DEC 12 AJAA LA_FOCAL 12_Listing_Jan71 LA FOCAL Listing Jan71

DEC-12-AJAA-LA_FOCAL-12_Listing_Jan71 DEC-12-AJAA-LA_FOCAL-12_Listing_Jan71

User Manual: DEC-12-AJAA-LA_FOCAL-12_Listing_Jan71

Open the PDF directly: View PDF PDF.
Page Count: 110

DownloadDEC-12-AJAA-LA_FOCAL-12_Listing_Jan71 DEC-12-AJAA-LA FOCAL-12 Listing Jan71
Open PDF In BrowserView PDF
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

1910j DIGITAL

r~O~E

rtXMqI

rSU3a2id0~

X""~
nX~QJ

rOIV.30~0

9

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

,09)0

13

,·'{'J00

14

441'117
6101

n NT.JMS I 7

.'~Ol

·1

l'

16
17
18
19

":'21

'Ha;5

1:'~2
:Oi'~3

'~0~
26:'~3

21
22

.... 1?'4

')0~4

?2'~5

'-~lJ

23

??~6

"1221

221

24

'30'?l

. 2'26

"t1~Q'

;{'I0(1!

27
28
29

!ll?U

':3~B

38

:51
32
33

""h

"'11'210

1'I~13

~4

p'~15

36%'1
3117

35
36
37

38
39
40

644EIN

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
C26~'.
~~24'~.

PAGE 1,,2

I"?" '

3140

25,'2

H~

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

t4

INstR~eTIONSI

RE40C·J~S

ROI'V.

I.

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

IT

..

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'-'

.0

3~62

,5'7

G(Lt~ENO)

ITERM' NUMBER, rUNCTyONI LETTEA. AND IGNORt

SPAC[S~

Ll~E

IREMOVE OLD TEXT

IEXCESS SOMETHING E~ROR
IMISCEL.LANEouS ERROR
IF'ORMAT e:RRO~

o

L.ESUR2; o
SUBS~

~

LEPUT

o

I.·I.· ....····....
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) •

£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

LErpuT~

"'176

rOR A GIVE~ LINE

TEST~j·JMS

6163

7657
"1;5;672

IS£ARC~

IIGNORE SPACES AND LEAOING lEQOS

Q1172
~1;4

IUNPACK AND rORM A L!NENUMBE~

i •

xSpNOR

~00"
i'90e

",i7e1

'PRINT cCLINtNO)

spr~O~· J'~ S

Cil1h

0I~Ql6

216
217

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

•

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

•

221
222
2('3

n4

225
226
227
226
229

~'-~!.

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

,'2 ?7
"!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

;'t:

,"'! ~ 4

n 43
,,,44

:'245

li''''6

:><'47
:'250

Dci POLlIR

4554
1124
1;)65
764€'
4566
1~6"

TAD BurR

5362

5211
N26

:"251
n52

3"10

1'1253

3~62

n5 4
~255

DCA XCTIt-./
TAD LJNE~O

3 4 1£'

DCA I
SPNOR

45621

P257

,410

P~621

4545

~261

4546

"262
??63
1'264
n65

1366
1116

n66

4565

;'12;'"

4556
5171

:,?67
~~h

",?;z

SRETN,

5260

?275
n;6

5177

269

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

2721

"1~1

3a22
ln2
' . . . 01

5232

AXI~

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

164~

454\J

AXJ~

DCA

j067

267

273

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

GONE.

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

:"'-74

27·
275

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

ISAvr

STRI~G

C~ARACTE~

•

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.

4560
4561

n;3

271
272

CSTA~,

COMBOT;

3['113

.,611
1.422
;45t'1

2~8

P;l.l ST-L IST7

1~35

1"56

PAGE 1.4

I.I5T7 .. 1

",'173

•

•

23"'~

DELETE
tN6LN

JMI' START

tNPUTX;

PUS~J

TAO I PC

"Te:XTP"
LINt

IREA~

CHARACTER.

IINtT

CLJRRE~!T

rI~ST

Pus~;OnW~eLIST

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

LINE

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

IILLEGAL LINE
IStT POINTERS

PROC

S~A

Jr-II' START
DCA PC

TAO PC

IAe

JMP GONE

,'2

I

ItlN

I

Lp~EI.!O

.".1
e.R.

J

ON INPUT

ISAVE LINE #
I(Xe"'1EM)
IIGNORE SPACES ArTER LINE NUMBER

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
!TEXT LINE BUrrER FORMAT.
1*1 I pnINTER OR !ERO I~ LAST
1''3 .;.

~UMBER

IREAD 1ST ArTER LINENO T£R~INATOR,
ISAVr TtxT A~D RESTORE DATA rI£LO
ITEST rOR [N~ or INPUT STRING

.-5

JMP

11~ITIALlit

IS£TIIP

TtXT

OT~ER

COMMANDS

•

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

261
282

:t,.
'h2

r;IAI..U
'''i'':'I

456:?

:,::6

165"-

SN4 CL,A

:'~ .~7

5322

JMP TESTA

28 4

t'! 11

4771

297

.':t 12
:'313
:'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~

;n~

:'357
;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

:>:556

"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

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

Vl~

'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

I,

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

,..,

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

Cl.l

1373

,~,,":

•

1~

CMl

7~2~

(,)4

PACE

AND P7600

sH

~J65

'"

2310~

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
~036

29 4
295
296

)(GETLN; ;)
SP\lOR

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

~'H~

292
293

11:JAN-11

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

2~3

285
266
281
288
289
290
291

V'~3

•

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"'"

774r.

;',~'3

LCC'J,
F774",

2~'N"

r:' 2"'~(',

IQ A\J:;E ~r

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

I

3e 3

'-"43
9'444

il544
, ;;165

~445

385

1422

~446

74591

H4

77'~

nR:'lUP.H0~

1"1421

3~2

I XGETlN

201?':"

I\4GSW I

366
367
368
369
370

316
379

JMI'

.DECOONV

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

o

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

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

IEXE~UTE

PROCESS';'2

IRESTORE

NAGSw

~UM8ER.

IC~rCK

T~E

rCR

CATA

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
4e§)

!J!463

11'464

!'!4~5

3F.6?

1i'466

4(12
4'113

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

r2l65

V472

'.'017

1'1473
04;4

1413

4544

408

01475

409

1'14;6
04;7'

~!e00

til 5010
""; ~1

3£171

41"

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

~503

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

PROCESS
NAGSW

POpF'

TEXTI'

POPA
DCA PC

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

LIST

PRoe

cMi

JMS PCHI<

PCHI(.

4566

571Yl

•

LINE~O

POiNTER TO
ICIoIe:C-K rnR GI542

1,31~

JMS PCIoIK

;>~43

1117

TAD
DCA
TAD
DCA

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

TAl) MF'LT

P03 •

e

r562
'1'563

14 13

3~'1

Dci T2

01564

3411

Dci I XRT

2~71

01567

!:i754

OJ57ra

274~

~""

PS;2

:'217
r22'

PI'S 71

r:95;3
~5;4

015;'

f~212

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

RESTOR[ A FLOATING POINT

VAIr. Aoolr.

N~MBER

lSi! POJ

1'1561

5363

I

IGt T

DCA XRT
TAD MF'L.T

3€111
1111

9l!565 .

IRESETPOINTER

CLA eMA
ho I POJ

1154
2354

111566

~~INTE~

lSi! T2

1117

.'303
72421

~uS~,

MF'LT
T2
I XRT
I POLXR

JMP ,!!O3

491
492

495

3111
l411

lSi! PDZ
TAn Mn. T

~55tz!

~611

49 4

I ,';2

OCA xRT

:? ;111
53 4 5

?~47

489
490
4Q3

T,A~~

•

•

PAGE lea

11':;JAN-11

TAD I POLXR

IMOVE

lSi! T2

JMP .-3

INLIST.,

JMP I P03
qEODVR
IBAR
IGNOR

IEXtT

CO~TAOL
IC~C. I BREA~

IINPUT
IB.A.

I

IL,F'~ P

RESTART
IGNoqE

CHARACTERS

IR~TN
IC.R. ~ 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

: "POpr"

/F'OCI.12 •.H •

U;'JAN!l71

23106

TAu CHAR
ANr P331

ISAV~

496

l62Z

l.J66

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

~~?1

';:'75

~622

4542

PUSPoIA

1"6'3

454~

N:?4

455'~

r,£TC

5~'3

"6£'7

1374

il626

,4U
5223

JMP

1 4 13

POPA

4'47

SO~TJ

5~'5
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

4554

(11636

?~26

~637

4555
5267

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

01641

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

!.

'0

(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

~635

1'11)'2
Pl643

CASE ALSO

IGO TO

TER~INATOR

IGO "0

COMMA~D

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

COMMENTS-PCl

!lJ64~

C~ARACTER

.e.

·773

538
539
540

541

Sl(~

'614

'''9
51"

COMMA~O

IEXE~UTE I.OWf~

SO~TC

:~625

~6~~
~6'H

5:>4

~-~

PAG£

"'x,

JMP wXa2

PRiNTC
JMP WALL
XTESTC; o
ITEST
SFINOR
SORTe

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~
T~£

AGAIN

NATURE or T~E NEXT ALPHANUMERIC ;
IIGN"RE SPACES
ITEST Twr. VAQIABL£ TERMINATORS

•

IF'OCL12.3.
551

"'713

~IAL1~

1771

:; ".~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

;1'7-"7.

~62

?716

563
56 4

V'717
?;2Vl

565
566
567

"';21

01;22

;:1;23

\i1;,,4

568
~69

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

.

"'725
:;'1;26

J ~\66

;:3;~r

12::'2

4'61

74H

2300
230~

XT3,

57P1k1
,-' QI '" iii

xso~ne;

1721
:!f412

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

V "~J

6776

3402

U:'JAN.71

23106

•

PACe: 1-10

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
IRETtJRNS I TJ NJ r J A
lSi! XTESTC
JMP I XTE:STC
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
Cl~

TAD CHAR
sli. CI.A
ICOMPARE
JMFI ,_6
TAD [ XSORTC
ICOMPUTE INCREMENT I 2 '" III
CMA
tAD XRT2
DCA SORTCN
SI

137 655 6~7 1i'41 1:"42 1:"43 658 1(1'44 6;6 6~9 6{)0 1;)45 ..i "46 " SI " , AIi :Se3 ICO~MENt8 IGOTO - VA IASK ITypE IOUTPUT IERASE IWRITE /THIS COf04Hi~o rr;s, IS! T1 SKI' JMP ,_4 IF'1. GETC JMP IF'3 SETh, FOR, CO~T~OL STATE~ENT PUS..lJ 14;11 ,44", ICOUNT COMMAS /TRANSF'ER J"'P I COM GO." SOIUJ ISEARC~ TEXT UNTILL ,JC,R. TLIST-1 lL1STeTLlST GETC 1241 1335 I •••••••• II lSi T1 SPA sNA CLA 1£C4LL; [CAl.l.. IP.A~T, pAqTEST 456\1 1066 COMMENTE .. O[MANcE· .. TAPE BIF'F't .. JN~CRIS I~OOlrY • MOOSF'IE IQUIT .. ARqETE IRETURN .. RETOVR~E II. tBR..... . LrST IS SpEED OPTIMIlEO. 16111 2251 454" QIJANO 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 11.001' 6~4 /IF' 100 322 3U ~23t?1 653 ORGANI~E 311 321 4547 4545 5225 OEC"OING LIST • 317 305 327 315 5765 644 645 .. IroQ 301 324 2~32 ;750 lOR ISET 3". 307 "315 \'321 1?i2 I, II ICO~MANO 323 306 ·327 PAG.£ 1. . . IE~GLIS ... "'F'RE'lCH CO"lLST •• ··324 322 ,-314 I I ~'''UT PC1 3t 1et67 i07£11 :;~71 1~;2 4'40 4540 1612 111'11 4'43 1107 hl~ ,1~17 1124 ;'12100 1125 1126 7'4~ 1127 5'41 1133 1134 1135 H7!?' 53&:11 75[13 rRO~ "[VAL" AOORESS • INCREMt~T,lr A~Y •. TE~MI~ATORS IGET THE LIMITCNO ERROR DETECTION A'TER LIMIT) F'I.ARG 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 £XP~£SSlO~ f'LIST2-i'LIST IILLEGAL TERMINATOR IN'F'OR. ISAVE THE INCREMENT. • F'LARG POPA OCiPT1 1~45 iB2 ITEST POPF' 643~~ 2525 IEVALUATE THE TEXTP POPF' 4407 .43" 1133 H~3 113r;'1 il~l POPF' 4544 1 4 13 1121 1i22 PUSIiJ ,'61~ 3{330 h2~ PUSHF' 4542' H15 VALuE ISAV~ VA~tABLE PUSIoIJ 4543 1't16 i117 ERROR. 'I.IMiT; PUSHF' .1{H7 1114 l~ITIAL TI.IST-1 2~32 4544 2!!132 4544 H70 1111 U12 1113 IGET ITEST LAST C~AR TI.1ST .. 1 F'L 15T1-n.l ST lEX CESS R.PAR SORTJ 1315 H~~ 11('16 ERQOR4 tAD PT1 PUSHA PUSHJ 1612 4541 1~1·7 11"3 F'lC i 'I' SOI:fTJ 4566 103., 4542 4'43 2032 ~VALwl TO VAqIABLE Por~T£R rt'.JT ;2~ll 4566 ISAVE 'rPUT 1 PH , ~{I~ 1~;6 1194 H~5 PH 1'01:1. 'JCA PH 4547 1375 7176 11",2 TA~ 3a3~ 1~'3 1074 ie,' E:~~C~4 ! ., 3~) :; "53 1's:;4 • 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 1160 '40 1161 5536 1161 U41 '142 1163 i 164 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 '13& 7!i4 X~AN, F'lCiT DCA 1157 '155 ~0~0 200121 01210" F'I" T 1~0(lJ '137 n~3 RANC. 6342 4453 ;2021 1,0 '151 '152 IS£T I 1151 1156 '46 747 748 749 JMP "~~~ 4407 136 '14' 141ii INCREME~T To ONE. ... F'I.TO~E F'CO~!T ISAM£ 'RAN • JUST MOVED 1143 11.44 743 144 PAGE I 724 125 '41 23106 '~CCM. '~41 , 53('1 7(13 '139 11~JAN.'1 1202 1'~4 "05 :; '06 :;';:·1 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. ITAKE XINT, RANO CRUDDY FUNO RANO PI.AC EF'UN31 t~E t~T[G(R PARr JMS t INTtG[R COMGO.~ S£TT 'O~ lr DO GOTO' COIolMENT' ASI( TYPE I(R[F'£RENCrO) OUTPUT ERASE I •••••••• WRf TE MODIn STiRT IR£TU~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 PUSHA uo COl. PR!t-ITC In INSUB 767 168 769 l' ;>14 1'-13 4542 i253 4551 :; '15 211136 1721 1216 ;1I"1 TO COMMANO MOOE VIA 'QUIT' ~ET~N TAO CI-4AR "12 I •••••••• IC'rX) ClA JMP I EF'UN3I ICOMMAND ROUTIN[ ADDRESSES 1~66 766, I.·I··I.·......······...... I.·I··.····. ..··.. I.·I··..... ....····..... I.·I.·.......·.... 'I.· ...·.. lAc ISAVE tN.ll~E CHARACTER. /TYPE COLON ICeLA)- TO SuPRESS IINDICATE 'AEAce' IPOINT PAST CHAR "I" • IrOCl.l' • • . !- 771 772 ; 773 ,, .. ,."775 776 777 778 119 ='2'.... ., ; .... , ". 4531 1413 e .. S2JV'! 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 784 ·,s8 189 190 791 792 793 1::~2 i::~4 1243 1244 1'-45 1077 4463 ;001 1247 1~5~ 31Z126 79 7 798 1251 ;;52 799 800 1'53 4545 5232 796 1246 1 ~272 '81i'l1 802 8e'3 804 825 806 8,,7 8~8 1254 1255 1,56 8219 1257 81e 126C 1261 811 812 813 81 4 81' 816 61 7 818 819 8213 821 822 823 82 4 825 4554 '''5 4566 1961l1 3010 3062 1067 341'" 1'62 1:263 1264 ia10 :;'65 3~27 1'66 1267 4464 HUnT, n26 12;2 ,,;3 4551 1';' :;';6 1267 ,,74 4545 454' ,-",76 4546 1,77 5211 PROCESSING JMS I F'OuTF'UT IPRr'\!T (jEtc 101S48L.[ TRACE /TYj)£ 1.1T£RALS 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 TAD 9un~ ISET POINTERS DCA AXJN O'OR INPUT ••••• i£RO~ DCA XCTIN TAD LINENO SCONT. 31~~ 12;~ 1211 ICO~TtNU£ JMF' TYPE ISP DEBGS:'! • • PAGE 1~14 ,qEA~ DATA A~C SAVE I~E~TEST LAST TER~lNATOR 23'06 IDO TYPE: PUSIofJ EVAL 1,4" 1067 1241 3352 a.,., 4551 194 195 TVP£2, 453(" ~"~ ''30 '81 71.\2 PCl~A DCA CHAR JMP ASK 3!l66 :~.{"'!' ". l1':'JAN.'l JMS I F"INPUT :IAL1~ SCHAlh Dci I AXIN ICOPY THE SAME LtNt NUMBER. ICX;''''EM) ISAvtSTART 0' NEW 1.1 "'E , JMS I tNDEV IREAD TA:l A)(IN DCA PACKST TIofE TELETYPE INPUT SILENTLY, CHARACTER DCA LUT3.1 IS! O[8GSw ISAV~ SEARCH 1"/0 ~R£AI3 1524 GS4~ PTtST. " GEC41.L~ (;52, 4566 10121 3"'H 1061 s~;.. JMP CLA GF'NOl TAO PT1 !lCi I PU 1171 3430 TAD sues lSI pn, 2~3~ DCA 1 fT1 2~3~ IS! PU 4401 i'53? r, QI~PI 'XiT OCA XRT CIA /TRy ~E)(T ONE IAOO T~E VARIABLE ITEST STORAGE LIMITS IUPDATE THE LIST. ISAVE t.lAIoIE ISAVe: SUBSCRIPT ISET PT1 )(AT IWRONG SUBSCRIpT IS£T POINTEA To OATA JMP GU In PTS. 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 TAO TI.IST2~ 242 21! M26". ,,26Kl SA"'E ITEST SUBSCRIPTS TAD SUBS sai CLA 203(J ;52~ IF'Ou"O XX "OU~ID TAO PTS. TAO 1 1411 7041 1171 ;640 5257 ~. 242 ,215 IGET HBlE E>TRY l£lClT POPJ erN01. 1.('-45 1~:\2 SEARC~ • Fcn I CFRSX "PuT J FlU 1~25 9~4 or LIST F'lNT 643~ ~"'31!' I£NO ro~ £~r JMP GS:S ""IUEST [CAll TAC LASTV TAO pU cti elL TAO POLXR SNL CLA ERROR:! TAD LASTV tAo CINe Dci LASTV TAO QADO 3433 5'41 ITEST 1Iif TAD GINe 1~U3 5541 Ul" 3011 PA~£ TAO QADO 11/161 7650 947 955 231a~ r.IAL13 HORO I.·I.· .....·..... I.·I·· ......··.... ....····..... I.·I.·I.· ..... I •••••••• s~vES SUBSCRIPT ON r ~ I ••••• • •• I •••••••• 1·· ...·8t;. • • I.· ...... 23106 991 992 XS"~JOR; 1535 993 994 IIGNnRE L£AOING SPACES • 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 995 . :~ TAO 15'6 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 i~5!:'1 Hfe6 10,,7 10~8 1e09 101Q1 1011 115'52 1115 164'" 2346 15'53 iSH 1344 1555 11(l1Q1 1551 :5""4 743!!1 1~56 HH2 112!13 12114 101' 11316 156111 1561 XTESTN; 1345 SlL 2346 1562 5'146 1563 1564 1137 3022 1413 ~ tAO CHAR tAo MPER SZi CL.A ISi! XTESTN tAD CHAR tAo 1012'2 CI.L tAD 012 DCi SORTCN H"66 lSi JMP lh1 1018 1019 1020 1021 1022 12123 1('12" 102' 1026 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 1027 1028 1n9 1230 H!31 12132 1574 1"i;5 19.133 1~34 1251> l:rl35 1036 1331 1038 16~2 16':"3 UJ9 H~40 1041 1~42 1:)43 1~44 1i1l45 . '~54 4542 1604 1~55 16~5 4542 16~~ 1607 1flt~ '~'6 4542 -J"2r~1 IEXIT "S~~OR" CHA~ XnSTN xTESTN I.·.··· ... I.·,I.·....... ..... .. ·· .. I.· ..·. ... I.· ...·.. I.·I.· .....···.... I.· ..··.. IRETURNS. I •••••••• I •••••••• RECODING ~J ro~ OTHER. SPACE NU~BER • "TEST~" RECODING rOR SPACE I •••••••• I •••••••• I •••••••• ~~OM A "DO" SUBROUT!NE 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 R[.T"N, PUS~A HO L.ASTOP PUSIolA TAO [rap PUSHA TAb [CALL " IS AVE rUNCTION CODE. IRETURN TO CALLING 'troP' • \ IF'OCl12.~. 01~l.1C'1 H'46_~.1 1~4a ~'~55 11"49 1~!.4 1"5~ 4564 Ht5 5227 ;617 5343 161~ 12'51 a~2 1057 1058 1059' < 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 1643 1644 1645 1646 1077 1650 1651 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 ECHDLST,l"212 ,;377 4566 1137 J23V1 1111 U54 7ii!01 16<47 112179 ,_ 212 1634 1635 1e'76 112178 OPN[l(T; 'TESTC ;4591 1640 :;641 i642 1652 i653 1654 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 4564 52044 :;~33 1637 JMP EF'U", 14::15 1632 1636 TESTC JMP (T£l;l'-'l JMP (NUll 4'4i1 ;- ~n 1622 1055 U56 [VAL. PUSI.IA GETC ~CA LASTOP 5332 "62~ lC"S3 1054 11;JAN.71 4'42 4545 ~~12 1~13 1r47 V1~3 JMP GETVAR JMP [TUM lAC SNi JMP tAO tAO CLA ARGNXT SORTON ... 11 spi CLA JMP [LPAR ETERMN; TSTLPR . SKP ERROR4 [TEAH, TAD SORTCN Dci THlSDP TAO THlSop tAO MU SHA CI.A 1111" 7112 7012 1331 3274 i~'5 764P 44(17 rI"lT 0111 F'PUT 1125 tAO FLARGp • IOPERATOR MISSING BErORE PAREN ISET ',ROM "TESTC"wnSORTC" lEND' ITEST rOR [NO or DATA INTO rLOATING AC, IGET L4ST OAT A 6525 :' 9!~'" IIGNORE UNARY Pl.US ITEST rOR NULL PARENS. u. 16;5 1616 i 677 ICREATE DUMMY F'OR UNARV MINUS ICONTINUE I'SNOOPERATIOtll ~ F'1. 01' , 8 TAO sPA: JMP TAD Cli :; 6;4 001'1 MtSSING OPERATOR ISET pTf. ITO POINT TO lERO ITEST ro~ UNARV OPERATIONS I"T~rSOp" EQUlv.TO END 0' EXP. ICOMPARE PRIORITIES popr 4544 ,."144 I" II. TAfi THISoP DCA TloIlSoP LASTOP CI.A EPAR lASTOP eLL RTR RTR TAO OPTABL Dei n.op tAO LASTOp CL4 531('1 IT 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; 1. 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 ntT rLARCp 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 1113 1114 1115 1116 1117. 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 ;;;''L' ;':"1 ; ;;.2 ~;,'3 ~ ;.'4 1;.'5 1;;'6 H(17 1hI"! 1h1 l' h2 1713 V·I[ .j 3~30 ~~~4' 76'5,' ;541 1413 SNA Cl.A POIilJ POt:A 3.~55 DCA LAS TOP r;255 ~KP 5366 JMI' £PAR2 H2" 4543 1721 ,el0P! 1el24 1722 3355 4545 4564 1730 1731 1;32 H33 5343 1'43(11 4543 ~;"44 1;34 1125 173' 1736 31a3C!! 1132 1;37 11:53 17401 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 1;65 1;66 cErc IREA~ tESTe JMP El.PAR JHP ENU"I [rUN, ICOULO BE l.t"T IN PARE~ "Il.IBASE POR OPERATION COMPUTATION ITO PROCESS A NUMBER,SAVE AC IstT POINTER AS ro~ A VARIABLE, 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~ 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 n. AC 4562 4566 41562 4566 42·" 1 I"IORE To COME TAO F'LARGP 5343 45417 2166 62f.15 tAD THISaP Dci LASTOP .JMI' E"U~ .JMP OPNEXT-2 OPTABL; F'Gn I I'T1 ENUM, PUSHF" F'LAC H'~4 12166 1 4 13 .1;64 ARGNlCT; 1056 1';61 1;t.2 ISAVE LAST ARGUMENT IilEl ;2'ClC! 1;6'" 1';~3 DCA ,*2 PUSHF' 4564 5355 5771 1149 IGO EVALU~TE EXPRESSION ICONTINUE REAOJNC TME EXPR~SStON ISAvE "unop". LASTOP TAO PH 4544 ,'''44 5222 30'6 ITEST POR SUg-£XPRESSION PUSMA 3"36 4531 1150 1151 1152 1153 1154 1155 TAD 5364 5332 5220 ICOMPARE TIoIIS 0" tSTl.PR n~55 1h7 IEXIT "[VAL" IGET PRIOR I)P .JMP ETEIH12 4562 ;410 3320 • PAGE H" THJSoP TAD LAS TOP 1h6 2311/l~ Ph 1 (155 1129 1130 1131 113 4 ~CA 1h4' 4542 1h5 1(1130 ;;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 ,7 2,~13 lSi POL;)(~ 1157 1;;" JMP 1158 1;71 ~536 t ['tJN31 1159 11 ~21 1161 1,;2 116 4 ;1~0 ;~;'1 "~1l2 1167 1168 1184 l1S5 :-336 I , ?M3 ,251 ;"~4 ;'335 ;0I~5 ;M6 ':0.10 ;~11 , 215 ,'27, ;012 4543 ;013 24", ; iii 14 4544 ;~i5 r~44 2016 'Vli7 ,,,,20 ;11111 2021 44'" 1233 4451 ;P22 2",23 6232 ;~'5 '~'-6 1125 ;~24 ;021 1196 1191 1198 1199 12!'!0 12::l1 12~2 12~3 12C4 12:J5 ;1iI32 :-00111 '~30 ;~n I. 1 I.. /I I. 2 :5 336 250 IUP 1C 6 33:5 It 7 XSGN~ OPNEXT F'I.ARC, ICATA 1/1 P3. TAO ?~4" 112(1 ;~.,"" '11'51 • 5631 ,.y, ~~ STORAGE SORTCN SMA CLA JMP I LPRTST ?237 T£~PORARV :s I.PRTST; '" 5631 ,'4V1 IrUNcTION RETURN IS OK '-" '2143 ?,l46 15 DCA PU tAo Ml1 ?,H? I, /I . 1121 12~8 12 13 14 'LTONE JMS PARTEST JMP I •• 1 ;OI:H - 1~54 10 11 R;PARS 0, o - ?v144 I( 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 .'0111'1 'tl03 ,''''0:'1 1054 '7?~ L"pARS XABS. ,'!1QJ f'I "'142 l'tTVA~' 5 I) I) popr '~34 '~40 'EVAL' AND '. 4 A~R Il PUSH' fI ;~41 ARG. ICtR'" 16 21!1 I~ TO [,.. 0 GETARG rRO", 'SET I ITWO Mi~OR rUNCTIONS 11~"1lJ ;('.35 ;1'136 ro~ 2.._A 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 ,'254 ,;213 I.· ..·... - IT£qH!NATOq TAa~E ISPACE ~ \ 252 c216 ;eI~1 'NLIM 240 ,333 ;;2'4 118 7 1188 1189 119" 1191 1192 TERMS·': ,,250 1186 1193 PF'NU'~, :;;;5 ",257 1;;6 ';252 1165 1166 1172 1113 1174 1115 1116 1117 1178 1179 118" 1181 1182 118 3 ;;;7 1;73 1162 1163 1169 11721 1171 1';;4 6311 "72 _, 24~~ ,253 :'255 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 ,~?: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 ERQO~" ;101 ;1~2 :)103 '1~4 'H15 ;{06 Hr,,7 HUI Hil XOEL£TE~~ lor 4555 rI~~L~ JM~ IS~ 2326 4545 h12 2113 1116 764k1 Hi4 hi5 ;116 :h1? h20 :h21 ;122 '123 ;124 ;{?5 ;126 ;12? CIA t4~ SNA 5117 ?~0r" OOK, DCA T1 TAD TH JSLN CIA Cl.L. TAO T1 Sh Cl.A ;63('1 H!J 19132 ;131 '132 ;133 ;134 ;1,35 ;04;:1 1~23 3('11 1257 ?04(l! ln3 CNTR tAO T1 DC4 I T2 tA~ T1 1~32 3471 ISKIP IF THISLN ) X ICHANGE (X) TO ACCOUNT rOR IGARBAGE COLLECTION. IGET NEXT JMP DOl< IGARBAGE !:,ONE~ T~E rlPST 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 . JMP DONE 1 ~57 TO OELETE tAD erRS TAD I T2 1023 1141 1032 lLL[GA~ IJUST IGNORE SUCH COM~ANOS ICHANGE DATA 'IELD TO TEXT.eX.MEM) IDISCONNECT SNA 5331 IL£~IGT'" ( '" lIT IS JMP START CO; T tA6 IT~ISLN DCA T2 3P!32 5313 ISAVE ~AST AO~RESS TH 1S1.~ C~A DCA I ~ASTUN ;"50 ;i301 ;1.~~ TAB THISL~ DCi. CNTR TAO eFRs 765c.: 1471 XCE~ETE 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 3e171 I OEBGSw GETC tAD Ci-IAR tAD "!CR !;i!A Cl.A JMP ,_4 TAO AXOUT 1~66 i423 :H25 1133 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 ,::');5 5271 '016 lU1 ,,,;7 7041{: ;iMl SO~TC~ GET::: IT~E '~65 ;2\73 ":'74 TA~ S£A el.A 4545 ; :"64 ;~;0 ;~h ;~;2 CIA • OPERATION LAST~P F3 POI'A 1413 2.~'57 .., ~AST C~l.LECTION CHi THISL'I/ xRT P:l CNTR rAJ ~CA CM;' TAa TJoII Sl.N ISETUP END Or ~OsE ~IN£ I 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 XRT2 ~057 CNT~ ~6(' TAD TAD ':leA '144 1 liP ., .14" h45 '146 CMA 3::"32 ,!41 ;i42 '143 ;147 1~16 1~12 11"57 'iS4 ;155 h~6 ;157 '16~ ;161 ;i62 :0;~0 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 3 "6~ ;222 . 3"31 ;223 5177 • TA':l IIxt'; tAo )CRT2 • 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 3Z6(i\ ~'33 E"-jO 8U;~ Tlon I XRT2 DCA I XRT 3366 455:11 1623 5157 4551 h6~ h64 iCoq~£CT pur~ tAn CNTQ DCi AX I N 53~2 5265 !'AGE 23t~6 Dci T1 , TAO AXIN l·He 3(11:.1 l412 3411 2032 ;:H'J6 1317 1318 1319 1320 ! ;151 h52 '153 13:::17 13(119 13121 1311 1H2 1313 131 4 1315 116 ,~ 'is?, ;,"5 13~8 U;;;JAN .. l1 V··~·3 '1 4 ;' 13",4 13'" 13~6 :.l-H.1Z, Si!i ER~OR3 E~T. [!:IV, TAl) ENOT :lCA Burr~ DCA I e,RS TAO STARTV Dei I.ASTV JMP START IBAO rOR [RASE; ALL TEXT •• ARG IER'~E I(X';'''EM) IERASE VAR UBI.£S IPOINTERS MAV •• BE OtrF'ERENT ."OW. • - ------ _. - -.. .... --~- • 23106 'JIAL1(/J 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 137 4 13,5 ';:2 4 ::1';5 4554 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 ';63 ;;65 3~11 ;"67 7141 1411 ,45() 2244 5250 ;267 1"23 '~12 '273 ;,74 SNA XrlNO IS! Sil eLA JMP F'EN03 TAD TIoIISLN DCA LASTLN TAD I TI-iISLN sH JMP nNO\! 3~25 ,,66 rEN03, 3~2~ 1002 ;11~ '217 1~06 4330 ':H!!fil 1357 ::>:5 y,1 Itll66 T~lSLN DCA AXOUT 39117 ;2;5 ;,;6 TAD lAC ;IiHl1 5644 le)(","!EM) ISKI~ Ir GeAC) • G(LI~ENO) ICX';'p.tEM) II~IT"VARI'BLES MAY BE INDIReCT COMMA~O I'OPJ H'l23 74401 T~lSL.!\I NAr.Sw CLA TAj I Tlo4tSV~ TSTGRP JMP tRV TAO I THISLN DCA Ll~ErJO JMP ERG TAD STARTV DCA LASTV 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 5267 1423 ;2h ERVX~ ;63~ ;'64 ;,;VI 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. INORM 4 EXTEND & 340.376 12408276 & 200"236 13~0.337 ~ "GETC" ~lAL.10 HOCL12.~. 1376 1377 1378 13'19 13~" 131\1 13/32 2 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 ;~12 1386 ;314 1387 2315 1388 :?316 13.,9 n17 1390 : . ;32~ 1391 ;321 1392 '3'2 1393 '323 1394 '-324 1395 ;325 '1396 2326 1397 ;327 1398 '3301 1399 '331 1400 ;332 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 ;333 '334 ;~35 2336 ;331 765~ 5674 4330 704P.1 5276 1ii!26 764i1' 5326 11101 ,~"" 1356 5'1:50 1411 2346 3021 ;:J47 ;040 n5C11 ~e2El ,~51 :I~21 '~52 '~53 ;112 '361 GENC. 7h2 '~12 5334 ;?4Q! 1641 .\~~~ ;~'HI. 1425 346P1 GEU. JMP. un: tAb IGET NEXT CHARACTER INSTEAD. ITRACE DISABLEo ~ RETURN "1" p277 JHP UTQ 1ST ARTS,!!! GTEM p7'1 CHAR CHAR TAn 1'117 SNi el.A JMP EXTR TAO CMU tAO ANO DCA tAD TAO JMP TAO ISAVE IEXT£NOEO 10140 I CUi I AXOUT· DCA ·GTEt-4 CMi DCA xCT TAD GT£~ RTIi! el.L. RT~ M41Z1, .40 .137 M137. XENOLN; 21 cor ITERMI~ATE T~E T 1~61 Si!A ;37~ • 3425 ~410 ICX;MEM) RU JMP GENe 7440 ·106~ /TEST rOR TRACt-ENABLED IUNPACK hBlTS " XCT JMP GE:T3 ;367 ;~64 '~65 ~[RO. BoTH ARE 1'1.1" THE TRACE ,.LOP n66 '363 l' uti DEBGS,", sli el.A JI'1P ,·6 TAD OMPS'" TAO I I.ASTL.~ DCA I BurR TAD BurR DC. 1 I. AS·TL.N TAD 01.00 ;362 IPRPlT ONL.Y " JM I' I UTFIA JMS GETl CMA IS! 3066 12166 l1r1!3 5313 UJ66 '3'56 ;357 '3M'I CET1. 211120 5345 1"'21 ,'122 DEBGSo/ TAn OMPSw SNi CL.A SNA CI.A lAC DCA DMPSIoI JMP UTRA·1 5215 ;650 '354 ,;555 unc. 31~0 ;3"~ '~45 EXTR, 11~fII (1010'" • rOU~ID C~ U! DCA PRt~HC 765e: ; ~"''' 1 530' ''',f' 1, TA") 4551 '341 ;342 ;~43 UTQ. PACE 231"6 . oci . -.- --. BuF'r[RED LINE • I(X.MEN) ISAVE OLD POINTER IPOI\T TO NEW LAST LINE IC~EC!( F'oR EXTRA INF'O AXIN -~ ..._---_ .... -....... "ENOL~I" ..... --~.-.- -- • -- .....__ .... - ._- . l1';';JAN~1i 1431 1432 14'33 14:'5 4 14'55 . 1436 1437 1438 ~~;: 1:>1~ TAD AXI\! :::!;2 ~ J~l· I' ;'d3 ;:,;4 r: TAD ocl STA~TV ·_··2l~l '407 23"'2' ;;3:'1e1 F'1.Ti!ER; 0000 3;131 '576e 2377 ! 25 .~ .614 24~1 :>" ,; 1 ,4.'2 62>32 ,424 625~ ;4('3 ;4;16 ?51 157 241~ ;'''J~ ;411 ·~z~ ;412 ;.'13 ;'66 ;41 4 .... ~HH' ;415 611131 5215 '416 ;417 2000 0000 21i1l11l0 0000 ,'Pl0Cl1 ['112 •. 133 • [1l 1(5; JMP KR~ '420 6036 "1"6 JMFI TAO 2424 5215 1123 5614 ;421 2422 ;423 1465 1466 ~432 IDECIMAL CONVERSION rACToR rOR "PRNT" INO;INTERRUPT INPUT ROUTJNE ~12 .-s. - IIGNORE PARITY BIT AND P171 SNA ;45~ JHP ~ 1'000 ._5 c211'0 I 133 IPRINT A I.INt NUMBER - "PRNTLN"· TAD LINENO RTL:6 2433 1:.J67 4557 ,-122 4242 l.U2 4551 1468 ;434 le16? TAn l.I NENO 1469 ;435 14721 1471 1472 1473 1474 ;436 4242 1356 TAD M140· 1475 1476 ;442 ?443 '444 '445 ;446 ;447 '45Q1 1467 1477 1418 1419 1413" 14,=1 141:2 1483 145 4 14~5 BurFER '405 ,;\;6 2425 ;426 ;421 243'" 2431 146 4 or l.ASTV JMP 1 Xt ~!Ol. ~I II.ITERAL T£RV,INATORS TI.IS13_. 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 '~;5 14~9 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 PAGE ICO~OUTE NEW thO D~A 8UF'I~ 1Z6~ ll~:~ 23i~6 '437 '44e1 '441 ?451 ?452 1'453 '01154 AND JMS ,!~32 :'0(;21 PRtNTC IPERtOD rOR SEPARATION JMS PRNT ITWo DIGIT "STEP" NUMBER, 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~" ITWO DIGIT "PART" NUMBER PRNT tAO PER 3"'66 4551 5625 pn XVi. tSl T3 DCA VAL TAD VAL tAO SMA M2,2 ISAVE SPAC£ IN C~AR. IPRINT TRAIl.tNG SPACE IPRINT TWO DECIMAL DIGITS • , IF'OCL12.,. 1496 .5 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 ;474 4463 5665 ,.;5 , .. ;6 ;417 1~17 ln1 iSO' '52" ;5:.01 1507 1538 1509 151111 1511 1512 1513 '512 ;,,"111" ;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 '\ "h 7452 4463 1076 5274 15~6 OUT, 7450 1 a66 "'2 ;?473 ;5?3 ;524 ;.,:-5 '5~6 25~7 '5i5 1071 ''52111 ;44111 ;5'-2 ;524 ?'525 '5'6 ;~'7 '53" ;5~i ;'5~2 '533 ;534 '535 '1)3,6 '537 '540l 1353 -::354 PAl, S~A 7~0A d{l(1" 2~62 5357 1 ;~61 341~ 3a61 1313 PACX; £SCA~ PCK1. H140 si!A tAD 0140 SNA CLA JMP ESCA tAo T2 ANn P77 JMS CO; JMP TAO JMS JHP 5102 1122 4335 5324 OUTX.~ P2n "TAD CIA 4335 '542 • JMP ,4411l '&;41 ;'S43 SNi TAD CHAR tAn MCFI SNA JMP OUTe"! TAO CCR JMS 1 OUTotv JMP I OUT Hi; CCR JMS 1 OUTOEv TAD CI.' TAO 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 1352 iUl 3~71 ;~'3 PACBUF'; 74513 2513 ;514 2521 OUTCR, 7341 i066 74' " 5755 ;51.6 ;5i7 OUTx~ 111'1' ;512 . , • tAn VAl. TAOC260 PRINTC JM" 1 PRNT 4551 "i'!?Z t. TAti T3 PRi:-JTC 4;51 5642 PAGE 2310fl cd 1~33 ~4~J. "6~ l1;'JAN .. l1' JMP XVl~l V1~3 PCKl P ., 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) I PACBUF' p71 PCKl PU ~ 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 • • I 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 1'317 • 3';'il4 RUBrT, 4557 2'H~ 3'~61 ,'562 2561 ;(:14':1 3062 ;563 5735 PUSIoI .. OClW" lIST !~ 1" i ~ I PCl633 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 I 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) I 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 IOUTPUT IVARS INBur 3276 3"'34 1276 ~666 6.Hll 1664 ;;03 ;640 4574 :>;;'4 =,705 lfJ16 • I09ur I09ur IORU' SNA '7{h" ;;:'16 ;7~7 'o" "tAo 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 o DCA XU3 ION TAD I OPTRO S~A CI..A JMS I lor TAO TELSW SaA CLA JMP ,., POl~T£RS 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? • • • (~ 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 11;;'JA~'~71 1266 p' (: ..,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 ,;035 5333 ;;36 ;;37 6002 5342 1123 3"67 2;4Ql 1677 ,;41 1678 1679 1680 1661 1682 2;42 ;;43 ;;44 2;45 1684 2146 ;;47 1683 L'IAL.l9.1 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 J1l11 • l"lO /TVpE CHAIUCTER. ISET t"'~PROGRESS F'L.AG. IRETURN ISE\I~ "ATA 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 TAr: xIJ3 nCA t 1263 3a10 ;'50 ;;56 JMF ,+U 3fJ57 1685 1691 ci TELS" DCi. CNTR 1686 1687 1688 1689 1690 ;;54 ,;55 ~ X I 33 23111)6 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'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 SiA JMp DCA JMp IRESET AOO ICHECK POR ExTENDEO C100 CLA RUBJ I T2 RUB3.1 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 T IU XCTIN !?l35 1142 PAGE.1 cor 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 3213 3214 n15 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 0617 12131211 1455 6162 IDUMMY LI Nt NO I I •••••••• Iro ICA I •••••••• 6162 r~sTX. 3216 7715 IOUMMY e,R. ITO SAvE TEXT ,SAVE C(BurR), CCLAstv), AND C( 'RST TO 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 :>741 36C1l1 ~ 2~0 ~6""2 3176 ,36(13 7..1",-" 36('14 ilM:5 13"~ 4515 NAME PRtNTC 1~70 31213 31413 3236 3236 ~212 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 I •••• ~ ••• C(BU~R» -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. 3414 DCA' I f'LTXR ?J57 ISl c.)'I(1~ JMP .,,2 /r:l.r."~ t ~ClUT 8urrtR / •••••••• F'IX UP DIAl. 1/0 ROUTINES CI.A 6213 /e IF' CDr 1;'1/ ........ / G1775 Dci t / tAD G5772 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~ 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 6212 JMS I RITEOU tAo ION R urou; GBI.OI<. GUll; C1715, G1776, J~45 ;71P .... 101 5172 5713 '2U 7113 7'174 "" "'6 C7177 • 7111 .46('1(.1·2VJ rEX!:!, GtTSGN 462" / /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 23 C57'2, C5713, C12:H'I, G1173, C7774, / / / 1113 1 cUi 5712 ;'175 '716 ,,7', ERT / / / TL.S JMP / /OOF' 10 / CLLR _CLSA CLA r'~2J1 7714 /cor s.e Cloi Clot. CI.18 0 / CI.£f..I .'1"'' ~66? G7177 CL.LR ,,025 i\"23 7773 (;5173 /cor ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ,.!t........ •••••• ........ ........ ........ ........ ........ ........ ........ .......... ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ / / / G7176 4011l "0"'2 ~665 • JMS I ,,930 1'0'6 :\f\66 DCA I 6211 5650 2216 ;: 11" 72A13 TAD GSLOK 61346 6 iHlI 1 3664 DCA 1 6201 ;'4211'1 6212 4667 3651 6132 6134 7243 6133 1261 6132 6135 72CHlJ 5713 '4620 4621 , 3671 ~663 ~6;"" 36h T12. ~_262 367~ BV LOAO. C~TR/tNITIALtlED ~~!.:. 1821 1822 e PA_Ut. • . .," ~ .. - -_ .. +._- .- • ._---". • 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 • ~ ) . :14l.1C '~22 '~~3 4724 (~'5 46~ ~67'5 f, (!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 ,'302 4616 1326 6326 ,)675 3326 ,,321 ,316 TeMP SF' "J04 TWO ONE: DCA rL,AC 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'. 14~2 5151 "'454 343 , I X2 lSi T3 RETURN 2372 fNT£C£q PAqT ISAvr loOIo: OR!:'ER DATA TAb F'l.AG2 5536 5321 /TAKE' TEMP 21<333 5536 X2<~' • T[",p tAD rL,AC ': ~J(lO PACe: 1-34 I XSQ2 TEMP 1~44 3~44 ~Z0Cl 4;?,7 rPuT F'GrT F'MUl. ;AOO F'PuT F'GrT F'Oiv FMUl. FAOO r£XT :}3~~ 1325 44t'11 6675 :'316 3615 2310~ PIUL ;! ~~ ~325 4;!"4 4;~5 4;~6 11;J~'1.71 n~T 4453 3325 4407 4676 46;7 4;n ;'3 J'1S ! N£GP r:A T3 IC(SIG\!)"l IF' I 3,133 44;'7 4313 4~t4 V\' 7774 21'j7 5157 Q!@12 5454 ~343 .- , --~ IrOCL12,. 1926 i:"! 19?7 4hl 1.928 4h2 19~9 193~ 4H3 :" lAL.1C Cl~7 '.W1 19:51 ishS 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;~0 ~H~l . ." 'H' 5163 4725 0210 :'00" 4;27 41JIlI 4;31 4732 OF', QI~~7 ~ L.G2~. t10~1 0-':£ • 21ilJ5 2 4 35 (:\2'01 4407 J615 TWO. ~~"'2 2~00 0~00 r..EGP, F'L.AG2, TEMP, F'N£C 0 0 11! " /IJ.AIN ALGORITMM rOR ARCTANG['JT '" A~CALG; rIt.jT rCrT F'MUL rpuT F'MUL. 5'754 "'54 5C!!24 4755 r·il~(1 2437 2437 1643 4;60 1643 ;777 3304 4;61 4;62 4;63 4;64 41(.' i·)~ 4675 66'6 4374 1371 4616 1366 6326 .1363 46'16 \'~0"" /Co~sTANts • '~OATtNG 0~31lJ A~'i!' AL.F'1, 7771 AL.F'2~ 4434 1113 4434 lJn6 ~4~4 ~tH\ 3306 .5 "If" N')~ ?<\~? 24~' 1646 1646 4;;2 4;;3 4;;4 2427 2323 4,h • ~ AQiQ! ;775 BET1. Btu; ARC TANGENT 33~4 4"~ 4t~? )(2 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 46'16 13155 4675 3326 :- t ~~< ~ I I xt 1 )(S02 BEn rAOO BEU 1360 ;773 • 3021Pi 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 4;56 4;57 • .. 2000 ~ 'J~0Pl i' (I.I\)" ,~ 9Q1~ PAGE: 231:2)6 2566 5341 2(j~r. 4;~4 4;26 11:'JAN.71· 2566 5341 ?1r.5 2435 4;t4 V ~~:'I3 ~0UJ 2421 2323 7'1;5 . - - _.. -.-- -_.. . --_ .. --- --.- ... ,. • .' . , . f. /F'OCL12,:H 11;;5 4;;6 Cl~L.1!'! V)!OJ 11;'JA"'-11 7h2 IrLOATi'G c::"'INT .\RC TA"r.~"'T .5:·~~ A,; T~ • GE:TSG"-: 4363 3>133 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 2rl104 200' 2006 2007 201218 20~9 2h" 2011 2~12 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 7'11~ 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;~ 55 111,,56 <;264 4407 '5057 637 t;,~ 2033 203 4 "506"-1 3756 2035 15061 6756 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, X 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 ~"~ I. ,\ rE)(T GErSGN SNA RETURN SMA CL.A J"1P STARTI. run F'GET ' ! CONi F'Oiv t TEM f'PUT I TEM _ . ___ •• , 2~03 5~11 5?12 IT AKE ABSOLUTE VALUE SPA CL.A JMS rNtc DCA T3 rI'lT J'PUT 1 )(1 F'SuB 1 CONi _ '5~.~1 1<"45 771r e "i~~'l! ~ 5l2e' 2 'Sr(:'3 191\9 1990 1991 e I'AG£ 1 .. 36 3427 ~427 ~152 ; S~~' 191'18 23136 _ 1981 19(12 j99J 198 4 1985 19f,6 19!\7 Ie) ..... ..,... ~ \ _ ,,,,_,' __ '~ ,,,,,.·.~"<'L" 10 _~ f, "' 1F'IOCL12. ~. 2:'36 2037 ,'2 2""~9 21:'156 2057 2058 2059 206" 2061 2062 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 STA~TI. ; f'Ci T3 TA~ 5::'66 )','14 DCA F'L·C 5,' ;2 ;,'4 175 3"4 3;l4 50;3 ~r.4 11",;4 1I~;5 5~;6 3'15 uCA DCA !:lCA lAC DCA 44\) rI~T 0;;-67 ~~;0 ~;'h i51C2 51')3 5124 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 45 :.~ .. 4t- ~~ H ""210 3717 L2, "'77 ;776 25~5 3301 ;'75 ,-' • .~. ~ - . .~'o. I TEM 4000 41210 L3. L4, .,,77 2517 ~310 7'176 4113 '1211 ILOGARiT~M CONSTANTS ,776 LOC'. 2535 3301 7775 LOG6. "/111.6 '': TE~l .,., '2 !,31C~ 151.37 I F'LAe·l F'LAC.2 F'LAC.3 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 IS \ 435 151"'5 2~e6 uo 4;55 663 ,75 263 675 15101 P13 C~lA 7~C liZ;? 5100 '.5 42 5 43 15 44 ,':<~;:·:;.9 724 1::"65 2083 2084 20S5 2Vl86 21"87 ~~s" n: lC of eLi. c.... ~ ~i'3 2~4' 2055 (. l1;JAN-?1 J:'(l\ 2"41 2042 2043 2:'H4 . ~ V~"3 '5"~4 U'40 21!46 2P'47 2:;'48 2049 20521 . 22'51 2Q152 2€53 22'54 ";\ , 15:'!-3 2~38 tAP" ~. ~;1il 2311i'J6 PAGE 1. • (. IF'OCL12,:t7 2Z91 2\;92 2Pl93 51SC "5151 "it52 2!!'94 -;i1:;3 2~95 "5154 21396 2M7 2:198 2099 L~G1. 43,'14 ;171 1316'" 15170 5171 51';2 l5i;3 51;4 '0£l~ ,', C'~ ['! 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 2136 2131 2138 213 9 2140 2141 2142 2143 2144 2145 '5171 5215 521.6 5217 5220 5221 1}222 5223 .,224 '5225 '5226 ~2?7 ., '523(IJ 5231 '52:52 LOGS, 44707 331:'15 6325 4453 44fi'17 701:'10 6321 ,'325 7321 4305 6321 ,~311 . ~0e' 11~JAN"71 23106. .' PAGE 1.38 7771 2'-'6 4j}!4 1711 4544 4544 4126 " ~eO! 2613 4414 '5162 '5163 5164 '5165 5166 5161 21~4 ;174 22~6 '51 ';6 ';157 21~1 21~2 210' 2106 2101 21f1'J8 2109 2111a 2111 2112 V·'.; .i 735 !5161 3 :d ALP '5155 212'0 21.,3 (. 1735 TEM, L::lG2, TEMP .l 2613 4414 F'I.AG1, F'~e:G. 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 IX34 ;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 44:.1'7 6321 :l\:Jf} 7;'4~ 3033 44~7 .~~2' F'GU PI IstN(X)~SrN(Pl·l() 2"'33 !-Bel3 3110 ~·"02 ~~13 31H'1 3'56 l5~t5 ·AI(1] 1 15~16 311"1 3756 3235 X rOiv PlOT F'PUT F'MUL F'PUT F'G£T F'MUL F'AOO F'MUL ,AOO F'MUL F'AOO F'MUL F'AOO F'MUI. 4~25 5536 4451 5536 F'SuB X F'PuT X r£lCT rtNT F'C[T 4325 1335 4325 1341 4325 1345 3235 • PALG. ,~331 5310 15311 '5320 1l(PI/2'I ;;311 4407 ('321 3h5 6321 4321 6325 • GEi'SGN :?321 6321 ~00" " SIGN IVEs 3156 5~14 /INVERT TH£ INO 5306 5301 5311 5312 /YES It-JO, SlN(X~P!)·.SIN(X) rtNT i1~~0 53~5 PAGE. " 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 526~ 44~7 53~QJ 5303 23106 SPA CI.A JMP PALG 1315 4321 5304 11;JAN·'1" H345 '77Ul 5:;!i6 5211 5321 15332 v;,!I'3 EXtT2, X l( XS"QR C9 .)(SQR C1 XSQ~ C5 XSQR Cs XSQR PlOT )( 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. .. _ IUSEO BV 0~~1 3110 3156 3235 .... --- - .-- ._._ .•. ' Sr~[ AND COSINE • . . . . . _ '0._.______. W____ ..____ .... __ • (. ,F'OCL12.31 22::'1 22,"2 22,'3 22;04 22(;5 22r.6 2207 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 ~~ 2!. ~:t22 ~~=!3 1l3~4 VW3 11:JA~: . :tc X, ,,"' ...... "0~0I ;\~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 PACE 1-40 ;11?? .J N11Zi3 . 231~6 71 ....~ , .~lle 5331 ';164 ~332 ~ :~~:, ' ee" 3 2' Jr..' c,. ~ C~~ ~:! ,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 ,:lAL1;-' . ,"'J '" ~"'" :0r'~ 5~'6 2252 \ ~:!26 ~327 1i!:t25 , !. 4'40 1612 4407 43" I Se:TCll<; PUSHJ EVAI.-l rINT rMUl rEXT CLLR :: ~(H' 6132 6134 4453 6133 72('10 1 ~"~6 CL[N JMS I Cl.A8 CLA TA6 eL.lR 6132 TAO CI.£N TAO 1123 6134 1314 CL.LR 6132 ;200 5773 :"611 46?0 :007 47JC 1M" eLA 046N~ , JMI' I PRne 46~"" ........ ,,,........ ........ ,I........ .•••••.. ........ ,........ INTEGER ,........ ,I.·.····. ........ I.·.····. , ........ C211l" .. •· •. ,,I.·........ ,,........ ........ ,........ ........ .. •· .. ,,I.·........ ........ MHUNORO / ;. ~: "1. .... of C102l 04600 •• 1 f.\IoiUNORO. 714700 J 0 II'AG£ 1 • iNPUT IOUTPUT ROUT I ~J£S POINT PACKAGE'. 1F'L.OATi"iG F'O~ THt F'OCAl ( 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~ TAD F'ISW 54213 4557 '122 3032 RTl6 154it'l 5411 5412 15413 1541'" 5415 15416 15411 1~32 TAD T1 71il41 ;453 1326 3335 CIA SNA 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 I ' .. 0 ) 0 1 /YEs '5424 ;240 .*5 15425 let32 3333 DCA otcp IMAKE 0 5426 5431 15432 !5433 15434 15435 CLA CMA TAO T1 CMA 1033 ;50£1 TAO T3 ICO~~ARE SMA I CLA 72"0 1932 ,510 5263 1.326 IYtS. NO ROUNOING NEEDED. GO TO PRiNT INO, ROUND TO 0*[ PLACES, ITO A MAXIMUU or 0 PLACES TAO 1'10 1)440 ;2~l0 5441 5442 1327 el.A TAO RN02 DCi. T2 TAD I BUF'ST TAO 't'2 OCA PLC[ 2300 '5447 2302 23",3 230 4 23.'5 7041 15450 ~LHl 5451 1325 2736 t736 133:;'1 ~4153 5454 15455 5456 • 1~'1 "1~ 5265 RET. DECIMAL EXPONENT r .. n ) E:7 INO, ROU~O orF TO ~F PL~CES JM? 'PANTw2 SMA 1731 1011 3336 '-1 /YES SPA 3071 II TAO T1 ,5o", C;452 INO, 7214£1 '5436 111437 '5443 t;444 C~UNTS. INO, COMPUTE F'tELO SIlES JM? 15427 '5430 • -SET ANO pH SPA 15421 15422 5423 AVAILA~LE DCA T1 1335 1333 ;51'3 5230 5423 -soP INUM9t~ or O~ClMAL DIGITS OUT OIGnh6 TGO,I 0 ISAVE MAX~ NUMBER or ~IGITS DCA SCOUNT 1~52 5405 154"6 54"" _"1510 .oECP .54;10 3334 2:3~1 23il6 COM~[NTS 3E~O~I; NUMBrR or QIGITS ~~ BE OUTPUT a II NUM8F'R or DECtMA~ oLAcrS E - DECIMAL Ex?ONE~T ? = NUM8E~ OF PLACES ~E~AI~ING TO sE ~~INTED S[rORE otCI~AL POI~T D 54~1 5445 15446 2307 23?8 r 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 I o.t < '" t I -ROUND U, • Is'vr NUI.IB£R*10r PLACES TO qOUNO TO. .T ISET U' BurrER ~DORESS W~ICM IROu~O~NC OF'r S~OULO ST.RT ISET UP COUNT OF MAxfMUM NU~8ER CARRIES ALLOwABLE ILtTTI.£ EXTRA ON FIRST DICIT. IAOO 1 To DIGIT AT CU~RENT POSITION lor ICA~~Y REQUIRED? I~O. GO TO ouTPUT • , / ,. I :. IrO~L12." ;; tALl G 23:1 9 ~4~':' 2~121 ! t 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 ~ ~ "~11 5321 !"~2 ~4~3 . . ,36 2"'33 ~H4 72i..·(iI ,="~5 ! ~'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 1333 ;5elfJ ;2~e i~;52 1f;'101 3336 '5'526 5252 :'El04 ;772 5527 :1~~7 5530 7766 615(3 6154 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 lU5 4336 2eJ32 5303 1102 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 CtA 7650 534;5 1232 5524 5525 2355 2358 5355 ;a41 1"133 72141 3r.32 1M!33 231216 CI.A tN, OECR~ K'. HO, RN02. OM12, BUF'ST, OF'UT; DEep, DCA TAD TAD SNi JMP TAD lAO SPA DIG 11 qEGISTER ALREADV SET, ;. I , a 0 7 IYES, OUTPUT AS FLOATING NUM8ER IAUT~~INOEX I £ )., ? IV!::S,CONVERT TO E ~ .P~tNh rOR~AT I E ( "'0 7 INO, TAKE I' .. E lyES, TAKE P " F.O ISET UP MINUS P IpR I '-IT 00,'000 I P , t 7 Iyts. PRINT olGIT INO, I P ) 1 ? Ct.A 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 tAo ,. 4 "OtGITS DIGHS·1 ·12 SAOR OUTOG " . SCOUNT; '" FCOUNT; c PLCEa.f .. aUTA ~ JMS ISl JMf:) JMF'. otG, 11 T3 T1 CL.A .' .' !'AGE 1.. 42 11;'JAN"'l SNA 1335 lJ33 754(3 5'523 155:31 FPRNT, '5356 5522 5521 '.1'534 2357 ~c52 4551 5303 ;:H0 1336 55i7 55~~ 2:554 23S6 3136 S;l~:' '54;;: v~~3 eMA I'iQDlrUBL.E I.OCATIONS I OPiJT F'COUNT t OUTA I TGO to\O T3 .' IMOOtF'IEO REGISTERS. IPr:tI~:T CHARAr:TEFI Ir C4ARACTrRS PRINTED? INO, RETIJRN lyES. NUP-'BER rtNSHEO IREOUCE E, BV 1 Y 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~ 45 ~:~33 DCA I5S46 334 .. 353 tSiI SCOU'~T JMP ,.4 14f;1E 7\14 !~ C"1A S551 3334 '5'552 '5313 1414 5313 DCA INO IYEs. 5547 555:.'1 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 J~I:I SCOUI~T IN TAD I F'LTXR JMP IN cd JMS I OpuT 145 PER PRiNTC lSi T(;O t~,!l I n TXR JMS OUT A lSi! SCOU"IT JMP CMA ABSOLV; Dci JMP 13 T3 100 F'L.·OAT IN G au TPUT HOUT. PAGE .-3 SCOUNT ._5 ALL SIC. I~ESET COU~T nGs. TO /AND LEAVE CeAC) . USE01 • ~1 ~ ITAKE NExT DIGIT F'ROM BUF'Pe:q 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. 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 2430 2431 2432 2433 2434 2435 2436 2437 2438 2439 2440 2441 2442 2443 2444 2445 2446 2447 2448 2449 245'" 2451 2452 2453 2454 2455 2456 2457 2458 2459 . 563ft 15631 1)632 5633 '5634 5635 , '.. DIAL1~ IrOCL12.~1 .' Ie' (e V:~~~3 t066 1262 ",621 4561 5627 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 '563~ '5;c:lt!! 57\11 2461ll , 2461 '5702 G)7l'l3 2462 11)7:')4 2463 246 4 570' 5;rt.6 2465 c;; i?17 2466 2467 57H~ 5;11 2 468 2469 , I5H2 2470 ISh3 15714, 2471 2472 sh5 2473 ,,'".,h 6 4315 4~33 4315 1.313 3!H3 3"'42 3(~41 433:5 1312 5667 .. ;:1~"i .iJ~'~~ . N':1 . ,;1 Y''' tH7 l1:J"~ .. l1 2311')6 fA:.! CHAR T'O MINE /TEST LEAD CIotARACTER F''O'>I S~jA 76521 OSAvE, F'AGE 2,.44 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 'J 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 JI.145 7~cr4 5731 5;33 i' ~;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 t045 1"41 3~45 ;11104 lH2 3312 5733 ,taP;" ;3~~ 39143 ~"4'" 6377 6n3 6004 1045 • RAR Dci AC1L TAO OVER1 R,Uil Dci OVER1 l~43 M~~2 252& AC11o! DCA .C1H ;01" 2525 ;'0rIJ • _INK Cl.l CMI. 3"42 ;610 BIt is RAR ;01" 6"0,1 2526 252 7 tAo TAO AC11. ,~" 00 t~SEqT HORD REMAIN 3041 1"42 4566 PAGE 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 RAt: TAO HORO TAO AC1~ DCA HOAD RAL TAO REMAIN tWiTH OVERrL.OW CCA REMAIN JMP I. DUBLAD 1.'1 ISIo41FT oPERAND RiGHT CIV1~ ITR!PLE PRECiSIONCI.A CLL. ,au 5154 5754 23106 LORD HORD SPA 2522 2523 2524 6Q1M , TAD RAL ,CARRY OVER2 LORD 1"41 7510 71213 600" 2521 eL.L JCA TA::' RAL DCA tAb RAL DCA ~~46 3t145 1312 ""04 3312 5;27 11;JAN .. 71- Vi'l13 IS! EX1 F'SSERA; .6""3(:' JHP I DIVl JMP I DrY1 ERROR~ IF'LOATi"4G OUTPUT F'L.OUTP. " S!

0n _.... - ._-'" - ._. _. ,-" - e- ,._'.'" .. - .... -...... _, . .... ----- -----_ ....• - .' • - 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 \:000 7040 5225 3145 3'146 1350 3014 6(~53 6055 6056 6~57 67160 6e61 6062 6063 6L1164 CMA Cl.l. DCA TAO DCA JMS IS! JMP TAD 1146 '450 5210 1342 t 11~tTIALIlt DECI~AL. E'(PO~.t~T ~ARGEIMu~TtPL.Y BY 1/111'· ITOO ",.. ':>, 1 DOuBI.E· aUTCG IROTATE OUT THE 1ST 4 BITS .'? ITEST rOR 10~~5,0,1·9 EXF 1 REPT SPA CI,.A JMP lAC 7e01 ICOMPUTE BITS IN 1ST DIGIT ITEM!' COUNT IS£TUP COUNT JMP rGo, TAD F'M12 5264 IMULTIPI.Y BY TwO TO POSITION BI T0 IC~£AR OVERF'LOW wORD IINIT aUF'rER POINTER QUTCG DCOUNT SNA 7110 ,*' or TOTAL OUTPUT IIGNORE 1ST i!tRO ,; 1121-9 3414 :.'044 1342 2033 DCA 1 F'l.TXR IS2 EXF He' F'M12 IS2 T3 IOUTI'UT A 1 ICOU"lT hE DIGIT ICOR~ECT REMAINDER IBUMP DECIMAL EXPONENT 1146 t..lOF TAll I REPT lSi! T3 NQP SKP JMS I M1~PT DCA. I F'LTXR lSi EXP JMP ,113 ICOMPUTE RESu~TANT OR SECOND DletT ;~C."I'" 741121 6~h 3414 60;3 JMP ,.6 OCi. I OPT Dci 1 R[PT TAD SADR DCA F'I.TXR flO tXP 4527 2354 70(1 Q! 6072 F'G04. 3044 ;:1:133 4747 ~044 527~ \ r ,1, C~~ 1343 61366 6M7 6~.;21 F'G03. 714e! 6(165 l: IAe 11344 5245 6l!l54 tA~ EXP SPA JMP rGO! tAD T3 JMP F'(;02 F'1 NT r~ul. 1 TEIIIPT F'E)(T 61'l47 6t:152 lIS EXP ~ TO 47 .:~"~ ;001 te33 5211 440'1 4'152 6042 6043 6044 6045 6050 6051 CCi. T3 TAO M4 SPA SNA CL.A JMP rG04 rl!liT F'MUL. I PPTtN rtXT 3~54 6~46 IPRlt-.!T ";" OR A SPACE, • i SlA H4~ 6Q!t6 . t341 6017 7150 5234 6~2(1 61"21 4407 6022 4744 Ml23 1w' SMSP H.;:: 'SMtN rQI.,TC J'1S I ABSOL.2 Hr'I 1334 1336 6~10 U;'J,a' ·71 PAGE 23106 l' F'GOS. . • ; . ,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' 2" ';'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 eI sU CLA Jt-1S I xJr~ T),O CHAR TAD M2'0 SNA CLA 1114 7650 521212 47132 1066 1115 7640 5221 411216 DCA EXP JMS t RESOL.5 JMS f I NORM F'l NT F'PuT I PT1 INOR~ALI~E i31B lJ66 6233 6;34 6?35 6<,36 6237 6,40 ~e:~T TAD MINUSE: sH Ct.A JMP ENOrI.:S 764et 5246 41~6 4702 41,14 ltJ47 1~33 6242 3033 6'43 44~7 :.0430 tAD p43 IREAD 'IRST olGIT GROUP IANO SET "SIGNr" I[NDED BY PERIOD? or DIGITS IN T3 F'iRST, TH£~ .. -,.,,,, .- ISAVE NUMBE:R TAD CHAR 1301 2668 6~44 F'tG01, 3BH 4?"H 4701 ;-t;'!C!O IIF' CCAC) ! e, USE CHAR /1' CCAC) NO~8lERO , G[T NEXT IGtT rtRST c~AR IIGNORt LEADING SPACES INO, 6222 6223 6231 6232 LIBRARY SAVE DCA 13 CHI. lAC 3'''' 6,31!l I •••••••• IS AVE NUMBER ;G41 6221 / TAb I OPN 6220 6221 44~7 643~ / IYES, READ 2ANO GROUP ",'!l'3 6225 6;26 ....... . ....... . I.· ...... I.· ...... ·~ jMS I DPCVPT tAO CHAR TAO MP£R SeA CLA JMP F'1C:01 JMS I XtN OCi I OPN JHS I aeoNP 6224 ·jt • • JMP ,.4 3105 32133 ro~ "'!.OATING ~OINT INPUT F'L.INTP; 62~2 / CALLS STORJ~G ROUTINE 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 JMS I XIN JMS I DPCVPT JHS I RESOL5 TAl) OV£R2 tAD T3 DCA T3 ICOMPENSA 1£ F"OR DECIMAL. E~OF'I' F'INT rca:T I I'll I"t" I~O RUo IN? IYES, READ JRO DIGIT GROUP IIt£~ CONVERT DECIMAL (XPONENT IC(SEXP)PLACES To 10' LAST OIGIT EXPONENTS IRESTORE MANTISS4 .' RIG~T .~ IF'OCL 1 2 . 3 _ 2692 45 6246 6247 6252 2693 2694 269' 2696 2697 2698 2699 27Q'1iJ "~51 6252 6253 6254 6255 2,n 6,'56 625' 6260 6261 2702 2703 2'04 27~5 6262 271116 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 2117 2118 2119 212it 2121 2722 2723 2724 272' 2126 2127 2728 2'29 li ~0f1 ll756 6310 0'43 6303 6:se7 ;335 • • IrJ til tSHED I, IS TO THE LEF'TI . IT hlC:S ,10f1JiIl I. 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 2716 2;5106 745~ 2708 2709 2710 2111 2112 2113 2'1 4 . .1l. .. JAN!l71 F'£XT CJ0 lZ:5J 6263 6264 6265 6266 6267 62?0 6271 62h 62;3 2'~7 Vl'.fl3 MINusE; OPCvPT; OCONP, RESOL'; OPN. XIN. INORH, PH, 00"" 77" 3146 31<47 1(3146) 31'0 .305 DEcONV DECON RESOL.V • FOR 4.WORD 1(1532) • 'OR AMPERSAND DNUM8R INPUT CHoRM 43 lEND 0; F'LOA TI NG POINT iNPUT 11 rREt IUSEO BY H.S, READER 2'3~ 2731 2732 2133 2134 I 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 •••••••• /' • . _.. .. - .. - .. " - .- .. . ... - .. .. . - .. -.- - .. _.. • I r. \.... ,,: 01AI...I. 0 'F'OCL12.~1 2147 2148 2749 2750 1~45 2752 6326 2753 2754 2755 2156 . 6327 6330 6331 3173 j 413 6212 . 4133 5536 1533 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 6332 6333 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 4545 4542 d45 4550 1374 5735 5341 4335 JMS DCA TAD DCA pOpA 6212 JMS 1 JMP 1 LOADiT! ITLOAO PEtAL!... EC.LL 0 ·PASS. GEtc tAD l. UP&:. 53" 1413 4'47 6365 l.£RR~ 1.00. 5136 I.l.lSTt LG. F'PNT. 3~43 1600 74521 56£10 , .." ,........ ,........ PASS CIoIAR MINCOI1 CLA l.ERR JMP POPA SORTJ U.iST-S, LGO-LLUT ERROR1.0 LC LM 317 303 323 3217 MINCOM; ';'254 ~'£lQl0 64~3 t CHAR 31. .64~" 64~2 i· ' ••• l>o ••• 315 64 III !'II 730('1 ~ ~.- ~ORO LS LO ll315 ~"3H ~_50 ~ SUBS LI. ,~303 1'323 ;13t'1' 7524 6213 tAo Si!A ·;640 456.6 5167 5171 2572 5173 6116 6375 0317 JMp JMS tAO 1314 ;712 PAGE t I PUSHA GETC SORTC GLiST-2, JMp I ·PASS 12166 3047 64",4 6405 64"6 JIS 1 91 66 ,,........ ......... ptCALL INTEGER I.·.····· ,,........ ........ LESu9S ,,........ ........ nLt NO. , ........ LOAOIT EF'UN31 ,....... •••• 4).*. ,'.*.•.... 23106 l1;'Jf::"l1 E~'"·'JR4 4566 6322 4734 63'3 4453 6324 . 3171 6325 2158 2759 216" 2761 2762 2163 ..,;;C3 6321 2751 27~7 •• ~ . "',./ \ 6213 JMP ,........ ........ ........ ,,........ ........ JMPS ON SUBCOMMAND or I.1BR xxxx II.·.······ .•• ·•·•• ,,........ ........ ........ ,........ ,,I··.····· ........ ........ ,,I········ ........ ,,........ ........ ,........ ........ ........ / / / :,..A / XI.C I.·.····· I F'LOATtNG.POINi' INTERPRETER "OR rOCAL. I: CI. A CLI. DCA OV[R2 DC,. OV£FU TAD I "PNT SNA JMP F"NT 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~ AOO~ INO;'CO ON IYES ,DEF'ER ,WIO AUTO-INDEX 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 CMl TAO AOOR DCA F'L.'1(~2 IGET COMMAND TAO JUM.- CLL ;"'06 RTl ;45f! SNA ~TI. 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 AODR INORCT JUMfo' tAO I AODR 3915 1264 11216 ,,4013 6575 1305 5215 1305 3'J15 • JUMP JMP LOOP01 1040 ~HH'I2I ICCrpNT)~.4 sNi CL.A 144" 745~ IPAGE: i!ERO? IYEs AND rPNT DCA AOO~ AND TAO DCA TAb AND 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 • • I 1'264 V,~03 11;JAN.71 23'2'6 PAGE Dr.;: F'L.TXR ·/S4VE 'rRO~' ':" '\.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 /3 C~ ,..52 AOORESS 4 wORDS .-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 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. "L.AO~1 ; rI~ST 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 "r I"MU\.TIt. ,'.... .".. _""~ ....t. f 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 DJ ACHINS; 0 CLA TAO CLL Dci RAL TAD CML Dci RAL tAD 3045 56'" :~B0" 104' 74' " 1046 ALIeN. CHi.: Dci JMP ~ fAD 1041 7450 SNA t042 ;450 1.1/143 7650 562:5 HH0 7041 1.344 6645 32~5 121115 ;'09 ;1341 ••• PAGE • IMUL TlPLY IROUTINE: TO COMPLEMENT F'LAC • VIA "MINSKI" I •••••••• cts THIS CLA NECESSARY) I •••••••• RECODINC 'OR SPACE OVER2 I •••••••• CHI. CIA OVER2 I •••• •• •• I •••••••• LORD I········ CIA I •••• •• •• I ••••• • •• L.ORO I •••••••• I •••••••• HORO I •••• • ••• cu HORO I •••• •• •• ACM·INS ISUBROUTINt TO A~ICN ~ORD IBINARY POiNTS SNi TAD LORD SNA CL.A JMP NOle1 TAb AC1H 7650 5311 23HJ~ au NOR' ;"61 6646 i ALGN, R4Rl. ;2161 6644 .. 6647 NOR~, 3046 ,BI!l4 i2l45 '450 5273 66'13 U;JAN"'1 JMP .,,6 JHP F'PNT.l JMS tMULT JMP rPNh1 MINUS2 OMULT ONORM ALiGN Dlv1 liS ~ANTISSA iERot IYEs. RESU~T.OPERANO INO,IS OPERAND !£R07 TAO ACtL SNA TAO OVER1 SNA CLA JMP t Al.IGN TAO £le2CMA lAC TAD txP IYES, £lC I fl' £XPON£~TS SNA JMP AoONE DCA ACMtNS TAD ACHINS IARE IYEs ell INEGATE 'ANO SMA EaUAL7 ~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 6651 3322 DCA AMOUNT 1'1652 -322 TAO TAD SPA JMP TAO 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' 4357 ~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, 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 NOX ACMINS ICA~ T~t £~PnNENTS BE AI.IC~£O' LA~G£R or TIoI£ TWO. IYES. SHtrT THE SMALLER INO. USE' ASHF'T DIV2 AMOUNT .-2 AOOf'lE JMP AMOUNT .-2 lSi! ALIGN JMP TAD SMA JMP tA", SMA JMP JMP TAn 1 ALIGN EX," CI.A NOX2 EXP CI.A 1 All GN •• 3 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 TE5T2 el.A TAO AelM DCA HORO 1~41 1043 32147 5623 ·I$AVE TIoIf. 01rr[R£NCE AMOU~~T TAD EXl DCA £)(1 JMS J TAG1 SMA ;104~ 3044 JMP JMS lSi JMP JMP CMA In 53~6 1~44 • PAGE 3,.54 SMA CI..A ~265 5261 5273 7342' 23'0(1 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, !3 JMS I ASSOL TAO EXP SPA SNA CLA JMI' nx~ lAC DCA OV£Rl TAO P2' DCA , JMS £xt 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 1~43 3151 1~45 4152 ,." III 4 1046 4152 !~"" 5 111147 3151 1341 4152 ""4 V;;03 11';'JM; .. 71 TA E TAO B :5 TAOE MULTY 4 DMUlT4; JMF DMOONE DCA DATUMe6 TAD F' SAvE TAO A MULTY TAO B MULTV ,h64 ~'''''6 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*' '5 TAD C SAvE TAO 0 IC*O MULTV TAO ,. MULTV 13U IB*£ 4 H'I43 4152 7061 712162 ;11163 IS*O .TA5 0 MUL TV 7060 r0", 14·E SAVe: 4152 h51 • 1f156 3 7056 H~42 FACE . ~iJLTV 4 tAOE MuLTY '~55 ;~ 23106 t. ~ le-£ Ie·, ~ 6 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~ ISUBTRACT BY , .• ~Eqo [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 ' 73;~t -~A ,1'H3 TAD CHA \ DCA , tAD 71. 55 '1203 3222 i21114 3229 3230 3231 3232 3233 3234 3235 3236 3231 3238 3239 324" 3241 MliojUS2~ 7153 7154 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 3223 3224 3225 3226 3227 3228 • c.1 AI.!t' 0~£1 h56 '(Hi '157 3~43 7160 1042 7161 7162 ;163 h64 h65 7~4~ 743~ 12141 7167 743" 11(11 3e141 5753 h?~ 7111 7172 h73 71;4 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 JMFI 1 HINUS2 RESOl V; 0 TAO .720" MFl4, SIGN" SPA CLA JMS I MINSKl JMP 1 RESOLV 0 ISINGLE PA£CISION,UNSIGNED~UlTIPlY • 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 AU 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 lAC CLL DCA AC1101 3254 j253 742" 5220 ;220 ;~Hl ;221 '3253 7222 7223 ACll Si!L 771" h16 4451 h;1 5713 ITRtP~E P~fCISION OVERl 1AC OVERl S!L JAC Cll DCi AC1l TAb AC1101 CMi 3042 72140 CLio CMA 7101 h66 I"IEGATE OPERAND ... JM~ ,*;S RA~ DCA MP5 ISAVE HiGH ORDER R£suLT ISf HP;S JMP MP6 tAn MP1 ICORREct RU DCA HPJ TAO 1 HP4 ~ow OROER RtSU~T IPlcKUP SCALE 'ACTOR "MU~TY" :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 I ADDREss O"O£R PART. ACC'P1UL.A TE , I Sl HP1 RAL 1253 TAD 7420 SNL 56J::'! JMP I HP" INO CARRY JMP I HP4 JMP ,-3 11111 IEXtT ICARI=!Y AGAIN f1P5 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 4_WORDC'-7'~5) 1(-43) • 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: 3 11:',)1.\ .. 71 7316 3~46 ;317 DCA LORe , 'fA 0 20~ ;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 JMP OV3 TAO ONORH DCA HaRD TAD MI'4 DCA LORD TAO MP1 DCA OVER2 JMF' I OUBOIV III XRAR2, TEST4, 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 hWORQ nEST rOI=! END OF' OhIOE ISU9ROUTt~E TAO HORO ;450 12146 ;65" 5363 U345 ;104 PAGE 1.. 6.1 RA~ JMS 1 ABSOL3 JMS TEST4 745" 12147 ,. M~4 ~ORO DCA ONORM lSi! MP3 O~ORM' 2310~ e) TO NORMALllE 'LAC lIS MANTtSSA.U IVts IwlLL SHI'T BE ToO 'ARt IDON'T LEAVE 4000 IS£T TO IRETURN !E~O "'}. PI 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 ;4;'6 ;V7 ;41:'1 751r. ;411 ;;alC ;412 ;413 3270 ;430 ;414 1415 7416 ;417 ;42a 7421 ;422 '423 ;424 1425 ;426 7427 ;432 ;431 ;432 ;433 ;434 ;435 ;436 227" ;£100 1267 3271 3272 3213 ;451 ;452 ;453 ;454 ;455 ,.56 ;457 ;46i' ;'61 ;462 ;463 ;4~4 ;465 ;466 ;467 TAb EXP SPA CML RAR ,DCA I TEql S~L ISf ITERl 07000, NOP TAO 44~7 :'.274 3270 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 5536 3~15 7470 ,! 2\ I11S ,........ tAo F'PAC1.Z 0" 44~7 IMAK£ r!RST APPROXIMATION !TEST loSS OF' ExP SNA CL.A 7240 5536 ROOTS SNA 1270 " (l SQCO~ll I~U~QER IS NEGATIVE-IMAGINARY II.I~< IS -0 F'ROM 'INT I~ATCH T~E SIGN WiTH LINK elT DCA ITER1.1 DCA I TER1.2 DCl ITER1.:S TAO F'PAC1*S. 5265 ;443 ; ... 4 ;447 ;452' ER~OR2 1215 127e ; ... 5 SPA CL.A ;451.'1 1276 76511! ;641!' 5261 \045 ;u6 GE'tSG~ ;"2~ ;437 ;4421 7441 ;U2 '" SQEND, F'PuT 1TERl releT JMP Cl.CU DCA EXP SQCON1~ RETURN 301' ITU1, fIJ BUrF'ER" " IARE EXPONENTS EQUAL.t INO IARE HIGH;ORDER MANTISSAS EaUAL.7 INO 100 L.O~.ORDER MANTISSAS AGREE /WITHIN ONE BIT? ••• • .5 I ,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 ;'5?3 75,14 ;5~S ;5~6 ;S~'7 ;5t;a ;'511 7512 ;513 ;514 3456 3457 34!58 3459 346~ 3461 11··"3 l1;.J ..... 71 JJ(I 'l~2'C F' r.' I.: 1, 0 .~C('! l~ 721J0 r BufrER·13 7503 ,'300 SCopoU; ' 106 1367 ;44c AND "TAD JMP DCA 3364 CRLF'. 5321 1371 JMI' NOCRL'; TAO eLL TA5 SNL 2365 11~{I 1;2106 ;421iJ 76Hl ISl 57t~2' ;520 236<4 ;521 ;522 6302 6141 IS! 7533 ;5:51 . ;532 ;533 7534 7'535 771~ 1361 1365 ;536 771~ !!'356 t366 ;~4(" ;542 7543 I.MOOE ~213 .. r.211' 6;~31 lOr L.INC 01163 t'OCALF' NeOL.S NrE:EOS HSOK 07655 C100 PMOOE: NLI"ES SCOPOU r-.tCOLS LO; 4 I CLR PDP 62U IS! TAO NCHARS NCHARS 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 534:, 6 J34 7~46 KRS J 312 tAD 07566 SNA CLA ;55~ 6:~32 ;551 137'" 3774 3366 3365 ;552 ;553 ;554 400;717 I··........ ..··.. ........ ,,........ ........ ........ ,,........ ........ ,,........ ........ / OPTR ;'544 765'?1 rAE:[ / ;545 7547 or ... EXT LOCATION IN 10.01GrT VE:RSION. ,,'ADOQE:SS ........ ........ OUTPUT ROUTINE rOR SCOPE ,,........ ........ SToRES CIofARS IN P'L.D1, LOCS ......... ,,,........ ,,........ ........ ,,........ ........ ........ ,'e........ ••••••• ,'.Ii........ •••••• ,,........ ........ ,........ / STIol ,'''11 ;ISH ;'541 lTSOf( , \' ",1(12 62C'1 2366 1366 1215 PH7 SKI' CLA TAO SNA JMI' [,644 1362 ""~3 SlA ~31C 745:3 ;527 PAGE 1.62 ~~O ;516 7517 7523 7524 7525 ;526 231;'6 \ ·0',HI 7515, 1361 3439 3441lJ 3441 3442 3443 3444 3445 :5'146 3447 34'18 34'19 3450 3451 3452 3453 3454 3455 :'lAL1~ e/ KCc: TAD DCA t . DCA DCA ,........ ........ ,,........ ......... ........ ,,,........ ........ ,........ TOO MANY I.INES,CHARS ,,........ ON OISPI.AY UNTIl. SOMETHING ........ ,,,........ ........ ,........ IGNORE LINE 'EEO ,,........ ........ CLE:AR ,,........ ........ CHAqACTER THE / /e ••••••• WA~G , ' >.".'1 OIS~LAVEO IS TVPEQ.' ........ ' ••• 0 •••• 06377 PPTR NCHARS Nr£EOS / / 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 t.;COLS DCA t>;O~U!G; tAD f.iLI~ES; SMA JMP JMP l NCOLS PPTR, OPTR 07716, '/'OIS , 1. • DISPLAy CRLor / / / / / / / / 1716 / / / .7'76 / / I •••••••• NCIolI,RS; ~ 01763, 1163 06377, 6317 1655 7'66 CL4 SCOPOU NHEOS; :/J 07655. 07116 su e' 07566, PAGE / 10" TAD NCOlS, ........ ........ ........ ........ ........ ........ ........ ........ ........ ........ ,........ ........ ........ ........ ,........ ........ ........ ,,........ ........ .,........,........ ........ ........I.·........ ..•· .. I.· ..•••• ........ I••• ·•·.· I··.· .... ,........ I······.·I.· .••..• ........II••..•••• ........ 23,.,(1 l1;JANw71 ~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, INTEGER ,·1 F'I NT F'MUL rEICT / / rORHUN INTEGER / •••••••• JMS J SPA erA . DCA TAO TAO / / STtMP CHAR / MMCOM Si!A CLA / ERROR:5 PUSHJ EVALir1 rINT F'MUL rl VHUN / F'EltT JMS I Dei. TAO TAO SNi CLA ['RROR3 JOr 6211 CI.A eLI. AND INTEGER STtMP2 SPTR Ml.rMIT I••.•• · .•I.· •••••• ICO' V CMA RAR JSI STEMP SPTR SPTR TAO ·.0741' DCA tAo ._..._,.,. _ ... __ .0. ___ STEMP2 I••••• · .• •.•••• I.·I.·.··· ........ (- 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 / CLA CMA SPTR DCA I 11' / ION EF'UN31 JM.P 1 MLIMyT; .. 5176 0141l'fl. 7400 rORloIuN; 11 i 2100 I(-LAST Loe ", OISP POINTS-i) nVloIuN; 1113710.0 / MMCOM, / / / .. 254 I 62101 5657 16H h;5 ;6;6 ;677 3271 ?6i3 ;;ell' lea" I a~\J ;;r5 7110 1711 ;;12 ;; 13 ;;14 SPTR~ CLEAR, 7121 ;712 4566 '7752 1161 ;;16 '753' ;717 .. 1163 '1711 ;;21 ;"134 WAIT WAIT I ••••• • •• WAtT 0 tAb OOISSP 6201 ,cor 01.tST~1 ,I.· ..·· .. I.· •• •• •• 10"" ION JMP I OOtssP; 2200 PPASS, PASS OUTpuT~ JMS J POPA SORTJ ........ ........ I•...•.•. ,I··.····. ........ I.· ..• · .. ..•· .. ,,I.·........ ,,........ ........ ........ ,,,........ ........ ........ I.· .. •• .• ,........ 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 Dci 60212 1 4 13 7103 ;;e4 0 el.i CI.L. eM ... RTI. tAD 13~4 17{,6 ;;~1 ;;n lolA IT'~ 4402S 1661 16h ?6i1 7672 ;,C1 3568 tS~ ........ I··.····. ......... I.·.····. ........ I··.····. I.·.··· .. ........ ........ ........ ........ PAGE 1-64 / I ~"H1J" 3557 3567 SPTR ,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 231"lo :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 e CI.EAR III 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 OT 01 ........ ,........ ........ 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 "°" 1~~0f1111! 4575 3732 1330 31:53 3711 ;fC'l0£1 4257 6002 6141 tAD JMP 1 IS! r TAO I sU CLA JMS JMP I PCL.I . .,.- ' 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 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111110 5Z0~ 5100 11111ii1 11111"111 11111111 111111U 11111111 11111111 11111111. 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111021 5200 53011' Ui11H1 11111111 l1iiHh i1111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 uHHil Ui1;t11 uHi iil 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 i 1111111 11111111 u11H1:1 11111111 lli1il11 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111U0 61"0 l1i1Hil l1111iil 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 6200 6300 U1'ii1tl· 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11·111111 11111111 11111111 111111U' b400 l1il1til 11Uni1 11111111 11111111 11111111 6'0~ 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 660" 6100 Uiii1t1 11111 til 11111111 11111111 11111111 11111111 11111111 11111111 11111111· 11111111 11111111 11111111 11111111 11111111 11111111 11111111 121021 11\11"111 11"" 1200 7300 11111" ii1 Ui11iil \1111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 ~111U11 11111"111 .11111111 11111111 11111111 11111111 11111111 11111111- 11111111 11111111 11111111 11111111 11111111 11111111 11111110 740e1 7500 11t11iil 11t11 i i1 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111011 76021 11 11111111 11111111 11111111 11111111 4~~·"11 ...". ." .. 1 . 11111111 ~ 11 ';'1 "; ~ ~ ~ 11111111 ....... ,,? 11111111 !~, 1l:"'· ~~: 5400 5'' 0 5600 57r1l1ll 611l0" ~ -.: 11111.: 4111 ~ ; ,'.<,... 'I! .~ _:: ~ ~- .... ~, ",;: It ,'• .? 4 < ~_l.;:. ;~-.~ " . , , .~ >It .. ~ V 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 • ;1:> :11 ~1~;'I2 M~3 231~6 V,''''3 , :va *1 O,~0 )(Q, 4:'1'1 D:25~, 02~~~~ , Z~;) 0M<4 125 ("lOInS I~H'\YJ v' (l! ~~ 6 , 000 085, GAMMA, C"iRCNT; I······.· I ••••• ••• 1(I:lErER~"JCECl /(REF'ER~NBe:D /(REF'e:R~'JCED 4 121 III ....... . I··.···.· ....... . ....... . ........ ....... . ....... ......... 200 125 o " ~36e ·10 (H!l0 ,'1310 JrH" )(~1. / / / L"~1l ~. ,,~? 8l.K2. /UNIT "';'112 '0~0 ~~13 AS Loe 2) AS. LOC 3) 4S,LDC 4) / I"I'Jn 0360. 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········ 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 ,, ,, ,, , / I~;~ 61/1 (1;~ 61 467 6141 ?I~62 =,,~63 22t~0 22~0 645 61<'2 Lor 5 JMP SUBq SET I BETA 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 SET • / /Clr CDr " dlTER 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 I 9J~ ,:030 !003 2135 1342 1600 1361 " l!IJ0 ('''~0 21:176 01203 "204 "2~5 0206 \~177 6203 56e1 5174 4477 ;144 5171 ?651 4136 42144 0 Ii) 'LAC F'L.AC*l F'l.AC*2 ~. 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 Ii) 1077.7710 ;'1('1 ~,:?4 0 B1rLG-l ]1017 (11;'-1 01225 012'-6 l'I 413612645 2645 CA'22 ""23 P~EPLAc,REPLACE Myrr",p; 2' MYTMP2; 2' pr 1t.lt 5101, F'lN ISH 4136 ~216 ~2t7 VI,,0 PCO~MON,COMMON. U!lJ0 1'll214 ~212 ~,i3 ~ \ 01420, 1420 ,177 'ERROR; 6203 JHP I F'SSERR .202 Pl21' ~2il!l C~F'LAG; 1420 ;~11144 '~1Zl45 ·.~046 1-1~ .. ISS, .. It (1 LOS$, PF'IL TAR.rtL TAB PL.OO(UP,LUKUP 1164 :;11100 PACt PLD~!L.o,LD"'ILD 06a~e, dH:l~ 23106 '0' P5LNA"'; LNA"I(·5 P6L \JAM; L~4I'1E·6 61110(!f :JC'3~ 2241 01117 3641 4577 4145 4417 0211 l1':'JA~ .. 71 ;764 2124 ('1202 "'202 V,,('3 S1oIlTC: ioI ; SWTMP, P81rLG; MYAC1, MVAC2, MYAC3, P1'LAC; P2'LAC; P;S'LAC; 07164, 1:'fla0 (;130E1 e200 1'12t1J7 376" e.l '" 4142.40l6 0171 ,1IJ301 ,/ IF'OC L121:S, 3169 .. 32 ~IAL.l" :-?33 ;132' ~'~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 ~240 91241 "242 1"243 017,44 (11245 ~'46 t'l247 t'l25~ 01251 !lI,52 tl!253 0254 "255 11;'JANe11 . ;"1('16 H"/7 ;"/41 4471 3044 4276 )376 4411 3146 5121 4651 4040 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 • 3n"lI17Z6 0257 (11261 t'l262 23106 307"1 J 173;~ 3J1"1 3770 >'1'-35 V·~~3 ;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 ~ '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 ' an 4523 2151 4122 2651 "'34'1 ~~50 ~351 [11352 0353 1'1354 "'355 4'23.2151 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 2~'S 3820 ' 1!10~ 3822 3823 3524 4020J2055 14nJ~777 A~£ C~ARACTER OlSPL4Y UEA *lJ0\'1 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 , ~337 "'340 231Z'6 41~fIll0036 J06 ("332 U';'';ANe71 V~~3 i000 1,1 ~"21 I CETRIoIS; " J" '7 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 11:JAt>.l"'1 1324 , 5236 1322 3H2 PLLP2. 5236 533~ ~324 077 DCA 8LK2 IGOTtT ; 01110 8LK2·1 CCET IGOTl T JMS JMP JMP AND RMSERR 077 ~143 NUMSGN PP43 I JMP JMP CLi JHP tAD Dci TAO Dcl TAO PLLP;S. DCA TAO I Cl.l ATL RTl RTL BLI<2 8L1<2·1 PLLP2 CGET IGOTlT RHSERR ._4 PLNAME 8LI<2 07774 BL1<2·1 PLNAME 91.K2·2 9LI(2 TAD !i3:h' 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 l~12 NUI'4SCN; TAO ~413 22112 5244 ;326 337~ 4J:~1 56!.'\'! 1323 765" • 8L1<2·1 lSI JMP JMS 5236 ., PLLPl PI.NAHE BLK2 DCi TAO DCi Dci 1. 9L1(2·1 lSI JHP TAO 5216 4333 ,"06 1411 TAD SNi JMP 2~12 ;106 ;006 07770 TAD 1217 '745;3 5261 1300 3411 5330 720" 5231 1322 32111 1327 3012 1322 3:1113 1411 tAo tAO 1326 4333 8L.K2 Dci PI.L"1. PAGE PL,NAr1E DCi 32112 2:S1~6 PL.U"l.AG 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' l1~JAN.71 \ ",' 3 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 ISUBR I 1105 1i06 Hrn 111" hi1 1"112 En 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, TO oci lSi! JMP AND TAO CL.L TAO 010 CGET ocl SN~ RHS[RR JMP TAO I.NUM tAo CGET CLL RT!. CLL RAL. ('010 OUt 1711/1 7770 1174 62.1 3 5732 6357 ,·,w~ 62(13 5136 2'64 1131 1354 11412' 1141 11042 745~ 017. 0771~. 10 n 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 1111 i'an " GEN AN OCTAL NUMBER JHP PLLP4 PI.NAME; I.NAMEw2, 53~2 " P51.~JAM JMS s?al ;324 1325 712!0 1323 3333 74,20 5330 1371 'U6 ;t34 .1333 OCTNUM HHS(RR L"lUM PAGE 1-7. 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 11012 1103 h04 231~6 . 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 l226 7450 1437 44" 1441 j 14.<12 un HH 4()22 72'~f1 5251 1221 H5,~ ~ iii 2 II.IB~ARY 1'4,1([ 6203 I UNIT I 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 qOo~ PCWAR PRHSERR PGtTRHS PLOf" H.O MYTMP2 P6LNAM PR£PI.4C 1:.'2110 1436 MVTM,P2 JHP 1 Jt1S J JMS 1 TAD £Nur REPLACE 4'43 4544 Sli CI.A INOT PAGE lot7S 6 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 L.lr """2 1405 l' 406 i.n7 J'1P SA,M€\, , 6201 1601 1420 1421 1422 1423 1424 J~10 ENR[PL.~ 3157 231Z6 l1':JAN.. 71 H24 1354 14?1 142'2 i4~J V~:'~" '3 j) 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~ 1J .'-, ~'.j.::.~, I . IrOCL12. J ' 4153 1 45 4154 1446 4155 1447 4156 145~ 41S7 1451 4158 14!'2 41,9 1453 416" 14~4 4161 1455 4162 145~ 4163 '457 4164 i 46" 4165 1461 4166 ,. 1:462 4167 1463 4168 1464 4169 1465 4170 1466 4171 1467 4172 1470 4173 1471 4174 14;2 4175 14;3 4116 14;4 41'17 14;5 4178 14;6 4179 14;7 1,00 418" 4181 i501 4182 4183 4184 41S5 15'-"2 4186 1503 4187 1SIl!4 4188 1511'5 4189 1506 4190 1527 4191 ;'510 4192 1511 4193 ;512 4194 1!H3 4195 i514 4196 1515 4197 1.516 4198 1517 4199 rtAl.l~ l1';JAN ... l1 tAD sli Cl.' 5623 721~1 JMI' I ITS;r. ITSsS, ITS! it 70l!.1 n101 3157 4622 5261 [I:fX iT , ;200 5623 4543 (' 0'30 4544 4"3 1157 3556 2156 1'46 3556 2156 1542 3556 2156 1545 3556 5216 ,472 LEF'l.AG; ;H~IoiSERj:/ DCA '1YT~P2 JMS PGtTC "lOP ••• el.A JMP JMS PGtTRHS P~~SERR J'"'P •• 3 l' G£TRIFT~ I SP'i t,.X IT I IrllE VARIABLE LOA.OER I ITL.OAD; ~ 1533 1534 JHS 1 PCO"1MON I is NOw IN ME~,RYI LOSS ,POINT AT iT, ONE or THE rOLL.OWING 3 CHOICES wILL BE TAKEN; ACCORDING /TO TYPE IVAI:nA8L.£ , 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~'" JHP TA~ lSi TAO DCA IS! JHIit JR£TL.O; u5 DCA 027 MYAC1 tAo 1 LOSS SFii CI.A eMA MYAC2 LOSS r-4YAC3 DCA tAo DCA 6203 5733 IRETLO SRETLO L.OSS LOSS ",YACl L.OSS MY4C2 LOSS CRE:TLD JMP 1535 1536 1537 15Hl 5346 5341 1551 62"3 MYAC1 PVLAC ~C~ TAO 9C~ TAO Dci 1 GtTcx, 027, MYAC2 P2fLAC HY4C3 JMFI I P3PLAC ITL040 "27JMS PGETC JMP JMP pqlolSERR GETCX ,,SU8SCRIPTING 'OR rIL.E *16111~ IENT[R wtT~ COMMON; " A.NO 07 CI-I- RTL. T!9 ~!~~ VAIABLES riLE NO. IN AC 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 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 PREOiv; TAD I DCi' fAD Dci DCA TAO CLL. tAd 1556 • SLKZ 91..1<2 8L1(2*2 91..1(2 HISS otVOIV ~us DCA LOSS toIlSS DIVLU'P; TAO CLl RAL fAD RA~ DC. BLI<2 tAo HUS DCA HISS tAo oci 8L1<2.2 CLl CIA s!L JMP IS! .,IMP TAO lSI eli lSi TAO IS! JHP oci II-Ow ORDER SuBSCRIPT, THEN POINTER HISS tAo Roll • IDIVIDES BV NO. ENTRIES/BLOCK 01764 9L1<2·1 LOSS eLl , /CRE'ERENCES LoCS 2,3.4) TAO .ocl Sl~ ' f"ERROR MYTEMP 8L1(2.2, , PR[OIV SKP 2E!12 5265 ' ISUBSCRIPTS L.OSS IS! JHP OlvoiV; CLi DCA 2200 cr. Dcl 7410 115121 "'ISS PSVSS PACE BI..K2 SNl JMP 1556 2156 7041 3012 1672 1313 1674 JHP \, 3011 1411 3011 3e13 1011 7141 1150 ;420 5232 3150 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~ 1621 1622 4296 U';'JAN .. 71 15::11:1 1620 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' • eJ ~ 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 TBL.K IUSOI,.UTE TS L.I( T~E sUrrERS SW!TCI>! JMS PFTHSH SWITCH PB1F'L.G XR1 TAC TAO ocl CLA lAC XR1 DCA I . BI..1<2 TAD XRl XRl 81.1(2.1- Dci TAD 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 ISTA~TZNG sw nCH DCA lOf' !'el1 7~06 TOO L.O',G eL.i CLL. lAC RTL. CHECK JM~ SWITCH IAL.TeRNATt 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 I~ PAGE 1.82 n;RROR lSi? 3~13 23136 CL,A ISUBSCR,I'T TAD 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 • rj 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 ~~4!5 2III "7 .1166 ;:'143 ,"44 2046 JM~ 07, 2151 23106 PAGE 1. • 8L1<2·2 CHtCK SWT~P ITSAGO laLK IS iN MEMORy ALREAOY 1 .20~(!I I IrJL[ VAFU A9\.£ STORER I ITSToR; 0 Dci tAo DCA tAo Dci I TAO DCA TAO JMS JMP JHI' FRETST'; tAo Dcl !SI TAD OC. In I )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 ;;,42 TAO 3551 ?il20 ;0:57 " JMI' I 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 DCA 1 lSi! TAD SMA 1.0SS JMP CRUST URETST~ 6203 JMP t CALl.1N l~CALL.~ Dci I LOSS CRETST; CL.A CMA DCA 1 6203 JMP 1 HISS 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 CL.A U~£RsT; DCA t 5620 }030 1163 301e LOSS LOSS MYAC2 CI.A CL.L. eMA Rll. lAC 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 SMA CL.A CMA CHL. 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 1 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 .w 'P81r~G ~IT , .: . POiNTS TO 81'~CJ ADOtGNS SWITCw MAKES rPtNl ~T ~~r~~ . " " . ',. ,.... 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 I, B1BLi(, SULC, PAGE: ~l • ~ [\ e2BU(, e h. • 35 :J35 '-'"' '" 23106 ...J4 B2UI~IT; I 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~'" HH HH ;t45 h46 H47 '3"~Hi lllHl!!l 1,0 Il! 0 ~'eI1l0 !1~2I~ ;'Id~S (-'11\0" 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 '154 H57 'H.TAS; 0",""15,(1,0,0,0 ~le00 "QJ00 1'0"8 ;155 ,i56 BI.OCK ,-Plet0 !\"1ci0 u50 h51 h52 H~3 4,r;,1 ;''!~~ l1;'JAN It 71 I-UNIT ;t42 :h43 4'~" V"~3 '-rId; ;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 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 1£11210 111212' 11i11ii1 l1i11ii1 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 1200 1300 l111Eil 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 :1d0 15"'0 1111H11 11111111 11111111 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 11111111 11111111 11111111 11111111 ·11111111 11111111 11111110 20021 11111111 11HHi1 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111 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 e 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 R ;'~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: 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 or 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 t:T£RM2 ET£RMN [VAL E)(l EXIT EX I 11 EXIT2 EXlT3 EXtTJ EX", EXTR P 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 :HI4" 2646 . S;034 53?'1 1363 2660 ~044 2313 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~ U £ 6(/111 60'~ ." " Y"'~.5. ... • • ~1 ~I. rIl STR -354 - ..... - ... IF" . 1537 .. -- - F'RtTLD F'Re:TST F"RST 32~6 !F'3 FRSrx 3214 I G~,o;> '1217 52~4 1036 0771 5513 3661 tOOTIT lUST IN I'I8UF' 2071 .13 1eJ5 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 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 1326 ;>135 ! 1,65 4555 225:) i ~LAG2 651\? 5162 11725 .tL~RG In~ 2~32 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 rSiN rssERR nIT G101 2014 5774 (1"00 3667 3670 e! iHl 5 IF'1 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 L4 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 M~ ~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:" - 1~':5 ~P4 ..,PS -O\P6 "IP'~ ':(GP 14i!6 -'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 0061 .1.36 116 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 "!o4SCl .:. ~~S ... ri'T t.4P1 PIES (1(165 7;66 '1564 4724 756!) 7561 \AGSw 'iC·jb,RS 26i12 5526 l135 23136 l1~JAN"l1 V':~'3 12r _~IoIIJNDQ MOV!'lOV .} tr' t;F"(EDS ," ~'1.. ~OCI..K 2653 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 01 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 aT 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:~ pn p17a'3 P174r11 PAl PACBUF" PACKC ~ PACKsT PACX PALl; PARTES PASS PB1'-LG PC pel PCIoIAR PC\o!£CK PCHI( PCl(l PCLEAR PCLKF'I,. PCOMMO P02 P03 POL)(~ PEtA~1,. PEQ pER PriLTA PF'it-HS :"1~4 :>l22 ~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 'f , "'~ ~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'~ j, < y,~~ 4"'-W~'1I-' ~ET ~ET'lN R".JDZ' ROOTGO FlOT " ROUNO RTL6 RUiJ1 QUA2 RUB3 Rue4 qUe5 RUeIT SAoR .. 54'2 1563 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 Tn 37~1 SAvAC SAvE 6150 t27.1 1223 UIl£TST 021(110 i'1 TVP£ TY"£:2 5i1J64 1.H16e1 T 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 LINKS ~(T~CTrOI ~ CrNr~'T'DI ~ RUN~TI~rl 40 SECONOS 41< CORE U!i:r.~ / I. 1,9S0l ABSOL2 A8SDL3 ABSOLV ACli04 .~ :?S::32 ~J13 ~3A5tt 58. 32192 31310 Jl33# 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 ASHF'T .... 82 • 1068 348 ;'9;4 746 760 AXOUT B 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 U23 1430 - 1431 3663 43U - 3861 43Z3 3131 3158 3167 3164 2953 30k'3 31B5 3192 !196 3276 2972 2524 2996 2848. 2856 2986 2992 2998 3007 3021 3691 37117 81 4 1131 828 127S 1274 1276 2951 2!512 2818 2513 2964 2821 2957 2985 88" 3664 2916 3665 2983 ~"'., 8- ,,4 761 250 247 1686 1683 1232 0'_ 1367 ;$182, 810 81~ 1717, 1411 1724 1763 1738 4486. 3868 PLOCK 3197 312101 25;7,9 • 32(."1 191'" 19681 ~;41 2967 1945* 1963 • 298'tl( 29. i538 '37. 3080 3631# ASK ATSItJ 2812 2978 1971* 1965. 2'119, 294'. 160 3662 2968 21H,4 2,H,5. 112". 198" 2979# 756* 1024. 751 21' 1543 231 ,_ ... 309' ATI..IST AXIN , ';'892 1956 1954 - 1958 '868 2919 ;59 2931# 3344 " 2St5 .u57 51# 47 '629 U, 2339 2r112 1977. 196f1l# 3673 19741 192121# 3830 3869 4312 4459 234 80 34~'5. 246 02342 1811. 3677 3100 3102 J7~6 3708 3832 3834 42H 4322 393' 4272 4325 3850 4281 4346 3858 4285 4349 :S66e '292 '372 3862 4298 4378 4465 3840 4274 4342 4469, 3849 4275 434' 4463 3838 4273 4326 4467 . 1268 1269 131 6 1322 142' 1426 1433 4064 38821 4315 4461 -4\'160 13 4 3413 8{'t9 - ° -1BeU 826 '0 ,(:;'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 ~1 ;d3 r,9 ~AL.L.iN '~4~3lt cCR 171- cor 2611 cEX1 '-8:53 r.EXP Of" r.rRS ;851 iSS9 132# 136j c',RSX CGET.:'f': Cf~T~E' .. 38 4 1 :<1 ~5it5 c.aUx;, :.' i'HII ~HA'R .: .. ~' ,:". :; '.·86' . -\21.5 1562 3519 eio+ARTA CI.CIJ CL.EAR tLF' CLKF't.G CNTR cal. C;OMBOT COMBUF eOMF.:1N ~OMEOU cOMGO caML.sT COMMEN 33;2f11 3401 99f11 .·1505 2U 131* 131 1244 966 39:31· 4362. 3994 1282. 366 9 . 1628. 1235 799# 226" 214 4310 4198 1997 2?117t 4441 1403 2657 2662' .9·09 ' 77;" 1496' 2169 1408 2739' 4369 . 40U 1281 .:: 2844 745 4251# 4185# c:R£TsT 658 . ."t"., 1319' 3545# 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 4327 ; 618 7BfII ;67 1676 255' 1:309 24(.'12 .. ];56. ' ., 2U 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 CHtOK 3425 1746 1549_ 13~ 42364446" 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 o£BCSW. nECON rECO~V DECP (lEeR r£JUMP r.EL.ET£ or OCRI' l"lGRPl olG tHGn r"IGITS '559 21- 44# '416 332 ,,-;7 2311 4"'22 lBU 1987 368. :sekl# 2332 2427 ;26U () 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 nO DOK , DONE r·OONt . ;668 DOUBLE DPCvpT :'IP~ r,pT nSAV£ flTST DUBOIV ~UaI.AD :)V3 F' (CAI..L E'CHOLS 363# 1245, 1248 312 1281i1 '661 2661 2!552 '421. '425 ~122# 394 2586 21 2,"9 2418. 2395. 2219 2343. 4341# 259 2362. 2462 .. 2348 2511 2915 4283. 3176. 43214 31139, 2~8 3~62' 2918 2~29 743 1258 126h 398# 2561 2684 2669 2626# 2444 2624. 240 2422 2417 2284 13S8 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. ... 4~'h 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# 11'1511 733 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 2740 873 1151 2156 . 114; 736 3523 2111 41(j311 1123 E:RROR3 ERROR!5 FAT 13'" oj ~51 1"111 1142 j) 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 UU 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 F'INON 134911 F"INF'IN rlNlSH rlNKP 476 3;38 445(/1. '1i'I07 2676 F'lSW rlVHuN nx 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 n. F'L TUR 713* 771 668 2023 . 269~ 35U h80 1904 3746 ;S68t 3747 1878 3887 126 126# 19t13 3893111 69 3Cl16 61# ;0~2 ;926 ;sh, 2831 415 133 4;8# <475. ;9144 35a 1091 '317 129 '836 ;S61, h8 331 34# 43 4p2 515 8'!7 1224 965 1185 67~. 789 3527. 3012, 3f1'3S, 66# 4098 27;14_ 373 1362 717. rINPUT rINT 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* ;['13 13U 14M 4C'78 \, 4057. 2692 2549 .2678 2547/1 4498# t INOLN , 2543 98~ti '665 47S 1;0j 2235 2546 3;32 nNC~ 2183 35:'2 '56~ ,,.,97 3975 39;9 2166 70 398 464 4455 4,468 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 684 105 3131* 2928 2853, 683, 1441 673 285 19~' 631 737 879 2857 2860 2Hh 1939# 688 1,,98 1100 2654, 269' 23,4, 2'88 2614 681 ~927 2(H8# U97. 2321 2522. 2851. 2925 1178 1816 2825 136 1996 2547 1128 lUi! 3031 2924 2t'1~!5 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 GO c.ONE GOODV ?1J5 2138 1152 11~2 2739: 741 3526# 231'8 G5172 GENO 18911' 2623* 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 , 286:5 2913 2915 3143 649 7SZ 1761 786 .. 1169 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 .) j) ~ 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 . 1995 ~31# 1796# 16.12# 2122. 3154 6721 1859. 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 186!5t 899, 253 90~ 2769 41B9 363 3814 1985 1993 :517. 91~tI 946 51"1 295 913 2763 4248' 483 957 89h 1783 2165 U.:I2# 270 3652 4831# 366"''' r.OTO r.RPTST 183 5a4# 744 4,116 592 593 31215 997 1219 600 1227 2146 2159 521lJ , 647 , 1561 4252 3352 1765 r.S1 C:S2 .19 939 r.S3 9:!4: r.S4 9·'5!! y.' 5 c:se:~CH G Tl:~14 (ii!ER~ •.q N8UF' .. ISS HORD ;33 rBAR . ~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* ,,'6 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: LUIC 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 oT ~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 8 4244 1213 497 1378 31'9 910 929 439 4 3156 40'112 4118 4120 3978 3911 3998 585 1402 1696 589 1464 17114 28~7 1526 1140 15:5~ 229 1119 254 41,a 1138 2266 824 834 904 2276 2443 487 lUll 1699 1'1 fIIQJ 436 45121 46' 633 114~ 333# 1533 151tl1# 223 218 1143 2161# 948 2766 153~ 228 815 121f/J# 3556 4451 261 609 1220 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 206 492# 4112 215'# 418 1532 181' 3584 4217 44Q1# 458" 14' 1191 2768 4365 26 4 5('9 42h 1534, 3593 1033 3!586# 4397 444 46" 4;,61 355# 1158" 4-162 PF'j! 356. 4126# 4142 PGETe 2810 439,2 9391 PF'X 1140 he~ 3416 439t' 1396 1512 p5L."lAM 2029 1 476 3341: 1547# 242 2727# 3886 3690 125. 1659 1456 3 :~3211 1548# 4246 '-6;2 p77 1'5?4 323 4242 1'516 3;4711 p43 p61,.!'-a11 .J ~ 4~6J 4249 9!53 1021 . Pc ETlH4 PI 1'12 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 pp43 pplSS ppROC PPT(IIJ PPTR PREOIV PREPLA PRHSrR PRINTC P~NT PFWT2 pRNTl PRNTLN PROC PRoerS PSCopO psETCL PSIN .511 '144 ",1,19 , ·116 ,,99 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 " 3857 40210 3861 4175 3916- 3594 42'2 542 666 404 739 699 693 969 4164 1106 U94 1214 2888 2753 2901 2773 29e3 3558 2908 un 11 4 9 1133 1336 1211 919 923 697 987 4251 784 1166 79' 116 8 820 1773 1288 1775 un 1472 2316 1489 1492 1182 1461 2341 675 97" 1772 700 917 1776 7~2 916 1718 104 98Z 1046 llU 2H2 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 349S c. ~·' !! ~~:'S ~1" 1636 361111 911 3l'1S 6d? od3 6'19 712 924 928 942 959 961 1428 1537 1539 129 731 2500 25r.1 2627 3391 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 155h 2554 4100' 1579 1463 :S4n 174ih 258 4 1625 aB~ 877 3~81 ") 1750 825 f!46 4106 33981 819. 816d SETCLI( HTT 2349. 3389 1552' 263'" 291 1714111 1744. 1746 1741# 1742 82611 '2!l3 '23111 654. 830 1851. 3091 1623 ~415' s£X 6~2 1581 ~"73 SCopoU seou~T 3169 :S854 1741 920 2467 3999 2564 ;674 1553 ~12 • 1.646 1610 R(PL,AC REPT R[SOL R[SOll RESOL' PESOL v RET RtTRN RETURN 2231 715 1694. ,451 3735 '5'3 REMAIN 1561 763 1616' 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! lolC 7~4 ,ah 111 10;3 ,,;5 QO 1V ' I 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 "M J .~ SMP !;",SP 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 834# 884 3137 3153, 317f11 16.!' 24?1 1612 2619, 1629j ~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 14M 158* 6~14 1 278 2617# 836# 493 299 22111 605 1751# 236 3513 3424, 3402# 159 160# 1722 176. ~5~5 3363 25'* 4399 833 2tA3# '-11131 19111 3493 352'4 44U 4412 ;6414 l6;6 883 44U8# 876. 261 2338111 933 3512 3515 4424. 4429, 2648. 3682' 191. 927 195' 3;391 986 433Q1 24# 4363 1241 3;4Q1~ 481i1 1289 1"819# 89~ 853 T3 23B7 • • 15* ~ORTC ~ORTCN 5PNOQ " 50;:1# 835 ! .':165 t611 16'-'4 '53(, !iiORT8 SORTJ SF'tCIA sPI.AT ' ;~ 3a# 1;44 49* ;319 '693 ?832 '-982 758111 196* 794# ;9111 U29 636 2328 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 he 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 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'" 1318 359h 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 v iZERO ~2 1181# f~7 1222# 47 35=!l211' , 45 173 lh 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 • 8~Z'# 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 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 sa,. 583 1955 218Z 19.51 2205. 563 564 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 580 998 • '," . , 1895 2172 191611 2174 1948 2116 1951 1e~8 554 101' 559 1016 562. '62 3657 3663 36871 552 2118 4366 ,./ )


Source Exif Data:
File Type                       : PDF
File Type Extension             : pdf
MIME Type                       : application/pdf
PDF Version                     : 1.3
Linearized                      : No
XMP Toolkit                     : Adobe XMP Core 4.2.1-c041 52.342996, 2008/05/07-21:37:19
Producer                        : Adobe Acrobat 9.0 Paper Capture Plug-in
Modify Date                     : 2016:11:05 08:45:31-07:00
Create Date                     : 2016:11:05 08:45:31-07:00
Metadata Date                   : 2016:11:05 08:45:31-07:00
Format                          : application/pdf
Document ID                     : uuid:e77817e2-8f1d-5348-8acf-821109d62990
Instance ID                     : uuid:3d90046e-24a6-5645-8ebb-475643499477
Page Layout                     : SinglePage
Page Mode                       : UseNone
Page Count                      : 110
EXIF Metadata provided by EXIF.tools

Navigation menu