Digital PDFs

DEC-12-AJAA-LA

January 1971

110 pages

Original

7.8MB

Document:	FOCAL-12 Listing
Order Number:	DEC-12-AJAA-LA
Revision:
Pages:	110
Original Filename:	http://bitsavers.org/pdf/dec/pdp8/focal/DEC-12-AJAA-LA_FOCAL-12_Listing_Jan71.pdf

OCR Text

IDENTIFICATION

PRODUCT CODE:

DEC-12-AJAA-LA

PRODUCT NAME:

FOCAL-12 LISTING

DATE CREATED:

JANUARY 11, 1971

MAINTAINER:

SOFTWARE SERVICES

COPY'RIGHT@ 1971
DIGITAL EQUIPMENT
CORPORATION

•

IrOCL12. :51
1

23';216
IrOCL12.31

2
3
.4
5
6

lea~vRjG4T
FIX~~I
rlX~~l

~PO~.53ee/PsEUoC~rLOATI~G POI~T
rAo6=10~e

rtXMqI

rSU3a2id0~

nX~QJ

rOIV.30~0

n X""~ I r"lUL .4002

rtX'4IiI FGETIIi'000
n X"'R I rPlITII600e

11
12

,09)0

,·'{'J00

441'117
6101

n NT.JMS I 7

.'~Ol

·1

, ?rcr

16
17
18
19

":'21

'Ha;5

1:'~2
:Oi'~3

'~0~
26:'~3

21
22

.... 1?'4

')0~4

?2'~5

'-~lJ

??~6

"1221

221

'30'?l

. 2'26

"t1~Q'

;{'I0(1!

27
28
29

!ll?U

':3~B

:51
32
33

""h

"'11'210

1'I~13

p'~15 ,

36%'1
3117

35
36
37

38
39
40

41
42
43
44

64<ij1Z

r;?Ji2
1lI~14

G"{116

"';'17

"V!2~
"'~21

,~~fZI'"

,.~~r.

7402
.::"'11

3214
"fHH~

'~GI€'

24',
:5

(II~22

C'!:';?

'~"(l

~~~4

, 2100

:'I~2'

'·'?P.l0

1"I~26

.~"'1

4'46

~P32'

, ,l~ "! r.

~.J31

3216

"'~32

49
5111

~C2'

, "1:3 r.

1030

!'I.~33

. 0!" ~

~~34
~t;'I35

f):_~

r·

4617

~?36

,'lJf':'

M37

.' Q!.J?I

MAY~A~D,

~4SS.

I ••••••••

12'

•

1910j DIGITAL EQurpME~T ccRP ••

r~O~E

PAGE 1
01154

t~ST~UCTIONS.

F'NOR.70~e'

F'EXTd'
'xr'h~f2!

SMPa6101

IMISC£LLAN£OUS ITEMS

I.·......

/I~T~RRUPT P~OCESSO~

DOT Jlh. DOTJR
P1!.
13
C100.
18~

,,00

INT~PT

ENTRY •

IUSED FOR DEBUGGING
ICO~STANT
.
ICO~STANT

ITEXT FiELD NO.
P!0~
IPROGRAM rIELO NO~
Ccra1ae~
ICXeME~) ~ CPR
rPNT
IADO~ESs or FLOATING POINT INTERPR£T£R~
IAUTO·i~D£X REGISTt~s • CSTA~T or SAvE By QUAD)
AXl~,
~
ISTORAGE INDEX (LOC .10)
XRT.
0
IEXTRA XR
XQT2.
0
IEXTRA x~
POLX~,
BEaIN-1 IPUSHOOw~ LIST I~DEX REGISTER.
rLTxR, I09ur.1 IXR rOR FLOATING POINT
rLTxR2; ~
IEXTRA rOR F.P.
T£LSw, HLT
ITELETYPE IN PROGReSS SWITCH
T£XTD~~ ITtXT POINTERS (LOe .17)
AXOUT, rRSTX
IOUTPUT INDEX
XCT.
0
/UNPACK SWITCH
GTE~.
~
IUNPAC~ STORAGE

PC.

FLt~ER

PT1,

T3,

~
~

T~lSLN~
T~ISOP;

0
r
LASTLN; 0
DE6GS~; 1
PACKST. ~

LASTV,
Tl,

~UF9tG

IN8ur,
0
BOTTnM~ r£xP.1
I~S~B'

HtN8Ur~ ~

.7)

IPROGRA~ cou~TtR

ILINE POINTER 'ROM 'rlNOLN'
/CUqRt~T 'EVAL' OPtRA'ION
/eAC~ PoINTER r~OM 'Fl~OLN'
IDEBUG SWITCu 'NO~;l[RO FOR LITERAL.
IRUBOUT PROTr.CTION
IVARIABLE POYNTER

IADDRESs or LAST VARIASLE
IT£MPOR4RY QEGISTER ; ~AIN
ITEMP R[GISTER 'OR ouTPUT
IMEV90JQO IN~UT 9UF'r[R
I· ••••••• /LA~T LCeATrO~ CURRE~TLY AV4tLA8L£ IN rr£LD i£RO ••
/0- GETCI #0 • R£AOe
14IGH SPEED I~PUT BurrER

/PACE !£RO OF' T~E
POINT ARIT~METIC

/rLn.Tt~G

(~OC

I~TERPRETrR

FoR FOCAL

IrOCL12. ~7.
';6
57

,. H~

:21411
'''.''0

c:9
~9

,. '.' 41
... ~42

-:H.:0

:.'.'4"5

'13(10

62
63

~.·44

. ':~4 4
. !.·~?0

(.l("45.10~0

~ORO,

~:'46

. Me

~(!47
'~r5g

LORa,

. '"

"0~~

l'~51

66('15

65
66
67

68
6.9

70
71
72
,3

~; .;:.!~

·.:02'0

""1i''52

2004

i1"~3

~724

12'4,

5536
,~~54

?3"cr

74
7~

.'~00

:' 056

.~~t2I0

7761'l

c' 2I6~

M6~

3216

O!e61

": '11'~~

~~62

83
84

~("63

21064

2414
2676

2666
,",(11",1

,,<)65
~2166

~1215

137
e8
I!. 9

91;;167

fi00~

P':"70

(!'1'05

1'1.'71

!~fiI€'a

66
90
91
92

:1072
;;214
"207

94
~5
~6

?!'!;5

I'!f{l;6

1.'1

;' ,';7

1:,0
1.,2
1:,3

,.203
337
.'212

\,,,,,,

.,215

:' 1. :~"

;4:'2

.'1;' 1

71;l0

1,'4

1.'5
1:'6

1"1

1::,7

.'t~2

'256

1"8

"'1 ~'3

7701

"t;'4

1611 3

1~9

112'

En.

AC11oj.

AC1L~
QVEQ 1.

',~

rLAC..
£XP.

OVER2,

·".;160

'rL'AT!'~

AceU~ULATo~

Ir.A,

J
0

1F'1.0A Tl N S I Gt\!
,.qIllSl(l; AC"'INS
INtCAT£ F'LAC SUBROUTINE
F'ISW, '2004
IOUTPUT rORMAT
I NT(cER. r Ix
IF'lx F'lAC
·G~T~CN'TAD rLAC.1
RtTURN'JMP I ErU~3!
.54
IVARtABLES
,
INITIALt~Eo rOR T~£ OIALOCUE
SORTCN; 2
INU~9ER IN TABLE F'ROM ~O~Tc
LASTOP; ~
I~AST OpERATION rOR [VAL
Erop~.
IrU~CTJoN CODE.
ATSw,
~
IAS~.TvPE S~rTeH
C~TQ,
,20
IDELETE AND ~RROR COUNTEACUSED BY
ALSO)
STARrv..
I!E~O r~R 8K
BurR.
BUraEG INEXT LcCATr~N IN BUF'rER , LAST LOCATION Or TEXT~
QAOO,
~
I ••••••••
XCTt~,
133
IPACK S~[TCw
OUTO£V; XOUTL
IPOINTE~ TO OUT, sua~
(OuTL)-rOR OEBUGGI~G
IND£V' XI33
IPOINTE~ TO tN. SUB.
(133).'OR OE8UGCINC
NAGSw, e~01
I~OT ALL AND/OR GROUP SWtTCH(4e0~'ONE'1.ALLJ0'GR~U~);C~Z00)_rOR
CMA~,
215
ITwE MOsT IMPORTANT QECIST£R
LINENO; 00~0
ILINE NUMBER READ By GETLNJ(~400).'OR Tss-e
CINe,
wO~DS.2 "6 rOR 'eWO~O
CONsTANT
T2,
~
ITEMP REGlST~R • rOR NEW INST. ROUTINES,.
IrOR OrSUCGING. SET OUTL AND 133 INTO OUTOEV AND INOEV'
IAlSO PATCW TME ERROR RoUTl~E , rOUR
IPATcHrs PLUS TWO 'OR T~E ~tGH SPE£Q READER,
LIST6",' II NPUT LIST rcR "S'OIIND"',
SIG~!F"

'.p.

,.;11174

"'174

•

D%Al1l2'

214

IF'.F'.

201

IBELL

ICONTROL-C rOR DEBUGGING AND TSS8
ILErT AR~
CLr,
Il.r.
lIST3·~ IE~CRETIO~ LIST
CCR,
215
IlrST B~ANC~ER.
D~PSW,
HLT
I(SEARC~ C~A~AeT£R).v4RIABLt
1~0~~~ rOR TRACE ON.
ITHr REST or PArtE lERO IS Pu~E To THE MULTr.US£R SYSTEM
~:10\?1 ••
P 17 ~~~l.
77~'tJ
ILoEn ~i.A SI(
P£R,
256
IPE~tO~
1~'77 •
~11
I£XTE~D CODE: TEST
P761ii'1l, 7600
IGRIJUI' dSK
M2~~ •
.20
ICOtvSH\T
P~31,

203
337
212

•

•..

•

111

t~lt6

.117

112
113
11. 4

!'111z,

;'1 "7

.H7
'277

Pin,
Pl1,
P277;

'176

t1:?

'260

C26~'.
~~24'~.

"'112
11,113

;477
7;4'!'

119

'''114
0'115
;I1i6

1221

01117

121
122

M2El

117
116

123

124
125
126
127
128
129
13"
131
132.
133
1~4

135

"1 t1

11'
116

,~ 136

137
138
139

P1'!

OIt:?2
~123

liIi24
"1.:?5
(}126

7522
7563
7175
;713
;767
'.i~17
"20~

4MIZI

Cl127

2032
2157
5715

VI 13111

60~0

145

146
147

148
149
15"

151
152
153
15 4
1~5

156

MPEq.

~256

~,CR.

..215

..WORDS

~5,

"111.

--11

P77,

C2 th3.
P40er:1,

2et0
4121 QI 0

F"I.ARGP; F'LA.RG
PTCIol;
CHIN
DoualE; MULT2
F'OUTPUt, F'l.OUTP
rpJPuT; F'l.rfo.JT"
COMBUr; COMEIN

32916

erRs;

F'RST

"'134

3140
3216
2il21
2407

END.

COf>4EIN

PI;;:~5
"'1~6

p1.37

'4I.S~

ENDT.

BU;SEG

CrRSl( I

;1. Ti!ER

ErUN!l; . EF'VN3

ICO\ST";T
IC'O'JSTA\ T

IA5:II rCR i!r.'RO
ISI'ACE T(ST '
IPEqIOC T[ST
IC,~. TES!
1= .. 4

F'r.l~

4';'WORO

IPAREN TEST
IPAREfli TEST
IF! I GHT ,~ flSI<
100'JSTA\ T5
IN.GSW TEST CONSTANT erOR POPe')
IOATA AQDRESS
IGENERAL cHA~AeTER INPUT ROUTINE.
I~ULTIPI_Y 'LAC BY 2
1F'1.0ATI~r, OUTPUT
IF'LOAT!:\G If\JPUT
ICO~~ANn BUrrER START
IADDRESs or ~UMMY llNE~
IrJRST LOCATION USED IN eK~
1ST ART or STnRAGr AREA ••
IrUNCTJON RrTURN
IPOINTER TO ~ERO DATA

I"INPUT' USES CHAR AND GETe OR READe TO DEVELOP
14 NuMBER WHICH IS THEN STORED VIA ~Tl~
IO~

WOROSl!!l

I~Ew

4540

-"21

1413
5541
1'65
1'42
"477

4543
,534
4544

. 554
4545
2274
4546
4'41
1312

B5.

26~

,,242'

62~~

156
159

'-53
16 4

f'J.l "'USA ~ ,.3:'1

~F'1. T•

PAGE 1,,2

I"?" '

3140

25,'2

I~C:J

Cl132
1'1133

1~7

Hi
162

177
17
'.11
-2

0131

141i:!

141
142
1·3
144

231Z6
IST£P 1'I00SI(

45!H

121

4551

PUS~J~JMS

i.
IRECURSIVE SUBROUTINE CALL
XPIISH,J
POPA~TAO I PDLXR/RESTORE AC
POPJ,J~P I .
ISUBROUTINE RETURN
XPOPJ
PUSHA'JMS i .
ISAVE Ae
XPUSHA
PUSHr'j~s r t
ISAVE GROUP or DATA
P02

POPF'~,J~S

I.
P03

I~ESTO~E

GROUP

GETc-JMS I ,

IUNPACK A CIolARACTER

PACKC·JMS i ,
PAC8Ur'

IPAC~

UTi~~

SORTJ'J~S t.
SORTS

SORTe·JuS i .
XS!')RTC

PRl~TC.JMS

out

?'I65

45"52
2157

INstR~eTIONSI

RE40C·J~S

ROI'V.

I.
CHIN

A CHARlCTER

ISORT 4\0 BR~NCH ON AC OR CHAR
ISO~T C~4R

{PRINT 40 OR CHAR
IREAJ DATA

I~TO C~AR ~NO P~INT

IF'OCL12 • 37 •
166
16 7

'4'553

lOS

£4Z~

4554

PRNTLNaJM$ I.
xPRtl:T
GETLNaJ'4S i·.

169

3-;2

XGrTLN

170

.;555
2244

111
1.72
173
174

4556
2360

4557
,413

115
176
177
178
179
180
1131
162

456t1

1535

4561
1546
4562
2037
4563

le 3

'144

1~4

4564

185
186
18 7
188
189
190
191
192

L7~r.

4'65
2064
4566

4566
4566
~166

2726

193

19 4

19'
196
197
198
199
21:'21

201
202
2z,3

2£14
2:)5
2"16

2~7

206

2(.'19
2121

~167

0167

d'0~

3601

""ell

1137
3"22
7~""1

",~0

0~!I'2

""",3
""e4
~'''''

3"13

215

l)I't5

1132

":(1~

3'~27

,II!?1 7

4552

220

-167
5U9S2,

~2121

j225

('1211

4551

i"!212

1132

l'!O?i3
1'1214

3?-1'-'

3~62

,5'7

ITERM' NUMBER, rUNCTyONI LETTEA. AND IGNORt SPAC[S~
IREMOVE OLD TEXT Ll~E
IEXCESS SOMETHING E~ROR
IMISCEL.LANEouS ERROR
IF'ORMAT e:RRO~

L.ESUR2; o
SUBS~

LEPUT

I.·I.· ....····....
I··I.·.···
..··....
...
I •••• •• ••

I •••• •• ••

PWAtT, WAiT
PCLtAR; CLEAR
IBECOMEs (Re:COVR.l) ••
BEGIN
IPROGRAM START F'ROM SELF'
SKI' CLA
JMP 1 ,;'2
ICONSOLE START. 9101*200.

TAD CF'RSX

DCi PC

3~26

012",7

I •
I ,

ISKIP Ir C(AC) • G(Lt~ENO)

£RROR4,JIoIS 1 ,
[RR2
IUSEO BY 81(
,rOCALIS COMMAND/INPUT CRJVER

31~(I!

2,11
212
213
214

XO£L£TE

E~RORhJMS
ERROR3'J~S

U:SU9S;

1226

218
21 9

PS I N ~

'i000

7610
5576

IROTATE U"T SIx
'PERIOD, OTHER. NUMBER

"'173

"'1;7

IINSERT LINE PorNTERS

i •

)(TESTN
TSTLpRaJMS I ,
L.PRTST
TSTGRP'JMS I •
GRpTST
TESTcl!lj"'S i •
XTrSTC
OELETEI!IJMS I f

•

rOR A GIVE~ LINE

TEST~j·JMS

LErpuT~

"'176

IS£ARC~

IIGNORE SPACES AND LEAOING lEQOS

6163

7657
"1;5;672

IUNPACK AND rORM A L!NENUMBE~

i •

xSpNOR

Q1172
~1;4

'PRINT cCLINtNO)

spr~O~· J'~ S

~00"
i'90e

0I~Ql6

216
217

rINDLNaJMS I f
xF'iNO
['IOL",aj"lS t •
)(ENOLN
RTL.6aJMS I •
XRTL6

Cil1h

",i7e1

PAGt 1• •

23106

leu.

tAC
DCA OMPSW
DCA OEBGSWTAD COMeOT
DCA POLXR
TAD CShR
PR!NTC
TAO COM8UF'
DCA up.
DCA XCTIN
tAO COM9ur
DCA PACKST
QEAOC
SORTJ

I(PC) ,,> 0
IrOR COMMAND MODE

IUSe: ONE IN T~[ AC TO
IINtT UNPACK AND TRACE S~tTCN,
IENA~LE TRACE rOR INPUT or (1),
IPROTECT COMMAND BtlrF'ER.
INO PATC~ TEsT.
IANNOUNCE PRESENCE
IBY TYPI~G T~E LEAO.IN CHARACTER
IIN[TIALIlE CO~MAND BurrfR
IrOR

UNPACKI~IG.

IRU9~UT

PROTECTION

IREAn COMMAND STRING

•

23"'~

221
222
2('3

225
226
227
226
229

~'-~!.

-474
,"! ~ 2
.~ ~? 3 4546
'2?4
~217
.' ~ 7~ .
252
~22n

,'2 ?7
;'t: "!J

4'46

2~0

~2~l

4546
1132

231
2.32
233
23 4
235
236

:>:<32

_~'l11

:>~~3

3,,'20
4'45

"!35
:'?'36
;'I!3 7

237

;-(,4"

238
239
24"
241
242
243

:":?41
:":?42

244

245
246
247
248
249
250
251
252
253
25 4
255
2~6

257
256
259
26"
261
262
263
26 4
265
266

,"'! ~ 4

n 43
,,,44

:'245

li''''6

:><'47
:'250

IIGN~R( LEADING BLANKS
IDnE~ THE
BEGIN ~rTH 1.97
IPERIOO -ILLEGAL GROUP ~ERO USAGE

4554
1124
1;)65
764€'
4566

SPr40R
TESTN
JMP GlLRR
J"11' INPUTX
IS~ D£SG$1oi
GETL"!
TAr) P4000
TAn NAGSIo/
Si!A CLA
(RROR3

1~6"

TAD BurR

5362

5211
N26

3"10

n5 4
~255

3 4 1£'

1"56

45621

P257

,410

P~621

4545

~261

4546

"262
??63
1'264
n65

1366
1116

n66

4565

;'12;'"

4556
5171

DCA I AXI~
SPNOR

SKP
GErC
I'ACKC
TAO CIUR
T~5 MCR
Si!A CLl

SRETN,

164~

5260

454\J

267

?275
n;6

5177

269

:->2;7
:'1'!!f'I

2721

"1~1

3a22
ln2
' . . . 01

273

DCA AXJ~

DCA XCTIt-./
TAD LJNE~O

j067

:"'-74

27·
275

Dci POLlIR

4560
4561

n;3

271
272

GONE.

3['113

.,611
1.422
;45t'1

2~8

IACI("OWI.r.OCE CHARACHQ

CO~EOUT.12
lENa or ~OMMAND 8urrrR,LESS
ICO~~AN~/t~PUT PROCESSOR
IRETNI PACKC
ISTA~T To PACK C.R~
PACKC
IrINIS~ C~R.

1~35

3~62

",?;z

CSTA~,

COMBOT;

ISAvr STRI~G C~ARACTE~ •

11~ITIALlit "Te:XTP"
IS£TIIP CLJRRE~!T LINt

1'1253

~~h

P;l.l ST-L IST7

C:A:I(C
Jt-4o tGNOR
252

TAb COM8Ur
DCA AXOUT
[lCA xCT
CErC
TAn BOTTO"1

:"251
n52

:,?67

I.I5T7 .. 1

",'173

•

PAGE 1.4

5232

JMP

.-5

JMI' START
PUS~J

TAO I PC

LINE

INO
IVES,OISABLE TRACE rOR ~EPACI(ING
IRE4n THIS LINE NUMBER
ITEST rOR SINGLE LINE~

IILLEGAL LINE ~UMBER ON INPUT
IStT POINTERS
ISAVE LINE #
I(Xe"'1EM)
IIGNORE SPACES ArTER LINE NUMBER
IREAD 1ST ArTER LINENO T£R~INATOR,
ISAVr TtxT A~D RESTORE DATA rI£LO
ITEST rOR [N~ or INPUT STRING

DELETE
tN6LN

tNPUTX;

IREA~ rI~ST CHARACTER.
IINtT Pus~;OnW~eLIST

PROC

S~A

Jr-II' START
DCA PC

TAO PC

IAe

IREMnVE OLO LINE. Ir ANY.
IINSr::RT ~;EW LINE
IPOt~T£RS ~usT BE REJNJTIA~I~EO
IPROC[SS IMMEDIATE COMMANO.
ICHECK NEXT LINE (X-MEM)
IENO or PROGRAM?
IVES
ISAVE NEw LINE NO.
1ST ART NEW LiNE

IPROCESS OT~ER COMMANDS
!TEXT LINE BUrrER FORMAT.
1*1 I pnINTER OR !ERO I~ LAST
JMP GONE

,'2 I Lp~EI.!O

1''3 .;.

ItlN

.".1
J TtXT
e.R.

•

,F'OCI.12.
276
27"
27S
219
2q0

261
282

:t,.
'h2

r;IAI..U

V'~3

'''i'':'I

)(GETLN; ;)
SP\lOR

~:P3
n;'4
.'~i'5

456:?

:,::6

165"-

SN4 CL,A

:'~ .~7

5322

JMP TESTA

~036

28 4

t'! 11

4771

292
293

29 4
295
296

297

:'314

~ '.114 7

76<12'
4566

sii CLA

.'317

1~47

tAo 'I.AC*;S

:"32et

4557

.·~~l

7flet4

;'I:t22

3~67

:,.,23

<1561

:J~?4

4545

r"325

4561

"326

5340

5352

~33Q1

112154

3~11l

p331

321
302

flJ32
\.1333

11~6
1 ~54

3;,4

"334
?335

3~67

J'!I5
3<16

~3:56

4'45

l"337
~JAl

309

"':542

1:2'54

31"

1"~43

311

ia67

"'344

:313
314
315

:'1346
r.~50

3067
4545
4561
5340
;410

~:!I51

4566

~352

7l~"

316
31 7
J18
319
320
321
322
J?3
324
325
326
32 7
328
329
330

~345

01347

nS3
~354
~~1.55

G£RR~

:>:556

;n~

;1Hi'1
,"361

1067
-106
;46("

"'62

4566
764'~

RTl6
RAl
DCi 1..1NENO
TESTN
.
GETC
TEgTN
JMI=' GERR
JMP GEl( IT
tAo SORTCN

RTL eLL
TAO SORTCN
RAl
TAO 1..1NtNO
DCA 1..1NENO
GErC
tESTN
ERROR4
JM~ GEXrT
TAD SQRTCN
TAO I..INENO
CC4 1..1NENQ
CErc
TESTN
JMP GERR
SKI'

GEl( IT,

1067
'1','14
'640

:'357

"363

TESTA.

H!67

3~8

312

£RROR2

70'14

4561
4566
5352

P3411

ERROR2
Cl..l

TAO 1.1 NENO

1.1 N£NO
AN; P177,

TAD

SNl SlA
GlER~,

ER~OR2

~i!A

'OECON'

IGROUP NUMBER TOO LARGE

/Ttsn

IREAD STEP NuMeER,
!TEST4, anlER

IDOURLE PERIODS
10TIof~R

INUMElER

IREAD SECOND STEP NUMBER,
!TtsT4, cTIo4ER

IDOUBLE PERIODS
IOTIo4ER

INUM8ER
ITEST 'OR CORRECT TERMINATOR
ICHECK sin

ITOO LARGE A LINE NUMBER,
ICLEAR LINK elT
ITEST rCR GROUP NUMBER,

IREPAA'[ "NAGS W"
10.)( ~

ERRORIIL.I.ECAI.. I.INE

~U~9EQ.

CL,A

TAD P20U"

CMl

;'366

7l0.4

RAl

t'l'67

3065

DCA NAGSw

,..,

Vl~

CMl

1373

,~,,":

ICALI.. 'CETC' PROM 'INPUT'
I(OECONV - IN rI..OA1,)
IGRQUP ToO I..ARCE7

AND P7600

7~2~

(,)4

IOEVEI..OP I~D •• "GETLN"
IIGNnRE lEADING sPACES,
. I"ALL" IS A SPECIAl. ARGU~E~T,

sH Cl.l

~J65

•

PACE 1~

TAl) rL.Ac*2

~315
:'~16

~J?7

3:.'!7

DCA INSUB
JMS I I..CCN
TAD F'L,AC*3
~NI) P7140

.:372
10 4 6

298
299

J~3

TAD CHAI;
TAD I'1P-lIJSA

l.~66

1112

~'H~

.':t 12
:'313

2310~

I~I~r NUMB£~ rO~~ATION

2~3

285
266
281
288
289
290
291

11:JAN-11

•

331
332
333
334
335

336
337
338
339
340
341
342
343
344
34'
346
347
348
349
350

351
352
353
354
355
356
357
358
359
360
361
362
363
364

365

~~;~

'5102

. '3 71
('13;2

~6"'"

.DECOONV

774r.

;',~'3

LCC'J,
F774",

2~'N"

r:' 2"'~(',

201?':"

ACCEPT 1alE: LhE Nut'StRS , i. k'1 TO :51,99

ILINr=42!2'~

IALL.00~1

.374

2i'.16

Vl374
~n;5
!'I~;6

20112

1156
;602
1145

"'3;7
fil4C111'

r14011

1341

o4~2
('I4~3

5e'iII(!
462r

(.14(114
0I4r.15

5~4~

5234

014"6

5177
740£1

('1407
~4i"

2725

~411

2125
2125

OIi112

1'1413

"'l!I0~

~414

71'-"6
;006
;@06
5613

1'1415
01416

1)14i1
~420

"'421

4'54
1922
45042
015043

0I4~2

3~65

371

f'l430

312
373
31 4
375
316

7110

01431
!lI04~2

5263
4555

1'1433

7~!:t0

C'i4~4

lP.l23

r435

3t"11

c1436
1~4J7
('144(1

3~'"

1 0411
4563
4566

~441

4 '4,1

331

!"A 4 2

3e 3

'-"43
9'444

il544
, ;;165

~445

385

1422

~446

74591

IQ A\J:;E ~r

nR:'lUP.H0~

1"1421

3~2

I XGETlN

77'~

I\4GSW I

366
367
368
369
370

316
379

JMI'

171423
U24

(~fil17

"'425

04543
"365

~4'-6

6':~6

ILIST or rUNCTtoN ADORESS£S~ (NAMES .~E IN "'~TABL")
rt..;TASF' ••
XABS
lABS
.. ABSOLUTE VALUE
XSCN
ISGN
.. $ Ic', PA~T
XINT
IITR
"'ZNTEGER f:JART
I ••••••••
xoisp lOIS
-XRAI\I
IRA"l
''RAN~OM W"4BE~
lCAnC
·/ADC
.IUA" ANALOG TO DIGITAL CONVERTER
A~TN
IATN
"~EXP~NENTIAL 'UNCTioNS
F'E lCP
IEXP
r~OG
ILOG
"'
F'SfN
ISIN
"TAIG
F'UNCTIONS
FenS
ICOS
XS~RT
ISQT
.SQUARE ROOT
PF'Ntw, ERROR' INEw
·US£R D£F'J"'!ED "UNCTIO'llS
PF'x,
ERROR' IF'x

pn,

lCRTL6,

EIH~OR5

CLL RfL
RTl

1F'1.

I.· ......

I ••••••••

IROTATE AC LEn SIX .. "RTt.,6"

~Tl

JMP. I XRTL6
IREcuRSIVE OPERATE, EXECUTE, OR CALL
DO,
G£TLN
IEXECUTE ONE ~I~E, A CROUP,OR ALL
TAO PC
ISAvE' ADORESS
PUSH A
lor CURRENT I..%NE
PUSHF'
ISAvr REST OF' T~lS LINt
TEXTP
IADQRESSO' TE~T POINTERS
OGRP,
PUSIoIF'
ISAVE NAGSWJ CHAR. AND LINENO.
NAGSW
T46 NAGSW
ICHECK DATA rROM CETL"'!,
SPi CLA
ISKIP lr GROUP OR ALL
JMP DOONE
100 ,NE lINE
rl!\jDLN
IINIT rOR GROUP AND SET TH1SLN
NOP

DGRP1,

TAD THISLN
Dci XRT
TAO I lCRT
TSTGRP
ERQOR2
PUS~J

popr
TAD l·pe
SNA

~TEST. rOR

GOoD GROUP ~UM8ER.

IrX.M[M)
INO SUCH GROUP NUMBER
OBJECT LI~£ 4NO SET PC.

IEXE~UTE

PROCESS';'2

IRESTORE T~E CATA

NAGSw

IC~rCK

rCR E~O or TtXT (X.M£~)

IF'OCL12.~7 •

o1A1..1~

!'11447
:-4'Si1

5271

'7 ;,~~ 1

JMP DCONT

3~7

388

.'4'51

3130

~89

~"52

DCA PTl
TA6 NAGS'"
S"14 SH CLA

3e6

lAC

! ·'65

390"'453
391
"4'54

7741

<;260

Jf1P ,.4

392

~455

1430

393

;\451)

'456~

394

'~457
~46~
~461

5271

TAD I PTl
TSTGRP
JMP OCONT

1'1462

5225
4555

395
396
:'97
398
399

!J!463

3F.6?

11'464

4e§)

!'!4~5

4566
4540

1i'466

~. 610

4(12
4'113

1'1467
1'14;2\
1'1471

4544
r2l65

V472

'.'017

1'1473
04;4

1413

404
4P'5
406
40 7

4544

408

01475

409

1'14;6

3022
5676
'J611

04;7'

~!e00

til 5010
""; ~1

3£171

41"

411
412
413
414
415

416

417
418
41 9
42121
421
422
423
424
425
426
427
428
429
433

431

432

4~3

43 4

435
436

4310

",5 et 4

H'71
3413

t115"'5
0I5C1i6

5617

01511

1013

£ll512

3013
12113

o?0~!21

£llS 1. 4

7141

(liStS

1331
7630

"'51.6
£11517
('152:21

!7!5:?1
P5t'2
"'523
[11524
£11'525
111526
"'5~7

JMP eGR!'
F"%NDLN

popr
DCONT,

PROCESS
NAGSW

POpF'

POPA
DCA PC

TEXTI'

JMP I ,.1·
IPUS~OOWN
XPUSIoIA; ~

PRoe

LIST CONTRO~S

DCA T2
Cf'fA
JMS PCHI<
TAD T2
DC, 1 POL.XR

cMi

JMS PCHI<

PCHI(.

4566

571Yl

1,,'.

POiNTER TO LINE~O
ICIoIe:C-K rnR GI<Ot)P
100 ALL.

ITEST GRoUP (XwMEM)
INOT IN GROUI'
NEXT LINE NO~ (XwMEM)

IREA~

ICONTINUE TH~ SUBROUTINE
T~E

1..1',[

INO SUCH L.iNE NUMeER
IEXECUTE: IT
IRES TORE CHAR

IRESTORE TEXT POINTERS
IRESTORE AODRESS or CURRENT L.INE;
ICONTINUE PRDCtSSING T~IS LINE •.
IPUSHOOWN THE AC " "PUSHA"
IBACKUp POINTER
lAND THEN
ICH~CK CORL USAGE
101<

IPUSH OOwN LIST POINTER
IBACI(UP AGAIN

JMI' I )(PUSIoIA
0
TAO

POL.XR
DCA !'OLXR
TAO POl.l(l~
eli CLL.
TAn LASTV
Si!l CLA
ERROR3
JIoIP 1 PCHI<

IINC IN AC

ISTORAGE F'ILL.ED BY PUSH-DOWN LIST

IRECURSIvE SUBROUTJNE CAI..L ;

3~71

Dci T2

ISAVE SUBR~ AOOR.

71!140

CMA

',!1I1!' "

1721

XPUS"hJ;

•

ISAV~

1F'1~·m

tR~OR2

PUSIo4J

"'0421
4311'''

"'507
051121
~5i3

OOOI\J£,

;~40

"'502
~503

!.AD I PTl
DCA L%NE:NO

143!J

23106
PAGE
IAL.L. CONE

TAD J XPUSHJ

"PUSHJ~

JMS PCHt(

43UI

j321
70;11

TAD

XPUSHJ

IAe
DCA I POL.XR

~53{:,!

~413

4,!7

(lIt;31

7:'i4(l'

438
439
440

!'!~.32

4311.1

CMA
J'1S

!"'5.33

5471

JMI' I T2

CK';S4

.M~

1'02.

ISAvE RETURN

PC~I<

ITRANsrER CO~TROL
ISAVE A F'L.OATING POINT NUMBER ~ "PUSHr"

•

') I Al.le:
441

"535

V'\;l3

Cl.4 CMA

7240
1734
3Jl1

442
443
444

.,1t7'7
., '

445

""41

?334
1117

:>542

1,31~

JMS PCIoIK

;>~43

1117

TAD MF'LT
DCA T2
TAD I XRT
DCA I POLXR

446
447
448
449
4521
451
452
453
4!\4
455
456
457
458
459
460
461
462
463
46 4
465
466
46 7
468
469
4711J
471
472

413
4,4

4,5

476
47 7
41,S
479
4RIIJ

481
482
483
48 4
495
486
487
488

;;;~5

., 5..$ (l

;>':;44
;'545
!A546

3413

If"t X RE TURi~
Icn~~UTE

01551
:'1552
1'1553

4310
5134

JMS PCHI(
JM~ I P02

"'554
:a555
"'556
1'15'7

()!560

1117

.'303
72421

TAl) MF'LT

P03 •

1154
2354

3~'1

Dci T2

01564

3411

Dci I XRT

TAD I POLXR

9l!565 . 2~71

~""

PI'S 71

PS;2
r:95;3
~5;4

015;'

274~

f~212

:'217
r22'
1~?,5

1137
2725

t'l516
1'1517
P!6t'l0

,"'610

1'16 PI 1
06e12

1472

06~3
11'6~4

(1160'

1'1606
"'6017
016'. (II

1~65

~·614

4554
4555
4566
j 2123
3~22

~~i'

4545
Ifll66
i116
7650
0;541
4550

!1l6i7

J 374
521[11

VJ6t3

~612

01614

"'616

Aoolr.

IMOVE

lSi! T2

5363

OJ57ra

RESTOR[ A FLOATING POINT N~MBER : "POpr"

lSi! POJ

14 13

!:i754

IGt T VAIr.

DCA XRT
TAD MF'L.T

r562
'1'563

01567

~~INTE~

IRESETPOINTER

CLA eMA
ho I POJ

1'1561

111566

~uS~,

lSi! T2

3€111
1111

491
492

495

3111
l411

lSi! PDZ
TAn Mn. T

JMP ,!!O3

~611

49 4

I ,';2

~55tz!

489
490
4Q3

T,A~~

OCA xRT

:? ;111
53 4 5

?~47

•

PAGE lea

11':;JAN-11

JMP .-3

INLIST.,

JMP I P03
qEODVR
IBAR
IGNOR

IEXtT

IINPUT CO~TAOL CHARACTERS

IC~C. I

IB.A.

IL,F'~

BREA~

RESTART
P IGNoqE
I

~ TER~INATE STRING
F'LZST2; F'LiMIT I,~STANOARO
r I NF' I N /I-SHORT
ERROR' ICR-OUMB
F'LIST1; 'INCR
I,~STANDARO FORMAT
PROCESS 1'!SET,pLUS •••
PC1
IC.R.!S~T COMMAND~
Mr,
.306
IUSED By TESTC
IPRIMARV CONTROL AND TRANsr£~
GOT~.
GETI.N
IREAD THE LINE NUMBER REQUESTEO
FINOLN
ILOC4T[ rT AND RESET T£XTP
ERROR2
INOT T~ERE
tAfi THISLN
ISETPC
DCA PC
pqoe£SS,GETC
ITEST F'OR END 0' I.INE
PROC.
tAD CHAR
IrIR~T C~ARAtTE~ READY. USE PROC
tA, ~CR
c)NA CLA
~O"J
lEX I T "PROCESS"
so:nc
IIGNOR~ "SPAct",",". AND "J~,
GLISTel
JMP PROCESS
IR~TN

IC.R.

•

/F'OCI.12 •.H •

U;'JAN!l71

23106

PAG£

ISAV~

COMMA~O

496

l62Z

l.J66

491
498
499
!p21
'71
5;;:2

~~?1

';:'75

~622

4542

TAu CHAR
ANr P331
PUSPoIA

1"6'3

454~

N:?4

455'~

r,£TC

5~'3

"6£'7

1374

,4U
5223

JMP

1 4 13

POPA

4'47

SO~TJ

5~;6

1'1632

5~1

Cl6~3

5{1S

VI~:54

511
1512
!H3
51 4 .
515
516
517
518
51 9
52"
521
522
523
52 4
525
526
521
528
529
530
5:!tl

532
533
534
535
536
53'

.165
4566

~635

4554

(11636

?~26

~637

4555
5267

lOUT PUT COl4fio1AND TEXT
kRlT~,
GETL'"
In OEBGSW

01641

1'11)'2
Pl643

lei61

;64er

!lI645

4553
4545
4551

('1646

1~66

~641
~650

1116

~651
~652

5244

1'1644

"'653
r.654
1~655

"'6'56
1'1651
(),66t'1
~661

764e:

1.23
;450

5211

1"663
('1664
~66"

5273
143et
3~67

;42

,"6;2

5541
1 ('165

~674

775:l

545
546

:~~ 75

~6;~

5271
4551

~4'

'-6;7

5264

!!i53

'(';~2

(lI

4'6~
455~

pn,
TAO NAGS'"'
SMA CLA
TAO J PTl
TSTGRP
JMF' WX
TAD t PTl
oci LIN£NO
JMP IoIRlTE.Z
TAb THlSLN
JI1P wT£ST2
DCA OEBGSW
POPJ
TA" NAGSw
SF'&. SNA el.A
DCA

WALL.

3~26

544

:';;7,,'
::tHl

lAC

3.430

5237
1023
5253

548
549

JMP WhZ

71M!
4'63

:"6;3

TAD LINENO
sU CL'
pRNTLN
GEi'C
PRiNTC
tAo CHAR
tAli MeR
sH CLA
JMP .-'
TAO
1 TIoIISLN
WTUTZ; SNl

1~65

1'1662

~6h

F'l NOI.N
JMP ",TESTG

;~01
~330

11'666
("1667
[.'671:1

543

ERltOR2

"'x,

JMP wXa2

IGO "0 COMMA~D

COMLST-1
COMGO",COML.ST
IILLeGAL COMMAND
IALSO Is CO~TINUE

COMMENTS-PCl

!lJ64~

CASE ALSO

.e.

·773

538
539
540

541

Sl(~

'614

'''9
51"

C~ARACTER

IGO TO TER~INATOR

il626

5~'5

IEXE~UTE I.OWf~

SO~TC

:~625

~6~~
~6'H

5:>4

~-~

IS£T I.,INENO
IDIsABLE TRACE
IS£A~C~ rOR LINE NUMBER
INOT ~~ERE OR GROUP
IPRI~T

l.iNE NUMBER AND A sp,ct.

IPRtNT TEXT or A L.INE,
ISKtP Ir END or LINE
ITEST rOR ENO or TEXT eX.HEM)
I[XITIOO NEXT INOIRECT LINE.
ISAVE POiNTER TO LiNENO or NEXT
I ( X';"1EM)
IT~Y NEXT

LJNENO rOR GAOUP.

ISET LIN£NO 'X~M£M)
IINYT GROUP pRINTOUT

ISl(t P IF' ALI.

IPRt~T C.R~ AGAIN
PRiNTC
JMP WALL
XTESTC; o
ITEST T~£ NATURE or T~E NEXT ALPHANUMERIC ;
SFINOR
IIGN"RE SPACES
ITEST Twr. VAQIABL£ TERMINATORS
SORTe

•

IF'OCL12.3.
551

"'713

V "~J

1771

TERf'1Seol
J~I~
IYES .. S'jlnc' IS Se:T
t XTf.5TC
TAO CHAR
I'JO
lSi! XTESTC
TAO MF'
SNA CLA
!TEST F'oq "r"
JMP XT3
TESTN
JMP I XT£5TC
I,
SKP
IOTH~R
JMt:l I )eHSTC
INUM~e:R
lSi! XT(STC
XT3,
IRETtJRNS I TJ NJ r J A
lSi! XTESTC
JMP I XTE:STC
xso~ne; 1'1
ISORT CHAR AGAINST TABl.E • "SORTe"
tAD I XSORTC
DCA XRT2
I15T ARG IS UST~1
tM) I XRT2
SPA
ILlsT IS ENDED BY 4 NEGATIVe: NUMBER
JMP S[XC
12AN'J EXIT. NOT IN LIST

:; ".~r:

~52

~';;"4

553

d,15

~~4

~7.1~

555
5:.6

.~h0

557

765~'

;1711

558
:'59
560
561

~h2
~h3
:"h4

5317
5'?I~

"h5

5700

~62

563
56 4
565
566
567

;1'7-"7.

?716

V'717
?;2Vl

4'61

74H

2300
230~

;:1;23

:!f412

\i1;,,4

~69 .

"'725

590

12::'2

"';21

568

570
571
5,2
573
574
575
5,6
577
5,8
'79
5s0
581
562
,e3
5&4
585
586
587
seS
589

J ~\66

;:3;~r

57P1k1
,-' QI '" iii

01;22

:;'1;26

1721
1412
;51G1
534il

,,;27 711141

r!';30

1i1;:51

11366
;64~

~;32

5324
",;33 . 1721

"7~4

"';35
CII?36

~7:'-7

",;4£1

"'741
"'742
1i1143
"';44
1'1745
"'746
",;47
01;5£1
P!;51
et;52

;~43

1012
3354
;4111'1
2321
2321
7300
5721
"'C!J0
"lQ14

;1341

311171
1~67

;.'1 III 4
1071

591
592

111153

59 4
595
596
597
598
599
6Ii'! "
60

1Il760

764~

"';61

5364
4545
5'56
4552
4;47

593

6~'2

6v:3

604
6~'

765~

~;55

2344
5744

C1'756

:·~e~

""57

3036

~754

"'762

C'I;63
111164

"'765

OIh6

!'I;67

•

~IAL1~

6776

3402

U:'JAN.71

23106

PACe: 1-10

Cl~

TAD CHAR
sli. CI.A
ICOMPARE
JMFI ,_6
TAD [ XSORTC
ICOMPUTE INCREMENT I 2 '" III
CMA
tAD XRT2
DCA SORTCN
SI<P
I1ST £XIT
vES
SEXC~
IS! XSORTC
IU XSORTC
CI.A CLI.
JHF' I XSORTC
GRPTST~ tl
lAC liS 1.I NE"JO • "TSTGRP"
AND P7600
CIA
Dci 12
.. TAD 1.1NENO
ANO P76flJI1l
tAo T2
SNA CI.A
IS! GRPTST
J"'P I GRI'TST
IINPuT rRo", TEXT OR KEVenAROJ
IIf" 9ACl(eARROW. RESTART INPUT
I!'.JPUT. 2'
IINI'IIT A CIo4ARACT[R
TAO INSUB
INON~!ERO rOR ~EYBOARO
~~i Ct.A
JMP •• 3
GETC
JMP I INPUT
REiDe

SO!HJ

SPECIAL;'l
I NF' I hSPE'~: ~L

•

":'JAl.l~

6r;7
6?8
6;:9

610
611
612
613
614
615
616
617
618
619

620

621
622
623
62 4 .
625
626
627
628
629
630
631

632
633
6~4

635
636

;156

J/o1P

".~.
• I ...

1 ~135

.';;2

·61~

Ifl
PRO':ESS

,"';;3

774

323

7;;5

·3::16

~H~

.,;;7

'3e17
3~3

;r:t2

.301

1... 15

"317
'3215

" ?16
1;t~7

1.' 1 ~

1:'11

322
,-314

i~13

4564

11"15

2913

i~14

1~16

4637
464C'!

1"i7 1111
i~23

12'22

640

iZH

647
648
649

·327

"315
\'321

1?i2

638
639

646

··324

1~23

3Q32

1e4'
,510

1~25
i~2~

·Hl'"

i ::'IJ'.l

4547

in7

2032

1375
;373

1'il33

4545

650

1~J 4
1~~5
i;lJ~

651
652

1J4q!

1>137

6~7

1i'41
1:"42
1:"43

658

1(1'44

6;6
6~9

6{)0

1;)45
..i "46

IGOTO

- VA

lSi T1

rr;s,

SPA sNA CLA

IS! T1
SKI'

ICOUNT COMMAS

/TRANSF'ER
J"'P I COM GO."
SOIUJ
ISEARC~ TEXT UNTILL ,JC,R.
TLIST-1
lL1STeTLlST
GETC
JMP ,_4

IF'1.

GETC
JMP

IF'3

CO~T~OL

STATE~ENT

PUS..lJ

14;11

,44",

" SI
" , AIi

ICOND1TtONiL TRANS'ER PROCESS,
Ir.
tEsTe
IIGNORE SPACES AND T£ST
JMS I IECALL
IT
I Sf PDLlCl'~
IN-OUMP THE (trop)
JMS I 1~ART
Ir.C~tcK rOR PAREN MATCH
TAO M2
IA
Dei T1
/TEST .,e,.
tA6 F'LAC.l
SPA

SETh,
FOR,

1335

• QIJANO

COMMENTE
IASK
.. O[MANcE·
ITypE
.. TAPE
IOUTPUT I ••••••••
317
305
IERASE II BIF'F't
IWRITE .. JN~CRIS
327
315
I~OOlrY • MOOSF'IE
IQUIT
.. ARqETE
321
322
IRETURN .. RETOVR~E
3U
II. tBR.....
.
/THIS COf04Hi~o LrST IS SpEED OPTIMIlEO.

1241
456\1
1066

IroQ

/IF'
100

301
324

1£C4LL; [CAl.l..
IP.A~T,
pAqTEST

454"

OEC"OING LIST
.. ORGANI~E

ICO~MENt8

:Se3

11.001'

6~4

655

3".
307

16111
2251

653

lOR

ISET

311

~23t?1

4545
5225

I,
II

ICO~MANO

323
306

5765

1~~1
1:'~2

PAG.£ 1. . .

IE~GLIS ... "'F'RE'lCH

CO"lLST ••

2~32

;750

I I ~'''UT

PC1

3t<l4

i ':!1

1~~3
;~'4

'311

i;':'£t

in1

644
645

~14

·"174

6~7

641
642
643

23106

SP\iOR
TAO

CHAR

TAr. MEQ

IMOVE PAST COMMA

ISUBSET at "FOR"~
ILOO"S, ETC.
Il.OOK F'OR n," NExT
IIGNORE SPACE:S

•

nAL.l.I~

661
~~2
~63

6!,4
665
666
66 7
666
669
670
671

672
673
67 4
67'
676
677
67S
679
690

681
682

683
68 4
68'
686
687
668
669

690
. 691
692
693
694

695
6~6

697

698
699
7","

'~1
702
7':,3
7eo4
7~'

706
"~7

7~S

709

710

711

712
713
714
715

"1":'3

U';'JAN.,71

1,.'47
1 "';~'
1~51

45~6

4542

I)IJS~A

1,'52

4!;4~

"USi1J

,612
1413

H'S5
';C!l56

4407

1~57

6430

1:26"
.; ,1161

1:162

i:'l63
i~64

1",65

106e>

1et67

i07£11
:;~71
1~;2

1~'3
1074

E:~~C~4

! ., 3~)

:; "53
1's:;4

TA~

;2~ll

4566
103.,
4542
4'40

1612
4541

SORTJ

1315

H~~

4540
1612

PUSIoIJ

111'11

4'43

11('16

1107
hl~

2~32

4543
4542'
,1~17

H15

1 4 13
3{330

1121
1i22
1124

;'12100

1125
1126

7'4~

1127

5'41

1133
1134
1135

H7!?'
53&:11
75[13

TEXTP
PROCESS

ITiR1

F'tNT

rG£T I PT1
rAOO 1 'INKP
rpUT I PTl
F'SuB I F'LARGP
rxtT

TAD F'I.AC.1
CI.A
POPJ

ISAVE THE LIMIT.
ISAVE TEXT or OBJECT STATEMENTS

10C TM[ OBJECT STATEMENTS
IRES TORE REMAINING TEXT.
IGET L.IMiT

IGET INCREMENT
IGET VARIA8LE ADDRESS

IINCREMENT AND TEST
II.OAO THE VARIABLE
/INCREMENT IT
IC\ojA~Gt IT
nEST IT

5HA SlA

1 33~

4542
4543

F'I.ARG

F'LARG

POPA
OCiPT1

1~45

iB2

IGET THE LIMITCNO ERROR DETECTION A'TER LIMIT)

POPF'

643~~

2525

f'LIST2-i'LIST
IILLEGAL TERMINATOR IN'F'OR.
ISAVE THE INCREMENT.
•

TEXTP

POPF'

4407
.43"
1133

H~3

113r;'1
il~l

POPF'

4544

1't16
h2~

PUSIiJ

,'61~

1114

i117

PUSHF'

.1{H7

4544
2!!132
4544
H70

1111
U12
1113

ITEST TE~MI~ATORS
TI.IST-1

1~1·7

11"3

VALuE £XP~£SSlO~

ITEST LAST C~AR rRO~ "[VAL"
TI.1ST .. 1
F'L 15T1-n.l ST
ERQOR4
lEX CESS R.PAR
tAD PT1
ISAV~ VA~tABLE AOORESS •
PUSHA
PUSHJ
IEVALUATE THE INCREMt~T,lr A~Y •.

ERROR.
'I.IMiT; PUSHF'

1194
H~5

l~ITIAL

F'lC i 'I'
SOI:fTJ

4566

11",2

IGET

rt'.JT

, ~{I~

1~;6

~VALwl

'rPUT 1 PH

4547
1375

4'43
ie,' 2032

ISAVE Por~T£R TO VAqIABLE

1'01:1.
'JCA PH

3a3~

7176

•

23106

TAl)

PT1

PIJS~.

F'INI(P,
MEa.

puslofr

JTER1

JMP fCO"T
..2'5

IENO OF' LOOt:!
ISAVE ADDRESS •
INCREMENT AGAIN.

ISAV~

IF'OCL12. ~.'

716
717
716
719
12111
721
722

1:.'7

1:41

L'lALl"

V~03

7524
4543

p2,4
F'tNF'iN; PUSHF'

24(~5

11 42

726
'127
728
129
'130
731
732
733
'134
135

1145

ii4.s
i 147

1i50

:.,~ IZ VI ~
200Ql

].342
4155

1152

3342
3044
5536
6160

1153

1154
1155

1161

'142

1163
i 164

7!i4

'155

1156

1162

1165
it66
1167

1:170

ith
11;2
11;3
11;4

11;5
h;6
it17
~2~0
1~01

'756
757
758
759
'160
161
162

121113

763
764

12v.17
1H0

765

rACO

F'I'1UL

rpUT

'40

n~3

X~AN,

F'lCiT
DCA

5536
1161
U41

1,0
'151
'152

~0~0

200121
01210"
F'I" T

1~0(lJ

1157

'46
747
748
749

RANC.

6342

1160

'14'

1151

'13&

743
144

JMP

"~~~

4407

4453
;2021

'41

IS£T

INCREME~T

To ONE.

...

F'I.TO~E
F'CO~!T

ISAM£ 'RAN • JUST MOVED
1143
11.44

'139

PAGE

724
125

'137

141ii

23106

'~CCM.

'~41 , 53('1

7(13

136

11~JAN.'1

1202
1'~4

"05
:; '06

:;';:·1

766,

"12

767
168
769

l' ;>14

:; '15

1721

1216

1'-13

H}41
1313

;)420
t:611J3
f'614

1211JQI

1201

;106
22~6

:'6:55

1254
e177
1563
6346
724~

3t356
4547
1367
'2~"

2~56

5223
4541"
14r,'1

DCA

JMP I

CRUDOY; IUNMUI.

RANO
CRUDDY
FUNO

RANO
PI.AC
EF'UN31

I ••••••••

ITAKE t~E t~T[G(R PARr
XINT,
JMS t INTtG[R
IC'rX)

ClA
JMP I EF'UN3I
COMGO.~ ICOMMAND ROUTIN[ ADDRESSES

S£TT
'O~

lr
DO
GOTO'
COIolMENT'
ASI(
TYPE

I(R[F'£RENCrO)

OUTPUT
ERASE

I ••••••••

WRf TE

MODIn
STiRT

IR£TU~N

TO COMMANO MOOE VIA 'QUIT'

~ET~N

LTAPE
I ••••••••
IINPuT;OUTPUT STATEHENTs
ASK,
CI.A CMA
IREMEMBER WHICH CAll.
TyPE.
Dci ATSw
TASK,
SMTJ
ISPEC1.~ CHAR' •••••
AI.ISh1
ATlIST-'LIST
ISl ATS~
If EST QUOTE SWITCH
Jf1F1 TYPE2
PUS~J
100 ASK, SETuP PT1
CETARG

1~66

TAO CI-4AR

4542
i253
4551

PUSHA
uo COl.
PR!t-ITC

211136

In INSUB

;1I"1

I.·I··I.·......······......
I.·I··.····.
..··..
I.·I··.......····....
I.·I.·..·......
'I.· ...·..

lAc

ISAVE

tN.ll~E

CHARACTER.

/TYPE COLON
ICeLA)- TO SuPRESS "I"

IINDICATE 'AEAce'
IPOINT PAST CHAR

•

IrOCl.l' • •
. !- 771
772
;
773
,,

l1':'JAN.'l
JMS I F"INPUT

:IAL1~

.. 4531

,."775

776
777
778

119

1413
='2'...- 3!l66
. . , S2JV'!
; .... ,
".

#! e ..

:~.{"'!'

454~

~ ~:2:

1613

~;'~5

52 Al

~ (~~

~~2'

21\26

785
7s6

h~5
;2~6

4545
4547
1531
,645
4551
5230
4545

78 7

1237

4554

1242

52CJ2

1::H

783

1C33

·,s8
189
190
791

792
793
194
195

1::~2
i::~4

1243
1244

1'-45

1077

4463
;001

a.,.,
1247 4551

1246

1~5~

31Z126

798

1251
;;52

799
800

1'53

4545
5232
~272

'81i'l1

802
8e'3
804

825
806
8,,7
8~8

1254
1255

1,56

4554
'''5
4566

8219

1257

1961l1

81e

126C
1261

3010

811
812
813
81 4

81'
816
61 7

818
819
8213

821
822
823
82 4

825

3062

1'62 1067
1:263 341'"
1264 ia10
:;'65 3~27

1'66

4464

12;~

n26

1267

1211

HUnT,

,,;3

4551

1';'
:;';6

1267

12;2

454'

,,74 ,-",76
4546

1,77 5211

PROCESSING

JMS I F'OuTF'UT

IPRr'\!T

(jEtc

101S48L.[ TRACE
/TYj)£ 1.1T£RALS

JMF' TYPE
ISP DEBGS:'!
SO~TJ

T1.IST2-1
Tl.tSTJ-TLIST2

TIN"TR.

PRiNTC
JMP TQUOH1
CEre
CETL.N
TAD LINENO
DCA nSw
JMP TASK

IPASS PERCENT SIGN
IqEA~'ORMAT CONTROL I "X7.e3"

ISAVE rORMAT COO[

TCRLF'2; TAO CCR'
ISPLATICR ALONE
JMS 1 OUTDEV
lAC
INON;PRtNTINC OELAy rOR C~R.
TCRLI~' , i' AD COR
IEXCLAMATION POINT'CR,Lr~
!'RiNTC
TASI(4, DCA DE8GSW
cEte
JMP TASI(
COL.
272/"1"
II' O£BGSW,0 I ENA8L.E FLIP-FLOP "OMPSW"
I
'0i DISABLE ANO RETURN ALL"?" , S.
11r OMPSW , 01 TRACE o~. I' ENABLEO
I
'01 TRACE orF'
IIF' 80T~ ! 0 I P~INT TRACE,
ISEAqCH ROUTINES
MOOtrV; GETLN
IRhD LINE NO,
F'INOIoN
ILOOI( IT UP NOW I
ERROR2
INOT THERE , BAD COMMAND UNLESS i£RO~
TAD 9un~
ISET POINTERS
DCA AXJN
O'OR INPUT

•••••

DCA XCTIN

TAD LINENO

Dci I AXIN

SCONT.

31~~

4545

ICO~TtNU£

IDO TYPE:

PUSIofJ

EVAL

1,4" 1067
1241 3352

79 7

796

TVP£2,

453("

~"~

''30
'81
71.\2
784

PCl~A

DCA CHAR
JMP ASK

•

PAGE 1~14
,qEA~ DATA A~C SAVE
I~E~TEST LAST TER~lNATOR

23'06

SCHAlh

TA:l A)(IN
DCA PACKST

JMS I tNDEV

ICOPY THE SAME LtNt NUMBER.
ICX;''''EM)
ISAvtSTART 0' NEW 1.1 "'E ,

IREAD TIofE TELETYPE INPUT SILENTLY,
ISAV~ SEARCH CHARACTER

DCA LUT3.1
IS! O[8GSw

1"/0 ~R£AI<S'"

CEtc

/TYP£·TEST."-,F.

SO~TJ

11.001( rOR

PRiNTC

IPL.AYBACK T~E TExT
MATCH

L 15T3.1
LISTGO-UST3

PACKC
JMP SCHA"!

IS4V~

Ntw LINE.

,rOCl12.ne

V~~3

li~JAN.'1

S8M~.

•

826
8(,7

;::
';"'1

;'1;'1

828
829
830

1 :a;o2

TAD
lAC

3l1;:'

Dci AX!'-l

ISET POI\'TE~S

qEAOC
SOIllTJ

I~EA' 'R~M ~EVBOARO

1·,y6:'

';:'H'3

3~62

4552

834

1 :U' 4
.; :t:~5
1~06
1~~?
i~1~

1335

1:Hl

1331
832
833

836
53?
838
839
840
841
842
843
844
845
846
847

848
849
852'
851
852
8!i3
854

855
856
857
858
859
860
861

862
863
864
865
866
867
868
869
870

611
872
813

874
87'
876
877
S?8
879
880

i:H2

4547
'071

SCOT.

'iQ!~"

SORTB,

;450

1.'314

1 ;'66

131~

7"41

i~17

1112
2312

132~
1~'-1

1322
1~23

1324
1:~'5

1326
1321
13321
1331
1332
1333
1334
1335
1336

nc;. XCTPI

TAO CHAR

CIA

Dci T2
TAO I SORTS

lSi SORTS

Dci XRT2

3~12

t.o I XRT2
SPA
JMI' SEX
TAO T2
SlA CLA
JMP t.5
tAO XRT2
TAD J SORTB
Dci T2

1412
?Slr
5336
1011
16413
5322
1012
1 '112
3k"11

1411
3'311

1331
134Pl
1341
1142

;:360

445::5

IPACI< CIojA~·.
PAeKC
IMORE
JMP srOUND
0
,SORT AND BRANCH ROUTl~E •• "SOFlTJ"
SNA

3(/1'11

5411
2312
73BfJ
5'112

tAO ! T2

Dcl T2
SEX.

JMP ! T2
In SORTS

ANO

TAO
Dci
lor

1~46

60~2

6141

iM7

"iN'!

"'Utili

33.,

1~50

G!i.!~2

61301

00"2

ION

3845

DCA

i:~1S4·

1326

1355
13':56

Dci
cLi CL.L.

3!?lH

DCA

5536

1353

';151
';~l-~

1361

1362
1363
1M4

•

3P'46

.'lM!
(123'1
j 361
1211
1266

2'4~
13:1Q1

IUU STS ENDED BV NEG"'! VE NUMBERS..

IREAO EXIT
,rIND AOORESS

IDEBUG

AC , AOoRESS

JMP I SORTS
IRETURN to CALLING SEQUENCE.
'ANALOaU[ to DIGITAL CONVERSION rOR pDP-12
XAOc.
JMS I INTEGER

1351

ISAVE SORT ITtM
IrIRsT A~G !~ ~tST LESS ONE
12AN~ IS !NT~ •• LJST LENGT~

CLi CLL

1343
1344
1345

1~52

/TEST

LIST6wl
SRNLST-L IST6

l26'1

4546
53!?!4

i~13

1 ~16

S,Ou\jO~

Burr~

OSAMP,
0:57.

JMP t

='1316

SRNLST ••

,,.......
.
.......
.
,.:5
..
.,I··.···
.......
ILlt-lC
I.·
...
·
..
ISAM t ,.......
,,.......
.
IPOP
.......
.
,
.......
.
F'L.AC·1
rLAC·2
CML RTI. ,.........
,........
rLAC
ErUN31 ,........
ISAM 0 ,........
,.......
.
CONTROL CHARACTER TABLE
037
OSAfo1P

I ••••••••

1'~ODl'yt

SC~AR

1F'.r, ;: CONTtNU£,

SCONT
RECOVR
SBAR

'C.C. ! BREAK

IBELL , CHANGE SEARCH CHARACTER
IB,A, , RESTART

•

eel

:d.

'3'33
'384

1:5!l6
1'61

886
887
886

1:310

1~h
1~72

869

1373

IrOCLi2.

ee2

8135

8921

891

892
893
894
895
896

1365

1:514

1315
1 :5;6

9~21

901
902
9213
934

9~'

9216
~~1

\e8
9~9

911

911
912

913
91 4

915
'916
91 7
918
919
9221
921
922
923
92 4
92'
92~

13~6

,261
131i?

241
243

,:24P1
1376

::254

"'215

i401

4564

14~3

4566
7000
3062

14~6

12a~

4546·
1407,.'45
1410 4'5~

1411
14i2

1413

14i4
1415

1416
14i 7
1420
1421

t422

1771
5224
lA66
M122

1061
~~61

4'4,

4550
1771

14?5

5224
5217
4562
5235

l' 4 "7

3" 5 6

~A23
~\~4

:;4~6

1430

1~61

4663

1431,413
1432 3~61
i43~

4662'

f4l4

1'4~5

1453

921
928

1436

3171
l \~61

144~

"Hi
l2?2

929

9321
931

9~2..

9~3

;934

i 437

14il'65~
.; 442 15322
i44~ 106~
1444 3030

9·~"1 445

1 03!!1

PAGE

IL.r, • rINISH T~E LINE AS B~rORE,

IC.R. ~ END T~E LINE MERE AS IS.
SGOT
ICNAR. S£A~~H CHARACTER
ALIST-: I iSK/TYPE LIST or C~NTRCLS.

,'241
'243
:244

1375

23'216

S~~TN

245
242

14M

1405

LISTGO.,

'24'
:'242

'1273

14~4

SCO~T.l

!267

13;7

1402

11;JA~p71

lALit'

1.370

897

898
899

GL.lST":
TL r ST-':

IX
I"

244

1#
1$/11

240

ISPACE

254

273

215
IC.R.
ITHIS LIST IS E~D£O BY 'TESTe'.
Irl~D OR ENTER A"VARIABLE I~ TME LIST,
G£TARC; TESTC
IrlRST L~TT~R OF ARG
P720~,
7210
I •••••••• LETS r TNRU
"'.~ ••••.

ERROR4
NOP

I ••••••••

GETVAR; DCA XCTIN
PACKC

IPACK INTO A~C.
IS~CONO

GEte
SOQTC

LETTER
ITERMINAtOR?

TERMS,,1
JMP GSERCH
IYES
tAO CHAR
INO
AND P11
ISAV£ 2AND LETTER or ~AME
TAQ QAOO
DCAOAOD
GETC
IIGNelRE THE FIEST
SOQTC
TERMS-1
JMP CSERC~
JMP ,_4
. GSERCH~ TSTLPR
ILOO~ rOR sueSCRtPT VIA SORTCN
JMp Gst
INOT SUBSCRIPTEO BV L-PAR.
TIle; QAOD
ISAVE t\iAME
Dci [rOp
IF OR REcu~SIvE AND ERRORCMECK
JHS I GECALL
/TO [VAL
pOPA
DCi QADD
IRES TORE NAME
JMS I PTEST
11£ST PAR EN ~ATCH. ETC~
JMS I I NT£GER
ICOr,.w£RT TO 12.A t T NlIIo4B[R,
GS1.

Dci sues

T.An
ANt')
TAr

SNA CLA

JMP

GS3,

I.·I.· ......
......

ISAv!" SUBSCRIPT

GAOD
p710k'!
p12t"QI

F'rr

H" STARTv'
DCA PU
TAO PH

I ••••••••

LETS r THRU

I ••••••••

I ••••••••
ISEA~C~

rOR VARIABLECCHANGE rOR X,MEM)

•

IrO:: L 12.3_
. 936
937

4~
1447

93JJ

14~r.

9!9
941
942
943

1451
1452
14'53
1454
1455

944

1 45~

945

i 4'57

946

146l.

~41Z:

7 .~41

CI;'

!331
7 75.~

!;p;" SNA

52~4
143~'

TAD LASTV
ClA.
Jt-\P GS2
Tll) I P11

7N1

CI,\

"i312'
12'3(1
1312

1461

948

1462

5244
2r.51

949,
95111"

2463
1464

1a31

951

1465

1611'1

952

1466

1k'135
H41

953
954

1467
14;g

762"

1472

1~31

956
957
958
959

14h

1.473

14;4
1.4;5

9~0

{d6

961

1477

962
963

964
965
966
96?
968
969
970
971

972
973
97 4
97'

916
97 7
978
979

91)111
9131

982
983

i~~~

1.501
1502

15~3

1504
i~H15

15P.6
15('17
1'510
1511
1512
t5i3
1514

11515
1.516
11$11

1520

15'1
1522

1'5:>3
1524

1~U3

4566

10121

3"'H

1061

3433

GS4~

PTtST.

s~;..
JMP

CLA

GF'NOl

TAO PT1

!lCi I PU

lSI pn,

TAD sues

DCA 1 fT1

2~3~

IS! PU

4401
i'53?

r, QI~PI

'XiT

IAOO T~E VARIABLE
ITEST STORAGE LIMITS

IUPDATE THE LIST.
ISAVE t.lAIoIE
ISAVe: SUBSCRIPT

ISET PT1

OCA XRT

SA"'E

ITEST SUBSCRIPTS

CIA

TAD SUBS
sai CLA

IWRONG SUBSCRIpT
IS£T POINTEA To OATA

JMP GU

In PTS.

203(J

2330

. HF',

t Sl P'U.
POPJ

j~61

DCA
TAO

PT1
QAOO
lWETMP

3"'~2

DCA

1526
1527

317~

DCA

9a5

TAD

L£SUB2
SUBS

9(\6
997

15321
1liH

J111
3167

DCA

S.U~S2

15541

988
989
990

POPJ

111133
111;34

;52~

/TRy ~E)(T ONE

"OU~ID

TAO PTS.

TAO 1 )(AT

1411

7041
1171
;640
5257

~. 242
,215

IF'Ou"O XX

l£lClT

POPJ

erN01.

1.('-45

1~:\2

IGET HBlE E>TRY

Fcn I CFRSX
"PuT J FlU

1~25

9~4

I£NO SEARC~

•

F'lNT

643~

~"'31!'

ITEST ro~ £~r or LIST

JMP GS:S

""IUEST
GEC41.L~ [CAll
(;52,
TAC LASTV
TAO pU
cti elL
TAO POLXR
SNL CLA
ERROR:!
TAD LASTV
tAo CINe
Dci LASTV
TAO QADO

2~3~

5'41

1Iif

TAD GINe

1171
3430

5541
Ul"
3011

PA~£

TAO QADO

11/161
7650

947

955

231a~

r.IAL13

TAO

TI.IST2~ 242

21!

M26".

,,26Kl

HORO

I.·I.· .....·.....
I.·I·· ......··..
....····....
I.·I.·I.· .....

I •••••••• s~vES

SUBSCRIPT ON r

I ••••• • ••

I ••••••••

1·· ...·8t;.

•

I.· ......
23106

991
992
993
994

995 .

XS"~JOR;

1535

IIGNnRE L£AOING SPACES • "S~~OR"

TAO CHA~

15'6

12166
1.114

TAb 1'1242

11)4:'1

1640
5735

si!A CI.A
JMP 1 XSPNO~
GEi'C
JMp XSP"-iOR"l

1:;37

99~

1" 1\41

997
998

1542

4545

111;43

5336

999
M272~

1f2!010

10!il1

012.

1(l~2

112!!." 3
1004

1546

.2ge

121""

1541

1'1'66

1551

Hfe6

10,,7
10~8

1e09
101Q1

1011

HH2
112!13
12114
101'
11316

i~5!:'1

115'52

1115
164'"
2346

15'53
iSH

1344

1555

11(l1Q1

1551

:5""4
743!!1

1~56

156111

1561

H"66

1345
2346

1562

5'146

1563
1564

1137
3022
1413

XTESTN;

tAO CHAR
tAo MPER
SZi CL.A
ISi! XTESTN
tAD
CHAR
tAo
1012'2
CI.L
tAD
012
DCi
SORTCN
SlL
lSi
JMP

lh1

1018
1019
1020
1021
1022
12123
1('12"
102'
1026
1027
1028
1n9
1230
H!31
12132

19.133
1~34

t'565

1566

3~'11

1567

5411

15;1Zi

1236

11)73

1243
311152

1576

15;1
16C'!~

125Cl
~. 61 i!
'614

162'1

I Q!l~

15721

15h 1221
1572 1246
1574
1"i;5

1251>

l:rl35

1036
1331
1038
UJ9
H~40

1041
1~42

1:)43
1~44

1i1l45

16~2
16':"3

4542

1604

1~55

16~5

4542

. 16~~
1607
1flt~

'~54

'~'6

4542
-J"2r~1

XnSTN
xTESTN

I.·.···
..
.....
..
··
..
,I.·.......
I.· ..·. ..
I.· ...·..
I.·I.· .....···....
I.· ..··..
IRETURNS.

I ••••••••
I ••••••••

RECODING ro~ SPACE

OTHER.

NU~BER

• "TEST~"

RECODING rOR SPACE

I ••••••••

I ••••••••
I ••••••••

IEXIT ~~OM A "DO" SUBROUT!NE
R[.T"N,
TAD CF'RSX
I (PC) I> PJ
DCA PC
XPOPJ. TAO 1 POLX~
IRECURSIVE ExIT ~ "POPJ"
Dci T2
JMP 1 T2
,
ATLIST.~
IASK-TYpE CONTROL CHARACtER TABLE
TINTR
I~. rORMAT ~ELrMITER
i'QUOT
I"" L.IT£RAL OELIMIT£R
tCRLP
I I . CARRIAGE RETURN AN~ l.iN£ VEEO
tCRI.P2 1*. CARRIAGE RETURN ONI.'
TDUMP
lSI. DU~P TH~ SYMBOL TABLE CONTENTS
TASK4
ISP. TERMINATOR rOR NAMES
TA~K4
I,,, TERMINATOR rOR EXPRESSIONS
PROCESS II • TERMINATOR rOR COMMANDS
PCl
IC.R • • TERMINATOR roR STRINGS
IS • rOR 'TOUMP' TERMI~ATES THE CO~MANCI
IEVALUATE iN EXPRESSIO~ w~lcw
ITERMINATES WIT~ AN R~PAQ" DR C~R~ AND
ILEAVE T~E RESULT I~ rLAC ANO IN 'LARG.
[CALL' ~
IR£CURSyVE CALL TO "EVAL"
TA5 SORTCN
ISAVE ISORTC~'.'LASTO~'tANO 'troP'
PUS~A

HO L.ASTOP
PUSIolA
TAO [rap
PUSHA
TAb [CALL

" IS AVE rUNCTION CODE.
IRETURN TO CALLING

•

\ IF'OCl12.~.
H'46_~.1

1r47

1~4a

~~12
1~13

01~l.1C'1

~'~55

1~!.4

1"5~

4564

Ht5

5227

;617

5343

a~2

lC"S3

1054

1055
U56
1057

1058
1059' <

161~

"62~

;- ~n
1622

16'3
1624
i 6t'5
1626

l~~QJ :,;

i 627

1061
Ul62
1f1'163
106 4
112165
1066
112167
H'68

, 630
1 ~H

lrl!69
101"

U71
1072
1073
112174
1075

1632

1644
1645
1646

1e'76

16<47

1077

1650
1651

112178

112179
lrZI8121
1t"Sl
112182
1083

1064
1065
112186
Hl67
112188
1121e9
112190
1091
U'l92
1M3
109 4
12195

H'96

1097
112198
12199
l1~QJ

1652
i653
1654

4564
52044

OPN[l(T; 'TESTC

,_ 212

ECHDLST,l"212

,;377
4566

1137
J23V1

1111
U54

5247
'650
5323
1~54

1121

;'11"
5364
4562

HUJ
4566
12'54
3024
1024

1121

""',,

3~24

16"5 1fc124
;656

;12141

1657
166121
1661
1662
1663

1f11"

1664

1665
1666
1667
i6791

16h
16;2

1673

PUS"'J
\0

7ii!01

1643

JMP EF'U",

14::15

1634
1635
1640
:;641
i642

TESTC

JMP (T£l;l'-'l
JMP (NUll

4'4i1

;4591

1637

[VAL.

PUSI.IA
GETC
~CA LASTOP

5332

:;~33

1636

11;JAN.71

4'42
4545

11"49

12'51

V1~3

JMP

GETVAR

JMP [TUM

lAC
SNi CLA
JMP ARGNXT
tAO SORTON
tAO ... 11
spi CLA
JMP [LPAR
ETERMN; TSTLPR .
SKP
ERROR4
[TEAH, TAD SORTCN
Dci THlSDP
TAO THlSop
tAO MU
SHA CI.A
DCA TloIlSoP

TAfi THISoP

Cli

TAO LASTOP
sPA: CI.A
JMP EPAR
TAD lASTOP
eLL RTR
RTR
TAO OPTABL
Dei n.op
tAO LASTOp
CL4

531('1

1111"

7112
7012

1331
3274

i~'5

764P

popr

4544
,."144

44(17

rI"lT
0111

:; 6;4

~ 001'1

16;5

6525

F'PUT

1125

tAO FLARGp

1616
i 677

•

:' 9!~'"

F'1. 01' ,

ntT

IN-ERROR IN F'ORMAT

ERROR4
ETEQM1; TAO crRSx
Dci PH
TAO M2
TAO SORTCN
SNi

;71121

"~U~cER

IPUNCT t Ol'J
IlETTER OF' VARIABI.E
IrrND OR CREATE VARIABLE'AI.SO SET PT1.
IP T1-)4RG

£TERM~

0377

tTER~2;

23106
PAGE
IADDRESS APTfR
XT POPJ
I~Ovr. PAST ExT"A CIoIARACTER
IE V4UA TION cnNTROI.LE~ CC~EC~POINT 1)
ITEST CHARACTEp AND IGNOR( SPACES
!TERMINATOR

rLARCp

I"
II.

MtSSING OPERATOR
ISET pTf.
ITO POINT TO lERO
ITEST ro~ UNARV OPERATIONS
8

ICREATE DUMMY F'OR UNARV MINUS

IIGNORE UNARY Pl.US
ITEST rOR NULL PARENS.

IOPERATOR MISSING BErORE PAREN
ISET ',ROM "TESTC"wnSORTC"

lEND'

I"T~rSOp" EQUlv.TO END 0' EXP.
ICOMPARE PRIORITIES

ICONTINUE
I'SNOOPERATIOtll

ITEST rOR [NO or DATA INTO rLOATING AC,
IGET L4ST OAT A
I(F'LOPR I PT1' ••• '
RESULT

IS4VF..'

•

·/F'OeL12.1;'.
11'"'1

1HZ
11::"3
1174

11;l5
11;'6
11::,7
11~\6

11::9
11 HI
1111
1112

;;;''L'
;':"1
; ;;.2
~;,'3
~ ;.'4

1;.'5
1;;'6
H(17

1hI"!
1h1
l' h2
1713

V·I[ .j

3~30
~~~4'

76'5,'

SNA Cl.A
POIilJ
POt:A

3.~55

DCA LAS TOP

r;255

~KP

5366

JMI' £PAR2

1117.
1118
1119
1120
1121
1122
1123
1124

H2"

4543

1721

,el0P!
1el24

1722

3355
4545
4564

1730
1731
1;32
H33

5364
5332
5343

5220
1'43(11

4543
~;"44

1129
1130
1131

1;34

1125

173'
1736

31a3C!!

1132

1;37

11:53

17401

113 4

H41

1135
1136
1137
1138

1;44
1745

1139
1140

1747

1141
1142
1143
1144
1145
1146
1147
1148

1742

i743

1';46

1;5"
l' ;r;1

1;52
1153
1;54
1;11)5
1;!'i6
1757

4545

1155

1;66

IREA~

ICOULO BE l.t"T PARE~
IN

"Il.IBASE POR OPERATION COMPUTATION
ITO PROCESS A NUMBER,SAVE AC

IstT POINTER AS ro~ A VARIABLE,

TAO F'LARGP

Dcl PH
DCA INSUB
JMS I F'lNPUT
popr

IPOINT To 'CETC' AND USE CHAR
'REA~ TEXT NuMBER ,) (PT1)
IRESTORE THE AC

JMP oPNrxT

ICO'JTINU[

aErc

'REA~

n. AC

[rUN,

DCA Erop

TESTe
JMP
.JMP

ISET CODE
rUNctION NAME,C1,2.0R 3 LETTERS)
SEPARATES rILE BECAUSE r OIGIT

I.·,.......
.......
I ••••••••
I ••••••••

EF'UN2

Pf'NUM

I ••••••••

'401'

TAD
Erop
Cl.l RAI.
tAO CHAR
JHP £rUN
TSTl.pR

1M ISH-MASH HASH CODE

ER~OR4

412~1

1ST CHAR OF' AN ARC,

100 SPECiAl. CHECK

JHP ENU"I
.JMI' E"U~
.JMP OPNEXT-2
OPTABL; F'Gn I I'T1
ENUM,
PUSHF"
F'LAC

4562
4566

41562
4566
42·" 1

I"IORE To COME

ARGNlCT; cErc
tESTe
JMP El.PAR

5343

45417
2166
62f.15

1;65

tAD THISaP
Dci LASTOP

H'~4
12166

1 4 13

ISAVE LAST ARGUMENT

IilEl

1056

1';61
1;t.2

.1;64

DCA ,*2

PUSHF'

;2'ClC!

1;6'"

IGO EVALU~TE EXPRESSION
ICONTINUE REAOJNC TME EXPR~SStON
ISAvE "unop".

LASTOP

TAO PH

4564
5355
5771

1149

ITEST POR SUg-£XPRESSION

PUSMA

4544

1150
1151
1152
1153
1154

1';~3

TAD

3"36
4531
,'''44
5222
30'6

ICOMPARE TIoIIS 0"

tSTl.PR

n~55

1h7

IEXIT "[VAL"
IGET PRIOR I)P

.JMP ETEIH12

4562
;410

3320

PAGE

H" THJSoP

;541
1413

1h6

2311/l~

TAD LAS TOP

1h4' 4542
1h5 1(1130

1125
1126
1127
1128

~CA

1 (155

1113
1114
1115
1116

;;23
1;24
1725
H26
1;27

11':;JAN'11

IMUST BE rOLLowEO BY PA~ENS TO SET ARGV~r.NT .
ICAll "[VAL" To COMPUTE ARGUMENT
la~A~CH ON F'uNCTION COOEJRETURN VIA ErUN3J~

.JMS ECALL
POPA

SOQTJ

F'NTARl.-l
TSTl.PR

F'NTAer-,."JTABL

E:~~OR4

·EPAR2,

JMS E:CALL

1l.E:F'T PAREN rR rEl.L THROUGH F'UNCT!ON TABLE
IOOuqLE ~P£RATORS OR JLLEG4L rUNCTioN NAME~
IEVALUATENEsTtD &~PRESSI0N

•

IF'OCL12, ~7.

231Z6

Vl~3

IDUMP

11~6

2,~13

lSi

POL;)(~

1157

1;;"

JMP

1158

1;71

~536

t ['tJN31

1159
11 ~21
1161

1,;2

1162
1163
116 4

1165
1166
1167

1168

1';;4

6311
"72
_, 24~~
,253
:'255

;;;7

:-336

1;73

1184

l1S5

;1~0

;~;'1
"~1l2

;M6

;'335

c216

,'254
,;213

':0.10
;~11

, 215
,'27,

;012

4543

;013 24",
; iii 14 4544
;~i5

2016
'Vli7

r~44

1233

,,,,20 ;11111
4451
2021

44'"

;P22

118 7
1188
1189
119"
1191

2",23

6232

;~'5
'~'-6

1125

1192

;~24

;021

1196

1191

1198

1199
12!'!0

12::l1

12~2
12~3

12C4
12:J5

;1iI32

:-00111

'~30

;~n

I..
/I
I.

2
:5

336
250

IUP
1C

33:5

XSGN~

DCA PU

JMS PARTEST
JMP I •• 1

OPNEXT

F'I.ARC,

'-"

P3.

I.PRTST; '"

TAO

SORTCN

5631

SMA CLA
JMP I LPRTST

?~4"

112(1

?,l46

?,H?
;~.,""

'11'51

•

,'4V1

?237

5631

,.y,

IrUNcTION RETURN IS OK

ICATA T£~PORARV STORAGE

1/1

'2143

12~8

tAo Ml1

1~54

I,
/I

1121

- ?v144

13
14

F'L.AC
TAO 'L.ARG.1
ITAKE ABSOLUTE VALUE or 'L.AC
SPA CL.A
ISKIP TO CONTINUE
JMS I MINSK!
INEGATE tHE ,LOATING AC
ICONTINUATioN
'UNCTION CALLS.
E'UN!, FlNT
rNoR
INORMALI!£ F'UNCTION RETURN
'PUT F'LARG
ISAVE 'UNcttO~ VAL.UE
,X"T
. I
TAO rLARGP
ISET POINTER

,'!1QJ f'I

'7?~

11 R;PARS

XABS.

"'142

L"pARS

'LTONE

popr

.'0111'1
'tl03
;OI:H - ,''''0:'1
1054
'~40
;~41

PUSH'

'~34

4
A~R

l'tTVA~'

ICtR'"
16
21!1
I~ TO [,.. 0 GETARG rRO", 'SET I
ITWO Mi~OR rUNCTIONS

11~"1lJ

;('.35
;1'136

ARG.

215

32'3~

;031

1206
1207
1209
1210

(1PJ(H!I

4251
5631
1622

119 4

119'

;~'''''

253

255
25'

214
251
33,
27,
254
213

,251

I.· ..·...

2.._A

- IT£qH!NATOq TAa~E ro~ 'EVAL' AND
ISPACE ~

\ 252

,333
;;2'4

;eI~1

'NLIM
240

,,250

1186

1193

TERMS·':

:;;;5 ",257
1;;6 ';252

1169 I , ?M3
11721
;"~4
1171
;0I~5

1172
1113
1174
1115
1116
1117
1178
1179
118"
1181
1182
118 3

PF'NU'~,

PAGE

TAO SORTCIII
TAD 101'

SMA Si!A CLA

In LPRTST
JM; I L.PRTST
PARTEst,,,

ITEST THt ,PARtN MATCHINGS

•

IF"OCL12.~

. '·1211
1212
1213
1214
1215
1216
1217
1218
1219
122~

1221
1222
1223
1224
1225

1226

1227
1228
1229
123Ql
1231
1232
1233
1214
123'
1236
1237
1238
1239
12421
1241
1242
1243
1244
124'
1246
1247
1248
1249
125~

1251
1252
1253
1254
1255

1256
1257
1258
1259
12621
1261
. 1262
1263
1264
1265

•

0IAL1~

11;'JAN.,71

23'06

'.~ 5 2

.t 413

POPA

IRESTORE ~AST OPERATION

,~?:s

~~55

':'54

1.236

1' .. ::'

,'}55
'?'iA,

,;"41
1"54

,~~~:'!

764:;l

;,'61
.'?62

4566

':'63

5651
'.'~~(!I

6'302

'''66
'V!67

5664

;2\73
":'74

TA~

ERQO~"

GET:::

lor

4555

rI~~L~

JM~

IS~

2326
4545

;101

;1~2

:)103
'1~4

'H15
;{06
Hr,,7
HUI

Hil

1116
764k1

h12
2113

Hi4

hi5
;116
:h1?
h20

:h21
;122
'123
;124

;{?5
;126
;12?

5117

?~0r"

1471

;"50

5331
3P!32

1023
1141
1032
;63('1

1 ~57
1~32

3471
19132

;i301

5313

;131
'132
;133
;134
;1,35

;04;:1

;1.~~

1~23

3('11

1257
?04(l!
ln3

ISAVE ~AST AO~RESS

TAB THISL~
DCi. CNTR
TAO eFRs

lIT IS lLL[GA~ TO OELETE T~E rlPST ~IN£

t4~ TH 1S1.~
SNA C~A
JMP START
CO; T
tA6 IT~ISLN

IJUST IGNORE SUCH COM~ANOS
ICHANGE DATA 'IELD TO TEXT.eX.MEM)
IDISCONNECT

CIA

765c.:

3e171

IUNC~AtN A l.INE AND ~£COVEq T~E S~'CE~
IPROTECT POINTER CHANGES rRo~ fNTt~RuPTlnNS
IS~TS "T~ISl.N" AND "LASTl.N".
IA~qEAOY GONE
IOIsAe~E TRACt
IMEASURE LENGTH

C!-1A

11'123
30'7
1133
;041
1023

i423
:H25
1133

I XCE~ETE

OEBGSw

GETC
tAD Ci-IAR
tAD "!CR
!;i!A Cl.A
JMP ,_4
TAO AXOUT

1~66

1.3 TO caMPA~~ CoOtS
IGET l.AST PAME\ CODE.
IC~ECK ~oR ~AREN MATC-,
I(ST!L.l. SET ~Ro~ Ti-It LAST "EVAL,."l
ISI(IP IF' MATe"!
II:IAREN ERROR
I/olOVE PAf;iT R.. PAR

JI'4I:' I PARTEST
DELETE A l.I~~ ROUTINE

XOEL£TE~~

,::');5 5271
'016 lU1
,,,;7 7041{:

;iMl

SO~TC~

S£A el.A

IT~E

'~65
;~;0
;~h
;~;2

CIA

4545

; :"64

POI'A

1413

2.~'57

.., LAST~P

DCA I ~ASTUN

OOK,

tAD erRS

DCA T2

TAD I T2
SNA
. JMP DONE

DCA T1
TAD TH JSLN
CIA Cl.L.
TAO T1
Sh Cl.A
H!J

CNTR

tAO T1
DC4 I T2
tA~ T1

IL£~IGT'" ( '"

ISTAQT LIST ~T TOP
IEXAMINATION ADORESS
IGET T~E NEXT AODR~
/TEST 'OR [NO
IY£S~WRAP UP Al.~.
ISAv£ NExT ADDRESS;
ICOMPARE LINE POSITIO~S

ISKIP IF THISLN ) X
ICHANGE (X) TO ACCOUNT rOR
IGARBAGE COLLECTION.

IGET NEXT

JMP DOl<

IGARBAGE C~l.LECTION
!:,ONE~
CHi
rAJ THISL'I/
~CA xRT
P:l CNTR
CM;'

TAa TJoII Sl.N

ISETUP END Or ~OsE

•

IF'OCL12.

1266
126 7
1266
1269
1270
1271
1212
l.273
1274
1215
1276
1277
1278
1279
12821
1281
1262
1283
1284
1285
1286
1287
1288
1289
12921
1291
1292
1293
1294
129'
1296
1297
1298
1299
1313"
13~1
13~2
13~3

:11.
.7

~~12

DC4

~057

TAD CNT~
TAD pur~
':leA 8U;~

,!41
;i42

'143
'144

., .14"

h45
'146

3::"32

;147

11"57

3(11:.1
l412
3411
2032

'iS4

h~6

;157
'16~

;161
;i62

1~16

4464

U65
H66

5751

~lF

'11"
'171

;H2

h;3

hi4

:a7'
~~i6

'177

;~0Q1

;'-01
;202
;203

;;",4

;,Pl7
?2~~
"11
;'12

2167
2533
2650
2636
2565
2630
2517
,5'12
2624
2625
2654
257,
2'O2
2631
,,33a
:1332
4564
5241
5224
~21'

"13

111166
i112

;216

4566
1135

"14
;215
n17

;,,(11

;"1

Tlon I XRT2
DCA I XRT

3Z6(i\
~'33

3 "6~

•

or BUrF'[Q ~o INTER.

•

ICO'4PUTE COUt>,·T

ISlp~ON LO~ER P4RT~

ISi! T1

._3

CHIN.

JMP
JMP XOEI..ETE.S.
JMS
'" [ I ND[V.
DCA CHAR

IRESn
l~rA~

'LASTL~t.'T~IS~N'. AND OATA F'tEI.O':
IN A C~ARACTER SUBR •• "READe"

sane

F'NT uL. .. ·•

I~INEHEC OR RUB OUT?
£CI-IOI..ST;'l
JMP I C,",IN
IVEs
PRtNTC
IfC~O Tloft INPUT
JMP I CIolIN

2533
2650
2636
25'5 .
2630
2511
2''12

2624
2625

lABS
ISGN
IUR
lOIS

IRAN
IADC
IAT~

IEXP
I~OG

2U4

IStN
I~IST OF' COO[O 'UNCTION NAMES
ICOS
2702
ISOT
INEW
2U1
~3Se
IF'X
0332
1,2
IERASE SINCL,£ 1.1NES .• GRoUPS, OR VARIABLES
[RASE. TESTC
ITEST THE SECOND WORD, IF' ANV.
JMP ERVX
IERA~EVARtAEll.tS
JMP ERL.
1~INES OR GROUPS
IERRI'!R
JMP
tAB CHAR
I AI.L TEXT
TAD MlNUSA

2'"

I.·I.· ....··......

•••

H40

;222 . 3"31
;223 5177

•

tAn CNTQ
DCi AX I N

3366

455:11
1623
5157
4551

h6~
h64

;:H'J6

1317
1318
1319
1320

:0;~0

E"-jO

tAo )CRT2

53~2

5265

IIxt';

iCoq~£CT

Dci T1
, TAO AXIN

l·He

;151
h52
'153
;155

TA':l

!'AGE

23t~6

XRT2

CMA

1~12

'is?,

13:::17
13(119
13121
1311
1H2
1313
131 4
1315

116 ,~
! ~6('
1 liP

;,"5

13~8

U;;;JAN .. l1

V··~·3

'1 4 ;'

13",4
13'"
13~6

:.l-H.1Z,

Si!i
E~T.

[!:IV,

ER~OR3

IBAO ARG rOR [RASE;
IER'~E ALL TEXT ••

DCA I e,RS

I(X';'''EM)
IERASE VAR UBI.£S

TAl) ENOT
:lCA Burr~

TAO STARTV

Dei I.ASTV

JMP START

••

IPOINTERS MAV BE OtrF'ERENT ."OW.

•

- ------ _. -

-.. .... --~-

•

;

23106

'JIAL1(/J
4554

1321
n22
1323
1:'2 4
1325
1'526
132 7
1328
1329
n:s0
1331
1332
1333
1334
1335
1336
1337
1338
1339
13411'
1341
1342
1343
1344
134'
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
136 4
1365
1366
136'
1'He
1369
1370
1371
1372
1373

';:2 4
::1';5

137 4

':H!!fil

1357

::>:5 y,1

Itll66

13,5

3317.

,,!~

2'~23

'~:H

1~65
77~~

;2:S4

4563

'23~

5221
1 4 23

'24~

5227

,,32
;233

;;35
'2~'

3~31

"43

5541

H44

:!U0

1133
'-'-46 3025
;247 " 1133
22591 3e23
1923
~H!51
;241"5

;;52

;253
2254
;255
;;56

;,57
;2621
;261

;262

3~11

;"67
7141
1411
,45()
2244

ERVX~

SNA

XrlNO
IS!
Sil eLA
JMP F'EN03
TAD TIoIISLN
DCA LASTLN
TAD I TI-iISLN
sH
JMP nNO\!

H'l23

;267

1"23

3~25

74401

,,66 5250
;,;VI

;2h
'~12

'273
;,74

rEN03,

DCA AXOUT

39117
3~2~

1002

;2;5
;,;6

;11~

'217

1~06

4330

TAD T~lSLN
lAC

;IiHl1

5644

T~lSL.!\I

NAr.Sw
CLA
TAj I Tlo4tSV~
TSTGRP
JMP tRV
TAO I THISLN
DCA Ll~ErJO
JMP ERG
TAD STARTV
DCA LASTV

le)(","!EM)
ISKI~ Ir GeAC) • G(LI~ENO)
ICX';'p.tEM)
II~IT"VARI'BLES MAY

BE INDIReCT COMMA~O

I'OPJ

5267
1423

•

IROUTINE CALLED VIA "'lNO~N"1
ISEARC~ ro~ A CIVEN LINe: 1.0. 'C "LINENO" ~
liST R[TUR~ IF' NOT rou~n.
12ANO ir rOUND.
I"T~tsL~" , rOUND LINE o~ NEXT LARGER,
I"LASTC~" • LESSER ANO/o~ LAST.
I"TrxTp" IS SET
XF'INO, Q!
11NITJALIiE POINTERS TO F'IRST LINE
TAO crRS
DCA LASTLN
TAD erRS
ISAye:: THIS ONE
F'lNON, DCA T~ l$LN
TAO TIoIISLN
DCA XRT
TAO LINENO
ICLEAR LINK AND NEGATE LIN£NO,
eLL eMA lAC
ILIN£NO,~ WILL ALSO BE F'OUNO(XeMEM)
TAD I XRT

;63~

';63
;;65
;'64

lSi

TAD
SMA

3~67

11116"

IERASE LINts.
IPROTECT REST or T[XT.

!)ELETE

1 4 23

"42

1~~

OC4 AXI'-

4565

,,41

GETU,
TA"i 8UF'I~

IJ6~

;Z26

;;27

(RL.

PAGE

UTRl.
uTE,

OCA XCT
JMP I XrIND

0
JMS GET1
SPA eLA

TAD cue

TAO "'131
TAO CHAR

I.·.····.
IPAST n","
IMOye: POINTERS
lEND OF' TEXT? CX-MEM)

I··
I.· .....··....
INOT YET

liST RETURN

NOT F'OU~O

ISET "TEXTP".

IUNPACK CHARACTER. ~ "GETC"
INORM 4 EXTEND
& 340.376
12408276 & 200"236

13~0.337

~lAL.10

HOCL12.~.

1376
1377
1378
13'19
13~"

131\1
13/32

745J

5~i

'3316

'~"4

1?15

JMP VTX
UD 1'337

;::t~5

~J(l6

'306

J026

'~;17

l1;11{1

':H~

'311

1'385

;113

1386
1387
1388
13.,9
1390 : .
1391
1392
1393

1394
1395
'1396
1397
1398
1399
1400
14~1

14e2
1403
1434
140'
1406
1407
14V.l8

14 {I 9
141111
1411
1412
1413
1414
1415
1416
1417
1418
1419
142111
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430

11;'JAN-71

,V3

13$l:5
1~a4

V.1i~:5

;~12

;314

765~

5674
4330
704P.1

5276

:?316
n17

1ii!26

764i1'
5326

;321

11~fII

'3'2

765e:
; ~"''' 1

'323

'-324

31~0

;325

5215

2326

11101

;327

530'

'3301

(1010'"

'331
;332

211120

;333

'334
;~35

2336

;331

5345
1"'21
,'122

;3"~

;650
5313
UJ66

,~""

1356
5'1:50
1411

2346

3021

;~43

'~45

;:J47

;040

n5C11

~e2El

,~51

:I~21

'~52
'~53

;112

'354
,;555
'3'56
;357
'3M'I

'361

7h2
'~12

5334

;?4Q!

1641
.\~~~

;~'HI.

EXTR,

unc.

1425
346P1

JMP.

un:

GEU.

tAb p277

IGET NEXT CHARACTER INSTEAD.
ITRACE DISABLEo ~ RETURN "1"

" XCT
JMP GE:T3

1ST ARTS,!!!

JHP UTQ

tAO GTEM
ANO p7'1
DCA CHAR
tAD CHAR
TAn 1'117
SNi el.A
JMP EXTR
TAO CMU

ISAVE

IEXT£NOEO

TAO 10140
JMP I CUi
TAO I AXOUT·

DCA ·GTEt-4
CMi
DCA xCT
TAD GT£~
RTIi! el.L.
RT~

M41Z1,
.40
.137
M137.
XENOLN; 21

cor T

ITERMI~ATE T~E

1~61

7440

Si!A

;37~

•

·106~

3425
~410

ICX;MEM)

RU
JMP GENe

;367

;~64
'~65

/TEST rOR TRACt-ENABLED

IUNPACK hBlTS

n66

'363

BoTH ARE ~[RO.

1'1.1" THE TRACE ,.LOP

IS!

GENC.

uti DEBGS,",
sli el.A
JI'1P ,·6
TAD OMPS'"

SNA CI.A
lAC
DCA DMPSIoI
JMP UTRA·1
CET1.

IPRPlT ONL.Y

" JM I' I UTFIA
JMS GETl
CMA

TAO I I.ASTL.~
DCA I BurR
TAD BurR
DC. 1 I. AS·TL.N
TAD 01.00

;362

•

rOU~ID

C~ U!

DEBGSo/
TAn OMPSw
SNi CL.A

PRt~HC

3066
12166
l1r1!3

'341
;342

DCA

''',f'

TA")

4551

2315
;32~

UTQ.

PACE

231"6

. oci

BuF'r[RED LINE •
I(X.MEN)
ISAVE OLD POINTER

IPOI\T TO NEW LAST LINE
IC~EC!(

AXIN

. -.- --. ..._---_ .... -.......
-~

"ENOL~I"

.....

--~.-.-

F'oR EXTRA INF'O

•

-- -- .....__ .... - ._-

l1';';JAN~1i

1431
1432
14'33
14:'5 4
14'55 .
1436
1437
1438

~~;:

1:>1~

TAD AXI\!

:::!;2

~ J~l·

I' r:

;'d3

;:,;4
'~;5

,;\;6

'405

·_··2l~l

'407

23"'2'
;;3:'1e1

F'1.Ti!ER; 0000

! 25 .~

.614
24~1

:>" ,; 1
,4.'2
;4('3

62>32

,424

625~

;4;16

?51

157

241~

;'''J~

;411

·~z~

;412
;.'13

;'66

;41 4

.... ~HH'

;415

611131
5215

'416
;417

0000
21i1l11l0
0000

['112 •.
133 •

[1l

1(5;
JMP

'420

JMFI
TAO

2424

5215
1123
5614

;421
2422
;423

1466

~432

;434

le16?

1469

;435

14721
1471
1472
1473
1474

;436

4242
1356

1475
1476

;442
?443
'444
'445
;446
;447
'45Q1

'437
'44e1

'441

?451
?452

1'453
'01154

JHP

1'000

2433

,!~32

:'0(;21

._5

c211'0
I 133
IPRINT A I.INt NUMBER - "PRNTLN"·

AND pn
PRNT
tAO PER
PRtNTC
TAn l.I NENO
JMS PRNT

JMS

TAD M140·

DCA CHAR

PRjNTC
JMP 1 XPR'4T

VAL-Tl
PRNT~

~'333

ANn P117
DCA VAL
TAD C260
DCA T3

5252

JMP ,.3

:'1,16
3032
1113

2J33
~132
1~32

]213

15~"

IIGNORE PARITY BIT

TAD LINENO
RTL:6

3"'66

4551
5625

.-s.

AND P171
SNA

;45~

1468

IDECIMAL CONVERSION rACToR rOR "PRNT"
INO;INTERRUPT INPUT ROUTJNE

~12

KR~

1465

14~5

2000

,'Pl0Cl1

1:.J67
4557
,-122
4242
l.U2
4551

145 4

JMP

TI.IS13_.

6036
"1"6

2425
;426
;421
243'"
2431

1477
1418
1419
1413"
14,=1
141:2
1483

STA~TV

ocl l.ASTV

1 Xt ~!Ol. ~I
II.ITERAL T£RV,INATORS
TASK4
I"
pci
IC.R. ~ AUTO~ATIC QuoTE MATC~
IDATA Co~T~OL CHARACTERS
ILErr ARROW
, KIl.L
F'l.tNTP·2
IRUeOUT
• IGNORE
t NP\.IT·~
IL.r~
• IGNORE
INPUT·l
IALT MODE
• EXIT
ENOF'I.5
/CNO RELATtv~ RErERtNCES)
rI.TONE; 02101

1(41ll
10441
1442
1443
1444
144'
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463

1467

TAD

ll~:~

14~9

146 4

PAGE
ICO~OUTE NEW thO or BurFER

D~A 8UF'I~

1Z6~

3;131
'576e
2377

23i~6

XVi.

tSl T3
DCA VAL
TAD VAL

tAO M2,2

SMA

ITWO DIGIT "PART" NUMBER
IPERtOD rOR SEPARATION
ITWo DIGIT "STEP" NUMBER,
ISAVE SPAC£ IN C~AR.
IPRINT TRAIl.tNG SPACE

IPRINT TWO DECIMAL DIGITS

•

IF'OCL12.,.
1496

14~7

:4.5~

,jlALlt"
'525-:'
; 2·111

1408
1489

~'!P
~: ~ "

1490
1491

2l~!

1·~32

1492

'£~2

1113

"!-3

1493
1494
1495

1496
1497
1498
1499

15::'10
1531
1502
1503
152\4

'H5
;H7

;,;:1

1116

5276
"'2
;?473

1~17

,.;5

, .. ;6
;417

4463
5665
ln1

iSO'

'52"
;5:.01

1507
1538
1509
151111
1511
1512
1513

'512

;,,"111"

;.,:-5

7341
i066

;510

1!51 4

;511

l!H'
1516
151 7
1518
1519
1520
1521
1522
1523
1524
1525
1~26

1527
1528
1529
1530
1531
1532
1533
153 4
1535
1536

1537
1538

1539
1540

7450
1 a66

4463
1076
5274

15~6

OUT,

"h 7452
;474

;5?3
;524
'5~6
25~7

3~71

'5i5

1071

''52111

;44111

;5'-2

;~'3

;524
?'525

'5'6

;~'7

'53"

;5~i

;'5~2

'533

;534

'535
'1)3,6
'537
'540l

-::354

JMP OUTX.~

P2n
"TAD
CIA

PAl,

si!A
tAD 0140
SNA CLA
JMP ESCA
tAo T2
ANn P77

,4411l

S~A

4335

JMS PCKl
CO; P
JMP I PACBUF'
TAO p71
JMS PCKl
JHP PU

7~0A

5102
1122
4335
5324
d{l(1"

2~62

5357
1 ;~61
341~

'542

3a61

•

SNi
TAD CHAR
tAn MCFI
SNA
JMP OUTe"!
TAO CCR
JMS 1 OUTotv
JMP I OUT
Hi; CCR
JMS 1 OUTOEv
TAD CI.'

TAO H140

1356

1354
H50
5332
1071
.:1122

tAo CHAR
SNA
'tAo Pel0
tAD HUll!
.SNA
JMt' 1 RUBIT
i'4o P;S11
DCA 12
tA5 T2
AND 0140

1353

'&;41

;'S43

PACBUF';

1352
iUl

2513
;514

2521

OUTCR,

74513

74'
"
5755

;51.6
;5i7

OUTx~

111'1'

;512

1313

•

tAn VAl.

TAOC260
PRINTC
JM" 1 PRNT

4551

"i'!?Z

TAti T3
PRi:-JTC

4;51

5642

PAGE

2310fl

1~33

~4~J.

"6~

l1;'JAN .. l1'
JMP XVl~l

V1~3

PACX;
£SCA~

PCK1.

.,
IOUTPUT A CHARACTER • "PRINTC"
IUSE (AC) OR (CHAR)

IPACK A CHARACTER • "PACKC"
21'1 TO 33'

IC~ANC;E

ITEST 'OR RU80UT',
ISAVE INPUT ITtM
ISO THAT QUESTION DOESN'T MAKE
ICWAR LOOK L!KE A L£rTdRROW
10ATA WORO','
134"';'3'77 AND 200.237
1240,,~31

I! GNClRE 30f'1l
ICX';'~£M)

ISJ XCTlN
JMP ROT
TAD OAOO

OCi. 1 AXI~

QCA QAOO
TAO PDLXR

1~0

TO START

/( X... ~EMi
IC~£CK

ICLtAR PACKING WORD
F'OR OVERF'LOW

•

IrOell;!.1 7•
1541
:::5 44
,C;4S
1542
1543
;~,,~
1544
,1:;"
1545

1546
1547

1548
1549
155121
1551
1552
1553
1554
155'
1556
1,,7
15,8
15,9
15621
1561
1562
1563
1564
156'
1566
1567
1568
1569
15?12I
1,,1
U1Z
157:5

151·
.1575
1576
1577
1578
1579
15821
1581
1582
1583
1584
1585

~5S3

2554
. '-555

,,56

CM~

p , 1'13
T,I.n AXIN

. 377
141

1'317 •

3';'il4

RUBrT,

377
·140

4557

2'H~

3'~61

,'562

2561

;(:14':1
3062

;563

5735

PUSIoI .. OClW" lIST

1"
i

~ '.

I PCl<l

C14~,

M140~

ROT,

IrULL eUF'F'£i:f

RUB!
.. 140
.RTL6
I(EAE)
DCA QADO
CHA
DCA )(CTIN
JMP t PCK1

-~.-

----

;564

4545

'-565

1:1166

;566

'567

;.'S;e
. "h
,';2

'5;3

;5;4
:)5;5

;5;6
;"7

571~

1137
4566
4!54e

1612
44'3

6212
5717
14"2
26021

;60e
'6~1

:' eI G!' (!I
(lel"0

:)605
;'6"'6

6::141

'6",3
'6!.114

;6Vl7
'-61~

GETC
tAD
6213
JHP I
CG£TRET

ERRF'iL.; ERROR4
LM,
F'US~J
EVAl-1

JHS I INTEGER
6212
JMP I ,.1
I.MAKE
IUSEO Ely eJ(

I ••••••••
I.· ••••••
I.
It
1ft
I.
I.

.2601(1

5225
6"'42

PROCESSOR.
SAVAC, 2l
ICONTENTS 0, AC
SAVLJ( , 0
ICONTENts OF' ~%NJ(
MBREAK; ;'2"3
ICONTROL-C
%~TRPT; DCA SAVAC
ISAVE WORKING OATA
RAR
DCA SAVLK
TSr
IGIVE OUTPUT PRIoRITY
JMF' K%NT

ter

3316

DCA

'613 ;450

SNA
Tpr::

'611

........
........
........

,,
leIF' COr 1"1 .........
,
,·1
CHAR

IINTER~UPT

;575
32''''lJ
;('110
32f'11

;6"'2

CGEn,

6213

;614

'-615

5225
6:144

'616
'617

3665

'1~9'

IR£Sr.~VATIONS F'O~

IPART OF' INTERrACE TO rL01 Tn ALLOW
IGETTJNG OF' CHARS 'ROM T£XT

1588

15q4

J~IP

4e'

'5157

•

PAOE 1.

lAC CLl

tR~OR2

P4D,

.;64~

23106

ii·

!;NL CLA

; C!HI

j665

1593

7141

;62('
':)735
'~5.'
'5t;1 , 4566

'552

11~JAN ..

1 t;~~5
.:. ;~1;J.

:)612

1589
1590
1591
1592

!']

rIAL!:"

1586

1587

3 !!I 16

:)620

1265

::»6;'1
'622
'623

;("~1

107

1263

TELSW
TAO I OPTRI
JMP K%NT

aCA TELS",
fleA I OPTRI

TAD OPlR!

ITUR~

,
••• .<1
~

orr THE IN .. PROGR[SS nAG.

IDONE
/TYpr NEXT,
ICL.EAR AC A'IO TU~N ON T~E: F'lAG.
IlERI'! OUT THE: OATA AREA

lAC
ANn P17

TAO OPTR0
'. ',"T, ","

"'!: ~".

. "~ ".

,"X

..•.

,..- ..,""1... .. ,.. • ,." I

1596
1597
1598
1'99

16;:"
16211

H36
. 1,~ 6
H51

KRg

IRE.~

JMP EXJT

'63;

5246
1123
3262
1262

;64~

765'1f
5342'

'627
'63~

'6H

:)632

:>633

1614

1615
1616
1617
1618
1619

'6H

'636
;637

;6H

1~34

;642
;643
;6.-4
;64'
;646

76421

'647
~650

;651

;652

5253

1628
1629

;661

1640
1643

1644
1645
1646

1647
1648

1649

u,e

•

T40 C200

\ TAO SIN
tAO MBRUI<

SNi CLA
JMP R[COVR
TAO INBur
s~i CLA

ExtT~

6135

ERROR2
TAD SIN
DCA INBur
CLSI<
JMP
NOClK
CI,.SA

72~~

eLl

DCA

3261

" CI.KrLG

IMA~UAL

STOP?

IANy SPACE1
IWILL WAIT roR ouTPUT BurFER

I.·I.·.....
.......

ISAVE INPUT

I •••• • •••

II ••••••••
.. • •• •• ••

IKW12 CLOCK INTERRUPT ROUTINE
;&55

1641
1642

8UFrEQ ANO CLEAR rLAG TO '£Tc~ NExt
IIG~'RE BLANK AND L~T ANO PARITY BtT,

DCA SlN

~!i3:H

6131

KEVBOARD FIRST

1622
1623
1624
1625
1626
1627

1634
1635
1636
1637
1636
1639

ANO Fll77
S~A

d66
1262

16211]

1633

KINT.

l2~2

1621

163111
1631
1632

oci "OPTR 1
ICME~KrCR

'6.'.6

16a3
1605
16rY6
16i?7
1608
16Z9 '
16H'.I
1611
1612
1613

3265
6all
!'246

... Alii:. . . . ,

Ksr
JMP EXIT

'625

16~2

1604

"" I ill"

;653
2654

6244
1201
7U4

'6'6

1200
6P101

;657

~660

2662
;663
;664
;665
'666

;667

;6;0)

NOCLK.

RAl eL.L

140 SAYAC

54~0

EXtTJ,

;~"21"
:"HHI

CLKrLG;

3120

312" "
312~

0000
1~34

SIN.

OPTR0,
OPTRO.
OPTRi.
X133.

'613

'6;4

;6;5

I09ur
I09ur
IORU'

IOUTPUT POl~T£RS
IVARS

"tAo INBur

3276
3"'34
1276
~666

6.Hll
1664

;;03

;640
4574

:>;;'4
=,705

lfJ16

•

'o"

SNA

'7{h"

;;:'16
;7~7

IMOOIF'lEO 'OR POP-'
SET TO III tV£RY INTERRUPT

I ••••••••

JMS I
PWAIT
DCA XOUTI.
DCA IN9UF'
tAD XOUTL
JMP I XI33

;6;6 '"200
;677 3266
';:"1
;702

ION

JMP I 0

H5:11

;671 4574
;6;2

6M2
764~

5314

•

RM;
uti SAVLt<"

X(lUTU

DCA XU3
ION
TAD I OPTRO
S~A CI..A
JMS I

lor

TAO TELSW
SaA CLA
JMP

,.,

I.· ...·..

IVIA CINOEV)
IANy INPUT?
REF'RESH SCOPE WHILE WAHiNG
I •••• • ••• ,OR INPUT

lel.EAR INPUT BurF'ER
IVIA (OUTOrV)
ISAVE CURR[NT CHARACTER,
IBE SU~E I~TtRRUPT IS ON.

IANy ROOM?
"
IA C4ARACT£R IS ~ON'iERO
, •••••••• RErRESH SCOPE

II N PROGRESS?
•

•

(~ L'IAL.l9.1

IrOCU.2.3',....-.
1651
l.6S2

;71.£1
;711

1653
165 4
1655
16!6

'712
'h3
'h4

1657

;;1.5
;716

1656
16"59
166"

,721

,7i7
,;29'

1661

,722

1662

'723

1663
166 4

1665
1666
1667
1668
1669
16711l
1671
1672
1673

167 4
1675
1676

,;24
;;25
,;26
;;27

,731'1

;;31

;;32
2;:53
;;34

(: .,46
3316

TI,,~

5323
1266
~664

1264

,001
,'107
1263
3264
6301

5676
3326
,""'I:'PI

7241'l

1326
3~67
6~~1

1316
;640

5333

;;36
;;37

6002
5342
1123
3"67

1677

,;41

1678
1679
1680
1661
1682

2;42
;;43
;;44

2;45

1684

2146
;;47

1683

1266

,;035
2;4Ql

1105

22116
;O~0

34UI

1692
1693
1694
1695
1696
1697
1696
1699
17~. 1Il

,;"57

17~1

l'J2
1':33

ln4

1'~5

2"57

5351
3034
1263
3265
i263
3264
7040

;;62
;;63

6~146

';65

4553

'764

'766
;;67

1.131
4551
;:'~22

.1422

;;;('1

745"
0;377

;;;2

31167

,;;4

4551

,;h

,;;3

/TVpE CHAIUCTER.
ISET t"'~PROGRESS F'L.AG.
IRETURN

JMF ,+U

TAr: xIJ3

J1l11

ISE\I~

"ATA

nCA t Ol'TRO
TAD oPTRr
lAC
AN~ 1'17

TAO OPTR~
DCA OPTFlo
IO~

JMP t XOuTL.

IERROR REcnvERY PROCEEOuRE
ERROR'; DCA ,.1
IERROR CAL.~EO FROM A TABL.E
E~~2,
~
ILt~IT EXCtEOED
CL.i CMA .
ICOM~UTE CALLING AOORESS (AL.SO "SPACE")
tAb ERR2
IANO USE IT AS ERROR ~UMBER.
DCI LINE~O
ISAVE ERROR eOOE.
10~
I
(JMP ••• ) p FOR OEBUGGING
TAO T£~S~
IWAIT rOR OUTPUT TO fINISH
Sin C~A

JMI' ,-2

lor

JMP ,.3
RECOvR; tAO C:200
Dci LlNENO
tAD 1'1221

TAb OPTRl'!
Qci utN
IS! TELSW
COr
DCl I AxlN
tS~ CNTR
JMP ,-2

;~40

2151
';52
,;53

';6['!
,;61

TELS"

1263
3a10

;'50

;;56

l"lO

3fJ57

1685

1691

~ ci

•

23111)6

X I 33

DCi. CNTR

1686
1687
1688
1689
1690

;;54
,;55

11;;'JA~'~71

IDISABL.E INTERRUPT rOR tNtTIALIlATtO NS

ISAVE ERROR NUMBER

ISETUP INlT COUNT

CHA-

DCA INBur

TAD OPTR~

ItNtT 1/0 BUFFERS,
I.

I(X;'M£M RESET)

IINIT I<Ey;eUF'R.
IINtT TTy POINTERS~

DCA oPTR 1
TAD OPTR\!!

Dci OPTRO
RECovX; CHi

n.s

TAO p77Z0

pRilllTC

PRNTLN
lSi! PC
TAD 1 PC
SNA
JMP

IPREPARE A STOP BIT FOR TTY
RAISE FLAG.
(NOp) • rOR OEBUGGING

~/AND

IMAKE A "7".
lAND TUR~ ON THE INTERRUPT
IPRI~T ERROR NUMBER A~O,
IU~L(SS

tT IS eEqO. (X-MEM)

•• 6 .

DCA LJNENO
TA~ P77~0

PRINTC

IPRp.JT ATS!G"l

IF"OCL12.~ _

11~'6

.'5,

17~7

,;;~

11AL.l~

I/!Hl3

4551

IPRI~T SPACE
IN AND
PRYNTC
IPQ I"T L YNt 0' UROR,
pQNTLN
TAD CCR
PRiNTC
Hn PTC,.
IRESrT I'~EAOC"
II' A~ ERROR OCCuRS.
DCA ROIV
tINTERRUPT W!I.L. BE RE.E~ABLEJ SOON','
Ji..JP SHI;T
ICHRAC;ER REMOVAL RouTJ,(
IRUB~UT ONE LETTER
RU81;, TAD XCTIII4
sZ"i CL.A

17;~8

,;77

17;-9
l' 1 0
1111
1 712

~.';' Z'

.;5'53
: :~77
45J;1

~:' "1
3;-"2

1126
J152

~~~3

1713

1114

5171

1062

ll-JAN-71

1715
1116

!~:'5

'64~

3;}~6

5214

JMP ,.6

1717
1118

~7n
~n?

1~U
;!~41

1119.
1720

~~11

11'l21

TAD AXIN
C14
TAl) PACKST

1121

~:>'i2

;'2'~

1122
1123

3~'I.3
~2'14
~ll'I.5

5641
1251

1124

3:'116

1010

1125

3~1?

3~11

1126
1127
1128

3V!2e

;'H~0

~tl21

2'l62

1129
173111
1131
1132
1133
1134
173'
1'7:5 6

1137
1136

5242

3"'23

1411
:.'122
1103
'640

3025
3026
3",27
3"'30
3~:51

3032

3",33

CL.A

TAr) SPI.AT

PRINTC
TAn AXIN
DCA T2

4551

3222
3~24

SMA

JMP 1 RUB5

JMP RUB2
TAO I T2

I" ADO" IS rULL',

TAD

M'"

/TEST POR EXTEND

CMA
Dcl XCTIN

ISET SWITCH

3"62
1 ~10

TAD AXIN

;04~

Run.

;~H0

JMP RUB4

CMA

Dci AXIN

3U~

1471

TAO I T2

1140

3~36

J1~1

ANti 1'1100
DCA Q400
JMP 1 RUs5

1143
1144

1745
1146
1147
1148
1149

~03'

3~47

1750
1'51
1152
175:5
115 4
1'55 1756

3,,50
3051

1157

3"56

1158

J057

1159

3~M'

1160

3061

RUB4.

5641
2530
1411

RUB5,
RUB2.

'-1~1
10~6

;64el
523()
3471
5231

,3H

3V152

1~60

3;153
JC'l54
3;A?5

333<'1

:;~61

•

/TEsT ~ALP

AND I'll

3034

3P14"
Jill 41
3042
3M3
3"'44
3045
3 !:'I 46

I,Oq,A RUBOUT ACKNOWL.EOGEMENT

sli CI.A

5231

1:331
7 'Hi

"ACX
tAO I T2

tAO C100
SiA CLA
JMp RUBJ
DCA I T2
JMp RUB3.1

IRESET AOO

ICHECK POR ExTENDEO

ISAvE COFHI[CTION

SPL.AT. 334
ISYMBOL tABLE TVPEOUT RI)UT hiE
ItN!T POJNTEQ rOI; SYMBOl. OUMP.(X.MEM)
TDUMP, ,TAD STARTV
DCA PU
ITEST POR [1140 OP 1.1ST
TA~ L.ASTV
CIA

1~30

TAD I'll
SMA

143~

IBACKUP POINTER

AND P17f1121

'165~

5541

...

iTEST NULL L.INE

I()(.~EMI

IU XCTIN

!?l35

1142

PAGE.1

cor T

1139
1741

23'a6

CI.A
POPJ
TAO I PTl

•
IGET THE VARIABL.E

•

IrOCL12.~,.

jlA~l:-

11;:'JA~J"'1

DCA OP.l

I(OCA

TAC' 01'

'I Se: TIi II' U~.' P "C K PO! NT £ RS

1161
1762

~~63

1763

~:'~4

3316
~ 315
3::1'1

~.'65

3,"2,"

~;'fl~

4545
4551
4545
4551

176 4
1765

:3::'~2

1766
1767
1'168

:P67
~"7~

1769
1770

3V;2

1771

~rh

iI~;3
3~;4

"A30
1430

~Hl0

4714
4545
4551

~1"'1

2i"3~

GETC
PRiNTC
rn PU
F'INT
rGrT I PT1

3;;,;5
3(1;6

177'

1780

1781
1782
1183
1784
1785
1786
1187
1188
1789
179"
1791
1792
1193
119 4
, 1195
1196
179'

1798

1'199
18"0
1801
16::l2
1803

180.4
18e'
1606
18a7
lee8
lA.:-19
181 0

1811
1812
1813
1614
1815

~~;7

4551

il102
:51",3

44217
,;439l

31?4

"~H'J0

~i06

1""
4551

~1~5

3107
3tH!
3111
3112

3113
3114

3i15

3116
3117

~0~"

32:16
32217

(' eJ f'll?J

321~

,;',34(3

3211

;1617
"331
1455

~212

IPRINT SUBSCRIPT TO 99
IpRr"lT ")"

IPICI( UP VA~uE
'''RI~T VALUE

OPt

TAn CINC
TAO M2
TAD PT1
JMP TOUMP.1
PRNT
1 eX-MEM)
1 eX;'MEM)

•

00~0

ICT~£St GO IN 10005 rOR X-MEM)
'0'1
IOUTPUT CHARACTER BurrER (AOnR[Ss IS A MULTIPLE or 20)
IOBUF' 8 3120
COMEINaIOBur·Z0 ICOMMANO • INPUT BurFER

COM£OUTaCOMEIN.46
-COME OUT
rRST.
0
/TEXT PoINTER
00210
0340

IDUMMY

0617

Iro

12131211

1455
6162

LI Nt NO I

I ••••••••

ICA

I ••••••••

6162

r~sTX.

3216

7715
IOUMMY e,R.
ITO SAvE TEXT ,SAVE C(BurR), CCLAstv), AND C( 'RST TO C(BU~R»
IwITw ODT-JR46 , T~E TApES MAY B£ tOGETHER WITW
ITHE S~~BOLIC CUMP LAST I "oeAL • 'LoAT • OIALOG I
I~OAotNG T~e: LAST SECTIoN MAY BE CONSIDERED OPTIONAL.
BUF'~EC·t
ITEXT SurrER STARTS HERE.

1715

36~0

:5 M'Jet

PRNT2,

"a~tIJ

5051

NAME

PRtNTC

1~70

31213
31413
3236
3236

3213
3214
n15

F'X!T
J"1S I "OuTPUT
UO CCR

4'3~

1111
133Z
5253
2442
3115

(4)ftrO~(XftMEM»)ISAVE

vETC

45 4 5

PRiNTO
! S! PH
TAD t I'll
JMS t PRNT2

1772
1773
1774

1776
1777
17,8
1179

IjCi. AXOUT
r'lCA XCT
r.F;TC
PR i IJTC
G£TC
PRiNTC

PAGE

:>741

36C1l1

~ 2~0

~6""2

3176

,36(13

7..1",-"

36('14
ilM:5

13"~

4515

I •••• ~ •••

-360<:'

ni.

SEGIN,

H£COVR·1/STARTING ADDRESS
TAn 01 IINITI4LIlE ANY e;rA~l~Y COMPUTER,
DCA STARTe1
NOP/(IOPR£SET' I ••••••••

JMS!
PCLEAR
eli eLL

I ••••••••

INITIALI!E POt~T OISPLAY

•

e. ,

",",wI-4C. "

1816
181 7
1818
181 9

..
H

~~~:-

;'6Il.llGl

V,) ... .)

11",JA"lWfl.

c.)'I(1~

DCA' I f'LTXR

?J57

ISl C~TR/tNITIALtlED BV LOAO.
JMP .,,2 /r:l.r."~ t ~ClUT 8urrtR

~~!.:.

52.16
;2;:11

:t!~2

~,213

3667

1823
1824

:t~~3
~6!"
~~!.5
361~

~263

1825
1826

~62~

62~1

1827

~!:21

1828
1829,
1830
1831
1832
1833
1834
1835
1836,
1837
1838
1839
1840
1841
1842
1843
1844
1845
1646
1847
1848
1849

JMS I

G?774

3f.22

6212

~f.25

4666
3655
6212
4664
6211

/elF' 115 /
/
G7200

~60)6

24~0

24(/10

~621

6211

~63~
~6~1
~6~2

74~0

6211
7'1313

182~

1821
1822

le5~

1851
1852

1853

1854
18"
1856
1857
1858
1859
18621
1861
1862
1863
1864
1865
1866
1867
1868
18f.9

1810

:!6~7

~623
~~24

3633
363"
3635
3636
~637

364Q!

3641
3642
3643
3644
~64'

3646
3641
3652
3651
3652
3653
3654
~655

3656

~651

36613
~661

3662

~_262
367~

6212
JMS I

RITEOU

tAo

ERT

GUll;

cUi
5712

;'175
'716
,,7',

C57'2,
C5713,
C12:H'I,
G1173,
C7774,
C1715,
G1776,

101

5172
5713

'2U
7113
7'174

""
"'6

C7177 • 7111
.46('1(.1·2VJ
rEX!:!,
GtTSGN

462"
J~45

;71P

....

/01F' 10 /
(;7775
/
/

/
/
/

-cUll

/
/
/
/
/
/

,.1

. .. ... _.. -

ERASE ALL

/
/
/
/
/
/
/
/
/
/
/
/
/

/
/

•

IT AKE ABSOL.UTE VALUE

SPA CI.A

- .. ---.

WRITE MiLDRED INTO UItPEA
SOuRCE WORKING AREA
IN i TI AU it CLOCK

321
76
2
U13
25

r'~2J1

7714

/
/

urou; 1113

GBI.OI<.

TL.S

ION

/OOF' 10 /

CLLR
_CLSA
CLA
JMP

/
/
/

/cor s.e /

Cloi Clot.

CI.18

/
/

CI.£f..I

.'1"' '

~66?

G7177

/cor 0

CL.LR

,,025
i\"23

7773

(;5173

4011l

"0"'2

~665

•

JMS I

6211

,,930
1'0'6

:\f\66

'4620
4621

GSLOK

5650
2216
;: 11"

72A13

DCA 1

G5772
G7176

6201

61346
6 iHlI 1

3664

G1775

DCA I

........
........
........
........
........
........
........
........
........
........
........
........
........
........
........
........
,.!t........
••••••
........
........
........
........
........
........
........
..........
........
........
........
........
........
........
........
........
........
........
........
........
........
........
........
........
........
........
........
........
........

/ •••••••• F'IX UP DIAl. 1/0 ROUTINES

/e IF' CDr 1;'1/ ........

Dci t

, TAD

;'4211'1
6212
4667
3651
6132
6134
7243
6133
1261
6132
6135
72CHlJ

5713

CI.A
6213
tAD

3671

~663

~6;""
36h

T12.

PA_Ut. •

3414

.,"

- -_ .. +._- .-

•
._---".

•

I,
'

IrOCL12.~
1871
1872
1873
til74
1675
1676
1877
1878
1879
18~0

1881
1882
1883
1884
1865
1886
1887
18aS
16'89
1890'
1891
1892
1893
1894
1895
1896
1897
1898
1899
19rJ2I
1901
1902
1903
19,,4
1905
1906
19117
1908
19~9

191"
1911
1912
1913
1914
1915

1916

191 7 .
1918
1919
1 920
1921
1922
1923

1924
1925

•

'~22

'~~3

)

:14l.1C
4724

(~'5

4 6 ~ f,

~67'5

(!2;
4632
4~H

46:!2
46:!3.

4634
4635
046H

4637
4640
"641
4642
4643

"644
46'"

"646
46<17

4651"
4651
4652
4653
4654
4655
"656

4657
"660
4661
"662
4663
4664
4665
4666
4667
46;0
46h

"672

46;3
4674

4675

L.G2E
I!'PuT 1 X2
F'£)(T
JM~ I INT!:GER
DCi F'L.AG2
F'1"1T
F'NCR
F'PUT I XSQ2
F' GrT t X2
F'Su9 I XSQ2
·F'PuT 1 X2
rMUl. I X2
F'PUT 1 XSQ2
F'ADO OF'
F'PuT TEMP
F'GrT CF'
rDiv TEMP
rSu9 I X2
rAQO Ar

;:J::l~

6676
,675
2676
6675
4675
6676
13U
6326
3~5

3326
2675
1277
6326

tAD rL,AC

21<333

lSi T3
RETURN

DCA rL,AC

5536

~Z0Cl

2372

"J04

rr~T

rF'uT I )(2
rGET ONE:
F'Div r X2
n':XT
RETURN
ICONSTANTS rOR rEXP
X2,
X
XSC2;
XSOq
Ar,
0"04
2372

4701

1 4~' 2

8F',

4;0(1'3

H74
"157
Vl12

CF'.

4;!"4
4;~5
4;~6

4;?,7

14~2

5151

"'454

343

TAb F'l.AG2

1~44
3~44

5321

fNT£C£q PAqT

ISAvr loOIo: OR!:'ER DATA

r£XT

:}3~~

1325

~325

/TAKE'

F'GrT SF'
F'MUl. I XSQ2
;AOO TEMP
F'PuT T[",p
F'GrT I X2
F'Oiv TEMP
FMUl. TWO
FAOO ONE:

4616
1326
6326
,)675
3326
,,321
,316

5536

X2<~'

•

rPuT TeMP

,'302

': ~J(lO

PACe: 1-34

PIUL

,~ ;! ~~

44t'11
6675
:'316
3615

2310~

n~T

4453
3325
4407

4676
46;7

4;n

11;J~'1.71

J'1S ! N£GP
r:A T3 IC(SIG\!)"l IF' I

3,133

44;'7
4313

4~t4

V\' ;'3

7774
21'j7
5157

Q!@12

5454

~343

--~

IrOCL12,.
1926
i:"!
19?7
4hl
1.928
4h2
19~9
193~

4H3

:" lAL.1C

V ~~:'I3

11:'JAN.71·

Cl~7

OF',

QI~~7

2566
5341
'.W1

19:51

ishS

?1r.5
2435

1932
1933

4h6
4h7

2P0~

1935

4;21

"rH""
0132

1936

4,'2
4;23

1914

1937
1938
1939
19411J. •

1941.
1942
1943
1944
1945
1946
1947
1948
1949
195B
1951
1952

1953
1954
195'
1956
1957
1958
1959

1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1911
1912
1973
I.~ .. .-

1~,5

1976
1977
1978
1979
19a.0

4;t4

4;~0

. ~H~l

2566
5341
L.G2~.

t10~1

0-':£ •

21ilJ5
2 4 35
(:\2'01

TWO.

5163

4725

~ 0210

r..EGP,
F'L.AG2,

4;26

:'00"

TEMP,

4;31

4732

'J~0Pl
i' (I.I\)"
,~ 9Q1~

4407
J615

3021Pi
~~"'2

F'N£C
0
0
11!

/IJ.AIN ALGORITMM
rOR ARCTANG['JT
'"
A~CALG;

rIt.jT
rCrT I )(2
F'MUL I xt
rpuT 1 )(S02
F'MUL. BEn

4;33
4;34
4;35
4;36
4137
4;4A
4;41
4;42
4;43
4;44
4;45
4;46
4;47
4751lJ
4;51
4;52
4753

5'754

"'54

5C!!24

4755

r·il~(1

2437

1643

4;60

1643
;777
3304

4;56
4;57
4;61
4;62
4;63
4;64

41(.'

i·)~

4675

66'6
4374
1371
4616
1366
6326
.1363
46'16

rAOO BEU

rMUL I )(S02
;AoO BETe
F'PuT T£M"
rcrr . AL,F'2
F'MUL. I X902
'ADO AL,F'l
F'MUL I. lCSQ2
F'AOO AL.ri!
F'MUL. I X2
F'O iv TEMP
F'[XT
JMP 1 ,*1
ARCFlTN

1360

46'16
13155
4675
3326
\'~0""

/Co~sTANts • '~OATtNG
0~31lJ
A~'i!'

AL.F'1,

7771

AL.F'2~

4434
1113

4434

;773
lJn6
~4~4

:- t ~~< ~

~tH\

3306
.5

"If"

N')~

?<\~?

24~'

1646

4;;2
4;;3
4;;4

2427
2323

4,h

•

~ AQiQ!

;775

BET1.

Btu;

ARC TANGENT

33~4

4"~

4t~?

•

2~00
0~00

4;~4

4;27
41JIlI

•

2000
~

2(j~r.

." 'H'

PAGE:

231:2)6

~0UJ

2421
2323
7'1;5

- .. -.-- -_..
_

. --_ .. ---

--.-

...

•

Ie)

\ ..... ..,...

/F'OCL12,:H

Cl~L.1!'!

V)!OJ

11;'JA"'-11

1981
19(12
j99J
198 4
1985
19f,6
19!\7

11;;5

191'18

'Sr(:'3

4363
3>133

191\9
1990
1991

50(}4

44~7

150~5

5rzZ6

6635
2637

1992

I5~Cl7

" 0.0!'l

F'E: )IT

1993
1994
1995
1996
1997
1998
1999
200rl1
2001
2002

'51'10

1~45

CETSGN

201 3
201 4
2015
21316
2"17
2018
2019
2~2~

2021
2022
2t1J23
2024

202'
2026
2027
211'28
2029
2~321
2~:31
2r:~2

'5~.~1

S~~' 2

1<"45
771r

5~11

7'11~

5?12

5221
441217
\'637
3635
6635

5:H3

'5Zi4
5u5
'5~16

"u7
5"'2121

5"'21
5022
5Cl23
'5024
5?!25
5026

5"'27
5030

5031
5032
5033
5M4
50'135
5036

'5!1l37
5040
'50141

5!1l42
50143
1)~44

'5(ll45
15046

150<47
15 1'1 5V'l
I5(llSl

&;'-'52
'5~r;3

,'~0QJ

7240
3362
5623
4'fJ2

2362
5634
4407
6635
1636
2635
:~k!0QJ

5634
531211

5321
5315
4716
H'!45
,4511l
4566
;110
4566
4401
6156
2637
:'CQ!g

1045
7450
5536

'5054

'7(J;~

111,,56

<;264
4407

'5057

637

t;,~

2033
203 4

"506"-1

3756

2035

15061

6756

.5:·~~

A,; T~ •

GE:TSG"-:

IT AKE ABSOLUTE VALUE

SPA CL.A
JMS rNtc
DCA T3
rI'lT
J'PUT 1 )(1
F'SuB 1 CONi

SPA CL.A
JMP GO

IL.ESS THAN ONE

F'INT
F'G£T 1 CO~1
rOlv t )(1
F'PuT I 1(1
r(XT
CL.A eMA
ISIG~ F'LAG or RESUL.T
DCA F'LAGl
GO.
ICALL ALCOR I THM,
JM~ I ,·1
ARCAL.G
n~e: TLIRN ~ERE
ARCRTN; IS! F'LAG1
JMP I EX I Tl
F'I "J T
rpuT I Xi
rGET I P 12
rsuB 1 )(1
n:XT
JMP I ,.1
EXlTl, £xiT2
ICO'4sT A"ITS rOR A~CT ANGt'~T

Xl,

PI2.

PloT
ONE

CON1~

n.oe,

GETSCN

IF'L.OATING LOGARITHM

SNA

ERROR3
SPA CL.A
ERROR4
f'INT
F'PUT I TE~

F'Sue ! CON1

In~o

ARGU£'1£NT rOR L.OG

~"~

rE)(T
GErSGN
SNA
RETURN
SMA CL.A
J"1P STARTI.

run

F'GET ' ! CONi
F'Oiv t TEM
f'PUT I TEM
_ . ___ ••

2~12

"i~~'l!

2011

IrLOATi'G c::"'INT .\RC TA"r.~"'T
5l2e'

2h"

7h2

20~9

3427

~427

; ~152

2rl104
200'
2006
2007
201218

I'AG£ 1 .. 36

2~03

4;;6

23136

_ ,,,,_,'

,,,,,.·.~"<'L"

1F'IOCL12. ~.
2:'36
2037

,'2

2""~9

1::"65

5::'66

2~63

2£064
2365
2066
2067
2:'168
2~69

2Yl721
2~71

20'12
2073
2074
2217'
2076
2077
2078
2'-179
212180
2081
2~82

5,' ;2

50;3

~r.4

11",;4
1I~;5
5~;6

44\)

~;'h

435

151"'5

135
4'15

5ii0
5111

4756
1342
4756
1331
4'56

!51~6
5H~7

134'

5112
5113
51i4

5115
5116
5117
5120
5121
5i22

1"334

4'56
i331
4756
1326
4756
1635

5123
5124
5125
'5126
5127
5130

~ HIe! 21

5634

"~0"
3777
4r.00
4Ul0
;777
2517

5134

5135
5136

;776
4113
7211

'.5140
~i41

:.~

4t-

""210
3717

L2,

"'77

.,., '2

4000
41210

L3.

!,31C~

151.37

;776
25~5

3301
;'75
,-'
•

.~.

- '':
.

.~'o.

F'MuL. LOG2
F'PuT 1 )(1
F'GrT I TEM
F'SUB J CON1
F'PuT 1 TEM
F'MUL LOG8
F'4(10 LOG7
rHUL J TEM
F'AOO LOG6
'MUl. I TEM
rAOO l.OG'
F'MUl. J TEM
F'A60 l.4
F'MUL J TEM
F' AM L3
F'MUL 1 TEM
'ADO\..2
F'MUL 1 TEM
F'ADO L1
F'MUL J TEM
F'AOO 1 Xl
F'Elt T
JHP 1 EXIU

L1,

7742
;"177

5131
5132
5133

uCA F'LAe·l
DCA F'LAC.2
!:lCA F'LAC.3
lAC
DCA I TEM
rI~T

,75
263
675

51')3
5124

f'Ci T3
TA~ P13
DCA F'L·C

uo I TE~l

3'15

i51C2

n: lC of
eLi. c....
C~lA

7~C

15101

2~e6
,':<~;:·:;.9

STA~TI. ;

liZ;? 4;55
. 5100
663

'.5 42
5 43
15 44

l1;JAN-?1

)','14

;,'4
175
3"4
3;l4

0;;-67
~~;0

2083
2084
20S5
2Vl86
21"87
~~s"

V~"3

724
~i'3

2~4'

21:'156
2057
2058
2059
206"
2061
2062

J:'(l\

2"41
2042
2043
2:'H4

2055

'5"~4

U'40

21!46
2P'47
2:;'48
2049
20521 .
22'51
2Q152
2€53
22'54

";\

15:'!-3

2~38

tAP"

L4,

.,,77
2517
~310

7'176
4113
'1211
ILOGARiT~M CONSTANTS
,776
LOC'.
2535
3301
7775
LOG6.
"/111.6
~;1il

2311i'J6

PAGE

•

IF'OCL12,:t7
2Z91
2\;92
2Pl93

51SC
"5151
"it52

2!!'94

-;i1:;3

2~95

"5154

21396
2M7
2:198
2099

11~JAN"71

;174

L~G1.

7771
2'-'6

22~6

43,'14
;171

'0£l~

F'I.AG1,

,', C'~ ['!

F'~e:G.

15170

5171
51';2
l5i;3
51;4

4451
7240

5163
6213
5126
6213
5130
6213
5132

HU
2115

2116
2117
2118
2119
2121a
2121
2122
2123
2124
212'
2126
2127
2128
2129
213Q1
21:51
2132
2133
213 4

5117
4407
520~
6321
5201 ;-315
5202 2321
'5203 \)0""
5204 104'
5205 7740
52016· 11)214
5201 1045
5211i] ;70ill
5211 5'36
4451
~212
~2i3 ;e43
'5214 3t1133

21:55

;"~00

'5171

5215
521.6

5217
5220
5221
1}222
5223
.,224
'5225
'5226
~2?7

., '523(IJ

5231
'52:52

44707
331:'15
6325

4453
44fi'17
701:'10

6321
,'325
7321
4305

6321

,~311

. ~0e'

PAGE 1.38

4j}!4
1711

1735

TEM,
L::lG2,

1316'"

23106.

4544

4126
" ~eO!
2613
4414

'5162
'5163
5164
'5165
5166
5161

2136
2131
2138
213 9
2140
2141
2142
2143
2144
2145

LOGS,

'51 ';6
';157

21~1
21~2
21~4

V·'.; 3

.i 735

!5161

210'
2106
2101
21f1'J8
2109
2111a
2111
2112

:d ALP

'5155

212'0

21.,3

(.
TEMP

2613
4414
t':
~

JMS I MINSKt

CL.A CMA
JMP I PNEG
6213
lelF' CDJ:" tel ••••••••
LO.
JMP
XL.O
6213
ICJF' COr
Le.
JMP
xU:
6213
ICJF' cOr 10/ ••••••••
LL..
JMP
xL.I..
IrL.OATi~G POINT SINE AND eOSIN!:

I··.···
..
1"'/···
••••
•
I.·.·
.....
I........

.5177

F'cos.

F'SlN,

F'tNT

ICOSeX)'SINCP%/2;X)

F'PuT X
F'GtT PlOT
F'SUB X
F'ExT
CETSGN

SMA SU CLA

JMP MOD
GETSGN
SMA CL.A
~£TURN

JMS I MtNSKI

IYES SlNCe)8" ,

INOISINC;X),;SIN(X)
DCA T3
IRE:DUCE X MODUL.o 2 FI

CMA

MOO.

•

F'lNT

TWOPI
F'PuT XSQR
F"OjV

rExT
JMS I INTEGER

F" I ~lT

rNOR

rPUT X
rGe:T XSQ~
rsuB x
F"MUL TIoIOPl
,,"PuT X
rSU9 PI
rExT

IX<Pt1

. ~ "'" ~,~

""'" '''''M,'

IF"OCL12.
2146
2147
2148
2149
215"
2151
2152
2153
2154
2155
2156
2157
2158
2159
216r1l
2161
2162
2163
216 4
2165
2166
2167
2168
2169
2110
2171
2172
2173
2174
2175
2176
2171
2178
2119
218(11
2181
2182
2183
218 4
2185
2186
2187
2188
21a9
2190
2191
2192
2193
219 4
2195
2196
2197
2198
2199
220(11

:s_

etAL.l!'
.33 .1. :J 4!5

5;:>34

;111~

1)'~5

5244

152H
15237
1!j,4:l
5?41
15'42
5243
5244

1033

5245

.321
2315

5,46
5247
1325lll
5251
5252
5253
15254
15255

5256
5257
5260

5261
5262
5263
15264
5265
5266
5267
527~

52h

52;2
52;3

152;4
152;5
5:;!i6
5211

44:.1'7
6321
:l\:Jf}
7;'4~

3033
44~7

.~~2'

1l(PI/2'I

F'GU PI

IstN(X)~SrN(Pl·l()

4407
('321
3h5
6321
4321
6325

PALG.

F'PUT X
F'MUL l(
F'PUT XS"QR
F'G£T C9
F'MUL .)(SQR
F'AOO C1
F'MUL XSQ~
,AOO C5
F'MUL XSQR
F'AOO Cs
F'MUL XSQR
F'AOO PlOT
F'MUI. )(

4~25

1315
4321

3235
~·"02

~~13

31H'1
3'56

l5~t5

·AI(1] 1

15~16

311"1
3756
3235

rOiv PlOT

,~331

!-Bel3
3110

F'SuB X
F'PuT X
r£lCT
rtNT
F'C[T

4325
1335
4325
1341
4325
1345

5536
4451
5536

•

SIGN

;;311
~00"

GEi'SGN

:?321
6321

5310

•

/INVERT TH£

IVEs

3156

15311
'5320

/YES
It-JO, SlN(X~P!)·.SIN(X)

INO

5306
5301

5~14

rtNT

i1~~0

5311
5312

PAGE.

526~
44~7

2"'33

53~5

23106

SPA CI.A
JMP PALG

53~QJ

5303

11;JAN·'1"

GETSGN
SPA CI.A
JMP PCWECK
F' 1~~ T
F'PUT X
F'£XT
TAD T3
CMA
DCA T3
\
PCHECK; F"I'ilT
rGEf )(
F'SuB PlOT
rEleT

H345
'77Ul

5321
15332
5304

v;,!I'3

EXtT2,

rEXT

lSi! 13

RETURN
JMS r MINSKI
RETURN
Ico~sn\jts AND POINTERS
TWOPI, ~003
3110

3156
3235

PI,

/C3155) .. "OR 4.WORD

~0~2

3110
3756
3235

~2~5

PlOT.

.. _ .... ---

0~~1

3110
3156
3235

- .-- ._._ .•.

IUSEO BV Sr~[ AND COSINE

•

. . . . . _ '0._.______. W____ ..____ .... __

•

22~S

22r9
2210
2211
2212
2213
2214
221'
2216
2217
2218
2219
2220
2221
2222
2223
2224
222'
2226
2227
2228
2229
223121
2231
2232
2233
2234
2235
2236
2237
2238
2239
22421

2241
2242
2243
2244

2245

2246
2247
2248
2249
2250
2251

VW3

11:JA~:

~ ~ 2!.

. :tc

,,"' ......

~:t22
~~=!3

~ C~~

1l3~4

' ee"

5331 ';164
~332

;\~15

15~35

1771
5464
5514
6150
7715
2431
5361
4736

5336
5337
534~
'5~41

5342
'5343

5344

XSQi1~

13345

i' Ill" 121

5325

f·l,
fI.
I

\~1i'I0~

'SI'IE CONSTANTS

C9,

7164

'25"'1
7015
112142
1711
5464
5514
615121
7715
2431
5361
4136

C7,

C5,

el,

01210121

,~414

3161

;

0000
0000

1~42

5:H6
15347
5350

~0(1!3

2501

5333
15334

,lEND or

5325
0414
3167
EXTENOEO F'UNCTIoNS.

0 1 , EXPRESS IOI\j
ISETS ClOC\( ACCOROING To [xpr:tESSiON

'HA~oLU

5351
5352
5353
15354
5355
15~56

5357
15360
15361
13362
15363
15364
15365
5366
53~1

53721
13371
5372
"1373
5~;4

53i5

5~;7

2253

"0~0I

, ~:! 3 2'

•

;11?? .J

N11Zi3

PACE 1-40

, .~lle
. ,"'J '"
~"'"
:0r'~

231~6

Jr..' c,. ~ ....

:~~:,

~:!26
~327

1i!:t25

5~'6

2252

,:lAL1;-'

,F'OCL12.31
22::'1
22,"2
22,'3
22;04
22(;5
22r.6
2207

4'40
1612
4407
43"

Se:TCll<; PUSHJ
rINT
rMUl
rEXT
CLLR

6132
6134
4453
6133
72('10
1 ~"~6

"1. ....

04600

1314

6132
;200
5773

1M"

C102l

1123
6134

46?0
:007
47JC

MHUNORO

Cl.A8

6132

:"611

,I........
.•••••..
........
,........
CL[N
INTEGER ,........
JMS I
I.·.····.
,
........
CLA
TA6
I.·.····.
,
........
eL.lR
C211l"
TAO
.. •· •.
,,I.·........
CI.£N
........
TAO
,
........
CL.LR
,
........
eLA
,
........
JMI' I
PRne
.. •· ..
,,I.·........
,
........
EVAI.-l

:: ~(H'

........
,,,........
........

•• 1

046N~

46~""

f.\IoiUNORO. 714700 J 0

II'AG£ 1 • iNPUT IOUTPUT ROUT I ~J£S F'O~ THt F'OCAl
POINT PACKAGE'.
1F'L.OATi"iG

(

lIN tHE

225 4
2255
2256

I
I
I
I
I

2257

2258
2259
2260
2261
2262
2263
2264
2265
2266
2267'
2268
2269
2270
2271
2272
2213
2274
2275
2276
2217
2278
2279
2280
228 1
2282
. 2283
2284
228 5
2286
2287
2288
2289
2290
2291
2292
,;:294,
2295

2296
2297
2298
2299

54(,!0
'Z~6

54t'J

"Gl0~

S[rORE otCI~AL POI~T

INUM9t~ or O~ClMAL DIGITS OUT
OIGnh6
TGO,I 0
ISAVE MAX~ NUMBER or ~IGITS AVAILA~LE • -SET C~UNTS.
DCA SCOUNT

1~52

TAD F'ISW

54213

4557
'122
3032

RTl6

154it'l

5411

5412
15413
1541'"

5415
15416

15411

ANO pH

DCA T1

1~32

TAD T1

71il41
;453
1326
3335

CIA
SNA

INO, COMPUTE F'tELO SIlES

tAo MO

OCA F'COUNT
tAo F'l Sw

1~!52

;450
5241
"1122
3333

SNA

JHP R6

AND p17

ICJHP FPRNT) • FoR NO ROUNOGIN.
"~O'TINC OUTPUT'
'/Y£S. ROUND oF', TO MAX.NO. PLACES

DCA DEep
TAO FCOUNT
TAO DEep

1335
1333
;51'3
5230

SPA
JM?

I ' .. 0 ) 0 1
/YEs

'5424

;240

.*5

15425

let32
3333

DCA

otcp

IMAKE 0 II '-1

5423

15421
15422
5423
5426

15427
'5430

5431
15432
!5433
15434

15435

CLA CMA
TAO T1
CMA

1033
;50£1

TAO T3

ICO~~ARE

SMA

CLA

72"0

1932
,510
5263
1.326

/YES

JM? 'PANTw2

IYtS. NO ROUNOING NEEDED. GO TO PRiNT
INO, ROUND TO 0*[ PLACES,
ITO A MAXIMUU or 0 PLACES

SPA

TAO 1'10

,5o",

SMA

1)440

;2~l0

5441
5442

1327

el.A
TAO RN02
DCi. T2
TAD I BUF'ST
TAO 't'2
OCA PLC[

3071
1731
1011
3336

2300

'5447

2302
23",3
230 4
23.'5

7041

15450

~LHl

5451

1325
2736
t736
133:;'1

C;452
~4153

5454
15455
5456

•

1~'1

"1~

5265

RET.

DECIMAL EXPONENT
r .. n ) E:7
INO, ROU~O orF TO ~F PL~CES

TAO T1

'5436
111437

'5443
t;444

INO,

7214£1

2:3~1

2307
23?8

~~INTED

.54;10

3334

5405
154"6
54""

_"1510

.oECP
a II NUM8F'R or DECtMA~ oLAcrS
-soP
E - DECIMAL Ex?ONE~T
? = NUM8E~ OF PLACES ~E~AI~ING TO sE

54~1

5445
15446

23il6

COM~[NTS 3E~O~I;

r D NUMBrR or QIGITS ~~ BE OUTPUT

5432
~4~4

•

231~6

IF'OCL12,.

TAO T2
CIA
DCA T2
TAD 1<5

ISl I PLC£:
TAD I PLCE

TAD OM12
SPA CLA

JMP F'PANT

o.t < '" t

-ROUND

U, •

Is'vr NUI.IB£R*10r PLACES TO qOUNO TO.

ISET U' BurrER ~DORESS
W~ICM
IROu~O~NC OF'r S~OULO ST.RT
ISET UP COUNT OF MAxfMUM NU~8ER

lor CARRIES ALLOwABLE

ILtTTI.£ EXTRA ON FIRST DICIT.
IAOO 1 To DIGIT AT CU~RENT POSITION
ICA~~Y REQUIRED?
I~O. GO TO ouTPUT

•

, /

IrO~L12."

;; tALl G

23:1 9

~4~':'

2~121

! t ~ ~

"~11

S;l~:'

5321

!"~2
~4~3

. . ,36
2"'33

2:'H1
2312

2313
231 4
2315

231 6
2317
2:318
231 9

2320
2321
2322
2323
2324
2325
2326
2327
2328

2329
233"
2331
2332
2333
2334
233'
2336
2337
2:538

2339
234"
2341
2342
2343
2344
2345
2346
2347
234B
2349
2350
2351
2352
2353

72i..·(iI

,="~5

! ~c52

~'H
~'~7

165!~

5471
5';2
~d3
'54;4

54.;5
54.;6
54;'
55~~

55£l1

5522
5523
5115114
55~5

15.536
55;.17
5510
5511
1!S5i2
5513
1551.4
5515
5516

;2~e

i~;52

1f;'101

'5'526

5252
:'El04
;772

5527

:1~~7

5530

7766
615(3
6154

155:31

5532
5533

5535

;

~0"
.' 0fl(,:

~. ~'" £I

5530

!'5.36
5537

:' ~~!~

4132
233;

2~59

1)540

2360
2:561

5541

5736

5542

56~C

2363

'5543

HI40

5544

236~

BACK;

;710

3336

1033

DCA r Pl.eE
ISl T2
JMP DECR
lSi! I "LeE
ISiZ T3

lyES, MAKE CURRENT OIGtT 2t~o
laEGINNI~G or BurrER QEACHED?
1'-.;0, OECR£~E~T BUFFER ACDRESS A"JO REI'EAT
lyES, SET MANTISSA TO 0,1
ICO"lPENSATE BV INCREMENTING EX~ONE~T

TAD rtsw
CLA
.,IMP FLOUT
TAC FCOUtJT
TAD T3
SMA Si!A
JMP FLOUTe1
TAO DEC!'
SMA
el.i
cli
TAD T3

qEGISTER ALREADV SET, ;. .P~tNh
I , a 0 7
IYES, OUTPUT AS FLOATING NUM8ER
IAUT~~INOEX

I £ )., ?
IV!::S,CONVERT TO E rOR~AT

I E ( "'0 7
INO, TAKE I' .. E
lyES, TAKE P " F.O

CtA

7650
534;5
1232

5524
5525

2355

2358

1333
;5elfJ

5'523

5521

'.1'534

2357

5355

;a41
1"133
72141
3r.32
1M!33

231216

CI.A

!'AGE 1.. 42

11;'JAN"'l

SNA

1335
lJ33
754(3

5522

55i7
55~~

FPRNT,

'5356

lU5
4336
2eJ32
5303
1102
4551
5303
;:H0
1336

2:554

23S6

3136

~H4

'54;;:

v~~3

tN,

OECR~

K'.

HO,

RN02.
OM12,

BUF'ST,
OF'UT;

DEep,

DCA 11
ISET UP MINUS P
IpR I '-IT 00,'000
TAD T3
TAD T1
I P , t 7
SNi CL.A
Iyts. PRINT olGIT
JMP DIG
INO,
TAD 11
lAO
I P ) 1 ?
SPA Ct.A
tAo M2" IYES. TAKE SPACE C240.26~)1 OTIo4ERWlSE ZERO
IpRINT CHARACTER
JMS OUTA
IP C~ARACT£RS PRINTEO?
lSi! T1
INO
JMP 8ACl(
TAD PER
IYES,
PRiNTC
IPR! '-.IT O[Ci MAL. POINT
JHP BACI<
CMA
IBACKUP TO TOP 0;: BurFER,
TAD pl.e£
Dci PIoC[
JMP RET

"
.

SCOUNT;
'"
FCOUNT; c
PLCEa.f
..
aUTA ~
JMS I OPiJT
ISl F'COUNT
JMf:) t OUTA
JMF'. I TGO

otG,

"OtGITS
DIGHS·1
·12
SAOR
OUTOG

eMA

to\O T3

I'iQDlrUBL.E I.OCATIONS

IMOOtF'IEO REGISTERS.
IPr:tI~:T

CHARAr:TEFI

Ir C4ARACTrRS PRINTED?
INO, RETIJRN
lyES. NUP-'BER rtNSHEO
IREOUCE E, BV 1

DIALlr

IF'OCL12 • •
2364

2365
2366
2367
2368
2369
2370
2:511
2372
2313
23,4
23"
23,6
2317,
231S ..
23'9
2380
2361
2382
2383
2384
2385
2366
2387
2388
23S9
2390
2391
2392
2393
2394
239'

2396
2397

2396
2399
24"'"
24~1

2402
2403
24('14
2405
24P16
2407
24CB
2409
241"
2411
2412
2413
2414
2415
2416
2417
2418

11-JAN .. 71

VZ!"3

2310~

~:~33

I5S46

:< 334

tSiI SCOU'~T

.. 353

JMP ,.4

14f;1E

5547
555:.'1

7\14 !~

C"1A

S551

3334

'5'552

'5313
1414
5313

DCA SCOUI~T
J~I:I IN
TAD I F'LTXR

INO
IYEs.

15553

'5554
1S555

72a~

5556
5557
1Ij56Z
1Ij561
5562
5563
15564
5565
5566
15567
55;0
55h
55;2
55;3

4132

!~74
~!5;5

5576
5d1

1122
4551
220(11
1414
4336
2334
5362
,"4Pi
3334
5363
(:090
1045
3~5"

U4S
;710
4451
5171
56"~

56111"
1J601
5632
5603

5604
!11605
5606
5601
5619
5611
5612
56i3
1J6144
5615
5616
5617
5620
5621
'5622

5623
5624
15625
15626
5627

•

ilia""
3046
3U4
3"45
304'
3314
:H'50

,066
1264
745f'
52211l
1111
;648
5221
'~40

3""0

4666

1966

1265
,65l'1
5220

4227
56"0

:~,~00

PAGE

DCA T3

JMP

ALL SIC.

I~ESET COU~T

nGs. USE01

•

TO ~1

/AND LEAVE CeAC)

ITAKE NExT DIGIT F'ROM BUF'Pe:q

100 F'L.·OAT IN G au TPUT

HOUT.

JMS I OpuT

145 PER
PRiNTC
lSi T(;O
t~,!l I n TXR
JMS OUT A
lSi! SCOU"IT
JMP

.-3
Dci SCOUNT
JMP ._5

CMA

II' OUTPuT TOO LARGE.
IPRINT "0"

IPRINT " .• "
IsteCND ~e:TURN
/TAKI\: NEXT DIGIT F'ROM BurrER
IPJ:tPIT IT
ITEST rOR £~o OF' INPUT
lAND REPEAT
IOUTPUT EXTRA cEROS.

ABSOLV; 0

TAO HORD
Dci SIGNF'

TAO HORO
·SPA CLA
JMS I MINSKI
JMP 1 ABSOLV _
loouRLr PRrCISION DECIMAL-SINARy
~lNPuT AND CONVERSION roA • oR _ XXX '•••
.56A0
OECONV; 0
DCA LORD
DCA EXP
Ic£RO THE EXPONENT AND
DCA MORO
IINITIALIlE rLaATING 4C.
DCA OV £I:! 2
·"ocl ONUMBR
DCA SIGNF'
TAO CHAR
,ALLOW KEVBOARD SJGN CHECKS.
TAO MPL,US
SNA
JMP
I.SIGN' GET NEXT
TAO 112
IC"I[CI< - SiGN
Sli CLA
JMP •• 4
CMA
lIN IT ,SIGN CHECK TO pas.
OCA SIGNF'
JMS I XINPUT
IGtT NEXt
TAO CMU
IA SPACE PERHAPS?
TAO MSPACE
SNA CLA
JMP •• 4 .
JMS otCON
JMP I D£CONV
OECON, ~

,.,

.. - --------------------_._-

•••••_

•

_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ • - - . _ . _ •• 0 • • •

•

•
.:...

2419
242'"
2421 '
2422
2423
2424
2425
2426
2427
2428
2429

563ft

15631
1)632
5633
'5634
5635

",621
4561
5627

2459

'5;c:lt!!

2435

2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
245'"

2451
2452
2453
2454
2455
2456

'563~

4315

57\11 4~33
2461ll
, 2461
'5702 4315
G)7l'l3 1.313
2462
11)7:')4
3!H3
2463
246 4
570' 3"'42
5;rt.6 3(~41
2465
c;; i?17 433:5
2466
1312
2467
57H~
5;11 5667
2 468
2469 ,
I5H2 .. ;:1~"i
.iJ~'~~
2470
ISh3
15714, . N':1 .
2471
2472
sh5 ,;1 Y'''
2473 ,,'".,h 6 tH7

OSAvE,

F'AGE 2,.44

l1:J"~ .. l1

2311')6

fA:.! CHAR
T'O MINE

/TEST LEAD CIotARACTER F''O'>I

S~jA

76521

2457
2458

2431
2432
2433
2434

V:~~~3

t066
1262

5247
5637 11'1,54
5640 3313
5641 4261
5642 2314
5643 ;640
'5644 4566
5645 01666
5646 5230
5647 11366
'5650 1112
5651 7710
5652 5621
5653 1~66
5654 1263
5655 7140
5656 5627
5651 1066
'5660 ,122
'5661 524'"
5662 ;413
5663 ;446
5664 7525
'5665 ;'40
5666 \~'156
5667 (''''00
5,6711! H!41
56h 3043
5672 1046
56;3 :5~42
56i4 Hl45
5675 3041
'5676 3312
156;7 4315

2430

'..

DIAL1~

IrOCL12.~1

Ie'

(e
Cl.A
J"1P I OEeON
TESTN
JMI' I OEeON
JMF' OTST
TAe SORTCN
DCA DIGlT
JMS t-IUI.T1:1l
lSi! DNUtoIBR
Si!A Cl.A

T£R~tNA.TOR

IE
I.

IOT~ER

IN
lyES
IREMA IN MUST U
leo U\J TOt Gt TS

Sl~C£

OVERrL.OW IS CHECI(EO

IINPuT.OvERF'LO ... ERROR
XINPUT
JMS I
ICONTI NUt
JMP DECON·l
IAI.LOW A;Z
TAO
CHAR
OTST.
TAD MINUSA
SPA eLA
JMP I OECON
TAO CMAR
TAO MINUSi!
SlA SMA Cl.A
IUSE SIX BiTS'OF' ASCII
JMP I OEeON
TAD CMAR
AND p7'1
JMP OSAVE
1(1532); ,OR AMPERSAND
';'305
MIN£~
..
332
"'lNUsl~
MPLUS, e253
MSPAcE; .ura
XIN~UT; lNPUT
/ROUTIN£ TO ~Ul.TtPLY rLAC BY UN (10)
~Ul.T1C; 0
OV£R2
TAD
DCA OVEIU
IOOUq~£ PR£CISION WORD
TAO LORD
IBY
TEN (OECiMAL)
DCA AC~L
IRtMAIN!REMAINOEq
TAO HORD
DCA AC1101
IC~EAR CVERrLOw wORD
DCA REMAIN
ICALL SUBROUTINE TO
JMS MUl.T2
IMUL Tl PLY BY TwO
JMS MUI.T2
ICALL OOUBLE ADD
JMS OUBlAO
JMS MUl.T2
IAOO LAST DIGIT RECEIVED
TAD DIGIT
DCA OVERl
DCA ACtL
DCA AC1H
JMS DUBlAO
IEXIT "'lT~ I:trMAINO[R
HO REMAIN
/lN AC
JMP I MUL T10
REMAIN; ..."
ISTORAGE rOR DIGIT
DIGtT, ""I
I!NUMBER or nIGITS
D"U~8R; '-'
IMUL TlI'L Y Ov£R2, 1.0~Of i-lORO BY 2
tll,lL T2, 0
TAD OVER2
ER~OR2

. ,A

/
"

,'~:t~~7'-·

,'OC L12.:s.
2474
247'
2476
247 7
2478

2479
2480
2481
2482
2493
2484
2485
2486
248 7
2488 ".."
-2459
249"
2491
2492
2493
2494
249'
2496
2497
2498
2499
2503
2501
25",2
2503
25~4

25e15
2506
25r17
2508
25,,9
251"
2511
2512
2513
251 4
2515
2516
251 7
2518
251 9
2521111

eIAL1"
17 -711'4

5;2~

3~47

5; 11

1l~46

5;22
5;23
'5;24
5125
5;26

7ge.4
~~46

JI.145
7~cr4

5731

3t145
1312
""04
3312

5;33

5;27
~;J0

5;32

15;34

5;35
5736
5;37

5715
0021

73"0

1G.'47

lIiJ43
3041

5;.1.'1

;~04

5;41
5742
5;43

t"46

5;44

5745
15146
5;4'

5150
5;51
5152
5153

5;54

5;55
5;56
5;57
5;6eJ
5161
5;62
5;63
5;64
5;65
5;66
5;61
5;;0
51h
5;;2

5;;3
5;74

1~42

3046
7"'04

,taP;"

,au

l~43

39143
~"4'"

;610

2525

M~~2

6377

6n3
6004

1045

252&

•

RAR

Dci AC1L
TAO OVER1
R,Uil
Dci OVER1

;01"

6"0,1

2526
252 7

DCA .C1H

3"42

,~" 00

;'0rIJ

DCA HOAD
RAL
TAO REMAIN
tWiTH OVERrL.OW
CCA REMAIN
JMP I. DUBLAD
1.'1
ISIo41FT oPERAND RiGHT
ITR!PLE PRECiSIONCI.A CLL.
tAo AC11o!
SPA
Cl.l CMI.
RAR

TAO AC11.

;01"

2522
2523
2524

6Q1M

CIV1~

3041
1"42

4566

•

_INK

TAO AC1~

1"41
7510
71213

5154
5754

PAGE

RAt:

3~45

;3~~

23106

TAO HORO

1"41
;11104
lH2
3312
5733

11;JAN .. 71-

eL.L RAL ,CARRY t~SEqT BIt is
JCA OVER2
TA::' LORD
RAL
DCA LORD
tAb HORD
RAL
DCA HORD
, TAD REMAIN
RAL
DCA RE:MAI"l
JMO I MULT2
/TRIPLE PREc UION ADeITloN
OUBlAC; 21
CI.A Cl.l
TAO OVER2
TAD OVER1
DCA OVER2
RAL
TAD L.ORe
TAO AC1L
eCA L.ORe

t045

600"

2521

Vi'l13

IS! EX1

JHP I DIVl
JMP I DrY1

F'SSERA; ERROR~

.6""3(:'

1~ ••••••• (SUeSCRIPT ERROR rOR '11.£

YARIAB~£.OR ~OT

OErINEO)

IF'LOATi"4G OUTPUT CONYERSIO~ ~OUTINE
F'L.OUTP. "
I.·.··· •• /GETS RID or " IN PRINTOUT
S!<P CLl
LMOD£
6377
OPTR.
PMQe£
INUM~£R>0n
TAO IoiOAD
SMA CLA

I.·.····.

.. _._--.- ........ _....

- ._-'" - ._. _. ,-" -

,._'.'"

.. - .... -...... _,

...

. .... ----- -----_ ....• -

•

- I

"7 "

l"OCL12.~1

2529
2530
2531
2532

2533
2534

2535
2536
253 7
2538
2539
25'40
2541
2542
2543
2544
2545
2546
254 7 .
2548
2549

2,,111

2551
2552
2'53
2554
255'
2556
2557
2558

2559
256121
2561
2562
2563
256"
256'

2566

2567
2568
256 9
2570
2571
2572
2573
2574
2575

2576
2577
2578

2579
2580

2531
2562
2583

!:IAL.1~'

60'~5

6:iH.16
6e07

II.: ,! 3

4551

<1153
611'11 . 3J33
6~t2 '1?144
;!5U
6.~13
. 6~14 5221
6~15

f:>02 •

6~24

61i125
6~26

6Z27
6030
6~31

6fl132
60'33
6~34

6035
6fi136
6037
604111
6041

7040
5225
3145
3'146
1350
3014

6(~53

6055

6056
6~57

67160
6e61
6062
6063
6L1164

1146
'450
5210
1342
7e01

3414
:.'044
1342
2033

;~C."I'"

1146

6~h

3414

60;3

~044

527~

11~tTIALIlt DECI~AL.

E'(PO~.t~T

ITOO ~ARGEIMu~TtPL.Y BY 1/111'·
",..
':>,

F'GOS.

IMULTIPI.Y BY TwO TO POSITION BI T0
IC~£AR OVERF'LOW wORD
IINIT aUF'rER POINTER
ICOMPUTE BITS IN 1ST DIGIT

DCA QUTCG
TAO DCOUNT
DCA EXF
JMS 1 DOuBI.E·
IS! aUTCG
JMP .'?
TAD 1 REPT

ITEM!' COUNT
IS£TUP COUNT or TOTAL OUTPUT

JMP rGo,
TAD F'M12

IIGNORE 1ST i!tRO

JMP ,*'
lAC
DCA 1 F'l.TXR

1121-9

SPA CI,.A

5264

4747

r
,1,
t

flO tXP

SNA

7110

741121

JMP ,.6
OCi. I OPT
Dci 1 R[PT
TAD SADR
DCA F'I.TXR
CMA Cl.l.

4527
2354

70(1 Q!

6072

F'G04.

3044

;:1:133

C~~

1343

61366
6M7

6~.;21

F'G03.

714e!

6(165

•

IAe

11344

5245

6l!l54

tA~ EXP
SPA
JMP rGO!

\:000

61'l47
6t:152

lIS EXP ~ TO 47

tAD T3
JMP F'(;02
F'1 NT
r~ul. 1 TEIIIPT
F'E)(T

6042
6043
6044
6045

6050
6051

CCi. T3

.:~"~

3~54

6~46

IPRlt-.!T ";" OR A SPACE,

TAO M4
SPA SNA CL.A
JMP rG04
rl!liT
F'MUL. I PPTtN
rtXT

;001
te33
5211
440'1
4'152

1w'

SlA

H4~

6Q!t6 . t341
6017 7150
5234
6~2(1
61"21 4407
6022 4744
Ml23

PAGE

SMSP
H.;:: 'SMtN
rQI.,TC
J'1S I ABSOL.2

Hr'I

1334
1336

6~10

U;'J,a' ·71

23106

IROTATE OUT THE 1ST 4 BITS
ITEST rOR 10~~5,0,1·9

IS2 EXF
He' F'M12

IS2 T3

IOUTI'UT A 1
ICOU"lT hE DIGIT
ICOR~ECT REMAINDER
IBUMP DECIMAL EXPONENT

t..lOF
TAll

ICOMPUTE RESu~TANT OR SECOND DletT

I REPT
lSi! T3
NQP
SKP
JMS I M1~PT
DCA. I F'LTXR
lSi EXP
JMP ,113

• ; . ,A

lIE, ,672X10ah .12, • ETC
...

IAI.I. DIGtTS oUTPuT??
INOI CONTINUE

;

,./

IF'OCL12.~.

rI ALH'I

V;W:5

TAll SADR
DCA n. TXR
TAO DCOUliT
JMS I ROUND
JMP I n.OUTP
TAD CHRT
PRINTC
IOUTPUT t~~ EXPONENT
, tAD T3

2584

",74

·t:55J

2585
2586
2537
2558
2589
2590
2591

6::-;5
6,,;7

3,<114
1343
4751

6H"~

56il~

61;)1
6i02

1333
4551

6103
61<'4
6105

;510

2~92

2593
2594
2595
2596
2597
2598
2599
260"
2601
2602
2603
2604

260'
261216
261217
26"8
26~9

2610
2611
2612
2613
2614
261'
2616
261 7
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
263"
2631
2632
2633
2634
2635
2636
2637

6:";6

6106

6137
611~

6iil
6ii2
6113
6114
611'
6116
6117
6120
6121
6122
6123
6124
6125
6126
6127
6130
6131
6132
6133
61:54

6135
6136
6131
6140
6141
6i42
6143
6144
6145
6146

1233

~J4e

3345

;~40

5630

6151
6i52
6153
~i 5.4

6211
5571

6161

•

TAb EXP
ScA
JMS OUTDG
TAO ~ORO

lIH4
;440
4354
1245
4132

~712

54~(l

'!J I'l QI

.1113

45'51
5754
;150
2333

10UTI=IUT MA'HySSA
"Ix~O ~OI~T OONE
I~RI'JT

•

"t"

ITAKE ABSOL.UTE VALUE 0' EXPONENT

._3

5315

;714
;766
1771
6275
5113

TER

ISl EXFI

tAD M1H
SMA
JMP
TAO C144
Dci HORO
CMA

;5",,,

'~144

BUrrE~

PRINTC
tAD HORO

1337

5667
7467

61'57
616i1l

TAO T3
SHA CI.A
tAB H2
TAD SHIN

l045
2044

r2',

IINI'

~AGE)III

ISAVe: • POW(R
IPRINT SIGN

DCA HORD

7"~0

6147
6150

6j55
6156

Cli

1111
1.336
4551

7634

231~6

SPA

;041
3J4;
1033

2442
(·305
'76:5
3215

11.JAN-H·

PRNTi,
CIojRT.
SMS~.

P[Q.
SMIN.
H144.
C144.
~4,

''''12.
DCOUNT;
PI='HN,
DPT,
REPT;
MH'PT,
SADR,
ROUND,
TENF'T,

ISAVE: TENS AND UNITS
IOUTPUT ·HUNOREOS
IUNU:SS HRO

IPRINT TWO DIGITS
JHS r PRNTI
JMP 1 'LOUTP
PRNT
IE (0246) - F'OR AMPERSAND
30'
240-2" I
27'

';'U4
0144
.4

1-10"
1.10~

-12

INUMBER OF' OIGtTS OUTPUT
-OIGITS';'l
PTr.N
lIE I
DIGIT
REMAIN IOVER"~OW 'R('JM It>;TECER MULTIPLV·
MUL Tl0
BUrrER-l
TCO
IACTUAL OUTpllT ROUTINE:

TEN

ABSOt2; ABSOLV
OUTOG,
IOUTPUT ONE nIGIT
TAO C2621

"PR!NTC

RAN"'UI.~

JMP I OUTOG
1150'2333,5733

I·· •• ••••

•

. -,'
l

:.d'.1.1f
6\62

2638
2639
26.;(!
2641
26-=2
2643
2644
264'
2646
2647
2648
2649
2650
2651
2652
2653
2654

2655

26'56
2657
2658
2659
2660
2661
2662
2663
2664

266'
2666
2667
2668
2669
2612
2671
2672
2673
2674
267'
2676
26'71
2678
2679
2681!l
2681
2682
26~3

263 4
2685
2666

1.1 63
6164
6165

t'J166
6167
617(!1

6171
6172

61;3
6i74

5133
1167
3171
117(11
3173
1002
6212

2~BO

6176

6213
5134

6200
6201

sueS2

DCA

SUBS

tAO

. LE"SJ92

DCA

U:SUBS
I. WE: I ;,,"

TAO

6212
JMS I
I Si! I
JI1P I
I.S, .

STOR!T
7

,·1

6213

.62e0

41~6

U!66

6214
6215
6216
6211

sU CLA
Jt-1S I

xJr~

T),O CHAR
TAD M2'0
SNA CLA

1114

7650
521212
47132
1066
1115
7640
5221
411216

INO,

DCA EXP
JMS t RESOL.5
JMS f I NORM
F'l NT
F'PuT I PT1

INOR~ALI~E

6222
6223

i31B

6,31!l

;-t;'!C!O

6231
6232

lJ66

6233
6;34
6?35
6<,36

6237

6,40

1301
764et

5246
41~6

4702
41,14
ltJ47
1~33

2668

6242

3033

6'43

44~7

6~44

:.0430

IIF' CCAC) ! e, USE CHAR
/1' CCAC) NO~8lERO , G[T NEXT
IGtT rtRST c~AR
IIGNORt LEADING SPACES

DCA 13

CHI. lAC

3''''

6221

LIBRARY SAVE

IS AVE NUMBER or DIGITS IN T3

;G41

44~7
643~

I ••••••••

TAb I OPN

6220
6221

6225
6;26

IYES, READ 2ANO GROUP

",'!l'3

3BH
4?"H
4701

jMS I DPCVPT
tAO CHAR
TAO MP£R
SeA CLA
JMP F'1C:01
JMS I XtN

OCi I OPN
JHS I aeoNP

6224

.......
.
.......
.
I.· ......
I.· ......
·~

JMP ,.4

3105

32133

·jt • •

"'!.OATING ~OINT INPUT

F'L.INTP;

62~2

CALLS STORJ~G ROUTINE ro~
S r~(x).

ICIr COr 10/]*~" •• "
XLS
I ••••••••

JMP

·'0"'P.l
7640

M'03
621'14
62""
6206
62e7
6210
6211
6212
6213

........
I.·I.·.......
.... ...
/0'0 •• 0 ••

' •• 0 •••••

F'PNT·1
STORt T; I TSTQR

6200

6~41

2690
2691

.'!'~..;

•

PAGE

23'0"

IUSED BY 8J<

2687

2659

LL'UT,

4775

24"'7
5714
6431

6175
6117

., . '3

F'tG01,

tAD p43

~e:~T

IREAD 'IRST olGIT GROUP
IANO SET "SIGNr"
I[NDED BY PERIOD?

F'iRST,

TH£~

..
-,.,,,,

ISAVE NUMBE:R

TAD CHAR

TAD MINUSE:
sH Ct.A
JMP ENOrI.:S

I"t" RUo IN?

I~O

JMS I XIN
IYES, READ JRO DIGIT GROUP
JMS I DPCVPT
IIt£~ CONVERT DECIMAL (XPONENT
JHS I RESOL5
TAl) OV£R2
tAD T3
IC(SEXP)PLACES To RIG~T
DCA T3
10' LAST OIGIT
ICOMPENSA 1£ F"OR DECIMAL. EXPONENTS
E~OF'I'
F'INT
IRESTORE MANTISS4
rca:T I I'll

IF'OCL 1 2 . 3 _

2692

2693
2694
269'
2696
2697
2698
2699
27Q'1iJ

2,n
2702
2703
2'04
27~5

271116

45
6246
6247
6252
"~51

6252

6253
6254
6255

6,'56
625'
6260
6261
6262

rn AL.1J

56'J~

JMP 1 HI NTP

;,:.'"
44~7

643~

""30

;331
5266
440'

4271
6 430

2'11'

62;4

.;~0"

6275
6216

7715

li ~0f1

ll756

6310

0'43

6303

6:se7 ;335

•

IrJ til tSHED
I, IS TO THE LEF'TI
. IT hlC:S ,10f1JiIl

ts TO THE RIGHTI
IMULTlPI.Y BY 10

CMA

TEN,

TAO T3
DCA T3
JMP END"I.3

0004
2.",0

""00

PTEFIj,

3146

63£16

6301
6302

F'MUL. PTEN
" rpuT I FlTl
. F'EXT
lAC
JMP ,.6
rlG04, F' I ~J T
F'MUL. TEN
F'PuT I PTl
F'EXT

~IHll1l

63"4
6305

63~"

F'INT

2400

3147
3150
H13
560e
5621
H13
5114

6277

SMA CLA
JMP rlG04

5261
4275

PAG~

/TEST DECIMAL EXPONENT

TAD T3
5F1lA

;"40
1033
3033
5246
d:i'4

2117
2118
2119
212it
2121
2722
2723
2724
272'
2126
2127
2728
2'29

2;5106

745~

2708
2709
2710
2111
2112
2113
2'1 4
2716

.1l. .. JAN!l71

F'£XT

CJ0
lZ:5J

6263
6264
6265
6266
6267
62?0
6271
62h
62;3

2'~7 .

Vl'.fl3

00""
77"
3146
31<47

1(3146)

31'0

MINusE; .305
OPCvPT; DEcONV
OCONP, DECON
RESOL'; RESOL.V
OPN.
DNUM8R
XIN.
INPUT
INORH, CHoRM
PH,

• FOR 4.WORD

1(1532) • 'OR AMPERSAND

lEND 0; F'LOA TI NG POINT iNPUT

11 rREt

IUSEO BY H.S, READER

2'3~

2731

2732

2133
2134

21~5

2736
2137
2738
2739
214~

2741
2142
2743
2744
27415
2146

ICALLS LOAOING ROUTINE rOR rILE
IVARIABLES IN EXPRESSIONS, CALLED BV £rUN:si
6311
6311

lJU

6HZ
6313
6314

32'56
4545
4550
1171

.6311
F'NUr1,

trop

Dci

CErc
TEqMSw1

;41C~

SKP

5313

JMP

632~

"'62

I.·I.·.···
..·.....

........
........
I.· •.• · ..
I.·
.. ·· .•
........
I.·
/
/

SO~TC

6315
6316
6317

•

CHAR

TAO

TiTi.;PR

._-

,-4

- .

'- ..

I ••••••••

•

. _..

.. - .. - .. - ."

...

- ..

.. .

- -.- ..

_..

•

r.
,,:

01AI...I. 0

'F'OCL12.~1

2147

2148
2749
2750
2751

2752

2753
2754
2755
2156

27~7

2158
2759
216"
2761
2762
2163
2764"

276'
2166
2767
2768
2169
277f/J
2771
2772
2773
2774
271'
2716
2177

2178
211 9
2780
2781
2782
21S3
278 4
2?,s5
2?'86
2,s7
2788
2789
2190
2791
2192
2793
219 4
2795
2196
2197
279B
2199
28,,0
2801

••

\.... . "',./

4566
6322 4734
63'3 4453
6324 . 3171

6321

6325

1~45

6326 3173
. 6327 j 413
6330 6212
6331 . 4133
6332 5536
6333 1533
6334

6335
6336
6337
6340
6341
6342
6343
6344
6345
63·46
6347
6350
6351
6352
6353

6354

6355
6356
6357
6360
6361

6362
6363
636.
6365
6366
6367
6310
63h
63;2
6313
6314
63;5

"3;6
64~"

64"'1

i6~1

~:~HJ0

PEtAL!...
·PASS.

' ••• l>o •••

GEtc
tAD

l. UP&:.

JMp
JMS

tAo

tAO

CHAR

l.£RR~

1.00.

.." ,........
,........

PASS
CIoIAR
MINCOI1

CLA
l.ERR
JMP
POPA
SORTJ
U.iST-S,
LGO-LLUT
ERROR-

Si!A

1.0

LC
LM

LI.

LS
LO

I.l.lSTt

,~303

317
303
315

ll315

31.

323
3217
MINCOM; ';'254

,........
........
........
,,........
........ JMPS ON SUBCOMMAND or I.1BR xxxx
II.·.······
.•• ·•·••
,,........
........
........
,........
,,I··.·····
........
........
,,I········
........
,,........
........
,........
........
........
/

6213

64 III !'II

.64~"

I F'LOATtNG.POINi' INTERPRETER "OR rOCAL.

~'£lQl0

F'PNT.

64~2

64~3

3~43

1600
74521
56£10

JMP

XI.C

CI. A CLI.
DCA OV[R2
DC,. OV£FU

TAD I "PNT
SNA
JMP

:,..A

LG.

730('1

PUSHA
GETC
SORTC
GLiST-2,
JMp I ·PASS

1413
4'47
6365

5136

6212
JMS 1
1

53"

~"3H

i·

~ORO

DCA

·;640

1'323
;13t'1'
7524
6213

~
~.-

SUBS

1314

456.6
5167
5171
2572
5173
6116
6375
0317

PAGE ~_50

JIS

12166

;712

23106

l1;'Jf::"l1

E~'"·'JR4

1 91 66

3047

64",4
6405
64"6

,,........
.........
ptCALL
INTEGER I.·.·····
JMS
,,........
........
DCA
TAD
LESu9S
,,........
pOpA
........
nLt NO.
,
........
LOAOIT
EF'UN31 ,....... JMP
'.*
••••
4).
LOADiT! ITLOAO
,
.•....
*.
EC.LL

..,;;C3

4545
4542
d45
4550
1374
5735
5341
4335

F"NT

I.·.·····

I(NOP) • roR 4.WoRD

_ rOR 4i.woRD.
'GET NEXT INSTRUCTION

I ( NOP)

""--

,rAST [XU
~

~.~

;

,.. "

.~\

~,~

~ ....

',~ J

',' ,~,

. :y';~ 1-',: ,~·.P:,",A""""~

11~JAN-71

23. "6

IGEr PAGE: BIT

5216

DCA JUt-lFi
tAD JUMP
AND C2r6Z
SNA CL,A
JMP •• 3

11~4

tAD p1600

I~O

140 1'117

IctT 7 BIT ADORESS

V~03

IFOC L12 • •

2802
28:13
28;,)4
28(,5
2826
2807

fl4;'7
641.:l
6411
1'1412
6413
6414

2808

6415

2809
28121

6416
64i7

3e4r"

2!311

64221

'264

2812
2813
281 4 ,
2815
2816·
281 7
2818

6421
6422
6423
6424
,.,425
6426
6427
6430

1264
765A
5233

6431

5572

281 9
213221
2821
2822

2623
2824
282'

2826
2627
2828

2829
2630
2831
2832
2633
2834
2835
2636
2831
2838
2839
2640 .
2841
2842
2843
2844

2845
2846
2847

6432
6433
6434
6435
6436
6437
64421
6441
6442
6443
6444
6445
6H6

6447
6450

6451
6452
6453
6454
6455
6456
6457
64621
6461
6462
6463
6464

2848

2849
2850
2851

'123
765~~

'2"0

,.,467

647~

6411
6472

2855

64t3

6474

11(~6

1~4e

1265

3~4e

220e
7"4~

SNA
JMP I
I.ErpUT
DCA ADCR
1.00P01; I Sf f"PNT

I ••••••••
I ••••••••

IF' PT1 WAS 2[RO, IT IS A

'11.£ VARJABLE

TAO AOOR

DCA F'L.'1(~2

IGET COMMAND

TAO JUM.-

CLL ~TI.

;"'06

RTl

;45f!

SNA

IG£T BITS 0-2.1£ OPCOOE

AND Pl'.

'-'1QI7

JMP f"loCT

5211

tAo TABLE:
DCA JUMP
TAD 1 JUMP

1266
3264
i664
;45~

SNA

JMP F'I.PT

5267

DCi. JUMP
TAO C[X1
DCA F'loTI(R

3264
13216
3014
i117
3057
1415
3414
2057
5257
5664

;0421
,.040

CONTAINS PAGE BITS

CMl

3915
1264
11216

,,4013
6575
1305
5215
1305
3'J15

•

INO;'CO ON
IYES ,DEF'ER ,WIO AUTO-INDEX

tAO I AODR

1040

~HH'I2I

ICCrpNT)~.4

AND rPNT
DCA AOO~

JMP LOOP01

144"
745~

IPAGE: i!ERO?
IYEs

AND JUMP
TAO AOO~
DCA AODR
TAb INORCT
AND JUMfo'
sNi CL.A

3"40

l'I.'I4f1!

6465
6466

2852
2853
2854

2856

3264
1264

PAGE.

TAO Mrlo T
Dci CNTR

tAO [ F'L,TXR2

Dci 1 'L TXR
lSI CNTR
JMP •• 3

JMP I JUMP

JUMP.
"
ADORdX1
INORCT; 0400
TABLE, I TABLE

IGO THERE

F'LPT.

TAO COP

I£)(P TO (AOOR)

F'L,GT.

TAO CEl(p

,/(AOOR) TO C:xP

JMP .t5

Dcl rL.TXR2

CHA

tAo AOOR

-.
)

IF'OCL12.37
2657
2856
2859
286121 .
2861
2862
2863

2864
286'
2866
2867
2668
2669
267Gi1
2811
2872
2973
2874
2875
2876
2677
2878
2819
288i1
2881
2682
2883
2684
288'
2686
2887
2888
2889
289111
2891
2892
2893
2894
289'
2696
2897
2898
2699
"29210
2901
2902
29~3

2904
29('-15
29;16
2907
29C8
29Q19
291"
2911

641'
64!6
"477

65C!l0

6!5~1
65~2

6503

6504

6505

65e6
6507
6510

6511
6512
6513
11514
6515
65i6
6517
6!5?0
6521
6522
6523
6524
6525
6526
6527
6530
n31
6532

6533
6534
61535
6536
6537
6540
6541
6542
6543
6544
6545
6546
6547
655'"
6551
6'S52

6553
6554
6555
6556
6557
6';60

DlAL.lr
3~14

1117
3£157

1414
3415
2057

53"'0
52C:l1
';2'43
1.1(137
4767
4'172
52~1

4'174
4173
4175
4171
~201

11114,
72~fil

5321
:53 ....

3"'
"
3"'46

31347
522)1
4543
r644
4543
~04Pl

4544
.)044
4453
"1~

5344
;04Qj
3264
3~43

1:'145
'64,-,
4566
4543
2435
4'44
JQl44
4'44
7410
5362

4543

147~

4544
'040

6561 .... 17~
6!562

•

1'264

V,~03

11;JAN.71

23'2'6

PAGE

Dr.;: F'L.TXR

·/S4VE

'rRO~'

4 wORDS

':" '\.5 MF'I.T
OCA CNTR
TAD I fL TXR
DCA I F"LTXR2
IS~ CNTR
JMP
JMP rPNT*l
EXP.1
CEX~.
C£Xl.
EX1-1
JI'1S 1 OPMINS
FLSU.
JMS 1 ALGN
"L.AO.
JMP F'PNT+1
JMS 1 RAR2
JMS 1 RAR1
JMS I TRAO
JMS I NORM
NORF'.
JMP F'flNh1
IlNTERpRETivE POWER
n.£)( • tAD HORe
CLA
JMP •• 6
ilERO.
DCA EXP
DOA HORe
DCA L.ORe
DCA OV[R2
JMP F'PNh1
PUSH"
F'I.AC
PUSH"
EX1
POPf'
f'L.AC
I f\ITECER
JMS
SPA
JMP .t!
CMA

,..52

AOORESS

.-3

eCA JUMP

DCA OVER1
TAD HORO

Si!A CL.A
ERROR2
PUSHF"
POPF'
POPF'

JMP •• 6
PUSHF'
POPF'

n. TONE

IF'SUP·2 ~ NEGATE THE OPERAND
"L.AO~1 ; rI~ST ALIGN EXPONENTS
IRtTuRN iF' NO ALIGNMENT IS POSSIBL.E
fTRI~L£ PRECISION AOODITION
ISI~CE BtTS ARE sHirTED
IRIG\.lT
INOR"'AL. UE T~t RESUL.T
IHI~TIUSE 100X F'oR F'UNCTIONS.
IlERO?
ICROCI< ....
IYES

lAC TO A • POWER
ISETUP ARGUMENT

C THE

UPON£NT)

IONLV POSITlvt. INTEGER

EXPONENT.S

I(COULD CIVIC!)
ITEM' STORAGE
I(NOP) ~ 'OR 4.WORO

..
,

",,,-

ITOO LAFler OR NEGATIVE EXPONENT
IINtTIALtilE TO ONE~
\

F'I.AC
ITtRi
1TE:R1
(Xl

JMS I MULT
IS! JUMP

I"MU\.TIt.
,'.... ."..

_""~

....t.

11>i·'-

.".".

Dl:'1..1~

V,,03

6563
6564

5355
52<'1
47n

6566
6567
6570

F'L.MV.

52~1

"OCL12.· • .

2912
2913
291 4
2915
2916
2917
2916
2919
292"
2921
2922
2923
2924
2925
2926
2921
2928
2929
29313
2931
2932
2933
2934
2935
2936
2931
2938
2939
2941
2941
2942
2943
2944
294'
2946
2941
2948
2949
2951i1
2951
2952
2953
2954
2955
2956
2951
2958
2959

296~

2961
2962
2963
296 4
296'

2066

~565

~571
65;2

65;3
6574
65;5
6576
6517
6600
6601
6602
6603
6604
66r.5
6606
6607

661e

6611
6612
6613
6614
6615
6616
6611
662r11
6621
66~2

&623
6624
6625
6626

&621
6630
6631
6632
6633
6634
663'
6636
6631
6640
tl641
"642

7153
;004
7335
6623
5154

OPMt!IJS;
MUL.T~

6757

RAR2;
01V2
TIUD,
DUIJl.AD
lTA8Lh.1I1
F'LAD
rLSU
F'LOV
F'LMV
FLU

5133
6'75

6510

6'0,
7107
6565
6517
,·\~HH'

6515
:-CHH'
1200
194'
7161
3"41
;0"4
1846

•••

PAGE •

IMUL TlPLY

NOR'

1041
7450

SNA

ACHINS; 0
CLA

;2161

;"61
3045

56'"

:~B0"

104'

74'
"
1046
7650
5311
t042

;450
1.1/143

7650
562:5
HH0
7041

1.344

6645

32~5

6646

121115
;'09

ALGN,
R4Rl.

3046
,BI!l4
i2l45

6644
.. 6647

NOR~,

23HJ~

IROUTINE: TO COMPLEMENT F'LAC • VIA "MINSKI"
I •••••••• cts THIS CLA NECESSARY)
I •••••••• RECODINC 'OR SPACE
OVER2
TAO
I ••••••••
CLL CHI. CIA
Dci
OVER2
I •••• •• ••
I ••••••••
RAL
TAD
LORD
I········
CML CIA
I •••• •• ••
Dci
I ••••• • ••
L.ORO
I ••••••••
RAL
I ••••••••
tAD
HORO
CHi.: cu
I •••• • •••
Dci
HORO
I •••• •• ••
JMP
ACM·INS
~
ISUBROUTINt TO A~ICN
IBINARY POiNTS
fAD ~ORD
SNi
TAD LORD
liS ~ANTISSA iERot
SNA CL.A
JMP NOle1
IYEs. RESU~T.OPERANO
TAb AC1H
INO,IS OPERAND !£R07

'450
5273

66'13

U;JAN"'1
JMP .,,6
JHP F'PNT.l
JMS tMULT
JMP rPNh1
MINUS2
OMULT
ONORM
ALiGN
Dlv1

;1341

ALIeN.

TAO ACtL

SNA

TAO OVER1

SNA CLA
JMP t Al.IGN
TAO £le2CMA lAC

TAD txP

IYES, £lC I fl'

SNA
JMP AoONE
DCA ACMtNS
TAD ACHINS

IARE £XPON£~TS EaUAL7
IYEs

ell

INEGATE 'ANO

SMA

~i;

I~O

_... - ... - ".
_

••

•

·)
"O!::L12"~7 .

296 7
2968
2969
291~

2971
2972
2973
2974
2975
2976
2977
297S
2979
298'"
2981
2962
2983

2984
298'
2986
2987
2988
2969
29921
2991
2992
2993
2994
299'
2996
2997
2998
2999
30~"

3~1211

39102
3003
3",,4
3905
32106
30r2'7

3008
3211219
3~10

3011
3012
3('113
3014
3015
3Z!16
3e17

3018
3019
311'2"
3021

11%AL.l('

V·, (' :5

U;;'JAN .. 71

23'0(1

6651

3322

DCA AMOUNT

·I$AVE TIoIf. 01rr[R£NCE

1'1652

-322

TAO AMOU~~T
TAD TE5T2
SPA el.A
JMP NOX
TAO ACMINS

ICA~ T~t £~PnNENTS BE AI.IC~£O'

6653
6654
6655

6656
6657
6660
6661
6662
6663
6664
6665
6666
6667
66i~

6671
66;2
66;3
66;4
66;5

66;6
66;1
6h~

6;01
6;02
6103
6;04
6;0'

.1.336
711r.
5275
,235
;70t'
~265

~J22

112'4:5
3 iii 4III

4723
2322
5270
2223
5623
11340
7100
5304
1"44
;71111/1
5623

6i~6

'703
12"5

,.h~

5623

6711

1~40

67,,7

6712

di3
6714
6715
6116

6;t7
6;221
6h1
6;22
6;23

ASHri'.

AOONF;.
NOX,

53~6
1~44

NOX2.

NOX1;

3e1"5

"~"0

6;24

"~~~

6;25
6;26
6;27
6730
6;31
6;32
6733
6;34
6;35

4"1
1;:144
,751?
5353
;.~"1

3~43

t35?
3~41:"

4223

TAn EXF'
C~A

tAb ACMINS
SMA SU CLA
JMP I ALIGN

TAO EX1

DCA EXP

IMISSION IMPOSSIBLEI
ICHECK roR SrGN ol"ERENCE

I··

l.fII

ITEMIiI STORAGE or DI"ER£Ncr. BOTH POS EXp OR eoTIoI NEG'"
101( (.-,
IUSE I.ARGER

TAO Aell

1042
3~46

57504

IYES. SHtrT THE SMALLER

TAO AelM
DCA HORO

1~41

1043
32147
5623

JMP ASHF'T
JMS DIV2
lSi AMOUNT
JMP .-2
JMP AOOf'lE
CMA
TAD EXl
DCA £)(1
JMS J TAG1
In AMOUNT
JMP .-2
lSi! ALIGN
JMP 1 ALIGN
TAD EX,"
SMA CI.A
JMP NOX2
tA", EXP
SMA CI.A
JMP 1 All GN
JMP •• 3
SMA

;104~

3044

INO. USE' LA~G£R or TIoI£ TWO.

SMA CI..A

4357
5261
5273
7342'

•

PAGE 3,.54

OCA 1.0RD
Uo OVER1
oci OV£A2
JMP I ALIGN

, '

AMOUNT;
TAG1 ;
Dlv1
ILEAVE 12 91T ANSWER IN AC UPON RETURN
ILEAVE rLAC AS AN INTEGER,

rI x,

JMS I ASSOL

TAO EXP

SPA SNA CLA
JMI' nx~
lAC
DCA OV£Rl
TAO P2'
DCA £xt

, JMS

4J. I GN

IVIA C1NUG£R)

ITEST rOR "RAeTtON
IDOU~I.£

CHECK rOR MINUS ONE.

IINIT ALIGNMENT

,-'

.... ,;

100 THE ALIG~M£NT TO AN INTEGER

•••••

.,,",- ~ •

.."/

".,10"

:,.
IrOCL12. :n

::11\1.1(1

3n7

7;-,3

3C7S

; ;~c4

3"'e0

;[:26

32179

7.'25

3~81
3~e2

"ln7

3083

;e31

3~84

3085
, 3086
3067

3068
3089
3090
31391
3092
32'93
3094
, 3e9'
32196
3091
32198
3099
310"
:5101
3102
3U3
, 3U4
31'"

'3106
3Ul7

3108
3111'9
, 3U"
,.3111

3112
.: 3113

.. ,3114
-311'

: 3116',

,3111,

3'118 '
3119

. 3120
.'3121
, 3122
3123
3124
3125

3126
3121
3128
3129
3130
3131

;e3kJ

l<142
4752
0e3

1046
3751
1141
4152

1032

:'a~3
1~42

7~34

4152
t 304
5263
3274

;033

;e-35

;:.'36

;~37
;~42!

;2'41
1M2
;('143
1Q144
;:"45
h46
;041
;e.50
;~51

;Q!52
,""53
;354

V;;03

11';'JM; .. 71

23106

14·E

TAO B
.TA5 0
MUL TV
:5
TAOE

MULTY
4

,." III 4

1~45

1046
4152

!~"" 5

111147
3151
1341
4152

""4

TAO B
MULTV
TAD C
SAvE
TAO 0

4152

7060

H'I43
4152

TAO ,.
MULTV

h51

7061
712162
;11163

,h64

r0",
~'''''6

13U
3~45

... h6' 130"
i~66 3046
7061' 1211
hh 31'147

11!l11
hh
11'173

;1'174

·7~;5

;e76
7~71

;1"10
he'l

71032

43~1
~041

5604

;U~
1~H"0

:'00:1'

,00r
,'3012'
'9Ia~

''''~3

22150

·;t04

4451
4141

iH15

? (H"~

h13
7106

;107

5101

11'iJ41

I(OC. OATUM~5)~rOR 4-WORD
IA.'

IB*'
IC*O

MULTV

7056

H~42

IB*£

4
tAOE
MuLTY

'~55

IS*O

SAVe:

4152

1~43

•

1f156

~iJLTV

DMUlT4; JMF DMOONE
DCA DATUMe6
TAD F'
SAvE
TAO A
MULTY

3151

FACE

le-£
Ie·,

DMDON£; TAD DATU~.l
ICOPV RESULT
DCi HORD
TAO DATUM.'
DCA LORD
TAO DATUM.;'
DCA OVER2 .
JMS MUL.DIV
I(NO!') • 'OR 4.WORO
OCA OVtR2
JMP I DI'IULT
OATUM.·~.6
IINTtAMEOtAT£SToRACE
0/,6-LOW O~DtR ~£SU~T,

'
~'."

(U*'
0/14

121/'3
121/,2
I'i-HIGH ORDER q£SULT
MULOiV;
ITERMINATE MUL.TIPLY ANO OIVIO£~
IS! SIGNF'
'CORRECT rOR SIGN
JMS I MINSKI
JHS I NORM'
ISHlrT LErT
I.
NOP
JHP I MULDIV
TAO AeiH
F'L.OV,
1.'DIVIDe:

....,.- ..
(

. ,r'..
-,) \. ...

23106

3132
3133
3134
3lJ5

3136
3137
3138
3139

3140
3141
3142
3143

3144',
314' :,

71H'I
7111

11 12

J(14;)

h13
7114
7115
h16

7'1'41

11221

475~

7i21

4331

7117

4324

;7~l:!

,,353

h22 5723
;123 ,6401

3147
3148
3149

31S5

h24
,h25
h26

3156
3157
31515

h30
h31

3159

31621
3161
3162
3163

3164

316'

3166
3167
3168
3169

3110
3171
3112
3113

31,4

3175
3176

3177
3178

3119
3180

3181

;127

1£'44
3044
1124
e345
1\]41

h32

??rIlra

;tH0
305e
1045
7450
5146

til5

h37
-H4r/l

H1~

H41
;t42
ft43

4451

1041

h45

5724

7450

7144 5146

lAC

.•

IOIVISIO~ BY ~Eqo
ISUBTRACT [XPO~E~TS.l

lAC

JMS SIGN

ISET UP SIGNS
CL.A
, JMS MINUS2
INEGATE ~IVISOR
JMS I DIVIDE
IDlvIDE
JMS MUL,DIV
JMP I •• 1
rPNT·l
IT~lS SUBROUTINE PREPARES MULTIPLV A~O CIVIDE
IrOR ANV COMBINATION Or SIGNED ARCUMENTS AND rOR lERO.
IT~E RrSUlot or EIT~ER Is lERO IF rLAC - 0.
I~ESUlot OF'MUI.TIPLY IS ~£~O T' [~T~ER IS ZE~OJ
IDIviSioN 9V lERO IS CH£OKEo BEFoRt THIS
IROu;INE IS CALLED.
. IT~£ ClLLING AC CONTA!NS AN UPDATE VALUE rCR THE
I!XPoNtNT. THE RETURNING AC CONTAINS T~E SIGN or
ITH[ A.GUM£NT 'OR'rURTH£R T[STING BY EACH ROUTINE~
SIGN.
QI
nEST AND SAvE SIGN OF' RtSUI.-T.___ ._
TAO EXP ICOMPUTE NEw EXPONENT rOA MUL-OIV.
Dci EXP
TAO P400~
II.OAD 4000 TO XOR THE SIGN BITS.
AND HORD
tAo AC1H
SMA CI.A
I~EsuLT ~AV BE ~ERO
CHi '
DCA SIGNF'
TAO HORO
SNA
JMP I REVIT
IANswER !S lERO.
spi CI.A
ITAKE ABSOLUTE VAlour 0' 'LAC
JMS I MINSKI
TAD AC1H
SNA
IRESULT 0' EITHER MAY BE iERO
JMP 1 REV IT
JMP I SIGN
ISIG~ 0' R£SUI.T I SIGN'
SM~

''';'1
I·~~

h46
'h47
h50

6522

FlEVtT,

lERO

;335
7261
3751

NORM',

ONORM

7151

7256

'7152

;200

3182

31S3
3184
31S5

3186

;0L'J~

;t33
Hl4

;1l6

C~'A

7~01

3146

3150
3151
3152
3153
3154

SNA CI.A
ERQOR2
TAD EXl

765"
4566

PAGE ~

•

OlVtoE~

OUFlOlV

SAVE-OOA I •
NP2

""2

MUL.TVlj",S i

"~'45

AIF'UC.1
SIF'LAC.2

.. ~46
'dH1
:2141
,'042
L'ra4;}

C,F'LAC.3
O.A01H
[ .. A01L
,IOV[R1

MP4

•

. . Ie·

'-..-"

•

IF'OCL12,37
3187
3186
3109

7153

' 0~£1

7154

73;~t

71. 55

319111
3191
3192
3193
3194
3195
3196 <
3197:, .
3198
3199
3200
3201
3202
3203,
3204
3205
32t"6
3207
32CJ8
3U9
321"
3211
3212
3213
3214
321'
3216
3217
3218
3219
3220
3221

'1203

3222

i21114

3223
3224
3225
3226
3227
3228
3229

3230
3231
3232
3233
3234
3235
3236
3231
3238
3239
324"
3241

h56

'(Hi
3~43

7160

1042

7161
7162
;163
h64
h65

7~4~
743~

743"
11(11
3e141
5753

71;5

,~i3I1!"
1,~50

20 "
i72"1

hl1l2

1205

;206
;2V"7
;210
7211

7212
;213

;214

;n5

7216

7:?17

72"0
02100
'4511J

560E1

3254
3253
1251
3255
710fl!
1254
7~UI

7224

lAC CLL

DCA AC1101

JMFI 1 HINUS2

RESOl V; 0
TAO

.720"
MFl4,

SIGN"

SPA CLA
JMS I MINSKl
JMP 1 RESOLV

0
ISINGLE PA£CISION,UNSIGNED~UlTIPlY • "MU~TY"
SNA/NO RESULT AOOED I, i!£RO
JMP J MM
IrOR E~E INSERT THE rO~LOWINGI
17203 3206 DCA ,.3
'
17204 1256 TAO ~P2
1720' 142' MQl MUY

172ft16

k'l000

17201
17210
17211
17212

3253

151111

32"
5221

Ii)

DCA MP5
MQA

OCA MFl3
JMP ,.15

Dci HP1

Dcl MP'

tAb THIA

MP6.

eLL

TAD MP1

1256

ell
TAD MP2

71~0

2255
52U
1254

.t6n2'

112 81TS BY 12 BITS

DCA HP3
DCA MP1
tAO MP'
SNL

;225., ??lU'!
;226 325'

;221

Si!L

3254
j253
742"
5220

;220 ;~Hl
;221 '3253

7222
7223

CMA

771"

h16 4451
h;1 5713

ITRtP~E P~fCISION

S!L
JAC Cll
DCi AC1l
TAb AC1101
CMi

12141

7167

CLio

TAD OVERl
CHA 1AC
\ DCA OVERl
, tAD ACll

7101
72140

I"IEGATE OPERAND

...
-~A

3042

h66

7111
7172
h73
71;4

MliojUS2~

,1'H3

'157

h?~

•

c.1 AI.!t'

JM~

,*;S

RA~

DCA MP5 ISAVE HiGH ORDER R£suLT
ISf HP;S

JMP MP6

tAn MP1 ICORREct ~ow OROER RtSU~T

DCA HPJ

TAO 1 HP4

IPlcKUP SCALE 'ACTOR

:lAl.lr.

l1;JA.N,'11

;.,~."

7.' 41

CIA

;2:-1

,252
3254
1255

TAr) DATUI1A

If'OCL12.:l.

3242
3243
3244
3245
3246
3247
3248
3249

;'34

HC(.1

;23S

1654

;236
;237

~65"

2254

3250

'24i'

7tl'?4

3251
3252
3253
325 4 '
3255 '.
3256
3257
3258
3259
3260
3261

;241
;,-42
;243
;244
;245
7?46
h4'

3262

3263
3264
3265
3266
326 1
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
32B0
32B1
3282
32B3
32B4
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295

3296

;2~2
;~33

;,513

Dci MP1
TAO HP3
eL.l

ICO·IOUT£:
,,£~O

1l.~1oI

TAO I MP1

DCA I MP1

PACE , . .

231ZAt

ADDREss

O"O£R PART.

I ACC'P1UL.A TE

, I Sl HP1
RAL

1253

TAD f1P5

7420

SNL

56J::'!

JMP I HP"

INO CARRY

JMP I HP4
JMP ,-3
11111

IEXtT
ICARI=!Y AGAIN

TAD I MP1
DCA I HP1

1654
3654

2254
.,,654

IU MP1
lSi! I HP1

563'"

h51

5246

;252
;253
;254
1255

;U2
;~a0~

1011'3.

;'56
h51
h60

... 0"~
;16 ..
;751

;261
1262
1263
h64

~'0~0

It1UlTlPL.ICANO
BITS
"
.27
'OR
I'll".
12 OR 3 PREC!SION DIVIDE
DUBDiV;
"Dcl MP'
MP1

7265
;~66

;267

~'0",a
::~0',H~

:S2ra0
3254
1260

-727"
;271

11"",

;2;3

3256

;2;2

h;4

;2;5
;2;6
72;7
73:.1""
;~~1
;3~2

1303
;~"'4

;305

HI42
H146
1~0"

i2l45
1041

7423
5304
~'H5

1256
~046

72~'i'

1254

;3~6

;~~4

;:S07

3254

;310
;311
;312
;313

;:U4

;

OATUMl; DATUM
~
HP5.
HP1,

MP2.

TIoHA.

·14

112

TAD I'll'
Dci MP:S

SKP

OV3.

JMS I oouBLE
CL.l
TAb AC1L
TAO lORD
DCA MP2
RAL

tAo HORD
TAO AC1H
SNI.

I.'
DCA HaRD

JMP

TAO MP2
DCA L.ORe

eLA

TAD MP1
Rll
DCi MP1

j2(,,0

TAD MI"

7:3(34

RAl

32~"

Dci MP4

1254

TAD MP1

2255
5267

IPR.QOUCT
IMUl.TIPLIER

o
o

1(-43) •

4_WORDC'-7'~5)

DCA

325'

7413
4'27

•

lSi MP3
JMP OV3

ItNtT

BIT couNTER

ISHlr:'T 'lAC LEF'T
ICOMgINE ONE POSZTiON AND C4-WORD)
ISAVE: RESULT

IAOO OVERF'LOIo/
ISKIP l ' OVERFL.Ow

. IUPOATE 'L.AC
ACCUMuLATOR
ISAvt OV£R'L.OW BITS CIRCULARL'

IC~EAR

ITEST rOR END or DIVIDE
./LOAc RESUL. TS

•

IrOCL12.17

3297
3298
3299
3300
33~11
33~2
33~3

3304
3305
33('16

3307
33018

3309
33121
3311
3312
3313
3314 '
331'
3310
3317
3318
3319
33213
3321
3322
3323
3324
332'
3326
3327
3328
3329
33311J
3331
3332
3333
3334
333'
3336
3337
3338
3339
33413
3341
3342
3343
3344
3345
3346
3347
-3348
3349
33513
3351

GlALlr"

V!~ i:

11:',)1.\ .. 71

7316

3~46

;317

DCA LORe

, 20~

'fA 0

;320

32145
;321' 5661
1322 ;i.J04
3335
7~'3
1~24
2255
7325 5267
;326 ' ,335
;327 3tH5
;330 12~t!l
;3:51 32146
1332 1254
;333 3~47
;334 5661
h35 .':11~'"
7336 4775
7337 4366
13413 la45

;:Hl
h42
;343
;344
;345
;346
;347
;35~

;351
h52
;353
;354
;355
;356

1357
;360
;361
;362
;363
h64
7365
;366
1367

!3i0

7311
13;2
h;3

DCA

;7u

5360
4521
1140
1044
3344
5347
4776
4366
5735

M44

EXIT:!,

5735

6757
:'''01'1

1"'45
;51r.
7(341
771~

4165
5766

7314
1375 5571
73;6 1173
14('1~

JMP I DueOIV

1('lOP)

n::xT'u rr,q hWORQ

JMP OV3
TAO ONORH
DCA HaRD
TAD MI'4
DCA LORD
TAO MP1
DCA OVER2
JMF' I OUBOIV
III

nEST rOI=! END OF' OhIOE

ISU9ROUTt~E

TAO HORO

;450
12146
;65"
5363
U345
;104

XRAR2,
TEST4,

PAGE 1.. 6.1

RA~

JMS 1 ABSOL3
JMS TEST4

745"
12147

M~4
~ORO

DCA ONORM
lSi! MP3

O~ORM'

2310~

SNI
TAD OVER2
SNA
TAO LORD
SNA CLA
JMP EXIT3
TAD HaRD
RAL CI.L.
SPA CL.A
JMF' •• 6
JMS I DOUBLE
CMA CLI.
TAD EXI'
DCA EXP
JMF' .-12
JMS I RESOL3
JMS TEST4
JMP I ONORM
DCA EXP
JMP I ONORM

Dlv2

TO NORMALllE 'LAC

lIS MANTtSSA.U

IVts
IwlLL SHI'T BE ToO 'ARt

IDON'T LEAVE 4000
IS£T TO !E~O
IRETURN

tAD HORO
SPA
CIA
SPA CLA
JMS I XRAR2
JMP I TEST4
ABSOL3; ABSOLV
RESOL3; REsOLV

"'}.

~..,

!TEST rOR 4~0il

ISHlrT BACI(

.74~~

I!:IACE: is
;4GHl

;401
;4?-2

44217
6274
;~~Iil

XSQRT,

IF'L04TING SQUARF: ROOT f'UNCTION
rINT
F'PuT F'PAC1
IVALUE
F'ExT
INEwTON'S METHOD IS USED

3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362

3363
3364
3365
3366
3367
3368
3369
331"
3371
3312
3373
337.
337'
3376
3317
3318
3379
338"

3381

3382
3383
338 4
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
339'
3396
3397
3398
3399
34~0
34~1

34Z2
3403
3404
34~'

3436

;4,'3

·.H5

~4 :'4

771(1

-;" ,15

4566
Hl44

GE'tSG~

SPA CL.A

ER~OR2

TAb EXP
SPA

;4;'6
;V7
;41:'1

751r.

;411

;;alC

;412
;413

RAR

3270
;430

,DCA I TEql

;414

1415
7416

;417
;42a
7421

;422
'423
;424

1425
;426
7427
;432
;431
;432
;433
;434

;435
;436

;"2~

227"

;£100
1267
3271
3272
3213

44~7

:'.274
3270
" (l

;451
;452
;453
;454
;455
,.56
;457
;46i'

;'61

;462
;463
;4~4

;465
;466
;467

tAo F'PAC1.Z
JMP SQ£ND

CL.CU;

rlNT

F'GrT F'PAC1
F'Oiv IT£Rl
F' ADO lTERl

rt)(T
eL.i CMA
TAO EXP
DcI EXP

1S44
3344
li44

TAD EXP

7041

. CMA lAC
tAD i TUl

SiA CI.A
JMP ROOTC;O
TAD HORO

;041
1271
7640
5261

CMA lAC
TAD lTERU1
S~A CL.A
JMP ROOTGO

HH6

TAD

;:;141

L.ORD

CMi lAC

1272

tAo ITER1*2

;500

SMA

7~41

CMi lAC

7a01

lAC
SMA Cl.A

;1i1'~

627:1

RETURN
ROOTC;O; rlNT

'~I~(I

5227
3J44

SQEND,

F'PuT 1TERl
releT
JMP Cl.CU
DCA EXP

SQCON1~

7470

BUrF'ER" "

RETURN
301'

I11S

ITU1,

fIJ

5536
3~15
,! 2\

,........

SNA CL.A

44~7

IMAK£ r!RST APPROXIMATION
!TEST loSS OF' ExP

SNA

7240

5536

ROOTS

DCA ITER1.1
DCA I TER1.2
DCl ITER1.:S
TAO F'PAC1*S.

1270

;443
; ... 4
;447
;452'

NOP
TAO SQCO~ll

5265

127e

; ... 5

ISf ITERl

07000,

1215

;641!'
5261
\045

;u6

S~L

;451.'1
1276
76511!

;437
;4421
7441

;U2

CML

I~U~QER IS NEGATIVE-IMAGINARY
II.I~< IS -0 F'ROM 'INT
I~ATCH T~E SIGN WiTH LINK elT

IARE EXPONENTS EQUAL.t
INO

IARE HIGH;ORDER MANTISSAS EaUAL.7
INO

100 L.O~.ORDER MANTISSAS AGREE
/WITHIN ONE BIT?

•••

•

,rOCL12.~7

34:.. 7
34~a

3.. ~9
3410
3411
3412
3413
3414
3415
3416
341 7
3418
3419
342~

3421
3422
3423
3424
342'
3426
3427
3428
3429
343~

3431
3432
3433
3434
3435
3436
3437
3438

;471

;4;2
7473

;474

;415

;4;6
;.';7
7'52'r
ts,;a
;5~2

3456

3457
34!58
3459
346~

3461

.~C('!

721J0

7503
,'300

' 106
1367

3364

~31C

2365

5321
1371
11~{I

1;2106
;421iJ
76Hl

7515, 1361

;516
7517

745:3

;520

236<4

;521
;522

6302
6141

7523
7524
7525
;526
;527

7533
;5:51
. ;532
;533
7534
7'535

57t~2'

[,644
1362

62C'1
2366
1366
1215
771~

1361
1365

;ISH

!!'356
t366

;'541

~213

.. r.211'
6;~31

;'544

534:,

;545

6 J34

7~46

J 312

7547

765'?1

;55~

6:~32

;551

137'"
3774
3366
3365

;552
;553
;554

PAGE 1.62

0
l~

'ADOQE:SS or ... EXT
LOCATION IN 10.01GrT VE:RSION.
,
........
,,........
SCopoU;
OUTPUT ROUTINE rOR SCOPE
........
AND
"TAD
SToRES CIofARS IN P'L.D1, LOCS
,........
01163
,
.........
SlA
JMP
t'OCALF' ,........
,........
CRLF'.
DCA
NeOL.S
ISl
NrE:EOS ,........
,,........
JMI'
HSOK
........
NOCRL';
,
........
eLL
,
........
TA5
SNL
'e........
•••••••
,
CLA
TAO
NLI"ES '.Ii ••••••
,........
SNA
JMI'
SCOPOU ,........
,........
r-.tCOLS
lTSOf( , lOr

r
BufrER·13

rAE:[

""~3

PH7

TAO

400;717

07655

C100

SKI'

IS!

I.MOOE

L.INC

PMOOE:

I··........
..··..
........
,,........
........
........
,,........
........
,,........
........
/
/

LO; 4
I
CLR
PDP
STIol

,'''11

771~

;542
7543

F' r.' I.: 1,

\' ",1(12

;536
;~4("

231;'6

JJ(I
'l~2'C

;5~S
;5~6
;S~'7

;5t;a
;'511
7512
;513
;514

l1;.J ..... 71

~~O

;44c

75,14

11··"3

·0',HI

;'5?3

3439

3441lJ
3441
3442
3443
3444
3445
:5'146
3447
34'18
34'19
3450
3451
3452
3453
3454
3455

:'lAL1~

OPTR

,........
........
,,........
.........
........
,,,........
........
,........
TOO MANY I.INES,CHARS
,,........
ON OISPI.AY UNTIl. SOMETHING IS TVPEQ.'
........
,........
,
........
,
tAD
,........ IGNORE LINE
SNA CLA
'EEO
,
........
TAD
,........ CLE:AR
DCA
PPTR
DCA
NCHARS ,........ THE
DCA
Nr£EOS ,........ CHAqACTER
62U
IS!

NCHARS
NCHARS

TAO

07000
TAD
SPA CI.A
TAD
NI.INE:S
TAD
Nri:EDS
SPA CLA
JMP
NO~ANG
TAD
NCHARS
6213
JMS
WAITER
KSF'
,_4
JMP

KRS

07566

KCc:

/e •••••••

WA~G

, '

>.".'1

OIS~LAVEO

........

' ••• 0 ••••

t .

06377

/ i" /
i

"':- ..

;.~,....

.,.~

IF'OC L1 Z . 3 .
3462 .
;555
3463
;556
3464
;557
;560
346'
3466
;561
3467
;562
3468
;563
3469
;564
3410
;565
3411
;566
3472
15~7
3473,
'1510
3474
7571
347'
isi2
3416
'1573
3477
1574
3478
3479
348"
:5481
3482
3483
;576
34S4
1571
34/35
;6t!10
3486
1601
3487
'61:'2
3488
;603
3"89
;604
3490
;605
3491
16"'6
3492
;607
3493
i6!k'I
3494
., 61.1
3495
;612
3496
;613
349 7
;614
:5498
h15
3499
;616
3521r/l
7617
3501
;620
35~2
;621
35213
7622
3504
;623
35e5
;624
352'6
;625
:5507
;626
3538
7627
35r.19
;630
;631
351"
3511
h32
3!512
;6:53
3513
;634
351 4
;635
;636
3!S1'
. ,~516

?lAL1C'
3364
6t'.'1
1364
1373
7740
5305
57""

,: 0l!'i!l
>,0"0
·.~02'0

;763
6377
7655
;566
7116
6002
;'76

\I L~ 1 J

DCA
t>;O~U!G;

10"

TAD

f.iLI~ES;

tAD

NHEOS; :/J

NCIolI,RS; ~
01763, 1163
06377, 6317
07566,

1655
7'66

PPTR,

OPTR

07716,

t.;COLS

1716

PAGE

•

DISPLAy

NCOLS

07116

SMA su CL4
JMP
CRLor
JMP
SCOPOU

NCOlS, l e'

07655.

........
........
........
........
........
........
........
........
........
........
,........
........
........
........
,........
........
........
,,........
........
.,........,........
........
........I.·........
..•· ..
I.· ..••••
........
I••• ·•·.·
I··.·
....
,........
I······.·I.· .••..•
........II••..••••
........
23,.,(1

l1;JANw71

/
/
/
/
/

I ••••••••

/
/

.7'76
/

'/'OIS ~UNCtION ; STORES 2 kOQOS
'PER CALL iN 2200 THRU ,77' IN "LOi

04453

6213
5601
2fl71
44"7
4251
1~0n

4453

;'10

;041
335~

1066
1256
7640
4'66
4540
1612
441:17
4253

:3""
4453
3351
12'1
1247
7652'
4566
6\'11l!2

6211
735C'

::550
3671
~271

1351

',1251

........ _-." .

CALLI N; JMS I
6213
JMP I
INCALL
XO ISP,

F'I NT

F'MUL
rEICT

JMS J

SPA

erA
DCA
TAO
TAO

INTEGER

,·1

rORHUN

INTEGER / ••••••••

/
. /
STtMP
CHAR

MMCOM

Si!A CLA /

ERROR:5
PUSHJ
EVALir1
rINT
F'MUL
F'EltT

JMS I
Dei.

rl VHUN
/

INTEGER
STtMP2
SPTR

TAO
TAO
Ml.rMIT
SNi CLA
['RROR3
JOr
I••.•• · .•
6211
ICO' V I.· ••••••
CI.A eLI. CMA RAR
AND
STEMP
SPTR
DCA
I••••• · .•
I.~ •.••••
SPTR
JSI
STEMP2
tAo

TAO

._..._,.,. _ ... __ .0. ___

·.0741'

I.·I.·.···
........

(- ....

--- "-..•.. ............
",

. --_.-.. - ......

......... - •.. _.......... _- .

•

"
~

•

'\_~'.~'."

IF'OCL12.37
351 7
3!h8
3519 '
352"
3521

3522
3523
3524
3525
3526
3527
3528
3529

;64~

76 41
7642
;6 4 3

7644
1645
1646
;647

;65Z

;651

;652
;653

;654
'7655
;656

:1.Ll~i
~611

~211

72,q
;!611
6201
6"'''1

5536
2Z02

;4Z21
. !311

211321
, ~11

;657
;660
t661

;662
;663
7664
;665
i666

7346
:1251
3257
613"2
1132
6213

SPTR

62l'11

Icor 11'

ION
EF'UN31
JM.P 1
MLIMyT; .. 5176
0141l'fl. 7400
rORloIuN; 11 i 2100
nVloIuN; 1113710.0
MMCOM,

.........

........
........
........
........
........

I(-LAST Loe ", OISP POINTS-i)
/
/

/
/

.. 254

PAGE 1-64

I··.····.
I.·.····.
/
I··.····.
I.·.··· ..
/

62101
5657

16H
h;5
;6;6
;677

3271

?6i3

;;ell'

lea"

a~\J

;;r5

7110
1711
;;12

;; 13
;;14

7121
;712
4566

'7752

1161

;;16

'753'

;717 .. 1163
'1711
;;21 ;"134

WAIT
WAIT

I.· •• •• ••

WAtT

10""
0

tAb

OOISSP

6201

,cor III

ION
JMP I
OOtssP; 2200
PPASS, PASS
OUTpuT~ JMS J
POPA
SORTJ

01.tST~1

,I.· ..·· ..

PNCHARS
ICIF' COr 10/.·· •••••
WAITER

SPTR
10'
ICOf' U
6211
CLA CMA
SPTR
DCA 1

724(11

4541

10'
tAD I
6213
JMS
ION
JMPI

DCA

6211

;;15
;;20

CLEAR,

60212

1 4 13

7103

;;e4

Dci

SPTR~

........
........
I•...•.•.
,I··.····.
........
I.· ..• · ..
..•· ..
,,I.·........
,,........
........
........
,,,........
........
........
I.·
.. •• .•
,........

0
I.· •• •• ••
el.i CI.L. eM ... RTI. /

tAD

13~4

17{,6

;;~1

;;n

lolA IT'~

4402S

1661
16h
?6i1
7672

;,C1

3568

tS~

CLA CMA
SPTR
DCA I

I
~"H1J"

3557

3567

SPTR

•
........

231"lo

,l '

IJMS WA IT is EQUIVALENT
ITO JMp .-2 WIT~ A RErRrS~ Or
IT~£,OfSPLAY ON THE WAY

3558
3559
3560
3561
3562
3563
3564
3566

OCA

:liHl0

7524

3611
6201
62101
5672
2230
6335
41.'5

3565

U;'JAN.'1

!-77~

3530

3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
354'
:5546
3547
3548
3549
3550
35,1
3552
3553
3554
3555
'3556

V:1l"3

CI.EAR

I ••••• • ••

CL.EAR POINTS f'ROM THE SCOPE

...... ,
....

1· .... • .. crORST LOC 0' OISP POINTS)

PPASS

I······.· JU"IPS nN SUBCOMMAND OF OUTI'U" XXX

I······.·

, ••••••••

oGO~OLlST/···.·.··

oERRoR; ERROR3
ClGO,

OC
00

OE
as

........
,........
........
I······ .•

I······.·
I.····
•. •
/
,I•••• ••.•

t l~

IF'OC L12 t 3 7 .
3569
3570

3571
3572
3573
3574
3575
3576
3577
3578
3579
358"
3581
3582
3583
3584
3585
3586
3587
3588
3589
35918
3591
3592
3593
3594
3595
3596
3597
3598
3599
36f:U'
3601

3602
36,,3
36('14
36l'"
3606
3607
3608
3609
3610
3611
3612
3613
3614
361'

t:·lAL.ltC"
3~l3

7722
1723

7724

;;~5

;'26
;;27

;;33
;;31
;;32
;;33
;;34

;;35
7736

;;:57

;;5111
54
1Z
7755

;756
;;57
77 6 0
7761
;;62

;'63
;'64
7;65
;;66

7767

3214

3('5

3a5

;323
-324
. 311
6371

323
324

.~611

;566

POPTR,

01.

1256
;65~

"°"

1~~0f1111!

4575
3732
1330
31:53
3711

4257
6002
6141

tAD

JMP 1
IS! r

TAO I

sU CLA

JMS
JMP I
PCL.I<F'l.c.CL.I<;LG
Ps£rcl.l(,SETCLK
.11521

STEH'"
STtMpZ; 11!
JMS I
OCt
Dci I
OE.
TAO

Dci I

00.

DCA 1
DCA 1
JM'" 1
NOP

OS,

IOF'

JHS

6141
0004

~'0"'2

£12102

;1676

;;16
;';7

OPTR
TA"

!-11!!~4

;'13
7714

;;;5

6377

SNA CI.A

3'716
5731
;fC'l0£1

311

~-PROC
P~C~ARS,NC~ARS

6e~2

Ht2

006377~

OEXrT,

11i!66

6001
1375
1374
3063

;;;'"

OL.I5T.

~731

4602
;564
,'65

:' ' ' '1 .

ION

OTt

........
........
,,........
........
........
................
........
........
.........
........
........
........
........
........
........
,........
........
,........
........
.•
,I.·.···
........
........
,........
........
,........
........
........
........
........
.......
-........
................
........
........
........
........
........
........
I······.· ........
/··.···tt.
........

l1;JAN-71
/
3ZJ

3i~

5146
2745
i?40 . 1145
7141
;;42 764"
1143 4257
iZ44 5131
1145 2661
7746 5351
;15!'.'

;;51
;152
;;53

V;1Cl

tAD

TAO
DCi
JMP 1
PlCOUTL.; xOuTL

p!\jruos, NP'e:EOS

f'! £LO i-

I"C( 1 .

•

/
/
/

CHAR
MMCOM

/
/
/
/
/
/

PSETCI.K /
PCL.I(F'LG /
PCL.I(P'L.G /

WAZT
OEl( ZT

o I. EXPRESSION

/
/

PCLEAR
PNCHARS /

006377 -

/
POpTR
I'Nn:£os /
~NCOI.S

OEXIT
/

wAtT

/
/
/

/l.J NO

IE SF'
IPOp

/
/
/
/

PSCOl'OU / •••••••• SET OUTorv TO SCOPOU

PXOUTL,
OUTOEV
oEXlT

~scoPOu,scOPOU.XOUTL

"'NCOLS; NeOLS

23106

/
/
/

SET OUTOtV TO XOUTL.

I ••••• • ••

~ ,0 •

•

IF'OCL12.'"

231~~

PAGE 1.66

11111111

11111111
11111111

11111111.
11111111

11111111
11111111

11111ti1
11111111

11111111
i1111111

11111111
11111111

H111Hl
1111111,1

11111111
il111111

11111111
11111111

11111111 _
11111111 '

11111111
1111111.1

11111111

11111111
11111111

1 :2103' 11i11ill

;> IHl2'

e'1111111 ' 11111111

v10~

1111;111

720Z
~30e

~' 40~

15021
0600

011210

11 0 0

11111i11

11111111
j 1111111

11111111
11111111

,2021
130121

11;:11111
11111t11

11111111
11111111

1i11i111
1111:1.111

11111111
11111111

1400
1'0~

11t11ii1 .11111111
11111111 11111111

11111111
11111111

160:il

11111111

,,00

l11:11"1il

11111111
11111111

?000

111.11111
11111111

11111111
t 1111111

11111111
11111111

i1111111

i 1111111

11111111
11111111

2700

11111111
11111111

11111111 . 11111111
! 1111111
11111111

11111111
11111111

300e

111.11111

11111111

11111111
eJ000fH,00

11111111

[\k'\01il0~0"

e0('!001,'l"0

~21:1J00.a(?l1!'

P.I"0~£I00(1!

11111111
1121"2100210

21 ""
220e
2300
240e'
2500
?60Q1

31121~

11111111

11111111
11111111

32021

00(10P:~11
r 0~(?I ':\ .'\1 ~

t1111100

Q!0001HHH'l

C!J0000~00

00"'020('10

000ee<000

11;l0il1~0001Z!

012'0000021

, ~~~M"'00

0~::J0"M0

000Z~H~t(l0

"'1~0(IJ0"Jl0

U0~r0e:0

~00;H""00

Z1L'J000~ile

~600

11111111

t 1111111

11111111

110C!Jn~0

3,O0

~0~0(l1:"~t

·:Jl3lH'n0~

0~31211'JU0

2I0ee~"'~0

~0~1'!l00"1:!1

0~HU'QleU

1111U11
" lei '" I2J I!"HI It'

330e

.,.-

34021
35k:l(1

1'1111000000

.'
~.

•
43fcli2\

41""
42~h:l

4300

44""

A5""
4602'

001'J10";lI:'~

!~!3I?~@il"

4700

l1il1!1.1

i1111111

11111111
11111111

11111111
11111110

5Z0~

5100

11111ii1
11111"111

11111111
111111U

11111111
11111111

11111111. 11111111
11111111 11111111

11111111
11111111

11111111
11111021

5200
53011'

Ui11H1

11111111

l1iiHh

i1111111

11111111
11111111

uHHil
Ui1;t11
uHi iil

11111111
11111111

i 1111111

11111111

u11H1:1

11111111

lli1il11

11111111
11111111

11111111
11111U0

61"0

l1i1Hil
l1111iil

11111111
11111111

6200
6300

U1'ii1tl· 11111111
11111111 11111111

11111111
11111111

11·111111
11111111

11111111
111111U'

b400

l1il1til
11Uni1

11111111
11111111

11111111

6'0~

11111111

11111111
11111111

660"
6100

Uiii1t1
11111 til

11111111
11111111

11111111 11111111
11111111· 11111111

11111111
11111111

121021

11\11"111

11""
1200
7300

11111" ii1
Ui11iil

\1111111
11111111

11111111
11111111

~111U11

11111"111

.11111111

11111111
11111111

11111111- 11111111
11111111 11111111

11111111
11111111

11111111
11111110

740e1
7500

11t11iil
11t11 i i1

11111111
11111111

11111111
11111011

76021

11 11 ';'1

11111111

....... ,,? ~

4~~·"11
...". ."

.. 1 It ,'•

5400

5' '0
5600
57r1l1ll
611l0"

-.:

"; ~ ~ ~

11111.:

4111

; ,'.<,...

'I! .~ _:: ~

....

",;:

~_l.;:.

;~-.~

. 11111111 11111111
1l:"'·
,

>It ..

!~,

~~:

IrOCL1'2 ,:51
3616
361 7
3618
3619
362121
3621
3622
3623
3624
3625
3626
3627
3628
3629
36::5"
3631
3632
3633
3634
363'
3636
3637
3638
3639
364121
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651

•

:va

;1:> :11

O,~0

)(Q,

~1~;'I2

4:'1'1
, Z~;)

D:25~,
02~~~~ ,

0M<4

125

("lOInS

I~H'\YJ

085,
GAMMA,

v' (l! ~~ 6

, 000

C"iRCNT;

M~3

231~6

V,''''3

I······.·

I ••••• •••

1(I:lErER~"JCECl
/(REF'ER~NBe:D
/(REF'e:R~'JCED

4 121 III

.......
.
I··.···.·
.......
.
.......
.
........
.......
.
.......
.........

200
125

AS Loe 2)
AS. LOC 3)
4S,LDC 4)

I"I'Jn

~36e

0360.

·10

(H!l0

,'1310
JrH"

)(~1.

/
/
/

L"~1l

~. ,,~?

8l.K2.

/UNIT

"';'112

'0~0

~~13

P4GE 1.68

3621

/ADDRESs

/8LOCK ,'JUfoIBER

"M0

/NUMBER or BLOCKS

(7I~14

c·0e1

MI15
111016

.160

01621.

,'{H;H'I

Al.P~4'

1"1'017

[ ~~0
"020

·20

/
/
/

eETA •

I········

ItNfrRro WiTH NO. CHARS IN Ael R£rREsH
/rOR C~ARS AND POINTS
/
"'~22
~"23

,'0 ~H"
745fJ
512161
71214el

qI~24

3121216

(.IJ~25

11[,76

!lI~26

30215

(11027

1~£I7

PlVJ20
"'~21

wAIHR; 0
SNA

tAD

GAMMA
y

TAO

3(1:31

DCA
DCA

~~32

6141

LINC

"'033

1325

3652

ClQi 35

3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664

VI'!36

?(.IJ77

1i"~37

212115

PCJ4~

1560

~"'41

7~00

M45

4077
4'-"211
6056
241

"'J46

2~iil3

01242
1i"~43

("\'144
7

.;1116

r:~ ~Hl

(,1'171
1756

('I ;~4

i?':,,51

3665
3666

0;'52
t~~53

l176
221

3667
3668
3669
36713

(11054

,221

(1\~55

'J11

~;~56

;,226

CO?57

6033

04371

DCA

3077

,,450
6045

CHRCNT

DCA

"'l"3f'!
01031

QI~34

NOAsell

JMP
CMi

LMOO£
CHRLUP;

l.o~

0360
xQ

GAMMA

H£
JMP GOODY

ADD Y
ADD 0760
BCl I
7000

STc Y
GOODY,

C~RENO;

STC xQ
JMP CHREND
RO~ 1
ADD 0200
STC Al.PHA
ADD Y
DSC A1.PHA
DSc I ALFIHA
XSK I XQ
XSK I XQ
CI..R

XSK I CHRCNT
JMP CHRl.UP

.......
.
.......
..
.......
I.·.......
...
·
..
.......
.
.......
.
.......
.
.......
..
.......
.......
.
.......
.
.......
.
.......
.
.......
.
.......
.
.......
.
.......
.
.
I·.·.......
..•
·
..
.......
I.·.......
..··...
I··.......
...·....
I.·.···
.......
.
.......
..........
/
/
/

/
/
/
/
/
/
/
/
/
/
/
/

/ ••• 0 ••••

/
/

I •••• •• ••

/
/
/

/ •••••••• ONE TIME PER CHAR

'F'OCL12.~.
3671
3672
3673
3614
367'
3676
3617
361S
3679
3680
3681
36132,
3683,
3684
3665
3686
368 7
3688
3689
36911J
3691
3692
3693
3694

369'

3696
3697
3698
3699
3,00
3101
3102
3103
371114
370'
3706
31",7
3708
37!'19
37121
3711
3712
3113
371 4
. 3715
3716
3717

3718
3119
372 III

3121
3722
3123
3'24

3725

.rIAI.1m

Vg~3

231i!6

SI(P

,,
,,
,,
,
/

467
6141

?I~62
=,,~63

22t~0

22~0

645
61<'2

Lor 5
JMP SUBq
SET I BETA

I~;~ 61/1
(1;~

p(1)64
t~='J65

t:l:?'66
IH,67

"'91;0
1iI(~h

CI!~72

\lOASClt,Ll~C

SET I 9tH

'lIn

L·g"

\ 2000
1.0, 6
JMP SUBQ

2i'l!!9

;1646
6U2
1;'''02

WUIf,

POP

P"400[

P0;3 ,6203
"",'4 7200
"'~;5 5420
"'1!J;6 4317
~017
IiIU"

·,171

AU1

<'1173

01",2

11056

AU3

[''''!Ill:'!

1'1104
(II 112"

(11106

1'1101

"'iifll

el11
"'112
0ii3
1'1114
l'Jii5
0116
Dl117

0120
~i21

0122
0123
1'1124

dJ00

~'461

HI~7

;\451
6072

~134

01135
0I1~6

~i37

12~3

5535
.1233
5~37

J.202

01140
01141

7"4

"'142

1171

100"

7"5

•

/Clr CDr "
dlTER

SET AI.P~A

TSr

SKP

JMP W[XIT
LOi BETA
SKP
lolA lTLP; LOA I BETA

OlSPL.AYS POINTS

olI'O

JMP WEXIT
STe GAMM4
Loi I BETA
OIS GAMMA
XSI( BETA

6115

,'33

PAGE

KST
SKP
JMP wEXIT
108

4005

1520

4317

0000

1 "37
:-;14'
\:217

5527
1431
5531

",i~2

SUBR~

r~467

1!1126

1'1133

L~OO£

('530

6072
11lf11

eL.A
JMP I

PSUBS' SUBS
' pL.£SuBs.LESuBS

6041

6016

0130
Ill!1

04317.
V,

:,1415
(\467
6"'2

01125

"'127

6203

•

........
........
........
........
........
........
........
........
,........
,........
.......•,........
.,,........
,................
I······.·
I··.···.·
I······.·,........
........
I,•••••
· ••
........
..• · ...
,,I.·........
........
,I.·........
•.••.•
,,........
........
I··.····.
I··.····.
,,........
........
........
,,,........
........
........
,........
,I.·........
........
.. · •..
.·1
,,........
........
,,........
........
,........
.. •• ••
,,I.·........
,........
........

U':'JA"Ie71

PMOOE
XI.O.

XI.C.
XL.L..

JMP WUTLP
JMP ALP 101 4

JMP t
1..0P(N
JHP I
LCLOSE
JMP I
'1.1.0Ao

XL-S,

XL.G,
X1714,
x1775,

PL.NUM,

JMP 1
LSAVE
JMP I

L.CIoIAIN

77'14
7775

LNUM

PCETRHI,GETRHS

.t1

••1

,ts.

• ·1

•

IF'OCL12.~7

3726
312 7
3726

3729
3730
3131
3732
3733
3734
3735
3136
37;57
3138

3139
3740
3141
3142
3143
3144
3145
3146
3747
3148
3749
315ill

3751
3152
31,3
3,,4
3155
3756
3157
375~

3759

:'144
;11.45

"146

?147
0150
(11151
:'1152
"'153
01154
!'I155

()I156
@1!57
"'160
(11161
0162
"'163
0164
"'165
f'l166
21161
0170
!lI171

1'1172
::"1;3
"'174
1'1177
0200
02U

;'161
3762
~763

3764
3765

:5766
3767
3768

cd Al.l~
116111
1177
12~0

9J~

,:030
!003

2135
1342
1600
1361
" l!IJ0
('''~0

21:176
1:'fla0
(;130E1

2124
:JC'3~

dH:l~

:;11100
;~11144

'~1Zl45
·.~046

;764

01203

"204
"2~5

0206

6203
56e1
5174
4477

;144

5171
?651
4136

1'll214

Pl21'

42144

~2il!l

~212

~,i3

~,:?4

S1oIlTC: ioI ; l'I
SWTMP, 0
P81rLG; B1rLG-l
MYAC1, Ii)
MVAC2, 0
MYAC3, Ii)
P1'LAC; 'LAC
P2'LAC; F'L.AC*l
P;S'LAC; F'l.AC*2
07164, 1164
U!lJ0
~.

CHARTABa,-a

4417,1744

5117.2651

4136.2241
4111.3641
4,,7,4145
4471.4044

174110041

l077

UJ'7 J 4324

4~24

0230

"177
;~3"1

,.1

7741
.'041
4142
4e76

~~27

1'1231

P~EPLAc,REPLACE

Myrr",p; 2'
MYTMP2; 2'
pr 1t.lt 5101, F'lN ISH

1077.7710

;'1('1

01225
012'-6

PCO~MON,COMMON.

]1017

(11;'-1

CA'22
""23

413612645

2645

VI,,0

C~F'LAG;

.. ISS, .. It
(1
LOS$,
PF'IL TAR.rtL TAB
PL.OO(UP,LUKUP

4136

~216
~2t7

PACt 1-1~

PLD~!L.o,LD"'ILD

06a~e,

\~177

23106

'0'

P5LNA"'; LNA"I(·5
P6L \JAM; L~4I'1E·6

01420, 1420
,177
'ERROR; 6203
JHP I
F'SSERR
.202

2241
01117
3641
4577
4145
4417

0211

l1':'JA~ .. 71

61110(!f

('1202

"'202

V,,('3

1420

e200

1'12t1J7
376"

e.l
'"

4142.40l6

0171 ,1IJ301

IF'OC L121:S,
3169
.. 32

~IAL.l"

3J1"1

:-?33

;132'

3770

~'~4

37)77

3"/71

"?36
01237

3712
3113

3174
3175
3176·
3717
3118
3719
3180
311;1
3782
3783
3184
31a5
3186
3'187
31a8

>'1'-35
~240

91241
"242
1"243
017,44
(11245
~'46

t'l247

t'l25~

01251
!lI,52
tl!253
0254
"255

;"1('16
H"/7
;"/41
4471
3044
4276
)376
4411

3146
5121
4651
4040

V·~~3

11;'JANe11

3n"lI17Z6

4417,3044

,. . 4216,0376
'417, 3~46
5121,4651
4040,4071

4~77

,'177
;101

H71,7101

~:176

0176174C2

;402
~~67'?

e671 .7701

''?a1
1463
6314

.1'63,6:514

t'J263

01264
91265

01266
0261
0I211.~

0I2h

~212

",,-73
0274
Pl2;5
~2;6

",,;7

PI~"e

~'770

0,,1ZI,,0e?

4543
''''''
6151

4'43.6151

4117
::00e
1020
(1204

411'1,0"00
1020,0204

~~" .:10

"000,7141

23~0

221010,2076

2'11'16
1604
\'404

1604,0404

\~'H)0

00130.0000

;741

: 02'13

3189

"'301
CilJI7l2

75~0

?5~0.021lZ1l'1

3790

~303
?l3~4

\:0Ml
;GCl0

'1U0,1IJ070

(11:'5(115

; ~721
7624
24'16
5721
4671

3'191

(II~0I6

3792

~3"'7
"'3t~

3793
3194
3'195
.3796

tl!3i1
G'l312
Vl3!3

'1624,2476
15721 J 4671

6661

6661 J .333
51661052~

"'315

4333
5166
1'26

11'317

!'llJ021

C113~0

3600

:'1314

tlI:r16

•

4117,1"/41

1'!256
~26"

PAGE •

307"1 J 173;~

0257
(11261
t'l262

23106

;000

1000,0000
:5600,0041

.•

)

•

If'OCL12.'7
3797
3'198

.3799
38~"

3Se1'
3e~2

38e3
:S8e4

:sarli'
3806

3807
3808

3809
381e
3811
3812

3813
3814

381'
3816

3817
3818

3819

r'Il\Ll("

:':t1l1

~141

('~22
~J?3

41v,'
' "36

:'~24

2.'5~

.",25

,~5~

~376

,·4P4

"327

; 437

:>~~21

:"~Het

(!I~:51

~ J06

("332

'4~4

::"333

' 4vi4

~334

~";'~1

"~35

,21!l1'"

05~"'0"e6

0 4 04'13404
r0(1)l'''''I1'~

21601,4030

403'"
4536

45:56.3651

~342

01343
"'3414
0345
01346

~651

. 21l"1

2U1J0117 '

4523
2151
4122
2651

4'23.2151

"'34'1

~~50
~351

[11352
0353
1'1354
"'355

4122,2651

2414

2414,IU11

J477
5172

5172.0"1

~:651

1506
4225
4443

A356

Pl357
t'!360
Pl361
tlI362
9.1363

1506,4225
4443,6B51?1

605~

~364

5126
2651
5122
3651
22""

5122,36!51

4601

4601,0r1l""

512612651

2200,00U

!~~00

"'365
1'1366
"'367

:.'ia01"

01:5;"

1U014224

1~NI

4224
1212
1212
2442

1'1371

A3;2
11)3;3
,"374
1'1375

1212.1212
2442 UB10

~~Gl~

~3h

4J213

pl3;7

3S21

'e4~410437

c6a

"'341

•

PAGE: 1.72

2~5010"5~

~336

"'340

231Z'6

41~fIll0036

~337

2~'S

3820
'

1!10~

3822
3823
3524

4020J2055
14nJ~777 A~£ C~ARACTER

OlSPL4Y UEA

*lJ0\'1

IGtT RiG~T MANO·SIOE ~ uSED l~
IPROCESSING or COMMANDS (L.la~' W"ficlol NEED'
IA rl~E NAME.tXPECTS T~£ 'O~M rtLE. UNIT

3825

3626
3827

U';'';ANe71

V~~3

i000

1,1 ~"21

I
CETRIoIS; "

IF'OC L1213.

~IAL11Z

3828

1';, ;!1

3329

;'~n

,322

38321

111'3

3411

3831
3832
3833
3834
3835
3836
3831
3838
3839
3840
3641
3842

3843
3844
3845

3846
3847
3848
3849
385B
3851
3852
3853
385 4
3855
3856
3857
3858
3859
386121
3861
3862
3863
3864
386'
3666

3867
386B
3669
38721
3671
3872
3873
3874
387'
3e16
3e17
3878
3819
3eeR!
38el
3882

1326

1 P!!7
tiU
i311

3411
2e'112

i013

31611

1::-.14
1~15

t('l16
10i1
i1t21i1
;{JI21
ti122

1023

;"24

1025
1026
i027

i"'3"

1031
1032
1033
in4
1Q135
1':'36

1:037
i~40

;"41
1042
1043

1,,044

1:/145
i~46

1047

i05"

1(1151
1052
1~53

1t'lH
;:~55

1056
1I'" s7
1~60

DCi

32112

1324

PI.L"1.

1326
3H2

PLLP2.

5236
533~
~324

tAO

PLLPl
PI.NAHE
BLK2

Dci I
lSI
JMP
JMS

JMP
JMP
CLi
JHP

5236

,"06
1411

8LK2

TAO

5216
4333

;106
;006

, DCA
lSI

SNi
JMP

2~12

5330
720"
5231
1322
32111
1327
3012
1322
3:1113
1411

077

TAD

1217
'745;3
5261
1300
3411

IGOTtT ; tAD

Dci

TAO
Dcl
TAO

PLLP;S.

8L.K2

TAD

JMS
JMP
JMP
AND

DCA
TAO I
Cl.l ATL
RTl
RTL

8LK2·1
CCET
IGOTl T

RMSERR

077
~143

NUMSGN
PP43

BLI<2
8L1<2·1
PLLP2
CGET
IGOTlT

RHSERR

._4
PLNAME
8LI<2
07774
BL1<2·1
PLNAME
91.K2·2
9LI(2

TAD

NUI'4SCN; TAO

337~
4J:~1

56!.'\'!

1323

765"

•

01110

l~12

;326

8L1<2·1

!i3:h'

22112
5244

9L1(2·1

9LI<2
81.1<2.2
81.1<2·1
lSi
JMP
PLLP3
eLi CI.L CMI. RTL
I.NAME.4
DCi.
MOANUM; JMS
OCTt>.lUM
GET~HS
'JMP
RIolSERR
JMP

~413

PAGE

PL.U"l.AG
07770

DCi
TAO
DCi

2:S1~6

PL,NAr1E

tAo

Dci
JHP

5236
1322

4333

11:JAt>.l"'1
DC.
tAO

3615

1t:!~4
11~~5
;~~6

i012

v·"13

Dci

I
ISC .. .., orr THE NUMBER, • sET T~t rLAC
/W;.ItCH SAYS IT WAS A NUM8ER
I
140

SNA CLA

81.1<2'1
010

/- '

•

IF'OCL12.3'1
3883
3Pl84
3885
3886
3887
3886
3889
3691!1
3891
3892 "
3893 ' ,
3894
3695
3896
3897
3898
3899
3901!1
39~1

39f/l2
3903
3904
390'
39~6

3901
3908
3909
391 III
3911
3912
3913
3914
391'
3916
3911
3918
3919
~92a

3921
3922
3923
392 4
3925
3926
392 1
3928
3929
3930
3931
39'32
3933
3934
3935
3936
3937

:-lAL.1L'

\ ",' 3

l1~JAN.71

1 :,'64

43('1

JH"

,. ~165

~33r~

,.)';P

1 ;:166

~371

TAO

1"'61

:.-545
1276

DCI.

f~;"
1~h
1~;2

i:;]73
1P.1;4
1'0;5
1~;6

1",;1

3675
724~

3546
5256
1"62
5265
7735

1100

N!I43

l1Vl1

:'~01/1

231~6

OCTNUM
HHS(RR
L"lUM

PAGE 1-7.

P51.~JAM

F'I. AGJ
\ TAO
DCA I
PI.ULAG
CI.A eMA
Dci 1 P6LNAM
JMP
MORNUM
PLEnAc,LErLAG
F'l.AGJ. l.ErLAG-3&177*5200
"143.
.. 43
43
PP43.
OCTNUM~ '"
I

ISUBR TO GEN AN OCTAL NUMBER

11012
1103
h04
1105

1i06
Hrn

111"
hi1
1"112

Hi4

1115
1116

H11

1120

!121
i122
1123
1124
ii25
1126

1127
1130
1131
1132
1133
1'134
H35
ii3~

3371
4333
23"1

PI.L.P4,

lSi!

JMP

AND

TAO
CL.L
TAO

010
CGET

ocl
SN~

RHS[RR

JMP

TAO

I.NUM

tAo

CGET

CLL RT!.
CLL RAL.

1111

JHP
PLLP4
PI.NAME; I.NAMEw2,

('010

OUt

53~2

i'an

1711/1
7770
1174
62.1 3
5732
6357
,·,w~

62(13
5136
2'64

1131

1354

11412'
1141
11042

745~

017.
0771~.

77U'

0717o, 711~
07174. 7774
'HISERR; 62flJ3
JMP 1
LEAR
~
CGET.
6203
JMP I
CGrTX
CGETRET,TAO
SNi
JMP

1143

5733
2333
1355
74513

TAD
SNA

1147

5'133
3356
74521

TAp

' 1144
1145
it46

LNUM
CGLT
OCTNUM
OCTNUM
071
07110

JMS

s?al

;324
1325
712!0
1323
3333
74,20
5330
1371
'U6
;t34
.1333

oci

. 1~lc~T HAND SlOE ERROq
,*1

,*1
07524

lSi!

CGET
CGET
.. 01761

JMP

CGET
056

SNA

II NTt."'ACE: wI T~ r 1£1.0 ZERO
JMS CGET
JMIlI <COMMA)
JMP <CARREl OR SEMICO~O~)
JMP (OTHEACCHAA IS IN AC»

I
I
I
I

• .I /.
"'-

IF'OCL1 2 , .
3938
3939
3940

3941
3942
3943
3944
394'
3946
3947
3948
3949
3950
3951
3952.
3953
3954
3955
3956
3957.

3958
3959
396"

1150
1tS!
1'152

1153
;154
115'
1156

1151

rIALi"
1357
2333
5733
7524
7761
~!356

.:215

h'"

PAGE.

t:215

JI'II' I
7524
7761

CGET

:GET

•

215

I
1163

::e0~

ii61
1162

6002

1163

1.164
1165
1'166
1167

11:;13

1'1h
H72
1'1;3

,,'4Q1

1165

516~

v'110

IOF'

JMS 1

ML08LK
JMP I
MLOBLK; 110

1171
fil 0
l"a00

(.10

3961

;200

1'0~h"

1201
1202

~'000

L.OMIL.D

*1171

LNU"1.

L~AME,

~)00121

3962
3963
3964
3965
3966
3967
3968
3969
397"
3971 .
3972
3973
3974
3975
3976
3917
3978
3979
398"

x1774

30
16

(701112

iH5

LDMtLO; 0

d~30
~!016

1'176
ii;7

3987

TAn

lSi!

07524,
07761'
056.
0215.,

"23

CCit T

I
ISRI"!G! "I I t.:OR£O I~TO CO~E

1,13021
(·000

3962
39'33
3984
398'
3986

11;JAN-11

JMI'

5733

11';4

39~1

V,H'3

I;··;'!''';

0'31""u,,0

"' '!

~000

7240

MYCTR, f/)
1•• ·;~·;CRErtR£NC£O AS A aloCI()
MyPTR,
LCHAiN; eLi eMA
I

IL IBRAAY LOAD

12~3

12,'4
1205
1206
12"'7
1210
1211
1212
';'13

1:'14
1215
1216
1217
122Q1
1221
1222
1223
1224
1225

iii

3147
4543
4544
4342

1546
7:a41
1327
1640

5356
1542
3324
1545
3326
4540
1324

735a
301'"

:I 410

1174

;&40

5356

LI.OAO.

DCA
JMS I
JMS I
JHS
TAD

CIA
TAO

sH CLA

CHrLAG
I'GETRHS
PLOHILO

LUI<UP
P6LNAM

L.L.:ENGTH

tAo

rlL£RR·2
PLNUM
LSBLK
P!SL.NA ...

JMS 1

)(7774

JMP
tAO

DCA

F'II.STRT

LSAI.K
CLA'CLL CMA R"R
XR1
DCA
XRl
TAD
IrlRST wo ~usT BE 1360
07420
tAo
s!i CI..A
FlI.ERR·2
JMP
.. _--" ..

- ..-.

•

.,'

•

•
\

._1

:_11AL.l~
'F'OCL12. ~7
3968
123.' 13;'4
3989
1231 4262
3990
1232 ~254
3991
39'92
399:5
3994
1233 3147
1234 4543
3995 ,
3996
1:235 4544
3997
1236 1327
1237- 3546
3998
3999
1240 4361
.,,~ 01:6
1241 1542
4001
1242 3324
4002
1243 1545
4003
1.244 3326
4004
1245 735"
4005
1246 301(1J
4U6
1247 1007
4007
125e 341fl1
4008
1251 4262
4009
1252 4541
4010
1253 1324
4011
1'54 62"3
4012
1255 60U
4f2113
1256 2147
4014
i257 5722
4015
1260 5Ul
412J16
1261 0603
42117
4018
4h9
4020
4\'!J21
1262 "00'""
4022
1263 3306
4023
1264 133"
4024
1265 3200

4025
4~26

4027
4028
41329
40321
42131
4032
4033
4~34

4235
4036
4037
-4~38
4039
~04Z

;266
i267

.1600

L.SAV[,

:'- .. ;7

TAO

DCA
tAD

13~4

1Jkl5
• '5 ¥l Ci

L.L.ENGT~

p6L.NAM
REPLACE
PLNUM
LSBLK
P$I.NUof

XGtTout.6203

ION
IS!
JMP

JMP I

GO TO

CHrLAG
PSTART

.·1

/THE: WOqOS ARE REAO/WRITTEN ,ROM LOC 4000
lor fL.Ol. THIS ROUTINE MOVES THEM TH£Rt
/

MOO.

III

CCA

TAD

DCA

MOOLUP;

tAo
IU

MOOENO;

SNA
JMP
DCA
JMS
.JMP

TAO

JM~

5662

PL.DMII.D

F'I1.STRT
CLi CLL eMA fUR
XRl
DCA
0360
TAD
)CRl
DCA
HOO
JMS
)(1775
JMS I
LSBLK

5277

1313

CHF'L.AG
PGETRHS

DCA

2U1

4305
2200

13f'12

DCA
JMS 1
JMS I
TAD
DCA

DCA
IS!
JMS

13t:'1

13~0

JMS

.. 3~5

12;5 ,323
12h 32"e

MOO
XGEiO\JT

2200

526~

1.0ADJ

PAGE 2,.'16

II.IBRARV SAVE

12;0 ;450
12h 5275
12;2 3201
1273
1.214

~AC

..,JriS

JMP
I

231J6

11;J /I :~"71

V;'l13

lSi!

JMP 1

5314

JMP _

"'HHI
7402

"H,T-

OEJUMP'
PTBL
MVCTR
MVCTR
MVCTR

'-'.1

HOO£NO
MVPTR

MOV:~OV

MOOLUP
MVCIIIT
MVCTR
MVPTR
MOVMOV
MVCTR
•• 3

MOO
NOTSAV

'l..• ~

HOCLl2,.
4~43

4"44
4G45
4046

4347
4~48

4@49
4050
4~!;1
4~52

4053
41354
4~55

·1

412!56··
4057
4058
4059
4060
4fZJ61
4062
41363
4064
4065

4066
42167
4068
4069
4070
412171
4072
4073
4074

4""

4076
4"77
4078
4079
4080
4~81

4rl'82

42'83
4084
42'85
4086
4087
4088
412189
4Q19"
4091
4092
41!J93
412194
409'
4096
4097

1310
1311
1312
1~13

1314

13i5

1316

13i7

rIAl.l" v '.'3
16::'1

tAD I

6211

~41r:'

57'!5
6211

1:361
1362
1363
1'364
1-365
1366
i3~?

\jOTSAV~

1 41(0

62J1

~I""'l

1:10kl2

;h0
62.13

5760
2'71

:··!'il'!kI

6141
.606
1"2~

1171
6022

1~'2 .

DCA I
JMP I

XRl
MOVMOV

TA.O 1

xRl

6211

LS8LI(,

•

MVPTR
MOVMOV

F'lI..STRi,1:1

1'14000

Ll.tNGTIoI.4

.·1

PTal.

!:IOTTOM

PF'NEW

PF'x

PF'i

BurR
LASTV
POLlfR
'RST

1
IUSES N!LDREDS l.OOICUP
I

l.UKup,

leUI

l'002
;21d0
5142

PAGE

PSTART; START
MveNT. F'Rn"F"E)(p

6141
:'606
1111
6U"
;3'4

2310"

'1VPT;,

6201
DCA 1
" 6211
JMP !

361~1

1320 6211
1321 5735
1322 .-17'
1323 6366
1324 ,. 0~!1
1325 "e3~
1326 I Ql140
1327 \10;'4
133121 1331
1331 ,1035
1332 .]41P'
1333 l~411
1334 ,'412
1335 ~060
i336 ~'031
i337 ~0n
1340 3206
i341 ~00"

1342
1343
1344
1345
1346
1347
i35fZJ
1351
1352
i353
1:354
1355
1356
1'357
1360

U':JAN .. 71

"0606
6141
1020

LNUM

IL.!NC

IL.!F' 6
IL.OA Z

602121

IJMP 21D
F'lLERR&17".6000
00212
IPOP
CLi
LUKUP .
JMP I
rlL£RA; !Ilaa2
IPDP
eL.i
6211!3
lelF' co, I
JMP r
,·1

ERRF'I!..

1
IUSEs H!LDR£OS REPL.ACE
I

A£PL1Cr,!1'

LINe
LHOOE
Llr

Loi I
LNUH
JMP
JHP

'0.1
0/.

SAMEN

'ALREADY THERE

~
--- ..
IF'OCL12. :n

:: 1AL 1 ~

;37Z

7354

1311

;375

4r.98

·099
41:l0
4101
4102

4103
4U4
41::15
4106

4101~

4106 '
41;,9
411"
4111
4112
4113
4114
4115
4116

4117
4118
4119
4120
4121
4122
412J
4124
4125
4126

4127
4128
4129
4130
4131
4132
4133
4134
4135
4136
4137
4138
4139

1372
13;3
13;4
1375
13;6
13;7

J"1P
, JHP
ENR[PL.~ POP
PHODE
CI.A
JMP 1
*14JJ
fo4P~C"1A; .. 254
PC,UR, CHAR
I."IAI([, DCA
621111
TAO I
6211

"""2
;V~

5761

3157

1404

6201
1601

'(166

1405
l' 406

6211

1.~7

tHe

;640
5623

1411
t412
1413
1414
1415
;' 416

L.lr

1157
3546
4555
629)3

Dci

6""111

5621
IJ611

1133
1139

,510

i426
1427
1H0

'1455
('1'12
1"003

JMS I

LXlT •

1433
1'434

5236

t435
j

5257
4JOt>
l226
7450

14.<12

1221

1437

4()22
72'~f1

44"
1441 5251

un HH

H5,~
~ iii 2

II.IB~ARY 1'4,1([

6203

UNIT

rlRST &LOCK
121 •
UNO[J'INEO
1 •
UNSIGNEO(l wo)

TYPr

I
I
I

43~2

11IlOT [Nur ROOM.. SHOULD NOT HAPPEN

ION
JMP I
PPROC
PPROC. PROC
PG£i'c, CGET
PRHSrRR,RHSERR
075Uh 7510
0Ole~
U
Mes,
8323
GSMci, :523-312CI MC~. 31~~3IU
IF'lLTAa ENTRY III TYPE
I
LENGTH
Iw"'£~E

1431

£Nur qOo~

PCWAR

PRHSERR
PGtTRHS
PLOf" H.O
MYTMP2
P6LNAM
PR£PI.4C

1:.'2110

1436

MVTM,P2

JHP 1
Jt1S J
JMS 1

TAD

INOT

PAGE lot7S

REPLACE

4'43
4544

Sli CI.A

231Z6

24
F'lL£RR

M.I NCMA

1425

1432

F'lLERR
E:NREPL

TAO

12~0

4140

4141
4142 4143
4144
4145
4146
4147
4148
4149
4150

J'1P

H24
1354

14M

i.n7

J~10

SA,M€\,

14?1
142'2

1420
1421
1422
1423
1424

l1':JAN.. 71

; 626

1 4;",
7524

i4~J

V~:'~" '3

LOP[N. . Jt1S
JMS
JMP
NOP
JMP
JMS

2 ,

SIGNED(2 WO)

3 •

F'L04T1NG P01'llTC3 1010)
ILI8~ARY OPEN

COMSUB
PG£TC

,.3

TAO

ERXIT
GETCX
MCS

Jt1P

ITSSS

SNA

;~i
;H1a .

~SMCl
IT~ 1 J

.'-,

~'.j.::.~,

··3

rtAl.l~
l1';JAN ... l1
231V'6
V ..
IrOCL12. J '
PACE •
4153
1 45
123(-1
tAD
elMer
4154
1446 16 4~~
sli Cl.'
4155
1447 5623
;H~IoiSERj:/
JMI' I
4156
145~
721~1
ITS;r.
lAC:
41S7
1451 70l!.1
ITSsS, lAC
4158
14!'2 n101
ITS! it lAC
41,9
1453 3157
'1YT~P2
DCA
416"
14~4
4622
JMS
PGtTC
4161
1455 5261
J/1P
4162
73~1k1
145~
"lOP
4163
[I:fX iT ,
'457 ;200
el.A
4164
JMP
P~~SERR
i 46" 5623
4165
1461 4543
JMS
PGtTRHS
4166 ,. 1:462 (' 0'30
LEF'l.AG; k)
I( OR J'"'P •• 3 l' G£TRI<IS GOT A -I
4167
1463 4544
J~S
PLO'11LO
4168
1464 4"3
JMS
PLOOI<UP
4169
1465 1157
tAb
"'YTMP2
4170
1466 3556
DCA
"'YTEMP
4171
1467 2156
IS~
"'YTEMP
4172
1470 1'46
TAO I P6LNAM
4173
1471 3556
Dci I
MY TEMP
4174
14;2 2156
~YTe:'1P
IS!
4175
14;3 1542
TAO
PLNUM
4116
14;4 3556
DCi
"'YTtHP
41'17
14;5 2156
lSi
MYTEMP
4178
14;6 1545
TAO 1
P51.NAM
4179
14;7 3556
DCi I
MYTEMP
1,00 5216
418"
JHP
LXIT
4181
i501 ,472
07472, 7412
4182
1
4183
ISCANS OFr F'N AND I.EAVES POINTER IN MVTEHP
4184
1
.
41S5
15'-"2 " 0"~
COI1SUB. 0
4186
1503 4366
JHS
Guex
4187
1SIl!4 13U
07472
TAD
4188
1511'5 7650
SNA CL.A
4189
1506 4366
JMS
CETClC
4190
1527 1224
TAO
0"10
4191
;'510 7100
CI.L
4192
1511 1225
TAO
0013
4193
;512 ;420
SNL
4194
1!H3 5257
JMP
ERlCIT
4195
i514 1U6
eLL RTL.
4196
1515 1152
TAO
PF"ILTAB
4197
1.516 3156
Dci
MVTEI'4P
4198
1517 5702
JMP
COMSUB
4199
1

•

•••

I .

42~"

ILIBRARY CLOSE

42'1'1

42212
42J3
4204
·420'
4206
42~7

15213
1521

1522
1523
1524
1·525
"'-~/'

431112

4622
5623

741S
5257
3"6

LCI.Ost; JMS
JMS
JMP

COr.tSUB
PGE:TC

. ./

P~f04SEAR

SKIi'

. JMP
DCi. I

ERXIT

MYTEMP

/- ....\
\,
)
.....
':'~

....
,J
\"..,•.-1'

i.:lA.L1:"
42:'8

1;26

6"'~'2

42,~9

1527

456V
73n

4210
4211
4212
4213
4214
4215
4216 <
421 7 ' .
4218
4219
422"
4221
4222
4223 .
4224
422'
4226
4227
4228
4229
4230
4231
4232
4233
4234
4235
4236
4237
4238
4239
4240
4241
4242 '
4243
4244
4245
4246
4247
424S
4249
425"
4251
4252

42,3

4254
4255
4256
425 7
42;8
4259
42621
, II I'

., I

1;33
15 :!1

'15~2

v .. ,." ,

l1~J"~ ·71

2312)6

PAGE hSet

I ()f'
PF' I N IS·";
I
eL.l eLL. lAC I-1TI.

J1S

J~S I
, . JHP

456:'1
5216

F>FT~ I SP'i

t,.X IT

IrllE VARIABLE LOA.OER

ITL.OAD; ~

1533
1534

JHS 1

PCO"1MON

is NOw IN ME~,RYI LOSS
,POINT AT iT, ONE or THE rOLL.OWING 3 CHOICES wILL BE TAKEN; ACCORDING
/TO TYPE

IVAI:nA8L.£

JMP

1535
1536
1537
15Hl

5346
5341
1551

1541
1542

3164
1551
3165
2151
!;354
137a
3164
1"1
771"
7Z41!1
3165
1551
3166

SRETLO; DCA

1164
3567
1165
357"
1166
3571

TAO

1~H3

1544
1545
1546
1547
1550
1551
1552
1553

1554
15"
1556
i557

1560
1561

1562
1563
1564
1565
1566
1567

15;0

2151

r~ETLD~

l'!3i.'1l?'
4622
;'027

1571

5623

15;2

5H6
16~'"

TA~

lSi

TAO

DCA
IS!

JHIit
JR£TL.O; u5
DCA

IRETLO
SRETLO
L.OSS
LOSS
",YACl
L.OSS
MY4C2
LOSS
CRE:TLD
027

MYAC1

tAo 1 LOSS
SFii CI.A
eMA
DCA

tAo

DCA

6203

5733

JHP

62"3
~C~

TAO
9C~

TAO

Dci 1

GtTcx,
027,

MYAC2
LOSS
r-4YAC3
MYAC1

PVLAC
MYAC2
P2fLAC
HY4C3

JMFI I

P3PLAC
ITL040

"27JMS

PGETC

JMP
JMP

pqlolSERR

GETCX

,,SU8SCRIPTING 'OR rIL.E
*16111~

VAIABLES

IENT[R wtT~ riLE NO. IN AC
COMMON; "
A.NO
07
CI-I- RTL.

T!9
~!~~

IfOC L12 • •
4263
f 6,16

4264
4265
4266
4267
4268
4269
421"
4211

4314
431'
4316
4317

DCA

1'610

3151

T4C I
DCA

1623

6211

7650
5177
1556
3011
1411
3011

3e13
1011
7141
1150
;420
5232
3150

1641

;204

1642
1643
1644
i645
t646
1641
t65111
1651
1652
1653
i654
,1655
t656
1651
1660
t661
1662
1663
1664
1"665
1666
l' 66'
1670
16h

3151

. 1.673

7140

3150
1"11
7141
1150
7430
31'"
72U
H!l13

10214
3£113

'433
5171
2812
5235

TAD I
DCi'

SNl
JMP

Dcl

1556

•

f"ERROR
MYTEMP

SLKZ

otVOIV

~us

8L1(2.2, ,
PR[OIV

TAO
.ocl

01764
9L1<2·1
LOSS

DCA

LOSS
toIlSS

DIVLU'P; TAO
CLl RAL

fAD

RA~

DC.

BLI<2

tAo

HUS

DCA

HISS

tAo
oci

8L1<2.2

CLl CIA
Sl~

eLl

Roll

s!L
JMP
IS!

.,IMP

TAO
lSI
eli
lSi

TAO
IS!
JHP

oci

II-Ow ORDER SuBSCRIPT, THEN POINTER

HISS

tAo

SKP

2E!12
5265 '

ISUBSCRIPTS

L.OSS

IS!

JHP
OlvoiV; CLi

DCA

2200

"'ISS
PSVSS

PACE

fAD
91..1<2
/CRE'ERENCES LoCS 2,3.4)
Dci
BI..K2
DCA
8L1(2*2
PREOiv; TAO
91..1(2
IDIVIDES BV NO. ENTRIES/BLOCK
CLL. cr.
tAd
HISS

7410

1672 1313

1674

JHP

1556
2156
7041
3012
115121

231~6

6211
TAD 1 "IYTEMP
SNA CLA

1556

1624
1625
1626
1627
1630 2813
1631 5222
1632 7200
1633 1112
1634 3h2
1635 1151
t636 ;U4
1631 3151
1640 1150

4301

4302
4303
4304
43o'
4306
4301
4308
4309
4310
4311
4312
4313

~15~

1620

4296

U';'JAN .. 71

15::11:1

1621
1622

4297
4298
4299
4301/J

v:03

16n
1'611
1'612
1613
1614
i615
1616
1:611

4272
4213
4214
427'
4276'
4277
4278
4219
428"
4281
4282
4283
4284
4285
4286
4287
42S8
4289
4290
4291
4292
4293
429.
429'

:J1AL1~

8L1<2.2

F'[RROR
81..1<2.1.
OIVLUP

MYT[MP
MYT(MP

8LI<2*2,

COMMON
HISS

9L1<2·,1

ISETS UP COH~ON xlT ACCORDING TO 'IL£ TYPE
ITeLK (RELATIVE) IS' 1~ 8LK2+2

11'3

LOSS
tAo
BL1<2.2
eL.L CMA
TAO 1 HVTtHP ICT"'&: LEN~'T"')'

".Jt' •

~
QIAL.H.'!

IrOCL12,~?

4318
4319
4320
4321
4322
4323
4324
4325
4326
4327 ":
4328
4329
"'33"
4331
4332
4333
"'334 .
433'
4336
4337
4338
4339
4340
4341
4342
4343
4344
434'
4346
4~H7

4348
4349
4350
4351
4352.
4353
4354
435'
4356
4357
4358
<4359
4360
4361
4362
4363
4364
4365
4366
4367
436&

4369
H7~

43H
Ui2

1675
l' 6;6
1677
dlllt1

1701

1";132

1;03
1;~4

17""

1736

'\;07

1713
1711
ih2
1hJ
1"714

ih5

76:2 ,1

e:'

5177

J'-1P

2156
1556
3~'11

1161
1163

1725

1726
ji21
1730

H31
1732
H33
1;34
1;35
1:736

i;;!7

1'40

1;41

'fl~6

1;44

1'145
1;46

It:J1''
315"
56'~0

1751

("000

1·'52

3162

1753
1'754
1755

1162
1163 .
3010
1410
76,13

1760

5151

1162
hl

113 H

17H

TAO

~4U
HJU

IUSOI,.UTE TS L.I(

SW!TCI>!

JMS

PFTHSH

ocl

SWITCH
PB1F'L.G
XR1

TAD

. BI..1<2

Dci
TAD

XRl
XRl
81.1(2.1-

TAC
TAO

CLA lAC
XR1
DCA I

oei

TAO

81.1<2.2

DCA

)(R1
X1114

IREAo IT IN

TAO

SWITCH

/THE VAAl ABL.E IS IN MEMORY

TAO
TAD

06001/1

JMS I
BI.K2

USAGe; eLL RTL.
RTL
RTL

60~1

1'750

TBL.K

sw nCH

DCA
lOf'

!'el1
7~06

ISTA~TZNG

eL.i CLL. lAC RTL.
CHECK
JM~
SWITCH IAL.TeRNATt T~E sUrrERS
tAD
SNA CL.A
eL.i CI.I. lAC RTI.

454e

h06

81..1<2.2
91..1<2·2
CHECK

TAO

34U

t142
1';43

1;56
'"757

TAD

3~10

:i.161

aL.K2
MYTEMP
MYTEMP

lSi!

1231
3410
1"11
3410
1410
3U2
1013

1173
11'1
3151
7346

1'147

DCA

JMS

!?21

1122
1";23
1:;24

j":YTE;flP

'1YTE'1P

DCA

PAGE 1.82

n;RROR

TAD

3~13

23136

CL,A ISUBSCR,I'T I~ TOO L.O',G

lSi?

4351
7307
4351
1161
7652)
;327
3161
6(:102
1161
456:11

1;20

2156
1556
1013

1:717

1116

11;..; :·"'11

V)('3

CHECK.

L.OSS
DCA
L.OSS
CL. 4 CLL. CMA RTL.
XR1
TAO
OCA
HISS
ION
JMP
COMMON
0

[lci
TAD
TAO

SWTMP
SWTt1P

PB1F'L.Ci

Dci

Xj:!~

TAD I
lCRl
SN4 CL.A
JMP l'
CHECK
TA~

91~
r ~

x~;

LlLK2

•

IrOCL12.~.
4373
4374
4375
4316
4377
4318
4379
4381/j
4381
4382
4383
4384,

1764
d'65
1166
1761

1";;(')
1;h
1;;Z
11;3
1774
1;;5

1;;6

DI AL1!3

2010

141(ll
79.'41

,',a~7

2000

440"

4401
44212
4403
44~4

443'
4406
4401
He-8
4409
4411l!
4411
4412
4413
4414
4415
4416
4417
4418
4419
4421l!
4421
4422
4423
4424
442'
,4426
4\421

'0~Z

1567
3164
1573
3165
1'71
3166

'''11
21U2

;013
'014
2015

~016

212117
2020
2321

;'{II22

2023
2024
;025
2026

2027

;03"

2ro31
2332
;~33

4554
5266
5224
1164

2151
1165
3551
2151
1166
5211
1164
745"
5244

""Il!

5251
7100

1165
'51~

29135

7010
3165
1166

,kj<4"

:hHl

;;,42

;:'143

,"44

~~4!5

2046

" JMI' I

CHtCK

JM~

ITSAGO

TAO

07,

2151

2III "7 .1166

PAGE

•

laLK IS iN MEMORy ALREAOY

.20~(!I

Dci
tAo

DCA

tAo I

Dci

TAO

DCA

TAO

JMS
JMP
JHI'

FRETST';

tAo

Dcl
!SI
TAD
OC. I
In

)CRl
P1rLAC
MYAC1
P2f'L.AC
MYAC2
P3rL.AC
MYAC3
XRl
PCOMMON IBLK IS IN MEMORy I LOSS POINTS AT iT
UR£TST
SRnSTMYAC1
L.OSS
L.OSS
MYAC2
LOSS
L.OSS
"'YACl
I NCAL.i.
MYAC1

TAO
JMP
·SAETST; TAO
SNA
nOKOI<.
JMP
SMA CLA
SToose
JMP
NORMLE; eLL
HYAC2
TAO
SPA
CML

RAR

DCA
TAO
RAR
DCA
IS!
JMP

70U!

31U
2164
5231
1165
3551

SWT~P

23106

I
IrJL[ VAFU A9\.£ STORER
I
ITSToR; 0

3551

?il20

;0:57

8L1<2·2

111llr/l

2034
2~36

TAD

si!A CLA

7640
5751
1162
5336

i,10¥!0
311JUJ

'0.103
2004
2005
2006
2007
21"11111

CIA

1~13

''''0111

2001

sU CL.A
C4[CK
JHF' t
XR1
lSi
XR1
TAD

764:1
57'51

4385 '

4386
4387
4388
4389
4393
4391
4392
4393
4394
4395
4396
4391
4398
4399

U':'JAN .. H

VJ!~3

5T01(01<;

TAO

DCA I
IS!

TAO

/MUST BE Lrss T~AN HACN. 1.

MVAC2
HHel
IiY4C3

MYAC1
NORMLE
MYAC2
L.OSS
LOSS
MYAC3

.)
'F'OCl12.3?
4428
',' 5\1
4429
'-~51
4430
~.~52
4431
'~53
21154
4432
4433
'355
4434
2~56
~~57
4435
~~60
4436
4437'
;~61
4438 .
'362
4439
2~63
4 Hili

4441
4442
4443
4444
4414'

4446
4447
4448
4449
4450
4451

4452
4453
44,4
445'

4456
4451

4458
4459
446i11
4461
4462

4463
4464

62~3

'372
211!73

2(!74
;('1;5
~ai6
'2~11

h0l'1

h"l
he2
21a3

he!!4
h05

2111
h12

:hi3

'2121

;1,2

4471
4472
4473
4414
447'

?\23
;£24

H':

RAq

lSi!

TAD

SMA

CL.A

U~£RsT; DCA t

1.0SS

DCA 1

HISS

JMP
CRUST
URETST~ 6203
JMP t
CALl.1N
l~CALL.~ Dci I
LOSS
CRETST; CL.A CMA
6203

JMP 1

1TSTOR

FINUH; 21 _

TAD
DCA

tAO 1
CLA
JMP 1 rINlSH
XRS,
TAO

141f'
.""',,

SMA

56'16

1910

Dci
Dcl I
TAO 1
DCA
TAO
Dci
TAO 1

CI.;' lAC

3321

1412'
3322
1 4 10
3323

DCA

JMS 1
BL.QCI(
JMP I

4541

2121
5676
.~ elklP.I

LOSS
LOSS
MYAC2

CI.A CL.L. eMA Rll.
lAC

5620

}030
1163
301e

SMA CL.A
CMA CHL.
DCA 1

6233

1410

447111

4471
4478
4479
4HZ

7576
3551
1240
3"0

Hil'!

4469

4476

56'10

3321
;22!1
3721

4468

4466
4467

52'2

'It'16
h~7

7X11e
3551
2151
1165
17tH"
1344

;="66
2"'61

2~h

eLL CMI.

.,.:~ 6.,

1001

1-84

~V.C2

STCn=3C; ,-4D

171."1

3551

'114
H15
h16
h11
h20

4H'

1165
7122

PAG~

I"lCALI.

5211

;,~64
;~65

,;,;a

231~6

'::IAI.1C'

~1.0CI(,

.~~00

V:'I

~AB00

:'1101

BL.OCK

BI.OCI<
XR1
BLOCI<
XRS,
BLOCK.S,
XR1
8LOCI<*2
x7175

F'INISH

IUNIT
IADORESS/256
IBLI)CKNu"l
IBI.DCKCOU~T

I
IBxrLG~0 l'
I
•• I~
I
I'

THE BurrER IS 'REE
THE BUrfER jS OCCUPIED
oCcuPIEO A~D SOMET~ING ~AS
,
CHANGED. It MUST 9E w~ITT£N OuT
laXeLK CONTAINS TH£ TB~K W~lCH IS iN THE BurrER

'P81r~G POiNTS TO 81'~CJ

~IT rPtNl .~T ~~r~~

, .: .

ADOtGNS SWITCw MAKES

',.

,....

IF'OCL1ZtJ71
4463
4484

44~'

4486
4487
4488

4489
4490
4491
4492
4493
4494
449' .,
4496 .
4497
4498

't 6
'127

'133
'131

'132

'133

'134

81UNtT;

'~34
. ~h"1"

r~"'0

t.0~1!1

B1BLi(,
SULC,

PAGE:

...J4

•

B2UI~IT;

~
[\

e2BU(,

•

I, :J35

'-'"' '"

23106

IF'lLE DUS~lTIO"S • 4 "'ORDS AP IEeE
I-TvpE (1,2.3!U,S." 15 rOA u~OE"iNtD)
1~~(NGt~ (7711 rr ')

,
;135

! 10" QJ

'136

~~13~'"

;t45
h46

H47

~le00

'3"~Hi

lllHl!!l
1,0 Il! 0
~'eI1l0

!1~2I~

;'Id~S

'154

(-'11\0"

H57

l'~21"

~:"00

',0\1)0

;t62

;l000

H64
;1.65

(>,

;163

",000
1I"0~

' '!Ie

i'I100

;t67

~'O00
~'~~11J

'171

~'0'H'

h;3

(1,000

H72

;i;4
4'~2

0'I3'fJ,e'cH0'~I~

, 0"0

;;1t~6

~:'i0

0'f.0,0,"10.0,,,

~00"

:1U"

;t60

h61

0u,0J1/1,0,0,0,1!I

,,"" I!I

"QJ00
1'0"8

;155
,i56

'H.TAS; 0",""15,(1,0,0,0

,-Plet0
!\"1ci0

u50
h51
h52

H~3

4,r;,1

;''!~~

l1;'JAN It 71

I-UNIT

;t42
:h43

4'~"

V"~3

'-rId; BI.OCK

;137
;140

4499

nIAt.10

1'~00

.·~0'"

•
',0,

..:,'

IF'OCL12.~7

11111111
.11111111

l1111111
11111111

11111111
Ull1111

11111111
11111111

1111111"1
1111101111

1.1111111

::111111
11111111

11111H1
111'i11i1

11111111
11111111

1£11210
111212'

11i11ii1
l1i11ii1

11111111
11111111

1200
1300

l111Eil

11111111
11111111

:1d0
15"'0

1111H11 11111111

11111111
11111111

11111111
11100rUHII

11111111

11111111
11111U1

11111111
11111111

11111111

11111111
11111111

1600
111210

11HHi.l
111:11111

11111111
11111111

11111111 11111111
11111111 ·11111111

11111111
11111110

20021

11111111
11HHi1

11111111
11111111

11111111
11Uun

/0f1le'

~1111111

,1111111

,1"0

11111·'11

1202'

(300
... 2!QI

15021
"'60~
~'f2IfII

i'11f1l/!

2200
2UQl
2.0~

25"21

26 0 0
2700
30 0 0

31"0
32""
3300

3400

350"
3600
3100

11111i11

2311216

4013~

4100
42P'e
430e

440~
450~

4600
41130

50O"
1510121
522121

S30e

5400
55(/J0
!560~

57021
600~

6100

6200
630(1!

6400
650121
6600

6700
70"21
71011'
7203
73(/J0
74i11i/1
751i'l0

7600
17(/J0

/."'

•

IF'OCL12."t7
4

t ~ '1 i_
ASI:"JL2

: 1fll.ii'

V:'03

11;;JA~"71

. C14 \~

2554

EF'UN31

2136

614;)

0256
['85

~~02

Cld4

0004

:220

Z123

CAT 'J'"

11"2

El.PAP
E,"I ()

7134

21411

E1I.OF" I
ENOl.N
ENOT

5335

DCQUI~T

6143

E~FlEF'L

5331

DOTJq
DE8GSW
CEeON
DECOt-.:V

(~"04

7375

c2~~

D1U

5571

C3
C5
C1
C9
CALl.IN
CCR
eor
eEx1
CExP

5345
5341

C~!:IS

~133

, l'41

ACiL
AC"1i"lS

. 042
60:::5

AO",R
"H'

'~4 "
6673
4671

, AL~l

4'6~

AL~i'

Al.F'e
ALr.-.;

Al.TGN
ALi ST
AL~I.4A

A",nUNT
ARCALG
ARCRTN
iRr.Nl(T
ARTN
ASl.4rT

4163
4155

~572

6623
137Y.'!
316
(:.122
4732
5~24

1723
5000

6665

ASI(

12021

ATl'tST

lS7V1
'J056

A)(iN
AXrlUi'

,~~U

;'~46

R1RLl(

AUl LI(
!ii2n~

2133
2125
2126
2134
2131

~2IJNrT

2t32

AT!;W

~lrLG

R111NiT

BAOI(
REr.fN
9Eh
RET2
RET A
~ETil

~'01

55:"13
36111
,,711
4114
\'~1 7
4766

1iIF'

0I'~2
'011

~LnCI(

2121
. 335

~LI(2

ROTTOM
>IUr9F.:G
~urn:Fi

;:jUrR

~ursi'

r.l::1~

145

ASC;CLV

AQ('I"JE

trl

PAGE 1·88

t-751
0153

ABC;('!L3
AC1~

2JIJ6

3216

., 4 7~'
~16 i')

5531
'?l41
, J"6

7516
01317
70'21~

6506
6505

4705

CF'QSX
0131
CGe:T
1133
CGE:TRE 1137
2564
CGETX
e~66
CHAR
CHARTA 02QJ0
CH£CK
1151
CHF'L.AG 01 4 1
2151
CHIN
CHRCNT . lHI06
CHRENO 0056
CHRLUP 0033
CHRT
6133
143~
elMCr
7427
CL.eu
7672
CLEAR
0076
CLr
CLKF'LG 2661
0051
CNi'R
1253
COL
COMBOT 0226
COM9UF' 0132
COMEIN 3140
COMEOU 3206
COMGO
1161
CO"lLST 0774
COI4MEN 0614
COMMON 16k'0
COMSU9 1502
5037
CO~l
CR(TL.O 1554
CFi(TST
2072

~ATU~A

r,CQ\jP
OCQ"JT

DEep

DECR
DEJU"iP
DELE T£
oF'

DGRP
DGRPl
DIG
DIG IT
DIGITS
ClIVi
OlV2
DIVOIY

DIVinE

DIVLUP
O"'OONE
QMPSIol
OMULT
OMUl.T4
ONORt-'
QNUMSR
00
001(

DONE
DOONE
DOUBLE
(1PCVpT
DPN
OPT
OSAVE
oTST
oueOIV
DUBL.AO
oV3

7252
63~3

13026
5627
5600
5533
5521
1306
4565
47U
0425
0441
5543
5713
130"6
51'04
6757
1632
7150
1635
7063
111100

,004
7036
7335

5114
0420
2113
2131
0463
0127
6302
6305
6145
5640
56047

ENUI-!
EFAR
EPAR2
E!:IASE
ERG
ERL
ERR2
ERRF'IL.
ERROR2
ERROR3
ERROR.

ER~OR5

ERT
ERV
ERVX
ER)(IT
ESCA
ETERr-!

(HRM1

lh4

6,43
4556
2135
1375
1732
17113
1766
222'6
2221
2224
,?726
2511
4566
4566
4'66
2725
2216
2221
2241
4"
12532
16041

1627
1655
1644
1613

t:T£RM2
ET£RMN
[VAL
E)(l
:HI4"
2646
EXIT
EX I 11 . S;034
53?'1
EXIT2
EXlT3
1363
2660
EXtTJ
EX",
~044
EXTR
2313
P

ri'043

7261
5733

rCONT
F'CoS
F'COUNT
F'END3
F'EF/FiOF!
F'ExP

7267

HXT

0[621[6

~042

1 5 22

11tH
5177

5535
2267
0117
4620

[CALL.

CRLF'·

'151215

£C~OLS

16"1
1624

rF'F'
F'G02
F'G03

CRUDDY
C:SMCI

1155
1427
0225
0041

[F'O~

0fa56

F'G04

6[627
t'lI:l34

[F'UN

1743

EF'UN2

1155

ErU'lJ

2021

rG05
nCOl
rxG04

6221
6261

CSTA~

6(/111
60'~

Y"'~.5.

• • ~1

~I. -354
rIl STR 1326

...

IF"

. .. --

..... - ...

1537

F'RtTLD
F'Re:TST
F"RST

32~6

!F'3

IF'1

.13
1eJ5

FRSrx

3214

I G~,o;>

'1217

52~4

1036
0771
5513

3661

tOOTIT
lUST
IN
I'I8UF'

2071

LE:5U~S

?173
q,~

>II TAa
FINeR
F' I ~j N_ :\1
rI'-l[1'J
F'I'.JrIN

1137

rI~JtSfi

?~76

riNK;:>

1133
,; 131

G5172

3662

tI>JCAL~

~INT

' G5773
G72~0

iND~cT

6465

052
7653
6724
6753

3663
3664

INDEv

44~7

LG
LG2E
LGe
L1~;e: NO
I.I5T3
LlS16
LIsT7
l.ISTGO
l.L
LLENGT

0'1773
r.,7714
Gn75
G7776

3665
3666

2431
0570
63e?

LL.OAO
l."1

Z44

G7177

3671

~LAG2

651\?
5162
11725

.tL~RG

In~
2~32

GAMMA
G8l0K
r.,ECALL.
GEND

3655
1463
2334

GERR

03"~

INfIX
tNUST
INQRt-'
INPUT
INPurX
INSUB
INTEct
tNTRI'T
I09UF'
!PART
1RETLD

r!N~UT

F"I C; W

ilv'-IIIN
ilX
, r 1lCM
~LAC

FUD
~LAG1

~LAGJ

rLARGI'
~L.nv
~Ln

rLGT
rLiMtT
tLINr p
FLTST1
~Lis"2

F'L"1Y

tLC~G
F'Ln~

iLnUT
rLnuTI'

i'UiT

~L!;U

F'LTONE
rLrXR
rL TxR2
- ~L rerR
~M12

FNVG
rNM
rNTASF"
rIllTA9L.
FNIIM
ro~
rO~l-IlJN

iOIJTI)U
rPAC1

rl'NT

rPRNT

;>135
! 1,65
4555

225:)

rSiN
rssERR
nIT
G101

2014

5774
(1"00

3667
3670
e! iHl 5

1~25

~034
:3~64

01~6

l.~AKE

0211
0036
0"53

L"'AME
LNUM
La
l.0101T
l.OlOJ
LOG2
LOG5
LOG6
L.OG?
1.0GB
LOOP01
LOP(N
LORD
LOSS
LPRTST
1.5
l.SAVE
LSSLI(
LTAPE
LUKUP
LWETMP
L.X IT
MUl0
M1L'lPT
Ml1
M12
M13"
M1<40
"1144

26~3

5556

Gl~C

007~

JUMP

3120
1040
1546
0227
6575
7410
1533
1736
1450
1452
7521
1451
2003
6464

6~212'

GI-IST

1375

1<5

552'5

GO
GONE
GOODY
GOTO
GRPTST
GS1
GS2
GSJ
GS4
GS£RCH
GT!:M
C;i!ERR

5021

KINT
Ll
l2
L3

2625
5126
5131

-125
h07
6517
()471

GETl
GEi'3
GETARG
GETe

1~75

GEi'cx

622'21
"517

r.,ETLN

,~514

6565
5040
1614
6467
6507
24;~5

- Z14
( 015
2407
6142
5163

GETRHS
GETSGN
GETVAR
GExIT
GF'ND1

2330
234S
1401
4545
1566

4554
1000
1045
1405

0352
1510

1iJ232
"045
(1'603

133

0144
1435
1464
1444
1457
14204
0021
-'362
f/13J7
0153
('1045
2414

64';0

IBAR

('1212

5465

tECAL.~

1~~H'I

-374
2161
6311
1914 1
7651
,133
;474

HI~eur

HISS
HORD

Ul37

i R£T ~~

I TABLE

IHRi
ITLCAD
tTSAGO
t rsrr

1TS II
IT501<
rTSSS
ITSTCIR

L~!ST

5134

5137

LASTLN
LASTOP
L,STv
LC
lCHAiN
LCl.OSE
LeON
LDMILO
LHL,t,G
LErpuT
LEPUT
LERR
LESUP2

1'1055
kl031
5111
1202
1520
,,371
1160
1462
3172
6163
6357

~"2'

(1170

471 ;s
~;,sb:

~'M16 7
(' rt 77

('~'2
~C74

13"6
51'15
1327
6366

12:'3
2,72
1422
1172
1171
5167
6333
105:'14
5157
51112
51415
515fc?
5153
6433
1431
~046
~151

20:S7

6116
1233
1324
6346
1·HZ
~0?2

1 416
Ql1Pll
61H
01121
2413
2357
2,56
6137

~111

M22

"'1"5

M24Wl

M260
M272
M4
M40
10143

•

;'11114
1534
1544
6141
23'16
1 il '17

.•

,-' '

•

IF'OCL12.37

'.7,
"5

-.B~(

At(

"C"'''I
vC~

"C~

.. 0

"E~

~,-

"tAU:"

14i!6

," ~'1.. PIES

5526
l135

~OCI..K

2653

- 1~':5

~P4

..,PS
-O\P6
"IP'~

.1.36
116

':(GP

-'6~2

13~5

7254
7256
7255
7201'1
7253
12U'
-:115

"UI TV

5664
5665
11:J1
~ 57!i1
5667
5715
4752

\,IVt':NT

1323

I,4vei'~

12~'e

~VI'TR

1201
,-164
.'165
'166
'156
.157

",PI'US
"'SPACE
'4UirliV

~ud
o.IUI.Tt0

"'UI'T2

"'VACl
"IVAC2
"4VAC!3

'~VTrMP

'"'YTlo'p2

\AGSw
'iC·jb,RS
.:. ~~S

117
5375
726r.l
1.'1 ~
"'1 ~!r.'" A 14NJ IotINCOf\1 6374
5662
"INr
-"'I"JSKI ~-"'51
MINllS2 7153
MINUSA _'112
6301
'4 I >"lllS[
S663
Ml~UU
"1L!HiLK 1165
t.4L!MiT 7647
7656
MM~O'"
5214
~o~
\,IantrV 1254
1262
'.Ion
1275
MO('l[NO
"I0nLUP 1266
MORNUI'1 1356
..,P'
..,P3

23136

l1~JAN"l1

26i12

... ri'T

t.4P1

V':~'3

(1(165
7;66
'1564
4724
756!)
7561

12r

_~IoIIJNDQ

MOV!'lOV

tr'

t;F"(EDS

"!o4SCl

0061

751;3
7556
651;
:~ORF"
"JOq!ol
6571
7147 _
'~Or:lMF
2a31
NO~MI..E
tJOTSAV 131 4
6615
NOX
6711
NOxl
6704
",Ox2
>.JUMSGN 1061

r-.;,OCRI..;
'JOIHNG

aU
012

0212!0

0215
027
03621
031
04377
04600

056
06000
06371
01

36021

1123
1545
00213

1157
15121
02107
136\'
012176
5314
11'6
0173
75'10

117b-

7415
7650
0174
1501
07472
1424
07510
1154
07524
7572
07566
0015
016[{o
7571
01655
1124
017
1125
01710
1573
01716
1155
07161
7567
07163
01164 ,:11172
1126
01113
1121
07774
7752
aC
OCTNUM 1101

073~0

07400
01420

PAGE

1.9~

7161
7704
7753
DE
r.ERROR 7113
7131
(lEX 1T
7114
oGO
7734
01
7722
eLlST
553"
0"112
4716
O"JE
1425
oau
006371 1730
3115
oP
6567
oP~ 1t~S
OPNEXT 1622
OPUS\' 1731
6002
OPTR
2663
ClPTRV'
2665
OPTR!
2664
-oPT~O
5532
oPUT
7763
oS
1357
QSA~P

00
aOISSP

oui'
QUTA

OUTeR
ClUTD£V

aUTOe

ClUTPUT
QUTX
oVrRl
QV[R2
p

P13
P17
Pi"

Pl;I..AC
p200e
p27

1'217

P2F"LAC
p3
p337
pJ'17
p3rLAC
P40
p400C'
p43
P5LNAM
P61.."lAM
p'1201?

'1771

2465
5536
2416
13063
6154
7706
2475
0043
21047
00210
0005
0107
0106
0167
~373

6150
0110
"170
2036
el075

2553

0111
2552
0124
6310
Ql145
0146
1402

p16,i:~

:"1~4

pn
p17a'3
P174r11
PAl
PACBUF"
PACKC
~ PACKsT
PACX
PALl;
PARTES
PASS
PB1'-LG
PC
pel
PCIoIAR

:>l22

PC\o!£CK

PCHI(

PCl(l
PCLEAR
PCLKF'I,.
PCOMMO
P02
P03
POL)(~

PEtA~1,.

PEQ
pER
PriLTA
PF'it-HS

~121

-'312
2~24
2~~2

4,46
?iIl27
2,3'"
526"
2051
633;
,,163
,,022

0614
14~1

5244
r510
2535
0~'15

7745
21154
Ql5J4

\II!)54
~ru3

63H
6135
2'102

2'1!J2
('JU0

prNEw

~4U

p\.[Su9

Ul'Il

1771
PF'NUM
0411
P;)(
?-412
PF'l
1422
PGnC
PG[TIiI'" - U43
5311
PI
5036
P12
5315
PlOT
5536
pL.eE
PL.ClMIL. 011114
PL.£F'LA 10'5

PI.LPl
PL.LP2
PL.LPJ
PI.LP4
PI..NAME
PI,.NU"!

1006

PNC~AFf

7132

PIIlCOI.S

1176

PI.OOKU

110616

1044
1102
1122
i1I142

-:0153
l

"\1\,01."',,,

e.:

=~=L

,"''

":Jllr

=C"_

<1544

:;,41

RETURr-4
' "'Ev IT

POOl·;;

;733

r\HSERR

"P4~

111'~

~ITEOU

"'~ j, <

~413

PPHfl

77!t:5

I)P~~:

1421

"P,,[ . .
"PT:;

"rol'~!V

"rolrPLA
"Ihl~lq

PRi ... 'c
~R~;

pR';'';2
CtR .. ,y

P~";L\j

PFlr'C

PRne£s
pSC:C"O

6144
7574

1622
,'155
1 4 23
4551
2442
3114
6132
4553
611
. bHJ

~s~;eL.

7715
;746

"s,~

~'165

ciSTAPT

1322

PSIIRS

1UIZI
:'030

pTi
PTRl
PTel>!

PTr~

PHST
PU!II~u.
PU4;~'"

silUt;~J

P\rIA iT
PXI'lUTL

lana
Q6

RAN~UL

RA'JO

RARl
RAR2

Roiv

QEAnC

133Ql
,!126
6275
1462
4542
4543
454"

t'" 74

;774
;;~61

5441
616"
1142
6'73

6574

~152

Q(PT
q£"OL

4552
274('1
2761
5112
1361
6146
67!)2

-~E!I;!'lL3

7376

~ESnl:5

631!'4

REr.nVR
~Eenvx

qEMAiN
R(PLAC

qtSOLV

H'~

y,~~

4"'-W~'1I-'

~ET

54'2
1563

~ET'lN

R".JDZ'
ROOTGO
FlOT

" ROUNO
RTL6
RUiJ1

QUA2
RUB3
Rue4

qUe5
RUeIT
SAoR

55.36

7146
113Z

3651

5527

7461
2557
6151
4557
3Z04

3042
303"

H37
3041
2555

~~::~;.u
START
START!.
STARTV
STEMP
5TEMP2
5TOKOK
5T009G
sTORIT
SUBR

SUBS

SUaS2
SWITCH

SWTMP

2601

TASK

SCIoIAR
SCOf'jT

1271
1266

scoPOU

1300
75~0

SCoU~T

5534

SETCL.I<

5351

SETT

SEX

1041

She

1336
014'"

SGoT

1310

sroUND
SICN
SlCNf'
SIN

sMiN

SMP
SM9P

SORTa

SORTC
SORTCN
SORTJ
SP[C lA
SPLAT

SPrvOR
SPTR
SQCONl
'SQ[NO

SRETLO
SRnN

SR[TST

1304
7124

01Z1S.,

2662
6136

6101
6134
1312
4550
0354
4547
6717
3~51

45U

7671
1467
7465
1541
!'I261

2024'

TA51(4
i'CRLF'
TCAL,,2
i'DUMP
TELSW
TEM
TEMP
TEN
TENPT
TEAMS
TEST2

TES14
TESTA
TESTe
TESHI
TEXTP

TGO

TloIjR
THiSLN
TH lSoP

T1NTR

TLtsT
TLiST2
TL!ST3
TQUOT
TRAO
TSTGIlP
TSTL",R
TWO
TWOP!

2276
23i11;
2214

uTe
UTFIA
uTx
Ui!ERST
VAL

~U2

WAiT

2044
2051
6175

0171
111161
0161
0162
3611

SAVL.I<

seAR

1312
2603

UTE

1750
1751

37~1

SAvAC
SAvE

6150

t27.1

1223

UIl£TST

021(110

i'1

TVP£

TY"£:2

5i1J64
1.H16e1

T2
T3
TABLE
TAGl

SAM[N

0117

0032

0"71

111033
6466
6123
121/12
1250
1246
1243
32152
0016
5156
"'26
6271
6152
1772
67'36
7366
0322

4564
4561
11J017
54021
7257

U23
0024
1236
1316
1532
2317
1227
6575
4563
4562
4721
5305

wAlTER

wAtTLP

20~6

•

2316
2064
0032
7657
0020
U15
"1664
0ft172

WALL
wEXIT
0003
WORDS
!!I6:S~
wRITE
WT[5T2 ' 0653
WTtSTG 0667
WX
171673
)(

xl
x2

5321
50!5

4675

x7174
x1775
XAeS
XAOC
XCT
XCTIN
XDtLET
XOUP
X[NDLN

121140

xrJNO

2244

XGtTLN
XGfTOU
XU3
XlIII

XINPUT
XII11T
XLC
XLG
XI.L
X1.0
xLS
XOUTL
XPOPJ
XPRNT
XPUSHA
XPUSHJ
xQ

XR1
lCRAN
lClhR2

(11141
2f1l16

1341
~020

0062
2064
761!12
2360
~302

1254
2666
6306
5666
1156

1'1130
0136
0132

9IU6
0134

2676
1'65
242'
"'477

0521
0QJ01
Qlkl1fd

1145
7.56'

/~'"

~,.

C 'J

.
IrOCL12.~'

Ii~·

~11

... :;"'(
y~ •

-.112
.,

y$~'.

413
:' 112

)(S .. ~,.:::

721

XS;)'- ~~

1535

... S~2
xS':l:;

4676
5,325

lCS~qT

,4:"l

XT3

-717

ltH!;1'C

70 m
1546

""rs'"
xV7-

2 4 51
-.~."

6;22

ERRoRS ~(T~CTrOI

LINKS CrNr~'T'DI

RUN~TI~rl

40 SECONOS

41< CORE U!i:r.~

1,9S0l

ABSOL2
A8SDL3
ABSOLV
ACli04

.~
:?S::32
~J13
~3A5tt

58.

32192

263211

3344-

2632

32!33

2456

246~

'J497

2454

2464
2944
2813

2493
2903

2391

~'-Rl

AC1!.
ACMPiS
AODR

C;91t
67
::'8?9

I. QO"l[

2962

AF"
AL'l
AI.F'2
AU'i!
ALGN
A!.JGN
AI.1ST
AI.PHA
AMOUNT
ARCALG
ARCRTN
ARGNXT
ARTN

348

ASK

746
760

771

~1BLI(
~1r1.G

4485_

P1UII/!T
P2BI.K
R2F'I.G

.4483*
4489*

~2U~!T

BACK
p[GH:
~ET1

RET2

AETA
Fl£U
F~F'

Al.K2

4487#
;329*
32
1950
1949
3632*
1952
1894
'3626#
4308

FOTTOM

PUF'BtG

~UF'F"ER

PUF'R

1430

- 1431

3862
4298
4378

3663
43U

- 3861
43Z3

4349

:S66e
'292
'372

1426

1433

4064

2953

30k'3

31B5

3192

!196

3276

2972
2524

2996
2848.

2856

2986

2992

2998

3007

3021

3665
2983

3691

37117

250
1686
1367

810

828

127S

1274

1276

1717,
1411

1724
1763

81 4
1131

3677

3100

3102

J7~6

3708

3832

3834
42H
4322

393'
4272
4325

3850
4281
4346

3858
4285

4465

3840
4274
4342
4469,

3849
4275
434'

4463

3838
4273
4326
4467

. 1268

1269

131 6

1322

142'

2951

2!512

2818

2513
2964
2821

2985

298'tl(

191'"
19681

~"'., 8-

81~

1738

4486.

3868

PLOCK

U23

3164

.... 82 •

1068

3197

3167

25;7,9

•

32(."1

3158

~;41

2967
1945*
1963

ATI..IST

AXOUT

2812
2978

•

3131

29.
i538
'37.
3080

3631#

;'9;4

AXIN

2931#

3344
" 2St5

312101

1971*
1965.
2'119,
2957
294'.
160
88"
3664
3662
2916
2968
21H,4
2,H,5.
112".
198"
2979#
,,4
756*
1024.
751
761
247
21'
1683
1543
231 ,_ ... 1232 0'_
;$182,
309'

ASHF'T

ATSItJ

';'892

1956
1954
- 1958
'868
2919
;59

31310

Jl33#

.u57
51#

47
'629
U,

2339
2r112
1977.
196f1l#

3673
19741
192121#
3830
3869
4312
4459
234
80

34~'5.

246

02342

1811.

38821

4315
4461
-4\'160
13 4
3413
8{'t9 -

-1BeU
826

,(:;'1

2351#

:t~;S

3183#
137:5

114r1

.:-:9

~144

,~:'~

1522
2621#
1459
1478
2222#
2216#
2214#
221('1#
4444
791
1241
2866#
2653
1923#
1236
205
·l8,2
3'129.

nil

':1° 1

~24"

-20('1

~~~#

~2b2!

,~'1v

-:3
rS

':';'
;ds

;d3

r,9

~AL.L.iN

'~4~3lt

cCR

171-

cEX1

'-8:53

r.EXP
Of"
r.rRS

;851
iSS9
132#
136j

cor

2611

c',RSX
CGET.:'f':
38 4 1
Cf~T~E' .. :<1 ~5it5

c.aUx;, :.' i'HII
~HA'R .: .. ~'

,:".

'.·86'

. -\21.5

1562

3519

eio+ARTA

.. ];56.

CHtOK

4327

33;2f11

3401

3545#

tLF'

99f11

.·1505

CLKF't.G
CNTR

; 618
7BfII
;67

~OMEOU

cOMGO
caML.sT
COMMEN

2U
131*
131

1244
966
39:31·

. 1628.
1235
799#
226"
214

4362.
3994
1282.
366 9

745
4251#
4185#

4310
4198

1997

2?117t

c:R£TsT

4441

658 .

."t".,
1319'

1403

2657

2662'

.9·09 '

77;"

1496'
2169

1408

2739'

13~

42364446"

4369 .

40U

1281
.::

2844

5.·7

~RETI.O

"I·

Z436

5~'6

3;34
4141
1991
4231

3932

522
1311

1794#
643

rOMMClN
COMsuB
CONi

1781

1726

2865111

226

509"

28"4

17~8

79 4
1423

217
1793t
1795
139111
61h

~~7

2243

2634

U09

' ., 2U

C;OMBOT
COMBUF
eOMF.:1N

1676

255'
1:309
24(.'12

CL.EAR

cal.

1 ~"3
1491 \.

3928'

4329
3967
CHF't..AG.' . 3;29"
165
e10HN . ,'~'121
ewRCflkT', ':$622' .' 3642
3669'
C:\04R£r~D ,"
3659
3670
CHRI;.UP;
3650#
2616.
C'HRT
~589
elMer
4132. 4153

CI.CIJ

3425

1746
1549_

230
1794

2033

20'2

2859

2862

9'9.!
1510-c'
3494

r: rHo F'

CRUDDY
CSMCt
rSU~

i
:-'Z5~

.~~
.q,314

3467
134,.
'150

212

225*

~:';4

3;~s2

311£1
3~1"

3~11

3~B9

31:'9

3111

3113

3118'

3261

514
2424
27H
2322

541
2433

719

196
2441

818
2122

1226

1380

2431

3312*

3333

333'

1155

2758

r·8!)

:t!l19#
HUiI

roATu~

:r:'~8

3~169

QATU"IA
OCO"lP

:-243

3261#

['1CO"lT
ClCOU'JT
:"ODTJR

386

394
2586
21

o£BCSW.
nECON

rECO~V

DECP

(lEeR

r£JUMP
r.EL.ET£

;668

'559
21-

~122#

240

'416

2418.

2422
2417
2284

2311

4"'22

2395.
2219
2343.
4341#
259

l"lGRPl

:sekl#
2332

tHGn
r"IGITS

2427

2362.
2462

;26U

.. 2348

olG

368.

() I V1
t' I '12
OIVOtV

'503#

DIVIDE

4279
H40

ClIVI.UP
('1MOONE

4286"
3:)88

nMPSW
OMUI.T

~O21

ll'12"

~NOR!oI

;017
3,7JeS.
,;26

D"JUMSR

,~(lI0

n~UI.T4

DOK
, DONE
r·OONt

DOUBLE
. DPCvpT
:'IP~

r,pT

nSAV£
flTST
DUBOIV
~UaI.AD

:)V3
F'

(CAI..L
E'CHOLS

2624.

2,"9

lBU
1987

OCRI'

...

4~'h

44#

332
,,-;7

363#

1245,
1248
312
1281i1

'661
2661
2!552
'421.
'425

2511

2915
4283.
3176.
43214
31139,
2~8

3~62'

2918

2~29

743
1258
126h
398#
2561
2684
2669
2626#
2444

2353/J

1324

24721,
2349
2518
3039,

2626
2624
2920

30219

3"~;l

3054

1381
3111

1391

1394

311'
241111

3302
2124

3305

3274
212h
272 4,

3326

3300

3311
2502

2922

318'10 4'

1148

2~34.

3268111

:-:2;"-

l29~

'46~

2466

3~;7

3~.'t~'

1~57.

13S8

1926#
397

:5176

651

•

uS 4 ,

949
1286

2486.
33""

·31213

1"'38.

3336

,
,/

.....

)

..-....

~
7611 .

FF'O~

n'u"j

.; ?!;2
;- 1.39
1.35

~F'u"l2
~. F'U~~3

921
1124

1\'43
1136#

114;

733

736

11'1511

n.~A~

11. 22

ll':i~h

END
~ II/DF"I

1.3311
1444

2682

2690_

fNULN

1'7211

200
1315

r'lDT

134#

F.NREpL.
P.JUM

FPAR
FPAR2
ERASe:
rRG
ERL.

~RR2

rRfH"II.
~RROR2

4~99

1086

1109#
1155#

;49
132411
13~9

191

1566.
188"
~~54

189#

ERROR4

iq~.

E:!W

ERVX
£RXlT
FseA
[TERM
rTERM1
ETERM2
nERHN

£VAL
F)(l

nIT
f XU1
EXlT2

EX IT3
FXlTJ

ncP

rxH
F'

rCONT

reas

~;47

354

1315.
1318.
1308
4145
1524
1065
1050

ha2*

iQl56
665
57#
1598
;~06
2~13
~321

162711
62#
?994

:5402

1~135~~9?1

baH
352

rCOuNT

;2;2

rE:N03

1357

rEXQ

3;52*
51
12#

re:~H~oR

FEXT

1142

2740

873

1151

2156

3523

2111

41(j311

1123

E:RROR3

ERROR!5
FAT

13'"

oj ~51

1"111

114QIJ

71
1;. 72

fF'UN.3%

113Q

13(7.
1333
132U
1666*
4'1'86
289
245
307
2777
355
1850

1127*

1668
:516

325

379

399

485

,~a

Sic18

1546

2431

2898

3133

427
661

955
674

1314

2020

3497

:5508

682

9~1

U59

1015

3562
U4'

1154

1218

1566

2022

2519

:556

477

166'1'1

4194

4206

1°48.
2887

1561
. 29:'l9

2232
2958

3499
2980

2981

298'

2999

30221

:5U4

:513 4

2556
3035

2560

25'2
31!54

2602
3328

2609
3329

2673
3334

2865
3355

28'9
3:518

2960

3"'2

. 258a
315'

3379

2990
3380

2318

2355'

2359

43t'\2
1869.
1902

4:510
4054
1912

1961

1992

2vWIIJ

2011

2~26

2036

2~1"

2121

2135

2145

133~

1334.
4163#
1531#
10761
1kl60N
11(18

1\373*
678
2516
16"2
2~13_

686
2848
1614,
2"71

776

2866

2184#

3334#
3~0"

25:54
3H4

1407
31"6
714

3186*
719

2397

2117.

2278
1365#
4269
349
1676

F"F'F"

rG02

rC03
rG04
rG05

rIGOl

nG04

r H.ERR
rII..STR
F'lI.TAB

•
932

,c:.;33/1
'~~6
~54~

2156

~5~QI.

3987
40~3

t INOLN ,

F'INON

134911

F"INF'IN
rlNlSH
rlNKP

476

373
1362
717.

3;38

445(/1.

rlVHuN

F't XM

, F'LAC
F'LAO
F'LAG1
rLAG2
F'I.AGJ
F'LARG
F'L.ARGP

nOv

F'LEX
F'LGT
rL IMtT
rLINTP
F'L1STl
rL I ST2
rLMV
rLOG
, F'LOP
F'LOUT
F'LOUTP
F'LPT
F'LSU
rLTO'iE F'LTX~
TX~2

F'L TUR

713*
771
668

2023 .

66#

35U

789
3527.
3012,
3f1'3S,

h80

1904

3746
;S68t

3747

1878
3887
126
126#

19t13
3893111

;0~2

;926

;sh,
2831

415

133
4;8#

<475.

;9144
35a
1091
'317
129
'836

;S61,
h8
331
34#
43

4p2

398

464

515

8'!7

1224

4455

4,468
965

1185

67~.

'1i'I07

69
3Cl16
61#

4098

27;14_

4498#

F'lSW

4~82#

27U

2U7

3351·

1171
21"9

1873
2155

1819
2162

19"8

1945

3487

3500

2885

732

669
2889

2902

~H.81

H82

2585

2839

2843

3376
",

"3.

2552#

2671*

2676

4C'78 \,
4057.

2692

2549 .2678

2547/1

47S
1;0j

rINPUT
rINT

2543

98~ti

'665

;['13
13U
14M

2235

2546

3;32

nNC~

2183

35:'2

'56~

,,.,97
3975
39;9

2166

269~

1132
7!'ill
2132
2698

226 4

726
2"48
2'04
2273

3349
2315

2117·

U96
2132
3372

267
2049

290
2043

2,,44

20d

696

1181

U47

U29

11~9

119"

255'

2511

25H!

2137

3398

2167

2233

872

3,095

285

19~'

2t'1~!5

2Hh
1939#

684

688
1,,98

1100

2654,

269'

631

737

879

23,4,
2'88

2614

2857

2860

681

~927

2(H8#
U97.

2321
2522.
2851.

2925
1178
1816
2825

136

1996
2547

1128

lUi!

3031

2924

105
3131*
2928
2853,
683,
1441
673

2541

lU9

1445,

2370
2842
144"

2900
2378

2854

2861

3183

3745

!:' ,'112
PolE.;
nO~

F"JTA8F'
!:,,,Uf4L
~. ~U'1

!:'OR
!:'OR~UN

rOUTPU
rPACl
F'PNT
F'PR"IT·

FRETLO

,';61
1930
11#
34111

1151
1156
655#

3486
12911

132
37

1843
1822

c'7?:S
G7200

1824
1830

r.7173
C7174

r.7776
r.7777

1863#
1821
1821
1823
1825

GBL-OK

1828

C£RQ
GETi

CET3
r.ETARG
CETC
GETCle
CtTLN

GETRIolS
G£TSC~

r.£TVAR
GEXIT
r.F"NOl

r,lNC
C:1.15T

11~2

2739:
741
3526#

3621*
9~2

14,,2'
_2?7
1311

1<400
656

1'54#
;97
1"7;4
4146
168M
~;25

70"

903#
298
944
~8*

494

1796#
16.12#
2122.
3154
6721
1859.

l2(')::'

1180
JJ69

3373

J4111l#

279'.
2315.

2799

2831

281'16

- 2822

,2864

4~54

4~67

706

731

968

1099

1188

1779

365t1l

3105

. 3707

31 4
1398i1

1410
312
1047

. 488
112 0

499
1137

513

.7~7

806

1321

2018

211127

2122

2125

2869

28'14 ,

521lJ

1219

600
1227

2146

2159

2913

2915

3143

647 ,

649

1561

1765

7SZ
1761

786 ..
1169

286:5

le6~#

1861#
1862.
1864#
1831
1866.
1867'
3644
1855.
949.
1419
307.

138'

141h
764
233
819
2741
4186
241
3827#
1869
14754

3.,8
946
51"1

. 1995

GOODV

3652

4831#

366"'''

r.OTO

r.RPTST

183

5a4#

~31#

186!5t

899,

253

90~

2769
41B9
363
3814
1985

295
913
2763
4248'
483

1993

:517.

91~tI

c.ONE

?1J5
2138

1152

231'8

G5172

GENO

18911'

2623*

4225#

351
'519*
13.

CECAL!.

111'16

'291

F'SIN
F'SSERR
nIT

r.AMMA

21'2.

27
44iHU

r. 7715

?513
1987

711
3367
2647

3~5iZ1

F'RErST
rRST
F'RSrX

G101

957
89h

1783

2165

U.:I2#
270

744

4,116
592

593

31215
997

4252

3352

C:S2

.19

r.S3

9:!4:

r.S4

9·'5!!
y.' 5

r.S1

c:se:~CH

G Tl:~14
(ii!ER~

•.q N8UF'
.. ISS

HORD
;33
rBAR .

939

~91/

'38

53*

~;33*

63.
2612
3157
82

2141

I ECAL.L.'O:

6"52

IF'
tF't

63U
U7
6411

tF'3
rGNO~

I GOTt T
tLl ST

TN
tN8ur
tNCALL
rNOEV
tNORCT
TNF'IlC
I NL.1ST
TNORM
TNPUT
rNPUTX
tNSUB
tNT£GE
INTRPT
IOBur
IPART

IRE:TL.O
tIllErN

ITASLE
ITERl
TTL.OAD
!TSAGO
1T5F"F'
ITSI!

rTSOK
TTSSS
I TSTOR
JUMP
:.:'5

KENT
11

l.2

219,

~a42

6.H.
'337tJ

5O.
3486
lH#I

2814
U5
2?2

'675
596#
239

52.
69#1

213

33
634
4223
228#1

;85"
698
~~99

'757
435U
41561

Y47
976
Y16
14;)1
325#

4263
98J
2751
3162
1452#
472
651#
742
649*

918#
1412

4277.
231i6'

2876
3260
1461l'

1415

4293,

4294
2419
2943
3315

4296
2481
2946
3322

32102 ~
3338

2136

2238

2749

4280
2388

4289
2398

288\!!

2996

2941

3284

3299

33;-6

1634

U38

16a9 .

2449

2725

245~

4311
~496

4359
2498
3021

444'1

25'-7
311136

2595
3041

3045

2891il

3483

3491

3523

3381

2621

26~1
311~

3385

651!'

224
3853
646
2369
1609
H()7
816
2849.
1440#
470*
2726#
6al
262111
283
736
1579,
163Q!

652111
42324H
2923,
7U
H!l'U
4216'

473

38'"
2371
1613
4428
1283

.t44"

606

14462

1443

597
861

769
926

1569

1811

16:51

16:52

1192'

1793

291'.:4

2907

:5359

U61

3364

3U'

3366

;S37~

3375

n82

2au

2826

2833

2834

2831

2846

28411

2894

2911

U31

424'7

4382

41'52
3422
4149
;648
,Sfll2
'303

4158111

2~65

2U',

i583
2367

•

927#
95~1I

3432*

415"
4388,
2al3
2341"
1588
2372"

4449
2811
159"

3392

. -

~' ..

--_ ..

".
L3

14
l ASTL III

LAS T r')P
l A5TV
~C

l CH Al N

LCI..O!'E
I CON

LOMILO
I EF'I.AG'
LErpU T
l [PUT

LERR
LESUe2
LESUEIS

7511

41i!
71'8 11

277"

332tt

234

3949#

~726

:5892

198#

198

;772

196 11
1.99*

LlSTGO
LL
U.ENGT

LI.15T
L1.0.0
l.M
L",AKE

LNAM[
LNUM
l 0

LOAOI T
LOAOJ
L OriZ
loG5
LOG6
LOG1
LOGe
L OOPt"1
LOP(N
10RO

LOSS

LpFlTST
LS
loSAVE
l.SBI.K
LTApt:
LUI<UP

3893
28221

2636-

2777.
984
2~41

8711

2191#
1929#
2778.
249

812

1332

,,'6

1379
1~84

t')3 7

950

1424
li1l87
9~6

14'-'

1;~Q2
",lOS

111.'3
131 9

11e7
lJ35

1112
1435

111 9

1212

517

537

588

318
1703

396

7B8

322

293 9

2948

3004

3025

3030

2937
3319
4266
4445

4288

4314

4355

4356

4'401

175S

40~~

3903,.
4 2~' 2 II

~;15

LGO
L 1513
LlST6
\ IST7

1346
1" 4 e

42;

~721

,;83

LINENO

2~811:

1243
P41

I G

LG2£

? ::~ 7 8 It

' ,'~3
?A!-l
43#

•

18;4

1~~#

93'

96/11

823
211\1l1:1
~9;3

,,75

3117
1'56 7 •
1~;2

3;27

~;24

21°6'
,,55
3988
2049
'111159
;elS7

,~55
?~54

'-817
3;13
64/1
~1'l37

3731#

4402
181

'649/1
3719
39;7
,54
3733

IH7
832
221
882#
2781
3991
2176
3961.
2180
4110#

3126
36a5
2776
2751.
4039#
2098.
2:l185#
2esU

3953
4166_
392 4
2640
2752

293
1351
822
833
222

3689

303
1 4 62
823

3916
3911

1468

310
1669

311
1671

39601
3959'

4016

4095

304 '

4058,
278 4,

3872
39021

2~91#

2094j1
2822.
4141#
2396
3046
4225
44"4
12(''''·
2782
3,,94"

:.5981

2768#
39'~1

2478

12(14

2476
3112
4228
4425
1208

4~'C1

412'10

4~55#

4t:,7h

4081

2453

3~48

422 6
44~!}

32"

'230
4426
1209

2492
321'6
423 4
4434

249 4
329'1
4238
443~

2881
3308
4265
4440

3390

L w(T,..p
l. xU

~< 1 VJ"

-l""PT

,"11
'"12
"137

"'1 4 3
:'144
"2
/-20

.19#

9'32

4"12211

4H~

1 ,"Sit

1513
2626"

,,"'8,'
1221451tl
1374
147':'6;.)3
114*
1 H'l#

~'24e1

117#

"'26~

9901t

1J7~

1421#
1520
262"'.
635
1679
994

11l'~~#
~536

11'!10
262211

~,40

t412l9

M43

~845

142"#
36941
1206
1405
16J6

1'5

M17

~~BR£:AI(

r-.COM

t1CR
MCS
MO

"'EQ
I"F'"

MrL,T
I~HUNOR

Mlr
MINCM4
1'1 NCOM
""1 NE

MINSKI

~INUS2

rq NUSA
f~ 1NUst

lI'.lNUSi!
~LDBLI(

..,UMI T
~MCOI'4

,'100
~'OOIF'Y

MOO

~OOe:NO

121#
H~8ft

1578.

h6*

119#

41,30*
~2h

659
481*

1221.
;234
3261/1

411218#

;770

'420
6711
2916
115'
:?683

;439
3952
3506

3495
h~4

;51
3989
4'1!28

MOOL'JP

4YJ25/t

~'O~~UI1

387J1t

~·OV"'OV

MP1

4.,30
3221

"p2
... p3

3176

~."p4

~t83

"p5

:!I288
3::1?4

3222

1',!?9

12"'2

•

14B4

~~272

•

2642
4212

256
4147
2292
715#
555
445

1551.
1784

24~6

2598

1229

1491

447

45~

463

2841lJ

2858

2103
313 9
1312

2128
3181111
2435

2186
3202

239111

312 7

3166

3206

3252

3253

3256

3293

3298

33"

1;}62,.
2336
2658

1731
4921
234h

2251*
3271
4114
2192'#
2H5#
1183
3~67

28"
2720j11
244U
3954,
3524#
3528#
21321#
8tZ16#
41'1108
40Z132.
4331
3891
4i1135

3226
3290

3233
3236
32'r.9.
3229

3'8"
4~21111

4038

4Pl4h

4046
3238
3309
:5278
3245
3241
3251

3228
3296

326~'

32421
3211
32J~

4052
3244

~2.4

3248

3249

3285
32641
3255
3262f

3272
3258

329 4
3269

3303

3291

3257

3263'

3270

~
'IP6

~2:'6:t

"PE.R

118;
3

32J7
lU6

2447#

:'PLIJS

"SPAcE

1'413

2448d

3125#
21J1 4

313 0
291 7•

.31 4 1

24.68

2628

"ULDIV

~115

"UI.T

'91J

"UL T10

2428

245;'11:

"'UL.T2
"IUL.Tv
r-VC"JT

128

~4';i8

24'59

~.'75

3('83

3~86

4,32

"'VCT~

3"78
4J54*

39H~

4~24

"'vPTR,
vVACl

4til29
3;421;1
4227
4229
3!43*.
374H
4239
~;36#
4170
432'6
'.4317
4110
373'*
85.
243
3442
3441
3431
3420
1938.
1871
3446
3421
3445
3428
3~43
3672#
1622#
1615

4i!25
4tl34
4233
4237
424)
4171
432 0
4119
33 111
3449
3462

4391
4393
44216
4174
4323
4169
3'111
34'1#
3469#

3470#

3614

,JyAC2
ryAC3
MYTE""P

MyTMP2
NAGSI.j
~:C~4RS

NeOl.S

NEG'"

I\;F'EEOS
NUNES
~OASC I

NOeL.K
NOCRLF'
~JOHAI\IG

NORF'
NORM
NOR!'1F'
~ORMLE
~!oTSAV

flOX

f'..OXl
t OX2

~JUMSGN

("1
r'l1i2J
r12
r200
1'1215

(12'

!'136:!1

n37

3962-

~419

3423~

3448
28;3.

3463#
2930
2918#

'8;3

3128
4413'
4039

;9h

;9521
2989
3847

18U#

3881

1('1~U

3619#
3939
4232
362H

861

4423
4(l147,
2987#
2999#
2994,
3a8~#

1811
3907
1012
3661
3945,

391'*

425~#

3645
875*

3f143

3686#

['146Z0

'245

225~#

056
D6iH3r.

~936

3944#

C16377

~458

347311

4354

4,S6

4383#

C170(11e,

3362#
:'5516

3443

c74Ze

3461
3466,

317~#

n4377

~;49*

2,s63

3525#

4036

241211
3093

2485
3096

4~26

4~33

4a~6

U43
4241
4243
4395
4173
4321
4159
369
346111
3464

4l~5'"

2461

44"'~

44?-3
441 9
41 76
4324
3~3

3577
3613

31("1

4408
4414
4421
417' ;
389

3137

3179.

4424

4429

4436

4179

4191

420'

4261

4213

531

543

1326

3104

4422
4418

4427

4267

42721

430~

-.-

.0;".

\'7 4 2'"

~Slt:·

1"7472
~751.~

oil t2!h'

,"7524

:!9~ 9
~ .. 5~
~63~.

~1756 6

r 76'l1

~423
!~J3

3B44

(l77!7
('17116

30:"5

3~!9#

3465

3476*
3943,
3472.

(17161
r176J
r:7164
07170
r~7n4

3933
3417

3;48*
3831
.,

c>C

3873
3564

:50(1011

3546
3565
3562#

3555#
3594#

35;611

3587
3563,
3'79.
3561
235"-

~563

r.CTNuM

r·c

(lOISSP
roE

r![RROR
rEXIT

nGO

3561

01
01. 1ST
""112

~~68
356~

Cl"lE

'32'6
1901

(IOU

412911

(106377
rP

3575'

~PHBI.

1290
;525.
1595
1586

i;61
'861

OPMINS
oPNEXT

111'55_

"I'TR
c:I'TR2t
('PTRr
"PTRO
c:PUT

163111

'352*

("s

3566
862
3567
1.63

OSAMP

~UT

('UTA

2337

r:UTC~

(1UTPuT

1499
83 •
2352
;48

!'IUll(

15:~2'

(1UTDEV
.rUTDG
('lVe:~l

011'

r.VER2
,-.
;,'13

6'.

3~28

2'5*

22#

J9'!4

•

39181
\.

<1284

3839
3921#
3593#
3883

3659

3654
3474.

~7655

i'n

•

3965
<lIS'
419k'
3942#
J47,Ii

1911/1

4192
3595
1162
2916.
1125
1126#
3436
16311l'
1591
1644
2358
3602.

392'"
38961

3'i1&i2

3599

3610

39"'3

35691
19321

2017

1788.
1135

1193

3477
166"
1592
1656
2374

1682
1596
1657

1532
2360

2319

3578'
169i1
1632'
1661

1692
1691

874.

360.81:

1494.
2357#
15c:3.
792
2558
.3557.
151'6
2452
2399

15~1
25~2

151:14

36'~9

2611

2633'

2463
2451

2475

3~.49

3r~51

1529
951

2489
2473
3114

1542

U39

2513

J116

26~6

2515

2488
33U

2798
2490
3311

289'
2686

295'

2791

3U15

28&2

3i118

2933

3186
2935

3189
:5:H"6

3191
3023

,,\

)

•

1\211
11111

.,17
P117
p1F"L,AC

~;451t

IJ 2021!:1

3'7

~"1.9

c27
r277
P2rLAC

113d
~746tt

1.199.
96-

P.5
p337
p317
p3f"L,4C

1'5?4
323
4242

15>8

4244
1213
497

1378

1'516
3;4711

1548#
4246

1512

p5L."lAM

37271t

p61,.!'-a11

3728_

P7Z0~

90U

9391

F'763(!

19J9.
12311
106#

p77

p710t3
p714~

PAi
PACBUF'
PACKC
PACKST
pAC)(
pAI.G
PARTES

PASS
PB1F'l.G

125.

286

1525#
157
156#
45.
1529#
h61

652
;;59#
3;41/11

31'9
910
929

3998

585
1402
1696

589
1464
17114

28~7

1526
1140

15:5~

228
815

229
1119

254

1191
2768
4365

121f/J#
3556
4451
261
609

1220

1138

2266

824

834

904

268

364
1439

384

4Q17

428
1545

4~3
~556

4~8

446

4'4

211

4'5
461
23'

469
416

421

422

423

154121
2758/1

4£66

1466
4196
4V9

2J4~

2315

426"
4211

4336

416 0

4203

~338

153~

PCL-EAR

201*

181'

42h
1534,
3593

PCL.I(F'I.

3583
3734#

=02

151

458"

4397
444
46"

PECALI.
PEQ
PER

PF'l L. T_A

pFl:~ I S

p,Ne:w
PF'NU"l

32#

11 56

,'48

~618M

1[17#

~;32N

.~738M

3584
4217
44Q1#

14'

35 ..

4;,61

1140

PF'X

355#

1158"
4-162

PF'j!

356.
4126#

4142

PGETe

2276

2443

487

lUll

1699

1'1 fIIQJ

436

45121

46'

633

114~

333#

1533
151tl1#
223
218
1143
2161#
948
2766

PCHECK

i53

40'112

3978
3911

4109.
:H48
414
t528

pOJ
PDI.XR

41,a

3156

206
492#
4112
215'#
418
1532

PCO~MO

4118
4120

439 4

4"*
4aS

PCHI(
pCKl

2810

439,2

pCl
PCH4R

he~

3416

439t'

1396

'-6;2

2029
1 476

3341:

p43

p400~

1659
1456

3 :~3211

1547#
242
2727#
3886
3690

P40

4~6J

26 4
5('9

1033

3!586#

4249

9!53

1021

Pc ETlH4

.511

PlOT
PLCE
PLllMIL.
PLEF'LA
PLESuS
FlLI-P1
PLL.P2
PLL.P3
PLL.P4
PLNAI'4E
PLNUM '
PLOOKU ..,
PNCHAA .
PNCOLS
PNF'EED
POPA
POPF'
POPJ
POPTR

, ·116
,,99

PI
1'12

pp43

pplSS
ppROC
PPT(IIJ
PPTR
PREOIV
PREPLA
PRHSrR
PRINTC
P~NT

PFWT2
pRNTl
PRNTLN

PROC

PRoerS
PSCopO
psETCL

PSIN

'144

",1,19

3A28

3888
4262
3836
3851
387111
3915
3837
3976
4168
357711
3613.
3614#

:38331#
~84U

3863#
390Z'
3'129

3;2H

;'4733#
3539

3598
3597
14511
152*

146#
3578#

3846
3556#
4124
'-542
3459
4275#
3735.
.4116
162.
1697
2600
1465

36(:117
3582

187'

~~14

PTl

PUs!ol~

'h0

1,.,61
'677
4 \'123
127#4
~625

925
148#

2169

2181
2312
4167

23~9

4118

21 97.
2344

•

2345

235h

1106
U94

1211

1214
2888

2753
2901

2773
29e3

3558
2908

11 4 9
1133
1336

1288
1775

1472
2316

1489

1492

1182

1461
2341

675
97"
1772

700
917
1776

7~2

916
1718

104
98Z

1046

llU

2H2

"
3857
40210

3861
4175

3916-

666
404
739

699
693
969

919

923
697
987

4164

4251
784
1166

79'
116 8

820
1773

3594

42'2
542

712
69~

1119
1759

3557

4~1

16611

2157
23'5
3996
J'3y2"

382
492
3596
3895.

381

~613

4165

5~'4

;63

1;;3

4117

4~6

4125.
262'"
3471#
4282
4121
4127#
213
17e5
263'
1469
1181#
2615_
519
409

3&88.
46*

PTBL.
PTe!'!
PTEN
PTe.:ST

2119
23;4
3969

3689#

3995
2193*

·2'H6#

~;261.1

psTlAT

psues

3968

2163

4155
521
17(!16

17139

4204
768
1123.

14'"

1493

1787

2615

1698
489.
479

1701
2249
4SU

3576
495

412'
6G"8

692

11/132

392
93'
1114

395
940
1126
2706

530
945
11311'1

533
960
11921.

536

17!)4

662
963
1751

11621

669
961
1172.

663

676

111

. 766

U40

1~42

. U44

546

n:u

2"'U

3612_ .

3589_
4053_
4264
388
934
11,'1
2691
4\l!59#
1710
2699
948#
36~

27('121

961

667
9b4

2716_
498

1785

PUS~H'

PUSNJ

pwAIT
Io'XOUTI.
i)ADO
'<6

366

1~3::

2,:·2

lolC

1636
361111

1.646

349S

c. ~·'

~~:'S

~1"

911

od3

6d?

6'19

712

924

928

942

959

961

1428

1537

1539

129

731

2500

25r.1

2627

3391

1610

2467
3999
2564

2469,
409fh
2576

2482

2464

2621'

3('129

3~34*

~331

3345.

268'
3J34
2346
lPJ19#

2723_
3203_

3201

3345

19~7

1913
3114,
3875

2029

2127

2U'

2181

3884

391111

3922'

4127

1552

2265

R[VtT
RHSERR
R ITEOU

RN02
ROOTGO
ROT
ROU"lD
ATI.6
RUB1

,;23
,-3t\4.

;53
hili
~164

3843
1838

;,95
3384

1536
'587
174*
155~

~Uel2

1728

RU83

1134#

wU~5

H21
1515
'351

qua4

RU~IT

SAOR
SAMe:~~

1733
4~97

C:AVAC
C;AV(

15;6*

S~VL,K

1577.

~BAR
!liC~AR
SCO~T

HTT

155h

2554
4100'
1579

1463

174ih
258 4
1625

aB~

825

877

f!46

:S4n

3~81

1750

819.
816d

SETCLI(

4106

33981

82611

'2!l3
'23111
654.

s£X

2349.
3389
1552'
263'"
291
1714111
1744.
1746
1741#
1742

3091
1623

~415'

•

1851.

1581

~"73

SCopoU

seou~T

3169
:S854

1741

920

1694.
,451
3735
'5'3

;674

1553

~12

830

R(PL,AC
REPT
R[SOL
R[SOll
RESOL'
PESOL v
RET
RtTRN
RETURN

2231

715

1616'

REMAIN

1561

763

6~2

411

2899

691

16<16

RECQVR
P[COVX

165~

28/016

685

2637#
727
2920,.
2921#
1711
219
679

16 4 *

2864

677

723.

HADe

1177

6.,4

PA ~~O

2a;~

1121

655

229?:/.

R~R2 "

1116

4{\il!

7~4

,ah

111

10;3

,,;5

QO 1V '

3l'1S

1";'s
'9:"6

RANt,wl.
FlARl

4J)

2629' ~
3099

818

~81

343~

3468

:5612

2354#
3589

236!)

2368

74"
856#

:517'1#

2380

23R3

•

HXC

~fO\J"JO

SGOT
~IGf\j
qG~I,

~IN

3a#

834#

884

! .':165
t611
16'-'4

3137

3153,

317f11

16.!'

24?1
1612
2619,

1629j

"M J .~
SMP
!;",SP

'53(,

!iiORT8

159
160#

5PNOQ "

SPTR
SQCO'J1
!l;QENO

SRETLO

SRET~

SRETST .
!;ANI.ST
STA~T

STARTL.
STA!HV

STEMI'

~TEM"2

STOKOI<
STOO9G
STO~tT
~ua~

SUSS
SU8S2
SWITcH
SWT~p

T
11
T12
T2

~C;i.'9

TABI.E:
TAG1
TASK

USl(4
TC~L.F'

TCRI.,2
TOUMP

"599

2410

H26

3161

32:"4

842
550
309

8S1

1063

644

128'
1039
619

2742

603

856
914
1J13
671

758

2164
112169
181

:53h

4224

4227ti

25'*

883
44U8#
876.
261
2338111

14M

158*

6~14

278

2617#

836#
493
299
22111
605
1751#
236
3513
3424,
3402#

1722
176.
~5~5

3363

4399
833
2tA3#
'-11131
19111
3493
352'4
44U
4412

933

l6;6

3512
3515
4424.
4429,
2648.
3682'

191.

927

195'
3;391

986
433Q1

24#

4363
1241

1289

2328

;6414

3;4Q1~

481i1

1"819#
89~

853

23B7

•

15*

~ORTC
~ORTCN

SORTJ
SF'tCIA
sPI.AT '

50;:1#
835

1;44
49*
;319
'693
?832
'-982
758111
196*
794#

;9111

U29

636

412
854
1149
1479
2326
21 .~9
2850#
3~e9#
79~

103"
U27
11'28
1753.

841,
5::~

321
5!j5
J~5"

906

578

858

1076
821

12V:1
831

1205
1150

1216
2774

2426
3559

1273

1219

147-

2261

2268

2283

467

587
1518

1525

~"2'

84'
1129

852
1139

2152
2592

215-

2184

2596

2286
2U7

2313
2688

251
3514

3517

549
3518

657
3520

3544,

3547

3551

266

152

1248

132"

1712

1812

.053

1318
359h

1334

1434

11!53

974

985

2639

2750

:U88

4335
4381
1726
641
2333

433'

4350

1249
2338

12'2

1255

1257

439
1023
238"
1812
2U4·

448
1245
23"'2
191116

451
U46
2311/1
1988

1256

U1'

2533

2038
2514

2131

25'"

359~hl

3691,
962
2638
4333
4364
1423
639
233!1l

415
1t5'

2296
1481
2329
271~

198
1031

431
1022
2298
1481
2363

464

2'""

591/1

2611

1438

1786
J
!:

(~Ji

)

/--............

XABS
)'AD~

xeT
~CTI"

ltOEU:T

)(~rSp
ltE:r..jOL~

lIF'I'ID
)t'C:ETL'~

lCGETOU
It'I 3:3
)(IN

XI NPUT

xlNT
lCLC

xlG
)L.l

)(lO
):LS

xOUTL
l(PO!'J
XPR~T
XPUS~A

xPUSIoIJ
)t'Q
XIU

lI'FtA'i

){AAR2

lr'RT

)CRT2

ltRTL6

xSGN

)(SORTC
XSPI\JOR

xSQ2
xSQR

xSQRT
XT3
XTtSTC
)(TESTN

xvi

iZERO

1181#

f~7

1222#

35=!l211'

, 45

173

169
:-99~

64
;656
'-411
344
;179

;;92
'111
'1,,7
;65(1

83
147
167
149
144
3617#
3625*
4367
346
3336.
3t'1#

31#
1;5
343

161
i;7
1881
1916

232
216
348711
1422#
1344#

27711
4011#
1633#
2666
2432
736#
3714_
3720#
3716#
3712_
311h
1637
1"21tt"
1461*

411.
429.

3647
3983
4370
726ti

3342
376
567

357,
1177N

565,
99h

1883
2134

353
557
185

3349#

179
1482*
3646
'879.

1\111'4#
1486
3653
3174

563_
548#

1368
248

139.9

811

1414
829

'1164
9('13

•

8~Z'#

153'

",'

• 1'55

1714

1721

1135"

4048
4452

4339
44'3

4341
... 56

4343
4460

4344
4462

4347
4464

4358

462
844

466
850

971
1266

972
1272

1217

1262

1278

1·35e

13'3

580

sa,.

583

1895
2172

191611
2174

1948
2116

1951

1955
218Z

19.51
2205.

1e~8

554
101'

559
1016

562.

'62

563

564

3657

3663

36871

122~

1281'

1436
135!)
331

1369

1640
2683
24<49,

1642
2725'

1651

1655

1639

16411

1663

3611

:5612

1473
419
430
3658
3984 .,.
4;57'

434
3666
40n
4376

3661
'4k!07
4389

4,,45
43 06

377
568
361

443
517

449
843

566
996
1866
2140

575
998

'," .

552

2118

4366

,./

)