.TITLE R2BK .GLOBL .R2BK .MCALL .EXIT,.READW,.TLQ BLOCK: .BLKW 1 BUFFER: .BLKW 1 .R2BK: MOV R0,-(SP) TST BLOCK BGE READ .TLQ <.R2BK ERROR: NEG BLOCK NUMBER> .EXIT READ: .READW #LIST,#2,BUFFER,#256.,BLOCK MOV (SP)+,R0 BCS ERROR RETURN ERROR: CMPB 52,#1 BLT EOF BEQ HARD .TLQ <.R2BK ERROR: CHANNEL 2 NOT OPEN> .EXIT HARD: .TLQ <.R2BK: HARD ERROR ON CHANNEL 2> .EXIT EOF: .TLQ SEC RETURN LIST: .WORD 0,0,0,256.,0 .END