Digital PDFs

DEC-12-AJAA-LA

December 1971

110 pages

Original

4.5MB

Document:	FOCAL-12 Listing
Order Number:	DEC-12-AJAA-LA
Revision:
Pages:	110
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/dec-12-aja/dec-12-ajaa-la.pdf

OCR Text

IDENTIFICATION

PRODUCT CODE:

DEC-12-AJAA-LA

PRODUCT NAME:

FOCAL- 12 LISTING

DATE CREATED:

JANUARY II, 1971

MAINTAINER:

SOFTWARE SERVICES

/F0CL12.J7

;IAL1S

li;jAN-71

/rOCLl2.37
/CCPVRiGMT 1970

FlXMi?!

5
6

riXMPi r4O6=100e

PAGE

MAY:>iAPD»

MASS, 01754

PPOw»500e/PSEuDC-rLOATING POr\T I\'ST9UCT10NS,

tIXm;?!

riXMsl rHUL«4a0e
rixv.iji FOIV'JBP?
FIXmpI
riXMRl FPUT«6000

S
9

12
13
14
15
16
17
l6
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
?2
53
54
55

23106

DIGITAL EOutPME'vT CC^Pi

•

V7S3

70K0

FNORb70'33

TEXTaP
FXlT¥l?

4407
6101

FINT^JMS I 7
SMP«6l01
/MISCELLANEOUS ITEMS

.•^SJl

•I

5433

JMP

•

/IN-TERRUPT PROCESSOR ENTRY

lwetmp;
36C^3

-«13
"13?

???5

•30'?l

"ft"?
64;30
i'3B0

jsj'ia

o!?ii

pa 12
Ji?l3
(»?14
f ?15

P"C16

36-^0

3117
,

'3gf?

7402
::P17

Pi3l7
P'«"21

P13?2
n:i23

3214

330
2437
?l?0

f",''?4

?io25

•?00

0026

INTIRPT

OOTjP»
P13,
C100,

DOtjR

/USED For oebucging
13
/CONSTANT
100
/CONSTANT
/TEXT rjELD MOi
/PROGRAM FIELD NOt
CDr«700?
/(XbMEM) - OPR
TPnT
/ADDRESS or FLOATING POINT INTERPRETER, (LOC •7)
/AUTO-i\OEX REGISTERS - <STaRT OF SAVE By OUAO)
AXIv,
/STORAGE INDEX (LOC •U)
XRT,
/EXTRA XP
XRT2,
/EXTRA XR
POLXRi
BECIN»1 /PusH00w^' LIST INDEX REGISTER.
FLTXR*
I09Ur»l /XR FOR FLOATING POInT
FLTXR2,
/EXTRA FOR F.P.
TELSWf
HLT
/TELETYPE
PROGRESS SWITCH
TEXTB"'.' /TEXT POINTERS (LOC "IT)
AXOUTi
FRSTX
/OUTPUT INDEX
XCT.
3
/UNPACK SWITCH
GTEv,
/UNPACK STORAGE
PCi
FLTZER /PROGRAM COUf'TER
tmisln.
/LINE Pointer from 'fInolN'
TMlsoP, £
/CURRENT 'EVAL' OPERATION
lastln,
/SACK Pointer from 'fInoln*
DEBgSW, 1
/DEBUG SWI^CJ
NON^iERO FOR LITERAL.
)
PACkST,
/RUaoUT PROTECTION
pTi,
P
/VARIABLE Pointer
LASTV»
PUF9EG /ADDRESS Of LAST VARIABLE
Tl.
"
/TEMPORARY REGISTER - MAiN
T3,
/TEMP ReGIStfR FOR OnTPUT
?
1\9UF,
/KEYBOARD ImPUT buFFER
BOTTOM, FEXP.l /
•••/LA«!T LCCATlOfw CURRENTLY AVAILABLE IN FIELD HERO ••
2
I'JS'jRi
/0» CETCI «0
READC
HiNBUF, ?
/HIGM SPEED INPUT BUFFER
/PACE lERO OF THE
/FLflATi^G POINT ARITHMETIC INTERPRETER FOR FOCAL

^P3?
ci,'31

3216

?a32
P.133

P?34

4617
p:'36
fi;'37

/rOCLl2,S7|
56
57
53
59

DlAUli?

r".> 4

4 2

'/ .'

4 3

62
63
6"
65
66
67
46
69
70
71
72
73
74
75
76
77
78

/rtOATl\3 ACCU^ULATo"
e

('"4 5

.10 3 J!

EXP,
HORO,

!!<;M6

C-^i}

f ?47

':'P'52

3C-53

C.'54

'^354

• 54

;'00!?

,..(;!

7760

!J0

f1?60

3216

Rl
82
83
84
8?
86
97
88
59
90
91
92
o3
94
05
96
?7
96
99

??61

•.'300

;-"'62

2414
2676
?666
0001
n2l5

71064

P1366
?i^67
f»?70

£'00?

t!005

(»i^71

:'072

J'372

;214

^?73

207

:'?74

.l«74
;.203

337
!S?76

.'212
1^>177

1 •4
1.'5

1:6
i:7
1'8
l^9
11?

.V77

LORD.
0VER2#
SlGMPi

AC«1NS
FISU.
2004
IMTECER.rix
GETSGNaTAD FLAC*1
returNbjmp
EFU^J3I

;•???

pg65

/r.A,

66C5
20F4
6724
1?45
5536

'.^'56

f?63

ove:ri»

{'.'4 4

(in51

PACE

/CPE^A\/ STot?AGE

rLAC».

£^.^57

1.-3

23l?6

••:'M4

a?56

i.n
1-2

ll^JAN''7l

EXl.
AClH,
AClL.

.' ^^

V?P3

.215
74?2

/fUOATlN SI5V
/NEGATE FLAC SUBROUTINE
/OUTPUT FORMAT
/Fix FLAC

/VARIABLES
SORTCN; 3
lastop;
EFOPo,
ATsw,
I?
CNTP.
»20
STARTV.,
BUFR,
BUF3EG
OAOO.
3
XCTiM»
133
OuTOEV; XOuTL
1NDEV»
XI33
NACSW»
0031
CHAR,
215
LINENO; 00?i0
W090S*2
GINc.

INITIALIZED FOR THE DIALOGUE
/NUV9ER IN TABLE FRO>< SORTC
/LAST Operation for eval
/FUNCTlO^' CODE,
/ASK-TvpE Switch
/DELETE AND FRROR C0UNTER(USE0 BY F.P, ALSO)

foR Sk
/NEXT LOCATION IN BUFFER « LAST LOCATION Or TEXT'."
/••»»#••»
/PACK SwITCw
/POINTER TO OUT, SuB.
(OuTL>»FOR OEBuCSlNG
/POINTER TO IN, SUB,
(I33>«rOR DE9UCCINC
/NOT ALL ANq/OR GROUP SWlTcH(40ei0f ONEll«ALL J8i«GR0UP)
/The most IMPORTANT oEolSTCR
/line Number read by GETLN|(0400>«FOR TSS-S
/«6 FOR 4.,WoRO
CONSTANT
T2i
/TEMP RcGlSTPR - FOR NEW InST, ROUTINES,
2
/FOR DcbUGGINCi set OUTl AND I33 INTO OUTDEV AND INDEVJ
/ALSO PATCH THE ERRQR RcUTIVE P FOUR
/PAtcHrS PLUS TWO FOR TmE WIGH SPEED READER,
LIST6«',' /INPUT LIST FOR "SFoiiND".
214
/F.F.
207
/BELL
/«E?JD

<»

LIST7*','

P337,
CLF,

203
337
212

/CONTROl'C for OCBUGGING and TSS8
/LEPT ArR
/L.F,

LIST3«V /Excretion list
CCR.
215
/list BrANChER,
DMPSW»
HLT
/(SEARCh CMARACTeR)»VARIaBLE
FOR TRACE ON,
/THF Rest OF PARE 2ER0 IS PURE To THE MULTIUSER SYSTEM
Mll?(?«,

P77kVj»

PER,
m77,
P76ei»

77^W
256
''T?

7600
•20

/LEFT ';4St<
/PERIOn
/EXTEND CODE TEST
/GROUP «ASK
/CONSTAvT

{(JBaaJ-FOR TSSig

/rocus..-!

in
112
113
11."

115

U6
ll7
lie
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
13^
135
136
137
136
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154

155
156
157
156
159
1*0
161
162
1S3
164
155

!nv^6
."1-7

nil?
"Itl
?\\?.
•^113
!>'114

!ni5
?ii6
P1117

H120
;»1?1
PI122
fll?3
1^124
fil?5
t»l?6

ni27
P130
R131
P132
PI133

Pi34
pii ;^5

£^136

?t?7

olALiS

^'.:cz

177

P177.
P17.
P277.
n?.

,717

277
7776
7477

P!142

pi 43

277

/"?*•

-2

/C0'.ST4-jT

/CO-^STAvT
/ASCII rCR EFRO
/SPACE TEST

'•StU

C26?.

26P!

754?
7522
7563
7775
7773
7767

m24'-i,

»>24?

MCR,
MFLT.

«256
"215
•WORDS

m5i

»5

«ll

.i077

•2?0
43?0

C2«(5,

200

/CO^jSTA\TS

P4!?!00,

40(?0

/.MAGSW test constant

25J32

2157
5715
6i?30

6203
3140
3206
3143
3216
25121
24fi7

.'521

1413
5541
1565
4542
'477
4543
534
4544

FLARoPi flarg
PTCH,
chin
double; MULT2
FOUTPUt.FLOUTP
FI^JPUT; FLINTP
COMBUF. COmEIN
CFRS.
FRST
END.
COmEIN
ENDT.
BUpBeG
ErUN3i; EFUN3
CFRSX#
FLTZER

PD2

POPf'JMS

/PESTOPE Cf'OUP

/UNPACK

GETC«JmS

r^l45

2274
4546
?5i2
4547
1312

UTRA
packc'jms i
PACBUF
S0RTJ»JMS i
SORTS

PD3
I

455"'

S0RTC"J»'S

-nj 5;;

721
4551

XSORTC
PRINTCsjmS

M51

^465
4552
?157

"152

(for PDPi.5)
/data address
/general character input routine,
/MULTIPi Y FlaC BY 2
/FLOATur, Output
/FLOATING INPUT
/command buffer START
/ADDRESS OF DUMMY LINE,
/FIRST LOCATION USED iN eK,
/start of STORAGE AReA ••
/FUNCTION RETURN
/POINTER TO ?ERO DATA

/'FINPUT' USES CHAR AND GETc OR REAOC TO DEVELOP
/A NUMBER WHICH IS THEN STORED VIA PTl,
W0RDSi3 /OR 4
/NEW INSTRUCTIONS!
PUSmj"jms i
/RECURSIVE SUBROUTINE CALL
XPuSHj
POPasTaO I pDLXR/RESTORE AC
popj«Jmp
/SUBROUTINE RETURN
XPOPJ
puSha«jhs
/SAVE Ac
XPUSHA
PUShFpJms
/SAVE GROUP OF DATA

554
4545

C< 47

l-'Z

/PERIOD TEST
/c.B. Test
/8 -4 Fn" 4, WORD
/PAREN TEST
/PAREN TEST
/RICMT -^ASK

Mil,
P77,

{'144

pil46

PACE

/'^C'}

r^IMJSA,

4540

P»141

23126

/STEP M4SK
MASK

177
17

•26S?

I'.f^Bi

Pt40

ll-JAN^7l

Character

/PACK

CHARACTER

/SORT A\D BRANCH ON AC OR CHAR

/SORT ChAR

A
«

/PRINT AC OR CHAR

OUT

READC'JMS
ROIV,
CHIN
I

/REAQ OaTa

I'JTO

char AND PRINT

/rocLis

166
167
165
169
170
171
172
173
174
175
176
177
178
179
150
181
1B2
ie3

37^

2n
202
2?3
204
2^5
216
2^7
2PS

4 553

PR\'TlN«JMS

2429
<554

>l5«

3:^2

155

r^iSft

7157
?i6e
5-161

C162
5!163

4555
3244
4556
236?
4557

413
456?
1535
4561
1546
4562
2037
4563

f»164

("165

51166

getl.m«j"S

PAGE

I'^P

/PRINT C<L1NEN0)

/UNPACK AND FORM

XGETLN
riNDLN«JMS 1
XFIND
E^DLM*JMS
XENOLN
RTL6«JMS I
XRTL6

/SEARCH FOR

SP''IOP»J"-<S

LlNENjMBER

GIVEN Ll^E

/INSERT UINc POINTERS

/ROTATE LEFT SIX

/IGNORE SPACES AND LEADING ZEROS

XSPNOR
TESTN'.JMS

/PERIOD! OThERI NUMBER

XTESTN
TSTlP«'•JMS

/SKIP IF 5<S0RTCN<f ll (I.E. AN L-PAR)

LPRTST
TSTSRPi•JMS

/SKIP IF G(AC>

•

G(LINENO)

GRPTST
TESTC*.J'^S

/TERMi \UMBERj Function; letter^- and ign

XTCSTC

.7r^P

4565
2064
4566
4566
4566
2726

23106

XPRNT

744
4564

13 4

185
186
187
188
139
193
191
192
193
194
195
196
197
198
199
200

V'i33

r\5Z

llijANw 71

CIAL13

DELETEi•JMS I ,
PSIN,
XOCLETE
EPRor2 »JHS I ,
ERR0R3i•JMS I
E9R0R4 •JMS I ,
,

/REMOVE OLD TEXT LINE

/EXCESS SOMETHING ERROR
/MISCELLANEOUS ERROR
/FORMAT ERRO»

ERR2
/USED 3Y 8k
/rocAL IS COMMANO/INPUT DRIVER
1

0167

cm^

fli70

^000

0171

v20e-

51172
PI173
71174

6163

• 167
SUBS2I
LESubS
SU9S.
LEFPUT

(-.000

LESljgS

7657
7672
3601
7610
5576
1137
3022

PWAjTi
PCLEAR

^'167

3175
fl76
P177
PIS00
(«?01
P!?!?2

pi??3
P'?04

7'^01

2Ci9

!1?i?'5

210
211
2l2
2l3
214
2l5
216
2l7
2l6
219
220

e»5?6
Pi2c7
f!?1?

3C26
1226
3313
3225
4551
1132

n?!!
if?i2
1^213

0214
("JlS

1?16
.S»?17
f(?3ii

START*

LEPUT

/•••i>*»««

/••••••••
WAiT
CLEAR
BEGIN
/BECOMES <REC0VR»1) ••
/PROGRAM START FROM SELF
SKP CUA
«2
JMP I
/CONSOLE STARTi SWt200,
/!PC> •>
tAO CFRSX
/FOR COMMAND MODE
OCA PC
/USE ONE IN THE AC TO
lAC
DCA DMPSW
/JNlT UNPACK AnD TRACE SWiTCHi
/ENAPUE TRACE TOR INPUT Of <?),
DCa OEBGSW/PROTECT COMMAND BurFER,
TAD C0M80T
/NO PATCH TEST,
DCA POLXR
/ANNOUNCE PRESENCE
TAO CSTAR
PRINTC
/BY TYPING TmE LEAD'IN CHARACTER
/1N!TIALI?E COmmaNO BUFFER
tAD CQMBUF
DCA AXIN
/FOR UNPACKING,
DCa XCTlN
/RU90UT PROTECTION
tAD C0M9UF
DCA PACKST
/REAH COMMAND STRING
REAOC
SORTJ
,

315'5!

19AR.

S^l-s

3?62
1132
3127
4552
4547

/••••••*•
/•••»••••
/••«••««•
/•••D****

ISNORi

/rOCLl2.77

OIALI?

11»JAN»71

v?..'3

221
222
2?3

•":

^''TS

,->;:4

-474

.^;?3

2?''

->??«

2?5
226
227
2?S
229
230
271

.;?5
?-'i

4546
5217
252
3220

2-?2

?j?3

3>>2'3

OCA XCT

233
234
235
236
237
236
239
240
241
242
243
244
245
246
247
249
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275

,'-??4

4545

GETC

1555

1'735

?7-$i

3:^13
456C1

TAD BOTTOM
DCi POUXR

-2?7
.'j-'Zi

--JTl
;';32

?-}-i7
.-.?4?

•

7541
??42
??43
1544

^?45
^546

4546
4546
1132
.?'>17

1-^65
764?i

??50

4566

r.251

12i6i?l

,-.252

3010
3062

?253
r'254

?255
??56
{»?57
??6e!

??6i
P262
??6^
f-?64

??65
??66
;'567
.i?70

0371
"772
^273

paCKC
jr^B IGNOR
252
CSTAP»
/ACK-'C'ILrOGE: ChARACTEs?
COMcicT. C0mE0UT*12
/END OF COMMAND BUfFE^iLESS PROTECtlQ^' CoU'iTV
/C0'1»*An3/I'jPUT PROCESSOR
/STaoT TO PACK C.R,
IRETAji
PACKC
PACKC
/TInISh C.Ri
TAD COMeuF
/INITIALIZE "TEXTP"
/SEThP CURREmT LINE
OCi AXOUT
GONE,

SPfJOR

32167
341P1

4563
7410
4545
4546
1366
1116
7640
5260
4565
4556
5177
4540
.'611

7451^

7575
-?76
?j77

5177

?:??!?

7-^01

P-K^l

5232

TESTN
JMP GiERR
jMP INPUTX
ISZ DEBGSW
GETLN
TAT P40B0
TAD NACSw
SEa CLA
ERR0R3
TAD BUFR
OCA AXJN
DCa XCTIN
TAD LINENO
DCA
AXIN
SPnOR
SKP
GEtC
PACKC
TAD CHAR
TAD MCR
SiA CLA
I

SRETN.

JMP

TAD I PC
SNA
JMP START
OCA PC
TAO PC

3S)22

i?22

/REA^i FIRST CHARACTER.
/INJT PUSH^OOWN-LIST

/IGNORE LEADING BLANKS
/DOES THC LInE BEGIN WITH i«9?
/PERIOD sIlLCGAL GROUP i»ERO USAGE
/NO
/YESiDISaBLE TRACE FOR REPACKING
/REa^ THIS LINE NUMBER
/TEST FOR SiNgLE LINE,

/ILLEGAL LINE NUMBER ON INPUT
/SET POINTERS
/SAVE LINE #
/{X.MEM)
/IGNORE SPACES ApTER LINE NUMBER

/READ 1ST AFTER LlNENO TERMINATOR,
/SAVE TEXT ASO RESTORE DATA FIELD
/TEST FOR ENn OF INPUT STRING

.-S

DELETE
ENDLN
JMP START
iNPuTX; PUSHJ
PROC

1422

,-^574

PAGE 1"4

LIST7-1
INLIST«tIST7
/SAv^ STRING CmarACTE!?,

4561
5362
5271
?326
4554
1124

.'.?47

23l3f

/REMOVE OLO lINE. IF ANY,
/INSERT KEW LiNE
/POlVTERS MUST BE REINITIALIZED
/PROCESS IMMEDIATE COMMAND,

/CHECK NEXT lInE (X-MEM)
/END OF PROGRAM?
/YES
/SAvE NEW LINE NO.
/STabT NEW LINE

lAC

JMP GONE
/PROCESS OTHER COMMANDS
/TEXT LINE BUFFER FORMAT*
/«1 I POINTER OR ZERO hi LAST
/«2
lINE^JO
/«3 - i»M*l
TEXT
/i»N
C.R.
I

IlALia
276
277
278
279

-^j.z

Z??'

.'Jf^J

dSt?

.M.:'4

I.?66

2=^2"

.-3^5

1H2

201
2P2
2?3
25<
235
286
2S7
288
289
290
291
292
293
294
295
296
297
298
299
3?0
331

?tj*

765''.

.T7.?7

5322

171'?

r-^Zi

.'311

4771

,V12

li"47
.:372

.-SIS
?-ii4
r»3l5
.•'Ti6

.'317

032?
.'S?!
;i7?2
.^-jjs

33?'»

^325
n326
:'3?7
{^33?

P331
fi332

3<?2

P133

3?3
33*

{<334

?335

7'^5

5»336

3?6
3?7
S^B
3C9
310
311
312
313
314
315
316
317
318
319
320
321
322
3?3
324
325
326
327
328
329
330

?337
{.340
!^3^1

0342
?343
?344
;^345
?!346

0347
pjsei

n351
P352

i?46
7643
4566
V.M7
4557
7004
3367
4561
4545
4561
5340
5352
1054
7106
Jf54
7004
1367
3067
4545
4561
4566
5352

1067
1^4

}'355
:>396

764f»
7/12?

fJS?

it62

1067
i^i
746r
4566

v-'j63

764.1

;>340
.-361

f^64

i373

;'365
;'566
H'«67

7'^2'-^

7/^:4
3f^65

23104

PAGE

/DEVELOP I'.'O. *• "GETLN"
/IGnhRE LEADING SPACES,
/"ALL" IS A SPECIAL ARGUMENT,

/CALL 'GETC FROM 'INPUT' VIA 'DECON'
/(DECONV - IN FLOAT.)
/GROUP TOO LARGE?

AND P774es
TAO rLAC*2
SEA CLA

ERR0R2
tAD FLAC*3
RTl6
TESTAi

/CROUP NUMBER TOO LARGE

RAl
OCa LlNENO

tESTN
GEtC
TESTN
JMP gERR
JMP CEXIT
TAD SORTCN
RTl CLL
TAD SORTCN

/TEST3
/READ STEP NUMBER,
/TEST4, OTHER
/DOUBLE PERIODS
/OTHER
/NUmPER

RAL
TAD LINENO
OCA LlNENO

CERR,

1067
3067
4545
4561
5340
7410
4566
7i;if5

11-JAN.71

/UlMC NUMBE" formation
XGETlN; Z
SPvOR
tAn CHAR
TAD MjNUSA
SNA CLA
JMP TESTA
OCA INSUB
JMS
LCPM
TAD rLAC*3

li?54

?354

,^353

V^iCS

CEX1T»

GZERR*

GEtC
TESTN
ERO0R4
JMP GEXiT
TAD SORTCN
TAD LlNENO
OCA LINENO
GETC
TESTN
JMP GERR
SKP
ERR0R2
CLL
TAO
AND
SlA
CML
TAO
AND
SNL

LlNENO
P7600

/READ SECOND STEP NUMBER,
/TEST4, OTHER
/DOUBLE PERIODS
/OTHER
/NUMBER
/TEST FOR CORRECT TER^JNATOR
/CHECK SIZE
/.

/TOO LARGE A LINE NUMBER,
/CLEAR LINK BIT
/TEST FOR GROUP NUMBER,

CLA

LlNENO
P177

SZA
ERR0R2
cjA CLA
TAD P20ZC»
CMl
RAl
DCa NAGSw

/REPARE "NAGSW"
/aiX

EBRORllLLEGAL LINE MJ'-SER.

/F0CL12 37--'
331
332
333
334
335
336
337
339
339
340
301
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
38f
391
3B2
3e3
384
385

?77?
'371
^372
.VT73

ClALlP

v..'3

?7?2
56"?
774e
?3PC

LCC'J.

11-JAN" 71
JMP

23106

PACE 1»6

XGETLN

DECON'V

P774',

7740

P2'-'Ci
/54\iaE

20?t^

or ACCEPTIBLE LI \Z NyBERS ? lii?l TO 31,99
/^AGSW
/3RnuP »?e-0i«
/LIME" 4220
/ALL«0021
/LIST 3F FUNCTION ADDRESSES. (NAMES ARE IN "FNTABL")
FNTasF »•
XASS
/A9S
'ABSOLUTE VALUE
XSGN
/SGN
"SIG^' PART
XI NT
/ITR
"INTEGER PART
/••«»••••
XDiSP
/OIS
..xran
/RAN
"RANDOM -jUHSER
XAOC
/ADC
•REah analog To DIGITAL CONVERTER
9
ARTN
/ATN
feyp
/EXP
"EXPONENTIAL FUNCTIONS
fLOG
/LOG
FSiN
/SIN
"TRIG FUNCTIONS
rcos
/COS
XSORT
/SOT
"SQUARE ROOT
PTMEW*
ERR0R5 /NEW
•USER DEFINED FUNCTIONS
/••••••••
PFX.
ERRORS /FX
prz,
ERRORS /F2
/•«••••«•
XRTL6i
/ROTATE AC LEFT SIX - "RTL6"
1

.374
2316
2^12
1156
7602

ffizU
i»375
?I376

(^377
04C1?

U45

ti4(Jll

1341

n4B2

50P13

r>4?3

462P
5?40
5204
5177
7400
2725
2725
2725

PI4I?4

(MP3
PI4B6
P'4(?7

a4i0
PI411
S«412
PI413

:'2i0a

W414
0415

71?6
7306
7006
5613

PI416
VIAil

f420
0421

4554
1922
4542
4543

(^4?2
Pi4?3
PI424

'•>017

(1425

4543

R426

''365

C4 27

365
7710
5263
4555

PI430
fi431
f^432
PI433

P4?4
P435
C1436
11437
Pt44P

R441
CAA2
^443

73!?P
l'?23

3011

14U

CLL RTL
rtl
RTl
JMP. I XRTL6
/RECURSIVE OPERATE. EXECUTE, OR CALL
OOi
GETLN
/EXECUTE ONE LINEi A CROUP. OR ALL
TAO PC
/SAvr ADDRESS
PUSHA
/OF CURRENT lInE
PUSHF
/SAVE REST OF THIS LINE
TEXTP
/ADDRESS OF TEXT POINTERS
OSRP,
PUSHF
/SAVE NACSWi CHARI AND LINENO,
NASSW
TAD NAGSW
/CHECK DATA FROM GETLN,
SPA CLA
/SKIP IF GROUP OR ALL
JMP OOONE
/DO nUl LINE
FINOLN
/INiT FOR CROUP AND SET THISLN
NOP
TAD THISUN
/•TEST FOR GOOD GROUP NUMBER,
DCA XRT
/(X,.MEM)
TAO I XRT

4563
4566
4 54,1
1

DGRP1»

TSTGRP
ERP0R2
PUSHJ

/NO SUCH GROUP NUMSER
/EXECUTE 09JECT LiNE AND SET PC,
PROCESS..2

b^/ib

?445

4544
^65
1422

?I446

745(^

!?444

POPF

/RESTORE THE DATA
MAGSW

TAD
SNA

/CHECK FOR E^0 OF TEXT {X»ME>1)

/F0CLl2,:^7

356
39S
?89
390
391
392
393
394
3o5
396
397
398
399
400
401
4?2
403
4?4
4p5
406
4?7
4 08

409
410
411
4l2
413
414
4l5
4l6
4l7
4l8
4l9
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
477
438
439
440

OlALlf'

V"-iZ

ii;jANw7i

OCOM

^447

5271

JMP

."4 5?

t^iT.l

lAC
OCA PTl
TAO NAGS>i
3M4 S2A CLA
jMP ,*4
tAO I PTl

.^451
3

'65

(M57

774T
S26"
1430
4563
5271

:i46P

1.430

P461
P462
?463
C464
C465

3^67
5225
1955
4566

("466
PI467

C476

.610
4544
f365
4544
/317
1413
3C22
5676
0611

0477

^•000

PI55I0

P582

3071
7^40
4310

P1503
P1504
P5t55
P15P6
Pi5f7

3413
7040
4310
5677

"453
['454
.^4 55

i'456

CI472I

P1471

^472
P1473
(5474
t?475

("5PH

«5i3
(5514

fi5l6
P'517

n320

1?I71

1013
3013
I^IS
7141
1031
7630
4566
5710

515?1
C"5?2
1^523
(1524

(?i9?5

4311-)

P'526

1321

C5?7
053?

7?ril

("531
(^532

7.'^4P
43lt.1

f533

5471

5^534

'\^

PTl
TAD
OCA LINENO
JMP DGRP
I

doomc»

454f5

H510
P!511
P»512

TStGRP
JMP OCONT

1721
3071
7040

riMDLN
rRR0R2
PUSHJ

23104

PAGE

U7i

/ALL DONE

/SAVE POINTER TO LINENO
/CHECK FnR GROUP
/DO ALL
/TEST GROUP (X-MEM)

/NOT IN GROUP
/READ NEXT LINE NO.

tX-MEM)

/CONTINUE THE SUBROUTINE
/FlNn THE LP>;E
/NO SUCH LINE NUMBER
/EXECUTE IT

PROCESS

/RESTORE CHAR

POPF

NAGSW
DCONT»

/RESTORE TEXT POINTERS

POPF

TEXTP
PQPA
OCA PC
JMP I ,*1
PROC
/PUSHDOWN LIST CONTROLS
XPUSmA,
OCA T2
CMA
JMS PCHK
tAO T2
OCA I pqlxr
CMA
JMS PCHK
JMP I XPUSHA
PCHK.
TAD PDLXR
OCA PDUXR
tAO PDLXR
CI A CLL
TAD LASTV
S2l CLA
ERRORS
JMP I PCHK
XPUShJ;
tAO I XPUSMJ
DCA T2
CMA
JMS PCHK
TAD XPUSHJ
!?

lAC
OCA
PDLXR
CMA
JMS PCHK
JMP 1 T2

?413

PD2,

/RESTORE ADDRESS OF CURRENT LINE,

/CONTINUE PROCESSING THIS LINE..

/PUSHDOWN THE AC
/BACKUP POINTER
/AND Then
/CHECK CORE uSAGE

"PUSHA"

/OK
/PUSH DOWN LIST POINTER
/BACKUP AGAIN

/INC IN AC

/STORAGE FILLED BY PUSH-DOWN LIST
/RECURSIVE SUBROUTINE CALL

•

"PUSHj"

/SAVE SUBR, aODR,

/SAVE RETURN

/TRan'SFER CONTROL

/SAVE

FLOATING POINT NUMBER

"PuSHF"

/F0Cl12 37^™^
441
Ai2
443
444
445
446
447
448

450
451
452
453
4f4
455
456
457
458
459
Aid
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
4n0
431
492
483
484
495
486
467
488
489
490
491
492
493
494
495

-535

724S5

y S T 5

1734

"f J7

'3-311

-"5 4,1

?334
3117
43lP
1117

'•Kil

"542
?«;43

4 49

r>i?44

3.171

.'545
:^546

1411
3413
?n7i
5345
1117
4310
5734

,'^547

?5??i

(^551
:'952
P1553

(1554

?595
f^^i
?I597

5^560
PI961
.

OULI0

P562
P563
f»564

0565
PI566

0967

.'203
724?!

1117
3371
1413
3411
2071
5363
5754
274!?

PI571

^'-212

{•SfZ

;-2l7

3973
f574
C575
0577

C227
1075
1137
2725
1065

Pi6i?i0

•"610

Pi6Cll

'614
7472

PI576

0602

0633
06P4
("605
C^606
{^607
0611"

4554
4555
4566
1023
3022
4545
1066
ill6

ll-JAN-71

23106

CL4 CMA
,»2
OCA XRT
IS? PD2
TAO HFLT
JMS PCHK
TAD MFLT
DCA T2
TAD I XRT
DCA
PDLXR
ISi? T2
JMp ,s.3
TAD MFLT
JMS PCHK
JMP I PD2

/COMPUTE VARIABLE

TA-;

PAGE 1«8
ADD!?

/Fix RETURiJ
/COMPUTE PuSn, PolNTEi?

P03.

CLA
tAD
ISi
DCA
TAO
DCA
TAD
DCA
1S2
JMP
JMP

1754
2354
3011

P1570

0570

v'i;i3

CMA
P03
I
P03
XRT

/RESET POINTeS

/ RESTORE A FLOATING POINT NJME
/GET VAR, ADDR,

MFLT
T2
I

PDLXR

XRT

/MOVE

T2
,nZ

PD3

/EXIT
/INPUT CONTROL CHARACTERS
RECOVR /C.Ci » BREAK
IB*R
/B.A, t RESTART
IGNOR
/LiF. » IGNORE
IRETN
/C.R.
TERMINATE STRING
rLlST2, FLIMIT /, -STANDARD
FlNFIN /|«SHQRT
ERRORS /CR'DUMB
FLlSTi; FIMCR
/.fSTANoARO FORMAT
PROCESS /ItSETlPLUS ,,.
PCI
/C.R, Set Command,'
-306
MPi
/USED By TEstc
/PRIMAR Y CONTROL AND transfep
SOTO,
GETLN
/READ THE LINE NUMBER REQUESTED
FINDLN
/LOCATE IT AND RESET TEXTP
ERR0R2
/NOT THERE
TAh THISLN
/SEtPC
1

INLISTi

DCA PC
Pi^OCCSs ,CETC
P'^OC.
tAD CHAR

0611
n6l2
0613
^614

5541

'-^615

455«i

SO!?TC

0616
0617

3374
5210

OLIST-1
JMP PROCESS

765;^

PCI,

TAO HCR
SNA CLA
POPJ

/TEST FOR END OF LINE
/F!R?T character ready

USE PR

/EXIT "PROCESS"
/IGNORE "SPACE",",", AND "1".

;

"popp"

/rocLi2..^r

LM*1.10

496
497
498
499

C6?3

5;i0

?ft?4

5?!

.^6 25

5.72

?426

5?3
5?4

;i6?7
"^63?

5i'.6

'^432

5P7
508

0633

1266
"*,?!

375

*542
454R
455?
i374
74ia
5223
1*13
4547
773
165
4566
614

r>i6

^631

'.^434

5"i9

510
511
5l2
5l3
514
515
5l6
5l7
5l8
5l9
520
521
522
523
524
525
526
527
528
529
530
5?1
532
533
534
535
536
5t7
538
539
540
541
542
5^3
5-J4

545
546
f47
5^8
549
553

4554

fi656
!»637

?iJ26

(1641
("^42

f643
0644
P645
PI646
1164 7

71650

3651
3652
{'653

R654

4555
5267
1067
7640
4553
4545
4551
1366
1116
7640
5244
1423
7450
5271
7J101

(3656

7330

P657

i;?65
77f)0

!»660

^664

1430
4563
5273
1430

1^66';

3''67

P666
P667

5237
1023
5253

0661
n662
PI663

?672l

3'126
.'472
C1473
•^474

5541
1C65

:«475

5271
4551
5264

^676
7677
?7i"l
•?7,?2

li;jAN»7l

23106

TAD CHAR
ANn P337
PUSHA
gETC
SOPTC

/SAvE COMMAND CHARACTER
/EXECUTE LOWr'' CASE ALSO

775!^

456^7

455?

PAGE 1»?

/GO TO TERMImATOR

GLlST-1
SKP
JMP ,e4
POPA

/CO no COMMAND
COMLST-1
COMGO'COMLST
/ILLEGAL COMMAND
/ALSO Is CONTINUE

SOi^TJ

B635

364?

V*?3

ERR0R2
COMMENtS»PCl

/OUTPUT COMMAND TEXT
kRiTE*
CETLN
IS? OEBGSW
FiNDLN
JMP WTESTC
TAD LINENO

/SET LINENO
/OISABLE TRACE
/SEARCH FOR llNE NUMBER
/NOT There or group

S2a CIA

prntln
GETC
PRiNTC
tAO CHAR
TAD MCR
SZA
JMP
tAD
WTEStZ; SNA
JMP
lAC
DCA
tAD
SMA
tAO

CLA
.-S
1

ThiSLN

WX-2

/PRpjT LINE DUMBER AND
/P«IHT TEXT or

SPA'CEi

LINE,

/SKIP IF END OF LINE
/TEST FOR END OF TEXT (X«MEM>

/EXITIOO NEXT INDIRECT LINE.

/SAVE POINTER TO LlNENO OF NEXT
PTl
NA6SM
CLA
/{X.MEM)
PTl
I
/TPy NEXT LInEMO for CROUPi
TStGRP
JMP HX
/SET LiNENO tX.MEM)
tAD I PTl
WALL.
OCA LJNENO
JMP WRITE*2
/INIT GROUP PRINTOUT
ktestg; tAO THISLN
JMP WTEST2
DCA OEBGSW
POPJ
WXi
TAO NACSW
/SKIP IF ALL
SPA SNA CLA
JMP WX»2
/PRpT C.R. AGAIN
PRiNTC
JMP WALL
xtestc;
/TEST The Nature of the next alphanumeric ;
/IGNORE SPACES
SP.VOR
/TEST Th? VARIABLE TERMINATORS
SORTC

"Testc

/F0CL12 37^^
551
552
553
55^
555
556
557
558
559
550
561
562

1771

?7?4

57 'M:

"-r.'S

n'66

^7.^6

2 3':'r

^'t??.

12^-2
765;^

>?711
•:^7i2

56 3

56^
565
566
567
568
569
570
571
572
573
574
575
576
577
576
579
590
581
5d2
583
564
535
586
537
588
589
590
591
592
593
594
595
596
597
596
599

'7?3

•

57,i(;

5^716
J'tl?

/72n

2300
233?
57^0

£»721

i.'3Pp

P722
3723
5i7?4

751171

?i7?6
!?727

1012
Zd5A
7410
2321
2321
7300
5721

SEXC,

"SSgi

CRPTST,

(^752
PitSS
15754
P!755

(?756
P1757
S)760

?761
C1763
("764
(^765
PI766
!^767

SET

/OTHER
/NUmoER

/RETHRNSlTlNlFlA
XTESTC
xsortc,
/SORT CHAR ARAINST TABlE » "SORTC"
TAO I XSORTC
OCA XRT2
/IST ARC IS LlST^l
TAb I XRT2
SPA
/LIST IS ENDED BY A NEGATIVE NUMBER
JMP SEXC
/2AN') EXIT
NOT IN LIST
JMP

CT735
PI736
fl777

0751

IS? XTESTC

XT3.

7!?40

-104
7341
3071
1067
.104
1071
765?
?344
5744

SORTC

TESTN

(^733

P"740
PI741
(»742
9)743
1?744
f5745
("746
(1747
P<750

/TEST FOR "F"

JMP I XTESTC
SKP
JMP I XTESTC
ISZ XTESTC

0774

?732

6C1
6^2

6fe'5

TAD MF
SNA CLA
JMP XT3

534?
7041
1066
7640
5324
1721

(1731

PAGE 1«10

23106

TERMS-1
XTE5TC
/YES
TAD CHAR
/NO
ISZ XTESTC
J^'P

57i)B

f725

P730

u; JAN-71

741?

1721
3SH2
1412

?i762

6.-

V^l

5317
4561

f7l3
^714
^715

(>?0

6fi4

rjALl-''

CIA
TAD
SEA
JMP
TAO
CMA
TAO
OCA
SKP
IS2
IS2

CLA
JMP

•

AND
CIA
OCA
TAD
AND
tAO
SNA

CHAR
CLA

/COMPARE

,6
I

XSORTC

/COMPUTE INCREMENT

XRT2
SORTCN

/iST EXIT s YES
XSORTC
XSORTC
CLL
I
XSORTC
/AC VS LINEnO • "TSTCRP"
P76e0
T2

LINENO
P7600
T2

CLA

IS2 GRPTST

3036
764?
5364
4545
5756
4552
4547
6776

JMP I SRPTST
/INPUT FROM TEXT OR KEVbOARDI
/ir oACK.APROW, RESTART INPUT
INPUT*
/INPUT A Character
TAO INSUB
/N0N-2ER0 FOR KEYBOARD
SZa CLA
JMP .3
CETC
JMP I INPUT
readc
SORTJ
SPECIAL..1

34(('.2

INFIXsSPE-CUL

•.00(3

•

/FOCLl?

?IAL13

6''6

V^t'S

ll^JAN-71
JMP

5756

???!

1.^35

67$
6r9
610
611
612
613
614
615
616
617
618
6l9
620
621
622
623
624
625
626
627
629
629
630
631
632
633
6?4
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660

.•7'2

61;T

PROCESS

,-»??3

614

PCI

•'774

774
323
3a6

?775
?7T*
?777
irr?
l"?!
?r?2
i??3
i.??4

i??5
i??6
1??7
i.nf
i?!!
i?i2

nii3
i?ii4

i?i5
Tai6

'307

3^3
324
-317
'305

327
-^315
'.'321

322
'314

4564
4637
2013
illl

1223
i?2i
1?22
i3?3
1324
???5
\!26
1^27
1?30
1?31

3tJ32

i.''72

1>33
1

134

iri75
i;i36

1»37
iZA?.

i?42
1:^43

4 56..7

T?4 4

l.:!66

1^45

1335

J'46

74 4'.

JMS

lECALL

IS? PDLXR

JMS I IPART
TAD «2
DCi Tl
tAO FLAC*1
SPA

1045

1241
454f
l4;U

ir'41

/IF
/DO
/GOTO

»
»

FaIZ

• VA

/CONDITIONAL TRANSFER PROCESS,
IF,
TESTC
/IGNORE SPACES AND TEST

75151

??32
7750
2932
7410
5765
4547
1375
7373
4545
5230
4545
5225
1601
2251

/COMMANo OECIDINC LlsT
" ORGANIZE
/SET
/FOR
' QiJANO

/COMMENT* COMMENTE
/ASK
• DEMANDE
n Tape
/TYPE
/OUTPUT /••••••••
/ERASE s BIFFC
/WRITE » INSCRIS
/WODIFY " MQOIFIE
• ArrETE
/QUIT
/RETURN » ReTOURnE
/LIBR»»««»
/THIS COHMAND LIST IS SPEED OPTIMIZED,

464P<

tfii7

/,
/I

/CR
/ENGLISH»FRE^'CH

323
306
311
304
307
303
301
324
317
305
327
315
321
322
314

334

.3fil

IPl

CO'^LST ».

311

PACE i«|fl|

IN.PU7

6'/7

IL!«!t,

23106

ir3,

ISI Tl
SPA SNA CLA
ISl Tl
SKP
JMP I C0MG0*4

SORTJ

/N-DUMP THE (EFOP)
/F"CwECK FOR PAREN MATCH
/A

/TEST -.e,*
/N-TO

^i,''2f»3

/COUWT COMMAS

/TRANSFER
/SEARCH TEXT UNTILl

TLlST-1
ILIST-TlIST
GETC
JMP ,-4
in,
CETC
JMP IF3
IECalL ; ECaLL
PAPTEST
IPA(«T,
/LOOP CONTROL STATEMENT
SETT.,
FOR,
PUSrjJ
CETARG
SPvOR
TAD CHAR
TAD mEO
S2A

/MOVE PAST COMMA

/SUBSET OF "FOR".
/LOOPS, ETC,
/LOOK FOR "=" NExT
/IGNORE SPACES

IC.Ri

/rOCLl2.-?7

661
662
663
66'»

665
666
667
666
669
670
671
672
673
674
675
676
677
678
679
6e0
691
682
633
684
639
666
687
68S
689
690
691
6o2
693
694
695
6o6
697
696
699

:•'

lALi'"

4566

llijAN'^?!

23106

PACE 1-12

E'?PC«4

/LETT or

ERHORI

TOi^'

'SET'

Ti: PTi

poimer

52
ic'53

4542
454
|612

pysMA

.•

'^n

M13

POPA

ii-'55

3C13?!

DCi PTI

i-;i56

4 407

i?57

6433

T-.^ei

iie2
1103

4547
1375
7201
4566
1033
4542
4540
1612
4547
1375
7176
4566
4543
2032
4540
1612
4543
2032
4543

riMT
/INITIALIZE NOW.
rPuT I PTI
FXfT
SOPTJ
/TEST LAST ChAR FRqm "CVAL"
TLIST«1

n04

.1017

Ties
iiP6
1137

454?

1-^51
1

1.162

i?63
i?64
ici65
15166

1067
10751
iPi71

ip72
1(?!73

i?74
ie75
1C76
17177
li?l0
iicil

/save:

to variable

-61!?

4544

Til'?'

,iCil7

4544
2«32
4544
7470
1413

7?!0
7l?l

1111
tii2
1113
1114
lli5
1116
1117

722

11251

/:43£i

1121
1122
il?3
1124
1125
il26
1127

1733
6430
2525

7p4
735
706
7?7
738
7f9
710
711
7l2
7l3
714
7l5

V'-''3

eval-1

FLISTI-TLIST
/EXCESS R-PAR
FINCRi
TAD PTI
/SAVE VARIABLE AODRESS o
PUSHA
PUSHJ
/EVALUATE THE INCREHENTilF AMY,
EVALiI
SORTJ
/TEST TERMINATORS
TLlST-1
FLiSTZ-tLlST
eRR0F^4
/ILLEGAL TERMINATOR IN »F0R'
flimit; pushf
/SAVE THE INCREMENT,
•
FLARG
/GET The LIMiT(NO error DETECTION AFTER Ll^lT)
PUSHJ
EVAL-1
rCONti
PUSHF
/SAVE THE LIMIT »
FLARG
PUSHF
/SAVE TEXT OF OBJECT STATEMENTS
TEXTP
PUSHJ
/DO THE OBJECT StATEMENTS
PROCESS
POPF
/RESTORE REMAINING TEXT.
TEXTP
POPF
/GET LIMIT
FLARG
POPF
/GET INCREMENT
ERP0R4

30351

4407

774C!'

5541
33?!

11?1
ii72
1133
1134
il35

4542
4543
747?
5301
7503

ITCRl
POPA
OCA PTI
fint
fgct
pti
faod i finkp
FPuT I PTI
FSUB I FLARGP
rX!T
tAD FLAC«1
SMA SiA CLA
POPJ
TAn PTI
PUSHA
PUSHF
ITERI
JMP FCONT
• 275
i

.•0nc
1<?45

1t3(?l

/get initial value expression

FINKP»
MEO,

/OCT VARIABLE ADDRESS

/INCREMENT AND TEST
/LOAD THE VARIABLE
/INCREMENT IT
/CHANGE IT
/TEST IT

/END OP LOOP

/SAVE ADDRESS •
/SAVE INCREMENT AGAIN

•

/rocLia.tT^

rlALl3

V'.103

11*JAN»71

7l6
7l7
718
7l9

7524
4543

xCOh,

1-254

FINFiN ; PUSHF

33«1
/

721
722
723
724
725
726
727
726
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
746
749
750
751
752
753

/SAME FRAN

7«?4

1^
1:

/SET INCREMENT TO ONE,

JMP FCOK'T

7221

755
756
757
756
759
760
761
762
763
764
765
766
767
768
769
770

PAGE

FLTONE

2 4l'5

114 1

23106

•

JUST MOVED

0000
2000
0?00
FIvT
FADO
FHUL 1
FPyT
FXiT
DCa
OCA
JMP I

RANO>

XRAn,

/•••»••••
/••#«•»•»
/•••«••*«

/•#•#••
RANO
CRUDOY
RANO

RANO
FLAG
EFUN3I

CRUDOY RAnMUI,
/TAKE THE IMTECER PART'
XINT.
JMS I INTEGER
;

/•••••••»
/*•*•••••
/•••••••#
'/••••••»#
/•*•«••*•
/••»•••••
/••••§»••
/•••»»••»
/(FlX)

CLA
JMP

COMGO'

I"."

I
EFUN3I
/COMMAND ROUTINE ADDRESSES
SETT
FOB

GOTO
/{REFERENCED)
COMMENT
ASK
Type
/••»••»•
OUTPUT
ERASE
WRiTE
MODIFY
/RETURN TO COMMAND MODE VIA 'OUIT»
START
RETRN
/#*»••••«
LTaPE
/INPUT -OUTPUT STATEMENTS
ASK,
/REMEMBER WHICh CALL,
CLA CMA
DCA ATSw
TYPE.
TASK,
SORTJ
/SPECIAL CHAR? •*••
ALIST-1
atlist»aliSt
isl atsw
/test quote switch
JMP TYPE2
PU5HJ
/DO ASK> SETUP PTl
CETARG
TAD CHAR
/SAVE IN-LINE CHARACTER.
PUSHA
/TYPE COLON
TAO COL
PRiNTC
/(ClA)« to SuPRESS "I"
/INDICATE 'READC
ISZ INSUB
/POINT PAST CHAR
lAC

IBB

m
771
772
773
77«
775
776

^^lALl?!

4531
1413
3366
52-1?!

??5

454?
1613
453r

778
779

'I??*

52<11

1?72

2^26
4545
4547
1531

1J.13

..645

7p,0

7ei
782
783
7S4
785
786
78?
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
805
804
805
806
8P7
808
809
810
611
8l2
8i3
814
8i5
8i6
8l7
8l8
ei9
820
821
822
823
824
825

V"'3

i?n

1535
i?37
1241
15*2
1243
1244
i?45
12'46

1247
1?5^
1251
1252
?753

4551
5230
4545
4554
1067

TYPC2f

T5U0T»
.

23126

JMS I rivPUT
POPA
DCA CHAR
JMP ASK
PUSHJ
EVAL
JMS 1 rouTPiJT
JMP TYPE

/REAO data AfiO SAVE
/re^test last terminator

IS? DEBGS;^

/DISABLE TRACE
/TYPE LITERALS

GEtC
SORTJ

PACE 1r14

/comtinue processing
/DO TYPE

/PPJVT

TL1ST2-1
TLIST3-TLIST2
TINTR.

32152

5232
1077
4463
7031
1077
4551
3026
4545
5232
^272

H-JAN-71

PRiNTC
JMP TaUOT^l
GETC
GETLN
TAD LINENO
DCA FISw
JMP TASK

TCRLr2, TAD CCR
JMS
OUTOEV

/PASS PERCENT SIGN
/READ FORMAT CONTROLf "X7,03"
/SAVE FORMAT CODE

/SPLATtCR ALONE

TCRlFi
TASK4i

lAC
tad CCR

/NONiPRlNTiNG DELAY FOR C|R, •••••
/EXCLAMATION P0InT«CRiLF,

PRiNTC
oca OEBCSW
CEtC
JMP TASK

/•
/f

/«!«
ENABLE FlIP-FLOP "DMPSW"
#01 DISABLE AND RETURN ALL"?"
/
/IF dMPSW i 01 TRACE ON. IF ENABLED
/
1K0I TRACE OFF
/IF BOTH f
PRINT TRaCEi
/SEARCH ROUTINES
modify; GETLN
/READ LINE NOi
FINOLN
/LOOK IT UP NOW,
ERR0R2
/NOT THERE i BAD COMMAND UNLESS IERO,
TAD 3UFR
/SET POINTERS
OCA AXlN
/FOR INPUT
DCA XCTIN
TAD LINENO
/COPY THE SAME LINE NUMBER,
DCA
AKIN
/{XiMEM)
TAD AXIN
/SAVE START OF NEW LINE
OCA PACKST
SCONTi
JMS
INDEV
/READ THE TELETYPE INPUT SILENTLY,
OCA LIST3*1
/SAVE SEARCH CHARACTER
IS? DE6GSW
/NO BREAKS,'
SCHARi
GEtC
/TVpr*TEST-F.F,
PRINTC
/PLAYBACK THE TEXT
SORTJ
/LDO" FOR MATCH
LIST3-1
LISTG0-LIST3
PACKC
/SAVE NEW LINE,
JMP SCHAR
272
COLi
/IF DEBGSW»i0

1254
1255
i?56
1257
126?
1261
1262
1263
i?64
1265
1266
1267
1270
1271
127 2
i?73
1274

1275
l"?76

1277

4554
4555
4566
106S5

3010
3062
1067
341(71

1010
3027
4464
31?"?

2326
4545
4551
4547
.'^76

l267
4546
5271

DCL12
826
6?7
828
829
830
831
832
833
834
835
836
337
833
839
840
341
842
643
844
845
846
847
848
849
850
851
852
8?3
854
855
856
857
858
859
860
861
862
869
864
86?
866
867
868
669
670
871
872
873
874
375
876
677
878
879
880

CIAL12

vr!i3

11-JAN»71

23136

PACE

iy|^

SBAc;.

TAD BUFR
lAC
DC* AXlN
DCa XCTpj

/RESTAPT^B.A.

wr3

1^7

13.'1

7n'rn

l7.-'2

3eu-

?^C'3

3';'62

3 ^' 4

4552
4547
?71

l^nS
131^6
131^7

i3l!1

1311
1312
1313
1314
1315
1316
1317
1320
1521
1322
1323
1324
1325
1326
1327
1330
1331
1332
1333
1334
1335
133 6
1337
1340

4546
5304

SCOT.

Vl?i?lf

S0RT8#

745?
l366

7M1
3Pi7l

]712
2312
3C112

1412
75lf"

5336
lf7l
7640
5322
1012
1712
3071
3471
3371
5471
2312
7330
5712
4453

1341
1342
1343
1344
1345

60512

134 6

6141

1347
1350
1351
1352
1353
1354
1355
1356
1357
136'^

1361
1362
1363
1364

:.363

1357
3347

iirci

r002
6001
3045
3?'46

7326
3?!44

5536
•'W'?.

1337
j361
1271
1266
274i?
l3:ii?

/reat from keyboard
/test

SfOuNO, readc
sortj

.1267

/SET POINTERS

LIST6.1
SRNLST-LIST6
/PACK CHAR',
PACKC
/MORE
JMP srOUNO
/SORT A\0 BRANCH ROUTINE,
I?

SNA
TAb
CIA
OCA
TAO
IS2
DCA
tAO
SPA
JMP
TAD
SiA
JMP
tAO
tAD
OCA
TAD
DCA
JMP
iSi
CLA
JMP

•

"SORTJ"

CHAR

/ASSUME CHAR

/save SORT ITEM
/riRST APG IS LIST LESS ONE
/2AND IS INTPA-LIST LENGTH

SORTS
SORTB
XRT2
XRT2
I

AC«0

SEX
T2
CLA
,m5

XRT2
SORTB
1

/••LISTS ENDED BV NEGATIVE NUMBERS**
/READ EXIT
/riNO ADDRESS
/MATCH roUNO.

T2
I

/DEBUS

T2
I

ADDRESS

SORTB
/MATCH NOT FOUnD'.
CLL
SORTB
/RETURN TO CALLING SEQUENCE,
I
/analOc UE to DIGITAL CONVERSION fOR POP-12
XADC.
JMS I INTEGER
/••••••••
AND
037
/••••••••
tAD
OSAMP
/•••*••••
,*3
DC*
./••»«••••
lor
/#•••••##
6141
/LINC
/•*»•••••
^1100
/SAM ?
/•••»••»#
/POP
0002
/••»••••»
ION
DCA
rLAC*l /••••••••
DCA
rLAC*2 /••••••••
CLA CLL CML RTL /•••••*••
/•••••••»
DCA
FLAC
/••••»•••
JMP I
EFUN3I
/•••••«••
/SAM
?iZ>d
osamp*
/••»«•»#«
037,
37
SRNLSTi
/'MODIFY' CO^'TROL CHARACTER TABLE
SCHAR
/F.F, s CONTINUE
SCONT
/BELL » CHANGE SEARCH CHARACTER
RECOVR /C,C, ? BREAK
SBAR
/B.A. 9 RESTART
SEX.

OBIBMi

/rOCLl2

sal
ees
953
884
895
8?6
S37
888
889
890
891
892
693
894
695
896
897
898
399

1365

1346
1T67

1375
1376
1377
l"4R0

'401
'402
1403
1404
1405
14?6
140.7

n^
vse
9»9
.

'ill

923
924
925
926
927
92$
9?9
930
931
932
9?3
934
935

lALlC"

:267
l366

1410
1411
i4i2
1413
?414
1415
1416
1417
?42f!

1421
1422
^423
H;^4
14?5
1426
T4?7
1438

1431
1432
14 33

1434
1435
1436
1437
1441?)

1441
1442
1443
1444
1445

V'f3

LISTGO.

31?

23106

SC3\'T*l /L.f.

FINISH THE LINE AS BEFORE,

PAGE l«!lr

•

245
:242

241
•243
,:244

llijAN^-Tl

o-eTM
/C.R. ? END THE LINE Here AS IS.
/CHAR « SEARCH CHARACTER
SGOT
ALIST". / ASK/TYPE LIST OF C'NTRtLS.
245
/••
242

^261
5

1375

901
902
903
904
905
906

911
9l2
9l3
9l4
9i5
9l6
9l7
9l9
9l9
920
921

i37tJ

1372
1371
1572
1373
1374

9210

241
243
244

24e

/SPACE

/S///

GUIST^;

.-2451

1376

TLIST«'.

-J254

254
/,
273
/I
215
/C.S.
/THIS LIST IS ENDED BY •TESTC.
/FIND OS ENTER A VARIABLE IN THE LISTi
getarg; TESTC
/FIRST LETTER OF ARC
/«»••««•» LETS F TmRU
P72(ag»
7270
/••««'«•»»
ERR0R4
MOP
/••••••**
getvar; OCA XCTIN
/PACK INTO ADD,
PACKC
GEtC
/SECOND LETTER
SORTC
/TERMlNAtOR?
TERMS»1
JMP GSERCH
/YES
/NO
tAO CHAR
ANO P77
/SAVE 2AND LETTER OF NAME
TAO OAOD
OCA OAOO
CEtC
/IGNORE THE REST
SORTC
TERMS-l
JMP GSERCH
JMP ,4
GSERCH. TSTLPR
/LOOK FOR SUBSCRIPT VU SQRTCN
JMP GSl
/NOT SUBSCRIPTED BY L-PAR.
TAO QAOO
/SAVE NAME
OCA EFOP
/FOR RECURSIVE AND ERROR CHECK
JMS 1 CECALL
/TO EVAL
PQPA
OCA QADO
/RESTORE NAME
JMS I PTEST
/TEST PAREN mATCHi ETC,
JMS
IMTEGER
/CONVERT TO l2»BIT NUHSER,
OCA SUBS
GSl.
/SAVE SUBSCRIPT
/••»««••• LETS F THRU
TAn
QADO
/•••••••»
P7700
ANO
TAP
p72?0
SNA CLA
/••••••••
JMP
FFF
TAD STARTV
/SEARCH rOR vARIaBlE«CHANOE FOR X»MEM)
OCA PTl
CS3,
TAn PTl

o273
-215

4564
7200
4566
75100

3062
4546
4545
45551

1771
5224
1066
H122
1061
S061
4545
4550
l77l
5224
5217
4562
5235
lf561

3056
4663
l4l3
3061
4662
453
3171

rni
"131
i2?2
765fl

5322
1?6i?i

303PI
333E!

/rocLiz

!:IAL13

11^JAN"71

v:o3

23106

PAGE

'Jft
936
9.-J 7

938
979
94e
941
942
943
944
945
946
947
94S
949
950
951
952
953
934
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
9%0
991
9s2
983
994
935
936
937
938
969
990

•46

7.M1

14 47
i4 = f^

.1331
775.'

1451
1452
ii53
1454

52«4

1*4 55

1456
1457
146?
1461
1462
1463
1464
1465
1466
1467
1473
1471
1472
1473
1474
1475
1476
1477
ISiSP

1501
1502
1503
1504
1905

l43l'

7?4i
3^61
765C
531?
l?3p
l37i?

5244
2J151

16?1
1331
l?i?5

7141
1013
762C1

4566
1331
1070
3031
1361
3433
2f30
ii7i
3433
2031?

4407
i-537

6430

i5(?'6

(100?)

1507
1510
1511
1512
1513
1514
1515
1516
1517
1550
i5?l
1522
1523
1524
1525
1526
1527
T530

5541
1330
3011

15.T1
15.^2
i«i33

1534

14H
7041
1171
7640
5257
203tJ

2330
5541
7?3e
1061
3?02
1345-

3173
Jl'l
3167
5541
'242
.215
7520

GS4,

CIA
TAD
SPA
JMP
TAO
CIA
TAD
SNA
JMP
TAO
TAO
JMP

•

LASTV

/TEST FOR ENr OF LIST

SNA CLA
GS2
PTl
I

/EMO SEARCM
/GET TABLE E^TrY

OADD
CLA
GFNDl
PTl
GINC
GS3

PARTEST
PTCSTi
GCCALl. ECALL
TAD LASTV
GS2.
TAO P13
CIA CLL
TAD PDLXR
SNL CLA
ERRORS
TAD LASTV
TAD GINC
OCA LASTV
TAD OAOD
OCA 1 PTl
ISI PTl
TAD SUBS
OCA I PTl
ISi PTi
FINT
FGCT I CFRSX
rPuT I PTl
rXiT
POPJ
TAO PTl
CPNOli
DCA XRT
TAD I XRT
CIA
tAD SUBS
SiA CLA
JMP CS4
ISZ PTl
iSi PTl
POPJ
PTl
rFF,
OCA
tAO
OAOD
LWETMP
DCA
TAD
hORO
DCa
LCSUB2
TAO
SUBS
OCA
sues2
POPJ
TLIST2. 242
215
«260
m26C.

/FOu^'D XX

/TRY NEXT ONE

/ADO THE VARIABLE
/TEST STORAGE LIMITS

/UPDATE THE LIST.
/SAVE

KfAHE

/SAVE SUBSCRIPT
/SET PTl

/EXIT
/rOuMO SAME
/TEST SUBSCRIPTS

/WRONG SUBSCRIPT
/SET POINTER To OATA
/•»••#••• SAVES SUBSCRIPT ON
/••••«•••

/••••••••
/•»••••••

/••#••#•»

/•••vA-eii*

DlAtl0
991
992
993
994
995
996
997
998
999
10!>0
.

1001

;)3

XSPnoR;

1535
1 ^.^6

li;jAN-71

23106

/IGmoPE leading spaces

PAGE

1 elB

"SP\OR"

TAD CHAR
TAD M242
S2a CLA
JMP I XSPNOP

1537
154?
1S41
1542
{B43

1066
1114
7640
5735
4545
5336

1544
1545

75ri6
•'012

M272.
012.

1546
1547

300
1066
1115

xtestn;

GEfC
JMP XSPSOR*!

recodinc for space
-272
12

10'?2

10C3
1004
leips
1P!?6
•

1007
1008
1009
1010
1011
1012
1013
1014
1015
10l6
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1029
1029
1030
1031
1032
1033
1034
1035
1036
1337
1038
1039
1040
1041
1012
1043
1044
1345

1*550

1551
1552
1553
1534
?555
1556
1557
1560
1561
1562

/RETURNS

OTHERl NUMBER

•

"TESTn"

TAD CHAR
tAD MPER
SEA CLA

764-^

2346
1066
3344
7100
1345
3054
7430
2346
5746

ISZ XTESTN

012

/•»•••••• RECOOINC TOR SPACE
/•••«••*«
/••*••••»
/••••••»•

SORTCN

/«••••••

XTESTN
XTESTN

/»•••••»«
/••••••••
/•••»••#»

TAD
TAD
CLL
TAD
OCA
SZl

CHAR
M272

ISZ
JMP

A "DO" SUBROUTINE
TAD CPRSX
/(Pc) t>
OCA PC
XPOPJi
tAO I PDLXR
/RECURSIVE EXiT n "POPJ"
OCA T2
JMP 1 T2
ATLISTb,
/ASK-TVpE CONTROL CHARACTER TABLE

/EXIT PROM

1563
1564
1565
1566
1567

1570
1571
1572
1573
1574

1137
3022
.1413

3071
5471
1570
1236
1227
1246
1243
3052

1'?75

l25Jt

1576
1577

1250
^610

16510

'614

1601
16^2
16^3
1634

000
1054
4542
I

165" 7

4542
1056
4542

161^1

j2"'l

16:^5

1606

RE.TRN»

TINTR
tOUOT
tCRLF
tCRLF2
TDUMP
TASK4
TASK4
PROCESS

n • FORMAT DELIMITER

/" » LITERAL DELIMITER
/I • CARRIAGE RETURN AND LINE FEED
/# e CARRIAGE RETURN ONLY
/$/. dump The Symbol Table contents
/SP» TERMINATOR FOR NA^'ES
/, « TERMINATOR FOR EXPRESSIONS
- TERMINATOR FOR cOmmaNQS
PCI
/C,R, • TERMINATOR FOR STRINGS
/$ • For ftOUMP' TERMINATES THE COMMAND,
/EVALUATE AN EXPRESSION WHicw
/TERMINATES WITH AN R«PaR|I OR C.R. AND
/LEAVE THE RESULT TJ FLaC AnO IN FLARC,
e
ECAlLi
/RECURSIVE CALL TO "EVAL"
TAD SORTCN
/SAVE 'SORTC^.'' 'LASTOP' i AND »EFOP»

PUSHA
TAD LASTOP
PUSHA
TAD EFOP
PUSHA
TAD ECALL

/SAVE FUNCTION CoDE.

/RETURN TO CALLING
^_ii_g_igiji_^iggii^_g_gg^^

/FOCLlZ
1C46
1CA7
1?4S
1F49
1^53
1?51
10?2
1P53
1054
1055
1056
1057
1058
1059
1C60
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
107<
1075
1076
1377
1078
1079
1080
1081
1082
10n3
1084
1385
1086
1087
1088
1089
1090
1091
1092

23106

PUS JA
GETC
DCa LASTOP
TESTC
JMP rrzufi
JMP ENU"
JMP EFUN

/AOOSESS AFTrR^iPxT PQPJ
/HOv? Past extra character
/evauation controller (Checkpoint ?>
/test character AND IGNORE SPACES
/TERMINATOR
/NUh°ER
/FUNCTION
/LETTER OF VARIABLE
/FIND OR CREATE VARIABLE ALSO SET PTl,
/PTi«>ARG

\(>2i''

454i<

PUSHJ

16?1
?622
16?3
1624
16?5
1626
1627
1630

1435
4564
5244
.212

GETVAR
opnext; TESTC
jMP ETERMN
echolSt .P212
0377
ERB0R4
ETERMi; TAD CFRSX
DCA PTl
TAD M2
TAD SORTCN
SNA
JMP ETERM

f 1*

,;377

4566
1137
3330

16:^1

nil

1632
1633
1634
1635
1636
1637

1054
7450
5247
7^01
7650
5323
1?54
1121
7710
5364
4562

T6 40

1641
1642
1643
1644
1645
1646
1647
1650
1651
1692
1653
1654
1655
1656
1657
1660
1661
1662
1663
1664
1665
1666
1667

M10
4566
1?54
3024
1024
1121
>700
32124

1024
7041
1055
77ia
531PI

1?55
7112
^012
t33l
3274
1055

lf193

167!^

764Pt

1094
1095
1096
1097
1098
1099
11P0

1671
1672
1673
1674
1675
1676
T677

4544

•

11- JAN. 71

1A15
i*l6
1617

V/t'3

4542
4545
3755
4564
5227
5332
5343

•412
i*t3

DULin

n'^44

4407
;000
6525
•.i»3ti1

1125

EVAl.

PAGE

IjH

/N-ERROR IN FORMAT
/F
/L « MISSING OPERATOR
/SET PTl.
/TO POINT TO ZERO
/TEST FOP UNaRY OPERATIONS

lAC
SNA
JMP
tAO
TAD
SPA

CUA
ARCNXT

SORTCN
Mil

CLA
JMP CLPAR
etermn; TSTLPR
SKP

ETEHMi

ERR0R4
TAD SORTCN
OCA THISOP
TAO THISOP

TAD Mil
SMA CLA
DCA THISOP
irifiHz; TAD THISOP
CIA
TAD LASTOP
SPA CLA
JMP EPAR
TAD LASTOP
CLL RTR
RTR
TAO 0PTA9L
OCA FLOP
TAD LASTOP
S2a CLA
POPF
FLAC
FINT
FUOP.
C0
FPUT I FLAflCP
FXlT
TAO FLARGP

/CREATE DUMMY FOR UNARY MINUS
/IGNORE UNARY PLUS
/TEST FOR NULL PARENS,

/MIGHT BE AN L-PaR,

/OPERATOR MISSING BEFORE PAREN
/SET FROM "TESTC-wSORTC

/END?
/"Tmisop" eoulv, to eno or exp,
/COMPARE PRIORITIES

/CONTINUE
/PlNO OPERATION

/TEST FOR END OF DATA INTO FLOATING AC
/GET LAST DATA

/(FlOPR 1 PT1>*««/
/SAVE RESULT

maam

OULIZ

li;jAN»71

23106

3530
1^94
.K55

DCA P7l
TA"^ THISOP
TAO LASTOP
SNA CLA
POPJ

/a07

/F0CL12.17
'

Ilf2

Hn5
ll;'6

7r'3

I't^i
17.-2
'7.-'3
',

.•>

H"7

i7.'5
i:7r6

iir^e

17? 7

11-9
1110

17113

Ull
1112
1113
1114
ill5
1116
1117

Hl8
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
114 4

1145
1146
1147
114S
1149
1150
1151

U52
1153
1154
1155

1711
1712
1713
1714
1715
1716
1717
172{"

1721
1722
1723
1724
1725
1726
1727
?730
1731
1732
1733
1734
1735
1736
1737

765.'

5541
l4i3

5255
4562
741?
5366

EPAP.

4542
1030
3320
4543

OCA

TAD THISOP
DCA LASTOP

i'43Pl

4543
i^044

5222
3056
4545
4564
5355
5771

1751;?

721 fiC

1751
1752
1753
1754
1755
1756
1757

1056

,-'P!44

arcnxt; GETC
TESTC
JMP ELPAR
JMP ENUH
JMP EFUK
JMP OPNEXT-2
optabl; rCET I PTi
ENUM.
PUSHF
riAC
TAO FLARCP
DCA PTl
DCA INSUB
JMS
riNPUT
POPF
FLAC
JMP OPNEXT
EFUM.
DCA EFOP
GEfC
TESTC
JMP
EFUN2
JMP I
PPNUM
I

NOP
TAD
EFOP
CLL RAL
tAO CHAR
JMP EFUN

7l;i4
l2'66

5343
4562
4566
42ci
1413
4547
2166

ErUV2i

62(^5

ELPARr

1765

4562
4566

1'766

4 2.ai

EPAR2,

»Z^

/EXIT "EVAL"
/GET PRIOR OP
/CO.MPARE THIS OP
/TEST FOR SU9-EXPRESSI0N

/GO EVALUATE EXPRESSION
/CONTINUE READING THE EXPRESSION
/SAVE "LASTOP",

/SAVE LAST ARGUMENT

lf^24

3355
4545
4564
5364
5332
5343
5220

,*2

PUSHF
00

1741
1742
1743
1744
1745
1746
1747

.1764

tSTLPR
SKP
JMP EPAR2
TAO LASTOP
PUSHA
tAO PTl

00Pt

174!^

1761
1762
1763

DCA LASTOP
JMP ETERM2

if;55

1125
3030
7036
4531
4544

17651

f^OPA

PACE

/MORE TO COME
/REaO 1ST CHaR OF AN ARG,
/DO SPECIAL CHECK
/COULO be LEFT PaREN
/N
/F
/L

/BASE FOR OPERATION COMPUTATION
/TO PROCESS A NUMBERfSAVE AC
/SET POINTER AS FOR

VARIABLCi

/POINT TO 'CETC AND USE CHAR
/REAP TEXT NUMBER .> {PTD
/RESTORE The AC
/CONTINUE
/SET CODE
/REaO FUNCtlON NAME.(l|2,0R 3 LETTERS)
/•••••••• SEPARATES FILE BECAUSE F DiGjT

/MISH»MASH HASH CODE

TSTLPR
ERR0R4
/MUST BE FOLLOWED BY PARENS TO SET ARGUMENT
JMS ECALL
/CALL "EVAL" TO COMPUTE ARGUMENT
POPA
/BRANCH ON FUNCTION CODEjRETURN VIA EFUMSlV
SORTJ
FNTABL'
FNTABF- rNTABL
TSTLPR
/LEFT PAREN cR FELL THROUGH FUNCTION TABlE
ERR0R4
/DOURLE OPERATORS OR ILLEGAL FUNCTION NAmE'.
JMS ECAll
/EVALUATE NESTED EXPRESSION

/F0CL12.
1156
1157
1159
1159
11*2
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1167
1188
1189
1190
1191
1192
1193
1194
1195
1194
1197
1198
1199
1200
12D1
1232
12*13
12C!4

1235
1206
12?7
i2?e
12^9
1210

"%
1777
1771

i7'2
1773
1774
1775
1776
1777
7??.?
93;'i

CIALI?
2.n3
?536
6311
i772

V?03

PFNU'li

-257

240
253
255
257

^;252

.252

336

336
250
333
274
251
335
276
254
273
215
275

253

:'255

.'250

??22

.333
.274

9?!*'«3

1251

?a?4

;'335

P!f?.5

.276
.254
.273
^215

??I5"6

92P)7
??1PI
P.111

?012
?3i3
?0i4
?3i5
2Pli6

.'275

4543
2435
4544
r044
l233

?^i7
?020

7711?

?021
?f22
?fi23

4407
7300
6232

?^?4

('0CI0

?5!?5

1125
3030
4251
5631
1622

?026
?027
?P?3(!

?P?31

4451

?032
9P33

;'0O0

?PI34

.n«i^

?S35

.'0OPI

??I36
9f<37
P^APt
9P141
9?)42
??I43

^NLl^

PAGE

l^k

/DUMP

Sm»A ARG,

/TERMI NaTO" table for tEVAL'
/SPACE 3

TERMS"'.'

..24?
.

231216

ISi POLXR
JMP I EFU.-JSI

•

llijAN»7l

AND 'CETVARi

/"
2
//
3
/•
4
/UP ARR 5
/(
/C
/<

L"PARS

10
11 RiPARS
/3
12
/>
13
/•
14
15
/I
/CiR.
16
/• TO E%D CETARC FROM iSET»
/>

/TWO MINOR FUNCTIONS
XSGNi
PUSHF
FLTONE

/TAKE SIGN«1 OF FLARG

POPF

FLAC

/TAKE ABSOLUTE VALUE OF FLAC
/SKIP TO CONTINUE
/NEGATE tHE FLOATING AC
/CONTINUATION OF FUNCTION CALLS,
ePUN3i
FlNl
FNOF
/NORMALIZE FUNCTION RETURN
/SAVE FUNCTION VALUE
FPU1 FLAR5
XABS.

TAD FLARG^l
SPA CLA
JMS I MINSKI

FXjl
TAO FLARGP
DCA PTl
JMS PARTEST
JMP I 1*1

/SET POINTER

/FUNCTION REtURN IS OK

OPNEXT
/OATA TEMPORARY STORaCC

P|.ARG»

,iil(1tfl

1K)03

PSi

."'"B?

lprtst;

1C54
1121

?!ri44

5637
lP54

??4 5
?04 6

112;'
774fi

TAD
TAD
SMA
JMP
TAD
TAO
SMA

?.147
J>P5(?I

?237
5637

JMP

yp-si

;'J5i?{i

77i'Jl

/SKIP ir LEFT PArEN,

•

'TSTLPR'

SORTCH
Mil
CLA
LPRTST
I

SORTCN
m5
SiA CLA

iSi LPRTST

PARTESf .c

LPRTST
/TEST THE PAREN HATCHINGS

HBttSS

/rOCLl2.37/^

jULl^

1211

?.'52

?";53

1212
1213
1214
1215
1216
1217
1218
1219
1223
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265

?.-'54

.1*13

PO"*

/RESTORE LAST OPERATION

T.'Se
..236

7.''41

Si'f.r'

764J!

?,'61

?:'63

4566
4545
5651

?;.:i64

v???

9r!65
?ii66
7ef,7
?ri7?!

?371
?:572
52173
'

23106

?-'55
7")'^
?,i57

.?'62

?074
?.'?75

?{i76

l4l3
1754

6'302

4555
5664
2026
4545
1^66
1116
7640
5271
1317

?it50

704f!
1?123

p\n

3!J57

?i32
?t03

?i05
?106

1133
7041
1023
765«
5177

2{pi7

7^dP\

9110
jiii
3112
2ii3
piiA
9115
?ii6
2117
?120
?1?1
?i22
?i23
2124
2125
2126
2127

i423
3425
1133
3071
1471
7450
5331
3032
1023
7141
J032
7630

?B77

?iPl4

2i3Pi

2131
2132
2133
2134
9135
2136

llijAN-Tl

15557

1332
3471
1032
5313
734?
.l'<23

3k?ll

yZ57
7«4«
1323

PAGET

1«

lASTcP

''3 P3
Z + S TO COMPARE CoDCS
POPA
/GET LAST PAfiE\ CODE,
ClA
/C^ECK FOR PaREN maTCw,
ta:^ sortcv
/(Sttll SET fhcm The last "EVAL")
/SKIP IT MATCM
SEi CLA
ERB0R4
/pAr^N ERROR
GETC
/move PAST RbPaR
JMS I PaRTEST
/THE Delete a line routine
/'JNcmaIN A LINE AND RECOVER THE SPaCEi
XDElETE.C
/PROTECT POINTER CHANGES FROM INTERRUPTIONS
10?
flvDLN
/SETS "ThISLW" AnD "LASTlN".
JMP I XDELETE
/ALREADY GONE
ISi OEBGSW
/DISABLE TRACE
/MEASURE LENGTh
GETC
TAD CHAR
TAQ "^CR
Si4 CLA
JMP t"*
/SAyE LAST ADORCSS
TAO AXOUT
CMa
TA5 THISLN
DCA CNTR
/LENGTH <
TAC CFRS
/IT IS ILLEGAL TO DELETE THE FIRST LINE
CIA
tAO THISLN
SNA CLA
JMP START
/jUST IGNORE SUCH COMMANDS
/CHANGE DATA FIElO TO TEXT, (X.MEM)
COF T
TAO 1 TmiSLN
/DISCONNECT
OCA
LASTLN
TAD CFRS
/START LIST AT ToP
/EXAMINATION ADDRESS
OOK,
OCA T2
TAD I T2
/GET THE NEXT ADDR.
SNA
/TEST FOR END
/YES-WRAP UP ALL,
JMP DONE
/SAVE NExT ADORESS,'
OCA Tl
/COMPARE LINE POSITIONS
TAD ThISLN
CIA CLL
TAC Tl
/SKIP IF THISLN > X
S2l CLA
/CHANCE <X> TO ACCOUNT FOR
TAO CNTR
TAO Tl
/GARBAGE COLLECTION,
DCi I T2
TAD Tl
/GET NEXT
JMP OOK
.

/GARBAGE CSLLECTION
CM4
DONE.
TAO THISLN
DCA XRT
TAD CNTR
,

CMA
TAO THISLN

/BACKUP

FOR XR

/SETUP END OF HOSE

/F0CL12.J1,

4*tl2

3.?i2

Pi il

116:"

9142
?1<3

ZH?

?145
?146
?147
?15?
9151
?152
?i53
?i54
?i55

i?12
3C32

1266
126?
1266
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
12SI1

?1'56

1282
1283
1284
1285
1286
1287
1288
12S9
1290
1291
1292
1293
1294
1295
1296
1297
1299
1299
1330

?l57
?l6a
?161
9162
?i63
9164
9165
9166

1-?>1G

i?57
3-?!^

5412
3411
?032
5352
5265
.•0,?0

9201
9202
9203

13M

9?{14

.'330

13?5
13?6
1337
13?8
13p9
1310
1311
13l2
1313
13l4
13l5
1316
13l7
13l8
1319
1320

9905

^332

13C11

13P2
1303

9l7«i|

9171
9172
9173
9174
9175
9176
9177
923(?i

11-JAN-.71

DCa 'xRT2
TAD CNTS
TAO PUFR
DCA BUFfi
TA5 AXl\
CMA
TAO XRT2
DCi Tl
tAD AXIS'
TAD CNTR
DCA AX IN
TAO I XRT2
DCA I XRT
ISZ Tl
JMP ."S
JMP XDEUETE*!

\di^

4464
3066
4553
1623
5757
4551
5757
2167
2533
2650
2636
2565
2630
2517
2572
2624
2625
2654
2575
2732
2631

9167

V.'i.'3

CHIN.

23r26

PASE 1

/CORRECT END OF BUFFER PCINTER,
/COMPUTE COUN'T

/SIPHON LOWER PART.

/RESET 'LASTlN'.'THISLNS AND DATA FIELD',
/reao in a Character subr, • "ReaDc"

JMS I INDEV
OCA CHAR
SORTC
/LINEFEED OR "UBOUT?
ECHOLSTi il
JMP I CHIN
/VES
PRiNTC
/ECHO THE INPUT
JMP I CHIN
FNTA8l.«,

2533
/ABS
2650
/SON
2636
/ITR
2545
/DIS
2430
/RAN
2517
/AOC
2572
/ATN
2624
/EXP
2625
/LOG
2654
/SIN
/LIST OF CODED FUNCTION NAMES
2575
/COS
2702
/SOT
2631
/NEW
0350
/FX
9332
/FZ
/ERASE S INCUE LINES.. CRoUPS, OR VARIABLES
ERASEi
TESTC
/TEST THE SECOND WORD# IF ANY,
JMP ERVX
/ERASE VARIABLES
JMP ERL
/LINES OB CROUPS
/ERROR
JMP ,*4
tAD CHAR
/ALL TEXT
tAO MlNUSA
S2i
ERR0R3
/BAD ARC FOR ERASE,'
ERT,
TAO ENDT
/ERASE ALL TEXT ••
DCA BUFR
OCA I CFRS
/(X»"EM>
ERV,
TAO STARTV
/ERASE VARIABLES •»
OCA LASTV
JMP START
/POINTERS MAY BE DIFFERENT .MOW,

OlALl^

Vt'23

??24
???5
?j?6
?-27

4554

ERL.

?93c1

2'.?23

?231
?232
?233
P234
9235
7336
2237

1^65

rocii2.
1321
1322
1323
13?4
13?5
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1339
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1366
1369
1370
1371
1372
1373
1374
1375

92"'''

2241
9942
9943

??44
9245
2246
2247
225?)

2251
9952
9253
9254
9255
9956
9257
9260
9261
9262
9963
9964
9965
9266

i-16?
Zll-7.

J565

773?!

1423
4563
5221
1423
3367
5227
1060
3031
5541

(1000

1133
3025
1133
3323
1023
3011
067
7141
1411
7450
2244
7630
5267
1023
3S25
1423
3

7441^

5253

9267

1023

927f1

70f51

9271
9272
2273
2274
9275
2276
2277
9300
93^1

3fl7

lAC
OCA AXOUT
nCA XCT
JMP I XFINO

UTRA.

4 33i3

1(7,06

1357
iei66

PACE

l«^r

5644

771'^

23106

/ERASE LINES.
CETLN
/PROTECT REST OF TEXT.
TA'S BUFR
OCA AXI^
/EXTRACT One LINE
Et'C.
DELETE
isi th:sln
TAO NAGSW
SMA CLA
/(XeMEM)
TMISLN
TAO
/SKp IF G(AC) « GCLINENO)
TStCRP
JMP ERV
/{X»MEM)
TAO 1 THISLN
OCA LiNiEfJO
JHP ERG
/I^^IT VARIABLES MAY BE INDIRECT COMMAND
TAD STARTV
ERVX.
OCA LASTV
POPJ
/ROUTINE CALLED VIA "FInDLN'M
/SEarCw FOR A GIVEN LINE IiO. *l "LlNtNO" 3
/IST RETURN! IF NOT FOU^n
/2AN0 ir Found,
/"ThiSlN" 5 FOUND LINE oR NEXT LARGER,
/"LASTl vj" • LESSER ANO/O" LAST,
/"TEXTp " IS SET
B
XFlNO»
L
/INlTIALIiE POINTERS TO FIRST LINE
TAD CFRS
DC* LASTLN
TAD CFRS
/SAVE THIS ONE
OCA THISLN
FINON»
TAO THISLN
OCA XRT
TAD LINENO
/CLEAR LINK AND NEGATE LINENO,
CLL CIA lAC
/LlNENOna WIlU ALSO BE FGUND{X« MEM)
TAO I XRT
SNA
/••••••••
XFINO
IS2
S2l CLA
/PAST ITV
JMP PEN03
/MOVE POINTERS
tAb THISLN
OCA LASTLN
/END OF TEXT! {X*MEM)
tAD I THISLN
SiA
/NOT YET
JMP FINDM
/••••••*«
/•••••••*
/IST RETURN P NOT FOUND
TAD THISLN
FEND3.

3:?i2'i

5003

li;jAN-7l

UTE,

/UNPACK CHARACTER,

JMS
SPA
TAD
TAD
TAO

/SET "TEXTP".

CETl
CLA
C100
M137
CHAR

/NORM S EXTEND
/300»337 « 340»376
/240-276 & 200»236

.•

"GETC"

DIAL 10

/rocLi2.:?7^

7453
5316

1376
1377
1373
1379

7-^^Z
?j:'4

13«.0

?3f"6

Ji»26

13^1
1362
13p3
133<
1335
1386
1337
1388
1399
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400

?l(:i7

ll-'Ci

?3l«
?311

7650
4551
5674
4330
7040
5276
1326

14?!l

1402
1403
1404
1405
I4e6
1407
14fl6

1409
1410
1411
1412
14l3
14l4
14l5
14l6
14l7
14l8
14i9
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430

??^5

?:^12
?'^13

2314
2315
2316
2317
7323
2321
?3?2
2323
2324
2325
2326
2327
2330
2331
2332
2333
2334
2:^35

2336
2337
2340
2341
2342
2:^43

2344
2345
2346
2347
2350
2351
2352
2353
2354
2355
2356
2357
2360
2361
2362
2363
2364
2.-<65

2366
2367
2370

11-JAN»71

V'tCS

T4[i

UTO,

EXTR.

UTX,

764?<

5326
1133
7650
70[»1
311^0

5275
5305

132 XCT

i'122

3066
1066
1103
7650
5313
1066
1356
5730
1417
3021
7040
3020
1021
7112
7012

CENOi

GETS.

7(512

5334
7740
7641
i??00
7'?f!Pi.

1425
346('

"106?

3425
3361
7440
3410

M40,
M137.
XENOLN;

JMP
tAO
AND
DCA
TAD
TAD
SNA
JMP
TAO
tAD
JMP
TAb
DCA
CMA
DCA
tAD
RTR
RTR
RTR
JMP

/PRINT OMLY IV BOTH ARE HERO,

/TEST POP TRACE-ENABLED
/FLIP THE TRACE FLOP

/GET NEXT CHARACTER INSTEAD.
/TRACE DISAeiEO ? RETURN «?'•

/UNPACK 6»BITS
/STARTS90

CETl.

2020
5345
1021

P337

OCA CHAR
TAO DEBCSw
TAD D»PSk
SNA CLA
PR I NT
JMP I UTRA
JMg GETl
CMA
JMp UTE
TAO DEBGSW
SZA CLA
JMP ,*6
TAD DMPSW
SNA CLA
I AC
DCa DMPSW
JMP UTRA*l

tAb P277
jMP UTO

llli^
C'fl00

PAGE

SNA
JMP uTX

i*?75

3366

23106

GET3
GTEm
P77
CHAR
CHAR
M77
CLA
EXTR
CHAR
M40
CETl
AXOUT
GTEM

/SAVE

/EXTENDED

I
I

/(XiMEM)

XCT

CTEM
CLL

CEND

S.40

-137

/TERMINATE TME BurPERED LiNE
/{X.MEM)
/SAVE OLD POINTER

cor
TAO I LASTLN
DCA I BUFR
TAO BUFR
DCA I LASTLN
TAO QADO
Sil
DCA I AXIN

"ENOLN"

/POl\T TO NEW LAST LINE

/CHECK FOR EXTRA INFO

-lALlt'

1432
1133
1434
1435
1436
1437
1416
1479
1440
1441
1442
1443
1444
1445
1446
144 7
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
14(50

i4ei
14R2
1433
1454
14?5

•

5372
?T73
?371
?375
?376
?377
?4,'';'

'i::!

?4?3
?<?4
?4C5
?4?6
?4?7
J41.1

?411
?412
?413
?4l4
?415
?416
?4l7
?420
?421
2422
9423
2424
2425
2426
2427
243C
2431
2432
2453
2434
2435
2436
2437
24451

2441

TAD AXINJ

/COMPUTE NEW

1?6:^
3^J31
'576e

TAD STARTV
OCA LASTV
JMP I XE^!Dl^^

.614
62k32

757
757
625^
-'Zfli

2302
.030
.'?>Z2

03P
*i='0P

7766
-,033

6^31
5215
6336
'106

7450
5215
1123
5614
''000

l367
4557
.'122

4242
llti2

4551
1^67
4242
1356
3^66
4551
5625
^^032

2442
2443
2444
2445
2446
2447
2450
2451
2452
7453
2454

23l2!6

I. C
O'JA

2377
1251

;'0C!3

1213

EtvD

OF B'JFFEP

/RESET VAPIAPtE LIST (X-^'EM)

/LITERAL TEp^INATORS
tASK4

autqi^atic quote match
/c.R.
/DATA co'^TRoL Characters
INFIX*?'.'
u KILL
/LEFT ARROW
FLiNTP*2
8 IGNORE
/SUPOUT
INPUT*!
" IGNORE
/LiFV
INPUT^I
/ALT MODE
» EXIT
EN0FI*5
/{NO RELATIVE REFERENCES)
fltone; 0001
2000
ruTZERi' 0000
0000
0000
0000
el2
/DECIMAL CONVERSION FACTOR FOR "PRNT"
Ml2.
/NOilNTERRUPT INPUT ROUTINE
133,
KSF
JMP ,»1
KR9
/IGNORE PARITY BIT
AND P177
SNA
JMP ,•5
TAD C200
JMP I 133
/PRINT A LINE NUMBER • "PRNTLN"
XPRnTi
TAD LlNENO
RTl6
AND P77
/TWO DIGIT "PART" NUMBER
JMS PRNT
tAO PER
/PERIOD FOR SEPARATION
PRINTC
TAD LINENO
/TWO DIGIT "STEP" NUMBER,
^MS PRNT
TAD Ml4e
/SAVE SPACE IN CHAR,
DCA CHAR
/PRINT TRAILING SPACE
PRINTC
jMp I XPRMT

pci

VAL«Tl
PRNT.

/PRINT two DECIMAL DIGITS
AND
DCA
tAD
DCA
JMP

3332
lll3
7333
5252
2333

75(^P

BUFR

TLlSt3»

.•lt'6

3'532
3CI32

PACE

ll,JAM-7i

Mfi

2421
?4<*1
?4,-2

V.'03

P177
VAL
C260

T3
,*3
ISZ T3

XYZ,

DCA VAL
TAO VAL
TAO M12
SMA

/FOCLl2.-<2g

jIauI?

V1C3

•525^

JHP XYZi-l

?*;*
y*;'

721/1

!233

CLA
TAD T3

?i*.''

4 551

PRi>JTC

14913

tHi

i'^32

1491
1492
1493
1494
1495
1496
1497
1498
1499
15?0
1531
1502
1503
1504
1505
1506
1507
1528
1509
1510
1511
1512
15l3
15l4
1515
I5l6
1517
1518
15l9
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540

?«i2
?*63

lll3
4551
5642

tAn VAl,
TAP C260

1496
l<lfi7

1468
1489

?A6-i

74*5
?i4t
7467
7*72
?47l
?<72
7473
?474
?475
?476
?«77
?5?'l

?5^i
75?2
?5?3
?5?4
?5?5
?5P6
JSJ"?

7510
7511
7512
7513
7514
7515
7916
7517
7520
7521
7522
7^73
7524
7525
7576
7577
753(5

7531
7532
7533
7534
7535
7536
7537
754^
7*541

7542
7543

•?:?Z

7450
1366
1116
7450
5276
1377
4463
5665
1^77
4463
1076
5274
.-'0(10

JMP
OUT.

31571

i071
C354
i356
7440
l354
7650
5332

2062
5357
]1161

3410
3361
1313

PRN'T

SNA
TAD CHAR
TAf) MCR
SNA
JMP OUTCR
TAO CCR
JMS I OUTDEV
JMP I OUT
TAO CCR
JMS I OUTDEV
tAD cir
JMP OUTX-l

PAl,

PACX.
eSCA.

PCKl,

/OUTPUT A CHARACTER
/USE (AC) OR (CHAR)

/PACK

PACBUF;

7450
1352
il01
7453
5755
l353

'fOf'

OUTX.
OUTCR*

1066

7440
4335
7303
5702
1I22
4335
5324

PACE

PRINTC

illC
7341

i?l7i
.3122

23106

11-JAN..71-

TAD
CIA
tAD
SNA
TAD
tAD
SNA
JMP
tAO
OCA
tAD
AND
TAD
SZa
TAD
SNA
JMP
TAD
AND
S2A
JMS
cor
JMP
TAD
JMS
JMP

•

"PRINTC"

CHARACTER i "PACKC"

P277
CHAR

/CWANGC 277 TO 337
P40
H10B

/TEST rOR RUBOUT,
RUBIT.
P377
1

T2
T2

C142
M140

/SAVE INPUT ITEM
/SO THAT QUESTION DOESN'T MAKE
/CWAR LOOK LIKE A LEFT-ARROW

/DATA WORD.'
C140
CLA
ESCA
T2
P77

/340;377 AND 200;2S7
/24i3«337

/IGNORE 300
PCKl

/(XiMEM)

p
I

PACBUr

P77
PCKl
PAl

ISf
JMP
TAD
OCA
OCA
TAD

XCTIN
ROT
QADD
AXIN
I
QADD
PDLXR

/»0 TO START

/(X^mEM)

/CLEAR PACKING WORD
/CHECK FOR OVERFLOW

^SB

/F0CLl2,

1541

?544
PS*?

15<>2

1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
.1575
1576
1577
1579
1579
1580
1581
1582
1583
1594
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594

1595

r-lALir

7141

CMA

lAC CLU

ji'r5

P13

?5'57

2553
2561
2562
2563

ERR0R2

PAGE

/RESPRVATIOiVS FCR PUSM-OOWM LIST

/FULL BUFFER

r.4y

.377
14n
3304
7640
4557

23106

TAP AX IN
SNL CLA
JMP I PCKl

762?
5735
4566
5552
-553
2554
?555
?556

ll-JANji?71

P377.
C14^,
RUBlTi
M143,
ROT.

3 -'61
75'4«l

3062
5735

377
140
RUSl
•140
RTL6
/(£AE)
DCa qadd
CMA
OCA XCTIN
JMP I PCKl

/PART OF INTERFACE TO FlOI TO ALLOW
/SETT JN5 or CHARS FROM TEXT
/

2564
2565
2566
2567
257(3

2571
2572
2573
2574
9575
2576
2577

4545
1^66
6213
5773
1137
4566
4540
1612
4453
6212
5777
i4n2

2600
2600

','1300

26("2

7575

('000

26t"3

320ci|

2604
2605
2606
26«7

7^110
32(^1

6^41
5225

26155

6(742

2611
2612
2613
2614
2615
2616
2617
2623
2621
2622
2623

3016
1665
7450
5225
634 4
35116

3665
1265
7301
107
1263

CGETX

getc

/••••«•••
tAD
CHAR
6213
/CIF COF 10/»»*«»*»«
JMP
.*1
/•••«*»••
CGETRET
/•••••t««
ERRFiLi ERR0R4
LM|
/•
PUSHJ
EVAL"1
/#
JMS I INTEGER
/«
6212
/*
JMP 1 i»l
/#
LMAKE
/»
/USED BY 8k
• 260n
/INTE Rrupt processor,
savac
/CONTENTS Of AC
SAVLK
/CONTENTS OF LINK
MBREA
»2S3
/CONTROl-C
INTRP
DCA SAVAC
/SAVE WORKING DATA
RAR
OCA sAVLK
TSF
/GIVE OUTPUT PRIORITY
JMP KINT
tCF
DCA TELSW
/TUR\i OFF THE IN-PROGRESS FLAG,
TAO
OPTRI
I

SNA
JMP
IPC
DCA
OCA
TAD
lAC
AND
TAO

KINT

TELS^
OPTRI
I
OPTRT

/DONE
/TYPF NEXT.
/CLEAR AC AND TURN on THE FLAG,
/2ERn OUT THE DATA AREA

P17
OPTR0

i^^iiiWHl

Miillii

1596
1597
1598
1999
16.-^0

16211

1612
1633
1604
1605
16n6
16?7
160S
16Z9
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650

U
?6?5
7636
76?7
763r
?6?1
?632
?633
?6:<4

?635
?636
?637
?64P
5641
?642
?643
?644
?645
?646
?647
?65e
S651
?652

3265
6a3i
f246

KINT.

6 5 36
1-.-6
,

745<il

5246
1123
3262
1262
32Z2
765'^

534?
lf^34

7640
4566
1262
3334
6151
5253
6135

4 - s; M "I " ' I

OCA
Ksr
JMP
KR9
AND
SNA
JMP
T*0
OCA
tAD
TAO
SNA
JMP
TAD
SiA

725if

3261

H«Ut iatfV

OPTRI

/C^^fK FcR KEYBOARD FIRST
EXIT
P177

buffer and clear FLAG TO FETCH J^EXf
/IGNORE BLANK AND L-T AMD PARITY BIT.

EXIT
C200
SIN
SIN
HBREAK
CLA
RECOVR
INBur
CLA

/MANUAL STOP?

/REa-^

/ANY SPACE?

/WILL WAIT FOR OUTPUT BUFFER

ERRCIR2

EXIT.

CO •«;<!>

TAO SIN
DC A iNBur
CLSK
JMP
NOCUK
CLSA
CUA
OCA
CLKFLG

/SAVE INPUT

/KW12 CLOCK INTERRUPT RqUTInC
/

?653
2654
?655
9656
?657
?660
J661
3662
?563
?664
?6A5
2666
2667
?67CI

?671
?672
?673
2674
?iS75

?676
?677
?70vl

?7?1
?7!'«2

?703
2734
2705
?7?'6

?737

6244
1201
7104
1200
6f01

NOCLKf

54f!0

EXiTJi
clkflc;
SIN,
OPTR0#
OPTRO»
OPTRii
XI33.

','000

3120
3120
3120
'^030

lOauF
lOBUF
108UF

tAO
SNA
JMS
OCA
OCA
tAD
JMP

1C»34

7450
4574
3276
3334
1276
5666
3?I0
3266
6Jfl
1664
7643
4574

RMF
TAO SAVLK
RAL CUL
TAD SAVAC
ION
JMP I

XOUTLi

/MODIFIED FOR PDP"5
/•••••••• SET TO
E-VERY INTERRUPT

/OUTPUT POINTERS
/VARS

INBUF
I
PWAIT
XOUTL
INBUF
XOUTL
X133

/VIA (INDEV)
/ANY INPUT?
/*
* REFRESH SCOPE WHILE WAITJNC
/••*••••» pOR INPUT

/CLEAR INPUT Suffer

DCA XI33
ION
TAO I OPTRO
52a CLA
JMS I
PWAIT

6»'e2

lOP

1316
7640
5314

TAD TELSW
S2a CLA
JMP .•5

/VIA {OUTDCV)
/SAVE CURRENT CHARACTER,
/BE SURE INTERRUPT IS ON,
/ANY ROOM?
/A cmaracter

is N0N»ZER0
/••«#•••• REFRESH SCOPE

/IN PROGRESS?

(

/FOCl 12.3V J
1651
1652
1653
1654
3655
1656
1657
1658
1659
1660
1661
1662
1663
166^
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
168<
1635
1636
1687
1689
1689
1690
I69I
1692
1693
1694
I695
1696
1697
1698
1699
17:'0
17.-'l

17;j2

1733
17^4
1705

?711
?7l2
?713
?714
?715
iivh
?7t7
?72f
?721
?722
2723
2724
?725
2726
2727
273PI

014110
1266
6146
3316
5323
1266
?664
j264
70ai
.'1^7

1263
3264
6001
5676
3326

V?33

ll-JAf'-r71
T*-

PAGE

l<"3i?

/NO
/TYPE CHARACTER,
/SET IN^PROCRESS TlAC,

XI33

TLS
JMO ,12
TAn XI33
DCi I OPTPC
TAD OPTRC!
lAC
ANfl P17
TAP)

23136

/RETURN
/semo oata
/SET PO'inTERS

0PTR5)

oca optro
jmp
xcutl
/error recovery proce EDuRE
/ERROR CALLED FROM A TABLE
errors; oca 1*1
/LIMIT EXCEEDED
a
ERR2.
^
^^ ^^„,
/COMPUTE CALLING ADDRESS (ALSO "SPACE")
CLA CMA
/AND USE IT aS error mUMBER,
tAb ERR2
/SAVE ERROR CODE.
„
,,^,^
DCA LIMENO
(JMP.M) « rOR DEBUGGING
/
IOn
/WAIT FOR OUTPUT TO FINISH
TAD TELSW
i

•

7240
l326

9731
?732
2733
2734
2735
2736
2737
2740
2741

3«I67

2742
2743
9744
2745
2746
2747
?750
2751
2752
2753
2754
2755
9756
9757
2760
2761
2762
2763
2764
9765
9766
9767
977P
9771
2772
2773
9774

1105
3057
7040
1263
3010
2016
7 000

6031
1316
7640
5333
6002
5342
1123
3267

341PI

2057
5351
3034
1263
3265
1263
3264
7940
6tM6

H31
4551
4553
;^!'.22

i422
7 450

5377
5^67
Jiai
4551

S2A CUA
JMP ,»2
-lor

JMP

,*3

RCCOVR; tAO C200
DCA LlNENO
/•••*
TAD
DCA
CMA
TAD
OCA

M20
CNTR

/SAVE ERROR NUMBER

/SETUP INIT COUNT

OPTPei

AXIN

1S2 TELSW
CDF
OCA I Ax IN
IS2 CNTR
JMP ,»2
DCA iNBur

TAO
DCA
TAD
DCA
RECovx; CMA
TLS
TAD

/DISABLE INTERRUPT FOR INlTI ALIZATIOnS

OPTRi?

/INIT I/O BUFFERS!
/•

/{X»^EM RESET)

/INIT KEY-BUFR,
/INiT TTY POINTERS.

OPTRI
OPTR'?

OPTRO

P77e0
PRINTC
prntln
ISg PC
TAO 1 PC
SNA
JMP ,*6
DCA LINENO
TAD P77?3

PRINTC

/PREPARE

STOP 9lT FOR TTY

VANQ RAISE FLAG,

(NOP)

/MAKE A "?'»,
/ANo TURN ON The interrupt
/PRINT ERROR NUMBER A^iDl

/UNLESS IT IS HEROi

/PRINT ATSIGN

{X-MEM>

FOR DEBUGGING

/rocLi?

17:6
17.-7
17,''8

4551

?776
?777

»;553

T T •--I 1
-

17:-9

1710
1711
17l2
I7i3
1714
1715
1716
1717
1718
17l9
1720
1721
1722
1723
1724
1725
1726
1727
1729
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760

VSCI3

v" •.
.•<

r .^ 1

3,--^2
:^r:33

33?6

062
764^
5214

37v*7

Ii!l0

3'^ll

7(M1
1027

3,-»l2

772'PI

3?13
3?14

3??4

3032
3f(33

1'2H0

3034
3?35
3036
3037

3010
1471

S?16
3P'l7
3k^20

3^21
3222
3B23
3{«24

3025
3026
3fi27

3C30
3fl31

3(^40

3041
3f!42
3l?43
3P<44

a^i
3061
5641
2530
1471

3B45

1006
7640

39<46

5231(1

3^47

3471
5231
.334

35)50
3ft51
3i^52
3;i'53

3PI54

3^55
35156

3357
3f16«

3?61

U''60
333!^

1331
7^41
103D
7650
5541
143B

23136

PRINTC
PRnTUN

/PRP'T SPACE ^PlN ANO
/PT'T LIME 0^ ERROR.

TAD CCR

P9iNTC
/RESfT "READC"
TAn PTCM
/IF AN> ERROR OCCURS.
DCa ROIV
/INTERRUPT WILL BE RE-ENABLEO
jmp start
/chraCter removal ROU TI\C
/RUaiUT ONE LETTER
TAD XCTIN
RUBl,,

5641
1251
4551
1010
3371
7300
2062
5242
1471
rl22
1103
7640
5237
7040
3062
7040

3/115

:a77
4551
1126
3152
5177

PAGE

ll-JAN-7a

Sil
JMP
TAO
CIA
TAD
SMA
JMP
TAD

•

SOON',"

CLA
,*6

AXIN

PACKST

/TEST NULL LINE
RUB5
/PORA RUBOUT ACKNOWLEDGEMENT
SPLAT
PRiNTC
tAD AXJN
OCA T2
/(X.mEM>
CDF T
/TEST HALF
ISH XCTIN
JMP RUB2
/"AOD" IS FULL.
TAD I T2
AND P77
TAO m77
/TEST FOB EXTEND
SHA CLA
JMP RUB4
CMA
/SET SWITCH
RUB3.
DCA XCTIN
/BACKUP POINTER
CMA
tAD AXIN
DCA AXIN
T2
/RESET ADD
TAO
ANn P7700
RUB4.
OCA QADD
JMP I RUS5
RUBS,
PACX
/CHECK FOR EXTENDED
TAO I T2
RUB2i
AND P7700
TAD CX00
SZA CLA
JMP RUB3
T2
/SAVE CORRECTION
DCA
JMP RUB3*1
334
SPLATi
/SYMBOL tABLE TYPEOUT Routine
/INJT pointer for SYMBOL DUMP,{X»MEM)
TDliMPi .TAO STARTV
OCA PTl
TAO lASTV
/TEST FOR ENO OF LIST
CIA
TAD PTl
SNA CLA
POPJ
/GET THE VARIABLE
TAO 1 PTl
CLA
1

^mmam

/rOCLl2.37^

1761
1762
1763
1764
1765
1766
1767
1769
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1795
1786
1787
1758
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1600
1SC51

1632
1803
^8"*
18e5
18?6
18a7
1808
1639
1810
1811
iai2
1813
1814
1815

7;.'«2
.^i^63

:IAL1^
3316
<3l5

%?{,4

3.T17

.T.'65

?,"'2.^

3r(S*
^•(,7

4545
4551
4545
4551
4545
4551
?n30

,•^,-7!'

3f71
3C72
3J573

3P74
3^75

3iPl
3102
31("3

.;43t!

31P4

'030

3ii;75

4533

3106
31B7

15577

31121

sill
3ii2
3113
3114
3115
3116
3117

DCa
TAP
DCA
OCA

TAD
JMS

3120
3140
3236
3206
32.16

r'^PSS

3237
3210
3211
3212
3213
3214
3215

c000
';340
;i6l7

"331
1455
6162
7715

(AJ-rOKfyMEM) ISAVE NAME
)

AXOUT
XCT

/REAP

AN'o

PRlNT "XX("

PTl

PRNT2

GETC
PRTNTC
IS2 PTl
riNT
rCET
PTl
FXlT
JMS I rouTPUT
TAO CCR
PRiNTC
TAD GINC
TAD M2
TAD PTl
JHP T0UMP*1
PRNT

/PRiM SUBSCRIPT

TO 99

/PRiMT ")"
/PICK UP VALuE

•

nil

5051

/(Oca

/SET'iP Ur,.PACK POINTERS

GETC
PRiNTC
GEtC
PRiNTC
IS2 PTl

103i3

"0eci

0P*1

PRifJTC

4551
H^70

5253
2442
3115

PAGE 1»B^Z

r.ETC

l435?

4714
4545
4551
2?3e
4407

3f^76
3:377
310!?

23t06

11-JAN*71

V,'y3

PRNT2I
OPi

/PRI^lT VALUE

(X-MEM)
(X-MCM)
/{ThCSE CO IN 10005 FOR X-MEM)
.
/OUTPUT CHARACTER BUFFER {AQHRESS IS A MULTIPLE OF 20J
,

0000
5051

lOBur«3120
COMEIN»1OBUF*20 /COMMAND • INPUT BUFFER
C0ME0Ut»C0MEIN*46
•COMEOuT
TRST,
/TExT POINTER
3000
/DUMMY LINE NQ,
0340
/••••••••
C?

0617
/FO
0301
/CA
1455
/»•»#••«
FRSTX*
6162
/•••»••••
/OUMMy CiR.
77l5
/TO SAVE TEXT .SAVE C(BuFR>, C(LAStV)» AnO C( FRST TO CCBUFR))
/wITM 00T-JR46,
THE TAoCS MAY BE TOGETHER WITH
/THE Symbolic dump last
FqCAL
float
DIALOG ,
/LOADING THE LAST SECTION May BE CONSIDERED OPTIONAL,
eUFf3EG».
/TEXT BUFFER STARTS HERE.
I

3600
36(^1
36(^2

3603
3604
3605

3216
36C0
?74l

•36n.'

nil

REC0VR*1/STARTInG AqDRESS

BtGlNi

3176

TAD 01 /INITIALIZE ANY eiFAi-lLY COMPUTER,
DCA START»i

7^:10

NOP/dOPRESET)

4575

JMS I
PCLEAR
CLA CLL

'.2D3

73nfi

/••*•*•••
/•••••••• INITIALIZE POINT DISPLAY

/r wuL ^£ ,

1816
18l7
1818
18l9
1620
18?1
1822
1823
1824
1825
1826
1327
1828
1829
1630
1831
1832
1833
1834
1835
1836.
1837
1838
1639
1840
1841
1842
1843
1844
1845
1846
1847
1646
1849
1850
1651
1852
1853
1854
1855
1856
1857
1658
1859
1660
1661
1862
1863
1864
1865
1866
1867
1668
1669
1670

'
^ f

^^H

->"57

'*'..''

?2.?6

?*ll

?*' 4

72^1
^213
3667
1262

3*15

3671?

361 i

1263
3671

yi'.z

MrlS

3617
342S
36 21
,,

3414

t>.:-j

3622
3623
3«24
3t25
3i26
3627
1633
3671
3632
3633
3634
3635
3636
3637
3640
3641
3642
3643
3644
3645
3646
3647
3650
3651
5652
3653
3654
3655
3656
3657
3660
3661
3662
3663
3664
3665
3666
3667
3670
3671

4620
4621

T12.

GBlOK
6212
JMS I
6211
2400
6211
7400
40B
6212
JMS I
RITEOU
CLLR
CLEN
CLA CHA
CLA8
TAD
CLLR
CLSA
CLA
TL5
ION
JMP
ERT
RITEOU; 110

v'030
1-076

30
76
2

.100

GBLOK*

100
25
23

.131
5772
5773
7200
7773
7774
7775
7776
7777

O101#
G5772I
057731
G72n0i
C7773I
G7774»
C7775»
G7776*
C7777»

101

462(5
J4?45

FEXP.

,:025
vni23
('031

771P

[!P

OiAL I/O ROUTINES

62.''1

4666
3655
6212
4664
6211
2430
6211
7420
.4?p
6212
4667
3651
6132
6134
7243
6133
1261
6132
6135
7200
6046
6^01
5650
2216
ntid

OCA I FlTXR
IS? CNTR/INITIAlIZED 8V lOAO.
JMP ,t,2 /CLEAR INPUT BUFFER
/••«.••», pix
CLA
6213
/CIF COr 10/»«»»»»»»
/••«•••••
DCA
G7775
/#•••*•••
TAD
G5772
/••••#•»«
DCA I
r.7776
/•••••••«
TAD
G5773
/••#•»»••
OCA I
C7777
/••••••••
6201
/COF
/««#•»••«
JMS I
C7774

5772
5773
7200
7773
7774
7775
7776
7777

/••••••••
/•••
/CIF
/•••»•*••
G7200
/COF le /••••••••
/••••••••
/COF 10 /••••••••

/•••••••»
/••«•«•••
/CIF 10 /••»•«•»•
/••••#*•• WRITE MiLDREO INTO UPPER
C7775
/••••••• SOURCE WORKING AREA
/•#••••»* INlTlALliE CLOCK
/••»•••»«
/••»••»»«
/••••••••
/•*•••»••
C101
/••»»»»•«

/••••»•#

,*1

/••»••••«
/•••••••»
/••«•••••
/••••••••
/•••••»•• ERASE ALL
/••••*•••
/•••••»••

/••#••••
/•••»••«•
/••••••••
/•••••••«
/••••••«•
/••«•««••
/•••••••«
/•••••»••
/#•••••••
/•*•«••••
/•##••••«
/•«••••••
/•••«»••«
/••••«•••
/•*••••••

#465»n*2

GETSGN
SPA CLA

/TAKE ABSOLUTE VALUE

/rOCLl2
1371
1872
1873
1874
1875
1876
1877
1878
1879
16P0
1881
1882
1883
1884
1365
1886
1867
1888
1689
1890'
1891
1892
1693
1894
1895
1896
1897
1898
1699
1900
1901
19S2
1903
19f!4

1905
1936
1907
1908
19k9
1910
19il
19l2
19i3
19l4
1915
19l6
19l7
19i8
19l9
1920
1921
1922
1923
1924
1925

.^^

:Ulio

<*?2
'4?3
ii?A
<i?5

4724

^ 6 ? ''

ii'i
463a
**31
1632
4633
4634
4635
4636
4637
4640
4641
4642
4643
4644
4645
4646
4647
4650
4651
4652
4653
4654
4655
4656
4657
4660
4661
4662
4663
4664
4665
4666
4667
4670
4671
4672
4673
4674

4675
4676
4677
4^00
47P1
47?2
47t^3
47P"4
477.5

4706
47P^7

11-JAN'71

V.';'3

3-133

NPGP
J1S
r:A t3
/C<SIC\')»-1
/c<si

4 4:<7

FINJT

4313
*67 =

TMUL LG2E
FPUT I X2
FCXT
JM? I IMEGER
DCi FLAG2
FI\T
FNOR
FPUT I XS02
FGET I X2
FSU9 I XSQ2'
FPU? I X2
FMUL I X2
FPUT I XS02
FAbD OF
FPUT TEMP
FCPT CF
FOtV TEMP
FSU9 I X2
PADD AF
FPUT TEMP
FGCT BF
FMUL I XSQ2
FAOO TEMP
FPuT TEMP
FGET I X2
FOiV TEMP
FMUL TWO
FAOO ONE
FEXT
TAD FLAC2
TAD FLAC
OCA FLAC

...

.'302

4676
1326
6326
;675

3326
4321
3 316
nagg
l325
1044
3044
2033
5536
4407
6675
;-3i6

3675

a^a
5536

IS2 T3

RETURN
FIMT
FPUT I X2
FGET ONE
FDiV
X2
FEXT
RETURN
/consTan'ts roR rEXP
I

5321
5325

X2,

XS02.

304

Af.

XSDR
0004
2372

2372
4ri2

7774
2157
5157
312
^454
343

PACE 1-34

3 :i .1

4453
3325
4407
73?a
4676
.675
2676
6675
4675
6676
i3ia
6326
335
3326
2675
1277
6326

23106

14:^2

sr,

CF,

7774
2157
5157
0012
5454
0343

X2<r

/TAKF INTEGER PART
/SAvr UOW ORDER DATA

H
m.

/roCLiZ,:
1926
19?7
1928
1929
1933
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
i960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
U^-M
1975
1976
1977
1978
1979
1980

4711
4712
47*3
4714
4715
4716
4717
47?0
4721
47?2
4723
4724
4725
4726
4727
473?
4731

''ULIC
;)'ji7

'^SH

?7n5
2435
C01
.

(?0?!7

lC2E.

2566
5341
B001

i3e2

ON'E,
\

TWO,

2Ci?f

«30B

5163
:d?Z
,•-000

23106

27555

•00?

NECP.
rLAG2»
TEMP.

2435
0001
2000
00Z0
{^0$»2

2000
0000
rNEO

'003
i-0S0

•zm
4407
3675
4675
6676
4374
1371
4676
l366
6326

4755
4756
4757
4760
4761
4762
4763
4764

2437
1643
7777
3304
4434
7773
33^6

4767
477B
4771
4772
4773
4774

or,

21?'00

5754
5024

ll-JAN-71-

?566
5341

4732
4733
4734
4735
4736
4737
4740
4741
4742
4743
4744
4745
4746
4^47
4750
4751
4752
4753
4754

47.^5
i*>.s

M".^^

.<363

4676
1360
4676
l355
4675
3326
.1300

r.0?!?

?4'54

/MAIN ALGORITHM FOR ARCTAMCC'JT
arcalc; FiNt
FGCT I X2
FMUL I X2
FPUT : XS02
FMUL BET2
FAbO 8ET1
XSQ2
FMUL
FAOD BETH
FPUT TCHP
FCeT.ALf2
FMUL J XS02
FAbO ALFl
FMUL I XS02
FAOO ALPZ
FMUL
X2
FDiV TEMP
FEXT
JMP 1 ,*1
ARCRTN
/CONSTANltS • fLOATlNG ARC TaN'G
0000
ALr?.
2437
1643
7777
AL^l.
3304
4434
7773
*Lf2.
3306
.5Am
I

:ff^
?437
1646

UM^

Pie0

BETl,

2427
2323
7'75

eCT2,

rj-n''

2437
1646
?0Z0
2427
2323
7775

PAGE

CULir'

/F0CLl2.:S7

1981
1982
3993
1984
1995
196 6
19?7
19pa

<S775

3427

4776

7<l52

19)=!9

5004

1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
20i3
2014
20l5
20l6
2017
20l8
2019
2320
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031

•50^5

2j;'32

5056
5057
5060
5061

2033
2034
2035

\)20Z

50'^2
"5003

5006
5007
9?10
5011
5012
5ZI13

5014
5015
5016
5017
5020
5021
5022
5023
5024
5025
5026
5027
5030
5031
5032
5033
5034
5(135

5036
5037
5040
5041
5042
5(J!43

5044
5045
5046
5047
5050
5051
5052
5053
5054
5.'!55

»5:"o:'

1045
7710
4363
3033
4407
6635
2637

A--T\,

•'000

?636

2635
:^000

5634
5301

5321
5315
4716
1045
7450
4566
7710
4566
4 407

6756
2637
.'000

1045
745f;

5536
77'/0

5264
4407
637
3756
6756

o?lNT ARC

TA-^nEiNT

/TAKE ABSOLUTE VALUE

GETSGN
SPA CLA
J*^S

fNEG

DC* T3

riMT
rPuT I XI
FSUB I CONl
FEXT
CETSGN

080

7240
3362
5623
4732
2362
5634
4407
6635

PA5E 1-36

7>fp2

5'Z30

1045
7710
5221
4407
r637
3635
6635

23136

3497

/rtOATj

5^r1

ll^JA*^-?!

SPA CLA
JMP CO

/LESS THAN ONE
FINT
FCET I COM
FDIV
XI
FPUT
XI
FCXT
CUA CMA
/SIGM FLAG OF RESULT
OCA FLACl
GOi
JMP I .I
/CALL ALGORITHM
APCALC
/RETURN HERE
arcrtn; IS? FLAGl
JMP I EXITI
FINT
FPuT
XI
FGET
PI2
FSUB
XI
FEXt
JMP I 1*1
EXiT2
EXlTli
/COwSlANtS FOR ARCTANGENT
XI,

PI2,
CONl.
FLOG.

PIOT
ONE
GETSGN

/FLOATING LOGARITHM

SNA

ERR0R3

/ZERO ARCUEMENT FOR LOG

SPA CLA

ERR0R4

/•

ri^jT
FPlJT

TEM
I
FSuB
CONi
FEXT
GETSGN
SNA
RETURN
SMA CLA
JMP STARTL
1

FI^JT

FCeT .1 CONl
FOiV I TEM
FPuT I TEM
Mliiiiiitilliiiiiiiiiii

riOCtlS

2?36 •%.
2037

2.?38
2(^39

ULif^

srts
5^64

724

•=.'65

!?''

'>^3 5

2040

5:66

3/'4

2?!4l
2:^42

•;--'67

7,M
175

5^,70
5.'71

2043
2^44
2.'i45

2246
2047
2048
2049
2050
2?51
2052
2053
2254
2355
2056
2057
2058
2059
2060
2361
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2060
2081
2062
2083
2084
2085
2066
2P87
2088
'^& ^.

^-^

5,-'72

r,u
y.C.A

5.'"74

i^e
375
440
435
663

5142
5i43
5144
5145

f*-.

V -^

;

stabtl; DCA T3
TAn P13
•JCi FLAC
CMA
TAD
TEM
DCA TLAC*!
OCA rLAC*2
OCA FLAC«3
lAC
DCA ! TEM
I

75
263
675

FIMT
FMUL L0C2
FPUT I XI
rCET I TEM
FSUB
COM
rPuT I TEM
FMUL U0G8
FAOO L0C7
TMUL I TEM
FADO L0G6
FMUL I TEM
FAOO L0C5
FMUL
TEM
FAOO 14
FMUL I TEM
FAOO L3
FMUL I TEM
FADO L2
FMUL I TEM
FADD LI
FMUL I TEM
FADD I XI
FEXT
JMP I CXITI
0000
3777
7742
7777
4000
4100
7777
2517
I

435;
l35l
475i
134!

475<
134;
475<
133:
475<
l33^
475d
J33J
475<
l32<
475e
163J

;1005

563^
/PI0C

Ll*

3777
7742
7777

L2i

4 00fl

4100
7777
2517

L3.

(?310

i.3ie

7776
4113
7211
7776
?5S5
3301
7775

<r
'

TEXT
CLA CMA

3/14

5373
5^75
5376
5077
5100
5101
5ie2
5103
51K4
5iP5
5106
5107
5110
5111
5112
5113
5114
5115
5116
5117
5120
5121
5i22
5123
5i24
5125
5126
5127
5130
5i31
5132
5133
5134
5135
5136
5137
5140
5141

H..JAN-71

y:s?z

7776
4113
7211
/LOGARiTHM CONSTANTS
7776
L0C5,
2535
3301
7775
L0C6.
l4.

J
'

J771

23106

PAGE

JlALir'

VV.3

5152
5151
5152

7774.

L0G7,

-^i^JS

7771

2395
2096
2097

5154
5155

'•.544

2!398

5157
5163
5161
5162
5163
5164
5165
5166
5167
5170
5171
5172
5i73
5174

/F0Cl12,?7
22!91
2{?92
25593
2!?94

2099
2l?2
2131
2102
2ia3
2l!^4
.

2105
2106
2107
2ia9
2109
2110
2111
2112

Ilii
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
213?
2140
2141
2142
2143
2144
2145

•

15156

5177
5200
5201
5202
5203
5204
9205
5206
5207
5210
5211
5212
5213
5214
5215
5216
5217
5220
5221
5222
5223
5224
5225
5226
5227

'^PSa
5231
5232

L058,

TEm,
L0C2.

2613
4414
iS'eo

:-CPf

4451
7240
5763
6213
5126
6213
5130
6213
5132

5177
4407
6321

44?,7

3305
6325
;'000

4453
4407
7000
6321
^:'325

?321
4305
6321
2311
^g?

7771
4544
1735
TEmP
'^

26l3
4414
FLAGl*
FNEG.

JMS 1 MINSKI
CLA CMA
JMP I FNEG
6213
/CIF
LOi
JMP
XLO
/CIF
LC#
62l3
JMP
XLC
/ClF
62l3
LLi
JMP
xLL
/FLOAliNG POINT SINE

•5177
FCOS.

;'3l5

2321
0000
1045
7740
5214
1045
7700
5536
4451
7040
3033

777'.
^Ji"*

43-14

:•«?•?

P4CEl«»38

23106

2' '6

2236

-735
4726

llijAN- 71

FSIN.

CDF l,0/»««*#*»«

/•••••«••
CDF If/********

/•••••••
COF 10/«««»»t»»

/••••••»#
AND COSINE

/COS (X SIN<Pl/2-X)
FINT
FPUT X
FGCT PIOT
FSUB X
FEXT
GETSCN
SMa SiA CLA
JMP MQD
GETSGN
SMa CLA
RETURN
/YES SIN(0)"0
JMS I MlNSKl
/NOtSINjiXjsiSlNf X)
CMA
DCA T3
/REDUCE X MOOULO 2 PI
FiNT
FOiV TWQPI
FPuT XSOR
FEXT
JMS I INTEGER
FIMT
FNOR
FPyT X
FGET XSOR
FSU8 X
FMUL TWOPI
FPuT X
TSUB PI
/X<PI?
FEXT
)

MOO,

Milllllliiii

/rocLis

•%.
2146

2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200

ClALlC

V?i'3

ll.JAN-71-

•V345

GEtSGN

5?34

77li^

5?.^5

5244
44^7
6321

SPA CLA
JMP PCHECK

5236
5237
5?43
5?41
5?42
5243
5244
5245
5246
5247
5250
5251
5252
5253
5254
5255
5256
5257
5260
5261
5262
5263
5264
5265
5266
5267
5273
5271
5272
5273
5274
5275
5276
5277
5300
5501
5302
5303
5304

4325
l335
4325
1341
4325
1345
4325
l3l5
4321
^aa^
2033
5536
4451
5536

53JI5

1-003

5306

3110
3756
3235

53f)7

5310
5311
5312
5313
5314
5315
5316
5317
5320

PlS'T

rPuT

1033
7340
3033
4407
321
2315
•30?

.;3ii

'?000

PAL5.

L'321

3315
6321
4321
6325
i'33l

t-C02

EXIT2#

3110
3756
3235

/X<PI/2?

SPA CLA
JMP PALC
riNT
FGCT PI
rsuB X
FPUT X
TEXT
riNT
rccT X
roiv PIOT
FPUT X
FMUL X
FPUT XSOR
FCET C9
FMUL XSOR
FADO C7
FMUL XSOR
FADO C5
FMUL XSQR
FADD C3
FMUL X80R
FADD PIOT
FMUL X
FEXT
IS2 T3

/YES
/NO
/SlN<X)fSIN(Pl»X>

RETURN
JMS

MINSKI

RETURN
/co^jstamts *nd pointers
TWOPIi
0003

PIi

3110
3756
3235
0002
3110
3756
3235

PIOT,

O0!51

3110
3756
3235
',:331

/YES
/NO, SIN(X-PI}»-SIN(X)

GEtSGN

2321
6321
4407

/INVERT THE SIGN

CMA
%
DCA T3
PCHECK, riMT
rGET X
FSUB PIOT
FExT

1045
7710
5260
4 437

PAGE

TEXT.
TAD T3

'JiiP

23106

3110
3756
3235

/(S755) • For 4. WORD

/USED BY SINE AND COSINE

/rOCLl2.77

lALl'T

22C1

5:!2i

22v'2
22<'3

?.'»22

22"^
22C5
22C6

<- I

•..

23106

PAGE 1"<B

ret'

^7?3
«3?*

?0Z»3

';:»25

«!26

22ri7

32 7

22e8
22P9
2210
2211
22l2
2213
2214
22l5
22l6
2217
22ie
22i9
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
223Z
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251

533?

2252
2253

ii^jA^;

V^'^S

5331
5332
5333
5334
•5335

5336
5337
5340
5341
5342
5343
5344
5345
5346
5347
5353

7764
25S1
7'^15

1342
7771
5464
5514
6150
7775
2431
5361
4736
i'000

5325
,'414

3167

0000
?000
0000
/SiME CONSTANTS
7764
C9,
2501
7015
1042
7771
C7i
5464
5514
6150
7775
C5i
2431
5361
4736
0000
C3i
5325
0414
3167
/END OF EXtENDED FUNCTloNSi
/

EXPRESSION
1 1
/HANDLES
/SETS CLOCK ACCORDING To EXPRESSION
/

5351
5352
5353
5354
5355
5356
5357
5360
5361
5362
5363
5364
5365
5366
3367
5370
5371
5372
5373
5374
5375
5376
5377

4540
1612
4437
4375
•.2f!0

6132
6134
4453
6133
72P0
1306
6132
1123
6134
1374
6132
7200
5773
-611

setclk; pushj
EVAU-l
FINT
TMUL
FEXT
CLLR
cLEN

/•••*•••»
/»•••*•*•
/••»•••••
MHUNDRO /••»»••••

JMS I
CL4B
CLA
TAD
CLLR
TAD
CLEN
TAD
CLLR
CLA
JMP I
pRnc
46S!0

46??!0

046!«l'»

:0i17

MMUNORDi7I4700I0

/•••#•••
/•*••••••
/••#•»»•#
INTEGER /••••••*•
/•»••*«••
/•##»••»«
/••••••••
C100
/•••»••••
/•§#•••••
C200

/•••••••

04600

/•••••••*
/••••#•••

/•••••••
,*1

/•••••••#
/•••#••••
/»•••••*•
/••••»•••

4730

/PAGE 1 - INPUT/OUTPUT ROUTpiES FOR THE FOCAL
/FLOATING POINT PACKAGE'.

OULliU

/F0CLl2.i

2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2260
2281
2282
2283
2284
228?
2286
2287
2288
2289
2290
2291
2292*
I-'

•i

'^-,

.-i

£ r ^'

2295
2296
2297
2298
2299
2300
23fl
23^2
23?!3

2304
23^5
23i!6

23G7
23?8

li;jAN-7l

vnfi3

23106

PAGE

Jg]

/IN THE COMMENTS 3ElO«I,F

NUMBCR OF DIGITS

NIJMBFIR

£
P

OECIMJAL Exponent
NUMBE'R OF PLACES ^ EMApilNC TO 8E
PRINT!EO PEFORE DEC IMAl POUT

54P0

• 5430

-236

DIGITS«6

/NUmBE« or DECIMAL DIGITS OUT

TCO, \

54J'J

DCa SCOUNT
tad FISW

5423

3334
1352
4557

54f!4

•122

5405
5406
5407

3032
1032
7041
7450
1326
3335

AND *P77
DCA Tl
tAb Tl
CIA
SNA
TAD MD
DCA FCOUNT
TAD FISM
SNA
JMP R6
AND P77
DCA OECP
TAD FCOUNT
TAD OECP
SPA
JMP .*5
CLA CMA
TAD
OCA OECP
CMA
TAD T3
SMA
CLA
tAO
SPA
JMP FPRNT«2
TAD mO
SMA
CLA
TAD RN02
DCA T2
TAD I BUFST
TAD T2
OCA PLCC
TAD T2
CIA
DCA T2
TAD K5
PLCE
IS2
tAD I PLCE
TAO 0Mi2
SPA CLA
JMP FPRNT

5401
54212

541?l

5411
5412
5413
5414
5415
5416
5417
5423
5421
5422
5423
5424
5425
5426
5427
5430
5431
9432
5433
5434
5435
5436
5437
5440
5441
5442
5443
5444
5445
5446
5447
5450
5451
5452
5453
5454
5455
5456

/SAVE MAX, NUMBER OF DIGITS AVAILABLE

•SET COUNTS*

rtli

1S?52

7450
5241
1122
3333
1335
l333
7510
5230
7240
1032
3333
7040
1033
7500
7200
1032
7510
5263
1326
7500
72H0
1327
3071
1731
1071
3336
1371
7041
3371
1325
2736
r736
l330
7710
5265

FISW
OECP
• BEXP

t ? 9E OUTPUT
OF DECIMAL "LACES

n6,

RET,

/NO, COMPUTE riELD SIZES

/<JMP FPRNT) • FOR NO R0UN06IN,
/FLOATING OUTPUT?
PLACES
/YES. ROUND OFF TO MAX, NO.

F^O >
/YES
/NO,

/MAKE

F-l

/COMPARE DECIMAL EXPONENT
F,0 > E?
/NO, ROUfvD OFF TO

PLACES
'.'F
/YES
/ 0*E <
I
/YES. NO ROUN'OING NEEDED, CO TO PRINT
/NO, ROUND TO D*E PLACES.
/TO A MAXIHU" OF D PLACES

•ROUND Uf •
/SAvE NUMBER*! OF PLACES TO ROUND TO,

/SET UP BUFFER ADDRESS AT WHICH
/ROUNDING OFF SHOULD START
/SET UP COUNT OF MAXIMUM NUMBER
/OF CARRIES ALLOWABLE
/LITTLE EXTRA ON FIRST DIGIT,
/ADD 1 TO OIGIT AT CURRENT POSITION

/CAR">Y REQUIRED?

/NO, GO TO OUTPUT

CULIO

/F0CLl2.:«T

23«9
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2333
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363

•

?«5^
54*':

?**:
«i*J
54*3
ei64
5465
B4A5
»4i7
"5473

5471
5*72
5473
5474
5475
5476
5477

3736
?^7l
5321
^736

rPRNT»

7J5M
5356
\335
iJ33
754CI

5355
i333
7500
7293
7341
ifl33

32'32

1033
1332
7650
5343
1032

BACKJ

7f»01

7710
ll05
4336
2032
5303
1102
4551
5303
7340
l336
3336
5252
.;«0g4

7772
'.^^07

7766
6153
6154
3P0

IN»

DECR,

FISW
CLA
FLOUT
FCOUWT

/AUTO'-INOEX REGISTER ALREADY SET,

T3
S2A

FLOUTol
DECP

• PRl\iT#

/YES, OUTPUT AS FLOATING NUMBER

/Y5:s. CONVERT

TO E FORMAT

/ E < r»o 7
/NO, TAKE P • E
/YES. TAKE P ! F«D

T3
Tl
T3
Ti

/SET UP MINUS
/PRINT DO, ODD

CLA
DIG

/YES. PRINT DIGIT
/NO,

/ P > 1 7
CLA
M20 /YES. Take space {240»26g)i otherwise 2ER0
/PRI^'T character
OUTA
Tl
/p characters printed?
BACK
/NO
PER
/YES.

PRiNTC
JMP BACK

/PRI^'T DECIMAL POINT

CMA
TAD PLCE
DCA PLCE
JMP RET

/BACKUP TO TOP OF BUFFCR.

k5i
MDi

"DIGITS

RND2,
0M12|

DIC,ITS*1
-i2

:'000

rC0U^4T;

5536

PLCE»i
OUTa,

BLIFST*

4732
2333
5736
DIG,

/MQpiriABLE LOCATIONS

C
?

OPJT
ISH FCOUnT
JMP I OUTA
JMP. I TGO
CMA
TAD T3
JMS

56?C!

7040
1033

/YESi MAKE CURRENT DIGIT HEBO
/BEGINNING OF BUFFER REACHED?
/SO, DECREMENT BUFFER ADDRESS AND REPEAT
/YES» SET MANTISSA TO 0,1

/COMPENSATE BV INCREMENTING EXPONE^T

.'0fie

;flC;'

PAGE 1-42

23IZI6

SADR
OPUT,
OUTOG
OECP.
SCOUnTJ

PLCE

JMP OECR
ISZ 1 PLCE
IS?

1^*52

iS? T2

CLA
tAD
SNA
JMP
TAD
TAD
SMA
JMP
TAD
SMA
CLA
CIA
TAD
CIA
DCA
TAD
TAD
SNA
JMP
TAD
lAC
SPA
TAO
JMS
ISH
JHP
TAD

7341

5536
5537
5540
5541
5542
5543
5544

DCA

72^0

5531
5522
5523
5534
5525

5537
5513
5511
9512
5513
5514
5515
5516
5517
5623
5521
5522
5523
5524
5525
5526
5527
5530
5531
5532
5533
5534
5535

llijANt.71

;n-i33

5!3?l

5.536

v3H3

/MOOiriEO REGISTERS,
/PRp.'T CHARACTER
/F CMARACTERS PRINTED?
/NO, RETURN
/YES. NUMBER FlNSHED
/REDUCE

BY I

/F0CL12,

2364
2S65
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2334
2385
2366
2387
2388
2389
2392
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
24(^6

2407
24C8
2409
2410
2411
2412
2413
24l4
24l5
24i6
2417
24l8

m^3

V?Pi3

3fH33

OCa T3
IS? SCOUNT
JMP ,*4
CM4
DCa SCOUWT
JMP IN
TAD I FLTXR
JMP IN
/DO FUOATIN'G OUTPUT
CIA
JMS I OPUT
ri.ouT»
tAD PER

5546
5547
5553
5551
5552
5553
5554

?334
?353

5555
5556
5557
556Z
5561
5562
5563
5564
5565
5566
5567
5570
5571
5572
5573
5574
5575
5576
5577

7200
4732
1132
4551
2200
1414
4336
2334
5362
704R
3334
5363

56?>0

5601
5602
5603
5604
5605
5606
5607
5610
5611
5612
5613
5614
5615
5616
5617
5620
5621
5622
5623
5624
5625
5626
5627

11- JANs7l

OlALlf'

7('^4;i

3334
5313
1414
5313

PRjNTC
is; TQO
tAO I TLTXR

JMS OUTA
IS2 SCOUMT
JMP ,-3
CMA
OCA scount
JMP .•?

23106

PAC£

§'

/ARE ALL SIC. FICS. USED?
/NO
/YES.
/RESET COUNT TO «1
/AND LEAVE C(AC) »
/TAKE NEXT OlCiT FROM BUFFER

/IF OUTPUT TOO LARGE.
/PRINT "0"

/PRINT "."
/SECOND RETURN
/TAKE NEXT OlCiT FROM BUFFER
/PRINT IT
/TEST FOR END OF INPUT
/AND REPEAT

/OUTPUT EXTRA 2ER0S,

,•000

absolv;

1345
3059
1045
7710
4451
5771

tAD WORD
OCA SIGNr
TAD HORO
•SPA CLA
JMS I MInSKI
JMP I ABSOLV
/DOURLE PRfClSlON DEC IMAL-BIMARY
/.INPUT AND CONVERSION For
OR • XXX. I,
•5600
oeconv;
OCA LORD
OCA EXP
/iERO THE EXPONENT AND
DCA HORD
/INlTIALIiE FLOATING AC.
DCA 0VER2

5600
n000
3046
3044
3045
3047
3314
3050
1066
1264
7450
5220
illl
7640
5221
7040
3050
4666
1366
1265
7650
5220
4227
5600
::-^SB

"OCA ONUMBR

DCA
TAD
tAO
SNA
JMP
TAD
SZA
JMP
CMA
OCA
JMS
TAO
TAO
SNA
JMP
JMS
JMP

DCCONi

SICNF
CHAR
MPLUS
.*6
m2
CLA
.*4

/ALLOW KEYBOARD SIGN CHECKS,
/*8I0NI GET NEXT
/CHECK > SIGN

/INIT SIGN CHECK TO POS,
SICNF
XINPUT
CHAR
MSPACE
CLA
I

•

DECON
I
OECONV

/GET NEXT
/A SPACE PERHAPS?

l-ULlC

/rocui2.:<7

2419
2420
2421
2422
2423
2424
2425
2426

563?
5631
^632
5633
5634
5635
5636
5637

•

242^

5642

^4^;

\\?,
5A45

24-^2

5^6

433
2434

1262

7653
=627
4561
5627
5247

2sM T3

;;rMAlN MUST fe SIVCE OVERSOW
/COUMT OICHS

ISE 0NUM8R

WW
4666
523?
1066
1112
7710
5627
l366
l263
7740
5627
1366
122
"240
^473
7446
7525
7540

%t.h\^

2^45
2446
2447
2448

5^62
5663
5664
5665

^^5-^00

2451

5670

1047

^453
IJI5
2455
2456
2457
2458
2459
2460

56I2
56?3
56^4
5675
56f6
5IJ0
5701

l'46
3^22
1045
3041
3312
4315
4315
4333

'453

f3i3

57714
57616

3'^43
3('M2
3!^41

57?7
5^ie
Vl\\

4333
1312
5667

«!712

viO"!

5713
^714

01%',

Vh5

^W^

-5716

V347

/TEST LEaO CvARACTER

''*'"

94id4

S???

CHAR
TAD MINE
S.'U CLA
J*^" 1 DECON
TESTN
O^CON
JMP
JMP DTST
TAD SORTCN

526?
23l5

5647
5650
5651
5652
5653
5654
5655
5656
5657
5660

2463
2464
2465
2466
2467
24?8
24*9
2470
2471
23?2
2473

23106

li^54

C^Pr'

PACE 1-44

li:jANr71
tA:.i

1.366

2435
2436
2437
2438
2439
2440
2441
2442
2443

V7?3

erSoSz*
JMS I XINPUT
JMP OECON*l
DTST.

TAOCHAR

TiO'R

TERMIMATOR

/E
/.

/pT^ER
/N
IS

CHECKED

/,NPuT,ovERruOw error
^JOnT NUE
/ALLOW A-i

TAD MINUSA
SPA CLA
JMP I OECON
TAO CHAR
TAD MINUSE
SZA SMA CLA
/USE SIX BITS OF ASCII
JMP I DECON
TAD CHAR
AND P77
JMP DSAvE
/(7532); TOR AMPERSAND
-335
MINE.
-332
MiNUSi,
MPLUSi. "253
MSPACE. -240

/ROUTINE TO MULTIPLY FLAC BY TEN (10)
MKir^'
0VER2
TAD

OCA
TAD
OCA
DCa
JMS
JMS
JMS

ACIL
HORO
ACIh

REMAIN
MULT2
MULT2
DU8LAD

TAdSi?
OCA
OCA
OCA
JMS
TAO
JMP

REMAIN,
DIGIT*
nNUM3R,
MULT2,

OVERl
AClL
ACIH
DUBLAD
REMAIN
MULT10
I

/DOUUC PRECISION WORD
/BY TEN (DECIMAL)

/REMAIN.REMAINDER
_

..„

/CLEAR OyERrLOw WORD
/CALL SUBROUTINE TO
/MULTIPLY BY TWO
/CALL DOUBLE ADD
/ADO LAST DIGIT received

. -

/E^IT WITH REMAINDER
/IN AC

/STORAGE fOR DIGIT
/"NUMBER OF OICITS
„w
/MULTIPLY 0VER2. LOPO, WORD BY
^
TAO 0VER2

o
2

mtaummaL

/F0CL12.3
2474
2475
2476
2477
2478
2479
2482
2481
24S2
2493
2464
2485
2466
2487
2468
•2489

2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500
25ei
25PI2

2503
25?4
2505
2506
25n7
2508
2509
2510
2511
25l2
25l3
2514
25l5
25l6
25l7
25l8
25l9
2520
2521
2522
2523
2524
2525
2526
2527
2528

ClALl£'

71vM

572?
57?1
5722
5723
5724
5725
5726
5727
5730
5731
5732
5733
5734
5735
5736
5737
5740
5741
5742
5743
5744
5745
5746
5747
5750
5751
5752
5?53
5754
5755
5756
5757
5760
5761
5762
5763
5764
5765
5766
5767
5770
5771
5772
5773
5774

3047
1046
73?4

11-JAN«71

V^H3

3'?46

1045
70(54
3i)45

|312

7004
3312
5715
i'00?!

l!!'47

.,'200

7330
1041
7510
7120
7010
3041
1042
7010
3042
1043
7010
3!143

?040
5754
5754
4566
6f500

60i!!0

.'000

6001

7610

6K(12

6377

6003
A004

.1045

7700

OIVl.

^^
W^INK

/TRIPLE PRECISION ADDITION
CLA
TAD
TAD
OCA
RAL
TAD
TAD
OCA
RAL
TAD
TAD
DCA
RAL
TAD
DCA
JMP

1043
3047
7?04
1046
lf42
3046
7004
1045
1041
3045
7004
1312
3312
5733

page:

CLL RAL /CA«RY JNSERT BIT IS
DCa 0VER2
TAt) LORO
RAL
DCa lord
tAD HORD
RAL
DCA HORO
TAD REMAIN!
RAL
OCA REHAIN
JMO 1 MULT2

OUBLaO;

73f!0

23106

CLL

0VER2
OVERl
0VER2
LORO
AClL
LORD
HORD
ACIH
HORO

/WITH OVERFLOW
REMAIN
REMAIN
DUBLAO
/SHIFT oPERAMD RiCHT
/TRIPLE PRECISION
CLA CLL
TAD AClH
I.

SPA
CLL CML
R AR

DCA
TAD
RAR
DCA
TAD
RAR
OCA

AClH
AClL
AClL
OVERl

OVERl

158 EXl

JMP
JMP

I
I

OIVl
OIVl

/••••••••{SUBSCRIPT ERROR FOR FILE VARJABLE-OR NOT DEFINED)
fsserr; ERR0R4
• 600P
/FLOAT]JNG OUTPUT CONVERSION »OUTiNC
floutP,.
/••••••••/CSETS rid OF I IN PRINTOUT
SKP CLA
LMODC
/•••••••#
6377
OPTR,
PMOOE
/NUmRER>0??
TAD HORO
SMA CLA

niALl"
2529
2533
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
257Z>

2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
253l
2582
2583

1334
l356
4551
4753

6006
6007
A?10
6?11

V.:^:3

3^33

6? 12

1?I4 4

6.n3
6P14
6?l5
6?l6
6017
6K20
6C21
6022
6323
6024

7513
5227
7443
l341
7750
5234
4407
4744
.1000

7001
6i?25
1033
5211
6(?26
4407
6Z27
4752
6(530
000
6(?31
6032 7040
5225
60-33
3745
6334
6035 3746
l350
6P36
3014
6037
6040 1044
6041 7140
6042 3354
6043 1343
3044
6044
6045 4527
6046 2354
5245
6047
l746
6050
6051 7450
6052 5270
1342
6C^53
7710
6054
6055 5264
7001
6056
3414
6(^57
6360 ^044
1342
6K61
6062 2033
6P63 7000
1746
6064
6f".65

6066
6067
6c;71

6072
6073

TA" SMSP

/pRivT "»" OR

SPACEi

SHIN

JMS I A8S0L2
DCi T3
TAD EXP
SP*
JMP FC03
SH*
TAD m4
SPA SNA CL*
jMP roo4
TINT
FMUL I PPTEN
TEXT

/IMTIALIHE DECIMAL EXPC^.ENT
/IS EXP

TO 47

/TOO LARGCIHULTIPLY BT l/l?-

lAC
TAD T3
JMP FG02

rG03.

F004,

PI^T
FMUL
FEXT

CI*
JMP
OCA

i«6

TENPT

DPT
DC'a I REPT
TAD SADR
OCA FLTXR
TAb EXP
CMA CIL
OCA OUTDG
TAD OCOUNT
OCA EXP
jMS 1 DOUBLE
IS2 OUTDG
JMP ,«2
TAD I REPT
SNA
JMP FC09
TAD FM12
SPA CLA
JMP ,»7
I

lAC
dca I fltxr
IS2 EXP

TAD FM12
IS2 T3
^JOP

?'133

70C0
7410
4747
3414
?044
5270

23106

T.'.C

FC;Ci2.

m^^
PAGE i«^

11-J*' -71

FC05,

TAD 1 REPT
1S2 T3
NOP
SKP
JMS I MlflPT
OCA I fLTXR
iSi EXP
JMP ,"3

/multiply by two to position bit0
/clear overflow word
/init buffer pointer
/compute bits in 1st digit
/temp count
/setup count of total output

/rotate out the 1st

bits

/TEST FOR 10-15, 0»l-9

/IGNORE 1ST ZERO
/0«9

/OUTPUT A 1
/COUNT ThE DIGIT
/CORRECT REMAINDER
/BUmP decimal EXPONENT

/COMPUTE RESULTANT OR SECOND DIGIT

/IE,

,672X10»6*,72,, ETC

/ALL DIGITS OUTPUT??
/NOl CONTINUE

rOCLl2
2584
2585
2586
25S7
2558
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
26(36

2609
2610
2611
26l2
2613
2614
2615
2616
26l7
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637

igM

DIAL10

V3K!3

^^7 4

135^

6?75
6?76
6377
AlPS
6131
6102

3V114

SAOR
/INIT BUrFER f^WTER
TLTXR
DCOUNT
ROUND
/OUTPUT MANTISSA
I
FLOUTP
/riXEO POINT DONE
/pRjMT »E"
CHRT
PRINTC
/OUTPUT THE EXPONENT
TAD T3
/TAKE ABSOLUTE VALUE Of EXPO
SPA
CIA
OCA HORD
/SAVE * POWER
TAD T3
/PRINT SIGN
SMA CLA
tAO M2
TAO SMIN
PRiNTC
tAD HORD
ISZ EXP
TAO Ml«4
SMA
JMP ,-3
TAO C104
OCA HORD
/SAVE TENS AND UNITS
CMA
/OUTPUT HUNDREDS
TAD Z)(P
SZA
/UNLESS 2ER0
JMS OUTDG
TAO HORO
/PRiwT two DIGITS
JMS I PRNTI
JMP 1 TlOUTP
PRNTi#
PRkjT
CHRT.
309
/E
(0246) • FOR AHPeRSAnO
SMSPi
240.255 /
PtQ,
275
SMIN.
255
M144,
/.leei
-144
0144
C144,
/100

6103
6104
6105
6106
6137
6110
6111
6ii2
6113
6114
6115
6li6
6117
6120
6121
6122
6123
6124
6125
6126
6127
6130
6131
6132
6133
6134
6135
6136
6137
6140
6141
6142
6i43
6144
6145
6146
6147
6150
6151
6152
6153

1343
4751
56,ie

1333
4551
1333
75ie
7041
3^45
1033
77C0

nil
l336
4551
1045
2044
1337
7500
5315
1340
3045
734(5

1044
7440
4354
1045
4732
5630
?442
t305
7763
3275
e255
7634
•?144

7774
7766
7771
6275
5713
5712
5667
7467
54a!3

6271
5571

615.4

•300

6155
6156
6157
6160
6161

1113
4551
5754
7750
2333

ll-JAN-71'
TAD
OCA
TAD
JMS
JMP
TAD

23136

PACE

•

•»

H4i

-4

rHi2,
dcount;
PPTFNi
OPT,
KEPT,
MlOPTi
SAOR.
ROUMO«
TENPTi
ABS0L2;
OUTOCi

-12

-OiCITS.l
/NUMBER or DIGITS OUTPUT
PTPN
/lEl
OICIT
REMAIN /OVERriOW fROH INTEGER MULTIPLY
MULT10
BUPrER-l
tCo
/ACTUAL OUTPUT ROUTINE
TEN
ABSOLV
/OUTPUT ONE DIGIT
TAO 0260
PRINTC
JMP
OUTDG
RANHUl. 7750I2333J5733 /••••*•••
I

/rOCi.l?.:>tf^

6162
2633
263'
2643

fti63

26<2

6164
6165
6166
6167

26'»3

617(?

2644
264?
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2673
2671
2672
2673
2674
2675
2676
2677
2678
2679
2630
26S1
2682
2653
2654
2685
2636
26S7
2698
2659
2690
2691

6171
6172
6173
6174
6175
6176
6177

St-il

Ij!

.Llf

5733
1167
3171
1170
3173
|032
6212
4775
2407
5774
6401
2300
6213
5134

6200
6200
6201
62P2
6203
A2PI4
(,2t^5

6206
6227
6210
6211
6212
6213
6214
6215
6216
6217
6220
6221
6222
6223
6224
6225
6226
6227
6230
6231
6232
6233
6234
6?35
6?36
6237
6240
6241
6242
6243
6244

;'0Pi(?!

7640
47^6
1066
1114
7650
5202
4702
1366
1115
7640
5221
4706
3705
47^3
1705
7041
3033
i3l0
3044
4704
4707
4407
6433
•'aCC

1366
i301
7640
5246
4736
47?2
47vM
ii347

i?33
3kj33

4407
,430

l5.'UT»

STORlTi
LS.

1-^
PAGE l^fe

llijAN-71

23106

TAu
DCa
TAD
DCA
TAD
62l2
JMS I

/••••»••• CAuLS STORING ROUTINE TOR
/#••«•»»# s rN{X>«
/•••»»•»#
/«•»#••••
/••s6»»«»

•

SUBS2
SUSS
LESUB2
lESU9S
L,WEi;iP

/••»<»#»»#
STOfilT

/«•»»•*••

IS2

/•

JMP

/••«•••••
/«••«••««

FPnT*1
ITSTQR
62l3

/«

1
I

••

/CIF CDr 10/i»»»»««» LIBRARY SAVE
/••#•»*#•
XLS

jMP
/USED BY 8k
/rLOATisJG POINT INPUT
#6260
FLlNTPi
S2A CLA
jMS
XJN
T'AD CHAR
TAD M24e
SNA CLA
JMP ,«4
jMS I DPCVPT
TAO CHAP
TAD MPCR
SHa CLA
JMP FICOl
JMS
XlN
OCA I DPN
jMS I OCONP
TAri I DPN
CMA lAC
FiGoli
DCA T3
TAii P43
DCA EXP
jMS I RES0L5
JMS f INORM
FINT
FPuT
PTl
FExT
tAO CHAR
tAD MINUSE
SHa CLA
JMP EN0FI*3
JMS
XiN
JMS
DPCVPT
JMS
RCS0L5
TAO 0VER2
TAO T3
DCA T3
/COMPENSATE FOR DECIMAL
ENDFl.
FiNT
FGET I PTl
I

•

/IF C(AC) ! !?i USE CHAR
/IF C(AC) N0\'»2ER0 , GET NEXT
/GET FIRST ChAR

/IGNORE LEADING SPACES

/REaO FIRST DIGIT GROUP
/ANQ SET "SIGNF"

/ENDED BY PERIOD?
/YES. READ 2AND CROUP

/SAVE NUMBER OF DIGITS IN T3
/NO,

/NORMALIiE FJRST, THEN
/SAVE NUMBER

/"E" READ IN?
/NO
/YES. READ 3RD DIGIT CROUP
/I.E. CONVERT DECIMAL EXPONENT

/C(SEXP)PLACES TO RIGHT
/qF LAST OlGiT
EXPONENTS
/RESTORE MANTISSA

/F0CLi2.3Z2692
2693
2694
2695
2696
2697
2698
2699
2700
27P1
27B2
27P3
2704
27C5
2706
2707
2703
2709
2710
2711
2712
27l3
27l4
2715
2716
2717
27l8
27l9
272^
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746

DJAL13
r4 5

C<53

6246
6247
6252
f?51
6252
6253
6254
6255
6?56
6257
6262
6261
6262
6263
6264
6265
6266
6267
6273
6271
6272
6273
6274
6275
6276
6277
6330

i?33
7450

63EI1

63(12

6303
63?4
6335
6306
6307
6310

V?03

.ll.»JAN»71

560?
77?«p

5261
4437
4275
643?

.'303

7301
5266
4437
4271
6430
u3a0
7340
1033
3033
5246
i.

ZdA

2400
C000
;:'000

7775
3146
3147
3150
7473
5600
5627
7173
5714
L.756

7335
1)043

FEXT
TAD T3
SNA
JMP I FLINTP
SM4 CLA
JMP riG04
FINT
FMUL PTEN
FPUT I PTl
FEXT

23106

pace:

»&£9

/TEST DECIMAL EXPONENT

/FINISHED
/,

IS TO THE

LEFTI

/TiMPS ,1000

UC
JMP ,*6

FINT
FMUL TEN
FPuT 1 PTl
FEXT
CMA
TAD T3
OCA T3
JMP ENDFI*3
0004
TEN,
2400
0000
0000
7775
PTEn,
3146
3147
/(3146)
3150
HiNUSEi -305
/(7532)
DPCVPT, DECONV
DCONP*
decon
resols; resolv
DPN,
ONUMBR
XIN,
INPUT
DNORM
INIORM*
FIC04»

is TO THE «IGHTl
/MULTIPLY BY IB

For 4. word

For ampersand

43
P43.
/END Or FLOATING POINT INPUT
/? FREC
/USCO »y H.S, fiCAOER

/CALLS LOAbiNC ROUTINE FOR FILE
/VARIABLES IN EXPRESSIOnSi CALLED BY CFUnSI
/

6311
6312
6313
6314
6315
6316
6317
6320

6311
1^66
3?56
4545
4550
l77l
7410
5313
4562

•6311
FNUMi

tAD
OCA

CHAR
EFOP

GETC
SORTC
TEPHS-l
SKP
,-4
JMP
TStlPR

/••••••••
/•••••••»
/•••*••••
/••••••••
/••••*#••
/••#•*•#»
/•••••••#
/•••«•*••

/*•#••##

A
r^IAliS

/rOCLl2V3 7
2747
2748
2749
2752
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778
2779
27S0
2781
2782
2763
2784
27B5
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801

"565
«321
4734
6322
4453
63?3
3171
6324
1C45
6325
3173
6326
.1413
6327
6212
6330
4733
6331
5536
6332
l533
6333
1631
6S34
6335 ^'020
6336 4545
lfl66
6337
4542
6340
6341 4545
6342 4550
1374
6343
5735
6344
6345 5341
4335
6346
6347 1066
1374
6350
6351 7640
6352 5357
1413
6353
6354 4547
6355 6365
6356 7772
456.6
6357
6360 5167
5171
6361
6362 2572
6363 5173
6176
6364
6365 6375
6366 «317
f«303
6367
6370 0315
6371 V314
6372 o323
.'307
6373
7524
6374
6375 6213
6376 5136

v;.C3

•

640(^

11-J''>71

23106

rp-'2q4

/••#o(»»»»

jis'l
JMS I
DCA
TAD
OCA

*•
PECALL /
/
INTEGER
/••••••••
SUBS
/•
WORD
LESuSS /•••<•»•''•

J212
JMS I

/•••
/•••*»••»
/••••••••

JMP

PASS.

64£'3

6404
6405
5406

;'!??0

73v70

3047
3043
l60i5
7451?

56PB

LOAOIT
EFUN3I

^^"-^ ^°'

«*

GEtC
CHAR
TAD
PUSHA
GEtC
SORTC
GLiST«l
PASS
JMP I

LTAPCi

LERR.

JMP
i»4
PASS
JMS
CHAR
tAb
MlNCOM
TAO
SiA CLA
LERR
JMP

/!|,n**«

!!!!

,!!!!.!!
<•*•••*••
/••••••••
'/!•*!!!!
/••••••••

XLO

JMP

/•«»•••••

mincom; "254
6213
L5'

rPNT.

/••

/»••#••»

317
303
315
314
323

'^^^'^

/»••••••

''/!•!!!!!

LUlSTi

/•»••••••

xxxx
/U::".": jmpS on subcommand or LIBR

soStj
LL!ST-i
LGO-ULIST
ERR0R4

64P0
6401
64C2

PAGE 1»50

^!!!*!».!!
y!! !!!!!
/•••

FLOATING-POJNT INTERPRETER FOR POCAU,
,

Dct 0VER2
ScA OVER!
?Sd ! "Jt

JMP

FPNT

/{NOP) - roR 4.WORO
/NOP) - rOR 4nW0RD.
/GET NEXT INSTRUCTION

/P*ST EXIT

'^--./

/FOCL12.5

2802
28a3
28J4
28r5
23Z6
2837
2808
2309
2810
2911
2812
2813
2814
2815
2816
28l7
2313
28l9
2823
282i
2822
2823
2824
2829
2826
2827
2828
2829
2830
2831
2832
2833
2334
2835
2836
2337
2838
2839
2840
2841
2342
2843
2844
2345
2846
2847
2848
2849
2850
2851
2952
2853
2854
2899
2856

ft4;«7

,
".

6413
6411
6412
6413
6414
6415
6416
6417
6420
6421
6422
6423
6424
6425
6426
6427
6430
6431
6432
6433
6434
6435
6436
6437
6440
6441
6442
6443
6444
6445
6446
6447
6450
6451
6452
6453
6454
6455
6456
6457
6460
6461
6462
6463
6464

6465
6466
6467
6473
6471
6472
6473
6474

•

DiAulS

V?03

li-.JAN.71

3264
l264
123
765;'!

5216
11^4

200
304r
1106

'264

1040
3040
1265
'264

7650
5233
1440
74553

dca
tAO
ano
SNA
JMP
TAD
AND
DCA
TAO
AND
TAO
DCA
TAD
AND
SNA
JMP
tAO
SNA
JMP
DCA

C2ilZ

CLA

.3
P7630
FPNT
ADOR
P177
JUMP
ADDR
AODR
INORCT
JUMP
CLA
LOOP01
ADOR
1

i^000
i.i04P

ADORbCxI

,•430

INOncT; 0400
ITaBLE
TA8LE*
FLPT.
TAO CEXP
JMP .5
tAD CEXP
TLCT.
DCA FLTXR2
CMA
tAD ADDR

704(?

1040
3015
1264
7106
7006

n07
7450
5271
l266
3264
1.664

7450
5267
3264
1306
3014
1117
3057
1415
3414
2057
5257
5664

6575
1305
5275
1305
3015
7040
1040

PAGE

JUMP
JUMP

LEFPUT
I
ADDR
LOOP01I ISZ FPNT
CMA
TAO ADDR
DCA FLTXR2
TAO JUMP
CLL PTL
RTL
ANO P17
SNA
JMP FL6T
TAO TABLE
OCA JUMP
TAO I JUMP
SNA
JMP FLPT
OCA JUMP
tAO CEXl
OCA FLTXR
TAO MFLT
OCA CNTR
TAD I FLTXR2
DCA 1 FLTXR
IS2 CNTR
JMP .-s
JMP 1 JUMP
JUMP,

5572
3040
2200

23106

^|L

/GET PAGE SIT
/PAGE iEROT
/YES
/MO
/C<FPNT>0.4 CONTAINS PACE BITS
/GET

BIT ADDRESS

/INDIRECT BIT?1?
/NO^GO ON
/YES iDEFE« .W/0 AUTO-INDEX
/••••••*• ir PTl WAS ZCROi IT
/••••••*« riLE VARIABLE

/(JET

COMMAND

/GET BITS 0*2iIE OPCOOC

/LOOKUP IN TABLE

/SAVE FLOATING ARSUEMCNTiUNLES

/CO THERE

/EXP TO (ADDR)
./{AOORJ

TO EXP

oULiP

/P0CL12.37
2657
2856
2859
2860
2861
2862
2663
286^
2865
2866
2667
2868
2669
2870
2871
2672
2873
2874
2875
2876
2877
2878
2879
2880
2681
2882
2883
2884
288$
2866
2867
2S68
2889
2690
2891
2892
2893
2894
2895
2896
2697
2898
2899
2920
2901
2902
29C3
2904
29^5
29n6
2907
29G8
29?9
2910
2911

6475
6476
6477
6500
65f)l

65e2
6503
6504
6505
6506
6507
6510
6511
6512
6513
6514
6515
65i6

6517
6520
6521
6522
6523
6524
6525
6526
6527
6530
6931
6532
6533
6534
6535
6536
6537
6540
6541
6542
6543
6544
6545
6546
6547
6550
6551
6552
6553
6554
6555
6556
6557
6560
6561
6562

vp'es

11-JAN»71

23126

FLTXR

/save:

'FROM'

3(!!14

on'

lll7
3057
1414
3415
2057
5300
5201

AO MFLT

'1043

037
4767
4772
5231
4774
4773
4775
4771
5201
t

15145

72e0
5327
3344
3045
3046
3047
5231
4543
(;044

4543
l'04

4544
.)044

4453
t5l0
5344
7040
3264
3343
1345
7642
4566
4543
2405
4544
J044
4544
747a
5362
4543
7470
4544
'040

4770
?264

0''

PAGE 1-5?

ADDRESS

WORD?

UCA CNTR
TAD I FLTXR
DCA I rLTXR2
IS2 CNTfl
JMP ,»3
JMP FPNT*1

EXP-1
EXl-1
JMS I OPMINS
JMS
ALGN
JMP FPNT*1
JMS I RAR2
JMS I RARl
JMS I TRAD
NORF.
JMS I NORM
JMP FPNT*1
/INTERPRETIVE POWER
TAO HORD
FLEX,
CEXP.
CEXl,
FLSU.
FLAD.

ZERO.

CLA
JMP
DCA
DCA
DCA
DCA
JMP

/FSUP'2 . NEGATE THE OPERAND
/FLAD«1 ; FIRST ALIGN EXPONENTS
/RETURN IF NO ALIGNMENT IS POSSIBLE
/TRIPLE PRECISION AODDITION
/SINCE BITS ARE SHIFTED
/R I C^T

/NORMALIZE TmE RESULT
/HiNTIUSE 700X FOR FUNCTIONS.
/2ER0?
/CROCKt***

,•6

EXP
HORO
LORD
0VER2
FPNT^l
PUSHF
FL*C
PUSHF
EXl
POPF
FLAG
JMS I INTE6ER
SPA
JMP .5
CMA
DCA JUMP
DCA OVERl
TAD HORO
S2A CLA

ERB0R2
PUSHF

/YES

/AC TO A

POWER
ThE fXPONENT)

/SETUP ARGUMENT

{

/ONlV POSITIVEi

integer

EXPONENTS

/jcoulo divide)
/temp storage
/(NOP) • FOR 4-WORD
/TOO LARGE OR NEGATIVE EXPONENT
/INITIALIZE TO one;

FLTONE
POPF
FLAC

POPF
ITERl
JMP ,6
PUSHF
ITERI

POPF
EXl
MULT
IS? JUMP

JMS

/"MulT"

•>'
..-^..^.ixj^-t;^;.,,^....,..

/P0Cl12.
29l2
2913
29l4
2915
29l6
29i7
29l8
29i9
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2936
2939
2940
2941
2942
2943
2944
2945
2946
2947
2946
2949
2950
2931
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966

6563
6564
6565
6566
6567
6570
6571
6572
6573
6574
6575
6576
6577
6600
6601
6602
6603
6604
66(^5

6606
6607
6610
6611
6612
6613
6614
6615
66i6
6617
6620
6621
6622
6623
6624
6625
6626
6627
6630
6631
6632
6633
6634
6635
6636
6637
6640
6641
6642
664 3

6644
6645
6646
6647
665(^

ll^JAN«7l

3Ui.l0

vae*3

5355
52?1
4772

JMP .»6
JMP FPNT*1
FLMV.
JMS I MULT
JMP FPNT*1
opmins; MINUS2
MULT.
DMuLT
nqrmi
DNORM
ALCN, ^ ALIGN
RARl.
DIV3
RAR2,
DlV!
TRAD,
0U9LA0
1 TABLE. .-1
FLAC
FLSl
FLDV
FLMV

52,-^1

7153
7SJ04

7335
6623
5754
6757
5733
6575
6513
6507
7107
6565
6517

32'!!5

1205
7500
?041

|HB

/MULTIPLY

0008
NORF

/ROUTINE TO COMPLEMENT FLAC • VIA "MlNSKl*
/••••••••( tS THIS CLA NECESSARY)
/••••*••• RCCODlNG FOR SPACE
/••*•••«•
/••••*•«•

acmins;

CLA
TAD
0VER2
CLL CML CIA
DCA
0VER2
ral
tAD
LORD
CMi. CIA
OCA
LORD
RAL
tAO
HORO
CML CIA
OCA
HORO
JMP I
ACHINS

7004
1045
7061
3045
5605
?000
1045
7450
1046
7650
5311
1041
7450
1042
7450
1043
7650
5623
1040
7041
1044
7450
5273

PAGE

FLO

,'000

6515
r000
7200
1047
tl61
3047
7004
1046
7061
3046

23106

ALICNi
TAO
SNA
TAO
SNA
JMP
tAO
SNA
TAD
SNA
TAD
SNA
JMP
TAO
CMA
TAD
SNA
JMP
OCA
TAO
SMA
CIA

HORO

/•••••••«
/*#••••••
/•*••#•••
/••••••••
/•

••

/•••**•••

/SUBROUTINE TO ALIGN
/BINARY POINTS

LORD
CLA
NOXl
ACIH

/IS MANTISSA 2ER0T
/YESi RESULTiOPERANO
/NO. IS OPERAND ZERO?

AClL

OVERl
CLA
I
ALIGN
EXl

/YES,

EXIT','

lAC

EXP

AOONE
ACHINS
ACHINS

/ARE EXPONENTS EQUAL?
/YES

/NO

/NCCATE AND

TOSLlS..^?
2967
2963
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
29e0
2981
2982
29e3
2984
29B9
2986
2987
2988
2969
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
30i4
3015
3016
30i7
3018
30i9
3020
3021

TlALli'

6651
6652
6653
6654
6655
6656
6657
6660
6661
6662
6663
6664
6665
6666
6667
6670
6571
6672
6673
6674
6675
6676

3322
"322
1336
7710
5275

6677
6700

53i34

6701
6702
6f03
6704
6705
«t06
6707
6710
6711
6712
6713
6714
6715
6716
6717
6720
6721
6722
6723

6724
6725
6726
6727
6730
6731
6732
6733
6734
6735

V^OS

.1235

7700
5265
<J357

^322
5261
5273
7040
1043
3040

ASHFTi

"1723

2322
5270
2223
5623
1040
7700
1044
7700
5623
5306
1044
>703
1205
7743
5623
1040
3044
1041
3345
1042
3046
1043
3047
5623
'000
5754

•'.1P0

4751
1044
775e
5353
7.»C1

3043
l35?
3040
4223

ADONCi
NOX,

N0J<2(

NOXl,

llijAM.'?!

OCA
TAD
TAO
SPA
JMP
TAO
SMA
JMP
JMS
IS2
JMP
JMP
CMA
TAd
DCA

23126

PACE 1«S4

AMOUNT
AMOUNT
TEST2

•/SAVE THE OirPE»ENCE

CLA
NOX

/CAN TME EXPONENTS BE ALIGNED?
/NO, USE' LARGER OV THE TWO,
/YES, SHIFT THE SMALLER

ACMINS
CLA
ASHFT
DIV2
AMOUNT
.-2

AOONE

EXi
EXl
JMS I TAGl
IS? AMOUNT
JMP .-2
ISZ ALIGN
JMP 1 ALIGN
TAO EXl
SMA CLA
JMP N0X2
TAO EXP
SMA CLA
JMP I ALIGN
JMP .3
TAD EXP
SMA CLA
TAO ACMINS
SMA Sik CLA
JMP I ALIGN
TAD EXl
OCA EXP
TAD ACIH
DCA HORO
TAD ACIL
OCA LORD
TAD OVERl
OCA 0VER2
JMP I ALIGN

/MISSION IMPOSSIBLE!
/CHECK FOR SIGN OlFFERINCE

/•
/si»

/TEMP STORAGE OP DIFFERENCI, BOTH POS EXP OR BOTH

NEC',"

/OK (•)
/USE LARGER

amount;
TAGl,
DIVl

/LEAVE 12 ei T ANSWER IN AC UPON RETURN
/LEAVE rLAC AS AN INTEGER.
FIX.
/VIA (INTEGER)
JM§
ABSOL
TAD EXP
/TEST FOR FRACTION
SPA SNA CLA
JMP FIXM
/DOU?LE CHECK FOR MINUS ONE.
I

lAC
DCA
TAO
OCA
JMS

0V£R1
P27
EXl
ALIGN

/INIT ALIGNMENT
/DO THE ALIGNMENT TO AN INTEGER
^tamSimitmt^iMIMMmSUU^^iMiiiiiilia^si

ClALlS
3022
3P'23

3G24
3(?25

3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
304(8

3041
3042
3043
3044
3049
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3056
3059
3060
3061
3062
3063
3(164

3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076

6736
6737
6740
6741
6742
6743
6744
6745
6746
6747
6750
6751
6752
6753
6754
6755
6?56
6757
6760
6761
6762
6763
6764
6?65
6766
6767
6770
6771
6772
6773
6774
6775
6776

6777
7000
7001
7002
7003

«J27

V.-*03

ii;jAN"7i

23106

TEST2.

0027

/ALREADY OONEI

2?!47

3047
4752
3346
5724

;'000

73l'0

1045
7510
7020
7010
3045
1046
7010
3046
1047
7010
3047
2044
5757
5757
6777
i337
/377
0212
i.'375

7777

(43)«rOR 4aWOR0

SKP

2*345

5571
7173
3044
3045
3346
5344

IS? 0VER2
JMP ,•4
ISH LORD

5344
?046
7410

.'027

PAGE

e27.
ABSOL»
RESOLi
FIXM,

DIV2.

ISZ NORD
DCA 0VER2
JMS I RESOL
TAD LORD
JMP I FIX
27
ABSOLV

/CLEAR THE FRACTION
/EXjT WITH LOW ORDER RESULT IN AC,

RESOLV
EXP
/CLEAR EXPONENT
HORO
LORD
TEST2*6/SHIFT FLAC RIGHT
CLA CLL
tAO HORD

DCA
DCA
DCA
JMP

SPA
CML
RAR
OCA
TAD
RAR
DCA
TAD
RAR
DCA

HORO
LORD
LORD
0VER2

0VER2

ISi EXP
JMP I DIV2
JMP I DIV2

SPECIAL*.
337
377
212
375

/INPUT CHARACTERS
/LEFT ARROW
/RUBOUT
/L.F.
/ALT MODE

•1

/<A*B*C)«(0*E*r)PA«OiA»EiB«D.B«E
OMULt»
/N- PREcISlO^J MULTIPLT WITH
/PRODUCT IN TRIPLE PRECISION
lAC
tAb EXl /ADD EXPONENTS*!
/AND DETERMINE SiCN OF RESULT
JMS SIGN
SPA CLA
JMS MINUS2
DCA OATUM-1
DCA OATUMeZ
DCA OATUMaS
OCA 0ATUM«4
tAD A
SAVE
TAD

/INITIALI2E RESULT

/A*0
/STORE IN MP2
/SINGLE PRECISION MULTIPLY

MULTY
2

../

/ACCUMULATE STARTi

IN #2 DATA WORD

/rocLi?

3?77
3C7S
3079
3080
3031
3?82
3083
3084
3085
3086
3067
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
3l08
5109
3110
.3111
3112
Sll3
3114

.3121
3122
3123
3124
3125
3126
3127
3128
3129
3130
3131

^'.ULTY

7^26

1046
3751
1?41
4752

TAD B
SAVE
TAD D
MULTY

;-303

1042
4752

multy

7?43
7044
7045
7046
7047
7050
7051
7052
7053
7054
7055
7056
7057
7060
7061
7062
7063
7064
7365

7366
7067
70^0
7071
7072
7073

/a»e:

1342

75^42

3117
3118
3119

33106

"752

7031
7C32
7033
7034
7P35
7?36
7037
7?43
7?41

-3115

li;jA'.'r71

7,'?3

7e3i3

Vk.;v'3

7.'24
7.'25
7.-^27

;3ii6-.

3120

-JlALlC

:?7

7074
7075
7e76
7077
71^0
71P1
7102
71 ?3

7104
7105
7106
7107

30 3

TAD
4

TAD B
MULTY

'•005

1047
3751
1341
4752

TAD C
SAVE
TAD D
4

1042
4752

TAD E
MULTY

e.005

1043
4752
006
1301
3345
1300
3046
1277
3^47
4301
3047
5604
7102

tAD r

/B»r

/c»d

/C»E
/C«F

omdonCI TAD 0ATUM»1
/COPY RESULT
DCA HORO
TAD DATUMbZ
DCA LORD
tAD OATUM«S
DCA 0VER2
JMS MULOIV
/«N0P) • FOR 4.W0R0
DCA 0VER2
JMP I DmuLT
OATUM»V
/INTEflMEOlATE STORAGE
0/i!(6»LOW ORDER RESULT.
0/«5
0/«4

0/IK3

•000

0/i((2

MULDiV;

2350
4451
4747
7030
5701
.1041

/A«F

MULTY

003

/{Oca OATUM-»5)«roR 4«W0RD

MULTY

•?004

.000
-300

/B«E

0MULT4, JMP DMDONE
DCa OATUM06
Tad f
SAVE
TAD A
MULTY

,"304

'.'000

/B»D

1046
4752

'000

1<»56

1.004

5263
3274
1043
3751
1045
4752

PAGE

FLDV,

/#i-high order RESULT
/TERMINATE MULTIPLY AND DIVIDE.
ISZ SICNF
/CORRECT FOR SIGN
JMS 1 MINSKI
/SHIFT LEFT
JMS I NORMF
NOP
JMP I MULDIV
TAD ACIH

/•

/4IDIVI0E

) .^'

llijAN»71
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3146
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171
3172
3173
3174
3175
3176
3177
3178
3179
3190
3181
31S2
3183
3184
31S5
3186

7110
7111
7112
7113
7114
7115
7116
7117
7120
7121
7122
7123

7124
7125
7126
7127
7130
7131
7132
7133
7134
7135
7136
7137
•7140
7141
7142
7143
7144
7145

765.^

SNA CLA

4566

E:RflOR2

j.?4a
7!t41

TAD
CMA
lAC
JMS
SMA
JMS
JMS
JMS
JMP

7i^i31

4324
77?i!

4353
4750
4301
5723
6401

x-000

1044
3044
1124
t'345

1341
7700
7340
3050
1045
7450
5746
7710
4451
1041
7450
5746
5724

EXl
lAC

23106

PACE

/DIVISION BY iE«»0
/SUBTRACT EXPONENTS*!

SIGN
CLA

/SET UP SIGNS

MINUS2
I
DIVIDE
MULOIV

/NEGATE PiVlSOR
/DIVIDE

,*1

FPNT*!
/THIS SUBROUTINE PREPARES MULTIPLY AND DIVIDE
/FOR ANY COMBINATION QF SIGNED ARGUMENTS AND FOR ZERO,
/THE Result or either is zero if flag « 0,
/RESULT OF MULTIPLY IS HERO iF EITHER IS iEROI
/DIVISION 9Y ZERO IS CHECKED BEFORE THIS
/ROUTINE IS CALLED.
/THE Calling ac contains an update value for the
/EXPONENT, THE RETURNING AC CONTAINS TwE SIGN OF
/THE ARGUMENT FOR FURTHER TESTING BY EACH ROUTINE,
SIGN.
/TEST AND SAVE SIGN OF RESULT
TAD EXP /COMPUTE NEw EXPONENT FOR MUL-DIV,
DCa EXP
TAD P4000
/LOAD 4000 TO XOR THE SIGN BITS
AND HORO
tAO ACIH
SMA CLA
/RESULT MAY BE ZERO
CMA
OCA
tAO
SNA
JMP
SPi
JMS
TAD
SNA
JMP
JMP

signf
HORD
I
REVIT
CLA
MlNSKI
ACIH

/ANSWER IS ZERO,
/TAKE ABSOLUTE VALUE OF FLAC

/RESULT or EITHER HAY BE ZERO

REVIT
SIGN
/SIGM OF RESULT • SIGNF

/il
/-0
7146
7147
7150
7151

7152

6522
7335
7261
3751
7256
4752
7230
•11345
.

?46

V.047

'041
1^042
l'043

REVIT»
ZERO
NORMFi
DNORM
DIVIDE. OUROIV
SAVE»DCA 1
MP2
MULTY'JMS 1
MP4
A«FlaC*1
B«FlaC*2
CiTlaCaS
OfAClH
E'ACIL
r«oveRi

/rOCLl2
3187
3ia8
3109
3190
3191
3192
3193
3194
3195
3196
3197;

3198
3199
3200
3201
3202
3233.
3204
3205
3206
3207
3239
32e9
3210
3211
3212
32l3
3214
3215
32i6
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241

LlALlC

71?3
7154
7155
7156
7157
716ft

,
.

7161
7162
7163
7164
7165
7166
7167
7170
7171
7172
7173
7174
?l!5
7176
7177

7200
7201
7202

?i()i0

V.TJ

rM3
7041
3043
1042

704i?
743?!

7101
3042
1041
7040
7430
7101
3041
5753
>'300

72("7

7210
7211
7212
7213
7214
7?15
7216
7?17
7220
7221
7222
7223
7224
7225.
7226
7227

'lA
TAD
CMA
OCA
TAD
CMA
SZL
lAC
DCA
TAD
CMA
S2l
I AC
OCA
JMP

23IH6

PAGE l^SS

/NEGATE OPERAND
/TRIPLE PRECISION

Mr\us2 •

73,'if

CLL
OVERl
lAC

OVERl
AClL

CLL
AClL
ACIH

;

CLL
ACIH
I

MINUS2

resolv ;
TAD
sicnf
SPA CLA
JMS I MINSKI
JMP I RESOLV

l'D50

7710
4451
5773
7200

• 7200

11000

MP4,

7450
5600

SNA
/NO RESULT ADDED IF iEBO
JMP I MP4
/FOR Zkl INSERT THE FOLlOWINGI
/7203 3206 OCA .*3
/7204
TAD MP2
1256
/7205 7425 HOL MUY

/7206
/7207
/7210
/7211
/7212
7203
7204
7205
7206

11- J'N»7l

3254
3253
1257
3255
7100
1254
7010
3254
l253
7420
5220
71?0
1256
7''10

3253
?255
5213
i254
7«'10

3255
160?

MP6,

/SINGLE PRECISION! UNSIGNED

"MULTY"

1^000

3253
7501
3255
5227
DCA
DCA
TAD
DCA
CLL
TAD
RAR
DCA
tAD
SNL
JMP
CLL
TAD
RAR
DCi
IS?
JMP
tAn
RAR
OCA
TAD

DCA MPS
MOA
OCA MPS
JMP ,*15
MPl
MPS
THIR
MPS

/12 SITS BY 12 BITS

MPl

HPl
MPS
,*3

MP2
MP5 /SAVE HIGH ORDER RESULT
MP3
MP6
MPl /CORRECT LOW ORDER RESULT
MPS
MP4
I

/PICKUP SCALE FACTOR

/F0CL12
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296

:^^B

:.ULin

7? 7:

7,U1

7??1
7?32
7233
7?34
7535
7236
7237
724?
7241
7^42
7243
7244
7245
7?46
7247
7353
7251

1252
3254
1255

7252
7253
7254
7255
7256
7257
7260
7261
7262
7263
7264
7265
7266
7267
7273
7271
7272
7273
7274
7275
7276
7277
73iJ0
73(?1

73f2
73e3
73C4
7305
7336
7307
7310
7311
7312
7313
7314

V'C3

11^,;an»71

71G£!

1654
3654
2254
72?4
1253
1654
3654
742G
563?
2254
2654

".630

5246
7102

7764
7751
;'a30

ouBoiv;

i'000
f^00fl

.'030

3200
3254
l260
3255
7413
4527
71(50

1042
1046
3256
7004
1045
1041
7423
5304
3345
1256
7346
7200
1254

7??4
3254
iZctJ

7304
32?0
2255
5267
1254

datuma
MPl
MP 3
MPl
MPl
MPl
I

PAGE

l^p

/COMPUTE ADDRESS
/TEmp
/LOy ORDER PaRT

/ACCUMULATE

MP5
MPl
I
MPl
I
MP4
I
MPl
MPl
I
MP4
I
.•3

/NO CARRY

/EXIT
/CARPY AGAIN

/////
DATUMAi DAtUM
MPS,
MPl,
MP3,
MP2,
TMIR.
Mir,

-.'033

CIA
TAn
OCA
TAD
CLL
TAD
OCA
1S2
RAL
tAb
tAD
OCA
SNL
JMP
IS2
IS2
JMP
JMP

2312'.

DV3.

/PR.OOUCT

/MULTIPLIER

/MULTIPLICAND
-14
•27

/12 BITS
/2 OR 3

DCA
DCi
TAD
DCA
SKP
JMS
CLL
TAD
TAD
OCA
RAL
tAD
fAD
SNL
JMP
DCA
TAD
DCA
CLA
TAD
RAL
DCA
TAD
RAL
OCA
IS2
JMP
TAD

MP4
MPl
Mir
MP3
I

DOUBLE

ACIL
LORD
MP2
HORO
ACIH

/(•43) - rOR 4>W0RD(i7735)
PRECISION DIVIDE

/INIT BIT COUNTER

/SHIFT rLAC LErT

/COMBINE ONE POSITION AND (4-WORD)
/SAVE RESULT
/ADD OVEPrLOW

/SKIP ir ovEprLOw

.4
hORO
MP2
LORD

MPl

/UPDATE rLAC
/CLEAR ACCUMULATOR
/SAVE OVERfLOW BITS CIRCULARLY

MPl
MP4

MP4
MPS
0V3
MPl

/TEST TOP END OF DIVIDE

/LOAD RESULTS

tfv

/rOCLl2.^7
3297
3298
3299
3300
33f!l

3332
3323
3334
3305
33P6
3307
3308
3309
3310

33H
3312
33l3
3314
3315
3316
3317
3318
33l9
3320
3321
3322
3323
3324
3325
3326
3327
3323
3329
3330
3331
3332
3333
3334
3335
3336
3337
333S
3339
3340
3341
3342
3343
3344
3345
3346
3347

7316
7317
7320
7321
7322
7323
7324
7325
7326
7327
7330
7331
7332
7333
7334
7335
7336
7337
7340
7341
7342
7343
7344
7345
7346
7347
7350
7351
7352
7353
7354
7355
7356
7357
7360
7361
7362
7363
7364
7365
7366
7367
7370
7371
7372
7373
7374
7375
7376

OlALl"
3046
l200
3345
5661
3335
2255
5267
3 335
3345
l2?0
3046
1254
3347
5661
.'030

4775
4366
1045
7450
1047
7450
1046
7650
5363
1045
7104
7710
5360
4527
7140
1044
3344
5347
4776
4366
5735
7044
5735
6757
•/000

5345
75ie!

7041
7710
4765
5766
5571
7173
74Cip

7400
7401
74^2

4437
6274
,000

llijAN*?!
dca
TAD
DCA
JMP
RA^
DCA
IS?
JHP

7iiidA

-3346

3349
3350
3351

ViH"3

TA(3

DCA
TAD
OCA
tAD
OCA
JMP

ONORMi

EXIT3»
XRAR2I
TEST4I

2310*^

PAGE

l'*60

lord
MP4
WORD
1

0U90IV

/(NOP)
/EXTi^A Fc.R 4«WC)R0

ONORM
MP3
0V3
DNORM
HORO
MP4
LORD
MPl
0VER2

/TEST rOR END OF OIVIOC

DU8D1V
/SUBROUTINE TO N0RMAL12E fLAC
ABS0L3
I
TEST4
HORD
/IS MANTlSSAfB?
0VER2
I

JMS
JMS
TAD
SNA
TAD
SNA
TAD LORD
SNA CLA
JMP EXITS
TAD HORO
RAL CLU
SPA CUA
JMP ,6
JMS I DOUBLE
CMA CLt.
tAD EXP
OCA EXP
JMP .-le
JMS I RES0L3
JMS TEST4
JMP I DNORM
DCA EXP
JMP 1 DNORM
DIV2
TAD HORO
SPA
CIA
SPA CLA
JMS I XRAR2
JMP I TEST4

/YES

/WILL SHirT BE Too PAR?

/00n»T LEAVE 4000
/SET TO ZERO
/RETURN

/TEST FOR 4000

/SHIFT BACK

ABS0L3, ABSOLV
resols; RESOLV
• 7400
/PACE 1 8
/FLOATING SQUARE HOoT FUNCTION
XSQRTi
FINT
FPUT FPACl
/VALUE
I'EXT
/NEWTON'S METHOD IS USED

/rOCLl2.37(
3352
3353
3354
3355
3356
3357
3356
3359
3363
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379
3380
3381
33S2
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
3395
3396
3397
3398
3399
3430
3431
3432
3403
3404
3435
3436

:IAL1C
'

74r6
74.'7

7411
7412
7413
7414
7415
7416
7417
7423
7421
7422
7423
7424
7425
7426
7427
7432
7431
7432
7433
7434
7435
7436
7437
7440
7441
7442
7443
7444
7445
7446
7447
745?
7451
7452
7453
7454
7455
7456
7457
7460
7461
'462
7463
7464
7465
7466
7467

li-JAN»7l

y'las

SP4 CLA

4566
ia44
751P
7323
7310
327D
7430
227?
7000
l267
3271
3272
3273
1275
7450
1276
7650
5265
4407

ERR0R2
TAD EXP
SPA
CML

S2l
IS?
NOP
TAD
OCA
OCA
OCA
tAD
SNA
tAD
SNA
JMP

070001

5227
3344
5536
3015
7470
^1000

ITEHI
ITERI

SOCONl
ITERl*l
ITER1*2
1TER1*3
FPAC1*1

FPACl*2
CLA
SQEND

CMA
EXP
EXP
EXP
lAC
ITER!
CLA
viMP ROOTCO
TAO hORD
CMA lAC
TAD ITERI*1
S2A CLA
JMP ROOTGO
TAO LORD
CMA lAC
TAD ITEfll*2
SMA
CMA lAC
lAC
SMA CLA
RETURN
ROOTGO; FINT
FPUT ITERI
FEXT
JMP CLCU
SO£NOi
OCA EXP
RETURN
SQCOMl, 3015
CL*
TAD
OCA
TAD
CMA
tAO
SiA

BUFFER? •
iTERli

/MAKE FIRST APPROXIMATION
/TEST LSB OF EXP

/NUM9ERi0

FlNT
FGET FPACl
FDIV ITERI
FAbO ITERI
FEXT

CLCU,

3270
1270

7041
7301
77^0
5536
4437
6270

/NUMBER IS MEGaTIVE«IMAGINARY RQOTS
FROM FINT
/Llv< IS
/MATCH The sign WITH LINK BIT

R Afl

tDCA

•.-.274

75130

PAGE 1»|

GETSGN

,'?45

77lt'

7240
1044
3044
1044
7041
1270
7640
5261
1045
7041
1271
7640
5261
1246
7341
1272

23l?i

/ARE EXPONENTS EQUAL?
/NO
/ARE HICh-OROCR mANTiSSAS EQUAL?

/NO

/OO LOW-ORDER MANTISSAS AGREE

/WITHIN ONE BIT?

/rocii?
34^7
34::8

Zi:9
3410
3411
34l2
3413
3414
3415
34i6
34l7
3418
34l9
3420
3421
3422
3423
3424
3425
3426
3427
3428
3429
3430
3431
3432
3433
3434
3435
3436
3437
3438
3439
3440
3441
3442
3443
3444
3445
3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461

z-Uii?.

.^7

ViM^

23124

lli^J.. <«

7471
7472
7473

,0gp

T^M

'P^C

7475
7476
7477

,?CP

':^3S

7503

BUFFER* 13
/•7503

75?e
75C1
75?2
75?3
75,M
75t«5

75?6
75t'7

7513
7511
7512
7513
7514
7515
7516
7517
7520
7521
7522

r:D

JOC

F;-A; i,

.;300

SCOPOU

106
1367
744C
53lC
3364
2365
5321
i37l
7100

AND
TAD
SEA
JMP
CRLr,
DCA
IS2
JMP
nocrlF, TAD
CLL
TAD
SNL
SKP CLA
TAD
SNA
JMP I
IS2
iTSOKi
lOF
LINC

11306

7420
7610
1361
7453
57321

2364
6032
6141

P177
C7763

i'644

LOF
STh
CUR
POP

1362
.'Pll
i'0P2

62?1
2366
1366
1215
7710
1361
1365
771.11

5356
l366
6213
4fl20
6.131
534:5

6134
J372
765-?

6132
l370
3774
3366
3365

••

/••»««»»»
/•••«••«»
/••»«»•»»
/•••«•••»
/••».••••

NLINES

/•»»•••••

SCOPOU
NCOLS

/»•»«•»»•
/••»»«••#
/•••»••••
/**••«•#•

4
I

OPTR

/•••••••#
/«««•••••

pmode
7527
7530
7531
7532
7533
7534
7535
7536
7537
754C
7541
7542
7543
7544
7545
7546
7547
755^
7551
7552
7553
7554

/ADDRESS OF nEXT FREE LOCATION IN 10»OIGIT VERSIONi
/••••••»•
/•••••••• OUTPUT ROUTINE FOR SCOPE
/••»••••• STORES CHARS IN FlOli LOCS 4a0;7T7

NOCRlF
NCOLS
NFEEDS
ITSQK
07655

LMOOE
7523
7524
7525
7526

PAGE 1«62

6201
IS?
NCHARS
TAO
NCMARS
07000
tAD
SPA CLA
TAO
NLINES
TAD
NFEEDS
SPA CLA
JMP
NOHANG
TAD
nchars
6213
JMS
WAITER
KSF
JMP
KRS
tAD
07566
SNA CLA
KCC
TAD
06377
OCA I
PPTR
DCA
NCHARS
DCA
NFEEDS

/••••••••
/••••••••
/•••»•••»
/••••••»•
/•••
/••••••••
/•••»•••»
/«•••»••• TOO MANY LINES/CHARS DISPLAYED
/••»••••• mAnC ON DISPLAY UNTIL SOMETHING

TyPED-^

/•»••••••
/•••«••»»
/•••••»•»
/••••••••
/•••»••••
/••••••»•

IGNORE LINE FEED

CLEAR
THE
CHARACTER

/rOCLl2,3l
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472
3473
3474
3475
3476
3477
3478
3479
3480
3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
3491
3492
3493
3494
3495
3496
3497
3498
3499
3500
3501
35p2
35213

3504
3505
3506
3507
3539
3509
3510
3511
3512
35l3
35l4
35l5
3516

OlALlC
7555
7556
7557
7560
7561
7562
7563
7564
7565
7566
7567
7570
7571
7572
7573
7574

3364
6H.M
j364
1373
7740
5305
57C0
;:0?3
I'

030

:*J00

7763
6377
7655
7566
7716
6002
7576

Vtns

nohanc;

MINES,
NCOlS»
NPEEOS,
nchars;
077631
063771
07655i
07566»
077l6»
PPTR,
•7576

ll-JANi.71

?3lil6

DCa
\C0LS
iom
TAO
NCOLS
07716
tAO
SMa S2A CL*
JMP
CRir
JMP I
SCOPOU

/•••••••• DISPLAY
/••»••••»
/••••••#•
/*•#•••••
/••••••••
/•••••••#
/••••••••
/#•••••••
/••»••••«
/••••••••

•

7763
6377
7655
7566
7716
OPtR

PACE

/•••••••»

/#••••••
/••«•«•««
/*•••••••
/••••#•••

vrOlS PUNCtlON ; STORES 2 WQROS
/PER Call in 2200 thru 5777 im floi
/

7576
7577
7600
7601
7602
7603
7604
7605
7606
7607
76I0
7611
7612
7613
7614
7615
7616
7617
7620
7621
7622
7623
7624
7625
7626
7627
7630
7631
7632
7633
7634
7635
7636

7611

4453
6213
5601
2f71
4407
4251
(•000

4453
7510
7041
3350
1066
1256
7640
4566
4540
1612
4407
4253
V 300
4453
3351
1271
1247
765^
4566
6002
6211
7350
.•350

3671
2271
l35l
1250

CALLIN. JMS I
6213
JMP 1
INCALL
XOlSPi
TINT
rMUL
TEXT
JMS
SPA
ClA
OCA

INTEGER /•••••••
/•*«•*•••
/•••••••«
,*1

/••»•*•#

/••»••••«
rORHUN /•*••••••
/••••••••
INTEGER /•»•**••#
/•#»»••»•
/•#•»••»•
/•••»•••#
STEMP
/•*#•••*•
TAD
CHAR
/••••••••
TAD
MMCOM
S2a CLA /•••»»•»•
ERR0R3 /••»•••••
/••*•••••
PUSHJ
EVAL-l /••••••••
/••••»•••
TINT
TMUL
riVHUN /••••••••
/••*•••••
TEXT
JMS I
INTEGER /•#•••••#
OCA
STCMP2 /•*••••••
SPTR
TAD
TAD
MLIMIT
SNA CLA
ERRORS
/••••••••
lor
/cor xu /••••••••
6211
I

CLA CLL CMA RAR
AND
STEMP
/#»#••••
DCA I
SPTR
/•••*•••«
ISI
SPTR
tAO
STEMP2 /••••»•••
/#•»•••••
07400
tAO

{r^

/F0CL12.37

35l7
35ie
3519
3520
3521
3522
35?3
3524
3525
3526

76«i'

7641
76<2
76<3
7644
7645
7646
7647
7652
7651
7652
7653
7654
7655
7656

3527

3528
3529
3533
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
3547
3548
3549

ViH'S

llijAN-7l

MLlMlTi -5776
7400
07400,
FORHUN; 11J2700
FIVHuN; ll|3770J0

/••«••»••

OCA

724;^

CLA CMA
SPTR
DCA I
/CDF
62P1
ION
EFUNSJ
JMP I

IS?

3671
6201
6v?31

5536
22-32

PAGE 1»64

/••••••••
/••.•••••
/••..•••#
/••••••••
/•••••••«
/••#•••••
/••••••••
/(-LAST lOC OF DISP POINTS"!)
/•••••••»
/••••••••

SPTR
SPTR

3671
S271

740?
911
27B0
.«11
J770

23106

•

:0oe

7524

MMC0M»

/•••••••«

-254

/JMS Wait is EQUIVALENT
/TO jMp .2 WITH A REFRESH 0?
/THE DISPLAY ON THE WAY
/

35518

3551
3552
3553
3554
3555
•3556

3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568

llALlJi

7657
7660
7661
7662
7663
7664
7665
7666
7667
7673
7671
7672
7673
7674
7675
7676
7677
7700

-000
7346
3257
3257
6002
l732
6213
4020
6001
5657
1000
'020
l334
3271
6002
6211

77!51
77i'2

62(11

7703
7734
77r5
77C6
77C7
7710
7711
7712
7713
7714
7715
7716
7717
77?0
7721

724P!

3671
6001
5672
?2!?0

6335
47k'5
i.4i3

4547
7721
7772
4566
7752
7761
7753
7763
7771
7734

WAIT.

SPTR.
CLEAR*

/•••••••

CLA CLL
tAD
OCA
lOF
tAO I
62l3
JMS
ION
JMp I
1000
tAO
DCA
lOF

CMA RTL /•••••••#
/••
WAIT

WAIT

/•*•••*••
/•

PNCHARS /••••*•*•
•••
/CIF CDF !«>/
WAITER /••*•••••
/«••••#•#
/••••••••
WAIT
/•••••••»
/••••••»• CLEAR POINTS FROM THE SCOPE
ODISSP /•••••#••
/•••••#•»
SPTR

/••»•»#•

/CDF le /••••••
6211
/•••••»•
CLA CMA
•
/•
SPTR
DCA I
/»•••••••
6201
/CDF
/•••••••#
ION
/••••»•«•
jMP I
CLEAR
/•••••••(FORST LOC OF OISP POINTS)
ODlSSPi 2200
PASS
PPASSi
PPASS
OUTPUT, JMS I
/•#••*••• JUMPS ON SUBCOMMAND OF OUTPUT XXX
POPA
••
/
SORTJ
OLlST»l /••••••••
050"0LlST/*««»»»«*
OERRORi ERR0R3 /•*••••••
/«•#•••••
P50,
OC
/•»•••###
OD
/»••»••»•
OE
/••••••#•
OS
/••»•••»•
OT
/•••••§•#
0!

-.":

/F0CLl2,37i
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3560
3581
3582
3583
3584
3585
3586
3587
3563
3589
359B
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
361?4

36P5
3606
3607
3608
3609
3610
3611
3612
36l3
3614
3615

7722
7723
7724
7725
7726
7727
7730
7731
7732
7733
7734
7735
7736
7737
7740
7741
7742
7743
7^44
7745
7746

7750
7751
7752
7753
7f54
7755
7736
7757
7760
7761
7762
7763
7764
7765
7766
7767
777PI

7771
7772
7773
7774
7775
7776
7777

'UUlS

vrijs

3t^3

CLiSTi

Z.U

3?5
323
•324

311
6377
•

.'611

7566
6002
1066
1256
765a
5746
2745
1745
7640
4257
5731
2661
5351
775!?
i«000
•.(000

4575
3732
1330
3733
3777
3776
5731
7000
4257
6002
6141

303
304
335
323
324
311
006377. 6377
OEX[Ti '.fROC
pnchaRs iNCHARS
POPTRi
OPfR
TAD
Oil
TAD
SNA CUA
JMP I

/••«•*•••
/••««•#••
/••*«••••
/•*••••••
/*•»*••••
/•••«•«••

/•#••#»••
/*»•«*•••

CHAR
MMCOM

PSETCLK /••••••••

EXPRESSION

PCLKrLtS iCLKFLG

PSETCUX iSEtCLK
#7750
STEmp*
STEHP2;

:10i?4

'.eez

0002

••0P1

PACE

PCLKFLC /••
IS! I
TAD I
PCLKFLC /•••••••
SZA CLA
/••••••»•
JMS
WAIT
JMP I
OEXIT

JMS I
DCA I
TAD
OCA I
DCA I
DCA I
JMP I
NOP
JMS
lOr
6141
0004

6001
1375
1374
3063
5731
?676
4602
7564
7565

23106

ll-JAN-71

OCi
OEi

ODi

OS*

ION
tAD
TAD
OT.
OCA
JMP I
PXOUTL. XOUTL

/«•••*•••
/•••••••*
/••••*•••
/••»•••••
PCLEAR /••••••••
PNCHARS /*••••#••
006377 /••*••»••
/»•»•*•••
POPTR
PNFEEOS /#•#•#•••
PNCOLS /••••••••
/••»••**•
OEXIT
-

WAIT

/•••••••

/LINC
/ESF
/POP

/*»•#•»•
/#»••••#•
//»»•»»*»

PSCOPOU' /••*«•«•• SET OUTDEV TO SCOPOU
/••••••• SET OUTDEV TO XOUTL
PXOUTl.

OUTDEV
OEXIT

PSCOPOU iSCOPOLI- XOUTL
pncols; NCOLS
pnfeeOs •nfeeos
FIELD i

/#*•••••
/•••*••••
/#•••••••

ULi;

/rocLi2.:^7

?2n

iiiiiiii

lluiiil

ii-jAN-^ri

2313*

PAGE 1-66

uuiiii
iiiiim

11111111
11111111

iiiiiiii

imiiii

iiiiiiii

uiiiiu

iiuiiii

iiiiiiii
illlllil

iiiiiiii
llllllll

11111111
11111111

iiiiiiii

llUllll

iiiiiiii
llllllll

llllllll
illlllil

llllllll
iiiliiii

llllllll
llllllll

jiiiuii

5-302

v:: 3

uiiiiu
iiiiim

iiiiuii

uiiiiii

iiiuiii

11111111

llllllll

llllllll
llllllll

illlllil
llllllll

llllllll
llllllll

iiiiiiii

i'403

UililU

i'Saz"

iiiiiiti

Z600
?700

iiiniii
iiTiiiti

llllllll
llllllll

llllllll
iiiliiil

llllllll
llllllll

1300.

1100

llllllll
iiiiiiii

llllllll
illlllil

llllllll
iiiliiii

llllllll
llllllll

1200
1300

iiiiiiii
iiiiiiii

llllllll

iliniii

liiliiii
liiliiil

llllllll
llllllll

1400
1500

lltlilil
iiTiiiii

llllllll

mum

llllilll
llllllll

llllllll
llllllll

1600
1700

llllilll
liiiTiil

llllllll
llllllll

llllilll
llllilll

llllllll
llllllll

?000
2100

iiiiTiii
Illlllil

illlllil
illlllil

llllllll
llllilll

llllllll
llllllll

2200
2300

Illlllil
iiiiTiii

flllllll
llllllll

llllilll
llllilll

llllllll
llllllll

2400
2500

liiliiil
liiliiil

illlllil
illlllil

llllilll
llllilll

llllllll
llllllll

2600
2700

liiliiil
liiliiil

llllllll
llllllll

llllilll
llllilll

llllllll
llllllll

3000
3100

liiliiil
liiliiil

llllllll
llllllll

llllilll

llllllll
0000005)0

llllllll
200000^0

llllllll
00000000

llllllll
00030000

llllllll

GP000?I00

3200
3300

O0!^0(»7iil

11111100

00000000

00000000
0000P000

00000000
J'00a0t)00

00000000
00000000

llllllll

11000000

000000(^0

^000(9000

011*10000

00-300000

00000000
00000000

D000e0?0

P0'iP'S?t'!?

liiliiil

llllllll

llllilll

llllllll

b90i?0P?<?0

•030(->C390

0(^000000

000001000

E£9?00e;fl0

ti30003?i0

1,30000000

3400
3500

3600
3700

llllllll
00000000

;IAH3

/rOCLl2,-«7

v;'i!3

11-JAN.71

23126

PACC ini

ijLiiiiii

uuiiii
llUllU

430?
4100

4200
4300

4400
<S00
4600
4700

B0«0P?'?3

5000
5100

Uiliiil
UilTiil

5200
5300

liilTiil
lliliiil

5400
5500

Uiliiil
uiliiil

5600
5700

uiiiiil

6000

lliliiil

ftl0O

uiliiil

6200
6300

uiiiiil
uiliiil

6400
6500

uiliiil
uiiiiil

6600
6700

uiiiiil
uiliiil

7000
7100

lliliiil

uiiiiil

7200
7300

uiliiil
uiiiiil

7400
7500
7600

•C'e«a0a0

iiUiiil

umiii

imm lliliiil llllllU

uiiiiu

I]LlllUl

Ilium

liiiuii

llllUll

11111110

ilium iiiiuii iiuiui. 13llllUl UUllli Ullllll llllllU
Ilium iiuiiu uiiiiu 1]Liiiiii uuiiu iiiimi 11111001
iiiiim luiiiii llllllU 13LlllUl Ilium iiiiiiii iiiuiu
Ilium iiiiiiu Ilium uLiiiiii llllllU Ullllll 11111111
LlllllU miiui Ilium 13LlllUl llllllU iUlllll llllllU
Limiii luiiiii Ilium 13LlllUl ilium umiii lllUlll
imiii lliliiil iimiii 13ullllll imiiu Ullllll 11111111

LlllllU

lliliiil

iimm

13.111111

Ullllll

uimu

11111000

iimm uuiui iiium
Limm lliliiil iiiiiui

u mill uuuii ilium llllllU
i] mill
Ullllll llllllU llllllU
LlllllU luiiui uiiiui 11 mill uuiiu iiiiuii lUUlU
mini miuii llllllU ij iiiui
Ullllll 11111110
lUllll lUliUl llllllU li iiiui Ullllll iiiimi lUlUU
.iiuiu lliliiil Ilium H mill
llllllU
iiiiiu uiiiui imim ii umi imiiu lumii llllllU

umm
mum umm

mini

luiiiii

iimiii

Hum luiiiii Ilium
mim uiiiiu iimiii

n iiiui iimiii
ii iiiiu

ilium

Ullllll

llllllU

umm llllllU

uiliiil
uiliiil

niiiiii

mini
mini
mini

mill Ullllll iiimii lUlUll
llllllU u lUiu Ilium iiiimi llllllU
Ilium 11 mill
11111110
Ilium n mill Ullllll luiim llllllU

luiiui

iiiiiiii

uiiTiii

llllllU

Ilium

iiiuii

iiiiiiu
llllllU

11 iiiiii

umm umm
iimm umm

11111011

llllllU

iiuim lumii

imim

/F0CL12 37

3616
3617
3618
3619

DIAL

V.^v'3

ll-JAt>j-7l

»1

3,^{?

XQi

^111:12

•4.-pi

D25ii.

.2^3
125

02i'-'.'.,

1000

GAMMAi
CHRCvTi

363

,•>

?.?-?Z

36213

pi(!l?4

3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
3637
3638
3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669
3670

r'0n5
ci??6

•

'360

036fl,

.'010

4tl0

:30P

XRl,
BLK2.

(»3i"7

1H'13
fi^ll

zae

,.oc?

P312

0?n

PIJ113

'0I?0
,•001

Pii'14

0;315
I?I016

fni7

D85,

760
/O30

(C0£!
•('20

/»#••##»•
/{RErCRENCEO AS lOC
/(RETERENBED AS. LOC
/(RErERtNCED AS lOC
/»••.»•#•
/•»••••«•
/••••»•••
/••«•••«•

400
200
125

2)
3)
4}

/•••••••
/UNIT
/ADDRESS
/BLOCK -jUMBCR
/NUMBER OF SLOCKS
/•••»••#•
/••••#•••
/••»•••••

0760,
AUPhAi
BETA,
•20

PAGE l»6e

/•»••»»•

•'»'Ji

23136

760

/••

/ENTCRCO WiTH NO, CHARS IN ACI REFRESH
/FOB Chars and points
/

91020

•000

0321
B022
«a23

7450
5061
7040
3006
1076
3005

("324
02125
fli!!i26

0327

11107

Pi?3{*

3077
3031
6141

C»031
ripi32

0033

1325

ffi354

,'450

C1035

6045

t^!136

?f?77

C037

r!045

2015
l560
703P
4077
40?1
6056
241

P^46

?ei33

C'lM?

•ipld

p:»5ei

?n77
1756
l776
221
.221

5»O40

P?41
na42
P'?43
{"?44

P'r-Si
('.•52

V"^5i
Pi.^54

(7^55

'311

5i.?56

;'226

^^57

6033

/•••»••••
/••••••••
NOASCII /••••••••
/#•••»•••
CHRCNT /••••••••
/••••••••
04377
/•*••••••
GAMMA
/•••••••#
0360
/••••••».
Y
/•••»••••
XQ
/••••#••»

WAITER!
SNA
JMP
CMA
OCA
TAD
DCA
TAD
OCA
DCA

LINC
LMODE
CHRLUPi LOM I GAMMA
Aze
JMP GOODY
ADD Y
ADO 0760
BCL I
7000
STC Y
STC XQ
JMP CHREND

GOOOYi

ROt.

ADD
STC
ADD
DSC
DSC
XSK
XSK
CLR
chreno; XSK
JMP

0200
ALPHA
Y

ALPHA
ALPHA
I
I
I

XO
XO

ChRCNT
CHRLUP
I

/••••*•#»
/••••••••

/••••••#
/•••••••#
/•••••*••
/»••••••»
/••»••••»
/##•»•••»
/••••••#•
/•••••••«
/••#«••••
/•»•»•••«

/•«o»»tt
/••»»•••§
/••••••••

/•»•••«•
/••#••••»
/••«#»•»«
/#•••••••
/••••••••
/*••»•••• ONE TIME PER CHAR
ittmttmmiiimmiilililiiiiimamlmmii^mimmil^^

rULif

/F0Cli2,M
3671
3672
3673
3674
3675
3676
3677
3678
3679
3680
3681
3682
3683
3634
3685
3686
3687
3668
3689
3690
3691
3692
3693
3694
3695
3696
3697
3695
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710
3711
3712
37l3
37l4
37l5
3716
3717
37i8
37l9
3720
3721
3722
3723
3724
3725

?»;'61

!»?62
7>^63
("064
'.1365

0?66
0067
P070
0071
0072

467
6141
1177

22-m
645
6132
.'077

SKP
\iOASCll.Ll\C
SET I BETA
2200
LOr 5
JMP SUBR
SET 1 BETA

z^m
:!646
6l>52
••002

0073
0074
0375
0076
0077
0100
0101

6203
7200
5420
4377

0102
0103
0104
0105
0106
0107
0110
0111
0112
0ii3
0114
0ii5
0116
0117
0120
0121
0122
0123
0124
0125

(1056

L'000
•.

171

'1173

000

i'4l5
i'.467

6072
f530
6041
^^467

6072
1017
1-467

1037
0451
6072
400$
1037
-145
v2l7
6115
6016

H-JAN-71

v'^J's

WEXlTi
PHOOE

043771

2000
LDF 6
JMP SUSR
POP
6203
CUA
JMP I
4377

23li)6

PAGE

/••••••••
/•««••#••
/••»•••••

/*•*•*•••
/••«•••••

/••*•••••

/GIF CDr

/••••••••
WAITER

PSUBS*
SUBS
PUESUBS •LCSUBS
LMOOe
SUBR.
SET ALPHA
0000
KSt
SKP
JMP WEXIT
IDS
TSF
SKP
JMP
LDi
SKP
WAlTuPi LOa
APO
JMP
STC
LDi
DIS
XSK
JMP
JMP
PMODE
JMP
XLO.

DISPLAYS POINTS

WEXIT
BETA
/
I

BETA

WEXIT
GAMMA
BETA
I
GAMMA
BETA
WAITLP
ALPHA
I

LOPEN
XLC.

JMP

LCLOSe
XLLi

JMP

iLOAD
JMP I
LSaVE
JMP I
XLG,
LChAIN
7774
X7774i
7775
X7775I
LNgM
PLNLfMi
pcetrhs iGETRHS
XUS.

/«•••••••
/••••••••
/•*••••••

^
/rOCLl2, ,17
3726
3727
3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757

3758

;"i 4 4

;n^5
"146
?147
3150
Pl51
r!i52

?153
.

f«l54
("155
<^\56

P157
0160
P161
0162
0163
0164

12.10
.

3^?

;;030

003
2135
i342
i600
l361
>Zd0
(030
2076
!

''090

(000
2124
.1030
k-002!

(9170
21171
P1172
?il73
Pil74

!'245

.•BI44

..;046

7764
6300
7420
0177
6203
5601
5774
0202
r.200

P1202
(12«3
(5204
(5205

3760

("207
f2i.0

0211

3763

PLU-^ILO .LO^ILD
PSLNAf*; LNAHE*5
P6L^JAM, LNAf^E^e
CHirLAC, T

:;i?>O0

0206

3762

il6P
1177

P166
0167

3759

3761

v.,;'3

f!l65

Ci77
B200
0201

(1212
1*213
PI2i4
(^215

0216
fl2t7

ll-JAN»71

ulALl?!

4477
7744
5177
2651
4136
2241
4177
3641
4577
4145
4477
4044
4136
2645

,•

?
e

PFlLTAB .FILTAB
PLOQKUP .LUKUP
PCOmmOn iCOhmON
pseplAc .replace
MYTC«P.
MYTMP2,
PPIMSh .FINISH
SWITCH,
SWTmPi
PBiruG. BlFLG-1
MYACl*
MYAC2I
MYAC3»
piflac; FLAG
p2rLAc; FLAC^l
p3Flac; FLAC*2
7764
07764.
6000
O600»»
7420
074201
Pi

• 177
terror; 6203
JMP I
.*!
FSSERR
• 202
chartAb .-?
4477J7744

517712651
413612241
4l77|364l

4577|4145
4477)4044

413612645

C??0

3^177

1077J7710

3765

?'2?1
Pt?22

771P
7741

774110041

(^223

.'041

3766

3??4

3767

C1225
«»226
(1227

4142
4076
3077
4324
"177

0230
P231

:i301

PACE 1-73

hiss.
LOSS.

3764

3768

23106

4142140X6
107714324

017710301

rOCLl2
3769

''•
^32
?274

3J77
773?
3377

7i?35

77C'6

!^?36

4177
7741
4477
3044
4276

!»933

3770
3771

B237

3772
3773
3774

3775
3776
3777
3778

fl?40
PI241
!"242
("243
11244
(^245
PI246
PI247
Pi?50
C»251
51252
(1253

0254
C1255

3779
3780

3761
3782
3783
3784
3785

3786
3787
3788
3789
3790
3791
3792
3793
3794

r^ULif

P256
ei257
51260
("261
PI262
!?263
P)264

0265
0266
0267
0270
0271
0272
0273

li;jAN-7l

V-' ^'3

3077)7726
417717741

447713044
*

427610376

;376

4477
3146
5121
4651
4040
4377
.177
7701
C176
7402
?677
7701
1463
6314
1-770

7007
4543
6151
4177

447713146

512114651
4040J4077

017717701
017617402
067717701
146316314

077017007
454316151

417710000

L'000

1020

102010204

f'204
i.'000

0000J7741

7741
23iJ0

2000}2076

0275
0276
0277
0300
0301
03K2
0303
0304
0305
0306
0307
0310
0311
0312
0313
0314
0315

2076
1604

160410404

'"316

3796

0317
0320

PACE

30771773;"

(5274

379S

23106

'/404

^000
000
7500

0000)0000

;

7500)0000

1:000

7600
073
7624
2476
5721
4671
6661
4333
5166
i526
7000
•000
3600

7000)0070

;

7624)2476
5721)4471

6661)4333
5166)0526
7000)0000
3600)0041

#
"ML

/F0CL12 .^7
."??!

^141

3797

i'?22

4ll.'"

3798

"323
???4

M25
3799

?i3?6

?327

38?0
38E1'

38B3

3805

-5 1)0

:.'0C1
.0Pi9i

000110000

{5336

6(?l

060114030

"334

{^340
PI341
Pf342

("346
£934 7

PI350
P»351
t^352

0353
3810

PI354

3811

0355
0356

38l3
3814
3815
3816

(^357
{»360
?)361
5)362

0363
0364
0365

4030
4536
3651
2101

13PC
4224
1212
1212
2442

38l9

0375
0376
037>

2414)0477
5172)0651

1506)4225
4443)6050
5126)2651

5122)3651
2200)0000

.^l500

(?I370

1^374

4122)2651

5172
£651
1506
4225
4443
6050
5126
2651
5122
3651
2200

L'300

38l8

4593)2151

J477

4601

0372
0373

2101)0177

4523
2151
4122
2651
2414

0367

3817

4536)3651

a77

(1366

PI371

3820
3321
3622
3823
3924
3825
3826
3827

0404)0404

4v^4

?335

3807

38l2

•

04?4|0437
3500I00Z6

404

t'332

3806

3809

4P4
437

v306

^3«3
P344
0345

3808

2050;005O

as."!

.^333

?337

3804

PAGE 1*72

«li30|0036

2.'52>
,

23106

036

C331
?333

38?2

H-JaN-71

V^?3

4601)0000
1000)4224
1212)1212

2442)0010

.1010

4320
2255

4020)2055
/40,3-777 ARE CHARACTER DISPlAV AREA

l'^00

• 1J0?|

/GET Right hand side • used in
/PROCESSING OF COMMANDS <LlBRJ WHICH NEED
/A riLC NAME) EXPECTS ThB roRM FILE, UNIT
/

ieae

.•J000

cetrhs;

/FOCtlZ

31^B

3328
3829
3332
3831
3932
3833
3834
3835
3836
3837
3836
3839
3840
3841
3842
3643
3844
3845
3846
3847
3648
3849
3850
3851
3852
3853
3854
3655
3856
3857
3858
3859
3860
3861
3862
3663
3664
3865
3866
3867
3868
3869
3870
3871
3872
3873
3674
3675
3676
3677
3878
3879
3880

laJi
ifi^2
i\?P3

1384
lt?P5
i?j!6
1P!?7

iei0
tail
I0l2
1013
1014
i/!i5

i?i6
1017
iV20
i(»2l
ti322

1023
1?!24

1025
1026
1027
1330
1031
1032
1033
1034
1035
1036
1037
1(140

i?!4i

1042
1043
1P44
1045
1046
1047
1050
1(?51

1052
1?53
1054
1055
1056
li'<57

U^60

uULlS

V-1S13

3675
l322
3dll
i326
3012
l324
3411
2012
5236
l322
3^11
l326
3212
4333
5236
5330
l324
1277
7453
5261
l300
3411
2212
5216
4333
5236
5330
7200
5231
l322
3011
1327
3012
l322
3013
1411
7106
70C6
7^06
1411
3413
2312
5244
7326
3376
43in
560?
5330

PLEFLAG
OCA I
TAO
PLNAME
DCA
BLK2
07770
tAO
9LK2*1
OCA
TAD
077
PlLPlt
DCA I
eLK2
\
ISI
8LK2*1
JMP
PLLPl
PLNAME
tAO
DCA
BLK2
07770
TAD
DCA
eLK2*l
JMS
CGET
PLLP2I
JMP
I60TIT
RHSERR
JMP
AND
077
M43
TAD
SNA
NUMSCN
JMP
tAD
PP43
OCA I
BLK2
ISi
BLK2*1
JMP
PLLP2
JMS
CGCT
JMP
ICOTIT
JMP
RHSERR
CLA
.-4
JMP
PLNAME
icotit; tAO
OCA
SLK2
TAO
C7774
OCA
BLK2*1
TAD
PLNAME
OCA
BLK2*2
TAO I
PLLP3I
8LK2
CLL RTL
RTL
RTL
TAO I
eLK2
OCA I
BLK2*2
ISi
BLK2*1
JMP
PLLP3
CLA CLL CML RTL
LNAME*4
OCA
mORnum. JMS
OCTNUM

11"JAN" 71

•JMP

JMP

23136

PACE

GETRhS
RHSERR

/SCAM OFF THE NUMBER »
/WMlCH SAYS IT WAS A NU
/

38 81

1061
1362

3882

1.843

lt'l2

l323
7653

NUMSONi TAO
BLK2*1
TAD
010
SNA CIA

^
/FOCLlg 37
3883
3884
3885
3886
3887
3688
3889
3690
3891
3892
3893
3894
3895
3896
3697
3698
3899
3900
3931
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
39l2
39i3
39l4
39l5
3916
3917
39l8
39l9
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937

riALio
i;'64
1<i65

1.^66
11^67
i'jia

ian
1PI72

1073
1074
1075
1376
1077
1100
llfl

^"3

11-JAN* 71

43C1

jMi;

?33C'

j'.P

l371
7545
1276
3675
7240
3546
5256
1462
5265
7735

TAO
OCA I
TAO
OCA I
CUA CMA
OCA I
P6LNAM
JMP
MORNUM

c»a43

r000

2310

PACE 1<74

OCTNUM
RHSERR
LNUH
P5LNAM
FLACJ
PLEFLAC

PLErLAC .LEFLAC
flagji
lEFLAC* 34177*5200
M43,
-43
43
PP43,
octnum;
/

/SUBR TO GgN AN OCTAL Number
/

1102
1103
1104
1105
1106
1107
1110
illl
1112
1113
1114
1115
7ll6
ill 7

1120
1121
1122
1123
1124
Ii25
1126
1127
1130
1131
1132
il33
1134
Tl35
1136
1137
1140
1141
1142
1143
1144
il45
1146

U47

3371
4333
2301
5701
>324
1325

PLUP4»

>15!0

1323
3333
7420
5330
1371
7106
7104
1333
53n2
1171
paia
1077
7710
7770
7774
62i'3

5732
6357
"001!
62£'3

5736
?564
l354
745?
5733
2333
i355
745i3

5733
]356
7450

OCA
LNUM
JMS
CCET
OCTNUM
ISi
JMP I
OCTNUM
077
AND
07710
TAD
CUL
TAO
010
CGET
OCA
SNL
RHSERR
JMP
TAD
LNUM
CLL RTL
CLL RAL
tAO
CCET
JMP
PLLP4

PLNAMEi LNAME-1
010.
077.
07713.
077701
07774.

10
77

7710
7770
7774
rmscrR) 6203
JMP I
LERR
CCET.
6203
JMP I
CCETX
coetrEt .tAO
SNA
JMP 1
ISl
tAO

SNA
JMP
TAp
SNA

/RIGHT HAND SIDE ERROR
/RlC
,*1

/IMTERFACC WITH FIELD ZERO
JMS CCET
JMP <C0MMA>
/
/
JMP <carrEt or semicolon>
/
JMP <otheR(Char is in AC)>

.*1

07524
CGET
CGET
07761
CGET
056

/F0CL12
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
3949
3950
3951
3952
3953
3954
3955
3956
3957
3958
3959
3960

1150
1151
1152
1153
1154
1155
1156
1157

5733
l357
2333
5733
7524
7761
t!356

.215

V.J03

ii:jAS.7i

07524»
077611

JMP I
TAn
IS2
JHP 1
7524
7761

056,
0215.

231 a^

PACE

CCET
n215
COET
CCET

56
,

215

/srimGs MILDRED INTO COsE
/
116?!
.

1161
1162
1163
1164
il65
1166
1167
1170
1171
1172
1173

l^V
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
3975
3976
3977
3978
3979
3980
39SI
3962
3993
3984
3985
3986
3987

PUL10

1175
1176
1177
1200
1201
1202

000

lomilo;
lor

6^102

4540
1165
576B
vll»

JMS 1
MLOBLK
JMP I
mloblk; 110

LOMILO

30
76

V.030
v«076

C002
1171

X7774

«1171

c'0a0

imn.

^000

LNAMEi

/,— i-,:
013)0101010

l<000
V.000
r-000
^1000

f000
l-'000
i.'000

7240

MVCTRi
/,.-i-,;{REfrERENCEO AS
MVPTR»
lchain; CLA CMA

BLOCK

/LIBRARY LOAD
/

1203
12H4
1205
1206
1207
1210
1211
1212
1213
1214
1215
1216
1217
1220
1221
1222
1223
1224
1225
1226
i^Z?

3147
4543
4544
4342
l546
7341
l327
7640
5356
l542
3324
l545
3326
4540
1324
7353
33115

3410
1174
7648!

5356

LLOAOi

CHrLAG
OCA
PGETRHS
JMS I
PLOMILD
JMS I
LUKUP
JMS
P6LNAM
tAO 1
CIA
LLENGTH
tAO
S2A CLA
riLERR*2
JMP
PLNUM
TAD I
lsblk
DCA
PSLNAH
tAO i
FILSTRT
OCA
X7774
JMS I
LSBLK
CLA CLL CMA RAR
XRl
OCA
XRl
TAD I
/riRST WD MUST BE 0360
07420
tAO
SZA CLA
FILERR*2
JMP

m
ULlf'

'rOCLl2.?7
3938
3999
3990
3991

i??.-'

)3;'4

"^Ac

1231
1232

4262
=254

-"'^S

40^8
4219
4020
4021
4022
4023
4024
4025
4326
4027
4028
402»
4030
4031
4032
4033
4C34
4235
4036
4037
4038
4039
4043

/LIBRARY SAVE

39,92

3993
3994
3995
3996'
3997
3998
3999
40B0
4001
4002
4003
4004
4005
4006
4007
4008
4009
4010
4011
4012
4013
4014
4015
4016

UOADJ
»0Q
XCETOUT

JHP
/

PACE 1-76

23136

lUJt^'irJi

v.'03

•
'

1233
1234
1235
1236
1237
i24£l

1241
1242
1243
1244
1245
1246
1247
1250
1251
1252
1253
1254
1255
i256
1257
1260
1261

3147
4543
4544
l327
3546
4361
1542
3324
l545
3326
7353
3010
1007
3410
4262
4541
l324
6233
6031
2147
5722
5661
P603

lSAvEi

OCA
JMS I
JMS I
TAD
OCA I
JMS
TAD I
DCA
TAD 1
DCA
CLA CLL
OCA
TAO
OCA I
JMS
JMS 1
LSBLK

CHFLaC
PGETRHS
PLDMILD
LLEMGTh
P6LNAM
REPLACE
PLNUM
LSBLK
PSLNAM

FUSTRT
CMA RAR
XRl

0360
XRl
MOO
X7775

XGET0UTi62a3
ION
1S2

CHFLAG
PSTART

JMP I
JMP I
COtO

,*l

•

/THE WORDS ARE REAO/wRlTTEN FROM LOC 4000
/or FLDII this ROUTINE MOVES THEM THERE
/

\262
1263
1264
1265
1266
1267
1270
1271
1272
1273
1274
1275
1276
1277
T300
i3?l
13C2
13?3
1304

''300

MOOi

3306
i330
3200
16O0
2200
7450
5275
3201

OCA
TAD
OCA
MOOLUP; tAO

i3Ci5

43JI5

5266
3323
32«0

DEJUMP

IS2

SNA
JMP
DCA
JMS
JMP
MOOENOi TAD
DCA

22i?l

ISZ

4305
?2O0
5277
5662
5314

JMS

LOADJi

.:0eei

flOVMOV;

MOOEND
HVPTR
mOVMOV
MOOLUP
MVCNT
MVCTR
mVPTR
MOVMOV
MVCTR

ISi

JMP
JMP
JMP

PTBL
MVCTR
MVCTR
MVCTR

,»3
I
.

MOO
NOTSAV

4?43
4044
4345
4046
4347
4248
4049
4050
4051
4052
4053
4054
4055

i3ie
1311
1312
1313
1314
1315
1316
1317
1320
1321
1322
1323
1324

42556

1*325

4057
4058
4059
4060
4061
4062
4063
4064
4365
4066
4067
4068
4069
4070
4071
4072
4073
4074
4075
4076
4077
4078
4079
4050
4081
4082
4083
4084
4085
4086
4067
4088
4089
4090
4091
4092
4093
4094
4095
4096
4097

1326
1327
1330
1331
1332
1333
1334
1335
1336
1337
1340
1341

rlALlC

V.'3

:6n

TAD I
MVPTS
6211
DCa I
XRl
JMP I
MOVMOV
NOTSAV, 6211
TAO 1
XPl
6201
MVPTR
V DCa I
6211
JMP 1
MOVMOV
pstart, start
MVCnTi
rRST«FEXP
LS8lk»
30
/14000

6211
?4i;
57^15

6211
62>31

36iU
6211
5735
177

6366
-'030
I

0S<3

v'004

1331
0035

ll-JAN-71

23104

page:

riLsrRf.0
LLeMGTH.4
PTBl.

,*i

i.'4xi

BOTTOM
pPnem
prx

»'4l2

PF2

:)4ic

C'-060

B'JFR

fc013

LASTV
POlXR
FRST

3206
?000
/

/uses MILDREDS LOOKUP
/

1342
1343
1344
1345
1346
1347
1350
1351
1352
1353
1354
1355
1356
1357
1350

?'000

LUKUPi

6141

6141
0606
1020
LNUM
6020

r<6d6

1020
1171
6320
7354

/JMP 20
FlLERR<1777*6000
0002
/POP

t'002
72irf0

5742
;1002
72i50
62^13

/LINC
/LIF 6
/LOA I

CLA
JMP I
filerr; 0002
CLA

6203

5760
2571

JMP

LUKUP
/POP
/CIF CDF

ERRFIL
/USES MILDREDS REPLACE
/

1361
1362

6141

1363
1364
1365
1366
13*7

.636
1020
1171
6022
7372

;'f00

REPLACP,?
LINC
LMOOE
LIF
LDA I
LNUM
JMP
JMP

SAMEN

/ALREADY THERE

m
/F0CL12 S7
<?96
4099
^idZ

41.15

4106
4107
4108
4139
4110
4111

4U6

72.:'e

14??
i4?l

7524

i:4?2

3157
6231
1601
6211
i200
7640
5623
4543
4544
1157
3546
4555
6223
6001
5621

i4?3
1404
1405
1406
1407
1410
1411
1412
1413
1414
1415
1416
1417
1420
1421
1422
1423
1424
1425
1426

4113
4114
4115
4116
4117

H50

5761
i4,je

4U2

4148
4149

1376
13^7

13 72

4102
4103
4104

414 7

1373
1374
1375

7354
7375
.6?6
6324
7354
.232

37?
1371

41J-1

4119
4120
4121
4122
4123
4124
4125
4126
4127
4126
4129
4130
4131
4132
4133
4134
4135
4136
4137
4138
4139
4140
4141
4142
4143
4144
4145
4146

;:IAL1'
1

1*427

1430

'366

i?611

1133
1130
7510
t'010

7455
t^012
v^ass

Vt".::^

SAMfjM

11-JAN» 71

23106

JM»

/NOT ENUr ROOM

J'1P

FILERS
enrepl

Lir
JMP

\
JMP
ENREPL, POP
PMODE
CLA
JMP I
#14^3
mI.MCmAI «254
PCHA9»
CHAR
OCA
LMAkEi
6201
TAO I
6211
TAD
SiA CLA
JMP I
JMS I
JMS 1
TAD
OCA I
JMS I
6203
LXIT.

14 35

1436
1437
144 3

1441
1442
^

t1|

4 3f2

4622
5236
7?0f
5257
4366
.1226

7450
5251
1227
7153

^1^^

/NOT ENUr ROQMJ SHOULD

FILERR

REPLACE

/LIBRARY HAKE

iiYTMP2

PCHAR
M.INCMA

PRHSERR
PGETRHS
PLDMILD
MYTMP2
P6LNAM
PREPLAC

IOm

JMP I
PPROC
PPROCi
PROC
PCEtC#
CGET
prhscRr .RHSERR
7510
075101
ooie.
10
"323
MCSi
CSMCii
323<31i
CIMCPi
311-306
/FILTAB ENTRY
TYPE
/
LENGTH
/
UNIT
/
FIRST Block
•
/WHERE TYPE
UNDEFINED
1
2
3

1431
1432
1433
1434

PACE l''7S

/
/

€^

LOPENi

jMS
JMS
JMP
NOP
JMP
JMS
tAD
SNA
JMP
tAO
SN*

UNSlGNEDa WD)
•
»

COMSUB
PGETC
.*3

ERXIT
GETCX
MCS
ITSSS
CSMCl
:'!!
ii-iH

SICNED{2 WO)
FLOATING P0I\?(3 WO)
/LIBRARY OPEN

KiCT

HAPPEN

'•

/P0CL12
4153
4154
4155
4156
4157
4158
4159
4160
4161
4162
4163
4164
4165
4166
4167
4168
4169
4170
4171
4172
4173
4174
4175
4176
4177
4178
4179
4180
4181
4182
4183
4184
4185
4186
4187
4188
4189
4190
4191
4192
4193
4194
4195
4196
4197
4198
4199
42?3
42?!
42?2
4233
4234
4205
4206
4207

rlALi^

v'.'s

i23P

1446
1447

764V'

TAD
ciMcr
52* CL'
JMP I
3QhiSER»
iTsrpi
lAC
ITSSSi
lAC
ITSII.
lAC
OCA
MYTVP2
JMS I
PGETC
^
JMP
1*4
NOP
Ef^XlTi
CLA
JHP I
PPHSERR
JMS I
PCCTRHS
leflac, 3
/«0R JMP ,*3 IF cetrhS Got
JMS I
plomilo
JMS I
PLOOKUR
TAD
MYTMP2
OCA 1
"YTEMP
MYTEMP
IS2
TAD I
P6LNAM
OCA I
MYTEMP
MYTEMP
ISZ
TAD I
PLNUM
OCA I
MYTEMP
IS2
MYTEMP
tAO I
P5LNAM
OCA I
MYTEMP
JMP
lxit

5623

i'45a

7Jli?l

1451
1452
1493
14?4
1455
1456
1457
1463
1461
14 62
1463
T464
1465
1466
1467
14 70
1471
1472
1475
1474
1475
1476
1477
1500
1501

7 3i?l

7001
3157
4622
5261
7ag»
72^0
5623
4543
('030

4544
4553
1157
3556
2156
l546
3556
2156
1542
3556
2156
1545
3556
5216
7472

11-JA\ '71

231^6

PACE

074721

7472

/SCANS OFF FN AND LEAVES POINTER IN MYTEMP
/

1502
1503
1504
15?5
1506
?537
1510
1511
1512
1513
1514
1515
1.516

1517

''000

COMsuBi

4366
1301
7650
4366
1224
7100
1225
7420
5257
7106
1152
3156
5702

JMS
CETCX
tAD
07472
SNA CLA
i
/F
JMS
CETCX
TAD
07510
CLL
tAO
0010
snl
JMP
ERXIT
CLL RTL
TAO
PFILTAB
MYTEMP
OCA
JMP 1
COMSUB
/

/LIBRARY Close
/

1520
1521
1522
1523
1524
1525

4302
4622
5623
7410
5257
3556

lclose; JMS
JMS
JMP
SKP
JMP
OCA

COHSUB
PGETC
PRWSERR

ERXIT
MYTEMP

%
LlALir

/F0Cl12..'<7
tSr^S
42;^9

4210
1211
42l2
42i3
4214
4215
4216 ,
42l7'
42i8
42i9
4220
4221
4222
4223
4224
4225
4226
4227
4228
4229
4230
4231
4232
4233
4234
4235
4236
4237
4238
4239
4240
4241
4242
4243
4244
4245
4246
4247
4248
4249
4250
4251
4252
4253
4254
4255
4256
4257
4258
^^59

1526
1527
1533
1331
1532

v^r?

6i5Ci2

11-JAN -71
I

23106

PAGE 1»8?

#3
*

PTIMIS^
J^S
CL4 CLL lAC HTl
PFINISm
JMS I
JMP
LXIT

l56^
73^7

456?i

5216
/

/FIlE variable LOAOE«
/

1533
1534

-..3? 5?

ITLOAO,

4554

JMS

PCOMMflN

/VARIABLE is NOw IN mEM.^RYI LOSS
/POINT AT ITJ ONE OF THE FOLLOWING

CHOICES WILL 8E TAKENj ACCORDING

/TO TVpE
/

1535
1536
1537
1540
1541
1542
1543
1544
1545
1546
1547
1550
1551
1552
1553
1554
1555
1556
1557
1560
1561
1562
i'563

1564
1565
1566
1567
1570
1571
1572

5346
5341
i55l
2151
3164
l55l
3165
2151
5354
l373
3164
l551
7710
7040
3165
i55l
3166
6203
1164
3567
1165
3570
1166
3571
5733
10 tit'

FRETlO.
SRETLO;

IRETlO,

CRETLOi

CETCX»
027,

lb<i^

027

MYACl
LOSS
MYAC2
LOSS
MYAC3
MYACl
PIFLAC
MYAC2
P2FLAC
MYAC3
P3FLAC
ITLOAD

P5CTC

JMP
JMP

5623
5766

IRETLO
SRETLO
LOSS
LOSS
lYACl
LOSS
MYAC2
LOSS
CPCTLD

JMS

4622
.:'4'27

jwp
JMP
TA3 I
iSi
DCA
TAO I
DCA
iSi
JMP
TA3
DC*
tAO 1
SPA CLA
CMi
DCA
tAO I
DCA
6203
TAO
PCA I
TAO
pCA 1
TAD
OCA I
JMP I

PRHSERR
CETCX

•16?!P'

/SUSSCRIPTINC FOR FILE VAIABLES
/ENTER wITu FILE NO, JN AC
1603
16C1

.:!?/)?l

i'6?2

7136

Utd

I6.:i3

iiij_.

U52
Mil

376

COMMONi
AND
07
CLL «TL
Pfll-TAH
T*B
i^i

/fOCLl2.;

4263
4264
4265
4266
4267
4268
4269
4270
4271
4272
4273
4274
4275
4276
4277
4278
4279
4280
4281
4282
4283
4284
4285
4286
4287
4288
4289
4290
4291
4292
4293
4294
4295
4296
4297
4298
4299
4300
4301
4332
4303
4304
4305
4306
4307
4308
4309
4310
43ll
43l2
43l3
43l4
4315
4316
4317

DULIS'

vri33

I6ri6

-^150

16*^7

i53i3

1610
1611
1612
1613
1614
1615
1616
1617
1620
1621
1622
1623
1624
1625
1626
1627
1630
1631
1632
1633
1634
1635
1636
1637
1640
1641
1642
1643
1644
1645
1646
1647
1650
1651
1652
1653
1654
1655
1656
1657
1660
1661
1662
1663
1664
1665
1666
1667
1670
1671
1472
1673
1674

3151
6211
l556
7650
5177
i556
3011
1411
3011
3013
1011
7141
1150
7420
5232
3150
2013
5222
7200
1172
3012
1151
7104
3151
1150
7004
3150
1011
7141
1150
7430
3150

DC*
•^ISS
TAC 1
psues
DCi
LOSS
621J
TAD I
MVTEMP
SNA CIA
JMP
FERROR
TAD I
MYTEMP
OCA
3LK2
tAD I
8LK2
OCA
BLK2
OCA
9LK2«2
PREOiV; tAO
8LK2
CLL CIA
tAb
Hiss
SNl
jMP
OIVOIV
OCA
HISS
IS2
5L)<2*2'
JMP
PRCOIV
OlVOiV; CLA
tAO
07764
OCA
8LK2*1
OIVLUP; tAO
LOSS
CLL RAL
OCA
loss

72l!'0

J.013

7004
3013
>430
5177
2012
5235
l556
2156
7<'4l

3012
7410
2200
1150
2012
5265
3151
1013
7140
1556

li;jAN^71

23106

PAGE

/SUBSCRIPTS

/(References locs 2i3i4)
/OlVlOeS BY NO. ENTRIES/BLOCK

/LOW ORDER SuBSCRlPTi THEN POINTER

TAO
hiss
RAl
OCA
WISS
tAb
BLK2
CLL CIA
TAO
HISS
S2l
DCA
HISS
CLA
tAO
BLK2*2
RAl
OCA
BLK2*2
S2L
JMP
1S2

jMP
TAb
IS!

CIA
OCA
SKP

TERROR
BLK2*1
OIVLUP
MYTEMP
MYTEMP

BLK2*i

ISI

COMMON

tAO

H I SS

/SETS UP COMMON xIT ACCORDING TO FfLE TYPE

IS?
aLK2*l /TBlK (RELATIVE)
JMP
• >3
OCA
LOSS
tAO
BLK2*2
CLL CMA
TAD I
MYTEMP /{THE LCNfiTH)

IN 8LK2*2

0^
oUn0

/F0CLl2.:?7

43l8

4320
4321
4322
4323
4324
4325
4326
4327
4328
4329
4330
4331
4332
4333
4334'

4335
4336
4337
4338
4339
4340
4341
4342
4343
4344
4345
4346
4347
4348
4349
4350
4351
4352
4353
4354
4355
4356
4337
4358
4359
4360
4361
4362
4363
4364
4365
4366
4367
4368
4369
4370
4371

1675
1676
1677
I7t?a
i'7ai

763.'

«;'

5177
2156
1556

J MP

31111

?703
1^04

2156
l556
1013

i7l?l5

3f!l3

1736

4351
7307
4351
1161
7653
7327
3161
6002
1161
4560
1161
1163
3310
7231
3410
1011
3410
1410
3012
1013
3410
4540
(011
il6i
7106
7336
70C6
1173
1151
3151
7346
1310
3150
60P1
5600

17 02

i'707

1713
1711
1712
1713
1714
1715
1716
1717
1720
1721
1722
1723
1724
1725
1726
1727
1730
1731
1732
1733
1734
1735
1736
1737
1740
1741
1742
1743
1744
1745
1746
1747
1750
1751
1752
1753
1754
1755
1756
1757
1760
1761
762

i'00Ll

3162
1162
1163
3010
l4l0
7650
5751
l4l0
7341
t (i t

"71

11--

v:'.\3

CUA /SUBSCRIPT

PAGE 1>32
TCO LO'G

TERROR
i-iYTEMP

ISZ

TAD
OCA

23106

mYTE'iP

aLK2
MYTEMP
HYTEMP /STARTING tblk
TAO 1
8LK2*2
TAb
OCA
8LK2*2 /ABSOLUTE tblk
CHECK
JMS
CLA CLL lAC RTL
CHECK
JMS
SWITCH /ALTERNATE ThE BUfPERS
tAD
SNA CLA
CLA CLL lAC RTL
SWITCH
DCA
ISZ

lOF

TAb
JMS
tAD
TAb
OCA
CLA
DCA
TAD
DCA
tAD
OCA
TAD
DCA
JMS

SWITCH
PriNISH
SWITCH
PBIF-LG

XRl

UC
I

I
I

XRl
8LK2
XRl
XRl
BLK2*1
BLK2*2

XRl

X7774

BLK2
tAD

/rcao it in

SWITCH /THE VARIABLE iS IN MEMORY
ITSACO; CLL RTL
RTL
RTL
06000
TAD
TAD
LOSS
DCA
LOSS
CLA CLL CMA RTL
XRl
TAD
HISS
OCA
ION

JMP

COMMON

CHECKi

SWTHP
DCA
SWTMP
tAD
TAD
PBIFLS
DCA
XRl
TAO I
XRl
SNA CLA
JMP I
CHECK
XRl
TAD 1

DIAL10

/rocLis.s;
4373
4374
4375
4376
4377
4373
4379
4380
4381
4332
4383
43844385
4366
4337
4388
4389
4393
4391
4392
4393
4394
4395
4396
4397
4398
4399
4430
4401
4402
4403
4434
4405
4406
4407
44e8
4409
4410
4411
4412
44i3
4414
44l5
44l6
4417
4418
441?
4420
4421
4422
4423
4424
4425
4426
4427

1764
1765
1766
1767
1770
1771
1772
1773
1774
1775
1776

VJ»3

764:1

5751
2010
l4lfl

7041
i>?l3

7640
5751
1162
5336
•'.307

07,

2C80

•20cig

PAGE

ll,JAN«71

23106

SZa CLA
CMECK
JMP 1
XRl
ISZ
XRl
tad I
ClA
tAO
BLK2*2
S2a CLA
CHECK
JMP I
SWT»1P
TAO
JMP
ITSACO

/BLK IS IN MEMORY ALREADY

/FILE VARIABLE STORES
/

?000
2001
?002
?0i!3

5004
3005
2006
2007
20i0
2011
2012
9013
9014
2015
2016
2017
2020
2321
2022
2023
2024
2025
2026
9027
2030
2(^31

2032
9033
2034
2035
2036
2057
9t)4(3

2041
2.-»42

2343
2044
?045
2046

.1000

itstor;

3010
1567
3164
l570
3165
1571
3166
1010
4554
5266
5224
1164
3551
2151
1165
3551
2151
1166
5271
1164
7450
9244
t7O0
5251
7100
1165
7510
7020
7010
3165
1166
7010
3166
2164
5231
1165
355i
2151
1166

DCA
tAO
OCA
TAD
OCA
TAD
OCA
TAD
JMS
JMP
JMP
fretst; TAD
OCA
ISZ
tAO
OCA

XRl
I

PlFLAC
MYACl
P2FLAC
MYAC2
P3FLAC
MYAC3
XRl

IS2

PCOMMON /8LK IS IN MEMORYI LOSS POINTS AT IT
URETST
SRETST
MYACl
LOSS
LOSS
MYAC2
LOSS
LOSS
MYAC3
INCALL
MYACl

TAO
JMP
sretst; TAO
SNA
STOKOK.
JMP
SMA CLA
JMP
STOOeC
normle; CLL
MYAC2
tAO
SPA
CML
RAR
MYAC2
OCA
MYAC3
TAO
RAR
MYAC3
DCA
ISZ

JMP
stokok; tAO
OCA
ISI

TAO

MYACl
NORMLE
MYAC2
LOSS
LOSS
MYAC3

/MUST 8E LESS THAN MA8N.

11-JAN«71

OULl

v.'r3

?-^51
?*^52

5271
1165
7122

STCogG. TAO

??53

77C'?

?'/54

?355
??56
?^57
?369
??61
3362

7^1Z
3551
2151
1165

/rOCLl2. 37
4428
4429
4<33
4431
4432
4433
4434
4435
4436
4437
4438
4439
4440
4441
4442
4443
4444
4445
4446
4447
4448
4449
4450
4451
4452
4453
4454
4455
4456
4457
4458
4459
446^
4461
4462
4463
4464
4469
4466
4467
4463
4469
4470
4471
4472
4473
4474
4475
4476
4477
4478
4479
443S

€)

7. '5'?

i'^bZ
?v?64
?,'i)65

?.?66

?^67
?,T7a

5371
?372
2il!73

?374
?n75

int
'i'^n
?i3ei

?101
2ie2
2103
2134
2105
21tii6

21S!7

2110
2111
2112
?ii3
2114
?il5
2116
2117
2120
2121
2122
2123
2124

77!?e

7344
7001
3551
5272
6233
5670
7576
3551
7240
3550
6233
5623
^030
1163
3010
1410
7700
5676
1010
3321
7201
3721
1410
3321
1410
3322
l4l0
3323
4541
2121
5676
;00P
,•000
;»000
-.'001

23106

PAGE 1-S4

IMCALL
MYAC2

CLL CML
SMA CLA
CMA CML
V
RAB
DCA I
ISE
TAD
SMA CLA
CLA CLL
lAC
uzerst; DCA I
JMP
uretst, 6203
JMP I

LOSS
LOSS
MYAC2

CMA PAL

LOSS
CRETST

CALLIN
LOSS
INCALLi OCA I
cretst; CLA CMA
HISS
OCA I
6203
ITSTOR
JMP 1
finish;
PBIFLG
TAO
XRl
DCA
XRl
tAD I
SMA CLA
FINISH
JMP I
XRl
TAD
BLOCK
DCA
CLA lAC
BLOCK
DCA I
XRl
tAO I
BLOCK
OCA
XRi
TAD I
BLOCK*l
OCA
XRl
TAO I
BL0CK*2
OCA
X7775
JMS I
BLOCK
FINISH
JMP I
/UNIT
PLOCKi
/ADDRESS/256
/BLOCKNuM
/BLOCKCOUNT
1

/bxflC.0 if the buffer is free
m* IF THE BUFFER iS OCCUPIED
/
.. IF OCCUPIEO AlvD SOMETHING HAS
/
CHANCEDI IE MUST BE WlTTEN OUT
/
/BX8LK CONTAINS THE TBLK WHICH IS IN THE BUFFER
/PBlFLfi POjNTS TO BIFlCj AOOICNS SWITCH MAKES
/|J ppjNl

-AJ

^2f|.p

/rocLi2
4483
4464

?127
?133
?131
^132
?i33
?134

44(^5

4486
4487
4488
4439
4490
4491
4492
4493
4494
4495
4496
4497
4498

4499

''•
9m

4901

4502

V"f3

'^as

eiUNiT;

3110

PACE

B1Bl<i
B2rLG»

b2u,<jit;

B2BLKI

i.fJ35

.'C00

23106

'334

•:O30
l:030

ll-jAN-71

/FILE OEFlMlTlOvS • 4 WaROS APIECE
FOR UNOEFiNED)
/"TYPE (li2i3«UiSirj
/"UENGtH (7777 IF #)
/sUMiT
/-FIRST BLOCK
/

•

?135
?136
?137
?140
J141
?i42
?143
?i44
9145
?146
?i47
9150
9151
9152

n93
4500

niALifl

9154
9155
9156
9157
9160
9161
9162
9163
9164
9165
9166
9167
9170
9171
9172
9173
9174

.1000

filtab, 0ia<0»0j'?»0i0i0

vd'M
.»!'I00

:\Qm
',1000

5000
11000

0000
('000
i"000
•5

0|0|0|0}C!!|0|0i0

000

;"000

i'000
l'000

f000
C'000

«000

0|0t0t0|0)0|0t0

•.1000
;.;000

';000
4^^000

i-fize

^000
i'.000

(000
i'fl00

C300
;'090
(,'000
»«t^00

f.000
.'000

0|0t0»0)0l0|^|0

m
/F0CLl2.:^7

/00e
.100

,20?

/30S
^40?
?500

IP
rJALl-

t'T.

23106

PAGE 1-86

llllUll

Ullllll

UUUll

llllllll

uuuu

llllllll
llllllll

llllllll
llllllll
llllllll

UUUll
uiuui

llllUll

11-- iN 71

PlilllU
Ui'llUl

llllllll
llllllll

llllllll

uuiiu

uililil

llUllU

liiliiil
Iiiiiiii

llllllll
llllllll

uililil

llllllll
llllllll

illlllll
llllllll

uiiiui
uililil

uiiiui

llllllll
llllllll

uiiiui

UUUll

llllllll
11111111

UlllU'l

llllllll
llllllll

llllllll

Ullllll
Ullllll

Ullllll

llllllll
llllllll

llllllll

UlllUl

liiuiii

llllllll
llllllll
llllllll
llllllll

llllllll

llllUll

11111031

;

l?'600

Z700

1000
1100

Iiiiiiii

1200
1300

liiliiil

uililil

llllllll
illlllll

llllllll
llllllll

uililil
uililil

llllllll
llllllll

llllllll

llllllll
llllllll

l900

liiliiil
liiliiil

llllUll

1400

uiiiiu

llllllll

uililil

llllllll
llllllll

llllllll

illlllll
illlllll

lUUlU

liiliiil
liiliiil

llllllll

1600
1700

UUUll

llllllll

lllUUl

IIU1110

uiiiui
uiiiiu

illlllll
illlllll

uililil
uililil

llllllll
llllllll

Ullllll

llllllll
llllllll

llUllll

2000
?100

2200
2300
2400
2500

2600
2700
3000
3100

3200
3300
3400
3500
3600
3700

Uililil

uuiui

llllllll

llUllll
llllllll

U100000

11111000

/rocLiz,?:

4100

44^0
4500
4600
4700

5000
"5100

5200
5300
5400
5500
5609
5700
6000
6100

6200
6300
6400
6500

6600
6700
7001?

710?
7200
7300
7400
7500

7600
7700

TjIaliC'

V'03

ll-JAN-71

23I0A

PAGE

/rocui2 .^7

LUU]
-)<15

iBsri.

fr75l

iB«nL2

6153
7375
5571
.Ml

ABSf!L3

ll-JANr 71

:230
C26i^

!'113

CATU^^A

5345
5341
5335
5331
7576
0077
7000
6506
6505
4705
3133

nCONP
OCONT

m37

1133
1137
2564
0066

OGRP
DG«P1
DIG
DIGIT
DIGITS
DIVI
01V2
DIVOIV
DIVIDE
DIVLUP

.'042

4CM!NS

6605

40DR

'?43

CALLIN

AOftNE

6673
4677

CCR
CDF
CEXl
CEXP

4Lri
iLF?
Atri!

iLRM
ALtCN
AL1ST
ALPMA
AMnUNT
arcalg
ARCRTN
ARRNVT
ARTN
ASHFT
ASK
ATlisT
ATSW
AXJN
AXflUt
B

RIBLK
alFLtt

PlUMiT
B2SLK
PI2FLC
I92IINIT

SACK
REfilN

BETl
ftEf2

BETA
BET?
RF

BLK2
BLnCK
BOTTOM
BUFBCC
BUFFEB
BUFR
BUFSt

AlbJI

4763
4755
6572
6623
1370
.316
6722
4732
5^24
l723
5300
6665
l230
157?
C056
~'ns)
.•017
;'.346

2130
2125
2126
2134
2131
2132
5533
3601
4771
4774
fC17
4766
4702

Cl?3

CNItR

COL

.'fiA?

i136

'011

335
3216
747;'
i(i6;'>

5531
.

CFRS
CFRSX
CCET
CGETRE
CGETX
CHAR
CHARTA
CHECK
CHFLAC
CHIN
CHRCNT
CHRENO
CHRLUP
CHRT
CIMCF
CLCU
CLEAR
CLF
CLKFLC

COmSOT
C0M9UF
COMEIN
COMEOU
COMGO
COmLST
COMMCN
COMMON
COmSUB
COMl
CRETLD
CRETST
crlf
CRUDDY
CSmCI
CSTAR

2121

(^200

1751
0147
2157
0006
,0056

0033
6133
1430
7427
7672
0076
2661
0057
1253
0226
0132
3140
3206
1161
0774
0614
1600
1502
5037
1554
2072
7505
1155
1427
0225
0041

PACE 1"88
D256
r85
CATJ-

iClL

23136

2554
6143
ei23

C14H
C144

C3
C5
C7
C9

*8S0LV
iCi^

•

V-'iJS

DCOU.vT

ODTJP
OEBGSW
OECON
DECONV
DECP
DECR
deju^^p

DELETE

DMDO.mE

DMPSW
DMULT
OMULT^
DNORh
dnuhbR
00
OOK

DONE
OOONE
DOUBLE
PPCVPT
0PM
DPT
0S4VE
OTST
OUBOIV
OUBLAD
0V3
E

ECALL
ECHOlS
EFOP
tFUN'

EFUN2
ErUN3

0002
VfZ^A

7132
7252
6303
0471
6143
0004
0026
5627
5600
5533
5521
1306
4565
4710
0425
0441
5543
5713
0006
5754
6757
1632
7150
1635
7063
0100
7004
7036
7335
5714
0420
2113
2131
0463
0127
6302
6305
6145
5640
5647
7261
5733
7267
0042
1601
1624
0056
1743
1755
2021

EFuNSI
ELPAP
END
ENOFl
ENOLN
ENOT
ENBEPL
ENuM
epar
EPAR2
ERASE
ERG
ERL
ERR2
ERRFIL
ERR0R2
ERRORS
ERR0R4
ERRORS
ERT
ERV
ERVX
ERXIT
ESCA
ETERH
ETERMl
ETERM2
etermn
EVAL
EXl
EXIT
EXITI
EXIT2
EXIT3
EXiTJ
EXP
EXTR
F

FCONT
FCOS
FCOUNT
FEN03
PERROR
FEXP
FEXT
rrr
FC02
FG03
FG04
FG05
FlGOl
FIC04

?136
l7S4
7134
6243
4556
2135
1375
1732
1710
1766
22?6
2227
2224
?726
2571
4566
4566
4566
2725
2216
2221
2241
1457
2532
1647
1627
1655
1644
1613
2646
5034
53?1
7363
2660
9044
2313
0043
1131
5177
5535
2267
0177
4620
(?|000

l522
6011
6027
6034
6070
6221
6261

f V

Wb.

n^
ril STR
rii ta8

!354
i326
;?135

FlMCR

'565

^I^jr!L.iM

4555

FIMON
ri\r!N
FIMISH
riNKP
riNPUT
PINT

?25:.

nsw
riVMDN

nv
rixM
riic
TLAD
TLAGl
rLAfi2

FLAGJ
rLARG
FLARCP
finv
FLCX
ruGT
TLIMIT
FLiwTP
TLISTl
FLlst2
FLMY

3137
?276
1133
131
(

44'.J7

352
7653
6724
6753
.244
65ie
5162
4725
1?76
2332

125
IX'^l

6517
6471
1")75
6201?

•577
.•574

FLOP
FLOUT

6565
5040
l674
5556

FLftUTP

60021

FLPT
FLSU
FLTONE
FLTXR
rLTXR2
FLTiER
PM12
FNFC
FNDR
FNT ASr
FNTABL
FMIM
FOR

6467
6507
2435
.214
<315
2407
6142
5163
73ae

FOSHIJN
FOllTPU

7651
,133
7474
6400
5465

TLflC

FPACl
FPNT
FPRMT

•374

2167
6311
10141

frctld
FRCTST
FRST
frstx
FSiM
FSSERR
rxiT
Gieii

G5772

VG5773
G7200
G7773
G7774
G7775
G7776
G7777
GAMMA
gslok
GECALU
GEnD
GERR
GETl
GEt3
GETARG
GETC
getcx
GETLN
getrhs
GETSCN
GETVAR
GEXIT
CFNDl
GINC
GLIST
GO
GONE

GOODY
GOTO
GRPTST
GSl
GS2
GS3
GS4
GSeRCH
CTEM
G2ERR
HlMBUr
HISS
HORO
133
IBAR

ICCALL

1537
2014
3206
3214
5204
5774
D3B0
3661
3662
3663
3664
3665
3666
3667
3670
3671
0005
3655
1463
2334
0340
2330
2345
1401
4545
1566
4554
1000
1045
1405
0352
1510
0070
1375
5021
0232
0045
f603
0744
1435
1464
1444
1457
1424
0021
11362

0037
P153
P045
2414
P'212

1037

in
tra
IGr,iOo

IGOTIT
ILIST
IN

IN8UF
INCALl.

INOEV
iNDRcT
INFIX
INLIST
INORf'

INPUT
INPUTX
iNSue
INTECE
INTRPT
103Ur
IPART
iretlo
iRETfJ

itablE
ITCRI
itload
ITSAGO
ITSFF
ITSII
ITSOK
ITSSS
ITSTOR
JUMP
K5
KINT
LI
l2
l3
L4
LASTlN
lastop
lastv
lc
LCHAiN
LCLOSE
LCON
ldmilO
LEFLAG
lefput
LEPUT
lerr
LESUP2

Pl3
1035
1025
0217
1036
0771
5513
0034
2071
0064
6465
2401
0570
6307
0756
0271
0036
0053
2603
3120
1040
1546
0227
6575
7470
1533
1736
1450
1452
7521
1451
2000
6464
5525
2625
5126
5131
5134
5137
0025
0055
0031
5171
1202
1520
0371
1160
1462
0172
6163
6357
0170

lesu=>s

.-173

LG2E
lgc

6375
47l3
63tB

LI^'E^lO

Ztiil

LIST3
L1ST6
LIST7
LlSTCO

C077
^072

5173
1327
6366

LLENCT
LLIST
LUOAD
L'l

lmake
LK'AME

lnum
LO

lOaoit
loaoj
L0C2
L0G5
L066
L0C7
L0G8
LOOP01
LOPEN
LORD
LOSS
LPRTST
ls

lSave
lSblk
ltape
lukup
lwetmp
LXIT
M100
MIBPT
Mil
M12
M137
M140
M144

:'e74
l3<i6

12:'3

2572
1422
1172
1171
5167
6333
l3?4
5157
5142
51*5
5150
5153
6433
1431
3046
5^151

2037
6176
1233
l324
6346
1342
?0?2
1*16
01!51

6147
51121

2413
2357
2556
6137

M2
M22

!?111
<il?5

M240
M260
M272

^114
1534
l544
6141
2356
1077

M4
M40

M43

1^
lALlE

/rOCLl2.37
«5
•07

12"

\AGSi*

l"3

•jCmARS
..:ciLS

uC"*:

»:EGP

1136

NFEEDS
MLIMES
NOaSCI
NOCLK
NOCRLf
NOHANG
NORF
NORM
nORmF
nORMLE

mE'5

5526
il35

•6?2

^riT

ii7

.MHllNQf?

5375

"IF

726fi

wlMCOM
MiNp

6374
5662

MlNi)S2

7153

MlMUSA

.'112

^4!mUSE

6301
5663
1165
7647
7656
5214
l254
l262
i275
l266
l356
1305
7254
7256
7255

MiMUSi
MLDULK
MLTMtT
mmSoh
MOn
MOriiFY

MOn

mOOCNO
MOfiLUP

mOPNUM
mOvmOV
mPI
^P7
MPS
mP4
MPS
MP6
mPPP

mPTuS
"SPACE
MUlOiV
MUlT
MUi.Tli'

mUi't2
"Ul TV
"Vr.NT

fJOTSAV

NOX
NOXl
n0x2

MUmSCN
01
010
012

0230
0215
027

0360
037

04377
04600
056
06000
06377
07
072130

7201"

7253
7215'

-115
5664
5665
7131
fr57?

5667
57i5
1752
1323

mVCTR
mVptR

i2f'e

''YACl

164

mYAC?
MYAC3
MYTFMP

'165
-166

'^YfwP2

l2?l

156
.157

07400
07420
07472
07510
07524
07566
0762
07655
077

07710
07716
07761
07763
07764
07770
07774
OC

OCTNUM

PAGE i»9d

23106

11-JAN^71

V:e3

•

00«I3

1157
1570
0007
1360
0076
5374
1156
ei73
7570
1776
7415
7650
l?174

1501
1424
1154
7572
0015
7571
1124
1125
7573
1155
7567
3172
1126
1127
7752
1101

7761
ODISSP 7704
7753
QE
PERRoR 7713
7731
fiEXIT
7714
OGO
7734
01
7722
CLIST
5530
0»<12
4716
OME
1425
0010
006377 7730
3115
OP
6567
OPMIfv'S
OPNEXT 1622
1731
CPTABl.
6002
OPTS
2663
OPTRf
2665
OPTRI
2664
OPTRO
5532
OPUT
7763
OS
1357
OSAMP
7771
OT
2465
out
5536
OUTA
2476
OUTCR
PUTOEV 0063
6154
OUTOG
OUTPUT 7706
2475
OUTX
0043
OVERl
0047
0VER2
0000
p
0005
P13
0107
P17
0106
P177
PIFLAC 0167
3373
P200?
6750
P27
3110
P277
P2FLAC 0170
2036
P3
0075
P337
2553
P377
PSFLAC 0171
2552
P40
0124
P400C
6310
P43
P5LNAM 0145
P6LMAM 0146
p720iZ
1402
OD

?365
7566
7564
4724
7565
7561
2361
2653
7513
7556
6515
6571
7147
2031
1314
6675
6711
6704
1061
3600
1123
1545

P762f
P77
P7703
P7740
PAl
PACBUF
PACKC
'PACKST
PACX
PAlG
PARTES
PASS
PBIFlG
PC

:'1"4

?122
-'1?1

'372
2524
25?2
'«!'46

?027
2530
5260
2051
6335
?!163
5^022

PCl
pchar
PCHECK
PCHK
PCKl
PClEaR
PClKFL

0614

PCOMMO

0X54
0534

PD2
PD3

i4e!i

5244
I?510

2535
0175
7746.

i'^554

PULXI?

»'013

PECALL

6334
6135
?102
?152
0160
?410
l77l
0411
7412
1422
?143
5311
5036
5315
5536

PEG
PER

PFiLTA
PFJNlS
PFmEW
PFnUM
PFX
prz

PGETC
PCETRH
PI

P12
PIOT
PUCE
PLOMll
PUEFLA
PLESUS
PLLPl
PLLP2
PULP3
PI.LP4

PLNAmE
PL.NU'1

PUOOKU
PNCHAS
PNCOLS

(?)144

1075
5I1PI
10'^6

1016
1044
11P2
1122
0142
-^153

7732
7776

s:si
cjpr
SCBPOP'?
0P4;
DPiSS
pp?*;
oPfrs
0PT5
D5r"!V
oRFPuA
oRu?E9
^

PRisTC
PRVT
pRv^2
BRVTT
PPVTLN
pRrc
PRDCCS

PSCCPO
PSfTCL
PStS
PSTABT

.7777

RET

\^'l1

3ETR*o

4544

RETURN
PEVIT
RHSERR

?i?4i

7733
11"?
77a5
l42l
4144
7574
1622
.'155

1*23
4551
?442
3114
6132
4553
611
610
7775
7746
.

'/165

l322

PSlISS

U00

pTi
PTBL

•030

PTCH
PTTN
PTPSt
PUSMA
pu^hP
PUSHJ
pwiit
pxnuTL
nACD
P6
PANIMUL

RANG
RARl
PAR?
ROfv
readc
RErOVR
REr-flVX

REMAlM
REPLAC
REPT
RESOL
-RES0L3
RES0U5
RESOLV

l330
..'126

6275
1462
4542
4543
4540
vl74
7774
':36i

5441
6160
1142
6573
6574
!152

4552
?74(*

?761
5712
1361
6146
6752
7376
6304
7173

s^lTEOU
R^i02

fiOOTGO

ROT

ROUND
RTl6
puai
RUfl2

RU93
RUB4
RUBS
RUBIT
SAOR
SAmEN
SAVAC
SAVE
SAVLK
sbar
SCMAR
SCONT
SCQPOU
SCOUNT
SEtCUK
SETT
SEX
SEXC
SFOUNO
SCOT
SIGN
SICMF
SIN
SMIN
SMP
SMSP
SORTB
SORTC
SORTCN
SORTJ
SPCCIA
SPLAT
SPnOR
SPTR
SQCONi
^QCNO
SHETLO
SRETN
SRCTST

5452
1563
5536
7146
1130
3651
5527
7461
2557
6151
4557
3334
3042
303i)

3337
3041
2555
6150
1372
2603
3751
2681
1300
1271
1266
7503
5534
5351
1041
1336
P74a
1304
1310
7124
0053
2662
6136
6101
6154
1312
4550
0354
4547
6777
3051
4562
7671
7467
7465
1541
PI261

2024

SRNLSTi f6i
0177
START

TYPE
TYPE2

START!,

5064

Ut'ETST

STARTV
STEMP
STEMP2
STOKOK
STOOSG
STORIT
SU8R
SUBS
SUBS2
SWITCH
SWTMP

0(^60

UTE
UTO
UTRA
UTX

T12
T2
T3

TABLE
TAGl
TASK
TASK4
TCRLr
TCRLr2
TOUMP
TELSW
TEH
TEMP
TEN
TENPT
TERMS
TEST2
TEST4
TESTA
TESTC
TESTN
TEXTP
TOO
TMJR
THISLN
THISOP
TINTR
TLiST
TLIST2
TLIST3
TOUOT
TRAD
TSTCRP
TSTLPR
TWO
TMOPI

7750
7751
2044
2051
6175
0102
0171
0167
0161
0162
0000
0032
3611
0071
0033
6466
6723
1202
1250
1246
1243
3052
0016
5156
4726
6271
6152
1772
6736
7366
0322
4564
4561
0017
5400
7257
0023
(9024

1236
1376
1532
2377
1227
6575
4563
4562
4721
5305

UiERST
VAL

WAIT
WAITER
WAfTLP
WALL
WEXIT
WORDS
WRITE
WTEST2
wtestg
wx
X

XI
X2

X7T74
X7775
XABS
XAOC
XCt
XCtiN

XDCLET
xoisp
XENDLN
XFINO
X5CTLN
xcctou
XIS3
XIN
XlNPUT
XlNT
XLC
XIS
XLL
XLO
XLS

XOUTL
XPOPJ
XPRNT
XPUSHA
XPUSHJ
XO

XRl
XRAN
XRAB2

12?1
1223
2066
2276
23-315

2274
2316
2064
0032
7657
0020
f?ll5
':i|664

0072
0003
0635
0653
0667
0673
5321
5035
4675
0140
e'141

2016
1341
0020
0062
2064
7602
2360
2244
3302
1254
2666
6306
5666
1156
0130
0136
0132
^126
0134
2676
1565
2425
C1477

0521
0001
?«01iA

1145
7365

•J
:Uli.'

/focl12,-^7
v?'

'11

y5'?

-312

yS*.

y?-,-.

4l3

kS-:?
ySr!5

l535
4676
5325

yS-:!?^

74;^?

vS?'.-^

yT3

717

yTFSTC

7e.«»

VFS^N

i546
2451
.377
6522

yvis
V

?E:o5

LINkS GrNFQiTfDl
(»UN-TIMF|

40 SECONDS

4K CORE USF3

v.'.'3

ii-ja\

23i36

pace 1«92

-f^

ASSOL
a8S0l2
aBSOlJ
iasouv
aCIw
aCIl

aCMISS
aDOR
AOONE
AF

Auri
ALPS
ALF2
alcn
ALIGN
ALlST
ALPHA
ahoumt
arcalg
arcrtn
ARGNXT
ARTN
ASHFT
ASK
ATLIST
ATSW
AXiN

AXOUT

m
?S32
•^313

?3S5«
58X
59«
67

?8?9
?962
1892
1956
1954
1958
?a68
2919
759
3631<(

2967
1945#
1963
1Jt68

348
2974
746
760
77#
29«
1538
37(»

3KI60

R18LK
SlFLC
RlUNiT
P2BLK
B2FLG

4485#
3741
4463*
4489*
4486«
4487#

H2UMT
9ACK
PEGIM
p£Tl
PET2
BETA
f>£TH

«LK2

PLOCK
FOTTOM
pufbeg
wuFFER
PUFR

3292
3^33*
2632»
3344*
2391
2456
2454
2931*
2812
2978
1917*
1968*
1971*
1965*
2919*
2945*
760
3662
2968
2034

3131*

3333
;;497

3344
23?5

25^^9

2951

30£il

3131

3158

3167

3184

2464
2944
2813

2493
2963
2818

2512
2964
2821

2512
2972
2324

2953
2996
2849*

30^3

3165

3192

3196

3276

32ri

3157

2856

29e5r:,
*

2996

3007

3021

8lS
1724
1763

8l4
1737

828
1738

1270

1274

1276

1323

1430

3732

3706

3708

3935
4272
4325
4465

3838
4273
4326
4467

3840
4274
4342
4469*

3849
4275
4345

3850
4281
4346

3858
4285
4349

3660
4292
4372

3662
4298
4378

3863
4320

1268

1269

I3l6

1322

1425

1426

1433

4064

2985

2986

2992

3665
2983

3691

3710

250
1686
1367

810
1717
1411

3677

3700

3832
3680
4315
4461

3834
4271
4322
4463

2957
885*
3664
2976

SBaSl"

2;^05«

1120*
1985*
2979*
756*

774

12I24#

757
761
247
2l5
1683
1543
-1232
231
3095
3l82i

1431

4482*

2342
1811*

1930
1949
3632*
1952
1894
3626*
3868
4338
4457
51*
47

2629
i9»

34/5#
246

134
34i3
8P»

•

2632
246&

2339
202
1977*
1980*
3673
1974*
1920*
3830
3869
4312
4459
234

?329i»

•

4C160

18P8#
826

3867
4303

m
n>

:.,0?

^J43

^--9

:\lt
-260

':^-t*
?.79
5.77

'.'.3

.5
C9

7173

?5?
reXl
CEXP
CF..

";r.
?fi33

?851
^8?2„

w
1373
1522

1746
154V«

??n

3425

iS'^^
1^78
2222#

1^-3
1491

1676
2634

2243

2e-

il29

1685

1726

22l8tf
221(^1*

1241
2866#
2853

1423

ml'

1244

1317

1345

13*7

3-1

,iK

istv

»».

3,3.

,«.

522
^3^^

553
i375
\i:i

551
1379
IIV7

i"'

^»'

ik.: J- 1
.

&nre£TfiE

" i565.56186«

3V29«
392|
255

2865#

^"A^^ Jl?
S* ^ir

27*
x!i;

4329

4362*

4369

i--:-ir
X622«

'It?
3642
3669#
3670
26l6#
4153

^?;^

t^^?:

1562
S579

CHRCfiT-

CHRErjO

CHRIUP
CHRT
ClMCF

-«-=
cntr
COl
COMBOT
COMSUr
COMElN
fOMEoU
COMGO
COMLST

""'"»
rRETLD
CREtST

•

5659
3650#
3589
4l32«

^r.
78«
767
2110
210
131«
131
226
537
5t'6

r»l
4231
4441

„,........-

nil

1^,0
a"'

^ am
2761

2769

'"'

»"

«.."»

a.«

,,,

^^,
tZ
«55

CHAR

.«

'!"

"ki

^J^B
14»|

,,,

9739
5».

gj^

97,9

,^,

^96

4109
:

3669

i' mS

u«

1235
799#
esw226*
214
135
1794#
643
5i7

1254

217
1793*
1799
739*
611*

230
l794

Jvfr'
423e#
4446#

a^J.

f.al

4374

4380

-v

.»r

»»

a«3

a,«

1510
3494

^m^»
^^S

3467
734p
<l5i3

2256
3^92

3n?

3134»

"256

il31»
2l2
T'74
?613«

hJtu-

l^"

3?69

3e7?

3071

3?39

3i;'9

3Ul

3113

3ll6i

3261

OATU>iA

?243
?668

326lii>

514
2424
2721
2322

541
2433

779
2437

796
2441

818
2722

1226

1380

3Sl2i

3333

3335

«.

,„«
2758

r.Hir

ri^UODY

CSMC!
fSTAs?
1

DCONP
rCONT

386

2722*
394
2586

DCOU^JT

?559

tilil^

III
.4^6
332
?277
3311
4?22
186«
1887
368«
380#
2332
2427

2?4
2418*
2395#
2279
2343»
4g4l#
259

2?61«
?5P3#
2921
4279
3140
4286*

.2348

DE^Sr.'
rECO^JV

OECP
PECR
nEJUMP
P.ELETE

nF
OCflP

nGfPl
DIG
PlCIT
nlCITS
DIVI
nlV2
blVOlV
DIVIDE
DIVLUP
OMDONE
nMPSW
OHULT

3e62#

ONUMBR
no
COK
DONE
DOONE

DOUBLE
CPCVPT
npN
r.PT

nSAVE
OTST
DU8DIV
nuBLAD
:iV3
r

CCALL
ECHOlS

2362#
2462

1?2#
2917
?4!»0
363111

i245#
1248
372
128«
2661
2667
2552
2427*
2425
3176
2463
?274#
3^77
651
1^57«

240
2^22
24l7
2284

1388

2353»

1324

397

3:588

lilt"

2624*

1926i»

2517
2975
4283#
3176#
4304
3109#

TAV

4'2'4«

2k5e

2918
2429
743
1258
1260»
39e#
2561
2684
2669
2626#
2444
2434#
3266#
2466
3295
3i?8S

949
1286

2470*
2349
2518
3039*

2626
2624
2920
3053

ZJZJ
3054

1381
3ll7

1391

1394

3175
24710

3302
2724

33^5

3274
272l#
2724«

3326

3300
2486#
3304
3l?3
1"38«

3311
2502

2922

3183#
1045

1149

„

3336

ll55

#
f

rop

fFUN2
fFUr43
FFU^J3l

921
1124

7«,«

{>52
1t39

ir-Ja

U36

1136*

114i»

73J

738

11B!J»

li5«
1122

llt>^#

2682

2690#

i;'72

f.ND

133«
1404
172#
I34a

1142

2740

873

ll57

2756

3523

1146*

135

fLPAR
FNOFI
FNULM
fNOT

#k)

2711

2frO

1315

4;»99

4ic;3«

1123
11?9«
115S*
13C7#
1333
1321#
1666#

1127*

rSG
ERL
fRR2

1?51
1086
ill!
749
1324«
1309
191

'AVoii

'itt;

IS9

31.

»5

<«'

"»

«'"

\zii

1i:

!S5
2777
355
1850
133B
1334*
4163»
1531#

'n^

n^s

isr,

;iy

Jn^

356

477

1665«»

4194

4206

ztlt
I6l4#
2071

,111

lltr

ll^l

HII

irj

.02

nil

"«

"II

nil

Itll

^,,^
2359

1992

22.*

2011

ENREPL
TNUM
FPAR
FPAqS
ERASE

?747

ERROR?

354

FRT
rRV
ERVX
ERXIT

1315«
1318#
1333
4145
1524

FSCA
ETERM
ETERMl
CTERM2

'nl

EXIT
EXITI
EXIT2
EXIT3
FXITJ

1598

!lii'
i6J2
2013#
2184#
3334#

?^(56

2313
S321
1627*

„iV
FXTP
F

rCONT
fCOS
FCOUmT
FEND3
FERROR
',IT,

nil

3402
i385«

1357
3752#

14C7
31'6
714
2117«
2278
1365#
4269

l\,

j;j

?P9?I
687tf

352
-.272

1668

""
»«

»"
u.

a».

»..

»ai

^..r

.,«

^.a.

3...

3:,.

26^9

2673
!334

2665

,»5

2879
337.

2960
337.

29912

33"

2.26

2^36

2.715

2121

2135

2145

1076#
1U60«
II08

11365

1050
1882«

IF"

ll\4

33.»

3l86«
71'
^

23l8

2355#

43?2

431*

I'm

lilt

1961

^9
FFf
FG02

932
?«;33«

3^36

FG03
FG04
rG05
riGOl
FtG04

7?4:i

niERf
nUSTR
riLTAB
riNCR
FINOlN
FINON
FINFIM
FINISH
FINKP

25<3

2949^^2678

2692

27Z1

27'7

335l

3376

19:»8

V8?#
2546
2547«
2552»

27.'^4*

3975
3979
3732
478

3987
40K3
449B#
67&*
373
1362
7l7«

4l?78 v
A037u

AdB2lt

4398

4l?2

398

484

5l5

877

1224

445ei#

4455

4468

7PI1

726
2048
2704
2273

965
2ll7
3349
2315

1296
2l32
3372

1185
2137
3398

1777
2149
3487

1673
2155
3500

1879
2162

2167

1945
2233

19?9
2541

1996
2547

267
2040

290
2043

637
2044

737
2045

732
2885

869
2889

870
2902

872
3l81

1095
3182

1126
3l83

1134
3745

686
1098

696
1100

1181
1129

ll87
11^9

119?*

2654*

2695

2374|
2588

26l4

2555
2861

2571

25hI

2585

2639

2843

2857

2863

i343«
476
5738
7?3

^4!

FISH
FIVHUN
FIX

^^11*
1180
3746
?S68#
J'0«2

FLTX;^2

1878
3887
126
126*
?926
2876*
2831
475
130
478*
475*
?914*
350
1091
?317
129
?836
?867#
7l8
33*
34#

FLTiER

2235

?ft97

?007
2676
68#
3501
69

FL*0
FLAGl
FLAG2
FLAOJ
FLARG
FLARGP
FLDV
FLEX
FLGT
FLlMlT
rulNTP
FLlSTl
FLIST2
FUMY
FLOG
FLOP
FLOUT
FLOUTP
FLPT
FLSU
FLTOvE
FLTX9

2163

25e51»

FINT*^

FLAG

2166

9566
?665

175)«

2158
35.''2

2671*

7l3#
668
2023
2690
799
3527#
3012*
70*
1904
3747
2924
2005
1903
3893*
684
705
3131*
2928
2853*
683*
1441
673
681
2927
2018*
ie97#
2321
2522*
2851*
2925
1178
1816
2825
136

25"32

2698
2264

3031
285
1935

2l?l#
1939«
_

1445*
2370
2842
1447*

2900
2378
2854

^Tn
rMi2
fnCG
FNJOS

FNTART
FVTABL
f NU'1

ro«

roRHuN
roUTPU
FPACl
fPNT
FPS^T
FRETlD

?567
i93d

2573
1967

11#

ll^'d

3«1«
1151
11?8
655«
3488
129«
3353

1152

9291
4225#

llt>2

17SP
3369
2795#

4?i54

4067

706

132

1796#

I6vl2«

351

2122*
3754

G3773
C57200
r.7773

ifl43

1822
1824
1830

GETCX
GETLK
cetrhS
getscn
r.ETVAR

9fl3#

GEXIT
GFMOl

298
944
HB«
494

r.7775

G7776
r,7777
r.AMMA

GBLOK
gecalU
GEND
CCRR
GETl
GET3
getarg
CETC

r.iNC

67?
1859k
I86e#
1S61«

3410#
2831

285'8

2822

2864

730

966

1099

1188

1779

3650

3705

3707

31*
1398#

1410

3373
2799

2869

2874

2915

2913

2863

3143

23l5i»

1862iit

1B63iii

1827
1821
1823
iS25
3621#
1828
922
i402#
297
1371
t430
656
154#
797
1774
4146
168#
3725
70#

G7774

12^'u

741

4451 1?«

f.5772

2138

3526»
777
3367
2647
23?8

FflETST

13#

?U5

2739s

FRST
FRSTX
rsiN
fsserR
rxlT
Giai

?5l9il(

2423#
2l'2*
189?

PL I ST
GO

1995

CONE
GOODY
GOTO
PRPTST

231«
3652
483«
183

1864#
1837
1866#

1S69«

1867)»

3644
1855#
949i»

1419
307i»

1385
1411#
764
233
8l9
2741
4186
241
3827#
1869
1354
338
97P#
946
5i''l

899«
253
905
2760
4lfl9

363
3874

1985

•

787

806

1321

2027

2122

2125

312
1047

4252
513

1993

2018

•

520
1219

600
1227

2146

2159

647
1561

649
1765

780
1767

786
176»

3352

3l7#
957
891«

1783
2765
,

270
366P'«

584#

499
1137

305
997

2;?,:^2!»

744

488
1122

295
913
2763
4248*
483

4016
592

593

^19

r.si
r.s2

939
534s

r.s3
r.s4

9»5

r.SERCH

9.^3

V47
976
V16
14 01

C.Tl-M

-'9*

(.EtRR

?38
53*

32S#

:?733«

4263
983
2751
3162
1452#
472
651#
742
649#
65P
224
3853
646
2369
1609
4437
816

HINSUF
Hiss
MORO

63«
2612

3157
t33
IBAR
lECALL'
'

ir
IFI

IF3

IGNOR
ICOTIT
!LIST
IN
INB'jr

INCALU
INOEV
tNORCT
INFIX
INLIST
INORM
INPUT
inputx
INSUS
intece
INTRPT
losur
IPART
trctlO
IRETN
itable
ITERI

ttloaD
ITSACO
ITSFF
ITSII
ITSOK
ITSSS

ITSTOR
JUMP

82
2i'««

632
631*
637
641«
2l9#
3842
637<(

?337#
50«
3486
84*

2814
605
222
?675
596)»

239
92«
69«
20
33
634

4223
228«
?S90
698
3399
?757
4351#
4i56«
41-52

5422
4149
?648

4280
2388
2880
3284

4289
2398
2396
3299

4291
2455
2941
3i?b

2371
1613
4428
1283

1634
4445*

1638

1689

606

1442

1443

2449

4277
2 3*) 6'

2876
3280
1460

4294
2479
2943
3315

4296
2481
2946
3322

4311
2496
•
3302
3338

4359
2498
3027
3385

4447
25S7
3036

2595
3041

2621
3045

2607
3110

473
3837)»

470<(

2726*
601
262«
263
736

2725
'"

597
860

769
926

1131
1569

1631

1632

1792*

1793

29^4

2907

335«

2815

2326

2134

2238

2749

2890

3483

3490

3503

3361

3364

3365

3366

3374

3375

3382

3387

2833

2834

2837

2846

2847*

2894

2911

1877

1579i»

1630
652«
4232*
474
2923#
713
34?6lll

4216<I

4247

4382

4158#
3432#
4157#
4388«i

i<5

?3i33

2347rt

KINT

1583
?d57
2?65

2372««
2i'75#

1.2

1415

1440#

28^3

9l8#
1412

2849i»

?82I2

^B f

927#
951^ If

1588

4449
2811

1597«

3392

?,^^3

?:^7as

'"^1

2^^^"

.'715

»2,|'

f PUT

^^nn

l98
iXVj

2636*
2777«

g2E:

is?-*

1'29#

,3
i4

,,ST3
'S^"'

UISUO
LL^

,
I.UENCT

LLIST
lLOAO
^H

;?:

si;
823

^2?
862«

I2I

Uir
3973

39
^9^'

2775
3717

2776
3967#
2780

*^58#
.
2784#

ISadIT
LOAOJ
L0G2
SgI

S724
2i36«
?755
3988
204'
2099

\%\n

ir^:

.OSS

'5=1

ui5

<^n7
tjr,

1112

111'

tui

..^

1212

U5I

ntt

r^r.

..»

322

396

5l7

537

588

„3,

,„,

»4a

»e».

3»«

^,,^

..«

"«

..«

,^,,

,,.

'''

""*

;;^

^f.i
?649«

'U?

sSri'

4^^ci

4n0

lla^K

3535

V.'n

4.72.

-Bl

t;;S^

„„sT

"if.

I*'"

3924

3889
2778
2757»
*339*
2098*
2365«

'11

i'567«

142*

13^9

VA^

LNUM

,,.A

:rj

:f.s

'"'

""
4^55-

2782

:">

^Pt9#

LrfETfP

iXlT
"133
V10PT

71?2»

.-11

r-20

x22«
1451S
1374
\A7d
?633
114«
110*

1-240

ii7(»

I."?*
?«i!3.'

•12
•'l37

'143
;'144

»4

I5l3
2628«
1J7?I

1''79

I2i52

14a4
1421*.

1520
2620*
635
1679
994

ii;"!^!?*

1^110

?538

2622#
1420#
3894#

^'.4^

i4i?9

K43
m5
m77

S845
121#
ia8«
1578#
716«
119«
4130«
2271
659
481#
120#
2234
3267«
4108«
2770
2420
67#
2916
115«
2680
2439
3952
3506
3495
2124
751
3989

^'!Bf'EAK

hCOM
MCR
mCS
MD
MEQ
mF

mFLT
MHUNOR
Mir
mINCmA
f'iNCOM

MINE
MlNSKl
MINUS2
MINUSA
MiNgsE
«INUSZ
MLDBlK
'ILIHIT

mmCOM
,>iOO

K'OOIFY

MOO
mOOE.mD
mOOL'JP

1551#
1784

2436

2598

523

1229

1497

447

453

463

2840

2858

2103
3l39
I3l2

2128
3187«
2435

2l86
3202

2390

312?

3166

1362v.

2336
2658

12i36

14G5
1636

1731

256
4147
2292

490

555
445
2251#
3271
4114
2790*1
2445«(

1183
3067
280
2720#
2446*
3954#

3206

3528#
2130#
806«

3580

4'^(18

402li|(

4038

TAi'

nil

>i"

»2"

»"

3!"

3»2

»"

"»

3296
3265*
3240
3211
3235

3309
3278
3245
3241
3251

3285
3264«
3255
3262*

3272
3258

3294
3269

3303
3291

3293

3298

33?7

4025*
38734

4331
3891

vP2
»p3

till
3288
3178
32?4

Vzii
3290
3233
3236

..p4

:kxB^

32'.'.9»

3222

3229

:rr'

3524i»

4i?32)li

MORNUM

2348#

7l5<»

4?528

Mp5

2642
<2l2

990#

(^2613

M272

962
-life?

«"

""•

#
jpb
vPLR

<??4i

r'PlJS

7<J3

"SHACE

?tfi3

""JLDIV

Ml 5

•^UtT

?<;ii3

"ULT10
MULT2
^UCTV
MVCNT
^VCTP
"VPTR.

-YACl
^'VAC?

rYAC3
mYTEmP

MYTMP2
naGSi-i

nchars
^'COLS

NEGf
NiFEEDS

MLINeS
^:OASCI

mOCLK
.MOCRlF"

'jOHanG

^ORF
NORM
NORMr
VORMlE
NiOTSAV
t'QX

NOXl
fOX2
NUMSGN
ri

010
rl2
0230
P215
027
0363
f!37

04377
04630
n56
0655 !5P

^6377
07
D70C«?

C742e

1 1 6 *

3237
ii;.^6

2^63

2447tt
2446tf

313^
29l7«

3111

?428

312&»
2SH4
245?e

24.68

1Z3

24bi8

2459

?.r75

3^76
4354H
4?24
4029
4227
4229
4239
4170
4317
4110
243
3442
3431
1938#
3446
3445
3672#

Sf-sa

2628
2461
3086

4c?25

4034
4233
4237
4245
4171
4320
4119

4r32
3951«
3962*
3742S
3743s,
3744*
3736#
4326
3737«
85«
3441
34?0
1871
3421
3428
3640
1615
3419
3448
2873#
?873
3128
4413#
4039
2971
?953
2989
3847
iai0#
3881
i?3i#
36l9«(

3939
4232
3623*
861
3A43
??45
3936
3749«
3458
4258
3362^
3516

2472»
3393

24S5

4f)26

4J33

4336

4ti53

3449
3462

4243
4241
4243
4395
4173
4321
4159
369
3460
3464

3461

3470tf

3614

33«'

4391
4393
44?6
4i74
4323
4169
370
3471»
3469#

3466)11

1622«»

3423#
3463#
2930
29ie#
3175#
4423
4P47#
2987#
2999#
2994#
38e0#
1811
3937
1012
3661
3945#
425P#
3645
875*
Z6S(nt
225'1#

3944#
4354
3473#
4383#
3443
3525#

39l7#

4006

ijifb

44510

44?3
4419
4i76
<324
3?3
3577
3613

3iri

3104

44?8
44l4
4421
4177,

4422
4413
4427
4179

389

403

3127

3179

4424

4429

4436

4197

4207

4261

531

543

1326

4267

4270

4305

M^r«

07<2^
^7<?2

•.•7566

?45?

r76'^

?iJ.^«

.-17655
."77

?423
3«33

3965
4157
419r
3942*
347S»
3654
3474»
3344

r77i?
n77l6
07761
07763

39.-5

3yi9tf

3465
3933
3417
3748«
3831
3859
3563
3873
3564
3546
3565
3562«
3576«
3561
5568
3560
?3?6
(901
4129#
3575«
1761
?B67
1>55«
1090
?525#
1595
1586
i631«
?352«
3566
862
3567
163
2337
1499
83«
?352
748
1532*
6?#
65«

3476#

^fsi*-

'^751,'

^129*

|->7524

59? 9

r:7764

07770
07774

OCTnuM
PD

ODISSP
ct

OERROR
CEXIT
fiGO

OLlST
0M12
ONE
0013
006377
PP

OPMInS
DPNEXT
OPTABL
OPTR
CPTR2!

rPTRi
OPTRO
rPUT
OS
OSAMP
nT
OUT

OUTA
rUTCS
OUTDEV
PUTDG
OUTPUT
OUTX
OVERl
OVERS
-

3!;28

[•

2'5«

?13

22*

V^-^-'

a
w

A
W

3918«

39.^4

3943ii(

3472*
4234
3839
3921#

3920III
-

3593i»

3863
3600#
3555*
3594«

3896«

3587
3563«
3579#
3561
2350#
1910
4192
3595
1762

3599

39iJ2

39<)3
(

3610
-

3569#
1932*

2017

I788i

29l6(if

1125

1135

1193

3477
1660
1592
1656
2374

3578
1662
1596
1657

1126il(

3436
liZBit

1591
1644
2358

1690
16320
1661

1692
1691
1693

3602ili

874#
36P'8#

1494«
2357#
15C3#
792
2558
3557#
15?6
2452
2399
3?49
1529
951

15'32

2360

2379

1501
2562

15^4
2611

36(79

2633«

26^6

2463
2451
3«51

2489
2473
3114

2513
2475
3116

2515
2486
3310

1542

2^39

2798
2490
331?

2895
2686

2955
2797

3005
2882

3018
2933

3186
2935

3189
33?6

3191
3023

m
U2tt
lll«

15'J4

piFlac

.^745«

p203!'i

3?7

42'«2
334ff

Pl7
Pl77

323

? .' 1

3;532«

P2fLAC

ll3iS
:^746«

U99i»

P337
P377

93«
1516
3747#
1512
125#
S672
3727«
3729«
900#
109#
123«
{06«
286
15250
157
156#
45«
i529«
?161
652
?799#
S741«
40«
4S0

1396
4244
1213
497
1548#
4246
1547#
242
2727#
3386
3690

027
r277

psruc
P40

P4002;

P43

P5LNAM
P6LN*M
P720B
P7630
p77

P7700
P7749
PAl

PACBUF
PACKC
PACKS!
PACX
PALC
PARTES
PASS
pbiflC
PC

PCI
PCHA«
PCHECK
PCHK
PCKl

PCLEAR
PCLKrl.

PCOMMO
0D2
PD3
PDLXS

pecall
PCQ
PER
PFILT.A
PFTvllS

PfNEW
prNUM
PF)(

PFZ

PGETC

319
910
929

41G>9«
?»148

2155)11

414
1528
201*
3583

418
1532
1814

151
153
32#

n56

2748
?618«
1?7#
3732K

2o29

3416

1 4 76

1600

281'3

3978
3971

4002
3998

4176
4120

4l72

585
1402
1696

589
1464
1704

2807
1526
1740

1531
17*5

173B

2266

1533
226
815

229
1719

254

824

S34

904

1191
2768
4365
264
5P9

1210#
3556
4451
267
609

1220
268
1033

364
1439

384

407

428

433
1556

438

446

454

1545

455
461
235

469
416

421

422

423

435!*

15'6
4 39,2

1378
439*

3156

V3fl

333#
1533
1507#
223
216
1743
2167#
948
2766
4338
206
492#
4112

3734*1

1659
1456

3584
4217
440<«

A2^*
1534*
3593
35e8#
4397
444
460
211

456#
145
1540
2758#

4666

1466
4196

2340
4260
4211

2375

4160

4203

?<738«

4 2:^9

354*
1140
355#
356#
4126#

4,361

4336

1158#
4^62
4t^63

4142

4249

2276

2443

487

102»

169»

436

45^

465

l^^^
.

633

953

1021

PCETPH
P!

PI?
PIOT
plCE
plOMIU

^P5«
7\A'i

3968
2163

?..'.! 9

2'Slbt>

2119

9?99

23. '4

,-K726«

3969
3388
4262
3836
3851
3870
391b
3837
3976
4168
3577#
3613*
3614#

PLEiriA

3fl28

PLESuB
PLLPl
PLLP2
PLUP3
PLIP4
plnamE
PLNUM
flooku
pnChaR
pncolS
pnfeeo
POPA
POPF
POPJ
POPTR
PP43
PPASS
PPROC

3689#
3833*
^841#
3863#
3900#
3929
3724«
3733#
3539
3598
3597
145#
152«

PPTEiy

PPTR
PREOIV
prepla
prhseR
printc
prnt
PRNT2
PRNTI
prntln
PROC
proces
PSCOPO
PSETCU
PSIN
PSTART
PSUBS
PTl

PTBL
pfCH
PTEN
PTEST
pUSHA

•

l46lSI

3578*!

3848
3556#
4124
?542
3459
4275#
3735#
4116
162#
1697
?600
1465
1773
?6i3
166*
?63
381
36?'7

3582
187#

3995
2i93«

4117

4165

2157
23«5
3996

2169
23^9
4118

2161
2312
4167

^H
^^

1f
W

2l97i»

2344

2356#

2345

3B92i<

V,
*

3857
4000

3861
4179

3916»

699
693
969

772
695
979

923
697
987

1106
1094
1105

1149
1133
1336

1211
1179
1759

1214
2886

2753
2901

2773
29e3

3558
2906

795
1768

620
1773

1288
1775

1383
1782

1467
2341

1472
2376

1489
2531

1492
2590

669
967
1771

675
970
1772

700
977
1776

7512

978
1778

704
96Z
178S

1044

1046

1113

2762

3594

4-36

5214

382
492
3596

4^2
542

666
404
739

4155
521
1706

4164
546
1739

4204
766
1723

4251
784
1766

14751

1493

1787

2615

1698
489i
479

1707
2249

3576
495

4125
6?6

692

1032

392
935
1114
27P0

395
940
1126
2706

530
945
1130

533
960
1190

536
961
1754

662
963
1757

667
964
1760

663

676

711

766

1240

IB42

3S9Sill

3557
4125#
2625i»

3477#
4282
4121
4127#
213
•A*
1705
2635
1469
1787#
2615#
519
409
4G1
3612#
3589#

4?!14

45153#

3688«
46#
710

4264
386
934

i,;'6i

lit"!

9677

2691

A'?2Z

4059(11

127*
9625
925
148«

1710
2699
948«
36&

488ili

2716<I

496

)

m
368

.6Z

6d7

6S9

7l2

717

1116

1127

1177

2884

28P6

3(S6

2899

143»
7459

2^2

•'-R

^C10

655

6^*

677

685

691

763

775

1053

1567

2231

?.'••»

1636
3611e

1646

Sl»

911

^12

920

9?4

928

942

959

961

1428

1537

1539

1553

1741

?775
734
723»
?a71

2295*
2637»
727

729

731

?f>73

292l#
1711
219
379

6C2

830
1676*

2530

25^1

2627

,,*3397

is:s

PUSHF

•

?9:'6

PUS-HJ

PWAIT
PXOUTL
fMDO
'J6

KANMUL
PANO
PAHl
RAR2
RDIV
SEAOC
RECOVR
•

^J.-a

165«
164«
^471

PEMAIN
PCPLAC
KEPT
RESOL
RCS0L3
RESOL?
PESOlV

?457*
3735

RET

!?3e4«

RETRN'

753
71«
3164
3843
1838
9595
3364

RETURN
REVIT
RHSERR
RITEOU
RN02
ROOTGO
ROT
ROUND
RT16
PUBl
RUB2
RUB3
RUB4
RUtJ5

RUBIT
SADR
?A«EN
<;AVAC

SAVE
SAVLK
SSAR
SCNAR
SCOMT
SCOPOU
SCOUN.T

SETClK
CETT
SEX

?5'ii

3029
3331
9674
?723

1536
9587
174*
15521

1728
1734*
1733
1721
1515
9351
4(?97

1576*
3073
i577«
826«
819«
816*
34l5«
9263
9?31«
654*
846

292?l(»

2467
3999
2564
3?34#

I6iie

1610
2484

2576

2482
4106
2627#

2723«
3203#

3207

3345

2029

2127

2l95

3884

3910

3922«

1552

2265

2469#
4?i90#

3345)»

2685
3334
2346
1!?19#

19?7
3169
3854
18510
2349#
3389
1552«
2630#
291
1714*
1744*
1748
1741*
1742
1550«
2554
41O0#
1579
3^81
1581
880
825
678
343?

19l3
3174#
3375

2354)»

2365>

3589
740
856il«

.
.

5398ill

1463
1750

1743*
2584

2629#

1625
3091
1623

3099

3177<«

3612
2368

2330

877
981

3468

23S3

218?
-

4127

,.«,
5433

077
^P33S

SEXC
SFOJmO
SCOT
SIGN
SIGNF

334*
3,'65

S-|N

66«
16C4

=>Hrf

?53?

smp
SMSP
S0WT9
SORTC

SRET\'

sretst
SRNLST
start
startl
startv
stemp
STEMP2
stokok
ST009G
STORIT
SU3R
SUBS
SU9S2
SWITCH

,
•

95?9
159
i6a«
74K
158«
604
1722
176#
S535
3363
3371
4224
254«
4399
833
2P3«
?(i!31

79i»

3493
35P4
4410
4412
?644
3676
i97#
195«
3739#
3740«

24)»

TAGl
TASK
TASK4
TC«LF

48«
?289
i8l9#
89«
853
1744
49#
?3l9
?693
?832
?982
758«
796#
794#

TCRLr2
TOUmp

1329

T12
T2

TA3l,C

m
w

^M
^^

3170
2410
1629*

3126

3i61

32?4

842
550
309
603

851
906
578
644

856
914
1313
671

858
1285
1039
679

2742
1063
758

2764
1069
781

251
3514

276
3517

549
3518

657
3520

3544«

3547

3551

266

752

1240

1320

1712

1612

4053

1318

1334

1434

.1753

974

985

2639

2750

3688

4335
4381
1726
641
2333

4337

4350

1249
2338

1252

1255

1257

439
1023
2300
1872
2364

446
1245
23^2
1906
2933

451
1246
2310
1986
2945

3l53«(

24?1
1612
26l9i»

I5ft

SORTC^
S0«TJ
SPECIA
SPLAT
5PN0R
SPTR
SQCONl
SQEND
sretlO

SWTl^P

583#
335
884
3137
2367
16J5
2599

79X11

2617*
836ii>

84lv

493
299
220
6?5
1751*
236
3513

530

3n
5!i5

1076
821

12f!l

831

1205
1150

1216
2774

2426
3559

1273

1279

1474

2267

2266

2283

464
1256

467
1517

587
I5l8

590
1525

840
1725

847
1729

852
1739

2038
2574

2130
2577

2152
2592

2154
2596

2184
2671

2286
2687

2313
2686

3055#

342!4#

3402#
4227<f

863
4408!((

876i
261
22iZQ*

933
3512
3515
4424#
4429#

3591(1)

3592i

2648it!

3630
927
986
4330
4363
1241
636
2326

3691«
962
2638
4333
4364
1423
639
2330

412
854
1749
1479
2326

415
855
2296
1481
232»
2710

2 7. '9

431
1022

2298
i486
2363

2850«
30i!9#

790
1030
1327
1^28
1753#

798
lC3i

1786

1438

xkSS
XADC
x-CT

W^
W.7
1333
^2*

vols?
vENDlS
yFiND
xgetln
VGETOU
yi33
XIN
XINPijT

XIMT
vlc
XLG
>LL
)tLO

vls
xoutl
yPOPj
XPRMT

xpusma
XPUSMv)
XQ

xni

XRAN
yRAf?2

yRT
XRT2

yRTL6
XSCN
XSORTC
XSPNOR
XSQ2
XSOR
XSQRT
XT3
XTESTC
XTESTN
XYi
Y

?ERO

173
171
169
?99?
84

?656
?411
344
?179
?792
?111
?1?7
?65!»

147
167
149
144

36l7#
36?5«
4367
346
S336*
35'#

175
343
161
177
1881
1916
353
557
185
179

1482*
3646
?879«

iiei#
86J#
232
216
1222*
3487*
1422#
1344*
277«f

^
1368
248
122&.

1436
135S
331

45m#
1633#
2666
2432
736#
3714#

1399
911
1281

1414
829

1764
9?3

1535

}
'

1555

1714

1727

1735

1369

1640
2683

1642
2725«

1651

1655

163?

1641)K

1663

3611

36l2

1473
419
430
3658

434
3666

3667

3984...

41305

41307

4375

4376

4339

4045
4396

4048
4452

4339
4453

4341
4456

4343
4460

4344
4462

4347
4464

4358

377
56B
361

443
577

449
343

462
844

466
850

971
1266

972
1272

1262
1277

1278

1350

1393

566
996
1836
2140

575
998
1895
2172

580

581

563

1916#
2174

1946
2176

1951
217S

1955
2160

1957
2205M

552
10?8

554
1015

559
1016

561

562

563

564

3657

3663

3687#

2449<l

3720««

3716«
3712#
3716*
1637
1321(/

1461«
4ll#
429#
3647
3983
4370
7261*

3342
376
567
357*
1177#
565#
992«
1883
2134

3349)!(

563i«

54Bk
I0r4#
I486
3653
3174

4366