Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/cblio.c13
There are 10 other files named cblio.c13 in the archive. Click here to see a list.
INS 4/2 ;13C1
;KWS 19-NOV-85 [1152] Make sure that the channel number remains the same
; when using declaratives.
;MJC 03-SEP-85 [1151] Clear dump mode IOWD in RH of UOUT. on invalid key
;KWS 03-Sep-85 [1150] Be sure to check for full buffer in all cases before
; writing
;JSM 22-APR-85 [1143] Change where programs fail if missing ISAM files.
;BCM 17-APR-85 [1142] TOPS-10 fix logical name problem when no PPN given
REP 34/22 ;13C2
JRST [CAIE AC1,600130 ;INVALID SMU ACCESS?
JRST [OUTSTR [ASCIZ /RESET time /]
JRST OCPERR ]
WIT
JRST [CAIE AC1,OPNX9 ;[1143] INVALID SMU ACCESS?
JRST RSTID1 ;[1143] IF FNF, GO SET FLAG AND LET USER GO TO OPEN
REP 72/22 ;13C3
RSTID1: HLLZ AC1,D.F1(I16) ;[377] GET FLG1 PARMS
TLNN AC1,FILOPT ;[374] OPTIONAL FILE?
JRST RSTID8 ;[323] NO, FATAL
WIT
RSTID1: POP PP,AC1 ;[1143] GET BACK TO RIGHT PLACE ON STACK
REP 78/22 ;13C4
POP PP,.JBFF ;RESTORE THE STACK
WIT
POP PP,.JBFF ;[1143] RESTORES .JBFF FROM STACK
INS 24/63 ;13C5
MOVEI AC1,.PTFRN ;[1142] SET RETURN INFO ABOUT PATH
MOVEM AC1,PTH.BK## ;[1142] INTO ARG BLOCK
MOVSI AC1,(PT.RCN) ;[1142] SET RETURN DATA ABOUT CURRENT LOGICAL
MOVEM AC1,PTH.BK+.PTLNF ;[1142] PATH NAME
MOVE AC1,UOBLK.+1 ;[1142] GET SIXBIT DEVICE NAME
MOVEM AC1,PTH.BK+.PTLNM ;[1142] INTO ARG BLOCK
MOVE AC1,[XWD 4,PTH.BK##] ;[1142] INDICATE PATH ARG BLOCK LOC
PATH. AC1, ;[1142] SEE IF ITS A LOGICAL NAME
JRST OPNF2B ;[1142] ITS NOT
;[1142] SET PATH BLOCK TO RETURN FILES PATH LOCATION
MOVSI AC1,(PT.RCN) ;[1142] SET RETURN DATA ABOUT LOGICAL
MOVEM AC1,PTH.BK##+.PTLNF ;[1142] PATH NAME
SETZ AC5, ;[1142] FORCE PPN TO BE ZERO
MOVE AC1,[XWD .PTMAX,PTH.BK] ;[1142] SET PATH BLOCK PTR INTO
MOVEM AC1,FOP.BK+.FOPAT ;[1142] THE FILOP ARG BLOCK SO WE GET THE
JRST OPNF2A ;[1142] PATH OF WHERE FILE IS
OPNF2B:
INS 27/106 ;13C6
LDB AC5,DTCN. ;[1152] MAKE SURE CHANNEL NO. IS CORRECT
INS 2/120 ;13C7
SKIPN D.OBC(I16) ;[1150]SEE IF BUFFER FULL
PUSHJ PP,WRTBUF ;[1150]YES, WRITE IT
REP 3/129 ;13C8
WRTABP: SKIPGE AC1,D.OBB(I16) ;
POPJ PP, ;
TLZ AC1,770000 ;
ADD AC1,[POINT ,1] ;
MOVEM AC1,D.OBB(I16) ;
POPJ PP, ;
WIT
WRTABP: SKIPGE AC1,D.OBB(I16) ;Only pre-decremented BP are negative,
POPJ PP, ;so return BP in AC1 as is
TLZ AC1,770000 ;Zero position field in BP
ADD AC1,[POINT ,1] ;Adjust BP to next word, but pre-decremented
MOVEM AC1,D.OBB(I16) ;Store it back in buffer control block
POPJ PP, ;Return
INS 20/147 ;13C9
HLLZS UOUT. ;[1151] CLEAR RIGHT HALF DUMP MODE IOWD
SUM 1896