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