Digital PDFs

DEC-S8-LBASA-A-LA

December 2009

381 pages

Original

9.9MB

Document:	OS8 BASIC Listing Oct72
Order Number:	DEC-S8-LBASA-A-LA
Revision:
Pages:	381
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/dec-s8-lbasa/dec-s8-lbasa-a-la.pdf

OCR Text

IDENTIFICATION

PRODUCT CODE:

DEC-S8-LBASA-A-LA

PRODUCT NAME:

LISTING OP OS/8 BASIC

DATE CREATED:

OCTOBER 2, 1972

#
/OS/a BASIC

EonoK

palb-vt

/05/« BASIC EDITOfi

/D£C-S8-l,BAS*-A-LA

la/eu/i?.

/C0P¥RlliHT,1972

/DIGITAL EOUIPMfcNT CORPORATION
/MAyNAR0,M455ACMUSeTTS 017b«

8
9

/AUGUST 19, 197a

/HANK MAURE»

12
13

/
/

15
10
17

/
/

eiQtf

AND

VERSON3 100

LEN EUCKMAN

paue

)

/nS/9 H4SIC tOlTOrt

a L H - V

37 00
HC.HtUK5/,U,ll

7001
7bHU

?20'-3

O.SrtKt>s32k;v!

ati0ii]

DSKcuF s<4Ot'0

HAMiLKsuay^
TXTAKt As500O

?3
?u
2b
3b

055003

ilPi00a

2>?
S"*

0ei0P)5
000l?lb

4400
5000
0003
0000
0000
0000
0000

010007

01 00

00010
00011
00012
00013
0001U
00015
00016

7b03
326b

32
33
3a
35
3fe

37
38
39

0(5017

«>a

00020
00021
00022
00023
00024
00025
0002b
00027
00030
00031
00032
00033
00034
00035
0003b
0003 7
00040
0?041
00042
00043
00044
00045
0004b
00047
23050

00KJ51

6*.

7f1

0H052
00053
00054
00055
0005b

i^li^'i

b t'

ata

4?
43
ad
45
aj
46
a<j

50
51

52
53
5a
55
5b
57
5ft

b<?
*»l

fe2

fe3

67
(>B

f^9

ifi

0000
0000
0000
0000
0000
0000
0020
0000
0000
0000
0000
«I000

0000
0000
0000
0000
0000
0000
0000

1 i' / f

/
/

bI7t

iLH-'-'.^v

.'i-

I,\f-Oi*MA r Ii:N

ihfca

(

K itL»

SwAP A-^t-A Fu^ f\SH
^ILt c»UFFte<
Input ouTPur HANniK^f a!)ok>.ss
STAkT of TFxT AktA

SWAHTI,
RWAPT(>,

SW4PT3.
SwAPT4,
VtHSON
VtHS,
lNFO-1
X10.
MAMLST-l
XU,

/VEKSlONi MlJMHFJ^

X12,
X13,
X14,
X15,
X16,
Xl7,

*20

HDTMP,
HDPTR,
SIZE,

/UStO BV INPUT ROUTINt
/ijStD

BY LINE F;i)ITO« STUFF

TfcMP,

TtMP2,
TOWARD,
PTH,
NDIGS,

NCMASS,
coklag,
CHNFIAG,

/s0

0.1300

(ILOf'LAG,

0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
7b07

LINENO, 0;0

CTRL/0
HACK FROM RUN,
IF Ol.U
WUN,
IF SAVE
IF INPUT COMING FHOM FILE
/mOLOS most RtCENT UIlViE NUM

EO^LIN, 0;0

/LAST LINE

7 7 00

WUMI-LAG,

IF
IF
IF

NAM£,.

0;0;0;0

/NAHE

fname,

0;0;0;0

/CliHRfcNT

SwPNl'M,

07607,
07 t:)? ,

f«iUMHER

auFFfc;^

FILE NAME

/ADDPtSS OF ntVICfc HAMDLEW
/CUfiPENT iiEi/ICE NiLiMdE"'
/i)WAPPEk FLAG (FOk -C)

OfcVHAN,

020ti

0201
7761

/»1
/=1
/si

760 7
7 7C^/

?0i(-

n?yii
7

2H1
7/hl

t
'os/a BASIC
73
Ta
7S
?*
11
T«
T9

»0
»1

S2
83
S«
85
86
87
8«
89
90
"l

00061
msshi
800*3
0006a
00065
00066
00067
00070
00071

00072
00073
00074
00075
00076
00077
00100
00101
00102
00103

92
93
9a
95

0010a
00105
00106
00107
00110

97
96
99
100

00111
00112
00113
001ia
00115
00116

n
101

102
103
104
105
10(>

107
108
109
110
111

00U7
00120
00121
00122
00123
00124
00125
00126
00127

#
E DITOH

7/64
017/
0232
7201
7706
0032

0072
7200
7600
001 r

0260
0237
0013
0215
0212
0037
7741

7405
7701
7772
6471
6211
7770
6201
0010
7774
7766
7634
0137
7746
0036
0077
7 745
0012
7771
7400
7760
0400
0014

PAlt' -V7

0;7b4f
0177,
0252,
07201,
07706,
032,
072,
07200,
07600,
017,
0260,
0237,
013,
0215,
0212,
037,
07741,
07405,
07701,
07772,
06171,
06211,
07770,
06201,
010,
07774,
07766.
07634,
0137.
07746,
036,
077,
07745,
012,
07771,
07400,
07760,
0400,
014,

7764
177

232
7201
7 706
32
72

7200
7600
17

260
237
13

215
212
37

7741
7405
7701
7772
6171
6211
7770
6201
10

7774
7766
7634
137
7746
36
77

7745
12

7771
7400
7760
400
14

lH/24/7^

PA'jE

?-l

DS/H HA.SIC

fcl

Pa L

ilTflK

?•

- V

1 ii- /

f^A.

3«/ /

y A f-

02i?ia

11 <

^^ttli!

u«

P^^ai

M2/

IC4

-iIjI'-jS

/GtT A t I^J^ KkO 1 !
/CLtAK il\E N-u'^fJfc^,

lis

5!02t12

30 3«)

t'CA

NChAKS

/CLfcAK

llf'

k3lii<e03

730«)

117
IIH

a0c;04

457/

iipl2i?5

3v?24

11<»

00^00

1?0

002?!/

714b
1024

121

H02ia
K)02U

15?
123
1?«
1?5
12b
lar
128
139

013212

00213
(30214

000

GtttlN.

5777'
llli
7450
5354

ClA
IdtTC'JMS I
TfeMI^,?
PCA
CLL Cf^ rtTL
TAD
rfcMP2
SNA
HYfcHVk
JMP
TAD
U7/bb
SNA
JMP
CA«RE T

KiNQOfc.

745<3

1107

TAt)

7450
5334
1104

13P)

00215
0021b
00217
00220
00221

131

msii

5334

132
133
13a
135
13b
137
ise
159
140

00223
00224
00225

1114

5315

B92ii>

7001

SNA
JMP
TAO
SNA
JMP
TAD
SNA
JMP
lAC
SNA
JMP
lAC
S2A
JMP
JMS

1«1

H2
1«3
144
145
l«b
147
14H
149
1S0
151

152
153
154
155
15b
157
158
159
lh0
Ibl

Ib^
lb3
Ibu
Ibb
Ibb

00237
00230
00231
00232
00233
00234
00235
0023b
00237
00240
00241
00243
00243
00344
00245
00246
00347
00250
00251
00253
00253
S10354

00255

745k)

745*3

745id

5334
7001
744iid

5237
457b

nib
5301
111'
7 45*3

5313
7100
U?id
742k3

5203
7001
302i
1034
7b4id
5«j5i

1034
4573
U130

dZ^'yi'

7b4ii)

00357
00260

52b4
1023

C.i03bl

U3l

vieehi

4574
5303

002b5
sdi^gha
0i:1^bb

\0i«3
1

ll?)2

ALT,

07 7 7k^

ALT

07772
ALT
(r7b34

MSGALT
JMP
TAO
SNA
JMP
CLC
TAD
SNL
JMP
I

ri-.nT

COUNiT,

/SAVE CmAk
/CHfcCK

KO-^

Cf'NTKDL C

tXIT TO 0S6
/ITi "C
/CHtCK fC\H LAKrtlAGR HtTUHIJ

/JUMP IF 015 - CAKRtT.
/CHECK FOHi -U
/THtAT "U AS ALTMODfc
/CMtCK f'OR ALTMOOE
/JUMP If- 033 - ALTMODt.
/CHtCK FOR RUBOUT

ARUOM

/TktAT LIKE BACK ARROW
/CHfcCK FOK ALTMODt

ALT

/JUMP IF I7b

.+4
[TYPE

/PRINT IF 175

ALTMOOt.

ALTMOOE.

GfcTLlN+l

n3h

/CHECK FOR

AHHOW

/JUMP

liACK

ARROW

157 - BALKARROw,

07 7

ICNOHt

/JUMP IF NOT PRINTAbLfc.

TtMP
OCA
TAO
OLOKLAG
SZA CLA
JMP
.3
TAO
TfcMP3
tTTVOUT
JMS 1
NChAi^S
TAD
S^A CLA
ISTtKl
JMP
TAD
TfcMP
TAO
07745
CLNOTb
JMS I
TGNOWfc
JMP
NCmAKS,
ISTtxT, TAD
!7a»'S
TAD

/SAVE ITCSPs01,-a77,NO 00)
/INPUT FROM FILt 1
/YES,

OQN'T ECHO

/PRINI ON TTY
/NOT LINiE NUMBER,
/Sfct

US A DIGIT

/PUT DIGIT INTO LINE num
/GET NE)iT CnAR
/PUT CHA^ iM T-it lT-E.

#
/OS/8 6AS1C tl-ITO«
lfe7

168
169
170

ITa
175
I7fc

177
ir«i

179
ise
181

1«2
IBS
ISA
185
186
187
18a
189
1<»0

191

192
193
194
195
196
197
198
199
200
201
2192
2f)3
ilia

205
206
207
20a
209
Bin
211
2J2
213

2U
215
216
217
216
219
22?i

00266
00267
0027i^

00271
00272
00273
00274
00275
00276
00277
00300
00301
00302
00303
00304
00305
00306
00307
0031(19

003U
00312
00313
00314
00315
00316
00317
00320
00321
00322
00323
00324
00325
00326
00327
003J0
00331
00332
00333
00334
00335
00336
00337
00340
00341
00342
00343
00344
00345
00346
013347
00351(1

003*51
i^a352

00353
00354

PAL(*-V7

771*5

SPA CLA

5274
4573
4576
0571
5201

.IMP

JMS I
JMS I
MSG TOO
JMP
TAD
CLL RAR
TAO
OCA
szu
JMP
TAO
CLL RTL

tC«Lf
CTVPt

103i<)

7110
1172
302b
7U3ii

5307
1023
7106
7006
70Ci!6

531«i

1426

0055
1023
3426
2030
5203
1034
764id

5322
1115
4575
724KJ

1030
7510
533)0
303ei

5203
102/
7500
3027
5203
1034
7650
4573
103k}

7440
5345
J027
765id

5203

71M
1172
3P26
7430
I42b
0255
3420
4571

10/dU/7^

/rf5V-

PAbfc

4-1

CHARs IS Ok TO FIT

MO«K.

GETLIN* l/II- ANi tVEN KiuMdER
NCHAPS /Of' chahs so KAH
tLINE*2
PTR

RIGHTY
TEMP

/THEN store as THE LEFT
/HALF OF THE WORO,

ftTL

RTL
JMP
klGHTY, TAO
AND
TAO
OCA
ISZ
JMP
AHRQW,
TAO
SZA CLA
JMP
TAO
JMS I
CL* CMA
TAD

.«
PTR
07700
TEMP
PTR

/ELSE AS THE RIGHT,

NCHARS
IGNORE
OLOFLAG /INPUT FROM FILE

.3
0137
/NO, PRINT BACK ARROKl
(TTVOUT

NCHARS

/IK THERE IS

TEXT CHAH TO ERASf

Sf>A

JMP
.3
OCA
NCHARS
JMP
IGNORE
TAO
NOIGS
SMA
OCA
NOIGS
JMP
IGNORE
CARHET, TAD
OLOFLAG
SNA CLA
JMS I
tCRLF
TAD
NCHARS
SZA
JMP
.*4
TAO
NOIGS
SNA CLA
JMP
IGNORE
CLL RAR
TAO
(tlNE+2
OCA
PTR
SZL
TAO
AM)
DC A
JMS

PTR
077^^0

/THEN ERASE IT.

/OTHERWISE, IF THERE IS A LINENO
/CHARACTER TO ERASE THEN ERASE
/THAT.
/OTHERWISE, NEVER MINO.
/INPUT FROM FILE ?
/NO,

PRINT CR-LF

/NOT AN EMPly LINE
/ANY CHARS AT ALL ?
/NO,

IGNORE EMPTY LINES

/STORE H0 (CAR. RfcT.5 LIKE
/THE OlHtH CHARACTERS.

PTR
/^MUkMALlZt LINE MuVr-fek

/C)S/d

rtASIC

I^LlTOw

<?<?5

d^i'ib

Sbtlv^

a^i
?24
?^s

iiaist-

Hi"i0<)

0P3S/

107b

i<i(J3*'i^

abl1>

2?fe

0l?Jfel

1W7?

?27
226

003brf

U57'J
5;'5o

0036 i

J. IP

'jLTUI-n

/HiVlM
TAD
JMS
TAU
JMS
JlM>

(."'><-!.•

.Vl"3
I

trXYOuT
02 If?

tlTYOuT

CCUf-

'OS/8 BASIC
ei<i

idiAsyy

a/o
eaad

65340^1
l^i^O^l

01,101^1

i>ili!

en
HP.
dii
?sa
2i^

KUnOH

UdO?!?

7X0^
1122
7430
5210
7200

2(la

5600

205

0041(>

1221

2««<

00017
00020
00421
00422
00423
00420
00425

3220
7402
5230
5263
5253
5250
5242
S232
1036
0125
5240
1023
710b
700b
3023
103b
0120
1023
5246
1023
7110
7012
7012
3036
5600
1035
012S
5261
1023

2S7
238
239
200
24J
202
203

2a 7
200

249
250
251

252
2S3
250
255
256
257
258
259
2*0
2«.l

2«>2

263
260
265
266
267
268
269
270

0042(>

00427
00430
00431
00432
00433
00434
00435
00436
00037
00400
00401
00042
00003
00404
00405
004O(S

2201(1

5600
3023
S&Zf
1027

U2i
7501!)

277
278
279

00447
00450
00451
00052
00453
00454
00455
00456
0045/
00460

3023
1035
0124

286^

004f>l

lui23

2fil

m<ibe
d^uhi
00464

526/

271

272
273
270
275
27fe

?8('

283

p ft

Iv /i'it/ fc

00005
00000
00005
00006
00007
00010
00011
00012
00013
00010
00015

2?fe

^'iL^-V J

7106
7}50i)

lil23
711.ii

PAGt

LNDIP,
CLL
T40
S2L
JMP
CL4
lai
JMP I
OCA
ISZ
TAD
TAO
SMA
JMP I
TAO
OCA
HLT
JMP
JMP
JMP
JMP
JMP
JMP
DIG6,
TAD
AND
JMP
TAD
0IG5,
CLL «TL
RTL
OCA
TAD
AND
DIG56,
TAD
JMP
TAD
0IG4,
CLL RAP
»TH
RTH
OIGo5fc, OCA
JMP I
TAD
0163,
AND
JMP
niG2,
TAO
CLL PTL
WTL
OCA
TAO
AAiD

nib2<,
UU-1,

/(U.T

DlblT

/NOT

I^JrO

LJ\r

^hm

012

.«
DIGIT

LNOIG
LNUIG

/KfcTURN +1

TtMP

/SAVfe

DIGIT

NUIGS
NUIGS
07 771

LNDIG

.3
.1
.7

/IGMOKE MORE THAN

LINCNO* 1/wHtRt N«b
07760
UIG56
TtMP
/WHtRfc N«5

TfcMP

LIMCNO+l
07400
TfcMP

L)IG456

/WHERE NS4

LINtNO* 1
LNOIG
LiNtNC
/i«iHtRt Ns3
07760
L)IG23
TfcMP

/.^HtRfc

Na2

/^Mfci^t

l:-\

TtMP
L I Nit ML
lW a M
1,1

TAO
Tt-MP
JMP
int;i3i
TAO
TtMP
CLL KA^

DIGITS.

/PUT IN THE NTH DIGIT IN tH
/O bIT UCD LINE number:

DIGl
0IG2
DIG3
niG4
0IG5

TfcMP

PAl^-v

'OS/H biSIC KtiTTU"

saa

^8H
289
290
291
292
293
294
295
29fe

297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
3ia
315
316
317
318
319
32a
321
322
323
32a
325
326
327
328
329
330
351

332
3i3
3<«
33^
33^
ill

034 S'j

7l?li

0Pia>j3

7li11t

ei0u67

3i?35
560id

r)IGl?3,

RTk
OCA
JMP

000a
3347

TYPt,

00470
00471
00472
00473
00474
00475
00476
00477
00500
00501
00502
00503
00S04
00505
00506
00507
00S10
00511
00512
00513
00514
00515
00516
00517
00520
00521
00523
00524
00525
00526
00527
00530
00531
00532
00533
00534
00535
00536
00537
00540
00541
00542
0054J
00544
00545

1671
2271
3333
4570
53S1
1733
7112
7012
7012
0120
7450
5321
1074
«325
1733
2333
0120
7450
5321
1074
4325
5276
13a7
7650
4573
5671
0000
6041
5326
6046
7200
5725
0000
2023
7410
4363
1423
0120
7630
5334
iHii
5733
4363

0054ft

57 33

00547
00350

0aaii)

TUOOP,

TCRUFi

•cu/

t.-z

L.NDIG

A MtSSA&E
/SAVE CARhtlAGt «ETL><fJ SwITCM
/GET ADUR OF MESSAiit

/TYf^F

CkSwIT
DCA
TYPfc
TAD 1
TYPfc
ISZ
PASS
ncA
tCTKLO
JMS 1
TCRLF
JMP
PASS
TAD I
CLL RTR
RTR
RTR
077
AND
SNA
TCRLF
JMP
0237
TAD
TTYOUT
JMS
PASS
TAD I
PASS
ISZ
AND
077
SNA
JMP
TCRLF
TAD
0237
TTYOUT
JMS
JMP
TLOOP
CRSWIT
TAD
SNA CUA
tCHLF
JMS I
JMP I
TYPE

TTVOUT,
T5F
JMP
TLS
CU*
JMP

/CHECK FOR CTRL/0
/YES, STOP PRINTING
/GET HIGH CHAR
/SHIFT RIGHT
/SIX BITS

/END OF MESSAGE
/CONVERT TO ASCII
/PRINT CHAR
/GET LOWER CHAR

/END OF LINE
/CONVERT TO ASCII
/PRINT

/RETURN THE CARRIAGE

/YES
/DONE
/PRINT ONE CHAR
/WAIT

,»1

/PRINT
I

TTYOUT
/SKIP OVER LINE

PASS,
ISZ
SKP

TEMP

FINCR
JMS
TfeMP
TAD 1
AND
077
SZA CLA
PASS+l
JMP
TEMP
ISZ
PASS
JMP 1
FINCS
JMS
PASS
JMP I
CRSwIT,
/OcCR. fOlNTEH ANf

laaj

TAl>

^10551

7641^

S2A CL4

;^i^hS(?

Sir;/

IMP

TEMF

HtLC

/OS/8 BASIC EOITOW
339
3a0
341

342
343
344
345
346
347
348
349
350
351
3S2
333
354
355
356
357
ssa
359

00553
00554
00555
00556
00557
00560
00561
00562
00563
00564
00565
00566
00567
00570
00571
00572
00573
00574
00575
00576
00577

6214
iiab
3356
7002
7240
1023
3023
5747
0000
6214
1106
3367
7402
5763
5552
5746
0165
6060
0155
6057
5000

PAL8-V7
«0F
T40
OCA
HLT
cu* CM A
TAD
DCA
JMP I

l0/2«/73

PAtiE

^->>

061/1
.*!

TEMP
TEMP
FOeCR

FINCR,

/INCR, CURRENT DATA FIELD
RDF
TAD
DCA
HLT
JMP

062H

FINCR
I
M5GT00, 5552157461016

OS/8 BASIC EOITOH

361
362
363
36a

365
366
367
361^

369
370
371
372
373
374
375
376
377
378
379
300
381
3B2
3B3
3Sa
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402

403
404
405
406
407
408
409
410
411
412
413
414

00600
00601
00602
00603
00604
00605
00606
00607
00610
00611
00612
00613
00614
00615
00616
00617
00620
00621
00622
00623
00624
00625
00626
00627
00630
00631
00632
00633
00634
00635
00636
00637
00640
00641
00642
00643
00644
00645
00646
00647
00650
00651
00652
00653
00654
00655
00656
00657
00660
00661
00662
00663
00664
00665

10/24/72

PAt-E

PAGb
CMUOONE ,COP
6201
/TYPE HtAOV MfcSSA&F
[CKLF
JM5 I
4573
[TYPE
JMS
I
4576
MSGRDY
1123
MAINLUP .CDF
6201
tGETLIN /GET AN EOTTED L^Jf.
JMS I
456/
SNA CUA
7650
NOCOMD /NOT A COMMAND
JMP
5214
OLOFLAG /IN OLD MODE ?
TAD
1034
SNA CLA
7650
tCOMMAND/NO, MUST 8E A COMMAND
JMP I
S566
MAINLUP /OTHERWISE IGNOKE
JMP
5204
/OR A LINE WITH A LINE
PTR
NOCOMD» TAD
1026
/NUMBER ON IT,
CMA
704W
tLlNE
TAD
116b
/SET UP SIZE OF LINE.
SIZE
OCA
3022
TAD I
[LINE+2 /IS LINE EMPTY ??
1572
SNA CLA
7650
/POSSIBLY ZERO,
OCA
SIZE
3022
LINENO /IS IT > LAST LINE ?
TAD
1035
CIA CLL
7141
TAD
EOFLIN
1037
SZA CLA
7640
/HI PART NOT a. FORGET LOW
,*4
JMP
5233
LlNENO+1
TAD
1036
CIA CLL
7141
/COMPARE LOW PARTS
EOFLIN+1
TAO
1040
SZL CLA
7630
NOTL*ST /NOT > LAST
JMP
524b
IGETEOr /GET EOF
JMS I
4564
/MAKE IT LOOK LIKE
TAD
TEMP
1023
PTR
/A CALL TO FINOLN
DCA
3026
LINENO /SAVE NEW LAST LINE
TAO
1035
EOFLIN
DCA
3037
LINENO+1
TAD
1036
OCA
feOFLIN+1
3040
SKP
7410
[FINOLN /GENERAL CASE - SEARCH
4563 N0TLAS1 fJMS I
/THERl ARE (TEMP-PTR) WORDS IN
TEMP
INSERT, TAD
1023
/THE OLD LINE WHICH ARE TO BE
CLL CMA
7140
/REPLACED BY C-SIZE) WORDS IN
PTR
1026
-1*5.
/KItW LINE.
CLA
7200
ROF
6214
SZL
7430
07770
TAO
1107
06201
TAD
1110
PTRFLU /GET FIELU OF START OF OLD LINE
OCA
3346
PTR
TAD
1026
CLL CIA
7141
TEMP
TAO
1023
/WHICH WAY 7
TAO
SIZE
1022
SNA
7450
/SAME SIZE, MOVE IN Nfci-J LINE
JMP
MOVE
5331
SPA
7510
0b0k]

360

PAL8-V7

/OS/a BASIC EDITOf<
ttt«»

au
ai7
418
ai9
420
421

422
423
424
425
426
427
428
429
430
431

432
433
434
435
436
437
43B
439
440
441
442
443
444

44S
446
447
448
449
450
451

452
453
454
455
456
457
458
459
460
461
462

463
464
465
466
467
468
469

k)066b

00667
00670
00671
00672
00673
00674
00675
00676
00677
00700
00701
00702
00703
00704
00705
00706
00707
00710
00711
00712
00713
00714
00715
00716
00717
00720
00721
00722
00723
00724
00725
00726
00727
00730
00731
00732
00733
00734
00735
00736
00737
00740
00741
00742
00743
00744
00745
00746
00747
00750
00751
00752
00753
00754

577/'
7041
1023
3025
6214
lllltf

3304
1025
7140
IZii
7620
1107
1304
3306
7402
1423
7402
3425
1425
1103
7650
5327
2023
5321
1304

nil
3304
202S
5304
1306

3306
5304
102b
4562
1022
7650
5204
6201
1035
356S
1036
3561
1165
3023
6201
1423
2023
7402
3426
2026
5355
1346

PALe-v7

Hi/2a/7?

Hiut s-i

JMP
EXPAND
/MAKE MO!»E fyOOM rt'H KE-l I.INt
CIA
TAD
TEMP
/SHHINK THE FRt
DCA
TOWARD /MOVE FILE OOwN TU HEHE
HOP
TAD
06201
DCA
TMPFLO /GET FIELD OF READ POINTER
TAD
TOWARD
CLL CMA
TAD
TEMP
SM CLA
TAD
07770
TAD
TMPFLD
DCA
TWDFLD /GET FIELD OF WRITE POINTER
TMPFLD, HUT
TAD I
TEMP
TWDFLD, HLT
DCA I
TOWARD /MOVE DOWN
TAD I
TOWARD
TAD
07701
/END OF FILE 7?7
SNA CLA
JMP
LWREOF /YES', PUT NEW LINE IN AT END
ISZ
TEMP
/INCREMENT POINTERS
JMP
.4
TAD
TMPFLO /AND FIELDS IF NECESSARY
TAD
010
OCA
TMPFLD
ISZ
TOWARD
JMP
TMPFLO
TAD
TWDFLD
TAD
010
DCA
TWDFLD
JMP
TMPFLD /KEEP SHRINKING
LWREOF, TAD
TOWARD /SET NEW EOF
JMS 1
tSETEOF
MOVE,
TAD
SIZE
SNA CLA
JMP
MAINLUP /IT WAS A DELETE
CDF 00
TAD
LINENO /PUT IN LINE NUMBER
OCA I
[LINE
TAO
LINEN0*1
DCA I
tLINE*l
MOVENTS, TAD
tLINE
DCA
TEMP
MOVLUP, COF
/MOVE IN NEW LINE
TAD I
TEMP
TEMP
ISZ
PTRFLD, HLT
OCA I
PTR
PTR
ISZ
/INCREMENT POINTERS
JMP
.4
TAO
PTRFLO /WHATCH OUT FOR FJEUOS
TAO
010
/(W.C, OR E.M, ?)
OCA
PTRFLD
.

PkLb-v?

/OS/8 BASIC EUITQH
470
471

47^

0O?o5
00756
00757

202^
Si43
5204

ISZ

SlZfe

.(MP

MOVLUP
MAINLUP

JMP

l(a/^a

PA:,,f

S-r-

•

•
/OS/8 9ASIC EDITOK
473
a74
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
49S
494
495
496
497
498
499
see
501
502
503
504
505
506
507
508
509'

510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
52*.

527

00777

100k)

0100(^

7S)4l

01001
01002
01005
01004
01005
01006
01007
01010
01011
01012
01013
01014
01015
01016
01017
01020
01021
01022
01023
01024
01025
01026
01027
01030
01031
01032
01033
01034
01035
01036
01037
01040
01041
01042
01043
01044
01045
01046
01047
01050
01051
01052
01053
01054
01055
01056
01057
01060
01061
01062
01063
01064

3025
1423
3024
1100
3423
4564
6214
1110
3237
7100
1023
1025
3025
7430
4560
3425
1425
7640
5273

1I?I0O

72414

•'ALe-V?

PAKt
EXPAND, CIA
DCA
TAD I
DCA
TAD
DCA I
JMS I
RDf
TAD
DCA
CLL
TAD
TAD
OCA
SZL
JMS I
DCA I
TAD I
SZA CLA
JMP
CLA CMA
OCA I
TAD 1
I AC
SZA CLA
JMP
ROF
TAO
DCA
TAD
JMS I

/SAVE THIS PLACt

06201
TMP2FL0 /GET FIELD OF END OF FILE
TEMP
TOWARD
TOWARD

/MOVE FILE UP
/TO
/HERE

tFlNCR
TOWARD
TOWARD

/MIGHT 8E ACROSS

COREOV

/NO, GIVE ERROR

TAD

TEMP

net

-TAO

TOWARD
TOWARD
07741

102i
3023
7430
5237
123/

037
/NOW MARK THIS PLACE
TCMP
IGETEOF /GET EOF

TW02FL0,HLT
OCA
TAO

1241
1107
3241

HiS,,t

/fcXTRA HOa^ NEEDEl.'

TOWAKU
TtMP
TEMP2

3425
1425
7001
7640
5273
6214
1110
3241
1025
4562
7402
142i
7402
3425
1425
7650
5270
7340
1025
3025
7430
5257

lkV,J4/7.?

FIELD

/IS THERE ^ENOUGH CORE

TOWARD
TOWARD
COREOV

/NO, GIVE ERROR

06201
TW02FLD /SAVE NEW EOF FIELD
TOWARD /SAVE NEW EOF
ISETEOF

TMP2FL0,HLT

/MOVE UP ONE WORD

/IS THE MARK ?
SNA CLA
JMP
LASTWO /YES, PUT IN LAST WORD
CLA CLL CMA
TAO
TOWARD /BACK UP POINTERS
DCA
TOWARD
SZL
JMP
.4
TAD
TWD2FL0 /AND FIELDS (MAYBE)
TAD
07770
OCA
TWD2FL0
CLA CLL CMA
TAO
TEMP
DCA
TEMP
SZL
JMP
TMP2FL0
TAO
TMP2FLn

/OS/8 BASIC EOITOK
aitiifes

52<)

01066
01067
01070
01071
01072
01073
01074
01075
01076
01077
01100

571

572
573
574
575
576
577
578
579
580
581
582

l»/aa//2

^'Ali£

b-\

07770
TAO
110/
TMP2FL0
DCA
3237
TMP2PLD
JMP
5237
/PUT IN SAVtO WO«U
TEMP?
TAO
LASTWD,
1024
TOWARD
OCA I
342b
/GO MOVE IN NEW LiNt
[MOVE
JMP I
5557
/KILE TOO BIG
[TYPE
1
JMS
4576 COREOV,
MSGBI6
1105
[MAINLUP
JMP I
(0(^c/
5556
BYEBYE, CLA lAC
7201
SWPNUM /IS OSa RES IN PLACE ?
AND
0053
/YES IF EVEN NUMBER OF SWAPS
SZA CUA
7640
/PUT BACK 0S8
[SWAP
JMS
I
BYE,
4555
0U01
/WAIT FOR TTY SO 0S8 DOESN'T
TSF
01102 6041
/TRAMPLE ON MY LINE FEED
,-l
JMP
01103 5302
/EXIT TO 058
7605
JMP
5777'
01104
5250; 5760 J 6346 J 0500
01105 4442 MSGBIG, 4442 » 57 10 J 650n 4752 J 6516 »
5710
01106
01107 6501
01110 4752
6516
01111
01112 5250
01113 5760
01114 6346
01115 4500
01116 0145 MSGALT, 0l45»4655f4665l46a5»0
4655
01117
01120 4665
4645
01121
01122 0000
0U23 6346 MSGHDY, 6346»4245|7200
01124 4245
01125 7200
MSGWHAT, 7051 H265I 4000
01126 7051
4265
01127
01130 4000
[TXTAREA/SCRATCH FILE
SCRATCH, TAO
1154
01131
[SETEOF
JMS I
01132 4562
EOFLIN /ZERO LAST LINE NUM
OCA
01133 3037
E0FLIN*1
OCA
01134 3040
[CMDDONE
JMP
I
5553
0U35
/LINE NUMBER NORMALIZER
01136 0000 NORM,
NDIGS
TAO
1027
01137
SZA
01140 7440
/IF THESE ARE NO DIGITS IN THE
,+3
JMP
5344
01141
/LINE NUMBER THEN
CL* CMA
01142 7240
/WETURN -1.
NORM
JMP
I
01143 5736
07772
TAO
1104
01144
SMA CLA
01145 7700
/IF THE LINENO HAS BEEN FILLED
NORM
JMP I
01146 5736
07774
/OUT TO 6 OIGITSCLEADING 0'SI
TAO
1112
01147
/THEN RETURN,
TEMP
OCA
01150 3023
LINENO /OTHERWISE, SHIFT RIGHT I OICIT
TAD
1035
01151
CLL RAR
01152 7110
LINENO /AND CHECK AGAIN,
DCA
01153 3035

528

530
531
535
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
546
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570

P4L8-V7

y-J?

•

/OS/6 BASIC EDITOK
58i
58a
565
5S6
587
588
589

B1J54
01155
0ll5fe

aU57
0U60
01161
01162

103t>

7010
3036
202i
5351
2027
5337

PAL8-V7
TAO
RAR
DCA
ISZ
JMP
ISZ
JMP

10/^4/72

LINENOtl

LINENO*!
TEMP
.-7

NDIGS
IMORM+1

PAGE H-g

PAL8-vr

OS/3 BASIC EDITOh
SfJH

591
59»
593
59a
595
59fe

597
596
599
600
601
60S
603
604
60S
606
607
608
609
610
611
612
613
614
615
616
617
6ie

619
620
621
622
623
624
625
626
627

628
629
6S0
631

632
633
634
635
636
637
638
639
640
641
642
643
644

0117/

7605

01200
01201
01202
01203
01204
01205
01206
01207
01210
01211
01212
01213
01214
01215
01216
01217
01220
01221
01222
01223
01224
01225
01226
01227
01230
01231
01232
01233
01234
01235
01236
01237
01240
01241
01242
01243
01244
01245
01246
01247
01250
01251
01252
01253
01254
01255
01256
01257
01260
01261
01262
01263
01264

1220
3023
2023
1423
2023
7450
521b
1572
7640
5202
1423
3023
5423
4576
1126
5556
1220
2226
1400
1723
2725
1336
2223
1412
2200
1334
1J31
3406
1101
2032
1763
2036
1754
0000
0145
6454
3343
4264
5244
1770
6400
0000
4573
1152
3023
1265
3026
4270
4270
4270
2026
4270
4576

PAGt
COMMAND ,TAD
OCA
r-OMLUP,

WHAT,

lH/2a/72

COMTBL
TEMP
TEMP
TEMP
TEMP

ISZ
TAD I
ISZ
SNA
WHAT
JMP
TAD I
tLINE*2
SZA CLA
JMP
COMLUP
TEMP
TAD I
OCA
TEMP
TEMP
JMP I
(TYPE
JMS I

MSGWHAT
JMP I

PAiiH

/COMMAND LIST PulNrt«
/GET

CHAR COMMAND

/END OF LIST
/IS THIS IT ?
/NO, LOOK AGAIN
/GET COMMAND ADDS
/AND GO TO IT

/TYPE WHAT?

tMAINLUP

C0MT8L,

-5552
LIST
-6055
OLD
-6442
SAVE
•6366
RUN
-6444
SCRATCH
-4372
BYE
-5746
NEW
-5742
RtNAMt
WSSAVt, 0145(64S4f3343f 4264; 5244 1 1770; 6400

HEADING ,0
JMS
TAD
DCA
TAD
DCA
JMS
JMS
JMS
ISZ
JMS
JMS

tCSLF
tFNAME
TEMP

XTITLE

PTH
CONV
CONV
CONV
PTR
CONV
(TYPE

/PRINT HEADING
/LATER
/SET UP FOR CONVERSION
/POINTER TO FILE NAME
/WHERE IT GOES

/OUTPUT FIRST TWO CHARS
/NE)(T

TWO

/THIRD TWO
/SKIP FOR EXT
/OUTPUT EXTENSION
/TYPE HEADING

/08/8 BASIC EDITOR
6as

687
688
689
690
691
692
695
694
695

01265
01266
01267
01270
01271
01272
01273
01274
01275
01276
01277
01300
01301
01302
01303
01304
01305
01306
01307
01310
01311
01312
01313
01314
01315
01316
01317
01320
01321
01322
01323
01324
01325
01326
01327
01330
01331
01332
01333
01334
0133S
01336
01337
01340
01341
01342
01343
01344
0134b
01346
01347

69t.

1^1350

697
698
699

01351
01352
01353

647
64S
b49
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681

682
683
684
685
686

1312
4573
5651
0000
1423
0120
7450
1377

PAUB-V7
XTITLE,

tCHLF

TAD 1
TEMP
AND
077
SNA
TAD
(40
TAD
07741
AND
077
DCA I
PTH
TAD I
TEMf
AND
07700
SNA
CLU CML RAR
TAD
(.3700
TAD I
PTR
OCA I
PTR
ISZ
TEMP
PTR
ISZ
JMP I
CONV

1101

1376
1426
3426

TITLE,

PAGE 7-1

/FOLLOWED BY

CRLF

HEADING

CONV,

0120
3426
1423
0055
7450
7130

zazi
2026
5670
0000
0000
0000
0101
0000
0101
0101
2217
2101
0101
0101
0000
0000
0000

TITLE
JMS I
JMP I

10/24/72

/CONVERT TO SIX BIT ASCII
/GET NEXT «ORU
/CHECK FOR
/SUBSTITUTE BLANKS

/SUBTRACT 37
/SIX BITS
/DO UPPER CHAR

/SAME WAV
/COMBINE THEM

0;0;0r0t0U0

/FOR THE PROG NAME

010110101

/SOME BLANKS

VERSON»700*2117 /VERSION NUMBER X.Y
VERSON"10&700*2101
0101/0101
/MORE BLANKS
DATE,

0>0;0>1630>0

/DATE

1630

0000
1030
2030
7110
1172
3023
1423
7430
5346
7012
7012
701.*

0120
745k)

5732
1060
7440
5361

GETNC,

/GET A CHAR FOR A FILE NAME
/GET CHAR POINTER
ISZ
/BUMP IT
CLL RAR
/DIVIDE BY 2
TAD
[LINE*2 /ADD BASE
DCA
TEMP
/GIVES AODR OF WORD
TAD I
TEMP
/GET 2 CHARS
SZL
/ODD EVEN BIT IS IN LINK
JMP
TESTCH /GO CHECK THE CHAR
RTR
RTR
RTR
TESTCH, AND
077
/ONLY 6 BITS
SNA
JMP I
GETNC
/END OF NAME
TAD
07761
/WAS IT , ??
SZA
JMP
NOEXT
/NO
TAD

NCHARS
NCHARS

filfi-Ml

/OS/8 BASIC EOITOK
700
701
703
70i
70a
705
706
707
708
709
710
711
712
713

01354
01355

724(J
30a«2

eiJbt.

1151

0135/
01360
01361
0136a
01363
01364
01365
01366
01367
01370
01371

3024
5775'
1061
74414

536b
7201

5732
1067
0120
2332
5732

NOEXT,

CLA CM4
OCA
SIZE
(NAMt+3
TAD
OCA
TEMPS
MAMLUP
JMP
TAD
07764
SZA
JMP
.+3
CCA lAC
JMP I
GETNC
TAD
072
AND
077
GETNC
ISZ
JMP
GETNC

\Vi/eu/7i

/3t1

PAijfc

SIZE

7~^

TU -1

/SET POINIEH TO FXT wORU

/START ON EVEN CHAR
/IS IT

/YES, RETURN NONZERU

/HESTORE THE CHAR TO
/STRIPPED SIX BIT

/OS/8 BASIC eoiTOft
714
715
71fc

717
718
719
720
721
722
723
72a
725
726
727
728
729
730
731
732
733
734
735
73fe

737
738
739
740
741
742
743
744
745
746
747
748
749
750
751

752
753
754
755
756
757
758
759
760
761

762
763
764

765
766
767
768

01375
01376
01377

01400
01401
01402
01403
01404
01405
01406
01407
01410
01411
01412
01413
01414
01415
01416
01417
01420
01421
01422
01423
01424
01425
01426
01427
01430
01431
01432
01433
01434
01435
01436
01437
01440
0144!
01442
01443
01444
01445
01446
01447
01450
01451
01452
01453
01454
01455
01456
01457
01460
01461
01462

1736
4100
0040
1400
1550

PAL8-V7

UIST,

1547
1377
7650
5211

4546
1031

7650
555i
3030
3027
4545
5225
1376
7640
5213
4545
5225
1065
4574
5220
1154
3026
4571
7700
4563
6214
1110
3267
3023
4570
5553
4244
5553
4575
5236
0000
1023
2023
1252
3251
7402
5653
1467
1506
1507
1507
1467
1507
1507
1505

LISTNH,

NUMOUN,

LSTLUP,

GETFIL#

l!l\/iU/7Z

PAGE

PAGt
TAO I
CLINE+3 /LISTNH ?
TAO I
tLINE*4
TAO
(•4436
/PSfcUDO TEST
SNA CLA
JMP
LISTNH /NO HEADING
JMS I
CHEAOING/GIVE HEADING
TAO
COPLAG /WAS CTRL/0 TYPED ?
SNA CCA
JMP I
tCMOOONE/VES, ABORT LISTING
OCA
NCMARS /SET POINTER
OCA
NOIGS
/AND DIGIT COUNTER
JMS I
[GETNC
/SKIP UNTIL BLANK
JMP
NUMOUN /DONE
TAD
(.40
SZA CLA
JMP
.-4
/NO BLANK VET
JMS I
(GETNC
/GET A CHAR
JMP
NUMOUN /END OF NUMBER
TAD
07706
/SUBTRACT 72
JMS I
(LNDIG /GO SEE IF ITS A DIGIT
JMP
/IT WAS, CONTINUE
TAO
CTXTAREA
OCA
PTR
/SET UP POINTER
JMS I
[NORM
/NORMALIZE THE NUM
SMA CLA
/ANY NUMBER ?
JMS I
(FINDLN /YES, LOCATE IT
RDF
/GET THE FIELD
TAO
06201
OCA
PTR2FL0 /SAVE IT
OCA
TEMP
JMS I
(CTRLO
/CHECK FOR CTRL/O
JMP I
(CMDOONE /YES, EXIT
JMS
GETFIL /GET CHARACTER TO LIST
JMP I
ICMDDONE
JMS 1
(TTYOUT /PRINT IT
JMP
LSTLUP /LOOP
/GET CHARACTER FROM FILE
TAO
TEMP
ISZ
TEMP
TAD
.3
OCA
.1
HLT
JMP I
.*1
/SEQUENCE OF OPERATIONS
PTRgFLO
/GET FIRST WORD
FRSTOIG
/FIRST DIGIT OF LINE NUMBER
DIGIT
/SECOND DIGIT
DIGIT
/THIRD DIGIT
PTR2FL0
/GET NEXT WORD OF LINE NUMBER
DIGIT
/FOURTH DIGIT
DIGIT
/FIFTH DIGIT
LASTDI6
/SIXTH AND LAST DIGIT

PAI,a-Vf

/OS/8 BASIC EDITOrt
769
770
771
772
773
774
775
776
77 7

778
779
780
761
782
783
78a
785
786
787
768
789
790
79i
792
793
794
795
796
797
796
T99
600
801
802
803
604
805
806
807
808
809
810
811
812
813
814
615
816
817
818
819
820
621
822
823

01463
01464
01465
01466
01467
01470
01471
01«72
01473
01474
01475
01476
01477
01500
01501
01502
01503
01504
01505
01506
01507
01510
01511
01512
01513
01514
01515
01516
01517
01520
01521
01522
01523
01524
01525
01526
01527
01530
01531
01532
01533
01534
01535
01536
01537
01540
01541
01542
01543
01544
01545
01546
01547
01550
01551

146/
1526
1553
1550
7402
142b
6201
1103

745^
5644
1120
3024
2026
5245
1267

nil
326/
524S
7201
3027
1024
7006
7006
3024
1024
7004
0072
7440
532i
102/
7650
5245
2027
1073
5342
1024

70U
7012
7012
5336

nil
3023
1024
0120
7450
5344
1074
2244
5644
1075
3023
1076
5342
3023
107/

li)/(i!«/7a

wawo OF TEXT
/LEFT CHAK4CTtR
/KIGHI CHARACTER
/LINF FtEO CHAHACtH/CHECK FOR EOF

RITkTxT
LINFTXT
PTR2FLD,HLT
I

d-l

/GfcT

PTH«?PLO
LfeFTTXT

TAD
CDF
TAD
SNA
JMP
TAD
OCA
ISZ
JMP
TAD
TAD
DCA
JMP

r'iljfc"

PTR

07701
I

GETFIL

/YES,

077
TEMP2
PTR

/NO,

RETURN UNSHIPPED

SAVE WORD
/BUMP POINTER

GETFIL+l
PTR2FL0
010
PTR2FLD
GETFIL*!

LASTDIGfCLA lAC
NDI6S
FRSTOIGfDCA
TEMP2
TAD
DIGIT,

/FORCE LAST DIGIT (EVEN IF 0)
/ZERO DIGIT COUNT

RTL
PTL
/SHIFT LEFT ONE DIGIT
TEMP2
OCA
TEMP2
TAD
RAU
/GET DIGIT
017
AND
SZA
NZDI6IT /ITS NOT ZERO
JMP
/IS IT A LEADING ZERO ?
NOIGS
TAD
SNA CLA
GETFIL+l/YES, DON'T PRINT IT
JMP
/NON ZERO OH NON LEADING ZERO
NDIGS
NZDIGIT.ISZ
/SO PRINT IT
0260
TAD
GFRET
JMP
/GET LEFT CHAR
TEMP2
LeFTTXT,TAD
STR
RTR
RTR
,4
JMP
/SETUP FOR LEFT CHAR NEXT
010
RITtTXT.TAO
TEMP
DCA
TEMP2
TAD
/SIXBITIZE AC
077
AND
SNA
ZEROTXT /0 IS END OF THE LINE
JMP
/MAKE IT ASCII
0237
TAD
GETFIL
ISZ
GFRET,
JMP
GETFTL
/SETUP FOR LF NEXT
013
ZEHOTXT.TAD
TEMP
OCA
/RETURN CR
TAD
0215
GFRET
JMP
/CLEAR SEUUENCEW AIMU RETURN LF
TEMP
LINFTXT,nCA
0212
TAD

OS/8 BASIC
824
825
826
82T
828
82<9

8Se
831
832
833
834
83S
836
837
838
839

01552
01553
0155a
01555
01556
01557
01560
01561
01562
01563
01564
01565
01566
01567
01570
01571

E DITOK

534^
0000 CTRUO,
6031
5366
6036
0062
1060
7450
5370
1127
7650
5775»
2353 CTRUOX,
7201
3031
5753

PAUB-V7
JMP

10/24/72

PAGE «-2

GFRfcT

/CHECK FOR -0 AND "C
KSF
/CHECK FOR -0
JMP
CTRUOX /NO KEVBOARD
KRB
AND
0177
TAD
07761
SNA
JMP
CTRU0X*2/StT FLAG OFF
TAD
014
/-C 7
SNA CLA
JMP
BYEBVE /YES, END
ISZ
CTRLO
/FIX RETURN
CLA lAC
/SET FLAG »1 IF NO CTRL/0
DCA
COFLAG
JMP I
CTRLO

t^ALS-V

/OS/8 BASIC etllTOK
eat!

0ib?s

i07b

Sai

0157*.

774id

BU,»

0157/

mai

III
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860

01600
01601
01602
01603
01604
01605
01606
01607
610

861

B62
663
864
865
866
867
866
869
870
871

87?
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
692

693
894

016U
01612
01bl3
01614
01615
01616
01617
01620
01621
01622
01623
01624
01625
01626
01627
01630
01631
01632
01633
01634
01635
01636
01637
01640
01641
01642
01643
01644
01645
01646
01647
01650
01651
01652
01653
0165U
01655
01656
01657
01660
01661
01662

0*^'"

GtTFN,

\^fi'*/f?

^i'.t

/UtT

FILE NAMt

At St

tUM

?52i

tJCA

103el

TAD
SZA CLA
/YtS, DON'T FETCH USH
NOFUSK
JMP
/GET OSB RESIDENT
[SWAP
JMS I
SAVFLAG /IS IT OLD OR Nfew ??
TAD
SNA CLA
/YES, DON'T SWAP 10000-11/77
lAC
/OO IF SAVE, SO ALTER JSW
7746
DCA
/GET THE USR
10
CIF
07700
JMS I

764(9

S21b
4555
132i
765lfl

7001
3777'

62U
4455
0010

I r

f=OH OlO 0« NE^
SAVFLAG /»! FOR SAVt,
CHNFLAG /RfcTUKNING FROM SU^ ?

NCHAHS /RESET CHAR POINTER
NQFUSH, DCA
/GET A CHAR
GETNC
JMS
«776' BSKIP,
/ASK FOR FILE NAME
ASKNAM
JMP
5275
/ULANK ?
M40
TAD
1260
SZA CLA
7640
/NO, LOOP
BSKIP
JMP
5216
GETNAM /GET A NAME
4324 NOSKIP, JMS
SNA CLA
7650
/NO DEVICE SPECIFIED. USE DSK:
USEDSK
J^P
5236
/PUT IN THE DEVICE NAME
NAME
TAD
1041
/AS SPECIFIED
DCA
OEV
3247
NAME*!
TAD
1042
OEV+l
OCA
325W
GETNAM /FETCH THE FILE NAMfe
JMS
4324
SZA CLA
7640
/BAD SYNTAX IN FILE DESCRIPTOR
lOEHR
JMP
5775'
GETHAN /GO FETCH THE HANOLtH
JMP
5242
/SET DEVICE NAME TO DSK:
USEDSK, TAD
C0423
1374
OEV
DCA
3247
TAD
(1300
1373
UEV+1
OCA
325H
[HANDLR+l
GETHAN, TAD
1144
/ALSO THE HANDLER ORIGIN
0EV*2
OCA
3251
CIF
10
6212
/CALL THE USR
020^1
JMS I
4456
/^^TCH HANDLER BY NAMt
1
0001
0ie»0
0000 DEV,
0000
0000
^ ,^^
/8AD DEVICE
lOERH
JMP
5775'
THE DEVICE NUMBER
/SAVE
TAD
UEV*1
1250
UEVNUM
OCA
3052
/AND THE HANDLER ENTRY POINT
0EV*2
TAD
1251
OtVHAN
OCA
3051
SAVFLAG /vJAS IT A SAVE ?
MOVEFN, TAD
1323
SMA SZA CLA
7740 M40,
/YES, JUST RETURN
GETFN
JMP I
5600
NAME
/NEW OR OLD, ANY NAME GIVEN ?
TAD
1041
303id

hAM.^k]

/OS/8 BASIC EDITQH
895
896
697
898
899
900
901
902
903
904
905
90b
907
908
909
910
911
91S
913
914
915
916
917
916
919
920
921

922
923
924
92S
926
927

92B
929
930
931
932
933
934
935
936
937
938
939
940
941

942
943
944
945
946
947
948
949

01663
01664
01665
01666
01667
01670
01671
01672
01673
01674
01675
01676
01677
01700
01701
01702
01703
01704
01705
01706
01707
01710
01711
01712
01713
01714
01715
01716
01717
01720
01721
01722
01723
01724
01725
01726
01727
01730
01731
01732
01733
01734
01735
01736
01737
01740
01741
01742
01743
01744
01745
01746
01747
01750
01751

7450
5600
3045
1042
3046
1043
3047
1044
3050
5600
132i
7750
5313
1045
7450
5313
3041
1046
3042
1047
3043
1050
3044
5600
7201
4576
2167
4567
7650
5543
3030
5223
0000
0000
3041
304i>

3043
1057
3044
1142
3024

3022
4545
5724
7106
7006
7006
3424
454!]

5724
1424
3424
2024
2022

PAUe-Vr
SNA
JMP I
OCA
TAD
OCA
TAO
OCA
TAD
OCA
JMP I
ASKNAM, TAO
SPA SNA
JMP
TAD
SNA
JMP
OCA
TAD
DCA
TAD
DCA
TAD
OCA
JMP I
ASKNM,
CLA lAC
JMS I
ASKFM
JMS I
SNA CLA
JMP I
DCA
JMP

10/^4/72

PAGE 9-1

GETFN
/NO, PROBABLV JUST
FNAME
/YES, SAVE IT
NAME+1
FNAME+l
NAME*2
FNAME+2
NAME«3
FNAME43
GETFN
SAVFLAG /WAS THIS A SAVE ?
CLA
ASKNM

FNAME

DEVI

/NO, GO ASK FOR A NAME
/IT WAS A SAVE, ANY OLD

ASKNM
/NO, GO ASK FOR ONE
NAME
/YES, MOVE INTO NAME
FNAME+1
NAMEtl
FNAME+2
NAME*2
FNAME+3
NAME-t-S

GETFN
/ASK FOR FILE NAME
tTYPE

IGETLIN /GET THE INPUT LINE
[WHAT

NCHARS
NOSKIP

SAVFLAG,0
GETNAM,
DCA
NAME
DCA
NAME^l
DCA
NAME«2
TAO
0201
NAME*3
DCA
TAD
tNAME
DCA
TEMP2
TAD
07774
DCA
SIZE
NAMLUP, JMS I
tGETNC
JMP I
GETNAM
CLL RTL
RTL
RTL
OCA 1
TEMP2
JMS I
tGETNC
JMP I
GETNAM
TAO I
TEMP2
DCA I
TEMPS
TEMPS
ISZ
ISZ
SIZE

/???
/SET CHAR POINTER
/GO GET THE NAME
/GET A FILE OR DEVICE NAM
/ZERO THE NAME SUFFER
/USE DEFAULT EXT ,BA

/SETUP POINTER
/SETUP SIZE (MAX
/GET

CHAR

/SAVE IT

/COMBINE THE
/ANY MORE

WORDS)

PAU8-V/

/OS/8 BASIC EDITOK
950

01752

951

li)i;53

5336
5724

q5<»

01 /5U

713k3

953
954
955
95b
957
958
959
960

01755
0175b
01757
01760
01761
01762
01763
01764
01765
01766
01767
01770
01771

4a0i<)

961

962
963
964
965

62l«»

4456

NAMLUP
JMP
lifcTNAM
JMP I
HENAMt, CLL CML RAH
GETKN
JMS
CIF
IB
0200
JMS I

00U

4555
555i
1154
4562
3057

JMS
JMP
TAD
JMS
DCA
OCA
JMS
JMS
JMP

30a(<)

4200
4555
5553

NEW,

I
I

[SWAP

l0/i«/7?

PAUfe

^-^

/3AvF USS AWEA
/GET FILE NAME

/«EM0VE USR
/AND RESTORE 10000-11777
/SWAP 0S8 RESIDENT

tCMDOONE
/SCRATCH
ITXTAREA
tSETEOF
EOFLIN /ZERO LAST LINE NUM
EOFUIM+l
GETFN
/GET THE FILE NAMt
/REMOVE 0S8
[SWAP
[CMDDONE

*
/OS/8 BASIC EDITOW
966
967
966
9^9
970
971
972
973
970
975
976
977
978
979
980
981
9S2
963
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1B14
101^
1016
1017
1018
1019
1020

01773
01774
01775
01776
01777

PAL8-V7

02003
02004
02005
02006
02007
02010
02011
02012
02013
02014
02015
02016
02017
02020
02021
02022
02023
02024
02025
02026
02027
02030
02031
02032
02033
02034
02035
02036
02037
02040
02041
02042
02043
02044
02045
02046
02047
02050
02051
02052
02033
02054
02055
02056
02057
02060

PAGE 10

13010

0423
2715
1332
7746

PAGE

20011)

02000
02001

10/24/72

0000
1154
3026
1110
3541
3023
1140
3003
1071

3004
1310
3233
4537
5220
4231
5214
1063
4231
1064
3230
4231
2230
5224
5600
0000
0000
3006
7402
5304
5301
1310
3233
1006
0072
7110
7012
7012
1403
3403
1006
7006
7006
0124
1405
3405
2004
5631
4555

PUTFIL,
TAD
OCA
TAO
OCA 1
OCA
TAO
OCA
TAD
OCA
TAD
DCA
PFLOOP, JM8 I
JMP
JM5
JMP
PFCTLZ, TAD
JMS
TAD
DCA
JMS
ISZ
JMP
JMP 1
PFTEMP,
PUTCH,
DCA
PUTJMP, HUT
JMP
JMP
PH3,
TAD
DCA
TAO
AND
CUL PAR
RTR
RTR
TAO I
DCA I
TAD
RTL
RTL
AND
TAD I
OCA I
ISZ
ISZ
JMP
JMS

/WRITE THE FILE
tTXTAREA
PTR
/GET POINTEW TO TEXT
06201
/GET FIELD OF TEXT
I:PTR2FLD

TEMP
/ZERO LINE SEQUENCER
[D8KBUF /GET AOOR OF DISK BUFFER
SWAPTl
/BUFFER POINTER
07600
8WAPT2 /DOUBLE WORD COUNTER
JMPINS /SET 3 WAY SWITCH
PUTJMP
CGETFIL /GET A CHAR FROM TEXT AREA
PFCTLZ /END OF FILE
PUTCH
/OUTPUT IT
PFLOOP /DO NEXT CHAR
0232
/PUT CTRL-Z
PUTCH
07201
/BUFFER DUMP COUNT
PFTEMP
PUTCH
/FILL WITH ZEROES
PFTEMP
.-2

PUTFIL

SWAPT4
PHI
PH2

JMPINS
PUTJMP
SWAPT4
017

/DONE
/PUT A CHAR ONTO THE 088 FILE
/SAVE THE CHAR
/JUMP TO CORRECT PLACE
/FIRST CHAR
/SECOND CHAR
/RESTORE SWITCH

/GET THE CHAR
/LOW FOUR BITS

/INTO THE HIGH PART OF WORD TWO
SWAPTl
SWAPTl
8WAPT4

/COMBINE WITH CHAR

/GET THE HIGH FOUR BITS

/INTO THE HIGH PART

07400
SWAPT3
SWAPT3
SWAPTl
SWAPT2
PUTCH

tSWAP

Of'

/COMBINE WITH WORD ONE
/BUMP POINTER
/BUMP DOUBLt WORD COUNT
/RETURN
/SWAP IN 0S6

WORD ONE

PA1.8-VT

/OS/8 BASIC EDITOH
1021
1022
1023
102A
1025
1026
1027
ie2B
1029
1030
1031
1032
1033
103«
10SS
1036
1037
less
1039

10«0
ll«t
1042

02061
02062
02063
02064
02065
02066
02067
02070
02071
02872
02073
02074
02075

02076
02077
02100
02101
02102
02103
02104
00105
02106
021 0T

!••«
1045
1047
104ft

1049
1050
lasi
1052
10S3
1055
1056
1057
105B
1059
1060
1061
1062
1063
106a
1065
1066
1067
1068
1069
1070
1071
1072
1073
107a
1075

•2110
02111
02111
02119
02114
02115
02116

4451
4200
4000
0000 NRBLOKi
5777'
2311
7410
5777*
2264
2776*
4555
1140
3003
1071
3004
5631
1003 PH2>
S005

2003
1006
3409
2293
S691
9214

JHS

PHli

JMP
ISZ
SKP
JMP
ISZ
ISZ
JMS
TAD
DCA
TAD
OCA
JMP
TAD
DCA
ISZ
TAO
DC*
X9Z
JMP

OEVHAN

/WRITE THIS BUFFER

OUERR
OUSIZe

/ANY ROOM LEFT 7

DUERR
WRBLOK
OULEN
I

SWPNUM

/SWAP 088 RESIDENT
/FLIP BYEBVE SWITCH

SWAP2

/WITH 0S8RES THROUSH 0S8RES*577

iMPir
ISZ
NDP
JMS

'*&»

*^...

,:^i^,.

fi'K^

0S8RCS
"--^«S;?»3s=^s?^^>=a^;^:^; ^- ^'

,j;ot,...

,,.-

SWAP2
0S8RES4' 200
3400
02121
CDF 10
02122 6211
-.02129"'TWfr
OSBRES^
02124 3600
CDF 20
02125 6221
SWAP
JMP I
02126 5712
02127 0000 SWAP2»
07600
TAD
02130 1071
SWAPT3
OCA
3005
02131
SWAP2
TAO I
1727
02132
SWAP2
ISZ
02133 2327
SWAPT4
DCA
02134 3006
SWAP2
TAD I
02135 1727
SWAP2
ISZ
02136 2327
SWPFLO
DCA
3347
02137
JMP
,5
02140 5345
SWPLUPi CDF 00
6201
02141
SWAPTl
TAD
02142 100i
SWAPT4
OCA t
02143 3406
SWAPT4
ISZ
02144 2006
TAO I
SWAPT4f,
1406
02145
SwAPTg.-OCA
02146 3004
02147 7402 SWPFLD, HLT i^

•

/N0| ERROR

/BUMP BLOCK NUMBER
/BUMP ACTUAL SIZE
/SWAP BACK
ISMAP
tDSKBUF /SET UP BUFFER POINTER
SWAPTl
07600
SWAPT2 /SET UP COUNT
PUTCH
/SAVE POINTER TO FIRST
SWAPTl
SWAPT3
SWAPTl /BUMP POINTER
SWAP74 /GET CHAR
/INTO BUFFER
SMAPTl
PUTJMP /BUMP SWITCH
PUTCH
PUTJMP*

JflP

4327
9200

SfiiHIt

PAGE 18-1

4200
OSKBUP

atm
0000
2059
7000

10/24/72

JMS

% ^.

•.

9^etJ

/OS/8 BASIC EDITQH
1076
1077
1078
1079
1080
1081
1082
10B3
10Bfl

1065
1086
1087
1068
108<»

1090
1091
1092
1093
109«
1095
1096

02150
0S151
0215S
02153
021Sa
02155
02156
02157
03160
02161
02162
021(i>3

02164
02165
02166
02167
02170
02171
02172
02173
02174

PALb-V7
TAO
OCA
TAD
OCA

140i>

3003
1004
3a05
2005
5341
6201
1003
3406
5727
4342
4501
4752
5546
0000
4752
5546
0157
4256
4616
1600

SWAPT3
SKAPTl
SWAPT2.

ISZ

JMP
COP 00
TAD
OCA I
JMP I

10/24/72

PAGE t0-2

t(''',i'''

f---;

,»

SWAPT3
SWAPT3
8WPUUP-

SWAPTl
SWAPT4
SWAP2

BADFILr 4342>450U4752rS546;0

ASKFN,

4752;5546»0157»4256»4616;i600

/DS/8 BASIC EDITOH
1097
10«»8

1099
1100
1101
1102
1103
1104
1105
n0(>
1107
1108
1109
1110

nil
1112
1113
Ilia
1115
1116

HIT
lue
1119
1120
1121
1122
1123

n2«
1125
112b
112T
112a
1129
1130
1131
1132
1133
1134
1135
1136
1137
1136

1139
1140
1141
1142
1143
114a
1145
U4t,
1147
1146
1149
1150
1151

PAL8-V7

10/24/73

PAGE

0217b
02177

2266
2720

02200
02201
02202
02203
02204
02205
02206
02207
02210
02211
02212
02213
02214
02215
02216
02217
02220
02221
02222
02223
02224
02225
02226
02227
02230
02231
02232
02233
02234
02235
02236
02237
02240
02241
02242
02243
0224a
02245
02246
02247
02250
02251
02252
02253
0225a
02255
02256
02257
02260
02261
02262
02263

PAGE
TAD I
tLINE*3 /RUNNH ?
HUN,
1550
TAD I
tLINE*4
154/
(-3057
TAO
1377
SZA CLA
7640
IHEAOING /GIVE A HEADING
JMS 1
asab
TAO
[LINE+2 /SET UP FAKE LINE
1172
TEMP
DCA
3023
CWSSAVE
TAO
1136
PTR
DCA
3026
TAD
07771
1123
TEMP2
DCA
3024
PTR
/MOVE FAKE LINE INTO ''LINE'
TAO I
1426
PTR
ISZ
2026
TEMP
DCA I
3423
TEMP
ISZ
2023
TEMP2
ISZ
2024
.-5
JMP
5213
RUNFLAG /SET RUN FLAG
ISZ
2033
GFN
JMP
5226
RUNFLAG /CLEAR THE HUN FLAG
OCA
3033 SAVE,
TAO
DEVNUM /SAVE CURRENT DEVICE NUM
1052
OCA
OLOOEV /INCASE WE CHANGE
3321
/SET SAVFLAG
GFN,
CLA lAC
7201
tGETFN /GET THE DEVJNAME.EX
JMS I
4535
/SET UP ENTER
XNAME
TAD
1265
SAV8LK /POINTER TO FILE NAME
DCA
3236
DEVNUM /GET DEVICE NUMBER
TAD
1052
CIF
10
6212
/ENTER FILE
0200
JMS I
4456
3
0003
/STARTING BLOCK GOES HERE
0000 SAV8LK,
/SIZE GOES HERE
0000
JMP
lOERR
5776*
TAD
SAVBLK /PUT BLOCK NUMBER
1236
3775*
DCA
MRBLOK /INTO WRITE
8AVBLK*i/PUT SIZE
TAO
1237
377a'
OCA
OUSiZE /SOMEWHERE TOO
/ZERO BLOCK COUNT
DCA
OULEN
3266
CIF
10
6212
/DUMP USR
JMS I
0200
aas6
11
0011
/AND NOW 0S8
CSWAP
JMS I
4555
4773'
PUTFIL /OO THE SAVE
JMS
[SWAP
/GET 0S8
JMS I
4555
RUNFLAG /SET NO SWAP BIT IF RUN
TAD
1033
7746
3772'
DCA
/GET THE USR
CIF
10
6212
JMS I
07700
aa55
10
0010
TAO
DEVNUM /GET DEVICE NUMBER
1052
CIF
10
6212
0201!!
JMS I
/CLOSE THE FILE
a456

PAte-V7

/OS/8 BASIC EDITOR
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
116«
1165
11*6
1167
1168
1169
lira
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1161
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
120*>

02264
02265
02266
02267
02270
02271
02272
02273
02274
02275
02276
02277
02300
02301
02302
02303
02304
02305
02306
02307
02310
02311
02312
02313
02314
02315
02316
02317
02320
02321
02322
02323
02324
02325
02326
02327
02330
02331
02332
02333
02334
02335
02336
02337
02340
02341
02342
02343
02344
0234S
02346
02347
02350
02351
02352

0004
XNAME,
0041
0000 QULEN,
5776'
1033
7640
5771*
1321
7041
1052
7650
5314
1321

3052
1114
3310
1052
6212
4456
0001
DEVN,
0000
5776'
1310
3051
6212 HNDLOK,
4456
0011
4555
5553
0000 OLDDEV,
000ld
FINDLN,
1154
3023
1023
3026
1423
1103
7450

5722
1120
7141
1035
7450
5347
7620
5722
ZfdZi

7410
4560
4534
5325
2023
7410
4560
1423

PAGE tl-1

10/24/72

NAMb
JMP
TAD
SZA CUA
JMP
TAO
CIA
TAD
SNA CLA
JMP
TAD
OCA
TAO
OCA
TAD
CIF
JMS

/SIZE
IOEK«
RUNPLAG /WAS IT

ODRUN
OLDDEV

OEVNUM
HNOLOK
OUOOEV
OEVNUM

RUN

/YES
/IS OLD DEVICE
/THE SAME AS
/THE NEW ONE ?7
/YES, THE HANDLER IS OK

/RESTORE DEVICE NUMBER

(HANOIR'^1

DEVN
OEVNUM

/SET UP HANDLER LOAD AODR

0200

JMP
TAO
DCA
CIF
JMS

lOERR
DEVN
OEVHAN

/RESET THE HANDLER ADDRESS

/GET RID OF THE USR

0200

JMS
JMP

TAD
DCA
SEARCH, TAD
DCA
TAD
TAO
SNA
JMP
TAO
cue CIA
TAD
SNA
JMP
SNL CLA
JMP I
ISZ
SKP
JMS
CONTIN, JMS
JMP
SAMEIST ,ISZ
SKP
JMS
TAD

/REMOVE OSS AGAIN
CSWAP
tCMODQNE
/FIND A LINE
[TXTAREA
TEMP
/COMPARE THE NUMBER OF
TEMP
PTR
/THIS LINE WITH THE SPOT
/IN THE TEXT AREA,
TEMP
07701

FINDLN

/NEW LINE GOES AT EOF

077

LlNENO
SAMEIST

FINDLN
TEMP

/INSERT NEW LINE

tFINCR
tPASS

/IF

SEARCH
TEMP

/FIRST HALF OF LINE NUM SAME

tFINCR
TEMP

ITS GREATER KEEP SEARCHINb.

/OS/8 BASIC EDITDW
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218

02353
02354
02355
0235b
02357
023b0
02361
02362
02363
02364
02365
02366

nai
103b
7450
53bb
7630
5345
4533
1023
3026
5722
4534
5722

PAUa-V7

l0/«»4/7a

PAGE ll-S

CLL CIA
/CHECK SECOND HALF
TAO
LINEMO+1
SNA
JMP
SAMt2ND /HfcPUACt OLD WITH Nfci^
SZU CLA
JMP
CONTIN
JMS 1
^^OtCk
TAD
TEMP
PCA
PTR
JMP I
PINDLN /INSERT NEW LINE
SAME2ND,JMS I
[PASS
JMP I
FINDLN

-70S/8 BASIC EDITOH

1219
1220
1221

12?2
1223
1220
1225
1286
122T
1226
1229
1230
1231
1232
1233
1234
1235
123fc

1237
123S
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
1266
1267
1268
1269
1270
1271
1272
1273

02371
02372
02373
02374
02375
02376
02377

02400
02401
02402
02403
02404
02405
02406
02407
02410
02411
02412
02413
02414
02415
02416
02417
02420
02421
02422
02423
02424
02425
02426
02427
02430
02431
02432
02433
02434
02435
02436
02437
02440
02441
02442
02443
02444
02445
02446
02447
02450
02451
02452
02453
024S4
02455
02456

2400
7746
2000
2111
2064
2715
4721
2400
1377
3010
6211

PAL8-V7

OORUN,

1051

3410
7126
iaia
6201
1776*
6211
3410
1045
3410
1046
3410
1047
3410
1050
3410
6201
4315
6201
2400
6211
7600
6213
4315 RUNOO,
6201
4400
6211
7400
1775'
3245
6202
4774*
3700
0000
0000 BCBUOK,
527J
431t>

6211
4400
6201
740(d

7201
4773'
0003

PAGE
TAD
OCA
CDF

10/a«/72

PiUfe

(INF0*11/3ET UP SOME OF INFO BLOCK
X10
10

TAD
DEVHAN
DCA I
X10
CLL CML RTL
DCA I
X10
CDF
TAD
SAVBLK
CDF
10
DCA I
X10
FNAME
TAD
DCA I
xie
TAD
FNAME+l
DCA I
)tl0
TAD
FNAME+2
DCA I
X10
TAD
FNAME+3
DCA I
X10
CDF
JMS
XMOVE
COF

/SAVE DEVICE HANOLEH ADDRESS CDSKO
/SAVE DEVICE NUMBER
/SAVE STARTING BLOCK

/SAVE FILE NAME

/MOVE THIS PAGE INTO FIELD

OORUN
CDF
10
• 200
CDF CIF 10
JMS
XMOVE
COF

HANOLR
CDF
«400
TAD
DCA
CIF
JMS

/GO TO THE FIELD ONE COPY
/MOVE THE HANDLER INTO FIELD

INF0*1
BCBLOK

/GET START OF BCOMP.SV

7607

/READ IN THE COMPILER

WHUPS
XMOVE

/MOVE BACK THE HANOLEH

ecsizt
JMP
JMS
COF

HANDLR
COF

-400
CLA lAC
JMS
200
3

/OPEN THE TEMP FILE

/OS/8 BASIC EDITOR
1274
1875
127*.

1277
1278
1279

_J280
1281
1282
1283
128a
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304

1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328

02457
02460
02461
02462
02463
02464
02465
02466
02467
02470
02471
02472
02473
02474
02475
02476
02477
02500
02501
02502
02503
02504
02505
02506
02507
02510
02511
02512
02513
02514
02515
02516
02517
02520
02521
02522
02523
02524
08525
02526
02527
02530
02531
02532
02533
02534
02535
02536
02537
02540
02541
02542

02543
02544

PAL8-V7

10/24/72

PAGE \i-l

254/
TMPBLK, TMPFIL
0000
JMP
WHUPS
5273
4773*
JMS
/RESET SYSTEM TABLES
2k)0
/AND REMOVE TENTATIVE FILES
0013
13
TAD
TMPBLK /SAVE ITS START
1257
3772*
OCA
lNFO+10
TAD
TMPBLK*!
1260
3777'
OCA
INF0*11 /AND ITS MAX LENGTH
3771*
7b44
OCA
/KILL R Si«lirCH
CIF COP
6203
5770*
JMP
SCBE GN /GO START THE COMPILER
1367
TAD
/PRINT SY ERROR
MHUPSi
(123
4307
JMS
TTYO
TAD
1366
(131
4307
JMS
TTYO
TAD
1365
(15
4307
JMS
TTYO
1364
TAD
(12
4307
JMS
TTYO
TSP
/WAIT FOR FLAG
6041
5303
JMP
.-1
CDF CIF
6203
5775*
JMP
/RETURN TO 0S8
7605
0000 TTYO,
T5F
6041
JMP
5310
6046
TLS
7200
CUA
5707
JMP I
TTYO
0000 XMOVE,
6214
RDF
/GET CALLING FIELD
1363
TAO
(6203
/PLUS CIF COF
3340
DCA
MOVRTN /FOR RETURN
4343
JMS
GMOVE
/GET FROM FIELD
OCA
3331
MFFLO
4343
JMS
GMOVE
/GET ADDRESS
3342
DCA
MFPTR
4343
JMS
GMOVE
/GET TO FIELD
3333
OCA
MTFLO
4343
JMS
GMOVE
/GET COUNT
33'J3
OCA
MCNT
7402 MFFLO,
MLT
TAO I
MFPTR
1742
/MOVE IT
7402 MTFLO,
HLT
3742
MFPTR
OCA I
MFPTR
2342
ISZ
2343
ISZ
MCNT
JMP
5331
MFFLO
7402
MOVRTN, HLT
S71b
JMP 1
XMOVE
MFPTR,
0000
MCNT,
0000 GMOVE,
1715
TAD I
XMOVE
/GET ARG FOR MOVE

•
PAL8-V?

/OS/8 BASIC EDITOH
1329
1330
1331
1332
1333
1334

025«5
02546
02547
02550
02551
02552

2315
5r4i
0201
2311
0300

2415

10/S«/72

XMOVE
GMOVE
TMPFIL» FILENAME BASIC, TM
ISZ
JMP

PAGE ia-2

/OS/fl

BASIC EDITOK

1335
1336
1537
133B
1339
13«0
1341
1342
1343
13««
isas
13«6
13«7
1348
1349
13S0
1351
1352
1353
1354
1355
1356
1357
135a
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
138«
1365
1386
1367
1388
1389

02563
02564
02565
02566
02567
02570
02571
02572
02573
02574
02575
02576
02577

02600
02601
02602
02603
02604
02605
02606
02607
02610
02611
02612
02613
02614
02615
02616
02617
02620
02621
02622
02623
02624
02625
02626
02627
02630
02631
02632
02633
02634
02635
02636
02637
02640
02641
02642
02643
02644
02645
02646
02647
02650

6203
0012
0015
0131
0123
7001
7644
7614
0200
7607
7605
2236
7615
2600
0000
1034
7640
5211
6031
5204
6036
0062
5600
2360
5236
1070
3360
1140
3021
1357

3236
4555
1343
7450
5320
7001
3343
4451
0200
4000
0000
5320
2232
4555
7402
5262
5257
1357

3236
1421
2021
0124
7112
7012
3023

PAL8-V7

10/24/78

PAGE 13

PAGE
GETCH,

/GET A CHARACTER FROM
TAD
OLDFLAG /INPUT FROM A FILE ?
SZA CLA
JMP
FILEIN /YES
KSF
JMP
.-1
KH»
AND
0177
JMP I
GtTCH
FILEIN, ISZ
COUNT
/ANYTHING IN BUFFER ?
JMP
NOREAD /YES. NO READ
TAD
07200
/SET BUFFER COUNT
OCA
COUNT
TAD
tOSKSUF /SET BUFFER POINTER
DCA
RDPTR
TAD
ROJMP
/RESET JUMP
DCA
NOREAD
JMS I
tSWAP
/GET ose
TAD
/ANY ROOM LEFT ?
RDSlZfc
SNA
JMP
INERR
/BAD END OF IFILE
lAC
DCA
ROSIZE
JMS I
DEVHAN /READ NEXT BLOCK
200
OSKBUF
PDBLOK,
JMP
INERR
ISZ
HDBLOK
/BUMP BLOCK NUMBER
JMS I
[SMAP
/AMAY MITH 0S8
NOREAD, HUT
/3W UNPACK JUMP
JMP
INCHRl
JMP
TNCHR2
INCHS3, TAD
ROJMP
/RESET Si«IITCH
DCA
NOREAO
TAO I
RDPTR
/fJET LOW 4 BITS
RDPTR
ISZ
/BUMP POINTER
AND
07403
/MASK IT
CLL RTR
/SHIfT RIGHT 4
RTR
DCA
TEMP
/SAVE

#
PALe-V7

/OS/8 BASIC EDITOK
1390
1391
1392
1393
139«
1395
1396
1397
1398
1399
lazia

1021
1102
1403
1404
1405
1406
1407

140S
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
144a

02651
02652
02653
02654
02655
02656
02657
02660
02661
02662
02663
02664
02665
02666
02667
02670
02671
02672
02673
02674
02675
02676
02677
02700
02701
02702
02703
02704
02705
02706
02707
02710
02711
02712
02713
02714

1420

0124
1023
7112
7012
5264
1021

INCHR2,

3020
2021
1421

2236
0062
1116
7450
5272
1066
5600
3034
1032

INCHRl,

AND177,

ENOOLD,

1377
3010
1410
3045
1410
3046
1410
3047
1410
3050
5553
3050
2I13S

5334

02715
02716
02717

6212
4456
0011

02720
02721
02722
02723
02724
02725
02726
02727
02730
02731
02732
02733
02734
02735

3034
4555
4576
2162
5556
1154
4562
303/
304bJ

453S
7144
3023
n5«i
3342

TAO I
RDTMP
AND
07400
TAD
TfcMP
CLL RTH
RTH
JMP
AMD17 7
RDPTR
TAO
OCA
RDTMP
RDPTR
ISZ
RDPTR
TAD I
NOREAO
ISZ
AND
0177
TAD
07746
SNA
JMP
ENDOLO
TAO
032
JMP I
GETCH
OCA
OLDFLAG
CHNFLAG
TAD

/GET HIGH

PAGE 13-1
4

BITS

/COMBINE THEM
/SHIFT MIGHT 4
/GO FINISH
/SAVE AODR OF FIRST WORO

/9UMP POINTER
/GET NEXT CHAR
/BUMP SWITCH
/MASK 7 BITS
/CHECK FOR -Z
/EOF
/RESTORE CHAR

/KILL OLD FLAG
/WAS IT A RETURN FROM RUN

SNA^UA

765ii)

5553
3032

10/24//^

JMP
OCA
TAO
OCA
TAO
OCA
TAD
OCA
TAD
OCA
TAD
DCA
JMP
OLDBAOi OCA
ISZ
JMP
lOEHR,
INEHRX, CIF
JMS

ICMDOONE/NO, JUST AN OLD COMMAND
CHNFLAG /KILL Flag
(INFO-4164
/PICK UP NAME FROM INFO BLOCK
)(10
X10
/(WHICH IS SWAPPED OUT)
FNAME
X10
FNAME+1
X10
FNAME*2
X10
FNAME+3
tCMODONE/DONE WITH RETURN
FNAME+3 /TRY WITHOUT EXT
TEMP
/OR HAVE WE ALREADY
OLDTHY /NO, NOT YET

10
I

/DISMISS USR

0200

OUERRr
INERR,

OCA
JMS I
JMS I
BAOFIL
JMP I
TAO
OLD,
JMS I
DCA
DCA
JMS I
CUL CMA
DCA
OLDTRV, TAO
OCA

OLDFLAG /KILL OLD STATUS
[SMAP
/OUT WITH 0S8
ITVPE
/PRINT MESSAGE
[MAINLUP
tTXTAREA/SCRATCH FILE
[8ETEUF
FOFLIN /ZERO LAST LINE NUM
eOFLIN*
I6ETFN
/GET FILE NAME
RAL
/SET RETRY COUNT
TtMP
IFNAMt
/POINTEW TO FILE NAME
SB
/INTO LOOKUP CALL
I

PAt8-V7

/OS/8 BASIC EDITOR
1445
144(>

1447
144B
1449
1450
1451
1458
1453
1454
1455
145b
1457
145S
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477

02736
02737
02740
02741
02742
02743
02744
02745
02746
02747
02750
02751
02752
02753
02754
02755
02756
02757
02760
02761
02762
02763
02764
02765
02766
02767
02770
02771
02772
02773
0277<t

02775
02776

TAD
CIF
JMS

1052
6212
4456
0002

DEVNUM

PAGE 13-2

/GET DEVICE NUMBER

10
I

0200

/LOOKUP FILE

000lei

0000
5312
1342
7450
2343
3232
7201
3034
7240
3360
4555
5556
5237
0000
0000
3376
6214
1110
3374
1120
3776
5761
0000
1376
3023
6201
5771
5000

10/24/72

RDSIZE,

QL08A0

JMP
TAD
SNA

ROJMP,
COUNT,
SETEOF,

/START GOES HERE
/SIZE GOES HERE
/BAP FIUE
/MOVE BLOCK

RDSIZE /SET COUNT TO 4095 IF NOT O.A,
ISZ
OCA
HDBLOK
/SET SWITCH
CUA lAC
OLDFLAG /INPUT COMING FROM FILE
DCA
/SET COUNT TO INITIALIZE REAO
CLA CMA
DCA
COUNT
[SWAP
/MOVE QS8
JMS I
JMP I
[MAINLUP/DO OLD
JMP
NOREAO+1
DCA
RDF
TAD
DCA
TAD
OCA
JMP

EOFAOR
06201
EOFFLD
077
I
I

/SET NEW EOF
/SAVE AOOR
/GET FIELD

/SAVE IT
/STORE EOF

EOFAOR
8ETE0F

GETEOF,
TAD
EOFAOR
DCA
TEMP
EOFFLD, CDF
JMP I
GETEOF
EOFAOR, TXTAREA

/RETRIEVE EOF INFO
/FIRST ADDR
/THEN THE FIELD

PALB-V7

/OS/8 BASIC EDITOR
1478
ia79
1480
1461
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532

02777

03000
03001
03002
03003
03004
03005
03006
03007
03010
03011
03012
03013
03014
03015
03016
03017
03020
03021
03022
03023
03024
03025
03026
03027
03030
03031
03032
03033
03034
03035
03036
03037
03040
03041
03042
03043
03044
03045
03046
03047
03050
03051
03052
03053
03054
03055
03056
03057
03060
03061
03062
03063

3421^
300k}

0000

X^/mnZ

PAGE la

PAGfe

LINE,
WSNAME, 01

/THk TELETYPE LINE aUFFER.
;

01 45; 6454 > 33431 4264 J 5244

n 70 ,'6400
7

000Jd
014!)

6454
3343
4264
5244
1770
6400
START,
5227
6213
T201
3777*
6201
4776
0010
6212
4775
0013
6046
4300
2032
5774'
6046
1120
3554
4300

/IT WAS RAN

/NO SWAP

7700

/RESET SYSTEM TABLES
/SET TTY FLAG
GtTOAT /SET UP TITLE
CHNFLAG /TELL ABOUT RETURN FROM RUN
/READ IN OLD WORK SPACE
OLD
077
CTXTAREA

GETOAT
Xll

1411

7450
5254
3243
7201
6212
4775
0002
0000
0000
527b

JMP
LUBUF
XXXXSV
DC*
CLA lAC
CIF
10
JMS
(200

/SET UP TITLE
/LOOK UP SOME SAVE

LUBUF,

NG
JMP
lAC
COF
10
xxxxsv
TAD
nCA I
X10
COF
JMP
FINOSV
CLA lAC
CIF
10
JMS I
C200

/SAVE BLOCK PLUS
/IN INFO AREA
/FIND BASIC, UF

BUFN

0H0k}

526b
1260

JMP
TAO

.3
.-3

FRES

/GO FIND BASIC. UF
/SAVE POINTER TO NAME

XXXXSV,

7001
6211
1243
3410
6201

5233
7201
6212
4775
0002
3333

/FETCH USR

/OK IF MISSING

/OS/8 BASIC EDITOK
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
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
1578
1579
1580
1581

0306a
03065

7001
6211

03(966

34113

03067
03070
03071
03072
03073
03074
03075
03076
03077
03100
03101
03102
03103
03104
03105
03106
03107
03110
03111
03112
03113
03114
03115
03116
03117
03120
03121
03122
03123
03124
03125
03126
03127
03130
03131
03132
03133
03134
03135
03136
03137
03140
03141
03142
03143
03144

6201
7201
4576
3350
4555
5773'
4576
NG,
3337
5772'
0000
GETDAT,
6211
1771'
6201
3024
1024
7450
5700
0124
7106
7006
7006
1370
3012
1367
3013
1024
7012
7010
0100
1366
3023
1423
3413

14U
3413
1412
3413
1024
0365
1364
7106
7006
7006
2013
3413
5700

PALtt-V7

lAC
COF
DCA
CDF
CI.A

l0/<J4/72

PAliE

/SAVE BLOCK

la-l

10
I

tltd

lAC

JMS I
OLDNEw
JMS I
JMP
JMS I
MISING
JMP

tTVPE

/TYPE WITH NO CARRUGt RETURN
/"OLD OH nEw -- "

[SWAP

MAINLUP
{TYPE

/PART OF SYSTEM MJSSING

7605

/PUT OSS DATE INTO THE TITLE
COF
10
TAD
7666
/GET DATE WORD
CDF
DCA
TEMP2
/SAVE IT
TAD
TEMP2
SNA
JMP I
GETDAT /NO DATE
AND
07400
/GET MONTH
CLL RTL
/SHIFT SOME
RTL
RTL
TAD
(MONTHS-3
OCA
X12
TAD
COATE-1 /SET UP POINTER TO DATE
DCA
)(t3
TAD
TEMP2
/GET DAY
RTR
RAR
AND
037
TAD
(NUMS-1 /GET NUMBERS
DCA
TEMP
TAD 1
TEMP
OCA I
X13
/INTO DATE
TAD I
X12
/GET MONTH CHARS
DCA I
X13
TAD I
X12
OCA I
X13
TAD
TEMP2
/GET YEAR
AND
(7
TAD
(21
CLL RTL
RTL
RTL
ISZ
/THE WORD WITH -7 IS THfcRE
X13
DCA I
X13
/STORE LAST DIGIT OF YEAR
JMP I
GETDAT

PAUa-V?

/OS/B BASIC EDITQK
1562
1563
156tt

1585
1586
1587
1586
1589
1590
1591
1592
1593
159«
1595
1596
1597
1598
1599
tbee
ifc0i
16(92

1603
1604
1605
1606
1607
1606
1609
1610
1611
1612
1613
I6ia
1615
1616
1617
1618
1619
1620
1621
1622
1623
162a
1625
1626
1627
1628
1629
1630
1631
1633
1633
163a
1635
1636

03164
03165
03166
03167
03170
03171
03172
03173
03170
03175
03176
03177

03200
03201
03202
03203
0320tt

03205
03206
03207
03210
03211
03212
03213
03214
03215
03216
03217
03220
03221
03222
03223
03224
03225
03226
03227
03230
03231
03232
03233
03234
03235
03236
03217
03240
03241
03242
03243
03244
032«5
03246
03247
03250
03251

0021
0007
3237
1324
3175
7666
7605
0604
272^
0200
7700
7746
3200
165i
4257
1647
4643
1656
4263
1642
6263
1656
4272
1653
6657
1653
6655
1642
6650
1664
4661
1660
4465
1657
6067
1645
4644
2122
2123
2124
2125
2126
2127
2130
2131
2132
2221
2222
2223
2224
^i^'i

2226
2227
223«}

2231

MONTHS,

MUMS,

10/^4/72

PAGE
1653»4257

/•JAN

164714643

/-FEB

165614263

/-MAR

164216263

/•APR

165614272

/-MAY

165316657

/-JUN

165316655

/•Jul

164216650

/-AUG

166414661

/•SEP

1660>4465

/-OCT

16S7>6067

/-NOV

1645M644

/-DEC

2122I2123;2124>2125;2

222U2222)2223>2224>2

PACE 15

/DS/8 BASIC EDITOH
1637
163B
Ibit
lfe«l

Idas
164(1

1*45
1«.«6

1647
1648
1649
1650
1651
16S2
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1660
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691

03252
03255
03254
03255
03256
03257
03260
03261
03262
03263
03264
03265
03266
03267
03270
03271
03272
03273
03274
03275
03276
03277
03300
03301
03302
03303
03304
03305
03306
03307
03310
03311
03312
03313
03314
03315
03316
03317
03320
03321
03322
03323
03324
03325
03326
03327
03330
03331
03332
03333
03334
03335
03336
03337
03340

PAta-V7

2232
2321
232d

10/24/72

PAGF,

Ib-l

2232;23fei;2322;2323j2J24f2i25;2i36;2?^7;2336

?.S?.S

2324
232S
2326
2327
233ii9

2331
2332
2421
2422
3277
3303
3307
3313
3317
3323
3387
0000
0201
2311
0300
2326
0203
1715
2000
2326
0214
1701
0400
2326
0222
2423
0000
2326
0201
2311
0300
0106
0201
2311
^300
2306
0201
2311
0300
0606
0201
2311
0300
2506
525/
4460

233i;2332>242i;2422

NAMLST, BASICN
BCOMPN
BLOADN
BRTSN
BAFN
BSFN
BFFN
BASICN, FILENAME BASIC. SV

BCOMPN, FILENAME BCOMP.SV

BLOADN, FILENAME BLOAD.SV

BRTSN,

FILENAME BRTS.SV

BAFN,

FILENAME BASIC, AF

BSFN,

FILENAME BASIC, SF

BFFN,

FILENAME BASIC. FF

8UFN,

FILENAME BASIC, UF

MISING, 5257;4«ba;566l;5546;6546;01b4;7e;fe4>e,S46f5600

PALS-V?

/OS/6 BASIC EDITOK
1692
1693
l(.9a

1695
1696
1697
1696
1699
1700
1701
1702
1703
170«
1705
1706
1707
1708
1709
1710
1711
1712
1713
17ia
1715
1716
1717
17ia
1719
1720
1721

1722
1723
172a
1725
1726
1727
1726
1729
1730
1731
1732
1733
173a
1735
1736
1737
1738
1739
1740
I7aj

1742
1743

03341
03342
03343
03344
03345
03346
03347
03350
03351
03352
03353
03354
03355
03356

5661
5546
6546
0164
7264
6546
5600
5746
7001
6063
0160
5545
1616
0000

00133
00134
00135
00136
00137
00140
00141
00142
00143
0014a
00145
00146
00147
00150
00151
00152
00153
00154
00155
00156
00157
00160
00161
00162
00163
00164
00165
00166
00167
00170
00171
00172
00173
00174
00175
00176
00177

0547
0533
1600
1242
1444
4000
1467
0041
1215
4a0i
1332
1251
3004
3003
0044
0045
0600
5000
2112
0604
0731
0563
3001
2761
?322
2771
3000
1200
1553
1136
3003
0356
0400
0525
0471
2600

FAUE

l-j-?

OUONEW. 5746^001) 6063>0160;5545n6 16)0

92m

10/^4/^2

/OS/B BASIC EDITOW

0234
ALT
AN0177 2664
ARROW 0315
ASKfiM
2167
ASKMAM 1675
ASKNM
1713
BAOFIL 2162
BAFN
3317
BASICN 3277
BCBEGN 7001
8CBL0K 2445
BCOMPN 3303
BCSIZE 3700
BFFN
3327
BLOADN 3307
BRT8N 3313
B8FN
3323
BSKIP
1616
BUFN
3333
BYE
1101
BVEBYE 1076
CARRET 0334
CHNFLA 0032
CMODON 0600
COFLAG 0031
COMLUP 1202
COMMAN 1200
COMTBL, 1220
CONTIN 2345
CONV
1270
COREOV 1073
COUNT 2760
CRLF
0356
CRSWIT 0547
CTRLO 1553
CTHLOX 1566
DATE
1325
OEV
1647
DEVHAN 0051
OEVNI
2310
DEVNUM 0052
DIGIT
1507
DIG!
0463
016123 0467
0453
DI62
0IG23 0461
DIGS
0450
0164
0442
0IG456 0446
DIGS
0432
DIG56 0440
DIG6
0427
DORUN 2400
DSKBUF 4000
ENDOUD 2672

tOFADH
tOFFLD
tOFLIN
tXPANO
FDfcCH

PAU8-V7
2776
2774
0037
1000
0547
2611
0563
2322
3033
0045
1506
2600
3100
2771
1444
1600
1642
0200
1724
1332
2226
1542
2543
4400

FIUEIN
FINCH
FINDLN
FINDSV
fname
FRSTDI
GETCH
GETDAT
GETEQF
GETFIL
GETFN
GETHAN
SETLIN
6ETNAM
GETNC
GFN
GFRET
GMOVE
MANDLR
HEADIN 1251
HNDLOK 2314
IGNORE 0203
XNCHRl 2662
INCHR2 2657
INCHR3 2641
iNtRR 2720
INERRX 2715
INFO
7604
INSERT 0646
IQtRR 2715
ISTEXT 0264
JMPINS 2110
UA8TDI 1505
LA8TWD 1070
LEFTTX 1526
UINE
3000
LINENO 0035
UINFTX 1550
LIST
1400
tlSTNH 1411
LNUIG 0400
ISTLUP 1436
LUbUF 3054
LWHEOF 0727
MAINLU 0604
MCNT
2543
MFFUO 2531
MFPTR 2542
MI5ING 3337
MONTHS 3200

MOVt
MUVtFN
MOVtNT
MOVLUP
MOVRTN
MSGALT
MSGbIG
MSGkDY
MSGTOO
M8GWHA
MTFLD
M40
NAME
NAM1.8T

NAMLUP
NCHAR8
NOIGS
NEW
NG
NOCOMD
NOEXT
N0FU8R
NOREAD
NORM
N08KIP

NOTLAS
NUMDUN
NUMS
N2DIGI
OLD

OLDBAD
OlOOEV
OLDFLA
OLONEM
OLOTRY
0S8RES
OUERR
OULEN
OUSIZE
010
012
013
0137
014
017
0177
0200
0201
0212
0215
0232
0237
0260
32
03b

\V)/iii/li
13731

1657
0741

0743
2540
1116
1105
1123
0571
1126
2533
1660
0041
3267
1736
0030
0027
1763
3075
0614
1361
1615

2636
1136
1623
0645
1425
3230
1523
2725
2712
2321
0034
3350
2734
3200
2720
2266
2111
0111
0122
0075
0115
0127
0072
0062
0056
0057
0077
0076
0063
0074
0073
0066
0117

PAGE
037
0400
06171
06291
06211
072

07200
07201
07400
07405
07600
07607
07634
077

07700
07701
07706
07741
07745
07746
07760
07761
07764
07766
07770
07771
07772
07774
PASS
PFCTLZ
PFLOOP
PFTEMP
PHI
PH2
PH3
PTR

lb-.?
a IMP
aiat-

0105

0UW
aiBfc

0067
0070
0064
0124
0102
0071
0054
0114
0120
0055
0103
0365
0101
0121
0116
0125
0060
0061
0113
0107
0123
0104
0112
0533
2020
2014
2030
2104
3101
2036
0026
074b
1467
2031
2000
2033
3027
2632
2757
0021
2743
0020
1754
0307

PTHFLO
PTR2FL
PUTCH
PUTFIL
PUTJMP
R8ASIC
HOBLOK
ROJMP
ROPTR
RDSIZE
RDTMP
RENAME
RIGHTY
RITETX i'j13
RUN
2200
RUNOO 2432
KUNFLA 0033
SAMfclS 2347
SAME2N 2365

/OS/8 BASIC EUITOK

SAVBLK 223b
2223
SAVE
SAVFLA 1723
2742
SB
SCRATC 1131
SEARCH 2325
SET EOF 27fcl
9ZZ2
SIZE
START 3011
SWAP
2112
SWAPTl 01303
9WAPT2 0(304
SWAPT3 0005
SWAPT4 0006
SWAP2 2127
SWPFLO 2147
SWPLUP 2141
SWPNUM 0053
TCRLF 0521
0023
TEWP
TEMP2 0024
TESTCH 1346
TITLE
1312
TUOOP 0476
TMP8UK 2457
TMPFIU 2547
TMPFUD 0704
TMP2FL 1037
TOWARD 0025
2507
TTVO
TTYDUT 0525
TWOFLO 0706
TWD2FI.

1041

TXTARE
TYPE
U8E0SK
VERS
VER80N
WHAT
WHUPS
WRBLOK
WSNAME
WSSAVE
XMOVE
XNAME
XTITLE
XXXXSV
X10

5000
0471
1636
0007
0100
1215
2473
2064
3000
1242
2515
2265
1265
3043
0010
0011
0012
0013
0014
0015
0016
0017

Xlt

X12
X13
Xl«
X15
X16
¥17

ZEKOTX 15«a

PAUa-V7

\9l/iH/fi

PAiit

13-U

U74

ALT
AND177
ARROW
ASKFN

laB
1395
13a
9ai
859
907

ASKNAM
ASKNM
BAOFIL
BAFN
BASIC
BASICN
6CBEGN
BCBLOK
BCOMP
BCQMPN
BCSIZE
BFFN
BLQAO
BUOADN
BRTS
BRTSN
esFN
B8KIP
BUPN
BYE
BVEBVE
CARRET
CHNFLA
CMODON
C0FL.A6

COMLUP
COMMAN
COMTBL
CONTIN
CONV
COREOV
COUNT
CRUF
CRSWIT
CTRLO
CTRLOX
DATE
DEV
OEVHAN
DEVN
OEVNUM
DIGIT
DIG!

DIG123
0IG2
DI623
0IC3
DIGa
OlGaSb
DIGS
OIGSfe

DIGb
DORUN
DSKBUF

131

137

14b
190*
IU91X
905#
910
919»
I086i» 1434
1674«
1654
1658
1674
1331
165e«
1650
19# 1285
1259
t264«
1662
1662#
1651
18# 1262
1682*
1656
1666
1666*
1652
1670
1670«
1653
1678#
1655
658« 862
1686#
1529
540* 620
537« 835
122
205#
125
846
50#
1408
726
361# 568
724
49«
838
594# 601
592«
371
608*
592
1201« 1212
640
639
641
494
500
534#
1358
1361
1459
207
169
223«
289
312
334«
748
293
825#
832
827
836«
677« 1559
869
867
875
65# 890
1021
1172# 1174
1167
66« 886
1120
764
763
766
282*
249
281
250

273
251

141#

14(^1*

1696

1678

1682

1411
749

1502
751

958

643

648*

6*»5

1463«
228

314

836

839

877
1175

379
1230

1126
767

1149
1161
789#

1032

13b2

965

1183

362

634

646

833#
1372

387

889

U65

1168

286t|i

274*
280#
271*
26b«
269#
257#
263«

ZSZ
264
253
256
254*
1156
li!2/« 1249
976
22#
1023

1374

1410

144b

1422

ENDOLD
EO^AOR
EOFFLO
EOFUIN

EXPAND
FDECR
FF

FILEIN
FINCR
FINOLN
FIND8V
FNAME
FR8T0I
GETCH
GETOAT
BETEOF
SETFIL
5ETFN
SETHAN
GETLIN
GETNAM
BETNC
GFN
GFRET
SMOVE
HANOUR
HEADIN
HNOLOK
IGNORE
INCHRl
1NCHR2
INCHR3
INERR
INERRX
INFO
INSERT
lOERR
ISTEXT
JMPINS
LASTDI
LASTWD
LEFTTX
LINE

LINENO
LINFTX
LIST
LISTNH
LNDIG
LSTLUP
LUBUF
LWREOF
MAINLU
MCNT
MFFLD
MFPTR
MISING

1404
1465
1466
55#
1439
415
335#
1682
1352
325
396
1508*
61«
1238
762
117
1501
390
750
844*
873
113#
863

682«
1118
803
1308
23«
633«
1163
116*
1380
1381
13a2«
1369
1427#
20*
399«
872
160
982
768
513
770
175
719
53#
395
772
610
722
163
748#
1510
436
365*
1315
1309
1311
1543

1407*
1470
1473
14750
382
387

147/#
961

'^ft2

143d

908
1419

912
1421

914
1423

916
1443

800
953

816
963

817
1123

984
1440

922
951
729

734

856

936

944

394

396

566

567

11821*

352
1190

490
1197

1200
1216

1205
1216

897
1242

699
1244

901
1415

903
1417

786
918
366
945
713

475#
346
1213
1358*
332
743
1524
b35
1240
788*
1J49»
1507

347#

1406
1357
1S4S« 1552
481
1472* 1476
754«
778
782
904
893
896

1581

878«
172
222
U3
870
998# 939
696
709
712
1122#
816« 821
824
1310
1314
1312
878
1255
1166
647
723
1104
1176#
150
189
164
1399#
1396«

1327# 1330
1268

200

204

213

1258

1280

128?

1412

886
1155
1132
165*
1044»
1002

1173

1426#

455
1480*

457

458

599

666

718

271
582

276
563

286
585

330
1193

385
1208

393

244

270

287

737

536

6B7

1435

1461

1376

1431i

1227

787*
53l#
804»
ilb
375
1100
1101
254
261

377
1105
269
580

454
456
822*
718*
727#
231* 237
236
753
1525«
448*
372
472
452
1321
1326*
131b# 1322
li20
1317
1319
1690*

1325#

1541

MONTHS
MDVE
MOVEFN
MOVENT
MQVLUP
MOVRTN
MSGAUT
MSGBIG
MSGROV
MSGTOO
MSGMHA
MTPLD
M40
NAME

1557
413

NAMLST
NAMLUP
NCHARS

32
704
48«
684
47«
788
622
1518
366
699
S48
1359
221
863#
389
730
1565
797
612
1423#
1121
52«
1539
1425
21*
1025
1030
1026
97«
106*
85«
101#
lilt
82«
74*
70#
71#
87#
86*
75#
84#
B3«
76#
103#
88*

NDI6S
NEM
NG

NOCOMO
NOEXT
NOFUSR
NQREAD
NORM
NOSKIP
NOTUAS
NUMDUN
NUMS
NZDIGl
OLD

OLOBAD
OLODEV
OLOFLA
OLONEW
OLOTRY
OSSRES
OUERR
OULEN
0U8IZE
oiei

012
013
0137
014
017
0177
0200
0201
0212
0215
0238
0237
0260
032
03fe

03 7,^^

159b«
45li)«

533

691#
45e#
46ei«

471

I32i#
553#
544«
3«.4
558*
J53#
171
561# 606
1318«
1313
892«
860
57*
702
91?
915
1307
142
535

668
930

894
931

898
933

900
934

902
1153

911

913

165
925
203

173

188

196

199

208

683

211

240

241

570

see

726

1400
589

1462

1181#
205

369

1350

1407

1431

1457

1056
1053
1430«
ltS4«
1136
468
445

784

809

1005
1356
955

1139

1151

1170

117/

1426

866
929

16S0III

93e#

950

115
727
114
798

158
657
201
801

959#
1542*
373#
705*
8S7»
1365
1379# 1383
569* 574
577
926
398«
735
739#
1619»
801#
1436* 1503
1451
1159
153

1164
190

741

1699i»

1443*
1050
1028
1137
1045*
440
233
618
193
833
795
829
881
932
226
224
968
302
602
1405
144
479

1401
1128

823
820

309

1564

815

1447

0400
06171
06201
06211
072
07200
07201
O7«00
07405
07600
07607
07634
07T

07700
07701
07706
07741
07745
07746
07760
07761
07764
07766
07770
07771
07772
07774
PASS
PFCTLZ
PFLOOP
PFTEMP
PHI
PH2
PH3
PTR

PTRFUO
PTR2FL
PUTCH
PUTFIU
PUTJMP
RBASIC
RDBLOK
RDJMP
RDPTR
RDSIZE
RDTMP
RENAME
RIGHTY
RITETX
RUN
RUNDO
BUNFLA
SAMEIS
SAMe2N
SAVBLK
SAVE
SAVFLA

110#
93#
96#
94«
79#
80«
76«
10B»
90#
81#
6a#
100«
104«
S12
69«
9l«
77#
89#
1050
102*
109#
72#
73«
99#
95#
107#
92#
9B*
292
985
984*
991
1000
1001
1002«
46#
408
774
407
746
986

972«
983
1490
1375#
1364
41#
1367
40*
624
176
771

616

i4k)

406
349

420

483

502

745

975

279

1014

1386

13^1

1553

1034

1060

299
1469
219
776

306
1505
657
1188

327

650

654

694

711

779

855

1147

426

520

528

305

322«

329

331

333

1201

121/

216
187
216
638
642
655
1108
nil 1112
469
769
773*
783
997# 1019
1036

220

373
662
1215

392
664

401
740

na
1360
990
262
166
980
132
146
1191
185
434
/36
511
162
1402
255
69/
705
123
126
242
129
578
29b

653

272
630

405
1109
575
936
304

986*
987
993
1040«
103/«

996llt

176
464

184
465
974
781
463« 467
761
766
989
992
995
1142
999# 1003
1504«
1377
1455
1382
1462«
1363
1384
1371
1450«
1390
1397
952#
164«

10'!2

1044

1385
1054

1396

111/
1119
1203«
1217*
1130* 1133
1119#

1144

1156

1135

1235

891

405

927«

609#
1100«

U53«
51«
1195
1210
1125
614
845

l'i6/

6SI<)

1398

661

1186
785
1043

1399

976

TE8TCM
TITLE
TLOOP

1449« 1452
618
11«S# 1202
449
505
565
1678
376
42«
379
1490*
1662
1658
1666
849
540
957
1366
1179
1378
26« 979
1009
1077
1063
27# 981
1018
26# 1015
1016
998
29#
1004
1049
1052
1055
1067
1075111
1069« 1081
fc7#
538
1047
294
308
301
43«
152
161
274
277
280
399
391
410
480
477
486
596
595
602
747
686
755
1184
1114
1185
1424
1442
1474
44«
118
120
804
793
811
1549
1550
1561
694*
690
645
666*
293« 311

1331

TMPBLK
TMPFIL
TMPFLD
TMP2FL
TOWARD

1279
1281
1274
1331«
42f
421
429# 439
443
441
484
506« 526
527
529
530
45#
418
422
432
433
442
492
491
496
497
504
509
1287
1289
1291
1293
1296* 1303
194
157
225
227
303
310
431«
428
444
446
508« 519
503
521
24# 564
739
959
973
1163
170
141
288* 290
291
315
920
1433
1538
1542
1686
674#
665
30#
17#
30
673
674
605« 924
598
1276
1265
1286*
1024# ia29
1134
1461«
626« 1107
1247
1253
1266
1304* 1324
1328
1124
U53#
645*
637

SCRATC
SEARCH
SETEOF
SF

SIZE
START
SV

SWAP
SkiAPTl

8WAPT2
SWAPT3
8WAPT4
SWAPS
SWPFLD
SWPLUP
8WPNUM
TCRLF
TEMP

TEMP2

TTYO
TTVOUT
TWDFLD
TWD2FL
TXTARE
TYPE
UF

USEDSK
VERS
VER80N
WHAT
WHUPS
WRSLOK
WSNAME
WSSAVE
XMOVE
XNAME

XTUHI

1444

S(>4«

960

1437

1464* 1471

411

450

470

701

93;

94Q

1670
964
1432
1010

1020
1460
1017

1031
1540
1033

1046* 1058

M41

1143

1037

1039

1041

1070

1035
1036
1011
1059*

1074
1061
1040
1062

1078
1076
1064
1063

1079
1071
1065

1080
1072
1066

1073
1065

1084

186
323
424
523
604
810
1198
1567
476
943

239
326
430
524
636
819
1203

257
330
437
579
649
822
1206

260
336
459
586
656
977
1214

263
344
593
663
1106
1389

265
345
462
594
687
1113
1392

531
946

703
947

780
948

789
1110

792
1115

448
510

476
515

487
516

486
532

316*

321

752

1436
363

1477
534

1506
605

312*
179
262
417
507
603
756
1187
1566
156
935
1573

461

1274(»

447

1329

644

xxxxsv
X10
Xll

X12
X13
xia
X15
xi«.

XIT

ZEROTX
^L0133
*L0134
*L0135
^L0136
4.1.0137

xL0l«0

^0141
^U0l«2
^L0ia3
^U0l««
4.L0145

^U0ia6
^U0l«7
^L0150
^1.0151
.^U0152
^1.0153
j.LaiS4

^L0155

^L0156
^L0157
^U0160
^L01bl
^L0lfe2

xU0l63
^L0U'»
^L0lfe5

1511
3l»
1414
32*
33*
34«

3b«
37i
3e«
814
1213

1217
1440

978
97b
934
924
878
729
723
719
718
702
b35
Sb8
Sb4
540
1376
53b
533
490
457
449
398
390
375

1032

j,L0172

175
lb9
lb3
157
141
117

^L1377
^L1576
^L1577
^L1773
^11774
^Ua377
j.Ua563
^L25fc4
^L25fe5

^L25bb

1233
1420

1237
1522

1239
1535

1241

15b9
1568

1571
1570

1572

1579

1580

958
1183
1020

9b5
143b
1031

1243

12a5

1180
1506
1141

1410

1422

1143

1179

1366

920

1433

1536

1542

141i

818«

1201
1123
1107
984

371
3bb

^L137fe

1521
1231
1416

35(»

^L0166
*L0167
^L0170
^L017l
*L0173
^L0174
*U0175
*L0l7b
^L0177

lblb#
1228
141b
1508
1558
15b0

293
221

bbB
bS2
731

720
87b
874
1102
130fc

1292
1290
1288

llbb
734
1104
1101
1100

1362

938

944

1443
72b
739
849
1432
b07

749
959
957
1460
1435

751

1200

1205

505
743
481
45S

5b5

922
748
741
215
207
737
194
I7(fl

973
964
1540
1461

960

1437

377
314

599
362

686
634

1105
b4b

225
363

227
534

752
605

644

458

12567
L2577
12777
L3164
LllfcS
L3l«.fe

L3167
L3170
1.3175

L3176

12S6
1227
1412
1575
1574
1565
1559
1557
149S
149S

1514

1527

PAL6-V8

/OS/a BASIC COMPILES
I

/OS/8 BASIC COMPILER

/0EC-S8-UBASA-A-LA

iB/JB/ra

/COPYRIGHT, 1972

/DIGITAL EQUIPMENT COKPOHATION
/MAYNARO, MASSACHUSETTS 01754

B
9

/AUGUST 19,

12
13
la
15
lb
17

1972

/HANK MAURER
/

/
/
/

010(9

VERSON»100

PAfie

PAL8-V8

S/8 BASIC COMPILEK
18
19
20
21

22
23
24
2S
26
27
2B
29
30
31

32
33
34
35
36
37
36
39
40
41
42
43
44
4S
46
47
48
49
50
51
52
53
54
55
56
57
58
59

60
61

62
63
64
65
66
67
66
69
70
71

00006
00007
00010
00011
00012
00013
00014
00015
00016
00017
00020
00021
00022
00023
00024
00025
00026
00027
00030
00031
00032
00033
00034
00035
00036
00037
00040

0006
6635
010(9

7603
7325
7577
7773
1133
7117
2571
0000
0000
7774
0000
0000
0000
000)3

0000
0000
0000
0000
0000
0000
0003
0000
0001
0000
7 37/

00041
00042
00043
00044
00045
00046
00047
00050
00051
00052
00053
00054
00055
00056
00057
00060
00061

7377
7737
7737
0000
0000
0000
0000
0000'
0000
0000
0000
0000
0000
0000
0000
0000
0000

00062
00063
00064
00065

0000
0000
0000
0000

10/30/72

PAGE

XABORT, ABORT
VERSOU
VEHS,
INFO-1
X10,
NAMLST-1
Xll,
X12,
INFO-5
BOSINFO-1
X13,
OSTACK, STACKO-l
STACKA-1
STACK,
FREE-1
NEXT,
CHRPTR,
NCMARS,
-4
TEMP,
TEMP2,
oecPT,
NDIGIT,
EXPON,
TYPE,
SYMBOL,
LEFT,
OLDOPi
NEMOP,
TMPCNT,
TMPUVL, 3
STMPCT,
STMPLV, 1
STPTR,
VARCNT, -401
-401
SVCNT,
-41
ACNT,
-41
SACNT,
LOCTRH,
LOCTRL,
BLOCK,
hlFLO,
BRTS,
DLSIZE,
ABOHTX,
LINEH,
LINEL,
MODE,
TYPEl,
SYMBLl,
OLOSTK,
ARGCNT,
PCRLF,
OACNT,
FORJMP,
NOSN,
COLON,
JAROND,
IFNREG,
SSREGl,
SSREG2,

/AODR OF A90HT MOUTINE
/VERSION NUMBER
/AUTO INDEX REGISTERS

/OPERAND STACK POINTER
/GENERAL STACK POINTER
/NEXT FREE LOCATION
/INPUT BUFFER POINTER
/SIZE OF INPUT LINE
/SET 1 IF ,
/NUM DIGITS RIGHT OF .
/EXPONENT FOR NUM CONV
/TYPE OF CURRENT OPERAND
/SYMBOL NUMBER OF CUR, OPERAND
/LEFT SIDE SWITCH
/OLD OPERATOR
/NEW OPERATOR
/TEMP COUNTER
/TEMP LEVEL
/TEMP COUNT (STRINGS)
/fEMP LEVEL (STRINGS)
/POINTER TO S.T, ENTRY
/NUMBER OF POSSIBLE NUMERIC
/VARIABLES, LITERALS, AND TEMPS
/SAME FOR STRING WARS
/ARRAY COUNTER
/STRING ARRAY COUNTER
/HIGH ORDER LOCATION COUNTER
"
"
/LOW ORDER
/START BLOCK OF TEMP FILE
/HIGHEST CORE FIELD
/START OF BRTS.SV
/NEG. SIZE OF DATA LIST
/START OF EDITOR
/LINE NUMBER CHIGH)
/LINE NUMBER (LOW)
/INTERPRETER MODE
/TYPE AFTER JMS GETAl
/SYM # AFTER JMS GETAl
/STACK SAVER F0« DEF
/ARG COUNTER FOR DEF
/CR SWITCH FOR PRINT &TMT
/ARG COUNT FOR UOEF STMT
/FOR LOOP JUMP INSTR
/STMT NUMBER PRESENT SWITCH
/! SWITCH FOR GETFN ROUTINE
/END OF OEF ADOR GOES HgHfc (INOI»eCTLY)
/CONTENTS OF IFN REG
/EXECUTION TIME CONTENTS
/OF THE SS REGISTORS

#
PAL8-V8

/OS/8 BASIC COMPllEK
73
74
75
76
77
78
79
8e
81

B2
63
84
as
86
87
88
89
90
91

92
93
94
95
96
97
98
99
100
101

102
103
104
105
106
107
108
109
110

00066
00067
00070
00071
00072
00073
00074
00075
00076
00077
00100
00101
00102
00103
00104
00105
00106
00107
00110

00112
00113
00114
00115
00116
00117
00120
00121
00122
00123
001S4
00125
00126
00127
00130
00131
00132
00133

7117
0000
0000
6211
5470
5706
0547
6736
5542
3632
6446
4021
4035
4010
4027
2600
3400
0201
0205
3517
4303
6S55
5600
4102
2400
2200
411/
4062
4052
4073
4251
4000
5000
5455
3600
3616
3336
0400

00134

0000

00135

0000

00136
00137
00140
00141
00142
00143

0000
0000
0000
0000
0000
0000

00U1

111

112
113
114
lis
116
117
118
119
120
121

10/3(0/72

PAGE 2-1

STKLVt, STACKA-l
FINDEX,
8ETFLD,
COF
10
LUFLO,
JMP I
SETFLU
QERM3G, ERMSG
QLODSN, LOOSN
QCHKWO, CHKWD
QM008ET ,MOOSET
SNUM
08NUM,
OOUTWRD ,OUThRO
QSAvECP ,SAVECP
GETC
QGETC,
QGETCMB ,GETCW8
QHESTCP ,RESTCP
EXPR
OEXPR,
OOUTOPR fOUTOfR
UNEWLIN ,NEWLIN
QREMARK ,R£MARK
QGETAl, GETAl
QUOAOSS ,LQADSS
QCHECKC jCHECKC
OGETNAM ,GETNAM
OCOMARP ,COMARP
QLOOKUP ,tOOKUP
QLUKUP2 ,LUKUP2
LOAD
QLOADr
PUSH
QPUSH,
POP
OPOP,
QPUSHO, PUSHO
QSAVAC, SAVAC
QBACKl, BACKl
ONUMBER , NUMBER
OSTRING .STRING
QLETTER ,LETTER
0DI6IT, DIGIT
QNORF.GS ,NORtGS
400
0400,
NAMEl,
M0R01>
NAME2|
M0R02,
NAMES,
W0RD3,

/STACK BASE LEVEL
/FOR LOOP INDEX
/FIELD CHANGE RTME HD« LUKUP5
/FIELD OF ENTRY FOR LuKuPii

ACQ,
OPl,
0P2,
0P3,
OPO,

/FAC OVERFLOW WO
/4 WORD ARG FOR 'NUMBbR"

/SUaROUTiNc POINTERS

/VARIABLE OH FUNCT NAME
/3 WORD LITERAL BUFFER

/OS/8 BASIC COMPILEK
132
123
12a
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
14S
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169

PAL8-V6

7604

/INFO
/INFO+1
/INFO+2
/1NF0*3
/INF0*4
/INFO+5
/1NF0*6
/INFO+7
/INFO+1
/INF0*1
/INFO+1
/INFO+1
/INF0*1
/INF0*1
/INFn*2

lB/30/72

PAGE

IMF0»7 604
/INFORMATION ARtA
START ING BLOCK +1 OF BASIC, SV
START ING BLOCK +1 OF BCOMP.SV
START ING BLOCK
OF dLOAO.SV
START ING BLOCK *1 OF BRTS.SV
START ING BLOCK +1 OF BASIC, AF
START ING BLOCK
OF BASIC, SF
START ING BLOCK +1 OF BASIC. FF
START ING BLOCK
OF BASIC, UF
START ING BLOCK OF BASIC, TM
SIZE IN BLOCK S OF BASIC, TM
INPUT HANDLER ENTRY ADDRESS
SIZE AND DEVI CE NUMBER OF INPUT FILE
START ING BLOC K OF INPUT FILE
THROU GH
NAME OF WORKSPACE

!
l

/
/

0120
7120
0060

B0SINF0»7774
EDTSIZ«1600
EOTB6NB3012
ERMSG2»1712
EOST»7570
INDEVHa4400
LINE>7000
LINMAX»120
STACKAa7120
STAKSZI60

7200

INBUFB72O0

7774

ibm
3012
1712
7570
4400
700ia

/BOS PARAMETER AREA
/SIZE OF BASIC, SV
/RESTART FOR EDITOR
/POST PROCESSOR Ef)ROR SWITCH
/UPPER LIMIT FOR SYMBOL TABLE
/INPUT DEVICE HANDLER
/LINE BUFFER
/MAXIMUM BASIC STMT
/MAIN STACK
/SIZE OF MAIN STACK
/OPERAND STACK DEFINED IN-LINE
/INPUT BUFFER

FIELD ONE STUFF
0000
040ld'

103b
2132
2332
2532
2556
2560
2562
2564
2566
2570
2572

OUBUF»
/OUTPUT BUFFER
VARST" 400
/VARIABLE SYMBOL TABLE
SVARST «VARST* 436/STRING VAR SYMBOL TABLE
ARAYST SVARST 1074/ARRAY SYMBOL TABLE
SARYST ARAYST 200/STRING ARRAY SYMBOL TABLE
SNUMSa SARYST+ 200/STMT NUMBER BUCKETS
TEMPSs 8NUMSt2 4 /NUMERIC TEMP BUCKET
STEMPS TEMPS+ 2 /STRING TEMP BUCKET
LITRL* STEMPS* 2 /NUMERIC LITERAL BUCKET
SLITRL LITRL* 2 /STRING LITERAL BUCKET
DATLST SLITRL *2 /DATA LIST
FUNC7N DATLST
/FUNCTION LIST
FREE»F UNCTN+2
/START OF FREE CORE

PAUe-VS

/QS/8 BASIC COMPItEW
170

178
173
I7a
175
176
177
178
179
160
181
182
183
18a
185

00012
04012

1000
1400
2000
2400
3000
3400
4000
4400
5400
6000

187
188
189
190
191

192
193
19«
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
2ia
215
216
217
218
219
22IS

221
d?.i

223
22a

INTEHPRETEH OPCODES
MEMOHY HEFERENCfc SET
FAOD»0000
FSUB»0400
FMPY»1000
FOIV»1400
FLDA-2000
FSTA«2400
FISUB>3e00
FIDIVS3400
LSS1>4000
LSS2>4400
JEOFi5a00
LOAOSN«6000

18fc

JOC CLASS

JSUBI5000
JUMP«500l
JGE«5002
JNE»5003
JGT»5004
JUT«5005
JEO>5006
JLE»50a7
JFDR»5010

5000
5001
5002
5003
5004
5005
5006
5007
50112
/

6400
6440
6500
6540
6600
6640
6700
6740

ARRAY ClASS
AISUB«6400
AFAODi6aa0
AFSUB«6500
AFMPV»65a0
AFDIVB6600
AFLDA«66a0
AFSTA«6700
AIOIVS6740

00012

0400
1000
2000
2400
6400
64412

6500
6640
6700

STRING CLASS
SCON«FADO
SCOMP«FSUB
SREAO»FMPY
SLOAOaFLOA
SSTORE'FSTA
SACONaAISUB
SACOMPIAFAOD
SAREAO'AFSUa
SALOAD»AFLDA
SASTORiAFSTA

7401
7421
7441
7461
7414

lP)/3e/75

OPERATE CLASS
SETJF»740l
RN00a7421
ST0P«744l
SRDL«7461
CHN»74ia

PAGE

OS/8 BA SIC COMPILEK
225
226
227
228
229
230
231
232
233
23<l

235
236
237
238
239
240
ZHi
242
243
zan
245
246
247
248

PAL8-V8

PAGE a-1

NKDL»75ei

7521
7434
7474
7454
7534
7514
7501
7402
7403
7404
7405
7406
7407
7410
7411
7412
7413
7561
7541
7416
7417

RET8740a
RESTiraes
LSS1ACI7406
LSS2AC"7407
FeSC»7410
REA0I7411
WHITE»7412
8WHITE»7413
SM0DE»7561
NM0DE»7541
FUMC1«7416
FUNC2a7417

740k)

FUNC3«740BI

7415

FUNC4«741b
USE»7540

754*3

10/30/72

CL0SEFSI7434
0PfeN4V«7474

0PENAF»7454
0PENNV«7534
0PENNF«7514
CLRFN»7501
FILtNOi7402
FNEG«74ii3

PALB-V8

/08/8 BASIC COMPILEK
249
250
251

252
253
254
255
256
257
25B
259
260
261

262
263
264
265
266
267
26B
269
270
271
272
273
274
275
276
277
278
279
280
281
282
263
284
285
286
287
288
289
290
291

292
293
294
295
296
297
298
299
300
301
302
303

\id/ie/7i

PAGE

ASSEMBLE tINE
/ORG PAST BIGGEST STRING LIT
*WOROl* 45
/ANY CHARS LEFT 7
OGETC
NEMlIN, JMS I
REMARK
JMP
/NO, LINE ENDED OK
OERMSG /EXTRA CHARACTERS
JMS I
3003
/CLEAR STMT NUMBER Si^ITCH
REMARK, OCA
NOSN
/RESET TEMP LEVELS
TMPLVL
TAD
TMPCNT /FDR NUMERIC
OCA
/AND STRING
TAD
STMPLV
STMPCT /TEMPORARIES
OCA
CSTACKO -1
TAD
/RESET STACK POINTERS
OSTACK
DCA
/(CHANGED 8Y FOR LOOPSl
TAD
STKLVL
STACK
OCA
TAO
CLINE-l /GET THE NEXT LINE
/

00201
00202
00203
00204
00205
00206
00207
00210
00211
00212
00213
00214
00215
00216
00217
00220
00221
00222
00223
00224
00225
00226
00227
00230
00231
00232
00233
00234
00235
00236
00237
00240
00241
00242
00243
00244
00245
00246
00247
00250
00251
00252
00253
00254
00255
00256
00257
00260
00261
00262
00263
00264
00265

0201
450£
520S
4473
3003
3062
1034
3033
1036
3035
1377
3014
1066
3015
1376
3010
137b
3021
4774*
5235
3410
2021
5222
4473
1424
4774*
5235
7200
5231
1010
7040
1376
3020
1376
3017
1045
7421
733K1

4477
5267
2062
4476
4532
1134
3053
1135
3054
4070
1422
1044
3422
2022
]045
3422

DCA
TAO
OCA
GETLlN, JMS
JMP
DCA

)(10

ISZ
JMP
JMS 1
1424

GOTCR,

JMS
JMP
CLA
JMP
TAO
CMA
TAD
DCA
TAD
OCA
TAD
T421
CLA CLL
JMS I
JMP
ISZ
JMS
JMS
TAD
DCA
TAO
DCA
JMS
TAO
TAO
OCA
ISZ
TAD
OCA

I
I

C-LINMA X/MAX SIZE
TEMP
ICHAR
/GET NEXT
GOTCR
/ CR
/PUT INTO
)(10
/9UMP MAX
TEMP
SETLIN
QERMSG /LINE TOO
ICHAR
GOTCR
.-3
X10

CHAR
LINE BUFFER

COUNTER
LONG

/SKIP REST OF LINE

/COMPUTE SIZE

CLlNE-1 /OF LINE
NCMARS
(LINE-l /SETUP LINE POINTER
CHRPTR
LOCTRL ,/PUT LOCATION COUNTER
/INTO MQ /
CML R
/ALLOW DEFINITION
QSNUM
/GET THE STATEMENT NUMBER
NOSNUM /NO STMT NUMBER ON THIS LINE
/SET STMT NUMBER PRESENT
NOSN
QMODSET /IN N MODE AT ALL LABELS
ONOREGS /FORGET REG CONTENTS
/SAVE NEW LINE NUMBER
WORDI
LINEH
W0R02
LINEL
8ETFL0 /GET TO FIELD OF ENTRY
TEMP2
/GET DEFINEO/REFNCEO BITS
LOCTRH /ADO IN HIGH ORDER LOCAriQN CTH
TEMP2
/PUT IT AWAY
TEMP2
LOCTRL /NOW PUT IN LOW ORDER LOCATltlN
TEMP2

PAL6-V8

/OS/a BASIC COMPIUEH
304
305
306
307
308
309
310
311
312
313
3ia
315
316
317
316
319
320
321
322
323
324
325
326
327

Id0266

00267
00270
00271
00272
00273
00274
00275
00276
00277
00300
00301
00302
00303
00304
00305
00306
00307
00310
00311
00312
00313
00314
00315

6201
4773' NQSNUM,
1372
3010
4501
KWtOOP,
1410
7500
5314
3021
4502
5304
1021
765i9

5273
4504
1410
7710
5305
1410
7440
5276
5316
3021
5421

NOGOOO,

GOTKWi

10/3KI/72

PAGE S-1

CDF
JMS
KBOCHK /CHtCK FOR "C OH *D
(KE¥«iHD-l
TAD
DCA
/SET UP FOR K£Yi«iOHD SfcARCM
X10
JMS I
iJSAVECP /SAVE CHAR POS
TAD I
X10
/GET NEXT CHAR OF KEYrtORD
SWA
GOTKW
JMP
/OK, THIS IS }»l KW
OCA
TEMP
JMS I
QGETC
/GET NEXT ChAH I^RDM STMT
JMP
N0600D /THIS ISN'T IT
TAD
TEMP
/IS THIS CHAR OK ?
SNA CLA
JMP
KWLOOP /YES, CONTINUE LOOKING
QRESTCP /BACK TO START OF STMT
JMS I
TAD I
/SKIP OVER REST OF KEYi^iOHD
X10
SPA CLA
JMP
.-2
X10
TAD I
/IS THIS END OF LIST ?
SZA
KWL00P«3/ND, KEEP LOOKING
JMP
JMP
/TREAT AS LET STMT
LET
DCA
TEMP
/SAVE ADDR OF ROUTINE
JMP
TEMP
/GO PROCESS THE STMT

PALB-VS

os/e BASIC COMPILE^
326
329
330
331
332
333
334
335
336
337
338
339
340
3«l
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

10/30/72

PAUE

LET STATEMENT PROCESSOR
JMS I
QLODSN /LOAD THE STMT NUMBER
LET,
/COMPILE LEFT SIDE
CLL CML RAR
JMS 1
QEXPR
/GET EXPRESSION
REMARK
JMP
QCHECKC /LOOK FOR s
JMS I
-75
JMP
BAOLET /BAD IF MISSING
QEXPR
JMS I
/GET RIGHT SIDE
JMP
REMARK
CUA CMA
/GET TVPE OF
TAD
OSTACK /RIGHT SIDE
DCA
TEMP
/OF EQUAL SIGN
TAO I
TEMP
/SO THAT WE GENERATE
SPA CLA
/THE CORRECT STORE
CLL CMA RAL
TAO
(ASSIGN -1
JMS I
QOUTOPR /GENERATE STORE
JMP
NEWLIN
BADLET, JMS I
QERMSG /BAD LET STMT
/

00316
00317
00320
00321
00322
00323
00324
00325
00326
00327
00330
00331
00332
00333
00334
00335
00336
00337
00340
00341
00342
00343
00344
00345
00346
00347
00350
00351
00352
00353
00354
0O35S
00356
00357
00360
00361
00362
00363
00364

4474
7130
4505
5205
4513
7703
5340
4505
5205
7240
1014
3021
1421

7710
7144
1371
4S06
5201
4473
1423
5205
1370
4500
4767'
4766
1000
0400
0000
5406
1473
3765'
5750
0050
0000
5762
5762
0060
0001
3543

142]

REMARK

JMP
TAD
JMS
JMS
JMS

(STOP
/OUTPUT STOP OPCODE
QOUTMKD
OUOUMP /DUMP BUFFER
/READ IN POST PkOCESSOR
I
(7607
/EIGHT PAGES
100C
400
/FROM 400
POSTX,
/FROM THIS BLOCK
LDRBLK,
XABORT
JMP I
TAD I
QERMSG /SET POST PROCESSOR ERR
OCA
ERMS62
POSTX
JMP I
/START IT UP
STAR,
50»0f XM JLIXMUL
END,

)

UPAROW, 60»UEXPRTN-1

/OS/6 BASIC COMPILEH
36B
3<.9

370
371
372
373
37tt

375
376
377
378
379
360
361
362
363
38a
385
386
387
368
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
406
409
410
411
412
413
414
415
416
417
418
419
420
421
422

00365
00366
00367
00370
00371
00372
00373
00374
00375
00376
00377
00400
00401
00402
00403
00404
00405
00406
00407
00410
00411
00412
00413
00414
00415
00416
00417
00420
00421
00422
00423
00424
00425
00426
00427
00430
00431
00432
00433
00434
00435
00436
00437
00440
00441
00442
00443
00444
00445
00446
00447
00450
00451

PALB-V8

10/31^/72

PAGE

REST ORE, PRI SiT, AND INPUT PROCESSORS
/
1712
760/
6471
7441
6066
6242
2346
6600
7660
6777
1133
PAG(
0400
4474
JMS I
/OUTPUT STMT NUM
INPUT,
(JLOOSN
4777'
GETFN
JMS
/LOOK FOR #<FILE NUM EXPR>:
/PROCESS INPUT STMT
7130
INPUTL, cuu CML RAR
JMS
QEXPR
4505
/GET EXPR
JMP
QNEMARK
5510
JMS
QGETAl
/GET TOP OF STACK
4511
TAD
1056
TYPEl
/LOOK AT THE TYPE
SPA CLA
7710
JMP
RSTRNli
/HEAD STRING
5231
JMS
4476
QMODSET /SET MODE
TAD
CWEAD
/OUTPUT READ COMMAND
1376
JMS
QOUTMRD
4500
/IS IT OIMENSIONEO 7
7132
CLL CML RTR
AND
TYPEl
0056
7650
SNA CLA
JMP
/NO
5222
. + 3
JMS
OLOAOSS /SET UP SS REGS
4SU
TAD
(AF8TA- FSTA
1375
TAD
Cf-STA
/USE SCALAR STORE
1374
FININP, TAD
/PLUS SYMaOL NUMBER
SYMBLl
1057
JMS
OOUTWRO /OUTPUT INSTR
4500
QCHECKC /LOOK FOR ,
JMS
4513
-54
7724
5507
JMP
QNEWLIN /END OF INPUT
JMP
INPUTL /YES, LOOP
5202
/SET MODE
7130 R5TKNG, CLL CML RAR
447b
JMS
QMOOStT /TO STRING
/SUBSCRIPTED 1
7132
CLL CML RTR
AND
0056
TYPEl
SNA CL*
7650
JMP
/NO
5241
.3
JMS
4512
QLOADSS /LOAD SS REG
TAD
(SAREAD-•SREAD
1373
1372
TAD
(SREAD /STRING READ
JMP
FININP /USE SOME COMMON CODE
5223
4474 PRINT,
JMS
QLOOSN /OUTPUT STMT NUM
4777*
JMS
GETFN
/GET FILE NUMBER
3505
OCA
QEXPR
/USE ENTRY AS Si^ITCH
PCHLF
3062 PRINTL, DCA
/CLEAR THE FLAG
JMS
4502
QGETC
/LOOK FOR A CHAR
5334
JMP
PRTEND /NONE LEFT, END PRINT
TAD
1371
/> ?
C-73

PAL8-V8

/OS/8 BASIC COMPILED
433
aza
aas
a26
437
426
429
430
431
432
433
434
455
436
437
438
439
440
441

442
443
444
445
446
447
44S
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
46a
465
466
467
468
469
470
471
472
473
474
475
476
477

00452
00453
00454
00455
00456
00457
00460
00461
00462
00463
0046a
00465
00466
00467
00470
00471
00472
00473
00474
00475
00476
00477
00500
00501
00502
00503
00S04
00505
00506
00507
00510
00511
00512
00513
00514
00515
00516
00517
00520
00521
00522
00523
00524
00525
00526
00527
00530
00531
00532
00533
00534
00535
£0536
00537
00540

7450
5261
1370
7640
5264
1367
4500
3505
7201
5246
1505
7640
5507
4525
4501
4475
313d
5314
1366
3347
4503
5510
4520
1056
7700
5307
447J
0622
5510
4513
7727
5304
1347
5332
4504
4475
5561
5322
1365
5275
4504
4505
5510
4520
7130
0056
7106
1364
4500
5246
1062
7640
5507
1363
4500

NOCR,

TABPNT,

PFCAULi

BADPF,

TRYPNT,

PEXP,

PUTl,

PRTEND,

PUT2,

10/310/72

PAGE 7-1

SNA
JMP
NOCK
/YfeS, DON'T SPACE OUTPUT
(73-54
TAO
/, 7
SZA CLA
JMP
TABPNT
/LOOK FOR TAB OK PNT
TAD
CFUNC3+20
JMS I
OOUTWRD /OUTPUT FUNC3-f20 (COMMA)
QEXPR
OCA I
/CLtAR THE SWITCH
/SET NO CRLF FLAG
CLA lAC
JMP
PPINTL
TAO I
QEXPR
/WAS LAST THING AN EXPK ?
SZA CLA
JMP I
QNEWLIN /YES, CAN'T HAVE TWO IN A KOW
JMS I
OBACKl
/PUT THAT CHAR 9ACK
JMS 1
QSAVECP /SAVE CHAR POS
QCHRWD /LOOK FOR "TAB("
JMS I
WTA8
JMP
TRYPNT /NO TAB
TAD
{FUNC3+100
DCA
PRFUN
/SAVE PRINT FUNCTION
JMS I
QEXPR
/GET ARG
JMP I
QREMARK
JMS I
QLOAO
/LOAD AKG
TAO
TYPEl
/MUST BE NUMERIC
8MA CLA
JMP
.4
/OK, IT IS
QERM3G /PRINT ERROR
JMS I
0622
/BAD FUNCTION REFERENCE
JMP I
UREMARK
JMS I
QCHECKC /LOOK FOR )
-51
JMP
BADPF
/BAD FUN REFERENCE
TAD
PRFUN
/OUTPUT FUNCTION CALL
JMP
PUTl
JMS I
9RESTCP /RESTORE CHAR POS
JMS I
OCHKWD /LOOK FOR PNT(
WPNT
JMP
PEXP
/NO
TAO
(FUNC3-C120
JMP
PFCALL
/GO DO FUN CALL
JMS I
OSESTCP /RESTORE CHAR POS
JMS I
QEXPR
/GET EXPR TO BE PRINTED
JMP I
QREMA!<K
JMS I
QLOAO
/PUT THING INTO FAC (OR SAC)
CLL CML RAR
AND
TYPEl
/GET TYPE BIT
CLL RTL
/INTO AC 11
TAO
(WRITE
/SWHITE»WRITE*1
JMS 1
QOUTWRO
JMP
PRINTL
TAD
PCRLF
/DID PRINT END WITH
SZA CLA
/, OR t
JMP I
QNEWLIN /YES, NO CR LF
TAO
(FUNC3-!-40
JMS I
QOUTWRD /CALL TO CRLF ROUTINE

/OS/8 BASIC COMPILEH
47B
479
4S0
4S1
462
4B3

484
485
486
487
488
489
490
491

492
493
494

00541
00542
00543
00544
00545
00546
00547
00550
00551
00552
00553
00554
00555
00556
00557
00560

PAL8-V8

QNEWUIN
JMP I
5507
(JLODSN
4474 RESTOR, JMS I
CtA lAC
7201
GETFM
JMS
4777'
CREST
TAD
1362
PUT2
JMP
53«k)
PRFUN,
00011)
UOOSN,
NOSN
TAD
1062
SNA CLA
765a
JMP I
LOOSN
5747
TAD
MORDl
1134
(LOADSN
TAD
1361
QOUTWRO
JMS I
450ld
TAD
W0RD2
1135
QOUTwRO
JMS I
4500
JMP I
LODSN
5747

10/30/7a

PAGE 7-2

/ENO OF PHInT
/OUTPUT LOAD STMT NUMBEH
/NO COLON NEEDED
/LOAD FILE REG
/OUTPUT HESTOHE OP

/OUTPUT STMT NUMBER INTO CQDF
/ANY STMT NUMBER 7
JUST RETURN
/NOW OUTPUT "LOAD STMT NUM REG"
/NO,

/OS/8 BASIC COMPILER
495
49e>

497
498
499
500
501
502
503
504
505
506
50T
508
509
510
511
518
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
546
549

PA1.8-V8
/

00561
00562
00563
00564
00565
00566
00567
00570
00571
00572
00573
00574
00575
00576
00577

l0/30/?a

PAGE

DIM PROCESSOR

6000
740ii

7440
7412
7520
7500
7420
0017
7705
1000
5500
2400
4300
7411
2111
0600
4514

PAGE
JMS I
JMP
5301
1026
TAO
7006
RTL
SMA CLA
7700
7420
SNL
JMP
5301
4777'
JMS
TAD
1025
OCA
3342
4515
JMS I
JMP
5301
JMP
5224
4267
JMS
JMP
5232
7130
CLL CML
DCA
3026
JMS I
4516
CDF
6211
JMP
5257
4777' TWOOIM, JMS
JMS I
4513
-51
7727
JMP
5301
4267
JMS
TAD
1376
CHKDIM, TAD
1376
OCA
3021
JMS I
4516
6211
COF
1437
TAD 1
AND
0376
SNA
7450
5247
JMP
7500
SMA
1021
TAD
7640
SZA CLA
JMP
5301
DIM,

QGETNAM /GET VAR NAME
OIMERR
/CHECK TYPE
TYPE
/MOVE BITS TO BE TESTED
/IF FUNC BIT SET THEN ERROR
/IF DIM BIT NOT SET THEN ERROR
DIMERR /NO DIMENSIONS
SMLNUM /GET DIMENSION
EXPON
/SAVE IT
OIMl

QCOMARP
DIMERR
TWODIM
CHKSOM
CHKOIM
RAR
TYPE
QLOOKUP

)

/NEITHER IS BAD
/, THERE'S ANOTHER OIMENSION
/CHECK SIZE IF STRING
/NUMERIC VECTOR, CHECK PHEV RtF
/THIS WAS A STRING SIZE DIM
/PERFORM THE SPECIAL CASE

/OF NOT CHECKING PREVIOUS REFS
10
FINOIM
SMLNUM /GET SECOND
OCHECKC /LOOK FOR 3

DIMERR
CHKSOM
(7000
C7000
TEMP

/CHECK SIZE IF STRING ARRAY
/NUMERIC ARRAY
/GET NUMBER OF DIMS

QLOOKUP /FIND ST ENTRY
10

STPTR
C7000

UNREFD

/LOOK AT OIM BITS
/PREVIOUSLY REFERENCED

/NO
/IF MINUS,

TEMP

CAUSE ERROR
/COMPARE NUMBER

OIMERR

/NUMBER OF OIMS DON'T MATCH

/OS/8 BASIC COMPILEH
550
551

552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572

573
574
575
576
577
578
579

00646
00647
00650
00651
00652
00653
00654
00655
00656
00657
00660
00661
00662
00663
00664
00665
00666
00667
00670
00671
00672
00673
00674
00675
00676
00677
00700
00701
00702
00703

3021
7130
1021
7041
1437
3437
2037
1342
3437
2037
1025
3437
6201
4513
7724
5507
5200
0000
1026
7700
5667
2267
1025
7100
1375
7620
5667
4473
0411
5510

PAL8-V8
DCA
TEMP
UNREFO, CUL CML RAR
TAD
TEMP
CIA
TAD I
STPTR
DCA I
STPTR
ISZ
STPTR
TAD
OIMl
DCA I
STPTR
STPTR
FINDIM, ISZ
TAD
EXPON
OCA I
STPTR
CDF
JMS I
QCHECKC
-54
JMP I
QNEWLIN
JMP
DIM
CHKSDM,
TAD
TYPE
SMA CLA
ChKSOM
JMP I
ISZ
CHKSDM
TAD
EXPON
CLL
TAD
C-lll
SNL CLA
JMP I
CHKSOM
DIMERR, JMS I
QERMSG
0411
QREMARK
JMP I

10/30/72

PAGE 8-1

/ZERO TEMP
/PUT IN DIMENSIONED HIT
/AND NUMBER OF DIMENSIONS
/NEGATE WHOUE MESS C4000»-a00iJ)
/TOGETHER WITH SVM NUMBER
/NOW FIRST 0IMENS^O^ CIF 2)
/NOW SECOND

/LOOK FOR

CIF 2,

OTHERWISE FIRST)

/NONE, ASSUME END OF DIM
/GET NEXT ELEMENT
/CHECK SIZE OF STRINGS
/WAS THIS A STRING DIM ?
/NO, RETURN IMMEDIATE
/YES, SKIP ON RETURN
/SIZE MUST 3E < 73

SIZE « 73
/GIVE ERROR
/OK,

/ABORT STMT

PALB-V8

OS/8 BASIC COMPILES
560
581
582
583
S84
585
586
587
588
589
590
591
592
593
59a
595
596
597
598
599
600
601
602
603
600
605
606
607
608
609
610

4514
5362
4516
1026
7710
5362
4476
1374
1015
7710
5362
4522
3021
4522
3342
4522
1370
4500
4522
3067

00742
00743
00744
00745
00746
00747
00750
00751
00752
00753
007S4
00755
00756
00757
00760
00761
00762
00763
00764
00765
00766
00767
00770

7402
7130
1044
3421
2021
1045
3421
6201
1013
3066
4532
1027
7041
1067
7650
5507
4473
1606
5510
0040
0001
3534
2000

1067
4500
1342
037J
7106
1372
4500
7144
1021

4500

6U
612
613
614
615
616
617
618
619
620
621
622
623
62a
625
626
627
628
629
630
631
632
633
63a

PAGE

NEXT PROCESSOR
QGETMAM /GET INDEX VARIABLE
JMS
NEXTX,
9ADNXT
JMP
QUOOKUP
JMS
/MUST BE NUMERIC
TYPE
TAO
SPA CUA
JMP
BADNXT /IT ISN'T
QMOOSET /N MODE
JMS
TAD
(-STACKA-3
NEXTL,
/ANY FOR'S LEFT ?
STACK
TAD
/(OK IF STACKA ABOVE ap!00)
SPA CLA
JMP
BADNXT /NO
JMS
QPOP
/GET LABEL ADDR
TEMP
OCA
JMS
QPOP
/GET LABEL FIELD
DCA
LUPFLD
QPOP
JMS
/GET STEP VAR
XLOAO
/LOAD IT
TAO
OOUTWRO
JMS
QPOP
/GET INDEX VAR
JMS
FINOEX
OCA
FINOEX
/ADD IT TO STEP CMDDs0)
TAD
JMS
QOUTWSO
TAD
LUPFLD /CREATE JUMP TO LOOP
AND
C70
CIL RTL
(JUMP
TAD
OOUTWRO
JMS
/GET LABEL DEFINITION ADOR
CLL CMA RAL
TEMP
TAD
JMS
OOUTWRO /OUTPUT IT AS LOW PART OF JUMP
OIMl,
LUPPLO, HLT
/SET LABEL DEFINED BIT
CLU CML RAK
LOCTRH /DEFINE END OF LOOP LABEL
TAO
DCA
TEMP
TEMP
ISZ
TAD
LOCTRL
DCA
TEMP
CDF
TAD
/BACK OFF STACK LEVfcL
STACK
DCA
5TKLVL
JMS
QNOREGS /FORGET REGS
TAD
SYMBOL /IS THIS THE RIGHT NEXT 7
CIA
TAD
FINOEX
SMA CLA
JMP
QNEWLIN /YESi FINISHED
BADNXT, JMS
QERMSG /NEXT WITHOUT FOR
/

00704
00705
00706
00707
00710
00711
00712
00713
00714
00715
00716
00717
00720
00721
00722
00723
00724
00725
00726
00727
00730
00731
00732
00733
00734
00735
00736
00737
00740
00741

l0/3a/72

160(

JMP

QREMARK

UMOPR,

40n»UMRTNE-l

XLOAO,

FLDA»AFLOA

/OS/8 BASIC COMPILEH
635

00771

664ld

PAL8-ve

10/30/72

PAGE ^-1

/08/8 BASIC COMPILEH
636
637
836
639
6<tei

641
642

00772
00773
00774
00775
00776
00777

643
6ttU

645
646
647
646
649
6S0
6S1
652

653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
67e
671
672
673
674
675
676
677
676
679
680
681
682
663
684
665
6S6
687
668
689
690

PALe-V8

01000
01001
01002
01003
01004
01005
01006
01007
01010
01011
01012
01013
01014
01015
01016
01017
01020
01021
01022
01023
01024
01025
01026
01027
01030
01031
01032
01033
01034
01035
01036
01037
01040
01041
01042
01043
01044
01045
01046
01047
01050
01051
01052
01053
01054
01055
01056

5001
0070
065b
7667
7000
5400
1000
2333
4530
5251
7106
7006
7006
3134
4530
5251
1134
7041
3727
2327
4530
5251
7041
3727
2327
1331
3021
7146
3022
4513
7734
7610
713^
3056
4513
7730
5251
4514
5251
1026
7104
7640
5251
7430
5254
1021
2021
5260
4473
2504
5510
1022
2022
5261

10/30/7S

PAGE

IvJ

UDEF PROCESSOR (OEFIKJE USER FUMCTION)

PAGE
ISZ
NFUNS
/ROOM FOR ANOTHER FUN ?
JMS I
QLETTER /GET FIRST LETTER
JMP
UEFBAD /ERROR IN DEFINE
CLU RTL
/PUT INTO HIGH ORDER
RTL
RTL
OCA
NAMEl
/SAVE CHAR I
JMS I
QLETTER /GET SECOND LETTER
JMP
DEFBAO /ERROR
TAD
NAMEl
/COMBINE THE Ti«IO CHARS
CIA
OCA I
FUNPTR
/SAVE IN FUN TABLE
ISZ
FUNPTR
JMS I
QLETTER /GET THIRD LETTER
JMP
DEFBAD
CIA
/SAVE NEG OF THIHD LETTER
FUNPTR
OCA I
ISZ
FUNPTR /BUMP POINTER
TAD
M5
/NUMERIC ARG COUNT
OCA
TEMP
(MAX OF 4 ARGS)
/
CUL CMA RTL
/STRING ARG COUNT
OCA
TkMP2
(MAX OF 2 ARGS)
/
JMS I
QCHECKC /IS IT A STRING FUN 7
-44
SKP CLA
CLL CML RAR
/YES, SET TYPE OF FUNCTIOf
OCA
TYPEl
JMS I
QCMECKC /LOOK FOR (
-50
JMP
DEFBAD /ERROR IF MISSING
OALOOP, JMS I
QGETNAM /GET AN ARG
JMP
OEFBAD
TAD
TYPE
/LOOK AT ITS TYPE
CUU RAL
/SHIFT TYPE BIT INTO LINK
SZA CLA
JMP
OEFBAD /OTHER BITS MUST BE OFF
SZL
JMP
STRARG /STRING ARG
TAD
TEMP
/GET ARG NUMBER
TEMP
ISZ
/INCREMENT IT
JMP
DAPUSH /GO SAVE IT
OEFBAD, JMS I
QERMSG /BAD USER DtF
2504
JMP I
QREMARK
STRARG, TAD
TEMPg
/GET ARG NUMBER
ISZ
TEMP2
/AND INCREMENT IT
JMP
OAPUSH+1

UDEF,

PAL6-V8

OS/8 BASIC COMPILE!bti

692
693
69tt

695
696
697
698
699
700
701
702
703
70a
705
706
707
708
709
710
711

712
713
71«
715
716
717
718
719
720
721

722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737

01057
01060
01061
01062
01063
01064
01065
01066
01067
01070
01071
01072
01073
01074
01075
01076
01077
01100
01101
01102
01103
01104
01105
01106
01107
01110
01111
01112
01113
01114
01115
01116
01117
01120

0U21
01122
01123
01124
01125
01126
01127
01130
01131
01132
01133

5251
1330
1330
7510
7332
1026
4521
4515
5251
5236
1022
1021
1332
7041
3062
1727
2327
3134
4726
7560
4517
2570
7777
1062
4070
3416
6201
4522
4070
3416
2062
5311
1056
3416
6201
4513
7724
5507
5200
2317
6162
0002
7773
0010
7757

0044

JMP
DAPUSH, TAD
TAD
SPA
CUA CIL
TAD
JM8 I
JMS I
JMP
JMP
TAD
TAD
TAD
CIA
DCA
TAO 1

0EF8AU
Q2
Q2

10/30/72

PAGE

li<3-l

/TOD MANY STRING ARGS
/ADJUST AR6 NUMaCR
/ADD 4 FOR NUM, 2 FOR STRING

CML RTR /FIRST ARG STAYS IN AC
/ADD IN TYPE BIT
TYPE
/SAVE IT ON STACK
QPU8H
OH )
aCOMARP /LOOK FOR
DEFBAD /ERROR IF NEITHER
OALOOP /, GET NEXT ARG
/GET TOTAL NUMBER OF ARGS
TEMP2
TtMP
/ADJUST COUNT
Q10
,

/NEGATED
DACNT
FUNPTR
FUNPTR

ISZ
k40RDl
DCA
XSTCHtK
JMS I
E0S1 -10
QLUKUP2
JMS I

/GET FUNCTION CODE
/BUMP POINTER
/MAKE IT THE SEARCH OBJECT
/MAKE SURE THERE'S ROOM

/ENTER NEW FUNCTION

FUNCTN
-1

TAD
JMS
OCA I
CDF
CAPUT,
JMS I
JMS
DCA I
ISZ
JMP
TAD
DCA I
CDF
JMS I
-54
JMP I
JMP
X8TCMEK ,8TCMEK
FUNPTR, ENDFNS

OACNT
SETFLD
NEXT

/PUT IN ARG COUNT
/(FIRST SET THE FIELOl

aPOP
SETFLD
NEXT
OACNT
OAPUT
TYPEl
NEXT

/GET ARG TYPE (LAST TO PIRST1
/SET THE FIELD
/SAVE IT
/ANY MORE ?
/YES
/PUT IN TYPE OF FUNCTION

aCHECKC /LOOK FOR

COMMA

ONEMLIN /NO COMMA, END OF LINE
/GET NEXT DEFINITION
UDEF

/THESE FOUR WORDS
/PREVENT ERRONEOUS "SAVtS"
/BY THE ROUTINE SAVAC
/WHEN THE OP STACK IS EMPTY
NFUNS,
/OPERAND STACK
STACKO,
STOKSZB UQEF+200 -STACKO
Q2,
M5,
Q10,

-5
10
-21

/OS/8 BASIC COMPIUEK
738
759
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
78B
789
790
791
792

PAL6''Ve

PAGE

DEF PHOCESSOU
PAGE
4532
DEF,
JMS 1
QNOREGS /FORGET REGS
4514
JMS I
QGETNAM /GET FUN NAME
JMP
5253
8A0DEF
/NO 5ooo
TAD
1026
TYPE
/SAVE ITS TYPE
3022
DCA
TEMP2
3061
OCA
ANGCNT /ZERO ARG COUNT
TAD
1026
TYPE
/TYPE MUST BE 3000 OR 7000
7006
RTL
/MOVE BITS TO BE TESTED
7710
SPA CLA
/FUN BIT OFF IS AN ERROR
7420
SNL
/DIM BIT OFF IS AN ERROR
5253
JMP
8ADDEF
4476
JMS I
QMODSET /ENTER N MODE
1027
TAD
SYMBOL /SAVE FUNCTION NAME
DCA
3246
FUNNAM
4514
ARGLUP, JMS 1
QGETNAM /GET ARG NAME
525i
JMP
BADOEF
7150
/LOOK AT TYPE
CLU CMA RAN
0026
AND
TYPE
7640
SZA CLA
5253
JMP
BAODEF /AKG WAS AN ARRAY OR FUNC
4516
JMS 1
QLOOKUP /ENTER INTO S.T.
1037
TAD
STPTR
/SAVE ST ADDRESS
4521
JMS I
QPUSH
TAD
1027
SYMBOL /AND SYMBOL NUMBER
4521
JMS I
QPUSH
1026
TAD
TYPE
/AND ARG TYPE
4521
JMS 1
QPUSH
2061
ISZ
ARGCNT /BUMP ARG COUNT
JMS 1
4515
QCOMARP /LOOK FOR , OR )
5253
JMP
BADDEF
JMP
5216
ARGLUP /, GET NEXT ARG
1246
TAD
FUNNAM /ENTER FUNCTION
3134
OCA
MORDl
TAD
1061
AHGCNT
/FIRST GET ENOUGH ROOM
7041
CIA
TAD
1377
(EOST-3
3246
PCA
FUNNAM
4776'
JMS
5TCHEK /CHECK IT
0000 FUNNAM,
4517
JMS I
QLUKUP2 /LOOK UP FUNCTION
2570
FUNCTN
7777
-1
5256
JMP
OKFUN
/OK, NOT MULTIPLE DEFINED
4473 BADDEF, JMS I
OERMSG /BAD DEFINE
040S
0405
5510
JMP I
OREMARK
OKFUN,
1016
TAD
NEXT
/SAVE "NEXT"
3012
OCA
X12
1016
TAD
NEXT
/INCREMENT NEXT BY
1061
TAD
ARGCNT
/NUMBER OF ARGS
1375
TAD
/PLUS 4
C4
3016
DCA
NEXT
4070
JMS
SETFLD /GET ROOM FOR LABEL
/

120id

10/30/72

/OS/8 BASIC COMPIUErt
793
79«
795
796
797
798
799
800
801
802
803
804

805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
620
sai
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
B3B
839
840
841
842
843
844
845
846
847

01265
01266
01267
01270
01271
01272
01273
01274
01275
01276
01277
01300
01301
01302
01303
01304
01305
01306
01307
01310
01311
01312
01313
01314
01315
01316
01317
01320
01321
01322
01323
01324
01325
01326
01327
01330
01331
01332
01333
01334
01335
01336
01337
01340
01341
01342
01343
01344
01345
01346
01347
01350
01351
01352
01353

PAL8-VB

CLL CML RAR
NEXT
DCA I
NEXT
TAD
JAKONO
DCA
MEXT
ISZ
COF
TAD
LUFLO
1071
FUNFLU
OCA
333b
TAD
LUFLO
1071
OCA
JARFLO
3774'
TAD
LUFLO
1071
AND
(70
0373
7106
CLL RTL
(JUMP
TAD
1372
QOUTmRO
JMS I
4500
JAROND
TAD
10b2
JMS I
qoutwrd
4500
STACK
TAD
1015
DCA
OLOSTK
3060
ARGCNT
TAD
1061
CMA
7040
OCA
TEMP
3021
ARGCNT
TAD
1061
CIA
7041
ARGCNT
DCA
3061
ARGCNT
TAD
1061
JMP
533b
FUNFLO
CMGARG, CDF
6201
QPOP
JMS I
4522
TYPE
302b
DCA
TAD
TYPE
102b
GENTMP
4771'
JMS
QPOP
4522 SmTARG, JMS I
CLA
72043
JMS I
QPOP
4522
STPTR
DCA
303^
CDF
10
6211
TAO
SYMBOL
1027
OCA I
STPTR
3437
TAO
TYPE
102b
TAD
SYMBOL
1027
7402 FUNFLD, HLT
OCA I
X12
3412
TEMP
ISZ
2021
JMP
CHGARG
5320
CLU CML RAR
7130
AND
TEMP2
0022
OCA I
X12
3412
CLL CML RAR
7130
TAO
LOCTRH
1044
OCA I
X12
3412
TAO
LOCTRL
1045
DCA I
X12
3412
COF
6201
TAO
STACK
1015

7130
3416
101b
3062
301b
6201

10/30/73

PAGE ll-l

/FOR JUMP AROUNO
/SET DEFINED BIT
/SAVE AOOR
/FOR LATER

/SAVE FIELD OF FUN BLOCK

/ALSO FIELD OF LABEL
/GET FIELD
/ISOLATE BITS
/INTO JUMP 1N5TR

/OUTPUT IT
/OUTPUT LOW PART
/OF JUMP ADDR
/SAVE STACK
/GET COUNT

/TWICE

/STORE COUNT FIRST
/GET ARG TYPE

/GENERATE A TEMPORARY
/PURGE SYMBOL NUMBER
/GET ST AOOR OF
/OF DUMMY ARG
/PUT IN TEMP SYMBOL NUMBER
/TO FAKE EXPR
/CREATE ARG DESCRIPTOR
/FOR FUNC BLOCK

/AND PUT IT INTO F.B.
/MORE ARGS7
/YUP

/SAVE TYPE OF FUNCTION
/SET DEFINED BIT
/AND LOCATION COUNTER
/AT START OF FUNCTION

/SAVE BOTTOM OF STACK

/OS/8 BASIC COMPIUEK
848
849
850
851
852
853
854
855
856
857
858
859

131354

01355
01356
01357
01360
01361
01362
01363
01364
01365
01366
01367

3013
1060
3015
4Sli
77B3
5253
4505
5510
4520
1013
3015
5770'

PAL8-V8
OCA
TAD
OCA
JMS
-75
JMP
JMS
JMP
JMS
TAD
DCA
JMP

10/30/72

PAGE

X13

I
I

0L08TK
/RESTORE TO TQP
STACK
OCHECKC /FIND «

BADDEF
QEXPR
/COMPILE FUNCTIO
QREMARK
/GET IT INTO AC
QLOAO
)(13
/RESTORE STACK
STACK
/TO BOTTOM
RESARG /FINISH DEF

PA1.8-V8

/OS/8 BASIC CQMPIUEH
660
661
862
663
864
665
666
867
866
864
870
671

872
873
874
875
676
877
878
879
880
681
882
683
884
885
666
687
686
889
890
891
892
893
894

01370
01371
01372
01373
01374
01375
01376
01377
01400
01401
01402
01403
01404
01405
01406
01407
01410
01411
01412
01413
01414
01415
01416
01417
01420
01421
01422
01423
01424
01425
01426
01427
01430

DEF PROCESSOR

10/30/72

PAGE li

(FINALE)

1400
4200
5001
0070

14U
0004
2317
7565
1400
1413
3037
1413
6211
3437
6201
2013
2061
5200
1377

4500
7402
7130
1044
3462
2062
1045
3462
6201
1033
3034
1035
3036
4532
5507

PAGE
RE5ARG, TAD I
OCA
TAD I
CDF
OCA I
CDF

X13
STPTR
til

/GET ST ADOK

/PUT BACK CORRECT SVM

STPTR

K13
ISZ
AHGCNT
ISZ
RESARG
JMP
TAD
CRET
QOUTWHO
JK5 I
JARFLD, HLT
CLU CMU RAR
TAD
LOCTRH
OCA I
JAROND
JAROND
ISZ
TAD
LOCTRL
JAROND
DCA I
COF
TMPCNT
TAD
TMPLVL
DCA
TAD
STMPCT
STMPLV
DCA
QNOREGS
JM5 I
JMP I
QNEWLIN

/SKIP OTHER STUFF

/RESTORE NEXT
/OUTPUT RETURN CODE
/SET LABEL DEFINED BIT
/STICK IN AODR
/OF END OF FUNCT
/PLUS ONE
/STORE LOW AODR

/SAVE NEW TEMP LEVELS

/FORGET REGS
/END OF OEF

PAL8-V8

OS/8 BASIC CQMPllEK
895
B96
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911

912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944

945
946
947
948
949

01431
01432
01433
01434
01435
01436
01437
01440
01441
01442
01443
01444
01445
01446
01447
01450
01451
01452
01453
01454
01455
01456
01457
01460
01461
01462
01463
01464
01465
01466
01467
01470
01471
01472
01473
01474
01475
01476
01477
01500
01501
01502
01503
01504
01505
01506
01587
01510
01511
01512
01513
01514
01515
01516

10/30/72

PAGE li

/ DATA STATEMENT PROCESSOR
QNUMBER /LOOK FOR NUMBER
JMS I
DATA,
08TRNG /MUST BE A STRING
aMP
/MAKE AN ENTRY
GENTRY
JMS
-3
/3 WORDS LONG
QCHECKC /LOOK FOR ,
MORDAT, JMS I
-54
JMP I
QNEWLIN /END OF DATA
DATA
JMP
/OO NEXT ELEMENT
QSTRING /LOOK FOR STRING
DSTHNG, JMS I
JMP I
ONEH/LIN /SAD
/COMPUTE SIZE
WORDl
TAD
lAC
CLL CML, CMA RAR
DCA
OSSIZE /INCLUDING CHAR COUNT
/NEGATE COUNT
TAD
WORDl
CIA
OCA
WOROl
OENTRY
/CREATE ENTRY
JMS
OSSIZE,
MORDAT /GO 00 MORE
JMP
/MAKE AN ENTRY IN DATA LIST
DENTRY,
OENTRY
/GET SIZE
TAD I
TEMP
DCA
OENTRY
ISZ
/INCREMENT SIZE COUNT
TEMP
TAD
1021
TAO
OLSIZE
1051
DUSIZE
OCA
3051
/HOW MUCH 00 WE NEED ?
(EOST
TAD
1376
TEMP
TAD
1021
OCA
,2
3270
4775'
STCHEK /ASK FOR IT
JMS
0000
1774*
FREFLD /GET FIELD OF FHEE SPACE
TAO
/SAVE IT IN SETFLO SU8R0UTI
OCA
3071
LUFUO
10
DATFUD, COF
6211
NEXT
/HOOK IN NEW ENTRY
TAO
1016
lAC
7001
OCA I
DATPTH
3725
B44£jJi---/^»«*»*fe»-i'+teirTTrnr'
2325 PATCH3,
TAD
LUFLO
1071
OATPTR
OCA
3725
JMS
SETFLO
4070
TEMP
/SAVE SIZE OF ENTRY
1021
^-PTAO
DCA
NEXT
34lb
TAO
CWORDI- 1/MAKE READY TO MOVE
1373
DCA
3010
X10
6201
DEUOOP, CDF
TAD
X10
/GET WORD
1410
4070
JMS
SETFLO
NEXT
/SAVE IT
DCA
3416
/MORE 7
TEMP
ISZ
2021
JMP
5307
DELOOP
NEXT
DCA
/SAVE ROOM FOR POINTERSCDF
3416
TAO
NEXT
/THIS IS NOW LAST ENTRY
1016

4526
5241
4255
7775
4513
7724
5507
5231
4527
5507
1134
7001
7170
3253
1134
7041
3134
4255
0000
5235
0000
1655
3021
2255

——
-^

^flF 'i-'i

^'^ *^'%f

PAL6-ve

OS/8 BASIC COMPIUEH
950
951
952
953
954
955
956

01517
01520
01521
01522
01523
01524
01525

10/30/72

PAGE 13-1

33S5
1071

327i
3416
6201
5655
2566

OCA
DCA

-—^OF

JMP I
DATPTR, OATLST

OATFLD
NEXT
OENTRY

/AND THIS IS ITS FItLO

#
OS/8 BASIC COMPILER
957
9se
959
968
9«.l

962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
98e
981
982
963
984
985
986
987
988

01526
01527
01530
01531
01532
01533
01534
01535
01536
01537
01540
01541
01542
01543
01544
01545
01546
01547
01550
01551
01552
01553
01554
01555
01556
01557
01560
01561
01562
01563
01564

4474
7130
4505
5510
4511
1056
4476
1056
7710
1372
1371

4500
7132
0056
7630
5350
4512
137B
1367
1057

4500
4513
7724
5507
5327
0040
0001
6506
4000
5162
5162

PAL8-V8

10/30/72

PAGE 14

/ READ PROCESSOR
READX,
JMS I
OLODSN /OUTPUT STMT NUMBER
/GET VAR TO READ
CLL CML RAR
/SAME AS LEFT SIDE OF LET
JMS I
QEXPR
OREMARK
JMP I
JMS I
QGETAl
/GET VAR INFO FROM STACK
TAD
TYPEl
/SET MODE
JMS I
QMOOSET
TAD
/WHAT TYPE ?
TYPEl
SPA CLA
TAD
(SROL-MRDL
TAD
/STRING OR NUMERIC
(NRDL
JMS I
QOUTMRD
/SUBSCRIPTS ?
CLL CML RTR
AND
TYPEl
SNA CLA
JMP
.3
/NO
QLOAOSS /YESf LOAD SS REGS
JMS I
TAD
CAF5TA-FSTA
TAD
/ARRAY OR SCALAH STORE
(>STA
TAD
SYMBLl
JMS I
QOUTWRD
QCHECKC /ANY MORE ?
JMS I
-54
/CHECK FOR COMMA
JMP I
QNEMLIN /NO
JMP
READX+l /YUP
AMPSNO, 4011 » AMPRTN» U 4000 >X ADD ;X ADD

/OS/8 BASIC COMPILEH
989
990
991

992
993
99<l

995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
101<>

1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
104S
1043

01567
01570
01571
01572
01573
01574
01575
01576
01577

01600
01601
01602
01603
01604
01605
01606
01607
01610
01611
01612
01613
01614
01615
01616
01617
01620
01621
01622
01623
01624
01625
01626
01627
01630
01631
01632
01633
01634
01635
01636
01637
01640
01641
01642
01643
01644
01645
01646
01647
01650
01651
01652
01653

P*Le-V8

10/3B/72

PAGE 15

/ FOR PROCESSOR
2400
4300
7521
7740
0133
2266
2317
7570
7404
PAGE
1600
4474
FOR,
JMS I
QLODSN /OUTPUT STMT NUMBER
OGETNAM /SET INDEX VAHIABLE
4514
JM8 1
5777'
JMP
8A0F0R /SAD
TAD
TYPE
1026
/MUST BE NUMBER
7640
SZA CLA
5777'
JMP
BAOFOR /ITS NOT
4516
JMS I
QLOOKUP /ST SEARCH
TAO
SYMBOl.
/SAVE INOEX VAR
1027
3067
OCA
FINDEX /FOR LATER
4513
JMS I
QCHECKC /FIND =
-75
7703
5777'
JMP
BADFOR
TAD
CHRPTR /SAVE CHAR POSITION
1017
OCA
FORCP
3336
/IN A SPECIAL PLACE
TAO
NCHARS
1020
3335
DCA
FORNC
SKP
7410
ORESTCP /RESTORE CHAR POS
4504 FINDTO, JMS I
4502
JMS 1
QGETC
/SKIP A CHAR
5777'
BAOFOR
JMP
7200
CLA
JMS I
QSAVECP /SAVE THIS POSITION
4501
4475
JMS I
OCHKWD /LOOK FOR "TO"
6273
WTO
JMP
5221
FINDTO /KEEP GOING
4776'
JMS
FSU82
/LOAD LIMIT AND SAVE IN TEMP
3333
DCA
FLIMIT /SAVE LIMIT VAR
4475
JMS I
QCHKWO /LOOK FOR "STEP"
WSTEP
5156
5327
JMP
STEP!
/USE 1,0 FOR THE STEP
4776'
JMS
FSUB2
/LOAD STEP AND SAVE IN TEMP
3334
OCA
FSTEP
/SAVE STEP VAR
1375
TAO
(SETJF
/OUTPUT SETJF
4500
JMS I
QOUTWRD
1374
TAO
tJFOR
/STEP IS VARIABLE, USE JFOR
3062 SAVEJF, OCA
FORJMP /SAVE CORRECT JUMP
4502
JMS I
QGETC
/ANY MORE CH4RS ?
7410
SKP
5777'
JMP
BAOFOR /YES, ERROR
133b
TAD
FORNC
/RESTORE CHAR POSITION
DCA
NCHARS /FROM SPECIAL PLACE
3020
1336
TAO
FORCP
3017
OCA
CHRPTR
4773'
JMS
FSUBl
/COMPILE INITIAL VALUE INTO FAC

/OS/8 BASIC COMPILEri
teoa
1045
104f>

1047
104fi

1049
1050
1051
1052
1053
10S4
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1076
1079
1080
1081
1062
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098

01654
01655
01656
01657
01660
01661
01662
01663
01664
01665
01666
01667
01670
01671
01672
01673
01674
01675
01676
01677
01700
01701
01702
01703
01704
01705
01706
01707
01710
01711
01712
01713
01714
01715
01716
01717
01720
01721
01722
01723
01724
01725
01726
01727
01730
01731
01732
01733
01734
01735
01736
01737
01740
01741
01742

PALB-V8

10/30/72

PAGE 15-1

4772'
JM5
STCHEK
/CHECH FOR ROOM
7570
E0S1
1771*
TAO
FREFLO /SAVE FIELD OF LABELS
3260
OCA
FDBFLO
7402 FORFLD, HUT
7130
/SET LABEL DEFINED BIT
CIL CML RAR
TAD
1044
LOCTRH /DEFINE THE LOOP LABEL
DCA I
NEXT
3416
TAO
1045
LOCTRL
DCA I
NEXT
3416
7130
/SET LABEL DEFINED HIT
CLL CML RAR
3416
OCA I
NEXT
/FOR END OF LOOP LABEL
6201
COF
1333
TAO
FLIMIT /TEST FOR DONE
TAD
XSUB
/8Y SUBTRACTING THE LIMIT
1343
4500
JMS 1
OOUTWRO
TAO
FORFLD /OUTPUT JUMP TO DONt
1260
AND
0370
(70
/SHIFT FIELD BITS
7106
CLL RTL
TAO
FORJMP /USE PROPER JUMP INS
1062
4500
JMS I
QOUTWRO
TAO
NEXT
1016
/OUTPUT LOW PART OF JMP
JMS I
OOUTMRO
4500
TAD
1333
FLIMIT
/FADD FLIMIT (FADOaB)
4500
JMS I
QOUTMRD
TAD
FINOEX
/FSTA INDEX
1067
TAD
1367
(FSTA
JMS I
4500
OOUTWRO
TAD
1067
FINDEX /PUT STUFF ONTO STACK
JMS I
4521
gPUSH
TAO
1334
FSTEP
4521
JMS I
QPUSH
TAD
1260
FORFLD
JMS I
4521
QPUSH
TAD
NEXT
1016
JMS I
4521
QPUSH
ISZ
/BUMP NEXT AGAIN
2016
NEXT
TAO
1033
TMPCNT /RESERVE THESE TEMPS
OCA
3034
TMPLVL
4532
JMS I
QNOREGS /FORGET RESISTORS
101!)
TAO
STACK
/SET NEW STACK LEVEL
3066
DCA
STKLVL
JMP 1
QREMARK
5510
1366
STEP!,
TAO
(3
/1,0 IS SLOT #3
DCA
3334
FSTEP
136b
TAD
(JGT
/USE JGT
5243
JMP
SAVEJF /GO DO THE REST
0000
FLIMIT,
/FOR LOOP UPPER LIMIT
0000 FSTEPr
/FOR LOOP STEP
0000 FORNC,
/FOR STMT CHAR POSITION
000kl
FORCP,
7654
WTHEN,
-124»»110»-105|. '116
7670
7673
7662

PAL8-V8

/OS/8 BASIC COMPIUEH
1099
1100

01743
01744

0400
bSZa

XSliBf

FSUBJAFSUB

10/30/72

PAGE

l5-<;

/OS/8 BASIC COMPILEH
1101
1102
1103
110«
1105
1106
1107
110B
1109
1110

nil
1112
1113
1114
1115
1116

01745
0174b
01747
01750
01751
01752
01753
01754
01755
01756
01T57
01760
01761
01762
01763

1364
450U
4514
5354
1026
7700
5356
4473
2525
7132
3026
4516
1027
4500
5510

PAL8-V8

10/313/72

PAGE 16

/ USE PROCESSOR
TAD
/OUTPUT USE OPERATOR
USEX.
(USE
JMS I
QOUTWRD
QGETNAM /GET ARRAY NAME
JKIS I
/ERROR
JMP
USEERR
TAD
TYPE
/CHECK TYPE
SMA CLA
/(MUST BE NUMERIC)
JMP
,3
/IT WAS
OERMSG /ERROR IN USE STMT
USEERR) JMS I
2525
/SET DIM dIT
CLL CML «TR
OCA
TYPE
JMS I
OlOOKUP /LOOKUP SYMBOL
TAD
SYMBOL /OUTPUT ARRAY NUMBER
JMS I
aOUTWHD
JMP I
QREMARK

/DS/8 BASIC COMPKEH
1117
1118
1119
1120
1121
1122
1123
112a
1125
1126
1127
1128
1129
1130
1131
1132
1133
ll3tt

1135
1136
1137
1136
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171

PALB-V8
/

01764
01765
01766
01767
01770
01771
01772
01773
01774
01775
01776
01777
02000
02001
02002
02003
02004
02005
02006
02007
02010
02011
02012
02013
02014
02015
02016
02017
02020
02021
02022
02023
02024
02025
02026
02027
02030
02031
02032
02033
02034
02035
02036
02037
02040
02041
02042
02043
02044
02045
02046
02047
02050

7540
5004
0003
2400
0070
226b
2317
3314
5010
7401
3326
3323
2000
4474
4505
5510
4502
5262
7106
7006
7006
3021
4502
5262
1021
3022
1377
3010
I4ia
7450
5271
3311
1410
1022
7640
5217
4505
5510
7e40
1014
3021
1421
7710
5265
1376
4506
4501
4475
1737
5255
4477
5366
1021
1311

10/30/72

PAGE

AN D IFENO PKOCESSO RS

PAGE
JMS I
QLOOSN /OUTPUT STMT NUMBER
JMS I
QEXPR
/GET LEFT EXPRESSION
REMARK
JMP I
JMS I
/GET RELATIONAL OPERATOR
QGETC
JMP
/ERROR IF NONE
aAOIF
CLL RTL
/MOVE TO LEFT HALF
RTU
RTL
/AND SAVE IT
OCA
TEMP
QGETC
/GET 2 CHAR RELATI0NAL5
JMS I
JMP
BADIF
TAO
TEMP
/COMBINE THE 2
TEMP2
DCA
TAO
(IF0P5- 1/SETUP POINTER
DCA
X10
X10
/GET JUMP OPCODE
IFUUPl, TAD I
SNA
JMP
IFLUP2- 1/NOT A 2 CHAR RELATIONAL
DCA
HELOPR /SAVE IT
TAD I
X10
/COMPARE CHARS
TAO
TEMP2
SZA CLA
JMP
/NOT THIS DOE
IFLUPl
QEXPR
/GET RIGHT HALF
GOTKEL, JMS I
QRtMARK
JMP I
CLA CMA
/GET TYPE OF RIGHT SIDE
TAD
OSTACK
TEMP
OCA
TAD I
TEMP
SPA CLA
JMP
STRCMP /STRING, 00 STRING COMPARE
TAD
(MINUS /NUMERIC, DO A SUBTRACT
JMS I
QOUTOPR
NUMCMP, JMS I
QSAveCP /SAVE CHAR POSITION,*
^
JMS I
T
QCHKWD /LOOK FOR "THEN"
WTHEN
JMP
NOTHEN /NOT THEN
GETIFN, JMS I
QSNUM
/GET STATEMENT NUMBER
JMP
BA0G02
TAO
TEMP
/OUTPUT JUMP
RELOPR
TAO
IF,

(

1
1

#
/OS/8 BASIC COMPILE^
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1103
1184
11S5
llSb
1187

US8
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
120G9

1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226

02051
02052
02053
02054
02055
020S6
02057
02060
02061
02062
02063
02064
02065
02066
02067
02070
02071
02072
02073
02074
02075
02076
02077
02100
02101
02102
02103
02104
02105
02106
02107
02110

4500
1022
4500
5507
4504
4475
6271
7410
5245
4473
1106
5510
1375
4506
4476
5241
4525
1410
7450
5262
3311
1410

02111
02112
02113
02114
02115
02116
02117
02120
02121
02122
02123
02124
02125
02126
02127
02130
02131
02132
02133
02134
02135
02136

0000
3062
4513
7735
5340
4505
5510
1062
7640
5326
4513
7706
5331
4520
1056
7710
4473
0616
7201
3063
1373
4500

1021

7650
5227
5272
4474
7201
4311
1374

33U
5241

PAl,6-V8

10/30/72

PAGE 17-1

OOUTi«IHD
JMS I
/TWO WORDS
\
TEMP2
TAD
QOUTWRD
JMS I
\
QNEWLIN
JMP I
OHESTCP /BACKUP CHAR POSJR;
NOTHEN, JMS 1
OCHKWD /LOOK FOR "GOTO"
JMS 1
W60T0
SKP
GETIFN /OK, GO GET STMT NUMBER
JMP
QERMSG /BAD IF STMT
JMS I
BADIF,
1106
OREMANK
JMP I
(SCOMPR.•1
STRCMP, TAD
QOUTOPR /OUTPUT STRING COMPARE
JMS 1
QMOOSET /BACK TO N MODE
JMS I
NUMCMP /REST IS LIKE NUMERIC COMPARES
JMP
/PUT BACK NON OPERATOR
QBACKl
JMS I
/GET CONDITIONAL JUMP
X10
1FLUP2, TAO I
SNA
/RELATIONAL INCORRECT
BADIF
JMP
RELOPR
DCA
/COMPARE OPERATORS
TAO I
1(10
TEMP
TAO
SNA CLA
GOTREL /GOTIT
JMP
JMP
IFLUP2
JMS 1
QLODSN /OUTPUT STMT NUMBER
IFENO,
/(NO COLON)
CUA lAC
/GET FILE NUMBER
GETFN
JMS
/SETUP CORRECT JUMP
TAO
CJEOF
RELOPR
DCA
NUMCMP /GO FIND "THEN" OR "GOTO"
JMP
RELOPP.
/GET FILE NUMBER
GETFN,
/SAVE COLON SWITCH
COLON
OCA
QCHECKC /LOOK FOR #
JMS I
-43
JMP
TTYFIL /NONE, MUST BE TTY
/GET FILE EXPR
JMS I
QEXPR
QREMARK /ERROR
JMP I
/OO WE NEED A COLON ?
TAD
COLON
SZA CLA
.4
/NO, SKIP THIS TEST
JMP
QCHECKC /YES, LOOK FOR IT
JMS I
-72
/NOT THERE, BAD
BADFN
JMP
/LOAD IT
JMS I
QLOAD
/TYPE MUST BE NUMERIC
TYPEl
TAO
SPA CLA
OERMSG /NOPE, IT ISN'T
JMS 1
BADFN,
0616
/SET IFNREG TO "NOT TTY"
CLA lAC
IFNREG /SAVE NEW IFNREG
OCA
TAO
(FILENO /OUTPUT SET IFN COMMAND
JMS I
QOUTWRD

#
\

A^^^^
^

^!^

/OS/8 BA31C COMPILES
1827
1228
1229
1230
1231
1232
1233
1234

02137
02140
02141
02142
02143
02144
02145
02146

5711
1063
765i9

5711
1372
4S00
3063
5711

PAL8-V8
JMP I
GETFN
IFNREG
TTYFIUi TAD
SNA CUA
JMP I
GETFN
TAD
CCURFN
JMS I
QOUTWRD
DCA
IFNREG
JMP I
GETFN

10/30/72

PAGE 17-^

/IS IFNREG

QUIT
/OTHERWISE ZERO AC
/IF YES,

/SET IFNREG TO TfV
/RETURN

•
/08/a BASIC COMPILEK
ia35
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1246
1249
1250
1251
1252
1253

02147
02150
02151
02152
02153
02154
02155
0215b
02157
02160
02161
02162
02163
02164
02165
02166
02167
02170

4477
5366
4476
7201
5360
4474
4477
5366
4476
1371
1021
4500
1022
4500
5507
a47i
1615
5510

PALfl-Vfl
/ GOTO AND G0SU5
QSNUM
JMS I
GOTO,
aADG02
JMP
QMODSET
JMS I
CLA lAC
JMP
,5
JMS I
QLOOSN
GOSUB,
JMS I
OSNUM
JMP
BAD602
QMODSET
JMS I
TAD
tJSUB
TEMP
TAO
OOUTMKO
JMS I
TAD
TEMP2
JMS I
OOUTMRD
QNEWtIN
JMP I
QERMSG
BADG02i JMS I
1615
QREMARK
JMP I

10/30/72

PAGE

/GET NUMBER

/ALL GOTO'S IN NMOOt
/JUMP»JSUB*l

/OUTPUT STMT NUM LOAO
/GET NUMBER
/ALL GOTO'S IN NMDDE
/GET G0SU8 OPCODE
/PLUS ADDRESS
/OUTPUT IT
/BOTH WORDS
/BAD GOTO Oi? GOSUB
/NUMBER MISSING

PALB-V8

/OS/8 BASIC COMPILEW
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308

02171
02172
02173
02174
02175
02176
02177

02200
02201
02202
02203
02204
02205
02206
02207
02210
02211
02212
02213
02214
02215
02216
02217
02220
02221
02222
02223
02224
02225
02226
02227
02230
02231
02232
02233
02234
02235
02236
02237
02240
02241
02242
02243
02244
02245
02246
02247
02250
02251
02252
022S3
02254
02255

5000
7501
7402
5400
6566
2755
4140
2200
0000
1600
3342
2200
1600
2200
3346
1377
3071
4070
1742
3343
2342
1742
3233
1343
7450
5257
7001
3010
1376
3011
1346
3344
6201
1411
7141
6211
1410

7640
5250
2344
5230
1410
6201
3027
1233
3071
2200
5600
7430
5257
1343
3342
1233
3071

10/30/72

PAGE 19

TABLE SEARCH FOK LIT

C/S
PAGE

LUKUP2,
TAD
OCA
ISZ
TAD
ISZ
OCA
TAD
OCA
JMS
TAD
L00K2,
OCA
PATCHl, lot
TAD
DCA
--1*7 ADT

PATCH5,

CHKVALf
NEWFLD*

16201,

NDTSAM,

LUKUP2
0L0N3
LUKUP2
LUKUP2
LUKUP2
N3SIZE

/GET THE BUCKET START
/SAVE IT AS THE PREVIOUS ENTRY

(6211

/PRIME THE FIELD SETTER

LUFLO
SETFLD
0LDN3
NEMN3

/NOW SET THE FIELD
/GET ADUR OF NEXT ENTRY
/SAVE IT

/GET THE ENTRY SIZE

-yfctjws— '-/«tr' Ttf-I^I E L D -OF ^k*Ji4.-feWWJ^
I

0LDN3
NEWFLD

,/}p
,

/GET INTO AC
/AND SAVE IT

NEWN.3

SNA
JMP
HOOKIN /IF
ITS END OF LIST
lAC
DCA
X10
/START OF VALUE INFO
TAD
tWOROl •1/SETUP POINTER TO VALUE
DCA
Xll
TAD
N3SIZt /AND TEMP OF ENTRY SIZE
DCA
LTEMP
CDF
TAD I
Xll
CIA Cll
/COMPARE THIS WORD
COF
10
/FIELD OF NEW ENTRY
TAD I
X10
5ZA CLA
JMP
NOTSAM /NOT THIS ONE
ISZ
LTEMP
/IMCR SIZE COUNT
JMP
CHKVAL /MORE STUFF
TAD I
X10
/GET SYMBOL NUMBER
CDF
DCA
SYMBOL
TAD
NEWFLD /MAKE ENTRY ADORESSASLE
DCA
/THROUGH SETFLD
LUFLD
/8UMP RETURN
ISZ
LIJKUP2
JMP I
LUKUP2
SZL
JMP
HOOKIN /NEW SYMBOL < CURRENT
TAD
NEMN3
/GO TO NEXT ENTRY
DCA
/(MOVE POINTER)
0L0N3
TAD
NEWFLD /(AND FIELD)
OCA
LUFLO

^/9P

4 3

/OS/a BASIC COMPILES
1309
1310
1311
1312
1313
I3ia
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
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

02256
02257
02260
02261
02262
02263
02264
02265
02266
02267
02270
02271
02272
02273
02274
02275
02276
02277
02300
02301
02302
02303
02304
02305
02306
02307
02310
02311
02312
02313
02314
02315
02316
02317
02320
02321
02322
02323
02334
02325
02326
02327
02330
02331
02332
02333
02334
02335
02336
02337
02340
02341
02342
02343
02344

5212
7144
1346
1375
3264
4317
0000
1343
6211
3416
1233
3416
4070
1266
3742
7240
1342
3342
7240
1016
3742
1266
3071
1376
3011
6201
1411
6211
3416
2346
5307
6201
5600
0000
1016
7141
6201
1717
2317
7630
5717
1266
1374
3266
1266
3311
3016
2345
5717
4473
2324
5406
0000
0000
0000

PALB-V8
JMP
L00K2
HOOKIN, CLL CMA KAL
TAD
N38IZE
TAD
(EQ8T
OCA
,42
JMS
STCHEK

10/30/72
/MOW MANY

PAGE 19-1

nilOROS

NEEDED

/MAKE SURE
/WE GOT ENOUGH
/HOOK IN NEW ENTRY
/CHANGE TO FREE FIELD

TAD
NEWN3
FREFLO, COF
10
OCA 1
NEXT
PATCH2, TAD
NEWFUD /HOOK IN FIELD " -"/
,,4-!f
DCA I
NEXT
JMS
SETFLD /BACK TO FIELD OF OLD
TAD
FREFLO /PUT FIELU OF NEW
OCA I
0I.DN3
CLA CMA
/BACK UP 0L0N3
TAD
/SO THAT IT POINTS TO POINTER
QLDN3
OCA
0LDN3
CLA CMA
,*^A0
NEXT
/PUT POINTER TO NEW ENTRY
OCA I
0L0N3
/INTO OLD
TAD
FREFLO /SAVE ENTRY FIELD
DCA
LUFLD
/FOR POSSIBLE POST PROCESSING
TAD
CWORDl- 1/PREPARE TO STICK IN THE VALUE
DCA
XU
ENTERV, CDF
TAD I
Xll
/MOVE IN THE VALUE
COF
FPLD2,
10
UCA I
NEXT
ISZ
N3SIZE /INCR SIZE COUNT
JMP
ENTERV
COF
JMP

L.UKUP2

STCHEK,
TAD
NEXT
CIA CLL
CDF
TAD I
STCHEK
ISZ
STCHEK
SZL CLA
JMP I
STCHEK
TAO
FREFLO
TAD
(10
DCA
FREFLO
TAD
FREFLO
DCA
FFLD2
OCA
NEXT
ISZ
NFLOS
JMP I
STCHEK
STOVER, JMS I
QERMSG
2324
XABQRT
JMP I
0LDN3,
NEWN3,
LTEMP,

/CHECK FOR ENOUGH ROOM
/CHECK FOR OVERFLOW
/THIS IS LIMIT

/BUMP FREE FIELD
/PUT IN TWO PLACES

/START POINTER AT
/GONE TOO FAR ?
/NO
/S.T. FULL

/ABORT COMPILATION
/ADDR OF PREVIOUS ENTRY
/4D0R OF NEW ENTRY

PALe-V8

/05/8 BASIC COMPILEH
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378

02345

0000

02346
02347
02350
02351
02352
02353
02354
02355
02356
02357
02360
02361
02362

0000
6031
5746
6036
0373
1372
7450
5406
1371

7640
5746
3770"
5746

NFLOS,
N3SIZE,
K9DCHK,

KSF
KaOCHK
JMP I
KRB
AND
(177
(-3
TAD
SNA
JMP
XABORT
(3-17
TAD
SZA CUA
K80CHK
JMP I
OCA
TTX*1
KBDCHK
JMP

10/30/72

PAGE 19-2

/- COUNT OF AVAILABUF. FIELDS
/SIZE OF ENTRY
/CHECK FOR *C Ort "0

/NO CHAR

/REMOVE PARITY dIT
/-C ??

/YES, EXIT TO 0S8
/-O ??

RETURN
/NOP TTY OUTPUT ROUTINE
/NO,

/OS/a BASIC COMPIUEK
1379
1380
1391
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433

02370
02371
02372
02373
02374
02375
02376
02377
02400
02401
02402
02403
02404
02405
02406
02407
02410
02411
02412
02413
02414
02415
02416
02417
02420
02421
02422
02423
02424
02425
02426
02427
02430
02431
02432
02433
02434
02435
02436
02437
02440
02441
02442
02443
02444
02445
02446
02447
02450
02451
02452
02453
02454

PAL8-V8

10/30/73

PAGE au

/ SYMBOL TABLE LOOKUP
3741
7764
7775
0177
0010
7570
0133
6211
2400
PAGE
/LOOK UP SYMBOL
0000 LOOKUP,
TAD
NAMEl
/GET NAME1*11*NAME2
1134
7106
CLL RTU
NAMEl
1134
TAO
7104
CLL RAL
NAMEl
1134
TAD
TAD
NAME2
1135
DCA
3134
NAMEl
/THIS IS IT
TAD
1026
/WHAT KIND SYMBOL ?
TYPE
7106
/MOVE TYPE BITS
CLL RTL
7006
RTL
/INTO AC 9,10,11
TAD
1216
JTABLE
OCA
3215
.*l
0000 VCPTR,
/GO THERE
5617
JTABLE, JMP I
.I
2427
LUVAR
2451
LURETN
2463
LUARAY
2451
LURETN
2456
LUSTRG
2451
LURETN
2516
LUSARY
2451
LURETN
1377
LUVAH,
TAD
(VARCNT /POINTER TO VAR COUNT
3215
DCA
VCPTR
1376
TAO
(VARST- 13
TAD
1134
DOLU>
NAMEl
3037
DCA
STPTR
/ST POINTER
CDF
6211
10
/THATS KiHERE ST IS
1437
TAO I
STPTR
/IS THIS VAR DEFINED YET 7
7500
SMA
JMP
5253
GOTSYM /YES
1375
TAD
(4401
/GET 401 INTO AC
CHEKST, CDF
6201
1615
TAD I
VCPTR
/PLUS VAR COUNT
6211
COF
10
3027
OCA
SYMBOL /THATS THE NEW SYMBOL NUMB
1027
TAD
SYMBOL /PUT SYMBOL NUMBER
3437
OCA I
STPTR
/INTO S.T, ENTRY
6201
CDF
2615
ISZ I
VCPTR
/BUMP SYMBOL NUMBER
5600 LURETN, JMP I
LOOKUP
5774'
JMP
STOVEH
/S,T, OVERFLOW
3027
SOTSVM, OCA
SYMBOL /PUT NUMBER INTO SYMBOL
6201
COF

PAUa-V8

/08/6 BASIC COMPUER
IttSa

ia35
1436
1437
1436
1439
1440
1441
1442
1443
1444
1445
1446
1447
1446
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470

02455
0S45b
02457
02460
02461
02462
02463
02464
02465
02466
02467
02470
02471
02472
02473
02474
02475
02476
02477
02500
02501
02502
02503
02504
02505
02506
02507
02510
02511
02512
02513
02514
02515
02516
02517
02520
02521

S6ei(t)

1373
3215
1372
1134
5232
1371
3215
1370
3037
6211
1437
7450
5311
7041
1134
2037
7650
5304
2037
2037
2037
5270
1367
0437
3027
6201
5600
1134
3437
2037
1373
5241
1366
3215
1365
5266

JMP
LUSTRG, TAD
DCA
TAO
TAO
JMP
LgAHAY, TAD
DCA
TAD
DCA
CDF
TAD
FINDA,
SNA
JMP
CIA
TAD

10/30/72

PAGE 30-1

LOOKUP

/POINTER TO STRING VAR COUNT
CSVCNT
VCPTR
tSVARST -26
/TWO WORDS PER ENTRY
NAMEl
DOLU
/ARRAY VAR COUNT
CACNT
VCPTR
(ARAYST /ARRAY SYMBOL TABLE
STPTH
10
I

STPTR

/SEARCH TABLE

NEWARY

/NEW ENTRY

NAMEl
STPTR
ISZ
SNA CLA
JMP
GOTARY
STPTR
ISZ
STPTR
ISZ
STPTR
ISZ
FINDA
JMP
GOTARV, TAD
C37
STPTR
AND I
SYMBOL
DCA
CDF
LOOKUP
JMP I
NAMEl
NEWARY, TAO
STPTR
OCA I
STPTR
ISZ
TAO
C41
JMP
CHEKST
(SACNT
LUSARY, TAD
VCPTR
OCA
CSARYST
TAD
JMP
FINDA-2

/IS THIS IT

/YES
/GO TO NEXT ENTRY

/GET NUMBER

/INTO SYMBOL
/PUT IN NEW ENTRY
/PUT IN NUMBER
/GO DO THE REST
/STRING ARRAY COUNT

/USE STRING ARRAY TABLE
/GO DO SEARCH

/D5/6 BASIC COMPILER
1472
1<173

imu
1475
1476
1477
1478
1479
t46e
1481
1482
1483
1484
148S
148(>

1467
1486
1489
1490
1491
1492
1493
1494
1495
149b
1497
1498
1499
1500
1501
1502
1503
1504

02522
02523
02524
02525
02526
02527
02530
02531
02532
02533
02534
02535
02536
02537
02540
02541
02542
02543
02544
02545
02546
02547
02550
02551
02552
02553
02554
02555
02556
02557
02560
02561
02562

4474
1364
3356
4513
7652
7410
2356
4513
7662
5336
2356
2356
4763'
4505
5510
4520
1056
7710
5347
4473
0616
1756
4500
5507
7454
7474
7514
7534
0000
0040
0000
5162
5162

PAL8-V8

10/30/72

PAGE 21

/ FILE AND C LOSE PROCESSORS
JMS I
FILE,
QLODSN /OUTPUT STMT NUMBER
TAO
CFOPENS /POINTER TO FILE OPtNS
OCA
FILESW
JMS
QCHECKC /LOOK FOR »»/"
-126
8KP
/NOT V
ISZ
FiLESw /TUP, INCR FILESW
JMS
QCHECKC /LOOK FOR "N"
-116
JMP
.3
ISZ
FILESW /INCR FILESW BY TWO IF "N"
ISZ
FILESW
JMS
5ETFN
/GET FILE NUMBER
JMS I
QEXPR
/GET OEVICE/FILE DESCRIPTOR
JMP I
QREMAKK
JMS I
OLOAD
/LOAD INTO SAC
TAO
TYPEl
/TYPE MUST BE STRING
SPA CLA
JMP
,*3
/IT WERE
JMS I
OERMSG /IT WEREN'T
0616
TAO I
FILESW /GET CORRECT OPEN
JMS I
QOUTWRD
JMP I
QNEWLIN
F0PEN8, OPEN AF>0PENAV>0P£NNF»OP£NNV

FILESW,
PLUS,
40f0;XADO>XADD

PALe-V8

/OS/8 BASIC COMPILEK
1505
1506
1507
1508
1509
1510
1511
1512
1513
iSltt

1515
151«
1517
1518
1519
1520
1521
1522
1523
152tt

1525
1526
1527
1526
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1556
1559

02563
02564
02565
02566
02567
02570
02571
02572
02573
02574
02575
02576
02577
02600
02601
02602
02603
02604
02605
02606
02607
02610
02611
02612
02613
02614
02615
02616
02617
02620
02621
02622
02623
02624
02625
02626
02627
02630
02631
02632
02633
02634
02635
02636
02637
02640
02641
02642
02643
02644
02645
02646
02647

l0/3ia/72

PAGE 2a

EXPRESSION ANALYZER

2111
2552
2332
0043
0037
2132
0042
1010
0041
2337
4401
0365
0040
2600
0000 EXPR»
3021
1030
4521
1021
3030
1200
4521
4521
1030
7710
5244
4502 UNOPR,
5352
1377
7450
5214
1376
7440
5227
1375
4521
5214
M0TMIN»
1374
7640
5243
4505
5773'
4513
7727
7410
5263
4473
1520
5773'
4525 OPRAND,
4514
5772'
4516
1027

PAGE

/POLISHIZE EXPRESSION
/SAVE LEFT
TEMP
DCA
/SO WE CAN PUSH OLD VALUE
TAO
LEFT
QPUSH
/OF IT
JMS I
/NOW SET NEiN VALUE
TEMP
TAO
/OF THAT SWITCH
LEFT
DCA
EXPR
TAD
/SAVE RETURN ADOR
QPUSH
JMS I
/MARK STACK
QPUSH
JMS I
/IS THIS LEFT SIDE ?
LEFT
TAD
SPA CLA
OPRAND+1/YES, NO UNARY MINUS
JMP
/LOOK FOR UNARY OPERATOR
QGETC
JMS I
MISARG /THERE HAS TO BE AN OPERAND
JMP
/UNARY+CNOP)
TAD
C-53
SNA
UNOPR
JMP
/UNARY (53-55
TAD
SZA
NOTMIN /NOT UNARY MINUS
JMP
/PUSH UNARY MINUS
(UMOPR
TAD
QPUSH
JMS I
UNOPR
JMP
/LOOK FOR (
(55-50
TAD
SZA CLA
OPRAND /NOT A SUB EXPRESSION
JMP
/COMPILE SUB EXPRESSION
QEXPB
JMS I
BADEXP /BAD SU8 EXPRESSION
JMP
QCHECKC /LOOK FOR )
JMS 1
-51
/ERROR
SKP
0PR8R
/GOTIT
JMP
OERMSG /PARENTHESIS MIS MATCH
JMS I
1520
BADEXP
JMP
QBACKl
/PUT BACK NQM UNARY OP
JMS I
OGETNAM /LOOK FOR WARlAriLt REF
JMS 1
NOTVAR /NOPE,
JMP
JMS I
QLOOKUP /SYMBOL TABLE SEARCH
SYMBOL /SAVE SYMBOL NUMBER
TAD

/OS/8 BASIC COMPILER
1560
1561
1562
1563
156tt

1565
1566
156T
1568
1569
1570
1571
1572
1573
157«
1575
1576
1577
1578
1579
1580
1581
1582
1583
1S8<I

1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614

PAL8-V8

10/3B/72

PAGE dS-l

02650 3022
OCA
TEMP2
/BECAUSE SAVAC MIGHT KILL IT
02651
4524
JMS I
QSAVAC /GENERATE FSTA (MAYbE)
02652 7775
-3
02653 1026
TAO
TYPE
/WAS THIS A FUNCTION OR ARRAY
02654 0371
AND
(3000
02655 7440
SZA
02656 5771'
JMP
FUNSS
/YES, GO PROCESS IT
02657
1026
TAO
TYPE
/MAKE OPEHANO STACK ENTRY
02660 4523
JMS I
QPUSMO
02661
1022
TAD
TEMP2
/FIRST TYPE THEN SYMBOL *
02662 4523
JMS I
QPUSHO
02663 1030 0PR8R,
TAD
LEFT
/LEFT SIDE ?
02664 7700
SMA CLA
/YES, NO OPERATORS LEGAL
02665 4502
JMS I
06ETC
/LOOK FOR OPERATOR
02666 5341
JMP
ENOEXP /END OF EXPR
02667
1370
TAO
(-52
/** IS SPECIAL CASE
02670 7440
SZA
02671
5301
JMP
NOSTAR /NOT *
02672 4502
JMS I
QGETC
/LOOK FOR SECOND *
02673 5301
JMP
NOSTAR
02674
1370
TAO
(-52
02675 7650
SNA CLA
02676
1367
TAD
(136-52 /•• '> 02677
7450
SNA
02700 4525
JMS I
QBACKl
/PUT IT BACK
02701
1366
NOSTAR, TAD
(52
/RESTORE CHAR
02702 3021
OCA
TEMP
02703 1365
TAD
(0PR8RS-1
02704 3010
OCA
X10
/PTR TO LIST
02705 1410 OPRLUP, TAD I
X10
/GET OPERATOR PTR
02706 7450
SNA
02707 5336
JMP
EN0EXP-3/END OF LIST
02710 3032
OCA
NEWOP
/SAVE IT IN CASE
02711
1410
TAO I
X10
/COMPARE
02712 1021
TAD
TEMP
02713 7640
SZA CLA
02714 5305
JMP
OPRLUP /KEEP LOOKING
02715 4522 GOTOPM^ JMS I
QPOP
/GET STACK TOP
02716 7450
SNA
02717 5337
JMP
PU8H2
/EMPTY
02720 3031
OCA
OLDOP
02721
1431
TAO I
OLOOP
/COMPARE PREC,
02722 7041
CIA
02723
1432
TAD I
NEWOP
/NEW-OLD
02724 7750
SPA SNA CLA
02725 5333
JMP
OUTOLO /OLD>NEW
02726
1031
TAD
OLOOP
02727 4521
PUSH2,
JMS 1
QPUSH
/OLD < NEW
02730 1032
TAO
NEWOP
/GO PUSH BOTH
02731
4521
JMS I
QPUSH
02732 5214
JMP
UNOPR
/GO LOOK FOR NEXT OPERAND
02733
1031
QUTOLOi TAD
OLDOP
/OUTPUT CODE FOR OLD 0PH8H
02734 4506
JMS I
QOUTOPR
02735 5315
JMP
GOTOPR
/LOOK AT NEXT TOP OF STACK
02736 4525
JMS I
QBACKl
/PUT BACK NQN OPERATOR

PAL8-V8

/OS/8 BASIC COMPILER
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636

02737
02740
02741
02742
02743
02744
02745
02746
02747
02750
02751
02752
02753
02754
02755
02756
02757
02760
02761
02762
02763
02764

7410
4506
4522
7440
5340
4522
7001
3021
4522
3030
5421
4473
1517
5773'
0040
0000
3763
1743
0050
0000
5557
6756

ENDEXP,

SKP
JMS
JM5
SZA
JMP
JMS

10/30/72

PAGE 22-2

QOUTOPR /OUTPUT OPESATOR
/LOOK FOR STACK MARK
QPOP

ENOEXP-l/NOT THIS
/GET RETURN ADDR
QPOP

lAC
TEMP
OCA
/GET LEFT SIDE SWITCH
QPOP
JMS I
LEFT
DCA
/RETURN
TEMP
JMP I
QERMSG /MISSING OPERAND
MISARGi JMS I
1517
BAOEXP
JMP
40I0MISUB)XSUB
MINUS,

SLASH,

50»0>XIOIV>XDIV

PAL8-V8

/OS/8 BASIC COMPIUEH
1637
1638
1639
1640
16*1
164S
1643
1604
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1637
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1676
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691

02765
02766
02767
02770
02771
02772
02773
02774
B2775
02776
02777
03000
03001
03002
03003
03004
03005
03006
03007
03010
03011
03012
03013
03014
03015
03016
03017
03020
03021
03022
03023
03024
03025
03026
03027
03030
03031
03032
03033
03034
03035
03036
03037
03040
03041
03042
03043
03044
03045
03046
03047
03050
03051

6047
0052
0064
7726
3000
3136
3122
0005
076S
7776
7725
3000
0377
7650
5205
4524
7777
1026
4521
1022
4521
1037
4521
7410
4522
7001
4521
4505
5315
4511
7132
0056
7650
5242
4512
4524
7777
1056
4476
1376
1057
4500
1133
1055
3414
7410
2014
2014
4515
5315
5214
4532
3021
4522

10/30/72

PAGE 2i

EXPRESSION ANALYZER CHANDLE SUBSCRIPTS)

FUNS5,

PAGE
AND
(1000
SNA CtA
JMP
.*3
JMS I
OSAVAC

/IS IT FUN CALL
/NO
/YES,

SAVE AC

-1

TAD
TYPE
JMS I
QPUSH
TAD
TEMP2
JMS I
QPUSH
TAO
STPTR
JMS I
QPUSH
SKP
SSUOOP, JMS I
OPOP
lAC
JMS I
QPUSH
JMS I
QEXPR
JMP
BADFSS
JMS I
QGETAl
CLL CML RTR
AND
TYPEl
SNA CIA
JMP
NOTSSO
JMS I
OLOADSS
JMS I
QSAVAC

/SAVE TYPE
/AND SYMBOL NUMBER
/AND SYMBOL TABLE PTR
/GET ARG/SS COUNT

/INCREMENT IT
/GET NEXT ARG/SS
/IS THIS ARG(SS)

AN ARRAY REF ?

/CHECK THE TYPE
/NOT AN ARRAY REFERENCE
/LOAD THE SS REGS
/SAVE AC IF NEEDED

-1

TAD
JMS
TAD
TAD
JMS
TAD
TAD
OCA
SKP
NOTSSD, ISZ

ISZ

JMS
JMP
JMP
JMS
OCA
JMS

TYPEl
/SET THE MODE
OMODSET
CAFLOA
/LOAD THIS ARG/SS
3YMBL1
QOUTWRD
Q400
/SET THE IN-AC BIT
MODE
/WE JUST CALLED M005ET
OSTACK /CHANGE THIS STACK ENTRY

OSTACK
OSTACK
OCOMARP
BADFSS
SSLOOP
OPOP
TEMP
QPOP

/FIX UP OSTACK
OR )
/LOOK FOR
/NEITHER IS HAD
/, MEANS MORE ARGS/SS
/GET # OF ARG/SS
/GET ARG/SS COUNT
/RESTORE S.T. AODR
,

PAL8-Ve

/OS/8 BASIC COMPILER
1692
16«>3

1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746

03052
03053
03054
03055
03056
03057
03060
03061
03062
03063
03064
03065
03066
03067
03070
03071
03072
03073
03074
03075
03076
03077
03100
03101
03102
03103
03104
03105
03106
03107
03110
03111
03112
03113
03114
03115
03116
03117
03120
03121
03122
03123
03124
03125
03126
03127
03130
03131
03132
03133
03134
03135
03136
03137
03140

3037
4522
3027
4522
3026
1026
037 7
7640
5775»
1021
7112
7012
3022
6211
1437
0374
7440
5300
1022
1437
3437
5304
7041
1022
7640
5320
6201
1026
1021
4523
1027
4523
4524
7773
5773'
1372
1015
3015
4473
2323
4522
7640
5322
4522
3021
4522
3030
5421
7654
7677
7676
7730
1030
7710
5771'

10/30/72

PAGE

i2i-l

STPTR
DCA
QPOP
JMS I
SYMBOL /GET BACK THE SYMBOL »
DCA
QPOP
JMS I
/GET BACK THE TYPE
TYPE
OCA
/IS IT AN AHRAY OR FUN REF ?
TYPE
TAD
AND
(1000
SZA CLA
JMP
DOCALL /FUNCTION REFERENCE
/MOVE SS COUNT
TEMP
TAD
/INTO THE CORRECT
CLL RTR
/FIELD
RTR
/AND SAVE IT
TEMP2
DCA
CDF
10
/ANY PREV REFERENCE ?
TAD I
STPTR
AND
(3000
SZA
JMP
NOTNEW /YES, GO CHECK NUMBERS
/IF NONE, PUT IN NUMBER
TEMP2
TAD
STPTR
TAD I
STPTR
DCA I
/THATS ALL
NOOK
JMP
/COMPARE NUMBER OF SS
NOTNEW, CIA
/WITH ANY PREVIOUS
TEMP2
TAD
SZA CLA
BADFSS+3/THEY DON'T MATCH
JMP
CDF
NDOK,
/PUT TYPE
TAD
TYPE
/AND DIM COUNT
TAD
TEMP
OPUSHO /ONTO ARGUMENT STACK
ONSTAK, JMS I
SYMBOL
TAD
OPUSHO /AND SYMBOL NUMBER
JMS I
QSAVAC /SAVE FIRST SS IF LEFT IN AC
JMS I
-5

OPRBR
/GO GET AN OPERATOR
JMP
/PURGE STACK JIJNK
(-4
BAOFSS, TAD
TAD
STACK
STACK
DCA
QERMSG /PUT ERROR MESSAGE
JMS 1
2323
/LOOK FOR STACK MARK
QPOP
BADEXP, JMS
SZA CLA
BADEXP /NOT YET
JMP
/RETURN AOOR
QPOP
JMS
OCA
TEMP
QPOP
/SS LOAD SWITCH
JMS
LEFT
DCA
/TAKE ERROR EXIT
TEMP
JMP
MTAB,
-124»-10U-102» -50

LEFT
NOTVAR, TAD
SPA CLA
MISARG
JMP

/LEFT SIDE

/YES, NO LITERALS LEGAL

/OS/a BASIC C0MP1LE«
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765

03141
03142
03143
03144
03145
03146
03147
03150
03151
03152
03153
03154
03155
03156
03157
03160
03161
03162
03163

PAL8-Va

10/30/75

PAliE

23-8

452b
JMS I
QNUMBEH /LOOK FOR LITEHAL
5350
JMP
NOTNUM /MOT A NUMBER
4517
JMS I
QUUKUP2 /SEARCH LITERAL TABLE
2562
LITRL
777S
-3
4770'
JMS
NEWVAR
/IF NEW, GIVE IT NUMBER
5307
JMP
ONSTAK
/GO PUT IT ONTO THE STACK
4527
NOTNUM, JMS I
QSTRING /LOOK FOR STRING LITERAL
5771*
JMP
MISARG /NO, MISSING ARG
1134
TAD
WOROl
/GET -NUMBER WORDS - 1
7001
lAC
7170
CLL CML CMA RAH
3360
DCA
.S
/FOR LOOKUP
4517
JMS I
QLUKUP2 /LOOK UP LITERAL
2564
8LITRL
0000
4767'
JMS
NWSVAR /IF NEW, GIVE IT NUMBER
7130
CLL CML RAR
/SET TYPE BIT FOR STRING
5307
JMP
ONSTAK /PUT INFO ONTO STACK

PAL8-V8

/OS/8 BASIC COMPItEH
1766
17«.7
17«.8

1769
1770
1771
1772
1773
177a
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
179a
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
iflia

1819
1620

03167
03170
03171
03172
03173
03174
03175
03176
03177

03200
03201
03202
03203
03204
03205
03206
03207
03210
03211
03212
03213
03214
03215
03216
03217
03220
03221
03222
03223
03224
03225
03226
03227
03230
03231
03232
03233
03234
03235
03236
03237
03240
03241
03242
03243
03244
03245
03246
03247
03250
03251
03252

EXPRESSION ANA LVZt«

10/30/72

PAGE aa

CI-

4236
4223
2752
7774
2663
3000
320id

6640
1000
PAGE
3200
LEFT
DOCALLi TAD
1030
SMA CLA
7700
OUTCAL
JMS
4210
SKP
7410
JMP
OPRBR
5777'
QERMSG
JMS I
4473
0622
0622
BAOEXP
5776*
JMP
0000 OUTCAU,
1027

3336
4524
777S
1336
3134
4517
2570
7777
5610
1027
1021

7640
5610
4520
4070
1410
6201
3021
7130
0056
1021

7710
5610
7132
0021
7640
5253
1056
4476
7150
0021
1375
4500

TAD
DCA
JMS
-3
TAO
DCA
JMS

/IS THIS LEFT SIDE 7
/IF YES» FUN ILLEGAL
/GENERATE CALL
/SKIP IF ERROR
/GO LOOK FOR OPERATOR
/BAD FUNCTION REFERENCE

/GENERATE FUN CALL* TYPE,
/SYMBOL AND TEMP ARE INPUTS
/SAVE FUNCTION NUMBER AROUNO SAVAC

SYMBOL
FUNNUM
QSAVAC

FUNNUM /SETUP FOR FINDING FUNCTION
/INFO BLOCK
WORDl
aLUKUP2 /ON THE FUNCTION LIST

/SAVE SECOND FROM TOP

FUNCTIM
•1

JMP
TAD
TAO
SZA
JMP
MOVARG, JMS
JMS
TAO
CDF
DCA
CLL
AND
TAO
SPA
JMP
CLL
AND
SZA
JMP
TAO
JMS
CLL
AND
TAO
JMS

OUTCAL
SYMBOL
TEMP

/UNDEFINED FUNCTION
/CHECK NUMBER OF ARG8

CLA
I

OUTCAL
QLOAD
SETFLO

X10

TEMP
CML RAR
TYPEl
TEMP
CLA
OUTCAL
I
CML RTR
TEMP
CL*

/GET TOP OF STACK INTO AC
/GET FIELD OF FORMAL-PABAMS
/GET FIRST ONE

/COMPARE TYPE OF ARG
/WITH THAT OF FORMAL PARAMETER
/THEY MUST MATCH
/(THEY DON'T)
/SHOULD WE LEAVE IT IN THE AC

OKINAC /YESi SAVES AN INSTRUCTION
/SET MODE
TYPEl
QMODSET /APPROPRIATELY
I
CMA HAR
/3777
TEMP
/GET 5YM NUMBER
(FSTA
/STORE VALUE IN FORM PARAM
QOUTWRO
I

/OS/a BASIC COMPILER
1B21
1S22
1623
1B24
1625
1826
1627
1628
1629
1630
1831
1832
1633
1634
1835
1636
1637
1838
1839
1840
1641
1642
1643
1844
1845
1846
1847
1846
1849
1850
1851
1652
1853
1854
1855
1856
1857
1656
1659
1660
1661
1862
1663
1664
1865
1866
1867
1866
1869
1870
1671
1672
1873
1874
1875

03253
03254
03255
03256
03257
03260
03261
03262
03263
03264
03265
03266
03267
03270
03271
03272
03273
03274
03275
03276
03277
03300
03301
03302
03303
03304
03305
03306
03307
03310
03311
03312
03313
03314
03315
03316
03317
03320
03321
03322
03323
03324
03325
03326
03327
03330
03331
03332
03333
03334
03335
03336
03337
03340

PAUB-.V8

10/30/72

PAGE 24-1

OKINAC, ISZ
2027
SYMBOL /MORE ARGS ?
JMP
MOVARG
5227
4070
JMS
SETFLD
TAD I
X10
/GET TYPE OF FUNCTION
1410
3056
OCA
TYPEl
/CITS RESULT THAT IS)
CDF
6201
TAD
TYPE
1026
/IS TYPE OF FUNCTION
TAD
TYPEl
/SAME AS TYPE OF CALL
1056
SPA CLA
7710
JMP 1
OUTCAL /NO, ERROR
5610
4476
JMS I
QM0D8ET /ALL CALLS IN N MODE
TAD
MORDl
/CHECK FOR USER FUNCTION
1134
SMA
7500
5303
JMP
CALLUF /YES, DO SPECIAL CALL
2210 FINCAL. ISZ
OUTCAL /FIX RETURN
JMS I
4500
QOUTWRD /OUTPUT CODE
TAD
0400
/SET TOP OF STACK
1133
TAD
1056
TYPEl
OSTACK
3414
OCA I
/TO AC
3414
DCA I
OSTACK /SYMBOL NUMBER IS MEANING
7130
CLL CML RAR
0056
AND
/INTERPRETER MODE SAME
TYPEl
3055
OCA
MODE
/AS FUNCTION TYPE
5610
JMP I
OUTCAL /ON RETURN
4532 CAL.LUF, JMS I
ONOREGS /FORGET REGS ON USER FUNC
TAD
1071
LUFLO
/OUTPUT JSUB
AND
0374
(70
/WITH POINTER TO
7106
/DOUBLE WORD
CLU RTL
1373
TAD
(jsue
/VALUE OF LOCATION
4500
JMS I
QOUTMNO /COUNTER FOR THE
TAD
/START OF THE
1010
X10
7001
lAC
/USER "0EF"1NED FUNC
JMP
5271
FINCAL
0000 FSUBl,
/FOR SUBROUTINE #1
4505
JMS I
OEXPR
/GET AN EXPRESSION
5323
JMP
BADFOR
4520
JMS 1
QLOAO
/LOAD VALUE
1056
TAD
TYPEl
/MUST BE NUMERIC
7700
SMA CLA
5714
JMP 1
/OK
FSUBl
4473 BAOFQR, JMS I
QERMSG /BAD FOR LOOP PARAMETERS
0620
0620
5510
JMP I
QREMARK
0000 FSUB2,
/FOR SUBROUTINE #2
4314
JMS
FSUBl
/GET EXPR AND LOAD IT
4772'
JMS
GENTMP /MAKE A TEMP FOR IT
1027
TAD
SYMBOL /STORE EXPR IN TEMP
1375
TAD
(F8TA
4500
JMS I
QOUTWRD
1027
TAD
SYMBOL /RETURN SLOT #
5726
JMP I
F8UB2
FUNNUM,
000(j
NOREGS,
/FORGET REGISTOrtS
7201
CLA lAC
/FILE NUMBER REG
3063
OCA
IFNREG

PAL8-V8

/05/6 BASIC COMPIUEH
1876
1877
1876
1879
1880
1681
1882
1863
1884
1885
1886

/
/
/

03341
03342
03343
03344
03345
0334fc

03347

5736
4474 CLOSE,
7201
4771*
1370
4500
5507

10/30/72

PAGE 24-2

/SUBSCRIPT REG »1
CMA
SSREGl
OCA
/SUBSCRIPT REG #2
CMA
SSRE62
OCA
NORE&S
JMP I
OLOOSN /OUTPUT STMT NUMBER
JMS I
/NO COLON NEEDED AFTER FILE NUM
CIA lAC
/GET FILE NUM
GETFN
JMS
(CLOSEF /OUTPUT CLOSE
TAD
QOUTWRD
JMS
ONEWLIN
JMP

PAL8-V8

/OS/e BASIC COMPILER
1887
1868
1R89
1890
1891
1892
1893
189a
1895
1696
1697
1696
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
191fl

191S
1916
1917
1918
1919
1920
1921
1922
1923
1924
192S
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1936
1939
1940
1941

03370
03371
03372
03373
03374
0337S
03376
03377
03400
03401
03402
03403
03404
03405
03406
03407
03410
03411
03412
03413
03414
03415
03416
03417
03420
03421
03422
03423
03424
03425
03426
03427
03430
03431
03432
03433
03434
03435
03436
03437
03440
03441
03442
03443
03444
03445
03446
03447
03450
03451
03452
03453
03454

7434
2111
4200
5000
0070
2400
3122
2663
3400
0000
3010
1410
7540
5314
3026
1377
3355
1410
3354
1410
3356
1026
4476
7144

PAGE 25

CODE GENERATOR

PAGE

OUTOPR,
DCA
TAD

SfIA

SZA

JMP
DCA
TAO
OCA
TAO I
DCA
TAD I
DCA
TAO
JM8 I
CLU CMA
TAD
DCA
TAD
DCA
TAO I
OCA
TAO I
DCA
TAO
AND
OCA
TAO
AND
SZA CUA
JMP
CLl. CML
AND
SNA CLA
JMP
JM8 I

101<t

3014
1014
3010
1410
3357
1410
3360
1357
0376
3021
1357
0133
7640
5256
7132
0357
7650
5245
4512
2355
2356
4317
1056
0133
7640
5306
1755
1360
4500

10/30/72

A20K«

MM,

X10
X10

SPCIAL
TYPE
(XLOAO

CASEMM

/OUTPUT CODE FOR OPERATOR
/SAVE POINTER TO SKELETON
/GET CONTROL WORO
/TREAT AS SPECIAL CASE
/ITS THE TYPE ALLOWANCE
/GET SKEL AODRS
/FOR THE THREE CASES

X10

CASEMA
X10

CASEAM
TYPE
/ENTER CORRECT MODE
QMOOSET
RAU
/GET THE SECOND OPERAND
OSTACK
OSTACK
OSTACK
X10
/BY BACKING UP THE STACK
X10
/TYPE
TYPE2
!(10

SYMBL2
TYPE2

/SYMBOL NUMBER

TEMP
TYPE2
Q400

/SS COUNT
/LOOK AT OPERAND

MAC
RTR
TYPE2

/MUST BE CASE M,AC
/ITS IN MEMORY, IS IT SS'U

A20K
/NO, ITS SCALAR
OLOAOSS /LOAD NECESSARY SS REGS
CASEMM /FIXUP THE SKELETON POINTERS
CA8EAM
GETAl
/GET STUF FOR ARGl
TYPEl
/LOOK AT IT
Q400

ISZ
ISZ
JMS
TAO
AND
SZA CUA
JMP
ACM
/ITS CASE AC,M
TAD 1
CASEMM /ITS CASE M,M LOAD OPERAND 2
TAD
SYMBL2
JMS I
aOUTWRD

PAL8-V8

/OS/8 BASIC COMPltE«
1902
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
196e
1961
1968
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1968
1989
1990
1991
1992
1993
1994
1995
1996

03455
03456
03457
03460
03461
03462
03463
03464
03465
03466
03467
03470
03471
03472
03473
03474
03475
03476
03477
03500
03501
03502
03503
03504
03505
03506
03507
03510
03511
03512
03513
03514
03515
03516
03517
03520
03521
03522
03523
03524
03525
03526
03527
03530
03531
03532
03533
03534
03535
03536
03537
03540
03541
03542
03543

7410
431/
7132
0056
7650
5265
4512
2354
1754
1057
4500
7130
0056
1357

7710
5311
1026
1056
7710
5311
1133
1026
3414
3414
5600
1756
1360
5267
4473
1524
5600
1410
3021
5421
0000
7144
1014
3014
1014
3011
1411

3056
1411
3057
1056
0376
3021
5717
4524
7775
4520
3026
3357
1375
5267

SKP
GETAl
JMS
CLL CML RTR
AND
TYPEl
SNA CLA
AlOK
JMP
JMS I
QLOAOSS
CASEMA
ISZ
CASEMA
TAD I
AlOK,
TAD
SYMBLl
QOUTWRO
TYPCHK, JMS I
CLL CML RAR
AND
TVPEl
TyPE2
TAD
SPA CLA
MIXED
JMP
TAO
TYPE
TAD
TYPEl
SPA CLA
MIXED
JMP
Q400
TAD
TAO
TYPE
QSTACK
OCA I
OSTACK
DCA I
JMP I
OUTOPR
CASEAM
TAO I
ACM,
TAD
SYMBL2
JMP
TYPCHK
QERMSG
JMS I
MIXED,

MAC,

152i

10/30/72

PAGE 35-1

/GET STUF FRO AHGl
/IS IT SS'O ?
ITS SCALAR
/LOAD THE SS MEtiS
/BUMP SKELETON AODR
/GET CORRECT INSTRUCTION
/PLUS SYMBOL NUMBER
/OUTPUT IT
/TYPES OF OPERANDS MUST MATC

/NO,

/TMEY DON'T
/TYPE OF OPERATOR
/MUST MATCH
/THAT OF OPERANDS
/THEY DON'T
/GENERATE STACK ENTRY

/THIS IS SAFE
/ITS CASE AC,M
/GEN OPERATION FOR OPERAND
/GO FINISH IT UP
/MIXED TYPES

JMP I
OUTOPR
X10
SPCIAL, TAO I
TEMP
OCA
JMP I
TEMP
GETAl,
CLU CMA RAL
TAD
OSTACK
OCA
OSTACK
OSTACK
TAD
DCA
XU
TAD I
Xll
OCA
TYPEl
TAD I
Xll
DCA
SYMBLl
TAO
TYPEl
AND
C3
DCA
TEMP
JMP I
GETAl
QSAVAC
UMRTNE, JMS I
-3
JMS I
OLOAD
TYPE
OCA
DCA
TYPE2
TAD
(FNEG
TYPCHK
JMP

/GET AODR OF SPECIAL RTNE
/(PLUS 1 FROM THE TYPE i*DRO)
/HANDLE SPECIAL CASE
/GET STUFF FOR ARG I
/BACK UP STACK

/GET TYPEl
/GET SYMBLl

/GET SS COUNT

/SAVE CURRENT AC IF NEEDED
/GET ARG IN AC
/TYPE MUST BE NUMERIC
/OO NEGATE

/OS/8 BASIC COMPILEK
1997
1998
1999
2000
2001
2002

2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016

03544
03545
03546
03547
03550
03551
03552
03553
03554
03555
03556
03557
03560
03561
03562
03563
03564
03565
03566
03567

3026
7126
3021
1374
3027
4773'
5311
5600
0000
0000
0000
0000
0000
4474
4476
1372
1371
1370
4500
5507

P*L6-V8

10/30/72

PAGE as-a

EXPKTN, OCA
TYPE
/SET FUNC TYPE
/SET NUMBER OF AHGS
CtL CMU RTU
TEMP
DCA
TAD
CFUNCl+60
DCA
SYMBOL /E)(P2
JMS
OUTCAU /OUTPUT FUNCTION CALL
JMP
MIXED
/ERROR
JMP I
OUTQPR /DONE
CASEMA,
CASEMM,
CASEAM,
TYPE2,
SYMBl.2,

RETURN, JMS
JMS
TAD
RANDOM, TAD
TAD
STOPX,
JMS
JMP

I
I

QLOOSN /OUTPUT STMT NUM LOAD
QMODSET /ALWAYS RETURN IN N MODE
(RET-RNDO
(RNOO-STOP
(STOP
/RETURN, RANDOMIZE, OR STOP
QOUTMRO
ONEULIN

PAL6-V8

/OS/8 BASIC COMPILEH
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052

03570
03571
03572
03573
0357a
03575
03576
03577

03600
03601
03602
03603
03604
03605
03606
03607
03610
03611
03612
03613
03614
03615
03616
03617
03620
03621
03622
03623
03624
03625
03626
03627
03630
03631

7441
7760
7763
3210
7«76
7a03
0003
0770
3600
0000
4502
560hll

1377
7500
5214
1376
7510
5214
0375
2200
5600
4525
5600
0000
4502
5616
1374
7100
1373
7420
5230
2216
5616
4525
5616

10/3B/72

PAGE 2b

LETTEIi AND DI GIT SCANIMtRS

PAGE
/SKIP ON LETTER

LETTER,
JMS I
JMP I
TAD
SMA
JMP
TAD
SPA
JMP
AND
ISZ
JMP I
N01.ETR, JMS I
JMP I
DIGIT,
JMS I
JMP I
TAD
CLL
07100,
TAD
SNU
JMP
ISZ
JMP I
NODIGT, JMS I
JMP I

QGETC
LETTER
(-133

/NO LETTER
/MUST BE ,LT. 133

NOLETR
(133-100/MUST BE .GT.

Ilia

NOLETR
(77

LETTER
LETTER
08ACK1
LETTER

/RESTORE 6 BITS
/BUMP RETURN ADOR
/PUT CHAR BACK

/SKIP ON OIGIT

QGETC
OIGIT
(-72

/NO DIGIT
/MUST 8E .LT, 72

(72-60

/(USED AS LITERAL BY "TTY ')
/MUST BE ,G£, 60

NODIGT
OIGIT
DIGIT
QBACKl
OIGIT

/NOPE
/RETURN DIGIT MINUS 60
/PUT IT BACK

•

•
PALB-V6

/OS/8 BASIC COMPILER
2053
2054
2055
2056
205T
20SB
2059
2060
2061
2062
2063
2064
2065
2066
2067
206S
2069
20T0
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107

10/30/72

PACE 27

STATEMENT NUMBER GETTER
/GET A STATEMENT NUMBER
TEMP
/SAVE DEFINED SWITCH
DCA
JMS I
QOIGIT /GET FIRST DIGIT
/NO STATEMENT NUMBER
JMP I
SNUM
M0R02
/THIS WILL BE THE BUCKET
DCA
TAD
WQRD2
/TWO WORDS PER BUCKtT
CUU RAL
TAO
CSNUMS
OCA
BUCKET
/OK, ITS A STMT NUMBER
SNUM
ISZ
(-4
TAD
/FIVE DIGITS MAX
TEMP2
OCA
/CLEAR TOP WORD
DCA
WQROl
QDIGIT /GET NEXT DIGIT
SNL.OOP* JMS I
JMP
GOTSN
/END OF NUMBER
/SAVE IT
DCA
H0RD3
(-4
TAD
/SET SHIFT COUNT

03632
03633
03634
03635
03636
03637
03640
03641
03642
03643
03644
03645
03646
03647
03650
03651
03652
03653
03654
03655
03656
03657
03660
03661
03662
03663
03664
03665
03666
03667
03670
03671
03672
03673
03674
03675
03676
03677
03700
03701
03702
03703
03704
03705
03706
03707
03710
03711
03712
03713
03714
03715
03716
03717

0000
3021
4531
5632
3135

U35
7104
1372
3272
2232
1371
3022
3134
4531
5271
3136
1371
3137
1135
7104
3135
1134
7004
3134
2137
5254
1135
1136
3135
2022
5247
4517
0000
7776
5316
7130
0027
0021
7640
5325
1010
3022
4070
1021
1027
3422
6201

SNUM,

SHIFT,

GOTSN,
BUCKET,

FINSN,

1071

0370
7106
3021
5632
4070
1021

NEW8N,

ACQ
DCA
W0RD2
TAD
CLl RAL
W0RD2
OCA
TAD
WORDl
RAL
MORDl
OCA
ACQ
ISZ
JMP
SHIFT
TAD
M0RD2
W0R03
TAO
M0R02
OCA
TEMP2
ISZ
JMP
SNLOOP
JMS I
QLUKUP2
-2
JMP
NEMSN
CLL CML RAR
AND
SYMBOL
AND
TEMP
SZA CLA
JMP
MOLABL
TAO
X10
DCA
TEMP2
JMS
SETFLD
TAD
TEMP
SVMaQL
TAD
DCA I
TEMP2
COF
TAO
LUFLO
AND
(70
CLL RTL
OCA
TEMP
JMP I
SNUM
JMS
SETFLD
TEMP
TAD

mimm

/SHIFT LEFT ONE BIT

/BUMP SHIFT COUNTER
/PUT IN NEW DIGIT

/BUMP DIGIT COUNT
/FIND STMT NUMBER
/ITS A NEW STMT NUM
/CHECK FOR MULTIPLY DEFl

/YES, IT IS
/GET ADDR OF LABEL VALUE

/GET TO FIELD OF ENTRY
/OR IN THESE BITS

/GET FIELD BITS

/INTO A CONVIENIENT
/PLACE
/GET FIELD
/PUT IN BITS

PAL8-V8

/OS/B BASIC COMPILEi^
2108
2109
2110
2111
2112
2113
2114
2115
Zllfe

2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131

03720
03721
03722
03723
0372«
03725

3ai6
1016
3022

0372«»

1504
5632
0000
0375
1367
7510
1222
1366
4340
5730
0000
7410
5346
6041
5343
6046
7200
5740

03727
03730
03731
03732
03733
03734
03735
03736
03737
03740
03741
03742
03743
03744
03745
03746
03747

3«lfc
SSlk)

ami

OCA I
TAD
DCA
DCA I
JMP
MDUABLi JMS I
1504
JMP I
TTY,
AND
TAD
SPA
TAD
TAD
JMS
JMP I

NEXT
NEXT
TeMP2
NEXT
FINSN
QERMSG

PAGE 27-1

/SAVE N3 AOD«
/I

EXTRA WORD

/MULTIPLY DEFINED
/LABEL

SNUM
C77

C-48

07100
(240
TTX
TTY

TTX,

5KP
JMP
TSF
JMP
TLS
CLA
JMP

10/30/72

/CONVERT TO ASCII AND PRINT
/SIX BITS ONLY
/WHAT SIDE OF FORTY ?
/LOW SIDE
/HIGH SIDE
/PRINT CHAR
/RETURN
/PRINT CHAR ON TTY
/(CONTROL
ZEROES THIS WORD)
/(THUS KILLING ERROR REPORTING)

,«1

TTX

•

•
/OS/8 BASIC COMPIUEK
2132
2133
2134
2135
2136
2137
2136
2139
2140
2141
2142
2143
2144
2145

03750
03751
03752
03753
03754
03755
03756
03757
03760
03761
03762
03763
03764

4474
4505
5510
4520
1056
7700
4473
0616
1365
4S00
5507
3000
6400

PAL6-V8
/ CHAIN PROCESSOR
QLODSN
JMS I
CHAIN,
QEXPR
JMS I
QHEMARK
JMP I
JMS I
QUOAD
TAD
TVPEl
SMA CUA
QERMSG
JMS I
0616
(CHN
TAD
QOUTMRD
JMS I
JMP I
QNENLIN
FISUBlAISUa
XISUB,

10/30/72

PAGE 26

/OUTPUT STMT NUMBtR
/GET CHAIN STRING
/INTO SAC
/TYPE MUST BE STRING
/IT WASN'T
/COK IF ERROR CODE IS NOP)

/OUTPUT CHAIN OPCODE

PAL8-V8

/OS/8 BASIC COMPIUEH
2146
2147
21«B
21«9
2150
2151
2152
2153
2154
2155
215(>

2157
2158
21S9
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
21T2
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2l9«
2195
2196
2197
2198
2199
2200

03765
03766
03767
03770
03771
03772
03773
03774
03775
03776
03777
04000
04001
04002
04003
04004
04005
04006
04007
04010
04011
04012
04013
04014
04015
04016
04017
04020
04021
04022
04023
04024
04025
04026
04027
04030
04031
04032
04033
04034
04035
04036
04037
04040
04041
04042
04043
04044
0404S
04046
04047
04050
04051

7414
0240
774U
0070
7774
2532
0012
7706
0077
0033
7645
4000
0000
7240
1020
3020
7240
1017
3017
5600
0000
2020
5216

SEVERAL SHORT UTILITY ROUTINES

PAGE
CLA CMA
NCHARS
TAD
NCHARS
OCA
CIA CMA
CHRPTR
TAD
OCA
CHRPTR
JMP 1
BACKl

5243
7240
3020
5635
1417
1377

7450
5236
1376
2235
5635

/GET

GETCWB,

NCHARS
ISZ
JMP
.+4
CLA CMA
NCHARS
OCA
GETCiJB
JMP I
GETCWB
ISZ
CHRPTR
TAD I
JMP I
GETCWB

3020
5610
2210

1017
3366
5621
0000
1366
3017
1365
3020
5627
0000

/BACK UP ONE CHAR

BACKl,

724k)

1417
5610
0000
1020
336S

PAGE 39

10/30/72

CHARACTER (PRESERVE BLANKS)

/RESET NCHARS
/GET THE CHAR

/SAVE CHAR POSITION

SAVECP,
TAD
OCA
TAD
DCA
JMP

NCHARS
NCSAVE
CHRPTR
CPSAVE
SAVECP

CPSAVE
CHRPTR
NCSAVE
NCHARS
RESTCP

/RESTORE CHAR PD3

RESTCP,
TAD
DCA
TAD
DCA
JMP

/GET

GETC,

NCHARS
ISZ
,4
JMP
CLA CMA
NCHARS
OCA
JMP I
GETC
CHRPTR
TAD I
TAD
(-40
SNA
JMP
GETC+1
TAD
C40
ISZ
GETC
JMP 1
GETC

/IS IT

CHARACTER (IGNORING BLANKS)

BLANK

/YES IGNORE IT
/FIX CHAR

P4L6-V8

/OS/a BASIC COMPIUEK
2201
S202
2203
2204
2205
2206
3207
2206
2209
2210
2211
2212
2213

22H
2215
2216
2217
22ie
2219
2220
2221
2222
2223
2224
2225
2226
2227
2226
2229
2230
2231
2232
2233
2234
2235
2236
2237
2236
2239
2240
2241
2242
2243
2244
2245
2246
2247
2246
2249
2250
2251
2252
2253
2254
2255

04052
040S3
04054
04055
04056
04057
04060
04061
04062
04063
04064
04065
04066
04067
04070
04071
04072
04073
04074
04075
04076
04077
04100
04101
04102
04103
04104
04105
04106
04107
04110
04111
04112
04113
04114
04115
04116
04117
04120
04121
04122
04123
04124
04125
04126
04127
04130
04131
04132
04133
04134
04135
04136
04137
04140

0000
1015
3262
7240
1015
3015
1662
5652
0000
3415
1375
1015
7710
5662
4473
2004
5406
0000
3414
1374
1014
7710
5673
5270
0000
4502
5702
1373
7450
2302
7440
1372
7450
2302
7640
4525
5702
0000
4511
1056
4476
1056
0133
7640
5717
7132
0056
7650
5335
4512
1371
1370
1057

4500
5717

PAUE 29-1

10/30/72

/GET TOP OF STACK

POP,

STACK
TAD
OCA
PUSH
CLA CMA
TAO
STACK
STACK
OCA
PUSH
TAO I
JHP I
POP
PUSH,
OCA I
TAD
TAD
SPA CLA
JMP I
STKOVR, JMS I
2004
JMP
PUSHO,
OCA
TAD
TAD
SPA CUA
JMP
JMP
CDMARP,
JMS
JMP
TAD
SNA
ISZ
SZA
TAD
SNA
ISZ
SZA CLA
JMS I
JMP I
LOAD,
JMS I
TAO
JMS 1
TAO
AND
SZA ClA
JMP I
CLL CML
AND
SNA CLA
JMP
JMS I
TAO
TAD
TAO
JMS I
JMP 1

/DECREMENT STACK POINTER

/PUT AC ONTO STACK
STACK
/STORE
C-STACKA-STAKSZ+1
STACK
/CHECK FOR OVERFLOW

PUSH
0ERMS6

/OK,

RETURN

/ABORT COMPILATION
/PUSH OPERAND STACK
OSTACK
/PUSHIT
C-STACKQ-STOKSZ*!
/CHECK FOR STACK OVERFLOW
OSTACK

XABORT

PUSHO
STKOVR
QGETC
COMARP

/TOO FULL
/SKIP ON COMA OM RITE PAREN
/GET CHAR

t-51

COMARP

/RITE PAREN, SKIP

(51-54

/CHECK FOR

COMARP

QBACKl
COMARP

/NEITHER PUT BACK

SKIP

/LOAD SAC OR FAC
QGETAl
/GET TOP OF STACK
TYPEl
/SET MODE
QMOOSET
TYPEl
/IS IT IN THE AC?
0400

LOAD
RTR
TYPEl

/YUP

.*3

/NO

/SUBSCRIPTED

QLOAOSS /FILL SS REGS
(AFUDA- FLOA
/ARRAY OR SCALAR LOAD
CFLOA
SYMBLl
/PLUS SYMBOL NUMBER
OOUTWRO
LOAD

PALe»V8

/OS/8 BASIC COMPILES

2256
2257
2250
2259
2260
22e>l
22(>2

2263
226tt

2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277

04141
04142
04143
04144
04145
04146
04147
04150
04151
04152
04153
04154
04155
04156
04157
04160
04161
04162
04163
04164
04165
04166

5003
0302
5003
0104

IFOPS,

500<2

0202
5002
0103
5007
0204
5007
0303
0000
5006
0300
5004
0200
5005
0400

000k)

JNEj-7476

JNEf-7674

/><

JGE»-7576

/«>

00012

0000

10/30/72

NCSAVE,
CPSAVEf

JGE»-7675

/>"

JLEf-7574

/"<

JUE;-7475

/«

JEQI-75B0

/»

J6Tf<<'76«10

JLTj-7400

/«

PAGE 29-2

PAL6-V8

/OS/8 BASIC COMPILEH
2278
2279
2280
2281
2282
2283

228(>

04170
04171
04172
04173
04174
04175
04176
04177

2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332

04200
04201
04202
04203
04204
04205
04206
04207
04210
04211
04212
04213
04214
04215
04216
04217
04220
04221
04222
04223
04224
04225
04226
04227
04230
04231
04232
04233
04234
04235
04236
04237
04240
04241
04242
04243
04244
04245
04246
04247
04250
04251
04252
04253
04254

228tt

2285

2000
4640
7775
7727
6601
0601
0040
7740
4200
0000
7640
5213
1033
2033
3134
4517
2556
7777
4223
5600
103S
2035
3134
4517
2560
7777
4236
5600
0000
1040

TEMP 6ENER ATO 43 AND

AC:

PAGE

3^1

SAVIN6 KuurxNta

PACE

/GENERATE

GENTMP,
SZA CLA
JMP
TAO
ISZ
DCA
JMS I
TEMPS

TEMP

STRTMP /ITS A STRING TEMP
TMPCNT
/BUMP COUNT
TMPCNT
NAMEl
QLUKUP2 /LOOK UP THIS TtMP

-1

JM8
JMP
STRTMP, TAD
ISZ
DCA
JMS

NEMVAR /NEM ONE ON ME
GENTMP
STMPCT
STMPCT /3UMP COUNT
NAMEl
QLUKUP2 /LOOK UP THIS TEMP

STEMP8
•1

JMS
JMP

NWSVAR
GENTMP

NEWVAR,

1377
3027
1027
407ld

3416
6201
2040
5623
5776'
0000 NWSVAR,
1041
1377
3027
1027

4070
3416
6201
2041
5636
5776'
0000 SAVAC,
1651
1014
2251

181/30/72

TAD
TAD
DCA
TAD
JMS
DCA
CDF
ISZ
JMP
JMP

TAD
TAD
DCA
TAD
JMS
DCA
CDF
ISZ
JMP
JMP
TAO
TAO
ISZ

VARCNT

/NEW STRING TEMP

/MAKE SYM NUM FOR VAR
/PUT SYM NUM

(401

SYMBOL
SYMBOL
SETFLD
NEXT

/INTO SYMBOL
/AND INTO ST ENTRY

VARCNT
NEWVAR
STOVER

/8UMP COUNT
/RETURN WITH SYM NUM
/S.T. OVERFLOW
/MAKE SYM NUM FOR VAR$
/PUT SYM NUM

SVCNT
(401

SYMBOL
SYMBOL
SETFLO
NEXT
SVCNT
NWSVAR
STOVER
SAVAC
OSTACK
SAVAC

/INTO SYMBOL ANO
/S.T. ENTRY

/OVERFLOW 7
/NO, WE'RE OK
/SAVE FAC (OR SAC) IF
/GET ENTRY POINTER

/OS/8 BASIC COMPILEK

3333
a334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
234S
2349
2350
2351
2352
2353
2354

04255
04256
04257
04260
04261
04262
04263
04264
04265
04266
04267
04270
04271
04272
04273
04274
04275
04276
04277
04300
04301
04302

3300
1700
0133
7650
5651
7130
0700
3700
1700
4200
1700
4476
1301
1027

4500
1027

2300
3700
5651
0000
2400
6700

PALe-V8
OCA
3VTEMP
TAD 1
SVTEMP
AND
Q400
SNA CLA
JMP I
SAVAC
CLL CML RAR
AND 1
SVTEMP
DCA I
SVTEMP
TAD 1
SVTEMP
JMS
GENTMP
TAD I
SVTEMP
JMS I
QM0D8ET
TAD
XSTOR
TAD
SYMBOL
JMS 1
OOUTWRD
TAD
SYMBOL
ISZ
SVTEMP
DCA I
SVTEMP
JMP I
SAVAC

SVTEMP,
XSTOR,
FSTAMFSTA

10/30/72

PAGE 30-1

/ADDS OF TYPE WUSD
/LOOK AT IT

/NOT IN AC
/SAVE STRING BIT ONLY
/OF TYPE WORD

/GENERATE TEMP
/SET MODE

/GENERATE STORE
/RETURN S.T, NUMBER
/MOVE TO SYMBOL NUM WORD
/SAVE THE TEMP NUM THERE
/RETURN WITH SAVE MADE

PAL8-V8

/OS/B BASIC COMPILEN

2355
2356
2357
2356
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396

0000
7144

04320
04321
04322
04323
04324
04325
04326
04327
04330
04331
04332
04333
04334
04335
04336
04337
04340
04341
04342
04343
04344
04345
04346
04347
04350
04351
04352

4473
2323
5703
0000
3022
7144
1014
3014
1014
3011

1021

7650
5314
7420
5320
4323
5703
7201
4323
4323
5703

1411

7510
5320
0133
7640
5347
1022
7640
1375
1374
1411
4500
5723
1022
1373
4500
5723

PAGE 51

SUBSCRIPT REGISTEK LOADING ROUTINE
/LOAD SS REGS
LOAOSS,
/LOOK AT NUMBER OF SS
CLL CMA RAL
TAD
TEMP
SNA CLA
JMP
L00SS2 /2 SS
SNL
/MORE THAN 2
TOOMNY
JMP
SSLOAD /LOAD SS REG 1
JMS
LOAOSS
JMP I
L00SS2, CLA lAC
JMS
SSLOAD /LOAD SS REG 2
JMS
SSLOAD /NOW SS REG 1
JMP I
LOAOSS
S8TYPE,
QERMSG /SUBSCRIPTING ERROR
TOOMNY, JMS I
2323
JMP I
LOADSS
/LOAD A SS REG FROM TOP OF STACK
SSLOAD*
OCA
TEMP2
/SS REG 1 OR 2 SWITCH
/BACK UP ONE ENTRY
CLL CMA RAL
OSTACK
/ON THE OPERAND STACK
TAD
OSTACK
OCA
TAD
OSTACK
OCA
/USE Xll TO GET STUFF
xu
/GET TYPE WORD
TAD I
Xll
SPA
JMP
SSTYPE /SS MUST BE A NUMBER
AND
Q400
/GET AC BIT
SZA CLA
SSINAC /ITS IN THE AC
JMP
TEMP2
TAD
SZA CLA
TAD
(LSS2-LSS1
TAD
/LOAD REG 1 OR 2 77
(LSSl
/ANYHOW, THIS IS THE SOURCE
TAD I
Xll
JMS I
OOUTWRD /OUTPUT THE CODE
JMP I
SSLOAD
T F HP 9
SSINAC, TAD
TAD
(LSSIAC /NOTEl LSS2AC«LSSl AC*l
JMS I
QOUTWRD /SO OUTPUT ONE OF THEM
JMP I
SSLOAD
/

04303
04304
04305
04306
04307
04310
04311
04312
0«313
04314
04315
04316
0«317

10/30/72

/OS/8 BASIC CQMPILEH
2397
2398
2399
2402
2ttfll

2002
2403
2404

PAUfl-VS

/INPUT DEVICE
04373
04374
04375
0437b
04377
04400

7406
4000
0400
2337
0401
4400
0000

•INOEVH

10/30/72

PAGE 32

•
PAL8-V6

/OS/8 BASIC COMPIUEK

aaes
2406
2407
2408
2409
2410
2411
2412
2413
2414
2415
2416
2417
2416
2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429
2430
2431
2432
2433
2454
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2456
2459

460li9

04600
04601
04602
04603
04604
04605
04606
04607
04610
04611
04612
04613
04614
04615
04616
04617
04620
04621
04622
04623
04624
04625
04626
04627
04630
04631
04632
04633
04634
04635
04636
04637
04640
04641
04642
04643
04644
04645
04646
04647
04650
04651
046S2
04653
04654
04655
04656
04657
04660
04661
04662
04663
04664

6212
4777
0005
0201
6221
1413
6211
3412
2021
5204
6211
3410
6201
1411

7450
5236
3225
7201
6212
4777
0002
0000
0000
5776'
1225
7001
6211
3410
6201
5215
7201
6212
4777
0002
7562
0000
5247
1242
7001
6211
3410
6201
7201
6212
4777
0003
7566
0000
5776*
1256
3775*
1256
3046

10/30/72

PAGE 33

/INITIALIZATION CODE FOR KUN CASE
PAGE
/COME HERE IF ,H BCOMP
10
RUNNEDf CIP
/CALL COMMAND DECODER
JMS I
C200
5

0201
COP
TAD I
COP
OCA I
ISZ
JMP
COP
DCA I
CDP
PIND8V, TAD I
SNA
JMP
OCA
CLA lAC
CIP
JMS I

/ASSUMED EXTENSION "BA"
20
X13
10
X12

/SAVE LOCATIONS 27774 THRU 27777
/THESE ARE THE BOS PARAMETERS

TEMP
• •5
10

X10

/ZERO EDITOR BLOCK NUMBER

Xll

/LOOKUP SOME SAVE PILES

LUBUP
XXXXSV

/GO LOOK FOR BASIC, UP
/SAVE POINTER TO NAME
/THEY'RE ON SYS

(200

XXXXSV,

LUBUP)

JMP
NG
XXXXSV
TAO
lAC
CDP
10
OCA X
X10
COP
JMP
PINDSV
CUA lAC
CIP
10
(200
JMS I

/ERROR
/GET STARTING BLOCK
/PLUS 1
/INTO INFO AREA
/LOOP

/LOOKUP BASIC, UF

3TRT3,

BUPN

/(USER DEFINED FUNCTIONS)

.3
JMP
.-3
TAO
lAC
10
CDP
DCA I
X10
CDP
CLA lAC
CIP
10
JMS I
(200

/OK IP NOT THERE
/GET STARTING BLOCK +1

/INTO INFO BLOCK
/ENTER TEMPORARY FILE

TMPBLK,

TMPFIL
JMP
TAO
DCA
TAD
DCA

TMPBLK
OUBLOK
TMPBLK
BLOCK

/SAVE START OF TEMP FILE
/IN

COUPLE PLACES

/OS/a BASIC COMPILER

2060
2461
2462

00665
04666
04667

1257
3774»
5773'

PALe-V8
TAD
DCA
JMP

10/3fe)/72

PAGE 33-1

TMPBLK+l/ALSO THE SIZE
OUSIZE
/GO FETCH DEVICE HANDLER
GETDEV

#
/OS/8 BASIC COMPILER

2463
2464
246S
24fc<>

2467
2468
2469
2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
249S
2496
2497
2498
2499
2500
2501
2S02
2503
2504
2505
2506
2507
2508
2509
2510

2Sn
2512
2513
2514
2515
2516
2517

04773
04774
04775
04776
04777
05000
05001
09002
05003
05004
05005
05006
05007
05010
0S011
05012
05013
05014
05015
05016
05017
05020
05021
05022
05023
05024
05025
05026
05027
05030
05031
05032
05033
05034
05035
05036
05037
05040
05041
05042
05043
05044
05045
05046
05047
05050
05051
05052
05053
05054
05055
05056
05057

P4Le-V6

10/30/72

PA6E 34

/ NUMERIC CONVERSION ROUTINE (PART ONE)
7032
6506
6475
7120
0200
5000
PACE
0000 NUMBER
/GENERAL NUMBER CONVERSION ROl
3023
OCA
OECPT
/ZERO DECIMAL POINT SWITCH
3134
DCA
WORDl
/ZERO FAC
3135
DCA
M0R02
3136
DCA
M0R03
3137
OCA
ACO
3212
DCA
SIGN
/CLEAR SIGN SWITCH
4502
JMS I
OGETC
/GET A CHAR
5600
JMP I
NUMBER /NO CHAR IS NO NUMBER
4777*
JMS
CHKSGN /CHECK FOR SIGN
0000 SIGN,
/THIS SWITCH GETS SET
3024
OCA
NDIGIT /ZERO DIGIT COUNT
4531
CONVLPi JMS I
QOIGIT /GET A DIGIT
5240
JMP
TRYOEC /IS THERE A DECIMAL POINT 7
335S
DCA
NXTDGT /SAVE THE DIGIT
2024
ISZ
NDIGIT /INCR NUMBER OF DIGITS
113S
TAD
W0RD2
/PREPARE TO MULT BY 10
3141
DCA
0P2
TAD
U36
W0R03
3142
DCA
0P3
1137
TAD
ACO
3143
DCA
OPO
4776
JMS I
(ALl
/DOUBLE FAC
4776
JMS I
(ALl
/DOUBLE AGAIN
4775
JMS I
(OAOD
/TIMES FIVE
4776
JMS I
(ALl
/ONE MORE DOUBLING IS TIMES 10
3141
DCA
0P2
3142
DCA
OPS
/PUT NEWEST DIGIT INTO OPERAND
1355
TAD
NXTDGT
3143
DCA
OPO
4775
JMS I
(OADO
/ADD IN NEWEST DIGIT
5214
JMP
CONVLP
1023
TRYOEC, TAD
DECPT
/DECIMAL ALREADY 7
7640
SZA CLA
5256
JMP
TRYE2
/YES, LOOK FOR EXPONENT
4502
JMS I
QCETC
/LOOK FOR ,
5253
JMP
OIGTST /SEE IF THERE WAS ANYTHING
1374
TAD
(•56
7640
SZA CLA
5252
JMP
TRYEl
/TRY FOR E
2023
ISZ
DECPT
/SET DECIMAL POINT SW
S21i
JMP
CONVLP- 1/LOOP FOR OTHER DIGITS
4525 TRVEl,
JMS I
QBACKl
/PUT BACK NON ,
1024
DI5TST, TAD
NDIGIT /ANY DIGITS YET 7
7650
SNA CLA
5600
JMP I
NUMBER /NO, NO NUMBER
4502 TRyE2,
JMS I
QGETC
/LOOK FOR E
5300
JMP
NOEXP^l /GO HANDLE EXPONENT

/OS/8 BASIC COMPILEH

2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
253(>

2537
2536
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
2570
2571
2572

05060
05061
05062
05063
05064
0S06S
05066
05067
05070
05071
05072
05073
05074
05075
05076
05077
05100
05101
05102
05103
05104
05105
05106
05107
05110
05111
05112
05113
05114
05115
05116
05117
05120
05121
05122
05123
05124
05125
05126
05127
05130
05131
05132
05133
05134
05135
05136
05137
05140
05141
05142
05143
05144
05145

PAL6-V8

10/30/72

PACE 34-1

wSTEP+2 /USE PART OF "STEP" LITERAL,
T*0
1360
SZA CLA
7640
/NO EXPONENT
NOEXP
JMP
5277
/ZERO EXPONENT SIGN SWITCH
ESI6N
GETEXP, OCA
3267
/GET A CHAR
QGETC
JMS
I
4502
/TREAT AS NO EXPONENT
NOEXP
JMP
5277
CHKS6N /IS IT A SIGN
JMS
4777*
FPRTNE,
/THIS IS THE SWITCH TQ SET
0000 ESIGN,
/GO GET THE EXPONENT
SMLNUM
JMS
4773'
/CHECK EXPONENT SIGN
ESIGN
FIXEXP, TAD
1267
SNA
CIA
7650
N0EXP*2
JMP
5301
/COMPLEMENT EXPONENT
EXPON
TAD
1025
CIA
7041
SKP
7410
/PUT BACK NON E
QBACKl
JMS 1
NOEXP,
4525
/ZERO EXPONENT
EXPON
OCA
3025
/NORMALIZE THE NUMBER
TAO
C43
1372
WORDl
DCA
3134
CANORM
JMS I
4771
/WAS THERE A DECIMAL POINT ?
oecPT
TAD
1023
CUA
SZA
7640
NDIGIT /HOW MANY DIGITS TO THE RIGHT ?
TAD
1024
CIA
7041
/SUBTRACT THAT NUMBER FROM EXP
EXPON
TAD
1025
SMA
7500
P03EXP /EXPONENT IS POSITIVE
JMP
5317
CIA
7041
/ONLV NEED ABS VALUE
EXPON
DCA
3025
/DO DIVIDES
(FPDIV
TAD
1370
.3
JMP
5321
EXPON
3025 POSEXP, OCA
/DO MULTIPLIES
(FPMUL
TAD
1367
FPRTNE /MULTIPLV/OIVIOE ROUTINE
DCA
3267
(PETABL •1
TAO
1366
/POWERS OF TEN TABLE
OCA
XU
3011
/LOOK AT THE EXPONENT
EXPON
TAD
EXPMUL,
1025
SNA
7450
ITS THRU
DOSIGN /IF
JMP
5350
CLL RAR
7110
EXPON
/PUT LOWEST BIT INTO LINK
OCA
3025
SNL
7420
SKPEXP /THIS ONE DOESN'T COUNT
JMP
5345
/MOVE FACTOR INTO OPERAND
TAD I
XU
1411
OPl
OCA
3140
TAO I
XU
1411
0P2
DCA
3141
TAD I
XU
1411
OCA
0P3
3142
TAO I
XU
1411
OPO
DCA
3143
FPRTNE /MULTIPLY OR DIVIDE BY THIS FACTOR
JMS I
4667
EXPMUL /CHECK NEXT BIT
JMP
5324
/SKIP OVER THIS FACTOR
XU
SKPEXP, TAD
1011

PAU8-va

/08/8 BASIC COMPILER

2573
2574
2575
2576
2577
2576
2579
2580
2581
2562
2583
2564
2585
2586

05146
05147
05150
05151
05152
05153
05154
05155
05156
05157
05160
05161
05162
05163

136S
5323
1212
7640
4764
2208
5600
0000
7655
7654
7673
7660
0000
6440

10/30/72

PAGE 34-2

(4
TAD
JMP
EXPMUL-l
/CHECK THE SIGN
SIGN
DOSIGN, TAD
SZA CLA
(NE6FAC /NEGATE IF NEGATIVE
JMS I
NUMBER /BUMP RETURN
182
NUMBER /RETURN
JMP I
NXTD6T,
•123»-124»-105»-120
WSTEP,

XADOf

FADOIAFAOD

/OS/8 BASIC COMPILER
2587
258S
2589
2590
2591
2592
2593
259a
2595
2596
259T
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
iblH
2615
2616
2617
2618
2619
2620
2621
2622
2623
262a
2625
2626
2627
2628
2629
2630
2631
2632
2633
263a
2635
2636
2637
2638
2639
2640
26ai

PAL6-V8
/

05164
05165
05166
05167
05170
05171
05172
05173
0517a
05175
05176
05177

05200
05201
05202
05203
0520a
05205
05206
05207
05210
05211
05212
05213
052ia
0S21S
05216
05217
05220
05221
05222
05223
0522a
05225
05226
05227
05230
05231
05232
05233

5267
0004
5777
5200
5310
5236
00a3
5a00
7722
5353
5431
5444
5200
0000
1134
1140
3140
1135
3234
1136
3235
1377
3371
3135
3136
3137
4776
1234
7110
3234
1235
7010
3235
7430
4353
2371
5215
1140
3134
4236
5600

0523a

0000

05235

0000

05236
05237
0S240
052ai
0S2a2
052a3
0524a
052a5

0000
113S
7450
1136
7450
1137
7650
5265

NUMERIC CONVERSION

10/3k)/72

PAKE iS

PAGE
FPMUL,
TAO
MORDl
TAD
OPl
OCA
DPI
TAO
M0R02
DCA
TW2
TAD
WOR03
OCA
TSN3
TAO
(-30
OCA
ITRCNT
DCA
W0RD2
DCA
W0R03
OCA
ACO
MULLUPi JMS I
(ARl
TAD
TW2
CLL RAR
DCA
TW2
TAO
TW3
RAR
DCA
TW3
8ZL
JM5
OAOO
I8Z
ITRCNT
JMP
MULtUP
TAD
OPl
DCA
WOROl
JMS
ANORM
JMP I
FPMUL
D2»
TW2,
03,
TK3,
NFCNT,
ANORM,

TAO
W0RD2
SNA
TAD
WDRD3
SNA
TAD
ACO
SNA CLA
JMP
ZEXP

/FLOATING MULTIPLY ROUTINE
/COMPUTE NEW EXPONENT
/SAVE AC MANTISSA

/SET ITERATION COUNTER

/ZERO FAC MANTISSA
/SHIFT FAC RIGHT ONE
/SHIFT MULTIPLIER RIGHT

/ADD IF LINK IS ONE
/BUMP COUNT
/LOOP
/PUT IN CORRECT EXPONENT

/NORMALIZE THE RESULT

/NORMALIZE FAC
/IS MANTISSA

/YES,

ZERO EXPONENT

PALB-V8

/OS/8 BASIC COMPILER
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
269a
2695
2696

05246
05247
05250
05251
05252
05253
05254
05255
05256
05257
05260
05261
05262
05263
05264
05265
05266
05267
05270
05271
05272
05273
0S274
05275
05276
05277
05300
05301
05302
05303
05304
05305
05306
05307
05310
05311
05312
05313
05314
05315
05316
05317
05320
05321
05322
05323
05324
05325
05326
05327
05330
05331
05332
05333
05334

7332
1135
7440
5256
1136
7450
113T
7640
7710
5636
4775
7240
1134
3134
5246
3134
5636
0000
1374
3307
7146
3236
7100
7004
1707
7161
3707
7260
1307
3307
2236
5275
5667
0000
0000
4776
1140
7041
1134
3140
1377
3371
1135
7004
7210
1141

7710
5330
1373
4267
4353
1235
7004
3235
1234

NORMLP» CLA CLL
TAD
SZA
JMP
TAD
SNA
TAO
SZA CLA
NQ6000> SPA CLA
JMP I
JMS I
CWA CMA
TAD
OCA
JMP
DCA
ZEXP»
JMP I
NEGFAC,
TAD
OCA
CLU CMA
DCA
CIL
NFIOOP, RAL
TAO I
CLL CML
DCA I
CML CLA
TAD
DCA
ISZ
JMP
JMP

10/30/72

PAGE 35-1

CML RTR /IS HIGH ORDER MANTISSA
M0RD2

NO6000
M0R03

/NO, SKIP THIS CRAP
/YES» IS THE REST

6000

ACQ

/SKIP IF 600000 ... 0000

(ALl

/NORM IS DONE WHEN BITS DIFFER
/SHIFT LEFT ONE
/DECREMENT EXPONENT

MOROl
MORDl
NORMLP
MOROl
ANORM

/LOOP

AMORM

(ACQ

NFPTR
RTL
NFCNT

NFPTR
CIA
NFPTR
CMA
NFPTR

NFPTR
NFCNT
NFLOOP
NECFAC

/NEGATE FAC
/GET POINTER TO OPERAND
/THREE MORO NEGATE

/GET NEXT WORD

/RESTORE AFTER COMPLEMENTING
/LINK GETS COMPLEMENTED ONCE HERE
/AND ONCE AGAIN HERE
/RESTORE DECREMENTED POINTER

NFPTR,
FPDIV,
(ARl
JMS I
TAD
OPl
CIA
TAD
WORDl
OPl
OCA
TAD
C-30
DCA
ITRCNT
TAD
W0RD2
RAL
FPOVUP» CUA RAR
TAO
0P2
SPA CLA
JMP
.3
TAD
COPO-AC
JMS
NE6FAC
JMS
OADD
TAD
03
RAL
DCA
03
TAD
02

/UNNORMALIZE AC BY ONE
/COMPUTE FINAL EXPONENT
/AND SAVE IT
/SET ITERATION COUNTER

/INITIALIZE LINK
/COMPARE SIGNS

/ADO OPERAND AND FAC

/OS/fl BASIC

8697
S696
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
2711
2712
2713
2714
2715
2716
2717
271S
2719
2720
2721
2722
2723
2724
2725

0533S
05336
05337
05340
05341
0S342
05343
05344
05345
05346
05347
05350
05351
05352
05353
05354
0S355
05356
05357
05360
05361
05362
05363
05364
05365
05366
05367
05370
05371

PAL6-V8

COMPILER
7004
3234
4775
2371
5322
1140
3134
1234
3135
1235
3136
3137
4236
5710
0000
7100
1143
1137
3137
7004
1142
1136
3136
7004

RAU
OCA
JMS
ISZ
JMP
TAO
DCA
TAD
DCA
TAO
OCA
OCA
JMS
JMP

02
(ALl

ITRCNT
FPDVLP
OPl
WOROl
02

/LtFT SHIFT FAC ONE
/TEST ITERATION COUNT
/PUT QUOTIENT INTO FAC

M0RD3
ACQ
ANORM
FPOIV

/NORMALIZE
/ADD OPERAND TO FAC

CIL
TAD
TAD
DCA
RAL
TAD
TAD
OCA
RAL
TAD
TAD
OCA
JMP

ITRCNT,

PAGE iS'i

M0RD2

OADO,

1141
1135

3135
5753
0000

10/30/72

OPO
ACO
ACQ
0P3
W0RD3
W0R03

0P2
W0R02
M0R02
OADD

/OS/d BASIC COMPILER
2726
2727
272a
2720
2T30
2731
2732
2753
273a
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2746
2749
2750
275i
2752
2753
2754
2755
2756
2757
2750
2759
2760
2761
2762
2763
2764
2765
2766
2767
2766
2769
2770
2771
2772
2773
2774
2775
2776
2777

PAL6-V8
/

05373
05374
05375
05376
05377
05400
05401
05402
05403
05404
0S40S
05406
05407
05410
05411
05412
05413
05414
05415
05416
05417
05420
05421
05422
05423
05424
05425
05426
05427
05430
05431
05432
05433
05434
05435
05436
05437
05440
05441
05442
05443
05444
05445
0S446
05447
05450
05451
05452
05453
05454

0004
0137
5431
5414
7750
5400
0000
302S
4531
5600
3143
1025
7104
7104
1025
7104
1143
5201
0000
1135

PAGE 36

NUMERIC CONVERSION ROUTINE (FINALE)

PAGE
SMLNUM,
CXPLUP, OCA
JMS I
JMP I
OCA
TAO
CLL RAL
CLL RAL
TAO
CLL RAL
TAD
JMP

EXPON
QOIGIT
SMLNUM
OPO
EXPON

/INPUT A NUMBER <• 4095
/ZERO THE EXPONENT
/SET THE NEXT DIGIT
/NUMBER DONE
/SAVE THE DIGIT
/MULT BV 10

EXPON
OPO
EXPLUP

ARl,

/ADO IN DIGIT
/STORE BACK INTO EXPONE
/SHIPT PAC RIGHT 1 BIT

TAO
M0R02
CLL RAR
M0R02
OCA
TAO
W0R03
RAR
OCA
W0RD3
TAO
ACQ
RAR
OCA
ACO
ISZ
WORDl
JMP I
ARl
JMP I
ARl

7U0
3135
1136
7010
3136
1137
7010
3137
2134
5614
5614
0000
1137
7104
3137
1136
7004
3136
1135
7004
3135
5631
0000
1377
7450
2644
7440
1376
7640
452S
5644

10/30/72

/SHIFT FAC LEFT ONE

ALl,

TAD
ACO
CLL RAL
OCA
ACO
TAD
WORDS
RAL
OCA
W0RD3
TAD
M0RD2
RAL
OCA
N0RD2
JMP I
ALl

CHK8GN,

/CHECK FOR SIGN
TAD
(-55
SNA
ISZ I
CHKS6N
SZA
TAD
(55-53
SZA CLA
JMS I
QBACKl
JMP I
CMKSSN

ns IT - ?
/YES, SET SWITCH
/IS IT

/RETURN CHAR OTHERWISE

/OS/8 BASIC COMPILEK
2778
2779
2780
2781
2782
2783
2784
2T85
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807
2806
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
282S
2826
2627
2628
2629
2830
2631
2632

05455
05456
05457
05460
05461
05462
05463
05464
05465
05466
05467
05470
05471
05472
05473
05474
05475
05476
05477
05500
05501
05502
05503
05504
05505
05506
05507
05510
0S511
05512
05513
05514
05S1S
05516
05517
05520
05521
05522
05523
05524
05525
05526
05527
05530
05531
05532
05533
05534
05535
05536
05537
05540
05541
05542

zzm
45li
7736
5655
2255
3134
1375
3021
1374
3022
4320
5655
7106
7006
7006
3421
4320
5314
1421
3421
2021
2022
5267
4502
5311
1257
7650
5655
4473
2123
5655
1421
1373
3421
5655
0000
4503
5311
1257
7440
5335
4503
5720
1257
7650
5335
4525
5720
1372
0371
2134
2320
5720
0000

PAt6-V8

10/30/72

PAGE 3/

/ STRING LITERAL SCANNER
STRING,
/LOOK FOR A STRING
JMS I
QCHECKC /LOOK FOR "
-42
M42,
JMP I
STRING /NONE MEANS NO STRING
STRING
ISZ
/ZERO CHAR COUNT
WORDl
OCA
TAD
(W0RD2 /SETUP POINTER
OCA
TEMP
(-44
TAD
/AND MAX SIZE
DCA
TEMP2
JMS
/GET HIGH ORDER CHArt
GCS
SLOOPf
JMP I
STRING /END OF STRING
CLL RTL
RTL
RTL
DCA I
TEMP
/PUT INTO UPPER HALF OF WQRO
JM5
/GET LOWER CHAR
GCS
JMP
PUT40
/FILL LAST WORD WITH BLANK
TEMP
TAD I
/COMBINE THEM
DCA I
TEMP
TEMP
/BUMP POINTER
ISZ
TEMP2
/TOO BIG YET ?
ISZ
JMP
SLOOP
/NO, LOOP
JMS I
/MAX SIZE STRING, MUST FIND "
06ETC
JMP
STRGER /BAD STRING LITERAL
M42
TAD
SNA CLA
JMP I
STRING /OK
QERMSG /STRING ERROR
STRGER, JMS I
2123
JMP I
STRING
TAD I
TEMP
/GET LAST WORD
PUT40,
TAD
(40
/PUT BLANK IN LOW CHAR
DCA I
TEMP
/STORE NEW WORD
JMP I
STRING /RETURN
GCS,
/GET A CHAR FOR STRING
JMS I
QGETCWB /GET A CHAR (INCLUDE BLANKS)
JMP
STRGER /BAD
TAD
M42
/IS IT "
SZA
JMP
NOTQOT /NO
JMS I
QGETCMB /IS IT ""
JMP I
/NO, THAT WAS IT
GCS
M42
TAD
/LOOK FOR SECOND "
SNA CLA
JMP
NOTQOT /"" BECOMES "
JMS I
QBACKl
/PUT IT BACK
JMP I
SCS
/LITERAL IS DONE
NOTQOT, TAD
/RECREATE CHAR
(42
AND
/ELIMINATE EXTRA BITS
(77
MOROt
ISZ
/BUMP STRING COUNT
ISZ
/FIX RETURN
GCS
JMP I
GCS
MODSET,
/SET INTERPRETER MODE

#
PAL8-V8

/OS/8 BASIC COMPIUEK

aS33
2SS4
2835
2836
2837
2838
2839
2640
2841
2842
2843
2844
2845
2846
2847
2848
2849
28S0
2851

05543
0S544
05545
05546
05547
05550
05551
05552
05553
05554
05555
05556
05557
05560
05561
05562
05563
05564
05565

105S
7700
5742
105S
7640
1370
1367
4500
7130
1055
3055
5742
3400
6740
7660
7662
7654
7730
0000

10/30/72

PAGE 37-1

TAD
MODE
/SUM OF DESIRED AND CURRENT
SMA CUA
JMP I
M0D8ET /THEV WERE THE SAME
TAD
/OTHERWISE SWITCH MODES
MODE
SZA CLA
(NMOOE-SMODE
TAD
(8M00E /ENTER NMOOE OR MAYBE SMOOE
TAD
JMS I
QOUTWRD
CUi. CML RAR
/CHANGE THE SWITCH
TAD
MODE
MODE
DCA
JMP 1
MODSET /AND RETURN

XIDIV,

PIOIVIAIOIV

WPNTi

•120r-116l-124|>50l0

/OS/8 BASIC COMPIUEH

2SS2
2853
285a
2855
2856
2857
S&5S
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
290ei

2901
2902
2903
2904
2905
2906

P4U6-V8
/

05567
05570
05571
05572
05573
05574
05575
05576
05577

05600
05601
05602
05603
05604
05605
05606
05607
05610
05611
0S612
05613
05614
05615
05616
05617
05620
05621
05622
05623
05624
05625
05626
05627
05630
05631
05632
05633
05634
05635
05636
05637
05640
05641
05642
05643
05644
05645
05646
05647
05650
05651
05652
05653

7561
7760
0077
0042
0040
7734
0135
0002
7723
5600
0000
3026
4530
5600
3134
4531
5235
7001
3135
4502
5233
1377
7440
5224
7130
1026
3026
4502
5233
1377
1376
7650
7132
7450
4525
1026
3026
2200
5600
4501
1134
7106
7006
7006
3135
4530
5210
1135
3135
4530
5302
3136
1135
1375

10/30/72

PAGE 38

VARIABLE OR FUNCTION HEFfckENCE SCANNER

PAGE
GETNAMi

/LOOK FOR VARIABLE OR FUNCT REFNCE
OCA
TYPE
/ZERO TYPE
JM8 I
QLETTER /MUST START WITH LETTER
JMP I
GETNAM /NO NAME
DCA
NAMEl
JMS 1
QOIGIT /<LETTER»<OIGIT> 7
JMP
TRYFUN /NO, LOOK FOR FUN REF
lAC
/INCREMENT DIGIT
UFDOLR, OCA
NAME2
/STORE AS NAME2
JMS I
QGETC
/LOOK FOR S tSTRING)
JMP
G0TNAM*2/N0T THERE
TAD
(-44
SZA
JMP
NOSTRG /NO S MEANS NO STRING
CUL CML RAR
/SET STRING BIT
TAD
TYPE
OCA
TYPE
JMS I
QGETC
/LOOK FOR ( tARRAY)
JMP
G0TNAM*2/NAME FINI
TAD
(-44
/PRIME THE CHAR
N05TR6, TAD
(44-50
/LOOK FOR ( (ARRAY!
SNA CLA
CLU CML RTR
/YES, SET ARRAY BIT
SNA
JMS I
OBACKl
/NO, BACKUP 1 CHAR
GOTNAMi TAD
TYPE
/MODIFY TYPE
OCA
TYPE
ISZ
GETNAM /BUMP RETURN
JMP I
GETNAM
TRYFUN, JMS I
QSAVECP /SAVE CHAR POSITION
TAD
NAMEl
/MOVE FIRST CHAR OVER
CLL RTL
RTL
RTL
OCA
NAME2
JMS I
QLETTER /LOOK FOR SECOND LETTER
JMP
LFOOLR /NONE THERE, LOOK FOR S
TAD
NAME2
/COMBINE WITH FIRST LETTER
DCA
NAME2
JMS I
QLETTER /LOOK FOR THIRD LETTER
JMP
NOFNAM /NOT A FUNCTION NAME
OCA
NAME3
/PUT INTO NAME
TAD
NAME2
/IS IT A USER FUNCT ?
TAD
(-616
/FN

/OS/8 BASIC COMPILER

2907
2906
2909
2910
2911
2912
2913
2914
2915
2916
2917
291S
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932

05654
05655
05656
05657
05660
05661
05662
05663
05664
05665
05666
05667
05670
05671
05672
05673
05674
05675
05676
05677
05700
05701
05702
05703
05704
05705

7650
5304
1374
3010
1410
7450
5302
1135
7640
5277
1410
1136
7640
5300
1410
3027
1373
3026
5210
2010
2010
5260
4504
5210
1136
5273

PAL8-V6

10/30/72

PAGE 38-1

SNA CLA
U8RFUN /YES
JMP
(FUNS-l /NO, CHECK VALIDITY OF NAME
TAD
X10
DCA
/GET NEXT FUN NAME
X10
FUNSRC, TAD I
SNA
NOFNAM /END OF LIST, INVALID NAME
JMP
/COMPARE FIRST 2 CHARS
NAME2
TAD
SZA CLA
NOMATC /THEY DON'T MATCH
JMP
/COMPARE 3RD CHAR
X10
TAD I
NAMES
TAD
SZA CLA
N0MATC«1 /DON*T MATCH
JMP
/GET FUNCTION CODE
X10
TAD I
SYMBOL /SAVE IT AS SYMBOL VALU
DCA
PUNQK,
/SET FUNCTION BIT
(1000
TAD
TYPE
DCA
LFOOLR /LOOK FOR QS] 0(1
JMP
/SKIP THIRD CHAR
X10
NOMATCf ISZ
/SKIP FUNCTION NUMBER
X10
ISZ
FUNSRC /KEEP LOOKING
JMP
QRE8TCP /RESTORE CHAR POS
NOFNAMf JMS I
JMP
LFDOLR /LOOK FOR OS] Q(J
/GENERATE FUN NUMBER
NAME3
USRFUN, TAD
FUNOK
JMP

/QS/B BASIC

2933
2934
2935
293b
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2946
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
296S
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979

OMPRE H

PAL8-V8

10/30/72

PAGE

i<i

/ ESROf MESSAGE REPORTER
05706 000iij ERMSG,
/PRINT ERHO« MESSAGt
05707
7200
CLA
05710 6201
CDF
B5711
1706
TAD I
ERMSG
/GET CODE
05712 7112
CLL RTR
/PRINT FIRST CHAR
05713 7012
RTR
05714
7012
RTR
05715 4772*
JM8
TTY
05716
1706
TAD I
ERMSG
/PRINT SECOND CHAR
05717 4772*
JHS
TTY
05720 2306
ISZ
ERMSG
/FIX RETURN AQDR
05721
1350
TAD
SPACE
/PRINT SPACE
05722 4772'
JMS
TTY
05723 3772'
DCA
TTY
/USE TTY AS A SWITCH
05724
1053
TAD
LINEH
/PRINT HIGH ORDER
05725 4335
JMS
PSN
05726
1054
TAD
LINEL
/THEN LOW ORDER
05727
4335
JMS
PSN
/(LINE NUMBER NATCH I)
05730
1371
TAD
(215
/PRINT CARRIAGE RETURN
4770'
05731
JMS
TTX
05732
1367
TAD
(212
/PRINT LINE FEED
05733 4770'
JMS
TTX
05734 5706
JMP I
ERMSG
/RETURN
05735 0000 PSN,
/PRINT 3 DIGITS DECIMAL
05736
313S
OCA
M0RD2
05737
7146
CLU CMA RTL
/-3
05740 3021
DCA
TEMP
05741
1135
PRNTSN, TAD
i^0R02
/GET NEXT DIGIT
05742
7106
CLL RTL
/INTO THE LOW ORDER
05743 7006
RTL
/THKEE BITS AND THE LIN
05744 3135
DCA
W0RD2
/SAVE SHIFTED NUMBER
05745
1135
TAD
M0R02
/NOW DO LAST SHIFT
05746 7004
RAL
05747 0366
AND
/ONLY FOUR BITS
(17
05750 7440 SPACE,
SZA
05751
5355
JMP
NOZERO /NOT A ZERO
05752
1772'
TAD
TTY
/ANY DIGITS YET 7
05753
765ia
SNA CLA
05754 5357
JMP
LEAD0
/NO, ITS A LEADING ZERO
0575S
1365
NOZEHO, TAD
(60
/MAKE IT ASCII
05756 4772'
JMS
TTY
/PRINT DIGIT
05757 2021
LEAO0,
ISZ
TEMP
/BUMP COUNT
05760 5341
JMP
PRNTSN /MORE OIGITCS)
05761
5735
JMP I
PSN
05762
1000
XMUL,
FMPVIAFMPY
05763 b'im
>

PAL8-VB

/OS/8 BASIC COMPILER
/

2981
2982
2983
298a
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3051
3032

05765
05766
05767
05770
05771
05772
05773
05774
05775
05776
05777
06000
06001
06002
06003
06004
06005
06006
06007
06010
06011
06012
06013
06014
06015
06016
06017
06020
06021
06022
06023
06024
06025
06026
06027
06030
06031
06032
06033
06034
06035
06036
06037
06040
06041
06042
06043
06044
06045
06046
06047

0060
0017
0212
3740
0215
3730
1000
6070
7162
7774
7734
6000
0004
2400
0000
0000
0007
3100
0000
0000
0016
2342
0000
0000
0033
2765
7020
0000
0066
2160
6744
6770
0153
2356
1326
6501
032S
3023
6017
5120
0652
223S
6443
7114
1523
2523
7565
7735
3245
3430
6320
2S6S

10/30/72

EXPONENT TABLE

PASE
PETABUf 00041240010000)0000

0007l3100>0000f0000

00161234210000)0000

0033)2765)7020)0000

0066)2160)6744)6770

0153)2356)1326)6501

0325)3023)6017)5120

0652)2235)6443)7114

1523)2523)7565)7735

3245)3430)6320)2565

PAGE 40

/OS/8 BASIC COMPILER
3033
3034
3035
303(>

3037
303B
3039
3040
3041
3042
3043
3044
304S
3046
3047
3048
3049
3050

P*L8-Vfl
/

06050
06051
06052
06053
06054
06055
060S6
06057
06060
06061
06062
06063
06064
06065
06066
06067
06070

2557
7725
2755
7723
0356
7726
2761
T721
0362
7642
1557
7732
0000
4000
4301
0000
4301

OPERATOR TABLE
PLUS»-53

OPRflNS,

MINUSl-55

STARI.52
SLASHj-57
UPAR0w;<»136

AMPSND>-46
SASIGN, 4000MSTOR
ASSIGN,

0MSTOR

10/30/78

PAGE 41

P4U8-V8

/OS/B BASIC COMPILER
3051
S052
3053
3054
3055
3056
3057
3058
3059
3060
3041
3068
3063
306a
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
307S
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3086
3089
3090
3091
3092
309S
3094
3095
3096
3097
3098
3B99
3100
3101
3102
3103
3104
3105

06071
06072
06073
06074
06075
06076
06077
06100
06101
06102
06103
06104
06105
06106
06107
06110
06111

06U2
06113
06114
06115
06116
06117
06120
06121
06122
06123
06124
06125
06126
06127
06130
06131
06132
06133
06134
06135
06136
06137
06140
06141
06142
06143
06144
06145
06146
06147
06130
06151
06152
06153
06154
06155
06156

7676
7755
7400
765S
7775
7417
7654
7762
7416
7470
7756
7437
7461
7755
7436
7377
7754
7457
7250
7760
7456
6662
7754
7516
6373
7762
7477
6361
7771

10/30/72

FUNCTION NAME TABLE (INTERNAL FUNCTIONS)

FUNS,

>>0102l-23|FUNC3
•>0123>-03|FUNC2

•0124|-16rFUNCl
•0310|«22rPUNC2<»20

•

03l7f<i23fFUNCl«20

>040U*24>FUNC24>40
•0530|-20)FUNC1«40
-1116r«24fFUNCl4'100
'1405)»16|FUNC2'»60

•

1417|*07rFUNCU120

753fc

5761
7755
7517
5562
7774
7616
5473
7771
7537
5471
7762
7556
5467
7762
7576
5457
7756
7636
5454
7756
7557
5177
7764
7577

PASE 42

•2017r«23rFUNC2«100
>2216|-04fFUNCl*200
-2305;«07>FUNC24>120

>2307>-16>FUNCl«140

•23llf«16|FUNCltl60

-2321I-22IFUNCU220
•2324r*22|FUNC2^140

•260U«14;FUNC2«160

/OS/e BASIC COMPIUEK
3106
3107
310B
310'5

3110
3111
3112
3113
3114
3115
3116
3117
3116
3119
3120
3121
3122
3123
3124
3125
3126
3127
3128
3129
3130
3131

3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157

06157
06160
06161
06162
06163
06164
06165
06166
06167
06170
06171
06172
06173
06174
06175
06176
06177
06200
06201
06202
06203
06204
06205
06206
06207
06210
06211
06212
06213
0621a
06215
06216
06217
06220
06221
06222
06223
06224
06225
06226
06227
06230
06231
06232
06233
06234
06235
06236
06237
06240
06241
06242

5356
7775
7637
0000
0000
7415
0000
0000
7435
0000
0000
7455
0000
0000
7475
0000
0000
7515
0000
0000
7535
0000
0000
7555
0000
0000
7575
0000
0000
7615
0000
0000
7635
0000
0000
7655
0000
0000
7675
0000
0000
7715
0000
0000
7735
0000
0000
7755
0000
0000
7775
0000

PALB-V8

10/30/72

PAGE

'4£-l

2422;-03;FUNC2»2«J0

ENDFMS, 0»0»FUNC4

/SPACE FOH NEW FUNCTIONS

0;0»FUNC4*20
0>0|FLiNC4>40

0|0;FUNC4460

0r0fFUNC4«100

0)0>FUNC4*120
0>0>FUNC44>140

0I0;FUNC4«160
0f0>PUNC4*200
0>0;FUNC4'»220

0I0|FUNC«*240
0I0IFUNC44-260

0I0>FUNC4^300
0I0;FUNC4«320
0;0;FUNC44i340

0;0>FUNC4+3fe0

/SIXTEEN OF THEM

PAte-V8

/OS/8 BASIC COMPILER

3202
3203
32ea
3205
320(>

3207
3208
3209
3210
3211
3212

06243
06244
06245
06246
06247
06250
06251
06252
06253
06254
06255
06256
06257
06260
06261
06262
06263
06264
0626S
06266
06267
06270
06271
06272
06273
06274
06275
06276
06277
06300
06301
06302
06303
06304
06305
06306
06307
06310
06311
06312
06313
06314
06315
06316
06317
06320
06321
06322
06323
06324
06325
06326
06327
06330

10/30/72

PAGE 43

/ KEYWORD LIST
KEYWRD, -114|-10S)«124|LET

•>llll-106|-10S|oll6»-104nFENO

•111I-106)IF

-106r>117r"122tPOR

•116f*10S>«130>-124|NEXTX

MGOTO»

•107I-117

MTOf

"124>«117>60T0
•1071-1 17 >-123t-125;-102;GOSUB

•111>-116»-120>-125|-124»INPUT

-1201-1221-1 11 1-1 16I-124IPRINT

«104|-llU-115fOIM

•1041 -1011 -124I.101IDATA

1431

/OS/8 BASIC COMPILER
3213
3214
3215
3216
3217
321S
3219
3220
3221
3222
3223
322a
3225
3226
3227
322B
3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
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

06331
06332
06333
06334
06335
06336
06337
06340
06341
06342
06343
06344
06345
06346
06347
06350
06351
06352
06353
06354
06355
06356
06357
06360
06361
06362
06363
06364
06365
06366
06367
06370
06371
06372
06373
06374
06375
0637«.

06377
06400
061101

06402
06403
06404
06405
06406
06407
06410

064U
06412
06413
06414
06415
06416
06417

7674
7673
7672
1200
7672
7667
7664
7673
2522
7656
7673
7677
7674
1526
7656
7673
7663
0205
7656
7673
7655
7654
7661
7656
7673
0542
7656
7673
7654
7653
7656
7662
3561
7655
7654
7661
7660
3565
7656
7677
7662
7674
7661
7663
7667
7646
7673
3564
7675
7664
7661
7655
7673
3342
7675

PAL8-V8

10/30/72

PAGE 43-1

-104I-105I-106JOEF

.106l-lH>-114f-105;FILE

-1221 -105; -1011 -1041 RE AOX

•122»-Ia5»-115?REMARK

• 122»-105|-123>-124»-117»-122>=»105>RESTOR

•122»-105>-124»-125;-122»-116JRETURN

>123>-124»-H7;-120)STOPX

•122>-10n-116l-ia4;-H7;-115»-Hl»-l32;-105>RANOOM

•103»-H4»-117|-123>-105» CLOSE

103;-110>-101»-111>-116JCHAIN

#
PAL8-V8

/OS/8 BASIC COM|»XLiR

32^8
3269

06420
06421
06422
06423
06424
06425
06426
06427
06430
06431
06432
06433
06434
06439
06436
06437
06440
06441
06442

•

10/30/72

1251 -1041 •il0S|>106fUDEF

•12S|-12S|-10StU8EX

•il0S|«116|«104tEND

0000

PAGE 43-2

PAL8-V8

/OS/e BASIC COMPILEH
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
333"?

3340
3341

06443
06444
0644S
06446
06447
06450
06451
06452
06453
06454
06455
06456
06457
0646(9

06461
06462
06463
06464
06465
06466
06467
06470
06471
06472
06473
06474
06475
06476
06477
06500
06501
06502
06503
06504
06505
06506
06507
06510
06511
06512
06513
06514
06515
06516
06517
06520
06521
06522
06523
06524
06525
06526
06527
06530

0000
0000
7377
0000
3243
2045
7410
2044
7000
2245
5263
4271
1274
3244
1377
3245
1245
6211
3644
6201
2244
5646
0000
4776
4210
0000
0000
5302
2275
2306
5671
4473
1706
5406
0000
0000
4313
1561

4313
6570
0000
4524
7777
7240
1014
3021
7132
0421
7650
5331
1421
0367
7104
7041

10/30/72

PAGE UH

/ OS-B OUTPUT ROUTINE
OKTEMP,
OUBUF
OUPTR,
OCOUNT, -401
/OUTPUT ROUTINE
OUTWRO,
OCA
OWTEMP /SAVE WORD
ISZ
LOCTRL /INCREMENT PSEUDO CODE
SKP
/LOCATION COUNTER
ISZ
LOCTRH /BOTH HALVES
NOP
/IT'LL NEVER HAPPEN
OCOUNT /TEST FOR BUFFER FULL
ISZ
JMP
NOWRIT /STILL SOME ROOM
JMS
OUOUMP /DUMP THE BUFFER
TAD
OUBLOK- l/RESET BUFFER PARAMETERS
DCA
OUPTH
TAD
(-400
DCA
OCOUNT
OWTEMP /PUT WORD
NQMRIT, TAD
CDF
10
OCA I
QUPTR
/INTO BUFFER
COf
ISZ
OUPTR
/MOVE POINTER
JMP I
OUTWRD
/DUMP OUT BUFFER
OUOUMP,
JMS I
(7607
/CALL OUTPUT HANDLER
4210
0U9UF
OUBLOK,
JMP
OUERR
ISZ
OUBLOK
/INCREMENT BLOCK NUMBER
ISZ
OUSIZE /CHECK FOR HOLE FULL
JMP I
OUOUMP
JMS I
QERMSG /OUTPUT FILE ERROR
OUERR,
1706
JMP I
XABORT /ABORT COMPILATION
ODEVH,
OUSIZE.
""'
AMPRTN, JMi
Tool ST /LOAD OPIS
AMPSND+2
/CONC 0P2S
JMS
SCRTN,
LODIST /LOAD OPIS
SCOMPR+1
/COMP 0P2$
LOOIST,
/HANDLE ONE WAY INSTRUCTIONS
JMS I
QSAVAC /STORE 2ND ARG IF IN SAC

-1

CLA
TAD
OCA
CUl
AND
SNA
JMP
TAO
ANO
CLL
CIA

CMA

OSTACK
TEMP
CML RTR
I
TEMP
CLA
SKIP2
TEMP
I
SCOMPH
RAL

/GET TYPE OF 2N0 ARG
/IS IT SUeSCBIPTED

/NO, ENTRY IS ONLY 2 WORDS
/GET NUMBER OF OlMS

/LITERAL 3
/DOUBLE IT

PAL8-V6

/OS/e BASIC COMPIUER
06531
06S32
06533
06534
06535
06536
06537
06540
06541
06542
06543
06544
06545
06546
06547
06550
06551
06552
06553
06554
06555
06556
06557
06560
06561
06562
06563
06564
06565
06566
06567
06570
06571
06572
06573

1375
3354
10l«
1354
3014
1014
3012
4520
7130
0056
1133
3414
3414
1412
3414
2354
5346
1713
5774*
0000
0000
4502
5365
1755
7450
2355
7640
4529
2353
5755
0003
6506
4000
6734
6734

SKIP2,

TAD
OCA
TAD
TAD
DCA
TAD
DCA
JM8

(-2

0P2SIZ
08TACK
0P28IZ
OSTACK
08TACK
I

I
I

0P2SIZ,
CHCCKC,

/PINO SIZE OF 2N0 ARC
/AND SAVE IT
/BACK UP STACK
/AND SAVE THIS ADOR

OlOAD
TYPEl
Q400
OSTACK
OSTACK

/LOAD ARS 1
/OET TYPE BIT
/PUT BACK AR61

/PUT BACK ARG

K12

OSTACK
0P2SIZ

U0018T /GET OPERATOR FINISH
OUTOPR* 1/GO FINISH CODE
/SACREO COUNT WORD
/CHAR CHECKER
QGETC
/GET A CHARACTER
.6
/FAILED
CHECKC /COMPARE

I8Z

JMP
TAD
JMP

PAGE «4-l

)(12

cu CMU RAR
AND
TAD
DCA
DCA
TAD
DCA

10/30/72

.-3

JMS I
JMP
TAD I
SNA
ISZ
CHECKC /MATCHES, SKIP TWO
8ZA CL.A
JMS I
QBACKl
/NO MATCH, REPLACE
ISZ
CHECKC /ALWAYS SKIP AT LEAST
JMP I
CHECKC
8C0MPR, 3I8CBTN S) 40001 XSCOHPIXSCOHP

PAL6-V8

/OS/a BASIC COMPIUEK
3377
3378
337'»

3380
3381
3382
3383
3384
338S
3386
3387
3388
3389
3390
3391
3392
3393
3394
339S
3396
3397
3398
3399
3400
3401
3402
3403
3404
340S
3406
3407
3408
3409
3410
3411
3412
3413
3414
3415
3416
3417
3418
3419
3420
3421
3422
3423
3424
342S
3426
3427
3428
3429
3430
3431

06574
06575
06576
06577

06600
06601
06602
06603
06604
06605
06606
06607
06610
06611
06612
06613
06614
06615
06616
06617
06620
06621
06622
06623
06624
06625
06626
06627
06630
06631
06632
06633
06634
06635
06636
06637
06640
06641
06642
06643
06644
06645
06646
06647
06650
06651
06652
06653
06654
06655
06656
06657
06660

10/50/72

PAGE 45

OS-8 FILE INPUT ROUTINE

3401
7776
7607
7400

6600
0000
2255
2330
5255
1327

7640
5233
1332
7101
7420
3332
7430
2327
4731
0200
7200
0000
5232
2220
1377
3330
120i
3255
1217
3333
5201
7200
4473
1505
1376
3775*
1374
3773'
6211
1772'
6201
7450
5773*
3252
4771'
1600
0000
0000
7402
5770'
7402
5277
5273
1203

PAGE
ICHAP,

INJMP
ISZ
INCHCT
ISZ
INJMP
INJMPP, JMP
INEOF
TAD
SZA CUA
JMP
ENOFIL
INCTR
INGBUFf TAD
CUL lAC
SNL
OCA
INCTR
SZL
INEOF
ISZ
JMS I
INHNOL

0200
INBUFP, INBUF
INREC,
JMP
INBREC, ISZ
TAO
OCA
TAD
OCA
TAD
OCA
JMP
INERR,
CLA
ENDFIL, JMS 1
1505
ABORT,
TAD
OCA
TAO
OCA
CDF
TAD
CDF
SNA
JMP
OCA
JMS
EOTSIZ

INERR
INREC
(-601

/LAST READ YEILD END OF FILE ?
/YES
/BUMP RECORD COUNTER

/RESTORE IF IT HASN'T OVERFLOWED
/SET ENO OF FILE SWITCH
/DO THE READ
/ONE BLOCK TO FIELD

/HANDLER ERROR
/BUMP RECORD NUMBER
/SET CHAR COUNT

INCHCT
INJMPP /RESET THREE WAY JUMP SWITCH
INJMP
INBUFP /RESET BUFFER POINTER
INPTR
ICHAR*1 /GO AGAIN

QERMSG

/INPUT FILE ERROR

(4207
7600
(6213
7605

/RESTORE -C LOCZTIONS

INFO

/GET START OF BASIC. SV

7605
EDTBLK
7607

/T'WERE RUNNED
/SAVE MAGICAL SLOCK NUMBER
/USE SYS HANDLER
/TO READ IN THIS MUCH
/INTO ZERO
/FROM HERE
/MALT IF BAD READ
/GO RESTART EDITOR
/3 WAY CHAR UNPACK JUMP

EOTBLK,
HLT
JMP
INJMP,
HLT
JMP
JMP
ICHAB3, TAO

/READ CHAR FROM INPUT FILE
/BUMP THREE WAY UNPACK SWITCH

EDTBGN
ICHARl
ICHAR2
INJMPP

/RESET JUMP SWITCH

PAL8-Va

/OS/8 BASIC COflPIUER

3«32
3433
3434
3435
3436
3437
3436
3439
3440
3441
3448
3443
3444
344S
3446
3447
S44S
3449
34S0
34SI
34S2
34S3
3454
3455
3456
3457
34Sa
3459
3460
3461
3462
3463
3464
3465
3466
3467
346S
3469
3470
3471
3472
3473
3474
3475
3476
3477
3478
3479
3480
3481
3482
3483
348a
3485
3486

06661
06662
06663
06664
06665
06666
06667
06670
06671
06678
06673
06674
06675
06676
06677
06700
06701
06702
06703
06704
06705
06706
06707
06710
06711
06712
06713
06714
06715
06716
06717
06720
06721
06722
06723
06724
06725
06726
06727
06730
06731
06732
06733
06734
06735
06736
06737
06740
06741
06742
06743
06744
06745
06746
06747

3255
1733
0367
7112
7012
1326
7018
7018
8333
5300
1733
0367
3326
2333
1733
0366
1365
7450
5600
1364
7450
5233
1363
7450
5201
7001
7450
1362
1361

7450
5600
7001
7450
5201
1360
2200
5600
7777

0000
0400
6440
0000
1736
2336
335S
1755
7500
2336
7710
4502
5736

18/30/72

PAGE 45-1

INJMP
DCA
INPTR
TAD 1
/COMBINE THE HIGH ORDER BITS
(7400
AND
/OF THE TWO WORDS
CLU RTR
RTR
TAD
/TO FORM THE THIRD CHAR
INTMP
RTR
RTR
/BUMP WORD POINTER
ISZ
INPTR
JMP
ICHARl* 1/DO SOME COMMON STUFF
/SAVE THE HIGH ORDER BITS
INPTR
ieHAR2i TAD I
AND
(7400
/FOR THE THIRD CHAR
DCA
INTHP
/GO TO THE SECOND WORD
INPTR
ISZ
INPTR
/GET THE LOW 7 BITS
ICHARl, TAD I
/AND I MEAN ONLY 7 11
AND
(177
(-134
/CHECK FOR V (STMT SEPARATOR)
TAD
SNA
/TREAT LIKE CR
ICHAR
JMP I
(134-32 /IS IT *Z (END OF FILE)
TAD
SNA
JMP
ENDFIl /YES, ITS END OF FILE
(32-12
TAD
SNA
JMP
ICHAR<»1 /IGNORE LINE FEEDS
/TABS -» BLANKS
lAC
SNA
TAD
(40-11
TAD
(11-15
SNA
JMP I
ICHAR
/RETURN ON CARRIAGE RETURN
lAC
SNA
JMP
ICHAR^l /IGNORE FORM FEEDS
TAD
/FIX CHAR
(14
ICHAR
ISZ
JMP I
/RETURN TO THE CALLING WORLD
ICHAR
INTMP,
INEOF,
INCHCT, •1
/ENTRY ADDR GOES HERE
INHNOLf
INCTR*
INPTR,
XSCOMPf 8C0MP>8AC0MP
CHKMD,

NOLOOP,

TAD
ISZ
DCA
TAD
SMA

CHKWO
CHKWD
CWTEMP
CWTEMP

CHKWD
ISZ
SPA CLA
JMS
QGETC
JMP
CHKWD

/WORD CHECKER
/GET POINTER
/SAVE POINTER
/GET NEXT CHAR
/IF NON NEC, FIX RETURN

/GET CHAR
/RETURN

/OS/8 BASIC COMPILEH

3«8T
3466
3469
3490
3491
3498
3493
3494

06750
06751
06752
06753
06754
06755
06756
06757

1755
2355
7650
5342
5736
0000
1400
6600

PAL6-Vfl

TAD I
CWTEMP
CWTEMP
ISZ
SNA CLA
JMP
WDLOOP
JMP I
CHKWD

CWTEMP,
FDIVIAFDIV
XDIV,

10/30/72

PAGE 45-2

/COMPARE
/INCR POINTER
/MO«E
/FAILED

/OS/a BASIC COMPILER

PAi.8»VS
/

06760
06761
06762
06763
06764
06765
06766
06767
06770
06771
06778
0677S
06774
06775
06776
06777
07000
07001
07002
07003
07004
07005
07006
07007
07010
07011
07012
07013
07014
07015
07016
07017
07020
07021
07022
07023
07024
07025
07026
07027
07030
07031
07032
07033
07034
07035
07036
07037
07040
07041
07042
07043
07044

0014
7774
0027
0020
0102
7644
0177
7400
3012
7607
7604
7605
6213
7600
4207
7177
7000
5777*
6211
1776
6201
0375
7650
5213
6212
4774
0013
5773*
1372
3010
6211
1410
3046
1410
6201
3771*
1046
3770»
6211
1410
6201
3767*
5247
6211
1766*
6201
6212
4774
0001
4401
5320
1240
3767'
6212

PAGE 46

ie/3e/72

INITIALIZATIO N CODE

*UINE
START,
JMP
CHAINED, CDF
TAD I
CDP
AND
SNA CLA
JMP
CIF
JM8 I

RUNNED

/DO LOOKUPS, AND PINO TEMPFILE

(7644

/WAS IT

CHAIN PROM BRTS

(100

CNE0I7
10

(200

/NO, PROM THE EDITOR
/CHAIN PROM BRTS, RESET
/TO PORGET DSKI HANDLER

JMP
CHEDIT, TAD
OCA
COP
TAO
OCA
TAO
COP
DCA
TAO
DCA
COP
TAO
COP
DCA
JMP
CETOEV, COP
TAD
COP
CIP
JM8

8TRTS
/NOW GO OPEN TEMP PILE
(INP0*7 /PICK UP SOME STUFF
X10
10
I

Kte

/FROM THE INFO BLOCK
/START OF TEMP FILE

BLOCK
I

X10

/SIZE OP HOLE

OUSIZE
BLOCK
OUBLOK
10
I

X10

/ENTRY ADOR OF HANDLER

INHNDL
STRT2
10

7617

/GET DEVICE NUM FOR INPUT FILE

10
I

(200

/GO FETCH THE DEVICE

/2 PAGE HANDLER IS OK

INOEVH<» 1

JMP
TAD
OCA
CIP

NG
.•2

INHNDL
10

/ERROR
/GET HANDLER ADDRESS
/SAVE IT

PALe-V8

/OS/8 BASIC COMPIUEK
3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598

07045
07046
07047
07050
07051
07052
07053
07054
07055
07056
07057
07060
07061
07062
07063
07064
07065
07066
07067
07070
07071
07072
07073
07074
07075
07076
07077
07100
07101
07102
07103
07104
07105
07106
07107
07110
07111
07112
07113
07114
07115
07116
07117
07120
07121
07122
07123
07124
07125

4774
0013
6211
1766'
6201
0365
1364
7132
7012
3763*
6211
1762'
6201
3761'
6211
1760'
3050
1757'
3052
1756'
6201
3755'
6046
1354
3012
1353
3011
6211
7130
3412
2011
5301
1352
3011
3412
2011
5307
6201
1325
3751'
1325
3750'
5747'
6046
4473
2331
6041
5323
540b

JMS

(200

COF
TAD
CDF
AND
TAD
CLL CML
RTR
DCA
CDF
TAD
CDF
DCA
CDF
TAD
DCA
TAD
DCA
TAD
COF
OCA
TLS
INITST, TAD
DCA
TAD
DCA
COF
CLL CML
DCA I
ISZ
JMP
TAD
DCA
DCA I
ISZ
JMP
COF
TAD
DCA
TAD
DCA
JMP
NGi
TLS
JMS I
2331
TSF
JMP
JABORT, JMP I
STRT2i

10/3a/72

PAGE 46-1

/RESET SYSTEM TABLES
/DELETING TENTATIVE FILES

7617

/SET UP INPUT FILE PAHAMS

C7760

/GET SIZE

C17

RTR

INCTR
10

7620

/GET BLOCK NUMBER

INREC
10

INF0*3
8RT8
INFO
ABORTX
INFO+2

/GET START OF 8RT5.SV (+1)

/GET START OF BASIC. SV (+1)
/BOTH FOR BLOAO
/GET START OF BLOAD.SV

/FOR CHAIN TO 8L0A0
/SET TTV FLAG
CVARST-1/INITIALIZE ST AREA

LDRBLK

)(12

(-436-436-436
/SIZE OF NUM AND STRING TABLES

Xn
10

RAR
X12

/SET TO 4000

XU
.-3
(-440

/NOW ARRAY TABLES
/AND BUCKETS

X12
Xll
.-2

/SET THEM TO ZERO

JABORT
7600
JABORT
7605
CORE

/MODIFY "C LOCATIONS

/GET CORE SIZE

OERMSG

/SUPER ERROR

.-1

XABORT

/ABORT COMPILATION

/OS/a BASIC COMPII.ER

3599
3600
3601
3602
3603
S60«
3603
3606
3607
3606
3609
3610
3611
3612
3613
3614
361S
3616
3617
3618
3619
3680
3621
3622
3623
3624
362S
3626
3627
3628
3629
3630
3631
3632
3633
3634
S63S
3636
3637
3636
3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651
3652
3653

07147
07150
07151
07152
07153
07154
07155
07156
07157
07160
0T161
07162
07163
07164
07165
07166
07167
07170
07171
07172
07173
07174
07175
07176
07177

PAU8-ve

7200
7605
7600
7340
6246
0377
0351
7606
7604
7607
6620
7620
67sa
0017
7760
7617
6731
6475
6506
7613
4651
0200
0100
7644
4600
7200

6201
1325
7006
7004
0215
1230
3207
6201
1723
7000
3207
1211
3723
0070
1723
7400
1217
1324
7640
5230
1207
3723
2385
5200
6201
7240
1325

PAGE 47

•INBUF
CORE,

07200
07201
07202
07203
07204
07205
07206
07207
07210
07211
07212
07213
07214
07215
07216
07217
07220
07221
07222
07223
07224
07225
07226
07227
07230
07231
07232

10/30/72

COR0,

CORl,
C0R2r

COR70,
CORXf

COREX,

/CORE SIZE ROUTINE PROM
/0S8 SOFTWARE SUPPORT MANUAL
cor
TAD
RTL
RAL
AND
TAD
OCA
CDF
TAD
NOP
OCA
TAD
OCA

CORSIZ

COR70
COREX

.1
I

CORI.OC

CORl
C0R2
CORLOC

TAD 1
7400
TAD
TAD
SZA CLA
JMP
TAD
OCA I
I8Z
JMP
COP
CUA CMA
TAD

CDRI.OC

CORX
CORV

COREX
CORl
CORLOC
CORSIZ
COR0
/HI FIELD IS #PIELDS-1

CORSIZ

PAL6-V8

/OS/8 BASIC COMPILER
SbStt
3fc55

3656
3657
3656
3659
36621

3661
3662
3663
3664
3665
3666
3667
3668
3669
3670
3671
3672
3673
3674
3675
3676
3677
3678
3679
3680
3681
36SS
3683
3684
3665
3666
3687
3688
3689
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708

07233
07234
07235
07236
07237
07240
07241
07242
0T243
07244
07245
07246
07247
07250
07251
07252
07253
07254
07255
07256
07257
07260
07261
07262
0726J
07264
07265
0726b
07267
07270
07271
07272
07273
07274
07275
07276
07277
07300
07301
07302
07303
07304
07305
07306
07307
07310
07311
07312
07313
07314
07315
07316
07317
07320
07321

3047
1047
7041
3777'
7040
1047
7640
5255
13T6
3775'
1374
3773'
1372
3771'
1370
3767'
1366
3765'
4764' GENER,
4764'
4764'
7201
4764'
7201
3134
7132
3135
4517
2562
7775
4763'
1362
3322
FOLOOP,
1361
3012
1722
2322
7450
5510
3412
7146
1722
3320
1320
7001
3021
1722
2322
3412
2021
5311
4517
2570
0000 FUNSI2,
5274

10/30/72

PAGE

<17-1

DCA
HIFLO
MIFLO
TAD
CIA
NFL03
OCA
/HOW MANY FIELDS ?
y*
CMA
*
/MUST THIS BASIC USE ?
TAD
HIFLO
/(SOUNDS LIKE A LINE BY DYLAN)
82A CLA
JMP
GENEJl.
"?
"" */
(PATCH1*3&177*5200
TAD
8K,
CDF'S e 2 t
DON'T
USE
DCA
PATCHl
/ONLY
(PATCH2*1U177*5200 '^ ;5
TAD
PATCH2 E »s ^ *-#^
DCA
"
' -^
(PATCH3*4«ft f7'*5200
TAD
;»'"™^'
DCA
PATCH3 -r
"
(PATCH4*3&1 77+5200 ^' *" "l
TAD
PATCH4 '
DCA
TAD
(7000
DCA _, •PATCMSJMS
GENTMP /GENERATE TEMP
GENTMP /GENERATE TEMP 1
JMS
GENTMP /GENERATE TEMP g
JMS
/GENERATE STRING TEMP
CLA lAC
GENTMP
JMS
CLA lAC
/GENERATE LITERAL 1.0
WORDl
OCA
CLL CML RTR
WOR02
OCA
QLUKUP2 /ENTER INTO ST
JMS I
LITRL

-3

NEWVAR
JMS
(FNINIT /SET UP FUNCTIONS
TAD
FDPTR
DCA
TAD
(MORDl-1
OCA
X12
FDPTR
/GET FIRST WORD
TAD I
FDPTR
ISZ
SNA
JMP I
QREMARK /DONE, START COMPILER
/SAVE IN WORD!
OCA I
X12
/GET LOOKUP COUNT
CLL CMA RTL
FDPTR
TAD I
DCA
FUNSIZ
TAD
FUNSIZ /GET SIZE OF MOVE
lAC
OCA
TEMP
FDPTR
/GET A WORD
TAD I
FDPTR
ISZ
OCA I
X12
/PUT INTO WORDN
ISZ
TEMP
.-4
JMP
JMS I
QLUKUPa /ENTER INTO S.T,

FUNCTN
JMP

FDLOOP

/LOOP

/OS/B BASIC COMPILER

3709
3710

07382
07323
0732«
07S2S
07326
07327
07330
07331
07332
07333
07334

0000
7217
1400
0001
7532
753*
7548
7546
7552
7556
0000

PAL8»V8
FDPTR,
CORLOC, CORK
CORV*
1400
CORSIZ, 1
NAM1.8T, BCOHPN
BLOAON
BRTSN
BAPN
B8PN
BPPN

10/30/72

PASE 47-2

/SAVE FIUE NAME-POINTER LIST

/OS/8 BASIC COMPILED
3720
3721
3722
3723
372a
3725
372*
3727
3726
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
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
3771
3772
3773
3774

07361
07362
07363
07364
07365
07366
07367
07370
07371
07372
07373
07374
07375
07376
07377

07400
07401
07402
07403
07404
07405
07406
07407
07410
07411
07412
07413
07414
07415
07416
07417
07420
07421
07422
07423
07424
07425
07426
07427
07430
07431
07432
07433
07434
07435
07436
07437
07440
07441
07442
07443
07444
07445
07446

PAL6-V8

10/30/72

PAGE 48

0133
7400
4223

asm
2222
7000
1520
5323
1477
5303
2270
5301
221«
5217
2345
7400
7400
7777
2000
0000
7416
7777
2000
0000
7417
7777
6000
0000
7436
7777
2000
0000
7437
7777
2000
4000
7456
7777
2000
0000
7457
7777
2000
4000
7636
7777
2000
0000
7476
7776
0000
2000
0000
7477
7777

PAGE
FNlNITi FUNC3»-1>2000»0

/ABS

FUNCll-n2000>0

/ATN

FUNC2|«n6000l0

/ASC

FUNCl«20l-ll2000f0

/COS

FUNC2*20>-1>2000>4000

/CHH

FUNCl«40;-n2000;0

/EXP

FUNC2-»40|>n2000|4000

/DAT

FUNC1«220;-1>2000;0

/SQR

FUNCl«60l-2*0;2000r0

/EXP2

FUNC2+60>-n6000>0

/LEN

/09/i BASIC COMPILER

3T75
377$
3777
3778
3779
3780
3781
3782
3783
378«
378S
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
3799
3800
3801
3802
3803
3804
3805
3806
3807
3808
3809
3810

38U
3812
3813
3814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829

07447
07450
07451
07452
07453
07454
07455
07456
07457
07460
07461
07462
07463
07464
07465
07466
07467
07470
07471
07472
07473
07474
07475
07476
07477
07500
07501
07502
07503
07504
07505
07506
07507
07510
07511
07512
07513
07514
07515
07516
07517
07520
07521
07522
07523
07524
07525
07526
07527
07530
07531
07532
07533
07534
07535

6000
0000
7516
7777
2000
0000
7S17
7775
2000
4000
6000
0000
753*
7777
2000
0000
7537
7775
0000
2000
6000
4000
7556
7777
2000
0000
7557
7777
2000
4000
7576
7777
2000
0000
7577
7777
6000
0000
7616
7777
2000
0000
7637
7777
2000
0000
0000
0201
2311
0300
2326
0209
1715
2000
2326

PA1.8-VB

10/30/72

PAGE 48-1

PUNCl«100>«lf2000|0

/INT

FUNC2*100I -3120001 40001 6000^0

/POS

FUNCl«120;*W2000r0

/LOS

FUNC2«120)-3> 0120001 60001 4000

/SE6

PUNCl«t40|«ll2000r0

/SGN

FUNC2«140>-U 2000; 4000

/STR

PUNCl«160>«i;2000)0

/SIN

FUNC2<«'160f. 116000)0

/VAL

PUNCl«200r-lie000)0

/RND

PUNC24>220r-lf2000|0

/TRC

BASICNi FILENAME BASIC. SV

/FILE NAMES

BCOMPN, FILENAME BCOMP.SV

/FOR LOOKUPS

PAL8-V8

/OS/8 BASIC COMPIUEH

3830
3831
3832
3833
3830
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846
5847
3848
3849
3830
3851
3852
3853
3854
3855
3856
3857
3858

07536
07537
07540
07541
07542
07543
07544
07545
07546
07547
07550
07551
07552
07553
07554
07555
07556
07557
07560
07561
07562
07563
07564
07565
07566
07567
07570
07571

0214

10/30/72

BLOADN, FILENAME BLOAD.SV

1701

0400
2326
0222
2423
0000
2326
0201
2311
0300
0106
0201
2311
0300
2306
0201
2311
0300
0606
0201
2311

BRTSN,

FILENAME bRTS.SV

BAFN,

FILENAME BASIC. AF

BSFN,

FILENAME BASIC. SF

BFFN,

FILENAME BASIC. FF

BUFN,

FILENAME BASIC. UF

030k9

2506
0201
2311
0300
2415

TMPFIL, FILENAME BASIC, TM

PAGE 48-2

/OS/B BASIC COMPILER
6k3S
0052
3506
0042
0137
6440
6600
6640
6540
6700
6500
6740
6400
5431
AUl
AMPRTN 6507
AMPSND 1557
ANORM 5236
ARAVST 2132
ARSCNT 0061
AR6I.UP iat6
5414
ARl
A88I6N 6067
3465
AlOK
344S
A20K
4000
BACK!
BADDEP 1253
BADEXP 3122
BAOPN 2131
BADPOR 3323
BAOPSS 3115
BA0602 2166
BADIP 2062
BADLET 0340
BADNXT 0762
BAOPP 0504
7546
BAPN
BASICN 7526
BCOMPN 7532
7556
BPPN
BIOAON 7536
BLOCK 0046
BOSINF 7774
0050
BRTS
BRTSN 7542
7552
B8PN
BUCKET 3672
7562
BUPN
CALLUP 3303
CA8EAM 35S6
CASEMA 3554
CASEMM 3555
CHAIN 3750
CHAINE 7001
CHECKC 6555
CHEOIT 7013

ABORT
ABORTX
ACM
ACNT
ACO
AFADD
APOIV
AriDA
AFMPY
AFSTA
APiUB
AIOIV
AISUB

CHEKST 2441
CHGARG 1320
CHKDIM 0632
CHKSOM 0667
CHKS6N 5444
CHKVAL 2230
CHKMD 6736
7414
CHN
CHRPTR 0017
CL08E 3342
CLOSEP 7434
CLRPN 7501
COLON 0062
COMARP 4102
CONVLP 5014
7200
CORE
COREX 7230
CORLOC 7323
C0R8IZ 7325
7324
CORV
7217
CORX
COR0
7200
7207
CORl
7211
C0R2
COR70 7215
CP8AVE 4166
CWTEMP 6755
OACNT 0062
OALOOP 1036
OAPUSH 1060
DAPUT nil
1431
DATA
OATPLD 1473
DATLST 2566
0A7PTR 1525
OECPT 0023
OEP
1200
depbad 1051
OELOOP 1507
OENTRY 1455
DIGIT 3616
0I6TST 5053
0600
DIM
DIMERR 0701
0742
DIMl
DLSIZE 0051
OOCALL 3200
2432
OOLU
OOSIGN 5150
0S9IZE 1453
OSTRNS 1441
5234
02
03
5235
EOTBGN 3012
EOTBLK 6652

PAL8-ve

10/30/72

E0T8IZ 1600
0343
END
ENDEXP 2741
ENDPIL 6633
ENDPNS 6162
ENTERV 2307
7570
EOST
ERMSO 5706
ERMSQ2 1712
ESIGN 5067
EXPLUP 5401
EXPMUL 5124
EXPON 0025
2600
EXPR
EXPRTN 3544
0000
PADD
1400
PDIV
POLOOP 7274
POPTR 7322
PESC
7410
PPLD2 2311
PIDIV 3400
2^22
PILE
PILENO 7402
PILESW 2556
PINCAL 3271
PINOA 2470
PINOEX 0067
PINDIM 0657
PINDSV 4615
PINDTO 1621
FININP 0423
PINSN 3710
PISUB 3000
PIXEXP 5071
2000
FLDA
PLIMIT 1733
PMPY
1000
7403
PNE6
PNINIT 7400
P0PEN8 2552
1600
1736
1660
0062
1735
5310
5322
5200
5067
2572
FREFLD 2266
2400
F8TA
P8TEP 1734
0400
F8UB

FOR
FORCP
FORFLD
PORJMP
FORNC
FPOIV
PPOVLP
PPMUU
PPRTNE
FREE

PAGE 49
3314
FSUBl
FSUB2 3326
PUNCTN 2570
7416
FUNCl
PUNC2 7417
FUNC3 7400
PUNC4 7415
FUNFLO 1336
PUNNAM 1246
PUNNUM 3336
FUNOK 5673
FUNPTR 1127
6071
PUNS
PUN8IZ 7320
PUN8RC 5660
PUNSS 3000
5520
GCS
6ENER 7255
GENTMP 4200
3517
6ETA1
4035
GETC
GETCWB 4010
OETOEV 7032
BETEXP 5063
GETPN 2111
SETIFN 2045
GETLIN 0222
GETNAM 5600
G08UB 2154
GOTARY 2504
GOTCR 0235
60TKM 0314
GOTNAM 5631
2147
GOTO
GOTOPR 2715
60TREL 2027
GOTSN 3671
GOTSYM 2453
HIPLO 0047
HOOKIN 2257
ICHAR 6600
ICHARl 6677
ICHAR2 6673
ICHAR3 6660
2000
IF
IFEND 2103
IFLUPl 2017
IPLUP2 2072
IFNREG 0063
IPOPS 4141
INBREC 6622
7200
INBUP
IN8UFP 6617
INCHCT 6730
INCTR 6732

/05/8 BASIC

INDEVH 4400
INEOF 6727
INERR 6(>32
INFO
7604
INGBUF 6607
INHNOU 6731
INIT8T 7074
INJMP 6655
INJMPP 6603
INPTR 6733
INPUT 0400
INPUTL 0402
INREC 6620
INTMP 6726
ITRCNT S371
JABORT 7125
JARfUO 1413
JAROND 0062
JEOP
5400
S006
JEQ
JFOR
5010
JGE
5002
JGT
5004
JLE
5007
5005
JLT
JNE
5003
JSUB
5000
JTABLE 2416
JUMP
5001
KBDCHK 2346
KEVWRO 6243
KWIOOP 0273
LDRBUK 0351
LEADe 5757
LEFT
0030
LET
0316
LETTER 3600
LFDOLR 5610
LINE
7000
LINtH 0053
LINEL 0054
LI^JMAX 0120
LITHL 2562
LOAD
4117
LOAOSN 6000
LOADSS 4303
LOCTRH 0044
LOCTRL 0045
LODSN 0547
LD0SS2 4314
LODIST 6513
LOOKUP 2400
L00K3 2212
LSSl
4000
LSSIAC 7406

C(3MPILER

LSS2
LSS2AC
LTEMP
LUARAY
LU8UF
LUFLO
UUKUP2
UUPFLD
LURETN
LUSARY
LUSTR6
LUVAR
L6201
MAC
MOLABL
MINUS
MISARG
MIXED

PAL8-VB

MODE
M0D8ET
MORDAT
MOVARG
MULLUP
M42

4400
7407
2344
2463
4636
0071
2200
0742
2451
2516
2456
2427
2242
3456
3725
2755
2752
3511
3452
0055
5542
1435
3227
5215
5457

1131

NAMEl
NAME2
NAMES
NAMLST
NCHARS
NCSAVE
NDIGIT
NDOK
NEGFAC

0134
0135
0136
7326
0020
4165
0024
3104
5267
NErtARY 2511
NEWFLO 2233
NEWLIN 0201
NEWN3 2343
NEWOP 0032
NEWSN 3716
NEMVAR 4223
NEXT
0016
NEXTL 0713
NEXTX 0704
NFCNT 5236
NFLOS 2345
NFLOOP 5275
NFPTR 5307
NFUNS 1133
NG
7120
NMOOE 7541
NOCR
0461
NOUIGT 3630
NOtXP 5077

10/30/72

NOFNAM 5702
NOGOOD 0304
NOLETR 3614
NOMATC 5677
N0RE6S 3336
NORMLP 5246
NOSN
0062
NOSNUM 0267
NOSTAR 2701
NOSTRG 5624
NOTHEN 2055
NOTMIN 2627
NOTNEW 3100
NOTNUM 3150
NOTQOT 5535
NOTSAM 2250
NOTSSD 3042
NOTVAR 3136
NOWRIT 6463
NOZERO 5755
NO6000 5256
NRDL
7521
NUMBER 5000
NUMCMP 2041
NMSVAR 4236
NXTDGT 5155
N3SIZE 2346
OAOD
5353
OCOUNT 6445
ODEVH 6505
OKFUN
1256
OKINAC 3253
0LDN3 2342
OLOOP 0031
OLOSTK 0060
ONSTAK 3107
OPENAF 7454
OPENAV 7474
OPENNF 7514
OPENNV 7534
OPO
0143
OPRANO 2643
OPRLUP 2705
0PR8R 2663
0PR8RS 6050
OPl
0140
0P2
0141
0P2SIZ 6554
0P3
0142
08TACK 0014
OUBLDK 6475
0U8UF 0000
OUDUMP 6471
OUERR 6502
OUPTR 6444

PAGE 49-1

OUSIZE 6506
OUTCAL 3210
OUTOLO 2733
OUTOPR 3400
OUTWKD 6446
OWTEMP 6443
07100 3622
PATCHl 2214
PATCH2 2270
PATCH3 1477
PATCH4 1520
PATCH5 2222
PCRLF 0062
PETA8L 6000
PEXP
0522
PFCALL 0475
PLUS
2557
POP
4052
POSEXP 5117
P08TX
0350
PRFUN 0547
PRINT 0443
PRINTL 0446
PRNTSN 5741
PRTENO 0534
PSN
5735
PUSH
4062
PUSHO 4073
PUSH2 2727
PUTl
0532
PUT2
0540
PUT40 5514
QBACKl 0125
OCHECK 0113
OCHKWO 0075
aCOMAR 0115
QDIGIT 0131
OERMSG 0073
QEXPR
0105
QGETAl 0111
OGETC 0102
QSETCW 0103
QGETNA 0114
QLETTE 0130
QLOAD 0120
QLOADS 0112
QLOOSN 0074
OLOOKU 0116
OLUKUP 0117
OMOOSE 0076
(JNEWLI 0107
QNOREG 0132
QNUMBE 0126
QOUTOP 0106
QOUTInR 0100

/08/a BASIC COMPILER

OPOP
0PU8H
QPU8H0
QRCMAR
QRESTC
Q8AVAC
Q8AVEC
Q8NUM
Q8TRIN
010
02

0122
0121
0123
0110
0104
0124
0101
00T7
0127
1132
1130
0133

0400
RANDOH 3!fc4
READ
7411
1S26
REAOX
RELOPR 2111
REMARK 0205
RESAR6 1400
7405
REST
RE8TCP 4027
RE8T0R 0542
7404
RET
RETURN 3561
7421
RNOO
R8TRNG 0431
RUNNEO 4600
8ACNT 0043
SACOMP 6440
SACON 6400
8AL0A0 6640
8AREAD 6500
8ARy8T 2332
8A8IGN 6065
8A8T0R 6700
8AVAC 4251
8AVECP 4021
8AVEJF 1643
8C0MP 0400
8C0MPR 6567
SCON
0000
SCRTN. 6511
8ETPLD 0070
8ETJF 7401
SHIFT 3654
5012
SIGN
SKIP2 6531
SKPEXP 5145
SLASH 2761
8L1TRL 2564
8L0AD 2000
SLOOP 5467
8MLNUM 5400
SHOOE 7561
SNLOOP 3647
SNUM
3632

SNUH8 2532
SPACE 5750
SPCIAL 3514
7461
SROL
SREAD
1000
SSINAC 4347
8SL0AD 4323
S8L00P 3014
88REG1 0064
S8RES2 0065
SSTORE 2400
88TVPE 4320
STACK 0015
8TACKA 7120
STACKO 1134
STAKSZ 0060
STAR
0356
START 7000
STCHEK 2317
STEMPS 2560
8TEP1
1727
8TKLVL 0066
STKOVR 4070
STMPCT 0035
8THPLV 0036
8T0K8Z 0044
7441
STOP
STOPX 3565
STOVER 2337
8TPTR 0037
STRARS 1054
8TRCMP 2065
8TRGER 5511
STRING 5455
STRTMP 4213
STRT2 7047
8TRT3 4651
SVAR8T 1036
SVCNT 0041
SVTEMP 4300
8MRITE 7413
SWTARG 1325
8YHBL1 0057
SYHBL2 3560
8VMS0L 0027
TABPNT 0464
TEMP
0021
TEMPS 2556
TEMP2 0022
TMPBLK 4656
TMPCNT 0033
TMPPIU 7566
TMPLVL 0034
TOOMNY 4320
TRYDEC 5040

P*LS>V6

10/30/72

5052
TRYEl
TRYE2 5056
TRYFUN 5635
TRYPNT 0514
TTX
3740
3730
TTY
TTYFIL 2140
TMODIM 0624
5234
TM2
TW3
5235
TYPCHK 3467
TYPE
0026
0056
TYPEl
TYPE2 3557
UDEF
1000
UMOPR 0765
UMRTNE 3535
UNOPR 2614
UNREFD 0647
UPAROW 0362
USE
7540
U8EERR 1754
17«5
U8EX
USRFUN 5704
VARCNT 0040
VAR8T 0400
VCPTR 2415
0007
VERS
VERSON 0100
WOLOOP 6742
WGOTO 6271
0134
WORDl
W0R02 0135
W0R03 0136
WPNT
5561
WRITE 7412
W8TEP 5156
WTAB
3132
WTHEN
1737
MTO
6273
XABORT 0006
XADD
5162
6756
XOIV
XIDIV 5557
XI8UB 3763
XLOAD 0770
5762
XMUL
XSCOMP 6734
XSTCHE 1126
X8T0R 4301
xsua
1743
xxxxsv 4625
X10
0010
xu
0011
X12
0012

PAGE 49»2
X13
ZEXP

0013
5265

ERRORS OETECTEDJ
3859
LINKS GENERATED!
3860

B
'it

#
ABORT
ABORTX
ACN
ACNT
ACQ
AP

APAOO
AFDXV
AFUOA
APMPV
APSTA
APSUB
AIOXV
AlfUB

Hi
AM^RTN
ANPINO
ANORM
ARAV9T
AR6CNT
ARBLUR
ARI

AS8I6N
AIQK
AIOK
BACK!
BAOOEF
BAOEXR
BAOFN
BAOFOR
BA0F8S
BA0602
BADZF
8A0LET
BAONXT
BADRF
BAFN
BASIC
BAS!CN
BCOMF
BCOMPN
BFFN
BLOAD
BI.OADN

BLOCK
BOSINF
BRT8
BRT8N
B8FN
BUCKET
BUFN
CALLUF
CASEAM
CA8EMA
CA8EMM
CHAIN
CHAINE
CHECKC

34124
Sfct 3568
1938
1967*
48i 1440
2078 2475
ItTi 2071
2708 2714 2715 2752
1038
I99i 214 2586
zeii 3494
2es# 216
635 1677
2eii 2979
2B«i 217
975
S98
200* 815 1100
20S« 2846
I98i 81J 2145
2492 2493 2495 2652
985 33244
98311 3044
3125
2SS8 2627 26344 2651
U0i 161 1442
83# 745
767
773
7!4# 770
2814 2677 27454 2756
344 3049#
1947
19504
1930
19344
104
21594 2166
759
742
750
755
1S47
1554
17324
1628
12214
1217
1002
1005
1019
1011
1668
1687
1717
17274
1169
1237
1243
12514
1135
1141
11814 1191
335
3474
582
586
6284
591
449* 454
3716 38384
3822 3838 3842 3846
19

2490
2754

2613
2759

2354

2699

27584 2768

2658

2709

789

812

815

769
1734

7834
1784

853

1038

1856

18614

3850

3854

3370

3371

2757

38264
38464

38304
2459 3528
24
1404
S4# 3566 3834
3715 38344
3717
38424
2062 20864
2441
38504
1634
18454
1908
1906
1904
21338
35148
94

1933
1949
1932
3272

1967
1950
1939

33624 3365

3532

20074
20054
20064
3367

2761

2251

382211

3826
3713
3718
3830
3714
528

2639

817

818

877

CHEOIT
CHEKST
CHGARG
CHKOIM
CHK80M
CHKSGN
CHKVAU
CHKWD
CHN
CHHPTR
CLOSE
CLOSEF
CLRFN
COLON
COMARP
CONVLP
CORE
COREX
CORLOC
CORSIZ
CORV
CORX
CORe
CORt
C0~R2

COR70
CPSAVE
CWTEMR
DACNT
OALOOP
DAPUSH
DAPUT
DATA
OATFLO
OATLST
DATPTR
OECPT
DEF
DEFBAD
OELOOP
GENTRY
DIGIT
OIGTST
Din
OIMERR
DIMl
DLSIZE
DOCALL
OOLU
DOSIGN
0S8IZE
OSTRNG
oa
D3

EDTBGN
EOTBLK
EDTSIZ
END
ENOEXP
ENDFIL

3524#
3519
1422» 1466
S20« 837
53a#
526
536
567# 570
525
2769« 2772
2479 2324
1287# 1295
3477# 3478 3479
80
224# 2141
284
1042
2e#
1012
1881« 3266
226i ld84
231# 1231
6B« 1206
1212
96
2225« 2227 2230
24B2# 2501
2511
3592 362S«
3651#
3632 3646
3648
3641
3635 3639
3653 3712#
3628 3649
3644 37ll#
3642# 3643 3710
3627# 3650
3647
3634# 3637
3636# 363S
3640«
3631
2180 2183 2277#
3486
3487
3480 3481
714
721
65# 703
674# 700
690
692*
684
T17# 722
896« 903 3212
930# 952
168
956
167«
950
934
936
933
2502 2510
32# 2471
740« 3216
673
652
658
646
942# 947
913
898
916# 917
108
204U 2043 2049
2506 25l3#
512« 566 3207
518
535
523
513
557
521
61U
921
55#
922
1777*
1700
1415# 1439
2575)»
2557
914#
909
904«
897
2629* 2696 2698 2704
263t# 2693 2695 2706
142* 3427
3425«
3421
141# 3423
3S0« 3285
1591
1617# 1619
1574
3389 3410# 3453

571
2777

576

3483

3486

3491

2164

2165

2174

2234

2237

2179

3710#

3492#

956#
2539
675

679

919
2050

955
2052

549

577#

685#

691

699

•

ENDF
O^n

ENTERV
EOST
ERM86
ERM8G2
E8I6N
EXPLUP
EXPMUI.'

EXPON

EXM
EXPRTN
FADO
PDXV
PDLOOP
PDPTR
riic
rr

PFLD2
FIBIV
FILE
FXtENO
FIUESM
FINCAl.

FINOA
FINOIX
FINDIM
FXNDSV
FINOTO
FININF
FINSN
FXSUB
FXXEXP
FLDA
FLXMIT
FMPY
FNE6
FNXNIT
FOPENS
FOR
FORCP
FORFLD
FORJMP
FORNC
FPOIV
FPOVLP
FPMUL
FPRTNE
FREE
FREFI.D

F8TA
F8TEP
FSUB
F8UBI
FSUB2
FUNCTN
FUNCl

FUNCa

31098
711
1334# 1339
144«
710
775
29348 2937
78
1«S# 359
25268 2528
2S21
27S4i 2744
25S58 2571 2574
560
34i 520
25S9 2734 2738
88
15208 1526
19978
S87
208
2585
3493
3887* 3708
3688 3889 3690
238*
3848
13388 1354
180* 2845
14720 3221
2328 1229
1478
1474
1482
18358 1853
14458 1456
1470
748 600
601
5598
531
24208 2436
10178 1024
4008 41S
21008 2112
1748 2144
2S268
1778 211
634
1057
1067
1028
1758 210 2978
2338 1995
3885 37368
1473
14968
10008 3175
1041
1013
10948
104S8 1060
1047
688 1035
1063
1039
10938
1015
2548 26768 2710
26868 2701
2551
26018 2628
2S258 2S52 2570
1698
27
928
1046
13178
1788 212
398
1074
1031
1088
1748 209
1099
18548 1860
1043
18648
1025
1030
169
1688
712
2448 2000 3060
3099
3740 3748
3813
2458 3057
3063

923
2942

1045
2944

1312
2956

572
2741

2531

2535

2543

3695

3700

3701

37098

1483

1493

15008

625

1008

1069

1072

1350
976

2547

2550

2555

1352
1070

1353
1819

1S68

2353

2252
2251
10918

1076

1322
1330
399
975
10928

1865
1871
780
3066
3756

1794
3072
3764

3706
3075
3768

3081
3777

3087
3787

3093
3797

3096
3805

3069

3078

3064

3090

3102

3105

310S

FUNC3
FUNC«

FUNFLO
FUNNAM
FUNNUW
FUNOK
FUNPTR
FUN8
FUNSIZ
FUNSRC
FUNSS
GCS
GENER
GENTMP
GETAl
GETC
GETCWB
GETDEV
GETEXP
GETFN
GETIFN
GETUIN
GETNAM
60SUB
GOTARY
GOTCR
GOTKW
gotnam
GOTO
60T0PR
GOTREL
GOTSN
GOTSYM
HIFLD
HOOKIN
ICMAR
ICHARl
1CHAR2
ICHAR3
IF

IFENO
IFLUPl
IFLUP2
IFNREG
IFOPS
INBREC
INBUF
INBUFP
INCHCT
INCTR
INOEVH
INEOF
INERR
INFO
INGBUF
INHNOU

iNim

injitk

3744
24b«
247#
3138
800
753
1788
2922#
655
2909
3696
2911#
1566
2789
3661
824
92
85
86

3/52
426
3111
3141
619
771
1791

2932
656
30S2«
3697
2926
1650*
2795
3672#
1866
1934
2188*
2167*
3539*

2462
2521*
417
382
116B« 1180
268* 272
2863*
95
1241# 3191
1457*
1452
276
269
326*
311
2873 2861
1236« 3185
1597# 1613
1154# 1196
2068 2085*
1432*
1420
53# 3654
1304
1280
275
268
3429 3441
3430 3442*
3431«
1131* 3171
ll98i 3168
1146« 1153
1189*
1148
70» 1224
1144 2256*
3401*
151* 3398
3398# 3406
3385 3403
3390 3393
145# 2403
3395
3387
3400 3409*

3809

3817

3129

3132

3135

3672

3673

3674

3676

1230

1234

1484

1883

3456

3462

3465

3467

3466

3565

3567

3569

3773 3781
3760
476
461
441
3120
3114 3117
3150
3144 3147
834*
778*
776
1672*

3791
3054
3123
3153

661

706

707

2814* 2821

2826

2830

2831

2268*
1943
2193
2172

2298
1976*
2197
2173

2306
1989
2199
2175

2342

481

1203

1203* 1227

2866

2890

2891

660

3601
3736
3126
3156

731*

3707*

2200

279*

2888*

3655 3659
1310*
3383* 3408
3446*

1197
1228

1233

3450

1875

3624

3471*
3473* 3559
3545
3470*

3524
23
122* 3417
21
3390«
3472* 3537 3546
3396
3573#
3384 3386
3405 3428* 3432

•

iNiRfp
XNPTR
INPUT
INPUTL
INREC
INTMP
ITPCNT
JA80RT
JARPLD
JARONO
JEOF
JEQ
JPOR
J6E
J8T
JUI
JUT
JNE
JSU8
JTA8LE
JUMP
KBOCHK
KEYWRD
KMLOOP
LDRBUK
tEAD0
LEFT
LET
LETTER
LPOOLR
LINE
LXNEH
LINEL
LINMAX
LITRL
LOAD
L0AD9N
LOADSS
LOCTRH
UOCTRL
LODSN
L0DSS2
LOOIST
LOOKUP
L00K2
LSSl

LS81AC
L8S2
L8S2AC
LTEMP
LUARAY
LUBUF
LUFLO

LUKUP2
LUPFLO
LURETN
LUSARY
LUSTRG
LUVAR

338»# 3404 3431
3433 3440 3442
3407
381« 3197
383«i
405
3399i 3401 3563
3444 3469*
3437
2610 2623 2683 2700
3588 3S90 3598*
881*
802
884
808
69* 796
18Si 1201
193i 2269
19S# 1034
189# 2260 2262
191# 1089 2271
194# 2264 2266
I92i 2273
2258
190(11 2256
1849
187* 1245
1403*
1400
606
806
188III
1376
1366* 1368
305
306 3159*
309* 317
324
3S6I* 3S71
2972 2975*
37i 1522
1525
329* 3162
325
2027* 2029
107
2671* 2899 2925
264
146i
281
87# 294 2948
2950
SB* 296
147# 266
166
1750
165«
99
2238* 2245
490
184«
2356* 2364
93
614
5a# 299
sm 265 302
485* 488
79
2360 2365*
3324 3326 3328*
1389* 1430
97
1273* 1309
181* 2386 2369
236* 2394
182* 2388
237*
1294
1363*
1286
1406
1440*
2422 2437*
801
76* 799
1846
1331
2101
98
1263* 1264
603
595
612*
1409
1407
1405
1467*
1410
1435*
1408
1404
1412*

^^
3445

3446

3474*

2725*
885

887

1378

1758

1744

1050
886

3295
1052

3293

1529

1571

1624

2037
2930
283

2036

2040

1777

3512

3682
225S
2368
842
617
494

2372
883
844

3359
1434

1461

803

929

935

951

1271

1300

1266

1267

1268

1301

1302

1341

1411

1430*

16201
MAC
MDUABL
MINUS
MISARG
MIXED
MM
MODE

MODSET
MORDAT
MOVARG
MULLUP
M42
MS
NAMEl

NAME2
NAME3
NAML8T
NCHARS

NC8AVE
NDI6IT
NDOK
MEGFAC
NEMARV
NEWFLD
NEMLIN
NEWN3
NEWOP
NEMSN
NEWVAR
NEXT

NEXTU
NEXTX
NFCNT
NFLOS
NFLOOP
NFPTR
NFUNS
NG

NMODE
NOCR
NOOIOT
NOEXP
NOFNAM
NOGOOO
NOUETR
NOMATC
N0REG5
NORMLP
NOSN
NOSNUM
NOSTAR
NOSTRG
NOTHIM
N01

1297#
1926
2093
1162
1533
1957
1939#
59#

1943«
2113*
1629* 3036
1626« 1746
1755
1961
1970* 2003
1681

1843

2832« 2835
915
90e«
81

1801* 1822
2614# 2624
278l# 2804
662
733#
lUi 650
1462 2293
113« 1395
11S« 2904
2i
37l3#
29« 282
2189 2192
2178 2185
33« 2481
1713
1718#
2577 2659#
1447
1462«
1277
1290*
90
251#
1274
39«
2088
1752
27«
931
1078
2111
588*
581#

1278
1592

2833
2844

2836

3642

2843

2817

2822

653
2301
2871
2918

1390
2867
2897
2931

1392
2893
2900

1394

1396

1415

2901

2905

2914

1014

1040

2161

2162

2166

2276*
2485 2513

2541

788
953
1337

791
1051
1343

2674

2691

1299
346
1305
1603

1307

1319

1316
1606

1362*

2106*
2297
2307* 2316
716
720
724
939
945
948
1080
1318
1320
2313 2324

3684
786
949
1328

3180

2fa33« 2663

2672
1364* 3657
266SII> 2673
2661
2666
2668 2670 2671
2675*
644
735*
2430 2455
3546
3593*
243« 2838
424
43li>«
2048 2051*
2517
2520 2523 2530 2534*
2903 2913 2929*
314
318*
2032 2035
2039*
2916 2920
2926*
109
1873* 1860
2642* 2656
67* 255
290
486
289
305*
1577
1579
1585*
2876 2883*
1167
1176*
1539
1543*
1356

1438

1449

2171

2177

2186

794
1053
1355

795
1055
2108

797
1065
2109

itWT
notnW
NOTNUM
NOTQOT
N0T8AM
NOTSSD
NOrVAR
NOMRIT
NOZERO
NOft0e0

NROU
NUMBER
NUMCHF
NN8VAR
NXTD8T
NSaiZE
OADO
OCOUNT
OOEVH
OKfUN
OKINAC
OUONI
OUDOP
OLOSTK
QNSTAK
OPENAP
OPENAV
OPENNF
OPENNV
OPO
OPRAND
OPRLUP
0PR8R
0PR8R8
OP I
0P2

0P28IZ
OPS
08TACK
OUBUOK
OUSUF
OUDUMP
OUERR
OUPTR
0U8IZE
QUTCAI.

OUTOUD
OUTOPR
OUTMRD
OWTEMP
07100
PATCHl
PATCH2
PATCH3
PATCH4
PATCH5
PCRUF
PETABL
PEXP

^^
#

1709
1748
2819
1293

I7l4i
1754#
2824 2827«
1303«
U71 1684*
1557
I744i
3298 3304*
2969 29T3i
2645 26S0«
968
22Si 967
2470« 2478 2515 2578 2579
105
1164i 1187
1203
1763 2305
2318i 2327
2484 2498 2580i
1285
1338
1269
136S«
1311
2494 2500 2622 2692 2711* 2724
329ei 1297 3303
3S22#
782
786#
1814
I821i
1265
1273
1276
1275
1306
1323
38i 1600
1606
1601
1611
62« • 11
849
1721i 1753
1765
228i 1496
227i 1497
230* 1498
229# 1499
2499 2569 2690 2713
121« 2491
1545
1531
1555«
1589« 1596
1551
I571f 1726 1781
1587
3034*
il8i 2563
2603 2604 2625 2678
119# 2487
2496 2565 2687 2721
3343 3345 3357 3361«
120* 2489 2497 2567
2717
25i 261
339 1157
1682
1664
1913
1965
1978
1914
1964
1979
2376 2377 2378 3332 3344 3346
2457 3300 3314« 3316 3533
157i 3289
3313
3299 3310# 3316
352
3315 3319*
32898 3301
3306 3308
2461
3317
3323« 3531
1779
178S# 1796
1600
1810
1830
1605
1611*
89
1»97# 1966
1972 2004
3360
83
3291» 3309
3288« 3292 3304
2045* 2120
1275# 3662 3663
1319# 3664 3665
934# 3666 3667
951i 3668 3669
1281* 3671
64# 419
473
2553 2993«
460
463«

1329

1361*

1839
2219
3353

1640
2221
3354

1912
2331
3356

1844

2002

1325

1326

2737

2743

2681

2702

1685
1980
3347

1835

PFCALL
PLUS
POP
POSEXP
POSTX
PRFUN
PRINT
PRINTL
PRNTSN
PRTENO
P5N
PUSH
PUSHO
PUSH2
PUTl
PUT2
PUT40
QBACKl
QCHECK

QCHKMO
QCOMAR
QDIGIT
QERMSG
QEXPR
Q6ETA1
QGETC

Q6ETCW
OGETNA
OLETTE
OLOAD

QLOADS
QLOOSN
QLOOKU
QLUKUP

QMODSE
QNEWLI

ONOREG
ONUMBE
aouTOP
OOUTWR

OPOP

QPUSH

442« 462
1501# 3034
101

220U 2208

2550*
360
455
3203
432
2976
473*
2951
2203
100
22}8»
102
1599
1607»
456
47l#
477# 483
2796 2810*
104* 436
2534 2776
94« 333
979
900
80* 438
96# 52^
108* 2056
78* 253

2545
355«
442
41b#
419#
2961#
421
2949

1109
1861
8e#
960
92#
e5#
1578
2880
86*
95#
107*
99*
3349
93#
79#
1472

1181
1970
331
1132
386
251

484*
472

2957* 2977
2207 2209* 2214
2223

1188
2825
402
1009
458
698
2067
273
1221

1614

2039

2051

2236

2512

563
1475
1165

666
1479
1177

671
1548

726
2780

851

2370
430
1546

577
1552
2807
433
1665

628
1626
3319
443
1855

685
1730
3410
464
2134

783
1782
3594
654

1036
2505

1134
2516

1140
2522

1532
2802

1573
2872

754
2898
1487

1001

1104

1556

2865
1218

2902
1801

1857

1992

2136

1555
2887
452
1207
1022
768
2482
347
1251
2139
364
1210
1667
420
2226

1584
3369
533
1215
1027
1686
2735
358
1358
2215
416
1485
2239
1018
2477

2868
449
1491

2ttl5

2113
336
1154
962
313
2042
3485
2820

512
645
445

581
651
466

674
657
856

397
329
1881
529
97 #
98« 711

412
381
2010
540
779

974
416
2133
583
1749

1672
479

1931
958

1948
1000

2250
1131

1198

1241

760
1760

1006
1793

1113
2085

1558
2294

2302

3681

390

407
1910
475
1250
740

587
2011
478
1495
893

751

964
2344
627
2016
1645

1186

1238

1244

2241
565
1886
1083

728

894

902

493
1033
1226
1685

598
1059
1232
1941

827
1732

1597
1735

1523

3705
8l#
1676
9e«
905
109#
105*
89*
83*
602
1064
1247
1952
101#
1617
1737
100«

2028
3363

741

291
1816
404
961
292
896
345
351
607
1066
1249
2015
592
1620

435
1175
622
1747
1163
392
610
1068
1494
2142
594
1623

1185
401
807
1071
1679
2254
596
1662

1612
429
809
1103
1820
2347
599
1689

1115
1636
2391
718
1691

697

762

764

766

1073

1831

2143

1616
471
880

477
969
1172
1650
2395

491
978
1174

821
1693

1869
2640
825
1695

1075

1077

,^179

1S27

QPU8H0
OREMAR
0RE8TC
Q8AVAC
08AVEC
Q8NUH
08TRIN
OtB
02
0400

RANDOM
READ
REAOX
REIOPR
REMARK
RE8ARG
REST
RE8TCP
RE8T0R
RET
RETURN
RNDO
R8TRN6
RUNNED
SACNT
SACOMP
SACON
SALOAD
8AREAD
8ARY8T
SA8I6N
SASTOR
SAVAC
8AVECP
SAVEJF
SCOMP
SCOMPR
SCON
SCRTN
SETPUD
SETJF
8P

SHIFT
SIGN
SKIP2
SKPEXP
SLASH
8UITRL
SLQAD
SLOOP
SMLNUM
8M0DE
SNLOOP
SNUM
SNUMS
SPACE

102III

91«
961

2135
67«
103*
sai
a2#
106«
703
692
110*
2019*
239«
9S8i
1149
91

659
235i
87

479f
234«
2010*
22i#
389
2407#
49«
214#
213*
216«
2l5i
161#
3047*
2t7i
103
S4

1S28
1568
365
1086
3692
318
1561
308
288
904
734*
693
1680
3260
391
982
1171
252
870*
482

1541
1570
444
1116

1607
1721
«51
1133

1609
1723
465
1155

1656

1658

TtbU
1660 ^Wt>i

579
1183

630
1211

687
1253

457
1653
437
1168
1754

463
1673
1021
1236

1017
1724
1164
1242

1176
1789
2892

2929
1990

3329

732*
1837
1924

1936

1962

2243

337

349

3230

2337

2351

719
2312

792
2323

3226
1192
1202
255* 332
878

785
1486

855
1863

2335

2383

3352

944

1272

1321

1204*

2182* 2187
3238
879 2012
3245
2012 2013
406*
3513
1467
3476

413
162

1469

2329* 2330
2176* 2181

1035* 1090
209* 3475
11B4
3327
206*
3326* 3373
75*
77
1802
1823
220* 1032
3842
2072* 2079
2476 2480#
3337
3342*
2561
2572*
1633* 3040
166*
167
211*
2789* 2801
519
532
242* 2838
2067* 2084
82
2054*
162*
163
2945 2968«

2332

3339

3372*

297

715
2106

2096

2575

1761

2527
2839

2733* 2736

2057
2061

2063

2105

2115

937

SPCIAl.

SROL
SREAD
SSINAC
SSUOAD
SSLOOP
SSRCGl
8SREG2
SSTORE
8STYPE
STACK

STACKA
STACKO
STAKSZ
STAR
START
8TCMEK
STEMPS
STEPl
STKUVL
STKOVR
STMPCT
STMPLV
8T0K82
STOP
STOPX
STOVER
8TPTR

STRARG
STRCMP
STR6ER
STRING
STRTMP
STHT2
STRT3
SV

SVARST
SVCNT
SVTEMP
SWRITE
8WTARG
SYMBUl
8VMBL2
SYMBOI.

TABPNT
TEMP

TEMJi^

1973*
223* 967
414
210* 413
23B5 2593*
2363 2366 2367 2373* 2392
1662* 1688
71#
72#
212*
23(>9» 2382
810
589
620
263
26#
2202 2205 2206 2210
1729
2211
73
148* 588
26
736* 737 2220
260
25
149* 2211
361* 3038
3513*
1044
1314
926
777
730
165
2303
164*
1087*
1029
1085
621
73* 262
2215* 2224
2299 2300
891
42* 259
892
43* 258
737* 2220
222* 350 2013 2014
2014* 3250
2328
2317
1358* 1431
556
555
554
44* 542
1418
874
1416
871
831
1464
1463
1456
1455
1454
686*
681
1184«
1161
2803 2807* 2816
a779# 2782 2783 2790
106
2290 2299*
3538 3552*
2448* 3523
3830 3834
3822 3826
160
1437
159«
2319 2326
47* 1435
2339 2340 2341
2333 2334
241*
825*
1951
977
1678
61* 400
2009*
1940
1968
1919
763
630
623
752
36*
1694
1432
1459
1559
1426
2001
2090 2098 2310
1870
2922
433*
427
315
267
312
271
30*
609
593
550
547
552
836
918
702
814
683
1194
1170
1158
1159
1142
1720
1625
1701
1690
1622
1974
1975
1816
1922
1812
2358 2415 2786
2104 2107
2812 2960 2975 3333 3335
164
2295
163*
1901

2396

650

658

1084

1728

1342* 1346

1347

1349

1357

558
1427
1659

559
1443
1692

561
1445
1706

761

1450
1711

828
1453
1712

2606

2809

2813

2343

2349

2350

2352*

1985

2253

833
1722
2311

1007
1787
2321

1114
179^
2322

1298
1821
2346

1425
1867
2348

326
615
920
1246
1736
1988
2794
3338

327
616
924
1521
1739
1999
2797
3699

340
618
938
1524
1798
2055
2798
3703

341

539
682
1139
1594
1808
2097
2810

847
2212

663
946
1586
1805
2091
2799
i

TEMP

TMPBLK
TMPCNT
TM^FIL
TM(»LVU

TOOMNY
TRVoec
TKVEl
THYEa
THYFUN
TRYPNT
TTK
TTY
TTYriL
TWOOIM
TMi
TMl
TYPCHK
TYPE

TYPEl

TYPE2
UDEP
UP

UHOPR
UHRTNE
UNOPR
UNPEFD
UPAROW
USE
U8EERR
U8EX
U8RPUN
VARCNT
VAR8T
VCPTR
VERS
VERSON
MDLOOP
M60T0
MORDI

M0R02
W 01^03

MPNT
MRITE

31*
839
1715
2S00
3S5«
2«53«
40«
2453
Hi*
2362
2«83
2509
2504
2869
440
ISTT

298
1143
206S

2456
257

38S4i
256
23704
23024
25124
25164
28924
4574
2122
21Ui 2123
12284
1209
SS2i
524
260» 8615
2608 2618
i95ai 1969
35i 514
822
765
1696
1655
1997 2864
60« 387
1219
971
1858
1842
2242 2247
1920
1917
644111

3850
631#
633
15S2i
545
365i
248#
1105
1102*
2908
45«

729

1540
19904
1536
5514
3042
1102
11094
3281
29314
1412
158III
159
1402« 1413
204
20
17i
3481 # 3490
31814
1178
250
112«
1332
1283
2602 2626
3687
3678
295
1144
2486 2605
2748 2765
116* 2069
2718 2719
2S474
459
240# 470

300
1151

2083

689 ^70
1704
1657

^01

2393

744
1710
2788

743
1397
1958

746
1563
1963

757
1567
1993

723
1825
1986

963
1828
2137

965
1838
2240

688
1569
2374

2386

2099

665
1560
2110

2291

2292

2953
2946

2955
2947

2970

2974

568
832
1719
2879
409
1669
1945

584
1003
1827
2888
446
1675
1954

676
1106
1902
2869
468
1807
1959

696
1112
1909
2924
670
1815
1983

1928
3277

1955

1994

20084

301
1173
2095

2458
889

2460

890

1082

1061

21244 2131
2943
2941

303
1248

2617
2620
1996
B2B
823
1697
2878
394
1488
1935
3351
1923
737

26304
26324

1542

1610

2308
1414
1423

2315
3573
1429

1436

1441

1468

293
1756
2654

489
1792
2655

708
1832
2657

772
2066
2680

906
2075
2703

910
2077
2755

912
2472
2784

940
2537
2829

492
2611
2767
2081
2749

2056
2635
2785
2474
2751

2059
2643
2958
2488
2762

2072
2664
2961
2607
2764

2074
2705
2964
2612

2080
2722
2965
2637

2082
2723
3680
2646

2473
2746
2707

WSTEP
WTAB
WTHEN
WTO
XABORT
XADO
XDIV
XIDIV
XISUB
XLOAO
XHUL
XSCOMP
XSTCHE
XSTOR
XSUB
XXXXSV
XI0

XU
xia
X13
ZEXP
J.L0366

^L0370
^t.0371

^L0372
^L0375
^L0376
^U0377
^L0561
j,L0562

xU0563
^U0564
*L0565
^L0S66
^L0567
^L0570
xL0571
J.L0572

^10573
j,L0574
J.L0575
a.l.aS7fc

-.1.2772

^U0773
^L0774
*LaT75
^10776
^L1372
J.U1373

^L1375
^L1377
^L1567
a.Ll570

1028
439
1095#
1023
19#
987
1636
1635
1631
597
363

3375
709
2345
1058
2423
21#
1145
1593
1918
2926
22#
2390
3583
23#

3579
24«
2641
353
350
344
306
266
264
260
490
482
476
4T0

2518 2581«
1740#
1166
318i«
357
1360
988
1503
3493»
2845#
2144*
634« 1903
364
2978*
3376 3475III
730*
2353# 3048
1099* 1632
2428# 2431
265
270
1146
1150
1803
1824
1973 2094
2927
3525
1284
1288
2420
2554
3585
787
835
3584
3686
848
857
2657*

281

263

538

543

461
441
428
425
422

414
413
399
398
391
606
604
588
574
537
806
604
790
775
976
975

1373
1504

2217
3321
2585i

3596

319
1291
1905

3050
279
1189
1851
2418
3527
1333
2562

307
1193
1896
2434
3529
1335

309
1282
1899
2447
3535

2564

840
3693
870

643
3702
872

2910

322
1296
1907
2911

1588
1915
2917

943
1589
1916
2921

2566

1982
2568

1984
2572

2379
3576

2380
3580

845

2414

3348

3355

3574

876

2412

1981

941

.^m

966

^Li573

^ae
923
879
1102
10«9
1007
1070

tl.lS76
,.11577
,.11764
,.11765

^11766
^U1767
^11770
^1.1774

^L1775
^12171
^L2172
^1.2173

^t2174
^L217S
^L2176
^L2177
^12371
^L2372
^t2373
^L2S74
^1.2375
^1.2376

^U2377
^12564
^L256S
^1.2566

^U2567
^12570
^1.2571
,.U2572

A2573
^L2575
^L2576
^1,2577

^L2765
^12766
^12767
^L2770
^L277l
^1.2774

^L2775
.1.2776

^L2777
^L3172
^1,3174
^1.3176
^1.3177
^1.3370

^L3373
^13374
^L3375
^L3570
^1.3571

^L3S72
^L3S74
iL3575
.L3576

10ftl

10S4
1032
124S
1231
1225
1201
1184
11()2

1144
1374
1371
1370
1351
1312
1283
1270
1473

1332

14fc9

1467
1457
1442
1440
1437
1431
1421
1414
1412
1587
158S
1582
1575
1564
1543
1540
1537
1534
1727
1707
1677
1650
1884
1849
1647
1819
2014
2013
2012
2000
1995
1921

1465

1580

1*98

1868

1987

^L3577
j,L37fc5

^1.3766
*1.3767

^L37T0
xl.3771
*1.3772
^1.3773
^1.3774
*l.3775
^1.3776

*L3777
^L«170
j.t4lTl

^L4172
^U«i73
^1.4174

*U4175
*L4176
*U4177
^U4373
a.1.4374

*U4375
xU4377
^1.4777
*L51fe4

*L5U5
j,l.Sl66

^L5167
*L5170
*LS171
*L5172
*L5174
^L5175
a.L5l76
^1.5373

*L537«
^L5375
^1.5376

^U5377
*U5567
*U5570
*l.557l

*L5572
u.1-5573

^L5574
^1.5575
^L557fe

*L5577
*L5765
^L5766
^L5767
*L5771
j.1.5773

*1.5774
^1-5775

^15776
j.Lb777
J.L657S
.6576
^L6S76

1903
2141
2121
2116
2102
2064
2061
2046
2044
2036
2033
2030
2252
2251
2232
2228
2220
2211
2198
2195
2394
2389
2386
2309
2408
2577
2573
2553
2551
2548
2538
2536
2507
2494
2492
2690
2660
2652
2614
2609
2839
2838
2628
2827
2811
2787
2785
2774
2770
2973
2967
2954
2952
2923
2909
2906
2883
2874
3342
3311

2070

2117

2320
2426

2439

2500
2493

2495

2699
2677
2682

2882

2451

.l.*577

3302
3466
3460
34S9
3454
3451
3446
3447
3434
3414
3412
3402
3S82
3575
3573
3556
3555
3524
3521
3517
3515
3687
3685

3670
3668
3666
3664
3662

3443

3S43

3550

PAL8-V8

/08/8 BASIC LOAOEH
1

/OS/8 BASIC LOADER

3
a

/DEC-S8-L.BA5A-A-I.A

/COPYRIGHT, l«>7a

5
6

/DIGITAL EQUIPMENT CORPORATION
/MAYNARD, MASSACHUSETTS 01754

7
8

9
10

12
13
14

/HANK MAURER

/AUGUST 19, 1972

/
/

U
17

10/30/72

0100

VERSONai00

PAGE

PAL6»va

/OS/B BASIC LOADER
16
19

20
21

22
23
24
25
26
27
2S
29
30
31

32
33
SO
3S
36
37
3a
39
40
41
42
43
44
45
46
47

48
49
50
51

52
53
54
55
S6
57
58
59
60
61

62
63
64
65
66
67
68
69
70
71

0010
0011
0013
0015
0020
0021
0022
0023
0024
0025
0026
0027
0030
0031
0040
0041
0042
0043
0044
0045
0046
0047
0050
0051
0052
0053
0054
0055
0056
0057
0060
0061
0062
0063
0064
0065
0066
0067
0070
0071
0072
0073
0074
007S
0076
0077
0100
0101
0102
0103
0104
010S
0106
0107

10/30/72

PAGE

086 BASIC COMPILER POST PROCESSOR
X10al0
Xll'll
X13»13

STACKulS
8TCDFii20

/KEY INTERP

N8TA0R»8TCDF*1
NASTAD*NSTADR«'l

SSTAORiNASTAD*!
SASTAD'SSTAOR*-!

CODCDPwSASTADtl
CODB6NiC00CDF4>l

OATTOP"CODBGN*l
DATPTR«DATT0P*1
SWPINF"DATPTR*1
VARCNT"40
/LOCATIONS
SVCNT«VARCNT*1
ACNT"SVCNT*l
SACNTaACNTtl
L0CTRH»3ACNT*1
L0CTRL«L0CTRH*1
BLOCK«LOCTRL«1
HIFLOaBLOCK^l
BRT8"HIFLD*1
DLSIZEaBRTS^l
AB0RTX*0L8IZE4'1

FREEHI»AB0RTX*1 /LOCATIONS
FREELO'FREEHI^l
TEMP»FREEL0*1
TEMP2tTEMP*l
TEMP3»TEMP2*1
W0RD1»TEMP3*1
W0RD2«W0R01«1
W0RD3«W0RD24'1

NCHARSaM0RD3*l
SUBHI'NCHARS^l
SUBLO'SUBHI^l
COOSZlaSUBLO^l
C0DSZ2«C0DSZ1-»1

L0CHIaC00SZ2«l
LOCLO»LOCHI*l
CODBtLOCLOf-l
C0DF«C0DB4'1

ICOUNT«CODF*l
0C0UNT«IC0UNT«1
AClBOCOUNTol
AC2aACt4'l

AC3aAC24l
SC«AC3*1
LINEHiSC^l
LINEL*LINEH41
XLABEL"LINEL*1
CLRFLO»XLABEL*l
CLREND«CLRFLD*1
RESA0R«CLREN04'1

BY RELOCATION CODE

/OS/8 BASIC LOADER
73
in
75
76
77
7a
79
80
81
82
83
84
85

1036
2132
2332
2560
2562
2564
2566
7120
3012
1600
0200
3400
7760

PAI.B-V8

SVARST91036
ARAY8T»2132
5ARYST»2332
STEMP8a2560
LITRL»87EMP8*2
SLITRL«LITRL*2
DATL8T«8LITRL*2
STACKA«7120
EDTBGN'3012
EOTS1Z»1600
BRTBGN>20e
BRT8IZ*3400
0CB«776e

10/30/72

PAGE 2-1

/MORE COMPILER OEFINITIONS

/MAIN STACK OF COMPILER
/START OF EDITOR
/SUE OF EDITOR
/START OF BRTS
/SIZE OF 8RTS

•

/OS/8 BASIC UOAOEN
86
87
88

89
90
91

92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110

HI
112
113
ri4
115

lU
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131

132
133
134
135
136
137
138
139
140

00400
00401
00402
00403
00404
00405
00406
00407
00410
00411
00412
00413
00414
00415
00416
00417
00420
0042}
00422
00423
00424
00425
00426
00427
00430
00431
00432

muTf
00434
00435
00436
00437
00440
00441
00442
00443
00444
00445
00446
00447
00450
00451
00452
00453
00454
00455
00456
00457
00460
00461
00462
00463
00464
00465

P*U6-ve

10/30/72

PAGE

*400
0400
1047
LOADERi TAD
HIFUO
/SET UP FREE UOCATION
3053
OCA
FREEHI
C*'^
1377
TAD
(7577
3054
OCA
FREEUQ
3031
DCA
SWPINF /CUEAR SWAPPER WORD
3102
OCA
UINEH
/CUEAR UINE NUMBER
3103
DCA
UINEU
TAD
STACK
1015
/ANY UNCUOSED FOR'S ?
7041
CIA
TAD
1376
CSTACKA-1
7650
SNA CUA
JMP
5216
.3
/NO
4775*
JMS
ERMSG
/YES
2506
2506
7240
CUA CMA 1047
TAD
/NO CDF'S IF ONUY 8K
HIFUO
7640
SZA CIA
523J
JMP
NOPATCH /NO PATCHES
1374
TAD
(PATUST- 1 *
3010
DCA
X10
1410
PATLUP, TAD I
)(10
7450
SNA
5773'
JMP
STSTUF
3055
OCA
TEMP
1372
TAD
(7410
/AUWAYS TWO WORDS
3455
OCA I
TEMP
5224
JMP
PAtUilE.
621
NOPATCHjCer'^^
10
1771
TAO I
(DCB
/CHECK FOR T06E SYSTEM
0370
AND
(770
/ED FRIEDMAN GAVE ME THIS CODE
1367
TAD
(-210
/AND I'M TAKING IT ON FAITH
6201
CDF
7650
SNA CUA
1766'
TAD
7642
/IS IT A ROM SYSTEM ?
1365
TAD
(-6223
7640
SZA CUA
5250
JMP
N0TD8E /NO TD/8E OR ROM TD/8E
1364
TAD
(7377
/TD8E SYS WASTES 400 WORDS
3054
DCA
FREEUO
7130
CUU CMU RAR
/SET SWAP INFO
7001
N0TD8E, lAC
3031
OCA
SWPINF
4763'
JMS
FREEF
/GET CDF TO HIGHEST FIEUD
3336
OCA
/INTO 2 PUACES
•^WfPt-,
1336
TAO
swell
3345
OCA
3314
DCA
SWPFUAG /CUEAR THE SWAP FLAG
4261
JMS
SWAP
/MOVE 088 OUT
5773'
JMP
STSTUF
/OO SYMBOU TA8UE STUFF
0000 SWAP,
/SWAP OSS RESIDENT
7130
CUU CMU RAR
/4000
0031
AND
SWPINF /IS IT A TD8E SYS ?
7640
SZA CUA
5272
JMP
T08ESYS /YES
\

•f^/Kp

PAU8-V8

/OS/6 BASIC LOADER
141

142
143
144
145
146
147
148
149
150
151
152
153
154
155
I5fc

157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
1T4
175
lT6
177
ITS
179
160
161
162
163
184
185
186
187
188
169
190
191

192
193
19U
195

00466
00467
00470
00471
00472
00473
00474
00475
00476
00477
00500
00501
00502
00503
00504
00505
00506
00507
00510
00511
00512
00513
00514
00515
00516
00517
00520
00521
00522
00523
00524
00525
00526
00527
00530
00531
00532
00533
00534
00535
00536
00537
00540
00541
00542
00543
00544
00545
00546
00547
00550
00551
00552
00553
00554

•

4315
6211
7600
5661
4315
6211
7400
4315
6221
7600
7126
1336
3766*
1336
7001
3762*
1762'
3761'
5661
7200
6201
5661
0000
0000
1715
3334
1334
3347
231S
1715
3055
2315
1277
3056
1314
7640
5345
2314
7402
1456

53U'
3455
2055
205b
5334
6201
5715
5661
1455
7402
3456
2055
2056
5345
6201

10/30/73

SMPSUB
CtJf

7600
JMP I

T08E8Y8,JMS
CDF
7400
JMS
CDF
L6221>
7600
L7600,
CLL CMU
TAD
DCA
TAD
XAC
OCA
TAD
DCA
JMP I
SWPRETi CLA
CDF
JMP

PAGE 3-1

/SWAP 17600 TO/FROM N7600

SWAP
swpsue

/SWAP 17600 TO/FROM N7400

SWPSUB

/SWAP 27600 TO/FROM N7600

HTL
SWPFl
7642
8WPP1

/FIX UP 07600 STUFF TO MATCH
/CIF CDF N0

/CIF N0
7721
7721
7727
SWAP

/RETURN IF 8K
SWAP

SWPFUAG,0
SWPSUB,

SWPSUB
TAD
SWPl
DCA
SWPl
TAD
SWP2
DCA
SWPSUB
ISZ
SWPSUB
TAD
TEMP
DCA
SWPSUB
ISZ
TAD
L7600
TEMP2
OCA
SWPFLA6
TAD
SZA CLA
SWPF2
JMP
ISZ
HLT
SWPli
TEMP2
TAD I
SWPRET.
JMP
TEMP
DCA I
TEMP
ISZ
TEMP2
ISZ
SWPl
JMP
CDF
SWPSUB
JMP
SWAP
8WPF2i> JMP
TEMP
TAD
HLT
SWP2,
TEMP2
OCA
TEMP
ISZ
TEMP2
ISZ
SWPF2
JMP
COF

/SWAPPER
/GET FIELD
/TWICE
/ONCE FOR EACH DIRECTION
/GET HI FIELD AOOR

/GET COUNT/POITER

/WHICH WAY

/PUT 0S6 BACK
/MOVE OSS OUT
/GET PART OF RESIDENT
/RETURN IF 8K ONLY
/INTO HI FIELD
/BUMP POINTER
/AND PTR/CTR
/LOOP
/IF 8K JUST RETURN
/GET WORD OF HI FIELD

/BACK WHERE IT BELONGS

•

•
PAU8-V8

/OS/8 BASIC LOADER
196
197
198

00555
00556
00557

1276
3336
5715

TAD
OCA
JMP

lf>Z&l

§W£IP

IS^ffDB

10/30/72

PAGE 3-2

/SET UP TO FIX FIELD

CDFS

/OS/6 BASIC LOADER
199
201

202
203
204
205
206
207
20B
209
210
211
212
213

00561
00562
00563
00564
00565
00566
00567
00570
00571
00572
00573
00574
00575
00576
00577

2U
215
216
217
210
219
220
221

222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
236

239
240
241
242
243
244
245
246
247
248
249
250
251

252
253

00600
00601
00602
00603
00604
00605
00606
00607
00610
00611
00612
00613
00614
00615
00616
00617
00620
00621
00622
00623
00624'

00625
00626
00627
00630
00631
00632
00633
00634
00635
00636
00637
00640
00641
00642
00643
00644
0064S
00646

7727
7721
2130
7377
1555
7642
7570
0770
7760
7410
1000
1343
1712
7117
7577
0600
6201
NODATA,
4777'
7041
3105
1054
7041
3106
2054
1376
3010
1375
3055
6211
ASVLUP,
1410
3056
1410
7510
1374
3057
1056
6201
7700
4260
2055
5214
6211
1773
P6,
3243
1772
7410
1055
STMCUP,
7450
5771'
1370
3010
6211
STEMPF,
1410
3055
1410
pr.

PAL6-V8

PAGE
CDF
JMS
CIA
OCA
TAD
CIA
DCA
ISZ
TAD
DCA
TAD
DCA
COP
TAD I
OCA
TAD I
SPA
TAD
DCA
TAD
CDF
SMA CLA
JMS
ISZ
JMP
CDF
TAD I
DCA
TAD I
SKP
TAD
SNA
JMP
TAD
DCA
CDF
TAD I
OCA
TAD I

10/30/72

PAGE

FREEF

/SAVE FIELD

CURFLD
FREELO

/FOR ARRAY CLEARING
/SAVE THIS AOOR

CLRENO /FOR END OF ARRAY CLEAR
FREELO /MAKE IT NEXT FREE
1
(SVAR5T-1
X10
/ALLOCATE STRING VARS
(•436
TEMP
10

X10
TEMP2
X10

/LOOK FOR DEFINED STRING VAR
/SAVE SYMBOL NUMBER
/GET SIZE

(4010
TEMP3
TEMP2

/IF UNDEF USE 16 CHARS

SVSTOR
TEMP
ASVLUP

/YES,

TEMP

/LOOK AT NEXT ENTRY

ALLOCA

/DONE GO ALLOCATE AHRAYS

/IS IT DEFINED

CREATE ENTRY
/BUMP COUNT
/LOOP
10
/ALLOCATE STRING TEMPS
(STEMPS+l
STEMPF /INIT FIELD
(STEMPS /AND POINTER

(-1

X10

/GET POINTER

X10
TEMP
X10

/GET ADOR OF NEXT ENTRY
/SAVE IT
/AND ITS FIELD

PAL8-Ve

/OS/S BASIC LOADEF^
25«
255
256
257
256
259
260
261
262
263
26tt

265
266
267
26B
269
270
271

272
273
274
275
276
277
278
279
280
281

282
283
28a
285
286
287
28S
289
290
291
292
293
294
295
296
297
290
299
300
301
302
303
304
305
306
307
308

00647
00650
00651
00652
00653
00654
00655
00656
00657
00660
00661
00662
00663
00664
00665
00666
00667
00670
00671
00672
00673
00674
00675
00676
00677
00700
00701
00702
00703
00704
00705
00706
00707
00710
00711
00712
00713
00714
00715
00716
00717
00720
00721
00722
00723
00724
00725
00726
00727
00730
00731
00732
00733
00734
00735

3243
2010
1410
3056
6201

DCA
ISZ
TAO
DCA
CDF
TAO
DCA

STEMPF
X10
X10
TEMP2

1367
(110
3057
TEMP3
4260
8VST0R
J»18
5236
JMP
STMLUP
0000 8VST0R,
1056
TAO
TEMP2
7104
CIL RAL
TAD
1056
TEMP2
S8TA0R
TAO
1023
3011
DCA
Xll
10S7
TAD
TEMP3
1366
TAD
C3
7110
CLL RAR
306S
DCA
SUBLO
3064
DCA
SUBHI
4331
JM8
SUB
1054
TAD
PREELO
3411
OCA I
Xll
4777"
JMS
FREEF
3411
DCA I
Xll
1057
TAO
TEMP3
7041
CIA
DCA I
3411
Xll
5660
JMP I
SV8T0R
0000 P8N,
3061
DCA
W0RD2
7146
CLL CMA RTL
3104
OCA
XLABEL
1061
W0RD2
PRNTSNf TAD
7106
CLL RTL
7006
BTL
3061
DCA
W0RD2
1061
TAO
W0R02
7004
RAL
0365
AND
(17
7440 SPACE,
SZA
5324
JMP
NOZERO
1764*
TAD
TTY
SNA CLA
76S0
JMP
5326
LEAO0
1363
NOZERO, TAO
C60
4764*
JMS
TTY
2104 LEAO0,
ISZ
XLABEL
5310
JMP
PRNTSN
5704
JMP I
P3N
0000 SUB,
1065
TAD
SUBLO
7161
CLL CML CIA
1054
TAD
FREELO
3054
DCA
FREELO

10/30/72

PAGE 4-1

/SKIP TEMP NUMBER
/GET SYM NUMBER
/GIVE IT MAX SIZE

/ALOOCATE IT
/LOOP
/MAKE ST ENTRY FOR STRING VAR
/FIND ST ADDR

/NUMBER OF CHARS

/NUMBER OF WORDS

/FREEHI,LO»FREEHI,LO-SUBHI,LO
/SAVE ADDR
/AND FIELD
/PUT IN MAX LENGTH
/(NEGATIVE)

/PRINT

DIGITS DECIMAL

/-3

/GET NEXT DIGIT
/INTO THE LOW ORDER
/THREE BITS AND THE LINK
/SAVE SHIFTED NUMBER
/NOW DO LAST SHIFT

/ONLY FOUR BITS
/NOT A ZERO
/ANY DIGITS YET 7
ITS A LEADING ZERO
/MAKE IT ASCII
/PRINT DIGIT
/BUMP COUNT
/MORE OIGITCS)

/NO,

/DOUBLE SUBTRACT
/SUBTRACT LOWER

/OS/8 BASIC LOADEK
309
310
311

312
313
3ia
315
31b
317
3ie
319
320
321
322
323
320
325
326
327

00736
00737
00740
00741
00742
00743
00744
00745
00746
00747
00750
00751
00752
00753
00754
00755
00756
00757
00760

PALa-V8

7004
RAL
1064
TAD
7041
CIA
TAD
1053
3053
DCA
1053
TAD
7740
SMA SZA
5731
JMP I
3102 TOOBIG, DCA
3103
OCA
4762'
JMS
2402
2402
5761'
JMP
0000 TTK,
6041
TSF
5354
JMP
6046
TLS
7200
CLA
5753
JMP I

10/31(5/72

PAGE 4-2

/GET 80RR0k(

SU8HI

FHEEHI
FREEHl
FREEHI
CLA
SUB

UlNEH
LINEU
ERMSG
A80RTL

/SUBTRACT UPPER
/SAVE NEW UPPER
/DID IT FIT ?
/YUP
/CLEAR LINE NUMBER

/WRITE MESSAGE
/TOO BIG
/ABORT RUN
/PRINT CHAR ON TTY
/WAIT FOR PREVIOUS CHAR

.-1

/PRINT THIS ONE
TTX

•
PAL8-V8

/OS/a BASIC LOADER

10/30/72

PAGE 5

CAUTION til
THIS PAGE AND THE NEXT ONE ARE
OVERLAVED BY THE INPUT BUPFEH
AS SOON AS THE ROUTINE "INMORO"
IS CALLED, THIS FIRST HAPPENS
AFTER THE TAG "RELCIT" .
00761
00761
00763
00764
00769
00766
00767
00770
00771
00772
00773
00774
00775
00776
00777

380
361
382

01000
01001
01002
01003
01004
01005
01006
01007
01010
01011
01012
01013
01014
01015
01016
01017
01020
01021
01022
01023
01024
0102S
01026
01027
01030
01031
01032
01033
01034
0103S
01036
01037
01040

2136
1712
0060
1740
0017
0003
0110
7777
1400
2S60
2561
4010
7342
1035
2130
1000
1054
7041
3107
1040
1377
7041
3040
1041
1377
7041
3041
1042
1376
7041
3042
1043
1376
7041
3043
4775«
3020
1040
7104
1040
1054
3054
1054
7001
3021
1054
3010

3410
3410

8TSTUF,
S

PAbE
TAD
CIA
OCA
TAD
TAD
CIA
OCA
TAD
TAO
CIA
DCA
TAO
TAD
CIA
DCA
TAD
TAO
CIA
DCA
JMS
OCA
TAD
CLL RAL
TAD
TAD
OCA
TAD
lAC
DCA
TAO
DCA
OCA
DCA

(401

/SAVE START OF RESIDENT -1
/NEGATED
/USED TO COMPUTE AMOUNT OF MOVE
/GET NUMBER OF
/VARIABLES

VARCNT
SVCNT

/STRING VARIABLES

FREELO
RESADR
VARCNT

(401

SVCNT
ACNT
ACNT
SACNT

/AND STRING ARRAYS

(41

SACNT
FREEF
8TCDF
VARCNT

VARCNT
FREELO
FREELO
FREELO
NSTAOR
FREELO

/ARRAYS

(41

X10
X10
X10

/SAVE HIGH FIELD

/SUBTRACT SPACE FOR
/SCALAR TABLE (3 WORDS

PIECE)

/DON'T BOTHER WITH A
/DOUBLE PREC. SUBTRACTION
/SAVE START OF SCALAR TABLE
/FOR INTERPRETER
/CLEAR ALL VARIABLES
/IN THE

/SCALAR TABLE

/OS/6 BASIC LOAOEK
3S3
3B4
385
386
387
388
389
390
391
392
393
39a
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432

433
434
435
436
437

01041
01042
01043
01044
01045
01046
01047
01050
01051
01052
01053
01054
01055
01056
01057
01060
01061
01062
01063
01064
01065
01066
01067
01070
01071
01072
01073
01074
01075
01076
01077
01100
01101
01102
01103
01104
01105
01106
01107
01110
01111
01112
01113
01114
01115
01116
01117
01120
01121
01122
01123
01124
01125
01126
01127

3410
2040
5237
6211
1774
3257
1773
6201
7410
1055
7450
5311
1372
3010
6211
1410
3055
1410
3257
1410
3060
1410
3061
1410
3062
1410
3056
1056
7104
1056
1054
3011
6201
1060
3411
1061
3411
1062
3411

5252
1042
7104
7104
1054
3054
1054
3022
1041
7104
1041
1054
3054
1054
3023
1043

PAL8-V6

10/30/72

PAGE 5-1

DCA I
X10
ISZ
VARCNT
JMP
.-4
/JUST TO 8E NICE
CDF
/PREPARE TO MOVE
10
TAD I
PI,
(LITRL + l/THE NUMERIC LITERALS
f^/"'
DCA
LFLO
/INTO THE SCALAR TABLE
TAD I
(LITRL
CDF
SKP
TEMP
NLLOOP, TAD
/AODR OF NEXT LITERAL
SNA
JMP
NOIML
/NO MORE NUMERIC LITERALS
TAD
C-l
OCA
X10
CDF
LFLO,
10
TAD I
X10
/GET ADDR OF NEXT LITERAL
DCA
TEMP
TAD I
X10
P2#
/ALSO ITS FIELD %i(P
DCA
LFLO
TAD I
X10
/NOW ITS VALUE
OCA
MOROl
TAD I
X10
M0R02
OCA
TAD I
%19
DCA
WQR03
TAD I
X10
/NOM THE SYMBOL NUMBER
DCA
TEMP2
TAD
TEMP2
/TIMES THREE
CUL RAL
TAD
TEMP2
TAD
FREELO /PLUS START
DCA
XU
/GIVES STORE ADDR
CDF
TAD
MOROl
/NOW PUT LITERAL INTO TABLE
OCA I
Xll
7A0
W0RD2
OCA I
Xll
TAD
W0RD3
DCA I
Xll
JMP
NLLOOP /DO NEXT LITERAL
TAD
NONtf
ACNT
/ALLOCATE ARRAY TABLE
CI.L RAU
CLL PAL
/FOUR WORDS PER
TAD
FREELO /SUBTRACT FROM LOWER END
OCA
FREELO
TAD
FREELO /SAVE THIS
DCA
NASTAO /START OF ARRAY TABLE
TAD
SVCNT
/ALLOCATE
CLL RAU
/STRING VAR TABLE
TAD
SVCNT
TAD
FREELO /3 WORDS EACH
DCA
FREELO
TAO
FREELO /AND SAVE IT FOR THE INT
DCA
SSTAOR
TAD
SACNT
/NOW SPACE FOR STRING

•

«
/08/d BASIC LOADER
ASS
439
440
441
442
443
444
44S
446
447
448
449
450
451
452
453
454
455
456
457
456
459
460
461
462
463
464
465

01130
01131
01132
01133
01134
01135
01136
01137
01140
01141
01142
01143
01144
01145
01146
01147

0U50
01151
01152
011S3
01154
01155
01156
01157
01160
01161
01162
01163

7104
7104
1054
3054
1054
3024
6211

PAL8-V8

10/30/72

PAGE 5-2

CLL RAL
/ARRAV
CLL. RAL
TAO
FREELO /TABLE
DCA
FREELO
TAD
FREELO /SAVE FOR INT
OCA
SASTAD
COF
10
/PREPARE TO MOVE
1771
P3,
TAD 1
CSLITRL + 1
3362
DCA
SLFLO
/STRING LITERALS
1770
TAD I
CSLITRL
6201
COF
7410
SKP
1055
TEMP
SLLOOPi TAO
/IS NEXT LIT THERE 7
7450
SNA
5767*
JMP
NOSL
/NO, END OF THE LINE
1372
TAO
(-1
3010
DCA
X10
4361
JMS
SFLD
/SET THE FIELD
1410
TAD I
X10
/GET ADDR OF NEXT
3055
DCA
TEMP
,/'
1410 P4,
TAO I
X10
/ALSO FIELD
f
3056
DCA
TEMP2
1410
TAO I
)(10
/THEN CHAR COUNT
3063
OCA
NCHARS
5766'
JMP
8L1T2
/DO REST OF STRING LIT
0000 SFLD,
62U SLFLO, CDF
10
5761
JMP I
SFLD

</p

PAL6-V8

/OS/8 BASIC LOADEH
466
tt67

466
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
Sie
519
520

01166
01167
01170
01171
01172
01173
01174
01175
01176
01177
01200
01201
01202
01203
01204
0120S
01206
01207
01210
01211
01212
01213
01214
01215
01216
01217
01220
01221
01222
01223
01224
01225
01226
01227
01230
01231
01232
01233
01234
01235
01236
01237
01240
01241
01242
01243
01244
01245
01246
01247
01250
01251
01252
01253

10/30/72

PAGE

120id

1257

2564
2565
7777
2562
2563
2130
0041
0401
1200
1063

SLIT2,

1377

7110
1010
3057
1457
7104
1457
1023
3011
1063
7001
7170
3057
1057

7100
1054
3054
7420
5337
1054
1376
7630
5337
1054
7001
6201
3411
4775'
3411
1063
7041
3411
1054
3011
1063
7041
5251
4774» MOVSL,
1410
6201
3411
2057
5246

PAGt
TAD
TAD
CLl I^AR
TAD
OCA
TAD 1
CUU RAL
TAD I
TAO
DCA
TAO
lAC
CLL CML
DCA
TAD
CLL
TAD
DCA
SNL
JMP
TAD
TAO
8ZL CLA
JMP
TAO
lAC
CDF
DCA
JMS
DCA
TAD
CIA
DCA
TAD
DCA
TAD
CIA
JMP
JMS
TAD
COP
DCA
ISZ
JMP

NCHARS
X10

/SYM NUMBER TIMES

TEMP3
SSTADR

XU
NCHARS

/PLUS BASE
/GIVES ST AODR
/ALLOCATE SPACE FOR IT

CMA RAR
TeMP3
/CSAVE NUMBER OF MORDS)
TEMP3

FREELO
FREELO

/BELOW THE SYMBOL TABLES

TMSLIT /TOO MUCH STRING LITERALS
FREELO
(«END»10
TMSLIT
FREELO

/DITTO
/STICK THE ADDR

/INTO THE ST ENTRY
/ALSO THE FIELD

Xll

NCHARS
I

/TO GET AOOR OF SYMBOL NUMBER

TEMP3
TEMP3

FREEF
I

/COMPUTE WORD COUNT

/ALSO THE SIZE

Xll

FREELO

/THIS IS WHERE IT GOES

Xll

NCHARS

/PUT IN THE LENGTH TOO
/(NEGATIVE)

.«
SFLD
I

X10
Xll

/MOVE THE LITERAL TEXT

TEMP3
MQVSL

OS/6 BA9IC LOADEK
52i

S22
S23
524
525
526
527
528
529
530
531
532
533
53a
535
536
537
536
539
540
541
542
543
544
545
54fc

547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
566
569
570
571
572
573
574
575

01254
01255
01256
01257
01260
01261
01262
01263
01264
01265
01266
01267
01270
01271
01272
01273
01274
01275
01276
01277
01300
01301
01302
01303
01304
0130S
01306
01307
01310
01311
01312
01313
01314
0131S
01316
01317
01320
01321
01322
01323
01324
01325
01326
01327
01330
01331
01332
01333
01334
01335
01336
01337
01340
01341
01342

PAL8-V6

10/30/72

PAGE 6-1

e.^P
/PUT THE FIELD OF THE NEXT
TEMP2
TAO
1056 P5,
/ENTRY WHERE IT DOES THE MOST GOOl
SLFLO
DCA
3773»
SLLOOP /DO THE NEXT LITERAL
JMP
5772*
FREEIO /SAVE TOP OF DATA LIST
TAO
1054 NOSL,
OATTOP
DCA
3027
DATTOP /IF EMPTY MAKE TOP»BOTTOM
TAD
1027
OATPTR
DCA
3030
OLSIZE
TAD
1051
/IS ANY DATA ?
SNA
7450
NOOATA /NO
JMP
5771'
CLC
7100
TAD
FREELO /GET START OF DATA
1054
FREELO
DCA
3054
SNl
7420
TMDATA /TOO MUCH DATA
JMP
5332
FREEUO
TAO
1054
(-ENO-10
TAO
1376
SZU CUA
7630
TMOATA /DITTO
JMP
5332
FREELO /SAVE IT
TAO
1054
OATPTR
OCA
3030
FREELO /USE X13 TO FILL LIST
TAD
1054
X13
DCA
3013
(DATL8T -1
TAD
1370
X10
DCA
3010
CDF
10
6211
/ANY MORE DATA ELEMENTS 7
X10
OATUUP, TAD I
1410
SNA
7450
NOOATA
JMP
5771'
/SAVE ADOR
TEMP
DCA
3055
^^p
/GET NEW FIELD 5^4
X10
TAO I
1410 P8,
OATAFl
DCA
3320
/TWICE ^^f
OATAFl
TAD
1320 P9,
0ATAF2
OCA
3326
/START WITH NEW ELEMENT
TEMP
TAO
105S
OCA
X10
3010
10
DATAFl, COf
6211
/GET COUNT
TEMP
TAD I
1455
TEMP
DCA
3055
/GET NEXT WORD
X10
DATMOV, TAD I
1410
CDF
6201
/MOVE INTO DATA AREA
X13
OCA I
3413
10
0ATAF2, COF
6211
TEMP
ISZ
2055
DATMOV
JMP
5323
OATLUP /DO NEXT ELEMENT
JMP
5306
/ZERO LINE NUMBER
UINEL
3103 TMOATA, OCA
LINEH
OCA
3102
/PRINT ERROR MESSAGE
ERMSG
4767'
JMS
2404
2404
JMP
5766*
ABQRTL
/CLEAR THE LINE NUMBER
LINEH
3102 TMSLIT, OCA
DCA
LINEL
3103
/PRINT MESSAGE
4767'
ERMSG
JMS
2423
2423

/OS/a

BASK LOADER

576
577
576
579
580

01343
01344
01345
01346
01347
01350
01351
01352
01353
01354
01355

581

582
563
58U
585
586

PAU6-V8

10/3(B/72

PAKE 6-2

5766*
JMP
ABOHTL
1045
PATL8T, PUP8»P3»P«»P5|P6»PT»P8|P9|0
106^
1137
1154
1254
0632
0646
1312
1314
0000

/OS/S BASIC LOADER
587
588
589
590
591
592
595
59«
595
59ft

597
598
599
600
601
602
603
600
60S
606
607
608
609
610
611
612
613

6U
61S
616
617
618
619
620
621
622
623
62<ll

625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641

01366
01367
01370
01371
01372
01373
01374
01375
01376
01377
01400
01401
01402
01403
01404
01405
01406
01407
01410
01411
01412
01413
01414
01415
01416
01417
01420
01421
01422
01423
01424
01425
01426
01427
01430
01431
01432
01433
01434
01435
01436
01437
01440
01441
01442
01443
01444
01445
01446
01447
01450
014S1
01452
01453

PAL8-V8

10/30/72

PAGE

2136
1712
2565
0600
1144
1162
1161

2130
5370
0003
1400
1042
7650
5260
1377

3010
1022
3011
6211
1410
3055
1410
7450
1376
7001
3056
1410
7450
1376
7001
3057

PAGE
ALLOCA, TAD
SNA CLA
JMP
TAD
DCA
TAD
OCA
OOARAV, CDP
TAD I
DCA
TAD I
SNA
TAD

lAC
DCA
TAD I
SNA
TAD
lAC
DCA
1057
TAD
3065
DCA
3064
DCA
6201
CDF
T132
CUl CML
0055
AND
7650
SNA CLA
5237
JMP
1056
TAD
4775*
JMS
5242
JMP
3057
DCA
ONLYli
1056
TAD
3065
OCA
1374
TIME83, TAD
4775*
JMS
4773"
JMS
1054
TAD
3411
OCA I
4772*
JMS
3411
DCA I
1056
TAD
3411
DCA I
1057
TAD

ACNT

/ANY ARRAYS

ALLOCS /NO
(ARAVST /ALLOCATE ARRAYS
X10
NASTAD

XU
10

X10
TEMP
X10
(^2

/OET NEXT ARRAY
/GET FIRST DIM
/USE 10 IF NONE
/ALLOCATE 0TH ELEMENT

TEMP2
)(10

/GET SECOND DIM

(12

TEMP3
TEMP3
SUBLO
SUSHI
RTR
TEMP

/GET READY TO SUBTRACT

/HOW MANY DIMS

ONLYl
TEMP2
MUL12
TIMES3
TEMP3
TEMP2
SUBLO

/ONE
/PRODUCT OF DIMS

/MULT BY 3
/ZERO SECOND DIMENSION

/MULT SIZE BY

MUL12
SUB
PREELO

/SUBTRACT FROM FREE

Xll

/SAVE AODR IN S.T,

FREEF
Xll

TEMP2
Xll

TEMP3

/ALSO DIMS

/OS/a BASIC LOAOEH
642
643
644
645
646
647
64B
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
66B
669
670
671
672
673
674
675
676
677
676
679
680
681
682
663
684
685
686
687
688
689
690
691

692
693
694
695
696

01454
01455
01456
01457
01460
01461
01462
01463
0146a
01465
01466
01467
01470
01471
01472
01473
01474
01475
01476
01477
01500
01501
01502
01503
01504
01505
01506
01507
01510
01511
01512
01513
01514
01515
01516
01517
01520
01521
01522
01523
01524
01525
01526
01527
01530
01531
01532
01533
01534
01535
01536
01537
01540
01541
01542

34U

PAL8-V8

OCA I
ISZ
2010
ISZ
2042
JMP
5207
104i
ALLOCS. TAD
SNA CLA
7650
5771*
JMP
TAO
1370
DCA
3010
TAD
1024
DCA
3011
DOSARY, CDF
6211
TAO I
1410
SNA
7450
TAD
1376
lAC
7001
DCA
3057
TAO I
1410
SNA
7450
TAD
1367
3056
OCA
TAO
1057
DCA
3065
3064
OCA
CDF
6201
TAP
1056
TAO
1374
CLL. RAR
7110
4775*
JM8
4773'
JM8
TAD
1054
OCA I
3411
4772'
JMS
OCA I
3411
TAD
1056
CIA
7041
3411
DCA I
TAD
1057
OCA I
3411
ISZ
2010
2010
ISZ
2043
ISZ
5267
JMP
5771'
JMP
0000
INWQRO,
2074
ISZ
5345
JMP
4766
JMS I
200
0200
1000
1000
0000
INBLOK,
5765*
JMP
2336
ISZ
1335
TAO
3350
OCA

10/30/72

PAGE 7-1

xu
)(10

/SKIP SYMBOL NUMBER

ACNT
OOARAY
SACNT

/ANY STRING ARRAYS

RELCIT /NO
(SARYST*1
X10
/ALLOCATE STRING ARRAYS
SASTAO
Xll
10

X10
(12

/USE 10 FOR OIM

TEMP3
X10

/GET OIM

(10

/USE 16 IF NO SIZE SPEC

TEMP2
TEMP3
SUBLO
SU8HI

TEMP2

/PREPARE FOR MULT
/GET NUM WORDS PER STRING

MUH2
SUB

FREELO

/GET ARRAY SIZE
/DO SUBTRACTION
/SAVE AODR

Xll

FREEF
Xll

TEMP2

/AND STRING SIZE
/(SIZES ARE NEGJ

Xll

TEMP3

/AND NUMBER OF STRINGS

Xll

X10
X10

/SKIP NEXT NAME
/AND NEXT SYM NUMBER

SACNT
OOSARY
RELCIT
ICOUNT
NOREAD
(7607

/READ FROM CODE FILE
/ANYTHING IN BUFFER
/YASSUHJ
/READ NEXT BLOCK
/NOTE: THIS OVERLAYS USED CODE

lOERR
INBLOK

/BUMP BLOCK COUNTER
INBLOK-1/RESET BUFFER POINTER
INPTR

PAt8-V8

08/8 BASIC I.OAOER
fc9T

698
699
700
701
702

01S4S
01544
01545
01546
01547
01550

1364
3074
1750
2350
5730
0000

TAD
OCA
NOREAOi TAD
ISZ
JMP
INPTR,

(-400
ICOUNT
INPTR
INPTR
INWORD

10/30/72

PAGE 7-2

/AND COUNTER
/GET WORD
/8UMP POINTER

/OS/a BASIC LOADEt^
703
70a
705
706
707
70a
709
710
7ii
712
713

01564
01565
01566
01567
01570
01571
01572
01573
0157«
01575
01576
01577

715
71fc

717
71«
7lf
720
721
722
T23
724
72S
726
727

721
72»
TJB
731
712
751
734

735
71»
717
731

7W
740
741
742
743
744
745
74*
747
746
749
750
751

7S2
753
754
755
756
757

01600
01601
01602
01603
01604
01605
01606
01607
01610
01611
01612
01613
01614

euis
01616
01617

BU20
01621
01622
• 1623
01624
01625
01626
01627
01630
01631
01632
01633
01634
01635
01636
01637
01640
01641
01642
01643
01644
01645
01646
01647
01650
01651

PALB-V8

10/30/72

PAGE

74018

2312
7607
0010
2333
1600
S130
0731
0003
2254
P012
2132
1600
PACE
1045
RELCZTr TAO
LOCTRW
7101
C(.L lAC
3065
DCA
SUBIO
7004
RAL
1044
TAO
I.OCTRH
3064
DCA
SUBHX
4777*
JM8
SUB
1054
TAO
FREEUO
3026
DCA
C0DB6N
1053
TAO
FRIENI
3015
OCA
COOCOF
104$
TAO
LOCTRi.
7161
CU CML CIA
3066
OCA
CODSZl
7004
RAl.
1044
TAO
LOCTRH
7041
CIA
3067
OCA
C00SZ2
1046
TAO
BIOCK
3776*
OCA
OUBiOK
1046
TAD
BtOCK
3775*
OCA
INBiOK
1374
TAO
(•401
3075
OCA
OCOUNT
7240
Ci,A CMA
3074
OCA
ICOUNT
fl773* RELOOF, JNS
INWORO
3055
DCA
TEMP
1372
TAO
(3000
1055
TAO
TEMP
0371
AND
(7000
7640
SZA CIA
5303
JUP
NOREUC
1055
TAO
TEMP
0370
AND
(340
7112
CLU RTR
1264
TAO
CUf0
3254
DCA
LBLfLD
105S
TAO
TEMP
0367
AND
(7437
3055
OCA
TEMP
0773"
JMS
INWORO

/FIND START OF CODE
/BY SUBTRACTING

/AMOUNT FROM FREE
/THIS IS THE START OF THE CODE
/MINUS ONE
/THIS IS THE FIELD NUMBER
/SET UP PROG SIZE COUNT

/UOWER COUNT

/UPPER COUNT
/SET UP FOR READ AND WRITE

/GET

WORD OF CODE

/CHECK FOR OPCODE 5000 (GOTO)
/NO JUMP
/REMOVE FIELD BITS

/FIELD OP LABEL ENTRY
/ZERO FIELD BITS
/GET REST OF ADOS

/os/a BAaiC LOADER
758
759
760
761
762
763
764
765
766
767
76S
769
770
771

772
773
774
775
776
777
776
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
796
799
800
801
802
803
804
805
806
807
808
809
fiiei

811

812

PAL8-V8

10/30/72

PAGE a-1

01652 3056
DCA
TEMP2
01653 4766*
JM8
CHKLBU /CHECK FOR UNOEFINEO LABEL
01654 7402 LBLFLD , HLT
01655 1456
TAO I
TEMP2
016S6 0365
AND
(7
/GET ADDS TO BE REtOCATED
01657 3070
OCA
UOCHI
01660 2056
ISZ
TEMP2
01661
1456
TAD I
TEMP2
01662 7100
CLL
01663 1026
TAO
C00B6N /ADD BASE AODR
01664 6201
CDF0,
CDF
01665 3071
DCA
LOCIlO
/SAVE LOW PART OF JUMP
01666 7004
RAL
01667
1025
TAD
COOCOF /GET HIGH PART
01670 1070
TAD
LOCHI
01671
7106
CLi. RTU
/PUT IT INTO CORRECT PLACE
01672 7006
RTL
01673 7004
RAU
01674
1055
TAO
TEMP
/PLUS INSTRUCTION
01675 4764'
JMS
OUTWRD
01676 2066
ISZ
COOSZl
/BUMP COUNTER
01677 7410
SKP
01700 2067
ISZ
C00SZ2 /CAN'T BE LAST WORD
01701
1071
TAO
LOCLO
/OUTPUT LOW ORDER ADOR
01702 7410
SKP
01703
1055 NORELCi TAO
TEMP
/JUST OUTPUT IT
01704 4764* RELOUT, JM8
OUTWRO
01705 2066
ISZ
CODSZl
/DOUBLE WORD ISZ BUMP
01706 5232
JMP
RELOOP
01707 2067
ISZ
CO0SZ2
01710 S232
JMP
REUOOP
5763*
01711
JMP
LOAOIT /DONE RELOCATING, GO LOAD
01712 0000 ERMS6,
/PRINT ERROR MESSAGE
01713 6201
CDF
01714 1712
TAO I
ERMSG
/GET CODE
01715 7112
CUL RTR
/PRINT FIRST CHAR
01716 7012
RTR
01717 7012
RTR
01720 4340
JM8
TTY
01721
1712
TAO I
ERMSG
/PRINT SECOND CHAR
01722 4340
JMS
TTV
01723 2312
ISZ
ERMSG
/FIX RETURN AOOR
01724 1762*
TAD
SPACE
/PRINT SPACE
01725 4340
JMS
TTY
01726 3340
OCA
TTY
/USE TTY AS A SWITCH
01727
1102
TAD
LINEH
/PRINT HIGH ORDER
01730 476l»
JMS
PSN
01731
1103
TAO
LINEL
/THEN LOW ORDER
01732 4761'
JMS
PSN
/(LINE NUMBER NATCH 1)
01733
1360
TAD
(215
/PRINT CARRIAGE RETURN
01734 4757'
JMS
TTX
01735 1356
TAO
(212
/PRINT LINE FEED
01736 4757'
JMS
TTX
01737 5712
JMP I
ERMSG
/RETURN
017412)
0000
TTY,
/CONVERT TO ASCII AND PHJNT

PAl.8«ve

/OS/8 BASIC LOADER
813
8t«
815
816
817
818
819

01741
01742
01743
01744
01745
01746
01747

0355
1354
7510
1353
1352
4757*
5740

AND
TAD
SPA
TAD
TAD
JMS
JMP

(77

(-40

(100
(240
TTX
TTY

10/30/72

PAGE 8-2

/SIX BITS ONLY
/WHAT SIDE OF FORTY 7
SIDE
/HIGH SIDE
/PRINT CHAR
/RETURN

/I.OW

/D8/8 BASIC LOAOEH
S20
621
S22
S23
Bin
825
826
827
828
829
830
831
832

833
B3tt

835
836
837
838
639
6a0
8«l
642
843
844
845
646
647
648
649
650
851
852
853
854
855
856
857
856
859
860
861
862
863
864
865
666
867
868
869
870
671
872

873
874

01752
01753
01754
01755
01756
01757
01760
01761
01762
01763
01764
01765
01766
01767
01770
01771
01772
01773
01774
01775
01776
01777
02000
02001
02002
02003
02004
02005
02006
02007
02010
02011
02012
02013
02014
02015
02016
02017
02020
02021
02022
02023
02024
02025
02026
02027
02030
02031
02032
02033
02034
02035
02036
02037

PAL8-V8

0240
0100
7740
0077
0212
0753
0215
0704
0717
2000
2336
0007
2105
7437
0340
7000
3000
1530
7377
1536
2363
0731
PAGE
2000
4777» LOADITf JMS
1045
TAO
CIA CLl
7161
3066
DCA
7004
RAU
TAO
1044
7041
CIA
3067
DCA
TAO
1026
305S
OCA
TAD
1046
3776*
DCA
7240
CLA CMA
DCA
3074
TAD
1025
7106
CLL RTL
7004
RAL
1375
TAO
3025
OCA
1025
TAO
3233
DCA
2055 UOOLUP, ISZ
5232
JMP
TAO
1233
1374
TAD
OCA
3233
4773' NOFJMP, JMS
7402 CF,
HLT
3455
OCA I
6201
CDFZER, CDF
2066
ISZ
5225
JMP

OUDUMP
LOCTRL

10/30/72

PAGE 9

/DUMP LAST BLOCK
/SET UP COUNTER

CML
CODSZl

LOCTRH
CODSZe
C00B6N
TEMP
BLOCK
INBLOK
ICOUNT
CODCDF

/CODE BEGIN -1
/SET UP BLOCK NUMBER

/SET UP CODE CDF

(6201

COOCOF
CODCDF
CF

TEMP
NOFJMP
CF
(10
CF

/BUMP POINTER
/FIELD IS OK
/BUMP THE FIELD

INMORD

/GET NEXT WORD

TEMP

/SAVE THE WORD

CODSZl
LODUUP

/MORE CODE
/YES

/08/8 BASIC

6T5
976
B77
870
879
880
881
882
883
88a
865
886
687
888
889
890
891
892
893
894
895
896
897
898
899
900
90J
902
903
90a
905
906
907
908
909
918
911
912
913
9ia
915
916
917
918
919
920
921
922
923
924
925
926
927
92S
929

02040
02041
02042
02043
02044
02045
02046
02047
02050
02051
02052
02053
020S4
02055
02056
02057
02060
02061
02062
02063
02064
02065
02066
02067
02070
02071
02072
02073
02074
02075
02076
02077
02100
02101
02102
02103
02104
02105
02106
02107
02110
02111
02112
02113
02114
02115
02116
02117
02120
02121
02122
02123
02124
02125
02126

OADEN

P AL8-V8

2067
5225
1239
3261
1106
1055

CLRLUPf

7640
5254
110i>

1261

7650
5264
2055
5261

MORCLR»

ISZ
JMP
TAO
DCA
TAO
TAD
SZA CLA
JMP
TAO
TAO
SNA CLA
JMP
ISZ
JMP
TAO
TAO
OCA
HLT
DCA I
JMP
TAO
OCA
TAO
TAD
DCA
TAD
DCA
TAO
OCA
COP
TAO I

C00SZ2
LODLUP
CF

CUEARF
CLRENO
TEMP

10/30/72

PAGE 9-1

/YES
/GET THE FIELD
/AND SAVE IT
/IS THIS THE END OF CLEAR ?

MORCLR
CLRFLD
CLEARF

/NO, KEEP GOING
/DO FIELDS MATCH ?

DONCUR
TEMP
CUEARF
CLEARF

/YES, ARRAYS ARE CLEARED
/BUMP POINTER
/DON'T BUMP FIELD
/DO BUMP FIELD

1261
1374
(10
3261
CLEARF
7402 CLEARPi
3455
TEMP
5244
CLRLUP
1261
DONCIR,
CLEARF
3277
STFLDM
10SS
TEMP
1107
RESADR
3056
TEMP2
10SS
TEMP
3013
X13
1013
X13
3011
Xll
6201
MOVSTt,
1411
xu
7402 STFLDM, HI.T
3413
OCA I
X13
2056
ISZ
TEMP2
527S
JMP
MOVSTL
43a0
JMS
MOVFIN
5772'
JMP
7000
0000 CHKUBL,
1705
TAO I
CHKLBL
3310
OCA
t*l
7402
HLT
1456
TAD I
TEMP2
771B
SPA CLA
5705
JMP I
CHKLBL
7144
CLL CMA RAL
1056
TAD
TEMP2
3104
DCA
XLABEL
1504
TAO I
XLABEL
3102
DCA
UNEH
2104
ISZ
XLABEL
1504
TAD I
XLABEL
3103
DCA
LINEL
6201
COF
4771'
JMS
ERMSG
2523
2523

/CLEAR THE MORO
/DO MORE
/COPY THE FIELD
/GET THE COUNT
/OF HOW MUCH SYMBOL TABLE
/TO MOVE
/PUT IT INTO AUTO XR'S

/GET NEXT WORD OF ST

/STORE IT
/MOVE FIN! PAGE INTO 7000-71
/GO READ BRTS.SV
/CHECK LABEL FOR UNDEF
/GET FIELD
/GET FIRST WORD OF LABEL

/SIGN BIT IS DEFINED
/GET AOOR OF LINE NUM
/GET HIGH ORDER LINE
/GET LOW ORDER

/PRINT MESSAGE

•

#
PAUfl-va

OS/B BAaiC LOADER
930

02127
02130
02131
02132
02133
02134
02135
02136

5705
0000
1053
7106
7004
1235
5730
4340

02137
02140
02141
02142
02143
02144
02145
02146
02147
02150
02151
02152
02153
02154

5770
0000
6201
1567
3010
1366
3011
1365
3055
1410
3411

2055
5350
5740

JMP

CHKUBL

FREEP,

10/30^72

PAGE 9-2

/RETURN
/MAKE A CDF FROM FREEMI

TAD
FREEHI
CUU RTL
RAL
CDFZER
TAD
JMP I
FREEF
MOVFIN
ABORTU, JMS
JMP

MOVFIN,
CDF
TAD
DCA
TAD
OCA
TAD
DCA
TAD
OCA
ISZ
JMP
JMP

/PUT FINI PAGE INTO 700
/AND ABORT THE RUN
(ABORT- FINI4'7000
/FINI PAGE MOVER

(FINI-1 /MOVE INT READING CODE
X10
(6777
/INTO 7000

XU
/PUT CORRECT COUNT MERE

C-200
TEMP
xie

/MOVE CODE

TEMP
.-3
I

MOVFIN

/OS/8 BASIC LOADER
953
02165
95*
02166
9SS
02167
95h
02170
95T
02171
958
02172
959
02173
960
02174
961
02175
962
02176
963
02177
964
965
02200
966
02201
967
02202
968
02203
969
02204
970
02205
971
02206
972
02207
973
02210
974
02211
975
02212
976
02213
977
02214
978
02215
979
02216
980
02217
981
02220
982
02221
983
02222
984
02223
985
02224
966
02225
987
02226
988
02227
989
02230
990
02231
991
02232
992
02233
993
02234
994
02235
995
02236
996
02237
997
02240
998 ._0.?e«i
'999

1000
1001
1002
1003
1004
1005
1006
1007

02242
02243
02244
02245
02246

M24f
02250
02251
0S252

PAL8-V8

7600
6777
2177
7115
1712
7000
1530
0010
6201
1536
2357
2200
16S1
7640

FINI,

5315
1250
3301
1247
3303
1253
3302
1701
2301
3702
2302
2303
5211
1050
3224
4652
3400
0000
0000
5312
12S3
3301
1250
3302
1247
3303
1701
2301
3702
2302
2303
5234
1377
3776'
1377
3775'
5774*
f7«6
0020
1712
7607

PAG£
TAD I
SZA CLA
JMP
TAD
DCA
TAD
DCA
TAD
OCA
TAD I
ISZ
DCA I
ISZ
ISZ
J MP
TAD
OCA
JMS I
BRT8IZ

10/30/72

PAGE 10

XEPMSG

/ANY ERRORS

ABORT
XINT
FTEMP
M12
FCNT
XSAVE
FTEMP2
FTEMP
FTEMP
FTEMP2
FTEMP2
FONT

/YES, DON'T RUN IT
/MOVE INT STUFF

,-5

BRTS
BRTSB
X7607

/10 KEY LOCATIONS

/INTO

SAFE PLACE

/MOVE LOOP
/READ IN BRTS

BRTSB,
JMP
TAD
DCA
TAO
OCA
TAD
DCA
TAD I
ISZ
DCA I
ISZ
ISZ
JMP
TAD
DCA
TAD
DCA
JMP
-12
Ml 2,
XINT,
20
XEBMSG, ERMSG
X7607,
7607

lOERR
XSAVE
FTEMP
XINT
FTEMP2
M12
FCNT
FTEMP
FTEMP
FTEMP2
FTEMP2
FCNT
.-5
C5S61

/MOVE STUFF BACK

/PATCH -C LOCATION!

7600
(5561
7605
BRTBGN

/GO START BRTS

/OS/8 BASIC LOADER
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
102S
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047

1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062

7054
0000
3100
3077
3076
1373
3101
5300
7420
5272
1065

PAl,8-V8

02253
02254
02255
02256
02257
02260
02261
02262
02263
02264
02265
02266
02267
02270
02271
02272
02273
02274
02275
02276
02277
02300
02301
02302
02303
02304
02305
02306
02307
02310
02311
02312
02313
02314
02315
02316
02317
02320
02321
02322
02323
02324
02325
02326
02327
02330
02331
02332

3776*
1370
3775*
1052
7450
5775"
3333
4652
1600
0000

02333
02334
02335
02336
02337
02340

QWTEMP,
0000 EDTBLK,
5775»
JMP
5767'
JMP
0000 OUTWRO,
2075
ISZ
5S51
JMP

1077
3077
7024
1064
1076
7110
3076
1077
7010
3077
1100
7010
3100
2101
5263
1077
3064
1100
3065
5654
3103
4651

Ut7
4772'
6041
5316
1371

XSAVE,

10/30/73

PAGE ia-1

7001«)(SAVE-FZM

MUt.l2i

DCA
AC3
OCA
AC2
OCA
ACl
TAD
(-15
DCA
SC
JMP
MULBGN
MULLUP, SNL
JMP
NOAOO
TAD
SUBLO
TAD
AC2
DCA
AC2
CML RAL
TAD
SUBHI
NOADOi
TAD
ACl
CLL RAR
DCA
ACl
TAD
AC2
RAR
DCA
AC2
MULBGN, TAD
AC3
RAR
FTEMP,
FTEMP2, OCA
AC3
FCNT,
ISZ
SC
JMP
MUI.LUP
TAD
AC2
DCA
SUBHI
TAD
AC3
DCA
SUBLO
JMP 1
MUL12
lOERRf
DCA
LINEL
JM8 I
XERMS6
1117
ABORT,
JM8
SWAP
TSF
JMP
."1
TAD
( 420J
7600
DCA
TAD
C62t3
DCA
7605
TAD
ABORTX
SNA
JMP
7605
DCA
EDTBLK
JMS I
X7607
iDT8:z

7605
EDTBGN

QCOUMT
NOWRIT

/MULTIPLY 12BIT8 AND 24 BITS
/SAVE 12 BIT THING
/CLEAR REST OF AC
/ONLY TEST 12 BITS
/WAS BIT ON ?
/N0| DON'T ADD
/ADD TO HIGH ORDER 2/3'S OF AC

/SHIFT AC RIGHT

/BUMP SHIFT COUNTER

/ANSWER IS LOWER 2/3'S OF AC

/ZERO LINE NUMBER
/PRINT MESSAGE
/SWAP 088 BACK
/WAIT FOR TTY DONE
/TO PREVENT 088 , FROM BEING
/RFSTOUE -C LOCATIONS

/CALLED VIA CHAIN ?(FROM EDIT)
/NO, RETURN TO 088
/YES, SAVE EDITOR START

/READ IN EDITOR
/THIS MUCH

/ERROR
/GO START EDITOR
/OUTPUT WORD TO TEMP FILE
/ANY ROOM 7
/YES

PAU6-V8

/05/a BASIC UOADEK
1063
1064
1065
1066
1067
1068
1069
10T0
1071
1072
1073
I07fl

1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095

02341
02342
02343
02344
02345
02346
02347
023S0
02351
02352
-02353
02354
02355
02356
02357
02360
02361
02362
02363
02364
02365

•

02366
02367
02370
02371
02372
02373
02374
02375
02376
02377

3333
4357
2363
1362
3356
1366
3075
1333
6211
3756
6201
2356
5736
0000
0000
4652
4210
0000
0000
5312
5757
2400
7400
3012
6213
4207
0461
7763
0200
7603
7600
5561

DCA
JMS
ISZ
TAO
DCA
TAD
OCA
TAO
NOWRIT> COF
DCA I
CDf
ISZ
JMP 1
OUPTR,
OUDUMP,
JMS I
4210

/SAVE WORD
OUOUMP /WRITE BLOCK
OUBLOK /BUMP BLOCK NUMBEK
OUBLOR- l/RESET BUFFET POIN
OUPTR
(.400

OCOUNT
OWTtMP

/AND COUNT
/RESTORE AC

OUPTB

/INTO BUFFER

OUPTR
QUTWRO
X7607

lOERR
DUOUMP
ENO«FINI«200
I

PAGE ia-2

OtoTEMP

OUBtOK,
JMP
JMP

10/30/72

/WRITE BLOCK
/WRITE BLOCK

#
/OS/B BASIC UOADER

PAL6-V6

ABORT
ABORTL
ABORTX
ACNT

P2
P3
P4
P5
P6
P7
P8
P9

2315
2136
0052
0042
ACt
0076
AC2
0077
AC3
0100
AUUOCA 1400
ALLOCS 1460
ARAYST 2132
ASVLUP 0614
BLOCK 0046
BRTBGN 0200
BRTS
0050
BRTSB 2224
BRT9IZ 3400
COFZER 2035
CDP0
1664
CP
2033
CHKLBL 2105
CLEARF 2061
CLREND 0106
CLRFLO 0105
CLRLUP 2044
0072
CODB
COOBGN 0026
CODCDF 0023
CODF
0073
CODSZl 0066
C008Z2 0067
OATAFl 1320
DATAF2 1326
DATLST 2566
OATLUP 1306
OATMOV 1323
DATPTR 0030
DATTOP 0027
OCB
7760
DLSIZE 0051
OOARAY 1407
DONCLR 2064
DOSARY 1467
E0TB6N 3012
EDTBLK 2333
EDTSIZ 1600
END
2400
ERIiSG
1712
FCNT
2303
2200
FINI
FREEF 2130
FREEHX 0053
FREELO 0054
FTEMP 2301
FTEMP2 2302
HJFLO 0047

ICOUNT
INBLOK
INPTR
INMORO
lOERR
UBLFLD
LEAO0
LFLD
LINEH
LINEL
LITRL
LOADER

0074
1536
1550
1530
2312
1654
0726
1057
0102
0103
2562
0400
I.OADIT 2000
0070
LOCHI
LOCLO 0071
LOCTRH 0044
LOCTRL 0045
LODLUP 2025
0476
L6221
L7600 0477
MORCLR 2054
MOVFIN 2140
1246
MOVSL
M0V8TL 207S
MULBGN 2300
MULLUP 2263
MUL12 2254
M12
2247
NASTAD 0022
NCHARS 0063
NLLOOP 1052
NOAOD 2272
NOOATA 0600
NOFJMP 2032
NONL
nil
NOPATC 0433
NOREAO 1545
NORELC 1703
NOSL
1257
N0T08E 0450
NOWRlT 2351
NOZERO 0724
NSTAOR 0021
OCOUNT 0075
ONLYl
1437
OUBLOK 2363
OUOUWP 2357
OUPTR 2356
OUTWRD 2336
OWTEMP 2333
PATLST 1344
PATLUP 0424
PHNTSN 071ia
PSN
0704
PI
1045

10/30/73

1062
1137
1154
1254
0632
0646
1312
1314
RELCIT 1600
RELOOP 1632
RELOUT 1704
RESADR 0107
SACNT 0043
SARY8T 2332
8A8TA0 0024
SC
0101
SFLD
1161
SLFLO
1162
8LITRL 2564
SLIT2
1200
8LL00P 1144
SPACE 0717
SSTAOR 0023
STACK 0015
STACKA 7120
8TC0F 0020
8TEMPF 0643
STEMPS 2560
STFLDM 2077
STMLUP 0636
8TSTUF 1000
SUB
0731
SUBHl
0064
SUBLO 0065
SVARST 1036
8VCNT 0041
8V8T0R 0660
SWAP
0461
SMPFLA 0514
8WPF1
0536
8KPF2 0545
SloPINF 0031
8WPRET 0511
SWPSUB 0515
SWPl
0534
8WP2
0547
T08ESY 0472
TEMP
0055
TEMP2 0056
TEMPS 0057
TIMES3 1442
TMOATA 1332
TMSLIT 1337
TOOBIG 074k
TTX
0753

PAGE

TTY

1740
0040
0100
0060
0061
0062
2251
XIIMT
2250
XLABEL 0104
XSAVE 2253
X10
0010

VARCNT
VERSON
MOROl
M0R02
W0R03
XERMSG

0011

X13
X7607

0013
2252

ERRORS detected:

1096

LINKS GENERATED! b8
1097

ABORT
ABQRTL
ABORTX
ACNT
ACl

AC2
ACS
AULOCA
ALLOCS
ARAVST
A8VUUP
BLOCK
BRTBGN
BRTS
BRTSB
BRTSIZ
CDFZER
core
CF

CHKLBL
CLEARF
CLSEND
CLRFLO
CLI»LUF

CODB
COOBGN
CODCOF
GOOF
C0D8Z1
C0DSZ2
DATAFl
DATAF2
DATLST
DATLUP
OATMOV
OATPTR
DATTOP
OCB
OLSIZE
DOARAY
OONCLR
OOSARY
CDTBGN
EDTBLK
EOTSIZ
END
ERM8G
FCNT
FINI
FREEF
FREEHI
FREELO

FTEMP
FTEMP2
HIFlD

967
1042«
939
937#
571
576
321
44
1049
43*
598
644
423
364
36
3Si
361
1025
64
1023
1012
63«
1034
1028
1026
1019
1020
65
64*
1011
1036
1031
1029
66
1010
65#
598i
247
646*
600
74« 601
239
227#
853
736
734
40
39#
as« 1003
980
42
41#
985i
981
84* 983
872« 935
768«
7S2
870* 877
868
866
863
930
918
912# 913
759
B92«
895
891
889
884
888
878
879
72
221
7l#
883
71
2tB
70#
879« 894
60
59III
767
851
30
724
29«
861
862
857
29
771
726
28«
60*
61
846
873
785
778
56
729
55«
850
875
787
780
57
733
S6#
557i
553
552
563*
534
79# 544
547# 566
560# 565
541
527
32
31«
525
526
30«
31
lis
8S#
528
42#
43
605« 645
895*
886
684
653*
Sll 1059
1057#
10S2
82« 1054
498
537
1084*
799
797
792
79e#
574
569
99
319
1006
997
978
1032*
992
971
1084
942
965# 1908
939
931«
674
369
637
505
216
277
129
932
725
314
44*
45
88
312
313
307
275
46
90
219
222
125
4SIII
426
427
426
379
413
375
376
374
494
497
501
493
44^9
442
441
435
723
635
672
540
533
542
536
532
994
1030*
974
993
986
975
969
996
1031#
976
990
995
973
977
87
40«
41
102

811

928

936
30B
433
510

350
434
524

ICOUMT
IN9L0K
INPTR
INWORO
lOERH
LBLFLO
UEAO0
LFLO
LINEH
LINEL
LITRL
LOADER
LOADIT
LOCHI
LOCLO
LOCTRH
LDCTRU
tODLUP
L62ai
L7600
MORCUR
MOVFIN
MOVSL
MOVSTL
MULBGN
MULUUP
MU112
M12
NASTAO
NCHARS
NLLOOP
NOADO
NOOATA
NOFJMP
NONL
NOPATC
NOREAO
NOREUC
NOSL
NOTDSE
NOWRIT
NOZERO
NSTADR
OCOUNT
ONLVl
0U8t0K
OUOUMP
OUPTR
QUTWRO
OWTEMP
PATLST
PATLUP
PRNTSN
PSN
PI

P2
P3
Pa
P5
Pb

61*
b92«
696
bSb«
693
753
298
388
67«
6e«
77#
87#
789
57#
56*
37#
3B#
664*
ia9iii

694
699
701

986
760«
301*
397#
66
69
78

687
698
695
737
700
702#
742
757
1039* 1082

401
92
93
367

317
318
389

/a\

856

651
869

568
567

572
573

803
805

507

512

923
926

1039

843*
58
59
36
39

874
196
173
687*
937
520
909
1029*
1033
633

150*
6S2
910
515#
90««
1015
1016«
627
970
991
25#
26
52«
53
392«
422
1017
1023#
215« 530
865
969»
394
423#
104
ua«
686
699«
748
783#
452
524#
123
1?7#
1062
107U
299#
295
24«
25
62*
63
629#
625
735
1065
843
1064
1067
1072
777
784
1056* 1063
105
b77#
107#
113
267*
STii
283* 303
387#
577
40»« 576
a45« 579
458# bftiiJ
b?!* 581
?ai«
tJSe!

763
769
720
716
876

781
731
727

772

940«

952

848
844

670
1009* 1036
1004#
429
603
461
477
487
549

376
739

1061

1066
1077#
1074
1060*
1070

1081*
1083
1076«
1075

804

806

lt*69

P7^^
P6
P9

REICIT
REIOOP
RELOUT
RESAOR
SACNT
SARV8T
SASTAD
9C

SPLD
SLFLD
8LITRL
SLIT2
StUOOP
SPACE
SSTAOR
STACK
STACKA
8TC0F
8TEMPP
8TEMPS
8TFLDM
STMIUP
ST8TUF
sua
SUBHI
8UBL0
SVARST
8VCNT
8V8T0R
SWAP
SWPFLA
SWPFl
SWPFS
SWPINF
SWPRIT
SWP8UB
SWPl
SWP2
T08ESY
TEMP

253«
551#
553#
h«B
742*
784#
72#
36«
75#
27#
fc6«

455
446
7a«
4fc2

450*
294#
26#
22*
se#
23i
242
76#
896
245*
109
274
53*
54*
73*
34*
237

TEMP2

i34
133
130
132
32*
160*
141
166
168
140
46*
238
559
783
950
47*

TEMP3

264
639
916
48*

TIMES3
TMDATA
TMSLIT
TOOBIG
TTX
TTY

VARCNT

583
584
585
685
786
352
37

^
716*
788
898
365

649
28

443
1014
463* 465
464* 322
79
445
477*
523
800
27
267
94
96
24
370
250* 254
77
241
906*
262
135
350*
304* 316
54
273
55
272
223
35
357
261
263*
136*
144
163*
175
131
152
177
188*
91
128
67

181
145
167

368

437

646

683

651
1032
515

447
•

436

485

243

634
310
305

671
620
619

722
665

721

631

664

360
282
159
176
154
194
138

430

432

162

188

181*

197

148
179*

164*
185

165

169

170

112
392
623
871

171

399
743
680

182
450
745
887

183
457
749
893

1022
718

1035
1018

1037

172

187

198

189
754
897

192
555
756
900

226
558
776
947

234
626
899

257
630
906

484
679

490

1042

190*

US*
47

110

245
564
852

252
607
864

48
266
662
920

180
410
676

184

191

409
667

412
758

459

193
521

761

764

229
612
765

233
617

260
618

269
629

279
641

481
658

482
663

810
798
356

818
801
371

60S
373

eu«

819

491
628
535
496

519
632*
539
500

317*
322*
296
33*

327
300
34

174

550

567*
572*
808
79fe

353

384

VERSON
WOBOl

^l95bU

17#
sa
49*
50«
51
52
5l#
1006#
96b
989
9fce
ra
69*
987
972
19i
106
380
256
408
406
556
551
681
659
268
20#
306
504
673
652
21« !>43
1O07«
982
124

^uasfcs

121

*L0567
^L0570
^L057l

117
116
115
111
105
96
89
299
293

W0f>D2

W0RD3
XERMSG
XINT
XLABEL
XSAVE
xie

Xll

X15
X7fe07

*l.a572

^LB574
*l.057fc

^1.0577
^L07fc3
^1.07*5

^L0766
^1.07*7

^L0770
^U0772
^L0773
*L0774
^L0775
^L077«>

^L1170
^1.1171

^L1172

*Ln73
^Ull7«

^Lin*
^L1177
J.L1370

^H376
^L1377
^L1564
^LlSfcb

^L1567
^L157i?

^L1574
^UlSTfc

*L1577
^lii^a
^LIT53
^11754
^L175b

LUM

41b
403
287
284
407
420
1040
1005*
286
301
1008« 1008*
224
107
382
381
456
454
602
560
943
682
278
276
511
509
678
675
562
901
1078
1053

290

291

405

418

921

922

924

925

228
383
458
606
948

230
396
460
606

249
398
480
613

251
400

281

414
604
903
907

417
636
905

516
680
902

516
643

253
402
545
650

255
404
547
654

419
638
945

421

640
949

486
642

270
259
248
243
2«1
232
225
223
447
445
395
389
387
362
354
544
496
478
697

689
661
649
632
610

453

366
358
537

668
615

656

601
ai7
aifc

814
«ii
809
«07

*l.l7b5
j.1.1767
j.1.1770

a.11771

^L1772
xLl774
j.l.21*5

^12166

*L2U7
J.U2170
J.U2174

^L2175
^L2366
^t.2370

^U237i
^12373
*L2377

762
755
750
746
744
738
946
944
942
939
867
860
1068
1047
1045
1013
999

1001

>
/OS/8 BASIC RUNTIME SYSTEM

PAL6-V7

\Vi/ZH/li

PAGE

/OS/a tJASIC RUNTIME SVSTtM
/

/OEC-Sa-LBASA-A-LA
/

/COPYRIGHT, 1972
/

/DIGITAL EQUIPMENT CORPORATION
/MAVNARD, MASSACHUSETTS 01754
/

/AUGUST 19,

1972

/R.G, BEAN

3400

/AOOhESS OF START OF
OVERLAY'3400

PAGE OVERLAY BUFFER

/ASSEMBLY INSTRUCTIONS
/WHEN ASSEMBLED AND LOADED VIA THE ABS. LOADER, THE
/CORE LAYOUT IS AS FOLLOWS!
/

/BRTS IS
/OVERLAY
/OVERLAY
/OVERLAY

AT 0-«>777

BASIC, AF IS AT 3400-4577 Of I
BASIC. SF lA AT 12000-13177 6v/ "^
BASIC, FF IS AT 13400-U5770x/

/TO CREATE SAVE IMAGE FILES PRIOR TO RUNNING BASIC,
/ASSEMBLE THIS SOURCE IN A UK OR MORf MACHINE, THEN
/PERFORM THE FOLLOWING SEQUENCE OF OS/8 COMMANDS
/

/,R ABSLOR

/•BRTSS (•8RTS,EAE0VR$ IF YOU WISH TO USE ON EAE MACHINE)
/.SAVE SYSI8RTS 0-fc777 -^
/

/.SAVE S¥S:BASIC.AF 3400-4577 "^
/

/.SAVE SYStBASIC.SF 12000-13177
/

/.SAVE SYS:BASIC,FF

13430-14577

/THE BASIC RUN-TIME SYSTEM IS CONDITIONALIZEO TO TAKE ADVANTAGE
/OF THE PDP-e/E KE6/E EAE OPTION,
/NORMALLY, THE SYSTEM IS ASSEMBLED SUCH THAT IT WILL HUN ON ANY
/PDP-8 OR POP-12. TO TAKE ADVANTAGE OF THE ADDITIONAL HARDWARE, SET
/THE SWITCH EAE"1 IF THE SYSTEM INCLUDES A KE8/E EAE.
/THE RESULTING BINARY IS THEN LOADED OVER THE NORMAL SYSTEM
/BINARY AS AN OVERLAY USING THE ABS LOADER, AND THE MODIFIED SYSTEM
/IS SAVED. IN OTHER WORDS, TO CREATE A NON-EAE SYSTEM, ASSEMBLE THIS
/SOUKCt ONCE, WITH EAE5», ANO PtRFOKM THE SAVE OPERATIONS ABOVE ON THfc
/BINARY THAT RESULTS. TO CHEATfc AN f.kE SYSTEM, ASSEMBLE THIS SOURCK
/TWICE, ONCE WITH EAE»0 AND ONCE WITH EAE=1, USE THE ABSOLUTE LOAUER
/TO LOAD BOTH RESULTING BINARIES CTHt EAE BINARY MUST BE LOAOFl)

/08/8 BASIC RUNTIME SYSTEM

PALB-V7

10/24/72

PAGE l-l

/AFTER THE NORMAL BINARY3,THfeN PERFORM THE SAVE
/OPERATIONS ON THE RESULT,
/EAE*0
/EAE»1

/USE STANDARD FLOATING POINT PACKABE
/ASSEMBLE EAE OVERLAY

/08/8 BASIC RUNTIME SYSTEM
IFN2R0 EAE
NOPUNCH

PALa-V7

10/24/72

PAGE

/PAG£

LOCATIONS
*3

00003
00004
00005
00006
00007

0000
0000
6361
0000
0000

00010
00011
00012
00013
00014

0010
0000
0000
0000
0000
0000

0001S
00016
00017

0000
0000
2713

0020

TEMP14,
TEMP15,
NUMCOM, NUMCOL
USECON,
TEMP2,

/TEMPS USED B¥ CHARACTER UNPACKING ROUTINES
/LINK TO 12 BIT COMPARE ROUTINE
/USE CONSTANT GENERATED bV "USE" STATEMENT

*10
XR0I
XRl,
XR2,
XR3|
XR4,
XR5,
BABS>

/INDEX REGISTERS

DLPTR,
SPINNR, 2713

/USED BV ABSOLATE VALUE COMPARING ROUTINE
/POINTER FOR IN-CORE DATA LIST
/AT RUNTIME, THIS LOCATION IS SPUN FOR RND SEEP

*20

/COMPILER"INTERPRETER CONTROL BLOCK. LOCATIONS MARKED BV
/A *• ARE EXPECTED TO CONTAIN VALUES SUPPLIED BV THE COMPILER PRIOR
/TO THE BRTS LOAD
00020
00021
00022
00023
00024
00025
00026
00027
00030

6211
0000
0000
0000

0000
0000
0000
0000
0000

CDFIO,
6211
SCSTRT,
ARSTRT,
STSTHT,
SASTRT,
CDFPS,
PSSTRT,
DLSTOP,
DLSTHT,

/CDF FOR
/POINTER
/POINTER
/POINTER
/POINTER
/CDF FOR
/POINTER
/POINTER
/POINTER

I/O TABLE AND SYMBOL TABLES
TO START OF SCALAR SYMBOL TABLE
TO START OF ARRAY SYMBOL TABLE-1
TO START OF STRING SYMBOL TABLE-1
TO START OF STRING ARRAY TABLE-1
START OF PSEUOO-COOE
TO START OF PSEUDO CODE-l
TO TOP OF DATA LIST
TO BOTTOM OF INCORE DATA LIST-1

•
/OS/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

PAGE

/SYSTEM REGISTERS
00031

0000

PSFLAG,

00032
00033
00034
00035
00036

0000
0000
0000
0000
0000

STRLEN*

0037

00037

0N,T08/E PG2 MOVED
/IF BIT
/IF BIT 11 ON,PG 1/600 HAS BEEN MOVED
/LENGTH OF STRING IN SAC
/SUBSCRIPT I (MUST BE FOLLOWED BY Saj)
/SUBSCRIPT 2 (MUST BE PRECEEDED BY SIJ)
/MAP OF DRIVER PAGES
/MAP OF FILE BUFFERS

51,
S2,

DMAP,
BMAP,
• 37

/FLOATING POINT PACKAGE LOCATIONS, THE FOLLOWING 21 LOCATIONS ARE USED
/FOR VARIOUS PURPOSES BY THE FLOATING POINT PACKAGE. THOSE WITH DOUBLE
/LABELS ARE USED BY BRT8 AS TEMPORARIES WHEN NOT CALLING THE PACKAGE.
/THE SECOND TAG IS THE ONE USED BY THE FLOATING POINT PACKAGE, THE FIRST
/IS USED BY BRTS.
/SPECIAL MODE FLIP-FLOP

0000

00040
00041

0000
0000

00042

0000

00043

6201

00044

0000

0004S

0000

00046

0000

00047

0000

00050

0000

000S1
000S2
00053

0000
0000
0215

00054

0215

00055
00056
00057
00060
00061
00062

7563
7777
0024
0012
0000
0000

TEMPI,
AC0,
ACI,
TEMP3,
AC2,
TM,

TEMP4,
EXP»
ACXf
HORO,
ACH,
LORDfACLOf
ACLi
TEMPS,
OPXi
TEMP6,
OPH,
TEMPT,
OPL,
D8WIT,
CHARr
K215,
SWITt,
M215,

swne,

6201

/FAC-EXPONENT
/FAC-HIGH ORDER MANTISSA

/FAC-MANTI8SA LOW

215

/SWITCH USED BY INPUT ROUTINE
/TERMINATOR OF LAST INPUT

215

/»0 FOR NO LP AFTER CR ON INPUT

-215
7777
EFLG,
24
FLOWi
DAOP»
12
TEMP10I
TEMPll,

/0 FOR NO CR/LF AFTER OUTPUT
/0»E FORMAT
/FIELD WIDTH OF OUTPUT
/«0F PLACES AFTER DEC. PT
/LOC NEEDED BY FPP
/LOC NEEDED BY FPP

•

/OS/8 BASIC RUNTIME SYSTEM

P4Le-V7

10/24/7^

PAtiE

/SYSTEM REGISTERS USED OFTEN BV INTERPHETER CODE
00063
00064
0006S
00066
00067
00070
00071
00072

0000
0000
0000
0000
0452
0000
0000
0000

00073
00074
00075
00076

0010
0017
0077
0100

00077

0200
0077
0340
0377
0400
7400
7700
7477
7740
7764

00100
00101
00102
00103
00104
00105
00106
00107

•

MODESWi
INSAV,
LINEHI,
LINEUGi
GSP,

/0 FOR AHTHIMETIC MODE.l FOR STRING MOOF

/CURRENT PSEUDO-INSTRUCTION BEING EXECUTED
G5TCK-1

STRMAX,
STRCNTi
8TRPTR,
/OFT USED CONSTANTS
K0010,
0010
K0017,
0017
K0077,
007»
K0100,
100
USRi
K0200I
0200
K200IK0200
K0340,
0340
K0377,
0377
K0400,
0400
K7400,
7400
K77B0,
7700
K7477,
7477
KN40*
.40
M14»
-14

/HI ORDER BITS OF LINE # CURRENTLY BEING EXECUTED
/LOW ORDER BITS OF CURRENT LINE NUMBER

/POINTER INTO GOSUd STACK
/MAXIMUM « OF CHARS ALLOWED IN CURRENT STRING
/- • OF CHARACTERS IN CURRENT STRING
/POINTER TO CURRENT OPERAND STRING

/OS/8 BASIC RUNTIME SYSTEM

PAU8-V7

l0/2«/72

PAGE

/OFT USED LINKS

00110
00111
00112
00113
00114
00115
00116
00117
00120
00121
00122
00123
00124
00125
00126
00127
00130
00131
00132
001S3
00134
00135
00136
00137
00140
00141
00142
00143
00144
00145
00146
00147
00150
00151
00152
00153
00154
00155
00156
00157
00160
00161

1034
0320
3253
0212
1615
0206
1460
6525
0200
2260
1900
2304
0537
3023
2636
2676
2600
2646
3371
2373
6241
6256
6215
0365
6135
4533
312b
2252
2240
2735
3016
2706
6566
6661
3302
2347
3503
5364
1230
0567
0771
0563

PRINT,
XPRINT
8ACPTR, SAC-1
PUTCML» PUTCM
ILOOPLf ILOOP
UNSFIX
INTL»
COFPSLf CDFPSU
ERROR,
ERRDIS
FBITGT
FBITS,
PWFECLf PWFECH
MPYLNK, MPY
XPUT,
XPUTCH
FIDLE,
IDLE
DEVCAL, DRCALL
WRITFW, WRITFL
8THINL, STHINI
LOHINL, LDHINI
STH,
STHL
LDH,
LDHL
FACSAU, FACSAV
FACRELi FACRES
FGETL,
FFGET
FFPUT
FPUTL,
FFNOR
FNORL,
FACCLR
FCLRf
FNEGL,
FFNE6
FLOATLf FPLOAT
GETCHL, GETCH
EOFSEL» EOFSET
BSWP
BSWLr
PACKCH
PACKL,
CNOCLLi CNOCLR
BUFCHL, BUFCHK
FTYPE
FTYPL,
CHRNOL, CHARNO
NEXRfeLi NEXREC
CRLFR
CRLF,
VALGET
VALLR*
PATCHP, PATCHF
PISWAP, PSWAP—
LOHRST, LRE8ET
STHRST, SRESET
PSTOPl, FSTOPI
/***•**• THE ABOVE LINK

/LINK FDR TTY DRIVER HO OKS
/POINTER TO STRING ACCU MULATOR
/LINK TO FILE BUFFER ST UFFING ROUTINE
/POINTER TO START OF IL OOP
/LINK TO UNSIGNED 12-flI T INTEGER FIX
/POINTER TO PSEUDO-CODE COF
/ERROR ROUTINE DISPATCH
/ROUTINE TO ISOLATE FUN CTION BITS FROM INST
/ROUTINE TO GET NEXT WO RD FROM PSEUDO-COOE STREAM
/LINK TO 12 BY 12 BIT M ULTIPLY
/ROUTINE TO PUT CHAR IN TTY RING BUFFER
/LINK TO FILE IDLE CHEC K ROUTINE
/LINK TO DEVICE DRIVER CALLING ROUTINE
/ROUTINE TO WRITE I WOR D IN FILE BUFFER
/LINK TO STH INITIALIZE R
/LINK TO LDH INITIALIZE
/STORE HALF ROUTINE
/LOAD HALF ROUTINE
/ROUTINE TO SAVE FAC IN TEMPOARARV
/ROUTINE TO RESTORE FAC FROM TEMPORARY
/LINK TO FPP GET ROUTIN E
/LINK TO FPP PUT ROUTIN E
/LINK TO FPP NORMALIZE ROUTINE
/ROUTINE TO ZERO FAC
/LINK TO FPP NEGATE ROU TINE
/LINK TO FPP FLOAT ROUT INE
/LINK FOR ASCII CHAR GE T ROUTINE
/ROUTINE TO SET EOF BIT
/LINK FOR BYTE SWAP ROU TINE
/ROUTINE TO PACK ASCII, 3 FOR 2
/ROUTINE TO INITAILIZE CHAR # TO 1
/CHECK STATUS OF BUFFER POINTER
/ROUTINE TO DETERMINE F ILE TYPE
/ROUTINE TO DETERMINE C HARATER NUMBER
/ROUTINE TO FILL BUFFER WITH NEXT RECORD
/ROUTINE TO PRINT CR,LF
/ROUTINE USED BY FINPUT TO FtTCH CHARS DURING VAL$ FUNCTION
/LINK TO FPP SPECIAL MO Ot PATCH
/ROUTINE TO SWAP HI COR E AND PAGE 17b00
/ROUTINE TO RESET LOH T FIELD
/ROUTINE TO RESET STH T FIELD
/LINK FOR "C HOOKS IN D RIVERS
MUST BE AT 161 *******

/OS/8 BASIC RUNTIME SYSTEM

PALe-V7

10/24/75

PAGE

/I/O TABLE POINTER AHEA-THIS BLOCK HOLDS POINTERS TO THE I/O TABLE
/ENTRY FOR THE CURRENT FILE. THE POINTERS ARE CHANGED EVERY
TIME AN
/SFN IS EXECUTED. A TAD I OFF ONE OF THE POINTERS WILL
GET THE iNFDRMATTnN
INFORMATION
/NOTED IN THE COMMENT FOR THE CURRENT I/O DEVICE
/THIS BLOCK IS INITIALIZED FOR TTY

00162
00163
00164
00165
00166
00167
00170
00171
00173
00173
00174
00175
00176
00177

0000
6677
6700
6701
6702
6703
6704
6705
6706
6707
6710
6711
6712
6713

ENTNO,
WORO0,
WORDl,
WOROii,

MOROSi
N0RD4,
WORDS,
W0R06,
W0RD7,
WORDt0,
WORDll,
W0RD12>
l^fOROnf

W0R014,

TTYF
TTYF*1
TTYF+2
TTVF+3
TTYF*4
TTVF*5
TTYF*6
TTYF*7
TTYF*10
TTYF+11
TTYF*12
TTYF+13
TTYP*14

/ENTRY NUMBER NOW IN AREA
/HEADER WORD
/BUFFER ADDRESS
/CURRENT BLOCK IN SUFFER
/REAOVWRITE POINTER
/HANDLER ENTRY POINT
/FILE STARTING BLOCK «
/ACTUAL FILE LENGTH
DEVICE / (FILE MAXIMUM LENGTH)
/
NAME / (POSITION Of PRINT HEAD)
/
/
/

FILE
NAME

•

/OS/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

PAGE

/BRTS MAINLINE-THI8 IS THE IMTERPRtTER INSTRUCTION LOOP, IT IS IN THIS
/LOOP THAT THE NEXT INSTRUCTION IS FETCHED, DECODED, ANO USED AS A DISPATCH
/TO THE PROPER EXECUTION ROUTINES FOR THAT INSTRUCTION,

0200

*200

/SUBROUTINE PWFECH-RETURNS WITH NEXT WORD FROM PSEUDO-CODE STREAM IN AC
00200
00201
00202
00203
00204
00205
00206
00207
00210
00211

5606
2302
5206
1206
10T3
3206
0321
1702
6201
5600

PWFECH, JMP

CDFPSU

IS2 INTPC

JMP COFPSU
TAD COFPSU
TAD K0010
OCA CDFPSU
CDFPSUf 8TARTI
TAD I INTPC
CDF
JMP I PWFECH

/START ONCE ONLY CODE IN TTY BUFFER
/BUMP PSEUDO-CODE PROGRAM COUNTER
/NO-SKIPiJUST GET NEXT PSEUDO-CODE WORD
/SKIP MEANS WE HAVE TO INCREMENT PS-CODE FIELD
/SET OF TO FIELD OF PSEUDO-CODE
/GET NEXT WORD OF CODE
/SET DATA FIELD BACK TO INTERPRETER FIELD
/RETURN

/*•***•*****»»«••*•••*****«*«*«•*•»•**««»*»«***«•**•*******•»
/BRT8 I-LOOP
00212
00213
00214
00215
00216
00217
00220
00221
00222
00223
00224
00225
00226
00227
00230
00231
00232
00233
00234
00235
00236
00237
00240
00241
00242

7300
3037
4200
3064
4510
7000
1064
0103
7106
7006
7004
1250
7500
5243
3040
1063
7640
5271
1040
1246
3240
4307
0240
7000
5212

00243
00244
00245

1247
3245
0245

SCASi;,

00246
00247

4661
5661

JMSI,
JMPI,

ILOOP,

r^^

CLA CLL
OCA FF
JMS PWFECH
OCA
JMS rWiNT
NOP
TAD IN8AV
AND K7400
CLL RTL
RTL
RAL
TAD KM10
SMA
JMP SCASE
OCA TEMPI
TAD MODESW
SZA CLA
JMF SMODE
TAD TEMPI
TAD JMSI
OCA .2
JMS ARGPRE
'

ILOOPF,
NOP
JMP ILOOP
TAD JMPI
OCA . + t

/FLUSH
/PUT FPP IN SI MODE
/GET NEXT PSEUDO-INSTRUCTION
/SAVE FOR LATER
/CALL TO TTY DRIVER
/STRIP TO OPCODE BITS

/OPCODE NOW IN BITS 6-11
/SUBTRACT 10
/IS OPCODE <10?
/CALL TO INSTRUCTION COMMON TO SMODE AND AMODE
/YES-SAVE THE OFFSET
/WHICH MODE?
/STRING MODE
/ARITHMETIC MODE-GET OFFSET
/MAKE JMS TO FP PACKAGE ROUTINE
/PUT IN LINE
/SET UP ARGUMENT FROM SYMBOL TABLE
/JMS TO THE FLOATING POINT PACKAGE ROUTINE
/FPP SOMETIMES RETURNS TO CALL+2
/DONE
/JUST DISPATCH TO ROUTINE CALLED FOR
/JUMP TO APPROPRIATE ROUTINE

JMS
JMP

SEP!
SEPl

/JMS USED FOR CALLS TO FPP BY AMQOE INST
/JMP USED TO CALL ROUTINES COMMON TO AMODE AND SMODE

/OS/8 BASIC RUNTIME SYSTEM

00250

7770

KM10I

PAI.8-V7

10/24/72

PAGE 7-1

-10

•

«
/0$/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

PAGE

/JUMP TABIE FOR AMOOE INSTRUCTIONS
002SI
002S2
00253
002S4
00255
00256
00257
00260

6000
6117
5600
5722
6241
6256
5400
5412

00261
00262
00263
00264
00265
00266
00267
00270

1400
1410
0400
044S
1140
0600
0113
1200

00271
00272
00273
00274
00275
00276

1040
1306
3276
7100
4705
0276

FFADO
FF8UB
FFMPY
FFDIV
FFGET
FFPUT
FFSUBl
FFDIVl
/ALL INSTRUCTIONS BE
SEPl,
LSII
IS2I
FJDCI
JEOFI
LINEI
ARRAYI

UOOPL
OPERl
SMODE

TAD TEMPI
TAO JMSSI
OCA SDIS
CLU
JMS I STFINL

SOISr

/FACj.C(A)*FAC
/FACj.FAC-C(A)
/FACj.FAC*C(A)
/FACj.FAC/C(A)
/FAC^C(A)

OPCODE
OPCODE 1
OPCODE 2
OPCODE 3
OPCODE 4
/C(A)^FAC
OPCODE 5
/FACj.C(A)-FAC
OPCODE 6
/FACa.C(A)/FAC
OPCODE 7
D THIS POINT ARE COMMON TO AMOOE AND SMODE
/Sl^CCA)
OPCODE 10
/S2j.CCA)
OPCODE 11
/IF TRUE,PC*C(PC,PC*n
OPCODE 12
/IF EOF,PC^CCPC,PC*n
OPCODE 13
/LINE NUMBER
OPCODE 14
/ARRAY INST
OPCODE 15
/NOP
OPCODE 16
/OPERATE INST
OPCODE 17
/INST OFFSET
/BUILD JMP OFF STRING TABLE
/PUT IN LINE
/STRING SCALAR TABLE
/SET UP ARGUMENT ADDRESS
/CALL STRING ROUTINE REQUESTED

/JUMP TABLE FOR SMOOE INSTRUCTIONS
/ A "/••• IN THE COMMENT MEANS THAT THAT OPCODE IS NOT USED, SO WE
/USE THE SLOT FOR REGULAR STORAGE
00277
00300
00301
00302
00303
00304
00305
00306

iZZ9
2061
2417
0302
3150
0477
1666
5707

SCONl
SCOMP
SREAO
- - INTPC,

SLOAD
SSTORE
STFINL» STFIND
JMSSI,
JMP 1 ,+1

/SAC^SAC&CCAS)
/IF SAC .NE. C(ASJ,PC^PC*2
/CtAS5^0EVICE
/• INTERPRETER PC
/SAC^CCAS)
/CCASJ^SAC
/* LINK TO STRING FINDING ROUTINE
/# DISPATCH JUMP FOR SMODE INSTRUCTIONS

/END OF I-LOOP
/****** ***1i***i>****iHi*1H,i,iH,**i,*1,i,'k1,*m,*n,i,i,i,i,i,1i**t ***********

/OS/fl

BASIC RUNTIME SYSTEM

PAU8-V7

161/24/75

PAGE

/ARGPRE-HOUTINE TO TRANSLATE OPERAND FltUO INTO 12 9IT POINTER
/INTO SCALAR TABLE FOR USE IN fPP CALLS.
00307
00310
00311
00312
00313
00314
00315
00316
00317
00320

0000
1064
0101
3040
1040
7104
1040
1021
1000

5707

ARGPREf
TAD INSAV
AND K0377
OCA TEMPI
TAD TEMPI
CLL RAL
TAD TEMPI
TAD 8CSTRT
SCALOFf 1000
JMP 1 ARGPRE

/BET INSTRUCTION
/STRIP TO OPERAND FIELD
/SAVE
/*2
/PTR*3
/MAKE 12 BIT ADOR
/DF TO SCALAR FIELD (CDF INITIALIZED BY LOADER)
/RETURN

/////////////////////////////////////////////////////////////
/////////////// STRING ACCUMULATOR /////////////////////////
/////////////////////////////////////////////////////////////
/36 LOCATIONS USED TO HOLD STRING OPERANDS AND RESULTS FOR STRING
/OPERATIONS, AT LOAD TIME.JT IS FULL OF ONCE-ONLY STARTUP CODE

STARTl,
00321
00322
00323

7404
7640
7000

00324
00325
00326
00327
00330
00331
00332
00333
00334
00335
00336
00337
00340
00341
00342
00343
00344
00345
00346
00347
00330
00351
00352
00353

6046
2017
7000
6041
5325
1020
3763
1020
3764
4556
1317
3757
1361
3011
1362
3012
1360
3040
6211
1411
6201
3412

2040
5346

SACi

OVML»

OSR
SZA CLA
NOP

TL8
ISZ SPINNR
NOP
T8F
JMP ,-3
TAD COFIO
OCA I PSIL
TAD COFIO
OCA I PS2L
JMS I PISWAP-^
TAD SCALDF
DCA I L7746
TAD PINFO
OCA XRl
TAO POVTAB
DCA XR2
TAD MINUS4
DCA TEMPI
CDF 10
TAD I XRl
CDF
OCA I XR2
ISZ TEMPI
JMF OVML
•

/A HLT PLACED HERE WILL ALLOW YOU TO STOP
/MACHINE BEFORE RUNTIME SYSTEM STARTS BY

/SETTING SWITCH REGISTER
/SET TTY FLAG
/SPIN RANDOM NUMBER SEED
/WHILE WAITING FOR INITIALIZING TLS
/FLAG UP YET?
/SET UP CDF8 IN P8WAP

/RESTORE PAGE 17600
/SET PROG NOT RE5TASTABLE BIT
/TELL USR TO SAVE 1000-1777
/POINTER TO INFO TABLE IN 17600

'-''tf''

/POINTER TO BLOCK TABLE IN OVERLAY DRIVER
/WE HAVE TO GET

15-i^

BLOCK NUMBERS

/GET BLOCK NUMBER FOR THIS OVERLAY F«OM JNFO AREA
/PUT IN TABLE IN OVERLAY DRIVER
/DONE?
/NO

•
/OS/8 BASIC RUNTIME SYSTEM
00354
00355
00356
00357
00360
00361
00362
00363
00364

4556
575fc

1152
7746
7774
7607
1530
1240
1245

JMS I P18WAP
JMP I .!
STABT3
L77fl6,
7746
MINU$4f 04
PINFO,
7607
POVTABf ARITHA-1
PSll.,
PICOF
P82L,
PiCDFl

PALe-V7

10/24/72

PAGE 9-1

/YES-FLUSH PAGE 17600
/CONTINUE THE INITIALIZING CODE IN INTERMEDIATE BUFFER

tnttftNi/tNUnttNUNN/Ut/NNIftntnUHtUUn/U/
t'tNKnfiHtNNumtnt/UNUfin/fHtntnnnntufu
/ROUTINE TO ZERO FAC
00365
00366
00367
00370
00371
00372

7600
3044
3046
3045
5765

FACCLRi
L7600I
7600
DCA EXP
OCA LORD
DCA HORO
JMP I FACCLR

/CLA
/ZERO EXPONENT
/ZERO LOM MANTISSA
/ZERO HIGH MANTISSA

^»B5«i*SL«!^?-.r"^""^
/"KINT STATEMENTS)
00373
00374
00375
00376
00377

0000
4550
5513
4553
5513

*'*^°"^

°'^'-^

TO COMPILER FOR TERMINATING

CRFUNCf
JMS I FTYPL
JMP I ILOOPL
JMS I CRLF
JMP I ILOOPL

/IS FILE NUMERIC?
/YES»WE DON'T WANT TO OUTPUT CRLF
/DO AS WE ARE TOLO
/NEXT INST

•

/08/8 BASIC RUNTIME SYSTEM

PALfi-V7

10/24/72

PAGE

\id

PAGE

0400

/JUMP ON CONDITION
TAD INSAV
AND K0017
SNA
JMP GOSUB
TAD FSTOPl
DCA .I

00400
00401
00402
00403
00404
00405
00406
00407
00410
00411
00412
00413
00414

1064
0074
7450
5215
1363
3206
0406
3211
1045
0411
5221
4520
5513

FJOCI,

JFAIL,

JMS
JMP

00415
00416
00417
00420

1515
4642
1644
4642

GOSUB,

TAD
JMS
TAD
JMS

00481
00422
00423
00424
00425
00426
00427
00430

4520
3644
1064
0100
7112
3515
5513

SUCJMP» JMS
DCA
TAD
AND
CLL
TAD
DCA
JMP

00431

7554

K7554,

1341

•

DCA .2
TAD HORO
•

JMF

•

SUCJMp
PWFECL
lUOOPL
I
I

1
I

I
I

CDFPSL
PUSHGL
INTPCL
PUSHGL

PWFECt
INTPCL
INSAV
K0340
I

RTR
CDFINL
I CDFPSL
ILOOPL
I

7554

/GET JUMP INSTRUCTION
/MASK OFF JUMP CONDITION
/IS IT GOSUB?
/YES-PUSH PC ON STACK THEN JUMP
/BASE TAD FOR BUILD OF TAO INSTRUCTION
/PUT IN LINE
/GET PROPER SKIP
/PUT IN LINE
/GET HIGH ORDER FAC
/SKIP INSTRUCTION
/CONDITION TRUE-JUMP
/CONDITION FALSE-DON'T JUMP, BUT BUMP PC
/DONE
/GET CURRENT PC DATA FIELD
/PUSH ON GOSUB STACK
/GET CURRENT PC
/PUSH ON GOSUB STACK
/FALLS INTO UNCONDITIONAL JUMP BECAUSE A
/GOSUB IS MERELY A PUSH FOLLOWED BY A JUMP

/GET WORD FOLLOWING JUMP INS,
/STORE AS NEW PC
/GET JUMP INSTRUCTION
/MASK OFF DESTINATION FIELD
/SLIDE OVER
/MAKE A CDF INSTRUCTION
/AND SET NEW PC INSTRUCTION FIELD
/NEXT INSTUCTION

/*****TMIS CONST CAN NOT BE MOVED, THERE
/MUST BE A CONSTANT BEFORE THE SKIP TABLELAND
/THER MUST BE A TAD OF THAT CONSTANT ON THIS PAGE

/SKIP TABLE USED TO HOLD TESTS FOR VARIOUS CONDITIONS

00432
00433
00434
00435
00436
00437
00440
00441

7600
7700
7640
7740
7710
7650
7750
5643

K7600,

00442
00443
00444

2326
2042
0302

PUSHGLi PUSHG
JFORL,
JFOR
INTPCL» INTPC

7600
SMA CLA
SZA CLA
SMA SZA CLA
SPA CLA
SNA CLA
SPA SNA CLA
JMP I JFORL

/UNCONDITIONAL (CLA)
/JPA
/JNA
/JPA JNA
/JMA
/JZA
/JMA JZA
/FORLOUP JUMP

•

•
/08/8 BASIC RUNTIME SYSTEM

PAL6-V7

10/24/72

PAGE

/JUMP ON END OF FILE
0044S
00446
00447
00450
00451
00452

4923
1563
7112
7620
5213
S221

JEOFI,

00453
00454
00455
00456
00457
00460
00461
00462
00463
00464
0046S
00466
00467
00470
00471
00472
00473
00474
00475
00476

0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000

CSTCK,

JMS
FIOLE
TAD
WORD0
CLL RTR
SNl. CLA
JMP JFAIL
JMP SUCJMP

/SEE IF FILE OPEN
/IST WORD OF I/O TABLE ENTRY
/GET EOF BIT IN LINK
/EOF?
/NO"OON'T JUMP
/JUMP

////////////////// GOSUB STACK////////////////////////////
/START OF GOSUB STACK

SSSTOP,

/TOP OF GOSUB STACK

/OS/6 BASIC RUNTIME SYSTEM

PAL8-V7

l0/2a/72

PAGE

/STRINS ACCUMULATOR STORE
SSTOHE» DCA I STHCDF
TAD SACPTR
CLL lAC
JMS I UDHINL
JMS I LDMRST
TAD STRPTR
CUL lAC
JMS I STHIML
DCA STRCNT
TAD 8TRLEN
SNA
JMP SSTEX
DCA TEMPI
SSLOOP, JMS I LDH
JMS I 8TH
ISZ STRCNT
ISZ TEMPI
SKP
JMP SSTEX
TAD STRCNT
TAD STRMAX
SMA SZA CLA
JMS I ERROR
SL,
JMP SSLOOP

00477
00500
00501
00502
00503
00504
00505
00506
00507
00510
00511
00512
00513
00514
00515
00516
00517
00520
00521
00S22
00523
00524
00525
00526

7101
4527
4557
1072
7101
4526
3071
1032
7450
5327
3040
4531
4530
2071
2040
7410
5327
1071
1070
7740
4516
5314

00527
00530
00531
00532
00533
00534
00535

1736
3331
0531
1071
7041
3472
5513

SSTEX,

00536

2603

STHCDF, STHOF

3736

nil

TEMP24,

TAD 1 STHCDF
DCA ,*l
•

TAD STRCNT
CIA
DCA I STRPTR
JMP I ILOOPU

/STORE CDF FOR OPERAND IN STM
/SET AC TO ADDR OF SAC
/INITIALIZE LDH TO PULL CHARS FROM SAC
/SAC IS IN FIELD
/POINTER INTO OPERAND
/AC POINTS TO OPERAND
/INITIALIZE STH TO STORE IN OPERAND
/ZERO COUNT
/STRING LENGTH
/IS IT NULL STRING?
/VES-WE DON'T HAVE TO STORE ANYTHING-JUST ZERO COUNT
/SERVES AS CHARACTER COUNTER
/GET CHAR FROM SAC
/STORE IN OPERAND STRING
/BUMP OPERAND COUNT
/SAC ALL MOVED YET?
/NO-CHECK IF THERE*S ROOM FOR THE REST
/YES-DONE
/* OF CHARS IN STRING SO FAR
/COMPARE TO MAXIMUM SIZE
/MAXIMUM SIZE REACHED YET?
/YES-STRING TOO LONG OR UNDEFINED
/NO-MOVE NEXT CHAR
/OF FOR STRING
/PUT IN LINE
/DF TO STRING FIELD
/DONE-GET # OF CHARS MOVED
/NEGATE (ALL COUNTS ARE NEGATIVE
/AND STORE AS COUNT WORD FOR OPERAND STRING
/THAT'S ALL. FOLKSI

•

•
/OS/8 8ASIC RUNTIME SYSTEM

PAue-V7

10/24/72

PAGE 13

/CALL TO DEVICE DRIVER FOR FILE I/O, ASSUMES ARGS HAVE BEEN SET UP

00537
00500

00542
00543
00544
00545
00546
00547
00550
00551
00SS2
00553
00554
00555

0000
3351
6201
1564
3352
1565
3353
1567
3331
4731
0000
0000
0000
5356
5737

00556
00557
00560

7710
4516
4516

00Sttl

DRCALL.
OCA ORARGl
CDFINL» CDF
TAO I KORDl
DCA DRARG2
TAD I W0R02
OCA DRARG3
TAD I W0RD4
OCA TEMP24
JMS I TEMP24
DRARGli
DRARG2,
0RARG3«
JMP DRERR
JMP 1 DRCALL

DRERR,
OE,
EF,

SPA CLA
JMS I ERROR
JMS I ERROR

/FUNCTION WORD INTO DRIVER CALL
/OF TO CURRENT FIELD
/GET BUFFER ADORE FROM I/O TABLE ENTRY
/PUT IN DRIVER CALL
/GET BLOCK NUMBER FROM I/O TABLE
/PUT IN DRIVER CALL
/GET DRIVER ENTRY
/SAVE
/CALL DRIVER
/FUNCTION CONTROL WORD
/BUFFER ADDRESS
/BLOCK «
/DEVICE ERROR
/ALLS WELL

/DETERMINE ERROR TYPE
/FATAL
/LOGICAL EOF

/CALL TO INTERPRETER
00561
00562
00563
00564
00565
00566

4510
S361
1231
3064
5766
1471

F8T0PN, JMS 1 PRINT
JMP .•!
FSTOPI, TAO K7554
DCA INSAV
JMP I ,+1
FUNC5I

/ON NORMAL EXITS, WE MUST EMPTY RING BUFFER
/FIRST

/FAKE A CALL TO BASIC, FF FUNCTION 6
/CALL OVERLAY

/ROUTINE TO RESET LO
00567
00570
00571
00572
00573

0000

LRE8ET,

1341

TAD CDFINL
DCA I LDHOCK
JMP I LRESET
LDHDCK, LDHOF

3773
5767
2647

/CHANGE TO CDF

/USE FUNCTION-TAKES WORD FOLLOWING CALL AND STUFFS IT IN USECON FOR
/USE A BUFFER POINTER FOR USER SUBROUTINE

00574
00575
00576
00577

0000
4520
3006
5774

USE,

JMS I PWFECL
DCA USECON
JMP I USE

/GET NEXT WORD FROM PSEUDO-CODE STREAM
/STORE IN PAGE
SLOT
/RETURN

/OS/8 BASIC ttUNTIME SYSTEM

PAL8-V7

lB/a«/7a

PAGE 14

PAGE

196^10

/ARRAY INSTRUCTIONS
/ARRAY INSTRUCTIONS WORK 8Y UNDING TMt ADDRESS OF ThE ARGUMENT FROM THE ARRAY
/TA8UE»THEN CALLING THE APPROPRIATE FLOATING POIN PACKAGE ROUTINE.

1063
7640
S324
1064
0342
7106
1022
3011
0610

Hll
3007
1411
3307
1411
3042
1033
3013
1042
4405
4516
3050
1411
7450
5240
3371
1034
3015
1371
4405
5223
1034
4521
7100
1033
3047
7004
1050
3050
1047
7104
3051
1050
7004
3042
7100
1047
1051

ARRAYIr

TAD MODESV)
SZA CLA
JMP SARRAY
TAD IN8AV
AND K0037
CLL RTL
TAD ARSTRT
OCA XRl

ATA8PF,
TAD I XRl
DCA TEMP2
TAD I XRl
DCA ADFC
TAD I XRl
DCA TEMP3
TAD 81
OCA BABS
TAD TEMP3
JMS I NUMCOM
SU,
JMS I ERROR
OCA TEMP6
TAD I XRl
SNA
- JMP AOCALC
DCA TEMP30
TAD S2
DCA BABS
TAD TEMP30
JMS I NUMCOM
JMP SU
TAD S2
JMS I MPYUNK
AOCALCi CLL
TAD SI
DCA TEMPS
RAL
TAD TEMP6
DCA TEMP6
TAD TEMP5
CLL RAL
DCA TEMPT
TAD TEMP6
RAL
DCA TEMP3
CLL
TAD TEMP5
TAD TEMP7

/WHICH MODE?
/SMOOE
/GET ARRAY INSTRUCTION
/MASK OFF ARRAY OPERAND
/MULTIPLY BY 4 (ENTRY LENGTH)
/MAKE POINTER INTO ARRAY TABLE
/POINTS TO ARRAY FOR THIS OPERATION
/CHANGE OF TO ARRAY TABLE FIELD (SET BY START)
/GET POINTER TO FIRST ARRAY ELEMENT
/SAVE FOR LATER
/GET OF FOR VARIABLE
/PUT IN LINE AT END OF ROUTINE
/GET ARRAY DIMENSION 1
/SAVE
/GET SUBSCRIPT 1
/SET UP 12 BIT COMPARE
/DIMENSION 1
/SI TOO SIS?
/YES-SUBSCRIPT OUT OF BOUNDS ERROR
/CLEAR TEMPORARY
/GET DIMENSION 2
/IS SECOND DIMENSION 0?(ARRAY UNIDIMENSIONAL)
/YES-OON«T CHECK S2 FOR OUT OF BOUNDS
/SAVE 0IM2+1
/GET SUBSCRIPT 2
/SAVE 12 BIT COMPARE

/S2 BIGGER THAN 0IM2?
/YES
/MULTIPLY DIMUl BY sa
/12 BY 12 MULTIPLY ROUTINE

/LORD OF S1*(DIM1*1)*S2
/SAVE
/CARRY TO BIT 11
/HORD OF Sl*{0IM14'n*S2
/SAVE
/LORD OF Sl*(OIMl*l)*Sa
/*2
/LORD OF [Sl*(0IMl*l)*S21*2
/HORD OF S1*(0IM1*1)*S2
/*2
/HORD OF [Sl*(0IMl*l)*S2J*2
/LORD OF Sl*(OIMl*n
/LORD OF t51*(DIMl*n»S2J

•
PAU8-V7

/OS/8 BASIC RUNTIME SYSTEM
00657
00660
00661
00662
00663
00664
0066S
00666
00667
00670
00671
00672
00673
00674
00675
00676
00677
00700
00701
00702
00703
00704
00705
00706
00707
00710
00711
00712
00713

3051
7004
1050
1042
3050
7100
1051
1007
3011
7004
1050
7106
7004
1307
3307
1064
0100
7112
7012
7010
1346
3311
7001
3037
0707
1011
0711
7000
5513

DCA
RAL
TAD
TAD
OCA
CLL
TAD
TAD
DCA
RAL
TAD
CLi.
RAJ.

TAD
OCA
TAD
AND
CLL
RTR
RAR
TAO
DCA
lAC
OCA

TEMPT
TEMPfe

TEMP3
TEMP6
TEMPT
TEMP2
XRl

TEMP6
RTL
ADFC
ADFC
INSAV
K0340
RTR

JMP12
ARJMP
FF

AOFCr

TAD XRl
ARJMP,

NOP
JMP

ILOOPL

10/24/72

PAGE 14-1

/LORD OF 3*(Sl*(DlMl*n*S2]
/CARRY TO BIT 11
/HORD OF [SU(0IMl*n*S2)*2
/HORO OF Sl*(01Ml*n*S2
/HORO OF 3*[Sl'*(0IMl*n*S2J
/INDEX TO ELEMENT
/AC POINTS TO CORRECT ARRAY ELEMENT
/SAVE POINTER
/CARRY TO BIT 11
/COMBINE TO MAKE TOTAL # OF FIELD OVERLAPS

/SLIDE OVERLAPS TO FIELD BITS (6-fl)
/ADO ANY CHANGE IN DATA FIELD TO CDF
/PUT ABSOLUTE COF IN LINE
/GET ARRAY INSTRUCTION AGAIN
/MASK OFF ARRAY OPCODE
/SLIDE TO BITS 9-11
/AND USE AS INDEX INTO JUMP TABLE
/PUT JUMP IN LINE OF CODE
/PUT FPP IN "SPECIAL MODE"
/CHANGE DF TO OF OF ARRAY ELEMNT
/AC POINTS TO ARRAY ELEMENT
/PERFORM THE REQUIRED OPERATION
/FPP SOMETIMES RETURNS TO CALL+2
/DONE

/ARRAY JUMP TABLE

00714
0071S
00716
00717
00720
00721
00722
00723

5400
6000
6117
5600
5722
6241
6256
5412

AJT,

FPUTLLi

FFSUBl
FFADO
FFSUB
FFMPY
FFDIV
FFGET
FFPUT
FFOIVl

/FAC»ACS1,S2)-FAC
/FAC8FAC*A(S1,S2)
/FAC»FAC-A(S1,82)
/FAC«FAC*A(S1,S2)
/FAC»FAC/A(Sl,S2]
/FAC»C(A(S1,S2)
/C(A(Sl,S2)sFAC
/FAC»A(81,S2)/FAC

OPCODE
OPCODE
QPCOOE
OPCODE
OPCODE
OPCODE
OPCODE
OPCODE

/OS/a BASIC RUNTIME SYSTEM

PAU8-V7

10/24/75

PACE lb

/STRING ARRAY DISPATCH
00724
00725
00726
00727
00730
00731
00732
00733
00734
00735

1064
0100
7112
7012
7010
1336
3335
7120
4743
0735

SARRAY, TAD
AND
cll
rtr
RAR
TAD
DCA
STL
JMS
SAO,
,

INSAV
ke340

/GET INSTRUCTION
/ISOLATE ARRAY OPCODE

rtr

/and slide it over for an offset

JMPISA
SAD
I

STFILK

/BUILD A JUMP TO STRING INSTRCUTION
/AND PUT IN LINE
/TELL SFIND TO USE ARRAY TABLE
/SET UP ARGUMENT ADDRESS
/EXECUTE INSTRCUTION

/STRING ARRAY JUMP TABLE
/USED WHEN ARRAYI CALLED IN SMODE
/ A "/*'• IN THE COMMENT MEANS THAT OPCODE IS UNDEFINED AND THE SLOT
/IN THE TABLES IS USED FOR NORMAL STORAGE
00736

5737

00737
00740
00741
00742
B0743
00744
00745
00746

2200
2061
2417
0037
1666
3150
0477
4714

JMPISA» JMP

SCONl
SCOMP
8READ
37
K0037i
STFILK, STFIND
SLOAD
SSTORE
JMPI2,
JMS I AJT

/DISPATCH JUMP FOR STRING ARRAY INSTRUCTIONS

/SAC^SAC»C(AS(S1))
/SKIP IF SAC«CCA$tSl))

/AStSn^DEVICE
/•
/• LINK TO STRING FINDING ROUTINE

/8ACj.CtA$CSl))

/CCAS(S1)3^SAC
/* DISPATCH JUMP FOR ARRAY INST

•

P*L«-V7

/OS/8 BASIC RUNTIME SYSTEM

10/2^/72

PAGE

Ife

/ROUTINE TO PUT ONE WORD IN FILE BUFFEH IN FIELD
00747
007S0
007S1
00752
00753
00754
00755
00756
00757
00760
00761
00762
00763
00764
00765
00766

0000
3050
4523
1566
3051
1162
7640
6211
1050

00767
00770

0040
7737

3451
6201
1563

BCPUT,

COF0,

0370
1367
3563
5747
K40,
K7737,

OCA
JMS
TAD
OCA
TAD
8ZA
CDF
TAD
DCA
CDF
TAD
AND
T*0
DCA
JMP

TEMP6
I

HOLE

I W0R03
TEMP7
ENTNO
CLA

/SAVE AC
/CHECK IF FILE OPEN
/GET READ/WRITE POINTER
/SAVE
/GET FILE #
/IF TTV, BUFFER FIELD IS

TEMP6
TEMP7
I

/GET WORD TO STORE AGAIN
/STORE IT IN BUFFER

I WORO0
K7737
K40
I WORO0
I BCPUT

/HEADER WORD
/TURN OFF BLOCK WRITTEN
/TURN IT ON AGAIN

/RETURN

7737

/ROUTINE TO SET STM OF TO
00771
00772
00773
00774
00775

0000
1361

3775
5771
2603

TEMP30,
SRESET,
TAD CDF0
OCA I STHOKK
JMP I SRE8ET
STHOKK, STMOF

/OS/8 BASIC RUNTIME SYSTEM

PALe-V7

10/24/72

PAGE

1(900

/TELtTVPE DRIVING ROUTINE
/2 ENTRY POIMTS-XPUTCH PUTS A CHARCTER IN fHE RING BUFFER
XPRINT TYPES A CHARACTER IF POSSIBLE
/
/
AND RETURNS TO CAUL+l IF THERE
/
ARE MORE CHARCTERS IN THE SUFFER, CALU*2
/
IF THE BUFFER IS EMPTY
/THE IDEA IS THE PLACE CALLS TO XPRINT AT VARIOUS POINTS IN THE IWTER/PRETER AND THUS KEEP THE TTY BUSY WITHOUT WASTING THE TIME WAITING FOR
/THE TTY FLAG, THE SUCCESS OF THIS SCHEME DEPENDS HEAVILY ON THE NUMBER
/AND PLACEMENT OF THE CALLS TO XPRINT,
01000
01001
01002
01003
01004
01005
01006
01007
01010
01011
01012
01013
01014
01015

010U

0000
3040
2017
4234
7000
1230
76S0
5202
1040
3623
222S
7340
1230
3230
1225

01017
01020
01021
01022
01023
01024

1227
3225
5600

01025
01026
01027
01030

1070
1070
1070
0050

01031
01032
01033

6641
7575
7730

01034
01035
01036
01037
01040
01041
01042
01043
01044

0000
6031
5244

1231

7750
S600

1077
6034
1232
7650
5561
1230

XPUTCH,
DCA CHRSAV
ISZ SPINNR
JMS XPRINT
NOP
TAD BCNT
SNA CLA
JMP XPUTl
PUTCMR, TAD CHRSAV
DCA I BUFIN
ISZ BUFIN
CLA CLL, CMA
TAD BCNT
OCA BCNT
TAD BUFIN
TAD MBEND
SPA SNA CLA
JMP I XPUTCH
TAD B8TRTA
DCA BUFIN
JMP I XPUTCH

XPUTl,

BUFIN,
88TRT
BUFOUT, BSTRT
BSTRTA, BSTRT
BCNT,
50
CHRSAViTEMPl
MBENO,
-BEND
MCTRLC, «203
M50,
-50

/SAVE THE CHARACTER
/SPIN RANDOM # SEED
/START A CHAR IF POSSIBLE
/GET THE NUMBER OF AVAILABLE SLOTS
/ARE THERE ANY?
/NO-TRY TO RPINT 1 AND FREE UP A SPACE
/GET CHARACTER AGAIN
/PUT CHARACTER IN RING BUFFER
/BUMP BUFEER POINTER OF INPUT
/-I

IN AC

/DECREMENT AVAILABLE SLOT COUNT
/GET BUFFER INPUT POINTER
/SUBTRACT ADOR OF END OF BUFFER
/PAST EDN OF BUFFER?
/NO-RETURN
/YES-RESET INPUT POINTER TO BEGINNING OF BUFFER

/RETURN

/POINTER TO NEXT SLOT FOR BUFFER INPUT
/POINTER TO NEXT CHARACTER TO BE PRINTED
/ADDS OF START OF TTY BUFFER
/# OK AVAILABLE SLOTS IN BUFFER (40 INITIALLY^
/-ADOR OF END OP RING BUFFER

XPRINT,

NOCC,

KSf
JMP NOCC
TAO K0200
KRS
TAO MCTRLC
SNA CLA
JMP 1 FSTOPl
TAO BCNT

/IS KEYBOARD FLAG UP?
/NO-NO CHANCE FOR A CTRL/C
/FORCE PARAITY BIT
/YES-GET THE CHAR IN KEYBOARD BUFFE^f
/IS IT CTRC/C
/YfeS-ABORT TO EDITOR
/# OF AVAILABLE SLOTS IN SUFFER

/OS/8 BASIC RUNTIME SYSTEM
01045
01046
01047
01050
01051
01052

1233
7650
5S66
6041
5634
1626

01053
01054
01055
01056
01057
01060
01061
01062
01063
01064
01065

6046
7300
2226
1226
7750
5264
1227
3226
2230
5634

01066
01067

2234
5634

1231

PAL8-V7

10/24/72

PAGE 17-1

TAD MSB
SNA CLA
JMP RECP2
TSF
JMP 1 XPRINT
TAO 1 BUFOUT

/IS BUFFER EMPTY?

ISZ XPRINT
JMP I XPRINT

/BUMP RETURN
/RETURN TO CALL+2 FOR EMPTY BUFFER

/YES-RETURN TO CA|,U*2
/NO-TTY FLAG UP YET?
/NO-GO ABOUT YOUR BUSINESS
/GET NEXT CHARACTER
/********************************ilrt*******************************t
/N.B, BECAUSE OF THE ABOVE INSTRUCTION, THE OF MUST BE SET TO THE
/INTERPRETER FIELD WHENEVER XPRINT IS CALLED, WATCH YOUR HOOK PLACEMENTl
/***•*«****««***•«**««*«***«««*•«*«*«*****«*)»**«*«««««*««««««*«««)
TLS
/TYPE IT
CUA CLL
ISZ BUFOUT
/BUMP BUFFER OUTPUT POINTER
TAO BUFOUT
/GET OUTPUT POINTER
TAO MBEND
/SUBTRACT END OF BUFFER
SPA SNA CLA
/IS OUTPUT POINTER PAST END?
JMP BOUTRS
/NO"FREE UP A SPOT
TAO B8TRTA
/YES-RESET POINTER TO BEGINNING
DCA BUFOUT
BOUTRSf ISZ BCNT
/INCREMENT « OF FREE SLOTS tWE JUST PRINTED ONE)
JMP I XPRINT
/RETURN
RECP2|

/TELETYPE RING BUFFER
01070
01071
01072
01073
01074
01075
01076
01077
01100
01101
01102
01103
01104
01105
01106
01107
01110
01111
01112
01113
01114
01115
01116
01117
01120
01121
01122

0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000

B8TRT.

/START OF BUFFER

/40 CHARACTERS LONG

/OS/8 BASIC HUNTIME SYSTEM

01123
eiiiti

01U5
01126
01127
01130
01131
01132
01133
01131
01135
01136
01137

0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000

BEND,

P4L.8-V7

10/^4/72

PAGE {7-2

/END OF TTY BUFFEH

#
/DS/8 BASIC RUNTIME SYSTEM

PALB-V7

10/24/72

PACE 18

/LINt NUM8ERS

01140
01141
0114S
01143
01144
0114S
01146
01147
01190

1064
3065
4520
3066
5513
1351

3064
5750
I47a

TAD INSAV
OCA IINEHI
JMS I PWFECU
OCA LINELO
TRHOOKi JMP I ILODPU
TAO KC240
OCA INSAV
JMP I .I
FUNC2I

LINEI,

/GET INSTRUCTION
/SAVE
/GET WORD FOLLOWING LINE # INST
/SAVE AS LOM ORDER LINE «
/RETURN TO I-LOOP
/IF TRACE IS ON, FAKE CALL
/TO PUNC2,#12

/DISPATCH TO TRACE FUNCTION

///////////////////////////////////////////////////////////
////////// INTERMEDIATE TELETYPE BUFFER ///////////////////
///////////////////////////////////////////////////////////
/USED TO BUFFER OUTPUT FROM FPP BEFORE WE PUT IT
/IN BASIC FORMAT FOR TRANSPORTATION TO THE TTV RING
/BUFFER, FILLED WITH INITIALIZATION CODE WHEN ENTERED
01151

0240

01152
01153
01154
01155
01156
01157
01160
01161
01162
01163
01164
01165
01166
01167
01170
01171
01172
01173
01174

1025
3515
1026
3775
4537
1020
3774
1020
3773
1020
3777
1020
3776
1030
3016
5772
6600
0610

01175
01176
01177

0302
2317
0317

1701

KC240,
240
INTEHB,
START3> TAD CDFPS
DCA I C0FP8L
TAD PSSTRT
DCA 1 INTPCK
JMS I FCLR
TAD CDFIO
DCA I STDFL
FPPTM5, TAD CDFIO
DCA I ATA8DL
TAD CDFIO
FPPTM4, DCA I SCALOL
TAD CDFIO
OCA I OLCDFL
FPPTM3, TAD DLSTRT
DCA OLPTR
JMP I .!
FPPTH2, START4
ATABDLi ATABDF
STDF
STDFL,
FPPTMl,
INTPCK, INTPC
OLCOFL, OLCDF
SCALOLf SCALDF

/STOPPER TO MARK BEGINNING OF BUFFER
/CDF FOR PSEUDO-CODE
/PUT IN-LINE TO ILOOP
/START OF PSEUDO-CODE
/PUT INTO PC
/CDF
/PUT
/CDF
/PUT
/COF
/PUT

f>^f'

yT^ 1

C "/i

F ^^ ^'^

FOR SYMBOL TABLE FIELD 6^"
IN LINE FOR STRING FUNCTIONS
FOR SYMBOL TABLES
IN LINE FOR ARRAY CALCULATIONS
FOR SCALAR TABLE
IN LINE FOR ARGPRE

/DATA FIELD FOR DATA LIST
A RESTORE IN INCORE DATA LIST
/CONTINUE INITAILIZATION CODE IN TTY INPUT BUFFER

/DO

/FLOATING POINT TEMPORARY

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

/OS/8 BASIC RUNTIME SYSTEM

PAL8-vr

10/24/72

PAGE 19

PAGE

120(9

/OPEKATE CLASS INSTRUCTIONS
01200
01201
01202
01203
01204

1064
0074
1205
3204
1204

OPERl,

01205

5b06

JMPI3,

TAO INSAV
AND K001/
TAD JMHIJ
DCA .I
•

JMP

/GfcT OPERATE INSTRUCTION
/MASK OFF OPERATE OPCODE
/BUILD JUMP OFF OPERATE JUMPTASUE
/STORE THE JUMP IN LINE
/DISPATCH TO PROPER OPEHATt MOUTINE

/JUMP TO OPERATE ROUTINE CALLED FOR

/OPERATE JUMP TABLE
01206
01207
01210
01211
01212
01213
01214
01215
01216
01217
01220
01221
01222
01223
01224
01225

1542
1600
2000
1226
6550
2572
1403
1413
0020
3105
3200
2460
1471
1466
1473
1472

FUNC3I
SPFUNC
SFN
FNEGI
RETRNl
RESTOR
L8UB1I
LSUB2I
MSPACE, 20
READI
WRITEI
SWRITE
FUNC5I
FUNC4I
FUNCII
PUNC2I

/CALL RESIDENT FUNCTION DPCOUE
/SPECIAL FUNCTIONS
OPCODE
/SET FILE NUMBER
OPCODE
/NEGATE FAC
OPCODE
/G08UB RETURN
OPCODE
/RESTORE DEVICE
OPCODE
/LOAD SI FROM FAC
OPCODE
/LOAD S2 FROM FAC
OPCODE
/THIS OPCODE NOT DEFINED, SO WE
/READ DEVICE
OPCODE
/WRITE DEVICE
OPCODE
/STRING WRITE
OPCODE
/CALL FILE FUNCTION
OPCODE
/CALL USER FUNCTION
OPCODE
/CALL FUNCTIONS 1
OPCODE
/CALL FUNCTIONS 2
OPCODE

2
3

4
5

6
7

PUT

CONST HERE

12
13
14
15
16
17

01226
01227

4540
5513

/FLOATING NEGATE
JMS I FNEGL
JMP I ILOOPL

FNEGI,

/CALL NEGATE ROUTINE
/RETURN TO ILOOP

•

#
/OS/8 BASIC RUNTIME SYSTEM

PAl,8-V7

10/24/72

PAGE 20

/ROUTINE TO SWAP PG 17600 WITH N7400 OR N7600 tWHICHtVER THE CASE
u
nor BEl
c MAY
ocj
/WHEKE N IS THfe HIGH CORE FIELD
«;

i/Q^^ 01230
\']M^

01231
01232
01233
01234
01235
01236
01237
01240
01241
01242
01243
01244
01245
01246
01247
01250
01251
01252
01253
01254
01255
01256
01257

0000
1253
3040

PSWAP,

1031

7700
1077
1103
3007
7402

P2CDf,

9»^^(A

f^ ^ f^

/GET RESIDENT STATUS FLAG
JSvC-2^ (^
/WHICH HI-CORE PAGE IS IT IN?
/7600
/7400
/POINTER TO HIGH CORE
\7 t
(~
^'-^f-^
/DF TO HI CORE
/GET WORD FROM HI CORE
/SAVE IT

PICDF,

1407

3043
6211
1440
7402
3407
6211
1043
3440
2007
7600
2040
5240
6201
5630

— /POINTER TO 1T600 *NEh.eetWT€«
OCA TEMPI
TAD PSFLA6
SMA CLA
TAD K200
TAD K7400
DCA TEMPS

(

TAD 1 TEMP2
DCA TEMP4
CDF 10

PlCDFl, HUT C^P(^ fOfiK
DCA I TEMP2
P2CDF1, CDF 10
TAD TEMP4
OCA I TEMPI
I8Z TEMP2
KK7600I
7600
I5Z TEMPI
JMP PI CDF
CDF
JMP I PSWAP

/OF TO HI CORE AGAIN
^>^t^
/PUT 17600 WORD IN HI CORE

s%K

cT:}fp^

/GET SAVED HI CORE WORD
/AND PUT IN 17600
/BUMP HI CORE POINTER
/CLA
/BUMP 17600 POINTER AND CHECK FOR DONE
/NO DONE-MOVE NEXT WORD

/DONE-RETURN

^^ :U^

cjic

e-^J^-9 g) 3^}

^ iX

/OS/8 BASIC RUNTIME SYSTEM

PAL8"V7

\!d/iU/72

P4(it

/SUBHOUTINE ASCOUT
/ROUTINE CALLED BY WRITE WITH THE NUMBER TO BE WRITTEN IN FAC,
/CALLS THE FPP TO OUTPUT THE DIGITS TO AN INTERMEDIATE BUFFER, THEN
/MASSAUES THAT BUFFER TO PUT OUTPUT IN BASIC FORMAT.
01S60
01261
01262
01263
01264
01265
01266
01267
01270
01271
01272
01273
01274
01275
01276
01277
01300
01301
01302
01303
01304
01305
01306
01307
01310
01311
01312
01313
01314
01315
01316
01317
01320
01321
01322
01323
01324
01325
01326
01327
01330

0000
4532
1045
7650
5302
4776
4771
2514
1045
7740
5307
4533
4776
4771
2175
1045
7710
5307
1073
3060
1216
3057
7001
3056
4533
1372
3013
4773
7240
1013
3061
3007
3042
3043
7240

01331
01532
01333
01334
01335
01336

1216
7450
5660
2307
1375
7650

1061
3061
1461
1374

7450
5342

ASCOUTr
JMS I FACSAL
TAD HORD
SNA CLA
JMP FFORMT
JMS I ABSVLL
JMS I FSUBLK
A999
TAD HORO
SMA SZA CLA
JMP E20P10
JMS I FACREL
JMS I ABSVLL
JMS I FSU8LK
AP0001
TAD HORD
SPA CLA
JMP E20P10
FFORMTf TAD K0010
OCA OADP
TAD MSPACE
DCA FLOW
lAC

E20P10f DCA EFL6
JMS I FACREL
TAD INTRB
DCA XRS
JMS I FPOUTL
CLA CMA
TAD XR3
OCA TEMP10
DCA TEMP2
DCA TEMP3
OCA TEMP4
CFETCH, CLA CMA
TAD TEMP10
DCA TEMP10
TAD 1 TEMPIB
TAD M260
SNA
JMP ZR

ZROF^,

TAO MSPACE
SNA
ASCOUT
JMP
I
ISZ TEMP2
TAO MOECPT
SNA CLA

/SAVE THE FAC
/GET HI MANTISSA
/IS NUMBER 0?
/YES-USE F FORMAT
/ABS(X)
/ABS(X)-9999<)9
/GET HI MANTISSA OF RESULT
/IS AeS(X3>999999?
/YES-USE E FORMAT FOR OUTPUT
/GET X AGAIN
/ABSCX)
/ABS(X}<>. 000001
/IS ABS(X)>, 000001?
/NO-USE E FORMAT
/8 PLACES AFTER DEC PT

/16 COLUMNS IN FIELD WIDTH
/SET FLAG FOR F FORMAT
/SET FORMAT FLAG
/GET X BACK IN FAC
/ADOR OF INTERMEDIATE BUFFER-!
/XR3 POINTS TO INTERMEDIATE BUFFER
/USE FPP TO PUT ASCII NUMBER IN INTERMEDIATE BUFFER
/-I

IN AC

/ADOR OF LF IN INTER 8UFFER-1
/TEMPIB POINTS TO CR IN BUFFER
/CLEAR CHARACTER COUNT
/CLEAR ZERO REPLACE FLAG
/CLEAR DECIMAL POINT SEEN FLAG
/-I

/BACK UP POINTER TO NEXT CHAR
/GET CHAR FROM BUFFER
/-"0'"
/IS IT

»0"7

/YES-REPLACE WITH CR IF ZERO FLAG NOT SET
/OR ALTMOOE IF IN E FORMAT AND DECPT HAS BEEN SEEN,
/IS IT

/YES-DONE-PREPARE THt NUMBER FOR TYPINii
/NO-BUMP CHAR COUNT
/IS IT '"."?

/DS/8 BASIC RUNTIME SYSTEM
01337
01340
01341

53b3
2042
5322

JMP COUNCK
ISZ TEMP3
JMP CFETCH

01342
01343
01344
01345
01346
01347
013S0
01351
01352
01353
01354
01355
01356
01357
01360
01361
01362

1056
7640
5352
1043
7650
5334
1101
5361
1043
7640
5334
1042
7640
5334
1054
3461
5322

TAO EFLG
SZA CLA
JMP ZKCONT
TAD TEMP4
SNA CLA
JMP ZROFF
TAD K0377
JMP CR8EP*l
ZRCONT. TAD TEMP4
SZA CLA
JMP ZROFF
TAO TEMP3
SZA CLA
JMP ZROFF
CRREP,
TAD K21S
OCA I TCMP10
JMP CFETCH

01363
01364
0136S
01366
01367
01370

2043
7240
1007
7640
5322
5360

COUNCK,

01371
01372
01373
01374
01375
01376

6117

F8U9LK, FF8U8
INTRtt,
INTERB-1
FFOUTL» FFOUT
M260>
.260
MDECPT, -16
ABSVLL, ABSVAL

1151

4600
7520
7762
2366

ZR,

ISZ TeMP4
CLA CMA
TAD TEMP2
SZA CLA
JMP CFETCH
JMP CRREP

PAL6-V7

10/24/72

PAUE 21-1

COUNT«0, REPLACE WITH CR
/NO-TURN OF ZERO REPLACE
/YfcS-IP

/NEXT

/YES«GET FORMAT FLAG
/ARE WE IN E FORMAT?
/NO-PROCEEO TO CHECK ZERO REPLACE FLAG
/MAS DECIMAL POINT BEEN SEEN YET?
/NO-THIS ZERO STAYS, SO COUNT IT
/YES-THIS IS THE ZERO BEFORE THE POINT
/SO REPLACE IT WITH AN ALTMODE
/HAS A PERIOD BEEN SEEN YET?

/YES-THIS ZERO STAYS
/GET ZERO REPLACE FLAG
/IS IT ON?

/YE8-D0N»T REPLACE ZEROES
/NOnREPLACE THIS ZERO MITH
/YES-REPLACE
WITH CR
/NEXT CHAR

/SET DECIMAL POINT SEEN FLAG
/-I

IN AC

/GET CHAR COUNT
/IS IT 1 (, WAS FIRST COUNTED CHAR)?
/NO»OON»T REPLACE , WITH CR
/YES-REPLACE , WITH CR

PAU8-V7

/OS/B BASIC RUNTIME SYSTEM

/LOAU SUBSCRIPT

01401
01402
01403
01404
01405
01406
01407

4533
4620
4534
4532
4514
3033
4533
5513

PAGE ii

PAGE

1400

0H00

l0/8«/72

JMS I FACSAL
JMS I ARGPRL
JMS I F6ETU
JMS I FACSAL
LSUBII,
JMS 1 INTL
DCA SI
JMS I FACRtL
JMP I ILOOPL
LSII,

/PRESERVE FAC
/GET ARG POINTER INTO AC
/LOAD ARG INTO FAC (SKIPS NEXT INST ON RETURN)
/SAVE THE FAC
/GET INT(FAC)
/SET RESULT AS SUBSCRIPT 1
/RESTORE FAC
/NEXT INSTRCUTION

/LOAD SUBSCRIPT 2

01410
01411
01«12
01413
01414
01415
01416
01417
01420

4532
4620
4534
4532
4514
3034
4533
5513
0307

JMS I FACSAL
JMS I ARGPKU
JMS I FGETL
JMS I FACSAL
USUB2Ir
JMS I INTL
DCA $2
JMS 1 FACREL
JMP I ILOOPL
ARGPRUr ARGPRE

LS2I,

/PRESERVE FAC
/GET ARG POINTER INTO AC
/LOAD ARG INTO FAC (SKIPS NEXT INST ON RETURN)
/SAVE THE FAC
/GET INT(FAC)
/SET RESULT AS SUBSCRIPT 2
/RESTORE THE FAC
/BACK TO ILOOP

/OS/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/54/78

PAGE 23

/JMP DISPATCH FOR FUNCl CALLS

01«21

4622

JMS14,

JMS

/CALL FOR CANNED FUNCTION SET

,*l

/JUMP TABLE FOR FUNCTION CALL

01422
01423
C91424

01425
01426
01427
01430
01431
01432
01433

4200
4053
4120
3477
3400
4263
3632
4000
4543
3646

FFATN
FFCOS
FFEXP
EXPON

/FUNCTION BITS'
1

2
3
4

INT

FFLOG
SGN
FFSIN
RND
FROOT

5
6
7

/JUMP FOR FUNC2 DISPATCH
01434

4635

JMSI5,

JMS

/JMS OFF THE SET

TABLE

/JUMP TABLE FOR FUNCTION SET 2

01435
01436
01437
01440
01441
01442
01443
01444
01445

3407
3400
3600
3414
4400
4266
3422
3462
4013

01446
01447

4000
3677

ASC
/FUNCTION BITS"
CHR
/
1
DATE
/
2
LEN
/
3
POS
/
4
SEG
/
5
STR
/
6
VAL
/
7
ERRORR
/
18
/ERRORR MUST BE FUNCTION #10, ELSE "ERROPC" MUST CHANGE
TRACE
/
11
TPRINT
/
12
/TPRINT MUST BE #12 OR TRHOOK+1 MUST CHANGE

/DISPATCH FOR FUNC5 CALLS
014S0

5651

JMPFIL* JMP

,+1

/CALL FORR FILE MANIPULATING FUNCTIONS

/JUMP TABLE FOR FILE FUNCTIONS
{'H'\ 01451
\\Jc^ 01452

3600^

iaSt0H53

4001^
4000^
40044003-

V(^l«1454
^01455
t(01456
K'01457

CHAIN
CLOSE
OPENAF
OPENAV
OPENNF
OPENNV
FSTOP

3405i-^

/FUNCTION BITS"
/

/
/

/INT. EXIT

/ROUTINTE TO CALL ERROR ROUTINE BY FAKING

01460
01461

0000
7300

ERHDIS.

laN.

CLANCLL

/flush

2
3
4
5
6
A

FUNC5 CALL TO FUNCTION #10

/OS/8 BASIC RUNTIME SyST>EM
BiafeS

1327

0H63

306<t

0ia6«

5272

TAD lNu>07
OCA IN8«AV
JMP FUMCl

PAL6-V7
/FAKt

10/^4/7?

PAGE 23-1

FUNC CALL TO FUNC2 #10

/€RROR CALL FOR USKR FUNCTIONS-USER FUNCTION SHOULD "JMS
01465

•

4260

lA,

lAL"

JMS ERRDIS

•

•
/OS/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

PAGE 34

/FUNCTION OVERLAY DRIVER
01466
01067
01470
01471
01«72
01473
01474
0147S
01476
01477
01S00
01501
01502
01503
01504
01S05
01S06
01507
01510
01511
01513
01513
01514
01515
01516
01517
01520
01521
01522
01523
01524
01525

7650
5316
1040
1326
3007
1407
3312
4727
0500
3400
1512
4516
1040
3330
1040
1335
3322
4517
1522
3324
1524
5513

01526
01527
01530

7607
0000

4510
5266
7001
7001
7001
3000
6201
1040
7041
1330

1531

FUNC41, JMS I PRINT
JMP ,-1
lAC

FUNC5I, lAC
FUNC2I, lAC
FUNClIr OCA TEMPI
CDF
TAD TEMPI
CIA
TAD OVRLAY
SNA CIA
JMP OVDNE
TAD TEMPI
TAD OATAOI
OCA TEMP2
TAD I TEMP2
DCA OVADD
JMS 1 L7607
0500
3400
OVAOt),

OE,

OVDNE,

•

JMS I ERROR
TAD TEMPI
DCA OVRLAY
TAD TEMPI
TAD JM8TAD
DCA ,*Z
JMS I PBITS
fl

FUJUMP, DCA .*l
t

JMP

ILOOPL

OATAUI, ARITHA
U7607,
7607
OVRUAY,

/PURGE TTY RING BUFFER
/BEFORE CALLING USER FUNCTION
/LOOK FOR OVERLAY FLAGsJ
/LOOK FOR OVERLAY FLAG»2
/LOOK FOR OVERLAY FLAGsl
/LOOK FOR OVERLAY FLAG»0
/OF TO THIS FIELD
/GET OVERLAY • AGAIN
/NEGATfc

/COMPARE AGAINST OVERLAY FLAG
/IS THE ONE WE WANT ALREADY RESIDENT?
/YES-JUST JUMP TO FUNCTION
/NO-GET NUMBER OF OVERALY DESIRED
/USE AS OFFSET TO BUILD STARTING BLOCK TAD
/POINTS TO PROPER STARING BLOCK »
/GET STARTING BLOCK FOR THIS OVERLAY
/PUT IN DRIVER CALL
/CALL SYSTEM HANDLER
/OVERLAY 3400-4600

/STARTING BLOCK
/I/O ERROR

OF OVERLAY

/CHANGE RESIDENT FLAG
/FUNCTION #
/BUILD A TAD OF THE PROPER DISPATCH JMS
/PUT IN LINE
/GET # OF FUNCTION DESIRED
/BUILD JUMP OFF JUMP TABLE
/PUT JUMP IN LINE
/GO TO DESIRED FUNCTION
/DONE

/# OF CURRENTLY RESIDENT OVERLAY

/0»ARITHMETIC,1"STRING,2»FILE,3»USER
/OVERLAY TABLE-CONTAINS STARTING BLOCK KtJlVSYSUM OVERLAYS
/INITIALIZED BY LOAOER-f- JZ-^ OroU C^^^^-&
3, Jl

01531
01532
01533
01534

1531
1532
1533
1534

ARITHA,
STRNGA,
FILEFA,
USRA,

01535

1736

JMSTAD,

TAD

01536
01537
01540

1421
1434
14Se

TAOTAB,

JMSI4
JMSI5
JMPFIL

/STARTING
/STARTING
/STARTING
/STARTING
I

TADTaB

BLOCK
BLOCK
BLOCK
BLOCK

OF
OF
OF
OF

ARITHMETIC OVERLAY
STRING OVERLAY
FILE OVERLAY
USER FUNCTIONS

/OS/8 BASIC RUNTIME SYSTEM
01541

1557

PAL6-V7

10/54/73

PAGE 34-1

JMSU5R

•
/OS/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

PAGE 25

/CALL FOR RESIDENT FUNCTION

01542
ai543
01544

4517
1345
5323

FUNC3I, JMS I FBITS
TAD JM8I7
JMP FUJUMP

01545

4746

JMSI7,

JMS

/ISOLATE FUNCTION #
/MAKE A JUMP OFF JUMP TABLE
/PUT THE JUMP IN LINE AND EXECUTE IT

/JUMP TABLE FOR RESIDENT FUNCTIONS
01546
01547
01550
01551
01552
01553
01554

2366
2517
0373
0240
1757
1770
0574

ABSVAL
COMMA
CRFUNC
ILODPF
TAB
PNT
USE

1557

*1557

/FUNCTION BITS*
/

/
/
/

3
4
5

/****N,B|****
/THIS TABLE CANNOT BE MOVED! I

01557

4760

/JUMP DISPATCH FOR USER ROUTINES
JM8U8R, JMS I .I

01560
01561
01562
01563
01564
01565
01566
01567
01570
01571
01572
01573
01574
01575
01576
01577

0240
0240
0240
0240
0240
0240
0240
0240
0240
0240
0240
0240
0240
0240
0240
0240

/JUMP TABLE FOR USER FUNCTIONS
ILOOPF
/USER FUNCTION
ILOOPF
/
ILOOPF
/
ILOOPF
/
ILOOPF
/
/
ILOOPF
ILOOPF
/
/
ILOOPF
ILOOPF
/
ILOOPF
/
/
ILOOPF
/
ILOOPF
/
ILOOPF
ILOOPF
/
/
ILOOPF
/
ILOOPF

2
3
4
5

6
7

a
9

10
11

12
13
14
15
16

/OS/B BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

RASE 2b

PAGE

1600

/SPECIAL FUNCTIONS
01*00
01601
01602
01603

^517
1204
3203
1603

SPFUNC,

01604

5605

JMPIb,

JMS I FBITS
TAD JMPIb
OCA ,+1

/ISOLATE FUNCTION BITS
/MAKE A JUMP OFF SPECIAL FUNCTION TABLE
/PUT IN LINE

JMP

,*1

/JUMP TO SPECIAL FUNCTION ROUTINE

/SPECIAL FUNCTION JUMP TABLE
01605
01606
01607
01610
01611
01612
01613
01614

2054
2342
0561
2400
2001
6556
2324
2323

SETF
FRANDM
FSTOPN
SRLIST
CSFN
RDLIST
AMODE
SSMODE

/SET FSWITCH
/RANDOMIZE
/LEAVE INTERPRETER
/STRING READ FROM DATA LIST
/SET FILE # TO TTY
/READ DATA LIST
/SWITCH TO A MODE
/SWITCH TO S MODE

2
3

5
6
7

/OS/8 BASIC RUNTIME SYSTEM

PALe-V7

10/24/72

PAGE

?.J

/SUBKOUTINE UNSFIX-UKSIGIMED INTEGER FIX HOUTINt. FIXS A HOSITIVF 12 HIT
/NUMBER OUT OF FAC MANTISSA ANO LEAVES RESULT IN AC. RESULT IS AN UNSIGNFU,
/12 HIT INTEGER
01615
01616
01617
01620
01621
01622
01623
01624
01625
01626
01627
01630
01631
01632
01633
01634
01635
01636

0000
6301
1046
7104
7200
1043
7510
4516
7004
j04^
1044
7750
S^IS

UNSFlXf
CDF
TAD LORD
CLU RAL
CLA
TAD HORD
SPA
JMS I ERROR
RAL
DC A HORD
TAD tfP
SPA SNA CLA
'

FM,

1044*^
11»TC2>

^MP_J_I^SFIJ<,
TAD EXP
TAD M14

7450
S246
7500 „,

-Ami. 454^WD^

il^A

JMP UNSOUT
SMA
JMS I ERRffp

prrTxp

01640
01641
01642
01643

3044
1045
7110
2044

01645

5615

TAD HORD
CLL RAR
ISZ EXP
JMP UNSLP
JMP I UNSFIX

01646
101647

1045
561S

UNSOUTi TAO HORD
JMP I UNSFIX

UNSLP,

»^2

/LOW MANTISSA
/HI BIT OF LO MANTISSA TO LINK

/HIGH MANTISSA
/IS NUMBER POSITIVE?
/NO-bOOill
/SHIFT THE SIGN flIT OUT ANO THE MANTISSA OVER,
/MAKilifi IgJITSJiF MANTISSA AND
!Y P OINT BEtURt
/GET EXPONENT
/IS X>1?
"^

i^O-FIX

IT TO

/VES-I?ET

EXF^EnT

—

/SET BINARY POINT AT 12
ALWkADY?
/YES
/NO-IS # TOO BIG?

"VUTSNt

J^i^

/NO-STORE COUNT

/HI MANTISSA

/SCALE RIGHT
/DONE?

X Pa>^? /<K^

Aju\4^

-/NO

/YES-RETURN
/ANSWER IN AC"^ J^

^'t£'

/RESTORE
01650
01651
01652
01653
01654
01655
01656
01657
01660
01661
01662
01663

0000
4664
7240
1570
3565
1564
3566
1563
0265
3563
4552
5650

RESTI,

01664
01665

3350
7435

WRBLKL.
K7435,

JMS I WRBLKL
CLA CMA
TAO I WORDS
W0R02
DCA
TAD
WORDl
DCA I WORDS
TAO I WORO0
AND K7435
DCA I WORD0
JMS I NEXREL
JMP I RESTI
WRBLK
7435

/NO-WRITE CURRENT BUFFER
/-I

/STARTING BLOCR-1
/SET CURRENT BLOCK #
/GET BUFFER ADDRESS
/USE IT TO RESET READVWRITE POINTER
/GET HEADER WORD
/CLEAR EOF BIT, BUFFER WRITTEN BIT, AND CHAR
/READ FIRST BLOCK INTO BUFFER
/DONE

H ^T

Cf/k
CI

/OS/e BASIC RUNTIME SYSTEM

PAUe-VT

10/24/72

PAGE 2B

/SUSKOUTINfc STFIIMD-WHEN CALLED, IF LINK«1 STRING ARtiAV TABLE IS
/USED, IF L1NK»0 STRING SYMBOL TABLE IS U5E0, RETURNS WITH AC SET
/TO COF OF OPERAND STRING STRPTR POINTING TO THE FIRST WORO
/IN THE STRING, AND THE MAX LENGTH OF THE STRING IS IN STRMAX. ALSO,
/THE ACTUAL LENGTH OF THE STRING IS IN STRCNT
,

01666
01667
01670
01671
01672
01673
01674
01675
01676
01677
01700
01701
01702
01703
01704
01705
01706
01707
01710
01711
01712
01713
01714
01715
01716
01717
01720
01721
01722
01723
01724
01725
01726
01727
01730
01731
01732
01733
01734
01735
01736
01737
01740
017«1
01742
01743
01744
01745

•

0000
7430
5347
1064
0101
3040
1040
7104
1040
1023
3012
1701
1412

STFIND,

STCOM,
STOF»

3072
1412
3062
1412
3070
7420
5337
1033
3015
1412
4405
5756
1070
7041
7101

7110
7101

3042
1033
4521
1072
3072
7004
1050
7106
7004
1062
3062
1062
3341
17«1
1472
3071
1062
6201

SCOP*

SZL
JMP SAFIND
TAD INSAV
AND K0377
OCA TEMPI
TAD TEMPI
CLL RAL
TAD TEMPI
TAD ST8TRT
DCA XR2
,

TAD I XR2
DCA STRPTR
TAD I XR2
OCA TEMPll
TAD I XR2
OCA STRMAX
SNL
JMP SCDF
TAD SI
DCA BABS
TAD 1 XR2
JMS I NUMCOM
JMP I 8UBERL
TAO STRMAX
CIA
CLL lAC
CLL RAR
CLL lAC
DCA TEMP3
TAD SI
JMS I MPYLNK
TAO STRPTR
DCA STRPTR
RAL
TAD TEMP6
CLL RTL
RAL
TAD TEMPll
DCA TEMPll
TAD TEMPll
OCA .I
•

TAD 1 STRPTR
DCA STRCNT
TAO TEMPll
COF

/IS THIS AN ARRAY INST?
/YES-POINTER IS INTO ARRAY TABLE
/GET INST AGAIN

/ISOLATE OPERAND POINTER
/NO-SAVE OPERAND POINTER
/N

/2N
/3N (3 WORDS/ENTRY)
/ADO BASE ADR OF STRING TABLE
/POINTER TO THIS ENTRY IN STRING TABLE
/DF TO THAT OF SYMBOL TABLES CSET BY START)
/GET POINTER TO STRING

/GET CDF FOR OPERAND STRING
/SAVE
/GET MAX LENGTH OF STRING
/SAVE
/ARRAY ELEMENT?
/NO-SKIP THIS SUBSCRIPT CALCULATION
/GET SUBSCRIPT
/SET UP 12 BIT COMPARE
/GET DIMENSION
/IS S1>0IMENSI0N?
/YES
/NO-GET ELEMENT LENGTH
/MAKE POSITIVE
/ROUND OFF TO NEAREST MULTIPLE OF 2
/ DIVIDE BY TWO (C0UNT/2aW0RD COUNT)
/ADD A WORD FOR HEADER
/# OF WORDS IN EACH ARRAY ELEMENT
/GET SUBSCRIPT
/SUtUEMENT LENGTH (ASSUMES LINK UNCHANGED ON RETJRN)
/ARRAY OFFSET+POINTER TO A(a)
/FINAL STRING POINTER
/CARRY TO BIT 11
/ADD TO ACCUMLATED OVERLAPS FROM MULTIPLY

/PUT OVERLAP # INTO BITS 6-8
/ADD TO CDF IF NECESSARY
/SAVE AGAIN
/GET DF OF STRING
/PUT IN LINE
/DF TO STRING FIELD
/GET STRING LENGTH
/ACTUAL LENGTH OF STRING OPERAND
/CDF TO OPERAND IN AC

#
/OS/8 BASIC RUNTIME SYSTEM

017«6

5666

e)lT«7

1064
0355
7106
1024
7120
5300

SAFIND,

01750
01751
01752
01753
017S4
01755
01756

0037
0623

K0037Lr 0li)37
SUBERL» SU

JMP
TAO
AND
CLL
TAD
STl
JMP

PAL8-V7
STf^INO

ItJSAV

K0037L
RTL
SASTRT

STCOM

10/24/72

PAGE 28-1

/HfcTUHN

/Gtr INST
/ISOLATE OPERAND POINTER
/4N (4 WORDS/ENTRY)
/USE STRING ARRAY TABLE
/SET LINK FOR ARRAY INST
/RETURN TO SUBROUTINE MAINLINE

/TAB FUNCTION

01757
01760
01761
01762
01763
01764
0176S
01766

0000
4514
7041
1S73
7001
7500
5513
5767

TAB *

01767

2547

SLOVELr SLOVER

JMS
CIA
TAD

INTL

WORD10

lAC
SMA
JMP

JMP

I
I

ILOOPL
SLOVEL

/FIX X TO INTEGER
/NEGATE
/COMPARE DESIRED COLUMN TO REAL COLUMN
/BUMP BY 1 (WORD 7«C0L #-1)
/IS X>»CURRENT COLUMN?
/YES-THEN DO NOTHING
/NO-AC CONTAINS # OF SPACES NEEDED TO REACH DESIRED COLUMN

/PNT FUNCTION
/VALUE OF X SENT TO TTY

01770
01771
01772
01773
01774
01775

4512
5513

01776

0177

0000
4514
0376

PNT,

JMS I INTL
AND K0177
TAD K0200
JMS I PUTChL
JMP 1 ILOOPL

1077

K0177,

177

/FIX

/STRIP TO 7 ASCII BITS
/FORCE CHANNEL 8
/PUT IN FILE BUFFER
/DONE

/OS/8 BASIC RUNTIME SYSTFM

PAL6-V7

lld/dli/7S

HAiit

,>^

PAGE

2000

/ROUIINE SFN-HOUTIImE TO RESET POIMTERS IN PAGE ZERO FILE POINTER
/AREA TO REFLECT A CHANGE IN THE CURRENT FILE NUMBER
4514
3044
1044

02000
02001
02002
02003
02001
02005
02006
02007
02010
02011
02012
02013
02014
02015
02016
02017
02020
02021
02022
02023
02024
02025
02026
02027
02030

5513

02031
02032
02033
02034
02035
02036
02037
02040
02041

7774
0162
0163
2035
6677
6714
6731
6746
6763

SFN,
CSFN,

1231

7740
4516
1044
3162
1044
1234
3007
1407
3163
1107
3007
1232
3011
1233
3012
1411
7001
3412
2007
5223

FN,

SFNLP,

JMS I INTL
OCA EXP
TAD EXP
TAD KM4
SMA SZA CLA
JMS I ERROR
TAD EXP
DCA ENTNO
TAD EXP
TAD lOTPTR
OCA TEMP2
TAD I TEMP2
OCA WORD0
TAD M14
DCA TEMP2
TAD WORO0A
DCA XRl
TAD WORDIA
OCA XR2
TAD 1 XRl
lAC
DCA I XR2
ISZ TEMP2
JMF SFNLP
JMP 1 ILOOPL
>

KM4,

-4

WORDIdA,

WORO0-1
WORDl-1
I0TA8

WORDIA,
lOTPTR,
lOTAB,

TTYF

FILEl
FILE2
FILE3
F1LE4

/FIX FAC TO GET FILE *
/IF ENTRY IS HERE, FILE #«0 CTTY)
/GET NUMBER AGAIN
/IS RESULT A LEGAL FILE #7

/NO-ERROR
/YES-GET FILE «
/SAVE AS CURRENT FILE

/USE AS INDEX INTO TAdLE OF MASTER POINTERS
/POINTS TO FIRST WORD OF EACH 1/0 TABLE ENTRY
/GET POINTER TO FIRST WORD OF I/O TABLE ENTRY wE WANT
/PUT IN WORK AREA
/WE HAVE TO CHANGE li POINTERS

/POINTER TO LAST ENTRY MADE

/POINTER TO NEXT ENTRY TO BE BUILT
/EACH ENTRY IS BUILT
/BY ADDING 1 TO THE PREVIOUS ENTRY
/DONE?
/NO

/YES-NEW TABLE IS NOW BUILT

/POINTERS TO THE FIRST WORD IN EACH OF THE FIVE
/I/O TABLE ENTRIES

•

/OS/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

PAGE 30

/FOR-LOOP JUMP ROUTINE
02042
02043
02044
02045
02046
02047
020S0
02051
02052
02053

7300
1045
7450
5653
1260
7710
5653
5652
0421
0413

CLA CLI.
TAD HORD
SNA
JMP I JFAHU
TAD F8NITC
SPA CUA
JMP I JFAILL
JMP I SUCJML
SUCJMUf SUCJMP
JfAILLf JFAIL

02054
02055
02056
02057
02060

7130
0045
3260
5513
0000

/ROUTINE TO INITIALIZE FSWITCH
8ETF,
CLL CML RAR
/400e IN AC
AND HORD
/ISOLATE SIGN OF MANTISSA
OCA FSWITC
/STORE IN FSWITCH
JMP I ILOOPL
/DONE
PSWITC,

JFORf

/GET HIGH MANTISSA
/IS FAC»07
/YES-DO NOT JUMP
/ADD FSWITCH
/ARE SIGN 8IT»FSWITCH?
/NO-DO NOT JUMP
/YES-OO JUMP

/OS/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

PAGE 31

/STRING COMPARE
02061
02062
02063
02064
02065
02066
02067
02070
02071
02072
02073
02074
02075
02076
02077
02100
02101
02102
02103
02104
02105
02106
02107
02110
02111
02112
02113
02114
02115

3346
3063
4537
1032
1071
7650
5513
7100
1032
7650
5326
1071

7650
5327

nil
7101

4527
4557
4366
3042
4343
3007
4531
7141
1007
7640
5327
2071
5332

2032
7410
5513

02116
02117
02120
02121
02122
02123
02124
02125
02126
02127
02130
02131

4531
7100
1106
7650
5316
7020
7270
3045
5513

02132
02133
02134
02135
02136
02137
02140
02141
02142

2032
5305
4343
1106
7640
5326
2071
5334
5513

8C0MP,

LOHC»

SAC40C,

SNEOl,
SNEQ.

SACCHK,
STC40C»

DCA OCDF
DCA MODESk
JMS I FCLR
TAD STRLEN
TAO 8TRCNT
SNA CLA
JMP 1 lUOOPL
CLl
TAO STRLEN
SNA CUA
JMP SNEO-l
TAD 5TRCNT
SNA CtA
JMP 8NEQ
TAO SACPTR
CLU lAC
JMS I LOHINL
JMS I LOHRST
JMS PTRBMP
OCA SWITCC
JMS UDHPST
DCA TEMP2
JMS I LDH
CIA CLL
TAO TEMP2
SZA CLA
JMP SNEQ
ISZ 8TRCNT
JMP SACCHK
ISZ STRLEN
8KP
JMP I ILOOPL
JMS I LOH
CLL
TAD KM40
SNA CLA
JMP 8AC40C
CML
CLA CMA CML fti
OCA HORD
JMP I ILOOPL
ISZ STRLEN
JMP LDHC
JMS LDMP8T
TAD KM40
SZA CLA
JMP SNEQl
ISZ STRCNT

JMP STC40C
JMP I ILOOPL

/OF TO OPERNAO IN LINE
/RETURN IN AMOOE
/INITIALIZE FAC TO
/LENGTH OF STRING IN SAC
/LENGTH OF OPERAND
/ARE THEY BOTH ZERO?
/YES-THEY ARE EOUALjSO RETURN WITH FAC»0

/NO-LENGTH OF SAC
/IS IT ZERO?
/YES-THEN THEY ARE NOT EQUAL
/LENGTH OF OPERAND
/IS IT EMPTY
/YES-THEY ARE NOT EQUAL
/POINTER INTO SAC
/INIT LOH
/TO LOAD FROM SAC
/ISZ STRPTR OVER COUNT WORD
/INIT LOHPST
/HALF LOAD
/AND SAVE
/GET CHAR FROM SAC
/NEGATE IT
/AND COMPARE TO OPERAND CHARACTER
/ARE THEY EQUAL?
/NO-RETURN WITH FAC SIGN SET APPROPRIATELY
/MORE OPERAND CHARS?
/YES^SEE IF SAC EMPTY
/MORE CHARS IN SAC?
/YES
/STRINGS ARE EQUAL-RETURN WITH
/GET CHAR FROM SAC

FAC

/COMPARE TO SPACE
A SPACE?
/YES-CHECK NEXT CHAR
/IS IT

/SET SIGN BIT OF MANTISSA TO REFLECT RESULTS OF COMPARE
/SAC EMPTY?
/NO«COMPAHE NEXT TWO CHARS
/YES-GET CHAR FROM OPERAND
/COMPARE TO SPACE
/IS IT A SPACE?
/NO-STRINGS AREN'T EQUAL
/YES-MORE CHARS?
/YES-CHECK THEM
/NO-STRINGS ARE EQUAL-RETURN WITH FACa0

#
/08/6 BASIC RUNTIME SYSTEM

/ROUTINE TO GRAB

02U3
tszian

02145
02146
02147
02150
02151
02152
02153
02154
02155
02156
02157
02160
02161
02162
02163
02164
02165

0000
1042
7110
2146
1472
6201
7420
4544
0075
3007
1042
7110
7430
4366
7620
7121
3042
1007
5743

LOHPSTf

0042

SWITCCBTEMP3

P4L8-V7

CHAR AT

TAD SWITCC
CLL RAR
OCDFi

TAD I STRPTR
CDF
5NL
JM8 I BSWL
AND K00T7
OCA TEMP2
TAD SWITCC
CLU RAR
SZL
JMS PTRBMP
SNL CUA
CtL CML lAC
OCA SWITCC
TAD TEMP2
JMP I LDHPST

10/24/72

PASE 31-1

TIME FROM OPERAND STRING

/GET HAUF SWITCH
/PUT IN LINK
/DF TO OPERAND
/GET TWO CHARS FROM STRING

/RIGHT HALF7
/NO-SWAP BYTES
/ISOLATE RIGHT CHAR
/SAVE

/HALFWORD SITCH TO LINK
/RIGHT HALF?
/BUMP STRING POINTER
/FLIP HALFWORD SWITCH
/CLEAVE LINKH)
/GET CHAR AGAIN

/SUBROUTINE TO BUMP STRPTR AND WATCH FOR FIELD OVERLAP
02166
02167
02170
02171
02172
02173
02174

0000
2072
5766
1346
1073
3346
5766

PTRBMP,
182 STRPTR
JMP I PTRBMP
TAD OCDF
TAD K0010
OCA OCDF
JMP 1 PTRBMP

/NO-SKIPiRETURN
/SKIP MEANS WE MUST INCREMENT FIELD

/FLOATING POINT CONSTANT USED BY ASCOUT
02175
02176
02177

7755
2061
5734

AP0001,

7755
2061
5734

/, 000001

/OS/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

PAGE 32

PAGE

ases)

/STRING CONCATENATE

022(91

02202
02203
02200
02205
02206
02207
02210
02211
02212
02213
02214
0221S
02216
02217
02220
02221
02222
02223
02224
02225
02226
02227
02230
02231
02232
02233
02234
02235
02236
02237

3637
1071
7650
5513
1072
7101
4527
1032
7450
5216
7130
7440
7041
7420
7001

DCA I LOHCOF
TAD STRCNT
SNA CLA
JMP I ILOOPL
TAD 8TRPTR
CLL lAC
JMS I UDHINL
TAD STRIEN
SNA
JMP SACEM
CLL CML RAR
SZA
CIA
8NL
lAC
TAD SACPTR
JMS I STMINL
JMS I STHRST
JMS I LDM
JMS I STM
CLA CMA
TAD STRLEN
OCA STRLEN
TAD STRLEN
TAD K110
SPA CLA
JMS I ERROR
ISZ STRCNT
JMP SEGCOM
JMP I ILOOPL

SCONl,

SACEM,

nil
4526
4560
4531
4530
7240
1032
3032
1032
1236
7710
4516
2071
5222

5513
0110
2647

SEGCOMi

SC,

KU0f

LDHCOF,

LOMOF

/OF FOR LDH

/OPERAND»0?
/YES-THEN THERE IS NOTHING TO DO
/AOOR OF OPERAND
/ADOR OF OPERAND 1ST CHARACTER
/INITIALIZE LDH TO PULL FROM OPERAND
/« OF CHARS IN AC
/SAC EMPTY?
/YE8-C0NCATE ESSENTIALLY IS A LOAD
/DIVIDE BY TWO
/POSITIVE WORD COUNT
/USE AS DISPLACEMENT OFF START OF SAC
/INITIALZE STH TO SAC*STRLEN/2
/SAC IS IN FLO
/GET CHAR FROM OPERAND
/PUT CHAR IN SAC
/-I

/"BUMP" STRING COUNT FOR SAC
/IS SAC FULL YET?

/YES-TRUNCATION ERROR
/NO-MORE CHARS LEFT IN OPERAND?
/YES-GO GETTEM
/NO"OONE

/ROUTINE TO SIMULATE HARDWARE BYTE SHAP

^>
,

02240
02241
02242
02243
02244
2245

0000
7112
7012
7012
3311

1I2246'

0075

02247

1311

LU
7010
5640

BSWPi

CLL RTR
RTR
RTR
DCA TEMP12
-TAJL TEMP12
AND K0077
TAD TEMP12
RAR
JMP I BSMP

/LEFT HALF NOW IN RIGHT HALF
/SAVE

/ISOLATE LEFT HALF
/DO A PARTIAL SHIFT OF BITS
/MOVE INTO POSITION

6. 11

LEFT ONE

•

/OS/8 BASIC RUNTIME SYSTEM

02252
02253
02254
02255
02256
02257

1563
7112
7120
7006
3563
5513

PAL8-Vt

/ROUTINE TO SET EOF BIT
E0F8ET, TAO I WORO0
CLL RTR
CLL CML
RTL
DCA I WORD0
JMP I ILOOPL

10/24/72

PAGE 33

IN I/O ENTHV
/HEADER
/EOF BIT TO LINK
/SET LINK
/PUT LINK IN EOF BIT
/STORE IM I/O TABLE ENTRY
/EOF BIT 8ET-AB0RT TO ILOOP

/SUBROUTINE MPY- 12 BIT BY 12 BIT MULTIPLY. MULTIPLIES THE CONTENTS
/OF TEMP3 BY THE CONTENTS OF THE AC, LEAVING THE HI RESULT IN TEMP6
/AND THE LOW RESULT IN THE AC
02264lS>

0000

MPY,

02261^ 30<rtr*'
0226/r 3050
0226^^ ll»?r^2-

OCA
DCA
TAO
0226|r'> 3047
OCA
022*jr5fl042 MP12LP» TAD
022>«/ 7010
RAR
0226^2^042
OCA
TAD
_W4Wl:il050
B22*r«f 7«20
SNU
JMP
ezivtt 7100
CLL
02a«'? i0*+iy
TAD
022>S2W0t0
RAR
022««« 3050
OCA
iZiTTi' 2047
ISZ
02S««» 526<^
JMP
9i*M*t IB AS
TAD
02»«r 70 10
RAR
ZZ*V5t 566«>5
JMP

2260

TEMP10
TEMP6
M14
TEMPS
TEMP3
TEMP3
TEMP6
,*3

/12 BIT MULTIPLY USED TO FIND (DIM1*1)*S2

TEMP10
TCMP6
TEMPS
MP12LP
TEMP3
I

MPY

/LORD OF (0IMl*l)*S2 IN AC
/MDRO OF (DIMl*n*S2 IN TEMP6
/RETURN

TEMP13»MPY
/ROUTINE TO CHECK IF FILE IDLE

02304
02305
02306
02307
02310

0000

IDLE,

1567

7650
4516
5704

FI,

TAO I W0RD4
SNA CLA
JMS I ERROR
JMP I IDLE

/GET HANDLER ENTRY
/IS IT EMPTY?
/YES»USER TRIED TO 00 SOMETHING TO AN UNOPEN FILE

/NO-RETURN

/OS/8 BASIC RUNTIME SYSTEM

P4I.6-V7

lB/aa/72

PAGE 34

/ROgTINE TO READ NEXT WORO IN DATALIST INTO AC
02311
02312
02313
02314
02315
02316
02317
02320
02321
02322

0000
1016
3015
1027
4405
4S16
2317
1416
6201
5711

TEMP12*
DLREADr

o*»

DLCDF,

DLPTR

/DATA LIST POINTER
/SET UP 12 BIT COMPARE
/AODR OF END OF DATA UIST
/POINTER AT END OF LIST?
/YES
/NO-DF TO DATA LIST
/FETCH WORD FROM DATA LIST

DLREAO

/DONE

TAD DLPTR
OCA BABS
TAD DLSTOP
JMS I NUMCOM
JMS I ERROR
•

TAO
CDF
JMP

/ROUTINES TO SWITCH
02323
02324
02325

7001
3063
5513

SSMOUE, lAC
AMODE,
OCA MODESW
JMP I ILOOPL

/SET SWITCH TO SMODE
/SET SWITCH TO A MODE
/DONE

/SUBROUTINE PUSH6
/ROUTINE TO PUSH AC ON TOP OF GOSUB STACK
02326
02327
02330
02331
02332
02333
02334
02335
02336
02337
02340

0000
3040
2067
1067
7041

02341

0476

PUS Mb,

1341

7710
4S16
1040
3467
5726

6S,

OCA TEMPI
ISZ GSP
TAD GSP
CIA
TAD KSTCKT
SPA CLA
JMS I ERROR
TAO TEMPI
OCA I GSP
JMP I PUSHG

6STCKT> 6SSTQP

/SAVE ELEMENT TO BE PUSHED
/BUMP GOSUB STACK POINTER
/GET STACK POINTER
/NEGATE
/ADD ADR OF TOP OF STACK
/STACK OVERFLOW?
/VES-TOO MANY NESTED GOSUBS
/NO-GET ELEMENT TO BE STACKED
/STACK IT
/RETURN
/ADOR OF TOP OF STACK

/08/8 BASIC RUNTIME SYSTEM

PAL6-V7

10/84/72

PAGE 35

/ROUTINE TO RANDOMIZE RND{X)
02342
02343
02344
02345
02346

1017
7124
3346
5513
2713

FRANOM, TAD SPINNR
CLL CML RAL
OCA RSEED
JMP I ILOOPL
RSEED,
2713

/USE SPINNR FOR NEW SEtO FOR RND(X)
/MAKE SURE SEED IS ODD

/DONE

/SUBROUTINE Cn,l¥
02347
02350
02351
02352
02353
02354
02355
02356

0000
1054
4512

CRLFH*

1356

4512
3573
5747
0212

K2121.I

TAD K215
JMS I PUTCHL
TAD K212U
JMS I PUTCHL
OCA I WORD10
JMP I CRLFR
212

/PRINT A CR,AND LF
/ZERO COLUMN POINTER

/SUBROUTINE FOTYPE
/RETURNS TO CALL*1 IF FILE FIXED LENGTH, CALL*2
02357
02360
02361
02362
02363
02364
02365

0000
1563
0365
7640
2357
5757
0004

FOTYPE,
TAD I WOROe
AND K0004
SZA CLA
ISZ FOTYPE
JMP I FOTYPE

K0004,

/GET HEADER
/ISOLATE TYPE BIT
/IS IT FIXED LENGTH?
/NO-BUMP RETURN
/RETURN

/SUBROUTINE TO REPLACE FAC WITH ABS(FAC)
02366
02367
02370
02371
02372

0000
1045
7710
4540
5766

AB8VAL,
TAD HORD
SPA CLA
JMS I FNEGL
JMP I A88VAL

/IS FAC«0?

/YES-NEGATE IT
/RETURN

/ROUTINE TO RESTORE THE FAC FROM FP TEMP
02373
02374
02375
02376

0000
4534
1152
5773

FACRESi
JMS I FGETL
INTERB
JMP I FACRES

/GET FAC

/RETURN

VARIABLE

/08/8 BASIC RUNTIME SYSTEM

2400

PAL8-V7

10/24/72

PAGE 36

PAGE

/STRING DATA WIST READ
02400
02401
02402
02403
02404
02405
02406
02407
02410
02411
02412
02413
02414
02415

4616
3032
1032
74S0
5513
7130
3071
3012
4616
3412
2071
S211
5513

SRLISTf JMS I DLREAL
DCA 8TRLEN
TAD STRLEN
SNA
jMP I aoopu
CUU CML RAR
DCA 8TRCNT
TAD SACPTR
DCA XR2
SRLO0P> JMS I DLREAL
DCA I yR2
ISZ STRCNT
JMP SRLOOP
JMP I ILOOPL

02416

2311

DLREALi DLREAD

nil

/READ COUNT FROM DATA LIST
/SAVE AS NEW COUNT FOR FAC
/COUNT FOR SAC STRING
/NULL STRING?
/YES-NO OPERATION TO PERFORM
/AND DIVIDE BY TWO FOR WORD COUNT
/SAVE AS MOVE COUNTER

/POINTS INTO SAC
/REAO 2 CHARS FROM DATA LIST
/AND PUT THEM IN SAC
/BUMP STRING COUNT
/NEXT 2
/DONE

#
/08/8 BASIC RUNTIME SYSTEM

P*L8-V7

10/8U/72

PAGE 37

/STRING READ ROUTINE
02417
02420
02421
02422
02423
02424
02425
02426
02427
02430
02431
02432
02433
02434
02435
02436
02437
02440
02441
02442
02443

02444
02445
02446
02447
02450
02451
02452

3657
3071
7101
1072
4528
4942
1053
1055
7450
5247
1256
7650
5224

FTCOM,

1071
1070

7700
5244
1053
4530
2071
5224
4516
1054
3053

ST,

'4tlN,

02454
02455

3251
2451
1071
7041
3472
5513

02456
02457

0003
2603

02453'

8REA0,

OCA I 8THC0U
OCA STRCNT
CLL I*C
TAD 8TRPTR
JMS I STHINL
JMS I GETCHL
TAD CHAR
TAD M215
SNA
JMP SRFIN
TAO MLF
SNA CLA
JMP FTCOM
TAD STRCNT
TAO STRMAX
SMA CLA
JMP ST
TAO CHAR
JMS I STH
ISZ STRCNT
JMP FTCOM

/OF FOR 5TH
/0 STRING COUNT
/LEAVE FIELD AS IS
/ADDR OF OPERAND
/INIT STORE HALF TO STORE IN OPERAND
/GET CHAR FROM FILE OR TTV

JMS I ERROR
TAD K21S
DCA CHAR

/YES-TRUNCATION ERROR
/SET CHAR TO 215
/SO TTY BUFFER CLEARED BEFORE NEXT INPUT

TAD ^ ST M CPL
DCA .I

/GET OF OF STRING
/PUT IN LINE
/OF TO THAT OF STRING
/STRING DONE-GET LENGTH
/NEGATE
/STORE A3 COUNT FOR STRING
/DONE

TAO STRCNT
CIA
DCA I 8TRPTR
JMP I ILOOPL
MLF>
3
STHCOLf 8TH0F

/IS IT CR7

/YES-STRING IS FINISHED
/IS IT LF7
/YES-IGNORE IT
/NO-GET LENGTH OF STRING SO FAR
/COMPARE AGAINST UPPER LIMIT OF DESTINATION
/ANY MORE ROOM?
/NO-TRUNATION ERROR
/YES
/STORE CHAR IN STRING
/BUMP COUNT
/GET NEXT CHAR

/OS/8 BASIC RUNTIME SYSTEM

P*L6-V7

10/54/72

PAGt 38

/STRING WRITE ROUTINE

/CLEAR COMMA SWITCH
/* OF CHARS IN STRING
/NULL STRING?
/YES"N0TMING TO WRITE
/MAKE A POSITIVE NUMBER
/ADD TO COLUMN NUMBER
/COMPARE AGAINST END OF LINE
/WILL STRING FIT ON LINE?
/NO-ISSUE A CRLF FIRST

nil

8WRITE, OCA COMMAS
TAD STRLEN
SNA
JMP I IIOOPU
CIA
TAD I MORD10
TAD MM110
SMA SZA CLA
JMS I CRLF
TAD 8ACPTR

7101
4527
4557
1032
3071
4531
3040
1040
1106
7710
1076
1077
1040
4S12
2071
5277
5513

CU lAC
JMS I LDMINL.
JMS I LDMR8T
TAD STRLEN
DCA STRCNT
JMS I UOH
DCA TEMPI
TAD TEMPI
TAD KM40
SPA CLA
TAD K0i00
TAD K0200
TAD TEMPI
JMS I PUTCHL
ISZ STRCNT
JMP SWCLP
JMP I ILOOPL

/AC POINTS TO LEFT SAC CHAR 1
/INITIALIZE LOAD HALF ROUTINE
/LOAD FROM SAC IN FLO
/# OF CHARS
/USE AS COUNTER
/LOAD HALF CHAR FROM STRING

3357
1032
7450
5513
7041
1573
1313
7740
4553

02460
02461
02462
02463
02464
02465
02466
02467
02470
02471
02472
02473
02474
02475
02476
02477
02500
02501
02502
02503
02504
02505
02506
02507
02510
02511
02512
02513

7670

SWCLPi

MMli0,

-110

/SAVE

/SUBTRACT 40
/IS CHAR <40?
/NO-MAKE IT 300 SERIES
/MAKE IT 200 SERIES
/PUT CHAR IN FILE OR ON TTY
/DONE?
/NO>NEXT CHAR
/YES

70^

/08/8 BASIC RUNTIME SYSTEM

02514
02515
02516

0024

PALe-V7

10/24/72

PAGE

3<J

/FLOATING POINT CONSTANT USED BY ASCOUT FOH FORMAT CONVewSION
/999999
24
A999i

3641
0770

/COMMA FUNCTION (KNOWN ONLY TO COMPILER FOR FORMATTING PRINT
/STATEMENTS)
COMMA,

02517
02520
02521
02S22
02523
02524
02525
02526
02527
02530
02531
02532
02533
02534
02535
02536
02537
02540
02541
02542
02543
02544
02545
02546

0000
4550
5513
1357
7650
5327
1365
4512
7001
3357
1366
3007
1360
3014
1573
1414
7510
5347
7650
5513
2007
S33S
4553
5513

02547
02550
02551
02SS2
02553
02554
02555
02556

3777' SLOVER* DCA TEMP19
4550
JMS I FTYPL
S513
JMP I ILOOPL
1365
TAD C240
4512
JMS I PUTCML
2777'
ISZ TEMP19
5350
JMP SLOVERtl
JMP I ILOOPL
5513

02557
02560
02561
02562
02563
02564
02565
02566

JMS 1 FTYPL
JMP I ILOOPL
TAO COMMAS
SNA CLA
JMP ,+3
TAD C240
JMS I PUTCHL
lAC
OCA COMMAS
TAO M4
OCA TEMP2
TAD POSPTA
DCA XR4
COMLOP» TAD I WORD10
TAO I )(R4
SPA
JMP SLOVER
SNA CLA
JMP I ILOOPL
ISZ TEMP2
JMP COMLOP
JMS I CRLF
JMP I ILOOPL

3371

TEMP19* FACSAV

0001
2560
7762
7744
7726
7710
0240
7774

COMMAS* 1
POSPTA, P08TP-1
-16
POSTP,
-34
-52
-70
C240f
240
M4,

/IS FILE NUMERIC?

/YES-COMMA FUNCTION IS A NOP
/GET COMMA SWITCH
/WAS LAST THING PRINTED A COMMA?
/NO-WE ARE OK
/YES-PRINT A SPACE BEFORE DOING COMMA CALCULATION
/SET COMMA SWITCH

/ONLY

COLUMNS TO CHECK

/POINTS TO POSITION #'S OF COLUMNS
/GET CURRENT PRINT HEAD POSITION
/COMPARE AGAINST COLUMN MARKER
/PAST THIS ONE?
/YES-SLIOE PRINT HEAD TO START OF NEXT
/EXACTLY ON A COLUMN?
/YES-OONE
/ALL MARKERS CHECKED YET?
/NO-DO NEXT
/YES-NEXT COLUMN IS
/DONE
/-» OF COLUMNS TO NEXT MARKER
/IS FILE NUMERIC?
/YES-THIS IS A NOP
/GET SPACE

/PRINT IT
/THERE YET?
/NO-TYPE ANOTHER SPACE
/YES-DONE

/SET TO

IF LAST PRINT WAS A COMMA MOVE

/COLUMN MARKERS
/MINUS TTY COLUMN NUMBER THAT MARKS BEGINNING
/OF ONE OF THE BASIC COLUMNS

•4

/RESTORE FOR IN-CORE DATA LIST

/OS/8 BASIC RUNTIME SYSTEM

02567
02570
02571

1030
3016
5513

RESDLSr

TAD DLSTBT
OCA OLPTH
JMP I ILOOPL

PAL8-V7

10/24/72

PAGE 39-1

/ADDRESS OF START OF iNCORt DATA LIST
/USE IT TO RESET DATA LIST POINTER
/TMATS ALLl

/RESTORE ROUTINE
02572
02573
02574
0257S
02S76

1162
7650
5367
4777
5513

RESTOH»

1650

RE8TIL» RESTI

02S77

TAD ENTNO
SNA CLA
JMP RE80LS
JMS I RESTIL
JMP I ILOOPL

/GET CURRENT FILE #
/IS IT 07
/VES.RESTORE DATA LIST

/NO-RESTORE
/DONE

FILE

/OS/8 BASIC SUNTIME SYSTEM

PALfl-vT

10/ea/72

PAGE 4a

PAGE

2b00

/SUBHOUTINE STH-SIMULATES AN AUTO-INOEX ING STOKE HALF INSTKUCTION.
/STOKES THE RIGHT HAUF OF THE AC IN THE HALFwOHD FOLLOWING THE
/LAST HALPWORO STORED. TO CHANGE THE STORAGE ADDRESS»CALL STHINT
02620 0800
08601 , 0075

STHL>

_^^

0260a^Jfc3*W- ?)»*^
02603 2603 STHDF,
1244
02604
02605 7640

02606- 5233
i2607V--«W« r^^ -^
§2610 4544
^^
.

026iufr--»««r-**^«*
1645
02612
0075
1 02613

0261tah4«**
02615 3645
1244
02616

l4'2632

7650
5227
2245
5230
1203
1073
3203
7410
7040
3244
6201
5600

02633
02634
02635

1645
0104
5214

02617
02620
02621
02622
02623
02624
02625
02626
02627
02630
026 31

COM(

JSLi

RIGHTS,

/STRIP TO b BITS
/SAVE
/UF TO STORE FIELD
,
/GET SixITCH FOR HALF TO STQi^E IN
T40 STHShT
/WHICH HALF?
SZA CLA
/STORE IN RIGHT HALF
JMP RIGHTS
/STORE IN LEFT HALF
TAD f€+rPrr
/SWAP BYTES
JMS I BSWL
/SAVE AGAIN
OCA MH P ll
/GET CURRENT VALUES
T«D I SThR /PRESERVE RIGHT HALF
AND K0077
/COMBINE WITH NEW LEFT HALF
TAO 4^M P 11
/AND STORE IT
DC'A I STHR
/GET HALF SWITCH
TAQ SThSWT
/WAS THIS RIGHT HALF?
SNA CLA
JMP JSL -Ue^T/NO-JUST FLIP SWITCH
ISZ STHR Alft^ /BUMP POINTER
'
JMP JSL 1
/'POINTER IS BUMPEO-SET HALFSWITCH TO LEFT
/SKIP MEANS WE HAVE TO 8UMP STH CDF
TAD STHDF
TAD K0010
DCA STHDF
5RP
/SET HALF SWITCH TO
CMA
/FLIP HALF SWITCH
DCA STHSWT
CDF
/DONE
JMP I STHL
AND K0077
OCA T CMPH

TAD I STHR
AND K7700
JMP SLRCOM

/GET LEFT HALF
/CLEAR ANY GARBAGE THAT MIGHT BE IN RIGHT HALF
/FLIP SWITCH AND RETURN

/SUNROUTINE STHINI-USEU TO SET THE HALFWORD ADDRESS STORED INTO BY STH.
FOR LEFT HALF.l FOR RIGHT HALF.
/ON CALL, WORD AOOR IS IN AC, LINK SET TO
02636
02637
02640
02641
02642
02643

0000
3245
7630
7040
3244
5636

STHINI,

02644
02645

0000
0000

STHSWT,
STHR,

OCA STHR
SZL CLA
CMA
OCA STHSWT
JMP I STHINI

/STORE ADDRESS
/WHICH HALF TO START
/RIGHT-SET STHSWT
/LEFT-CLEAR STHSwT
/DONE
/STORE HALFWORD SWITCH
/HALFWORD POINTER FOR STH

-4

PAL8-V7

/OS/e BASIC RUNTIME SYSTEM

i?i/aa/7a

page hi

/SUBKOUTINE LDM-SIMULATES AN AUTO-INDEXING LOAD HALF INSTRUCTION, wHfcN
/CALLED, IT LOADS THE NEXT HALFWORD INTO AC, TO CHANGE ADDRESS FROM
/WHICH IT LOADS, CALL LOHINI. OF MUST BE SET TO OF OF SOURCE ON CALL.
aZhUb
02647
02650
026S1
02652
02653
02654
02655
02656
02657
02660
02661
02662
02663
02664

0000
2647
1304
7640
5265
1705
4544
0075
3062
1304
7040
3304
1062
6201
5646

LDHLf
LOHOF,

02665
02666
02667
02670
02671

1705
2305
3255
3236
1247
1073
3247
1236
5255

RIGHTLi TAO

,._,0267a

^7*73
02674
02675

TAD LOHSWT
SZA CLA
JMP RIGHTL
TAD I UOHR
JMS I BSWL
LRSCOM, AND K0077
DCA TEMPI 1
TAD LOHSWT
CMA
OCA LOHSWT
TAO TEMPI 1
CDF
JMP I LDHL
I

LOHR

ISZ LOHR
JMP LRSCOM
DCA TEMP21
TAD LDHDF
TAD K0010
OCA LDHDF
TAD TEMP21
JMP LRSCOM

/OF FROM WHICH TO GET WORDS
/WHICH HALF TO LOAD?

/RIGHT HALF
/LEFT HALF-GET BOTH
/SWAP BYTES
/ISOLATE CHAR
/SAVE
/FLIP LOHSWT

/RETURN
/GET WORD
/BUMP POINTER TO NEXT WORD
/NO SKIP SO JUST CONTINUE
/SKIP MEANS WE HAVE TO BUMP LDH OF

/GET WORD AGAIN
/FLIP SWITCH AND RETURN

/SUBROUTINE LDH;NI-USED TO SET HALFWORD ADDRESS LDH DRAWS FROM. ON CALL,
/AC»FUUL WORD ADDRESS, AND LINK«0 FQR LEFT HALF, I FOR RIGHT.
02676
02677
02700
02701
02702
02703

0000
3305
7630
7040
3304
5676

LDHINI,

02704
02705

0000
0000

UDHSWT,
LOHR,

2636

TEMP2lsS.IJii*ti

DCA LOHR
SZL CLA
CMA
OCA LOHSWT
JMP I LDHINI

/SAVE LDH POINTER
/WHICH HALF?
/RIGHT-LDHSWT»7r7T
/LEFT-LDHSWT«0
/LOAD HALFWORD SWITCH
/HALFWORD PO INTER. EOS- tJW*—-

/OS/8 BASIC RUNTIME SVSTEM

PAL6-V7

10/24/72

PA(iE

/SU8K0UTINE BUFCHK-ChECKS THE POSITION OF THE BUFFtH POINTED FOP
/THE DEVICE WHOSE I/O TABLE ENTRY IS IN WORKING AREA, RETURNS TO CALL*1
/IF THE POINTER IS AT THE END AND CHAR NUMBER IS 1 (LAST
/AVAILABLE CHAR 3 HAS BEEN USeD),CALL+a IF THE POINTER IS AT THE
/END BUT THE CHAR • IS NOT 1 (THERE IS I CHAR 3 LEFT), CALL+3
/IF THERE IS 1 WORD LEFT IN BUFFER CALL*4 IF MORE THAN 1 LEFT.
,

02706
02707
02710
02711
02712
02713

0000
1162
7650
1327
1102
156a

027ltt

7041
1566
7450

BUFCHK,
TAD ENTNO
SNA CLA
TAD MK61
TAD K0400
TAD I WORDl
CIA
TAD I W0R03
SNA
JMP EBC
ISZ BUFCHK
ISZ BUFCHK

02715
02716
02717
02720
02T21
02722
02723
02724
02T25
02726

5330
2306
2306
7001
7650
5706
2306
5706

02727

7461

mbi,

7461

02730
02731
02732
02733
02734

4551
5706
7000
2306
5706

EBC,

JMS I CHHNOL
JMP I BUFCHK
NOP
ISZ BUFCHK
JMP I BUFCHK

lAC
SNA CLA

JMP I BUFCHK
ISZ BUFCHK
JMP I BUFCHK

/BET DEVICE «
/IS IT TTY?
/YES-CHECK FOR A BUFFER 60 WORDS LONG
/NO-CHECK FOR A BUFFER 400 WORDS LONG
/ADD LENGTH TO BUFFER ADDRESS
/-ADDR OF END OF BUFFER
/CHECK AGAINST CURRENT POINTER
/IS POINTER AT END OF BUFFER?
/AT END-CHECK THE CHAR #

/NO-BUMP RETURN
/WAS POINTER AT LAST WORD?
/YES-RETURN TO CALL*3
/NO

/RETURN TO CALL+4

/GET CHAR #
/IT WAS l-RETURN TO CALL*1
/IT WAS 3-RETURN TO CALL+2
/IT WAS 2-RETURN TO CALL+2

/OS/8 BASIC RUNTIME SYSTEM

PAL8-V7

l0/2<t/7a

PAGt Hi

/SUBROUTINE PACKCH-PACKS ASCII CHARS, 3 FOR 2, INTO BUFFER FOR THE
/DEVXCfc IN KORK AREA, CALL WITH THE CHARACIER IN THE AC
PACKLH,

02743
02744
02745

0000
3040
4551
7410
5346
1040
4525
4765
5735

02746
02747
02750
02751
02752
02753
02754
02755
02756
02757
02760
02761
02762
02763
02764

7344
1566
3566
1040
7106
7006
3040
1040
4366
1040
7106
7006
4366
4546
5735

CHARiP,

02765

5573

CNOBMK, CNOBML

02766
02767
02770
02771
02772
02773
02774
02775

0000
0103
3007
4776
0101
1007
4525
5766

COMBNE,

02776

3035

BCGETLf 8CGET

02735
02736
02737
027«0
02741
027tt2

OCA TEMPI
JM8 1 CHRNOL
SKP
JMP CHAR3P
TAO TEMPI
JMS I WRITFW
JMS I CNOBMK
JMP I PACKCH
CLA
TAD
OCA
TAD
CLL
RTL
DCA
TAO
JMS
TAD
CLL
RTL
JMS
JMS
JMP

AND
DCA
JMS
AND
TAD
JMS
JMP

CLL CMA
M0RD3
I
W0R03
I
TEMPI
RTL

TEMPI
TEMPI
COMBNE
TEMPI
RTL

COMBNE
I CNOCLL
I PACKCH

K7400
TEMP2
BC6ETL
I
K0377
TEMP2
I WRITFW
I COMBNE

/SAVE
/DETERMINE CHARACTER NUMBER
/I

/3
OR 2-GET CHAR AGAIN
/STORE IN BUFFER
/BUMP CHARACTER NUMBER
/DONE
/I

/BACK BUFFER POINTER UP TO POINT TO CHAR

/CHAR

/SLIDE LEFT HALF INTO BITS 0-3
/SAVE

/ISOLATE LEFT HALF, COMBINE WITH CHARI,aND PUT IN FILE
/CHAR AGAIN
/SLlOt RIGHT HALF INTO BITS 0-3
/ISOLATE RIGHT HALF, COMBINE WITH CHAR 2, AND PUT IN FILE
/CLEAR THE CHARACTER NUMBER (RESET IT TO 1)
/DONE

/ISOLATE HALF IN QUESTION
/SAVE
/GET A WORD FROM FILE BUFFER IN FIELD
/FLUSH ANY SLUSH IN BITS 0-3
/COMBINE
/PUT IN BUFFER
/RETURN

/OS/8 BASIC RUNTIME SYSTEM
3000

PAUB-VT

10/24/72

PAGE 44

PAGE

/ROUTINE TO READ WORD FROM FILE BUFFER AND BUMP POINTER
03000
03001
03002
03003
03004
03005
03006
03007
03010
03011
03012
03013
03014
03015

0000
4bl5
7410
4516
1563
7112
7620
5212
4516
5513
4235
2566
5600
2357

REAOFLi

VR,

RE,

FTYLi

JMS I FTYL
SKP
JMS I ERROR
TAO I WORD0
CLL RTR
SNL CLA
JMP .«3
JMS I ERROR
JMP 1 ILOOPL
JMS BCGET
ISZ I W0R03
JMP I READFL
FOTYPE

/IS FIlE VARIABLE LENGTH

/YES-IT IS AN ERROR TO TRY ANO R£AD IT
/CHECK IF MORE THERE
/EOF BIT TO LINK
/EOF?
/NO-CONTINUE
/YES-ATTEMPT TO READ BEYOND EOF
/NOT FATAL-RETURN TO I LOOP
/GET WORD FROM FILE BUFFER
/BUMP POINTER
/DONE

/ROUTINE TO RESET CH/
0301b
03017
03020
03021
03922

0000
1563
0105
3563
5616

CNOCLR,
TAD I WORO0
AND K7477
OCA I WORO0
JMP I CNOCLR

/SET CHAR BITS TO

/RETURN

/ROUTINE TO WRITE AC
03023
03024
03025
0302b
03027
03030
03031
03032
03033

0000
4634
2566
1563
7112
7620
5623
4516
5513

03034

0747

WRtTFLi

WE,

JMS 1 BCPUTL
ISZ I W0R03
TAD I WORO0
CLL RTR
SNL CLA
JMP I WRITFL
JMS I ERROR
JMP I ILOOPL

/STORE AC IN FILE BUFFER
/BUMP POINTER
/GET FILE HEADER WORD
/EOF BIT TO LINK
/WAS FILE PAST END?
/NO-RETURN
/YES-ATTEMPT TO WRITE PAST END OF FILE
/NON-FATAL RETURN TO ILOOP

BCPUTL, BCPUT

/ROUTINE TO GET ONE WORD FROM FILE BUFFER IN FIELD
03035
03036
03037
03040
03041
03042
03043
03044
03045
03046

0000
4523
1566
3223
1162
7640
6211
1623
6201
5635

BCGET,
JMS
TAD
DCA
TAD
SZA
COF
TAO
CDF
JMP

FIDLE
W0RD3
TEMPI?
ENTNO
CL*
I

TEMPI?

/CHECK IF FILE OPEN
/GET READ WRITE POINTER
/SAVE
/GET FILE #
/IF TTY, BUFFER FIELD IS
/DF TO BUFFER FIELD
/GET WORD FROM BUFFER

BCGET

/RETURN

/OS/8 BASIC RUNTIME SYSTEM
3033

TEMP17»W»ITFL

PAL8-V7

10/24/72

PAGE

<*4-l

#
/OS/8 BASIC RUNTIME SVSTEH

PACa-VT

l0/2a/72

PAGE 45

/SUBKOUTINE UNPACK-UMPACKS ASCII, 3 F0« 2 ,FROM THE FILE IN THE I/O
/WORKING AREA, RETURNS WITH THE CHAR IN CHAR,
03047
03050
03051
03052
03053
03054
03055
0305(>

03057
03060
03061
03062
03063

03064
03065
03066
03067
03070
03071
03072
03073
03074
03075
03076
03077
03100
03101
03102
03103
03104

0000
4551
7410
5264
4704
4747
0101
3053
1053
1303
7650
5543
5647
4216
7344
1566
3566
4747
0103
3216
4747
0103
7112
7012
1216
7112
7012
5256
7546
5573
3016

UNPACKi

U123C,

JMS I CMRNOL
SKP
JMP CHAR3U
JMS I CNOBMP
JMS I READFW
AND K0377
OCA CHAR
TAO CHAR
TAO MCTRLZ
SNA CLA
JMP I EOFSEU
JMP I UNPACK

CHARiU> JMS CNOCLR
CLA CUL CMA RAL
TAO I W0R03
DCA I W0RD3
JMS I REAOFW
AND K7400
DCA TEMP18
JMS I READFW
AND K7400
CLL RTR
RTR
TAO TEMP18
CLL RTR
RTR
JMP U123C
MCTRLZi «232
CNOBMP, CNQBMU
TEMPie»CNOCLR

/GET CHAR

/BUMP CHAR NUMBER
/GET CHAR AGAIN
/STRIP TO EIGHT BITS
/SAVE
/GET CHAR A6IAN
/IS IT CTRL/Z?

/YES-SET EOF BIT
/RETURN
/RESET CHAR
/-2 IN AC

/BACK BUFFER POINTER UP 2
/GET LEFT HALF OF CHAR
/SAVE
/GET NEXT WORD WITH RIGHT HALF
/ISOLATE RIGHT HALF

/SLIDE RIGHT HALF OVER
/COMBINE WITH LEFT HALF
/MOVE TO BITS 4-11
/REJOIN MAINLINE

/OS/8 BASIC RUNTIME SVSTEM

PA1.8-V7

10/24/72

PAGE 46

/REAU FUNCTION-GETS NUMBERS INTO VARIABLES

03U5

REAOI,

03107
03110
03111
03113
03113
03114
03115
03116
03117
03120
03121
03122

4550
7410
5323
4547
7000
7000
4552
4747
3044
4747
3045
4747
3046
5513

03123
03124
0312S

4725
5513
5200

ASCHN,

FFINL,

0000
4550
4S16
1053
1055
7650
5343
4547
4552
7000
7000
4247
5726

/ROUTINE TO FETCH ASCII
GETCH,
JMS I FTYPL
SR,
JMS I ERROR
TAD CHAR
TAD M215
SNA CLA
JMP TTEST
NTTY,
JMS I BUFCHL
JMS I NEXREL
NOP
NOP
JMS UNPACK
JMP 1 GETCH

CHARACTERS FROM FILE BUFFER

03126
03127
03130
03131
03132
03133
03134
03135
03136
03137
03140
03141
03142
03143
03144
03145
03146

1162
7650
4524
5335

TTEST,

/ENTRY NUMBER
/IS IT TTV?
/VES-FILL TTV BUFFER
/RESUME

03147

3000

REAOFW* READFL

03t0i>

JMS I FTVPL
SKP
JMP ASCHR
JMS I BUFCHL
NOP
NOP
JMS I NEXREL
JMS I READFW
OCA EXP
JMS I READFW
OCA HOKO
JMS I READFW
OCA LORD
JMP I ILOOPL

/IS FILE NUMERIC?
/VES-WRITE DATA
/NO-WRITE ASCII

JMS I FFINl
JMP I ILOOPL
FFIN

/USE FPP INPUT TO GET NUMBER
/DONE

TAD fcNTNO
SNA CLA
JMS I DEVCAL
JMP NTTY

/YES-CHECK BUFFER POINTER
/PAST END-NEXT RECORD
/AT END-NEXT RECORD
/ONLY 1 WORD LEFT-IT IS UNUSED IN NUMERIC FMT
/GET WORD FROM FILE
/STOKE AS EXPONENT
/GET WORD FROM FILE
/STORE AS HIGH MANTISSA
/GET WORD FROM FILE
/STORE AS LOW MANTISSA
/DONE

/IS FILE ASCII?

/NO-ERROR
/GET LAST CHAR
/WAS IT CR?
/YE5-IF TTY,WE MUST REFILL BUFFER
/NO-CHECK STATUS OF BUFFER
/LAST CHAR READ-NEXT RECORD
/CHAR 3 NOT USED YET
/CHAR 2 AND 3 LEFT
/UNPACK CHAR FROM BUFFER
/RETURN

#
/OS/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

PAGE «7

/STRlNIi ACCUMULATOR UOAD

03150
03151
03152
03153
03154
03155
03156
03157
03160
03161
03162
03163
03164
03165
03166
03167
03170
03171
03172
03173
03174
03175
03176

3365

SLOAOi

nil
3012
1071

3032
1032
7650
5513
2072
5365
1365
1073
3365
3165
1472
6201
3412
2071
7410
5513
2071
S360
5513

S8LP»

LOADUFf

DCA LOAOOP
TAD SACPTR
DCA XR2
TAD STHCNT
DCA 8TRLEN
TAD STRLEN
SNA CLA
JMP I ROOPL
ISZ 8TRPTR
JMP lOAOOF
TAD LOADOF
TAD K0010
OCA LOADOF
.

TAD I 8TRPTR
CDF
DCA I XR2
ISZ STRCNT
SKP
JMP I ILOOPL
ISZ STRCNT
JMP SSLP
JMP I ILOOPL

/PUT OF FOR OPERAND FIELD IN LINE
/POINTER TO START OF SAC
/POINTS INTO SAC
/GET LENGTH OF THIS STRING
/SET THAT LENGTH AS LENGTH OF STRING IN SAC
/GET LENGTH OF NEW STRING
/IS IT A NULL STRING?
/YES-WE DON'T HAVE TO MOVE ANYTHINCi
/POINT TO FIRST PAIR OF CHARACTERS

/SKIP MEANS WE HAVE TO BUMP OF
/DF TO OPERAND FIELD
/GET 2 CHARS FROM STRING
/DF TO SAC FIELD
/PUT IN SAC

/DONE?
/NO-TWO CHARS/WORD
/YES-NEXT INST
/DOES SECOND CHAR MAKE COUNT 0?
/NO-LOOP
/YES-NEXT INST

/OS/8 BASIC RUNTIME SYSTEM

PALB-V7

10/24/72

PAGE Hi

PAGE

3200

/WRITE FUNCTION-PUTS NUMBERS IN FILE BUFFE«S

03200
03201
03202
03203
03204
03205
03206
03207
03210
03211
03212
03213
03214
03215

4550
7410
5217
4547
0240
0210
4552
1044
4525
1045
4525
1046
4525
5246

WRITtI, JMS I FTYPL
SKP
JMP PDNE
JMS I BUFCHL
240
K240r
0210
K0210.
JMS I NEXREL
TAD EXP
JMS I WRITFW
TAD HORD
JMS I WRITFW
TAD LORD
JMS I WRITFW
JMP WDONE

/GET FILE TYPE

03216

1260

ASCOUL* ASCOUT

/LINK TO FPP CALLER AND FORMATTER

/NUMERIC-WRITE DATA
/ASCII
/FILE IS NUMERIC-CHECK BUFFER STATUS
/PAST END-NEW RECORD (AND INST SERVES AS NOP)
/AT END-NEW RECORD (AND SFRVES AS NOP)
/ONE WORD LEFT-DON'T USE If
/EXPONENT
/WRITE IN BUFFER
/HIGH MANTISSA
/WRITE IN BUFFER
/LOW MANTISSA
/WRITE IN BUFFER
/DONE

/PDNE-CALLS ASCOUT TO GET NUMBER INTO INTERMEDIATE
/BUFFER, THEN TYPES IT ON DEVICE
03217
03220
03221
03222
03223
03224
03225
03226
03227
03230
03231
03232
03233
03234
03235
03236
03237
03240
03241
03242
03243

4616
2061

4253
2061
5234

JMS 1 A5C0UL
ISZ TEMP10
TAD 1 TEMP10
TAD MPLUS
8ZA CLA
JMP MDNE
TAD K240
OCA I TEMP10
MONE#
TAD TEMP2
TAD I WORO10
TAD M110
SMA SZA CLA
JMS I CRLF
CPLOUP, TAD I TEMP10
TAD M215
SNA CLA
JMP ASCNDE
TAD I TEMP10
JMS PUTCM
ISZ TEMP10
JMP CPLOOP

03244
03245
0324b
03247

1204
4253
3650
5513

ASCNUEr TAD K240
JMS PUTCH
WDONE,
DCA I COMMAP
JMP I ILOOPL

03250
03251
03252

2557
7525
7670

COMMAP, COMMAS
-253
MPLUS,
M110,
• 110

1461
1251

7640
5227
1204
3461
1007
1573
1252
7740
4553
1461
1055

7650
5244
1461

PDNEi

/GET # INTO INTER BUFFER
/MOVE POINTER PAST SPACE THAT SENT US HERE
/GET SIGN
/IS IT PLUS?

/NO-ITS MINUS
/SPACE
/REPLACE "'• WITH SPACE
/GET COUNT OF CHARS TO BE PRINTED
/AOO TO PRINT HEAD POSITION
/COMPARE AGAINST "72"
/WILL THE NUMBER FIT ON THIS LINE?
/NO-ISSUE A CR,LF
/GET CHAR FROM INTERMEDIATE BUFFER
/IS IT CR?

/YES-NUMBER ALL OUTPUTTED
/NO-GET CHAR AGAIN
/PUT ON DEVICE
/BUMP POINTER
/NEXT
/FOLLOW THE NUMBER WITH
/CLEAR COMMA SWITCH
/WRITE IS DONE

•

SPACE

•

/OS/8 BASIC RUNTIME SYSTEM

PAUe-V7

10/24/72

PAGE

4<J

/ROUTINE TO PUT ASCII CHARS IN FILE BUFFER, IGNORES RUBOuTS.
032S3
03254
032S5
03256
03257
032b0
03261
03262
03263
03264
03265
03266
03267
03270
03271
03272
03273
03274
03275

5653
4550
4516
2573
1162
7650
5276
4547
4552
0040
0020
1040
4545
5653

03276
03277
03300

1040
4522
5653

TOUT.

03301

7401

MRUBOT, -377

0000
3040
1040

PUTCH,

1301
7650

sw,

KK40,
K20,

OCA TEMPI
TAD TEMPI
TAD MRUBOT
SNA CLA
JMP I PUTCM
JMS 1 FTYPL
JMS I ERROR
ISZ I hORO10
TAD ENTNO
SNA CLA
JMP TOUT
JMS 1 BUFCHL
JMS I NEX
40
20
TAD TEMPI

JMS
JMP

I
I

PACKL
PUTCH

TAD TEMPI
JMS I XPUT
JMP I PUTCH

/SAVE CHAR
/GET CHAR AGAIN
A RUBOUT?
/YES-RETURN
/IS FILE NUMERIC?
/YES-ERROR
/BUMP COULMN NUMBER
/GET ENTRY #
/IS IT TTY?
/YES-JUST PUT CHARS IN RING BUFFER
/NO-IS BUFFER FULL?
/YES-NEXT RECORD
/THERE IS A CHAR 3 LEFT CANO IS A NOP)
/THERE IS A CHAR 2 AND 3 LEFT (AND IS A NOP)
/GET CHAR AGAIN
/PUT IN BUFFER
/RETURN

/IS IT

/GET CHAR
/PUTCH CHAR IN OUTPUT BUFFER FOR TTY
/RETURN

/OS/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

PAGE 50

/SUBROUTINE NEXREC-WRITES THIS BUFFER IN FILEpTHEN READS IN NEXT BUFFER
/IF POSSIBLE, ELSE SETS EOF BIT. IF DEVICE IS READ OR WRITE ONLY
/IT JUST READS OR WRITES A BLOCK, WHICHEVER IS APPROPRIATE
NEXRtC,

03302
03303
03304
03305
03306
0330T
03310
03311
03312
03313

0000

03314
03315

4344
5312

RONLY,

03316
03317
03320
03321
03322
03323
03324
03325
03326
03327
03330
03331

4350
4361
2565
1570
7041
1565
3015

FILSTR, JMS WRBLK
JMS BLINIT
ISZ I W0RD2
TAD I W0RD5
CIA
TAD I WORDS
DCA BABS
TAD I W0R06
JMS I NUMCOM
JMP LASTS
JMS BLREAD
JMP I NEXREC

03332
03333
03334
03335
03336
03337
03340
03341
03342

4743
5543

03343

2357

1563
0272
7650
5316
4743
5314
4350
4361
5702

1571

4405
5332
4344
5702

1571

3015
1572
4405
5543
2571
5702

RWONC,

LAST8,

TAD I WORD0
AND K20
SNA CLA
JMP FILSTR
JM8 I FOTYPL
JMP RONLY
JMS WRBLK
JMS BLINIT
JMP I NEXREC

/GET HEADER
/GET REAO/WRITE ONLV BIT
/IS IT ON?
/NO-DEVICE IS FILE STRUCTURED
/YES-IS IT INPUT OR OUTPUT FILE?
/INPUT-DEVICE IS READ ONLY
/DEVICE IS WRITE ONLY-WRITE THIS BLOCK IF USED
/INIT FILE TABLE ENTRIES
/DONE

JMS 8LREAD
JMP RWONC

/READ BLOCK INTO CORE
/INIT POINTERS

JMS I FOTYPL
JMP I EOPSEL
TAD I W0R06
DCA BABS
TAD I W0RD7
JMS I NUMCOM
JMP I EOFSEL
ISZ I W0RD6
JMP I NEXREC

FOTYPL» FOTYPE

/WRITE THE CURRENT BLOCK IF IT HAS BEEN CHANGED
/INIT FILE TABLE ENTRIES
/BUMP BLOCK #
/STARTING BLOCK
/NEGATE
/SUBTRACT FROM CURRENT BLOCK FDR FILE LENGTH
/SET UP CURRENT FILE LENGTH FOR 12 SIT COMPARE
/COMPARE TO ACTUAL LENGTH
/IS IT > CURRENT LENGTH?
/YES-EXTEND THE FILE IF IT IS OUTPUT
/READ IN THE NEXT RECORD
/RETURN
/IS FILE FIXED LENGTH?
/YES-SET EOF FLAG

/NO-GET ACTUAL LENGTH

/MAXIMUM LENGTH
/IS ACTUAL LENGTH »» MAXIMUM LENGTH?
/YES-SET EOF BITS
/NO-BUMP ACTUAL LENGTH
/RETURN WITHOUT READING NEXT RECORD

#
/OS/8 BASIC RUNTIME SYSTEM

/ROUTINE TO READ
03344
03345
03346
03347

0000
1205
4524
5744

0000
1563
0271
7650
5750
1360
4524
5750
4210

#
PAGE 51

10/24/72

PAGES FROM DEVICE

BLREADi
TAD K0210
JMS I DEVCAL
JMP I BLREAD

/ROUTINE TO WRITE
03350
03351
03352
03353
03354
03355
03356
03357
03360

P*L8-V7

/••READ 2 PAGES"

/HANOLtR CALL
PAGES ONTO DEVICE

WRBLK,

K4210,

TAD I WOROe
AND KK40
SNA CLA
JMP I MRBLK
TAD K4210
JMS I DEVCAL
JMP I WRBLK
4210

/GET FILE HEADER
/GET FILE WRITTEN BIT
/HAS THIS BLOCK BEEN CHANGED?

/NO-RETURN
/"WRITE 2 PAGES"
/CALL TO DEVICE HANDLER

/ROUTINE TO INITIALIZE I/O TABLE ENTRIES AFTER READ OR WRITE
03361
03362
03363
03364
03365
03366
03367
03370

0000
1564
3566
1563
0370
3563
5761
7437

BLINlTi

K7437,

TAD I WOROl
OCA I W0RD3
TAD I WORD0
AND K7437
OCA I WORO0
JMP I BLINIT
7437

/INIT READ/WRITE POINTER
/SET CHAR

AND CLEAR BLOCK WRITTEN BIT

/ROUTINE TO SAVE THE FAC IN FP TEMP
03371
03372
03373
03374

0000
4535
1152
5771

FACSAV,
JMS I FPUTL
INTERS
JMP 1 FACSAV

/STORE FAC
/USE INTERMEDIATE BUFFER FOR TEMP STORAGE
/RETURN

/08/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

PAGE 52

(nnnntdnnnutnntnfin/nmnninn
ttHuuunnnuiun/un/inntiunt/uNi
(ftn OVERI.AY BUFFER 34a0-«fc00 /////////////
inU CONTAINS FUNCTION OVERLAYS ttttnUUfU
//ntn/tnu
nut AT RUN TIME

unfuunnnnnnnnNfUunn/nnunn
nunnnnntnuiNi/nnnnnNnNuinn

•

•
/OS/8 BASIC RUNTIME SYSTEM

PAU8-V7

iVl/^(i/^^

page 5s

/////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////
////////////// OVERLAY 1-ARITHMETIC FUNCTIOMS ///////////////
/////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////
3400

•OVERLAY

/INTEGER FUNCTION
/RANGE'ALL X
03400
03401
03402
03403
03404
03005
03406
03007
03410
03011
03412
03413
03414
03415
03416
03417
03420
03421
03422
03423
03424
03425
03426
03427
03430
03431
03432
03433
03434
03435
03436
03437
03440
03441
03442
03443
03444
03445
03446
03447
03450
03451

0000
4535
1175
1044
7740
5213
1045
7710
5270
4537
5600
1045
7700
5220
4540
7001
3042
3047
7130
3043
1044
7041
3007
1043
7130
3043
1047
7010
3047
2007
5227
1045
0043
3045
1046
0047
3046
1042
7650
5600
4535
1172

INT,

INSC>

JMS 1 FPUTL
FPPTMl
TAD EXP
SMA SZA CLA
JMP INSC
TAD HORD
SPA CLA
JMP MIR
JMS I FCLR
JMP I INT
TAD HORD
SMA CLA
JMP INTPOS
JMS I FNEGL
lAC

INTPOSf OCA
DCA
CLL
DCA
TAD
CIA
DCA
MASKLi
TAO
CLL
OCA
TAD
RAR
OCA

TEMPS
TEMPS
CML HAR
TEMP4
EXP

/SAVE

/GET EXPONENT
/IS EXP<0?
/NO-GO ON
/YES
/IS X<07

/YES-INT«-1
/YES-RETURN

/GET HI MANTISSA
/IS IT <07
/NO-USE FAC AS IS
/YES-NEGATE FAC (MAKE IT P05)
/ANO SET FLAG
/FLAG FOR NEGATIVE
/ZERO LORD MASK

/INITIALIZE HORO MASK TO 4000
/- COUNT

TEMP2
TEMPa
CML RAR
TEMP4
TEMPS

/ROTATE I'S THROUGH

WORD MASK

/UNTIL THERE IS

COUNT OF ZERO

TEMPS

ISZ TEMP2

/DONE?

JMP MASKL
TAO HOHO
AND TEMP4
DCA HORD
TAD LORD
AND TEMP5
OCA LORD
TAD TEMP3
SNA CLA
JMP I INT
JMS I FPUTL
FPPTM2

/NO

/YES-MASK HORD
/MASK LORD
/NEG FLAG
/WAS ORIGINAL NUMER <0?
/NO-OONE
/SAVE INTCX}

/OS/e BASIC RUNTIME SYSTEM

PAL6-V7

03452
03453
03454
03455
0345*
03457
03460
03461
03462
03463
03464
03465
03466
03467

4673
1175
1045
3042
4537
1042
7650
5264
4673
3474
4673
1172
4540
5600

JMS I FAOOLK
FPPTMl
TAD HORO
OCA TEMP3
JMS I ^CLR
TAD TEMP3
SNA CIA
JMP JUSNEG
JMS I FADOLK
ONE
JUSNEG, JMS I PADDLK

03470
03471
03472

«534
3474
5266

MIR,

03473
03474
03475
03476

6000
0001
2000
0000

FADOLK, FFAOD

JNEG.

FPPTM2
JMS I FNEGL
JMP

ONE.

INT

JMS I FGETL
ONE
JMP JNEG

PAGE 5i-l

10/24/72

/-INT(X)*(X)
/SAVE HORD

/FLUSH fAC
/WAS INT(X)aX?

/VES-JUST NEGATE INT(X)
/NO-ADO 1
/GET INT(X)
/AND NEGATE CINT C5.3) «-6)
/DONE

/LOAD FAC WITH

/JUST NEGATE AND RETURN

2000

•

/OS/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

PAGE 54

/EXPONENTIATION FUNCTION
/IF 8»0,A*B»1
/IF A»0 AND B>0,A»B»0
/IF A«0 AND B<0, DIVIDE BY ZERO ERROR MESSAGE RESULTS AND A-H>0
/IF a>INTEGER > Z, A*B«A*A*A*
*A
/IF BiINTEGER « 0, A*B»1/A«A*A*
*A
/IF B»REAL AND A»0, A*BiEXP tB*LOG(A) )
/IF B«REAL AND A«0, A FATAL ERROR RESULTS
03477
03500
03501
03502
03503
03504
03S05
03506
03507
03510
03511
03512
03513
03514
03515
03516
03517
03520
03521
03522
03523
03524
03525
03526
03527
03530
03531
03532
03533
03534
03535
03536
03537
03500
03541
03542
03543
03544
03545
03546
03547
03550
03551

0000
4535
1161

4535
1164
1045
3277
3064
4711
4534
0307
6201
1045
7450
5771
7700
5323
1277
7650
5774
1277
7650
5365
4535
1167
4200
4773
1167
1045
7640
5767
4534
1167
1045
3277
4775
4535
1167
4534
1167
4773
3474
4535

EXPON,
JMS I FPUTL
FPPTM5
JM8 I FPUTL
FPPTM4
TAD HORO
DCA EXPON
OCA INSAV
JMS I ARGPLL
JMS I FGETL
ARGPLL*
ARSPHE
CDF
TAD HORO
SNA
JMP I RETRNO
SMA CLA
JMP ,4
TAD EXPON
SNA CLA
JMP I DVTRAP
TAD EXPON
SNA CLA
JMP RET0
JMS I FPUTL
FPPTM3
JMS INT
JMS I F8UBLL

/SAVE

/SET UP RUNNING PRODUCT IN CASE OF
/MULTIPLIES
/HI ORDER OF A
/SAVE IT
/POINTER TO B IN SYMBOL TABLE
/FIND B
/GET B
/LOC SKIPPED BY FPP,SO WE USE IT FOR CONSTANT
/HI ORDER OF
/IS B«0?
/YES A-B«l
/IS B«0?
/NO

/YES-GET HI ORDER A
/IS A«07
/YES-DIVIDE BY ZERO ERROR
/B>0, IS A80?
/YES A''B»0
/SAVE B
/GET INTCB)
/INT(B)-8

FPPTM3
TAD HORO
SZA CLA
JMP I U8EL0L
JMS I FGETL

FPPTM3
TAD MORD
OCA EXPON
JMS I ABSV
JMS I FPUTL

FPPTM3
EMLOOP, JMS I FGETL
FPPTM3
JMS I FSUBLL
ONE
JMS I FPUTL

/IS INT(8)-B»07

/NO-USE LOGS
/YES-USE REPETITIVE MULTIPLY
/GET B AGAIN
/SAVE SIGN OF B
/IBJ
/USE ABSCB)

/GET

AS MULTIPLY COUNT

/B-1

/SAVE NEW COUNT

PAUe-V7

/08/8 BASIC RUNTIME SYSTEM

03552
035S3
0355a
03555
03556
03557
035<i0

lB/2«/72

PAGE 5a-l

FPPTM3

1167
1045
7650

TAD HORO
SNA CLA
JMP I EMDONL
JMS I FGETL

5770
4534
1164
4772

FPPTM4
JMS I FMPYL
FPPTM5
JMS I FPUTL
FPPTMa
JMP EMUOOP

03561
03568
03563
03564

4535
1164
5345

03565
03566

4537
5513

RET0»

03567
03570
03571
03572
03573
03574
03575

3613
3600
3610
5600
6117
6355
2366

USELOU*
EMDONLr
RETRNO*
FMPVU#
FSUBLL*
OVTRAP,
ABSV>

1161

JMS
JMP

I
I

FCLR
ILOOPU

/IS COUNT ZERO YET
/YES-MULTIPUieS ARE DONE

/NQ-GET RUNNING PRODUCT

/MULTIPLY BY

/SAVE NEW RUNNING PRODUCT

/RETURN WITH

IN FAC

USELOG
EMOONE
RETRNl
FFMPY
FFSUB
DV

ABSVAU

•

/QS/S BASIC RUNTIME SYSTEM

03600
03601
03602
03603
03604
03605
03606
03607

3600
4534
1164
1630
7700
5513
4631
3474
5513

03610
03611
03612

4534
3474
5513

RETRNl,

03613
03614
0361S
03616
03617
03620
03621
03622
03623
03624

1630
7710
4516
4534

4626
4627
1167
4625
5513

USELOG, TAD I EXPONK
SPA CLA
EM,
JMS I ERROR
JMS 1 F6ETL
FPPTM5
JMS 1 FFLOGL
JMS I FMPYLV
FPPTM3
JMS I FFEXPL
JMP I ILOOPL

03625
03626
03627
03630
03631

4120
4263
5600
3477
5412

FFEXPL. FFEXP
FFLOtiL, FFLDG
FMPVUV» FFMPY
EXPONK, EXPON
FIDVP,
FFOIVl

1161

EMOONE,

PAGE
JMS I FGETL
FPPTM4
TAO I EXPONK
8MA CLA
JMP I ILOOPL
JMS 1 FIDVP
ONE
JMP I ILOOPL
JMS I FGETL
ONE
JMP I ILOOPL

PAL8-V7

10/24/72

PAGE 5S

/GET RUNNING PRODUCT
/QET SIGN OF
/WAS IT -?

/NO-A*B»A*A*A*,,,*A
/YES-INVERT

/A*Bal/AtA*A*.,,*A
/SET FAC TO

/SIGN OF A
/A«0?
/YES-PRINT
/LOAD A

MESSAGE

/LOG(A)
/B*LOG(A)

/EXP(B*LOGCA))
/DONE

/86N FUNCTION

03632
03633
03634
03635
03636
03637
03640
03641
03642
03643
03644
03645

0000
1045
7450
5513
7710
5242
7001
7410
7040
3044
4541
5513

SGN,

TAD HORD
SNA
JMP I ILOOPL
SPA CLA
JMP .¥!
lAC
SKP
CMA
OCA EXP
JMS I FLOATL
JMP I ILOOPL

/GET HIGH MANTISSA
/IS XbZERO?
/YES-TMEN LEAVE IT ALONE
/IS X>07
/NO
/YES-SET FAC»1

/NO-SET FAC«-1
/SET UP FLOAT
/FLOAT VALUE OF SGN FUNCTION
/DONE

/OS/8 BASIC RUNTIME SYSTEM

PAL8-V7

IFZERO EAE

i0/2«/7a

PAGE 5b

/nOATING SQUARE ROOT
JOT
rPE ALGORITHM FOR BINARY SQUARE ROOTS
/USES A HARDWARE TYPE
R ARITHMETIC-IVAN FLORES-P 409
/REF« THE LOGIC OF COMP

03646
036<17

03650
03651
03652
03653
03654
03655
03656
03657
03660
03661
03662
03663
03664
03665
03666
03667
03670
03671
03672
03673
03674
03675
03676
03677
03700
03701
03702
03703
03704
03705
03706
03707
03710
03711
03712
03713
03714
03715
03716
03717
03720
03721
03722
03723
03724
03725
03726
03727

0000
7332
3375
3376
6201
1377
3042
1045
7450
5646
7710
4540
1044
7510
7020
7010
3044
7430
2044
7000
7420
4774
7344
3373
7332
7012
30S0
3051
1372
1045
3045
1045
7450
1046
7650
5365
5322
1050
7110
3050

FROOT,

SLOOP,

1051

7010
3051
4774
1051
1376
7141
1046
7450
2373

LOP01,

CLA CLL
DCA
OCA
COF
TAD
OCA
TAO
SNA
JMP I
SPA
JMS I
TAO
SPA
CML
RAR
OCA
SZL
ISZ
NOP
SNL
JMS I
CLA CLL
DCA
CLA CLL
RTR
OCA
DCA
TAD
TAO
DCA
TAD
SNA
TAD
SNA
JMP
JMP
TAD
CLL
DCA
TAD
RAR
DCA
JMS I
TAD
TAO
CLL CMA
TAO
SNA
ISZ

CML RTR /SET RESULT TO 2000;0000
ANl
AN2
/OF TO PACKAGE FIELD
KM22
/SET COUNTER FOR DEVELOPING 22 BITS OF RESULT
AC2
/ALREADY HAVE 1
ACH

FROOT
CLA
FNEGL
ACX

ACX

ALIK
CMA RAL
ZCNT
CML RTR
OPH
OPL
K6000
ACH
ACH
ACH

ACLO
CLA
DONE
LOP01
OPH
RAR
OPH
OPL

/ZERO FAC-NOHMALIZEDl-RETN, SAME
/TAKE ROOT OF ABSOL VALUE
/GET EXPONENT OF FAC
/IF NEGATIVE-MUST PROPAGATE SIGN

/DIVIDE EXP, BY 2
/STORE IT BACK
/INCREMENT EXP, IF ORIGINAL EXP
/WAS ODD
/DO A PRE-SHIFT FOR EVEN EXPONENTS
/SO FIRST BIT PAIR IS 10 NOT 01
/SET COUNTER FOR DETECTING A
/ZERO REMAINDER
/SET UP POSITION OF TRIAL BIT
/FOR FIRST PASS THRU LOOP

/GET A FAST FIRST 8IT-WE KNOW
/THIS WILL WORK SINCE « IS NORMALIZED
/IF # IS A POWER OF TWO, AND A PERFECT
/SOUARE-WE ARE DONE HEREl
/WELL IS IT?
/COULD BE-CHECK LOW ORDER

/WHOOPPEE-WE WIN BIG,
/NOPE-LOOP DON'T SHIFT FIRST TIME
/SHIFT TRIAL BIT 1 PLACE
/TO THE RIGHT
/AND STORE BACK

OPL

AUK
OPL
AN2
lAC
ACLO

ZCNT

/SHIFT FAC LEFT 1 PLACE
/ADO TRIAL BIT TO ANSWER
/SO FAR
/NEGATE IT
/ANO ADD TO FAC (REMAINDER SO FAR)
/IS RESULT ZERO?
/YES-INCREMENT COUNTER

PAL8-VT

/08/8 BASIC RUNTIME SYSTEM

03T30

3043

DCA

10/24/72

PAGE 56-1

/STOKE RtSULT IN TEMPORARY

/08/« BASIC RUNTIME SYSTEM
03731
03732
03733
03734
03735
03736
03737
03740
03741
03742
03743
03744
03745
03746
03747
03750
03751
03752
03753
03754
03755
03756
03757
03760
03761
03762
03763
03764
03765
03766
03767
03770
03771

03772
03773
03774
03775
03776
03777

7024
1050
1375
7141
1045
7420
5361
7440
5346
2373
5346
7040
3042
3045
1043
3046
1051
7104
1376
3376
1050
7004
1375
3375
7344
3373
2042
5313
1375
3045
1376
3046
5646

6000
0000
6057
0000
7752

ILOP02,

SON,

DONE*

K60e0,
ZCNTf
ALIK,
ANtf
AN2,
KM22,

PALS-VT

CMU
RAL
TAO
OPH
TAD
ANl
CLL CMA lAC
ACH
TAO
SNU
JMP
SON
SZA
JMP
LOP02
ZCNT
ISZ
JMP
.3
CMA
OCA
AC2
QCA
ACH
TAO
TM
OCA
ACLO
TAD
OPL
CLt.
RAL
TAO
AN2
AN2
OCA
TAO
0PM
RAL
TAD
ANl
OCA
ANl
CtA CLL CMA RAL
OCA
ZCNT
AC2
ISZ
JMP
SLOOP
TAD
ANl
OCA
ACM
AN2
TAD
OCA
ACLO
JMP 1
FROOT

6000
ALl

•26

/ADD
/AGO
/ADO
/AND

10/24/72

PAGE 57

CARRY TO HIGH ORDER FOR SUBTRACT
TRIAL BIT
RESULT SO FAR (HI ORDER)
SUBTRACT FROM HI ORDER FAC

/RESULT NEGATIVE?
/YES-NEXT RESULT BIT IS
/NQ-IS HI ORDER RESULT»0?
/NO-GO ON
/YES-WAS LOW ORDER 07
/NO-GO ON
/YES-REM,«0-SET COUNTER SO
/LOOKS LIKE WE'RE DONE
/STORE HIGH ORDER REM, IN FAC
/STORE LO ORDER REM, IN FAC
/TRIAL BIT SHIFTED LEFT 1 IS
/RESULT 8IT-A0D IT TO ROOT DEVELOPED
/SO FAR

/RESET COUNTER FOR ZERO REM,
/DONE ALL 23 RESULT BITS?
/NO-GO ON
/YES-STORE ANSWER IN FAC
/ITS NORMAUIZEO ALREADY
/AND RETURN

/OS/B BASIC RUNTIME SYSTEM

PAL8-V7

IFNZRO EAE
ENPUNCH

10/24/72

PAGE 58

/FLOATING SQUARE ROOT
/USES MODIFIED HARDWARE ALGORITHM FOR BINARY SQUARE ROOTS
/REFI THE UOBIC OF COMPUTER ARITHMETIC-IVAN FUORESi P-409
ttSGNl'U

FROOT,
CLA CLL
OCA
OCA
SWAB
CDF
OCA
TAD
DCA
TAD
ASR

CMU RTR /SET RESLT TO 2000,0000
OPl.

OPH
/MODE B OF EAE-AU50 DOES MOL
RBCNT
KM22
AC2
ACX

/CUR. SHIFT COUNTER

/SET COUNTER FOR 23 BITS OP RESULT
/GET EXPONENT OF FAC
/DIVIDE BY 2

ACX

DCA
DP82
ISZ
NOP
MQA

ACX

/STORE IT BACK
/INCREMENT EXP. IF ORIG. EXP
/WAS ODD

RAL

/DETERMINE WHETHER TO DO A
/PRE-SMIFT FOR EVEN EXPONENTS.

CML
RAL.
RKNT
OCA
CLC CMU RTR
RTR
OCA
ACl
OCA
AC0
ACNT
DCA
OLD
ACH
8WP
SNA
JMP I
FROOT
SPA
DCM
SHL
RKNTi

LOOP*

TAD
OPSZ
JMP
JMP
DUO
ACH
SHL

K600e
LOPl
DONE

/STORE BIT-0 OR I SHIFT CNT
/SET UP FIRST TRIAL BIT
/STORE AWAY
/ZERO COUNTER
/GET THE FAC
/GET IN RIGHT ORDER
/IS IT ZERO? (HI QRD30)
/YES-ROOT »
/NEGATIVE?
/YES-TAKE A8S0L. VALUE
/SHIFT # I BIT IF EXP MAS EVEN
/SO FIRST BIT PAIR IS 10 NOT 01
/SUBTRACT 2000-KNOW FIRST BIT
/IS l(N0RMALIZE0)-D0NE7?
/NO-WE MUST LOOP
/YES-AN EASY ONEUl
/GET THE FAC

/SHIFT FAC APPROPRIATELY

LOPlr

DST
ACH
DID
AC0

/MUST STOR BACK IN CASE RE5LT
/BIT IS
/GET TRIAL BIT

/OS/8 BASIC RUNTIME SYSTEM

PALe-V7

10/24/72

PAGE 58-1

/SHIFT THE BIT APPROPRIATELY

ASR

ACNT,
isz
DAD
0PM
DCM

ACNT

ISZ
DAD

RBCNT

ACH
SNL
JMP
DPSZ
JMP
CMA
ZREM.
DCA
NOTZROf DST
ACH
CAM
RTR
ASR
R8CNT,
DAD
OPH
DST
OPH
GON»
ISZ
JMP
DONE»
OLD
OPH
DCA
SMP
DCA
JMP I
-26
KMSa,
K600ia,
6000

NOPUNCH
>

GON

NOTZRO

/SHIFT I MORE NEXT TIME
/ADO IM RESULT SO FAR

/NEGATE IT
/BUMP COUNTER FOR RESLT BIT
/OO THE SUBTRACT

/RESULT NEGATIVE?
/YES-NEXT RESULT SIT

/NO-DID WE GET A ZERO REMAINDER?
/NOPE
/YES-SET SO LOOKS LIKE WE'RE DONE

AC2

/GOOD SUBTR, -MODIFY FAC
/ITS NOT CHANGED BY BAD SUBTRACT
/CLEAR EVERYTHING

/SHIFT RESLT BIT TO RIGHT PLACE

AC2
LOOP

/ADO IT TO THE RESULT SO FAR
/WE APPEND IT TO RIGHT OF LAST
/BIT
/STORE IT BACK
/DONE 23 BITS?
/NO-GO ON
/YES-GET RESULT-ITS NORMALIZED

ACH

/STORE HIGH ORDER BACK

ACLO
FROOT

/STORE LOW ORDER BACK
/RETURN

•
/OS/S BASIC (RUNTIME SYSTEM

PAt.B-V7

PAGE 59

10/84/72

/23-8IT EXTENDED FUNCTIONS

/1-31-72

R BEAN
• 4000

/••••••SINE******
04000
04001
04002
04003
04004
04005
04006
04007
04010
04011
04012
04013
04014
04015
04016

0000
4303
4661
4160
4271
1313
0270
1212
3211
5211
5613
4026
4017
4022
4024

04017
04020
04021
04022
04023
04024
04025
04026
04027
04030
04031
04032
04033
04034
04035
04036
04037
04040
04041
04042
04043
04044
04045
04046
04047
04050

4663
3474
5226
4540
5226
4664
3474
4535
1175
4665
4535

04051
04052

U72
4661
4377
4660
4374
4661
1172
4660
4371
4661
1172
4660
4366
4661
1175
4313
5600

»INi

JMS NHNDLE
JMS I FMPVLK
TOVPI
JMS FRACT
TAD NUM
AND C3
TAD JMPISN
OCA .!
JMP ,
JMPISN, JMP I ,!
POLYSN
OUA02
0UAD3
0UAD4
JMS I FSUBIL
ONE
JMP POLYSN
QUADS,
JMS I FNE6L
JMP POLYSN
0UAD4,
JMS I FSUBL
ONE
POLYSN, JMS I FPUTL
FPPTMl
JMS I FSORL
JMS I FPUTL
FPPTM2
JMS I FMPYLK
SINA7
JMS I FAOOL
SINA5
JMS I FMPYLK
FPPTM2
JMS I FAODL
SINA3
JMS I FMPYLK
FPPTM2
JMS I FAODL
SINAI
JMS I FMPYLK
FPPTMl
JMS NCHK
JMP I SIN
QUA02|

/IF X«0, NEGATE

AND SET NFLAG

/)(*2/PI

/SAVE X IN TEMPI, THE INTEGER PART OF
/GET INTEGER PART OF t2/PI)*X
/ISOLATE BITS 10,11

IN NUM, AND GET FRACTIONAL PART

/MAKE JUMP TO ARGUMENT REDUCING ROUTINE
/AND ADJUST ARG ACCORDING TO QUAURANT OF
/X
/X

n
/X

IN
IN
IN
IN

QUAD1,SIN(X)«SINCX)
QUAD2,SIN(X)»SIN(1-X)
QUAD3,SIN(X)sSINC«X}
QUAD4,SIN(X3sSINCX-l)

/l-X

/CALCULATE SIN(l-X)
/-X

/CALCULATE 8IN(-X)
/X-1

/SAVE

/U«X**2
/SAVE U
/A7*U

/A5*A7*U

/A5*U*A7*U**2
/A3+A5(U)*A7(U**2)

/A3CU)*A5CU**2)*A7(U**35

/A1+A3(U)*ASCU**2)*A7(U**3)

/A1CX3*A3CX**3)*ASCX**5)*A7(X**7)
/IF NFLAG IS SET, SET SIN (X) «-SIN (X)
/FAC«SINCX)

/OS/8 BASIC RUNTIME SYSTEM

PAI.8-V7

10/24/73

PAGE 59-1

/*»«***COSINE******
/USES SIN ROUTINE TO CALCULATE COS(X)
ZUdSi
0tt05tt

0a055
eaes6
04057
04060
e|40bt

04062
04063
04064
04065
04066
04067
04070

0000
4660
4402
4200
5653

COS*

6000
5600
5722
5400
6117
6347
4S00
5412
0003

FADDL*
FMPVLK,
POIVC,
FSUBIU*
FSUBL,
FSQRU,
FIXL»
F0IV1L»

FFAOD
FFMPV
FFOIV
FFSUBl
FF8UB
FFSQ
FFIX
FFDIVl

C3,

JHS I FADDL
PI0V2
JM8 SIN
JMP 1 COS

/cos(x)»siNtPi/a*x)
/RETURN

/08/» BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

PAGE 60

/ROUTINE TO SEPERATE THE INTEGER AND FRACTIONAL PARTS OF FAC
/ORIGINAL FAC IS SAVED IN TEMPI, THE INTEGER PORTION OF FAC IS
/SAVED AT NUM,AND THE FRACTIONAL PORTION OF THE FAC IS LEFT IN THE FAC
04071
04072
04073
04074
04075
04076
04077
04100
04101
04102

0000
4535
1175
4666
1044
3313
4541
4663
1175
5671

FRACT,

JMS I FPUTL
FPPTMl
JMS I FIXL
TAD EXP
OCA NUM
JMS I FLOATL
JMS I FSUBIL
FPPTMl
JMP I FRACT

/SAVE

/INTEGER PORTION OF

0000
1045
7700
5311
4540
7001
3320
5703

/SAVE FIXED FORTION OF
/FAC»FL0AT(FIXCX)3
/FAC«X-INT(X)»FRACTION

(X)

/RETURN

/ROUTINE TO CHECK IF FAC<0|
/SET TO I
04103
04104
04105
04106
04107
04110
04111
04112

IT IS, FAC IS NEGATED AND NFLAG IS

NHNOLEi
TAD HORO
5MA CLA
JMP NFLGST
JMS I FNEGL
lAC
NFLGST^ OCA NFLAG
JMP I NHNDLE

/FETCH HIGH ORDER MANTISSA
/IS IT «07

/NO-CLEAR NFLAG
/YES-NEGATE FAC
/AND SET NFLAG

/ROUTINE TO NEGATE FAC IF NFLAG IS NOT »0
04113
04114
04115
04116
04117

0000
1320
7640
4540
5713
4113

NCHK,
TAD NFLAG
SZA CLA
JMS I FNEGL
JMP I NCMK

NUM»NCHK

/LOC ALSO USED FOR TEMP STORAGE
/IS NFLAG»0?
/NO-NEGATE FAC

/YES-RETURN

/OS/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/34/72

PAGE bi

/•••••EXPONENTIAL******
04120
04121
ei4122

04123
04124
04125
04126
04127
04130
04131
04132
04133
04134
0413S
04136
04137
04140
04141
04142
04143
04144
04145
04146
04147
04150
04151
04152
04153
04154
04155
04156
04157

0000
4661
4405
4271
4661
4410
4535
1175
4665
4660
4413
4667
4416
4660
4421
4664
1175
4535
1172
4S34
1175
2044
7000
4662
1172
4660
3474
4665
1313
1044
3044
5720
4120

04160
04161
04162

0000
2427
6302

EXPONl,
JMS I FMPYUK
U062E
JMS FRACT
JMS I FMPYLK
UN20V2
JMS I FPUTL
FPPTMl
JMS I FSQRt
JMS I FAODL
EXPBl
JMS I FDIVIU
EXPAl
JMS I FADOU
EXPA0
JMS I FSUBU
FPPTMl
JMS I FPUTL
FPPTM2
JMS I FGETL
FPPTMl
ISZ EXP
NOP
JMS I FDIVL
FPPTM2
JMS I FAOOL
ONE
JMS I FSORL
TAD NUM
TAD EXP
OCA EXP
JMP I EXPONl

/LOC USED FOR TEMP STORAGE BY SIN.AHCTAN
/Y»XL0G2(E)
/GET FRACTIONAL PART OF

/(FRACT10NCY))*(LN2/2)
/SAVE

/Y**2
/Bl*Y**2

/Al/CBl*Y**2)

/A0*Al/C8l*Y**2)

/A0-Y*A1/(B1*Y**2)
/SAVE
/GET

/MULT, BY 2»2Y

/2Y/tA0-Y*Al/tBl*V**2))

/1+2Y/(A0-Y*AI/(B1*V**2))

/tl*2Y/(A0-Y*Al/(Bl*Y**2))J**2»EXP(Y)
/EXPCX)»(2**N)(EXPY)
/FAC»EXPON(X)

NFLAG»EXP0N1
/CONSTANT THAT WOULDN'T FIT ELSEWHERE
/, 6366198
TOVPI,
2427
6302

#
/08/8 BASIC RUNTIME SYSTEM

PALS-VT

10/24/78

PAGE 62

*H2Ze

4200

/•***«t*ARC TANGENT******

04200
04201
04202
04203
04204
0420S
04206
04207
04210
04211
04212
04213
04214
0421S
04216
04217
04220
04221
04222
04223
04224
0422S
04226
04227
04230
04231
04232
04233
04234
04235
04236
04237
04240
04241
04242
04243
04244
04245
04246
04247
04250
04251
04252
04253
04254
04255
04256
04257
04260
04261
04262

ATANr
4661
4535
1175
4762
3474
1045
7710
5220
4534
3474
4760
1175
4535
1175
7001
3263
4534
1175
4764
4535
1172
4757
4446
4761
4443
4757
4440
4757
1172
4761
4435
4757
4432
4757
1172
4761
4427
4757
4424
4756
1175
1263
7650
5257
4763
4402
4662
5600
4103
4113

JMS I NHNOLL
JMS I PPUTM
fPPTMl
JMS I FSUBM
ONE
TAO HORO
SPA CLA
JMP ARGPOL
JMS I FGETM
ONE
JMS I FDIVM
FPPTMl
JMS I FPUTM
FPPTMl
lAC
ARGPOLr OCA 6T1FLG
JMS I FGETM
FPPTMl
JMS I FSQRM
JMS I FPUTM
FPPTM2
JMS I FAODM
ATANB3
JMS 1 FDIVIM
ATANA3
JMS I FAODM
ATANB2
JMS I FAOOM
FPPTM2
JMS I FDIVIM
ATANA2
JMS I FADDM
ATANBl
JMS I FADDM
FPPTM2
JM8 I FDIVIM
ATANAl
JMS I FADOM
ATANB0
JMS I FMPYM
FPPTMl
TAD 6T1FLG
SNA CLA
JMP NGT
JMS 1 FSUBIM
PI0V2
NGT,
JMS I NCHKL
JMP I ATAN
NHNDLL» NHNOLE
NCHK
NCHKL,

/IF X«0,SET NFLAG AND NEGATE
/SAVE X
/X-1

/GET HI MANTISSA
/WAS X>t?
/NO-CLEAR GTIFLG

/Y£8-ATAN(X)»PI/2»ATANC1/X3
/l/X

/SET GTIFLG

/GET

OR l/X

/V**2
/SAVE

/Y**2«B3
/A3/CY**2*B3)

/B2*A3/(Y**2*B3)

/Y**2*B2*A3/(Y**2*83)

/A2/CY**2*B2*A3/CY**2*83))

/B1*A2/(Y**2*B2*A3/(Y**2*B3))

/Y**2*Bl*A2/(Y**2*82*A3/(Y**a*B3))

/Al/(Y**2*Bl*A2/(Y**2*B2*A3/CY**2*B3)n
/B0*Al/(Y**2*Bl*A2/(Y**2*B2*A3/(Y**a*B3)n
/ATAN(Y)»X*(60*Al/CY«*2*Bl*Ag/(Y«*2*a2*A3/CY«*2*83)n)
/MAS X>1?

/NO-TEST IF X<ia?
/ATAN(X)»PI/a-ATANCl/X)
/IF NFLAG SET, NEGATE FAC

/FAC»ATAN(X)

/OS/8 BASIC RUNTIME SYSTEM

PA1.6-V7

10/24/72

PAGE 63

/******NAPERIAN LOGARITHM******
GTFLGaATAN

4200

04263
04264
0426S
04266
04267
04270
04271
0tt272

04273
04274
04275
04276
04277
04300
04301
04302
04303
04304
0430S
04306
04307
04310
04311
04312
04313
04314
0431S
04316
04317
04320
04321
04322
04323
04324
04325
04326
04327
04330
04331
04332
04333
04334
04335
04336
04337
04340
04341
04342
04343
04344

0000

LOG,

1045
7550
5765
7106
7450
1044
7041
7001
7450
1046
7640
5304
3044
3046
3045
5663
1044
3200
3044
4535

TAD HORO
SPA SNA
JMP I ARTRAP
CLL RTL
SNA
TAD EXP
CMA lAC
lAC
SNA
TAO LORD
SZA CLA
JMP POLYNL
OCA EXP
OCA LORD
LTRPRTr OCA HORO
JMP I LOG
POLYNL, TAD EXP
OCA GTfLG
OCA EXP
JMS I FPUTM
PPPTMl
JMS I FADOM
SQRP5
JMS I FPUTM

U75
4757
4451
4535
1172
4534
1175
4762
4451
4760
1172
4535
1175
4764
4535
1172
4756
4462
4757
4457
4756
1172
4757
4454
4756
1175
4762
4465
4535

FPPTM2
JMS I FGETM
FPPTMl
JMS I FSU8M
SQRP5
JMS I FOIVM
FPPTM2
JMS I FPUTM
FPPTMl
JMS I FSQRM
JMS I FPUTM
FPPTM2
JMS I FMPYM
L0GC5
JMS I FADOM
L0GC3
JMS I FMPYM
FPPTM2
JMS I FAODM
LOGCl
JMS I FMPYM
FPPTMl
JMS I FSUBM
ONtHAF
JMS I FPUTM

/X<0 OR X«0?
/YES-TAKE ILLEGAL ARGUMENT TRAP

/NO-HORD»2000?
/YES-EXP»17

/YES-LORO»0?
/NO-ARG IS LEGAL AND NOT

/YES-LOG(1)«0
/SAVE EXPONENT FOR LATER
/ISOLATE MANTISSA IN FAC
/SAVE F

/F*SQR(.5)
/SAVE

/F-SQRC,S)

/Z»FtS0R(,5)/F-S0R(.5)

/Z**2

/C5(Z**2)

/C3*C5(Z**2)

/C3(Z**2)*C5CZ**4J

/C1*C3(Z**2)*C5(Z**4)

/C1(Z)*C3CZ**3)*C5(Z**51

/ClCZ)*C3(Z**3)*C5{Z**5)-l/2aL0G2CF)
/SAVE L0G2(F)

•

•
/08/8 BA81C RUNTIME SYSTEM

04345
04346
04347
04350
04351
04352
043S3
04354
04355
04356
00357
04360
04361
04362
04363
04364
04365

1172
1200
3044
4541
4757
1172
4756
4470
5663

4263
5600
6000
5722
5412
6117
5400
6347
6360
0134
0141
0135

PAL6-V7

FPPTM2
TAO GTFLG
DCA EXP
JM8 1 FLOATM
JMS I FAOOM
FPPTM2
JMS I FMPVM

10/2a/72

/SET UP FLOAT

/I*L0G2(F)

/tI*L0G2(FJJ*L0GEta)»L0GECX)

I.N2

JMP

FMPVM,
FAODM,
FDIVM,
FOIVIM,
FSUBM,
FSUBIM,
FSQRM,
ARTRAP,

LOG

GT1FLG«L0G
FFMPV
FFADO
FFOIV
FFDIVl
FF8UB
FFSUBl
FF8Q
LM

FGETMiFGETL
FLOATMs FLOATU
FPUTM«FPUTU

PAUE 63-1

/FAC»LN(X)

/08/fl

BASIC RUNTIME SYSTEM

PAUB-VT

10/24/72

PAGE 64

/CONSTANTS USED BY VARIOUS FUNCTIONS
04366
04367
04370
04371
04372
04373
04374
04375
04376
04377
04400
0440t
04402
04403
04404
04405
04406
04407
04410
04411
044)2
04413
04414
04415
04416
04417
04420
04421
04422
04423
04424
04425
04426
04427
04430
04431
04432
04433
04434

0443S
04436
04437
04440
04441
04442
04443
04444
04445
04446
04447
04450
04451
04452

0001
3110
3747
0000
5325
1167
7775
2426
2466
7771
5610
3164
0001
3110
3756
0001
2705
2434
7777
2613
4415
0006
3602
7054
0012
5514
3104
0004
3001
7301
7776
2626
6157
0002
3553

SINAI,

/•, 64592098

SINA3)
SINAS,
5INA7,
PI0V2,

5325
1167
7775
2426
2466
7771
5610
3164
I

L0G2E,

2705
2«34
LN20V2I 7777
2613
4415
EXPBl,
6
3602
7054
EXPAl,
12
5514
3104
EXPA0,
4
3001
7301
ATANBOr 7776
2626
6157
ATANAli 2
3553

1071

ATANHli 3
3303
670
ATANA2, 3
4344
5267
ATANB2, 2
3241
7554
ATANA3I 7777
5703
4040
ATANB3i 1
2713
3140
SORPS,
2650

5703
4040
0001
2713
3140
0000
2650

/.0794B766
/-. 004362476

/I, 5707963

3110
3756

0003
3303
0670
0003
4344
5267
0002
3241
7554
7777

/I. 5707949

3110
3747

/I, 442695
/. 34657359

/60. 090191
/••601. 80427

/12, 015017
/. 17465544

/3. 7092563

/6. 762139

/-7, 10676

/3. 3163354

/., 26476862

/I, 44863154

/. 7071068

•

#
/08/8 BASIC RUNTIME SYSTEM

04453
04454
04455
04456
04457
04460
04461
04468
04463
04464
04465
04466
04467
04470
04471
04472

1170
0002
2705
2440
0000
3661
0566
0000
2312
5525
0000
2000
0000
0000
2613
4415

4000
4053
4200
4263
4120

PAI.8-V7

10/24/72

1170
LOGCl,

/2, 8653913

2705
2440
1.06C4,

/. 9614706

3661
566

10GC5,

/. 59897665

2312
5525
ONEHAF,

/.5

2000
LN2,

/, 6931472

2613
4415

FFSIN • SIN
FFCOS COS
FFATNilATAN
FFLOGiLOG
FFEXPilEXPONl

PAGE 64-1

/OS/8 BASIC RUNTIME SYSTEM

PAUB-W7

l0/5«/72

PAGE 65

««5ee

4900

/**o***FIX***«**
/ROUTINE TO FIX ANT FLOATING NUMBER IN FAC BETWEEN -2047 AND
/A TWEUVE BIT INTEGER AND LEAVE RESULT IN EXP (LOC 44)
04S00
04S01
04502
04S03
04504
04S0S
04S06
04507
04510
04511
04512
04513
04514
04515
04516
04517
04520
04521
04522
04523
04524
04525
04526
04527

0000
7200
1044
7540
5307
7200
5326
1330
7450
5325
7500
5732
3044
7100
1045
7510
7020
7010
3045
2044
5315
1045
3044
5700

FFIX»

04530
04531
04532

7765
0013

-13
M13»
C13.
13
OTRAPAi FO

1637

CLA
TAD EXP
SZA SMA
JMP ,*3
FTRPRTi CLA
JMP FlXDNE+1
TAD M13
SNA
JMP FIXDNE
SMA
JMP I OTRAPA
OCA EXP
FIXLP»
CLL
TAD HORD
SPA
CML
RAR
OCA HORD
ISZ EXP
JMP FIXLP
FIXDNE, TAD HORD
OCA EXP
JMP I FFIX

SPa?

/FETCH EXPONENT
/IS NUMBER «1?
/NO-CONTINUE ON

/YES-FIX IT TO ZERO
/SET BINARY POINT AT II
/PLACES TO RIGHT OF CURRENT POINT?
/NO-NUMBER IS ALREADY FIXED THEN,
/YES-IS NUMBER TOO LARGE TO FIX?
/YES-TAKE OVERFLOW TRAP
/NO-SET SCALE COUNT
/0 IN LINK
/GET HIGH MANTISSA
/IS IT «0?
/YES-PUT A I IN LINK
/SCALE RIGHT
/SAVE
/DONE YET?
/NO

/YES-ANSWER IN AC
/RETURN WITH ANSWER IN 44
/RETURN

/-U DECIMAL
/ll DECIMAL
/ADDRESS OF VECTOR FOR OVERFLOW TRAP

/***** AFLOAT******
/ROUTINE TO FLOAT ANY INTEGER IN EXP (LOC 44) INTO FAC

04533
04534
04535
04536
04537
04540
04541
04542

0000
1044
3045
3046
1331

3044
4536
5733

FFLOATf
TAD
OCA
DCA
TAD
OCA
JMS
JMP

EXP
HORD

LORD
C13
EXP
I FNORL
I FFLOAT

/PUT NUMBE ) IN HI MANTISSA
/CLEAR LOW MANTISSA
/11(10J IN rO EXPONENT

/NORMALIZE
/RETURN

#
/OS/8 BASIC RUNTIME SYSTEM

PAJ.8-V7

10/24/72

PAGE 66

/RANDOM NUMBER GENERATOR
04543
04544
04545
04546
04547
84550
04S51
04552
04553
04554
04555
04556
04557
04560
04561

3762
1762
7110
3045
3044
7010
3046
3041
4536
5513

04562
04563

2346
0073

0000
1762
3042
1363

RND,

TAO
OCA
TAO
JMS
OCA
TAD
CLU
OCA
OCA
RAR
OCA
OCA
JMS
JMP

4521

I RSEEOL
TEMP3
K73
I MPYLNK
I RSEEDL
I RSEEDL
RAR
HORO
EXP

LORD
ACl
I

RSEEOLr RSEED
K73,

FNORL
ILDOPL

/GET SEED
/PUT IN MULTIPLY OPERAND

fX^^t t^f /
/MULTIPLY SEED BY 73
/USE LOW ORDER 12 BITS AS NEW SEED
/LOW ORDER OF PRODUCT ALSO SERVES
/AS RANDOM NUMBER
/SET SIGN TO a AND STORE AS HORD
/USE 12 BITS AS MANTISSA
/CLEAR FPP OVERFLOW
/AND NORMALIZE
/DONE

/OS/8 BASIC RUNTIME SYSTEM

PALfl-VT

10/24/72

PAGE

i>J

/////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////
////////////// OVERLAY 2- STRING FUNCTIONS /////////////////
/////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////
0001

1000^
__„,—-"'

3400

FIELD I
*20e0
NOPUNCH
•OVERLAY
ENPUNCH
IFNZRO EAE
NOPUNCH

/CMRS FUNCTION
/RETURNS I CHAR STRING FOR THE VALUE OF

ii
13400
13401
13402
13403
13404

mzi
13406

0000
4S14
4544
3621
7040
3032
5326

CHR,

JMS I INTL
JMS I BSWL
OCA I SACL
CMA
OCA STRLEN
JMP RETMOO

/FIX X TO 12 BIT INTEGER
/TREAT THE RIGHTMOST 6 BITS AS CHAR
/ANO PUT INTO SAC
/SET SAC LENGTH TO 1
/SET TO SMODE ANO RETURN

/ASC FUNCTION
/RETURNS DECIMAL ASCII FOR

13407
13410
13411
13412
13413

0000

CHAR STRING IN FAC

ASC»

TAO I SACL
JMS I BSWL
ANO K0077
JMP I FLOATS

1621

4S44
0075
5620

/GET FIRST TWO CHARS OF STRING
/WE WANT LEFT CHAR
/SO ISOLATE IT
/FLOAT RESULT INTO FAC ANO RETURN

/LEN FUNCTION
/RETURNS LENGTH OF SAC IN FAC
13414
13415
13416
13417

0000
1032
7041
5620

LEN,

13420
13421

4144
0321

FLOATBi FLOATS
SAC
SACLf

TAD STRLEN
CIA
JMP I FLOATS

/LENGTH OF STRING IN SAC
/MAKE POSITIVE
/FLOAT RESULT AND RETURN

«
/OS/8 BASIC RUNTIME SYSTEM

PAUe-VT

10/24/73

PAGE 68

/STR* FUNCTION
/RETURNS ASCII STRING FOR NUMBER IN FAC
1S422
13023
13424
13425
13426
13427
13430
13431
13432
13433
13434
13435
13436
1343T
13440
13441
13442
13443
13444
13445
13446
1344T
134S0
13451
13452
13453
13454
13455

0000
4657
3032

13456
1345T
13460
13461

7616
1260
0240
7525

STR,

7101

IIU
4526
4S60
2061
1461
1261

7640
5240
1260
3461
2061

STSLP,

1461
1055

7450
5326
1256
7650
5240
1461

4530
7240
1032
3032
5240

MCRMAL»
ASCOLK,
CCC240,
MINUSP,

JMS I ASCOL.K
DCA STRLEN
CLU lAC
TAD SACPTR
JMS I STNINL
JMS 1 STHRST
ISZ TEMP10
TAD I TEMP10
TAD MINUSP
SZA CL.A
JMP STSLP
TAD CCC240
DCA I TEMP10
ISZ TEMP10
TAO I TEMP10
TAD M215
SNA
JMP RETMOO
TAD MCRMAL
SNA CLA
JMP STSLP
TAO I TEMPIB
JMS I 8TH
CLA CMA
TAD STRLEN
OCA STRLEN
JMP STSLP

7616
ASCOUT
240
-253

/GET ASCII FOR FAC INTO INTERMEDIATE BUFFER
/ZERO FAC

/INITIALIZE STH TO SAC
/SET OF TO STH TO
/MOVE PAST LEADING SPACE
/GET SIGN OF NUMBER
/IS IT ""

/NO-IT IS "-" SO LEAVE IT ALONE
/YES-REPLACE IT WITH A SPACE
/BUMP POINTER
/GET CHAR FROM INTERMEDIATE BUFFER
/IS IT CR?

/YES-RETURN IN SMOOE
/IS IT ALTMODE?
/YES-IGNORE IT
/NO-GET CHAR AGAIN
/PUT IN SAC

/"BUMP" SAC COUNTER"

/OS/6 BASIC RUNTIME SYSTEM

PAU8-VT

10/24/72

PAGE

<»9

/VAU FUNCTION
/RETURNS NUMBER IN F*C FOR STRING IN SAC
13462
13463
13464
13465
13466
1346T
13470
13471
13472
13473
13474
13475
13476

3700
4677
1302
3700
5513

13477
13500
13501
13502

5200
5350
4554
4542

FFINUK,
INPTCL,
STCGTJr
GETCHG,

13503
13504
13505
13506
13507
13510
13511
13512
13513
13514
13515
13516
13517
13520
13521
13522

0000
1222
7650
5323
4531
3053
1053
1106
7710
1076
1077
1053
3053
2222
7000
5703

VA|.GET»

13523
13524
13325

1054
3053
5703

ENVAUi

3422

VALCNT" STR

7001

RETNODf

13526
13527
13530

•

0000
7101

VAL,

CLL
TAD
JMS
JMS
TAD
DCA
TAD
DCA
JMS
TAD
DCA
JMP

nil
4527
4557
1032
3222
1301

3063
5513

lAC

SACPTR
I LDHINL
I LOHRST
STRLEN
VALCNT
STCGTJ
I INPTCL
I FFINUK
GfTCHG
I INPTCL
ILOOPL
I

/INITIALIZE LOH TO SAC
/COUNT OF CHARS TO INPUT
/JMS TO VALGET
/PUT IN INPUT ROUTINE IN PLACE OF KR8
/CALL FPP INPUT ROUTINE
/JMS TO GETCH
/RESTORE IN INPUT ROUTINE
/DONE

FFIN
INPUT+1
JMS I VALIK
JMS I GETCHL
TAD VALCNT
SNA CLA
JMP ENVAL.
JMS I LOH
DCA CHAR
TAD CHAR
TAD KM40
SPA CLA
TA[ K0100
TAD K200
TAD CHAR
OCA CHAR
I8Z VALCNT
NOP
JMP I VALGET
)

/GET # OF CHARS LEFT
/ANY MORE?
/N0"5END A CR TO FPP INPUT ROUTINE
/YES-HET CHAR
/SAVE

/SUBTRACT 40
/IS CHAR <40?

/YES-IT IS IN 300 SERIES
/TURN ON PARITY BIT
/BUILD a BIT CHAR

/DECREASE COUNT
/RETURN WITH CHAR IN AC

TAD K215
DCA CHAR
JMP I VALGET

lAC
DCA MOOESW
JMP I ILOOPL

/SET TO STRING MODE

/RETURN

/08/9 9ASIC RUNTIME SYSTEM

PA|.S"V7

10/24/72

PAGE 70

*2200
NOPUNCH

2200

*OVERl.AY*200

$(»00

ENPUNCH
IPNZRO EAE
NOPUNCH

/DATE FUNCTION
13600
13601
13602
13603
13604
13605
13606
13607
13610
13611
13612
13613
13614
1S61S
13616
13617
13620
13621
13622
13623
13624
1362S
13626
13627
13630
13631
13632
13633
13634
1S63S
13636
13637
13640
13641
13642
13643
13644
13645
13646
13647
13650
13651
136S2
13653

0000
1020
3203
3603

DATEi

TAD CDflO
DCA .*1
TAD PSFLA6
CUL RAL
8NL CLA
JMP N7666
TAD I L7466
OCA TEMPI
JMP OATCOM

1031
7104
7620
5213
1667
3040
5215

1670
3040
1040
7640
1276
3032
6201

nil
3015
1040
7106
7006
7004
0074
4260
3415
1040
7112
7010
0271
4260
4544
3007
1007
0075
1274
3415
1007

0104
1273
3415
1040
0275

N7666,
DATCOMi

TAD I 1.7666
DCA TEMPI
TAD TEMPI
SZA CUA
TAD KKM10
OCA 8TRLEN
COP
TAD 8ACPTR
DCA XR5
TAD TEMPI
CtU RTt
RTL
RA(.

AND
JMS
DCA
TAD
CLU
RAR
AND
JMS
JMS
DCA
TAD
AND
TAD
DCA
TAD
AND
TAD
DCA
TAD
AND

K0017
A8C0N
I XR5
TEMPI
RTR

K0037C
ASCON
I 8SWL
TEMP2
TEMP2
K0077
K5700
I XR5
TEMP2
K7700
K0057
XR5
I
TEMPI
K0007C

/CDF TO FIELD THAT 17600 SITS IN
/OF TO 17600 FIELD
/GET RESIDENT STATUS FLAG
/TD8/E BIT TO LINK
/IS P6 17600 AT N7400?
/NO-GET DATE FROM N766fc
/VES-GET DATE
/SAVE

/SAVE
/GET DATE AGAIN
/IS IT EMPTY?
/NO-SET STRING COUNT TO 6
/YES-RETURN NULL STRING

/POINTS TO SAC

/MONTH TO BITS 8-11
/ISOLATE
/CONVERT TO ASCII
/PUT IN SAC
/DATE
/DAY TO BITS7-11
/ISOLATE
/CONVERT TO ASCII
/SWAP DIGITS
/DAY DIGIT 1
/»/N»
/PUT IN STRING
/DAY DIGITS AGAIN
/DAY DIGIT 2
/"N/"
/ADD TO STRING
/DATE
/YEAR

•

/OS/8 BASIC RUNTIME SYSTEM
13654
13655
13656
13657

4260
1272
341S
566S

13660
13661
1366a
13663
13664

0000
1266
3042
1442
5660

ASCON,

1366S
13666
13667
13670
13671
13672
13673
13674
13675
13676

3526
4525
7466
7666
0037
0700
0057
5700
0007
7770

RETMOU*
DATABAf
L7466,
L7666,
K0037C*
K0700,
K00S7,
K5700,
K0007C>
KKM10,

JMS ASCON
TAD K0700
DCA I XR5
JMP I RETMDL
TAD OATABA
OCA TEMP3
TAD I TEMP3
JMP I ASCON

PALS-Vr

10/2«/72

PAGE 70.1

/"7N"
/FINISH OFF STRING
/RETURN IN SMOOE

/AOOR OF DATE TABLE
/POINTER TO RIGHT SET OF DIGITS
/GET TWO ASn DIGITS FROM TABLE

RETMOD
OATTAB-l
7466
7666
37

700
57

5700
7

-10

/OS/ft BASIC

RUNTIME SYSTEM

FA1.8-V7

10/24/73

PAGE 71

/TRACE FUNCTION PRINTER, WHEN TRACE IS ENABLED, THIS ROUTINE
/PRINTS THE LINE # EACH TIME IT IS STORED

0000

13*77
13700
13701
13702
13703
1370a
13705
13706
13707
13710
13711
13712
13713
13714
13715
13716
13717
13720
13721
13722
13723
13724
13725
13726
13727
13730
13731
13732
13733
13734
13735
13736
13737
13740

4741
1342
4522
1347
4522
1345
3015
1415
3277
1346
1277
7650
5307
1277
105S
7650
5326
1277
4522
1415
3277
5315
1347
4522
1342
4522
1343
4522
1344
4522
4510
5336
5513

13741
13742
13743
13744
13745
13746
13747

4067
0245
0215
0212
4133
7520
0240

TPRINTf

I6S,

PREST,

TDONE,

JM8 I LMAKEL
TAD KEX
JM8 I XPUT
TAD CC240
JM8 I XPUT
TAD 0I61A
OCA XR5
TAD I XR5
OCA TPRINT
TAO MM260
TAO TPRINT
SNA CLA
JMP IGS
TAD TPRINT
TAD M215
SNA CLA
JMP TDONE
TAO TPRINT
JMS I XPUT
TAO I XR5
OCA TPRINT
JMP PREST
TAD CC240
JMS I XPUT
TAD KEX
JMS I XPUT
TAO CCR
JMS I XPUT
TAO CLF
JMS I XPUT
JMS I PRINT
JMP .-1
JMP I ILOOPL

LMAKEL, LMAKE
KEX,
245
CCR,
215
CLF»
212
DIGlAi
0161-1
MM260,
-260
CC240,
240

/MAKE LINE # INTO FIVE DIGITS
/PRINT "X"

/PRINT A SPACE
/AOOR OF FIRST OIGIT-1
/IN KR5
/GET DIGIT OF LINE NUMBER
/SAVE IT

/COMPARE IT TO
/IS IT

/YES-IGNORE LEADING ZEROES
/NO-GET CHAR AGAIN
A CR?
/YES-LINE NUMBER IS PRINTED
/NO-GET CHAR A THIRD TIME
/TYPE IT
/GET NEXT CHAR

/IS IT

/AND LOOP

/FOLLOW LINE

WITH A SPACE

/TYPE ANOTHER "X"

/TYPE,CR,LF
/EMPTY RING BUFFER OF TRACE NUMBER
/DONE

/08/8 BASIC RUNTIME SYSTEM

PALfl-V7

10/24/72

PAGE 72

*a4B0 %
NDFtTNCM

«OVERLAY4'40e

ENPUNCH
IfHlKO EAE
NOPUNCM

/TRACE FUNCTION-ROUTINE TO TURN TRACE ON AND OFF
TRACE,

14000
14001
14002
14003
14004
1400S
14006

0000
1045
76S0
S210
1212
3607
5513

TAO HORO
SNA CLA
JMP TOFF
TAD KNOP
OCA I HOOKL
TRRESTi JMP I ILOOPL

14007

1144

HOOKU)

TRHOOK

14010
14011

1206
5205

TOFF»

TAD TRREST
JMP TRREST-l

14012

7000

KNOPi

7000

/GET HI MANTISSA OF ARG
/WHICH?
/FOR 0,TURN TRACE OFF
/TURN TRAC ON
/BY NOP ING INSTRUCTION AT TRHOOK

/TURN OFF TRACE
/BY RESTOREING JMP TO TRHOOK

/ERROR ROUTINE
14013
14014
14015
14016
14017
14020
14021
14022
14023
14024
14025
14026
14027
14030
14031
14032
14033
14034
14035
14036
14037
14040
14041
14042
14043
14044

0000
4510
5214
1354
3014
1414
3040
1040
4544
0075
1266
3321
1040
0075
1266
3322
1414
1657
7640
5220
4267
1343
3015
1415
7510
5247

ERRORRf
JMS I PRINT
JMP .-1
TAO ETABA
DCA XR4
FERRUPi TAO I XR4
OCA TEMPI
TAD TEMPI
JMS I BSWL
AND K0077
TAD K0300
DCA ESTRNG
TAD TEMPI
AND K0077
TAO K0300
OCA ESTRNG+1
TAD I XR4
TAO I ERRET
SZA CiA
JMP FERRLP
JMS LMAKE
TAO ESTRA
OCA XR5
ETLOP,
TAD I XR5
SPA
JMF FATCHK
'

/PURSE TTY RING BUFFER
/BEFORE PRINTING ERROR
/ADOR OF ERROR TABLE
/POINTS INTO ERROR TABLE
/GET 2 CHAR ERROR CODE
/SAVE

/FIRST CHAR TO RIGHT
/STRIP TO 6 BIT
/MAKE e BIT (LETTERS ONLY ALLOWED)
/PUT IN MESSAGE
/2 CHAR CODE AGAIN
/SECOND CHAR
/MAKE LETTER
/PUT IN MESSAGE
/GET ERROR CODE +1
/COMPARE AGAINST RETURN ADORESS
/MATCH?
/NO-TRY NEXT ONE
/MAKE THE LINE # INTO DECIMAL DIGITS
/ADOR OF MESSAGE
/GET MESSAGE CHAR
/DONE? (MESSAGE ENONS WITH
/YES-DETERMINE ERROR TYPE

NUMBER

•
/OS/a BASIC RUNTIME SYSTEM
JM8 I XPUT
JMP ETLOP

14045
14046

4522
5242

14047
14050
14051
14052
14053
14054
14055
14056

7200
16S7
3213
1355
1014
7700
5613
5660

FATCHK, CLA
TAD I ERRET
DCA ERRORR
TAD MPATAC
TAO XR4
SMA CLA
JHP I ERRORR
JMP 1 STOP!

14057
14060

1460
0561

ERRETi
8T0PI,

14061
14062
14063
14064

0000
0074
1265
5661

MAKED,

14065
14066

0260
0300

K260I
K0300I

PAU8-V7

10/24/72

PAGE 72-1

/NO-PUT OMAR IN RING BUFFER

/GET RETURN ADDRESS
/AND STORE IT
/-ADDR OF FATAL ERRORS
/ADDS OF THIS ERROR
/FATAL ERROR?
/NO-NEXT INST
/YES-TERMINATE RUN

ERRDIS
PSTOPN.

AND K0ei7
TAD K260
JMP I MAKED

260
300

/ISOLATE BCD DIGIT
/MAKE ASCII DIGIT

/OS/a BASIC RUNTIME SYSTEM

PAL8-V7

l0/2i(/73

PAGE T5

/SUBf<OUTINE LMAKE-MAKE5 THE CURRENT LINE NUMBER INTO FIVE DIGITS
/STARTING AT DIG!

H0fc7
laere

uan

14072
14073
14074
14075
14076
14077
14100
14101
14102
14103
14104
14105
14106
14107
14110
14111
14112
14113
14114
14115
14116

0000
106S
4261
3335
106S
7112
7012
4261
3334
1066
4261
3340
1066
7112
7012
4261
3337
1066
7104
7006
7006
4261
3336
5667

LMAKE,
TAD LINEHI
JMS NAKED
DCA DIG2
TAD tlNEHI
CLL RTR
RTR
JMS NAKED
DCA OIGl
TAD UlNELO
JMS NAKED
OCA DIGS
TAD UlNELO
CUL RTR
RTR
JMS NAKED
OCA DIG4
TAO LINEUO
CLL RAL
RTL
RTL
JMS NAKED
DCA DIG3
JMP I LMAKE

/VE8IGET HI UlNE
/GET DIGIT 2
/PUT IN MESSAGE

/GET DIGIT 1
/AND PUT IN MESSAGE
/DOGOTS i,H, AND S
/GET DIGIT 5

/GET DIGIT 4
/AND PUT IN MESSAGE

/GET DIGIT 3
/MESSAGE NOW COMPLETE

#
PAU8-Vr

/QS/8 BASIC RUNTIME SYSTEM

10/24/72

PAGE 74

/ERROR MES8A6E
iftiiT

14120
14121
14122
14123
14124
14125
14126
14127
14130
14131
14132
14133
14134
14135
14136
14137
14140
14141
14142
14143

0215
0212
0000
0000
0240
0301
0324
0240
0314
0311
0316
0305
0240
0000
0000
0000
0000
0000
0215
0212
4116

EME8S,

215
212
ESTRNGf 0000
0000
240
301
324
240
314
311
316
305
240
OIGlf
0I62»
DIG3r
DI64,
0I65»
215
212
ESTRA,
EMESS-l

/A
/T

/U
/I
/N
/E

/MINUS NUMBER TO END ABOVE ME

/ROUTINE TO FLOAT FAC AND RETURN
14144
14145
14146
14147
14150
14151
14152
14153

3045
3046
3007
1353
3044
4536
5513
0013

FUOATSi DCA
OCA
OCA
TAO
OCA
JHS
JMP
CC13,
13

HORD
UORD
TEMP2
CC13
EXP
I FNORL
I

lUOOPL.

/NUMBER TO BE FLOATED IN HORO
/CLEAR LORD
/CLEAR FPP OVERFLOW
/SET EXP TO 11

/NORMALIZE
/RETURN

PAUS'-vr

/OS/8 BASIC RUNTIME SYSTEM

/ERROR TABLE
/ENTRY FORMAT/

uiss
14156

U157
14160
14161
14162
14163
14164
14165
14166
1416T
14170
14171
14172
14173
14174
14175
14176
14177
14200
14201
14202
14203
14204
14205
14206
14207
14210
14211
14212
14213
14214
14215
14216
14217
14220
14221
14222
14223
14224

4155
3524
0602
3765
0722
1240
2622
4774
2325
7154
0405
7220
0506
7217
1705
6264
0615
6153
0617
6140
0616
5772
2303
5545
0611
5470
0401
5461
0723
5442
2322
4647
2327
4515
2001
3362
0603
4336
0311
4155
0314

ETABA,
ETAB-1
MFATAL» -EFATAL
ETAB,
0602
-FB-l
0722
-GR-1
2622
-VR-1
2325
-8U-1
0405

i7-i
\T^4s«^h

14230
14231
14232
14233
14234

PAGE 75

CHA« 6-BIT ERROR CODE (LETTERS ONLY)
•(AOOR OF CALL)-l

/F8

/ATTEMPT TO OPEN AN ALREADY OPEN FILE
/GR

/RETURN WITHOUT

GOSUB

/VR

/ATTEMPT TO READ VARIABLE LENGTH FILE
/SU

/SUBSCRIPT ERROR
/OE

i>DE-l

/DEVICE DRIVER ERROR

0506
-EF-1
1705
• 0E»1
0615
-FM-1
0617
-FO-1
0616
-FN-1
2303
• SC-1
0611
-Fl-1
0401
-DA-1
0723
-GS-1
2322
-SR-1
2327
-SW-1
2001
-PA-1
0603
-FC-1
0311
-CI-l
0314

/EF

/LOGICAL EOF
/OE

/DRIVER ERROR WHILE OVERLAYING
/FM

/ATTEMPT TO FIX MINUS NUMBER
/FO

/ATTEMPT TO FIX NUMBER >4095
/FN
/ILLEGAL FILE «
/5C

/ATTEMPT TO OVERFLOW SAC ON CONCATENATE
/FI

/ATTEMPT TO CLOSE OR USE UNOPENED FILE
/DA

/ATTEMPT TO READ PAST END OF DATA LIST
/GS
/TOO MANY NESTED GOSUBS
/SR
/ATTEMPT TO READ STRING FROM NUMERIC FILE
/SM
/ATTEMPT TO WRITE STRING INTO NUMERIC FILE
/PA
/ILLEGAL ARG IN POS
/FC
/OS/8 ERROR WHILE CLOSING TENTATIVE FILE
/CI

/INQUIRE FAILURE IN CHAIN
/CL

/LOOKUP FAILURE IN CHAIN

14J25...^ilAli.»„

ti4226

10/2«/72

ViN

_J44*—

/tN#U«E FA^rtOTT'TN OPEN
0417
3722
0605
3665
0217

0417
.00-1
0605
-FE-1
0217

/DO
./NO MORE ROOM FOR ORIVtRS
/FE
/FETCH ERROR IN OPEN
/BO

.^
iS **
.,

. ^> ,.
i^^

^
,

/OS/8 BASIC RUNTIME SYSTEM
14135
14136
14237
14240
14241
14242
14243
14244
14245
14246
14247
14250
14251
14252
14253

3562
0516
3470
1106
3353
2314
7252
1726
1423
1415

14254
14255
14256
14257
14260
14261
14262
14263
14264
14265

2205
4767
2705
4745
0426
1422
2324
5333
1117
1103

1417
0515
4162
1101

6312

•BO-l
0516
-ENol
1106
-IF-l
2314
-SL-1

PAL8-V7

10/24/72

PAGE 75-1

/NO MORE FILE BUFFERS AVAILABLE
/EN
/ENTER ERROR IN OPEN
/IF

/ILLEGAL DEVlFILENAME SPECIFICATION
/SL

/STRING TOO LONG OR UNDEFINED
/OV
1726
/NUMERIC OR INPUT OVERFLOW
>O0*1
/LM
1415
/ATTEMPT TO TAKE LOG OF NEG » OR
-LM-1
/EM
0515
/ATTEMPT TO EXPONENTIATE A NEG NUMBER TO
.EM-1
/lA
1101
/ILLEGAL ARGUMENT IN USER FUNCTION
-IA-1
/***«*ili*****«****************i»**«*«*t««[*******ilr*****t**«****
/ERRORS BEFORE THIS LABEL ARE FATAL
EFATAL*
/*****«********************ilr****«*************t*******t*
/RE
2205
/ATTEMPT TO READ PAST EOF
«RE»l
/WE
2705
/ATTEMPT TO WRITE PAST EOF
•WE-l
0426
/DV
/ATTEMPT TO DIVIDE BY
-DV-1
/ST
2324
/STRING TRUNCATION ON INPUT
•ST-1
1117
-lO-l

/lO
/TTY INPUT BUFFER OVERFLOW

REAL ROWER

/OS/8 BASIC RUNTIME SYSTEM

PAL8-VT

10/24/72

PAGE 76

/sees FUNCTION
/RETURNS SEGMENT OF XS BETWEEN Y AND
/IF Y<»0,THEN Y TAKEN AS I
/IF Y»LEN(XS),NULL STRING RETURNED
/IF l*'e,mLL STRING RETURNED
/IF 2>1.EN(X$),Z IS 5ET»LEN(X$)
/IF Z«Y,NU1.L STRING IS RETURNED
14266
14267
1«270
14271
14272
14273
14274
14275
14276
14277
14300
14301
14302
14303
ia304
14305
14306
14307
14310
14311
14312
14313
14314
14315
14316
14317
14320
14321
14322
14323
14324
14325
14326
14327
14330
14331
14332
14333
14334
14335
14336
14337
14340
14341
14342
14343

0000

SEG*

7001
3063
1045
7740
5276
4534
4476

lAC
OCA MODESW
TAB HORO
SMA SZA CLA
JMP ,*3
JMS I FGETL
ONCl
JMS I FPUTL
FPPTMl
JMS I INTL
TAD STRtEN
SMA SZA CLA
JMP NULLST
OCA INSAV
JMS I ARGPLK
JMS I FGETL
ARGPLK, ARGPRE
TAD HORO
SPA SNA CLA
JMP NULLST
JMS I INTL
TAD STHLEN
SPA CLA
JMP ZMINV
OCA LORD
TAD KK13
OCA EXP
TAD STRLEN
CIA
OCA HORO
JMS I FNORL
JMS I ARGPLK
JMS I FPUTL
KK13,
13
ZMINY,
COF
JMS I FGETL
FPPTMl
JMS I ARGPLK
JMS 1 FISUBL
COF000, CDF
TAO HORO
SPA CLA
JMP NULLST
JMS 1 INTL
CMA

4535
1175
4514
1032
7740
5365
3064
4707
4534
0307
1045
7750
5365
4514
1032
7710
5331
3046
1330
3044
1032
7041
3045
4536
4707
4535
0013
6201
4534
1175
4707
4767
6201
1045
7710
5565
4514
7J

/RETURN IN STRING MODE
/IS Y>0?
/YES
/NO-SET
/SAVE
/FIX

Y
Y

/COMPARE TO STRLEN
/Y>LtNCXS)?
/YES-RETURN THE NULL STRING
/FAKE POINTER TO SCALAR #0
/GET ADOR OF Z
/LOAD Z INTO FAC
/LOC SKIPPED BY FPP SO WE PUT CONST HEHF
/HI MANTISSA OF Z
/IS Z«0?
/YES-RETURN THE NULL STRING
/NO-FIX Z
/COMPARE TO STRING LENGTH
/Z<«LEN(X$)
/Z>LEN{X$) SO SET ZaLENCXS)

/MAKE LENGTH POSITIVE

/FLOAT LENGTH
/SAVE NEW
/LOAD

/GET AODR OF
/Z-Y

/GET HI ORDER Z-Y
/IS Y<Z?
/NO-RETURN NULL STRING
/FIX Z-Y
/ADO ONE AND NEGATE

/OS/S BASIC RUNTIME SYSTEM

7101
4526
4560
3032
5770

OCA STRCNT
JMS I P6ETU
FPP7M1
JM8 I INTl
CLl RAR
8ZL
lAC
CML
TAO 8ACPTR
JMS I LDHINL
JM8 I CDMR5T
TAD SACPTR
CLU I*C
JMS I STNINL
JMS I 8THRST
OCA 8TRLEN
JMP I SEGCML

14365
14366

3032
5513

NULLSTi OCA 8TRLEN
JMP 1 ILOOPL

14367
14370

S400
2222

PISUBLf PPSU81
SEGCML, SEGCOM

ia3«a
t434S
l«3a6

3071
4534

lAlttT

4514
7110
7430
7001
7020

14350
143S1
14358
14353
14354
14355
14356
14357
14360
14361
14362
14363
14364

UTS

nil
4527
4557

nil

PA1.8-V7

10/24/72

PA6E

7fe-l

/STORE AS SEG UEMGTH

/RETRIEVE Y AGAIN
/FIX Y
/DIVIDE BY TWO

/USE Y/2 AS DISPLACEMENT FROM START OF SAC
/INITIALIZE LOH

/INITIALIZE STH TO SAC
/ZERO SAC
/USE CODE IN CONCATENATE TO 00 THE REST
/ZERO SAC
/RETURN

PAL8-V7

/OS/8 BASIC RUNTIME SYSTEM

l0/2tt/ra

PACE T7

• 3000
NOPUNCH

*OVERtAy<fl00e

4400

EWPUNCH
IFNZHQ EAE
NOPUNCH

/POS FUNCTION
/RETURNS THE POSITION IN X$ OF V$ STARTING AFTER
14400
14401
14402
14403
14404
1440S
14406
14407
14410
14411
14412
14413
14414
1441S
14416
14417
14420
14421
14422
14423
14424
14425
14426
14427
14430
14431
14432
14433
14434
1443S
14436
14437
14440
14441
14442
14443
14444
144<lS

14446
14447
14450
14451
14452

0000
7100
3064
4704
3706
1071

7650
5273
1032
7650
5267
1045
7710
4516
4514
3301
1301
1032

7700
5215
1301

7110
7430
7001
7020

nil
3302
7620
7040
3303
1072
7101
4527
1032

3043
1071

3042
4307
4531
6201
7041
1040
7650

POS,

CLL
OCA INSAV
JMS I STFINK
OCA I LDHCOU
TAO 5TRCNT
SNA CUA
JMP ONERET
TAD STRLEN
SNA CLA
JMP ZRORET
TAD HORD
SPA CLA
JMS I ERROR
PA,
JMS I INTL
OCA POSITN
TAO POSITN
TAD STRLEN
SMA CLA
JMP PA
POSSETr TAO POSITN
cut RAR
SZL
lAC
CML
TAD SACPTR
OCA LOHPR
SNU CLA
CMA
OCA LOHPSW
TAO STRPTR
CLC lAC
JMS I LDHINL
TAO STRLEN
OCA TEMP4
TAD STRCNT
OCA TEMP3
JMS XOGET
SRCLPi
JMS I LOM
COF
CIA
TAD TEMPI
SNA CLA

/FAKE AS STRING CALL TO STRING
/FIND r$
/GET Y$ CHARS FROM OF N
/# OF CHARS IN Y$
/IS Y$ THE NULL STRING?
/YES-RETURN I AS POSITION
/N0-# OF CHARS IN XS
/IS XS THE NULL STRING?
/YES-RETURN
/NO-GET HORO OF Z
/IS Z>»0?
/NO-ILLEGAL ARGUMENT
/FIX Z
/USE IT AS POSITION TO START SEARCH

/COMPARE POSITION TO MAXIMUM LENGTH OF STRING
/Z IS PAST END OF STRING-ERROR
/SEARCH START POSITION IN X$
/DIVIDE BY 2

/USE AS DISPLACEMENT OFF START OF SAC
/POINTS TO NEXT CHAR FROM XS
/IF LINK«0,GET RIGHT HALF
/ELSE GET LEFT HALF

/BUMP PAST CHAR COUNT
/INITIALIZE LOH TO YS
/» Of CHARS IN X$
/COUNTER
/# OF CHARS IN Y$
/COUNTER
/GET CHAR FROM XS
/GET CHAR FROM Y$

/NEGATE CHAR FRON Y$
/COMPARE WITH CHAR FROM X$
/DO THEY MATCH?

•

#
/OS/8 BASIC RUNTIME SYSTEM
14453
14454
144S3
14456
14457
14460
14461

5262
2301

14468
14463
14464
14465
14466
14467
14470

2042
7410
5271
2043
S245
4537
5513

14471
14472

5705

14473
14474
14475

14476
14477
14500
14501
14502
14503
14504
14505
14506

1301
1032

7740
5267
5224

SCONTUf

PAL6-V7

10/24/72

PAGE 77-1

JMP aCONTU
I8Z POSITN
TAD POSITN
TAD STRLEN
SMA SZA CLA
JMP ZRORET
JMP POSSET

/VES-CONTINUE MATCH TO NEXT CHAR IN X$ AND V$
/BUMP POSITION TO BE CHECKED
/GET POSITION NOW CHECKING
/COMPARE AGAINST LENGTH OF STRING
/ANY MORE TO COME?
/NO-SEARCH FAILS
/YES-START COMPARING NEXT POSITION

ISZ TEMP3
8KP
JMP RETP08
ISZ TEMP4
JMP SRCLP

/MORE CHARS IN Y$?
/YES
/NO-MATCH SUCCEEOS-RETURN POSITN
/MORE IN X$?
/YES"CONTINUE MATCH
/NO-SEARCH FAILS-RETURN

ZRORET, JMS
JMP

FCLR
ILOOPL

I
I

RETPOS» TAD POSITN
JMP I FLOABL

/GET POSITION OF MATCH
/FLOAT RESULT AND RETURN

4534
4476
5513

ONERET,

0001
2000
0000
0000

ONEl

1301

1666
4144
2647

JMS I FGETL
ONEl
JMP I ILOOPL

INTO FAC

2000
POSITN,
LDHPH,
LOHPSW,
8TPINK, 8TFIND
FLOABL, FLOATS
LDHCOL, LDHDF

/ROUTINE TO GET SUCCESSIVE HALFWOROS FROM X$
14507
14510
14511
14512
14513
14514
14515
14516
14517
14520
14521
14522

0000
1303
7650
5323
1702
4544
0075
3040
1303
7040
3303
5707

14523
14524
14525

1702
2302
5315

XDCET,

XLCOM,

XDRITE,

TAD LDHPSW
SNA CLA
JMP XDRITE
TAD I LDHPR
JMS I BSWL
AND K0077
DCA TEMPI
TAO LDHPSW
CMA
DCA LDHPSW
JMP I XOGET

TAD

LDHPR

ISZ LDHPR

JMP XLCOM

/HALFWORD SWITCH
/LEFT OR RIGHT?
/RIGHT
/LEFT-GET CHARS
/SWAP BYTES
/ISOLATE CHAR
/SAVE
/HALFWORD SWITCH
/FLIP IT
/RETURN
/GET 2 CHARS
/BUMP POINTER TO NEXT WORD

/OS/8 BASIC RUNTIME SYSTEM

14Sa6
1*527
14S30

H531
14532
14533
14534
14S3S
14S36
14537
14540
14541
14542
14543
14544
14545
14546
14547
14550
14551
14552
14553
14554
14555
1455(>

14557
14560
14561
14562
14563
14564

6061
6062
6063
6064

6065
6066
6067
6070
6071
6160
6161
6162
6163
6164
6165
6166
6167
6170
6171
6260
6261
6262
6263
6264
6265
6266
6267
6270
6271
6360
6361

PA1.8-V7

l0/2a/72

PAGE 78

/DATE TABLE-USED TO CONVERT BINARY NUM9ERS<31 INTO ASCII CHARACTERS
/01
OATTABi 6061
6062
/02
6063
/03
6064
/04
6065
/05
/06
6066
6067
/07
/0fi
6070
/09
6071
6160
/10
6161
/ll
/12
6162
/13
6163
/14
6164
/15
6165
/16
6166
/17
6167
/IB
6170
/19
6171
6260
/20
6261
/21
6262
/i2
6263
/23
/24
6264
/25
6265
6266
/26
/27
6267
/2e
6270
/29
6271
6360
/30
6361
/31

•

/OS/8 BASIC RUNTIME SYSTEM

PAUS-vr

PAGE 79

10/34/72

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

ntttHnfttttfttdfu/tui/iuttfututifffu/ui
UIH/ttt OVERLAY 3-FlUE MANIPULATING UUUn/n/

UHUnt

(uunniu

FUNCTIONS

utfui imNNimunNniuuntutunnunn

uttnnfntfittfNNntumumttUfntfnttui
*3400

3400

/FILE CLOSING ROUTINE
13400^ 340i^ ANOPTR.' ANDLST
1340U 7776 ANDLSTf 7776
13402^ 7775
7775
13403 V 7773
7773
13404 «:77*7 V^^
7767
.

1340S& li-<»a^^CLOSE
134067 7650
13407 fo55t4-<fr7t;
13410(1 4523 i^f-^
134llfl.4550 ^5%

mam

13412,-1,5217

$"'-2^>

13413^/4731

eem

13414(f'5217
13415,/ 1330
13416.>)4S12
13417
4732
13420 4556
4731
13421
13422 5242
13423
1571
13424 3240
13425
1174
13426 3237
1563
13427
13430 7106
13431
7006
13432 7004
13433 0074
13434 6212
13435 4504
13436 0004
3437
13437
13440 3440
4516
13441
1564
13442
13443 7106
13444
7006
13445 7004
13446 0333
13447
1200
13450 3040
13451
1036

f?~9-<?

i1>7jt

4550
NOCZi

FNAP,
CLENG,

/MASKS FDR CLEARING BUFFER AND HANDLER STATUS BITS
fSiy-

?.V-

C^^Ti^.^^M.^a-

^ Cy?
.

'^/uyA-iMx/y

n&O'l^

/GET FILE #
TAD ENTNO h
SNA CLA
/IS IT TTY?
JMP I UDQPL
/YES-DON'T 00 ANYTHING Tt^\^ ^ f '^C
JM8 I FTOLE**i5e»<^SEE IF FILE OPEN (^Ua*^ :;/ a/>^ e^fi^^l
JMS I FTYPL
/IS FILE NUMERIC?
JMP NDCZ
/YES-DON'T OUTPUT "Z
JMS I FTYPSE
/NO-IS FILE VARIABLE LENGTH?
JMP NDCZ
/NO-DON»T OUTPUT *Z
TAD K232
/YES
/WRITE A "Z IN FILE
JMS I PUTCHL
JMS I WRBLKK
/WRITE LAST BLOCK IF IT HAS CHANGED
/RESTORE 17600
JMS I PISWAP
JMS I FTYPSE«^?r7/lS FILE FIXED LENGT!;*?
JMP CLOSED
/YES-NO NEED TO CLOSE THE FILE
TAD I W0RD6
/NO-GET FILE LENGTH
DCA CLENG
/PUT IN CLOSE CALL
TAD WOROll
DCA FNAP
/POINTER TO FILE NAME
TAD I MORO0
CLL RTL
RTL
RAL
/GET DEVICE NUMBER INTO BITS 8-11
AND K0017
/ISOLATE IT
CIF 10
JMS I K7700
/CALL US«
4
/CLOS£
/POINTER TO FILE NAME

JMS I ERROR
CLOSEDf TAD I WORD!
CLL RTL
RTL
RAL
AND K0003t^
TAD ANOPTR
OCA TEMPI
TAO BMAP
FC,

W}tM

S>f W

/FILE CLOSING ERROR
/GET BUFFER ADDRESS

/BUFFER NUMBER INTO AC
/BITS 10,11
/STRIP
/USE AS INDEX INTO MASKS
/BUFFER STATUS MAP

^y.^ J^^r" ^^A-p"

m
/OS/8 BASIC RUNTIME SYSTEM
13452
13453

0440
303(>

*N0 I TEMPI
OCA BMAP

PAUe-VT

10/24/72

PAGE 79-1

/CLEAR THE BIT FOR THIS BUfFtR

•

/08/8 BASIC RUNTIME SYSTEM

'jm

PAU8-V7

10/24/72

•

PAGE 80

,^^^ t^^'T'

134S4
1345S
13456
13457
13460
13461
13462
13463
13464
13465
13466
13467
13470
13471
13472
13473
13474
13475
13476

7041
1563
7650
5316
2042

13501
13502
13503
13504
13505
13506

0073
7640
5321
1567
7106
7006

-p-13507

0103
3563
1342
3042
1042
1334
3040
1042
1162
7650
5276
1440
0103

^$^H
TAD
go-

I
H OBP B/HEADER MORD
AND K-MHW-/^V6d^> /STRIP HEADER TO DEVICE # ONLY <~^
#CA-4—Hf WOg FF/^^y
TAO MM4
OCA TEMP3
/USE AS COUNTER
CHECKLi TAD TE/1P3
fQtl:df^ OF FILE TO CHECK
TAD WpTRA "
/MAKf POINTER TO PROPER W0 HEADER
OCA TEMPI
/SAVE POINTER
TAD TEMP3
/-# OF FILE WERE CHECKING
TAO ENTNO
/COMPARE TO CURRENT NUMBER 4 ^LoSL
SNA CLA
/IS IT THIS ONE?
JMP PSTCHU
RIVER
;j|s.DojF,,^A9e.
TAD I TEMPI
_..
dR THE FILE OF iNTERtM
AND ¥^^^km-k^6^ /ISOLATE
CIA
/NEGATE
TAD 'f-»OWM?<?«/^f7C0MPARE TO CURRENT Of )fcie#-^<^^£^
SNA CLA
/SAME DEVICEI^ ^^2*^
JMP CRET N
/YES-I.EAVE DRIVER IN CORE
PSTCHK,
i-ewE t K ED T '

\M-

AND ¥S»4r9C4C
SZA CLA
JMP TPREL
TAD I W0H04
CLL

13521
13522
13523
13524
13525
13526
13527

1567
7106
7008

-?^13534
-J% 13535

13536

mi^-/0^7y

NDLER*LENGTH BIT
PAGES?
FREE BOTH PAGES
S IS THE ONLY FILE USING HANDLER THEN

TPREL,
.

03*3V^fi^^

TAD I W0RD4
CLL RTL
"TL
,

/ISOLATE HANDLER BUFFER NUMBJtH,
/MAKE POINTER TO PROPER CND^MASI

\WamPO'
}/

/^
~ ///'^^J ^

(Q^ hff^cC&n^l^^^Z^ 9U^^

/SLIDE BITS««|i|* OF HANDLER PAGE TO AC BITS 10,11

0333
1200
3040 RELCOM, DCA
1035
TAO
0440
AND 1 TEMPI
3035 ^^^"--^^
DCA DMAP
35fe7rCRETN,) OCA I W0KD4 9^
4556^-==:::;;^^^
JMS I PISWAP
5513
JMP I ILOOPL

13530
13531
13532
13533

Sp<?i(Lc

^K J

13510
13511
13512
13513
13514
13515
13516
13517
13520

5312

7^^-75^7 7

-«*4 7|y6

1341

\^0^ OK

{UC ^^fA

/DRIVER PAGE MAP
/CLEAR HANDLER PAGE BIT

j^W^5

/SET FILE AS IDLE *-^
/GET RIO OF 17600 AGAIN
/DONE ^ti^ z no
/ONLY FILE USING HANDLER
/IS

ER BUFFER NUMBER

\ia^ mr\mT ,fx^A^i^(^^^
,

AND KgB0j» .»rj^/ -pfs^r gf^^
TAD AN2PTR
/USE AS INDEX TO AND MASK
JMP RELCOM

0232 ir232,
232
2357 irryPSE, FOTYPE _
53Sjr2»tfRBLKK, WRBLK V2>
0003 *^Zl,
3 /
,
35*8¥^««ipTRA, hyPTR4Y. > fi^f**
,6714
WfpfR,
FlLEl-f-'K/
/STARING ADDRESSES OF
6731
FlLEa-f^
/FILE TABLE ENTRIES

hj^f% Pmt.0:

^
PAL8-V7

/08/8 BASIC RUNTIHE SYSTEM
13537
13540

6746
6763

13541

3542

13542
13543

7774
7701

FlL€4-f
AN2PTR, AN0US2
MM4,
ANDt52» 7774,^^
7701

10/24/72

PAGE 80-1

—

/
I

„..,,

1iit$^^^if\

g/H

^-,10

eilHggBt»iwn<iaW « iiB

jife«ig

ifi

iB.^jMn^fS^Tyag^guesmaiM Wi

—

•

•
/OS/B BASIC RUNTIME SVSTEM

PAU8-V7

l0/2«/72

•

PAGE 81

*3600

3600

/CHAIN FUNCTION
/SETS UP COMMAND DECODER AREA, THEN CHAINS TO BCOMP.SV
13600
13601
13602
13603
13604
13605
13606
13607
13610
13611
13612
13613

136H
13615
13616
13617
13620
13621
13622
13623
13624
13625
13626
13627
13630
13631
13632
13633
13634
13635
13636
13637
13640
13641
13642
13643
13644
13645
13646
13647
13650
13651
13652
13653
13654
13655
13656
13657
136f<0

13661

4510
5200
4556
4617
4620
6212
4504
0010
1572
3217
1573
3220
6212
4477
0012
4334
4416
0000
4516

CHAIN,

TAD I W0RD7
DCA DNAl
TAO I WORD10
OCA DNA2
CIF 10
JMS I USR
12

DNAlf
DNA2f
CDINf

PSMAP2
NAHEG

CI«

JMS I ERROR
TAD COIN
SZA CUA
JMP DISIN
TAD 0NA2
CIF 10
JMS I USR

1221

7640
5234
1220
6212
4477
0001
7001
5222
1174
3242
1220
6212
4477
0002
0000
0000
4516
1242
6211
3665
1243
7106
7006
0266
1220
3676
1076
3664
1670
3276

JMS I PRINT
JMP .-1
JMS I PISWAP
JMS I DNAl
JMS I DNA2
CIF 10
JMS I K7700

DISIN,

7001
JMP CI
TAD WORDU
DCA STB
TAO DNA2
CIF 10
JMS I USR
2

STB,
FLN,

JMS I ERROR
TAD STB
CDF 10
DCA I 1.7620
TAD FLN
CLL RTL
RTL
AND K7760
TAO 0NA2
DCA I CBLK
TAD K0100
OCA I L7b44
TAD 1 L7605K
DCA CBLK

/EMPTY TTY RING BUFFER

/RESTORE PG 17600
/RESTORE SYS RESIDENT
/GET FILE NAME IN NAME AREA FROM CURRENT FILE
/CALL USR
/LOCK IN CORE

/FIRST TWO CHARS OF OEV NAME
/LAST TWO CHARS

/INQUIRE
/DEVICE NAME
/ERROR
/GET ENTRY POINT OF DRIVER FOR CAHIN FILE
/IS IT IN CORE?
/YES-NO NEED TO FETCH IT
/NO-DEVICE # INTO AC

/FETCH HANDLER
/INTO PAGE 7000
/MAKE IT LOOK LIKE INQUIRE ERROR

/POINTER TO FILE NAME
/GET DEVICE #
/LOOKUP
/POINTER TO FILE NAME
/GET STARTING BLOCK

/STARTING BLOCK IN CD AREA
/FILE LENGTH
/PUT IN BITS 0-7
/COMBINE WITH DEVICE
/PUT IN CD AREA
/SET R SWITCH

/STARTING BLOCK OF COMPILEH
/INTO COMPILER READ CODE

/OS/S BASIC RUNTIME SYSTEM
13662
1366S
13664
13665
13666
13667
13670

5663
4143
7644
7620
7760

13671
13672
13673
13674
13675
13676
13677
13700
13701
13702
13703

6211
6202
4613
3700
0000
7617
7402
6202
5612
7001
7607

7621
7605

10/24/72

P*l.8-V7

PAGE 81-1

JMP I.
/MOVE THE COMPILER REAO TO FIELD
C8M0VE
7644
1.7644,
7620
L7620,
K776a,
7760
7621
L7621,
1760SK, 7605
/CODE TO READ IN COMPILER AND START IT
/THIS CODE GETS MOVED TO FIELD 1 AND EXECUTED FROM
/LOC 2001-2013 IN FIELD 1
CREAD,

CDF 10
CIF
4613
3700

AND EXECUTE IT

/"JM8 I L7607K"
/31 PACES
/0-7577
/STARTING BLOCK OF COMPILER
/SYSTEM ERRORiAND SINCE WE ARE PROBABLY CLOBBERED, WE CAN'T REPORT IT

7617
HLT
CIF
5612
7001
K7607K, 7607
CBLKi

/"JMP I .1"-START THE COMPILER
/STARTING AODR OF COMPILER
/LESS THAN THE DESIRED VALUE

\}^

/ROUTINE FOR INTERPRETER EXIT

KSF
FSTOP,
6031
rm 0"7y3y 13704
WC-TC
13705 53«5 7>
•

~-JWF-

4rl3706

1077

13707
7 13710
2.0 13711
7sll37l2
-,1-^-^-:^37l3

6036

13«»(g r

7640
5325 >5
6041

231S714
a/ 13715
-z3T37l6

13«--^TL

6046
7200
6041
5320-7

z.^3717
Z-71372B
•5«?13721

--^ MP

//l& THE KEYBOARD FLAG SET?
/-/N^4^£R E.aA.„MD^iLH AKlfil^ - C--.&E14T US-HBRfcijrYES-FORCE PARITY BIT
/GET CHARACTER
/COMPARE AGAINST "C
-

/WAS IT *C7
^— —/NO- HIS IS A NOR M AL CXIT

N O CT

T8F
JMP ,-l
TAD KUPARO
TLS
CLA
TSF
JMP ,-1
TAD KC

f>Arc^<

ss^s-

fifh-y-c/^

/YES -ECHO

/ECHO "C
13-5* cy
6046
. -IkS
7200
CLA
4556 NOCTC, -gdtMS_L^lM4P \il5/REST0RE PE 17j
47-44^5'
/RESTORE PG 2
jWrTP2SWAD>
6211 ,
/GET BLOCK # FOR EDI
6201
/SHALL WE CALL THE EDITOR?
7450
57trsS"-4
/NO JUST CALL OS/8
/YES-PUT THE BLOCK # IN DRIVER CALL
/CALL SYS DRIVER
4 746 r 7
/READ 7 BLOCKS
^4»0 l7lH>
/INTO 0-3377
0000
-37 4- / E81.K
/BLOCK # OF EOITOS

?(13722
^ £43723
-^7:5^13725

713726
«4tP13727

113730
2,13731

«13732
V13733
^13734
^13735
-713736

5T013737
\ 13740

TAD K200
KR8
TAD MCC
SZA CLA

•

*
/OS/8 BASIC RUNTIME SYSTEM

iT^srai
£3 ISTilZ
jyi37«3

7«0a
,
5744.5^^
3012

^^inau

43*««(''P2SWALf P8WAP2

^ 13745

713746
(,0 13747
I

13750

1^3751

313752

7600
7607
7604
7575
0336
0303

nut
JMP I
3012

KL7600, 7ii00
LK7607» 7607
ED8UK,
76^4
MCC,
-203
KUPAROr 336
KC.
303

PAL8-V7

10/2<(/7a

PAGE 91-2

/sys error, and since we are probably cuo8BEkfcD,we can't report it
/start the EDITOR

/OS/8 BASIC RUNTIME SYSTEM

PAL8»Vr

10/2«/78

PAGE 82

*«000

4000

/FIUE OPENING ROUTINE
/SITS IN THIS OVERUAY BECUASE THERE IS ROOM HERE, AMD THE USR IS
/GOING TO SPIN SYS ANYWAY
14000
14001
14002
14003
14004
14005
14006
14007
14010
14011
14012
14013
14014
14015
14016
14017
14020
14021
14022
14023
14024
14025
14026
14027
14030
031

4032
4033
14034
14035
14036
14037
14040
14041
14042
14043
14044
14045
14046
14047
14050
14051
14052

TAD C4
lAC
S204 .
JMP OPENNF
1 340(5' "OPENNVi
TAD C4

/ALPHANUMERIC, VARIABLE LENGTH
/ALPHANUMERIC, FIXED LENGTH

35fe3^<StiOPENN^

/SET UP HEADER WORD

|340lS''t]PENAV,

7001

OPENAFy

/NUMERIC, VARIABLE LENGTH

1162 \i^
TAO ENTNO
/IS FILE TTY?
7650 1^
SNA CLA
5513 55"**?
JMP I ILOOPL
/YES-DON'T DO ANYTHING ts'^i t- f*^^
1567 ^IQTAO I W0R04
/GET HANDLER ENTRY
7640 v^
SZA CLA
/IS FILE IDLE?
4516 PB,
JMS I ERROJT
/ATTEMPT TO OPEN FILE ALREADY OPfcN
|jMa_I PlSMAPl''' /RESTORE 17600
45S6
4741
JMS I NAMEGL
/GET FILE DEVICE NAME AND FILE NAME INTO WORDS 7-14 FROM SAC
6212
CIF 10
4504
JMS I K7700
/CALL TO USR
0010
10
/LOCK USR IN CORE
1572
TAD I W0R07
3227
OCA DEVNAl
/DEVICE NAME INTO INQUIRE CALL
1573
TAD I WORO10
3230
OCA 0EVNA2
CIF 10
6212
4477
JMS I USR
/CALL TO USR
0012
12
/INQUIRE
4027
OEVNAl,
/DEVICE NAME
4030 0EVNA2, •
0000 ENTRYNf
/ENTRY POINT
4516
IN,
JMS I ERROR'^-"
1230
TAD 0EVNA2
/GET DEVICE «
7110
CLL RAR
7012
RTR
/PUT INTO BITS
7012
RTR
1563
TAD I l«ORD0
3563
OCA I t«aRD0
/STORE IN HEADER WORD
1231
TAO ENTRYN
/GET DRIVER ADDRESS
7440
/IS IT IN CORE?
5734
JMP I DRIVRLff/ /YES-NO NEED TO FETCH IT
'^
1035
TAO DMAP
/NO-GET MAP OF DRIVER PAGES
7110
/PAGE 7000 BIT IN LINK
CLL RAR
^
7420
SNL
/IS PAGE 7000 FREE?
5262
JMP FHEE70
/YES
10 (^ff
7110
/NO-7200 BIT TO LINK
CLL RAR
7420
SNL
/IS PAGE 7200 FREE?
5273
JMP FREE72
/YES

•

•
/OS/e BASIC RUNTIME SYSTEM

M ^
^i

fft

\}^

PAL6-V7

l0/2tt/r2

PAGE 83

4053
4054
4055
4056
4057
4060
4061

7110
7630
4516
1103
3311
1340
5303

4062
4063
4064
4065
4066
4067
4070
4071
4072

7110
7620
7001
1335
3311
7326
3336
7001
5303

fREE70, CLL RAR
/PAGE 7200 BIT TO LINK
SNL CLA
/IS 7200 FREE?
lAC
/YES-THERE IS ROOM FOR A Two PAGE HANDLER
TAD K7000
DCA FETPAG
/SET UP FETCH TO USE PAGE 7000
CLL CLA CML RTL /TURN ON BIT 10
DCA TPM
/SAVE IN TWO PAGE SET WORD
lAC
/SET BIT 11 TO SHOW PAGE 7000 OCCUPIED
JMP DFETCH
/FETCH HANDLER

4073
4074
4075
4076
4077
4100
4101
4102
4103
4104
4105
4106
4107
4110
4111
4112
4113
4114
4115
4116
4117
4120
4121
4122
4123
4124
4125
4126
4127
4130

DO,

CLL RAR
SZL CLA
JMS I ERROR«»
TAD K7400
DCA FETPAG
TAD C4
JMP DFETCM

*?
/NO-7400 BIT TO LINK
IM"
/IS PAGE 7400 FREE?
/NO-NO MORE ROOM FOR DRIVERS
/YES-LOAO HANDLER INTO 7400
/SET UP IN FETCH CALL
/SET BIT 9 TO SHOW PAGE 7400 OCCUPIED
/FETCH DRIVER

4131

7110
7620
7001
1342
3311
1340
3336
7326
1035
3035
1230
6212
4477
0001
4111
4516
6211
7240
1737
1230
3040
1440
6201
7700
5332
1336
1035
3035
1073
1563
3563

4132
4133

5734

FREE72# CLL RAR
/7400 BIT TO LINK
SNL CLA
/IS 7400 PAGE FREE?
lAC
/YES-THEN THERE IS ROOM FOR A a PAGE HANDLER
TAO K7200
DCA FETPAG
/SET ADDRESS IN FETCH CALL
TAD C4
DCA TPH
/IF TWO PAGE LOADED, SET BIT 9 ALSO
CLL CLA CML RTL /TURN ON BIT 10 TO SHOW PAGE 7200 OCCUPIED
OFETCH, TAD DMAP
/TURN ON PAGE BIT FOR WHERE OtirPC r WILL BE LOADED
DCA DMAP
P^MtCTAD 0EVNA2
/DEVICE # IN AC
CIF 10
JMS I USR
/CALL TO USR
1
/FETCH
FETPAG,
/DRIVER ADDRESS
FE,
JMS I ERROR
CDF 10
CLA CMA
TAD I L0037
/GET ADDR OF HANDLER INFO TABLE
TAO DEVNA2
/USE THE DEVICE « AS AN INDEX INTO THAT TABLE
DCA TEMPI
/SAVE POINTER
TAD I TEMPI
/GET THE INFO WORD FOR THE HANDLER JUST FETCHED
CDF
SMA CLA
/IS HANDLER 2 PAGES LONG?
JMP DRAP
/NO MAP IS COMPLETE
TAD TPH
/YES-UPDATE DRIVER MAP TO INCLUDE
TAD DMAP
/SECOND PAGE OF TWO PAGE HANDLERS
DCA DMAP
TAD K0010
TAD I WORO0
/SET 2 PAGE BIT IN HEADER WORD
OCA I MORD0
DRAP,
TAD FETPAG
/HANDLER ENTRY ADDRESS
JMP I DRIVRL
/PAGE ESCAPE

4134
4135

4200
7000

DRIVNL, ORIVRN
K7000,
7000

1311

—

•

/08/8 BASIC RUNTIME SYSTEM

lUlU
ittJST

14U0

UUt

14142

0000
0037
0000
4416
7200

TPH,
U0037,
C4,

PAL8-V7

10/24/72

PAGE 83-1

37
4

NAHESUf NAMES
K720er
7200
U-

/ROUTINE TO MOVE THE COMPILER READER INTO FIEUO
13«i2V*VtlBM0VE,.

3011 *^

3040 ^

13611^!-^

3012

6201^
1411-/
fc21l'^

3412

2040<, .^
5351 S^'^^

6212-/

^^lAjgy

47bi-m'T

^^ t4bMb> <!0I^'0

TAD CSTA
OCA XRl
TAD CSTAC
OCA TEMPI
TAD KK2000
OCA XR2
CDF
TAO I XRl
COF 10
OCA I XR2
ISZ TEMPI
JMP ,-5
CIF 10
JMS I ,M

ANO START IT

/POINTES TO COMPILER STARTING CODE

/COUNTER
/MOVE TO LOC 2001 IN FIELD

/GET WORD OF CODE

/MOVE IT
/DONE?
/NO
/YES-START IT

iTk^lUDDf

CSTA,
CSTAC,

141-«r*llS<fT>5

14h«'?t)77fc5

CREAO'
-13

fk^*)

/J
i>

"if.

-^'
r

%=^,

I-

* 3

•

•
/OS/S BASIC RUNTIME SYSTEM

PAL8-.V7

l0/,24/72

PAGE 84

4200

•4200

14200
14201
14202
14203
14204
14205
14206
14207
14210
14211
14212
14213
14214
14215
14216
14217
14220
14221

3567
1036
7110
7420
S234
7010
7420
5227
7010
7420
5222
7010
7630
4516
1326
3564
1073
5237

DRIVRNf OCA I W0RD4
TAD BMAP
CLL RAR
SNL
JMP Bl
RAR
SNt
JMP B2
RAR

14222
14223
14224
14225
14226

7200
1327
3564
1330
5237

83,

14227
14230
14231
14232
14233

7200
1102
3564
7326
5237

B2,

CLA
TAD K0400
OCA I WORDl
/SET BUFF ADDRESS TO 400
CL.t CML CLA RTL /SET BUFFS BIT IN MAP
JMP BUFASS

14234
14235
14236

7200
3564
7201

Bl,

CLA
OCA I WOROl
CLA lAC

SNL.

BO,

JMP B3
RAR
8ZU CLA
JMS I ERROR
TAD K1400
DCA I NOROl
TAD K0010
JMP BUFASS
CUA
TAD K100e
OCA I WORDl
TAD CC4
JMP BUFASS

/DRIVER ENTRY INTO I/O TABLE
/GET BUFFER MAP
/BUFFI BIT TO LINK
/IS IT FREE?
/YES-ASSIGN BUFFI
/BUFF2 BIT TO LINK
/IS IT FREE?
/YES-ASSIGN BUFF2
/BUFF3 BIT TO LINK
/IS IT FREE
/YES-ASSIGN BUFF3
/N0-BUFF4 BIT TO LINK
/IS IT FREE?
/NO-NO MORE BUFFERS AVAILABLE
/SET BUFFER ADDRESS TO 1400
/SET BUFF4 BIR IN MAP

/SET BUFFER ADDRESS TO 1000

/SET BUFF3 BIT IN MAP

/SET BUFF ADDRESS TO 0000
/TURN ON BUFFI BIT IN MAP

/OS/8 BASIC RUNTIME SYSTEM

148ST
14240
14241
t42<l2

1036
3036
1563
7112
7010
7620
5253

14243
14244
14245
14246
14247
142S0
142S1
14252

3571
5260

14253
14254
14255

7326
4275
3571

1331

4275
3572

1425<^

1571

14257
14260
14261
14262
14263
14264
14265
14266
14267
14270
14271
14272
14273
14274

3572
3573
7040
1570
3365
1564
3566
6212
4477
0011
4556
4674
5513
3302

BUFASS, TAD BMAP
OCA BMAP
TAO I MORD0
CLI. RTR
RAR
SNU CLA
JMP FLOOK
TAD CCS
JM8 ENTLOK
OCA I W0RD7
OCA I W0RD6
JMP CLEANP

PALS-V7

10/24/73

PAGE 85

/UPDATE BUFFER ASSIGNMENT MAP
/GET HEADER WORD
/FIXED, VARIABLE BIT TO LINK
/IS IT FIXED?
/YES-DO A LOOKUP
/NO-OO AN ENTER
/ENTER
/MAXIMUM LEMGTH IN WORD 7
/ZERO ACTUAL LENGTH
/FINALIZE I/O TABLE ENTRY

FLOOK,

CLL CML CLA RTL /2
JMS ENTLOK
/LOOKUP
OCA I U0RD6
/ACTUAL LENGTH
TAD I W0RD6OCA I W0R07
/ALSO EQUALS MAXIMUM LENGTH
CLEANP, OCA I MORD10
/ZERO COLUMN POINTER
CMA
/-I
TAO I W0R05
/STARTING BLOCK-1
OCA I M0R02
/CURRENT BLOCK #»STARTIN6 BLOCK-1
TAD I WOROl
OCA I W0RD3
/READ/WRITE POINTER AT BEGINNING OF BUFFER
CIF 10
JMS I USft
/CALL TO USR
11

JMS I PISWAP
JMS I NEXRCK
JMP 1 ILOOPL
NEXRCK, NEXREC

/USSOUT
/GET RID OF 17600
/DO A NEXREC TO READ IN FIRST FILE BLOCK
/DONE

•

/OS/8 BASIC RUNTIME SYSTEM

^^1«2T5

0000

'^14276

14277
14300
14301
14302
14303
14304
14305

\T>\t-14307
^

14310
14311
14312
14313
14314
14315
14316
14317
14320
14321
14322
14323
1432a
14325
1432fc

14327
14330
14331
14332
14333

10/2tt/72

PAGE 8b

ENTLOK,

33»ti^
l7J^c^^
6212
4477^

430«^ FNOM,
4305-t> STARTB,
4 30*-'^ FUEN,
4516 EN,
1305
7640
5321
1306
7640
5321
1333
1563
3563
1305
FILSTU,
3570
1306
7041

5675
1400
1000
0004
0003
4030
0020

PALe-V7

K1400,
K1000,
CC4,
CCS,
DEVNAL,
C20,

OCA
TAO
DCA
TAD
CIF
JMS

FNOM
WQRDll
STARTS
DEVNAL
I

/FUNCTION NUMBER IN PLACE
/POINTER TO FILE NAME
/INTO CALL
/DEVICE NUMBER

10
I

USR

/CALL TO USR
/ENTER OR LOOKUP

JMS I ERROR
TAO STARTB
SZA CLA
JMP FILSTU
TAO FLEN
SZA CUA
JMP FILSTU
TAD C20
TAD I WORD0
DCA I MOROe
TAD STARTS
DCA I M0RD5
TAO FLEN
CIA
JMP I ENTLOK
1400
1000
4

0EVNA2
20

/FILE STARTING BLOCK «
/IS IT NON-ZERO?
/YES-DEVICE IS FILE STRUCTURED
/NO-GET FILE LENGTH
/IS IT EMPTY?
/NO-DEVICE IS FILE STRUCTURED
/NO-FILE IS REAO/rtRITE ONLY
/SET READ/WRITE ONLY BIT
/GET STARTING BLOCK « OF FILE
/PUT IN I/O TABLE
/FILE LENGTH
/MAKE FILE LENGTH POSITIVE
/RETURN

/OS/e BASIC RUNTIHE SYSTEM

PAUSfV?

10/24/72

PAGE 87

/SUBROUTINE P2SWAP-REST0KE OS/fi RESIDENT MONITOR PRIOR TO EXIT FHOM INTERPRETER^
/THIS IS DESTRUCTIVE CODE, AND ONCE THIS ROUTINE HAS BEEN EXECUTED
/THERE IS NO PLACE TO GO iUT OUT,
FUNCTIONSI
1) REMOVES CTRL/C HOOKS FROM SYS DRIVER
2) RESTORES BATCH CONTROL WORDS TO 27774-27777
3) IF SYS«TD/aE, RESTORES PAGE 27600 AND RETURNS COFS TO PAGE 07600
PSWAP2,

-rl«335

/7U3«2

1363
3770
1364
3771
1031
7710

/Hlili3_

3l«33fc

yi«33T
i>ia3«i
ft^^rT
-^

W> ar^/Jl4344
^

ia3«b

Cit>P-f/fl43ar

7
? G/

Jbi436a

T14365
7614366
)

14367

?'14370

:^14371

1365
3011
1366
3012
1367
3040
6211
1411
6221
3412
2040
SS52
6201
8734
4544
4207
6213
7577
7773
7774
7600
7605

TAD K4207K
OCA I L7600K
TAD K6213K
OCA I L7605P
-TAD

/REMOVE CTRL/C HOOKS

PSFLAG--^ -TGft- Rtsi^ENT sTATvr-rcTnr
/IS THIS TD8/E SYS?

SPA CLA
JMS^ I TDFIX L
rAO K7577K
DCA XRl.

TAD K7773K
OCA XR2
TAO MIN4
DCA TEMPI
COF 10
TAO I XRl
CDF 20
OCA I XR2
ISZ TEMPI
JMP ,-.5
COF
JMP I PSWAP2
PSWP2P
4207 .
6213**
^
,
7577
itoH
7773
^
.

TDFIXLf
K4207K,
K6213K,
K7577K,
K7773K,
"'
4
MIN4,
L7600K, 7600
L7605P, 7605

/YES-RESTORE PAGE 27600 AND PAGE 07600
/POINTER TO 17600

—

/POINTER TO 27774
/SET COUNTER TO -4

/FETCH BATCH WORD FROM SAVE AREA

/RESTORE IN FIELD 2
/DONE?

/NO

-7

^Ul ^^

^^^"^

:x57o ^s-&

«^57e>

/YES-WE ARE FINISHED, SO RETURN

^TPf

Xx0tJZ. ^iC-'^^

•

«
/OS/e BASIC RUNTIME SYSTEM

4400

14400
14401
14402
14403
14404
1440S
14406
14407
14410
14411
14412
14413
14414
14415
^c/^l&x>

7706
0014
4405
0000
0000
0000
0000
0000
0000
0423
1300
7772
0016
7774

MCOLON, .72
MCSPE ,
14
N3A,
Nl,
N2,

/SCRATCH NAME BLOCK
/DEVICE NAME

N3,
N4,
N5,
N6,
DS,
K0,
M6,

-6

CC16,
MMM4»

16
-4

/FILE NAME
/.EXT

0423
1300

IF,

nil
7101
4527
4557
1202
7100
4526
4560

1211

3203
1212
3204
3205
3206
3207
3210
3043
4531
3040
1040
1200
7450
5306
1201

7650
5325

PAGE 86

/NAMEG-ROUTINE TO TRANSLATE SAC INTO A b WORD FILE NAME BLOCK, THEN
/PUT THAT NAME BLOCK INTO THE BLOCK SPECIFIED BY THE AC ON ENTRY

AMM£::2Si*i
i44Tr~T0js
1214
7710
4516
1032
3007

10/24/72

*44e0

-4iyLU__1000 NAMES
14>H. llfg-'
14422
14423
14424
1442S
14426
14427
14430
14431
14432
14433
14434
14435
14436
14437
14440
14441
14442
14443
14444
14445
14446
14447
144S0
14451
14452
14453
14454
14455
14456
14457
14460

PAL8--V7

TAO W0RD7
DCA TEMPS
TAD 8TRLEN
TAO CC16
SPA CLA
JMS I ERROR
TAO STRLEN
DCA TEMP2
TAD SACPTR
CLL lAC
JMS I LDMINL
JMS I LOHRST
TAO N3A
CLL
JMS I 8THINL
JMS I STMR8T
TAD OS
DCA Nt
TAO K0
iV
,J^
DCA N2
DCA N3
DCA N4
OCA N5
DCA N6

"~-t>CtrTEMP4

NCG,

JMS I LOH
OCA TEMPI
TAD TEMPI
TAD MCOLON
SNA
JMP CAO
TAD MCSPE
SNA CLA
JMP SSAO

/PUT THE NAME IN FILENAME AREA
/SAVE DESTINATION BLOCK ADDRESS

/COMPARE STRING LENGTH TO 16
/TOO MANY CHARS IN OEVtFILENAME

/STRING LENGTH COUNTER
/INIT LOH TO PULL CHARS FROM SAC

/INIT STH TO PUT CHARS IN SCRATCH BLOCK

/INITIALIZE DEV TO DSK;

/ZERO FILE NAME
/ZERO INTERMEDIATE COUNTER
/GET CHAR FROM SAC
/SAVE
/IS IT

COLON?

/YES-CHARS SO FARsDEVICE NAME
/NO-IS IT A PEHIOO?
/YtS-NEXT TWO CHARSsEXTENSION

/03/a BASIC RUNTIME SYSTEM
14461
144*2
14463
14464
14465

1040
45se
2043
2007
5250

NCGS,

TAO TEMPI
JMS I 5TM
ISZ TEMP4
ISZ TEMP2
JHP NC6

PAI.6-V7

10/2«/72

PAGE 68-1

/NO-GET CHAR AGAIN
/STOBE IN NAME BLOCK
/BUMP COUNT FOR CURRENT SECTION
/END OF STRING YET?
/NO-NEXT CHAR

(O
y^i^/08/6 BASIC RUNTIME SYSTEM
14466
14467
14478
14471
14472
14473
14474
14475
14476
14477
14500
14501
14502
14503
14504
14505

1043
1213
7740
5224
1342
3011
7040
1042
3012
1213
3007
1411
3412
2007
5301
5616

14506
14507
14510
14511
14512
14513
14514
14515
14516
14517
14S20
14521
14522
14523
14524

1043
1215
7740
5224
1205
3203
1206
3204
3205
3206
1202
7100
4526
3043
5264

CAD,

1L"-W 14525

SSAD,

14541

1043
1213
7740
5224
3043
7332
1007
7710
5224
1343
7100
4526
5264

14542
14543

4402
4410

NIA.
N6A,

U<t3f

)
'

'^0

14526
14527
14530
14531
14532
14533
14534
14535
14536
14537
,r^^
Op^

l'*540

MML,

PAL6-V7

TAD TEMP4
TAD M6
SMA SZA CUA
JMP IF
TAD NIA
DCA XRl
CMA
TAD TEMP3
DCA XR2
TAD M6
DCA TEMP2
TAD I XRl
DCA I XR2
ISZ TEMP2
JMP MML
JMP I NAMEG

10/24/72

PAGE 89

/YES-GET CHAR COUNT FOR THIS SECTION (NAME)
/IS IT >6?
/YES-TOO MANY CHARACTERS IN FILE NAME
/NO-ADDRESS OF SCRATCH NAME BLOCK
/-I

/ADDRESS OF FINAL NAME 8U0CK-1
/MOVE

WORDS

/MOVE NAME WORD FROM SCRATCH AREA TO FINAL OEST
/DONE?
/NO

/YES-RETURN

TAD TEMP4
/GET CHAR COUNT FOR THIS SECTION
TAD MMM4
/COMPARE AGAINST 4
SMA SZA CUA
/TOO MANY CHARS?
JMP IF
/YES-DEVICE NAME TOO LONG
^TAU N3
OCA Nl
TAD N4
OCA N2
r/'^^/No- MOVE NEW DEVICE NAME FROM FILE NAME WORDS TO PROPER PLACE
OCA N3
OCA N4
/CLEAR FILE NAME
TAD N3A
CUl.

JMS

STHINL

"1>CrTEMP4

/AND RE-INIT STH FOR NAME AREA
/ZERO COUNT

JMP NCGS
TAD TEMP4
TAD M6
SMA SZA CLA
JMP IF
DCA TEMP4
CLA CLL CML RTR
TAD TEMP2
SPA CLA
JMP IF
TAD N6A
CLL
JMS I STMINL
JMP NCGS
Nl-1
N6

/COUNT FOR THIS SECTION (FILE NAME)
/TOO MANY?
/YES-FILE NAME TOO LONG
/NO-CLEAR COUNT
/2 IN AC

/COMPARE AGAINST

OF CHARS LEFT

/TOO MANY CHARS IN EXTENSION
/INIT STM TO PUT INTO EXTENSION

(2)

f^C^^

/OS/8 BASIC RUNTIME SVSTeM

PAL8-VT

10/24/72

PAGE 90

/SUBROUTINE TO RESTORE PAGE 27600 OP TD8/E DRIVER
TME^MFS, IN FIELD
/AND READJUST THE^^FS.
14544
14S4S
14546
14547
14550
14551
14552
14553
14554
14S5S
14556
14557
14S60
14561
14562
14563
14564
"' 145*5

^ 4«*6f
^14510
.^-^1

•

1-41*-!

'1X4^
'-Wir>SFUAG

0000

P8IIIP2P,

3031
1362
3763
1362
3764
4556
1365
3766
1367
3770
1367
3771
5744
6221
1243
1247
6223
7642
6222
7721
7727

TAD COF20
DCA I P2CDFL
TAD CDF20
DCA I P2CDL1
JMS I PtSWAP
TAD K6223
OCA I U7642
TAD K6222
DCA I L7721
TAD K6222
DCA I L7727
JMP I PSWP2P
COP20,
CDF 20
P2CDFI.I P2CDF
P2C01.1, P2CDF1
K622i,
6223
7642
L7642,
K6222,
6222
7721
1.7721,
7727
1.7727,

/CLEAR RESIDENT STATUS FLAS
/PUT CDF 20 IN SWAP ROUTINE

/MOVE DOMN PAGE 27600

/RESTORE CDFS IN PAGE 07600
/RETURN

•

/08/8 BASIC RUNTIME SYSTEM

0000

PAU8-V7

10/24/72

•

PAGE 91

FIELD

u//mNffNNfn(/nffnt/utNtNinfn/nn/nnnttfn/n//nut
u//unt/ffinufuu/n/t/uu/ufnfnnnutn/n//nn/un/nf/

tUHtnUtmt END OF OVERLAY AREA U f U U H U ft // /f / U /t
N ( f n H / 1 f f 1 1 1 f ti ( u u f n N N 1 u n f N u / u n u t // n / u f n
f

t/1

/11

/ f

Uftntntni/nntmuut/nuitnt/N/tufnunH/uffn/ffttN

/OS/8 BASIC RUNTIME SYSTEM

4600

PAt.8-V7

IFNZRO EAE
NOPUNCH

IFZERO EAE

10/24/72

PA6£ 92

*460e

/FLOATING OUTPUT ROUTINE
/

04600
04601
04602
04603
04604
0460S
04606
04607
04610

0000
7344
3736
3337
1056
7640
5213
1340
3060

04611
04612
04613
04614
04615
04616
04617
04620
04621
04622

1321
3057
6201
1332
3726
1045
7450
5274
7700
5225
4736
3736
1044
7740
5234
4735
5317
2337
5225
4306
4535
5155
3044
7132
3045
3046
1056
7640
1337
7041
1060
7500
7040
1330
7510
7200

04623
04624
0462S
04626
04627
04630
04631
04632
04633
04634
0463S
04636
04637
04640
04641
04642
04643
04644
04645
04646
04647
04650
04651
046S2
04653
04654

FFOUT,

FFMTi

FOUTl,

F0UT2,

CUA CLL CMA RAL
FFNGP
OCA I
KNT
OCA
EFLG
TAD
8ZA
CLA
FFMT
JMP
K6
TAD
DCA
DAOP
K16
TAD
DCA
PLOW
COF
KMT
TAD
OCNTP
OCA I
TAD
ACH
SNA
JMP
F0UT3
CLA
SMA
.3
JMP
FFNGP
JMS I
FFNGP
OCA I
TAD
ACX
SMA SZA CLA
JMP
F0UT2
FFMPP
JMS I
TEN
KNT
ISZ
JMP
FOUTl
JMS
SE
FFPUTP
JMS I
TM3
ACX
OCA
CLL CML RTR
ACH
DCA
DCA
ACLO
TAD
EFLG
SZA
CLA
KNT
TAO
CMA
lAC
TAO
DADP
SMA
CMA
KK7
TAD
SPA
CLA

/MAKE A MINUS TWO
/AND STORE IN SIGN WORD
/CLEAR COUNT WORD
/IS THIS E FORMAT?
/NO-F FORMAT
/YES-GET A 6
/STORE AS « OF DIGITS AFT DEC PT
/SET FIELD WIDTH TO 14 t DECIMAL)
/OF TO PACKAGE FIELD
/SET # OF 5IGNF. DIGITS
/TO 6 (DON'T PRINT 7TH)
/DETERMINE IF #»0

/YES-SKIP DOWN
/NO-IS IT NEGATIVE?
/POSITIVE
/NEGATE #
/NEGATIVE-SET FLAG
/GET « INTO RANGE .1<«N<1
/IS EXP, NEG,?
/NO-GO ON
/YES-MAKE « GREATER THAN 1
/BY MULTIPLYING BY TEN fDEC.)
/COUNT THE MULTIPLIES
/SEE IF >1 YET
/# IS »1-MAKE IT LESS THAN 1
/STORE IN A TEMPORARY
/SET FAC TO ,5

/IS THIS

FORMAT?

/NO-GET COUNT OF MULTIPLIES
/NEGATE IT
/AND ADD # OF DIGITS AFT, DC, PT,
/MUST BE NEGATIVE
/LIMIT

OF DIVS TO 7

•

/08/8 BASIC RUNTIME SYSTEM

04655
04656
04657

1332
3306
5262

TAO
OCA
JMP

PA1.8-V7

KM7
SE

10/24/72

PAGE 92-1

/RESTORE
/STORE AS COUNTER

/OS/8 BASIC RUNTIME SY8TI:m

04660
04661
04662
04663
04664
0466S
04666
04667
04670
04671
04672
04673
04674
04675
04676
04677
04700
04701
04702
04703
04704
04705

4734
5317
2306
5260
4733
5155
4306
1044
7041
4704
4705
4705
1337
3047
1056
7640
5343
3337
1332
5347
6072
6057

JMS I
TEN
isz
JMP
JMS I
TM3
JMS
F0UT4,
TAO
CMA
JMS I
JMS 1
JMS I
F0UT3,
TAD
OCA
TAD
SZA
JMP
DCA
TAO
JMP
ACSRPTr ACSR
ALIPT,
ALl

PAL6-V7

10/24/72

PAGE 93

FFDVP

/DIVIDE .5 BY TEN THAT

SE
.-3

/DONE?
/NO-GO ON
/VES-ADD IN ORIG,«"THIS IS ROUNDING

FFADP
SE

ACX
lAC

ACSRPT
ALIPT
ALIPT
KNT
OPX

EFLG
CLA
NOTE
KNT
KMT
ADFW

0000
1044
7750
5706
4734
5317
7040
1337
3337
5307

/NO

/YES-ZERO COUNT
/GET MINUS 7-FOR 2 SIGNS, PT, EXP
/GO ADO FIELD WIDTH

SE,

SEl^

TAD
ACX
SPA SNA CLA
JMP 1
SE
JMS I
FFDVP
TEN
CMA
KNT
TAD
DCA
KNT
JMP
SEl

OF TIMES

/INSURE THAT IT IS IN RANGE
/SHIFT MANTISSA ACCORDING TO EXP
/0«l LEFTI 1»N0 8HIFT»2»1 RIGHT,,..
/SHIFT RIGHT (ACX+1) PLACES
/SHIFT LEFT 2 TO CORRECT
/CME ARE LOSING BITSU}
/DONE-GET COUNT OF MULS,
/PRESERVE IT
/IS THIS E FORMAT OUT?

/ROUTINE TO GET FAC«l
04706
04707
04710
04711
04712
04713
04714
04715
04716
04717

/#»17
/NO-RETN,
/VES-DIV, BT TEN

/REDUCE KNT BY

/08/8 8A8IC RUNTIME 8Y8TIM

04720
04721
04722
04723
04724
04725
04726
04727
04730
04731
04732
04733
04734
04735
04736
04737
04740
04743
04744
04745
04746
04747
04750
04751
04752
04753
04754
04755
04756
04757
04760
04761
04762
04763
04764
04765
04766
04767
04770
04771
04772
04773
04774
04775
04776
04777

5150
0016
5600
5160
5172
5076
5137
7777
0007
7760
7771
6000
5722
0135
5600
6135
0000

1057
7041

Kt6,
FUINK,
PRNTXP,
PRZRQPi
DSTVPP,
OCNTP,
Ml,
KK7,

KM20,
KM7,
FPADP,
FFDVP,

PAGE 94

JMP I
PRNTX
PRZRO
OGTTP
OCNT
7777

FFOUT

.20
-7

FFADD
FFOIV
FFPUTP»FPUTL
FFMPP,
FFMPV
FFNGP,
FFNEB
KNT»
6

/CONTINUATION OF OUTPUT MAINHNE
• 4743
NOTE,
TAD
KNT
/GET COUNT OF MULTIPLIES
SMA
/IF NOT NEG-MAKE « -2
AOFWi

3734
1060
7450
7040
1734
7500
5723
3306
5364
1331

4720
2306
5362
7346
1736
4720
1337
7500
5724
7041
4725
1060
7650

10/24/72

/CONSTANTS AND POINTERS
0UTD6P, 0UT06

K6,

4743
1337
7500
7240
1327

PAl.e-V7

CIA
CMA
TAD
Ml
TAD
FLOW
CMA
lAC
DCA I
FFOVP
TAD
OADP
SNA
CMA
TAD I
FFOVP
SMA
JMP I
PRNTXP
OCA
SE
JMP
,*3
TAD
KM20
JM8 I
OUTDGP
ISZ
SE
JMP
.-S
CLA CUL CMA RTL
TAO I
FFNGP
JMS 1
OUTDGP
TAO
KNT
SMA
JMP I
PRZROP
CMA
lAC
JMS I
DGTYPP
TAD
DADP
SNA
CLA

/MINUS 1 FOR OEC.PT
/GET THE FIELD WIDTH
/NEGATE IT
/STORE WHILE WE CHECK OADP
/GET DIGITS AFTER DEC, PT
/DID HE SAY NO DEC. PLACES?
/YES^TAKE AWAY 1 SINCE NO DEC, PT.
/ADD IN REST
/NE67
/NO-PRINT XS-NOT ENUFF ROOM
/STORE AS CNT OF SPACES
/PRINT A SPACE
/DONE?
/NO-GO ON
/MAKE A MINUS 3
/YES-GET SIGNt«-2 OR 03
/FOR PLUS OR MINUS-PRINT SIGN
/GET MUL COUNT
/PRINT LEADING ZERO

/OUTPUT 'KNT' DIGITS
/CHECK DADP FOR
/OON'T PRINT ',' IF DAOP«ft
/******«**tt****«******« **************
/FALL THROUGH PAGE BOUND ARYllJ
/•SNA CLA' MUST BE LAST LOC, ON PAGEIU
/(CURSE YOU B.C.)
/*****«******«********«« **************
PROCP,

/OS/a BASIC RUNTIME SYSTEM

5000

eszzd
05001
05002
05003
05004
05005
0S00fc

05007
05010
05011
05012
05013
05014
05015
05016
05017
05020
05021
05022
05023
05024
05025
05026
05027
05030
05031
05032
05033
05034
05035
05036
05037
05040
05041
05042
05043
05044
05045
05046
05047
05050
05051
05052
05053
05054
05055
050S6
05057
05060
05061
05062
05063
05064

5203
7344
4350
1754
7750
5225
1754
7040
3276
1060
7040
3357
5216
4350
2276
7410
5223
2357
5215
1754
7041
1060
7540
4276
7200
1056
7640

5266
4344
0305
1047
7740
7326
4344
0253
1334
3050
7344
3276
1047
7510
7041
3046
3045
7100
4736
1046
4350
1335
3050
1045
2276
5252

PAL8-V7

10/24/72

PAGE 95

PAGE
/*«*«*t*FAl.L THROUGH PAGE BOUNDARY TO HERE*******
GKNT
/MUST BE FIRST LOC. OF PAGfcJ
JMP
POP,
CUA CLU CMA RAL
/PRINT DEC, PT,
OUTOG
J MS
/GET COUNT AGAIN
KNTP
GKNT»
TAO I
SPA SNA CLA
GO
JMP
KNTP
/GET COUNT
TAO 1
/NEGATE
CMA
/STORE AS COUNTER
OGTYP
OCA
TAD
DADP
/8AHE FOR DADP
CMA
SEP
DCA
PR
/GO ON
JMP
/PRINT A ZERO
OUTOG
JMS
PZRi
OGTYP
PR|
ISZ
SKP
PS
JMP
SEP
ISZ
PZR
JMP
KNTP
TAO 1
PS»
CHA
lAC
D*OP
TAO
CD,
SZA
8MA
OGTYP
JMS
CLA
TAD
EFLG
SZA
CLA
/DONE
DONEF
JMP
OUT
JMS
/PRINT 'E*
305
OPX
/GET PRESERVED COUNT OF MULS
TAD
/DETERMINE SIGN
SMA SZA CLA
CLA CLL CML RTL /MAKE A 2
JMS
OUT
/PRINT MINUS OR PLUS SIGN
253
KM144
/SET TO DIV BY 100
TAODCA
OPH
CLA CLL CMA RAL /SET LOOP COUNTER
OGTYP
OCA
OPX
/GET THE COUNT
TAD
SPA
/NEGATE IF NEGATIVE
CMA
lAC
/STORE FOR OIV. ROUTINE
DCA
ACLO
LOOP.
DCA
ACH
/HI ORD. MUST BE ZERO
/PREVENT DIVIDE OVERFLOWil
CLL
0V24PT /DIVIDE BY 100
JMS I
/GET THE QUOTIENT
ACLO
TAD
/OUTPUT HUNDREDS PLACE
JMS
OUTOG
KM12
/NOW DIV, BY 10
TAD
OCA
OPH
ACH
TAO
/DIV, REM, BY 10
DGTYP
/DONE?
ISZ
PRINT TENS PL4CE
JMP
/NO-GO DO CALCULATE
LOOP
,

PAU8-VT

/oa/« iASlC RUNTlMf SYSTf^
05063

«350

JMS

OUTDG

10/24/72

PAGE 95-1

/VE5-REMtONES PiACE) IS IN AC-PRINTIT

/OS/8 BASIC RUNTIME SYSTEM

B5066
0S0ft7

05070
05071
0S072
05073
05074
05075

1055
7650
5742
4344
0215
4344
0212
5742

OONEf,

TAD
SNA
JMP
JM8
215
JMS
212
JMP

PAL8-V7
SWIT2
CLA
FUING
OUT

10/24/72

PAGE 96

/SHOULD WE PRINT CR/LF?
/NO

OUT
1

FLING

05076
05077
05100
05101
05102
05103
05104
05105
05106
05107
05110
05111
05112
05113
05114
05115
05116
05117
05120
05121
05122
05123
05124
05125
05126
05127
05130
05131
05132
05133
05134
05135
05136
05137
05140
05141
05142

0000
7041
3357
1045
3050
1046
3051

4740
7004
3355
4740
1355
7004
3355
3042
4741
7004
1355
3355
4740
1355
7004
2337
5330
7240
3337
4350
2357
5301
5676
7634
7766
5745
0000
6057
6157
4722

/OUTPUT DIGITS OF FAC BY MULTIPLYING 8Y TEN
/THE HIGH ORDER OVERFLOW IS THE DIGIT
DGTYP,
lAC
CMA
SEP
OCA
/STORE COUNT PASSED
TAD
ACH
/GET FAC AND STORE FOR LATER
DTI,
OPH
OCA
TAD
ACLO
OPL
OCA
JMS I
ALIPP
/SHIFT FAC LEFT 1 » FAC*2
RAU
/OVERFLOW TO TM3
DCA
TM3
JMS I
ALIPP
/SHIFT LEFT AGAIN
FAC*4
TM3
TAD
/SHIFT OUT OVERFLOW
RAl
OCA
TM3
AC2
DCA
/MUST BE
FOR OAOD
OAODP
JMS I
FACorS
/ADD ORIG FAC
RAL
/ADO OVERFLOW TO TM3
TAD
TM3
TM3
DCA
JMS I
ALIPP
/SHIFT FAC 1 LEFT • FAC*10n
TAD
TM3
/OVERFLOW IN TM3 IS FIRST DIGI
RAL
ISZ
OCNT
/DONE ALL SIGNIF. DIGS.?
JMP
.+3
/NO-GO ON
CMA
CUA
/YES-PRINT ZEROS
DCA
OCNT
/FROM NOW ON
JMS
OUTDG
/PRINT DIGIT (HI ORD. OVRFLOW)
ISZ
SEP
/DONE REQUIRED?
JMP
OTl
/NOPE
JMP I
OGTYP
/YUP
KM144,
-144
KM12,
-12
0V24PTI 0V24
DCNT,
/COUNT OF SIGNF, DIGITS.
ALIPP,
All
OAOOP,
OAOD
FLING,
FUINK

#
/OS/8 BASIC RUNTIME SYSTEM

05143

4776

PAL8-V7

10/24/78

PAGE 97

PROCPP» PROCP
/

/OUTPUT ROUTINE
/

05144
05145
05146
05147

0000
1744
3413
5744

OUT,

TAD
OCA
JMP

I
I
I

OUT
XR3
OUT

/GET THE CHAR
/STORE CHAR IN INTERMEDIATE BUFFER

/OUTPUT DIGIT
/

05150
05151
05152
05153

0000
4344
0260
5750

OUTDG,

05154
05155
05156
05157
05160
05161
05162
05163
05164
05165
05166
05167
05170
05171

4737
0000
0000
0000
7200

KNTP»
TM3,

JMS
260
JMP

SEP,
PRNTX,

CUA
TAD
CMA
DCA
ISZ
SKP
JMP
JMS
252
JMP

PRNTXlj

/PRINT

0UT06

/RfeTN

FLOW

/GET FIELD WIDTH
/MUST bE NEGATIVE
/USE AS COUNTER
/DONE ALL?
/NO-GO ON
/VES-RETN.
/PRINT ASTERISK
/ASTERISK

KNT

1057

7040
3357
2357
7410
5266
4344
0252
5364

OUT

SEP
SEP

DONEF
OUT
PRMTXI

LEADING ZERO

05172
05173
05174

7200
4350
5743

PRZRU,

CLA
JMS
JMP

OUTOG
PROCPP

/08/8 BASIC RUNTIME SYSTEM

l»AUe"V7

10/24/72

I'AGE

<>8

/FU0ATIN6 POWT INPUT ROUTINf
/

ftsiei

tsies
es20]
a520«
11209
esaer

naif
09111
•9112
09219
09114
09219
092
09217
•9120
09121

5200
0000
7240
1711
7040
3300
6201
1092
1044
1««6
•!••
1049
1109
4122
9212
2992

2U9

•9211
•9212
•9211
•9214
•9219
•9216
•9217

4719
9117
4919
1179
4534
9914
4916
4712
1179
9214
2711
9241
2119
2119
7610
9211

03240

1909

09241
09242
09241
05244
09249
09246
05247
05250
05251
05252
05253
05254
05255
05256

2300
4703
7240
1300
1053
1306
7650
4322
5260
1043
7106
1043
7104
1315
5250

09t22
09221
05224
•9129
•9121)

•9227
fl9I9«

0.5257

PAGE
FFINt

CLA
OCA
CMA
DC A
eof
DCA
OECONVi DCA
OCA
2«a
P2O0f
OCA
DCA
DICNV,
oeeoN,
JM9
JHP
I8Z
X9Z
JH9
TEN

PPINl*

FX602i

GETEi

CMA
PDVPT

SI6NF
/OF TO PACKAGE FIELD

OSWIT
ACX

ACH

0NUM9R
6CHR
FPINI
08MIT
ONUMSR
I

PMPYU

xsz
191
8KP
JMP

TPl
TPl
CLA

OCA

ONUMBR

XSZ
JMS
CWA
OCA
TAD
TAO
SNA
JMS
JMP
TAD
CLL
TAO

SXGNF
fPNESP
CMA
SIGNF
CHAR
KME
CLA
6CHR
EOON

TAO
JMP

/ZERO CONVERSION SWITCH
/ZERO OUT THE FACJ

ACkO

I PPUTL
PPPTMl
JNS I P6ETL
7P
JMS X PNORL
JMS X PAOOLl
PPPTMl
DECON
J««P
PDVPT
XiZ
PX602
aMP

/INITXAUIZE PERIOD SWITCH TO -1
/SET SIGN SWITCH TO -1

DECNV

TM
RTL
TM
RAL
TPl
6ETE

/ZERO # OF DIGITS SINCE DEC, PT,
/GET A CHAR, FROM TTY.
/TERMINATOR/DIGIT'BUHP CONVERSION SWITCH
/BUMP « OF DIGITS** IS STORED IN
/"FMPY TEN"

/«FPUT

TM3PT"

/«FSET

tP«

/»FNOR»
/"FAOD I

TM3PT'

/GO ON
/HAVE ME HAD A PERIOD YETT
/YES«60 ON
/NO-IS THIS A PERIDOT

/YES-ZERO DIG, COUNT AFTER DEC, PT,
/AND GO CONVERT REST
/NO-TERMINATOR-ZERO COUNT OF
/DIGITS AFTER DECIMAL POINT,
/IS » NEGATIVE7(DID WE GET •* SIGN?)
/YES-NEGATE IT
/RESET SIGN SWITCH FOR EXP,
/NO-WAS THE TERMINATOR AN »E»7

/YES-GET A CHAR, OF EXPONENT
/END OF EXPONENT
/GOT DIG, OF EXP-STOREO IN TPl
/MULT. ACCUMULATED EXP BY 10
/ADO DIGIT
/CONTINUE

/08/8 BASIC RUNTIME SYSTEM

05260
05261
05262
05263
05264
0S265
05266
05267
05270
05271
05272
05273
05274
05275
05276
05277
05300
05301
05302
05303
05304
05305
05306
05307
05310
05311
05312
05313
05314
05315
05316
05317
05320
05321

1043
2300
7041
70ai
1305
7141
7510
7161
7040
3305
7004
1307
3300
2305
5300
5600
0000
5317
5275
6135
5155
0000
7473
4710
5600
5722
6000

0012
0013
0000

0004
2400
0000

EDON,

FCNT#

PAI.e-V7

TAD
TM
SIGNF
ISZ
CMA
lAC
CMA
lAC
TAD
DNUMBR
CLL CMA lAC
SPA
CU CMA CMU lAC
CMA
OCA
DNUMBR
RAU
MOV
TAD
DCA
SIGNF
DNUMBR
ISZ
JMP
SIGNF
JMP I
FFIN

SIGNF,
TEN
JMP
FFNEGP, FFNEG
TM3PT,
TM3
DNUMBR,
• 305
KMEi
MOV,
JMS I
FMPyi.L, FFMPV
FOVPT,
FFDIV
FAOOULi FFAOO
KK12.

12
13

TPl,
TEN,

2400

10/24/72

PAGE 99

/GET EXPONENT
/WAS EXPONENT NEGATIVE?
/YES-NEGATE IT
/AND CALC. ONUMBB - EXPON,
/GET « TIMES TO DIV MANTISSA BY TEN

/RESULT POSITIVE?
/NO-MAKE POS, AND SET LINK
/NEGATE FOR COUNTER
/AND STORE
/LINK«1»DIV»«0-MUL, # 8Y TEN
/FORM CORRECT INSTRUCTION
/AND STORE FOR EXECUTION
/DONE ALL OPERATIONS?
/NO

/YES-RETURN
/NO- MUL OR DIV, MANTISSA

FCNT

/BY TEN
/GO ON

,+1

/THESE

WOS. MUST BE IN THIS ORDER

/iiniMinniuii

/OS/8 BASIC RUNTIME SVSTEM

PAL8-V7

PAGE i00

10/24/72

/ROUTINE TO GET A CHAR FROM THE TTY AND SEE IF IT 15 DIGIT
/OR A TERMINATOR.
/RETURN TO CAUL
IF TERMINATOR, TO CALL
I
2 IF DIGIT
/THIS ROUTINE MUST NOT MODIFY THE MQU
05322
05323
0S324
05325
05326
05327
05330
05331
05332
05333
05334
05335
05336
0S337
05340
05341
05342
05343
05344
05345
05346

0000
3043
4347
1053
1362
7450
5335
1363
7640
5336
3300
4347
1053
1346
7100
1313
3315
7430
2322
5722
7506

GCHR,

DCA
JMS
TAD
TAD
SNA
JMP
TAD
SZA
JMP
OCA
OECONl, JMS
TAD
TAD
CLU
TAD
DCA
SZL
ISZ
JMP I
K7506,
7506

INPUT
CHAR
PLUS

OECONl
MINUS
CLA

/STORE ACCUMULATED EXPONENT (MAYBE)
/GET A CHAR FROM TTY,
/PICK IT UP
/WAS IT PLUS SIGN?

/YES-GET ANOTHER CHAR,
/NO WAS IT MINUS SIGN?

.S
SIGNF
INPUT
CHAR
K7S06

/YES-FLIP SWITCH
/GET A CHAR.
/SEE IF ITS

DIGIT

KK12
TPl

6CHR
GCHR

/STORE FOR LATER
/DIGIT?
/YES-RETN, TO CALL*2
/NO-RETN, TO CALL*l

/INPUT ROUTINE-IGNORES LEADING SPACES
/

05347
05350
05351
05352
05353
05354
05355
05356
05357
05360
05361
05362
05363

0000
4542
1052
7640
5360
1053

INPUT,

1361

7650
5350
5747
7540
7525
7776

lOUT,
M240,
PLUSr
MINUS,

JMS 1 GETCML
TAD OSWIT
SZA CLA
JMP lOUT
TAD CHAR
TAD M240
SNA CLA
JMP INPUT«1
JMP I INPUT
-240
-253

/USE OUR ROUTINE TO GET CHAR
/GET TERMINATOR
/VALID INPUT YET?
/YES-CONTINUE
/NO-GET CHAR
/COMPARE AGAINST SPACE
/IS IT A SPACE?
/YES-IGNORE IT
/RETURN

253-255

/ROUTINE TO DECIDE CALL ING MODE IN LIEU OF "SPECIAL MODE" PROBLEMS
i
05364
05365
05366
05367
05370
05371
05372

0000
7440
5371
1037
7640
2364
5764

PATCHff,

RTN2,

SZA
JMP RTN2
TAD FF
SZA CLA
ISZ PATCMF
JMP I PATCHF

/IS AC EMPTY

/NO-THIS IS ALWAYS SI MODE WITH AODR IN AC
/YES-GET SPECIAL MQOE FLIP-FiOP
/IF ON, THE ZERO AC MEANS ADDRESS OF B
/USE AC AS ADDRESS OF OPERAND
/RETURN

•

#
/Oa/8 BASIC RUNTIME SYSTEM

P*Ue-V7

l0/2«/72

PAGE I0i

PAGE

s«ee
/

/INVERSE FtOATING SUBTRACT-USES FLOATING ADD
/llFSWlUoTHIS IS OP-FAC
/

0S400
05401
0S402
05403
05«e«
05«05
0540»
05407
0S410
es4it

FF8U81,
4555
1«00
4644
6201
4610
1200
5611
6135
6125

JH8 I PATCMP
FFSUBl
TAD I
ARGETL
JM8 I
cor
FFNEGA
JHS I
FFSUBl
TAO
SUB0P
JMP I
FPNCGAf FFNC6
8UB0P.
8UB0

/WHICH MODE?
/CALUEO BY USER-GET ADDR, OF OP.
/GO PICK UP OPERAND
/NEGATE FAC
/AND 60 ADO

/INVERSE FLOATING DIVIDE
/FSMlTCHal
/THIS IS OF/FAC
/

05412
05413
05414
05415

FFDIVlf

05417
05420
05421
85422
05423
05424
05425
0542*
05427
05430
05431
05432
01433
05434
05435
05436
05437
054«0
05441
V5442

4555
1612
4644
1046
3051
1442
3046
1044
7141
1047
3044
3047
1045
3S42
1050
3045
1042
3950
6201
1212
3646
1247
3645
5643

05443
05444
B5445
05446
05447

5452
6200
5450
5722
5726

0S4U

JMS I PATCHP
FFOIVl
TAO I
ARGETL
JMS I
TAO
ACLO
DCA
OPU
AC2
TAD I
ACLO
OCA
ACX
TAO
cut CHA lAC
OPX
TAD
ACX
DCA
OPX
OCA
ACH
TAO
ACS
OCA
OPH
TAO
OCA
ACH
AC2
TAO
OPH
DCA
COF
FFOIVl
TAO
FFOP
OCA
TAO
KfOl
MOSETP
OCA
JMP
MOIP
MOlPi
ARGETL*
MOSITPf
FFOP*
KFOl»

MOl
ARGfT

MOSET
FFOIV
FFOl

/MHICH MODE OF CALL?
/CALLED BY USER-GET AOOR.
/PICK UP OPERAND
/8MAP THE FAC AND OPERAND
/THERE IS A POINTER TO OPL
/IN AC2 LEFT FROM ARGET SUBR,
/MIGHT AS WELL SUBTRACT THE
/EXPONENTS HERE (SAVES A MORD)
/THEN ZERO OPX SO WILL NOT
/HESS UP WHEN ITS DONE AGAIN
/LATE1» (SEE OIV, ROUTINE)
/NOW SWAP HIGH ORDER MANTISSAS

/DF TO PACKAGE FIELD
/NOW KLUDGE UP SUBROUTINE LINKAGE

/GO SET UP AND DIVIDE

/OS/t BASIC RUNTIME SVtTEM

PA1.8-V7

40/24/72

PASE 102

/HDSET-8ET8 UP SIGNS FOR MULTIPLY AND DIVIDE
/ALSO SHIFTS OPERAND ONE BIT TO THE LEFT,
/EXIT WITH E XPONENT OF OPERAND IN AC FDR EXPONENT
/CALCULATION -CALLED WITH AODKESS OF OPERAND IN AC AND
/DATA FIELD SET PROPERLY FOR OPERAND.
0^410
05«5l
05452
05453
05454
05455

0000
4703
6201
7344
3043
1050

0545fc

T700
5262

0S4S7
05460
05461
05462
05463
05464
05465
05466
05467
05470
05471
05472
05473
05474
05475
05476
05477
05500

7104
3051
1050
7004
3050
3041
1045
7700
5277
4701
2043
7000
1047
5650

05501
05502
05503

6135
6146
6200

MDSET,
MDl,

4702
2043

JMS I
ARGETK
CDF
CLA CLL CMA RAL
DCA
TM
TAD
OPH
SMA
CLA
JMP
.3
JMS I
OPNEGP
IS2

1051

LEV,

TAD
CLL
OCA
TAO
RAL
DCA
OCA
TAD
SMA
JMP
JMS I
ISZ
NOP
TAD
JMP I

TM
OPL
RAL
OPL
OPH

/GET ARGUMENT
/OF TO PACKAGE FIELD
/SET SIGN CHECK TO -2
/IS OPERAND NEGATIVE?
/NO

/VES-NEGATE IT
/BUMP SIGN CHECK
/AND SHIFT OPERAND LEFT ONE BIT

OPH
ACl

ACH
CLA
LEV
FFNEGK
TM
OPX
MDSET

/CLR. OVERFLOW WORF OF FAC
/IS FAC NEGATIVE

/NO-GO ON
/YES-NEGATE IT
/BUMP SIGN CHECK
/MAY SKIP
/EXIT WITH OPERAND EXPONENT IN AC

FFNESK, FFNEG
OPNEGP, OPNEG
ARGETK, APGET

/CONTINUATION OF FLOATING DIVIDE ROUTINE
/

05504
05505
05S06
05507
05510
05511
05512
05513
05514
05515
05516
05517
05520

1042
7141
1045
7420

FDl,

5733
7100
3045
4732
1041

7500
5327
7110
3045

0VL1»

TAD
AC2
CLL CMA lAC
TAO
ACH
SNL
JMP
DVOPSP
CLL
OCA
ACH
JMS
DV24P
TAO
ACl
SMA
JMP
FO
CLL
RAR
OCA
ACH

/NEGATE HI ORDER PRODUCT

/COMPARE WITH REMAINDER OF FIRST OIV,
/WELL*
/GREATER THAN REM. -ADJUST QUOT OF 1ST DIV.
/OK-DO
(REM-(0*OPL))/OPH
/FIRST STORE ADJUSTED PRODUCT
/DIVIDE BY OPH (HI ORDER OPERAND)
/GET QUOT. OF FIRST DIV,
/IF HI ORDER BIT SET-MUST SHIFT 1 RIGHT
/NO-ITS NORMALIZEO-OONE
/MyST SHIFT RIGHT 1
/STORE IN FAC

•

•
/08/» BASIC RUNTIME SYSTEM
05521
05522
0SS2]
0SS24
05525
05526
05527
05530

10«6
7010
3046
2044
7000
1045
3045
5731

05531
05532
05533

5742
5745
6315

FO,

TAO
RAR
OCA
I8Z
NOP
TAD
OCA
JMP

Pt LS-VT

PAGE 10?-1

ACLO

/SHIFT LOW ORDER RIGHT

ACUO

/STORE BACK
/BUMP EXPONENT

ACX

ACM
ACH
I

10/24/72

FDDONP

POOONPf FOOON
DV24P,
0V24
DVOPSP> OVQPS

/STORE HIGH ORDER RESULT
/GO LEAVE DIVIDE
/END OF FLT6, DIV. ROUTINE
/ROUTINE TO DO A 24Xi2BIT DIVIDE
/ROUTINE TO ADJUST OUOT OF FIRST DIV,

/CONTINUATION OF ROUTINE TO ADJUST OUOT, OF FIRST OIV.
/OBADl IS ONLY EXECUTED ON DIVIDE OVERFLOW-OTHERWISE THE
/ROUTINE STARTS AT DV0P2
/

05534
05935
05536
0SS37
05540
05541
05542
05543
05544
05545
05546

3044
7450
3046
3045
4732
1046
7141
3046
7420
7040
5314

DBADl,
DV0P2i

DC A
SNA

ACX

OCA
OCA
JH8 I
TAD
CLL CHA
DCA
SNL
CMA
JMP

ACLO
ACH
DV24P
ACLO

/DIVIDE 0VERFL0«ZERO ALL
/IS IT ZEROt
/YES-MAKE WHOLE THING ZERO
/DIVIDE EXTENDED REM, BY HI DIVISOR
/NEGATE THE RESULT

lAC

ACLO

OVLl

/IF OUOT, IS NON-ZERO, SUBTRACT
/ONE FROM HIGH ORDER QUOT,
/CO TO IT

/ROUTINE TO BUMP CHARACTER NUMBER
/USED BY CHAR PACKING ROUTINES, BUT ITS HERE AS
05573
05574
05575
05576
05577

5573
0000
1563
1076
3563
5773

• 5573

CNOBMLf
TAO I WORD0
TAD K0100
OCA I WORD0
JMP I CNOBML

/HEADER WORD
/ADD 1 TO THE COUNT BITS
/DONE

PATCH

/OS/8 BASIC RUNTIME SYSTEM

P*L8-V7

i0/2«/72

PAGE 103

S600

esfc00

05601
0Sft02
05ft03
-

<,*
n/

05605
05666
0S607
0S610
05611

0ffl3
05614
05615
05616
05617
05620
05621
^05622

PA&E
/FLOATINe MULTIPLY •DOES 2 24X12 BIT MULTIPLIES
FFMPY,
4Si5 ^^
/WHICH MODE OF CALL?
JMS I PATCHP
1600
FPMPY
TAD 1
/CALLED BY USER-GET OPERAND ADDR,
«77a
MDSETK /SET U P FOR MPY-OPX IN AC ON RETN,
JMS 1
ACX
/60 £XPONENT~A0t)IT10N'
-itAlQRE FINAL EKPDNEMT
-A«3345
OCA
0V24
/ZERO TEM STORAGE F0» MPV ROUTINE
3042
OCA
AC2
1045
ACH
TAD
/IS FAOa?
SNA
CLA
J650
/YE5-ZEB0 tX P O N C N T
30 44,
OCA
_-A£JL_
4243
MP24
JHS
/NO-MULTIPLY FAC BY LOW ORDER OPR,
10S0
TAO
OPH
/NOW MULTIPLY FAC BY HI ORDER MULTIPLIER
-

—

3051
4243
1042
3046
1345
3045
^S6?r "1045
05624 7004
05625 7700
0S626 5235

RTZRO,

DCA
JMS
TAD
OCA
TAD
DCA
TTfr
RAL
SMA
JHP

OPL
MP24
AC2
ACLO
Oy24
ACM
ACH
CLA
SHLFT

fssrr

3041. iroONE/

TS^r

ACT

05630
05631
05632
05633
05634
05635
05636
05637
05640
05641
05642

2200
2043
5600
4773
5600
7040
1044
3044
4642
5230
6057

ISZ
ISZ
J MP
JMS

FFMPY

SHLFT,

CHA
TAD
OCA
JMS
JHP

TM
I

FFMPY
FFNEGR

fFMPV

/STORE RESULT BACK IN FAC
/LOW ORDER
/HIGH ORDER
/DO

ViE

NEED TO NORMALIZE?

/YES-00 IT FAST
/NU-ZtHO OVERFLOW WDCOO I NEED THIS7tt)
/BUMP RETURN POINTER
/SHOULD RESULT BE NEGATIVE?
/NOPE-RETN.
/YES-NEGATE IT
/^tWHWl
/SUBTRACT 1 FROM EXP,

ACX
ACX
I

ALIPTR /SHIFT FAC LEFT
MOONE*l /DONE,

BIT

ALlPTRi ALl
/

i—'05 643

0000
05644 1375
05645 3047.
05646
1051
05647 7440
05*50 5254
3041
05651
05#52 _-S6«i
05653 1051
05654 7010
05655 3051
05656 7420
05657 5266

/24 BIT BY 12 BIT MULTIPLY,
MULTIPLIER IS IN OPL
/MULTIPLICAND IS IN ACH AND ACLO
J^SULT LEFT IN DV24,AC2, AND ACl

MP24r
TAD
OCA
TAD
8ZA
JMP
OCA
MPLPf
MPLPl.

TAO
RAR
DCA
SNL
JMP

UP^2 BIT COUNTER

KKM12
OPX
OPL

/SET

MPLPl

/NO-GO ON
/YES-INSURE RE5ULT»0

ACl

I— MPi4
OPL

/IS MULTIPLIER-07

/RETURN.

/SMTTt a BIT OUT OF LOW ORDER
/OF MULTIPLIER AND INTO LINK

OPL

MPLP2

/WAS IT A 17
/NO-0-JUST SHIFT PARTIAL PRODUCT

•
/OS/8 BASIC RUNTIME SVSTEM

fe
PAL8-V7

0S660
05661
05662
05663
0S664
05665
05666
05667
05670
05671
05672
05673
05674
05675
05676
05677
05700

10/24/72

PAGE

Jia4

/YE8-A00 MULTIPLICAND TO PARTIAL PRODUCT

VLOW ORDER
/PROPAGATE CARRY
/HI ORDER
/NOW SHIFT PARTIAL PROD. RIGHT

BIT

BIT OF OVERFLOW TO ACl

/DONE ALL 12 MULTIPLIER BITS?
/NO*SO ON
/YES-RETURN

ROUTINE-FFOIV MUST BE AT LOC. 1722
/STORE BACK MULTIPLIET
/GET PRODUCT SO FAR
/WAS MULTIPLIER BIT A 1?
/NO-JUST SHIFT THE PARTIAL PRODUCT
/YES-CLEAR LINK AND ADO MULTIPLICAnO
/TO PARTIAL PRODUCT
/SHIFT PARTIAL PROOUCT-THIS IS HI ORIER
/RESULT-STORE BACK
/SHIFT A BIT OUT OF MULTIPLIER
/AND A BIT OR RESLT, INTO IT (LO ORO
/DONE ALL BITS?
i6Nfi5Ume_&A£K
/l ES-LOW ORDER P RO£, OF QUPT. X QPL
GATE AND STORT

mnjPiHn
FOIP,
/

05722
05723
05724
05725
05726
05727
05730

0000
1722
4774
7041
1044
3044

ifmv~
^'(^

05732
05733
05734
05735
-01136
B573 7

.-. 057Jre

W^"T41

C ARRY

(K^

FOIP
/GO ON
/POINTER TO REST OF DIVIDE ROUTINE

/FLOATING DIVIDE ROUTINE
/USES THE METHOD OF TRIAL DIVISION BY HI
ORDER
FFOIV,
/(USED AS A TEM. BY I/O ROUTINES)
JMS
PATCHP
/WHICH MODE OF CALL?
"*
TAD
FFDIV
/CALLED BY USER-GET ARG, ADDB,
JMS
MDSETK /GO SET UP FOR DIVIDE-OPX IN AC
ON RETN.
FFDl
lAC
/NEGATE EXP. OF OPERAND
ACX
/ADO EXP OF FAC
ACX
i^ ORE AS FINAL EXPONENT
/NEGATE HI ORDER OP, FOR USE
/AS DIVISOR
.

7141
3050
4345
1046

DIV,

ifliLl__.

1376

3200
5311

— (ACjitiyEL0)/OPH

"PWT,

forlatIr^

counter for 12 bit MULTIPLY tT///^'
/TO MULTIPI^Y QU07. OF DIV. Bi
J ,-,
/LOW ORDER OF OPERAND (OPLJiVA/V

FFMPY
OVLPl

-=> ^^9la.|-

PALe-V7

/OS/8 BASIC RUNTIME SYSTEKI

10/24/72

PAGE 105

/END OF FLOATING DIVIOE-FUDGE SOME
/STUFF THEN JUMP INTO MUUTIPUY
/

05T«2
85743
05744

1322
3200
5227

FDDON,

FFDIV
FFMPY
MDONE

TAO
OCA
JMP

/STORE RETN. ADDR. IN MULT ROUTINE
/GO CLEAN UP

/DIVIDE ROUTINE-. 24 BITS IN ACH.ACLO ARE DIVIDED BY 12 BITS
/IN 0P«, OPH IS ASSUMED NEGATIVE AND ,GT, ACH IN ABSOLUTE VALUE
/ELSE-OIVIOE OVEBPL0W--WE RETURN NORMALLY WITH QUOTIENT
(AC2a0 ON RETN.)
/IN ACLO AND REM. IN ACH,
/

^'l

A
h
sjl^

05745
05746
05747
05750
05751
05752
05753
05754
05753
a5756
05757
05760
057fcl

0S76S

0000
1045
1050
7630
5777
1376
3042
5365
1045
7004
3045
1045
1050

0SJ<.3

74303045.

W764

7200

05765
05766
05767
05770
05771
05772

85773
05774
05775
05776
05777

•

1046.

7004
3046
2042
5355
5745
6135
5450
7764
7763
6355

DV24,

DV2,

DVl,

FFNEGR)
MDSETK*
KKM12,
KMl3f
OVOVR,

TAD
TAD
82L
JMP
TAD
OCA
JMP
TAD
RAL
OCA
TAD
TAD
SZL
OCA
CLA
TAO
RAL
OCA
ISZ
JMP

JMP I
FFNEG
MOSET
-14

ACH
OPH
CLA
DVOVR
KM13
AC2

/CHECK THAT DIVISOR IS .GT, DIVIDEND
/DIVISOR IN OPH (NEGATIVE)
/IS IT?
/NO-OIVIOE OVERFLOW
/YES-SET UP 12 BIT LOOP

DVl
ACH

/g'o

ACH
ACH
OPH

/RESTORE HI ORDER
/NOW SUBTRACT DIVISOR FROM HI ORDER
/DIVIDEND
/GOOD SUBTRACT?
/YES-RESTORE HI DIVIDEND
/NO-DON'T RESTORE"OPH.GT,ACH
/SHIFT FAC LEFT I BIT-ALSO SHIFT
/I BIT OF QUOT, INTO LOW ORD OF ACLO

ACH

ACLO

ACLO
AC2
0V2
0V24

begin DIVIDE
/CONTINUE SHIFT OF FAC LEFT

/DONE 12 BITS OF QUOT?
/NO-GO ON
/YES-RETN W/AC2*0

-IS
OV

•

/eS/a BASIC RUNTIME SYSTEM
6000

PAL6-V7

10/2«/72

PA^E 106

PAGE

/FLOATING AOO
i

06000
06001
06002
06003
06004
06005
06006
06007
06010
06011
06012
06011
06014
06015
0«016
06017
06020
06021
06022
06023
060J4
06025
06026
06027
06030
06031
06032
06033

0000

FFAOO,

4SM.^3
1600
4727-

6201

FA01»

1050-

7650
5227
1045
7650
5223
1044
7141-

1047

7S40
52 31
7041
4234
4272
1047

3044
4357
4776
2200
5600
4272'

OOAOO,

DONA»

FACRi

4234
5223

JMS I PATCMP
TAO I
FFADO
JMS I
ARGETP
CDF
TAO
OPH
SNA
CLA
JMP
DONA
TAD
ACM
SNA
CLA
JMP
OOADD
TAD
ACX
CLL CMA lAC
TAO
OPX
SKA
SZA
JMP
FACR
CMA
lAC
JMS
OPSR
JMS
ACSR
TAO
OPX
OCA
ACX
JMS
OAOD
JMS I
FNORP
IS2
FFAOO
JMP I
FFAOO
JMS
ACSR
JMS
OPSR
JMP
DOAOO

/WHICH MODE FO CALL7
/CALLED BY USER-GET AOOB, OF OPR.
/PICK \i9 OPERAND
/OF TO PACKAGE FIELD
/IS OPERAND
/YES-DONE'
/NO-IS FACi07

/YES-DO AOD
/NO-DO EXPONENT CALCULATION
/WHICH EXP, GREATER?
/OPERANDS-SHIFT FAC
/FAC»S-8MIFT 0PE8AND»0IFFRNCE*l
/SHIFT FAC ONE PLACE RIGHT
/SET EXPONENT OF RESULT
/DO THE ADDITION
/NORMALIZE RESULT
/BUMP RETURN
/RETURN
/SHIFT FAC * 0IFF,*1
/SHIFT OPR, 1 PLACE
/DO ADDITION

06034
0603S
06036
06037
06040

06041
06042

06043
06044
06045
06046
06047
06050

06051
06052

.^^053
06054

L .06055

;^g^ 06056

0000
7040
3040
1050
7004
7200
1050
7010
3050

/OPERAN
/IN AC
OPSRi

CM*

OCA-

L0P2»

1051

7010
3051
7010
3042

2047/''"" ^
7000\ N0P2»
2040
5237
5634

SHIFT RIGHT-ENTER WITH POSITIVE COUNT-1

\_—

AC0
OPH

TAD
RAL
CLA
TAO
RAR
OCA
TAD
RAR
OCA
RAR
OCA

OPH
OPH
OPL

I
I

"---^
/GET HI MANTISSAS/SHIFT IT RIGHf, PROPAGATING SIGN
^
-^
^^^--—
/STORE BACK

—

/STORE LO ORDER BACK
/SAVE 1 BIT OF OVERFLOW

AC2
OPX

/IN AC2

ISZ

AC0

JMP
JMP

L0P2
OPSR

/DONE ALL SHIFTS?
/NO-LOOP
/YES-RETN,

/INCREMENT EXPONENT

NOP

/GET SIGN BIT
/TO LINK

OPL

ISZ

(COUNTED TO SHIFT COUNTER

/OS/8 BASIC RyNTIME SYSTEM

PA(.e-V7

10/24/72

PAGE 1B7

/SHIFT FAC LEFT

BIT

06057
06060

0000
1041

TAD

ACl

06061
06062
06063
06064
06065
06066
06067
06070
06071

7104
3041
1046
7004
3046

Ci.L

SAL

OCA
TAO

ACLO

ALl,

/GET OVERFLOW BIT
/SHIFT LEFT
/STORE BACK
/GET LOW ORDER MANTISSA
/SHIFT LEFT
/STORE BACK
/GET HI ORDER

ACl

RAL.

OCA
TAB
RAi
OCA
JMP

1045^

7004
3045
S6S7

ACLO
ACH
ACM
I

/STORE BACK
/RETN.

ALl

/SHIFT FAC RIGHT-ENTER WITH COUNT-l IN AC (POSITIVE)
/

06072
06073
06074
06075
06076
06077
06100
06101
06102
06103
06104
0610S
06106
06107
06110

«M^il
•

iH^

06112
06113
06114

0000
7040
3040
1045
7004
7200
1045
7010
3045
1046
7010
3046
7010

ACSRf
CMA
OCA
TAD

LOPl,

/AC CONTAINS COUNT-1
AUV
/ aijjjMk buvni
^^
ACH
ytfir SIGN BIT OF mantiss/Tx
WSET UP sign propagation^

RAi.

CLA
TAO
RAR
OCA
TAO
RAR
OCA
RAR
OCA
ISZ
MOP
ISZ
JMP
JMP

3041
\
2044 i<
7000 NOPlA
2040^
^^- — 1*^
5275
5672

k1_J

ACH

/GET HIGH ORDER MANTISSA
/SHIFT RIGHT 1, PROPAGATING SIGN
/STORE BACK
/SET LOW ORDER
/SHIFT IT
/STORE BACK

ACH
ACLO

ACLO

ACl
ACX

/SAVE 1 BIT OF OVERFLOW
/INCREMENT EXPONENT

AC0
LOPl
ACSR

/DONE?
/NO-LOOP
/YES-RETN-AC«L»0

/Qivioe

OJil€Rf LOW-ZERO

ACX,ACM,ACLO

06115
06116

7300
5775

DBAD,

CLA
JMP

CLL
I

OBAOIP

/N£C£SSARV SO WE DON'T GET OVRFLO AGAIN
/GO ZERO ALL

•FV0ATIN6 SUBTRACT
06117
06120

0000

06121
06122
06123
06124
06125
06126
06127

1717

FFSUB,
JM8 1 PATCHP
TAO I
FFSUB
JHS I
ARGETP
JMS
0PNE6
TAO
FF5UB
OCA
SU80I
FFAOD
JMP
FAOl
ARGETP, AR6ET

45«»^3l
4727
4346
1317
3200.

5204
6200'

(,>-;,-£,•?«/

/WHICH MODE OF CALL?
/CALLED BY USER-GET ADDR. OF OP
/PICK UO THE OP,
/NEGATE OPERAND
/JMP INTO FLTG. AOO
/AFTER SETTING UP RETURN

6«^

/W/i8 BASIC RUNTIME SYSTEM

PAI.8"V7

10/2«/72

•*^108

/FLOATING NEGATE
0613S
ebt36
06137
06140
06141

06U2
06143
06144
06145

0000
1046
7141
3046
7024
1045
7141
3045
5735

FFNEQ,
TAD
ACLO
CLL CMA lAC
ACLO
DCA
RAL
CML
ACH
TAD
CUL CMA lAC
ACH
OCA
FFNEG
JMP I

/(USED AS A TEM, BY OUTPUT ROUTINE)
/GET LOW ORDER FAC
/NEGATE IT
/STORE BACK
/ADJUST OVERFLOW BIT AND
/PROPAGATE CARRY-GET HI ORD
/NEGATE IT
/STORE BACK

/NEGATE OPERAND
/

06146
06147
061S0
061S1
06152
06153
061S4
06155
06156

0000

OPNES,
TAD

1051
7141
3051
7024
1050
7141
3050
5746

CLl,

DCA
CMC
TAD
CLL
DCA
JMP

OPL
CMA lAC
OPL
RAL
OPH
CMA lAC
OPH
OPNEG
1

/GET LOW ORDER
/NEGATE AND STORE BACK

/PROPAGATE CARRY
/GET HI ORDER
/NEGATE AND STORE BACK

/ADO OP ERANO TO FAC
/

06157
06160
06161
06162
06163
06164
06165
06166
06167
06170
06171
06172
06173
06174
06175
06176

0000
7100
1042

OADDf

CLL
TAO
1041
TAD
DCA
3041
7004
RAL
1051
TAD
1046
TAO
3046
OCA
7004
RAL
1050
TAD
1045
TAD
3045
OCA
5757
JMP I
55M*/A)BA01Pi DBADl
FFNOR
621S FNORP,
>

AC2
ACl

/ADD OVERFLOW WORDS

ACl

OPL
ACLO
ACLO

OPH
ACH
ACH
OADO

/ROTATE CARRY
/ADO LOW ORDER MANTISSAS

/ADO HI ORDER MANTISSAS

/RETN,

•

PAUS-V7

/OS/8 BASIC RUNTIME SVSTCH

IFNZRO EAE

10/24/72

PACE 109

/EAE FLOATING POINT PACKAGE
/FOR POPS/E WITH KES.E EAE
/

/W.J. CL06HER
/

/DEFINITIONS OF EAE INSTRUCTIONS
8WP*7Set
CAH«762l
MSA • 7501
MeL<742t
86T«fte0(>

SWA8«74S1
SWBA«7«47
8CAa7«4t
MUY«7«a5
0VI«7«e7
NNIi74il
8HLa74I3
ASR«74tS
I.SR«74I7

ACS«7403
SAH«74S7
DAD>7443
Dl.0a7SU
OST-7445
0PIC»7S73
OCNa7S7S
0PSZ«74$1
/

ACLOaiORO
T««TeMP4
ENPUNCM

•

#
/0$/e BASIC RUNTIME SYSTEM

PA1.8-V7

l0/84/7a

PAGE 110

/FLOATING OUTPUT ROUTIN
/

FPOUT,

FFMT.

FOUTl,

F0UT2|

SMAB
/ALSO DOES MOL TO CLB, AC
OCA
SIGN
/CLEAR SIGN AND COUNT MOROS
KNT
OCA
TAO
EFUS
/IS THIS E FORMAT?
SZA
CUA
JHP
FFMT
/NO-F FORMAT
CLL CML lAC RTL /VES-MAKE A 6
OCA
DADP
/STORE AS « OF DIGITS AFT DEC PT
TAO
/SET FIELD WIDTH TO 14 ( DECIMAL)
DCA
FLOW
CDF
/CHANGE TO FIELD OF PACKAGE
TAO
KM7
/SET # OF SIGNF, DIGITS
DCA I
OCNTP
/TO fe (DON'T PRINT 7TH)
ACM
TAO
/DETERMINE IF »«ia
SNA
JMP
F0UT3
/YES-SKIP DOWN
SMA
CLA
/NO«IS IT NEGATIVE?
JMP
,*i
/POSITIVE
ISZ
SIGN
/NEGATIVE-SET FLAG
FFNGP
JMS I
/AND NEGATE #
TAO
ACX
/GET « INTO RANGE .1<*N<1
SHA SZA CLA
/IS EXP. NEG,7
JMP
F0UT2
/NO-GO ON
JMS I
FFMPP
/YES-MAKE i GREATER THAN 1
TEN
/BY MULTIPLYING BY TEN (DEC.)
KNT
ISZ
/COUNT THE MULTIPLIES
JMP
FOUTl
/SEE IF >1 YET
JMS I
SEP
/# IS H-MAKE IT LESS THAN I
JMS I
FFPUTP /STORE IN A TEMPORARY
TM3
OCA
ACX
/SET FAC TO .5
CLL CML RTR
ACH
OCA
OCA
ACLO
TAO
EFLS
/IS THIS E FORMAT?
SZA
CLA
TAO
KNT
/NO-GET COUNT OF MULTIPLIES
CMA
lAC
/NEGATE IT
OAOP
TAO
/AND AOO i OF DIGITS AFT, OC, PT,
SMA
/MUST BE NEGATIVE
CMA
KK7
TAO
/LIMIT « OF DIVS TO 7
SPA
CLA
KMT
TAO
/RESTORE
OCA I
SEP
/STORE A5 COUNTER
JMP
.3

/08/8 BASIC RUNTIME SYSTEM

F0UT4,

PAL8-V7

FFDVP

/DIVlDfc

ISZ
JMP
JMS
TM3
JMS
TAO
CMA
OCA
OLD
ACH
SMP

SEP
.-3
FFADP

/DONE?
/NO-GO ON
/YES-ADD IN 0RIG,«-THIS IS ROUNDING

SEP
ACX
lAC
FOUTb

/INSURE THAT IT IS IN RANGE
/GET EXPONENT
/USE AS COUNT FOR SHIFTING MANT.

NOTEi

AOFMi

PRDCPi

,5 BY

TEN THAT

OF TIMES

/PICK UP MANTISSA
SHL

/PUT IN CORRECT ORDER
/SHIFT LEFT KFOR
EXP.)
/NOW SHIFT RIGHT ACCORD TO EXP,

ACH

/STORE BACK

1,SR

FOUTJi

PAGE 111

JMS
TEN

F0UT5,

10/24/72

DCA
SWP
DCA
TAD
DCA
TAD
SZA
JMP
DCA
TAD
JMP
TAD
SMA
CUA
TAD
TAD
CMA
TAO
SMA
JMP
OCA
JMP
TAD
JMS
ISZ
JMP
TAO
CUL
TAD
JMS
TAD
SMA
JMP
CMA
JMS
TAO
SNA
JMP
JMP

ACtO
KNT
OPX
EFLG
CLA
NOTE
KNT
KM7
ADFW
KNT

/DONE-GET COUNT OF MULS.
/PRESERVE IT
/IS THIS E FORMAT OUT?
/NO

/YES-ZERO COUNT
/GET MINUS 7-FOR 2 SIGNS, PT, +EXP
/GO ADD FIELD WIDTH
/GET COUNT OF MULTIPLIES
/IF NOT NEG-MAKE « -2

CMA
Ml

FLDH
lAC

OADP
I

PRNTXP

SEP

KKe40
OUTP
SEP

.3
I

/PRINT

SPACE

/OONfc?

SIGN
RAL
K253
OUTP
KNT

/NO-GO ON
/YES-GET SIGN
/MAKE A ZERO OR 2
/FOR PLUS OR MINUS
/PRINT SIGN
/GET MUL COUNT

PRZROP

/PRINT LEADING ZERO

.-3

/MINUS 1 FOR DEC.PT
/GET THE FIELD WIDTH
/NEGATE IT
/ADD DIGITS AFTER DEC. PT
/NEG?
/NO-PRINT XS-NOT ENUFF ROOM
/STORE AS CNT OF SPACES

lAC
I

DGTYPP
OADP
CLA

GKNTP
POPP

/OUTPUT 'KNT' DIGITS
/DON'T PRINT DEC, PT
/IF OADP IS

PAL6-V7

/08/8 BASIC RUNTIME SYSTEM

PRZROP, PRZRO
POPP»
PDP
Kill,

GXNTP,
FLINR,
PRNTUP,
KZSSt

PW,
OCNTP,
MI,
KKT,

GKNT
JMP I
PRNTX
253
PR
OCNT
7777
7

06TyPP» OGTVP
OUTPf
OUT
KK24fl,
240
KM7,
FPAOP,
FFOVP,
FFPUTP,
SEP,
FFWPP,
FFH6P,
KNT,
SI«N,

-T

FFADO
FFOIV
FFPUT
8€
FfMPV
FFNfG
8

FFOUT

10/24/72

PAGE 112

PAUa-V7

/OS/8 BASIC RUNTIME SYSTEM
PDP,

GKNT,

PZR»
PR»

PS,
GD,

DONEF,

PAGE
CLA CLL
JMS
TAD I
SPA SNA
JMP
TAD I
CMA
OCA
TAD
CMA
DCA
JMP
JMS

PAGE 113

CMA RAL
/PRINT DEC. PT.
OUTDG
/SET COUNT AGAIN
KNTP
CLA
SO
KNTP
/GET COUNT
/NEGATE
/STORE AS COUNTER
DGTYP
DADP
/SAME FOR DADP
SE
PR

OUTDG
DGTYP

ISZ
SKP
PS
JMP
SE
ISZ
PZH
JMP
KNTP
TAD I
lAC
CMA
OADP
TAD
SZA
SMA
JMS
DGTYP
EFLG
TAD
CLA
SZA
DONEF
JMP
K3a5
TAD
JMS
OUT
OPX
TAD
SMA SZA CLA
CLA lAC RAL
P253
TAD
OUT
JMS
OPX
TAD
SPA
lAC
CMA
OVI
MQL

K144
SWP
JMS
OVI
K12
SMP
JMS
SMP
JMS
TAD
SNA
JMP I
TAD
JMS
TAD
JMS
JMP I

10/24/72

OUTDG

OUTDG
SWIT2
CLA
FLING
KK215
OUT
K212
OUT
FLING

/GO ON

/PRINT

ZERO

/DONE
/PRINT '£•
/GET PRESERVED COUNT OF MULS
/DETERMINE SIGN
/MAKE A 2
/PRINT MINUS OR PLUS SIGN
/SET THE COUNT

/NEGATE IF NEGATIVE
/DIVIDE BY ONE HUNDRED
/QUOT TO ACi REM TO MQ
/THIS IS FIRST OIG-PRINT IT
/DIVIDE REM BY TEN
/GET SECOND DIGIT
/PRINT IT

/PRINT LAST
/SHOULD WE PRINT CR/LF?
/NO

/OS/8 BASIC RUNTIME SYSTEM

PAU8-iV7

PAGE 11«

ie/£(i/72

/ROUTINE TO GET FAC«1
/

SE,

SEl,

ACX
TAD
SPA SNA CLA
JMP I
SE
JliS

FFOV

/#>17
/NO-RETN,
/VE8-0IV, BY TEN

TEN
CfIA

TAO
OCA
JMP

I
I

KNTP
KNTP

/REDUCE KNT BY

5€i

/OUTPUT DISITS OP FAC BY MULTIPLYING BY TEN
/THE HIGH ORDER OVERFLOW IS THE DIGIT
06TYP,

DTI,

CMA
OCA
SMAB
TAD
MQL
K12
SMP
DCA
TAO
SNP
Ki2
ISZ
JMP
CLA
OCA
JM8
SMP
OCA
ISZ
JMP
JMP

I AC
SE

ACLO
MUY

ACLO
ACH
MUY

OCNT

.3
CMA
OCNT

OUTDG
ACM
SE
I

OTl
DGTYP

/STORE COUNT PASSED
/MODE 8 OF EAE
/GET LOW ORO€R FAC
/MUL BY TEN
/NEW ACLO TO AC
/STORE IT BACK
/GET ACH-SENO TO MQ^ AND
/MI ORO, OVERFLO OF MUY TO AC
/MULT BY TEN, OV«FLO IS ADDED
/DONE ALL SIGNIF. DIGS,?
/NO-GO ON
/YES-PRINT ZEROS
/FROM NOW ON
•PRINT DIGIT {HI ORO, OVRFLOW)
/NEW ACH IS IN MQ
/STOKE IT
/DONE REQUIRED?
/NOPE
/YUP

PRNTX,

CLA
TAO
CMA
OCA
PBNTXl, ISZ
SKP
JMP
TAD
JHS
JMP
K252,
2se

FLOW
SE
SE

DONEF
K252
OUT
PRNTXt

/GET FIELD WIDTH
/MUST BE NEGATIVE
/USE AS COUNTER
/DONE ALLt
/NO«GO ON
/Y€S-RtTN,

/PRINT ASTERISK

/ASTERISK

PAUB-V7

/OS/8 BASIC RUNTIME SYSTEM
CLA
JM8
JMP I
PROCPP* PROCP

PRZHO,

OUTDG
PRDCPf
PRDCPP

l0/2«/72

/CLR. GARBAGE
/PRINT ZERO
/PRINT DEC. PT.

PAGt 115

(MAY8E)

/OUTPUT ROUTINE
/

OUT.

OCA
JMP

I
I

XR3
OUT

/STORE IN INTERMEDIATE BUFFER

/OUTPUT DIGIT
/

OUTOG,
TAD
JMS
JMP
RNTP»
KKZtb,
KStSr
TM3,

DCNT,
K30S«
PZb9t
FFOV.
P2S3f
FLINS,
K14«.

P260
OUT
1

OUTDG

/RETN

KNT
215
212
a

/COUNT OF SIGNF. DIGITS
305
260
FFOIV
253
FLINK
104

/08/8 BASIC RUNTIME SYSTEM

PAU8-V7

10/24/72

PAGE 116

/FLOATING POINT INPUT ROUTINE
/

PAGE
FFIN,

CLA
DCA
CMA
OCA
CDF
OCA
DECONVi DCA
DCA
OCA
OECNV,
DCA
DECON,
JMS
JMP
isz
ISZ
OCA
JMS
TIN
JMS

CMA
PRSM

/INITIALIZE PERIOD SWITCH TO -I
/SET SIGN SWITCH TO -1

SI6NF

OSWIT
ACX

ACLO
ACH
DNUMBR
SCHR
FFINI
OSMIT
DNUMBR
TPl
I

FMPVLL

I FPUTL
FPPTM 1
JMS I FGETL

/CHANGE TO DF OF PACKAGE
/ZERO CONVERSION SWITCH
/ZERO OUT THE FACl
/ZERO « OF DIGITS SINCE DEC. PT,
/GET A CHAR, FROM TTY,
/TERMINATOR/OISIT-BUMP CONVERSION SWITCH
/BUMP « OF DIGITS
/STORE IT IN FORM EASILY FL0ATI8LE
/MULTIPLY * BY 10
/STORE IT AWAY
/GET NEW DIGIT

FFINi,

FIG02.

JMS I FNORL
JMS I FADOLI.
FPPTM 1
JMP
OECON
PRSW
ISZ
JMP
FI602
TAD
K2
SNA
CLA
JMP
OECNV
DCA

DNUMBR

CL.A

MOW
SIGNF
FFNEGP

ISZ
JMS

/FLOAT IT
/ADO IT TO THE ACCUMULATED

/GO ON
/HAVE WE HAD A PERIOD YET?
/YES-GO ON
/NO-IS THIS A PERIOD?

/VE8-ZERQ DIG, COUNT AFTER DEC, PT,
/AND GO CONVERT REST
/NO-TERMINATOR-ZERO COUNT OF
/DIGITS AFTER DECIMAL POINT.
/0 TO MQ FOR LATER MULTIPLY
/IS # NEGATIVE?(DI0 WE SET - SIGN?)
/YES-NEGATE IT

SVIAB

6ETE»

CMA
DCA
TAD
TAD
SNA
JMS
JMP
MUY
%IZ
JMP

/RESET SIGN SWITCH FOR EXP,
SIGNF
CHAR
KME
CLA
GCHR
EOON
GETE

/NO-WAS THE TERMINATOR AN »E'?

/YES-GET A CHAR, OF EXPONENT
/END OF EXPONENT
/GOT DIGIT OF EXP-MULT ACCUMULATED
/EXPONENT BY TEN AND ADO DIGIT
/CONTINUE

PAUa-VT

/OS/8 BASIC RUNTIME SYSTEM
EDONi

ISZ
OCM
CUA
TAD
SAM

SI6NF
CLL

DNUMBR

10/84/72

PAGE 117

/WAS EXPONENT NEGATIVE?
/YES-NEGATE IT
/CLEAR AC AND LINK
/GET # TIMES TO OIV MANTISSA BY TEN
/SUBTRACT FROM EXPONENT

CI.L

/RESULT POSITIVE?

SPA

CMA CML lAC /NO-MAKE POS. AND SET LINK
/NEGATE FOR COUNTER
CMA
ONUMBR /AND STORE
DCA
/LINK"1-OIV»«0-MUL. # BY TEN
RAU
MOV
/FORM CORRECT INSTRUCTION
TAD
/AND STORE FOR EXECUTION
FINST
OCA
DNUMBR /DONE ALL OPERATIONS?
ISZ
/NO
FINST
J MP
/YES-RETURN
FFIN
JMP I
/NO- MUL OR OIV, MANTISSA
/BY TEN
TEN
FCNT
/GO ON
JMP
cut.

FCNT,

FIN8T,

FFNEGP* FFNCG
PRSW>
DNUMBRi
SI6NF,
2

-305
JMS I
FMPVLL* FFMPV
FFOIV
FADOLLf FFADO
KME,
MOV I

K12»
TP,

12
13

TPl,

TEN>

2400

•

/THESE

WDS, MUST BE IN THIS ORDER

/nuiMMtnuMi

/OS/6 BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

PAGE 118

/ROUTINE TO GET A CHAR FROM THE TTY AND SEE IF IT IS DIGIT
/OR A TERMINATOR.
/RETURN TO CALL * I IF TERMINATOR, TO CALL * 2 IF DIGIT
/THIS ROUTINE MUST NOT MODIFY THE MOn
GCHR»

JM8
TAD
TAD
SNA
JMP
TAO
SZA
JMP
OCA
DECONl, JMS
TAD
TAD
CLL
TAD
8ZL
ISZ
JMP I
K7506,
7506
-253
PLUSi
MINUS,
253*255

INPUT
CHAR
PLUS

/GET A CHAR FROM TTY,
/PICK IT UP
/WAS IT PLUS SIGN?

DECONl
MINUS
CLA

/YES-GET ANOTHER CHAR,
/NO WAS IT MINUS SIGN?

.3
SIGNF
INPUT
CHAR
K7506

/YES-FLIP SWITCH
A CHAR.

/GET

/SEE IF ITS

DIGIT

K12
GCHR
GCHR

/DIGIT?
/YES-RETN, TO CALL*2
/NO-RETN. TO CALL*l

/
/

/INPUT ROUTINE-IGNORES LEADING SPACES
/

INPUT,

lOUT.
M240,

JMS I GETCHL
TAO DSWIT
SZA CLA
JMP lOUT
TAD CHAR
TAD M240
SNA CLA
JMP INPUT+l
JMP I INPUT
-240

/USE OUR ROUTINE TO GET CHAR
/GET TERMINATOR
/VALID INPUT YET?

/YES-CONTINUE
/NO-GET CHAR
/COMPARE AGAINST SPACE
/IS IT A SPACE?
/YES-IGNORE IT
/RETURN

/ROUTINE TO DECIDE CALI ,ING MODE IN LIEU OF "SPECIAL MODE" PROBLEMS
i

*53<>«

PATCMF,

RTN2,

SZA
JMP RTN2
TAD FF
SZA CLA
ISZ PATCHF
JMP I PATCHF

/IS AC EMPTY

/N0-THI8 IS ALWAYS SI MODE WITH ADUR IN AC
/YES-GET SPECIAL MODE FLIP-FLOP
/IF ON, THE ZERO AC MEANS ADDRESS OF
/USE AC AS ADDRESS OF OPERAND
/RETURN

/08/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

PAGE 119

PAGE

/FUOATING SUBTBACT-USES FLOATING ADD

/FSMUi
FFSUBl,
JMS I PATCHP
FFSUBl
TAD I
ARGETL
JMS I
CDF
FFNEGA
JMS I
FFSUBl
TAD
SUB0P
JMP I
FFNEGA, FFNEG
SUB0
SUB0P,

/WHICH MODE?
/CALtED BY USER-GET AODR. OF OP
/PICK UP ARGUMENT
/NEGATE FACl

/FLOATING DIVIDE
/FSWlTCHul
/THIS IS OP/FAC
/

FFDIVii
JMS I PATCHP
FFOIVI
TAD I
ARGETL
JMS I
COF
ACH
TAD
OPH
DCA
ACX
TAD
SWP
ACH
DCA
OPX
TAD
ACX
OCA
OPL
TAD
SMP
OPX
DCA
ACLO
TAD
OPL
OCA
OPH
TAD
SMP
ACLO
DCA
FFOIVI
TAD
FFDP
OCA I
FOl
TAD
MDSETP
OCA I
MO IP
JMP I
MOIP,
ARGETL*
MOSETP»
FFDPf
FDl,

HDi
ARGET

MD8ET
FFOIV
FFOl

/WHICH MODE OF CALL?
/CALLED BY USER-GET ADDR,
/CINTERP.)-GET OPRND.-AODR, IN AC
/CDF TO FIELD OF PACKAGE
/SWAP FAC ANO OPRND-OPH IN MQl
/STORE ACH IN OPH
/GET EXP OF FAC
/OPH TO AC, ACX TO MO
/STORE OPH IN ACH
/STORE OPX IN ACX
/OPL TO MQ, ACX TO AC

/STORE ACX IN OPX
/STORE ACLO IN OPL
/OPH TO MQ FOR LATER
/STORE OPL IN ACLO
/SET UP SO WE RETN TO
/NORMAL DIVIDE ROUTINE
/GO ARRANGE OPERANDS

/OS/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

PAGE 120

/PATCH TO EAE ADO ROUTINE
ADDPCHr
TAO ACl
TAD RB4000
0P8Z
JMP AOOPl
CU CML RTR
XSZ ACX
NOP
ADOPl,
TAD RB«0e0
JMP 1 AODPCH
RB4000r 4000

/ROUTINE TO BUMP CHARACTER NUMBER
/USED BY CHAR PACKING ROUTINES, BUT ITS HERE AS

• 5S73

CNOBML,
TAD I WORD0
TAD K01B0
DCA I WORD0
JMP I CNOBML,

/HEADER WORD
/ADO I TO THE COUNT BITS
/DONE

PATCH

—
10/24/72

PAIS-VT

/OS/8 BASIC RUNTIME SYSTEH

PAGE 121

/ruOATINB MUi.TII»l.Y-«00E8 « SINGLE MULTIPLIES WITH EAE
/THIS USES THE FACT THAT IF AC IS NON-ZERO WHEN YOU DO
/A MUY IN8TR, THE AC IS AOOEO TO RESULT OF THC MULTIPLY.
/(IN THE UOM ORDERr NATCHERLY)
PA6i
FFHPY,

JMS
TAD
JMS
CLA

MTCHP

I
I

TAO
-fHlifi-

TJBEU-

^MT^
ACl
OLD
aclO
TAD
OCA
MUY

/WHICH MODE?
/CALLED BY USER-GET ADDRESS
/SIT UP FOR MULT
/MULTIPLY-LOW ORDER FAC STILL IN MO
/THIS IS PRODUCT OF LOW ORDERS
/ZAP LOW ORDER RESULT-INSIGNIFICANT
OROER(l) OF FAC
ACH
" /GET LOW
MUY"'
/TO MO-MIGH ORD, RE5LT OF LAST MPY
/TO AC-WILL BE AOOEO TO RE8LT-THI8
/IS PRODUCT-LOW ORD FAC, HI ORD OP
/STORE RESULT
/HIGH ORDER FAC TO MO, OPX TO AC

FFMPY
MDSET
MUY

ACX
ACX

/AOO FAC EXPONENT-SET SUM OF EXPS,
/STORE RESULT
/MULt HIGH ORDER FAC BY LOW ORO OP,
/HIGH ORDER FAC WAS IN MQ
/ADO IN RESULT OF SECOND MULTIPLY

ACH
ACLO

/STORE HIGH ORDER RESULT
/GET HIGH ORDER FAC
/SEND IT TO MQ AND LOW ORO. RESULT
/OF ADD TO AC-STORE IT
/ROTATE CARRY TO AC
/STORE AWAY
/MOW 00 PRODUCJT OF HIGH ORDERS
/FAC HIGH IN MQ, OP HIGH IN OPL
/ADO IN THE ACCUMULATED •

WW)
ACS
OCA
TAD
8MP
DC A
RAU
OCA

AC0

ACLO

VsKL
mHrT
ACH
SNA

—wn

JMP

RTZROf

OCA
CLA
SNA

ACH
SCA
CLA
SNCK
CMA
ACX
ACX

JtIP

RT2R0,

/ZEROf

CLA
TAO
OCA

/VES-fifl ZERO EXPUMflU
-7Wr-N0RMALIZE (1 SHIFT AT M0STJ3
/STORE HIGH ORDER RESULT
/GET STEP CNTR-OIO WE NEED A SMIFT7

/NO-JUST CHECK SIGN
/YES-MUST DECREASE EXP, BY

/STORE BACK

•

/OS/8 BASIC RUNTIME SYSTEM

SNCKi

MPOSf

TAD
SPA
OPIC
ISZ
JMP
TAD
OCM
OCA
SWP
OCA
ISZ
JMP I

PAL8-V7
AC0
CLA

MSIGN
MPOS
ACM
ACH

ACLO
PFMPY
FPMPY

10/24/72

PAGE 122

/IS HIGH ORDER OF OVERfLO WO, 1?
/YES-ADD 1 TO UOW ORDER-STILL IN MQ
/RESULT NEGATIVE?
/NO'GO ON
/YE8»GET HIGH ORDER BACK
/LOi* ORDER STILL IN MQ-NtGATE
/STORE HIGH ORDER BACK
/LOW ORDER TO AC
/STORE AWAY
/BUMP RETURN
/RETIRN

MSIGM,
ARGETK* ARGET
OVOPU,
DV

/ROUTINE TO SET UP FOR MULTIPLY AND DIVIDE
/

MDSET,

MOl,

ARGETK

/GET OPERAND tADDR. IN AC)
/CHANGE TO DATA FIELD OF PACKAGE
CLL CMA RAL /MAKE A MINUS TWO
MSIGN
/AND STORE IN MSIGN,
/GET LOW ORDER MANTISSA OF OP.
QPL
/GET INTO RIGHT ORDER C OPH IN MQ)
/NEGATIVE?
I

—

/NO

MSIGN

/YES-NEGATE IT
/BUMP SIGN COUNTER
/SHIFT OPRND LEFT 1 TO AVOID OVRFLO

/STORE BACK-OPM CONTAINS LOW ORDER
/
QPL CONTAINS HIGH ORDER
/GET THE MANTISSA OF THE FAC

/MAKE IT CORRECT ORDER

/NEGATIVE?
FPOS

/NO

MSIGN

/YES-NEGATE IT
/BUMP SIGN COUNTER (MAY SKIP)

MOSET

/STORE BACK-ACH CONTAINS LOW ORDER
/
ACLO CONTAINS HIGH ORDER
/RETURN

FPOSi

/OS/S BASIC RUNTIME SYSTEM

f»Al.8-V7

10/24/72

PAGE 123

/FLOATING OIVIOC
/

*5T22
FFDIV,

J«S
TAO
IMS

J»

^FOl<

I
I

FATCHP
FFOIV
MOSET

D?r
OST

/WHICH MODE?
/CAUi.CO BY USER-6ET ARG. ADDRESS
/SET ARG, AND SET UP SIGNS
/OIVIOE-ACH AND ACLO IN AC.MO
/THIS IS HI Cn ORDER DIVISOR
/OUOT TO AC0,REM TO ACl

ACJL_
rft

DVLF»

OVLPl,

JMP I
TAO
CMA
TAO
OCA
OPSZ
SKP
OCA
MUY
OPH
OCM
TAO
SNi
JMP I
OVl
OPL
SZl
JMP I
TAO
SMA
JWP
U8R

ciA
OVOFU
OPX
I AC
ACX
ACX

/DIVIDE ERRORt
/YES-HANOtE IT
/DO EXPONENT CALCULATION
/EXP, OF FAC • EXP, OF OP
/IS OUOT
/NO-GO ON

ACX

ACl

/YES-ZERO EXPONENT
/NO-THIS IS Q«0PL*2**«12
/NEGATE IT
/SEE IF GREATER THAN REMAINDER

0V0P8P

/YES-AOJyST FIRST DIVIDE
/NO-DO Q*0PL«r2**«12/0PH

CLA
DVOFL
AC«

/DIV ERRORT
/YES
/NO-SET OUOT OF FIRST DIV,
/NEGATIVE?
/NO-REMEMBER-QUOT OF aNO DIV, IN MQ
/YES-MUST SHIFT IT RIGHT I

ACX

/ADJUST EXPONENT

MSIGN
ACH

/SHOULD SIGN BE MINUS?
/NO
/YES-DO IT
/STORE IT BACK

ACLO
FFOIV
FFOIV

/BUMP RETN, ANO RETN,

DVOPSP, OVOPS
DBADi
CAM
OCA
JMP

ACX
OBAOl

/ZERO EXHONENT
/GO ZERO MANTISSA

ISZ

NOP

OBAOt.

ISZ
8KP
OCM
OCA
SMP
OCA
ISZ
JMP

/-OS/a

BASIC RUNTIME SYSTEM

PAU8-vr

10/24/72

PAGE liU

/FLOATING AOOITION-IN ORDER NOT TO LOSE SITS, wE DO NOT
/SHIFT BOTH NUMBERS RI GHT 1 BIT BEFORE AOO-ONLY SHIFTS DONE
/ARE TO ALIGN EXPONENT S,
/

PAGE
FFAOU,

FAOlf

JMS I PATCHP
TAD I
FFAOD
JMS I
ARGETP
CDF
TAO
OPX
MQL
TAD
ACX
SAM
SPA
CMA
lAC
OCA
CNT
TAD
CNT
TAO
M27
SPA SNA CLA
CMA
DCA
AC0
OLD
ADORS
SGT
8WP
DCA
SWP
DCA
SGT
JMP
TAD
OCA
DLO

SHFB6
OAOR

.3
OPX
ACX

/WHICH MODE OF CALLING
/CALLED DIRECTLY BY USER
/PICK UP ARGUMENTS
/CHANGE TO CURRENT DATA FIELD
/PICK UP EXPONENT OF OPERAND
/SEND IT TO MQ FOR SUBTRACT
/GET EXPONENT OF FAC
/SUBTRACT-RESULT IN AC
/NEGATIVE RESULT?
/YES-MAKE IT POSITIVE
/STORE IT AS A SHIFT COUNT
/COUNT TOO BIStfCAN'T BE ALIGNED)
/NO-OK
/YES-MAKE IT A LOAD OF LARGEST #
/GET ADDRESSES TO SEE WHO'S SHIFTED

/WHICH EXP GREATER(GT FLG SET
/BY SUBTR, OF EXPS.)
/OPERANO'S-SHIFT THE FAC
/STORE ADDRESS OF WHO GETS SHIFTED
/GET ADDRESS OF OTHER C0 TO MO)
/THIS ONE JUST GETS ADDED
/WHICH EXPONENT WAS GREATER?
/FAC'S - DO NOTHING
/OPERANO'8-PUT FINAL EXP, IN ACX
/GET THE LARGER # TO AC.MQ

DAORt

SWP
ISZ

JMP
DST
ACe
OLD
SHFBG,

/PUT IN THE RIGHT ORDER
/COULD EXPONENTS BE ALIGNED?
/NO-JUST LEAVE LARGER IN AC, MO
/YES-STORE THIS TEMPORARILY
/(IF ONLY FAC STORAGE WAS REVERSED)
/GET THE SMALLER «

SWP
ASR
CNT,

AC0
LOO

/PUT IT IN RIGHT ORDER
/DO THE ALIGNMENT SHIFT

PAUB-Vr

/08/8 BASIC RUNTIME SYSTEM

NOOVf
LOD,

DAO
AC0
08T
AC0
8ZU
CMA
8MA
JMP
CLA
AND
TAO
8MA
JMP
JMS
NMI
OCA

/ADO THE LARGER

PAGE 125
•

/STORE RESULT
SIGN BIT)
/OVERFL0W?(L NOT
/NOTE-WE DIDN'T SHIFT BOTH RIGHT

CLI.

CLA
NOOV
/NOPE
CML RAR /MAVBE-SEE IF 2 «S HAD SAME SIGN
ACH
OPN
/SIGNS ALIKE?
CLA

OVRFUO
AODPCL
ACH

SMf>

OCA
SCA
CMA
TAO
OCA
AOON>
ISZ
JMF
OVRPlOf TAO
ASR

10/24/72

/VKS-OVERFLOW
/JUMP TO PATCH FOR THIS ROUTINE
/NORMALIZE (LOW ORDER STILL IN MS)
/STORE FINAL RESULT
/GET AND STORE LOW ORDER

ACLO
I AC

ACX
ACX

FFAOO
FFAOO
ACl

/GET SHIFT COUNTER(# OF NMI SHIFTS)
/NESATi IT
/AND ADJUST FINAL EXPONENT

/BUMP RETURN PAST ADDRESS
/RETURN
/OVERFLOW-GET HIGH ORDER RESLT BACK
/SHIFT IT RIGHT I

TAO
OCA
SMf
OCA

KKa000
ACH

/REVERSE SIGN BIT
/AND STORE

ACLO

ACK

/STORE LOW ORDER
/BUMP EXPONENT

NOP

AOON
4000
-17
MIT I
AOORS,
OPH
ACH
ARGETPf AR6ET
/FLOATING SUBTRACT-USES
/PSM011
FF8U8,
PATCHP
JMS
TAO
FP8UB
AR6ETP
JMS
COF
TAO
OPL
SMP
OCM
0PM
OCA
MOA
OCA
OPL
FF8UB
TAO
FFAOD
OCA
SUB0»
FAOi
JMP

/DONE

KK«0f9e«

FLOATING ADD
/NHICH MOOET
/CALLED BY USER"6ET ADDRESS OF OP.
/OPN IS IN MQI
/PUT IT IN RIGHT OflOER
/NEGATE IT
/STORE BACK
/GO TO AOD

/OS/B BASIC RUNTIME SYSTEM

PAL8-V7

10/84/78

PAGE 186

/FLOATING NEGATE--NEGATE FLOATING AC
FFNEG,

SWAB
OLD
ACH
SWP
DCM
OCA
SWP
OCA
JMP I

/MUST BE MODE
/GET MANTISSA

ACH

/CORKECT ORDER PLEASE!
/NEGATE IT
/RESTORE
/SEND
TO MQ

ACLO
FFNEG

/CONTINUATION OF DIVIOE ROUTINE
/WE ARE ADJUSTING THE RESULT OF THE
/FIRST DIVIDE.
/

OVOPS,

CMA
OCA
TAD
CLL CMA
TAD
SNL
JMP
OCA
CMA
TAD
OCA
DVOPl,
CLA
TAD
SNA
CAM
DVI
OPL
SZL
JMP I
DCM
JMP I
DVLPlPi DVLPl
OVOVR,
DV
ADOPCL» ADOPCH

NOPUNCH
>

lAC
ACl

OPL
lAC

/ADJUST REMAINDER
/WATCH FOR OVERFLOW

ACl

DVOPl
ACl

/DON'T ADJUST QUOT.

AC0
AC0
CLL

/REDUCE QUO! BY

ACl

/GET REMAINDER
/ZERO?
/YES-ZERO EVERYTHING
/NO

CLA
DVOVR

/OIV, OVERFLOW?
/YES
/NO-AOJUST HI QUOT
/GO BACK

DVLPIP

(MAYBE)

PAL8-V7

/OS/8 BASIC RUNTIME SYSTEM

10/24/72

PAGE 127

PAGE

6200

/ARGUMENT PICK UP ROUTINE-ENTER WITH DATA FIELD SET TO EITHER
/FUTG, DATA FIELD OR PLTG. INSTR. FIELD,
/ADDRESS OF OPERAND IS IN THE AC ON ENTRY,
/ON RETURN, THE AC IS CLEAR
f

06200
06201
06202
06203
06204
0620S

0000
3042
1442
3047
4310
1442

06206
06207

7000
7000

ARC ET,
AC2
OCA
ACS
TAD I
OPX
OCA
JMS ISZAC2
AC2
TAD I
IFZERO EAE <
NOP
NOP

/STORE ADDRESS OF OPERAND
/PICK UP EXPONENT
/MOVE POINTER TO HORO, WATCH FOR FIELD OVERLAP
/PICK IT UP

IFNZRO EAE
ENPUNCH

*»

SWAB
MQA
NOPUNCH

/OPH INTO MQ BECAUSE EAE ROUTINES
/EXPECT TO FIND IT THERE

06210
06211
06212
06213
06214

3050
4310
1442
3051
5600

OPH
DCA
JMS ISZAC2
AC2
TAD I
OPL
DCA
ARGET
JMP I

/STORE
/MOVE POINTER TO LORD* WATCHING FOR OVERLAP
/PICK IT UP
/STORE IT
/RETURN

—

•
/OS/8 BASIC BUNTIWE SYSTEM

PA1.8-V7

IFZERO EAE

l0/a«/72

PAGE 128

/ROUTINE TO NORMALIZE THt

¥ AC

^i'

^
<='*

06215
06216
06217
06220
06221
06222
06223
06224
06225
06226
06227
06230
06231
06232
06233
4*06234
^ 06235
06236
06237

0000
1045
7450
1046
7450

FFM08,

TAD
ACH
SNA
TAD
ACLO
SNA
1041
TAO
ACl
7650
SNA
CLA
5341
JMP
ZEXP
7332.-N0RMLP. CLA CLU CML RTR
1045
TAD
ACH
7440
SZA
5233
JMP
.3
1046
TAB
ACLO
7640
SZA
CLA
7710
SPA
CLA
5236
JMP
FFNOfiR
5334
JMP
FNLP
3041

FFNORR» OCA
JMP
Ttr^i
iHrt

5615_^

tuSt

—

ACl
I

FFNOR

/GET THE HI ORDER MANTISSA
/ZERO?
/YES-HOW ABOUT LOW?
/LOW«0,

OVRFLO BIT ON?

/#»0-ZERO EXPONENT
/NOT 0-MAKE A 2000 IN AC
/ADD HI ORDER MANTISSA
/HI ORDER a 6000
/NO-CHECK LEFT MOST DIGIT
/YES-6000 OK IF LOW»B
/2, 3, 4, 5, ARE LEGAL LEFT MOST DIGS,
/FOR NORMALIZED #- C*2000«4,5, 6, 7)
/JUMP SO FFGET AND PUT ARE OkGEO RIGHT

/DONE W/NOHMALIZE-CLEAR ACl
/RETURN

IFNZRO EAE
ENPUNCh

/ROUTINE TO NORMALIZE THE FAC
/

*621S
FFNOH,
COF
SWAB
OLD
ACH
SWP
NMI
SNA
OCA
OCA
SWP
OCA
CLA
CMA
TAD
OCA
JMP I
NOPUNCM
>

/CHANGE D.F, TO FIELD OF PACKAGE
/FORCE MODE B
/PICK UP MANTISSA
/PUT IT IN CORRECT ORDER
ACX
ACH

/NORMALIZE IT
» ZERO?
/YES-INSURE ZERO EXPONENT
/STORE HIGH ORDER BACK
/STORE LOW ORDER BACK

ACLO
3CA
lAC
ACX
ACX

/STEP COUNTER TO AC
/NEGATE IT
/AND ADJUST EXPONENT

fPNOR

/RETURN

/IS THE

PAL8-V7

/08/8 BA8IC RUNTIME SYSTEM

10/84/72

PAGE 129

/FLOATING GET
/

• 6241

6241

06241
06842
06243
06244
0624S
06246
06247
062S0
06251
06252
06253
06254
06255

FFGETi
#5Mu.
1641

JMS
TAD
JMS
TAD
OCA
TAD
DC A
TAD
DCA
ISZ
CDF
JHP

4200
1047
3044
1051

3046
1050
3045
2241
6201
5641

1
I

PATCMP
FFGET
ARGET
OPX
ACX
OPL
ACLO
OPH
ACH
FFGET

FFGET

/WHICH MODE OF CALL
/CALLED BY USER-GET AODR, OF OP
/PICK UP OPERAND
/LOAD THE OPERAND INTO FAC

/RETN. TO CALL +2

/FLOATING PUT
/

06256
06257
06260
06261
06262
06263
06264
06265
06266
06267
06270
06271
06272
06273
06274

i^^
1656
3241
1044
3641
4275
1045
3641
4275
1046
3641
2256
6201
5656

JMS 1 PATCHP
FFPUT
TAD I
FFGET
DCA
ACX
TAD
FFGET
DCA I
JMS I8ZF6T
ACH
TAD
FFGET
DCA I
JMS I8ZFGT
TAD
ACLO
FFGET
DCA
FFPUT
ISZ
CDF
FFPUT
JMP

/WHICH MODE OF CALL?
/CALLED BY USER-SET OPR, ADDR
/STORE IN A TEMP
/GET FAC AND STORE IT
/AT SPECIFIED ADDRESS
/BUMP POINTER, WATCHING FOR FIELD OVERLAP

/BUMP RETN,
/RETN, TO CALL*2

/ROUTINES TO BUMP ARGET AND FPUT POINTERS AND INCREMENT THE
/DATA FIELD IF THE POINTER CROSSES A FIELD BOUNDARY
06275
06276
06277
06300
06301
06302
06303
06304
06305
06306

2241
5675
7410
3275
6214
1307
3305
6305
5675

ISZ FFGET
JMP I ISZFGT
SKP
NENCOF,
DCA ISZFGT
RDF
TAD CDF 10
DCA «!

06307

6211

COF10*

06310
06311
06312

2042
5710

XSZFGTr

JMP

ISZFGT

/BUMP POINTER
/NO SKIP MEANS JUST RETURN
/SKIP MEANS WE HAVE TO INCREMENT DATA FIELD
/THIS INST EXECUTED ONLY BY ISZAC2
/GET THE DATA FIELD
/BUMP BY 1 AND MAKE A CDF
/PUT IN LINE

/RETURN

CDF IB

I8ZAC2I
ISZ AC2
JMP I ISZAC2

/BUMP POINTER
/NOTHING HAPPENED

/05/8 BASIC RUNTIME SYSTEM

a*313
06314

1310
5301

TAD ISZAC2
JMP NEWCOf

PAL8-V7

i0/24/72

PAGE 129-1

/NEED NEW DF. GET RETURN ADOR
/AND BUMP OF

PALB-V7

/03/8 BASIC RUNTIME SYSTEM

l0/2«/72

PAGE 130

intdO lAE <
/ROUTINE TO ADJUST OUOTINET Of FIRST DIVIDE CMAYBE) WHEN THE
/REMAINDER OF THE FIRST DIVIDE IS LESS THAN QUOT*OPl.
/USED BY FtTG, DIVIDE ROUTINE
/

7041

OVOFSi

304S
7100
1050
1045
7«i0
5330
3045
7040

7160
1044
3044
4640
5225
3044
5236

lAC
ACH

OPH
ACH

/NEGATE AND STORE REVISED REMAINDER

/WATCH FOR OVERFLOW

SNt.

JMF
OCA
CMA
TAD
OCA

1041
3041

7300
1045
5733
5535

CMA
OCA
CLU
TAD
TAD

OVOPlf

Cl^A

TAO
JMP I
DV0R2Pi DV0P2
FNLPi

ZEXP*

OVOPl
ACH
ACl
ACl
CUU
ACH

DV0P2P

cut CML CMA
ACX
TAD
DC A
ACX
ALIP
JM8 I
NORMLP
JMP
ACX
OCA
FFNORR
JMP
>

/0VERFL0W«DON»T ADJUST OUOT. OF 1ST DIV,
/NO OVERFLOW-STORE NEW REM.
/SUBTRACT I FROM OUOT OF
/FIRST DIVIDE
/GET HI ORD OF REMAINDER
/GO ON

/-I

/SUBTR,

PROM EXPONENT

/SHIFT FAC LEFT 1
/GO BACK AND SEE IF NORMALIZED

/OS/8 BASIC RUNTIME SYSTEM

PA1.8-VT

l0/g<|/72

PAGE 131

/PSOyARE-SQUARE FAC-CALLS MULTIPLY TO MUL. PAC 8Y ITSEUP
/

6347

06347
06350
06351
06352
063S3

0000
4753
0044
5747
5600

•63«7
FPSO#

TMPY#

JMS I
ACX
JMP 1
FFMPY

TMPY

/CALL MULTIPLY TO MULTIPLY
/FAC BY ITSELF
/DONE

PFSO

06354
06355
06356
06357
06360

4516
4516
4537
5513
4516

00
DV,

LM,

ERROR
JHS I
JMS I
JMS 1
JMP I
JMS I

TRAPS
ERROR
ERROR
FCLR
ILOOPL
ERROR

/OVERFLOW
/DIVISION ERROR
/RETURN
IN FAC
/ILLEGAL ARGUMENT

/ROUTINE TO COMPARE 2 ABSOLUTE 12 BIT INTEGERS TO DETERMINE WHICH IS
/THE LARGER, WHEN CALLED, NUMBER «Aw IS IN THE AC, NUMBER "B" IS IN
/CORE LOCATION BABS ON PAGE 0, RETURNS TO CAiL*l IF B>»A,CALL+2 IF
/A»B
06361
06362
06363
06364
06365
06366
06367
06370
06371
06372
06373

06374
06375
06376
06377

0000
3347
1015.

7710
5374
1347
71«1
1015
7620
2361
5761
1347

7710
5366
5761

NUMCOLf
DC A A
TAD BABS
SPA CLA
JMP BNEG
MQFTCHi TAD A

CIA
^L
TA^^ABS

SNL CbA^
I8Z NUMfrBiL
JMP I NUMCOb
BNEGi

TAO A
SPA CLA
JMP MOFTEN
JMP I NUMCOL

/SAVE A
/GET B
/B>0?
/NO-SPECIAL CASE CHECK
/YES-GET A AGAIN
/NEGATE
/IF B>«A, THERE WILL BE

w ^te

CARRY

/B«A

AGAIN
/I«M NEG ALSO?
/VES»>«i| THE CODE AVOE TO COMPARE

>«i£T

/NO-THtr-^ A

rrrs

Tt^ r

m^'^-00'f^

PAta-VT

/OS/8 BASIC RUNTIME SYSTEM

18/24/72

PAGE 132

*oyERi.AV4>ie0e

6400

/TELETYPE »DRlVER"»WHEN CALUED, GRABS CHARACTERS FROM THE
/TELETYPE UNTIL A CR IS SENT OR THE BUFFER IS FULL, ASSUMES TTY ENTRY
/IS IN I/O MORK AREA.
06400
06401
06402
06403
06404
06405
06406
06407
06410
06411

064U
06413
06414
06415
06416
064 IT
06420
06421
06422
06423
06424
0642S
06426
06427
06430
06431
06432
06433
06434
06435
06436
06437
06440
06441
06442
06443
06444
06445
06446
06447
06450
064S1
06452
86453
06454

•

TTYORli

7650
5306
1053
4545
4547
5651
7000
7000
5210
7553
0162
7401
6674
5252
0277

8KP
LFLUSH, JMS I CRLF
TAD K277
4MS I XPUT
TAP I MORDl
DCA I ttORDS
JM8 I CNOCLL
TTYIN,
JM8 X PRINT
JHP .-l
TAD KS252
KSF
KSFAf
JHP SPIN
CLA CLL
TAD K0200
KRS
DCA CHAR
TAD CHAR
JHS I XPUT
KCC
TAD CHAR
TAD MCTRLU
SNA CLA
JHP LFLUSH
TAD CHAR
TAD CRUBOT
SNA
JMP BACKUP
TAD MCR
SNA CLA
JHP CR
TAD CHAR
JMS I PACKL
JHS I BUFCHL
JMP I lOLK
NOP
NOP
JMP TTYIN
MCTRLUf -225
377-215
MCRf
CRUBOTr -377
10
IOLK»
KS252,
5252
277
K277r

1566

BACKUPi TAD

7410
4SS3
1253
4522
1564
3566
4546
4510
5210
1252
6031
5321
7300
1077

6034
3051
1053
4522
6032
1053
1246
7650
5202
1053
1250
7450
5254
1247

W0R03

/CRLF ONLY NECESSARY ON FLUSH
/PRINT A CR,LF
/PRINT A r SIGNIFYING WAIT FOR INPUT

/BUFFER ADDRESS
/INITIALIZE POINTER TO START OF BUFFER
/INITIALIZE CHAR # TO I
/EMPTY TTY BUFFER BEFORE AWAITING INPUT

/DESIGN INTO AC
/CHAR READYt
/NO-OIODLE WHILE WE WAIT
/FLUSH SPINNER OUT OF AC
/FORCE PARITY BIT
/GET CHAR
/SAVE
/ECHO IT
/CLEAR KEYBOARD FLAG AND SET READER RUN
/IS IT CTRL/Ul

/YES-START AGAIN
/NO
/IS IT RUBOUT?
/YES-BACK UP BUFFER POINTER
/NO-IS IT CR?

/YES-DONE
/PACK CHAR IN BUFFER
/BUFFER FULL?
/YES-ERROR
/NO-CHAR 3 LEFT
/NO-2 AND 3 LEFT
/NO-NEXT CHAR

/BUFFER POINTER

PALe-V7

/OS/8 BASIC RUNTIME SVSTEW

0645S
0«»tt5fr

7041
1564

06457
06«60
06461
06462
06463
06464
06465
06466
06467
06470
06471
06472
06473

7650
5210
1273
4522
4551
5274
5301
4546
7240
1566
3566
5210
0334

06474
06475
06476
06477
06500

1563
0105
1077
3563
5210

C18,

1563

C3B,

06501
06502
06503
06504
06505

06506
06507
06510
06511
06512
06513
06514
06515
06516
06517
06520
06521
06522
06323
06524

PBACK,

K334,

0105
1076
3563
5267

4553
1320
1200
3200
1053
4545

CR,

1564
3566
4546

5600
0004
2017
7410
7064

5213

CIA
TAD I WORDl
SNA CLA
JMP TTYIN
TAD K334
JMS I XPUT
JMS I CHRNOL
JMP CIB
JMP C3B
JMS I CNOCLL
CUA CMA
TAD I WORDS
OCA I W0RD3
JMP TTYIN
334

PAGE 132-1

l0/2«/72

/NEGATE
/COMPARE AGAINST START OF BUFFER
/BUFFER EMPTY?
/YES-THERE IS NOTHING TO RU80UT

/ECHO "S"
/GET CHAR

OF NEXT CHAR

/3
/IT WAS 2-MAKE IT 1
/-I
/BACK UP BUFFER POINTER

/NEXT CHAR

TAD I WORD0
AND K7477
TAD K0200
DCA I WORDS
JMP TTYIN

/IT WAS 1-MAKE IT 3

TAD I WORO0
AND K7477
TAD K0100
DCA I WORO0
JMP PBACK

/IT WAS 3, MAKE IT 2

JMS
TAD
TAD
DCA
TAD
JMS
TAD
OCA
JMS
JMP

CRLF

(LAST #+1)

/NO NEED TO BACK UP POINTER

/BACK UP POINTER

/ECHO

CR,LF

TTYORI
TTYORI
CHAR
I PACKU
WORDl
I
I W0R03
I CNOCUL
TTYDRI
I

K4,

SPIN,

ISZ SPINNR
SKF
CMA CMi. RAL
JMP KSPA

/BUMP DRIVE RETURN TO NORMAL
/PACK CHAR IN BUFFER

/INITAILZE BUFFER POINTERS
/RETURN

/SPIN RANDOM

SEED

/MARCH TO THE LEFT
/CHECK FOR CHAR YET

PAUe-VT

/OS/8 BASIC RUNTIME SYSTEM

l0/2«/72

PAGE 135

/SUBROUTINE FBITGT»ROUTIN£ TO PUT FUNCTION BITS FROM INSTRUCTION INTO AC
16525
0fcS26

06527
06550
06551
06532

0000
1064
7112
7012
007a
5725

FBXT6T,
TAO INSAV

CU RTR

RTR
AND K0017
JMP 1 FBITST

/PUT FUNCTION BITS IN BITS 8"11
/MASK THEM OFF
/RETURN

/60SUB POP ROUTINE-ROUTINE TO POP ELEMENT OFF GOSUB STACK
06533
06534
06535
06536
06537
06540
06541
06542
06543
06544
06545
06546
06547

0000
1067
1347
7710
4516
1467
3040
7240
1067
3067
1040
5733
7325

06550
06551
06552
06553
06554
06555

4333

POPGf
TAD GSP
TAO MSTTOP
SPA CLA
JMS I ERROR
GR,
TAD I GSP
DCA TEMPI
CLA CMA
TAO GSP
DCA GSP
TAO TEMPI
JMP I POPG
MSTTOPi -GSTCK

/GOSUB RETURN
RETRNIi JMS POPG
lAC
DCA I INTPLK
JMS POPG
OCA I CDFPSU

7001
3774
4333
3515
5513

JMP

lUOOPL

/GET GOSUB STACK POINTER
/COMPARE AGAINST TOP OF STACK
/ATTEMPT TO POP OF EMPTV STACK?
/YES-RETURN WITHOUT A GOSUB
/GET TOP STACK ELEMENT
/SAVE
/•I

IN AC

/BACK UP GOSUB STACK POINTER
/GET POPPED ELEMENT IN AC
/RETURN

/POP PC OFF GOSUB STACK
/BUMP OVER SECOND WORD OF GOSUB INST
/USE AS NEW PSEUOOoPC
/POP CDF OFF STACK
/PUT IN LINE IN PWFECM
/RETURN TO ILOOP

/DATA LIST READ (NUMERIC)
06556
06557
06560
06561
06562
06563
06564
06565

4765
3044
4765
3045
4765
3046
5513
2311

RDLISTt JMS I DLRELK
DCA EXP
JMS I DLRELK
DCA HORD
JMS I DLRELK
DCA LORD
JMP I ILOOPL
DLRELK* OLRCAD

/FETCH WORD FROM LIST
/STORE AS EXPONENT
/HIGH MANTISSA
/LOW MANTISSA

/SUBROUTINE FTYPE-RETURN5 TO CALL*1 IF FILE NUMERIC»CALL*2 IF ASCII
06566
06567
06570
06571
06572
06573

0000
1563
7110
7630
2366
5766

FTY PE,

TAO X WORDO
CLL RAR
SZL CLA
ISZ FTYPE
JMP I FTYPE

/GET HEADER
/TYPE TO LINK
/IS IT NUMERIC?
/NO-BUMP RETURN
/RETURN

•

•
/OS/8 BASIC RUNTIME SYSTEM

0*574

0302

INTPLK,

INTPC

PAUB-VT

10/24/72

PAGE U3-1

•

/OS/S BASIC RUNTIME SYSTEM

6600

PAL8-V7

10/24/72

PAGE

i«

PAGE

/LAST PAGE OF BBTS-tONTAlNS SAC, I/O TABLE, ANO SOME MISCELLANEOUS CODE
/•••••t»*«**»«**»«»«»«**»»*****»**»*«»»**,»*»**»*«,****,*<,(^*»**^
/TELETYPE INPUT BUFFER (74 CHARACTERS LONG)
/THIS BUFFER CONTAINS ONCE ONLY START CODE WHEN LOAOEO

06600
06601
06602
06603
06604
06608
066«6
06607
06610
06611
06612
06613
06614
0661S
06616
06617
06620
06621
06622
0662S
06624
0662S
06626
06627
06630
06631
06632
06633
06634
0663S
86636
06637
06640
06641
06642
06643
06644
06645
06646
06647
06650
06651
06652
06653
06654
06655

1029
1242
7640

TTYiUFi
8TART4|

5513
1026
3015
1102
4405
5213
1074
5237
1026
3015
1846
4409
5222
1245
5237
1026
3015
1247
440S
5231
1244
5237
1026
3015
1243
4405
5513
1073
3036
5513
0000
1567
2000
0014
0016
1000
1400
0000
0000
0000
0000
0000
0000

CHKBii

CHKB3«

CHKB4,

BAS.

MCDFl,
K2000,
C14,
C16,
C1000,
ci40e,

TAD CDFPS
TAD MCDFl
SZA CLA
JMP I ILOOPL
TAD PS8TRT
OCA BABS
TAD K0400
JN9 I NUMCOM
JMP CHK82
TAD N0O17
JMP BAS
TAD P88TRT
OCA BABS
TAD C1000
JM8 I NUMCOM
JMP CHKB3
TAD C16
JMP BAS
TAD PSSTRT
OCA BABS
TAD CI 400
JM8 I NUMCOM
JMP CHKB4
TAD C14
JMP BAS
TAD PSSTRT
OCA BABS
TAO K2000
JMS I NUMCOM
JMF I ILOOPL
TAO K0010
DCA BMAP
JMP I ILOOPL

•6211
2000
14
16

1B00
1400

/OF FOB BOTTOM OF PSEUDO-CODE
/COMPARE TO A CDF IB
/DO THEY MATCH?
/NO-ALL BUFFERS ARE FREE-START INTERPRETER

/IS START OF PSEUOO-CODE BELOM 400
/NO-CHECK FOR 1000
/YES-SET ALL BUFFERS BUSY

/IS START OF PSEUOO-COOE BELOW 1000
/NO-CHECK 1400

/YES-ONLY BUFFER

IS AVAILABLE

/IS START OF CODE BELOW 14009
/YES-CHECK 2000
/YES-ONLY BUFFER 1 AND 2 AVAILABLE

/IS CODE START BELOW 20B0f

/NO-START INTERPRETER-ALL BUFFER FREE
/YES-BUFFERS 1,2, AND 3 AVAILABLE

/START INTERPRETER

#
/0S/« BASIC RUNTIME SYSTEM
eitfSb

06«S7
06660

0080
0000
0000
0103

PAi.8-V7

10/24/72

PAGE 13«-1

TTYCNDf

XM400aK7400
/*********»*•***** n* mm iitinni*in,$n,tinn,***iiiiiii,*i,in,i,i, Hi, ttttttimii* Him
/SUBKOUTINE CHARNO-RETU«NS TO CAI.L*! IF CHAR #»1,CALL»2 IF 5,CALL*3

06661
06662
06663
06664
06665
06666
06667
06670
06671
06672
06673

0000
1S63
0271
7106
7006
7S40
2261
7640
2261
5661
0300

CHARNO

K300I

TAD I MORD0
AND K300
CLL RTL
RTt
8MA SZA
ISZ CHARNO
SZA CLA
ISZ CHAHNO
JMP I CHARNO
300

/HEADER
/ISOLATE CHAR

/CHAR # TO BITS 0,1
/IS IT 27
/VES-8UMP RETURN
/IS IT 2 OR 3?
/YES-BUMP RETURN
/RETURN

/ERROR MESSAGE FOR TTY INPUT OVERFLOW
06674
0667S
06676

4516
5676
6402

10,

JMS
JMP

ERROR

LFLUSH

/LINE FULL
/FLUSH BUFFER AND TRY AGAIN

U
/08/8 BASIC RUNTIME SYSTEM

PAU8-VT

10/24/72

PAGE 135

• 0VER|.AY*3277

6677

nttnuntNUftnntuiuNaut/unnnnfiuutunutt/Hi
ttitUt I/O TABLE 5 13-WORD ENTRIES U U f U H N f U t ( t U f
(

(nnnnnnfUtt)nnNNN/inuin/un/u/unuuimnut
B6677
06700
06701
06708
06703
06704
06705
06706
06707
06710

067U
06712
06713
067ia
06719
06716
06717
06720
06721
06722
06723
06724
06725
06726
06727
06730
06731
06732
06733
06734
06735
06736
06737
06740
06741
06742
06743
06744
06745
06746
06747
06750
067S1
06752
067S3
06754
06755

0001
6600
0000

6600
6400
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000

TTYPi

TTY8UF

TTYBUF
TTYDRI

FILEl,

/TELETYPE ENTRY-FILE IS ASCII
/BUFFER ADDRESS
/CURRENT BLOCK IN BUFFER
/READ WRITE POINTER
/HANDLER ENTRY

/FILE #1

FILE2,

/FILE #2

FILE3,

/FILE #3

0000
0000
0000
0000

/OS/8 BASIC RUNTIME SYSTEM

06756
06757
06760
06761
06762
06763
06764
06765
06766
06767
06770
06771
06772
06773
06774
06775
06776
06777

0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000
0000

FILe4,

PAL8-V7

10/24/72

/FILE »H

PAGE 135-1

/05/8 BASIC RUNTIME SYSTEM
65a7
3575
ABSV
ABSVAL 2lt>k
ABSVLI. 1376
0045
ACH
0046
ACl
0046
ACUO
6072
ACSR
ACSRPT 4704
0044
ACX
0040
AC0
0041
ACI
0042
ACS
ADCALC 0640
0707
AOFC
4747
ADPW
0714
AJT
6057
At.1
3774
AllK
6240
ALIP
ALIPP 5140
AllPT 4705
ALIPTR 5642
AMODE 2324
ANOLST 3401
ANDL82 3542
ANOPTR 3400
3775
ANt
AN2
3776
AN2PTR 3541
APae01 2175
ARGET 6200
AR6ETK 5503
ARGETU S444
ARGETP 6127
ARGPUK 4307
AR6PLL 3511
ARGPOl 4220
ARGPRE 0307
ARGPRt 1420
ARITHA 1531
ARJMP 0711
ARRAVI 0600
ARSTRT 0022
ARTRAP 4365
3407
A8C
ASCHR 3123
ASCNDE 3244
ASCQLK 3457
ASCON 3660
A8C0UL 3216
AtCOUT 1260
ATABDP 0610
ATABDL 1173
ATAN
4200
A

ATANAl 4427
ATANA2 4435
ATANA3 4443
ATAN60 4424
ATANBl 4432
ATANB2 4440
ATANB3 4446
A999
2514
BABS
0015
BACKUP 6454
6637
BAS
8CGET 3035
BCGETL 2776
1030
BCNT
BCPUT 0747
BCPUTl 3034
BEND
1137
BLINIT 3361
BLREAO 3344
BMAP
0036
BNEG
6374
BO
4215
BOUTRS 1064
BSTRT
1070
BSTRTA 1027
0144
BSWL
BSWP
2240
BUFASS 4237
8UPCHK 2706
BUPCHL 0147
8UPIN 1025
BUPOUT 1026
4234
Bl
B2
4227
83
4222
CAO
4506
CBUK
3676
CCC240 3460
CCR
3743
CC13
4153
4414
CC16
CC240 3747
CC3
4331
CC4
4330
CDFINL 0541
CDFIO 0020
CDFPS 0025
CDPPSL 0115
CDFP8U 0206
CDF0
0761
CDF000 4336
COF10 6307
CDF20 4562
COIN
3621
CFETCH 1322

PAL8-VT
CHAIN
CHAR
CMARNO
CHAR3P
CHAR3U

3600
0053
6661
2746
3064

CHECKi. 3461

CHKB2
CHKB3
CHKB4
CHR
CHRNDU
CHRSAV

PAGE 135-2

10/24/72

6613
66^2
6631
3400
0151
0040
3622
CI
3644
CL
CLEANP 4260
CIENG 3440
3744
CUF
CLOSE 3405
CLOSED 3442"
CNOBMK 2765
CNOBML 5573
CNOBMP 3104
CNOCLL 0146
CNOCLR 3016
COMBNE 2766
COMLOP 2535
COMMA 2517
COMMAP 3250
COMMAS 2557
4053
COS
COUNCK 1363
CPLOOP 3234
CR
6506
CREAD 3671
CRETN 3516
CRFUNC 0373
0153
CRLF
CRLFR 2347
CRREP
1360
CHUBOT 6450
2001
CSFN
CSMOVE 4143
CSTA
4162
CSTAC 4163
6474
CIB
C1000 6646
C13
4531
6644
C14
C1400 6647
6645
C16
4333
C20
2565
C240
4070
C3
C3B
6501
4140
C4

2316
0060
3666
361S
3600
4526
6115
5534
6175
5137
4726
0557
DE
DECNV 5213
OECON 5214
DECONV 5207
DECONl 5335
DEVCAL 0124
OEVNAL 4332
DEVNAl 4027
0EVNA2 4030
OFETCH 4103
OGTYP 5076
DGTVPP 4725
4134
DIGl
DIGIA 3745
4135
DIG2
4136
0IG3
4137
DI64
DIG5
4140
DISIN 3634
OLCDF 2317
DLCOFL 1176
DLPTR 0016
DLREAD 2311
OLREAL 2416
OLRELK 6565
OLSTOP 0027
DLSTRT 0030
OMAP
0035
DNAt
3617
0NA2
3620
DNUM8R 5305
4055
DO
DOAOD 6023
OONA
6027
DONE
3765
OONEF
5066
DRAP
4132
ORARGl 0551
DRARGS 0552
0RAR63 0553
ORCALL 0537
DRERR 0556
DRIVBL 4134
DRIVRN 4200

OADP
DATABA
DATCOM
DATE
DATTAB
OBAD
OBAOl
DBAOIP
OCNT
OCNTP

#
/08/8 BASIC RUNTIME SYSTEM
DS

atttl

0052
S101
DTI
6355
DV
5711
OVLPl
5514
DVLt
DVOPS 6315
DVOPSP 5533
6330
OVOPl
DV0P2 5535
DV0P2P 6333
OVOVR 5777
DVTHAP 3574
5765
DVl
5755
0V8
5745
0V24
0V24P 5532
0V2«PT 5136
0000
EAE
2730
EBC
3740
EBUK
EDBLK 3747
5260
EDON
0560
EF
EFATAk 4254
0056
EFUS
3615
EM
EMOONE 3600
EMDONL 3570
EMESS 4117
EMIOOP 3545
4307
EN
ENTLOK 4275
ENTNO 0162
ENTHVN 4031
ENVAt 3523
EOFSEU 0143
EOFSET 2252
ERRDI8 1460
ERRET 4057
ERROR 0116
ERRORS 4013
ESTRA 4143
ESTRN6 4121
4156
ETAB
ETABA 4154
ETLOP 4042
0044
EXP
EXPAe 4421
4416
EXPAl
4413
EXPBl
EXPON 3477
EXPQNK 3630
EXPONi 4120
E20P10 1307

DSWIT

FACCUR 0365
6031
FACR
FACREU 0133
FACRES 2373
FAC8AL 0132
FACSAV 3371
FAODU 4060
FAUDLK 3473
FADOUL 5312
FAOOM 4357
6004
FAOl
FATCHK 4047
4012
FB
FBITGT 6525
FBIT5 0117
3441
0137
5275
FO
5527
FDDQN 5742
fDOONP 5531
FDIVU 4062
FOIVM 4360
FDIVIU 4067
FDIVIM 4361
FDVPT 5311
5504
FDl
5721
FOIP
4112
FE
FERRI.P 4020
FETPAG 4111
0037
FF
FFAOO 6000
FFADP 4733
PFATN 4200
FFCOS 4053
FFOIV 5722
FFDIVl 5412
FFOP
5446
FFOVP 4734
5726
FFOl
FFEXP 4120
FFEXPU 3625
FF6ET 6241
FFIN
5200
FFINL 3125
FFINI.K 3477
5232
FFINI
FFIX
4500
FFLOAT 4533
FFU06 4263
FFU06L 3626
FFMPP 4735
FFMPY 5600
FFMT
4613
FC

FCUR
FCNT

PA|.e-V7

10/24/72

FFN6G 6135
FFNEGA 5410
FFNEGK 5501
FFNtGP 5303
FFNEGW 5773
FFNGP 4736
FFNOR 6215
FFNORR 6236
FFQRMT 1302
FFOUT 4600
FFOUTL 1373
FFPUT 6256
FFPUTP 0135
FFSIN 4000
6347
FFSO
FFSU8 6117
FFSU91 5400
FGETL 0134
FGETM 0134
2307
FI
FIDLE 0123
FIDVP 3631
FI602 5241
FlUEFA 1533
6714
FIUEl
6731
FILE3 6746
F1LE4 6763
FIL8TR 3316
FILSTU 4321
FISUBL 4367
PIXDNE 4525
4066
FIXL
FIXLP 4515
FJOCI 0400
0057
FLOW
4306
FUEN
FtING 5142
4722
FLINK
FLN
3643
FtOABL 4505
FLOATB 3420
FUOATU 0141
FLOATM 0141
FLOATS 4144
FLOOK
4253
FM
1624
FMPYL 5572
FMPYLK 4061
FMPVLL 5310
FMPYLV 3627
FMPYM 43^6
FN
2005
FNAP
3437
FNEGI
1226
FI1.E2

PAGE 135-3

FNEGU 0140
6334
FNUP
FNOM
4304
FNORt 0136
FNORP 6176
1637
FO
FOTYPE 2357
FOTYPL 3343
4625
FOUTl
F0UT2 4634
F0UT3 4674
F0UT4 4667
FPPTMl 1175
FPPTM2 1172
FPPTM3 1167
FPPTM4 1164
FPPTM5 1161
FPUTL 0135
FPUTUL 0722
FPUTM 0135
FRACT 4071
FRANDM 2342
FREE70 4062
FREE72 4073
3646
FROOT
FSORU 4065
FSORM 4364
FSTOP 3704
FSTOPI 0563
FSTOPN 0561
FSTOPI 0161
FSUBU 4064
FSU8LK 1371
FSUBLL 3573
F8UBM 4362
FSUBIL 4063
FSUBIM 4363
FSWITC 2060
FTCOM. 2424
FTHPRT 4505
FTYL
3015
FTYPE 6566
FTYPL 0150
FTYPSE 3531
FUJUMP 1523
FUNCII 1473
FUNC2I 1472
FUNC3I 1542
FUNC4I 1466
FUNC51 1471
6CHR
5322
50^5
GO
GETCH 3126
GETCHG 3502
GETCHt 0142

i
/08/e BASIC RUNTIME SYSTEM

6ETE
OK NT

GON
GOSUB
6R
6S
6SP
6SST0P
6STCK
6STCKT
GTFLG
6T1FLG
HOOKU
HORD
lA

IDLE
IF

I6S
lUOOP

UOOPF
lUOOPL
IN

INPTCl
INPUT
INSAV
INSC
INT
INTERS
INTL
INTPC
INTPCK
INTPCI.

INTPLK
INTPOS
INTRB
10

lOLK
lOTAB
lOTPTR
lOUT
ISZAC2
I5ZFGT
JEOFI
JFAIL

JFAILL
JFOR
JFORL
JMPFIL
JMPI
JMPISA

JMPI9N
JMPI2
JMPI3
JMPI6
JMSI

5250
5003
3761
0415
6537
2335
0067
0476
04S3
2341
4200
4263
4007
0045
1465
2304
4424
3707
0212
0240
0113
4032
3500
5347
0064
3413
3400
1152
0114
0302
1175
0444
6574
3420
1372
6674
6451
2035
2034
5360
6310
6275
0445
0413
2053
2042
0443
1450
0247
0736
4012
0746
1205
1604
0246

JMSI4
JMS15
JM5I7
JNSSI
JMSTAD
JMSUSR
JNEG
JSU
JU8NE6

1421
1434
1545

0306
1535
1557
3466
2627
3464
3752

KC240

1151

3742
5447
KKM10 3676
KKM12 5775
KK12
5313
KK13
4330
KK2000 4161
KK40
3271
KK7
4730
KK7600 1253
KI.7600 3745
KME
5306
KM10
0250
KM12
5135
KM13
5776
KM144 5134
KM20
4731
KM22
3777
KM4
2031
KM40
0106
KM400 0103
KM7
4732
KNOP
4012
KNT
4737
KNTP
5154
KSFA
6413
KUPARO 3751
K0
4412
K0003 3533
K0(304
2365
K0B07C 3675
K0010 0073
K0017 0074
K0037 0742
K0037C 3671
K0a37L 1755
K0057
3673
K0077 0075
K0100 0076
K0177
1776
K020e 0077
K0210 3205
K0J00 4066
K0340 0100
KEX
KFDl

PAWB-VT
K0377
K0400
K0700
K1000

KU0
K1400
K16
K20
K200
K2000
K212t.

K21S
K232
K240
K260
K277
K300
K334
K4

K40
K4207K
K4210
KS252
K5700
K6

K6000
K6213K
K6222
K6223
K7000
K7200
K73
K7400
K7435
K7437
K7477
K7506
K75S4
K7577K
K7600
K76B7K
K7700
K7737
K7760
K7773K
LASTS
LDH
UDHC
LDHCDF
UOHCDL
LDHDCK
LOHOF
LDHINI
LDHINU
LDHl.

PAGE 135-«

10/24/73
0101
0102
3672
4327
2236
4326
4721
3272
0077
6643
2356
0054
3530
3204
4065
6453
6673
6473
6520
0767
4363
3360
6452
3674
4740
3772
4364
4567
4565
4135
4142
4563
0103
1665
3370
0105
5346
0431
4365
0432
3703
0104
0770
3666
4366
3332
0131
2105
2237
4506
0573
2647
2676
0127
2646

LOHPR
UOHPST
U0MP3W
UDHR
LDHRST
LDHSWT
UEN
LEV

LFLUSH
LINEHI
LINEI
LINELO
LK7607
LM

LMAKE
LMAKEL
LN2
LN20V2
LOADDF
LOG
LOGCl
L0GC3
L0GC5
L0G2E
LOOP
LOP01
LOP02
LOPl
L0P2
LORD

4502
2143
4503
2705
0157
2704
3414
5477
6402
0065
1140
0066
3746
6360
4067
3741

4470
4410
3165
4263
4454
4457
4462
4405
5052
3722
3746
6075
6037
0046
0567
2655
1403
1413

LRE8ET
LRSCOM
LSU81I
LSU82I
1400
LSII
LS2I

LTRPRT
L003;
L7466
L7600
L7600K
L7605K
L7605P
L7607
L7620
L7621
L7642
L7644
L7666
L7721
L7727
L7746
MAKED
MASKL
MBENO

1410
4302
4J37
3667
0366
4370
3670
4371
1527
3665
3667
4566
3664
3670
4570
4571
0357
4061
3427
1031

/OS/a BASIC RUNTIME SYSTEM
3750
6642
MCOLON 4400
6447
MCR
MCRMAU 3456
MCSPE 4401
MCTRUC 1032
MCTRLU 6446
MCTRI.2 3103
MDECPT 1375
3227
MONE
MDONE 5627
MOSET S4S0
MDSETK 5774
MDSETP 5445
MDV
5307
5452
MDl
5443
MDIP
MFATAL 4155
MINUS 5363
MINUSP 3461
MINUS« 0360
4367
MIN4
2727
MK()1
2456
MUF
4501
MMU
MMM4
4415
MMllB 2513
mZbZ 3746
mu
3S42
MODESM 0063
MOfTEN 6366
MPLP
5653
MPUPl 5654
MPIPS 5666
MPI.U8
3251
MPY
2260
MPYUNK 0121
MP12L 5701
MP12LP 2265
Mpaa
5643
MRUBOT 3301
MSPACE 1216
M8TT0P 6547
4727
Ml
MIR
3470
3252
Mi 10
M13
4530
0107
M14
M215
0055
M2a0
5361
1374
M26e
M4
2566
Mse
1033
M6
4413

NAMEG

MCC
MCDFl

4416

NAMEGi. 4141

NCC
NCGS
NCHK

NCHKU
NEWCOF
NEXRCK
NEXREC
NEXREL
NFWAG
NFLGST
NGT
NHNDLE
NHNOLU
NOCC
NOCTC
NOCZ
NOPl
N0P2
NOHMLP
NOTE
NTTY
NUCLST
NUM
NUMCOU
NUMCOM
Nl
.

NIA
N2
N3

N3A
N4
N5
N6

N6A
N7666
OAUD

OAUOP
OATADI
OCDF
OE
UNE

ONEMAF
ONERET
ONEl

OPENAF
OPENAV
OPENNF
OPENNV
OPtRI
OPH
OPl
0PNE6
OPNEGP

4450
4464
4113
4262
6301
4274
3302
0152
4120
4111
4257
4103
4261
1044
3725
3417
6111
6053
6225
4743
3135
4365
4113
6361
0005
4403
4542
4404
4405
4402
4406
4407
4410
4543
3613
6157
5141
1526
2146
1513
3474
4465
4473
4476
4001
4000
4004
4003
1200
0050
0051
6146
5502

P*L8-v;
OPSR
OPX
OtRAPA
OUT
DUTOG
OUTOGP
OVADO
OVONE
OVERIA
OVML
OVRLAY
00
PA

PACKCH
PACKL
PATCHF
PATCHP
PBACK
PDNE
POP
PINFQ
PI0V2
PLUS
PNT
POUYNL

POUYSN
POPG
POS
POSITN
POSPTA
POSSET
PD8TP
POVTAB
PR

PROCP
PROCPP
PREST
PRINT
PRNTX
PRNTXP
PRNTXl
PRZRO
PRZROP
PS

PSFLAG
PSSTRT
P3TCHK
PSWAP
PSWAP2
PSWP2P
P51L
PS2L
PTRBMP
PUSHG
PbSHGL

l0/2«/72
6034
0047
4532
5144
5150
4720
1512
1516
3400
0346
1530
6354
4415
2735
0145
S364
0155
6467
3217
5001
0361
4402
5362
1770
4304
4026
6533
4400
4501
2560
4424
2561
0362
5016
4776
5143
3715
0110
5160
4723
5164
5172
4724
5023
0031
0026
3476
1230
4334
4544
0363
0364
2166
2326
0442

P4GE

PUTCH
PUTCML
PUTCHR
PWFECH
PWFECL

U5-5

3253
0112
1010
0200
0120
PZR
5015
PICOF
1240
PlCDFl 1245
PISWAP 0156
P2C0F
1243
P2C0FL 4563
P2C0F1 1247
P2C0U1 4564
P2SWAL 3744
P200
5211
QUA02 4017
QUA03 4022
4024
QUA04
ROUIST 6556
RE
3010
REAOFL 3000
REAOFW 3147
REAOI
3105
RECP2
1066
RELCOM 3512
RESDUS 2567
RESTI
1650
RESTIL 2577
RESTOR 2572
RETMOL 3665
RETMOO 3526
RETPOS 4471
RETRNl 6550
RETRNO 3571
RETRNl 3610
RET0
3565
RIGHTL 2665
RIGHTS 2633
RNO
4543
3314
HONLY
RSEEO 2346
RSEEOU 4562
HTN2
5371
RTZRO 5620
RWONC 3312
SAC
0321
SACCHK 2132
SACEM 2216
SACi
3421
SACPTR 0111
SAC40C 2116
SAO
0735
SAFINO 1747
SARRAY 0724
SASTRT 0024

•

/OS/S BASIC RUNTIME SYSTEM
sc

SCAUDF
SCALOU
SCASE
SCOP
8C0MP
8C0NTU
8C0N1
SC8TRT
SDIS

2232
0317

U77

0243
i737
2061
4462
2200
0021
0276
SE
4706
4266
8E6
8EBCMI. 4370
SEGCOM 2222
SEP
SIS7
8EP1
0261
8ETF
20S4
8E1
4707
8PN
2000
SFNLP 2023
S6N
3632
8MUFT S635
S18NF S300
SIN
4000
4366
SINAI
8INA3 4371
SINA5 4374
SINA7 4377
su
052S
SLOAD 3150
SLOOP 3713
SLOVEU 1767
SLOVER 2547
SLRCOM 2614
8M0DE 0271
SNEO
2127
SNEQl
2126
8PFUNC 1600
SPIN
6521
8PINNR 0017
80RP5 4451
SR
3130
SRCUP 4445
SREAO 2417
SRESET 0771
SRFIN 2447
SRUISr 2400
SRLOOP 2411
SSAD
4525
8SLD0P 0514
3160
SSLP
SSMOOE 2323
8STEX 0527
SSTORE 0477
2444
ST

STARTB 4305
STARTl 0321
STARTS 1152
8TART4 6600
STB
3642
STCGTJ 3501
8TC0M 1700
STC40C 2134
STOP
1701
8T0FL 1174
STFILK 0743
STFIND 1666
8TFINK 4504
8TFINL 0305
8TM
0130
8THC0F 0536
STHCDL 2457
8TM0F 2603
STHOKK 0775
STHINl 2636
STHINi 0126
8THU
2600
STHR
2645
STHR8T 0160
8TMSWT 2644
STOPI 4060
STR
3422
STRCNT 0071
STRUEN 0032
8TRMAX 0070
STRN6A 1532
8TRPTR 0072
STSI.P
3440
8T8TRT 0023
su
0623
SU9ERL 1756
sua0
6125
SUB0P 5411
SUCJML 2052
SUCJMP 0421
sw
3262
SWCUP 2477
SWITCC 0042
SWJTI
0054
SWIT2 0055
SWRITE 2460
81
0033
82
0034
TAB

1757

TADTAB 1536
TDFIXL 4362
TDONE 3726
TEMPI
0040
TEMP10 0061
TEMPll 0062

PAI.6-V7

40/24/72

TEMPU 2311
TEMPIS 2260
TEMP 14 0003
TEMP15 0004
TEMP17 3023
TEMP18 3016
TEMP19 3371
TEMP2 0007
TEMP21 2636
TEMP24 0531
TEMP3 0042
TEMP30 0771
TEMP4 0043
TEMPS 0047
TEMP6 0050
TEMP7 0051
TEN
5317
TM
0043
TMPY
6353
TM3
5155
TM3PT 5304
TOFF
4010
TOUT
3276
TOVPI
4160
TP
5314
TPH
4136
TPREL 3521
TPRINT 3677
TPl
5315
TRACE 4000
TRMOOK 1144
TRRE8T 4006
TTE8T 3143
TTVBUF 6600
TTYORI 6400
TTYEND 6660
TTYF
6677
TTYIN 6410
UNPACK 3047
UNSFIX 1615
UN81.P
1642
UNSOUT 1646
USE
0574
USECON 0006
USEU06 3613
USELOL 3567
USR
0077
USRA
1534
U123C 3056
VAL
3462
VAUCNT 3422
VALGET 3503
VAULK 0154
VR
3003
WOONE 3246

PACE 135-t

3032
MORD0 0163
MORD0A 2032
WOROl
0164
WOROIA 2033
WORO10 0173
WORD 11 0174
W0R012 0175
W0R013 0176
W0RD14 0177
M0R02 0165
W0RD3 0166
M0RD4 0167
WORDS 0170
W0R06 0171
W0R07 0172
MRBLK 3350
WRBI.KK 3532
WR8UKU 1664
WRITEI 3200
WRITFL 3023
WRITFW 0125
W0PTR 3535
W0PTRA 3534
XDGET 4507
XORITE 4523
XICOM 4S15
XPRINT 1034
XPUT
0122
XPUTCH 1000
XPUTl
1002
XR0
0010
XRl
0011
XR2
0012
XR3
0013
XR4
0014
XR5
0015
ZCNT
3773
ZEXP
6341
ZMINY
4331
ZR
1342
ZRCONT 1352
ZROFF
1334
ZRORET 4467
WE

•

HMflHiiiaiHi

^11

VM^MqHHHHi

•