.TITLE W2F .GLOBL .W2F,.DISK2 F: .BLKW 2 .W2F: MOV #^B100000001,.DISK2-4 ;RW=1 BI=1 MOV F,.DISK2-2 CALL .DISK2 BCS EOF MOV F+2,.DISK2-2 CALL .DISK2 EOF: RETURN .END