Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/cblio.c08
There are 4 other files named cblio.c08 in the archive. Click here to see a list.
REP 1/1 ;08C1
; UPD ID= 1511 on 1/27/84 at 3:57 PM by MASLANKA
WIT
; UPD ID= 1620 on 5/22/84 at 9:19 AM by HOFFMAN
INS 26/1 ;08C2
;EDITS
;NAME DATE COMMENTS
;V13************
;JEH 22-MAY-84 [1126] New feature test switch and code to print blank
; ascii text lines
;JSM 14-MAY-84 [1125] Test on 'RPTW.' before generating +2 return from
; WADV. to Report Writer routine
;JEH 10-MAY-84 [1121] READ NEXT after 2 REWRITES fails, flags reset at
; wrong time
;JBB 27-APR-84 [1120] Don't get a channel number when opening a file
; assigned to LPT:
;RLF 22-MAR-84 [1113] Make use procedure works with filename-1 OPEN
;JEH 19-MAR-84 [1112] No <CR> at end of std-ascii tape
;JBB 21-DEC-83 [1105] Put a '?' in front of warning to make it FATAL.
;JBB 20-DEC-83 [1104] Remove SETEOF warning message and set max byte count
;JSM 09-NOV-83 [1103] On Fake Read for SMU Retain on TOPS-10, check for
; EOF Return and don't cause program failure if so.
REP 4/40 ;08C3
OPNCHN: PUSHJ PP,GCHAN ;LOAD AC5 WITH A CHANNEL NUMBER
WIT
OPNCHN:
IFN TOPS20,<
TXNE AC13,DV.LPT ;[1120] SIMPLE OUTPUT DEVICE
JRST OPCH1A ;[1120] YES, DON'T GET CHANNEL NUMBER
>
PUSHJ PP,GCHAN ;LOAD AC5 WITH A CHANNEL NUMBER
REP 12/40 ;08C4
TLNE FLG,DDMASC ;SKIP IF NOT ASCII
WIT
OPCH1A: TLNE FLG,DDMASC ;[1120] SKIP IF NOT ASCII
REP 25/108 ;08C5
JRST OPNENR ;TRY AGAIN
WIT
JRST OPNCH1 ;[1113] TRY AGAIN
REP 30/111 ;08C6
TRZE AC4,AFTADV ; SKIP IF DON'T NEED 'CR'
WIT
TRNE AC4,SASCII ;[1112] IS IT?
JRST CLOSE2 ;[1112] YES, THEN NO <CR>
TRZE AC4,AFTADV ;[1112] SKIP IF DON'T NEED 'CR'
REP 109/123 ;08C7
TRNA ;NORMAL RETURN
AOS (PP) ;COPY END-OF-PAGE SKIP RETURN
WIT
JRST WRTRE6 ;[1125] NORMAL RETURN
SKIPN RPTW.## ;[1125] SKIP RETURN, DOING RPTW?
AOS (PP) ; NO, COPY END-OF-PAGE SKIP RETURN
SETZM RPTW.## ;[1125] SET FLAG TO ZERO
INS 8/136 ;08C8
IFN BLANKL, <
CAIN C,15 ;[1126] Is it a carriage return?
JRST READ5A ;[1126] Yes, make a blank record
>; [1126]
REP 60/149 ;08C9
RNWR2A: PUSHJ PP,RANCR ;[WADV] WRITE CR
WIT
RNWR2A: ;[M1114]
TXNE AC16,V%RWRT ;[A1114] DOING REWRITE?
JRST RNWR2B ;[A1114] YES, DON'T PUT IN <CR><LF>
PUSHJ PP,RANCR ;[WADV] WRITE CR [M1114]
REP 9/165 ;08C10
TRZE AC0,RDLAST ; WAS READ LAST IO OPERATION
JRST RERIT4 ; YES, CHECKS OK
JRST ERDLRW ; NO GIVE ERROR CASE
WIT
TRZN AC0,RDLAST ;[1121] WAS READ LAST IO OPERATION
JRST ERDLRW ; NO GIVE ERROR CASE
HRRM AC0,D.RFLG(I16) ;[1121] STORE FLAG
JRST RERIT4 ;[1121] YES, CHECKS OK
REP 43/165 ;08C11
RERIT4: HRRM AC0,D.RFLG(I16) ;STORE BACK WITH LAST VERB READ OFF
PUSHJ PP,LVTST ;LOW-VALUES IN RECORD KEY?
WIT
RERIT4: PUSHJ PP,LVTST ;LOW-VALUES IN RECORD KEY?
SUM 202209