1401sim360_1971 1401sim360 1971
1401sim360_1971 1401sim360_1971
User Manual: 1401sim360_1971
Open the PDF directly: View PDF 
.
Page Count: 122
| Download | |
| Open PDF In Browser | View PDF |
IISPDVPR
JOR (OOOOO,M00510000a02aOOOOOOOO,12,0361~4,VRISKO,
1/ 90001),A,TIME=60,PRTY=lO
II
EXEC ASMFC,PARM.ASM='NOLOAD,NODECK'
XX PROC REGASM=56K,UNIWRK=PACK,A=A
00000100
XXASM EXEC PGM=IEUASM,PARM=;NOLOAD,DECKi,REGION=®ASM,RD=R
00000200
IEF6531 SUBSTITUTION JCL - PGM=lEUASM,PARM='NOLOAD,DECK',REGICN=56K,RD:R
XXSYSLIR DO DSN=CSPDBALS,DISP=SHR
00000300
XX DD OSN=SYSl.MACLIR,DISP=SHR
00000400
XXSYSUTI DD UNIT=&UNIWRK,SPACE=(3520,(20Q,200»,DSN=&SYSUTl
00000500
IEF6531 SUBSTITUTION JCL - UNIT=PACK,SPACE=C3520,(200,200»,DSN=&SYSUTl
XXSYSUT2 DO UNIT=(&UNIWRK.,SEP=SYSUTl),SPACE=(3520,C200,200»,
00000600
IEF6531 SUBSTITUTION JCL - UNIT={PACK,SEP=SYSUTl)ySPACE=(3520,(200,200»,
XX DSN=&SYSUT2
00000700
IEFb53I SUBSTITUTION JeL - DSN=ESY5UT2
XXSYSUT3 DD UNiT=(&UNiWRK.,SEP=(SYSUTI,SYSUT2),SPACE=(3520,(200,200)),00000800
IEF6531 SUBSTITUTION JCl - UNIT=(PACK,SEP=(SYSUTl,SYSUTZ»,SPACE={3520,(200,200)}y
XX DSN=£SYSUT3
00000900
IEF6531 SURSTITUTION JCL - OSN=&SVSUT3
IIASM.SYSPRINT DD SPACE=(3509,(225,25),RlSE,CONTIG)
X/SYSPRINT 00 SYSDUT=EA,SPACE=(3509,(4Q,20),RLSE,CONTIG),
00001000
IEF653I SUBSTITUTION JCL - SYSQUT=A,SPACE=(3509,(4C,20),RLSE,CONTIG),
xx
OCB=(RECFM=F8M,LRECL=121,BLKSIZE=3509,BUFNO=2}
00001100
XXSYSPUNCH DO SYSOUT=B,DCB=(RECFM=FB,L~ECL=80,BLKSIZE=3520),
00001200
XX SPACE=(3520,(400),RLSE)
00001300
/IASM.SYSIN DD DSN=CSPDVPRS,UNIT=TAPE7,LABEL=(,NL),DISP:OLD,
II
II
DCB=(RECFM=FByLRECL=80yALKSIZE=1600~TRTCH=C,DEN=2},
VOL=SER=T04616
IEF236I ALLOC. FOR SPDVPR
IEF2371 230
ALLOCATED TO
IEF2371 230
ALLOCATED TO
IEF2371 345
ALLOCATED TO
IEF2371 341
ALLOCATED TO
IEF2371 232
ALLOCATED TO
I EF2311 lOS
ALLOCATED Te
IEF2371 105
ALLOCATED TO
iEF237I 495
ALLOCATED TO
ASM
SYSLIB
SYSUTI
SYSUT2
SYSUT3
SYSPRINT
SYSPUNCH
SYSIN
~ L~ is.)..
~,,~.,
).c.
""C ,~.
EXTERNAL SYMBOL DICTIONARY
SYMBOL
TYPE ID
SIMl401
SO
BEGIN
LD
ADJR
LENGTH L;) 10
01 000000 004224
002142
01
PA.GE
1
13.52 10/28/11
PAGE
lOC
000000
OHJFCT CDDE
ADDRI ADDR?
STMT
SCURCE STATEMENT
1 SlM1401
2
3
4
5
6
7
8
9
10
11
12
13
14
IS
16
17
18
19
20
21
22
23
74
25
26
27
28
29
30
31
32
'")..,
::;:>
34·
35
36
31
38
39
40
41
42
43
44
4·5
46
47
48
49
F150CT70
START 0
1
10/28/71
00000100
***********************************************************************
*
*
1401 SIMULATOR AS MODIFIED BY TOM BROWN WRD AS OF 71182
*
*
*
************************************************************************ 00000200
*
* 00000300
*
* 00000400
*
1 4 0 1
S 1 M U L A TOR
FOR
S Y S T E M / 3 6 0
* 00000500
*
* 00000600
*
* 00000100
*
* 00000800
*
THIS PROGRAM WILL SIMULATE A 1401 ON A SYSTEM/360. THE
* 00000900
* SYSTEM/360 MUST HAVE AT LEAST 65K, STANDARD INSTURCTION SET, ONE
* 00001000
* 1052, ONE 2540, AND ONE PRINTER. THE 1401 FEATURES SUPPORTED ARE
* 00001100
* ADVAC ED PROGR AMM I NG, SENSE SWI TCHES, TAPE S, MUL TI PLY, DIV I DE,
* 00001200
* 16K CORE, AND ALL STANDARD INSTRUCTIONS EXCEPT SELECT STACKER.
* 00001300
*..... OPERATOR CONTROL IS THROUGH THE 1052~ USING THE FOLLOWING ENTRIES * 00001400
....
* 00001500
*
00001600
....
SRS
START RESET
*
00001100
.....
....
STT
STARl
* 00001800
LOC
LOAD FROM CARDS
* 00001900
*:::.
LOAD FROM TAPE
LDT
* 00002000
SSS
SET SENSE SWITCHES
* 00002.100
*
TAS
TAPE ASSIGNMENT
* 00002200
*
CLR
CLEAR ALL 1401 CORE
* 00002300
*
OISPLAY 1401 CORE ON THE PRINTER
DIS
* 00002400
*
ALT
ALTER 1401 CORE
* 00002500
*
WRITE TAPE MARK
WTM
* 00002600
*
RWD
REWIND TAPE
* 00002700
*
TRM
TERMINATE THE SIMULATOR
* 00002800
.......*
* 00002900
* 00003000
*
.,..
* 00003100
16K BYTES ARE SET ASIDE FOR SIMULATED CORE, WITH EACH BYTE HAVING
*
00003200
* THE FOLOWING FORMAT.
*
00003300
*
360 BIT
1401 BIT
*
00003400
*
o
UNUSED
* 00003500
*
1
WORD MARK
* 00003600
*...
2
B
* 00003700
3
A
* 00003800
*
4
8
*
0000 3900
*
5
4
*
00004000
**
6
2
* 00004100
*
7
1
* 00004200
*
* 00004300
*
* 00004400
.a-
~
-r-
~
...,..
***********************************************************************
000045QO
PAGE
Loe
002148
003148
000000
OBJECT CODE
ADDRI ADDR2
STMT
51
'52
53
SOURCE STATEMENT
USING
USING
USING
SETHSl,l~'
SETBS1+4096,i4
SIMCOR,7
F150CT70
2
10128/71
00004700
00004800
00004900
PAGE
J~DD
LOC
OBJECT CODE
A.ODR 1 ADDk2
000000
000000 4990 EE64
000004 4780 D028
00028
4990 FF66
03FAE
aooooa
OOOODC 4780
000010
000014
000018
OOOOIC
000020
000022
000024
000028
03FAC
0OO3C
D03C
4990 I::E68
03FBO
4110 F9EE
02836
00001
416A. 0001
4580 FAEO
1885
02C28
l8CB
47FO D03C
416A 0001
OOODlC 4580 FAEO
000030 18135
000032 416A 0004
000036 4580 FAEO
0OOO3A 18C5
0OO03C 9201 EIBS
00004·0 9200 E1B6
000044 4160 6001
000048 43-4A nooo
00004C 8C40 0001
000050 4348 0000
000054 8840 0004
000058 8C40 0002
0OOO5C 434C 0000
000060 884-0 0004
000064 8D40 0003
000068 5440 EDD8
0OO06C 5A40 EDOC
000070 9101 4000
nnnn-,/.
/.71".1.V
,..,.. ..,.,
\.~vvv
0003C
00001
02C28
STMT
SOURCE STATEMENT
55
56 t,
57
58
59
60
61
62
63
64
65
66
67 AL7
68
032FD
032F E
00001
00000
00001
00000
00004
00002
00000
00004
00003
C:3F20
03F24
00000
rl11...n
tJ J.
~.JU
0OOO1C 4·110
000080 433C
000084 1863
000086 5430
0OOO8A 5930
OOCOSE 4740
000092 Se30
000096 4930
0OOO9A 4710
0OOO9E 1B33
OOOOAO
0000
0000
75
76
77
78
Ie
SRDL
Ie
SRL
79
80
81
SRDL
IC
SRl
SLOl
82
83
84
85
86
N
00000
00000
EDEc:
EE6A
!JOAO
03FB2
OOOAO
D096
9501 EIB6
OOOOA4 4780 OCCA
OOOOA8 434B
OOOOAC 1854
OOOOAE 5440
OOOOR2 5940
OOOOR6 4740
OOOOBA 5B4f)
0000
032FE
ooaCA
00000
EDEB
1\ I
ALIC+l,X t 70'
1,0
IC
3,0(12)
6,3
3,=F'15'
3,=F'11 t
*+8
N
C
BL
98
S
99
100
101
102
103
104
CH
fiNE
DOOBE
03F30
108
109
1 U
MVI
LA
95
96
97
03F2C
03F28
0, 1
4,0(10)
4,1
4.0(11)
4,4
4,2
4,0(12)
4,4
4,3
4,=F'31'
DETERMINE INSTRUCTION LENGTH
*
*
*
*
* CHARACTERS, SET
4*
*
.....
*
CONVERT
ADDRESSES
*
*
*
*
*
A AND B EQUAL
'-r-
SET I-POSITION INDICATOR
CLEAR A-·F 1 ElO ENDED INDICATOR
SET REGISTER FOR FAST SUBTRACTION
GET OP CODE
SAVE lOW ORDER BIT
GET A-FIELD SIGN
*
* B-F IELD
GET
*TEST TABLE
*
*
*r
nMD I CMCI'IIT
\"I...!I-If
I.. L.!-!L."!- ,
3,=F t 8'
3,=H'lO'
SIGN
Ann
MVV
SET TO KEEP SIGN
CLEAR CARRY
GET B-FIELD CHARACTER
SAVE B-FIELD ZONE
I SOL ATE DIGIT
QI IS DIGIT NUMERIC
YES
NO, ELH4INATE 8 BIT
01 ZERO
*+6
NO
SR
3,3
CLI
AENO,l
ALIB
YES, CLEAR IT
QI IS THERE STILL AN A-FIELD
NO
YES, GET DIGIT
BE
IC
LR
4,0(11)
5.4
.....
......
C
4,=F ' 15'
4,=F'11'
*QI
Bl
*+8
YES
S
4,=F'8'
NO, ELIMINATE 8 BIT
N
IS
10/28/71
00005100
00005200
00005300
00005400
00005500
00005600
00005700
00005800
00005900
00006000
00006100
00006200
00006300
00006400
00006500
00006600
00006100
00006800
00006900
00007000
00007100
00007200
00007300
00007400
00007500
PERFORM TRUE ADD
LR
106
107
12,5
POSI,l
AENO,O
HI... .L- t t
L'>V
94
105
EDEO
EDE4
DOBE
8,CVAD43
O(4),X'lt
on
07
ILEGLN
6,1(10)
8,CVAD43
1.1,5
12,11
ALI
6,1{lOl
8,CVAD43
1.1.5
6,4(10)
4,=A{TBTRCP}
A
TM
*
03F2C
00096
C3F30
LA
SAL
MVI
LA
88
...
89 ....
90
91
92
93 ALIA
03F28
B
-/4
t ..... ,
EDEO
9,=H'4'
BNE
LA
SAL
LR
lR
LR
MV I
."'-"11-.('\
EDE4
CH
72
73 ALI
'+.J\_,:.1. l.J \.,.!
OOOEl
BE
CH
BE
11
70
*
000078 9270 DOE1
A,13
9,=n t 1'
Al1
9,=H'1'
All
LR
LA
SAL
69
00004
02C28
USING
CH
F150CT70
3
DIGIT NUMERIC
00007600
00007700
00007800
00007900
00008000
00008100
00008200
"nnno"2r.n
VVVVVJVV
00008400
00008500
00008600
00008700
00008800
00008900
00009000
00009100
00009200
00009300
00009400
00009500
00009600
00009100
00009800
00009900
00010000
00010100
00010200
00010300
00010400
00010500
ADD
Lrtr
.....' v
PAGE
OBJECT
CODE
ADD;! 1
OOOORt 4940 EE6f~
4770 DOCS
0000C6 1B44
0000C8 1A34
OOOOCA lA31
ooooce 4110 0000
ooooe2
0000D4 4700 OOEO
OOOOE4
OOOOE8
oaOOEC
OOOOFO
OOOOF4
OOOOF8
OOOOFC
000100
000104
000106
9600 COOD
9240 DOEI
EIB6
032FE
4180 0112
9140 BOO 1
00001
4710 D12E
9200 EIB5
9501 EIB6
OOOF5
'.7rtl'\
au
000136
0OO13A
OOO13E
000140
000144
000146
0OOI4·A
0OO14E
54'50 EDEC
5460 EDEC
lA56
8910 0004
1AS1
4·250 D14F
9430 D14F
9600 COOl
1211
4780 E076
9201 ElAB
47FO E076
Q/ ZERO
*+6
NO
YES, CLEAR IT
AR
AR
AlIC
119
SH
LA
120 AL1C
NI
121
STC
TM
3,=H'10'
1 ,1
a ( 12 ) , Xt 00 '
3,AllD+l
AlID+l.X·OF'
5,ALID
A. L 1 0+ 1 , X ' 0 A t
122
123
124
125 A.LID
BC
OI
01
MV I
ClI
00112
129
130
131
TM
BZ
132
MVI
133 A.ll E
134
135
136
SR
TM
BO
137
138
139
140
141 ALIF
eLI
BNE
"i/.,.,
t: .,
VU.L~.Jt:.
03F34
03F34
00004
OO14F
0014F
00001
031BE
4,4
3,4
3,1
1,0
3,=Ht9'
BNH
00112
00080
032FD
4,=i--PIO'
BNI:
SR
LA
CH
116
117
BE
SR
SR
B
ClI
DC
ur::.
N
N
SLL
AR
STC
NI
150 ALIG
151 ALIGI
152
ALIC+l,X'40'
AEND,l
ALIE
11,0
ALIF
AEND,l
12,0
1(12),X'40 t
AL IF
POSI,O
AEND,l
ALIA
5,5
ALIA
pas 1,1
AlIGl
5,=F ' 48'
6,=F'48'
AR
148
149
0(12),0
l(ll)"X t 'fO'
MVI
1 ~. .,
.L",","L.
143
144
145
146
147
01
LTR
BC
5,6
1,4
5,1
5,ALIG+l
ALIG+l,X'30'
1(12),0
1,1
8,NXTOP
DVRFLO,l
NXTOP
153
MVI
R
00001
154
155 ....
156
151
158 ALIH
LA
1, 1
03300
159
ST
160
MVI
12, SAVB
ALIL+l,X t 70'
3,0(12)
3,=F'48'
3,=H'32'
ALII
C32F 3
031BE
F150CT10
CH
121
128
00080
rolC",)
U , l ~jL
'"i" I
SOURCE STATEt4ENT
126
1855
VVVJ.JL
OOOI5C
00001
OOl2E
4770 0080
OOOI2E 9501 EIB5
000158
118
032FD
032FE
OOOI2A 47FO 0080
000154
03FB2
00001
9140 COOl
000152
115
ISBO
032FE
,...ro.ro.,~"')
00000
03FB4
OOOED
OOOF4
DOOIOA 4780 0112
0OO1DE 9201 EIB6
000112 IBCO
000114
000118
OOOlie
000120
000124
000128
110
III
112
113
OOOF')
OOOFS
00000
OOOEl
9501
03FB2
000C8
00000
4230 OOF5
910F OOF5
4750 DOF4
960A DOFS
STMT
114 ALIB
000000 4930 EE6C
000008 4B30 EE6A
OOOODC 4110 0001
DaDOED 9400 COOO
r"f! '-, ?
A
iJ,UI....Ii'\.«:_.
ADD A TO B
ADD CARRY
CLEAR CARRY
Q/ IS RESULT GREATER THAN 9
NO, OK
YES, SUBTRACT 10
SET CARRY
STORE RESULT DIGIT
*Q/
IS RESULT ZERO
NO
YES, SET 8-2 BITS
*SET
TO ELIMINATE ZONES
Q/ HAS A-FIELD ALREADY ENDED
YES
DECREMENT A-FIELD ADDRESS
CI/ END OF A-FIELD
000160 4·110 0001
000164 50eO EIB8
000168 9270 DIE7
0OO16C 433C 0000
000170 543(1 EDEC
000174 4930 EE6E
000178 4780 0180
001E7
OOOOC
03F34
03FB6
00180
Ie
162
163
164
N
CH
BE
00010600
00010100
00010800
00010900
00011000
00011100
00011200
00011300
00011400
00011500
00011600
00011700
00011800
00011900
00012000
00012100
00012200
00012300
00012400
00012500
SET CARRY
SAVE B-FIELD UNITS ADDRESS
SET TO KEEP B-FIELD SIGi\i
GET B-FIELC SIGN
Q/ IS IT MINUS
*
00015800
000 15900
YES
00016000
NO
YES, SET A-FIELD ENDED INDICATOR
DECREMENT B-FIELD ADDRESS
0/ END OF B-FJELO
YES
NO, TURN OFF I-POSITION INDICATOR
Q/ A-FIELD ENDED
NO
YES, CLEAR A-FIELD CHARA.CTER
ADD NEXT POSITION
01 WAS THIS A I-POS IlION FIELD
vee
IL..;),
nr. '" c:
UU"IL
NO, ADD HIGH ORDER ZONES
*
*ADD CARRY
*STORE NEW
*
lONE
*
OJ WAS THERE A
CARRY
NO
YES,
SET OVERFLOW INDICATOR
PERFORM COMPLEMENT ADDI TI ON
161
10/28/71
00012600
00012700
00012800
00012900
00013000
00013100
00013200
00013300
00013400
00013500
00013600
00013700
00013800
00013900
00014000
00014100
00014200
00014300
00014400
00014500
00014600
00014700
00014800
00014900
00015000
00015100
00015200
00015300
00015400
00015500
00015600
00015100
'"f'
*
*
4
PAGE
ADO
LOC
OOO17C
000180
000184
000138
000lac
000190
000194
000198
0OO1ge
OOOl9E
0OOlA2
OBJECT CODE
ADDRI ADDR2
9630 COOO
00000
5420
5<)20
4140
5820
4920
4110
1822
4130
9501
OOOlA6 4780
OOOlAA 43',.13
000lAE 5440
000132 5940
0001B6 4740
DOOIBA
OOOlRE
EDE4
0194
00000
03F28
03F2C
00194
E-DES
03F30
EE6A
03FB2
OO19E
432C 0000
EDEO
D19E
0009
E-IB6
4170
1B44
IB34
lA23
I A21
4110
4920
4700
0001 [\.l\. 41120
OOOlDE- 4110
OOOlE2 4220
0001£6 9400
OOOlEA 910F
OOOlEE 4750
OOOlF2 960A
OOOlF6 9600
01(A.
OOlCA
0000
EDEO
00000
03F28
03FZC
165
166
C~
ALlI
161
I
2,otlZ}
N
2,=F 1 lS'
2,=F'11'
*+8
2,=F'S'
2,=H r l0'
*+6
7,2
3,9
C
BL
S
CH
BNE
SR
LA
CLI
BE
IC
N
e
OeiBE
180
BL
S
e(\ooo
181
182
185
184
185
186 AL 1,-'
181
188
03FR4
le9
CH
0001
00001
190
191
192
BNH
EE6A
001E2
C3FR2
DIF1
OOlf7
193 ALIK
STC
03FB2
001C8
D1C8
0000
EE6C
DIE2
CH
BNE
SR
SR
AR
AR
LA
SH
LA
COOO
00000
194 ALIL
NI
DIF7
DIF6
DOIF7
1M
DIF7
OOlF7
195
196
i97
198 ALIM
eooo
4180 0214
1880
9140 8001
001F6
00000
001E7
032FE
OO?14
00001
00214
4780 D214
9201 EIB6
199
032.FE
IBCO
000216 9140 COOl
0OO21A. 4710 022&
00021E 9200 E185
O()()2?? 47Fr DIP0
0002.26 1211
000228 4760 E076
00001
00226
C32F D
001PO
031RE
4110 0001
58CO E168
00001
432C
00000
03F34
noaa
5420 EDEC
03300
200
201
202
203
204
205
206 AllN
207
208
NO, PUT PLUS SIGN
GET B-FIELD DIGIT
0(12),)('30'
Ie
168.
169
170
171
112
113
174
175
116
171
118
179
F150CT10
5T AT EiV! ENT
03F30
OOOlFA 9240 DIE7
OOOlFE 9501 El~6
OOOZ2C
O()O230
000234
000238
032FE
EDE4
D1BE
5B40 EDE8
4940 EE6A
0001C2
0001C6
0001C8
0OO1CA
OOOlC(
OOOler:
000102
000106
000202
000206
000208
0OO20C
000210
000214
00009
SOURCE
ST~T
BC
01
or
MVI
ell
BE
SR
TM
Bl
MVI
SR
TM
BO
*
01 1 S DIGIT NUMERIC
YES
NO, ELIMINATE 8 BIT
QI ZERO
NO
YES, CLEAR IT
SET COMPLEMENT
AEND,l
Of HAS A-FIELD PREVIOUSLY ENDED
ALIJ
4,0(11)
4,=F'15'
4,=F t ll'
*+8
4,=F'8'
4,=H'lO'
*+6
4,4
3,4
2,5
2.1
1,0
2,=H ' 9'
ALII<
2, =H '1. O·
1, 1
2,ALIM+l
0(12),0
ALIM+l,X'OF'
5,ALIM
... t
AL
..
h,j
il
1.1"~"
'I-
IN STANDARD FORM
\/. A
A
•
1., A' Vf.\·
0(12),0
A. L 1 L+ 1 ,x • 40 '
AEND,}
ALIN
11,0
1(11),X'40'
ALlN
AEND,l
12,0
1(12),X'4Q'
YES
NO, GET A-FI flD DIGIT
"'"
'T".
Of IS DIGIT NUMERIC
YES
NO, EL I MINA TE 8 BIT
Of ZERO
NO
YES, CLEAR IT
COMPLEMENT A-FIELD DIGIT
ADD COMPLEMENT TO B-FIELD DIGIT
ADD CARRY
CLEAR CARRY
QI RESULT GREATER THAN 9
NO. OK
YES, SUBTRACT 10
SET CARRY
STORE RESULT DIGIT
*QI
IS RESULT ZERO
NO
vcrJL;.'>,
r-CT
..;lL. t
8-2
OlTe'
VA I';>
*SET
TO ELIMINATE B-FIElD lONES
Q/ HAS A-FIELD ALREADY ENDED
YES
NO, DECREMENT A-FIELD ADDRESS
Qf IS THIS THE END OF THE A-FIELD
NO
YES, SET A-FIELD ENDED INDICATOR
DECREMENT B-FIElD ADDRESS
Q/ IS THIS THE END OF THE B-FIELD
Mvr
ALIO
YES
209
POS 1,0
NO, CLEAR I-POSITION INDICATOR
210
B
211 ALI0
212
.,..
213 .....
214
215 *
216
2]7
218
219
LTR
BC
ALI I
1,,1
6,NXTOP
QI CARRY
YES, DONE
*
PERFORM RECOMPlEMENT CYCLE
LA
L
Ie
N
1" 1
12,SAVB
2,0(12)
2,=F'48'
SET CARRY
RESTORE B-F-If:lD UNITS ADDRESS
GET B-F IE LD SIGN
*
5
10/28/71
00016100
00016200
00016300
00016400
00016500
00016600
00016100
00016800
00016900
00017000
00011100
00017200
00011300
00011400
00011500
00011600
00011700
00011800
00011900
000 18000
00018100
00018200
00018300
00018400
00018500
00018600
00018100
00018800
00018900
00019000
00019100
00019200
00019300
00019400
00019500
00019600
00019100
00019800
00019900
00020000
00020100
00020200
00020300
00020400
00020500
00020600
00020700
00020800
00020900
00021000
00021100
00021200
00021300
0002.1400
00021500
ADD
LOC
PAGE
CBJECT CODf
0OO23C 94·CF C000
000240 9620 COOO
000244 4920 EE6!:
000248 4770 0250
00024C 9630 coon
000250 433C 0000
ADDRl
ACDR,2
00000
00000
03FB6
00250
00000
00000
000254 5430 EDEO
000258 4930 EE6A
03FI3?
4770 0262
00262
00025C
000260
000262
000266
1333
4140 0009
00009
1843
000268 lA41
00026A 4110
0OO26E 4940
000272 4700
000276 4840
0OO27A 4110
0OO27E
000282
000286
OOOl8A
00028E
000292
03F28
22('
221
222
223
224
225 ALIP
226
227
228
229
230
231
232
233
NI
o ( 1 2 1 , X t CF
01
CH
O(12),X'20'
2,=H'32'
ALIP
OCI2),X'30'
3,ot12)
3,=F'15'
3,=H'lO'
BNE
01
IC
N
CH
8NE
SR
LA
SR
AR
00000
03FB4
D27E
0027E
03FB2
235
BNH
EE6A
236
0001
00001
4240 D293
9470 COOO
00293
231
238 ALlQ
SH
LA
STC
239
NI
240
241
242
243 ALIt{
244
245
TM
01
01
SR
TM
246
Bl
910F D293
4750 D292
960A D293
'J600
cooo
00000
00293
00292
00293
ooono
00001
9140 COOl
4780 02'50
00250
47FO (=076
031BE
0100010000010100
0001000101000001
234
LA
CH
Be
247
B
248 TBTRCP DC
249
F150CT70
SOURCE STAT Er'4ENT
0000
EE6C
0007.96 IBCO
000298
0OO29C
0OO2AO
0OO2A4
0OO2B4
STMT
DC
f
SET SIGN Te MINUS
*
Q/ WAS THE P;-FIELD SIGN MINUS
NO, LEAVE IT MINUS
YES, SET IT PLUS
GET B-FIElD DIGIT
* ZERO
Q/
*+6
NO
3,3
4,9
4,3
4,1
1,0
4,=H'9'
ALlQ
4,=H'IO'
1, 1
4,ALIR+l
O(12),X'70'
ALIR+1,X'OF'
5,ALIR
ALIR+l,X'OA'
0(12),0
12,0
1(12),X'40'
YES, CLEAR IT
SET COMPLEMENT
COMPLEMENT THE DIGIT
ADD CARRY
CLEAR CARRY
Q/ IS THE RESULT GREATER THAN 9
ALIP
NO, OK
YES, SUBTRACT 10
SET CARRY
STORE RESULT
*QI
I S RESULT ZERO
NO
YES, SET 8-2 BITS
*
DECREMENT B-FIELD ADDRESS
01 IS THIS THE END OF THE B-FIELD
NO
NXTOP
YES
X'OlOOOlOOOOOIOlOOOIOOOIOOOOOlOlOQ'
X'OOOlOOOlOIOOOOOlOlOOOlOOOOOlOIOO'
6
10/28111
00021600
00021100
00021800
00021900
00022000
00022100
00022200
00022300
00022400
00022500
00022600
00022100
00022800
00022900
00023000
00023100
00023200
00023300
00023400
00023500
00023600
00023700
00023800
00023900
00024000
00024100
00024200
00024300
00024400
00024500
ZERO ANf) ADD
lOC
0002C4
0002C4
0002C8
0002CC
0002DO
000204
000208
On020C
aOO2EO
0OO2E4-
0OO2E6
0OO2E8
OBJECT CODE
PAGE
ADDRI
0OO2F8
0OO2FA
0002FC
0002FE
000302
000306
00030A
000310
000314
416A
4580
l8B5
18C5
4990
4780
416A
03FAE
253
002DC
03FBO
2~6
CH
BNE
LA
BAL
LR
lR
CH
02836
257
0001
00001
258 ZAL7
FAEO
02C28
259
03FBO
002FA
00004
02C28
1...7Q(\
-""J!-f.VV
,..,,,~~,..
1"'\(\70
V'J
J
V
000338 9630 COOO
'-"\.,. •.1'
J J '-"
00000
18B5
E076
6001
D064
6000
000350 960A 6000
000354 IB60
000356 47FO D080
USING
CH
BE
CH
254
255
I"V\~-:tiL
v v v - * - ' --,-
18C6
47FO
9140
000348 4710
00034C 9440
252 ZA
C02-F A
0OO31C
000320
000324
000328
0OO32C
000330
0OO33C
0OO33E
000340
000344
SOURCE STATEMENT
03FAC
18C5
186C
185B
4100 0001
00001
43313 0000
00000
4230 FB68
02eBO
0100 6000 50f)O 00000 00000
944F 6000
00000
1B50
IB60
9140 5001
00001
4710 D080
00344
9140 6001
00001
4780 0046
0030A
9620 COOO
00000
9430 FB68
02CBO
9520 FB68
02CBO
000316
000318
STMT
251
4990 EE66
4780 D036
4990 EE64
4780 DOIR
4990 EE68
4170 F9EE
EE68
D036
0002FO
0004
0OO2F4 4580 FA_EO
DOG2Ee
ADDR2
031BE
00001
00328
00000
00000
00344
260
261
262
263
264
265
BE
BE
lA
BAL
266
lR
267 ZAll
268
269
270
271
272 lALI A
273
274
275
276
277
278
279
280 ZAllC
281
282
LR
lR
LA
Ie
STC
MVN
NI
F150C 170
ZA,13
9,=H'lt
ZAl1
9,=H'7 1
ZAl7
9,=H'4'
I L EGLN
6,1(10)
8,CVAD43
11,5
12,5
9,=H'4'
ZAl1
6,4(10)
8.CVAD43
12,5
6,12
5 t l1
0,1
3,0(11)
SAVE
3,TEMPl
01
O(1,6),O(5}
0(6)"X'4F'
5,0
6,0
1(S),X'40'
ZALIE
1 ( 6 ) t X, • 40 I
ZAllA
0(12J.X'20'
NI
ell
TEMPl.X'30·
TEMPl,X'20'
?Q'l
OC
L
4
284
285 ZALID
286
287
288 ZALIE
289
290
291
292
01
,VJ
293
SR
SR
1M
BO
TM
81
~_.
7 Af 1
n
lR
0(lZ),X'30'
11,5
12,6
B
NXTOP
1M
I(6),X'40'
ZAllC
LR
80
*
MOVE NUMER IC
ELIMINATE ZONE
0/ END OF A-FIELD
YES
NO, END OF B-FIElD
NO, MOVE NEXT DIGIT
SET B-FIELD SIGN MINUS
0/ IS A-FIELD MINUS
*vee,
.......... U
NI
o ( 6 ) , X '4-0
01
SR
B
o (6) ,X 'OA I
6,0
ZAlIE
I
lOw CHARACTER OF A-FIELD
L-_J.
NO, SET B-fIELD SIGN PLUS
SET A-ADDRESS
SET B-ADDRESS
ZERO B-FIElO BEYOND RANGE OF A-FIELD
*
*
*
7
10/28/71
00024700
000248QO
00024900
00025000
00025100
00025200
00025300
00025400
00025500
00025600
00025700
00025800
00025900
00026000
00026100
00026200
00026300
00026400
00026500
00026600
00026700
00026800
00026900
00021000
00021100
00021200
00021300
00027400
00027500
00021600
00027100
00021800
f"I(,\f"I..,,.o('\n
vvv,r7VV
00028000
00028100
00028200
00028300
00028400
00028500
00028600
00028100
00028800
00028900
ZERO AND SUBTRACT
lOC
OBJECT CODE
AJ)OR 1 ADDR2
00035A
0OO35A 4990 EE64
0OO35E 4780 0018
SOURCE STATEMENT
295
USING
ZS,.13
296 l.S
CH
00372
BE
00390
291
298
299
9,=H'1'
lSI
4·990 EE68
03FBO
300
4770 F9EE
416A 0001
02636
CH
BNE
00001
301
302 Z 51
4580 FAEO
02C2.8
03FAE
18B5
18CB
lacs
306
CH
307
308
309
310
BE
00001
00000
02CBO
0100 6000 5000 00000 00000
944F 6000
00000
4100 0001
4338 0000
4230 FB68
0OO3AA IBSQ
00001
003E2
D088
311 ZSL4
312
313
LA
BAL
lR
LR
LR
LA
9,=H'I'
ZSL4
9,=H'4 t
ILEGLN
6,1(10)
8,CVAD43
11,5
12,11
9,=H'4 I
ZSL4
6,4(10)
8,CYAD43
12,5
5,11
6,12
0,1
3,0(11)
314
Ie
315
316 ZSL4A
STC
3,TEMPl
MVN
NI
0(1,6),0(5)
0(6),X'4F'
5,0
1(5),X'40'
ZSL4F
6,0
1(6},X'40'
317
318
319
320
321
322
323
SR
1M
BO
SR
1M
6001
00001
D046
COOO
BZ
ZSL4A
00000
324 Z.Sl4C
01
02CBO
02CBO
325
32.6
NI
CLI
O(12},X'20'
TEMPl,X'30'
TEMPl,X'20'
~?7
oJ c.. •
RP\IC
L.,I.v.1-
ZSL4D
328
01
LR
FB68
FB68
D078
COOO
003AO
003D?
00000
330
lR
331
B
332 ZSL4E
333
334 ZSL4F
335
NI
336
BO
0(12),X'30'
11,5
12,6
NXTOP
O(6),X'40'
O(6),X'OAI
6,0
1(6) ,X'ltO'
ZSL4C
337
B
ZSl4E
329 Z.SL4D
000302 18B5
000304 1~C6
0003D6 47FO
0OO3DA 9't40
0003DE 960A
0OO3E2 1860
0OO3E4 9140
0003E8 4710
0OO3EC 47FO
LA
BAl
LR
LR
00390
185B
186C
500 1
CH
BE
03FBO
00004
02C28
0OO38A 4580 FAEO
0OO3AC 9140
000380 4710
0003B4 1860
0003B6 9140
0OO3BA 4780
0OO3BE 9620
0003C2 9430
0OO3C6 9520
0OO3CA 4770
0OO3CE 9630
303
304
305
4990 fE-68
000382 4780 D036
000386 416A 0004
0OO38E
000390
000392
000394
000398
00039C
0003AO
0OO3A6
STr-iT
03FAC
000362 4990 EE66
000366 4780 0036
0OO36A
0OO36E
000372
000376
0OO37A
00037C
0OO31E
PAGE
E016
6000
6000
6001
D064
0080
031BE
00000
00000
00001
003BE
003DA
01
SR
TM
F150CT10
ONE IN REG
FOR SUBTRACTING
SAVE lOW CHARACTER OF A-FIELD
SET
0
*
NUMERIC
ELIMINATE ZONE
DECREMENT A-ADDRESS
MOVE
DECI{EMFNl B-AOORESS
SET P,-FIELD SIGN
MINUS
0/ WAS A-F I ELD MINUS
*
I C.A\lC
'-L"~VL.
TT
J.
I
U T "'111(",
I"' 11'«VJ
Tr:
.l.
MAKE B-FIELD PLUS
TT"
J. I
UA(",
"H.":<
nlll(",
rLU..:l
8
10/28/11
00029100
00029200
00029300
00029400
00029500
00029600
00029700
00029800
00029900
00030000
00030100
00030200
00030300
00030400
00030500
00030600
00030700
00030800
00030900
00031000
00031100
00031200
00031300
00031400
00031500
00031600
00031700
00031800
00031900
00032000
00032100
00032200
r.nn""'!J"-"""l""""
vVV::U::'.::lVU
00032400
00032500
00032600
00032700
00032800
00032900
00033000
00033100
00033200
00033300
BRANCH, CDND I T 1 ONAl
lOC
OBJECT CODE
BRt~NCHf
,li,DDR 1 ADDR2
0OO3FO
A.ND BRANCH ON CHARA.CTER
STMT
0OO3FO
0OO3F4
0OO3FR
0OO3FC
000400
000404
000408
0OO40C
000410
000414
4990 EE66
03FAE
339
340 B
000418
0OO41C
000420
000424
000428
0OO42C
000430
000434
000438
00043A
00043E
000442
000446
0OO44A
0OO44E
000452
0004-56
4780 D12C
005IC
341
03FRO
342
CH
4780 010A
4740 F9EE
9500 AOO4
4780 DIOA
4990 EE64
004FA
02B36
343
344
BE
BL
ClI
345
004FA
346
BE
03FAC
347
348
349
350
CH
4780 0118
00508
4990
4780
4120
4990
4770
FE70
03FB8
0112
00502
F9EE
EE1?
02B36
03FBA
F9FF.
02B36
00004
03F38
00002
433A 0004
5430 EOFO
0002
DI5C
00045E
000462
000466
nnnJ'.L 1\
VVV""TVH
"TIl
J'.7Cfl
!,\l1"\L
9501
47FO
9501
41FO
9501
ElAS
00046E
000472
000416
0OO47A
00047E
000482
000486
0OO48A
0OO48E
000492
000496
0OO49A
00049E
0OO4A2
0OO4A6
USING
4990 FF68
8930
5843
01F4
9101
4780
9101
4710
41FO
9501
47FO
9501
47FO
9501
47FO
9501
00045A
SOURCE STATEMENT
CH
BE
00004
v
9200
47FO
9501
47FO
9500
47FO
9501
47FO
EIAO
E016
E1B4
0054C
032E8
031BE
032FC
OIOA
004FA
E016
031Bf
f lA 1
0106
032E9
E1A2
032EA
004F6
004F6
0106
EIA3
032EB
004F6
D106
EIA4
032EC
nr\J'.CL.
VV"TI
V.&.VV
032ED
004Fb
0106
ElA6
032EE
0106
FIAA
EIAA
004F6
032F2
032F2
032F 1
004F6
0106
EIAC
032F4
0106
E l~,C
03?F4
004F6
DI06
004F6
91)02 FIAC
41FO 0106
0OO4AA 9500 EIAC
0004AE 4780 E076
000462 47FO DIOA.
OOQ4B6 9501 ElAB
032F4
0OO4BA 9200 E1A.R
0OO43E 47fO D106
0004C2 9'501 EIA7
032F3
004F6
032.F4
031BE
004FA
032F3
004F6
032EF
BE
9,=H'8'
351
352
CH
353
354
BNE
355
356
357
358
N
SlL
L
BR
359 BL5A
TM
360
361
362
363
364 BlSB
365
366 BL5C
367
368 BL50
369
370 Bl5E
Bl
IlEGLN
9,=H'5'
IlEGlN
3,4(10)
3,=F'63'
3,2
4,DCHARTBL(31
4
B
SENSE.A,l
NXTOP
CRDEOF,l
BL5BCH
NXTOP
Cl I
SENSEB,l
B
BL5CKB
TM
fiD
ClI
SENSEC,l
B
Bl5CKB
CLI
B
CLI
SENSED,l
~71
.... 'L
0
01
372 Bl5F
373
314 Bl5G
375
376 BL5K
CLI
B
CLI
SENSEF,l
378
379 Bl5L
380
381 BL5S
382
383 BL5T
384
385 Bl5U
386
387 Bl51
388
389
390 BL5Z
391
392
393 BL59
Bl5CKB
SENSEE,1
t:;rVD
UL.-'\,,'''U
L}
CL I
BE
BL5CKB
SENSEG,1
BL5CKB
TPEOF,,1
TPEOF,O
Bl5CKB
TPERR,l
Rl5CKR
CPR,O
BL5CKB
CPR,}
BL5CKB
CPR,2
Bl5CKB
CPR,O
NXTOP
B
BL5BCH
ell
DVRFLO,l
DVRFLO,O
BL5CKB
PRTP9,1
B
CLI
MVI
B
CLI
B
ClI
B
ell
B
CL I
B
MVI
R
CL I
10/28111
00033500
BCEIA
BCE8
9
CHAINED BCE?
YES, GO CHECK IT
UNCOND 4-POS BRANCH?
YES, DO IT
9,=H'4'
Bl5BCH
IlEGLN
4( 10) ,0
BL5BCH
9,=H'7'
BCE7
BE
BH
IC
F150CT70
B,13
9,:::H'1'
CH
377
004F6
DI06
EIA9
v
PAGE
ILLEGAL lENG TH OF 2 OR 3
IS POS 5 BLANK?
YES, UNCOND BRANCH
CHAINED 1-POS BRANCH?
YES, GO CHECK IT
8-POS BCE?
YES, DO IT
)8
~
NO GOOD
5-POS CDND BRANCH?
NO, ILLEGAL 6-POS INST
GET 0 CHARACTER
*MULTIPLY
BY 4
GET ADDRESS OF CONDITIONAL BRANCH RTN
GO TO ROUTINE OF NXTOP
01 IS SENSE SWITCH A ON
NO, CANNOT BRANCH
YES, IS READER EMPTY
YES, BRANCH
NO
00034500
00034600
00034100
00034800
00034900
00035000
00035100
00035200
00035300
00035400
00035500
00035600
00035700
00035800
00035900
00036000
00036100
I"\I"\I"\-'L'>I"\I"\
VVV;;)Vc.vv
00036300
00036400
00036500
00036600
00036100
00036800
00036900
00037000
00037100
00037200
00031300
00031400
00037500
00031600
00031700
00031800
00037900
00038000
00038100
00038200
00038300
00038400
BRANCH, CONDITIONAL BRANCH, AND BRANCH ON CHARACTER
lOC
OBJECT CODE
0004C6 47FO D106
0004CA 9501 ElA8
ADDRI ADDRl
STMT
004F6
394
004F6
395 BL52
eLI
396
8
397 BL5RER CLI
032FO
0004CE 47FO 0106
0004D2
000406
0004DA
0004DE
9501
9200
47FO
9501
0004E2 9200
E le8
ElC8
03310
0331.0
0106
EIC7
EIC7
0330F
0330F
Bl.5CKB
RDRERR,l
f3l5CKB
PCHERR,l
PCHERR,O
NXTOP
PRTERR,l
PRTERR,O
BL5CKB
NXTOP
EIAD A007 032F5 00001
409 BCES
0004
031BE
0004EE 9200 EIC9
03311
41FO 0106
4770 E076
0001
004F6
031BE
00001
F97E
02AC6
398
399
00004
02C28
410 BCE1
411
412
l.R
0001
00001
413
LA
fAEO
02C28
414
415
SAL
8,CVAD43
LR
11,5
416 BCEIA.
MVC
411
418
NI
TEMPl(lJ,OClZ}
TEMP1,X'BF'
TEMP 1, DCHAR
BCEIB
D200 FR68 COOO 02eBO 00000
94BF FB68
02C80
0500 FB68 EIAD 02eRO 032f5
00542
4770 015?
18CA
1AC9
50AO £180
~076
420
GLC
BNE
LR
419
421
AR
032fE
422
51
00000
031BE
423
424
425
lR
lA
12,IQ
12,9
10, LSTBCH
10,11
9,0
8
NXTOP
426
SH
1 ., _
427
8
NXTOP
18AB
4190 0000
41FO E076
4BCO EEbb
lA
BAl
03FAE
031BE
CHECK CONDITION CODE
SET CONDITIONS FOR BRANCH
FAEO
MVC
Q/ PRINT ERROR
CLEAR ERROR INDICATOR
6,1(IO}
SETBCH
DCHAR,7(lO)
6,4(10)
8,CVAD43
12,5
6,1(10)
OOOSlA 18135
000546 47fO
BL5CKB
PRTP12,1
B
400 BL5PER ell
MV]
401
402 RL5P
B
ClI
403 Bl53
4Q4
MVI
405
B
406 3L5CKB BNE
407 BL5BCH LA
408
B
004f6
03311
00051C
000522
000526
00052C
000530
000532
000534
000538
00053A
00053E
000542
8
F150CT70
ROR ERR ,0
0004E6 47FO E076
416A
47FO
0200
416A
00050e 4580
000510 18C5
000512 416A
000516 4580
SOURCE STATEMENT
MVI
0004EA 9501 EIC9
0004F2
0004F6
0004FA
0004FE
000502
000508
PAGE
-u, 1
..... c- 7' -,.
I:
.I.-
NO, TREAT AS BCE
COMPARE 0 CHARACTER TO CORE LOCATION
,
OOO~F8
000031BE000031B~
432
DC
6A(~XTOD),A(BL5A,BL5B,Bl5C,BL5D,BL5E,Bl5F,BL5G)
00062C
000031BE000031~E
433
DC
2ACNXTCP),A(BL5RER1,5A(NXTOP}
429
DC
430
DC
431
DC
10/28/71
00038500
00038600
00038100
00038800
00038900
00039000
00039100
00039200
00039300
00039400
00039500
00039600
00039700
00039800
00039900
00040800
00040200
00040300
00040400
00040500
00040600
00040700
00040900
00041000
00041100
00041200
00041300
00041400
STORE lOCATION COUNTER BEFORE BRANCH
00054A 0000
00054C 000004FA000031BE
000580 000031BEOOOO?lBE
000598 0000049A000004A2
000504 0000047E0000048A
lt28 DCHAR TBl DC
10
A(Bl5BCH),8A(NXTOP),A(Bl59),2A(NXTOP),A(Bl52)
4A(NXTOP),A(BL51,BL5S)
A(Bl5T,Bl5U},4A(NXTOP},A(BL5Z,Bl53),1A(NXTOP)
A(BL5K,Bl5L),3A(NXTOP),A(BL5P,NXTOP,BL5P,BL5PER)
00041500
00041600
00041700
00041800
00041900
00042000
00042100
00042200
00042300
00042400
00042500
00042600
BRANCH ON WDR.D MARK I
LOC
00064-C
0OO64C
000650
000654
000658
0OO65C
000660
000664
000666
0OO66A
0OO66E
000610
000676
0OO61A
0OO67E
OBJECT CODE
VVVOvU
ADDRl ADDR2
PAGE
STMT
SOURCE STATEMENT
4";{,i;
USING
8WZ,13
4990 Ef66
4780 D02A
03FAE
436 BWZ
CH
9,::::H'1'
00616
4990 fE70
4170 F9EE
03FB8
02B36
437
438
416A
4580
18B5
416A
4580
18C5
0200
4BCO
9501
4780
000682 9502
000686 4780
0OO68A 9532
OOOb8E 4180
000692 9522
000696 4,780
0OO69A 9517
OOOb9E 4780
0OO6A2 Q'i03
0OO6A6 47RO
0OO6AA 9533
QOO6AE 4780
0006B2 9523
000686 4180
0OO6BA 91)13
aOObBE 4780
0006(2 47FO
nl"\nLr-L
ZONE
C'\ 1/.1"\
"7/J.'"!'\J
4710
41FO
9130
4180
aOO6DA 47FO
FAEO
00001
02C28
0004
FAEO
02C28
0001
00004
E1AD AOO7 032F5 00001
03FAE
EE66
EIAD
D07A
EIAD
032F5
EIAO
032F '5
00602
032F5
006DE
D092
EIAO
032F5
006EA
009E
E1AD
DOB2
032F5
EIAO
03?F5
006FE
00C6
EIAO
032F'5
00D2
EIAD
DODE:
032F5
ElAD
03?F5
DOEA
F9CO
r\.,V\.l
nl"\
1
.L
OOQ6CA
0OO6CE
000602
000606
DOF6
OaOoDE
9130 COOl
Oa06E2
0OO6E6
0OO6EA
0006EE
QOO6F2
OOOhF6
0OO6FA
0OO6FE
000702
000706
0OO70A
00070E
000712
000716
0OO7IA
00011E
4710
41FO
9120
4780
9110
4710
47FO
9120
4710
9110
4110
41FO
E076
COO 1
COOl
E076
COO I
COOl
9140 COOl
4710 DOFt>
COOl
SH
eLI
BE
CLI
BE
CLI
BE
453
454
ell
BE
ClI
455
456
457
458
00736
02S08
465
46&
BE
B
00142
031BE
468
0000 1
031BE
00001
03113E
00742
00001
031BE
00001
00742
03lBE
00001
00742
006D2
4-69
470
471
412
473
474
415
476
471
478
479
480
481
482
BE
ClI
Oi.I7\..!
1.)"1-"
TM
In
80
SWZO
B
TM
BZ
B
BWZBA
BWZB
BWZA
DCHAR,X 102'
SWZO
DCHAR,X'32'
BWlBA
DCHAR t X' 22'
BWZB
DCHAR,X'12'
BWZWO
DCHAR,X'33'
BWlWRA
OCHAR,X'23'
BWZWB
BE
ell
I. L - '
BWZW
BWZA
463
464
'"7''-' t
6,1(10)
8,CVAD43
11,5
6,4(10)
8,CVAD43
12,5
DCHAR(1),7CIO)
12,=H'1'
DCHAR,X'Ol'
BE
eLl
0072A
00742
031BE
00001
MVC
0071E
031BE
47FO 0086
91 /tO
00043200
00043300
00043400
00043500
00043600
00043700
00043800
00043900
00044000
ell
00001
DOF6
[076
00043100
ILEGlN
460
461
462
00742
E076
COOl
BWZLI
9,=H'8'
BE
00001
r::076
DOFf.>
449
450
451
452
BE
CH
BNE
LA
BAL
LR
LA
BAL
LR
459
V\_'!V\J.L
DOF6
E016
441
442
443
444
445
446
441 BWZLI
TM
RD
B
TM
DCHAR,X'03'
00045100
00045800
00045900
1 ( 12) ,X • 30 •
BWZBCH
NXTOP
It 12) yX'30 1
BWZBCH
NXTDP
I ( 12 ) ,X ' 20 •
NXTOP
1(12),X'lO'
AD
B
BWlBCH
NXTOP
T,'1
485
486 BWZWO
487
80
B
BWZBCH
NXTOP
TM
BO
1 ( 1 2 ) , X• 40
488
B
80
489 BH ZWB t," TM
00044200
00044300
00044400
00044500
00044600
00044700
00044800
00044900
00045000
00045100
00045200
00045300
00045400
00045500
00045600
BWZWA
IlEGOP
1 ( 1 .., \
vt/.A'
.A. \ .1.£.1,,,,,'...,..,,,,BWZBCH
NXTOP
8Z
TM
TM
00044100
DCHAR,X.'13'
1(12),X t 20'
NXTOP
1(12),X'10'
483
484
10/28/71
00042800
00042900
00043000
00712
nA"r\l
DOF6
E016
440
448
006C6
0086
439
F150CT10
11
I
BWZBCH
SWlG
1 ( 1 2 ) ,X I 4-0
"1"\ "
"vvv-,.-vvvv
"A .I~ L.
00046100
00046200
00046300
00046400
00046500
00046600
00046700
00046800
00046900
00041000
00041100
00047200
00047300
00041400
00047500
00047600
00047100
00047800
00041900
00048000
00048100
t
00048200
BRANCH
lOC
O~i
OBJ E-C T CODE
000722 4710 DOFf>
000126 47FO 0092
0OO72A 9140 COOl
0OO7?!: 4710 00F6
000732 47FO D09E
000736 9140 COOl
0OO73A 4110 OOF6
0OO73E 47FO 00B2
000742 SOAO EIBO
"r.,
...
\,~QR!)
",.~
V\,}L~ f ~o
'In.''''''
J.OI..,p.
000748
0OO74A
0OO74C
000750
lAC9
l8AS
;v)t~RK
/
ZONE
ADDRI ADDR2
PAGE
~.
T\04T
SOURCE STATEMENT
00742
49C
006DE
491
492 BWZWB
493
00001
00742
006EA
00001
00742
006FE
032F8
4190 0000
00000
47FO E016
031BE
494
495
496
497
498
499
500
501
502
503
80
B
TM
130
B
BWlWA TM
BO
B
BWlBCH ST
Fl?OCT10
12
10/28/71
BWZqCH
BWZBA
00048400
1(12),X'40'
00048500
8WlBCt1
00048600
00048100
00048800
00048900
00049000
00048300
BwlB
1(12).X'40'
BWlBCH
BWZA
lO,lSTBCH
LR
AR
LR
LA
9,0
8
NXTOP
12,10
12,9
10,11
STORE LOCATION COUNTER BEFORE BRANCH
SET B-REG
00049100
00049200
SET LOCATION COUNTER FOR BRANCH
00049400
00049500
*
*
00049300
00049600
PAGE
CDiViPAR E
loe
OBJECT ceDE
ADDRl
000754
000754· 4990 EE66
000758
0OO75C
000760
000764
000768
0OO76C
03F~,E
4780 D038
0078C
03FBO
00776
03FAC
02836
00004
02C28
4Q90 FE6P
4780
4990
4770
416A
4580
18C5
416A
AODR2
D022
FE64
F9EE
0004
FAEO
000770
000774
000776
0001
00001
0OO17A 4580 FAEO
02C28
0OO77E laB5
000780 4990 EE68
03FBO
000784 4170 D038
a07SC
000788 18C8
0OO7BA 18CB
00812
0OO18C 9200 DOBE
00000
000790 414·0 0000
000794 4100 0001
00001
000798 IBBO
0OO79A lRce
0OO79C 9140 COOl
oonOl
007[,;4
0OO7AO 4710 0060
00001
0OO7A4 9140 BOOI
00802
0OO7A8 4710 DOAf
00001
0OO7AC 4144 0001
0001BO 47FO 0044
00798
0007B4 18SB
000786 186C
00001
000788 4144 0001
0OO7BC D200 OOBF 6001 00813 00001
""·"7''")
vvv, ..... t:..
0007C8
0OO7CE
000104
0001D8
0OO7DC
0001EO
0OO7E4
0007E8
0OO7Ee
0OO7FO
0OO7F4
0OO7F8
0OO7FE
000802
000806
0OO80A
0OO80E
000812
000813
000815
000825
STvtT
SDURCE STA n: (>1EN T
505
506 C
USING
CH
507
BE
C.13
9,=H'1'
ell
508
CH
9.,=H'4'
509
BE
Cl4
510
CH
9,=H'l t
ILEGLN
511
512
513
514
515 Cl4
516
511
518
519
520
521
522 ell
523
524
525 Cl
526
527
528
529
530
531
532
BNE
LA
BAl
lR
lA
BAL
LR
CH
BNE
LR
lR
MVI
lA
LA
SR
SR
TM
80
TM
BO
lA
B
533 C2
LR
534
lR
535
LA
12,11
12,11
TePR,o
4,0
0,1
11,0
12,0
1(12),X'40'
C2
1 ( 1 1 ) , x • 40 I
C5
4.1(4)
C1
5,,11
6,12
4,1(4)
TCR ( 1 ) ,1 ( 6)
MVC
"Ann"l
V·VVV.l.
c:::-:.-,
j.:Jf
1"1
UtI,-
TrD..LlI1\
"l I c: \
1 ..... r.. T L \ . 1 . / ' L \ . . - " 1
DCOI D08F DOCI 00813 00815
0500 OOBF DOCO 00813 00814
4720 DOAE
00802
OOeOA
4740 DOB6
00001
4155 000 1
538
540
TR
ClC
BH
TCR(Z),CPRTBL
TCR(11,TCR+l
C5
541
Bl
C6
542
543
544
LA
LA
BCT
CH
5,1(5)
6.1(6)
4,C3
f"'\,")f"lA
1"'1"'-"
vv ..... \..,
(::"'A1
j '...l~j .1..
Af"la,
f.
VVOJ.-r
4166 0001
4640 0068
4990 EE66
00001
007BC
03FAE
007F8
4770 DOA4
9500 DOBE
00812
4780 E076
031BE
D200 E1ftC DOBE 032F4 00812
47FO E076
031BF
9202 DOBE
00812
47FO 0094
007EB
9201 DOBE
00812
47FO D094
007E8
00
0'03738393 A3q 3C 3D
130D2E2F30313233
000835 OC242526272B292A
539
545 (4
546
y...,
BNE
547
548
ell
BE
549 C4A
MVC
550
551 C5
552
553 C6
554
555 TCPR
556 TCR
557 CPRTBl
558
559
00049900
00050000
00050100
00050200
00050300
12,5
6,1(10)
8.,CVA043
11,5
9,=H'4'
eLl
CONVERT A-ADDR TO 360 FORMAT
*
*QI
IS INSTRUCTION 4 CHARACTfRS
NO
YES, fORS
YES, FORCE B/ADDR = A/ADDR
INITIALIZE COMPARE RESULT TO EQUAL
LONG B-FIELD
A
~XTOP
VVV;..J;:JVVV
CONVERT DIGITS TO SORT SEQUENCE
HIGH
DC
TC PR, 2
C4
TCPR,l
C4
X'OO'
OS
ell
[IC
HL1'O,55,5b,57,5R,59,bO,61,62,63,54,20,2I,22,23,24'
HLl'19,13,46,47,4B,49,50,51,52,53,45,14,15,16,17,18'
HLl'12,36.37,38,39,40,41,42?43,44,35,7,8,9,IO,11'
B
DC
DC
00050400
00050500
00050600
00050700
00050800
00050900
00051000
00051100
00051200
00051300
00051400
00051500
00051600
00051100
00051800
00051900
00052000
00052100
00052200
00052300
00052400
00052500
OOO?2600
00052700
00052800
00052900
nnnc-,nnn
9,=H'1'
C4A
TCPR,O
NXTOP
CPR,TCPR
MVI
B
MVI
10/28/71
00049800
6,4(10)
8,CVAD43
536 C3
V t:... VV
F150CT70
13
SET
SET lOW
00053100
00053200
00053300
00053400
00053500
00053600
00053700
00053800
00053900
00054000
00054100
00054200
00054300
00054400
00054500
00054600
00054100
00054800
00054900
00055000
00055100
00055200
. -.
..
.. -
---_...
,-~
COMOAxt
LOC
OBJECT CODE
PAGE
ADDRI AODR2
000845 061AIBICIDIEIF20
000855 003738393A393C3D
000865 130D2E2F30313233
000875 OC2425262728292A
000885 061AIBICIDIEIF20
STMT
SOURCE STATENENT
560
DC
561
562
563
564
DC
DC
DC
DC
F150CT70
Hllr6,26,27,28,29.30,31,32,33,34,25,1,2,3,4,S'
Hll'O,55,56,57,58,S9,60,61,62,63,54,20,21,22,23,24'
HLltI9,13,46,41,48,49,50,51,52,53,45,14,15,16,11,18'
Hllt12,36,37,38,39,40,41,42,43,44,35,7,8,9,lO,11'
HLI'6,26,27,28,29,30,31,32,33,34,25,1,2,3,4,5 1
14
10/28/71
00055300
00055400
00055500
00055600
00055100
PAGE
HALT
LOC
000896
000895
000896
00089A
00089E
0OO8A2
0OO8A6
0008AA
0OO8AE
0OO8R2
0008'36
0008138
OOORBA
0OO8SE
0008C4
0008CA
0008C(
000802
000806
aooaDA
Od.JEeT CODE
t~ [j[)R
1 /\DDK 2
00
4990 EE66
4780 0020
4990 EE74
4780 D020
4990 EF68
4780 D020
4990 EE64
1-1, 13
00055900
03FAE
008136
567 h
CH
BE
9,=H'1'
03F8C
00866
569
570
571
572
573
574
575 HI
576
577
578
579
580
581
00056000
00056100
00056110
00056120
00056200
00056300
00056400
00056500
00056600
00056610
00056100
00056110
00056800
00056900
00057005
00057010
00057015
00057020
00057025
00051030
00057035
00051040
00057045
00057100
00057200
00057300
00057400
00057500
00051600
00057700
03FBO
008B6
03FAC
DODO
00966
DOF6 00998 0098C
DOF6 02038 OQ98C
02D31
03FBC
00922
008F2
BE
CH
BE
CH
BNE
LR
AR
BAL
IS IT A 2-POS HALT?
YES, GO PROCESS
TAB
TAB
9,=H t 4'
Hl
9,=H'1 1
ILEGLN
5,10
5,9
CONVERT I ADDRESS
ADD LENGTH TO I
8,H5
- LOC
TAB
*
590
BL
591
LA
07C28
00966
592
SAL
593
BAL
g,H5
02D44 a098C
00004
0004
FAEO
02C28
00966
DODO
FCOS DOF6 02040 0098C
02031
9223 F8E9
4580 FBD6
02DIE
594
595
596
597
MVC
HLTWTO+24(6),HLTADARA
MOVE A ADDRESS TO OUTPUT
6,4(10)
CONVERT 1401 B ADDRESS
8,CVA043
*
598
599
MVC
MVI
4720 Dose
92C4 FBF!3
02D43
FRFO AOOI 02D4·5 00001
0OO8EA 9216 FBE9
0008E[ 47FO D08C
02031
0OO8F2 92Cl FBFB
0OO8F6 4740 D08e
0OO8FA 416A 0001
02043
4580
4580
0205
416A
4580
4580
D205
a0922
FAEO
DODO
FBFC
RL
BH
583
584
MVI
585
586
581
588
MVC
TR
MVI
B
SAL
BAL
SAL
600 H2
0093"\
602
603
604
LA
BAL
00001
02C78
02eAR
4770 E076
031RE
605
606 H3
607
608
609
610 H4
611
BNE
ST
CLC
BE
MVC
B
CH
BNE
LR
AR
L
Q.ur:;;
SR
61B
CVD
5,PAKT
03515
619
UN?K
616
LA
B
*MOVE
NXTOP
617 H5
000(1)
03U3E
*
HlTWTO+33(6),HLTADARA
B ADDRESS TO OUTPUT
HLTWTO+5,35
MOVE LENGTH TO WTO
8,HALTWTO
PRINT HALT ON TYPEWRITER
9,=H t 4 1
H3
6,1(10)
8,CVAD43
5,ADR360
HL T I AR , E OJ I AR
IS THIS EOJ?
TAB
TERMINAT
YES, GO END SIM1401
TAB
RET UR N , =td H4 )
wTORTN
i)/ BRANCH
9,=H I 4'
03510
02CA8
613
614
615
*
V7·'''''''
12,10
12,9
lO.ADR360
9,0
NXTOP
5,7
612
FB60
LA
CH
03FBO
0000
000962 47FO [076
000966 IB57
0OO96R 4E50 E3Ce
0OO96C F352 DOF6 E3CD 0098C
MVI
H1A
601
0OO94E' 4990 EE6R
419 0
MVI
CH
03FBO
00992
000940 4780 F8IO
07958
000944 0203 E530 EDF4 03678 03F3C
06094A 47FO FORC
02104
18CA
lAC9
58AO
MVC
MVC
582
589
DOF6
4990 EE68
4-770 DOA4
416A 0001
4580 FAEO
5050 FR60
0OO93A 0505 0102 DOFC 00998
0OO9'3E
CH
Hl
9,=H'Z'
HI
00922
00001
9211 FBE9
4990 EE74
4740 D08e
0OO8E4 OCOO FBFD EA.14 02D45 03B5C
000952
000956
000958
0OO95A
568
HLTIAR,HLTADARA
lAR TO SAVE AREA
TAB
HLTWTO+15(6),HLTADARA
MOVE I ADDRESS TO OUTPUT
HLTWTO+5,17
MOVE LENGTH TO WTO
9,=H'Z'
2-POS HALT?
TAB
H2
NO, I-POS IAR ONLY
TAB
HIA
> 2 POS - PR INT AAR (;. BAR TAB
HLTWTO+23,C'DI
2-POS HALT - PRINT D-MOO TAB
HLTWTO+25(}),1(lO)
D-MOO TO WTO
TAB
HLTWTO+25(1),TRIE
TRANS D-MOD TO EBCDIC
TAB
HLTWTO+5,22
SET WTO LENGTH
TAB
H2
GO PRINT THE MESSAGE
TAB
HL TWTO+23,C 'AI
REPLACE THE A FOR 7-POS HlT TAB
HZ
NO
6,1(10)
CONVERT 1401 ADDRESS
8,CVAD43
0205 0102
0205 FBF3
10/28/71.
USING
02636
DOO8DE 0200
0OO8FE
000902
660906
0OO90C
000910
000914
000918
0OO9lE
000922
000926
0OO92A
0OO92E
000932
000936
F150CT70
566
4770 F9EF
185A
lA59
4580
SOURCE ST/\TEfV1ENT
STr".T
15
1401 ADDRESS
CONVERT TO DECIMAL
HLTADARA(6),PAKT+5(3)
UNPACK 1401 ADDRESS
GET
nnn.~""l"'Y.nn
VVV::110VV
00057900
00058000
00058100
00058200
00058300
00058400
00058500
00058600
00058700
00058110
00058720
00058800
00058900
00059000
00059100
00059200
00059300
00059400
00059500
00059600
00059100
00059800
HALT
lOC
000972
000976
0OO97A
0OO97E
000980
000984
000988
0OO98C
000992
000998
16
OBJECT CJDE
96FO
DOFB
f"DDR 1 A,DDR2
00000
9240 1000
00000
4111 0001
47FO OOE4
404040404040
404040404040
404040404040
SOURCE STATEl'vtENT
F150CT70
620
01
HLTADARA+5,X'FO'
00gec
621
LA
ell
00001
0097A
622 H6
623
624
625
626
1 ,HL TADARA
O(I).C·O'
6,8
O(I),X'40'
1)0991
4110 GOF6
95FO 1000
0768
sn",T
BCR
MVI
LA
B
627 HLTADARA DC
1,1(1)
H6
CL6'
*
*
MAKE SIGN NUMERIC
BLANK LEADING ZEROS
*
*
*
I
628 EOJIAR
DC
Cl6' ,
629 HLTIAR
DC
CL6'
,
EOJ IAR FROM PARM FIELD
HALT IAR
TAB
TAB
10/28/71
00059900
00060000
00060100
00060200
00060300
00060400
00060500
00060600
00060610
0006062.0
CLEAR
Loe
STORAGE
DEJECT CODE
PAGE
ADORl ADDR2
SlMT
03FAE
632
009CE
03FBO
0OO9QE
631
0OO99E 4990 EE66
0OO9A2 4780 0030
0OO9A6
0009AA
0OO9AE
0009'32
0OO9B6
0OO9'3C
COGgeO
0009C4
009C4
633
634
635
03FAC
636
4140 F9EE
02B36
D202 D06e AOOI OOAOA 00001
416A 0004
00004
iI.,en ..... "'''1<"
....,. ( I V
U\.! L H
009C8
416A 0001
00001
631
638
4990 EE68
4780 0026
4990 EE64
0OO9C8 4580 FAEO
02C28
0009C(; 18C5
0OO9CE 183C
000900
0009D2
000906
0OO9DA
0OO9DC
11337
4120 0000
5D20 EDF8
00000
03F40
IBC2
4220 0043
0OO9EO 0700 COOl) COOQ
0OO9E6 19C7
0009E8 4770 005B
0009EC ~8CO EDfC
0OO9FO lAC7
0OO9F2 47FO D05e
0009F6 48CO EE66
0OO9F.A 4990 EE64
0OO9FE 4740 E076
OOOA02 4160 D06e
OOOA06 47FO F97E
OOOADA
SOURCE
aooon
009El
00000
009F6
03F44
009FA
03FAE
03FAC
031BE
CS
S TAT Ei'JIEN T
USING
CH
BE
C$,13
9,=H'l'
BE
CH
Bl
ILEGLN
HLDBCH(3),l(lO)
LA
6,4(10)
B
CSCOM
LA
6,1(10)
8,CVAD43
12,5
642 CSCOM
643
644 CSL1
BAl
64~
SR
646
LA
3,7
2,0
647
0
SR
12,2
648
649
650
651
652
653
CSLIA
OOAOA
658
659
02AC6
660
661
LR
LR
00061400
00061500
00061600
00061100
00061800
00061900
00062000
00062100
SUBTRACT SIMULATED CORE BASE LOCATION
2,=F ' IOO'
STC
XC
8NE
L
AR
B
SH
2,CSLIA+l
O(O,12),O{12}
12,7
CS2
12,.=F ' 15999'
12,7
CS3
12,=H ' l'
9,=H'7'
CH
BL
LA
B
HLDBCH OS
00061000
00061100
00061200
00061300
3,12
CR
654
655
656 CS2
657 CS3
00060800
CSt!
MVC
NXTOP
6,HLDBCH
SETBCH
CL3
10/28111
00060900
9,=H'4'
CSl4
9,=H'7'
CI-f
639
640
641 CSL4
F150C170
17
CLEAR CORE BLOCK
Q/ DID B-REG GO
TO
0
NO
*SUBTRACT
1 FROM B-REG
Q/ IS THERE A BRANCH
00062200
00062300
00062400
00062500
00062600
00062700
00062800
00062900
00063000
00063100
00063200
00063300
00063400
00063500
00063600
00063100
00063800
SET \i>JDRD
LOC
MAR{
OBJECT CODE
PAGE
ADDRI tlDDR 2
OOOAOF
sn.r,r
SOURCE STATEMENT
663
F150CT70
18
10/28/71
USING
SW,13
00064000
CH
BNL
CH
BE
9y=~i'6'
SWL7
9,=H'4'
00064100
00064200
00064300
SWL4
9,=H'l'
00064400
00064500
SWLI
I LEGLN
00064600
OOOAOD 00
OOOAOE 4990 EE76
Q 3F BE
OOOA12 4780 D034
OOOA16 4990 EE68
OOA4,?
03FBO
666
OOOAIA 4780 DOIC
OOOAlE 4990 EE66
OOA2A
03FAE
667
668
OOA56
669
BE
02836
00001
670
B
671 SWl4
672
673
674
675
LA
gAL
LR
OOOA2l 4780 0048
OOOA26 47FO F9EE
OOOA2A 416A 0001
OOCA2E 4580 FAEO
OOOA32 18B5
OOOA34 9640 BOOO
OOOA38 4880 EE66
OOOA3C 18CB
QOOA3E 47FO E076
OOOA42 4l6A 0001
OOOA46 4580 FAEO
OOOA4A 1885
OOOA4C 416A 0004
OOOASO 4580
CH
031Bf:
689
BNH
NXTOP
00007
03IBE
690
LA
9.,7
00066700
691
B
NXTOP
00066800
00000
03FAE
676
OJ
SH
LR
6,1(10)
8,CVAD43
11,5
O(11),X'40'
11,=H'l'
12,11
671
678 SvJL 7
679
B
LA
NXTOP
SAL
680
LR
8,CVA043
11,5
681
682
LA
6,4(10)
BA,L
LR
00000
683
684 SWLI
CODOC
685
8,CVAD43
12,5
O(11),X'40'
O(lZ),X'40 t
11,=H'1'
12,=H ' 1'
9,=H'7'
031BE
00001
02C28
00004
02C28
4BRO EE66
03FAE
686
OOOA62 411CO EE66
OOOA66 4990 FE64
aOOAbA 41DO E076
OOOA6E 4190 0001
OOOA72 47FO E076
03FAE
687
6BB
OOOA5F
C\ '
vi'l
00064700
00064800
00064900
00065000
00065100
00065200
00065300
00065400
00065500
00065600
00065700
00065800
00065900
00066000
00066100
00066200
00066300
00066400
00066500
00066600
02C28
FAEO
OOOA54 18C5
OOOA56 9640 BODO
OOOA5A 9640 cnoo
664
665
03F~,C
01
01
SH
SH
CH
6,1(10)
CLEAR: ItlOR D ''4 AR K
LOC
OPJECT CODF.
PAGE
ADORI ADDRZ
51(1,1
03FBE
693
694
OOOA76
OOOA76 4990 f.E:76
OOOA7A 47B() D034
OOOA7E 4990 ~E6e
OOOA82 4780 DOIC
OOOA86 4990 EE66
OOOABA 4780 0048
onOASE 47FO F9EE
OOOA92 416A 0001
OOOA.96 4580 FAEO
OOOA9A ISS!)
OOOAge 9413F 8000
OOOAAO 4BBO FE66
OOOAA4 18CB
OOOAA6 47FO E076
OOOAAA 416A 0001
OOOAAE 4580 FAEO
OOOAB2 lSR5
OOOAB4 416A 0004
OOOA8a 45AO FAEO
OOOAse 18C5
OOOAfiE 94BF BODO
OOOAC2 948F COOO
00AAA
695
03FBO
OOA92
03FAE
696
OOABE
02B36
00001
701
03FAE
704
105
00001
02C?8
00004
02C28
00000
00000
03FAE
03FAF
031BE
9,=H'4'
BE
CWL4
R
CWL4
706
031BE
USING
CH
BNL
CH
BE
703
00000
STATEi"iENT
eH
698
699
700
702
FF66
4~RD
C~t
697
02C28
onOACA, 4RCO Ef66
OOOACE 47FO E076
OOOAC6
SOURCE
LA
BAL
LR
NI
SH
LR
CW,13
9,=.H 16 i
CWL7
9,=H'l'
CYill
IlEGLN
6,1(10)
8,CVAD43
11,5
0{11),X'BF'
l1 y =H'l t
12,11
707
708 CWL7
B
NXTOP
LA
709
SAL
LR
6,1(10)
8,CVAD43
11,5
6,4(10)
710
711
712
713
714 CWLI
715
116
717
718
LA
SAL
8.CVAD43
LR
SH
12,5
O(ll),X'BF'
O(12),X'9F'
11,=H'l'
12,=H'1'
B
NXTOP
NI
NI
SH
F150C170
19
10/28/71
00061000
00067100
00067200
00067300
00067400
00067500
00067600
00067700
00067800
00061900
00068000
00068100
00068200
00068300
00068400
00068500
00068600
00068700
00068800
00068900
00069000
00069100
00069200
00069300
00069400
00069500
MOVf CHARACTERS Tn, A WQRD "'LA RK
PAGE
;
lOC
OBJECT
CODE
ADD-,C! C
DCHAR,X t 32'
MBC
907
00D85
433B 0000
902
903
904
905
906 MBC
ClI
BE
lR
SH
IC
STC
Fl50CT70
01
SR
Ie
11,0
3,0(11)
3,MBC2+1
O(6),X'40'
lOrf\
017
CD
1'>
ISBO
918
919
920
SR
SR
TM
11,0
6,0
1(6),X'40'
921
922
923
SO
NXTOP
1M
B1
Mse
924
B
NXTOP
.I. t/ \,.; ........
1860
9140 6001
4710 E076
OOODAC 9140 COOl
OOODBO 4780 D2A2
OOODB4 47FO E076
"7.L f
0000 1
0318E
00001
00074
031Rf
.,JI'
"
.l.t:.., V
l(lZ),X'40'
23
10/28/71
00085200
00085300
00085400
00085500
00085600
00085700
00085800
00085900
00086000
00086100
00086200
00086300
00086400
00086500
00086600
00086700
00086800
00086900
00081000
00087100
00087200
00087300
00087400
00087500
00081600
00087700
00087800
00081900
00088000
00088100
00088200
00088300
IIlIno 0 / . " n
vvvoo-r'VV
00088500
00088600
00088700
00088800
00088900
00089000
00089100
r;; ['I \/[
loe
CH.t. Rt-\C TFR S
OBJECT CODE
1\ 1\' ri
L-;
h\;"'~
LEADING ZEROS
A.ODR 1 A,DDR2
STMT
03FAE
926
927
0000£38
000088 4990 EE66
ooooec 4780
SUPP~ES-S
OODF4
03FAC
D03C
OOOOCO 4990 EE64
0000C4 4780 D028
923
BE
!"tCSLl
CH
9,=H'7 t
OODEO
03FBO
931
OOODce 4770
F9EE
02B36
932
000000 416A 0001
000004 4580 FAEO
0000D8 1865
ooaDDA 18C5
00001
933
934
935
47FO D03C
QODF4
00001
02C28
416A 0001
4580 FAEO
OOODF2 18C5
OOODF4 4100 0001
OOOOF8 9201 EIC4
OOODFC 433B 0000
OOOEOO 423C 0000
OOOE04 940F COOO
OOOEOP 423G FB6P
OOOEoe
9640 C(lOO
OOOElO 47FO D06e
OOOE14 4338 nooo
OOOE18 423C 0000
OOOEIC 4230 FB68
OOOE20 943F COOO
OOOE3E 9501 EIC4·
OOOE42 4780 00C6
OOOE46 950A FB6b
OOOE4A 47DO DOAA
OOOE4E 9518 FB68
OOOE52 4780 DOAA
OOOE56 9520 FB68
aOOE5A 4780 DOAA
aOOESS:: 9201 F.IC4
OOOE62 9140 COOO
939
940
941
942
943
B
BAL
8,CVAD43
11,5
12,5
MCSll
6,1(10)
8,CVAD43
946
IC
SUPRfS,l
3,0(11)
941
948
STC
3,0(12)
NI
949
950
O(12),X'OF'
3,TEMPI
*
*SAVE
01
o ( 12 ) , X I 40 •
MCSllB
SFT WORD MARK TO STOP REVERSE SCAN
00000
(\2C~O
00000
STC
OOE24
00000
00000
951
952 MCSllA
0oJ
g53
02CBO
954
955
STC
STC
00000
02eBO
OOE14
00001
COOO 02C80 00000
02CBO
0330C
ODE7E
02CHO
OOE62
02'C80
OOE62
02CBO
OOE62
n33f)C
f)OOOf)
4110 DOB/l.
OOE72
00001
OOE34
OOOE6E 47FO D07e
OOOE12 948F COOO
OOOE76 41CC 0001
OOOE1~· 47FO E076
OOOF7E 9509 C000
000E82 4120 DODE
LA
IlEGlN
6,1(10)
00000
00000
0330C
OOOE6A 41CC 0001
OOOE6~
931
938 MCSL7
9,=H ' 4'
944 MCSLI
945
18CO
9140 FB6S
4180 D05e
41CC 0001
OOOE34 D200 FB68
O()O·E3A 943F FR6B
936
BNE
LA
BAL
lR
lR
MCSL7
00001
00004
02C28
OOOE24 IRSO
OOOE26
OOOE2B
OOOE2C
OOOE30
BE
CH
LR
LA
BAL
LR
LA
MVI
18B5
416A 0004
OOODEF. 4580 FAEO
/Vies
F150CT70
MCS,13
9, ==H' 1 '
000DC8 4990 EE68
OOODOC
OOODEO
OOODE4
OOODE8
OOODEA
SOURCE STATEMENT
USING
CH
929
930
O?C28
PAGE
00000
00001
031BE
Ie
NI
956 MCSl1B SR
957
SR
TM
958
959
BZ
960
LA
961 r-lCSL 1 C MVC
NI
962
963
ClI
964
BE
965
ell
966
BNH
967
ClI
968
BE
969
ClI
970
8E
MVI
911
972 MCSLIE TM
973
AD
974
LA
915
B
976 iv1CSlIF NI
977
LA
978
B
979 MCSLIG CLl
00000
00E96-
980
BH
11,5
6,4(IC)
8,CVAD4·3
12,5
0,1
MOVE ONLY
DIGIT OF FIRST CHARACTER
A-CHARACTER
3,0(11)
MOVE CHARACTER
3,0(12)
3, TEMPI
O(12),X'3F'
11,0
12,0
*SAVE
*
T EM PI, X e 40 '
'<>/1
n
I
r
A-CHA.RACTER
1..,1"'\
I:.I"U
nc
ur
11._ r::. T c:. 1"'\
H-r.LLLU
MCSLIA
NO
12,1(12)
YES
TEMPI( 1) ,O( 12)
TEMPl,X'3F'
SUPRES,1
01 IS ZERO SUPPRESSION ON
MCSLIG
TEMPl,X'OA'
MC Sl IE
TEMP},X'l'3'
MCSlIE
TEM D l,X'20'
Mes LIE
SUPRES .1
O(lZ),X I 40'
MCSL1F
12,1(12)
MCSllC
O(12),X'8Ft
12,1(12)
NXTOP
O(12),X'09 '
MCSllH
YES
NO, IS IT SIGNIFICANT DIGIT,BlANK 0
YES
Ol COMMA
YES
QI HYPHEN
YES
TURN ON ZERO SUPRESSION
0/ LAST DIGIT
YES
NO, PROCESS NEXT DIGIT
*CLEAR
WORD MARK
SET B-ADDRESS
GET NEXT INSTRUCTION
QI SIGNIFICANT DIGIT
*'
24
10/28111
00089300
00089400
00089500
00089600
00089700
00089800
00089900
00090000
00090100
00090200
00090300
00090400
00090500
00090600
00090100
00090800
00090900
00091000
00091100
00091200
00091300
00091400
00091500
00091600
00091700
00091800
00091900
00092000
00092100
00092200
00092300
00092400
f\f\{'\o?~nf\
vV\JJC-.Jvv
00092600
00092100
00092800
00092900
00093000
00093100
00093200
00093300
00093400
00093500
00093600
00093100
00093800
00093900
00094000
00094100
00094200
00094300
00094400
00094500
00094600
00094100
Mrv
J L CHARACTERS AND
r
: i
LOC
OBJECT
CODE
I~DOR I
OOOE8·6 9500 COOO
OOOE8A 47RO DQOE
0.0000
OOOEeE 9200 E1C4
000E92 47FO DOAA
0330C
000E96 9500 FB6R
OOOE9A 4780 DOF6
02eBO
OOOE9E 950A FB68
OOOEA2 4780 DOF6
OOOEA6 951ft. FB68
02CBO
/. "n
1 \J
DOAA
OOOEAE 9440 COOO
nnnc/l1\
VV,"lL H!-\
LEADING ZEROS
AODR2
STMT
00[96
982
983
9El
OOE62
00000
00E62
00094800
00094900
00095000
00095100
00095200
00095300
00095400
00095500
00095600
00095700
00095800
00095900
SUPRES,O
*
YES,
TURN OFF ZERO SUPPRESSION
fwlCSLII
BlA~K
TEMPl,X'OA'
MCSLII
TEMPI,X'lS'
MCSLIE
0/ ZERO
992
B
10/28/71
OCIZ),Xl(iO'
BE
ClI
BE
ell
BNE
MCSlII NI
991
25
MCSLIH
*Q/
988
989
990
......
ell
BE
MVI
F 150CT70
TEMPl,X'OO'
OOEAE
£'\n.r~
STATEIi1ENT
r-tCSLIE
986
987
vvcoc
SOURCE
PAGE
984
B
985 rv;c Sl 1 H ClI
OOEAE
02CBO
...,. f
OOOEB2 41FO b6AA
SUPPR E SS
O(12),X'40'
MCSLIE
BLANK
ZERO
Q/ COMMA
NO
~",DVE
LOC
NU~P=R
Ie
OBJECT CODE
PAGE
ADDRI
ADDR2
STfltlT
SOURCE STATEMENT
994
USING
MN,l3-
995 rv1N
CH
9,=H'lf
OOEEC
996
BE
03FRO
997
4780 D022
4990 EE64
OOED8
03FAC
998
4770 F9EE
416A 0004
OOOED? 4580 FA.EO
02836
00004
02C28
OOOED6 18C5
COOED8 416A 000 1
aOOEDC 4580 FAfO
1000
1001
1002
1003
00001
1004 MNL4
02C28
1005
1006
1007
1008
1009
1010 MNLI
1011
1012
1013
OOOcB6
OOOff36
OOOEBA
OOOEBE
OOOECZ
OOOEC6
OOOECA
OOOECE
4990 EE66
4780 0036
4990 FE68
03FAE
OOOEE-O 1885
OOOEE2 4990 EE68
OOOEE6 4770 D036
OOOEEA 18CB
OOOEEC 0100
cooa
OOOEF2 4BHO EE66
OOOEF6 4BCO Ef66
OOOEFA 41FO E076
03F'30
OOEEC
BOOf}
00000 00000
03FAE
03FAE
0318£
999
MNLI
CH
BE
CH
BNE
LA
BAL
LR
LA
BAL
LR
CH
BNE
lR
MVN
SH
SH
B
F150CT70
9,=H'4'
MNL4
9,=H t 7'
ILEGlN
6,4( 10)
8,CVAD43
12,5
6,1(10)
8, CVAD4·3
11,5
9,=H'4'
MNll
12,11
O(1,12),O{11)
11,=H'1'
12,=H ' l'
NXTOP
CHARACTERS, SET B ADR
MOVE NUMERIC
4
=
A ADR
26
10/28/71
00096100
00096200
00096300
00096400
00096500
00096600
00096100
00096800
00096900
00091000
00097100
00097200
00097300
00097400
00097500
00097600
00097100
00097800
00097900
00098000
~1()V
LOC
OOOEFE
OOOEFE
OOOF02
OOOF06
OOOFOA
OOOFOE
OOOF1?
OOOF16
OOOFIB
OOOFIC
E ICNE
OBJECT CODE
ADDR 1
b, DDR l~
4990 Ef66
03FAE
47&0 D024
4990 EE64·
03FAC
OOFZ2
02636
00001
02C28
4770 F9EE
416A 0001
4580 FA.EO
18B5
416A 0004
00004·
FAEO
02C28
0000
00000
4580
OOOF20 18C5
OOOF?? 433B
OOOF26 4230
OOOF2A 94CF
OOOF2E
OOOF32
OOOF36
OOOF3A
OOOF3E
PAGE
OOF33
0035
COOO
9430 D035
9600 C000
4BBO [E66
48CO EE66
47FO E076
00000
OOF 3~;
00000
03FAE
03FAE
031BE
ST;-1T
SOURCE STATEMENT
1015
1016 MZ
1017
1018
1019
1020
1021
1022
1023
1024
107.5
1026 MZll
1021
1028
1029
uSING
CH
BE
CH
RNE
LA
BAL
LR
LA
BAL
LR
1030 MZLIA
01
0(12),0
1031
SH
SH
12,,=H t l'
8
NXTOP
1032
1033
MZ~13
F 150C170
27
10/28/71
MZLI
00098200
00098300
00098400
9,=H'1'
00098500
ILEGLN
00098600
00098100
00098800
00098900
00099000
00099100
00099200
00099300
00099400
00099500
00099600
00099700
00099800
00099900
00100000
9,=H'lt
6,I{lO)
B,CVA043
11,5
6,4(lO}
8,.CVAD43
12,5
Ie
3,0(1.1)
STC
3,MZLIA+1
NI
NI
O(lZ},X'CF'
MZLIA+l,X'30'
11,=H'lt
LOAD CHARA.CTE> ....uu
00103500
00103600
00103700
00103800
00103900
00104000
00104100
00104200
00104300
00104400
00104500
00104600
8, LOf,.Dr-1D
LA
00100200
00100300
00100400
8,CVAD43
12,5
8,8
3 t TMDC13
TPCCW, =A( RTCCh')
13,15,MACREGSV SAVE MACRO REGS
6 ,MAC REGSV
SAVE: ADDRESS TO XR
13,SAVEAREA
GIVE OS OUR SAVE AREA
LA
10/28/71
VV
LA
STM
lH
1.'1nl
F150CT70
28
'-"""'VI
BALR
ST
MVC
1087
1088
1089
7(lO},X'29'
READ TAPE WITH WORD MARKS
1067 RTW
;)0001
OOOFEA OAOI
1 { 11 } ,X' 40 '
eLI
BE
1083
OOOFE? 4110 F930
OOOFE6 4100 J001
LCA y 13
9,=H'1'
LCAL7
9,=H'4'
LCAL4
9,=H'1'
lCALl
9,=H'8'
LCAR
ILEGLN
6,4(10)
8,CVAD43
12,5
6,I(lO}
0105E
OOOFDE 98EF 6004
CH
OOF66
OOOFA2 4780 OIIC
OOOFDB 4110 f910
USING
LeA
03FBO
1060
1061
OOOFAA 416A 0004
SOURCE STATEMENT
103~
OOFAA.
OOOF9A 4780 D068
OOOF9E 9516 AOO7
PAGE
1,TMIOB LOAD DARAMETfR REG 1
ISSUE 5VC fOR EXCP
14,15,4(6)
RESTORE REG 14 AND 15
ItECB=TMECB
WAIT F(;R 110
1,TMECB LOAD PARAMETER REG 1
Ot1(0,0) lOAD PARAMETER REG 0
1 LINK TO WAIT KOUTINE
13,15,0(6)
RES TOk E MACRO REGISTERS
8,TPTEST
3,SAVCSW+6
FINO NUMBER OF BYTES READ
0
00104700
00104800
00104900
00105000
00105100
lOAD CdA RACTER <)
lOC
OBJECT CODE
OOOFF8 4840 E-F78
OOOFFC 1843
OOOFFE 5810 EICO
001002 957F cnoo
...,.,.-,
Ie"
A~"4
AODRI
Doooe
001006 4780 D114
/. ":)";(r
J.\.,r
Ar\A"
V\~~V\.'
DOIOIE Deoo cooo E914 00000
00102.4 9640 COOO
00000
001028 4-B40 EE66
OOlO2e 47FO DOFC
001030
001034
001038
OOl03E
001042
001046
00104A
4331
423C
DCOO
4111
0000
0000
COOO
SDURCE 51,t,TEr4FNT
03FCO
1090
LH
03308
1091
1092
1093 R1Wl
01030
00001
00000
001012 4111 0001
001016 4331 0000
-rc...
STMT
00000
aOIOOE 4770 DOEE
aoooo
03A5C
03FAE
OlO3E
00000
00000
E914 00000 03A5C
0001
41CC 0001
4640 DOCO
957F COOO
00104E 4780 D114
001052 923F cooo
001056 41CC 0001
00105A 47FO E016
00001
00001
01002
00000
ooono
01056
00001
031BE
1094
1095
1096
1097
l' .......
,...."r-._
l.U";!''';f
1100
00004
02C28
4580 FAEO
l8C5
5810
03308
IS2C
OOlO6E 911F 2000
001072 4,710 DISC
00000
001016 9140 7000
00107A 4780 D144
OOlO7E 926D 1000
00.1082 4111 0001
001086 D200 1000 ?ono
OOlO8C Dcan 1000 FA 14
001092 4111 0001
001096 4122 0001
00109A 47FO OI2C
OOlO9E '5B10 EICO
OOIDA2 4010 f4FE
OOlOA6 45f.~O FFOO
0010AA 4580 FF3C
0010AE 4580 FF3A
OOlOB2 5030 F924
00000
OOlOR6 0203 F920 FE-04,
OOlO~C
90DF f4/1c,O
0010C0 4160 E4AO
0010(4 41DO E458
BE
ClI
BNE
LA
RTW3
00105400
00105500
00105600
00105700
00105800
00105900
00106000
00106100
00106200
00106300
00106400
00106500
00106600
00106700
00106800
00106900
00107000
00107100
00101200
00107300
00101400
00107500
00101600
00107700
00101800
00107900
00108000
00108100
00108200
00108300
NO
1,1(1)
3,0(1)
3,0(12;
o ( 1 , 12 ) , TR E I
O(12),X'40'
YES
SH
4,=H'I'
B
RTW2A
1114
SENDING ADDRESS
WD MK IN CORE
c.' / G? ~K
YES
QI WORD SEPARATOR
RTw2
1103
1104 RTW2
1105
1106
1107 R1W2A
1108
1109
1110
1111
1112
1113 RTW3
00105300
-
3,0(11
STC
TR
lA
LA
BeT
ell
BE
3,Q( 12)
o t 1 , 12) , Tf.< E I
1,1(1)
12,1(12)
4, R TWI
O(12),X'7F'
RTW3
MVl
LA
o ( 12 ) , X' 3F '
RECORD MOVED, IS GROUP MARK NEXT CHAR
YES, LEAVE IT ALONE
NO, MOVE IN A GROUP MARK
12,1(12)
SET B-AODRESS
B
NXTOP
4't'-
1116 """
-r1111 ....
1118 WT~'"
1119
1121
1122
1123 WTWI
1124
1125
1126
1177
1128
1129 wrW2
WRITE TAPE WITH wORD
lA
SAL
lR
L
Iv\ARKS
6,4(10)
8,CVAD43
12,5
lyTAPEAREA
2,12
O(2),X t 1F'
Q/ GROUP MARK WORD MARK
60
wTW3
YES, FIELD DONE
TM
Bl
O(2)yX'40'
0/ WORD MARK
WIW2
NO
MV I
O(1}f X'6D'
YES,
lA
1,1(1)
MVC
O(I,l},O(Z)
*
1130
TR
LA
LA
O(l,l),TRIE
1,)(1)
OlO6E
1131
1132
1133
03308
1134 WTW3
03646
03118
03084
1135
01086
00000
00001
00l}OO 00000
On000 0385C
00001
00001
03082
02A6C
03F4C
035E8
{)35EB
0351\.0
1136
1137
1138
1139
1140
1141
1142
1143
1144
nn."Inn".nrr..
VV.l.vo"'tvv
INSERT WORD SEPARATOR
2,1(2)
WTWI
B
S
1,1APEAREA
STH
SAL
SAL
1, WTCCW2+6
8,FNDRIV
8,TSTOPEN
BAl
8,LOADMD
S1
MVC
STM
LA
LA
EXCP
3,TMDCB
10/28/71
00105200
SET
O(l),X'6D'
29
*
lR
TM
0109E
fl2A6R
1,TADEARFA
(\ ( 12 ) , X I 7F'
01
1120
EICO
l
ell
liol
1102
~r-
001062
001066
001068
00106C
4~3
Ie
F150CT70
4,=H t lEOOQt
SR
IC
SIC
TR
1098
1115
00105E 416", 0004
PAGE
tDDR2
01056
OOIOOA 956D 1000
COlOIA
p-FIElO WORD MARK
Tpee W, = A( WT( C~'I; 1 )
13,15,MACREGSV S,\VE rV\ACRO REGS
6,MACREGSV
SAVE ADDRESS TO XR
13,SAVEAREA
GIVE OS OUR SAVE AREA
TMIOB
00108500
00108600
00108700
00108800
00108900
00109000
00109100
00109200
00109300
00109400
00109500
00109600
00109700
00109BOO
00109900
00110000
00110100
00110200
00110300
00110400
00110500
00110600
LOAD
lee
CHA~ACTERS
OBJECT CODF.
0010C8 4110 F910
0010(e OAOO
0010CE 98EF 60Q4
0010D2 4110 F930
0010D6 4100 0001
TO AN A-FIELD WORD MARK
/\DDRI .ADDR2
02A58
00004
02A78
00001
0010DA QAOI
OOIODe 98DF 6000
OOIOEO 4580 E010
0010E4 41C2 QODi
00000
03158
00001
OOlOE8 47FO E076
031BE
51i'o11
PAGE
SOURCE S T ~,TE fvlENT
LA
114 !)+
1146+
s. 'U-
,-,VI,...
LM
WAIT
LA
LA
1147
1148
1149+
1150+
1151+
1152
1153
SVC
LM
BAl
I t
0
Fl50CT70
30
10/28/71
lMIOB LOAD PAK/H¥\E-TFR REG 1
ISSUE SVC fOR EXCP
14,15,4(6}
RESTORE REG 14
AND 15
1,ECB=TMECB
WAIT FOR 110
l,TMECB LOAD PARAMETER REG 1
O,lCO,O) LOAD PARAMETER REG 0
1 LINK TO WAIT ROUTINE
13,15,0(6)
RESTOR E MACRO REGISTERS
8,TPTEST
1154
LA
12,1(2)
1155
B
l\IXTOP
00110700
00110800
00110900
00111000
00111100
00111200
:~\.t\D
MOVE CHAR..ACTERS
LOC
OBJECT CODE
FDIT
,a. OUR 1 ADDR 2
OOlOEC
0010Ee
QOI0FO
OCICF4
0010F8
0010FC
0010FE
001102
001106
001108
00110e
0011io
001114
001118
OOlllC
001120
001124
001128
001I2C
001130
001134
001138
OOl13C
001140
4990
4770
416A
4580
laBS
416A
458-0
18C5
4100
EE64
F9EE
FA,EO
03FAC
02B36
00001
02C28
0004
00004-
FAEO
02C28
0001
00001
0001
9200 E1R6
9200 0330
9200 EIC4
9200 032D
9200 0332
9200 0331
9700 D32F
9200 032C
9700 0333
9;>00 D33C
032FE
O141C
0330C
01419
0141E
0141D
0141R
01418
0141F
01428
43?B 0000
00000
5420 FDEC
4920 EE6E
4170 DOSC
001144 9201 032F
001148 431C 0000
OOl14C 4210 FB6R
03F34
001150 943F
coon
001154
001158
00115C
001160
CODA
001164
001168
00116C
001170
001174
001178
0Ol17C
001180
001184
0011-88
OOllSC
001190
001194
001198
00119C
953B
4770 D078
9201 D32C
50CO D328
9500 COOO
4780 D12A
950A CODa
4780 D12A
9530 COOD
4780 DOCO
9501 D330
4780 DOCA
951B COOO
4780 boco
9533 COOO
03FB6
9'529 C000
478-0 DORt
9520 COOO
OOIIAO 4770 DOCA
OOllA4 9501 D32FOOllAS 4780 DOCA
OOllAC Q200 COCO
00000
O?CHO
01164-
01414
01216
01216
00000
OllAC
O141C
011B6
OllAC00000
011 A.4
00000
aoorQ
('11 AA
011B6
0141B
011B6
OCOOO
OOllBO 1BCO
0011B2 47FO 0100
001186 952C COOO
0011RA 4770 DOE2
OllEC
00000
OllCE
QJ IS LENGTH CORRECT
IlEGLN
NO
6,1(10)
YE S, CONVERT ADDRESSES
LA
8,CVAD43
11,5
6,4(10)
•
BAl
8,.CVAD43
lR
LA
MVI
12,5
0,1
LR
MV I
MVI
MVI
MVI
MVI
Mvr
MVI
MVI
MVI
AEND,O
BOOY,O
SUPRES,O
FLOAT,O
SIGDIG,O
ASTER,.O
AMINUS,O
DECIMAl,O
FIRSTDOl,O
SIGNDOL,O
Ie
2,0(11)
N
CH
2,=F'48'
2,=H'32'
BNE
MVI
MeEl
AMINUS,l
.......
*
'l""
**..,.
CLEAR ,A-FIELD END INDICATOR
CLEAR BODY TRIGGER
CLEAR ZERO SUPPRESSION INDICATOR
CLEAR FLOATING DOLLAR SIGN INDICATOR
CLEAR SIGNIFICANT DIGI T IND
CLEAR ASTERISK PROTECTION INO
CLEAR A-FIELD MINUS INDICATOR
DEC IMAl POINT INDICATOR
CLEAR $
INFIRST CHAR INDICATOR
CLEAR DOLLAR SIGN I NDICATDR
QI A-FIELD MINUS
NO
YE-S,SET A--F I FLO MINUS INDICATOR
IC
SIC
1,0(12)
SAVE B-FIELD CHARACTER.
1,TEMPI
NI
O{12},X'3Ft
o(12),X'3fP
MCE1A
DECIMAl,l
12,OECAOO
*CLEAR
NO
O{l2.),X'OO'
t'\ I
'011
BNE
MVI
Sl
r
II
I"i\.,- C 1.14
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205 I'1CE2
1206
1207 1";CE3
1208
1209
1210 MCE3A
1211
MCE,13
9,=H I 7 1
lA
BAl
1186
1187
1188
>'fr-r-,
F150CT7O
BNE
ell
1 . .1.
00000
CH
118~
" ., .rs. t ......
a '7
t"\Ar'lA
UVUI...-1V
USING
1157
1158 MCE
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
01418
4780 0038
SOURCE STATEMENT
1181
1182 j\-iCEl
118 ?
1184
00000
00000
Dooao
ST!I-H
01148
01418
"
PAGE
t
T
\"-L~
BE
ell
BE
eLI
WORD MARK
Q/ DECIMAL POINT
YES,SET DECIMAL INDICATOR
STORE ADDRESS OF DECIMAL POINT
MCE6
O(12),X'OAt
Df
,,,.IV
1-)'- Hili"
YES
0/ ZERO
YES
Q/ AMPERSAND
MCE6
O(12)~X'30'
BE
rv:CE 3
ell
BE
ell
BE
Cl I
BODY,}
YES
01 BODY TRIGGER ON
MCE3A
O(12},X t lBt
YES
Q/ COMJ.1A
MCE3
YES
0(12),X'33'
OJ C
BE
~!CE2
CLI
O(12},X'29 1
MCE2
O(12),X'?O'
MCE3A
YES
QI R
BE
CLI
BNE
CL I
BE
MVI
AMINUS,l
f'liCE3A
OCIZ',x'oot
YfS
Q/ NO
Q/ A-FIELD MINUS
YES
MOVE BLANK TO B-FIELO
DECREMENT B-FIELD
SR
B
12,0
MCE5
CLI
B"lE
O(12),X-ZC·
Q/
MCE38
NO
*
31
10/28111
00111400
00111500
00111600
00111700
00111800
00111900
00112000
00112100
00112200
00112300
00112400
00112500
00112600
00112700
00112800
00112900
00113000
00113100
00113200
00113300
00113400
00113500
00113600
00113100
00113800
00113900
00114000
00114100
00114200
00114300
00114400
00114500
00114600
00114700
00114800
00114900
00115000
00115100
00115200
00115300
00115400
00115500
00115600
00115700
00115800
00115900
00116000
00116100
00116200
00116300
00116400
00116500
00116600
00116700
00116800
MDVE
LOC
CHAR:\CTERS AND FDIT
OBJECT CODE
OOl19E 9501
D330
OOIIES
9201
ADORI ADDR2
S TI'-lT
o Itt 1 C
1212
1213
1214
1215
1216 iYjCE3B
1211
1218
1219
1220 i-1CE4A
011CE
0011C2 4770 DOE2
0011C6 9201 D331
OOllCA 47FO D12A
OOllCE 9528 COOO
001102 4780 DIOC
001106 1aco
001108 41FO 0100
OOllDC IBBO
00liDE iSCO
0011EO 9140 6001
OOllE4 4780 0100
PAGE
0141[1
0121.6
00000
OllF8
OllEC
SOURCE STATEMENT
i22l MCE5A
o (lOa 1
OllEe
EIB6
032FE
02eRO
0011EC 9140 FB68
01148
OC1l1FO 4780 DOSC
0011F4 47FO D188
01274
OOlIF8 9201 D33C
01428
OOllFC soeo 0334
01420
00001
001200 9140 COOl
001204 4180 OOF2
OllDE
01419
001208 9201 032D
OOl20C 0200 COOO 8000 00000 00000
OliDC
001212 47FO DOFO
001216 9501 EIE:\6
032FE
OOl2lA 4-780 Doeo
01lAC
DOl2IE D200 COOO BOOO 00000 00000
001224 943F COOO
00000
00000
001228 9500 C000
OO122C 4780 D150
0123C
9509
COOO
00000
001230
O123C
001234 4120 0150
0141E
001238 9201 D332
0141C
OO123C 9501 0330
001240 9501 D330
0141C
001244 4780 D168
01254
O141C
00124-8 9201 0330
OO124C 50eo D338
01424
001250 9lt,OF COOO
00000
02CBO
001254 910A FB68
0012.';8 47CO DOFO
Olinc
00125C 913? FB68
02CBO
OliOC
001260 4750 OOFO
001264 9640 COOO
00000
01410
001268 50GO D324
0330C
00126C 9201 EIC4
OllDC
001270 47FO OOFO
001274 9501 flC4
0330C
0318.E
001278 4710 E016
OO127C 9201 D3?E
0141A
00001
001280 41CC 0001
('000")
001284 9'129 COO')
01290
001288 4770 JIA4
0141F
00128C 9201 D333
001290 0200 FB6P r(\f'\f\ 02C BO 00000
0')000
001296 943F COOO
v\j\....r:~"'
1222
1223
1224
1225
eLI
BODY,l
BNE
MCE38
MVI
ASTER,l
MCED
O( 12) "X-2BI
MCEse
12,0
MCE5
11,0
12,0
1 ( 11 ) , x • 40 f
B
CLI
BE
SR
B
SR
n4
SR
MCE5
Q/ END OF A-F I ELD
NO
YES, SET A-F I ELD ENDED INDICATOR
TM
AEND,l
TEMP1,X'40'
Bl
MCEI
NO
B
MCE8
SIGNDOL,l
YES
SET DOLLAR SIGN INDICATOR
STORE ADDRESS OF DOLLAR SIGN
Q/ FLOATING DOLLAR SIGN
MVI
ST
TM
BZ
MVI
Mve
B
Q/ END OF 8-FIELD
12,DOLSIGN
1(12),X'40'
MCE5A
FLOAT,1
O(l,12),OC11)
MCE4A
Cl I
AEND,1
Q/ HAS A-F IELD ALREADY ENDED
BE
MCE3
0(1,12),0(11)
O(12},X'3F'
O(lZ},X'OO'
YES
MOVE CHARACTER
MVC
1238
1239
124-0
1241
1242
1243
1244- ;"'1CE6A
1245
1246
124-1
1248
1249
1250 MCE7
1251
1252
1253
1254
1255
1256
1257
1258 f\'jC E-B
1259
1260
NI
CLI
BE
eLI
BH
YES
DIGIT
SIGDIG.l
ell
AODY t 1
CLI
BE
MCE7
ST
NI
1M
BC
1M
Be
01
ST
MVI
BODY,1
12 t LASTDIG
O( 12) ,X'OF'
TEMPl,X'OA'
12,MCE4A
TEMPl,X'3S'
5 t MCE4A
()( 12) ,X'40'
12,ZEROSUP
SUPRES,1
MVI
TEMPlt 1)
BNE
MVI
LA
CLI
BNE
NI
U\JV I
MVC
CLI
NO
YE S SET SIG DIGIT INDICATOR
.,.,..,..r:o n",
onnv Tn
AI
unl
'I"\.IUUL.f"\
I>{'
Q/ IS BODY TRIGGER ON
MCE4A
S-UPRES,l
NXTOP
FIRS-T,l
12, 1( 12)
o(12),X t 2e'
MCE8A
fIRSTDOL,1
H
RLANK
O(12),X'09 1
MCE6A
MVI
MVI
*
MCE6A
BODY,}
1262
1263
1264
1265 MCE8A
1266
Q/ DOLLAR SIGN
YES
DECREMENT B-FIELD
MCE5
1237
1261
') / bODY TRIGGER ON
NO
SET ASTERISK PRORECTION INDICATOR
BZ
Mvr
1226
1227
1228 MCE5C
1229
1230
1231
1232
1233
1234
1235 ~1CE&
1236
F150CT70
,oe 12)
O(12),X'3F'
YES
NO
OF LOW ORDER Dl GIT
REMOVE ZONE
01 IS DIGIT ZERO
STORE ADDRESS
NO
NO
YES, SET ZERO SUPPRESSION WORD MARK
STORE ZERO SUPPRESSION ADDRESS
SET ZERO SUPPRESSION INDICATOR
INDICATOR
Q/ WAS THERE ZERO SUPP RESS ION
NO, GET NEXT INS TRUCT ION
SET FIRST CHARACTER OF SCAN INDICATOR
DOL LAR
SIGN
YES
SAVE CHARACTER
CLEAR WORD MARK
32
10/28/71
00116900
00111000
00117100
00117200
00111300
00111400
00111500
00111600
00111100
00111800
00117900
00118000
00118100
00118200
00118300
00118400
00118500
00118600
00118700
001188()O
00118900
00119000
00119100
00119200
00119300
00119400
00119500
00119600
00119700
00119800
00119900
00120000
-"rr."""11"'"''
VV.LLV.l_VV
00120200
00120300
00120400
00120500
00120600
00120100
00120800
00120900
00121000
00121100
00121200
00121300
00121400
00121500
00121600
00121700
00121800
00121900
00122000
00122100
00122200
00122300
MOVE
CH~RD.CTEqS
ObJECT CODE
LOC
00129A 9500
COOO
l'1,l\O EDIT
4DDRl AJ)OR2
OO12Al 950A COOO
OOl2A6 4780 0228
OO12AA 9509 C000
OOl2AE 4720 0102
001282 9200 [1C4
001296 9201 D332
0012BA 47FO DIF8
1'\('\ 'J
~
D
r-
r
r..:rt..n
9518
\...UVV
0012e2 4780
6012Cb 9520
0012CA 4780
OOl2CE 050B
001204 4180
001208 953B
OOl2De 4180
OOl2EO 9201
OO12E4 41CC
D228
COOO
VV I.LDC
x • 00'
Q/ BLANK
eLI
(} ( 12 ) ,
BE
MCE9
YES
1269
CLI
O( 17) ,X'OAt
Q/ ZERO
01314
1270
1271
1272
1273
1274
1275
8E
MeEll
YES
CLI
O(12),X'09 t
Q/ SIGNIFICANT DIGIT
BH
MCE9
NO
MVI
MVI
SIGDIGtl
B
MCEIO
1276 MCE9
ell
O(i2i,X i lRi
1277
1278
1279
1280
1281
1282
1283
1284
1285 MCEIO
1286
1287 MCE10B
1288
1289
BE
MCEll
00000
012.8 E
0330C
O141E
O12E4
r'o..l""f"n..r\.n
UUL-'UU
01314
00000
O12F8
0001
F150CT70
1267
0000 EE7[ 00000 03FC6
01348
D25C
COOO
00000
D228
01314
EIC4
0330C
OO12ES 9200 D32E
SOURCE S TA TE l"IENT
1268
00000
D20C
STt-n
O12BE
00(lClO
OO129E 4780 01D2
PA.GE
00001
0141 A
OlCBO
0012EC 9140 FB68
OO12FO 4710 0290
0137C
OO12F4 47FO DIA.4
01290
O141A
OO12F8 9501 D3lf
OO12FC 4180 D218
01304
Q12E4
001300 47FO DIF8
001304 9501 D32F
0141B
012[4
001308 4780 OIFe
00000
OO130C 9200 eooo
001310 47FO DIF8
O12E4
001314 9501 ElC4
0330C
O12E4
001318 4770 DIF8
00000
00131C 9200 COOO
0141A
001320 9501 D32E
001324 4180 D24C
01338
001328 9501 0331
01410
OO132C 4170 DIF8
012E4
aoooo
001330 9?2C coon
O12E4
001334 It 7FO OlF8
0141B
001338 9'501 D32F
00133C 47AO DIFR
O12E4OoI34() 9200 cooo
00000
001344 47FO DIFP.
O12E4
001348 9501 [IC4
0330C
00134C 4770 DIFB
012E4
001350 9501 D32E
O141A
001354 4780 D276
01362
001358 0201 COOO fEB') OOOf)l) 03FC8
OO135E 47FO DIF8
012E4
001362 9501 D32F
01418
001366 4780 0288
01374
00136A D201 COOO EE80 00000 03FC8
001370 47FO DIF8
012E4
001374 41CC 0001
00001
O12E4
001378 47FO DIF8
1290
1291
ClI
O(12),X'ZO'
BE
MCEIOC
CLC
BE
CL I
BE
MV I
LA
MVI
TM
BO
B
~CEIOC
CLI
BE
B
ClI
1292
1293 i/fCE 10 D
1294
BE
1295
MVI
1296
B
1297 (-teE! 1 eLf
1298
BNE
1299
1300
1301
MVI
1302
CLI
BE
ell
1303
1304
BNE
MVI
1305
1306 MCE12
1307
1308
1309
1310 MCE13
13-11
1312
1313
1314
1315
1316 MCE14
1317
1318
1319
g
TURN OFF ZERO SUPPRESSION
SET SIGNIFICANT DIGIT I NDI CATOR
SUPRES,O
Q/ COMMA
YES
QI
-
YES
0(12),=X'3329' Q/ CR SYMBOL
MCEl3
YES
O(12},X'3Bt
MCEll
SUPRES,l
TURN ON ZERO SUPPRESSION
12,1(12)
FIRST,O
TURN OFF FIRST TIME INDICATOR
[;:/ W/RD MARK
TEi\!l PI, X• 40 t
YES,TEST FOR FLOATING DOLLAR SIGN
FLDOL
MCE8.A
NO, PROCESS NEXT DIGIT
FIRST,l
Q/ F- I K ST CHARACTER IN STRING
MCEIOD
YES
MCEIO
AMINUStl
MCE10
Q/ A-FltLD MINUS
O(lZ},X'OO'
NQ,BLANK MINUS SIGN
MCE10
SUPRES,l
Q/ ZERO SUPPRESS ION ON
MCEI0
O(12),X'OO'
FIRST,l
MCE12
NO
CHARACTER
Q/ FIRST CHARACTER IN STRING
~STERtl
Q/ ASTERISK PROTECTION ON
MCEIO
NO
yr=c.
... , INSERT ASTERISK
VI=C_
,,-v.,-
Q!L.,.#AM'"
...·H"I I'\r.
V
YES
O(12),.X'2C'
-'
MCEIO
CLI
AMINUStl
BE
MVI
MCEIO
o ( 12 ) ,
B
CLI
BNE
eLI
MCEI0
Q/ A-FIELD MINUS
YES
X'
00 f
SUPREStl
QI ZERO SUPPRESSION ON
MCEIO
FIRST,l
QI 1ST CHARACTER IN S TR ING
HE
:-1CE14
MVC
B
0(2,12),=C'
MCEIO
CLI
3E
AMINUS-,l
MVC
B
0(2,12),=C'
MCEIO
12,1(12)
MCEIO
1320 MCEIOA
LA
1321
B
'iO,BlANK CHARACTER
NO
•
YES
NO,BlANK CR
Q/ A-FIELD MINUS
YES
~CE10A
f
NO,~LANK
CR
33
10/28/11
00122400
00122500
00122600
00122700
00122800
00122900
00123000
00123100
00123200
00123300
00123400
00123500
00123600
00123700
00123800
00123900
00124000
00124100
00124200
00124300
00124400
00124500
00124600
00124100
00124800
00124900
00125000
00125100
00125200
00125300
00125400
00125500
t"'ln .. ."e'''r..
VV1.L::JOVV
00125700
00125800
00125900
00126000
00126100
00126200
00126300
00126400
00126500
00126600
00126700
00126800
00126900
00127000
00127100
00127200
00127300
00127400
00127500
00121600
00127100
00127800
fl;10VE
LOC
00137C
001380
001384
001388
OO138C
001390
001394
001396
00139_A
OO139E
0013A2
0013A6
Ool:3AA
0013AE
001382
OO13B6
OO13RA
OO13BE
0013C2
0013C6
0013CC
001300
001304
0013D8
00130C
OO13DE
0013E2
OO13E8
0013EA
0013EE
OO13F2
0013F6
r..I""'f.'''''''kJ-A
uv L:lrA
0013FE
001402
001406
00140A
001410
001414
001418
001419
OO14IA
001418
00141C
·0014·-}-D
00141F
OO141F
EDIT
CHARt\CTER$ AND
PAGE
08JECT CODE
ADDRl ADDR2
5T;;'1T
9501 D32D
4770 D2AE
9500 COOO
4710 D?AJI.
922B COOO
47FO OZAE
IBCO
41FO D298
9501 D32C
477Q E076
9'101 D332
4710 0206
5830 D328
9500 3001
4770 E076
920A 3001
4133 0001
47FO D2C2
5850 0338
0503 D32R 0324
4720 D2EC
5840 0328
47FO D2FO
5840 0324
01419
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
O139A
00000
01394
00000
O139A
01384
01418
031BE
0141E
013C2
01414
00001
031BE
00001
00001
OI3AE
1339
01424
01414 01410
01308
01414
013DC
014}0
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1B54
4A50 EE66
03F.AE
0200 4·000 E-F9A 00000 03FE:2
IA40
4650 D2F6
013E2
9140 COOl
00001
9501 D33C
01428
4770 E076
031BE
r,..,~" '"
":f:J1..J1
f'"':'"")""~
4780
5830
9200
47FO
E076
0334
3000
00
00
00
00
00
00
00
00
00142.0
001424
001428 00
!J,:) j-.:l
E076
A'I
J_ 't
r-
Ul'Tl.'
031BE
01420
00000
Q31BE
SOURCE STATEMENT
FLDDL
ell
tiNE
DOLLAR
CLI
BNE
MVI
B
MOVDOL
SR
B
DECON
Cl I
BNE
ClI
BNE
MCE 16C
l
ClI
BNE
MVI
LA
B
MCE16
L
CLC
BH
L
B
L
""CElbA
MCE16B
SR
MCE16D
MVC
AH
AR
BCT
TM
CL I
BNE
1 ..,. r:: /_
.1..::J:J'T
rl
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1361
1368
1369
1370
1371
BE
L
r
...... L l
MVI
B
ZEROSUP
DS
DECADD
DECIMAL
OS
FLOAT
FIRST
AMINUS
BODY
DC
DC
DC
DC
DC
ASTER
DC
SIGDIG
DC
FIRSTDOl DC
DOlSIGN OS
lASTDIG OS
SIGNOOL DC
FLOAT,}
DECON
0(12).,X·OOt
MOVDOL
O(12)"X'2B'
DECON
12,0
DOLLAR
DEC li"iAL, 1
NXTOP
SIGDIG"l
MCE16
3,DECAOO
1(3),.X'OO'
NXTOP
1(3),X'OA'
3,1(3)
MCE16C
5,lASTDIG
DECADD,l.EROSUP
MCE16A
4,DECADD
MCE1613
4,ZEROSUP
5,4
5,=H'1'
O(1,4),=X'OO'
4,0
5,MCE16D
1(12},X'40'
SIGNDOL,1
NXTOP
F150CT70
FLCATING DOLLAR SIGN
'10, GO TO DECIMAL CONTR
'"
QI BLANK
NO,GO TO NEXT POSITION IN R-FIELD
MOVE DOLLAR SIGN INTO B-FIELD
DECREMENT B-FIElD
IS DEC H·1Al CONTROL NEEDED
NO
01 SIGNIFICANT DIGIT
NO
TENS POSITION
FOR BLANK
NOT BLANK
YES INSERT ZERO
TEST
lOOP
QI FLOATING DOLLAR SIGN
Q/
DOLLAR SIGN
NO
FIRSTDOL,l
'<>II
NXTOP
3,DOLSIGN
0(3)'1X'OO'
NXTOP
NO
BLANK DOLLAR SIGN
F
F
X'QO'
X'OO'
X'OO'
X'OO'
X'OQ'
X'OO'
x·oo·
""
niH I AD
VVL_LHf'.
C"T('l\i
.J .&. 1.:]111
v.,
l'il<'
ZERO SUPPRESSION ADDRESS
DECIMAL POINT ADDRESS
DECIMAL INDICATOR
FLOATING DOLLAR SIGN INDICATOR
FIRST CHARACTER OF SCAN INDICATOR
A-FIELD MINUS INDICATOR
BODY TRIGGER
ASTERISK PROTECTION INDICATOR
SIGNIFICANT DIGIT INDICATOR
X'OQ'
F
F
X'OO'
ADDRESS OF lOW ORDER DIGIT
34
10/28/71
00127900
00128000
00128100
00128200
00128300
00128400
00128500
00128600
00128700
00128800
00128900
00129000
00129100
00129200
00129300
00129400
00129500
00129600
00129700
00129800
00129900
00130000
00130100
00130200
00130300
00130400
00130500
00130600
00130700
00130800
00130900
00131000
00131100
00131200
00131300
00131400
00131500
00131600
00131100
00131800
00131900
00132000
00132100
00132200
00132300
00132400
00132500
00132600
00132700
00132800
PAGE
READ A CAR)
LOC
OBJE C1 CODE
ADDRI AJDR2
OO142A
STMT
SOURCE STATEME\!T
F150CT70
35
10/28/11
1313
USING
1374 R
1375
1376
CH
9,=H'1'
BE
CH
BE
Rll
9,=H'4'
RL4
ILEGlN
8,READ
NXTOP
00133100
00133200
00133300
00133400
00133500
00133600
00133100
00133800
00133000
001429 00
00142A
00142E
001432
001436
OO143A
00143E
001442
001446
00144C
4990 EE6h
4780 D014
4990 EE68
't780 ODIC
41FO F9EE
4580 FC14
47FO E076
/.
'._Jl..J-r·
D202 ,LDL
4580 FCl4
03FAE
O143E
03FBO
01446
02B36
02D5C
031BE
1317
1378
1379 RLI
1380
00001
1381 RL4
rive
ADR140(3},1(10)
1382
BAL
LA
8,READ
001450 4160 FB64
02D5C
02CAC
6,ADR140
001454 47FO F97E
02AC6
B
SETBCH
Ann'1
1-\ \ j t.~ J.
n").r·j\ rC.\....A\....
\j
1383
1384
B
BAL
B
GET BRANCH ADDRESS
SET CONDITIONS FOR BRANCH
00133900
00134000
00134100
PUNCH A CAR)
OBJECT CODf
lOC
PAGE
ADDRI ADDk2_
0014'58
001458 4990 EE66
00145C 4780 ODIC
OO}460 4990 EE6R
001464 4770 F9EE
001468 4-580 FEFO
00146C 416A 0001
001470 47FO F97E
001474 4580 FEFO
""#"'\."1,.-..('\
V'}.1.~'
0
i
,r-r\
"tf,L'
,..,.
'" -,.,;
CIJ ( 0
03FAE
0147-4
03FBO
02B36
03038
00001
02AC6
03038
031BE
STiviT
SDURCE
1386
1387 p
1388
1339
1390
1391
1392
1393
1394 PLI
i395
F150CT70
STA_TE t"'d::NT
USING
CH
P,13
9,=H t l'
PL 1
BE
CH
BNE
9,=-H'4'
BAL
8,PUNCH
LA
6,1(10)
B
SETBCH
8,PUNCH
NXTOP
BAL
B
36
10/28/71
00134300
00134400
ILEGLN
REFERENCE BRANCH ADDRESS
SET CONDITIONS FOR BRANCH
00134500
00134600
00134700
00134800
00134900
00135000
00135100
00135200
PAGE
READ M\iD PUNCH
LOC
ADDRI ADDR2
STM1
EE68·
03FAE
014A2
03FBO
1397
1398
1399
1400
F9EE
02B36
08JECT CUOf
OO147C
OO147C 4990
001480 4780
001484 4990
001488 4170
EE66
0026
00148C 0202 FB64 AGO} 02CAC OOOO}
001492 4580 FC14
001496 4580 FEFO
OO149A 4160 FB64
OlD5C
03038
02CAC
OO149E
OO14A2
OO14A6
OO14AA
47FO F97E
4580 FC14
02AC6
020se
4580 FEFO
47FO E076
03038
0316E
SOURCE S1 AT El"'lENT
RP
1401
1402
1403
14·04
1405
1406
1407
1408
1409
RPLI
F150CT70
37
10/28/71
USING
RP,13
00135400
rl,t
9,=H'lt
BE
CH
BNE
MVC
RAL
BAL
LA
RPll
9,=H'4'
ILEGlN
ADR140(3),lflO)
8,READ
8,PUNCH
00135500
00135600
00135700
00135800
B
BAL
SETBCH
\...n
6,ADR140
8,REA.D
BAL
8,PUNCH
B
NXTOP
SAVE
BRANCH ADDRESS
REFER.ENCE BRANCH ADDRESS
SET CONDITIONS FOR BRANCH
00135900
00136000
00136100
00136200
00136300
00136400
00136500
00136600
PRINT A LINE
LOC
OO14AE
OO14AE
OBJECT CODE
PAGE
ADDR 1 ADDR.2
03FAE
4990 EE66
014DA
0014B2 4780 DOZC
OO14R6 't990 EE74
03F9C
OI4E2
0014BA 4780 0034
03FBA
001481: 4990 EE72
0014C2 4780 D034
014E2
03FBO
0014C6 4990 EEb8
02'336
0014CA 4770 F9EE
OZDE4
OO14CE 4580 FC9C
00001
OO14D2 416A 0001
02AC6
001406 47FO F97E
02DE4
0014DA 4580 FC9C
OO14DE 47FO E076
031BE
OO14E2 D200 EIAD AOO} 032F5 00001
03FRC
OOl4E8 4990 EE74
O14F6
OO14EC 4780 0048
OO14FO 0200 EIAD AOO4 032F5 00004
035EB
OO14F6 90DF EttAO
SOURCE STATEMENT
STMT
1411
USING
W,13
1412 W
1413
CH
9,=H'l'
BE
1414
1415
CH
Wll
9,=H'2'
BE
WM
1416
1417
1418
1419
CH
BE
WM
1420 WL4
1421
1422
1423 WLl
1424
1425 Wi"'l
1426
1427
1428
1429 WML2
032F,)
EIAD
032F5
9512
4770
4990
00150E 4780
001512 47FO
001'516 0283
aOlSIC OC83
001522 4130
001526 4550
00152A 900F
vv
..... .-J L ' "
" 1"?J:"
hlt..f'\
.a.t..JLI
~
01516
F9CO
EE72
a2Boa
03FBA
014CE
0020
D02e
014DA
E3Dl 70C9 03519 000C9
E3Dl EC5't 03519 03D9C
E5BO
036F8
FF1A
E4AO
Q30C2
035E8
035EB
035AO
r::f.Af'\
L-"TMV
001532 4100 E458
001536 9209 E3DO
03518
1.431
1432
1433
1434
1435
1436
1437
1438
}030
036F8
03518
00030
6000
00000
E5BO
E3DO
8,WRITE
B
MVC
CH
NXTOP
DCHAR(l',l(lOJ
FCCE
02E16
7140
FE74
00140
03FBC
E076
031BE
0001
F97E
00001
02AC6
9,=H'2'
BE
WML2
DC HA R ( 1 )
MVC
,It (
STM
MVl
PRTP12,O
CL I
DCHAR,X'3C'
WMl20A
ClI
DCHAR,X'12'
BNE
CH
BE
IlEGOP
9,=H ' S'
B
WLI
LA
1.440
1441
1442
SAL
STM
1.1,.1.
'2
..L---r-y--"
I
1444
1445
LA
MVI
PUT
LA
lA
l
/{
L. ....
BALR
LM
NOPR
BAL
LA
CH
BE
LA
B
SAVE MACRO REGS
CLEAR CHANNEL 12 INDICATOR
Wl4
MVC
TR
1439
10 )
13,15~MACREGSV
BE
~oYjL20A
1447+
1448+
1449+
1450+
14?1
1452 DUMPSW
1453
1454
1455
1456
1457
1458
REFERENCE BRANCH ADDRESS
SET CONDITIONS FOR BRANCH
BAL
1446
00153A 4110
OO153E 4100
00}542 58FO
001546 05EF
001548 98Df
00154C 0704
00154E 4580
001557 4lCO
001556 4990
0015'.)A 4780
OO155E 416A
001562 47FO
9,=H'4'
IlEGLN
8,WRITE
6,1(10)
SETBCH
B
~I'"
953C E 1,6,0
4780 D068
9,=H t 5'
CH
BNE
SAL
lA
1430 ".
0014FA
OO14FF
001502
001506
00150A
F150CT70
PRNTBUFF+l(132),SIMCOR+201
MOVE WORD MARKS TO PR INT
PRNTBUFF+}(132),TRWDMK
3,PRNTDCB
GET ADDR OF PRINT DCB
TAB
5,UROPEN
GO OPEN PR INTER
TAB
13,15,MACREGSV SAVE MACRO REGS
*
t..
MArDcrcC'\t
'-"Y'-,,,",v''>LUJV
C""He
JMVL
A r'\r'\DCC'-C'HLfLf"LJ">
Tn
I U
vn
''''''-
13,SAVEAREA
GIVE as OUR SAVE AREA
PRNTBUFF y X'09 t
SET CARRIAGE CONTROL
PRNTDCB,PRNTBUFf WRITE WORD MARKS
I,PRNTDCB LOAD PARAMETER REG 1
O,PRNT'3UFF lOAD PARAMETER REG 0
15,.48(0,1) LOAD PUT ROUTINE ADDR.
14,15 LINK TO DUT ROUTINE
13,lS,O(6)
RESTORE MACRO REGISTERS
4
RETURN TO DUMP ROUTINE
8,COUNTER
12,SIMCOR+333
9,=H'?'
NXTOP
6,1(10)
SETBCH
SET CONDITIONS FOR BRANCH
38
10/28/71
00136800
00136900
00137000
00137100
00137200
00137300
00131400
00131500
00131600
00137700
00137800
00131900
00138000
00138100
00138200
00138300
00138400
00138500
00138600
00138700
00138800
00138900
00139000
00139100
00139200
00139300
00139400
00139500
00139600
00139610
00139620
00139700
t"I.t"I.'t"':nr.
VV.I...:>70VV
00139900
00140000
00140100
00140200
00140210
00140300
00140400
00140500
00140600
00140700
00140800
READ AND
LOC
PRr~T
OBJECT CODE
001'566
001566 4990
OO156A 4780
OO156E 4990
001572 4770
001516 0202
00157C 4580
001580 4580
001584 4160
001588 47FO
EE66
0026
EE68
F9EE
FB64·
PAGE
ADDRl ADDR2
STMT
SOURCE STATEMENT
USING
WR,13
03FAE
O158C
1460
1461
1462
CH
9,.=H'l'
BE
CH
BNE
9,=H-'4t
03FBO
02B36
AOOI o 2Cl\ C 00001
1463
1464
1465
1466
FP>64
02DE4
020SC
02CAC
F97E
02AC6
1467
1468
1469
OO158C 4')80 FC9C
001590 4580 F-C14
02D[4
02D5C
1470 WRLI
1471
001594 41FO E016
031BE
1472
FC9C
FC14
WRLI
9AL
IlEGlN
ADR140(3},lflO)
8,WRITE
BAl
LA
B,.READ
6,ADR140
B
SAL
SAL
B
SETBCH
8,WRITE
8,READ
NXTOP
MVC
F150CT10
SAVE BRANCH ADDRESS
REFER~NCE BRANCH ADDRESS
SET CONDITIONS FOR BRANCH
39
10/28111
00141000
00141100
00141200
00141300
00141400
00141500
00141600
00141700
00141800
00141900
00142000
00142100
00142200
P~I\lT
LOC
AND PUNCH
OBJECT CODE
001598
001598 4990 EE66
00159C 4180 D020
OOl'3AO 4990 Et?68
OO15A4 4170 F9fF
0015A8 4580 FC9C
0OI5A.C 4580 FEFO
OOI5S0 416A 0001
001584 47FO F97E
OOi5B8 4580 FC9C
OOI5se 4580 FEFO
0015CO 47FO E076
PAGE
f\DDRl. ADDR2
03FAE
O15B8
03FBO
02B36
02DE4
03038
00001
02AC6
02DE4
03038
031BE
STMT
SOURCE
1414
1475 WP
1476
1477
1478
1479
1480
1481
1482
1483 i..JP Ll
1484
1485
S TATE~1EI\1T
USING
CH
RE
CH
BNE
BAL
BAl
LA
B
RAL
BAL
B
F150CT10
40
10/28111
WP,13
9,=H'l'
00142400
WPll
00142600
00142700
00142800
00142900
00143000
00143100
00143200
9,=H'4
0014-2500
f
ILEGLN
8,WRITE
8,PUNCH
6,1(10)
SETBCH
e,WRITE
8,PUNCH
NXTOP
REFERENCE BRANCH ADDRESS
SET CONDITIONS FOR BRANCH
00143300
00143400
00143500
~~RITE, q~l\D,
lOC
OBJECT ceDE
AND PUNCH
,I\DDR I ACDK2
0015C4
03F-AE
0015C4 4990 EE66
O15EE
001'5C8 4780 D02A
OOIr;cc 4990 2'=68
03FBO
02B36
0015DO 4770 F9EF
001504 0202 FB64 AOO1 02CAC 00001
02DE4
OO15DA 4580 FC9C
02D5C
0015DE 4580 FC14
03038
0015E2 4580 FEFO
02CAC
OOISE6 4160 FB64
02AC6
0015EA 47FO F97E
02DE4
OO15EE 4580 FC9C
02D5C
0015F2 4580 FC14
03038
OO15F6 4580 FEFO
0015FA 47FO E076
031BE
PAGE
STMT
SOURCE STATE;;;jENT
14F7
1488 WRP
WRP,13
00143700
CH
9,=H'l'
WRPL1
9, =H' 4 '
ILEGLN
AOR140(3),1(IO}
00143800
00143900
00144000
BE
1490
CH
1491
1492
MVC
BNE
SAL
SAL
8,WRITE
00144100
00144200
00144300
8 ,R EAD
8,DUNCH
00144400
00144500
SAVE BRANCH ADDRESS
1494
1495
1496
BAl
LA
6,AD~140
REFERENCE BRANCH ADDRESS
1497
B
SETBCH
SET CONDITIONS FOR BRANCH
BAl
8,WRITE
8,READ
1498
1499
1500
1501
~~RPLI.
10/28/71
USING
1489
1493
F150CT10
41
BAL
BAL
B
8,PUNCH
NXTOP
00144600
00144100
00144800
00144900
00145000
00145100
SELECT
Lee
ST/\.CKER
OBJECT CDDE
PAGE
ADDRl ADDR2
OOI5FE
0015FE 4990 EE74
001602 4180 D028
00160h 4990 EE72
00160A 4770 F9EE
OO160E 9504 11004
001612 47RO D04C
001616 9508 AOO4
00161 A 4780 D054
001blE
OOlblE 416A 000 1
001622 4-7FO F97E
001626 9504 AOOI
OO162A 4780 D03C
ODIblE 9508 AOOI
001632 4780 D044
001636 47FO E076
00163A 9241 E2lA
00163E 47FO E076
001642 9281 E2lA
001646
00164A
00164E
001652
001656
47FO E076
92.41 E21A
47FO 0020
9281 f21A
47FO 0020
STMT
SOURCE STATEMENT
1503
USING
CH
BE
SSDG2
CH
9,=H'5'
BNE
ell
4(IO),X'04'
03F8C
1:::04 S5
01626
1505
1506
1507
1508 SSDG4
1509
1510
1511
03FBA.
02836
00004
O164A
00004
01652
00001
02AC6
00001
O163A
00001
01642
031BE
03362
031BE
03362
0318E03362
OI6lE
03362
O161E
1513
1514
1515 SSDG2
1516
1517
1518
1519
1520 SSDG1
1521
1522 SSDG3
1523
1524 SSDG5
1525
1526 SSDG6
1527
1
ILEGLN
BE
SSDG5
eLI
4(lO),X'oe'
BE
5SDGb
EQU
1512 SSDG1
5S,13
9,=H'2
F150CT70
LA
*
6,1(10)
B
ClI
BE
ClI
BE
B
SETBCH
IlIOJ.X'04'
4 POCKET
YES
8 POCKET
SSDGI
lCIO).X'08'
SSDG3
NXTOP
YES
MVI
PCHARAA, X '41
B
Mvr
NXTOP
PCHARAA,X'81'
NXTOP
PCHARAA,X'41'
SSOG7
PCHARAA,X t 81'
B
SSDG7
MVI
B
MV I
B
t
SE.LECT POCKET 4
SELECT POCKET 8
SELECT POCKET 4
selECT POCKET 8
42
10/28/71
00145300
00145400
00145500
00145600
00145700
00145800
00145900
00146000
00146100
00146200
00146300
00146400
00146500
00146600
00146700
00146800
00146900
00147000
00147100
00147200
0014·7300
00147400
00141500
00141600
00147100
CONTROL CARR 1 !\GE
Loe
OO165t,
00165A
001660
001664·
001668
00166C
001670
001676
OO167A
OD167E
001682
001686
OO16RA
00168E
001692
001696
Q01b9A
OO169E
0016A2
0016A6
OO16AA
OO16AE
0016B2
0016B6
OO16BA
OO168E
0016C2
0016C6
OO16CA
OOlbCE
001602
001606
nn"tLr,.!\.
VV~VLiH
OBJECT CODE
PAGE
ADDRl A.DDR2
SIMT
0200 EIAD AGOl 032F5 00001
4990 EE74
05FBC
4780 DOIC
01676
4990 EE72
03FBA
4770 F9EE
02836
0200 ElAO AOO4 032f5 00004
9130 EIAD
032F5
4780 D084
016DE
4710 0060
016B/\
9120 EIAO
032F5
4710 0048
016A2
4330 EIAD
032F5
5430 EE08
03F50
8930 0003
00003
5630 EEOC
03F54
4230 F.3DO
03518
47FO DODA
01734
4330 ElAD
032F5
5430 EE08
03F50
8930 0003
00003
4230 E3DO
03518
9603 E3DO
03518
47FO OOA·.C
011'06
4330 EIAO
032F5
5430 Et1EO
03F28
910F EIAD
032F5
4740 D074
016CE
4130 OOOA
OOOOA
8930 0003
00003
4230 E300
03518
9681 E3DO
03518
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
/. 7'e n.
""I" , r \.i
,_, .1. J .... ""t
.1..JvJ.
032F5
1562 CCIMSK IC
1563
CLI
1564
BE
1565
TM
BM
1566
1561
LA
SOURCE STATPJ;ENT
USING
1529
nrH'I A
U\.)VH
0016DE 4330 EIAD
OO16E2 9~OO E l~'D
0016E6 4780 E076
OOlbEA 910F EIAD
OO16EE 4740 D09C
0016F2 4130 OOOA
OO16F6 5430 ED~O
0016FA 8930 0003
0016FE 5630 fElO
001702 4230 E3DO
001706
001706 4130 E5BO
00170A 4')')0 F-F7h
00170E 90DF E4AO
001712 4160 E4AO
001116 4100 E458
OOl7lA 4110 E5BO
DOl7IE 4100 E3DO
001722 58FO 1030
001126 05FF
001728 98DF 6000
f\ 1
-r ";;,1.
032F5
031BE
032F5
016F6
OOOOA
03F28
00003
03F58
03518
036F8
030C7
035E8
035E8
035AO
036F8
03518
00030
00000
CC
MVC
CH
1M
60
celMSP
CH
BNE
CCL2
f-''IVC
TM
BZ
80
Ie
N
3,DCHAR
3,=F'3 1
SLl
3,3-
0
3,=F'1'
3,PRNTRUFF
CCDONE
STC
B
N
SLL
STC
01
CCNOW
N
3,DCHAR
3,=F ' 15'
DCHAR,X'OF'
Ie
1M
BM
eCI
1 t:: L .. 1
3,=F ' 3'
3,3
3,PRNTBUFF
PRNTBUFF,X'03 t
B
3,10
3,3
3,PRNTBUFF
PRNTBUFF,X'81'
rrnfiMC
0
U
~~IJU'''L
3,DCHAR
DCHAR,X'OO'
NXTOP
DCHAR,X'OF'
ee2
1571
STC
3,10
3,=F'15'
3,3
3,=F ' 131 '
3,PRNTBUFF
1572 CC1'\OW
1573
1574
1575
1576
1577
1578
157 S+
1580+
1581+
1582+
1'583
EQU
"',..."
1568
1569
1510
ee2
00149'900"
eel
LA
SlL
STC
01
N
SLL
0
lA
RAl
STM
LA
LA
PUT
LA
LA
l
BALR
lM
I\.EXT t LINES ADDED
3,PRNTDCB
GET ADDR OF PRINT DeB
I),UROPEN
GO OPEN THE PRINTER
13,15,MACREGSV
SAVE MACRO REGS
6,MACREGSV
SAVE ADDRESS TO XR
13,SAVEAREA
GIVE OS OUR SAVE AREA
PRNTDCB,PRNTBUFF
1,PRNTDC8 LOAD PAKAMETE:R REG 1
Q,PRNT8UFF LOAD PARAMETER REG 0
1~,48{O,1) lOAD PUT ROUTINE ADDR.
14,15 LINK TO PUT ROUTINE
13,15,0(6)
RESTORE MACRO REGISTERS
10/28/71
00147900
00148000
00148100
00148200
00148300
00148400
00148500
00148600
00148100
00148800
00148900
00149000
00149100
00149200
00149300
00149400
00149500
00149600
00149100
00149800
3,DCHAR
celMSP IC
CCAFSK
CC,.13
DCHAR{ 1.) ,I( 10)
9.=H'2'
cel2
9,=H'5'
ILEGLN
DCHAR ( 1 ) ,4 ( 10)
DCHAR,X'30'
CC IMSK
CCAFSK
DCHAR,X'20'
RE
F150CT10
43
TAB
TAB
TAB
TAB
00150000
00150100
00150200
00150300
00150400
00150500
00150600
00150700
00150800
00150900
00151000
00151100
00151200
00151300
00151400
00151500
00151600
00151100
00151800
00151900
00152000
00152100
00152200
00152210
00152220
00152230
00152300
00152400
00152500
00152600
C(WTROL CARR
loe
OFLJECT CODE
OO172C 4580 FeCE
001130 9209 E3DO
001734 4990
001738 4780
OO173C 416A
001140 47FO
PAGE
II\G~
A.DDR.l ADDR2
O?E16
03518
EE74
E076
03FBC
031BE
0001
F97E
00001
02AC6
S T ;'4T
SCURCE STATEtvlENT
1584
BAl
158S
MVI
1586 "r
MVI
-"
1587 CCDONE CH
1588
BE
1589
LA
B
1590
F150CT70
NXTOP
6,1(10)
SETBCH
10/28/71
00152700
8,CDUNTER
PRNTBUFF,X'09'
PRTP12,O
9,=H'2'
44
00152800
CLEAR CHANNEL 12 INDICATOR
00152900
00153000
00153100
00153200
00153300
TAPE CONTROL OP E R.A T I C:-.J S
loe
001744.
001744
001748
OO174C
0017·50
001754
001758
OO175C
001760
001764
001768
OBJECT CODE
4990 EE12
4770 F9EE
9529 AOO4
4780
9524
4780
9514
4180
D08e
9'532
AUV~
AOO4
00004
Ann,.
01790
02808
O17FO
01794
01794
0050
0050
DOAC
FFDO
E54C
01778
01789
D050
DOAC
47FO
9217
4580
5030
oo179c 9700
0011AO 9242
OO11A4 4580
OOI7A8 90DF
0017AC 4160
001160 41DO
IlEGLN
4(10),X'29'
00004
017FO
DOAe
BNE
ell
I
D04C
F9CQ
DOAC
9227
1594
1595
1596
l ....J !,-~ ~__ J &:.f
4780 0044
4780
47FO
9207
41FO
921F
47FO
02836
017DO
c~
O17FO
01794
017FO
03118
03694
E558
036AO
E538
03680
FF3C
03084
035£:6
E4AO
E4t\O
E458
035E8
OO17B4 4110 E538
001788 GAOO
0017BA 98EF 6004
03680
OO173E
0017C7
0017C6
0017C8
0017C(
001700
0017D4
0017D8
OO17DC
0017EO
0017E2
OO17E2
OO17E6
0017EA
OO17EE
OO17FO
OO17F8
4110 E5S8
4100 0001
OADI
98DF 6000
47FO E076
432A 0003
5420 EE14
950A AOO3
4770 D09E
1!322
035AO
00004
036A.O
00001
0001')0
031BE
00003
03F5C
00003
8920 0003
58-42 E560
47FO E04E
0000
0000000060000001
03()OOo()()?n000i)01
Fl~OCT70
CU,13
01760
",,,,,,nn
SOURCE ST AIE i-lENT
USING
CH
OOO~)I.
00004
STMT
1.592
1593 CU
03FBA
0034
AOO4
D03C
o6Cit;c 953S ·AOO4
001770
001774
001.718
00177C
001780
001784
001788
OO178C
001790
001794
001798
ADDRl ADDRe
PAGE
017E2.
00003
036A iJ
03196
1597
1598
1.599
1600
1601
1602
1603
1&04
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
9~=H'5'
BE
RWD
ClI
4 ( 10) , X' 24'
BE
WTM
ClI
4(lO),X'14'
BE
RWU
4(lO;,X i 32 i
eli
BE
eLI
BE
B
BSP
4(10),X'35'
SKD
IlEGOP
CUCCW,X'07 t
CUI
CUCCW,X'lF'
RWD
MVI
WTM
MVI
asp
B
CUI
MV}
CUCCW,X ' 27'
B
CUI
p
"}
SKP
CUI
MVI
CUCCW.,x t 17 t
SA.l
8,FNDRIV
ST
3,CUDCB
MVI
CUECB,O
CUIOB.X'42'
MVI
BAL
STI>1
1618
1619
1620
1621
1622+
1623+
1624
162S
1626+
1627+
1628+
1629
1630
1631 RWU
1632
1633
lA
LA
EXCP
lA
SVC
LM
WAIT
LA
LA
SVC
LM
13,15,MACREGSV SAVE ~ACRO REGS
6,MACREG SV
SAVE ADDRESS TO XR
13,SAVEAREA
GIVE OS OUR SAVE AREA
CUIDB
1,CUIOB LOAD PARAMETER REG 1
0 ISSUE SVC FOR EXCP
1 c:
lL&_l&;_L..II,.\
DCCTnDC
REG 1 I.
. . ;. \..
J.."..J
.....
, .., ... .,,' 'T
t
...
-...;
•
2,3(10)
2,=F'7'
ClI
BNE
SR
3(lO),X'OA'
1634
1635
1636 RIAUA
EQU
1637
SLL
L
B
*2,3
1640
1641
cuccw
.L -y.
lV'L...
AMr\
HI,!V
CCW
cet'"'
GET
....-r
1401
DRIVE NUMBER
RWUA
4 , TAP A DR + 4· ( 2 )
O,0,X'60',1
X'03',O,X'20',1
GO CLOSE
CONTROL UNIT OP
CHAINED TO A NOP
00153500
00153600
00153700
00153800
00153900
00154000
00154100
00154200
00154300
00154400
00154500
00154600
00154100
00154800
00154900
00155000
00155100
00155200
00155300
00155400
00155500
00155600
00155100
001S5800
00155900
00156000
00156100
00156200
00156300
00156400
00156100
00156800
00156900
00151000
00157100
00157200
00151300
00151400
00157500
00157600
00151700
2y2
RWUCLOSE
10128/71
00156500
00156600
NXTOP
!3
IC
1639
~'l._
l,ECB=CUECB
1,CUECB lOAD PARAMETER REG 1
0,1(0,0) LOAD PARAMETER REG 0
1 LINK TO WAIT ROUTINE
13 y 15,O(6)
RESTORE MACRO REGISTERS
N
163B
S!:T COMMAND CHAIN + UNRELATED BITS
8, TSTOPEN
45
TAB
TAB
00151800
00157900
PAGE
MUL 1 fPLY
LOC
OBJECT CODE
001800
001800 4990 EF64
OOlR04 4770 F9EE
001808 416A 0001
eOIBOC 4580 FAEO
001810 18B5
001812 416A 0004
001816 4580 FAEO
OOlalA 18C5
OO18lC 50CO 0168
001820 185B
001822 186C
001824 920A 6000
001828 9140 5000
ODIB2C 4710 D03C
001830 4850 EE66
001834 4660 EE66
001838 47FO 0024
00183e 4860 EE14
001840 920A 6001
001844 4110 0000
001848 4120 0000
OOI84C 9120 6000
001850 4780 D060
001854 9110 6000
001858 4710 D060
00181)e 4110 0001
001860 9120 13000
001864 4780 D074
001868 9110 BOOO
00186C 4710 D074
001870 4120 0001
001874 9200 D164
001878 1912
OO187A 4780 D082
OOI81E 9201 0164
0018B2 4316 0000
001886 5410 EDEO
OO188A 4910 EE6A
OO188E 4770 D094
001892
001894
001898
00189A
00189E
OOl8AO
0018A2
0018A4
OO18A8
0018AC
001BRO
0018B4
ADDRI I1DDR2
03F-,AC
02.R36
00001
02C28
00004
02C28
01968
00000
00000
01B3C
03FAE
03FAE
01824
03FBC
00001
00000
00000
00000
01860
00000
01860
00001
00000
01874
00000
01814
00001
01964
01882
01964
00000
03F28
03FB2
01894
00000
1211
4780
185C
184B
18Re
4324
5420
4920
4770
1372
4335
D12e
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
O192C
STJ.\,TEME~T
USING
".t"
1''\
CH
8NE
LA
ILEGlN
SH
1660
B
MI
1661 1'12
1662
1663
1664
1665
1666
1661
1668
SH
MVI
TM
6,=H'2'
1(6),X·OAt
1,0
2,0
O(6),X'20'
Bl
M3
TM
BO
LA
0(6),X'10'
M3
1,1
O(11),X'20'
HAL
LR
LA
BAL
LR
ST
1654
1655 Ml
1656
1657
1658
1659
16f.9
1670
1671
1672
1673
1674
M':i
' ,-'
LR
LR
MVI
TM
80
SH
LA
LA
TM
Bl
M4
TM
BD
M4
O(lll,X'IO'
LA
2,1
1675 /'44-
!\A\lt
I.
Y ....
MINPRD,O
1676
1677
1678
1679 M5
1680
1681
1682
1683
1684 M6
1685
CR
BE
1'45
MVI
MINPRD,1
IC
1,.0(6)
N
1,=F t I5'
1 f =H 110'
*+6
1,1
0,.0
1,1
CH
BNE
SR
1686
LA
L TR
BZ
1687
lR
1688
168CJ
LR
LR
IC
5,12
4,11
8,12
2,0(4)
2t=F'15'
1690 f-A,7
EDEO
03F28
03FB2
')1836
1691
N
1692
CH
1693
1694
BNE
SR
00000
03F2E
169?
IC
2,=H ' IO'
*+6
2,2
3,O( :d
16<;6
N
3,=F'15'
03FB2
1697
CH
3,.=H t IO'
0000
0018R6
0018BA 5430 FDFO
00186E 4930 fE6 ~,
UNITS ADDRESS OF PRODUCT
INTIALIZE PRODUCT AREA
*
*
*
*...
¥
*
*
*......,..
CO?l\EN1
EE6A
0092
03FR2
O19FE
.. _,-
OOlAD8 9200 FB68
DOlAOC 47FO DOAR
0OlAIO 9201 FB68
OOlA14 IBID
-
02CBO
01A14
02CRO
001A16 1B20
OOlAIE 9140 lOCI
OOlAlC 4780 D06F
OOCOl
OOlA20 910A
00000
2000
OOlA24 4710 DOC8
o 19DA
OlA34
1791
1792
1793 D4A
1194 05
1795
1796
1 -/9-1
1198
1799
USING
CH
BNE
LA
BAl
lR
LA
BAL
lR
lA
LR
MVI
MV I
MVN
ell
BE
ell
BE
MVI
SR
TM
BZ
ClI
RNE
MVI
B
D,13
9,=H ' 7 1
IlEGLN
6,1(10)
3,CVAD43
11,5
6,4(10)
8,CVAD43
12,5
0,1
I,ll
TEMPlyO
TEMP2,0
TEMP2,O(1)
TEMP2,X'OAt
D1A
TEMP2,X'OO'
DlA
TEMPI,l
1,0
1(1),X ' 40'
01
TEMPl,O
02
OVRFLOyl
NXTOP
lR
6,12
AR
SR
SR
MVI
lR
6,1
6,11
6,0
TEMPl,O
I,ll
In
2,12
IC
3,0(1)
4,0(2)
N
3,=F'15'
4,=F'15'
3,=H'lO'
L.r\
Ie
N
CH
BNE
SR
Cli
RNE
SR
CR
BE
*+6
3,3
4,=H'IO'
*+6
4,4
3,4
05
BH
MVI
D4A
B
05
TEMPI,l
1,0
2,0
MVI
SR
SR
1M
BZ
TM
BO
TEMPl.O
1(1),);'4(·
04
O(Z),X'OA'
D6
F150CT70
48
10/28/71
00168300
00168400
NO
00168500
YES, CONVERT ADDRESSES
00168600
00168700
00168800
.....-.
00168900
00169000
00169100
SET REG TO 1 FOR + OR - 1
00169200
SCAN DIVISOR FOR LENGTH AND IS IT ZERO 00169300
00169400
....
00169500
00169600
00169100
00169800
00169900
*
00170000
00170100
00170200
001.70300
00170400
QI IS DIVISOR ZERO
00110500
NO, OK
00170600
YES, SET OVERFLOW INDICATOR
00170700
00170800
FIND HIGH ORDER QUOTIENT lOCATION
00110900
00111000
....
.,..
00171100
00171200
PREPARE TO COMPARE DIVISOR + DVDND
00171300
00171400
00171500
GET DIGITS
00111600
00111700
00111800
00171900
00172000
01 ZERO
NO
00172100
YES, CLEAR IT
00172200
QI ZERO
00172300
NO
00172400
YES, CLEAR
00172500
COMPARE
00172600
EQUAL, 00 NOT CHANGE INDI C~,TOR
00172700
A-DIGIT GREATER
00172800
A-DIGIT LESS
00172900
00173000
SET A GREATER THAN B
00173100
DECREMENT FIELD POINTERS
00173200
00173300
(,;/ E::NG Of- A-FIEl.D
00173400
NO
00173500
TEST 1 MORE DIVIDEND DIGIT
00113600
ZERO
00173700
Q/ IS
*
*
*
*
*
*
*
*
*
*
*
*
*
~
*
*
*
*
*
*
*
LENGTH
(
HYTES
DIVIDE
PAGE
OSJECT CODE
t.DDRl ADDR2
STi/iT
001 fj.28
910F
00000
OOlA2C
OOlA30
OOlA34
OOlA38
4780 DOC8
9200 FB68
1800
1801
1802
1803 D6
1804
1805
1806
1807
1808 07
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
LOC
9501
2000
FB68
OlA34
02C80
02CBO
4780 0194
OOlA3C 181S
01800
OOlA3E ISZC
OOlA40 [.. 180 0001
0OlA44 4352 0000
c:r. r n r n
cue\.}
OOlA48 c::,.
:.J""t:.J'..'
OOlA4C 4950 EE6A
00001
00000
03F28
oblASti 4770
OlA56
03FB2
D()EA
OOlA54 1B55
OOlA56 4140 0009
OOlA5A 4331 0000
OOlA5E 5430 EDEO
OOlA62 4930 EE6A
OOlA66 4710 0100
OOlAb!'\ 1633
OOlA6C IB43
00009
00000
03F28
03FB2
OlA6C
OOlA6E lAS4
001A70 lA58
001.A1? 4180 0000
00000
1821
1822
OOlAto 4950
03FR4
1~l3
OOlA7A 47DO DIIA
OIABb
OOlA1E 4B50 EE6A
03FB2
00001
1824
1825
EE6C
OOlA82 4180 000 1
OOlA86 4250 D12F
OOIAHA 94FO 2000
OOlA8E 9500 O12F
OOIA92 4710 D12E
OOlA96 960/\. D12F
OO]A9A 9600 2000
OlA9B
00000
OlA9B
1829
OlA9A
onooo
001 A9 E IB20
001AAO lena
001AA2 9140 1001
OOlAA6 4180 0008
00001
OOlAAA
4332 OOO()
OOlAA.E 5430 EDEO
OOlAB2 4930 EE6A
OOlAFt6 4170
OOIABA IB33
OOlABC 4133
OOIACO lA38
OOlAC2 4930
OOlAC6 47DO
OOlAG.A 4830
OOIACE 4232
OOlAD2 9500
QOIAD6 4770
OOIADA 920A
OOlADE 4336
QOIAF2 5430
OOlAE6 4930
OOIAEA 4770
D184
TEMPl~O
ClI
BE
TEMPl,l
LR
LR
lA
IC
1,11
2,12
8,1
5,O(2}
N
5,=F i 15 i
CH
Ie
5,=H'lO'
*+6
5,5
4,9
3,0(1)
N
3,=F'15'
CH
3,=H'10'
BNE
*+6
SR
3,3
4,3
5,4
BNE
SR
lA
SR
AR
AR
LA
SH
5,=H'lO'
LA
STC
NI
ClI
BNE
8,1
01
01
D9+ 1 ,x 100'
09
D9+1,X t OA'
0(2),,0
Of BLANK
YES, TREAT
SAME AS ZERO
1, DIVIDEND GREATER THAN DIVISOR
Qf IS DIVISCR TOO LARGE
YES
SET REGISTERS
FOR
SET CARRY
GET B-FIELD DIGIT
* ZERO
QI
NO
YES, CLEAR
GET COMPLEMENT OF A-FIELD DIGIT
*
* ZERO
QI
NO
YES t CLEAR IT
*ADD
TO B-FIELD DIGIT
ADD CARRY
CLEAR CARRY
Of RESULT GREATER THAN 9
NO
YES, SURTRACT 10 FROM RESUL T
SET CARRY
STORE RESULT
*
QI RESULT ZERO
NO
YES t SET 8-2 BITS
*DECREMENT
A-
Of END Of A-FIELD
NO, PROCESS NEXT DIGIT
YES, ADD 1 MORE DIVIDEND DIGIT
*
*
Of RESUl T GREATER
N
1843
1844
1845
AR
CH
8NH
D9A
NO
1846
SH
STC
CL I
BNE
3, =H' 10'
YES, SUBTRACT 10
STORE RESULT
01 RESULT ZERO
NO
1847 D9A
lR48
OIADE
1849
1850
00000
03F28
1851
03FB2
18S2
1853
f)lAFO
1854
B-ADDRESSES
1(1)~XI40'
AND
:41
07
3,0(2)
3,=F'15 t
3,=H t lO'
*+6
3,3
3,9(3}
3,8
3,=H'9'
00000
COMPLEMENT AOD
*
2,0
1,0
183€
1839
1840
1841
1842
O()O()r]
5,D9+1
O(Z),X'FO'
F150CT10
SR
SR
TM
03F28
03FB2.
00000
5.,8
8.,0
5,=H'9'
08
IC
03FB4
OlACE
03FB?
010
CH
BNH
1837
00009
EE6A
MVI
Bl
0009
0162
O(2),X'OF'
D6
1836
OIABC
EE6C
1830
1831
1832 D9
1833
1834
1835
T~,
BZ
OlA44
00000
0150
0000
2000
0172
2000
0000
EDEO
EE6.t\,
1826
1827 08
1828
OlA98
SOURCE STATE i'1E\JT
CH
BNE
SR
lA
3,0(2)
o ( 2 ) ,X tOO '
N
*+8
O(2),X'OA'
3,0(6)
3 t =F'15 t
CH
BNE
3,=H' 10 t
*+·6
MVI
Ie
*QI
Z ERG
NO
YES, CLEAR IT
THAN 9
YE S, SET 8-2 BITS
ADD 1. TO QUOTIENT DIGIT
*
Q/ ZERO
'JQ
49
10/28111
00173800
00173900
00174000
00174100
00114200
00114300
00174400
00174500
00114600
00114100
00174800
00114900
00115000
00175100
00175200
00175300
00175400
00115500
00175600
00175700
00175800
00115900
00176000
00176100
00176200
00116300
00176400
00116500
00116600
00176100
00116800
00176900
00177000
00177100
00117200
00177300
00171400
00111500
00117000
00111700
001.77800
00177900
00118000
00178100
00178200
00178300
00178400
00118500
00178600
00178700
00178800
00178900
00119000
00179100
00179200
DIVIDE
LOC
DBJECT
PAGE
CODE
t\DDR 1 ADDR2
OOlAEF 1833
OOIAFO 1A.30
02CBO
OOlAF2 4230 F86B
OOlAF6 0100 6000 cq6P 00000 02CBO
OOlAFC 47FO 0066
019D2
00000
OOIBOC 9130 COOO
01BI0
001B04 4750 DIA4
001B08 lA60
OOlBOA lACO
OOIBOC 47FO
01902
00000
00000
D066
001810 4328 0000
001B14 433C 0000
001B18 5420 EDF.C
03F34
03F34
0000/+
OOH~1C 5430 EDEC
001B20 Be20 0004
001824 4140 DIDC
001828 4324 2000
OOIS2e 4334 3000
001B30 9630 6000
001834 1923
001836 4780 DI02
001B3A 94EF 6000
00183E 18Rl
anoo n
01B48
00000
00000
01B3f
00000
001B40 ISBO
OOlB42 18Cb
001B44 47FO E076
001B48 00000100
031RE
SIMI
SOURCE S TA TEt-'lENT
1855
1856
1857
185e
MVN
1859
B
1860 010
TM
1861
1862
1863
1864
1865 Dil
1866
1867
SR
AR
STC
Be
3,3
3,0
3,TEMPl
O(1,.6),TEMPl
03
O(lZ),X'30'
5,011
AR
AR
6,0
12,0
B
03
N
Ie
Ie
1868
1869
N
SRDL
2,0(11)
3,0(12)
2,=F f 48'
3,=F'48'
2,4
1870
LA
4,SINTBl
1871
1872
1873
1874
1875
1876
1877 D12
1878
1879
1880
1881 SINTBL
Ie
Ie
OJ
CR
BE
Nl
lR
SR
lR
B
DC
F150CT70
YES, CLEAR IT
*STORE
RESULT
*"
QI lONE BITS
YES, DIVIDE DONE
NO, UP REFERENCE TO
NEXT DIGIT
*
COMPARE
DIVISOR AND DIVIDEND SIGNS
*
*
*
*
*
*
2,0(4,2)
3,0(4,3)
0(6) ,X '30 '
2,3
012
O(61,X-EF'
SET* QUOTIENT PLUS
01 ARE SIGNS EQUAL
YES, LEAVE QUOTIfNT PLUS
UNEQUAL, SET QUOTIENT MINUS
11,1
SET A- AND B-ADDRESSES
11.0
12,0
*
*
NXTOP
X'OOOOOlOO'
50
10/28/71
00179300
00179400
00179500
00179600
00119700
00179800
00119900
00180000
00180100
00180200
00180300
00180400
00180500
00180600
00180700
00180800
00180900
00181000
00181100
00181200
00181300
00181400
00181500
00181600
00181700
00181800
00181900
MODIFY ADDRESS
Loe
OOlB4C
OOlB4C
OBJECT
CODE
PAGE
A_ DDR
1
4990 EE64
001850 4780
DOle
~\[iDR?
ST[VlT
o 3FA.C
1883
1884
1885
01864
SOURCE STATEMENT
r tl~
v,
001B54 4-990 EE66
03FAF
1886
001858 4780 D036
01B82
OOlB5C 4990 EE68
001B60 4170 F9EE
OOlB64 416A 0001
0OlR68 4580 FAEO
03FBO
1887
1888
1889
IB90 t-<1A.l
1891
1892
18B5
18CB
4990
4780
416A
0Olf\7C 4580
001B80 18C5
OOlB6C
001B6E
001B10
001874
001878
02836
00001
02C28
MA,13
9,=H'7'
00182100
MAl
9,=H'lt
BE
MAL4
00182.300
00182400
00182500
CH
BNE
LA
BAl
9,=H t 4'
00182600
ILEGlN
00182700
0018-2800
00182900
00183000
00183100
00183200
00183300
00183400
00183500
00183600
00183100
00183800
00183900
00184000
00184100
00184200
00184300
00184400
00184500
00184600
00184700
1893
1894
LR
LR
CH
EEbB
03FBO
01B82
00004
02C28
1895
1896
BE
LA
1897
1898
BAL
03FCA
1899 fvtAL4
03FCA
OOOOF
1900
LR
SH
SH
1901
LA
LA
001B9A 1420
1902
1903
1904
1905
NR
OOlB9C 1430
1906
NR
03FB2
1907
OlRA8
CH
BNE
cOIBB2
001986
0OlB8A
OOIS8E
OOfB92
OOlR96
4BBO EE82
4BCO EE82
4100 DOOF
4110 0000
43213 e)ef03
433C 0003
001B9E 4920
OOlBA2 4770
OOlBA6 lB22
0OlBA8 4930
OOlBAC 4770
0OlBBO 1833
001BB2 lA32
001BI=\4 4930
r vv
001SB8 .,. 71'"\('\
I'~
00000
00003
00003
EE6A
Dose
Ie
Ie
MAL4
6,4(IO}
8,CVAD43
12,5
11,=H t 3 t
12,=H'3'
0,15
1,0
2,3(11}
3,3(12)
2,0
3,0
03FB2
D066
018B2
1911
1912
SR
EE6C
03FB4
1913
1914
AR
CH
1"\("\70
"lorl'.
lOlc:;.
QI\IU
UI'I"
'-11--\1-' M
03FB2
SH
LA
3,=H'10'
1,1
STC
3,MAL4B+l
3(IZ),X'70'
01B09
1916
1917
19181919
1920
1921
1922
00003
1923 i-1AL4B
OOISBC 4-B30 Ef.6A
001BCO 4110 0001
001BC4 4230 D080
aOIBCS 9410 C003
001BCC 910F D080
0OlRDO 47~O D08C
001B04 960A 0080
OOlBD8 9600 C003
OOl8DC 4328 0002
OOIBEO 433C 0002
OOlBE4 1420
-1."""''''-
00001
OlBD9
00003
OlBD9
01BD8
00002
00002
J.7J.-'
1924
1925
1926
1927
0OlB~6
1430
OOISES
OOIBEC
OOlRFO
OOlBF2
4970 EE6A
03FB2
1928
4770 DOA6
IB22
OlRF2
4930 EE6A
03FB2
OOlRF-6 4770 0090
OOlBFA 1633
OOlRFC lA32
001BFE lA31
001eoo 4110 0000
OOlC04 4930 EE6C
01RFC
1929
1930
1931
1932
1933
1934
1935
00000
03FB4
1936
1937
~AL4A
UNITS
*....
....
"r'('
*
.a.-
....-""
2,=H'IO'
EE6A
v
00182200
6,1(10}
8,CVAD43
11,5
12,11
9,=H'4'
1908
1909
1910
vv,'C"
10/2.8/71
USING
CH
BE
CH
D036
0004
FAEO
F150C T -fO
51
*+6
SR
2,2
CH
3,=HtIO'
00184800
BNE
*+·6
3,3
3,2
3,=H'9'
00184900
00185000
00185100
00185200
NI
TM
Be
U1\II'.1\
MAL'tB+l,X'OF'
NR
NR
CH
BNE
*+6
SR
2,2
3,=H'10'
*+6
3,3
:j,2
3,1
1,0
01
Ie
Ie
CH
BNE
SR
AR
AR
LA
CH
*
*
*...,.
*
4-
*
5,MAL4B
MAL4R+l,X'OA'
3(12),0
2,2(11)
3,2(12)
2,0
3,0
2,=H t lO·
01
*
3,=H'9'
....
"f!'
1"\""1
C:\1::::.,,,,,
UU.LO:J.,:)UV
00185400
00185500
00185600
00185100
00185800
00185900
00186000
00186100
TENS
00186200
*
*$
00186300
00186400
00186500
00186600
00186700
00186800
00186900
00181000
00187100
00187200
00181300
00181400
00187500
*
*
*
*
~10DIFY
ADDRESS
PAGE
/-\ DDR 1 AODR2
STtvn
001C08 47DO DOC8
01C14
1938
BNH
f/,AL4C
OOlCOC 4B30 EE6A
03FB2
1939
SH
3,=:H'lO·
00 Ie 10 4110 0001
00001
LA
1,1
l)()lC14 4230 DODO
001C18 9470 C002
01C29
1940
19't 1 MAL4C
STC
3,~Al4D+l
LOC
OrjJECT CODE
OOlCIC 910F DODO
001C20 4750 DODe
001C24
001C28
OOiC2C
001C30
001C34
001C36
001C38
D01C3C
001C40
001C42
001C46
OOlC4A
001C4C
OOlC4E
001C50
001(54
001C58
001C5C
001C60
001C64·
001C68
001C6C
NI
01C28
TM
BC
01
4328 OOOi
00001
1945
1946 MAL4D
1947
433C 0001
00001
960A DODD
9600 C002
01C29
00002
4920 EE6A.
4770 DOF6
IB22
4930 EE6A
4170 0100
IS33
Ie
Ie
NR
1950
NR
03F82
1951
01C42
1952
CH
BNE
03FB2
OiC4C
lA32
lA31
4110 0000
4930 EE6C
4700 D118
00000
4830 EE6A
03FB2
4110 0010
4230 012D
00010
03F84
01C64
anoOl
or
1948
1949
1420
1430
01C79
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964 tll\AL4E
1965
1966
OlC19
01C78
01C79
00001
OOlC7C 4100 0030
00030
00001
00001
F150CT70
....
..L.
STC
NI
TM
~1AL4F+l
CH
BNE
SR
AR
AR
LA
CH
BNH
SH
LA
1961
Be
1968
1969 MAL4F
OJ
01
1970
LA
Ie
1 ( 12 ) , X t 70 t
,x 'Of
*'
*:0:
*
*
*
*
*
• I I U V ..,) H I ' l V..,)
1A32
1975
AR
lA31
4110 0000
1976
1977
AR
LA
1978
CH
3,::::H t 48
1979
RNH
MAL4G
1980
1981
SH
3,=H'64· t
LA
STC
3,MAl4H+l
NI
I (12) ,X'4FI
4930 EE84
001CC4 4700 0180
00010
OlCAD
00001
00001
1982 MAL4G
1983
1984 MAL4H
00003
00003
1985
1986
03FCC
IC
Ie
MAL4I
AR
1997
NR
t
2,3(11)
CH
BNH
1989
1990
1991
*
1(12),0
AR
NR
v'-
*.
1,16
3 t 3 ( 12 )
2,0
3,0
3,2
3,1
1987
10QA
,I
Olece
or
f
*
*
*
*
*
*
TunIIC,..I\ln("
3.0
3,2
3,1
1,0
OlCA4
03FCE
*
*
*
2,1(11)
3,1(12)
2,0
NR
4B30 EE86
4110 0010
*
*
*
NR
47DO 0158
*
1(12),0
0,48
1974
4930 EE84
HUNDREDS
5,HAl4F
1420
00000
03FCC
*
MAL4F+l"X'OA'
1430
Ie
....
SAVE B FlD INDEX AND
5,MAL4D
MAL4D+1.,X'OA'
2(12),0
2,1(11)
3,1(12)
2,0
3,0
2,=H'lC'
*+6
2,2
3,=H'10 1
*+6
3,3
3,2
3,1
1,0
3,=H'9'
MAL4E
3,=H'10'
1,16
3,MAl4F+l
SR
*
....
....
~
?(12),X'70'
MAl4D+l,X'OF'
1971
1972
1973
4328 0001
433C 0001
4230 0161
944F COOl
OOlCAC 9600 COOl
OOICBO 4328 0003
001C84 433C 0003
OOlCB8 1420
OOlCgA 1430
00lCHC 1A32
001CBE lA31
061<::to
1942
00002
01C29
1943
1944
9470 COOl
910F 0120
ooitio 4756 D12e
001C74 960A 0120
001C78 9600 COOl
001C80
001C84
001C88
OOlC8A
OOICRe
OOlC8E
001C90
001C94
001C98
OOlC9C
OOlGAO
0OlCA4
001CA8
SOURCE STATEMENT
3,=H'48'
*...
.,A..
*
*FOUR
*
*
*
*"
.$..
-r-
*
*
THOUSANDS
WORD MARK BITS
52
10/28111
00181600
00187100
00187800
00187900
00188000
00188100
001882.00
00188300
00188400
00188500
00188600
00188700
00188800
00188900
00189000
00189100
00189200
00189300
00189400
00189500
00189600
00189700
00189800
00189900
00190000
00190100
00190200
00190300
00190400
00190500
00190600
00190100
"n.'trt.Ahl"&.-I"'\,
VV~':1VOVV
00190900
00191000
00191100
00191200
00191300
00191400
00191500
00191600
00191100
00191800
00191900
00192000
00192100
00192200
00192300
00192400
00192500
00192600
00192.700
00192800
00192900
00193000
MODIFY
LOC
A,DDR.~
OPJECT CODE
001CC8 4830 EF86
4230 D189
001COO 944F C003
001CD4 9600 C003
001C08 47FO E076
PAGE
SS
J\ODR 1
001ecc
nn""?K. ~
I'
A._,·~.·
STMT
03FCE
1993
1994 MAL4J
1995
1996 f"iAl4J
1997
01eO'3
00003
onOO3
03151::
F150CT70
SOURCE STATEMEI'!T
SH
3,=H I 64· t
STC
3,MAL4J+l
N1
3 ( 12) , X I 4F
01
3(12},O
f)
NXTOP
t
*
*
*
*
53
10/28/71
00193100
00193200
00193300
00193400
00193500
STORE A-ADDRESS REGISTER
LOC
OP,J~CT
ceDE
ADDRI ADOk?
001CDC
aOIcae 4990 EE68
OOICEO 4770 F9EE
001CE4 18CB
OOlCE6 416A 0001
OOICEA 4580 FAfO
03F30
02836
00001
02C28
PAGE
STMT
19992000 SAR
2001
2002
2003
2004
001CEE 18R5
2005
OOlCFO 50CO FB60
02CAR
OOlCF4 4580 FB6A,
02C82
03FCA
OOlCF8 4BBO Ef.82
OOICFC 0402 BOOI EE9B 00001 03FE3
OOID02 D602 BOOI FB64 00001 02CAC
2006
2008
2009
2010
001008 47FO E076
2011
031Hf
SOURCE S1 J\TE-MEN1
2007
USING
CH
liNE
lR
LA
BAL
LR
ST
SAL
SH
NC
DC
B
F150CT70
SAR,13
9,=t'i'4'
ILEGLN
12,11
6,1(10)
8,CVAD43
11,5
12,ADR360
8,CVAD34
11,. =H' 3
I
1(3,ll),=X'404040'
lC3,II),ADRI40
NXTOP
54
10/28171
00193700
00193800
00193900
00194000
00194100
00194200
00194300
00194400
00194500
00194600
00194700
00194800
00194900
STORE 8-A.DORESS
LOC
OBJECT CODE
DOIDoe
OOlOOC 4990
001010 4780
001014 4990
DOIDIS 4780
OOIDlC 4990
001D20 4770
EE68
D022
EE66
D034
EE64
F9EE
001D24 416A 0004
001D28 4580 F t;.E 0
OOlD2C
0OlD2E
001D32
001036
1\ DOR 1 ADDR2
03FBO
01D2E
03FAF
01D40
03FAC
02836
00004
4580 FAEO
SlMl
SOURCE S T.A. IE /'ilEr\;T
USING
CH
BE
S5R,13
9,=H'4'
CH
9,=H'1'
SRRLI
CH
BNE
9,=H ' 1
2020
LA
BA.L
LR
LA
BAl
LR
ST
BAL
SH
NC
6,4(lO}
2021
2022
00001
02C28
2023 SBRl4
2024
2025
18B5
001038 50CO FB60
02CA8
2026
OOlD3C 4580 FB6A
001D40 4BBO EE8?
02C52
03FCA
2027
207.8 SBRLI
BE
001D44 0402 BOOI EE9B 00001 03FE3
0OlD4A D602 R001 F86't 00001 02CAC
2029
2030
ac
001D50 47FO E076
2031
B
031BE
F150CT7O
201:
2014 SRR
2015
2016
2017
2018
2019
02C28
18C5
416A 000 1
PAGE
REGISTEK
SBRL4
1
IlEGLN
8,CVAD43
12,5
6,1(10)
8,CVAD43
11,5
12,ADR360
8,CVAD34
11,=H ' 3 1
1(3,11),=X'404040'
1(3,11},ADR140
NXTOP
55
10/28/11
00195100
00195200
00195300
00195400
00195500
00195600
00195700
00195800
00195900
00196000
00196100
001Q6200
00196300
00196400
00196500
00196600
00196700
00196800
00196900
MOVE CHARACTERS TO ReD MARK OR GROUP
lOC
OBJECT CODE
ADDRI ADDR?
001D54
001D54 4990 EE66
03FAE
001D58 tt 780
OOlDSC 4990
001D60 4770
001D64 416A
001068 4580
OOlD6C 18B5
OOlD6E 416A
001D72 4580
001076 18C5
001078 940F
0024
01D78
E~64
03FAC
02B36
F9EE
0001
FAEO
00001
02C28
00004
0004
Ft\EO
02C28
OIDC]
D06F
OOlD7e 1865
001D7E DOFF 6000 DIAl 00000 OlEF6
001D84 4170 D03C
01090
001D88
00108C
001090
001092
001D96
OOl09A
4166 0100
47FO DO?A
2033
2034 MCM
2035
2036
2037
2038
2039
2040
2041
2042
2043
- WORD MARK
USING
CH
BE
eH
00100
OlD7E
00001
2050 MCMHIT
2051
BNZ
4410 0090
01DE4
20'38
4410 C08t.
441Q D09C
OIDDE
OIOtA
UIDFO
4111 0001
00001
2059
2060
2061
2062
2063
2064
2065
2066
2061 ,\1CMBUMP
2068
lAB1
OOIDCO lACI
OlDCA
001De2 IL7rt(\ D016
0010C6 47FO E076
-y. f
V\'"
031BE
OOlDCA 1831
001Dce
001DDO
001004
001006
OOIODA
4930
4720
1813
940F
47FO
OOIOOf
OOlDE4
OOIDEA
OOlDFO
D400
0200
0400
0600
EE1A
03FC2
D050
OlDA4
01DC3
01DA8
OOlFIO lA
OOlFI1 0000000000000000
OOlF50 5A
DOIFS1 0000000000000000
OOlF75 7F
OOlF76 0000000000000000
001FF6 3F3F3F3F3F3F3F3F
COMPUTE RECORD LENGTH
BUMP FOR TERM CHAR
TOTAL LENGTH GT 256
NO
YES - SET SW FOR MULTIPLE MOVES
1.,256
1,0
1,MCMCHMOV
1,MCMCHCLR
1,MCMWMCLR
1,MCMCHORC
DECREMENT FOR EX INSTRUCTIONS
MOVE RECORD TO WORK AREA
CLEAR RECEIVING AREA EXCEPT WM
ELIMINATE WORD MARKS IN WORK AREA
OR DATA BITS (BA8421) INTO REC AREA
1,1(1)
11,1
12,1
t4CMBUMP
NXTOP
3,1
3,=H'256'
MCM256
TURN OFF SwITCH
8
MCMDECR
MOVE
00197100
00191200
00197300
00191400
00191500
00191600
00191700
00197800
00197900
00198000
00198100
00198200
00198300
00198400
00198500
00198600
00198700
00198800
00198900
00199000
00199100
00199200
00199300
00199400
00199500
00199600
00199700
00199800
00199900
00200000
00200100
00200200
1,3
REMAINING BYTES
00200400
00200500
00200600
00200100
00200800
00200900
00201000
00201100
2074 MCMCHCLR NC
2075 MCMCHMOV MVC
2076 MCMWMCLR NC
2077 MCMCHORC DC
*
10/28/71
vv£..vv;,vv
TO NEXT 1401 INSTRUCTION
COMPUTE BYTES REMAINING
Q I BYTES REMAINING GT 256
YES
2072
*
56
n,.."")I"\I"\-,1"\1"\
MCMSW+l,X'OF'
2078
OOlDF6 4040404040404040
OOlEF6 0000000000000000
B
SR
SCAN FOR GMWM - RM - RMWM
2071
2069
2073
COOO f2C3 00000 0340B
DOA2 BOOO OlDF6 00000
DOA2 D2A2 OlDF6 01FF6
CODA DOA2 00000 OlDF6
EX.
EX
EX
LA
AR
AR
NOP
A-FIELD PTR
CH
BH
LR
NI
2070
DObF
0054
O(25b,6),TRTGMWRM
MCMHIT
I,ll
1,1(1)
1,=H'256'
MCMDECR
MCMSW-t} ,XtFCP
3,1
00100
4410 D096
MCMSW+1,X'OFt
6,11
SR
LR
LA
BeTR
EX
0610
8,CVA043
12,5
6,256(6)
2055
2Q56 MCM256
2057 MCMDECR
4110 0100
ILEGLN
6,1(10)
8,CVAD43
11,5
6,4(10)
MCMSCAN
01
CIDe3
9,=H t l'
MCMLI
LA
2054
D06F
MCM" 13
B
2052
2053
03FC2
01DA8
F150CT70
9,=H'7'
BNE
LA
BAL
LR
LA
BAL
LR
MCMLI
NI
LR
MCMSCAN TRT
LA
CH
BNH
0001
EE7A
0054
PAGE
SUURCE STATEMENT
2044
2045
2046
2047
2048
2049
181P,
41.11
4910
4700
OOID9E 96FO
001DA2 1831
OOlDA4
OOlDA8
OOIDAA
OOlDI\E
0010B2
0010B6
0010BA
OOIDBE
STMT
~ARK
O( 0,12) ,WM.256
00201200
00201300
WORK256(O) ,O( 11)
WORK256(O),STRIPWM
OO~01400
DC 0, 12) ,WORK256
00201500
00201600
2079 WORK256
2080 TRTGMWRM
2081
2082
DC
DC
DC
20B3
2084
2085
DC
DC
DC
2086
DC
36X '00 I
X'7F'
128X'OO'
2087 STRIPWM
DC
256X'3F'
DC
CL256' •
X'lA'
MCM. SCAN TABLE
RECORD MARK - A8 2
63X'OO'
X'SA'
RECORD MARK WORD MARK - M AS 2
26X'OO'
W
GROUP MARK WORD MARK - MBA8421
00201100
00201800
00201900
00202000
00202100
00202200
00202300
00202400
00202500
BRANCH IF B1T
Lee
ORJE-CT
ceDE
F(';'UAL
PAGE
ADDRI ADDRl
0020F6
0020F6 4990 EE66
0020FA. 4780 D02E
0070FE 4990 EE70
002102 4770 F9EE
03FAE
02124
002106 4l6A 0001
03F88
02836
00001
002IDA 4580 FAEO
02C28
00210E
002110
OQ2114
002118
00211A
002120
002124
18B5
416A 0004
4580 FAEO
00004
02C28
18C5
D200 EIAD AOO7 032F5
032F5
ElAD
4BCO EE&6
002"128 D200 FB68 EIAD 02eeo
00212E 0400 FB68 COOl 02eBO
002134 4780 E076
002138 18AB
002131\ 4190 0000
OQ213E 47FO [076
00007
949f
03FAE
032F5
00001
031BE
00000
0313E
ST,..n
SOURCE 5T .AT Ef"l ENT
2089
US1NG
BBE,13
2090 BBE
2091
2092
CH
9,=H'l'
BE
RBELl
CH
9,=H'8'
2093
BNE
IlEGlN
2094
LA
6,1(10)
2095
BAl
lR
8"CVAD43
2096
2097
2098
2099
2100
2101
2102 BBEll
2103
2104
2105
2106
2107
2108
11,.5
LA
SAL
LR
6,4(10)
MVC
N1
DCHAR(1),7(10)
SH
MVC
NC
RZ
LR
8,CVA043
12,5
DCHAR,X'BF'
12,=H'l'
TEMPI,DCHAR
TEMPl(1),1(12)
NXTOP
10,.11
LA
9,0
B
NXTOP
Fl50CT70
57
10/28/71
00202100
00202800
00202900
00203000
00203100
002032.00
00203300
00203400
00203500
00203600
00203700
00203800
00203900
00204000
00204100
00204200
00204300
00204400
00204500
00204600
PAGE
lOC
OBJECT
e[iDf-
f' DDR 1
002142
002142 90EC DQQe
002146
002148
00214C
002150
002154
nOGoe
05FO
58EO FOSS
021DO
50DO E45C
90EF E4AO
4100 E458
035A4
035E8
035AO
002158 4160 E4AO
00215C 5811 0000
002160 4821 0000
002164
002166
00216A
00216C
002170
002172
002176
00217A
002180
p;uDR2
035E8
00000
00000
1222
02180
4780 F038
0620
5830 EE18
03F60
IB32
4420 F032
O?17A
47FO F038
02180
0200 3000 1002 00000 00002
002180
02188
002184 0OOO3E94
002188 '5801 0000
00000
OOl18C
OOliSE
00000
OAOA
98EF 6000
002192 1871
002194 SAlO EDFC
002198 5010 ElBC
0021A,~
0021AE
002.182
002188
0021BE
0021C4
OQ.~lC; ~
0021CE
002100
007104
0021DA
002lEO
0021E4
002IER
0021EC
SOURCE 5T ATE(VlENT
2110 BEGIN
2111+BEGIN
F150C170
SAVE
(14,12)
SAVE- CONTROL PROGRAMS REGISTERS
OH
2112+
14,12.,12(13) SAVE REGISTERS
STM
2113
ENTRY BEGII\,J
ENTRY POI~T
TAB
BALR 15,,0
2114
LOAD BASE REGISTERS
14,BASE2
2115 SETBSl
L
2116
51
1.3,SAVEAREA+4
SAVE CONTROL PROGRAMS REGISTER 13
14,15,MACREGSV
2117
STM
2118
LA
13"SAVEAREA
2.119
6,MACREGSV
LA
l,oe 1)
2120
L
GET PARM FIELD POINTER
TAB
2,0(1)
2121
LH
GET PARM FIELD LENGTH
TAB
2,2
2122
l TR
IS PARM FIELD LENGTH ZERO? TAB
2123
Bl
GETCDRE
YES, NO PARM FIELD PRESENT TAB
2124
BCTR 2,0
PARM LENGTH LESS ONE
TAB
3,=A{ EOJIAR+~;;)
2125
l
LOW ORDER OF EOJIAR
TAB
3,2
2126
SR
NO, EOJIAR
PARM LENGTH - 1 TAB
2,MOVEPARM
2127
EX
MOVE PARM TO EOJIAR
TAB
2128
GETCORE
R
TO CONTINUE INIT
TAB
O{O,3),2(1}
2129 MQVEPAR;Vj MVC
MOVE PARM TO EOJIAR
TAB
2130 GETCORE EQU
CONTINUE WITH INIT
TAB
2131
GETMAIN R, LV= 16020
GET CORE FOR 1401 SIMULATED CORE
2132+
CNOP 0,4
2133+
BAl
1, *+8 BRANCH AROUND LENGTH
2134+
A(16020) LENGTH
DC
0,0(1,0) LOAD LENGTH
213~.H·
L
2136+
SVC
10 ISSUE GETMAIN SVC
14,15,O{6}
2137
LM
....
7,1
2138
LR
2139
A
STOR.E UPPER LIMIT OF 1401 CORE
It=F'15999'
2140
l,SlMLIMIT
ST
2141
GETMAIN R,LV=18000
GET CORE FOR TAPE I/O BUFFER
rr..!(Jo
"v.,.
I~
2142+
vi
2143+
SAL
1,*+8 BRANCH AROUND LENGTH
2144+
A(18000) LENGTH
DC
0,0(1,0) LOAD LENGTH
2145+
L
2146+
10 ISSUE GETMAIN SVC
SVC
14,15,0(6)
2147
LM
2148
1, TAPE AREA
5T
2149
MVC
WTCCW2+1(3),TAPEAREA+l
2150
MVC
RTCCWl+l(3J,TAPEAREA+l
MVC
lDTCCWl+l(3},TAPEAREA+1
2151
SIMCOR+201,SIMCOR
2152
XC
2153
B
BGNI
*
-
-h
03F44
03304
10128111
00204800
DS
*
0621~O 4·510 F040
00219C
00219C
002lAO
0021A.4
002lA8
S If\": T
58
*
00204810
00204900
00205000
00205100
00205200
00205300
00205400
00205410
00205420
00205430
00205440
00205450
00205455
00205460
00205470
00205415
00205480
00205485
00205500
00205600
00205100
00205800
00205900
00206000
"f\.J'
4·510 F05C
021A4
00004650
noon
00000
98EF 6000
5010 EICO
D202 E4F9
0202 E':,19
0202 E509
D700 70C9
41FO FlOP
0000
0000 3148
00000
5801
OAOA
03308
EICI 03641 03309
ElCl 03661 03309
EICI 03651 03309
7000 DOOC9 00000
02320
0131 F314 F314 024SC 0245C
0207 FO~F E2RR 02207 03403
900F E4AO
035E8
4160 c4AO
41DO E458
91FF FlOO
0021FO 4710 FOFA
035E8
035AO
02:31b
02242
*
2154 BASE2 DC
2155
2156 WTORTN
XC
2157
MVC
STM
2158
2159
LA
2160
LA
TM
2161 OKWTOR
2162
80
2163
WTOR
*
A(SETRSl+4096)
RQSTIN,RQSTIN
OKWTOR+27(8},JOBNAME
MDVE JOBNAME TO WTOR
13,15, MACREGSV SAVE MACRO REGS
6,MACR.EGSV
SAVE A D~RE SS TO XR
13,SAVEAREA
GIVE as OUR SAVE AREA
MOD,X'FF'
CHGRDCD
'OK
',RQSTIN,50,WTECB
00206100
00206200
00206300
00206400
00206500
00206600
00206JQ9 .
00206800
00206900
00207000
00201100
00207200
00207300
00207400
00207500
00207600
00201700
PAGE
LOC
OdJECT CCiDE
ADORI ADDR2
0021F4
0021F4
4~rlO
0021FS
0021F9
0021FC
002200
002202
002204
00220F
32
FClCB
02210
aoz/.. sc
0000231C
DOOF
0000
D6D2404040404040
002210
002210
002212
002216
00221A
0022lE
002222
002226
OA23
98DF 6000
00000
gOOF E4AO
035£8
91FF FIDO
02318
023A2
4710 F25A
4160 E4AO
4100 E458
00222A 4110 FID4
D0222E 4100 0001
002232 OAOl
002234 98DF 6000
002238 0703 FID4
00223E 47FO F25A
002242 D503 EICA
002248 4770 F184
00224C 957D EID3
002250 4770 F17F
002254 0741 fEIO
00225A 5830 EE20
00225f 5810 EE24
002262 4120 0046
002266 q57D 1000
00226A 4780 F144
00226E 9540 1000
002272 4780 F134
002216 D200 3000
D0221e 4111 0001
002280 4133 0001
0022R4 4620 FIlE
002288 47FO FI7E
002lAe 900F E4AO
002290 5030 FE08
002294 0203 FEOC
00229A 4160 E4AO
00229E 41DO E458
035E8
03'5AO
0231C
00001
00000
FID4 0731C 0231C
023A2
EEIC 03312 03Fb4
OZZfC
SOURCE
2164+
CNOP
0,4
2165+
2166+
2167+
2168+
2169+
2170+
2171+
2112+IHROQ29
Z173+IH80028A
2174+
2175 CHGA
2176 TESTA
2177
2178
2179
2180
2181 TESTAA
2182+TESTAA
2183+
2184+
BAL
I,IHB0028A BRANCH AROUND LIST
AL1(SO) REPLY LE~GTH
Al3(RQSTIN) REPLY ADDRESS
A(WTECRJ ECB ADDRESS
AL2(IHB0029-*) MESSAGE LENGTH
DC
DC
DC
DC
DC
8'0000000000000000' MCSFLAGS FIELD
DC
C'OK
EQU
OS
SVC
LM
*
OH
35 ISSUE WTOR SVC
1 LINK TO WAIT ROUTINE
13,15,0(6)
RESTORE MACRO REG
2187
B
2188 CHGRDCO
elC
TRANS
TMPARA(4),=C'CCTL'
BNE
DGCC1
2186
2189
2190
L
03F6C
00046
2194 DGCCIO
2191
2195
L
lA
2196 DGCC5
CL I
2197
BE
ClI
BE
2198
0227C
1000 00000 00000
00001
00001
02266
022C6
035E8
02F5D
EE20 O?F54 03F68
035E8
035AO
D02ZA? 4110 E694
0022A6 4100 EtCA
03312
0022AA 58FO 1030
00030
D022A!: 05EF
002230 9BDF 6000
00000
037DC
2199
2200
2201 OGCC4
2202
2203
2204
MVC
LA
LA
RCT
B
WTECB,WTECB
TMPA~t\+9
,X' 7D'
1.=A(TMPARA+I0)
2,10
O(1),X'7D'
DGCC3
O(I),C'
DGCC4
STM. 13,15,MACREGSV
2209
2210
GE-T
2211+
2212+
2213+
2214+
2215
lA
2216
0022RA 4110 FIB4
00228E 5830 FEOS
2217
2218
LA
l
BALR
LM
CLC
BNE
l
00208500
00208600
00208700
00208800
00208900
00209000
00209100
00209200
00209300
00209400
00209500
0(1,3),0(1)
I t le1}
3,1(3)
2,DGCC5
DGCC2
5T
00201800
00207900
OQ208000
00208100
00208200
00208300
00208400
00209600
00209700
00209800
00209900
t
2206
2207
2208
MVC
lA
LA
CLEAR EeB
OGCC2
CARTAB(66},CARTAB
3.=A(CARTAB)
?205 DGCC3
002284 D504 fICA Ef9F 03312 03FE6
022FC
02F50
SAVE MACRO REG
0,1(0,0) LOAD PARAMETER REG 0
2192
0228C
RESTORE MACRO REGISTERS
lA
2193
00000
13,15.0(6)
13.15,MACREGSV
SVC
LM
XC
2185
10/28/11
MESSAGE
MOD,X'FF'
TRANS
6,MACREGSV
SAVE ADDRESS TO XR
13,SAVEAREA
I,ECB=WTECB
WAIT FOR RESPONSE
l,WTECB LOAD PARAMETER REG 1
02F~8
00000
I
STM
TM
RO
LA
LA
WAIT
LA
03F68
022C6
F150CT70
~TATEMENT
ClI
BNE
XC
03318
FEIO 02F58
STMT
59
002.10000
00210100
00210200
00210300
00210400
00210500
00210600
00210700
3,DGEND
DGCUR,=A(CARTAB)
6,MACREGSV
00210800
13,SAVEAREA
CARD,TMPARA
l,CARD LOAD PARAMETER REG 1
O,TMPARA LOAD PARAMETER REG
15,48(0,1) LQAD GET ROUTINE ADDR.
14,15 LINK TO GET RCUTINE
00210900
00211000
°
13,15,0(6)
THPARA(5),=C'CCTL2'
OGCC1
3,DGEND
00211100
002112.00
00211300
00211400
PAGE
LOC
OgJECT
C[DE
A.DDR 1
ADOR?
STMT
SOURCE
STATE1~ENT
0022(2 41FO Fl16
0225E
2219
0022C6 90DF E4AO
0022CA 4160 E4AO
035EB
035E3
0022CE 41DO
£:458
C35AO
002204 4510 FIAE
0022D8 ODIE
022F6
STM
lA
2222
LA
2223
WTO
2224+
CNOP
2225+
BAL
2226+
DC
2221+
DC
2228+
DC
2229+IHBOO34 EQU
22.30+ IHBOO34A DS
0022D2 0100
0022DA 0000
0022DC
0022F6
0022F6
0022F6
0022F8
0022FC
0022FC
C9D5E5CI03C9C44Q
OA23
98DF 6000
D231
037DC
03312
2231+
2232
2233 DGCC7
2234
2735
2236+
2237+
00030
2.238+
L
2239+
BAlR
lM
00000
F314 E ICA. 024'5C 03312
002302 4110 £:694
002306 4100 EICA
00230A 58FO 1030
00230E 05EF
002310 98DF 6000
002314 47FO FOCA
002318 FF
002319 000000
OOZ31C OOO(}Of)OO
002320 90DF E4AO
002324 4160 E41\0
002328 4100 E458
B
2270 DGCC2
2221
00000
02212
SVC
lM
EQU
MVC
GET
LA
lA
2240
035E8
035AO
2246
2249+
??~n..i..
L-.L.JoV·
f'\rv ......
002331
002334
002336
00233A
0031DC
2251+
2252+
DC
2253
2254
2255
lM
02334
OA13
00000
035·18
00233E 4580 FC9C
002342 4180 F232
002346 90DF E4AO
020E4
0237A
22.56
2257
2259
LA
STM
LA
LA
2260
GET
LA
lA
L
002?7E IA17
*
LA
BC T
AR
1,=F'16010'
1,7
2265
2266
002372 4122 0064
007376 4610 F224
00237A 5810 EE2S
8,BGN2
XC
00000
0OO4C
05EF
~OQ():1
OVTC
U t ! L
22.69
2262+
5820 EICO
nOTTnll.t
u r I J.UI1ii
AL3(CARO) DeB ADDRESS
19 ISSUE OPEN SVC
13,15,0(6)
RESTORE MACRO REGISTERS
PRNTBUFF,X'8B'
RESTORE PRINT FORM IMMEDIATEl Y
8,WRITE
00064
0236C
Q3F70
03312
00030
D763 2000 200 0
1\11/1')0,\
2267
002356
0023'5A
00235E
002360
002364
002368
00236C
1.*+8 lOAD REG1 W!LIST ADDR.
ML-..I..'.l.L.UI
2263 CLEAR
2261+
2263+
2264+
BALR
2270
2271 BGNZ
2272
l
TAB
00212700
00212800
00212900
00213000
00213100
0,.4
~OOOO
037DC
4110 004C
SAVE MACRO REGS
SAVE: ADDRESS TO XR
GIVE as OUR SAVE AREA
OPEN CARD INPUT DCB ONLY
03308
2258
002352 4110 E694
98DF 6000
MVI
SAL
F'O'
13.15,MACREGSV
6,MACREGSV
13,SAVEAREA
(CARD)
lM
LA
L
035AO
4100 EICA
c)8FO 1030
SVC
00212400
00212500
00212600
13,15,MACREGSV SAVE MACRC REGS
6,:I.1ACREGSV
SAVE ADDRESS TO XR
13,SAVEAREA
GIVE OS OUR SAVE AREA
CARD,TMPARA
READ CARD
1,CARO LOAD PARAMETER REG 1
Q,TMPARA LOAD PARAMETER REG 0
15,48(0,1) LOAD GET ROUTINE A.DDR.
14, l~ LINK TO GET ROUTINE
13,15,0(6)
RES TORE MACRO REGISTERS
1,76
CLEAR
2,TAPEAREA
TAPE
0(100,2),0(2)
AREA
2,lOO(2}
1,CLEAR
035EB
035E8
00234A 4160 [4AO
00234E 4100 E458
13,15,0(6)
2243 WTECB
2244 BGNI
224-5
80
98DF 6000
928B E300
CARD.,TMPARA
1,CARD LOAD PARAMETER REG 1
O,TMPARA LOAD PARAMETER R.EG 0
15,48(0,1) LOAD GET ROUTINE ADDR.
14,15 LINK TO GET ROUTINE
X'FF'
nn?'l'ln
vt.JL,....,..J'J\...J
00212000
00212.1.00
00212200
00212300
*RQSTIN.,TMPARA
DC
2248+
00211500
00211600
00211700
00211800
00211900
35 ISSUE SVC
13,15.,0(6)
CHGA
2241
10/28/71
*OH
B
DC
STM
LA
LA
OPEN
eNOP
BAL
00232C
00232C 4510 FlEe
DGCCIO
13,15,MACREGSV
6,MACREGSV
13,SAVEAREA
'INVALID CCTl CARD,RESUBMITt
0,4
1,IHBOO34A BRANCH AROUND MESS.AGE
AL2(IHBOO34-*) MESSAGE lENGTH
8'0000000000000000' MCSFLAGS FIELD
('INVALID CCTl CARD,RESUBMIT' MESSAGE
2241
2242 MOD
035£:8
f150CT70
60
00213200
00213300
00213400
00213500
00213600
00213700
00213800
00213900
00214000
00214100
00214200
00214300
00214400
00214500
00214600
00214700
PAGE
LOC
OBJECT CDD'=
002380 927F 1000
.ADDR 1 ADDR7
00000
002384 4180 0010
002388 588a 0000
00238C ')~88 0000
002390 Sa8R 0004
002394 S8aF aooc
002398 0201 E28B 8000 03403
00239E 47FO F08C
0023A2 OC31 F314 ECD4 0245C
0023A8 D502 F314 EEA3 0245C
0023AE 4180 F4E4
0023B2 D502 F314 EEA6 0245C
0023B8 4180 F346
0023BC 0502 F314 EEAq 0245C
0023C2 4780 F434
0023C6 0502 F314 EFA.C 0245C
0023CC 4180 F416
002300 0502 F314 EEAF 0245C
002306 4780 F36A
0023DA 0502 F314 EEBZ 0245C
0023EO 4780 F-56E
0023E4 D502 F314 E~B5 0245C
0023EA 4780 F58C
002.3EE 0502 F314 EEee 024~;C
0023F4 4780 F74A
0023F8 0502 F314 EEBB 024,I)C
0023FE 4780 F7CA
002402 D502 F314 EEBE 0245C
002408 4780 F934
00240C 0502 F314 EECI 0245C
002412 4780 FRIO
002416 0502 F314 EEC4 0245C
00241C 4780 F8'tE
002420 0731 F314 F314 0245C
002426 90DF E4AO
00242A 4160 E4AO
00242E 4100 E458
002432
002434
002438
002439
00243C
002440
002442
002444
2274
LA
2275
L
03EIC
2276
L
2271
l
2278
L
2219
f"tVC
2280
6 WTDRTN
2281 TRANS
TR
03F-Eti
2282
0262C
Q3FEE
2284
00004
ooooc
onoao
02104
0248E
03FFl
0257C
03FF4
0255E
03FF1
024BO
03FFA
026B6
03FFD
02604
0 1+000
02892
04003
02912
04006
02A7C
04009
02958
0400C
02996
0245C
035E8
035E8
035AO
02452
002451
002452
002452 OAl3
002454 980F 6000
00745P 47F0 FOEZ
00245C
MVI
22'73
00010
00000
00000
0700
4510 F30A
32
00245C
0000231C
0011
0000
C9D3D3C5C7CID34Q
SOURCE STA1Ei'''1E\JT
STf'JIT
00000
0222"
eLC
BE
ClC
BE
CLC
BE
CLC
BE
elC
BE
ClC
2283
2285
2786
2287
2288
2289
2290
2291
2292
2293
2294
BE:
elC
BE
2295
2296
2297
2298
2299
CLC
BE
eLC
BE
ClC
2300
2301
2302
2303
2304
BE
CLC
BE
ClC
BE
2305
2306
SNDILG
XC
STM
LA
2309
lA
WTOR
2310
2311+
CNOP
2312+
BAl
2313+
DC
2314+
DC
2315+
DC
2316+
DC
2317+
DC
2318+
DC
2319+IHB0041 EQU
2320+IHB0040A OS
2307
2308
2321+
2322
S\lC
lM
2323
B
2 324 R(,) S TIN OS
2325
2326
2327
*
*
*
O(1),X'7F'
8,16
F150CT70
61
10/28/71
RQSTIN,TVPTBL
RCSTIN(3),=C'SSS'
SSIN
RQSTIN(3),=C'LDC'
COlDAO
RQSTIN(3),=C'LDT'
TPLOAD
RQSTIN(3),=C'SRS'
STRST
RQSTIN(3),=C'STT'
START
RQSTIN(3),=C'CLRf
ClR
RQSTIN{3),=C'DIS'
DIS
RCSTIN(}),=C'ALT'
ALI
RQSTIN(3),=C'WTM'
WTMCMD
RQSIIN(3),=C'RWD'
RWDCMD
ROSTIN(3),=C'TRM'
TERMINAT
RQSTIN(3),=C'DMP'
00214800
00214900
00214910
00215000
00215100
00215200
00215300
00215400
00215500
00215600
00215700
00215800
00215900
00216000
00216100
00216200
00216300
00216400
00216500
00216600
00216700
00216800
00216900
00211000
00211100
00217200
00217300
00217400
00211500
00217600
00217100
00211710
DU,..1PCORE
UVL. .1tlLV
B,O(8}
8,O(fn
8,4(8)
8,12(8)
ADDR OF CVT
ADDR OF cvr
AODR OF 1CB
ADDR OF rCB
ADDR OF TIOT IN 8
PTR IN 8
IN 8
WORDS IN 8
IN 8
JOBNAME,O(B)
RQSTIN,RQSTIN
ZERO OUT REPLY AREA
13,15,MACREGS\I SAVE MACRO REG
6,MACREGSV
SAVE ADDRESS TO XR
13,SAVEAREA
GIVE OS OUR SAVE AREA
'ILLEGAL ENTRY',RCSTIN,50,WTECB
0,4
TAB
TAB
TAB
TAB
f"\.Jf'\.~"l"""''''''''''-
00217800
00211900
00218000
00218100
00218200
1,IHR0040A BRANCH AROUND LIST
ALl (50) REPLY LENGTH
AL3(RQSTIN) REPLY ADDRESS
ACWTECB} EeB ADDRESS
AL2(IHB0041-*) MESSAGE LENGTH
B'OOOOOOOOOOOOOOOO' MCSFlAGS FIELD
C'ILLEGAL ENTRY' MESSAGE
*OH
35 ISSUE WTOR SVC
13,15,0(6)
RESTORE MACRO REGISTERS
TES TA.A
Cl50
THIS SECTION WILL SIMULATE THE 14Q2 CARD LOAD PUSHBUTTON.
00218300
00218400
00218500
00218600
00218700
00218800
PAGE
lOC
0024RE
002494
007498
00249C
Dr;JECT CODE
ADDRl
ADD~2
D74F 7001 7001 00001 00001
9200 FIDO
4580 FC14
9640 7001
00241\0 41AO 7001
0024A4 4190 0000
02318
02D5C
00001
00001
00000
0024A8 9201 Fft 14
0024AC 47FO E076
0255C
002480 9501 F414
0024-84 4770 F3CE
0024P,8 4150 F317
O?55C
0024BC 9500 5000
0024CO 4770 F382
0024C4 5880 E530
0024C8 07F8
0024CA 9500 5000
0024CE 4780 F39A
002402 95FO 5000
00000
4740
031BE
02516
0245F
024CA
03618
00000
024E2
00000
02420
00001
024CA
5550 EE2C
03F74
4950 EE68
03FSO
0024EA 4720 FlD8
02420
0024EE 4250 FB68
02CBO
0024F2
F!368
024F9
0100
02C80
F3Bl
,- .. -.
0024F8 F270 E3C8 F317 03510 0245F
0024FE 4F40 E3C8
03510
002502 4940 EE8R
03FDO
002506 4720 F2D8
02420
002406
0024DA
00240E
0024E2.
0024E6
'
F~"'Q
LV,.;
4155 0001
47FO F38Z
~
00250A IA47
00250C 18A4
00250E 4190 0000
002512
002516
00251C
002520
002524
00000
47FO E076
031BE
D731 F314 F314 024')C 0245C
90DF E4AG
4160 E4AO
03!)E8
4100 [458
035E8
035AO
002528
002528 451>] F40t,
02552
0025?C
002520
002530
002534
32
0024-')C
0000231C
OOIE
002536 ooon
002538 C3CID5D5D6E340E2
0021552
002552
STMT
SOUR.CE S TATEr~ENT
232f CDLCAD XC
F150CT7Q
SIMCOR+l{80}~SIMCOR+1
62
10128/71
00218900
00219000
8 t READ
00219100
01
SIMCOR+l,X'40'
00219200
2332
lO,SIMCOR+l
LA
00219300
2333
9,0
LA
00219400
2334
OKSTT,l
MVI
00219500
B
2335
NXTOP
00219600
2336
00219700
THIS SECTION WILL SIMULATE THE START PUSHBUTTON. IF THE
2337
00219800
OPERATOR COMMAND STT IS FOLLOWED BY AN ADDRESS, THE 1401 PROGRAM 00219900
2338
WIll RESUME FROM THAT ADDRESS. HOWEVER, IF STT IS NOT FOLLOWED 00220000
2339
BY ANYTHING, THE 1401 PROGRAM WILL RESUME FROM WHERE IT STOPPED. 00220100
2340
2341 *
00220200
2342 START CLI
OKSTT,l
00220300
2343
BNE
START4
00220400
2344
LA
5,RQSTIN+3
Q/ IS THERE A START ADDRESS
00220500
0(1),0
2345
ClI
00220600
2346
STARTl
tiNE
YES, START FROM THERE
00220100
2347
8,.RETURN
l
00220800
2348
BR
8
00220900
O(S},O
2349 STAR.Tl ClI
QI END OF MESSAGf
00221000
2350
BE
START2
YES
002.21100
1'351
0(5),C'O'
Cl I
NO, IS IT ~UMERIC
00221200
2352
Bl
SNDILG
NO, ERROR
00221300
5,1(5)
2353
LA
YES, TRY NEXT BYTE
OQ221400
2354
B
STARTl
00221500
5~:::;A(RQSTIN+4)
2355 START2 S
GET LENGTH - 1
00221600
S,=_H '4 t
2356
CH
QI lENGTH GT 5 DIGITS
00221100
2357
BH
SNDILG
YES, ERROR
00221800
2358
STC
5,TEMP1
CONVERT TO BINARY
00221900
2359
MVN
START3+1(1) ,TEMPI
00222000
?360 START3 PACK
PAK T~RQST IN+3( 0)
00222iOO
2361
CVB
4,PAKT
00222200
2362
CH
4~=Ht15999'
Q/ ADDRESS GT 15999
00222300
2363
BH
SNOILG
YES, ERROR
00222400
2364
AR
4,1
NO, GO THERE
00222500
2365
LR
10,4
*
00222600
2366
LA
00222700
9,.0
2367
B
NXTOP
00222800
2368 SlART4
XC
RQSTI~tRQSTIN
ZERO CUT REPLY AREA
002229Q(),
2369
STM
13,15,MACREGSV SAVE MACRO REG
00223000
2370
LA
6,MACREGSV
SAVE ADDRESS TO XR
00223100
2311
LA
13,SAVEAREA
GIVE OS OUR SAVE AREA
00223200
2372
WTOR 'CANNOT START,NO PGM lOADED',RQSTIN,50,WTECB
00223300
2373+
CNOP 0,4
2374+
HAL
1,IHR0042A BRANCH AROUND LIST
2315+
DC
All(50) REPLY LENGTH
2376+
DC
Al3(RQSTIN) REPLY ADDRESS
2377+
DC
A(WTECB) ECB ADDRESS
2378+
DC
AL2(IH~0043-*) MESSAGE lE~GTH
2379+
DC
B'OOOOOOOOOOOOOOOO' MCSFlAGS FlflD
23FO+
DC
C'CANNOT STAkT,NO PGM LOADED' MESSAGE
2381+IHB0043 EOU
2382+IHB0042A OS
OH
MVI
BAL
2329
2330
2331
MOD,X'OO'
*
*
*
*
*
*
*
*
**
*
*
*
Pf.\GE
LOC
002552
002554
002558
00255C
OBJECT
ceDE
ADDRI AC'DR2
OA23
980F 6COO
00000
47FO FOE2
00
0222A
souget
Sn.,T
2383+
2384
2385
2386 OKSTT
2387
2388
2389
*
*
*
00255D 00
00255E 18bA
2390 STRST
002560 lA69
002562 5060 fB60
002566 9200 EIA9
00256A 9200 E lAA
00256E 9200 flAB
002572 9200 EIAC
002576 5880 E'530
00257A 07F8
2391
02Ct\8
032Fl
032F2
032f3
032F4
03678
2392
2393
2394
2395
2396
2397
2398
2399
2400
.....
2401 ....
2402 TPLOAD
2403
2404
2405
2406
2407
2406
2409
2410
2411
2412
2413
2414+
*
*
00257C 41AO EE30
FIDO
002580 9200
002584 4580
002588 5030
00258C 4580
002590 4580
002594 0203
03F78
02318
FFDO
03118
F924
Ff-3C
02A6C
03084
03082
ff3A
F920 EE34 02A6e 03F1C
00259A 9244 F910
00259E 90DF E4AO
0025A2 4160 E4AO
0025Ab 4100 E458
02 A.58
035E8
035E8
035A.O
0025AA. 4110 F910
0025AE OAOO
02A58
002580 98EF 6004
00004
0025B4 4110
0025B8 4100
OO?5BC OAOI
0025BE 98DF
0025C2 4810
0025C6 4820
0025CA IB21
0025CC 4130
0025DO 5810
0025D4 9~16D
002508 4770
00250C 4111
OQ25EO 0200
0025E6
Deaa
F930
02A78
0001
00001
6000
F91E
EE7S
00000
7001
00001
flef)
03308
1000
02A66
03FCO
00000
F4AO
025F8
00001
3000 1000 00000 00000
300f) F.914 00000 03A5C
0001
0025E-C 96A0 3000
0025FO 4B20 EE66
0025F4 47FO F4BC
'JOO00
03FAE
02h04
0025F8 D200 3000 1000 00000 00000
0025FE oe00 3000 f91t. 00000 03t\5C
SVC
lM
B
flr
..........
LR
AR
ST
MVI
MV1
MVI
2431
2432
2433
243't
2436
00223400
00223500
00223600
00223100
00223800
00223900
6,ADR360
TPERR,Q
TPEOF,O
OVRFLO,O
CPR,O
8,RFTURN
BR
8
LOAD ADDRESS FOR START
GO DO START
THIS SECTION SIMULATES THE LOAD TAPE PUSHBUTTON ..
1.0,=X'OOOOOOOl'
LA
MVI
MOD,X'OO'
ST
BAL
8,FNDRIV
3,TMDCB
8,TSTOPEN
SAL
8,LOADMD
BAL
MVC
TPCCW,=A(LDTCCW)
MVI
TMIOB,X'44'
STM
13,15,MACREGSV
6,MACREGSV
13, SAVEA.R EA
TMIOB
LA
LA
EXCP
LA
1.TMTno.
.. ,
I ~"!.L L"W'
I nA
rJ
'--t
__
t..I
~H
OAOAMCTC.D
r """"'.M
J"fl-
I L"
DCr:
'''L.V
.1..
ISSUE SVC FOR EXCP
LM
14,15,4(6)
RES TORE REG 14 AND 15
1,ECB=TMECB
WAIT FOR 110
1,TMECB LOAD PARAMETER REG 1
0,1(0,0) LOAD PARAMETER REG a
1 LINK TO WA.IT ROUTINE
13,1~,O(6)
RESTORE MACRO REGISTERS
l,TMIOB+14
LOAD BYTE COUNT FROM CSW
2,=H'18000'
2,1
SR
3,SIMCOR+l
LA
L
eLI
BNE
LA
1,TAPEARE.A
O(1),X'60'
TPL02
1,1(1)
MVC
O(l,3},O(1)
lR
otl,3),TREI
0(3},X'40'
2,=H'1'
TPLD3
0(1,3).0(1)
O{I,3) ,TRE!
B
MVC
TAB
TAB
00224000
00224100
00224200
00224300
00224400
00224500
00224600
00224700
00224710
00224800
00224900
00225000
00225100
00225200
00225300
00225400
00225500
00225bOO
00225700
00225800
00225900
00226000
00226100
00226200
1
0
SVC
LM
lH
LH
TR
SAVE MACRO REGS
SAVE ADDRESS TO XR
GIVE OS OUR SAVE AREA
SVC
01
SH
TPlD2
~~
L
MVI
LA
2428
2429
2430
ISSUE WTOR SVC
13,15,0(6)
RESTORE MACRO REGISTERS
TESTAA
X'QO'
10/28/71
-".~
6 t 10
6,9
WAIT
LA
2422
2423
2424
2425
2426
2427 TOLDl
";;;
F150CT70
THIS SECTION WILL SIMULATE THE START-RESET PUSHBUTTON.
2415+
2416
2417
2418+
241.9+
2420+
2421
243~
STt~TE!'-lENl
63
00226300
00226400
0022.6500
00226600
00226100
00226800
OQ226900
00227000
00221100
00227200
00227300
00227400
00227500
00227600
00227100
00227800
00227900
00228000
PAGE
Oo.JECT CODE
lOC
002604 4111
002608 4}33
00260C 4620
002610 9440
002614 963F
002618 41C3
00261C 41AO
002620 4190
002624 9201
Ii, D)K 1
0001
0001
00001
00001
025D4
2437 TPLD3
LA
2438
~
9201 2000
4166 0001
4650 F4F2
47FO F2D8
002670 0206 EIAO F.532
002676 47FO F08C
00267A.
00001
00001
00000
or
2442
2443
2444
2445
0255C
03i8E
2446
2441
*
*
*
*
*
*
2453 SSIN
2454
2455
2456 SSINI
2457
2458
2459
2460
2461
24&2
2463
2464
00000
2466
00001
0263A
02420
032E8 0267A
2467
021D4
2468
2469
2478
2479
2480
0026RC E3D7F202
2481
002690
E3D7F303
2482
002694
002698
00269C
0026AO
E307F404
E3D1F505
2483
2484
2485
2486
E307F606
0026AC 00000000
002680 00000000
0026134 0000
24B7
2488
2489
2490
2491
.....l~
MVC
.. L.<"
... ~·v
SENSEA( 7), TSSA
WTORTN
7C
vee
'L...,.J
1"\."""""\.""1'''"''''''-
V\,'L .:l1..:lUV
00231400
00231500
DS
TEMPORARY SENSE SWITCHES
00231600
00231100
THIS SECTION WILL SET THE TAPE TABLE WITH THE 1401-360 EQUIVALANT 00231800
TAPE DRIVE NUMBERS RASEO UPON THE TAS OPERATOR COMMAND. THE
00231900
TAPE INSTRUCTION ROUTINES WILL SEARCH THIS TABLE TO DETERMINE
00232000
*
WHICH DRIVE TO USE.
00232100
OS
OF
00232200
TPTBL DC
XL4'E3D7FOOA'
00232300
DC
XL4'E3D7FIOI'
00232400
DC
XL4'E3D7FZOZ'
00232500
DC
XL4'E3D7F303'
00232600
DC
XL4'E307F404'
00232700
DC
XL4'E3D7F505'
00232800
DC
XL4'E3D1F60h'
00232900
DC
XL4 1 E3D7F707'
00233000
DC
XL4 t E3D7F808'
00233100
DC
XL4'E3D7F909'
00233200
SAVES
DC
F·O'
00233300
sr-v [DD
DC
F'O'
00233400
DOLEN
DC
H'O'
00233500
2471
2472 TSSA
2473
2476
('MOTIf':
B
2470 SSEND
24·77
E3D7F707
0026/\4 E3D7F808
0026A8 E3D7F909
00228400
*
2465
2471j
002688 !:3D1FIOl
00228300
00228500
LA
00228600
LA
00228700
LA
9,0
00228800
MVI
OKSTT,l
00228900
B
NxTOP
00229000
00229100
THIS SECTION SIMULATES THE SETTING OF SENSE SWITCHES BY SETTING 00229200
INDICATORS IN CORE BASED UPON THE SSS INPUT COMMAND. THE
00229300
ROUTINES THAT SIMULATE THE RSS INSTRUCTIONS WILL TEST THESE
00229400
INDICATORS.
00229500
00229600
6,RQSTIN+3
LA
REFERENCE FIRST SENSE SWITCH
00229700
TSSA(1),TSSA
XC
CLEAR TEMPORARY SENSE SWITCHES
00229800
LA
5,8
SET TO SCAN 8 SETTINGS MAX
00229900
0(6) ,0
Q/ DONE
ell
002.30000
BE
SSEND
YES, MOVE THEM
00230100
O(6),C'A'
ell
Q/ IS THIS SENSE SWITCH LEGAL
00230200
Bl
SNDILG
NO
00230300
O(6),C'G'
eLI
00230400
BH
SNDIlG
NO
00230500
4,0[6)
Ie
YES
00230600
\J
4,=F'7'
SET TEMPORARY SENSE SWITCH
00230700
2,T5SA-1
LA
00230800
2,4
AR
00230900
0(2),1
MVI
00231000
*
6,1(6)
LA
REFERENCE NEXT INPUT CHARACTER
00231100
5,SSINI
BCT
Q/ ARE THERE TOO MANY INPUT CHARACTERS 00231200
2474
002684
002684 E3D1FOOA
2,TPLDI
O(3),X'40 t
O(3),X'3FI
12,1(3)
lO,SIMCOR+l
00228100
2441
~,
002660
002664
002668
00266C
00228200
00000
0245F
00262C 4160 F317
002630 D706 F532 F532 0261A 0261A
00008
002636 4150 0008
00000
00263A 9500 6000
02610
00263E 4180 F528
002642 95Cl 6000
00000
002646 4740 F20e
02420
00264;\ 95C7 6000
00000
00264E 4720 F2Db
02420
00000
002652 43'-+6 0000
0026~6 !:~440 EE14
03F5C
00265A 4120 F531
0'2619
~,~
1,1(1)
3,1(3)
NI
2451
2452
..
10/28/71
2439
2449
2450
~-
F150CT70
2440
2448
00265E
lA24
-..
SOURCE STATEr..1ENT
(H)OOO
1001
0000
F414002628 47FO E076
STMT
LA
BCT
F48C
3000
3000
0001
ADD~2
64
*
*
*
*
R
PAGE
LOC
OBJECT CODE
,t\ DDR 1 fI.DDRZ
STMT
2492
2493
2494
00000
00040
0026B6 4120 7000
0026BA 4130 0040
0026BE
0026C4
0026C8
0026ec
D1F9 2000 2000 00000- aaooa
OOOFA
4·122 OOFA
4630 F576
9200 F414
0026DO 47FO Fe8e
026BE
0255C
02104
4150 F317
OZ45F
00000
9500 5000
4780
95FO
4740
4155
41FO
1825
4820
F5AR
026FO
00000
5000
FlO8
02420
0001
00001
02608
F590
0026FC
002700
002704
002708
00270C
002710
002716
00271C
EE14
03FBC
D501 7000 FEf:A 00000 03FD?
4170 F70P
02420
5S50 EE2C
03F74
491)0 EE68
03FRO
02420
4720 F20e
02717'
4250 F5CF
0213 F6C5 1;2C3 02800 0340B
0200 F6CD F317 02815 0245F
02CBO
4250 FB68
f'\/"\~'7,,)/,,\
1"'\"1/"\/'\
0026F6
VVl:.ILV
LJJ..VV
ccnc:
r :'..n...n-
COLO
F \,.J \]1;.)
A "'!!7,,)'"
Vl:.Jc..r
r\ '"),.. 0 r\
vc.. ...... uv
F270 E3CP F317 03510 0245F
03510
4940 EE8C
03FD4
02420
4720 F208
lA47
03518
9209 E3DO
D213 E3Dl E2C3 03519 034013
0263 E3E5 4000 03520 00000
DC63 E3E5 EA14 03520 03B5C
020A. E449 E2C3 03591 03408
90DF E4AO
835E8
4·160 E4AO
035E8
035AO
OO?75E 41DO E458
002762 D263 F660 F6D9 027A8 02821
002768 4110 F65C
027A4·
00276C OA23
00276E 98EF 6004
00004
002772 0263 F660 E3E~: 027AE 0352D
027A4
002718 4110 F65C
00277C. OA23
00004
00217E 98EF 6004
002782 0263 E3E5 4000 03520 00000
002726
00272C
002730
002134
002738
00273A
00273E
002744
00214A
002.750
002756
002.15A
4F40 E3CB
....
'r-
*"
*
*
*
*
DIS
2504
2505
2506
2501 DISI
2508
2509
2510
2511
2512
2513 DIS?
2514
2515
2516
2511
2518
2519
2520
2521
2522 01S3
2523
..., C'"),.
ST~,TEME!\,jT
F150CT70
THIS SECTIDN WILL CLEAK ALL
COMMAND CLR.
10/28111
1401 CGRE UPON ENTRY OF THE OPERATOR 00233600
00233700
00233800
*
2495 CLR
2.496
2497 CLRI
2498
2499
2500
2501
2502
2503
0026D4
0026D8
0026DC
0026EO
0026E4
0026E8
0026EC
0026FO
0026F2
SOURCE
65
LA
LA
2, S I ~·1COR
00233900
3,64
0(250,2),0(2)
2,250(2)
3,CLRI
OKSTT,O
WTORTN
BL
SNDILG
LA
5,1(5)
01"S1
2,5
2,=H'2'
0(2,2),=C'OO'
SNDI LG
5,=A(RQSTIN+4)
5,=H'4'
00234000
00234100
00234200
00234300
00234400
00234500
00234600
00234700
002.34800
00234900
00235000
00235100
00235200
00235300
00235400
00235500
00235600
00235700
00235800
00235900
00236000
00236100
00236200
SNDILG
00236300
5 t DIS3+l
DSMRKR+1(20),WM256
OSMRKR+9(O),RQSTIN+3
5,TEMPl
00236400
002.36500
00236600
00236100
XC
LA
BCT
MVI
B
THIS SECTION WILL DISPLAY ON THE PRINTER THE HUNDREDS GROUP
OF 14·01 CORE REFERFNCFD IN THE OPERATOR COMMAND DIS
.
LA
CLI
5,RQSTIN+3
O(S),X'OO'
BE
DIS2
CL I
0(5),C'0'
B
LR
SH
ClC
BNE
S
CH
BH
STC
MVC
MVC
STC
MOVE ADDR
FOR PRINTING
f'\r\'"),,::)LO/'\f'\
l:. _.Je..-r
n V
U\H..t
1"
I"'\T(,·'.-"--1"
LJ.L'>'"1'TJ..\,Ll,ILI'I'J..
v·vc...;;:;oovv
2'525 OIS4
PACK
CVB
CH
PAKT,RQSTI'\I+3(O)
4,PAKT
4,.=H'15900'
BH
SNDILG
4,7
PRNTBUFF,X'09'
00236900
00237000
00237100
00231200
00237300
00237400
00231500
00231600
00231100
00237800
00237900
00238000
00238100
00238200
00238300
00238400
00238500
00238600
00238700
00238800
002.38900
2526
2527
2528
2529
2530
AR
MVI
2531
2532
2533
MVC
MVC
2534
MVC
2535
2536
"2537
2538
2539
2540
2541
2542
STM
LA
LA
MVC
LA
SVC
LM
TR
MVC
2543
LA
2544
2545
SVC
2.546
MVC
lM
\
TrUf'll
ADO IN ADDRESS OF 1401
SET CA.RR IAGE CONTROL
PRNTBUFF+l(20),WM256
PRNTBUFF+21(lOO),O(4)
PRNTBUFF+21(lOO),TRIE
PRNTBUFF+121(11},WM256
13,15,MACREGSV
6,MACREGSV
13,SAVEAREA
SIMCORE
CHANGE PRINT AREA TO EBCDIC
*SAVE
*
LOAD
BASE REGISTERS
SAVE AREA
DISPMSG+4(100),OSMRKR+2l
1,DISPMSG
35
14,15,4(6)
DISPMSG+4CIOO),PRNTBUFF+21
1,DISPMSG
35
14,15,4(6)
PRNTBUFF+21(lOO},O(4)
CHANGE WORD MARKS TO EBCDIC IS
00239000
....
,
,._._ ..... __.
PAGE
LOC
OBJEC T CODE
ADDRl ADDR2
002788: DC63 E3E5 EC54 0352D
00218E 0263 F660 E3E5 027A8
002794· 4110 F65C
002798 OA23
00279A 980F 6000
OQ279E 47FO FORC
D027A2 0100
0027A4 0068
0027A6 0000
4040404040404040
002BOC
D02BOC 0940404040404040
002821 F04B4B4B4B4B4B4B
002854 4B4B4B4B4B4B4BF5
00288~ 4040404040404040
0309C
0352D
027A4
00000
021D4
STMT
F150CT70
lR
PRNTBUFF+21'100}~TRWDMK
MVC
OJSPMSG+4(IOO),PRNTBUFF+21
I,DISPMSG
2560
2561
024·5F
*
028AE
OOOlV)
02420
00001
02896
1856
5B50 EE?C
03F74
o6~~~4 4ij~o ~~~~
0028B8 4720 F2D8
03FSO
02420
02CBO
D028ac 4250 FB68
0028CO Dloa F77F FB68 ozeC7 02CQO
0028C6 F270 E3CR F317 03510 0245F
03510
0028CC 4F40 E3C8
03FDO
602800 4940 fE88
02420
002804 4120 F2DS
002808
00280A
lA41·
4166 0001
002aOE 9S00
002P-E2 47PO
0028E6 9200
0028E4 956D
0028EE 4770
0028F? 9240
0028F6 4166
0028FA DCOO
002QOO 0600
002906 4166
00290A 4144
0029()E 47F0
6000
2566 ALT
00001
2568
2569
2570
2571
B
wTORTN
CNOP
DC
DC
DC
0,4
lA
ell
6,RQSTIN+3
BE
CLI
AlT2
0(6),C'0'
0(6),C','
BL
SNOILG
LA
6,1(6)
B
ALTI
S
~;,=A(KQSTIN+4)
CH
5,=H'4'
2576
2571
2578
BH
STC
MVN
5,TEMPl
2579 ALT3
2580
2581
2582
2583
2584
PACK
CVB
2se6
2581
2588
2589
2590
1)28DE
THIS SECTION WILL MODIFY THE 1401 CORE LOCATION REFERENCED IN
THE OPERATOR COMMAND ALT.
2574
2575
F08C
2593
2594
2595
2596
2591
2598
2599
2600
CH
BH
AR
lA
eLI
BE
MVI
ell
2591
2592 ALT4A
*
*
*
*
MESSAGE LENGTH
C'0 ••••••• 09 •••••••• 19 •••••••• 29 •••••••• 39 •••••••• 49.'
C' ••••••• 59 •••••••• 69 •••••••• 79 •••••••• 89 •••••••• 99'
C'
LR
2585 AL 14
00000
DC
DC
AL?(ENDISP-*)
RESTORE MACRO REGISTERS
X'OOOO'
lOOX'40'
2572
2573 ALT2
00000
4000
6000
00000
02aF.A
F7B?
00000
4000
00001
0001
6000 tY14 00000 03A5C
4000 6000 00000 00000
00001
0001
00001
0001
F796
*
*
2567 ALII
00000
47FO F74E
35
13 t 15,0 ( 6 )
2557 ENDISP
EQU
2558 DSMRKR
DC
2559
DC
2564
2'565
F317
hOOO
f766
6000
F2D8
0001
LM
SVC
2556
2'562
00
4160
9568
4780
Q5FO
4140
4166
LA
2549
2550
2551
2552
2553
2554 DISPMSG
2555
2563 ;;.:
002891
002892
002896
00289.A
002R9E
0028A2
0028A6
0028AA
0028AE
002880
*
2547
2548
SNDI LG
AI
r"1&'"
T~+l
..
J-
•
.L
11
\ "_ TI::MOl
, ..L I
t L... ~·t' ,J,.
PAKT,RQSTIN+3(O}
4,PAKT
4,=H'15999'
SNOIlG
4,7
BUMP TO DATA
TAB
END OF DATA?
TAB
WTORT:\l
YES, GO GET NEXT COMMAND
TAB
0(4) ,0
0(6),C'_'
CLEAR 1401 CHAR
NO, CHECK FOR WORD MARK
NO WM, GO MOVE CHAR
TAB
TAB
6,1(6)
0(6),0
BNE
Al T4A
MVI
0(4},.X r 40'
L.A
6,1(6}
O(1,6),TREI
TR
DC
O( 1,.4) ,OC6}
lA
LA
6,1(6)
B
AlT4
4,1(4)
TAB
WM REO, SET WM IN 1401 CORE TAB
RUMP TO CHAR TO BE MOVED TAB
TRANS CHAR TO 1401 CODe
TAB
INSERT CHAR IN 1401 CORE TAB
BUMP TO NEXT CHAR IN REQ TAB
BUMP TO NEXT CHAR IN 1401 TAB
lCOP TO CHECK NEXT CHAR
TAB
THIS SECTION WILL WRITE A TAPE MARK ON THE TAPE DRIVE
SELECTED BY THE WTM COMMAND.
66
10/28/71
00239100
00239200
00239300
00239400
00239500
00239600
00239700
00239800
002.39900
0024·0000
00240100
00240200
00240300
00240400
00240500
00240600
00240700
00240800
00240900
00241000
00241100
00241200
00241300
00241400
00241500
00241600
00241100
00241800
00241900
00242000
00242100
00242200
00242300
00242400
00242500
00242600
00242700
00242710
00242800
00242900
00242910
00243000
00243100
00243200
00243300
00243310
00243320
00243330
00243340
00243350
00243400
00243500
00243600
00243700
PAGE
LOC
002912
002916
00291A
00291E
03JEC T CODE
ADDRl ADDR2
STMT
94CF
41AO
4580
5030
C245F
L.60l
2602.
F317
F314
FFDO
F924
0245C
03118
02A6C
03084
002922 4·580 FF3C
03082
002926 4580 FF3A
00292A 0203 F920 EE38 02A68 03F80
035E8
002930 90DF E4AO
035E8
002934 4160 E4AO
035AO
002938 41DO E458
OlASS
00293C 4110 F910
002940 OADO
002942 98EF 6004
002946
00294A
00294E
002950
002954
4110
4100
OAOI
98QF
47FO
F930
0001
6000
F08C
2608
2609
2610
STM
LA
LA
EXCP
LA
SVC
LM
WAIT
2614
OZA78
002964
002964
002968
002969
00296C
00296E
002912
002976
00297A
00297E
002982
002986
002988
00298C
002990
002994
002996
035E8
035[8
4510 FR24
80
0036F8
OA14
9aFF 6004
9110 E664
0296C
LA
2618+
LA
SVC
2619
2620
LM
B
2622
035AO
SAL
2611
2612+
2613+
*
*
*
*
037AC
2623
2624
2625 TERMINAl
2626
2627
2628
2629+
4110 E634
0377C
4100 E2lA
58FO 1030
05EF
5PDD 0004
03362
00030
2631+
2632+
DC
DC
1,*+8 BRANCH AROUND LIST
ALl(128) OPTION BYTE
Al3(PRNTDCB) DCB ADDRESS
20 ISSUE CLOSE SVC
LM
TM
Bl
PU~CHR+48,X'10t
2634
2636
2637
2638+
2639+
2640+
2642 EX IT
2643
98EC Dooe
ocooe
264A+
41FO 0000
07FE
00000
5800 EE3C
03F84
2645+
2646+
2647 DUMPCORE
2648
2649
2650
2651
0014AE
00299A 96FO D09F
0154D
02A26
00299E 4520 F8DE
0029t,2 D263 70C9 7000 000C9 00000
0029A8 D205 7136 EF8E 00136 03FD6
Q2A26
0029AE 4520 FEDE
002982 D264 10C9 7064 000C9 00064
002988 0208 1136 EEC7 00136 0400F
2652
l'653
2654
2655
svc
00244900
00245000
6,MACREGSV
PRNTOCB
14,15,4(6)
EXIT
TAB
TAB
IS PUNCH OPEN?
NO, GO EXIT
PUNCHR,PCHARAA
l,DUNCHR LOAD PARAMETER REG 1
O.PCHARAA LOAD PARAMETER REG 0
L
15,48(0,1) LOAD PUT ROUTINE ADDR.
BALR 14,15 LINK Te PUT ~OUTINE
L
13,4(13}
POINT TO SAVE AREA
RETURN (14,12),RC=0
RETURN WITH RC=O
LM
14,12,12(13) RESTORE THE REGISTERS
LA
15,0(0,0) LOAD RETURN CODE
L
00245100
00245200
00245300
00245400
00245500
00245600
00245700
00245800
00245900
00246000
0,4
PUT
LA
LA
BR
10/28/71
00243800
00243900
00244000
00244100
00244200
00244300
00244400
00244500
00244600
00244100
00244800
13,15,MACREGSV
13, S.AVEA RE A
2630+
2641+
00004
STM
LA
LA
ClOS!::
CNOP
BAL
2635
02988
4780 F840
GET DEVICE ADDRESS
lO,RQSTIN
*
8,FNDR.IV
*
3,TMDCB
8, TSTOPEN
8,lOADMD
TPCCW,=A(WTMCCW)
13,15,MACREGSV SAVE MACRO REGS
6,MACREGSV
SAVE ADDRESS TO XR
13,SAVEAREA
GIVE OS OUR SAVE AREA
TMIOB
l,TMIDB LOAD PARAMETER REG 1
o ISSUE SVC FOR EXCP
14,15,4(6)
RESTORE REG 14 AND 15
I,ECB=TMfCB
WAIT FOR I/O
ItTMECB LOAD PARAMETER REG 1
0,1(0,0) LOAD PARAMETER REG 0
1 LINK TO WAIT ROUTINE
13,15,0(6)
RESTORE MACRO REGISTERS
wTORTN
THIS ROUTINE WILL TERMINATE THE SIMULATOR UPON THE OPERATOR
ENTRY tTRM'.
2633,*
00004·
F150CT70
ReST IN+:;;;,X 'Of'
ST
BAL
BAL
MVC
2621
002958 90DF E4AO
00295C 4100 E458
062~60 4160 E4AO
NI
LA
2604
2605
2606
2607
2615
2616+
2611+
00000
021D4
wTMC~1D
2603
000Q4
00001
SOURCE STATEMENT
67
14 RETURN
13,=A(W}
USING W,13
OJ.
DUMPSW+l,X'FO'
SET DUMP SWITCH
DUMP 201 - 332
BAL
2,DUMP
MVC
MVC
201(lOO,1),O(7}
BAl
2, DUMP
MVC
MVC
201(101,1),100(7)
SIMCOR+310(9),=X'OIOAOA002000020AOl'
SlMCOR+310(6),=X'OAOO20000909'
0 - 99
DUMP 000 -
099
100 - 201
TAB
TAB
00246100
00246110
00246120
00246200
00246300
00246400
PAGE
LOC
OBJECT
CODE
A.DDR 1 ACDK2
4520
0029QE
0029C2
0029C8
OO?9CC
0029DO
47BO F8BA
0029D4
lAl7
FBDE
02A26
0201 F902 EE94 02A4A 03f-OC
02A4l\
4810 F902
4.9}() '=:C:96
03FDE
STr>'iT
SOURCE
STATEf'ljFI\~T
eAL
MVC
2658 DUMPLDOP LH
F150CT70
2656
2, DUr-iP
2657
DUf":PA DR, =H I
1,DUVlPADR
GET DUMP ADDRESS
CH
1,=H'16000'
BNL
AR
DU~'iPDONE
ARE WE AT END OF 1401 CORE?
YES, EXIT
0029D6 0263 70C9 1000 000C9 00000
00290C IB17
02A50
0029DE 4EIO F908
2662
2h63
MYC
0029E2 F347 7136 F908 00136 02A50
2665
IJ013A
96FO 713A
DC04 1136 E914 00136 03A5C
4111 0064
00064
02A4A
4010 F902
4520 F8DE
02A26
47FO F880
029C8
0154D
940F 009F
900F E4AO
035E8
4160 f4AO
035E8
4100 E458
035AO
2666
2667
0029E8
0029EC
0029f-7
0029F6
0029FA
0029FE
002A.02
002A06
002AOA
a02AOE
SR
CYO
UNPK
2664
or
TR
LA
2668
2669
2670
2671
2672 DUMPDONE
STH
2673
2674
STM
OOiAIA 45EO
002A1E
002A22
002A26
002AlA
002A2[
002A32
002A36
002A3A
036F8
00030
00008
00000
02104
Fooe
98DF 6000
47FO F08C
4190 0001
00001
41AO F8FE
02A46
4140 F8f2
02A3A
02A50
5020 F908
47FO 0000
O14AE
0783 70C9 10C9 000C9 OOOC9
02A50
002A40 5820 F908
002A44 07F?
002A46 42423C1B
002A4A 0000
2675
2677+
2678+
2679+
2680
2681
26E2 DUMP
2683
2684
2685
2686
2687 DUMPCLR
2688
2689
2690 DUMPOP
002A58 42
002A,)9 00000000
002A50 D02A78
002A60 00
OO?h61 00000000000000
002A68 00000000
002A6C 00000000
OOlA 70 00000000
002A74 0000
002A76 0000
002A78
002t\,7R 00000000
2701
w
024,}F
SAVE REGS
BRANCH TO WRITE ROUTINE
CLEAR 1401 PRINT AREA
L
£....,V'\,..l'I.'
?_f"IIIMOC::I\\I,,)
....,i.f'1.... L
LOAD RETURN REG 2
8R
2
X'4242 3C 78'
DS
DC
DC
DC
DC
DC
DC
H'O'
o
13
00
X'42'
4X'OO'
AL3(TMECB)
X'OO'
7X'OO'
XL4'OQ'
DC
DC
Xl4 too
4X'OO'
DC
2X'OO'
2X'OO'
OF
2706
DC
4X'OO'
2706
TURN OFF DUMP SWITCH
201(132,7),201(7)
DC
OS
2109
2710 RWDCMO
REMOVE SIGN
TRANS TO 1401 CODE
BUMP TO NEXT BAND
STORE ADDR OF NEXT BAND
XC
DC
TMDCB
*
•
*
SUBTRACT 1401 BASE ADDRESS
SIMCOR+310(5),OUMPSAV2
SIMCOR+314,X ' FO'
2702
2703
7704
2105 TMECB
2707
002A7C 940f F317
B
NI
B
2694 1"'110B
2695
2696
2697
2698
2699 T~CSW
2700 TPCCW
002A58
ADOR TO DECIMAL
1,DUMPADR
2,DUMP
DUMPLOOP
DUMPSW+l,XIOF'
13,15,MACREGSV
6,MACREGSV
DC
2691 DUMPADR
2692 DUMDSAV2 DS
2693
DROP
002A50
1,DUMPSAV2
LA
SAVE AOOR OF SAVE AREA
LA
13,SAVEAREA
GET ADDRESS OF SAVE AREA
TRUNe PR~TDCB
FORCE WRITE FOR LAST BLOCK
LA
1,PRNTDCR LOAD PARAMETER REG 1
15,48(0,1) LOAD ~EG 15 FROM DCB
L
14,8(0,15) LINK TO TRUNe ROUTINE
BAL
13,15,0(6)
RESTORE REGS
ll"\
B
wTORTN
EXIT
Lfl
9,1
LENGTH Of 1401 INST
LA
lO,DUMPOP
AODR OF 1401 OP CODE
LA
4,DUMPCLR
LOAD RETURN ADDRESS
ST
2,DUMPSAV2
SAVE LINK REG 2
2676
002A12 4110 F:5RO
002A16 58FO 1030
MOVE 100 POS TO PRINT AREA
1,100(1)
BAL
ADD 1401 BASE ADDRESS
1,7
201(100,.7},O(1)
1,7
SIMCOR+310(S),TREI
10/28/71
DUMP 100 - 201
SET UP LOCATION COUNTER
~;OO'
2659
2660
2661
02A02
68
THIS
~I
SECTIO~
I
ADORFSS OF CCW FOR TAPE OPERATION
DCB ADDRESS FOR TADE DRIVE SELECTED
WILL REWIND THE JAPE SELECTED BY THE RWO COMMAND
RQSTIN+3,X'OF'
GET DEVICE ADDRESS
00247500
OQ247600
00247700
00247800
00241900
00248_QQQ
00248100
00248200
00248300
00248400
00248500
00248600
00248700
00248800
00248900
00249000
00249100
PAGE
lOC
I
(
f
002A80
002A84
002AR8
002A.8C
OBJECT CDDE
ADDR! ADDR2
S Ti-1 T
F314
0245C
2711
LA
lO,RQSTIN
........
4580 FFDO
5030 F924
4580 FF3C
03118
02A6C
2712
2713
2714
SAL
8,FNDRIV
*
4IAO
a02A90 4580
002A94 D203
002A9A 9204
002.A9E 90DF
002AA2 4160
002AA6 41DO
03084
03082
F9?O E[40 02A68 03F88
FF3A
F910
02A58
SOURCE:
STATEMENT
ST
SAL
SAL
iv1VC
2715
2716
2717
MVI
E4AO
E4AO
035E8
035E8
2718
2719
STM
LA
E458
035AO
2720
2121
I
002.A.AA 4110 F910
002AAE OA,OO
02A58
a02ABO
00004
2122+
2723+
2124
98EF 6004
EXCP
LA
SVC
LM
WAIT
2125
002AB4 4110 F930
002AB8 4100 0001
a02ABC OAOI
00001
2726+
2727+
2728+
002ABE 98DF 6000
00000
t;..
002AC2 41FO F08C
021D4
2130
OZA'78
032F8
002AD2 18A5
002AD4 4190 0000
00000
OOlAD8 47FO E076
002AOC 900F E4AO
002AEO 4160 E4AO
002Af4 4·1DO E458
'12C2.8
031BE
035E8
035E8
03,)AO
002A.E8
002AER 4510 F9B6
002(1&C 0012
OO·ZA.EE 0000
02AFE
002AFO E4D5C4C5C6C905C5
002AFE
0021%FE
002AFE OA23
002BOO 98DF 6000
002B04 47fO FAl8
00000
02K60
035F.F
O()2~OC
002B08 90DF E4AO
4160 E41',O
n?t:::(:'Q
......,,- _""_." L- ·0...·
002BIO 41DO E458
035AO
002B14
002B14 4510 F9F4
002818 0013
OO?RIA 0000
002BIC C9D3D3C5C7CID340
002B?B
02BZC
SVC
...
~
LI"i
fL."?
2732
2733
2734
002AC6 4~80 r~,\EO
002J\CA 18CA
002ACC 1AC9
OO?ACE SOAO EIBO
LA
LA
'>7'")0
2731
A
L..M
*
*
*
*
2.735 SETBCH
2736
2737
2738
2'739
2759
2760+
2161+
2762+
2163+
2764+
2765+1H~OO63
3,TMDCB
8,TSTOP~N
8,LOADMD
TPCCW,=A(RWDCCW)
TMIOB,X·04'
13,15,MACREGS.V SAVE MACRO REGS
6,MACREGSV
SAVE ADDRESS TO XR
13, SAVEAREA
GIVE OS OUR SAVE AREA
TMIOB
1,TMIOB LOAD PARAMETER REG 1
0 ISSUE SVC FOR EXCP
14,1:',4(6)
RESTORE REG 14 AND 15
1,ECB=TMECB
WAIT FOR 110
1,TMECB LOAD PA,RAMETER REG 1
0,1(0,0) LOAD PARAMETER REG 0
1 LINK TO WAIT ROUTINE
13,15,0(6)
RESTORE MACRO
REGISTERS
WTORTN
BEFORE BRANCHING, SET THE B ADDRESS REGISTER TO THE ADDRESS OF
THE INSTRUCTION AFTER THE BRANCH, THEN SET THE INSTRUCTION
COUNTER TO THE BRANCH ADDRESS, AND BRANCH.
B
RAL
LR
AR
5T
LR
LA
2140
2741
B
2742 ILEGTAPE
2743
2744
2745
2746+
2747+
2748+
2149+
2750+
2151+IHBOO62
2752+IHBOO62A
2753+
2754
2755
21r;6 TLEGOP
2757
2758
F150CT70
STM
LA
LA
WTO
CNOP
BAL
DC
DC
DC
EQU
OS
SVC
LM
B
STM
LA
LA
WTO
CNOP
GAL
DC
DC
DC
EQU
8,CVAD43
12,10
CONVERT BRANCH ADDRESS
LOAD B ADDRESS
12,9
lO,LSTBCH
*S.AVE
69
10/28111
00249200
00249300
00249400
00249500
00249600
00249700
00249800
00249900
00250000
00250100
00250200
00250300
00250400
00250500
00250600
002~0100
00250800
00250900
00251000
00251100
00251200
00251300
LAST BRANCHED FROM LOCATION
LOAD BRANCH ADDRESS
00251400
00251500
*
00251600
*
*
00251900
10,5
9,0
NXTOP
GO TO BRANCH ADDRESS FOR NXT INSTR.
13,lS,MACREGSV
SAVE REGISTERS
6,MACREGSV
13,SAVEAREA
'UNDEFINED TAP[·
0,4
1,IHROO62A BRANCH AROUND MESSAGE
AL2(IHBOO62-*) ME SSAGE LENGTH
B'OOOOOOOOOOOOOOOOI MCSFLAGS FIELD
('UNDEFINED TAPE' MESSAGE
00251700
00251800
00252000
00252100
*
OH
35 ISSUE SVC
13,15,O(6)
PA.NEL
13,15,MACREGSV
6 ,fv1ACREGSV
S lWE
f>i\ACRO
REGS
SAVE ADDRESS TO XR
GIVE OS OUR SAVE AREA
13,SAVEAREA
'ILLEGAL OP CODEt
OT4
I,IHR0003~ ~RANCH AROUND MESSAGE
AL2{IHB0063-*J MESSAGE LENGTH
8'0000000000000000' MCSFLAGS FIELD
C f ILLEGAL OP CODE' MESSAGE
*
00252200
00252300
00252400
00252500
00252600
00252700
PAGE
LOC
002R2C
002B2C
002B2E
OD2B32
002836
002B3A
002B3E
002B42
002B44
OO?84B
002B4A
00284C
002B5A.
002B'5A
OeJECT CODE
ADDRI ADDR2
OA23
98DF 6000
47FO FAIt
90DF E4AO
4160 E4AO
4100 E458
00000
02B60
035E8
035E8
035AO
0700
4510 FAl2
0012
0000
C9D303C5C7CI0340
02B5A
002B5A OA23
002B5C
002860
002B62
002804
002868
98DF 6000
00000
STMT
SOURCE STATEi'1ENT
2166+IHB0063A
2767+
2768
2169
6
2770 ILEGLN
2771
2772
2773
2174+
2775+
2776+
2777+
2778+
2779+IHB0064
2780+IHB0064A
2.781+
2182
2783 PANEL
lalA
1817
4FI0 F3C8
DS
SVC
LM
SIt"!
LA
LA
WTO
CNOP
HAL
DC
DC
DC
EQU
E3CD 02RE7 03515
002P-6E D300 FAA4 EFDC 028EC 0401B
002B74 0200 FAAE AGOO 02BF6 00000
UNPK
MVZ
O?BF6
2786
2787
2788
2789
OlBF6 03Br;c
2190
TR
03510
02(04 0351 :'
07(09 04018
02eI5
02C16 02e15
OZBCO
2791
2197
2193
2794·
2195
2196
2191
2798
2799
03FAE
02885
2800
2801
OoiB1A
94BF FA~E
002B7E OCOO FAAE Et\14
002884 4E90 E3ce
OO?B8P F352 Ff;RC E3CD
002BBE D300 FAC 1 EFOO
002694 9280 FACD
002898 D20e FA,CE FACD
002B9E 4990 EE70
002BA2 4720 fA78
OO?BA6 1239
002BA8 4780 FA78
002BAC 4830 EEb6
002BBO 4,230 FA6D
002R84 0200 FACD AOOO
0026BA DC01 FACD EA14
002BCO D731 F314 F314
03FB8
078CO
1,IHB0064A BRANCH AROUND MESSAGE
Al2(THB0064-*) MESSAGE LENGTH
B'OOOOOOOOOOOOOOOO' MCSFLAGS FIELD
C'ILLEGAL LENGTH' MESSAGE
SR
evo
MVC
NI
CVD
RESTORE MACRO REGISTERS
PNlWTOR+48(6),PAKT+5(3)
MVZ
PNLWTOR+53'1),=C'O'
DNLWTOR+65,X'SO'
PNLWTOR+66Cl),PNlWTOR+65
9,=H'8'
WTORPNL
CH
BH
LTR
BZ
SH
STC
00254600
00254700
00254800
00254900
nn?&:;:t::;nnn
VVL.,.J.Jvvv
3,9
WTORPNl
3,=H'l'
3,PANFll+l
PNlWTOR+65(O),OtlO)
PNLWTOR+65(B),TRIF
RQSTIN,RQSTIN
ZERO OUT REPLY AREA
13,15,MACREGSV SAVE MACRO REG
6,MACREGSV
SAVE ADDRESS Te XR
13,SAVEAREA
GIVE as OUR SAVE AREA
t
I
OP
LENGTH
',RQSTIN,50,WTECB
02C15 00000
2802 PANEll
MVC
02C15 03B5C
0245C 0245C
2803
00211(6 90DF E4AO
D02BCA 4160 E4AO
035E8
2805
O~I)E8
2806
002BCE 4100 E458
035AO
2801
2808 PNlWTOR
TR
XC
STM
LA
LA
WTOR
2809+
eNDP
0,4
2810+PNl,WTCR
AAl
2811+
2812+
DC
DC
DC
DC
DC
DC
1,JHR0065A BRANCH AROUND lIST
ALl(50) REPLY LENGTH
Al3(RQSTINl REPLY ADDRESS
A(WTECB) EeB ADDRESS
AL2(IHB0066-*) MESSAGE LENGTH
B'OOOOOOOOOOOOOOOO' MCSFlAGS FIELD
002802 0700
002 R D4 4510 F t!lf..,
002BDB 32
0028D9 00245C
02Clf::
2804· WTORPNl
002BDC 0OOO231C
002BEO C03D
2813+
2814+
002&E2 0000
2815+
2B16+
002RF4
4
OCS4()tt040404 OttO
C'
+
I
• i~ESSAGE
002(1D
281 7+ IHB0066
002Clf
2818+IHBOO65A DS
EQU
00253400
00253500
00253600
00253700
00253800
00253900
00254·000
00254100
00254200
00254300
00254400
00254500
1,PAKT
PNLWTOR+19(6),PAKT+5(3)
PNLWTOR+24(1},=C'O'
PNLWTOR+34(1),O(lO)
DNLwTOR+34,X 1 B-F'
PNlWTOR+34(1),TRIE
9,PAKT
UNPK
MVI
MVC
00252800
00252900
00253000
00253100
00253200
00253300
0,4
1,10
1,7
2785
F352 FA9F
13~15,0(6)
RESTORE MACRO REGISTERS
PANEL
13,15,MACREGSV SAVE MACRO REGS
6,MACREGSV
SAVE ADDRESS TO XR
13,SAVEAREA
GIVE OS OUR SAVE AREA
'ILLEGAL LENGTH'
LM
03510
10/28/71
Oh
35 ISSUE SVC
*
OH
35 ISSUE SVC
13,15,0(6)
DS
SVC
LR
2784
F150CT10
70
*
OH
OP
L ENG TH
00255100
00255200
00255300
00255400
00255500.
002.55600
00255700
00255800
INST
INST
00255900
X00256000
00256100
x
PAGE
lOC
OBJFCf CODE
002el1: OA23
002C20 98DF 6000
002C24 47FO FOE2
ADORl ADDR2
STMT
2819+
svc
00000
0222A
2820
2871
UVl
B
SOURCE STATEMENT
35 ISSUE WTOR SVC
13,15,O(6}
RESTORE MACRO REGISTERS
TESTAA
F150CT70
71
10/28/71
00256200
00256300
ADDRESS CONVERSION SUBROUTINES
,
,
PAGE
72
..
Loe
ObJECT CODE
ADDRl IJ.oDR 2
(
sn·n
F150CT70
SOURCE STATE [·;ENT
2823 ........
2824
SuBROUTINE TO CONVERT A 1401 ADDRESS TO A 360 ADDRESS
2825
IXTMP,O
2826 CVAD43 MVI
5,7
2821
LR
LOAD SIMULATED CORE BASE INTO 5
3.0(6)
2828 CVAD4A Ie
1000'S + lOa'S
2829
N
3,=F'63'
2830
Sll
3,1
5,TBHNTH(3}
AH
2831
1r
3,2(6)
2832
v
4000·S + itS
2833
N
3,=F'63'
*'
2834
3,1
SLL
AH
5,TBT4UN(3)
2835
lotS
3,1(6)
2836
Ie
2831
N
3,=F ' 15'
2838
3,1
SLl
5,TBTENS(3)
AH
2839
Q/ INDEXING
TM
2840
l(6),X'30'
BE
CVt,04D
2841
NO, DONE
QI SECOND TIME THROUGH
IXTMP,l
2842
eLl
CV,o.D4D
YES, DONE
2843
BE
IXTMO,}
2844
MV 1
SET SECOND TIME INDICATOR
Q/ IX3
TI'1
2845
it 6 » , x • 30'
2846
aD
CVAD4C
IX3
2847
1(6),X'20'
TM
28 /+8
BO
CVAD4B
rX2
2849
LA
6,SIMCOR+87
IXl
2850
B
CVAD4A
2851 CVAD48 LA
6,SIMCOR+92
2852
B
CVA04A
21153 CVAD4C LA
6, SIMCOR+97
2854
B
CVAD4A
tCl1nr-.
5,SIMLIMIT
QI I S AnnRI=CC GREA TER TUII.f<.,
2855 CVAD4D
C
I rIAI'f
L:J777
NO, DONE
2856
12,8
BCR
2857
SH
YES, SUBTRACT 16000
5,='H'16000'
BR
8
2858
2859 ADR360 OS
F
2860 ADR140 DS
CL3
2861 IXTMP
DS
C
2862 TEMPI
CS
C
2863 TEMP2
DS
C
*
002C28
002C2C
002C2E
002C32
002C36
002C3A
002C3E
002C42
002C46
002C4A
002C4E
002C52
002C56
002C5A
002C5E
002C62
002C66
002C6A
002C6E
002C72
002C76
9200 FB61
*
02CA.F
1857
00000
4336 0000
5430
8930
4A53
4336
5430
8930
EDFO
03F38
0001
oaOOI
E6Fit
0002
0383C
00002
03F38
00001
EOFO
0001
4A53 E774
4336 0001
038BC
EDEO
0001
E1F4
6001
FB52
FB67
FB52
FB67
6001
03F28
5430
8930
4A53
9130
'+780
9501
4780
9201
9130
4710 FB4A
002e 7A 9120 6001
OQ2C7E 4710
002C82 4160
002C96 47FO
002C8A 4160
002C8E 47FO
002C92 4160
002C96 41FO
002C9A 5950
002C9E 07C8
002CAO 4550
002CA4 07Fa.
002CA8
002CAC
002CAF
002C80
00001
00001
0393C
00001
l1?rOA
vc....v.,.... l'""\
O?CAF
02C9.11
O?CAF
00001
02C92
O'JOOI
Ff:'42
02C81\
7057
FAE6
70Se
00057
02C2E
0OO5C
02C2E
FAE6
7061
FAE6
00061
02C2E
EISC
03304
EE96
03FDE
002eB 1
.I.
*
*
*
*
*
r,- ....... -.-.
2864
2865
002CB2 5850 FB60
002C86
002C88
002CBC
002CCO
002CC4
002CC6
002CC8
002CeC
002COO
002CD4
IR57
4140 noc(,>
5040 EE44
8950 0004
02el\8
00000
03F8C
00004
1815
1854
4140 0000
5040 fE 4 8
8950 0004
IB25
00000
03F90
00004
*
*
*
*
*
7866
2867 CVAD34
*
r ..
~-...1""'"
i,..
CONVERT A. 360 ADDRESS TO A 1401 ADDRESS
SUBROUTINE T'1
L
5~ADR360
SR
SUBTRACT SIMULAT ED CORE BASE
4000'S ZONE
SLL
LR
LR
5,7
4,0
4,.=F'4000'
5,4
1.5
5,4
28-(4
LA
4~O
2875
D
4,=--F'lOOO'
2876
2877
Sll
LR
5,4
2,.5
*
*
'*"
*
286B
2869
2870
2871
2872
2873
LA
D
*
*
*1000'S
ZONE
10128/71
00256500
00256600
00256700
00256800
00256900
00257000
00257100
00257200
00257300
00257400
00257500
00257600
00251700
00251800
00257900
00258000
00258100
00258200
00258300
00258400
00258500
00258600
002587QO
00258AOO
00258900
00259000
002591.00
00259200
00259300
00259400
00259500
00259600
00259700
00259800
00259900
00260000
00260100
00260200
00260300
00260400
00260500
00260600
00260700
00260800
00260900
00261000
00261100
00261200
00261300
00261400
00261500
00261600
00261700
00261800
00261900
ADDRESS CONVERSION S,URROUTINES
LDe
OBJECl
CODE
ADDRI ADDR2
002C06 1854
002eDS 4140 0000
00000
OOiCDC 5D40 EDF8
03F40
007CEO
002CE2
002CE6
002CES
002CEC
002CFO
002CF4
002CF6
002CFA
002CFE
002002
1651"
4250 FR64
1854
02CAC
4140 0000
5D40 EE4C
42~}O FR65
1641
4240 FB66
910F FB64
00000
03F94
02CAD
4750
960A
910F
4750
960A
910F
0758
960A
FBRE
FB64
02CAE
02CAC
02006
02CAe
FB65
F8CA
FB65
FB66
02eAD
002,018
FB66
002DIC 07F8
02CAE
002D06
0020DA
00200E
002012
002016
02CAE
2818
2879
2880
2381
2882
SOURCE S T I\T EI"\[NT
LR
LA
D
OR
STC
LR
LA
5; ,4
4,0
4,=F'lOO'
5,2
5,ADR140
2885
2886
0
2887
2888
OR
STC
5,4
4,0
4,=F'lO'
5,ADR140+1
4,1
4.ADR140+2
2889
TM
ADR140,X'OF'
2883
2884
2890
STC
Be
01
2892 CVAD3A TM
2893
BC
2894
01
2895 CVAD3B TM
2896
BCR
2897
01
2898
BR
2891
02012
O?CAD
STMT
PAGE
5~CVAD3A
AOR140,X'OA'
ADR140+1,X'OF'
?,CVAD3B
ADR140+1,X'OA'
ADR140+2,X'OF'
5,8
ADR140+2,X'OAt
8
F15QCT70
100'S NUMERIC
*"'"
*
'('
*la'S NUMERIC
*
*
*
*
* IS HUNDREDS
QI
ZERO
NO
YES t ADD 8-2 BITS
Q/ IS TENS ZERO
NO
YES, ADD 8-2 BITS
Ol IS UNITS ZERO
NO, RETURN
YES, ADD 8-2 BITS
RETURN
73
10/28/71
00262000
00262100
00262200
00262300
00262400
00262500
00262&00
00262700
00262800
00262900
00263000
00263100
00263200
00263300
00263400
00263500
00263600
00263100
00263800
00263900
00264000
ROUTI~~S
lOC
TO HELP UNIT RECORD OPERATIJNS
OBJECT ceDE
PAGE
ADDR 1 ADDR2
STr.rn
035Ee
035E8
2900 ItAL Tl"JTO
ST1'-1
2901
035AQ
2902
LA
LA
002DIE 90DF (4',0
002D22 4160 E4AO
002D26 4100 E458
SCURC EST AT Ei"lENT
2903 HLTwTO
002D2A 0100
002D2C 4510 FCOC
002030 0023
002032 0000
002D34 C8C1D3E34040C940
002D53
2904+
02D54
2906+
2907+
2908+
2909+IHB0067
002054 OA23
00000
98DF 6000
01F8
9501
EIB4
032FC
2911+
2912
2913
2914 READ
4170 FC54
02D9C
2915
900F E4AO
2916
4160 E4AO
035f8
035E8
002D6C 4100 E41)8
035AO
2918
2919
2920+
OoiD68
002D10
002D70 4510 FC4A
002D74 OOIE
002D76 0000
002078 D9C5CIC440E309C9
02D92
I,IHB0067A BRANCH AROUND MESSAGE
AL2(IHB0067-*) MESSAGE LENGTH
8'0000000000000000' MCSFLAGS FIELD
C'HALT I
, A
, B
' MESSAGE
EQU
*OH
002092
002092
002D94
002098
002D9C
OOlDA2
002DA8
OA23
98DF 6000
47FO FA18
DC4F fICA E914 03312
D44F 7001 f2C3 00001
D64F 7001 ElCA 00001
002DAE 41CO 7051
0020B2 90DF E4AO
SVC
8R
eLI
BNE
STM
LA
LA
WTO
CNOP
2921+
2922+
2923+
DC
DC
2.Y24+
DC
BAL
00000
02B60
B
PANEL
TMPARA( 80), TREI
2931
:)3312
00051
?o-:.t'?
2934
STM
0020B6 4160 E4AO
002DBA 41DO E458
035E8
035E8
035A.O
2935
LA
2936
2937
002DBE 4110 E694
0370(,
2938+
EICA
03312
58FO 1030
~OO30
2939+
2940+
LA
GET
LA
LA
4100
002004
002D08
0020DA
0020DE
0020E2
002DE4
002DE8
9630 7000
00000
00000
00000
98DF 6000
EIB4
01F8
4130 E5BO
4550 FF7A
L
2942
NI
01
00000
036F8
2947
2948
2949 WRITE
032FC
035E8
035E8
Eoe
I,
~TMrnD~tton\
-J ~
BALR
LM
2944
2945
2946
030C2
002DEC D283 E3Cl 70Ce:- 03519 000C9
002DF2 OC83 E3DI EA14 03:,19 03B5C
002DF8 900F E4AO
002DFC 416') f/-tA.O
2933
BR
00264900
00265000
00265100
00265200
00265300
kESTOKE MACRO REGISTERS
TAB 7111Q
CHANGE EBCDIC TO INTERNAL 1401 CODE
REMOVE CARD AREA INFO, KEEP WD MKS
SIMCOR+l(BO),WM256
DC
LA
L- "" ,J" ' -
2943
07F8
9201
TR
NC
2941+
05EF
98DF 6000
002000 9440 7000
READ2
00264600
00264700
00264800
*
OH
35 ISSUE SVC
13,1~,O(&)
03A5C
00264500
RESTORE MACRO REGISTERS
8
RETURN TO HALT ROUTINE
CRDEOF,X'OI'
HAVE WE READ LAST CARD
READ2
BRANCH IF NO
13,15,MACREGSV SAVE MACRO REGS
6,MACREGSV
SAVE ADDRESS TO XR
13,SAVEARfA
GIVE as OUR SAVE AREA
'READ TRIED AFTER LAST CARD'
0,4
1,IHS0068A BRANCH AROUND MESSAGE
ALZ(IHB0068-*) MESSAGE LENGTH
8'0000000000000000' MCSFLAGS FIELD
C'READ TRIED AFTER LAST CARD' MESSAGE
LM
03408
00264400
, B
35 ISSUE SVC
13,15,0(6)
2928
2929
2930
002DC7
0020C6
0020CA
0020ce
, A
'"lvU"''&' ' U V
T~~ADA
r-
F<~. " " ~I"""
00265900
00266000
SIMCOR,X'30'
002661.00
002662QO
00266300
*
BR
8
3,DRNTDCB
GET ADDR OF PRINT DCB
5,UROPEN
GO CHECK FOR OPEN
PRNTBUFF+l(13Z),SIMCOR+201
PRNTBUFF+l(132),TRIE
13,15,MACREGSV SAVE MACRO REG
6,MACQEGSV
SAVE ADDRESS TO XR
LA
~
13,15,MACREGSV SAVE MACRO REGS
6,MACREGSV
SAVE ADDRESS TO XR
13,SAVEAREA
GIVE OS OUR SAVE AREA
CARD,TMPARA
READ CARD
1,CARD LOAD PARAMETER REG 1
Q,TMPARA LOAD PARAMETER REG 0
15,48(0,1) LOAD GET ROUTINE ADOR.
14,15 LINK TO GET ROUTINE
13 y 15,O(&)
RESTORE MACRO REGISTERS
SI~COR,X'40'
SET BA BITS IN LOC 0 AfTER READ
LA
2954
00265700
12,SIMCOR+81
13,15,0(6)
CRDEOF,X'OI'
fvlV C
TR
STM
00265600
,.." " ........
00266400
00266500
-_.
".
00266600
00266700
00266800
00266900
00267000
00267100
00267110
00267120
00267200
00267300
00261400
__. . . .
8
BAL
00265400
00265500
VV£O:;lOUU
I r-I"- .""' .... "'"
LM
MVI
2950
2951
2952
2953
10/28111
002642.00
00264300
SAVE ADDRESS TO XR
GIVE OS OUR SAVE AREA
BAL
DC
DC
DC
2925+1HB0068 EQU
2926+IHB0068A OS
2927+
SVC
002092
13,SAVEAREA
'HALT I
SAVE BASE REGISTERS
0,4
LM
2917
13 t 1.5, M/\CREGSV
6,MACREGSV
WTO
CNOP
2910+IHB0067A OS
002D54
002D56
002D5A
00205e
002060
002064
2905+HLTWTO
F150CT70
74
RESTORE SIMULATOR REGISTERS
SET CARD EOF INDICATOR
TAB
TAB
TAb
,
ROUT 1'\fES TD
OBJFCT CODE
lOC
HflP Uf-.JIT KECDRJ OPERA, T ION S
002E04 4110 E5RO
002E08 4100 E3DO
OOlEoe 58FO 1030
002ElO 05EF
007El2 98DF 6000
002El6 9078 FE9C
OOlEIA 9180 E3DO
002E1E 4110 FD4·0
OO?El2 9501 1=300
STf'llT
SOURCE STATEMeNT
035AG
2.955
l Ii
PUT
036F8
03513
2956
2957+
2958+
2959+
A DDF{ 1 ADDR2
002EOO 4100 E458
00030
2960+
00000
02FE4
03518
02E88
03518
O()2E26
4780 FOF4
02F3C
002E2A
002E2C
002E30
002E34
002E38
002E3A
002E3C
002E40
002E44
002E48
002E4C
002E50
1777
4370 E3DO
03518
8870 0003
5880 FEOC
0610
1277
4740 FDFO
4188 0001
5980 FE08
4720 FD28
9500 8000
00003
02F54·
032fF
032FO
95Fq
eooo
4780 FD30
9550 8000
002E68 4780 F038
002E6C 47fO FCFO
002E70 5R80 EE20
"...
.. . ,.
",-~r-
vvc::cr ....
"tfrv
1"''''1'''\.
r-
002E18
002E7C
002E80
002E84
002E88
002f8C
002E90
002E94
9201
47FO
9201
47FO
95C9
ElA7
FCFO
E1AB
i"
1""0..1"\.
o2E -(8
03518
2985
v
L. 70 f
032FC
BE
ClI
BE
B
L
DGll
8,=AtCART.t\8 )
NO-LOOK FOR NEXT PUNCH
POINT TO FRONT OF TABLE
no
Q
,...., f' 1 ,_
2988 DG12
2989
2990 DG13
2991
2992 DG1
MVI
PRTP9,X'Ol'
B
DGll
MVI
PRTP12,X'Ol'
B
DGll
PRNT8UFF,X'C9t
ClI
BE
DG2
03F28
03F98
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
03F9C
3007
02F28
032EF
03518
00003
PRNT8UFF,X'CP'
ClI
PRNTBUFF,XtEl'
BE
DG3
ClI
PRNTBUFF,X'E3'
BE
MVI
MVI
XR
DG3
Ie
SRl
02ED2
3008
N
0
C
Bri
02EFD
3009
STC
YES
U\;l'l."'t
DG2
~-'
IS NO. OF SPACES LESS THAN ZERO
YES-CLEAN UP AND EXIT
NO PUNCH IN CARRIAGE TAPE
BLANK-KEEP TRYING
NOW BLANK
IS IT NINE PUNCH
YES
IS IT 12 PUNCH
~
$
SUBT ON FROM NO. OF SPACES
IS NO. OF SPACES lESS THAN ZERO
YES-Cl~AN UP AND EXIT
PRTP12,X'OO'
O(B),X t F9 1
DG12
O(S),X'50 t
OG13
ell
02F28
9200 FlAB
9200 F.IA7
1777
4370 £300
8870 0003
5470 EDEO
5670 EE50
5970 EE54
002EC6 4720 FORA
002ECA 4270 FDB5
Cl I
O(8),X'OO'
DGII
PRTP9,X'OO'
BE
02EEA,
03518
2986 DGIO
......... ...,
BE
MVI
MVI
8,DGEND
OGIO
2QQ~
03518
D02EAO 95E3 E3DO
002EA4 4780 FDEO
2984
02E80
02E38
03F68
02EEA.
002E9C 4780 FOEO
2981
2982
2983
Q2E38
002E98 95El E300
2978
2979
2980
032FO
03518
OO?EA8
002EAC
002ERO
002EB2
007EB6
002EBA
002EBE
002EC2
8,1(8)
BH
ClI
IS IT SKIP TO CHAN
YES
IS IT NO AUTO SPACE
R,DGCUR
7.,0
7,,7
DG4
02E38
E300
4780 FOAl
95CB E300
4780 FDtl2
IC
SRl
L
BeTf<.
LTR
LA
C
032EF
FCFO
XR
8M
r.,.,<-.,,..
L c: Cot\...
~
BE
2974
2915
2976
2977 DG14
00000
ruu ....
CL I
PRNTBUFF,X'80'
oGI
PRNTBUFF,X t 01'
DGEXIT
7.,7
7 t PRNTBUFF
1,3
2973
02E38
oooon
TM
BO
7,B,DGSAVE
00001
O?F50
00000
9200 fIAft
002E58
002E5C
002E60
002E64
2961
2962 COUNTER
2963
2964
2965
2966
2967
2968
2969
2970
2911 OGll
2972
lA
lA
l
BAlR
lM
STM
F150CT70
13,SAVEARE:t\
GIVE OS OUR SAVE AREA
PRNTDCB,PRNT8UFF
1,PRNTDCB LOAD PARAMETER REG 1
O,DRNTBUFF lOAD PARAMETFR REG 0
15,48(O,1} LOAD PUT ROUTINE ADDR.
14,15 lINK TO PUT ROUTINE
13,15,0(6}
RESTORE MACRO REGISTERS
02F38
02E70
47BO FCFO
002E54 9200 flA7
PAGE
PRTP12,X'OO'
PRTP9,X'OO'
7,7
1,PRNTSUFF
7,3
7,=F'15'
7,DG6+1
7,=F'240'
7,=F ' 249'
DG8
SET CHAN 9 SWITCH
SET CHAN 12 SWITCH
CHAN 9 AFTER
CHAN 9 IMMED
CHAN 12 AFTER
CHAN 12 IMMED
CLEAR 12
CLEAR 9
71;)
10/28/71
00267500
002.67600
00267700
00267800
00261900
00268000
00268100
00268200
00268300
00268400
00268500
00268600
00268700
00268800
00268900
00269000
002.69100
00269200
00269300
00269400
00269500
00269600
00269100
00269800
00269900
00270000
00270100
00210200
00270300
00270400
00210500
00210600
00210700
00210800
00270900
00271000
00271100
00271200
00271300
00211400
00211500
00271600
00211700
00271800
00271900
00272000
00272100
00272200
00272300
00272400
00272500
ROUTINES TO HELP UNIT RECORD OPERATIONS
Loe
OBJ~CT
CODE
ADDRI ADDR2
002ECE 47FO FDAF
002ED2 5970 fE-58
03FAO
OOlED6 4780 FD9A
02EE2
02EF6
G02EDA 9260 FD~5
002fDE 47FO FDAE
02EFD
002EE2 92FO FDB5
002EE6 47FO FDAE
002EEA 9201 EIA7
OOZFEE 9200 E:1A8
002EF2 92F9 FDB5
02EFD
02EF6
02EF6
032EF
3010
3011 DG8
3012
3013
3014
3015 DG9
3016
B
C
BE
MVI
B
MVI
B
037FO
02EFD
3019
MVI
MVI
MVI
F150CT7O
00272600
00272700
00272800
00272900
00273000
00273100
00273200
00273300
DG9
DG6+1,X"60 t
DG7
DG6+1,X'F-O'
OG7
PRT P9,X'Ol'
PR T P 12 , X I 00
DG6+1,X t F-9'
3020 DG7
XR
7.,7
8,DGCUR
O(8),X'FF'
02F38
3022 DG6
3023
L
CL I
BE
DG4
00001
3024
03FA4
02F50
3025
3026
3077
3028
02F20
02EFC
3029
BH
8,DGEND
OG5
3030
B
DG6
002F08 5970
002Foe 4720
002FIO 4188
002F14 5980
002F18 4770
EE5C
FEA4
02FEC
0001
00001
FE-De
FDDS
002FIC 47FO FDB4
002F2.0 58BO EE20
002F24 47FO FOB4
00000
LA
7,1(7)
BH
7, =F • 138
DGERROR
C
LA
C
CHAN 9 SIGNAL
8,.=ACCARTA8 )
B
DG6
032FO
032EF
3034
MVI
MVI
MVI
PRTP12,X'Olt
PRTPq,XtOO'
O?EFO
OlEFt:.
002F38 5080 FFOC
02F54
002F3C 987H FE9C
02FE4
002F40 9209 E3DO
03518
002F44 D700 E3Dl E3D1 03519 03519
002F4A 41CO 7140
0014D
002F4E 07F8
002F50 0OOO2F99
002F54 0OOO2F58
3035
303A
3037 OG4
3038 DGEXIT
3039
3040
3041
-"'1:r'\.J
LM
MVI
XC
LA
DG6+1,X''SO'
{")
A(CAkTAB)
DC
XL6'OOOOOOOOOOF1'
53X'OQ'
X'50'
3049
DC
18X'OO'
EQU
:o!::r-
3050 DGSAVE
3051 DGERROR
DC
2F'O'
51 M
13,15,MACREGSV
035E8
3052
3053
LA
LA
MVC
WTO
CNDP
SAL
6, ~iACREGSV
035AO
ENOCRTP
00275700
00215900
00276000
00276100
00216200
00276300
A(CARTAB+65)
DC
002FF.2
00275300
00275400
00215500
00215600
1"\/\,"}7C::O/\/\
VVL.,.JOvv
DC
DC
DC
00274300
00274400
00274500
002'74600
00274700
00274800
00274900
00275000
00215100
00275200
0
3044 DGCUR
3045 CARIAS
002F94 0000000000000000
00274200
DG7
8,DGCUR
7,8,DGSAVE
PRNT8UFf,X'09'
RESTORE SINGLf SPACE AFTER PR INT
PRNTBUFF+1,PRNTBUFF+l
12,SIMCOR+333
SET B ADDRESS REGISTER
3043 DGENO
3046
3047
3048
002F93 50
ST
BR
~
.:JV"+L
002F58 OOOOOOOOOOFI
002F'5E 0000000000000000
B
LOOK FOR CHAN
8,.1(8)
3032
3033 GG3
47FC' FDAE
00273500
00273600
00213100
00273800
00273900
00274000
00214100
I
L
3031
00273400
I
DG5
03F6R
02ErC
10/28/71
DG7
3021
FEOC
8000
FDFO
0001
16
7,=F t 250'
02F'J4
002EF6 1777
002F34
SOURCE STATE i~lENT
3017 DG2
3.018
002EF8 5880
002EFt 95FF
OOlFOO 4780
002F04 4177
002F28 9201 FlAR
002F2C 9200 EI A.7
002F30 9250 FDBS
STMT
PAGE
00216400
00276500
002FE2 0000
002FE4 0000000000000000
002FEC 90DF E4~\O
002FFO 4160 E4AO
002FF4· 41DO [458
035E8
002FFR D2r)O FEE'.' Ff)3c; 03n2D ()?EFO
3054
3055 DG20
0700
003000 4510 FEE6
3056+
002FFE
003004 002A
003006 0000
003008 E4D5C IC ?C3C ~)40E ~
00302E
00302E
00302E OA23
0302E
3057+0G20
3058+
3059+
)060+
3061+IHBOO73
DC
DC
DC
EQU
3062+1HBOO73A OS
3063+
sve
00276600
00276100
00216800
00276900
13,SAVEAREA
DG20+4,)(1),OG6+1
'UNABLE TO FIND C~.RRIAGE CONTROL CHAR
002-(1000
00217100
0,4
1,IHBOO13A BRANCH AROUND ME-SSAGE
AL2 ( IHROO73-*) ME SSAGE LENGTH
BlOOOOOOOOOOOOOOOO' ~:CSFLAGS FIELD
('UNABLE- TO rIND CA r;j<'l AGE CON TRGL ChAR
*
OH
35 ISSUE SVC
t
lVESSAGE
ROUTINES TO HELP UNIl RECORD OPERATIONS
lDC
003030
003034
003038
00303C
003040
003046
00304C
003050
003054
OBJECT CDDE:-
ADDRI ADDR2
STMT
SOURCE 51 t~TEM[NT
00000
3064
02958
3065
Ulj
B
0377C
3066 PUNCH
98DF 6000
47FO F810
4130 E634
4550
D24F
DC4F
900F
4160
4100
030C2
FF7A
E26B 7065 03383 00065
E26B EA14 033B3 03B5C
F4AC
035E8
E4AO
E458
035E8
003058 4110 Eb34
00305C 4100 E21A
003060 58FO 1030
0377C
03362
00030
035AO
003064 05EF
OQ3066 98DF 6000
OQ306A 41CO 70BS
00000
OOOR5
00306E 024F E218 E26B 03363 033B3
003074 9201 E2lA
03362
003078 9440 7064
00307C 960A 1064
003080 07F8
00064
00064
3030
0000
00301\8
0030AA
0030AE
0030B2
E458
onooa
L
BALR
LM
LA
MVC
3080
3081
3082
3083
MVI
\II
*
01
8
00278600
8
*
00278700
00278800
00278900
TM
48(3),X'10'
00279000
BO
0(8)
035E8
C35EB
035AO
3090
3092
13,15,MACREGSV
6,MACRfGSV
13,SAVEAREA
(3),INPUT)
00279100
00279200
00279300
00279400
00279500
030AO
3093
3094+
3095+
STM
LA
LA
OPEN
CNOP
BAL
3096+
DC
AtO) DDT
3097+
ST
3098+
MV I
3099+
3100
3101
lM
3,0(1,0) STORE INTO LIST
0(1),128 MOVE IN OPTION BYTE
19 ISSUE OPEN SVC
13,15,0(6)
TM
48(3),X'lO'
3102
RCR
3103
ABEND
1,8
1000,DUMP
3104+
3105+
OS
CNOP
3106+
3107+
31.08+
3109+
3110+
B
00000
00030
0303C
0030B8 80
003089 0003E8
OD30HC 5810 FF70
00218000
00278100
00278200
00278300
00278400
00278500
3089
00000
0030B4 lt7FO FF14
O':>OB8
0030CO OAOD
3091
3111
03~;F3
0030CC 4160 E4AO
0030DO 41DO ~458
035EE
035AO
~~
SVC
DC
DC
L
*
3112 UROPEN
00030
E 4/', 0
0030D4
A,MACREGSV
SAVE ADDRESS TO XR
13 t SAVEAREA
GIVE OS OUR SAVE AREA
PUNCHR,PCHARAA
1,PUNCHR LOAD PARAMETER REG 1
O.PCHARAA LOAD PARAMETER REG 0
15,48(0,11 LOAD PUT ROUTINE ADoR.
14,15 LINK TO PUT ROUTINE
13,1~,O(6)
RESTORE MACRO REGISTERS
12,SIMCOR+181
PCHARl,PCHARA
PCHARAA,X'Ol'
SIMCOR+I00,X'40'
SET 82 BITS IN LOC 100 AFTER PUNCH
SIMCOR+IOO,X'OA'
LA
LA
PUT
LA
LA
3012
3013
3014+
3075+
3016+
3077+
3078
3079
*
SAVE MACRO REGS
00000
003034
0030C R 90DF
13,15,MACREGSV
FOU
0030F:A
0030C2 9110 3030
0030C6 0115
MVC
TR
STM
GET ADDR OF PUNCH DCB
TAB
GO CHECK FOR ODEN
TAB
CONVRT 1401 PCH AREA FOR OUTPUT TAB
00277200
00277300
00277400
00277410
00277420
00277500
00277600
00277700
00277800
00277900
3087 TSTOPEN
3088
00030
E4AO
E4AO
4510 FF58
00000000
5031 0000
9280 1000
OA13
98DF 6000
9110 3030
0718
LA
RAl
10/28/71
BR
003098
003098
00309C
0030AO
0030A4
13,15 t O(6)
77
3086 LOADMD
07F8
9110
4718
90DF
4160
41DO
3067
3068
3069
3070
3071
F150CT70
TERMINAT
3,PUNCHR
5,UROPfN
PCHARA,SIMCOR+IOI
PCHARA,TRIE
BR
3084
3085 p, I NMOD
EQU
OQ3082
003082
003084
003084
003QSB
00308C
003090
003094
PAGE
SVC
0,4
1,*+8 LOAD REGI WlllST ADDR.
IS DCB OPEN NOW?
TAB
YES, RETURN TO CALLER
TAB
NO, DCB DID NOT OPEN, ABEND TAB
00219600
00279700
00279105
00219710
OH
0,4
*+8 BRANCH AROUND CONSTANT
ALl(128) DUMP/STEP CODE
AL3(lOOO) COMPLETION CODE
1,*-4 LOAD CODES INTO REG 1
13 LINK TO ABEND ROUTINE
48(3),X'lO'
3113
TM
BCR
3114
3115
3116
STM
LA
LA
3117
OPEN
( , 3) ,OU T PUT)
3118+
CNOP
0,4
1,5
13, l~ti~ACKEGSV
6,1'4 AC REG SV
13,SAVEAREA
IS THE DCB OPEN?
TAB
YES, EXIT
TAB
SAVE REGS FOR MACRO
TAB
SAVE ADDK OF SAVE AREA
TAB
GET ADDR OF NEW SAVE AREA TAB
OPEN U/R OUTPUT
TAB
00279715
00279720
00279725
00279730
0027973~
00279140
00279745
ROUTINES TO HELP UNIT RfCDRD OPERATIONS
LOC
OBJECT CDDE
003004 4510 FF94
003008 00000000
0030DC 5031 oono
00301:0 928F 1000
0030E4 OA13
0030E6 98DF 6000
0030EA 9110 3030
ADDR 1 AGDR2
3119+'
SAL
00000
3120+
3121+
DC
5T
MVI
00000
3122+
00000
SVC
19 ISSUE OPEN SVC
LM
TM
13,15,0(6}
48(3),X'10'
1,5
":l1,)C ....
030FB
0030F4 80
030F4
ABEND
..... ,..
J.1.c.u-'-
LJ.:"t
3129+
CNOP
3130+
3131+
3132+
3133+
3134+
B
DC
DC
l
svc
10/28/71
3,0(1,0) STORE INTO LIST
0(1),143 MOVE IN OPTION BYTE
3123+
BCR
F150CT70
78
1,*+8 UJAI) RFGl W/L 1 ST ADDR.
A(O) OPT BYTE AND DeB t~DDR •
3124
3125
3126
3121
00030
0030FO
0030F5 0OO3E9
0030F8 5810 FFAC
0030FC DAOO
SOURCE 51 ATt,'4Et,,'1
0300C.
0030EE 0715
0030FO
0030FO 47FO FFBO
S 11-1T
PAGE
lOOI,DUMP
OH
RELOAD BASE REGS
DID THE DCB OPEN OK?
YES., EXIT
NO, DCB NOT OPEN, ABEND
0,4
*+8 BRANCH AROUND CONSTANT
ALI(128) DUMP/STEP CODE
AL3(lOOl) COMPLETION CODE
1,*-4 LOAD CODES INTO REG 1
13 LINK TO ABE-NO ROUTINE
TAB
TAB
OQ279750
00279755
TAB
00279160
TAB
00279765
ROUTINES TO HELP TAP[ OPERATIONS
LOC
C5JECT ceDE
AGDR} ADDR2
STMT
PAGE
SOURC r' 5T AT E:t"~EN T
F150CI10
0030fE 186C
3136 FNDLNG LR
6.,12
003100 DDFF 6000 EB54 00000 03C9C
003106 4760 FFCA
03112
0031CA 4166 0100
C0100
3137 FNDLGA TRT
0(256,,6}, TRGPWr'i
SCAN FOR GP MK - WD MK
FOUND
00310E
003112
003114
003116
003118
00311C
003120
003126
00312A
00312E
003132
003136
00313A
00313C
00313E
003142
BC
6,FNDLGR
LA
6,25A{h)
6,1
CALCULATE LENGTH
6,12
8
*
1861
IB6C
3142
B
LR.
SR
07FB
3143
BR
4130 OOOA
OOOOA
4140 F53C
02684
0500 A003 4003 00003 00003
3144 FNDRIV LA
3145
LA
4,TDTBL
3146 FNDRVI
CLC
3141
BE
FNORV2
FFBB
03100
4780 FFEF
4144 0004
03136
00004
03120
4630 FFD8
47FO F994
4160 oaOA
1B63
3148
3149
3.10
3(1,10),3(4)
4,4(4}
3,FNDRVI
OlADe
31')0
B
ILEGTt\PE
OOOOA
3151 FNDRV2
LA
6,10
3152
SR
3153
LR
6,3
3,6
3,3
1836
B930 0003
00003
3154
5A30 [E60
03FAb
315?
3156
3157
3,158
3159
3160
003146 5833 0004
00314A 9200 F930
00314E 943F 3000
FNDLGA
LA
BCT
00004
C2A7f
00000
003152 9242 1=910
003156 07FP
003158 D206 E4E9 F919 03631 OZA61
00315E 957F F930
02A78
SLL
A
?;, =,A (
TAP ADR. )
L
3,4(3}
MVI
NI
MVI
TMECB,O
BR
O(3),X'3Ft
TMI08,.X'42'
TAPE NOT DEFINED, SEND ERROR MESSAGE
MULTIPLY LOGICAL DRIVE NUMBER BY 8
AOD BASE Of TAPE ADDRESS TABLE
GET ACTUAL TAPE ADDRESS FROM TABLE
CLEAR EeB BEFORE EXCP
CLEAR DCB EXCEPTION BITS
SET lOB CMD CHAIN + UNRELATED RITS
R
3161 TPTEST
MVC
SAVCSW+1(7},TPCSW
3167
CL I
0316A
3163
00316E 4780 E03E
00'31.72 4840 E.E98
03186
3164
3165 TPTI03
3166
3167
BE
MV!
EQU
TMECR,X'7Ft
TPTI03
003176 4040 E4EE
03636
03308
003162 4780 E022
00316& 9201 E1A9
032Fl
00316A
00316A 9101 E4EC
03634
00317E
003182
003186
003I8A
0031&E
003190
920F 4000
9201 EIAA
003194
07F8
00000
9200 EIA9
032F2
032F 1
9102 E4EC
03634
0788
9201 EIA9
032F 1
003196 90EF E4AO
00319A 4160 E4AO
00319E 4100 E458
0031A4
0031A8
0031AC
003160
0031B4
0031Bf
4510 E064
OOOOCOOO
5041 0000
9280 1000
OA14
9fFf 6000
0031BA 47FO E076
L
4"SAVCSW+6
4,TAPEAREA
PUT TAPE MARK CHARACTER IN TAPE AREA
3171
3172
MVI
MVI
O(4),X'OFt
TPEOF,1
*
031AC
3181
3182+
3183+
0031A2 0700
00000
00000
OOOOC
031PE
VVL...V""",4VU
STH
3184+
3185+
3186+
3187+
3188
3189
TPERR,O
SAVCSW+4,2
8,8
Q/ TAPE ERROR
TPERR,l
£3
14,15,MA.CREGSV
SAVE BASE REGISTERS
6,MACREGSV
13,SAVEAREA
**
J
CLOSE THE: DCB
CLOS~
( ( 4 )
CNOP
0,4
BAl
1,*+8 ARANCH AROUND LIST
AtO) OPTION AND DCB ADDRESS
4,0(1,0) STORE DCB ADDRESS
O(1),12b ~OVE I~ [PTIeN BYTE
20 ISSUE CLOSE SVC
DC
ST
lv1 V I
SVC
Li"1
B
14,I5,O( 6)
NXTOP
00280000
00280100
00280200
00280300
00280400
00280500
00280600
00280700
00280800
00280900
00281000
00281100
00281200
00281300
002.81400
00281500
00281600
00281700
00281800
00281900
00282000
00282100
00282200
00282300
00282400
00282500
00282600
00282100
00282800
00282900
00283000
nn"Js:!-:tlnn
4,=H'17999'
3170
035AO
035E8
Q/ EOF
3169
3113 TPTIOI r"VI
TM
3174
BCR
3175
3176 TPTID2
MVI
3171
fiR
3178 RWUCLOSE STM
3179
LA
3180
LA
035£8
SAVE CSW AFTER TAPE OPERATION
TPERR y l
SAVCSW+4,1
TPTI01
LH
03FEO
00317A 5840 ElCO
TM
BZ
10/28/11
00279900
3138
3139
3140
314·1 FNDLGB
47FO
79
00283200
00283300
00283400
00283500
00283600
00283100
00283800
00283900
00284000
00284100
00284200
00284300
00284400
00284500
00284600
ROUTINE TO BRANCH TO NEXT COCODE PROCESSING ROUTINE
OBJECT CODE
0031BE
0031CO
0031C4
0031C8
0031CC
0031D7.
003104
003106
00310A
00310E
0031E2
0031E6
0031EB
0031EC
0031FO
0031F4
0031F8
0031FC
003200
IAA9
9140 AOOO
00000
4780 F9CO
02808
411A OOFA
OOOFA
DDF9 ADOl EB14 COOOl 0395C
1891
lR9A
AR
TM
BZ
LA.
3198
3199
3200
TRT
lR
3201
SR
00000
3202
Ie
03F38
3203
N
00002
031E8
3204
3205
3206
SlL
EOAO
58D2
07FD
00002B08
0000142A
000014AE
00001566
000031RE
OOOO?B08
0000 1 RAC
00001800
00002R08
003220 00002B08
003224 00002808
003228 00002508
00322C 0000099E
003230 00000000
003234 00002B08
003738 00001.144
0000064C
000020F6
000031B~
OOOOOEFE
10,9
O{lO),X'40'
GET NEW OP CODE LOCATION
QI IS THERE A wORD MARK
ILEGOP
NO
1,250{lO)
I ( 250, 10) , TR TB
9,1
9,10
2,0(10)
2,=F'63'
2,2
13,BCHTBL(2)
13
GET OP CODE
ELIMINATE WORD MARK
MULTIPLY BY 4
LOAD BASE OF PROCESSING ROUTINE
BRANCH TO OPCODE PROCESSING ROUTINE
A(ILEGOP)
o
A (R )
A(W)
1.
2"
3
A(WR)
A(P)
1
2
3
4
5
3212
DC
A(RP)
4
5
3213
A(WP)
6
6
3214
3215
3216
3217
DC
DC
DC
DC
DC
A(wRO)
A(NXTOP)
7
1
8
9
12
o
3218
DC
A(NXTOP)
A( ILEGOP)
A(MA)
10
11
3219
3220
32.21
3222
3223
3224
3225
3226
3227
3228
3229
3230
DC
A(M)
13
14
@
DC
A(ILEGOP)
A{ILEGOP}
A(ILEGOP)
3231
3232
00002808
3233
oaOOOt-,OE
3234
0000196C
3235
00002 P 0e
323f.,
3237
00002B08
003264 00002808
003268 00002QOa
00326C 00002808
003270 OOOOl~FE
003214 OOOOOF42
003278 OOOOOAD2
003l7C 000031RE
003280 00002808
L
BR
3207 BCHT9L DC
3208
DC
3209
DC
3210
DC
3211
DC
OOOOODB8
3238
3239
3240
3241
3242
3243
3244
3245
10/28/71
00284800
3196
3197
F150CT70
80
THIS SECTION EXAMINES THE NEXT OPERATION CODE AND9 BASED UPON ITt 00284900
BRA'CHES TO THE PROPER ROUTINE TO PROCESS THE INSTRUCTION.
00285000
432A 0000
5420 FDFO
8920 0002
00320e 000031BE
00323C
003240
003244
0032.48
00324C
003250
003254
003258
00325C
003260
*
*
*
*
3195 NXTOP
00001458
0000147C
00001598
003204 0000 15C4.
00320C
003210
003214
003218
00321C
SOURCE STATEivlENT
S1:"'11
3191
3192
3·193
3194
PAGE
DC
DC
DC
I'd I LEGOP}
DC
A(CS)
DC
A(A)
DC
A(llEGOP}
DC
A(CU)
td BWZ)
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
A(BBE)
A(NXTOP)
A(MZ)
ACMCS)
A{ILEGOP)
A(SW)
ACO}
A(IlF-GC'P)
A(ILEGOP)
A(IlEGOP)
A(ILEGOP)
A(IlEGOP}
00286700
17
20
TP MK
00286800
00286900
00281000
00281100
00287200
00281300
00287400
00287500
00287600
00287700
00287800
00281900
A BIT
""..,oc"nn
vvc..uovvv
21
22
23
/
00288100
00288200
00288300
00288.400
00288500
00288600
00288100
00288800
00288900
00289000
002891.00
00289200
15
16
24
25
26
27
30
31
s
T
u
v
w
x
y
z
32
33
34
35
36
37
40 -
t
%
we
A(SS)
41 J
42 K
A(lCA)
ACMCw)
43
44
A(NXTOP)
I LEGOP}
45
L
M
N
46
0
1;(
00285100
00285200
00285300
00285400
00285500
00285600
00285100
00285800
00285900
00286000
00286100
00286200
00286300
00286400
00286500
00286600
SfP
00289300
00289400
00289500
00289600
00289100
00289800
00289900
00290000
00290100
00290200
ROUTINF: TO BRt\NCH T"\.., NEXT ClPCODE PROCESSING ROUTINE
PAGE
.
LOC
OBJECT
r
("Ii"! c:
..... vl..; '-
ADDR1 ADDR2
STMT
003284 OOOOlD~A
003288 OOOOICOC
3241
00328C 00002608
003290 0OOOO35A
3249
003294
003298
00329C
0032AO
0032A4
0032A8
0032AC
3246
324f
0OOO2B08
3250
00002808
3251
3252
3253
SOURCE STATE MENT
DC
DC
DC
DC
DC
F150CT70
47
A(SAk)
50
R
51
52 -0
53 $
54
00290300
00290400
00290500
00290600
00290700
00290800
55
00290900
A(ILEGOP)
A(ZS)
A(ILEGOP}
A(ILEGOP)
A(ILEGOP)
A( ILEGOP)
A(ILEGOP)
A(ILEGOD)
00002B08
3260
3261
3262
aOOOIDOC
3263
00OO2B08
000002C4
00000896
003208 OOOOOA76
0032DC 00002.B08
0032EO 00002808
0032E4 0OOO2A08
3264
326S
3266
DC
ACeC)
A(ILEGOP)
A(SBR)
A(ILEGOP)
AtZA)
DC
A(H)
13
DC
DC
A(CW)
A(ILEGDP}
A(ILEGGP)
AtIlFGOP)
74
75
76
()032BO OOOb03F6
0032B4 00006154
003288 OOOOOER6
b032RC OOOOIOEC
0032CO
0032C4
0032C8
0032CC
003200
0032D4
OOOO165A
3254
3255
3256
3257
3258
3259
3261
326E
3269
3710
DC
DC
p
10/28/71
A (MeM)
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
0OO02B08
00002808
00002808
00002BOB
00000000
,.
81
A(A)
A (B )
A(C)
A(MN)
A(r-.1CE)
*
56
57
60 +
61
A
62
B
63 C
64 D
65 E
66 F
67 G
70 H
71
I
12 +0
77
00291000
00291100
00291200
00291300
00291400
00291500
00291600
00291700
00291800
00291900
00292000
00292100
00292200
00292300
00292400
00292500
00292600
00292700
PAGE
LOC
OBJECT CODE
ADDkl ADOR?
0032E2- 00
0032E9 00
0032EA 00
0032EB 00
0032EC 00
0032EO 00
0032EE 00
0032EF 00
0032FO 00
0032Fl 00
0032F2 00
0032F3 00
0032F4 00
0032F5
0032F8
0032FC 00
0032FD 00
0032FE 00
003300
003304 00000000
003308 00000000
00330C 00
003300 00
STMT
\./-r' '...
SENSED DC
X'O'
SENSEE DC
SENSEF DC
X'O'
X'O'
X'O'
X'O'
X'D'
SENSEG
3279 PRTP9
3280 PR TP12
DC
DC
DC
3281 TPERR
DC
3282 TPEOF DC
3283 OVRFlO DC
3284 CPR
DC
3285 DCHAR OS
3286 lSTBCH DS
X'O'
X'D'
X'O'
X'OO'
3289
3290
3291
3292
3293
3294
3297
3298
DC
OS
SAYS
SIMllMIT DC
TAPEAREA DC
SUPRES DC
RQSTND DC
BCOTAP DS
PCHERR DC
RORERR DC
PRTERR DC
DS
DC
DC
OS
DC
3301 PCHARI
3302 PCHARA
3303 JOBNAME
'2 '2n /.
J.Jv-r
I-t tv! ') c:: J;
n P L ........'
!>r
VI...
TO HOLD ADDRESS OF LAST BRANCH
CARD END-OF-FILE INDICATOR
X' O(H
AEND
3299 TMPARA
3300 PCHARAA
RESET WHEN TESTED
RESET WHEN TESTED
C
F
3287 CRDEOF DC
3288 POSl
DC
32'16
003310 00
003311 00
003312
003362 01
003363 4040404040404040
0033B3
003403 4040404040404040
f\i\-:lJ. no
J. n,. ("\ I. "J. n I. "J. n /. " I . (\
-r\..J -..
l ...·T\.l-,-V ..,......._J.,. \.. .:..,.. \../
vV-J"TVU
003510
003518
003518 09
003519 4040404040404040
0035AO
0035E8
003630
X'O'
X'O'
3274 SEN SEC DC
3275
3276
3277
3278
F150CT70
x·o t
32-'2 SENSEA DC
3273 SENSEB DC
3295
00330E
00330F 00
SOURCE STATEMENT
X'O'
X'O'
F
FtO'
UPPER LIMIT OF SIMULATED COR~
ADDRESS OF TAPE 110 RUFFER
ZERO SUPPRESSION INDICATOR
INDICATOR FOR OPERATOR REQUESTS
INDICATOR FOR BCD TAPE MODE
PUNCH ERROR INDICATOR
CARD READ ERROR INDICATOR
PRINTER ERROR INDICATOR
FlO'
X'OO'
X'QO'
C
X'OO'
X·OO'
XtOO'
CLBO
X'a}'
ClBO'
CL80
CLB'
NORMAL STACKER SELECT
,
PUNCH OUTPUT AREA
,
"lC:L.VI'.rt
"'1'"\.-' .
L . .... VI\
3305 PAKT
OS
D
3306
DS
OF
3307 PRNTBUFF DC
Xt 09'
DC
3308
CL132'
3309 SAVE AREA DS 18F
3310 MACREGSV OS
18F
3311 SAVCSW DS
D
I
82
10/28/71
00292900
00293000
00293100
00293200
00293300
00293400
00293500
00293600
00293100
00293800
00293900
00294000
00294100
00294200
00294300
00294400
00294500
00294600
00294700
00294800
00294900
00295000
00295100
00295200
00295300
002954·00
00295500
00295600
00295700
00295800
00295900
00296000
00296100
00296200
00296300
00296400
00296500
00296600
00296100
00296800
CHANNEL COMMAND WORDS
lOC
OBJECT CClOE
ADDRI AODR2
PAGE
STMT
003638 0300000160000001
003640 0100000020000000
003-64-S 0300000060000001
003650 0200000020004650
003658 0300000060000001
003660 0200000020004650
003668 IF00000020000001
003670 0100000020000001
003678
3313
3314
3315
3316
3317
3318
3319
003680
003680 02
003681 00000000
003685 0036AO
003688 0000000000000000
003690 OOOOl7FO
003694 00000000
003698 0000000000000000
0036AO 00000000
3322
3323
3324
0OOOOOOOOOOO401C
00000('0000004050
0000000000004084
000OOOOOOOOO40B8
0OOOOOOOOOOO40EC
0000000000004120
0000000000004154
0000000000004188
0036E4 00OOOOOOOOOO41BC
0036EC 0000000000004·1 FO
0036A4
0036AC
0036B4
0036BC
0036C4
0036CC
0036D4
0036DC
3320
3321
3325
3326
3327
3328
3329
3330
3331
3332
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
"7:l f.
0036A5 E3D7FO
0036AD
0036AD E307F1
3346
3347
3348
3349
3350
003685
0036B5
0036BD
003680
0036C5
0036C5
0036CD
0036CO
003605
003605
~
JJ"T..JI
E3D7F2
3351
E3D7F3
E3D7F4
3352
3353
3354
33~5
E3D7F5
E3D7F6
0036DD
0036DO E3D7F7
3356
3351
3358
3359
0036ED
0036EO E:3C'lF9
3360
3361
3362
3363
3364
0036F6
336~,
0036E5
0036E5 E3D7F8
WTCCW1 CCW
WTCCW2
CCW
lDTCCW
CCW
lDTCCWI CCW
RTCCW
CCW
3366
F150CT70
10/28/71
00297000
00297100
00297200
00297300
READ TAPE
00297400
RTCCWI
CCIN
2,O,X'20',18000
00297500
WTMCCW
CCW
WRITE TAPE f..1ARK
X'lF',O,X'ZO',1
00297600
RWDCCW
CCW
X'01',O,X I 20',l
REwIND
00297700
RETURN
DS
F
00291800
CUI~g
OS
00
00297-900
DC
00298000
X'02'
4X' 00 t
DC
00298100
AL3(CUECB)
DC
00298200
DC
8X'OO'
00298300
AL4(CUCCW)
DC
ADDR OF CCW CHAIN FOR CU OPS TAB 00298400
FlO'
CUDCB
DC
00298500
DC
00298600
ax'oo'
DC
CUECB
F'O'
00298700
00298800
THIS TABLE EQUATES A 360 TAPb DRIVE TO A 1401 TAPE DRIVE AS A
00298900
RE~UlT OF A TAS ENTRY.
00299000
00299100
TAPADR
A(O,TAPEDCBO)
DC
00299200
ACO,TAP[OCBl)
DC
00299300
ACO,TAPEDCB2)
DC
00299400
,l\( 0 , TAP EDC B3 )
DC
00299500
A(O,TAPEDCB4)
DC
00299600
A(O,TADEDCB5)
DC
00299700
A(O,lAPEDCB61
DC
00299800
A(O,TAPEDCB7)
DC
00299900
A(O,TAPEDCB8}
DC
00300000
A(O,TAPEDCB9)
DC
00300100
nor
TAPf~DR+l
Ut'D
00300200
DC
CL3'TPO'
00300300
TAPADR+9
ORG
00300400
DC
CL3'TPl'
00300500
lAPADR+17
ORG
00300600
DC
CL3'TP2 t
00300700
TAPAOR+25
ORG
00300800
DC
Cl3'TP3'
00300900
TAPADR+33
ORG
00301000
DC
CL3'TP4'
00301100
ORG
TAPADR+41
00301200
DC
CL3'TP5'
00301300
TADADR+4·9
ORG
00301400
DC
CL3'TP6'
00301500
ORG
TAPADR+57
00301600
DC
CL3'TP7'
00301700
TAPADR+6?
ORG
00301800
DC
Cl3'TP8'
00301900
eRG
TAPADR+73
00302000
DC
CL3 1 1P9 1
00302100
eRG
TAPADR+82
00302200
PRN1DCB DCB
MACRF=PM.DSORG=PS,JDNAME=WRITE,lRECL=133~RECFM=FBM,
C00302300
EXlST=MURlIST
00302305
*
*
3333" *
3334 *
Af\-:lL It_h
VV';'JVM.-I
SOURCE STATEMENT
83
X'03' ,l,X t 60', 1
1,O,.x'20' ,0
X'03 f ,O,X'60',.1
?,Q,X'20',18000
X'03',O,X'60',1
CHANNEL COMMAND WORDS
Lee
OBJECT CODE
ADDRI ADDR2
PAGE
STMT
SOUR C EST ATE!Vi EN T
F150CT70
84
10/28/71
DATA CONTRUL BLOCK
3368+*
3369+*
0036F6 0000
3370+PRNTDCR
0036F8
DC
DC
DC
3374+
3375+
3377+*
00370C 00
003700
003710
003712
003714
000001
0000
4000
00000001
3385+*
003718
003719
00371C
003710
00
000001
92
0037'38
3387+
3388+
3388+
3390+
003729 00
3394+
3395+
.. 3396+
DC
DC
DC
DC
00312A 0050
3397+
DC
DC
DC
DC
DC
DC
DC
3401+
3402+
3403+
3404+
3405+
3406+
3407+
3408+
34Q9+
A(l) ID6AD
RLltOOOOOOOO' BFTEK,BFlN,HIARCHY
AL3(1) EODAD
BLl'lOOIOOIO' RECFM
Al3(MURLtST) EXlST
Cl8 l WRITEI DDNAME
BL1 t OOOOOOIO' OFlGS
BLI'OOOOOCOO' IFLG
Bl2'OOOOOOOOOlOlOOOO' MACR
BSAM-BPAM-QSAM INTERFACE
3399+*
00372C 00
00372D 000001
003730 00000001
003734 0000
003736 0000
003738 00000000
00373C 00000001
003740 00
003741 000001
RL2'OlOOOOOOOOOOOOOO' DSORG
FOUNDATION BLOCK
DC
DC
DC
DC
-.--.--~~.-,-
All (0) BUFNO
AL3(1) HUFCB
AL2(O} BUFL
FOUNDAT J ON EXTE\fS ION
3392+*
003720 E6D9C9E3C5404040
003728 02
Bl16'O' FDAD,DVTBl
A{O) KEYLE,DEVT,TRBAl
COMMON ACCESS METHOD INTERFACE
DC
DC
DC
DC
DC
3379+
3380+
3381+
3382+
3383+
BlI'oooooaoo' RERI
AL3(1) CHECK, GERR, PERR
Atl} SYNAD
HIO· CINDI, CIND2
AL2(O) BLKSIZE
f'O' WCPQ, W(DL, OFFSR, OFFSW
A ( 1) I DBA
DC
ALl CO) NCP
DC
AL3(1) E08R, EOBAD
QSAr~
3411+*
003744
003748
00374A
00374C
00374D
003750
3413+
3414+
3415+
3416+
0037~4
00000001
0000
0085
00
OOnOO}
00000000
00000001
003758
8~,
3421 MURl 1ST
DC
DC
DC
DC
3417+
3418+
3419+
3420
*
~OJNDARY
DIRECT ACCESS DEVICE INTERFACE
3312+*
0036F8 0000000000000000
003708 00000000
OF'O' ORIGIN ON WORD
INTERFACE
A ( I) k EC.AD
H'O t QSWS
ALZ(133) LRECL
8Ll'OOOOOOOO' EROPT
DC
AL3(1) CNTKl
DC
F'O' PRECL
DC
A(l) EOB
DCP bXIT ROUTINE ADDED BY T BROWN WRO 71061
DC
x'es'
END OF LIST, DCB EXIT ENTRY
00302310
00302315
CHANNEL
LOC
WORDS
COMMA~D
OBJECT C'JDE
PAGE
Ix DDR 1 ADDR2
003159 00315C
0031?C
00315C 4831 003E
003160 48~ 1 0052
003164 1233
003766 4780 F01S
00376A 1822
00376C 1024
00376E 1222
3422
3423
0OO3E
00052
03714
003770 078E
003772 078E
003774 4041 003E
003778 07FE
002148-
SOURCE ST ATE1'vjE~T
STMT
3424 [vlUR E X IT
3425
3426
0OO3E
Al.3 (v!UREXI1)
DC
USING *,15
LH
3,62(ll
l.H
3427
LTR
Bl
3428
3429
SR
OR
3430
lTR
BCR
BCR
5TH
3431
3432
3433 SETBLK
3434
3435
3436 DUNCHR
F150CT10
BR
4,82Cl}
3,3
SETBLK
2,2
2,4
2,2
8,14
8,14
4,62(1)
14
00317A 0000
00317C
3440+PUNCHR
3444+
3445+
DC
DC
BL16'O' FDAD,DVTBL
A(O) KEYLE,DEVT,TRBAL
f\(\
v\..."
'A 70fL
-'1
..."-"'1'
f\(\fl('\
VV\.l'l.J
003796 4000
003798 00000001
COMMON ACCESS METHOD INTERFACE
DC
DC
ALl ( 0) 9 UFN 0
AL3(l) BUFCB
...L.
1"'\"1"./ ....
H L.. ,,-. \ V
3452+
DC
DC
3449+
3450+
A.f"
c::: 1
,..>-r .-IrA,"
3453+
1\1
",n\I
00
000001
92
003758
3457+
3458+
3459+
3460+
At 1)
C3CID9C4D6E4F~40
3464+
3465+
0037AC 02
0037AD 00
3466+
0037AE 0050
3467+
DC
DC
DC
DC
RLl'OOOOOOOO' BFTEK,BFLN,HIARCHY
AL3(}) EODAD
3Ll'lOOlOOIO' RECFM
Al3(MURLIST) EXLST
FOUNDATIO'l BLOCK
DC
DC
DC
DC
Cl8'CARDOUT' DDNAME
QLl'OOOOOOlO' OFLGS
RlI'OOOOOOOO' IFlG
BL2'OOOOOOOOOl010000' MACR
BSAM-BPAM-QSAM INTERFACE
3469+*
003730 00
0037B1 000001
0037B4 00000001
IOBAD
FOUNDATION EXTENSION
3462+*
0037A4
Ollel1.-.
... ' V I
BL?'OlOOOOOOOOOOOOOO' DSORG
3455+*
00379C
003790
0037AO
0037AI
00302330
DIRECT ACCESS DEVICE INTERFACE
3447+*
003790 00
003791 000001
GET DCB BLKSIZE
GET DCB lRECl
IS BlKSIZE ZERO?
YES, GO SET BLKSIlE -. LRECl
NO, ZERO R2 FOR REMAINDER
DIV IDE BLKSIZE BY LRECL
ZERO REMAINDER?
YES,EXIT TO OPEN
YES y EXIT TO OPEN
NO, SET BLKSIZE = LRECL
EXIT TO OPEN
OF'O' ORIGIN ON WORD BOUNDARY
3442+*
00371C 0000000000000000
00378C 00000(01)
00302320
00302325
DATd CONTROL BLOCK
DC
3471+
3472+
DC
DC
BlI100000000' RER1
Al3(1) CHECK, GERR, PERR
3473+
DC
;\ ( 1)
S YNAD
10/28/71
A,DDR OF DCB EXIT ROUTINE
R 15 IS BASE FOR THIS ROUTINE
USING SETBSl,15
DCB
MACRF=PM,DSORG=PS,RECFM=FBM,LRECL=81,DONAME=CARDOUT,
EXLST=MURlIST
TAB
3438+*
3439+*
85
00302335
00302340
00302345
00302350
00302355
00302360
00302365
00302370
00302375
00302380
00302385
X00302400
00302500
CHANNEL COMMAND WORDS
LOC
ORJECT CODE
ADDRI ADDR2
0037B8 0000
0037BA 0000
0037BC 00000000
0037CO 00000001
0037C4 00
0037C5 000001
PAGE
STMT
SOURCE STI1.TEME\JT
DC
DC
DC
DC
DC
DC
3474+
3475+
3476+
3477+
3478+
3479+
Fl50CT70
00000001
0000
0051
00
000001
00000000
AL2(O} RLKSIZE
F'O' WCPO, WcoL, OFFSR, OFFSW
A ( 1)
108 A
AL1(O) NCP
Al3(1) fORR, EOBAD
00000001
3490
DC
DC
DC
CARD
3492+*
3493+*
3494+CARD
0037DC
QSAM INTERFACE
DC
DC
DC
3483+-
3484+
3485+
3486+
3487+
3488+
3489+
DC
DCB
A{l} RECAO
H'O' QSWS
AL2(81) lRECL
BLI'OOOOOOOO' EROPT
AL3(1) CNTRL
FtOt PRECL
ACI) EOS
MACRF=GM,DSORG=PS,RECFM=FB,LRECL=80,
DDNAME=CARDIN,EODAD=EOC
DATA CONTROL BLOCK
DC
OF'O' ORIGIN ON wORD BOUNDARY
DIRECT ACCESS DEVICE INTERFACf
3496+*
0037DC 0000000000000000
0037EC 00000000
3498+
3499+
DC
DC
RL16'O' FOAO,DVTBL
AlO) KEYlE,OEVT,TRBAL
COMMON 4CCESS METHOD INTERFACE
3501+*
0037FO
0037Fl
0037F4
0037F6
0037F8
00
000001
0000
4000
00000001
3503+
3504+
3505+
3506+
3507+
DC
DC
DC
DC
DC
35Q9+*
0037FC 00
3511+
0031FiJ 002DDA
3512+
003800 90
003801 000000
3514+
3513+
3518+
3519+
3520+
3521+
DC
DC
DC
DC
003810 00
3525+
3526+
A( 1)
IOBAD
BLI'ooaooooo'
BFTEKyBfL~,HIARCHY
AL3(EOC) f=ODAD
BLl'lOOlOOOO' RECFM
AL3(O) EXLST
FOU~DATION
DC
DC
DC
DC
BLOCK
CLS'CARDINt ODNAME
BLl'OOOOOOlO' OFlGS
BLl'OOOOOOOO' IFlG
BL2'OlOlOOOOOOOOOOOO' MACR
BSAM-BPAM-QSAM
3523+*
003811 000001
ALI(O) BUFNO
AL3(1) BUFCB
AL2(O) BUFL
BL2'OlOOOOOOOOOOOOOO' DSORG
FOUNDATION EXTENSION
3516+*
003804 C3C1D9C4C9054040
00380C 02
003800 00
00380E 5000
10/28/71
HtQ' CINDl y CIN02
3481+*
0037C8
0037CC
0037CE
0037DO
003701
0037D4
0037D8
86
DC
DC
BLl'QOOOOOOO' RERI
AL3tl) CHECK, GERR, PERR
INTERFAC~
X00302600
00302700
CHANNEL
Loe
003814
003818
00381A
00381C
003820
003824
003825
CC~MAND
OBJECT CODE
00000001
0000
0000
oaoeoooa
00000001
00
000001
WORDS
ADDRI ADOR2
PAGE
STMT
SOURCE STATEMENT
DC
3577+
3528+
3529+
3530+
3531+
DC
DC
DC
3532+
DC
3533+
DC
DC
F150CT10
A(l) SYNAD
HID' CINDl, CIND2
Al2{O) BLKSIIE
FlO'
wcpo,
WCPL, OFFSR, OFFSW
Afl} rOSA
ALl(O) NCP
Al3(1) EOBR, EOBAD
QSAM INTERFACE
3535+*
003828
00382C
00382E
003830
003831
003834
003838
00000001
0000
0050
00
00000 1
00000000
00000001
3'537+
3538+
3539+
3540+
3541+
3542+
3543+
DC
DC
DC
DC
DC
DC
DC
A(l) RECAD
H'O' Q9t4S
Al2(80) LRECl
Bll'OOOOOOOO' EROPl
AL3(1) CNTRL
F'O' PRECL
A ( I} E DB
87
10/28/71
DATA
LOC
CO~VERSION
OBJECT C CDE
TRANSLATE TABLES
ADDRI ADDR2
003E\3C 0000006400C8012.C
003850
00385C
003812
00387C
003892
00389C
0038B2
0038BC
003800
00380C
0038F2
0038FC
003912
00391C
00392E
00393C
003950
00395C
003A5C
003A9C
003A.AC
OQ3ABC
003ACC
003AOC
003BIC
00382C
003B3C
003B4C
003R5C
003B6C
00387C
003B8C
003B9C
003BAC
0038RC
0038CC
003BOC
003BEC
003BED
003CIC
003C10
003C5C
003C50
003C9C
00309C
003DOC
003EIC
003E9D
003EA6
0000000000000000
0OOOO44C04BOO514
0000000000000000
0OOOO834089808FC
0000000000000000
OOOOOCICOC800CE4
0000000000000000
0000000100020003
0000000000000000
OOOOOFA 1 OFA20FA 3
0000000000000000
OOOOiF411F42iF43
0000000000000000
0OOO2EE12EE22EE3
2EE92EEOOOOOOOOO
000 OOOO~, 00 1400 1 E
0000000000000000
0000000000000000
0000000000000000
0000000000000000
3000000000000000
2011000000000000
201 i 666(H~·OnO{)060
0000000000000000
3A31323334353637
2 A21 2223?42 ~,2h?7
lAOO121314151611
OAOlO20304050607
40FIF2F3F4F5F6F7
F061E2E3E4E5E6E7
60010203D4050607
50CIC2C3C4C5C6C7
40FIF?F3F4F5F6F7
F061E2E3EAE5E6E7
600102D304050607
50CIC7C3C4CSC6C7
0001020304050607
00
1112131415161718
10
0102030405060708
10
0102030405060708
0000000000000000
4.040404040 /.,.04040
FIFIFIFIFIFIFIFI
0001020304050607
CIC2C3C4C5C6C7CB
00000000000000
STMT
D1D2D3D40~D6D1D8
359~
3596
3597
3598
3599
003FBF
F?E3E4E'3E6E7E8E9
003EC6 AAABACADA EAFROSl
003E:58
SOURCE STATElVlENT
354:; TBHNTH
DC
3546
DC
3547
DC
3548
DC
3549
DC
3550
DC
3551
DC
3552
DC
3553 lBT4UN DC
3554
DC
3555
DC
3556
DC
3557
DC
3558
DC
3559
DC
3560
OC
3561 TBlENS DC
3562
DC
3563 TRTB
DC
3564 TRE)
DC
3565
DC
3566
DC
3567
DC
:3-51,8
DC
3569
DC
3570
DC
DC
3571
3572
DC
3573
DC
3574 TRIE
DC
3575
DC
3576
DC
3577
DC
3578
DC
3579
DC
3580
DC
3581
DC
3582 TR4IBC DC
3583
DC
3584
DC
358~ TRI4BC DC
3586
DC
3587
DC
3588
DC
3589 TRGPWM DC
3590 TRWOt.AK DC
DC
3591
3592 TYPTBL DC
3593
DC
3594
DC
003fB6 0000000000000000
003EAD
PAGE
FlSOCT70
H'O,lOG,200,30Q,400,500,&OO,100,BOO,SOO'
6H'O'
H'O,1100,12QO,1300,14CO,150Q,1600,1700,lBOQ,190Q,lOOO'
SHIO'
H'O,2100,220Q,2300,240Q,2500,2600,2700,2800,2900,2000'
5H'O'
H'O,3100,3200,3300,3400,3500,360Q,3100,3800,3900,3000'
SHIO'
Ht O,1,2,3,4,5,6,7,8,9 t
6H'O'
H' 0 ,400 1,4002,4003,4004,4005,4006,4007,4008,4009,4000'
5H'O'
H'O,8001,B002,8003,8004,8005,8006,8007,8008,8009,8000'
SHIO'
H'O,12001,12002,12003,12004,12005,12006,12007,12008'
H' 12009,12000,O,O,O,O,O'
H'O,lO,20,30,40,50,60,70,80,90'
6H'O'
64X'OO',64X'Fl',64X'OO',64X'Fl'
b4X'OO'
. --------.-X'OOOOOOOOOOOOOOOOOOOOOO3B3C3D3E3F'
X'30000000000000000000002B2C202E2F'
X'20110000000000000000001BICIDIEIF'
X'20110000000QOOOOOOOOOAOBOCODOEOF'
..
-
64X'OO'
X'3A313233343536373839000000000000'
X'2A21222324?526272829000000000000'
X'lAOO1213141516171BI9000000000000'
X'OAOI0203040506010809000000000000'
X'40FIF2F3F4F5F6F7F8F9F07B7C7D7E7F'
X'F061E2E3E4E5E6E1E8E9E06B6C6D6E6F'
X'60DID2D3D4D5DbD1D8D9D05B5C5D5E5Ft
X' 5 OC IC2C 3C4C5C6C 7C8C9C04B4C4D4E4F '
X'40FIF2F3F4F5F6F7F8F9F07B7C7D7E7F'
X t F061E2E3E4E5E6E7E8E9E06B6C6D6E6F'
X'60DID2D3D4D5D6D7D809D05B5C5D5E5F'
X'50CIC2C3C4C5C6C7C8C9C0484C4D4E4F'
16All(*-TR4IBC)
X'OO'
47All(*-TR4IBC)
XII 0 I
63All(*-TRI4BC)
X'lO'
63All(*-64-T~I4BC)
127X'OO',X'7F',128X'OO'
64)('40'
64C'I'
129All(*-TYPTBl)
C'ABCOEFGHI'
Xl7'OO'
CIJKlNNOPQi('
DC
DC
XL8 I UO'
DC
C'STUVWXYZt
DC
86Allt*-TYPTBl)
TYPT8L+63
ORG
Be
10/28/71
00302900
00303000
00303100
00303200
00303300
00303400
00303500
00303600
00303700
00303800
00303900
00304000
00304100
00304200
00304300
00304400
00304500
00304600
00304700
00304800
00304900
00305000
00305100
00305200
00305300
00"305400
00305500
00305600
00305700
00305800
00305900
00306000
00306100
00306200
00306300
00306400
00306500
00306600
00306100
00306800
00306900
00307000
00301100
00307200
00307300
00307400
00307500
00307600
00307700
00307800
00307900
00308000
00308100
00308200
00308300
DATA
LOC
CONVE~SIQN
OBJECT
003E 52, 000000
003FIC
TRANSLATE TABLES
ADDRI ADDR2
ST:'vIT
3600
3601
PAGE
SOURCE STATEMENT
CC
XL3'OO'
ORG
TYPTBl+-256
F150CT70
89
10/28/71
00308400
00308500
l
lOC
003F20
003F20
003F24
003F28
003F2C
003F30
003F34
003F38
rTER,~LS
OBJECT CDOE
000000lF
0OOOO2A4
OOOOOOOF
00000008
00000008
00000030
oooaOO3F
003F3C 0OOOO94E
003F40 00000064
003F44 OQOO3E7F
003F48 00003658
003F4C 00003638
003F50 00000003
003F54 00000001
003F58 00000083
003F5C 00000007
003F60 00000997
003F64 C3C3E3D3
003F68 0OOO2F58
003F6C 0OOO331C
003F70 0OOO3F8A
003F14 00002460
003F78 00000001
003F7C 00003648
003F80 00003668
003F84 OOOO14AF
003F88 00003670
003F8C OOOOOFAO
PAGE
A Ll[1k 1 ,\ DDR ;~'
S TI'-n
3603
3604
3605
3606
3601
3608
3609
3610
3611
3612
3613
3614
3615
3616
3617
3618
3619
3620
3621
3622
3623
SOURCE STATEfv;[NT
F150CT70
LTORG
=F'll'
=F ' 8'
=F'4R'
=F'63'
=A(H4)
=F
i
100
i
=F'15999'
=A(RTCCW)
=A (WTCCW 1 )
=F '3'
=F'l'
=F'131'
=F'7'
=A(EOJIAR+5)
=C'CCTL'
=A(CARTAB)
=A(TMDARA+IO)
=F'160l0'
3625
=A(RQSTIN+4)
3626
3627
=A(lDTCCW)
362&
=X'OOOOOOOl'
=ACWTMCCW)
=ld W)
3630
=ACRWDCCW)
·OO3F9Q o606-03EB
3631
3632
003F94 aoaoonDA
3633
003F98 OOOOOOFO
3634
3635
=F' 4·000'
=F'100Q'
=F'10'
=F I 240'
003F9C 0OOO00F9
003FAO OOOOOOFA
003FA4 0OOOOO8A
003FA8 000036A4
003FAC 0007
003fAE 0001
003FBO 0004
=r.:'?.l..Ot
, £-."' ...
3645
=F'250·
=F'138 t
=AtTAPADR)
=H'7'
=H 'I t
=H'4'
=H' 10'
=H'9'
=H'32'
=H'S'
003Ff'J\ 0005
3646
=H'5'
003FBC 0002
003FBE 0006
003FCO 4650
003FC2 0100
003FC4 0064
Oo.?_r.C:_ 6 3329
003FCP 4040
003FCA 0003
003FCC 0030
003FCE 0040
003FDO 3E1F
3647
364B
3649
=H'2'
=H'6 t
=H'18000'
3650
3651
3652
3653
3654
3655
=H '100'
=X'3329'
=c •
=H'3'
=H'48'
003FBZ OOOA
003FB4 0009
003FBb 0020
003FB8 OOOS
3636
3637
3638
3639
3640
3641
3642
3643
3644
3656
3657
10/28111
00308700
=F'31 t
=A(TRTRCD)
=F'15'
3624
3629
90
=H'Z56'
=H t 64
t
=H' 15999'
LITERALS
LOC
OBJECT CODE
PAGE
ADDRI ADDR2
STMT
FOFO
3E1e
3658
3&59
003FD6 OAOO20000909
Ot13FOC 0I2e
003FDE 3E80
003FEO 464F
003FE2 00
003FE3 404040
3660
3661
003FD2
003FD4
003FE6 C3C3E3D3F2
003FfB E2E2E2
003FEE
003FFI
003FF4
003FF7
03C4C3
D3C4E3
E209E2
E2E3E3
003FFA C303D9
003FFD C4C91::2
004000 CID3E3
004003 E6E3D4
004006 09E6C4
004009 E30904
00400C C404D7
00400F 01 OAOAoa 20000?rJA
004018 FO
3662
SOURCE STATEMENl
=c'OO'
=H'15900'
=X'OA0020G00909'
=H'300'
=H'16000'
3663
3664
3665
=t..p 17999 '
3660
3667
3668
3669
3670
=C'CCTL2'
=C'SSS'
=X'OO'
=X '404,040 I
=C' LDC'
3671
=C'LDT'
=C'SRS'
=C'S11'
3612
3673
3674
3675
3616
3617
3618
=C'CLR'
=C'015'
=C'ALT'
=C'WTMt
=C'RWD'
=C'TRM'
=C'DMP'
3679
3680
=X'OlOAOA00200002CAOlt
=C' 0'
F150CT70
91
10/28/71
TAPE DeBS
LOC
OBJECT CODF
PAGE
ADDRl ADDR2
STMT
SOURCE STA.TEl"'If:,\!T
3682 TAPEDCBO DCB
FI50CT70
MAC~F=(E},DSCkG=PS,DDNAME=TPO
92
10/28111
00246500
8ATA CONTROL BLOCK
36FA+*
3685+*
004019 000000
00401C
3b86+TAPEDCBO DC
OF'C' ORIGIN ON WORD BOUNDARY
DIRECT ACCESS DEVICE INTERFACE
3688+*
0040lC 0000000000000000
00402C 00000000
3690+
DC
3691+
DC
BLI6'O' FDAD,DVTBL
A(O) KEYLE,DEVT,TRBAL
COMMON ACCESS METHOD INTERFACE
3693+*
004030 00
004031 000001
004034 0000
004036 4000
004038 00000001
3695+
3696+
3697+
3698+
3699+
DC
All ( 0) '3 UFN 0
DC
AL3(1)
DC
AL2(O) BUFl
DC
BL2'OIOOOOOOOOOOOOOO' DSORG
DC
ACl)
IOBAD
FOUNDATION EXTENSION
3701+*
00403C
00403D
004040
004041
00
000001
00
000000
3703+
3704+
3705+
3706+
DC
DC
DC
DC
GLl'OOnooooo' I1FTEK,RFLN,HIARCHY
AL3( 1) EODAD
RLl'OOOOOOOO' RECFM
AL3(O)
004044 E307F04040404040
00404C 02
3710+
3711+
DC
"()ld'l..
n
vv,v---.,.-v
.J I
'2: 71 ?.L
r, 4000
004C6C COCOOCOI
3727+
3728+
3729+
313(;+
3-'31+
3733+*
D t
1 • f'\f'\ (H',\ 1"\ " f\f'\ •
U~&VVVVVVVU-
T CI ,...
£!
~~
8L2'llOlOOOOOOOOlOOO' MACR
MACRF=(E},DSORG=PS,DDNAME=TPI
DATA
CO~TROL
BLOCK
OF'OI ORIGIN ON WORD BOUNDARY
BL16'O' FDAD,DVTBL
A(O) KEYLE,DEVT,TRBAl
COMMON ACCESS METHOD INTERFACE
3725+*
004064 00
CL8'TPO' DDNAME
BLI'OOOOOOlO' OFLGS
DIRECT ACCESS DEVICE INlfRFACE
3120+*
004050 oooooooooooonnoo
004060 00000000
EXLST
FOUNOA'TION BLOCK
3 -'08+*
(V\
RUFCR
DC
DC
DC
DC
DC
ALlfO) BUFNO
A,L3(1) RUFCB
AL2(O) R-LJFL
SL2 I 0100000000000000' DSORG
A'I) IUBAD
FOUNDATION EXTENSION
00246600
TAPE DCRS
LOC
004070
004071
004074
004075
OBJECT CODE
PAGE
ADDRl AODR2
00
000001
00
OOOOCO
STMl
SOURCE STATEMENT
F150CT70
3735+
DC
3736+
3737+
3738+"
DC
BLl'OOOOOOOQ' 8FTEK,RFLN,HIARCHY
AL3(1) EODAD
DC
DC
BLI'OOOODaoo' RECFM
AL3(O) EXLST
E3D7F14040404040
02
00
0008
3742+
DC
Cl8'TP1' DDNAME
3743+
3744+
3745+
3746 TAPEDCB2
DC
Bll'OOOOOOlO' OFlGS
BL1'QOOOOOOQ' IFLG
Bl2 1 1I01000000001000' MACR
DC
DC
DCR
MACRF=(E),DSORG=PS,DDNAME=TP2
3750+TAPEDCB2 DC
OF'O' ORIGIN ON WORD BOUNDARY
DIRECT ACCESS DEVICE
3152+*
064084 0000000000006600
004094 00000000
375"4+
3755+
DC
DC
00
000001
0000
4000
OQ40AO aaoonOOl
A(O)
K~YLE.DEVT,TRBAL
COMMON ACCESS METHOD INTERFACE
3759+
DC
ALlta) BUFNO
3760+
DC
AL3(1) BUFCB
3761+
3762+
3763+
DC
DC
AL2(O) BUFL
BL2'OlOOOOOOOOOOOOOQt DSORG
A( 1) IOBA.D
DC
3765+*
0040A4 00
0040A5 000001
0040A8 00
0040A9 000000
3767+
3768+
3769+
3770+
FOUNDATION EXTENSION
DC
Bll'OOOOOOOO'
DC
DC
Al3 ( 1) EOOAD
DC
0040AC E3D7F24C4G40404G
3774+
3775+
004085 00
004086 Dens
3776+
3777+
FOUNDATION BLOCK
DC
DC
DC
DC
3778 TAPEDCB3 DCB
3"780+*
3781+*
0040B8
(L8 f TP 2
t
DDNAi'--iE
BLltOOOOOOIO' OFLGS
BLltOOoooooo' IFLG
PL2'110lOOOOOOOOlOOO' MACk
MACRF=(~),DSORG=DS,DDNAME=TP3
DATA
3782+TAPEDCB3 DC
CONTROL BLOCK
OFfO' ORIGIN ON WORD BOUNDARY
DIRECT ACCESS DEVICE INTERFACE
3784"+*
004068 0000000000000000
0040C8 00000000
RFTEK~BFLN,HIARCHY
BLl'OOOOOOOO' RECFM
AL3(O) EXLST
3772+*
0040B4 02
r~TERFACE
Bl16'O' FDAD,DVTBL
3157+*
004098
004099
OQ409C
00409E
00246700
DATA CONTROL BLOCK
3148+*
3749+*
004084
10/28111
FOUNDATION BLOCK
3740+*
004078
004080
004081
004082
93
3786+
DC
3787+
DC
RL16'O' FCAD,DVTBl
ACO) KEYLE,DEVT,TRBAL
00246800
TADE DCBS
LOC
OBJE cr COOC
PAGE
AQDRI AGDR2
STMl
SOURCE SlATLMENT
3789+*
0040CC
0040CD
OQ4000
0040D2
004004·
00
000001
0000
3791+
3792+
3793+
4000
0000000 1
3794+
3795+
F l50C T70
CO~MON
DC
DC
DC
DC
DC
3797+*
ACCESS
0040D8 00
3199+
060001
3800+
DC
DC
0040DC 00
00400D 000000
3801+
DC
3802+
DC
3804+*
ACl) IOBAD
EXTE~SION
Pl1'OOOOOOOO' BFTEK,BFLN,HIARCHY
Al3Cl) EODAD
BLI'oooooaoo' RECFM
Al3(O) EXLST
FOUNDATION 8l0CK
3806+·
DC
CL8'T D 3' DDNAME
0040E8 02
OO''fOE.9 00
3807+
DC
3808+
DC
3809+
DC
BLl'OOOOOOlO' QFLGS
BLl'OOOOOOOO' IFlG
BLZtllOlOOOOOOOOlOOO' MACk
MACRF=(E),DSORG=PS,DDNAME=TP4
3810 TAoEOCB4 DCg
3818+
3819+
DC
DC
00
000001
0000
4000
0000000 1
3823+
3824+
3825+
3826+
3827+
DC
ALltO) SUFNO
DC
DC
DC
AL3(1) BUFCB
DC
3831+
004100 aOOOOl
004110 00
004111 000000
3832+
3833+
3b34+
DC
DC
Bll'OOOOOOOO' BFTEK,BFLN,HIARCHY
Al3(1) EOOAD
DC
DC
Bll'OOOOOOOO' RECFM
Al3(O) EXlST
FOUhJDATION 8LOCK
3836+*
_.
004114 E307F44040404 r14 f)
OOItII C 02
004110 00
3833+
3839+
00411 E D008
AL2(O) BUFL
Rl2'OlOOOOOOOOOOOOOO' DSORG
A( 1) IOgAD
FOUNDATION EXTENSION
3829+*
00410C 00
BLIb'O' FDAD,DVT~L
AtO) KEYLE,DEVT,TRBAL
COMMON ACCESS METHOD INTERFACE
3821+*
004100
004101
004104
004106
004·1.08
OF10' ORIGIN ON WORD BOUNDARY
DIRECT ACCESS DEVICE INTERFACE
3816+*
0040EC 0000000000000000
0040FC 00000000
00246900
DATA CONTROL RlOCK
3812.+*
3813+*
3814+TAPEDCB4 DC
0040EC
INTERFACE
BL2'OlOQOOOOOOOOOOOO' DSORG
0040EO E3D7F34040404040
0040EA 0008
1012:8/71
All (C) BUFNO
Al3(11 SUFeR
Al2(O) BUFl
FOUNDATION
604009
M~THOD
94
-,--
ClS'T D 4' DDNAME
3LI'OOOOOOlO' OFLGS
3840+
DC
DC
DC
3841+
DC
Bl2'llOlOOOOOOOOlOOO' MACR
3842 TAPEDC85 Dce
BLl'00000000'
IFLG
~ACRf=(E),DSORG=PS,ODNAME=TP5
00247000
Tl\PE DeBS
lOC
OSJECT COD!:
PAGE
ADDR! ADDk2
004120
STMT
3844+*
3845+*
3846+TA.PEDCB5 DC
3850+
3851+
OFfO' ORIGIN
004135 000001
004138 0000
00413 A, 4000
00413C 00000001
3855+
3856+
3857+
3858+
3859+
Bl16'O' FDAD,DVT8L
DC
A(O) KEYLE,DEVr,TRBAL
COMMON ACCESS METHOD INTERFACE
DC
DC
DC
DC
DC
AlleO) BUFNO
Al3(1) RUFCR
AL2(O} BUFL
BLZ'OlOOOOOOOOOOOOOO' DSORG
A(l)
004144 00
DC
DC
DC
004145 000000
3866+
DC
RlI'oooaoooo l BfTEK,BFlN,HIARCriY
~,L3 ( 1) EODAO
qLl'OOOOOOOO' RECFM
Al3(O) EXLST
FOUNDATION 8LOCK
3868+*
004150 02
004·151 00
004152 0008
3870+
IORAD
FOUNDATION EXTENSION
3863+
3864+
3865+
004148 F3D7F5404n404040
WORD BOUNDARY
DC
3861+*
004140 00
004141 000001
O~
DIRECT ACCESS DEVICE INTERFACE
3853+*
004134 00
DC
DC
3871"
3872+
DC
3873+
DC
3874 TAPEDCB6 DCB
Cl8'TP5 t DDNAME
8ll'DOOOOOID' OFlGS
BLltOOOOOOOQ· IFLG
BL2 1 1101000000001000' MACR
MACRF=(E),DSORG=PS,DDNAME=TP6
DATA CONTROL BLOCK
3876+*
3877+*
004154
3878+TAPEDCB6 DC
OF'O' ORIGIN ON WORD BOUNDARY
DIRECT ACCESS DEVICE INTERFACE
3880+*
004154 0000000000000000
004164 00000000
,-. ,._<
3882+
3883+
DC
DC
BL16'O' FDAD,DVTBL
ACO} KEYLE~DEVT,TR3AL
COMMON ACCESS METHOD INTERFACE
3885+*
004168 00
004169 000001
00416C 0000
00416£ 4000
004170 00000001
3887+
3888+
3889+
3890+
DC
DC
Al2(O) BUFL
BlZ'OIOOoooooorooooo' DSQRG
3891+
DC
A(l)
DC
DC
AL I ( 0) B UF"J 0
ALi ( 1) P;UFCR
3895+
3896+
3897+
IOBAD
FOUNDATICN EXTENSION
3893+*
004174 00
004175 000001
004178 00
10/28111
DATA CONTROL SLOCK
3848+*
004120 0000000000000000
004130 00000000
F150CT10
SOU RCEST ATE ~1 F NT
95
DC
DC
Bll'OOOOOOOO' BFTEK,BFlN,HIARCHY
DC
RLI'OOOODaGO' RECFM
Al3~
1) fODAD
00241100
TAPE OC9S
LOC
OBJECT CDDE.
PAGE
ADDRl ACDR2
004·179 000000
STMT
F150CT70
SOURCE STATEiVtENT
3898+
DC
96
10/28/71
AL3 ( 0) EXL S T
FOUNDATION BLOCK
00417C E3D7F64040404040
004184 02
3902+
DC
3903+
DC
004185 00
3904+
004186 0008
3905+
DC
DC
3906 TAPEDCB7
DCB
3908+*
3909+*
3910+TAPEDCB7 DC
004188
CL8'TP6' DDNAME
Bll'OOOOODlO' OFLGS
BLl'OOOOOOOO' IFLG
RL2'llOlOOOOOOOOlOOO' MACR
MACRF=(E),DSORG=PS,DDNAME=TP7
DATA CONTROL BLOCK
OFtO' ORIGIN ON WORD BOUNDARY
DIRECT ACCESS DEVICE INTERFACE
3912+*
004188 0000000000000000
004198 00000000
3914+
3915+
DC
DC
BL16'O' FDAD.DVTBl
A(O) KEYLE,DEVT,TRBAl
3917+*
00419C 00
004190 000001
00411\0 0000
0041A2 4000
0041~.4
00000001
3919+
3920+
3921+
3922+
3<;;2'3+
COMMON ACCESS METHOD INTERFACE
DC
ALl(O) BUFNO
AL3(1) RUFCB
AL2(O) AUFL
SL?'OlOOOOOOOOOOOOOO' DSORG
DC
A( 1)
DC
DC
DC
0041A9 000001
3921+
3928+
0041AC 00
"::to'>O..L
J 7t..."7 •
0041AO 000000
3930+'
DC
DC
DC
0041B9 00
0041BA 0008
0041BC
3934+
3935+
3936+
3937+
3938 TAPEDCR8
DC
DC
DC
DC
DCB
3940+*
3941+*
3942+TAP[OCB8 DC
3946+
3947+
3949+*
CLS'TP1' DDNAME
RLIIOOOOOOlot OFLGS
BLl'OOOOOOOO' IFLG
8L2'1IOlOOOOOOOOlOOO' MACR
MACRF=(E),DSORG=~S,ODNAME=TP8
DATA CONTROL BLOCK
OF'O' ORIGIN ON WORD BOUNDARY
DIRECT ACCESS DEVICE INTERFACE
3944+*
0041BC OOOOOOOOOOGODOCO
0041C( 00000000
BLl'OOOOOODO' BFTEK,RFLN,HIARCHY
AL3(1) EODAD
BLl'OOOOOOOO' RECFM
AL3(O) EXLST
FOUNDATION BLOCK
3932+*
004180 E3D7F74040404n~~
0041B8 02
lORAD
FOUNDATION EXTENSION
3925+*
0041A8 00
00247200
DC
DC
SL16'O' FDAD,DVTBL
A(O) KEYlE,UEVT,TRBAL
COMMON ACCESS METHOD INTERFACE
00241300
97
Loe
ORJfCT
COD~
ADDRI ADDR2
0041DO 00
004101 000001
0041 DEt 0000
0041Dt 4000
0041DR 00000001
STMT
SDURCE
3951+
3952+
3953+
3954+
3955+
Srt\TEI'-!!~\IT
DC
DC
DC
DC
DC
F150CT70
ALl(O} 5UFNO
AL3(1} BUFC8
AL2{O) QUFL
Ql2'OlOOOOOOoooooono' DSORG
A{ 1)
IORAD
FOUNDATION EXTENSION
3957+*
004IDC 00
004100 000001
0041EO 00
0041El OODono
39'59+
DC
3960+
DC
DC
DC
3961+
3962+
RLl'OOOOOOOO'
AL3(1) EODAD
AL3(O) FXLST
FOUNDATION BLOCK
3966+
3967+
DC
DC
CLS'TPS' DDNAME
3968+
DC
BLl'OOOOOOOO· IFlG
Bl2'llOlOOOOOOOOlOOO' MACR
3969+
DC
3970 TAPEDCR9 OCR
RLltOOOOOOIO' OFLGS
MACRF=(E),DSORG=PS,DDNAM~=TP9
3974+TAPEOCB9 DC
OFtO' ORIGIN ON WORD ROUNDARY
DIRECT ACCESS DEVICE INTERFACE
3976+*
0041FO 0000000000000000
004200 00000000
3978+
3979+
DC
DC
BL16 t Q' FDAD,DVTBl
A(O) KEYlE,DFVT,TRRAl
COMMON ACCESS METHOD INTERFACE
3981+*
004204 00
00420'5 000001
004208 0000
00420A 4000
00420C 00000001
3983+
3984+
3985+
3986+
3981+
DC
DC
DC
DC
DC
All ( a) RU FN a
J\l3(1) RUFCR
Al2(O) BUFL
BL2·0100000000000000· DSORG
108 AD
A ( 1)
FOUNDATION EXTENSION
3989+*
O{)4210
004211
004214
004215
00
000001
00
000000
3991+
3992+
3993+
3994+
DC
DC
DC
DC
Rll'OOOOOOOQ' BFTEK,BFLN,HIARCHY
Al3(1) EODAD
BLI'ooaooooo' RECF~
AL3(O) EXLST
FOUNDATION RlCCK
3996+*
004218
004220
004221
004222
000000
000000
002142
E3D7F9404040404Q
02
00
DODE
3998+
3999+
4000+
4001+
DC
eL8'TP9' DDNAME
DC
DC
DC
BLI'onOOOOIO' OFlGS
BLl'OOOOOOOOI IFLG
BL2 t l10100000000100Q· MACR
4002 SIMCOR
OSECT
4003
OS
4004
00247400
DATA CONTROL BLOCK
3972+*
3913+*
0041FO
BFTEK,~FLN,HIARCHY
BlI'ooaOOODO' RECFM
3964+*
0041E4 E3D7FB4040404040
0041EC 02
0041ED 00
0041EE 0008
10/28/71
END
Cl16020
BEGIN
00308800
00308900
00309000
RELOCt-,TION DICTIONARY
DOS.ID
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
REL.IO
01
FLAG5
OC
CC
OC
01
01
ol
01
01
01
01
01
01
OC
OC
OC
OC
OC
01
DC
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
DC
OC
OOO~AQ
ac
ac
Oc
OC
OC
ac
ac
OC
ac
OC
OC
ac
DC
ac
OC
DC
01
01
01
0OO5B4
DC
0OO5BC
0005eo
0005C4
0005e8
0005CC
OOO!>DO
000504
000508
oc
ac
ac
OC
1
0OO5AC
000580
ac
01
01
f)
0OO5A4
0OO5AB
OOO?B~
"r
01
01
C1
01
01
01
01
01
01
01
01
01
01
01
01
01
00054·C
000550
000554
000558
0OO55C
000560
000564
000568
0OO56C
000570
000574
000578
0OO57C
000580
000584
000588
0OO58C
000590
000594
000598
OOD59C
".,..L
~j
A.DDRf: S S
'-'~
DC
DC
DC
DC
OC
0C
OC
DC
OC
OC
OC
()C
OC
OOOSDe
0OO5EO
0OO5E4
OOO?E8
0OO5EC
0OO5FO
0005F4
0OO5F8
OOO'5FC
0OO60()
000604
OC
000608
OC
OC
OC
OC
DC
OOQ60C
000610
000614
000618
0OO61C
000620
DC
000624
ac
PAGE
1
10/28/71
RElOCATIG\ DICTIONARY
PDS .. I D
REL.Ie
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
FLAGS
OC
000&28
OC
OC
GC
OC
OC
OC
OC
OC
OC
OOOble
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
OS
01
01
01
01
01
01
08
08
01
01
01
OC
OC
OC
01
01
01
01
01
t.DORES S
08
be
08
08
COO630
000634
000638
00063C
000640
000644
000648
002100
0021F9
0021FC
002331
002439
oe
00243C
08
00252D
002530
002969
oe
002A~'D
002BD9
002BDC
002F50
002F54
01
01
at
0031E8
01
01
01
01
01
01
01
01
01
(lC
0031FC
OC
OC
OC
OC
OC
0031FO
0031F4
0031F8
0031FC
OC
003204
003208
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
DC
003200
"'
Vl.
..
v",
U\'J":>~
01
OC
01
OC
003210
003214
003218
00321C
003220
003224
003228
00322C
003230
003234
"',-.
01
OC
01
01
01
01
01
01
01
01
OC
OC
ac
ac
OC
OC
OC
OC
n.,....
u'"
OC
003238
00323C
003240
0C
003248
01
OC
01
01
01
ac
01
01
01
01
01
01
01
1"\.1"'\ "S ,.."
ac
OC
OC
OC
CC
003244
00324C
003250
003254
003258
00325C
ec
003260
CC
003264
PAGE
2
10/28/71
RELOCA_T ION DICTIONtl_RY
POS.IO
FEl .. IU
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
......__ ._--_..
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
01
C1
01
01
01
01
ac
OC
OC
ac
00327C
003280
ac
003284
003288
00328C
OC
DC
OC
01
01
01
01
01
01
01
01
01
01
01
01
00326C
003210
003274
003278
01
1"1"1
01
003268
OC
OC
OC
OC
01
01
01
01
01
01
01
--- ._. __ ._-,,--_
01
01
01
01
01
01
01
01
01
01
01
01
V.!.
ADDRESS
OC
01
01
1"1"1
V.!.
FLAGS
OC
OC
DC
OC
OC
003290
003294
003298
00 32_9C
0032AO
0032A4
0032A8
0032AC
OC
OC
OC
OC
DC
OC
003280
0032B4
fie
0032(8
OC
0032C(
003200
003204003208
00370C
0C
OC
OC
ac
0032B8
00328C
0032CO
0032C4
OC
OC
0032.E4
no
A n -:; L 0
VO
0032EO
C-
I./V.:;.I-UOJ
OC
003690
OC
0036A8
OC
OC
0036B8
003660
OC
0036CO
OC
0036C8
OC
OC
OC
DC
OC
0036DO
0036EO
0036E8
0036FO
08
08
08
00371D
003759
0037Al
08
0037FD
OC
ac
OC
OC
OC
OC
OC
003608
.,",.
'o" .• n .. • . . . ,
003F24
003F3C
003F48
003-F4C
003F60
003F68
003F6C
PAGE
3
10/28/71
RELOCATION DICTIONARY
POS.ID
REL ., I D
01
01
01
01
01
01
01
01
FLAGS
ADDRr:SS
Q03F74·
003F7C
01
CC
CC
OC
01
OC
01
01
OC
003F84
003F88
003FA8
DC
003FSO
PAGE
4
10/28/11
CROSS-REFE j;.';FNCE
SYr";BOL
A
ADR140
LEN
VALUE
DEFN
00004 000000 00056
00003 002CA.C 02860
REFERENCi::S
0055
1381
2892
ADR360
AEND
ALl
AlTI
AlT2
AlT3
Jl I
1-\ L
TE.
I ..,.
ALT4A
All
ALlA
ALIB
ALIC
ALID
AllE
ALIF
AllG
AllGI
AllH
ALII
AlIJ
AlIK
ALIL
AllM
ALlN
ALIO
AllP
ALtQ
AllR
AL7
AMINUS
ASTER
B
BASE2
SBE
BBELI
BCDTAP
SCEIA
BCEll3
aCE7
BCES
BCHTAl
BEGIN
BGNI
BGN2
BINMOO
Bl5A
Bl5B
Rl5BC4
BL5C
BL5CKB
00004 002CAR O?859
00001 0032FE 03289
00004 002892 02')66
00004 002896 02567
00002 0028AE 02573
00006 (l028C6 02579
",..,.,..,.,..,.
vvvv""t 0028DE 02585
00006 0028FA 02592
00004 0OOO3C 00073
00004 000080 00093
00002 OOOOCA 00114
00004 OOOOEO 00120
00004 OOOOF4 00125
00002 000112 00133
00004 0OO12E 00141
00004 0OO14E 00150
00002 000152 00151
00004 000160 00158
00004 000180 0016£1
00002 0OO1CA 00186
/.
OOO(l4 O()Ol~2 00193
00004 OOOlE6 00194
00004 0OO1F6 00198
00002 000214 00206
00002 000226 00211
00004 0002.50 00225
00004 00027E 00238
00004 000292 00243
00004 000028 00067
00001 001418 01364
00001 00141D 01366
00004 0003FO 00340
00004 002100 02154
00004 0020F6 02090
00004 002124 02102
00001 00330E 03295
00006 DaOSIC 00416
00004 000547 00426
00004 000508 00410
00006 000502 00409
00004 0031E8 03207
00002 002142 02111
00004 002320 02244
00004 00237A 02271
00001 003082 03085
00004 00043A 00359
00004 0OO44·E 00364
00004 0()04 F.1l. 00407
00004 000456 00366
00004 0004F6 00406
0605
0074
00004 0OO45E 00368
3225
3256
1383
2894
0614
2895
2006
0102
0121
0126
0123
0124
0196
0197
2512
2568
2'578
2596
2589
0059
0066
0138
0140
0103
0091
0171
0128
0135
0148
0149
0142
0087
0164
0210
0117
0122
1402
1465
146f'
1492
1496
2010
2030
2882
2026
2392
0132
0137
2867
0115
0200
0205
1167
1224
1235
0382:
0384
0386
1405
2897
2886
2888
2889
2891
0392
0394
0396
0399
0131
0176
0190
0160
0199
0193
02.01
0208
0223
0235
0238
0051
0195
0204
0240
0241
0242
1173
1181
1214
1205
1302
1293
1306
1316
1172.
0339
3257
0799
0812
0833
0836
0840
0850
0346
0362
0389
0 /t 2 e
0367
0369
0371
0373
0375
0378
0380
0246
2115
2089
3229
2091
0767
0341
0771
0419
0348
0350
3205
2113
2153
2256
0710
0432
0432
0343
4079
0858
0432
0365
0432
1
10/28/71
2297
040')
BL5D
PAGE
CR.CSS-REFEKENC~
SYMBOL
BL5E
Bl5F
BL5G
Bl5K
BL5l
BL5P
BL5PER
BL5RER
Bll)S
Bl5T
Bl5U
Bl5Z
BL51
Bl52
Bl53
Bl59
gODY
BSP
awz
BWIA
BWZB
BWZRA
RWIBCH
SWZLI
BWlW
BWZWA
BWZWR
BWZWBA
BWZWO
SWZO
C
CARD
;';""'''T"Ar'l
.... J.\l"\lJ.\D
CC
CCAFSK
CCOONE
CCIMSK
CCIMSP
ceL2
CCNOW
ce1
eel
COLOAD
CHGA
CHGROCD
CLEAR
CLR
CLRI
ClI
Cl4
COUNTE r\
CPR
CPRTBL
CRDEOF
CS
LEN
VALUE
CEFN
00004 000466 00370
00004 COO46E 00372
00004 000476 00374
00004 ()OI)47~ 00376
00004 0OO4B.A 00379
00004 0004E6 00402
00004 0OO4DE 00400
00004 000402 00397
00004 000492 00381
00004 0OO49A 00383
00004 0004A2 00385
00004 000486 00390
00004 0OO4AA 00387
00004 0OO4CA 00395
00004 0004EA 00403
00004 0004C2 00393
00001 OOl41C 01365
00004 001788 01610
00004 COO64C 00436
00004 0OO6FE 00481
00004 0OO6EA 00476
00004 OOQ6DE 00473
00004 000742 00498
00004 000616 00447
00004 0006C6 00467
00004 000736 00495
00004 OQ07?A 004·92
00004 0OO71E 00489
00004 000712 00486
00004 0006D2 00470
00004 000754 00506
00004 0037DC 03494
rr." r'\ r\. L
OOlF-58
00006 OO165A
VUUUO
00004 OO16RA
00004 001134
00004 00160E
00004 OO16A2
00004 001676
00001 001706
00004 OO16CE
OO(Y04 0016F6
00006 00248E
00004 002212
00006 002242
00006 00236C
000Q4 002686
00006 0026BE
00004 COO78C
00004 000776
00004 002E16
00001 0032F4
00001 000815
REFEt{ENCES
0432
0431
0431
0431
0431
0429
0430
0430
0430
0429
0428
1195
1212
1244
1245
1247
0480
0484
04&7
0490
()493
"'£'I.~1
';21'\ I
":tr,
0435
3228
04'>7
0491
0455
0494
0491
0471
0474
0488
3258
2236
2251
2261
2938
L.1.7L
L.J.7J
L.LV I
.... ""£'1."7
.,r,C,L
L70U
::;IV::'!'.
158,4
0383
03RS
0387
0549
2396
2914
2947
0453
0468
0437
0496
0449
0465
0463
0461
04~9
0451
0505
2211
1"\-,
.... 1',.., ....
1529
3261
Co. 1.
01530
01553
1538
01587
01562
01547
1546
1537
1540
.... 1
';1
L
01'536
1532
01572
01558
01'568
02328
02175
02188
02268
02495
1552
1556
1566
2285
",,::. '1
r-z """}
1561
2241
2162
2210
2293
02497
2499
00522
00515
02962
03284
0501
000'01 0032FC 03281
00004 0009<)E 00632
0431
0433
0430
0428
1168
1602
0519
0509
1453
0381
Q53E
0361
0631
3224
2
10/28/71
0432
0432
.... " ) " I r
V..::tU"-':)
OO~57
PAGE
."
JV~J
..n..'
/.;/4-
-r-r
." £. !'_
1
.:.'{,..'" ....
CROSS-REFERENCE
SYMBOL
CSCCM
CSll
CSLIA
CSl4
CS2
C53
CU
CUCCW
CUDCB
CUECB
CUIOB
CUI
L
C'.i\~
t_ i It
VALUE
REf;:;:RENCES
DEFf\:
OOOO'f- 0OO9CE< 00642'
00002 0009([ 00644
00006 0009EO 00650
COOO/t 0009C4 00641
00004
00004
00004
00008
00004
00004
000QF6 00656
00('108
03327
0OO9FA 00657
001744
0011FO
003694
0036AO
003680
001794
002006
002012
OO?CB?
01593
01640
03328
03330
0640
0633
0649
0635
0652
0655
1592
1606
1614
1615
1616
1607
2890
2893
CVAD34
00004
00004
00004
00004
02867
2007
CVAD4 A
00004 002C2E 02828
CVAD4B
CVAD4C
CVA04D
CVAD43
OOf)04
00004
00004
00004
2850
28413
2846
2841
eVAD3A.
CVAD3B
CW
CWll
CWl4
01613
02892
02895
002C8A 02851
002C92 028'53
002C9A 02855
002C28 02826
00004
000(}4
00002
00002
00101
0697
00708
0695
0532
0
01746
0'541
1745
DCHAR
00001 0032F5 03285
0409
DCHART6l 00004 00054C 00428
0753
1562
0357
C2
C3
C4
C4A
C5
C6
DOLEN
DECADD
DE'CIMAl
DECON
DGCCIO
DGCC2
DGCC3
DGCC4
DGCC5
DGeC7
DGCUR
~rc"-I""'.I"'\-'
COO02 0026B4
0(1004 001414
00001 ooi418
00004 00139A
00004 00225E
00004 0022C6
0054·9
"..".,...rr-·
"t
V\,)?:> .1
00553
0552
0546
'"
V7,:)V
,,~-:.:
?197
00227C 02201
002266 02196
0022FC 02233
002F54 03044
OO?F50 03043
002FEC 03051
002F3C 03038
002FE4 03050
002E88 07992
2199
2203
OO(lO4
DGEXIT
DGSAVE
00004
00004
DGI
00004
2024
284·3
0071
0672
01360
01361
0702
1024
0309
0709
0411
0414
0712
0731
1046
2039
1049
2042
106R
2095
0456
0458
1530
1535
0441
0734
1119
2098
044'+
0762
1161
2735
0513
0516
0871
1647
O!,;!92
O~96
0825
1164
0880
1650
0934
1749
0460
1536
0462
1539
0464
1541
0748
1547
0149
1553
0751
1555
0554
,,~.
;
1"\
U:J"+V
3235
0418
0755
0446
0448
0450
0452.
0885
1425
1431
1563
1565
2100
1428
2101
13~4
1341
1330
1343
02491
(10004 002?BC 02?()1)
OGERR]R
2021
2854
0528
01330
02194
02220
DGENG
026';
0682
1021
0303
1002
1897
0259
0679
1005
2004
2027
2852
0544
1188
1174
1323
2219
2191
00004
00004
00001
00004
00004
3327
1611
3267
Of,93
0699
1612
1609
1891
00004 OOOA7h 00694
1610
3325
17~2
1181
1327
22(14
2189
2217
2201
2970
2218
2206
3026
2966
2962
2964
303B
3
10/28111
1626
1622
0604
0939
00004 OOOAl3f O()114
00525
00533
00536
00545
3227
1608
0068
0642
0942
0063
OOOA92
OOOAAA
000798
0007B4
00006 0OO7RC
00004 0OO7E8
00006 0OO7F8
00004 UUVOVL
00004 00080A
00004 00196C
CWl7
C1
PAGE
3021
2975
3037
302S
2103
0454
1433
CROSS-REFERENCE
SYMROL
OGIO
DGll
DG12
DG13
DG14
OG2
DG20
OG3
DG4
DG5
OG6
DG7
DG8
DG9
DIS
OISPMSG
DISl
0lS2
DIS3
DIS4
DOLLbR
OOLSIGN
DSMRKR
DUMP
OUMPADR
DUMPClk
OUMPCORE
OUMPDONf:
OUMPLOOP
DUMPOP
OUMPSAV2
DUMPSW
1""\1
LEN
VALUE
DEFN
2976
2918
2982
2984
2987
2993
f'\f'\f"\I"\L
17LL
f"\f'\l£)£)L
n17J:::O
VJ.l..Jt)
VVVV~>
\,lVJ.77L'
OlA
00002
00004
00004
00002
00002
00004
001980 01764
001BOO 01860
001810 01865
OOlB3E 01817
0019CA 01711
010
011
012
02
03
04
D4A
05
06
07
08
OQ
09A
ENDCRTP
E"4DISP
Eoe
EOJIAR
EXIT
REFERfNCE::S
00004 002E70 02986
00002 002E3~ 07971
00004 002E78 029f8
00004 002Ef:O 02990
00004 002E4C 02917
00004 002EEA 03017
00004 003000 03057
00004 002F28 03033
00004· 002F38 03037
00004 002F20 03031
00004 002EFC 03022
00002 002EF6 03020
00004 002ED? 03011
00004 002EE2 03015
00004 002604 02506
00002 0021A4 02554
00004 002608 02')07
00002 0026FO 02513
00006 002116 02522
00006 002726 02525
00004 0013B4 01324
00004 001420 01369
00001 a028ce 02558
00004 n02A26 02682
00002 007A4A 02691
00006 002A3A 02687
000Q4 002996 02647'
00004 OOZA02 02672
00004 0029C8 02658
00004 002A46 02690
00008 002A50 02692
00002 00154C 01452
I.JJ.
2991
3013
3014
3015
3016
3019
3036
3030
3032
2539
2542
2543
2548
2549
2650
1356
252.2
2653
2538
2656
2670
2651
2h58
2669
2665
2672
2685
2688
1829
1830
1831
212~
3637
2995
3054
2997
2973
2999
3023
3029
3009
3010
3008
3012
2295
2538
2512
2508
2520
2524
1329
1229
252l.
2684
7305
2660
2671
2683
2664
2649
J.. 'U\')
1760
1162
1804
1861
1875
1768
1859
00004 OOlODA 02946
00006 000992 00678
3512
0606
02642
2985
1864
1197
1790
1789
1799
1792
1&01
1836
1824
1821
1845
2554
2636
01363
1260
1286
1290
01368
01322
1115
12.64
13~4
1288
4
10/28/11
2989
001902 01115
0019DA
01718
OOOO't
00004 0OlAIO 01793
00002 0OlA14 01194
00004 001A34 01803
00004 OOlA4-4 01808
00004 0011\86 01821
00004 OOlA9A 0lA3Z
00004 OOlACE 01847
00001 002FE2 03049
00001 a02BOC 02557
00004 002988
FIRST
00001 OO141A
FIRSTDCl 00001 OO141F
00004 OO137C
FLDOL
PAGE
1300
1312
3035
3054
CROSS-REFERENCE
SYMBOL
LEN
FLOAT
FNDLGA
FNDLGB
FNDR IV
FNDRVI
FNDRV2
GETCORE
H
HALTWTO
HLDBCH
HlTADARA
HLTIAR
HlTWTO
HI
HIA
HZ
H3
H4
H5
H6
IHBOO28A
IHBOO29
IHBOO34
IHBOO34A
IHBOO40A
IHBOO41
IH80042A.
IHBOO43
IHBOO62
IHBOO62A
IHBOO63
.1
tr,nn
L
n DVV 0
DEF!\!
REFERENCES
00006 003100 03137
1170
3140
OOOG? 003112 0314 I
00002 0030FE 03136
00004 00311.8 03144
07R7
0764
00001 001419 01362
Ft-~DLNG
T1
VALU:::
'"':::" A
:J.I-.\
I HBOO64
IHBOO64A
IHBOO65A
11-160066
IHBOO67
IHBOO67A
IHROO68
IHROO 6 st,
IHBOO73
IHBOO73A
ILEGLN
00006 003120 03146
00004 003136 03151
00001 002180 02130
00004 000896 00561
00004 002DIE 02900
00003 OOOAOA 00661
00006 0OO98C 00621
00006 00099B 00629
00004 00202C 02905
00002 0008B6 00575
00004 0OO8F2 00589
00004 000922 00600
00006 0OO93A 00606
00004 00094E 00610
00002 000966 00617
00004 0OO97A 00622
00002 002210 02173
00001 00220F 02172
00001 0022F6 ()2229
00002 0022F6 02230
00002 002452 023?0
00001 0024')1 07319
00002 002552 02382
00001 002552 02381
00001 002AFE 02751
00002 002AFE 02752
00001 00282B 02765
""".L.
Ve:IOO
VVVVe: VV£De:\., n.
02779
00001 002B5A
00002 002B5A 02780
00002 002ClE 02818
00001 002elO 0.2811
00001 002053 02909
nr\.A"'" "':
rtr\~tI.."r
£.
00002 002D54 02910
00001 002D92 02925
00002 002092
00001 00302E
00002 00302E
00004 002836
02926
03061
03062
07770
00004 002'308 O?7 f)6
ILEGTAPE 00004 002ADC 02742
IXTMP
00001 002CAF C2861
JOBNAv,E
LASTDIG
LeA
LeAll
1232
1322
OR?7
0853
1070
1136
1613
2404
2603
2712
3149
3147
2123
0566
2128
3266
0600
0638
0578
0659
0579
0594
0598-
0619
0620
0621
0518
0519
0568
0606
0580
0510
0584
0572
0585
0586
0587
0589
0594
0598
0599
0588
0590
0351
1390
03~\3
C430
1419
0511
1464
0574
1478
0637
1491
0670
1501
0700
1534
0729
1594
0932
1401
3197
3248
3207
3250
3217
3251
3220
3221
3253
3222
3254
3223
3255
3226
3262
3233
3264
0583
0582
0602
0608
0577
0626
2165
2169
2226
2225
2312
2316
2374
2378
3619
0593
0597
0257
1044
0301
1159
0344
2001
0757
2019
2037
1434·
3240
2748
2747
2767
~-PL"
£ltJJ.
2776
277'>
2810
2814
2906
2905
2927
2921
3058
3057
0061
1019
0466
3237
3269
3150
2826
00008 003403 03303
00004 001424 01370
215 -r
1248
00004 OOOF42 01036
000')4 aOOF7A 01051
1035
1041
3238
1063
3239
3270
2842
2279
1340
3242
5
10/28/71
3138
IH89
I l EGOD
PAGE
2844
1378
7093
1605
3245
3252
1645
1000
1141
3236
3268
CROSS-REFERE-NCE
SYMBDL
LEN
VA,LUE
DEFN
OOOF7~
00004
OI05t.'
1051
lCAL4
LCAl7
LeAR
LDTCCW
LDTCCW 1
LOADMD
LSTBCH
M
00004 OOOF70 01046
1039
1037
1043
2408
3651
2151
0766
0855
0422
04·98
00008 003648 03315
00008 003650 03316
00002 003082 03086
00004 0032FB 032.86
00004 001800 01644
I"1A.
00004 OulB4C 01884
MACREGSV 00004 0035E8 03310
lui A
1643
188.3
0774
2117
2308
MAL4
MAL4A
MAL4R
MAL4C
MAL4D
MAL4E
MAL'tF
MAl4G
MAL4H
MAL41
MAL4J
MAl
MBC
MBCl
MBCZ
MBD
HBDI
MBD2
MBD3
MCE
MCEI
MCEIA
MCEIO
00004 001882 01899
00004 001BC4 01918
00004 OOlBDR 01923
00004 001C14 01941
00004 001C28 01946
00004 001C64 01964
00004 001C78 01969
OOOO/t OOlCA4 01982
00004 001CAC 01984
00004 001cee 01994
00004 0OlC04 01996
00004 001B64 01890
00004 000D74 00906
00004· 000084 00910
00004
OQOD9A 00916
00004 Dooooe 00876
00004 000D38 00889
1J0004 DOOD48 00893
00004 OOOD~~t- 00899
00004 OOIOEC 01158
00004 001148 01182
000Q4 001164 01189
2742
2954
1887
1915
1918
1938
1941
1961
1964
1919
0913
0154
0904
0890
0896
1157
1180
1186
1275
1317
01297
MCE12
00004 001338 01306
1301
MCE13
00004 001348 01310
MCE14
MCE16
00004 001362 01316
00004 OO13C2 01340
00004 001308 01345
00002 OO13DC 01346
00004 0013AE 01335
00006 0013E2 01348
00004 OOllA4 01205
00004 0011 AC 01207
00004 0011R6 01210
OO()O4 00 llCF 01216
1281
1313
Met: lO.A,
MCE16B
MCE16C
~CE16D
MCE2
MCE3
MCE3A
MCE3R
2606
0862
2158
2370
2756
3052
0863
2159
2410
2157
1076
2176
2411
2110
3071
1077
2119
2535
2111
2805
3090
1920
1921
1922
1943
1944
1945
1966
1967
1968
1292
1294
1296
1298
1303
1277
1283
2715
3219
32i8
3070
1141
1443
2244
2621
2916
3179
157S
2245
2673
2911
2258
2934
2935
3091
1442
2221
2625
2901
3118
1576
2257
2674
2806
3114
2220
2609
2900
3115
1305
1307
1309
1311
1315
1319
1321
2205
2536
1142
2208
2608
142.9
1895
1885
0886
0901
1279
1291
1210
MCEIOC
2407
1992
1994
MCEIOD
MeE1I
01785
01320
01287
01290
01293
1138
198?
OO(H)I~ 00121:4
00004 a01374
00004 0012EC
0(1004 OO12F8
00004 001304
00004 001314
MCE10A
MCEIOB
1072
2738
0775
2119
2369
2743
301)1
0923
0908
0914
0156
0891
0897
3260
1226
1333
1342
1344
1339
13~O
1200
119'+
1196
1211
1202
1198
1204
1213
6
10128111
REFER.EtvCE S
LCA.lIA
00004 OOOF66 01045
00004 OOOF96 01059
PAGE
1236
1206
16182718
1619
2307
2719
2953
CROSS-REFERENCE
SYMBOL
MCE4~,
LEN
VA,LUE
DEFN
MCSLIC
MCSLIE
MCSLIF
MCSLIG
MCSL1H
MCSllI
00002 0011DC 01220
00004 OOllEC 01.225
00002 001101: 01221
00004 OOlIF8 01228
00004 001216 01235
00004 00123C 01244
00004 001254 01250
00004 001274 01258
00006 001290 01265
00004 OO12RE 01276
00004 001054 Q2034
00002 OOIOCA 02067
00006 00lDDE 02074
00006 0010£4 02075
00006 0OlDFO 02077
00002 OOlDA8 02057
00002 001090 02050
00004 001078 02044
00006 001D7E 02046
00004 0010C2 02065
00006 OOlDEA 02076
00004 OOlDA4 02056
00004 0000R8 00927
00004 COODF4 00944
00004 OOOE14 00952
00002 OOOE24 00956
00006 OOOE34 00961
00004· OOOE62 00972
00004 OOOE72 00976
00004 OOOE7f 00979
00004 OOOE96 00985
00004 OOOEAE 00991
MrCf7
,·'v
....:,L- •
V\..lVV
MCE5
MCE5A
MeE5e
MCE6
MCE6A
MCE7
MCE8
MCEBA
MCE9
MCM
MCMBUMP
MCMCHCLR
MCMCHMOV
MCMCHORC
MCMDECR
MCMHIT
MCMll
MCMSCA~
MCMSW
MCMWMCLR
MCM256
MCS
MCSLI
MCSllA
MCSLIB
An nA I.
~T
r.I')n!")cn
\ ..f
VV"'J~L
(\("\07Q
'-.l
V. \.J .,I oJ
00004 OOOAD2 00721
MCWLI
00004 OOOBOA 00736
MCWllA
00004 OOOBle 00140
00006 OOOBOE 00737
MCWllB
MCWL4
00004 000800 00733
MCWL7
00004 OOOAF6 00730
MeW8
00006 OOOf338 00748
MINPRD
00001 001964 01742
MN
00004 OOOEB6 00995
MNLI
00006 OOOEEC 01010
MNL4
00004 OOOEDS 01004
MOD
00001 002318 0224·2
OOOO? 001394 01328
MOVDOL
MOVEPARM 00006 002I7A 02129
00004 001968 01743
MPYSAV
MUREXII 00004 00375C 03424
MURLIST 00001 003758 03421
MZ
00004 OaOEF[ 01016
00004 GOOF22 01026
MlLI
00004 OOOF32 01030
MlL1A
Ml
00004 001824 01655
M10
00002 001948 01734
MCW
PAGE
Rt,'FERENCES
1234
1209
1231
121-'
1190
1240
1246
1227
1263
1268
1289
1272
2033
3246
2065
2059
2058
2061
2053
2047
2035
2049
2044
2060
125-1
1219
1192
1242
1
10/2.8/71
1253
1257
1223
1.215
2012
2054
2069
0926
3232
0928
0937
2071
_ .._._---------- .
0959
0951
0975
0966
096$3
0970
0984
0990
0992
0973
0964
0980
0986
0982
0988
/"\c-:tr\
VJJV
0720
3243
0726
0737
0746
072 /t
0722
0728
1615
0994
0996
0998
2161
1325
1127
1652
0738
1678
1008
-
2177
1735
3422
3390
101:,
1017
1027
1660
1731
1737
3259
3460
3231
1029
2329
2403
-~--~--~
-_.----
CROSS-REFERENCE
SYMBOL
MIl
M2
M3
M4
M5
M6
M1
M8
M9
NXTOP
LEN
DE F;\;
VALUE
REFERENCfS
()O002 00195 E 01740
00004 00183C 01661
00004· 001860 01670
173f
1657
1666
0167')
01679
01684
1671
00004
00004
00004
00004
00004
00004
00002
001814
001882
001894
OOl8A4
01690
OOl8ED 01707
00192C 01727
r~~"
"t
t .....
r ..
uV.::J 1 nr:::
0319~>
1677
1726
1715
1704
1686
D15?
P
PAKT
PANEL
PANEll
PCHARA
PCHARAA
PCHARI
PCHERR
00001 00255C
00004 0021EC
00001 0032F3
00004 00145e
00008 003510
OOOO?
02386
02161
03283
01387
03305
02783
00006 002BB4 02802
00080 0033~3 03302
00001 003362 03300
002~60
OOOBO 003363 03301
00001. 00330F 03296
00004 001414 01394
PNLWT!)~~
00004 002904 02810
post
66601 0032.FD 03288
PRNTBUFF 00001 003518 03307
PL1.
CJ287
0431
0611
0978
1424
2011
0431
3230
2334
2445
2500
2157
0153
1386
0618
2755
0390
3211
0619
2769
0391
1769
2395
2360
2361
3069
1522
3080
1524
2801
3068
1520
3080
0400
1388
2786
0013
1438
2532
2787
0136
1439
2533
2996
2998
1447
PRNTDCR
PRTERR
00004 0036F8 03370
00001 003311 03298
1440
0403
bOOOl
0032FO 03280
0395
PRTP9
00001
00004
00004
00004
00001
00004
00006
00004
00004
0032EF 03279
0393
1391
2635
1373
0391
1379
2915
0608
1375
1317
1391
1399
2156
2302
2525
PRtpf2
PUNCH
PUNCHR
R
RORERR
READ
REA02
RETURN
RLI
Rl4
RP
RPlI
RQST IN
RQSTND
RT
RTCCW
RTCCwl
00006
00004
00004
00050
00001
00004
00008
00008
00303R 03066
00317C
00142A
003310
002D5C
03440
01374
03291
02914
OOlOge 02<}30
00367A
00143E
001446
00147C
OO14A2
00245C
03371
01:379
01381
01398
01407
02324
1733
0247
1770
OKWTOR
OVRFlO
166f
1673
0212
0430
0550
0924
1409
1997
0503
0905
1380
00330D 03294
OOOf362 00761
0750
003658 03317
003660 03318
2150
0773
0331
0432
2335
0402
0412
0707
1259
1521
2367
0406
0415
0718
1331
1523
2446
2580
2785
2786
2791
2792
2793
2794
2795
2.795
2802
2803
1551
2548
1 '559
2951
1560
2952
1571
2958
1580
2963
2617
2949
2957
3018
3017
1480
3033
3034
1484
14·95
1500
2290
2368
2804
0360
0433
0677
1058
0363
2066
1485
2105
0433
0689
1114
1501
2108
252:'
2526
2579
1526
2639
3075
3081
2788
27&9
2790
2792
0141
1445
2534
3003
1573
0209
1545
2546
3040
2632
1550
2547
0616
1013
0658
1456
2031
1472
1033
0388
0469
0691
1155
1519
0421
0479
0747
1353
1588
3189
0428
0482
0820
1630
3215
0428
0485
0875
1358
1741
32.16
1585
2965
2254
2968
2530
2992
2531
2994
2292
2294
2376
2812
2453
3647
2296
2506
2298
2517
2522
0425
0417
0744
1336
1564
2741
1.355
2929
0401
1448
2542
3039
1579
-:tnL..f\
-.IV
JI:'I;')!
0404
2980
2979
1394
2990
2988
2638
3066
3000
3001
1408
3074
1382
1403
1407
1467
1471
1494
1499
2330
2347
2397
2234
2.281
2314
2282
2344
2284
2306
2355
2579
2601
?60?
2710
2286
2360
2711.
2288
2368
2804
1404
3208
0398
3212
2156
2566
2167
2306
2574
1075
3625
2304
8
10/28/71
0154
0430
0548
0921
1395
1880
3244
2347.
0429
OKSTT
PAGE
2300
CROSS-REFERENCE
SYMBOL
RTW
LEN
Vl:LUE
DEFN
REFERENCES
1060
1109
RTWZA
00004 OOQF,l\A 01067
00004 001002 01093
00004 (;01030 01104
00004 00103£ 01107
RTW3
00004 001056 01113
lOQ4·
1111
00004 OOOB8e 00172
RT3
00004 OOO:;DA 00796
00006 OOOBF6 00802
RT3A
RT4
00004 Cloacae 00807
RT5
00006 OOOCIC 00811
OO{)O6 OOOC2A ()O814
RTb
RT1
00006 000C30 00815
RWD
00004 001178 01606
RWOCCW
00008 003670 03320
RWDCMD
00004 002A7C 02710
RWU
00004 0017DO 01631
RWUA
00001 0017E2 01636
RWUClOSE 00004 003196 03178
00004 OOlCDC 02000
SAR
SAV~
00004 003300 03290
SAVCSW
00008 003630 03311
0769
0794
0806
RTW1
RTW2
RTI
SAVFJ\RFA 00004 00351\0 03309
SAVEDD
SAVE5
SBR
SRRLI
SBRL4
SENSEA
SENSES
SENSEC
SENSED
SENSEE
SENSEF
SENSEG
SETBCH
SETBlK
SETBSI
SIGDIG
SIGNDOL
SIMCOR
Pt,GE
10/28/71
1096
1103
0800
0197
080b
0809
0810
0813
1596
2716
2301
1600
1634
3657
1639
1999
0159
0-790
0176
3241
0217
1089
2309
29f)5
2371
3161
lO7E
2412
3053
3012
3166
1143
2537
3092
2013
3263
0660
1384
1393
0052
2154
1274
1352
1454
2849
3435
1332
2152
2851
2152
2853
23?E'
2931
2328
2331
2932
29~3
2332
2943
2425
2944
2443
2951
2495
3041
2363
2459
2461
2469
2510
2516
2519
2528
2570
2576-
2582
0864
3169
1444·
2610
3116
3174
1577
162G
2118
2744
£'160
2.758
2209
2222'
2675
2116
2720
2180
2626
2772
2801
2902.
1406
1422
1't58
1469
1482
1497
1514
1590
2246
2918
2259
2936
26~·2
2655
3068
3079
2665
3082
318n
00004 0026liO 07490
00004
00004
00004
00004
0026AC 024Qg
nOlDOC 02014
001D40
OOlD2f
00001 0032E8
00001 0032E9
00001 0032EA
02028
02023
03212
0032EB
V::JLI:J
V.:;lOC
00001
00001
0000 1
00001
00004
00004
00004
0000 1
aono 1
00001
03273
03274
1"'\. """}..
""-k r-
noo"}
SINTBL
00004
SKP
00004
SNOIlG
SS
SSDGI
00006
00004
00004
S5DG2
SSDG3
00004
00004
SSOG4
SSDG5
00004
00004
rt.,.~,
0032EC 03276
0370
0372
003lEE 03278
002AC6 02135
003714 034·33
002148 02115
00141£= 01367
001428 01371
000000 04077
0374
0408
3427
0051
1171
1116
000000 (1000 I
(lOlB4P 01881
001790 01612
002420 02306
OO15FE 01504
00163A 01520
001626 OISi?
001642 01527
OO160E o i '508
00164A 01524
2470
1"1
0032ED 03217
SIMLIMIT COOO4 003304 03291
SlM14 r q
2017
2015
0359
0364
0366
0053
2666
3083
2140
1243
1228
1438
2667
2855
1870
1604·
2~c:.:')
oJ ... l-
1503
1516
1505
151E
1509
2351
3241
9
CRDS$-REF-ER.ENCE
SY~1BGL
S5DG6
SSDG7
SSEND
SSIN
SSINI
START
S TARTI
START2
START3
START4
S TR I PWi'V\
STRST
SUPRES
SW
SWLI
SWl4
SWL7
TAPADR
TAPEARft\
TAPEDCBO
TAPEDCBI
TAPEDCB2
TAPEDCB3
TAPEDCR4
TAPEOCB5
TAPEOCR6
TAPfDCR7
TAPEDCB8
TAPEDCB9
TBHNTH
TBTENS
TBTRCP
T n T I. I ill.!
J r> I ""tU!'"
TCPR
TeR
TEMPI
TEMP?
TERMINAl
TESTA
TESTAA
TMDCB
TMECB
TMIOR
TMPARA
TPCCW
TPCSW
TPEOF
TPERR
TPLDI
TPlD2
TPLD3
TPLDAD
TPTBL
LFN
00004
00001
00006
00004
00004
00004
00004
00004
D E·F~~
001652
0016lE
002670
0026?C
00263A.
01526
01512
02470
1511
1525
2457
02453
02456
02342
02349
02355
02360
2283
0024EZ
00006 0024F-8
00006
00001
00002
00001
002516
001FF6
00255E
00330C
00004· OOOAOE
00004 OOOA56
00004 OOOA2A
00004 OOOA42
02368
02087
2289
00664
00684
00671
0067R
00004 004088 03857
00004 0040EC 03RB9
00004 004170 03921
OOOO't 004154 03953
00004 004188 03985
00004 0041BC 04017
00004 OQ4lFO 04049
00002 003R3C 03545
00002 00393C 03561
00016 0OO2A4 00248
0038BC
t"\ -:li c:: c:: .,
V":;'JJ"::';;
00001 000812 00555
00002 000813 00556
00001 002C30 02862
00001 002eRl 02863
00004 002958 02625
p::~"'"
. ..JL {
23~4
2359
2343
2076
0945
0663
0669
0667
0665
1638
0789
0963
0971
0983
1169
1256
1258
1273
1284
1297
1310
3345
3347
1121
3349
3351
2148
... ?~~.
.1
..... ~.....
3355
3361
2426
3363
3170
3365
3672
2150
3357
2151
3359
2149
0551
0539
0553
0539
0325
0326
1183
lE52-
0416
1225
2103
0411
1250
2104
0418
1252
0949
1265
0954
0958
1287
1756
2358
2359
2523
2524
0961
1163
2577
0962
1767
2578
2405
2604
2418
2616
2409
2716
2414
2734
2607
2713
2697
2427
2726
2612
2267
3151
2117
2930
3162
2722
3159
2939
364?
3234
3155
0832
1092
1134
2767
333~
3336
3337
3338
3339
3340
3341
3342
3343
3344
2831
2839
0085
3601
'"'O.,C;:
LO:;;'J
0522
0536
0271
0967
1191
1757
0607
0547
0537
0281
0969
1793
1758
2303
0549
0538
0282
0985
1802
1759
3065
0315
0987
1803
1761
0989
1857
00004 002216 02176
00004 00222A 02182
00004 002A6C 02101
00004 002A78 02705
OOOOA 002A58 02694
OOORO 003317 03299
00004 002A68 02700
00001 002A61 02699
00001 0032F2 03282
00001 0032Fl 032.81
00004 002504 02427
OOOOf. 0025F8 02435
00004 002604 02437
0(1(>04 C'0257C 02402
00004 0026f:J4 02479
2323
0772
0782
0778
?18R
0773
3161
0376
0379
24~9
2428
2434
2787
3145
2385
0860
10
10/28/71
2350
03293
00004 00401C 03161
00004 004050 03793
00004 004084 03825
rtr, rt"",
2468
2291
2346
02390
00004 0036A4 03335
00004 003308 03292
VV~"UL
REFeRENCES
VALU::
0024BO
0024CA
PAGE
2821
1074
1084
0870
0866
2190
0861
1080
7194
0317
2394
2393
3164
1015
1139
1149
1145
2712
1140
3172
3173
2408
3176
2737
271h
2932
0965
1175
CROSS-REFER.ENCE"
S Yf4BOL
TPTfST
TPlI01
TPTI02
TPTI03
TRANS
TREI
TRGPWM
TRIE
TRI4BC
TRTB
TRTGMWRM
TRWDMK
TR4IBC
TSSA
TSTOPEN
TYPTBl
UROPEN
W
Wll
WL4
WM
WMl2
W""lL20A
W~256
WORK?56
WP
WPLI
WR
WRITE
WRll
WRP
WRPL1
WT
WTCCW1
WrCCW2
WTECB
WTM
WTMCCW
WTMCMD
WTORPNl
WTORTN
wT~i-
WTWI
WTW2
WTW3
WTl
WT1A
WT1B
WT2
WT3
WT4
W14A
ZA
ZALI
ZAllh
L.E\
VALUE
OEFN
REF ER ENCE S
00006 00315B 03161
00004· 003186 03173
00004 003190 03176
0786
3167
03165
02281
3163
2.118
03564
03589
003H5C 03574
003CIC 03585
00395C 03563
001EF6 02080
0901
3137
00001 00316!J.
00006 0023A2
00001 003A5C
00001 003C9C
00016
00001
00001
00001
00001 003D9C 03590
00001 003BDC 03582
00001 00267A 02412
00001 0030R4 03087
00001 003E1C 03592
00004 0030C2 03112
00004
00004
00004
00006
0014AE
0014DA
OO14CE
0014E2
00004 0014F6
00006 001516
00001 003408
01412
01423
01420
01425
01479
01438
03304
00756 OOlOF6 O?O79
00004
00004
00004
00004·
00004
00004
00004
00004
00008
00004
00001
00004
00006
00006 OOOeR?
oon04 oooe R. '=:
00004 0002C4
00002 0OO2FA
[,0006 0OO30A
1153
2187
0814
1100
1106
2431
2436
2592
2667
2930
0842
OH52
1130
2533
2190
2803
2952
3069
2464
1011
2470
1137
2605
2714
3599
1617
3601
2406
3598
2950
2648
2686
3209
3655
2074
2077
2~21
2531
2534
2931
1466
1470
1479
1483
1493
3627
2149
2186
2186
2315
2377
2813
2471
2501
2552
2586
2620
3588
3199
2046
1439
2541
3582
3584
2.454
0165
2281
1441
1411
1413
2454
OkS4
3597
1574
2641
1437
141~
1417
1421
1432
0798
0811
2076
3213
01470
01488
1462
1487
32.14
01498
00824
03313
03314
1489
02601
2299
02804
2797
0609
01129
01134
OOR37
0084·3
00859
00847
00849
00852
2255
2681
2730
f "Jt:.
01608
03319
01123
1498
"'~r'.-"
v
OR61
0828
2168
1598
2607
02243
3061
1436
3210
1423
01461
a
00106E
001086
OOl09E
OOOC76
000C92
000C06
OOCCA2
OOOCAA
1088
02949
001598 01415
00006 0021D4 02156
00004 OO'105E 01 if
00004
00006
00004
00004
0586
3586
1140
1135
2182
3653
2199
2280
1062
1133
1126
1124
OR)')
O~46
0841
0857
0838
0847
0848
00853
08~1
00252
00267
00212
0251
0253
0279
326~
0263
11
10/28111
0874
2015
1474
1476
1460
1420
001588 014113
001566
0020E4
001SSC
00I5C4
aOI5E!:
000C48
003638
00008 003640
00004 00231C
00004 001780
OOOOR 0036613
000Q4 002912
00006 002liCO
PAGE
CROSS-REFERENC~
SYM30L
ZALIC
ZALID
ZALIE
ZAL7
ZEROSUP
ZS
ZSL4
ZSL4A
ZSL4C
ZSl40
ZSl4E
ZSL4F
lSI
IL L.
r;: ~.'
t-...t
Vt\LUE
DE F·r'-J.
00004 000328 002eo
00002 0OO33C
00004· (00344
00004 0D02DC
00004 001410
00004 0OO35,A
00002 000390
00006 0OO3AO
00004 0003RE
00002 000302
00004 0OO3DA
00002 0OO3E2
00004 000312
REFERENCE S
00285
0289
0283,
002BE
0217
00258
01359
00296
00311
00316
00324
025::~
00329
00332
00334
0030?
PAGE
10/28111
0293
1255
0295
1341
324q
0299
0323
0307
12
1345
0336
0327
0337
0320
0297
NO STATEME~TS FLAGGED IN THIS ASSEMBLY
*STATISTICS*
SOURCE RFCORDS (SYSINJ - 3223
SOURCE RECORDS (SYSLIB) = 3497
*OPTIONS IN EFFECT.
LIST, NODECK, NOLOAD, NOREN1, XREF, NOTEST, AlGN, OS, NOTERM, LINECNT
4873 PRINTED LINES
=
55
IEF28S1
IEF2851
I EF2851
IEF2851
lEF2851
I EF285 I
IEF2851
IEF28S1
IEF285J
IEF2851
IEF2851
IEF2851
I EF285 I
CSPC5ALS
VOL SER NOS= CHQRES.
SYSl.MACLIB
VOL SER NOS= CHQRES.
SV$713bl.T134413.RVOOO.SPDVPR.SYSUTl
VOL SER NOS= SMFVOL.
SYS71301.TI34413.RVOOO.SPOVPR.SYSUT2
VOL SER NOS= SRTONE.
SYS71301.T134413.RVOOO.SDDV D R.SYSUT3
VOL SER NOS= SPOOL2.
SYS71301.T134413.SVOOO.SPDVPR.ROOOOll1
VOL SER NOS= WORKOI.
KEr1T
SYS71301.T134413.SVOOO.SPDVPR.ROOOOl12
DELETt-D
IEF2851
VOL SER NOS= WDRKOI.
IEF285 I
CSPDVPRS
KEPT
DELETED
DELETED
DELETED
SYSDUT
KEPT
IEF2851
VOL SER NOS= T04616.
IEF3731 STEP IASM
/ START 11301.1347
IEF374I STEP IASM
I STOP
71301.1353 CPU
STEP COMPLETION CODE: 0000
106/230
0/230
1148/345
1127/341
lHIN 06.15SEC MAIN
955/332
56K lCS
0/205
169/205
STEP EXCP COUNT:
DISK
3505
TAPE
164
UNIT
IEF3751 JOB ISPDVPR
I START 71301.1347
IEF3761
JO~ ISPDVPR
I STOP
71301.1353 CPU
IMIN 06.15SEC
SYSTEM 55
o
OK
GRPH
164/495
0
COMM
o
TOTAL
3669
c.
IZZIZZZZZZZI
1ZZlIZlIZZZZ
II
IZ
II
IZ
f
II
II
ZZ
II
ZlllZIZZZZZ
l ZllllllllZl
EEEEEEEEEEEE
EEEEEEEEEEEE
EE
EE
EE
Ef:.EEEEEE
EEEEEEEE
EE
EE
EE
EEEEEEEEEEEE
EEEEEEEEEEEE
DDDODOOOD
1111111111
DDDDDDDDDD
IIIIIIIIl!
DO
~
00
00
00
DO
DO
DO
DO
DO
DO
00
00
DO
00
DO
DD
ODDODDDDDD
DDOODODOD
00000000
0000000000
II
fT4.
..
I I
I I
I I
I I
I I
II
1111111111
IIIJI~IIII
c
r
AAAAAAAAAAAA
AA
00
00
00
00
00
00
00
00
00
00
00
00
00
00
0000000000
00000000
AAAAAAAAf!.A
c
00
00
AA
AA
AA
AA
AA
AAAAAAAAAAAA
AAAAAAAAAAAA
AA
AA
AA
AA
AA
AA
AA
AA
AA
11
III
1111
il
11
. 1)
11
11
11
11
1111111111
1111111111
IIZEOIOl JOB
(OOOOOy2J22t595151~WEAVER,
1/ 25123),A,PRTY=4
II
EXEC lINKEXEC,Pl=SIM1491,PARM.GO='SSSA'
XX PROC
LIB=iSYS1.COBlIB~'fVlIB=CHQRESJPl=SPODUMMY,
00000010
XX
Vl=SPDWK4,REGlKEO=lOOK,REGGO=lOOK,
00000020
XX
P 2= SPOOUMMY, V2:: SPDWK4, P3= SPDOUMMY 1 V3=SPOW}<.4, P4=SPDDUMMY, 00000030
XX
V4= SPDWK4,P5=SPODUMMY, V5=SPDWK4, P6=SPODUMMY ,V6=SPOWK4
00000040
XXLKED EXEC PGM=IEWl,PARM::LIST ,REGION=®Lt<.ED
00000050
IEF6531 SUBSTITUTION JCl - PGM=IEWL,PARM=lIST,REGION=lOOK
XXSYSPRINT 00 SYSOUT=A,SPACE=(3S09,t4o,20) ,RlSE,CONTIG),
00000060
XX OCB={RECFM=fBM,lRECL=121,BlKSIIE=3509,BUFNO=1J
00000070
XXSYSUTI 00 UNIT=PACK.SPACE=(CYl,IIO,5J)
00000080
XXSYSLIB 00 DSN=&lIB,YOL=SER=&VLIB,UNIT=PACK,OISP=5HR
00000090
IEf6531 SUBST rTUT ION Jel XX 00
OSN=$VSI.COBLI B. VOL=SER=CHQRES ,UN IT=PACK. DIS P=SHR
DSN=SYSl.PLllIB,OISP=SHR
XX DO DSN=SYSl.FORTlIB,OISP=SHR
f
00000100
00000110
XX DO DSN=SYSl.COBLIB,DISP=SHR
00000120
XX DO DSN=CSPOSSPl.DISP=SHR
00000130
XXSYStMOD DO DSN=&'&GO( T J ,DISP=! ,PASS) t UNIT=PAC K ,SPACE= (CYl,« 5,1,10)
00000140
XXSYSlIN 00 DSN=CDEPTTST.&Pl •• COBJECTL,DISP=SHR,YOL=SER=&V1 9 UNIT=PACK
00000150
IE F 6 5,?J. ___ ~lJ_~_~IJ r l!IJP~ __ ~_~_!: __-=___I?_~N =c 0 EP TT Sf! S_ I M1401_ • cq BJ E(;r~_~pJ.S p =SHR .._YJ~_~_=_~t;f{~~F.'_Q!i~~_!.'-JN. T= PACK
XX DO OSN=COEPTTST.SP2 •• COBJECTl,OISP=SHR,VOL=SER=SV2,UNIT=PACK
00000160
IEf653I SUBSTITUTION JCl - DSN=COEPTTST.SPDDUMMY.COBJECTl,OISP=SHR,VOl=SER=SPDWK4,UNIT=PACK
XX DO DSN=CDEPTTST.&P3 •• COBJECTl.DISP=SHR,VDl=SER=&V3,UNIT=PACK
00000110
IEF653 I SUBST ITUTI ON JeL - OSN=COEPTT ST,. SPDDUMMY. COBJEC TL, 01 SP=SHR, VOl=SER=SPDWK4, UN I T=PACK
XX DO OSN=CDEPTTST .&P4 •• COBJECTL,OISP=SHR,V01..=SER=&V4,UNIT=PACK
00000180
l~fJ~~?J . ~LJ_B ~IrJJlIIQ~_J_~l_~DSN=CDt;~lT?T.?pDDLJM"'Y. COBJEC Tt.DI SP=SHR,VOl=SER=SPDWK4, UNIT=PACK
XX DD DSN=CDEPTTST .E.P5 •• COBJECTl,OI SP=SHR. VDL=SER=&V5 .UNIT=PACK
00000190
IEF6531 SUBSTITUTION Jel - DSN=COEPTTST.SPDDUMMY.COBJECTl,DISP=SHR,VOl=SER=SPDWK4,UNIT=PACK
XX DO OSN=COEPTrST.&P6 •• COBJECTltDISP=SHR,VOL=SER=&V6~UNIT=PACt(
00000200
I Ff65.3I SUBST ITUI iON Jet - OSN=CDEPTTST,. SPDOUMMY .COBJEC Tl,DI SP=SHR t VOl=SER=SPOWK4, UN I T=PACK
XX DO ODNAME=SYSIN
00000210
V=-El3f>J ALL_QC_~ ___£Q.!t__ ~_~QJ9_~ ____ lKED
. ______________ _
[EF2311 236
ALLOCATED TO SYSPRINT
l
IEF2371 231
IEF2371 233
ALLOCATED TO SYSUTI
alLOCATED TO SYSlIB
IEF2371 233
ALLOCATED TO
ALLOCATED TO
I EF2371 233
IEF2371 233
I EF231 I 134
IEF231 I 132
IEF2311136
IEF2371 136
IEF2371 136
ALLOCATED TO
ALLOCATED TO
AlLOCATED TO SYSlMOD
ALLOCATED TO SYSLIN
ALLOCATED TO
IEF2311 136
ALLOCATED TO
ALLOCATED TO
IEF2371
l36
ALLOCATED TO
IEF237I 136
ALLOCATED TO
F44-LEVEl LINKAGE EDITOR OPTIONS SPECIFIED lIST
VARIABLE OPTIONS USED - SIlE=t238976,16384)
****T
(
l
,
f
,
DOES
NO~
EXIST BUT HAS BEEN ADDEO
.TOO~T~SET
DEFAULT OPTION(S) USED
(
SYS70168.T094835.5VOOO.ZEDIOl.R0000010
VOL SER NOS= SPOOLl •
SYS 7o.J.6..§~IQ.94f3}.?'~~j'-QQ9.ZEDI Ol.ROOqOOll
VOL SER NOS= SPDWKI.
IEf285I
IEf2851
.. __Jtf.?~2J_
(
(
•
{
(
(
IEf2851
I Ef2851
IEF2851
SYS 1.COSL IS
KEPT
IE F 285 I
S YS 1 • Pl Il I B
IEF285I
VOL SER NOS;;::; CHQRES.
KE P T
I E F 2 85 I
S YS 1 • FO R Tl I B
KE P T
IEF2851
VOL SER NDS= CHQRES.
SYSl.COBlIB
VOL SER NOS= CHQRES.
KEPT
CSPDSSP 1
KEPT
IEF2851
IEf285I
IEf2851
IEf2851
IEF2851
IEF2851
IEF2851
IEf285I
IEf2851
IEF2851
VOL SER NOS= JOSlIB.
SYS10168.T094835.RVOOO.ZEOIOl.GO
VOL SER NOS= MIS004.
CDEPTTST.SIM1401.COBJECTl
VOL SER NOS= SPDWK4.
CDEPTTST.SPDDUMMV.COBJECIl
VOL SER NOS= SPOWK4.
CDEPTTST.SPDDUMMY.COBJECTL
VOL SER NOS= SPOWK4.
CDEPTTST.SPDOUMMY.COBJECTl
VOL SER NOS= SPDWK4.
IEf285I
IEf2851
IEF2851
IEf28s1 ······--·--cDE··p""ffsf-~··s-p·50UM-M-y~COBjEttl
(
f
I
t
,
I
(
•
,
,
PAsseD
KEPT
KEPT
KEPT
KEPT
KEPT'
IEf2851
VOL SER NOS= SPDWK4.
IEF285I
COEPTTST.SPODUMMY.COBJECTl
KEPT
IEF2851
VOL SER NOS= SPDWK4.
IEF3731 STEP IlKEO
/ START 70168.0949
IEf3741 STEP IlKED
I STOP 70168.0950 CPU DOMIN 03.27SEC MAIN lOOK LCS
OK
XXGO EXEC PGM=*.lKEO.SYSlMOO,CONO=(5,lT,lKEO),REGION=£REGGO
00000220
IEF6531 SUBSTITUTION JeL - PGM=*~lKEO.SYSlMOD,CONO=(5,LT,LKEDJ ,REGION=lOOK
XXSYSPRINT 00 SYSOUT=A
00000230
IIGO.WRITE 00 SYSOUT=A,DCB=(RECFM=FM,BlKSIlE=133,LRECl=133J
IICO.CARDOUT DO DUMMY,OCB=(RECfM=F,BLKSIZE=80,lRECL=80)
IIGO.CARDIN DO *,DCB=8lKSIlE=80
IEF236I
•
DELETED
VOL SER NOS= CHQRES.
IEf285I
(
SYSOUr
IEf2371
IEF2371
IEF2371
IEF2371
A·J
I
n·r
ALL U\".
132
236
236
231
r-nr\
rut"i.
7r-nTJ"\'
L.CU~V
1
r-n
uu
ALLOCATED TO PGM=*.OD
TO SYSPRINT
ALLOCATED
AlLOCATED TO WRI TE
AlLOCATED TO CARDIN
...........
ABCOEFGHIJKLMNOPQRSTUVWXYZ123456789
I
r
l
i
r
r
(
t
l
(
I
[
IEF2851
SYS10168.T094835.RVOOO.ZEOJOl.GO
IEf2851
VOL SER NOS= MIS004 •
. _~J:F_g~? I
_?_I$._J016~!_I994832__!5_Y900.lE[)IQJ. R.P.OOOPJ.?
IEF285I
IEF285I
'·Ef285I
IEf285I
IEF2851
SYS70168.T094835.SYOOO.IEDIOl.R0000013
VOL SER NOS= SPOOll.
S yS70i68. T094835.RVOOO.IEOI·OI.SOoobo14
VOL SER NOS= SPOOL2.
SYS10168.T094835.RYOOO.lEOIOl.S0000014
IEf285I
SVS70168 .• TO·;94835.RVOOO.'IE··OIOl."GO
IEF2851
IE-Fi8St
I
(
(
PASSED
VOL SER NOS= SPOOll.
VOLSER-NOS;-- SPOOl2.
IEF3731 STEP IGO
I START 70168.0950
IEF374! STEP IGO
I STOP 70168.0951 CPU
IEF285I
VOL SER NOS= MIS004.
IEF3751 JOB IlEOIOl I START 70168.0949
IEf3761 JOB IlEOIOl I STOP 70168.0951 CPU
SYSTEM 51
... ---
DELE-... TEO
. .-----..--, ..
_
~-
..
-~
..,.--.-.-,
-
syscur
·SySfN
DELETED
DOMIN OO.79SfC MAIN
OK
62K lCS
DELETED ..._.... '-_ .....
OOMIN 04.06SEC
(
(
./
(
f
•
•
I
•
,
•
,
(
I
2
Source Exif Data:
File Type : PDF File Type Extension : pdf MIME Type : application/pdf PDF Version : 1.3 Linearized : No XMP Toolkit : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37 Create Date : 2003:08:21 14:01:21-07:00 Modify Date : 2009:09:02 09:44:55-07:00 Metadata Date : 2009:09:02 09:44:55-07:00 Producer : Adobe Acrobat 9.13 Paper Capture Plug-in Format : application/pdf Document ID : uuid:ff23f623-6de4-4527-aa7b-9e2a1f2e3949 Instance ID : uuid:9d8fb982-098b-4824-950b-82ecb10f2346 Page Layout : SinglePage Page Mode : UseOutlines Page Count : 122EXIF Metadata provided by EXIF.tools