Trailing-Edge
-
PDP-10 Archives
-
bb-kl11f-bm_tops20_v7_0_atpch1_19
-
autopatch/cblio.c15
There are 11 other files named cblio.c15 in the archive. Click here to see a list.
REP 8/1 ;15C1
COPYRIGHT (C) 1974, 1983, 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION
WIT
COPYRIGHT (C) 1974, 1986 BY DIGITAL EQUIPMENT CORPORATION
INS 29/1 ;15C2
;RLF 14-OCT-86 [1171] Don't output CRLF before first ASCII record
;RLF 08-OCT-86 [1167] Flag WANT8. was not checked correctly
;MEM 01-OCT-86 [1166] PDL size is off by 20
;RLF 30-SEP-86 [1165] COMPT. UUO failed because DF.DEV is corrupted
;RLF 03-SEP-86 [1164] Buffer is cleared if OPEN EXTEND with SAME AREA
REP 50/5 ;15C3
MOVEI AC10,20(AC10) ;[660] LENGTH+20
WIT
MOVE AC10,%PUSHL(AC10);[1166]GET LENGTH
ADDI AC10,20 ;[1166]LENGTH+20
REP 73/40 ;15C4
SKIPGE WANT8. ;ITS OK, CREATE NON-EXISTENT FILE IF ANS-82 DEFAULT
WIT
SKIPL WANT8. ;[1167] ITS OK, CREATE NON-EXISTENT FILE IF ANS-82 DEFAULT
INS 270/44 ;15C5
TXNN AC16,OPN%EX ;[1164] OPEN EXTEND?
REP 70/62 ;15C6
SKIPGE WANT8. ;ITS OK, CREATE NON-EXISTENT FILE IF ANS-82 DEFAULT
WIT
SKIPL WANT8. ;[1167] ITS OK, CREATE NON-EXISTENT FILE IF ANS-82 DEFAULT
REP 29/63 ;15C7
BLT AC1,FID.BK+14
WIT
BLT AC1,FID.BK+51 ;[1165] GET WHOLE FILE SPEC
REP 112/63 ;15C8
OPCT7: TLNN AC5,600 ; IS VID EBCDIC?
WIT
OPCT7: CAILE AC6,^D160 ;[1165] FILE ID CAN'T BE LONGER
MOVEI AC6,^D160 ;[1165] THAN 160 CHARACTERS
TLNN AC5,600 ; IS VID EBCDIC?
INS 120/63 ;15C9
SOSE AC0 ;[1165] CAN'T HAVE MORE THAN 160 CHAR
INS 126/63 ;15C10
SOSE AC0 ;[1165] CAN'T HAVE MORE THAN 160 CHAR
REP 132/63 ;15C11
SOJN AC6,OCPT7S ;LOOP 'TIL DONE
WIT
SOSE AC0 ;[1165] CAN'T HAVE MORE THAN 160 CHAR
SOJN AC6,OCPT7S ;LOOP 'TIL DONE
INS 43/123 ;15C12
HRRZ AC0,D.RP(16) ;[1171] IS THIS THE FIRST RECORD?
JUMPLE AC0,WRTRCB ;[1171] IF SO, DON'T OUTPUT CRLF
SUM 125853