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