.TITLE DISKT ;TESTS DISK MACROS. WRITES 300. (DECIMAL) NUMBERS TO FILE TEST.DAT, & ;READS THEM BACK IN REVERSE ORDER--RANDOM ACCESS .MCALL .EXIT,.T10,.R0I,.W0I,.CLOS0,.WRIT0,.READ0,.TL,.TLQ .GLOBL .PT0 GO: .WRIT0 #FILE ;OPEN FILE FOR WRITING ON CHANNEL 0 MOV #300.,R0 CLR R3 L: .W0I R3 ;WRITE WORD I INC R3 SOB R0,L .CLOS0 ;CLOSE FILE & UPDATE DISK DIRECTORY ;READ FILE BACK .READ0 #FILE ;OPEN FILE FOR READING ON CH 0 MOV #300.,R5 L2: MOV R5,.PT0+2 ;LONG-INTEGER .PT0 = 2*(R5-1) DEC .PT0+2 ASL .PT0+2 CLR .PT0 .R0I R4 ;READ WORD ON CHANNEL 0 BCS EOF .T10 R4 .TL ;CR-LF SOB R5,L2 .EXIT EOF: .TLQ .EXIT FILE: .ASCIZ *TEST.DAT* .EVEN .END GO