-60,60 BEQ 19$ ; Y - JUMP [RJDK002] -65,66 BIT #NOLIST,.LIFLG ; LISTING REQUIRED [RJDK002] BNE 11$ ; N - SKIP PRINT [RJDK002] CALL PRMSG1 ; Y - PRINT 11$: TRAP EREOF ; EXIT [RJDK002] -70 19$: BIT #NOLIST,.LIFLG ; LISTING MCR LINE? [RJDK002] BNE 90$ ; NO - SKIP PRINT [RJDK002] -88,91 BIT #NOLIST,.LIFLG ; LISTING MCR LINES? [RJDK002] BNE 41$ ; NO SKIP PRINT [RJDK002] CALL PRMSG1 ; PRINT BCS 100$ ; ERROR - EXIT MOV R0,R1 41$: INC LINDS ; SHOW LINE DISPLAYED /