.TITLE .R3Z .GLOBL .R3Z,.DISK3 Z: .BLKW 4 .R3Z: MOV #1,.DISK3-4 CALL .DISK3 BCS RET MOV .DISK3-2,Z CALL .DISK3 BCS RET MOV .DISK3-2,Z+2 CALL .DISK3 BCS RET MOV .DISK3-2,Z+4 CALL .DISK3 BCS RET MOV .DISK3-2,Z+6 RET: RETURN .END