Rdwrt
rdwrt rdwrt
User Manual: rdwrt
Open the PDF directly: View PDF 
.
Page Count: 90
| Download | |
| Open PDF In Browser | View PDF |
ASS!Gt\1 Macr .. fFTL~,ROWRT,..
cr .IC~~ .. L8
M£TA~VM
.ss
:I)ocrt)
Rn,Rl,R"R3IR~IR!IH61~1,R8.1R9,R1CIR11IR12IRt~.R14.1R15
• ~ S SR1. .. SF~ P , SR3.1 SR4 , D1 , 02 , D ~ .I 0 ... , $
.~I\'!D
1
ANOTBl
1. '0 1IA~iD
l?2~.OATA
ANSBLK
B1/RF'F
24. q IL. W
'M'/I.W
12,/Lw
4,:;/MTW
'9"/LW
126/LW
509/MTW
1148/MTW
~31/MTw
'61/MTw
1j50/MTW
t~52/STw
1204/MTW
247/MTW
184+I\'W
1206/MTW
828/BAL
1706/bAL.
1155/~TW
1213/~TW
1700/LW
17Q3/STW
P33/MTW
7'It/AW
235/r.;TW
7111ew
1,HHI/STW
ANSCVT
2~~~/8F
"~.LW
ATTR8
f;~/RF"F
145,/STW
14i'/R[F
84n/BAL
14t56/L.w
BCO?8TN
eT~VAL
e T~~~8CO
BLKBUF"F
BlKSlzr
BLKTEST
3~~/ce
888/BAL
900/BAL
1180.0ATA
l,? IREP
361/BAL.
312/8AL
~96/BAL.
409/BAL
141/Rr:Fi"
15r,/STW
783/STW
188/LW
189/AWM
I~~/RF'F
241/STW
814t/CW
g92/STW
91li/STW
3;~' IBAL.
'4~,,[QU
110S/BAL
1!502/BAL
7~'-/eLE
?A •• [QU
~,~~/8AL.
991.MTW
111~/BAL..
11?9/BAL
r?IRFF
991/MTW
1002/LB
1003/STw
101'/OATA
1011./OA1A
102n/DATA
1c88/LW
1090/LW
BLI(2
BRCHK
B~~AI<
BRI(MSG
BUF"SIZE
CARDSFQ
CBLANK
~I~ /Rr:F'
lC~/LW
~,"'/RFF
96~/LW
1 ?C1P/STW
111"Lt
102s-rr.XT
541/STW
970/l.W
173S/Lt
2
i~~.iQU
l"""/LI
:' 41 Dr: F"
11~1/L~
i.)~-e:QU
140,/LI
i~1
1'+*1/LI
c:eTAS
1767-EQU
Cr:eF
CF"eL
CrBLErT
CTBTBTAL
.EQU
#,~/Rr:F
126A/STW
129ilLW
~~~/R~F
126:-:a/STW
1365/CW
lt~ IRF'F'
12b~/STW
~) :l/RF'F
1.~21ISTW
1~34/STW
1372/LW
1296/LW
1326/STW
133l/STW
1371 / LW
lO!54/STW
1237/L9
1~38/MT8
13141./LB
1605-e:QU
126Q/STW
13?6/L.,W
CtBUSr:-O
CtSfG
CTTA8
11.?IOATA
CtWaRD
l~'/RF'F
CL6SEet
!i9/RFF
CL9SE~
6lt3/L r
69~.G[N
CMfi'1C
14()6/BGZ
11+2" .. Ll
1 ~~'~.L.B
1.... 3A/BL
1 ~t'P/BNEZ
143,,·LI
1~63/B
1 ~=·U•• At
14BQ/B
1 .... 65/B
1 ,,~ua/BGEZ
1441-Lf
t 4tt~/8LE
1'+4~·LB
1 ~~1()/8
145,.STW
CMP11
CMP12
CMP13
CMPt4
CM P 15
CMP1'
1383/STw
3
CMF',"O
144~/eF'
14&1.AI
1 ~~i 1/8r:
14646,.A1
14t4.STW
11+ ... /8
1510/B
1~()q/8.~
143~/BAL.
1~i+3/BAL
1,455/BAL
1... SA/SAL
1 4~' 1 .BAI..
11+9,./9
14i'C/BGZ
14?.LCI
1.4to8:t/BLE
148".BAI-
1 41~rl/e~Z
l4a •• BAL
14i'1/BAI..
1481./BAL.
1488/BAL.
149S-LW
1£i;09/BEZ
\. ~~J~ ISLE
1511-l.,W
15j~/8C;EZ
1521.SLS
1~04/L..W
1414/STW
CMJ:)~5
CMF'~
CMPr,O
CMP6~
14+&S-PSW
CMF'65
CMPA?
CMF'68
CM P 70
CMP,]
CMf:)15
CNBC1
CNBC'"
~~~.EQU
1481/LI
i!~.£QU
148a/Lt
t~~.e:QU
l45"Q/LI
~, .. /RFF
11:JII;/STW
~!".£QU
149,ICI
l)u./RFF
1134/STW
1403/LW
1415/STW
"P;/RFF
19t/CW
449/LW
480/C:1N
CN~XT~
CeBL~FT
CeBr8TAL
CRBUsr:D
CeDE'
CAMPRFfSS
102,/L.W
1047/Cw
~$t';/BAI.,
11'~/BAL..
1~OO·L.C::I
"J'p/RF"F
5t~/MTW
651/MTW
~,~ /RFF'
99~/MTW
CepYSK
CePYSTDF
993/MTW
CATAS
,
C"WeRO
~~~, /LS
~, 4/RF'F
lbO,.OATA
11~a/STW
1511/L,.W
1~111MTW
1~8'/STW
1~~8/B
1351/8
Cs
9!iA.8AL.
98~/B
9~;,a/BNEZ
9'~·£QU
9~,P/8
9AIIII/BL,.£
8C,~.BAl.
8t'/BL
8C)~/B AI.,
BOIlIBAt...
S25·PS~
8j4/BAl..
81Q/BAL
83S-P,;W
8jq.BAL
82~/BL
aCl~/8r:
8t •• BAI.
CS$t
CS2
968-t...W
CVTO
CVT1
CVT~
CVT4
OF'CC:VT
D~r:eMPR
10j'1/BAL.
129~.LCI
13Cl~-L.!
131_/8
1l10/8L
131 .... LB
1 3Cl~/8LE
131".9
t 3~lo/B
132~.STW
'3i»1/8
1331.STW
D~C10
OFC1!5
OJ:'C20
Dr;-C30
DFC3S
1319/8
5
O'Clt.O
1ltt~ IB
134a.Ll
11~~~/B
13Sn-L.I
1 3!;~.L. T
13,,,,/8
1 ]i~"'Je
13SfI.LI
1 :i(lA/8A~
134r:;/BAL
1 ]~)f\/BLE
131 •• LI
1l~'9/BGe:Z
139n.Sl.D
13E'~/B
1391-STW
1l~)'/BCR
139a.LCI
DF:C4!;
OFC~'
OF'C!:u.,
DrrCbC
OF."C6!
OFC,.,
Dr:-C,c
1351/BAI.
1~60/8AL
1~64f.·AW
1373/8
DF.C7§
O,VeIN
DrV.eUT
O,VERR
D,VICf
Erevel
!iO/RF'F
1PS~/LW
212/LW
~20/Lw
1C3~/LW
~;O/R~P-
1!5Q/CW
591/LW
~28/Lw
ft1~/LW
10l9/CW
2'~/BE
601-1...!
15,/LW
2?O/LW
b18/LW
925/l.W
1032/tW
~"4/BF
"? IRrF
!5"3/CALr 1
69rl.G£N
6Cl:;J.L.e
124/0ATA
!~'I'ICAL 1
69,.OATA
'5'~n/L. t
69 ... G[N
~!i~ ,SF'
At.!q.£QU
EfERR
[BeVel
EeCV6L2
£801.
e:e02
72!5/0ATA
[802
EBD~
Eep;RR
~68/BA~Z
.'2-rQU
6406-EClU
'29/nAT.
"~)~/BNE
4b~/BNE
4fl~/BNE
49n.EQU
"~J6'6A4
50n.EGU
'-E'~/BNEZ
5S,l/BN£
'-!iP IBNE
50~.e:QU
1'~D/8cS
1',I/BCS
513/BNE
SI~.EQU
5~l:a,/BL
53'·Cl
!3~lC/BLE
5~ .. /BL
!S4f.O.STW
,+"Il/Br.
49p/BNEZ
544-MTW
5~i'
5S./e~
!562·MT~
S".LI
701/0ATA.
6
130/0ATA
,.S/DATA
[Brt
FBF'11
E8'2
EeF:;
519-EQu
EBF'440
EeF~
Ee'6
£8'7
[SF'S
,eGE
5~. .q,8L
p;76/B
5~)i+.CA1.1
e:8P"9
e:eq
2~,~/BF"Z
!5"~.E:QU
5ClP/BNE
51 •• el
ERR6R
!;Q/R,F
5!1/BAL.
1,Clt/BAL.
163~/BAL.
53!S/6AL.
F'PTE'BO
FPTREL
Gr:"TPAGr
It j' 1 I CAL. 1
561/CAL1
'E~4/CAl.l
7~M"G£N
752.G~"
Pl\14t/BAL.
'SS/BAL
1a'3/BAL
1283/t'JAl.
!;Q/R,F
G,TPG
1 ~, !11 CAl. 1
7
51,i/BAL.
1"ICAL.1
120-DATA
"!1/RFr
1o,/STW
511+/MTW
l~ 1/Rr;F
33~/eAL
109S/SAL
GRANCNT
~50/MTW
1o.6,/MTW
::I20/LI
94+7/STW
~2'/Lr
1006/MTW
H~)(OUMP
Jesup'
Ier:::RR
#~f"/RE'F
l1C1/LI
64~~/C.'-1
80~/AI
!i!i :1/ST W
96Q/STW
145/AT
816/AT
971/STW
I+SIl/LW
1060/MTW
#'~/RF-:F
18&:RR1
5~'~/BNE
60'/8
6Cl p; I B~le:
61n.Cl
611/BNE
114 7/L I
'41/STW
1.~30/Lr
639/STM
949/STW
12lt'/LI
6J+3/ STW
952/STW
11+21/L.I
1508/MTW
~16/B
ft49-LI
7l?/DATA
jl70/STW
~01/STW
402/STW
1335/'-'1
IeERR~
IROF"PT
I WRTFP'T
!15/L.W
13,.OATA
1()~/L..W
14~.OATA
JIJIT
K~V
KrvX
L
i'!';/RFF
5!5,/MTW
~~/'IRFF
18a/LI
l'~4/L.O
151/£QU
1626/STW
'oq.TF.XT
, 2~141 AND
125~/AND
!i'/RF'F
'+1,M./STW
!S~ IR~F
41Fi/STw
!5~ /RF'F
41~/STW
~, 1/Re-F
3'Jt/STW
L.INE.NB
LtNE$Ne,
LtNF.'$NB7o'
L.fNF.'Ne
369/STW
403/~TW
8
L.TN£NUM
"'l-/eAL,
111~/BAL
1592/8AL
1~22·LW
110/LJ.f
3531C8
702/DATA
858/LW
1611/Grt\
355/LW
'Ol+/GEN
1138/Lw
1141/AND
L n~~·~o
1 6~)4/8G
1631.PSW
L.N
9j'~.BAI.
HIEI
f,O/R£F
a,u~/Cs
61.4/CS
'!;R/GE'N
1 2C)CI ANO
MIte
MILot;
MIUC
~AXCLMN
a~./LB
120,/Lw
l1P/CS
69,/OATA
7~t1/0AT A
'I+~/OATA
,,~,Rf:'F
56n/Lt
"~'REF
55#-/Lt
~'sa.e: QU
lS2Q/LI
Nee ..
NCS
'''O/AND
1187/GE:N
1009/GFt\
1C1't/GEN
101A/GEN
~5'/LW
9t',.LW
1079/BAL.
9441.A1
9~tA'Br
934;.LI
92.' ISF
91n.LIN
72'1/0ATA
,91/arN
31",6A1.
9j1I1,BNE
528/AND
7Ato9/t.iEN
.70/1..1
... 93/LW
NCC~
282/~S
't6~/CS
~96/GEN
4f.6~/LW
116~/eAL
221/LW
~5t./LB
4Ir33/CW
~,9/ReF
9311·.1
21S/AND
238/C~
?"/eAL
NCCI-lt<
~15/LW
69..,/GF"t\
760/Gr;"
E\~'Re:F
MeOE:
Nee1
I1n/Cs
29'/CS
69n/GiN
~IO/REF'
~1'9/0AT A
M8S
NCCI-IKX
98./8
732/0.TA
1144/LW
677/LW
?10/GEN
1615/GEN
11911L.W
681/""w
716/(;2EN
g~~i+"l..w
981/8
SU~~/eLE
9S1.Lw
NCS,
9
NP,AGr
1~u,/RE:F
141/STW
119/STW
8RTBL
17n;J/e~
PFtL
a~'" ICAL.1
PFIL~6
1?O,16R
1724-0AT.4
75 •• G£N
b5Jq.GrN
PR£C
!54~PICAI.1
56"leAL1
'02-0ATA
3()M/C.1.1
311/CALl
70.-GF~
3~;n/CAL.1
'1n.GEN
3!'~/C:AL.1
11~.GgN
E\o/RF"F
38~/STW
PREC2
PRINT1
PRtNT~
PRNTeUF'
PRAMPT
PReMPTR
9~J~/CAl.l
102:;.GiN
10()1/CAL.1
102 •• G[N
PRTBUF
f)~/RFF
1083/L·T
1298/I..T
1089/STW
1410/Lw
10!;~/L.t
127a;.LB
1613/0ATA
1~1~/OATA
1o~;O/L T
128~·Lt
1 2~,q/BF'
1281/9£
11 ~~, -I.. W
12"/B£
,
RC[RR1
RC[RR,
~87/Lt
lO41/LI
112-./STW
1.1C),/L T
RcrR~
386/STW
5~;' II..
r
RC200
li85-Lw
1091./STW
1101/~TW
1104/L.I
141p/STW
1501/1..1
1527/~I
10
RC20S
12Cl~/6~Z
~C206
z
12141..8AL.
1 2 C) ., IBN EZ
121n/BNE
1. 2c!4/BG
12lt"l"'LI
12t~ 1/8
1231.LW
121.P,/BlE
1221r\-LCI
1 1 5f FIB Ne:
F(C20'
12oCIJ.Cr
1215/BCS
1P22-rQU
1236/BNi
1~~3/BNe:
1066/8
1~3'/Lr
RC~10
RC~t2
RC290
1J5A/9Ni
1281+/8
f(DABN
4!, ... LB
131l/0ATA
~DF'p:tT
~,o/RF"F'
21.3/CA1.1
'~I~/L.W
10Pi1/STW
1 3~1,a/STW
g~/Ar
21+1/LW
6~n/LW
I051/STw
118/STW
254t/MTW
800l W
1137/ EAL.1
121/STW
!2S/STW
~95/STw
~2./LW
g83/LW
A9:t/L.W
1164+/Lw
119,/CAL.1
102'·LW
to"/BCS
112/STW
531/LW
912/LW
1211/LW
208/"'W
51+0/iTW
959/§W
1336/,T~
1!5~4/LW
RD~[FLV
951'1ICA1.1
RDWRT
p.DSECT
101~.G(~
8~/USECT
RDWRTCe
15J4/8F'
Rr:AOCBMP
1 O~;~/BAL.
19~/BE
*81/6r:.
11'~.LC!
1368/8AL.
R~ADo
2CI~ -I.
t
28C)/8
328/8
]35/8
*51/8
28~/BLE
297/6
~OO/B[Z
313/6
RF.'AO,
R~A01A
RF"AD10
2CI"·I.W
'~!~/L.. T
1 O~I,;/BNE
lO~1.EGU
1 O!;q .. L. T
101'Q/BCS
50~/B
543,rJ
11
R~A011
104)~.EQU
10'Jl,B
1 Ot~qI8r:
1181 .. Lt
, O~!1/BNEZ
11!~.LI
R~AD1~
Rr..D1~
118Jt/B
1186/B
RFAD1 ....
2tl+.E'QU
Rr:-.D1~
91\9/6
RFAOlb
RFAOt'
60.'SNE
111" .. SAL.
11.3/BNE
11l.STW
2~)O/eL
26./BL
~14~/B~Ie:
29n.EQU
RFAOt7A
2?9·LW
R~.Dt8
9E~,a/B
R~.019
10!11.STW
lOa'.SAl.
110,,9
RF".AD~
RrAD2n
2!iA/BFl
261/8LE
9'~~/B
91",9
91~"/B
11on.LW
Rr:AD~1
Rr:-AD2~
1 O~t~/BNE
R~A023
lC)'
.e T
1101.E:QU
3C4a/B
RF'AD24
Rr:AD2~
Rr:AD26
R~4D~AA
3CJ~/8LE
31n.e:GU
2~J~/BNE
29a.e:QU
2 ~l~ lar: z.
21~·CI
269/BF'
~1'+·EQU
109""1.1
t11'/BCS
R'!AOi'
al~c.EQU
19Q/B£Z
2~'~/BNEZ
24~/8CS
2~,,/8NE
24~.EQU
JA~4 .BAL.
2S,,/8NEZ
2~'O.L.W
57,/6GE.
lC
251-EQU
~t3/8
33~/BNe:Z
4f.4+8/BNEZ
R~A,D211\
RFAD2C}
RF.:AD~
R2"/B
RrAD;'In
1 O!; '/BCS
R~ADl~
RF'ADl]
106".LW
1~,P/BNEZ
16~/BANZ
168/BA~Z
2;1 :1/BNEZ
22~/8L
230-EQU
2()~.STW
27Sl/B
1 ~t~/BNE
18q.£GU
t!1 ~/Br; l.
14, .. EQU
12!" IBF.: Z
le,·Lw
1 ~i 1/ 8
15A/BNE
1 ~,,,/8NE
l~q.EQU
J1Q/8AZ
32,·EQU
1038/9£
1040/8£
1061-Lt
110,/B
1115/8
R~AD4
RiAD~n
RfAD41
RFA04P
RFAO_l
176/Bl.&:Z
RF"AD4~
180-,QU
Rr:AD!5~
RF"AO~
4!I1/BF\"
1051-/9CS
RF'AO,
1 04i,~/BNE
112n.LI
11 ~1(,.e:QU
11~~/Bi.Z
10?O-LT
RF;AD8
R~AD81
6ClQ/B
11:JIt-Lw
1182/8
1~99/B
lJ
RJ."'.D8~
11~;~/eAZ
l17,.E:QU
11l~9/BE'Z.
1151.C1
11!§~.BAL.
l1A1/BNEZ
11!; 1/BNEZ
llS./BNE
11~, 1/8
11&Fi-EQU
RF'A084
RF:A08~
RFAOSIo.
RF'ADA1
11511BCS
1162-,QU
252/MTW
:a95/LW
406/MTW
R~A09
1 ~i7 .. CAI.1
Rr:CNUM
RFCSrZE
~, 1/RfF
lj.~/AWM
1 O~'? IMTW
2(')~/STW
ll~/RFF
48a/STW
371/LW
~58/LW
144-05/L.lt4
t435/CW
106./B
i'9'/STW
,..OA/L,.W
299/SW
306/AWM
546 / LW
1042/~Tw
~f5.1/STW
~~TURN
g~'P/8
52,18
100,/8
536/B
1061/BNEZ
StAle
6S_/B
662·EQU
6j~/Br:
66Q/BLE
~'6/BNE
20n/STW
496/l..W
5C)3/6r
;4+5/B£Z
~6!'i/B
111i/8
569/9
6S1-t..W
1178/BG
RFTURNt
Rf."TURN2
~?9/BAZ
'lll/BANZ
6AS-LCf
i?6"/MTW
491'MTW
RSSAV[
')'O/RFF
R~TAB
seCTAB
Sr;L£CT
1 7~~i+11.8
l?,p\-OATA
1ltP/l.e
l~.~/LB
~,~ IR~F'
~51~/L
t
19Q/LW
544l.,MTW
Sr;GrD
lt14/6~iEZ
SF:QtO~
98n-£QU
1~4f.7/CB
201/1.J
562/~TW
1~04·TEXTC
~55/MTW
1030/MTW
4f,97/STW
9E!~.B
14
108-./B
SFiQNUM
SF'QeUT
S~QBUTB
j'1/RrrF
3'~/STW
3?4f./STW
9~;/oI/BAI.
10S1/BAL.
15'6/8.L.
9~~~ 18 AI.
15"/BAL
1129·LCI
1 '~Hl/BlE
l'O~.8.L..
t7j~/BLEZ
111".LW
1 7~lq.L.. I
11*Q/BOF(
1~'i+·LCI
SF'QBUT1
S~QeUT2
Sr:Q100
SFrBtN
S~TEt
:i'~~/CAL.l
113,ICAL1
1 ~J7/CAL" 1
'?~.DATA
1187.GJr~
SJ:TEtC
1 0 4~ q I
CAL. 1
1611.GEN
S~T£e
1 SI~/CAl.l
SF'Tf.6C
7,.,.OATA
1.1~t1/CA~1
161!1;wGE:N
1 O~'~/BAL.
152,.Lf
11 j'~/8 AI..
154a.LW
1 "~ 3/E XU
l'5~.SLS
15~1,.Ce
15~A/B
SFTE:60
S~TEeOR
St-ltF'T
$RS5
TABEXP
J~~ 1/8AI.
TABS[T
f~I2/RFF
lOBa/SAL
16~~/LW
TAB10
16!i?/8r
1661.STB
1111/9AL
1~4tl·LCI
it>
TAB12
TA813
1 64;~.LB
16'1/BL
16l;~.L
167./6
T
TAB15
TAR1'
1 6~;~/eNEZ
1661&."1
16 ~'a/eG
167"'.AI
1'B1-I.B
168'/BGE
16!51.CB
165~/eLE
16'8/B~Z
1 6!;~.A t
~661/B£Z
1667/8
1 '~;n/BLZ
16!5t-.MTW
TAA19
TA9~
TA8~
1~90/8
TA8~
rRARG
~~()/RF'F'
1 ~lF/CW
2~a/LW
161/MTW
317/L.W
"~~~/L.W
4"/C:W
~82/Cw
111.n/\"'W
11"/LW
6j'n/L.w
16~i~/L.W
TBSWT
ld,/RF'F
ULBLCt-I1(
UNBAOR
15,ICW
!5'~i'/8AL.
~!~/RF'F
Si"/STW
92~'Lw
169'/C:~
*I+,/MTW
863 / MTW
91C/LW
918/STW
873/ AW
1180/MTW
:.l23/Lw
. 330/C:W
553/CW
10371Cw
!'S9/1.. W
1Q80/LW
1028/CW
1512/L.W
1t,22/LW
162:i/CW
1699/L..W
1705/STW
1118/l.W
61Sl-LW
665/6AL
1~1/STw
281/MTW
89S/STW
881/LW
UN8D
UN9Dl
188/eTw
348/'-W
626'e W
109!)/"W
1628/AWM
16,/CS
6~'/STW
11 !~4/MTW
UNBDR
182/CW
336 / LW
6071CW
1085/LW
1621/LW
1119/AWM
t64/CS
8~;'/e
8R1-LW
8E!?/8NEZ
89~.SW
gC):~.STW
9in/S
333/MTW
902/LW
UNt""
8f; 1/8
85~/B
8~'~.Aw
9CSl/B
2'~~/8AL.
84t,.Lt
8!;n/B
851.6
1~;/.4./B
91n-LW
9t1/BNEZ
g1q·L~
UNBF'i
UN8LK
iSS-L.W
1156/BAl
t~14/BAl..
29~/OB1
733/D61
73Pi/Dfl1
!~1?/DATA
1'11/0ATA
p;96/CAL1
5911CALt
UNBTAB
UNBV
UNBV~
UNPRINT
f.~O/RF'F
3Sca,BAL
~~.e:QU
25~/Oel
VFRS t e~!
wCABN
!,.JC£RR
11 i~9/L. t
159,.L8
11/t11Lt
159Pi/B
WFeF
S()1/CAl..1
Sft4/CAL1
1 (lOlL t
'51.EQU
1600-LT
567/CAL1
WF'~TS!ZF
WRee1n
~RCe2n
15f'~/BLE
,
5E~q-LC
I
WRCeln
v.,'RC6r;
160"/8
15~'~/8GZ
159".SAL
1 S"4/BL Z
157 •• CAL1
,,()~-E QU
111'/BANZ
WRITF'sp;A
wRITE.58
4(l4/B
WRtTECe
158n"AI
4t,.eQU
1S93/Bc.S
6'O/CAL1
689.DATA
1 ~1l :1/8AL.
WRIT[1
150~/BAL..
17
1552·LCI
14~~/B
3M.,/B
:iSO/SAZ
~81/B
:i9~/B
424/8
.... 26.E.QU
l~!5 .. EQU
95('1/8
95At/B
96118
91~/B
977/8C9
982/~
3~1~/eNE
3 .... LW
3~i 1/SNE
33",.Lw
]!i4/BNE
39~.LW
i!;Il/BNE
38~.£QU
4+ ~IO IBNE:
43a/BANZ
~36/BLEZ
444wCA!...1
4~H;.A
4~"/8
122/STW
l'6/STW
a23/AWM
147/STW
186/Srw
3'17/LW
378/MTW
427/LW
4aS/STW
431/1..W
.. 44J./C:AL.t
ibO/STW
930/LW
g61/LW
WRYT~~
WRTT£~
WRtT[~
wRtTF.~
WRrT[~
~'R
r T£,
WRtT[~
T
WRTABN
WRTCR
!5i'~.I.B
10Cl(1/CAL.1
WRTr:PT
~.O/RFF
10~/Ar
25n/STW
lBO/AWM
a31A/STW
41Q/STW
.19/CAL.1
"'ICAL1
81SP/STW
9j'~/STW
11310/STW
12tfiJ/L.W
16,'f,/L.W
9~1' ICAL, 1
1e99/e~
IOiJa.GiN
2L~~ ISTW
'?f'/L.W
Si'1/STW
WRTMSG
'IItA/DATA
10~""/STW
11!Hl/Lw
121Q/LW
168n/STW
100q.GEN
116/STW
315/L.W
*20/L,W
180/Lw
903/STW
1018/STW
11S9/loW
15A+5/L,W
111/STW
:i39/Lw
_21/MTW
442/STW
?86/STW
go5/STW
1093/STW
1160/AW
1578/CAI.1
1131/L.W
l'!51/STW
4.1/AWM
t109/STIN
116J/STw
1'49/MTW
9"4/LW
11131CAL1
117S/STW
16!S4/CW
475/C;AL.1
866/L,W
957/I-W
1128/STW
1212/Q'T~
1656/MT~
1"~9
~EP
OR .. ,,5
*M*
1
2
~
("
00000
0000000«
~OWRT
V£RSIeN
ROWRT
OSEeT
rQU
ROWRT
R£AO MJEI I WRfT£ M:Ee
1
~
1.ePH .. ~,UTS
1-1(11
1'149
SEP 08"
'15
~
COOOOOOO
ioJ
00000001
00000002
Rn
~QU
F(1
r:QU
F'(3
R2
~QU
~QU
q
oOOOOOO~
OOOOQOO~
R4t
~QU
iel
ooooaoo~
EQU
11
1~
00000006
00000007
RS
R6
1~
QOOOOCO~
7
1\
11t
Ui
11,
l'
11\
1q
20
21
t't'
~3
24
2~
2~
2'
21\
oooaoooS'
oooooeO tf
0000000(.,
ooooooOD
oOOOOOOA
0000000£
0000000"
00000002
00000003
0000000 4
00000005
00000006
00000007
00000:160
oooooose;
RDWRT
PAGE
4
R,
S~t
SRi?
FQU
r;QU
F'QU
rQU
SRl
,:QU
SR.
~QU
~QU
01
02
D3
04
CE:eL
r:QU
,QU
rQU
~QU
0
1
2
l
~
,,
!§
g
«)
10
1t
12
1~
14t
1P;
~
CEetF
,QU
CNi:XT8
FGU
CNBC1
CNBC65
r:QU
r!"QU
CBI.ANK
[QU
•,
,
~ A)(:CL.MN
rGU
1.0
ceSTeTAL ,GU
1~
l
5
inS*a
MAX BrT ceUNT SF r.e REceRO
1,: 4 9
29
]0
!;E F 08, "5
PAGE
TtTl.r
ROWFOOnOOo X
3~1F::'n()oo X
2~30n030 A
2c1onAOO
LII~~
CS,RJ
"
BE
..
wXtFI+OOOO';O'
WRTFPT·i,R7
WRTFPT·6,R7
RoFPT.51R7
Oc01'
0001'
351[n008 N
3=2fnno~ N
352[noOlt N
STW,R,
3il0nOO1 N
LW,R1
11"
():J
O~
O? on01A
12~
ClP
C001B
000ie
00010
121
124
()~
000iE
()P
12~
n~
1 ~~
0001F
00020
()~
00021
127
()~
OP 00022
0002:1
12R
Cl~
12"
C)~
on02a
1:10
1. ~1
rIP
00025
(I~
00026
2i!20n()on N
302ono07 A
6 8 30no21
BEl
R,
ROFPr •• ,R,
Wj:(TFPT+lt,R1
ANSBI.I<"1
•• 2
ROFPT.S,J(7
8£Z
R£AO~2
AIIR1
0
BNEZ
•• 2
3210nOO2
211onn8C
6 8 1on029
2210noaC
302onOOl
2U2onnOb
2e2ono75
2U2onoca
Cl" on02A
1J~
CI~
1l'
eli' QOO~C
1JR
(Ii'
139
CI?
on02D
Oo02E
1*0
1 .1
CI~
0002F
6 9 8on18A
(Ii'
00030
3e;SEnooo
00028
STW,~2
reeuF'
6 8 30no3A
2010noco A
6 9 30nC2t.
1.:4§
133
R,
AW,R,
STW,R1
LW,R2
1:14
(lP
(I;J
STWIR1
lI,
3!il[no05 N
3i2onooo X
00027
00028
CIP 00029
13~
R£AD16
RrA01"
LW,R~
('~
119
120
1.21
M.[e.~
204t8
(,; 0001a
A
A
A
A
A
LW, R1
CI,Rt
eG£
L1, R1
AW.lR2
AI.lR~
A
SL.S,R2
A
ANSSI.I<
R,
•• 2
Ne
SET
SUFF'ER SIZe:
Ta eNE PAGE
REMev£ KEV AODRESS F'RBM WRTFPT
CURRENT RO/WR BUFFER
ADO lIB BUFFER
SET SIZe: ftF
WAS REC SPECIFIED FaR ANS
Ne
V£s • C:~ANG£ BUFfF"R SIZE
WAS SLeeKING REQUESTED
NB
LEAVE
BLI<
SIZE F"OR REC
140
MINIMUM BUFFER SIZE
R1
6
C6MPUTI:
AI,R~
6830nC31
BEZ
READ~1.
048on~4~
CAL.l,,,
Gr.TPG
STW,Sf(1
reFi1
NPAC3E .. R?
BCS,g
t" RANoeM F' I LE
TEST
1~O
-11
0
x
~LAG
•• 3
L J, R,
11 !;,
11 ,;
11,
ZERe Cf!PV AseRT
MAX eUF'FtR SIZE
C6MPUT[ NUMBER 6F' PAGES NEEDED
N6 MeRE PAGES NEEDED
GET MeRE PAGES
NeT AVAIl.ABLE
~Cj1
17'49
14~
14:q
14404
14405
14~
141
14R
14q
lSn
115,
t!5~
15]
184
15~
1St-.
~e:F'
08,
()~
0003e
() i'
ClP
00030
CCOlE
0OO3F
00040
15'
n,
15R
(lP
15q
1~n
C)P 00041
(), 00041>2
161
(]~
11l~
eli'
16]
16410
1 It I,
eli'
C)P
eli'
C)?
00043
on044
On04!
00046
0004'
00048
1~'
Cl~
on049
(IP
000 ••
1~fi
16R
t6'l
O~
1'0
171
(I?' 00046
1'~
rlP 00040
Cl? 0004£
1'1
c,~
1'4
(IP
'5
Cl~
j
.,5
02 Oo03l
O:;t onOl1
2Q1ononi
C~~ 00032
251nnc7£
O~ OOO~3
201oncoo
()~ 00034
3010n007
():' an03!
3=1inCQ4
3 8 1onoo'
0' 0OO3~
2b1onCQI
O~ on03'
() l' 00038
3b1onooc
()~ 00039
6lSoonn5§
()~ 0003A
3c1Enooo
Cl~ 00036
6'30n030
0004C
0004'
00050
171,
Cl" 00051
17'
1'1\
Cl~
OOOS2
CIP 00053
AI, Rl
SL.S,R1
•
N
A
N
AI,R1
AW,Rt
STW,R1
R'
WRTF'PT •• ,R7
X
REA042
6'301"'01+8
3iOEncoA N
"30n3SC
A
4~lEno08 N
0OO4~
lW,Rt
READ ••
cw,R1
R£A04tl
T8ARG,R?
BE:
Cw, R1
t .. l
OrV.eUT,r:.I,
BNE
R£A044
8~E:Z
RFAD3~
LI, R1
X'PFoo'
Tf!ARG+8/R?
BANZ
SL.S,R1
RrA03~
eS, R1
T!ARG.9'R'
SL.S,R~
sTw,R~
202FFF'FF' A
At,Fl2
O~8on"4&
6 9 Sont8A
TeARG+l0,R7
eS,R1
.
252onn15 A
202oncoo A
6lS20nc55
'·2
D£VSIN,R'
BNE
25201"'07'
352£n005 N
SL.S,R,
AI,R2
BL.E:Z
CAL1.1R
SCS,s
weRD SIZE BF RFC
BLeCK BUFFER AODRrss
SET WRtTE AOR T6 BL.K BuF PTR
INITIALIZE B1.1< BUFF PBrNTER
O[VICE,R7
,
FQU
ceMPUT~
R1
LW, R1
BANl
2'"
2
BLKBUF'F'
Lf-I,R~
N
reBUF'
R[A04~
MTW,o
2i10F'FOO
.p
~TW,R1
CI,Rt
69l0noS!
311£nooo X
6830nol+3
311&:nooO X
3
B
Bt\EZ
x
6 9 40n38C
2!1onC08 A
4t)1EnOO9 N
6!j40n18C
~QU
SW,RI
SL.S,Rt
A
A
X
321~ncoo
2~lonoo' A
5i2ono03
RDWRT
A
A
R£AO*1
8
R£AD3,..
•
HIEI.~
pel DEVICE.
SYSTEM INPUT DEVt,E.
IS
INPUT FR6M
ANS
N8
ANS Te ANS Cepy
pel O[V!C£.
SYSTEM SUTFUT DEVICE.
~e
SEQ BpTleN pRESENT
YES •
~RReR
TX aPTIaN UsED
YES • £RRBR
NC BF'TteN use:O'
YES • [RReR
GET BlKSZ
.1
ROFPT+5,R,
SET SIZF FeR READ
-1
-11
C6MPUT£ NUM SF EXTRA PAGLS REQO
0
~£AO~~
G[TPG
EeF'11
N6 MeRE
GET EXTRA PAGES
NeT AVAIL.ABLE
~C;1
~E:P
1"~9
1'9
f):l
11n:
1~ 1
18~
0'
08"
00054
3~8EnnOO X
02 Ooo5~
00055
221onOO4 A
18~
(" 00056
('2 0005?
o;:t on058
()~ on059
1811
181
C"
C);2
18l
18""
18R
189
ooOSA
00058
0' 0005C
ooosO
()~
191
t);.'J
onOSE
19~
19~
n~
OOO!5F
19~
LN
~£A04C)
NB
221onooo N
301on.oo? A
L I,R1
AW,R1
3clon6AA
KFV
R,
WRTFPT.6"R7
ENTER KEY
L~ilR1
.9999999
TeARG.14+,R7
LI,R,
•
SET MAX LoN VALUE F'tlR CeMPARE
0
CLEAR [eo ceUNTEJ.(
INITIALIZE FeR UNBLBCKtNij
3 0 1£noo£ N
2c6oncOo A
3 ft oonooo x
2C!2onOO3 A
312[nooo X
STW"Rn
LI,R2
CW,R,
CW,R~
C'i' 00065
Cl? on066
041on2*B
3~lEnQOO
REA09
X
3~lEnooo
x
2f:t9cnOOl
~
00061
C) t' 00068
() i'. 00069
350Enooa X
eli' 0006A
2ie6onooo ...
~o"
ClP 00066
~o,
(~P
~OR
0OO6C
(lP 0006D
3ilcn~A8
2~30n022 A
3a2Enoo~ N
~Oq
CIt)
OOO6E
B!S1&nOO2 A
?1n
CIP 0OO6F'
2\ 1
i>1i'
(IP
()?
~o~
205
i"1~
t?1~
i'1!';
STW,Rt
r;QU
04+10n'-?4'
on06*
20,,"
F(EADI+O
BE
CAL1,1
CAL1.11
Cl'
?O1
STW,R,
3~1e:noo' N
6830nJ~'
197
j)O~
Cw,R1
N
312£noo!5 N
O~
?OO
TeARG.10"R7
8t\E
311E:nOOA
6~30n36'
19~
2b
6!:130nosD
r:QU
BE
()~
RDwJ 000'9
22?
l'~
22:1
()P
~?4
()~
P25
O~
22~
() l'
~2'
()?
i'2R
n~
~29
~lO
eli'
2:1 1
C)P
23i'
~33
Cl?
eli'
el4
Cl~
~:;I,
C)P
Cli'
23F;
oo01A
onO'S
OOO?C
000,0
0001£
00o"
00080
00081
02
00082
00083
0008*
00085
aoOS6
·,5
2~30n06' A
2cl0nCOF" A
6~20f\O'A
3230nOOO N
LW,R~
MIEI.1:;
6'30n082
BNEZ
R[A03]
TeARG,R7
6 9 100082
BL.
2030nOOl A
AI,R:;
RfA03:1
221ono4to
l I, R1
1
•
X'40t
STS,R1
*R2
2030nooo A
Fe1onoo~ A
6'30no9~
CIP
0008A
6130nt8A
0008e
24+3
24+4
Cl?
on08D
,..
~lttr;
~
2.'
CI~
0008£
C)? 0008F
00091
on092
CIP
t'4Q
CIP
CI? 0OO9:i
2[;1
l?!~
35300000
6 ABon2B9
eli'
x
6~2ono9.
02 00090
3;toonCOl
CIP 00090
~~$\
25Q
3il2£0004 N
3b2£noo .. N
READ28
~'
6830n093
3i30nOOl f\
3!53!nOO5 ~
02 0009"
3:11£nooo X
COO9~
READ29
2
IS
.+2
0
8
•
ANSBL.t<
RrA02~
ANSCVT
F'QU
LW,R2
STw,R2
sTW,R3
BAL.,SR4
BCS,2
•
~OFPT."'R7
WRTF'PT+4,R?
BLKSIZ[
UNBI.K
R~A02'
YES
AS~ F"RBM DCB
IT O£VICE BR ANS
NB • GET SIZE F'RttM RWS weRO
TEST FeR NULL. REt;8RO
NB
TEST tF" eUTPUT Ttf ME:,LP,CP
Ne.eUTPUT NUL.L RleeRD
FBRC:E eNE Bl...ANK FeR eUTPUT
IS BL.eCKING wANTE..O FeR ANS
Ne
YES
YES
• WAS REC SIl(! GIVEN
SET RE:C T6 SIZE t1F 1ST R£.C
IS INPUT FR6M .NS TAPE
Ne
eUTPUT IS ANS
RESET WRITE ADDRESS
SET T8 sIZE etF' INPUT
eUTPUT NeT ANS • G! UNBLeCK
BL.8CI<£O ,eRMAT
MTW,o
•
ANS61.1<+1
WAS R£C SPECIFIED
BEZ
•• 2
N8
STWIR~
ANSBI.K+1
WRTFPr+s,R'
GET REC VAL.UE:
ENTER sYZE IN WRITE FFT
£:QU
Lw,Rl
R£A02?
GET
BE
C I, R1
8~£
R£A026A
X'F'
C:S,R1
STW,R~
~[A026
20
Mlil
ANSBI.K+l
RE'A02'
ANSBI.,I<+l
Xt.'
R£A028
MIE!
BI\£Z
4+ 5 1onooo X
02 0OO8tf
Cl~
eEZ
MTW,o
3iOonOO1 N
3530nCOl N
2110nOOA A
~QU
MTW,O
6 8 30no8'
2Jq
2~~
REA033
33000000 X
6'30n090
00086
LW,Rt
CIIRt
A
ooosa
2lA
rIP
AI,Rl
3c1£0000 x
21100008 A
i':i'
~.1
ROwRT
-11
LI,Rt
.t\O,R1
Ct,R1
BG
41:$1onooo X
211onOO2 A
00087
C! i' on088
C)P 00089
2-0
SL.S,R~
rQU
MTw,t
•RECNUMIR?
~C1
~EP 08,
11:~9
C~~ 00095
2e~
(~? OnOgS
2154t
2!55
2~~
26'
0009'
()~ 00097
nil on098
O;l)
Cl~
OnOgg
~e9
()~
On~gA
~1l0
elf' 00098
C,;:> OOOgC
()~ 00090
()~ 0009£
t?§8
t.'6,
~b~
26:;
2b.
(~ ;:t
Oo09F
2b5
eli'
266
(Ho'
C) i'
OnQAO
000A1
2117
;Pb~
2t,9
~'o
"1
~,~
~,~
-"'4+
P.7!;
-p,,.,
2"
2'R
~79
000A2
000A3
c,p OOOAI+
()? 000A5
oeOo46
("
e)i' 000A7
C? 000A8
c)::t
C)P
OOOA9
ell' OOOAA
C)P OOOAB
e)? OOOAC
Cl? onOAO
anOAt:
'75
3~1E:noOl!s N
3~O£noo{) X
MTW,1
MTW,c
3Z1onoo9 A
LW,Rt
6'10nOAf
BL.
A I, R1
6 8 30nnCD
6 8 3QnoCD
3i1£noco X
6!:J30noAI
3Z1tnooo X
2110n001 A
6 8 30n10,
211onco7 A
6 8 30ntC,
04t10n261
Btl3!noo9 A
2 V3FF'F'FF A
2i10nOOi A
28~
()P
()P
00081
00082
1+!)10ncoo X
()"
OOOB]
2210noOA
4610nooo
onOB~
ono e,
~R~
()~
28g
e)i' 00098
~TW'·1
REA03
68200068
6 9 30noS9
A
X
:;Joonnoo x
6 9 30n08£
6 8 00n06A
READ1?
ROWRT
V[F 00084
eli' CoOB5
CW,R"
6 8 2000CO
oeOAF
28~
Lw,R~
2UlonOO1 A
8l22nOO7 A
(IP
(lp
~8~
~8!5
BEZ
3c2Ennoo x
B12tnoo7 A
~I!O
28J
061
7
PFtL.
B
R~AO~
LW,R~
At,R~
*SR2,R7
L R1
CS,R1
BL.£
L I, R1
3
r,
CS,R1
et\£
MTW,a
e~EZ
8
-1
27
~e
X.v
peINTe.~
GF.:T CURRENT REe. Ne.
CeMPARE WIT~ x VALUe:
NeT IN RANGE
STEP Ta Y VAL.U~
CBMPARE
WITHIN RANGE • Ge WRITF
CECREM£NT NS. eF RS 6PTIBNS
Net M6RF::
P8INT INDEX T6 NEXT PArR
MUST F'IL£ BF. REP6SITI6NEO.
N8
G8 WRITE RECeRO
pel DiVICE.
SYSTEM INPUT DEVICE.
IS
INPUT FRBM CR
•
£RR8R
v£s •
£RR8R
VES
IS INPUT FReM ANS
peSfTteN
IS
r8 ee,
p~£ceRO
NEEDED
MaE!
TEST ASN
~tADl
NeT 'ILE eR "'ABEL.
CHECK F!'8R ANS
Xt.'
M:EI
R£AD11A
UN8ADR
RfA 0 29
RFADO
TAPE
• DeNT PREC8RO
NeT ANS
MeFl£
R~CeROS
IN ijLecK.
~n1
.,5
17'49 ~EP 08 ,
!.'9n
02 0006'
29,
()~ Oooeg
221onclO A
j)q~
C)~ onoBA
1+51onno5 N
29:;!
C)~ 000B6
6930noBF
29~
Cl i' ocoee
C)~ oooBe
295
353&:no06 N
x
oooBO
3fSJ£noon
2Q"
eli'
~97
()~ oooSE
6 8 0ono68
~g~
02 oooBI'
29q
e,i> oooBF
3~3Enooo X
6 8 3000&8
300
ell' oooCo
2130,F'F'F A
C)P OOOC1
301
]O~
C)~ 000C2
6 8 2onoCA
(li' onOC]
3Q:i
3i20nOO3 A
Cl i' OCOC4
~O4
22307F'FF A
~os.=;
04t1on2l5
Cl' oeOC!
~o~
(l~ CoOC6
663[ncoo X
301
3i30(\OOi A
CIP oooC'
C)? onCe!
lO~
203'AOOI A
(l~ ocOCg
30CJ
6 8 0onoC1
31n
02 OOOCA
C) i' OOOCA
:t 11
0 4t l0n23!;
C)~ ooOCB
l1it'
663Enooo x
~1~
~14tr
(IP
02
315
Cli.'
31"
CIP
ji17
C)?
~lA
()~
l1t:t
320
321
CIP
~22
3?~
32~
32~
~2"
OCOce
()~
C)~
COOCO
ooOCE
eooCF
00000
00001
00002
eOO02
~EA01'A
Ll,Rt
c:s, R1
R~A025
R[A023
6 AB onlOo
3clEno08 N
2110FFOO A
6840nOOlt
2i1oncOo N
6 ASOn!SAD
2C!Eonooo
081
STW,R~
vrRSI8N'i
ROF'PT •• ,R,
R[CNUM,R,
B
lET BLeCK FeR NEXT READ
UPOATE: REC8RO NUMBER
RF.'AOl
r:QU
sw,R3
CI,Rl
Lw,R]
At,R~
B
F'QU
CAL.1It
AWMIRl
B
02 000 0 4+
00004
3a1Enoo A I\i
C) i' 00005
6 9 32n334
02 00006
00006
STW,R"
AWM,R~
N
~QU
LI,D:1
OF RECS T6 SKIP
8NL,Y 8NE: PREC
VES
SAVe: Net RECS
PREC!
RrCNUM,R1
8Ull1P
REQUIRED
VET TB SKIP
R[ceRO ,aUNT
R~
C:8MPUT£ Ne. RECS VET T6 SKIP
·~27"
RIA02~
•PR[C2
P8SITtSN T6 REC8RO WANTED
BUMP R[CNUM 6'( p~Fe NUM
Ge RiAO
R[CNUM,R,
RF'AD1
T8ARG.8,R7
~QU
Ne.
PREe ceUNT
LWIRt
8t\e:Z
WR!T[2
3~16?
NCCI-tI<
Lw, R,
~eNE
R[A024
R!
3,,61
8AL,S~&
L I, R1
BAL"SR4
c:eMPUT~
R£A 0 1
•
FQU
BAZ
READ52
•R£CNUM,R,
LW,R3
ell R1
()~
e)f'
N8
LWIR~
N
eRG IS RANOBM
TEST If:
RF.'A025
LI,Rl
CAL.111
READ2
)(,30'
BN&:
BL.E
REA02~
•
2~
ROWRT
MIEI·5
BEZ
68oonobB
oooCU
323EnOQ!
F'QU
WRTFPT.5~R7
)('FrOO'
R[AOS,
teBU'
'ASEX,.,
•TeARG+10,R1
S[QIO.R1
•
teBUF
LeAD
LENGTH.
CHECK ~8R NC 6PTI8N
~EceRD
WA$ TX SPTI8N SPECIFIED
N!
BUFFER DISPl.ACEMENT
;.:XPANO TABS
TEST rr; ANY SEQU~NCtNG WANTED
BR Te APPR6PRIATE. RBUTtNE IF YES
BUFFER
AOR
~O1
171~9
~EP
08, '75
t-IrXOUMP
6 9 30no8£
BAL,SR.
MTw,o
UNBAOR
Bt\£Z
RrtA029
YES
6800n06A
B
R[ A0
TeAR
(iP 00007
6 ASon260
:121
()~
n~
00008
00009
6eOorHJ6A
l~~
.~lo
ooOOA
ooooe
onOoe
315[no05 N
00000
6930noEo
6 ABonooo X
laOonooo x
331
() i'
()?
33~
()P
333
c,~
33Pi
ni'- anOCe:
n~ ooOOF
33b
ClP
OOOEO
33'
33"
()P
ooOE1
33-
339
l40
l41
~4f.~
3~~
l4*
:;"!I§
:;.~
eli' 000£2
Cl? 000£3
() t'
OOOE.
Cl' 000E5
ClP OOOE6
e)? OCOE'
C)P 000£8
C) t' onO£9
()P
OOOEA
~4'
C) i' 000E8
l*R
()?
34f,Q
()?
3150
()j)
ooOE:C
000[0
onOEE
CnOEF
OoOFO
ooOF1
2iSonC06
3C!2£nooo
BAL,SR~
B
x
3i!2[noo~
LW,R~
L..B,R~
LI, R1
c:e,R2
3il&:no08 N
311on~AD
6 8 40(')1]8
Lw,R1.
CW,R1
SAZ
Lr,Rl
LI,R~
CS,R~
6'30n119
321onoO A ~
122onooc N
2120n003 A
BNE
LW, R1
LB,R2
:1St;
:187
C);2
l~R
Cl? 000'6
6'30n10[
3Scg
Sil0nOO1 A
36O
()P
()P
OOOF'8
361
()~
lE;~
C) t)
000"
ooQFA
36~
Cl~
000F6
4tt:510n~Ae:
6ABO*",OOO X
2!52onl08 A
'i1onoo~ A
8~R1
WRITE]
T£ST
N6
tF eUTPIJT
*R2
TEST
FfRST
10
CI,R~
BN£
Lw,R1
4
BINVAL,Rl
•• 3
WRIT&::1
TeARG.8,R7
.X'OOF'FOOOO'
WRITE1
)(.PO'
)('20'
MIEI+s
wRITEt;
MI£I+to
MIEI·t2
:I
WRITE6
A~D,R1
*R1
II)('OOFFFFF'F"
BAL.ISR4
BtN26CD
SL.O,R,
LB,Rt
T6 CP
WRTFPT.4~R'
S[TBIN
WRITEt
2230noF'o A
000F2
CH' 000':;
C)P 000'.
T8ARG+s,R7
WRtTE4
CAL.l .. t
2c2on020 A
~!;2onoO!§ N
6
,-2
B
WRITE3
BLIUMP
oe WE N££D Te UNttLeCI(
,,~,
IS IT STANDARD BINARY ceDE
YES
Ne
S£T BIN MeD£ IN or-a
IS
I(
6PTleN
PRES~NT
N8
IS
FrL~
KEYEO
~e
KEV ADDRESS
GET KEV MAX
IS tT A :I-ByTE Ktv
Nt!
GET KEY
C8NViRT
T6
8
R~
BYT;: ttF" REC8RD
FIRST BYTE
Bc;O
eF
VAL,Ue:
2~
~(j1
08, '15
262nnC08
OOOFC
OCQFO
4f,5'1on'AF'
OOOr:E:
At 9 20nf)BO
aoOr:'F
AtSJ30nt,B1
3''',
(j,
~'5
() .?
:1~~
('~
:'t"
(j~
368
(j'
~~9
0' 00101
~,o
l,1
l'~
RDWRT
~£P
17149
()
"
cnleo
00102
('~ 0010:1
sL.S,R"
eR,R1
8
~X'FOF'OF040'
352&:0001 N
3ei3rno02 N
3C?lrnoOo X
6 ABonooo X
eR,R]
STW,Rt
STW,R,
STW,R:;
Lw,Rl
BAL,SR4
3eilE:noOO
A
AR,R~
)(
.X'4tO'040nO'
.. XtOOOOF04S,
LINENe,R1
LrNENe.l,R7
LINEN8+2,R7
R[CNUM,R7
BtN2BCO
O~
00104
~,~
();:J
00105
352('noOo X
()j)
OOlOb
3e>3£nOOl f\
STW'R~
3'4
STW,Rl
SF'QNUM,R1
SFQNUM*1,R1
00101
2~lonn02
L I, Rt
2
~7~
l7~
3"
:i'"
3'9
C,'
Cl'
oe108
A
3t51Enoo7 N
3i!4[nOO4 N
3aS(nOQ4
~
STW'R1
LW,R4
MTw,-!iI;
()~
0010B
2clonnl~
A
L I, Rt
ni' 00109
C)~ onloA
380
()~
~81
()i'
col0e
ocl00
661£n005 N
AwM,Rt
6100n13'
B
.-
:;8~
02
383
38~
r)~
0010E
3R!;
C)P
eli='
on10F
J8~
:;8'
(IP
OC111
~88
(l~
00112
:;~q
oelt]
CI i' 00114
eli' 00115
(IP 0011&
CIP 00111
(I" 00111
390
391
39;.t
~9~
394
~95
396
39'
]9R
]gC)
~oo
00110
(I?
CIP
Cl"
elP
CI?
CI?
CI t'
0010~
wR1Ti6
le20t"l~3A
LC,R~
AW,O:.i
A
"-
2~2on118
A
4t 9 l0nltB2
•K£YX
PRNTBUF,R7
PRN1BU;+1,F<7
J'RNTBU'+l
R'
CAL.. 1.. 1
AI,R~
CAL..1,1
B
LW, R1
BAL..,SRJ6
L I,Rt
?530nOOl
WRTFPT.5,R'
WRITE1.1
PRINT1
04+10n;:J4t
6800n13!§
2clonnoo
18
UNPRtNT
AI,03
wRITES
WRTFPT.Jt .. ~'
eAL.,SR~
20EFFF'FF A
cellC
00110
oo11E
LI,Cl
3UEonOO7 A
6 ASonooo X
04+1on2lC
2U2onooS A
col1A
oe118
STW,R"
STW,RJ
3!52Enooo X
3!53F:COOl N
22£on001 N
3clEnoOO x
6 AB onooo X
00119
r;QU
WRTFPT+?R1
WRTFPT.I+,R7
5
-I
PRINT~
WRtTEt
R[CNUM,R7
STB,R]
BtN2BCO
0
R1
SL.D,R~
-8
eR,R1
IIX'00406040'
30
[OIT NS. Te XXXX'XXX
PUT IN BUrFE:R
GET REceRO NUMBER
ceNVERT T8 BCD
PUT NUMBER IN BUFFER
AOO 61D
SAVF':. BUFF ADR
C~ANGF BUFFER ADDRESS
INCREMENT WRITE ceUNT
SET UP LINE FeR PRINTING KEV
iNTER KEY IN BUFFER
WRITE: BL.Nt< L.IN£
L[NGT~ eF PRINT ~tNE
ceMPUTr BUFFER AOOR£SS
PRINT KF-Y
GET RE'CBRO NUMBER
c:eNViRT Te BCO
8,(TE T8 R1
AOD ~VPHEN
P6SITIetN eTl-it:R SVT£S
~AST
~n1
~iP
171a9
08,
"C1
0011F'
4tO~
~o~
()~
~O4
C)~
00120
3~1£nOO2 N
00121
00122
6800nt2£
02 00123
331£'noOO X
OC1~3
()~
405
41006
(H~
40'
ClP
40R
() i' 00125
4 Or.,
410
C)P 00126
411
4Ii'
41~
ClP 00128
C)? 00129
C)P 0012A
C)P 0012B
ClP 0012C
~1~
C)~
4tl
44-14
411
C)~
00124
0012'
cn120
02
421
eli' 001~E:
001ZF'
Cl;? 00130
CIP 00131
42?
r)~
~1R
~19
420
e)"
4t2~
c: t'
424
Cl~
00132
00133
001!.
427
42R
"29
4Jn
4:i1
4J~
433
434
C) i'
~l~
Cl~
4t36
4:;1
()~
On138
Co13e
0013D
STW,Rl
STW,R1
e
wRITE,SA [QU
MTW,1.
Ll,R]
Lw,Rl
6 ABonOOO X
2i10nOOO A
1530nn01
4'10n&B2
BAL.,SR~
L I, R1
STB,R3
eR,R1
A
2!)20n17A A
352(noOO X
363Enooo X
351£nooo X
0012t.
2il0nOO3 A
3S1En001 N
lC4Eno04 N
SI.O,R2
STw,R,
STW,R~
STW,R1
wRITE.S8 FQU
LI,R1
STW,R1
Lw,R4
33CEnOO4 N
2210nOQ9 A
2CJ2'f:F'1C A
6820n14~
C) ;> oo13 F
2~30nog4
..
RECNUM,R7
erN2BCO
GET RECeRO NUMBER
CBNVERT Te BCD
0
LAST eVTE T6 R1
ADO HYPHFN
')('00406040'
PBSfTr6N eT~£R BVTES
-8
r;NTrR IN aUFF'[R.
LINE.Ne,R'
l.tNE.Ne1,R7
LfNE$N62,R7
R1
•
l
WRTFPT."R,
TeARG,R7
eUF'F£R ADDRESS
LW,R~
WRTFPT.4,R?
WRTF'PT.4,R?
WRTFPT.S,R7
WR!TEt+l
WRTFPT.4~R'
CJ,Rp
9
IS eUTPUT Te LP
Bt\£
W~!TE'
N8
LW,R2
WRTFFlT+!5,R7
LI,Rl
)('100'
CW,Rl
WRITES
UP R[C8RO CeuNT.
)("0'
•
B
oc13E
•RECNUM,R,
iQU
6800n1~'
3130nooo X
LtNENe.2,R7
WRITEt58
LW,R ..
AWM,R1
6!;~on146
E:NTER TN BUFFER
9
MTw,.~
Lt,Rt
*WRITEl
LINENe,R,
LrNENe+1,R7
lTD
SAVE BUFF AOR
CHANGF: BUFFER ADORESS
INCREMiNT WRITE CeUNT
661EnOO! N
02 00135
3C4£nOQ4 N
00135
C'i'
C)P 0013'
3i2Enooo x
C)P 0013'
212onoo9 A
(I i' 00138
6 3 30n14'
3i2EnoO!§ N
elP 00119
C) ? Oc1lA
2c30n100 A
Cl~
STW,R~
2c30noFo A
3c1EnoOO X
42!;
42~
ROWRT
'15
352£noorJ X
3E>3[nOOl N
Cl~
e.NZ
AI,R2
MIEe
WRITE'
-132
BLEZ
WRITE,
lI,R~
1:12
GrT
C~F.'CI<
VF'C
StZ~
5F
REce~D
Ir; VFC aPTIaN SPE'I~IEO.
SFTt6N PRESENT.
eNI.V
aNi:
LINE REQUIRED
31
~n1
1"4.9
sEP 08, '15
3f53£nOO5 N
~:J8
C)P 00140
4:19
~"'O
ell'
441
00142
Oi' 00143
44~
()j>
44]
444
44f1i
()~
00144
0011+5
()'
00146
(,?
0014'
44~
44,
44A
449
4!S0
451
Ool~1
();;
C)p 00148
()~ 00149
0 4t l£noOo
2230no21
X
•
3b2E:n005
"OontlD
Ol+1£noOo
354trnOO4
6 AB on:tli
3;iOonooo
0014A
6 9 30no8E
C);:>
00148
() i' Oo14C
C)' 00140
3i1lrnnOO
211onoO:i
6830n38£
X
N
454
C)?
0014'
455
C) i' 00150
1c30neOA A
2130no05 A
48,;
481
488
0ol!51
Cl i' 00152
oo1~,
4~4
Cl i'
C) t'
C)?
4~5
e)?
,-,ls~
Cl~
00159
0015A
Cl~
001eB
46~
.. 6l
4~'
001!1
on15A
~55nnooo
6 9 30n160
x
(l?
~'1
00lSF
02 00160
3300nooo X
Cl~ 00160
6;.$30('11(,3
Cl" 00161
477J
4'~
~74
WRTFPT,R1
WRTFPT •• ,R7
BRCHK
UNBADR
RfA024
eeOE,R7
WR%T£ eUTPUT R[CeRO
REST6R£ BUFF;:R AODRESS
CHECK BREAI< FLAG
Oe WE N£EO T6 UNtiLeCi(
YES
3
INPUT
La,R]
c: 1, R]
SR3
GET ABNeRMAL
S
BE
[801
BNE.
&:8F1
~QU
LI,R5
CW,Rf;
"
•
T£ST r:SR
reo
ceDE
£eo
FSUNO
rep' ENCeUNTE:REO
N6
fJ
BN£
TeARG+!,R1
re02
LI,R!§
]
CI, Rt
MIEI
CeING A
~EX
DUMP
N8
~£)(OUMP
£e02
,...e
X'Fr'
T[5T F'eR
FRBM A OEvtCE
M80E.],R7
DEeD
epTf6N
eANZ
ieD2
L I, R1
M.E6
11
MESSAG£ SIZE
DeB AOORESS
CAL..l,t
F'QU
F1FTE60
VES.INDICATE ·.EeO •• ENceUNDrD
LI,R?
£e02
WRITE"
UPDAT£ BUrrER ADDRESS
~e. REMAINING CHARS IN REC
R'.Oo
L~,R1
2220001' A
2i10noOo N
0410n2!;£
WRTrPT+4.R7
WRTF'PT+5,R7
1ST(N£XT) ll2 CHARS
CeMPR~sSEO
BN[
211onoFF A
6'4toon160
33
p~rNT
8
C:S,RPi
3i!1£no03 N
47(,,)
()P
;-eOl
ROwRT
WRTFPT+5,R7
WRTF'PT,R7
R[A06
C:I,R]
6'30n16n
2iSonOQ3 A
'-""
469
0015E
*'RDABN
315!nno!§ N
CP 001!5C
C)? oo1!5D
LW,Rt
Ct,R1
BE
6830t'\154
2130nco(' A
Cl j) 00153
6 9 30n1'E
02 00 1JS~
Cl? 00154
2 25 0noo6 A
00165
8
t':AL1,t
SrW,R4
BAL,SR4
MTW,n
X
A
680onot,A
C)P
WRITE'
BNEZ
0014£
.61
STW,R~
X
(l?
460
AwM,R~
N
4+~~
4!;~
4~q
LI,R:;
663£noO~ ~
c,~
C)~
STWIRl
CAL..1,1
V£S
MTW,n
•
ANSeL,l<
T£ST IF:'
8El
.+2
NB
SLeeKING FeR ANS
3c
~t'l1
~£P
17149
4'~;
4'6
4'.,
4'R
OS,
On16!
(,::t on163
();t
6830n1A1
2250n003 A
315Enooo X
onl~'
1+81
() i!' Ool~8
();) on169
0;;. 0016A
48~
4SQ
49n
491
J+g~
49~
4g4
49~
49A
()~
()~
Cl t'
49R
CI~
499
CIl'
son
001'6
0011'
001'8
00119
001'.
on11S
0011C
00110
32A!ncoo
STW'Rn
Lw,SR1
SAZ
6100n176
B
001'£
;o~
~Qg
0011F
e!i' 00180
~1n
Ci,
511
CIP 0(')182
6'3cn1Ct
3 aOOOOO1 ~
[93CnOeg A
6 ABcnooo X
INPUT eeMPRESSEO WANTED
ROWRTc:e
T8ARG+5,R1
eUTPUT C6MPRESSEO WANTED
&:e03
N8
RrCSIZ£,R7
INOICATE N8 MeRE TNPUT
R~
VES
YES
LW,Rt
STw,R1
LI,SR2
~Q'
l
c:eOE,R7
18F5+2
321EnoOo X
35 1£nooo X
2290n001 N
2130(')007 A
ESO
BNEZ
LW,Rt
~QU
CA1.1 .. ,
CI,R]
*£8'1
~eR oeU~L[
•g[I.ECT,R7
F'QU
cr,R1
0410n22'
2130ncolt A
6 8 30n20'
6 11 00nCeB
TEST
~eF5
MTW,o
Lw,SR3
[e04
1
eUTPUT LAST Re:C8t'(D
8t\El
E!03
33
wRITE LAST B1.8Ct<
c:eMPRrSS
SRl
r8ERR .. R1
[eERR
BAL,SRJt
LW,R]
X
r.l~
00181
CW,RS
BN[
350Enooo X
3i8onnOl A
6 AB on4B&:
3i30no08 A
02 001'~
(Ii'
BE
6'30(\171.
~CF;
506
CW,R!I§
31!5£no08 N
02 001?A
CIP
(Ii'
C)P
CIP
BE
LI,R!§
6a30n~ii'
nf) 001'0
6 9 30n202
02 00111
()~ 001'1
330£nooo x
ClP 00172
6 9 30n1A3
()~ 001':;
321£noO] N
Cl':' 00174
211onoFF A
(IP 001'5
6140n17.
(lP
50~
on16B
Oo16C
();;. 0016D
C)~ 0016£
()P 0016'
49'
~O1
~O~
~C3
2
00165
OC166
487
cr,R~
()~
(~~
1+84
48!i
48b
WRTFPT,R,
2160n002 A
();)
'+~:.
f:AL1,1
Ar,R6
on164
~,q
ROw~T
O"1r.noOo X
2060nOO1 A
(j~
'+10
,+8~
·,5
M80E.~,R7
X'F'F'
[804
RSSAVE:,R7
9£L.ECT,R7
S£L.EC"·1
."'2
•wrer:
IJ
BE
R£TURN
B
RF-A01
~QU
,•
CI,R3
MTW,a
EaR
ANSBL.t<·l
BNEZ
·SR1
BALISR4-
GFTPAGE
8N£
OlD 16 e:RReR eCCUR
YES
'NV
MeRE' RECC;RO
SF.:L£CTrBNs
DEeD BPTIBN
Net
INITIALIZE r:BR R£CSRD SEL.ECTleN
INITIALIZE SELECT TABLE INOEX
WRITE: FeD
[err iNceUNTERE:O
VF.S
TEST FeR LeST DATA
IGN6R[ IF REC SItE
GIV~N
FeR
GET ADDTTIBNAL BUF"F"ER PA(:iE
ANS
t-IC1
1"1149
!;1~
51~
!514
51!;
~EP 011
CIP 0018:1
0018*
C'~
(IP
00185
C)p
oc18A
51/,
eli' 0olS?
51'
(Ip
~1~
C)P 00189
!l519
!52n
521
!l52?
52:1
!52~
~2~
~2~
!327
sag
Pli29
!.IilO
531
00188
,,5
2180ncOO A
6930n180
3310nooo X
on18A
3iF'C}n,B~
C)P 00186
Cl? 0018C
02
CIP 00180
c)p oolS&:
eli' COlaF
C)? 00190
C)P 00191
CIP 00192
CI~
00193
6 AB onooo
[eF1!
A
X
6 8 0cn20A
00181.)
322!nco! N
2580no08 A
3020no08 A
2210noo, A
~ttloncoo X
2110n002 A
68!ont90
!5~ 1
5"~
C)~
5~3
~44
eli' 001140
6 1 00nOIJB
ClP
x
();:J
3i3e:nnoo
x
54'
001 14 1
001A2
eli' on1A3
C)~ 001A4
330£nooo
54tS
54R
() i' 001A5
6~1on1BO
!;l?
~l~
5l~
5:J~
SIt;
837
S:t8
5:J9
5~O
!54~
0019,.
e:err!
9
~t:'TURN1
EQU
~)('07000onot
•
L I, R1
II
BAL.,SRAt
ERReR
ReTURN
B
£QU
LW,R2
Sl.S,SR1
*RDF'F'T"o,R1
it
Aw,R2
SRi
L 1, R1
~
Cl? oolg~
ClP 0019!
CIt' 00196
elP 0oleJ'
CIt' 0019S
eli' 00199
C)P 00lgA
CIt» 00196
Cli» 0019C
CIP 00190
CIP Oo19E
3181(')0015
BEl
[BF2
GRANCNT
CepYSK
.+3
LW,O~
680on'-'OF
2a1ono2t
BNE
MTW,o
68 30n18A
02 0018 A
(l?
0
MTW,1
3 3 000000 X
ROWRT
CI,SRt
X'F"
A~O,R1
MIEI
CI,R1.
BL.E
2
£eF'4+
L~u
RCF'PT.S,R?
SR1
X.?FFFf
2180,F'FF A
CI,SRl
691on1.9A
2i1onC26 A
L I, Rt
38
BAL,SR_
[RR8R
BL
6ABonr)OO X
680on~OA
2120,F'Fr:
6 9 100190
2c20,FF'F
.
e
!'e'3
fA.
3!,1;2£ncoS N
352£nnoo x
E8F4
813E:nOO9 A
BL
LI,R;!'
STW,Rp
STW,R2
£BF5
YES
seM&:
FLAG
IF C6PVALL
&&:1 AB~RT
T£ST
N8
SET ABN
ceDE
fRR8R.AnOITIeNAL PAGE NeT AVAtL..At;;LE
aLD SUFFER SIZE
CeNV[RT PAGES T6 BYTES
NEW BUF"F'ER SIZ£
G£T ASN FR6M DeB
IS IT DEVICE 6R "NS
Ne
VES.BUFFER CAN NeT BE LARGER
THAN
15
ERReR.R~CeRO
erTS
SIZE
~ARGr!R
X""F,
EeF'~
X"r:FF',
ROFPT.S,R7
IF" BUF'FF,R LARGER THAN 15 BITS
SET AT 15 BITS
P8SITtSN BACK eNt REC8RO
MTW,(')
R£A01
S[LECT,R7
BEl
R~TURN
ANV RS ePT16NS
N6
Cw,Rl
BL
Tt.fAN 15 BIT
RI!TURN
B
LWIR~
3't
PAG~S
BUF"SrZE,R,
PREC
CAL11t
0410(')233
683cn~oA
CI,R~
[er3
010 Wi GET
RrCNUM,R7
*SR2,R?
£8"
GET NB.
SF' LAST ~£C
C8MPARi WITH X VALUE
ERRBR.E:NTIRE Se:Le.CTteN NeT IN FIL.£
,",cl
17149 !=;EF Oi"
()~ 001146
§49
()~ 001A7
5S0
561
56~
()~
()~
001A8
001149
o01AA
'75
613r.~OO9 A
6lS10nlB]
BGE
2c50nOO6 A
315£n005 N
L I,RS
55~
55~
()~ COlAS
6830n1BJ
!li5!li
()'
oolAC
('~
0;:>
OOlAD
2c2onOll
OOlAE:
();:»
001AF
~5~
!l;57
55R
()~
5Sq
Oi' 00180
Rbn
C)!' oo1S 1
()~ 00182
Bb1
2clonoOo
N
L,t,R1
MTW,O
"lontB2
BL.Z
2c20n012 A
N
2clonooo
04+10n25£
~']
('~ OC1e~
33'£nooo
t=564
O~
O~10~227
680on~OA
~65
00lSS
O? 00186
A
CW,R!§
BE
LI,R2
330onOoO X
02 001 8 3
!'4'2
X
6 9 30n1B7
Ef!F.6
LJ,Ri'
LI,R1
CAL,1,1
MTW,-1
Bt\[Z
E6;8
e:eF'g
02 0016"1
0410n227
5~6
AI,SR,;t
CW,R:J
2090nOO1 A
CAL.l" 1
8
fQU
~6'
~6g
C) io' 001e1
(li' 0018A
041on23l
CAL11i
CAL1,i
S~CJ
()P
00189
8
eli' 001BA
Cl? 001 8 B
6'00n"OA
!570
571
COlse
~,~
C)?
157"
~'J+
CH' 00160
C) p. oolBe:
()~ 001eF'
~,~
oolCo
~,!';
~1'
~'8
Cl~
OP 0OlC1
2090noot
•
8~3Enoo9 A
611onoAs
2cl0n029 A
6ABonooo x
2U90~OO1
2130n01C A
(lP
0olC2
6930~~O]
SRO
CI~
Oc1C3
51\1.
CI~
~B"
583
C)P
Cl i'
2i30n22C
2iJ+onC02 A
6 AB onlE:'
584-
Cl~
~85
onlCS
C01e,
0Ole,
C\tll,R:1
BGE:
EeF7
..
~eR
A
.
*SR2,R'7
[8'6
LAST R[C Ne. vs Y VAL.Ui
wITHIN FIL.E
~
Te,ARG+s, R7
&:8F6
19
MIUC
OBtNG A HEX CUMP
YES • caN'T REPEAT
JIJIT
BN.LINr
.... 3
18
VES
BATCj,o.f
MaL.e
F'PTEeO
S£L.ECT,R,
.·3
W[8F'
RFTURN
•WF6F
PREC
RrTURN
1
*SR!,R7
RrAOa
PRINT ,£eo ENCeUNT[REO,
OECREM[NT Ne. ar Rs ePTIeNS
NEt
MeR[.WR!T~
£8F
LtJRIT£ reF
BACKSPACE 6NE REC;eRO.
peSITreN
T6 X VAI..UE
TE$T IF IN FILE
YES • RE.REAO Fll.r
[RR6R
• NeT IN
1
r8F6
peSITtBN T6
8
X'lC'
TEST FeR END
B
MESSAti£
• oeN'T PRINT NL CHAR
41
£RRSR
Cl,R!
BN!
LIIRl
Lt,R..,
3~
peSITrSN T5 y VAL.UE
BAL.,SR4
BAL.,SR4
CAL1'1
O~lon;'>28
EIOonn08
Ll,Rt
Al,SRp
A
6 8 000183
51q
oo1C~
AI,SR,
ROWRT
1
TRV NEXT RS
FIL.E
y VAL.UE
PArR
BF Rr;-£L
le£RR1
£8CV6L2
'-ULBL.CMI<
£level
-SR1
TEST FeR TRAILE:R LABEL
ADVANCE: Te NEXT INPUT TAPE REEL
ceNTtNUE T6 ~EAO
~O1
~EP
17:49
08,
58~
(), OCle8
~A'
58R
Cl~ 001C9
C)P ao1C.
!l;8q
c,~
590
();:t
~91
()P
59~
~93
C)~
694
595
('~
oolCB
Oo1ee
colee
001ee:
ooleF
0011')0
(); 00101
0;>
.,5
CI,R1
£8ERR
3clEnooo x
LW,Rt
ail[noOC x
Lw,FH
CI, Rt
BNE
A I, SR 1
TBARG .. R7
.+2
O£V*eUT'R1
A
6~30n;;:02
6 9 30,.,1C[
2110f'lOOI+ A
6BOon104
e)F 00104
C)?
£800n008 A
59'
C)~
00102
600
eniDs
601
C);:t 0010'
2ilono1B
~Oi'
6 8 00020.
60~
~C4
Cit' 00107
Cl i' 00108
C)i' 00109
bOP;
Cl~
eOIt
CIP
Cl ;>
~O8
~O9
oatOe
1a10nooA A
2110nO!6 A
6'30010F
2!lonOOl A
311£n006 N
(lP
00100
Cl~
oolDE
6'30n013
6800nlCF
Et10
C)~
001DF
211on042 A
b11
C)~
A01
oo1DA
0010B
b1P
001Ee
Clt' 001£1
~1]
C)?
614
(l~
61!'i
61~
001£2
001E:;
()~ 001£4
eli-' 001£5
b11
61~
620
CIP 001E6
rIP 001£1
CIP 001E8
~21
()?
62?
Cl" Ool£A
61q
O()lE9
A
..OE:VE:RR
€IERR
W[eF
321~noOO X
6'30nl£9
3alEnoOo x
2110noo.
.
BACK UP T6 WRITE CAL
FeF
wRITE £BD
;:eCV8L
8
.SR1
eLSS£: CURRENT eUTPUT VBLUME
C8NTINUE REAOING AND WRITING
Ll,Rt
i'
B
lB,Rt
C I, R1
le£RR1.1
SR3
let!6'
8P\£
re£RR~
lI,R1
l
C I, R1
TeARG.!5,R7
REA D1*
R[ADst
rNVA~ID RS SPEC FeR
REF'6F
6'~
C) i' 00218
6'~
6'4
6'5
"'1,
6"
();'.
c,~
00219
0021A
6a2on~24
3
CI,O,
.+3
1
IRReR CeNOITlSN
SL.E
RF'TURNi
TeARG .. R1
'LW,R1
3c1£nnOo X
2110noO] A
LW,Rl
B~£Z
ULBL.C~I<
DFV.eUT,~'
ell R1
]
8£
•• 3
6'30n224
3ilonnOo X
3110n"S4
9~£
RrTURN2
()~
0021E
~'9
680
C)P
on21F
6~1.
e8~
C)? 002~O
CIP Otj221
b8~
Cl~
68.
685
Ci?
68~
c: ;:>
00222
00223
00224+
00225
Cl~
6840n~24+
6'40n~24
O"1~()t'6A
A
8A50noo' A
687
(lp
00226
£600no08 A
68R
egg
690
C)p
on22'
(l?
69t
C~
00228
00229
69~
()?
C) j)
00228
69~
Cl~
0022C
6!t~
Ci fI 00220
"g~
()t)
OiOoncoo
0300ncOc
OOOonoOo
0300nooo
OOOonoOo
O:iOoncoo
4CJOcnooo
100onoOo
on22A
0022£
cw,Rl
Ne
pel OIVIce:.
SYSTEM eUTPUT DEVICE.
GefNG T6 RAO rIl.E
YES
GeING
Mire
"X'OO,.ooooo'
R[TURN2
* CeN'T RF"L.EAS~ r, FUN IS !N6UT
LW,Rt
MIE!·1
CW,Rt
IIX'OOOiOOOQ'
R[TURN2
BANZ
CAL-iIi
'PTREL
N
x
R£TURN2
*wEer:
N
A
N
*f(?
B
*SR4
OATA
X'020000co'+~lre
GEN,I",t,
~eCveL.
OATA
DATA
0
DATA
0
GENI$I,~4
XtQ3',M';:e
OATA
X'40000000'
A
E:eCVel.2
CLBS£2
OISK PACK
IS eUTPUT F'Il.e: ePJ;'"N
Ne
GET FUN
IS IT INeUT
YES, D8N'T RELE:ASr;
REL£Asr SAO RAO FILE
7
PI.MIR~
~rCveL
A
N
LeI
T6
N8
SAZ
3111cnnOt N
3110n665
Oil20no'o
LW,R1
YES
•• 2
5
C)~
Ee,
•CLeSEp
ell R1
l"g
wRITE
0
2110noO! A
(ii'
VES •
TEST FeR TRAILER LABEL
WAS espy AB8RT£D
x
6130n~10
ROWRT
GRANCNT
B~[Z
6'30n'-19
WreF"
C)' 00218
oo21C
oc210
b9l
F'QU
LI,R]
LI,RI+
BAL,SR4
MTW,o
2~30nt»2£
665
1,'0
R[TURNl
CAL1 .. 1
LI,04
X'03',O,M,EI
X,Q3000000,+M:iS
GEN, AI ~H. X'15' .. MI[8
3()
~n1
11149 ~EP 08"
691
Cli' OC22F"
,,5
COooonoo
,.
big
()~
69q
()i' 00231
00000002 A
1(;000000 N
100
70t
()~
00232
00000010 A
'O~
'C3
()P C0233
()i' oo23~
'O~
C)~
00235
11)000000 N
00000010 A
1 0 000000 N
'()~
()?
00236
A
002:30
COooonoo
DATA
OATA
Pr:lL.Et!
GEN,8,,~.
OATA
*
PRiC
"RiCa
PZE
OJ) 00237
707
708
C,? c0238
8000nOO:1 A
00000160
C)P 002314
OctC!r:'81£ A
I
744
(j?
002S'
OO2!'
74~
C' j) 00288
?l!o';
,g~
'41;
747
748
749
?SO
C)P oo2~3
Cl' 002~9
() ;,
Cl i'
0025"
00258
C)j)
o02~C
Cl? 002S0
1St
C~?
75~
75~
Cl?
Cl"
CI?
el?
CI?
Cl?
Cli'
'5~
757
'S~
759
'&n
7b1
76iJ
OOoonooo
OOOonooo
OOoonooo
A
A
A
110onnoo N
FCOonO!iO A
OOOon"02
OOOontCS
oOoonooo
OOOonooo
8000nOOA
OUOonooo
0025E
ao2!5r:
A
N
A
DATA
teERR1
WFPTSIZ£
r:PT£60
DATA
OATA
DATA
DATA
DATA
OATA
EXIST[NCE FL.AGS
r;xrSTFNce: FLAGS.
RCABN
°c
0
X'11000000'+MI[e
X'FCOOOO!O'
e:eERR
WRTABN
0
0
G£N'1~;:t1
1,MIET.ln
DATA
0
F,QU
•• tWRTFPT
Xf 91',o,R1
GEN,8,7'1'
X']4000000'
DATA
£RReR ADDRESS
ABNSRMAL ADDRESS
BUFFER ADDRESS
eU,FER SIZE
BLeCK
£xtsTANCE FLAGs
iRRBR ADDRESS
ABNBRMAL ADDRESS
BUFFER ADDRESS
BUFFER SIZE
KEY ADDRESS
N! BYTE OIS~~ACEMENT
wRITE F"PT SIZE
00260
OOOOn~(,3
DATA
s+]
00261
80000002 A
PZE
OC2~2
c026~
*R2
SIZE
6060r!50~
0
Nt!
OOOonooo
C4t60 __ 0C5 A
05C]1')6£4 A
Cit? 00269
CI~ 0026A
OQOonolo A
1t>Oonooo N
8000nooo A
0000no01 A
Cl? on269
0026C
OATA
TEXT
A
A
0026 ..
00265
Cli' 00266
CI? 00267
eli' 00268
()?
*IWRTFPT
,.
910onoOl A
3 4 0onooo A
Del
DATA
DATA
DATA
"ATA
DATA
it\)
V[~SleNwp.
X,F100001g,
VFRSI6Nwt
x.r:OOnOO1g'
DATA
*s*
0000000'
'5~
75~
ROWRT
BUFFER
, •• E80.·ENceUNTEREDN'
05E!r.S09 A
CbC41S .. 0 A
l"Ooncoo x
"P'IL
'PTR£L
X, 1 C t ,0, MI E I
GEN,R .. ,,1?
DATA
)('10'
G£N,A .. ~~ )(f15f,Mlre
OATA
XtSOOOOOOo t
DATA
1
DISPLACEMENT
~()1
~£F'
11149
"~
,~~,
7l!'
,~"
7'9
0'
(j?
(j"
()j)
'7';}
O~
Of)
(j;?
773
C) ,.,
''-n
"1
02 00260
0026D
2UBono01 A
0026£
3 4 00nooo X
0026':
E8 30nccB A
00210
22201'040 A
00271
002'~
002'3
002'1+
on2'5
71.
(l;:J
77!1;
002',
ni'. 0027'
"'f:,
0;:>
7'7
O?
'79
""
'Be
(l ;l
'"
()?
'R~
() i'
eli'
78S
002'0
0021£
002"
C);:'
787
'88
C) jJ On281
79,
19:J
19.
'9~
eli' 00282
ClP oo2S3
eli' 0(")284
C:P 00285
CIP 00286
Cl~
00287
CIP 00288
Cl? cn289
ANO.tR2
M1Ee-s
LeI
AI,SR~
PSM,R1
Lw,R2
3Z2£no{H~
N
3020no01 N
041£nooo
3i1£nOO4
3¥10noO?
2 5 10n002
]OloncJcn
3c2onool
r:w,R2
)(
CAL111
N
A
A
X
LW, R1
BI.E
SW,Rl
SL.S'R1
STW,R,
LW,R?
N
3i10no01
3i3cnooo
661onoco
3i2cnoni
N
X
X
A
252onoo~ A
6 ABonooo x
022000Bo A
BAloncO' A
E~Oonooe
AW,R~
X
02 OOtl O
0(")280
3 5 2£noO! N
7811
*SRAt
LI,R~
oteeonoBo A
81:510n007 A
0027'
c021.
,8~
eEZ
eN[Z
3120noco
'8"
•
E~30n~08 A
20BF'FF'FF It.
682on280
'81
*TEST IF BL.8Cl 002A3
Cl? 002A4
82!l1i
(I?
8~'"
rIP 0021.6
CI? 002.,
CIP 0021.8
82'
~2R
OO2AB
A~9
c:
R30
Clp On2AA
Cl i' 002AB
(I t? 002AC
831
831'
AI,Rs
A
3iEonOOl
C) t' 0029A
81~
BAL"S~ ...
e)i' 0029]
R1a
81;:">
LW"R~
Cl"SR1
Bi
A I, Rt
AW, R1
81:;
811
eEZ
20100000 N
3010no07 A
an29S
()? 00296
CIt' 0029'
(l? 00298
C)? 00299
809
8in
32800002 N
PAGE
*CSNVERT FeRMAT
ANSCVT
lW .. SRl
00290
ClP 00291
Or' 00292
C)~
~,
00211.9
.,
ROWRT
"5
A
6 AB 002A5
CVTO
3050n001 A
20500001 A
3150000£ A
'~10n"94+
6800n09.
6 AB on2AF
2b1ono'~ A
353Aonoo A
R7
R1
CVT1
Ge ceNVERT BL,eCI< SIZe:
ADDRESS eF FIRST REC J.of[ADER
'V •
CBMPUTF BLeCK LIMIT
G6 ceNV£RT REC SIZE
N8
R'AOa7
YES
Ge C6NVERT o FMT BLK SIZE
ADOR[SS eF FIRST REC ~F!AOER
8AL,S~44.
LW,O]
1
CVT2
1
reBUF'
R,
C\lT2
AW,R~
Rl
Af,RS
CeMPUTf.
C!NV[RT REC SIZE
1
AOORESS SF NEXT AEC
O~
BL.
B
CVT.
TEST
NB
READ!,
Y£S
F>SW,SR~
*R?
LMI R1
PSW .. R1.
*R5
BAL .. S~a
PLW,R,
*R7
BtN2BCD
*R7
SL.S'R1
l
.p
Ar, R1
STW,R:;
BL.eCK L..IMIT
~:;
BAL.,SR4
CWIR~
C:VT1
1
te6UF
0
CVTO
e
AW,R~
6~lon2g;
C\lT1
BUFrE~
ADDRESS SF NEXT R[C HEADER
TEST FeR END 6F SLect<
Af,R&;
6 8 00009 ..
8980no07 A
02100008 A
8 9 10n007 A
6 A Bonooo X
8810no07 A
2 0 100003 A
OreeVT
ACORESS 6F' INPuT
T[ST f="8RMAT ceOE
01
AI,Rl
CVT4
~oF'PT.4tIR1
2
ceNVERsreN
CW,R~
2U300000 N
30300007 A
3~Eono03 A
3V!5onOO3 A
2U50nOQ1 A
3150noo[ A
RfA02('A
C6PY IF REQU£STEO.
GET FeRM~T CBDe: flieR
R1
2050n001 A
6 ABon2AF
A~S
ANSBL.I<+2
AW,Rs
AI,R!=)
81.
O£CCVT
eN ANi Te
o.. R5
~e:.OER
FeR END 8F t;LeCI<
GrT v vAL.U[
CeNVi,RT
TB BCD
PUT C6NVERSr6N IN
~£AO£R
~O1
1':"9
~3:1
834
ale;
8:ib
8]7
8lA
R]q
R40
QEP 08,
OO2AD
ell' on2AE
(l~
()~
002AF'
002 BO
00281
eli' 00282
()~
n~
()~
00283
()t'
0028 ..
·,5
PL.W,SR4
£800no08 A
B.
8~Bonoo' A
3210nnoPi A
3 8 10n007 A
2 5 10noo," A
2i20nOO4 A
6 AB onooo X
D630nOO!5 A
8~~
C) "
On2Bs
()~
00286
84:;
AI+4
0;'.
00281
2()30nOO] A
2f:)30n01' A
(,? 00288
E80onooB A
841
4J
ROItJRT
81$8onOO7 It.
C:VT2
*R'
*SRI+
PSW,S~4
*~,
R~
S~, R1.
SL.S,R1
R7
Lw,R,
LI,R~
BAL,SR4
STH,Rl
AI,R3
SI.S'~1
B
2
.eC02BTN
*~5
.,
BVTE OISP SF 0 VALUE:
SIZt:
C8NViRT T6 BINARY
PUT IN FIRST HALF 6F
l
_SRI+
C8NV£RT T6
W6ROS
~rAOER
I-In1
~EF
1'1~9
08,
'15
R~I,
8*1
C)~
00289
2C!2onno:; A
84t~
C)~
OO2BA
7i14+-noOS
~
A.9
()~
2blon01C
~s:.;
002B6
C~ ;:> 0028e
elf' 00280
C) ? 002B£
Cl ;:> 002BF
A
gB4
()~
g5~
C)? 002C1
R!5b
Sri,
()~
geA
()~
Sese
R!51
8S?
002C3
3i30n01i N
2530n06; A
3531(')005 N
LWIR~
Sl.SIR~
MIEI.18
002C~
STW,Rl
WRTF'PT+S,R7
3c"En()o~ N
lw,R4
WRTFPT.~IR1
C)~
C)~
864
C)i'
A6~
86~
C)?
Cl? 002CB
el? Oo2CC
002C'
oo2Ca
Oo2C9
002CA
oo2CD
oo2CE
~'9
c: p.
8'0
Cl t' 002CF"
8'1
(Ii'
8'~
002D1
Cl" 00202
Cl P. 00202
Cl t' 0020C)~ 00205
~"
00200
C)~
Cl'
0020,
R'~
Cli-'
002o,
(l~
00208
$\80
881
CIP 00209
8,Q
UNBF
UNBF
UNBD
UNBV
·SR~
~63
8"
UNBTAB~R1
B
g,~
g'!5
B
.....
OO2C!
C,? 002C5
Cl i' 002C,
8'~
g,
..
UNBTAB
6 8 00n2C]
6 8 0on20g
LeI
*
UNBF
2540nOO;? A
33000()OO
6 8 30n2CD
3U40000:; A
3i5Eno07 N
30~Onoo§ A
21500000 A
254+on1'7E A
2f)50rl~02 A
355£no07 ~
35~e:noo4 N
3030nooo X
3130nooo X
6'1on~06
2i!30nooo A
3530noon X
Qc20n02o A
E8 0onooB
A
3i10oo0o X
BEZ
.+4
AW,R~
R]
LW,Rs
AW,R4
LIIRs
WRTFPT."R1
*
UNBO
r(!;
0
.~
SCSIR~
sTW,R~
~
STW,R.
WRTFPT+~,R?
R~
Cw,R:;
BL
ll,R]
PUT IN wRITE FPT
GET CURRENT WRITE. AoR
t!
UNBADR
AWl
GET LRCSZ FRtlM OCa
"t1
MTW,o
SI.O,R_
UNBF2
FeRMAT
FeRMAT
D FeRMAT
\J r:eRMAT
SIGNAL NeT BL.BCKEn
U FeRMAT • Ne UNtsL5CKING
F
,-
8
SL.S,R4
x
G£T FaRMAT CeDr
MIe:I+~'R2
6800(')2'~
g60
861
Clt'
LBIR1
SLS,R1
Oc20nOBO A
£800(')008 A
on2Co
c,p
g68
6 8 00n2C3
~4t
*UNBL,6CI< • "-S TA N8N.ANS •
UNBLI<
LIIR~
:I
8
8
8
B
R~9
867
680~n~BO
ROWRT
PAGE
AM-!=;
WRTF'PT+?,R7
UNBAOR
ILKS!ZE
t·!
(')
ve:s
IS
T~IS
F'IRST BLeCK
CeMPUTE BYTe: AOR
~!R
T~IS
GE:T LAST 9TO USED
ADD T8 GET BYTE ADDRESS,
CeMPUT£ WRITE
AOR AND
BTO
STeR! 8TO
STBRi Nt'W WRITE AOR
C8MPAR[ OISP WITH BLK sIZE
NeT TJ,1RU UNBL.6CKING
INDICATE END SF BLeCK
UPDATe.: FeR NEXT WRITE
STw,R:'4
UNBADR
Let
B
*SR4
~
SIGNAL SLeeKED
LWI R1
UNBADR
ARE WI!: AT BEG
~F
BLeCK
WRITE
~~1
~e:P
17149
88~
~B3
88~
()~
C)~
08,
OC2DA
On2DB
88~
ell' 0020C
()~ co20D
~8';
()?
88,
C)P 0020F
C)P 002[0
C)' 002£1
8RR
889
~qn
()~
0020£
891
C;,
002£2
002£3
89~
()?
o02E4
89:4
eli' 002£5
()~ 002£6
1494
89(11;
B96
()~
002e:1
() :'.
89,
e)?
OO2E!
0(')2£9
002£.
898
R99
gon
901.
~c"
90~
n'
C)P
002£B
eli' 002£C
C)? 002£0
C)i' on2E:E:
'76
6'30np£8
3i1£nOQ4 N
3~10noO' A
2t:>1QnoO~ A
2220nOQ4 A
8~BonOO7 A
6 AB onooo
8 8B O()OO'
2030n003
2530001£
3530nooo
X
A
,.
*R?
BCDa6rN
C6NVERT
A
X
N
~o~
(Ii-'
002F'.
90Q
Q10
911
elf.)
OoaF!;
31:101"000 x
002':0
ADR SF FIRST REC
BAL.,SR a
PL.W,SRa
Lw,Rt
STW,R:.
()P
()~
sw, R1
PSW,S~a
2030n001 A
2530no7£ A
6 8 00n202
91~
1
UNBAOR
R1
A
3e1!noO~ N
91'
~OFPT.~,R1
C6MPUT[ Ne • WDS IN BL.SCI<
BLeCI< SlZ[
SAVe:
X
002F2
002F3
ao2FA
BLKSIZE
8'Bon007
002F1
C)? 002FB
C)? 002FC
~
BVT~ DrsP
6 ABonooo
88S0noo?
3i1onooo
ab3EnOQ5
201on001
6'30n~F£
321Enoo_
UNB03
A
N
022onOOl A
2020noo] A
252ono1£ A
3=>2onooo x
2010n001 A
3510nooo X
*
UNBV
SIZe:
~EAOER
6F' R[C ~EAOER
REC SIZe: T5 BINARY
*R7
UNBAOR
W~TFPT+5,R7
PUT SIZE IN WRITE FPT
A I, R1
1
STW'R\
Af,R]
WRTFPT··'R'
j:PuT WRITE
.,
ceMPUT£
SI.S,R3
HEADER
l
2
() t)
()P
.
AI,R1
sTW,R1
UNBD2
SF BLI<
*R?
SL.S, R1.
LI,R2
CIP
CJ1~
C6NVERT BL.I< SIZE T! BINARY
*P(,
.S
2blonn02 A
2i2onOO4 A
'lot,
90'1
915
6~02BIN
LW,R1
2010nOO1 A
90!;
(l? 002F9
eVT[ DYSP
SIZE
STW,R~
X
3i1[noo~ N
C)? 002£'
CIP 002F'O
91~
~1l
91~
2
4
PI.W"SR4
Ar,R3
SL.S'Rl
A
go.,
CIP Oc2F6
CI? 002F'1
Cl? 002F'8
R,
SL.S,R1.
LI,R2
PSW,SR4
B.L,SR~
A
3510nooo X
]810no01 A
Lw,R1
Ne
sw,Rt
ROWRT
UNBD2
ROFPT+4t,R?
BNEZ
7
AOR
Ne,
tN 'PT
WDS IN
REceRD
e
UNBF2
LW, R1
BhlEZ
UNBAOR
ARE WE AT BEG sF BL..aCK
UNBV2
ROFPT+*,Fi7
-Rl
N6
LW, R1
L~,R2
At,R~
SL.S,R2
STw,R2
AI,R1
t;TW,R1
GET BLeCK Slle:
3
.~
C6MPUT[
BLKSIZi
1
UNBAOR
AOR SF'
Ne.
WDS IN Bl.eCK
FIRST REC
~E:ADER
~n1
11149
919
g~o
~E~
081
OP oo2FE
O~ C02FF
,,5
0230ncot A
6aOOn2~'
UNBV2
ROwRT
*Rl1
UNBD3
~n1
~e:P
17:49
081
ROWRT
'75
921
92~
C)P 00300
92~
n~
9~4
9~~
Q210l
~2'
92~
325EnooCJ N
E940nOOB A
C)P 00303
ClP 00304-
321£0000 X
2110"008 A
n"
(lP
OolO!
()~
t\CCHK
31Son"e,
00301
00302
A
3i5Eno04
N
A
93P
00309
a030A
203cnooo
[B3enooB
NCC4
()?
(l j)
NCCI-ofI 0(')324
() i' 00325
3210n040 A
1 5 14nooo A
eli<' 00326
6 8 00nl28
02 OO:J2 7
C)~ 00321
211ono50 A
~820n:i2B
ell' 00328
6 ABon'08
('~ 00129
C)~
00328
6 SConoO,
321&:nooo x
96q
()P
oo32C
351[no1~ N
910
g"
C) "
00320
3i1£nOO1 N
351[n013 N
Ci2 0032A
C)~
973
9'~
0032£
CiP 003?F
Cl t) 00330
(l;? 00331
6 8 0ono06
9'b
CIt' 00332
6 A8onr;9r
eli? on333
C: i' oo3~~
6~80nOO#l
9"
91!=i
977
~'$l
97q
980
981
g8~
98~
98~
9g~
9R~
98'
98R
~U~9
e
CS.1
680on~OA
02 OOl31+
C)i' 00335
6 S 00nJ1S
Cl t' 0033'
6 S0onnDb
(:~ ool31
6 8 00(\:120
6¥Oon:l~2
ClP 00338
003:-;g
6 8 00n3A6
Cl i'
6 S 00n!AC
Clio' 0033A
C)~ 00336
6 8 0on:JA('
C)P 0033C
6800n]9r:
680on~BB
CI? 00330
"
C:1,R1
St.£
BAL.,SR~
csa
*
LN
..
ROWRT
ROFPT.~IR7
X'J+O'
_ti
AOJUSTM£NT FeR ZERS L.ENGTH
C:S2
•cIa
IC)
S£Q9UTB
WRITE~
CAROS[Q,~'
sTW,R1
reeUF+18,R1
LW,R1
CAROSrQ+1'~'
BCO
SEQUENt:E
Ge
Ttl
PUT
BINARY
wRITE
S~QUENCe:
INFC::f IN euTPUT
SIZE eJ: BCD RECSRD
B
reeUF+19,R1
An
WRTF"PT.S,R7
WRIT£2
BAL.,SR4
LtN[NUM
ceNSTRUCT WRITE KrY
SCS,,,
8
Rr;TURN
ERReR
NCS
NCS
NLN
SfQIO
~QU
SEQI02
B
B
B
B
B
B
B
B
B
~E~eROI
o,R2
8
LW, R1
STW,R1
LI,R2
sTW,RP
2a2on050 A
3~2EnoO!5
rQU
Cst1
WRrTE~
.-1
WRfTEp
CS
tie T6 wRITE
C:S
L~
LN
RR"A020
NeNE:
NCS
Nl.N
RrAD21
R[A020
R£A01g
Rr=-'A01!'S
CS
LN
aUF'F~R
H01
~EP
1'149
990
gg1
99i'
99:1
994t
08, '75
C);> 0033£
(ji?
0033'
O~
003~O
OP 00341
q9~
(1~
00342
996
()j)
oo3~3
99'
('~
99A
999
1000
1001
1.CC~
1003
1004
1005
tOOe
00344
()~ 0031+5
C)~ 0034+6
ClP 00347
()P 00348
Cl? 0031+9
0034A
()?
Cl j) oc348
() i' 0034C
Cl j) 0031+D
O034E
1.00'
100R
(l~
100~
eli' 0034F
C:? 00360
t010
1011
101~
l.n1~
1014+
i01!;
101t,
1.01'
10iR
101g
1.020
C);:> 003~1
C) i' 00352
C)p oo3ea
(l i' oo3e~
Cl~ 00355
Cl? 00356
3 J Oon(jOO X
E!30nooB A
:;300nooo x
E!i30nOOB A
330~nnoo X
E9 30nooB A
t02~
()~
oolSE
Cl i' On35F'
C)P
00360
TEST F'eR
.SR4
CftPYALL
*SRI+
C8PYSTD
WRITE 'ENTER
E:~3(')nDOB A
B~E
331onooo X
MTW, 1.
*SR4
GRANCNT
R£TURN
3 5 oonooo X
2l30(')cE? A
680on~OA
B
1100nooo N
*
~RTMSG
34+00nooo A
OATA
DATA
0000001D A
OOOonooo
'A"
1000nooo N
3000nooo
OOOonooo
OUOonnol
OATA
RDR£PL.Y
N
A
WRTCR
A
2~Oon04B A
2~OO(,)o"C A
1560~oC5 A
05Elr.S09 A
CeNTINU£
SET ABeRT FLAG
ABeRT cepy
GEN,8,~~
X.34+QOOOOOf
29
0
X , 10 , .I MI UC
X'30000000'
BREAK
1
X'11',MIUC
X'3"OOOOOO'
BRKMSG
PR8MPTR
BRKMSG
TEXT
PRBMPT
lERe BRfrAJ( FL.AG
BRKMSG
DATA
DATA
DATA
1
OATA
0
GEN,8,16,1
GEN,8'16,R
QOeOn3!)'
OOOonooo
GEN,A .. ~4
CATA
DATA
DATA
LENGTt-f
X'2C"c".,
BTC
X t 2C , .. 0' , < ,
'N·-ENTER X
X.,_.
R£AO R£Pl..Y
WRITt: CR
GEN,3,,4 X'11',MIUC
DATA
OOOnnlSF'
BREAK
NeT S£1
WRTHSG
Pr<6MPT
ROREPLY
WRTCR
PRBMPTR
BREAK
BREAI<
, X,
B~£Z
4t~
BREAK
*SR4
cepYSI<
CAL1,1
CAL11i
CAL111
CAL111
CAL.111
LB,R]
STW,Rn
CI,R3
0000no01 A
1023
B~EZ
041onl4rr
01+10n350
041onl54
01+100l58
0410n25£
1ilcnooo X
003S8
Cl~
Clio' 0035C
Cl? 003SD
BEl
MTW,o
CepYSTOF.R7
1100nooo N
3 4 00nooo A
tn2,
8 RCfoofK
MTW,o
C) i' Oo3!31
CliJ a03!l58
Cl? 00359
() i' 0035A
1.02~
1025
ROWRT
PAGE
MTW,O
Te
ABeRT ceMMANO,N'
~f)1
17149
()~
RiP 08, '?!
00361
~OE'aOe:l A
00362
D6At.ortC2 A
C)? 00363
C)~ 00364
D6Dgr:34n A
C306n4tD4 A
el? 00365
C) f? 00366
Cl0!Sr4f.4B A
n;!)
15~O.04C) A
ROWRT
sO
~o1
17:49
~EP
08,
In2~
101'
10~A
0" 0036'
O~
00368
()~
0(')369
0036A
1029
tr'l3n
0:'
10:11
()~
00366
·,5
3c2Enooo X
312F-nooS N
0;;' 0036C
1()1~
0:' 0036D
O~ oc36E
10:15
()~
to3~
tO~1
O? 00370
6S130n37!5
()~ 00371
312[nooo X
O? 003'2
6830nl8C
O~ 003'3
312£nooo X
(j~ 00374
6 8 3cn38C
0037~
02
10~l'
Of' 003'5
1n4:q
1044
()~
10:17
10lJ\\
10lQ
1.0~O
to"!5
10~~
1047
1048
104Q
003'"
O? 00311
CH' 00318
C,? 003"
()~
003'A
Cl? 003'8
ClP
on3,C
C}P 00310
ell' 003,!
1080
10!§1
105,.,
1053
Ci? 003,F'
Cl i' cn380
1054
eli'. OOl!1
InS~
10!5~
to!;'
Cl~
00382
350£(')000 x
2iEonooo
6~30n3e[
O~10n~g,
2clo,., .. S/)
3~lEnoC2 N
2210(')44F
3 b 1Er'lOO3 N
350£(')000 X
6Aeon~ot
Cll) On38:i
C: i' 00384
6!i8onl8£
Cl" 00385
Ci~ on386
C) i' C03!'
2~10n02A A
10fJ1
t06i'
3aOEnaco x
02 00:;8 8
BE
r:QU
sTw,Rn
READ11
T8ARG 1 R'
RF'AD3'
crV.eUT,R7
R~A03~
•RFCNUM,R7
PRTBUF
~,
ANS TB ANS
VE:S
"
ENTER eUTPUT 8UFf·~R L.ec F 8J<
C6MPRE'SSED IN F'PT
ceDE,R7
CBMPRrSSEO
e~E
READ?
N6
SFTEIC
RCe:RRt
LI,R1.
RC[RR
RDFPT+J,R7
CISEQ,R7
RO'PT+2'~'
R~AOCeMP
9CS,,,
Rr:'A06
8CSI2
R~A030
LI,R1
M'TW,O
~~
8"'£Z
R~TURN
r;:I;U
leERRIR1
•
cepv
INITIALIZE: RECeRD CeUNT
cw,RP;
L I, R1
SPEC:IF'IEo
SYST£M BUTPUT DEVICE.
~RTFPT+4,R7
]
CA1..1,1
INPUT ANO eUTPUT
~RReR
STW,O~
LI,R~
ST~,Rl
6~30n~OA
6eTH
Net
STW,Rn
BALISR4
*READ10
V[S
E'RR6R
"
RECSRD SELECTISN
V£S • [RR8R
~FA01A
STw,R1
692o~lgA
c ePTteN eN
Bf\,E
LI,Ol
AW,Ol
2c50nOQ3 A
315£(')000 X
TeARCl.s,R?
READ1"
S£L.ECT,R7
RrA01:1
CrVICE,R7
'+2
DF.V·IN,R7
,
Cw,R~
3UEon007
35££no04 N
c:eDE,R1
Cy,Rp
BE
N
A
51
peL OEV!CE.
SYSTEM tNPUT DEVr'E
TS INPUT FRSM ANS
Cw,R~
R£A01A
ROWRT
L.W,R'
ef\EZ
3~2EnoOo X
2120n007 A
10!;~
1059
t06n
BE
MTW,O
B"£Z
LW,R,
330e:nooo x
6'30n:lF8
3it2[nooo X
"30n36'
1.0l~
LW,R,
cw,R~
6830n2;<3
10]3
0036r:
RDwRTCe
PAGE
SET
£~R
~NO
ePTreN
eN INPUT
ABN IN MIEt DeB
CHANGE ERR AOR IN FPT
ABN AOR IN F'PT
JNITIALIZE FeR CI SEQU[,Nt;E CHECK
REAO FtRST RECeRD
Cf.fANG[
iNO SF' FIL.E
DID tIe ERRBR
YES
eCC;UR
f.i01
SiP
17149
O~,
'75
6ASonooo X
106~
()~
106~
106~
C)~
00388
00389
C)~
0038A
t066
c,~
OC3B6
1,0"
0038C
Cl? 00380
2i!1ono33 A
6 8 00n:l88
()~
0038£
Cl? 0038F
2260nooO A
6 ABon4S[
00 3 90
00391
Cl P. 00392
C,2 0039:;
ClP 0039~
6'80,-,367
6'2onl8!
106A
1069
10'0
1,0'1
10';,1
10'3
10'J+
to'!;
101"
Cl~
C~
Cl~
10"
10'A
(Ii' 00395
10,~
(li'
(IP
1080
1081
108?
(l~
00396
0039'
0039g
Cl ;l 00399
Cl? 0039A
003gB
108~
Cl~
t084
C:P 0039C
10a~
CI~
1.(')86
0039£
CI? 0039F"
CIP 003 AO
CIP 003A1
Cli' 003A2
eli' 003A3
108'
1088
1089
1090
109\
00390
CI~
1,093
003A4
C:P 003As
1094
CIt'. 003A6
109~
CIP
()?
10g~
lC'lg~
1n9'
tOgA
109CJ
CIP
003A7
003AS
(li' ao3A9
Cli' oolAA
C)P 003A8
6800~~OA
3i30noo' A
~F.:AD30
6800n150
~~ADl2
*~e:AD6
Lw,Rl
o.
B
RDABN+1
LI,R1
J:tFA011
LJ,R~
0
C I, R1
SAZ
684on390
Ll,Rt
BALISR4t.
2a1onnoo N
Lw, R1
N
6802n:J3'
6 A6on50i
321Enooo x
N
N
N
REA018
F(F.:A019
A
N
2i!10neOit A
311Ennc~ N
6'30nlAF
331Ennoo X
6 ABonooo X
R£A020
5~
8
CI,R3
BGE
LI,R3
STW,R:1
eAL,9 R4
LW,R1
3i!1EnC08 N
2110F"FOO A
680on~8e:
RrTURN
BCS,~
BAL,SR~
2230n050 A
353[no05 N
6 A8on300
351En012
3a1rnoo1
3t51Eno13
2230n050
3!3£nC08
B
BCS,8
6810t'l296
6 ABon!§Ao
3c1EnoOA
ERR6R
BAL'S~~
6 AB cn!'i31
2130no!5o A
ROWRT
BAL,SR~
B
eAL.,SR.
LW,R1
STW,R1
Lw,R1
STW,R1
Ll,Rl
sTW,Rl
Ll,Rt
CW, R1
e~E
D~ceMPR
ROWRTce
RE.01n
SI!TE6D
•
~RReR
IN C6MpR[SS[O INpUT
INVAl.ID ePTI6N
f"6R
ANS Te
5~
ANS
CLEAR EeO ceUNTER
OEceMPR~SS INPUT REceRD
[NO eF INPUT
[RRBR
80
•• 2
80
WRTFPT.S,R?
NCC~I<
T8ARG.S,R?
x.FFoo'
.... 3
EXPAND RECBRO Sl'f T6 AO CHARACTt.RS
REceRD SIZE T6 FPT
C~ECj( F'eR NC aPTIaN
wAS Tx aPTIaN SPEC IF lEO
~e
DISPLACe:M~NT
PRTBUF'
EUFF£~
TASEXP
TflARCi+10,R1
S£QIO"Al
iXPANO TABS
S[QeUT
CAROSrQ,R,
PRTSUrr·18,R7
CARDS[Q+l,R1
PRTBUF+19,R7
1'0
WRTFPT.S,R7
6
GET Se:aUENCE 10
MAKE APPR8PRIATE BRANC~
C6NSTRUCT S[QU[NC£ tNF"e
Mev£ SrQUENCE INFe 18 BUFFER
RECBRD SIZE
TeARG.5,~'
~EX
R£A02~
N8
MTW,'l
RF.:CNUM,R,
8AL,SR~
~F'XOUMP
B
N8
RE:AOS.
r8
F'~T
DUMP WANTED
tNCR£MfNT RECBRD CeUNT
~Ol
1':~9
~e:P
08, '75
110n
()i'
1101
C)~
oo3AC
003AD
110;t
1 t O~
1104
1105
1106
()~
003AE
11.0'
3i1onAAB
680on3A~
~(.O21
3~1rnn12 N
()~
oj?
ell'
() i'
003AF
ooiBo
00181
co3e!
22£onooo
N
6Aeon~{,O
2iEonooo
N
1110
1111
C)~
00385
30£01'100' A
35££1'1004 N
3ilE:nOO8 N
()~
003B6
3110n6AO
111~
0038'
C)~ 00388
C1P 00399
(lP 0038A
(l? 00388
6 A8 On 13£
6 8 00nl8;
6 AB on59£
003BC
6'80n:lA'
lieR
110Q
111~
11.14
~115
1.116
111'
111~
1119
Cl ;) 00383
Cli' 00384
()j)
(l~
o? aniSE
2220n010 A
11 ?~
112:'4
C)~
112/,
1127
003eF'
C)? O03CO
003C1
OO3C2
Cl P. OOlC]
c;~ COlC4
C,?
ooles
112R
Cl?
Cl?
112q
Cit' 003e?
1130
11:11
11]i'
Cl~
1133
1134
11lE
1 t 3~
() ;:t
oolCB
()?
003CC
oo3C6
oo3CS
C)P 003C9
Cl~
CiP
003CA
oolee
B~O~noo£
R7
A
6~2onleF
3~1Eno02 N
2210n570
351EnOO:i N
041onB9A
Olt 1onlF'O
2c1cno2C A
3 5 11nooo X
R!AD8
SET
BUFF
ADDRESS
t'C9
STW'Rn
8DR,R2
AI,03
STW,DJ
LW, R1
STW,R1
·03'R~
STW,R1
STW,R1
3~lEnooo X
WRTF~T.4+,~'
,eARG+8,R,
LI,R2
8AL,S~.
BCS,g
LI, R1
STW,R,
Lt,R1
STWIR1
CAL.1,!.
CAI-11i
LI, R1
22101'187]
PRTBUF
B
CAL1,!
BAL,SR4
8
*~E:AD'
•PRTBUF
!l!X'OOFFOOOO'
WRITE.SA
K 6PTIEtN US£O.
WRTFPT,R,
WRITE REC6RO
BRC~K
C~ECI( BREAK fLAG
R£AOfl
LINENUM
R£AD20
[RR8R
RF'TURN
BANZ
2U£ono01 A
35[£nooo X
3ilon'S'
361£noOo X
02 0OlCt;.
LJ,03
AW,D]
aUF"FiR ADR
TEST r~ SLeeKING WANTED
YES • GS GET NEXT Re:CBRD
LI,Dl
LW,R1
CW'R1
REACtS
680on~OA
Cl?
e
BLKTEST
RtAO,
B
r:QU
STW,O~
x
Cl i' 00380
1120
1121
1124
112f1;
6~4on12l
a~lEnooo
sa
REM6VE SEQUe:NCtNtj
B.L.,S~~
6 8 OO(\]8r
,ADWRT
PRTBUF·1S .. R7
RFAD19
STW,R1
READ22
02 OOlA'"
Lw, R1
,,
FQU
Z£R6
ce
SUFFER
,-1
1
CeW~RD,R'
IX'38FFooao'
PRTBUF,R7
WCERR
WRTFPT*2,R7
INITIAlTZE
Te aND weRO 6F BUFFER
INITIALIZE FIRST W6RD eF BUFFER
C~ANG£
ERR AOR IN fPT
WC:ABN
WRTFPT*3'R1
S[TEeC
SFTBIN
:i2
CeBUSFD,R7
CeBL.EFT,R7
•
C~ANG[ ABN AOR IN FPT
SET ERR ANC "aN IN MaE! {;lee
SiT BINARY MBDE FeR eUTPUT
~n1
11149 sEP 01,
11.37
Cl~ 003ee:
t1:i~
eli' 003C'
1.1l9
Cli' 00300
11~n
Cl~ 00301
Cl i? 00302
11 ~"
11~2
eli' 0030]
11~]
()?
11~4
eli'
eli'
Cl i'
Cll'
Cl i'
Cl?
Cl t'
114~
11~6
1147
1148
114~
1150
t 181
11 !~
It!5]
11~4
11!S~
tl~~
11S7
11.~8
11SQ
11,n
1161
116t'
1163
1164
(l?
C)?
eli'
1169
11'0
1111.
117?
117~
00308
003o,
oolOA
oolOS
oe3De
eelOD
co3DE
C)~
0030r:
C:~
003EO
CIP 003E1
Cl i' oc3E:2
003E3
Cl? 003E4t
el? 003£5
Cl? 003E6
(II'
Cl~
Cl t)
t16f;
116,.,
1161
1 S."R
00304
003D!
0030,
003D'
.,5
O~le:nooo
3a30noo~
eli'
003E"
003EB
Cli? 003Ee
Cl i' 003£D
O? 003EE
Cl~
READ INPUT
.17
GET Stl£ eF INPUT REC6RO
SL.S,R~
2'llonooF
4f."lonoao
A
X
A
LI,R1
A"O,R~
211ono02
6'2on3D6
3230nooO N
3300nooo X
6830nlOE
3aoonOO1
"30n3£1
35300000 X
6 ABon2B9
6980n3E:'
3c5£noO- t\i
R£A084
AI,R~
0
READ85
~
I(£A086
ANSBL-I<
St1n
1211
1~1;::t
1213
1214
121f;
1~1"
1?1, ,
j~l~
121q
122n
1221
t?2i'
()~
ClP
Cl2
oo'+OA
004+06
OO'+OC
on'+oD
oo'+oe:
C1P OO4tOF
001+10
e)p 00'+11
() ;J
C) t' 004+12
() i' OC~13
Cl~
OO'+1~
eli' 00415
001+16
(}'
3Z60nooO
6~30n~1F'
A
"
6 9 80n41F
BNE
STwIR~
F(C206
6fSOOO42t.
004+1E
02 OO~1'"
2160nnSo
6~2no~2!5
Re20?
A
02200090 A
8 A10noO? A
RC;9Q
~
MIEl+13
IS IT DEVICE SF< ANS
sL.5CKING ANS TAPE
ANSBL..K+1
RC207
wAS RE:C SPECIFIEU
ANSBL.t<·1
XtA'
RC201
ROFPT.*,R?
WRTFPT.I+,~7
RC20?
WF(TF'F'T.5"R7
CI,Rit
st.£:
RC290
SW,SR~
R7
B
RC212
Ne
YES
SET
W~
rB
SIZE eF THIS REC
IS INPUT r:R6M ANS
N8
RESET WRITE AODRE..!;S
SET BLecK SIZE
Be UNBLSCK
NeT SLeeKED FeRMAT
GET RE:C8RD SIZE:
at*)
WRTFPT.,+"R1
CI,Rt,
•
BG
RC210
Pl.M,R1
11
.R1
LeI
GET ASN FIELD
AR£
UNBL.K
rQU
REceRO
ANSel-I<
RC20!5
eAl'S~4
SeS,g
ViS
R~AO
t+2
BLt(SrZ[
Lw,SR:t
38AonOO7 A
X'F"
STW,R,
LW'R~
3iAE:ooo. N
00410
STW,Rt.
CI,R!5
LW,R;t
6~2on"21
C)~
Cl? 00 4 20
C)~ 00 4 21
C) ;l on~22
ReaOS
6930n41F
3C!2Eno04 N
3=2£0004
3660nooo X
();;t
MaEI
Bt\[Z
35600001 N
OO4+1C
At\O,RS
MTW,o
3:JOonOO1 N
C)~
SL.S,RI1
MIEl+4
.11
Lw,R,
eEZ
683cn~12
21$ooOOA
ROF T"R?
CI,RS
9G
LW,R/,
MTW,o
x
RC2~6
CAll11
LI,Rp;
N
3c6EooO§ N
2160n050 A
1224
Reaoe
6~2on40D
Cl t' 00'+19
ClP on"1A
e)i? 00"18
ao 4t 1F
BN£Z
4I>~50nooo X
21!5ono02 A
3;'000000
50
SUaReUTT~E R[AOeeMP R~AOS CBMPR£SS[O INPUT.
R[ADC6MP LeI
1t
PSM,R1
*R'
MTW,o
UNBADR
TEST IF' UN8L6CKING ANS TAPe:
A
6Aaon~e9
C)~
1~26
2i!onOOF
C, ;> 00411
Cl~ 004t18
1~2~
tt>2~
041Enooo x
*
ROWRT
PAGE
At')
[RR6R
AOR eF THIS REC"RO
CJ..IECK L~NGTH 6F R~C6RO
eK
NeT CBMPRESSEC • MAKE r.RR8R EXIT
t-4n1
~EP
1'149
'~2'
()P
08, "5
00'+2]
Ote2onooo A
1228
n? 00424
E8OcnooB
1229
11'30
12]1
{l? 00'+25
(l? 00'+26
1t>~~
()~
2~Aonooo N
3260no0 7 A
2t)6cnco~ A
12]:1
0042'
() r> 00428
1~34f.
C't? OCI+29
4tt3cn~B8
001+26
6930n0421
1i4cnooo
131Cnoon
2i30n001
3c6onoOA
1i']!;
CH' 00'+214.
1~:J(,
C)~
1231
()?
cnl+l'C
1J~3R
el?
00'+20
1~]g
Cl~
001+2£
1240
C)~
1.241
C)~
124P
C042F'
001+30
Cl? oo~31
00'+32
Ftl3CnooA
A
A
A
~~8'
()~
12e~
LW,R~
A~,R~
306onoo7 A
Fl'+6nOOb A
Cl~
1.~50
1251.
R1
LB,R4
MTB,1
LI,R]
X
1~!I)l!
12~9
Ll,SR3
Lw,R,
SI.S,R,
CI'R~
X
11'85
!2~'
124R
*SR4to
Bt\£
2230nno~ A
U?4b
B
La,R]
2130n018 A
eli' 00433
Cl2 00 4 31+
()P 004+35
Cl i' 00436
(iP 00431
c:~ 00"38
Cl? 001+39
C)~ 0043A
ClP On4:.;B
c:? 0043C
ell' 0043D
1~4P;
0
A~O,Rl
6 9 30n0421
1244
RC212
A
(ip
12~3
*
Rea10
c:e,R4
*
Fi!S'nco~ A
22 4 onooo A
Ftil+6nnOe A
2c30nOO3 A
F~46nOO6 A
2 0 1+F'F'F'F'F' A
Fi20t'H,)O{' A
Fc3~nOO6
18BUF
*SR3,R6
L(X'1F')
X'18'
RC290
1
SR]
R,
LI,R3
LB,R!§
LI,R4
STB,R*
LI,R3
L8,R4
At,R4
2
*R6,R~
0
-1
*R6
*R6,R4
6930n421
2i3CnOO3 A
F'i46nOO6 A
254+0noO] A
12f,~
C)P OO4t44
351+I!:noOO X
LI,R3
LS,RI+
SLS,R.
STW,R*
3
1?~P.
ClP 00441
C)~ 00442
Clp aC1+4:i
1~61
.
C8MPUTt: C~ECKSUM
eRtGINAL T9 RS
Oe:CREM[NT
0043F
Cli' 001+4+0
1~(,O
ADDRESS
GET BYT£: CeUNT
.-2
LIX'F'F',)
12!5q
REceRD
ZER6 BYTE IN RECORe
.~O'R2
3150noo' A
S~Q
~
.R6,R~
4~2on68~
1~!58
CHECK
*R61Rl
OO~3E
Aw,R~
BOR,R~
6'+4004:;B
to
.R6,R~
RCa90
L8,R:1
1l?!54
C~ECt<
c:rSEQ,R6
CrSEQ,R6
A
30200003 A
1~53
OE'AULT REC ADR
!
e~£
Le,R~
57
ROWRT
LeI
START SUM
R~
ADO EAC=H
ITERATE
CW,RS
Rt
CI-4s:CK
8t\£
RC290
*R6,R:;
l
creTeTAL, .. R1
IN
R~
IN R2
BVTE
eRIGINAL. AGAINST NEW
SET UP BIT ceUNT FeR
T~IS
REC6RO
~n1
1':~' n;;:» ~EP 08,
OO~4!i
tf'64
,,!5
ai4ono20 A
354+[nooo X
LI,R.
LI,R~
126~
()~
OO4t4b
126,;
()P
00447
3~4+E:nooo X
1.t)67
()i'
1~68
el2
00 4 48
OO4t4+9
OJ? O()44A
224+00001 N
3 0 4tOnOO1 A
354+£nooo X
1~,q
OC!2oncBn
BAlonoo?
12'(")
()~
OO~4e
127,
()P
0044C
1P??
n~
OO~40
12'~
()~
0044£
E8 Oc nOOB A
12'!,;
()P
0044F
?ilonoaA
'.2'~
()P
004+50
(1 i>
Cl~
00451
12'4.
1~7'
1i?'~
121q
1280
t~81
128~
1~83
1284
1?'8~
1~8b
128'
128R
12ACf
oo4+S2
Cl' 0045:1
C)? 004!§4
Ci~
Oo45C
(I'" 004+50
•
~C&:RR
680on~21
3 iF onOO1
Oi20noBo
A
A
8 A10nOO7 A
Oi2on020 A
£80onooB A
..
RC[RR2
R1
11
LeI
II
B
*SR~
LS,R1.
SR3
CI,Rt
,
BE
RCERR~
Be:
RCERR~
!5
L 1, R1
0
BAL,SR~
[RR6R
RC290
R1
B
PI.MIR1.
LeI
B
EX!T
)(,56'
RC200
BE
LW,04
LeI
ceNTRtjL
CtWeRO,R7
.~,
er,Rl
RC[RR1
CrBUSR"O,R?
tNITIALIZE
CtBL.EF"T,R1
reeUF+l
f'LM,R1
C!,Rt
21100005 It.
2i1onooo It.
6 A80noOo X
Cl P. 001+5A
Ci~ 004t58
LeI
683~n4Bg
CP 004!5'
o~~59
AW,RAf,
STW,~
1
6830n4S9
C)~
STW,FC*
Oi20noso A
ClP 004!55
elP 004!1
()~ ool+!S8
STW,R~
.It
A
2110005' A
6 8 30n40'
211onoOe A
ROWRT
l~
11
.R'
I
-SR4
REPBRT Ie
SAVE ABN
ERReH~
ceDE
WBROS
50
~n1
~EP
11149
12'0
1t?91
08"
,,5
ROWRT
PAGE
SUBRBUTyN£ OrceMPR REeeNsTRUCTS
129~
*
INPUT.
*D£CBMPR
LeI
1~93
Of)
oo~5E
0220t'H')10 A
1294
C)~
OO .. 5F'
8t;50noo' A
PSM,R~
129~
C)j) 00"60
2ilonooo A
L I, R1
129('
U?9'
C)~
oo4t61
C)? 00462
3i4&:nooo x
00"63
22F"F"FFF N
1~gg
() t)
1i'99
O? 00 4 64
t~co
1~O1
C)P
ClP
CU?
ell'
Cl?
CIP
CIP
C)?
eli'
C)?
C)P
Cl t'
Cl?
1302
1301
1304
1l0Fi
1:iO~
1]01
130R
1~O9
1~1.0
1]11
131~
131~
00 4 65
00 4 66
0046'
00468
on469
OO46A
00466
0046C
004+60
004+6£
00'+6F
Oo~70
oe'+71
C); 001+'2
1]14
Cl j) OO~'l
1~1!5
CI2 004'~
Cl? 004'5
1316
1::11'
1318
•
6 4 20n467
2UF'onnOi. A
2260n006 A
6 AB on49£
212onOOb A
212on02C
680on~6A
Cl~
00'+"
132~
Oo~'8
Cl t? oo~'9
eli> 00 4 , .
()P oo~'e
1324
C'i' 001+"
6 8 00nl+9A
e)i' oo~,D
3Q9[noOO X
132b
DEetS
*
DEC20
6100n46A
6 8 00n470
6 8 OOril+80
6800"1+92
*Oe:C30
CrBUS[O,R?
CrBL.EF'T,R1
PRTBUF-1
35
• t
*C4,R~
.-1
,
1
O[C20,R2
6
44
BL.
oreiS
LB/R!5
SCCTAB,R,
LB,R!
STB,RS
Al,R1
CtTAB,R2
B
OrelO
B
B
OF.C30
e
SYMB8LtC R[CBRO FRSM CeMPRESSED
BYTE ze:~e
INITIALIZE INPUT CeNTReL W6ROS
START tN
~,
BL.E
e
6 8 00nl+83
*R1
0
"OFC60
AI,R2
?IS_ne"
A
'1
BAL/S~4
CI,R~
A
6800n474+
1i!Hlrn!1B
F5!52ncoF It
2Ul0nOOl A
aOR/R,
.1,04
LI,RA
CI,R,
6 51 10n4-'3
202F'F'F'06 A
1]19
ll2~
D£C10
6fj24n~,(,
1320
132?
Aw,D4
LI,R~
L~uRl
STw,R~
B6341'\00' A
00'+16
1321
Lw,R4
Ll,O ...
3U Fonoo'
2c20002l A
3i30nt,.S
(Ii?
Cl~
LW,SRt
329£0000 X
59
•• 3
eUTPUT BUF'f'"ER
BLANt(
GET , BtT BYTE
rF' C8NTRCl. BYT£ (0-6)
[XECUT£ JUMP TAB!.,::
IF NeT c eN TR6L, EXTRACT 8-BIT
[ecore ceDE FRBM APPRBPRIATE
TABLF:.
•• 2
*041 R1
1
OrCl0
O[C3!S
PUT ceo~ IN eUTPVT BUFFEr.<
ITERATF
CBNTRBL BYTe: TABLE **
PADDING
UNASSIGNED
[eL
*.
i8F
8
D[C40
~e:XT
1\
B
O~C4f.5
CeUNT.l
BIT
8
DEeSO
~EXT
~EXT
STW,SR,
CrBUS[O,R1
REST8R[ CeNTReL WaROS
C6UNT +65
~(')1
SEF 08 ..
1'(.9
.,5
354£0000
132'
1328
() ;:t
oo4t1E
()~
1~2q
OO~7'
OJ)
ao~8C
1330
()j;)
CnAt~1
1331
()~
00'+82
X
Oi200010 A
gA50noo1 A
Oi20noOo A
[1000008 A
C)~
OoJ+~3
359&:0000 X
1l3~
1:;3~
1334
1~l5
C) "
n~
133~
()~
133'
OJ)
00484
001+85
00 4 8'
00481
00488
13l~
()P
133q
()~
1~~O
(H? 0048A
C:P 00488
13~1
13~~
on4a9
3;4£nooo x
rTERATF.::
001+92
US£ ,
Oc~97
2i6onOO6 A
6 AS on.'&'.
2020n001 A
2250n040 A
F652noOF' A
2UlonOO1 A
00'+98
001+99
6 8 00nlt6.
0049A
2~60(H,)06
Clf'
CI;:»
Cl i'
() i'
eli'
ell'
CIP
136~
*R1
DFC10
00'+93
00"'94
00495
00496
CiP 00'+98
CI? OC49C
CIt' On'+9D
FS2!nooF
*
OECAtO
A
6 ABonlt9'
1
LI,Rt,
~
0[C60
DEC.?
BAL,SR_
AI,R2
LJ,R5
STB'R!!;
*O,+,R1
1
eCR,R~
e
2020n041 A
6 8 0on49S
.D~,R1
*
6~2on4~'
A
II
c£C~!S
AI,R1
*
o£cso
LI,R6
BAL,SR.
Al,R~
.
e
ADR TN READ FPT
RESET ABN ADR IN REAO FPT
B
(Ii'
13'~
PL.M,RPJ
LeI
,
~RR
6800n46A
134~
1361
LeI
RESET
00491
13'"
1:1'0
LI,R1
STW,R1
LI, R1
sTW'R1
RESTBRrl C6NTR8L WSRDS
2(Jl0nOOl A
oo·sF
C~
CrBUS[O,R,
C:tBl.Er:T,R7
leE RR 1
ROFPT.2,R7
ROABN
ROFPT.J,R7
G£T 8 BIT
CI2 004+90
"
STw,SR,
SIGNAL F'SL..
EXIT
8
1l~~
(::
*SR4
O[C60
(IP Co~8[
(IP
135R
1359
0
8
LI,RIl
BAL,SR.
STB,R2
AI, R1
1~4tP;
2c6onOO8 A
6 ASon4gr
1361.,
1]!S?
*R?
SIGNAL F:eF
[XIT
00480
13!3~
135~
,
LeI
STw,R~
6V
*SR4
CIP
135i'
1353
RDWRT
Ctel.E'T,R1
B
13~4
13!i1
•
Ce:C3!
351&:n003 N
02200010 A
8 A50noo' A
02200080 A
[8000008 A
1350
PL.M,RR
2210n14F
oo4+8C
1349
LeI
2clon~o3
301Enoo~ N
()~
13~3
STW,R~
',-
,
,-2
Ol;'C10
,
orC60
f.tp;
OFC4f.1
ceDE
FReM 16BUf
PUT IN eUTPUT BUF"FER
etT ceUNT
·1
rXPAND BLANK FIEl.D IN BUr FER
JTERATr
USE: 6 BIT
.65
ceUNT
j.(n1
t7:49
!;EP 08" '75
On'+9e:
'~64
C~~
1365
t~e~
Cl? co~gF'
eli' OOJ+AO
1~6'
()P
1368
C) i' ao 4 A2
136q
13 7 0
1~'1
13'"
1373
1374tr
t~'f5
'3'"
On4A1
C) t' OO~A3
C)~
00l+A4
()?
Oo~A!3
C) i) on~A'
C)P on~A7
()?
00l+A8
137'
C)P 00l+A9
ClP ooltAA
13,g
Cl?
1:i?q
1380
1381
()?
Oo"+AB
Oo4+AC
C? C04AD
C) t' 004A£
A
319£noon X
3~50naoB
6 AB on401
2i20nooo
3 5Enooo
3i3Anooo
3 8 4onn06
681on4B7
3U60no04
252Cn1.00
3~5[nooo
3c3Anooo
138b
00 48 1
eli' 004B2
C)? 001+83
2t)2!n.100
1381
ClP
004BI+
2Q4FF'FE~
1.388
C~?
001+88
13SQ
ClP
001+8,
1390
Cl t> 001+8,
1l9~
139'
20!50nOOl
3 A4onOO4
A
X
A
A
8AL.. .. S~4
Rf.AOC8MP
Lw,SR~
..
O£C65
3 A40nOO4
6 8 000488
2 0 2Cn100 A
a=3Anaoo
A
E8 0onco8 A
Clp 004814
C) ? ooitBB
rl? oo'+BC
Oi20no,o A
8 A!onoo, A
Oc2on020 A
£800no08 A
e
LI,R~
Lw,R!5
Lw,Fti
SW,R.
A
A
A
X
A
A
A
A
A
Cl? oc488
ell' 00l+B9
liP oc~8D
DF"C65
LW,R.
6 8 0on49£
Oo4+Ar
139!;
CWISR,
eL£
LWIR5
3~~Enooo X
atl'£nOoo x
004BO
1:;9~
R~
3l Bonoo!§ A
C)~
1393
AWISR~
BCR,8
LW,SR4
(I i'
139~
A
6~8on4BA
1~8~
1391
DEC60
6 8 2on4A8
13RJ
1384
t38!1;
Cl?
ROwRT
30gonae,
*DEC'!
0
CtWeRO,R7
OIRS
RI,
R.,
i
c:tW6RO,R,
olR5
LCW,R~
R4
OIRI+
.~2
R.,
8
0[C70
OlR6
OIRS
*SR4
LeI
7
STw,R]
PI.M,R~
LeI
8
IF NeT
0,C60
SLO,R2
Ay,RI+
e
6R
R~
OlR6
SL.O,R,.
READ NEXT RECBRO
MUST Br C6MPRESSEO.
CtBUSF.O,R1
CtBL.EFT,R7
SI.D,R~
LCW,R~
Oe:C?o
ore?!)
DFC67
LV.,R3
61
SR~
8GEZ
AW,R,
AI,R5
STW,RF
Oe:C61
CI8TeTAL"R7
EXTRACT (R6) BITS
£NeUG.... LEFT IN CURRENT REC6RO
YES
*R7
2
*SR4
INITIALIZE RE.SULT RFGIsTER
GET BUFFER POINTER
PICK UP CURRENT WeRD
Cf.fECI( IF' R3 C6NTAINS TeTAL. BVTE
SR I ' VES
ceMPUTP-:
ANO
NB,
S~IFT
SF' BITS
18 R2
IN R3
fNCREMF.:'NT BuFFER PBtNTiR
GET W6RD F'R8M aUf/FER
GET Ne. eITS NEEOED FR8M R3
S~tF'T INTB R2
C6MPUTE 8ITS LEFT IN CURR[NT weRO
SHIFT TeTAL. eVTE T8 R2
PUT CURRENT weRO BACK
EXIT
SET ERRSR FLAG
[XIT
~O1
11149 ~e:F 08,
\398
1399
()? Oo~8E
1Af.On
1~C1
Cl? Oo4+8F
e)i' oo~co
1~O?
C)~ OOAte1
140~
1~044o
()P
OO4tC2
144oO~
()~
ooAte]
1406
()~
004C4
1401
1408
ooAte!
O? OO*C6
1Af.09
C);'.
1410
1411
()~
004C&
()~
004+C9
004CA
ClP
004C7
,,5
•
Oi2onc"o
8t150noo? A
2c8onooo A
3a9Enooo x
314£noOO x
32110000
6'20044oD1
2cSonOO3
x
1414
OOAtCC
Cl~
004+CD
141{'
1417
C)p OO~C[
C)~
004CF
141R
CP
Oo .. DO
8 A50noo'
EdOQntJOB A
Cl? 00 .. 01
Cl2 00 4 02
2alonooo A
2C? Fonooo N
141!1i
6ABon!~S
3 5 4£noon X
359£nooo X
1420
1421.
004+03
004Dlt
00l+D5
1-42i?
C)~
142:1
1424
(l P.
(lp
142~
14~b
Cl i' 00 .. 06
Cl j) OOA+D?
1421
(l~
004D8
142R
(l~
0040!J
1429
1430
Cl? oo~DA
C)P OOitDB
•
3U F onoo7 /4
Fc52ncOP' A
21!)oncCO A
1433
1414
Cl? oo~OC
Clt:' OO~DO
Cl? Oc~DE
•eMP10
T6
STW,SRP
LeI
,C8BUS[O,R'
WRITE LAST REC6RD
R[STeRF C8NTRBL WBRDS
PL.M,Rp;
B
*R1
*SR4
£X1T
L I, R1
0
C8MPR£SS STARTINij
teBUF
CeMPUT~
STW,R~
LI,04
LB,Rp;
A"D,R~
8NEZ
CMP12
B
CMP17
LI,R6
BAL,SRM.
CMP60
BL.E
72!An!586
6'30n40C
F'c!2noOF A
LB,Rc;
LS,RPS
6 8 0on4EF
2c60nOOb •
6 ABonltFC
201onoot A
*CMP12
CMP13
R1
*04,R1
x.eo'
CMP15
"x'3F"
CI,RS
4~50n'B6
CMP60
.X'18F'FFFF"
PRTBUF,R1
WRITEee
c:eBL.ErrT,R7
AW,C~
CMP11
e'
ZERe IMP~IES END
eUTPUT FILE
EDIT £8F' CeNTRBL BYTE
IN 6 BITS
Ct-iANGg
6820n4£9
1411
143~
eMF'S
,
ce:e
CHECf( R[C8RO SIZE
PRTBU"R,
BAL,SR4
0220n010 A
141q
RrCS1ZE,R7
CMP;,O
LI,R6
aAL,SR4
LW,Rt
."C,R1
STW,Rf
6 A8 on*FC
311£0000 X
4 tt 10n6BA
CIP
CeSL.E,T,R,
LW,R1
LI,R~
2c6onoo' A
35 1e:oooa
L~,R4
BGZ
A
141::1
C04CB
,
x
C) j)
C:P
141~
RDla/RT
62
PAGE
* SUeR8UTtt\E C:SMPR[SS PRSOUC£S .. C!MPRe:SSrD eUTPUT Rt:CeRO AND WRITES IT.
ceMPRESS LeI
PSM'RS
*R?
LI,SR1
SET BLANK ceUNT l,r;R6
0
Lw,SR~
CeBUSrO,R7
PICK UP ceNTRaL we~os
A I, R1
GET
to FReM X'38'
X'lR' FeR L.AST ce R[ceRO
BUFFER
N~XT
eYTE:
r:eR A-l,o-9
CANT BF IF LESS i~AN X,CO'
GET 6
4tOI+,R1
lERS, USE 8RIGINAL
1.
eyTE
Cj..f£CK
c:eTAB .. R5
6
AT
ADDRESS
BtT
ceMPRESSED CeDE
8 erTS
6£T alT ,eUNT
[NTER IN eUTPUT ~uFFER
P6SITfBN T6 NExT BYTE
ZER6
~Ol
~EP
11:~9
1~3F5
1436
1437
14lA
14]«;
1440
1441
08,
OO~OF
elf? oo~Eo
()P
Cl~
OO~E:l
C)? 004+£2
C)? OO#E:3
.,5
311£noOn X
6'10n4+C4+
CMP11
8GEl
LCW,R1
AW,SR1
C:MP14
Lr,R~
e~el.
226onoo~ A
LI,R~
Is
BAL,SR4
B
CMP60
CMP5
LB,R~
cB,R~
SCcTAB
SC:CTAB,R,
3 A 1onOOl
A
3U80n001 A
2 ct5 0nOOl A
6 AB Of)4FC
680cn4CC
1441
eli' 004£9
Cl P. 004t£A
?160n!"
715Cn!'f,
()~
QoJ+EB
144~
(I?
1449
Cl~
145n
1451
eli='
C) ? 004££
!4!5~
Cl~
1459
145~
C)? 004F'0
CIP 004tF' 1
Cl? OOI+F'2
14Sb
Oo4+ F3
14e;4
Cl~
004£C
Co4ED
00"£':-
1457
Cl? oo4F4f,
145R
C);?
14£5q
1460
C)~
on4'6
j,4('1
Cl t'
onl+F',
146~
OO4F5
el? 004F8
oo,+Fg
146~
()2
1464
CI' oo'+FA
C)~ 004F'B
14b~
CMP1!5
6 8 30n4F"
OJ)
ocl+F'C
004FD
1469
Cl~
14'0
1411
C)2 004F£
CH' 004FF
BE
BCR,R6
64+60n4EA
2150n040 A
6830(,4"
355£0000 X
21l!5ono04 A
2 26 0n006 A
6 AB on4'C
CMP17
2060n028 A
32SonOO6 A
6800fi_OC
2U8onOOl A
680on4C£
83S0noo? A
2Q8onaoo
6'gOn502
6 A 0,,81.4
STW,RPi
LI,R5
LI,RI,
Lw,Rf5
LI,Rb
6 AB on4FC
6 8 0on40E
CI,R!I;
BE
eAL,S~~
325Enooo X
2i 6onoo 8 A
1466
1467
146R
CMP1~
.
144+~
14.~
AI,R1
6 8 10n4E:5
004£8
144~
1444
ROWRT
RE'CSIZE'~1
BL..
201Fp:tFBo A
Cl2 004E~
C) i'. 00 4 £5
()P 004£6
C) " 004£7
14~~
CW,R1
8AL,SR4t
..
CMF!'20
CMIi'25
**
CMP60
A
CMP62
-11\0
R1
Fe!
CMP2Q
.-2
,
STep AT END eF
6~
REreRD
eUTF'UT NeT LESS THAN
PAO T6 80 BVTES
8n SVTES
ADO EeL T6 REceRD
NeT A·Z .. 0-9
Ct-IECI< SPECtA~ 6 t.iIT ceDES
t
CMP25
ATTR6 .. R1
CNEXTA
BLANK
a.SIT CHAR MUST
~E
BUTPUT
I!J
CMP60
ATTRB .. R1
SUTFUT (, BIT CeNTReL
C~ARACTER
8
C~A~ACTER
B
CMP60
CMP13
eUTPUT 8 BIT
tTERATe:
AI,R6
Lw,RS
R~
4l
reUND tN SCCTAB
ceDE rs INOEX+43
B
CMP12
AI,SR1
1
B
CMP13
pSw,SRa
AI,SR1
BGZ
BAL,SR4
.. R?
0
CMP65
CMP70
ACCUMULATE BL,ANK
IS BL..Af\.K CeUNT
Ne
ZiRe
He'l1
(Ii'
1~'3
Cl~
14'4
08 .. ·'75
00500
88BoriOO' A
on501
E8 0onooB A
14'~
CIP 00502
j.4'~
Cl~
C!~
1417
14'A
14'9
Oi20n020 A
0050]
8~50no01
ao50~
2250no01 A
2c60noo' A
C)? 00509
1480
00506
eli' 005e1
1481
Ci~
c:~
208F'F'F'F'~
1~R~
CIt:' 00509
();?
0050A
1484
();oJ
00506
t48!1i
()P
ooSOC
208FF'F'CO A
14~~
(I? 00500
Cl? 0050E
CI? oeSor:
1488
1*89
(1 t'
00510
14g0
1491
()~ 00!11
Clp 00512
149~
(l~
oe513
6 AB on51"
li!5nnOOR A
6ABon51,4
022on020 A
8 ASonOO1 A
2if80nooo A
6800n4FF
14+9~
1494
1.~95
149b
1~g,
1.49~
1499
1500
1501
l~O~
150~
Cli' 00514
() i' 00515
(II' 00516
Cli-' 00517
()P 00518
ell' 00519
Cli? C051A
Cl t' 00518
Cl? OOS1e
1507
00510
e)i' OOS1E
(li' 0051'
e)i' 00520
150A
()~
1504
1~O5
150~
n~
00521
3i2onOO!5
A
3V90nooit A
2190nl60 A
682cn!2"
8 98 0nco? A
3 i 90nOO6 A
22E:onoOo N
6 AB on260
6 1 00n!1&:
6ABons .. 5
*CMP~5
It
2i.cnC20
A
2i90n020 A
X
-SR ..
LeI
2
*R?
LI,RS
LI,R~
AI,SR1
BEl
Lt,Rt';
CI,SR1
BL.E
LI,Re
,CBLANK
-1
CMP68
CNBC1
CNaC6~
CMP"
CMP68
BAL,S~4
CMP'70
LeI
PLM,RS
Lt,SR1
it.
*CHP'O
iNTER BLANK IN
eNL.,Y BNE:
6 8fTS
BL.ANK
lt~
CMP61
AI,SRt
BAL,SR4
LW,R!;
.
64f.
*R'
PSM,R~
.~
..
CMP?O
SRi
*R?
c·'~ BLANKS, ENTi.R c:eUNT·1
[NTER caUNT+65
AOJUST CeUNT
eUTPUT C6NTR5L BYTE
GET CEtuNT
eUTPUT CeUNT
e
CMP62
0
SET Ne. 6F BL.ANKS T8 Z[Re
eUTPUT eRIGINAL,. 6YT£
LW,R~
AW,SR~
C:I,SR~
R!Ii
peSITreN ByTE IN F'V£N ~e:CirSTER
fNC!R£MFrNT TeTAL. ~tT CeUNT
BLE
FSW,SR~
Sw,SR~
LI,O]
BAL,SR ..
R~
CeBTeTAL
CMP73
.~1
RI!I
PRTSUF'
BLKTEST
e
•• 2
PL,.W,SRMo
*R1
BAL,SRM.
88Bonno1
330~noOo
B
A
1483
0050B
PLW,S~4
A
6S30n!So'
2aSonOQ5 A
21 8 on03F' A
6120n!500
2250n006 A
1481
ROwRT
~e:F'
11149
14"
LI,SR"
Lr,R.
MTW,O
WRITECe
CAN ;tT IN CURRENT RECeRO
RESTeRr PREVIeus BIT C8UNT
BUFFER AOR
G8 T[ST IF SL.eCKING WANTED
VES • SKIP WRITE
wRITE REC8RC
]~
:J~
te£RR"R1
DID
IB F'RR6R
eCCUR
~n1
11:49
1SCf9
1~10
15 t 1
15t?
t51:1
1514
1~15
1516
1~1'
1518
1.519
152n
1521
152;»
1~~3
~EP 08 ..
C,? OO5e»2
ROWRT
'15
683cn51~
ClP 0062:9
() i' 00521+
6 8 0on .. CC
325£noOo X
Cii' 00525
Cl i' 00526
6510n52£
00527
O? 00 5 28
()2 00529
()~
ell' Oc5~A
C) ,) 00528
Cll? 0052C
C)P 0052D
Clt'
005~e:
Cl? OoS2F
(Ii' 005~o
38~onoOb A
CMP'3
B£Z
r.:MP70
LW,R5
CMP5
CBweRO,R7
e
SW,R4
R~
8GEZ
CMP15
663Ano01 It.
LI,R3
SL.O,R,
AwM,R2
MTW,'l
AwM,R:;
20~On020 A
AI,R~
]~
8
Sl.S,R~
·SR~
O.. R~
A
AwM'R~
O.. R5
A
8
*SR~
2c30noOo A
2t;28n100 A
662,AnOQO A
331EnoOo
X
E80~(')OOB It.
252snoOO A
'62.4nooo
E80onooB
CMP?5
0
o.. R~
O.. R5
CeWEtRO,R'
1.. R5
hie
YES
6~
• £XIT
GET Bur:r:ER P6INTER
BYTE: WILL. FIT IN CURRENT
AOJUST NUMBE~ eF' BITS
[NTER fN eel W8RD
ce weRD
WMIC~
WIL.L FIT
PUT evrRFL.6w BITS !N N&!XT WeRD
NUMBER SF' BITS L.EF"T IN CO weRO
EXIT
PBSITreN eVTE.
ENTER TN Ce weRO
[XIT
~n1
SEP 081
1':~9
'15
j526
o? 00531
15~~
ni'
152q
15l~
C)P
C)?
C1P
eli'>
1~3:1
n~
1534
It=5l5
1!'ilb
152'
1!=il~
1539
1540
15.1
1542
SF:TE80 FINns
TRUE BVTF- r.:eUNT,
SUeReUTI~E
1521
1~:;O
1~l1
RDwRT
PAGE
t524
1525
2i20noOO N
30200001 A
00532
00533
2230n02~ A
oc53~
3i4onbAB
00 5 ]5
00536
00537
2b3cnooi' A
00539
005314.
00538
0053C
00530
0053£
0053F
2U300003 A
C)?
el?
Cl~
Cl i?
(i?
Cl?
1!54t~
15~~
Cl? 005~O
15~5
O? 00541
151+6
1541
Cll' 00542
Cl? 005~3
'~4R
C)~
OC544
S£TE60
Lr,R~
.
B~£
'+2
LW,R.
BOR'R~
*
SL.S,R:a
R'
M.XCl.MN/ •• l
, ,
*Ra,R]
2
l
6~30n53D
8t\£
.+2
6"'30n!53A
8DR,R]
•• 2
2V30no01 A
353£noOo X
AI'R~
SRS!
EtsOonoOB A
3c;2EnOO4
3c3E:nOO5
t\
~
203F'FFFF A
2i40n040 A
6aOOn!5]"
*
S£TEeOR
ce,R4
.R2,R~
1
STW,R~
R~CSIZE:,R'
8
*SFi4J.
LW,R2
Lw,R3
AI,R3
ROFPT+*,R7
LI,Rt4
8
err LAST NeN.Bt.ANI< ANO
MAKE
GRBSS
.-2
AIIR3
Fl4J.'nOO2 A
c:eLU~N
PRTSUF"
CWIR4
AW,R2
LIIRJ
e1~'nOO2 A
6'30n~38
6"'3cn~35
() i' 00538
()i.'
..* T6
60
WRTF'PT+5.R7
-1
X'40'
SRS5
R[VERT
tTERATi
Te
SETS
RECSIZE
c:eMPARTSBN
ByTE INDEXING
THReUG~
SVTES
eF weRD
SAVE TRUE REC6RO SIZE
rXtT
BUFFER ADDRESS
SIZE
ADJUST FeR INDEXING
Ge STRIP TRAILINij BLANKS
~O1
!=;E:F 08,
1"~9
1~49
·,5
ROINRT
PAGE
1550
1551
*...
1~5P
O~
005~5
Oc2QnoBn
155~
O~
00646
8t:S1on007 A
2090n007 A
1554
1555
H5S~
t!=i!5'
15S~
0'
0'
Oi'
()~
0054'
00548
00549
0054A
00548
1559
O~
n~
~56(")
o? 00540
1~61
O~
1562
COS4C
0054£
()i' 0054F
156:4
15(,4
O? 00550
()?
an!5!51
1~65
n~
00562
1566
156'
1568
C)~
00553
t569
00554
00555
eli' 00556
Ui'n
()?
.1571
C) i' 00558
t5'~
Cl~
()?
(),
Oc5!51
A
2U2FF'F"FF A
F26~nOOF Ii.
Po
6"20nF.HS~
2i6cnnO~ A
F55CnoO£ A
005sD
Cl? 0055E
CIP O05!5P"
6 ABone05
0 4t 1[noon X
l!5,g
1519
1580
1!;81
158i'
1583
1684
1585
()ll
Cl? 00660
Cl? OQ561
OP 00 5 62
(li' 00563
ell' oc5~4
Cli' 00565
A
x
.~
l
P~TBUF"
AWIO~
R1
*03,Rs
Lw,R~
S~2
AI,R2
LB,Rl-t
AW,RS
.1
At, R1
WF'(C610
*03,R~
R~
.-2
2
SEQ8UTB
CALi .. !
WRTFPT,R7
1
CBWSRO,R7
A
20EFFF'F'F A
AI,O~
.f
De6anOQ£
STH,RIt
*Ol,R4
A
SEQUe:Nt;~
BYTE
CNT
NeT GR
~
•
DeNT WRITE
GET ALL SYTES
rreRM
C~FC.I COS"
O~
00578
Oi? 005'9
C) i' 0057A
1#to!=;
1606
6Q6£,"'70 A
nj) 00576
?e..404040 A
02 OO!5?tt
40Af.04n4() A
Clt' OO57C
eli' 00510
C)P 005'£
Cl i'
ClP 00580
CI? 0(')581
Cit? 00582
C? 00583
C~
C~
O~
F"F!F"6F1
ou
2
12
13
3
1-
1
16
1~
2
3
0' 00588 1
c,
r:QU
ceTAe
DATAI1
TEXT
.-1
,
.I,~
>1".'
SPECIAL. ".BIT CHARACTERS
01234567R9ABCO£FGHfJKLMNSPQRSTUVWXVZ'
A
A
D607n8D9 A
E2E3r4e:~ A
E6E'F8E9 A
005B8
0;:> 00588
CITA6
,,«.,&,*)~
C7Csr9C1. A
O? 00586 1
O~
T£XTC
DiD3n~D!I§
005B6
00586
O~ 00586
O~ 005!1
O~ 00581
OP 00581
O~ 00581
P'G!
FIF"r.1C~ A
CiC~r.5C~ A
00584
0058!
O~
SCCTAB
61j
FOF1F'PF3 A
ooS,F
1601
1608
1609
1610
ROwRT
c
on588 3
ot' 00589
ot'
ot'
00589 1
OOSgg 2
O~
00589 :3
17
18
19
lA
00
00
OU
au
QU
00
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
O.l18'1g'~n.l21.12~.I2JI24.1~~.I26'OIO'OIO'O'Olj
o.l21,28,2Q,3o.l31132133,34.135,OIQ,Olo,a,o,1
O,OI361]',31139140.l41142.1~3'O'OIO'O'O'OII
R,9'10'1111211~11411511'.I17,o'O,O'o,o,o
~n1
17149
sEP 081
eli' 0058A
oc58B 2
00
lt;
it.
11J
1t:
if'
20
3
21
A
A
A
00
00
00
00
00
00
C? 005804 1
ClP 0058. 2
C)~
0058A :3
C)? 005a8
Cl? 00586
()~
(l"
CIP
c,p
ROWRT
'15
aesaB
1
aosae
ool5AC 1
Cit' aoSaC ~
C1P 0058C 3
2c
23
A
A
A
A
A
A
(lP
00580 3
Cl~
0058£
CO
A
A
A
A
A
A
A
(IP
OOSBi 1
00
A
C)~
2
3
2~
!t>
A
A
A
A
A
A
A
A
A
A
A
C)~
C) ;>
00580
ao5aC
1
C)? 00580 2
Cl~
oeSs&:
coss&:
26
() ? on58F
Cl~
Cl?
3
27
28
29
1
2~
2
:;
0058F 1
2
oosa,
Cl~ 0058'
eli' 00590
(li.' 00590
Cl~ 00690
(Ii' 00590
(IP 00591
C)~ 00591
eli' 00591
C)~ 00591
C) t! 00592
Cl? 00592
C)~ 00592
c,~ 00592
eli' 00593
2A
1
00
00
00
00
2
3
00
00
1
o~
2
3
o¥
OA
o!
o~
70
A
A
A
A
A
A
A
A
A
•
""fn1
1"49
r.;[P 08.1
nil) 0059] 1
00593 2
3
0059]
0'
();
1~11
O? 00594
0' on594 1
O~ OC59" 2
0" OO594t 3
02 0059S
O~ 00595 1
()~ 00595 2
(,P CoS9!; 3
();:t 0059'
1l,1~
()~
1613
1614
161!;
()~
,. b 1 lot
161'
t61R
0059'
Ol? 00598
00599
Cl i' 005914.
C) t) 0059B
OD
O~
Ot'
10
11
00
00
00
00
A
A
A
A
A
A
A
A
au
A
A
00
A
06oonooo x
CUoonooo A
S£TE!C
06000000 X
ell' OO59C
00590
OOOOn!l51l
A
GEN4~""1'
DATA
OOOon44r:
OOOOn44F
COOonooo
OOOOnB?l
C)~
ROwRT
"5
S£TEeC
X,06, .. O,M,EJ
X,COOOOOOO'
DATA
RCERR
DATA
RCERR
GEN,g",,17
X, 06' .I 0' MIE!
DATA
)('COOOOOOO'
WC£RR
OATA
WCERR
OATA
71
Hn1
~EP
171~C;
C8, '75
1.619
1620
1621
1~2?
16e~
3c1£nooC
N
ROWRT
PAGE
LJ~ENUM C5NSTRUCTS
* SUSReUTTNE
LINE: NUMBER.
*'
LfNE:NUM
LW, R1
TBARG+12,R7
1~27
elf' cn59E
Cl? 0059F
Cl t> aoSAO
Cl~ 00SA1
ell' 005A2
C)? aoSAl
162R
Cl~
1629
Cl? OOSAS
Cl i' 005A6
Clp 005 .• '
[15000008 A
8
-SR.
PSW,SR~
*R,
1.63~
Cl?
Cl?
005A8
CoSAg
8'Bnn001 A
2210002£ A
6 ABonnoo
163~
163~
163~
C:?
rIP
caSAS
Oo!Ae
1624
1b2r;
1.626
1630
1 t,] 1
1lil3P
Oo5A~
c:? CnSAA
3 1 1[nnO£ N
6~2on5A7
4~lon6BC
351£nooo
321£nooO
6blEnooC
N
N
Oi2onoBo A
oa20nooo A
E80onooB A
T6ARG+l,+,R,
BG
LtNE2n
BR,Rl
STW,R1
Lw,R1
AwM,R1
LeI
X
X
888eno07 A
C:W,R1
LfNE20
A
wRITE:
GR
I(F-V
T~AN
FR6M
T~E
CURRENT
MAX
IX'03000000'
C8NSTRUCT I(EY
T8ARG+13,R7
TeARG+12,R1
INCREM[NT FeR NEXT KEY
KF.'V .. R?
8
L I, R1
~~
BAL,SR4I.
PLw,SR4.
LeI
£RR6R
*R1
8
7i!
a
*SR~
EXIT
£RR8R j:"LAG
11:49
1637
1638
*
*
1/,]9
•
1.6~rl
1641
!'~ 005AD
I~ ~ OOSAE:
Oc20"O'o A
PAGE
SUBReUTt~E TABEXP EXPANDS [MBFOOr.D TAB C~ARACTERS IN A RrCBRO
wHENEVER T~~ AUTPUT 6PTIBN TX IS SPrClrI~D. R1 CeNTAINS BUFFER
DISP~ACF.MENT
TA6EXP
LeI
~ELATJVE
,
Te R7.
*R1
R?
8t:t50n001 A
PSM,R~
3(J10n007 A
AW,Rl
2C!50nooo A
LI,R!I!
0
0
3aSE'noo'" N
16~'
()~
005 8 2
0058]
2220n005 A
Lw,SR1
LI,R2
16~g
0' 0058*
2i90n040 A
1~"q
LIISR~
O:J. 00565
TA8SET+4,R?
X'05'
"
1660
1~!51
O~
n~
1651'
0;;.
1,b~'
16"3
1644
164~
164~
1b!5~
16!54
165!=i
16S6
1~5'
165$\
1659
1b6n
1661
166~
1663
1664
1665
1b6b
1667
166A
I~~
an5AF'
(;2 00580
('~ 00581
O~
0058'
ooSS,
00588
O~ 00589
OP 0058A
n2 00588
ell' coS8C
2i6cnooo A
3JFE:0005 N
6SJ10n!5BC
F12CnOOl A
2U60nnot A
316£0005 N
6 8 20n587
331£00015 N
Oi20(H110 A
gA50nC07 A
eli' on5co
CIP cose 1
eli' Co5C2
C;P 005e3
Cl" a05C4t
CI? ooses
CP coBC6
C~ Co5e,
,59cnnot A
2Q8onooo A
ct> oases
1670
16',
(Ii'
167~
16'7~
(Ii'
coBC'
CI? coSCA
Cit'
005ce
cosec
MTW,.,
TAB5
6 8 3005CO
()2 00580
Cll' 0058£
el? OC5SF
1.66Q
LI,Rlt
F~3Anoog
6~30nsC'
A
2iSonooo A
6~Oon!5B9
A
3130noO'; A
203F"FFFF
6!i2onSC[
2U50n001 A
2150n010 A
6'10n5C3
cB,R~
BE
11486
TABS
At, R~
CW~R~
*TAS 1,0
TAB12
TABli
1
WRTFPT.5~R'
TAB5
LeI
7
PLM,~~
*R1
WRTFPT.S,R7
*Rl,Rt,
AI,SRt
o
BEZ
L8,R~
TAB6
*SR1,R5
Bf\EZ
TAB15
LI,SR1
o
AI,R]
DISPLACEMENT Br ~AST CHAR IN RECbRO
NULL R[C6RO
TEST FeR TAe C~ANACTER
peslTteN T8 NEXT CHAR IN BUFFER
SET TRUE REceRD SIZ£
[NO BF BUFFER • ~XIT
*SR~
STB,SR~
B
TAB15
WRTFPT.5~R'
TA88
*Rl,RIt
TAB10
81.[
MTW,1
e
E8QonoOB A
6'3rln!B9
eLZ
ceMPUT[ ACTUAL BUFF[R ADDRESS
START AT FIRiT TAB
START AT FIRST CMAR IN BUFFER
G£T TAB TABLE ADORESS
TA86
-1
cw, Ft~
R~
BG
Af,Rs
Cl,Rs
BL
1
16
TAB17
TAB12
STSRi BL~NK eV[R TAB
w£R£ TABS SPECIFIED
C~AR
~e
GET TAB VALUE
Ne
MBRr
VAL.UES
IS
T~rs
TAB peSITreN
peSITI!N e, TAB
N6 • TRV NEXT
~eD[
TA~
GREATE~ T~AN
PBStTIBN
H01
1"1+9
~e:P
08,
caSCO
,,$
c,~
005 0 2
0050]
6 1 00nsCS
2060nOOl
3c4+E:noo!5
3830nOO6
6 8 30nSB7
3030noo353£nooS
();:t
0050~
FiAano01
()~
F598nOO1 A
11,83
()~
0050!
0050,
1684
Cl2 005D7
203F"F'FF A
tb'~
16'5
C~j)
()j:'
ooSC£
ooSeF'
1~'1,
()~
ie??
167g
16'9
16@0
1681
168i'
01' 00500
() i' 005D1
168~
C~~
()~
00508
1686
C)~
th8'
C)~
00509
0050A
j,e88
C)i' 00508
1689
Cl~
1t,~O
Cl?
ooSOC
ooSDD
FbA6nnOl
A
N
A
A
N
A
A
204+r:,-rrF'F A
314+0n006 A
681onp§O.
3160noO] A
2050n001 A
680onsS7
TAB1'
TAB1'
AOWRT
B
.f,R,
TA813
Lw,R~
S~,R:I
WRTFPT+S,R'
R~
BIZ
TAB5
MAX NUM eF TABS
74t
AW,R]
STW,Rl
LB,SR:;
R.
STe,SR~
*R11R4
*R1,R:a
INCREMENT T8 NEXT CHA~ IN BUFFER
DETERMINE ~AST CHAR ~esITteN
CeMPUTi NUMBER 8F eL.NKS T5 INSE~T
NBNE
INCREMENT T8 NEW LAST CHAR
SET NEW REC6RC SIZE
GET ~AST C~AR eF R[CeRO
BLANK THIS CHAR IN REC8RC
MeVE C~AR UP T6 N~W pesITt6N
-1
Rt,
Ge T8 CtoI.R JUST ABeVE TAb BLANK
STS,SR1
AI,Rl
AI,R.
CW,R_
1
WRTFPT.!,R7
*R11R~
.,
Btl&:
TA619
Af,R!
R:t
1
LW,R~
e
1.85
INC C~AR peSlTJ8N T8 L.AST MBVEO
INC TAB TAB~E P81NTER
LeeK FeR MeRE
TASS
1"4'
1691
169'
1693
1694
n? onSDE
169~
n? o05DF
\69~
()P
169,
'" 005£1
eli.? 005£2
tb98
169CJ
1100
1101
1'O~
1703
1104
t?OFi
1706
1707
17Ca
1109
005Eo
C)? 005E3
OJ) 005£4
e)2 oaSES
eli' 005E6
()? 00!5E7
()~ 006E8
()i' 005E9
Cl? 005£.
()? 005£6
Cl~ 005[C
()~ 005Eo
()~
oo!!:!
1'1(')
1? 11
()?
1.'1~
C);!' 005Fo
171::1
1714
ClP
1'15
1'1~
1717
1'18
1719
1'20
1 '21
1122
172~
ooS£r
eli' OOSF 1
005'2
eli? Oo5F3
riP 005'4
eli' OOSF's
C)~ Oo5F6
ell? OOsF,
C)~ OC5F8
Cl? 005"
eli? Oo5F A
n~ 005FB
OJ) Oc6F'C
el? 005FO
()~ OOSF[
Cli' 005F"F
Oc20nn1n
81:$50noo,
321lnOOC
311£noo£
6l$2on~£A
A
A
N
N
3c1EnooB N
322[rlOOO X
4+~2In!5FB
-'2In600
3'2£nOOCl
2210noOO
3!51E'nooC
6 ABonooo
4~30n600
X
A
N
X
353£n001 N
201t'frF'FC A
6¥2on5F.
2a30nClOl A
2i5cnooo N
*
*
SUBReUTt~E SF-Q8UT C6NSTRUCTS SrQU£NC[ tNF8RMATIeN IN LSCATl6N
CARDS[Q.
Se:GSUT
LCI
PSM,RR
*R7
T8ARG.12,R7
Lw.l R1
GET SEQUENCE NUMSER
CW, R1
T8ARG+14,R7
SFQBUTl
BL.E
Lw, R1
TeARG+l1,R,
LW,R~
CAROS[Q,R1
ANOTBLIR1
A~D'R~
eR,R2
8RTBL.,R1
STW,R~
CAROS£:Q,R1
RESET tST weRD SF S~Q INF!
LI,R1
GR THAN MAX - REVFRT T8 0
o
STW,R1
TeARa.12,R,
SEQ6UT1 eAl,SRa BtN2Br!D
ceNViRT Te BCD
eR,Rl
EtRTBL.
STW,R]
CAROS[Q·t.R7
ENTER LAST 4 CHARS
AI,R4
3050no07 A
1i1'nOO~
•
F5 16noo! A
203F'FF'FF A
'44t-on!l§F2
3c1EnooO N
6f»1£nOOC N
0220n010 A
8 A50noo' A
[SconooB A
OUOonooo A
Ft'Ooncoo A
Ft-' F:F nooa A
FI" FfrFF'QO A
F"FFFFFF A
ROWRT
PAGE
S£QeUT2
,
S[Q5UT2
LI,R~
LI,R~
Aw,R~
CAROS[Q
LB,Rt
STB,R1
AI,R:I
BOR,Ra
LW,R1
AwM,Rj
LeI
PL.M,Rs
ANOTBL.
••
Bl.EZ
e
DATA
1
GR THAN
4+
C~ARS
R7
R~IRJ
[NT~R
*R!5,R:;
.-3
-1
TBARG+13,R,
TeARG·12,R7
7
Leap
REST eF NUMBER
eN
SIGNIFICANT DIGITS -4
INCREMENT SEQUENCE NUMBER
.R?
*SR4
[XIT
O,Xf'FOOOOOO',X'FFFFoooo·,X'FFFFFFOO',X'FFFFrFFF'
~n1
~EP
1'149
1724
()~
08,
OC600
Oi? 00601
.,5
F'UFOr::'oF'o A
OOFOFOFO A
()~
00603
OOOOF'OF'O A
OOOonoFo A
O~
00604
QOOonOOo A
Of' 00602
BRTBl.
DATA
ROWRT
X'FOFOFO'O"X'OOFOFOFO"X'OOOOFO~O"X'OOOOOOFO"O
76
!-Ic;1
~EP
17149
,72!=;
'-72"
1'27
1728
1129
1'30
1731
173;:>
1133
1'34
08,
OJ) 00605
()i?
()i'
00606
C)~
00608
('~
00609
oc60A
O~
oeoo?
();.l
0060C
();'.
0060D
113A
()?
oo6oE
1739
(l?
1740
1741
Cl j)
174i'
Cl~
C) j)
0060F"
0061.0
00611
00612
1'.Fl
C) i' 00608
C)~
00613
Cl~
Oc61~
Cl~
00615
1'5,
00616
Cl; 00617
(IP 00618
()~ 00619
(lP 0061A
Cl? 00618
175p
elf)
1753
"S4
(lP
1747
1'48
"Ate;
1150
(l~
Oo61C
00610
CIt' 0061£
Oa20n040
A
A
8t:150nOO7
N
Lt,SR1.
2i8onooo
308onoo7
2260nool
2ilonoo1
2230nnoo
F't!22no08
5c24;n629
A
A
A
A
A
L I, Rt
,
Lt,R]
(')
LI,R~
S[Q100
'i4t2n'2'
La,R ..
CCTAB.R2
"X'OOoOOFFF'
SHIFr.R1
R4TAB,R1
*RS,R4
6 7 Oln61'
~"XU
E628noO!§ A
20400001 A
AwM,R~
A!,R4
AwM,R!
At,Rt
£638no05 A
201FF'FF'F A
6460n60J
2ilone7S A
351E:noO! t'i
Oi20no .. o A
8ASoooo' A
£800n008 A
2520n014 A
2e2onl'C:
A
25200010 A
25 20"004 A
252on11a A
-
SI-IIFT
lPO
STW,R1
wRTFPT+S,R?
LeI
4
*R,
*SR ..
SLS,R~
20
SL.S,R~
SI.D,R~
8
SI.D,R~
lBCATISN 6F CAROS[Q
BYTE
DtSP IN CAROS[Q
GET BVTE: FRftM CAROS[Q
GET CSNVERTED VA~UE
MASK aUT FLAG BJTS
peSITIBN IN R2.R3
SET R4 T5 BU~FER OISP
FNTER VAL.,UE IN BUFFE~
.1
L I, R1
SI.S,R,SI.S,R;
,IELO !F
1.
S[Ql0n
PI.M,Rs
S~QUENCE
-RS,R4
eCRIR~
8
Z£R6
~g,R5
CARDSr;Q
R7
8
LH,R~
A~O,R2
2 5 200008 A
OP oo62~
AW,SR1
-R?
WRTFPT.,4,R7
2"RS
t's,Rs
4~20n(,BO
Cll' 00620
C)P 00621
ell' 00622
"'n
,'61
STW,Ro
S~QU£NCE.: tNr:6 IN LeCAT18N CARDS!Q T6
IT IN TjRfE: LAST ~ WBRDS eF' T~~ eUTPUr
*SR1,R1
Clil 0061F
00623
STW,R~
ENT~RS
LB,R~
175~
();:t
PSM,R~
Lw,Rp;
STW,Re
17S7
115q
** BINARV FeRMAT ANO
.. BUFFER,
46SF.:Q8UTB LeI
3ZSEno04 N
350An01B A
350An01C A
]tSOAn01D A
175Fi
1'5R
77
SUBRBUTtP\E S[Q6UTB CeNVERTS
17:17
1746
ROWRT
'5
PAGE:
1'3~
1'l~
1'4,
1'74+4
t
...
16
4
-8
Lee" Tel C6NVERT 8 BvTES
SET RE:CeRD
[XIT
SlZ~
IN ,PT
BUFP[R
~n1
1':49
1.'
6"
1,E,3
~EP
08,
ClP O~62e
Cl~
00626
(l?
00621
171,4
176S
CiP 00627 1
Clio' 00627 2
00627 3
eli' 00628
Cl~
CIP On628 1
C:P 0(')628 2
eli? 00628 3
,,5
252cnooC A
OiOonooo A
1~
A
ltJ
1t;
1'1(;
A
1'lL)
lU
A
A
A
A
A
A
.
R4TAB
ROwRT
sLS,R,
1j)
OATA .. 1
2',27,2,.~8'2R'~.'29'29
Nep
78
Hn1
~E:P
111~9
1'61!.
1'"
1'~~
I"("
('~
("
08 .. "5
02 OOA2'
S tf 03
2
00629
8!101
8881.
006214
8841ti
0062/4, 2
on629
O;;t O~62B
8821
00628 2
02 0062C
n, O06~C 2
O;? 00620
8811
8803
C)P
00620 2
C062£
8'03
8883
C)~
0062£ 2
()~
11~q
O~
1'7n
1'71
O? OO62F
Cl~
0062F'
(IP
00630
a
Cl? 00630 2
CIt> 00631
CIP 00631 2
CIP 00632
I!'
00632 2
C""
8a~3
8823
stt13
8808
88o,
8U03
8501
81+81
8"41
A.
A
A
A
A
A
A
A
A
8~21
84+0:1
A
OO6l!5 2
00636
8a03
00636 2
0'- 0063'
8"41
A
A
A
ct" 00635
O~
O~
8"8~
8~23
a
8413
00638
Ot' 00638 2
02 00639
O~ 00639 ~
8~oB
0' 0063'
o~
D'
006314
84+01
870l
8301
8i!81
1SJ
r;QU
DATA .. ~
•X'8B01',XtR9n1, .. Xt.881, .. X'88.1, ..
OATA .. ~
X,B809, .. X,8S06, .. Xt8803· .. X.8903',X,8883"X t 8S.3'
OATA .. 2
X'882~"XtI81~'
.. X'180B' .. X'8807"X'8003"X'8501'
DATA.~
XtB48,',X.8~~1,
.. Xt.421, .. X'8~11, .. X'8~09',X'8~o5'
nATA .. 2
X'840l"X'850lf'X'8483' .. x'8441t3',xt8~!3"X'S.13'
D.TA,~
xt840B"X'8407'6X'I?O~'6X'8301'6X'8p81',x'82~1'
X'8~~1"X'8811'
A
A
8"11
8"09
8~O!5
ROWRT
A
00633
Q~
1"~
8805
CP 00633 2
C;t 00634
C~ oo63~ C
C:~
1?7~
8~O'
CCTAB
A
A
A
A
A
A
A
A
A
PAGE
A
A
A
.
A
A
A
A
A-
A
i-tOl
~EP
17149
C!~
~"4
(Ii.'
(Ii'
,,5
08~
006314 2
0063B
006]8 2
8i03
8283
8c~l
A
0063'
el? ao63~ 2
8223
Sc13
A
A
Cl2 006 .. 0
8208
A
820'
A
A
A
A
A
A
A
A
A
A
Cl~
00630
Cl t' 00630 2
(It' 0063£
Cl~ 0063£ 2
ClP
c~p
1."~
CI~
(Ii'
(IP
00640 2
00641
on6~1 C
00642
Cl ?: Oo6~2 2
00643
(I~ OO64f.:i 2
(IP
1'"
(Ii'
006l+4t
CI~
0064~
(It'
00645
()?
C)~
Oo6~!5
006~6
oo6~6
C)~
00647
CI?:
"'R
2
8iO!
8i03
8'" 0:1
8101
8081
804t1
8021
8U11
aoos
8103
,.
8082
A
80~3
800B
A
A
A
A
800'
A
8003
2
2
Cl2 00641 2
CIt' 006~8
C)? OO6~8 2
006*9
CIt' 00649 2
Cl? 0061+A
Cl t' 0064A 2
e)? 0061+8
C) t? 00648 2
C) i' Oc64C
C)~
Si09
8009
Cl~
1179
8c21
8':11
ROWRT
A
A
A
t.A
A
A
A
CIP 0063C
Cli' OO63C 2
1,715
8a~1
0064C 2
802l
8013
0000
8tt01
BASt
8 A4t1
8 A21
8 A1i
aAog
8 Ao!
A
A
A
l-
A
A
A
A
80
OATA~~
X'8221"Xf8211',X'.209'~X,8205',X'8203"~"303'
OATA~P.
X,8283"Xt82~~t~XtI223',X'8213',Xt820B',X'8207'
OATA .. ~
X'8FO~"X'8101
',X'1081 f ,X'80_1',X t 8021',X'8011'
~
x'8009"X'800~'''X'IOO3' .. xt8103''x'8n83''x'80~3'
OATA~'
X'8021',X'801~"X'IOOB',~'800"'X'OOOO"xt8Bo1'
nATA,;
X,8A8t"X'8A~1',X'AA21t,X'8Al1"X,8A09"XtaAo5'
OATA ..
M01
·,5aA03
A
0064+0 2
Clt' 006~£
(l~ 0064+£ 2
ClP ao6~F"
()~ 006*' 2
8 9 02
A
8882
0000
A
A
A
A
A
Cl? 00650 2
0 8 06
0 8 00
1':49 sEF' 08,
elP On64tD
t'80
Cl~
1781
()~
(Ii'
00650
00651
eli> 00651 2
178,
A
A
OO6!5]
(Ii' Oo6!3
el? 00654
a
8(.21
8(.;11
Cl? 00654
2
00655
O? 00655
CIP 00656
a 850t
SC;09
006!6 2
CI i' 0065'
Cli' Oo6!7 2
!18!;
006!5B
c,~
006SC
C)~
C)~
0065C
006!50
2
a
ClP oo6!50 2
C)P
Oo6SE
ClP OC6!E 2
'786
()~
on6SF
X,848~"X'04_~'''Xt04~2''X'OOOO',x'Oooo"x'84t06'
DATA .. ,
X'04tOO"Xtooon',~'.681',x'86*1"xt8~21"x'8611'
8611
8609
DATA .. ~
X'8609',~'860~t"X'~603',x'8302"X'8COO"~'OOOO'
860!5
A
8602
8302
8'-00
0000
A
A
nATA,~
x'022~"Xt821~"X'020A',x'8206"X'8Eoo',x'SFo1t
8681
8641
8621
00656
~
A
A
A
A
A
A
0"22
(l~ OO6!15A
(It> 006SA 2
C)~
Xt8C21"X,8Ct1, .. X,aCo9f .. X,8C05 f ,X.8C03',Xt8502'
A
A
A
A
A
A
A
0000
()?
OATA,~
8482
0 4 .1
00659 2
()P.
A
A
A
A
fA
A
A
Cl i' 00658 2
c,t:' on659
00658
Xto80A"X'080~, .. X'0800',X'8001',X'8C81"~'8Ca1'
St;05
St,03
0000
0000
8406
0400
C)~
DATA .. ~
.. x,a88~' .. X'OOOO"X'082~"X'OOoo'
A
8~81
8(;;41
()j'
Xt8AO~t'xt890,'
A
(Ii' 00652
Cti' 00652 2
C)~
1784
0000
OIOA
81)01
(li'
1783
OfS22
ROWRT
nATA .. ,
O~22
[)ATA ..
A
A
A
81
HOi
1'1~9
S[P 0&, '75
ell' On6~F 2 Se12
C,~ 00660
OZOA
C) i' 00660 2
8206
C)P 00661
C)P 00661 2
1'8'
C)~
C)~
00662
00662 2
CH? 0066]
() t' OO66~ 2
11SQ
8121
Si1t
8£.03
0066' 2
OU42
A
00661
00667 2
00668
00668 2
0066'
0022
A
C)P
elf'
C)P
C)P
a Sios
00669 2
006614
Ci?' 0066A 2
()P.
C)~
00668
0066B 2
C)P 0066C
elP ao66C 2
C,? 00660
Cl? 0066D 2
C)~
CIt;'
C)~
0066£
OO66[ 2
0066'
Clt'. 0066F 2
C, ;> 006,o
C) ;;t 00670 2
c,~
006'1
elP 00611 2
8102
0082
0012
A
800'
8t:t02
A
It.
A
A
A
A
8 A1C
8 Ao!
8 A 04
8Ao~
x.8Eo~"x,al0~"X'OO82"X'OO~2"x·OO22"X'OO12'
DATA,;?
X'OOOA',X'800~f,XtI802·,X'8BOO',X'8A80',~'8A.O'
DATA .. ~
X'8A2n"X·8A10',xt.A08',x'8AO~',xt8AO~',xt8A01t
DATA",-
X'8A8",X'8A4~',X'AA22t,X'8A12',X'8AOA"X'8A06'
OATA",
Xt8DO~',X'8DOO"X'IC80',x'8C~ot
A
A
8 A42
A
8~0'
8U02
8 Uoo
DATA,,,
A
A
8 AOt
8 AS!
8 A22
8A12
gAOA
X,8E81t,X,gE.1"Xtli21 f ,X,8E11',X,8F09t,X.8E06'
A
A
8 ASa
8 A40
8 A20
OATA,~
A
A
OOOA
8ttoo
8~
A
A
OO'6!
C) :.? 00665 2
c,~ 00666
C)~
C)~
1,g~
A
A
C)~
Cl~
1791
A
8i41
A
A
Cl~
1'9n
Si81
8i.09
C)P 00664
C)2 a066~
1'8~
St-· 0 1
A
A
A
A
8ioe
ROWRT
A
A
A
A
A
A
A
A
.. xt8C20"x'8CiO'
~n1
1"44.9
119~
·,58(;80
sEP
C)~
08,
00612
ell.?
006'2 2
n" 00673
()' 00673 2
()i' 00 6 74
n;J On61 ... 2
(j~
006115
006'5 2
eli' 00676
n? 0(')616 2
n~
"94
ni' 0067?
C)~
()~
cn;t
0061' 2
006'8
006'8 2
C? 006"
eli' On67g 2
t?9n
np On67A
e)f' 006'14 2
S(.,8~
A
A
8~2~
A
8(.;12
A
8~OA
8 7 02
8700
8680
8640
a
860a
8601+
Cll' 0061£ 2
C? 0067r:
Cl? oc67F 2
Cll' oo6BO
CIP 00680 2
A
A
A
A
00683
Cl~
oo68~
2
A
8606
C)P
8i08
X'8C2~'IX'RC1~"XtACOA"X'8C06'
DATA .. ~
X'8680"X'8640"X'R620"X,a610' .. xt8~08,,~'860~'
0.ATA,2
X,8602',X'8601' .. X'~682',X'B6~2' .. X'8622',X'8612'
DATA,i'
Xt860A'"X'860~'''X'RFQ?''X'8FOO''X'8F.AO''xt8E~O'
DATA,~
X'BE20',X'8E10',xtRE08"xt8EO~"X'~[02',~,aE01'
.. xt8?Q2'"xt8100'
A
It.
81.4t-c
8t.20
8ii.10
OATA''-
A
8 6 0A
se-so
X,8C08'IX'8C04'IX'RCO~'"Xt8C01',X'8C82'"X'8C42'
A
A
A
A
A
868R
8~O2
8 f '00
00681
00681 C
Cll' 00682
C) i' on682 2
C) i' 006a]
A
A
8642
8622
8612
OATA .. ~
A
A
A
A
8602
8601
C)~
CIt'
A
A
8f...42
Cl?
Cl? 0061C
Cl? 00610
00670 2
Oe671:
A-
8(.;01
8f.06
8~
A
A
A
A
8t;Op
8620
8610
n~
Cl~
1?9R
8(.;04
2
006'8
on6,C
t197
8'20
St;.lC
8<"08
C)P 00676
()~
1.'9b
8C~O
ROWRT
A
A
A
A
A
A
A
~n1
~e:F
1'1~9
1799
t800
08 ..
00684 a
ClP 006~!S
atr;ol
C) j) 00685 2
Cit' 00686
eli'. 00686 ~
8i01
8i82
8t.4f.2
A
A
eli' 00687
8i22
Cli" 0068' 2
np 00688
Cl~ 00688 2
8i.12
()~
00689
e)i? 0068A
Clt' 006814. 2
180'
1804
8iOA
8"0,
814.00
05100
0880
0140
A
A
A
A
8A23
()~
814.13
A
Cltt 00690 2
8A
o,
()~
00691
00691 2
Cl? 00692
C)? 00692 a
C)~ 00693
C)t' 0(')69] 2
Cl? 0069_
8600
A
A
A
()?
o~oo
()? 00694 2
C'i' 0069S
eli? 00695 2
()~
ni'
0069'
0069~
2
0 4 80
O~40
0"20
0410
A
A
A
04+01
8t.;83
A
8~43
X'8Aoo',x'ogoO'''X'C880, .. x'08~O' .. x'0820' .. ~'0810'
DATA .. ~
X,08081Ix,oao., .. X,o802, .. X,o801, .. X,8A83''Xt8A~3'
OATA .. t'
X'8A21"X'8A1~',xtRAOB'
"ATA .. P.
Xt0480"X'04~O'
DATA .. ~
X'040~"X'0401"X'RC83' .. x'8C43'''X'8C23''x'8C13'
.. xt8A07'''X'8~oo'"x'0500'
.. X'04~O' .. X'0410'''X'0408' .. x'0404'
A
A
A
A
A
A
0"01
0"0*
OJ+02
DATA .. ~
.. X'RE22, .. XtaE12' .. X'8£OA"X,8E06'
A
A
A
A
A
A
A
A
A
IAoe
X'8£82',X'8E~~,
A
0 8 10
0108
0 1 02
0801
814.83
8 A43
nATA .. 2
A
A
A
A
080~
8"
A
0120
(,? 00688
C) i' 0068B 2
c)p c068C
(I? 0068C 2
CIP 00680
C)t> 00680 2
C,? 0068£
(lP 0068E 2
Cl i' 0068F'
O068F 2
Oi'- 006g0
1,gC~
ROWRT
A
elf' Oo6~9 2
1R01
·,5
8i.O~
Cl~
A
j..jn1
~EP
1':~9
tAc~
08,
8~2J
It.
00691 2
8'11
00698 2
O? 00699
C)P OC699 2
8'-01
SiSi!
8 7 01
0280
A
A
A
A
A
(l~
On69g
cn69.
ell' 0069.
180~
()?
O~
tSaR
()P
()?
00690
Cl~
OO6gC
ell' 0069e:
a
a
oao~
0201
8683
O? 0069F
CIP 0069'
e
8611
0061.0
0061.0 2
860B
8607
e)?
Cl?
Cl?
C)p
006141
006.41 2
006142
;:
C) P. 006143
C) ;t 006143 2
()?
006,44
006A4
Ci? 006A5
()P
.:
862~
0200
0100
0080
00"0
0020
0010
0001
O
F"~O
85
1-101
17:49
!;iP 08"
on6Ag
Clio' 006AA
C)P On6AB
() i' OO6AC
C)P
()~
006AD
OO6AE
OO6AF
()~
00680
C) ;:>
00681
00682
00683
(l?
C,~
()?
()~
C)P 0068.
C);? 006B5
00686
()i.'
ROWRT
F4+00nn'5n
fA.
009SQe"
A
OUFFnooo
A
40~o.o~n A
OOA+O~040 /It.
OOFFFFFF A
A
QOOOF(j4B A
~O60.00(,)
FUF'Or:040 A
0040"C~O A
0'1000000 /It.
00200000 A
00010000 A
00100000 A
00681
3IJFFnooo
Cli' 00688
C)~ 00689
C~? 006BA
OUOOnC1F
C)~
CRNTRaL
·,5
•
/It.
OOOonoFF A
(I? 00688
Cl? 006BC
18FFFF'FF A
0000n03' A
0300nooo /It.
eli' 006BD
A
OUOonF'FF
S~:CT I eN SUMf'!iARY:
01
OOOo~
~T
0
02 on6S&:
PT 1
86
j..jn1
*
as'
1':~9
~Ep
SVMBe~ VA~U£S
A~[)TBI./02 005F8
B L ~, f) , a~ 00280
Cttr'F'/OOOOOo03
eMF) 1 n102 00440 D1
CMP14/02
oo~e:s
CMF'~~/o2 OOI+F.
CMF~~P;/c2 ooeo~
CMF'"1::1 / 02 00 5 24
Ct\r X'1'8/0COOOOO4f.
CS/o~ 00320
CV"1/02 Oa2 A!)
D£C:AMPR / 02 00_51:.
DE(:~(')/02
00 .. ,0
Oe:C:4'/02 004+95
D&:C:~'/o2 004+8'
D1/0nooOOOC
E:rc:vel./02 002«8
F' BC) 1/0~ 001!SAto
e:ee:RR/o2 00 2 01
Fe F· ~ I 0 ~ 00 19 A
E: eF' , , 0 t' 0 a1 ti D
F'F"'FrAD/02 0025£
Te!: RR3,02 00 10 F'
L! ~;rNUMI 02 OO!§9~
NCC:~1 102 00 5 C3
TAE!, C,/02 00504
ULE!LC~t oot!9
WRTABN/o~
001C8
WRTC~/02
BLt<8UF'F
CtBUSED
CISEQ
VERsreN/00000002
~FPTSIZ!/OOOOOOOA
WRce~/02 0055"
WRITIt1/0~ 001:15
WRcelO/02 onS6C
WRtTEC8/02 n05.~
WRtTi~/02 OOOEO
WRITES/02 oe130
R£A026/02 0008'
REA02g/02 0008£
REA033/02 00082
READ""/02 o003A
REA06/02 0038E
REA082/02 oo3EF
REA087/02 003[,
RE:TU RN2/02 0022*
R3/00nOOOOl
R6/COn00006
SEQID2/02 00339
SEQ!UT2/02 005'6
5£TEIC/02 00596
SETEOOR/02 005"0
SRI/Onooooo9
TAB10102 005'0
TA817/02 ooStE
UNe03102 002fF
UNBTAB/02 nOiSD
WCABN/02 00510
WAceln/02 00 5 60
WRITE.SA/OI 00123
WRITE2/02 00006
WRtTE4/02 0010!
UNBLK/02 0028;
INEeF 102 002"
Oo3es
ROwRT/02 oonOO
ATT~8
CL~S~e
~eel ~FT
De:V!tTN
DEVICE:
TeEH)F'
LJt:v.eUT
1ei~R
LINFNe
MI~,
NPAG~
~RNTBUF
MIEe
~ARnS[Q
oooSF
RETURN1/02 0010'
OO~2'
A~SBLK
BU'STZ~
R[AC'8/0~
REAO~2/0~
RiA041/0~
R&:AO~2/0t
SElBIN/02 on3FO
SEGl1nO/02 0060F
SE,'r.A 102 00 2 48
S~r~"T/02 00 6 1'
WRC:fB~O/02
REAC~!5/0P
BC02srN
CIBL.[F'T
BtN2eco
C!BTeTAL.
cepvsl(
6L..I
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
Producer : Adobe Acrobat 9.13 Paper Capture Plug-in
Modify Date : 2009:09:21 10:36:56-07:00
Create Date : 2009:09:21 10:36:56-07:00
Metadata Date : 2009:09:21 10:36:56-07:00
Format : application/pdf
Document ID : uuid:14699235-667c-41b7-a97e-6d54656a697f
Instance ID : uuid:1b554cc9-cc90-46f5-b1a5-79c3d35bda69
Page Layout : SinglePage
Page Mode : UseOutlines
Page Count : 90
EXIF Metadata provided by EXIF.tools