Rdwrt

ASS!Gt\1

Macr

..

fFTL~,ROWRT,

..

:I)ocrt)

M£TA~VM

cr

.IC~~

..

L8

.ss

Rn,Rl,R"R3IR~IR!IH61~1,R8.1R9,R1CIR11IR12IRt~.R14.1R15

•

~

S S R

1.

..

S

F~

P , S R

3.1

S R 4 , D 1 ,

02

, D

~

.I

0

...

, $

.~I\'!D

1

ANOTBl

1.

'0

1IA~iD

l?2~.OATA

ANSBLK

B1/RF'F

12,/Lw

126/LW

~31/MTw

P33/MTW 235/r.;TW

247/MTW

24. q

IL.

W

4,:;/MTW

509/MTW

'61/MTw

7'It/AW

7111ew

184+I\'W

'M'/I.W

'9"/LW

1148/MTW

1j50/MTW

t~52/STw

1204/MTW

1206/MTW

1,HHI/STW

ANSCVT

2~~~/8F

"~.LW

ATTR8

f;~/RF"F

145,/STW

14t56/L.w

BCO?8TN

14i'/R[F

84n/BAL

888/BAL

900/BAL

eT~VAL

3~~/ce

1180.0ATA

e T

~~~8CO

l,? IREP 361/BAL. 312/8AL

BLKBUF"F

~96/BAL.

409/BAL

828/BAL

1706/bAL.

141/Rr:Fi"

15r,/STW 783/STW

188/LW

189/AWM

BlKSlzr

I~~/RF'F

241/STW 814t/CW g92/STW 91li/STW

1155/~TW

1213/~TW

BLKTEST

3;~'

IBAL.

'4~,,[QU

110S/BAL

1!502/BAL

BLI(2

7~'-/eLE

?A

••

[QU

BRCHK

~,~~/8AL.

991.MTW

111~/BAL..

11?9/BAL

B~~AI<

r?IRFF

991/MTW

1002/LB

1003/STw 101'/OATA

BRI(MSG

1011./OA1A 102n/DATA 102s-rr.XT

BUF"SIZE

~I~

/Rr:F'

lC~/LW

541/STW

CARDSFQ

~,"'/RFF

96~/LW

970/l.W

1c88/LW

1090/LW

1700/LW

17Q3/STW

1 ?C1P/STW

111"Lt

173S/Lt

CBLANK

2

i~~.iQU

l"""/LI

c:eTAS

:'

41

Dr:

F"

11~1/L~

1767-EQU

Cr:eF

i.)~-e:QU

140,/LI

CF"eL

i~1

.EQU 1'+*1/LI

CrBLErT

#,~/Rr:F

126A/STW

129ilLW

1.~21ISTW

1~34/STW

1372/LW

CTBTBTAL

~~~/R~F

126:-:a/STW

1365/CW

CtBUSr:-O

lt~

IRF'F'

12b~/STW

1296/LW 1326/STW 133l/STW 1371/

LW

CtSfG

~)

:l/RF'F

lO!54/STW

1237/L9

1~38/MT8

CTTA8

11.?IOATA 13141./LB 1605-e:QU

CtWaRD

l~'/RF'F

126Q/STW 13?6/L.,W 1383/STw

CL6SEet

!i9/RFF

CL9SE~

6lt3/L

r

69~.G[N

CMfi'1C

14()6/BGZ

11+2"

..

Ll

CMP11

1

~~'~.L.B

1

....

3A/BL

CMP12

1

~t'P/BNEZ

143,,·LI

1~63/B

CMP13 1

~=·U

••

A t 14BQ/B 1

....

65/B

CMPt4

1

,,~ua/BGEZ

1441-Lf

CM

P

15

t

4tt~/8LE

1'+4~·LB

CMP1'

1

~~1()/8

145,.STW

3

CMF',"O

144~/eF'

14&1.AI

CMJ:)~5

1

~~i

1/8r:

14646,.A1

CMF'~

14t4.STW

11+

...

/8

1510/B

CMPr,O

1~()q/8.~

143~/BAL.

1~i+3/BAL

1,455/BAL 1

...

SA/SAL

14+&S-PSW

CMP6~

1

4~'

1 .BAI.. 11+9,./9

CMF'65

14i'C/BGZ

14?.LCI

CMPA?

1.4to8:t/BLE

148".BAI-

CMF'68

1

41~rl/e~Z

l4a

••

BAL

CM

P

70

14i'1/BAI..

1481./BAL.

1488/BAL.

149S-LW

1£i;09/BEZ

CMP,]

\.

~~J~

ISLE

1511-l.,W

CMf:)15

15j~/8C;EZ

1521.SLS

CNBC1

~~~.EQU

1481/LI

CNBC'"

i!~.£QU

148a/Lt

CN~XT~

t~~.e:QU

l45"Q/LI

CeBL~FT

~,

..

/RFF

11:JII;/STW

1~04/L..W

1414/STW

CeBr8TAL

~!".£QU

149,ICI

CRBUsr:D

l)u./RFF

1134/STW 1403/LW 1415/STW

CeDE'

"P;/RFF 19t/CW 449/LW

480/C:1N

102,/L.W 1047/Cw

CAMPRFfSS

~$t';/BAI.,

11'~/BAL..

1~OO·L.C::I

CepYSK

"J'p/RF"F

5t~/MTW

651/MTW

993/MTW

CePYSTDF

~,~

/RFF'

99~/MTW

CATAS ,

~~~,

/LS

lbO,.OATA

C"WeRO

~,

4/RF'F

11~a/STW

1511/L,.W

1~111MTW

1~8'/STW

Cs

9!iA.8AL.

98~/B

CS$t

9~;,a/BNEZ

9'~·£QU

CS2

9~,P/8

9AIIII/BL,.£ 968-t...W

CVTO

8C,~.BAl.

8t'/BL

CVT1

8C)~/B

AI.,

BOIlIBAt...

S25·PS~

CVT~

8j4/BAl..

81Q/BAL

83S-P,;W

CVT4

8jq.BAL

82~/BL

OF'CC:VT

aCl~/8r:

8t

••

BAI.

D~r:eMPR

10j'1/BAL.

129~.LCI

D~C10

13Cl~-L.!

131_/8

1319/8

1~~8/B

1351/8

OFC1!5

1l10/8L

131 ....

LB

OJ:'C20 1

3Cl~/8LE

131".9

Dr;-C30 t

3~lo/B

132~.STW

DFC3S

'3i»1/8

1331.STW

5

O'Clt.O

1ltt~

IB

134a.Ll

DF:C4!;

11~~~/B

13Sn-L.I

OFC~'

1

3!;~.L.

T

13,,,,/8

OF'C!:u.,

1

]i~"'Je

13SfI.LI

DrrCbC 1

:i(lA/8A~

134r:;/BAL

1351/BAI.

1~60/8AL

1~64f.·AW

1373/8

OF."C6!

1

]~)f\/BLE

131

••

LI

OFC,.,

1l~'9/BGe:Z

139n.Sl.D

Dr:-C,c

13E'~/B

1391-STW

DF.C7§

1l~)'/BCR

139a.LCI

O,VeIN

!iO/RF'F

1PS~/LW

212/LW

~20/Lw

1C3~/LW

DrV.eUT

~;O/R~P-

1!5Q/CW

591/LW

~28/Lw

ft1~/LW

10l9/CW

O,VERR

~"4/BF

2'~/BE

601-1...!

D,VICf

"?

IRrF

15,/LW

2?O/LW

b18/LW 925/l.W

1032/tW

Erevel

!5"3/CALr 1

69rl.G£N

EfERR

6Cl:;J.L.e

124/0ATA

72!5/0ATA

[BeVel

!~'I'ICAL

1 69,.OATA

EeCV6L2

'5'~n/L.

t

69

...

G[N

£801.

~!i~

,SF' At.!q.£QU

e:e02

"~)~/BNE

6

4b~/BNE

~68/BA~Z

.'2-rQU

[802

4fl~/BNE

49n.EQU

EBD~

"~J6'6A4

50n.EGU

Eep;RR

'-E'~/BNEZ

5S,l/BN£

6406-EClU

'29/nAT.

130/0ATA

,.S/DATA

[Brt

'-!iP

IBNE

50~.e:QU

FBF'11

1'~D/8cS

1',I/BCS

519-EQu

E8'2

513/BNE

SI~.EQU

EeF:;

5~l:a,/BL

53'·Cl

EBF'440

!3~lC/BLE

5~

..

/BL

!S4f.O.STW

EeF~

,+"Il/Br.

49p/BNEZ

544-MTW

Ee'6

5~i'

,eGE

5S./e~

!562·MT~

p;76/B

£8'7

5~

.

.q,8L

S".LI

701/0ATA.

[SF'S

5~)i+.CA1.1

e:8P"9

2~,~/BF"Z

!5"~.E:QU

e:eq

5ClP/BNE

51

••

el

ERR6R

!;Q/R,F

5!1/BAL.

53!S/6AL.

Pl\14t/BAL.

'SS/BAL

1a'3/BAL

1283/t'JAl.

1,Clt/BAL.

163~/BAL.

F'PTE'BO

It

j'

1 I

CAL.

1 561/CAL1

752.G~"

FPTREL

'E~4/CAl.l

7~M"G£N

Gr:"TPAGr

7

!;Q/R,F

51,i/BAL.

G,TPG

1

~,

!11

CAl.

1 1"ICAL.1 120-DATA

GRANCNT

"!1/RFr

1o,/STW

511+/MTW

~50/MTW

1o.6,/MTW

1006/MTW

H~)(OUMP

l~

1/Rr;F

33~/eAL

109S/SAL

Jesup'

#~f"/RE'F

l1C1/LI 145/AT ::I20/LI

~2'/Lr

639/STM 6J+3/S

TW

64~~/C.'-1

80~/AI

816/AT

94+7/STW

'41/STW 949/STW 952/STW

!i!i

:1/ST W

96Q/STW

971/STW

114

7/L

I

1.~30/Lr

12lt'/LI

11+21/L.I

Ier:::RR

#'~/RF-:F

I+SIl/LW

1060/MTW

1508/MTW

18&:RR1

5~'~/BNE

60'/8

611/BNE

~16/B

ft49-LI

7l?/DATA 1335/'-'1

IeERR~

6Cl

p;

I

B~le:

61n.Cl

IROF"PT

!15/L.W

13,.OATA

I

WRTFP'T

1()~/L..W

14~.OATA

151/£QU

JIJIT

i'!';/RFF

5!5,/MTW

K~V

~~/'IRFF

18a/LI

1626/STW

KrvX

l'~4/L.O

'oq.TF.XT

L ,

2~141

AND

125~/AND

L.INE.NB

!i'/RF'F

'+1,M./STW

LtNE$Ne,

!S~

IR~F

41Fi/STw

LtNF.'$NB7o'

!5~

/RF'F

41~/STW

L.fNF.'Ne

~,

1/Re-F 3'Jt/STW 369/STW

jl70/STW

~01/STW

402/STW

403/~TW

L.TN£NUM

8

"'l-/eAL,

111~/BAL

1592/8AL

1~22·LW

L

n~~·~o

1

6~)4/8G

1631.PSW

L.N

9j'~.BAI.

98./8

HIEI

f,O/R£F

I1n/Cs

110/LJ.f

~15/LW

21S/AND 221/LW

282/~S

a,u~/Cs

29'/CS

3531C8 355/LW

~5t./LB

't6~/CS

528/AND

61.4/CS

69n/GiN

702/DATA 'Ol+/GEN 72'1/0ATA

732/0.TA

7Ato9/t.iEN

'!;R/GE'N

a~./LB

858/LW 1138/Lw

1141/AND

1144/LW

11911L.W

1 2C)CI

ANO

120,/Lw

1611/Grt\

MIte

~IO/REF'

l1P/CS

238/C~

4Ir33/CW

.70/1..1

677/LW 681/""w

~1'9/0AT

A 69,/OATA 69..,/GF"t\

~96/GEN

,91/arN

?10/GEN

716/(;2EN

7~t1/0AT

A

'I+~/OATA

760/Gr;"

'''O/AND

1187/GE:N

1615/GEN

MILot;

,,~,Rf:'F

56n/Lt

MIUC

"~'REF

55#-/Lt

1009/GFt\ 1C1't/GEN 101A/GEN

~AXCLMN

~'sa.e:

QU

lS2Q/LI

M8S

E\~'Re:F

?"/eAL

MeOE:

~,9/ReF

4f.6~/LW

...

93/LW

~5'/LW

NCCI-lt<

31",6A1. 9t',.LW

1079/BAL.

NCCI-IKX

9311·.1

116~/eAL

Nee1

9j1I1,BNE

9441.A1

NCC~

9~tA'Br

934;.LI

Nee

..

92.'

ISF

91n.LIN

NCS

9

g~~i+"l..w

981/8

NCS,

SU~~/eLE

9S1.Lw

NP,AGr

1~u,/RE:F

141/STW 119/STW

8RTBL

17n;J/e~

1?O,16R 1724-0AT.4

PFtL

a~'"

ICAL.1

75

••

G£N

PFIL~6

b5Jq.GrN

PR£C

!54~PICAI.1

56"leAL1

'02-0ATA

PREC2

3()M/C.1.1

311/CALl

70.-GF~

PRINT1

3~;n/CAL.1

'1n.GEN

PRtNT~

3!'~/C:AL.1

11~.GgN

PRNTeUF' E\o/RF"F

38~/STW

386/STW

~87/Lt

PRAMPT

9~J~/CAl.l

102:;.GiN

PReMPTR

10()1/CAL.1 102

••

G[N

PRTBUF

f)~/RFF

lO41/LI

1083/L·T

1089/STW

1091./STW

1101/~TW

1104/L.I

1.1C),/L

T 112-./STW 1298/I..T 1410/Lw 141p/STW 1501/1..1

1527/~I

,

5~;'

II..

r

RcrR~

10!;~/L.t

127a;.LB 1613/0ATA

1~1~/OATA

RC[RR1

1

o~;O/L

T

128~·Lt

RC[RR, 1

2~,q/BF'

1281/9£

li85-Lw

RC200

11

~~,

-I..

W

12"/B£

RC20S

10

12Cl~/6~Z

12oCIJ.Cr

~C206

1 1

5f

FIB

N

e:

z

12141..8AL.

F(C20' 1 2

C)

.,

IBN

E Z 121n/BNE

1215/BCS

1P22-rQU

RC~10

1.

2c!4/BG

12lt"l"'LI

RC~t2

12t~

1/8

1231.LW

RC290

121.P,/BlE

1221r\-LCI

1236/BNi

1~~3/BNe:

1J5A/9Ni

1281+/8

f(DABN 4!,

...

LB

131l/0ATA

1066/8

1~3'/Lr

~DF'p:tT

~,o/RF"F'

g~/Ar

118/STW 121/STW !2S/STW 112/STW 208/"'W

21.3/CA1.1

21+1/LW

254t/MTW

~95/STw

~2./LW

531/LW

51+0/iTW

'~I~/L.W

6~n/LW

800l

E

W g83/LW A9:t/L.W 912/LW 959/§W

10Pi1/STW

I051/STw

1137/

AL.1

1164+/Lw 119,/CAL.1 1211/LW

1336/,T~

1

3~1,a/STW

1!5~4/LW

RD~[FLV

951'1ICA1.1

101~.G(~

RDWRT

p.DSECT

8~/USECT

RDWRTCe

15J4/8F'

19~/BE

*81/6r:.

102'·LW

to"/BCS

Rr:AOCBMP

1

O~;~/BAL.

11'~.LC!

1368/8AL.

R~ADo

2CI~

-I. t 28C)/8

328/8

]35/8

*51/8

RF.'AO,

2CI"·I.W

28~/BLE

297/6

~OO/B[Z

313/6

50~/B

543,rJ

'~!~/L..

T

R~A01A

1

O~I,;/BNE

lO~1.EGU

RF"AD10

1 O!;q

..

L.

T

101'Q/BCS

11

R~A011

104)~.EQU

10'Jl,B

118Jt/B

1186/B

R~AD1~

1

Ot~qI8r:

1181

..

Lt

Rr..D1~

,

O~!1/BNEZ

11!~.LI

RFAD1

....

2tl+.E'QU

60.'SNE

Rr:-.D1~

91\9/6

111"

..

SAL.

RFAOlb

11.3/BNE

11l.STW

RFAOt'

2~)O/eL

26./BL

2?9·LW

RFAOt7A

~14~/B~Ie:

29n.EQU

R~.Dt8

9E~,a/B

lOa'.SAl.

R~.019

10!11.STW

110,,9

RF".AD~

2!iA/BFl

261/8LE

269/BF'

~1'+·EQU

RrAD2n

9'~~/B

91",9

109""1.1

t11'/BCS

Rr:AD~1

91~"/B

11on.LW

Rr:-AD2~

1

O~t~/BNE

1101.E:QU

R~A023

lC)'

.e

T 3C4a/B

RF'AD24

3CJ~/8LE

31n.e:GU

Rr:AD2~

2~J~/BNE

29a.e:QU

Rr:AD26 2

~l~

lar:

z.

21~·CI

R~4D~AA

lC

al~c.EQU

19Q/B£Z

R'!AOi'

2~'~/BNEZ

24~/8CS

251-EQU

~t3/8

R2"/B

R~A,D211\

2~,,/8NE

24~.EQU

RFAD2C}

JA~4

.BAL. 2S,,/8NEZ

33~/BNe:Z

4f.4+8/BNEZ

RF.:AD~

2~'O.L.W

57,/6GE.

RrAD;'In 1

O!;

'/BCS

106".LW

R~ADl~

1~,P/BNEZ

16~/BANZ

168/BA~Z

1038/9£ 1040/8£

1061-Lt

RF'ADl]

2;1

:1/BNEZ

22~/8L

230-EQU

R~AD4

2()~.STW

27Sl/B

RiAD~n

1

~t~/BNE

18q.£GU

RfAD41

t!1

~/Br;

l.

14,

..

EQU

RFA04P 12!"

IBF.:

Z

le,·Lw

RFAO_l

1

~i

1/

8

15A/BNE

176/Bl.&:Z

180-,QU

RF"AD4~

1

~,,,/8NE

l~q.EQU

Rr:AD!5~

J1Q/8AZ 32,·EQU

RF"AO~

4!I1/BF\" 1051-/9CS 10?O-LT

1~99/B

110,/B

1115/8

RF'AO,

1

04i,~/BNE

112n.LI

RF;AD8

11

~1(,.e:QU

11~~/Bi.Z

1182/8

R~AD81

6ClQ/B

11:JIt-Lw

lJ

RJ."'.D8~

11~;~/eAZ

l17,.E:QU

RF'A084

11l~9/BE'Z.

1151.C1

RF:A08~

11!§~.BAL.

l1A1/BNEZ

RFAOSIo.

11!;

1/BNEZ 11511BCS

llS./BNE 1162-,QU

RF'ADA1

11~,

1/8

11&Fi-EQU

R~A09

1

~i7

.. CAI.1

Rr:CNUM

~,

1/RfF

2(')~/STW

252/MTW

~58/LW

i'9'/STW

299/SW

306/AWM

lj.~/AWM

371/LW

:a95/LW

406/MTW

,..OA/L,.W

546

/

LW

1042/~Tw

1

O~'?

IMTW

RFCSrZE

ll~/RFF

48a/STW

144-05/L.lt4

t435/CW

~f5.1/STW

~~TURN

5C)3/6r

52,18

536/B

;4+5/B£Z

~6!'i/B

569/9

6S1-t..W

g~'P/8

100,/8

1061/BNEZ

106./B

111i/8

1178/BG

RFTURNt

StAle

6S_/B

662·EQU

Rf."TURN2

6j~/Br:

66Q/BLE

~'6/BNE

~?9/BAZ

'lll/BANZ 6AS-LCf

RSSAV[

')'O/RFF 20n/STW 496/l..W

R~TAB

1

7~~i+11.8

l?,p\-OATA

seCTAB

1ltP/l.e

l~.~/LB

1~4f.7/CB

1~04·TEXTC

Sr;L£CT

~,~

IR~F'

19Q/LW

201/1.J

~55/MTW

i?6"/MTW

491'MTW 4f,97/STW

~51~/L

t

544l.,MTW

562/~TW

1030/MTW

Sr;GrD

lt14/6~iEZ

98n-£QU

SF:QtO~

14

9E!~.B

108-./B

SFiQNUM

j'1/RrrF

3'~/STW

3?4f./STW

SF'QeUT

9~;/oI/BAI.

10S1/BAL.

15'6/8.L.

1~'i+·LCI

S~QBUTB

9~~~

18

AI.

15"/BAL

1129·LCI

SF'QBUT1

1

'~Hl/BlE

l'O~.8.L..

S~QeUT2

t7j~/BLEZ

111".LW

Sr:Q100

1

7~lq.L..

I

11*Q/BOF(

SFrBtN

:i'~~/CAL.l

113,ICAL1

1187.GJr~

S~TEt

1

~J7/CAL"

1

'?~.DATA

SJ:TEtC 1 0

4~

q I

CAL.

1 1611.GEN

S~T£e

1

SI~/CAl.l

7,.,.OATA

SF'Tf.6C

1.1~t1/CA~1

161!1;wGE:N

SFTE:60 1

O~'~/BAL.

152,.Lf

S~TEeOR

11

j'~/8

AI..

154a.LW

St-ltF'T

1

"~

3/E

XU

l'5~.SLS

$RS5

15~1,.Ce

15~A/B

TABEXP

J~~

1/8AI.

lOBa/SAL 1111/9AL

1~4tl·LCI

TABS[T

f~I2/RFF

16~~/LW

TAB10

16!i?/8r

1661.STB

it>

TAB12

1

64;~.LB

16'1/BL

TA813

16l;~.L

T

167./6

TAB15

1

6~;~/eNEZ

1661&."1

TAR1'

16

~'a/eG

167"'.AI

TAA19

1'B1-I.B

168'/BGE

TA9~

16!51.CB

165~/eLE

16'8/B~Z

1~90/8

TA8~

1

6!;~.A

t

~661/B£Z

1667/8

TA8~

1

'~;n/BLZ

16!5t-.MTW

rRARG

~~()/RF'F'

15,ICW

161/MTW

t64/CS

16,/CS

182/CW 188/eTw

1

~lF/CW

2~a/LW

317/L.W

:.l23/Lw

. 330/C:W 336/

LW

348/'-W

"~~~/L.W

4"/C:W

~82/Cw

553/CW !'S9/1..W

6071CW

626'e

W

6j'n/L.w

92~'Lw

1028/CW 10371Cw 1Q80/LW 1085/LW 109!)/"W

111.n/\"'W

11"/LW

1512/L.W

1t,22/LW

162:i/CW

1621/LW

1628/AWM

16~i~/L.W

169'/C:~

1699/L..W 1705/STW

1118/l.W

1119/AWM

TBSWT

ld,/RF'F

6~'/STW

ULBLCt-I1(

!5'~i'/8AL.

61Sl-LW

665/6AL

UNBAOR

~!~/RF'F

1~1/STw

281/MTW

333/MTW

*I+,/MTW

863/

MTW

873/

A

W

Si"/STW

881/LW 89S/STW 902/LW 91C/LW

918/STW

1180/MTW

11

!~4/MTW

UN8D

8~;'/e

8R1-LW

UNBDR

8E!?/8NEZ

89~.SW

UN9Dl

gC):~.STW

9in/S

UNt""

8f;

1/8

85~/B

iSS-L.W

UNBF'i

8~'~.Aw

9CSl/B

UN8LK

2'~~/8AL.

84t,.Lt

1156/BAl

t~14/BAl..

UNBTAB

8!;n/B

851.6

UNBV

1~;/.4./B

91n-LW

UNBV~

9t1/BNEZ

g1q·L~

UNPRINT

f.~O/RF'F

3Sca,BAL

VFRS

t

e~!

~~.e:QU

25~/Oel

29~/OB1

733/D61

73Pi/Dfl1

wCABN

11

i~9/L.

t

159,.L8

!,.JC£RR

11/t11Lt

159Pi/B

1600-LT

!~1?/DATA

1'11/0ATA

WFeF

S()1/CAl..1 Sft4/CAL1 567/CAL1

p;96/CAL1

5911CALt 6'O/CAL1 689.DATA

WF'~TS!ZF

1

(lOlL

t '51.EQU

WRee1n

15f'~/BLE

158n"AI

~RCe2n

,

5E~q-LC

I

160"/8

WRCeln

15~'~/8GZ

159".SAL

v.,'RC6r;

1

S"4/BL

Z 157

••

CAL1

1S93/Bc.S

WRITF'sp;A

,,()~-E

QU

111'/BANZ

wRITE.58

4(l4/B

4t,.eQU

WRtTECe

17

1

~1l

:1/8AL.

150~/BAL..

1552·LCI

WRIT[1

14~~/B

3M.,/B :iSO/SAZ

~81/B

:i9~/B

424/8

....

26.E.QU

WRYT~~

l~!5

..

EQU

95('1/8

95At/B

96118

91~/B

977/8C9

982/~

WRTT£~

3~1~/eNE

3

....

LW

WRtT[~

3~i

1/SNE

33",.Lw

wRtTF.~

]!i4/BNE

39~.LW

WRrT[~

i!;Il/BNE

38~.£QU

~'R

r T£,

4+

~IO

IBNE:

43a/BANZ

~36/BLEZ

444wCA!...1

WRtT[~

4~H;.A

T

4~"/8

WRTABN

!5i'~.I.B

'IItA/DATA

1e99/e~

WRTCR

10Cl(1/CAL.1

IOiJa.GiN

WRTr:PT

~.O/RFF

10~/Ar

116/STW 111/STW 122/STW 147/STW

186/Srw

2L~~

ISTW

25n/STW

315/L.W

:i39/Lw

l'6/STW

3'17/LW

378/MTW

lBO/AWM

41Q/STW

*20/L,W

_21/MTW

a23/AWM

427/LW

431/1..W

a31A/STW

.19/CAL.1

4.1/AWM

442/STW ..

44J./C:AL.t

4aS/STW

475/C;AL.1

'?f'/L.W

"'ICAL1

180/Lw

?86/STW

ibO/STW

g61/LW 866/L,W

Si'1/STW

81SP/STW

903/STW go5/STW

930/LW

9"4/LW 957/I-W

9j'~/STW

10~""/STW

1018/STW 1093/STW t109/STIN 11131CAL1 1128/STW

11310/STW

11!Hl/Lw

11S9/loW 1160/AW

116J/STw

117S/STW

1212/Q'T~

12tfiJ/L.W 121Q/LW

15A+5/L,W

1578/CAI.1 1'49/MTW 16!S4/CW

1656/MT~

16,'f,/L.W

168n/STW

1131/L.W

l'!51/STW

WRTMSG

9~1'

ICAL,

1 100q.GEN

1"~9

~EP

OR

..

,,5

1

2

("

00000

~

0000000«

*M*

~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

RDWRT

1~

4

PAGE

~

COOOOOOO

Rn

~QU

0

ioJ

00000001

F(1

r:QU

1

7

00000002

R2

~QU

2

1\

oOOOOOO~

F'(3

~QU

l

q

OOOOQOO~

R4t

~QU

~

iel

ooooaoo~

RS

EQU

!§

11

00000006

R6

FQU

,

1~

00000007

R,

r;QU

,

1~

QOOOOCO~

S~t

F'QU

g

11t

oooaoooS'

SRi?

rQU

«)

Ui

oOOOOOOA

SRl

,:QU

10

11,

oooooeO

tf

SR.

~QU

1 t

l'

0000000(.,

01

~QU

12

11\

ooooooOD

02

r:QU

1~

1q

0000000£

D3

,QU

14t

20

0000000"

04

rQU

1P;

21

00000002

CE:eL

~QU

~

t't'

00000003

CEetF

,QU

l

~3

0000000

4 CNi:XT8

FGU

•

24

00000005

CNBC1

r:QU

5

2~

00000006

CNBC65

r!"QU

,

2~

00000007

CBI.ANK

[QU

,

2'

00000:160

ceSTeTAL

,GU

inS*a

MAX

BrT

ceUNT

SF

r.e

REceRO

21\

oooooose;

~

A)(:CL.MN

rGU

1.0

1,:

4 9

!;E

F

08,

"5

29

]0

PAGE

TtTl.r

ROWF<T

~Q1

11149

~~p

oa

..

'75

:11

!I~

3:;'

]4

3!3

:II!!

:I,

28

It;

..

~

~1

~~

*~

44

~~

..

~

47

4$\

4CJ

eo

!S1

e~

!5~

!§4

S~

tI),;

8'

SR

~~

60

~1

,~

~~

,~

6!5

,I..

61

..

.p*

*~.

*P*

*FI.

*P*

*p*

*oe*

*P*

•

..

INPUT

..

*

..

eUTPUT

..

•

..

*P'IN*

SYSTF:~

NAME::

srG1

RDWRT

ROwRT

21

PURPeS~1

T~rs

RBUTrNE

tSSU£S

T~£

R~AD

AND

WRtTE

C.~s

THAT

p[~FeRM

A FILF

CePV.

ALL

eF

THE

MULTtPLr

REEl

LeGIC

IS

ceNTAINED

TN

THtS

ReUTtNE.

MI[1

MIe:6

TeARG

ARGTBL

TeBur:

ROF'PT

REF'

WRTFPT

TSSWT

ceMPL[TE:

REP'

REF'

REF

REF'

REF

REF'

REF

INPUT

DeB

eUTF'UT

ceB

euTPUT

ARGUM£NT

TABLE

INPUT

ARGUMENT

TABLE

tIe

BUFF£R

RFAO

F'PT

DfV$IN,De:V$8UT

WRITE

FPT

D~FIN[O

-TS-SWITCH

DEVICE/FILE:

espv

LrNE$N6

LINE'Ne1

..

LtN~'Ne~

£RR8R

..

GETPAGr,CL8Sre

MtEI,MlE8

..

T6ARG"eSWT"ROFPT,WRTFPT,,8BUF

R~CNUM,M~XDUMP

BUFSIZE

CtBUS£D,CtBL[~T,CIBT~TALAClweRD

..

RECsrz£

..

CISEQ

ceBUS£D,CeBL[~T,C6WeRD

PRTBUF,ATTRB"reERR

..

CSDE

I(~V,CAROSr:Q

BYN2BCO

~O1

11:~9

~£~

08,

"5

ROWRT

2c

()R

wEF

TABS[T

6;

R&:F

M!OE

7n

REF

RSSA\I£

'1

REF

LINENS

''2

REF

BR[AK,CBPYSTOF'

'!'li

REF

S[QNUM

,~

DiF

CCTAf3

,!S

REF'

SEI.ECT,JIJIT

,,.,

F<E;

MIUC,MIl.e

"

REF'

O[VICr

'A

REF

CepYsl<

,g

RErr

GRANCNT

8n

REF

PRNTBUF',

UNPR!

NT

81

REF

ANSBL.t<,BLKBUF'F

8~

REF

MBs,eC:02BtN

8~

REF

UNBAOR,BLKSIZr:

8~

REF

NPAGE

A~

A"

(l~

ococo

USECT

RDWRT

g7

Cl~

00000

Oi2orH'l'o A

LeI

,

SAVE'

RF"GISTE:RS

SA

np

00001

8~50r\OO7

A

PSM,RfS

.R?

Aq

..

gO

*

91.

..

,,,

C)f)

00002

2210n007

A L

I,

R1

,

INITIALIZE

RE"D

~~PT

,~

C,?

OOOOl

3220no07 A

LW,R~

R7

9.

C)~

OOOO~

202FF'FFF N

Ar,R~

ROFPT-1

g!ll;

CIP

oooos

3i32n~4e:

LW,R:;

IROFPT·1'~1

g~

(IP

00006

B~32n()02

A

STW,R~

*R2,R1

"

(IP

0000'

6At10noee

BCR,R1

'-2

9.

..

gq

*

100

Cl~

00008

2c1onOO8 A L

I,

R1

WFPTSIlE

wRITE

FPT

SIZE

101

()?

on009

3220(,)00'

A

LW,R~

1<7

1C"

()i'

OOOOA

202FF"FF'F' N

AIIR~

WRTFPT-1

1,O~

CIP

00006

3i32n~55

LW,

~t~

rWRTFPT-t.lR1

1.0440

C)P

ooooe

B53~nn02

A

STW,R~

*R2,R1

1-1(")

1 1'1J+9

~EP

08

..

'75

ROWRT

2~

to"

Ijf)

OCOCO

6"'101"(,,)08

eOR,R1

••

2

10~

10,

OJ'

OCOO£

3f>OOnOOo

X

STW.,RO

GRANCNT

ZERe

Cf!PV

AseRT

~LAG

1

C~

Ij~

eneoF

3~1F::'n()oo

X

LW,R1

BUFSIZ[,R7

toq

jj'

00010

2~30n030

A

LII~~

X'lO'

1.

1

r:1

()?

oeOl1

~530nC08

" CS,RJ MIEI·!); TEST

t"

RANoeM

F'

I LE

111

f~~

on012

6'30n01S

BE

••

3

11~

0,)

OnOl]

~530no05

N

CS,R~

M.[e.~

11~

(~~

0001*

6j

30n019

BNE

RrA01"

Ne

114,

(j

;I

OnOl!

2c1onAOO

..

L

J,

R,

204t8

SET

SUFF'ER

SIZe:

Ta

eNE

PAGE

11

!;,

(j~

00016

3c2on~Ag

LW,R~

wXtFI+OOOO';O'

11

,;

('~

Oc01'

3'2&:nc01 N

STWIR~

WRTFPT·i,R7

REMev£

KEV

AODRESS

F'RBM

WRTFPT

11,

(,;

0001a

350£noo~

N

STW,R~

WRTFPT·6,R7

11"

():J

0001'

351[n008

N

R£AD16

STWIR1

RoFPT.51R7

SET

SIZe:

ftF

CURRENT

RO/WR

BUFFER

119

O?

on01A 2i!20n()on N

lI,

R,

reeuF'

ADO

lIB

BUFFER

120

O~

C001B 302ono07 A

AW,R,

R,

1.21

()~

000ie

3=2fnno~

N STW,R,

ROFPr

••

,R,

12~

ClP

00010

352[noOlt

N

STW,~2

Wj:(TFPT+lt,R1

121

()~

000iE

3il0nOO1

N

LW,R1

ANSBI.I<"1

WAS

REC

SPECIFIED

FaR

ANS

124

()P 0001F 68

30no21

BEl

••

2

Ne

12~

n~

00020

3!il[no05

N

STW,R1

ROFPT.S,J(7

V£s

•

C:~ANG£

BUFfF"R

SIZE

1

~~

()~

00021

3i2onooo

X

LW,R2

ANSSI.I<

WAS

SLeeKING

REQUESTED

127

OP

00022 68

30no3A

8£Z

R£AO~2

NB

12R

Cl~

0002:1

2010noco

A

AIIR1

0

12"

C)~

on02a

6930nC2t.

BNEZ

••

2

1:10 rIP

00025

3210nOO2 A

LW,

R1

R,

LEAVE

BLI<

SIZE

F"OR

REC

1.

~1

(I~

00026

211onn8C A

CI,Rt

1~O

13~

(lP

00027

681on029

eG£

••

2

133

(I;J

00028

2210noaC A L 1,

R1

140

MINIMUM

BUFFER

SIZE

1:14

CIP

00029

302onOOl A

AW.lR2

R1

1.:4§

Cl"

on02A

2U2onnOb

A

AI.lR~

6

C6MPUTI:

MAX

eUF'FtR

SIZE

1J~

CI~

00028

2e2ono75 A SL.S,R2

-11

C6MPUT[

NUMBER

6F'

PAGES

NEEDED

1l'

eli'

QOO~C

2U2onoca A

AI,R~

0

1JR

(Ii'

on02D

6830nC31

BEZ

READ~1.

N6

MeRE

PAGES

NEEDED

139

CI?

Oo02E

048on~4~

CAL.l,,,

Gr.TPG

GET

MeRE

PAGES

1*0

CI~

0002F

69

8on18A

BCS,g

reFi1

NeT

AVAIl.ABLE

1

.1

(Ii'

00030

3e;SEnooo x STW,Sf(1

NPAC3E

..

R?

~Cj1

17'49

~e:F'

08,

.,5

RDWRT

2'"

14~

02 Oo03l

R£AO*1

~QU

•

14:q

O:;t

onOl1

2Q1ononi A A

I,

Rl 3

14404

C~~

00032

251nnc7£ A

SL.S,R1

.p

ceMPUT~

weRD

SIZE

BF

RFC

14405

O~

OOO~3

201oncoo N AI,R1 reBUF'

14~

()~

00034

3010n007 A

AW,Rt

R'

BLeCK

BUFFER

AODRrss

141

():'

an03!

3=1inCQ4 N

STW,R1

WRTF'PT

••

,R7

SET

WRtTE

AOR

T6

BL.K

BuF

PTR

14R

0'

0OO3~

38

1onoo'

A

SW,RI

R1

14q

O~

on03' 2b1onCQI A SL.S,Rt 2

lSn

()

l'

00038

3b1onooc X

~TW,R1

BLKBUF'F'

INITIALIZE

B1.1<

BUFF

PBrNTER

115,

()~

00039

6lSoonn5§ B

R[A04~

t!5~

()~

0003A 3c1Enooo X

REA042

lW,Rt O[VICE,R7

15]

Cl~

00036

6'30n030

Bt\EZ '·2

pel

DEVICE.

184

()~

0003e

321~ncoo

x

LW,

R1

D£VSIN,R'

SYSTEM

INPUT

DEVt,E.

15~

()

i'

00030

2~lonoo'

A CI,Rt ,

IS

INPUT

FR6M

ANS

1St-.

ClP

CCOlE

69l0noS!

BNE

R£A04tl

N8

15'

n,

0OO3F

311£nooo X

cw,R1

T8ARG,R?

ANS

Te

ANS

Cepy

15R

(lP

00040 6830nol+3

BE:

t .. l

pel

O[V!C£.

15q

C)P

00041

311&:nooO

X

Cw,

R1

OrV.eUT,r:.I,

SYSTEM

SUTFUT

DEVICE.

1~n

(),

00041>2

6'301"'01+8

BNE

R£A044

~e

161

(]~

00043

3iOEncoA N

MTW,o

TeARG+l0,R7

SEQ

BpTleN

pRESENT

11l~

eli'

on044

"30n3SC

8~E:Z

RFAD3~

YES

•

~RReR

16]

eli' On04!

2i10F'FOO

A L

I,

R1

X'PFoo'

16410

C)P

00046

4~lEno08

N

eS,R1

Tf!ARG+8/R?

TX

aPTIaN

UsED

1~fi

eli'

0004'

6940n38C

BANZ

RrA03~

YES

•

£RRBR

1 It

I,

C)?

00048

2!1onC08 A

SL.S,R1

8

1~'

Cl~

on049 4t)1EnOO9 N

eS,

R1

T!ARG.9'R'

NC

BF'TteN

use:O'

16R

(IP

000

••

6!j40n18C

BANl

R£AD3,..

YES

•

[RReR

t6'l

O~

0OO4~

READ

••

FQU

•

1'0

(I?'

00046

5i2ono03

N

Lf-I,R~

HIEI.~

GET

BlKSZ

171

c,~

0004C 25201"'07'

..

SL.S,R~

.1

1'~

rlP 00040

352£n005

N

sTw,R~

ROFPT+5,R,

SET

SIZF

FeR

READ

1'1

Cl?

0004£

202FFF'FF' A

At,Fl2

-1

1'4

(IP

0004'

252onn15

A SL.S,R,

-11

C6MPUT£

NUM

SF

EXTRA

PAGLS

REQO

j

'5

Cl~

00050

202oncoo

A AI,R2 0

171, Cl"

00051

6lS20nc55

BL.E:Z

~£AO~~

N6

MeRE

17'

Cl~

OOOS2

O~8on"4&

CAL1.1R

G[TPG

GET

EXTRA

PAGES

1'1\

CIP

00053

69Sont8A SCS,s

EeF'11

NeT

AVAIL.ABLE

~C;1

1"~9

~E:P

08"

'15

RDwJ<T

2b

1'9

f):l

00054

3~8EnnOO

X

STW,SR1

NPAGE"R7

11n: 02

Ooo5~

R£'O~3

r:QU

•

1

~

1

0'

00055

221onOO4 A L

I,

R1

..

18~

("

00056

311E:nOOA

N

Cw,R1

TeARG.10"R7 LN

BPTIBN

SPECIFIED

18l

('2

0005?

6!:130nosD

8t\E

~£A04C)

NB

18""

o;:t

on058

221onooo N L

I,R1

KFV

18~

()~

on059

301on.oo? A

AW,R1

R,

1811

C"

ooOSA

3~1e:noo'

N

STW,R,

WRTFPT.6"R7

ENTER

KEY

ADDRESS

IN

WRITE

F"PT

181

C);2

00058

3clon6AA

L~ilR1

.9999999

18R

0'

0005C 30

1£noo£

N

STW,Rt

TeARG.14+,R7

SET

MAX

LoN

VALUE

F'tlR

CeMPARE

189

02

Ooo5U

F(EADI+O

r;QU

•

t'o

()~

ooosO

2c6oncOo A

LI,R,

0

CLEAR

[eo

ceUNTEJ.(

191 t);.'J

onOSE

3

ft

oonooo

x

STW"Rn

UNSAOR

INITIALIZE

FeR

UNBLBCKtNij

19~

n~

OOO!5F

2C!2onOO3

A LI,R2 3

19~

C)' 0(")060

312[nooo

X

CW,R,

CeOE,R7

c:eMPREsse:O

INPUT

194

OJ)

onO~1

6~30n36'

BE

RDWRTr!8

YES

19~

()~

on062

312£noo!5 N

CW,R~

T!ARG.S,R7

CeMP~~SSEO

eUTPUT

19~

O~

0006]

6830nJ~'

BE

RCWRTCe

YES

197

Cl'

on06*

04+10n'-?4'

REA09

CAL1,1

&£T£1

1'"

C'i'

00065

041on2*B

CAL1.11

SF.TEB

19q

Cl?

on066

3~lEnQOO

X

LW,

R1

SFL.ECT,R7

?OO

()?

00061

3~lEnooo

x

STW'~1

RSSAV~,R7

SAVE

cauNT

eF

REC;

SELECT16NS

?O1

C)

t'

00068

2f:t9cnOOl

~

LI,SR2

SEL.ECT·l

JNITIALIZE

RS

TASLE

INDEX

j)O~

()

i'.

00069

350Enooa X

RE'AD4

STW,RO

RF.'CNUM,R7

ZE~e

~[CeRO

NUMBER

CeUNT

~o~

..

20,," eli'

0006A

2ie6onooo

...

REAOO

LI,RIt 0

CL..EAR

rBD

CBUNTEH

205

*

~o"

ClP

00066

3ilcn~A8

PEAOl

LW,Rt

" t

BLANK

BuFFER

~o,

(~P

0OO6C

2~30n022

A LI,R3

344-

~OR

(lP

0006D

3a2Enoo~

N

LW,R2

ROPPT.4.1R'

~Oq

CIt)

OOO6E

B!S1&nOO2

A

STW,Rt

*R2,Rl

?1n

CIP

0OO6F'

6430~06e:

BORIR!!

.-1

2 \ 1

(IP

00070

3210t"\I,AC Lw,

R1

~x'OO40l+040'

i>1i'

('~

00071

35

14nnno

A

STW,R,

o"R2 INITIALIZE

FIRST

weRD

i"1~

Cl?

00012

04+1Encoo

x

CAL1"1

ROFPT.lR7

READ

fNPUT

RECeRD

t?1~

02

000

73

REA014

rGU

•

i'1!';

Cl~

000'3

3230noo~

~

LW,R3

MIEr·4

TRANSF'£R

RECeRO

SrZE

T8

WRITE

FPT

1-101

11149

r;EP

OB,

·,5

ROwRT

20

~1~

();)

OOO'At

2~30n06'

A

SL.S,R~

-11

~!'

()~

00075

2cl0nCOF"

A

LI,Rt

X'F'

21R

O;l

000'6

41:$1onooo

X .t\O,R1

Mlil

GET

AS~

F"RBM

DCB

~1q

C)?

00077

211onOO2

A Ct,R1 2

IS

IT

O£VICE

BR

ANS

220

C)?

000'8

6~20f\O'A

BG

.+2

YES

~21

0;>

000'9

3230nOOO N

LW,R~

MIEI.1:;

NB

•

GET

SIZE

F'RttM

RWS

weRO

22?

l'~

oo01A

2030nooo A

AI,Rl

0

TEST

FeR

NULL.

REt;8RO

22:1

()P

onO'S

6'30n082

BNEZ

R[A03]

NB

~?4

()~

OOO?C

3c1£0000

x

LW,Rt

TeARG,R7

P25

O~

000,0

21100008

A

CIIRt

8

TEST

tF"

eUTPUT

Ttf

ME:,LP,CP

22~

()

l'

0001£ 69

100082

BL.

RfA03:1

Ne.eUTPUT

NUL.L

RleeRD

~2'

()?

00o"

2030nOOl A

AI,R:;

1 •

FBRC:E

eNE

Bl...ANK

FeR

eUTPUT

i'2R

n~

00080

221ono4to A l

I,

R1

X'40t

~29

eli'

00081

Fe1onoo~

A STS,R1 *R2

~lO

02

ooosa

REA033

~QU

•

2:1 1

C)P

00082

33000000

X

MTW,O

ANSBL.t<

IS

BL.eCKING

wANTE..O

FeR

ANS

23i'

Cl?

00083

68

30no8'

eEZ

RrA02~

Ne

~33

eli'

0008*

3iOonOO1

N

MTW,o

ANSBI.K+l

YES

•

WAS

REC

SIl(!

GIVEN

el4

Cl~

00085

6'30no9~

BI\£Z

RE'A02'

YES

23F;

C)P

aoOS6 3530nCOl N

STW,R~

ANSBI.,I<+l

SET

RE:C

T6

SIZE

t1F

1ST

R£.C

~:;I,

Cli'

00087

2110nOOA

A

~[A026

C

I,

R1

Xt.'

IS

INPUT

FR6M

.NS

TAPE

i':i'

C!

i'

on088

6'30n090

8~£

R£A028

Ne

2lA

C)P

00089

4+

51onooo X

C:S,R1

MIE!

2Jq

CIP

0008A

6130nt8A

BE

ANSCVT

eUTPUT

IS

ANS

2-0

02

0OO8tf

R£A026A

F'QU

•

~.1

rIP

00086

3il2£0004 N

LW,R2

~OFPT."'R7

2~~

Cl~

0008e

3b2£noo

..

N

STw,R2

WRTF'PT+4,R?

RESET

WRITE

ADDRESS

24+3

Cl?

on08D

35300000

x

sTW,R3

BLKSIZ[

SET

T8 sIZE

etF'

INPUT

24+4

CI~

0008£

6A

Bon2B9

BAL.,SR4

UNBI.K

eUTPUT

NeT

ANS

•

G!

UNBLeCK

~lttr;

C)?

0008F

6~2ono9.

BCS,2

R~A02'

BL.8CI<£O

,eRMAT

,

..

~

02

00090

£:QU

•

2.'

CIP

00090

3;toonCOl

~'

MTW,o

ANS61.1<+1

WAS

R£C

SPECIFIED

~~$\

CIP

00091

6830n093

BEZ

••

2

N8

t'4Q

CIP

on092

3i30nOOl

f\

Lw,Rl

ANSBI.K+1

GET

REC

VAL.UE:

25Q

CI?

0OO9:i

3!53!nOO5

~

STWIR~

WRTFPr+s,R'

ENTER

sYZE

IN

WRITE

FFT

2[;1

02

0009"

R£A02?

rQU

•

l?!~

eli'

COO9~

3:11£nooo X

MTw,t

RECNUMIR?

~C1

11:~9

~EP

08,

'75

ROWRT

27

2e~

C~~

00095

061

V[F<SIeN'2

2154t

(~?

OnOgS

3~1E:noOl!s

N

MTW,1

RDF'PT."R7

INC

SLeCK

FeR

RANoeM

2!55 O;l)

0009'

3~O£noo{)

X

MTW,c

SE'L.,ECT,R7

ANY

RS

BPTIBNS

IN

EF"FECT

2~~

()~

00097

6830nnCD

BEZ

RiA02

~e

26'

nil

on098

3Z1onoo9 A

LW,Rt

SR2

GET

X.v

peINTe.~

t?§8

Cl~

OnOgg

3c2Ennoo x

Lw,R~

R[CNUM,R1

GF.:T

CURRENT

REe.

Ne.

~e9

()~

On~gA

B12tnoo7 A

CW,R"

*R?,Rt

CeMPARE

WIT~

x

VALUe:

~1l0

elf'

00098

6'10nOAf

BL.

REA01?

NeT

IN

RANGE

t.'6,

C,;:>

OOOgC

2UlonOO1

A A

I,

R1

1 STEP

Ta

Y

VAL.U~

~b~

()~

00090

8l22nOO7 A

cw,R2

.R7,R1

CBMPARE

26:;

()~

0009£

682000CO

BLE

R£AD2

WITHIN

RANGE

•

Ge

WRITF

2b.

(~

;:t

Oo09F

3jF£nooo

X

~TW'·1

SFL.ECT,R7

CECREM£NT

NS.

eF

RS

6PTIBNS

2b5

eli'

OnQAO

6a3aniS,

eEl

i8F9

Net

M6RF::

266

(Ho'

000A1 2090nOO2 A A

I,

SR~

2

P8INT

INDEX

T6

2117

C)

i'

000A2 B12Enoc9 A

C~,R2

-SR2,R7

MUST

F'IL£

BF.

REP6SITI6NEO.

;Pb~

c)::t 000A3

6~10noA£

Bl..

RFo401'

N8

2t,9

c,p

OOOAI+

68

3QnoCD

BE

RFADa

G8

WRITE

RECeRO

~'o

()?

000A5

3i1£noco

X

REA03

LW,

R1

O~VIC£,R'

"1

("

oeOo46

6!:J30noAI

e~e:

Z

'+2

pel

DiVICE.

~,~ e)i' 000A7

3Z1tnooo

X Lw,Rt

O~V'IN'R1

SYSTEM

INPUT

DEVICE.

~,~ C? 000A8 2110n001 A C

I,

R1

1

IS

INPUT

FRBM

CR

-"'4+

C)P

OOOA9

68

30n10,

BE

DrVERR

VES

• £RR8R

P.7!; ell'

OOOAA

211onco7 A

el,

R1

7

IS

INPUT

FReM

ANS

TAPE

-p,,.,

C)P

OOOAB

68

30ntC,

BE

O[VERR

v£s

•

£RR8R

2"

e)?

OOOAC

04t10n261

CAL1

••

PFtL.

peSfTteN

r8

ee,

2'R

Cl?

onOAO

680ono~g

B

R~AO~

~79

(IP

anOAt: Btl3!noo9 A

READ1?

LW,R~

*SR2,R7

~I!O

(lp

oeOAF

2V3FF'F'FF A

At,R~

-1

IS

p~£ceRO

NEEDED

~81

C)?

000

80 2i10nOOi A L

r,

R1

3

28~

()P

00081

1+!)10ncoo X

CS,R1

MaE!

TEST ASN

28J

()P

00082

68200068

BL.£

~tADl

NeT

'ILE

eR

"'ABEL.

•

DeNT

PREC8RO

~8~

()"

OOOB]

2210noOA A L

I,

R1

Xt.'

CHECK

F!'8R

ANS

~8!5

C)

;>

00084

4610nooo X

CS,R1

M:EI

28~

eli'

CoOB5

69

30noS9

et\£

R£AD11A

NeT

ANS

pg,

c,~

onOB~

:;Joonnoo x

MTW,a

UN8ADR

~R~

()~

ono

e, 69

30n08£

e~EZ

RfA

029

MeFl£

R~CeROS

IN

ijLecK.

28g

e)i'

00098

6800n06A 8

RFADO

~n1

17'49

~EP

08

,

.,5

ROWRT

2~

!.'9n

02

0006'

~EA01'A

F'QU

•

29,

()~

Oooeg

221onclO A

Ll,Rt

)(,30'

j)q~

C)~

onoBA

1+51onno5 N

c:s,

R1

MIEI·5 TEST If:

eRG

IS

RANOBM

29:;!

C)~

000B6

6930noBF

BN&:

RF.'A025

N8

29~

Cl

i'

ocoee

081

vrRSI8N'i

295

C)~

oooBe

353&:no06

N

STW,R"

ROF'PT

••

,R,

lET

BLeCK

FeR

2Q"

eli'

oooBO

3fSJ£noon

x

STW,R~

R[CNUM,R,

UPOATE:

REC8RO

NUMBER

~97

()~

oooSE

68

0ono68

B

RF.'AOl

~g~

02

oooBI'

R~A025

r:QU

•

29q

e,i>

oooBF

3~3Enooo

X

sw,R3

R£CNUM,R,

c:eMPUT~

Ne.

OF

RECS

T6

SKIP

300

ell'

oooCo

68

3000&8

BEZ

R£A

01

~eNE

301

C)P

OOOC1

2130,F'F'F A R[A023

CI,Rl

3~16?

8NL,Y

8NE:

PREC

REQUIRED

]O~

C)~

000C2 682onoCA

BL.E

R[A024

VES

3Q:i

(li'

onOC]

3i20nOO3 A

LWIR~

R!

SAVe:

Net

RECS

VET

TB

SKIP

~O4

Cl

i'

OCOC4

22307F'FF A

LI,Rl

3,,61

PREe

ceUNT

~os.=;

Cl'

oeOC!

04t1on2l5

CAL.111

PREC!

~o~

(l~

CoOC6

663[ncoo X

AWM,R~

RrCNUM,R1

8Ull1P

R[ceRO

,aUNT

301

CIP

oooC'

3i30(\OOi A

Lw,R]

R~

lO~

C)?

onCe!

203'AOOI A

At,R~

·~27"

C:8MPUT£

Ne.

RECS

VET

T6

SKIP

30CJ

(l~

ocOCg

680onoC1 B

RIA02~

31n

02

OOOCA

REA02~

F'QU

•

:t

11

C)

i'

OOOCA

0

4t

l0n23!;

CAL.1It

PR[C2 P8SITtSN

T6

REC8RO

WANTED

l1it'

C)~

ooOCB

663Enooo

x

AWMIRl

R[CNUM,R,

BUMP

R[CNUM

6'(

p~Fe

NUM

~1~

(IP

OCOce

68oonobB B

RF'AD1

Ge

RiAO

~14tr

02

oooCU

FQU

•

315

Cli.'

COOCO

323EnOQ! N

LW,R3

WRTFPT.5~R7

LeAD

~EceRD

LENGTH.

31"

CIP

ooOCE

6

AB

onlOo

8AL,S~&

NCCI-tI<

CHECK

~8R

NC

6PTI8N

ji17

C)?

eooCF

3clEno08

N

LWIRt

T8ARG.8,R7

~lA

()~

00000

2110FFOO A

ell

R1

)('FrOO'

WA$

TX

SPTI8N

SPECIFIED

l1t:t

CIP

00001

6840nOOlt

BAZ

R[AOS,

N!

320

()~

00002

2i1oncOo N L

I,

R1

teBU'

BUFFER

DISPl.ACEMENT

321

C)~

eOO02

6A

SOn!SAD

BAL"SR4

'ASEX,.,

;.:XPANO

TABS

~22

02

000

0

4+

~QU

•

3?~

()~

00004

3a1EnooA

I\i

Lw,

R,

TeARG+10,R1

TEST

rr;

ANY

SEQU~NCtNG

WANTED

32~

C)

i'

00005

6932n334

8t\e:Z

S[QIO.R1

BR

Te

APPR6PRIATE.

RBUTtNE

IF

YES

32~

02

00006

WR!T[2

~QU

•

~2"

e)f'

00006

2C!Eonooo

N LI,D:1 teBUF

BUFFER

AOR

~O1

171~9

~EP

08,

'75

RDwRT

2~

,,~,

(iP

00007

6A

Son260

BAL,SR~

BLI<TEST

T£ST

t

r:

BLeCK!

NG

wANTED

:121

()~

00008

6eOorHJ6A

B

R£ADo

YES

•

GB

GET

l~~

n~

00009

2iSonC06 A

LIIR~

6

.~lo

()

i'

ooOOA

315[no05

N

CW,R~

T8ARG+s,R7

IS

T~e:R£

AN

, X , PF(ESENT

331 ()?

ooooe

6930noEo

8t\[

WRtTE4

~e

•

~~X

DUMP

NeT

WANT£D

33~

()P

onOoe

6A

Bonooo X

BAL,SR.

t-IrXOUMP

Y[SI

at!

De

A

H£XC>UMP

333

c,~

00000 laOonooo x

MTw,o

UNBAOR

oe

WE

N££D

Te

UNttLeCI(

33-

ni'-

anOCe:

69

30no8£

Bt\£Z RrtA029

YES

33Pi

n~

ooOOF

6800n06A B R[

A0

8

33b

ClP

OOOEO

3C!2£nooo x

WF<fTE4

Lw,R~

TeAR

~R1

33'

()P

ooOE1

2'20000A

A

CI,R2

10

T£ST

tF

eUTPIJT

T6

CP

33"

eli'

000£2

"30nn[C

BNE

WRITE]

N6

339

Cl?

000£3

3i!2[noo~

N

LW,R~

WRTFPT.4~R'

l40

()

t'

OOOE.

FieonOO2 A

L..B,R~

*R2

TEST

FfRST

BYT;:

ttF"

REC8RD

l41

Cl'

000E5 2c1cn004 A L

I,

R1

4

~4f.~

ClP

OOOE6

7122nlFF'

c:e,R2

BINVAL,Rl

IS

IT

STANDARD

BINARY

ceDE

3~~

e)?

OCOE'

6830ncEA

BE

••

3

YES

l4*

C)P

000£8

6~lonoE6

BCR,A1

,-2

:;"!I§

C)

t'

onO£9

6800n1.ltl; e

WRIT&::1

Ne

:;.~

()P

OOOEA

0410nJFD

CAL.l

..

t

S[TBIN

S£T

BIN

MeD£

IN

or-a

~4'

C)

i'

000E8

61JOon13!5

B

WRITEt

l*R

()?

ooOE:C

3il&:no08 N

WRITE3

Lw,R1.

TeARG.8,R7

34f,Q

()?

000[0

311on~AD

CW,R1

.X'OOF'FOOOO'

IS

I(

6PTleN

PRES~NT

3150

()j)

onOEE

68

40(')1]8

SAZ

WRITE1

N8

~!51

C)P

CnOEF

2230noF'o A

Lr,Rl

)(.PO'

]!S~

C)~

OoOFO

2c2on020 A

LI,R~

)('20'

3!;~

(l~

ooOF1

~!;2onoO!§

N

CS,R~

MIEI+s

IS

FrL~

KEYEO

38~

C)?

000F2

6'30n119

BNE

wRITEt;

~e

:1!)5

CH'

000':;

321onoOA

~

LW,

R1

MI£I+to

KEV

ADDRESS

:1St;

C)P

000'.

122onooc

N

LB,R2

MIEI·t2

GET

KEV

MAX

:187

C);2

onOF5

2120n003 A

CI,R~

:I

IS

tT

A :I-ByTE

Ktv

l~R

Cl?

000'6

6'30n10[

BN£

WRITE6

Nt!

3Scg

()P

onoF'?

Sil0nOO1 A

Lw,R1

*R1

36O

()P

OOOF'8

4tt:510n~Ae:

A~D,R1

II)('OOFFFFF'F"

GET

KEY

361

()~

000"

6ABO*",OOO

X

BAL.ISR4

BtN26CD

C8NViRT

T6

Bc;O

lE;~

C)

t)

ooQFA

2!52onl08

A

SL.O,R,

8

36~

Cl~

000F6

'i1onoo~

A LB,Rt

R~

FIRST

BYTE

eF

VAL,Ue:

~(j1

17149

~£P

08,

'15

RDWRT

30

3''',

(j,

OOOFC

262nnC08 A sL.S,R" 8

~'5

()

.?

OCQFO

4f,5'1on'AF'

eR,R1

.X'4tO'040nO'

:1~~

('~

OOOr:E:

At

9

20nf)BO

AR,R~

..

XtOOOOF04S,

[OIT

NS.

Te

XXXX'XXX

:'t"

(j~

aoOr:'F

AtSJ30nt,B1

eR,R]

~X'FOF'OF040'

368

(j'

cnleo 3eilE:noOO )(

STW,Rt

LINENe,R1

PUT

IN

BUrFE:R

~~9

0'

00101

352&:0001 N STW,R, LrNENe.l,R7

~,o

() "

00102

3ei3rno02 N

STW,R:;

LINEN8+2,R7

l,1

('~

0010:1 3C?lrnoOo X Lw,Rl

R[CNUM,R7

GET

REceRO

NUMBER

l'~

O~

00104

6A

Bonooo X

BAL,SR4

BtN2BCO

ceNVERT

T8

BCD

~,~

();:J

00105

352('noOo X

STW'R~

SF'QNUM,R1

3'4

()j)

OOlOb

3e>3£nOOl

f\

STW,Rl

SFQNUM*1,R1

PUT

NUMBER

IN

BUFFER

~7~

C,'

00101

2~lonn02

A L

I,

Rt

2

l7~

Cl'

oe108

3t51Enoo7 N

STW'R1

WRTFPT+?R1

AOO

61D

3"

ni' 00109 3i!4[nOO4 N

LW,R4

WRTFPT.I+,R7

SAVF':.

BUFF

ADR

:i'"

C)~

onloA 3aS(nOQ4

~

MTw,-!iI;

WRTFPT.Jt

..

~'

C~ANGF

BUFFER

ADDRESS

3'9

()~

0010B

2clonnl~

A L

I,

Rt

18

INCREMENT

WRITE

ceUNT

380

()~

col0e

661£n005

N

AwM,Rt

WRTFPT.5,R'

~81

()i'

ocl00

6100n13'

B

WRITE1.1

:;8~

.-

383

02

0010~

wR1Ti6

r;QU

•

38~

r)~

0010E

le20t"l~3A

LC,R~

K£YX

3R!;

C)P

on10F 3!52Enooo X

STW,R"

PRNTBUF,R7

SET

UP

LINE

FeR

PRINTING

KEV

J8~

eli='

00110

3!53F:COOl

N

STW,RJ

PRN1BU;+1,F<7

:;8'

(IP

OC111

22£on001 N

LI,Cl

J'RNTBU'+l

~88

(l~

00112

3UEonOO7

A

AW,O:.i

R'

:;~q

(I?

oelt]

6A

Sonooo X

eAL.,SR~

UNPRtNT

iNTER

KEY

IN

BUFFER

390

CI

i'

00114

04+1on2lC

CAL..

1

..

1

PRINT1

WRITE:

BL.Nt<

L.IN£

391

eli' 00115 2U2onooS A

AI,R~

5

L[NGT~

eF

PRINT

~tNE

39;.t

(IP

0011& 20EFFF'FF A

AI,03

-I

ceMPUTr

BUFFER

AOOR£SS

~9~

CIP

00111 04+10n;:J4t

CAL..1,1

PRINT~

PRINT

KF-Y

394

(I"

00111 6800n13!§ B

WRtTEt

~95

CIP

00119

3clEnoOO x

wRITES

LW,

R1

R[CNUM,R7

GET

RE'CBRO

NUMBER

396

Cl" col1A 6

AB

onooo X

BAL..,SRJ6

BtN2BCO

c:eNViRT

Te

BCO

39'

elP

oe118

2clonnoo A L

I,Rt

0

]9R

CI?

cellC

?530nOOl

"-

STB,R]

R1

~AST

8,(TE

T8

R1

]gC)

CI?

00110

4t

9l0nltB2

eR,R1

IIX'00406040'

AOD

~VPHEN

~oo

CI

t'

oo11E

2~2on118

A

SL.D,R~

-8

P6SITIetN

eTl-it:R

SVT£S

~n1

171a9

~iP

08,

'15

ROWRT

31

"C1

Cl~

0011F' 352£noorJ X

STW,R~

LINENe,R,

E:NTER

TN

BUFFER

4tO~

()~

00120

3E>3[nOOl

N

STW,Rl

LrNENe+1,R7

~o~

()~

00121

3~1£nOO2

N

STW,R1

LtNENe.2,R7

~O4

C)~

00122

6800nt2£

e

WRITEt58

405

02

00123

wRITE,SA

[QU

•

41006

(H~

OC1~3

331£'noOO X

MTW,1.

RECNUM,R,

UP

R[C8RO

CeuNT.

40'

ClP

00124 2c30noFo A

Ll,R]

)("0'

40R

()

i'

00125

3c1EnoOO X

Lw,Rl

RECNUM,R7

GET

RECeRO

NUMBER

4

Or.,

C)P

00126

6A

BonOOO

X

BAL.,SR~

erN2BCO

CBNVERT

Te

BCD

410

C)~

0012'

2i10nOOO A L

I,

R1

0

411

ClP

00128

1530nn01 A STB,R3

R1

LAST

eVTE

T6

R1

4Ii'

C)?

00129

4'10n&B2 eR,R1

')('00406040'

ADO

HYPHFN

4tl

C)P

0012A

2!)20n17A

A SI.O,R2

-8

PBSfTr6N

eT~£R

BVTES

44-14

C)P

0012B 352(noOO X STw,R, LINE.Ne,R'

r;NTrR

IN

aUFF'[R.

41~

ClP

0012C 363Enooo X

STW,R~

l.tNE.Ne1,R7

~1~

C)~

cn120 351£nooo X

STW,R1

LfNE$N62,R7

411

02

0012t.

wRITE.S8

FQU

•

~1R

eli'

001~E:

2il0nOO3 A LI,R1 l

~19

e)"

001ZF'

3S1En001 N

STW,R1

WRTFPT."R,

lTD

420

Cl;?

00130

lC4Eno04 N

Lw,R4

WRTFPT.4,R?

SAVE

BUFF

AOR

421

CIP

00131

33CEnOO4

N

MTw,.~

WRTF'PT.4,R?

CHANGF:

BUFFER

ADORESS

42?

r)~

00132 2210nOQ9 A

Lt,Rt

9

INCREMiNT

WRITE

CeUNT

4t2~

c:

t'

00133 661EnOO! N

AWM,R1

WRTFPT.S,R7

424

Cl~

001!.

6800n1~'

B WR!TEt+l

42!;

*

42~

02

00135

WRITEl

iQU •

427

C'i'

00135

3C4£nOQ4

N

LW,R

..

WRTFPT.4~R'

eUF'F£R

ADDRESS

42R

C)P

0013'

3i2Enooo x

LW,R~

TeARG,R7

"29

C)P

0013'

212onoo9

A CJ,Rp 9 IS

eUTPUT

Te

LP

4Jn

(I

i'

00138

63

30n14'

Bt\£

W~!TE'

N8

4:i1

elP

00119

3i2EnoO!§ N

LW,R2

WRTFFlT+!5,R7

GrT

StZ~

5F

REce~D

4J~

C)

? Oc1lA

2c30n100

A

LI,Rl

)('100'

433

Cl~

On138 3130nooo X CW,Rl

MIEe

C~F.'CI<

Ir;

VFC

aPTIaN

SPE'I~IEO.

434

C)

i'

Co13e

6!;~on146

e.NZ

WRITE'

VF'C

SFTt6N

PRESENT.

~l~

Cl~

0013D 2CJ2'f:F'1C A

WRITES

AI,R2

-132

4t36

()~

oc13E

6820n14~

BLEZ

WRITE,

eNI.V

aNi:

LINE

REQUIRED

4:;1

C)

;>

oo13F

2~30nog4

..

lI,R~

1:12

~n1

1"4.9

sEP

08,

'15

ROwRT

3c

~:J8

C)P

00140

3f53£nOO5

N STWIRl

WRTFPT+5,R7

p~rNT

1ST(N£XT)

ll2

CHARS

4:19 ell'

Ool~1

0

4t

l£noOo X

CAL..1,1

WRTF'PT,R7

~"'O

();;

00142

2230no21 • LI,R:;

33

441 Oi'

00143

663£noO~

~

AwM,R~

WRTrPT+4.R7

UPDAT£

BUrrER

ADDRESS

44~

()j>

00144 3b2E:n005 N

STW,R~

WRTF'PT+5,R7

~e.

REMAINING

CHARS

IN

REC

44]

()~

0011+5

"OontlD

8

WRITE"

444

()'

00146

Ol+1£noOo

X

WRITE'

t':AL1,t

WRTFPT,R1

WR%T£

eUTPUT

R[CeRO

44f1i

(,?

0014'

354trnOO4

N SrW,R4

WRTFPT

••

,R7

REST6R£

BUFF;:R

AODRESS

44~

C)p

00148

6

AB

on:tli

BAL,SR4

BRCHK

CHECK

BREAI<

FLAG

44,

()~

00149

3;iOonooo X

MTW,n

UNBADR

Oe

WE

N£EO

T6

UNtiLeCi(

44A

c,~

0014A 69

30no8E

BNEZ

RfA024

YES

449

C);:>

00148

3i1lrnnOO X

LW,Rt

eeOE,R7

4!S0

()

i'

Oo14C 211onoO:i A Ct,R1 3

451 C)'

00140

6830n38£

BE

R[A06

CeMPR~sSEO

INPUT

4+~~

(l?

0014£

680onot,A

8

R'.Oo

4!;~

*'

454

C)?

0014'

1c30neOA A

RDABN

La,R]

SR3

GET

ABNeRMAL

ceDE

455

C)

i'

00150

2130no05 A

c:

1,

R]

S T£ST

r:SR

£eo

48,;

C)~

0ol!51

6830t'\154

BE

[801

reo

FSUNO

481

Cl

i'

00152

2130nco(' A C:I,R] " rep'

ENCeUNTE:REO

488

Cl

j)

00153

69

30n1'E

BNE.

&:8F1

N6

4~q

02

00

1JS~

;-eOl

~QU

•

460

Cl?

00154

2250noo6 A LI,R5

fJ

.61

C)P

00165 315!nno!§ N

CW,Rf;

TeARG+!,R1

CeING

A

~EX

DUMP

46~

Cl

i'

oo1~,

6'30n16n

BN£

re02

N8

..

6l

C)

t'

001!1

2iSonOQ3 A

LI,R!§

]

4~4

C)?

on15A

~55nnooo

x

C:S,RPi

MIEI

~£)(OUMP

FRBM

A

OEvtCE

4~5

e)?

00159

69

30n160

BN[

£e02

,...e

,-,ls~

Cl~

0015A

3i!1£no03

N

L~,R1

M80E.],R7

4~'

Cl~

001eB 211onoFF A C

I,

Rt

X'Fr'

T[5T

F'eR

DEeD

epTf6N

'-""

CP

001!5C

6'4toon160

eANZ

ieD2

V£S

469

C)?

oo1!5D

2220001'

A LI,R?

11

MESSAG£

SIZE

47(,,)

(l?

0015E

2i10noOo N L

I,

R1

M.E6

DeB

AOORESS

~'1

()P

00lSF

0410n2!;£ CAL..l,t

F1FTE60

VES.INDICATE

·.EeO

••

ENceUNDrD

477J

02

00160

£e02

F'QU

•

4'~

Cl~

00160

3300nooo X

MTW,n

ANSeL,l<

T£ST

IF:'

SLeeKING

FeR

ANS

~74

Cl"

00161

6;.$30('11(,3

8El

.+2

NB

~t'l1

17149

~£P

OS,

·,5

ROw~T

33

4'~;

();t

On16!

O"1r.noOo X

f:AL1,1

WRTFPT,R,

wRITE

LAST

B1.8Ct<

4'6

(,::t

on163 2060nOO1 A Ar,R6 1

4'.,

(j~

on164

2160n002

A

cr,R~

2

TEST

~eR

oeU~L[

ESO

4'R

()~

00165

6830n1A1

BE

~eF5

~,q

(~~

OC166 2250n003 A LI,R!§ l

'+10

();)

onl~'

315Enooo X

CW,R!I§

c:eOE,R7

INPUT

eeMPRESSEO

WANTED

1+81

()

i!'

Ool~8

6a30n~ii'

BE

ROWRTc:e

VES

,+8~

();) on169 31!5£no08 N

CW,RS

T8ARG+5,R1

eUTPUT

C6MPRESSEO

WANTED

'+~:.

0;;. 0016A

6'30(\171.

BN[

&:e03

N8

1+84

()~

on16B

350Enooo X

STW'Rn

RrCSIZ£,R7

INOICATE

N8

MeRE

TNPUT

48!i

()~

Oo16C

3i8onnOl

A

Lw,SR1

R~

48b

();;.

0016D

6

AB

on4B&:

BAL,SRJt

c:eMPRrSS

eUTPUT

LAST

Re:C8t'(D

487

C)~

0016£

3i30no08

A LW,R] SRl

48~

()P

0016'

32A!ncoo X

Lw,SR3

r8ERR

..

R1

OlD

16

e:RReR

eCCUR

4SQ

nf)

001'0

69

30n202

8t\El

[eERR

YES

49n

02

00111

E!03

F'QU

•

491

()~

001'1

330£nooo

x

MTW,o

g[I.ECT,R7

'NV

MeRE'

RECC;RO

SF.:L£CTrBNs

J+g~

ClP

00172

6930n1A3

BNEZ

18F5+2

YES

49~

()~

001':;

321£noO] N

LW,Rt

M80E.~,R7

4g4

Cl':'

00174

211onoFF A

cr,R1

X'F'F'

DEeD

BPTIBN

49~

(IP

001'5

6140n17.

SAZ

[804

Net

49A

Cl

t'

001'6

321EnoOo X

LW,Rt

RSSAVE:,R7

INITIALIZE

r:BR

R£CSRD

SEL.ECTleN

49'

(lP

0011'

351£nooo X STw,R1

9£L.ECT,R7

49R

CI~

001'8

2290n001 N LI,SR2 S£L.EC"·1 INITIALIZE

SELECT

TABLE

INOEX

499

CIl'

00119

6100n176

B

."'2

son

02

001?A

[e04

~QU

•

~O1

CIP

001'.

0410n22'

CA1.1

..

,

wrer:

WRITE:

FeD

~O~

(Ii'

on11S

2130ncolt

A

CI,R]

IJ

[err

iNceUNTERE:O

~C3

C)P

0011C 68

30n20'

BE

R£TURN

VF.S

50~

CIP

00110 6

11

00nCeB B

RF-A01

~CF;

*

506

02

001'~

£8'1

~QU

•

~Q'

r.l~

001'£

2130(')007

A

CI,R3

,

TEST

FeR

LeST

DATA

;o~

(Ii'

0011F

6'3cn1Ct

8N£

EaR

~Qg

e!i'

00180

3a

OOOOO1

~

MTW,a

ANSBL.t<·l

~1n

Ci, 00181 [93CnOeg A

BNEZ

·SR1

IGN6R[

IF

REC

SItE

GIV~N

FeR

ANS

511

CIP

0(')182

6ABcnooo X BALISR4-

GFTPAGE

GET

ADDTTIBNAL

BUF"F"ER

PA(:iE

t-IC1

1"1149

~EP

011

,,5

ROWRT

3't

!;1~

CIP

0018:1 2180ncOO A

CI,SRt

0 010

Wi

GET

seM&:

PAG~S

51~

C'~

0018*

6930n180

BNE

[BF2

YES

!514

(IP

00185

3310nooo X

MTW,1

GRANCNT

&&:1

AB~RT

FLAG

51!;

C)p

oc18A 33

000000

X

MTW,o

CepYSK

T£ST

IF

C6PVALL

51/,

eli'

0olS?

68

30n18A

BEl

.+3

N8

51'

(Ip

00188

3iF'C}n,B~

LW,O~

~)('07000onot

SET

ABN

ceDE

~1~

C)P

00189

680on'-'OF 9

~t:'TURN1

!l519

02

0018

A

[eF1!

EQU

•

!52n

(l?

on18A

2a1ono2t

A L

I,

R1

II

fRR8R.AnOITIeNAL

PAGE

NeT

AVAtL..At;;LE

521

C)P

00186

6

AB

onooo

X BAL.,SRAt

ERReR

!l52?

Cl?

0018C

680cn20A B

ReTURN

52:1 02

00181.)

e:err!

£QU

*

!52~

CIP

00180

322!nco!

N

LW,R2

RDF'F'T"o,R1

aLD

SUFFER

SIZE

~2~

c)p

oolS&:

2580no08

A

Sl.S,SR1

it

CeNV[RT

PAGES

T6

BYTES

~2~

eli' COlaF

3020no08

A

Aw,R2

SRi

NEW

BUF"F'ER

SIZ£

!327

C)?

00190

2210noo,

A L

1,

R1

X'F"

sag

C)P

00191

~ttloncoo

X

A~O,R1

MIEI

G£T

ASN

FR6M

DeB

Pli29

CIP

00192

2110n002 A CI,R1. 2

IS

IT

DEVICE

6R

"NS

!.IilO

CI~

00193

68!ont90

BL.E

£eF'4+

Ne

531

Cl?

oolg~

3181(')0015

~

L~u

SR1

RCF'PT.S,R?

!;l?

ClP

0019!

2180,F'FF

A

CI,SRl

X.?FFFf

VES.BUFFER

CAN

NeT

BE

LARGER

~l~

CIt'

00196

691on1.9A

BL

[er3

THAN

15

erTS

5l~

elP

0oleJ'

2i1onC26 A L

I,

Rt

38

ERReR.R~CeRO

SIZE

~ARGr!R

Tt.fAN

15

BIT

5:J~

CIt'

0019S

6ABonr)OO

X

BAL,SR_

[RR8R

SIt;

eli'

00199

680on~OA

e

RI!TURN

837

C)P

00lgA

2120,F'Fr:

..

!'e'3

CI,R~

X""F,

S:t8

CIt»

00196 69

100190

BL

EeF'~

IF"

BUF'FF,R

LARGER

THAN

15

BITS

5:J9

Cli»

0019C 2c20,FF'F

fA.

LI,R;!' X"r:FF',

SET

AT

15

BITS

5~O

CIP

00190

3!,1;2£ncoS

N

E8F4

STW,Rp

ROFPT.S,R7

!5~

1

CIP

Oo19E

352£nnoo x

STW,R2

BUF"SrZE,R,

5"~

C)~

0019,.

0410(')233

CAL11t

PREC

P8SITtSN

BACK

eNt

REC8RO

5~3

eli' 001140 6100nOIJB B

R£A01

~44

ClP

001

14

1 330£nooo x

£BF5

MTW,(')

S[LECT,R7

ANV

RS

ePT16NS

54tS ();:J 001A2

683cn~oA

BEl

R~TURN

N6

!54~

eli' on1A3

3i3e:nnoo

x

LWIR~

RrCNUM,R7

GET

NB.

SF'

LAST

~£C

54'

C)~

001A4

813E:nOO9

A Cw,Rl *SR2,R?

C8MPARi

WITH

X

VALUE

54R

()

i'

001A5

6~1on1BO

BL

£8"

ERRBR.E:NTIRE

Se:Le.CTteN

NeT

IN

FIL.£

,",cl

17149

!=;EF

Oi"

'75

ROWRT

3~

§49

()~

001146

2090nOO1 A AI,SR,;t 1 peSITrSN

T5

y

VAL.UE

5S0

()~

001A7

613r.~OO9

A

CW,R:J

*SR2,R'7

LAST

R[C

Ne.

vs

Y

VAL.Ui

561

()~

001A8

6lS10nlB]

BGE

[8'6

wITHIN

FIL.E

56~

()~

001149

2c50nOO6

A L

I,RS

~

55~

()~

o01AA

315£n005

N

CW,R!§

Te,ARG+s,

R7

OBtNG

A

HEX

CUMP

55~

()~

COlAS

6830n1BJ

BE

&:8F6

YES

•

caN'T

REPEAT

MESSAti£

!li5!li

()'

oolAC

2c2onOll

A

LI,R2

19

~5~

('~

OOlAD

2clonoOo

N L,t,R1

MIUC

!l;57

0;:>

OOlAE:

330onOoO

X

MTW,O

JIJIT

BN.LINr

55R

();:»

001AF

"lontB2

BL.Z

.... 3

VES

5Sq

Oi'

00180

2c20n012

A LJ,Ri'

18

BATCj,o.f

• oeN'T

PRINT

NL

CHAR

Rbn

C)!'

oo1S 1 2clonooo N LI,R1

MaL.e

Bb1

()~

00182

04+10n25£

CAL,1,1

F'PTEeO

PRINT

,£eo

ENCeUNT[REO,

!'4'2

02

001

83 33'£nooo X

Ef!F.6

MTW,-1

S£L.ECT,R,

OECREM[NT

Ne.

ar

Rs

ePTIeNS

~']

('~

OC1e~

69

30n1B7

Bt\[Z

.·3

t=564

O~

00lSS

O~10~227

E6;8

CAL.l"

1

W[8F'

NEt

MeR[.WR!T~

£8F

~65

O?

00186

680on~OA

8

RFTURN

5~6

02 0016"1

e:eF'g

fQU

•

~6'

C)

io'

001e1

0410n227

CAL11i

WF6F

LtJRIT£

reF

~6g

(li'

0018A

041on23l

CAL1,i

PREC

BACKSPACE

6NE

REC;eRO.

S~CJ

()P

00189

6'00n"OA

8

RrTURN

!570

eli'

001BA

2090noot

•

AI,SR,

1 peSITreN T6 X

VAI..UE

571

Cl?

001

8B

8~3Enoo9

A

C\tll,R:1

*SR!,R7

TE$T

IF

IN

FILE

~,~

C)?

COlse 611onoAs

BGE:

RrAOa

YES

•

RE.REAO

Fll.r

157"

CH'

00160

2cl0n029

A

EeF7

Ll,Rt

41

[RR6R

•

NeT

IN

FIL.E

~'J+

C)

p.

oolBe:

6ABonooo

x BAL.,SR4

£RRSR

~,!';

()~

001eF'

2U90~OO1

A

Al,SRp

1 peSITtBN T6 y

VAL.UE

~,~

Cl~

oolCo 68

000183

8

r8F6

TRV

PArR

~1'

..

~'8

OP

0OlC1

2130n01C

A

~eR

Cl,R!

X'lC'

TEST

FeR

END

BF

Rr;-£L

51q

(lP

0olC2

6930~~O]

BN!

le£RR1

SRO

CI~

Oc1C3

2i30n22C

LIIRl

£8CV6L2

51\1.

CI~

oo1C~

2iJ+onC02 A Lt,R..,

'-

~B"

C)P

onlCS 6

AB

onlE:'

BAL.,SR4

ULBL.CMI<

TEST

FeR

TRAILE:R

LABEL

583

Cl

i'

C01e,

O~lon;'>28

CAL1'1 £level

ADVANCE:

Te

TAPE

REEL

584-

Cl~

0Ole,

EIOonn08 A B

-SR1

ceNTtNUE

T6

~EAO

~85

..

~O1

17:49

~EP

08,

.,5

ROwRT

3&

58~

(),

OCle8

"lonoeA

A

WRTABN

LS,

R1

SR3

GET

ABNeRMAL

CeDi:

~A'

Cl~

001C9

2l1ono1C A CI,R1 )('1C.

TEST

F'SR

END

e,

RE[L

58R

C)P

ao1C.

6~30n;;:02

8t\E £8ERR

!l;8q

c,~

oolCB

3clEnooo

x LW,Rt

TBARG

..

R7

590

();:t Oo1ee 6930,.,1C[

8~£Z

.+2

peL

O£VICE:.

~91

()P

colee

ail[noOC

x

Lw,FH

O£V*eUT'R1

SYSTEM

eUTPUT

DEVICE.

59~

C)~

001ee: 2110f'lOOI+ A C

I,

Rt *

eUTPUT

Te

LAtle:LED

TAPE

~93

('~

ooleF

"30n10J

BNE

.+3

Ne

694

0;>

0011')0

208FF'F'F'F

A A

I,

SR

1

.1

BACK

UP

T6

WRITE

CAL

595

();

00101

6BOon104

B

••

3

'5g~

C)~

001D2

0"100227

CAL1

..

1

w~eF

DeUBL.~

FeF

59'

C)~

00102

0

4t

lon227

CAL-l,1

W[eF

wRITE

£BD

598

e)F

00104

0

4t

lon22A

CAL.l,1

;:eCV8L

eLSS£:

CURRENT

eUTPUT

VBLUME

~gq

C)?

eniDs

£800n008

A 8 .SR1

C8NTINUE

REAOING

AND

WRITING

600

..

601

C);:t

0010'

2ilono1B

A

OE:VE:RR

Ll,Rt

i'

rNVA~ID

RS

SPEC

FeR

DEVI~E

~Oi'

Cit'

00107

68

00020.

B le£RR1.1

REF'6F<T

£RRSR

60~

Cl

i'

00108

1a10nooA A

€IERR

lB,Rt

SR3

TEST

FeR

L.AST

REEL.

~C4

C)i'

00109

2110nO!6 A C

I,

R1

let!6'

bOP;

Cl~

oo1DA

6'30010F

8P\£

re£RR~

Ne

•

S8ME

eTHER

ERReR

eOIt

CIP

0010B

2!lonOOl

A

lI,R1

l

A01

Cl

;>

oatOe

311£n006 N

cw,

R1

TeARG.!5,R7

C8MPRESSEO

eUTPUT

~O8

(lP

00100

6'30n013

e~E

REA

D

1*

~e

•

WRITE

LAST

Re:C8RD

efT)

~O9

Cl~

oolDE

6800nlCF

B R[ADst

WRITE

ceMPRESSEO

REC6RO

Et10

C)~

001DF

211on042 A r8&:RR3 C

I,

R1

)('42'

b11

C)~

001Ee

6930n20l

8NE

rftERRt

b1P

Clt'

001£1

2iF'onooc

A-

LI,O. 0

~1]

C)?

001£2

2ilono3o

..

LI,R1

x.ao·

614

(l~

001E:; 4°101"005 N CS,Rt MIEI.r;

61!'i

()~

001£4

6li30n~2At

BE

RrTURN2

[NO

e,

RAN06M

FI~E

61~

eli-'

001£5

6800n~o]

8 r8ERR1

b11

*

61~

CIP

001E6

321~noOO

X

ULBLCHK

Lw,R1

DF.:VICr,R,

61q

rIP

001£1

6'30nl£9

B~£Z

••

2 peL D£VICi •

620

CIP

001E8

3alEnoOo x

Lw,R1

O£\i$IN,R7

SYSTEM

INPUT

DEVICE.

~21

()?

O()lE9 2110noo.

..

C

I,

R1

4

IS

INPUT

FR8M

LT

62?

Cl"

Ool£A

683001ED

8E

1+3

VES

~O1

17149

«;£P

08

..

'75

ROWRT

37

62~

e)?

ool~B

2110n007 A C

I,

R1

, fNPUT

F'ReM

ANS

TAPE

&2~

Clt'

ool£C E5i30noo8 A

B~E

-SR.

Ne

t,~!=i

(l;)

on

1

ED

2i80006B

LI,SRt

RF!AOl

RETURN

Lee

T6

R~SUME

F<£AO

6~~

C)~

oo1EE

321[nooo

X

Lw,R1

TeARG

..

R7

1121

Cli'

001E:F

6~30nlF1

B~EZ

.+2

peL

DEVICE.

'2~

np

OC1Fo

321£0000 X

LW,R1

Or".eUT,R1

SYSTEM

eUTPUT

DEVIC[.

629

e)f)

001F1 2110noo. A C

I,

R1

~

IS

eUTFuT

15

LT

630

C'i'

001'2

6830n1'8

BE

*.3

ViS

6~1

el? 001F'3

21100001

A

c:r,R1

,

eUTPUT

T8

ANS

TAPE

b:1t)

()P

001F.

E~30noOB

A

Bf\j£

-SR_

N8

633

Clp

001

FS

3~lEOOO.

N

LW,Rt

ROF'PT+~,~'

AODRESS

BF

REAO

~LJFFER

634

CIt'

001'6

3i1tnooo

A

LW,R1

o

..

Rl

635

C)P

001F1 3110nbAC

CW,Rt

")('00404040'

!NAS

A

TRAILER

LA~'L

READ

,3&

(~

j)

001'8

[630noOB A

BE

.SR.

NB

b37

Clf)

On1F9

02200030

A

LeI

1

638

()?

001F.

2~1'nooo

A

LM,

R1

O.lR3

MeVE

FPT

16

DATA

AREA

63t;

ell'

001r8

2

tJ

1!oOFA N

STM,R1

leBU'.250

..

R?

(,40

C)~

001FC 3i1rnOO4 N

LW,Rt

ROFPT+It,R1

'''1

Cl

;t

001rO 3i30nOO1 A

Lw,R:i

R'

6~~

(lP

001F[

3U30noo- A

Aw,Rl

R4

CeMPUTi

AOR

SF

LABEl.

ENTRY

64l

C)

j)

001F"F 3b

16noFA

N

STW,R,

reBUF.250

..

R3

[NT£R

BuFFER

ADOti<r:SS

6"'4

C)~

00200

O~1e:noFA

N

CALi"

teSU'.250,R7

oe

CLeS£

eR

CLeSE

ve~UME

645

Cl~

00201

E8

OonaoB

A B ·SR4

641t

02

OQ~Oi

~eiRR

EQU

•

it

..

,

C)

i'

O020~

350l:nnOO X

STW'RO

Te9

W

T

..

R1

CL~AR

OEFINEO

eUTPUT

64A

*

64C)

ni'

00203

2i10nooo

A

IBERR1

'LI,R1

0

r;LAG

tIe

ERRetR

6!;O

Cl~

00204

331onooo X

MTW,t

GRANCNT

SET

ABeRT

FLAG

661

C)?

00205

330onooo x

MTW,o

eepYSK

TEST

IF

C6PVAl.L

b5~

Cl~

0020lt

6830n~og

BEZ

,.3

N8

6!S~

C)

i'

00207

3~FonnOA

A

LW,O.

SR3

G[T

[RR/.BN

ceOE

65.

C)

t' on208

6lSoon~o'

B

R£TURNl

~55

Cl?

00209

6ABooOOO

X

BAL,SR4

!RR8R

656

*

ft~,

Clj)

0020A

3c1£nnO:i N

F([TURN

LW,R1

MeDE+~,R,

6S~

C)~

00208

211000FF A

CI'R1

)('FF'

wAS

o~eo

SPE(;IF'IEO

659

()?

0020C

68I+on~o[

BAZ

1.2

N8

~nl

11149

~EP

08

..

'15

ROWRT

3()

f',6n

C~

00200

OAt10np.21

CAL1

..

1

WreF"

VES

•

wRITE

Ee,

661. eli'

0020£

22F

onooo

A

LI,04

0

66~

02

0020

fi

R[TURNl

F'QU

•

66~

()i'

OO20F'

2~30nt»2£

LI,R]

CLeSEp

6~4

eli'

00210

2C40nOO] A

LI,RI+

3

665

Of'

oaill

6A

BonlE:&

BAL,SR4

ULBL.C~I<

TEST

FeR

TRAILER

LABEL

661,

rlP

00212

3300nooo X

MTW,o

GRANCNT

WAS

espy

AB8RT£D

6iJ1

()~

00213

6'3~n216

B~[Z

.+3

YES

6~R

O~

00214

210onOOt A CI,O, 1

IRReR

CeNOITlSN

6f,Q

()~

00215

6a2on~24

SL.E

RF'TURNi

Ne

1,'0

n;)

on216

321£noOo x

'LW,R1

TeARG

..

R1

671

();'>

0021'

6'30n'-19

B~£Z

••

2

pel

OIVIce:.

6'~

C)

i'

00218

3c1£nnOo X

LW,Rl

DFV.eUT,~'

SYSTEM

eUTPUT

DEVICE.

6'~

();'.

00219 2110noO] A

ell

R1

]

GefNG

T6

RAO

rIl.E

6'4

c,~

0021A

6130n~10

8£

••

3

YES

6'5

C)'

00218

2110noO!

A

ell

R1

5

GeING

T6

OISK

PACK

"'1,

(ii'

oo21C

6'30n224

9~£

RrTURN2

N8

6"

C)~

oc210

3ilonnOo

X

LW,R1

Mire

l"g

()~

0021E 3110n"S4

cw,Rl

"X'OO,.ooooo'

IS

eUTPUT

F'Il.e:

ePJ;'"N

~'9

C)P

on21F

6840n~24+

SAZ

R[TURN2

Ne

680

*

CeN'T

RF"L.EAS~

r,

FUN

IS

!N6UT

6~1.

C)?

002~O

3111cnnOt N

LW,Rt

MIE!·1

GET

FUN

e8~

CIP

Otj221 3110n665

CW,Rt

IIX'OOOiOOOQ'

IS

IT

INeUT

b8~

Cl~

00222

6'40n~24

BANZ

R[TURN2

YES,

D8N'T

RELE:ASr;

68.

Ci?

00223

O"1~()t'6A

CAL-iIi

'PTREL

REL£Asr

SAO

RAO

FILE

685

Cl~

00224+

Oil20no'o

A

R£TURN2

LeI

7

68~

c:

;:>

00225

8A50noo' A

PI.MIR~

*f(?

687

(lp

00226

£600no08

A B

*SR4

68R

*

egg

C)p

on22' OiOoncoo N

wEer:

OATA

X'020000co'+~lre

690

(l?

00228

0300ncOc x

~rCveL

GEN,I",t,

X'03',O,M,EI

69t

C~

00229

OOOonoOo

A

OATA

0

69~

()?

on22A

0300nooo N

~eCveL.

DATA

X,Q3000000,+M:iS

b9l

C)

j)

00228

OOOonoOo

A

DATA

0

69~

Cl~

0022C

O:iOoncoo N

E:eCVel.2

GENI$I,~4

XtQ3',M';:e

6!t~

Ci

fI

00220

4CJOcnooo

A

OATA

X'40000000'

"g~

()t)

0022£

100onoOo N

CLBS£2

GEN,

AI

~H.

X'15'

..

MI[8

~n1

11149

~EP

08" ,,5

ROWRT

3~

691

Cli'

OC22F"

COooonoo

,.

DATA

X,COOOOOOot

big

()~

002:30

00000002

A

OATA

2

69q

()i'

00231

1(;000000

N Pr:lL.Et!

GEN,8,,~.

X'lC'"MI£e

100

()~

00232

00000010

A

OATA

X'10'

70t

*

'O~

()P C0233 11)000000 N PRiC

DATA

Xtl0000000'+MI£f

'C3

()i'

oo23~

00000010

A

DATA

)('10'

'O~

C)~

00235

10

000000

N "RiCa GEN,Il,,4 X'10'.M:rr

'()~

()?

00236

COooonoo

A

DATA

x.cooooooot

'Of!,

OJ)

00237

8000nOO:1 A

PZE

.R3

C(R3).NS.

SF

RECetROS

707

C,?

c0238

00000160

OATA

e:eF'1

ABNeRMAL

708

eeUNO

a

?0C)

C)P

002314 OctC!r:'81£ A

I<E:YX

TEXT

,KEY

..

()~

00236 ..

0404040

A

710

(lP

oc23C

11000000

N PRINT1

GEN,l\,~4

Xf11',MIF.8

, 11 eli'

00230

3

4t

OOOO10

fA.

DATA

)('31+000010'

711'

C)P

ao2lE:

OOOoo51C

DATA

CfTAB+1

BUF"FER

713

C)P-

0023F'

OUOonOO2

A DATA 2

SIZE

'14

nl'

00240

OOOonooo

A DATA 0

8TO

715

(lP

00241

11000000 N PRINT!

GEN,8,~.

X'11'"M'l:e

716

();:t

on2~2

34+00n010 A OATA X.]4QOOO10f

'11

eli' 0(")243

800onooi

A

PZE

*0]

BUFFER

71A

C)

?

00244

8000nOO2

A

PZE

*R2

61,£

?1t)

Cl~

00245

00000000

A DATA 0

8TO

720

(I?

00246

81

00(\002

A G£TPfl DATA

X,8800000~'

G[T

PAGF

FPT

721

•

'2~

CIP

on2~'

0600ncOo

N S£1El DATA

XtQ600000n'+~lrT

723

C)p

00248

CUOonooo

A

DATA

x'cooooooo'

'~4

O?

0021+9

0000n108

DATA

&:tERR

ABN6RMAL

ADDRE.SS

'2~

C,?

0024A

OOoonlCs DATA EtERR

[RR8R

AODRESS

'2~

*

721

Cl~

00248

oaoonooo

N S[TEe

DATA

X'06QOOOOO'+M:[e

72R

(l?

cn24C

COOonooo

A DATA

X.COOOOOOO'

?2c)

e,i'

0024D OOOon'02

DATA

[BERR

ABNBRMAL

ADDRESS

730

()

i'

ac24E

OOOon:!'o~

DATA

EeERR

ERRBR

ADDRESS

7]1

*

71~

C)

~,

on21+F

1000nooo N rRDFPT

DATA

X.10000000,

..

M:£I

1-101

1"~9

~EF

08,

,,5

ROWRT

it\)

'3~

()~

Oo2!50

081

V[~SleNwp.

734

Cl~

cn2So

F1000{)t8 A

DATA

X,F100001g,

EXIST[NCE

FL.AGS

?l!o'; eli' 00251 Del

VFRSI6Nwt

,g~

*s*

DATA

x.r:OOnOO1g' r;xrSTFNce:

FLAGS.

':i7

C)~

0(')251

0000n,03

DATA

teERR1

£RReR

ADDRESS

'38

()2

00252

OOOon14F'

DATA

RCABN

ABNSRMAL

ADDRESS

7]q

C)P

oo2~3

OOoonooo

A

DATA

°

BUFFER

ADDRESS

740

('~

00251+

OOOonooo

A

"ATA

0

eU,FER

SIZE

'41

C)~

00255

OOoonooo A

DATA

c

BLeCK

7/+';)

*

71+]

0;:>

002S'

110onnoo N

IWRTFPT

DATA

X'11000000'+MI[e

744

(j?

OO2!'

FCOonO!iO

A

OATA

X'FCOOOO!O'

£xtsTANCE

FLAGs

74~

C'

j)

00288

OOOon"02

DATA

e:eERR

iRRBR

ADDRESS

'41;

Cl'

002~9

OOOontCS

DATA

WRTABN

ABNBRMAL

ADDRESS

747

() ;,

0025"

oOoonooo

,.

DATA

0

BUFFER

ADDRESS

748

Cl

i'

00258

OOOonooo

A

OATA

0

BUFFER

SIZE

749

C)j)

o02~C

8000nOOA

N

G£N'1~;:t1

1,MIET.ln

KEY

ADDRESS

?SO

Cl?

002S0

OUOonooo

A DATA 0

N!

BYTE

OIS~~ACEMENT

1St

0000000'

WFPTSIZ£

F,QU

••

tWRTFPT

wRITE

F"PT

SIZE

'5~

C~?

0025E

910onoOl A

r:PT£60

GEN,8,7'1'

Xf

91',o,R1

75~

Cl?

ao2!5r:

34

0onooo

A DATA

X']4000000'

75~

Cl"

00260

OOOOn~(,3

DATA

s+]

BUFFER

75~

CI?

00261

80000002

A

PZE

*R2

SIZE

'5~

el?

OC2~2

OOOonooo

A

OATA

0 Nt!

DISPLACEMENT

757

CI?

c026~

6060r!50~

A

TEXT

,

••

E80.·ENceUNTEREDN'

Cl?

0026

..

C4t60

__

0C5 A

Cli'

00265

05C]1')6£4 A

Cli'

00266

05E!r.S09

A

CI?

00267

CbC41S .. 0 A

'S~

eli'

00268

l"Ooncoo

x

"P'IL

GEN,R

..

,,1?

X , 1 C t

,0,

M I E I

759

Cit?

00269

OQOonolo A

DATA

)('10'

'&n

CI~

0026A

1t>Oonooo

N

'PTR£L

G£N,A

..

~~

)(f15f,Mlre

7b1

Cl?

on269

8000nooo A OATA

XtSOOOOOOo

t

76iJ

()?

0026C

0000no01 A

DATA

1

~()1

11149

~£F'

oal

'15

ROWRT

~l

"~

PAGE

,~~,

*TEST

IF

BL.8Cl<tNG

WANTEO

FeR

ANS,

IF

S6

..

ADD

Re:CSRD

T6

eUTPVT

BI.6CK.

1l!t!li

02

00260

8Li<TEST

rQU

•

':7

~t,

0'

0026D

2UBono01 A AI,SR4 1

BUMP

fN

CASE

N6

SLeCKING

7l!'

(j?

0026£

3400nooo X

MTW,o

ANSBL,I<

T£ST

IF

6L.!CKING

WANTED

,~"

(j"

0026':

E8

30nccB

A

eEZ

*SRAt

Net

7'9

()j)

00210

22201'040

A

LI,R~

)('~O'

''-n

O~

00271 4ts2onOo5 N ANO.tR2

M1Ee-s

"1

Of)

002'~

E~30n~08

A

eN[Z

*SR4

U

FeRMAT

'7';}

(j;?

002'3

20BF'FF'FF

It.

AI,SR~

-!

RESTeR~

L.INK

RgG

773

C)

,.,

002'1+

oteeonoBo

A LeI

1.

1

71.

(l;:J on2'5

81:510n007

A

PSM,R1

*R1

77!1;

0;:>

002',

3Z2£no{H~

N

Lw,R2

WRTFPT+!,R,

GET

CURRENT

SIZE

"'f:,

ni'.

0027'

3020no01

N

AW,R~

ANSBL.K+l

AOD

NEW

REC

7'7

O?

on2'8

3120noco

X

r:w,R2

ANSBl-1(

IS

BUFFriR

FUI.L

"" (l

;l

0027'

682on280

BI.E

BlK!

Nt.!

'79

'"

c021.

041£nooo )(

CAL111

WRTFPT,R?

wRITE

BLeCK

'Be

Cl

i'

002,e

3i1£nOO4 N

LW,

R1

WRTFPT+4,R7

'81

()

i'

on21C 3¥10noO? A

SW,Rl

R,

'8"

eli'

002'0

2510n002 A

SL.S'R1

2

,8~

()?

0021£ ]OloncJcn X

STW,R,

BLKBUF'F

INITIALIZE

BL.K

BUFFER

PTR

'R~

()

i'

002"

3c2onool N

LW,R?

ANSBL.I<·l

INITIALIZE

\t4RITE

SIZE

78S

02

OOtlO BLI(2

F.:QU

•

7811

C);:'

0(")280 352£noO! N

!=)TW,R~

WRTFPT.5,R7

tNCREM£NT

WRITE

SIZE

787

C)

jJ On281

3i10no01

N

LW,R1

ANSBL.K.l

CURRENT

REC

SIZE

'88

eli'

00282

3i3cnooo

X

LWIR:J

BLKBUFF

CURRENT

BLecK

"eINTER

'SCJ

ClP

oo2S3 661onoco X

AwM,Rt

8LKBUF'F

UPDATE

BL.6CI<

P61NTER

79

0 eli' 0(")284

3i2cnoni

A

LW,R~

03

BUrrER

DISPL.AC[MENT

'91

C:P

00285

252onoo~

A

SL.S,R1

2

BYTE

DTSP

79,

CIP

00286

6ABonooo x

BAL,SR4

MBI

Mev£

RF.C6RO

T6

B\..eC:1<

19:J

Cl~

00287

022000Bo A

LeI

1j

19.

CIP

00288

B

AloncO' A

PL.M,R1

*R?

'9~

Cl?

cn289

E~Oonooe

A 8

*SR4

~O1

11149

sEP

08

..

"5

ROWRT

.,

,g~

PAGE

'9,

*CSNVERT

FeRMAT

eN

ANi

Te

A~S

C6PY

IF

REQU£STEO.

79~

c,

:?

002~A

32800002

N

ANSCVT

lW

..

SRl

ANSBL.I<+2

GET

FeRM~T

CBDe:

flieR

ceNVERsreN

'99

()P

00286

6~3cnc8B

eEZ

RfA02('A

800

()

;?

on28e

325[000.

N

LW"R~

~oF'PT.4tIR1

ACORESS

6F'

INPuT

BUFrE~

801

()?

OO2AO

2180nOQ2

A Cl"SR1 2 T[ST

f="8RMAT

ceOE

80~

C)~

0028£

6830n~9A

Bi

OreeVT

0

80~

C)P

oc28F'

6AaOo~A!I;

BAL"S~

...

C\lT1

'V

•

Ge

ceNVERT

BL,eCI<

SIZe:

804

()~

00290

2V50noot A AI,Rs 1

ADDRESS

eF

FIRST

REC

J.of[ADER

BO!';

ClP

00291

20100000

N A

I,

Rt

te6UF

80~

Or'

00292

3010no07

A

AW,

R1

R7

CBMPUTF

BLeCK

LIMIT

80?

e)i'

0029]

3iEonOOl A

LW

..

03

R1

AOA

C)?

0029~

6

AB

002A5

CVTO

BAL"SRa

CVT1

G6

ceNV£RT

REC

SIZE

809

C)~

an29S

3050n001

A

AW,Rs

R1

8in

()?

00296

20500001

A

AI,R!=)

1

ADDRESS

SF

HEADER

811

CIt'

0029'

3150000£

A

CW,R~

01

TEST

FeR

END

6F

SLect<

81;:">

(l?

00298

'~10n"94+

81.

CVTO

N8

81:;

C)?

00299

6800n09.

e

R'AOa7

YES

R1a

C)

t'

0029A

6

AB

on2AF

O£CCVT

8AL,S~44.

CVT2

Ge

C6NVERT

o

FMT

BLK

SIZE

R1~

C)t'

00296

2050n001

A

Af,R&;

1

ADOR[SS

eF

FIRST

REC

~F!AOER

81~

Cl?

0029C

2U300000

N

AI,Rl

reBUF'

81?

Cl?

00290

30300007

A

AW,R~

R,

CeMPUTf.

BL.eCK

L..IMIT

818

Cl?

0029£

3~Eono03

A

LW,O]

~:;

RiC)

Cl?

Oc29F

6A

Bon2AF

CVT4

BAL.,SR4 C\lT2

C!NV[RT

REC

SIZE

820

Cl~

002AO

3V!5onOO3

A

AW,R~

Rl

821

Cl?

002A1

2U50nOQ1

A Af,RS 1

AOORESS

SF

~e:.OER

~2?

(IP

002A2

3150noo[

A

CWIR~

O~

TEST

FeR

END

8F

t;LeCI<

82~

Cl

;>

002A3

6~lon2g;

BL.

CVT.

NB

82;

Cl?

002A4

68

00009

.. B READ!,

Y£S

82!l1i

(I?

OO2AB

8980no07

A

C:VT1

F>SW,SR~

*R?

8~'"

rIP 0021.6

02100008

A

LMI

R1

*R5

GrT

v

vAL.U[

82'

CI?

002.,

89

10n007

A

PSW

..

R1.

*R7

~2R

CIP

0021.8 6ABonooo X

BAL

..

S~a

BtN2BCD

CeNVi,RT

TB

BCD

A~9

c:

~,

00211.9

8810no07

A

PLW,R,

*R7

R30

Clp

On2AA

20

100003

A A

r,

R1

l

831

Cl

i'

002AB

2b1ono'~

A

SL.S'R1

.p

831'

(I

t?

002AC

353Aonoo

A

STW,R:;

o

..

R5

PUT

C6NVERSr6N

IN

~£AO£R

~O1

1':"9

QEP

08,

·,5

ROItJRT

4J

~3:1

(l~

OO2AD

81$8onOO7

It.

PL.W,SR4

*R'

834

ell'

on2AE

£800no08

A

B.

*SRI+

ale;

()~

002AF'

8~Bonoo'

A

C:VT2

PSW,S~4

*~,

8:ib

()~

002BO 3210nnoPi A

Lw,R,

R~

8]7

n~

00281 3810n007 A

S~,

R1.

R7

8lA

eli' 00282 2510noo," A SL.S,R1 2

BVTE

OISP

SF

0

VALUE:

R]q

()~

00283

2i20nOO4 A

LI,R~

..

SIZt:

R40

()t'

0028

..

6

AB

onooo X BAL,SR4

eC02BTN

C8NViRT

T6

BINARY

841

C)

"

On2Bs

D630nOO!5

A STH,Rl

*~5

PUT

IN

FIRST

HALF

6F

~rAOER

8~~

()~

00286

2()30nOO] A AI,R3 l

84:;

0;'.

00281 2f:)30n01' A

SI.S'~1

.,

C8NV£RT

T6

W6ROS

AI+4

(,?

00288

E80onooB A B

_SRI+

I-In1

1'1~9

~EF

08,

'15

ROWRT

~4t

AM-!=;

PAGE

R~I,

*UNBL,6CI<

•

"-S

TA

N8N.ANS

•

8*1

C)~

00289

2C!2onno:;

A

UNBLI<

LIIR~

:I

84t~

C)~

OO2BA

7i14+-noOS

~

LBIR1

MIe:I+~'R2

G£T

FaRMAT

CeDr

A.9

()~

002B6

2blon01C A

SLS,R1

.....

Sese

C~

;:>

0028e

680~n~BO

B

UNBTAB~R1

R!51

elf' 00280 6800n2C3

UNBTAB

8

UNBF

F

FeRMAT

8S?

C)

?

002B£

68

00n2C]

8

UNBF

,-

FeRMAT

~s:.;

Cl

;:>

002BF

680on20g 8

UNBD

D

FeRMAT

gB4

()~

on2Co

6800(')2'~

B

UNBV

\J

r:eRMAT

g5~

C)?

002C1

Oc20nOBO

A

LeI

8

SIGNAL

NeT

BL.BCKEn

R!5b

()~

OO2C!

£800(')008 A B

·SR~

U

FeRMAT

•

Ne

UNtsL5CKING

Sri,

*

geA

()~

002C3

3i30n01i

N

UNBF

LWIR~

MIEI.18

R~9

c,p

002C~

2530n06;

A

Sl.SIR~

"t1

GET

LRCSZ

FRtlM

OCa

g60

C,?

002C5

3531(')005 N STW,Rl

WRTF'PT+S,R7

PUT

IN

wRITE

FPT

861

Cl

i'

002C,

3c"En()o~

N lw,R4

WRTFPT.~IR1

GET

CURRENT

WRITE.

AoR

g,~

C)~

002C'

2540nOO;?

A

SL.S,R4

t!

~63

C)~

oo2Ca

33000()OO x

MTW,o

UNBADR

IS

T~IS

F'IRST

BLeCK

864

C)i'

Oo2C9

6830n2CD

BEZ

.+4

ve:s

A6~

C)?

002CA

3U40000:;

A

AW,R~

R]

CeMPUTE

BYTe:

AOR

~!R

T~IS

WRITE

86~

Cl?

002CB

3i5Eno07

N

LW,Rs

WRTFPT."R1

GE:T

LAST

9TO

USED

867

el?

Oo2CC

30~Onoo§

A

AW,R4

r(!;

ADD

T8

GET

BYTE

ADDRESS,

g68

Clt'

oo2CD

21500000

A

LIIRs

0

~'9

c:

p.

oo2CE

254+on1'7E

A

SI.O,R_

.~

CeMPUT£

WRITE

AOR

AND

BTO

8'0

Cl

t'

002CF"

2f)50rl~02

A

SCSIR~

~

8'1

(Ii'

00200

355£no07

~

sTW,R~

WRTF'PT+?,R7

STeR!

8TO

8'~

C)~

002D1

35~e:noo4

N STW,R.

WRTFPT+~,R?

STBRi

Nt'W

WRITE

AOR

8'~

Cl"

00202

3030nooo

X UNBF2

AWl

R~

UNBAOR

g,

..

Cl

P.

00202

3130nooo X

Cw,R:;

ILKS!ZE

C8MPAR[

OISP

WITH

BLK

sIZE

g'!5

Cl

t'

0020-

6'1on~06

BL

t·!

NeT

TJ,1RU

UNBL.6CKING

~"

C)~

00205

2i!30nooo A

ll,R]

(')

INDICATE

END

SF

BLeCK

8"

Cl'

0020,

3530noon

X STw,R:'4

UNBADR

UPDATe.:

FeR

R'~

Cli-'

002o,

Qc20n02o A

Let

~

SIGNAL

SLeeKED

8,Q

(l~

00208

E8

0onooB

A B *SR4

$\80

*

881

CIP

00209

3i10oo0o

X

UNBO

LWI

R1

UNBADR

ARE

WI!:

AT

BEG

~F

BLeCK

~~1

17149

~e:P

08,

'76

ROWRT

.S

88~

()~

OC2DA

6'30np£8

BNEZ

UNBD2

Ne

~B3

C)~

On2DB

3i1£nOQ4 N

Lw,R1

ROFPT+4t,R?

88~

ell' 0020C

3~10noO'

A

sw,Rt

R,

88~

()~

co20D

2t:>1QnoO~

A

SL.S,R1.

2

eVT[

DYSP

SF

BLI<

HEADER

~8';

()?

0020£

2220nOQ4 A LI,R2 4

SIZE

88,

C)P

0020F

8~BonOO7

A

PSW,SR4

*P(,

8RR

C)P

002[0

6

AB

onooo X

B.L,SR~

6~02BIN

C6NVERT

BL.I<

SIZE

T!

BINARY

889

C)'

002£1

8

8B

O()OO'

A

PI.W"SR4

*R?

~qn

()~

002£2

2030n003

A Ar,R3 l

891

C;,

002£3

2530001£ A SL.S'Rl .

~

C6MPUT[

Ne

•

WDS

IN

BL.SCI<

89~

()?

o02E4

3530nooo

X

STW,R~

BLKSIZE

SAVe:

BLeCI<

SlZ[

89:4 eli'

002£5

3i1[noo~

N

LW,R1

~OFPT.~,R1

1494

()~

002£6

2010nOO1 A AI,R1 1

89(11;

()~

002e:1 3510nooo X

sTW,R1

UNBAOR

ADR

SF

FIRST

REC

~EAOER

B96

()

:'.

OO2E!

]810no01

A

UNBD2

sw,

R1

89,

e)?

0(')2£9

2blonn02

A

SL.S,

R

1.

2

BVT~

DrsP

6F'

R[C

~EAOER

898

n'

002£.

2i2onOO4 A LI,R2

,.

SIZe:

R99

C)P

002£B

8'Bon007 A

PSW,S~a

*R?

gon

eli'

002£C

6A

Bonooo X

BAL.,SR

a BCDa6rN

C6NVERT

REC

SIZe:

T5

BINARY

901.

C)?

002£0

88S0noo?

A

PL.W,SRa

*R7

~c"

C)i'

on2E:E:

3i1onooo

X Lw,Rt

UNBAOR

90~

C)?

002£'

ab3EnOQ5 N UNB03

STW,R:.

W~TFPT+5,R7

PUT

SIZE

IN

WRITE

FPT

go.,

CIP

002F'O 201on001 A A

I,

R1

1

90!;

CIP

002F1

3e1!noO~

N STW'R\ WRTFPT··'R'

j:PuT

WRITE

AOR

tN

'PT

'lot,

()

t)

002F2

2030n001 A

Af,R]

7

90'1

()P

002F3

2530no7£ A

SI.S,R3

.,

ceMPUT£

Ne,

WDS

IN

REceRD

~o~

(Ii-'

002F'.

68

00n202

e

UNBF2

90Q

*

Q10

elf.)

OoaF!;

31:101"000

x

UNBV

LW,

R1

UNBAOR

ARE

WE

AT

BEG

sF

BL..aCK

911

CIP

Oc2F6

6'30n~F£

BhlEZ

UNBV2

N6

91~

CI?

002F'1

321Enoo_

N

LW,

R1

ROFPT+*,Fi7

~1l

Cl?

002F'8 022onOOl A

L~,R2

-Rl

GET

BLeCK

Slle:

91~

(l?

002F9

2020noo]

A

At,R~

3

915

()P

ao2FA

252ono1£ A

SL.S,R2

.~

C6MPUT[

Ne.

WDS

IN

Bl.eCK

CJ1~

C)?

002FB

3=>2onooo

x

STw,R2

BLKSIZi

91'

C)?

002FC

2010n001

A AI,R1 1

91~

()~

002':0

3510nooo

X

t;TW,R1

UNBAOR

AOR

SF'

FIRST

REC

~E:ADER

~n1

11149

~E~

081

,,5

919

OP

oo2FE

0230ncot

A

UNBV2

g~o

O~

C02FF

6aOOn2~'

*Rl1

UNBD3

ROwRT

~n1

17:49

~e:P

081

'75

ROWRT

47

921

PAGE

92~

C)P

00300

325EnooCJ

N t\CCHK

LW,R~

TeARG.9,R7

92~

n~

00301

31Son"e,

CW,R5

,X'OQ100000'

CR

SPF.:CrFle:D

9~4

n"

00302

E940nOOB

A

BANZ

*SR~

VE:S-e:XfT

9~~

C)P

00303

321£0000

X

Lw,R1

DlrYICE,R7

Q210l

ClP

00304-

2110"008

A C

I,

R1

8 fNPUT

F'R8M

TERMINAL

~2'

(lP

OolO!

6130n308

BE

NCC~

YES

92~

()~

00306

215!nOOO A CI,R5

X,aoooo'

NC

e~T!6N

PRESENT

929

("~

0030'

£14nnooB

A SAZ

*SR4

Ne.e:XIT

Q30

()p

00308

3i5Eno04

N

NCC4

LW,R~

WRTFPT.4,R7

GET

L.eCATle~

err

eUTPUT

BUFFER

931

()?

00309

203cnooo A

NCCI-ofI<X

AI,Rl

a

NULL

R[C8RD

93P

(l

j)

a030A [B3enooB A

BEZ

*SR~

YES

9:.l::J

Cl

f'

0030B

;03FtrFFF

• Ar,R3

-1

ctl4

eli' enloe

i16t')OQ!

A

LB,R1

*R5,R~

G£T

L.AST

SVTE

SF

REceRO

9:i~

C)~

00300

211onn1!1i

A C

I,

R1

X'15'

TEST

IF

CARRIAGE

RETURN

g~6

Cl~

C030E

6S30ni11

BE

NCe!

YES

937

C1P

0030F' 211onnoD A

CI,R1

x'OO,

9]A

rl

t'

00310

6'30n313

8N£

Neel

93q

C)?

00311

2ilon040

A

I\:CC2

LI,Rt

, ,

~4tO

CIP

00312

F516no05 A

STB,R1

*R{5,Rl

iTeR£:

BLANK

~V£R

CR

941

eli'

00313

2030nOO1 A Nee1 Al,R3 1

~ESTeR£

RECeRD

SIZE

gAto~

()?

Qn314 E

8

ooncoB

A B

*SR~

£XIT

94+3

...

CJ44

(l~

003l!

3ilECCO!5 N

"CS

Lw,R1

WRTFPT.5~R1

REC!RD

SIZE

94';

n~

0031b

2110n050

A

CI,Rt

80

IS

REC!RO

BCO

g~1t

n?

0031'

,82onl1C

BI.£

NCSl

YES

g~,

~l?

0031a

3tJOEn01B

f\;

STw,RQ

U!BUF

+21

,R' Z[Re BtN.RV

SEQ

FIELD

94~

Cl?

0(')319

3t)O£n01C N STw,Ro reaUF.28

..

R1

94~

Cl?

0031A

35

OEn01D

N

STW,Ro

teBUF'.29,R7

950

n'

00318

68

00noO'

B

WRrTE~

951

C)~

0031C 3a1on'AB

NCSl

LW,

R1

" , ,

BLANK

aUT

SEQUIEN(;e:

FIELD

95~

()~

0031D 3f51En01i N

STW,R1

teBUF+1s,R,

g!;~

elf'

0031E

3~1£n013

N

STw,R1

teBUF+19,R'

954

ni'

Oo:i1F

68

00noDlt

B

WRITE~

955

*

9!51!t

0'

003~O

6

AB

onsO[

CS

B.L,SR~

S[Q6UT

C6NSTRUCT

S£QUEN~~

INPe

957

()~

00321

321fno05

N

LW,Rt

WRTFPT+S,R7

~C1

1':49

~EP

08,

,,5

ROWRT

_ti

9!A

Cl~

on322

6930n127

8f\4£Z

Cst1

9S9

Cl"

on323

3i2EnoO. N

LW,R2

ROFPT.~IR7

~(,n

C)

;>

0(')324

3210n040

A

LW,Rt

X'J+O'

AOJUSTM£NT

FeR

ZERS

L.ENGTH

~E~eROI

9~1

()

i'

00325

1514nooo A STa,R! o,R2

9t"

eli<'

00326

68

00nl28

e

C:S2

gll:;t 02

OO:J2

7 CS.1

rQU

•

9b_

C)~

00321

211ono50 A

C:1,R1

IC)

CJlt!S

ell'

00328

~820n:i2B

St.£

cIa

BCO

966

('~

00129

6ABon'08

BAL.,SR~

S£Q9UTB

SEQUENt:E

BINARY

Q6'

Ci2

0032A

6SConoO, 8

WRITE~

Ge

Ttl

wRITE

9'8

C)~

00328

321&:nooo

x

csa

LW,

R1

CAROS[Q,~'

PUT

S~QUENCe:

INFC::f

IN

euTPUT

aUF'F~R

96q

()P

oo32C

351[no1~

N

sTW,R1

reeUF+18,R1

910

C)

"

00320

3i1£nOO1 N

LW,R1

CAROSrQ+1'~'

g"

C)~

0032£

351[n013

N

STW,R1

reeUF+19,R1

9"

CiP

003?F

2a2on050

A LI,R2

An

SIZE

eJ:

BCD

RECSRD

973

Cl

t)

00330

3~2EnoO!5

"

sTW,RP

WRTF"PT.S,R7

9'~

(l;?

00331

68

0ono06

B

WRIT£2

91!=i

*

9'b

CIt'

00332

6A

8onr;9r

LN

BAL.,SR4

LtN[NUM

ceNSTRUCT

WRITE

KrY

977

eli?

on333

6~80nOO#l

SCS,,,

WRrTE~

tie

T6

wRITE

~'$l

C:

i'

oo3~~

680on~OA

8

Rr;TURN

ERReR

97q

..

980

02

OOl31+

SfQIO

~QU

.-1

981

C)i'

00335

6S

00nJ1S

B

NCS

g8~

Cl

t'

0033'

6S0onnDb B

WRfTEp

NLN

98~

(:~

ool31

6800(\:120 B

CS

C:S

98~

ClP

00338

6¥Oon:l~2

B

L~

LN

9g~

Cl

i'

003:-;g 68

00n3A6

SEQI02 B

RR"A020

NeNE:

9R~

Clio'

0033A

6S

00n!AC

B

RrAD21

NCS

98'

C)~

00336

680on:JA(' B R[A020 Nl.N

98R

C)P

0033C

6800n]9r:

B

R£A01g

CS

~U~9

CI?

00330

680on~BB

B

Rr=-'A01!'S

LN

H01

1'149

~EP

08,

'75

ROWRT

4t~

990

PAGE

gg1

C);>

0033£

3JOon(jOO X 8

RCfoofK

MTW,O

BREAK

TEST

F'eR

BREAK

99i'

(ji?

0033'

E!30nooB A

BEl

*SR4

NeT

S£1

99:1

O~

003~O

:;300nooo

x

MTW,o

cepYSI<

994t

OP

00341

E!i30nOOB

A

B~EZ

.SR4

CftPYALL

q9~

(1~

00342

330~nnoo

X

MTW,o

CepYSTOF.R7

996

()j)

oo3~3

E9

30nooB

A

B~£Z

*SRI+

C8PYSTD

99'

('~

00344

041onl4rr

CAL1,1

WRTHSG

WRITE

'ENTER

X.,_.

99A

()~

0031+5

01+10n350

CAL11i

Pr<6MPT

999

C)~

0034+6

041onl54

CAL111

ROREPLY

R£AO

R£Pl..Y

1000

ClP

00347

01+100l58

CAL111

WRTCR

WRITt:

CR

1001

()P

00348

0410n25£

CAL.111

PRBMPTR

1.CC~

Cl?

0031+9

1ilcnooo

X LB,R]

BREAK

1003

()?

0034A

35

oonooo

X

STW,Rn

BREAI<

lERe

BRfrAJ(

FL.AG

1004

Cl

j)

oc348

2l30(')cE?

A CI,R3 , X ,

1005

()

i'

0034C

E:~3(')nDOB

A

B~E

*SR4

CeNTINU£

tOOe

Cl

j)

0031+D

331onooo X

MTW,

1.

GRANCNT

SET

ABeRT

FLAG

1.00'

(l~

O034E

680on~OA

B

R£TURN

ABeRT

cepy

100R

*

100~

eli'

0034F

1100nooo N

~RTMSG

GEN,3,,4 X'11',MIUC

t010

C:?

00360

34+00nooo A DATA

X.34+QOOOOOf

1011

C);:>

003~1

OOOnnlSF'

OATA

BRKMSG

101~

C)

i'

00352

0000001D

A

DATA

29

l.n1~

C)p

oo3ea

OOOonooo

'"

OATA 0

1014+

(l

i'

oo3e~

1000nooo N

RDR£PL.Y

GEN,A

..

~4

X ,

10

,

.I

M I

UC

i01!;

Cl~

00355

3000nooo A

CATA

X'30000000'

101t,

Cl?

00356

OOOonooo

N

DATA

BREAK

1.01'

C)

i'

Oo3!31

OUOonnol

A

DATA

1

10iR

CliJ

a03!l58

1100nooo N

WRTCR

GEN,8,~~

X'11',MIUC

101g

Cl?

00359

3400nooo A

DATA

X'3"OOOOOO'

1.020

()

i'

0035A

QOeOn3!)'

DATA

BRKMSG

tn2,

Cl~

003S8

0000no01

A

DATA

1

LENGTt-f

1.02~

Clio'

0035C

OOOonooo

A

OATA

0

BTC

1023

Cl?

003SD

2~Oon04B

A

PRBMPT

GEN,8,16,1

X'2C"c".,

t02~

()~

oolSE

2~OO(,)o"C

A

PR8MPTR

GEN,8'16,R

X t

2C

,

..

0'

, < ,

1025

Cl

i' On35F'

1560~oC5

A

BRKMSG

TEXT

'N·-ENTER X

Te

ABeRT

ceMMANO,N'

C)P

00360

05Elr.S09

A

~f)1

17149

RiP

08,

'?!

ROWRT

sO

()~

00361

~OE'aOe:l

A

n;!)

00362

D6At.ortC2 A

C)?

00363

D6Dgr:34n A

C)~

00364

C306n4tD4

A

el?

00365

Cl0!Sr4f.4B

A

C)

f?

00366

15~O.04C)

A

~o1

17:49

~EP

08,

·,5

ROWRT

51

In2~

PAGE

101'

0"

0036'

3c2Enooo X

RDwRTCe

LW,R,

c:eDE,R1

10~A

O~

00368

312F-nooS N

cw,R~

TeARCl.s,R?

c ePTteN

eN

6eTH

INPUT

ANO

eUTPUT

1029

()~

0(')369

6830n2;<3

BE

READ1"

V[S

"

E'RR6R

tr'l3n 0:'

0036A

330e:nooo x

MTW,O

S£L.ECT,R7

RECSRD

SELECTISN

SPEC:IF'IEo

10:11

()~

00366 6'30n:lF8

B"£Z

RrA01:1

V£S

•

[RR8R

1.0l~

0;;'

0036C

3it2[nooo X

LW,R,

CrVICE,R7

10]3

0:'

0036D

"30n36'

ef\EZ

'+2

peL

OEV!CE.

1()1~

O~

oc36E

3~2EnoOo

X

L.W,R'

DF.V·IN,R7

SYSTEM

tNPUT

DEVr'E

10:15

()~

0036r:

2120n007

A Cy,Rp ,

TS

INPUT

FRSM

ANS

to3~

O?

00370

6S130n37!5

Bf\,E

~FA01A

Net

10:17

()~

00371

312[nooo X

Cw,R~

T8ARG

1

R'

ANS

TB

ANS

cepv

10lJ\\

O?

003'2

6830nl8C

BE

RF'AD3'

VE:S

"

~RReR

10lQ

O~

003'3

312£nooo X

Cw,R~

crV.eUT,R7

1.0~O

(j~

00374

68

3cn38C

BE

R~A03~

SYST£M

BUTPUT

DEVICE.

tO~1

02

0037~

R£A01A

r:QU

•

10~l'

Of'

003'5

350£(')000 x

sTw,Rn

RFCNUM,R7

INITIALIZE:

RECeRD

CeUNT

1n4:q

()~

003'"

2iEonooo N

LI,Ol

PRTBUF

1044

O?

00311

3UEon007

A

AW,Ol

~,

ENTER

eUTPUT

8UFf·~R

L.ec

F

8J<

to"!5

CH'

00318

35££no04 N

STW,O~

~RTFPT+4,R7

C6MPRE'SSED

IN

F'PT

10~~

C,?

003"

2c50nOQ3 A

LI,R~

]

1047

()~

003'A

315£(')000 X

cw,RP;

ceDE,R7

CBMPRrSSEO

ePTreN

eN

INPUT

1048

Cl?

003'8

6~30n3e[

e~E

READ?

N6

104Q

ClP

on3,C

O~10n~g,

CA1..1,1

SFTEIC

SET

£~R

~NO

ABN

IN

MIEt

DeB

1080

C}P

00310

2clo,.,

..

S/) L

I,

R1

RCe:RRt

10!§1 ell'

003,!

3~lEnoC2

N

STw,R1

RO'PT+2'~'

CHANGE

ERR

AOR

IN

FPT

105,.,

Ci?

003,F'

2210(')44F

LI,R1.

RC[RR

1053

Cl

i'

cn380

3b1Er'lOO3 N

ST~,Rl

RDFPT+J,R7 Cf.fANG[

ABN

AOR

IN

F'PT

1054

eli'.

OOl!1

350£(')000

X

STW,Rn

CISEQ,R7 JNITIALIZE

FeR

CI

SEQU[,Nt;E

CHECK

InS~

Cl~

00382

6Aeon~ot

BALISR4

R~AOCeMP

REAO

FtRST

RECeRD

10!5~

Cll)

On38:i

6!i8onl8£

9CS,,,

Rr:'A06

to!;'

C:

i'

00384

692o~lgA

8CSI2

R~A030

iNO

SF'

FIL.E

10!;~

*

1059

Cl"

00385

2~10n02A

A

LI,R1

~~

t06n

Ci~

on386

3aOEnaco x

M'TW,O

leERRIR1

DID

tIe

ERRBR

eCC;UR

10fJ1

C)

i'

C03!'

6~30n~OA

8"'£Z

R~TURN

YES

t06i'

02

00:;8

8

r;:I;U

•

f.i01

17149

SiP

O~,

'75

ROWRT

5~

106~

()~

00388

6ASonooo X

BAL,SR~

ERR6R

N8

•

~RReR

IN

C6MpR[SS[O

INpUT

106~

C)~

00389

6800~~OA

B

RrTURN

106~

C)~

0038A

3i30noo'

A

~F.:AD30

Lw,Rl o.

t066

c,~

OC3B6

6800n150

B

RDABN+1

1,0"

Cl~

0038C

2i!1ono33 A

~~ADl2

LI,R1

5~

INVAl.ID

ePTI6N

f"6R

ANS

Te

ANS

106A

Cl?

00380

6800n:l88 8

J:tFA011

1069

*

10'0

()~

0038£

2260nooO A

~e:AD6

LJ,R~

0

CLEAR

EeO

ceUNTER

1,0'1

Cl?

0038F

6ABon4S[

BAL'S~~

D~ceMPR

OEceMPR~SS

INPUT

REceRD

10';,1

C~

00

3

90

6'80,-,367

BCS,8

ROWRTce

[NO

eF

INPUT

10'3

Cl~

00391

6'2onl8!

BCS,~

RE.01n

[RRBR

10'J+

Cl

P.

00392

6

AB

cn!'i31

BAL,SR~

SI!TE6D

to'!;

C,2

0039:;

2130no!5o A

CI,R3

80

101"

ClP

0039~

6810t'l296

BGE

••

2

10"

(Ii'

00395

2230n050 A

LI,R3

80

EXPAND

RECBRO

Sl'f

T6

AO

CHARACTt.RS

10'A

(l~

00396

353[no05

N

STW,R:1

WRTFPT.S,R?

REceRD

SIZE

T6

FPT

10,~

(li'

0039'

6A

8on300

eAL,9R4

NCC~I<

C~ECj(

F'eR

NC

aPTIaN

1080

(IP

0039g

3i!1EnC08 N

LW,R1

T8ARG.S,R?

1081

Cl

;l

00399

2110F"FOO

A C

I,

R1

x.FFoo'

wAS

Tx

aPTIaN

SPEC

IF

lEO

108?

Cl?

0039A

684on390

SAZ

.... 3

~e

108~

Cl~

003gB

2a1onnoo

N

Ll,Rt

PRTBUF'

EUFF£~

DISPLACe:M~NT

t084

C:P

0039C

6A

Bon!§Ao

BALISR4t.

TASEXP

iXPANO

TABS

10a~

CI~

00390

3c1EnoOA

N

Lw,

R1

TflARCi+10,R1

GET

Se:aUENCE

10

1.(')86

CI~

0039£

6802n:J3'

B S£QIO"Al

MAKE

APPR8PRIATE

BRANC~

108'

CI?

0039F" 6A

6on50i

REA018

eAL.,SR.

S[QeUT

C6NSTRUCT

S[QU[NC£

tNF"e

1088

CIP

003A

O 321Enooo x

LW,R1

CAROSrQ,R,

Mev£

SrQUENCE

INFe

18

BUFFER

1089

CIP

003A1

351En012 N

STW,R1

PRTSUrr·18,R7

1090

Cli'

003A2

3a1rnoo1

N

Lw,R1

CARDS[Q+l,R1

109\

eli' 003A3 3t51Eno13 N

F(F.:A019

STW,R1

PRTBUF+19,R7

10g~

CIP

003A4

2230n050 A

Ll,Rl

1'0

1,093

C:P

003As

3!3£nC08

N sTW,Rl WRTFPT.S,R7

RECBRD

SIZE

r8

F'~T

1094

CIt'.

003A6

2i!10neOit

A R£A020

Ll,Rt

6

lC'lg~

CIP

003A7

311Ennc~

N

CW,

R1

TeARG.5,~'

~EX

DUMP

WANTED

109~

()? 003AS

6'30nlAF

e~E

R£A02~

N8

1n9'

(li'

ao3A9

331Ennoo

X

MTW,'l

RF.:CNUM,R,

tNCR£MfNT

RECBRD

CeUNT

tOgA

Cli'

oolAA

6ABonooo X

8AL,SR~

~F'XOUMP

109CJ

C)P

003A8

680on~8e:

B

RE:AOS.

~Ol

1':~9

~e:P

08,

'75

ADWRT

sa

110n

()i'

oo3AC

3i1onAAB

~(.O21

Lw,

R1

, , ,

1101

C)~

003AD

3~1rnn12

N

STW,R1

PRTBUF·1S

..

R7

REM6VE

SEQUe:NCtNtj

110;t

()~

003AE

680on3A~

B

RFAD19

1 t

O~

02

OOlA'"

r:QU

•

1104

()~

003AF 22£onooo N LI,Dl

PRTBUF

aUF"FiR

ADR

1105

oj?

ooiBo

6Aeon~{,O

B.L.,S~~

BLKTEST

TEST

r~

SLeeKING

WANTED

1106

ell' 00181 68OO(\]8r e

RtAO,

YES

•

GS

GET

11.0'

()

i'

co3e! 2iEonooo N

LJ,03

PRTBUF

lieR

Cl

;)

00383

30£01'100' A

AW,D]

R7

110Q

Cli'

00384

35££1'1004 N

STW,O~

WRTF~T.4+,~'

SET

BUFF

ADDRESS

1110

C)~

00385

3ilE:nOO8 N

LW,R1

,eARG+8,R,

1111

()~

003B6

3110n6AO

CW'R1

!l!X'OOFFOOOO'

111~

()j)

0038'

6~4on12l

BANZ

WRITE.SA

K

6PTIEtN

US£O.

111~

C)~

00388

a~lEnooo

x CAL1,!

WRTFPT,R,

WRITE

REC6RO

11.14

C1P

00399

6

A8

On

13£

BAL,SR4

BRC~K

C~ECI(

BREAK

fLAG

~115

(lP

0038A

68

00nl8;

8

R£AOfl

1.116

(l?

00388

6

AB

on59£

REACtS

8AL,S~.

LINENUM

111'

(l~

003BC

6'80n:lA'

BCS,g

R£AD20

111~

Cl

i'

00380

680on~OA

B

RF'TURN

[RR8R

1119

*

1120

o?

aniSE

2220n010

A

~E:AD'

LI,R2

t'C9

Z£R6

ce

SUFFER

1121

Cl?

003eF'

B~O~noo£

A

STW'Rn

·03'R~

11

?~

C)?

O03CO

6~2onleF

8DR,R2

,-1

112:'4

C)~

003C1

2U£ono01 A

AI,03

1

1124

C,?

OO3C2

35[£nooo

X

STW,DJ

CeW~RD,R'

INITIAlTZE

Te

aND

weRO

6F

BUFFER

112f1;

Cl

P.

OOlC]

3ilon'S'

LW,

R1

IX'38FFooao'

112/,

c;~

COlC4

361£noOo X

STW,R1

PRTBUF,R7

INITIALIZE

FIRST

W6RD

eF

BUFFER

1127

Cl?

ooles

22101'187]

L

I,

R1

WCERR

112R

Cl?

oo3C6

3~1Eno02

N

STW,R,

WRTFPT*2,R7

C~ANG£

ERR

AOR

IN

fPT

112q

Cit'

003e?

2210n570 Lt,R1

WC:ABN

1130

Cl~

oo3CS

351EnOO:i

N

STWIR1

WRTFPT*3'R1

C~ANG[

ABN AOR

IN

FPT

11:11

C)P

003C9

041onB9A

CAL.1,!.

S[TEeC

SET

ERR

ANC

"aN

IN

MaE!

{;lee

11]i'

Cl~

003CA

O

lt

1onlF'O

CAI-11i

SFTBIN

SiT

BINARY

MBDE

FeR

eUTPUT

1133

()

;:t

oolCB

2c1cno2C A L

I,

R1

:i2

1134

()?

003CC

3~lEnooo

X

STW,R1

CeBUSFD,R7

11lE

CiP

oolee

3511nooo X

STW,R1

CeBL.EFT,R7

1 t

3~

02

0OlCt;.

R!AD8

FQU

•

~n1

11149

sEP

01,

.,5

FCOWRT

5"

11.37

Cl~

003ee:

O~le:nooo

X

CALi"

RDFPT,R1

READ

INPUT

t1:i~

eli'

003C'

3a30noo~

N R£AOll

LW

..

R3

MIE!·.

1.1l9

Cli'

00300

253cnO~F

At

SL.S,R~

.17

GET

Stl£

eF

INPUT

REC6RO

11~n

Cl~

00301

2'llonooF A LI,R1

X'F'

11

~"

Cl

i?

00302

4f."lonoao

X

A"O,R~

M:EI

G£T

ASN

FIEL.O

11~2

eli'

0030]

211ono02 A

CII

R1 2

INPUT

FReM

A

DEVICE

BR

ANS

11~]

()?

00304

6'2on3D6

BG

••

2

Y£S

11~4

eli'

003D!

3230nooO N

Lw,R3

MIEl+13

114~

eli'

0030,

2030nooo A

AI,R~

0

11~6

Cl

i'

003D'

6830ngC[

BEZ

RE'A08

St<tP

NULL.

RECBRO

1147

Cll'

00308

2iAonooo N

LI

..

SR~

reBUF

OEFAULT

BUFFER

AUF(

1148

Cl

i'

003o,

3300nooo X

MTW,o

ANSBL-I<

SLeeKING

WANTEO

FaR

AN;

114~

Cl?

oolOA

6830nlOE

BEZ

R~AD84

N6

1150

Cl

t'

oolOS

3aoonOO1

N

MTW,o

ANSBI.I<·1

wAS

RF.:C

GIVEN

t 181

(l?

oe3De

6'30n:J£7

Bt\EZ

R~AD8lt

VES

11

!~

C)?

eelOD

3S300C01

~

~Tw'R3

ANS6L,.1(.1

SET

T8

SIZE

elF

THIS

REc:BRD

It!5]

eli'

co3DE

2110000A

A R£A084

c:r,R1

X.A'

IS

INPUT

FR6M

ANS

11~4

C)~

0030r:

"30n3£1

e~E

RFAOat,

N8

11!S~

C:~

003EO

35300000

X

STW,R:1

BLKSIZ£

YES

•

SE:T

BLeCK

STZr.:

tl~~

CIP

003E1

6A

Bon2B9

BAI.IS~~

U~BLK

as

UNBLSCK

11S7

Cl

i'

oc3E:2 6980n3E:'

BCS,g

RE'A081!t

NeT

SLeeKED

FeRMAT

11.~8

(II'

003E3

3c5£noO-

t\i

LW,R!5

WRTFPT.4f.,R?

lee

Br:

T~lS

REC8RD

11SQ

Cl?

003E4t

323£(')005

N

LW,R3

WRTFPT.5,R7

SIZE

11,n

el?

003£5

3U3£oOO'

~

AW,R~

WRTFPT."R1

+B10

1161

Cl?

003E6

68

00nJ[9

B

RFA087

116t'

02

OOlE?

I(£A086

F'QU

•

1163

Cl~

003E7

353Enoo!

N

sTW,R~

WRTF'PT+e.R'

iNT~R

SIZE

IN

8UTPUT

FpT

1164

Cl

t)

OC3E:8

3~5£noo~

N

Lw,R!5

ROF'PT+~'R'

t16f;

02

003£9

READS?

F'QU

•

116,.,

C!~

003£9

6A

BonlOg

BAL,SR4

Nt:CHt<X

TEST

FeR

CR

eN

RECSRO

1161

eli' 003E" 3ilEnOO8 N

Lv"R1

TeARG

...

8

..

~'

1

S."R

Cl~

003EB

2110F'FOO

A C

1,

R1

X,FFoo'

WAS

TX

ePTI6N

sPE.CfF'l£O

1169

Cli?

003Ee

684f.an3£F

SAZ

RF.'AD8~

NB

11'0

Cl

i'

003£D

321onnOA A

LW,

R1

S~3

BUFFER

ADR

1111.

O?

003EE

6

AB

on!5AD

BAL,SR~

TABEXP

~XPANO

TABS

117?

02

OOlE'"

REA082

P'QU

•

117~

()~

003EF

6A.Bon640

BAL.,SR4t.

SFTE6DR

Mn1

1?:~t

~EP

08,

"5

RDWRT

5;;

117.

(IP

OOlFO

2alcno'C

•

LI"R1

108

11'~

()P

003F

1

3t)1[nnOFl

N

STW,R1

WRTF'PT+5

..

R7

SET

StZr:

eF

eUTPVT

R[C&RO

11

'6

Cli'

on3F2

6ABOn4B£

BAL,S~4

CBMPR@'SS

CSMPRFSS

AND

WRITE

REceRD

11 "

(l~

oc3F3

210nnOQ1 •

CI'O~

1.

117R

CI?

003F4

6'2on20A

BG

RETURN

1 j,

,q

Cl~

003FS

6

AB

on3][

BAL,S~4

BRCHI<

TEST

FeR

BREAK.

1.110

C)~

003F6

3300noOo X

MT~,O

UNBAOR

TEST

t,

UNBL"CI<ING

ANS

TAP!

1111

Ci

i'

003"

6~30nl£1

8~£Z

R~A08!i

V[S

11,8~

Cl~

003F8

6B

Oon!C&:

B

RfAOa

118:;

Cl'

oalF!

2~lonC2B

A

LI,R1

.~

CBMPR£SSED

eN

INPUT

AND

OUTPUT

1184

(IP

003'.

68

00n388

e

RF-AD11

11,8!5

Cl2

003'B

2il0nO~C

A READt] L

I,

R1

*4

F(ECeRD

SEL.,ECTISN

US£O

W/t:6MF'

1181,

(l'

on3r:C

6800nJ8~

B

RrA011

1187

Cl~

003'D

2C!Oonooo

N

SETBIN

GEN,8,~~

Xt22',M:~e

118A

Cl

t'

Do3FE

QUOnno10

A DATA

)('10'

11SQ

Cl?

003F'F

OU3C1C38

A etNVAL. DATA

X'OO3e1Cl8")('1~OOOOOO'

STANOARO

BINARY

ceDES

C)

i'

004+00

l~OonoOo

A

t-f01

1'1~9

SEP

081

'75

ROWRT

50

1190

PAGE

11g1

*

SUaReUTT~E

R[AOeeMP

R~AOS

CBMPR£SS[O

INPUT.

119P

(j?

OO~O1

Oa2onnBo

A

R[ADC6MP

LeI

1t

11.9::a

()P

OO~O2

8

tt

1onoo'

It.

PSM,R1

*R'

1194

n~

on'to:;

3~Oonooo

X

MTW,o

UNBADR

TEST

IF'

UN8L6CKING

ANS

TAPe:

1195

()~

00'+0'+

6'30041'

BN£Z

RC2~6

ViS

119b

C~

;:t

00

4

05

041Enooo x

CAll11

ROF

T"R?

R~AO

REceRO

1.

t

9'

()~

004+0'

3C!

6

onoo

..

N

Reaoe

Lw,R,

MIEl+4

1198

()~

00"'07

2560n06'

A

SL.S,RI1

.11

11

gq

e)i'

OO~O8

2i!onOOF A LI,Rp;

X'F"

1200

('~

00'+09

4I>~50nooo

X At\O,RS

MaEI

GET

ASN

FIELD

1.~01

C)P

oo'+OA

21!5ono02 A CI,RS

~

IS

IT

DEVICE

SF<

ANS

120~

C)2

004+06

6~2on40D

9G

t+2

1ttO:i

()~

OO'+OC

3Z60nooO N

LW,R/,

MIEl+13

1204

ClP

on'+oD

3;'000000

x

MTW,o

ANSel-I<

AR£

W~

sL.5CKING

ANS

TAPE

1~OP;

Cl2

oo'+oe:

683cn~12

eEZ

RC20!5

Ne

1~O"

C1P

OO4tOF

3:JOonOO1

N

MTW,o

ANSBL..K+1

wAS

RE:C

SPECIFIEU

t~O'

() ;J

001+10

6~30n~1F'

Bt\[Z

RC207

YES

1~OR

e)p

00'+11

35600001

N

STW,Rt.

ANSBL.t<·1

SET

rB

SIZE

eF

THIS

REC

120q

C)

t'

004+12

21$ooOOA

A

ReaOS

CI,R!5 XtA'

IS

INPUT

r:R6M

ANS

1i>1n

()

i'

OC~13

6930n41F

BNE

RC201

N8

1211

Cl~

OO'+1~

3C!2Eno04 N

LW,R;t

ROFPT.*,R?

1~1;::t

eli'

00415

3=2£0004

"

STwIR~

WRTFPT.I+,~7

RESET

WRITE

AODRE..!;S

1213

(}'

001+16 3660nooo X

STW,R,

BLt(SrZ[

SET

BLecK

SIZE

1214

C,

;>

00411

6Aaon~e9

F(C206

eAl'S~4

UNBL.K

Be

UNBLSCK

121f;

Cl~

004t18

69

80n41F

SeS,g

RC20?

NeT

SLeeKED

FeRMAT

1~1"

Cl

t'

00'+19 3c6EooO§ N

LW'R~

WF(TF'F'T.5"R7

GET

RE:C8RD

SIZE:

1?1,

,

ClP

on"1A 2160n050 A

CI,Rit

at*)

j~l~

e)i?

00"18

6~2on"21

st.£:

RC290

[RR6R

121q

C)~

OO4+1C

3iAE:ooo. N

Lw,SR:t

WRTFPT.,+"R1

AOR

eF

THIS

REC"RO

122n

C)~

00410

38AonOO7 A

SW,SR~

R7

1221

();;t 004+1E 6fSOOO42t. B

RC212

t?2i'

02

OO~1'"

Re20?

rQU

•

1~2~

C)~

ao

4t

1F

2160nnSo A

CI,Rt,

At')

CJ..IECK

L~NGTH

6F

R~C6RO

1224

Cl?

00

4

20

6~2no~2!5

BG

RC210

eK

tt>2~

C)~

00

4

21

02200090

A

RC;9Q

LeI 11

NeT

CBMPRESSEC

•

MAKE

r.RR8R

EXIT

1~26

C)

;l

on~22

8A

10noO?

A

Pl.M,R1

.R1

t-4n1

1'149

~EP

08,

"5

ROWRT

57

'~2'

()P

00'+2]

Ote2onooo

A LeI 0

1228

n?

00424

E

8

OcnooB

A B

*SR4to

1229

*

11'30

{l?

00'+25

2~Aonooo

N

Rea10

Ll,SR3 18BUF

OE'AULT

REC

ADR

12]1

(l?

00'+26

3260no0

7 A

RC212

Lw,R,

R1

1t>~~

()~

0042'

2t)6cnco~

A SI.S,R, !

12]:1

()

r>

00428

Ftl3CnooA

A

La,R]

*SR3,R6

C~ECt<

to

1~34f.

C't?

OCI+29

4tt3cn~B8

A~O,Rl

L(X'1F')

1i']!;

CH'

00'+214.

2130n018

A

CI'R~

X'18'

1~:J(,

C)~

001+26

6930n0421 Bt\£ RC290

1231

()?

cnl+l'C

1i4cnooo

X

LB,R4

c:rSEQ,R6

1J~3R

el? 00'+20 131Cnoon X

MTB,1

CrSEQ,R6

CHECK

S~Q

1~]g

Cl~

001+2£

2i30n001

A

LI,R]

1

1240

C)~

C042F' 3c6onoOA A

LW,R~

SR]

REceRD

ADDRESS

1.241

C)~

001+30

306onoo7

A

A~,R~

R,

124P

Cl?

oo~31

Fl'+6nOOb

A

c:e,R4

.R6,R~

12~3

(ip

00'+32

69

30n0421

e~£

RCa90

1244

*

1~4P;

eli'

00433

2230nno~

A LI,R3 2

C8MPUTt:

C~ECKSUM

U?4b

Cl2

00

4

31+

Fi!S'nco~

A

LB,R!§

*R6,R~

eRtGINAL

T9

RS

!2~'

()P

004+35 22 4

onooo

A LI,R4 0

124R

Cl

i'

00436

Ftil+6nnOe A

STB,R*

*R61Rl

ZER6

BYTE

IN

RECORe

12~9

(iP

00431

2c30nOO3

A LI,R3

~

1.~50

c:~

00"38

F~46nOO6

A L8,R4

.R6,R~

GET

BYT£:

CeUNT

IN

R~

1251.

Cl?

001+39 20

1+F'F'F'F'F'

A At,R4 -1

Oe:CREM[NT

12e~

C)~

0043A

Fi20t'H,)O{' A

Le,R~

*R6

START

SUM

IN

R2

1~53

ClP

On4:.;B

Fc3~nOO6

A

L8,R:1

*R6,R4

1l?!54

c:?

0043C

30200003

A

Aw,R~

R~

ADO

EAC=H

BVTE

11'85

ell'

0043D

6'+4004:;B

BOR,R~

.-2

ITERATE

1~!I)l!

Cl~

OO~3E

4~2on68~

.~O'R2

LIX'F'F',)

~~8'

()~

0043F

3150noo'

A

CW,RS

Rt

CI-4s:CK

eRIGINAL.

AGAINST

NEW

1~!58

Cli'

001+4+0

6930n421

8t\£

RC290

12!5q

..

1~(,O

ClP

00441

2i3CnOO3 A LI,R3 3

SET

UP

BIT

ceUNT

FeR

T~IS

REC6RO

1~61

C)~

00442

F'i46nOO6 A

LS,RI+

*R6,R:;

1?~P.

Clp

aC1+4:i 254+0noO] A SLS,R. l

12f,~

C)P

OO4t44

351+I!:noOO

X

STW,R*

creTeTAL,

..

R1

~n1

1':~'

~EP

08,

,,!5

ROWRT

50

tf'64

n;;:»

OO~4!i

ai4ono20

A

LI,R.

l~

tNITIALIZE

ceNTRtjL

WBROS

126~

()~

OO4t4b

354+[nooo X

STW,R~

CrBUSR"O,R?

126,;

()P

00447

3~4+E:nooo

X

STW,FC*

CtBL.EF"T,R1

1.t)67

()i'

00

448 224+00001 N

LI,R~

reeUF+l

1~68

el2

OO4t4+9

30

4tOnOO1

A

AW,RAf,

R1

1~,q

OJ?

O()44A

354+£nooo X

STW,~

..

CtWeRO,R7

12'(")

()~

OO~4e

OC!2oncBn

It

LeI

11

127,

()P

0044C B

Alonoo?

..

f'LM,R1

.~,

1P??

n~

OO~40

Oi20noso A LeI II

12'~

()~

0044£

E8Oc1

nOOB

A B

*SR~

EX!T

12'4. •

12'!,;

()P

0044F

?ilonoaA A

~C&:RR

LS,R1.

SR3

'.2'~

()P

004+50

2110005'

A

C!,Rt

)(,56'

1~7'

(1

i>

00451

68

30n40'

BE

RC200

1i?'~

Cl~

oo4+S2

211onoOe A

CI,Rt

,

121q

Cl'

0045:1

683~n4Bg

BE

RCERR~

1280

C)?

004!§4

21100005

It.

er,Rl

!5

t~81

ClP

004!55

6830n4S9

Be:

RCERR~

128~

CP

004!5'

2i1onooo

It.

RC[RR1

L

1,

R1

0

REPBRT

Ie

ERReH~

1~83

elP

004!1

6A

80noOo X

BAL,SR~

[RR6R

1284

()~

ool+!S8

680on~21

B RC290

1?'8~

C)~

o~~59

3

iF

onOO1

A

RC[RR2

LW,04

R1

SAVE

ABN

ceDE

1~8b

Cl

P.

001+5A

Oi20noBo A LeI 11

128'

Ci~

004t58

8A

10nOO7

A

PI.MIR1.

.R'

128R

Ci~

Oo45C

Oi2on020 A LeI I

12ACf

(I'"

004+50 £80onooB A B -SR4

~n1

11149

~EP

08"

,,5

ROWRT

59

12'0

PAGE

1t?91 *

SUBRBUTyN£

OrceMPR

REeeNsTRUCTS

A

SYMB8LtC

R[CBRO

FRSM

CeMPRESSED

129~

*

INPUT.

1~93

Of)

oo~5E

0220t'H')10 A

D£CBMPR

LeI

'1

1294

C)~

OO

..

5F'

8t;50noo'

A

PSM,R~

*R1

129~

C)j)

00"60

2ilonooo

A L

I,

R1

0

START

tN

BYTE

ze:~e

129('

C)~

oo4t61

329£0000

X LW,SRt CrBUS[O,R?

INITIALIZE

INPUT

CeNTReL

W6ROS

U?9'

C)?

00462

3i4&:nooo x

Lw,R4

CrBL.EF'T,R1

1~gg

()

t)

00"63

22F"F"FFF N

Ll,O

...

PRTBUF-1

1i'99

O?

00

4

64

3U

F

onoo'

•

Aw,D4

~,

t~co

C)P

00

4

65

2c20002l

A

LI,R~

35

1~O1

ClP

00

4

66

3i30nt,.S

L~uRl

• t , BLANt(

eUTPUT

BUF'f'"ER

1302

CU?

0046'

B6341'\00'

A

STw,R~

*C4,R~

1301

ell' 00468 64

20n467

aOR/R,

.-1

1304

Cl?

on469

2UF'onnOi.

A

.1,04

1

1l0Fi

CIP

OO46A

2260n006 A

D£C10

LI,RA "

GET

,

BtT

BYTE

1:iO~

CIP

00466

6

AB

on49£

BAL/S~4

OFC60

1]01

C)?

0046C 212onOOb A

CI,R,

6

rF'

C8NTRCl.

BYT£

(0-6)

130R eli'

004+60

6fj24n~,(,

BL.E

O[C20,R2

[XECUT£

JUMP

TAB!.,::

1~O9

C)?

004+6£

212on02C A

CI,R~

44

IF

NeT

c

eN

TR6L,

EXTRACT

8-BIT

1~1.0

C)P

00'+6F

6

51

10n4-'3

BL.

oreiS

[ecore

ceDE

FRBM

APPRBPRIATE

1]11

Cl

t'

Oo~70

202F'F'F'06

A AI,R2

••

3

TABLF:.

131~

Cl?

oe'+71 ?IS_ne"

LB/R!5

SCCTAB,R,

131~

C);

001+'2 6800n474+ e

••

2

1]14

Cl

j)

OO~'l

1i!Hlrn!1B

DEetS

LB,R!

CtTAB,R2

1~1!5

CI2

004'~

F5!52ncoF It

STB,RS

*041

R1

PUT

ceo~

IN

eUTPVT

BUFFEr.<

1316

Cl?

004'5

2Ul0nOOl A Al,R1 1

ITERATF

1::11' *

*.

CBNTRBL

BYTe:

TABLE

**

1318

(Ii? 00'+16

680on~6A

DEC20 B OrelO

PADDING

1]19

Cl~

00'+"

6100n46A

B OrCl0

UNASSIGNED

1320

Cl~

Oo~'8

6800n470 B

OF.C30

[eL

1321

Cl

t?

oo~'9

6800nl+83 e

O[C3!S

i8F

132?

eli>

00

4

,.

68

OOril+80

8

D[C40

~e:XT

1\

BIT

132~

()P

oo~'e

6800"1+92

B

O~C4f.5

~EXT

CeUNT.l

1324

C'i'

001+" 68

00nl+9A

8

DEeSO

~EXT

C6UNT

+65

ll2~

*

132b

e)i'

oo~,D

3Q9[noOO

X

Oe:C30

STW,SR,

CrBUS[O,R1

REST8R[

CeNTReL

WaROS

~(')1

1'(.9

SEF

08

..

.,5

RDWRT

6V

132'

()

;:t

oo4t1E 354£0000 X

STW,R~

Ctel.E'T,R1

1328

()~

OO~7'

Oi200010

A

LeI

,

1~2q

OJ)

ao~8C

gA50noo1 A

PL.M,RR

*R?

1330

()j;)

CnAt~1

Oi20noOo A

LeI

0

SIGNAL

F'SL..

1331

()~

00'+82

[1000008

A 8

*SR4

EXIT

1l3~

•

1:;3~

C)~

OoJ+~3

359&:0000

X Ce:C3! STw,SR, CrBUS[O,R,

RESTBRrl

C6NTR8L

WSRDS

1334

C)

"

00484

3;4£nooo x

STw,R~

C:tBl.Er:T,R7

1~l5

n~

001+85

2clon~o3

LI,R1 leE

RR

1

133~

()~

00

4

8'

301Enoo~

N

STW,R1

ROFPT.2,R7

RESET

~RR

ADR

TN

READ

FPT

133'

OJ)

00481

2210n14F

L

I,

R1

ROABN

13l~

()P

00488

351&:n003

N

sTW'R1

ROFPT.J,R7

RESET

ABN

ADR

IN

REAO

FPT

133q

()~

on4a9

02200010 A

LeI

,

1~~O

(H?

0048A

8A

50noo'

A

PL.M,RPJ

*R1

13~1

C:P

00488

02200080

A LeI II

SIGNAL

F:eF

13~~

()~

oo4+8C

[8000008

A B

*SR4

[XIT

13~3

*

13~4

CIP

00480

2c6onOO8 A

OECAtO

LI,RIl 8

G£T

8 BIT

ceDE

FReM

16BUf

1~4tP;

(IP

Co~8[

6A

Son4gr

BAL,SR.

O[C60

1l~~

(IP

oo·sF FS2!nooF A STB,R2

.D~,R1

PUT

IN

eUTPUT

BUF"FER

13'"

CI2

004+90 2(Jl0nOOl A A

I,

R1

1

134~

(Ii'

00491

6800n46A

B

DFC10

r

TERATF.::

1349

*

1350

Clf'

001+92 2i6onOO6 A

c£C~!S

LI,Rt,

~

US£ ,

etT

ceUNT

13!i1

CI;:»

00'+93

6

AS

on.'&'.

BAL,SR_

0[C60

135i'

Cl

i'

00"'94

2020n001

A AI,R2

'-

·1

1353

()

i'

00495

2250n040

A

DEC.?

LJ,R5 , ,

13!3~

eli'

00496

F652noOF'

A STB'R!!; *O,+,R1

rXPAND

BLANK

FIEl.D

IN

BUr

FER

135~

ell'

Oc~97

2UlonOO1

A AI,R1 1

1361.,

CIP

00'+98

6~2on4~'

eCR,R~

,-2

1]!S?

(::

"

001+99

6800nlt6. e

Ol;'C10

JTERATr

135R

*

1359

C~

0049A

2~60(H,)06

A

o£cso

LI,R6 ,

USE:

6 BIT

ceUNT

1:1'0

CiP

00'+98 6A

Bonlt9'

BAL,SR.

orC60

1361

CI?

OC49C

2020n041

A

Al,R~

f.tp;

.65

13'~

CIt'

On'+9D

68

0on49S

e

OFC4f.1

136~

..

j.(n1

t7:49

!;EP

08"

'75

ROwRT

61

'~64

C~~

On'+9e:

30gonae, A DEC60

AWISR~

R~

EXTRACT

(R6)

BITS

1365

Cl?

co~gF'

319£noon X

CWISR,

CI8TeTAL"R7

£NeUG....

LEFT

IN

CURRENT

REC6RO

t~e~

eli'

OOJ+AO

68

2on4A8

eL£

DF"C65

YES

1~6'

()P

On4A1

3~50naoB

A

LWIR5

SR~

1368

C)

i'

ao4

A2

6

AB

on401

8AL..

..

S~4

Rf.AOC8MP

READ

136q

C)

t'

OO~A3

6~8on4BA

BCR,8

ore?!)

MUST

Br

C6MPRESSEO.

6R

IF

NeT

1370

C)~

00l+A4

3l

B

onoo!§

A

LW,SR4

R~

1~'1

()?

Oo~A!3

atl'£nOoo x

Lw,SR~

CtBUSF.O,R1

13'"

C)

i)

on~A'

3~~Enooo

X

LW,R.

CtBL.EFT,R7

1373

C)P

on~A7

680on49£ e

0,C60

1374tr

..

t~'f5

()?

00l+A8

2i20nooo

A

O£C65

LI,R~

0 INITIALIZE

RE.SULT

RFGIsTER

'3'"

C)P

00l+A9

3 5Enooo X

Lw,R!5

CtWeRO,R7

GET

BUFFER

POINTER

137'

ClP

ooltAA 3i3Anooo A Lw,Fti

OIRS

PICK

UP

CURRENT

WeRD

13,g

Cl?

Oo"+AB

384onn06 A SW,R.

RI,

Cf.fECI(

IF'

R3

C6NTAINS

TeTAL.

BVTE

1:i?q

()?

Oo4+AC

681on4B7

8GEZ

DFC67

SR

I'

VES

1380

C?

C04AD

3U60no04 A

AW,R,

R.,

ceMPUTP-:

NB,

SF'

BITS

IN

R3

1381

C)

t'

004A£ 252Cn1.00 A

SI.D,R~

OlR6

ANO

S~IFT

18

R2

1~8~

C)~

Oo4+Ar

20!50nOOl A AI,R5 i

13RJ

(I

i'

004BO

3~5[nooo

X

STW,RF

c:tW6RO,R,

fNCREMF.:'NT

BuFFER

PBtNTiR

1384

Cl?

00

48

1 3c3Anooo A

LV.,R3

olR5

GET

W6RD

F'R8M

aUf/FER

t38!1;

eli'

004B2 3A4onOO4 A

LCW,R~

R4

GET

Ne. eITS

NEEOED

FR8M

R3

138b

C)?

001+83

2t)2!n.100

A

SLO,R2

OIRI+

S~tF'T

INTB

R2

1381

ClP

004BI+

2Q4FF'FE~

A

Ay,RI+

.~2

C6MPUTE

8ITS

LEFT

IN

CURR[NT

weRO

1.388

C~?

001+88

3A40nOO4 A

LCW,R~

R.,

13SQ

ClP

001+8,

68

000488

e 0[C70

1390

Cl

t>

001+8, 202Cn100 A

Oe:C61

SL.O,R,. OlR6

SHIFT

TeTAL.

eVTE

T8

R2

1391

Cl?

oc488

a=3Anaoo

A

Oe:C?o

STw,R]

OIRS

PUT

CURRENT

weRO

BACK

139~

ell' 00l+B9 E8

0onco8

A 8

*SR4

EXIT

1393

*

1:;9~

Clp

004814

Oi20no,o A DEC'!

LeI

7

139!;

C)

? ooitBB 8A

!onoo, A

PI.M,R~

*R7

1l9~

rl?

oo'+BC

Oc2on020 A

LeI

2

SET

ERRSR

FLAG

139'

liP

oc~8D

£800no08 A 8 *SR4 [XIT

~O1

11149

~e:F

08,

,,5

RDla/RT

62

\398

PAGE

1399

*

SUeR8UTtt\E

C:SMPR[SS

PRSOUC£S

..

C!MPRe:SSrD

eUTPUT

Rt:CeRO

AND

WRITES

IT.

1Af.On

()?

Oo~8E

Oi2onc"o •

ceMPRESS

LeI ,

1~C1

Cl?

Oo4+8F

8t150noo? A

PSM'RS

*R?

1~O?

e)i'

oo~co

2c8onooo A LI,SR1 0

SET

BLANK

ceUNT

l,r;R6

140~

C)~

OOAte1

3a9Enooo x

Lw,SR~

CeBUSrO,R7

PICK

UP

ceNTRaL

we~os

1~044o

()P

OO4tC2

314£noOO x

L~,R4

CeSL.E,T,R,

144oO~

()~

ooAte]

32110000

x

LW,R1

RrCS1ZE,R7

CHECf(

R[C8RO

SIZE

1406

()~

004C4 6'20044oD1

BGZ

CMP;,O

ZERe

IMP~IES

END

e'

eUTPUT

FILE

1401

ClP

ooAte!

2cSonOO3

A

LI,R~

ce:e

EDIT

£8F'

CeNTRBL

BYTE

1408

O?

OO*C6

2c6onoo' A

LI,R6

,

IN

6

BITS

1Af.09

C);'.

004C7

6

A8

on*FC aAL,SR4

CMP60

1410

()~

004C&

311£0000 X

LW,Rt

PRTBU"R,

Ct-iANGg

to

FReM

X'38'

1411

()~

004+C9

4tt

10n6BA

."C,R1

.X'18F'FFFF"

T6

X'lR'

FeR

L.AST

ce

R[ceRO

141~

C)

j)

004CA 351e:oooa x

STW,Rf

PRTBUF,R1

141::1

C:P

C04CB

6ABon!~S

BAL,SR4

WRITEee

WRITE

LAST

REC6RD

1414

CIP

OOAtCC

354£noon X

eMF'S

STW,R~

c:eBL.ErrT,R7

R[STeRF

C8NTRBL

WBRDS

141!1i

Cl~

004+CD

359£nooo X

STW,SRP

C8BUS[O,R'

141{'

C)p

OO~C[

0220n010

A

LeI

,

1417

C)~

004CF

8A

50noo'

•

PL.M,Rp;

*R1

141R

CP

Oo

..

DO

EdOQntJOB

A B *SR4

£X1T

141q

•

1420

Cl?

00

..

01

2alonooo

A

eMP10

L

I,

R1

0

C8MPR£SS

STARTINij

AT

eyTE

ZER6

1421.

Cl2

00

4

02

2C?

Fonooo N

LI,04

teBUF

CeMPUT~

BUFFER

ADDRESS

1-42i?

C)~

004+03

3U

F

onoo7

/4

AW,C~

R1

142:1

(l

P.

004Dlt

Fc52ncOP' A

CMP11

LB,Rp;

*04,R1

GET

N~XT

eYTE:

1424

(lp

00l+D5

21!)oncCO

A

CI,RS

x.eo'

Cj..f£CK

r:eR

A-l,o-9

142~

Cl

i'

00

.. 06

6820n4£9

BL.E

CMP15

CANT

BF

IF

LESS

i~AN

X,CO'

14~b

Cl

j)

OOA+D?

4~50n'B6

A"D,R~

"x'3F"

1421

(l~

004D8 72!An!586

LB,Rc;

c:eTAB

..

R5

GET

6

BtT

ceMPRESSED

CeDE

142R

(l~

0040!J

6'30n40C

8NEZ

CMP12

1429

Cl?

oo~DA

F'c!2noOF A

LS,RPS

4tOI+,R1

lERS,

USE

8RIGINAL

8

erTS

1430

C)P

OOitDB

680on4EF B

CMP17

1411 *

143~

Cl?

oo~OC

2c60nOOb • CMP12 LI,R6 6

6£T

alT

,eUNT

1433

Clt:'

OO~DO

6A

BonltFC

BAL,SRM.

CMP60

[NTER

IN

eUTPUT

~uFFER

1414

Cl?

Oc~DE

201onoot

A

CMP13

A

I,

R1

1.

P6SITfBN

T6

~Ol

11:~9

~EP

08,

.,5

ROWRT

6~

1~3F5

()P

OO~OF

311£noOn X

CW,R1

RE'CSIZE'~1

STep

AT

END

eF

REreRD

1436

elf?

oo~Eo

6'10n4+C4+

BL..

CMP11

1437

Cl~

OO~E:l

201Fp:tFBo A AI,R1

-11\0

14lA

C)?

004+£2 6810n4E:5 8GEl

C:MP14

eUTF'UT

NeT

LESS

THAN

8n

SVTES

14]«;

C)?

OO#E:3

3A

1onOOl

A

LCW,R1

R1

PAO

T6

80

BVTES

1440

Cl2

004E~

3U80n001

A

AW,SR1

Fe!

1441

C)

i'.

00

4

£5

2

ct5

0nOOl A

CMP1~

Lr,R~

e~el.

ADO

EeL

T6

REceRD

14~~

()P

004£6

226onoo~

A

LI,R~

Is

144~

C)

"

004£7

6

AB

Of)4FC

BAL,SR4

CMP60

1444

()~

004£8

680cn4CC

B

CMP5

144+~

..

14.~

eli'

004£9

?160n!"

CMP1!5

LB,R~

SCcTAB

NeT

A·Z

..

0-9

1441

Cl

P.

004t£A

715Cn!'f,

cB,R~

SC:CTAB,R,

144~

(I?

QoJ+EB

68

30n4F"

BE

CMP2Q

Ct-IECI<

SPECtA~

6 t.iIT

ceDES

1449

Cl~

004£C

64+60n4EA

BCR,R6

.-2

145n

eli='

Co4ED

2150n040

A CI,R!I; , t

1451

C)

?

004££

6830(,4"

BE

CMP25

BLANK

!4!5~

Cl~

00"£':- 355£0000 X

CMP17

STW,RPi

ATTR6

..

R1

a.SIT

CHAR

MUST

~E

BUTPUT

1459

C)?

004F'0

21l!5ono04 A

LI,R5

CNEXTA

14e;4

CIP

004tF'

1 226

0n006

A LI,RI,

I!J

145~

Cl?

OOI+F'2

6

AB

on4'C

eAL,S~~

CMP60

SUTFUT

(,

BIT

CeNTReL

C~ARACTER

14Sb

Cl~

Oo4+

F3

325Enooo

X

Lw,Rf5

ATTRB

..

R1

1457

Cl?

oo4F4f,

2i

6

onoo

8 A LI,Rb 8

145R

C);?

OO4F5

6

AB

on4FC

8AL,SR4t

CMP60

eUTPUT

8 BIT

C~A~ACTER

14£5q

C)~

on4'6 68

0on40E

B

CMP13

tTERATe:

1460

..

j,4('1

Cl

t'

onl+F',

2060n028

A

CMF!'20

AI,R6

4l

reUND

tN

SCCTAB

146~

el?

004F8

32SonOO6 A

Lw,RS

R~

ceDE

rs

INOEX+43

146~

()2

oo,+Fg 6800fi_OC B

CMP12

1464

CI'

oo'+FA

2U8onOOl A

CMIi'25

AI,SR1 1

ACCUMULATE

BL,ANK

14b~

C)~

004F'B 680on4C£ B

CMP13

1466

*

1467

*

146R

OJ)

ocl+F'C

83S0noo?

A

CMP60

pSw,SRa ..

R?

1469

Cl~

004FD

2Q8onaoo

A AI,SR1 0

IS

BL..Af\.K

CeUNT

ZiRe

14'0

C)2

004F£

6'gOn502

BGZ

CMP65

Ne

1411

CH'

004FF

6A

0,,81.4

CMP62

BAL,SR4

CMP70

He'l1

11149

~e:F'

08

..

·'75

ROwRT

64f.

14"

(Ii'

00500

88BoriOO'

A

PLW,S~4

*R'

1~'3

Cl~

on501

E8

0onooB

A B

-SR

..

14'4

*

14'~

CIP

00502

Oi20n020 A

CMP~5

LeI 2

j.4'~

Cl~

0050]

8~50no01

A

PSM,R~

*R?

1417

C!~

ao50~

2250no01

A

LI,RS

CBLANK

14'A

C)?

00509

2c60noo'

A

LI,R~

,

iNTER

BLANK

IN

6

8fTS

14'9

c:~

00506

208F'F'F'F'~

A AI,SR1

-1

1480

eli'

005e1

6S30n!So'

BEl

CMP68

eNL.,Y

BNE:

BL.ANK

1481

Ci~

0050B

2aSonOQ5 A

Lt,Rt';

CNBC1

1~R~

CIt:'

00509

21

8

on03F'

A CI,SR1

lt~

1483

();? 0050A 6120n!500

BL.E

CMP61

c·'~

BLANKS,

ENTi.R

c:eUNT·1

1484

();oJ

00506

2250n006

A LI,Re

CNaC6~

[NTER

caUNT+65

t48!1i

()P

ooSOC

208FF'F'CO

A

AI,SRt

.~

..

AOJUST

CeUNT

14~~

(I?

00500

6

AB

on51"

CMP"

BAL,SR4

CMP?O

eUTPUT

C6NTR5L

BYTE

1481

Cl?

0050E

li!5nnOOR A

LW,R!;

SRi

GET

CEtuNT

1488

CI?

oeSor:

6ABon51,4

CMP68

BAL,S~4

CMP'70

eUTPUT

CeUNT

1*89

(1

t'

00510

022on020

A LeI

it.

14g0

()~

00!11

8A

SonOO1

A

PLM,RS

*R?

1491

Clp

00512

2if80nooo

A Lt,SR1 0

SET

Ne.

6F

BL.ANKS

T8

Z[Re

149~

(l~

oe513

6800n4FF

e

CMP62

eUTPUT

eRIGINAL,.

6YT£

14+9~

..

1494

*

1.~95

Cli'

00514

3i2onOO!5 A

CHP'O

LW,R~

R!Ii

peSITreN

ByTE

IN

F'V£N

~e:CirSTER

149b

()

i'

00515

3V90nooit

A

AW,SR~

R~

fNC!R£MFrNT

TeTAL.

~tT

CeUNT

1~g,

(II'

00516

2190nl60

A

C:I,SR~

CeBTeTAL

1.49~

Cli-'

00517

682cn!2"

BLE

CMP73

CAN

;tT

IN

CURRENT

RECeRO

1499

()P

00518

8

98

0nco? A

FSW,SR~

.~1

1500

ell'

00519

3i90nOO6 A

Sw,SR~

RI!I

RESTeRr

PREVIeus

BIT

C8UNT

1501

Cli?

C051A

22E:onoOo

N

LI,O]

PRTSUF'

BUFFER

AOR

l~O~

Cl

t'

00518

6

AB

on260

BAL,SR

..

BLKTEST

G8

T[ST IF

SL.eCKING

WANTED

150~

Cl?

OOS1e

61

00n!1&:

e

••

2

VES

•

SKIP

WRITE

1504

n~

00510

6A

Bons

..

5

BAL,SRM.

WRITECe

wRITE

REC8RC

1~O5

e)i'

OOS1E

88Bonno1

It

PL,.W,SRMo

*R1

150~

(li'

0051'

2i90n020

A LI,SR"

]~

1507

e)i'

00520

2i.cnC20

A

Lr,R.

:J~

150A

()~

00521

330~noOo

X

MTW,O

te£RR"R1

DID

IB

F'RR6R

eCCUR

~n1

11:49

~EP

08

..

'15

ROWRT

6~

1SCf9

C,?

OO5e»2

683cn51~

B£Z

r.:MP70

hie

1~10

ClP

0062:9 680on

..

CC

e

CMP5

YES

•

£XIT

15

t 1

()

i'

00521+ 325£noOo X

CMP'3

LW,R5

CBweRO,R7

GET

Bur:r:ER

P6INTER

15t?

Cii'

00525

38~onoOb

A

SW,R4

R~

t51:1

Cl

i'

00526

6510n52£

8GEZ

CMP15

BYTE:

WILL.

FIT

IN

CURRENT

ce

weRD

1514

()~

00527

2c30noOo A LI,R3 0

1~15

O?

00

5

28

2t;28n100 A

SL.O,R,

o

..

R~

AOJUST

NUMBE~

eF'

BITS

WMIC~

WIL.L

FIT

1516

()2

00529

662,AnOQO

A

AwM,R2

O

..

R5

[NTER

fN

eel

W8RD

1~1'

ell'

Oc5~A

331EnoOo X

MTW,'l

CeWEtRO,R'

1518

C)

,)

00528

663Ano01

It.

AwM,R:;

1

..

R5

PUT

evrRFL.6w

BITS

!N

N&!XT

WeRD

1.519

Cll?

0052C

20~On020

A

AI,R~

]~

NUMBER

SF'

BITS

L.EF"T

IN

CO

weRO

152n

C)P

0052D

E80~(')OOB

It.

8

·SR~

EXIT

1521

Clt'

005~e:

252snoOO A

CMP?5

Sl.S,R~

O

..

R~

PBSITreN

eVTE.

152;»

Cl?

OoS2F

'62.4nooo A

AwM'R~

O

..

R5

ENTER

TN

Ce

weRO

1~~3

(Ii'

005~o

E80onooB A 8

*SR~

[XIT

~n1

1':~9

SEP 081

'15

RDwRT

60

t524

PAGE

1525

*

SUeReUTI~E

SF:TE80

FINns

c:eLU~N

err

LAST

NeN.Bt.ANI<

ANO

SETS

RECSIZE

j526

..

T6

TRUE

BVTF-

r.:eUNT,

1521

o?

00531

2i20noOO N

S£TE60

Lr,R~

PRTSUF"

MAKE

GRBSS

c:eMPARTSBN

15~~

ni'

00532

30200001

A

AW,R2

R'

152q

C)P

00533

2230n02~

A

LIIRJ

M.XCl.MN/

••

l

1~:;O

C)?

oc53~

3i4onbAB

LW,R.

. , ,

1~l1

C1P

00

5

]5

e1~'nOO2

A

CWIR4

*Ra,R]

15l~

eli'>

00536

6'30n~38

B~£

'+2

1~3:1

n~

00537

6"'3cn~35

BOR'R~

.-2

1534

*

It=5l5

()

i'

00538

2b3cnooi'

A

SL.S,R:a

2

R[VERT

Te

ByTE

INDEXING

1!'ilb

()i.'

00539

2U300003

A AIIR3 l

152'

C)?

005314. Fl4J.'nOO2 A

SRS!

ce,R4

.R2,R~

tTERATi

THReUG~

SVTES

eF

weRD

1!=il~

el?

00538

6~30n53D

8t\£

.+2

1539

Cl~

0053C

6"'30n!53A

8DR,R]

••

2

1540

Cl

i?

00530

2V30no01

A

AI'R~

1

15.1

(i?

0053£

353£noOo X

STW,R~

R~CSIZE:,R'

SAVE

TRUE

REC6RO

SIZE

1542

Cl?

0053F

EtsOonoOB

A 8

*SFi4J.

rXtT

1!54t~

*

15~~

Cl?

005~O

3c;2EnOO4

t\

S£TEeOR

LW,R2

ROFPT+*,R7

BUFFER

ADDRESS

15~5

O?

00541

3c3E:nOO5

~

Lw,R3

WRTF'PT+5.R7

SIZE

151+6

Cll'

00542

203F'FFFF A AI,R3

-1

ADJUST

FeR

INDEXING

1541

Cl?

005~3

2i40n040

A LI,Rt4

X'40'

'~4R

C)~

OC544

6aOOn!5]" 8

SRS5

Ge

STRIP

TRAILINij

BLANKS

~O1

1"~9

!=;E:F

08,

·,5

ROINRT

67

1~49

PAGE

1550

*

SueReUTt~E

WRTTJ;:c:e

APPENDS

CSNTReL

tNFS.

Te

SUFFER

ANO

WRITES

1551

...

CSMPRFSSEO

RFCeRO.

1~5P

O~

005~5

Oc2QnoBn

A

w~ITe:ce

Let 11

155~

O~

00646

8t:S1on007 A

FSMIR1

*R7

1554

0'

0054'

2090n007 A AI,SR, 7

eeMF'UTJ;

Ne.

eF'

BYTES

1555

()~

00548

2~90no'O

A SLS,SR,

.~

'RSM

BfT

CaUNT

H5S~

0'

00549

2i5cnOO3 A

L.

I,

R~

l

t!=i!5' Oi' 0054A

2cEonnOQ

N

LI,01

P~TBUF"

GET

BUFFER

L6CATIsN

15S~

O~

00548

3U£0000,

A

AWIO~

R1

1559

n~

COS4C

Fb'AnoO~

A STB,SR,

*03,Rs

!!PUT

IN

BUFFER

~56(")

o?

00540

2c50t"lOOt

A LI,Rs 1

1~61

O~

0054£

F31AnoO£ A

MTB,1

*D3'R~

tNCRE:M£NT

SEQUe:Nt;~

1562

()i'

0054F

2190n004

A

Cl,SR~

4

156:4

O?

00550

6~2cn!l560

aLE

WF'(C610

BYTE

CNT

NeT

GR

~

•

DeNT

WRITE

15(,4

()?

an!5!51

FC!SonnOF

A LB,R! *03

1~65

n~

00562

3c2onOO9 A

Lw,R~

S~2

1566

C)~

00553

2U2FF'F"FF A

AI,R2

.1

156'

()?

00554

F26~nOOF

Ii.

LB,Rl-t

*03,R~

GET

ALL

SYTES

1568

(),

00555

3U

50nOOlt

Po

AW,RS

R~

rreRM

C~FC.I<SUM

t569

eli'

00556

6"20nF.HS~

BDR'R~

.-2

Ui'n

()?

Oc5!51

2i6cnnO~

A LI,R,; 2

.1571

C)

i'

00558

F55CnoO£ A

STB,R!5

*Ol,R,

PUT

IN

BUFFER

t5'~

Cl~

005S9

3i1EnOOA N

LW,R1

T8ARG+10,R?

SEQUENCE:

ePT16N

iP[CIF'fEO

15'~

C)?

005514.

201F'F'F'FD

A

At,

R1

.:.

15'4

()P

00558

691onsSF'

BL.Z

WRCeS

NLN

elR

NCS

8R

N8N[

t~7~

Cl

i'

0055C

69

20n!56C

SGl

WRC830

LN

1576

()ll

005sD

6ABon!;O~

BAL,SRa

SrQSUT

PREPARrr

SEQUENCE

I

NFfH~MA

T r

eN

15"

Cl?

0055E 6ABone05 BAL..,SR_ SEQ8UTB

SEQUENCE

RECfJRO

l!5,g

CIP

O05!5P"

0

4t

1[noon

X

WReSS

CALi

..

!

WRTFPT,R7

wRITE

R£c;eRC

1519

..

1580

Cl?

00660

2tJ[On001 A

wRCB10

A

I,

03 1

1!;81

Cl?

OQ561 36£e:noOo x

STW,D:i

CBWSRO,R7

INITIALIZE

PBINTER

158i'

OP

00

5

62

2CJ+OnOO1

A

LI,R.

1

1583

(li'

00563

2a6C()OOO

A

LI,RA

a

1684

ell'

oc5~4

20EFFF'F'F A

AI,O~

.f

1585

Cli'

00565

De6anOQ£

A

STH,RIt

*Ol,R4

~O1

1'14.9

~E~

as"

'75

FtOWRT

6ij

15Bb

Cl~

00566

2

i4

on010 A LI,R.

~g

l[RS

BU~'ER

1!58'

eli'

00561

Bb6Rnoa£ A

STW,R6

*C31R4

1~8A

ClP

00568

61+40n667

eDR,R4

.-1

1,

~H5~

ell'

on569

Otl2onoBn A

WRC620

LeI

1 1

1590

Cl?

005614 8A1anoO?

It.

Pl.M,Ri

*R1

1Sg1

Cl?

00568

[800no08

A e *SRlir

1!S9~

Cl~

0056C

6

AB

on159[

WRC630

BAL,9R~

LrNENUM

CeNSTRUCT

EDIT

KEy

1593

Cl?

0056D 698on!JS5'

BCS,$1

WRC5S

HS94

()P

OoS6r

2clon02D

A L

11

R 1

~F.'i

eVERFLew

6F'

MAX

VALUe:

n5g~

()

i'

on56F

6800n574

e

WCERR+1

1596

*

1.597

C)

it

005'0

7cl0nOQA A

WCA8N

LBIRt

SR3

1S9R

C)?

00511 2110n01C A

CIIR1

)('1C'

1S9Q

ell'

00672

6830ntCA

8i

W~TABN

1'00

ClP

00

5

13

2c1onoOc

A

wCERR

L

II

Rt 0

1601

()?

00

5

74

6A

Boncoo

X

eALIS~4

ERR6R

1.60~

01'

005'5

6S

00nS6CJ

8

WRCB2n

~O1

1"4-'

~Ep

08.1

'75

ROwRT

61j

1601

P'G!

1604

01'-

00676

1"4B ..

C~O

A

SCCTAB

T£XTC

,,«.,&,*)~

.I,~

>1".'

SPECIAL.

".BIT

CHARACTERS

0::>

COS"

4t.4'~(,H,§8

A

O~

00578

5~5"F;~5'

A

Oi?

005'9

6061A86C

A

C)

i'

0057A

6Q6£,"'70 A

nj)

00576

?e..404040 A

1

#to!=;

02

OO!5?tt

CITA6

r:QU

.-1

1606

Clt'

OO57C

40Af.04n4()

A

TEXT

,

01234567R9ABCO£FGHfJKLMNSPQRSTUVWXVZ'

eli'

00510

FOF1F'PF3 A

C)P

005'£

F"F!F"6F1

A

Cl

i'

ooS,F

FIF"r.1C~

A

ClP

00580

CiC~r.5C~

A

CI?

0(')581 C7Csr9C1. A

Cit?

00582

DiD3n~D!I§

A

C?

00583

D607n8D9

A

C~

00584

E2E3r4e:~

A

C~

0058!

E6E'F8E9 A

1601

ceTAe

DATAI1

O.l18'1g'~n.l21.12~.I2JI24.1~~.I26'OIO'OIO'O'Olj

1608

o.l21,28,2Q,3o.l31132133,34.135,OIQ,Olo,a,o,1

1609

O,OI361]',31139140.l41142.1~3'O'OIO'O'O'OII

1610

O~

005B6

ou

A

R,9'10'1111211~11411511'.I17,o'O,O'o,o,o

O?

00586

1 12 A

O~

00586

2 13 A

O~

00586

3

1-

A

O~

005!1

1~

A

O~

00581

1 16 A

OP

00581

2

17

A

O~

00581

3

18

A

O~

005B8

19

A

0'

00588

1

lA

A

0;:>

00588

c

00

A

c,

on588

3

00

A

ot'

00589

OU

A

ot'

00589

1

au

A

ot'

OOSgg

2

QU

A

O~

00589

:3

00

A

~n1

17149

sEP

081

'15

ROWRT

70

eli'

0058A

00

A

C?

005804 1

lt;

A

ClP

0058.

2

it.

A

C)~

0058A

:3

11J

A

C)?

005a8

1t: A

Cl?

00586

1 if' A

()~

oc58B

2

20

A

(l"

aesaB

3 21 A

CIP

aosae

2c

A

c,p

ool5AC

1

23

A

Cit'

aoSaC

~

00

A

C1P

0058C

3

00

A

C)~

00580

00

A

C)

;>

ao5aC

1

00

A

C)?

00580

2

00

A

(lP

00580

3

00

A

Cl~

0058£

CO

A •

(IP

OOSBi

1

00

A

C)~

oeSs&:

2

2~

A

Cl~

coss&:

3 !t> A

()

?

on58F

26 A

Cl~

0058F

1

27

A

Cl?

oosa, 2

28

A

Cl~

0058'

3

29

A

eli'

00590

2A

A

(li.'

00590

1

2~

A

Cl~

00690

2

00

A

(Ii'

00590

:;

00

A

(IP

00591

00

A

C)~

00591

1

00

A

eli'

00591

2

00

A

C)~

00591

3

00

A

C)

t!

00592

o¥

A

Cl?

00592

1

o~

A

C)~

00592

2

OA

A

c,~

00592

3 o! A

eli'

00593

o~

A

""fn1

1"49

r.;[P 08.1

"5

ROwRT

71

nil)

0059]

1

OD

A

();

00593

2

O~

A

0'

0059]

3

Ot'

A

O?

00594

10 A

0'

on594

1 11 A

O~

OC59"

2

00

A

0"

OO594t

3

00

A

02

0059S

00

A

O~

00595

1

00

A

()~

00595

2

au

A

(,P CoS9!; 3

00

A

1~11

();:t

0059'

06oonooo

x

S£TE!C

GEN4~""1'

X,06,

..

O,M,EJ

1l,1~

()~

0059'

CUoonooo

A

DATA

X,COOOOOOO'

1613

Ol?

00598

OOOon44r:

DATA

RCERR

1614

()~

00599

OOOOn44F

DATA

RCERR

161!;

Cl

i'

005914.

06000000

X

S£TEeC

GEN,g",,17

X,

06'

.I

0'

M

IE!

,.

b 1

lot

C)

t)

0059B

COOonooo

A DATA

)('COOOOOOO'

161'

ell'

OO59C

OOOOnB?l

OATA

WC£RR

t61R

C)~

00590 OOOOn!l51l

OATA

WCERR

Hn1

171~C;

~EP

C8,

'75

ROWRT

7i!

1.619

PAGE

1620

*

SUSReUTTNE

LJ~ENUM

C5NSTRUCTS

A

wRITE:

I(F-V

FR6M

T~E

CURRENT

1621

*'

LINE:

NUMBER.

1~2?

elf'

cn59E

3c1£nooC N

LfNE:NUM

LW,

R1

TBARG+12,R7

16e~

Cl?

0059F

311[nnO£ N

C:W,R1

T6ARG+l,+,R,

1624

Cl

t>

aoSAO

6~2on5A7

BG

LtNE2n

GR

T~AN

MAX

1b2r;

Cl~

00SA1

4~lon6BC

BR,Rl

IX'03000000'

C8NSTRUCT

I(EY

1.626 ell' 005A2 351£nooo X

STW,R1

KF.'V

..

R?

1~27

C)?

aoSAl

321£nooO

N

Lw,R1

T8ARG+13,R7

INCREM[NT

FeR

162R

Cl~

Oo5A~

6blEnooC N

AwM,R1

TeARG+12,R1

1629

Cl?

OOSAS

Oi2onoBo A LeI 8

1630

Cl

i'

005A6

[15000008

A 8

-SR.

EXIT

1

t,]

1

Clp

005

.•

'

8'Bnn001

A

LfNE20

PSW,SR~

*R,

1lil3P

Cl?

005A8 2210002£ A L

I,

R1

~~

1.63~

Cl?

CoSAg

6A

Bonnoo

X

BAL,SR4I.

£RR6R

163~

c:?

CnSAA

888eno07

A

PLw,SR4.

*R1

163~

C:?

caSAS

oa20nooo A LeI a

£RR8R

j:"LAG

163~

rIP Oo!Ae

E80onooB

A 8

*SR~

11:49

1637

1638

1/,]9

1.6~rl

1641

1,b~'

16"3

1644

164~

16~'

16~g

1~"q

1660

1~!51

1651'

1b!5~

16!54

165!=i

16S6

1~5'

165$\

1659

1b6n

1661

166~

1663

1664

1665

1b6b

1667

166A

1.66Q

1670

16',

167~

16'7~

!'~

005AD

I~

~

OOSAE:

I~~

an5AF'

(;2

00580

('~

00581

O~

005

82

()~

0058]

0'

0058*

O:J.

00565

O~

0058'

n~

ooSS,

0;;.

00588

O~

00589

OP

0058A

n2

00588

ell' coS8C

()2

00580

Cll'

0058£

el?

OC5SF

eli'

on5co

CIP

cose

1

eli'

Co5C2

C;P

005e3

Cl"

a05C4t

CI?

ooses

CP

coBC6

C~

Co5e,

ct>

oases

(Ii'

coBC'

CI?

coSCA

(Ii'

005ce

Cit'

cosec

Oc20"O'o A

8t:t50n001 A

3(J10n007

A

2C!50nooo

A

2i6cnooo A

3aSE'noo'"

N

2220n005

A

2i90n040

A

3JFE:0005 N

6SJ10n!5BC

F12CnOOl

A

683005CO

2U60nnot A

316£0005

N

6820n587

331£00015 N

Oi20(H110

A

gA50nC07

A

E8QonoOB

A

,59cnnot

A

2Q8onooo A

6'3rln!B9

F~3Anoog

A

6~30nsC'

2iSonooo

A

6~Oon!5B9

203F"FFFF A

3130noO'; A

6!i2onSC[

2U50n001 A

2150n010

A

6'10n5C3

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

~ELATJVE

Te

R7.

TA6EXP

LeI ,

TAB5

11486

TABS

*

T

AS

1,0

TAB12

TABli

TAB15

PSM,R~

*R1

AW,Rl

R?

LI,R!I!

0

LI,Rlt

0

Lw,SR1

TA8SET+4,R?

LI,R2

X'05'

LIISR~

"

MTW,.,

WRTFPT.5~R'

eLZ

TA88

cB,R~

*Rl,RIt

BE

TAB10

At,

R~

1

CW~R~

WRTFPT.5~R'

81.[

TAB5

MTW,1

WRTFPT.S,R7

LeI

7

PLM,~~

*R1

e

*SR~

STB,SR~

AI,SRt

BEZ

L8,R~

Bf\EZ

LI,SR1

B

AI,R]

cw,

Ft~

BG

Af,Rs

Cl,Rs

BL

*Rl,Rt,

o

TAB6

*SR1,R5

TAB15

o

TA86

-1

R~

TAB17

1

16

TAB12

ceMPUT[

ACTUAL

BUFF[R

ADDRESS

START

AT

FIRiT

TAB

START

AT

FIRST

CMAR

IN

BUFFER

G£T

TAB

TABLE

ADORESS

DISPLACEMENT

Br

~AST

CHAR

IN

RECbRO

NULL

R[C6RO

TEST

FeR

TAe

C~ANACTER

peslTteN

T8

IN

BUFFER

SET

TRUE

REceRD

SIZ£

[NO

BF

BUFFER

•

~XIT

STSRi

BL~NK

eV[R

TAB

C~AR

w£R£

TABS

SPECIFIED

~e

GET

TAB

VALUE

Ne

MBRr

VAL.UES

IS

T~rs

TAB

peSITreN

GREATE~

T~AN

peSITI!N

e,

TAB

~eD[

N6

•

TRV

PBStTIBN

H01

1"1+9

~e:P

08,

,,$

AOWRT

74t

tb'~

C~j)

caSCO

6100nsCS B

TA813

MAX

NUM

eF

TABS

16'5

()j:'

ooSC£

2060nOOl A

TAB1'

.f,R, 1

INCREMENT

T8

IN

BUFFER

1~'1,

()~

ooSeF'

3c4+E:noo!5

N

Lw,R~

WRTFPT+S,R'

DETERMINE

~AST

CHAR

~esITteN

ie??

01'

00500

3830nOO6 A

S~,R:I

R~

CeMPUTi

NUMBER

8F

eL.NKS

T5

INSE~T

167g

()

i'

005D1 6830nSB7

BIZ

TAB5

NBNE

16'9

C~~

00502

3030noo-

A

AW,R]

R.

INCREMENT

T8

NEW

LAST

CHAR

16@0

c,~

0050]

353£nooS N

STW,Rl

WRTFPT.!,R7

SET

NEW

REC6RC

SIZE

1681

();:t

0050~

FiAano01 A

TAB1'

LB,SR:;

*R11R~

GET

~AST

C~AR

eF

R[CeRO

168i'

()~

0050!

F598nOO1 A

STe,SR~

*R11R4

BLANK

THIS

CHAR

IN

REC8RC

11,83

()~

0050,

FbA6nnOl A STS,SR1 *R1,R:a

MeVE

C~AR

UP

T6

N~W

pesITt6N

1684

Cl2

005D7

203F"F'FF A AI,Rl

.,

168~

()~

00508

204+r:,-rrF'F

A AI,R. -1

1686

C)~

00509

314+0n006 A

CW,R_

Rt,

Ge

T8

CtoI.R

JUST

ABeVE

TAb

BLANK

th8'

C)~

0050A 681onp§O.

Btl&:

TA619

j,e88

C)i'

00508

3160noO] A

LW,R~

R:t

INC

C~AR

peSlTJ8N

T8

L.AST

MBVEO

1689

Cl~

ooSOC

2050n001

A Af,R! 1

INC

TAB

TAB~E

P81NTER

1t,~O

Cl?

ooSDD

680onsS7

e

1.85

LeeK

FeR

MeRE

TASS

1"4'

1691

169'

1693

1694

169~

\69~

169,

tb98

169CJ

1100

1101

1'O~

1703

1104

t?OFi

1706

1707

17Ca

1109

1'1(')

1?

11

1.'1~

171::1

1714

1'15

1'1~

1717

1'18

1719

1'20

1

'21

1122

172~

n?

onSDE

n?

o05DF

()P

005Eo

'"

005£1

eli.?

005£2

C)?

005E3

OJ)

005£4

e)2 oaSES

eli'

005E6

()?

00!5E7

()~

006E8

()i'

005E9

Cl?

005£.

()?

005£6

Cl~

005[C

()~

005Eo

()~

oo!!:!

()?

ooS£r

C);!'

005Fo

eli'

OOSF

1

ClP

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 A

81:$50noo,

A

321lnOOC N

311£noo£ N

6l$2on~£A

3c1EnooB N

322[rlOOO X

4+~2In!5FB

-'2In600

3'2£nOOCl

X

2210noOO

A

3!51E'nooC

N

6ABonooo X

4~30n600

353£n001 N

201t'frF'FC A

6¥2on5F.

2a30nClOl A

2i5cnooo

N

3050no07

A

1i1'nOO~

•

F5

16noo!

A

203F'FF'FF A

'44t-on!l§F2

3c1EnooO N

6f»1£nOOC

N

0220n010 A

8A

50noo'

A

[SconooB

A

OUOonooo

A

Ft'Ooncoo A

Ft-'

F:F

nooa

A

FI"

FfrFF'QO

A

F"FFFFFF A

ROWRT

PAGE

*

SUBReUTt~E

SF-Q8UT

*

CARDS[Q.

C6NSTRUCTS

SrQU£NC[

tNF8RMATIeN

IN

LSCATl6N

Se:GSUT

LCI

PSM,RR

Lw.l

R 1

CW,

R1

BL.E

Lw,

R1

LW,R~

A~D'R~

eR,R2

STW,R~

LI,R1

STW,R1

SEQ6UT1

eAl,SRa

eR,Rl

STW,R]

AI,R4

Bl.EZ

LI,R~

Aw,R~

LB,Rt

STB,R1

AI,R:I

BOR,Ra

S£QeUT2

LW,R1

AwM,Rj

LeI

PL.M,Rs

e

ANOTBL.

DATA

,

*R7

T8ARG.12,R7

T8ARG+14,R7

SFQBUTl

TeARG+l1,R,

CAROS[Q,R1

ANOTBLIR1

8RTBL.,R1

CAROS£:Q,R1

o

TeARa.12,R,

BtN2Br!D

EtRTBL.

CAROS[Q·t.R7

••

S[Q5UT2

1

CAROS[Q

R7

R~IRJ

*R!5,R:;

-1

.-3

TBARG+13,R,

TeARG·12,R7

7

.R?

GET

SEQUENCE

NUMSER

RESET

tST

weRD

SF

S~Q

INF!

GR

THAN

MAX

-

REVFRT

T8

0

ceNViRT

Te

BCD

ENTER

LAST

4

CHARS

GR

THAN

4+

C~ARS

[NT~R

REST

eF

NUMBER

Leap

eN

SIGNIFICANT

DIGITS

-4

INCREMENT

SEQUENCE

NUMBER

*SR4

[XIT

O,Xf'FOOOOOO',X'FFFFoooo·,X'FFFFFFOO',X'FFFFrFFF'

~n1

1'149

~EP

08,

1724

()~

OC600

Oi?

00601

Of'

00602

()~

00603

O~

00604

.,5

F'UFOr::'oF'o

A

OOFOFOFO

A

OOOOF'OF'O

A

OOOonoFo

A

QOOonOOo

A

ROWRT

76

BRTBl.

DATA

X'FOFOFO'O"X'OOFOFOFO"X'OOOOFO~O"X'OOOOOOFO"O

!-Ic;1

17149

~EP

08,

t

'5

ROWRT

77

,72!=;

PAGE:

'-72"

*

SUBRBUTtP\E

S[Q6UTB

CeNVERTS

S~QU£NCE.:

tNr:6

IN

LeCAT18N

CARDS!Q

T6

1'27

*

BINARV

FeRMAT

ANO

ENT~RS

IT

IN

TjRfE:

LAST

~

WBRDS

eF'

T~~

eUTPUr

1728

..

BUFFER,

1129

OJ)

00605

Oa20n040 A

SF.:Q8UTB

LeI

46-

1'30

()i?

00606

8t:150nOO7 A

PSM,R~

-R?

1731

()i'

oeoo?

3ZSEno04 N

Lw,Rp;

WRTFPT.,4,R7

173;:>

C)~

00608

350An01B A

STW,Re

2"RS

Z£R6

S~QUENCE

,IELO

!F

BUFP[R

1133

('~

00609

350An01C A

STW,R~

t's,Rs

1'34

O~

oc60A

]tSOAn01D

A

STW,Ro

~g,R5

1'3~

C)

i'

00608

2i8onooo N

Lt,SR1.

CARDSr;Q

1'l~

();.l

0060C

308onoo7

A

AW,SR1

R7

lBCATISN

6F

CAROS[Q

17:17 ();'.

0060D

2260nool

A

LI,R~

8

113A

()?

oo6oE

2ilonoo1

A L

I,

Rt ,

BYTE

DtSP

IN

CAROS[Q

1739

(l?

0060F"

2230nnoo

A

S[Q100

Lt,R]

(')

1740

Cl

j)

0061.0 F't!22no08 A

LB,R~

*SR1,R1

GET

BVTE:

FRftM

CAROS[Q

1741

C)~

00611

5c24;n629

LH,R~

CCTAB.R2

GET

CSNVERTED

VA~UE

174i'

Cl~

00612

4~20n(,BO

A~O,R2

"X'OOoOOFFF'

MASK

aUT

FLAG

BJTS

1'4,

C)

j)

00613

67

Oln61'

~"XU

SHIFr.R1 peSITIBN

IN

R2.R3

1'74+4

Cl~

Oc61~

'i4t2n'2'

La,R

..

R4TAB,R1

SET

R4

T5

BU~FER

OISP

1'.Fl

Cl~

00615 E628noO!§ A

AwM,R~

*RS,R4

FNTER

VAL.,UE

IN

BUFFE~

1746

(l~

00616

20400001

A A!,R4

1.

1747

Cl;

00617

£638no05

A

AwM,R!

-RS,R4

1'48

(IP

00618

201FF'FF'F A

At,Rt

.1

"Ate;

()~

00619

6460n60J

eCRIR~

S[Ql0n

Lee"

Tel

C6NVERT

8

BvTES

1150

(lP

0061A

2ilone7S

A L

I,

R1

lPO

1'5,

Cl?

00618

351E:noO!

t'i

STW,R1

wRTFPT+S,R?

SET

RE:CeRD

SlZ~

IN

,PT

175p

elf)

Oo61C

Oi20no

.. o A

LeI

4

1753

(lP

00610

8A

Soooo' A

PI.M,Rs

*R,

"S4

CIt'

0061£

£800n008

A 8

*SR

..

[XIT

175Fi

-

175~

Clil

0061F

2520n014

A

SI-IIFT

SLS,R~

20

17S7

Cll'

00620

25

200008

A

SL.S,R~

8

1'5R

C)P

00621

2e2onl'C: A

SI.D,R~

...

115q

ell'

00622

25200010

A SI.S,R,-

16

"'n ();:t

00623

25

20"004

A SI.S,R; 4

,'61

OP

oo62~

252on11a A

SI.D,R~

-8

~n1

1':49

~EP

08,

,,5

ROwRT

78

1.'6"

ClP

O~62e

252cnooC

A sLS,R,

1j)

1,E,3

Cl~

00626

OiOonooo

A

Nep

171,4

..

176S

(l?

00621

1~

A

R4TAB

OATA

..

1

2',27,2,.~8'2R'~.'29'29

CiP

00627

1 ltJ A

Clio'

00627

2 1t; A

Cl~

00627

3 1'- A

eli'

00628

1(; A

CIP

On628 1 1'- A

C:P

0(')628

2

lL)

A

eli?

00628

3 lU A

Hn1

111~9

~E:P

08

..

"5

ROWRT

1SJ

1'61!.

PAGE

1'"

02

OOA2'

CCTAB

r;QU

•

1'~~

I"

on629

Stf

03

A DATA

..

~

X'8B01',XtR9n1,

..

Xt.881,

..

X'88.1,

..

X'8~~1"X'8811'

("

00629

2 8!101 A

('~

006214 8881. A

("

0062/4, 2

8841ti

A

O;;t

O~62B

8821

A

()~

00628

2

8811

A

11~q

02

0062C

8~O'

A

OATA

..

~

X,B809,

..

X,8S06,

..

Xt8803·

..

X.8903',X,8883"X

t

8S.3'

n,

O06~C

2

8805

A

O;?

00620

8803

A

O~

00620

2

8'03

A

C)P

C062£

8883

A.

C)~

0062£

2

8a~3

A

1'7n

O?

OO62F

8823

A

OATA

..

2

X'882~"XtI81~'

..

X'180B'

..

X'8807"X'8003"X'8501'

Cl~

0062F' a stt13 A

(IP

00630

8808

A

Cl?

00630

2

88o,

A

CIt>

00631

8U03

A

CIP

00631

2

8501

A

1'71

CIP

00632

81+81

A

DATA.~

XtB48,',X.8~~1,

..

Xt.421,

..

X'8~11,

..

X'8~09',X'8~o5'

C""

I!'

00632

2

8"41

A

C:~

00633

8~21

A

CP

00633

2

8"11

A

C;t

00634

8"09

A

C~

oo63~

C

8~O!5

A

1?7~

ct"

00635

84+0:1

A

nATA

..

2

X'840l"X'850lf'X'8483'

..

x'8441t3',xt8~!3"X'S.13'

Q~

OO6l!5

2

8a03

A

O~

00636

8"8~

A

O~

00636

2

8"41

A

0'-

0063'

8~23

A

0'

0063'

a

8413

..

1"~

o~

00638

8~oB

A

D.TA,~

xt840B"X'8407'6X'I?O~'6X'8301'6X'8p81',x'82~1'

Ot'

00638

2

84+01

A

02

00639

870l

A

O~

00639

~

8301

A-

D'

006314

8i!81

A

i-tOl

17149

~EP

08~

,,5

ROWRT

80

C!~

006314 2

8a~1

A

~"4

(Ii.'

0063B

8c21

A

OATA~~

X'8221"Xf8211',X'.209'~X,8205',X'8203"~"303'

(Ii'

006]8

2

8':11

A

CIP

0063C

Si09

t.-

Cli'

OO63C 2

8iO!

A

Cl~

00630

8i03

A

Cl

t'

00630

2

8i03

A

1,715

(It'

0063£

8283

A

OATA~P.

X,8283"Xt82~~t~XtI223',X'8213',Xt820B',X'8207'

Cl~

0063£

2

8c~l

A

ClP

0063'

8223

A

el?

ao63~

2

Sc13

A

Cl2

006

.. 0

8208

A

c~p

00640

2

820'

A

1."~

CI~

00641

8'"

0:1

A

OATA

..

~

X'8FO~"X'8101

',X'1081

f

,X'80_1',X

t

8021',X'8011'

(Ii'

on6~1

C

8101

A

(IP

00642

8081

A

Cl

?:

Oo6~2

2 804t1 A

(IP

00643

8021 A

(I~

OO64f.:i

2

8U11

A

1'"

(Ii'

006l+4t

8009

A

OATA

..

~

x'8009"X'800~'''X'IOO3'

..

xt8103''x'8n83''x'80~3'

CI~

0064~

2

aoos

A

(It'

00645

8003

A

()?

Oo6~!5

2

8103

,.

CI?:

006~6

8082

A

C)~

oo6~6

2

80~3

A

"'R

C)~

00647

802l

A

OATA~'

X'8021',X'801~"X'IOOB',~'800"'X'OOOO"xt8Bo1'

Cl2

00641

2

8013

A

CIt'

006~8

800B A

C)?

OO6~8

2

800'

A

Cl~

006*9

0000

A

CIt'

00649

2

8tt01

A

1179

Cl?

0061+A

BASt

A nATA,;

X,8A8t"X'8A~1',X'AA21t,X'8Al1"X,8A09"XtaAo5'

Cl

t'

0064A

2 8A

4t1

l-

e)?

0061+8 8A

21 A

C)

t?

00648

2 8A

1i

A

C)

i'

Oc64C

aAog

A

C)~

0064C

2 8A

o!

A

M01

1':49

sEF'

08,

·,5

ROWRT

81

t'80

elP

On64tD

aA

03

A

nATA

..

,

Xt8AO~t'xt890,'

..

x,a88~'

..

X'OOOO"X'082~"X'OOoo'

Cl~

0064+0 2 89

02

A

Clt'

006~£

8882

A

(l~

0064+£ 2

0000

A

ClP

ao6~F"

OfS22

A

()~

006*'

2

0000

A

1781

()~

00650

OIOA

A DATA

..

~

Xto80A"X'080~,

..

X'0800',X'8001',X'8C81"~'8Ca1'

Cl?

00650

2 08

06

A

(Ii'

00651

08

00

A

eli>

00651

2 81)01 A

(Ii'

00652

8~81

A

Cti'

00652

2 8(;;41 A

178,

()j'

OO6!5]

8(.21 A

OATA,~

Xt8C21"X,8Ct1,

..

X,aCo9f

..

X,8C05 f

,X.8C03',Xt8502'

(Ii'

Oo6!3 a 8(.;11 A

el?

00654

SC;09

A

Cl?

00654

2

St;05

fA

(li'

00655

St,03

A

O?

00655

a

850t

A

1783

CIP

00656

8482

A [)ATA

..

~

X,848~"X'04_~'''Xt04~2''X'OOOO',x'Oooo"x'84t06'

C)~

006!6

2 04

.1

A

CI

i'

0065'

0"22 A

Cli'

Oo6!7

2

0000

A

C)~

00658

0000

A

Cl

i'

00658

2

8406

A

1784

c,t:'

on659

0400

A DATA

..

,

X'04tOO"Xtooon',~'.681',x'86*1"xt8~21"x'8611'

()P.

00659

2

0000

A

(l~

OO6!15A

8681

A

(It>

006SA 2

8641

A

()?

00656

8621

A

C)~

006!5B

2

8611

A

!18!;

c,~

006SC

8609

A DATA

..

~

X'8609',~'860~t"X'~603',x'8302"X'8COO"~'OOOO'

C)~

0065C

a 860!5 A

C)~

006!50

8602

A

ClP

oo6!50 2

8302

A

C)P

Oo6SE

8'-00

A

ClP

OC6!E 2

0000

A

'786

()~

on6SF

O~22

A

nATA,~

x'022~"Xt821~"X'020A',x'8206"X'8Eoo',x'SFo1t

HOi

1'1~9

S[P

0&,

'75

ROWRT

8~

ell'

On6~F

2 Se12 A

C,~

00660

OZOA

A

C)

i'

00660

2

8206

A

C)P

00661

8ioe

A

C)P

00661

2

St-·

0 1 A

1'8'

C)~

00662

Si81

A

OATA,~

X,8E81t,X,gE.1"Xtli21

f

,X,8E11',X,8F09t,X.8E06'

C)~

00662

2

8i41

A

CH?

0066]

8121 A

()

t'

OO66~

2

Si1t

A

C)P

00664

8i.09

A

C)2

a066~

a

Sios

A

1'8~

C)~

OO'6!

8£.03 A

DATA,,,

x.8Eo~"x,al0~"X'OO82"X'OO~2"x·OO22"X'OO12'

C)

:.?

00665

2

8102

A

c,~

00666

0082

A

C)P

0066'

2 OU42 A

elf'

00661

0022

A

C)P

00667

2 0012 A

11SQ

C)P

00668

OOOA

A

DATA,;?

X'OOOA',X'800~f,XtI802·,X'8BOO',X'8A80',~'8A.O'

Cl~

00668

2

800'

A

C)~

0066'

8t:t02 A

Cl~

00669

2

8ttoo

It.

C)~

006614

8A

Sa

A

Ci?'

0066A 2 8A

40

A

1'9n

()P.

00668

8A

20

A

DATA

..

~

X'8A2n"X·8A10',xt.A08',x'8AO~',xt8AO~',xt8A01t

C)~

0066B 2 8A

1C

A

C)P

0066C 8A

o!

A

elP

ao66C

2 8A

04

A

C,?

00660

8Ao~

A

Cl?

0066D

2 8A

Ot

A

1791

C)~

0066£

8A

S!

A

DATA",-

X'8A8",X'8A4~',X'AA22t,X'8A12',X'8AOA"X'8A06'

CIt;'

OO66[ 2 8A

42

A

C)~

0066'

8A

22

A

Clt'.

0066F

2 8A12 A

C,

;>

006,o

gAOA

A

C)

;;t

00670

2

8~0'

A

1,g~

c,~

006'1

8U02

A

OATA",

Xt8DO~',X'8DOO"X'IC80',x'8C~ot

..

xt8C20"x'8CiO'

elP

00611

2 8U

oo

A

~n1

1"44.9

sEP

08,

·,5

ROWRT

8~

C)~

00612

8(;80

A

ell.?

006'2

2

8C~O

A-

n"

00673

8'20

A

()'

00673

2 St;.lC A

119~

()i'

00

6

74

8<"08 A OATA

..

~

X,8C08'IX'8C04'IX'RCO~'"Xt8C01',X'8C82'"X'8C42'

n;J

On61

...

2

8(.;04

A

(j~

006115

8t;Op

A

n~

006'5

2 8(.;01 A

eli'

00676

S(.,8~

A

n? 0(')616 2 8f...42 A

"94

ni'

0067?

8~2~

A

OATA''-

X'8C2~'IX'RC1~"XtACOA"X'8C06'

..

xt8?Q2'"xt8100'

C)~

0061'

2 8(.;12 A

()~

006'8

8~OA

A

cn;t

006'8

2

8f.06

A

C?

006"

8702 A

eli'

On67g

2

8700

A

t?9n

np

On67A

8680

A

DATA

..

~

X'8680"X'8640"X'R620"X,a610'

..

xt8~08,,~'860~'

e)f'

006'14

2

8640

A

()~

006'8

8620

A

C)P

00676

2

8610

A

Cl?

on6,C

860a

A

Cl?

0061C a

8601+

A

1.'9b

Cl?

00610

8602

A

0.ATA,2

X,8602',X'8601'

..

X'~682',X'B6~2'

..

X'8622',X'8612'

n~

00670

2

8601

A

Cl~

Oe671:

868R

A

Cll'

0061£

2

8642

A

C?

0067r:

8622

A

Cl?

oc67F

2

8612

A

t197

Cll'

oo6BO

86

0A

It.

DATA,i'

Xt860A'"X'860~'''X'RFQ?''X'8FOO''X'8F.AO''xt8E~O'

CIP

00680

2

8606

A

CIt'

00681

8~O2

A

C)~

00681

C 8f

'00

A

Cll'

00682

se-so

A

C)

i'

on682

2

81.4t-c

A

1?9R

C)

i'

006a]

8t.20

A

DATA,~

X'BE20',X'8E10',xtRE08"xt8EO~"X'~[02',~,aE01'

C)P

00683 2 8ii.10 A

Cl~

oo68~

8i08

A

~n1

1'1~9

~e:F

08

..

·,5

ROWRT

8"

Cl~

00684

a

8i.O~

A

ClP

006~!S

atr;ol A

C)

j)

00685

2

8i01

A

1799

Cit'

00686

8i82

A

nATA

..

2

X'8£82',X'8E~~,

..

X'RE22,

..

XtaE12'

..

X'8£OA"X,8E06'

eli'.

00686

~

8t.4f.2

A

eli'

00687

8i22

A

Cli"

0068'

2

8i.12

A

np

00688

8iOA A

Cl~

00688

2

8"0,

A

t800

()~

00689

814.00

A

DATA

..

~

X'8Aoo',x'ogoO'''X'C880,

..

x'08~O'

..

x'0820'

..

~'0810'

elf'

Oo6~9

2

05100

A

e)i?

0068A 0880 A

Clt'

006814.

2

0140

A

(,?

00688

0120

A

C)

i'

0068B

2 08

10

A

1R01 c)p

c068C

0108

A

DATA

..

~

X,08081Ix,oao.,

..

X,o802,

..

X,o801,

..

X,8A83''Xt8A~3'

(I?

0068C

2

080~

A

CIP

00680

01

02

A

C)t>

00680

2

0801

A

C,?

0068£

814.83

A

(lP

0068E

2 8A

43

A

180'

Cl

i'

0068F' 8A23 A

OATA

..

t'

X'8A21"X'8A1~',xtRAOB'

..

xt8A07'''X'8~oo'"x'0500'

()~

O068F 2

814.13

A

Oi'-

006g0 IAoe A

Cltt

00690

2 8A

o,

A

()~

00691

8600

A

()?

00691

2

o~oo

A

1,gC~

Cl?

00692

04

80

A

"ATA

..

P.

Xt0480"X'04~O'

..

X'04~O'

..

X'0410'''X'0408'

..

x'0404'

C)?

00692

a

O~40

A

C)~

00693

0"20

A

C)t'

0(')69]

2

0410

A

Cl?

0069_

0"01

A

()?

00694

2

0"0*

A

1804

C'i'

0069S

OJ+02

A

DATA

..

~

X'040~"X'0401"X'RC83'

..

x'8C43'''X'8C23''x'8C13'

eli?

00695

2

04+01

A

()~

0069'

8t.;83 A

ni'

0069~

2

8~43

A

j..jn1

1':~9

~EP

08,

"5

ROWRT

85

C)P

006"

8~2J

It.

C)?

00691

2

8'11

A

tAc~

C)

t'

On69g

8~O8

A

DATA,~

X'BCOB'IX'8CQ",X'1282',X'8701t,X'0280',X'02~Ot

C)

;>

00698

2

8'-01

A

O?

00699

SiSi!

A

C)P

OC699 2 8701 A

(l~

cn69.

0280

A

ell'

0069.

a

oc.o

A

180~

()?

00696

0220 A

DATA,;)

X'022otlx'0210',x'n208"X'0204"X'O~02',x'0201'

O~

00698

2

0~10

A

e)2

0069C

Ote08

A

()P

oc69C

a

020~

A

()?

00690

oao~

A

Cl~

OO6gC

a

0201

A

1807

ell'

0069e:

8683

A

OATA,p

x,a68~',X'86~~',x.a~23"x.8613'IXt8~oB',X'860"

ClP

0069[

2

864:;

A

O?

0069F

862~

A

CIP

0069'

e

8611

A

e)?

0061.0

860B

A

Cl?

0061.0 2

8607

A

tSaR

Cl?

006141

0200

A

OATA,~

X'020~',X'o100',X'OO80',X'oo_ot,XtOO20',X'OO10'

C)p

006.41

2

0100

A

Cl~

006142

0080

A

e)?

006.42

;:

00"0

A

C)

P.

006143

0020

A

C)

;t

006143

2

0010

A

1~(jC)

()?

006,44

0001

A

nATA,~

x'ooo~"x'ooo.',xtnOO~"xtOOO1"x'8r83',x'8E~3t

()P

006A4

.:

O<J04

A

Ci?

006A5

0002

A

e)~

OcoA!

a

0001

A

C)~

006146

8i82

A

eli'

006A6

2 81.4J A

1!\1n

Cl

i'

006.7

8~2:i

A

nATA,,,

X.8E21"X·8E1l"X'~Eo8',x'8Eo"

()?

006147

a

St.ll

A

O?

006.8

8~OB

A

0;0')

006148

2

SiO'

A

1.

811

F"~O

1-101

17:49

!;iP

08"

·,5

ROWRT

86

C)P

on6Ag F4+00nn'5n

fA.

Clio'

006AA

009SQe" A

C)P

On6AB

40~o.o~n

A

()

i'

OO6AC

OOA+O~040

/It.

(l?

006AD

OUFFnooo

A

C,~

OO6AE

OOFFFFFF

A

()~

OO6AF

~O60.00(,)

A

()~

00680

QOOOF(j4B

A

C)

;:>

00681 FUF'Or:040 A

()?

00682

0040"C~O

A

()~

00683

0'1000000

/It.

C)P

0068.

00200000

A

C);?

006B5

00010000

A

()i.'

00686

00100000

A

C)~

00681

3IJFFnooo

•

Cli'

00688

OUOOnC1F

/It.

C)~

00689

OOOonoFF

A

C~?

006BA

18FFFF'FF A

(I?

00688

0000n03'

A

Cl?

006BC

0300nooo

/It.

eli'

006BD

OUOonF'FF

A

CRNTRaL

S~:CT

I

eN

SUMf'!iARY:

01

OOOo~

~T

0

02

on6S&:

PT

1

j..jn1

1':~9

~Ep

as'

"5

*

SVMBe~

VA~U£S

A~[)TBI./02

005F8

B L

~,

f)

, a

~

00280

Cttr'F'/OOOOOo03

eMF)

1 n

102

00440

D 1

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:

e

F'

, , 0

t'

0 a 1

ti

D

F'F"'FrAD/02

0025£

Te!: R R

3,02

00

10

F'

L!

~;rNUMI

02

OO!§9~

NCC:~1</02

00300

NCC4/02

00308

PFtL/O~

00268

F'R1NT1/02

002:1C

RCE'RR/02

OO~4"

RC~'O~/02

OO~

1

~

RCc~

1

'/02

004

2'

RDWRTCe/02

00367

R

Ii:

~\

01

A

102

003,5

R

e:

~,

n 1

3/0

2

003

F B

Rr:~,D

1

'/0'2

000

AE

REJID'/c2

oooco

ANSCVT/02

0028A

BRC~I(/02

OO~lE

CEBL/OC000002

CMP11/02

004D4

CMP1!3/02

00.&:9

CMP5/02

OOI+CC

CMP61/C2

OO~OO

CMP75/C2

OO~2[

ceBTBTAL/oon003~O

~S$1/02

OOlP?

CVT~/02

002AF

DEC10/02

00.6.

OE:C3!5/02

OO.8J

DEeso/02

OO~9.

DEC'O/02

OO~e8

D2/0000000D

e'I[RR/02

00108

e:e02/02

001bO

e:S't/02

001'£

r;:6F'1+102

00190

~eF8/02

00195

F'PTREL/02

0026A

rROFPT/02

OOa4r

LI~Eao/o2

005A7

NCCHKX/02

00309

NCS/02

OO~l!;

PFtLEe/02 on231

F'RINT2/02

oo2~1

RC£RR1/02

Oo~!6

RC~O'/02

OO~1'

RC290/02

004to21

REAOCBMF/02

004nt

REA010/02

00385

REA014/02

00073

REA017A/02

000B9

REA020/02

003A6

BINVAL/0;»

on3FF

BRKMRG/O~

OOlSF

CITAB/02

00PS78

CMP1~/Oi

oo.DC

CMP1'1102

OO.E"

CMP'n/02

OOltFC

CMP6A/02

0050F

eNBCt/OeOOOCO!5

ceMPR£SS/O~

oo.a£

CS2/02

oO:J~e

CvT~/02

0029'

DEelS/0'

OO.'~

DEC.O/O,

00.80

oiCltn/02

Ooa9[

0[C'5/0'

ooaBA

Ol/oOOOOOOE:

EeCV8L/02

0021.

~8C:i/02

001'1

£eF'11/01

OOtSA

r:::9F!/02 001A1

~6r:9/02

001S,

GETPG/Q2

oo,~,

tWRTFPT/n2

00'!)6

LN/o~

00322

NCC1/02

00313

NCS1/02 COltC

PREC/o2

00233

PRf!tMPT/OP

oelRe

RCERR2/0t'

OO~"g

RC207/01

OO~l'

RDABN/O'

a014J'

R[AOO/OJ 0006A

R£AD11/0'

0031S

REA015/01 0038B

R[AOt8/o,

OO:g9F

RiA

o'1/02

OOlAt:

~LKTEST/02

00260

CBLANK/ooonOOO?

CLeSE~/02

oo22E

CMP13/02

0040£

CMP20/02

00."

CMP6i/02

004F"

CMP70/0i 0051*

CNBC65/00000006

ceTAt'/02

00586

C;VTO/02

0029~

O[CCVT/02

0029'

DEC20/02

00.76

DEC45/02 00

..

'2

OEC6!5/02

OOAt-AS

De:vERR/02

0010,

D4/0000000,

EeCV8L2/02 0022C

EeO-/02

0011A

Ef!tF2/0! 0018D

E6'6

/02

00183

E6R/02

001C1

leERfI<1/02

OOc03

KE:VX/02

OOl3A

MAXCt.MN/0000008C

NCC2/02

00,11

6RTBI./02

00600

PR£C2/02 0023!S

PR!MPTR/02

0035£

RC200/02 00406

RellC/O!

004tt2!S

RORE'LY/02

00354

REA01/0::?

0006B

REA012/02

003'9

REA016/02 00019

READ19/02 n03A]

REA02~/02

oOiA,

87

~n1

1,,49

sEP OS,

,,5

R£~d1~3/02

COOC1

R[~lr)~6A/O~

OOOS&;

Ri~\r'1/C2

OoOA5

RE

~,r)J

...

/02

00069

REA,D43/02

000!55

RE~,~7/02

COl

SF:

REJ\D~4/02

0030E

RE~\[)g/02

00064

RO/OnOOOooo

R4/00000004

R1iO(')000007

SEC:aUT

102

005DE

SEGl1nO/02

0060F

SE,'r.A

102

00

2

48

S~r~"T/02

00

6

1'

SR~I/()OCOOOOA

T A

E!

,

;>

102

00

5 C 3

TAE!,

C,/02

00504

ULE!LC~t</02

00

1E~

UNEI~

102

002

C3

U

~

E!

V

102

002

F

!5

WC:F.·FH~/02

00

5

73

WRC:fB~O/02

00569

WRtT'$~ij/02

OQla[

WR1TF3/02

oocre

WR]"rr;?/02

001~6

WR"~1~G/02

Q034r

•

EXTrRNAL

D~FINITleNb

cc,'

AB/o2

0062~

*

PRfMARY

R£FER£NtES

A~SBLK

ATT~8

BU'STZ~

~ARnS[Q

CL~S~e

~eel

~FT

De:V!tTN LJt:v.eUT

T

eEH)F'

1

ei~R

LINFNe

MI~,

NPAG~

~RNTBUF

READI4/02

onOCA

READI7/02

0009~

RE:A010/02 ool8A

READI+O/02

00050

R~.ADI+4/02

onC4B

READ8/02

OOlCE

READ85/02

003£1

RETURN/02

0020A

Rl/00000001

R4TA6/02

OO~2'

SCCTAB/02

00676

SEQeUTB/02

n06QS

SElBIN/02

on3FO

SETEeC/02 00!9A

SRS!5/02

005~A

sR

..

/OOOOOOOB

TAB13/02

OO~C5

TAB!/02 00587

UNBO/02

00209

UNB'i/02

OO~D2

UNBV2/02

oo"F£

INEeF

102

002"

WRcelO/02

onS6C

WRtTEC8/02

n05.~

WRtTi~/02

OOOEO

WRITES/02

oe130

ROwRT/02

oonOO

BC02srN

CIBL.[F'T

ceeUSEO

DEVICE:

JIJIT

MIEe

PRTeUF

RDWRT

REAC~!5/0P

oooSF

R[AC'8/0~

00090

REAO~2/0~

0031C

RiA041/0~

OOOt1,

R&:AO~2/0t

00004

RE.O~1/0'l

on3C'

REAOA6/0~

003£1

RETURN1/02

0010'

R2/0000000~

R5/00000005

S£QIO/02

OO~3"

SiQeUT1/02

005[A

9£T[1/02

002

.. '

SETr80/0~

00531

SRi/aacoOCOI

TABrXP/Oi?

005AO

T.81';/OI

OOHe'

T.86/02

00589

UNB02/02

OO~EA

UNBLK/02

0028;

VERsreN/00000002

~FPTSIZ!/OOOOOOOA

WRce~/02

0055"

WRITIt1/0~

001:15

WRIT[S/O:l>

oot!9

WRTABN/o~

001C8

BtN2eco

BLt<8UF'F

C!BTeTAL.

CtBUSED

ceDE

cepvsl(

e:RReR

G;:TPAGe:

KFY LfNEtN8

MIL.e

MIUC:

RCFFo'T

R£CNUM

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

TAB8/a!

oo"e'

UNe03102

002fF

UNBTAB/02

nOiSD

WCABN/02

00510

WAceln/02 00560

WRITE.SA/OI 00123

WRITE2/02

00006

WRtTE4/02

0010!

WRTC~/02

Oo3es

6L..I<SIZ£

BREAK

CISEQ

Clw8RO

C6PYSTDF

ceweRU

~RANC;;NT

~e:XOuMP

L.IN£$N81

LINE$NSa

MSs

MBOE

RECSIZE

RSSAVi.

~n1

"J~9

~e:p

081

'15

SEl..J;'CT

iEQNUM

WR*rFPT

*

Ne

S~Ce~DARV

RE'ERE~CEij

*

N8

UNDEFIN,C

SYMBe~S

* rRReR

SFVERITV

~EVE~I

n

*

Ne

ERR6R

t

..

r

NES

RDWRT

TABS~T

TBARG

T!SwT

8~

UNPRINT

Rdwrt

rdwrt rdwrt

Navigation menu

Versions of this User Manual:

Views

Navigation