/PROGRAM TO READ RECORDS FROM D0: AND PRINT /THEM ON THE TTY UNTIL STOPPED BY THE USER. *200 CLA TAD K4005 /ASSIGN D0: ASD /DO IT SZA HLT /DIE IF DEVICE BUSY LOOP, CLA TAD KFCB DTXA /READ BLOCK DTRB /SEE IF SUCCESSFUL AND K7776 /CLEAR DTF BIT SZA /CONTINUE IF NO ERR HLT /DIE ON ERROR TAD M0201 DCA XRB /PRINT 129 CHARS TAD BUFFM1 DCA XRB+1 /STARTING AT (BUFFER) TAD KXRB /POINT AT 'XRB' SAS /PRINT CHARS JMP .-2 /RETRY UNTIL DONE ISZ FCB+1 JMP LOOP /LOOP UNTIL ERROR OR ^BS HLT /DIE ON OVERFLOW /DATA BLOCKS AND POINTERS: K4005, 4005 KFCB, FCB K7776, 7776 M0201, -201 KXRB, XRB BUFFM1, BUFFER-1 FCB, 20 /READ 1 /STARTING WITH BLOCK 1 BUFFER-1 /TRANSFERRING INTO (BUFFER) XRB, 0 /THIS BLOCK IS INIT'D IN PROG 0 BUFFER, /BUFFER FOR CHARS $