Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/tfr.c13
There are 3 other files named tfr.c13 in the archive. Click here to see a list.
REP 24/1 ;13C1
IF1 <PRINTX TFR Version 4(231)>
WIT
IF1 <PRINTX TFR Version 4(233)>
INS 9/2 ;13C2
;BCM 5-Nov-85 [233] Correct edit 227, just use T1 which is
; already setup
REP 38/57 ;13C3
CBLL.2: LOAD T,.LENG ;[227] GET THE FIELD LENGTH
SKIPN T ;[227] IF THE LENGTH IS ZERO
AOJA ARG,CBLLUP ;[227] THEN DON'T GENERATE ANYTHING
WIT
CBLL.2: JUMPE T1,CBLL.6 ;[233] No picture for zero len field
SUM 29044