Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/sropin.list
There are no other files named sropin.list in the archive.
SROPIN MACRO M1110 13-OCT-79 12:34 PAGE 3
1 .TITLE SROPIN
2 .IDENT /V01.00/
3 ;
4 ; COPYRIGHT (C) 1978 BY
5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
6 ;
7 ;
8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
9 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
10 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
11 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
12 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
13 ; TRANSFERRED.
14 ;
15 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
16 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
17 ; CORPORATION.
18 ;
19 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
20 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
21 ;
22 ;
23 ; MODULE DESCRIPTION:
24 ;
25 ; NCU SERVICE MODULE TO OPEN A FILE FOR INPUT
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ;
SROPIN MACRO M1110 13-OCT-79 12:34 PAGE 4
36 ;
37 ;======================================================================;
38 ;++
39 ; +-------------------------------------------------+
40 ; I I
41 ; I S R O P I N I
42 ; I - - - - - - I
43 ; I I
44 ; +-------------------------------------------------+
45 ;
46 ; FUNCTION:
47 ;
48 ; SERVICE MODULE TO OPEN A FILE FOR INPUT
49 ;
50 ; CALLING SEQUENCE: CALL SROPIN
51 ;
52 ; INPUT:
53 ;
54 ; R5 - ADDRESS OF CONTROL BLOCK REQUESTING OPEN
55 ; C.ADDR - ADDRESS OF FILE SPECIFICATION BLOCK CONTAINING A 6 WORD
56 ; DATASET DESCRIPTOR FOLLOWED BY A DEFAULT FILENAME BLOCK
57 ;
58 ; OUTPUT:
59 ;
60 ; C-BIT - CLEAR IF PROCESSING COMPLETE, SET IF NOT
61 ; @R5 - UPDATED CONTROL BLOCK
62 ; C.LUN - LOGICAL UNIT FILE IS OPEN ON
63 ; C.RET - RETURN CONDITION CODE
64 ; LOWER BYTE IS STANDARD SERVICE RETURN
65 ; UPPER BYTE IS SYSTEM ERROR RETURN IF FAILURE
66 ;
67 ; REQUIREMENTS:
68 ;
69 ; INPUT VIA FLUDAT:
70 ;
71 ; ILUNDB - INPUT LOGICAL UNIT DATABASE
72 ; ADDR - ADDRESS OF FDB FOR LOGICAL UNIT
73 ; ILUNEN - SYMBOL FOR ADDRESS OF MAXIMUM INPUT LUN DATABASE ENTRY
74 ;
75 ; CONTROL BLOCK SYMBOLS:
76 ;
77 ; C.ADDR - OFFSET OF FILE SPECIFICATION ADDRESS
78 ;
79 ; FILE LOGICAL UNIT SYMBOLS:
80 ;
81 ; ADDR - OFFSET OF FDB ADDRESS
82 ; INUSE - OFFSET OF IN USE FLAG
83 ;
84 ; SYSTEM SYMBOLS:
85 ;
86 ; FD.RWM - OPEN FOR BLOCK I/O
87 ; F.RET - OFFSET OF RETURN CODE IN FDB
88 ;
89 ; EFFECTS:
90 ;
91 ; OUTPUT VIA FLUDAT:
92 ;
SROPIN MACRO M1110 13-OCT-79 12:34 PAGE 4-1
93 ; ILUNDB - UPDATED DATABASE ENTRY
94 ; INUSE - SET FOR FILE OPEN IF SUCCESSFUL
95 ; @ADDR - UPDATED FDB
96 ;
97 ;--
98 ;======================================================================;
99 ;
100 ;
101 ; EXTERNAL MACROS
102 ;
103 .MCALL PROC,FLUMDF,FLUDF,CONDF,FDOP$R,OPEN$R,SAVSTK,RESSTK
104 ;
105 ; DEFINE EXTERNAL SYMBOLS
106 ;
107 000000 FLUDF ;FILE LOGICAL UNIT SYMBOLS
108 000000 CONDF ;CONTROL BLOCK SYMBOLS
109 ;
110 ; DEFINE READ/WRITE STORAGE
111 ;
112 000000 FLUMDF ;FILE LOGICAL UNIT MEMORY
SROPIN MACRO M1110 13-OCT-79 12:34 PAGE 5
114 ;
115 ; PROCEDURE BODY
116 ;
117 000000 PROC SROPIN
118 000000 SAVSTK <R4> ;SAVE REGISTER
119 000002 012704 000300' MOV #ILUNDB,R4 ;GET ADDRESS OF INPUT LUN DATABASE
120 000006 012702 000304' MOV #ILUNEN,R2 ;ADDRESS OF END OF DATABASE
121 000012 CALL SRFFLU ;TRY TO FIND AN AVAILABLE LOGICAL UNIT
122 000016 IF ; AVAILABLE LUN FOUND
123 000016 FALSE CS
124 000020 THEN
125 000020 112764 000001 000000 MOVB #FILOPE,INUSE(R4) ;MARK LUN AS IN USE
126 000026 016400 000002 MOV ADDR(R4),R0 ;GET FDB ADDRESS
127 000032 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF FILE IDENTIFICATION
128 000036 062702 000014 ADD #12.,R2 ;MOVE IT UP TO DEFAULT NAME BLOCK
129 000042 FDOP$R R0,,,R2 ;SET DEFAULT NAME BLOCK ADDRESS
130 000046 016502 000014 MOV C.ADDR(R5),R2 ;GET ADDRESS OF FILE IDENTIFICATION
131 000052 OPEN$R R0,,R2,#FD.RWM ;AND OPEN IT
132 000076 CALL SRFOCM ;PROCESS FILE OPEN COMPLETION
133 000102 ENDIF
134 000102 RESSTK <R4> ;RESTORE REGISTER
135 000104 ENDPROC
136 000001 .END
SROPIN MACRO M1110 13-OCT-79 12:34 PAGE 5-1
SYMBOL TABLE
ADDR = 000002 C$PROC= 000200 FLGGRP= 000000 F$OPLN= 000002 F.EFN = 000050
A$$CHK= 000000 C$RCBK= 000047 FLGMSK= 000003 F$OPLO= 000000 F.EOBB= 000032
A$$CPS= 000000 C$RCEV= 000050 FL$BOO= 000001 F$OPOR= 000000 F.ERR = 000052
A$$TRP= 000000 C$RCIN= 000062 FL$DUM= 000001 F$OPOT= 000000 F.FACC= 000043
BLKFLG= 000003 C$RCMA= 000146 FL$LOA= 000001 F$ORLU= 000000 F.FFBY= 000014
CE$ACP= 177753 C$RCMS= 000054 FL$LOO= 000001 F$OTLU= 000001 F.FNAM= 000110
CE$ADR= 177776 C$RDBK= 000043 FO.RD = ****** GX F$RCBK= 000002 F.FNB = 000102
CE$CON= 177770 C$RDCM= 000035 FO.WRT= ****** GX F$RCEV= 000001 F.FTYP= 000116
CE$DIS= 177771 C$RDIN= 000040 FR$LCC= 000001 F$RCIN= 000000 F.FVER= 000120
CE$EOF= 177767 C$RDIS= 000040 FR$LCS= 000001 F$RCMA= 000000 F.HIBK= 000004
CE$FAI= 177774 C$RDRC= 000060 FR$LNC= 000001 F$RCMS= 000002 F.LUN = 000042
CE$FIL= 177756 C$RLBF= 000001 FR$LNL= 000001 F$RDBK= 000000 F.MBCT= 000054
CE$FUN= 177777 C$RLCB= 000002 FR$LNS= 000001 F$RDCM= 000000 F.MBC1= 000055
CE$GEN= 177774 C$RLCI= 000000 FR$RMC= 000001 F$RDIN= 000001 F.MBFG= 000056
CE$IND= 177757 C$STBK= 000055 FR$RML= 000001 F$RDIS= 000012 F.NRBD= 000024
CE$IO = 177760 C$STPR= 000037 FR$RMS= 000001 F$RDRC= 000000 F.NREC= 000030
CE$LEN= 177775 C$STPS= 000037 FS$HOS= 000001 F$RECO= 000001 F.OVBS= 000030
CE$LID= 177766 C$TRBK= 000046 FS$INT= 000000 F$RLBF= 000001 F.RACC= 000016
CE$LST= 177752 C$TRIN= 000063 FS$LLP= 000001 F$RLCB= 000001 F.RATT= 000001
CE$NOD= 177765 C$TRMA= 000145 FS$LOF= 000001 F$STBK= 000000 F.RCNM= 000034
CE$NSD= 177755 C$TRMS= 000053 FS$LOG= 000001 F$STPR= 000001 F.RCTL= 000017
CE$NST= 177754 C$WRBK= 000044 FS$LST= 000001 F$STPS= 000006 F.RSIZ= 000002
CE$NWE= 177773 C$WRCL= 000065 FS$NET= 000001 F$TEST= 000001 F.RTYP= 000000
CE$OBJ= 177750 C$WRCM= 000036 FS$NST= 000000 F$TRAC= 000000 F.SEQN= 000100
CE$OPN= 177761 C$WRRC= 000061 FS$PAS= 000001 F$TRBK= 000001 F.SPDV= 000072
CE$OVR= 177764 C$ZRCN= 000064 FT$CNS= 000000 F$TRIG= 000001 F.SPUN= 000074
CE$PAR= 177763 C$$CKP= 000000 FT$NOD= 000001 F$TRIN= 000000 F.STBK= 000036
CE$PRO= 177751 C$$ORE= 000400 FT$TSK= 000001 F$TRMA= 000000 F.UNIT= 000136
CE$REJ= 177772 C$$RSH= 177564 F$ALBF= 000001 F$TRMS= 000002 F.URBD= 000020
CE$TMO= 177762 C.ADDR= 000014 F$ALCB= 000001 F$WRBK= 000000 F.VBN = 000064
CMILUN= 000002 C.BKNM= 000014 F$CB = 000017 F$WRCL= 000001 F.VBSZ= 000060
CMOLUN= 000001 C.CTXT= 000004 F$CLCL= 000001 F$WRCM= 000000 G$$TPP= 000000
CS$ACK= 000002 C.FUNC= 000006 F$CLCO= 000000 F$WRRC= 000000 G$$TSS= 000000
CS$LKE= 000001 C.LEN = 000012 F$CLFL= 000000 F$ZERO= 000001 G$$TTK= 000000
CS$LNA= 000002 C.LINE= 000014 F$CLLK= 000006 F$ZRCN= 000001 ILUNDB 000300R 002
CS$LOG= 000003 C.LKNM= 000020 F$CLLN= 000002 F$$LVL= 000001 ILUNEN= 000304R 002
CS$NCH= 000003 C.LUN = 000020 F$DPOS= 000001 F$150 = 000002 INFDBS 000000R 002
CS$SUC= 000001 C.MODE= 000021 F$DUMP= 000000 F$300 = 000012 INUSE = 000000
C$ALBF= 000032 C.PRID= 000017 F$EVNT= 000001 F$50 = 000002 IRFDBS 000140R 002
C$ALCB= 000033 C.PROC= 000007 F$EXAM= 000001 F$550 = 000002 IRLUDB 000304R 002
C$CLCL= 000067 C.PROM= 000016 F$EXHO= 000000 F.ACTL= 000076 IRLUEN= 000304R 002
C$CLCO= 000003 C.PTR = 000000 F$GTCM= 000001 F.ALOC= 000040 I$$RAR= 000000
C$CLFL= 000004 C.RET = 000010 F$INCM= 000000 F.BBFS= 000062 I$$RDN= 000000
C$CLLK= 000052 C.SAVE= 000022 F$INLU= 000001 F.BDB = 000070 K$$CNT= 177546
C$CLLN= 000005 C.SERV= 000002 F$IRLU= 000000 F.BGBC= 000057 K$$CSR= 177546
C$LEN = 000026 C.TASK= 000016 F$LKLU= 000010 F.BKDN= 000026 K$$LDC= 000000
C$NOPN= 000031 C.TYPE= 000016 F$LNLU= 000002 F.BKDS= 000020 K$$TPS= 000074
C$NORD= 000032 C.WAIT= 000020 F$LNSR= 000001 F.BKEF= 000050 LD$LP = 000000
C$OPCL= 000066 DEVATT= 000002 F$LOAD= 000000 F.BKP1= 000051 LINLUN= 000017
C$OPCO= 000034 D$$BUG= 177514 F$LOGD= 000001 F.BKST= 000024 LNKLUN= 000004
C$OPIN= 000041 D$$ISK= 000000 F$LOOP= 000001 F.BKVB= 000064 LUN = 000001
C$OPIR= 000056 D$$L11= 000001 F$NTCM= 000000 F.CHR = 000075 LUNDB 000300R 002
C$OPLK= 000051 ENTLEN= 000004 F$OPCL= 000001 F.CNTG= 000034 L$$ASG= 000000
C$OPLN= 000045 FDBS 000000R 002 F$OPCO= 000000 F.DFNB= 000046 L$$DRV= 000000
C$OPOR= 000057 FD.RWM= ****** GX F$OPIN= 000000 F.DSPT= 000044 L$$P11= 000001
C$OPOT= 000042 FILLUN= 000014 F$OPIR= 000000 F.DVNM= 000134 L$$11R= 000000
C$ORD = 000145 FILOPE= 000001 F$OPLK= 000005 F.EFBK= 000010 M$$CRB= 000124
SROPIN MACRO M1110 13-OCT-79 12:34 PAGE 5-2
SYMBOL TABLE
M$$CRX= 000000 ORFDBS 000300R 002 R$$K11= 000001 SP$RTP= 000005 T$$KMG= 000000
M$$FCS= 000000 ORLUDB 000310R 002 R$$SND= 000000 SRAST = ****** GX T$$MIN= 000000
M$$OVR= 000000 ORLUEN= 000310R 002 R$$11M= 000000 SRFFLU= ****** GX V$$CTR= 001000
NCOLUN= 000016 OTFDBS 000140R 002 SERBIT= 000001 SRFOCM= ****** GX X$$DBT= 000000
NETLUN= 000003 PAR$$$= 000000 SERFLG= 000001 SROPIN 000000RG YES = 000001
NO = 000000 P$$P45= 000000 SP$DHO= 000003 S$$WRG= 000000 $$CSTA= 000000
N$$USR= 000001 RI$LCC= 000001 SP$DRP= 000007 S$$YSZ= 001600 $$LUN = 000015
N.DID = 000024 RI$LCS= 000002 SP$DTP= 000010 S.FATT= 000016 $$PRST= 000010
N.DVNM= 000032 RI$LNC= 000007 SP$LHO= 000002 S.FDB = 000140 $$STIX= 000777
N.FID = 000000 RI$LNL= 000006 SP$LLP= 000011 S.FNAM= 000006 $$STNM= 000000
N.FNAM= 000006 RI$LNS= 000010 SP$LNM= 000016 S.FNB = 000036 $$S776= 000000
N.FTYP= 000014 RI$RMC= 000004 SP$LNO= 000015 S.FNBW= 000017 $$S777= 000000
N.FVER= 000016 RI$RML= 000003 SP$LOF= 000012 S.FNTY= 000004 $$TRNM= 000000
N.NEXT= 000022 RI$RMS= 000005 SP$LST= 000001 S.FTYP= 000002 .OPEN = ****** G
N.STAT= 000020 RI$ZLC= 000011 SP$NDM= 000014 S.NFEN= 000020 ...PC1= 000140R 002
N.UNIT= 000034 RI$ZLN= 000013 SP$NDO= 000013 TEMFLG= 000030 ...PC2= 000300R 002
OLUNDB 000304R 002 RI$ZRM= 000012 SP$NST= 000006 TIMBIT= 000002 ...TPC= 000140
OLUNEN= 000310R 002 R$$DER= 000000 SP$RRP= 000004 TIMFLG= 000002
. ABS. 000000 000
000106 001
FLUDAT 000310 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 11423 WORDS ( 45 PAGES)
DYNAMIC MEMORY: 12172 WORDS ( 46 PAGES)
ELAPSED TIME: 00:01:03
SROPIN,[135,30]SROPIN/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SROPIN
SROPIN CREATED BY MACRO ON 13-OCT-79 AT 12:35 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ADDR = 000002 #4-107 5-126
C.ADDR = 000014 5-127 5-130
DEVATT = 000002 #4-107
ENTLEN = 000004 #4-107
FDBS 000000 R #4-112 4-112 4-112
FD.RWM = ****** GX 4-112 4-112 5-131
FILLUN = 000014 4-112 4-112 4-112 4-112
FILOPE = 000001 #4-107 5-125
FL$BOO = 000001 #4-112 4-112
FL$DUM = 000001 #4-112 4-112
FL$LOA = 000001 #4-112 4-112
FL$LOO = 000001 #4-112 4-112
FO.RD = ****** GX 4-112 5-131
FO.WRT = ****** GX 4-112
FR$LCC = 000001 #4-112 4-112
FR$LCS = 000001 #4-112 4-112
FR$LNC = 000001 #4-112 4-112
FR$LNL = 000001 #4-112 4-112
FR$LNS = 000001 #4-112 4-112
FR$RMC = 000001 #4-112 4-112
FR$RML = 000001 #4-112 4-112
FR$RMS = 000001 #4-112 4-112
FS$HOS = 000001 #4-112 4-112
FS$INT = 000000 #4-112 4-112 4-112 4-112
FS$LLP = 000001 #4-112 4-112
FS$LOF = 000001 #4-112 4-112
FS$LOG = 000001 #4-112 4-112
FS$LST = 000001 #4-112 4-112
FS$NET = 000001 #4-112 4-112
FS$NST = 000000 #4-112 4-112
FS$PAS = 000001 #4-112 4-112
FT$CNS = 000000 #4-112 4-112
FT$NOD = 000001 #4-112 4-112
FT$TSK = 000001 #4-112 4-112
F$ALBF = 000001 #4-112
F$ALCB = 000001 #4-112
F$CB = 000017 #4-112
F$CLCL = 000001 #4-112 4-112 #4-112
F$CLCO = 000000 #4-112
F$CLFL = 000000 #4-112
F$CLLK = 000006 #4-112 4-112 #4-112 4-112 #4-112 4-112 #4-112 4-112 #4-112
4-112 #4-112 4-112 #4-112
F$CLLN = 000002 #4-112 4-112 #4-112 4-112 #4-112
F$DPOS = 000001 #4-112 4-112
F$DUMP = 000000 #4-112 4-112
F$EVNT = 000001 #4-112 4-112
F$EXAM = 000001 #4-112 4-112
F$EXHO = 000000 #4-112
F$GTCM = 000001 #4-112 4-112
F$INCM = 000000 #4-112 4-112
F$INLU = 000001 #4-112 4-112 4-112
F$IRLU = 000000 #4-112 4-112 4-112
SROPIN CREATED BY MACRO ON 13-OCT-79 AT 12:35 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$LKLU = 000010 #4-112
F$LNLU = 000002 #4-112
F$LNSR = 000001 #4-112 4-112
F$LOAD = 000000 #4-112 4-112
F$LOGD = 000001 #4-112 4-112
F$LOOP = 000001 #4-112 4-112
F$NTCM = 000000 #4-112 4-112
F$OPCL = 000001 #4-112 4-112 #4-112
F$OPCO = 000000 #4-112
F$OPIN = 000000 #4-112
F$OPIR = 000000 #4-112
F$OPLK = 000005 #4-112 4-112 #4-112 4-112 #4-112 4-112 #4-112 4-112 #4-112
4-112 #4-112
F$OPLN = 000002 #4-112 4-112 #4-112 4-112 #4-112
F$OPLO = 000000 #4-112
F$OPOR = 000000 #4-112
F$OPOT = 000000 #4-112
F$ORLU = 000000 #4-112 4-112 4-112
F$OTLU = 000001 #4-112 4-112 4-112
F$RCBK = 000002 #4-112 4-112 #4-112 4-112 #4-112
F$RCEV = 000001 #4-112 4-112 #4-112
F$RCIN = 000000 #4-112
F$RCMA = 000000 #4-112
F$RCMS = 000002 #4-112 4-112 #4-112
F$RDBK = 000000 #4-112
F$RDCM = 000000 #4-112
F$RDIN = 000001 #4-112 4-112
F$RDIS = 000012 #4-112 4-112 #4-112 4-112 #4-112 4-112 #4-112 4-112 #4-112
4-112 #4-112 4-112 #4-112 4-112 #4-112 4-112 #4-112 4-112
#4-112
F$RDRC = 000000 #4-112
F$RECO = 000001 #4-112 4-112 #4-112
F$RLBF = 000001 #4-112
F$RLCB = 000001 #4-112
F$STBK = 000000 #4-112
F$STPR = 000001 #4-112 4-112
F$STPS = 000006 #4-112 4-112 #4-112 4-112 #4-112 4-112 #4-112 4-112 #4-112
4-112 #4-112 4-112 #4-112
F$TEST = 000001 #4-112 4-112
F$TRAC = 000000 #4-112 5-117 5-117 5-135 5-135
F$TRBK = 000001 #4-112 4-112 #4-112
F$TRIG = 000001 #4-112 4-112
F$TRIN = 000000 #4-112
F$TRMA = 000000 #4-112
F$TRMS = 000002 #4-112 4-112 #4-112
F$WRBK = 000000 #4-112
F$WRCL = 000001 #4-112 4-112 #4-112
F$WRCM = 000000 #4-112
F$WRRC = 000000 #4-112
F$ZERO = 000001 #4-112 4-112
F$ZRCN = 000001 #4-112 4-112 #4-112
F$150 = 000002 #4-112
SROPIN CREATED BY MACRO ON 13-OCT-79 AT 12:35 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
F$300 = 000012 #4-112
F$50 = 000002 #4-112
F$550 = 000002 #4-112
F.BKDN = 000026 4-112 4-112
F.BKDS = 000020 4-112 4-112
F.DFNB = 000046 *5-129
F.DSPT = 000044 *5-131
F.FACC = 000043 4-112 4-112 *5-131
F.LUN = 000042 4-112 4-112
F.RACC = 000016 4-112 4-112 *5-131
ILUNDB 000300 R #4-112 5-119
ILUNEN = 000304 R #4-112 5-120
INFDBS 000000 R #4-112
INUSE = 000000 #4-107 *5-125
IRFDBS 000140 R #4-112
IRLUDB 000304 R #4-112
IRLUEN = 000304 R #4-112
I$$AS = ****** 5-117
LUN = 000001 #4-107
LUNDB 000300 R #4-112
NO = 000000 #4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112
4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112
4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112
4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112
4-112 4-112 4-112
OLUNDB 000304 R #4-112
OLUNEN = 000310 R #4-112
ORFDBS 000300 R #4-112
ORLUDB 000310 R #4-112
ORLUEN = 000310 R #4-112
OTFDBS 000140 R #4-112
PAR$$$ = 000000 #5-129 5-129 #5-131 5-131
R$$11D = ****** 5-117
R$$11M = 000000 5-117
SRAST = ****** GX 4-112 4-112
SRFFLU = ****** GX 5-121
SRFOCM = ****** GX 5-132
SROPIN 000000 RG #5-117
S.FDB = 000140 4-112 4-112 4-112 4-112 4-112 4-112
YES = 000001 #4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112
4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112
4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112
4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112 4-112
4-112 4-112 4-112 4-112 4-112
$$CSTA = 000000 #5-117
$$LUN = 000015 #4-112 4-112 #4-112 4-112 4-112 #4-112 4-112 #4-112 4-112
#4-112 4-112 4-112 4-112 #4-112 4-112 4-112
$$PRST = 000010 #5-117 5-122 #5-122
$$SLST = ****** 5-117 5-123 5-124 5-133 5-135
$$STIX = 000777 #5-117 5-122 5-122 #5-122 5-122 5-122 #5-122 5-133 #5-133
5-133 5-133 #5-133 5-133
$$STNM = 000000 #5-117 5-122 #5-122 5-122 5-123 5-124 5-133 #5-133
SROPIN CREATED BY MACRO ON 13-OCT-79 AT 12:35 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
$$S776 = 000000 #5-122 5-133
$$S777 = 000000 #5-122 5-133
$$TRNM = 000000 #5-117 5-122 #5-122 5-123 5-124 5-133 #5-133
.OPEN = ****** G 5-131 5-131
...PC1 = 000140 R #4-112 4-112 4-112 4-112 4-112 4-112 #4-112 4-112 4-112
4-112 4-112 4-112
...PC2 = 000300 R #4-112 4-112 #4-112 4-112 #4-112 4-112 #4-112 4-112 #4-112
4-112 #4-112 4-112 #4-112 4-112 #4-112 4-112 #4-112 4-112
#4-112 4-112
SROPIN CREATED BY MACRO ON 13-OCT-79 AT 12:35 PAGE 5
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #5-121 #5-132
CASE #5-117
CBYTE$ #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112
#4-112 #4-112 #4-112 #4-112
CMOV$B #5-129 5-129 5-129 #5-131 #5-131 5-131 5-131 #5-131 5-131
CMOV$W #5-129 5-129 5-129 5-129 #5-131 5-131 5-131 5-131 #5-131 5-131
5-131
CONDF #4-103 #4-108
CONFIG #4-112 #4-112
CWORD$ #4-112 4-112 4-112 #4-112 4-112 4-112 4-112 4-112 4-112 #4-112
4-112 4-112 4-112 #4-112 4-112 4-112 #4-112 4-112 4-112 4-112
4-112 4-112 #4-112 4-112 4-112 4-112
DO #5-117
ELSE #5-117
ENDCAS #5-117
ENDIF #5-117 5-133
ENDPRO #5-117 5-135
ENDWHI #5-117
ERR$ #5-131 5-131
FALSE #5-117 5-123
FALSEB #5-117
FDAT$A #4-112
FDBDF$ #4-112 #4-112 #4-112
FDBK$A #4-112 #4-112 #4-112
FDBSZ$ #4-112 #4-112 #4-112 #4-112
FDOFF$ #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112
#4-112 #4-112
FDOP$A #4-112 4-112 4-112
FDOP$R #4-103 #5-129 #5-131 #5-131
FDRC$A #4-112 #4-112 #4-112
FDRC$R #5-131 #5-131
FLUDF #4-103 #4-107
FLUMDF #4-103 #4-112
IF #5-117 #5-122
JMPPRO #5-117
LDFDB$ #5-129 #5-129 #5-131 #5-131 #5-131 #5-131
ONCASE #5-117
OPEN$ #5-131 #5-131
OPEN$R #4-103 #5-131
PROC #4-103 5-117
PROCLC #5-117
PROFLG #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112
#4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112
#4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112
#4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112 #4-112
#4-112
RESSTK #4-103 5-134
SAVSTK #4-103 5-118
SRDF #4-112 4-112
SWSTK$ #5-117
THEN #5-117 #5-124
TRUE #5-117
SROPIN CREATED BY MACRO ON 13-OCT-79 AT 12:35 PAGE 6
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
TRUEB #5-117
WHILE #5-117
$$BGND #5-117 5-123
$$BGNN #5-117 5-123
$$ELSE #5-117
$$GEN1 #5-117 5-117 5-123 5-124 5-133 5-135
$$GEN2 #5-117
$$GNAB #5-117 #5-123
$$GNBT #5-117
$$GNCM #5-117 5-123
$$INMC #5-117 5-117
$$INSY #5-117 5-117
$$LAB #5-117 5-124 5-133
$$POP #5-117 5-133 5-133
$$POPI #5-117 5-133 5-133
$$PUSH #5-117 5-122 5-122
$$STSM #5-117 5-122 5-122
$$SYS #5-117
$$TRCE #5-117 5-117 5-135