.TITLE REOPEN TEST .MCALL .WRITW,.FETCH,.CLOSE,.EXIT,.PRINT,.ENTER,.REOPEN,.SAVESTATUS .MCALL .READW .ENABL LC START: .FETCH #OUTFIL BCS 10$ .ENTER #AREA,#1,#OUTFIL BCS 10$ .WRITW #AREA,#1,#BLOCK1,#LBLCK1,#0 BCS 10$ .SAVESTATUS #AREA,#1,#SAVEIT BCS 10$ .CLOSE #1 .REOPEN #AREA,#2,#SAVEIT BCS 10$ .WRITW #AREA,#2,#BLOCK2,#LBLCK2,#1 BCS 10$ .CLOSE #2 BCS 10$ .REOPEN #AREA,#3,#SAVEIT BCS 10$ .READW #AREA,#3,#BLOCK3,#LBLCK2,#1 BCS 10$ .CLOSE #3 .EXIT 10$: BISB ERRBYT,IOERRN .PRINT #IOERR .EXIT OUTFIL: .RAD50 /SY0OUTPUTTXT/ AREA: .BLKW 5. SAVEIT: .BLKW 5 BUFFER: .BLKW 256. IOERR: .ASCII "I/O error " IOERRN: .ASCIZ /0/ BLOCK1: .ASCII /This is test data to be written to file block one./<15><12> LBLCK1=<.-BLOCK1>/2 BLOCK2: .ASCII /This is test data for the second block of the file/<15><12> LBLCK2=<.-BLOCK2>/2 .EVEN BLOCK3: .REPT 256. .WORD 0 .ENDR .END START