.TITLE RDOBJ .IDENT /V01.1/ ; ; ; RD$OBJ - READ A LINE FROM THE OBJECT FILE ; PARAMETERS: ; R1 WHERE TO PUT LINE ; R2 WHERE TO PUT POINTER-PAST-END ; ; .MCALL GET$,CLOSE$ .MCALL .PRINT ; .ENABL LSB RD$OBJ:: TST EOF BNE 20$ JSR PC,SAVREG MOV #ERR5,MESNO ; GET$ #OBJFDB,R1,#200 MOV R2,RR2 MOV #OBJFDB,R0 MOV #BUFSIZ,R2 JSR PC,GET BCS 10$ MOV RR2,R2 MOV R1,(R2) JSR PC,RESREG CLC BR 40$ 10$: TST R0 BNE 30$ MOV #ERR6,MESNO JSR PC,RESREG ; CLOSE$ #OBJFDB ; BCS 30$ 20$: SEC MOV #1,EOF BR 40$ 30$: JSR PC,RESREG JMP MOCALL 40$: RTS PC .DSABL LSB RR2: .WORD 0 ; .END