Trailing-Edge
-
PDP-10 Archives
-
bb-kl11i-bm_tops20_v7_0_atpch_1-22
-
autopatch/srtgen.c22
There are no other files named srtgen.c22 in the archive.
REP 1/1 ;22C1
; UPD ID= 1557 on 4/25/84 at 9:04 AM by JBLAU
WIT
; UPD ID= 1959 on 3/3/89 at 8:40 AM by KSTEVENS
REP 20/1 ;22C2
;KWS 29-SEP-87 [1644] Expand edit 1603 to cover the case of misplaced
WIT
;KWS 22-FEB-89 [1652] Change code generation for SORT when Sorting an
; RMS file.
;KWS 29-SEP-87 [1644] Expand edit 1603 to cover the case of misplaced
REP 9/2 ;22C3
;JSM 28-APR-81 [1126] MAKE RELEASE VERB CLEAR ITS INPUT BUFFER
WIT
;JSM 28-APR-81 [1126] MAKE RELEASE VERB CLEAR ITS INPUT BUFFER
REP 31/2 ;22C4
;EHM 3-AUG-78 [541] FIX CATASTROPHIE IN PHASE O IF NULL
WIT
;EHM 3-AUG-78 [541] FIX CATASTROPHIE IN PHASE O IF NULL
INS 5/3 ;22C5
SETZM EIOOP ;[1652]MAKE SURE OPERATOR CLEAR FOR NEXT ACTION
REP 3/4 ;22C6
SORTGN: TDZA TE,TE ;SORT
WIT
SORTGN: MOVEI CH,SORT## ;[1652]SET SORT OP.
MOVEM CH,EIOOP## ;[1652]
TDZA TE,TE ;SORT
REP 7/14 ;22C7
MOVE TE,ESIZEA ;[1004]
WIT
MOVE TE,ESIZEA ;[1004]
REP 20/18 ;22C8
WIT
REP 32/28 ;22C9
WIT
REP 4/32 ;22C10
WIT
REP 3/53 ;22C11
DOUSE: MOVSI CH,OPEN.I
WIT
DOUSE:
HRR TA,ESUSE+1 ;[1652] LINK TO FILE TABLE
PUSHJ PP,LNKSET ;[1652]
LDB TE,FI.RMS## ;[1652]CHK IF RMS FILE
JUMPE TE,DOUOLD ;[1652] NO
TLO W1,1B27 ;[1652]SET INPUT FILE FLAG
PUSHJ PP,OPNM## ;[1652]GENERATE OPEN FOR RMS FILE
JRST DOU0 ;[1652]WHEN DONE, CONTINUE
DOUOLD: MOVSI CH,OPEN.I ;[1652]
REP 7/53 ;22C12
PUSHJ PP,GETTAG
WIT
DOU0: PUSHJ PP,GETTAG ;[1652]
REP 12/53 ;22C13
PUSHJ PP,LNKSET ;[1025]
LDB TE,FI.ORG## ;[1025] GET FILE ORGANIZATION
JUMPE TE,DOUSE1 ;[1025] OK IF SEQ FILE
WIT
PUSHJ PP,LNKSET ;[1025]
LDB TE,FI.ORG## ;[1025] GET FILE ORGANIZATION
LDB TD,FI.RMS## ;[1652] IS IT AN RMS FILE
JUMPE TD,DOUS1 ;[1652] NO, NOT RMS FILE
PUSHJ PP,READM## ;[1652] RMS READ
JRST DOUS3 ;[1652]
DOUS1: JUMPE TE,DOUSE1 ;[1025][1652] OK IF SEQ FILE
REP 20/53 ;22C14
MOVSI CH,SKIPA.
WIT
DOUS3: MOVSI CH,SKIPA. ;[1652]
REP 23/54 ;22C15
MOVSI CH,CLOS
HRR CH,ESUSE+1
PUSHJ PP,RYTIO
MOVEI CH,MCLOS.##
WIT
HRR TA,ESUSE+1 ;[1652]GET TABLE LINK
PUSHJ PP,LNKSET ;[1652]
LDB TE,FI.RMS## ;[1652]RMS FILE?
JUMPE TE,DOUS4 ;[1652]NO
PUSHJ PP,CLOM## ;[1652] RMS CLOSE
JRST DOUS5 ;[1652]
DOUS4: MOVSI CH,CLOS ;[1652]DO NORMAL CLOSE
HRR CH,ESUSE+1
PUSHJ PP,RYTIO
DOUS5: MOVEI CH,MCLOS.## ;[1652]
REP 51/59 ;22C16
SETZM EBASEA ;[1126] CLEAR THE SENDING FIELD
WIT
SETZM EBASEA ;[1126] CLEAR THE SENDING FIELD
REP 33/62 ;22C17
CAIN TE,%AN.EB ;[1004] IF IT IS THEN USE
WIT
CAIN TE,%AN.EB ;[1004] IF IT IS THEN USE
REP 49/62 ;22C18
CAIN TE,%AN.AS ;[1004] IF IT IS THEN USE
WIT
CAIN TE,%AN.AS ;[1004] IF IT IS THEN USE
SUM 218895