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