Trailing-Edge
-
PDP-10 Archives
-
bb-jr93j-bb
-
xl3780.c08
There are 10 other files named xl3780.c08 in the archive. Click here to see a list.
REP 69/2 ;08C1
V3780=033
WIT
; 4(034) 2-JAN-84
; remove edit 33
V3780=034
REP 41/24 ;08C2
BEQ 40$ ;no, done with this chunk
WIT
BEQ 22$ ;no, done with this chunk
REP 75/24 ;08C3
41$: CALL XLIPRS ;yes, process an irs
WIT
CALL XLIPRS ;yes, process an irs
DEL 86/24 ;08C4
;end of message - check if we need to do end of line processing
40$: TST TCHPS(R5) ;if at beginning of line...
BEQ 22$ ;then we don't have to worry
BIT #TCPRI,TCFG1(R5) ;lpt?
BNE 41$ ;yes - go do lpt IRS
BR 31$ ;no - do cdr IRS
SUM 187261