.TITLE .W3Z .GLOBL .DISK3,.W3Z Z: .BLKW 4 .W3Z: MOV #^B100000001,.DISK3-4 MOV Z,.DISK3-2 CALL .DISK3 MOV Z+2,.DISK3-2 CALL .DISK3 MOV Z+4,.DISK3-2 CALL .DISK3 MOV Z+6,.DISK3-2 CALL .DISK3 RETURN .END