Trailing-Edge
-
PDP-10 Archives
-
bb-kl11i-bm_tops20_v7_0_atpch_1-22
-
autopatch/iogen.c22
There are no other files named iogen.c22 in the archive.
REP 1/1 ;22C1
; UPD ID= 1629 on 5/31/84 at 1:23 PM by HOFFMAN
WIT
; UPD ID= 1958 on 3/3/89 at 8:39 AM by KSTEVENS
REP 29/1 ;22C2
;RLF 04-AUG-87 [1643] SELECTed sequential file gets error message
; erroneously from FREE EVERY RECORD statement
;MEM 12-NOV-86 [1636] Check for a depending variable when calculating
WIT
;KWS 22-FEB-89 [1652] Change code generation so that when Sorting an
; RMS file, the correct code is generated.
;RLF 04-AUG-87 [1643] SELECTed sequential file gets error message
; erroneously from FREE EVERY RECORD statement
;MEM 12-NOV-86 [1636] Check for a depending variable when calculating
INS 22/3 ;22C3
V%SORT==13 ;[1652]Sort
REP 20/5 ;22C4
LDB TE,[POINT 9,W1,8] ;GET OPCODE OF GENFIL OPERATOR
WIT
LDB TE,[POINT 9,W1,8] ;GET OPCODE OF GENFIL OPERATOR
REP 3/6 ;22C5
OPNM: MOVEI TD,V%OPEN ;SET OPEN VERB
WIT
OPNM:: MOVEI TD,V%OPEN ;[1652]SET OPEN VERB
REP 24/6 ;22C6
TXNE W1,1B10 ;"INPUT"
IORM TD,IOFLGS## ;SET IN IO FLAGS
MOVX TD,OPN%OU
WIT
MOVE TE,EIOOP ;[1652]GET OPERATOR
CAIE TE,SORT## ;[1652]SORT?
JRST OPNM11 ;[1652]NO
IORM TD,IOFLGS ;[1652]YES, SET INPUT
JRST OPNM2 ;[1652]AND CONTINUE
OPNM11: TXNE W1,1B10 ;[1652] "INPUT"
IORM TD,IOFLGS ;SET IN IO FLAGS.
MOVX TD,OPN%OU ;OUTPUT
REP 4/8 ;22C7
CLOM: MOVEI TE,V%CLOS ;TELL LIBOL THIS IS "CLOSE"
WIT
CLOM:: MOVEI TE,V%CLOS ;[1652]TELL LIBOL THIS IS "CLOSE"
REP 3/14 ;22C8
READM: MOVEI TE,V%READ ;TELL LIBOL THIS IS A "READ"
WIT
READM:: MOVEI TE,V%READ ;[1652]TELL LIBOL THIS IS A "READ"
REP 3/15 ;22C9
TLNN W1,INTO ;"INTO" OPTION FOR THIS READ?
JRST RDM1 ;NO
PUSHJ PP,LARGE ;YES--FIND LARGEST DATA RECORD FOR THIS FILE
WIT
MOVE TE,EIOOP ;[1652]CHECK FOR SORT
CAIE TE,SORT## ;[1652]
TLNN W1,INTO ;"INTO" OPTION FOR THIS READ?
JRST RDM1 ;[1652]NOT INTO, OR SORT
PUSHJ PP,LARGE ;INTO--FIND LARGEST DATA RECORD FOR THIS FILE
REP 19/15 ;22C10
RDM1:
WIT
RDM1:
INS 56/15 ;22C11
MOVE TE,EIOOP ;[1652]GET OPERATOR
CAIN TE,SORT## ;[1652]IS IT SORT
JRST RDM7A ;[1652]YES
REP 127/15 ;22C12
RDM4:
PUSHJ PP,PUT.PJ ;GENERATE CALL
PUSHJ PP,CNVKYA ;CHECK IF GENERATE KEY CONVERSION ROUTINES
WIT
RDM4:
MOVE TE,EIOOP ;[1652]GET OPERATOR
CAIN TE,SORT## ;[1652]IS IT SORT?
MOVEI CH,RD.MIS## ;[1652]ALWAYS READ SEQ.
PUSHJ PP,PUT.PJ ;GENERATE CALL
PUSHJ PP,CNVKYA ;CHECK IF GENERATE KEY CONVERSION ROUTINES
MOVE TE,EIOOP ;[1652]GET OPERATOR
CAIN TE,SORT## ;[1652]IS IT SORT?
POPJ PP, ;[1652]YES, LET'S LEAVE.
REP 61/18 ;22C13
PUSH PP,CURDAT ;SAVE CURRENT DATAB
WIT
PUSH PP,CURDAT ;SAVE CURRENT DATAB
REP 74/20 ;22C14
PUSHJ PP,PUTASY
WIT
PUSHJ PP,PUTASY
REP 79/20 ;22C15
JRST GO2NXT
WIT
JRST GO2NXT
REP 3/23 ;22C16
WADVG5:
WIT
WADVG5:
REP 28/26 ;22C17
WADV7D:
WIT
WADV7D:
REP 32/26 ;22C18
WADVG8:
WIT
WADVG8:
REP 36/27 ;22C19
WRTM1:
WIT
WRTM1:
REP 1/29 ;22C20
WRDG2B:
WIT
WRDG2B:
REP 3/30 ;22C21
WRDVG5:
WIT
WRDVG5:
REP 28/33 ;22C22
WRDV7D:
WIT
WRDV7D:
REP 32/33 ;22C23
WRDVG8:
WIT
WRDVG8:
REP 42/34 ;22C24
TLO W1,(1B7)
WIT
TLO W1,(1B7)
REP 34/37 ;22C25
STRTM0:
WIT
STRTM0:
REP 28/41 ;22C26
MOVE CH,[XWD MOV+AC16,1];[1636] get size into 16
WIT
MOVE CH,[XWD MOV+AC16,1];[1636] get size into 16
REP 54/41 ;22C27
MOVE CH,[DSPL.6##+ASINC,,AS.MSC]
WIT
MOVE CH,[DSPL.6##+ASINC,,AS.MSC]
REP 4/55 ;22C28
MOVEM CH,EINTO ; [245] STORE INTO EINTO FOR READ OR RETURN
WIT
MOVEM CH,EINTO ; [245] STORE INTO EINTO FOR READ OR RETURN
REP 43/55 ;22C29
MOVEM CH,EINTR ; [245] SAVE IT
WIT
MOVEM CH,EINTR ; [245] SAVE IT
REP 3/62 ;22C30
EFENQG:
WIT
EFENQG:
REP 65/63 ;22C31
HRRZI TB,0 ;ZERO OUT A TEMP AC TO TEST
WIT
HRRZI TB,0 ;ZERO OUT A TEMP AC TO TEST
REP 35/64 ;22C32
SETZM KEYADR## ; YES, DON'T PICK UP FILE KEY DATA ITEM
WIT
SETZM KEYADR## ; YES, DON'T PICK UP FILE KEY DATA ITEM
REP 70/64 ;22C33
SETZM KEYADR## ; YES, DON'T PICK UP FILE KEY DATA ITEM
WIT
SETZM KEYADR## ; YES, DON'T PICK UP FILE KEY DATA ITEM
REP 262/64 ;22C34
SETZM KEYADR## ; YES, DON'T PICK UP FILE KEY DATA ITEM
WIT
SETZM KEYADR## ; YES, DON'T PICK UP FILE KEY DATA ITEM
SUM 219098