started work on block read abstraction

src/dos_m65/pseudoiec/msg_acptr.s

@@ -89,12 +89,7 @@ msg_ACPTR_read_F0:
 	; If new length is 0, try to read next block of data
 
 	ora F0_ACPTR_LEN+1
-	bne @3
+	bra msg_ACPTR_read_XX_common
-	jsr disk_f0_cmd_READ
-	bcc @3
-	jsr kernalstatus_EOI
-@3:
-	jmp dos_EXIT_CLC
 
 msg_ACPTR_read_F1:
 
@@ -119,16 +114,21 @@ msg_ACPTR_read_F1:
 	; If new length is 0, try to read next block of data
 
 	ora F1_ACPTR_LEN+1
-	bne @3
+	bra msg_ACPTR_read_XX_common
-	jsr disk_f1_cmd_READ
+
+msg_ACPTR_read_RD:
+
+	; XXX provide implementation
+
+msg_ACPTR_read_XX_common:
+
+	bne @3                  
+	jsr disk_xx_cmd_READ
 	bcc @3
 	jsr kernalstatus_EOI
 @3:
 	jmp dos_EXIT_CLC
 
-msg_ACPTR_read_RD:
-
-	; XXX provide implementation
 
 
 msg_ACPTR_fail_no_data:

src/dos_m65/unit_disk/disk_xx_cmd_read.s

@@ -4,21 +4,16 @@
 ;
 
 
-disk_f0_cmd_READ:
+disk_xx_cmd_READ:
 
-	; XXX provide implementation
+    ldx PAR_FSINSTANCE
-
+	lda XX_MODE, x
-disk_f1_cmd_READ:
-
-	; XXX provide implementation
-
-disk_f__cmd_READ:
-
-	lda F0_MODE
 	cmp #$03
 	+beq fs_cbm_nextfileblock
 
-	lda F0_DIR_PHASE
+	; Reading directory
+
+	lda XX_DIR_PHASE, x
 	cmp #$01
 	+beq fs_cbm_read_dir
 	cmp #$02