Trailing-Edge
-
PDP-10 Archives
-
bb-kl11f-bm_tops20_v7_0_atpch1_19
-
autopatch/tfr.c11
There are 3 other files named tfr.c11 in the archive. Click here to see a list.
REP 3/1 ;11C1
;COPYRIGHT (C) 1980, 1981, 1983 BY
WIT
;COPYRIGHT (C) 1980, 1985 BY
REP 24/1 ;11C2
IF1 <PRINTX TFR Version 4(200)>
WIT
IF1 <PRINTX TFR Version 4(227)>
INS 29/1 ;11C3
;EDITS
;V4**************
;BCM 20-Mar-85 [213] Don't count filespec errors as form-spec errors
;BCM 22-Apr-85 [224] For a MONEY 0 field, do not display decimal point
;BCM 3-May-85 [225] In TFR, fix checks for field truncation.
;BCM 14-MAY-85 [227] Don't generate data item for zero length field
;
REP 49/13 ;11C4
ERCAL ERRPC
WIT
ERCAL ERRNCT ;[213] DON'T COUNT THIS KIND OF ERROR
INS 57/31 ;11C5
;**;[225] At ICMLN1+12L, insert 1 line
SOS A ;[225] REAL END-COLUMN = COL+MAX-1
INS 22/35 ;11C6
;**;[225] At CMPOSI+14L, insert 1 line
SOS B ;[225] REAL END-COLUMN = COL+MAX-1
REP 21/44 ;11C7
PROC62:
MOVEI T4,"."+%SFSEP ;PUT A SEPARATOR IN
IDPB T4,T1 ; INTO THE STRING.
JUMPLE T3,PROC65 ;JUMP IF NO DECIMAL PLACES
WIT
PROC62: JUMPLE T3,PROC65 ;[224] JUMP IF NO DECIMAL PLACES
MOVEI T4,"."+%SFSEP ;PUT A SEPARATOR IN
IDPB T4,T1 ; INTO THE STRING.
REP 38/55 ;11C8
CBLL.2:
WIT
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
SUM 186272