Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/ipcgen.c05
There are 2 other files named ipcgen.c05 in the archive. Click here to see a list.
INS 20/1 ;05C1
;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
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]
SUM 210990