P *JOB,INSTAL,ASSEM 11824P P *CTO, 1700 MACRO ASSEMBLER 3. 11825P P *CTO, COPYRIGHT CONTROL DATA CORPORATION 1978 11826P P *K,I6 11828P P *LIBEDT 11829P P *V 1700 MACRO ASSEMBLER 3. 11835P P *K,I6 11837P P *L,LIBMAC 11838P J P ILIBMAC DECK-ID A11 MACRO ASSEMBLER SUMMARY-162 J 6 @P uS* 2 *S9f1< 6 r @P `
f
q
a UU aa
a a
a hTF a 8 K T \ r r @P +@ `T T
aT n $- !# X[ 4#
1
3 a
dn r r @P V T 0 ` a `T 0 2
X' TL
aT H
` r r @P T T `X TT
H
a TL `
a
a X
T r r @P T
?
a
f 6 4(
a4
u
Ha" ( r r @P |
I
S
Ga
uR
u
< a A
@MA CSKL END . TYPE (CR).
r r @P
c
q T
w AB
Q #, 8 "E 2 1#U
K
r r @P -
a c Q C
!A A T A
c
q a r r @P X
2
aX
3
4 T a 2
DT f
n
n
A . ld
r r @P a T Xt n
n A TT A J "a
1J
XS
(
! T
aa TT
x r r @P
aa T2T# TT T3 aT; ' a T"
A
q
B r r @P T"
C
9 a X X
n
a
A T r r @P
6
5T
ԑ
7
q 2
8 n T !T
aa X r r @P /T X!1X1 X/ a
R
H
a
Ȁ
"f"
a
a T r r @P Z
a
auD a
Q
U $
f"
H
a
Xh
aTH ( r r @P 2
n "A3 ` ah
(f
q aa F r r @P a
? a c
A c
q D T
"A2
0 0 `" X > r r @P ` B1 aX a
E (
f f
q 0 h X $ XT
r r @P hHT L L IBMAC ER ROR 00 h
H
a TL ` h
H
aTH r D @P 1 `
aT \ D
PLIBMAC
PLIBMAC P *L,ASSEM 11840P J P { aASSEM DECK-ID A01 MACRO ASSEMBLER SUMMARY-162 J r @P k
d f pf vB
0 h
hh5 ph v hTZ N r r @P +" f o f uX ' h TL ABS BASE ERR 6
hPA SS1 PASS r " @P V2 PASS 3 TABLST XREF " PASSEM ASSIM PASSEM P *K,P8 11842P P *P,F 11843P J P
PASS1 DECK-ID A02 MACRO ASSEMBLER SUMMARY-162 J r @P k
d C f f B
0 h
hh5 h hTZ N r r @P +" f f X ' h TL ABS BASE ERR 6
hPA SS1 PASS r r @P V2 PASS 3 TABLST XREF
d d C d M l d d l2 r r @P d ` B
f
q d L Ja a a! d Ia
a UUaa ad hnh r r @P h d X *
0 c1
q\KT : 5 > Cd H
f D
q 8- r r @P
-n= +n; \KX l \"\5 4#
dn T ! a"
a
r r @PT \ B " k
+n
- n
+n
-n "aT (Ud K r r @P - A( "( d QI ( !
d a( -n( + n* 6 X&" # r r @P X
b a* *
q (
b R tX \ ,n ( +n r r @P X c a - # n
q
#
q 2 T T Q
J
a r r @P a
a
A
a'' X ' `a'T Q
C
a 4Z |
a
a r r @P X&
XV XT
? $
a #f # , 4$(
c
c
4 h r r @P
u
Ha ( M|
I
S
G a
u R
u
*nX ! X r r @P\ `T a " A2
0 X
!" \ Xha ! a' M' M " r r @P "h)E * n )X' H h D h
a TL
SQ MCMDOP** r r @P ** ** ******** A( 2( :c(( a-
a(-
A) *+ , X
(
r r @P f f
q a)a* #F a(
? # (a( &c+
A (c#
q TL r r @P
MA SS STORA GE OVERF LOW $ ? #f 6 4$(
a 4a !d r r @P 5 Q ]^_ QAII IIII IIL\L] L^L_LQLA LIMMM MMMM r r @P ` \ ]^_Q AI 02\2] 2^2_2Q2A 2IN\N]N^ N_NQNANI >\>]>^>_ r r @P >Q>A>I ==== === . .
. % %
% ' '
' , ,
,ME M\M]M^M_ r r @P MQMAMI ϞLa e n %L0L
L~0 N 6ɱ~ N)JH/ Nl%> 9% %.%. NS r r @P 2SE 1L.L0 L-N:N.N0 N-NNM MNMN MOOO OOOO OOOO OOOO O 000 r r @P K
RA RMRQRBPa PmPqPb- 1"-1 "0-010" - 1 "# ```` ``]1 ^Jc ^IN|N} |}R2G r r @P 7NGM/N P c
AA 2m5LM MMLL $b t /|X 5
4 r r @P b
s S; : $$& 2t@o$ 9NT r r @P r r @P r r @P P PPPP PPP Ώ6A ]p#^g 5g 0@P `p r r @P @ P ` p 0 @` @ `HPX (08h px r r @P 9 @`
r r @P d
0 hJHJG H?h> _:n:
q H66T r r @P ` "0 h
A &
`# 4 Z dnT L
O V CORE R ES. MACR r r @P O DIR. ? r `P r PPASS1 aMCHPR 5JJAN12PIL MREADIMGETOP RECV MER MDEX CHPU CONAC wMACER PUNT RIMSB r * PP1D SKLOUTcCONAB P1A READI F* r PGFILE MACROSMC7A MCCON MCNAM DISKW5 DIRSCHSLMC 8MC5 CO RCO DMACCALDIN ENDMACr B PMACCON MACGETMACDEF OPT DOUT ^GFL1 GTFIL MAXSEC kB PPASS1 J P PA1PR2 DECK-ID A03 MACRO ASSEMBLER SUMMARY-162 J r @P a( A)@ # 2 d ,
C
1`
R2
C
` a r r @P +
a T sT \y a X #f
$n
%n
A . l`
aT / r r @P VXp n
nA
h\J\J\J A
J ! 1 D XL#X p
a aT 3 r r @P 3T $X \* \3a( \: '(a( \ 9 (
qJ \9 r r @P <a. X. h
n
a
A T U $ $
\ r r @P
#
q 1 #n X ! \ T 0 a A a \\\ r r @P 3
a a X\ X"1X1 X0 ah
R
H
a Ȁ r r @P - n aa T
aat a
Q
H
U $
n
H
a
r r @P Xa(
a \( Aa h ahy
_ nv
q a6a lo nk
a
T R
r r @P % *! ] \
A\W = a
\X "Z2 6 A ? _a6 r r @P
a
4 Q \
aa a6a X m8 A 6 r r @P *
n #c.
q :
Xi
a
* n
" jX "
" _ r r @P nb
q ^ah
[XE E ( 2( 2 A :c(( a+
a(+
A* a()X)( X'
X% r r @P / a a( @ *n
a (9T #.
r a \ a G a
a
R r r @P Z
_ n E 0 aXU a lT a
a a \!6 S r r @P
* \ X , T 4T 31 \
a7X a a6X6 R\6 6 \ r r @P 1 T X 7
7a ( !" ȟ\%
X
`l r r @P h
q a a
X "
A" T 1 H aF
LX H
_H h r r @P h
aTZ ; MACROS h
H
aTL ; `
`h r r @P 1 h
H
aTH ; `
f D
q a \)x
Q
B
! TL r r @P\
(n
q
a TH ; ( ` a
a T aGETOP r " PREADIM PIL JJAN12 5MCHPR " P J P NXTLOC NEXT AVAILABLE LOCATION J P P *T 11847P P *K,I8 11848P P *N,PASS1,,,B 11849P P *K,I6 11851P P *K,P8 11852P P *P,F 11853P J Pv PASS2 DECK-ID A04 MACRO ASSEMBLER SUMMARY-162 J r @P k
d f kf qB
0 h
hh5 kh q hTZ N r r @P +" f j f pX ' h TL ABS BASE ERR 6
hPA SS1 PASS r r @P V2 PASS 3 TABLST XREF t ` a # a
a7 a8a a9 aa=T = 0 r r @P `A a? a>
c@
q @aF AIT
a h 8h 7 h 6
cD
q ahX
! r r @P
al rA 0h!d
Bar
a8r 9
A9T ) a
an hi r r @P Xc r `P 8 r @P : TL
7
a7FAg AX Aa **aa c B
T
agaQ * w r r @P e n q 9T
aV 2V : cVVa[
aV[
A WX Yȅ Z
D 7
D r r @P DSEX LBPPOPRG RLOVUDMO X i\UQA^ m \J \I Fj$c:
q # r r @P
j
r
*n n 9T l r `P
r @P C \\ " AZ
q
al al\ m
H lAa4 aBX e r r @P
aXaYM\
C
aM X YYa1 \Ya !\ XaW\AX l %
BZ W r r @P I X D
R T L B F V\L
ak\m 1X %m 8\
akj\ B
amX r r @P tm
aj $T T X m
a T
a a\` r r @P \ \ea m
A ' 1 a\< am 4 aT r r @P m 1 aj\7 h"
c M
aXd aZX P a 2a\ h r r @P aMT am
aak T B cm 4B
kT ma^A B
r r @P $ 1qF aq 4o
aM AA
cVB
T l alM r r @P K\A\
D
B
Q"
Q 1
a3 \\ VcV
aM\
am a r r @P v V
V
r" ]^ q 4 btc qFa o ao q T m i\ r r @P m aq
cP
q ART aQm \Am 2\
aQaRa +A^ F 3S r r @P 0 _Q-C aaaQ( \$
UT 1 L \ aQ` daa\
ahaR aRT r r @P RQ C SbA !
Ac
R
aQ D
TB r U cUc m
Ac1 1q*a r r @P "A RaR
a aQm
t
AS
aQ U
U
QAc Q AQc
QaUa r r @P MaTQ GU AU a!T" 4 "Bc aa T 1aC aC
T ahd r r @P xCaC & T C Q X
C aC ]cF
q Q : r r @P
d
`d T C T D X
8c
q h
H
a8T L X r * @P 8 c
d
D 8 * r PPASS2 aPCO nIFR ASSEM NEXT PRNT ER CCOT COP MOVE UP1 UP2 ADC ZEIF r r PALF NUM jDEC ~VFD IFA IFC 5EMC LST NLS NAM1 NAM AXPR NAMC PUNC r r PDSKWLNIMJ SYCH RESTBLTBLIN D5 CHPR sRECV CHPU DD1C N2 OB DOUT DIN r PLBPK SYPT ZSYTAB } PPASS2 J Pv PA2PR2 DECK-ID A05 MACRO ASSEMBLER SUMMARY-162 J r @P" F ] U H
H% Ac `d d c` >b A
w r r @P +
R R ] HB h7F
d \
J L .
X T T r r @P V
E T T 1 X X I a X U HI
df
CwF F r r @P 1 > ? ! 7 c
qTL =h >T j a
a>? r r @P a>a@a@ XN MASS STORAGE OVERFLO W > @A X$
>a =h >T j> ?a>=h r r @P >T ~
A
@ > a=h >\= h @ A>\ hh = r r @P
f
Af
d \A T Z
alk\% - " \ aF CT ^ r r @P -m qv n(! oC \/ik T A a mT aN
aO + r r @P X - b
aO# k aT AbCT 7maNO
g # H0XY. N*
a r r @P a O
Q
A , o T t
d T T n $1p r r @P + Nq - I aq T Qp [ i U Aq T
Ap l
l
q
H r r @P a $ ({ JM
Ii
S
Gal
uR
u
< am Ai
@
r r @P ;
ag
c]
q \e
m
y AmA
eh PYe = ! r r @P /' 8 &Y Aec_A B
A`
J
a 3m m]c]` dB 1)
Taa
r r @P Zae
Qamd a m j sAa yAa uasm q T
amT Am
r r @P c]
qg
akaPg] ~Q^ hc `C
! A`Vb bk Ab ab S_P r r @P A b^ hOC
L3 3 cVd SO \f Uo r r @P
V #AA h maN
O
M
D
r r @P B
S X Ri EX' gEAaJ R" cAJ
AQ X 56Q \FU XK RAF \D r r @P 1h
aR \4 B m
q> X 8aJXJ 6R\( 3^0 h
C \ ^ r r @P \m 1
aRaQ T y e 7 ) k\
aRaQ m \_^ r r @P \X Zm \ \ \
B \
GK IN X 1 \
b r r @P Iah IFf
q X
h N
$ #bX Q\ \
Q b \
r r @P E \ T X 1\ \ N aC aaQA A nak T k
B
q VCQR r r @P AA aCQa @F=h aX T N T h c
q PAA ABAC A %HGA T
`hB r r @P 3
aAaB aC7 0 c
q
al
a a9
cD
q
a
a7 **c r r @P ^B
NNaT m7 h
H
aTL `
`h h
H
aTH q ` r r @P
` h
aGaH F aF
? F aF
H 6 cF
B
P r @P C D X -P-C-D r @P hH h ` h `1X& d hf
D h h ` 1X hf
D r J @P hh ` fT j
d h f ( d f J r PZSYTAB SYPT 7LBPK DIN ~DOUT jOB `N2 6D1C CHPU RECV CHPR D5 UTBLIN RESTBL r PSYCH IMJ DSKWLNt r PPUNC 0IFR PCO NEXT ER NAMC QPRNT eAXPR NAM NAM1 NLS LST EMC IFC r j PIFA COT COP ASSEM WVFD DEC NUM ALF EIF ADC UP2 sUP1 rMOVE tj P J P NXTLOC NEXT AVAILABLE LOCATION J P P *T 11857P P *K,I8 11858P P *N,PASS2,,,B 11859P P *K,I6 11861P P *K,P8 11862P P *P,F 11863P J Pv PASS3 DECK-ID A06 MACRO ASSEMBLER SUMMARY-162 J r @P k
d f kf qB
0 h
hh5 kh q hTZ N r r @P +" f j f pX ' h TL ABS BASE ERR 6
hPA SS1 PASS r r @P V2 PASS 3 TABLST XREF f jd i h Ȅ i d id g
aa8 a5a6 h TF r r @P a ` T $ 1 8 h
h
$h 1 hh
T adh r r @P T
cD
qah d
8 "T X/q^ # T n& T
al r r @P
aV 2V : cVVa[
aV[
A WX YȁZ
rA 0h4d
Bar r ,9 r r @P
A9T )$ a
an
c
A
y2t tA " XAa n r `P - _ r @P 8 o T m T T T {
aaa 8 U J\" A
A a P r r @P a A \ Q P C D X-P-C -D C T Aa aX
aGaH F r r @P aF
? F aF
H > cF
B
8 ìcs
q S
h 7
l r r @P
\
h X y5 X d
T
h D sX X
8g
q hH
X T r r @P 8Ȓ1X
a8TL U a @PA ACA AdX eJ c a X 0 r r @P cAc aT 8 aec
r dQC
T c
dX e
AT
a Ac r r @P @
q
: E V
B c`V WXȁY 0c
q gA r r @P
a
X X
aTL ] s X h
A
H r r @P h= 0 j7
q
a TL ] # hT #hr #oa r r @P ZAg ** aAX AaX
aQag HU r `P : h @P Uc
d
D 8
D
D 5
D 6 DSEXLB PPOPRGRL OVUDMO** **** ** ******** h r @P } F ] UH
H% Ac `d d c` > b A
y
r r @P R TX > @AX
> a> ?a>=d >T
r r @P
A
@ > a=l @A>\ T
alk \5 T
aF CT ^m r r @P q nq go " A ao X o i kT Aa r r @P ) \m T aN
aO + aO1 - k , AJ m O
maN g r " @P T "T . i " r @P b hH h ` h `1X d hf
D h h ` 1X hf
D h` r D @P
`d 5 fT 5
d h f d f D r PPASS3 aPCO PCOSET PRNFLG PJECT JJ5 CARCON NEXT STATUSEND WDPK LDCP RECV PUNC r j PRBPK EUNCP {PRNT WRIT ER CO UCOWR aCORD eOE )SYCH IGNORE TBLIN RESTBLj r PDISKW5OFJ2 SKPROCDISKR5MAPR ^REGP MN3 BCHPU YMOVE DOUT CHPR #DIN EJECT RP2 r PPASS3 J Pv APA3PR2 DECK-ID A07 MACRO ASSEMBLER SUMMARY-162 J r @P n% 1p +q - aq T p [i UAq T
Ap l
r r @P +l
q
Ha (K zM
Ii
S
Gal
uR
u
< am Ai
@
r r @P V ; $*EJ\ l
c]
q \u
m
y AmA
eh PDr
r r @P ag_e > ! ( 9 'Z Ae _A M
A`
J
a 3m m]c]` dB r r @P 14
Taa
ae
Qamd a m j xAa v
Aa {a xmu r r @P bA 1 T #
agT ( Am
ahd c]
q g
akaP ^g] kQ^h D r r @P `C
! A`Vb bk Ab ab Yj _
aPA b^ hh r r @P -OC
L3 3 }
aPA dX 6 5 2 1 r r @P X
ae YO & & o yX f Uo
4h A?`~ r r @P.% y hm aN
M
D
B
S X i EDX &+EA aJR"P r r @P cAJ
AQD XYZ QaJw XkRAF \eh
aR \U B m
q^ [E X1 r r @P aJW \?E\C R\DU
aJ\: \ (# f!$ "\ "A\
r
q l al\ r r @P m
Hl Aa! a
a\M\
C \
h8X "\E I AM\ am V VaJ r r @P \\\ \6 a aa
aVXV aV\2 Q R T L B F V
M\ r r @P u
C l 8 G Al\d a\
\
D
:
aM T ( Am m D
:l r r @P 1 al L
akT hP FT N1 AP TQ aQR CaR
h RAh EB r r @P\aJT
akj \5_m ,ab ad Aj EAaJ \ \
h a
aak\K
r r @P ah\
h @ cm4 B
kT fm a^A B
$ r r @P 1
h q Faq 4o
aMAA
cVB
T ( l alM\ r r @P A\
D
B
Q"
Q 1
a3\ \V cV
aM\
am a r r @P V
V
r"] ^ q 4 btcq Fa
aM o ao a q T f r * @P 3m i\m aq * R PEMC1 ,CHPR fDA1 DA3 `DA4 7CHPU (ALFSB2SKPROC N3 OFJ2 R r PRP2 FAXPR 8PCO M2J5 [M1 ^RECV RESTBL_TBLIN [IGNORE$SYCH 'MOVE &UP2 %UP1 PUNC r r PUNCP RBPK NEXT -PRNT WDPK LDCP OE EJT SPC NLS LST VFD tDEC END {r
PER ?
P J Pv zPA3PR3 DECK-ID A08 MACRO ASSEMBLER SUMMARY-162 J r @P
a X p
a d :jOB
p B0
0 HRB8 r r @P +
KHJ 02 hB " "hL
""hD ""B /h>
/H9 e #T d r r @P VX
\X \X PAGE 0 r r @P DATE: MO/DA/YR
a X G T T A aaR 2
aR\ R aR r r @P
h cP
q ART aQf S m \m 2 \
aQ aRajA ^F 3S r r @P _Q C aaaQ Ys \n
\ \j
A T 2 \V L aQ` Yd r r @P BA aa\BOP m .S +b N2L 3 L aQ̲b KN P ̂b` r r @P -daR CL T `db
LSOa aha@ =h >X T RQ aRQ m Sb r r @P XA !
Ac
R
a Q D
TB rU cUcm
Ac19 q2a RA RaR
a r r @P aQm
SAS ,
t
AS &
aQ U
U
Q Ac Q v AQc
QaUaaT r r @P QG U AU a!Ta " 4 #B ca aT B!1a Q r r @P X
C aC ] cF
q Xa
a
b
R
R
R r r @P ll
r la !(
h qah H h h 4h 3h H 2 j r r @P /,B
X X X X
q X X ) @
h?h@h@h= h?h X= r r @P Z6Q
S6 (
A -XA]A^ A_A`' ` q!
c`c` `
H
^ C} r r @P 4 2H
h X mx V < 3
h4 . & r r @P 9 C
" A% /
. ; X D H H HO
b& r r @P RعI ȯ `
!A` T T
TT ; Lh `dh T H
a " ȏ r r @P h B H"Ȅ ( Y {
8 wh 1%
. r r @P 1h-R d #h" h D j H
f r
G Dh
h r r @P \ + H
H T4s
a
[] Kt aK
h
K r r @P taK
O
r N
b aN O
jJ aK СJ aJT f QEN 3 r r @P m O
r NQ;
KP )Q r hϱRaR 0aQRC r r @P gO
a aR aRO &N R aRR !d 2 O 3 ͱJ aJ 2 h r r @P
O 3 @JaJ NRr D L O
qj hg
hcQ hd
aUaQ
am XT r r @P 3a T RAm#T a M JtaJ
amm
a ?\a < JtaJT
Q
A 1 x r r @P ^ +m
aQaU
u caK
h f
a T 6\ a
Q l
Al \a
O J taJ r r @P aK
hQ AU AQm O
Q
Q
Q4 O ! \ ( r r @P
JaJ\
am \ R \\\m Ȯ
KaJUaQ r r @P ȪaKȩ aUȤ h Q D \RO
eKaK
hJ aJ\m RA !d am
r r @P
R Y
CQ LQY C aR! QaQ R 2 \ R JaJQm i \ T r r @P 5 AWAXAZ V CVJ AJ\ \ h
H
a5T L r r @P ` h
H
a6T H ` 6
` h
a aJ
aL
aaPaQ aajahT 3S r r @P T
a aaP
a Xr
aja T m aa J8 3 r r @P j
aNT a of h E \
a
i
C aX5m r r @P 2 1 j\E \
a aba daj"
c
aT AX j T r r @P am
P
Q
U C T
"qR A
C b r r @P 7AV aV R!A A
a C
AJaJ aT T T
aJ r r @P b
cV
qX7 ab g T 'm \. aaabX5 aamB
R
C
Z A\XaVX% \T"
r r @P qV ad\cW m 7 B " T
l al
a] ae\e 2 2] r r @P
S a]eam
]z A]v ]tmr A] a/X !I Ae ! A\< eQC!a r r @P Q! aaX\aX X WdYZ !aV 2
a VCA
aaba adaJm
amT Ud r r @P aV % aVE !
d 'daX Ae 2Z aVa2 YY
AY 1V J r r @P 9
aN
akaK aULT m
amhP R \ oQaU
aQRaK H ) h
h
r " @P dO6 3O " `P q r PM2J5 DEC bVFD yLST NLS SPC EJT AXPR MOVE MAPR UP1 UP2 M1 EJECT r 2 PDIN eDOUT VREGP ,DISKR5oDISKW5`RP2 U2 r POE cOFJ2 PCOSET PRNFLG COWR ]CORD lIGNORECO NEXT STATUS CHPU ALFSB2RBPK YLDCP Wr r PDA4 DA3 DA1 SYCH RESTBLTBLIN CHPR PRNT ER nJJ5 SWRIT QCARCON UPJECT EMC1 r P J P NXTLOC NEXT AVAILABLE LOCATION J P P *T 11868P P *K,I8 11869P P *N,PASS3,,,B 11870P P *K,I6 11872P P *K,P8 11873P P *P,F 11874P J Pv TABLST DECK-ID A09 MACRO ASSEMBLER SUMMARY-162 J r @P k
d f kf qB
0 h
hh5 kh q hTZ N r r @P +" f j f pX ' h TL ABS BASE ERR 6
hPA SS1 PASS r r @P V2 PASS 3 TABLST XREF hA
a8 a5a6a
hA TF a /
h* r r @P T F a
h 1 h
h
$h i h }` X 8 8 r r @P X h T h cB
X: \X5 CT $Hfhf r r @P C > T A\ HhhhA I\B\ HkhkB T\
h 7 !\ X \X
d
h s r r @P H X H XH XH nB
h HH 0F
0H r r @P - 0F
0 PGM= ( ) CO M = ( ) DAT = ( ) r r @P X
Pa 5
1 X T 1T
a D
AT
aa Pa r r @P !aX \1 \C
A\ Pa] a^ ]X FaG aHa A\ X 7 uT r r @P d X
a
aa aT 3 aX T A# aT
aX 1T = r r @P a\X Aa a a a \,, ac
T
X a FcGc HcT
1AT r r @PdT $ AVac V c
C
# AaAa\ LX 3 &
8c
q X=X< Ia r r @P /
c
A
X X
a8T \ { 8 \4X & !
aT\ r r @P Z ! X y X s
a8TD { 8 ERRORS *T ah
H
T aF aF r r @P 2 had ahFc
Gc
Hc
h c
D
8 A A 9AX r > @A X
r r @P > a>?a> =h R >T
A
@ > a=h 8@A>T r r @P g A
X XU
aTL X h
= r r @P A
H h8 0 j5
q
aT L I Ac @
q
:E V r r @P 1
B c `VW XȁY 0 c
q r `P \ r @P {c
d
D 8
D
D 6
D 5 ****** ****** **** P C D X-P -C-D
aGaH r r @P F aF
? FaF
H 6 cF
B
aV 2V :cVVaZ
aVZ
r r @P AW XY 8 5
ì cs
q h H " h
a5TL r r @P h
H
a6T H ` 6
` h
h Q 7
d T P r r @P 'XXX
h T D s X
8 c
q hH Xȩ1X
a8TL { r r @P RAg **aAX bAaX x
aQag H * DSEXLBPP OPRGRLOV UDMO r r @P } h }h X d
a ( X d g hH
aTL r r @P 5 hX h p
a :jPB
pB 0
0H RB8
K r r @P HJ 0U hB " "hL
""hD ""B /h>
/H9 h $X ,X r r @P X / X PAGE 0 DATE: MO r @ @P )/DA/YR * ** S Y M B O L T A B L E *** @ r @P G h (
a h i
`h iH h `
H f j ( ` hh r r @P r @ g ? g
d
d h h + 8 l d i hh r r @P h6 f j `h `h j i X O i h
` b h
H ~ r r @P i` h52 b
2
`b ` c ! i ` g
a
( " r 2 @P h A ! `
2 `P `P r @P
h h
h
hX e
h` &2 1 d
h "
r r @P 8H" f
h Ⱦ Ƚ @ e
hȪ` ت12 r r @P cȤ !' ȡ"Ț
H" f " ` b h
h r l @P { u h r p h c h b H d _
^ h [
h T _ l r @P ` X h H h H X ( X ( X 29 X vF f Gf
Hf r r @P IaK X 7] f
^f h Ę( 1
$
A X HX e r * @P
X X ]
h \ B * `P r @P HK B!K dBaK
hK 0
aKp 0 c]K 0
aK
h 0 ]c]C
H ]
- r r @P Ha]
h aGaH F aF
? Fe F
H 6 e F
daI h _ r 2 @P s f
q _
f
q 2
PPASS4 a
PPASS4 J P NXTLOC NEXT AVAILABLE LOCATION J P P *T 11877P P *K,I8 11878P P *N,TABLST,,,B 11879P P *K,I6 11881P P *K,P8 11882P P *P,F 11883P J Pv XREF DECK-ID A10 MACRO ASSEMBLER SUMMARY-162 J r @P k
d f kf qB
0 h
hh5 kh q hTZ N r r @P +" f j f pX ' h TL ABS BASE ERR 6
hPA SS1 PASS r n @P V2 PASS 3 TABLST XREF TF a
h
$h h 1 h 8 n r @P `
a i
`h i Hh `
H f j ` hh؈ @ r r @P g: g
d d B d ih hh 6 f j `h 0h j iX r r @P i h
` b h
H ` gh i` $ ` ~ r r @P 1W h s `H p X h X c
daK X y ]f ^ f U X F r r @P 2f G f Hf IaJaK X
D f Ef (f KX P ]f ^f _f () f X r r @P ] i` $ ` 1@ h
`H X hX
r r @P daK X ]f ^ f X " F f Gf Hf IaJX 8
Df Ef X
b r r @P` g i` 3 ` 2 ? h `H X ;h r r @P X '
d aK X ]f ^f X Ff G f Hf IaJX
Df
Ef r J @P X ` c
h o ` h
` c17 J r @P &h `d @ aK X k , f ] f ^f
H A" d d
" r X @P QX HX Ȯd ` X ` B X r @P r i` h b
2
`b ` ! i ` g
a
r 4 @P " h A ! ` 4 `P `P r @P h h
h
hX =
h` &2 1 d
h "
r r @P H" f
h Ⱦ Ƚ @ e
hȪ` ت12 r r @P
Ȥ !' ȡ"Ț
H" f " ` b h
h r l @P 8{ u h r p h c h b H d _
^ h [
h T _ l r @P a ` X h U Hh S HX :: X AF f Gf Hf IaK X ]f r r @P
^f h ̘ 1 $
X f HX W X [ r r @P X N "X H
a kd (X H b 1 /
aT\ ! " aK 2 r r @P X L X ]h) ^h(X
X !
h
X
X
X c
q r @P
r @P ERROR S "Je X X
X X X X ! X a X X r r @P > X X X X AD hc DRha ESh ^ S h\ ! X a X X X r r @Pi X X X } VAh9 LUh7 E h5 h3X
a X X e E Q U I V A r r @P L E N C E S - -------- -------- ------ DEF.LINE NAME VALUE REFERE NCED AT r r @P LINE N UMBER S Y M B O L S ------- ------ E X T E R N A L S *** A L P H A B E T I C r r @P A L S O R T O F S Y M B O L S *** _
f
q _ f
q hH r r @P
aTL 5 hXh p
a :jCB
( pB r r @P @0
0 H EB 8
>H= 0i h5 " "h?
""h7 ""B /h1
/H, r r @Pkh t $X X PAGE 0 DA TE: MO/D r @P A/YR
D r @P HK 0
aK p 0c] K 0
aK
h 0 ]c] C
H aGaH F aF
? r r @P Ȣ F e F
H 6 e F
daI h J 2 A : cDJD 2 A :ȃDcD r T @P E
J HaJ h
H
a6TH ` 6
`h (
D 6 T PXREF J P NXTLOC NEXT AVAILABLE LOCATION J P P *K,I8 11886P P *N,XREF,,,B 11887P P *K,I6 11889P P *N,MACSKL,,,B 11890P O1'' ',',',' EMC O0T' ',1,',',' EMC O0T' ',2,',',' EMC O0T' ',3,',',' EMC O0T' ',4,',',' EMC O0T' ',5,',',' EMC O0T' ',6,',',' EMC O0T' ',7,',',' EMC O0T' ',0,',',' EMC IFC =====',EQ,====== VFD N8/4,N2/0,X3/',X3/' VFD N4/',N4/',N8/0 PCO 2 VFD X16/' I0 IFC A,NE,A EIF I5 IFC ',EQ, IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/' PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A EIF I5 I6 IFC ',EQ,* IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/',X8/'-*-1 I0 IFC A,NE,A EIF I6 I7 IFC ',EQ,+ VFD X8/4,X1/0,X1/1,X3/',X3/' VFD X4/',X4/' PCO 2 IFC (((((',EQ,(((((( VFD N1/1,X15/' I3 IFC A,NE,A EIF VFD X1/0,X15/' EIF I3 I0 IFC A,NE,A EIF I7 I8 IFC ',EQ,- IFR ',LT,256 IFC (((((',EQ,(((((( VFD N8/4,N1/0,N1/1,X3/',X3/' I4 IFC A,NE,A EIF VFD X8/4,X1/0,X1/0,X3/',X3/' EIF I4 PCO 1 VFD X4/',X4/',X8/' I0 IFC A,NE,A EIF I8 EIF I0 PCO 0 ` EMC ` IFR ',LT,16 IFR ',GT,-1 IFR ',GT,0 IFR '+2,GT,' I5 IFC ',EQ, IFC (((((',EQ,(((((( VFD N8/5,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/'-1 PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A EIF I5 I6 IFC ',EQ,* IFC (((((',EQ,(((((( VFD N8/5,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/'-1,X8/'-*-1 I0 IFC A,NE,A EIF I6 I7 IFC ',EQ,+ VFD N8/5,X1/0,X1/1,X3/',X3/' VFD X4/',X4/'-1 IFC (((((',EQ,(((((( PCO 2 VFD N1/1,X15/' I3 IFC A,NE,A EIF VFD X1/0,X15/' EIF I3 I0 IFC A,NE,A EIF I7 I8 IFC ',EQ,- IFC (((((',EQ,(((((( VFD N8/5,X1/0,X1/1,X3/',X3/' I4 IFC A,NE,A EIF VFD N8/5,X1/0,X1/0,X3/',X3/' EIF I4 VFD X4/',X4/'-1,X8/' I0 IFC A,NE,A EIF I8 EIF I0 PCO 0 EMC VFD X8/',X3/',X2/',X3/' EMC IFR ',LT,16 IFR ',GT,-16 VFD N8/0,X2/',X2/',X4/' EMC O4' ',',' EMC O0OIS ',',',0 EMC O0OIS ',',',1 EMC O0OIS ',',',2 EMC O0OIS ',',',3 EMC O0OIS ',',',4 EMC O0OIS ',',',5 EMC O0OIS ',',',6 EMC O0OIS ',',',7 EMC O3'' ',',',' EMC O0G' ',',',0,' EMC O0G' ',',',1,' EMC O0G' ',',',2,' EMC O0G' ',',',3,' EMC O0G' ',',',4,' EMC O0G' ',',',5,' EMC O0G' ',',',6,' EMC O0G' ',',',7,' EMC O1'' ',0,',' EMC O1'' ',1,',' EMC O1'' ',2,',' EMC O1'' ',3,',' EMC O1'' ',4,',' EMC O1'' ',5,',' EMC O1'' ',6,',' EMC O1'' ',7,',' EMC O1'' ',7,5,0 EMC O1'' ',1,5,0 EMC O1'' ',2,5,0 EMC O1'' ',3,5,0 EMC O1'' ',4,5,0 EMC O1'' ',5,5,0 EMC O1'' ',6,5,0 EMC O1'' ',0,5,0 EMC O1'' ',7,8,0 EMC O1'' ',1,8,0 EMC O1'' ',2,8,0 EMC O1'' ',3,8,0 EMC O1'' ',4,8,0 EMC O1'' ',5,8,0 EMC O1'' ',6,8,0 EMC O1'' ',7,9,0 EMC O1'' ',1,9,0 EMC O1'' ',2,9,0 EMC O1'' ',3,9,0 EMC O1'' ',4,9,0 EMC O1'' ',5,9,0 EMC O1'' ',6,9,0 EMC O1'' ',7,10,0 EMC O1'' ',1,10,0 EMC O1'' ',2,10,0 EMC O1'' ',3,10,0 EMC O1'' ',4,10,0 EMC O1'' ',5,10,0 EMC O1'' ',6,10,0 EMC O1'' ',7,13,0 EMC O1'' ',1,13,0 EMC O1'' ',2,13,0 EMC O1'' ',3,13,0 EMC O1'' ',4,13,0 EMC O1'' ',5,13,0 EMC O1'' ',6,13,0 EMC O1'' ',7,12,0 EMC O1'' ',1,12,0 EMC O1'' ',2,12,0 EMC O1'' ',3,12,0 EMC O1'' ',4,12,0 EMC O1'' ',5,12,0 EMC O1'' ',6,12,0 EMC O1'' ',7,12,1 EMC O1'' ',1,12,1 EMC O1'' ',2,12,1 EMC O1'' ',3,12,1 EMC O1'' ',4,12,1 EMC O1'' ',5,12,1 EMC O1'' ',6,12,1 EMC O1'' ',7,14,0 EMC O1'' ',1,14,0 EMC O1'' ',2,14,0 EMC O1'' ',3,14,0 EMC O1'' ',4,14,0 EMC O1'' ',5,14,0 EMC O1'' ',6,14,0 EMC O1'' ',7,10,1 EMC O1'' ',1,10,1 EMC O1'' ',2,10,1 EMC O1'' ',3,10,1 EMC O1'' ',4,10,1 EMC O1'' ',5,10,1 EMC O1'' ',6,10,1 EMC O1'' ',7,13,1 EMC O1'' ',1,13,1 EMC O1'' ',2,13,1 EMC O1'' ',3,13,1 EMC O1'' ',4,13,1 EMC O1'' ',5,13,1 EMC O1'' ',6,13,1 EMC 01'' ',1,8,1 EMC O1'' ',2,8,1 EMC O1'' ',3,8,1 EMC O1'' ',4,8,1 EMC O1'' ',5,8,1 EMC O1'' ',6,8,1 EMC O1'' ',7,8,1 EMC O1'' ',1,9,1 EMC O1'' ',2,9,1 EMC O1'' ',3,9,1 EMC O1'' ',4,9,1 EMC O1'' ',5,9,1 EMC O1'' ',6,9,1 EMC O1'' ',7,9,1 EMC O1'' ',1,11,0 EMC O1'' ',2,11,0 EMC O1'' ',3,11,0 EMC O1'' ',4,11,0 EMC O1'' ',5,11,0 EMC O1'' ',6,11,0 EMC O1'' ',7,11,0 EMC O1'' ',1,11,1 EMC O1'' ',2,11,1 EMC O1'' ',3,11,1 EMC O1'' ',4,11,1 EMC O1'' ',5,11,1 EMC O1'' ',6,11,1 EMC O1'' ',7,11,1 EMC O1'' ',1,14,1 EMC O1'' ',2,14,1 EMC O1'' ',3,14,1 EMC O1'' ',4,14,1 EMC O1'' ',5,14,1 EMC O1'' ',6,14,1 EMC O1'' ',7,14,1 EMC O2'' ',',14,3 EMC O2'' ',',12,2 EMC O2'' ',',12,3 EMC O2'' ',',14,2 EMC O0OIR 7,0,1,' EMC O0OIR 7,0,2,' EMC O0OIR 7,0,3,' EMC O0OIR 7,0,4,' EMC O0OIR 7,0,5,' EMC O0OIR 7,0,6,' EMC O0OIR 7,0,7,' EMC O0OSRX 0,1,' EMC O0OSRX 0,2,' EMC O0OSRX 0,3,' EMC O0OSRX 0,0,' EMC O0OSRX 1,1,' EMC O0OSRX 1,2,' EMC O0OSRX 1,3,' EMC O0OSRX 1,0,' EMC O0OSRX 3,1,' EMC O0OSRX 3,2,' EMC O0OSRX 3,3,' EMC O0OSRX 3,0,' EMC O0OSRX 2,1,' EMC O0OSRX 2,2,' EMC O0OSRX 2,3,' EMC O0OSRX 2,0,' EMC O3'' ',',',4 EMC O3'' ',',',5 EMC O3'' ',',',2 EMC O3'' ',',',3 EMC O3'' ',',',6 EMC O3'' ',',',7 EMC O0OSB ',1 EMC O0OSB ',2 EMC O0OSB ',3 EMC O0OSB ',4 EMC O0OSB ',5 EMC O0OSB ',6 EMC O0OSB ',7 EMC IFR ',GT,-16 IFR ',LT,16 IFA ',LT,0 VFD X8/6,X3/',X1/0,X4/-' I0 IFC A,NE,A EIF VFD X8/6,X3/',X1/0,X4/' EIF I0 ` EMC ` IFC ',EQ, O0EX I0 IFC A,NE,A EIF IFC ',EQ,I O01 7,' I0 IFC A,NE,A EIF IFC ',EQ,A O01 6,' I0 IFC A,NE,A EIF IFC ',EQ,Q O01 5,' I0 IFC A,NE,A EIF IFA ',GT,4 O0EX I0 IFC A,NE,A EIF IFA ',LT,1 O0EX I0 IFC A,NE,A EIF O01 ',' EIF I0 ` EMC ` VFD X8/11,X3/',X1/0,X4/' EMC VFD X8/11,X4/0,X4/4 EMC O00 ',0 EMC O00 ',1 EMC O00 ',2 EMC O00 ',3 EMC O00 ',4 EMC O00 ',5 EMC VFD N8/11,N8/10 EMC VFD N8/11,N8/11 EMC VFD N8/11,N8/12 EMC VFD N8/11,N8/13 EMC VFD N16/0 VFD N16/0,N16/0 ` EMC ` VFD N8/11,N8/8 EMC VFD N8/11,N8/9 EMC VFD X8/11,X4/0,X4/2 PCO 1 VFD X1/0,X15/' PCO 0 ` EMC ` VFD X8/11,X4/0,X4/3 PCO 1 VFD X1/0,X15/' PCO 0 ` EMC ` VFD N8/11,N8/1 EMC VFD N8/11,N8/7 EMC VFD N8/11,N8/6 EMC VFD N8/11,N8/5 EMC IIN 0 RTJ- ($BB) VOLATILE ASSIGN ADC '+3 LDA* ' STA- 3,I SAVE RETURN EIN 0 ` EMC ` IIN 0 LDA- 3,I RETRIEVE RETURN FROM VOLATILE IFC ',NE, INA ' BUMP RETURN BY ' IF SPECIFIED EIF STA' ' RESTORE RETURN ADDRESS RTJ- ($BA) RELEASE VOLATILE EIN 0 JMP' (') RETURN EMC EXT HEXDEC RTJ+ HEXDEC HEX TO ASCII DECIMAL CONV. ADC' ' VARIABLE ADDRESS ' ADC' ' BUFFER ADDRESS ' 3 WORDS ` EMC ` EXT HEXASC RTJ+ HEXASC HEX TO ASCII CONV. ADC' ' VARIABLE ADDRESS ' ADC' ' BUFFER ADDRESS ' 2 WORDS ` EMC ` EXT ENCODE RTJ+ ENCODE ENCODE FOR OUTPUT ADC' ' OUTPUT BUF ADC' ' FORMAT STATEMENT ADC' ' NO VARIABLES ADC' ' VARIABLE LIST IFC ',NE, SAZ 2 JMP ' EIF ` EMC ` EXT DECODE RTJ+ DECODE DECODE INPUT ADC' ' INPUT BUFFER ADC' ' GORMAT STATEMENT ADC' ' NUMBER VARIABLES ADC' ' VARIABLE LIST IFC ',NE SAZ 2 JMP ' GO TO ERROR PROCESSOR EIF ` EMC ` EXT DECHEX RTJ+ DECHEX ADC' ' BUFFER ADDRESS 3 WORDS ADC' ' VARIABLE ADDRESS ` EMC ` EXT ASCII RTJ+ ASCII ADC' ' BUFFER ADDRESS 2 WORDS ADC' ' VARIABLE ADDRESS ` EMC ` EXT FLOATG RTJ+ FLOATG CONVERT TO S.XXXXXXESNN ADC' ' ADDRESS FLOATING VARIABLE 2 WORDS ADC' ' ADDRESS OUT BUFFER 6 WORDS ` EMC ` LDA- $E8 137*A002 IFC ',NE, STA' ' EIF ` EMC ` FN' ADC ' MR' ADC ' IFC ',EQ, LU' ADC 8 EIF IFC ',NE, LU' ADC ' EIF RB' BZS RB'(12) RI' BZS RI'(1) NK' ADC ' KL' ADC ' FC' ADC ' RL' ADC ' RP' ADC 0,0 EMC EXT DEFFIL RTJ+ DEFFIL DEFINE A FILE ' ADC' FN',MR',LU',RB',RI' EMC EXT DEFIDX RTJ+ DEFIDX DEFINE INDEXED ADC' FN',NK',KL',LU',RB',RI' EMC EXT LOKFIL LDA =X* STA FC' RTJ+ LOKFIL LOCK FILE ' ADC' FN',FC',RB',RI' EMC EXT UNLFIL RTJ+ UNLFIL UNLOCK FILE ' ADC' FN',FC',RB',RI' EMC EXT RELFIL RTJ+ RELFIL RELEASE FILE ' ADC' FN',RB',RI' EMC EXT STOSEQ IFC ',NE, LDA =X' STA RL' EIF RTJ+ STOSEQ STORE IN SEQUENTIAL FILE ' ADC' FN',RP',',RL',RB',RI' EMC EXT RTVSEQ RTJ+ RTVSEQ RETRIEVE FROM SEQUENTIAL ' ADC' FN',FC',RP',',RL',RB',RI' EMC EXT STOIDX RTJ+ STOIDX STORE INDEXED ' ADC' FN',',RP',',RL',RB',RI' EMC EXT RTVIDX RTJ+ RTVIDX RETRIEVE INDEXED ' ADC' FN',',FC',RP',',RL',RB',RI' EMC EXT RTVIDO RTJ+ RTVIDO RETRIEVE INDEXED ORDERED ' ADC' FN',',FC',RP',',RL',RB',RI' EMC EXT STODIR RTJ+ STODIR STORE DIRECT ' ADC' FN',FC',RP',',RB',RI' EMC EXT RTVDIR 85*2670 RTJ+ RTVDIR RETRIEVE DIRECT ' ADC' FN',FC',RP',',RL',RB',RI' EMC LDA RI' STATUS A FILE IFC ',NE, AND' ' MASK STATUS EIF IFC ',NE, SAZ 2 NOTHING TRUE JMP ' JUMP IF ANY SET EIF ` EMC ` RTJ- ($F4) IFC '
,EQ, VFD N1/0,X1/' ,N5/4,N1/0,X4/',X4/' EIF I3 IFC '
,NE, IFC '
,EQ,0 VFD N1/0,X1/' ,N5/4,N1/0,X4/',X4/' EIF I3 IFC '
,NE,0 VFD N1/0,X1/' ,N5/4,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC '
,EQ, VFD N1/0,X1/' ,N5/6,N1/0,X4/',X4/' EIF I3 IFC '
,NE, IFC '
,EQ,0 VFD N1/0,X1/' ,N5/6,N1/0,X4/',X4/' EIF I3 IFC '
,NE,0 VFD N1/0,X1/' ,N5/6,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/3,N1/0,N8/0 EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/3,N1/0,N8/0 EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/3,N1/1,N8/0 EIF I3 IFC ',EQ,R VFD N4/0,N2/1,X10/' EIF I1 IFC ',NE,R IFC ',EQ,I VFD N4/0,N2/2,X10/' EIF I1 IFC ',NE,I VFD N4/0,N2/0,X10/' EIF I1 ADC ' ` EMC ` RTJ- ($F4) IFC '
,EQ, VFD N1/0,X1/' ,N5/1,N1/0,X4/',X4/' EIF I3 IFC '
,NE, IFC '
,EQ,0 VFD N1/0,X1/' ,N5/1,N1/0,X4/',X4/' EIF I3 IFC '
,NE,0 VFD N1/0,X1/' ,N5/1,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC '
,EQ, VFD N1/0,X1/' ,N5/2,N1/0,X4/',X4/' EIF I3 IFC '
,NE, IFC '
,EQ,0 VFD N1/0,X1/' ,N5/2,N1/0,X4/',X4/' EIF I3 IFC '
,NE,0 VFD N1/0,X1/' ,N5/2,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ',EQ,1 VFD N2/0,N5/16,N8/0 ADC ' EIF 0 81*2071 IFC ',NE,1 81*2071 ADC (') 81*2071 EIF 0 81*2071 ` EMC ` RTJ- ($F4) VFD N1/0,N6/5,N1/0,N8/0 ` EMC ` RTJ- ($F4) VFD N1/0,N6/11,N1/0,N8/0 ` EMC ` RTJ- ($F4) VFD N1/0,N6/7,N1/0,N8/0 ` EMC ` RTJ- ($F4) VFD N2/0,N5/19,N1/0,N4/15,N4/15 ADC ' EMC RTJ- ($F4) VFD N2/0,N5/19,N1/0,N4/0,N4/0 ADC ' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/9,N1/0,N4/0,X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/9,N1/0,N4/0,X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/9,N1/1,N4/0,X4/' EIF I3 ADC ' ` EMC ` RTJ- ($F4) IFC ',EQ, VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 ADC ',' ` EMC ` RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/8,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/8,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/8,N1/1,X4/',X4/' EIF I3 ADC ',' ` EMC ` RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/'
,N5/13,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/'
,N5/13,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/'
,N5/13,N1/1,X4/',X4/' EIF I3 ADC ',0 ADC $8C2,',' ADC ',' ` EMC ` RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/10,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/10,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/10,N1/1,X4/',X4/' EIF I3 ADC ',0,0,' ` EMC ` RTJ- ($F4) I1 IFC ',EQ, IFC ',EQ, VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE,0 VFD N1/0,X1/',N5/12,N8/0,N1/1 EIF I1 I2 IFC ',NE, I1 IFC ',EQ,0 IFC ',EQ, VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE,0 VFD N1/0,X1/',N5/12,N8/0,N1/1 EIF I1 I2 IFC ',NE,0 IFC ',EQ, VFD N1/0,X1/',N5/12,N1/1,N8/0 EIF I2 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N1/1,N8/0 EIF I2 IFC ',NE,0 VFD N1/0,X1/',N5/12,N1/1,N7/0,N1/1 EIF I2 ADC ' ` EMC ` RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/17,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/17,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/17,N1/1,X4/',X4/' EIF I3 ADC ',0,0,',' ` EMC ` RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/14,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/14,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/14,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC '
,NE,B IFC '
,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC '
,NE,R IFC '
,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC '
,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC '
,EQ,B IFC '
,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC '
,NE,R IFC '
,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC '
,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 IFC ',NE,R VFD X4/',X4/',X4/',X4/' EIF IFC ',EQ,R VFD N1/1,X3/',X12/' EIF ` EMC ` RTJ- ($F4) VFD N2/0,N5/18,N5/0,X4/' ADC ' EMC NLS IFC ',NE, EQU ' (') EIF 0 IFC ',EQ, IS THERE A PRIORITY EQU ' (0) NO EIF 0 IFC ',NE, EQU ' (') REPEAT MANY TIMES EIF 0 IFC ',EQ, EQU ' (1) REPEAT ONLY ONE TIME EIF 0 EQU ' ('*$1000+' ) SET UP NUM OF TIMES REPEATED IFC ',EQ, NO COMPLETION EQU '
(' *16+' +$5C00) EIF 0 C0 IFC ',NE, COMPLETION YES 88*2712 IFC ',EQ,* RELATIVE COMPLETION EQU '
(' *16+' +$1D00) 81*205 EIF 0 IFC ',EQ, ABS COMPLETION EQU '
(' *16+' +$5C00) EIF 0 EIF C0 88*2712 LST RTJ- ($F4) ADC '
NLS IFC ',EQ, LST ADC 0 COMPLETION NLS EIF 0 C1 IFC ',NE, IS THERE A COMPLETION ADDRESS 88*2712 C2 IFC ',EQ,* IS IT RELATIVE 88*2712 LST ADC '-*+1 COMPLETION NLS EIF C2 88*2712 C3 IFC ',EQ, LST ADC ' COMPLETION NLS EIF C3 88*2712 EIF C1 88*2712 LST NUM 0 THREAD NLS IFC ',EQ, IT IS THE LOGICAL UNIT LST ADC $0000+' NLS EIF 0 IFC ',EQ,R A RELATIVE DISTANCE LST VFD N6/1,X10/'-*+3 RELATIVE NLS EIF 0 IFC ',EQ,I A ABS CORE LOCATION LST VFD N6/2,X10/' ABS CORE LOCATION NLS EIF 0 LST ADC (' ) REPEAT TIMES N ` EMC ` NLS MOT' ',',',',',1 ` EMC ` NLS MOT' ',',',',',2 ` EMC ` NLS MOT' ',',',',',3 ` EMC ` NLS MOT' ',',',',',4 ` EMC ` NLS MOT' ',',',',',5 ` EMC ` NLS MOT' ',',',',',6 ` EMC ` NLS MOT' ',',',',',7 ` EMC ` LST JMP- ($EA) ` EMC ` SPC 1 EXT ISBUFR,CBWRIT,CBREAD,BOUTC SPC 1 NUM $520A 00 SCHEDULER CALL ADC ISBUFR 01 INITIATOR ADDRESS ADC 0 02 CONTINUATOR ADDRESS - NOT USED ADC 0 03 TIMEOUT ERROR ADDRESS - NOT USED NUM -1 04 DIAGNOSTIC CLOCK - NOT USED NUM 0 05 LOGICAL UNIT ADC 0 06 PARAMETER LOCATION NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $00A4 08 REQUEST STATUS NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS - NOT USED NUM 0 13 RESERVED NUM $7FFF 14 RESERVED NUM 0 15 RESERVED FOR FNR AND CMR ADC ' 16 LSB START OF BUFFER ADC ' 17 LSB END OF BUFFER ADC ' 18 CURRENT LSB START OF BUFFER ADC ' 19 CURRENT LSB END OF BUFFER NUM $44AA 20 MASS MEMORY WRITE REQUEST (UNFORMATTED) ADC CBWRIT 21 MASS MEMORY WRITE COMPLETION NUM 0 22 THREAD ADC ' 23 MASS MEMORY LOGICAL UNIT NUM 0 24 NUMBER OF WORDS NUM 0 25 STARTING DATA LOCATION ADC ' 26 MSB ADDRESS ADC ' 27 LSB ADDRESS NUM 0 28 CONTROL WORD NUM $42AA 29 MASS MEMORY READ REQUEST (UNFORMATTED) ADC CBREAD 30 MASS MEMORY READ COMPLETION NUM 0 31 THREAD ADC ' 32 MASS MEMORY LOGICAL UNIT NUM 0 33 NUMBER OF WORDS ADC ' 34 STARTING LOCATION (CHARACTER BUFFER) ADC ' 35 MSB ADDRESS ADC ' 36 LSB ADDRESS NUM 0 37 PARTIAL WORD OUTPUT FLAG NUM $4CAA 38 BUFFER WRITE REQUEST (FORMATTED) ADC BOUTC 39 BUFFER WRITE COMPLETION NUM 0 40 THREAD ADC ' 41 OUTPUT LOGICAL UNIT NUM 0 42 NUMBER OF WORDS ADC ' 43 STARTING LOCATION (CHARACTER BUFFER) ADC ' 44 CHARACTER BUFFER SIZE BZS '(') 45 CHARACTER BUFFER EMC P *N,MACROS,,,B 11892P O0S O11 `O12 O13 O14 O1Q O1A @O1I O1 O0T `O0G O0OIS O0OSRX O0OIR O4 @O41 O42 O43 `O44 O4Q O4A O4I O0F @O3 O31 O32 `O33 O34 O3Q O3A O3I @O2 O21 ! O22 !`O23 !O24 " O2Q "O2A "O2I #@SJI #SJ1 $ SJ2 $`SJ3 $SJ4 % SJQ %SJA %SJE &@ARI & AR1 ' AR2 '`AR3 'AR4 ( ARQ (ARA (SBI )@SB1 )SB2 * SB3 *`SB4 *SBQ + SBA +ANI +AN1 ,@AN2 , AN3 - AN4 -`ANQ -ANA . ORI .OR1 .OR2 /@OR3 /OR4 0 ORQ 0`ORA 0LRI 1 LR1 1LR2 1LR3 2@LR4 2 LRQ 3 LRA 3`SRI 3SR1 4 SR2 4SR3 4SR4 5@SRQ 5SRA 6 CIE 6`C1E 6C2E 7 C3E 7C4E 7CQE 8@CAE 8 AMI 9 AM1 9`AM2 9AM3 : AM4 :AMQ :AMA ;@OMI ;OM1 < OM2 <`OM3 @AS2 > AS3 ? AS4 ?`ASQ ?ASA @ ASI @SM1 @SM2 A@SM3 ASM4 B SMQ B`SMA BSMI C ER1 CER2 CER3 D@ER4 D ERQ E ERA E`ERI EEM1 F EM2 FEM3 FEM4 G@EMQ GEMA H EMI H`C1N HC2N I C3N IC4N ICQN J@CAN J CIN K CCN K`LCA KSCA L CCE LXF1 LXF2 M@XF3 MXF4 N XFQ N`XFA NXFI O S1Z OS2Z OS3Z P@S4Z P S1N Q S2N Q`S3N QS4N R S1M RS2M RS3M S@S4M SS1P T S2P T`S3P TS4P U LFA USFA USFZ V@SFN V CLF W SEF W`D1P WD2P X D3P XD4P XDQP Y@DAP YDIP Z O0OSB Z`O00 \@O01 aSIO aLUB b@LLB bEMS c WPR c`RPR cECC d ASC dAPM dPM0 e@PM1 eO0EX f GPE fGPO g LRG gSRG hLMM iCBP j DMI jSPS j VOLA k@VOLR lHEXDEC nHEXASC oENCODE pDECODE s DECHEX u`ASCII vFLOATG wCLOCK xFLDF yDEFFIL |DEFIDX }LOKFIL ~`UNLFIL RELFIL @ STOSEQ RTVSEQ STOIDX @RTVIDX RTVIDO STODIR RTVDIR @STATFL FREAD FWRITE STATUS `READ WRITE INDIR `EXIT @CORE LOADER DISCHD ENSCHD @SCHDLE TIMPT1 TIMER @GTFILE
SPACE RELEAS PTNCOR MOTION
@SYSCHD MOT BSR ڠEOF `REW UNL ADF ݠBSF `ADR DISP ཪFFER GTFILE
SPACE RELEAS PTNCOR MOTION
@SYSCHD MOT BSR ڠEOF `REW P *Z 11896P P *CTO, ASSEM INSTALL COMPLETE 11897P P *K,I10,P11,L9 11898P P *Z 11899P P *B 'RFRMIN' ' DECK-ID J15 FTN 3.3 RUNTIME' P P *L,ASCHX P P *B 'ASCHX' ' DECK-ID J16 FTN 3.3 RUNTIME' P P *L,HXDC P P *B 'HXDC' ' DECK-ID J17 FTN 3.3 RUNTIME' P P *L,FLOTIN P P *B 'FLOTIN' ' DECK-ID J18 FTN 3.3 RUNTIME' P P *L,FOUT P P *B 'FOUT' ' DECK-ID J19 FTN 3.3 RUNTIME' P P *L,EOUT P P *B 'EOUT' ' DECK-ID J20 FTN 3.3 RUNTIME' P P *L,EWRITE P P *B 'EWRITE' ' DECK-ID J21 FTN 3.3 RUNTIME' P P *L,INITL1 P P *B 'INITL1' ' DECK-ID J22 FTN 3.3 RUNTIME' P P *L,FORMTR P P *B 'FORMTN' ' DECK-ID J23 FTN 3.3 RUNTIME' P P *L,Q8QFI P P *B 'Q8QFI' ' DECK-ID J24 FTN 3.3 RUNTIME' P P *L,Q8QFL P P *B 'Q8QFL' ' DECK-ID J25 FTN 3.3 RUNTIME' P P *L,Q8QFX P P *B 'Q8QFX' ' DECK-ID J26 FTN 3.3 RUNTIME' P P *L,HEXASC P P *B 'HEXASC' ' DECK-ID J27 FTN 3.3 RUNTIME' P P *L,HEXDEC P P *B 'HEXDEC' ' DECK-ID J28 FTN 3.3 RUNTIME' P P *L,ASCII P P *B 'ASCII' ' DECK-ID J29 FTN 3.3 RUNTIME' P P *L,DECHEX P P *B 'DECHEX' ' DECK-ID J30 FTN 3.3 RUNTIME' P P *L,AFORM P P *B 'AFORM' ' DECK-ID J31 FTN 3.3 RUNTIME' P P *L,RFORM P P *B 'RFORM' ' DECK-ID J32 FTN 3.3 RUNTIME' P P *L,FLOATG P P *B 'FLOATG' ' DECK-ID J33 FTN 3.3 RUNTIME' P P *L,FLOT P P *B 'FLOTN' ' DECK-ID G14 FTN 3.3 RUNTIME' P P *L,OPERND P P *B 'COMNFP' ' DECK-ID G15 FTN 3.3 RUNTIME' P P *L,Q8QD2I P P *B 'Q8QD2I' ' DECK-ID K01 FTN 3.3 RUNTIME' P P *L,SNGL P P *B 'SGLDBL' ' DECK-ID K03 FTN 3.3 RUNTIME' P P *L,DABS P P *B 'DABS' ' DECK-ID K04 FTN 3.3 RUNTIME' P P *L,DSQRT P P *B 'DSQRT' ' DECK-ID K05 FTN 3.3 RUNTIME' P P *L,DSIGN P P *B 'DSIGN' ' DECK-ID K06 FTN 3.3 RUNTIME' P P *L,DEXP P P *B 'DEXP' ' DECK-ID K08 FTN 3.3 RUNTIME' P P *L,DLOG P P *B 'DLOG' ' DECK-ID K09 FTN 3.3 RUNTIME' P P *L,DSIN P P *B 'DSNCSN' ' DECK-ID K10 FTN 3.3 RUNTIME' P P *L,DATAN P P *B 'DATAN' ' DECK-ID K11 FTN 3.3 RUNTIME' P P *L,Q8DXP1 P P *B 'Q8DXP1' ' DECK-ID K15 FTN 3.3 RUNTIME' P P *L,Q8DXP9 P P *B 'Q8DXP9' ' DECK-ID K16 FTN 3.3 RUNTIME' P P *L,Q8QDFI P P *B 'Q8QDFN' ' DECK-ID K17 FTN 3.3 RUNTIME' P P *L,DOUT P P *B 'DOUTN' ' DECK-ID K18 FTN 3.3 RUNTIME' P P *L,DFLOT P P *B 'DFLOTN' ' DECK-ID K12 FTN 3.3 RUNTIME' P P *L,DRSTOR P P *B 'DRSTOR' ' DECK-ID K14 FTN 3.3 RUNTIME' P P *V P P *V RPGII P P *V P P *K,I6 P P *L,RPGII P P *B 'RPGII' ' DECK-ID R02 RPGII 1.0' P P *K,P8 P P *P,,,R9BASE P P *B 'RPG' ' DECK-ID R01 RPGII 1.0' P P *B 'RPGDMY' ' DECK-ID C11 RPGII 1.0' P P *B 'R9LBY' ' DECK-ID R55 RPGII 1.0' P P *B 'R9SBY' ' DECK-ID R97 RPGII 1.0' P P *B 'R9MIW' ' DECK-ID R63 RPGII 1.0' P P *B 'R9MVW' ' DECK-ID R73 RPGII 1.0' P P *B 'R9MIB' ' DECK-ID R62 RPGII 1.0' P P *B 'R9MVB' ' DECK-ID R71 RPGII 1.0' P P *B 'R9ARG' ' DECK-ID R04 RPGII 1.0' P P *B 'RPGROT' ' DECK-ID C10 RPGII 1.0' P P *T P P *K,I8 P P *N,RPGSM0,,,B P P *K,I6 P P *P,,,OVLYPT P P *B 'RPG' ' DECK-ID R01 RPGII 1.0' P P *B 'RPGDMY' ' DECK-ID C11 RPGII 1.0' P P *B 'R9LBY' ' DECK-ID R55 RPGII 1.0' P P *B 'R9SBY' ' DECK-ID R97 RPGII 1.0' P P *B 'R9MIW' ' DECK-ID R63 RPGII 1.0' P P *B 'R9MVW' ' DECK-ID R73 RPGII 1.0' P P *B 'R9MIB' ' DECK-ID R62 RPGII 1.0' P P *B 'R9MVB' ' DECK-ID R71 RPGII 1.0' P P *B 'R9ARG' ' DECK-ID R04 RPGII 1.0' P P *B 'RPGROT' ' DECK-ID C10 RPGII 1.0' P P *B 'RPGIIH' ' DECK-ID C01 RPGII 1.0' P P *T P P *K,I8 P P *N,RPGSM1,,,B P P *K,I6 P P *P,,,OVLYPT P P *B 'RPG' ' DECK-ID R01 RPGII 1.0' P P *B 'RPGDMY' ' DECK-ID C11 RPGII 1.0' P P *B 'R9LBY' ' DECK-ID R55 RPGII 1.0' P P *B 'R9SBY' ' DECK-ID R97 RPGII 1.0' P P *B 'R9MIW' ' DECK-ID R63 RPGII 1.0' P P *B 'R9MVW' ' DECK-ID R73 RPGII 1.0' P P *B 'R9MIB' ' DECK-ID R62 RPGII 1.0' P P *B 'R9MVB' ' DECK-ID R71 RPGII 1.0' P P *B 'R9ARG' ' DECK-ID R04 RPGII 1.0' P P *B 'RPGROT' ' DECK-ID C10 RPGII 1.0' P P *B 'RPGIIF' ' DECK-ID C02 RPGII 1.0' P P *T P P *K,I8 P P *N,RPGSM2,,,B P P *K,I6 P P *P,,,OVLYPT P P *B 'RPG' ' DECK-ID R01 RPGII 1.0' P P *B 'RPGDMY' ' DECK-ID C11 RPGII 1.0' P P *B 'R9LBY' ' DECK-ID R55 RPGII 1.0' P P *B 'R9SBY' ' DECK-ID R97 RPGII 1.0' P P *B 'R9MIW' ' DECK-ID R63 RPGII 1.0' P P *B 'R9MVW' ' DECK-ID R73 RPGII 1.0' P P *B 'R9MIB' ' DECK-ID R62 RPGII 1.0' P P *B 'R9MVB' ' DECK-ID R71 RPGII 1.0' P P *B 'R9ARG' ' DECK-ID R04 RPGII 1.0' P P *B 'RPGROT' ' DECK-ID C10 RPGII 1.0' P P *B 'RPGIIE' ' DECK-ID C03 RPGII 1.0' P P *T P P *K,I8 P P *N,RPGSM3,,,B P P *K,I6 P P *P,,,OVLYPT P P *B 'RPG' ' DECK-ID R01 RPGII 1.0' P P *B 'RPGDMY' ' DECK-ID C11 RPGII 1.0' P P *B 'R9LBY' ' DECK-ID R55 RPGII 1.0' P P *B 'R9SBY' ' DECK-ID R97 RPGII 1.0' P P *B 'R9MIW' ' DECK-ID R63 RPGII 1.0' P P *B 'R9MVW' ' DECK-ID R73 RPGII 1.0' P P *B 'R9MIB' ' DECK-ID R62 RPGII 1.0' P P *B 'R9MVB' ' DECK-ID R71 RPGII 1.0' P P *B 'R9ARG' ' DECK-ID R04 RPGII 1.0' P P *B 'RPGROT' ' DECK-ID C10 RPGII 1.0' P P *B 'RPGIIL' ' DECK-ID C04 RPGII 1.0' P P *T P P *K,I8 P P *N,RPGSM4,,,B P P *K,I6 P P *P,,,OVLYPT P P *B 'RPG' ' DECK-ID R01 RPGII 1.0' P P *B 'RPGDMY' ' DECK-ID C11 RPGII 1.0' P P *B 'R9LBY' ' DECK-ID R55 RPGII 1.0' P P *B 'R9SBY' ' DECK-ID R97 RPGII 1.0' P P *B 'R9MIW' ' DECK-ID R63 RPGII 1.0' P P *B 'R9MVW' ' DECK-ID R73 RPGII 1.0' P P *B 'R9MIB' ' DECK-ID R62 RPGII 1.0' P P *B 'R9MVB' ' DECK-ID R71 RPGII 1.0' P P *B 'R9ARG' ' DECK-ID R04 RPGII 1.0' P P *B 'RPGROT' ' DECK-ID C10 RPGII 1.0' P P *B 'RPGIII' ' DECK-ID C05 RPGII 1.0' P P *T P P *K,I8 P P *N,RPGSM5,,,B P P *K,I6 P P *P,,,OVLYPT P P *B 'RPG' ' DECK-ID R01 RPGII 1.0' P P *B 'RPGDMY' ' DECK-ID C11 RPGII 1.0' P P *B 'R9LBY' ' DECK-ID R55 RPGII 1.0' P P *B 'R9SBY' ' DECK-ID R97 RPGII 1.0' P P *B 'R9MIW' ' DECK-ID R63 RPGII 1.0' P P *B 'R9MVW' ' DECK-ID R73 RPGII 1.0' P P *B 'R9MIB' ' DECK-ID R62 RPGII 1.0' P P *B 'R9MVB' ' DECK-ID R71 RPGII 1.0' P P *B 'R9ARG' ' DECK-ID R04 RPGII 1.0' P P *B 'RPGROT' ' DECK-ID C10 RPGII 1.0' P P *B 'RPGIIC' ' DECK-ID C06 RPGII 1.0' P P *T P P *K,I8 P P *N,RPGSM6,,,B P P *K,I6 P P *P,,,OVLYPT P P *B 'RPG' ' DECK-ID R01 RPGII 1.0' P P *B 'RPGDMY' ' DECK-ID C11 RPGII 1.0' P P *B 'R9LBY' ' DECK-ID R55 RPGII 1.0' P P *B 'R9SBY' ' DECK-ID R97 RPGII 1.0' P P *B 'R9MIW' ' DECK-ID R63 RPGII 1.0' P P *B 'R9MVW' ' DECK-ID R73 RPGII 1.0' P P *B 'R9MIB' ' DECK-ID R62 RPGII 1.0' P P *B 'R9MVB' ' DECK-ID R71 RPGII 1.0' P P *B 'R9ARG' ' DECK-ID R04 RPGII 1.0' P P *B 'RPGROT' ' DECK-ID C10 RPGII 1.0' P P *B 'RPGIIO' ' DECK-ID C07 RPGII 1.0' P P *T P P *K,I8 P P *N,RPGSM7,,,B P P *K,I6 P P *P,,,OVLYPT P P *B 'RPG' ' DECK-ID R01 RPGII 1.0' P P *B 'RPGDMY' ' DECK-ID C11 RPGII 1.0' P P *B 'R9LBY' ' DECK-ID R55 RPGII 1.0' P P *B 'R9SBY' ' DECK-ID R97 RPGII 1.0' P P *B 'R9MIW' ' DECK-ID R63 RPGII 1.0' P P *B 'R9MVW' ' DECK-ID R73 RPGII 1.0' P P *B 'R9MIB' ' DECK-ID R62 RPGII 1.0' P P *B 'R9MVB' ' DECK-ID R71 RPGII 1.0' P P *B 'R9ARG' ' DECK-ID R04 RPGII 1.0' P P *B 'RPGROT' ' DECK-ID C10 RPGII 1.0' P P *B 'RPGIIA' ' DECK-ID C08 RPGII 1.0' P P *T P P *K,I8 P P *N,RPGSM8,,,B P P *K,I6 P P *P,,,OVLYPT P P *B 'RPG' ' DECK-ID R01 RPGII 1.0' P P *B 'RPGDMY' ' DECK-ID C11 RPGII 1.0' P P *B 'R9LBY' ' DECK-ID R55 RPGII 1.0' P P *B 'R9SBY' ' DECK-ID R97 RPGII 1.0' P P *B 'R9MIW' ' DECK-ID R63 RPGII 1.0' P P *B 'R9MVW' ' DECK-ID R73 RPGII 1.0' P P *B 'R9MIB' ' DECK-ID R62 RPGII 1.0' P P *B 'R9MVB' ' DECK-ID R71 RPGII 1.0' P P *B 'R9ARG' ' DECK-ID R04 RPGII 1.0' P P *B 'RPGROT' ' DECK-ID C10 RPGII 1.0' P P *B 'RPGIIM' ' DECK-ID C09 RPGII 1.0' P P *T P P *K,I8 P P *N,RPGSM9,,,B P P *K,I6 P P *L,R9ADSB P P *B 'R9ADSB' ' DECK-ID R03 RPGII 1.0' P P *L,R9ARG P P *B 'R9ARG' ' DECK-ID R04 RPGII 1.0' P P *L,R9ASQR P P *B 'R9ASQR' ' DECK-ID R05 RPGII 1.0' P P *L,R9ATON P P *B 'R9ATON' ' DECK-ID R06 RPGII 1.0' P P *L,R9BDPR P P *B 'R9BDPR' ' DECK-ID R07 RPGII 1.0' P P *L,R9BINP P P *B 'R9BINP' ' DECK-ID R08 RPGII 1.0' P P *L,R9BINT P P *B 'R9BINT' ' DECK-ID R09 RPGII 1.0' P P *L,R9BITF P P *B 'R9BITF' ' DECK-ID R10 RPGII 1.0' P P *L,R9BITN P P *B 'R9BITN' ' DECK-ID R11 RPGII 1.0' P P *L,R9CALC P P *B 'R9CALC' ' DECK-ID R12 RPGII 1.0' P P *L,R9CHAN P P *B 'R9CHAN' ' DECK-ID R13 RPGII 1.0' P P *L,R9CHIN P P *B 'R9CHIN' ' DECK-ID R14 RPGII 1.0' P P *L,R9CLOS P P *B 'R9CLOS' ' DECK-ID R15 RPGII 1.0' P P *L,R9CLRC P P *B 'R9CLRC' ' DECK-ID R16 RPGII 1.0' P P *L,R9CLRE P P *B 'R9CLRE' ' DECK-ID R17 RPGII 1.0' P P *L,R9CMBD P P *B 'R9CMBD' ' DECK-ID R18 RPGII 1.0' P P *L,R9CMOV P P *B 'R9CMOV' ' DECK-ID R19 RPGII 1.0' P P *L,R9CNTR P P *B 'R9CNTR' ' DECK-ID R20 RPGII 1.0' P P *L,R9COMP P P *B 'R9COMP' ' DECK-ID R21 RPGII 1.0' P P *L,R9CRIN P P *B 'R9CRIN' ' DECK-ID R22 RPGII 1.0' P P *L,R9DEBG P P *B 'R9DEBG' ' DECK-ID R23 RPGII 1.0' P P *L,R9DETP P P *B 'R9DETP' ' DECK-ID R24 RPGII 1.0' P P *L,R9DIVD P P *B 'R9DIVD' ' DECK-ID R25 RPGII 1.0' P P *L,R9DMND P P *B 'R9DMND' ' DECK-ID R26 RPGII 1.0' P P *L,R9DSPY P P *B 'R9DSPY' ' DECK-ID R27 RPGII 1.0' P P *L,R9ECOD P P *B 'R9ECOD' ' DECK-ID R28 RPGII 1.0' P P *L,R9EDCN P P *B 'R9EDCN' ' DECK-ID R29 RPGII 1.0' P P *L,R9EXCP P P *B 'R9EXCP' ' DECK-ID R30 RPGII 1.0' P P *L,R9EXIT P P *B 'R9EXIT' ' DECK-ID R31 RPGII 1.0' P P *L,R9FILR P P *B 'R9FILR' ' DECK-ID R32 RPGII 1.0' P P *L,R9FINS P P *B 'R9FINS' ' DECK-ID R33 RPGII 1.0' P P *L,R9FLDL P P *B 'R9FLDL' ' DECK-ID R34 RPGII 1.0' P P *L,R9FLOW P P *B 'R9FLOW' ' DECK-ID R35 RPGII 1.0' P P *L,R9FNBG P P *B 'R9FNBG' ' DECK-ID R36 RPGII 1.0' P P *L,R9FORC P P *B 'R9FORC' ' DECK-ID R37 RPGII 1.0' P P *L,R9FSTL P P *B 'R9FSTL' ' DECK-ID R38 RPGII 1.0' P P *L,R9FTOV P P *B 'R9FTOV' ' DECK-ID R39 RPGII 1.0' P P *L,R9GETS P P *B 'R9GETS' ' DECK-ID R40 RPGII 1.0' P P *L,R9GOTO P P *B 'R9GOTO' ' DECK-ID R41 RPGII 1.0' P P *L,R9ICTL P P *B 'R9ICTL' ' DECK-ID R42 RPGII 1.0' P P *L,R9IDMX P P *B 'R9IDMX' ' DECK-ID R43 RPGII 1.0' P P *L,R9INDM P P *B 'R9INDM' ' DECK-ID R44 RPGII 1.0' P P *L,R9INIG P P *B 'R9INIG' ' DECK-ID R45 RPGII 1.0' P P *L,R9INIT P P *B 'R9INIT' ' DECK-ID R46 RPGII 1.0' P P *L,R9INMV P P *B 'R9INMV' ' DECK-ID R47 RPGII 1.0' P P *L,R9INTA P P *B 'R9INTA' ' DECK-ID R48 RPGII 1.0' P P *L,R9INTL P P *B 'R9INTL' ' DECK-ID R49 RPGII 1.0' P P *L,R9IOCL P P *B 'R9IOCL' ' DECK-ID R50 RPGII 1.0' P P *L,R9IPBG P P *B 'R9IPBG' ' DECK-ID R51 RPGII 1.0' P P *L,R9IPUT P P *B 'R9IPUT' ' DECK-ID R52 RPGII 1.0' P P *L,R9ITLP P P *B 'R9ITLP' ' DECK-ID R53 RPGII 1.0' P P *L,R9LAHD P P *B 'R9LAHD' ' DECK-ID R54 RPGII 1.0' P P *L,R9LBY P P *B 'R9LBY' ' DECK-ID R55 RPGII 1.0' P P *L,R9LCAE P P *B 'R9LCAE' ' DECK-ID R56 RPGII 1.0' P P *L,R9LEL P P *B 'R9LEL' ' DECK-ID R57 RPGII 1.0' P P *L,R9LKUP P P *B 'R9LKUP' ' DECK-ID R58 RPGII 1.0' P P *L,R9LOAD P P *B 'R9LOAD' ' DECK-ID R59 RPGII 1.0' P P *L,R9LOCL P P *B 'R9LOCL' ' DECK-ID R60 RPGII 1.0' P P *L,R9LRCK P P *B 'R9LRCK' ' DECK-ID R61 RPGII 1.0' P P *L,R9MIB P P *B 'R9MIB' ' DECK-ID R62 RPGII 1.0' P P *L,R9MIW P P *B 'R9MIW' ' DECK-ID R63 RPGII 1.0' P P *L,R9MMOV P P *B 'R9MMOV' ' DECK-ID R64 RPGII 1.0' P P *L,R9MOVA P P *B 'R9MOVA' ' DECK-ID R65 RPGII 1.0' P P *L,R9MOVE P P *B 'R9MOVE' ' DECK-ID R66 RPGII 1.0' P P *L,R9MOVZ P P *B 'R9MOVZ' ' DECK-ID R67 RPGII 1.0' P P *L,R9MTRN P P *B 'R9MTRN' ' DECK-ID R68 RPGII 1.0' P P *L,R9MTWK P P *B 'R9MTWK' ' DECK-ID R69 RPGII 1.0' P P *L,R9MULT P P *B 'R9MULT' ' DECK-ID R70 RPGII 1.0' P P *L,R9MVB P P *B 'R9MVB' ' DECK-ID R71 RPGII 1.0' P P *L,R9MVTA P P *B 'R9MVTA' ' DECK-ID R72 RPGII 1.0' P P *L,R9MVW P P *B 'R9MVW' ' DECK-ID R73 RPGII 1.0' P P *L,R9NRMX P P *B 'R9NRMX' ' DECK-ID R74 RPGII 1.0' P P *L,R9NSQR P P *B 'R9NSQR' ' DECK-ID R75 RPGII 1.0' P P *L,R9NTOA P P *B 'R9NTOA' ' DECK-ID R76 RPGII 1.0' P P *L,R9NXFL P P *B 'R9NXFL' ' DECK-ID R77 RPGII 1.0' P P *L,R9NXRC P P *B 'R9NXRC' ' DECK-ID R78 RPGII 1.0' P P *L,R9OPNF P P *B 'R9OPNF' ' DECK-ID R79 RPGII 1.0' P P *L,R9OTMG P P *B 'R9OTMG' ' DECK-ID S22 RPGII 1.0' P P *L,R9OTMV P P *B 'R9OTMV' ' DECK-ID R80 RPGII 1.0' P P *L,R9OTPT P P *B 'R9OTPT' ' DECK-ID R81 RPGII 1.0' P P *L,R9OV50 P P *B 'R9OV50' ' DECK-ID R83 RPGII 1.0' P P *L,R9OVOP P P *B 'R9OVOP' ' DECK-ID R82 RPGII 1.0' P P *L,R9PACK P P *B 'R9PACK' ' DECK-ID R84 RPGII 1.0' P P *L,R9PAGE P P *B 'R9PAGE' ' DECK-ID R85 RPGII 1.0' P P *L,R9POSS P P *B 'R9POSS' ' DECK-ID R86 RPGII 1.0' P P *L,R9PRCL P P *B 'R9PRCL' ' DECK-ID R87 RPGII 1.0' P P *L,R9PRFN P P *B 'R9PRFN' ' DECK-ID R88 RPGII 1.0' P P *L,R9PUTS P P *B 'R9PUTS' ' DECK-ID R89 RPGII 1.0' P P *L,R9RCAD P P *B 'R9RCAD' ' DECK-ID R90 RPGII 1.0' P P *L,R9RDEN P P *B 'R9RDEN' ' DECK-ID R91 RPGII 1.0' P P *L,R9READ P P *B 'R9READ' ' DECK-ID R92 RPGII 1.0' P P *L,R9RPGO P P *B 'R9RPGO' ' DECK-ID R93 RPGII 1.0' P P *L,R9RPRT P P *B 'R9RPRT' ' DECK-ID R94 RPGII 1.0' P P *L,R9RSLT P P *B 'R9RSLT' ' DECK-ID R95 RPGII 1.0' P P *L,R9RSTS P P *B 'R9RSTS' ' DECK-ID R96 RPGII 1.0' P P *L,R9SBY P P *B 'R9SBY' ' DECK-ID R97 RPGII 1.0' P P *L,R9SETF P P *B 'R9SETF' ' DECK-ID R98 RPGII 1.0' P P *L,R9SETN P P *B 'R9SETN' ' DECK-ID R99 RPGII 1.0' P P *L,R9SHFT P P *B 'R9SHFT' ' DECK-ID S01 RPGII 1.0' P P *L,R9SKIP P P *B 'R9SKIP' ' DECK-ID S02 RPGII 1.0' P P *L,R9SPAC P P *B 'R9SPAC' ' DECK-ID S03 RPGII 1.0' P P *L,R9SPTP P P *B 'R9SPTP' ' DECK-ID S04 RPGII 1.0' P P *L,R9SQRT P P *B 'R9SQRT' ' DECK-ID S05 RPGII 1.0' P P *L,R9STH0 P P *B 'R9STH0' ' DECK-ID S06 RPGII 1.0' P P *L,R9STLL P P *B 'R9STLL' ' DECK-ID S07 RPGII 1.0' P P *L,R9STON P P *B 'R9STON' ' DECK-ID S08 RPGII 1.0' P P *L,R9TBOT P P *B 'R9TBOT' ' DECK-ID S09 RPGII 1.0' P P *L,R9TIME P P *B 'R9TIME' ' DECK-ID S10 RPGII 1.0' P P *L,R9TP40 P P *B 'R9TP40' ' DECK-ID S11 RPGII 1.0' P P *L,R9TRAL P P *B 'R9TRAL' ' DECK-ID S12 RPGII 1.0' P P *L,R9TRCE P P *B 'R9TRCE' ' DECK-ID S13 RPGII 1.0' P P *L,R9TROT P P *B 'R9TROT' ' DECK-ID S14 RPGII 1.0' P P *L,R9TSTB P P *B 'R9TSTB' ' DECK-ID S15 RPGII 1.0' P P *L,R9TSTN P P *B 'R9TSTN' ' DECK-ID S16 RPGII 1.0' P P *L,R9TSTZ P P *B 'R9TSTZ' ' DECK-ID S17 RPGII 1.0' P P *L,R9TTOP P P *B 'R9TTOP' ' DECK-ID S18 RPGII 1.0' P P *L,R9UNPK P P *B 'R9UNPK' ' DECK-ID S19 RPGII 1.0' P P *L,R9XCPT P P *B 'R9XCPT' ' DECK-ID S20 RPGII 1.0' P P *L,R9XFOT P P *B 'R9XFOT' ' DECK-ID S21 RPGII 1.0' P P *L,R9XRSD P P *B 'R9XRSD' ' DECK-ID S23 RPGII 1.0' P P *L,R9YCOD P P *B 'R9YCOD' ' DECK-ID S24 RPGII 1.0' P P *L,R9ZADS P P *B 'R9ZADS' ' DECK-ID S25 RPGII 1.0' P P *L,R9ZCOD P P *B 'R9ZCOD' ' DECK-ID S26 RPGII 1.0' P P *L,DFUT P P *B 'DFUT' ' DECK-ID U12 RPGII 1.0' P P *P P P *B 'DFUT' ' DECK-ID U12 RPGII 1.0' P P *B 'DUE' ' DECK-ID U13 RPGII 1.0' P P *B 'DECHEX' ' DECK-ID U11 RPGII 1.0' P P *B 'BINASC' ' DECK-ID U03 RPGII 1.0' P P *B 'ATOM' ' DECK-ID U02 RPGII 1.0' P P *B 'FATMGR' ' DECK-ID U14 RPGII 1.0' P P *B 'MOVBYT' ' DECK-ID U46 RPGII 1.0' P P *B 'CMSG' ' DECK-ID U37 RPGII 1.0' P P *B 'HELP' ' DECK-ID U15 RPGII 1.0' P P *B 'MM' ' DECK-ID U17 RPGII 1.0' P P *B 'MOTION' ' DECK-ID U18 RPGII 1.0' P P *B 'BINHEX' ' DECK-ID U04 RPGII 1.0' P P *B 'ERRMSG' ' DECK-ID U42 RPGII 1.0' P P *B 'DEFINE' ' DECK-ID U39 RPGII 1.0' P P *B 'AUDIT' ' DECK-ID U32 RPGII 1.0' P P *B 'DUMP' ' DECK-ID U41 RPGII 1.0' P P *B 'INIT' ' DECK-ID U44 RPGII 1.0' P P *B 'LOAD' ' DECK-ID U45 RPGII 1.0' P P *B 'COPY' ' DECK-ID U38 RPGII 1.0' P P *B 'DISCRD' ' DECK-ID U40 RPGII 1.0' P P *B 'ADROUT' ' DECK-ID U30 RPGII 1.0' P P *B 'PURGE' ' DECK-ID U47 RPGII 1.0' P P *B 'SAVE' ' DECK-ID U51 RPGII 1.0' P P *B 'RELOAD' ' DECK-ID U50 RPGII 1.0' P P *B 'TAPMGR' ' DECK-ID U22 RPGII 1.0' P P *B 'ADRPRG' ' DECK-ID U31 RPGII 1.0' P P *B 'ADRSKL' ' DECK-ID U01 RPGII 1.0' P P *B 'FORTN' ' DECK-ID U54 RPGII 1.0' P P *B 'Q8PRMS' ' DECK-ID U55 RPGII 1.0' P P *T P P *K,I8 P P *N,DISKUT,,,B P P *K,I6 P P *L,RPGFIL P P *B 'RPGFIL' ' DECK-ID U20 RPGII 1.0' P P *L,CATLOG P P *B 'CATLOG' ' DECK-ID U06 RPGII 1.0' P P *K,P8 P P *P,,,CATSEG P P *B 'CATLOG' ' DECK-ID U06 RPGII 1.0' P P *B 'CATFIL' ' DECK-ID U34 RPGII 1.0' P P *B 'CATGET' ' DECK-ID U05 RPGII 1.0' P P *B 'CATSKL' ' DECK-ID U07 RPGII 1.0' P P *B 'CATOBJ' ' DECK-ID U36 RPGII 1.0' P P *B 'CATERR' ' DECK-ID U33 RPGII 1.0' P P *B 'CATMSG' ' DECK-ID U35 RPGII 1.0' P P *B 'FORTN' ' DECK-ID U54 RPGII 1.0' P P *B 'Q8PRMS' ' DECK-ID U55 RPGII 1.0' P P *T P P *K,I8 P P *N,CATFIL,,,B P P *K,I6 P P *L,SWITCH P P *B 'SWITCH' ' DECK-ID U21 RPGII 1.0' P P *K,P8 P P *P,,,SWISEG P P *B 'SWITCH' ' DECK-ID U21 RPGII 1.0' P P *B 'SWIFIL' ' DECK-ID U53 RPGII 1.0' P P *B 'FORTN' ' DECK-ID U54 RPGII 1.0' P P *B 'Q8PRMS' ' DECK-ID U55 RPGII 1.0' P P *T P P *K,I8 P P *N,SWIFIL,,,B P P *K,I6 P P *L,RBDPCH P P *B 'RBDPCH' ' DECK-ID U24 RPGII 1.0' P P *K,P8 P P *P,,,RBDSEG P P *B 'RBDPCH' ' DECK-ID U24 RPGII 1.0' P P *B 'RBDFIL' ' DECK-ID U48 RPGII 1.0' P P *B 'RBPERR' ' DECK-ID U49 RPGII 1.0' P P *B 'GETLPG' ' DECK-ID U43 RPGII 1.0' P P *B 'SECGET' ' DECK-ID U52 RPGII 1.0' P P *B 'FORTN' ' DECK-ID U54 RPGII 1.0' P P *B 'Q8PRMS' ' DECK-ID U55 RPGII 1.0' P P *T P P *K,I8 P P *N,RBDFIL,,,B P P *K,I6 P P *L,OPEN01 P P *B 'OPEN01' ' DECK-ID M01 RPGII 1.0' P P *L,OPEN02 P P *B 'OPEN02' ' DECK-ID M02 RPGII 1.0' P P *L,OPEN03 P P *B 'OPEN03' ' DECK-ID M03 RPGII 1.0' P P *L,OPEN04 P P *B 'OPEN04' ' DECK-ID M04 RPGII 1.0' P P *L,OPEN05 P P *B 'OPEN05' ' DECK-ID M05 RPGII 1.0' P P *L,OPEN06 P P *B 'OPEN06' ' DECK-ID M06 RPGII 1.0' P P *L,OPEN07 P P *B 'OPEN07' ' DECK-ID M07 RPGII 1.0' P P *L,READ09 P P *B 'READ09' ' DECK-ID M09 RPGII 1.0' P P *L,READ10 P P *B 'READ10' ' DECK-ID M10 RPGII 1.0' P P *L,READ11 P P *B 'READ11' ' DECK-ID M11 RPGII 1.0' P P *L,READ12 P P *B 'READ12' ' DECK-ID M12 RPGII 1.0' P P *L,READ13 P P *B 'READ13' ' DECK-ID M13 RPGII 1.0' P P *L,READ14 P P *B 'READ14' ' DECK-ID M14 RPGII 1.0' P P *L,READ15 P P *B 'READ15' ' DECK-ID M15 RPGII 1.0' P P *L,WRIT17 P P *B 'WRIT17' ' DECK-ID M17 RPGII 1.0' P P *L,WRIT18 P P *B 'WRIT18' ' DECK-ID M18 RPGII 1.0' P P *L,WRIT19 P P *B 'WRIT19' ' DECK-ID M19 RPGII 1.0' P P *L,WRIT20 P P *B 'WRIT20' ' DECK-ID M20 RPGII 1.0' P P *L,WRIT21 P P *B 'WRIT21' ' DECK-ID M21 RPGII 1.0' P P *L,WRIT22 P P *B 'WRIT22' ' DECK-ID M22 RPGII 1.0' P P *L,WRIT23 P P *B 'WRIT23' ' DECK-ID M23 RPGII 1.0' P P *L,UPDT25 P P *B 'UPDT25' ' DECK-ID M25 RPGII 1.0' P P *L,UPDT26 P P *B 'UPDT26' ' DECK-ID M26 RPGII 1.0' P P *L,UPDT27 P P *B 'UPDT27' ' DECK-ID M27 RPGII 1.0' P P *L,UPDT28 P P *B 'UPDT28' ' DECK-ID M28 RPGII 1.0' P P *L,UPDT29 P P *B 'UPDT29' ' DECK-ID M29 RPGII 1.0' P P *L,ADDT30 P P *B 'ADDT30' ' DECK-ID M30 RPGII 1.0' P P *L,ADDT31 P P *B 'ADDT31' ' DECK-ID M31 RPGII 1.0' P P *L,ADDT32 P P *B 'ADDT32' ' DECK-ID M32 RPGII 1.0' P P *L,SETL33 P P *B 'SETL33' ' DECK-ID M33 RPGII 1.0' P P *L,SLCT34 P P *B 'SLCT34' ' DECK-ID M34 RPGII 1.0' P P *L,CLOS35 P P *B 'CLOS35' ' DECK-ID M35 RPGII 1.0' P P *L,CLOS36 P P *B 'CLOS36' ' DECK-ID M36 RPGII 1.0' P P *L,CLOS37 P P *B 'CLOS37' ' DECK-ID M37 RPGII 1.0' P P *L,CLOS38 P P *B 'CLOS38' ' DECK-ID M38 RPGII 1.0' P P *L,CLOS39 P P *B 'CLOS39' ' DECK-ID M39 RPGII 1.0' P P *L,CLOS40 P P *B 'CLOS40' ' DECK-ID M40 RPGII 1.0' P P *L,CLOS41 P P *B 'CLOS41' ' DECK-ID M41 RPGII 1.0' P P *L,ROOT43 P P *B 'ROOT43' ' DECK-ID M43 RPGII 1.0' P P *L,ROOT44 P P *B 'ROOT44' ' DECK-ID M44 RPGII 1.0' P P *L,ROOT45 P P *B 'ROOT45' ' DECK-ID M45 RPGII 1.0' P P *L,ERRO46 P P *B 'ERRO46' ' DECK-ID M46 RPGII 1.0' P P *L,NTAP48 P P *B 'NTAP48' ' DECK-ID M48 RPGII 1.0' P P *L,NTAP49 P P *B 'NTAP49' ' DECK-ID M49 RPGII 1.0' P P *L,SORT50 P P *B 'SORT50' ' DECK-ID M50 RPGII 1.0' P P *L,CKEY51 P P *B 'CKEY51' ' DECK-ID M51 RPGII 1.0' P P *L,NTAP52 P P *B 'NTAP52' ' DECK-ID M52 RPGII 1.0' P P *L,NTAP53 P P *B 'NTAP53' ' DECK-ID M53 RPGII 1.0' P P *L,NTAP54 P P *B 'NTAP54' ' DECK-ID M54 RPGII 1.0' P P *L,NTAP55 P P *B 'NTAP55' ' DECK-ID M55 RPGII 1.0' P P *L,NTAP57 P P *B 'NTAP57' ' DECK-ID M57 RPGII 1.0' P P *L,NTAP58 P P *B 'NTAP58' ' DECK-ID M58 RPGII 1.0' P P *L,MOUNT P P *B 'MOUNT' ' DECK-ID U19 RPGII 1.0' P P *L,IO00WR P P *B 'IO00WR' ' DECK-ID U16 RPGII 1.0' P P *L,CM00PT P P *B 'CM00PT' ' DECK-ID U08 RPGII 1.0' P P *L,CM02IN P P *B 'CM02IN' ' DECK-ID U09 RPGII 1.0' P P *L,CM03GO P P *B 'CM03GO' ' DECK-ID U10 RPGII 1.0' P P *L,STRACE P P *B 'STRACE' ' DECK-ID M59 RPGII 1.0' P P *V DEBUGGING AND CHECKOUT P P *K,I6 P P *L,TRACE P P *B 'TRACE' ' DECK-ID O53 MSOS 5.0' P P *K,I6 P P *K,P8 P P *P,F P P *B 'SETBR1' ' DECK-ID M91 MSOS 5.0' P P *T P P *K,I8 P P *N,BPST,,,B P P *K,I6 P P *K,P8 P P *P,F P P *B 'TERMI1' ' DECK-ID M92 MSOS 5.0' P P *T P P *K,I8 P P *N,BPCLR,,,B P P *K,I6 P P *K,P8 P P *P,F P P *B 'ENTCO1' ' DECK-ID M93 MSOS 5.0' P P *T P P *K,I8 P P *N,BPLOAD,,,B P P *K,I6 P P *K,P8 P P *P,F P P *B 'RESUM1' ' DECK-ID M94 MSOS 5.0' P P *T P P *K,I8 P P *N,BPEND,,,B P P *K,I6 P P *K,P8 P P *P,F P P *B 'PRTRE1' ' DECK-ID M95 MSOS 5.0' P P *T P P *K,I8 P P *N,BPRLST,,,B P P *K,I6 P P *K,P8 P P *P,F P P *B 'SETAQ1' ' DECK-ID M96 MSOS 5.0' P P *T P P *K,I8 P P *N,BPRSET,,,B P P *K,I6 P P *K,P8 P P *P,F P P *B 'CORDM1' ' DECK-ID M97 MSOS 5.0' P P *T P P *K,I8 P P *N,BPDMPC,,,B P P *K,I6 P P *K,P8 P P *P,F P P *B 'JUMPR1' ' DECK-ID M98 MSOS 5.0' P P *T P P *K,I8 P P *N,BPJMP,,,B P P *K,I6 P P *K,P8 P P *P,F P P *B 'LUCHG1' ' DECK-ID M99 MSOS 5.0' P P *T P P *K,I8 P P *N,BPBPLU,,,B P P *K,I6 P P *K,P8 P P *P,F P P *B 'BPTAP1' ' DECK-ID N02 MSOS 5.0' P P *T P P *K,I8 P P *N,BPTAPC,,,B P P *K,I6 P P *K,P8 P P *P,F P P *B 'MASDM1' ' DECK-ID N03 MSOS 5.0' P P *T P P *K,I8 P P *N,BPMASS,,,B P P *V SYSTEM UTILITY PROGRAMS P P *K,I6 P P *L,LULIST P P *B 'LULIST' ' DECK-ID N87 MSOS 5.0' P P *L,LISTR P P *B 'LISTR' ' DECK-ID N86 MSOS 5.0' P P *L,OPSORT P P *B 'OPSORT' ' DECK-ID N88 MSOS 5.0' P P *L,EESORT P P *B 'EESORT' ' DECK-ID O28 MSOS 5.0' P P *L,COSY P P *B 'COSY' ' DECK-ID O27 MSOS 5.0' P P *L,LCOSY P P *B 'LCOSY' ' DECK-ID N85 MSOS 5.0' P P *L,CYFT P P *B 'CYFT' ' DECK-ID N84 MSOS 5.0' P P *L,IOUP P P *B 'IOUP' ' DECK-ID N82 MSOS 5.0' P P *K,P8 P P *P,F P P *B 'IOUP' ' DECK-ID N82 MSOS 5.0' P P *B 'IOUPV4' ' DECK-ID N83 MSOS 5.0' P P *B 'NXTLOC' ' NEXT AVAILABLE LOCATION' P P *T P P *K,I8 P P *N,IOUPV4,,,B P P *K,I6 P P *K,P8 P P *L,MTUP P P *B 'MTUP' ' DECK-ID U01 MAG TAPE UTILITY' P P *P,F,,TAPUTL P P *B 'MTUP' ' DECK-ID U01 MAG TAPE UTILITY' P P *B 'TAPUTL' ' DECK-ID U02 MAG TAPE UTILITY' P P *B 'FNN' ' DECK-ID U03 MAG TAPE UTILITY' P P *B 'SCAN' ' DECK-ID U04 MAG TAPE UTILITY' P P *B 'OPENIO' ' DECK-ID U05 MAG TAPE UTILITY' P P *B 'RDWTR' ' DECK-ID U06 MAG TAPE UTILITY' P P *B 'LIOC' ' DECK-ID U07 MAG TAPE UTILITY' P P *B 'COPY' ' DECK-ID U08 MAG TAPE UTILITY' P P *B 'EXIT' ' DECK-ID U09 MAG TAPE UTILITY' P P *B 'PRINT' ' DECK-ID U10 MAG TAPE UTILITY' P P *B 'VERIFY' ' DECK-ID U11 MAG TAPE UTILITY' P P *B 'SELECT' ' DECK-ID U12 MAG TAPE UTILITY' P P *B 'PRINTI' ' DECK-ID U13 MAG TAPE UTILITY' P P *B 'DUMP' ' DECK-ID U14 MAG TAPE UTILITY' P P *B 'INIT' ' DECK-ID U15 MAG TAPE UTILITY' P P *B 'STNLAB' ' DECK-ID U16 MAG TAPE UTILITY' P P *B 'CVASEB' ' DECK-ID U19 MAG TAPE UTILITY' P P *B 'ALCBUF' ' DECK-ID U18 MAG TAPE UTILITY' P P *B 'NXTLOC' ' NEXT AVAILABLE LOCATION' P P *T P P *K,I8 P P *N,MTUPFL,,,B P P *K,I6 P P *L,DTLP P P *B 'DTLP' ' DECK-ID O63 MSOS 5.0' P P *K,P8 P P *P,F P P *B 'DSKTAP' ' DECK-ID N90 MSOS 5.0' P P *B 'DSKEQC' ' DECK-ID N91 MSOS 5.0' P P *B 'DSKDHX' ' DECK-ID O68 MSOS 5.0' P P *B 'DSKCDR' ' DECK-ID D11 PERIPH. DRIVERS 1.1C' P P *B 'DTLCT9' ' DECK-ID C46 PERIPH. DRIVERS 1.1C' P P *B 'MDRSMD' ' DECK-ID C94 PERIPH. DRIVERS 1.2C' P P *B 'NXTLOC' ' NEXT AVAILABLE LOCATION' P P *T P P *K,I8 P P *N,DSKTAP,,,B P P *K,I6 P P *L,SETPV4 P P *B 'SPCALL' ' DECK-ID N92 MSOS 5.0' P P *K,P8 P P *P,F P P *B 'SPOLY1' ' DECK-ID N93 MSOS 5.0' P P *B 'STPV4' ' DECK-ID N94 MSOS 5.0' P P *B 'IERROR' ' DECK-ID N95 MSOS 5.0' P P *B 'MCTDK' ' DECK-ID N96 MSOS 5.0' P P *B 'GETPAG' ' DECK-ID N97 MSOS 5.0' P P *B 'CONPRT' ' DECK-ID N98 MSOS 5.0' P P *B 'REDCON' ' DECK-ID N99 MSOS 5.0' P P *B 'CONDEC' ' DECK-ID O01 MSOS 5.0' P P *B 'ORDERM' ' DECK-ID O02 MSOS 5.0' P P *B 'IREAD' ' DECK-ID O03 MSOS 5.0' P P *B 'ASCOUT' ' DECK-ID O04 MSOS 5.0' P P *B 'PARAMS' ' DECK-ID O05 MSOS 5.0' P P *B 'DISKIO' ' DECK-ID O06 MSOS 5.0' P P *B 'NXTLOC' ' NEXT AVAILABLE LOCATION' P P *T P P *K,I8 P P *N,STP1V4,,,B P P *K,I6 P P *K,P8 P P *P,F P P *B 'SPOLY2' ' DECK-ID O07 MSOS 5.0' P P *B 'SUP' ' DECK-ID O08 MSOS 5.0' P P *B 'IERROR' ' DECK-ID N95 MSOS 5.0' P P *B 'GETPAG' ' DECK-ID N97 MSOS 5.0' P P *B 'BTOA' ' DECK-ID O09 MSOS 5.0' P P *B 'ISTAT' ' DECK-ID O10 MSOS 5.0' P P *B 'SCIO' ' DECK-ID O11 MSOS 5.0' P P *B 'SCRD' ' DECK-ID O12 MSOS 5.0' P P *B 'REDCON' ' DECK-ID N99 MSOS 5.0' P P *B 'ICAT' ' DECK-ID O13 MSOS 5.0' P P *B 'BUFIN' ' DECK-ID O14 MSOS 5.0' P P *B 'MOVE' ' DECK-ID O15 MSOS 5.0' P P *B 'IREAD' ' DECK-ID O03 MSOS 5.0' P P *B 'ASCOUT' ' DECK-ID O04 MSOS 5.0' P P *B 'PARAMS' ' DECK-ID O05 MSOS 5.0' P P *B 'DISKIO' ' DECK-ID O06 MSOS 5.0' P P *B 'NXTLOC' ' NEXT AVAILABLE LOCATION' P P *T P P *K,I8 P P *N,STP2V4,,,B P P *V INSTALL LIBRARY BUILDER P P *K,I6 P P *L,LIBILD P P *B 'LIBILD' ' DECK-ID O29 MSOS 5.0' P P *K,P8 P P *P,F P P *B 'LIBIDO' ' DECK-ID O30 MSOS 5.0' P P *B 'CONVRS' ' DECK-ID O38 MSOS 5.0' P P *B 'MESSY' ' DECK-ID O31 MSOS 5.0' P P *B 'LJA2B' ' DECK-ID O37 MSOS 5.0' P P *B 'MOVECH' ' DECK-ID O32 MSOS 5.0' P P *B 'PICKUP' ' DECK-ID O33 MSOS 5.0' P P *B 'IOSUB' ' DECK-ID O34 MSOS 5.0' P P *B 'NXTLOC' ' NEXT AVAILABLE LOCATION' P P *T P P *K,I8 P P *N,LIBIDO,,,B P P *K,I6 P P *K,P8 P P *P,F P P *B 'HELPER' ' DECK-ID O35 MSOS 5.0' P P *B 'MOVECH' ' DECK-ID O32 MSOS 5.0' P P *B 'HELP0' ' DECK-ID O39 MSOS 5.0' P P *B 'HELP1' ' DECK-ID O40 MSOS 5.0' P P *B 'HELP2' ' DECK-ID O41 MSOS 5.0' P P *B 'HELP3' ' DECK-ID O42 MSOS 5.0' P P *B 'HELP4' ' DECK-ID O43 MSOS 5.0' P P *B 'HELP5' ' DECK-ID O44 MSOS 5.0' P P *B 'HELP8' ' DECK-ID O45 MSOS 5.0' P P *B 'HELP9' ' DECK-ID O46 MSOS 5.0' P P *B 'HELP10' ' DECK-ID O47 MSOS 5.0' P P *B 'HELP11' ' DECK-ID O48 MSOS 5.0' P P *B 'HELP12' ' DECK-ID O49 MSOS 5.0' P P *B 'HELP13' ' DECK-ID O50 MSOS 5.0' P P *B 'HELP14' ' DECK-ID O36 MSOS 5.0' P P *B 'NXTLOC' ' NEXT AVAILABLE LOCATION' P P *T P P *K,I8 P P *N,HELPER,,,B P P *V INSTALL SKELETON EDITOR P P *K,I6 P P *L,SKED P P *B 'SKED' ' DECK-ID O51 MSOS 5.0' P P *K,P8 P P *P,F P P *B 'SKFILE' ' DECK-ID O52 MSOS 5.0' P P *B 'NXTLOC' ' NEXT AVAILABLE LOCATION' P P *T P P *K,I8 P P *N,SKFILE,,,B P P *V SYSTEM INITIALIZER P P *K,I6 P P *L,SILP P P *B 'SILP' ' DECK-ID O64 MSOS 5.0' P P *K,P8 P P *P,F P P *B 'CONTRL' ' DECK-ID O17 MSOS 5.0' P P *B 'ILOAD' ' DECK-ID O18 MSOS 5.0' P P *B 'LDRTBL' ' DECK-ID O19 MSOS 5.0' P P *B 'I1' ' DECK-ID O20 MSOS 5.0' P P *B 'I2' ' DECK-ID O21 MSOS 5.0' P P *B 'Q1810' ' DECK-ID C28 PERIPH. DRIVERS 1.0C' P P *B 'Q1827' ' DECK-ID D06 PERIPH. DRIVERS 1.1C' P P *B 'IDRIV' ' DECK-ID O23 MSOS 5.0' P P *B 'QMLCT9' ' DECK-ID C44 PERIPH. DRIVERS 1.1C' P P *B 'MDRIV' ' DECK-ID O22 MSOS 5.0' P P *B 'Q18331' ' DECK-ID C88 PERIPH. DRIVERS 1.2C' P P *B 'QCDDMY' ' DECK-ID C49 PERIPH. DRIVERS 1.1C' P P *B 'QPTDMY' ' DECK-ID D05 PERIPH. DRIVERS 1.1C' P P *B 'NXTLOC' ' NEXT AVAILABLE LOCATION' P P *T P P *K,I8 P P *N,SI,,,B P P *K,I6 P P *L,SMDMPI P P *B 'SMDMPI' ' DECK-ID C92 PERIPH. DRIVERS 1.2C' P P *K,P8 P P *P P P *B 'SMDINT' ' DECK-ID C93 PERIPH. DRIVERS 1.2C' P P *B 'NXTLOC' ' NEXT AVAILABLE LOCATION' P P *T P P *K,I8 P P *N,MPSMDI,,,B P P *K,I6 P P *L,SMDMPT P P *B 'SMDMPT' ' DECK-ID C91 PERIPH. DRIVERS 1.2C' P P *K,P8 P P *P P P *B 'SMDTGS' ' DECK-ID C95 PERIPH. DRIVERS 1.2C' P P *B 'NXTLOC' ' NEXT AVAILABLE LOCATION' P P *T P P *K,I8 P P *N,MPSMDT,,,B P P *Z P P *K,I10,P11,L9 P P *WEF P P *END P P *JOB,INIT,INITIALIZE RPGII DISK FILES - USE ASCII MODE TO COPY THIS FILE P P *K,I6 P P *CTO, RPGII DISK FILES WILL BE INITIALIZED P P *DFUT P P *INITIALIZE P P *DISCARD,FN=ERRORFIL P P *DEFINE,FN=ERRORFIL,LR=60,MR=200,TY=D P P *LOAD,FN=ERRORFIL P P *001D FILE IS ALREADY OPENED P P *002D TRIED TO PROCESS FILE IN WRONG MODE (E.G. WRITE INPUT) P P *003D SPECIFIED RECORD LENGTH IS TOO BIG FOR BUFFER P P *004D FILE NOT DEFINED IN DIRECTORY P P *005D AN ADD FILE FOB SEQ. PROC. MUST BE DEFINED AS OUTPUT P P *006D ADD/LOAD SEQUENTIALLY NOT FOR DIRECT DEFINED FILE P P *007D FILE DEFINITION IS WRONG FOR SEQ. PROC. P P *008D RECORD LENGTH NOT COMPATIBLE WITH THE DIRECTORY P P *009D FILE MGR DID NOT HANDLE DIRECTORY REQUEST STATUS $$$$$ P P *010D TRIED TO ACCESS AN UNOPENED FILE P P *011D READ09 FOUND FILE TO BE NON UNIT-RECORD DEFINED P P *012D RECORD #### WAS SHORT-PADDED WITH BLANKS P P *013D READ12 FOUND FILE DEFINED AS A NON DISK FILE P P *014D RECORD #### WAS TOO LONG-RECORD TRUNCATED P P *015D WRIT17 FOUND FILE DEFINED AS A NON UNIT-RECORD FILE P P *016D WRIT20 FOUND FILE DEFINED AS A NON DISK-SEQ FILE P P *017D UPDT26 FOUND FILE DEFINED AS A NON DISK-SEQ FILE P P *018D MULTIPLE UPDATES WITHOUT READ IN BETWEEN IS INVALID P P *019D ADDT30 FOUND FILE DEFINED AS A NON DISK-SEQ FILE P P *020D CLOS35 FOUND FILE DEFINED AS A NON UNIT-RECORD FILE P P *021D CLOS38 FOUND FILE DEFINED AS A NON DISK-SEQ FILE P P *022D MASS STORAGE ERROR P P *023D FILE MGR DID NOT HANDLE FILE REQUEST $$$$$ P P *024D END OF TAPE ENCOUNTERED P P *025D INPUT DEVICE FAILURE P P *026D OUTPUT DEVICE FAILURE P P *027D SHARED BUFFERS, NOT ALLOWED FOR TAPE FILES P P *028D BLOCK SIZE MUST BE INTEGER MULTIPLE OF RECORD SIZE P P *029D READ11 FOUND FILE NOT DEFINED AS TAPE P P *030D WRIT19 FOUND FILE NOT DEFINED AS TAPE P P *031D CLOS37 FOUND FILE NOT DEFINED AS TAPE P P *032D DATA OVERFLOW -NO MORE TAPE VOLUMES DECLARED P P *033D ADDING RECORDS IS NOT ALLOWED IN DIRECT PROC. P P *034D OUTPUT FILE FOR DIRECT PROC. MUST BE DEFINED DIRECT P P *035D DIRECT PROC. ON INDEXED FILE ALLOWED ONLY FOR INPUT P P *036D FILE DEFINITION IS WRONG FOR DIRECT PROC. P P *037D READ13 FOUND FILE DEFINED AS A NON DISK-DIRECT FILE P P *038D WRIT21 FOUND FILE DEFINED AS A NON DISK-DIRECT FILE P P *039D UPDT27 FOUND FILE DEFINED AS A NON DISK-DIRECT FILE P P *040D CLOS39 FOUND FILE DEFINED AS A NON DISK-DIRECT FILE P P *041D RECORD NUMBER ##### OUT OF RANGE P P *042D DOUBLE BUFFERING NOT ALLOWED FOR INDEX FILE P P *043D INDEX PROC. IS ALLOWED ONLY FOR INDEXED-DEFINED FILES P P *044D KEY LENGTH/POSITION NOT COMPATIBLE WITH DIRECTORY P P *045D OPEN05 WAS CALLED FOR NON-RANDOM PROCESSING P P *046D READ15 FOUND FILE DEFINED AS A NON INDEX FILE P P *047D WRIT23 FOUND FILE DEFINED AS A NON INDEX FILE P P *048D ADDT32 FOUND FILE DEFINED AS A NON INDEX FILE P P *049D CLOS41 FOUND FILE DEFINED AS A NON INDEX FILE P P *050D UPDT29 FOUND FILE DEFINED AS A NON INDEX FILE P P *051D THE KEY IN RECORD #### WAS MODIFIED BY UPDATE P P *052D CLOS40 FOUND FILE DEFINED AS A NON INDEX FILE P P *053D READ19 FOUND FILE DEFINED AS A NON INDEX FILE P P *054D WRIT22 FOUND FILE DEFINED AS A NON INDEX FILE P P *055D UPDT28 FOUND FILE DEFINED AS A NON INDEX FILE P P *056D ADDT31 FOUND FILE DEFINED AS A NON INDEX FILE P P *057D SETL33 FOUND FILE DEFINED AS A NON INDEX SEQ. FILE P P *058D RECORD #### OUT OF ORDER P P *059D SETL33 SET LOWER LIMIT NOT ALLOWED FOR ADD FILES P P *060D KEY OF RECORD #### ALREADY EXISTS P P *061D SEQ. PROC. FOR INDEX-DEFINED FILE-ONLY FOR INPUT P P *062D UNABLE TO SORT THE KEYS P P *063D SLCT34 CALL STACKER SELECT IS NOT SUPPORTED P P *064D ERROR CODE IN BUFFER IS WRONG FOR TAPE P P *065D NO VOL1 LABEL ON SL TAPE P P *066D WRONG DATA SET NAME P P *067D TAPE VOLUMES MOUNTED IN WRONG ORDER P P *068D TAPE FILE NOT DEFINED BY MOUNT UTILITY P P *069D WRONG VOLUME SERIAL NUMBER P P *070D INVALID EXPIRATION DATE P P *071D FILE MANAGER ERROR IN READING MOUNT FILE P P *072D UNEXPIRED DATE SET, OVERWRITE ? P P *073D TO RETRY, ANSWER WITH 'U' P P *074D COMBINED FILES ARE NOT SUPPORTED P P *075D OPEN02 FOUND FILE DEFINED AS NON SPECIAL DEVICE FILE P P *076D WRONG BUFFER SIZE, CAN NOT BE USED FOR FIXED BLOCKING P P *077D BLOCKING IS IMPOSSIBLE FOR SHARED BUFFERS P P *078D ERROR RETURN FROM SPECIAL DEVICE DRIVER, STATUS =$$$$$ P P *079D READ10 FOUND FILE DEFINED AS NON SPECIAL DEVICE FILE P P *080D UPDT25 FOUND FILE DEFINED AS NON SPECIAL DEVICE FILE P P *081D RECORD #### WAS TOO LONG- RECORD IGNORED P P *082D CLOS36 FOUND FILE DEFINED AS NON SPECIAL DEVICE FILE P P *083D WRIT18 FOUND FILE DEFINED AS NON SPECIAL DEVICE FILE P P *084D NOT USED P P *085D NOT USED P P *086D NOT USED P P *087D NOT USED P P *088D NOT USED P P *089D NOT USED P P *090D NOT USED P P *091D NOT USED P P *092D NOT USED P P *093D NOT USED P P *094D NOT USED P P *095D NOT USED P P *096D NOT USED P P *097D NOT USED P P *098D NOT USED P P *099D ERROR AT LOCATION =$$$$$ P P *100D NOT USED P P *101R HALT INDICATOR H1 IS ON, ENTER 0 OR 2 OR 3 P P *102R HALT INDICATOR H2 IS ON, ENTER 0 OR 2 OR 3 P P *103R HALT INDICATOR H3 IS ON, ENTER 0 OR 2 OR 3 P P *104R HALT INDICATOR H4 IS ON, ENTER 0 OR 2 OR 3 P P *105R HALT INDICATOR H5 IS ON, ENTER 0 OR 2 OR 3 P P *106R HALT INDICATOR H6 IS ON, ENTER 0 OR 2 OR 3 P P *107R HALT INDICATOR H7 IS ON, ENTER 0 OR 2 OR 3 P P *108R HALT INDICATOR H8 IS ON, ENTER 0 OR 2 OR 3 P P *109R HALT INDICATOR H9 IS ON, ENTER 0 OR 2 OR 3 P P *110R NO PRIMARY OR SECONDARY FILES ARE OPENED, ENTER 3 P P *111R SQUARE ROOT OF NEGATIVE NUMBER, ENTER 0 OR 2 OR 3 P P *112R NOT USED P P *113R DIVISION BY ZERO, ENTER 0 OR 2 OR 3 P P *114R ARRAY INDEX OUT OF RANGE, ENTER 0 OR 2 OR 3 P P *115R INPUT TABLE OR ARRAY OUT OF SEQUENCE, ENTER 0, 2 OR 3 P P *116R NO TABLE OR ARRAY DATA IN FILE, ENTER 0 OR 2 OR 3 P P *117R TOO MUCH DATA FOR TABLE OR ARRAY, ENTER 0 OR 2 OR 3 P P *118R SUBROUTINE RETURN STACK IS FULL, ENTER 2 OR 3 P P *119R SUBROUTINE RETURN WITHOUT PREVIOUS EXSR, ENTER 2 OR 3 P P *120R END-OF-FILE FOR DEMAND FILE, ENTER 0 OR 2 OR 3 P P *121R RECORD NOT FOUND KEY NOT IN INDEX FILE, ENTER 1 2 OR 3 P P *122R RELATIVE RECORD NUMBER OUT OF RANGE, ENTER 1 OR 2 OR 3 P P *123R RECORD IS OUT OF SEQUENCE, ENTER 1 OR 2 OR 3 P P *124R FILE OUT OF MATCHING RECORD SEQUENCE, ENTER 1, 2 OR 3 P P *125R UNIDENTIFIED RECORD IN FILE, ENTER 1, OR 2 OR 3 P P *126R TOO MUCH DATA FOR RECORD, ENTER 1 OR 2 OR 3 P P *127R NOT USED P P *128R NOT USED P P *129R NOT USED P P *130R ATTEMPT TO OUTPUT TO FULL FILE, ENTER 2 OR 3 P P *131R DIRECT ACCESS RECORD NO OUT OF RANGE, ENTER 2 OR 3 P P *132R ATTEMPT TO UPDATE FILE BEFORE INPUT, ENTER 0 OR 2 OR 3 P P *133R RECORD NOT FOUND WITH SPECIFIED KEY, ENTER 0 OR 2 OR 3 P P *134R DUPLICATE KEY FOR OUTPUT TO FILE, ENTER 0 OR 3 P P *135R DEVICE ERROR, ENTER 3 P P *136R FILE IS NOT PRESENT, ENTER 3 P P *137R FILE DOES NOT CORRESPOND TO DMPT DESCRIPTION, ENTER 3 P P *138R NOT USED P P *139R NOT USED P P *140R NOT USED P P *141R NOT USED P P *142R NOT USED P P *143R NOT USED P P *144R NOT USED P P *145R NOT USED P P *146R NOT USED P P *147R NOT USED P P *148R NOT USED P P *149R NOT USED P P *150R ALL HALT INDICATORS HAVE BEEN DISPLAYED ENTER 0 2 OR 3 P P *151R FORMS ALIGNMENT RETRY, ENTER 0 OR 1 P P *152R INVALID RESPONSE TO DISPLAY, ENTER 1 OR 2 OR 3 P P *153R INVALID RESPONSE TO PREVIOUS MESSAGE, ENTER AGAIN P P *154R NOT USED P P *155R NOT USED P P *156R NOT USED P P *157R NOT USED P P *158R NOT USED P P *159R NOT USED P P *160R NOT USED P P *161R NOT USED P P *162R NOT USED P P *163R NOT USED P P *164R NOT USED P P *165R NOT USED P P *166R NOT USED P P *167R NOT USED P P *168R NOT USED P P *169R NOT USED P P *170R NOT USED P P *171R NOT USED P P *172R NOT USED P P *173R NOT USED P P *174R NOT USED P P *175R NOT USED P P *176R NOT USED P P *177R NOT USED P P *178R NOT USED P P *179R NOT USED P P *180R NOT USED P P *181R NOT USED P P *182R NOT USED P P *183R NOT USED P P *184R NOT USED P P *185R NOT USED P P *186R NOT USED P P *187R NOT USED P P *188R NOT USED P P *189R NOT USED P P *190R NOT USED P P *191R NOT USED P P *192R NOT USED P P *193R NOT USED P P *194R NOT USED P P *195R NOT USED P P *196R NOT USED P P *197R NOT USED P P *198R NOT USED P P *199R RUNTIME TRACE, ENTER 0, 1, 2 OR 3 P P *200R NOT USED P P *FM P P *EXIT P P *CTO, RPGII DISK FILES INITIALIZED P P *CTO, RPGII ERROR MESSAGE FILE IS LOADED P P *CTO, MSOS 5.0 INSTALLATION COMPLETED - YOU MAY AUTOLOAD P P *Z P P *FM P