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