Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
ipcgen.c05
There are 2 other files named ipcgen.c05 in the archive. Click here to see a list.
INS 19/1 ;05C1
;V12B****************
;DMN 07-OCT-82 [1414] OUTPUT CALL TO INITDB FOR SUBPROGRAMS CONTAINING
; DBMS INVOKE STATEMENT
;JEH 30-MAR-82 [1346] FATAL IF DATA KEY CONV RTN ADDR CAN'T BE STORED
;DMN 31-AUG-81 [1306] FIX BAD TABLE LINK IF RELATIVE KEY HAS ERROR
REP 192/22 ;05C2
NTRY8: MOVE CH,PROGST## ;GET START ADDRESS
WIT
NTRY8:
IFN DBMS,<
;PUT OUT "MOVEI 16,INITDB-ARG-LIST-ADDR"
SKIPN INVSEE## ;[1414] WAS THERE A DBMS INVOKE?
JRST NTRY8A ;[1414] NO
MOVE CH,[MOVEI.+ASINC+AC16,,AS.MSC] ;[1414]
PUSHJ PP,PUTASY ;[1414]
HRRZ CH,DBUSES## ;[1414] ADDRESS OF DBMS USE PROCEDURE
IORI CH,AS.LIT ;[1414]
PUSHJ PP,PUTASN ;[1414]
;PUT OUT "PUSHJ 17,INITDB"
MOVEI CH,INITDB## ;[1414]
PUSHJ PP,PUT.PJ ;[1414]
NTRY8A:> ;[1414]
MOVE CH,PROGST## ;GET START ADDRESS
INS 25/23 ;05C3
TRNN CH,076000 ;[1346] IS TAG GREATER 1023?
JRST CKDT.1 ;[1346] NO
PUSH PP,CH ;[1346] YES, WON'T FIT IN DA.DCR
MOVEI DW,E.746 ;[1346]
LDB LN,TCLN## ;[1346] SET UP LN
LDB CP,TCCP## ;[1346] SET UP CP
PUSHJ PP,FATAL## ;[1346]
POP PP,CH ;[1346]
CKDT.1: ;[1346]
REP 82/25 ;05C4
CKFT.E: HRRZ TA,CURFIL
WIT
;[D1306] CKFT.E: HRRZ TA,CURFIL
CKFT.E: ;[M1306]
REP 86/25 ;05C5
CKFT.Z: LDB TA,FI.NXT## ;GET NEXT
WIT
CKFT.Z: ;[M1306]
HRRZ TA,CURFIL ;[1306] RESTORE CURRENT FILE POINTER
LDB TA,FI.NXT## ;[M1306] ;GET NEXT
SUM 70176