Digital PDFs

DEC-S8-LBASA-A-LA

October 2006

381 pages

Original

20MB

Document:	OS8 BASIC Listing Oct72
Order Number:	DEC-S8-LBASA-A-LA
Revision:
Pages:	381
Original Filename:	http://bitsavers.org/pdf/dec/pdp8/basic/DEC-S8-LBASA-A-LA_OS8_BASIC_Listing_Oct72.pdf

OCR Text

IDENTIFICATION

PRODUCT CODE:

DEC-s8-LBASA-A-LA

PRODUCT NAME:

LISTING OF os/8 BASIC

DATE CREATED:

OCTOBER 2, 1972

•

IOS/8

aASIC EOITOH

PAlS-V7

IOS/R BASIC
I

EOITOR

IOEC-SS-L8ASA.A-lA

-5

ICOPYRIGHT.l '172

IOIGITAl EQUIP"~NT COHPORATION
I"AYNARO,MAS~ACHUSETTS 011~4

8
9

10
11

IAUGUST 19,

t~7c

IHANK MAUREA

ANO

I
I

15
1ft
11

10/i4172

I
e10~

VeRSO~.100

lEN fLEKMAN

•

PAGE t

•

Ins/~

HASIC I'.I.J

IT,,"

.. .!I t.. i:'. v ,

1,'/r,.I/i>

1f'!
Pl

3Hhl

~CSIlf:=Hv\/.

70~1

~ (, ti t (,~, :; , ,I.) 1

2"
21
2t?
25
21.1

7bl~1.I

t"FU"'~\'<.I

~e''<l'il

OS~l'It::':;5e'",~i

I.Iklll!0

OSKr:H-'f' :;~000

1.1""''''

HAllliJLk:<.I<.I0k"
TxT All!: A: "vl\1Ir'J

I
I

S~~IO

0005
(1100\:1
£llltlQJd

Sll/APT~.

0001115

0et01O

12100"'&
0121(1107

1211210111

SWAPT3. 0
SwAPT4, (II
Vt:HSOfl.
VERS,

3t
32
B
31.1
3S

121121010

0tl1lI!J
7MlJ3

)(10,
)( \l,

Hob
121""12110

1210121111

)(15,

00G:h:l
1210121iJ

1(1&,

111

x17,

(/)

1.1121

1210020

01301/1

121

0121021

121121010

1.Ii?

0002c
00023

Q!000

IH)TMP,
IlOPTR,
SIZE,

00021.1
1210025

0001/1
0""1111.:'1
0100'"

31\

1.13
4"
45
4&

1.18
4q

S0
51

0002&
0et021
00030
i£l01i131
121003c!
;"i'l0B

000111

111

12112101'"

)(11.1,

121

0I010~

~V)I7'I.I'j

&2
1;3

0Q!01.1b
0VlItI1.l7

0001/1

1,,,

'~~05"

0Q1CH.J

0fiJ051

~9101t1

0"~52

0LH''''

SEi

I,HH'l,)5

0005<.1

~ilI0')<;

7 ~~

0V005"

VI[/!~'51

., ... II'" ~l

•

0\H~iil

STUff

1=1tI IF
1=1 IF
1=1 IF
1=1 IF
IHOLDS

CTRL/O
HACI( FROM I< LIN, 01 IF Ol.U
IJUN, 0 IF SAVE
IfIIPU T COMING Flo/OM fo'ILE
MOST RECENT LI 1Iif: IIlIfM

EOF!.IIII,

PIn'

I~AST

NAME,

0;tJHH0

!NAME 8l)FF bl

FI\IAMF.,

0H,,0;0

IClHHH:'-lT FIL.E "lAM!:

Llt:VHAN,
DtVNUM,
SWPNl'M,

VI
III

IAODReSS (II" r)cllICc ,",AN[)LE~
ICUkRENT LJE v I CF.: Nl/MIiFw
I:'WAPPEk FLAr, (F Ok ·C)

~HH'J1.:l

0i!lPlIc:I

LINE EIlITOR

f./UNfo'LAG,0
IlLOHAG,0
LlNENO, 0H'I

0""00
010011.1

IIJSfO tiy

r{!0'01tl
OIi.:lOliil

00~IJI.I

5<;

0
0

Ct1NFUG,11I

~(!'

0;1.1

HMP,
HMP.?,

IUSeD BY INPUT ROUTl"Jt

I/If/llllid

*20

0000

11l00~

00034
00035
0003&
0121037
0001.10
0tl'01.11
0001.12
0001.1j

SI?

TOIl/AIIU,
PTH,
III
NOIGS, 0
NCHARS, QI
COFLAG, 111

00010

"'UMHl:.r~

II.IAMLST"l

le12,
)(13,

o1t12 ill

IVEi<510N

!IIIFO-l

0001c
00013
1210011.1
12112101'J
000\&
12I&'J0t7

~ 1 7!: '.'~ 11L. ()j.,;). -,;. v
S T h, T 'l~ 6Cu'1~
I r,<~ dR'l A T I ioN A,d: A IF 11'.lI.) I)
s.~ 4 P A~tA F uo< ('!'til
I-ILt tlUHtR
1'.Pu T OU TfJlJ T HU,f'llFo-I AfllJl<t:.":;
5ThT O~ 1 fX T AkEA

121

1210011

27
5121

'.'"

5111AI"T1. rb

0!1l 1?0l! 5
0P!001.1

~ ~

LINE

!'"UMHER

00010

11!fi!00
0"~kJ
01 ~lIi"'.I
0~00

0vHhl
7e0 ,
710,J
(!Ic'VOI(i
IIIc?Qll
77"1

ll7f,~J7, '

IbWI

071,,"',

77rJ.o!

n~;'·.l ,
ro ii' y' I ,
n 71!:> 1 ,

c'iI1!
7I~I

?~\;,'

•

•
~

•

IOS/8 IHSJC tDITOH
13

00061

77#.4

o 17b4,

800ft.!

£1171
02Jc
'letl

01 H,
Oi?Jl.
07101,
01706,
Oli,

74
7S
7.

0001.}
01/1064

'17

00065

7ft

000ftft

003c

79
80
81
82
83

010&7
00079

0l/17l
7200
7600
00IF

85
86

8ft

90
91
92
9]
9&

95
96
97
98
99
100

Ul
102

101
104
10~

106
107
108

1o,
110
111

PAL~-Vl

0001t
0Nll
00011
1/10071
00075
0007.
00077
09U0
001.01
80102

0'103
00104
00105

711/1&

0i!U

0l]1
"€Ill

uts

liU

0031

nil

111111~

ntH

177i.
6111

00106
00101

ftill

00110
00111

(Il01

00tli
001U

7714

fill/I114
001t5

7614

nth
00117
001211
01!lUt

01/1122
0012J
00li4
eJ01l5
00126

00127

7170
0010

716.
0131

012,
0720l!1,
07&0O,
017,
02U.
Oin~

013,
OlIS,
Oi 12,
037,

0174t,
01405,
0710 I,
07712,
OU7t,
Otlitl,

1164
117
Hl

7i01
Hlllb

li
1l
liN

7&00

17
260
ill
U
21~

ill
17
1141
1405
111t
7172

&171

06201,
010,
07174,

6211
17h'
6lllt
10
7174

0116",
07634,

"btl
7634

07170,

0131.
01746,
036,
011,
07745,
012,
0"71.

7171

7160

077&DI,

74""0
71&0

0400
t014

0400.
Ot4,

7746
011136

0071
71.4S
001c!
7111
74€1"

074Ci.10,

774&

36
71
1745
Ie!

(100

lVll24/1l

•

PAGE ?-t

•

/OS/II,

HA~tC

I:I)ITOI'<

0'2~hl

0~1~;J

114
t 15

~l(1)ii'~l1

5.'21

'l!lJ\i!"'2

3i1l3,j
U'lJiJ

117

IlJlIlb'J3
00c!04oI

1\14

0(1)~e15

11q

\:l0ilZlt>
00.?iIIl

1?1il
121

~0211ll

4571
5 II'! 2 <.I
714b

Gt TL U"

:~lJ I b ~
I'I,;A
t,1,; A
r~1,; HA toI ~
IG"'OQE:, CLA
{£.tTC ..
.J ~'S
rl::MIJ~
('lCA
ClL C"A toIlL

102<.1

TAt)

74SId
577 "
111's
74C;1d

SId

S1'.IA
JMP

CAloIioiET

IJUMP IF 01':)

TAD

0777'"

ICHECK FOtoi ·U

All
07712

ITI(f;.AT ·U AS ALTMOOf..
ICl1I:.C" F-OR ALTMOlJE

ALl
Olb3"

ALTMODt.
IJUMP If i:l33
ICl1I::CK FOR RU"OUT

AR~OW

I Twt: AT I.If(E BACK ARROw

lab

00215

127

711<;0
523<.1

Sf\jA
JMP

129
13'1

0"'21&
"'0217
00e!i!0
00221

1l~<.I

TAO

7"SId

131

0022i

523/ol

132
133
13"
135
13&

fIl0c!23

11114

00i24

U5~
53t~

SNA
JMP
TAO
SNA
JMP
lAC
SNA
JMP
lAC

137
138
139
140
11.11
142
143
1ill
145
11.1 ..
147
14"
149
150
lSI

152
153
151.1
155

15&
157
1'58
l59
160
1&1

002H
002.53
1302311
00235

745i1l
'523t.i

70rdl
7""1ll
457b
l11b
521'11

tHE:HY~

JMP
ALT,

JMS

CAKRtT.

leMHI(

AL lMOOt:

FO~

ALl

IJUMP IF 170

.+<.1
tTYPE"

IPRINT IF 115

SZA

5237

rt~h~

e.lIIT T0 OSb
IIh ·C
ICHE:CK FO~ LAw~lAGf. lit Tl,iIolIJ

iIl0212
00213
00214

1il101

ISAVE C>1AK
ICH\:.CK fo'Oiol (.(1NhnL

U71M

123
124
125

53314
1101

Iljl:" T A l ! '.F. F io! D..1 ,- l' ..
II,;LtAk I,.l"~ t-..uMtlt:".
ICLtAtoI ft(T COUl\iT.

JMP
TAD

~0Ct 1

00225
00Uf:o
00221
00230
00<31

~ /A .'t~

t·

122

128

1 c'l <' '" I , ,>

.... 'f;t

Q.l2~id

ltc'
115

Uti

PAU"v 7

All MODI:..

. ALTMOOE.

MSGALT
JMP

Gt:TU"'+l

t 1t ,

TAO

(l3&

ICHeCK

00241/J
00241
00242
0021.1,5

74;;10
531';)
7101:1

AI<~OI'l

IJUMP IF 131

i:l0 2 ""

74211l
520's
7001
302.i
103"
7bhl

SI'oIA
JMI-'
eLl.
TAO
SNL
JMP
lAC

IJUMP IF NOT

P~INTAl:ill:..

0023&
0QJ~37

00i45

002"&
00247
"'025111
00c51
00252
002'53

11?1tl

DCi

IGNORf.

t(l0~o;b

rd0i57

';2&0+

11.102&0

1Vla,S

TAll

TI:.MP

TAl)

n71"S
tLlliOT!"
tGlliOWt
'H:'>1AIC !)

1.1';7';)

01£1255

1&t?

~J02&1

1121

1&3

00e''' I!!

1.1';71.1

I@!"

~117JifoJ3

1&5

~~2&4

52<'15
10H

1&t-

~\~cf>5

11Qlc

•

JMS 1
JMP
tSltxT, TAll
TAP

~AtI(ARROw.

ISAVE IT(5P:01,·:77,NO 12'1.1).
H:MP
OlDFlAG IINPUT FROM FILl:. 1

1 ~~ 3">
7f:.'H)

rt10c:':;"

A~ROW

077

UO
SZA CLA
JMP
TAD
JMS 1
TAD
~lA CLA
JMP

SiS,;)
1021.1

IHeK

FO~

.+3

/l'ES, DON'T

E"C~O

H:MP?

[TTYOUT IPRINt ON TTY
NCt1AWS
15TU1

:)1'h'"

INOT LIlliE

NU M8EtoI.

IsH IF tT5 0\ [)IGIT
IPUT DIGIT 1 .. TO LINt: NI!M
IGET NDT C",Af.I
IPuT CHA~ ! :~ T><t L 1 q-:.

•

105/8 oASiC l:'C tT Of'(

IJAU'-vl

002bb

111 ~

S~A

f/lQl2f) 7
0l?1!?7v:\

527'1
4t;7j

.JMP

170

00r:71

1.I';i1o

JMS

111

13027 <?
00213

0571
5201

MSGlOO
JMP

GtT LIt. + 1/11-

175

1031:1

TAO

Nt.:HARS

174

00271.1
00275

711~

175

0027&

IHe!

t7~

00277
00300
00301
0050c
00503

302"
7431d

177
11 III
179
180
181
182
ISS
181£

00304

00305
0121l0&

ftMP

14211

187
188
189

00513
00314

190

19~

00315
0051&
00317
00320
I2IIH21
00122
121121325

197

1210324

191
192
19.5

191.1
195
198
19q

0032~

21210
21211
202

1211332&
0121327
003H'I
0121331

203

00332

201.1
21215

012133.5
00314

2121&

0031<;
I2I1Z133t:>

102$
342&
2030
'5205
1031.1
7&4111
53U
11t5

457,
721110:'
1030
7511d
53311i
31t'J.3iIJ

lOr-

CtiA~:)

IS OK T0 FIT I

/::vEIIo IIiUMdEI<

CHARS SO I"AI(

ell. RTI.
RTl.
RTI.
,+1.1
JMP
kIGHTV, TAO
PTR
ANt>
07700
TAO
n.MP
PTk
DCA I
NCHARS
lSI
JMP
tGNOIolE
AIoiROw, TAO
OLOF\..AG
SZA CLA
JMP
,+3
TAO
0131
JMS I
UTYOUT
CLA eMA
NCHARS
TAD
SPA
JMP
.+3
DCA
NCHARS
J{o1P
I~NORt
TAO
NOHiS
SMA
DCA
NOluS
JMP
HiNOR!:
CARRET, TAD
OLOfLAr.
SNA CLA
JMS I
tCH\..F
TAD
NCI'URS
!;ZA
JMP
.+1.1

ITHt:N STORE AS THt LEfT
IHAl.F OF THf WOR!).

IUSE AS THI::

~JGHT.

IINPUT FROM FILE ?
INO, PRINT rUCI< ARROW
Ill" THElie

IS A TEXT CHAI? TO EI?ASf

/THt:N ERASE IT.

20q

fd031.1~

'52121$
10.H
75121"
3021
52121$
11213"
7&5id
1.157,S
103id
71.14 id

21\1
2t 1

12112131.11

554':1

00342

10~1

TAD

2t2

0C1lH3

7b'5id

213
21'"

0031.11.1

'52eJ's

0(7J34~

711 iO
t17e'

SNA (LA
JMP
IGNORI:: 11'0.10, IGNORE EMPTY LI"JI::S
CI.l. RAR
TAO
lI.. IN£+i'

207
2121B

1210331

2\5
elf,

l/IeJ31.1t:>
ok'I 31.1 7

-217
cHI
21q
1!!2i(1

0~3O:;0

?"'t

MIJ"lr.•

SZL

IoII1IHTY

V'l05~

II!!~V'

Cl.l. RAR
TAO
tI.INE+2
PTR
OCA
TAO

00311:1
00311
00.512

18~

[1 VPI::

JMP

icl03P.l1

185

(CRLI'
1

1025
700&
70Ci!o
S31c!

•

s· t

.+~

,IMS

Sn1
710t)

•

CLA

1~7

1&8
l&IJ

172

P Al,t

10n<l/7.?

3e'?b

~CA

71.1 3;d

SlL

eo03'H

t'li?b

~"'.5S2

~;;J5:'

TAD
Ar.[)

0121553

31.1?o

C'CA

Vle,35<1

<1'>71

.J~iS

f~OIGS

IOTHERWISE., IF THE:.Rt IS A I.INEN(I
ICHARACTER TO flo/ASE THEN ERASE:
ITHAT.
IQTHEIHI1SE, NEVEIi MINU.
IINPUT FROM FlU. ?
11'110, PRINT

CR-I.~

INOT AN EMPTY LIN!:
IANY CHARS AT Al.L ?

PTR
ISTORI'
/THt:.

PTR
,J17'lf.'!
PTh'

[fI,(];,"

1,.UkMALIH.

(Il ~l

llTHt~

Rt-. T • , LIKt,
CHARAeT b'S.

(CA~.

LI~!:

NU" ... !:k

ALL

.......................------------~---------------------'(J~,~

~... Lb-II'

"ASIC HITOrc

22~

v:J~3'H

\CHI:)

t:
TAD

.1M"

n..,

ft'N~()

C~Lf,

iilJ.l3~0

1.I~7'l

U~
~27

01113&1

lIiJ71

TAU

0'0jb~

1.157~

228

003&5

575i)

JMS
JMP

•

.~t. Tl.

J.llo'

0J3'j.,
0iB'H'

., '" t~ ill

223

1(1/~<.I/'2

~AGt

0( ... ~·l

p.
't't-Ill\iT

r"t-l.~

,Ii 15
[TTYOUT
02l~

1
I

(TTVOi,)T

CwLr

•

IOS/8

~ASJC

I: I) IT ('11'/

iO~3 77

10113
01.1 vl'"

l!1

({i",~Iil~

0~"'ilJ

23~

({i~HI01

7100

,..~~\

c.'H

L!I(/JI.IQI?

112~

231.1

7431/)

235

001403
00404

Sillll

2~&

00ufl!S

720\:'1

237
2.58

0040&
00407

2H
200
21.11
21.12
21.13

00410

220id
S&0id
lfil2J

205

1IJ0~1&

20~

00417
004211)
00421
00022
000n
00420
00425
0042&
0(:11421

247
248
24Q
250

251
2r;2

2'B
2S1.1
255
256
257

00011
00412
00413
00414
001.115

112's

7501/)
5&011J
1221
H211J
5230
52&3
525.5

525101
524i
~23a

004.50

012~

524101
1023
7106
7000
3023

00433

259
260
2&2
2&3

00434
00435
0043b
00431
0044121

2&4

00441

2&5
2&7
2&6

00442
00443
0111444
01110l0I5

2foJQ

0044~

270
i?71
272
275

11)01.147
011110150
00451

5&0101

id0452

Sib1

JOG

00453
01:"10154
00455

llj!J2.5

2&&

215
27b
217

OIGr"
I)IGS,

10,30

012101
102.5

DIG5b,

'521.1b
1023

I)1G4,

711lj!J
HHi:!
101i
303&
lf11]'l
012~

fJlfl

,IMP

.+4

lSZ
JMP I
DCA
ISZ
TAO
TAO
SMA
JMP 1

\..NOIG
lfliDIG

TAO

740i

00431
00432

DCA
HlT
JMP
JMP
JMP
JMP
JMP
JMP
TAO
Aiii 0
JMP
TAO
ell WTl
fiTl
DCA

LNOIG
.+3
.+1

IIGNORE

~ORf.

.+7
rJIG.5
0lG4

DIGS
LINENO+l/wHE.RE. N_&
01760
OIu'Sb
TE.I"IP
IWH~Rt N-5
TE.MP

TeMP
UIG45b
T~MP

IIoIHtRE. N=/ol

RP1

RTf<

lINE.NO+l
lNOIl'
LINtNC IwHE.Rt
07160

iii =3

i)lGC!:i

TI:MP

IwHE.Rt: 111=2

elL Fi'TL
IHl

1"'Qlo

DCA

TAO

27q

121041,0

2S~

iiH!J4~1

"t24
lVl2.s

281

0Q14&t'
0M4b3
00464

nlb2 ~,

AND
fAll
J~IP

HMP
LINtNU
Ll "hH'
Tr MP
!l It; 12.s

IJIGl,

HI)

TtMP

0;;.",

elL !(Ao?

"PM

PUN 6 lHr.l T5.

IPUT IN THE NTH DIGIT 1111 THE:.
~IT ijcn lIlliE NUMBER:

DIG1
01G2

07400

01G/oI5b, UCA
JMP I
I)1G3,
TAO
A!\ID
JMP
oIG2,
TAO

I i\J Ttl L 1 '" r

ISAVE OIGIT

ANO
TAO
JMP
TAO

hl~'J

283

•

INOT A OU'!T
l~eTLJHN +1

eLL fUR

1100

1 ~12j
711.0

TE.MP

UNtND+1

30'.1.5

?8e'

•

NUIGS
NI)IGS
01771

fAD

001.156
0045'1

218

... A I,r

I (~t T OHd T

Cll
""
TAD
SlL

102'

103b

h' It'<lll?

PAGe
llllll H~,

2021

258
261

"'4L~-vl

1",111:1(1:

/05/)\

281.1

0i2l1.l'-'~

?8~

0~1.I"'::)

7Q1\c!
Hille:

&l8b

00lit.1

3\!13~

287

001.170

5M"~

j?8A

289
290
291
292

00411
001017 i!
00473
00474
00475

000<'
3347

293

001.1 HI

291.1

00477
00500
00501
00502
00503
00504
00505
00506
00507
r1H1J510
00511
00512
00513
00514
00515
1Il0516
00511
0052111
00521
00522
00523
00524
00525
0052&
00527
00530
00531

1.1570
53C! 1

295
29&
297
298
299
300
301
302
303
]041
31215

30&
]07
308
309
310
311
3t2
313
314
315
31b
317
318
3tq
320
321
322
323

~ 1 ~Jt r.:t"

JMP

!,.NOlr;

TyPE,

TL.OOP,

Uti!!
01 i!{d

TCRL.F,

DCA
TAD 1

CkSwIT
TYPe

lSI

TYPE

PASS
ntA
tCT~I.O
JMS I
TCRL.F
JMP
PASS
TAO I
CL.1. IUR
RTR
RlR
071
AND
SNA
TCRL.F
JMP
0i!37
TAO
TTYOUT
JMS
PASS
TAD 1
PASS
lSI
AND
077
SNA
JMP
TC~L.F
0237
TAO
TTYOUT
JMS
JMP
TLOOP
CRSIt/IT
TAD
SNA CL.A
[CNLF
JMS I
JMP I
TYPE

TTYOUT, 0

60"41

TSF

532b
6041:1
7200

JMP
TLS
tL. A
JMP I

00~3i!

5725

00533

0001/1
2023
1410

321.\

00~1.I1

7&!l'"

H(j

00542

'53314

330

00543
005411

202.5

331
332

RTt<
!lCA

173,5

321

3i14

fltG123,

711c
701c
7450
5121
1074
432'.)
1133
233.5
0120
7450
5321
1074
1.132:)
527b
1341
7&50
4SH
5&71
000'"

PASS,

.-1

,.' ~ 1,"1:

!.t'1'

IH,;>I; A Io1I:.SSAGE

ISAIIE CAR~IAr3t wE TL'''~J SwITCti
IGI::T AOU~ OF MES~AGt
ICHlCK FOR CTRL/O
IYES, S fOP PRINTING
IGET HIGH CHAR
ISH 1FT RIGHT
ISIx BITS

lEND OF MESSAGE
ICONVERT TO ASCII
IPRINT CHAR
IGET L.OlliER CHAR

It-NO OF L.INt
ICONVERT TO AstlI
IPRINT
IRETURN THE CARRIAGE. 1
IYES
IOONE
IPRINT ONE CHAR
IWAIT
IPNINT

TTYQUT

ISKIP ovE~ l..IrIIE

III

TEMP

ISZ
SKI'

FINCR
JMS
Tf.MP
TAD 1
ANO
077
5ZA tLA
JMP
PASS·1
TEMP
ISZ
PASS
JMP
FINei'
JMS
PASS
JMP 1

43&3

142,5

0121d

57"5$

0051.15

43fd

3H
3 '4
B5

0054h

513,5

00!:>4'

000~

33~

!t'0jS0

\02.l

TAll

CRSW IT •
fOulCR,

loteR.

~H'SSl

7b"it-

~ZA

3 ~~

:lI1iI~5tJ

<;.5:il

'~1P

•

\"":~;'112

U>71
2271
3333

00531.1
00535
0053b
00537
00540

325
32&

PALeI- .. :

tiASIC EOTTU"

CL l\

POl'llIEtI

AlljL'

F HLt;

nm·'
• +~

•

105/8

BASIC EDITO~

PALS-V7

339

0121~53

&l14

NOF

340

00554
0121555
0055&
00551
005U
005&1
12105U
005&3
005U
005&5
005 ..
005&7
00570
00511
0121512

110!)

TAD
Of:! if 1
DCA
.... 1
HLT
Cl,. A C~tA
TAD
TEMP
DCA
TEMP
JMP I
"DECR
0
ADF
TAD
0&211

341
34i!
343

344

345

34&
341
348
349

350
]51
]52

353
354
355
35&
357
358
]59

3l5b
140~

7au

1023

3f/lil

5747
121000
&214

11121&
33'7
U0i
S7U
555ii!
574"

110573

0165

1218574
10575
005U
00577

6060
0155
61151
5000

FINCR,

DCA

.+1

Ul/24172

•

PA!;E 4-,!

IINCR, CURRENT DATA FIELD

HL.T
JIo1P 1
FINCA
MSGTDO, 5552'514&'01&5'&0&0'0155'&057,5000

•

IOS/8 BASIC

4516
112.5

PAGl:
CMllDOIIIE,CDf
JMS I
JMS I
MSGROY

&i01

MAllllLUP,COF

0b0K:l

3&0

&2Al

310
311
372
313

00&00
210601
00&02
00&03
00b04
00b121S
021&0&
00&01
00&10
00611
00612
00&13
00614

374
375

00&15
00616

70410

00611
006213
013&21
00622
00&2.3
00&24
00U5
00&2&
00&21
00630
00631
00&32
00&33
00U4
00&35
0063&
00&37
00U0
00&41
00&42
006113
00&44
00645
00&4&
00641
00&50
00&51
00652
00&5j
00&54
00&55
00656
00657
00&60
00&&1
00662
00bfd
006&4
00bb5

311J2ii!

3&1
3&2
3&3
3&4
]&5
3&&

3&7

3&1'

369

37&

317
378

319
380
381
382

385
384

]85
386
]87

388
]89

390

391
3912
393
394
395
]9&
397
398
399
400
401
402
40]

401l
405
406
407

408
409

410
411
412
413
4 til

•

PAL8-V7

EDITO~

457.5

45&1
1&50

5211.1
1031.1
7&50

55&6
5201.1
t0i!b
116~

1S7i
1&50
3022

1035
7141
1037
7&4117

Si!ll
10]6
1141
1040
7&3~

5i!4!S
4561.1
102J
3026

3031
103&
3040
1410
456!
102.5
1140
1026
720~

&214
743~

1101
1110

3346
1026

7141
1025

102c
U51d

5.531
15h'l

{CRLF

10/24112

ITYPE

~AGE

R~l~Y

M~SSAGF

[TYPE

(GETLl111 IGET AN EotTED LI~f.
JMS I
SIIIA CLA
NOCO~D
INOT A COMMAND
JMP
OLDFlAG lIN OLD MUOE 1
TAD
INA CLA
(COMMANDINO, MUST SE A COMMANO
JMP 1
MAINLUP IOTHERWISE IGNORE
JMP
PTR
lOR A LINE wITH A LIN~
NOCOMD, TAO
INUMBER ON IT.
CMA
TAD
CLINE
SIZE
ISET UP SIZE OF LINE.
DCA
(LINE.2 lIS LINE EMPry 11
TAD 1
SNA eLA
SIZE
IPOSSIBLY ZERO.
DCA
LINENO 115 IT > lA,T LINE?
TAO
CIA eLL
EOFLIN
TAD
5ZA CLA
,+4
IHI PART NOT a, FORGET LOW
JMP
LINENO+l
TAD
CIA eLL
ICOMPARt LOW PARTS
EOFLINotol
TAD
SZL CLA
NOTLAST IIIIOT > LAST
JMP
(GElEOF IGET EOF
JMS I
IMAKE IT LOQK LIKE
TAD
TEMP
IA CALL TO FINOLN
PTR
DCA
LINENO ISAVE N~W LAST LINE
TAD
[OFLIN
~CA
LII11ENO+l
TAO
t:OFLIN+l
DCA
SKP
(FIIIIOlN IGENERAL CASE • SEARCH
NOTLAST,JMS I
ITHERE ARE (TEMP.PTR) WORDS IN
TEMP
INS£RT, TAD
ITHE OLD LIlliE WHICH ARE TO BE
CLL CP-IA
IREPLACED 8Y (-SIZE) wOROS IN
PTR
.___.2-~ ..
.
eLA
INEW LINE.
ROF

SZL
TAO

07710

TAD

062~1

PTRFLl)
DCA
PTR
TAO
elL CIA
TAO
TE:.MP
TAO
SIZE
SNA
JMP
MOVE
SPA

IGET FIELU OF START OF OLD LINE

IWHICH WAY ?
ISAME SIZE, MOVE. IN New l.It-JE

•

105/8

BASIC EOITO;.(

~t."

~0b&b

5711'

00b&7

417
4t8
419
"20
421
422
423
424
425
42&
427
428
429
430
431
432
433
434

00&7i/1
00&71
00&72
00&73
00&74
00675
00&76
00677
00700
00701
00702
00103
00HI4
00705
0010&
00107
00710
00111
00712
00113
00114
00715
00116
00717
00120
00121
00122
00123
00724
00125

7041
102.3

436
437
438

439

440
441
442
4U
444
445
44&

447
448
449
450
451
452
453
454

455
45ft
457
458
459
4E10
4&1
4&2
4ft3
4&4
4&5
466
4&7
4&6
469

0072~

00721
00730
00131
00732
00733
00134
00135
00136
00737
00740
00741

00aa

3r112!)

&21"
l111d
3304
102S
7140
102.5
7Uiil
1101
1304
3300
7402
142.5
740c
3425
1425

110.5
1&50

53i!?
2023
53tH
1304
1111
33Pl4

2025
5304
1300
1111
330&
5304
10,n

456a
lUI!

7&50
520'1
&201
1035
35&5
1030
35&1

1165
3023

0111743
00a4

6201
1423

00745

202.5
'71.102

00146
00747
00750
00751
00152
00753
ilI07S4

342b

202&

JMP
CIA
UO
DCA
RDF
TAD
DCA
TAD

EXPAN()

I~AKE

~QOM

T~"'P

lI;t-tHINK

FG~

NE~

TOWARD

THE FlU.
IMOVE FILE DOwN TO hERE

0&201
TMPFLo
TOWARD

IGET FIELD OF REAO

1_ .! ~,t.

POINHfoI

CLL eMA
TAO
TEMP
SNL CLA
TAO
07770
TAO
TMPFI.D
DCA
TWOrLD
TMPFLO, HL.T
TAD I
TEMP
TwonD, HLT
DCA I
TOWARD
TOWARD
TAD 1

IGET FIELD OF WRITE POINTER

IMOYE DOWN

TAO
07101
lEND 0' FILE 111
Sill A CLA
JMP
LWREOF jYE~, PUT NEW LINE IN AT END
TEMP
IINCREMENT POINTERS
In
JMP
.+4
TAO
TMPFLO lAND FIEL.OS IF NECESSARY
TAD
010
DCA
TMPFLD
TOWARD
ISl
JI'1P
TMPFLO
TAD
TWOFLo
TAO
010
DCA
TWOFLD
;JMP
TMPFLD IKEEP SHRINKING
LWREOF, TAO
TOWARD ISET NEW EOF
JMS I
[SETEOF
MOYE,
TAD
SIZE
SNA CLA
JMP
MAINL.UP I IT WAS A DELETE
COF 00
TAD
LINENO IPUT IN LINE NUMBER
DCA I
(LINE
TAO
L.INENO+l
DCA I
[LINE+l
MOVENTR, TAD
[LINE
TEMP
DCA
MOYLUP, COF
IMOVE IN NEW LINE
TAD I
TEMP

ISZ

TEMP

rsz

PTR

PTHFLO, HLT
DCA I

5355
134b

JMP

1111

TAO
OCA

3340

P ~(;~ 5-1

MO~~

•

1 ,11 aII 17?

PALS-VI

TAD

P1R
,+4
PTRFLll
OH'

PTRFLO

IINtREM~NT

~OINTERS

IWHATCH aUT FQq FIF.L0S
ICW,C, OR E,M, 1)

IOS/8 BASIC EOITOH

01"';'.5

rsz

SlZf:.

0015&
00151

.nlP

MOVI.UP

JMP

~1AINLUP

•

I(1S/8

8ASIC EDITOio(

1.173
1.174
1.175

00777

111l01U

0H'0~

47&

0l1Z101

701.11
3025
11.123
30ii!1.I
1100
3423
45U
&214
1110
3237
7100
1021

1.177
1.178
479
480

481
482
483
484
485
48&
487
488
489
4"0
491
49ii!

493
494

US
496

497
498

499

500
51/11

502
503
504
505
506
507
508
5091
510
511
512
513

514
515
51&
517
518
519
520
521
522
523
5i?1.1
525
52",
':>27

H'l0~

01002

0l1Z10.5
01004
01005
01006
01007
01010
0Ull
010ti
01013
01014
012115
01016
1111017
01020
01021
0102i
0Ul3
010.!1.I
01025
010U
01027
o U3G!l
0U31
01032
01033

01034
01035
0103&
01037
01040
01041
01042
01043
01044
01045
01046
01047
01050
01051
01052
01053
01051.1
01055
0105b

01057
010&0
010&1
010&02
010&3
010&4

10i~

3025
7430
45&0
1425
142~

fUr,)

5273
124~

3US
1425
7001
761£0

527.S
6214
1110

3241

10l!)

4562
7402
142J
7402
3425
11.12~

1101

7&51d
5270
73410
1025
3023
1431D
5257
121.11
1107
3241
7341d

102J
302J
7430
50237
1237

"ALc:; .. \i7

1 'i ;' ,~~ ! '/ ,?

•

I"~. ',.' ~

P AI.E,

EXPAND, C1.6
DCA

ItxTRA WOOM

NEEDE~

TOWA~lJ

TAO I

TlMP

DCA

TEMP2

TAO

031

INOW MARt< TtiIS PLACE.

DCA I
JMS 1

TEMP
[GfTEOF

IG~T

ISAVE THIS PLACt

0,.

RDF

TAD
DCA
CLL
TAO
TAD
DCA

SZL

JMS 1
OCA I

06201
TMP2FLD ICiET FIELD OF END OF FILE
TEMP
TOWUU
TOWARD

IMOVE FILE UP
ITO
IHERE

[FINCR
TOWARD
TOWARD

IMIGHT BE ACROSS A I'IELO

TAD I
115 TMERE -fNOUGH CORE ?
SZA CLA
JMP
COREOY INO, GIVE ERROR
CLA eMA
DCA I
TOWARD
TID I
TOiliARL)
lAC
IZA CLA
JMP
COREOY INO, GIVE ERROR
RDF
TAO
06201
DCA
TW02Ft.O ISAYE NEW EOF FIELD
TAD
TOWARD ISAYE NEW EOF
JMS I
fSfTEDF
TMP2FLO,HI,.T
TAD I
TEMP
TWD2FI.D,HLT
DCA I
TOWARD IMOVE UP ONE WORD
UD I
TOWARD
_TAD
lIS THE MARl< ?
07741
SNA CLA
JMP
LASTWD IYES, PUT IN LAST WORD
CLA eLL CMA
HD
TOWARD IdACI( UP POINTERS
DCA
TOWARD
SZL,

JMP
HD
TAO
DCA
CLA CLL
TAO
DtA

,+4
TwD2FLD lAND FIELDS
01770

TwD2FLD
eMA
TtMP
TEMP

~ZL

JMP
fAD

TMP2FLD
TMP2FLO

(MAYB~'

•

PAL13uV7

105/8 BASIC EOlTOI<

528
S2q
53~

53\

532
533
534
535

53&
517
538
539

54121
5~1

542
543
544
545
54&
547
548
54q

55121
551
552
553
55~

555
55&
557
558
559
5U
5~1

5&2
5&3
5~4

5&5
'5&"
5&7
5&8
569
570

511
572
573

574
575

ruli£l&5
010&#0)
0121&7
I2Illil70
12112171
121112172
121112173
1211074
0\075

o10 HI

1211077
01100
121111211
1211102
1211103
01104
0111215
12111121&
1211107
121111121
1211111
Ul1i!
1211113
12111111
1211115
0111&
1211117
I2I1UI2I
1211121
1211122
01123
01124
01125
0112t>
01117
01130
1211131
01132
01133
01134
1211135
01131,

01137
01140
01141
01142
01143
011~&

578
579

01141
01150
01151
01152
01153

581
582

•

071H'

TMP2FLD
fMP2FLD
IPUT IN SAVel) WORU
TEMP?
TowARI.)
[MOVE
IGO MOVe IN NEW LIN~
[TVPE
IFILE TOO BlG

(001

475~

651b

525kl
57&121
b34b
451210
121145
4b5,
4&b5
4&45

MSGALT,

121145'4&5S'4&&5J4&~5'0

12112100

b34b
4245
7200
7P151
42&S
412101D
1154
45&2
3037
3040
555!
0000
1027
7440

5341'
7241il
573b
7701D
5731:1
111 C!

01145

f'AI,jE b-\

LASTWO. TAO
DCA I
JMP I
5551
457b COREDV. JMS I
MSGBIG
1105
(MAINLUP
JMP I
555&
----~.~,'.721211 8VEBVE, CLA lAC
AND
SWPNUM lIS OSII RES IN PlACe. ?
12112153
7&40
SZA CLA
IVES IF EVEN NUMBER OF SWAPS
(SWAP
JMs I
IPUT 8ACI< OS8
4555 BVE,
T5F
IWAIT FOR TTV 50 058 DOESN'T
62141
ITRAMPLe. ON MV LINE FlED
JMP
531212
0"1
JMP
IEl(! T TO 058
1C05
577 l'
4l.1l.I C! MSGBIG. 4~~2J5710'&501'4752;b51b'~25e1;57b0Jb3"&;I.I500
571kl
&51211
102~

342~

1104

57"

TAO
[)CA
JMP

5231

0111.14

577

580

1 un
3231

111121.11/2

312123
1035
7110
303~

MSGROV, &3/'& J 4245" 200
MSGWHAT,7051J42&5,4000
SCRATCH, TAO
JMS I
DCA
DCA
JMP I
NORM,

TAO
"SZA

JMP
CLA eMA
JMP I
TAD
SMA CLA
JMP I

[TXTAREA/SCRATCH FILE
tSETEOF
EOFLIN IZERO L.AST LINE NUM
EOfL.lN+1
rCMDOQNE
ILINE NUMBER NORMALIZER
NOIGS
,+3

NORM
07772
NORM

TAD

07774

TAD

TEMP
lINt-NO

OtA

CLl RAR
DCA
L.INE.NO

IIF THERE ARE NO DIGITS IN THE
ILINE NUMBER THeN
IIoIETURN -1.
IIF THE Ll Ne.ND HAS BF-EN FILLED
lOUT TO & DIGITS(LEADING ~·S)
ITHEN ReTURN.
IOTHERWISE-. SHIFT RIGHT 1 DIGIT
lAND CHt:.CIO, o\GAIN,

•

105/8 BASIC EOITOI(

583
584

585
SSe.

587
588
S89

01154
01155
0115&
01157
01160
011&1
0116ii!

PAL8-V7

lQIlb

TAO

71/1 tID

liAR

30!tI

DCA

20iJ

ISZ

5351

2027
5337

JMP
15Z
JMP

10U4172

LINENQ+l
LINENQ+l

TEMP
.-7
NOIGS
NORM+l

•

PAGE &-2

•

10SIS I3ASIC EOITOk
5 1Hl
591
592
593
594
595
596
591
598
599
&00
&01
&02
&03
&1/111
U5

U&
&07
608

609
&10
&11
&12
&13

&111
&15
&16
617
618
619
620
&21
&22
623
U4

&25
&26
&21
628

&]0

631
632
&33
&34
&35
&36
&37
&38
639

&40

&41
&42
&43

•

&44

01171

701213

01200
0121211
01202
012121]
012011
01205
0120&
01207
01210
01211
01212
01213
0Ul4
01215
0121&
0lil1
01220
01221
01222
01223
01224
01225

12210

1~01d

302$
202$
142j
202$
11151/1
521S
1512
1&U
5202
t 112.5
31212.3
5112S

1157&
lUb

555.
1220
222.
1400
172:S
112~

133&

0122&

222l

01227
01230
01231
01232
012]3
01234
01235
01236
01237
01240
01241
01242
01243
01244
01245
111124&
01247
01250
01251
01252
01i5]
01254
01255
0125&
01257
012&0
01c61
01262
012&3
01ii!64

1412
2200
1334
1131
34216
t 101
203i!
17f1J

2036
1754
121001/1
0145
645 ..
33U
4i!&4
52U

P,6l.ts-V1

1 fIlli:?lI 17 "

~.\l;1'

PAGI;
COMMAIliD, TAn
COMTBL ICOMMAND LIST put~rtq
n.~p
DCA
IGeT 2 CHAR COM~AND
TtMP
COMLIJP, ISZ
TEMP
TAO 1
TEMP
ISZ
SIIIA
JMP
WHAT
IEIIID OF LIST
[LIIliE+2 115 THIS IT ?
TAO I
SZA CLA
JMP
COML.UP INa, LOOK AGAIN
IGET COMMAND AOO~
TAO I
TEMP
DCA
TEMP
IAIIID GO TO IT
TEMP
JMP I
{TYPE
WHAT,
JMS t
ITYPE WHAT?
MSGWHAT
JMP I
[!'lA I III L. UP
COMTBL., •
-5552
LIST
-&12155
OLD
-&442
$AVE

-&3&6
IlUIII
-&444
SCflATCI1
-4372
BYE
-574&
NEW
-5742
RENAME
0
WSSAI/E., 121145,6454,3343'426415244'1710'&400

1711/1
U0f/1

00013
457J

11512
3kl23
12&5
302&
42hl
427k!
427111
202&
4271/1
4570

HEADING,fIl
JMS I
TAO

DCA
TAO
DCA
JMS
JMS
JMS

ISZ

JMS
JMS I

[tRLF
["NAME
Tt:MP
XTITLE
PTH
CONY
CO~JI/

to;..jV
PT!i
CONII
[TYPE

IPRINT ~EADING
ILoATER
15ET UP FOR CONVERSIOIIi
IPOINTER TO FILE IliAME
IWI1~RE IT GOES
IOUTPUT FIRST TWO CHAR!;
INEXT TWO
If~IRD TiojD
ISkIP FOR EXT
10UTPUT EXTI::NSIUIII
/TYPE ~t:ADIN[j

•

105/8 BASIC EDITOR

&45

&46
647
&48

&49
650
&51
&52
&53
&54
&55
656
&51
&58
&59
&&0
&&1
6&2
6&3
6611
U5

&6&
&67
&68

669
&10
611

612
613
&74
&75
676
677
678

01265
012&&
012&7
01270
01271

1312
4573
5&51
0000

01273

110123
01216
74510

01i14

13'17

01275
0121&
01277
01300
01301
01302
01303
01304
01305
0130&
01301
01310
01311
01312
01313
0131'1
01315
01316
01317
01120
01321
01122

1101

01272

0132]

~AL6-V7

)(TITLE, TITLE
JMS J
JMP I
CONV,
III
TAO I
AND
SNA

TAO
TAD

10/2U172

•

PAGE 7-1

[CRL.F
IFOLLOWfO BY A CRLF
HEADING
ICONVeRT TO SIX BIT ASCII
IGET NEXT WURU
TEMP
ICHECk FOR 0
077
ISUbSTITUTE BLANKS
(40
ISUBTRACT 31
07741
077
ISIX BITS
PTR
TEMP
100 UPPER CHAR
07700

AND
DCA I
TAO I
AND
SNA
CLio CML RAR
TAO
C-3700
PTR
TAO I
~CA I
PTR
TEMP
ISZ
PTR
ISZ
CONV
JMP I
0111"0,010110

IFOR THE PROG NAME

'Hell

010110101

ISOME BL.ANKS

2101
0101

VERSON&100.2117 IVERSION NUMBER
VERSON-10&7fil0+2101
IMORE BL.ANKS
0101,0101

01216

342&
142,S
0055
7450
7130
1376
11012&
3426
22123

2026
5&Hl
0000
02100
21000
0101
0000

TITLE,

0101
2211

01324 0101
01325 0000 DATE,
01326 0000
b79
013i1 0000
&80
01330 16]0
&81
01331 . 0.000 682- ·-01332 0000
GETNC,
&83
01333 1030
01334 2030
684
US
01335 7110
&86
0133& 1l7c!
687
01337 3023
688
01340 1423
{,8q
01341 743111
&90
01342 5346
691
01343 701c!
&92
013U 7012
693
01345 1!111e!
69u
TESTCI1,
161346 012121
695
0131.11 74511l
69~
01350 S7]c!
bq7
013'1l 10&ftl
b98
0135i H4ftl
6qq
01353 5361

0,0,011630'0

ISAME WAY
ICOMBINE THEM

x.v

IOATE

IGET A CHAR FOR A FlU NAME
IGET CHAR ~OINT~R
IBUMP IT
ISZ
IDIVIOE BY 2
eL.L FUR
TAO
tLINEt2 IAOO SASE
TEMP
DCA
IGIVES AODR OF' WOIolO
IGET 2 CHARS
TAD I
Tt.MP
1000 EVEN BIT IS IN LINK
SZL
JMP
TESTCI1 IGO CHECK THE CHAR
RTR
RTR
RTR
AND
077
IONLY 6 SITS
SNA
JMP I
GE.TNC
lEND OF NAME
TAD
IwAS IT • 11
01161
SZA
JM~
NOExT
INO
0

TAO

NCHARS
NCMARS

•

PAL8·~7

105/8 IUSIC EOITl.)W
7I2lVi

01354

724~

701

013S5

30U

102

013':;1:1

11'i1

703
704
705
70&
707

ftH151

3024

013&0

517'~

013&1

10&1

013&2

7441a
53&1:1

013&3

108
709

013&4

7201

013&5

5732

710
711
71i!

013&&
0\3&7
01370

10&1
0120
2332

713

01171

•

S1le

NOE leT ,

CLA CMA
DCA
SIZE
[IIIAM!:+!
TAO
DCA
fEMP2
JMP
NAMLUP
TAD
077&4
5ZA
JMP
.+3
tLA lAC
JMP I
GETNC
TAO
072
AND
071
GETNC
ISZ
JMP I
GETNC

HlUlll7e

PAGE 7-<,

ISU

SIZE TU -\

ISf:T

POINrE~

ISTA~T

115 IT

flIT

WL1RO

. 11

(IN EllEN CHAR

IvES, RE.TURN NONHRU
I~ESTORE THE CHAR TO
ISTHIPPEO SIX BIT

•

PALS-V7

105/8 BASIC EDITOR

714
115
71&
711
718
719
720
121
722
7i!]
7211
"25
72&

72.,
ue

.,iQ
730
711
732
133
714
715
71&
737
718

.,39

140
741
14i!
743
744
745

746
.,47
748
749
7S(/)
751
752
753
754
.,55
756
751
7S8
.,Sq

7&0
7&1

762
7&3
7&4
7&5
76&
767
7&8

01375
0131&
01317

01400
0111fcH
01402
01403
014011
011105
0140'
011107
01410
01411
01412
01413
01414
01415
0141,
01417
011120
01421
0111i!2
0142.3
01424
01425
01426
01427
01430
01431
01432
01433
01434
01435
014](,
01431
01440
01441
01442
01443
01444
01445
0144&
01441
01450
0U51
01452
01453
01454
01455
0145&
01457
014&0
01461
0111&2

173&
4100
0040
11101/1
1551/1
1547
1371
7&50
5211
4511&
10]1

LIST,

TAO

7&50

555S

]0lkl
3027

L.ISTNM,

454~

522S
131&
7&40
521l
454S
5225
10.S
4574
5ic0
It'S4

NUMOUN,

302&
4571
.,., 00
45.J
6214

1110

32f17
3023
4570
555.5
4244
555l

LSTLUP,

45"~

Sin
(/J0I/J0

1023
202S

1252
]251

"40i
5653
14&1

15(/)&
1507
151'l7
14&7
151217
1~0T

15121S.

PAGE
TAO I
TAO I

GETFIL.,

Ul1211172

•

PAGE 8

tL I~E+3 ILISTNH 1
tLlNf+4
(.443& IPSE:UDO TEST

SNA CLA
JMP
LISTNM INO ~EAOING
JMS I
£HEADING/GIVE HEADING
TAO
CDFl.AG IWAS CTRL/O TVPED ?
SNA CLA
[CMDDONE/VES, ABORT LISTING
JMF' I
DCA
NCHARS 15fT POINTER
NOlliS
DCA
lAND DIGIT taUNTER
[GETNC ISKIP UNTIL BL.ANK
JMS I
JMP
NUMOUN 100NE
TAO
(-40
SZA tL.A
... 4
JMP
INO BL.ANK VET
JMS I
[GE TNt IGEr A CHAR
JMP
NUMDUN lEND OF NUM~ER
TAO
0770&
ISUBTRACT 72
JMS 1
[LNO!G IGO SEE IF ITS A DIGIT
JMP
lIT WAS, CONTINUE
,-4
TAD
tTXTAREA
nCA
F'TR
15ET UP POINTER
[NORM
JMS I
INORMAl.IZE T~E NUM
SMA CI.A
IANV NUMBER?
JMS I
tFINOLN IYES, I.OCAH IT
ROF
IGET T~E FIEL.D
TAD
06201
DCA
PTR2FL.O ISAVE IT
TEMP
DCA
JMS I
[CTRLO ICHECK fOR CTRL./O
JMP I
CCMDDONE/VES, EXIT
JMS
GETFIL IGET CHUACTER TO LIST
JMP I
[CMDDOIllE
JMS 1
(TTVOUT IPRINT IT
JMP
LSTLUP IL.OOP
(/)
IGEr C~ARACTER fROM FILtTEMP
TAO
TEMP
ISZ
TAD
,+3
DCA
,+1
HLT
JMP I
,+1
ISEQUENCE OF OPt-RATIONS
PTR2FLD
IGET FIRST WORD
FRSTDIG
IFIRST DIGIT OF LINE NUMBER
DIGIT
ISECONO DIGIT
DIGIT
ITI1JRD OIGIT
PTR2fL.D
IGET NEXT WORD OF LINE NUMBER
DIGIT
IFOURTH DIGIT
DIGIT
IFIFTM DIGIT
LASTOIG
IS!XTH AND LAST 01GIT

•

/OS/8

!:lASle EOITol'!

7&9
710
711
772

011.1&.5
011.1&1.1
011.1&5
0\1.1&&
1:111.1&7
1:111.171:1
011.171
01472
01473
011.111.1
011.175
0147&
01477
01500
01501

773
774

775
77&
777
778

779
780
781
782
783
781.1
185

78&
787
788
789
H0

791
792
793
794

795
79&
797
798
yqq

800
801
802
803
804
805
80(0)

807
808
809
81121
811
812
813
81/.1
815
8lb

817
818
819
820
621

822
823

•

11.1&'
152b
155,S
1551(3
11.1 \1J i

11.12b
&201
l111J.~
11.15~

5&41.1
1120
3021.1
202&
5245

12&1

01502

1111

01503
01501.1
01505
0150&
01507
01510
01511
01512
liU513
01514
01515
0151&
01517
01520
01521
01522
01523
01!l24
01525
0152b
01527
1211510
211531
0153c
01533
01514
01535
0153('
01537
01540
0151.11
0151.12
0151.13
01544
01545
0151.1';
01547
01550
01551

32&1
S24:t

7201
3027
1021.1

700b
700b
3021.1
1024
700'1
0r117c
7U0
532.5
1021
7('50
5245
2027
1\:173

5342
1024
7012
701c!
H'l12
"inb

11 11
3023
10241
V'l120
71.150
53414
1071.1
2244
Sb4'l

1075
302,S

1071.)
S34e!
3t'12's
107f

PACd-V7

r'l{jE. 3-1

IGI: T WO~l) OF TEn
IL!:FT CI-iAfHCTt:.R

PT~tlFL.D

U-FTTXT
RITt:TXT

UNFTXT
PTR2FLO,I1LT
TAD
COF
TAO
St-IA
JMP I
TAO
DCA

lrt./~'.i,/72

IIoIIG~l

C~ARAr:rE~

ILINE FtEO CHA~AClr~
ICl-itCII f O~ I:OF
PTR
07701

GUFIL l'itS, ~t:TUR~ UNSKIPPEO
077
TEMf'2
11140, SAVE WORD
lSZ
PTR
IBUMP POINTl::R
JMP
GETFIL+1
PTR2FL,O
TAO
TAD
010
DCA
PTR2FLD
JMP
GETFIL,+l
LASTOIG,CLA lAC
IFOHCE LAST DIG IT (EVEN IF 0)
FRSTOIG,OCA
NDIGS
IZERa DIGIT COUNT
DIGIT, TAO
TEMP2
NTL
RTL
DCA
TEMP2
ISHIFT LEFT ONE DIGIT
TAO
TEMP2
IHL
AND
017
IGET DIGIT
SZA
JMP
NZDIGIT I ITS NOT ZERO
TAO
NDIGS
115 IT A LEADING ZERO ?
SNA Cl.A
JMP
Gf.:TFIL+I/Yi::S, OON°T PRINT IT
NZOIGIT,ISZ
NDIGS
INON ZERO OR NON l.EADlNG ,zERO
TAO
02blZl
ISO PRINT IT
JMP
GFRt:.T
LEfTTXT,TAD
TEMP2
IGET l.EFT CHAfoC
RTR
RTR
RTR
JMP
.+4
RIiETXT,TAD
010
ISETUP FOR LEFT CHAR NExT
DCA
TEMP
TAD
TE.MP2
AND
071
ISlXBlTlZE AC
SNA
JMP
H.ROTXT 10 IS END OF THE LINE
TAO
0237
IMAKE IT ASC II
GFRET, ISZ
GETFIl
JMP I

ZEROTXT. TAO
DCA
TAO
JMP
L INFTXT, nCA
TAD

G~ Tf t L

013

ISETUP FOR LF

NOT

TlMP

0215
GFRET
TEMP
0212

I~ETURN

ICLtAR SElJUt.NCEIoI ANU

•

fo(ETU~N

•

IOS/8

BASIC EDITO~

Si14

sas

01552
01553

534c!

8i!f>

01~54

6031

8i!7
828

8iCJ
830
8Jl
8U
833

01555
01556
01551
01560
01561
0tS&;!
01563

6036
006ii!
106111
7450
531111
lli!1

8)4

01564

00f1l0
5l&f>

01565

1650
5775'

836

01566

837
818
8lCJ

2353

015&1
US10

1ilU

01571

3011
57Sl

PALS-V1

JMP
CTRI.O,

101i4172

•

PAGE 8-2

GFRH

ICHECK FOR ·0 ANO "t
ICHfCK FOR ·0
INO KEVBOARD

KSF
JMP
KRB
ANO
TAO
SNA
JMP

CTRLox.iISET FLAG OFF

TAD

014

CTRLOX
0177
077&1

INA CLA
JMP
BYEBVE
CTRLDX, ISZ
CTRLO
Ct.. %AC
DCA
COFLAG
JMP I
CTRLO

I-e 'l

IVES, END
IFIX RETURN
18ET FLAG -I IF NO CTRL/O

•

100;/1:1

j)AL!:i-\i '

BASIC EOlTtJk

84~

0\')7",

U1b

81.11

01~7t1

174'iJ

AI.I,!
1)1.13

01571

Bl.lt!
1600

81.11.1
81.15
81.1b
81.17
848

01bflll2l
01001

000.:)

01b02

rill b03

8&&

01b01.1
0H05
01&0&
01&07
0lbt0
01b 11
01&12
01&13
01&11.1
01&15
0101&
01&17
01&20
01&21
01&22
01b23
01&24
01*,25
01&2&

8&7

01&27

8&8

01630
01b31
01&32

84q

850
851
8S2
853
851.1
855
85&
857
858
85q

860
8&1
862
8&3

8&4
6&5

8&9
670
871
872
873
871.1
875
87b
877

878
879

880
881
882
883
881.1

01b33

01b34
01&35
01&3&
01&37
0\&"O
01&1.11
01b"l
01&43
01&44

332$
103':
7b4k:!

'i2t"

4S55
132)
7&5~

7001
3777'
b2ll!
1.1455
0010
30310 NOFUSR,
1.177& ' 6SKIP,
5275
llblcl
7&4k:!
521&
1.1321.1 NOSKIP,
7&50
5230
101.11
3247
1041!
325kl
43i!4
7b4kl
5775'

52.42
1311.1
32'"

445b

0001
0000

887
888
889
890
891
892

01&1.1&
01647
01&50
01f>51
01b52
01b53
01&5"
01&SS
01&5&
01&57
01b&0

893

01b&1

3051
132$
771.10
5&01tl

8Q/,l

01bej,!

1041

•

USEDSK.

1173

3251cl
11114
3251
&212

01b"5

SSt;
88b

PAGt
GtTFN,

GETHAN,

DEV,

'utA
"

"l'/~Ii.If?

p ~ r, ~

I l>t'.T A FILE 'JAMt. (AL "( ~ E H~1 I r .,
SAHLAG 1=1 FUR 5AII\:. 2l F (1!o1 OLD 01( '.Ew
ChNFLAG IHTU~NIN(i FROM RlIf\; 1

HA~,I,_~,,)

TAO
SZA CLA
JMP
NOFUSIoI IYE.S, DONQ FtTCM USR
[SWAP
IGET 058 RESIDENT
JMS I
TAO
SAVFLAG lIS IT OL.O OR Nt;W 1"1
SNA CLA
lAC
IVES. DON'T SwAP 1000;1-11177
DCA
171.1&
100 IF SAVE. SO ALTtR JSw
IGET TME. USR
10
ClF
JMS I
077013
10
NCHARS IRE SET CMAR POINTtR
DCA
JMS
GE.TNC
IfilT A CHAR
ASKNAI', IASK FOR FILE ~AMI:
JMP
TAD
M40
I~LANK ?
SZA CLA
JMP
8SKIP
INO, LOOP
GETNAM IGET A NAME
JMS
SNA CLA
JMP
USEDSK INO DEVICE SPECIFIED. USE DSK:
TAO
NAME
IPUT IN THE Dt:VICt: NAME
DCA
lAS SPECIFIED
OEV
TAO
NAME.·1
OCA
OfV+!
JMS
GETNAM IfETCH TME FILE NAME.
SZA CI.A
JMP
IOERQ
I~AD SYNTAlt IN FILE OESCRIPTnR
JMP
GETMAN IGO FETCH THE HANOL.tR
TAO
(01.123
ISET DEVICE NAME TO 05K:
DCA
01: V
TAO
030111
DCA
DEV+1
TAD
[HANDLR+l
ntA
(lE'I+2
IALSO THE HANOLER ORIGIN
CIF
trO
JMS 1
020111
ICAl.L THE USR
IFETCH HANDLER BV NAMt:
1
0,W,0

0000

0000
577~'

1250
3052
125~

JMP
IOERR
TAD
utV+l
DCA
OEVNUM
TAO
OEV+2
DCA
Ll!:.VHAN
MOVtFN, TAD
SAIIFLAG
M40,
SMA 5ZA CL A
JMP I
GI:. Hili
TAD
NAME

ISAD DEVICE
ISAVE HIE Or:VICE NUMBtR
lAND TME. HANDLER

ENT~Y

POINT

IWAS IT A SAllE 1
IY!:.S, JUST /o/fT Ui'lN
INEW OR OLD, ANV NAME GIVEN ?

•

105/8 BASIC

895
89&
897
898
S99
900
901
902
CJ0]
901.1
905
CJI2I&
907
908
909
910
911
912
913

911.1

915
91&
917
918

91CJ
920
CJ21
922
9Z3
924
9Z5
926
9C!7

U8
929

9]0
9]1

933
934
935
93(.
9]7

9]8
939

940
91.11
94i!
CJ43
CJ41.1

945
94&
CJ47
948
949

01bb3
01bb4
01&&5
01&&&
01&&1
01&70
01671
01&72
011:113

01674
01&75
01&16
01677
01700
01701
01702
01703
01104
01105
01706
1211107
01710
01711
01712
01713
01714
01715
01116

01717
01 H0
01721
01722
01723

01721.1
01725
01726
01727
01730

1211731
0113Z
01733
1211734
01735
0113&
1211737

01740
0111.11
01742
0111.1]

01144
01145
0174&
01141

EDITa~

7451d
5&01d
3045
101.12
304b
101.1.3
31211.11
1044
305rd
5b00
13i!l
7751d
5313
l045

7450
531.5

312141
1040

30 1.1 i!
1047
301.15
1050
301.11.1
5&00

721211
4571:1

21&7
4567
7&50

551.15
3030
522.5
0000
0000
3041
31214 I!
304)
1057
31211.11.1
111.12
3024
l11e
3022
454S
5121.1
710b
700&
100&
3424
454!)

5721.1
1424

01750

342/,1
202/,1

01751

20U

SNA
JMP I
DCA
TAD
DCA
TAO
DCA
TAD
DCA
JMP I
ASKNAM, TAO
SPA SNA
JMP

TAO

SNA
JMP
DCA

•
GETFN
INO, PROBABLY JUST A DEVICE
FNAME
IYE-S, SAVE IT
NAME+1
FNAME+l
NAME+c
FNAME+2
NAME.+3
FNAME+3
GETFN
SAVFLAG IWAS THIS A SAV~ ?
CI.A
ASKNM
INO, GO ASK FOR A NAME
FNAME
lIT WAS A SAVE, ANY OLD NAME TO USE?

ASKNM
INO, GO ASK FOR ONE
NAME
IYES, MOVE INTO NAME
FNAME+l
TAO
NAME+l
DCA
TAD
FNAME+2
NAME+i!
DCA
TAD
FNAME+3
~CA
NAME+3
JMP I
GETFN
ASKNM,
elA lAC
IASK FOR FI~E NAME
JMS I
[TYPE
ASKFN
JMS I
[GETLIN IGET THE INPUT I.INE
SNA CI.A
[WHAT
JMP I
1717
DCA
NCHARS 15ET CHAR POINTER
JMP
NOSKIP IGO GET THE NAME
SAVFI.AG,0
GETNAM, 0
IGET A FILE OR DEVICE NAME
DCA
NAME
IZERO THE NAME SUFFER
DCA
NAME+1
DCA
NAME+2
TAO
Oi!01
lUSt OEFAULT EXT .SA
DCA
NAME+!
TAD
[NAME
ISETUP POINTER
DCA
TEMP2
HO
07174
ISETUP SIZE (MAX /,I WORDS)
DCA
SIZE
NAMI,.UP, JMS I
[GETNC IGET A CI-tAR
JMP I
GETNAM
Cll RTL
RTL
RTL
DCA 1
TEMP2
ISAVE IT
JMS I
[GETNC
JMP I
GETNAM
TAD I
TEMP2
ICOMBINE THE 2
DCA I
Tf."'P2
TtMP2
lSZ
IANY MORE 1
ISZ
SIZt

•

IOS/8

QS0
q'il
q52

9';3
954
955
95b
957
Q58

9,9
9&0
IUd

9&2
9&3
9&4
9&5

PA~8.117

BASIC EOtTOIoi
01752

533&

011'5.5

S12~

0l15(1
01755
017Stl
017'57
017&0
017&1
017&2
017&3
011&4
011&5
0171)6
011&7
01770
01771

•

713101
1Ii!0iil

&21c!
11115b

0011
(1555
S5S,S
1154
4;&c!
3037
3041/1
4200
4555
555.5

NAML.UI-'
JMP
(j~TNAM
JMP I
RENAMe, ell CMl RAI(
Gt:Tf-N
JMS
elF
l~
oih'l 1/1
JMS I
11

NEW,

JMS I
JMP I
TAO
JMS 1
DCA
DCA

JMS
JMS I
JMP I

10te"112

q-.?

PA(i~

ISAVf. USR A~EA
IGf.T FILE NAMt:.
IREMOVE USR
lAND ~ESTORE 1000111·11717
ISWAP 058 RESIDENT

[SWAP
[CMODONE
ISCHATC"
tTXTAREA
[SETEOF
E()FLIIIi I ZE.IW LAST LINE "JUM
EOFlIN+l
IGET TIo4E FIL.E NAMt:.
GETFN
IREMOVE 058
[SIIIAP
[CMDDONE

•

IOS/8 BASIC
9&b

01713

967

0l7H

0423

9&8
96C1
910
971
972
973
914
975
91&
971
978
979
980

01775
0177&
01717

27t~

981

982
983
984
985
986
987
988
989
990
991
992
991
994
995
996
991
9qe
99q

1000
101211
1002
1003
10011
1005
100&
1001
101218
100q

1010
1011
1012
1013
1014
10i!,

101&
1017

1018
1019
102(71

02000
02001
02002
02003
02004
02005
02006
02001
02010
02011
0201i!
0i013
02014
022115
02016
02011
02020
02021
022122
02023
02024
02025
0202&
02021
02030
02031
0Z01i
02033
02034
02035
0i!01b

02037
02040
02041
02042
02043
0201.14
0204'3
0204&
02047
020'30
02051
02052
02053
02054
02055
0205&
02051
020&0

PAL8-V7

EDITO~

10/21.1172

•

PAGE 111

130~

133c
7Hb

20Ehl
0000
1154
302b
111f11

3541
3023
1140
3003
1071
3004
1310
3U3
4537
5220
4231
5214
1063

4ill
10"4
3230
4231
2230
5224
5&00

0000
0000
300"
740C!
5304
5301
1311i1
l2ll
1I/I0b

007i:!
7110
7012
701i:!
1403
340J
100/:1
700&
700b
012~

140~

3405
2003
2004
5&31
4555

PAGE
PUTFIL., 0

TAO

DCA
TAD
DCA I
DCA
TAO
DCA
TAD
DCA

TAD

DCA
PFLODP, JMS I
JMP
JMS
JMP
PFCTLZ, TAO
JMS

TAO

DCA
JMS
ISZ
JMP
JMP I

IWRITE THE FIL.E
[TXTAREA
PTR
IGET POINTE~ TO TEXT
06201
IGET FIELD OF TEXT
(PTR2FLD
IZERO LINE SEQUENCER
TEMP
(OSKBUF IGET ADOR OF DISK BUFFER
SWAPT1 ISUFFER POINTER
07&00
SWAPTa IDOUBLE WORD COUNTER
JMPINS ISET 3 WAY SWITCH
PUTJMP
[GETF IL IGET A CHAR FROM TnT A~EA
PFCTI.2 lEND OF FILE
PUTCH
IOUTPUT IT
PFLOOP 100 NElCT CHAR
0232
IPUT CTRL-Z
PUTCM
IBUFFER DUMP COUNT
07201
PFTEMP
F'UTCH
IFILL WITH ZEROES
PFTEMF'
0-2
PUTFII. IDONE

PFTEMP, 0
PUTCH, 0
5WAPT4
DCA
PUTJHP, HLT
JMP
PHl
JMP
PHI!
PHl,
TAD
JMPINS
DCA
PUTJMP
TAO
SWAPT4
AND
017
CL.L RAR
RTR
RTR
TAD 1
Slt/APTl
DCA I
SWAPTl
TAD
SwAPU
RTL
RTL.
Afl/O
07400
TAD I
SWAPT3
SWAPT3
DCA I
SwAPTI
ISZ
SwAPT2
ISZ
JMP I
PUTCH
[SWAP
JMS I

IPUT A CMAR ONTO TME OS8 FILE
ISAVE THE CHAR
IJUMP TO CORRECT P!.ACE
IFIRST CHAR
ISECOND CHAR
IRESTORE SWITCH
IGET H4E CHAR
II.OW FOUR BITS
/INTO THE HIGH PART OF wORn TWO
ICOMBINE WITH CHAR 2
IGET THE HIGH FOUR BITS
IINTO THE HIGH PART Or
ICOMBINE wITH WORD ONE
IBUMP POINTER
IBUMP OOUBLt WORD COUNT
IRE TURN
ISWAP IN 058

wo~o

ONE

IOS/8 BASIC EDITOH
1021
10i!i

1023
10U
1025
10U

1027
lU8
U29

1033
10341
1015

U:u.
1031
tua

til"
'Ut
11141
,,'3
".a

JMS 1
4200

U066

2311

ISI

IANy ROOM L.EFT ?

12167

1410
5771'

SICP

OUSIZE

JI1P

DUERR

Ii'"

lSZ
ISI
JMS I
TAD
DCA

WR8LOK
OULEN
tswAP
tDSK8UF
SWAPTl

INO, ERROR
IBUMP BL.OCK NUMBER
ISUMP ACTUAL. SIZE
ISWAP BACK
ISET UP BuFFER POINTER

TAO

07&00

DCA
JMP I
TAO
DCA
lIZ

SWAPTi
PUTCH
SWAPTl
SWAPT]
SWAPTl
SWAPT4

OEvHA~

DSI(BUF
IIIRBL.OK, III
JMP
5117-

21.,6'
455S

02076
022117

1140
32103
1011
301"

02181/1

5611

02Ui

]1IJ05

IUU)

20113

eiUI"

1Ie.
SUI

PHi,
PI'U ,

TAD

..
,,"
."'", .......,. "." .,

(

II lIS

I2lt.

l'lIY

· •.aul

iUU
I2IU
11114
BUtS

1e41
U4I

tl4.
U50

IUt6

10~1

1052
10n
..,,,.·1A1'1:;,,.
1055

02121

SUI
!UI

JMP X

J"'Ut., 01'"

q~~tf.,

lIDS)

nus

,.'15% .
JMS

"",1;'".:"~;;.":;- _.-"~

lU0

CD.P:~"...

~c,:.

JMS .

SwAPi!

12lU
IIUl
10U

SwAPi,

TAO

UiH
n2l

TAD I

02134

300f1

1065
106.

0213b

2121

DCA
TAD I

1067

IDc U7

3347

1166

U14.
02141

531'
b21111
1003
llUll>
2000

10n

1070
1011

02142

0214.3

ln7

1072
1073

021U
02145

1014
1015

02141>

1400
1004

02147

7402

•

S~AP

III

~CA

Bun

, _.~

~~~. til :-SW;P~~if~>!;~-'-~ -~~'-'-"J;J~'~ '': / f ~.

lQll1

lun

"'~

. .. +X"""C;c::"""?'~~ .

0S8RES+i!00
.,....'!I!I;?'L

300S

12161

IWITH aS8RES THROUGH OS8RES+S77

0S8~e:s+400

0000

SWAPl

COF 20
JMP 1

511i

/INTO !SU"ER
18UMP SwITCH

IWPHUM

U21

21iU7
02138
02Ut
nU2

IBUMP POINTER
IGET CHAR

ISWAP 088 RESIOENT
IFLIP BYEBYE swITCH

lUi!

1'112121>

ISAVE POINTER TO F!RST

OURES

··0i1i!J··~~F"'-""'~

1057
1058
11115 CJ
UlU

PUTJMP
PUTtH

ISET UP COUNT

PUTJI'IP·S

NO'

3iBe

IWRITE THIS BuFFER

OUER~

S\!IAPT!

til

?e10
an1

..!ili!. 6il1

02124

DCA I

22U

:1·tH~4Ht-'£'~

11/156

PAGE 10-1

4200
4000
0000

nua uU

1040

10/i4/72

4451

0i!0U
02062
02063
0i!0U
02065
02070
0211171
111201 iLl
1i!073
lUlU
1IJ221 7 5

1030
1031
lU2

PALS-V"

07&00

Sir/APT]
SWAPi!
SWAPl
SWAPT4
SWAPi!
SWAPi!
SWPFL.O

ISI

ISZ

DCA
JMP

,+5

SWPL.UP, COF 00
1'D
DCA t

ISZ

TAU

DCA
SWPFL.O, HLT

SWAPT!
SwAPT4
SWAPT4
SWU'T4(, -"'?
SWAPT 2--

•

IOS/8 BASIC EDlTO/(

107&

1077
1078

1079
1080
1081
lIIJ82
108]

02150
02151
02152
02153
0iH54
02155
0215&
eilS?

1085
lIIJa6

02160
0i!16t
021 &i!

1087
1088
108'

02161
02164
02165
02161:1

10'0
10'1
1092
10'3
lIIJ94
1895
10"

0ll.7

0217111

140!)
3003
101114
3405

TAO 1

OCA
TAO
DCA I
lSZ

i!011JS

5341
Ual

JHP

CO' 00

100.5

340et
5727
4)4i
4501
4152
5546
011100
4752
554b

0jH71
0Url

1151

liIIiH73

461ft
16QJf/I

02174

PAL6-V7

42·56

TAD

DCA I

JMP I

101eH/7~

d"~i}'1)

SWAPT3
SWAPTl

SWAPT2·

•

PAGE hl-c

,~~

SWAPTl •
SWAPTl

SWPLUP.

SWAPTI
SWAPT4

SWApi!.

BADFIL., 4J42,4501,4752'5546,0

ASI<FN,

4752'554b'0157'42~et'4bl&'1&~0

•

PALS-V7

105/8 BASIC EDIlOH

1097
1098
1099
1100
1101
1102
1103
1104
1105
110&
1107
1108
11n
1110
1111
lUI!
1113

1114
1115
111 Et

111"
1118
1119

lU0
1121
lU2

un
lli!U
lUS

l12Et

1127
1128
lU9

1130
1131
t 132

1134
1135
113&
1117
1138

1140
1141
1142
1143
1144
1145
114Eo
1147
1148
114q

1150
1151

•

0211&
0i! 177
02201

02202
02203
02204
02205
0220&
02207
02iH0

02211
02212
02213
02214
02215
0a2l&

02217
02220
02221

02222
02223
02224
02225
0222&
02227
02230
0illll
02232
02233
02ii!14
02235
0i!2lb
02237
02240
02241
02242
02243
02244
02245
0224&
02247
02250
02251
02252
02253
02254
02ii!55
0225&
02251
02c60
02261
022&2
02263

PAGE 11

22&&
2120

PAGE

220~

02200

Hl/24172

tL. INE+3 IRUNNH ?
TAD I
tL. INE+4
TAO
(-3057
5ZA eL,.A
JMS 1
[HEADING/GIVE A HtAOING
TAO
[LINE+2 ISET UP F AKf. LINE
DCA
TEMP
TAO
[WSSAVE
302b
DCA
PT~
TAD
1123
07771
3024
DCA
TEMPI!
PTR
14a&
TAO I
IMOVE FAKE LINE INTO "LINE"
202b
PTR
lSI
TEMP
3423
DCA I
TEMP
2023
lSI
2024
ISI
TEMPi!
JMP
sall
,-5
2033
ISZ
RUNFI..AG ISET RUN Fl.AG
JMP
522&
GFN
303.1 SAVE,
OCA
RUNFLAG ICLEAR THE ~UN FLAG
105i!
TAO
OEVNUM ISAVE CURRENT DEVICE NUM
DCA
OL.DOEV IINCASE WE CHANGE
HZ!
., iU!l1 GFN,
CLA lAC
ISET SAVFLAG
JMS I
4535
~GETFN
IGET THE DEV:/IIAME.EX
TAD
12&:;
XNAME
ISET UP ENTER
DCA
32lD
SAV8LK IPOINTER TO FIL.E NAME
1052
TAO
DEVNUM IGET DEVICE NUM~ER
elF
&21ii!
10
USb
JMS I
0200
IENTER FILE
0003
3
ISTARTING BL.OCK GOES HERt.
000'" SAV8l.K,
0000
0
ISIZE GOES HE~E
JMP
577b'
IOERR
ToAD
123~
SAVBI.K ;PUT BL.OCK NUMBER
377~'
DCA
WRBL.OI< /INTO WRITE
TAD
SAV~LK+l/PUT SIZE
li'!37
3774'
DCA
OU5IZE ISOMEwHt.RE TOO
DCA
12&&
OUI..E.N
IZERO Bl.OCK COUNT
elF
6212
10
445b
JMS I
0200
IOUMP USR
1'551/1
154(
1171
7&41d
454&
UTe
3023
113&

RuN,

TAD I

0~1l

4555
4555
103$
377c ~
&212

us!:!

JMS I
JMS
JMS I
TAO
DCA
elF
JMS I

001'"

4773'

1052
&212
445b

TAO
elF
JMS I

[SWAP
lAND NOw 058
PUTFIL 100 THE SAVE
[SWAP
IGET 058
RUNI'LAG ISt.T NO SWAP BIT IF RUN
774&
IGt.T THE USR
10
07700

DEVNUM
10

IGET DEvICE NUMdER

0211Hl

ICL.OSE THE FIL.E

•

PAL.8 .. V7

105/8 BASIC EDITOR

1152
11 '53
1154
1155
115&
1151
1158
l1Sq
1160
11&1
11&2
11&3
11&4
11ft5
116&

11'-1
11&8
1Uq
1170
t 111
l11i!
1113

1114

1175
117&
1111

1178

1180
1181
1182

022&4
022&5
022&&
022&7
02270
02211
02;!? 2
02213
022714
02275
0221&
02277
02100
02301
02302
02303
0i!304
02305
0230&
02301
0231111
0i!] 1 \
0i!31l
02313
0Z311
0i!315
0Z3U
IIIi! 31 7
0H2"
1n321
02322

1187
1188

02323
02324
02325
02326
0ii!327
02330

1191'/J
1191
Uq2
UQ3

02332
l'/Jel311
02334
023]5

1183
1184
u85
1161:1

un1

1191.1

0211~

llQS

11123]1
02]40
02341
02342
02343
02344
0HI.I5
0214b
02347
0235r.1
023'i!
1112352

119~

11 Q7
1198
119q

1200
1201
1202
1203
1204
1205
120'"

0004
0041 )(NAME,
0001d OUL.EPII,
517&'
1IIlH

1IIl5~

1&5111
5314
1321
3I/l5i
1104
3310
1052
ft211!
U5ft
11'001
0000 OEVN,
571&'
3051
ft21i
445ft
0011
4555
5S5)
0011'0

•

PAGE \1-1

NAMt

JMP
TAD

ISIZE
IDEJeR
RUNfLAG IWAS IT A RUN 1

SlA eL.A

1&41d
5171'
1321
1041

t3l1d

10/24172

IYES
OORUN
JMP
OLDOEV lIS OLD DEVICE
TAO
ITI'tE SAME AS
CIA
TAD
DEVNU'" ITI'tE NEw ONE 11
SNA CLl
MNOLOK IYES, THE HANDLER IS OK
JMP
OL.DDEV I~ESTORE DEVICE NUMBER
TAD
OEVNUM
DCA
[HANOl.R.l
TAO
ISET UP HANDLER LOAU AODR
OEVN
DCA
DEVNUM
TAD
elF
10
Oi!0111
JMS I
1

0
JMP
TAO
DCA
MNOLOK, CIF
JMS I
11

IOERR
OE:VN
OEVHAN
10
0200

IRESET THE HANDL.ER ADDRESS
IGET RID OF TI'tE USR

IREMOVE 058 AGAIN
[SWAP
JMS 1
[CMODONE
JMP I
OLOOEV, 0
IFINO A LINE
FINOL.N, 0
I'/J 00 1/:1
[TXT AREA
TAD
1154
TEMP
DCA
30U
ICDMPARE THE NUMBER OF
TEMP
1n] SEARCH, TAO
ITHIS LINE WITH THE SPOT
PTR
DCA
3026
lIN THE TEXT AREA.
TEMP
TAD I
1423
07701
TAO
110"3
SNA
7450
FIIIIDL.N INEW L.INE GOES AT EOF
JMP I
S7ii!
077
TAD
11221
CLL. CIA
7141
LINENO
TAD
11/135
SNA
7450
SAMElST
JMP
531.11
SNL CLA
7&211)
FIIliDLIII IIIIISEHT NEw LIlliE
JMP I
S7U
TE.MP
ISZ
2023
SKI'
1410
(FINCR
JMS I
1.15&11'1
11F ITS G~EATER KEEP SEARCHIN6.
[PASS
4534 CONTIN, JMS I
SEARCH
JMP
5325
IFIRST HALF OF LIPIIE NUM SAME
TEMP
2023 SAMElST,ISZ
5KP
1I.IlIZI
(F INCR
JMS I
45&1il
TEMP
TAD I
1425

•

105/8 BASIC EDITOR

1207
1208
121119

1210
1ill
1212

1213
1 i! 14&

1215
121&
1211
1218

•

PAL.S"V1

7141
103b

eLl. CIA

TAD

I.INENO+l

eU5S

74S[d

0235t1
02357
023&0
0i!3ls!
1112362

5l&~

SN"
JMP

SAMt2NO

1112353
02354

U3ls3

02364
023&5
U3U

7U'"
5}45
4S31
104113

3026
5122
4534

5722

P.GE 11 .. 2

l01C!417 2

ICHECK

SECO~[)

l~tPLACe

HAI.F

ULD WITH N~W

SZL. tLA

JMP
JMS I

TAD
PtA

JHP I
SAME2NO,JMS I
JMP I

CONTIN
tr-OU:~

TfMP
FlTR

FINOl.fII

IINSERT NEW LINE

tPASS

FINOLN

•

·/05/8

BASIC EOllOH

121q

212371

li!20

21~372

1221
12;!2

02373
02374
02315
02376
212377

1223
1~l4

12i!5
lUI>

lilT
1i2B
121'9
12J0
lill
1232
U33
lU4
1215
1236

1218
1239
12421
U41
1242
1243
12U
1245
1246
U41
1248
1249
12521
U'51
1252
US]
1254
1255
1256
125T
1258
1259
U60
1261
1262
1263

024210
024211
1!I2421C!
QJi401
0i41114
02405
0i!4216
0241117
U4U
I1IUll

02412
0i!4l]
0i!414
rlli!415
02416
0i!4l '7
02420
UUI
02422
02423
U424
02425
212426
02421
212430
02431
0i!412
U4H
02434
02435
el4U
02431
02440
212441
0244i

021.143
02444

1264

02445

1265
12&&
12&1
1268
1269

0244&
02447
212450
02451

li!10

1211
1272
1273

0i452

02453
02454
021.155
021.15&

PAI.8-V1

10/24172

•

PAI,j~

1 i!

i!40k'J
7746
2210"
1.111

221&4
2715
4nl
240"
1377
3eu
6211
US1
l4U
TIi!6
l4U

OORUN,

~CA

ural

1776'
6211
3410
104!;
34111'
1046
3410
1047
l4lt/l
1050

3410
6201
4315
62 I!l1
24210

&iH1
1&00
6213
431!;
6201
44210

PAGE
TAD

RUNOO,

COF
10
TAO
OEVHAN ISAVE DEVICE HANOLEH ADDRESS (OSK;)
DCA I
XU
ISAVE DEVICE NUM8ER
CLL CMI. RTI.
DCA I
X10
COF
TAO
SAVBLK ISAVE STARTING SLOCK
COF
10
DCA I
Xl0
FNAME
UO
ISolVE FIL.E NAME
DCA I
XU
TAD
FNAME+l
DCA I
Xl0
FNAME+i
TAD
DCA I
X10
TAD
FNAME+3
DCA I
X11/1
COF
JMS
XMOVE
IMOVE THIS PAGE INTO FIELD 1
COF
OORUN
COF
10
-200
COF CIF 10
IGO TO THE FIELO ONE COpy
XMOVE
JMS
IMOVE THE HANDLER INTO FIEL.D
COF
HANOLR

6211

COif

74210
1'715'

.. 400

Ji4S

(INFO+l1/SET UP SOME OF INFO HI.OCK

TAD

DCA
620i
CIF
4714JMS
37210
8CSIn.
0000
0
0000 BCBI.OK, 0
5j!7J
JMP
U1 )
JMS
COF
6211
4400
HANOLR
&201
COF

1Iil

INFO+1
8C8LOK

IGET START OF SCOMP.SV

1&07

IRE AD

wHUPS
XMQVE

IMOVE SACK THE

HANOLE~

IOPEN THE

FILe

74010

-400

eLA lAC
JMS
200
3

THE COMPILtR

lIil

7201
4773'
0003

T~MP

•

PAL.S .. V7

IOS/8 BASIC EDITOR

1274
1275
127.,
1211
1218
1219
-1280
1281
12U
1283
1284

1285
ta8&

1288
1289

1290
U91
1292
1293
U94
1295
129&
1297
1298
U99

131'/10
1301
131'/12
111'/13
1304
13215
13216
1307
1308
1309
1310
Ull
U12
1313
1114
1115
1316
1317
1318
1319

1320
13411
1322
1323
1324
1325
132&
1327
1328

•

02457
024&0
024&1
024&2
024&3
024&4
0i!4&5
0ii!46fl
024&7
02410
0i!411
02412
U413
1112414
0i!415
0241&
02471
02500
I'/IZ 51'/11
U51212
02503
U504
02505
0251'/16
1'112501
1ili510
USll
1'112512
0i51l

0i!S14

1'/Ii!515
IIIC!SU
02511
1'/12520
.1112521
1'/12522
02523
02524
02525
02526
02527
02530
m2531
US32
02533
02534
02515
0253&

2541
0001lJ

31U'

12&1cl
3777t

43i!11

13&S
4]1'/17
13&4
4307
&041
511'/1J
&203
5775'
1'/101'/10 TTVO,
6041
5310
&04&
121'/11/1
5701
0000 XMoVE,
6214
13&3
334rd
4343
3331
43U
3342
4343
3333
140~

1742
741'/1~

3Ui!
214i:!
234J

0254m
02541
02542

5U1
7402
571)
00010:'1

02543

00016
171!;

0~5J7

02544

WHUPS,

4301
13U

434j
J]'U

1~-1

111

477l'
0013
1251

13&1

PAGE

TMPBL.K, TMPfIL.

S21:S

3771'
&iU
5770'

10/24172

JMP
WHUPS
JMS
IR~SET SYSTeM TABL.ES
2ld0
IANO ~EMO~E TE~TATlvE FIL.ES
13
TAD
TMPBL.K ISAVE ITS START
DCA
INFO+10
TAD
TMP6L.K+l
DCA
INFO.11 lAND ITS MAX L.ENGTH
7b44
IKILL R SwITCH
DCA
CIF COf
JMP
BC6t.GN IGO START THE COMPILER
IPRlNT SY ERROR
TAD
( 123
JMS
TTVO
TAO
(131
JMS
TTVO
(15
TAD
JMS
TTVO

TAD

( H!

JMS
TTVO
fSF
JMP
,-I
CDF CIF
JMP
7&05
0
TSF
JMP
0"1
TLS
CL.A
JMP I
TTVD
0
RDF
TAO
(6203
DCA
MOVRTN
JMS
GMOVE
DCA
MFFLO
JMS
GMOvE
DCA
MFPTR
JMS
GMOVE
DCA
MTF L.C
JMS
GMOVE
OCA
MCNT
MFFL.D, HL.T
TAO I
MFPTR
MTFI..O, HLT
MFPTR
DCA I
MFPTR
ISZ
ISZ
MCNT
JMP
MHLD
MOVRTN, HLT
JMP I
)(MOvE
MFPTR, 0
HCNT.
GMOVE, 0
)(MOVE
TAD I

IWAIT FOR FL.AG
IRETURN TO 058

IGET CALL.ING FIELD
IPLUS CIF COF 0
IFOR RETURN
IGET FROM FIEL.D
IGt:T ADDRESS
IGET TO FIEL.D
IGET COUNT
IMOVE IT

•

IGET ARG FO~ MOllE

•

105/8 BASIC EDITOH
13lq

1330
1331
1332
1333
1334

02545
0254&
02541
02550

PA~8.V7

ISZ
JMP I

2l1S
5741
0i!! 01

2311

12li!551

1!Jl0f11

02552

2415

TMPFI~,

10/24/72

lCMOVE

GMOVF.
'1~~NAME BASIC.TM

•

PAGE 12-2

•

105/8 BASIC EDITOW

1335
1336

02S63
02564

620,S

1331

1212565

121013

1338
1339
13 4 0
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1]54
1355
135&
1357
1358
1359
1360
1361
1362
1363
1364
1365
136111
13&7
13U
1369
1370

02566
025&1
02570
02571
02572
02573
02574
02575
02516

0131
012's

1371

1372
1373
1374
1315
131&
1317
1318
1319

1380
1381
1382
1383
13841

1385
1386
1387
1388

•

1389

0~577

0CU0
02&01
02602
02603
02U4
02&05
02606
121i!607
02610
0211111
02612
02613
02614
0iUS
02&16
lIIillll1
0211120
0211121
02&22
02623
0211124
0211125
0262111
02621
026 J!/l
02631
02612
02633
o iHIl 4
02U5
0263111
02&37
02&40
02&41
02642
11126413
02044
02&45
02&4&
02&47
02&50

PAL8-V7

10/24172

PAGE 1,S

0~11i!

70"'1
7644
7614
0201d
7U7
7US
2236
761S
2600
0001e)
1034
164~

5211
fIQIll

5204
603&

0061!
5U0
2360
5236
1010
3360

1140
302'
1357
3236
455)
134]
745~

5321e)
701111

4451
0200
4000
1/101/1'"
5320
223~

4555
740~

5262
5251
1357

32]0
1421
2021
0124
7llc
701c
]023

GETCH,

PAGE
0
TAO
SZA elA

JMP
KSF
JMP
KR6
AND
JMP I
FILEIN, ISZ
JMP
TAD
DCA
TAD
DCA
T,AD
DCA
JMS I
TAO
SNA
JMP
tAC
DCA
JM5 I
200
051(BI.IF
ROBI.OK, 0
JMP
lSZ
JM5 I
NOREAD, HLT
JMP
JMP
INCHR3, TAO
DCA
TAO I

ISZ

AND
ClL RlR

IGET A C~ARACTER FROM THE TTY
OLDFLAG IINpUT FROM A FlU 1
FILEIN

IYES

,-1
0177

Gt:TCH
COUNT
IANYTHING IN BUFFER 1
NOREAD IVES, NO READ
0720121
ISfT BUFFER COUNT
COUNT
[OSKBUF ISET BUFFER POINHR
RDPTR
ROJMP
IRESET JUMP
NOREAO
[SWAP
IGET 058
RDSIZE: IANy ROOM LEFT ?
INfRR

IBAO END OF IFILE

RDSI ZE
DEVIUN

INERR
ROBLOK
[SWAP
INCHR1
Y",CHR2
RDJMP
NOREAO
ROPTR
R[)PTR
074130

IREAO NEXT SLOCK

IBUMP BI.OCK NUMBER
IAWAV WITH 058
13111 UNPACK JUMP
IRESET SwITCH
/r,ET LOw 4 BITS
ItiUMP POINTER
IMASK IT
ISHIFT ~IGHT /,j

IHR

DCA

TEMP

ISAVE

•

105/8

tUSIC EDITO~

139121
1391
1392
lH3
1394

02&S1
02&52
02&53
02&514
1112&55
02&5&
r/Ii&S7

1395

139&
1397
13 9 8
1399

141/1121
1401
141112
1403

1404
141115
140&
141117
1408

urn

1410
1411
1412
1413
1414

1415
14U
1417
1418
1419

142121
14il
1422
lAll
IU4

nUI2l

0U&1
0U&2
02&"3
0nu
I1JU65

0i&&"

02""7
02&70
02671
02"2
02673
iii&?'I
02675

111267ft
02671
02700
02701
02102
02703
11J271114
02105
0210&
0ii!107
02711/1
UTI1
02112

1420
01214
102l

711 i!
10U
52(,4
1021
3U0
Z0Z1
1421
223ft
00&iI!
111&
745i1
527i
10"b
5&0ta

3034
103i
7650
5551
303i
1371
3010
1410
3Q!4!)
1410
304"
t4U
3047
1410
105~

1425

02114

S!)SJ
.31/150
2025
5334

lU~

0i115
02116
02717

"212
USb
0011

02720
02721
U722
0272J
02724

3034
4555
457"
02 1fti!
1)556

1426
14il1
lU8
14.30
1431
t432
t433
1414
1435
143ft
1431

1438
14.39
1440
1441

02713

02725

l1S4

02726
027027
02130
02731
02112

45"~

02733

302J
11Se!
H41!

1442
1443

02134

14"4

02735

3031
]0410
4533

'7lU

PAl.8-V7
TAO I
"NO

IWTMP

TAO
UD

JMP I
ENDOLD, CCA

SNA~LA

JMP I
DCA

TAD

DCA
TAO I
DC"
TAD I
DCA
TAD I
DCA
TAO I

DC"
JMP I
OL08AO, OCA

ISI

JMP

lOEHR,
INEHRI(, elF
JMS I
DUERR,
INERA,

•

PAGE 13-1

IGtT HIGH 4 BITS

0740121

Tt.MP
TAD
Cl..l RTR
RTR
JMP
ANolT1
RDPTR
INCHR2, UO
DCA
RDTMP
AOPTA
ISI
RDPTR
INCHR1, TAD I
NORElO
lSI
AN01H, AND
0177
SNA
JMP

10/241T~

0774&

ICOMBINt:: THEM
ISHIFT ijIGHT 4
IGO FINISH
IS"VE ADOR OF FIRST WORI)
IBUMP POINTER
IGET NEXT CHAR
IBUMP SWITCH
IMASK 7 BITS
ICHECK FOR .. z

ENDOlD IEOF
I~ESTORE CHAR
032
GETCH
OLDFLAG IKILL. OI..D Fl.AG
CHNfLAG IWAS IT A RETURN FROM RUN ?
tCMODONE/NO, JUST AN OLD COMMAND
CHNFLAG IKILl rLAG
(INFD-41&4
)(10
IPICK UP NAME FROM INFO BI..OCK
I(WHICH IS SWAPPED OUT)
xu
FNAME

FNAME+l
Xl0
FNAME+2
1(10

FNAME+.3
[CMOOONE/OONE wITH RETURN
FNAME+3 ITRY WITHOUT EXT
TEMP
lOR HAVE wE ALREADY ?
OI..OTRY IND, NOT YET
HI
0200

IDISMISS USR

DCA
OI.OFl.AG I~ILL OLD STATUS
JMS I
(SWAP
lOUT wITH OS8
(TYPE
JMS 1
IPRINT MESSAGE
BAOFII..
JMP I
[MAINLUP
OLD,
TAO
rTXTARE"/SCRATCH FII..E
[SETEOF
JMS I
DCA
EOFLIN IZERD 1.."5T lIfliE NUM
DCA
EDFLIN+1
[GETFN
IGET FII..E NAME
JMS I
ISET RETRY COUNT
ell CMA IUl
[lCA
Tt.MP
[fNAMt IPOINTE~ TO FIlt NAME
OL.OTRY, TAD
DCA
S~
IINTO LOOKUP CALL

•

PAI..S-V7

105/8 BASIC EDITOR

1145
1U&
1147
1148
1U~

1450
1451
1452
145]
1454

1455
145&
14'57
1458
145CJ
lU0
1461
14ft2
14&3
1464
14&5
14&6
1"'1
14U

un
1410
1411
141i!
1413
1474
1475

147&
1471

•

027]&
02137
021'10

02741
02142
02743
0i744
02145
0274&
02747
02750
02751
02752
0i!153
02754
02155
0215&
02751
027&0
02761
021&2
02761
02n4
021&5
U16&
027&1
0C!710
02771
02172
02713
02774
1U775
0277&

105.!
&212
445&
0002
000fQ
00014
5312
134i!
7450
23U
323i!
7201

3034
1240
33&1/1
4555
555b
5211
000111
000f11
337b
6214
l111d
3314
1120

371b
57'1
0000
137"

3021

&a0t

5171
5000

58,

ROSIZE,

10/24172

PAGE 13"2

DEVICE NUM~ER

TAD

DEVNUM

IG~T

elF
JMS I
2

H!
C)i00

II..OOKUP FILE

JMP
""TAD

QI.08AO
58

1ST ART GOES HER~
IS IZE GOE S MERE
II:UD FIL.E
IMovE BIoOCI(

SNA

ROSIZE ISET COUNT TO 41495 IF NOT O.A.
15Z
DCA
RDSIoOK
15ET SWITCH
CLA UC
DCA
OL.DFLAG IINPUT COMING FROM FII..E
ISET COUNT TO INlT ULlZE READ
CIoA eMA
DCA
COUNT
[SWAP
IMOVE OS8
JMS I
JMP 1
tMAINLUP/DO 01..0
JMP
NOREAD+l

RDJMP,
COUNT, 0
SETEDF, ra
DCA
ROF
TAD
DCA

TAD

EOFAOR
Ob201
EOFFLD
077

EOFADR
DCA I
JMP I
SETEOF
GETEOF, 0
EOFADR
TAD
TEMP
DCA
EOFFLD, COF
JMP I
GETEOf
EOFAOR, UUNEA

ISET NEill EOF
ISAVE ADOR
IGET FIEI..D
ISAVE IT
ISTORE EOF
IRETRIEVE EOF INFO
IFIRST ADOR
/THEN THE FIELD

•

•
I

105/8

aAsrc EOITO~

1418
14H
1480
1481
148i!
1483
1484
1485
ta8&
1481
1488
1489
14'10
1491
10'2
14193
1494
1495
149&
14191
1498
1499
1500
1501
1502
1503
1514
1505
150&
1507
151118
15n
1510
1511
1512
1513
1514
1515
1516
1511
1518
1519
1520

02711

PALS-V7

34i!il:l

PAGt.

30f1llll
0lflll2lfll

fIlfll0~

1U001
03002
m0n
03004
03005
0300&
03001
03010
03011
01012
!/IJ0ll
n014
03015
0301b
01011
030Z0

001/10
010:;
U54

LINE.
WSNAME,

4i&4
5&!U

1110
U011J
52iH

flail

1201
3771'
UI1l1
477b
00l11J

START,

eA
10

0J0&l

oIIJ PhI

nus

IFETCH USR

~~s

143143&
UU1
0lr44r4
03041
!/IJr44i!
01043
1U044
01045
1U04&
1ZIl047

INO SWAP

J~S

030i!&
0311Ji!1
01010
UUl
0.J213t!
03033
1lIl034

lIT WAS RAN

C ·F

elF

!UI1Ji!S

TELETYPE LINE ~UFFER.

3343

4715
0011
&04&
4300

UUt!
f/J]U3
f/J]0 i! 4

ITM~

•

PAGE 11.1

fIl'0'0145'b454'3343'42b4'5~44'1770;b~00

Uli!

nUl

10121.1172

IRESET SYSTEM TABLES

ISET TTY FLAG
GETOn ISET UP TITLE
JMS
CHNFLAG ITELL ABOUT RETURN FROM RUN
lSZ
2!Ui
IREAD IN 01.0 WORK SPACE
JMP
OLD
51H'
U4& RBAUC, TLS
TAD
017
l1U
DCA I
tTXT AREA
3554
JMS
GETOAT ISET UP TITI.E
4300
IL.OOK UP SOME SAVE FIL.ES
lIll
1411 FINDSV, TAO I
SNA
7450
IGO FIND BASIC1uF
JMP
I.UaUF
5254
DCA
lClC xx SV ISAVE POINTER TO NAME
32163
CL ... lAC
1201
elF
e.iB i!
10
(200
JMS 1
471"5
2
00011!
0000 xxosv, 1/1
III
014140
NG
JMP
5213
lAC
7001
COF
10
6211
IOIl()1 S v
TAD
uu
ISAVE BLOCK PLUS
DCA I
xu
34111J
lIN INFO AREA
COF
&a I/ll
JMP
FINDSV
523J
IFINO BASIC.UF
1201 LuaUF, CLA UC
CIF
10
&21C!
JMS I
(200
411:;
00011!
2
8UFN
3333

lSi!!

01050

1522
1523
1521.1
ISiS
152b
15i1
lSiS
15iq
1530
1531

03051
03052
03053
031454
03055
03056
03057
030&0
0U&i

52&~

1532

030&3

lC!&1t:I

JMP
TAD

1+3
.-3

10K IF- MISSING

•

108/8 BAS I C ED ITOI'!

1533
1534
1'H5
153&
ISH
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
155121
1551
1552
1553
1554
1555
1556

1557'
1558
1559
1560

15&1
1562
1563
1564
1565
1566

15117
15&8
15&9
1570
1571
157i!
1573
1574
1575
157&
1577
1578
1579
158111

1581

•

03064
03065
0l06f.

030'"

03070
03071
03072
11132173
03074

03075
0307&
0l1lJ17

1213100
1213101
03102
03103
03104
IUlI'IJ5

121310&
0]107
I/IlI111J
03111

03112
03113
03114
03115

0311&
1/13117
03120
1/13121
0312i
03123
nU4
03125
03Uts

03U!7
03130
03131
03132
03133
03134
03135
0313&
03117

03140
rU14!
03142

03143
03144

PALti-V7

10/~4172

PAGE lu-l

7001
6211

lAC
ISAVE BI.OCK +1
COF
lWl
riCA
:UU
leU
&201
COF
7201
CLA lAC
ITY~E WITH NO CARRIAGt FiETURN
457b
JMS I
[TVPE
1"01.0 OR NEw.· "
OLOIliEw
3350
4'55~
JMS I
[SWAP
577.P
JMP
MAINLUP
4S7b NG,
JMS I
[TVPE
IPART OF SYSTEM MISSIIliG
3331
MISING
SHiP
JMP
7605
0000 GETDAT, 0
IPUT OS8 DATE INTO THE TITLE
6i! 11
COF
10
TAO
1&&&
1711 '
IGET DATE WORD
621211
COF
1024
DCA
TE.MP2
ISAVE IT
1024
TAD
TEMP2
7450
SNA
5700
JMP I
GETDAT INa DATE
AND
0124
07400
IGET MONTH
110b
CLL IlTL
ISHIFT SOME
70061
RTL
700b
RTl.
13n
TAO
(MONTHS-3
3012
DCA
X12
1367
TAD
COATE-I ISET UP POINTER TO DATE
DCA
1(13
3013
1024
TAO
TEMPi!
IGET DAY
Uli!
RTR
RAR
7011/1
IIJU0
AND
031
13&61
TAD
(NUMS .. 1 IGET NUMBERS
DCA
302.5
TEMP
1423
TAD I
TEMP
341J
DCA I
lC13
IINTO DATE
141~
TAD I
IGET MONTH CHARS
Xl2
341l
1(13
DCA I
TAD I
1412
lC12
]41J
DCA I
1(13
1024
TAD
IGET VEAR
TEMP2
(7
03&~
AND
13&4
TAD
C21
7Ub
Cl.1. RTI.
100b
HTL
700b
RTL.
201.5
lSZ
)(13
ITHE WORD WITH -7 IS THt:RE
1(13
3413
DCA I
ISTORe LAST OIGIT OF YEAR
5700
JMP I
Gt.TDAT

•

105/8

BASIC fOITON

1582
1583
1584
1585
158(1
1581
1588

031&4
031&5
0l1t>&
0311.:11
1211110
03171
031" i
03113
03114
1111115
031'76
031H

158~

1590
1591
1592
1593
1594
1595
159ft
1591
1598
1599
lU0
1601
161212
1603
11104

1605
160&
1601
lU8
1609
1&10
lUI
1612
1613
IU4
1615
1616
lfltl
1618
lUll

1&20
16U
11122
1623
lU4
lU5

tU6

1627
tU8
lU9

1&30
t&31
1632
1&33
1&34
1... 35
163&"

03223
03224
03225
01226
ali21
03230
mill
1/13iJ2
niH

03i34
03i!35
0323&
03131
03240
03i!41
03242
03243
01244

03245

101C!~172

•

~Ar;E

0021
00P!1
3221
1324

3115
1&&&
1&1115
aU4
272;
020"
H00
H46
3 iHlI 0
l/I]i00 1&5oS
nUl 4251
0l20i! 1641
nlflll 4643
03illl4 1656
l/Ilil/l5 4ii!U
03206 l&4i
01207 62U
03210 1656
03211 421i
03212 1651
Uil) 6651
032U 1651
012lS &&55
03216 1641
0321'7 &&50
03220 if,64
U22l 4Ul
nil2

PAl,8-V1

PAGE
MONTHS, 1653,4257

I-JAN

164TJ4Ul

I-FEB

1&56,4263

I .. MAR

1&42,62&3

I-APR

1656,4212

I-MAY

1653,6651

I-JUN

1653,&&55

I .. JUL

1&42,6650

I-AUG

1664,4&61

I-SEP

lft&0J4.\!Ul5

I-OCT

1&57,b061

I-NOV

1645'4&44

I-OEC

lMId

44.,5

1651
&067
1&45
4U'4
2122
i!12J
2U4

NUMS,

2122'2123'2124'2125'2126'212 7 ,2130'2131'2132

21i!~

212&
2121
2130
i! 131

2132
2i21
222it
2223
~22~

0324~

2225
222&

03247

221.1

03250
03c51

tJ231

2231d

2221'2222'2223'2224,2225'222&,2227'2230'2231

•

IOS/8 BASIC EOITOk

Ud7
1&38
1619
U,40

1&41
1&4i!
1&43
lhU

11>45
11.046

1&47
1&48
1&1019
lU0
1651
1652
165)
1654
1655
lUft

1651
1658
1659
lU0
1661
16.2
16U
lU4
lU5
lU6
1667
1668
1669
1670
1&71
1672
1673
1(,74
1615
l&h
1&17
1678
1679
1680
a81
1&82
1683
1684
lMIS
1&8&

1687
1688

1&8q
1&q0
1&91

•

03252
03i5.5

03254
03&'55
03i5&
03i57
032&0

03i!&1
0321>2
032&3
032&4
03265
03266
0li67
03270
03211
n272
m2n
03i74
(1]275
0321&
0U17
fIl3300
03301
03302
03303
03304

03305
03306
03307
03310
03311
0BIZ
03313
03314
03315
0331E1
03317
0H20
03321
03322
03323
03324
03325
03326
03327
03330
03331
03B2
03333
03334
03335
03336
03337

03340

PAI.8 ... V7

223&!
2321
232£!

10/24/12

PAGt 1!:I .. 1

2232'23~1'232212323J2524'2~25;2j2b;2~27'2330

n2,S

232"
i!3i,5
23i!b
2JiT

ani!
2331

2331'2332'2421'2422

t!J3ii!

2421
241.2
:5271

3303
3307
3313
3317
33U
3321

NAMLST , BASICN
BCCHPN
8LOADN
BRTSN
BAFN
8SFN
BFFN

0000

0201

BASICN, FILENAME BASIC.SY

iJll

0300
2326
0aU

1115

8COMPN, FILENAME 8COMP.SY

2011.10

inft
0214
1701
1!140a
2326

BLOADN, FILENAME BLOAD.SY

oiii! 8RTSN,

2423
01!J00

FILENAME BRTS.SY

232b

0201

BAFN,

FILENAME BASIC.AF

BSFN,

FILENAME BASIC,SF

BFFN,

FILENAME BASIC.FF

BUFN,

FIL~NAMe

MISING,

5257'44e~'5&&1'554e'&54&'01&4112&4'&S4&'5&00

2311

030f1:1
010&

02Q!1
2311
"'300

230ft
0201
2311
0300
0b0b

0201

BASIC.UF

2311
0300
250b

5251
44&1.:1

•

IOS/6 tUSlC
lt192

03341

lftU

03342
03343
033U
03]45
03346
03347
03350
03]51
0335l
03353
03354
03355

lEo'"
lfl95
lt1t&
1 &9'7
lt198
1699
1100

1701
1702
1103
110a
1105
170&
1707
1708
1709
1710
1711

t7U
1713
1714
1715
171&
1111

lua

1119
17i0
1721

1Ui!
1123
1724
1715
tU&
17U

1128
11n
1730
1731
1732
1733
1734
lUS
1716
1737
1138
1139
1740
1741
1742
1743

U35&

Eono"

Pi\L8 .. v7

•

tJAijE 1""2

5&U
554&
~54&

01&4
7264
654(,
StlIII0

574&
7001
&063
0160
5SG!i
161&
0000

OLDNEW, 514&,1001'&063'01&0,5545'1616,0

SS
00133
00134
00135
01313(,
00U7
00140
1110141
00142
00143
00144
00145
1110146
00141
00150
00151
1110152
00153
00154
00155
111015t1
0015'7
00160
081U
00162
00163
1110164
00165
00160

Hllc?~172

0541
0533
lU0
U42

1441

401/HI)
14111
01!141
1215

4401
1332

US!
3Q11"
leU
0044
0045
0&00
S01/JlIJ
ii!11i
0604
0131
0§1t)

l0U
27U
i.3i!2
2771
3000
1200

00161

02016

00170
00171
00172
00173
00174
00175
001 '76
00177

15!U

tUb
3002
035&
0U1k1
0S2S
0471
2600

•

105/8 BASIC EDITOR

AL.T
0234
AND 177 2&&4
ARROW 0315
ASKFN 21&1
ASKNAM 1&75
ASKNM 1713
BADfIL. 21&2
BAFN
3317
BUICN 3277
BCBEGN 1001
BCBL.OK 2445
BCOMPN 3303
eCSIZE 3700
8FFN
Hil
BL.OADN 3307
BRrSN 3313
B&FN
3323
8SKIP 1U&
BUFN
3333
BVE
1101
BVE8VE 1076
CARRET 0334
CHNFL.A 0032
CMOOON 0600
COFI.AG 0031
COMI.UP 1202
C:OMMAN 1200
COMT8L. 1220
CONTIN l!4S
CONY
1270
CORE 011 1013
COUNT 27&0
0356
CRL.'CRSW IT 0547
CTRI.O 15~3
CTRI.OX 1566
DATE
1325
DEli
1641
OEVHAN 0051
OEIIN
2310
DEIINUM 0052
DIGIT 1507
04&3
DIGl
DIG12:5 1214&1
0453
DIG2
OIGa3 0461
0450
DIG3
DIG4
0442
!)IG456 0446
OIG5
0432
01G5& 121440
0421
OIG&
CORUN 2400
OSKBUF 4000
ENOOLO 2672

•

PAI,a-V7

t.QrAOfot 277&
E:.QFFI.O 2771.l
I:.Ofl.IN 0037
I:.lePANO 1000
FDteR

0547

I'II.EIN 2&11
FINeR 1'15&3
fINDL.N 2322
fINDSV 3033
fNAME 0045
FRSTDI 150&
GElCH 2&00
GETDAT 3100
GElEOF 2771
(iETFI!. 1444
GETFN 1&00
GETHAN 1&42
GETL.IN 0200
GETNAM 1724
GETNe 1332
GFN
222&
G,-RET 1542
CiMOVE 2543
HANOLR 4400
HEAD IN 1251
HNOL.OK 2314
IGNORE 0203
INCHRl 2662
INCHR2 2&57
INCHR3 2641
INI:.RR 2720
INERRX 2715
INfO
7604
INSERT 0&4&
LOEHR 2715
ISlEl(T 0264
JMPINS 2110
I.ASTOI 1505
I.UTWD 1010
L.EHTX 152&
I.INE
3kl00
I.INENO 0035
L.INFTX 155(,1
I.IST
1400
L.ISTNH 1411
L.NUIG 040121
L.stLUP 1436
L.UtlUF 3054
L.wHEOF 0727
MAlNLU 0604
MCNT
2543
MFfI..O 2531
MFPTR 2542
MISING 3337
MONTHS 320121

HJIC4/72

MOVE:.
lin .51
MUVf;.FN 1&57
MOVI;.NT ioOHl
MQVL.UP 0743
MOVRTN 2540
MSGAI.T 111b
MSGi:HG 1105
MSGfotDV 1123
M5GTOO 0571
MSGWHA 112l!
MTFL.D 2533
M412l
16&0
NAME
0041
NAMI.Sl 3267
NAMI.UP 1736
NCHARS 0030
NDIGS 00i1
NEW
1763
NG
3075
NOCOMD 0b14
NOEleT 1361
NOfUSR lUS
NOREAO 263&
NORM
113&
NOSKIP 1623
NOTLAS 0&45
NUMOUN 1425
NUMS
3230
NZOIGI 1523
01.0
2725
01.06AO 2712
aI-ODE V e3i1
OI..DFLA 0034
OI.DNE"" 3350
OI..OTRV 2734
OS8RES 3200
OUERR 2720
OULEN 2266
OUSIZE 2111
010
0111
012
0122
0075
013
0131
0115
011.1
121127
017
0072
0177
0062
0056
0200
Oelal

012157

0212
0215
0232
OC?,"S7
02&0
032
03b

0077
12101&
0063

0074
0073
006&
121117

PAGE 15·3
031

011110

04f1lel

012~

0/,171
0&201

0105

0&211

072
07200
07201
O7i.l00

07405

07&1'10
07b07
07&34
071
07100
01701
0170&
07141
07745
01746

0110
0106
00t.7
00H1

0061.1
li'l124
0102
0071
~054

0114
0120
0055
0103
00&5
0101
~121
~11b

21125
07761 00&0
077f14 0061
077&& 0113
07770 0107
01171 0123
07772 0104
01714 0112
PASS
0533
PFCTI.Z 2020
PFL.OOP 2014
PFTf.MP 2030
PH1
2104
PHi!
2101
PH!
2r1l3&
PTR
002b
PTRFL,D ~'4b
PTR2fL 14&7
PUTCH 2~31
PUTF!1. 2000
PUTJMP 2033
RBASlC 3027
HOf31.01< 2632
ROJMP 27'37
RDPfR 012121
RDSIZE 2743
ROTMP 12112120
RENAME 17'54
RIGHT'f 0307
RITEfl( bB
RUN
220~
RUNOO 2432
HUNFLA 0033
SAM!;15 2347
SAME2N 23&5
071&0

•

105/8 BASIC

SAVI.iLK c1!23b
22C!3
SAVE
SAVFl,A \723
2142
aB
StRATt 1131
SEARCH 2325
aETEOF 21&1
0022
SIZE
START 3011
SWAP
21 U
SWAPTI 0U3
IWAPTl 0004
aWAPTl 0005
SWAPT4 0006
aWAPi 2127
SWPFLD 2147
SWPLUP i141
SWPNUM 0053
TeRI.' 05il
00i3
TEMP
TEMPi! 00ilA
TEITCH 13461
TITLE 1312
TI.OOP 047&
TMPBI.K U57
TMPFU. 2541
TMPFLD 0704
TMP2FI. 1037
TOWUD 0025
2S07
TTVO
TTYOUT 05i5
TWDFLD 070&
TWD2FL 1041
TVTARE 5000
TyPE
0471
USEOSK 161&
VERB
0001
YERSON 01011)
WHAT
1215
WHUPS 2473
WRBLOK 20&4
WSNAME 3001'/1
WSSAVE Si42
lIMOVE 2515
ltNAME i!i!&5
leT lTl.E U&S
nn SV 3043
1'/1010
XU
Xl1

XU
X13
)(14
X15
)(1&

1(17

0011

001i!
0013
0014
01'/115

001&
01'/111

EOITO~

ZEROTX 154£1

•

AF
AI.. T
ANIll77
ARROW
ASKFN
A51(NAM
ASKNM
BAOFII..
BAFN
8ASIC
BUICN
BCSEGN
BCBLOK
SCOMP
BCOMPN
BCSIlE
BFFN
8LOAD
SLOADN
BRTS

1&74
128

SRTSN

U53 1&7l1li
1655 1&781\1
858# abC!
1529 1EteU
540* &ie
5]" 835
Ui
205.
125
501\1 84&
1408 1411 1502
149
3&11\1 5&8
12&
751
958
9&5
49t 124
838
5941 fl01
592.
371
&0U
5.2
12011\1 1212
&40
&43
&39
&4U ftft5
641
n4
500
534'
1358 13&1 1459 1463.
21211
314
tll4
169
3&2
223' 228
289
l12
nu
148
293
839
U5' 836
827
832
83U
&1U 1559
8&9
8b7
877
819
833. 387
875
&5. 89" \021 1175 1230 1372
1167 1172. 1174
fib' 886 1120 lUb 1149 11&1 1165
7ft]
1&4
7&7
76&
789.
249
28c!'
C8U
281
250
274'
2811),
i!73
27U
251
2&~:HI
252
264
c69.
c'!5H
253
263.
2SfI

eSFN
BSKIP
BU'N
ByE
"V!BYE
CURET
CIotN'LA
CMDDON
CQFL.AG
COMLUP
COMMAN
COHT8L
CONTIN
CONY
CQREOV
COUNT
CRLF
CRSwn
CTRLO
CTRL.OX

DnE

nEv
DEVHAN
OEVN
OEVNUM
DIGIT
OIG1
OIG123
DIG2
DIG23
DIG]
DIG"
OIG45&
DIGS
DIGS6
OIG&
DORUN
DSKBUF

•

13q5
134
9i1

859
907
l08U
1&54
1331
U50
19.
1259
1&62
1651
18*
165Et
1&&&
165i

a7!ll

131
141111#

137

14b

190.

14U

1~91"

'105.
911rl
1434

91Q.

l&7U

1058 1&14
1&581

1f11S

1bga

lb3b

1~85

Uf,4.
lEl62.

li62
lUi.
l,,&bI\I

1180

14U

\422

b4&

889
1168

l44!;)

254*

1158

22'

le2/. 1249
~78
1023

1032

1362

\374

•

ENOOL.D
EOFAOR
EOFFLO
EOFLlfll

E)CPAND
FDECR
FF
FILEIN
FlNCR
FINOL.N
FINOSV
FNAME
FRSTOI
GnCH
GUO AT
GETEOF
GETFI!.
GETfN
GETHAN
GETLIN
GETNA"
GETNC
GFN
GFRET
GMOVE
HANOLR
HEADIN
HNDI-DK
IGNORE
INCHRI
INCHR2
INCHR3
!NUR
INERRX
INFO
INSERT
IOERR
UTEXT
JMPtNS
LASTOI
LAS TWO
lEFTTX
LINE
LINENO
I-INfTlC
LIST
LISTNH
LNDIG
LSTLUP

LUaU'
LWREOf
MA!NlU
MCNT
MFFLO
MFPTR
MISJNG

1404 1'401.
14&5 1410 1'473
14&8 1475.
55. .382
387
1439
/,lIS

335.
ltt82

147,*

394

USa.
H2
lUI 352
743 1182' 1190
151!J8' 1524
eq9
6U b35
897
1238 1240 lUi liU

5&7

149111
llCJ7

120111
121&

121115

901
1415

90]
1417

9&1

'~~2

li13d

q14

91&
1443

lc!18
908

1419

912
1421

1423

18U

lU9, 1357 1406
1507 1545' 1552
481 1472' 1476
1514. 718
782
CJe4
UU 8CJ3
n&
8181
873
1131\1 143
172
2U
8U
8U
9iSt 939
71119
7ti!
6U' U6
1118 lUi.
803
8tU 821
824
131/18 llU 1312 il14
2U 878 1166 1255
UU fl47
723
1111J14
11&3 117U
11U 15[j1
189
164
1380 1.39\1.
1381 119U
13821
1l6CJ U7& 143U
14i!7t
i!U
J1
12i7 1258
39CJ'
U& 113i 1155
872
165.
1&0
98i! 1[j102 111144.
78U
768
5311
513
804.
770
r.!1 S
317
175
375
119 1100 1101
Il11J~
2&9
2&1
53' 254
]95
454
45&
580
71i
622.
71U
U0
127.
122
C3U iH
lEt3
238
148* 753
1510 1'25.
448.
43&
4';2
3&5. Hi:!
472
il15 lj21 132b.
130Q 1l1fU 1322
illl 1317 1319 1j20
1543 lbQ0.
117
1501
n0
750

Stlb

•

14n.
l4b 1213

135i
llS
398

Uli!

3CJ&

•

)'1

1581
76&
918

800
953

81&
963

811
112.5

984
11440

366

922
951
729

134

858

q38

944

945
713

1327' lHI1I
12&8
20111

204

213

12U

128?

1412

1173

142U

455
148U
271
582

457

458

';)9Q

b8&

718

278
583

28&
585

380

385
1211'8

393

1193

244

270

287

737

51b

607

1435

14bl

1125'

1541

MONTHS
MOVE
MOVEFN
MOVENT
MQVL-UP
MOVRTN
MSGALT
MSGSIG
MSG"DV
MSGTOO
MSGWHA
MTFLD
M4121
NAME
NAMLST
NAMLUP
NCHARS
NDIGS
NEW
NG
NDCOMO
NOEleT
NOFUSA
NOR£AD
NORM
NOSKIP
NOTLAS
NUMDUN
NUMS
NZOIGI
OLD
OLDBAD
OLODEII
DLDFLA
OLDNEw
OLOTR\'
OS8AES
DUERR
OULEN
OUSIZE
010

013
0137
014
017
0177
Oi!llll2l
021211
0212
0215
Dil2
0237

02&0
032

03&
03.

1557 1~9~*
4Skl.
413
89U
4Sa.
4"U ,.71
131217 13lH
!JS:'s.
14c
,44,
535
lU

S5h

111
561'

353.
&06

1313

1.5181

860

533

8~i*
70~

8M)
868
894
930
9t'1
915
929
931
32 165U
104
9381 950
158
1&5
4U 115
113
925
727
&84
857
47#1 114
203
211
1201
798
188
801
UC
959'
1518 1542.
17l.
368
HIS.
b99
857.
848
1359 13&5 1379. 1383 1'100
5&9, 574
571
589
221
8U. 92b
19U
389
735
739.
130
15&5 1619,
797
UU
&12 14361 1503
1423. 1451
1121 U59 1164 118U
3(0)9
205
1~0
52' 153
1539 11399.
1425 1"U1.
211 1050 1053 1056
1025 U.u 1430.
1030 1131 1154'
1026 1\D45. 1136
4D8
784
97* 1.140
445
lI!IbIt e33
85. 818
101' U1
l1U 833
82t1 795 1005
70 829 135& 1401
10. 881
955 1128 tlH
7U He
81* 22&
823
820
8&' 221.1

51*

75.

900
934

902
1153

911

913

188

19(0)

199

208

c40

241

570

588

728

1407

1411

1457

11 HI

1117

11.128

146c
741

135121

809

1151

IUll7

988

8U 302
83M 802
781 11.105

103'
88'

898
933

144
479

31/19

15&4

815

•

0400
0&171

110'
9H

Hid

Ob201

1.10&
349

D&ill
07i

OU00

07201
07400
07405
0761lJ0
D7607
07ft34
071
07100
D7101
0770&
07141
D1745
0774&
D7160
077&1
077&4
0716&
07770
07171
0717i
07174
PUS
PFCTI.Z
PFL.OOP
PFTEMP
PHt
PHi
PH]
PTR

94#

79.
80.
1U
108#
90#
8U

745

?7S

9q0
2ft;,!
lU
980

219

lI1l14

138b

11'11

1553

1034

1060

i99
14&9

30&
1505
057
1188

327

bS0

&54

&94

7\1

779

855

1141

4i&

5i!0

'528

578

i!9S

305

322'

li9

331

333

1201

1217

187
&38
1108

21&

218
b55

220
flbl

373
Elb2

392
ElU

401

b42
1111

1112

\18b

liHS

11'3#

183
10]&

785
1043

97&

1019

1398

13q9

219

77ft

771.1
401
74&
9a&
91i'
983
1490
1375.
13114
411

t "b 1

&53
272
830

US
1109
575
9U
304

geU
987
qCJj

99U

111100 104111.
U01 1031.
1002'
408

PTRFLO
PTR2FL
PUTeH
PUTFIL
PUTJMP
RBASIC
ROBLOK
RDJMP
RDPTR
RDSIZf
RDTMP
RENAME
RIGHTV
RITET)(
RUN
RUNDO
RUNFLA
SAME1S
!lAME2N
SAVSLK
SAVE
SAVFL.A

502

7Hl

,48

,at

'183

ljft~

1001 132
1041
812 1191
69. 185
9U1 434
77# 13ft
89. Sll
105111 ifl2
102. 14PJe
1!119. i55
72. ftcaT
73111 1PJS
q9' llJ
95111 Uti
1I!IU il4i1!
92' U9
29i
9as
9841
991

•

420

17&
1.1&4

4&S

181

974

184

4U. 467
4b9
161
1&9
7&5
989
9911
992
995 1142
999. 111103 1111 II 2
1504.
1377 1455
U8c 14&2'
1J&3 1384 1385
usr", lOS4
Ilfl1 t.S11
40' 1J91d 1397
95i.
Eli4
118
18'1'
jS09.
771
1101d.
&lb
125lt
51' 1117 1119 1144
1195 1.:!0H
1210 li!l7t
1125 1131d# 1133 1135
tl14

111H

845

85kl

891

1105

1044

lH&

115b

12J5
q~7#I.

740

51;

1444

SCR,ATC
SEARCH
SETEOF
SF
SIZE.
START

5&4. bid
l1R5' 1202

SWAP
IWAPTl

449

1~4'1'

1452

50S

5&5

9&0

1437

14&U 1471

42' 37b
1490'
1&58 1&&~
849
540
1179 IJ&&

j79

IUl

4S0

470

701

q31

91.1C,

1&&&
951
1318
10(119

1&70
1020
14&0
1017

1011
1540
1033

104&' 1058

1141

114,5

1432
1010

1037

1039

1041

llIJ10

1035
1038
1011
1059'

1074
10U

1078
1016
11664
10&3

1019
1011
10&5

1080
1012
10&&

1073
1085

1084

239
326
430
524
63&
819
1203

257
330
431
579
&49
822
120&

260
33&
459
58&
&5&
971
1214

2&3
344
461
593
&63
11121&
1389

2&5
345
4&2
594
&81
1113
1392

531
946

703
947

780

789

91.18

llUl

792
111 5

441
443
529
530
442
433
504
S09
1298. 1303
303
310

441
510

41&
51S

487
51&

532

31&1

321

752

1183
315

143&
363

1477
534

150&
&05

1328

1329

Ib78

'In

1083
27t1 1oJ81
i!U 11/11 ~
29. 998
1049 1052
1061 If/11~'
10&9. 1081
&TI 538
294
.501
43' 15i
214
e17
399
H1
480
477
596
595
741
&88
1114 1184
lU4 1442
441 111
804
793
1549 1550
&94,
690
&6U
&45
291* .511
1331
1214# 1279
1274 l,S3U
427
421
484
5061
45' 411
4IJ2
491
1287 1289
194
151
43U1
428
503
S0U
24t 5&4
11~
141
920 143j
1&86
874.
US
30'

1017

SWAPTil!
SWAPT3
SWAPH
SWAPi!
SWPFLD
SWPLUP
SWPNUM
TCRV
TEMP

TEMPi:'!
TUTCH
TITLE
TLOOP
TM
TMPBLK
TMPFIL
TMPFLD
TMP211'L
TOW,ARD

THO

TrYOUT
TWDFLO
TWD2FL
TIC URE
TYPE

UF
USEDSI<
VERS
VE~SON

WHAT
WHUPS
WR8LOK
WSNAME
WSSAVE
XMOVE
lCNAME

1018
101&

10214
1055

1040
10&il

1047
308

11U

179
282
417
501
6f/I3
756
1187
156&
156
935
1573

280
410
486
602
755
1185
1414
120
811
1561

186
323
424
523
6f/I4
810
1198
15&7
418
943

1281
429. 439
527
526
422
432
4IJ7
49&
1291 1293
225
221
446
444
519

448

488

521

959
139
28U 290
1538 1542

973
291

t1*
30
673
&74
60S. 921.l
598
1265 127& 1286*
1024. Ui!~ 1134
1481'
62U. 1107
12/H 1253 126& l3f1lU 1324
1124 115j4j
&45.
&37

•

&44

•

XXXXSV

x10
x11

x12
lIU
U4
US

Xl"

1511 l~lbt
31' li28
1414 l''lb
32' 1~08
3H 1558
3U 1!S&1d
35.
381
814

8lU

... L0133
...L.0134
... L0135
...t.013&
...L0137
... L.rat 40
... L.1'II141
... L.1IJ1 4 2
... LIU4J
.loLl'll 144
... L01 4 5
... L0146
... L.1'II1U
.... LI'II150
.... L.IU 51
.loLl'll 152
.... LIU53
.... L0154
.... L0U5

1213
taU

til! 17

... L015&
... L0157
... LI1l1 U
... L.IU61
.... LIZI16i!
... LI2I 1&l
... LI2Il64
...L01f1S
...L01&&
... L.1'/Jl67
... L0170
... L.0171
...LIIl17i!
... L.01n
... L01 T4
.. L11I175
.... L017f1
... L0171
.... LUT6
.... LU71
... L15U
... L1571
... Ll773
... L1 1 74
... L2371
... L25&3
... L25fo14
... L2S"5
... L2'5&&

U18

12B
Ui0

15&9
l!i68

1511
1570

1241

1243

•

1415

1217

tiill9

152c?

1535

1512

1579

1580

965
143&
1031

1180

14lf11

1422

150ft
1141

1143

1119

136&

920

1433

lS36

1542

\~(j5

3".
3U1

lCl'

ZERaTIC

1521
1231

U23
1107

984
978

144111

1032

1362

cn6

934
924
878
729
723
119

11M,
134
1104
1101
111'110

938

944

72E1

749

751

739
849
143i

973

958
1183
1020

959
957
1460
1435

490

U0111

121115

457
449
198
H0
3H)

51215
743
481
45';)

565

960

1437

718

71'112
&35
5U
SU
540
1318
516

1443

9&4
154111
14&1

533

458

311

3&6
293
221

175
169
1&3
157
141
117
&6I/J
&52
131
120
81&
814
1102
130&

1292
1290
Ii'S8

'Iii!

748
741
215

371
314

c07
737
lq4

225

363

5qq

be6

1111l~

362

b34

221
534

&05

752
flU

•

.&,Li:?5&1
... L2571
.&,L2777
.&,L31&4
... LJ1&5

... Ll16&
.&,L31&7
... Ll 1711J
... L1175
.&,L317f!

•

128&
1227
1412
1575
1574
1565
155q

1557
1ns

1!:J14

1521

14QS

•

IOS/8

•

IOEC-Se-LBASA-A-lA

3
4
5
&
1
8

ICOPYRIGHT, llUe!

IDIGITAL EQUIPMENT COHPORATION
IMAYNARD,MASSACHUSETTS 01754

CJ
10
11

IAUGUST 1CJ, lCJ12
I

IHANK MAURER

12
13
14
17

10130/72

105/8 BASIC COMPILER
I

1
2

15
1&

PALs-va

BASIC COMPILER

0100

I
I
I
I

VERSON·100

PAGE

•

IOS/8 BASIC COMPILEW
18
lq
20

21
22
23

0000&
iH'001

00010

000&
6&35

01")["
7U.s

7325

00011
00012
00013
00014

26
27

011015
01U11&

7117

00011
00020

0000

000i!1
00022

31
12
33
34

35
36

11
38

40
41
42
43
44
45

4&
47
48
4CJ

50
51

00023
00024

000i!5
0002&

Sq
&21
&l

62
63

7774
0000

000111
0000
0000
0000

0000

00034
00035
0003&
00037
00040

00U

00041
00042
00043
011044
00045
00041
00050
00051
00052

0000

00032
00033

0004&

51
58

2511

000111
000111
0000

53
55

1133

rlHII027
00030
00031

52
54

7511
7773

00053

011100
0000
0001
000111
7371

7377

7731
7737

0000
000111
0000
000111
00000000

00014
000111

00054
00055
0005&
00057
00060
00061

0000
0000
0000

000&2

0000
0000
00010

0000
0000

0000

&5
6&

&7
68
&9
70
71
72

•

000&3
000&4
00065

0000

PA~8.V8

USORT, ABORT
VERSO~.
VERS,
INFO-l
XU,
)(11,
NAMLST-t
INFO-S
X12,
BOSINFO-l
X13,
OSTACK, STACKO-l
STACK, STAtU-,
NEXT,
FREE-!
CHRPTR, o
NCMARS,
TEMP,
-4
TEMP2, o
OECPT, o
NOIGlT , o
EXPON, o
TYPE,
SyMBOL, o
o
LEFT,
OLOOP,
NEWOP, I1J
TMPCNT, o
TMPLVL, 3
STMPCT, I1J
STMPLV, 1
STPTR, o
VARCNT, -401

"
"

SVCNT, -401
ACNT,
-41
UCNT,- -41
LOCTRH, o
LOCTRL, I1J
BLOCK, o
I1IFLD, I1J

tuns,

OLSIZE, I!I
A80RTX,
LINEH,
LIPliEL, o
MODE,
o
TYPE 1, I1J
SVM8Ll , III
OLDSTK, o
ARGCNT,
PCRLF,
OACNT,
FORJMP,
NOSN,
COLON,
JAROND, "
IFNREG, III
SSREG1, "
SSREG2, 0

10/3~/72

PAGE 2

IAODR OF ASURT ~OUTINE
IVt:RSION NUMBf~
IAUTO INDf~ REGISTfRS

IOPERAND STACK ~OINTER
IGENERAL STACK POINTER
INEXT FREE LOCATION
IINPUT BUFFER POINTER
ISIZE OF INPUT LINE
ISET 1 IF •
IIliUM DIGITS Rlr.HT OF •
IE~PONENT FOR iliUM CONY
ITVPE OF CURRENT OPERAND
ISVMBOL NUMBER OF CUR. OPERAND
ILEFT SIDE SWITCH
10LD OPERATOR
INEW OPERATOR
ITEMP COUNiER
ITEMP LEVEL
ITEMP COUNT (STRINGS)
IfEMP LEVE~ (STRINGS)
IPOINTER TO S.T. ENT~V
INUMBER OF POSSISLE NUMERIC
IVARIABLES, LITERALS, AND TEMPS
ISAME FOR STRING VARS
IARRAV COUNTER
ISTRING ARRAV COUNT~R
IHIGH OROER LOCATION COUNTER
ILOW ORDER
P
P
1ST ART ~LOCK OF TEMP FILE
IHIGHEST CORE FIELD
1ST ART OF SRTS.5V
INEG. SIZE OF DATA ~IST
1ST ART OF EUITOR
ILINE NUMBER (HIGH)
ILINE NUMBER C~UW)
IINTERPRETER MOOE
ITVPE AFTER JMS GETA1
ISYM * AFTER JMS GETAt
ISTACK SAVER FOR OEf
IARG COUNTER FOR OEF
ICH SWITCH FOR PRINT ~TMT
IAHG COUNT FOR UDEF 5THT
IFOR LOOP JUMP INST~
15TMT NUM~ER PRESENT SWITCH
I: SWITCH FOR GETfN ROUTINE
lEND OF OEF AOOR GOES HER~ "NOIRF.C1LY)
ICONTENTS OF IFN REG
IEXECUTION TIME CONTENTS
IOF THE 55 REGISTORS

•

PAI.S-V8

105/8 BASIC COMPII.EIot
73

14
75
76
77
18
7ff

80
81
8i!
83
84

all

87
88

90
91
92
CJ3
94

95
96
97
98
99
100
101

102
103
104
105
Uti

107

109
110
111
112
113
114
115
lUI

111
118
119
120
121

000&&
00067
00010
00011
00012
00013
0121014
00075
1210076
121012171
00100
00101
0010i!
140103
0011!14
00105
001011
00101
00110
00111
00112
00111
00114
0rIJ 115
0011f>
00111
00120
00121
00U2
00Ul
00U4
00125
0012b
00127
00130

1117

0000
0000
6211
5470
570&
0541
6736
5542
3632
6446
4021
4035
4010
4027
2&00

STKI.VL.,
FINOEX,
SETfI.D,
LUFI.O,

STACKA-l
0
0

COF
JMP I
QERMSG, ERMSG
QLOOSN, I.OOSN
QCHKWO, CHK~D
QMODSET,MDOSET
QSNUM, SNUM
QOUTWRD,OUhRD
QUvECP, SA VEep
QGETC, GETC
QGETCwB,GETCWa
QRESTCP,RESfCP
QEXPR, EXPR
QOUTOPR,OUTOPR

00132
00133

3400
0201
0205
3511
4303
&555
5600
410i
i!400
2201/l
4111
4062
4052
4073
4251
4000
5000
5455
3Ulil
3&1&
333fJ
0400

001]4

0000

00135

0000

WORD.!!,
NAME3,

001 1&
00137
00140
00141
00142
00143

0000
0000

WORD],

ACO,
OP 1,
OPi!,
OPl,
OPO,

00131

lftl/3(0172

•

PAGE 2·1

ISTACK BASE LEVEL
If OR LOOP !IIiOElC
IfI~LO CHANGE RTNt FO~ LUKUP~
IFIELD OF EIliTWV FOk I.UKUP~

SETHI)
ISUBROUTINe POINTERS

QNEWI.IN,NEWLI~

QREMARK,RfMARK
QGETA1, GETA1
QLOAOSS,1.0ADSS
QCHECKC,CHECKC
QGETIIIAM,GETNA'"
QCDMARP, COMUP
QLOOKUP,LOOKUP
QI.UKUP2,LUKUP2
QLOAD, LOAD
QPUSfoI, PUSH
QPOP,
POP
QPUSHO, PUSHO
QSAVAC, SAVAe
Q8ACK1. BACK1
QNUMeER,NUMBE~

QSTRING,STRING
QLETTER, LETTER
QOIGlT, OIGIT
QNOHEGS,NORE:GS
Q400,
400
NAMEl,
WORDI, 0

IVARIABLE o~ FUNCT NAME
13 WORD LITERAL BUFFER

tdME2,

0000
0000
0000
0000

0
21
0
0

IFAC OVERFLOW WO
14 wORD ARG FOR ~NUMB~R"

•

105/8 BASIC COMPIL.EH

122

7&04

lin

124
125

12&

127
128
129
130
131

132

133
134
135
13"
131
138
139
1'0
141
14C!
143
144

145
14&
147
148
149
150
151
15i!
153
154
155

7774

151

•

10/30172

~"'GE

INFOa7&04
IINFORMATION AREA
STARTIIliG BLOCK +1 OF BASIC.SV
IINFO
IINFO+1 STARTItwG BLOCK +1 OF 6COMP.SV
IINFO+2 STARTING BL.OCK +1 OF 131.0AO.SV
IINFO+3 STARTING 81.0CI< +1 OF BRT5.SV
IINFO.4 STARTING BLOCk +1 UF BASIC,AF
IINFO+5 SURTItwG BL.OCK +1 OF BASIC.SF
IINFO+" STARTING 61.0CK +1 OF BASIC.FF
IINFO+7 STARTING BLOCK +1 OF BASIC.UF
I I NFO+ 10 STARTING BLOCK OF BASIC.TM
IINFO+11 SIZE IN BLOCKS OF BASIC.TM
IINFO+12 INPUT MANDLER ENTRV ADDRESS
IIN'O+13 SIZE AND DEVICE NUMBER OF INPUT FlU
IINFO+14 STARTING BL.OCK OF INPUT FILE
IINFO+15 TI-IROUGH
IINFn+C!0 NAME OF WORKSPACE
I
I

lUi!!

3Ui!
1712
751i!1
4400
7000
012ft)
712ft)
11I0U

BOSINFO-7714
EOTsn·l&00
EDTBGN-3012
ERMSGc a l712
EOSTa757rd
INOEV""a4400
I.INf a n00
I.INMAX a 1211l
STACUa7120
STAkSZa""
INBUF.1200

7200

1805 PARAMETER AREA

ISIZE OF BASIC,5V
IRESTART FOR EDITOR
IPOST PROCESSOR E~ROR SwITCH
IUPPER LIMIT FOR SYMBOL TAIjI.E
IINPUT DEVICE HANDLER
II.INE BUFFER
IMAXIMUM HASIC 5TMT
IMAIN STACK
ISIZE OF MAIN STACK
10PERAND STACK DEFINED IN"LI'JE
IINPUT SUFFER

I
I

IFIELD ONE STUFF
I
I

15b

158
159
1&0
1&1
1&2
1&3
1"4
U5
1&&
1&7
1&8
1"9

PAI.8-Va

0000

040f1J·
1031:1
213e!
233i!
2532

i!551:1
25&0
25&i!
25&~

25&&
2570
257i:!

OUBUFae
10UTPUT BUFFEf.I
VARSTa40Ql
IVARIABLE SVMBOL TABL~
SVARSTaVARST+43bISTRING VAR SYMBOL TABLE
ARAVSTaSVARST+1074/ARRAV SYMBOL TABLE
SARVSTaARAYST+200/STRING ARRAY SYMBOL TA61.~
SNUMSaSARVST+200/STMT NUMBER SUCKETS
TEMPS-SNUMh24 INUMtRIC TEMP BUCKET
STEMPSaTEMPS+2 ISTRING TEMP BUCKET
I.ITRl.aSTEMPS+2 INUM€RIC LITERAL BUCKET
SL. HRL -I. ITRL+C! ISTRING LITERAL BUCKET
DATLST-SI.ITRI..2 10ATA LIST
FUNCTN a OATI.ST+2 /FUNCTION LIST
FREE.FUNCTN+2
ISTART OF Ff.ltE CORE

•

105/8 BASIC COMPIL.Efot

170
171
Hi!
173

174

175
lU
117
178
119
180
181
182

183
184
185
18&
181
188
189

190
191
19i!
193

19"
195
19&
191
198
199
iHI0
201
202

203
i04
205
20&
i!07
208
209
i10
211
212
2ll

214
21S
21&
211

PAL,8-V8

I
I
I

0000
040Vl
lrUI0
1400
2000
241/HI!
32100
3400
4000

INTERPRETER OPCOOES
MtMOHY REFERENC~ SET
FAOoll1l12100
FSUBII/I4~0

FMPY I 1000
FOlYI1400
FL,DAI20G!10
F5TU2400
FISUBI3000
nOlVl3400
L551-4000
L.SSc 1 U00
JEOFIS400
L.OAOSI\II&000

4400

5400
&00Vl
I

512100
50211
S00.!
501/ll
5004
512105
500b
52101
5011/1
I
I

&400
&44f11

&500
&540
&&00
&fl40
&100
fl7411l
I
I

000111
121400
1001/l
2000
241210
640111
u,,~

&S01t:1
&640
U00

218

I
I

JOC CL.ASS
JSUel5000
JUMPl5001
JGEIS00i
JNEI5003
JGTI5004
JL.TIS01215
JEQI500b
JLEI50liH
JFORII5111 11/1
ARRAY CL.ASS
AlSUSI&400
AFAoOI&4Q0
AFSUI3.&50fl1
AFMPYlfl540
AFOIY-&60f1l
AFL.OA -ftfl40
AFSUIUI/I0
AIOIVI&140
STRllliG CLASS
5CDNI,AOO
SCOMPIFS\JB
SREAOIFMPY
SL.OAO-FLOA
SSTCREI'STA
SACONIAUUa
SACOMPUF ADD
SARUOIAFSU6
SALOAOIAFLOA
SASTOHIAFSTA

22t

~22

7401
74t!1
7441

223
224

74&1

OPEFUTE CL.ASS
SETJFI7401
RNOOI1421
STOP-7441
SROL·,4b1

71114

CHN.7414

21q

221/1

Ul/3f1l172

•

PAGE "

•

105/8 BASIC

225
22&
227
228

229
23111
231
2li
233
234
235
23&
237
238
239
240
241
242
243
244
245
24&
241
248

•

COfolPIL.E~

7521
7414
1474
7454
1534
751"
7501
741!1~

7Ul
7404
7405
740&
7401
7410

7411
74ie
7413
75&1
7541
741&
7411
7401cl
7415
154itl

PAloS-va

10130172

PAGE "-1

N~DL"S21

CLOSEF"434
OPE.fIIAY"414
OPENAF"454
OPENNY"534
OPENIIIF'7S14
CLRFIII17S01
FlLENO'7402
FIIIEG'74~3

REh7411J4
REST"405
LSS1AC'740&
LSSi!AC'7407
FESC'7410
REAO',411
WRlTE.h12

SWRITEI1413
SfolOOE"Sf:ll
NMOOEI1541
FUNC1·741&
FUNC211417
FUNC31UI/J0
FUNC417415
USE.7540

•

IOS/8 BASIC COMPILEH

24q
250
251
252
253
254
255
25&
257
258
259
2U
261
2U

2U
2&5
2U
2&7
268
2&q
iH0
271
272
213

274
275
27&
217
278
2n
280
281
28C!
283
284
285
286
287
288
28Q
29121
2q1
292
iq3
294
295
296
297
298
299
3121111
31211
3(/12
31213

PALS-V8
I ASSEMI:5LE LINE

00201
002132
00203
00204
00205
0020&
00207
00210
00211
00212
00213
00214
00215
11118216
00217
00220
00221
00222
011J223
00224
00225
lIJe2l&
00227
1IJ0210
00231
00232
00213
011li!34
011li!lS
1IJ1/I2lft
1IJ0il7
111121240
0121241
021242
00243
0e2U
00245
1210246
00247
01112521
1110251
0111252
00253
00254
210255
0025&
021251
0212&0
018261
2102&i
002&.5
002&4
00265

1ft!/30172

•

PAGE S

IORG PAST BIGGEST STIo/ING LIT
tWOR01+4S
IANY CHARS LEFT ?
f~GETC:
NEwLIN, JMS I
REMARK INO, LINE ENDED OK
JMP
QERMSG IEXTRA CHARACTERS
JMS I
3003
ICLEAR STMT NUMBER SWITCH
REMARK, DCA
NOSN
TMPLVL IRESET TEMP LEVELS
HD
TMPCNT IFOR NUMERIC
DCA
STMPLV lAND STRING
TAO
STMPCT ITEMPORARIES
~CA
(STACKO-1
TAO
OSTACK IRESET STACK POINTERS
DCA
STKI.VL I(CtiANGED BY FOR L.OOPS)
TAO
10&6
SUCK
DCA
3015
TAD
CloINE-1 IGET THE NEXT LINE.
137&
1(10
DCA
30U
TAD
C-UNMAX/MAX SIZE
1l7!)
OCA
TEMP
3021
ICHAR
IGET NExT CHAR
4774' GETloIN, JMS
JMP
ICR
GOTCR
5235
IPUT INTO I.lNE BUFFER
DCA I
XU
3410
IBUMP MAX COlJNTt::R
TEMP
ISZ
2021
JMP
GETLIN
5221l
QERMSG IL.INE TOO loOt-lG
JMS I
4'ITJ
1424
1424
ISKIP REST OF LINt:
ICHAR
4714'
JMS
GOTCR
JMP
5235
CL.A
72210
... 3
JMP
5231
ICOMPUTE SIZE
TAO
xU
1010 GOTCR,
eMA
711140
TAO
CI.INE-1 10F LINE
1376
NCI'IUS
DCA
3020
TAO
(LINE-1 ISETUP L.INE POINHR
137b
CCA
CHRPTR
32111
1045·
TAO
L.OCTRf/PUT LOCALo~J COUNTER
I1NTO MQ
7421
7421
7]l1d
eL.A CL.L CML R R IAL.L.OW DEFINITION
IGET THE STATEMENT NUMB~~
QSNUM
JMS I
4471
JMP
NOSNUM INO STMT NUMBER ON THIS LINE
52&7
ISET STMT NUMBER PREStNT
NOSN
rsz
221&2
QMOOSET lIN N MODE AT AL.L. LABELS
447&
JMS I
QNOREGS IFORGET REG CONTENTS
JMS I
4532
ISAVE NEW loINE NUMBER
TAD
1134
"'OROl
DCA
L.INE'"
305.5
TAD
WOR02
1135
DCA
32154
LINEL.
JMS
SETno IGET TO FIEL.D OF eNTRY
407ri1
TEMP2
TAO I
IGET DEFINED/REFNCEO aITS
14U
TAO
L.OCTRH IAOO IN HIGH ORDER L.OCATION CTfoI
1044
DCA I
TEMP2
IPUT IT AwAY
HaC!
TEMPi!
LSZ
i!1II2&!
1045
TAD
INOw PUT IN LOW ORDE.1i LUCITION
l.oCT~L.
DCA I
3422
TEMP2

0201
450c1
5C!05
4473
300]
30&2
1034
3033
103&
3035
1371
301 4

•

IOS/8 BASIC

304
305
3121&
307

308
30q

310
311

3li!
313
314
315
31&
317

318
319

32121
321
322
323
3iU
325
32&
327

•

1602&&

002&7
00a70
00271
00272
0121273
0121274
0ea75
00i!7ft
00277
00300
00301
0031212
1210303
00304
0031215
011l30&
012131217
00310
00311
00312
00313
00314
0121315

COMPII.E~

PAL8-V8

10/31d172

PAGE '5-1

COF
&201
K80CHK ICHECK FOR ·C O~ ·0
477J' NOSNUM, JMS
TAO
(kEVwkD-1
1312
DCA
ISET UP FOR KEVwO~D SE.ARCI'i
X10
311110
~SAVECP ISAVE CHA~ pas
JMS I
4501
)(10
IGET NEXT CHAR OF kEYwORD
1410 KWLOOP, TAO I
SMA
751210
5314
JMP
GOTKW
10K, THIS IS Hie KW
DCA
TEMP
3021
IGET NEXT CkAR FROM 5TMT
JMS I
QGETC
451i!1i!
JMP
530/,1
NOGOeD ITHIS ISN"T IT
TAD
115 THIS CHAR OK ?
TEMP
1021
SNA CL. A
7&516
JMP
527.5
KWL.OOP IYES, CONTINUE L.OOKING
QRESTCP IBACK TO START OF STMT
451214 NOGOOD, JMS I
)(10
TAD I
ISKIP eVER REST OF KEYWORD
14U
711fr;'1
SPA CLio
JMP
5305
.-2
lIS THIS ENO OF LIST ?
TAD 1 xu
1410
SZA
7440
S27b
JMP
KWLOOP+3/NO, KEEP LOOKING
JMP
531b
ITREAT AS L.ET STMT
L.ET
TEMP
/SAVE ADDR OF ROUTINE
3021 GOTI<W, DCA
JMP 1
TEMP
5/,121
IGO PROCESS THE 5TMT

•

IOS/8 84SIC

328
329
330
331
H2
333
33"
335
336
331
33a
339
340
341
342
343
344
345
3411
347
348
349
350
351
352
353
354
355
356
351
358
359
360
3U
3U
363

COMPII.E~

0031&
00317
00320
01/J3il! 1
00322
011'J3i!3
011'J3il! 4
0111325
011Jli!&

011.1327
00330
00331
00332
00333
01U34
IIIII'J3 3 5
01/13U
00337
00340
00341
00342
00343
00344
00345

364

00346
00347
00350
1210351
0035i!
00353
00354
00355
00356
00357
00360
00361

365
3&6

003&2
00363

3(.7

1210364

P.L8-V8

10/30172

•

P.GE (,

I LET STATEMENT PHOCESSOH
JMS I
QLOOSf\i ILOAD THE STMT NUMijER
LET,
ICOMPILE LEFT SIDE
CL.L CML. RAR
QEICPR
IGET EICP~ESSION
JMS I
JMP
REMARK
QCHECKC ILOOK FOR •
4513
JMS I
-75
7703
JMP
5340
SADLET IBAD IF MISSING
QEXPR
JMS I
450S
IGET RIGHT SIDE
JMP
REMARK
5205
124111
CLA CMA
IGET TYPE OF
OSHCI< IRIGHT SIDE
TAD
1014
TEMP
10F EQUAL SIGN
DCA
3021
TEMP
ISO THAT WE GENE~AT~
TAO I
I III I
SPA CLA
17U
ITHE CORRECT STORE
7144
CLL CMA IUL
(ASSIGN-I
TAO
1311
JMS I
45011
QOUTOPR IGENERATE STORE
JMP
521211
NEWLIN
447.5 BADI.ET, JMS I
GERMSG 18AD LET STMT
1423
1423
JMP
REMARK
5205
TAD
(STOP
IOUTPUT STOP OPCODE
U7i! END,
JMS I
QOUhlRO
4500
47111'
JMS
OUDUMP IOUMP BUFFER
JMS I
IREAD IN POST P~DCES50R
nU7
"'6t!
IEIGHT PAGES
1000
1000
0400 POSTlC , 400
IFROM 400
000kl I..DRBLK, 0
IFHOM THIS SLOCK
UBORT
540t!
JMP I
QERMSG ISET POST PROCESSOR ERROR Si!ltTCH
147J
TAD I
DCA
3765'
ERMSG.i!
POSH
JMP I
ISTART IT UP
5750
0050 STAR,
50,0,ICMUL'XI'1UI..

4474
7l3i!
4505
5205

V1000

516a

51&2
0060

1IJ001
354.1

UPARO", 60,I,EXPRTN-l

•

105/8 BASIC

3ft8
369
310
311
372
373

31a
375
376
311
318
379
380
381
382
383
384
385
386
387
388
389
H0
391
392
]93
394
]95
396
397
398
399
400
401
402
403
404
US

406
407
408
409
410
411
412
413
414
415
41&
417

418
419
420
421
422

•

PAL,6-V8

COMPILE~

00365
00366
00367
00310
00371
00372

171 i!
7601
6471
7441
ft066

00373

234ft
&600
1Mt0

00374
00315
01!137&
0U17
01/1400
00401
01/1402
00403
1/10404
00405
00406
00407
01/1410
00411
00412
00413
00414
00415
00416
1/10417
00420
00421
00422
0042]
00424
00425
0042&
01!l427
0121430
00431
00432
00433
00434
00435
0043e.
00437
00440
00441
0044a
00443
00444
00445
00446
00447
00450
00451

10/310/12

PAGE 7

RESTORE, PRIIIIT, AND INPUT PROCESSORS

fl2a~

&177
113.5
0400
447a INPUT,
4777'
7Uta INPUTL.,
4505

PAGE
JMS I
blL.OOSN IOUTPUT 5TMT iliUM
JMS
GETFN
ILOOK FOR ,cFIL.E NUM EXPlho:
IPROCESS INPUT STMT
eLL CML. RAR
JMS I
QElCPR
IGET EXPR
JMP I
!ilREMARK
5510
QGETAl IGET TOP OF STACK
JMS I
4511
TAD
ILOOK AT THE TYPE
105b
TYPEl
SPA CL.A
1710
JMP
RSTRNG IRE AD STRING
5231
JMS I
QMOPSET ISET MODE
447ft
(READ
IOUTPUT REAO COMMAND
TAO
137ft
QOUh/RO
JMS I
4500
115 IT OIMENSIONED ?
7132
CL.L. CML. RTR
AND
TYPE 1
0056
Sill. CLA
16518
JMP
,+3
INO
52U
JMS I
QLOAOSS ISt.T UP SS REGS
451r:!
TAO
(AfSU-FSTA
1375
TAD
(FSTA
lUSt. SCAL.AR STORE
13H
SYMt;L.l IPL.US SYM~OL. NUMBER
1057 FININP, TAO
JMS I
QOUTWHO IOUTPUT INSTR
4500
QCHECKC ILOOK FOR ,
JMS I
451.5
7724
-54
5501·
QNEWL.IN lEND OF INPUT
JMP I
JMP
INPUTL IYES, L.OOP
521!l~
ISET MODE
7130 RSTRNG, eL.L CML. rUR
4Ub
JMS I
QMODSt:T /TO STRI~G
ISUBSCRIPTED ?
7Ue
CLL. CML RTR
AND
0056
TYPEl
SNA eL.A
7651D
JMP
,+3
I~O
5241
JMS I
451~
QL.OAOSS ILOAD S5 REG
(SAoREAO .. SREAD
1373
TAD
1l7~
(SREAD ISTRING REAO
TAD
522,5
JMP
FININP lUSt SOME COMMON CODE
4474 PRINT, JMS I
QLOOSN IOUTPUT STMT NUM
JMS
GETFN
IGET FIL.E NUMBER
4777 '
QEXP~
DCA I
3505
IUSE ENTRY AS SWITCH
PCRL.F
306c PRINTL , DCA
ICL.t::AR THE FLAG
JMS I
4S0C!
QGETC
ILOOK FOR A CHA~
53344
J~P
PRTENO INONE LEFT, END PHINT
( .. 73
1371
TAD
"

•

IOS/8 BASIC COMPILEioi
423
424
425
426
427
428
429
430
431

432
433
434
415

436
437
038

439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
45CJ
46O
461
462
463
464
465
466

461
468
4&9
410
471
472
473
474
475
41&
417

00452
00453
00454
00455
00456
00457
00460
12104&1
00462
12104&1
00464
00U5
0046&
00467
00410
0111471
01114 7 2
121111413
00414
1111/1415
0111416
00471
00500
00501
0111502
0051'13
00504

1210505
0111506
00501
00510
00511
00512
00513
1110514
00515
00516
00517
00520
005iH
0111522
005~3

00524
00525
005ii!6
1IJ0527
00530
00531
1110532
00533
00534
01/1535
00536
00537
00S40

1450
5261
1370
1&40
52ft4
in7
4500
3505
721211
524b
1505
1640

5507
4525
45QJ1
4475
3UI!
5314
13ftb
3347
4505
5510
4520
1III5b
7100

PALS-V8
SNA
JMP

TAO

1II0elol
(13-54

10/.5101172

•

PAGE 7-1

IYES, OON'T SPACE OUTPUT
I, ?

SZA CLA
JMP
TASPIIIT ILOOK FOR TAB 0101 PNT
TAD
(FUNe3+20
JMS I
QOUTWRD IOUTPUT FUNC3+20 (COMMA)
Qfl(PR
NOCR,
ICI.~AR THE SWITCH
DCA I
CLA lAC
ISfT NO CRLF FLAG
JMP
P~INTI.
QElCPR
I~AS LAST THING AN EXPR ?
TABPNT, hI> I
SlA CI.A
JMP I
QNEwL.IN IYES, CAN'T HAYE TwO IN A ROW
QBACI(1 IPUT THAT CHAR SACK
JMS I
QSAvECP ISAVE CHAR POS
JMS I
QCHKWO ILOOK FOR "TA8C"
JMS I
\IlTAS
JMP
TRYPNT INO TAB
(FUNC 3+ 100
TAO
PFCAI.I., DCA
PRFUN
ISAVE PRINT FUNCTION
JMS I
QElCPR
IGET ARII
QREMARK
JMP I
JMS I
tillDAD
IL.OAO A~G
1~1UST BE NIJME~ IC
TAO
TYPEI
SMA ClA
JMP
.+4
10K, IT IS
BAOPF, JMS I
tilERMSG IPRINT ERROR
18AO FUNCTION RE.FE: Rt:NCE
06U
JMP I
IJREMARK
QCHECKC IL.OOK FOR )
JMS I

5307
447J
062ii!
5510
4511
7127
-51
53t/14
JMP
BAOPF
lijA~ FUN REFEkENC~
1347
TAO
PRFUN
IOUTPUT FUNCTIO~ CALL
JMP
5332
PUTt
4504 THYPNT, JMS I
QRESTtP IRESTORE CHAR POS
4475
JMS I
QCHKWD IL.OOK FOR PNT(
55ft! .
WPNT
JMP
532C!
PEXP
INO
1365
(FUNC3+120
TAO
Jf'lP
5275
PFCAll IGO DO FUN CALL
4504 PElCP,
JMS I
QRESTtP IRES TORE CHAR POS
JMS I
QE.)CPR
4505
IGET ElCPR TO BE PRINTEO
JMP I
QREMA~K
5510
452121
JMS I
QlOAO
IPUT THING INTO FAC (OR SAC)
7110
CLL CMI. RAN
AND
0056
TYPE1
IGET TYPE tilT
710&
CLL RTL
IINTO At 11
1364
TAD
(WRITE ISWRITE-WRITE+l
JMS I
45riJ0 PUT! ,
QOUTWRD
524&
JMP
PRINTl
1062 PRTENO, TAO
PtRlF
1010 PRINT END WITH
7640
I, OR ,
SZA tLA
5507
JMP I
QNEWlIN IYES, NO CR I.F
1363
TAD
(FUNC3+40
450 {£I PUT2,
JMS I
QOUTWRO ICALL TO CRLF ROUTINE

•

105/8

BASIC COMPILEH

478

US41
00542
0121543
1210544
00545
0054&

41CJ

480
481

482
483
484
485
48&
487
488
489

490
4CJl
492
493
494

•

1U1547
IU1550
00551
00552
00553
00554
0121555
00556
00557
12105U

PALS-V8

1121/30112

PAGE 7-2

J~p I
QNEWLIN lEND OF PRINT
5507
QLOOSIli IOUTPUT LOAD 5TMT IIIUMSER
4474 RESTOR, JMS I
INa COLOIII NEEDED
CLA lAC
7201
ILOAO FILt. REG
GE::TFN
JMS
4777'
IOUTPUT RESTORE OP
CREST
TAO
13&i!
JMP
PUT2
5340
PRFUN,
IOUTPUT ST~T IliUMBfR INTO COOF.
0000 LODSN, iii
IANY 5TiH IliUM~ER ?
N05N
TAO
10&c!
SNA CLA
7&51il
INO, JUST RETUIfN
JMP I
LOOSN
5747
INOw OUTPUT "LOAD 5TMT iliUM REG"
TAO
wORDI
1134
CLOAD5N
TAD
1361
JMS I
QOUTIOIRO
450111
IIIORD2
TAD
1135
QOUTwRO
JMS t
45C'J1D
JMP I
LOUSN
5747

•

PAl.S-V8

105/8 BASIC COMPIL.ER

495
49&
497
498
499
500
501
502
503
51/J4
50S
506
507
508
50CJ
510

511
512
513
514
515
516
517
518
519
520
5iB
522
523
524
525
526
527
528
529
530
531
532
533
534
535
53ft
537
538
539

540
541
542
543
544
545
54&
547
548
549

101M PROCESSOR
00561
00SU
005&3
005&4
00565
00566
005t11

00570
1/10571
00572

usn

1210574
00575
1/10516
00571
00U0
1/10Ul
00&02
00&03
001104
00US
00U"
00U7
00&10
00611
00U2
00UJ
00614
0I!IU 5
00616
00617
00620
lUlU 1
0121622
00623
00624
00&25
00&26
00627
00630
00631
00632
00633
00U4
00635
00636
00637
00&40
00641
00642
00643
00&44
00645

10/30112

•

~AGE

&000
740~

1440
74U
7520
7500
H20
0011
7705
1000
5500
240111
4100
1411
2111
0&00
4514 DIM,
5301
102f:1
700f:1
7700
74211J
5301
4717 '
10 2 5
3342
4515
5301
5224
42&7
523i
7130
3021:1
4S1b
6211
5257 .
4717 ' TwODIM,
45lJ
7727
Sl01
4267
1376
1371:1 CHKDIM,
3021
45tb
6i!!1
1437

0376
1450
5241
7500
1021
76411J
5301

PAGE
JMS I
J,.,P
TAD

QGETNAM IGI::T VAR NAME
OIMERR
TYPE
ICHECK TYPE
IMOvE 8ITS TO BE TESTED
RTL
SMA CLA
IIF FUNC BIT SET TMEN ERROR
SNL
IIF DIM BIT NOT SET THEN ERROR
JMP
Dl,.,ERR INO DIMENSIONS
JMS
SML.NUM IGET DIMENSION
EXPON
TAD
ISAVE IT
DCA
011'11
QCOMARP I, OR ) 11
JMS I
JMP
OIMERR INEITHER IS 8AO
JMP
TWODIM I, TMERE'S ANOTHER DIMENSION
JMS
Cl-iI<SOM ICHECK SIZE IF STRING
JMP
CMKOIM INUMERIC VECTOR, CHECK PREV iH:.F
ITHIS WAS A STRING SIZE niM
eLL CMI. IUR
DCA
rYPE
IPERFORM THE SPECIAL CASE
QLOOI(UP
JMS I
CDF
IOF NOT CHECKING PREVIOUS REFS
Ul
JMP
FINDIM
JMS
SMLNUM IGET SECOND
JMS I
QCHECKC ILOOK FOR ,
-51
JMP
DIMERR
JMS
CHKSOM ICHECK SIZE IF STRING ARRAY
TAD
(7000
INUMERIC ARRAY
TAD
(7000
IGET NUMBER OF DIMS
TEMP
DCA
QLOOKUP IFIND ST ENTRY
JP4S I
CDF
10
ILOOK AT OIM 8ITS
TAD I
STPTR
AND
(7000
IPR~VIOUSI.V REFER~NCEO ?
SNA
JMP
UNAEFD 11'40
SP4A
IIF MINUS, CAUSE ERROR
TAO
TEMP
ICOMPAR~ NUMBER
III CLA
JMP
OIMERR INUMBER OF OIMS DON'T MATCH

•

IOS/8 BASIC COMPIL.ER
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
57&
577
578
519

•

00&4&
00&47
00&50
0111.51
00.52
1110653
00654
00655
00656
00657
006&0
00&61
00662
00663
00664
00665
006&&
00667
00670
00&71
00672
00673
0111674
0U75
00&76
00677
00700
00701
0111702
00703

3021
71314
1021
7041
1437
3431
2037
1l4i

3437
2037
1025
3437
6201
4513
77214
5507
520rd
0000
1026
77i2Hi'J
5667
2267
1025
7100
1375
TUrd
5667
4473
0411
55H1

PAL.8 .. "8

1111/30/72

PAGE 8-1

~CA
TEMP
IZERa TEMP
UNREFD, CL.L. CML. RAR
IPUT IN OIMENSION~O RIT
TEMP
lAND NUMBER OF OIMENSIONS
TAO
INEGATE WHOL.E MESS (4~00.-4000)
CIA
STPTR
ITOGETHER wITH SYM NUM8E~
TAO 1
DCA I
STPTR
STPTR
ISZ
TAO
INOW FIRST OIMENSION (IF 2)
OIMl
STPTR
DCA I
STPTR
FINOIM, lSZ
TAO
EXPON
INOW SECOND (IF 2, OTHERWISE FI~ST'
DCA I
STPTR
COF
QCHECKC IL.OOK FOR ,
JMS I
-54
QNt::WL.IN INONE, ASSUME END OF DIM
JMP I
JMP
DIM
IGET NEXT EL.EMENT
CHKSDM,
ICHECK SIZE OF STRINGS
TAD
IWAS THIS A STRING UIM ?
TYPE
SMA CL. A
CHKSOM INO, RETURN IMMtDIATE
JMP I
ISZ
CHKSDM IYES, SKIP ON RETURN
TAD
EXPON
ISIZE MUST BE c 73
CL.L.
( .. 111
TAO
SNL. CL.A
JMP 1
CHI<SDM 10K, SIZE c 73
QERMSG IGIVE EIolROR
DIMERR, JMS I
0411
QREMARK IABORT STMT
JMP I

•

IOS/8

580
581

58i
583

514
585
5&&
587
588
589
590
591
59;'!
593
594
595
596
597
598
599
6I!l0
601
602
603
604
605
606
607
608
609
610
611
612
613
.14
US
U6
611
618
619
620
621
622
6i!3
624
625
626
627
628
629
630
"31
&32

&33

&34

PAL.S-V8

BASIC COMPIL.ER

0014i!
00743
00744
00T45
00746
00747
00750
00751
00752
00753
00754
00755
00756
00757
00760
00761
0076ii!
00763
00764
00765
00766
00767
00770

•

PAGE q

NE leT PROCE.SSOR
QGETN.~ IGE.T INOEX VARIA8L.E
NEXne • JMS I
8AONXT
JMP
5l&i!
Ql.OOKUP
JMS I
451b
IMUST BE NUMERIC
TYPE.
UO
ua.
SPA CL.A
1710
JMP
8AONXT lIT ISN'T
536;'!
QMODSET IN MODE
JMS I
441ft
(-STAtU-3
1314 NEXTL., UD
IANY FOR'S L.EFT 1
STACIC
TAD
1015
I(OK IF STACI(A A80VI:. 4P11ll0)
SPA CL.A
17U
JMP
UONlfT INO
536a
QPOP
IGET L.ABEL. AODR
JMS I
4Sii!il
TEMP
DCA
3021
QPOP
JMS I
IGf.T L.ABEL. FIEI.D
4S2i'!
DCA
I.UPFL.O
334i!
QPOP
IGET STEP VAR
JMS I
45i!il
XL.OAD
II..OAD IT
TAD
1370
QOUTIIIRD
JMS I
45111111
QPOP
IGET INDEX VAR
JMS I
452C!
FINOEX
DCA
3061
FINOEX IAOO IT TO STEP Cf AOO-21)
TAD
1067
QDUTW~D
JMS I
4500
TAD
134ii!
L.UPFI.D ICREATE JUMP TO L.OOP
AND
(70
037J
1lQl&
CLL. RlL.
(JUMP
TAD
1372
QOUTWRD
JMS I
4500
IGET L.ABEI. DEFINITION AonR
7144
CL.1.. CMA RAL.
TE.MP
TAD
10i!1
QOUTWRD 10UTPUT n A5 L.OIII PART OF JUMP
JMS I
4500
DIM1,
740ii! L.UPFL.O, HLT
ISET L.A~EL. DEFINED ~IT
7130
eL.L. CMI. RAN
L.OCTRH IOEFINE END OF LOOP LABEL.
1044
TAO
DCA I
TEMP
3421
TEMP
2021·
lSZ
TAD
L.OCTRL
1045
TEMP
DCA I
3421
CDF
6if1l1
IBACK OFF STACK L~V~L
TAD
STACK
1015
DCA
STKLVL.
3066
QNOREGS IFORGET REGS
JMS I
453i1!
TAD
SYMBOL. lIS THIS THE RIGHT NEXT 1
1I!J 2 7
I

00704
00705
00TfU
00707
00710
00711
00712
00713
00714
0111715
0f!I716
1/1071 7
00720
00121
0072ii!
00723
00U4
00725
00726
00721
007.51/1
00731
007U
0111733
00734
00115
0R17U
00731
00740
0111741

10/30112

4514

1041

1067
US III

5501
4473
160ft
551i11
0040

TAD
FINOEX
SNA CL.A
JMP I
QNEWI.IN IYES, FINISHED
QERMSG INEXT WITHOUT FOR
BADNXT, JMS I
1606
QRE/'IAfoiK
JMP I
UMOPR, 40,1'UMRTNE-1

0001

3534
2001d

XL.OAO,

FL.OA,AFL.DA

•

IOS/8

BASIC COMPI~EH

&35

11771

•

PALS-VB

10/30/72

PAGE

~·1

&&4~

•

IOS/8 BASIC COMPILEH

&3&
&37
&38

639
640
641
642
643
6144
645
646
647
U8
UCJ
650
651
652
653
654
655
656
657
&58
65CJ
660
&61
&fI2
663
6&4

665
666
667
668
UCJ
670
611
612
673
674
675
676
677
678
67CJ
b80
681

682
b83
684
685
68&

687
688

689
690

PALS-Va
I

00772
00773
00774
00175
01/1776
00777
01000
01001
01002

ue03

01004
01005
01006
01007
01010
01011
01012
01013
01014
01015
01016
01017
01020
01021

01022
01023
01024
01025
01026
01027
01030
01031
Q1103i!
01033
01034
01035
01036
01037
01040
01041
01f1l42
01043
01f1l44
01f1l45
0112146
01047
0U50
01051
01052
01053
01054
01055
01056

5001
0070
0655
76&7
1000
5400
1000
2333
4530
5251
710b

700&
1006
3134
4531D

5251
1134
1041
3727
2327
4530
5i51

7041
3727
2li7
1331

3021

7146
302i!
4513
7TH

7611d
713111
32156

4513

773f1!l .

5251
4514
5251
102t1

1104
7640

5251
7430
5254
112121
2021
52U
4473
2504
551111
102c
202i
5261

10/30172

•

PAGE lid

UOEF PROCESSOR (DEFINE USER FUNCTION)

UOEF,

PAGE

lSZ
NFUNS
IROOM FOR ANOTHtR FUN ?
JMS I
QI.ETTEJl IGET FIRST LETTER
JMP
DEFtUD IERROR IN DEFINE
CLL RTL
IPUT INTO HIGH ORDE~
1fT I.
RTI.
DCA
NAMEl
ISAVE CHAR 1
JMS I
QL.ETTER IGET SECOND LETTER
JMP
DEFBAO IERROR
TAO
NAMEl
ICOMBINE THE TwO (.HARS
CIA
DCA I
FUNPTH ISAVE IN FUN TA"U
ISZ
FUNPTR
JMS I
QL.ETTER IGET THIRD LETTER
JMP
DEFBAD
CIA
I$AVE NEG OF THIRU LETTER
FUNPTR
~CA I
ISZ
FUNPTR I~UMP POINTER
TAD
M5
INUMERIC AR& COUNT
DCA
TEMP
I (MAX OF 4 ARGS)
CLl CMA IfTl
ISTRING ARG COUNT
DCA
TtMP2
I (MAX OF 2 ARGS)
JMS I
QC:-tECKC lIS IT A STRING FUN ?
-44
SKP eLA
CLl CML RAR
IYES, SET TYPE OF FUNCTION
DCA
TYPEl
JMS I
QCHECI(C IlOOI( FOR
-50

JMP
DEF8AD IERROR IF MISSING
OALOOP, JMS I
QGETNAM IGt:T AN ARG
JMP
OEFBAO
TAD
TYPE
11.001( AT ITS TYPE
CLl RAI.
ISHIFT TYPE BIT INTO lINK
SlA CLA
JMP
OEFBAO IOT~ER BITS MUST ~E OFF
SZL
JMP
STRARG ISTRING AI'ofG
TAD
TEMP
IGET ARG NLIMBER
TEMP
lSZ
/INCREMENT IT
JMP
OAPUSH IGO SAVE IT
DEFBAO, JMS I
QERMSG IBAD USER OH
2504
JMP I
QREMARK
STRARG, TAO
TEMPe!
IGET ARG NUMBt:R
lSZ
TEMP2
lAND INCREMENT IT
JMP
OAPUSH+l

•

IOS/8 BASIC COMPILER
691
692
693
&94
&95
.9&
&97
&98
699
700
711J1
702
703
704
105
106
107
708

709
710
711
712
713
714
115
11&
117
718
119
720
711
722
723
724
725
72&
727
728
7a9
730
731
732
733
734
735
13&
737

•

PALe-VB

1013"'172

PAGE li(1-1

ITOO MANY STRING AR['S
. JMP
OEFSAD
5i!51
IAOJUST ARG NUMdEH
Qi!
133k) OAPUSH, TAO
IADO 4 FOR NUM, i! FO~ STRING
Qi!
TAO
13n
SPA
75U
eLA eL.L CML RTR IFIRST ARG STAVS IN AC
733i
IAOO IN TYPE SIT
TYPE
TAD
102111
ISAVE IT ON STACK
QPUSH
JMS I
45i'
QCOMARP ILOOK FOR , OR )
JMS I
4515
CEFeAO IERROR IF NEITHER
JMP
5251
DAL.OOP I, GET NEXT ARG
JMP
5236
IGET TOTAL. NUMBER OF ARGS
TEMP2
TAD
10iC!
H::MP
TAD
1021
IADJUST COUNT
Q10
TAD
1332
INEGATED
CIA
7041
DACNT
DCA
30&c
FLJNPTR IGET FUNCTION CODE
TAD I
l1Z7
FUNPTR 18UIo1P POINTER
lSZ
2327
IMAKE IT THE SEARCH O~JECT
WORD1
DCA
11'1100 31H
XSTCHEi< IMAKE SURE THERE'S ROOM
JMS I
01101 472&
EOST-10
01102 75U
QLUKUP2 IENTER NEW FUNCTION
JMS I
01103 4511
FUNCTN
01104 2570
-1
0111115 7777
IPUT IN ARG COUNT
OACNT
TAO
0110& 10fti!
SETFLO I(FIRST SET THE FIELD)
JIo1S
01107 4010
NEXT
DCA I
1111110 341111
1111111 6201 OAPUT, CDF
IGET ARG TYPE CLAST TO F IRSTl
QPOP
JMS I
01112 4522
ISET THE FIEl.ll
SETFl.O
JMS
407111
01113
ISAVE IT
NEXT
DCA I
01114 341111
IANY MORE .,
OACNT
lSZ
01115 2062
IVES
OAPUT
JMP
0111& 5311
IPUT IN TYP~ OF FUNCTION
TYPE1
TAO
01117 105111
NEXT
DCA
I
341&
01120
CDF
01121 &201
QCHECKC ILOOK FOR A COMMA
JMS I
011ii!2 4513
-54
01123 7724·
QNEWL.IN INO COMMA, END OF LINE
JMP I
01124 5507
IGET NEXT DEFINITION
UOEF
JMP
01125 5200
0112& 2317 )cSTCHEK,STCI1EI<
01121 &1&2 FUNPTR, ENOFNS
ITH~SE FOUR WORDS
2
01130 0002 Qa,
IPREVENT ERRONEOUS "SAvtS"
-5
01131 1773 M5,
ISV THE ROUTINE SAVAC
10
01132 0010 QU,
IWHEN THE OP STACK IS EMPTY
01133 7751 NFUNS, .. 21
10PERAND STACK
STACKO,
STOKSZ=UDEF+21110-STACKO
0044

01057
010&0
01061
010&2
010&3
010.4
010&5
010&.
010&7
01070
01071
01012
01073
0lr/.1T4
01075
0101&
01071

•

10S/S BASIC COMPILE~
738

719
740
741
742
743
744
745
74&
747
748
74q
750
751
75i
753
754
755
756
757
751
75.
7U
7&1
7&i!
7&3
7614
765
1&&
U7
1&8
7&q
770
771
772
773
774
775
77&
777
778

7n
780
781
782
783
784

785

78ft
781
788

78q
?If 0
7q1
H2

1111200
IIIU01
0121112
0un
0121114
0121115
0U0&
0UIIJ7
0U10
01211
01 i!1 i!
0li! 13
BU14
01215
0Ul1t
0U17
fIIl2i0
01221
0Ul2
0U23
01224
0Ui5
IUi&
raUi7
01230
rlJUll
141232
rlJU]]
rlJli34
BU1S
GiJli!3&
01i37
0li40
0li41
01i4i
01143
GiJ1l44
01245
0li46
141247
01250
0USl
0USC!
l1l1i53
0li54
01255
01256
01257
01260
01261
012&2
012&3
012&4

PAl.s·va

10/30172

•

PAGE 11

I DEF PROCESSO~
li!00
PAGE
4S1C OEF,
JMS I
QNOREGS IFORGET REGS
4514
JMS I
QGETNAM IGET FUN IIIAME
JMP
5253
SADOEF INO ~OOD
TAO
10i.
TYPE
ISAVE ITS TYPE
DCA
3111i2
TEMPi!
]061
DCA
ARGCNT IZERO ARG COUNT
102&
TAD
TYPE
ITYPE MUST BE 3000 OR 7000
700&
RTL
IMOVE BITS TO SE TESTED
SPA CI.A
77U1
IFUN BIT OFF IS AN ERROR
14i0
SNL
101M BIT OFF IS Alii ERROR
52'S3
JMP
BADDEF
447&
JMS I
QMODSET IENTER N MODE
1027
SYMBOL ISAVE FUNCTION NAME
TAD
~CA
324&
FUNNAM
4514 ARGLUP, JMS I
QGETNAM IGET ARG NAME
5i!5J
JMP
BADDEF
1150
CLI. CMA RAN
II.OOK AT TYPE
002&
AND
TYPE
1&40
SZA CLA
525J
JMP
BADDEF IAMG ~AS AN ARRAV o~ foUNC
451&
JMS I
QLOOKUP IENTER INTO S.T.
1037
TAD
STPTR
ISAVE ST ADDRESS
4521
JMS I
QPUSH
1027
TAD
SYMBOl. lAND SVM801. NUMBER
JMS I
QPUSH
4521
11112&
TAO
TYPE
lAND ARG TYPE
4521
JMS I
QPUSH
lSZ
ARGCNT IBUMP ARG COUNT
illlU
JMS 1
QCOMARP II.OOK FOR , OR )
4515
525J
JMP
BAOOH
JMP
521&
ARGLUP I, GET NEXT ARG
124&
TAD
FUNNAM tENTER FUNCTION
3134
DCA
WORDl
TAD
ARGCNT IFIRST GET ENOUGH ROOM
1061
7041 .
CIA
1377
TAD
(EOSr-]
324.
DCA
FIJNNA~
477&'
JMS
STCHEK ICHECK IT
0000 FUNNAM, 0
4517
JMS I
QI.UI<UP2 ILOOK UP FUNCTION
FUNCT",
2570
7771
-I
5156
JMP
OKFUN
10K, NOT MULTIPLV DEFINED
4473 SADOfF, JMS I
QERMSG IBAD DEFINE
0405
14405
551f11
JMP I
QREMAHK
101& OKFUN, TAD
NEXT
ISAVE "NEXT"
)(12
301e
DCA
1IlIl&
TAO
NEXT
IINCREMENT NEXT BY
10&1
TAO
ARGeNT INUMBER OF ARGS
1375
TAO
(4
IPLUS 4
301&
~CA
NEXT
4070
JMS
SETFLD IGET ROOM FOR LA8~L

•

PALS-V8

IOS/8 BASIC COMPILE~
79]
794
795
79&
797
198
799

800
801
8212
803
8"4
805
80&
807
8U
8n
810
811
812
813
814
815
81&
817
818
819
820
8i!1
822
823

824
825
82&
827
828
829
830
831
832
833
834
835
83&
837
838

839
840
841
842

843
844
845
84&
841

•

012&5
012&&
012&7
01270
01271
11.11272
01i!7l
01274
01275
0127&
211277
01300
01301
01302
01303
01304
013215
0130&
01107
IU310
rcHlU
01312
01313

01314
01315
21131&
01317
01320
01321
01322
01323
01324
01325
fill 32&
1111327
01330
01331
01332
01333
1211334
01335
121133&
01337
0134121
01341
01342
01343
1211344
01345
0134&
1211347
121135121
01351
1211352
01353

71314
341&
101b
30&2

CL.L. CML. IUR
DCA 1
NEXT

TAO

NtXT

2Ub

ISZ

DCA

JAROND

10/30/72

PAGE 11-1

IFOR JUMP A~OUNO
ISeT DEFINED HIT
ISAVE AOOR
IFOR L.ATER

CDF
ISAVE FIELD OF FUN BLOCK
TAD
LUFL.O
FUNFL.D
DCA
IALSO FIELD OF ,-ABEL
LUFLD
TAD
DCA
JARFLO
IGfT FIELD
TAD
LUFLO
(HI
IISOLATE SITS
AND
IINTO JUMP INSTR
eLL RlL.
(JUMP
TAD
1372
QOUTwRD IOUTPUT IT
JMS I
4500
JARDND IOUTPUT L.OW PART
TAD
10&2
JMS I
QOUTwRo 10F JUMP AoOR
450ft!
ISAVE STACIC
STACK
TAD
1015
DCA
OLoSTK.
30&0
ARGCNT IGET COUNT
TAD
10&1
eMA
7ura
DCA
TEMP
3021
ARGCNT ITWICE
TAO
1061
CIA
7041
ARGCNT
DCA
l0U
ARGCNT ISTORE caUNT FIRST
TAD
1061
JMP
FUNFLO
533b
&201 CHGARG, CDF
QPOP
IGn ARG TYPE
JMS I
4522
TYPE
DCA
302&
TYPE
TAD
102&
GENTMP IGENERATE A TEMPORARY
JMS
4771 '
IPUHGE SYM80L. NUMBER
QPOP
45U SwTARG, JMS I
eL.A
722114
IGET ST AOOR OF
QPOP
JMS I
452C
10F DUMMY ARG
STPTR
DCA
3031
COF
&211·
1121
SYMBOL IPUT IN TEMP SYMBOL NUM8ER
TAO
112127
ITO FAKE EXPR
DCA I
STPTH
3437
ICREATE ARG DESCRIPTOR
TyPt.
UD
102&
TAD
SYM80L IFOR roUNC Bl.OCK
111121
7402 FUNFLD, HLT
DCA I
lAND PUT IT INTO f.S.
Xl2
3412
IMORE ARGS?
TEMP
ISZ
2021
JMP
CHGARG IYUP
532~
CL.L CHL. RAR
7130
AND
TEMPi!
ISAVE TYPE OF FUNCTION
0"'2~
DCA I
Xl2
3Ui!
ISET DEFINED BIT
eLL. CML RAR
7130
LOCTRH lAND LOCATION CQUNT~R
TAD
1044
IAT START OF FUNCTION
DCA I
Xl2
3412
TAD
LOCTRL.
1045
DCA I
Xl2
3412
CQF
&201
UD
STACK
ISAVE BOTTOM OF 5T AeK
1015

&201
1071
333&
1071
3774"
1011
0373
7U&

•

108/8

8ASIC COMPIL.E~

848

01354
01355
01356
211351
IIIUU
0U61
0U62
0U63
01364
01365
01366

849

850
851
852
853
854
855
1156
851
858
85CJ

lUlU

3013
10ft1Z1

32115
45lJ

5253
4505
5510
45 ZI'Il
10U
3015
511'"

PAL.S-Va
DCA
TAD
DCA
JMS I
·15
JMP
JMS I
JMP I
JMS I
TAD
DCA

JMP

U.s

10/30/72

•

PAGE 11-12

OL.OST" IRES TORE TO TOP
STACK
QCHECKC IFIND •
SADDEF

QEXPR
ICOMPIL.E FUNCTION
QREMARK
QL.OAO
IGET IT INTO AC
Xl3
IRES TORE STACK
STACK
ITO BOTTOM
RESARG IFINISH OEF

•

f
PALS-V8

105/8 BASIC COMPIL.E~

860
861
862
863
864

865

0137'1

861

01315

1400
4200
50f'1J1

0070
141.5
0004

01316

2311

8U
8U

1IJ1317

15&5
1400

87rIJ

880

014130
01401
01402
01403
1IJ1404
01405
0140.
01401
01410
01411
01412

881

01413

882
883
884
885
88&
8&1
8&8
889
890
891
892
89]
894

01414
01415
1111416
01411
01420
01421
01422
01423
01424
01425

811
8n
813
814
875
8U

871
818
879

•

PAGE 12

I DEF PROCESSOR (FINAI.E)
01370
1IJ1311
01372
01313

8~&

10/30172

0142&

01427
01430

1413

3031
1413
6i!11

3431
6201
201,5
20&1
5200
1317
4500
1402
7130

1044
lUll!

20611
104!:i
34fl2

6201
1033
3034
103S
3036
4532
5507

PAGE
RESAMG, TAO I
DCA
TAD I
CDF
DCA 1
COF
lSI
lSI

JMP

TAD

)(13
STPTR
Xl3
10

/GET ST ADOR
IPUT lUCK CORRECT SVM •

STPTR
ISKIP OTHER STUFF
ARGeNT
RESARG IRESTORE NEXT
IOUTPUT RETURN CODE
(RET
QOUTWRD
Xl3

JMS I
JARFLD, HLT
ISET LABEL DEFINED BIT
CLL eML fUR
LOCTRH ISTICK IN AOOR
TAD
DCA 1
JAROND IOF END OF FUNCT
JAROND IPLUS ONE
lSI
TAD
LOCTRI. ISTORE LOW AOOR
JAROND
DCA 1
COF
TMPCNT ISAVE NEW TEMP LEVELS
TAD
TMPLVL
DCA
STMPCT
TAD
STMPLV
DCA
QNOREGS IFORGET REGS
JMS I
QNEWLIN lEND OF OEF
JMP I

•

10S/S BASIC COMPILER

895

89&
897
898
8CJ9
9210
901
9m2
903
904
905
90&
907
908
909
910
911
912
913
914
915
916
917
918
919
9ii!0
9iH
92i!
923
9iU
925
92.
U7

928
929
930
931
932
933
934
935
93&
937
938
9]9
940
941
942
943
CJ44
945
94&
947
948
CJ49

01431
01432
01433
01434
01435
0143&
01437
211440
01441
01442
01443
01444
01445
01446
01447
01450
01451
01452
01453
01454
01455
0145&
01451
11114&0
2114&1
2114&2
814ft]
01464
014ft5
0146f1

IU4U
1111470
01471
01472
01473
01474
121147 5
0147&
211477
21151110
01501
015212
01503

01504
01505
0150ft
01507
01510
01511
01512
01513
01514
01515

0151&

PAL.S-Va

10/30172

•

PAGE 1j

I DATA STATEMENT PROCESSOR
QNUM8ER ILOOK FOR NUMBER
DAU,
JMS I
OSTHNG IMUST BE A STRING
JMP
OENTRY IMAKE AN ENTRY
JMS
13 WORDS LONG
777S
-3
QCHECKC 11.001( FOR ,
4513 MOROU, JMS I
7724
-54
QNEwLIN lEND OF DATA
JMP I
5507
100 NEXT ELEMENT
JMP
DATA
Si3l
QSTRING ILOOK FOR STRING
4521 DST~NG, JMS I
JMP I
QNEWLIN 18AO
5507
ICOMPUTE SIZE
WORDI
TAD
1114
lAC
7001
CLI. CMI. CMA RAR
7170
DCA
DSSIZE IINCI.UDING CHAR COUNT
3253
INEGATE COUNT
WORDt
TAO
1134
CIA
72141
.,.ORDI
DCA
3134
OENTRY ICRE.ATE ENTRY
JMS
4255
0000 DSSIZE, III
MORDAT IGO 00 MORE
JMP
5235
IMAKE AN ENTRY IN DATA L.IST
0000 DENTRY, 0
OENTRY IGET SIZE
1655
TAD I
DCA
TEMP
3021
OENTRY
2255
lSZ
IINCREMENT SIZE COUNT
TEMP
TAO
1021
TAO
DLSIZE
U51
Ol-SIZE
DCA
3051
(EOST
IHOW MUCH DO wE NHD 'I
TAD
137ft
TEMP
TAD
1021
,+2
]2n
DCA
STCHEI< IASK FOR IT
4775'
JMS
0
210210
FREFLO IGET FIEL.D OF FREE SPACE
TAD
1774'
ISAVE IT IN SETFLO SUBROUTINE
DCA
I.Ufl,.D
3011
10
11211 OATFLD, COF
11111 &.
IHOOK IN NEw ENTRY
NEXT
TAD
lAC
7001
DCA I
DATPTR
3125
gUPTIi IPQIHU-R THeN FIELD - - :rf1tP
iUS PATCH3, 'HZ
TAO
I.UFLO
11/171
OATPTR
DCA I
3725
JMS
SETFLO
411170
TEMP
ISAVE SIZE OF ENTRY
Ui!l
~TAD
DCA I
NUT
341ft
TAD
(WORD1-1/MAKE READY TO MOVE
un
)(121
DCA
31/110
UI/I1 DELOOP, CO,
IGET WORD
TAO I
XU
14114
401111
JMS
SETFLD
DCl I
NEXT
ISAVE IT
341ft
TU1P
IMORE '1
ISZ
20i!1
JMP
531117
DEL.OOP
NEXT
ISAVE ROOM FOR POINTER&CDF
341b
DCA I
TAO
NEXT
ITHIS IS NOW LAST ENTRY
101&
452&
5241
4255

• -f- --I

1K r\~

PAl.a-ya

IOS/8 SASIC COMPII.ER

9521
951
952
953
954
955
95&

•

01511
01520
01521
IU522
01523
QI1Si4
01525

3325
1071
321.5
341&
6201
5&55
25&&

10/30112

PAGE 13-1

DCA
OATPTR
,+3
~
PATCH4, ~~ 'V( ~ " I#lP
nCA
OATnD lAND nIh IS ITS FlfLO
NEXT
DCA I
--.cDF

JMP I
DATPTR, DATLST

DEN TRY

•

105/8 BASIC COMPI~ER
957
958
959

961
9~l

963
9U
9ftS
96ft
9ft 7'
968
9&9

91111

971
972
913
974

975
916
971
978
979

980
981
982
983
984
985
986
9S7
9S8

0152e.
01527
01530
01531
01532
01533
01534
01535
0153&
01537
01540

44714
71l~

CLL C~L RAR

4505

44U

JMS
JMP
JMS
TAO
JMS

105ft

TAD

1Tl"

SPA Ct.A

5510
4511
USb

UTi!

1371

01543
01544
01545
1II154e.

4500
1132
005b
7b515
5350
4512

01547

1370

01551

1057
45015

01541
01 54i!

01550
01552
1111553
01554
01555
0155ft
01557
01560
015&1

01562
015&3
015ft4

/ READ PROCESSOR
REAOX, JMS I
QLOOSN

13&1

4513

7724
5501
5127
111040
0001
ft50b
4rMJ0

51&2
5U2

TAD
TAD

I
I

•
IOUTPUT 5TMT NUMBlR
IGET VAH TO REAO
ISA~E AS LEFT SIO~ OF LET

QEXPR
QREMARI<
QGETAI IGET VAR INFO FROM STACK
TYPEl
ISET MODE
QMOOSET
TYPEl
IWHAT TYPE ?

(SROL-NRDL
eNROL
ISTRING OR NUMERIC
JMS I
QOUTWRD
CLL CML RTR
/SUBSCRIPTS ?
AND
TYPEI
SNA CLA
JMP
,+3
INO
JMS I
QLOAOSS IYES, LOAD SS REGS
TAD
(AFSTA-FSTA
TAD
(FSTA
IARRAY OR SCALA~ STORl
TAD
SVMBLI
JMS I
QOUTWRD
JMS I
QCHECKC IANV MORE ?
~54
ICHECK FOR COMMA
JMP I
QNEWLIN INO
JMP
REAOX+l IVUP
AMPSND, 40'1,AMPRTN.l,4000,XADO,XAOD

•

105/8 BASIC COMPILE~
989

01567

CJ90
991
CJ92
993
994
995

01510

01571
0157i!

01573
01514

FOR PROCESSOR

24r11i11
4300

7521
7740
0133
226&

996

01575

2317

997
998

1!l1516

HIllIS

01ft05

7!H0
7404
1600
4474 FOR,
4!U4
5777'
1026
7640
5771'

1006
112107
1008

01606

4516

01607

JMS I

011113

1027
3067
4513
770.5
577P

DCA
JMS I
.. 75
JMP

01614

1017

01577

999
1000
10i11

1111600
0161111

01&02

1002

01&rll3
01604

ItllU

112104

01610

01611
01612

111110
1011
1012
111113
1814
lIJ15

01615
01111&

IIHII1 7

1&11&

01620

1017
1018

1111621
01622

01623
01614

1019
1010
1021
102i!

IIJUi!5

IIl1U6
f/IlU7
ru630

un
1024

1025
1026

1021

IIJU31
IIJU32
01633

Ul8

01634

1019
1030

01635

5156
5327

ru640

1l7~

01641

4500
1374

01642

1037

01645

HI]S

0164&

1039

01647
01&50
01&51

1040

111141

1042

1043

01&44

01652
01653

•

SU CLA

JMP

TAO

TAD

DCA

TAD
OCA
SKP
7410
4511J4 FINDTO, JMS I
4502
JMS I
5777'
JMP
7200
CLA
JMS I
451111
441~
JMS I
\liTO
6273
JMP
5221
JMS
471&'
DCA
3333
4475
JMS I

1031

01643

JMP

TAD

1020

1032
1035
103&

JM5 I

3335

01636
01637

1033
1034

PAGE
JMS I

4776'

3334

QLOOSN IOUTPUT 8TMT NUMBER
QGETNAM IGET INDEX YARIABLE
BADFOR IBAD
TYPE
IMUST BE NUMBtR
BADFOR IITS NOT
QLOOKUP 1ST SEARCH
SYMBOL ISAVE INDEX VAR
FlNDEX IFOR LATER
QCHECKC IFIND •

8AOFOR
CHRPT~

FORCP
NCHARS
FORNe
Q~ESTtP

QGETC
BADFOR

ISAVE CHAR POSITION
lIN A SPECIAL PLACE

IRESTOR~ CHAR POS
ISKIP. CHAR

QSAVECP ISAVE THIS POSITION
QCHKWD ILOOK FOR "TO"

FINDTO
FSUB2
FLIMIT
QCHKWO

IKEEP GOING
ILOAO LIMIT AND SAVE IN TEMP
ISAVE LIMIT VAR
ILOOK FOR "STEP"

JMP
JMS
DCA

STEPt
FSUS2
FSTEP

JM8 I
TAD

IUSE 1.0 FOR THE STEP
ILOAD STEP AND SAVE IN T~MP
ISAVE STEP VAR
IOUTPUT SETJF

QOUTWRD
(JFOR
ISTEP IS VARIABLE, USE JFOR
FOHJMP ISAvE CURRECT JUMP
QGETC
IANY MORE CHARS ?

WSTEP

TAD

SAVEJF, DCA
JMS I
SKP
74U
5777'
JMP
3062

4502

133;
3020

DCA

lHIt
3011

DCA

4773'

JMS

TAO
TAO

(SETJF

tuDFOR
FORNC
NCHARS
FORCP
CI1RPTR
FSUBI

/YES, ERROR
IRESTORE CHAR POSITION
IFHOM SPECIAL PLACE

ICOMPILE INITIAL VALUE INTO FAt

•

IOS/8 BASIC COMPILER
1044
1045
104ft
11/14.,
1048
1049
1050
1051
1052
1053
1054
1055
1056
U57
1058
1059

10111/1
U61
11/1112
1!D113
10114
U 65
1066
1067
1068

UU
U7111
1071
1072
1073
10h

U75
107.
U77
1078
1079

1080
1081
1082
108]
1084
1085
10U
t087
1088
1089
1090
1091
1092
1093
1094
10CJ5

1096
1097
lI1l98

011154
01655
011156
011157
016U
01661
016.2
01663
0UU
0U6S
01.66
01667
01670
fill "'1
01&72
01673
01&74
01U5
01676
011177
rill 100
01701
0170 i!
01703
01704
01705
01706
01707
01710
01711
01112

01713
01714
01715
01716
01717
017i!0
017Z1
01722
01723
01724
01U5
017i!~

01721
01730
01731
01732
01733
01734
01735
01730

01737
01740
01741
01742

4712"
757fIJ
177P
326IIJ

1402
7130
1044
341b

1045
341b

7130
3416

1333
1343
4500
li!U
1D370
7106
111162
4500
1016
4500
133.5
4500
1061
13&7
4500
1067
45C!l
1334
4521
taU
4521
1010

4521
2016
10l.i

3034
453.2

101!i
30~O

5510
136&
3334
13ft:'
52U

000f1l
1I!001/1
0001D
0001i1
1~54

7ft7.5

7&~i!

PAL.8-V8

10/30172

•

"'AGE 15 .. 1

JMS
STCHEK ICtit.CK FO~ ROOM
EOST
TAO
FRHLO ISAVE FIELD OF LA~EL5
DCA
FORFLO
FQRFLO, Io4LT
ISET L.ABEL OEFINED ~IT
CLio CML RAR
TAD
LOCTRH IDEFINE THE LOOP LABEL
DCA I
NEXT
TAO
LOCTHL
DCA I
NEXT
ISET LABEL DEFINED ~IT
CLL CML RA~
DCA I
NEXT
IFOR END OF LOOP LABEL
COF
TAD
f'LIMIT If EST FOR DONE
)(SUB
18Y SUBTRACTING THE l.IMIT
TAO
QOUTWRD
JMS I
TAO
FORFLO 10UTPUT JUMP TO OONt.
AND
(70
ISHIFT FIELD BITS
CLl. RTL
FORJMP IUSE PROPER JUMP INS
TAO
QOUTWRO
JMS I
lOUT PUT L.Ow PART OF JMP
NEXT
TAO
QOUTWRD
JMS I
TAD
FLIMIT IFADD FUMIT CFADD-r.'I)
JMS I
IilOUTWRD
TAO
FIIIIDEX IFSlA INDEX
TAD
(FSTA
JMS I
QOUTWRD
TAO
FINDEX IPUT STUFF OlllTO STACK
JMS I
QPUSH
TAD
FSTEP
QPUSH
JMS I
FORFLD
TAD
JMS I
QPUS!;
TAD
NEXT
JMS I
QPUSH
IHUMP NEXT AGAIN
ISZ
NEXT
TAO
TMPCNT IRESERVE T!;ESE TEMPS
DCA
TMPLVL.
JMS I
QNOREGS IFORGET REGISTORS
TAD
STACK
ISET NEW STACK LEVEL
DCA
STKLVL
JMP I
QREMM~K
(3
STEPt, TAD
11.0 IS SLOT #3
DCA
FSTEP
HoD
(Jr.T
IUSE JGT
JMP
SAVEJF IGO DO THE REST
FLIMIT , 0
IFOR LOOP UPPER LIMIT
FSTEP,
IFOR LOOP STEP
FORNC, III
IFOR STMT CHAR POSITION
FORCP,
"'THEN, -124'·110'-105'-11&

"
"

•

PAL8-va

105/8 BASIC COMPILER

10qq
1100

•

01743
01744

0400

XSUB,

10/30/72

PAGE lS-c

FSUB,AFSUe

&50~

•

IOS/8 BASIC
1101
1102

1104

1105
110&
1107
1108

1109
1110

11lt
111 2
1113
1114
1115
111&

01745
0174&
01747
01750
01751
01752
01753
01754
01755
11175&
01157
01760
017&1
017U
017&3

PALS .. VS

COMPILE~

13&4
451Ul
4514
5354
102&
770111
535&
4473
2525
7Uii!

302&
45t&
1027
45111111
5510

10/30172

•

PAGE 1()

I USE PROCESSOR
USEX,
TAD
(USE
lOUT PUT USE OPERATOR
JMS I
QOUTWRD
QGETNAM IGET ARRAY NAME
JMS I
JMP
USEERR IERROR
ICHECI< TYPE
TYPE
TAD
SMA CLA
I(MUST BE NUMERIC)
,+3
JP'lP
I IT WAS
QERP'lSG IERROR IN USE 5TMT
USEERR, JMS I
2525

ISET DIM BIT
CLL CP'lL RTR
DCA
TYPE
JMS J
QLOOKUP ILOOKUP SYMBOL
TAD
SYMIJOL IOUTPUT ARRAY NUMBEH
QOUTWHD
JP'lS I
QREMARI<
JP'lP I

•

PALS-va

10S/S BASIC COMPILEioi
1117
1118

1119
lU0

lU 1
1122
l1l3
lli!A
1125
lU6
1127
lU8
Ui9
IllIZI

1131
1132
1133
1134

1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148

1149
1150
1151
1152
1153
1154
1155
1156
1151
1158

1159
1160

1161
116i

1163
1164
1165
1166
1167

1168
1169

1110
1111

•

017&4
017&5
0176'
017&7
01770
01711
U77i
01773
01774
01775
01176
01777

7540
5004
000.5
240111
0070
22&&
2317
3314
5010
7401
3U&

0i!000
m001
02002
U003
02004
0Z005
02006
02007
02010
1112011
U01i
111211113
02014
lIIil015
02016
lIIi017
02020
02021
021112i!
0211123
02024
1112025
1112026
02027
0203111

4474

Hil

2000

4505
5510
4502
52'2
7Ub
70111&
70111b
3021
450ii!
52&2
1021
3111U
1317
3010

1410

7450
5271
3311

1410

02012

1022
7U0
5217
4505
551fj1
7240
1014

02033

3Ui

lIJ2ell

1112034
0i035
1112036
02037
02040
02041
02042
02043
02044
02045
02046
1112041
02050

1421
7710
5265
13ft»
450t»
4501
4475
1737

5255
4417
5366
1021
1311

10/30172

PAGE 17

I IF AND IFENO PROCESSORS

PAGE
QL.ODSN IOUTPUT STMT NUMBER
JMS 1
Qf)CPR
IGET L.EFT EXPRESSION
JMS I
QREMARK
JMP I
IGET RELATIONAL. OPERATOR
JMS I
r.lGETC
JMP
8ADIF
IERROR IF NONE
tL.L. RTL.
IMOVE TO L.EFT HALF
RTl.
RTL.
/ANO SAVE IT
DCA
TEMP
QGETC
IGET 2 CHAR RELATIONAL.S
JMS I
JMP
B.AOIF
TEMP
ICOMBINE THE 2
TAD
TEMPi!
DCA
TAD
(IFOPS.l/SETUP POINTER
DCA
lC10
IGET JUMP OPCOOE
xu
IFl.U P1, TAD I
SNA
JMP
IFL.UPi-1/NOT A 2 CI1AR RtL.,ATIONAL.
REL,OPR IS AVE IT
DCA
TAD I
XU
ICOMPARE CHARS
UMP2
TAD
SZA CL.A
JMP
In.UPl INOT THIS DOE
QEXPR
GOTREL., JMS I
IGET RIGHT HAL.F
QREMARK
JMP I
CL.A CMA
IGET TYPE OF RIGMT SIDE
as TACK
TAD
TEMP
DCA
TAD I
TEMP
SPA CL.A
JMP
STRCMP ISTRING, 00 STRING COMPARE
(MINUS INUMERIC, DO A SU8TioIACT
TAD
JMS I
QOUTOPR
NUMCMP, JMS I
QSAVECP ISAVE CHAR POSITION
QCHICWD ILOOK FOR "THEN"
JMS I
WTHEN
JMP
NOTHE"" INOT THEN
GETlFN, JMS I
GSNUM
IGET STATEMENT NUMBER
JMP
BADGOi!
TAD
TEMP
IOUTPUT JUMP
TAD
RELOPR
IF,

•

Vf3

/IV ~ ~~y-

/,~~d
~~

•

PA~8"V8

IOS/8 BASIC COMPI~EK
1172
1173

1174
1175
111&
1177
1118
1119
1180
1181
1182
1183
1184

1185
1186
1187
1188

11n
1190
1191
1192
1193
1194
1195
1196
1197
llfi8
1199
1200
1201
lUi!
121113
li!04
1205
120&
li!07
1208

urn
U10

1211
1212
lii!13
1i!14
IUS

1216
1217
t211
1219
1220
1221
1222
1223
1224
1225
122.

02051
U05i
1/JZ053
IU0S4
0i!055
02056
02057
02060
0i!0.1
0i!06i!
02063
02064
02065
0i!0il6
02061
02070
0i!llJ71
0207i

0i!llJ7l
02074
02075
0207&
02077
02100
02101
02102
U103
02104
IIJi! lI1l5
UU6
mi107

02110
1112111
11'2112
02113
02114
02115
0211t1
U117

0i!120
1112121
02122
02121
212124
0iH25
1112li!tI
U127
11'2130
1112131
02132
11'2133
02134
02135
1112136

4500
102~

450113
5507
4504
4475
6211

7410
5245
4473
110ft

5510
ll7S

4506
447&
5241
45i!5
14U
7450
5262
3311
141113
lU1
7650
5227
5272
4474
?l01

4311
1374
3311
5241

0000
306i!
4511
7735
534111
4505
55U
1062
764111
512t1
4513
11111~

5331
452111
1056
7710
4473
0.16
721111
306,5
1371
450111

JMS I

TAD

10130112

•

PAGE 17-1

(iJOUTIllRO
/TWO WORDS
TEMP2
QOUTWRO
QNEwl..IN
QRESTCP IBACKUP CHAR POS
QCI'IKWO I~OOK FOR "GOTO"

JMS I
JMP I
NOTHEN, JMS I
JMS I
WGOTO
SKI'
GETlFN 10K, GO GET STMT NUMBt:R
JMP
QERMSG leAD IF STMT
8ADIF, JMS I
lUI>
QREMARK
JMP I
CSCOMPR-l
STRCMP, TAD
QOUTOPR 10UTPUT STRING COMPARE
JMS I
QMOOSET ISACK TO N MODE
JMS I
NUMCMP IREST IS LIKE NUMERIC COMPARES
JMP
Q8ACKl IPUT BACK NON OPERATOR
JMS I
)(10
IGET CONDITIONAL JUMP
IF~UP2, TAO I
SNA
IRELATIONAL INCORRECT
BAOIF
JMP
RE~OPR
DCA
)(10
ICOMPARE OPERATORS
TAD I
TEMP
TAD
SNA CLA
GOTREL IGOTlT
JMP
JMP
IFLUP2
IOUTPUT STMT NUMBER
Q~ODSN
IFENO, JMS I
I(NO COLON)
eLA lAC
IGET FII..E NUM8ER
GETFN
JMS
ISETUP CORRECT JUMP
(JEOF
TAD
DCA
RE~O"R
NUMCMP IGO FINO "THEN" OR "GOTO"
JMP
REL.OPR,
IGET fILE NUMBER
GETFN, II'
ISAVE COL.ON SwITCH
COL.ON
DCA
QCMECKC IL.OOK FOR /I
JMS I
-43
JMP
TTYFII. INONE, MUST BE TTY
QE)(PR
IGET fIL.E EXPR
JMS I
QREMlRK IERROR
JMP I
100 WE NEED A COL.ON 1
COL.ON
TAD
SZA CL.A
INO, SKIP THIS TEST
0+ 4
JMP
QCMECI<C IYES, L.OOK fO~ IT
JMS I
.12
INOT THERE, 8AO
8ADFN
JMP
QI..OAD
ILOAD IT
JMS 1
ITYPE MUST BE NUMEQIC
TYPEl
TAD
SPA CI..A
QERMSG INOPE, IT ISN'T
BAOFN, JMS I
11'616
ISET IFNREG TO "NOT TTY"
CL.A lAC
IFNREG ISAVE NEW IFNREG
DCA
(FIL.ENO IOUTPUT SET IFN COMMAND
TAD
QOUTWRD
JMS I

•

\
I

L(/J

108/8 BASIC COMPIL.ER

1227
1228
1229
1i!J0

1231
1232
1233

U]4

•

02137
02140
02141
02142
0i!143

01144
0i!145
01146

5711
l!/IU
7651/1

5711
1372
4501/1
3063
51U

P.AL8 .. V8

10/30112

PAGE

11.~

JMP I
GETFN
IFNREG lIS IFNREG 0 1
TTYFI&., TAD
8NA CLA
JMP I
IIF YES, QUIT
GETFN
(CI.RFN IOTHERWISE ZERO At
TAD
QOUTiIlRD
JMS I
DCA
IFNREG ISET IFNREG TO TrY
JMP I
GET,N
IRETURN

•

LffJ

•

PALS-Va

108/8 8ASIC CDMPIL.EI't

1235
1236
1237
1238
12n
12421
1241
U4i
1j!43
1241
1245
1i!4&
U47
1248
1249
1250
US1
l252
1253

021&4

U1&5
021&&
2121&1
02170

4471
536&
4476
7ie1
5360
4474
4477
53&&
447.
1371
11/1 21
4500
1022
45U
5507
441l
1615
5510

•

PAGE 18

GO TO AND GOSUB
QSNUM
IGET NUMBER
GOTO,
JMS I
SAOGOi
JMP
QMOOSfT IALL GOTO~S IN NMOD~
JMS I
IJUMPaJSUB+l
CL.A lAC
,+5
JMP
QLOOSN lOUT PUT STMT NUM LOAO
GDaUB, JMS I
QSNUM
IGET NUM8fR
JMS I
JMP
BADG02
QMODstT IALL GOTO'S IN NMODE
JMS I
IGET GOSU8 QPCOOE
(JSU8
TAD
IPLUS ADDRESS
TEMP
TAO
QOUTWRO IOUTPUT IT
JMS I
180TM WORDS
TEMPi!
TAD
QOUTWRD
JMS I
QNEWLIN
JMP I
QERMSG 18AO GOTO OR GOSU~
BADG02, JMS I
INUMBER MISSING
1&15
QREMARK
JMP I

Ul47
02150
02151
02152
02153
02154
02155
02156
nU7
021110
U161
02162
021&3

10/30172

•

105/8 BASIC

1258

1259
126m
1261

02171
0iH12
02173
02174
02115
0211&
02177

12ft2

1263
1265
126&
1267

0220121
1112201
02202
02203
02204
1!Ii!205
0220&

1i!70

022ra1

1271
1272

1112210
02211
02212
n213
11J2214
02215
0221&
02211
0222111
02221
02222
022i!]
02224
022i!5
0222&
0i221
02230
02231
1112232
1112233
Ui!34
02235
02i!36
02237
02240
02241
0i!242
02243
0i!244
0i!245
02246
02247
02250
02251
02252
02253
02254
02255

1i!U

uu
un

1273

1271
1215
1i!7&

1217

1278

UiIZI
1281
U82
1283
1284
1285
128&
1287
1288

1290
li91
U92
1293
1294
1295
U9&
U97
1298
1299
1300
1301
131112
131113
1304
1305
1306
1307
1308

•

10/30172

PAGE lq

I TABLE SEARC~ FO~ L.ITERAL.S, STMT NUMBEKS, TEMPS, ETC.

125~

1255
125&
1257

PAL.S-Va

COMPILE~

5000
7501
740c
5400

t-I~

656ft

215)

4140
221414
0000

PAGE
LUKUP2, 0

lUrD

TAD I

3342
2200
1601'5
2200
3346
1311
3071
4070
17411
3343
234c
174i!
323,5
134.5
7450
5257
711101
30114
137C:1
3011
134&

DCA

3344

6aU
1411
7141
&211
1410
7640
5i!SIIl
2344
5230
1410
62U

3027
1233

3071
2200
5&00
7430
5257
1343
334t:!
1233
3071

ISZ

TAD I
ISI

DCA
TAD
DCA
JMS
TAD I
DCA

I.UKUPi
OL.DN3
LUKUP2
I.UKUP2
I.UKUP2
N3SIZE
(&211
L.UFI.D
SETFL.D
Ol.DN3
NEwN3

IGET THE BUtl(E T START
ISAVE IT AS THE PREVIOUS ENTRY
IGET THE ENTRY SIZE
IPRIME THE FIEI.O SETTER

INOW SET THE FIEL.D
IGET ADUR OF NEXT ENTRY
ISAVE IT
PATCIH, 1-5-l-----*9N J --t1tf1'"-ro-~i EL. f)--t}fi',~. ~;oR ¥ •
TAO I
IGET INTO AC
OL.DN3
DCA
NEWFLD IANO SAVE IT
..d!!j.TAD·
NEWN3
f SNA
JMP
HOOKIN IIF " 115 END OF L.IST
.-'.--".-._PATCH5, ·uc
DCA
XU
ISTART OF VALUE INFO
TAD
(WORD1-1/SETUP POINTER TO VALUE
)(11
DCA
TAD
lli3SlZE lAND TEMP OF ~NTRY SIZE
DCA
I.TEMP
CHI<VAL, COF
TAD I
Xll
CIA CI.L
ICOMPARE lions WORD
NEWFLD, COF
IFIELD OF NEW ElliT~Y
10
TAD I
X10
SZA CL.A
JMP
NOTUM INOT THIS OlliE
lSZ
I.TEMP
lINeR SIZE COUNT
JMP
CHKVAL IMORE STUFF
)(10
TAD I
IGt:T SYMAOl NUMttER
L.6201, CDF
DCA
SYMBOL
TAD
NEWFLO IMAKE ENTRY ADDRESSABLE
DCA
/THROUGH SETFI.D
LUFLD
ISZ
I.UKUPi! IBUMP RETURN
JMP I
LUKUP2
NOTUM, SZL
JMP
HOOKIN INEW SYMBOL. c CURRENT
TAD
NEIIINl
IGO TO NEXT ENT~Y
DCA
OLON3
I(MOVE POINTER)
TAO
NEWFlD I(AND FIELD)
DCA
I.UFLO
LOOK2,

-~-'Y"""-1r."'.!-_'"'~

•

'i/l.

f5.F

...
..;

, , P .J.
I?

':.

....;

"/of

•

IOS/8

1309
1310
1311
1312
1313
1314
1315
1316
1311
1318
131~

1320
13iU
1322
1323
1324
1325
13i!b
1327
13i!8
13ii!1f
1330
1331
1332
1333
1334
1315
1336
1337
1338
1339

1340
1341
1342
1343
1344
1345
134&
1347
1348
1349
1350
1351
1352
1351
1354
1355

1356
1357
1358
1359
1160
1361
13&2
1363

B~SIC

0225f>
02257
02ii!U
0ii!ii!f> 1
1Uii!6ii!
02ii!63
02264
1112265
02266
U2ft7
0i!j!70
02211
02212
01i73
0U74
0ii!ii!75
02276
02277
1112311J0
1112301
02302
0230]
1112304
0231115
0231116
0i!307
0i!310

02311

0i!l12
1U31!
1112314
02315
lUlU

1Ili117
02320
02321
023a2
0i!3iB
021ii!4
02325
023261
02327
02330
0i!!331
02332

02333
0i334
02315

023361
02337
02340
02341
02342
02343
02344

COMPII.ER
5212
7144
134f>
1375
32fJ4
4317
0000
134!

&211

341ft
1233
3416
4070
Utl6
3742
7240
1342
3342
7240
101ft
374i!

3071
1376
3011
6201
1411
6211
341ft
2346
5307
&201
560(11
0000
10161
7141
621211
1117
2317
7&30
5717
12661
1374
326f>
126f:1
1111
31'/llb
2145
5717

4473

a324
5411161
0000
0000
0001i'1

PAL.S-Ve
JI'IP
L.00K2
HOOI<IIII, CI.I. CMA HAL
TAD
N3SIZE
TAO
(EOST
DCA
•• e!
JMS
STCHEK
1/1

10/3[/)172

•

PAGE 19"1

IMOW MANY wORDS NEEDED 1

IMAKE SURE
IwE GOT ENOUGH
IHOOK IN NEw ENTRY
ICHANGE TO FREE FIEL.D

NEWN]
TAD
FREFLD, CDF
10
DCA I
NEXT
PATCH2, TAD
NEWFLD IHOOK IN FIEI.D~· J/!
~~"r
DCA I
NEIl T
JMS
SETFLD 18ACK TO FIELD OF OLD
TAD
FREFLD IPUT FIELD OF NEW
DCA I
OLDN3
CLA CMA
If.UCK UP OLON]
TAD
OLON3
ISO THAT IT POINTS TO POINTEQ
DCA
OLDN]
CI.A CI'IA
NEICT
IPUT POINTER TO NEW ENTRY
AO
DCA I
OLON3
IINTO 01.0
TAO
FREFLD ISAVE ENTRY FIELD
DCA
IFOR POSSIBLE POST PROCESSING
LUFLD
TAO
(WORD1"I/PREPARE TO STICK IN THE VALUE
)(11
DCA
ENTERV, CDF
TAD I
X11
IMOVE IN TME VALUI:.
FF1.02, CDF
10
UCA I
NEXT
ISZ
N3SIZE lINeR SIZE COUNT
JMP
ENTER"
COF
JMP I
~.UI<UPii!
STCHEI< , 0
ICHI:;CI< FOR ENOUGH ROOM
TAD
NEXT
ICHECK "OR OVERFLOW
CIA CLL
COF
TAD I
STCHEI< /THIS IS LIMIT
ISZ
STCHEI<
5ZL CLA
JMP I
STCI'IEK
TAO
F~EFI.D
IBUMP FREE FIELD

-.r

TAD

(10

~CA

FREFI.D
FREFLO
FFI.D2
NEICT
NFLOS
STCHEI<
QERMSG

TAD

DCA
DCA

ISZ

JMP I
STOVER, JMS I
2324
JMP I
0L.ON3, 0
NEWN3, 111
LTEMP, 0

UBORT

IPUT IN TwO PLACES
1ST ART POINTER AT
IGONE TOO FAR '1
INO
IS.T. FULL

IABORT COMPILATION
IAODR OF PREVIOUS ENTRY
IADOR OF NEw ENTRy

•

PAL.8-Va

105/8 BASIC COMPII.EH

13&41
13&5
13&&
llU
13&8
13&~

1370
1371
1372
1313
1314

1375
1376
1377
1318

•

02345

000~

023411
0i!347
IIIi! 350
02351
02352
02353
02354
11Ji355
1112356
02357

001110
612131
514&
60311

U3Et0

1112361
U3&2

0373

1372
745111
5411Jb
1371
7641il
57461
37U'
57461

NFLOS, 1/1
N3SIZE,
t<80CHK, iii
KSF
JMP I
KRB

10/30172

PAGE 19-2

I- COUNT OF AVAILABLE

ICHfCK FOR ·e O~ ·0
KSOCIolK

INO CHAR

IREMOVE PARITY 8IT

( ]

I"C ??

JMP I

UBORT

IYES, EXIT TO 058

JMP 1

KBDCHK
TTh1
KBDCHK

AND

TAD
SNA

077

TAD
(3-17
SZA eLA

DCA

JMP I

FIELDS

ISIZE OF ENTRY

/'"0 7?

INO, RETURN
INOP TTV OUTPUT ROUTINE

•

105/8 BASIC COMPIL.EH
131CJ
1380
1381
1382
1383
1384

13115
1386

1387

0iU10
02311

3141
11&4

0i313
02314
02315

0171
0010
751"

una

1IJ133

0i377

&211
il0(/J
1/100111
1134
710ft
1134
710/6
1134
1135
3134
102ft
110&
100b

1390
13CJl
UCJ2
13CJ3
13U
1395
13CJ6
1391
l3CJ8
1399
1400
1401
1402
1403
14016
1405
1406
1401
141118
14111CJ
141111
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
14i!1
1422
1423

14i!4
1425

lU&
Ul7

142&
142q

1430
1431
1432
1433

02400
02401
02402
02403
02404
02405
0240&
02401
02410
024lt
02412

02413
02414
02415
0241&
02417
02420
02421
02422
02423
0i!!424
02425
02426
02427
(/J2430
02431
02432
1/Ii!431
02414
02435
0i436
0i!417
02440
02441
fIl244ii!
n443
0i444
0i!445
02446
02441
0i!450
02451
02452
02453
02454

I SVMBOI. TABLE LOOI(UP

10/30172

•

PAGE 211'

7775

0UU

1388

PAloS-Va

PAGE
LOOKUP, 0
ILOOK UP SYMBOL
TAD
NAMEI
IGET NAME1*11+NAM~i
CLL RTL
NAMEI
TAD
CLI. lUI.
NAMEI
TAD
TAD
NAME2
DCA
NAMEI
/THIS IS IT
TAD
TYPE
IWHAT KIND SYMBOL ?
IMOVE TYPE BITS
CLI. ATI.
/INTO AC CJ,10,l1
RTL
TAD
JTABI.E
liB'
3215
DCA
,+1
000111 VCPTR, 0
IGO Tio1ERE
5&17 JTABLE, JMP I
,+1
24i!7
LUVAR
2451
I.URETN
2463
I.UAUV
2451
LURETN
245ft
I.USTRG
2451
LURETN
2516
LUURV
2451
I.URETN
U71 L.UVU, TAD
(VARCNT IPOINTER TO VAR COUNT
3iB5
DCA
VCPTR
1376
TAD
(VARST-13
1114 OOI.U,
TAO
NAMEI
3037
DCA
STPTR
1ST POINTER
COF
ITHATS WI'tERE ST IS
6i'!11
10
1431
TAD I
STPTR
lIS THIS VAR DEFINED YET "I
SMA
7500
JMP
52505
GOTSYM IVES
1315
TAD
(4401
IGET 401 INTO AC
6201 CHEKST , COF
1615
TAD I
VCPTR
IPLUS VAR COUNT
6211
COF
10
3027
DCA
SVMBOI. ITHAT5 THE NEW SYMBOL NUMIiER
lI/I27
TAD
SYMBOL. IPUT SYMBOL NUM~ER
3437
DCA I
STPTR
IINTO S.T. ENTRV
&201
CDF
261S
ISZ I
VCPTR
ISUMP SYMdOL NUMBER
5600 I.URETN, JMP I
I.OOKUP
51116'
JMP
STOVEH 15,T, OVERFLOW
3027 GOTSVM, DCA
SYMBOL IPUT NUMBER INTO SYMBOL

6au

CDF

•

IOS/8 BASIC COMPIL.ER
1434
1435
14111
1437
1438
1419
1440
1441
1442
1443
1444
1445
144&
1447
1448
1449
1450
11651
1452
145]
1454
1455
1456
1457
1458
145'
14610
14&1
lUi!
14113
14&4
14115
14&6
1461
14U
14&'
1410

0i455
U456
n4S1
024&1/1
024&1
0a4f:l2
02463
024&4
024f:15
02466
02467
02470
0i471
02412
02413
UU4
02'115
0247&
02477
02500
U501
02502
02503
02504
02505
0250&
02507
02510
1/12511
1/12512
U513
1/12514
02515
0i516
0i!517
1/12520
02521

•

P.LS .. V8

1IIl/30172

PAGE 20-1

JMP I
LOOKUP
(SVCNT IPOINTER TO STRING VAl( COUNT
LUSTRG, TAO
VCPTR
DCA
3215
(S\fARST-2&
TAO
137i
IT 114 0 WORDS PER ~NTRY
NAMEl
TAD
1134
JMP
DOLU
5232
IARRAY VAR COUNT
(AtNT
1371 LUAHAY, TAO
VCPTR
DCA
3215
(ARAYST IARRAY SYMBOL TA8L.E
TAO
1370
STPTR
DCA
3U7
CDF
10
6211
ISEARCH TABI..E
STPTR
1437 FINDA, TAD I
SNA
745111
NEWARY INEW ENTRY
JMP
5]0
CIA
104l
lIS THIS IT '7
NAMEl
TAD
1134
STPTR
ISI
2037
SNA CLA
7&5111
JMP
GOTARY IYES
531114
STPTR
ISI
2037
STPTR
lSI
i!0]T
STPTR
IGO TO NElCT ENTRY
ISZ
2031
FINDA
JI'IP
5210
IGET NUMBER
(31
13&7 GOTARy, TAD
AND I
STPTR
0437
DCA
SYMBOl.. /INTO SYMBOL.
!rai7
COF
&201
JMP I
L.OOKUP
5&a1ll
/PUT IN NEw ENTRY
NAMEl
1134 NEWAIH, TAO
STPTR
DCA I
3437
STPTR
ISI
2037
/PUT IN NUM8EIol
(41
TAO
1373
JMP
CHEI<ST IGO DO THE REST
Si!4l
(UCNT ISTRING ARRAV COUNT
13&. I..USARY, TAD
vePTR
DCA
3215
CSARVST IUSE STRING ARRAY TABLE
TAD
Ull5
JMP
FINDA-2 IGO DO SEARCH
5i&b

Sf:l1/I0

1313

•

IOS/8 BASIC COMPILER

1411

1472
1413
1414
1475
1416
1417

1478
1479
1'18111
1'181
1482
1483
1484
1485
148&
1487
1488
148CJ
ln0
ln1
1n2
ln3
14CJ4
1495
149t1
1497

02522
02523
02524
U525
02526
1112527
02530
02531
U532

usn

1499

02534
02535
0253&
02531
0Z540
02541
02542
1U54!
02544
02545
1254&
02547
02550
02551
02552
02553
02554
02555

1500
1501
151112
151113
1504

02557
11125U
0!5t11
12125.2

1498

uss.

PAL8·V8

lflI/30172

•

PAGE 21

I FILE AND CLOS~ PROCeSSORS
FILE,
JMS I
QLODSN IOUTPUT STMT NUMBER
TAO
(FOPENS IPOINTER TO FILE OPt-illS
DCA
FILESW
JMS I
QCMECkC ILOOK FOR "11"
",12&
SKP
7410
INOT V
235&
ISZ
FIL.ESW IVUP, INCR FILESW
JMS I
45iJ
QCHECKC ILOOK FOR liN"
7662
-11b
533&
JMP
,+3
23St.
lSZ
FILESW lINeR FILESW IH TWO IF "Nil
235t.
lSZ
FIUSIIJ
47U·
JMS
GETf'N
IG~T fILE NUM8ER
450S
JMS I
QEXPFt
IGET DEVICE/FILE DESCRIPTOR
JMP I
QREMARK
5510
4520
JMS I
QLOAD
ILOAD INTO SAC
1111 st.
TAD
TV PEl
ITVPE MUST BE STRING
17U1
SPA eLA
5341
JMP
,.3
lIT IIJERE
4411
JMS I
QE.RMSG lIT WEREN-T
IUe.
111&1&
use.
TAD I
FILESW IGET CORRECT OPEN
4500
JMS I
QOUTWRD
5507
JMP I
QNEWLIN
7454 FOPENS, OPENAF,OPENAV'OPENNF'OPENNV
7474
7514
7534
000(/1 FILESW, 0
004111 PLUS,
411110' UDD, UO[)
111111111111
516e
51112

447'4
1364
335t.
4513
7&52

•

PALa"Va

IOS/8 BASIC COMPIL.ER

1505
150.
1507
15 G'J8
1509
1510
1511
ISla
1513
151'1
1515
151.
1517

1518

1519
1520
15il
1522
1523
1524
1525
15Z&
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
15U
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559

10/31d172

PAGE 2~

I EXPRESSIOIII ANALYZER

025&3
025&'1
025&5
025&&
mi5&T
02570
0i!571
1112572
U573
02571.1
02575
02576
02577

2111
2'552
2nC!
004.5

0i!600
0261111
02602
02U3
02604
02.05
U606
02&07
0i!610
02611
0Z6la
02613
1112&14
02615
026HI
02617
02620
02621
0U2i!
02623
0i!624
02&25
Bi&26
026i1
02630
0i631

01000

•

0037
lU2

00Qi!
10U
0041
2337
4401
03&5
0040
lUIIl

02632

02633
02634
02&35
02636
02ft 37
0i&40

02641
0i!&4i!
0i!643
02644
02&45
0264&
02647

EXPR,

3011

1030
4521
1021
3030

PAGE
0
DCA
TAD
JMS 1

TAO

DCA
TAD

121210

TEMP
LEFT
QPUSH
TEMP
LEFT
EXPR
QPUSH
QPUSH .
LEFT

IPOLlSHIZE EXPRESSION
ISAVE LEFT
ISO WE CAN PUSH OLD VALUE
10F IT

INOw SET NEw VALUE
THAT SWITCH

10F

131&

ISAVE RETURN AO~R
JMS 1
IMARI< STACK
JMS I
lIS THIS LEFT SIDE ?
TAO
SPA CLA
OPRAND+1/Y~S, NO UNARY MINUS
JMP
ILOOK FOR UNARY OPERATOR
QGETC
JMS I
MISARG ITHERE HAS TO BE AN OPERAND
JMP
IUNARY+(NOP)
( .. 53
140
SNA
UNOPR
JMP
(53-55 IUN,un ..
TAD

1440

SZA

4521
4521
1030
HU
5244
4502
535&!
1371
7450
5214

UNOPR,

NOTMIN INOT UNARY MINUS
JMP
(UMOPR IPUSH UNARY MINUS
TAO
QPUSH
JMS I
UNOPR
JMP
(55-50 11.001< FOR (
NOTMIN, TAO
SZA CLA
OPRAND INOT A SUB EXPRESSION
JMP
ICOMPILE sua EXPRtSSION
QEXPR
JMS I
BAOEXP 18AD SUB EXPRESSION
JMP
5113'
CilCHECI<C IL.OOK FOR ,
JMS I
451.5
7721
-51
tERROR
SKP
7410
OPR8R
IGOTlT
JMP
5263
Qt.RMSG IPARENTHESIS MIS MATCH
JMS I
4473
1520
1520
BADEXP
JMP
5773'
QSACKI IPUT BACI< NON UNARY OP
4525 OPRAND, JMS I
QGETNAM IL.OOI< FOR VARIA~L~ REF
JMS 1
~514
NOTVAR INOPE.
JMP
5772'
QLOOKUP ISYMBOL TABLE SEARCH
JMS I
4511)
SYM80L ISAVE SYMBOL NUM8ER
TAO
1027
5227
1375
4521
5214
1374
7640
5243
4505

•

./OS/8

15&0
15&1
15&2
1563
15&4
15115
15&6
15&1
15&8

1570
1571
1512
1513
1574
1575
15a
1577
1578
1579
1580
1581
1582

1583
1584
1585
158~

1587
1588
158fi
1590
1591
1592
1593
1594
1595
159&
1sn
15fi8
15fifi
1&00
1&01
IUe
1603
1&1114
1605
1&06
1&07
1&08
lUfi
1610
Ul1
lb12

1613
1&14

PAL.S-IIS

BASIC COMPIL.ER
02&50
02&51
0e652
02&53
0e6J54
021155
02&5&
0e657
02660
02&61
02&62
026613
026614
026&5
02&6&
02&67
02&10
02671
0i!U2
02673
0i!674
02&75
02676
02&77
02700
02701
02702
0i!703
0H04
0e705
0270&
02707
02710
0eHl
02712
0i!713
02714
02715
0e716J
0i!717
027e0
02721
02722
02723
027e4
02725
02726
0e727
02730
02731
0e732
02733
02734
02735
0eBb

DCA
JMS I
-3
TAO
AND
SZA
JMP
TAO
JMS I
TAD
J,",S I

30i!c!
4524
7175
10i!&
0371
74410
57U'
102&
4523
1022
45i!3

10n

7100
450i!
5341
1370
7440
5301
450i!
5301
U10
7&50
1367
7450
4525
13&6
30e1
13&5
3010

1410

7450
5336
303c!
1410
1021
7&40
5305
4522
7450
53iH
3031
1431
7041

OPRSR,

NOSTAR,

OPRLUP,

GOTOPH,

lUi

7750
5]33

1031
4521
103C!
4521
5214
1031
4506
5315
4525

PUSHe,

OUTOLD,

10/3~172

•

PAGE 22-1

TEMPi!
QSAIIAC

IBE~AUSE SAIIAC MIGHl ~ ILL IT
IGENERATE FSTA (MAYbE)

TYPE

IWAS THIS A FUNCTION OR ARRAY ?

(3000

fUNSS
TYPE
QPUSHO
TEMP2
QPUSHO
LEFT

IYES, GO PROCESS IT
IMAKE OPERANO STACK ENTRY
IFIRST TYPE THEN SYMBUL

IL.EFT SIDE ?
TAO
IYES, NO OPERATORS LEGAL
SMA el.A
QGETC
IL.OOK FOR OPERATOR
JMS I
JMP
ENOEXP lEND OF EXPR
C.. 52
1** IS SPECIAL. CASE
TAO
SZA
NOST AR INOT *
JMP
GlGErC
ILOOK FOR SECONU *
JMS I
NOSTAR
JMP
TAD
(·52
SNA CL.A
(13& .. 52 1** -> TAO
SNA
QBACK1 IPUT IT BACK
JMS I
(52
IRES TORE CHAR
TAO
TEMP
DCA
(OPRSRS-l
TAO
IPTR TO LIST
DCA
XU
xu
IGET OPt;RATOR PTR
TAD I
SNA
JMP
ENOEXP-3/t;ND OF LIST
NEWOP
ISAIIE IT IN CASt.
OCA
ICOMPARE
TAD I
xu
TEMP
UO
SZA CL.A
JMI'
OPRLUP IKEEP LOOKING
QPOP
JMS I
IGfT STACK TOP
SPIIA
JMP
IEMPTY
PUSH2
DCA
OLDOP
ICOMPARE PREC.
TAD I
OLOOP
CIA
TAD I
NEWO?
INEW-OLD
SPA SNA CLA
JMP
OUTOLO IOLO>Nfw
TAD
OLOOP
JMS I
10LO C NEW
QPUSH
TAD
NEWOP
IGO F'USH BOTH
QPUSH
JMS I
IGO LOOK FOR NEXT OPEHAND
JMP
UNOPH
IOUTPUT CODE FOR OLD OPR8H
TAD
OLOOF'
QOUTOPR
JMS I
JMP
GOTOPR ILOOK AT NEXT TOP OF STACK
Q8ACI(1 IPUT RACK NON OPERATOR
JMS I

PAl.S-VB

105/8 BASIC COMPII.EH

lU5
lU6

1&11
1U8
1Uli

1620
1621
162i!!
lUl

lft24
1U5

1&2&
tUT
U28
1f1n

1630
lEt]!

1&32
1&33
1634
1635
l&3b

02737
0274111
02741
02742
1112743
rn744
1!12145
0274&

02747
0i!750
1!Ii!751
02752
U753
02754
!al755

U75e.
02751
027&0
ea7'-!
0i762
027&3
U7U

•

10/30/12

PAGE 22-2

SKP
QOUTQPR IOUTPUT OPERATOR
JMS 1
ILOOK FOR STACK MAR~
IilPOP
JMS
1
ENDEXP,
SZA
ENDf.XP-1/NOT THIS
JMP
QPOP
IGET RETURN AODR
JMS I
UC
7001
TEMP
DCA
3021
QPOP
IGET LEFT SIDE SWITCH
JMS I
452i
Lt.fT
DCA
3030
IRETURN
TEMP
JMP I
5421
QERMSG IMISSING OPERAND
4473 MIURG, JMS I
1517
1517
IUOEXP
JMP
5T73'
0040 MINUS, 40,0, XUUB, lCSUB
0000
3761

1410
450f>
4522
74414
5141d
4522

1743

00514
111000
5557
6756

Sl.ASH,

50'0'XI01V,X01\1

•

105/8 SASIC

1&37

1&38

1&3CJ
1&4@
1641
1642
1643
1644
1&45
164&
1647
1&48
16n

02'1&5
02 7f.t tI
02 1ft 7
0i'170
02 '171
02'17 2
rU7U
02'1 '14
02775
02'17&
02717

16511J

11J]11J00

1&51
1fl52
1&53
1&54
1655
1&5&
1657
1658
U5CJ

03001
03002
1'IJ3003
03004
032105
0300&
03007
03010
03011
1'IJ3012
03013
UliU4
03015

16&0

1&&1
lU2

1&&3
1flU
1&&5
1&&&
16&7
1668
1&&9
1&70
16'11

1672
1fl73
1674
1&75
1&7f1

1677
1&18
1&7CJ
1&80
1&81
1&82
1&83
1&84
1685

1U&
1&87
1&88
1&89
1&90
1&91

03016

0301'1
03020
03021
03022
03023
03024
03025
121302&
03027
03030
Ural 1
0303i!
03033
03034

03035
0303&
03031
03040
03041
03042
03043
03o""
03045
0304&

PAL.S-VB

COMPII.EN
6047
0052
00&4

10/3~172

•

PAGE 23

I EXPRESSION ANAL. YZER (HANDLE SUBSCRIPTS)

.,.,2111

32100
313&
3122
0005
07.5
'171b
.,., 25
3000
03'17
7650
5205
452"

7711

102&

4521
1022
4521
1037
4521
7410
4S2i1!
7001
4521
4505
5315
4511
7132
005&
7&50

5242
4512
4524
7771
USb

"" 1&
137&
1051
4500
1133
1055
3414
7410
i!014
201"
4515
5315
5214

03047

45U

03050
03051

3021
452C!

PAGE
FUNSS,

AND
SNA

CI.A

JMP
JMS I
-I

TAO

JMS I
TAD

JMS I

TAD

(100111

lIS IT FUN CAL.L. 1

,+3
QUVAC

INO
IYES, SAVE AC

TYPE
QPUSH
TEMPi!
QPUSH
STPTR
QPUSH

ISAIiE TYPE
IANO SYMBOL NUMbER

lAND SYM80L TABI.E PTR
JMS I
SKP
QPOP
IGET ARG/55 COUNT
SSLOOP, JMS I
UC
QPUSH
I INCREMENT IT
JMS I
QEXPR
IGET NEXT ARG/55
JMS I
JMP
IUDFSS
QGETAI lIS THIS ARG(SS) AN AR!U'f ~EF ?
JMS I
CLio CML RTR
AND
ICHECK THE TYPE
TYPE!
SNA CI.A
JMP
NOTSSO INOT AN ARRAY REFERENCE
JMS I
QLOAOSS ILOAD THE SS REGS
QSAVAC ISAVE AC IF NEEDED
JMS I
-1
ISET THE MODE
TAD
TYPE 1
JMS I
QMODSET
TAD
(AFLOA ILOAO THIS ARG/SS
TAD
SYM6L.l
QOUTWRO
JMS I
Q400
15ET THE IN-AC BIT
TAO
MODE
IwE JUST CALLED MOOSET
TAD
OSTACK ICHANGE THIS STACK ENTRy
DCA I
SKP
OSTACK IFIX UP OSTACK
NOTSSD, ISI
OSTACI<
lSI
QCOMARP ILOOK FOR , OR )
JMS I
JMP
BADFSS INEITHER IS HAD
JMP
SSLOOP I, MEANS MORE ARGS/SS
JMS I
QPOP
IGET ii OF ARG/SS
TEMP
IG~T ARG/SS COUNT
~CA
QPOP
IRtSTORE S.T. AOOR
JMS I

•

PAL.S-Va

IOS/8 SASIC COMPIL.ER

1&92
1&CJ3
1&q4
1&q5
1&q&

1691
l&qe
16q9

1100
1701
1102
1703
1704
1105

110&
1107
1708

17!1lq
1710
1111
1112
1113
1714
1715
171&
1117
1'718
171q

1720
1'7ii!1
1122
1123
17ii!4
1125
172&
1121
1128
11ii!9
17321
1731
1132
1133
1734
1735
173&
1131
1738
1739
114121
171.11
1142
111.13
1144
1745
174&

•

03052
01053
03054
03055
03056
03057

3"-131
452C
3027
4522
3026

030&0

0311
1UIil
5775'
1021
11li!

03061
03062
030&3
030U
03065
030&&
03067
03070
03071
03072
03013
03014
03075
03076
03071
03100
03101
03102
03103
03104
1113105
0310&
03107
1213110
03111
03112
03113
03111.1
1213115
121311&
1213117
03120
01121
03122
1213123
1213124
rIl31i!5
0312&
03121
03130
03131
03132
03133
03134
03135
121313&
1213137
03140

102&

DCA
JMS I
DCA
JMS I

STPTR
QPOP
SYMBOl.
QPOP

DCA

TYPE

TAO

TYPE

AND

10/30172

PAGE 2,S-1

IGET tHoCK THE SYMtlOI. •
IGET BACK THE TYPI;
lIS IT AN ARRAY OR FUN REF' ?

( 1000

!IA CI.A

JMP
DOCA!..L. IFUNCTION REFERENCE
TEMP
IMOVE SS COUNT
TAO
IINTO THE CORRECT
CLL RTR
RTR
IFIEI.D
701i!
lAND SAVE IT
TEMP2
DCA
3022
CDF
6211
10
TAO I
IANY PREV REFERENCE ?
STPTR
1437
AND
(3000
0374
7440
SZA
JMP
NOTNEW IYES, GO CHECK NUMBERS
530111
IIF NONE, PUT IN NUMBER
TAO
TEMP2
1022
STPTR
TAO I
1437
DCA I
STPTR
3437
5304
Jf'lP
NOOK
ITMATS AI.L.
ICOf'lPARE NUMBER OF 55
1041 NOTNEw, CIA
IWITH ANY PREVIOUS
TAO
TEMPi!
U22
7U0
SZA CL.A
JMP
BADFS5+3/THEY DON~T MATCH
53a'"
COF
&201 NOOK,
TAO
IPUT TYPE
1026
TYPE
TAO
TEMP
lAND OXM COUNT
U21
QPUSHO IONTO ARGUMENT STACK
4523 ONSTAK, Jt-1S I
SYM80L.
112127
TAD
JMS I
QPUSHO lAND 5Yf'lBOL NUMBER
452.5
JMS I
QSAVAC ISAVE FIRST 55 IF LEFT IN AC
4524
.. 5
7713
JMP
OPR8R
IGO GET AN OP~RATOR
577.1'
IPURGE STACK JUNK
(" 4
137 i! BAOFSS, TAD
TAD
STACK
1015
DCA
STACK
3015
QERM5G IPUT ERROR MESSAGE
JMS I
41.11.5
2323
2323
QPOP
4522 BAOEXP, Jt-1S I
IL.OOK FOR STACK MARl<
7&40
SZA CL.A
JMP
BAOEXP INOT YET
5322
QPOP
JMS I
IRE TURN ADDR
4S2ii!
DCA
TEMP
3021
QPOP
JMS I
45U
ISS L.OAD SWITCH
~CA
312130
L.EFT
54~1
JMP 1
TEMP
ITAKE ERROR EXIT
1&54 WTAS,
-1241-101,-102,-50
7617

7&7&
7730
1030
7710

NOTVAR, TAD
L.EFT
SPA tL.A
JMP
MISARG
5771 '

IL.EFT SIDE ?
IYES, NO I. ITE~AL.S LEGAL

•

105/8 BASIC

1747
1748
174q

P'IlI
1751
1752
17'3
1754
1755
1756
1757
1758
175q

1760
17&1
1762
1763
1764
17&5

03141
0l14el
03141
03144
03145
0314&
03147
03150
03151
03152
03153
03154
03155
03156
1/13157
0316lll

03U1
0UU
03IU

COMPII.E~

PAL8"Va

10/30/72

•

PAGE 25"2

4Self»
JMS I
GlNUM8ER ILOOK FOR LITERAL
5350
JMP
NOTNUM INOT A NUMBER
JMS I
4511
CilLUKUP2 IS~ARCM LITERAL TABLE
25&2
LITRL
7775
-3
4770'
JMS
NEWVAR IIF NEW, GIVE IT NUMB~R
5307
JMP
ONSTAK IGO PUT IT ONTO T"E STACK
45i!7 NOTNUH, JHS I
QSTRING ILOOK FOR STRING LITERAL
577P
JMP
MlSARG INO, MISSING ARG
1134
TAO
WORD1
IGET -NUM8ER WORDS .. 1
7001
lAC
7170
CLL eML CMA RAR
3360
DCA
,.3
IFOR LOOKUP
4517
JMS I
QLUKUP2 ILOOK UP LITERAL
2564
SI.ITRL
1/1000
I/J
47&7'
JMS
NWSVAR IIf NEW, GIVE IT NUMBER
7130
eLL. CHL. UR
15fT TVPE BIT FOR STRING
5307
JMP
ONSTAK IPUT INFO ONTO STACK

•

PAL.8-ya

105/8 BASIC COMPILEH

17&~

1170

1711
1772
1713
1714
1715
17"

1777

1178
17n
1780
1781
17Bi!

1783

031&7
1/13170
03171
03172
UI73
03174
03175
031H
UIH

42n
4221
i75i!
7774
2&63
3000
320'"
U40

03i00
0lillJ1
03i02
U203
lIlli04
03205
0320.

1030

1184
1785
178&
1787
1788
1789
17~0

1791
1792
1793
1794
17~5

179&
1797
1798
1199
1800
1801
1802
1803
1804
1805
1806

1807
181118
1811'9
1810
1811

1813
1814
1815

1816
1817

1818
1819
1820

PAGE au

I EXPRESSION ANAL YZE~ (HANDLE FUNCTlON CALLS)

17.&
1761
1768

10/30172

•

01201

03210
UiHI
03212
032U
03214
1113215
rn2 1&
niH1

03220
01221
fIl3222
03223
U224
03225
03226
03221
f/J]230

1000

PAGE
L.EFT
DOCAL.L, TAD
SMA CI.A
7700
OUTCAL.
JMS
4210
SKP
7411/1
JMP
OPR8R
5771'
QERMSG
JMS I
4473
0622
0Uf!
JMP
BADEleP
571&'
0000 OUTCAI., 0
320~

1111 21
3336
4524
7775

133&
3134
4511
25H)
7171
5&10
1021
1021
7&40
5U0
4520
407fil

03i31

1'110

03232
03233
03234
03235
0323&
03237
03240
03241
03242
0l24l
03244
03245
0324&
03247
03250
03251
03252

6201
3021
7ln
005&
1021

71U
5U0
7l3i
0021
7U0
5253
105&
447&
1150
0021
1l1~

45013

TAO
DCA
JMS I
-3
TAD
PCA
JMS I
f'UNCTN
-1
JMP I

TAO
TAO

SYMBOL
FUNNUM
QUVAC

IGENERATE FUN CAI.L.r TYPE,
ISVMBOL AND TEMP ARE lNPUTS
ISAYE FUNCTION NUMBER AHOUNO SAYAC
ISAYE SECOND FROM TOP

FUNNUM ISETUP FOR FINDING FUNCTION
IINFO SLOCK
WORDI
QL.UKUP2 ION THE FUNCTION L.IST
OUT CAL
SYMBOL.
TEMP

SZA CL.A
JMP I
OUTCAL
QL.OAD
KOYARG, JMS I
SETFL,O
JMS

TAD I

lIS THIS I.~FT SIDE ?
IIF YES, FUN ILL.EGAL,
IGENERATE CALI.
ISKIP IF ERROR
IGO LOOK FO~ OP~RATO~
18AO FUNCTION ~EFERENCE

)(10

IUNDEFINED FUNCTION
ICHECK NUMBER OF ARGS

IGET TOP OF STACK INTO At
IGET FIEL.D OF FORMAL..PARA~S
IGET FIRST ONE

CDF
DCA
TEMP
ICOMPARE TYPE OF ARG
CI.L CMI. RAR
IWITH THAT OF FORMAL. PARAM~TER
AND
TYPE!
TEMP
UD
ITHEY MUST MATCH
SPA CL.A
CUTtAI. I (THEV DON-"
JMP I
ISHOUL.D wE I.EAYE IT IN THE AC ?
CI.L. CMI. RTR
TEMP
AND
SZA CL.A
JMP
OKINAt /yES, SAVES AN INSTRUCTION
ISET MODE
TAO
TYPE!
QMODSET IAPPROPRIATEL.Y
JMS I
13117
CLio eMA HAR
IGET SVM NUMBER
AND
TEMP
ISTORE VALUE IN FORM PARAM
TAD
(FSTA
QOUTWRO
JMS I

•

IOS/8 BASIC COMPIL.ER

lSi! 1
lUi!
lU3
18Z4
lU5
tU6
1827
1828
1829
U10
1831
1812
un
U]4

1115

1836
U37

1838
1839
184111
1841
1842
1843

1844

1845
1846
1847
1848
1849
1850
1851
1852
185]
1854
U55
1856
1851
U58
1859
18ft0
1861
lI6i!
1863
1864
1865
Uft6
18U
1868
1869
181111
1871
181i
1873

1814
1815

03253
03254
03il55
03256
03257
0326111
032&1

03iU
03i!U
IIJ]i!U
0Ji65
1IJJ266
1/J]2&1

1IJ]i!70
03271
1IJ]i!72
03273
03274
03275

1IJ]216
03217
0110111
1113301
03302
1/13303
1/13304
033es
03]1116
033e7
0]]10
IUl1l
03]U
03]13

0n14
11Il] 15
U]l6

03311
011i!0
0l3il
11I33i!2
033i!]
U3i!4
0Ui!5
n12ft
03321
n3l0
n331
n332
03311
033]4
03335
03336
03337
1113340

2027
5227
411170
1410

3051:1
6i!ll'll
1I/J21:1
1I/J56
17 lid
56U
4476
1134
7500
S3U
221111
4500
113J
1056
3414
3414
7130
005b

3055
5610
453il

1I/J 71
0374
7101313
4500
1010
1001

5271
11101/10
4505
53i!3
45U
US6

7700

PALS-V8
OICINAt, lSZ
JMP
JMS
TAO I
DCA
CDF

4500
U21
SUo

111000

Tau

30ftl

UIII

•

PAGE 2~·1

IMORE ARGS 1

IGET TYPE OF FUNCTION

TYPEl

I(ITS RESULT THAT IS)

HO
TAO

TYPE
TYPEl

lIS TYPE OF FUNtTION
ISAME AS TYPE OF tALL

TAO

TYPE1

SPA CLA
JMP I
CUTtAL INO, ERROR
QMODSET IAL.L CAL.LS IN N MODE
JMS I
ICHECK FOR USER FUNtTION
TAD
WORD1
SMA
JMP
CALL.UF IYES, DO SPECIAL CALL
FINeAL., lSI
OUTCAL. IFIX RETURN
JMS I
QOUTWRD 10UTPUT CODE
Q400
ISfT TOP OF STACK
UD
OSTAtlC ITO AC
DCA I
DCA 1
OSTAtK ISYMBOL NUMBER IS MEANINGLESS
eLL. CML RAR
AND
I INTERPRETER MODE SAME
TYPEl
DCA
MODE
lAS FUNCTION TYPE
JMP I
OUTeAL. ION RETURN
QNOREGS IFORGET REGS 0'" USER FUNC
CALLUF, JMS I
TAD
L.UFL.D
IOUTPUT JSUB
AND
(7111
IWITH POINTER TO
IDOUBLE WORD
CL.L. RTL.
HD
(JSUB
IVALUE OF LOCATION
JMS I
QOUTWRD ICOUNTER FOR THE
TAD
ISTART OF THE
XU
lAC
IUSER "O£'"II11EO FUNC
JMP
FINCAL.
FSUBS, III
IFOR SUBROUTINE '1
QEXPR
JMS I
IGET AN E~PRESSION
JMP
BADFOR
JMS I
tilL.OAD
IL.OAD VALUE
TAD
TYPES
IMUST BE NUMERIC
SJoI' eLA
JMP I
FSUst
10K
SADFOR, JMS I
QERJoISG 18AO FOR LOOP PARAJoIETERS

5714
44U
06U
5510
011100 FSUB2,
4314
471i'
U27
1315

SYMBOL
MOVARIi
SETFLD

10/30172

aU0

JMP I
0
JMS
JMS

TAD
TAO

JMS I
TAO
JMP I

QREMARI<
IFOR SUBROUTINE '2
FSUB1
IGET EXPR ANO L.OAD IT
GENTMP IMAKE A TEMP FO~ IT
SYM80L. ISTORE EXPR IN TEMP
(FSTA
QOUTWRD
SYMBOL. IRE TURN SL.OT .,
FSUB2

FUNNUM,
NOREGS, 0
eL.A lAC
DCA
IFNREG

IFORGET REGISTOHS
IFILE NUMBER REG

•

PAL.S-VB

IOS/8 BASIC COMP I1.EM
1816

1817

I
I
I

1818
18'79

1881
18sa

!/l3341
U34c
03343
!/l3344

1884
1815

03346

188!/!

t81&

03345
03347

•

573E»

4474 CLOSE,
7201
4171 '
1370

4511HII
551117

10/30/72

PAGE 24-2

ISUBSCRIPT REG #1
CMA
SSREGl
DCA
ISU8SCRIPT HEG '2
CMA
SSREGc
DCA
NOREGS
JMP I
QL.ODSN lOUT PUT 5TMT NUMBER
JMS I
INO COL.ON NEEDED AFTER FILE NUM
CLA lAC
IGET FlU NUM
GETFN
JMS
eCL.OIEF IOUTPUT CLOSE
TAD
QOUTWRD
JMS I
QNEwl.IN
JMP I

•

PAL8~V8

IOS/8 BASIC COMPI~ER
1881
1888

1213310

1434

1889
18 9 0

03311

iH 11
42n

1892

1893

03314
03315

1894
1895

033Ht

G'l070
2400
3Ui!

1213311

l.U]

03400
03401
03402
UU3
03404
03405
03406

00210

1891

189f)
1897

1898
1899
1900
19211
1902
190]
1904
1905
191216

1901
1908
1909
1910

1911
1912
1913
1914

1'HS
1916
1911
1918
1919
19i0
1921
1922
1923
1924
1925

03312
03313

03410

03411
03412
0]413
031U4

03415
0341&
03411
03420
03421
03422

03423
03424
03425
0342&

03421

3010
11.11 ra
1540
5314
3026
1317
3353
14lfil

3354

14Ul

335&
102&
4416
1144

1014
3014
1011,j
3010
11.110

03430

031&

3021
1357

1213433

013l
7&40

1921

03434
03435
0343fl

1928

1U437

1929
1930
1931

03441
03442

1926

03440

TAO

DCA
TAD I
DCA
TAO I
DCA
TAO

AND
DCA
TAO

5256
113i1!
0351

1650
5245
4SiC

1932

01443

193]
1934
1935

03444

2355
235&

1U445

4311

03446

105&
1&40

1938

03447
03450
03451

1939

03452

1940
1941

03453

1755
13&1/1

03454

4500

1936
1931

PAGE
10UTPUT CODE FO~ OPERATOR
OUTOPR, 0
DCA
)(10
ISAVE POINTER TO SK~I.ETON
IGET CONTHOL. WORO
TAD I
XU
SMA SZA
JMP
SPCUL. ITREAT AS SPECIAL CASE
DCA
TYPE
IITS THE TYPE AL.LOWANCE
TAO
(XLOAD IGET SKEL. AODRS
DCA
CASEMM IFOR THE THREE CASES
TAD I
)(10
DCA
CASEMA
TAD I
)(l0
DCA
CASEAM
IENTER CORRECT MODE
TAO
TYPE
JMS I
GMOOSET
IGET THE SECOND OPERAND
CL.L. CMA lUI.
TAD
OSTACK
DCA
OSTACK

3351
1410
33&0
1357

03431
03432

•

PAGE 2S

500111

340111

03401

CODE GENERATOR

10130/72

A20K,

0133
53121&

MM,

OSTACK
)(10

)(10

IBY BACKING UP THE STACK
ITYPE

TYPEr?
)(10

SYMBI.2
TYPE2

ISYMBOL. NUMBER

TEMP
TYPE2

ISS COUNT
ILOOK AT OPERAND 2

AND
QU0
SZA CL.A
JMP
MAC
IMUST BE CASE M,AC
IITS IN MEMORY, IS IT SS~l)
CI.L.. CMI. RTR
AND
TYPE2
SNA CL.A
JMP
AeDK
INO, ITS SCALAR
JMS I
GL.OADSS IL.OAO NECESSARY SS REGS
JSZ
CASEMM IFIXUP THE SKELETON POINTERS
ISZ
CASEAM
IGET STUF FOR ARGl
JMS
GETA1
TAD
TYPE 1
IL.OOK AT IT
AND
QI,j00
SZA CL.A
JMP
AeM
IITS CASE Ae,M
TAD I
CASEMM IITS CASE M,M LOAD OPERAND 2
TAO
5YMBI.2
JMS 1
QOUTWRD

•

PALS-V8

IOS/8 BASIC COMPII.ER
1942
1943
1944

1945
194&
1947
1948
1949
1950
1951
1952
1953
1954
1955
19511
1951
1958
1959
19110
19&1
19&2
1963
19&4
1965

03455
0345&
0]457
034&0
1/134&1
034&2
1/13463
034&4
1/134&5

19&6

1CUI 7
19U
1969
1910
1971
1972
1973
1971
1975
19711
1917
1918

1979

198121
1981
1982
1983
1981.1
1985
1986
1981
1988
1989
199121
1991
1992
1993
1991.1
1995
1996

•

0]4bb

034&1
03470
U871
03872
03413
IU474
1213475
034111
03477
03500
03501
03502
03503
03511J1
03505
121350&
03507
03510
03511
0351il!
03513
03514
03515
1IJ351 "
1213517
03520
rIll521
03522
03523
rIll524
U525
035211
1213527
0351r1l
03531
03532
03533
03534
03535
121353"
03531
0354121
03541
0351.12
03543

74U
4311
lUi!

11105&
7&50
5265
4512
2354
1754
1057
451110
7130
005&
1357
7711/l
5311
1111 2&
1056
nUl
5311
1133
11112&
3411.1
3414
5&r1l111
17511
13"V'
52ft1

4413
1524
5600
1410
3021
54i!l
12101210
1141.1
101 "
3014
Ut4
3Ul
11.111
305b
1411
312151
1056
12137&
3I1J 21

5711
4524
1775
4520
311J2b
3351
137~

52&7

10/30172

PAGE 25-1

SI(P
IGET STUF FRO ARGI
GETA1
JMS
lIS IT 5S'0 .,
CL.L. CML. RTR
AND
TVPE1
SNA CL,A
Al01(
INO, ITS SCAL.AR
JIIlP
(ilL,OADSS IL.OAD THE 55 ~EGS
JIIlS I
CASEMA ISUMP SKEL.ETON AODR
lSI
CASEMA IGET CORRECT INSTRUCTION
TAD I
Al0K,
SVMBL.l IPL.US SYMBOL. NUMBER
TAO
(ilOUTWRO IOUTPUT IT
TVPCHK, JMS I
lTV PES OF OPERAND5 MUST MATCH
CL.L. CML, RAR
AND
TYPEl
TVPE2
TAD
SPA CL.A
/THEY DON'T
MIXED
JMP
/TYPE OF OPERATOR
TAO
TVPE
IMUST MATCH
TAD
TVPE1
/THAT OF OPERANDS
SPA CL.A
ITHEV DONQ
JMP
MIXED
Q40r1l
IGEfliERATE STACK ENTRY
TAD
TVPE
TAO
OSTACK
DCA I
OSrACI( /THIS IS SAFE
DCA I
JMP I
OUTOPR
CASEAM IITS CASE AC,M
TAD I
ACM,
SVMBL,2 IGEN OPERATION FOR OPERANO ~
TAD
JMP
TVPCHK IGO FIIIII5H IT UP
QERMSG IMIXEO TYPES
MIXED, JMS I
1521.1
JMP I
OUTOPrc
IGET AOOR OF SPECIAL. RTNE
XU
SPCIAL., TAO I
I(PL.US 1 FROM THE TYPE \liORD)
TEMP
DCA
IHANDL.E SPECIAL CASE
JMP I
TEMP
IGET STUFF FOR ARG 1
GE TA1 , 121
ItUCK UP STACK
CL.L C/IIA RAL.
OSTACK
TAD
DCA
OSTACK
OSTACk
TAD
DCA
Xll
)(11
IGET TYPE1
TAD I
TYPE1
DCA
IGET SVM8L.l
TAD I
x11
DCA
SVMSL.1
TYPEl
IGET 88 COUNT
TAD
AND
(3
DCA
TEMP
JMP I
GETAl
QSAVAC ISAVE CURRENT AC IF NEEDED
UMRTIIIE, JM8 I
-3
QI,.OAO
IGET ARG IN AC
JM8 I
ITVPE MUST SE NUMERIC
TYPE
DCA
DCA
TYPE2
100 NEGATE
TAD
CFNEG
TYPCHI<
JMP

MAC,

•

IOS/8

BASIC COMPtLEM

1991
1998
1999
201210
2B01
2002
2003
201114
21/11115
201/16
2007
2008
211109

03544
03545
1113546
03547
03550
03551
03552
03553
03554
U555
U5S6
1/13557
1/13560
03561
035fti!
U5U

ZUlli

211111

21112
2013
2014
2015

211116

03564

03565
IIlSU
IIlSft7

302&
7U&
311Ji! 1
137"
3027
4773'
5311
5600
01110111
000(1)
1/1000
1/100111
000111
4474

441'

un
1371
U70

451110
55117

PALS-va

10/310172

•

PAGE as-2

EXPRTN, DCA
TYPE
ISET FUNC TYPE
IS~T NUMBER OF ARGS
CI.L CMI. ~TL
DCA
TEMP
TAO
(FUNC1+&0
DCA
SYMBOL. IEXP2
JMS
OUTCA!. lOUT PUT FUNC TI ON CAL.L.
JMP
MIXED
IERROR
JMP I
OUTOPH IDONE
CASEMA, III
CASEMM, IIJ
CASUM,

TYPE-i!, 0
SYMBI.2, 0
RETURN, JMS I
JMS I

TAD

RANDOM, TAD
STOPX, TAD
JMS I
JMP t

Q!.OD5N IOUTPUT 5TMT NUM LOAD
QMODSET IALWAVS RETURN IN N MODE
(RET-RNOO
(RNDO-STOP
(STOP
IRETURN, RANDOMIZ~, OR STOP
QOUTWRD
QNEwLIN

•

PAL.8 .. V8

105/8 BASIC COMPIL.EI'

211117
2018
2019
2020
2021
211122
2111i!3
2024
2025

usn

0351'1

03515

U0J

usn
03516

03577

2UII

20Z1
2028
2029
i!030
2Ui
203Z
20ll
2U4

2055

2036
2111lT
2038
2039
2041/1
Z041
2042
2043
2044
2045
2046
2047
2048
2049
2050
20'51
2052

03UIII

03601
03&1112
0361113

0lU4
036l1li5
U1I0t!
031107
03&10
U6U
03U2

•

011103
0HIIl
3f100
I!I 0111 0
451112
5U18
1371
7500
5214
13111

0lU0

75U
5i14
0315
2i!00
5600
45ZS
5U0
00011l
4502
5U'
1314
711/l1ll
1313
7420
5230
2iU&
5rtt&
4525

03631

SUo

nU3

UU4
031115
UU6
031117
UU0
031121
UU2
03&23
03&24

031125
0l&i!1I

03627

PAGE 2b

I LETTER AND DIGIT SCANIIIERS

7U1
7760
11&3
3210
741t!

03571
03572

10130172

PAGE
LETTER, 21
JMS I
JMP I

ISKIP ON L.ETTt:R

TAD

QGETC
L.ETTER
("133

TAD

NOLETR
(131-100/MUST BE .GT. lii)0

SMA
JMP
SPA
JMP
AND

ISZ

JMP I
NOL.ETR, JMS I
JMP I
DIGIT, 0
JMS I
JMP I
TAD
07100, CL.L.
TolD
S/lli.

JMP

lSZ

JMP I
NODIGT, JMS I
JMP I

NOL.ETR
(71

L.E TTER
L.ETTER
QBACl(l
L.E TTER
QGETC
DIGIT
( .. 72
(72-&0
NOOIGT
OIGIT
DIGIT
QBACKl
DIGIT

INO LETTER
IMUST BE .L.T, 133

IRf.STORE & BITS
IBUMP RETURN AOOR
IPUT CMAR BACK
ISKIP ON DIGIT
INO DIGIT
IMUST BE .L.T. 72
I(USED AS L.ITERAL. BY "TTY")
IMUST BE .GE. &0
INOPE
IRETURN DIGIT MINUS &0
IPUT IT BACK

•

I
105/8 BASIC COMPIL.ER

20S3
2054
2055
2056
2057
2058
211159
2111610
2061

20U
2064
20615
2066
2067
2068

ze ..
2070
2071
Z1!172

2BU
2I/J74

2BTS
211176
2077
2078
2019
2080
2081
2U2

zeal
211184

21/185
2086

2U1
2088
2089
2090
2091
2092
211193
211194
211195
2096
2097
211198
2099
2100

2101
2102
2103
2104
2105

aut.
2107

0lUi
n61 3 3
111361 34
fill 6 35
03&36
1113637
nU0
n641
1113642
n643
1/13644
U645
05&46
UU7
03650

03651
anSi!

03U3
1IJl654
1Dl6l55
03656
nU7
1IJl660
03661
0366l

03663
03664
03665
03666
GIlU7
1/1367111
03671
!IIl67i!
1113613
!IIl674
03615
1/13676
036171
03700
1/I37U
0370i!
03703

03704
03705

037 Be.
11131141
1431l1i1
01111
03712
l1131t3
1/JJ714

0000

3021
4531
SUi
3135
1135
7104
U7i
UTi

223e!
1371
3022
3134
4531
5271
3136
1371
3U7
1U5
7104
3135
1134
7004

3134
iH37
5254
1135
1116
3135

2Ui!
5247
4511
IIIlIIlIIrD

7176
531'

7U~

01i121
GlUI

7640
5325
10U
31112i!
40hl
111121

1027

3422
6201
UTi

0370
110'

3021

03115

SUI!!

03716
1113717

4010
1111 i! 1

PALS-Va

10/30172

•

PAGE a7

I STATEMENT NUMBER GETTtR
IGET A STATEMENT NUMBER
SNUM,
0
ISAVE DEFINED SwITCH
TEMP
DCA
QOIGIT IGET FIRST DIGIT
JMS I
INO STATEMENT NUMBER
JMP I
SNUM
ITHIS WILL BE THE BUCKET
DCA
WORDi
TAD
WORD2
/TWO WORDS PER BUCKt:T
CL.L RAL.
(SNUMS
TAD
DCA
BUCKET
10K, ITS A STMT NUMBER
SNUM
lSZ
(e4
IFIVE DIGITS MAX
TAD
DCA
TEMPi
ICLEAR TOP WORD
DCA
WORDt
QDIGIT IGET NUT DIGIT
SNLOOP, JMS I
lEND OF NUMBER
JMP
GOTSN
~CA
ISAVE IT
WORDl
(e4
ISET SHIFT COUNT
TAD
ACO
DCA
ISHIFT LEFT ONE BIT
SHIFT, TAD
WORD2
CLL. RAI.
DCA
WORD2
WORD1
TAD
fUL
wORD1
DCA
ACO
IBUMP SHIFT COUNTER
lSZ
J14P
SMIFT
IPUT IN NEW DIGIT
TAD
WORD2
WORD3
TAD
WORD2
DCA
TEMPi!
ISUMP DIGIT COUNT
ISZ
JMP
SNLOOP
QLUKUP2 IFIND STMT NUM8ER
GOTSN, JMS I
BUCKET, III
.. 2
NEWSN
JMP
IITS A NEW STMT NUM
ICHECK FOR MUL TIPLV DEFINED
CLio CMI- lUff
SVMBO,AND
AND
TEMP
alA CLl
JMP
MOI-ASL IYES, IT 15
)(10
IGET ADDR OF LABEL. VALUE
TAD
DCA
TEMP2
IGET TO FIELD OF ENTRY
JMS
SET~LD
lOR IN THESE BITS
TAD
TtMP
TAO
SYMBOL
DCA I
TEMPi!
FINSN, COF
IGET FIELD BITS
TAD
LUFLD
( 7111
AND
CLL. RTl
IINTO A CONVIENIENT
TEMP
DCA
JMP I
IPLACE
SNUM
NEwSN, JMS
SETFLD IGET FIELD
TEMP
IPUT IN 8ITS
TAD

•

l$d.

PALs-va

105/8 BASIC COMPILER

2108
2109

2110
2111
21U

2113
2114
2115
2116
2117
2118

2119
2120
2121
2U2
2123

2124
cH&!5

2126
2121
2ua
2U9

2!10
2111

fill 7 20

31161

DCA I

03721
03722
nU3
03724
03125
0372&
03127
03730
03731
03132
1/13733
03134
03735
03736
03737
01740
03741

1016
302i
3416
5311D

TAO

03742

03743
03744
03145
057U
05741

1504
5632
00.HII

DCA
DCA I
JMP
,.,0I..A81., JMS I
1504

JMP I
TTY,

0373

NEXT
TE,.,P2
NEXT

FINSN
QERMSG
SNUM
(77

TAD

SPA

(-40

751i/J

ta2c

TAD
TAD

07100

1361
136ft

4340
51316
000111
7411/1
534e.
&041
5343
6046
72016
514IQ

JMS
JMP I
TTX,

(240
TTX

TTV

SKP
JMP
TSF
JMP

TLS
eLA
JMP I

PAGE 27-1

AND

10/30172

.+4

ISAVE N3 ADOR
11 UTRA WORD

IMULTIPLY DEFINED
IL.ABEL
ICONVERT TO ASCII AND P~INT
ISIX BITS OIllLY
IWHAT SIDE OF FORTV ?
ILOW SIDE
IHIGH SIDE
IPRINT CHAR
IRETURN
IPRINT CHAR 0111 TTY
I (CONTROL a ZEROES ,THIS WORD)
I(THUS KILLING ERROR REPORTING)

.-1
TTX

•

10S/S BASIC COMPILEk
i!13i!
2113
2U4
2llS
2U"
2111
2118
2139
214111
2141
2142
2143
2144
2145

0]750

03151
0315a

03153
1U154
U755

111375.
"3751
037."
037"1
0l7U
037ft3

1U7U

4414
4505
5511/1
452111
U5 ft

17111111
4413
0616
13.5
4500
5507
30"~

U00

PAL.S-Va

10/30172

•

PAGE 28

/ CHAIN PROCESSOR
QL.ODSN IOUTPUT STMT NUM8~R
CHAIN, JMS I
QElCPR
IGET CHAIN STRING
JMS 1
QREMARI<
JMP I
QLOAO
IINTO SAC
JMS I
/TYPE MUST BE STRING
TAD
TYPE1
SMA eLA
QERMSG lIT WASN'T
JHS I
ICOK IF ERROR CODE IS NOP)
!!lEtt"
IOUTPUT CHAIN QPCODE
CCHN
TAD
QOUTwRO
JMS I
QNEWL,lN
JMP I
lCIsuB, FnUB, AI SUB

•

f
PAL,s-va

105/8 BASIC COMPIL.EH

214&
2147
2148
2149
2150
2151
2152
2153
.HS4
2155
U5&
2157
i!l58
2159
21&0
iUU

2163
2U4
2U5
21&6
2161
21U
21&9
2170
2171
21U
2173
2174
2175
217&
2177
U78
2179
2180
U81
2182
2183
2184
2185
218&
2187
iB88
218~

21ge
i191
i19i
i!19;S
21q4
2195

219&
2191
2198

iHqq

•

2200

12137&5

037&6
12137U
01770
1/13711
1213772
1213773
03774
1213175
0377&
03777
041110111
04001
0401212
121411J03
0411J1/J4

0411105
1/141110&
I/I4I1J1/J 7
0412111/1
121412111
0412112
0412113
fll412114
0412115
1214016
04017
04020
0412121
0412122
0412123
0412124
0412125
04026
1114027
1214030
111412131
04032
04033

1/141/134
1214035
0403&
04037
04040
1214041
0404i!
0412143
04044
04045
121412146
04047
1214050
04051

10/3~172

PAGE aq

SEVE!UL, SHORT UTIL.ITY ROUTINES

7414
024111
77411J
QlIII7fIl

1774
253&!
12101c
170&

121017
01213.5
1&45
41210"
001210
1240
102fjl
311120

7240
11111 7
311117
5&00
12112100
21212"
521&
124kl
312121/1
561111
2210

1411

5611D
001210
1020
336S
1017
33&&
5&21
011100
136&
3017
1365
30216
5621

11100"
20irD
5i43
1240
311J20
563~

1411

1377
7450
S23fJ
137&
223~
563~

PAGE
0
CL.A CMA
NCHARS
TAD
DCA
NCHARS
eLA eMA
CHRPTR
TAD
OCA
CHRPTR
JMP I
SACKI
GETCWB, 121
NCHARS
ISZ
JftlP
.+4
CL.A CftlA
NCMARS
DCA
JMP I
GETCwS
GETCWB
lSZ
CHRPTR
TAO I
JMP I
GETCW"
SAVECP, 0
NCHARS
TAD
II/CSAVE
DCA
CHRPTR
TAD
DCA
CPSAVE
JMP I
SAVECP
RESTCP, 121
CPSAVE
TAO
CHRPTR
DCA
TAD
IIICSAVE
DC,A
NCHARS
JMP I
RESTCP
0
GETe,
IIICHARS
lSZ
JMP
.+4
CLA CMA
DC,A
NCHARS
JMP I
GETC
CHRPTR
TAD I
(-40
TAD
SNA
JMP
GETC+l
(40
TAD
Gf.TC
lSZ
JMP 1
GETC

8ACK1 ,

IBACK UP ONE CHAR

IGET A CHARACTER (PRESERVE BLANKS)

IRESET NCHARS
IGET THE CHAR
ISAVE CHAR POSITION

IRES TORE CHAR pos

IGET A CHARACTE~ (IGNORING ~LANKS)

lIS IT A BLANK
!YES IGNORE IT

IF IX CHAR

•

105/8 BASIC

2201
2202
2203
221U
2205
U0&
i!i!07
2208
2209
2i! 1111
2211
22ti!
2213
2214
2215
2216
2211
22lS
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2212

1214052
04053
0.054
04055
0405&
04057
040&0
1/140& 1
040&2
040U
040&4
04065
04066
040U
04010
04071
0401f!
04013
04074
1/14075
04016
04077
04100
04101
04102
04103
04104
04105
214106
04107
04110

2233

041U
04113
04114
04115
0411&
04117
04U0
04121
04U2
04123
04124
04125
04126
041i!1
04130
04131
04132
04133
04134

2234
2235
2C!36
2231
2238
22]9
2240
2241
2242
2243
2244
2245
224&
2247
2248
2249
2250
2251
2252
2253
2254
2255

lUlU

04135

2141U
04131

041411l

PALS-Va

COMPl!.E~

0000
101 !oS
32&2
7i40
1015

3015
lU2
5&52

o1/11 WI

1415
U75
111115
7710
5&6i
44U
2004
540&
15000
3414
1374
1014
7711/1
561.5
5210
0001/1
4502
571a1!

7450
2302
7440
137i
745111
2302
1641/1
4525
5102
0021111
4511
U5E!
447&
105&

0133

1&40
5117
713i
005&
7&50
5]15
451i
1371
1310
U57
4500
5711

10/30172

•

PAIiE 29-1

IGET TOP OF STACK
STACI(
TAD
DCA
PUSH
C!.A CMA
STACK
TAD
IDEC~EMENT STACK POINTER
DCA
STACK
PUSH
TAD I
JMP I
POP
IPUT AC ONTO STACK
PUSH,
0
DCA I
STACIC
ISTORE
TAO
C-STACKA-STAKSZ+l
ICHEC~ FOR OVERFLOw
STACK
TAO
SPA CLA
10K, RETURN
PUSH
JMP I
IilEMMSG
STKOVR, JMS I
2004
JMP I
UBORT IABORT COMPILATION
IPUSH OPERAND STACK
PUSHO, 0
DCA I
OSTACK IPUSHIT
C-STACKO-STOKSZ+l
TAD
TAO
OSTACK ICHECK FOR STACK OVERFLOW
SPA C!.A
JMP I
PUSHO
JMP
STKOVR /TOO FULL
ISKIP ON COMA O~ RITE PAREN
COMARP, 0
JMS I
IilGETC
IGET CHAR
COMARP
JMP I
TAO
(-51
SNA
COMARP IRITE PAREN, SKIP 2
ISZ
IU
TAO
(51-54 ICHECK FOR ,
INA
COMARP I, SKIP 1
ISI
SU CLA
JMS I
IilBACKl INEITHER PUT lUCK
JMP I
tOMARP
LOAD,
0
ILOAD SAC OR FAC
QGET A1 IGET TOP OF STACK
JMS I
HD
TYPEl
ISET MODE
JMS I
IilMODSET
TAD
T'fPEl
lIS IT IN THE AC?
AND
1il400
au CLA
JMP I
LOAD
IYUP
ISUBSCRIPTED ?
C!.!. CML RTR
AND
T'fPE 1
SNA C~A
JIIIP
,+3
INO
JMS I
Q!.OADSS IFILL SS REGS
TAD
(AFL.DA-FLOA
(FLOA
IARRAY OR SCALAR LOAD
TAD
TAO
SYMBLl IPLUS SYMBOL NUMBER
JMS I
IilOUTWRD
JMP I
~OAD
POP,

•••

PALS-va

IOS/8 BASIC COMPIL.ER
225&
2257
2258
2259
2260
22&1
22U
2263
2264

2265
22&&
li!"

22&8

2ln

2U0
2271
2272
227]
2274
2215
227&
2277

04141
04142
04143
04144
04145
0414&
04147
1114150
04151
04152
04153
1214154
04155
04156
04157
041611J
04161
04162
041ft]
04164
041&5
04166

•

10/30172

JNE,-147&

Ie>

5003

JNE'-1&7~

I>e

500i
020i
5002

JGE,-757&

1-"

JGE,-7675

/7--

JLE,-7574

/_e

JLU .. U75

/e_

0
JEIH-7500

JGT,-7f1il0

JL n-7400

5003
0302
0104

0103
5001
0104

5007
0303
0000
5r110ft

0300
500~

21200
500~

0400
00fala
00fU
0000

IFOPS,

PAGE aq-a

0
NCSAVE,
CPSAVE, 0

•

PAL8-V8

IOS/8 SUIC COMPII.EN

2278
2279
228121
2281
2282
2283
2284
2285
228&
2287
2288
2289

2290
iZ91

2292
2293
2294
2295
229ft
2291
2298
229.
2300
UIU
2302
231213
23QJ4
2305
230ft
2301
2308
230IJ
2310

2311
2312
2313
i!314

2315
231&
2117
2318
2319
23U

2121
2322
2323
2324
~325

23Z"
2327

i!]i!8

i]i!9
2330
2331
2332

U'l/30172

•

PAGE 3f/!

I TEMP GENERATORS AND At SAilING ROUTINES

04170
04111
04172
04173
04114
04115
0411"
04171
04200
04201
042U
0420]
04204
04205
0420"
04201
lil4i10

04211
04212
04213
04214
04215
0Ail"
04217
04220
04221
04222
04223
04224
04225
0422"
04227
0Ai]0

04i!31
04232
04233
04234
04235
04ll"
04237
04240
04241
1/14242
04i4]
1/14244
04245
1/14 ii! 4"
04247
lil4i50
1/14251
0425~

04253
lil4i54

2000
4"40
1775
lH7
"U1
0U1
0040
77a11J

4200
00021
16414

P.GE
GENTMP, 0

SZA CL.A

JMP

SiB]

TAO

1033
2033

lSI
~CA

3134
4517
255"

JMS 1
TEMPS
-1
JMS
JMP 1

7717

422l
5600
1035
2035
3134
4517
25&0
1717
423&
S600
0000
10414
1377
312127
1027
40111)
341&

STRTMP, TAD

lSZ

DCA
JMS I
STEMPS
-I
JMS
JMP I
NEWVAR, 0

577'"

IZI000
1041
1377
3027
1027
341&
fli!1II1

&!041
5&3"
511&'
001/10 SAVAt,
1651
1014
2iSl

NEWVAR INEW ONE ON ME
GENTMP
STMPCT
STMPCT IBUMP COUNT
NAME1
QL.UI<UP2 1L.001< UP THIS TEMP
NItISVAR
GENTMP
VAReNT
(401
SYMBOL.
SYMBOL.
Sf.TFL.O
NEXT

lSZ

VAReNT
NEWVAR
STOVER

TAO

SVCNT
(401
SYMBOL.

JMP I
JMP
NWSVAR, 0

4070

STRTMP IITS A STRING TEMP
TMPtNT
TMPtNT IBUMP COUNT
NAMEI
QL.UKUP2 1L.001( UP THIS Tl::MP

TAO
TAO

DCA
TAD
JMS
DCA I
COF

U01

212140
5&2.5

IGENERATE A TEMP

TAD
DCA
TAD

JMS
DCA I
tOF

lSZ

JMP I
JMP
0
TAD 1
TAD
ISI

INEW STRING TtMP
IMAKE SYM iliUM FOR VAR
IPUT SYM NUM
IINTO SYMBOL.
lAND INTO ST ENTRY

IBUMP COUNT
IRETURN WIT~ SYM NUM
IS.T. OVERFI.OW
IMAKE SYM NUM FOR liARS
IPUT SYM NUM

SYM80L.

11NTO SYMBOL, AND

IS.T. ENTRY

SVCNT
NWSVAR
STOVER

IOVERFL.OW ?
INO, WE'RE 01<

SETFL.O

SAVAC
OSTACK
SAVAC

ISAVE FAC COR SAC) IF
IGET ENTRY POINTER

NECESSA~Y

105/8 BASIC COMPII.EH
2333

2334
2335
23l&
233'7
2338
2339
234111
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
i!353

2354

•

2t4i!55
0425&
04257
l114i60
04i!61
04262
04263
1114264
042&5
04266
2t4i!67
1114i!70
04i!71
04iTi!
04i!73
04274
04&!75
04176

04271
1Il431Z0

04301
04302

3300
1700
0133

7650
5651
7130
0700
3"'0
1701i1
4211114
170111
4476
1301
1027
4500
10i!1
2300
3700
5651
0000
241/10
60700

PAL,S-V8
DCA

TAD I

SVTEMP
SVTEMP
Q400

10/.50172

PAGE 30-1

IAOOR OF TYPE WORD
IL.OOK AT IT

AND
SNA CL.A
JMP I
SAVAC
INOT IN AC
CL.1. CML RAR
ISAVE STR ING BIT ONLY
AND I
SVTEMP IOF TYPE WORD
DCA I
SVTEMP
SVTEMP
TAD I
JMS
GENTMP IGENERATE TEMP
TAD I
SVTEMP
JMS I
QMODSET ISET MODE
TAD
)(sTOR
TAD
SVMBOI. IGENERATE STORE
JMS I
QOUTIIIRD
TAD
SYMBOL, IRE TURN S.T. NUMBER
SVTEMP IMOVE TO SYMBOL. NUM WORD
ISI
DCA I
SVTEMP ISAVE THE TEMP filUM THER~
JMP I
SAVAC
IRETURN WITH SAVE MADE
SVTEMP, 0
UTOR, FSTA'AFSTA

•

105/8 BASIC

2355
2356
2351
2358
2359
236111

2362
23ft]

nu
2365
U66

2367

uu
un

231111

nl1

23T2

2313
2314
2315
2316
2311

2311

nee

nil
nil
2383
2314
UIS
2386
23111

2318

2)89
239111
2391

u9a

239]
2394

2395
23'6

PALS-VB

COMPI~EH

1111/30112

•

PAGE 31

I SUBSCRIPT REGISTEH LOADING ROUTINE
04303
043IU
04115
1114:s16
111431111
111431111
04311
IIIOU
04]13
114]14
1114315
114116
1114311
1114U0
114321
043i!2
04311
I43U
114325
1114326
1114321
114330
04331
1114]]2
1IJ4J3]

01UJlII

1144

111121
7nlll

5314

53U

4323
STU
Ull
4113
4]23
57113

2U!

5711J]
1000
3I1Ji2

7144
UJl4
]U4
lU4
]0U

1411
7511/J

04334
04335

snra

1IJ4]36

1641/J

1114331
04340
04341
04342
04143
1114]44
14345
114346
1114341
1114350
1114351
1114]52

5]41

IIJ1 ]:5

llii
7648
137~

UTI!
141&
45111ra
5TU
102i

451/J1/J

5TU

l.OAOSS,

111

eLL CMA RAL
TAD
TEMP
INA CI.A
JMP
LODSSi!
SNL
TOOMNY
JMP
SSLOAD
JMS
LOADSS
JMP I
LODsn, CLA lAC
$SLOAD
JMS
SSLOAD
JMS
LOADSS
JMP I
SSTYP!,
QERMSG
TOOMNY, JMI I

1.0A08&
JMJI I
SSLOAD, I/J
TEMPi!
DCA
CLL CMA fUL
OSTACK
TAD
OSTACK
DCA
TAD
OSTACt<
DCA
XU
TAD I
Xll

IPA
JMP

SSTYPE
1i1400
AND
llA CLA
SSINAC
JMP
TEMPi!
TAD

ILOAO SS REGS
II.OO~ AT NUMBER OF S5

12 SS
IMORE THAN 2
ILOAD SS REG 1
IL.OAD 55 REG 2
INOW S5 REG 1
ISUBSCRIPTING ERROR
ILOAD A SS REG FROM TOP OF STACK
ISS REG 1 OR i! SWITCM
IBACK UP ONE ENTRY
ION THE OPERAND STACK
IUSE XII TO GET STUFF
IGET TVPE WORD
ISS MUST BE A NUMBER
IGET At BIT
IITS IN THE At

SZA CLA

TAD
TAD

TAD I
JMI I

JMP I
SSINAC, TAD
TAD
JMI I
JMP I

(L.SS2"LSSl
(LSSI
ILDAD REG 1 OR 2 77
XII
IANYHOW, THIS IS THE SOURCE
QOUTWRD IOUTPUT THE COOE
SSL.OAD
TEMPi
(LSS1AC I~OTEI LSS2ACaLSSIAC.l
QOUTWRD ISO OUTPUT ONE OF THEM
SSL.OAD

•

PALS-Va

108/8 BASIC COMPII.EH

2397
2398
2399
2400
2401
2402
2403
2U4

•

IINPUT

1'1.14373
04374
04375
0437&
04371
04400

10/30/72

PAGE 32

DEVICE HANOLE~

140b

4000
040111

2337
0401
441'1.10
000111

*INDEVM
fa

•

IOS/8 BASIC COMPIL.ER

2405
2406
2407
2408
Z4n
2A10
2411
lAn
2AU
Ul4
2415
2416
2417
2418
l41'f
2420
24U
2Ui!
Ui!3
i!4U

2415
2426
2417
2428
24n
2430
2431
2432
2433
2434
2435
2436
2437
2UI
U39

244111
2441
2442
2443

2444
2445

2446

2447
2448
2444
2451
i451
U5i
245]
l454
U5S

245&
l457
2458
l45Cf

11600
0461U
04602
04603
04604
04605
04606
14687
14610
04611
146U
14613
04614
IA6!!
04616
14611
un0
U6U
U62ii!
04623
UU4
04U5
84626
84627
1114630
84631

una

04633
ruU4
1114635
04636
UU7
84640
Uft41
1114642
84643
84644
04645
04646
04641
04650
I/I4Ul

04652
04&53
04654

uns

III 4ft 5&
1114ft5T
0UU
046&1
U&U
U6U
046&4

4&0111
Uti
4771
0005

rnu

6221

1413
6211
34li

212l
5i84
6211

3410
6201
14U
U50

5a1ft
3225

7ZIi

PAL.8.Y8

10/30172

•

PAGE 33

IINITUL.IZATIO/ll COD~ FOR HUN CASE
,.AGE
ICOME HERE IF .R BCOMP
1fII
RUNNED, Clff
ICAL.L. COMMAND DECODER
(200
JMS I
5
IASSUMED EXTENSIDIII "8A"
0201
20
CDF
XU
TAD I
ISAyE L.OCATIONS 21114 THRU 27711
CO,
10
ITHESE ARE THE BOS PARA~ETERS
DCA I
Xl2
TEMP
liZ
JMP
10
CD'
IZERO EDITOR Bl.eel< NUMBER
DCA I
XU
CDF
IL.OOKUP SOME SAVE FIL.~S
X11
FINDSY, TAD I
SNA
IGO LOOK FOR BASIC.UF
JMP
L.USUF
UX)(SV ISAYE POINTER TO NAME
DCA
ITHEY'Rf ON SVS
CL.A lAC
CIF
10
(200
JMS I

.-5

Uti
4771
1II1nll
i!
1/101110 )(XxxiV, 1/1
I
1118111J
JMP
NG
577&'
)(X nay
TAD
1225
lAC
1101
CDF
1111
62ti
DCA I
xu
3410
eDF
6211
JMP
FINDSV
Si!!S
TaI/l1 LUBUF, CL.A UC
elF
10
uu
(a GIIlI
JMS I
4777
2
011i!
BUFN
1562
I
0eu
,.l
JMP
5241
TAD
UA Z
.-3
lAC
7011
10
U11
CD'
DCA I
Xli
3410
'iI' STRTl, CO'"
CLA UC
1201
Clfr
l0
uu
(iee
JMS I
4777
3
IIIl11n
TMPBL.K, TMPFIL.
8
111000
JMP
NG
577ft'
TMPBLI<
TAD
In&
DCA
OUBLOK
3775'
TMPSL.I<
125ft
TAD
DCA
SL.OCK
3046

IERROR
IGET STARTING SL.OCK
IPLUS 1
IINTO INFO AREA
IL.OOP
IL.OOKUP BASIC.UF
I(USER DEFINED FUNCTIONS)
10K IF NOT THERE
IGET STARTING 8L.OCK .1
IINTO INFO BL.OCK
IENTER TEMPORARY FILE

75'.

ISAYE START OF TEMP FIL.E
lIN ,. COUPLE PL.ACES

•

IOS/8 BASIC COMPILER

1251
3774'

5773'

•

PALS-V8
TAO
CCA
JMP

10/3~/72

TMPBL~+l/ALSO

OUSIZE
GETOEV

PAGE 33-1

THE SIZE

IGO FETCH DEVICE HANDLER

•

PAL8-va

IOS/8 BASIC COMPILER

24U
2464
2465

7032

04773
04774
04775
04776
04777

6415

2470

05000

0000

2471
1472

05001

3023
]134
3135

24116
2467

24&8
2U9

2474
2475
241&
2417
2478
2479

Z480

0500i
05003
,,5004
0511105

05015

2484
2485
248&

2481
2488

2489
2490
2491

3137

450il
5600

2483

0501&
05017
05020
05021

05022
"5023

2492

0511124
05025
0502&

2493

05027

PAGf

NUMBER,

313&

05007

2481
2482

NUMERIC CONVERSION ROUTINE (PART ONE)

7120
0200
500111

]2li

05012
05013
05014

4717'

0000
3024
4531
52""
3355

SIGN,

DCA
DCA
DCA
DCA
DCA
DCA
JMS I
JMP I
JMS

DCA
CONVLP, JMS I
JMP
DCA

2024

lSI

IUS
3141

TAD

lUI:I

314i
1137

DCA

TAD

DCA

TAO

2494

1115030

2495
249&
2497

051/131

4775
4716

05032
05033

3141
!t4i

DCA
JMS I
JMS I
JMS 1
JMS I
DCA
DCA

2498

05034

1355

TAD

2499

05835

2500
2501
2502
2503

215036
05037

3143
4775

2504

05040
05041
11JS00i

2505

05043

250&
Z507
251218
2509
2510
2511
2512
2513
2514

05044

05045
0504&

1115047
05050

•

PAGE 34

ft50~

0500&
05010
,,5011

10/30/72

3143
417111
477&

5214
t0U
1&40

525.
45 iii
5253
1374
7641il

52Si
2023

05051
05052
05053
052154

!lUl

2515

05055

5600

2516
2517

0505&
05057

450i
530111

4525

1024
7650

DECPT
WORDI
WORD2
WORD]
ACO
SIGN
QGETC
NUM8ER
CMKSGN
NDIGIT

IGENERAol NUM8ER CONVE~SION ROUTINE
IIERO DECIMAL POINT SWITCH
IZERO FAC

ICLEAR SIGN SWITCH
IGET A CMAR
INO CMAR IS NO NUMBER
ICHECK FOR SIGN
ITHIS SWITCH GETS SET
IZERO DIGIT COUNT

QDIGIT

IGET A DIGIT

TRY DEC
NlITDGT
NDIGIT
WORDZ
OPil
WORD3
OP3
ACO
OPO

lIS THERE A DECIMAL. ~OINT ?
ISAVE TME DIGIT
IINCR NUMBER OF DIGITS
IPREPARE TO MULT BY 10

CAL 1

(AoL 1
(OADD
CAL.l

IDOUBL.E FAC
IDOUBLE AGAIN
ITIMES FIVE
lONE MORE DOUBLING IS TIMES 10

OP2
OP]
NHDGT
OPO
(DADO
CDNVL.P
DECPT

IDECIMAL AL.READY 7

JMP
JHS I
JMP

TRYE2
QGETC
OIGTST

IYES, L.OOK FOR EXPONENT
ILOOK FOR •
ISEE IF TMERE WAS ANYTHING

TAD

(wS6

DCA
JMS I
JMP

TRYDEC, TAD

au CLA

IPUT NEWEST DIGIT INTO OPERAND
IADD IN NEWEST DIGIT

SlA CL.A
JMP
TRYEl
ITRy FOR E
lSI
DECPT
ISET DECIMAL POINT SW
JHP
CONVL.P-I/LOOP FOR OTMfR DIGITS
Q8ACKl IPUT 8ACK NON •
TRYEl, JMS I
DIGTST, TAO
NDIGIT IANy DIGITS YET 1
SNA CLA
JMP I
NUMBER INO, NO NUMBER
TRYE2, JMS I
QGETC
IlOOK FOR E
JMP
NOEXP+l IGO MANDlE EXPONENT

•

105/8 BASIC

05060
215061
0521&2
12150&3
215064
05065
05066

051f114

5301
1025
7041
1410
4525
3025
1372
3134
4171
1023

2540

05105

1&40

2541
2542
2543
2544
2545
2546
2541
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
25&0

0510&
05101
05110

7041

05111

150111

215112
05113

1041

05012
05013

05074
05015
05076
05017
1215100
05101
1215102

05103

76416

SZA CL.A

5217
3267 GETEXP,
4502
5277
4177 •
FPRTNE,
0000 ESIGN,
477l'
1267 F IXEXP,

JMP
DCA
JMS I
JMP
JMS

165kl

1024
1025

5311

05114
0'5115

3025

0511e
05117
05120

5321
3025
13&'1
3267

05121
05122

0'5123
05124
05125
0512e

TAO

1360

2518
2519
25i0
2521
2522
2523
2524
i5i5
2526
2521
2528
2529
2530
2531
2532
2533
2534
2535
2536
2531
2538
2539

05067
05010
05071

PAL.S-V8

COMPI~ER

1310

136&
3011
1025

74150
535fd

05127
05130

111111

05131

H2rtl

3025

IUSE PART OF "STEP" L.ITERAl

NOElCP
ESIGN
QGETC
NOEXP
CHKSGN

INO EXPONENT
IZERO EXPONeNT SIGN SwITCH
IGET A CHAR
ITREAT AS NO EXPONENT
115 IT A SIGN

ITHIS IS THE SWITCH TO SET
IGO GET THE EXPONtNT
SM~NUM
JMS
ICHECK EXPONENT SIGN
ESIGN
TAO
SNA CL.A
NDElCP+2
JMP
ICOMP~EMENT ExPON~NT
TAD
EXPON
CIA
SKP
QBACKl IPUT BACK NON E
NOEXP, JMS I
IZERO EXPONENT
UPON
DCA
(43
INORMAL.IZE THE NUMOER
TAO
DCA
WORDi
(ANORM
JMS I
IWAS THERE A DECIMA~ pOI~T ?
OECPT
TAD
SZA CL.A
TAD
NOIGlT IHOW MANY DIGITS TO fHE RIGHT ?
CIA
ISUBTRACT THAT NUMBER FROM EXP
EXPON
TAD
SMA
POSEXP IEXPONENT IS POSITIVE
JMP
CIA
IONLV NEED ABS VALUE
EXPON
DCA
(FPDIV 100 DII/IOES
TAO
JMP
.+3
EXPON
POSEXP, DCA
HO
(FPMUL 100 MUL.TIPLIES
FPRTNE IMULTIPL.Y/OIVIOE ROUTINE
DCA
TAD
CPETA8~-1
DCA
Xll
IPOWERS OF TEN TABL.E
ElCPON
ILOOK AT THE EXPONENT
EXPMUL., TAD
SNA
JMI'
DOSIGN I IF 0 ITS THRU
C~L. RAR
DCA
EXPON
IPUT LOWEST BIT INTO LINK
1&

SN~

JMP

SKPEXP

TAD I

Xll
01'1

05132

05133

5345
1411

2563
2564
2565
2566
2561

05134

3140

DCA

05135

1411
3141
1411

DCA

01'2

TAD I

2568

0'5141

2569

05142
1/l5143
05144

lC11
OP3
X11
OPO
FPRTNE
EXPMUL.
lCl1

2510

2511
2572

•

05137
05140

05145

PAGE 3U-l

~STEP+2

25&1
2562

05136

10/30/72

TAD I

3142

DCA

1411
3143
4667
5324
1011

TiD I

DCA
JMS t
JMP
SKPEXP, TAO

ITHIS ONE DOESN"T COUNf
IMOVE FACTO~ INTO OPERAND

)(11

IMU~TIPL.Y O~ DIVIDE 8Y THIS FACTOH
ICHECK NEXT BIT
15KIP OVER THIS FACTOR

•

IOS/8

BASIC COMPILER

2513
2514
2515

111514&
05147
05150

251&

2511
2518
2S1ct
2510
2581
2582
2513
2!14
2585

258&

nISI
05152
115153
051!14
n 155
0515&
05151
05UI
nUl

nU2

usu

PALa-Va

10/3017 2

•

PAGE 34.-2

(4
UD
JMP
EXPMUL-l
ICMECK TME SIGN
SIGN
12111 DOSIGN, TAD
SlA CLA
1Ufil
(NEGf'AC INEGATE IF NEGATIVE
JMS I
41&4
NUMBER IBUMP RETURN
III
22110
NUMBER IRE TURN
JMP I
sura
1080 NXTDGT, 1/1
".55 . WSTEP, -123'-124'-105'-120
1&54
1..,3
1ura
'ADD"'AOD
III 11111 ra UDD,

5323

U41i'1

•

105/8 BASIC COMPILER

2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2591
2S98
2599
261110
21101
2602
2U3
2604
iUS
2U6
2601
261118
2609

26U
2611
2612
21»13
2614
2615
261&
2611
2618
2619
2620
2Ul
2ttiC!
2623
2U4
2625
2626
2U1
2628
262'

2630

05164
05165
05166
0511.7
05170
05171
05172
05173
05174
05115
05176
1IJ5177
05200
05201
05202
05211J3
Ql!5204
05205
05206
05201
05210
1215211
05212
05213
05214
05215
05216
05211
1115220
052iH
05222
05223
05224
05225
05226
05221
05230
05231
05232
05233

5215
114k!
3134
423&
5600

1215234

0000

05235

0000

05i36
05237
05240
1115241
05242
05243
05244
05245

012100
1135
1450
t 13b

2631
lU2

2633
2634

2635

2636
2U1
2638
2639
2640
2&41

•

5261
00014
5171
5C!0"
531k!
5236
11111143
5400
7722
5353
543'
5444
520B
0001i1
1134
1140
3140
1135
]234
1136
3i!35
U71
3371
3135
313b
3137
4776
1214
1110
3234

PALS-V8
I NUMERIC

PAGE
0
TAD
TAD
DCA
TAO
DCA
TAD
DCA
TAD
DCA
DCA
DCA
DCA
MULL.UP, JMS 1

TAD

U15

2371

02,
Twa,
0],

1137
1650
5265

TW3,
NFCNT,
ANORM,

PAGE $5

ROUTINE (PART TWO)

FPMUL.,

1010
]235
7430
4353

1450

CONVE~SION

10/l1£)172

IFLOATING MUL.TIPL.Y ROUTINE
ICOMPUTE NEW EXPONENT

WORDI
OPI
OPI
WORDi!
TWa
WORD3
TIN3

ISAVE AC MANTISSA

(-30

15ET ITERATION COUNTE~

ITRCNT
WORD2
WORD3
ACO
(ARl
TIII2

eLL RAR
DCA
TW2
TAO
TW3
RAR
DCA
TW3
SZL.
JMS
DADO
ISZ
lTRCNT
JMP
MUI.LuP
TAD
OPl
DCA
WORDI
JMS
ANDRM
JMP I
FPMUL

IZERO FAt ~ANTISSA
ISHIFT FAC RIGHT ONE
ISHIFT MULTIPLIER RIGHT

IADD IF lINK IS ONE
IBUMP COUNT
IlOOP
IPUT IN COR~ECT EXPONENT
INORMAL.IZE THE RESULT

"0
0

TAO
SNA

WORD2

TAD
WORD]
SNA
TAD
ACO
SNA CLA
JMP
ZEXP

INORMALIZE FAC
MANTISSA 0 7

lIS

IVES, ZERO EXPONENT

•

IOS/8

BASIC COMPILER

i642
2643
2644
2645
2646
2647

05246
1il5247

26118

05i54
15255
0S256
115257

2652

IlSiU

in]

15261
1!S26a
115263

un
US0
2na

2n4
2ns

2656
2651
i65'

un
i!6U
2661
26U

2663
2664

2665
2666
266T
2668

i66'
2670
2611

2672

2673
2614
2U5
2n6
21117
2618
2679
2UII

2611

2U2
i!683
2U4
iUS

2U6
2687
2&88
2689
2690

2691
2692

26m

ana

2695
a&96

05250

0!Ii!S 1

flJ5Z52

0!I2S3

115264

05i65
15266
05267
0S110
15271
15272
tU73
05274
115275
1IS276
15217
1II!IJ00

115311
0530Z
115303
05]04
lUllS

115306
115307
05310
0Sl11
85312
153U
85U4
1115315
05316

15317

733i
11]5

1440
5256

111141
11]4

31'"
1317
3311
1135

05321

nnz

TS04
72114

05]24

171111

05325
05326
05327
115331
1115331
053321
05333
05334

5]]1/1

1141

1373
4267
4353

123!
711104
3US
1234

10/30/72

•

PAGE 35-1

NORMLP, CLA CLL CML RTR lIS HIGH ORDER MANTISSA • &000
TAD
WORD2
SlA

JMP
N060011
TAD
WORD3
SNA
7450
TAD
ACO
1131
IZA CLA
TU0
77U NOft1/l00, SPA CLA
JMP I
A~ORM
563'
JMS I
CALI
4775
CLA CMA
1Z41iJ
TAD
WORDI
lU4
DCA
WORDl
3U4
JMP
NORMLP
5246
DCA
WORDI
3U4 ZEXP,
JMP I
ANORM
5636
1001iJ NEGFAC, 0
TAD
(ACO
13T4
DCA
NFPTR
3307
CLL CMA RTL
114.
DCA
NFCNT
323'
CLL
11011
1004 NFLDOP, RAL
TAD I
NFPTR
U07
tL.L CML CIA
1161
DCA I
NFPTR
!J07
CHL CLA CMA
72611
TAD
NFPTR
1317
DCA
NFPTR
3307
ISZ
NFCNT
2236
JMP
NFLOOP
5275
JMP I
NEGFAt
5667
01011 NFPTR, I
000111 'PDIV, I
JMS I
CARl
4776
TAD
OPi
U4S

05320

1115323

PAL8-V8

INO, SKIP THIS C~AP
IYES, IS THE REST III ?
ISKIP IF 600000 , •• 0000
INORM IS DONE WHEN BITS DIFFER
ISH 1FT LEFT ONE
IDECREMENT EXPONENT
ILOOP
INEGATE FAC
IGET POINTER TO OPERAND
ITHREE WORD NEGATE
IGET NEXT WORD
IRESTORE AFTER COMPLEMENTING
ILINK GETS COMPLEMENTED ONCE ~ERE
lAND ONCE AGAIN HERE
IRESTORE DECREMENTED POINTER

IUNNORMALIZE AC BY ONE
ICOMPUTE FINAL EXPONENT

CIA
TAD
WORDl
DCA
OPI
lAND SAY! IT
TAD
(-3111
ISET ITERATION COUNTER
DCA
ITRCNT
TAD
WORD2
RAL
IINITIALIZE LINK
FPDVLP, tLA RAR
ICOMPARE SIGNS
TAD
opa
SPA CLA
JMP
•• 3
TAD
(OPO-ACO/NEGATE OPERAND
JMS
NEGFAC
JMS
OADD
IADD OPERAND AND FAt
TAD
03
RAL
DCA
D3
TAD
Oi

•

IOS/8 BASIC COMPIL.ER

2691
2698

2699
2700
2101
2702
27m
271!J4
2705
2106
2707
2708
271119
2710
2111
211i!
i!713
2114
2715
2716
2711
2718
271'
2720
2721
2722
2723
aTa4
2125

•

05335
"533&
,,5331

"S34"
Ql534t
05342
,,534]
,,5344
05345
05346
05347
1115350
1115351
1115352
1115353
05354
"5355
"5356
"5357
"5360
05361
11153U
05363
05364
15365
"5366
"53&1
"5370
"5371

PAL8-Va

10,,4
3i!34
4175
2371
5322
1140

'UL
DCA
JMS I

lSZ

JMP

TAO

DCA

313~

1234
3135
U35
3136
3137
42]6
5710
111211110
7UiII
1143

1137
3137
7Ql04
114~

113&
313&
70,,4
1141
1135
3U5
5753

"021"

TAD

DCA

TAO

~CA

OADD,

DCA
JMS
JMP I

(AL.t
ITReNT
FPDVL,P
OPt
WORD1
02
WOR02
03
WORD3
ACO
ANORM
FPOIV

TAO
TAD

OPO
ACO
ACO

TAO
TAO

OP3
WORD]
WORD]

DCA
RAL
DCA
IUL

TAD

TAD
DCA
JMP I
!TRCNT, 1

PAGE 3S-l

III

CL.L.

10/30172

IL.~FT SHIFT FAC ONE
ITEST ITERATION COUNT

IPUT QUOTIENT INTO fAe

INORMAL.IZE
IADD OPERAND TO FAC

OP2
WORD2
WORD2
DADO

•

101/1 BAUC COMPILER
2TU
iTi!T
21U

212CJ
2UIII
2131

2132
2755
2754
2n5
21S6
aUT
2nl
2739
27411
a141
2742
214]
2144
2145
2146
2741
2141
274CJ
a751
21St

2152
2753
2754
2155
2756

aU1
2151
2759
21U
2761
2762
2763
i!TU

2765
2166

2161

21 ..

2169
2711/1

ZTTl

2112
2713
2714
2'115

2716
2117

05]13
05314
15375
U37.
III!J17
111540111
054111
1541i
15483
111541114
111541115
lUlU

111541/17
111541111
1/I!5411
1115412
15413
15414
15415
1/15416
115411

1115421/1
1115421
lil5ua
1/15423
1/15424
1il!425
III!5U6
n4!1
nUl

1115431
1/15412
1IJ543]
nU4
1/15435
1115436
IIIUlT
Iil!UII

1/I!I441
1/115442

10114
01]1
S4n
5414
175111
54111111
III1U

]11125
45]1

56111"
:U43

1015

7U4
TU4
111125
7U4
1143

52U
0111/1111
1135

PAGE
IMI-HUM, III
!XPLUP, DeA
UPON
JMI I
QDIGIT
JMP I
IMLNUM
DCA
OPO
EXPON
TAD
CLL RAL
CLL RAL
EXPON
TAD
CLL RAL
TAD
OPO
JMP
!XPLUP
ARl,

JUS
IU6
U10
:SU6
1131
70U
JU1
21]4
5'141

5614
1/11/1111111
ttl7

1U4
]131
1136

11/1114
]136
lU5
11111/4

3U5

1013 017 i!

•

PAGE 3.

NUMERIC CONVER8ION ROUTINE (FINALE)

l1ti

5'1&
1/IS444 1101/1111
1115445 1317
05446 145111
1IJ!44 T 2&44
15451 14411.1
as451 1316
I/IS4Si! 164111
1215453 4525
15454 5644
1544]

PALl-VI

ALl,

III

TAD
WOROi
CI.L RAR
DCA
WORD2
TAD
WORD1
IUR
DCA
WORO]
TAD
ACO
RAR
DCA
ACO
IIZ
WORDI
JMP I
ARt
JMP I
ARt
III
TAD
ACO
eLL RAL
DCA
ACO
TAD
WORD]
RAL
DCA
WOROl
TAD
WORD2

IINPUT A NUMBER C. 40QS
IZERO THE EXPONENT
IGET THE NEXT DIGIT
INUMBER DONE
ISAVE THE DIGIT
IMUL T BY 10

/ADD IN DIGIT
18TORE BACK INTO EXPONENT
18HIIFT FAC RIGHT 1 BIT

18HIFT FAC I.EFT ONE

lUI.

DCA
JMP I
CHK8GN, I
TAD

WORDi
ALI
(-55

SNA
lSZ I
CHKSGN
SZA
UD
(55-51
11' CLA
JMS I
QBAeKl
JMP 1
CHI<SGN

ICHECK FOR 811;N
lIS IT - t

IYE8, SET SWITCH
Its IT • .,
IRE TURN CI1AR OTHERWISE

•

IOS/8 BASIC

2718
2779

27821
2781
2782
2783
2784
2785
2786
2787

2788
2719

2790
2791
2792
2793
2194

2795
2796
2797
2798
2799
2800
2101
28212

2803
28214
2U5
28216
28217
2808
281119
2811/1
2811
28li2
2813
2814
2815
2816
2817
2818

2819
28221

2821
2822
2823
2824
2Bi5
2826

2827
2828
2829
2831/1
2831
2832

•

215455
0545&
05457
05460
2154"1
054&2
2154&3
215464
e54E15
215466
2154&7
054721
215471
054U
05473
05474
05475
05476
05477
05500
05501
215502
215503
05504
055215
215521&
055217
05510
215511
05512
05513
215514
05515
0551&
05517
2155221
055iU
05522
05523
05524
05525
0552&
215527
215530
215531
215532
05533
05534
05535
215536
215537
05540
05541
05542

PAL8-V8

COMPILE~

0000
4515
713.

5&5,
2255
3134
1375
31/12 1

UTI'
3022
43221
5655
710&
7210&
721216
3421
4320
5314
1421

3421
22121
211122
5267
4S0C:
5311
1257
1&521
5655
447J

2123
5655
1421
137,5
3421
5&55
0000
451113
5311
1257
7440

5335
450,5
5U0
1257
7&50
5335
4525
5720
1372
0371
2134
2320
S721d
0210111

121/30/72

PAGE 37

I STRING LITERAL SCANNER
STRING, 0
ILOOk FOR A STRING
J~S 1
QCHECKC ILOOK FOR "
M42,
-42
STRING INONE MEANS NO STRING
JMP I
STRING
lSZ
IZERO CHAR COUNT
WORDl
DCA
(WORDi ISETUP POINTEH
TAO
DCA
TEMP
lAND MAX SIZE
(-44
TAD
DCA
TEM.Pi!
IGET HIGH OROER CHAW
GCS
SLOOP, JMS
STRING lEND OF STRING
JMP I
CLL RTL
RTL
RTL
IPUT INTO UPPER HALF OF WORO
DCA I
TEMP
IGET LOWER CMAIf
JMS
GCS
PUT40
IFILL LAST WORD WITH ~LANK
JMP
TEMP
ICOM.BINE THEM
TAD I
DCA I
HMP
IBUMP POINTER
TEMP
lSZ
TEMPi!
1100 BIG YET ?
lSZ
JMP
INO, LOOP
SLOOP
QGETC
IMAX SIZE STRING, MUST fIND"
JMS I
JMP
STRGER 18AD STRING LITERAL
M4e!
TAD
SNA CLA
JMP I
STRING 10K
QERMSG ISTIHNG ERROR
STRGER, JMS I
2U3
JMP I
STRING
IGET LAST WORD
PUT40, TAD I
TEMP
(40
IPUT BLANK IN LOW CHAR
TAD
DCA I
TEMP
ISTORE NEW wORD
JMP I
STRING IRETURN
IGET A CHAR FOR STRING
GCS,
III
JMS I
QGETCW8 IGET A CHAR (INCLUDE BLANKS)
JMP
STRGER 18AO
lIS IT II
TAD
M42

SlA

JMP
JMS I
JMP I

TAD

NOTQOT INO
QGETCW8 115 IT ""
GCS
INa, THAT WAS IT
M4i!
ILOOK FOR SECOND "

SNA CLA
JMP
NOTQOT
QBACKl
JMS I
JMP I
GCS

NOTGOT, TAO
AND

ISZ
lSZ

JMP I
MOOSET, III

(42
(77

WORDl
GCS
GCS

I'"' BECOMES

IPUT IT BACK
ILITERAL IS DONE
IRtCREATE CHAR
IELIMINATE EXTRA BITS
ISUMP STRING COUNT
IFIX RETURN
ISET INTERPRETER MODE

•

101/8 BAue COHPlt.EM
21]3

zn4

U35
2836

UJ8

ZU0
2841
21 lIZ
2843

ZU4
U4S

Z846
Z841
2848
2849

28511
U!'lt

0554]
05544

05545
05546
05541
05550
05551
0555i
15553
05554
05555
05556
15557
15560
IIIS561

05565

Tn4
""31
QlQIQII

•

PAGE 37-1

UDIV,
WPNT,

-lZI'-116'-124,-50'0

]055

5TU
JU0
6UB
166111

10/30172

MODE
ISUM OF DESIRED AND CURHENT
TAD
SMA CI.A
JHP I
HOOSET ITHEV WERE THE SA~E
10THERWISE SWITCH MODES
TAD
MODE
IU CLA
TAD
(NMOOE-SMOOE
(SMOOE IENTER NMOOE OR MAV8E SMODE
UD
QDUTWRO
JMS I
CLL CML RAR
ICHANGE THE SwITCH
TAD
MODE
MODE
DCA
JMP I
MODsn lAND RETURN
'IOIV,AIDIV

Ul55
7100
5Ui
111155
11.40
UTe
1n1
4500
T130
111155

nsu uu

15563
155U

PAI.8-Va

•

IOS/8 BASIC COMPILER
2852
2853
2850
2855
2856
28ST

2858
2859
2860
2Ut
2862

2863
i!8ft4
2U5
28 ..
2UT

2868

05567

75&1

05570
05571
05572
05573
01j574
05515

17U

05576
11JI5517
05600
05601
05602

1!15603
05604
1115605

28n

05686

2810
2811
2872

05687

287]

2870
2815
2876
2877

05610
1IJ56!1
05612

05613
05614
05615
05616

0071
0042
0040
1734
0135
0002
7123
5600
021210
]026
4!U0

561110
3134
4531
5235
7001
3135
450C!
5233
1371
1440
5224

2878

05611

7130
10i!6

2879

05U0
05621
05622
05U3

3026
4502
5233
1317

2880
2881
2882
2883

2884

05620

1316

05625
05626

1650
1132
7450

2885
2886
2887

nU7
05630

2888
2889

05631
05632

2890
2891

05633
05634

4525

10i6
3026

22210

2892

1115635

5600
4501

2893
2894
2895

05616
05637
05640
05641

7106
7006
7006

05642

313S

05643
0SU4
05645

4530
5210

2896

2897
2898

2899
2901!1

2 Ul
2902

05646

290S

05641
05650
05651
05652

2906

05653

2903
2904

•

1134

1US
313S

453fcl
5302
31n
1135
1315

VARIAB~E

OR FUNCTION HEFt~ENCE SCANNER

PAGE
GETNAM, III
DCA
JMS I
JMP I
DCA
JMS I
JMP
lAC
LFDOLR, DCA
JMS I
JMP
TAD
SZA

ILOOK FOR VARIAB~E OR FUNCT REFNCE
IZERO TYPE
Q~ETTER IMUST START WITH ~ETTER
GETNAM INO NAME
NAME!
QOIGIT ICLETTER>cOIGIT>?
TRVFU~
INO, LOOK FOR FUN REF
IINCREMENT DIGIT
NAME2
ISTORE AS NAME2
QGETC
ILOOK FOR S [STRING)
GOTNAM+2/NOT THERE
TYPE

( .. 44

JMP
NOSTR~
INO S MEANS NO STRING
CLL CML RAR
ISET STRING BIT
TAD
TYPE
DCA
TYPE
JMS I
QGETC
ILOOK FOR ( (ARRAV)
JMP
GOTNA~+2/NAME FINI
TAD
( .. 44
IPRIME TME CHAR
NOSTRG, TAD
(44-50 ILOOK FOR ( [ARRAY)
SNA CLA
CLL CML RTR
IVES, SET ARRAV eIT
SNA
JMS I
Q8ACKl INO, BACKUP 1 CHAR
GOTNAM, TAD
TVPE
IMODIFY TVPE
DCA
TYPE
ISZ
GETNAM IBUMP RETURN
JMP I
GETNAM
TRVFUN, JMS I
QSAVECP ISAVE CHAR POSITION
TAO
NAMEl
IMOVE FIRST CHAR OVE~
eLL RTL
RTL
RTL
DCA
NAME2
JMS I
QLETTER ILOOK FOR SECOND LETTER
JMP
LFDOLR INONE THERE, LOOK FOR S
TAD
NAME2
ICOMBINE WITH FIRST LETTER
DCA
NAME2
JMS I
Q~ETTER ILOOK FOR THIRO LETTER
JMP
NOFNAM INOT A FUNCTION NAME
DCA
NAME3
IPUT INTO NAME
TAO
NAME2
115 IT A USER FUNCT 1
TAD
(-616
IFN

•

IOS/8 BASIC COMPIL.ER

2907
29118
2909
2910
2911

05654

05655

use

5304

137"

2912
2913

056S6
15651
15660
05661
115662

2911

1!15663

1135

1156 ...
15665
15666
15661

T6U

2915
2916

2'17'

21'18

291'

29211

2921

2'22

1'13
2924

2916
2921

2U8
2929
2911

UJl

2932

nUll
15671
1567'2
1567)
15614
15615
15616
15617'
157111

1!T1l
0571112
0!1U
15714
15715

14U

U5e

5Jli
527'1

utili

1U.

1.. 0

Ule

14111
Jn1

3126
SiU

2U0

52611
45114

!Sue
113.
52'13

PAL.8-YB

10/30172

•

PAGE 38-1

SNA CL.A
USRFUN /YES
JMP
(FUNS-1 INO, CHECK VALIDITY OF NAME
TAD
xu
DCA
IGET NEXT FUN NAME
xu
f'UNSRC, TAD I
aNA
NDf'NAfol lEND OF L.IST, INYALID NAME
JMP
ICOHPARE FIRST 2 CHARS
NAME2
TAD
au CL.A
NDMATC ITHEY DON'T MATCH
JMP
)(10
ICOMPARE lRD CHAR
TAD I
N4M!)
TAD
au CI.A
NOMATC.1/DON'T MATCH
JMP
IGET FUNCTION CODE
xu
TAD I
SYMBOL. ISAYE IT AS SYM80L YALU
FUNOK, DCA
ISET FUNCTION BIT
TAD
(UIIH'
TYPE
DCA
JHP
L.'DOLR IL.OOK FOR QIJ Q(]
ISKIP THIRD CHAR
Xliii
NDMATe, lSZ
ISKIP f'UNCTION NUMBER
Xliii
ISZ
FUNSRC IKEEP I.ODKING
JMP
QRUTCP IRESTORE CMU POS
NOFNAM, JMa I
JMP
LFDOLR ILOOK FOR QS] Q(J
NAME]
IGENERATE f'UN NUMBER
USRFUN, TAD
f'UNDK
JMP

•

105/8 BASIC COMPILER

2933
2934
29]5
293&
2937
2938
2939
2940
2941
2942
2943
2944
2945
294&
2U7
2948
2949
2CJ5111
2951
1952
Z953
2954
2955
295&
2957
2958
i!959
29&0
2961
29&2
29ft]
i!9U
2965
296&
2967
2968
2969
2910
2911
2972
2913
2974
2915
291&
2917
2.78
2919

•

0570&
05707
05710
05711
05712
05713
05714
05715
0571&
05717
0572111
05721
05722
05723
05724
1115 7i!: 5

0572&
05727
1115730
1IJ5731
057H
05733
05734
1IJ5735
1115136
1115737
215740
Ill!iUl

1115742
05143
05144
05145
0514&
05747
fIl51S0
05751
05152
05153
1115154
05755
1115756
05151
051&0
05761

05762
057&3

PAl.tI-V8

10/30172

PAGE H

I EMROR MESSAGE REPORTER
ERMSG, III
IPRINT ERIo/OR ME5SAGI:.
7200
CLA
CO,
&il01
11111&
TAD I
ERMSG
IGET CODE
7112
CLL RTR
IPRINT FIRST CHAR
1I/JU
RTR
10U
RlR
4772'
JMS
TTY
1U&
TAD I
ERMSG
IPRINT SECOND CHAR
4172'
JMS
TTY
230&
ISZ
ERMSG
IFIX RETURN AODR
1350
TAD
SPACE
IPRINT SPACE
4772'
JMS
TTY
l77i'
DCA
TTY
IUSE TTY AS A SwITCH
1053
TAD
LINEH
IPRINT HIGH ORDER
4335
JMS
PSN
1054
TAO
LINEL
/THEN LOW OHDER
4335
JMS
PSN
ICLINE NUMBER NATCH I)
1371
TAD
C215
IPRINT CARRIAGE RETURN
4770'
JMS
TTX
1U7
TAD
(?12
IPRINT LINE FEED
4771/1'
TTl(
JMS
5111J EI
JMP I
ERMSG
IRE TURN
1/11/11/10 PSN,
1/1
IPRINT 3 DIGITS DECIMAL
3135
DCA
wORDa
114ft
CLL eM. RTL
1 .. 3
3021
DCA
TEMP
1135 PRNTSN, TAD
wORD2
IGET NEXT DIGIT
1UEI
CLL RTL
IINTO THE LOW ORDER
100&
RTL
ITHREE BITS AND THE LINK
3135
DCA
WORDa
ISAVE SHIFTED NUM8ER
1135
TAD
WORDe?
INO~ 00 LAST SHIFT
701114
IUL
11136E1
AND
07
IONL v FOU~ BITS
7440 SPAtE, SU
5355
JMP
NO ZERO INOT A ZERO
TAD
177C! '
TTY
IANY DIGITS YET 1
7&50
SNA CLA
!U57
JMP
LEAD0
INO, ITS A LEADING ZERO
13&S
NOZERO, TAO
(60
IMAKE IT ASC I I
4712'
JMS
TTv
IPRINT DIGIT
illl21 LEAOIIJ,
ISZ
TEMP
ISUMP COUNT
5341
JMP
PRNTSN IMORE DIGIT (5)
5735
JfI1P I
PSN
1000 XMUL,
FMPYI AFMPY
&!i40
l1I0f/Jid

•

IOS/8 BASIC

2981/1
2981
2912
2983

!9U
2985
2'"
2981
2"8
2919
299121

nT'S
151'.
nU7
as 77 II
nUl
15112
l51n
15114

2991

llU
1714
1U4

2n2
2993

lUll

1014

Z99.

2997
2"8
2999
llUl
1111
3012

lin

31111.
III!
3ee6
3017

]lIIe

31/119
:UtrIl
3111

31/112
3115
]1/114
31/1l!i
1116
]1/117
]1/118
11/119
]UI
lIU

31/122
]1123

311124
]US
3026
3127
3UI
3029
30!121
31]1

3U2

ftl/lBIII

0'116

IUI1
IUU
nUl
IftlU
Iftl13
Iftl14

'611115
IU1&
1/1"1111
IUZIIJ
I/IU21
I/IUU
Iun
IIIUZO
I/IU2S
1/1&026
1116027
1/1&1/131/1
.6031
1161/132
.61133
IU34
116135

lun

•• 137
1&,40
•• 1141
.ftI/IU

16143
IUU

IIU45
12161/146

.un

EXPONENT TABLE

. . 10

111577.
15111
.61/111
1611112
1/1&1/113
161114
161115

1013111/12

III1U
1/11817
Uti
374121
111215
3UII
UIIIII

05175

2'JU
2995

PALa-va

COMPII.ER

14.'
1111l1li

IJI/I011
eell
3UI

PAGl
PEUSL, 1114'241/111,1/11/11/11'1/11/11/11/1
1111,]11/11'1.1/11,1/111111

81110

11111

eel.

011.'2]42'111/1111'0111111

'U!

1133'2'&5,'121'111111

nil
111/1111
111111
2165

1121/1

1/1111
1/11/1"
21&111
6744
671111
IIUJ
2156
13.ft
UI1

I/IU5
3IU
U17
5121
,U2
2215
641'3
1U4

1/11&&,2161/1'&744,&111/1

1153'ZJ5&'1326'65111

11325']1/121,611117'512111

1.52'2235,6443,711 4

152]'252]'15.5,7135

1115
3245

3245,3431'6]20'2565

2523
1565

3431/1

as6S

•

PAGE 40

•

10S/S BASIC COMPILER
3013
3034
3035
3036
3037
3038

312139
3040
3041
3042
3043
31!lU
]045
30461
3047
3048
3049
3050

•

06050
06051
06052
06053
06054
06055
06056
0US7
0611160
06061
06062
0UU
060114
06065
06066
060U
0601111

2557
Has
2755
Hal
0356
772.
a7U
HU
0ni
764it

1557
77]2

0000
4000
4301
0000
43U

PALS-VS

10/30172

PAGE 41

/ OPERATOR UI:!l.E
OPR8RS, PLUS'-53

MINUS,-55
STAR,-52

Sl.ASH,-S7
UPAROw' .. 136
AMPSND,-46
0
SASIGN, 4000,lCSTOR

ASSIGN, 0, leSTOR

•

PAI.8-Ve

10S/I BAUC CO"'PIl.fR

3UI

]Ui

3153
]1114
3U5
11S6
JlS7

]n'

31S'
316e

s.,.,

,.61
Jl63
llU
Sl6!

31"
Jln
J16.
1169
]170

IU?'
lun
lun
1611114
1..15
1"76
eU17
"111
e6,1,
16111
161111]
e6111
1,,15
1611116
1"17

1755
UII
1655

10/30112

FUNCTION NAME TABLE (INTERNAL FUNCTIONS)
-u iii ,-n, FUNC3
FUNS,

-un,-n,'UNCZ

1715

70S?

1654

nu
?aU
7471
77S6
U]1

-1'2II,-,6,FUNCl
-1311,-i2,FUNca+ZI

-13,7,-21,FUNCS+20

...6111
,u U71
7714

-1111,-a4,FUNca.41

1611J

USI

-.511,-al,'UNC1+40

.6116
.. ,'7
16UI
161iU

-'1,6,-24,'UNC'+111

-1.15,-S6"UNC2+'1

775S
fl36

l'lU ·1411

n ..
I1161U 1456
lin "U.

1171

lin

llU
lIn
Jill 76
31171
lIn
311'
1111
]111

1112
311l
llU
JII!
31"
1117
111.
JIIII9
]11198
_ 311"
JI'2
JI95
]194

Je'S

31196
3197
3098
n9ff

3U8
JUI

3U2
3113

3104
3105

7n4
151'

"Ili 7761

1611l
.'124
86125

.'U6
1612T

lUll

nUl
nU2
16U3

'6UI
16135
16136
16137
'6,111
16141
16142
1614]
,6144
16,45
16146
116147
16151
1'151
116152
1'153
06154
16155
"156

U71

U6l
1111
7536
57'1
n55

-1417,-IT,FUNC'.lal

51U
7114

-a216,-14,FUNCI+ZII

7616

5113

-ZI17,-23"UNC2+111

.2315,-17"UNca+121

1111

15]7
5111

-2]17'-16"UNCI.141

7162

nS6
5467

.,.,U

-ill1,-16,FUNC1+,61

5457

-232l,-Z2,FUNCl+a20

7616
5451

-ZJZI,-22,FUNca+S40

15.,.,

77U)
77S.
7557

5117
7764

7577

•

PAGE 42

-a6'1,-14,FUNca+16'

•

105/8 BASIC COMPII..ER

3Uft
3101
3108
3llllCJ
3110
3111
311i!
3113
3114
3115
3116
3117
3118
3119
3U0
31Z 1
3Ui
JUl
3124
JUS
3U6
3U1
3128
3129
3130

1131

3Ui!
3133
3134
3135

31U
3131
3138
31n
314111
3141
3142
3143
3144
3145
3146
3147
3148

3149
315111
3151
3152
3153
]l'li4

3155
31SfI
31"7

•

0U57 535&
IIIUftlll 7715
IIIUtll 7&31
061U 0000
fIIUU 1211111210
0UU 741~
0t11t1S 111000
061&6 0000
0U&7 1435
06170 0000
0ft 111 0000
06tTl 1455
0t111l 121000
06114 12121210
06115 1415
0617& 0000
06117 011100
0621210 .1515
06201 0000
06202 121000
0un 1535
IIItl204 111000
06205 000111
0620& 1555
0U01 0001:1
06210 012100
06iH 1 1515
06212 0000
06213 0000
1116214 7615
IIIfti15 001110
062 1It 0000
06211 7&35
1116i!20 flJ000
IIIUiH RII/J III 0
lllEi222 7655
IIItl223 121000
1116224 01111210
06225 7615
1216226 0000
06227 000'"
"623111 7115
1116231 0000
06232 12112100
IIIfti!]3 1735
0&214 00014

1216235

13623&
0&237
111624121
0&241
06242

0000
7755
0000

001110

PAI.S-V8

10/30/72

PAGE "2-1

.2~22'.0J'FUNC2+220

ENDFNS, 0,0,FUNC4

ISPACE FOR NEW

FUNCTIO~S

1II,0,FUNC4+2111
0,0,FUNC4+40
IlII0 I FUNC4+&11I
0,0,FUNC4+100
0,III,FUNC4+12111
0,0,FUNC4+140
0,0,FUNC4+1b0
0,0,FUNC4+20111
0,0,FUNC4+2211l
010,FUNC4+21.10
0J1UFUNC4+2U
010,FUNC4+300
0,0,FUNC4+320
010,FUNC4H40
0"" FIJNe 4+3M1!

ISIXTEEN OF THEM

1775

01111210

•

PALa-va

101,. BAUC COMPILER
USI
3159
U68

3161
Jl62
3163
3164
31'S
3166
316"
3161
116'

IU43

16iU
16245
1/16246
16147

lun

3115
U76
3177

Iun

:5174

un
un
JUI
31'1
3111

un
UU

311!
3U6
J1I7
3111
JlI9
31'1
31'1
31'2
U9]

3194
U"

S"6
319"
3191
3199
J2II11
Jill

nil

I62U
16263

IU ..

lUll
lun

lUI.

lun

IUI6
IIUI7

lUll
16111

16112
16313

lUI.
1'115

lIun

J287

IU2l
lUi!!
luaa

321111

3211
3212

IU2S
1/16326
16327
06331

-1116'-117,-12i,FOR

"6n
'661
76"
UI/II
uu

-116,-115'-131'-124,N!XTX

16n

UTi
7661
7655

lUll
1'112

-111,-1II1f.,%,

7672
i0IIJ1iI

16276
16277

16117
16121
IUil

321.
320'

2U]
7667

7UI
7U.
11171.
767&
7
.. '
1654

12113
J21A

3215
3206

16266
16267
1Il627IIJ
16171
16272
16273
16214

lun

-111'-116'-115'-116'-114,IFENO

766'

76U
1674

3171
stU

•

PAGE 43

7673

16151
16152

, KEYWORD LIST
KEYWRD, -114,-105'-IZ4'LET

"654
lISt 6

IUSI

11625.
116n5
116156
,"57
1162611
116161

U7IJ

7"4

10131172

21.'

IIIGOTD,

-11117'-117

IIITO,

-IU,-U 7IGOTO

" .. 1

-117,-117,-123'-125,-IIZ,GDIUB

76!i3

7676
iU·
"667
76U

7613
"654
11411
" .. 1
1656
1667
., .. 2
76!1.
11443
7..,.
7667
7663

-111'-116'-121i1'-125,-124,lNPUT

-121i1,-122'-111'-116'-124,PRINT

-114'-ll1,-115,DIM

BUI

767.
7..,'
7U.
7677
1431

-114'-111'-124'-111,OAT.

•

IOS/8 BASIC COMPIL.ER
3213
3214
3215
3216
1217
3218
3219
3220
3221
3222
322]
3i!24
3ias
3U6
3227
3228

nn
3230
3231
lU2

3i!13

3234
3235

3237
3238
32n
3240
3a"l

n42

3243
3244
3245
3246
3247
3248
32n
3250
3251
3252
325]
3254
32'55
]l56
3257
3258
325~

3261Z1

32&1
32&2
3263
32641
12'5
3266
3261

06331 7U 4
0"332 7fI73
0fi1333 UU
0fi1334 1212/0
0&335 1Ui
111&336 7.. '
0&331 7.. 4
0&340 76n
0&341 252i!
1116342 1t15"
0&343 7&73
06344 7U7
0&345 7&74
0&346 152&
11111347 165&
0&35111 7&73
0&351 uu
0US2 0205
0U51 as"
IIIU54 U73
0U55 7655
0U5" 7654
0U57 U61
0UU 7ft 5"
III&3U 7&73
0UU 0542
0un 7"5&
063&4 7Ul
0U"5 7&54
0U"e. 7ftS]
0t1l&7 765"
0U70 7662
0Uh 35U
0"372 7&55
1116373 7654
0&314 ?EtU
0&315 Ult0
06]7& 3565
0&377 7656
0&41110 un
0",01 7Ui
0&402 1&74
0",03 1661
111",04 76U
0&41115 766 7
0&406 7Ue
06107 7613
06410 3564
0Ull 7&75
0&412 7&&4
06413 7&&1
I/IU14 hSS
0&415 7673

•

0&41&

0&411

334&!
76175

PAL.S-V8

10/50172

PAGE 43-1

-104,-105,-106'PEF

-10",-111'-114'-105,FIL.E

-122'-105'-101,-104,REAOX

-122,-105,-115,REMARK

-122'-10S'.121'·124'·111'·12a'~105'RESTOR

-122,-105'-124'-125,-122'-11",RETURN

-123'-124'-117'.120,STOPX

-122'-101'-11"'-104,-117'-115'·111,-132'-10S'RANDOM

-103,-l14'-117'-1i!3,-10S,CLOSE

-103,-110'-101,-111,-11o,CHAIN

•

losla !ASIC COMPII.ER
]I"
]I"

JUI

"71

!In

un
JilT.
un
U76
un

UTI
31"
JIll
JI'l

... 28
.UI!
.6021

76711
76n
7667

... 14

su.
uu

.UI!
.6016
.6027

... 31

1674

un
u ••

'''31
.un un

-115,-1Il,-,15'USEX

.,.n

-,.5'-.16,., •• ,END

JIIS

.nu

u ..

-125,., •• ,-'.5'-116,UDEF

7613

JII!

Jail

10/30172

.un uu

.un 7U5
• .,14 un
.un U45
.UI.
.64n un

Jill

PALs-va

...., II.'
....1

16141

7674

•

PAGE 43-2

•

105/8 BUIC

3281
3288
3289
32CJ0
3291
3292
3295

3294
3295
329&
3291
3298
32CJ9
33210
331111
331112
]]03

3311J1.1
3305

33111&
331117
331118
331Z19
3310
3311
3312
3313
3314
3315
331&
3311
3318
331CJ
3320
3321
3322
3323
3324
33i5
n2b
3327
3328
3329
3330
3331
3332
3333

0UI.I3
IIlUU
0&41.15
0644&
0&441
06450
0&451
0U52
06453
0U54
0U55
0&45&
06457
064&0
IIIUU
0Uft2
0U63
064U
11164&5
IIIU66
06467
06470
IIIU71
06472
0U73
06474
0U75
0647&
06477
06500
065211
0&502
0&503
11165141.1
06505
0&50b
0&507
06510
06511
0651i!
06513
06514
1116515

11J11J11J0
011l11J1Il
1317

0000
324!
211J1.I~

7410
2044
70111111

2245
52U
1.1211
1274
3244
1371
3245
124J
6i!11

3644
fti!01
2244
564b
0000
4T7b
421kl
0000
0000
530i!
2275
2321b
SflTl
4473
1106

540ft
0000
0000
431J
1561

111.517
111&520

1.1313
6570
0000
4524
7117
1C!4f11
1014
311121

3334

06521

7132

3335
333b
3337

06522
0&523
0&524
I2Ib5i!5

04iH
1650
5331

065iHt

03&7
7104

3338
333~

334111
3341

•

06516

06521
0b530

PAL.S-V8

COMPIL.E~

14U

7I!J41

10/30112

PAGE 44

I OS-8 OUTPUT ROUTINE
OwTEMP, 0
OUPTR, OUBUF
OCDUNT, -401
OUTWRO, 0
IOUTPUT ~OUTINE
OCA
OwTEMP ISAVE WORD
lSI
L.OCTRL. IINCREMENT PSEUDO CODE
SKP
IL.OCATION COUNTER
L.OCTRI'! IBOTH HALVES
lSI
NOP
IIT'LL NEVER HAPPEN
OCOUNT ITEST FOR BUFFER FULL
ISI
JMP
NOWRIT ISTIL.L. SOME ROOM
JMS
OUDUMP IDUMP THE BUFFER
OUBL.OK-1/RESET BUFFER PARAMETERS
TAD
DCA
OUPTN
TAD
( -400
DCA
OCOUNT
OWTEMP IPUT WORD
NOItIRIT , TAD
CDF
10
DCA I
IlUPTR
IINTO BUFFER

CDF
ISI

JMP I
OUOUMP, III
JMS I
4210
OUBUF
OUBL.OK, 0
JMP

ISI
ISI

OUERR,

JMP 1
JMS I
1701)
JMP I
0

OUPTR
OUTWRO
(7ft07

DUERR
OUaL.oj(
OUSIZE
OUCUMP
QERMSG

!CABORT
OOEVH,
gUSlZE e 111
AMPRTN, JMS
COO15T
AMPSND+2
SCRT"", JMS
1.0D1ST
SCOMPR+l
LOD1ST, III
JMS I
QSAVAC
"1

CLA CMA

OSTACK
CCA
TEMP
eL.l CMl RTR
AND I
TEMP
SNA CLA
JMP
SKIP2
TAO I
TEMP
AND
SCOMP~
CLL. RAL
CIA

IMOVE POINTER
IDUMP OUT BUFFER
ICAL.L OUTPUT HANDL.ER

IINCREMENT BLOCK NUMBER
ICHECK FOR HOLE FULL
IOUTPUT FILE ERROR
IABORT COMPILATION
-:0'

II.OAD OPU
ICONC OP2S
IL.OAD OPU
ICOMP opas
IHANDLE ONE wAY INSTRUCTIONS
ISTORE ~ND ARG IF IN SAC
IGET TYPE OF 2ND ARG

TAO

lIS IT SUBSCRIPTED ?

INO, ENTRY IS ONLY 2 WORDS
IGET NUMBER OF OIMS
II.ITERAL. 3
IDOUBLE IT

•

IOS/8 BASIC COHPII.ER

IIIlt531
IIIltSn

3S4!

IInJ4

lUi

U4lt

un
:nn
:nn
nil

SUI
nil

un
]Jill
su,
snit
ns"
nil

JJItII

SUI

Inn

IIIn]5

Inu
Inn

11654111
1654,
16542

IU4J
IInu

Iun
IU ..

lun

un IKIP2,

J]54
1114
U,4
31114
U14

S414
S414
U12
Ul4

DCA I
DCA I
TAD I
DCA I

5 Jilt

JM'

?lll
illS It
un

IU!i!

l1U
5114'

111110

nu
un
nu

IU"

uu
uu

JJ65

IUSf
IU6I

]3"

IUltl

1451

n ..

11ft
3312

uu
nn

:nu
S111t

IU5'

165 Ita
116561
16'64

IIU.,
I n..
IUU
I116SU

16111
IIU7'i
Inn

c-z

OP2SU
OSTACK
OPisn
OlTACK
onACK

TAD
DCA
UI
GlLOAD
"HI I
CI.L CHI. rUR
AND
TYPE!

ISS4

IInss
I116SU

TAD
DCA
TAD
TAD
DCA

SIIU
4UI

I""

,USI

PAl.a-Va

""
1755

U,5

1UI

4525

5155
IIIU

UIllIt
411l1111l
US4
US4

TAO

liZ

TAO I

U/30/U

•

PAGE 44-1

IFIND SIZE OF 2ND ARG
lAND SAYE IT
IBACK UP lUCK
lAND SAVE

nils ADOR

II.OAD ARG 1
IGET TVPE BU
IPUT UCK USI

IiIIII

OITACK
onACK
)(12

onACK
OP21n

IPUT BACK AFtS 2

.-1

LOOUT IGET OPERATOR FINISH
OUTOPR.1/GO F!NIIH CODE
ISACRED COUNT WORD
ICHAR CH!CKU
GlGUt
IGET A CHARACTER
•• It
,!'AILED
CHECKC ICOMPARE

JMP
OPUU, II
CHECKC, III
JMI I
"Mil
TAO I
INA
CHECKC IMATCHU, SKIP TWO
liZ
SU CLA
GlUCKI INO MATCH, REPLACE
"HI !
liZ
CHECICC IALWAYS SICIP AT I.EAST
CHECKC
"HII' !
SCOMPR, 3"CRTN-3,41111,XSCOMP,XICOMP

•

PALa-va

10S/a BASIC COMPI~EH

3380

06514
06515
0651fJ

3381

06517

3379

3382
3383

341111
717ft

7Ut1

14""

6&014
0&&1110

8000

2255

3385

06&01
06602

2110

338&

1116&03

06U4

5255

3381

3388

06605
06606
rUl607
216610

164121
52ll
131i
1101

339]

06611
06612

3332

33U

06613

33~5

06614

1410
2327

3396

06615

4131

3384

3389

33~0

3391

339i!

3391

06616

3398

06617

3399

06620
rll6&21
06&22

340111
3411)1
34212
3403
3404
3405
34'"
3401
3401

3409
3410

3411
3412
3413
3414

3415

06623
86U4

0U25
UU&

86627
8661111

06631
1116632
86633
0&634
1116635

7420

02015
'1200
0000

52]i
22Z111
1377

tiel
3255
1217
33Jl
5i!01
TaU
4473
1505
1316

0U31

1374
311)'

3420
3421
3422

06645

6i!11
1772'
6201
1450
5773'

066146

125i!

0&641

3423
3424
3425

0,.,,50

4771 '

3112&

341&

06641
066142
0U43
111&644

3419

31127
3428

lUQ

3430
3431

•

0000

06652

00U

06653
121&654
06&55

74011

0U5f:1
8&&51

5217

0&660

TAO
SZA CLA

SZL

lSI

JMS I

TAO

DCA

TAO

DCA
TAD
DCA
JMP
INERR, CLl
ENDFIL, JMS I
ABORT,

IRES TORE IF IT HASN'T O~ERFLQWED

IHANDI.E~ ERROR
IBUMP RECORD NUMBER
ISET CHAR COUNT

QERMSG

IINPUT FILE ERROR

(4207

IRES TORE ·C LOCZTIONS

IRESET THREE wAY JUMP SwITCH
IRESET BUFFER POINTER
IGO AGAIN

1&00

(6213
7U5
10

INFO

IGET START OF BASIC.SV

7U5
EDTBLK

IT'WERE RUNNEO
ISAVE MAGICAL BLOCK NUM6ER
IUSE SVS HANDLEK
ITO READ IN THIS MUCH
IINTO ZERO
IFROM HERE
IHALT IF 8AO READ
IGO RESTART EDITOR
13 WAY CHAR UNPACK JUMP

1&01

HLT
JMP
HLT
JMP
JMP
ICHAR3, TAD

IYES
IBUMP RECORD COUNTER

INfRR
INREC
(w&01
INCHCT
INJMPP
INJMP
INBUFP
INPTR
ICHU.1

III

EDTBLK,

ILAST READ YEILO ENO OF FILE 1

ISET ENO OF FILE SWITCH
100 THE READ
lONE BLOCK TO FIELD 0

1505

TAD
DCA
UO
DCA
CDF
TAD
CDF
SNA
Jf04P
DCA
JMS
EDTSIZ

IREAD CHAR FROM INPUT FILE
IBUMP THREE WAY UNPACK SWITCH

INEOf'
INHNDL

111200

INSUFP, INeuf'
INREC, o
JMP
INBREC, lSI

5710'
740i INJMP,
5273
12I/Jl

INJMP
INCHCT
INJMP
INEDF

JMP
ENOFIL
INCTR
INGBUF, TAD
CLL lAC
SNL
DCA
INCTR

11100

06651

III

ISZ
ISZ
INJMPP, JMP

3175'

06648

PAGE.
ICHAR,

1321

0,.,,36

3411
3418

PAGE 4S

I OS-8 FILE INPUT ROUTINE

3317

3318

10/314/72

EDTBGN
ICHARl
ICHARC!
INJMPP

IRESET JUMP SWITCH

•

101/8

UUC COMPILER

SUi!
JUS

....1

JUS
JU6
JU,
JUI
JUt
SU.
JUS
:SU.

.....
IU661
"661

....,.

'66"
.... 6
,,6..,
11.671

... u

'6'13

US5

1133
136'
1112

1IU

ua'

1IU
1IU

nl'
UJJ

n6'
un

UU
U ..

II.. U
... 15

JII'

"6"
...
n sus
n66
"111'
'6"S un

JUS
34.6

JUI
1449

JU'

"'II
.61 .. "
UU
JUS
U5I

J'"

16113

JU2

86115

un
345.

UI!

JU6
J451
JII"

""'6
111671'
16TU
1116111
1116112
16'13

'UIII

SU3

UIIII
salS
11111'
U58

11"
'''14 un
J461
1361
."U
U6,

54 . .

UU
S464

un
14 ..

]461

1468

:UTili
)471
:U12

16'16
.6111

1451

.. U.
116111

'"l

use
sa.,
I"n

16122

U6111

0612"
.6715

161]1

1111

Inn

:un

.673_

UTa

l161n

run!

1uu
.. '

16116

116711
ID6U.

]410

'6T41
116742

]412

J41]
]414
]415
]486

'I"

III.
1.1.

]419
3/111

''III

1111111
1111111

3476

UIIII

'16116

'61U
IUsa

3474

"III

ID6T1tI
116744
116145
116146
116141

•• 1.

1716
U]6

JUS
1155

nee
nu,

iU6
4!1Ii

5136

PALe-YII

1111/30172

•

PAGE 45-1

INJMP
DCA
INPTR
TAD I
ICO"BINE THE HIGH ORDER BITS
AND
C1480
10F THE TWO WORDS
CLio RlR
RTR
ITO FORM THE THIRD CHAR
TAD
INT.MP
RTR
RTR
IBUMP WORD POINTER
INPTR
ISZ
ICHARI+'/DO SOME COMMON STUFF
JMII
IIAV! THE HIGH ORDER BITS
INPTR
ICHARI, TAD I
( 141lJ11
AND
IF OR THE THIRD CHAR
DCA
INTMII
IGO TO THE SECOND WORD
liZ
IN'TR
IGET THE LOW 1 BITS
INIITR
ICHARS, TAD I
AND
lAND I MEAN ONLY" l'
un
(-U4
ICHECK 'OR \ CSTMT SEPARATOR)
TAD
INA
JMII I
ICHU
/TRUT LIKE CR
(U4-U III IT ·z (END OF FIL!)
TAD
INA
JMP
END'IL IY!I, ITS END OF FIL!
TAD
cu-u
INA
ICHU+l IIGNOR! LINE FEEDS
JMP
/TABS •• BLANKS
lAC
INA
TAD
(48-"
TAD
(11-15
INA
JMP I
IRETURN ON CARRIAGE RETURN
leHU
lAC
INA
JMP
leHU.' IIGNORE 'aRM FEEDS
Inx CHAR
TAD
Cl4
ISZ
ICHAR
IRETURN TO THE CALLING WORLD
ICHU
JM' I
INTMP, I
INEO', 1
IHCHCT, -I
IENTRY ADDR GO!S HERE
INHNDL,
INCTR, I
INPU, I
IIICOMP, ICOMP,UCOMP

CHKWD,

TAD I
In

CHKWD
CHKWD
CWUMP
CIIIUMP

DCA
WOLOOP, TAD I
SMA
CHKWD
liZ
SPA eLA
QGETC
JMS I
JMP I
CHKWD

IWORD CHECKER
IGU POINTU
ISAYE: POINTER
IGET NEXT CHAR
IIF NON NEG, FIX RETURN
IGfT CHAR
IRETURN

•

IOS/8 BASIC COMPIL.ER

3487
3488

3419
349121
3491
lUi!

3493
3494

•

06750
06751
U752
1/J67S3
1216754
1216755
06756
06757

1755
2355
7650
5342
5736
121000
140121
UrII0

!'AL.8-Va
CWTEMP
CWTEMP
ISZ
SNA CLA
JMP
WDL.OOP
JMP I
CHKWD

TAD I

CWTEMP,
FOIVI AFDIV
XDIV,

10/30172

PAGE 45 .. 2

ICOMPARE
IINCR POINTER
IMORE
IFAILED

•

PAI.8-va

101/8 BASIC COMPII.ER

sn,
S. . ,
sn.

SO ..

SSIIl
Sill
nlil

JIIS
:SSI.
SSI!
IS..

0"'111
III"'''
IIIUU
IIJUU

16"4

111114
7714
1IJ1Ji'

I INITIALIZATION CODe:

IIJIIIIIII

16.4

'61"
lin
,,'66
,61" 74.111
'61.,.
.. 171

!lU
7'"
'614
16,5

IIJ67U
l167n
16714

3512
35U

1I1IJ1II
1IJ1I1IJ1II ·5777' START,

1114

1.,.11

J!U

1IJ1I11
1IJ111S
1111'

1610
16''''
5511
OIl'
.,'"
nil
1IJ61" 7177
nit

J!U

nil

nu
JIll

nill

SUiI

!!Sit
31J1!S

n16

3!11'
nil
SU.
353111
35S1
3532

3n4
3!53!1

sn,
un
sue

In.

3540
3541
3542
3543

3!U

3545
35 ..
1507
15&8
5549

•

PAGE 4b

IUiI

JSt7
SIll

3Si'

10!3117i

I 711 IS

11'111/1'
111711111
17111111
0711111
11711111
lUIS
1117114
118U
1111016
lIJ'lIJ17

11711111
170i11
11112i!
IIJUI!

17014
17125
1702'
17827
1IJ71J1
,7831
un2

17833
171/J34
1713!1
I7U6

07137
07111411
17041
1ZI7141
0711143
07044

.au

1176

nu
""1
!iU

4774

IIU

*I.JNE
oIMI'
RUNNEO
CHAJNED,CD'
III
(7644
TAD J
CD'
(UlIII
AND
INA eLA
CHIDJT
.IMP
II
CI'
Cl00
oIMI I
13

JMP
un CHEDU, TAD
DCA
311UI
6111
CD'
TAD 1
14111
3046
DCA
TAD J
14UII
UlIJt
CD'
DCA
31U'
TAD
un
DCA
S770'
6111
CD'
5713'

14U
6111

su"

524'
fla11

1""
'Ill
Uti
U74
011U
44fU

!ln0
lU0
3767'

Uti

TAD 1
CDI'
DCA
JMP
GETDrV, CD'
TAD
CD'
CIF
oIMI I
I

100 LOOKUPS, AND FIND TEMPFII.E

IWAS IT A CHAIN FROM BRTS 7

IND, FROM THE EDITOR
ICHAIN FROM BRTS, RESET
ITO FORGET DSKa HANDLER

ITRTS
INOW GO OPEN TEMP FILE
UNFO.' IPICK UP SOME STUFF
Ie III

Ie 11

IFROM THE INFO BLOCK
ISTART 0' TfMP FILE

IUIII

ISIZE OF HOLE

BLOCK
OUInl
BLOCIC
OUBLOK
11/1
Ie III

IENTRY ADDR OF HANDLER

INHNDL
STRT2
11/1
7" 7
U

(ill

INDEVH+l
JMP
tIIG
TAD
I-i
DCA
INHNDL
CIF
10

IGET DEVICE NUM FOR INPUT FII.E

IGO FETCH THE DEVICE
12 PAGE HANDLER IS OK

IERROR
IGET HANDLER ADDRESS
ISAVE IT

•

IOS/8 BASIC

3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
35U
3561
35&2
35U
3564
3565
35&6
356'
3568
3569
3570
3571
357i
35'13
3574
3575
3576
3577
3578
3519
35'0
3581
3512

3583
3584
35'5
35 ..
3587

07045
0704&
07047
07050
07051
07052
rll7053
07054
07055
01056
0111157
01060
070"1
070U
01063
0711164
0U)65
0111J66

01U7
07070
0U71
0'107i
0'1073
07074
07075
0707&
07077
0'1100

07101
1117102
01103
0'1104

01105
07l1/J&
0'1107

07110
07111
01112

3588

IHI U

3589
3590
3591
3592
3593
3594
3595
359&
3597
3598

07114
rll7115
07116
07117
01120
071 2 1
07122
07123
071a4
07125

•

PAL8-ya

COMPILE~

IRESET SYSTEM TABLES
IDELETING TENTATIVE FILES

TAO

1111
7&17

ISET UP INPUT FILt. PAIUMS

COF
AND

C77U

IGET SIZE

TAD

(17

JMS I
13
COF

376:5-

DCA
COF
TAD
CDF
DCA
CDF

lUi!

PAGE 4/)-1

(200

4774
1!J1!113
6211 STRT2,
176E1'
6201
0365
1364
7132
7Ui!
6211
176i! •
6201
3761'
&iHl
1760'
305111
1757'

10/31tl112

CLL tML RTR
RTR

TAO

DCA

TAO
~CA

INtTR
11'11

1620
INHEC
1111
INFO+3
BRTS
INFO
ABORU
INFO+2

IGET BLOCK NUMBER

IGET START OF BRTS.SV (+1)
IGET START OF BASIC.SY
IBOTH FOR SLOAO
IGET START OF BLOAO.5Y

(U)

1756TAO
COF
&Z01
DCA
LDRBLK IFOR CHAIN TO BLOAD
3'155'
ISET TTY FL.AG
&12146
TLS
CYARSr-l/INITIALIZE ST AR~A
1354 INlTST, TAD
DCA
Xl2
3012
(-43&-43&-436
1353
TAO
DCA
ISIZE OF NUM AND STRING TABL.ES
Xll
3011
COF
10
6211
ISET TO 4000
'1130
CL.L CML IUR
DCA I
lCli!
3412
ISZ
Xli
2011
JMP
,·3
5301
(-440
INOW ARRAY TABLES
TAD
135i!
)(11
DCA
lAND SUCKETS
lUI
DCA I
34!i
X12
1(11
ISZ
ISET THEM TO ZERO
2011
JMP
,-2
5107
CDF
~a01
JABORT IMODIFY ~C L.OCATIONS
TAO
1325
DCA
7600
3751 '
JABORT
TAO
illS
3750DCA
1&1115
JMP
5747'
CORE
IGET CORE SIZE
611J4E1 NG,
TLS
JMS I
QERMSG ISUPER ERROR
4473
2111
2331
6041
TSF
JMP
53ii!l
,-I
JABQRT, JMP I
541E.
USORT IABORT COMPILATION

•

IDS/I au%e CDMP%I-EII
3599
161'
SUI
nlZ
S.. 3
S...

.7141
IU5I

PALS-VI

UII
,U,

UJ/30172

•

PAGE 41

""
"IS •'U' .nl
,
"
"U"
16'7
",
'U'1 66111
Ji ••

J .. ,
J ...

"It

I7Ul
IfUI

'U5J
."15.
.USS

7341
6146

......
..
n17

'U6I '61111
""
stu '''UJ 6111
un IfU' 1117
J.U
J6U
"II
J6U

JUT

use

1619
JUI
J61S

J622
UU
S6I.
SUS
3616
JU,

JUI

3619
SUI
SUI
3612
SUS
SU.
JU!

16]6

3617
3UI

3619

S64111
3641
3642
)64]

364.
3645
36 . .

S64'
S64a
3649
3n0
3651
5652
3653

'''I
16"

IU"
1",6.
nUT 61S1
11171 un
IUU ·6516
17112 16U

lun

'U74
I1HS
IU"6
I111T
IU ..
lUI'

17212
lUll

IU14
IU8!5

11216

11J1i1.,

17211
11211
lUtz

nUJ

46S1

1111
1111
1644

4611
UII

U"
Uu

tINBUF

CORE,
CORI,

T.. '
7114
IUS

1231
SalT

62"

CoRt,

71111

CORa,

1123

32"

1111

CO,
TAD
RTL
!tAL
AND
TAD
DCA
CD'
TAD %
NO'
DCA
TAD

ICORE I%ZE ROUTINE FROM
losa SOFTWARE SUPPORT MANUAL
cORln
CORU
COREll

,.,

CORLOC
CORI
CORi!
CORLOC

:nu
DCA %
'''U'
111111111 COR1II,
17iU6
TAD I
CDRLOC
III?ZU

Hal

17211
172'1
.7221

14le CoRX,

74 ••

1217

TAD

I1l2i

1641i!1

11223
Inaa
.'iZ!
Ina6

lUI

san
lilll7

3123

2325
5280
.'U,
l1il0
COREll,

11231
17232

UIII1
U4Ii!I

1325

TAD

eORII
CORY

au CLA
JMP
COREIC
TAD
CoRl
DCA I
CORLOC
%lZ
CORln
COR.
J"'
CD'
CLA CMA
TAD
cORin

IHI FIELD IS ,FIELDS-I

•

IOS/8 BASIC COMPILER

3&54
3655

3ft5&
U57

]658
]6SCJ
36&0

01233
07234
07235
07iU&
07231
07i!40
07241

3U1
3Ui!
3&63

07242
0feU

lftU

07245
0724&
07247
01iS0
0U5l

3U5
3fIU
3667

lftU
3UCJ

3&7IIJ
3Ul

3Ui!
3&73
U74
3&75
3&7&

31177
3&78
3UCJ
lU0

0'7244

1371i'
3775'
1314

47U' GENER,
41&4'
47&4'
121/Jl
n01

3&87

01i74
01iT5

TAD

lUft

41ft4'

07213

DCA
TAO
DCA

0'72&2

U8ft

~~~

Uli!

3711 '

07261

0121i

3713'

3765.'

3&81
3Ui!
3U3
3U4
3U5
3&88
3fIn

1041

0'7i54

3134

7132
3135
4517

25&i!
7775
41&.S'
lUi!

3322
1361
lUi!

JMS

TAD
~CA

FDLOOP, TAD
DCA
TAO I

172ii!

23li!

lSZ

SNA

551f/l

3ft93

01300
01301
01302

7450

3U2
]&94

0731113

3695

0731114
01305
0730&
07307

3& 9ft

3691
3&98
3&9CJ

FDPTR
FDPTR

IGET FIRST WORD

TAD

FUNSlZ

IGET SIZE OF MOVE

TEMP
FDPTA
FDPTR

IGET A !IIORD

07311

l'12i

TAD I

3701

07312
07313
01314
01315

2322
34U

DCA %

5311

0131&
Fel1317

4517
i!51111

lAC

DCA

lSZ

lSZ
JMP

2021

01320

0000

(/I 732 1

5274

•

CFNINlT 15ET UP FUNCTIONS

FDPTR
(WORDi-1
Xl2

FOPTR
FUNSIZ

3701

NEWVAR

DCA

3108

TAO I

07310

310&

z..

~ ~ ~

172i!

3320

3700
3103
3704
3705

~... #~4e"

~.~,

QREMARK IDOlllE, START COMPILER
JMP I
ISAVE IN WORD1
DCA I
lC12
IGET LOOKUP COUNT
CLio eMA RT~

3412
7l4&
132fi1
7001
3021

3702

(7 12100

-3

0121&

UCJl

~~!~~~3~41117l~,,,,

PATCH] -;;- l~' -:",.,
(PATCH4+3&177+5200
PATCH4 .r'" .4'~,.

OCA ..=...-,.,AlCH,..·c..
'Z,.. z.. "'-JMS
GENTMP IGENERATE TEMP 0
JMS
GENTMP IGENERATE TEMP 1
JMS
GENTMP IGENERATE TEMP 2
C~A lAC
IGENERATE STRING TEMP 0
JMS
GENTMP
CLA lAC
IGENERATE i.ITERlL 1.0
DCA
!IIORDi
Cloi. CMI. RTR
WORD2
DCA
Q~UKUP2 IENTER INTO ST
JMS I
LITRi.

01i77

3ura

to!IFLO
IoIIFLD

CIA
DCA
NFLDS
CMA
Ito!OW MANY FIELDS '1
~,'t 1. l ..",.
TAD
MIFLD
IMUST TMIS BASIC USE 1
SZA eLA
I(SOUNDS LI~E A LINE BY DYLAN)
JP4P
Ge.N.u'
.'
TAO
(PATCH1+3&117+5200 ,--;., 7
~CA
PATCHI IONLY 8K, DON'T USE COF'S
ZZ'~
TAD
(PATCH2+11&l77+5200· ......-. (' /

'7Uf4
5i!55

37&7'

0'7i!&3
01ift4
072&5
072&&
072&1
01iH0
07i!71

TAO

3711'
1040

07252
1117253
1117255
lIlT i!5&
0TiSl
0'7 i! &1/1

DCA

3041
1047
1041

FUNSIZ,

lC12

IPUT INTO WORDN

TEMP

,-4

JMS I
f'UNCTN

QLUKUP2 IENTER INTO S.T.

JMP

FOI.OOP

ILOOP

•

• ...

10lla BUIC COMPIL.ER

n19
nUl

3711

1712

nu
JTU

371.
JTI7

nu
Jut

IIIn2i
.nn

1II1U4

IUiI

.na.

IU27
lUI'
lun
IUJI
Inn
IUJIJ

, 'O'TR,
CORL.OC, •
CORIC

7U7
111111
I IIi
75U

ns.

7SU
75 ...

n51

155'

Illi

CORV,
lOll
CORln, I
NAMLIT, aCOMPN

II.OADN

'RTIN

"'N
aa'N
"'N
•

PALe-va

U/JPJl7i

•

PAGE l17-i

IIAVE 'ILE NAME-POINTER LIST

•

IOS/8 BASIC COMPIL.ER

3720
37iH
3722
3723
3U4
3U5

In&
lU7

3UI

3129
3730
3731
3732
3733
3134
3135
3736
3737
1738
3739
3140
3141
3742
3743
3740
3745
3146

3747
3748
37419

3750
3751
3152
3153
3154
3755
37'U
]157
3758
3759
3160
3161
3762

37ft]
37114

3165
37&&
3761
3768

3769
3710
3771
3772
3773
3774

073&1 lUll
073&2 1400
07363 4223
073&4 42016
07365 2 i!j!i!
e1366 . 7I/J00
013&7
152111
07370 5323
07371 1471
07372 5303
073H 227f11
07314 5301
07375 2iH4
0737& 5217
1117377 2345
7400
0T400 7400
01401 7777
0140i 2000
01403 000111
0141i'14 7416
07405 1777
0740'" 2000
07407 111000
074l1i'J 1417
07411 1777
07412 UU
07413 0011J0
07414 7Ub
07415 7771
07416 21/l21111
07417 001/10
07420 7437
07421 1771
07422 211l1/10
07423 4000
07424 1456
07425 7771
07426 i!001i'1
07421 00r110
01430 7451
07431 7717
01432 2000
01433 400111
1111434 1U6
01435 7177
07416 Z000
07431 011H110
07440 747.
07441 777&
07442 00016
07441 20014
07444 1/1000
07445 7471
01446 7771

•

PALS-Va

PAGE '18

10/30172

.....,_.

PAGE
FNINlT • f:UNC3,-1,201i110,0

lABS

FUNC 11-112000,0

IATN

FUNC2'-1,600010

IASC

FUNC1+20'-1,2000,1i'I

ICOS

FUNC2+20'-1,21i'100,4000

ICHN

'UNC1+40,-l,2000,0

IfllP

FUNC2+40,-1,2000,4000

IOAT

FUNC1+220,-1,2000,0

ISQR

FUNC1+.0,-2,1/l,2000,0

IElIP2

FUNC2+60,-1,6000,0

ILEN

•

.~ f

-:t. ,.

._d 1'~
"""-,,/r

/)
••./. '!

•

10SII BAue COMPII.E~

PAI.e-va

117447
117 4511
IIU!,
Iun
lun
IU!II

'111111
III"
nu
17n

'UNCt.llll,-"ill.,.

lINT

11111
'IIU
1115

FUNca.,I.,-J,illl.,411.,6111.'1

IPOS

FUNCS.".,-,,'IIIII,I

ILOG

FUNca.'il,-3'II,illle,61.1,4'1I0

ISEG

FUNC,., •• ,-"i'le,1

ISGN

'UNCI.'.II,-"i.II.,411111

ISTR

FUNC1.161'-1,alll,.

ISIN

'UNCi.l",-" •••• ,1

IVAL

'UNCt.21.,-"all., •

IRND

FUNCi.'21,-,,'I.I,1

/TRC

31n
3116
3117
3111

nn
nl.
su,
STU
nu
n84

In,

171.
n'1

SU.

n"
'79,
'19,
'UI
STU

.1US
1I1U.
• .,U7

ze."

.1111

15,.

IITU.

1175
••11
1.1'

1777

I''''
,,.
1111
111461 un
I .. '

JI'I
IIU

.1471
,un
lun
114111
111471
17416
11471
In,.
IInl'

'In
sa 14

IIIn .. 41111'

In.
'1'!
In.
JU7
,n,
ST"

JlI2

Jill
III'
JIlT
JIll

sa ..
Jill

JISt

Jl12
JIll
3114
1115
III'

JltT
JIll

]II'
3ue
]121

]822
]In

1124
JUS

lU6
3827
3828

38n

61"

.1'11

15,.

11n
U.I
11111111

' ' 112 11111111

InllJ

1"15

Inl'
.n1ll7

.nUl

.nu
Inll

,nn

"un
!If

n76

...,
7Tn

ill'

U77
7Tn

6IIi11

11.1
• 7515 76U
.nu 7T77
en17 211.
17520
11511 7U1
.1514

...,

Inn 1717
Inn 1111
IIIn24 .11/111
11525 111""
I
In26 uru BUICN, FILENAME BASlC.IV

IUa7
In:S1
IUIt
In32
11533
17534

07535

PAGE 48-1

11.1

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

117461
117 .. ,
1,.62
'1463

UJ/3ana

IFILE NAMES

Uti

nl'

232ft

1115

211/1.
i:n6

BCDMPN, FILENAME SCOMP.SV

IFOR LOOkUPS

•

IOS/8 BASIC

PALS-Va

COMPIL.E~

10/30172

3830

07536

lIIiH4

BLOADN, FILENAME BLOAD.SV

3831
3Ui

1117537
1117540

3833
38]4

07541
0754i
07543
07544
07545
07506
07547
07550
07551
07552
07553
1117554
11.11555
07556
07557
07560
07561
07562
81756]
e75U

111111
0400
i3it!
02ii

BRTSN,

FII.ENAME BRTS.SV

BolFN,

FILE~AME

BSFN,

FILENAME BASIC.SF

BFifN,

FILENAM~

BUFN,

FII.ENAME 8ASIC.UF

i311
0311Jid
2506
0211H
2311
0300
24U

TMPFIL, FIL.ENAME BASIC.TM

3835
3836
3837
]838
]839
]U0
3841
]842
384]

]U4
3US
3846
1847
3848
3849
3850
3851
3852
]85]

175ft5

:5854
3855

01566

]856

3857
3858

•

1117Sft7

07570
817571

PAGE 48-2

2423

0000
Uib
0201
ill1
031110
0Ub
020'
2311
0l01D
231/.16

0201
i!l11
111300
0Ub

8ASIC.AF

BASIC.FF

•

PAL.s.va

IDSIS BUIC CDMPI~£R
ABORT •• ]5
ABDRTX 0152
ACM
l5U
IUJU
AtNT
ACO
111137
A'ADD U41
A'DIV 6600
"LOA .. 41
A'MPV 6540
.'STA 67110
A'IUI 61f11f11
AIDIY
USUB UIiIfII
!SUI
ALI
AMPRTN 651111
"MPSNO 1!l51
ANoRM 5236
AUYST 2132
ARGCNT 0161
ARGLUP taU
5414
ARI
ASIIGN U61
A10K ' J4ft!
14U
AZOK
BACKI 41111/10
BADDI!" 1253
BADElCP 3122
BAD'N 2131
BAD'OR 3321
IUD'SS 3115
&ADG02 iU&
BADI' ifllU
IUDLU 11134111

•.,41

IUDNXT 0162

BADP'

2I!fII4

u,'" 1546
BAlIeN 7!i'

BCOMPN 7532
755.
BFI'N
BI.OAON 753.
8LOCK 012146
BOIlN' T774
111115111
BRTS
IRTIN 7!i41
7552
BSFN
BUCKET UU
BUFN
7562
CALLUF ]]0]
CuUM 3556
CUEMA J554
CUEMM 3555
CHAIN U50
CHAINE 7001
CH!CKC 6555
CHEOIT 711113

CHUST 2441
CHGARG 1321
CHItDIM 1632
CHKSOM 11661
CHKSGN 5444
CHKYAL 2230
CHKWO 6736
CMN
1414
CHRPTR lUlU
CLDSE lUi!
CLOSE' 7434
CLR'N 1501
COl.oN flllIU
tOMARP 'U2
CONYLP 51114
CDR!
nllll
COREX un
CORLDt un
CORln nn
CORY
7324
CORX
1211
CDRI
120 iii
TnT
CORI
COR2
T211
CORU 1215
CPUY! 41"
CWTfMP "55
DAeNT 1i106i
DAI.OOP 103.
DAPUSH 112160
CAPUT 1111
DUA
1431
DATFLD 14n
OATLST 25.'
DAT'TR 1515
DECPT 111023
OEf'

Ulll0

OEf'UD 1051

D(1.00P l!11

DENTRV 1455
3616
D!GTST 50S3
0600
DIM
OIMIUR 1701
0742
DIM!
OLIUE 0051
OOCAL.L 320111
un
DOLU
OOSIGN 5150
DunE 1453
DSTRNG 1441
02
5234
0]
5235
f;DTBGN 3012
ECTBI.I( 6&52
DIGIT

10130172

EOTsn lUI
0343
END
ENDEXP 2741
END'I1. .633
ENDFNS U&2
ENURy c107
7570
EDST
UMSG 57111.
ERMSQ2 Uli
UIGN 5067
UPLUP 541111
!XPMUL 5124
UPON fIIliS
IXI'R
2UI
IICPRTN :1540
III fII 00
'ADD
FOIV
l400
'DLOOP 1214
'OPTR nee

'lie

"1.011

74U
Ull

nOIY 3000
i!~2:!
f'ILE
nLENO 1412
fl'Il.ESW 2556
nNCAL 3Z71
nNDA 2470
'INDEX Uft7
fl'INOIM 0&5T
FINDSV 4US
nNDTO 1&21
!'IN!NP lUi:l
FINaN 371111
!J'ISU8 300111
'IXUP 511171
21111110
fL.DA
'LIMIT 1133
FMPV
1000
FNEG
74113
FNINIT 740111
FDPENI, i!S52
FOR
Utlll0
FORCP 1756
FORFL.D Utu
FORJMP 1!111162
FORNC 1135
'PDIV 5Ufll
,POVI.P 5322
'PMUL 5200
FPRTNE sliln
FREE
2572
FREFLO 2266
FlU
2400
'STEP 1134
FSUB
0400

•

PAGE 49

FSU81 33114
FSUB2 3326
FUNCTN 2570
FUNCI 741&
'UNCi! 7417
FUNt! 7400
FUNt4 7415
FUN'L.D 133.
FUNNAM UU
f'UNNUM 3336
FUNOI( 5&73
'UNPTR 1127
FUNS
&12111
FUNSlZ 7UfII
FUNSRC 5&&0
'UNSS 1l!lfll0
GCS
552121
GENER 7255
GENTMP 4i!00
GETU 3517
GETC
4035
GETCWS 401121
IfETOEV 711J32
IfETEXP 5111&3
GElFN 2111
GETIFN 2045
GITLIN 0222
GETNAM 5U0
GOlUB 2154
GOURY 251114
GOTCR 0235
GOT!(W 0314
GDTNAM 5&31
GOTO
2147
GOTOPR 2115
GOT REt,. 2027
GOTSN 3&11
GOTSYM 2453
HIFLD 0047
HOOKIN 2i57
ICHAR U0121
ICHARl 6&77
ICHAFla .&73
ICHAR3 U&I1J
IF
2000
IHND aUJ3
IFLUPl 211'17
IFL.UP2 2072
IFNREG 011lU
I'OP8 4141
IN8REC 6&22
INBUF 7200
IN8U!"P &&11
INCHCT 6130
INCTR 6732

•

105/8 BASIC COMPIL.EH

INDEVH 4400
INEOF &7£1
INE~R
&&32
7&04
INFO
INGBUF &61217
INMNDL &131
INIT&T 7074
INJMP &fI55
INJMPP &&03
INPTR &133
INPUT 0400
INPUTL. 0402
INREC 6&20
INTMP 67i6
!TReNT 5371
JUDRT 7US
HRnD 1413
JAROND 0062
5400
JEOP
JEQ
5006
5010
JFOR
5002
JGE
5004
JGT
5007
JLE
5005
JLT
JNE
5003
5000
JSUB
JTA81,.E 241&
JUMP
5001
K8DCHI( 234&
I<EYWRD b243
KWI.OOP 0213
L.DRBL.K 0351
L.EA00 5757
0030
L.EFT
031&
LET
LETTER 3f100
L.FDOL.R 5bl"
7000
L.INE
L.INEM 0053
L.INEL. 0054
L.INMA)( 0120
L.ITRL. 25&2
L.OAD
4117
L.OAOSN &000
L.OAOSS 4303
LOtTRM 0044
L.OCTRL 0045
L.ODSN 0547
L.ODSS2 4314
l.OOtsT &513
L.OOI<UP 2400
l.00K2 2212
4000
L.SS1
L.S81AC 740&

•

4400
L.S52
I.SS2AC 7407
L.TEMP 2344
I.,UARAY 2463
L.UeUF 4&36
LUFL,O 0071
L.UI<UP2 2200
L.UPFLO 0742
L.URETN 2451
L.USARY 251&
LUSTRG 2456
L.UV AR 2427
L.6i!"1 2242
345&
MAC
MDL.ABL 3725
MINUS 2755
MI5ARG 2152
MIXED 3511
MM
3452
0055
MODE
MODsn 5542
MOROAT 1435
MOVARG 3227
MUL.LUP 5215
M42
5457
M5
1131
NAME I 0134
NAME2 0135
NAME] 013&
NAMI,.ST 732b
NtHARS 0020
NCSAVE 41&5
NDIGIT 0024
3104
NOOK
NEGFAC 5267
NEWARY 2511
NEWFL.O ce33
NEWL.IN 0201
NEWN3 2343
NEWOP 0032
NEW8N 371&
NEWVAR 4223
NEXT
001&
Nfl( TL. 0113
NEXTX 0704
NFCNT 5236
NFL.OS 2345
NFI.OOP 5275
NFPTR 5307
NFUNS 1133
NG
7120
NMOOE 7541
NOCR
0461
NOOIGT 3&30
NOt::XP 5077

PAL.8-Va

10/30172

fIIOFNAM 5702
NOGOOO 12131214
NOL.E Tf~ 3614
NOMATe 5&17
NOREGS 3336
NORML,F 524&
0062
NOSN
NOSNUM 0267
NOSTAR i!701
NOSTRG 5&24
NOTHEN 2055
NOTMIN i!&27
NOTNEW 3100
NOTNUM 3150
NDTQOT 5535
NDTSAM i!250
NOTSSD 3042
NOTVAR 313&
NOWRIT &4&3
NOZt:RO 5755
N06000 525&
7521
NROL.
NUMBER 5000
NUMCMP i!041
NW5VAR 4236
NXTOGT 5155
N3SIZE e34b
OADO
5353
OCOUNT b445
OOEVf04 &505
OKFUN 1256
OI<INAC 3253
OL.DN3 2342
OL.OOP 0031
OL.08TI< 00b0
ONSTAK 3107
OPENAF 7454
OPENAV 1474
OPENNF 7514
OPENNV 7534
0143
011'0
OPRAND 2643
OPRL.UP 02105
OPR8R 26&3
OPR8RS &050
0140
OPl
01'2
0141
OP2SIZ 6554
011'3
0142
OSTACK 0014
OUBL.OK &475
OU6Uf 0000
OUOUMP 6471
OUERR 6502
&444
OUPT~

PAGE 49-1
OUSIZE &50b
OUTCAL. 3210
OUTOL.D 2733
aUTOPR 3400
OUTWHD El446
OWTEMP &443
07100 3E122
PATCHl 2214
PATCH2 2270
PATCH3 1417
PATCH4 1520
PATCH5 2222
PCRL.F 0062
PETA8L. &00121
PEXP
0522
PFCAL.L 0475
2551
PL.US
4052
POP
POSEXP 5117
POSTJ( 0350
PRFUN 0547
PRINT 0443
PRINTL. 044b
PRNTSN 5741
PRTENO 0534
PSN
5735
PUSH
40&2
PUSHO IH')73
PUSH2 2727
0';32
PUTi
PUTi!
0540
PUT40 5514
QBACl(l 0125
QCHECI< 0113
QCHKWO 0075
QCOMAR 0115
QO I GIT 0131
QERMSG 0013
QEX"R 0105
QGETAl 0111
QGETC 0102
QGETCW 0103
QGETNA el114
QL.ETTE 0130
QL.OAD 0120
GlLOADS 0112
GlL.OOSN 0074
QLOOKU 011&
QL.UKUP 0117
QMOOSE 0076
ii'lNEWL.I 0107
QNOREG 0132
QNUMSE 0126
QOUTO" 010&
QOUhR 0100

•

101,. IAIIC COMPI~IR
ClPOP
lUI
QPUIM BlU
CI'USMO IU3
ClRIMAR 11l1li
ClUITC IU4
QIAVAC IU4
ClUYIC IU1
IiIINUM 1111
IiIITRIN IU7
CllI
lUI
Cli
1 UI
111411
run
RANDOM Stu
RIAD
7111
RIADX 1526
RI~OPR iU 1
REMARK 1215
USARIi 1411
RUT
7415
RUTCP 41121

aNUMI 2532
SPACE !lnl
SPCUL ]!U4
'RDL.
1461
'RUD UII
IIlNAC 4141
IILOAD 4113
III.OOP JIi'
IIREG! '164

ee"

IIRua
IITORI 2411

IInPE 4J11

STACK

Ill!
'UCICA 1UI

TRVEl
TRVEI
TRY'UN
TRVPNT

51/152
5B56
SUS
0514

TTl(
;SUI
TTY
3UI
TTYflL 214IIJ
TWODIM 111624

TWi

5231

TW]

SUS

TVPI

111126

TV'"
UDIf

]SST

TYPCHK 1467

TYPU

In.

111111
UMOPR IU!
UMRTNE n:n
UNOPR 2614
UNRIFD 11641

ICON
nil
ICATN. Ul1

ITACICO 1134
STAUZ ' . . I
US6
.TAR
'TART 7111
nCHII< UU
'TEMPS 2560
IfEPl 11Z1
ITKL.YI. 1166
ITICOYR 4110
STMPCT IllS
IT"'PL.Y In6
ITOICIZ 1044
ITOP
7441
8TOPX ]565
nOV!R un
ITPTR IU7
STRUG US4
ITRCMP 211165
ITRGER 5511
STRING 5455
ITRTHP 1213
ITRTZ
STRn 4651
IYARaT us.
SVCNT 8041
IYTIMP 431111
SWRnE 1413

IETJ'

IV"'BLl 111151

IIITO
UBORT 001~
UDO
51U
)IDlY
6156

'VMIL2 356'

uelv

TAIPNT 1464
TEMP
rUJil

XL.OAD 0171
XMUL
5162
UCOMP 67]4
XSTCHE 1126
UTOR 431111

RUTOR nu

RIT
741'
RETURN ]Ul

IINDO
1Ul
RITRNG IU!
RUNNED 461111
IACNT 11141
UCOMP 644111

UCON

U~OAD

UII

6640

SUEAD 6511
SARYST 2]32
'UIGN 61U

IUTOII nil
IAUC 41S1
SAYICP 4121
IAYU' 1643
ICOMP 1181
ICOMPR 6561
In'~D il711

IHI'T
SIGN
SICIP2

1411
]654

51112
U]l
n,up 5145
SLUH Z161
SLITRL. iS64
IL.OAD 2111
SLOOP 5 •• 7

SMLNUM 5411

SMOD! 1!61
SNLDOP ]647

SNUM

3632

"47

aWTARG lSl5

I\'MIOL 1127
TlMPS

TIMP!

us.

lUi

TMPILK U'tI

TMPCNT 011133

UPUOW 1362

un:
7UII
Un:EltR 1754

usn

lH5

USR'UN 5114
¥ARCNT 0141

VUlT

I/J4I1
VCPTR Z41!S
VERa
IBI7
VUION 1111

WDLOOP 6142
WGDTO U1l
WORDl
WORDI
WORD]

1t34

WPNT

5561

WRITE
WSTEP
WrAB

7412
SU6
3132
1131
6213

wn.E:N

11]5
0136

usus

5551
3J6J

lCIUB

1143

TMPprIL 75ft.

)I)()(XSV 4625

TMPLVL 1034

11111110

XI1

0111

TOOMNV 4321

TRY DEC 511140

IIU

ZEXP

•
0015

52ft5

•

ERRORS DETECTED; 0
385.
LI~KS GE~ERATEOI

3860

•

ABORT
ABORTlC

ACM
ACNT
ACO

A'
A' ADD
A'DIV
A'L.DA
A'"PY
""A
A,.UB

AID IV

uaUB
ALI
A",,,TN
A"ltIND
ANORM
AunT
ARGeNT
ARILU'
AU

... UN
AS OK
.,OK
IACKl

BADDI'
UOIIeP
UO,N
1A0'OR
UO,SS

IUDG02
BAOI'
SAOLIT
BAONXT
1A0P'
8A'N
8UIC
BASICN
eCOHP
BCOMPN
e"N.
ILOAD
BLOACH
BLOCK
BOSIN'
IRTS
IRflN
BI'N

BUCKET
BU'N
CALLUF
CASUM
CUEMA
CUEMM
CHAIN
CHAINE
CHECKC

14U.

1918

19,7.

•

56111 3568

4l1li 1440

11'" ilU
2711 2114

III'"
2U5

S99. i14
211. J494

n16

lUI

au.

ill'

214.

2111 . .

2415
1152

21.14

3U
1941
I'll

114

117

161

1442
161

2611

2145. 215'

745
711

713

usa. 2768

2UI

2719
U5

snit 1714

7!9

769

713.
1114

153

U38

115ft

186U

3lSI

3854

3370

3371

Jill'"

19'It
1934 •
US .. 21"
155
151

nil

1819

1711

172U

591
4491
311ft 3USt
3822 38]1 Jl4i
IUU
IU.
3111 ]82"
3111 IU"

1169
1 U5
335
51i

1699

112
"'
215'

1ilia 5
lU7
lU7
U41

I'"

liau

1241 usu
118U 1191

34h

5..
454

314ft

lUll

3114 lUlU
Sit 245' 3528

IOU
541 35 •• 3834
3715 1134.
3711 JUh
21162 au ...
2441 J8SIi1f
1834 IUS,
1908 1933 1961
1906 1949 1950
191114 1932 1939
11llt li7i

35JZ

III

lIeu
20851
llllllU

35141
94

lU8

i!U0

iUI90

818

171

lUI

li17

2U9
2761

lU8

1554

101111

i159

2251

.1,.
nu

2613

un
n.,. 61'
,.1
us.

21S' 2146
191. iU 1i4S
2492 1491 2495 ani
91S ]J24.
Sl44 UII
UJI 2617 2UU US,
"It

2na
2154

•

3362. 3365

3361

CI-lEDIT
CHEKST
CHGARG
CHKDIM
CHKSDM
CHKSGN
CI'IKVAL
CHKWO
CHN
CHRPTR
CL.OSE
CLOSEF
CL"'N
COLON
CO"ARP
CONVLP
CORE
CORU
CORLOC
CORIIZ
CORY
CORX
CORI!!
COAl
CD'Ri!
CORTa
CPIAVE
ClflTEMP
OACNT
DALODP
DAPUSH
OAPUT
DATA
DATFLD
OATL.ST
OATPTR
DECPT
DE"
DEFBAD
DELOOP
DENTIn
DIGIT
DIGTST
0111

DIMERR
DIMl

DLSIZE
DOC ALL
DOLU
OOSIGN

DunE
QSTRNG

EDT8GN
EDT8LK
EDTUZ
END

END.
ENDEXP

3519 3524.
1422. 14tt&
820. 837
5381
52tt
S7&
511
53tt
5&7. 510
525
2479 2524 iHtt9' 2HZ 2117
1287# U9S
80 3477111 3478 3479 3483 3486
224t 2141
2U 284 1012 1042 2164 2165
188U 32&.
22U 1884
23U lill
U. 1206 U12
96 2i!2S. 2227 2230 2234 2231
2482' 2501 2511
3592 3625.
3U2 3646 36511
JUS 3639 3641 3648 3710111
lUI 3649 3653 nUt
3644 37111
3U2. 3643 3710
]6i!U 3650
3UU 3637 3647
]U~,

3Ui

]Ul

]UU

21811

218]

6741
&84

690

]481
65' 71!15

]480

700

UTI ,7U

227ft
3487 3488
721
714

34Q1
2174

2179

2184

blH

&99

2194

3492.

692.

91!1l 3212
95i!
956
161. 168
950
934
936
933
32111 2471 2502 2510
741'" 3jj!16
658
6'73
bSC!
64&
Ui!IlI 947
'Ill
916# 917
898
US 204U 2043 2049
2506 2513.
512. 56& 3207
535
523
S18
513
557
521
6lU
92i!
55' 921
1100 1777111
1415. 1439
2557 2575.
914,
909
904.
SCJ7
2U9, 2696 2698 2704
263t1 2tt93 26'J5 270b
1421 ]427
3421 ]425.
lOU 3423
351111 3i1!85
1574 1591 1617#1 lU9
3389 341111t1 3453
931!Jt

956#
a5]9
US

&79

919
2vl50

955
2052

549

57'"

&85.

•

END.
I!NTERY

EDIT

IRMIG

IRMlaa
IIUN
"ltLUP
IIC'MUL
IX'ON

IX'"

IX''''N
'ADD

'DIY
'DLDD'
'DP,R

,uc

""1.02
'IDlY
'11.1

'ILINO

'1LI!I~

711

71 nJU un
103' 359

an .. a7U
nu. 1511 1574
14. SlIII
list au" ani
II

lU'

I''''
ill'

1761 ]4tJ
JU" S7I'
Ju' Stl'
n ..

'REnD
,au
'ITEP
'aUB
,.UBI
,auBI
'UNCTN
'UNCI

'UNCi!

2541

i!550

2555

UTI

US]
1819

1868

2353

3081
3TH

3081
3181

3093

30",

3797

3805

311JCJIII

3102

3l11J5

3108

254S

1741

lSI!

S'"

JU,

SUI

nil nil..

1412

141]

1511111

611

UIIII

11169

11172

U4
Ut?

22!1l

aZSi!

US8

U52

JU.

us .. US4

18" 1115
,47"
nil
ISII 1225

UU 1471
lUll l.n

"' .. 2&44
25 ...
171. 2U
UI6 1151

,,,!!

U12
1956

'Sill 1S26

'UIlCP
nOA
'LIMIT
'NINIT
'O'EN.
'OR
'ORCP
'O"'LO
'ORJMP
'ORNe
'ltDIY
"OYL'
"MUL
""TNI

2942

U4S
1944

,., sn ani asss

!!IS"
1411' 1156
11111 1114
415
2UIII Uti

'MItV
'N!G

923

nil aSl .. aUl

'INCAL
'INOA
PINOn
'INOIM
nNDIV
'I NOTO
'SNIN'
'INaN

'Jlue

775

•

]U ..

USU un
1441 1t1

lU!III 1"16

61.

5S1

"I'
1711

u.s

11ll9U

2978

U3I
561' ]U6.

14."

1111.11, SIn

...

titS

1047
11115

2541

11141 18941
lI/J4I. U6e 1111'
IUS 11161

Imt

un.

un. 27U

261 . . 111&
2551 161"
2515. ani
27
U"
928 11146
178. iU

2US
15711
lSlU

na2

399

lnl
915

Ull 1174 uee UI9U
174. 219 U/J"
U45 1,,4. U611 1165
1025 lUI 18641 1811
1611 U9
712
188 1194
i!4 41 i! taU 3160 3066 UTi

3099 3141
l8U
i!45' 311151

fT.

3148

3TS6

3"4

3716
3015
3168

311163

3111.9

]11118

3114

FUNFLO
FUNNAM
FUNNUM
FUNDIC
IfUNPTR
FUIliS
'UIIIUZ
I'UNSRC
'UIliSS
GtS
GENER
GENTMP
GETAI
GnC
GElCWa
GETOEY
GETElCP
GETFN
GETIFN
G!TLIN
GETNAM
GalUS
GOUIn
GOTCR
GDTKW
GOTNAM
GOTO
GOTOPR
GOTREL
GO UN
GOTSYM
HII'LD
HOOKIN
ItHAR
IeHARI
ICHAR2
ICHARl
IF
IFEND
IfLUPl
IFLUP2
IFNREG
IFOPS
IN8REC
INBUF
INSUI'P
INCHCT
INCTR
INDEVH
INEOF
INfRR
INFO
INGBUF
IN"INOL

H52 3760 3773 3781 3791
q28
41& 3054
4U
441
24Jf 3111 3114 3117 3120 3123
3138 3141 3144 3147 3150 3153
819
83U
811HIl
71U
771
71&
153
1788 1791 1872'
i9ii' i9]i!
70&
707
U&
660
U1
&55
2909 3052.
36ft& 3&97 370U
nlU i9i8
15U 1650.
2789 219S 281U 2821 282& 2830
3Ul 3ft7i.
824 18ft & 2a8U 2298 i!306 iH2
9i 19]4 1943 1976* 1989
85 iUa. UCJ] 2197 2199 2200
86 aUT. i!11i iU13 2115
2462 3539.
2521*
417
481 1i00 1211l:5«' U27
382
116" 1180
2U. i1l
95 28ft3. i86& i890 2891
1241* 3191
lUi! 1457.
i7&
a19.
iU
liU
311
2873 28U i88a.
1i!3U 3185
15ft7. 1&1.3
1154. 11'&
2068 2085.
1420 143h
531 3654 3655 3&59
1280 1304 1310(;
ins 338]' 3408 3450 3456
iU
3429 3441 34461
3450 3442'
34]U
113U 3171
11IJet ]1&8
114&* US]
1148 1189. 1197
7011' lii4 li28 li3l 1875
1144 225 ..
340U
ISU 3398 3624
339 .. ]4QHt
3385 34U 341U
3390 3393 3413' 3559
145. i4U 3545
3387 3395 3470.
3400 341119.
i!l
21
122. 3417 3524 35&5
33901
3396 3472. 3537 3548

3384

3744

FUNC3
FUNC4

tN.

24U

3573'

3Jh

3405

3428. .5432

3801
373ft
312&
315&

3809

38t7

3129

3132

3135

3672

3673

3&74

367ft

1230

1234

1484

1883

34&2

34&5

34&7

H68

3567

3569

73U

2831

•

IN.
INItT"
INPUT
INPUTL
INItEC
INT"1t
!TReNT
JAlOItT
JAR'LD
JARaND
JED'
Jla
J,aR
JI'
"IT
JLI
JLT
"NE
.. lUI
JTAlLE
JUMIt
ICIDCHK
KEYWItD
ICWI.OOIt
LDRILK
LUDI
LEn
LET
LETTIR
L'DOLIt
LINE
LINEH
LINEL
LINMAJ(
LITRL
LOAD
LOADIN
LOADIS
LOCUM
LaCTRL
LODIN
1.00812

LOD1ST
LOOKUP
LOOKa
Lilt
LIUAC

1.182

LIIUC
LTEMP
LUARAY
Luau'
LunD
LUKUP2
LUP'LD
LURETN
LUIA"Y
LUST";
LUYAR

nn. 3414
J4I7

14n

JU.

415
14IS

nu lU7

JUI

JUII

144i

1445

344&

J4TU

lSU
n".
:S4J7 )144 un.

au] 271111 2USt
,u
..

..,u. .., ,..

I'll
JSI'

2613

n'l

, U.,

'.i
us.

I'"~

II ..
796

•

117

U''I

1114
S'" U"
a'"~ 1'"

I ' " aa,4

U62

iua

2266

a'it zan In,
191. 22"

...

Uft U45 un
141, 141U
1'"
In Uu. U6I

•••

""'ll

Ie.
:sit. 311
nu 1571

"7,.
Jft un 1515

Ut. 3162

117 2U7. 2129
21711 "99 2925
211
14" iii. 4
nit 294.

14'"

iii ..
iii ..

!III'

1.. anI
2iIJI. U4!i
Ult 491
9J us .. 2361'

.,.
216111

]]14

1529

15H

1'24

IIJ7

2131

lUI

213

15U

Inl

1144

886

3295
111152

3i!9]

1117

361'
2255
236'

842

i85
415 •

Jill 2

611

411

4'4

3116

]J.1t un

un.

U18

1t51

1'"

!lU

U7I

321

2911

325

un. lUIil
un. u ••

2372

81l
804

lnll

lU4

14U

U1I UII un
13 .. an4
all. aU8
13.,.
1186 U94 lJU'
1416 1441,
U2Z 2.J7tI
III
7.. n'l
81111
1]]1 tU6 2111
liilUti 1264 1266
6113
595
.UtI
1415 14fJ7 141'1 1411
141111 14'"
141118 1435.
1404 "lit

929

935

'lSI

taU

1310

ti!U

liU

131111

1302

1341

141'"

1.508

1..&201
MAC
MDLABL
MIIIIUS
/IIIUMG
MIXED
MM
MODE
MODSn
MOROAT
MOVARG
MUI.,LUP
MU
M5
NAMEI
NAME2
NAMEl
NAMLST
NCHAR&
NCUVE
NDUIT
NOOI<
NEGFAC
NEWARY
NEil/FLO
NEWLIN
NEWN3
NEWOP
NUSN
NEWVAN
NUT

NUTL
NUn
NFCNT
NFLDS
NFLOOP
NFPTR
NFUNS
NG
NMOD!
NOCR
NODIGT
NOEXP
NOFNAM
NOGOOD
NOLUR
NOMATe
NOREGS
NORML.P
NOSN
NOSNUM
NOSTAR
NOSrRG

~~i

1297#
192& 19U.
211193 2113'
11 fIi lU9. 3036
1533 If>>2U 174& 1755
1957 19&1 1970(1 2003
19391
59t1 1681 1843 2833
81 2832. 2835 2844

Ifeu

283&

2842

2843

1392
2893
2900

1394

1396

1415

2901

2905

2914

2161

21&2

2168

'i15

18I'/1U lUi!

2&141 2&24

278U iU04

2811 i!822
733.
11U .50
653 1390
14&2 2i93 2301 2861
lUi! 1395 2871 2897
1151\1 2904 2918 2931
2i! 3113i!
2U l8i! 1014 1041/1
2189 U92
il18 2185 227U
331 2481 2485 2513
1113 171U
2517 2659111 2614 2&91
1447 14'i'
1277 129'" 1299 1307
90
i!5U 34&
UT4 1i78 131115 131&
]9i! lS9i1! 1&1113 1&08

&&2

2018

1438

1449

2171

2177

218&

194

795
1055
2108

797
1111&S
2109

2541

1319
13&2'

lleh

1752 2297 231117IJ 231& 3&84
720
fa4
18&
788
791
2'" 71&
939
1f31
945
948
1f49
95] 112151
1078 1080 1318 1320 1328 1337 1343
2111 i!313 2324
SUi!
58U un
2&33111 l&U 2ft72
135' 13&4# 3&57
2USt 2U3
2Ut 2&&& 2&Et8 2&10 2&71 ab75i!
644
735.
2431'/1 245~ 354& 3593*
243. 28]8
424
431'"
2048 2051(1
2517 i!5il'/l 2523 i! S3I'IJ 2534*
i!91!13 2913 2929*
314
3th
2!a3i 20]5 2039.
291& 292111 292&1
11119 187J. 1880
2b42. 2*'5&
25~
21121
48&
289
305.
1577 1579 1585.
287& 2883.
11.., 117U
1539 1543*.

1053

1355

,.,.

•

NO.
NOTNUH
NOTQOT
NOTIAM
NOTaIO

NOTYU
NOIII"IT

NOIEIO
NDt.1I
NIDI.

NUMIIR
NUMCMP

NIII,YAI
NnDGT

Nunl
DADO

acaUNT

DDIYH
OIC'UN
OKlNlC
OLDNS
OLDO"
OLOSTK
ONITAIC
OitENA'
OPENAY
O"ENN'
O"INNY
0"0

OitRAND
Olt"LUit
0""1.
OP.8U
OPI
OP2

o"lIn

OP)
OITACIC

17.'

'141

2819

1293

U?l

US.,
1191

~UERR

OUitTIt
OUIUi
DUTeAI.
DUTO\.D
OUToPR
OUTWRD
ownHP
07UI

PATCHl
PATCH2
PATCHJ
PATCH4
PATCH!
PCRLF
PETUL
PEXP

....
"...

212.

uu,

•

2127111

."."..

n14.
2... 291:11
IUS
..I
215.
lIS I'"'' lUI nl!
1161. IU" nil
,us UIS lSI" 1321
1491 211 ..
u .. UIS nil 13)1

. .. ....

.41.

,. ., .611
1191. Ii• ., JIll
IJlII

711
1811

U ..
un li71 un

,Ill'

...

UI'

UI5

ln6

2499 2S69
15SIt

26.111

2713

i737

i143

IUS

,.11 2681

2712

lUI' 1?!3

1165

61.

U,. 1496

lS65.
I?lU 2124

1611

"Ii

•

IS.,. 2579

..I.

11"
31. 1'"

U29

1161.

Uti
2331

nu ,4"
nit 14"
zau 149t
1111 14'1
1541

lUI

un. IS"

1511. 1726
JII).'
11" 1563 2613
U" 1417 249'
3343 JUS 3351
Ult 248'
UIS

19U

OUB\.OK
OUlu'
OUDUHP

17141
1154'

iU
1914

1111

a614

1565

lJ6U

2,..,
14'"
31' US,

2611

2117

1682
1911
3344

Ut1 nil.
1115. 1"6 ue.

"11

1972

aJ.,. un
24'" 33f210
1511 U"

1964 lU!
U18 UJl
331 .. 331'
3313

2721
1684
1919

1685

1839

1346

198111
334'

ilU
n5l

184111
2221
3354

UIl

U3111

1835

1844

i!01/1l

2.114

3361/1

352 3299 Ulf211 3318
3315 JUt.
J28ft ]JIIIl ne. ]]118

U6,

111'
161'

16111
119r. 1.. 6
sa.u UIff

SUit )i.a
il45t
illD

it'
un.3ua

U l " 3'64
9141 ]6'"

95U 3668
12'U U7l

64. 419
1553 nu.
461/1

4613.

3]14

U6J

36"

n67
16..
413

3356

PFCAI.I.
PLUS
POP
POSElCP
POSTle
P~FUN

PRINT
PRINTI.
P~NTSN

PRTEND
PSN
PUSH
PUSHO
PUIHi!
PUT!
PUTZ

PUT",

QBACKl
QCHECK
QCHKItIO
QCOMAR
QOIGIT
GlERMSG

QElCPR
GlGEUl
GlGETC
QGETCW
QGETNA
QI.!Tn
QI.04D
QI.040S
QLOOSN
GlLOOKU
QLUKUP
QI'IODSE
QNEWLI
QNOREG
QNUM8E

QOUTOP
QOUTWR

GlPOP

•

GlPUSH

442.

4.~

150U 3034
101 i!i!0U 2i!1II8
2545 i!55!U
355. J6Iil
455
484.
442
41'" 3iIU
472
419' 4]2
29&U 297&
41:U
4Z1
2949 2951 Z95U 2977
100 2203 2207 Z209t 2214
Ui! 2ilU 2223
1599 lUh
456
47U
47h1 483
an6 2810111
UIHI 436 1188 1555 1584
2534 2776 2825 2881 33&9
452
533
9 lUI 33]
402
90111
979 101119 1207 1215
au 438 458 1022 10.H
9II1II Si!C
7". lU&
&98
1IIlU 205& 211167 2U2 2135
7U 253
347
358
273
1358
1109 1181 1221 U51
1861 1970 2113 2139 i!i!15
384
8U .331
418
336
9&0 1132 1154 1210 1485
921 386
96a 1667 2239
420 1018
313
85" 251
1578 2028 211142 2226 2471
2880 3363 3485
8U 21HS 2820
&74
741
581
95' 512
10.,.. us
&57 2865
651
99t 445
85& 1218
466
3349
974 1612
41i
9]' 397
79. 329
41b
419
381
1472 1881 Z010 2133
760
583
9Tt 529
540
981 711
779 1749 1760
3705
au i91 390 407 587
1676 181& 1831 1910 2011
478
435
475
90" 404
981 1175 USB 1495
905
740
893
lIIlU 292
&22
105. 89b 1747
891\1 J45 1163 1185 1612
83111 351
4 lilt
429
392
607
602
81117
809
fIl0
10&4 106b 1068 1071 1103
1241 1249 1494 1679 1820
1952 2015 2142 2254 2347
59&
594
101* 592
599
1&20 1623 lft62 1689
lf1lT
1737
764
100t1 697
7ft 6
762

lU4

2039

2051

2236

2512

SEl3
1415

666
1419
1177

fIT 1
1548

126
2780

851

&28

&85
1130
3410

18J
P8i!
3594
854

1165

2868
449
1491
430
1546

577
1552
281117
433
1665

3319
443
1855

2134

103&
2505

1134
251&

114121
2S22

1532
2802

754
2898
1481

1001
2902
1801

1104

1556

1857

199i!

213&

1931
958

1948
1000

2250
1131

1198

1241

1006
1793

1113

2085

1558
2294

2302

3Ul

751
2241
5lt5
188&

964
2344
627
i!016
1845

118ft

1238

1244

728
2143

894

902

1836
2391
718
11191

477
969
1172
1850
2395
821
1693

491
978
1114
18&9
2840
825
1695

493
1033
1226
1885

598
1059
1232
1941

1073

1075

1077

2370

1083

1&i6

4&4

1573
2872

l&1b

471
880
1115

.9
827
1732

1597
1735
1523

•

QPUSHO
QfIIMAR

QRUTC
QUVAC
QIAYEC
UNUM
r.1ITIUN

Q1I
Q2

CUIlII

1521 1528
112. 15&1
315
96,9,. Ula.

2U5
8U

3. .a

318

llU 15U
.U 3111

1155

1183

1211

1176
1789

lau

11117
17a4
1164
1242

Ini!

1924

I'"

1212
33i

UII ..

1657

463

437
1168
US4

1821

un 16n

29,.

lU0""
&87
U53

785

855

148ft

1863

2243

2335

2383

3352

337

349

lUll

In 2319. 2]30 2312 un

2351

944

1272

U21

713
'92

. .3

134.

Hilt lUI

859
U$'

87U
41i

2 lUI "

]513

SEU'
I'
SHIFT
SUN
SIC IPI
IKPEXP
SLASH
SLITRL
SLDAD
SLOOP
SMLNUM
SMODE
SNLODP
SNUM
SNUM'
SPACE

&30

lin

19U

.,.

UU '14

RilARG

RUNNED

579

U3]

lU9
Ui!3

3329

211113' Ja6111
na
21"
958' 9U
1149 UU

IAeNT
IACOMP
lACON
IALOAD
IARIAD
IARYIT
USUN
SUTOR
IAUC
SAYECP
UY!JF
SCDMP
ICOMPR
SCON
ICRTN
snFLD

lft58

161117
1721
A51

199111

RANDOM
RIAD
RIAD.
REt.OPR
REMARIC
R!lT
RISTCP
REITOR
RET
RUURN
RNOO
RSTltNG

lftSfI

1541
15711
444
lU6

U17

JiII6
1192

255.

17 UU. 2U7
419. 3211
nu 879 21112
21tll' JI4!i
22U 2812 21113
389
41161

.91 1467
UU 3416
213'

U ..
2U'

161'
31114'"
217.
U

413
162

U69

UT" lUI

lUSt 11.111

21119. 3415
UI4 3327

3339

3312.

75.
11
297
Ull un 2"6
221. lin
3142
21112. U79
2476 lurat 2575

715
211ft

21 ..

]]261 ]]7]

3337

119
nli!

192

]lU.

2561

uu.

161

1161

2789. 281111
53i!
519
242' 2838
21UU 21184

2527

1ft 33. 31/14.

allt

U39

Ii! US4. 21151
162. 163 2lit I
2945 29ftU

2733. iT"
2063

2105

2115

937

•

¥i

SPtIAL.
SRDI.

SREAD
SSINAC
SSI..OAD
SSLOOP
SSREGl
SSREG2
SSTORE
SSTYPE
SUCK
STAtKA
STACKO
STAKSZ
STAR

START
STCHEK
STEMPS
STEPI
STK\.YL
STICOVR
STHPCT
STHPI.V

STOKaz

STOP
STOPI(
STOVER
STPTR

STRUS
STRCMP
STRGER
STRING
STRTMP
STRTZ
ST!ltTl
SV
SYARST
SvtNT
SVTEMP
SWRITE
SWTARG
SYMBLI
SyMBL2
SYMBOL

TA8PNT
TEMP

TE.

1901 1973.
223' 9&7
414
21I'U 413
CU85 2.593.
23&3 23&0 23&1
1&&2. 1688
71'

2373. 2392

2396

620
2206
1481 588
13U 131

810
2210
2211
2220

847
2212

850

858

1084

1728

!f26
2303

1044

1314

1342. 1340

1347

1349

1357

621
13. 1l6c
2iH5. 2224
42. i59
891
892
4" 258
7371 2220
22c' 350 2013
201U 3d50
1358t 1431 2311
554
44' 542
814
811
831
1454 1455 1458
6881
681
lUI 1184,
2803 280U 2816
10& 2719. 2182
2290 22lf9,
3538 3552.
2448, 3523
3822 382& 3830
159, 1&0 1437
47111 1435 2319
2333 2334 2339
241'
825'
977
6U 400
1911f llf40 U68
]61
752
fti!3
1426 1432 1459
181121 21211211 21219121
2922
433.
427
3l1l1I i67
271
550
552
547
70i!
814
683
1142 1158 1159
1U2 t625 169121
18U 1818 1922
21f/J4 2107 2358
2812 29&0 2975
16]' 164 2295

1085

561

1445

1&1
145121
1711

828
1453
1712

12'
212'
23U' U8i!
2U au
1729 2202
13
26
au
25
149. 2ill
36U 3038
35131
117
730
1641 165
1029

589

2205

1087111

22lf9

2100

2U4
2328
555
1416
1463

556
1418
1464

558
1421
1659

559
1443
16lf2

111116

2783

27!f0

280&

2809

2813

2341

2343

2349

2350

2352'

1&18 1951
200Cf.
830
763
1559 1694
212198 2310

1985

2253

833
1722
2311

1007
1781
2321

1114
2322

1298
1821
234&

1425
18&7
2348

326

l27
&16
1f24
1521
1731f
19!f9
2797
3&99

618
938
1524
1798
205!:)
2798
3703

.541
663
94&
1586
1805
2091
2799

539
&82
1139
1594
181218
212197
281121

3834
2326
2340

312
5lf3
83&
117121
171211
1974
2415

315
b01f
918
1194
172121
l'H5
U86

3333

3335

615

92121
12U
1736
1988
2794
3338

11~1

340

•

TE.'
TM
TM'8I.K
T"'CNT
TM'fll.
TM'I.VI.
TOOMNY
T"YOIC
,,,YEI
TRYIi
T"Y'UN
T""NT

TTl

TTY

""11.

TWODIM
TWi
TW)
"'CHK

"'1

]It i98
83' 1113
1115 21ft'

a...
lIS"
auSt US6
.'t IS?
2453 ]8!54.

4U iSft
nil 21711

1411

21 ..

1514

au.

2. .6

n,u
UDI'
U,
UMO'"
UMRTNE
UNO,R
UNRno
UPAROW

UIIERR

usu

UIR'UN
¥ARCNT
VARST

yePTR
Villi.

VUION
WDI.OOP
waOTO
WORD I
WORDi
WOI'tD3
WPNT
WRITE

14,. 246.

...

II'

Ull

U8
1569

lft5.,

1704

20"

2110

2374

238ft

23'3

2188

2291

an2

"46 UI? 2'11

2953

1955

29 TIl

11116

T5T
ISft?
1993

2113

lUI,

101a

iU" 2Ul
2941 2'41

su,

.615

1617

2611

... . ., ""
!ilA

81i

Ins

16'6

lit9
1818

U ..
aiel

1917
64U

"10

2"2.

195,. 1969

.,n

744

ftft5
1560

]0]

2611'

26Jit
2'"
I
'
"
,
,It
5. .

26 ..

1997

T"1t

20.5

ft89 " 1

1248

nUt
2516.

••• .'11

12 ..

2US

]1/11

"lit

un 2Ui

211"

]00
1151

II?

121
IU

1S2

IIIJ

lT19

2171

2119
419
1669

1117
2118
4..
16."

UII

1955

]91

1488

"ft

...

1902

2819

181117
19"

6'ft

U12

19119
2.24
6'"

1983
1941 UU
Ii." 19"
199. 2....
I'll

719

]J!l

191J

71., un

TAl

1563

1958

19.:5

963

1825

lU8

1916

2UT

'.5
1838
2240

'l0

912
i!412
2784

2531

USI

.su 1541
633

I"'" 1542 nUl

153it 1"6
54S

551t

JU. 3142
24 .. uea
1115 1U"
"I" ]21&
2918 aUlI

2JU

2111
1414

151]

21
IU
J4IU ,49'
lUI lUlt
2']
Hit 251
un UJi 1156
261112 2626 265.

419
1792
2655

49i
2611

2635

.5, 1412
1S9
14121 14U

1'"
II.

367. ]UT
11U i.S

2U5
i748 27ft5
11" 2069
2718 2719
2486

45. 284.,.
24 . . 471/1

un 142.

i.,..,
2881

2749

2158

2785
2474

2151

lU6

1441

14U

118

712
20U
26811

ilT!!!
in,

ian
2755

20Ti! 21114
2614 21115
29ft 1 a.",
i6n i6li!
2764

2080
2722

2082

i!965

lU0

1132
26"
21115'
2643

ina
2488
i76i!

906

iUT

272]

ii!U6

940
2829
ii!413

2146
i701

•

WSTEP

"'TAB

WTHEN

WTO

USORT

XADD

XDIV
XIDIV
USUIiI

lCl.OAD

lCfo1UI.
l(8COMP

XSTCHE
XSTDR
lCSUB
lClC)C)I BV

lUl

X13
ZElCP

... 1.036&
... 1.037111
...1.0311

...1.0372
.,.1.0375
.,.1.0316
...1.0577
... 1.0561
... L.05&i!
... 1.0563
... 1.0564
.,.1.0565
...1.856b
...1.0567
...1.0570
... 1.0511
... L.057a
... 1.0573
... 1.0514
... 1.0515
... 1.051b
...1.077 i!
...1.0113
...1.0774
... 1.0175
.,.1.111716
...1. UTi!
...1.1313
... 1.1375
...1.1377
... 1.15&1
... L1510

•

1028 2518 2581'
419 114U
1095. 116&
le2l 3183.
19. 351 13f11/l 1373
988 1503 1504
981
1636 3493.
1635 2US,
1631 aU4,
597
ftl4. 1903
364 i978t
363
3l7S 337& 3475.
189
13"2345 2353, 3048 3050
1058 1099. lUi
2423 a4as. 2431
279
iU a6S
210
1145 1146 1150 1189
1593 1&03 1824 U51
1918 1911 i,,94 2418
2926 2927 3515 :ni7
22111 1284 1288 1333
2390 24i" 2554 i562
3583 3585
23. 181
835
840
3579 3SU 3688 3n3
20 848
857
81111
2641 i!1t57t
353
350
344
306
iU
264
i60

281

283

538

543

3321

3598

3"7
1193
1898
iU4

309
1282
1899
2441

35i?9

319
!i91
1905
2910

129&
1901
2911

941
1588
1915
2917

3535

943
1589
191&
2921

1335
i564

a56f1

a5U

1982

1984
2512

2379
357&

2380
3580

845

2414

3348

3355

3514

87&

2412

2217

2585.

1981

lUi?

81i!

3~2

490
482
416
470
461
441
428
425
4ii
414
413
]99
398

391
ft06
ttl 4
588
514
53'7

806
804

790
775
976
975

•

...1 . .
...1.1512
...LUU
...1.151'
...1.1171
.LUU
.1.1165
.1.1166
.Ll.,.1

.Lin,
.1.1714
.Lin!
...1.1111

~Llln

'4'
925
879
lUI
U89

1811

una
,,6&

1814
1131
1215

.Lll11
.1.1114

SIIS

.1.11.,.
...1.1111
.L.lI11
.Lun
...I.UU
,&,1.1114
,&,Ln75
...LIS.,.
...L2I11
,&,LISU
...L2I65
...1.1566
,&,L25"
,&,1.2578
...L1511
...L2!lU
...1.2513
...L1515
...1.2516
...LII 11
,&,LI.,.!
...1.2766
,&,L2161
...L2118
...1.1711
...&.1114
...1.271'

ll'l
1114

~La"s

,&,&.1116

,&,LI171
...1.5 1'P2
...I.UU
...LS116
,&,1.1171
,&,LUlI
,&,1.]]1]
...1.1374
...LU75
,&,1,.3510
...1.1511
... US72
...1.1514
... 1.]575
... 1.3516

•

,U
9U

U'l
U14

un
U!l
Uti

un un
un
un
1469

1467
1451

1442
lU'

1431
S421
14U

liU

~411

1511

UI!

1512
1515
1564

1543
lSI.
1537
UJII

1111

1111
lft11

use

l • .a

1814

U41
181'
2114
ilU

18U.

zeu

20."
1995
1921

1981

•

~L3577

...1.37&5
... L37ft6
... L3767
... L3770
... L3771
...1.3172
...1.3773
... L3174
...1.3775
... 1.3776
... L3777
... L4170
...1.4111
...L4172
...1.4173
...L4174
...L4175
...1. 4176
...L4177
...L4373
...L437'4
...1.4315
...1.4377
...1.4777
...1.5164
...1.5165
... I.S1U
... L5161
...1. 5 170
...1.5171

...1. 5 11i

...L5174
...1.5175
... L51 "
... L5313
... 1.537'4
...1.5375
...1..5376
...1.5377
... L5567
...1.5570
...L5571
.. L5572
...L5SY3
...L5574
...1.5575
... L5576
... L5577
...1.5765
... LS76ft
...1.57ft1
...L5771
...L5773
.. L5774
... 1.5775
... L577 &
... L5777
... L&575

.L_

1903
i141
2121
2118
2102
2064
20U
204ft
2044
2U6
2033
2030
2252
2251
2232
2228
2220
2211
2198
2195

207111

2117

2JCJ4

23"
2388
2309
2408
2577
2513
2553
2551
2548
2518
2536
2501
2494
2492
2U0
2660
2&52
2ftl"

i609

2839
2838
2&28
2U7
2811
2787
2785
2774
2770
2973
2967
2954
2952
2923
2909
290&
2883
2874
3342
3311

2UIII
2426

2439

2451

2~12I0

2493

2495

2ft99
2ft 71
iUi

aiea

•

• 1."-77
..1..760
..1.'1"
.L61U
..L61U
.1.6164
..1.6165
.1.67"
.1.61..,
.1.6714
..1.6176
..1.6171
..I. 7Ui
..1.1153
..1.1154

3459

3454
3451

JUI
3447
J434
34116
J411
3 I iii

J556
J!SSS

..1.71'12

J!il4
ISil
3St7
J5lS

..1."174

..loUTS

.1.7176
..Ln6l
.1.7362
..Ln66
..I. U1 IIJ
..Lnn
..Ln74
.. LU'"

3443

J5U
J575
3573

.LUU

..Ll16!

•

3l1lJ2
1466
3460

J681
3681
3ft 71

3668
3666
3664
3662

J5U

J5SI1J

•

PAL.8-V8

IOS/8 8ASIC LOADER

IDEC-Sa-L.BASA.A-!.A
I

ICDPYRIGMT,1972

IDIGITAL EQUIPMENT CORPORATION
IMAYNARD,MASSACHUSETTS 01754

9
11

IAUGUST 19, 1912

IHANIC MAURER

12
U

I
I

14
15
11>

•

PAGE 1

IOS/8 BASIC LOADER
I

2
:5

10/30172

I
I

110'"

VERSON·100

•

PALhV8

IOS/8 BASIC LOADER

iI
i!!l
U

U
24

25
26
21
i!8

J0
31

1/111111
1110tJ
eatS
0BU
I11III21
BUi!
811123
IiIU4

IIIIU
11i6
111127

lIue

lUI

43
44

1IJ851

34
J!!I

36
31
J8
59

41/1
4,.,
45

46
41
48
49

511J

51
52
53

54
55
!!1ft

58
5'
60
U
62
U
ft4
65
66

67
ft8

"70
71
72

0054
0055
0es6
11057
01U
IIJIIJU
006a
IIIU
IIU
1065
01ft'
11116'
1010
InU
I/II/IU

IIIJU
0074
0075
0016
111077
0U0
IIIUI
o I III I!
0,03
111104
0105

010'
0U1

•

PAGE 2

I OS8 BUIC COMPILER POST PROCESSOR

1l1li110

e0U
11114'
IIIB41!
0U]
a04'
111045
I11III'.
111047
11111150
0051
IIJn2

10/30112

lIUIU

1(11111
111]113

STACKIU
STCDfI' dill
IKEY INTERPRETER LOCATIONS
NaUOR-nCDF+,
NUTAOINSTADR+l
ISTADRINASTAD+l
SAnAD-asrADR+'
CODCDfI'IUaUD+1
CODBGNICODCDFU
DATTOPICODBGN+l
DATPTRIDATTOP+'
SWPJNfI'IDATPTR+l
ILOCATIONS DEFINED BY COMPILEH
VARCNT'4a
SVCNTIVARCNhl
ACNTISVCNT+l
UCNhACNT+l
I.OCTRH-UCNT+l
LOCTRLILOCTRH+l
BLDCIULOCTRL+1
HIFI.DaBI.OCK+l
eRUIHIFLD+'
DLIUE-eRTS+l
ABORnlOLSUEU
I"REEHI-ABORTICU ILOCATIONS USED BY RELOCATION CODE
I"REELO'FREEHI+1
TEMPII"REELO+'
TEMPaITEMP+'
TEMPlITEMP2.'
WORDlITUIP3+1
wORDe-wORD'.1
WORDlIWORD2+1
NCHARSlIiIORDJ+,
aueHIINCHUS+'
SUBLO-SUSHI+ 1
CODSUISUBLO.'
CODIn'CODSZ'+'
LOCHhCDOSZ2+1
LOCLO'LOCHI+l
CDDeILOCLD+1
CODP'CODS.1
ICOUNTICODF+l
OCDUNTIICOUNT+l
AC"OCOUNT+,
AC2 •• Chl
AC3.AC2+,
SCUCHI
LINEH.SC+'
LINELILINEH.l
ICL.Ae!LILINEL.+l
CI.Rf'LD. XI.ABEL+1
CLRENDICLRFLO+1
REUORICLRENO+l

•

105/8 BASIC I.OADER

15
1ft
11
18

19
80
81
82
83
84
15

•

UJJft
2132
23J2

25U
Ubi
2S614
i5U
fUll
Jlli
IU0
IZI!I0
J141110

PAi.8-Va

10/30172

PAGE 2-1

IMORE COMPILER DEFINITIONS
SVARST·103&
ARAyaT-,i!l32
SARyn-i332
STEMPU25ft0
LlTRI.-8TEMPS+2
51. ITRI. -LITRL+2
OATLaT-SLlTRL+2
IMAIN STACK OF COMPILER
STACKU7U0
ISTART OF EDITOR
EDTBGN-30U
ISIZE OF EDITOR
EOTan-1U0
ISTART OF BRTS
BRTBGN-201!1
ISIZE OF BRTS
BAUn-H00
OCe-176IJ

•

105/8 BASIC I-OAOER
U
aT

90
91
92
93
94
95
96
91

.899

100
101

112

103
104
US
106

107
U8
109
110
111
112
113
114
115

la
117
118
119

120
121
lii!

123
124
US

126
121
li8
129
110
131

Ui
133
134
135
136
137
138
l3q
11.10

PAl-a-V8

IUU

00422
00423
00424
00425
00426
00427
l1l2I430
1210431
00132
01ln
IUl4]4
00435
014U
1111411
00440
00441
00442
00443
01444
00445
004411
00441
00450

00451
01U5i
00453
00454
00455
0045&
00451
0046IIJ
00461
0U&e
004&3
00464
00465

•

PAGE 3

(qf( - I)

*400
ISET UP FREE L.OC. TI ON
HIFL.D
LOADER, TAD
FREEHI
DCA
3053
(7571
TAO
U71
DCA
FREELO
3054
S\IIPINF ' ICLEAR SWAPPER WORD
DCA
3031
ICLEAR L.INE NUMBER
DCA
LINEH
3Ui!
DCA
LINEL
3103
STACK
IANY UNCLOSED FOR'S 7
TAD
1015
CIA
1041
TAD
(STACK A-I
137&
SNA CLio
7650
•• 3
INO
JMP
521&
ERMSG
JMS
IYES
4175'
2506
2506
\
CLio CMA
1240
INO COF'S IF QNI-Y 8K
TAD
HIFLO
111147
SZA CLA
71140
NOPATC~ INO PATCHES
JMP
5i!3.5
TAO
1374
(PULST-1 .,;
]0U
DCA
XU
)(10
1410 PATLUP, UD I
aNA
7450
JMP
STSTUF
5711'
]11155
DCA
TEMP
TAD
C7410
137i
IAL.WAYS TWO WORDS ~
DCA I
TEMP
3455
5iill
JMP
p~,TJ.ae. .
6211 NOPATCH,""""'·c10
ICHECK FOR TOeE SYSTEM
TAO I
COCB
1711
lED FRIEDMAN GAVE ME THIS COOE
AND
(771
0310
( .. 210
lAND I'M TAKING IT ON FAITH
lU7
TAO
6201
CD'
1650
SNA CLA
TAO
7642
1166'
lIS IT A ROM SYSTEM 7
TAO
C-6223
U65
1U0
SlA CL.A
NOTD8E INO TD/8E OR ROM To/8E
5250
JMP
(7377
ITOSE SYS WASTES 400 WORDS
TAD
llU
DCA
305'1
'REELO
ISfT SWAP INFO
1130
CLL CML RAR
7001 NaTD8E, %AC
~CA
SWPINF
3031
JMS
FREEF
IGET CDF TO HIGHEST FIELD
'1163'
DCA
333&
1"WlIl'-t-, IINTO i! PL.ACES
TAO
1336
S~Fb
DCA
3345
le! ..
DCA
SWPFLAG ICLEAR THE SWAP FLAG
3314
JMS
SWAP
IMOVE OS8 OUT
4eU
JMP
57U'
STSTUF 100 .SYM80L. '~8LE STUff
210021 SWAP,
0
ISWAP ose RESIDENT
1130
CLL CML RAR
14000
AND
SWPINF I IS IT .. TOBE SYS ?
0031
1640
SlA CLA
JMP
52fe
To8fSYS I'I'ES
0400

00400
00401
00402
00403
00404
01405
00406
1110401
00410
01411
011412
0041]
00414
121041'5
0041&
00417
00421

11l1/3011i!

1047

I< P

---

•

105/8 BASIC

141
142
143

144
145
lU

~-.

107
148
149
15121

151
1S2

U4
155
15&
U7

158
15'
160
161
162
In
164

165
161:1
1&7
168
169
110
171

In
In
174

175
176
117

118
179

180
111
Iii
183

184
185
186
181
188
In

1210466
0121467
121111470
12100H
121121472
0111473
00474
0121415
iUJU6
1210477
12111150121
I2IQ1501
00502
0nu
00584
00!S1Il5
121015111&
0111501
1210510
00511
00512
0111513

00514
0111515
00516
00517
0f115Z0
011152 t
00522
00525
00524
00525
0052&
00527
011530
011531
0121532
01533
00534
00535
0053E1
00537
00540
00541
0R154i!
00543
00544

190

191
192
193

194
195

•

PA1.8-118

1.0ADE~

0111545

1210546
00547
00550
00551
00552
00553
00554

4115
Ull
7600

JI'IS
C1)r~-···

SWPSU8

10/30/72

P"GE 3-1

ISWAP 17600 TOIFROM N7600

11/1.

7600
SWAP
JMP I
SWPSUB ISW"P 17&00 TOIFROM N7400
TD8ESYS, JMS
COF
10
&21 1
7400
740111
SwPSU8 ISWAP 21&00 TOIFROM N7&00
JMS
4US
20
COF
6221 1.6221,
760111 1.7600, 760121
IFIX UP 1217600 STUfF TO MATtH
CLL. CML RTL.
7126
ICIF CDF NI2I
SwPF!
TAD
un
76142
DCA
3766'
TAD
SWP'l
U3.
ICIF N0
lAC
70U
7721
DCA
3761'
7721
TAD
17U'
7727
DCA
nu'
SWAP
JMP I
5.61
1200 SWPRET, CLA
IRETURN IF 8K
CDF
U01
SWAP
JMP
I
UU
000121 SWPFLAG,0
ISWAPPER
012108 SWPSUB, 0
SWPSU8 IGET FIELD
TAD I
1715
/TWICE
SWPI
DCA
3]34
SWPI
TAD
1334
IDNCE FOR EACH DIRECTION
SWPi!
DCA
3347
SWPSU8
lSI
2315
SWPSU8 IGET I'll FIELD AODR
TAD I
1715
TEMP
DCA
3055
SWPSU8
lSI
2llS
IGET COUNT/POITER
1.7U0
TAD
ti77
TEMPi!
DCA
30!UI
SIIIPFLAG IWHICH WAY ..
TAD
1314
SZA CL.A
7648
IPUT OS8 BACK
SWPF2
JMP
53U
SltP'F"(A G IMOVE OS8 OUT
lSI
i!314
MLT
140i! SWP I,
IGET PART OF RESIDENT
TEMPi!
TAD I
1456
SWPRET . IRETURN IF 8K ONL.Y
5311""~ JMP
IINTO I'll FIELO
TEMP
DCA I
3455
IBUMP POINTER
TEMP
lSZ
2055
lAND PTR/CTR
TEMP2
lSI
ii!05ft
II.OOP
SWPl
JMP
5334
CDF
6i1U
SWPSUS
JMP I
5115
IIF 8K JUST RETURN
SIIIAP
5f1U SWPFl) JMP I
IGET WORD OF I'll FIELD
TEMP
TAD I
1455
HLT
740i SWP2.
IBACK WHERE IT BELONGS
TEMP2
DCA 1
345ft
TEMP
ISZ
c0SS
TEMPi!
ISZ
2056
swPF2
JMP
5345
COF
6201

5«»&1
4315

•

IOS/8 BASIC

I.OADER

10555
1111556
1i1155T

3336

19&
l'T
198

UT&
5T15

PAI.S-V8
TAD
DCA
JMP I

10/30/12

•

PAGE 3·~

L.b#h ISET UP TO FIX FIELD fI'l CDfS

.=~B
-~

•

105/8 BASIC LOADER

199
20fl1
201
202
203
204
20'S

206
21117
208
209
210

211
212
213

2111

215
216
iH1
218
219
220
Ul

222
223
221
i25
226
227
228
229
i!l0
ill
232

2n
234
235
236
237
2]8
i!19
240
241
242
243

244
245
246

247
248
249
250
251

252

•

253

111111561
1110562
005U
005611
00565
00566
00561
00570
1110571
0057i

PALS-Va

10130172

PAGE 4

7727
77i1
2130
1317
1555
7642
7570

0770

77""
7G1IiI

1000
1343
l1U
7117
7577
0UIrS
PAGE
0111601// uri'll NODAU, COP
JMS
88601 4717 •
FREEF
/SAVE FJELD
III 860 ii! 104'
CIA
88603 3US
DCA
C\.,RFLD IFOR ARRAY CLEARING
01604 1054
TAD
FREELO ISAVE THIS ADDR
00685 7841
CIA
1//0U6 3186
DCA
CLREND IFOR END OF ARRAV CLEAR
8111601 2054
lSZ
FREELO IMAKE IT NEXT FREE • 1
00610 1316
TAO
(SVARST-l
DCA
Xliii
IALLOCATE STRING VAHS
011"11 :5010
80612 1375
TAD
e-436
1110U3 3055
DCA
TEMP
00U4 UU ASVLUP, CD'
10
IIIIIJU5 1410
TAD I
Xliii
ILOOK FOR DEFINED STRING VAH
00616 305E!
DCA
TEMP2
ISAVE SYMBOL NUMBER
00617 141111
TAO I
Xl0
IGET SIZE
SPA
00620 7'510
00621 1374
(4810
TAD
I.IF UNDEF USE 16 CHARS
00622 ]857
TEMP]
DCA
08U3 11/156
TAO
TEMP2
lIS IT DEFINED?
00624 . 6i!1II1
COF
SMA tLA
00625 7700
JMS
00626 42U
aVSTOR IYES, CREATE ENTRy
00627 2055
lSZ
TEMP
ISUMP COUNT
0f/J630 5214
JMP
ASVLUP ILOOP
00631 6211
COF
10
IALLOCATE STRING TEMPS
00632 1773 P6,
TAO I
(STEMPS.1
00633 ]i!U
~CA
STEMPF IINIT FIELD
00634 lUi
UO I
(STEMPS lAND POINTER
00635 1411/1
SI(P
00636 1055 STMLUP, TAO
TEMP
ILOOK AT NEXT ENTRY
0111637 7450
SNA
00640 5771 f
JMP
ALLOtA IDONE GO ALLOCATE AHRAYS
00641 1370
TAD
(-1
00642 3010
DCA
XU
IGET POINTEH
0064] 6211 STEMPF, COF
10
00&44 14l11J
TAO I
XU
IGET ADOR OF NElCT ENTRY
001)45 305~
DCA
TEMP
ISAVE If
001)46 14118 P7,
TAO I
X10
lAND ITS FIELD
00573

1110514
00575
00576
00577

•

PAlS .. Va

108/8 BASIC lOADER

i54

255
256
251
258
259
260
261
262
i!U
264

265

261
268
2&9
270
211

21i

2T!
214
215
216
271

218
279
i!80
281

lIZ

285
286

21.,

218
i89

i!9121
291
i!92

293
294

295
296
2'7
298
299
300
301
302
303
301.1
305
306
307
308

IUJ641
00650
00651
00652

00653
11!16!54
00655
00&56
II!IU1
00660
121111661
00662
006U

0e664
006.,
006U
00661
00610
00611
00612
00673
00614
00615
00616
00611
00100
00101
0071112
00703
00104
00105
00706
00101
08110
00111
1210112
011113
00714
lUI" 15
007U

00717
00U0
"0Ul
0111122
001Z]

00124
00125
007i!6
001i!7
00730
00731

00732
00733
00734
00735

3243
20U
14U
3056
62U
1367

30!57

4260

5Ufl
1/1000
1I!l!!l6
1104
1056

leU

1051
1366
llU
]065
30U
4331
1054
3411
4717 '
3411
1057
1041
3411
56U

DCA
%81
TAD I
DCA
CDF
TAD
DCA
JM8
JMP
SYSTOR, 0

TAO

CL.l RAl

TAO

TAD
DCA

TAO
TAO

STEMPf"
U0
X10
TEMPi!
( 110
TEMP3
SYSTOR
STMLUP
TEMP2

•

PAGE 4-1

•

ISKIP TEMP NUMBER
IGET SYM NUMBER
IGIVE IT MAX SIZE
IAL.OOCATE IT
ILOOP
IMAKE ST ENTRY FOR STRING VAR
IFIND ST AOOR

TEMPi!
SST ,lOR

Xll
TEMP3
(3

ClL. RAR
DCA
SUSLD
DCA
SUSHI
JMS
SUB
FREflO
TAO
DCA I
X11
FREEF
JMS
DCA I
X11
TAD
TEMP3

CIA

10/30/12

DCA I
X11
SVSTOR
JMP I
0
0000 PSN,
WORD2
DCA
3061
7146
ClL CMA RTl
DCA
XLABEL.
3104
WORDi!
1I!lU PRNTSN, TAD
710.
ell RTl
1006
RTL
]0U
DCA
WORD2
TAO
WORDa
1061
RAL
1004
(17
AND
uu
7440 SPACE, sz.
JMP
~OZERO
5324
TAD
TTY
1764'
INA CLA
1690
JMP
n26
LUD0
(&Ill
13U NOZERO, TAO
JMS
4764'
TTY
i!104 LEAD0, lSI
XL ABEL
JMP
PRNTSN
53UJ
JMP 1
PSN
5101.1
0000 SUB,
0
SUBL,O
10f15
TAD
1161
CLL CML, CIA
TAO
105101
FREELO
3051.1
FREEL.O
DCA

INUMBER OF CHARS
INUMBER OF WORDS
IFREEHI,lO.FREEHI,LO~SU8HI,LO

ISAYE ADDR
lAND FIELD
IPUT IN MAX LENGTH
I (NEGATIVE)
IPRINT 3 DIGITS DECIMAL
1-3

IGET NEXT DIGIT
IINTO THE lOW ORDER
ITHREE BITS AND THE LINK
IS AVE SHIFTED NUMBER
INOW DO LAST SHIFT
IONlV FOUR BITS
INOT A ZERO
IANY DIGITS YET 7
INO, ITS A LEADING ZERO
IMAKE IT ASCII
IPRINT OIGIT
18UMP COUNT
IMORE DIGIT (5)
IDOUBLE SUBTRACT
ISUBTRACT LOWER

105/8

BASIC LOADEN

309
310
311

021736
00737
011174111
0111741
0111742
1110743
00744
00745

312

313
314
315
31&
317
318
319
320
321
322
323
324
3i!5

326
3Z7

•

007460

1110747
00750
rUJ75!
00752
00153
00754
00755
00156
00751
00760

7004
1064
711141
1053
3053
111153

PALS-V8
RAL
TAD

CIA

TAO
DCA

10/30/72

PAGE 4-2

IGE.T BORROW

SuSHI

FkEEIH
FREEHI
TAD
FREEHl
7740
SMA S2A CLA
15131
JMP I
SUB
310~
TOOBIG, DCA
L.II'4EH
DCA
311U
L.INEL
JMS
47ft&! '
ERMSG
2402
2402
57U'
JMP
ABDRTL
0000 TTX,
III
6041
TSF
5354
JMP
.-1
6IIJ 4t.
TLS
121110
CLA
TTl(
5753
JMP I

ISU6TIUCT UPPER
ISAVE NEW UPPER
1010 IT FIT ?
IYUP
ICLEAR LINE NUMBER
IwRITE MESSAGE
IToe BIG
IABORT RUN
IPRINT CHAR ON TTY
IWAIT FOR PREVIOUS CHAR
IPRINT THIS ONE

•

P~L8·V8

IOS,8 BAUC LOADER
328

I
I
I
I
I
I

529

331

312
33l

;SU

331

]38
339

3111

341

3'a
343
IU

:US
346

SIt,

"'"
I""
11"5
IIUT
.17111
11TH
1117

1741
11117
IlIlIl
Illl
1711
'4I1i1
1"1

IIIJTU

IIU

88fT'
linT

lUI

lUll

U!.
Tl41

1I"n ·nu
un

:SS9

'UU
lUll

'REELO

DCA

REUDR
YARCNT
C4Il

ISAY! START OF RESIDENT -1
INEGATED
IUSED TO COMPUTE AMOUNT OF MOVE
/GET NUMBER OF
IYARUBLU

VARCNT
nCN'

ISTRJNG VARIABLES

".,

'VCNT
leNT

e'l

IARRAYS

TAO

lAND STRING ARRAYS

fI.t

su.,
,
.,'"
nl
un

,61

IU
IU
363
IU

361
56'

S"
3"
369

PAGE

STSTUI' , TAD

,,"a
JU'
eUI) 1141

Ulll

151

CAUTION & 1 ,
THIS 'AGE AND TME NEXT ONE ARE
OYERLAYED BY THE INPUT BUFFER
AS SOON AS THE ROUTINE "INWORD"
IS CALLED. THIS 'IRST MAPPENS
A'TEA THE TAG "AiLeIT" •

a .,.,

"TU

lUI.
I'ln
IU"

J!55

CIA

TAD
TAD
CIA
DCA
TAD
TAD
CIA
DU

III"
IU11

JlttI
IIU

DCA

AtNT
UCNT

137ft

TAD

C41

IACNT
I'RUI'
STCO'
¥ARCNT

UIU
U'U

lua.

TAD

CIA
UD

It II I
IUii

feU
JIII4J

DCA
Jill,

UIIIi.

JIII2'

UIiJ

4,n'

ulln Ie"
1U·

DCA
TAD
CLL RAL

314

US4

TAD

nti

311
318
379
380
381

382

C'"

IUtl

11111

IIIU
lUi

31111
3"
312
373
31S

•

PAGE 5

IDIIJ 7ft 1 113'
II'U Uti
IDIIJUl 11161

319

nl
!!II
n2
sn
n.

10/321172

IUa.
UII?

uu,

un!

UfJ32
U03]
11118]4

uus
!!IUU
un?
!!IU40

u."

311J54
1054
TIll 1

3121
1054

llllU

]410
J4UJ

TAD

DCA

TAD
lAC

DCA
TAD

DCA

DCA I

VARCNT
FREELO
PREELO
FREfLD
NSTADR
FREELO
Xl"
XU
XU

'SAVE HJGH FIELD
ISUBTRACT SPACE 'DR
ISCALAR TABLE (3 WORDS A PIECE)
IDON'T BOTHER WITH A
IDOUBLE PREC. SUBTRACTION
ISAV! START OF SCALAR TABLE
IFOR INTERPRETER
ICLEAR ALL VARIABLES
/IN THE
ISCALAR TABLE

•

IOS/8 BASIC

383
384
385
]86
387
388
38CJ
3921

391
392
393
394
395
]96
397
398
399
400
401
Ui!

lUll

404
US

406
401
408
409
410
411
412
413

414
415
416
417
418
419
420

421
422
4i!!

424
425
42&
427
428
429
430
431
432
433
414
435
43&
437

•

PALe"VB

LOAOE~

DCA I

01043

3410
2040
S237

01044

6211

COF

01041
010411

01045
01046
1/11041
01050
01051
010S!
211053
211054
01055
01056
01057
01060
01061
0106.
01061
01064

21111165
01066
211061
01010
21l1!171
0107i

0101]
01074
01015

21101&
01077
01100

01101
0110.
01103
01104
11105
01106
01107
01110
fIIl111
Illll Ii

011t!
f111114
01115
0111b
01117
01120
I!ll 12 1
01122
011a3
01124
01125
0112&
011iH

1774
3251
1773
6201
7410
1055
1450

5311
U12
3010
6211

1410
305'5
1410
3251
1410
306111
1410
3061
1410
321fti
1410
3056
105'
7104
USb
1054
3011
6201

PI,

3411

105"

3054
1054
302:5
1043

IJUST TO Sf NICE
IPREPARE TO ~OVE
CLITRL+l/THE NUMERIC LITERALS
IINTO THE SCAI..AR TABLE
I..FLD
(LITRL.

TAO I
DC.

TAD

1060

12162
3411
5lSi
U4e
7104
7104
1054
3054
1054
30li!
U41
7104
1041

JMP

NL.1..00P, TAO
Sill.
JMP

3411
1061

NONL,

)(10

VARCNT

TAO I

Pi,

PAGE 5.. 1

lSZ

COF
SI<P

L.FLD,

10/30172

.-4

tr/l

TEMP

IAODR OF NEXT LITERAl..

NONL.
(-1
XU
10
XU
TEMP

11110 MORE IIIUMERIC LITERAL.S

DC.
COF
HD I
DC.
)(10
TAD I
DCA
LFLO
UD I
XU
DCA
wOROl
)(10
TAD I
wORDi!
DCA
TAO I
XU
WORD3
DCA
TAD I
XU
DCA
TEMP2
TAD
TEMP2
CLL RAl
TEMPi!
UD
TAO
FREELO
DCA
Xll
CDF
TAD
WORDt
DCA I
Xll
TAO
WORD2
DCA I
Xll
TAD
wORD3
)(11
DCA I
JMP
NL.LOOP
TAD
ACNT
CLL RAL
CLL RAL
TAD
FREEI..O
DCA
FREEL.O
TAD
FREELO
CCA
NASTAO
TAD
SVCNT
CL.1.. RAL,
HO
SVCNT
TAD
FREELO
DCA
FREELO
TAO
FREELO
DCA
SSTADR
SACNT
TAO

,'- r

~;<r

IGET ADOR OF NEXT Ll TERAL
1 AL.SO ITS FIEI..O

INOW ITS VAL.UE

INOW THE SYMBOL NUMBER
ITIMES THREE
IPLUS START
IGIVES STORE ADOR
INOW PUT LITERAL INTO TABLE

100 NEXT L.ITERAL

IALLOCATE ARRAY TABL.E
IFOUR wORDS PER
ISUBTRACT FROM LOWER END
ISAVE THIS
1ST ART OF AR~AV TABLE
IAL.L.OCATE
ISTRING VAR TABL.E
13 WORDS EACH

lAND SAVE IT FOR THE INT

•

INOW SPACE FOR STRING

•

,
IOS/8 BASIC LOADER
438
439

440

111321
IiI1 131
II 13i

7104

CLL RAL

7104
1054

CLio RAL

441

01U3

3054

443

01135

l0i!4

442

444
445
44&
447

448
449

IUl4

IUll&
l1li137
l1li140
e1141
IU4i
r1J1141

410

01144

451

rU145

452

1114&

453

11147

U!5

0115 1

4154

4S6
457
458
459

460
461
4U
463
464
465

el1S1

11152
11153
IIJllS4

e1155
01156
eUS7
I1UI

01161

IIJttU
IIJtU3

PALhV8

TAO
DCA
TAD
DCA

1054

&211

17U
33U

177"

&211

141"

CDII'

P3,

TAD I
DCA
TAD I
COF
UP

SLLOOP, TAD
INA
57&7'
JMP
U7i!
TAO
llU
DCA
ani
JMS
14U
UD I
1055
DCA
1411/J P4,
TAD I
]056
DCA
1411/1
TAD I
leu
DCA
JMP
00011J SFLO,
0
6211 SV'LD, CD'
JMP I
5161
1055

74!1'II

,,6ft.

U/3017i!

•

PAGE 5-2

IARRAY
FREELO ITABLE
FREELO
FREELO ISAVE FOR INT
SASTAD
10
IPREPARE TO MOVE
(SI.URL.l <.t P
SLFLO
ISTRING LITERALS
(SLURI.
TEMP

lIS NEXT

NOSI.

INO, END OF THE LINE

(-I

XIIIJ

LIT THERE ?

SFLD
XU
TEMP

ISET THE FIELD
IGET ADDR OF NEXT

XlIIJ

/ALSO FIEL.O

TEMPi!
XU
NCHARS
SLlT2·
lfII

S'LO

1/ f
r

ITHEN CHAR caUNT
100 REST OF STRING LIT

•

PALS-Va

los/a BASIC lOADEH
46~

01166

IIU
4&8

01167
01110
01171
01112
01173

lin
470

471
412
473
414
475
47&
417
478
479
480
481
482
483
484
485
4a.
487
488
489

490
491
492
4en
494
495

4"
4'7

01114

01175
0117&

U2i!!

512

01244

51111
511

51&

01245
01246
01247

517

0li50

514
515

518
51q

520

0041

uEll

513

51216
5121'1
508
509

2130

01200
01201
I1IU0i

012i4
01225
01226
01227
0U30
01231
U232
0Ul]
012J4
eU35
01236
01237
0U40
01241
11I1Z42
01243

ua
499
500
501
502
5181
504
505

i!56ii!

256.5
0401

eUI4
1111205
0U06
01207
012U
01211
0un
01213
01214
0Uts
I1Ilil6
01217
01220
I/IUZI
01222

0U51
01252
01253

PAGE 6

120111
1257
2564
2565
7717

01177

012113

10/30172

U00
SLIT2,

1377

711111
1010
3057
1457
7104
1457
11112!

3011
1I1IU

7001

un
3057
11/157

7lV'0

1054
3054
1420
5]37
1054
1376
7U0

!lll7
U54
7I!lU
&201

3411
4775'

1411
106,5
7041
]411
1054
3011
1063
7041
5251

4774' Moval,
1410

6201

3411
2057
5246

PAGt.
TAD
TAD

NCHAAS
(3

ICOMPUTE WORD COUNT

CLL RAR
TAD
ITO GET ADOR OF SYMBOL NUM8ER
Xliii
TEMP]
DCA
TAD I
TEMPJ
ISYM NUMBER TIMES 3
eLL RAL
TEMP3
TAD I
TAD
SSTAOR IPLUS BASE
DCA
IGIVES ST ADDR
Xll
TAD
NCHARS IALLOCATE SPACE FOR IT
lAC
eLL CML CMA UR
TEMP]
DCA
I(SAVE NUMBER OF WORDS)
TEMP]
TAD
CLL
TAD
FREELO
DCA
FREELO IBELOW THE SYMBOL TABLES
SNL
JMP
TMSLIT /TOO MUCH STRING LITERALS
TAD
FREELO
TAD

( .. ENO-10

SZL CLA
JMP
TMSLIT ·/DITTO
TAD
FREELD ISTICK THE ADOR
lAC
COF
DCA I
Xll
IINTO THE ST ENTRY
JMS
FREEF
IALSO THE FIELD
aCA I
Ul
TAD
NCHARS IALSO THE SIZE
CIA
DCA I
Xll
TAD
FREELO /THIS IS WHERE IT GOES
)(11
DCA
TAD
NCHARS IPUT IN THE l.ENGTH TOO
CU
I(NEGATIVE)
JMP
,+/6
JMS
SFLO
1110
UO I
COF
DCA I
Xli
IMOVE THE LITERAl. TEXT

ISZ

JMP

TEMP]

MQVSL

•

PALs-Va

105/8 BASIC L.OAO!~

521

01254
rIJ1 iSS
111125.
1111251
1111260
rIJ1i!&l
1111262

5il!8

IllliU

529

012U
1llli!.5
lllli!.&
01i!fI1
0U70
01271
0127 i!
01213
01214
1111275
0li!7fI
01277
11H300
01301
01102
0131113
01304
01305
0130&
01307
01310
01311
0UU
01313
01314
01315
01316
iII!17
013ii!0
01321
01322
01323
01324
01325
0132&
01U7
01330
01111
01332
01333
01334
01335
01336
01337
01340

5i!1
522
523
524
525
52&

530
531
532

533
534
535
!5U

537
538
539
540
541
542
54]
544
545
54&
541
548
549
550
551
552

553
554
555
55.
551
558
559
5f10
561
562
563
5U

565
566
5&1
568
569
570
571
572
513
5U

575

Ii'J 1341

01342

105& P5,
37U'
57H'

111154

3027

1027
3030
111151
1450
5711-

Tl00
10!U

3054
7U0
533i
1054
UTEI
7&30
53Ji!
1054
3010
1054
3011
137111
3010

NOSL,

TAO
DCA
JMP

TAO

DCA
TAD
DCA
TAD
SNA
JMP
eLL
TAD
DCA
SNL
JMP
TAD

TAD

TEMP2
SLFLO
SLLOOP
FREELO
OATTOP
DATTOP
OATPTR

10130172

•

PAGE &-1

IPUT THE FIELQ OF THE NtXT SKP
IENTRY WHERE IT ODES THE MOST GOOO
100 THE NEXT LITERAL
ISAVE TOP OF DATA LIST
IIF EMPTY MAKE Top-eOTTOM

CLUZE

NOOATA

115 ANY DATA?
INO

FREELO
FREELO

IGET START OF DATA

TMOATA /TOO MUCH DATA
FREfLO
C-END"10

SZL CI"A
JMP
TMOATA IOITTO
FREfL.O ISAVE IT
TAO
OATPTR
DCA
TAD
FREEL.O IUSE X13 TO FIl.l. 1.1ST
DCA
Xl3
TAD
CoArLST-l
DCA
X10
COF
UU
10
ICU!
IANY MORE DATA ELEMENTS ?
1410 DATLUP, TAD I
7450
SNA
NODHA
JMP
5711'
ISAVE AoDR
TEMP
DCA
3055
IGET NEW FIEI.O ·~pf
TAO I
Xli!!
1410 P8,
DATAF1
DCA
332111
DATAn /TWICE (""" f.'t'
TAD
132111 P9,
DCA
DATAf'i
:SUb
ISTART wn . . NEW EL.EMENT
TAD
TEMP
1055
DCA
X10
30U
6au OATA'I, co,
10
TEMP
IGET COUNT
TAD I
1455
DCA
TEMP
3055
)(10
IGET NEXT WORD
1410 DATMOV, TAD I
6201
CD'
IMOVE INTO DATA AREA
DCA I
X13
34\3
10
&211 DATAF2, COF
TEMP
2055
IS%
OATMOV
JMP
5323
JMP
CATI.UP 100 NEXT ELEMENT
530&
IZ~RO L.INE NUMBER
311113 TMDATA, ~CA
L.INEL
DCA
LINEH
3Ui
IPRINT ERROR MESSAGE
4767'
JMS
ERMSG
2404
2404
JMP
576&'
A~ORTL.
ICL.EAR T"'E L.INE NUM6EtoI
3Ui TMSLlT , DCA
LINE'"
DCA
I..INEL
3103
47& l'
JMS
ERMSG
IP~INT MESSAGE
2423
2423

'-,

•

10$/8

EU,SlC lOADER

51&
577

1IJ1343
1111344
01345
01346

578

579
580
581
58l

583
584
585
5U

•

01347

01350
01351
01352
0US3

01354
1lI1355

ST6ID '

111145

P~L.&·V8

10llrU72

PAGE &-2

JMP
ABORTl
PUL.ST, Pl,P2,P3,P4,P5,P6,P7,P8,P9'0

106~

1137
1154
USA
0Ui

0&4&
1312
131 4
000111

•

PALS-Va

108/& BASIC LOADER
iI UfJfJ

il]fJ

t Hi
2!5U

59.

01]67
01310
01311
01]'12
01373
01314
0131'
01316
01317

59T
5118

1111400

U4i
1UIII

5IT
588
589

590
591
!!I9a
593

,94
59S

599
6121
601

602
603

604

605
be6

U1
608
UII

610
Ul

612
611
614
6l!
&l6

61T

620
621

Ui!
&23

624

615
&26

fliT
1128

&29
UQI
U1

Ui!
633
U4
U5
636
U7
&38

bH
640

641

01401

01402
UU]
0lU4
21 14 III !!I
211406
01401
014U
01411
01411
et413
01414
01415
1/11416
01417
211420
211421

0l4ii!iI

U4U
21SU4
1/11425
211426
01427
01U2I
UUl
0iUi!
01433
U4l4
!UUS

014]11
211437
01440
01441
01442

01443
01444
01445
211446
211447
01450
01451
0145i!
01453

10/30172

•

PAGE 7

0610
1144

uu
11ft!

21311)
531i1

0003
S400
!2U
1317

3010
102i
JUS
&illS

1410
3055

1410
1450
1376
7001
]2156
1410

7450
1376

PAGE:
AtNT
IANY ARRAYS 1
ALLoeA, TAD
aNA CL.A
.IMP
AI.1.0CS INO
(ARAYST IALLOCATE ARRAYS
TAD
DCA
XU
NASTAD
TAD
)(11
DCA
DOARAY, CO,
1111
)(10
TAD 1
IGET NEXT AHRAV
TEMP
DCA
TAD I
leU
IGET Fun OIM
INA
IUSE 10 IF NONE
TAD
eu
IALLOCATE 0TH ELEMENT
lAC
T!MP2
DCA
IliEr SECOND DIM
TAD 1 XU
INA

TAD

Oi!

lAC
TEMP3
30!!17
DCA
10!i7
TAD
TEMP1
]2165
DCA
SU8LO
DCA
SUBHI
3064
U01
CD'
TUl
CLL CML InR
AND
TEMP
0055
SNA CLA
1650
JMP
5237
ONLYl
1056
TEMPi!
TAD
JMS
4115'
"IULtil
5202
JMP
TIMES3
TEMP]
32157 ONL Yl, DCA
1056
TAD
TEMPi!
3065
DCA
SUBL.O
(3
1314 TIMU3, TAO
4775'
JMS
MUL.12
4173'
JMI
SUB
1054
TAO
FREELO
)(11
]411
DCA I
4172'
FREEF
JMS
)(11
DCA I
3411
USb
TEMP2
TAD
)(11
DCA 1
3411
1057
TEMP!
TAD
7al12I1

IGET READY TO SUBTRACT

IHOW MANY DIMS ?
lONE
IPRODUCT OF DIMS
IMULT BY 3
IZERO SECOND OIMENSION
IMULT SIZE BY 3
ISUBTRACT FROM FREE
ISAVE AODR IN S.T.

IAlSO DIMS

•

IOS/8 BASIC I.OADER
642
U3
U4
US
&46
647

648
Uli
U0
Ut
6S2
6!]

654
655
U&
U7
658
Uli
660
Ul

662
6U

664
U5
U'
U7

U8
Uli
6T0
671
672
673
674
US
676

617
678
6J'i
UI/J
681

68i

683
684
685

68"
687
688

U0
691

,92

,,93
U4
695
696

•

PAL,H-V8

10/30172

PAGE 7-1

)(11
DCA I
3411
ISKIP SYMBOL, NUMBER
xu
ISZ
2010
AtNT
ISZ
204i
JMP
OOAHAY
5207
SAtNT
IANY STRING ARRAYS
104J '&I.I.OCS, TAD
SNA CLA
TU'"
JMP
REL.C IT INO
5711 '
TAD
C&ARYST+l
13n
)(10
DCA
IAL.L.OCATE STRING ARRAYS
3010
TAD
SASTAO
1024
DCA
X11
3011
6211 DOSANV , CDF
10
)(10
TAD I
14l1!J
SNA
7450
137.
TAD
IUSE 10 FOR DIM
Oi!
lAC
7001
TEMP]
DCA
3057
TAO I
XU
IGET DIM
1410
7450
Sill A
TAD
IUSE 16 IF NO SIZE SPEC
Uft7
cu
DCA
TEMPi!
305&
11/151
TAD
TEMP3
]0ftS
DCA
SUSI.O
IPREPAI'E FOR MUL.T
]064
SUBHI
DCA
COF
62111
TAO
105.
TEMP2
IGET NUM WORDS PER STRING
TAD
C3
1374
01507 7110
CI.I. RU
JMS
IGET ARRAY SIZE
MUL.12
01510 4715'
JMS
SUB
100 SUBTRACTION
81511 47U'
TAD
FREEI.O ISAVE ADDR
015U 1054
DCA I
X11
01513 ]411
JMS
FREEF
01514 41711'
DCA I
01515 1411
X11
TEMPi!
TAD
lAND STRING SIlt::
01516 1056
CIA
I CSIZES ARE NEG)
01511 7041
)(11
01520 ]411
DCA I
TEMP]
TAD
lAND NUMBER OF STRINGS
rca 52 1 1051
DCA I
1(11
01522 3411
)(10
ISKIP NEXT NAME
01523 2010
ISZ
)(10
01SU 201111
lAND NEXT SVM NUM8EH
ISZ
01525 2043
lSI
SAtNT
121152& 5267
JMP
DOSARY
01527 5711 '
JMP
REL.Cn
IREAD FROM CODE FIL.E
01530 0e!lHa INWORO, 0
01531 2074
ICOUNT IANYTHING IN BUFFER
ISZ
1ZI1532 5345
JMP
NONE AD IYASSUHi
JMS I
01533 47&&
(7607
IREAD NEXT ~LOCK
01S34 0200
2f1H11
1011)0
01535 1000
INOTE: THIS OVERL.AYS USED CODE
01536 0000 IN8L.OK, 0
JMP
1211537 57&5·
IOERR
01540 233&
INBI.O!( ISUMP BL.Ot!( COUNTER
ISZ
01541 1335
TAD
INBL.OK-l/RESET BUFFER POllllTER
1ZI154ii! 3350
DCA
III!PTR
01454
1211455
0145.
01457
rca 460
014ft1
e14f.ti!
014ft!
014U
01465
0146&
01467
0147121
01411
01472
01473
11114741
01415
0147.
01411
01500
IU501
0lSIIJ2
01503
01504
fU505
01506

•

P-'1.8-V8

105/8 BASIC LOADER

..,
&91
&98

100
111

10i!

111154]
1111544
1111545
0154.
0154 ,
01550

13U
5814
1150
2350
S130

000111

TAD
DCA
NOREAD, TAD I
lSZ
JMP I
INPTR, fJ

( .. 40111

ICOUNT
INPTR

INPTR
INWORO

10/30172

•

P4GE 1-2

lAND COUNTER
IGET WORD
lau,",p POINTER

•

10S/&

PAL,a .. v8

BASIC L.OADER

703
7r1l'1
US

706
707
1138

7U
711
712
713

T14

115
716
117

711

TU
UI

Til

722

7n
U'

?is

01564
015(15
1111566
rIll5U
01510
01511
0157i!
21157l
211574
01575
01516
01577

'7421fil
i!312
7U?

0161/11
U'li
111611
01UJ
UU4
UU!
1/11616
111617
11"1
'lUI

1145

23].5

IU0
2l3fil
lUll
00U

U5'
!/I0U
i!l3i

161110

1UI
3065
71U"

1044

JlJ6"

4""

lil54
llU
Il!U

lUll

3115
U45

111

'161'
11615
11616

H"
Te ••

7JJ

IUUII

UU?

116U

.1613

1],

na
14e

uua

.1614

Bun

IIUU

J'"

PAriE
L,OCTRL
RELcn, TAD
CLL lAC
DCA
SUIL.O
JUL.
TAD
L.OCTFtH
DCA
SUBHI
JMS
SUB
TAD
PRULO
DCA
COD8&N
TAD
'''U/lll
DCA
CODCO'
TAO
LDCTFtL
CLL CML CIA
CODSU
DCA

1144
7,41

J'"
II"

nu'
114ft
3175'

1374

1J'

IUZ1

741

I/IUll

luna

743

uU]

lIn
?iU
JeU
477.5' Rnoop,

144

11614

'1"

UU!

142

""&

74'1

'1"

""9
150
751
75i!

153
754
155
156

•

757

un.

0UU

01U1
11640
01641
0U4i!

IttU3

01.,.4

01U5
016 ..
211&41
01ft50
01651

PAGE 8

0e'"

1161]

727
72'

10/30172

3155

U55
111111
1ue
5lIJ
1055

113'10
'111 i
1i!&4

U54
1155
0n1
3055
4773'

RA!.
TAD

Cll
DCA

TAD

OCA

TAO

~CA

TAO

IFIND START OF CODE
IBY SUBTRACTING
IAMOUNT FROM FREE
/THIS IS HIE START OF THE CODE
IMINUS ONE
/THIS IS TH! nnD NUMElER
/SET UP PROIi SIZE COUNT
ILown COUNT

LOCUM
CODna
81,.OCIC

IUPPER COUNT
I.ET UP FOR READ AND WRITE

OUILDI(

BI.OCIe
I N8\.OK
(-411

DCl
OCOUNT
eLA CM.
DCA
ICOUNT
JMI
INWORD
DCA
TEMP
(30te
TAD
TAD
TEMP
AND
(7000
114 CLA
JMP
NOR£LC
TAD
TEMP
AND
(340
CLio RTR
TAO
CUF0
DCA
LBVLO
TAD
TEMP
AND
(7431
DCA
TEMP
JMS
INWORD

IGET A WORD OF CODE

ICHECK FOR OPtOD! 5000 (GOTO)

INO JUMP
IREMOVE FlEl.O BITS
IFIELD OF LABEL. ~NTRY
IZfRO FIELD BITS

•

IGET REST OF AOOR

•

PALS-YS

105/8 BASIC LOADEN

758
759
7&0
761
7112
7&3
764
7615
7116
767
7618
7..
770
711
712
71]
714
715
716
777
718
719
780
7&1
71i
783
184
185
786
187
'88

189
790
791
792
793
194
795

791>

797
"8

1021

801
802
803
804
805

806
807

01ftS2
01ft53
01&54
fill &55
01&5&
01ft57
016&0
01&61
l!I1U2
l!I1 &63
016614
01665
01&U
016&1
01ft70
01&71
0167a
1!Il1>73

01ft74
01675
01676
01677
U700
01701
IU702
017n
01704
01705
0170ft
011e7

01710
01711
01112
01113
01714
01115
01116
01117
01720
01721
01722
UTi]

01124
01Ti5
011261
01H7
01730
01731
1Il173i

810

211733
017:54
III 1735
0173&

811

01737

808

8li?

01740

TEMP2
DCA
305ft
JMS
CHKLBL
416ft •
74l!1i LBLFLO, HI.T
TEMPe!
TAD I
145ft
(7
AND
L'J3ftS
DCA
L.OCHI
3070
TEMP2
205ft
ISZ
TEMPi!
TAO I
145ft
eLL
7100
CODBGN
TAO
lG!I2 ft
COF
6101 COFe,
DCA
LOCL.O
3011
RolL
7.004
TAD
COOCDF
IUS
TAD
LOCHI
1070
710ft
CLL RTI.
?m0ft
RTL
7004
lUI.
TEMP
1055
TAO
OUTWRD
4764'
JMS
20MI
ISZ
CODSZ1
SKP
74U
CODSZ2
2067
ISZ
TAD
LOCLO
1011
1055 NORELC, TAD
4764' RfI.OUT, JMS
20&6
ISZ
JMP
SUi!
lI&7
ISI
JMP
SUe
JMP
S7U'
0000 ERMSG, 0
COF
6201

171i

7112
7012
?m12
4340
lUi

4340
2312
1Tft2'
4]40
33411)
1102

47U'
1103
47U'
13&0
4757'
1]5c

4757'
00210

•

PAGE 8-1

ICHECK FOR UNDEFINED L.ABEL.
IGET ADDR TO BE RELOCATED

IADD 8ASE ADOR
ISAYE LOW PART OF JUMP
IGET HIGH PART
IPUT IT INTO CORRECT PLACE
IPLUS INSTRUCTION
IBUMP COUNTER
ICAN'T 8E LAST WORD
IOUTPUT LOW ORDER AODR

SKP

7410

5712

10/30112

TTV,

TEMP
OUTWRO
CODSII
RELOOP
COOSZi!
REI-OOP
LOAon

ERMSG
TAD I
CLL RTR
RTR
RTR
JMS
TTY
ERMSG
TAD I
TTV
JMS
ERMSG
lSZ
SPACE
TAD
JMS
TTV
TTV
DCA
LINEH
TAD
JMS
PSN
1'0
I.INEL
JMS
PSN
TAD
(215
TTl(
JMS
C212
TAO
TTl(
JMS
JMP I
ERMSG
0

IJUST OUTPUT IT
IOOUBLE WORD ISZ BUMP

IDONE RELOCATING, GO I-OAO
IPRINT ERROR MESSAGE
IGET CODE
IPRINT FIRST CHAR

IPRINT SECOND CHAR
IFIX RETURN AOOR
IPRINT SPACE
IUSE TTV AS A SWITCH
IPRINT HIGH ORDER
ITHfN LOW ORDER
ICLINE NUMBER NATCH 1)
IPRINT CARRIAGE RETURN
IPRINT UNE FEED
IRE TURN
ICONYERT TO ASCII ANO PRINT

•

PALS-va

105/8 BASIC LOADER

813

815
Ufl

8U
818
819

01741
U74Z
81143
01744
lilt 745
1111746
01147

•

0355
US4
75U

1353
115i
4U7'
SUIlJ

AND
TAD
SPA
TAD
TAD
JMS
JMP I

(77

( .. 40
(100
(24111
TTl(

TTV

10130172

PAGE 8-2

lSI)( BITS ONLY
IWHAT SIDE OF FORTY '1
II..OW SIDE
IHIGH SIDE
IPRINT CHAR
IRETURN

•

108/S BASIC LOADER

820

SU
SU
823
814

US
1i6
821
818
819
83121
831

832
833
8U
835

a36

11752
81753
IU754
01
U756
IU?!7
1/11 T60
IU7.,

1/I17U

11761
U7U
8un
017.6
I1117U
UHe

un,

831

839
81&0
841
8U

1/11775
01776
01777

843

11J211J00
111200 1
e2082
1lJi!001
02004

8U
145
846
807

848
849
850
851
asa
853

01714

02005

851'1
8U

1lli!0116
/12007
UU0
uel1
IlliI1JU
01013
e2014
U015
1IJ2016
12017
12028
1lli!0il

861
862

1120U

1ft]

1112124

8614
8615
866

UUS
Uli6
01U7

867

un0
IIJZUI

854
855

856
8ST
858

868
861'1
870
871

872
873
814

10130172

•

PAGE 9

lIIaUl
0100
71UI

111017
"5 111212

01772
IUT73

PALS-ya

liUJii!

02ell
0ZUl
111211134
U035

0203&
02037

I117U
8215
1/1784
0717
2000
233.
001117
iU5
7437

nUl

n8e
311100
l53"
7377

153.

un
073'
28011J
PAGE
4777' LOADIT, JMS
11145
TAD

OUDUMP
1.0CTRL
CU CLL CMI.
71U
DCA
CODSZ1
30.'
7004
RAI.
TAD
1.0CTRH
1044
7041
CU
31U
DCA
CODsn
11126
TAD
CODBGN
DCA
TEMP
3155
SI.OCK
TAO
1IZI4'
DCA
INBLOK
nu'
72414
el.A CMA
DCA
ICOUNT
307'
TAD
CODCDF
11125
TUft
eLL RTL
781814
RAI.
1375
TAD
Cfti01
3025
DCA
CODCDF
1025
CODCDF
TAD
un
DCA
CF
2055 LODLUP, ISI
TEMP
SUi
JMP
NOFJMP
TAD
CF
un
1374
(10
TAD
DCA
CF
3an
INWORD
4773' NOFJMP, JM8
74ei tF,
IoILT
U5S
TEMP
DCA I
62811 CDFZER, CDF
206ft
lSZ
CODSZ1
5225
JMP
LCDI-UP

IDUMP LAST BLOCK
ISET UP COUNTER

ICODE BEGIN -1
ISET UP BLOCK NUMBER

ISET UP CODE CDF

IBUMP POINTER
IFIELD IS OK
IBUMP THE FIELD
IGET NEXT WORO
ISAYE THE WORD
IMORE COOE '1
IYES

•

101/8 BASIC LOADER
875

01040

Ii! 041

876
871

Di!rII4e

878

1!Ii843

879

1U1II44
1U1!I45

880

881
882
883
884

885
88&

887
888
889

890

891

892
893

894

IlliU6
1112147

e2U0

111211151

I!Ii!l,a
U053

IU'"

02855

un.

un7
1!Ii!1II60
1!Ii1!l61
02I11U

1!Ii1463

895

Ul ..

896
897
89a

821/165

899
918
911
9112
9 III!

9114
9115
91.
907

UII66

IBZ1461
821J711

121471
1lii!012
U0U

1!Ii!1!I74
0211175
142876

ullin

91118
909

02U0
UUI
nU2

911

02104

91111

'In

913
9U
915
916
911
918
919

9i!0
9il
922
9U
924
925

926
927

928

•

929

IIIZlli13

02105
021111.
1/1211117
11121U

QJi!1l1
QJil I i
021U

0U14
0ZU5

QJU 16
02117

un"

liU1

02122
QJUU
02124
021i5
02126

211167
SUS
U33
lieU
lU6
U55

PAL8-V8
ISZ
JMP
TAO

COOSZ2
LDDLUP
CF

DCA
CI.EARf
CLRENO
CLRLUP, TAD
TAD
TEMP
7.. 0
IU CLA
5254
JMP
MORCLR
111115
TAD
CLRFLO
TAD
CLEARF
7650
INA CLA
52U
JMP
DONCI.R
21455 MOReLR, lSZ
TEMP
szu
JMP
CLEARf
uu
TAD
CLEARF
U74
TAO
cu
DCA
CLEARF
U6'
740i CLEAR', MLT
3455
DCA I
TEMP
5244
JMP
CLFtLUP
lUi DDNCLR, flD
CLEARF
3277
DCA
STFLDM
U55
TAD
TEMP
111117
TAD
RESADR
3056
TEMPi·
DCA
10,5
TAD
TEMP
leU
DCA
xu
111113
TAO
XU
]811
DCA
XU
UU MOYSTL, CDF
)(11
TAD I
1411
ula STFLDM, MI.T
3413
DCA I
XU
211J56
lSZ
TEMPi!
5275
JMP
MOVSTL.
4340
JMS
MOVFIN
577i'
JMP
701110
0000 CHKLSL,
171115
TAD 1
CHKLBL
,.1
331111
DCA
74111i
MLT
1456
TAD I
TEMPi
nUl
SPA CLA
5705
JMP I
CHKLBL
7144
CLio eMA !UL
TAD
TEMPi
U5"
3104
DCA
XL ABEL
1504
TAD I
XLUEL
3Ui!
DCA
I.INEH
2104
ISZ
XLASEL
1504
TAD I
XL ABEL
3U.3
~CA
I.INEL
EIl01
COF
4771'
JMS
ERMSG
2523
2523

12.'

10/30172

PAGE 9.. 1

IYES
16fT THE FIELD
lAND SAVE IT
lIS THIS THE END OF CLEAR ?
11110, KEEP GOING
100 FIELDS MATCH ?
IYES, ARRAYS ARE CLEARED
IBUMP POINTER
100N'T BUMP FIELD
100 BUMP FJELD

ICLEAR THE WORD
100 MORE
ICOPY THE FJELD
IGET THE COUNT
10' HOW MUCH SYM80L TABLE
ITO MOVE
IPUT IT INTO AUTO XR'S

IBET NEXT WORD OF ST
ISTORE IT
IMOVE FINI PAGE INTO 7000.7177
IGO READ 8RTS.SV
ICHfCK LABEL FOR UNOEF
IGfT FIEL.O
IGET FIRST WORD OF LABEL
ISIGIII BIT IS DEFINED
IGET AODR OF LINE NUM
IliET HIGH ORDER LINE
IGET LOW ORDER
IPRINT MESSAGE

•

PALS-va

108/8 BUIC LOADER

93111
931
932

933
934
935
9U
931
918

.n
94111
941

912
94]
944
945
9..

947

".
"9
950
tSl

9!1

UU7
IIIIUI
lUll

1112U2
12133
IIU4
1111135
021U
nU1

lU41
IU4S
02142
lilt)

m2S44
02145
02146

01147
IIUI

1112151
112152
IIUSJ

11!!4

571115
lillie
U53
1106
Tl/l1II4

FREEl',

JMP 1
CHKI.BL
I
FREiHI
TAD
eLL RTL

RAL

4340

TAD
JMP I
ABORTL, JMS

5171
leel

JMP 1
MOYFIN, ID

IU5
5130

UlDi

1567

JlDU

U66

J0U

U65

3055

3411
11155
!l35e

5741

CD'
TAD

DCA
TAD
DCA
TAD
DCA
TAD I
DCA I
lSI

JMP
JMP I

1013011i

•

PAGE 9.2

•

IRE TURN
IMAKE A CDF FROM FREEtiI

CDPZU
FREEF
MOVFIN

IPUT FINI PAGE INTO 7000 .. 1177
lAND ABORT THE RUN
(ABORT·FINI+711101
IFINI PAGE MOYER

(FINI-' IMOYE INT READING CODE
lUI
(..,77
IINTO 101110

C. i! IDI!J
TEMP

IPUT CORRECT COUNT HERE

Xli

IMOyE CODE

TiMP
,-3
MOV'IN

IOS/8 BASIC LOADER

953

1212165

".00

'154

02166
12167
US10
0Z11l
02112
02113
0Z174
fjiH75
UH6

6'71

955

'56

951

958
959
'160

961
962
963
9tt4

02117

965
966
9U

02200

968
.. 9
97IIJ

971
972

913
914
915

02201
1112201
0Z2U
IUl04
02i!05
02206
02201
0i210
02111
02iti!

'I'"

lIIilll
lIIil14

979

Ui!lS
82216

911
918

980
981
982
983
984
915

"6
981
988

989
990
'I'll

992
993
'194
'1'5
'19.

991

l11i

UVU

15]6

l3S7
2200
lUI

16140
n0t
1247

3301
1253
33B2

1701
UI/J1
nBi

i!n2
2303

4652

3400
0000
0000
53U

TAD
DCA
JMS I
SRTan

l112iU?

231/12

1112240 l31U
998 _J!j_~ 4.L _ .~~_~_'L
-~'f' U242
1377
0a24] 3716'
1000
101111
0ai4i U71
1121112
lIIi245 3775'
111103
0224& 5774'
1004---t-!lfl---ntf. -M-tj!, ..
1005
0i250 0020 )lINT,
100ft
02251 t 112 lIERMSG,
1001
0225i! 7&07 nUT,

•

... 5

aRTS
BATsa

IANY ERRORS .,
/YES, DON'T RUN IT
IMOVE INT STUFF
11121 MEY LOCATIONS
IINTO A SAFE PLACE

IMOVE LOOP
IRUD IN 8RTS

)(7607

III

BRTsa,

un
330S
us",

02214
!!Iii! 15
1112i!16

IIIZ 2 J2

PAGE
TAD I
lCEffMSG
alA CLA
JMP
ABORT
TAD
UNT
DCA
FTEMP
TAD
M12
DCA
FCNT
TAD
XSAVE
DCA
FTEMPi!
TAO I
FTEMP
ISZ
FTEMP
DCA I
FTEMP2
ISZ
FTEMPi!
ISZ
FCNT

JMP

]214

3302
1247
33131
1101
2301
3Ui!

1U2]]

FINI,

5]15
125111

11222ID
IIUi!l
111222i!
02221

02210
nUl

PAGE 10

108111
1S10
0010

52tS
111150

Ui!i!S
0Zi!26
n217

10130112

2177
7115

lUI?

022U

PALS-va

II
JMP
TAD
DCA
TAD
DCA
TAO
DCA
TAO I

ISZ

DCA I

ISZ
lSZ

JMP

fAO

DCA
TAD
DCA
JMP
·-'2

20
ERMSG
7607

IOERR

XSAVE
FTEMP
XINT
FTEMPi!
M1i!
PCNT
FTEMP
PTEMP
FTEMP2
FTEMP2
FCNT
.-5
(5561
1&0"

IMOVE STUFF BACK

IPATCH ·C LOCATIONS

(5561

7605

8RTBGIIi

IGO START BIlTS
~-

•

_·~'_"_.~

_ _ _ • • • _ _ _ T' _ _ " _ _ _ _ _ _ '"

•

-.~

-_.' .-'

-~-~-_.,

--~-~,.

•

PALs-va

IOS/8 BASIC LOADER

1008
100~

lG'J 10

1011
1IIl12

1013
1014
1015

0ii!U
02254
niSS
0ii56
0US7
0liU

7054

0i!i6i

511!10
74ara

022ftl

1011

0un
0ilU

1018
1019

0i!i&S
022U

1016

10U

02i&7

000111
310111

3017

307e1
1373
311211

52TC

XSAVE,
MULli,

7001+)(SAVE-F!NI

DCA
DCA
DCA
TAD
DCA
JMP
MULLUP, SNL
JMP

10&5
1077
3077
7024

TAD
TAD
DCA

NOAOO
SUBL,O
AC!
AC!

TAD
TAD

SUBHI
AC!
ACl
AC2

eML RA~

10U

02270

UZ2

02271
lUi7i

10&4
107ft
7110

02214
1U27S
0il7ft
BiiH

301ft

DCA

1071

TAD

lIU3

1024
IUS
102&
10Z7
lUI

un
1030

0un

02H2

0000

1034

aun

1036

10]1

1038
1039

1040
1041
1042

1043
1044
104S
104ft

1041
104~

1049
1050
1051
til!2
1053
1054
1055
1056
1057
1058
105~

10&0

1061

1062

IUR
DCA

01330
02331

Bi301

auez

1035

CLL RAR

Ati!
AC]
MUI.Bt;N, TAD
FTfMP, IUR
ACl
!'TEMPi, DCA
FCNT,
SC
lSZ
JMP
MULL.UP
TAD
AC2
1011
DCA
SUBHI
3064
TAD
AC3
110111
DCA
SU8L.O
3a65
5ft54
JMP I
MUL.U
LINEL
:511213 ICERR, DCA
4651
JMS X )(ERMSG
1117
l1-11
SWAP
'4772' ABORT, JMS
TIF
6041
, .. I
JMP
531.
-{4i0,1
TAD
UTi
7600
377ft·
DCA
TAO
C6i! U
1370
DCA
3775'
7605
1052
TAO
ABORTX
745111
INA
JMP
5175'
7605
DCA
333J
EDTBLK
X7U7
usa
JMS I
(OTSn
1&00

0nB0

1031
1032

1010
:1071
1100
1010
3100
2101
5263

NOADD,

ACl
ACi
AC1
C·15
SC
MULBGN

U303
02311J4

0U0ft
0i!31i17
0U10
1112311

U312

02313
IIIIU4
0n15
0231ft
l1li317

1112320
BiUl
02322
023i3

un4

02325

0U2ft
02Ja7

02333
02334
02355
02336

02337
02340

all/TEMP,
0000 EOTBI.K, o
JMP
5775'
5761'
JMP
0000 OUTWRD, o
2075
5351

ISZ

JMP

7605
EOTBGN
OtOUNT

NOWIHT

10/30/72

•

PAGE 10-1

IMUL.TIPL.Y 1281T5 ANO 24 BITS
ISAVE 12 BIT THING
ItL.EAR REST OF At
IONI.Y TEST 12 BITS
IWAS BIT ON ?
INO, OON'T ADD
IAOO TO HIGH O~DE~ 2/3'5 Of AC

ISH 1FT At RIGHT

IBUMP SHIFT COUNTER
IANSWER IS ~OWER 2/3'S OF At

IZERO ~INE NUMBER
IPRINT MESSAGE
ISWAP ass BAtK
IWAIT FOR TTY DONE
ITO PREVENT 058 I FHOM BEING RUINED
IRE-sTOliE -t LOCATIONS

ItALLED VIA CHAIN ?(FROM EDIT)
INO, RETURN TO ass
IYES, SAVE EDITOR START
IREAD IN EDITOR
/THIS MUCH

IERROR
IGO START EDITOR
IOUTPUT WORO TO TEMP FILE
IANY ROOM 1
IYES

•

PALs-va

105/8 BASIC LOADEN

02]41
02H2
Bi!U3
1ai!344
02345
12]4b
U347
IUl50
IUSi
023Si!

10U
1064

1065
1066
U67
1168

1170
1011
U72
1073
U74
1075
107.

·0i353

nn
33Sb
ln6

]075
133.5

6i!il

3156

1078

0236"

46'i!

02361

1084
1085
1186

1087
101&
1089
1090
109,
109i!
1091
1094
18"

•

1IJ23113
1IJ2:564

usn

12]'.
lUlU

DCA 1
COF

JSI

U5b

1017

023U

DCA

TAD
DCA
TAD
NOWRIT , COF

6i!1ZIl

5736

1079

ISZ
TAO

Uft~

02154
02355
1112356
02357

1010
1081
U82
1183

DCA
JMS

4357
2n!

001/1111
001111/1
421111
lUI 0 III

211110111
5312

5757
2400
7400
leU

e23711
eU71
02312
llil73
02374
0un
U]76

62U

IIIU77

5561

OUPTR,

OUOUMP,

JMP J
0

PAGE 10-2

OwTEMP ISAVE WORO
OIJOUMP IwRITE SL.OCK
OUBLOK ISUMP BI.OCK NUMSEk
OU8LOK-1/RESET BUFFET POlt-TER
OUPTR
(-400
OCOUNT lAND COUNT
OWTfMP IRES TORE AC
10
OUPTR
IINTO BUFFER
OUPTR
OUTWRD

IIJ

JMS I
4210
0

10/50172

lC7607

IWRITE BLOCK
IWRITE BLOCK

OUBLOK, 21

JMP
IOERR
OUDUMP
JMP I
END·FINI+20"

4207
0461
71U

0i!11II
7605

1611/1
$

•

105/8 BASIC t..OADER

ABORT 2315
ABORTt.. 213&
ABORT)( 0052
0042
ACNT
ACI
007&
0011
ACe!
AC]
0100
ALLOCA 1400
ALL.OCS 14&0
ARAVST 2Ue
ASYLUP 0&14
BL.OCK lUI 4 &
BRTBGN un
0050
BRTS
BRTSS U24
BRTSIZ 1400
COFZ£A 2035
COII'0
1&64
CF
2033
CHKt..8t.. 2105
CI.EAAf' 20&1
CLIUNO 0106
CLllfII't..D 111105
CLRLUP 2044
0012
COOB
CODBGN 002&
COOCD' 1111II2!
CODF
IIIlZIn
COOlZl 111066
COOSZ2 0067
DATA"1 ili0
OATAII'2 Uii!6
DATLST 2SU
DHLUP 130&
OATMOY 1323
DATpTR 0030
OATTOP 1ll1IIi?
DC8
17&0
DLUZE 0051
DOARAV 1401
OONCLR 20&4
OOURV 14&1
EDTBGN 3012
EDT8LK 2333
fDTSIZ 1&00
END
ii!400
ERMSG 1112
2]03
FeNT
2200
FtNI
FREEF 2130
FREfHI 0053
FREEI.O 0054
FTEMP 2301
FTEMP2 2302
HIFL.O 0047

ICOUNT 0014
I NSt..OK 153~
%NPTR 1550
INWORD 1530
ICERR 231C!
L.Bt..Ft..O 1&54
L.EAD0 012&
t..FL.D
1051
L.INEH 0U12
L.INEL. 0103
L.ITRL. 25.2
L.OADER 0400
L.OADIT 221210
L.OCHI 0010
1.0CI.O 0071
1.0CTRH 0044
1.0CTRL 0045
L.ODI.UP 2025
1..6i21 0476
L. 76021 0411
MORCLR 2054
MOYFIN 2140
MOYSL 124&
MOYSTL 2015
MULBGN 2300
MUI..LUP 2263
MUL.12 2ii!!4
2241
M12
NASTAD 0022
NCHARS 0063
NLL.DOP 11/152
NOAOD 2212
NODATA IU00
NOFJMP 2032
NONL
1111
NOPATC 21433

NOREAO 1545
NORELC 1103
1257
NaSI.
NOT DeE 0450
NOWRIT U51
NOZERO 1lI124
NSTAOR 00i!1
oeOUNT 0015
ONLU 1437
OUSLOK i!l6!
OUOUMP i!lS7
OUPTR 2356
ourwRD 2336
OWTEMP 2333
PATL.ST 1344
PAlL.UP 0424
PRIliTSN 01Hl
PSN
0704
PI
1045

PAt..s .. va

10/30/72

P2
1062
P3
1137
PII
1154
1254
P5
P&
0632
064&
P1
P8
131i
P9
1314
REt..C IT 1600
RfLOOP 1&32
RfLOUT 17134
RESADR 0107
SACNT 0043
SARYST 2332
SASTAO 0024
Be
0101
SI'1.0
1161
SLFI.O 1162
SLITRt.. 2564
SL. IT 2 1200
!lLL.OOP 1144
SPACE 0117
SSTAOR 0023
STACK 0015
STACKA 1120
SlCD" 0020
STEMPF 0&43
STEMPS 25&0
STFLOM 2017
STMLUP 21&3&
STSTUF 1000
SUB
0131
SU81'11 1818&4
SUBI.O 0065
SYARST 1036
SYCNT 0041
SVSTOR 0&&0
SWAP
0461
SWPFLA 0514
SWPF1 0536
SWPF2 0545
SWPINF 0031
SWPRET 0511
SWPSUS 0515
0534
SwP1
SINP2
0547
TD8ESV 0472
TEMP
0055
TEMP2 0056
TEMP] [IH1l57
TIMES) 1442
TMOAT4 1332
TMSL.IT 1337
TOOBIG 074b

TTX

0753

•

PAGE 11
17110
TTY
VARCNT 00110
VERSON 0100
WORDl 00&0
WORD2 0061
WORD! 00&2
XERMSG 2251
XINT
2250
XLABEL 0104
XSAVE 2253
X10
0010
X11
0011
0013
X13
)(1&07 2252

•

ERRORS DETECTEO: 0
1096
~JNKS

GENERATEOI ~8

10ff7

•

ABOAT
ABDRTL.

939
321

ABDRTl(

4:51\1

ACNT
ACI
AC2
At3
ALLOCA
ALLOCS
ARAYaT
ASVL.UP
BL.OCK
BRTSGN

35.
63.

aRTS

BRTSB
BRTSn
CDFZER
CDF0
C'
CHKLBL.
CLIAR'
CL.REND
CL.RFL.D
CLRI,.UP
CDDB
CODBGN
CODCD'
COD'
CODIZI
CODSU
DATA',
DATA'2
DAlLIT
DATL-UP
DATHOV
OATPTR
DATTOP
DCB
DLUZE
DOARAY
DONCI.R
DOURY
!DTBGN
EDT8LK
EDTUZ
END
ERMSG

64.

44
36
64
65

1042'
93U
576
1049
423
364
3U
1012 lel3 1025
1011 lIII19 1020
1010 1029 1031

134

736

853

IU.
918

811
930

861
913
188
221
218

889
819
883

891

8CJi.

8cas

862

129
733
55Tt

178
780

785
787

84&
850

873
875

574

79111#

792

797

799

811

997
992
9&5. 1001
3U
271

1032'
505
313
219
413

637
314
222
426
494

674
725

931*
932
307
428
501

936

542
993

635

52ft

421
6051

41
U5
895!11

528

uJt 614
8U U59
lUi! U57'
au 1054
537 10141
4'18
:519
5n
.9

911
942
216
45

45.
374

125

375

316
441

319

976
41

1034

541

440
53l
974

1028

1036

851
857

527

532
969
973
4f1l.

1026

111

525

911
919
129

&44

161

598

724
126

n. us

•

980

3l1li

311

FTEMP
FTEfoIP2
HIFL,O

571

6ft
65.
SUI
247
.. fl.
600
141 flU
2i!U il9
40
391
83. Ull
4i
4U
985.
981
8U 983
8121 ca35
71t1.
152
a66
863
159
912.
884
818
12
1U
Tilt
11
819. n4
61
59.
3111
291
au lca
U.
ftl
55.
5ft
57
5&1
553
552
561.
554
,91 544
54U '66
56U 565

1006

FCNT
FINI
FREE'
f'REEHI
FREELO

caft1

312

53&
975

442
540
988

977

990

1f1l2

1084

493

qQS

994
99b

275
427
497
672
1030'
1031#

723

928

308
433

350
434

510

524

ICOUNT
IN6L.OK
INPTR
INIIlORD
IOERR
LBLFLD
LEAD0
LFLO
LINEH
LINEL
I. URI.

LOADER
LOAOH
LOCHI

LDCLD

LOCTRM
LOCTRL
LODLUP
L6221
L7&1110
MORCLR
MDVFIN
MOVSL
MOVSTL
MULBGN
MULI..UP
MUI.U
MlC!
NUTAO
NCHARS

NLLOOP
NOAOD
Noon A
NOFJMP
NONL
NDPUC
NOREAD
NOAEI.C
NOSl.
NOTDIE
NOWRIT
NO%ERO
NSTAOR
OCDUNT
ONLVl
OU8l.0K
OUOUMP
OUPTR
DUTWRO
owTEMP
PATLST
PAlLUP

PRNTSIII
PSN
P1
PC!
PC;
Pb

&87

&q8

141

c,q'l
&9'i

&95

737
702'

854

&9b
&8blll

&93
753
2q&
388

142
751
98& 11tlHIII 1082
7&h
b8

&C;

789

843.

57111

581
371
381
864*
149.
1501\1

882
91121

51S'

9041
1015
101U
&2'7
9'70
25'
52.

392.

85t-

8&9

.501 •

397.
'78

HIlt!

&e.
77#1

401
Cl2
93

387

59
38

7&3
1&9
720

71b

874

311
318
389

5b8

572

5&7

573

803
805

507

512

9i?3
92&

1039

772

'781
731
727

8'76

848
8""

lCIb

173
887.
'il7
940. 952
:;20
909
1029.
U31
.33
6'70 101119. 1038
991 1004.
26
429
&03
53
477
461
487

42i

101'7 1023.
215. 530
869.
US

394
104

423.
114.

&88

b99.

748
7&31
452
~24.
123
In.
1062 llUl.
299.
2C15
24.
25
b3
&2'
/)29.
b25
735

If/I65

843
1067
777

1064
ltdH

784

Hl5U 1063
571111
105

101*

11.5

a87.
283.

502
30.5

387#

~71
~78

401!l'

P3
P4

&9C:'

1.145.
458.
'ji? 1#

:HII/I

241/1

:J8c!

549

378
739

10&1

lf11.f:19

1066 1081*
1077. 1083
1074 10'7&.
10&0' 1075
10'70

804

80b

:Jf.ll

•

P1.
P8
P9
RELCn
R!LOOP
RELOUT
RESAOR
SACNT

SARyn

25U
551'
55U

llU

142.
1841

1e6

188

3Si
J7

8ge
365

USTAD
se
snD
SL'LD
SLITRL
SLITa
SLL.OOP
SPACE
asTADR

2'41
au

SUCK

22.

STACU

nco'

STEMP"
STEMPS
STI"LDM
STMI..UP
SUTUF
SUB
SUSHI
SU8LO
SVARST
sveNT
IYSTOR
SWAP
SWPFIoA
IWPFI
SWPF2
SWPINI'
SWPRU
SWPIUB
SWPI
SWP2

TDaESY

TEMP

455
446
181
4U
4SriJIII

101
23.
242
161
896
US,
11119
iU
531
541

34.
231
134
133
130
132
JU
1601
141
lit'
168
140
AU
i]8

559

TEMP2

TEMP3
TIMES]
TMDATA
TMSLIT
T0081G
TT)(

TTY
VARCNT

585

64S

361
15.
2U

649
28

443
1114
463. 465
4641 522
n
445
41h
SU
8110
21
Z61
1f4
.1

24
i5U
11
'1116,
26i'!
US
]041
54
55
223
3S
261
U6t
163.
131

111
91
181
US
167

In.

:lU

437

&46

•

683

651

1032
515
441

43.

485

370

254
241

243

3501¥
316
213
i!12

654
310
305

611
620

722
665

619

121

631

664

360
i8i!
159
178
154

41111

432

1.2

188

1811

191

lft5

169

357
263.

144
115
152

188(1

128
148

In.

1'4

1022
718

1035
Ul1S

1IIJ37

170

172

187

198

183
457
749
8CJ3

189
550

754
897

192
555
756
900

226
558
941

1042

118

1641
185

us.

47
i4S
564
852

783
950
4U
2U
&39
91'
481
491

48
266
6162
'120
49
519

628
535

)39

49&
317.
322.
29&
33.

•

583
584

ua.

110

112

111

252
U1
864

]ltil

399

623
871

743
880

182
450
745
881

174
41/19
667

410
676

184
4li
758

191
459
761

521
764

229
biZ
765

234
626
899

257
630
908

i33

260

617

269
629

219
641

481
658

482
6&3

484
679

490

818
801
311

802
.573

812'

819

384

180

5671

50irJ

SU,

l27

806

.500

19&

353

810

na-

35&

77ft

VERSOfll
WORDI
WORD2
WORD3
)(ERMSG

XINT
XLABEL
)(SAVE

X11
X13
UU'7
.,\.L05 &4
... L05&5
...1.111567
...1.0570
... L0571
... L0512
...1.111514
...1.057b
... L0517
...L0763
... L0'765
...1.076 •
... L0167
... l.en0
.,\.1.0'712
... L0'773
... L0774
... L0775
... L017f1
...1.1170
... Ll171
... L11 7 2
... Ll173
...1.11 74
... 1.11U
... Ll117
.,\.LllU
... L131.
... L1377
... 1..1564
... 1.. 156ft
... 1. 15&'7
... L157"
,£,L1574
.... 1.157&
,£,1..1517
... L.175~
... L.1755
... L.1754
... L17S':i
... L.l 7'5b

... L . .

17'

11112
1103
287
284
407
420
5~
1f/l0U 11/140
'ft~
9n 101115.
9U
n. 1 ill 286 301
987 10111 . . 100U
CJ12
224
191 10ft
107
382
38111
25&
381
41118
454
45b
4111b
S5b
Ui!
560
551
943
&81
6S9
&82
278
276
2111. 2&8
50b
509
511
5f1J4
&78
tt73
&75
.52
5112
901
2U ~41
982 1~0U 11/153 10'78
124
121
117
116
115
111
US
96

49.
501
5U

Ski

29ft!

291

40!:!

1118

921

922

924

925

228
383
458
b0b
948
281
518
680
902

230
39f:1
4f:10
608

249
398
480
btl

251
400
5lb

414
604
903
907

417
b36

905

643

253
4f1J2
545
&50

255
404
547
654

4111
&38
945

4iH
640
949

b42

4lJb

299
293
2'70
259
248
243
241
232

225
223
447
445
395

45:.5

387
362
354

'sElb
558

544

498

537

478

697
ft89
661
b4q
,,32
&10
Ul

b&8

056

817

81&
814
Rl,5

809
IH'J7

•

.. 1.1 U5
...1.1761
..I. 1TTIII
...1.1111
...1.1 Hi

755
758
746
744

~I.UT4

758

.. L2U5

946
944
9 iii
919

... 1.21'.
~LU6T

.. LU TIll
...1.2174
.. 1.2175
.. I.UU

... Li37 III
.,.1. 2 ]7 ,
...1.2373
..1.2 371

•

8&7
861

89111

11/168
11/147

U45

1I/IU
"9

IflllII'

•

105/8

B~SIC

RUNTIME SYSTEM
105/8 dASIC
I

RU~TIME

SYSTEM

IOEC·Sij·L8~SA.A·LA

ICOPYRIGHT,191l
I

IDIGITAL EQUIPMENT CORPORATION
IMAYNARD,MASSAC~USETTS 01754
I

IAUGUST

1~,

lq72

IR.G. BEAN

3400

IADO"!SS OF START OF 5 PAGE OVERLAy BUFFER
OVERLAY-340B

IASSEMdLY INSTRUCTIONS
IWHEN ASSEM8LED AND LOAOED VIA THE A8S. LOADER, THE
ICORE LAYOUT IS ~S FOLLOWS I
I

IBRTS IS AT 0-6177
IOVERLAY BASIC.AF IS AT 3400-4577 ~,I
IOVERLAY BASIC.SF U AT 12000-13117 oJ "110VERLAY BASIC.FF IS AT 134011l.14571()"~
I

ITO CREATE SAVE IMAGE FILES PRIOR TO RUNNING BASIC,
IASSEMSLE THIS SOURCE IN A liK OR MOR! MACHINE, THEN
IPERFORM THE FOLLOWING SEQUENCE OF 05/8 COMMANDS
I

I.R ABSLOR
I*BRTS$ C*SRTS,EAEOVH$ IF YOU WISH TO USE ON EAE MACHINE)
I.SAVE SYS.8RTS 0.~177 ~

~.SAVE SYSIBASIC.AF 3400-4577 ~

I.SAVE SYSIBASIC.SF

la000.13171~

I.SAVE SYSIBASIC,FF 1]400-14511 /
I

IT"£ BASIC RUN-TIME SYSTEM IS CONDITIONALIZED TO TAKE AOVANTAr.~

10F THE PDP-alE KE6/E EAE OPTION.

•

INORMALLY,THE SYSTEM IS ASSEMBLED SUCH THAT IT WILL RUN ON ANY
IPDP-8 OR POP-li. TO TAKE ADVANTAGE OF THE ADDITIONAL HARDWARE, SET
ITHE SWITCH EAEal IF T~E SYSTEM INCLuDeS A KE8/E EAE.
'/THE RESULTt~G BINARY IS THEN LOAO~O OVER THE NORMAL SYSTEM
IBINARY AS AN OV~RLAY USING TH~ ABS LOAOER,ANO THE MODIFIED SYSTEM
lIS SAVED. IN OTHER wOROS,TO CHEAT~ A NON-EAE SYSTtM,ASSEM~LE THIS
150UHC~ ONCE,WITM tAt-0, ANO PtRFOHM THE 5AVt OPtRATIONS AHOVE ON THE
IBINARY THAT RESULTS. TO CREATE AN EAE SYSTEM,ASSEMRLE THIS SOURCf
ITW!CE,ONC~ WITH EAE&0 A~D ONCE wITH EAE=l. USE T~E ARSOLUTF. LOAUER
ITO LDAO 80TH RESULTING 61NAHltS CTHE EAt 8INAijY MUST 8E LOADFU

•

IOS/8

BASIC RUNTIME SYSTEM

PA~8·V7

10124/72

•

PAGE 1-1

IA'TER THE NO~MA~ BINARY),THtN PERFORM THE SAVE
IOPERATIONS ON THE RtSU~T.
IUSE STANDARD FLOATING POINT PACKAGE
IASSEMBLE EAf OVERLAY

•

IOS/8

BASIC RUNTIME SYSTEM

PALS-VI

10/24/72

PAGE 2

IFNZRO fAE c
NOPUNCI-I
~

IPAGE 0 LOCATIONS

00003
00004
0111005
00006
1111107

10U
0000
nllll

tIlett

0000

lIee0

00ue
00011
1101112
00013

01110
111100
0000
0000
00110

0011114

01100

T£"'14, e

TEMPtS, I
NUMCOM, NUMCOl.
USECON, e
TEMPi, 0·
.1I1J
)(RI,

XR1,
XR2,
)(R],

XU,
)IRS,

011l0ts
0111016
101'11

1111100
0000
2713

ITEMPS USED BV CHAHACTER UNPACKING ROUTINES
ILINK TO 12 BIT COMPARE ROUTINE
IUSE CONSTANT GENERATED av ~USE" STATEMENT

BABI,

"
"
"o

o
o

IIND~X

IUSEO BY ABSOLATE VALUE COMPARING ROUTINE
IPOINTER fOR IN-CORE DATA LIST
IAT.RUNTIME,THIS LOCATION IS SPUN FOR RNO SE~O

DLPTR, o
SPINNR, 2713

0ei0

REGISTERS

.i0

ICOMPILER-INTERPRETER CONTROL BLOCK. LOCATIONS MARKED BY
IA .* ARE EXPECTED TO CONTAIN VALUES SUPPLIED BY THE COMPILER PRIOR
ITO THE BRT8 LOAD
00020
00021

uu COFlO,

80022
Blli!

0001/.1
0111
001110

00024
00025
001C!6
001C!7
10nl

•

e00l1

11III1I/U!I

11001
000"
0100

seSTNT,
ARSTHT,
STSTHT,
SASTRT,
CO,'S,
PSSTRT,
OLSTOP,
DLSTHT,

6211
III
III

"o
"
o
III
I/J

1**

1**
1*.
1*·
1**

1*·
1*.

'"
1*.

ICOF FOR 1/0 TABLE AND SYM60L TABLES
IPOINTER TO START OF SCALAR SYMBOL TABLE
IPOINTER TO START OF ARRAY SYMBOL TABLE-1
IPOINTER TO START OF STRING SYMBOL TABLEw1
IPOINTER TO START OF STRING ARRAY TABLE-,
ICDF FOR START OF PSEUDO-CODE
IPOINTER TO START OF PSEUDO COOE-l
IPOINTER TO TOP OF DATA LIST
IPOINTER TO BOTTOM OF INCORE DATA LIST-1

•

IOS/8 BASIC RUNTIME SYSTEM

PA~S.V7

10/24112

ISYSTEM REGISTERS

•

PAGE 3

IIF BIT 0 ON,TDS/E PG2 MOVED
IIF BIT 11 ON,PG 17&00 HAS BEEN MOVED
ILENGTH OF STRING IN SAC
ISUBSCRIPT 1 (MUST BE FOLLOWEO 8V S21)
ISUeSCRIPT 2 (MUST SE PRECEEDEO BV 511)
IMAP DF DRIVER PAGES
IMAP OF FILE BUFFERS

00031

0000

PSFLAG, 0

00032
000ll
00034
00035

0000
0000
0000
0000
0000

STRLiN,
51,
S2,
DMAP,
8MA',

121031

*37
IFLDATING POINT PACKAGE LOCATIONS, TME FOLLOWING 21 LOCATIONS ARE USED
IFOR VARIOUS PURPOSES BV TME FLOATING POINT PACKAGE. THOSE WITH DOUBLE
ILABELS ARE USED BY BRTS AS TEMPORARIES WHEN NOT CALLING TME PACKAGE.
ITH! SECOND TAG IS THE ONE USED BY TME FLOATING POINT PACKAGE,TME FIRST
lIS USED BY BRTS,

001131

121000

00040
00001

0000
0000

FF,
TEMPt,
AC0,
AC1,

01UJU

0000

00043

&201

0003~

UMP),

ACi,
TM,
TEMP4,
EXP,

00044

0000

00045

0000

00046

000121

00047

0000

0US0

0000

00051
00052
00053

0PJI/JPJ
lUI 00

00054

0215

00055
00056
01/J051
00060
000&1

75&3
7771
0024
00U
0000

000&2

0000

0215

ACIC,
HORD,
ACH,
LORD, .
ACLO,
AeL.
TEMPS,
OPIC,
TEMP&,
OPH,
TEMPJ,
OPL,
DSWn,
CHAR,
1<215,

IIIIIU,
MUS,

0
0
0
0
0

ISPECIAL MODE FLIP.FLOP

o
fII

6201

IFAC-ElCPONENT

III

IFAC-HIGH ORDER MANTISSA
IFAC-MANTISSA LOW

IIJ
IIJ

USED BY INPUT ROUTINE
ITERMINATOR OF LAST INPUT

"215

ISWITC~

JUS

1-0 FOR NO I.' AFTER CR ON INPUT

swna,

-i15
EFLG,
7777
FI.DW,
24
DADP,
12
TEMPle, o
TEMPH,

1-0 FOR NO CR/LF AFTER OUTPUT
10-E FORMAT
IFIELD WIDTH OF OUTPUT
I.OF PLACES AFTER DEC. PT
ILOC NEEDED 8Y FPP
IlOC NEEDED 8V FPP

•

105/8 8ASIC ~UNTIME SVSTEM

PALS-V7

10/24/72

PAGE 4

ISVSTEM REGISTERS USED OFTEN BY INTERPRETER CODE
00063
00064
000f15
000U
00067
00070
00071
11.10072

00QJ\'.!
QJ000
0000
0000
04Sii!
0000
0000
0000

00013
0QJ074
00075
00076

o QJ 10
01817
0077
QJt00

00077

0200
0077
0340
0317
0400

aUI0
SU0t
01H0i!

1110103
00104
00105
IBU'
00107

•

7700
7477
7740
7764

MDDESW,
INSAV,
LINEHI,
LINEL.O,
GSP,
STRMAX,
&TRCNT,
STRPTR,

0
0
{/I

GSTCK-l
{/I

0
0

10 FOR ARTMIMETIC MODE,l FOR STRING MOOF.

ICURRENT PSEUDO-INSTRUCTION BEING EXECUTED
IHI ORDER BITS OF LINE. CURRENTLY BEING EXECUTEU
ILOW ORDER BITS OF CURRENT LINE NUMBER
IPOINTER INTO GOSUd STACK
IMAXIMUM
OF CHARS ALLOwED IN CURRENT STRING
I- • OF CHARACTERS IN CURRENT STRING
IPOINTER TO CURRENT OPERAND STRING

10FT USED CONSTANTS
K0010, 0fJU
1<0017 , 0U7
K001'7, 0QJn
I<I!J UJ0,
100
USR,
k0210, 0i00
Kifil0.K0i!00
Ktl4~,
0340
KC!Il77 ,
U71
K0400, ute

K7 4121111,
1<7700,

K7477,
I<M41,
1'114,

74014

7100
7477
-40
-14

•

• '.

105/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/24/72

•

PAGE 5

10FT USED LINKS
0011l/l
00111
00112
00113

00114
00115

001U,
0121111

00U0

1034
U20
li53

0i!12

1&15

020&

1460

6525
0210

IIHIJ121

00122
00124

UIIJ0
2304
0537

IUIU5
00116

3023
2636

00U7
0121130

267&

00131

264&

00133
00134
00135
0013&
00137
00140
00141
00142

2373

00U3

0un

2U!/J

3371
6241

6256
6215
!/JUS

6135
4533
3126

0014]

2252

00144
00145

i!i!40

0014&

31!1l&

0014 7

2106
&566

00150
00151

00152

00153
00154
130155
00156

00157
C!l01U

00161

2135

ftftU
3302
2347
3503
53U

1230
0567
13771
0563

ILINK FOR TTY DRIVER HOOKS
PRINT, )CPRINT
IPOINTER TO STRING ACCUMULATOR
SACPTR, SAC-I
ILINK TO fILE BUFFER STUFFING ROUTINE
PUTeHL, PUTCH
IPOINTER TO START OF ILOOP
ILOOPL, ILOOP
ILINK TO UNSIGNEO 12-BIT INTEGER FIX
INTL,
UNSFIlC
IPOINTER TO PSEUDO-CODE CDF
CDFPSL, CDFPSU
IERROR ROUTINE DISPATCH
ERROR, ERRDIS
IROUTINE TO ISOLATE FUNCTION elTS FROM INST
'BITS, FBITGT
IROUTINE TO GET NEXT WORD FROM PSEUDO-CODE STR~AM
PWFECL, PWFECH
ILINK TO 12 BY 12 BIT MULTIPLY
MPVLNK, MPV
IROUTINE TO PUT CHAR IN TTY RING BUFFER
)CPUT,
)cPUTCH
ILINK TO FILE IDLE CHECK ROUTINE
FIDLE, IDLE
ILINK TO DEVICE DRIVER CALLING ROUTINE
DEveAL, DRCALL
IROUTINE TO WRITE 1 WaND IN FILE BUFFER
WRITFIII, WRITFL
ILINK TO 5TH INITIALIZER
5THINL, STHINI
ILINK TO LDH INITIALIZE
LDHINL, LDHINI
ISTORE HALF ROUTINE
8TH,
STHL
ILOAD HALF ROUTINE
LDH,
LOHL
IROUTINE TO SAVE FAC IN TEMPOARARY
FACSAL, FACUV
IROUTINE TO RESTORE FAC FROM TEMPORARV
HCREL, FACRES
ILINK TO FPP GET ROUTINE
'GETL, FFGET
ILINK TO FPP PUT ROUTINE
FPUTL, FFPUT
ILINK TO FPP NORMALIZE ROUTINE
fNORL, ,FNOR
IROUTINE TO ZERO FAC
FCLR,
'ACCLR
FNEGL, prFNEG
ILINK TO FPP NEGATE ROUTINE
ILINK TO FPP 'LOAT ROUTINE
'LOATL, FFLOAT
GErCHL, GETCH
ILINK FOR ASCII CHAR GET ROUTINE
EOFSEL, EOFSET
IROUTINE TO SET EOP BIT
ILINK FOR BYTE SwAP ROUTINE
SSWL,
BSWP
IROUTINE TO PACK ASCII,3 FOR 2
PACKL, PACKCH
IROUTINE TO INITAILIZE CHAR # TO
CNOCLL, CNOeL,R
ICHECK STATUS OF BUFFER POINTER
BUFCHL, BUFCHK
/ROUTINE TO DETERMINE FILE TyPE
FTVPL, FTVPf
CHRNOL, CHARNO
IROUTINE TO DETERMINE CHARATER NUMBER
IROUTINE TO FILL BUFFER WITH NEXT RECORD
NEXREL, NEXREC
IROUTINE TO PRINT CR,LF
CRLF,
CRLFR
IROUTINE USED BY FINPUT TO FtTCH CHARS DURING VALl FUNCTION
VALL", VALGET
ILINK TO FPP SPECIAL MODE PATCH
PATCHP, PATCH'
PUWAP, PSWAPIROUTINE TO SWAP HI CORE AND PAGE 17&00
IROUTINE TO RESET LDH TO FIELD 0
LDHRST, LRESET
STHRST, SRESET
IROUTINE TO RESET 5TH TO FIELD 0
ILINK FOR ~c HOOKS IN DRIVERS
"STOP1, FSTOPI
1******* THE ABOVE LINK MUST BE AT 1&1 *******

•

105/8 BASIC RVNTIME SYSTEM

11/0 TABLE POINTER ARE~~THIS BLOCK HOLDS ~OINTERS TO THE I/~ TA8~E

IENTRY FOR THE CURRENT FILE.THE POINTERS ARE CHANGED EVERY TIME AN
ISFN IS EXECUTED. A TAO I OFF ONE OF THE POINTERS WILL GET THE INFORMATION
INOTED IN THE COMMENT FOR THE CURRENT 110 DEVICE
ITHIS SLOCK IS INITIALIZED FOR TTY
1110162
00163
IIIUU

0000
6677
6700

1110165
1110166

6'01

1111167

6703
6704

11111117111

670i!

6705

00171
01172
1110173
1110174
0111175

6706
6707
6710

0017'

6712

00177

•

6711
6713

ENTNO,
WOROe,
WORDI,
WORDi,
WORD3,
WORD4,
WORD5,
WORDb,
WORD7,
WORDU,
WORDII,

TTYF
TTY'.1
TTy'.a
TTY'+]
TTY'.'
TTyF+S

TTYF+,
TTY'+7
TTy' .. e

TTYF+ll
WOR012, TTYF+12
WORDU, TTYF.13
WORD14, TTYF+14

IENTRY NUM8EH NOW IN AREA
IHEAeER WORD
IBUFFER ADDRESS
ICURRENT BLOCK IN 8UFFER
IRE AD, WRITE POINTER
IHANDLER ENTRY POINT
IFILE STARTING BLOCK
IACTUAL FILE LENGTH
I
DEVICE I (FILE MAXIMUM LENGTH)
I
NAME I (POSITION OF PRINT HEAD)

I
I
I
I

FILE
NAME

•

IOS/8

BASIC RUNTIME SVSTEM

PALS-V7

10/24/72

•

PAGE 7

IBRTS MAINLINE-THIS IS THE INTERPR~TER INSTRUCTION LOOP. IT IS IN TMIS
IlOOP THAT THE NEXT INSTRUCTION IS FETCHED,OECOOED,AND USED AS A OIS~ATCH
ITO THE PROPER EXECUTION ROUTINES FOR THAT INSTRUCTION.
0200

*2021

ISUBROUTINE PWFECH-RETURNS WITH NEXT WORD FROM PSEUDO-CODE STREAM IN At
01200
lUlU
10112

lllean

IU04

111105

1810.
0120T
0UU
11111211

5". PWFECH, JMP
ISZ JNTPC

J CO~PSU

llU

5Z1116
1286
U73
321116
l1li11
11e2

!i6ID0

JMP CDFPSU
TAD CDFPSU
TAO Kell0
OCA CDFPSU
CDII'PIU, START!
TAD I INTPC
CD' III
JMP I PW~ECH

1ST ART ONCE ONLV CODE IN TTY BUFFER
IBUMP PSEUDO-CODE PROGRAM COUNTER
INO-SKIPIJUST GET NEXT PSEUDO-CODE WORD
ISKIP MEANS WE HAVE TO INCREMENT PS~CODE FIELD
ISET 0' TO FIELD OF PSEUDO-CODE
IGET NEXT WORD OF CODE
ISET DATA FI£~O BACK TO INTERPRETER FIELD
/RETURN

1*******************.***.*
••••• *.********************* *******
IBRTS I';'~OO,.
1***************************.***.*****.*************** ****.**
lUll

0021]
00114

7]1IIE1

In.,

leau

U01
J!/JfJ4

IlIlJiU

4510

e0UT

711111111
10&4

IlllIIiUl!I
IIIlIIii!!
IIIEli2i

eeli]
I!101U

1!10i!2!i
I!IlIIii!.
eUi!T

IUle

e0ill
1!10i32
!/J0il3
00234
00235

IlOOP,

lin

710.
11110.
7104
1251
751110
5243
311140

RAL

TAD KMle

1063

7640
Silt
1040
12U

1110237
011240
0111241
00242

3240
4301
0240
1000
52li!

1110243
00244
0111245

U47
3245
111245

SCASt,

1IJ024&
210247

4&&1
SitU

JMSI,
JMPI,

0123fJ

CLA C~l
DCA "
JM8 PW'ECH
DCA tftlDID
JM8 't1II'fNT
NDP
TAD INlAY
AND K74l1le I
CLl RTl
RTl

II..OOPF,

SMA
JMP SCASE
DCA TEMP1
TAD MODESW
SlA CLA
JMP SMODE
TAD TEMPI
TAD JMSI
OCA ,+2
JMS UGPAE

•
Nap
JMP ILOOP
TAO JMPI
DCA .+1

IF~USH

IPUT FPP IN SI MODE
IGET NiXT PSEUDO-INSTRUCTION
ISAVE FOR LATER
ICAll TO TTV DRIVER
ISTRIP TO OPCODE BITS
IOPCOOE NOW IN BITS 8-11
ISUBTRACT 10
I IS OPCODE c 107
ICALL TO INSTRUCTION COMMO~ TO SMODE AND AMOOE
IYES-SAVE THE OFFSET
IWHICH MODE!
ISTRING MODE
IARITHMETIC MODE-GET OFFSET
IMAKE JMS TO FP PACKAGE ROUTINE
IPUT IN lINE
ISET UP ARGUMENT FROM SYM60L TABLE
IJMS TO THE FLOATING POINT PACKAGE ROUTINE
IFPP SOMETIMES RETURNS TO CALL+2
IDONE
IJUST DISPATCH TO ROUTINE CALLED FOR
IJUMP TO APPROPRIATE ROUTINE

JMS I 5EP1
JMP I 5EP1

IJMS USED FOR CALLS TO FPP BY AMOOE INST
IJMP USED TO CALL ROuTINES COMMON TO AMOOE AND SMODE

•

105/8

BASIC RUNTIME SYSTEM

00Z50

7170

•

KM10,

PALS-V7

10/24/72

PAGE

1~1

-10

•

10S/S

BASIC RUNTIME SYSTEM

PALS-V7

10/24/72

•

PAGE 8

IJUMP TABLE FOR AMOOE INSTRUCTIONS
IIHU51
1i!I1IIi!52

600f1l
6t17
5600

Ii 00

FFADD
IFAC~C(A)+FAC
OPtOD! 0
IFAC~FAC-C(A)
"'SUB
OPt ODE 1
FFMPY
IFAC~FAC*C(A)
OPCODE 2
FFDIV
IFAC~FAC/CCA)
OPtOD! 3
,FGET
IFAC~C(A)
OPCODE 4
FFPUT
IC(A)~FAC
OPt ODE 5
FFSU81
IFAC~t(A).FAC
OPCODE 6
F'DIV!
IFAC~C(A)/FAC
OPtOD! 7
IALL INSTRUCTIONS BEYOND THIS POINT ARE COMMON TO AMOOE AND SMODE
SEPt,
LSn
IS1~C(A)
OPCOOE lI/I
LSZI
ISi!~C(A)
OPtODE 11
'JOCI
IXI' TRUE,PC~t(PC,PC.l) OPCODE 12
JEO'l
III' EDF,~C~C(PC,PC+l)
OPCODE 13
LIN!!
ILINE NUMBER
OPtODE 14
ARRAY!
IARRAY INST
OPCOD! 15
ILOQPL
INOP
DPCODE 16
·OPERI
IOPERATE INST
OPCODE 17

104111

SHODf,

0111253
el!li54
111111255
21111256
00257
e0i!6Ii!I

6241
6256
541iUI
54U

011J2U

1400

1IJ1IIZ6i!
IIJII'JZU

00U4
00165

1110266
01i!1261
II IIJi! 7111

1110171
1110172
IIU13

00274
021275
210276

572i!

141111
I214Ii!1I11
0445

1140
lUI

0113

1306
327&
7t1i!l0

4705
0276

SOU,

TAD TEMPI
TAD JMSSI
DCA SOU
eLL
JMS I STFINL

IINST OFFSET
IBUILD JMP OFF STRING TABLE
IPUT IN LINE
ISTRING SCALAR TABLE
ISET UP ARGUMENT ADDRESS
ICALL STRING ROUTINE REQUESTED

IJUMP TABLE FOR SMODE INSTRUCTIONS
I A "1*" IN THE COMMENT MEANS THAT THAT OPCOOE IS NOT USED,SO WE
IUSE THE SLOT 'OR REGULAR STORAGE
00171

1i!10300
00301
00302
00303

003 Ii!I 4
00305
210306

iili!llll
i!0&l
2417
0302

3150
0477
1666

571i!17

INTPt,

SCONt
SCOMP
SRUD

•
SLOAD

SSTORE
STFINL, STFIND
JMSU, JMP I • +1

ISAC~SAC&C (AS)
IIF SAC .NE. CCAS),PC~PC.2
IC(AS)~OEVICE

1* INTERPRETER PC
ISAC~C (AS)

IC (ASL.SAC

1* LIN~ TO STRING FINDING ROUTINE

1* DISPATCH JUMP FOR SMOOE INSTRUCTIONS

1***************************************************** ******

lEND OF I-LOOP

1***************************************************** ******

!i
105/8 BASIC RUNTIME SYSTEM

IARGPRE-ROUTINE TO TRANSLATE OPERAND FI~LO INTO la alT POINTEH
IINTO SCALAR TABLE FOR USE IN FPP CALLS.
1110307
00310
00311
001U
00313
00314
00315
00316
00317

0un

000111
1064
0101
3040
1140
7104

1040
1021
1000
5707

ARGPNE,

INSAV
"TAO
AND
K1I377

DCA TEMPl
TAO TEMPt
CL.L. RAL.
TAO TfMPl
TAD SCSTRT

SCALDF, 1000
JMP I ARGPRE

IGET INSTRUCTION
ISTRIP TO OPERAND FIELD
ISAVE
1*2

IPTRt]
IMAKE 12 BIT AODR
IDF' TO SCALAR FIELD (COF INITIALIZED BY LOADER)
IRETURN

1111111111111111111111111111111111111111111111111111111111111
111111111111111 STRING ACCUMULATOR 1111111111111111111111111
1111111111111111111111111111111111111111111111111111111111111
136 LOCATIONS USED TO HOLD STRING OPERANDS AND RESULTS FOR STRING

IOPERATIONS. AT L.OAD TIME,IT IS FULL OF ONCE-ONLY STARTUP CODE

00Ul
10ni!
0UU

7404
7640
7000

0ml4
00125
00326
1101i!7
00331
00311
B0llZ
1110333
00334
00335
1110336
00337
00340

6046
11110111
611141
5)25
102111
37&3
1020
3764
4556
1317

00341

3011

00342
00143
00344
00345
t1IfI)346

1362
3012
13&0
3040

1IJ1/lJ47

00350

00351
00352
1IJ0353

•

STARTt,
SAC,
OSR
au CI.A
NOP
TLS
ISZ SPINNR
NOP
TSF
JMP .-]

lllt7

TAD tDnO

3757
1361

62tl
141 t
6201

3412

2040
534&

OVML,

DCA I PUL
TAD tDFIO
DCA I PSlL
JMS I PlSWAP-'
TAD SCALDF
DCA I L77"6
TAO PINFO
DCA )CRI
TAO POVUB
DCA )(Ri .
TAD MIIIIU84
DCA TEMPI
COF 10
TAD I lUll
tDI'

DCA I )(Ri
ISZ TEMP 1
JMP OVP4L

IA HLT PLACED HERE WILL ALLOW YOU TO STOP
IMACHINE BEFORE RUNTIME SYSTEM STARTS BY
ISETTING SWITCH REGISTER
ISET TTY FL.AG
ISPIN RANDOM NUMBER SEED
IWHILE WAITING FOR INITIALIZING TLS
IFLAG UP YEn
I=N2 ~ J) M fjJ K 5,/ S c.... D F 1¢
ISET UP COFS IN PSWAP
IRESTORE PAGE 17&00
IS~T PROG NOT RESTARTA6LE BXT
ITELL USR TO SAVE 1000-1777
IPOINTER TO INFO TABL.E IN 17&00 '- ,,~~~
IPOINTER TO BLOCK TABLE IN OVERLAY DRIVER

I)~~

IWE HAVE TO GET 4 BLOCK NUM8~R5
IGET BLOCK NUM8E~ FOR T~lS OVERLAV FROM INFO AHEA
IPUT,IN TABLE. IN OVERLAY DRIVEH
IDONE.?

INO

•

IOS/8

00354
110355
1110356
IIIUS7
0R1l6l!l
11103f.l
1103U

BASIC RUNTltolE SVSTEM
4556

JMS I PlSWAP
JMP I •• 1
START]

575&
115a

H46
7174
7&1117
153111

00363

U40

1103U

1245

1.174&,

H4&
/'4INUS4, .4

PIN'O,
POVTAB,
PSIL,
PS21.,

PALS .. V7

10124172

•

PAGE 9.1

IVES-FLUSH PAGE 17600 ICONTINUE THE INITIALIZING COD~ IN

INTE~MEOIATE

TftR17
ARITHA-!
P1CDF
PICD"

111111111111111111111111111111111111111111111111111111111111
111111111111111111111111111111111111111111111111111111111111

IROUTINE TO ZERO FAt

lun
IU"
1111161
IU18
IU7l

lal72

lila
7601
]844
314ft

311145

57U

FACCLIl, I
1.7610,

7601

DCA UP
DCA LORD
DCA HORD
JMP I FACtLR

ICLA
IZtRO EXPONENT

IZERO LOW MANTISSA
IZERO HIGH MANTISSA

ICARRIAGE RETURN FUNCTION (KNOWN ONLY TO COMPILER FOR TERMINATING
IPRINT STATEMENTS)
1037J
1110174
11111375
10376
aU17

111111
455111

sst)
4553
5513

CRf'UNC, I
JHS I f'TVPL
JMP I II.OOPL
JMS I eFtL'
JMP I ILDDPL

lIS FILE NUMERIC?
IVES·WE DON'T WANT TO OUTPUT CRLF

100 AS WE ARE TOLD
INEXT INST

IWFFER

IOS/8 BASIC RUNTIME SYSTEM

PALS-V7

10/i!4/72

PAGE

IJUMP ON CONDITION
00400
00401
08482
00403
08404
00405
0040&

10&4

FJOCl,

TAD INSAV
AND KU17
SNA
JMP GOSUB
TAD FSTOPI
DCA .+1

IGET JUMP INSTRUCTION
IMASK OfF JUMP CONDITION
I IS IT GOSUB?
IYES.PUSH PC ON STACK THEN JUMP
18ASE TAO FOR SUlLO OF TAO INSTRUCTION
IPUT IN LINE
IGET PROPER SKIP
IPUT IN LINE
IGET HIGH ORDER FAC
ISKIP INSTRUCTION
ICONDITION TRUE-JUMP
ICONOITION FALSE-OON'T JUMP,8UT BUMP PC
IOONE

00414

0074
7450
5215
13&3
3206
0406
3211
1045
0411
5221
45i!0
5511

00415
01UU
00411
00420

1515
4642
1644
4&42

GOSUS,

0I!l4! 1

4520
3U4

3515
5513

SUCJMP, JMS I PWFECI..
DCA I INTPCL
TAO INIAV
AND 1<0340
eLL RTR
TAD CDFINI..
DCA 1 CDFPSL
JMP I II..OOPL

IGET WORD FOLLOWING JUMP INS,
ISTORE AS NEW PC
IGET JUMP INSTRUCTION
IMASK OFF DESTINATION FIELD
ISI..IDE OyER
IMAKE A CoF INSTRUCTION
lAND SET NEW PC INSTRUCTION FIELD
INEXT INSTUCTIoN

7554

K75S4,

I*****THIS CoNST CAN NOT BE MOYEO, THERE
IMUST BE A CONSTANT BEFORE THE SKIP TABLE, AND
ITHER MUST BE A TAD OF THAT CONSTANT ON THIS PAGE

00407
00410
00411
10412

00413

00422
00423
00424
01!1425
08426
80427
00430
00431

1064

0100

7112
1341

• ,+2
DCA
TAD HORD
JFUL.,

•JMP SUCJMP
JMS I PWFECL
JMP I ILOOPI..
TAO I CDFPSL
JMS I PUSMGL
TAD I INTPCL
JMS I PUSHGL

7554

IGET CURRENT PC DATA FIELD
IPUSH ON GOSUB STACK
IGET CURRENT PC
IPUSH ON GOSUB STACK
IFALLS INTO UNCONDITIONAL JUMP BECAUSE A
IGOSUB IS MERELY A PUSH FOLLOWED BY A JUMP

ISKIP TA8LE USED TO HOLD TESTS FOR YARIOUS CONDITIONS
1/10432
00433
01/)434

00435
0043&

00437
00440
00441

7&00
7700
7U0
7740
7710

7650
7750
5643

00442
00443

2326

00444

0302

•

21542

K7&00,

1&00
SMA eLA
SZA CLA
SMA 52A CLA
SPA CLA
SNA CLA
SPA SNA eLA
JMP I JFOAL

PUSHGL., PUSI'IG
JFORI., JPOA
INTPCL, INTPC

IUNCONDITIONAL etLA'
IJPA
IJNA
IJPA JNA
IJMA
IJZA
IJMA JZA
IFOALOUP JUMP ROUTINE

•

IOS/8

BASIC RUNTIME SYSTEM

PALS-V7

10/24/72

•

PAGE 11

IJUMP ON END OF FILE
00445
10446
10441
18451
08451
01!1452

45iJ
15ft)
11 12
TU0
521]
SiC! 1

111114 5J
01/1454
10455
08456
1.457
11461

II 8 1/1
1111/1
000111
.11.
"I.
11111

....
'e4U1

" e.
"
••

.... ]
'U64

11111
II'.
1111.

114..
1.067
.1.7111

1111111
Hili
1"1

"'471
"472

.,11
" ••

11465

11473

....

11111474
11111475
1110476

11l1li1
1111011

11/J0111

JEOFI,

JMS I FIDU
TAD I WORDS
eLL RTR
SNL eLA
JMP JfAIL
JMP SUCJMP

ISEE IF FILE OPEN
11ST WORD OF 1/0 TABLE ENTRV
IGET EOF 8IT IN LINK
If OF?
INO-DON'T JUMP
IJUMP

11111111111I111I11 GOSUB STACKIIIIIIIIIIIIIIIIIIIIIIIIIIII
GtTCK, I
1ST ART OF GOSUB STACK
I

1/1

"
••o"
"

I
I
I
III

"
I

o
III
iii

GaBTOP, I

ITOP OF GOSUB STACK

•

IOS/8 BASIC RUNTIME SYSTEM

PALe-V1

10/24/72

PAGE 12

ISTRING ACCUMULATOR STORE

005i5
1110516

5lZ7
1071
1070
7740
451&
5314

SSTORE, DCA I STHtDF
TAD SACPTR
tLL lAC
JMS I lDHINl
JMS I lDMRST
TAD STRPTR
ClL lAC
JMS I STHINl
DCA STRCNT
TAD STRlEN
SNA
JMP SSTU
DCA TEMPI
SSlODP, JMS I lDH
JMS I 8TH
ISZ STRCNT
ISZ TEMPS
SKP
JMP SSTElI
TAO $TRCNT
TAO 8TRMAI(
SMA au ClA
Sl,
JMa I !RROR
JMP SlLOOP

00527
00530

173&

SITU,

3331

00477
00500
00501
00502
00503
00504
00505
00506

011JS07
00510
00511
00512

00513
00514
1110515
00516
00517
005i0
00521

0052i!
00523
00524

373~

1111
7101

45i7
4557
1072

7101

45i6
3071
1032
7450

5327
3040
4531
4530

a071
204101
7410

00531.
00532

101531

00533
00534
00515

7041
347i
5511

00536

2603

•

1071

TEMP24,

TAO I STHCDF
DCA ,.1

,
cu

TAD &TReNT

DCA I STRPTR

JMP I IlOOPL

IS10RE COF FOR OPERAND IN STH
ISET AC TO ADOR OF SAC
IINITIAlIZE LOH TO PULL CHARS FROM SAC
ISAC IS IN FIELD 0
IPOINTER INTO OPERAND
lAC POINTS TO OPERAND
IINITIAlIZE 5TH TO STORE IN QPERANO
IZERO COUNT
ISTRING L.ENGTH
lIS IT NULL STHINGl
IVES~WE DON'T HAVE TO STORE ANYTHING-JUST ZERO COUNT
ISERVES AS CHARACTER COUNTER
IGET CHAR ~ROM SAC
ISTORE IN OPERAND STRING
IBUMP OPERAND COUNT
ISAC ALL MOVED YETl
INO-CHECK IF THERE'S ROOM FOR THE REST
/VES-DONE
I ' OF CHARS IN STRING SO FAR
ICOMPARE TO MAXIMUM SIZE
IMAXIMUM SIZE REACHED YET?
IVES-STRING TOO LONG OR UNDEFINED
INO-MOVE NEXT CHAR
IOF fOR STRING
IPUT IN LINE
IDF TO STRING FIELD
IDONE-GET ,
CH4RS MOVED
INEGATE (A~L. COUNTS ARE NEGATIVE
lAND STORE AS COUNT WORD FOR OPERAND STRING
ITHAT'S ALL., FOlKS&

STHCD', STHDF

•

IOS/8

SASIC RUNTIME SYSTEM

PAI.S-V7

10/24/72

•

PAGE 13

ICAI.I. TO DEVICE DRIVER FOR FILE 1/0. ASSUMES ARGS HAVE BEEN SET UP
00531

0000

00500

3351

005Al

U01
1564

11"'542
PJCI)S43

00544

00545

3352

3153

00546
00547
1111550
00551

4131
ea00

00552
00553

01!100
111000

1567

3331

00554
00555

5356

00556
00551
00560

7710
4516
4516

ORCAI.L,

OCA OIU~Gl
CDFINL, CDF
TAD I WORO!
DCA ORARGi
TAO I WORoa
DCA 0lURG3
TAO I WORD4
-DCA TEMPi4
JMS I TEMPi4
DIURG 1,
DRur;2,
DRura,

5737

DRUM,

DE,
EF,

J/IIP ORERR
JMP I DRCALI.

IFUNCTION WORD INTO DRIVER CALL
IOF TO CURRENT FIELD
IGET BUFFER ADORE FROM 110 TA8LE ENTRY
IPUT IN DRIVER CALL
IGET BLOCK NUM8ER FROM 1/0 TA8LE
IPUT IN DRIVER CALL
IGET DRIVER ENTRY
ISAVE
ICAI.L DRIVER
IFUNCTION CONTROL WORD
ISUFFER ADDRESS
IBLOCK 1\1
IDEVICE ERROR
IALLS WELL

SPA CI.A
J/IIS I ERROR
J/IIS I ERROR

IDETERMINE ERROR TYPE
IFATAL
ILOGICAL EOF

o
o

ICALL TO INTERPRETER EXITING ROUTINE
00561
005fJi

00563
1!IIa564

4510
SUI

1231
3064

00565

57 ..

005 . .

1471

F8TOPN, J/IIS I PRINT
JMP ,-1
FSTOPI, TAO K7S54.
DCA INUV
JfilP I ,+1
FUNCSI

ION NORMAL EXITS,WE MUST EMPTY RING BUFFER
IFUST
IFAKE A CALL TO BASIC,FF FUNCTION 6
ICAI.I. OVERLAY

IROUTINE TO RESET LD~ ~IELD TO 0
005&7
1/J0570

00571
00572
00573

0000
1341
37H
57..,
i!647

LRESET, 0
TAD CDFINL
DCA I LDHOCK
J/IIP I LRESET
LDHOCK, 1.0MOF

ICHANGE TO CDF QJ

IUSE FUNCTION-TAKES WORD FOLLOWING CALL AND STUFFS IT IN USECON FOR
IUSE A BUFFER POINTER FOR USER SUBROUTINE
00574

0000

451e

00575
00576

31!10&

00577

5774

USE,

JMS I PWFECL
DCA USfCON
JMP I IJSE

IGtT NEXT wORD FROM PSEUDO-CODE STREAM
1ST ORE IN PAGE 0 SLOT
IRE TURN

•

IOS/8 BASIC

~UNTIME

SYSTEM

PAL8-V7

10/24/72

PAGE 14

PAGE

0U0

IARRAV INSTRUCTIONS
IARRAV INSTRUCTIONS wOR~ BY FINDING THE ADDRESS OF THE ARGUM~NT fROM THE ARRAY 5
ITA8LE,THEN CALLING THE APPQOPRIATE FLOATING POIN PACKAGE ROUTINE,
00&00
00601
00.02
00603
00604

ARRAYI, TAO MOOESw
,.40
Su eLA
5324
JMP SARRAY

00U5

711/1&
tlU2
3011

00606
oIII 607
rUJ610

00&'1
1/10612

00&13

00.14
00.15
0061&
00."
00U0
00U1

1063

10&4

0342

0&10
1411

3001
1411

3301
1411
3042

1033

006ii

lI!IU
11114 i!
4405

001123

45U

00U4

00&25
00U.

3050
1411
7450

01!1627

5240

00.]0

3371

00631
00Ui
00U3
006]4
00US
00636

\lI0U7
00ft40

10]4
3015

1311
4405

5223
111134
4 Silt

1100

00Ul
lUlUi
00U]
00644

1033
3047

00645

JI/I50
1047
7104

00646

00U7
00650
00651

7004
1050

3051

1050

1110652

7004

011l.S]

00654

3042
7100

00655
0065&

1051

•

1047

TAD INSAV
AND K1II031
CLL RTL
TAO ARSTRT
DCA lit!
AUBUF, •
TAD I )CRt
DCA TEMPi!
TAO I

)CRt

DCA AD~C
TAO I )CR1
DCA TEMPJ
TAD 51
DCA BABS
TAD TEMP]
JMS I NUMCOM
SU,
JMS I ERROR
DCA TEMP6
TAD I )CRt
SNA
/ . JMP AOCALC
/ DCA TEMP3e
/
TAD 52
DCA 8A8S
TAD TEMP30
JMS I NUMCDM
JMP 5U
I
TAD S2
JMS I ~PYl.NK
AoeALe, eL.1.
TAD 51
DCA TEMPS
RAL
T.lD TEMP&
DCA TE!1P&
TAD TEMPS
CL.l. HAL
DCA lEMP7
TAO TEMPt.
RAL
DCA TEMPl
CLL.
TAO TEMPS
TAO TEMP7

IWHICH MODE?
ISMOOE
IGET ARRAY INSTRUCTION
IMASK OFF ARRAY OPERAND
IMULTIPLY BY 4 (ENTRy LENGTH)
IMAKE POINTER INTO ARRAY TABLE
IPOINTS TO ARRAY FOR THIS OPERATION
ICHANG~ OF TO ARRAY TAaLE FIELD (SET BY 5TART)
IGET POINTER TO FIRST ARRAy ELEMENT
ISAVE FOR LATER
IGET OF FOR VARIABLE
IPUT IN LINE AT END OF ROUTINE
IGET ARRAY DIM~NSION 1
ISAVE
IGET SUBSCRIPT 1
ISET UP li BIT COMPARE
10IMENSION 1 +1
151 TOO BIG.,
ly~s·sueSCRIPT OUT OF BOUNDS ERROR
ICLEAR TEMPORARY
IGET DIMENSION 2
lIS SECOND DIMENSION 0.,(ARRAY UNIDIMENSIONAL)
IYES-DON'T CHECK S2 FOR OUT OF BOUNDS
ISAVE 011'12+1
IGET SUBSCRIPT 2
ISAVE 12 BIT COMPARE
152 8IGGER THAN 011'121
IYfS
IMULTIPLY 011'11+1 BY 52
112 8Y 12 MULTIPL.Y ROUTINE

-----

ILORD OF 51+(DIM1+1)*S2
ISAVE
ICARRY TO 8IT 11
IHQRO OF 51+(OIM1+l)*52
./5AVE
ILORD OF Sl+(OIM1+l)*S~
1*2

ILORO OF [51+(011'11+1)*52)*2
IHORO OF 51+(011'11+1)*52
1*2

IHORO OF [SI+(OIMt+t)*S2]*2
IL.ORO OF 51+(011'11+1)
ILORD OF (51+(0IMl+t)*52]

•

105/8 BASIC

00657
fl066e
210.61
210662
00&63
00.U
00665
011l6fJ6
00661
00670
00.71
00.n
180673
180674
00675
00616
00671
2101018
2121101
00702
18070]
0071/)4
007185
00106
0071117
00110
0111111
e01u
180713

RUNTIME SYSTEM
DCA TEMP7
RAl
TAD TEMP~
TAO TEMP]
DCA TEMP~
Cll
TAD TEMP7
TAD TEMPi!
DCA ICRt

3051

7004
1050
1042

l0!)0
7U0
USI
1I1Jln

lUI
111104

RAL

1050
71 Ill'
70U

1387
3301
1064

0lf/l0
71U
70U

7eu
134&

]311

70et
3037

18707

AOFC,

•
•
NOP

TAD XRl

1I1Jll

0711
1000
5513

TAD TEMP.
CLL RTL
RAL
TAO ADft
DCA ADft
TAO INUV
AND 1(0340
CLl RTR
RTR
RAR
TAD JMPU
DCA ARJMP
lAC
DCA FF

ARJMP,

JMP I ILOOPL

PALS-V7

10/24172

•

PAGE lt1-1

IlORD OF 3*[51+(0IM1+1)*52]
ICARRY TO ~IT 11
IHDRO Of [51+(0IMl+1)*52)*2
IHORD DF 51+(0IMl+1,*52
IHORD OF l*(SI+(0IMl+1)*S2]
IINDEX TO ELEMENT
lAC POINTS TO CORRECT ARRAY ELEMENT
,SAVE PDINTER
'CARRY TO BIT 11
ICOM8I~E TO MAKE TOTAL • OF FIELD OVERLAPS
ISlIDE OVERLAPS TO FIELD BITS (&-8)
IADD ANY CHANGE IN DATA FIELD TO COF
IPUT ABSOLUTE COF IN LINE
IGET ARRAY INSTRUCTION AGAIN
,MASK OFF ARRAY OPCODE
'SLIDE TO 8ITS 9-11
lAND USE AS INDEX INTO JUMP TABLE
IPUT JUMP IN LINE OF CODE
IPUT FPP IN "SPECIAL MODE"
ICHANGE OF TO OF OF ARRAY ElEMNT
lAC POINTS TO ARRAY ELEMENT
IPERFORM THE REQUIRED OPERATION
IFPP SOMETIMES RETURNS TO CALL+a
IOONf

IARRAV JUMP TABLE
180114
180115
018116
0111717
00720
018121
00122
0eTil

5400
611100
6117
5&01/1

5722
fti!41
6256
54U

AJT,

FFSUBI
FFADD
FFSUB
FFMPY
HOI V

FFGET
FPUTLL, FFPUT
FFDIVl

IFACaA(Sl.S2)-FAC
IFAC.FAC+A(SI,S2)
IFAC.FAC-ACS1,S2)
IFAC.'AC*A(Sl,S2)
,FAC.'AC/ACS1,S2)
IFAC.C(A(Sl,S2)
IC(A(SI,S2).FAC
IFAC.A(Sl,S2)/FAC

OPCOOE I!I
OPCODE 1
DPCOilE 2
OPCOOE 3
OPCOOE 4
OPCOOE 5
OPCODE eOPCOOE 7

105/8 BASIC RUNTIME SYSTEM

PA~8-V7

10/24/72

PAbE

ISTRING ARRAY DISPATCH
00724
00725
00726
00727
00130
110731
01!IT ]2
0073]
00734
011735

10U
0100

SARRAV, TAD INSAV
AND k0340

7112
HIli
HHII

133&
3335
Hi0
4743
0735

SAD,

CLi. RTR
RTR
UR
TAD JMPlSA
DCA SAD
STL
JMS I STFILI<

•

IGET INSTHUCTION
IISOLATE ARRAY OPCODE
lAND SLIDE IT OVER FOR AN OFFSET
IBUII.D A JUMP TO STRING INSTRCUTION
lAND PUT IN LINE
ITELL SFIND TO USE ARRA¥ TABLE
ISET UP ARGUMENT ADDRESS
IEXECUTE INSTRCUTION

ISTRING ARRAV JUMP TABLE
IUSED WHEN ARRAYI CALLED IN SMODE
I A "1*" IN THE COMMENT MEANS THAT OPCOOE IS UNDEFINED ANO THE SI.OT
lIN THE TABLES IS USED FOR NORMAL STORAGE
00736

5737

00737

2200
i!061

01140
1/11741
11742
1/11743

110744
00745
00746

•

JMPISA, JMP I .+1
stONl
SCOMP

2417
!IIn7

1ft 66
3150
1477

4114

K0nT,

SREAD
37

nIFIL.IC, STFIND
SL.OAD
JMPI2,

SSTORE
JMS I AJT

IDISPATCH JUMP FOR STRING ARRAY INSTRUCTIONS
ISAC.SAC&C(AS(Sl»
ISKIP IF SAC-CeASeS!»)
lAS (S1) ... DEVICE

,*1* LINK TO STRING FINDING ROUTINE
/SAC."C CAl CSt»)

IC(ASCS1)).SAC

1* DISPATCH JUMP FOR ARRAY INST

•

10S/S BASIC RUNTIME SYSTEM

PAL8-V7

10/21.1172

•

PAGE

IROUTINE TO PUT ONE \11010/0 IN FII.E BUFFER IN FIELD
00747
00750
00751
00752
00753
IU7S4
018755
00756
018757
1/118760
1818161
180162
1/101U
00U4
01/1,ft5
1IJ1IJ7ftft

0000
3050
452]

1IJ1IJ1fs1
00110

0040
1731

6CPUT,

1566

1051
l1U
76410
6211

10518
3451
62181

un
nUl

CO'I/I,

1361

35&:5
5141
1<41/1,
1<1137,

1/1

DCA TE"'P~
JMS I f'IOLt
TAD I WORD]
DCA TEMP7
TAD ENT~O
SlA CLA
CD' 10
TAO TEMP.
DCA I TEMP?
CDF
TAD I wORD0
AND 1<1737
TAD K40
DCA I wOROi)
JMP I eCPUT

ISAVE At
ICHECK IF FILE OPEN
IG~T READ/WRIT~ POINTER
ISAVE
IGET FILE #
IIF TTV,BUFFER FIELD IS 0
IGET WORD TO STORE AGAIN
ISTORE IT IN BUFFER
IHEADER WORD
ITURN OFF BLOCK WRITTEN eIT
ITURN IT ON AGAIN

IRE TURN

1137

IROUTINE TO SET STH OF TO 1/1
00111
1IJ011Z
00113
00114
1110115

!/JlIJrllllJ

13611

3115
5771

ift03

TEMPle,
SREUT, III
TAO tDFIII
DCA I STHDKK
JHP ! &RESET
STHDKK, STHOF

•

IOS/8 BASIC RUNTIME SYSTEM

PAl8~Vl

10/24112

PAGE"

PAGE

1000

ITEltTYPE ORIVING ROUTINE
Ii! ENTRY POINTS-XPUTCH PUTS A CHARCTEQ IN fHE RING BUFFER
I
XPRINT TYPES A CHARACTER IF POSSI8LE
I
AND RETURNS TO CALL+l IF THERE
I
ARE MORE CHARCTERS IN THE 8UFFER,CALL+~
I
IF THE BUFFER IS EMPTY
ITHE IDEA IS THE PLACE CALLS TO XPRINT AT VARIOUS POINTS IN THE INTER.
IPRETER AND THUS KEEP THE TTY BUSY WITHOUT WASTING THE TIME WAITING FOR
ITHE TTV FLAG. THE SUCCESS OF THIS SCHEME DEPENDS HEAYIlY ON THE NUMBER
lAND PLACEMENT OF THE CALLS TO XPRINT.
0000

01000
01001
0l10i!
01003

4234

01004

7000

01005
01006

01007
01010

IU 0 11
01012
111t3

3040
2017

1650
5202
11111.10
JUS

iiiS

IU.I14

?l1l0
til0

IU15

3i30

01016
0u11
01020

1225
lill
7750
5600
lZi1

0Uil
0Ui2
01023
0Ui!4
111025
0ui6
01021
01110

li25
5600

un BUFIN,
107111

ta7e

0050
1!Ie40

0U1U
0U1l!
11033

6641
7575

0112134
1211035
01036
01037
01040
01041

0000
6031

IU!2I42
~H043

•

01f2144

XPUTCH, 0
DCA CHR$AV
XPUTl, ISZ SPINNR
JMS XPRINT
Nap
TAO BeNT
SNA tLA
JMP XPUTI
PUTCHR, TAO CHRSAV
DCA I BUFIN
liZ 8Uf'IN
CLA tLL CMA
TAO BCNT
DCA BeNT
TAD BUFIN
TAD HBEND
SPA INA CI.A
JM' I .PUTCH
TAD BSTRTA
DCA 8UPIN
JMfII I XPUTCH

7110

8STRT
BUFDUT, BITRT
BITATA, BSTRT

8CNT,
51
tHRSAVITEMPl
MSENO, .. BEND
HeTRLC, -in
M50,

ICPRINT,

1077
U34
1232
7650

IGfT BUFFER INPUT POINTER
ISUBTRACT ADDR OF END OF BUFFER
IPAST EON OF BUFFER?
INO-MfTURN
IYES-RESET INPUT POINTER TO BEGINNING OF BUFFER
IRETURN
IPOINTtR TO NEXT SLOT FOR BUFFER INPUT
IPOINTER TO NEXT CHARACTER TO BE PRINTED
IADDR OF START OF TTY BUfFER
I' OF AYAILABLE SLOTS IN BUFFER (40 IN]TIALLY)
I-AOOR OF ~ND OF RING BUFFER

IIJ

KRS

TAO HeTRle
SNA eLA

Noce,

IGET THE NUMBER OF AVAILABLE SLOTS
THERE ANY?
INO-TRY TO RPINT 1 AND FREE UP A SPACE
IGET CHARACTER AGAIN
IPUT CHARAtTER IN RING BUFF!R
IBUMP BUFfER POINTER OF INPUT
I-I IN AC
IDECREMENT AVAILABLE SLOT COUNT
I ARE

.50

KSf
JMP Note
TAO 1<0200

5244

55"1
1i30

ISAVE THE CHARACTER
ISPIN RANDOM' SEED
1ST ART A CHAR IF POSSI8LE

JMP I FSTOPl

TAD seNT

lIS KEYBOARD FLAG UP?
INO-NO CHANCE FOR A CTRL/C
IFORtE PARA]TY BIT
IYES-GET THE CHAR IN KEYBOARD aUfFE~
115 IT CTRL/C

IYeS-ABORT TO EDITOR
OF AVAILABLE SLOTS IN SUFfER

•

105/8 BASIC

01045
IZIU46

01047
11050
I2IU51
1211052

RUNTIME SYSTEM

165121
52U

TAD M50
SNA CLA
JMP RECP;!

6041

TSF

JMP I .PRINT
TAD I 8UFOUT

5634
1626

P,lLS-V7

10/24172

•

PAGE 17-1

lIS BUFFER EMPTY?
IYES-RETURN TO CALL+2
INO-TTY FLAG UP YET?
INO-GO ABOUT YOUR 6USINESS
IGET NEXT CHARACTER

1***************************************************** ************:

IN.B. BECAUSE OF T~E ABOVE INSTRuCTION, THE OF MUST 8E SET TO THE
IINTERPRETER FJELD W~ENEYER XPRINT IS CALLED, WATCH YOUR HOOK PLACEMENT!

I US]
I2IU54
I2IU55
0US.
'Jl0!S?
IU60
121112161
11061
Iun
IUU
0U65

liZ.
lUI
1750
5264
12i7
522.
2230
5U4

0U"IU6?

ii]4
5U4

61146
73I21B

22i6

1****************************************************************1

TLS
CLA CLio
raz BUFOUT
TAD BUfOUT
TAD MUND
SPA INA CLA
JMP BOUTRS
TAD BSTRTA
DCA BU'OUT
SOUTRS, liZ BCNT
JMP I )CPRINT
RECPi,

ISZ XPRINT
JMP I XPIUNT

ITYPE IT

18UMP BUFFER OUTPUT POINTER
IGET OUTPUT POINTER
ISUBTRACT END OF BUFfER
lIS OUTPUT POINTER PAST E~07
INO-'REE UP A SPOT
IYEI-REIET POINTER TO BEGINNING
IINCREMENT (I OF FREE SLOTS eWE JUST PRINTED ONE)
IRETURN
IBUMP RETURN
IRE TURN TO CALL+a FOR EMPTY BUFFER

ITELUYP! RING BU.f'U
IU0TIII

oU71

lun
0un
0111114

01015

111076

1111071
tIJl1lll0
01101
0111112

0&103
01104
01105

11106
01 Ul7
01110
01111
lUlU
1111113

01114
0ll S5
01116

01117
01120
allil

011i2

01100
I/JIIIIIB

l/JIel/J
Il/JIa

0000
1/J10121
121000
1/J01/J0
0000
0000
000111
0000
12I1!J00
00011l
0000
11111100
0000
000121

BSTRT.

121

"
"0
I

0
0

0
III

0
0
0

""0
0

0
0

121000
0111021
0000
0000
0000

0000

000121
001210
0000

1ST ART OF BUFfER

iii

121
ill

14rIl CHARACTERS LONG

•

1
IOS/8 BASIC

01123
011i!4
01U5
0112&
01121
01130
01131
01132
01133
01134

01135
1/11136
01131

•

1/11/100
0000
0000
0000
1/11/11/11/1
1/1000
0000
1/1000
01/100
0000
0000
0000
0000

RlJNTIME SYSTEM

PALS .. V7

10n4172

PAGE 17-2

"
0
0

1/1

1/1
0
1/1
1/1

0
0

BEND,

1/1
1/1

lEND OF TTV BUFFER

•

105/8 BASIC RUNTIME SYSTEM

•

IUNE NUMBERS
01140
01141
01142
01143
01144
01145
01146
01141
01150

10&4
3065

45i0
30&6
5513
1351
311164

5150
1412

LINEl,

TAD INSAV
DCA LINEHI
JMS I PWF'ECL
DCA LINELO
TRHOOK, JMP I ILODPL
TAD I<Ci40
DCA INUV
JMP I ,.1
FUNC21

IGET INSTRUCTION
ISAVE
IGET WORD fOLLOWING LINE • INST
ISAVE AS LOW ORDER LINE •
IRE TURN TO I-LOOP
IIF TRACE IS ON,FAKE CALL
ITO FUNC2, U2
IDISPATCH TO TRACE FUNCTION

111111111111111111111111111111111111111111111111111111111I1
1111111111 INTERMEDIATE TELETYPE BUFFER 11111I1111111111111
11111111111111111111111111111111111111111111111111111111111

IUSED TO BUFFER OUTPUT ~ROM FPP BEFORE wE PUT IT
lIN BASIC FORMAT FOR TRANSPORTATION TO THE TTV RING

IBUFFER,FILLED WITH INITIALIZATION CODE WHEN ENTERED
0USI

U40

13115Z
01153
01154
01155
01156
131151

.5515
UZ6
3715
4531
na0

BU6fII

1!I1161
0116Z
01163
011&4
1'II1U,5
1111 U6
01167
01110
01111
111111 Z
0111]
01114
01115
rulTf1

1111171

I<C240, 240
INTERB,

un su,.n, TAD COFPS

3774

lI1JiB

FPPTM5,

3773

1020
3171

FPPTM4,

nil'll

371ft
1030
301&
5172
6 fill fa

0610
1101
010i!
Zl11
0317

FPPTM3,
FPPTM2,
AUBOL,
STOFL,

DCA I COFPSL
TAD PSSTRT
DCA I INTPCK
JMS I FCLR
TAD CDFIO
OCA I STOFl
TAD COflO
DCA I HABOL
TAD COF 10
DCA I SCAlOl
TAD COFIO
DCA I OLeOfL
TAD OLSTRT
OCA OLPTR
JMP I .+1
SURU
ATABDF
STDF

FPPTM1,
INTP(.;I(, INTPC
DLCDFl, OLCOF
SCALDL, SCALDF

ISTOPPER TO MARK BEGINNING OF SUFFER

ICDI!' FOR PSEUDO-CODE "$.(1
K. ~ 1>
IPUT IN-LINE TO ILOOP
1ST ART OF PSEUDO-CODE
IPUT INTO PC
IZERO FAC
,
ICDF FOR SYMBOL TABLE FIELD 6~1I ~ ~( ~'/>
IPUT IN LINE FOR STRING FUNCTIONS
ICOF FOR SYMBOL TABLES
IPUT IN LINE FOR ARRAV CALCULATIONS
ICOF FOR SCALAR TASlE
IPUT IN LINE FOR ARGPRE
IDATA FIELD FOR DATA LIST
100 A RESTORE IN INCORE DATA LIST

ICONTINUE INITAI~IZATION CODE IN TTY INPUT SUFFER

IFlOATING POINT TEMPORARV

11111111111111111111111111111111111111111111111111111111111

IOS/8

BASIC RUNTIME SYSTEM

PALS-V7

1~124172

PAGE 19

PAGE

1200
IOPE~HE

CLASS INSTRUCTIONS

OPERI,

01203
01204

10&4
0014
1205
3204
1204

TAD INSAII
AND K0011
TAD JMPB
DCA .+1

IGeT OPERATE INSTRUCTION
IMASK OFF OPERATE OP('OOE
I~UILD JUMP OFF OPERATE JUMPTA8LE
ISTORE THE JUMP IN LINE
IDISPATCH TO PROPER OPERATE ~OUTINE

0U05

5606

JMPU,

JMP I .·1

IJUMP TO OPERATE ROUTINE CALLED FOR

01200
01201
01211'2

IOPERATE JUMP TAI5LE
211206
01207
elJl iH 0

1542
1&00
2000

01211

lii&

01212
01213
01214
01i!l5
01216
21121 T
01220
21li!21
01222

&550
2512

0Ul3

1111224
0li!25

FUNClI
SPFUNC
SFN
FNEGI
RETRNI
RESTOR
LSUfHI
LSU821

1403

1413
0020
3105
3200
24&0
1471
14&&
1473
1472

MSPACE, 20
READI
WRITEI
SWRITE
FUNCSI
FUNC4!
FUNClI
f'UNClI

ICALL RESIDENT FUNCTION OPCOiJE !II
ISPECIAL fUNCTIONS
OPCOOE 1
ISET FILE NUMBER
OPCOOE 2
INEGATE FAe.
OPCOOE 3
IGOSUB RETURN
OPCOOE 4
IRESTORE DEVICE
OPCOOE 5
ILOAD St FROM FAC
OPCOOE 6
ILOAO S2 FROM FAC
OPCODE 7
ITHIS OPCOOE NOT OEFINEO,SO WE PUT A CONST HERE
IREAD DEVICE
OPCOOE 11
IWRITE DEVICE
OPCOOE 12
ISTAING WRITE
OPCODE 13
ICALL FILE FUNCTION
OPCOOE 14
ICALL USER FUNCTION
OPCDDE 15
ICALL FUNCTIONS 1
OPtODE 1&
ICALL FUNCTIONS i!
OPCODE 17

I
012c&
01227

•

4540
5513

IFLOATING NEGATE
FNEGI, JMS I FNEGL
JMP I ILOOPL

ICALL NEGATE ROUTINE
IRE TURN TO ILOOP

•

IOS/8

BASIC RUNTIME SYSTEM

PA~8-V7

10/24/72

•

PAGE 2~

IROUTINE TO SWAP PG 17600 WITH N7400 OR N7&00 (WHICHEVER THE CASE MAY BE)
IWHERE N IS THt HIGH CORE FIELD

J,~rACJ~ lUll
\Y""''-

II 1211

lun

lIun
e1234
11235

lun

IU31

'HUe

11241
IU4i
IUU

eu..
eU45

11146
IU41

eU5e
IU51
e1252

eun
e1l54

eti5S

eU5.
1I1Z51

0ellll

125]
]141
HUt
7100

PSWAP,

TAD PSFLAG

SMA CLA
TAD K200
TAD 1<1410

PICDF,

lllU

6211

us KK7UI

DCA TEMPI

1017
1103
101117
141112
Uf1l7

III

,aCD',

-----f1torNlER 'TO l1li0&·-*tttT~T-e1+·---··

IGfT RESIDENT STATUS FLAG
~ III
IWHJCH HJ-CORE PAGE IS IT IN?
11600
11400

DCA TEMPi
.4 IPOINTER TO HIGH CORE ~"'~.,
HLT cor IO~ 'II10F TO HJ CORE
.. UD I nMpi
IGET WORD FROM HI CORE
DCA TEMP4
/SAVE IT

CD' U

un PICD'l, ~~~ If)l:-I?~~<lJ(>> 10' TO HI CORE AGAIN
lUll

]411

il01
7611

211111
!iZ41

"01
5611

IGET WORD 'ROM 176011

,f.

11 t

"Z'./

DCA I TEMPi!

IPUT 17600 WORD IN HI CORE

TAD TE"'P4
DCA I TEMPt
liZ TEMPi!
7600
liZ TEMPl

IGfT SAVED HJ CORE WORD
lAND PUT IN 17600
IBUMP HJ CORE POINTER
ICLA
IBUMP 17600 POINTER ANO CHECK FOR DONE
INO DONE-HOVE NEXT WORD

PZCD'I, CO, 10
"11
un

3440

Pif~

JMP PIC"OF

COil
JMP J PSUP

IDONi-RETURN

fr'.- 'i'::

105/8 BASIC RUNTIME SYSTEM

ISUBHOUTINE ASCOUT
IROUTINE CALLED BY WHITE WIT~ THE NUMBER TO ~E WRITTEN IN FAC,
ICAL~S THE FPP TO OUTPUT THE DIGITS TO AN INTERMEDIATE 6UFFEW,THEN
IMASSA~ES THAT BUFfER TO PUT OUTPUT IN BASIC FORMAT.
012&0
012&1
01262
012&3
012&4
012&5
012&6
012&1
01i!70
01271
01272
01273

01274
01275
01276
01271
01300
1211301
0131212
01303
01304
01305
0130&
01307
01310

01311
01312

01313
01314
01315
01316
01317
01320

01321
01322
01323
01324

000121
4532
1045
76050

5302
477&
4771
2514
1045
7740
S107
4533
477&
4771
2175
1045

7710
5307
1073
3060
1216
3057
7001
305&
4533
1372
312113
4773
7240
1013
3061
3007
3042
3043
7240
1061
3061

0132&
01327

14&1
1374
7450

01330

5342

01331

1216
14521

01325

01332
01333
01334

01335
01336

•

ASCOUT, 0
JMS I FACSAL
TAD ~ORD
SNA eLA
JMP HORMT
JMS I ABSVl.L
JMS I f-SUBl.K
ACJQCJ
TAO HORO

SMA SZA Cl.A
JMP E20P10
JMS I fACREl.
JMS I ABSVL.l.
JMS I FSUBLK
AP0001
TAD 1"10RD
SPA ClA
JMP E20P10
FFORMT, TAD 1(0010
DCA OADP
TAD MSPACE
DCA FL.DW
lAC
E20P10, DCA EFL.G
JMS I f'ACREL.
TAD INTRtI
DCA )(R]
JMS I fFCUTL.
CL.A CMA
TAO XR]
DCA TEMPUJ
DCA TEMP2
DCA TEMP]
QCA TEMP4
CFt. TCI-!, CL.A eMA
TAO lEMPH'I
DCA TEMP10
TAD I TEMP10
TAO M2b0
SNA
JMP ZR

5660

2007
1375
Hl50

ZROF~,

TAO MSPACE
SNA
JMP I ASCOUT
ISZ TEMP2
TAO MOECPT
SNA CLA

ISAVE THE FAC
IGET HI MANTISSA
lIS NUMBER 0?
IYES~USE f FORMAT
IABS(X)
IA~S(X).q9qCJQq

IGET HI MANTISSA OF RESULT
lIS A8S(X).QQQQ99?
IYES-USE E FORHAT FOR OUTPUT
IGET X AGAIN
lABS (X)
I ASS ()() •• "~:Hll001
115 ABS(X) •• 00~0011

INO-USE E FORMAT
18 PL.ACES AFTER DEC PT
11& COLUMNS IN FIELD WIDTH
ISET FL.AG FOR F FO~MAT
ISET FORMAT FLAG
IGET X BACK IN FAC
IADOR OF INTERMEDIATE BUFFER-l
IXR3 POINTS TO INTERMEOIAT~ dUFFER
IUSE FPP TO PUT ASCII NUMBER IN INTERMEDIATE RUFFER
1-1 IN At
IAOOR OF LF IN INTER BUFFER-1
ITEMPt0 POINTS TO CR IN SUFFER
ICLEAR CHARACTER COUNT
ICLEAR ZERO REPLACE FLAG
ICLEAR DECIMAL POINT SEEN FLAG
1-1 IN AC

ISACK UP POINTER TO NEXT C~AR
IGET CHAR FROM BUFFER
'~"011

lIS IT 11(311?
IYeS-REPLACE WlTH CR IF ZERO FL.AG NOT SET
lOR AL.TMOOE IF IN E FORMAT AND DEePT HAS BEEN SEEN.
lIS IT " II?

IYES-PONE-PREPARE THE NUMBER FOR TYPING
INO-BUMP CMAW COUNT
lIS IT "."?

•

IOS/8

BASIC RUNTIME SYSTEM

01337

53b3

01340

2042
5122

01341

1&H34i
01343
01344
01345
01346
01347

01350
01351
01352
01353
01354
eU55
0135.
01357
0U60
0136t

1I/I5b

ZR,

5352
1043
7650
5334

1101
53&1
1043
7640

5334
1042
7640
5334

1054
5461

IYES-GET fORMAT FLAG
IARE WE IN E FORMAT?
INO-PROCEED TO CHECK ZERO WEPLACE F~AG

lRCONT, TAD TEMP4
SU CLA
JMP lRO"
TAO TEMP3
SlA CLA
JMP ZROFF
eRR!p, TAD K215
DCA I TEMPl0
JMP CFETCH

I/IllU
01364

2043
7240
1007
7640
nZi!
SJU

COUNCK, ISZ TEMP.
CLA CMA
TAD TEMPi!
alA CLA

0U71
0Urf!

6117

lUlU
01374
1/J13U
011111

II filii 0

FSUBLK, FFSU8
INTRtt, INTERS-l
Ff'OUTL, HOUT

75221

7762
23&6

JMP CFETCH
JMP CRREP

Mi60,

21-1

TAO EFLG
SZA CLA
JI1P ZNCONT
TAD TEMP4
SNA CLA
JMP lROFF
TAD 1<0377
JMP CRREP.1

S322

1151

•

PA~E

IYeS-IF COUNT.0.REP~ACE WITH CR
INO-TURN OF ZE~O REPLACE
INEXT

013U

01165
0UII'
01161
01310

10/24/72

JMP COUNCK
TEMP!
JMP CFETCH
ISZ

7U0

PALS-V7

-I.

-i60

MDECPT,
ABSVI.L, ASSVAL

IHAS DECIMAL POINT BEEN SEEN YeT?
INO-THIS lERO STAYS, SO COUNT IT
IYES-THIS IS THE ZERO BEFORE THE POINT
ISO REPLACE IT WITH AN ALTMOOE
IHAS A PERIOD BEEN SEEN YET?
IYES-THIS ZERO STAYS
IGET lERO REPLACE 'LAG
lIS IT ON'
IYES-OON'T REPLACE ZEROES
INO-REPLACE THIS ZERO ~ITH A CR
IYES-REPLACE 0 WITH CR
INEXT CHAR
15ET DECIMAL POINT SEEN FLAG
l-l·IN AC
IGET CHAR COUNT
lIS IT 1 (. WAS FIRST COUNTED CHAR)?
INO-DON'T REPLACE • WITH CR
IYES-REPLACE , WITH CR

•

105/8

8ASIC RUNTIME SYSTEM

PAl.B-V1

10/24/72

PAGE 22

PAGE

1401'1

ILOAI) SUSSCRIPT
IU4f/l0
01401
11J1402
01403
01404
01405
11.11406
01401

4S32
4620
4534
4532
4514
3033
4533

5513

JMS 1 FACSAl.
JMS I AAGPRL
JMS I FGfTL'
JMS I FAtSAL
LSU81I,
JMS I INTl.
DCA 51
JMS I FAtR~1.
JMP I ILooPL
LSi I,

IPRESERVE FAt
IGET ARG POINTER INTO At
ILOAD ARG INTO FAt (SKIPS fIIEXT INST ON R!::TURN'
ISAVE THE fAt
IGfT INT(FAC)
ISET Rf.SULT AS SUIHiCRIPT
IRESTORE FAt
INEXT INSTRtUTION

ILOAD SUBSCRIPT 2
01410
01411

4532
4620

01413
01414
01415
tl1416
01417
014i0

4532
4514
3034

0141i

•

4534

4533
5513

03e7

JMS I FAtSAI.
JMS I ARGPRL
JMS I FGETL
LSUBI!I, JMS I FACSAL
JMS I INTI.

LS21,

DCA 52

JMS I FAtREL
JMP I ILOoPL

ARGPRL, ARGPRE

IPRESERVE FAt
IGET ARG PolfIITER INTO At
ILOAD ARG INTO FAC (SKIPS NEXT INST ON RETURN)
ISAvE THE FAt
IGET IIIIT(FAt)
ISET RESULT AS SUBSCRIPT 2
IR~STORE THE FAt
IBACK TO 11.001'

•

105/8

BASIC ~UNTIME SYSTEM

PAl.8-V7

1121/24172

•

PAGE 23

IJMP DISPATCH FOR FUNCI CAL.LS

01421

JMSI4,

4E1i2

JMS I .+1

ICALL FO~ CANN~O FUNCTION SET 1

IJUMP TABLE FOR fUNCTION CAl.L
01422
1211423
014Z4
01425
01426
014i!1
01430
014]1
01432
01433

42121121
412153
41c0
31.177
340121
4i!63
3Ui
1.1000
4543
36U

FFATN
FFCOS
FFEltP
EXPON
INT
FFLOG
SGN
f'FSIN
RNO
FROOT

IFUNCTION SITS- 121
I
1
I
I
I
I

2
3

I
I

111

IJUMP FOR FUNCi! DISPATCH
01434

4615

JMSI5,

JMS I ,+1

IJMS OFF THE SET 2 TABLE

IJUMP TABLE FOR FUNCTION SET i!
01435
1/J14]6
01437
01440
0141.11
01442
1111443
01444
011.11.15
01446
01447

3407
3400
3600
3414
44121121
426&

ASC
CHR

DATE

IFUNCTION BITS- 0

LEN
I
3
POS
I
4
SfG
I
5
STR
I
6
VAL
I
1
ERRORR
I
10
IERRORH MUST BE FUNCTION .10,ELSE "ERROPC'I MUST CHANGE
TRACE
I
11
TPRINT
I
Ii!
/TPRINT MUST BE ua OR TRHOOK+l MUST CHANGE

142i!

3Ui!
412113

41300

3677

IDISPATCH FOR FUNC5 CALLS
01450

5651

JMPfIL, JMP I ,+1

ICALL FORR FILE MANIPULATING FUNCTIONS

IJUMP TASLE f'OM FILE f'UNCTIONS
160121 01
340S·~

4001 .....
40121121 ....
1.112104 ,.
4003-

37",.

CHAIN
CLOSE
OPENAF
OPENAV
OPENNF
OPENNV
FSTOP

IFUNCTION BITS- 121
I

I
I
I

lINT. EXIT

4
5
b

IROUTIIIi~TOCALL ERROQ HOUTINE BY FAKING A FUNC2 CALL TO FU~CTION #to
12100121

73121121

ERROlS, 0

CLA

•

105/8 BASIC RUNTIME

13Z7

IfAKe A FUNt CALL TO FUNC2 '10

3064
Si7e!

IERRQR CALL FOR USER FUNCTIONS-USER FUNCTION SHOULO "JMS I tAL"
lA,

•

JMS

ERROIS

•

105/8 BASIC RUNTI~E SYSTEM

PALS-V7

10/21.1172

•

PAGE 24

•

IFUNCTION OVERLAY DRIVER
014U
01 4 U
01470
1IIl471

1II14n
0147]

0l47/J
01475
014Tft
01471

01500
01501
eU0Z
1!1151U
1/11504

01505
0150.
01507
01510

01SU
01512
01513

01514
01515
0151.
lUSH
01'5i0
01521
0152l

4510
52&&

7011Jl
7001
7001
3040
U01
1040

7041

FUNC4I, JMS I PRINT
JMIit , .. I
lAC
FUNCS!, lAC
FUNCi!I, lAC
FUNClI, DCA TEMPt
COF
TAD TEMPI

CIA

TAD OVRLAV
SNA CLA
JMP OVONE
TAD TEMPI
TAD OAUDI

t330

7650
5316
1040

tJ2.
3007

DCA n:MPi
TAD I TEMP2

1407

4n7

DCA OVADD
JMS I L7U7

0500
1400

m50m
34m0

3312

tSu
451ft
1040

OVADU,
DE,

3330
1040

OVDNE,

1335
3322

4517

IU5U

1522
3324

01524
015Z5

5513

JMS I ERROR
TAD TEMPt
DCA OVRLAY
TAD TEMP1
TAD JMSTAD
OCA ,.2
JMS I FaITS

,
,

fUJUMP, DCA ,.1

1524

01526 1531
015277607
0153111 0000

JMP I ILOOPL

IPURGE TTV RING BUFFER
IBEFORE CALLING USER FUNCTION
ILOOK FOR OVERLAY FLAG.3
ILOOK FOR OVERLAV FLAG-a
ILOOK FOR OVERLAY FLAG-.
ILOOK FOR OVERLAY FLAG-I/J
10F TO THIS FIELD
IGET OVERLAY • AGAIN
INEGAH.
ICOMPARE AGAINST OVERLAY FLAG
lIS THE ONE WE WANT ALREADV RESIDENT?
IYES .. JUST JUMP TO FUNCTION
INO·GET NUM8ER OF OVERALY DESIRED
IUSE AS OFFSET TO SUlLO STARTING BLOCK TAD
IPOINTS TO PROPER STARING BLOCK ,
IGET STARTING BLOCK FOR THIS OVERLAY
IPUT IN DRIVER CALL
ICALL SYSTEM HANDLER
IOVERLAY 3400-4&00
ISTARTING 8LOCK # OF OVERLAV

1110 ERROR

ICHANGE RESIDENT FLAG
IFUNCTION ,
IBUILD A TAD OF THE PROPER DISPATCH JMS
IPUT IN LINE
IGET # OF FUNCTION DESIRED
IBUILD JUMP OFF JUMP TABLE
IPUT JUMP IN LINE
IGO TO DESIRED FUNCTION
IOONE

OAUIH, ARUMA
L7607,

7607

OVRLAY, 0

1# OF CURRENTLY RESIDENT OVERLAY
10-ARITHMETIC,1-STRING,2-FILE,3-USER

IOVERLAV TABLE-CONTAINS STARTING BLOCK ~S~M OVERLAYS
IINITIALIZED BY LOADER+ ~ Ckd.L
I
(!!:' 'J.~ I r1211531
01532
01533
01534

1533
1534

ARITHA,
STRNGA, •
FILEFA, •
USRA,

1211535

1136

JMSTAD, TAO I TADTA8

11111536

01537

1421
1434

0151.1121

14S0

TAOTAS, JMSI4
JMSI5
JMPFIL

1531
1532

ISTARTING BLOCK OF ARITHMETIC OVERLAV
ISTARTING BLOCK OF STRING OVERLAY
ISTARTING BLOCK OF FILE OVERLAY
ISTARTING BLOCK OF USER 'UNCTIONS

(

,t
IOS/8 BASIC RUNTIME SYSTEM
01541

•

1557

JM5U5ft

•

105/8 BASIC RUNTIME SYSTEM

PALS-V7

1~/24112

•

PAGE 2S

ICALL FOR RESIDENT FUNCTION
1211542
1211543
1!ll544

4511
1345
5323

FUNC3I, JMS I FBITS
TAO JMSI1
JMP FUJUMP

01545

4746

JMSI7,

IISOLATE FUNCTION *
IMAKE A JUMP OFF JUMP TABLE
IPUT THE JUMP IN LINE AND EWECUTE IT

JMS I ,.1

IJUMP TABLE FOR RESIDENT FUNCTIONS
23&&

1211553

1757
1770

01554

IllS 7 4

ABSVAL
COMMA
CRFUNC
ILOOPF
TAB
"NT
USE

1551

*1557

U5U
01541

2517

0155121

0373

IU551
I2Il 55&!

01551

4160

01560
015 ..
1211562
01563
015&4
01565

0i4121
024121

1111566
015111

121240
0240
121240

0240
0i!40

0i!41!1

01570

121248
lUSH 0248
1211572· 0240

01513
01514
01575
1211516
01517

Bi40
0240

0240
024r1l

0240

IFUNCTION BITS- 0
I
I
I
I
I

1
2
3

1****N,8.****

ITHIS TABLE CANNOT BE MOVED""

IJUMP DISPATCH FOR USER ROUTINES
JMSUSR, JMS I ,.1
IJUMP TABLE FOR USER FUNCTIONS
ILOOPF
IUSER FUNCTION
ILDOPF
I
I
ILOOP'
ILOOPF
I
ILOOPF
I
ILOOP'
I
ILOOPF
I
ILOOPF
I
ILOOP'
I
ILOOPF
I
ILOOPF
I
lLOOPF
I
ILOOPF
I
ILOOPF
I
ILOOPF
I
ILOOPF
I

1
2
3
4
5
6

7
8
9
1121
11
1i!

13
14

15
16

•

105/8 SASIC RUNTIME SVSTEM

PAI.8-V7

10/24172

PAGE at>

PAGE

1600

ISPECIAL FUNCTIONS
12I1fJI2II2I
121161211
1111&02
121161213

4517

1211&1214

5&05

121214
3203
1603

SPFUNC, JMS I FBITS
TAD JMPU,
DCA ,+1

IISOLATE fUNCTIOIli 8ITS
IMAKE A JUMP OFF SPECIAL FUNCTION UHLE
IPUT IN LINE

JMPI6,

IJUMP TO SPECIAL FUNCTION ROUTINE

JMP I ,+1

ISPECIAL FUNCTION JUMP TABLE
01 60S

01606

01&07
~.11 6 10

1211611
1211612
1211613
01"14

•

212154
2342
0561
24121121
201211
6556
2324
2323

SETF
FRANOM
FSTOPN
SRL.IST
CSFN
RoLIST
AMODE
SSMODE

ISET FSW!TCH
IRANDOMIZE
ILEAVE INTERPRETER
ISTRING READ FROM DATA LIST
ISET FIL.E • TO TTV
IREAD DATA LIST
ISWITCH TO A MODE
ISWITCH TO S MODE

•

0
1
;2

3
4

r;
b

•

105/8 BASIC RUNTIME

SYSTE~

PAl8-V1

10/24/72

•

PAGE

ISU8~OUTINE
INUM~ER OUT

UNSFIX-UNSIGNEO ·INTEGER FIX HOUTINt. FIXS A POSITIVF 12 HIT
OF FAt MANTlbSA AND LEAVES RESULT IN AC.HE5UlT IS AN UNSIGN~O,
ItC! titT INTEGER
01'15
01616

01617
01620
01621
01623
01624

;,:

V~n

ILoO"" MANTISSA
IHI SIT OF LO MANTISSA TO LINK

SPA

7200
1045
7510

UNSFlx, 0
CDF 0
TAD LORD
eLL RAL
CLA
TAD HOBO

IHIGH MANTISSA
lIS NUMBER POSITIVE?
4516 ,.."
JMS I ERROR
INo-eOOlll
01625 1004
RAL
ISH 1FT THE SIGN SIT OUT AND THE MANTISSA OVER,
01626 J.U.S
pea HORD _
II1AIUlUi lUITS JJ.F MANlJSSA ANU BINARY P.1J.W.. BEWRt Ht.t,..Et
01627 1044
TAO e:R'lS
IGET EXPONENT
01630 7750
SPA SNA eLA
lIS X~l?
01Ul itl5
_
--rMP..... ~SFU
mwFIlC IT TO 0'" _
_
01632 1044-TAD EXP
IYES-GIT EX~ENT
Q!~11~'~33!34~71~41~tf5~~J'~ZC~----~sTN~~OA~MU1~4________'/S~f~-T~8~I~N~A~RY~P~O~I~NlT_A~TLJlJ2~______________________~__------~--~'
01'le!

"
~.

0000
6201
1046
1104

"i. ..

01635

01636

JMP UNSOUT

524'
7~

SMA

3044

bCi EXP

,bONE ACRElon

IYES

INO-IS til TOO BIG?

~'~1~643~1~4~~~~t20~,____~J~M~S';I,~E~R~R~PUR~__~/;yE~·S~~~~~~____~____....____....______...............______.................___________

01600
1211641
01&4i
01643

7110

01&45

INO~STORE COUNT

TAD HORD
eLL RAR
lSZ EXP

IHI MANTISSA

5615

JMP I UNSFIX

IYES-RETURN

01646

1045

01647

5615

UNSOUT, TAO ~OHD
JMP I UNSFIX

U45

~044

UNSLP,

.;?~

I'~~'

ISCALE RIGHT
IDONE?

(£A.,I/'I

~-~ ~

~JI~"~4~4~~5~i~4~2________~~J~MP~U~N~S~L~P~__~/~N~Q~~~~____--________----_____

/ANSwER IN AC?

F'ftE.

IRESTORE
01650
01651
01&52

01653
01654
01&55
01656

01&57
01660
016&1
01&b2

01&&3
016&4

01&&5

0000
4&64
7240

RESTI,

JMS I WRtU.IU,
CLA CMA .
TAD I WORDS
DCA I WORDa
TAD I wORDI
DCA I WORD3
TAD I WORD0
AND K7435
DCA I WOHDB
JMS I IIIEXREL
JMP I HESTI

1570

35&5
15&4
356&
1563
0265
35&3
4552
5&50
3350
7435

WR8L~L,

K7435,

wHBlK
7435

INO-WRITE CURRENT SUFFER
1-1
ISTAHTING blOCK-l
ISET CURH~NT BLOCK #
IGET BUFFER ADDRESS
IUSE IT TO RESET HEAO\WRITE POINTER
IGET HEADEN WORD
ICLEAR EOF BIT,eUFFER wRITTEN BIT,A~D CHAR
IRE AD FIRST
IOON~

BLOC~

INTO 8UFFEH

105/8 BASIC RUNTIME SYSTEM

STFINO-WHEN CA~~EO.IF LINKa! STRING AR~AY TAB~E IS
IUSEU,IF LtNK.1IJ STRING SYM~OL TA~LE IS USED. RETURNS WIT~ AC StT
ITO CDF OF OPE~AND STRING,STRPTR POINTING TO T~E FIRST WORD
lIN THt STRING, AND THE MAX LENGTH OF THE STRING IS IN STRMAX. ALSO,
ITHE ACTUAL LENGTH Of THE STRING IS IN STRCNT

ISU8~OUTINE

f1J16&6
016&1
01670
01&71
01612
01673
0l&74
01675

01676
01671
01700
01701

0000
7430

5347
10&4
0101

32140
1040
711114
1040
l1li23

3012
1101

7420
5337

111133

TAO Sl

1412

01'703

3072
1412
30U
1412

01705
011e.
01'707
f11111111

01711
01712

01713
01714

STCOM,
STOF,

SZL
JMP SAFINO
TAD INSAV
AND K0n1
DCA TEMPI
TAD TEMPt
CLL HAL
TAD TEMPt
TAD STSTHT
DCA lIRi

• I XR2
TAD
DCA STHPTR
TAO I XR2
DCA TEMPll
TAD I lIR2
DCA 5THMAX
SNL
JMP SCDF

0t'7el
01'704

STFINO,

3070

DCA BASS
TAD 1 XR2
JMS I NUMCCM
JMP I SU8ERL
TAD STRMAX

3015
1412
4405

01715
01716

5756

f111717
017i0

7041

CIA

01723

1101
7110
7101

01724

3042

CLL lAC
CLL RAR
CLL lAC
DCA TEMP3
TAD 51
JMS I MPYLNK
TAD STRPTR
DCA STHPTH
HAL
TAD TEMP&
Cll HTL
RAl
TAO TEMPll
DCA TEMPll
TAO TEMPll
DCA .+1

01721
01722

01125
0112&
01727
01730
01131

111170

10ll

45il
1072

3072
7004

11J1732

1050

01733

7106
70214

01134
0t735
01136
01737
01140

1111741
01142
01743
01144

10t12
3062
1062

3341
1741
1472

3071
1062
6201

seOF,

• I STHPTR
TAD
DCA STHCNT
TAO TEMP 11
COF

lIS T~IS AN ARRAY INST?
IYES-POINTER IS INTO ARRAY TABLE
IGET INST AGAIN
IISOLATE OPERAND POINTER
INO-SAVE OPERAND POINTER

liN
13N (3 WORDS/ENTRY)

IADO BASE ADR OF STRING TASLE
IPOINTER TO THIS ENTRY IN STRING TA8LE
IDF TO THAT OF SYMBOL TABLES (SET BY START)
IGET POINTER TO STRING
IGET COF FOR OPERAND STRING
ISAVE
IGET MAX LENGTH OF STRING
ISAVE
IARRAY ELEMENT?
INC~SKIP THIS SUBSCRIPT CALCULATION
IGET SUBSCRIPT
15ET UP 12 BIT COMPARE
IGET DIMENSION
lIS SI>DIMfNSION?
IVES
INO-GET ELEMENT LENGTH
IMAKE POSITIVE
IROUND OFF TO NEAREST MULTIPLE OF 2
I DIVIDE BY TWO (COUNT/2aWORO CDUNT)
IADD A WORD FOR HEADER
I ' OF WORDS IN EACH ARRAy ELEMENT
IGET SUBSCRIPT
IS1*ELEMENT LENGTH (ASSUMES LINK UNCHANGED ON RETURN)
IARRAY OFFSET+POINTER TO A(0)
IFINAL STRING POINTER
ICARRY TO BIT 11
IADD TO ACCUMLATED OVERLAPS FROM MULTIPLY
IPUT OVERLAP # INTO BITS &.8
IADO TO COF IF NECESSARV
ISAVE AGAIN
IGET OF OF STRING
IPUT IN LINE
IOF TO STRING FIELD
IGeT STRING LENGTH
IACTUAL LENGTH OF STRING OPERAND
ICOF TO UPERAND IN At

•

105/8

BASIC RUNTIME SYSTEM

121174&

5&&&

1211747
1!11750
1211751
01752
01753
01154

53121121

01755
0115&

0&23

1064

0355

JMP I sn INO
SAFIND, TAO I-NSAV

AND K0037L
Cll NTl
TAD SASTRT
STL
JMP STeOM

710&

1024
71i!121
111I!13 7

PAL8-V7

10124172

•

PAGE a8-1

IRt::TURN
IGt.T IIIIST
IISOL.TE OPERAND POINTE~
14N (4 WORDS/ENTRY)
IUSF. STRING .RRAY TA~LE
ISET LIN~ FOR ARRAY INST
IRE TURN TO SUBROUTINE MAINLINE

K0017l, 121031
SUBERL, SU
/TAB FUNCTION

1!11757
12117U
QJ17U
017&2

1211211/1121
4!U4
712141

TAS,

1573

017U
017&4
017&5
01766

1500
5513
5767

017f17

2547

7001

1/1
JMS I INTL
CIA
TAD I WORD10
lAC
SMA
JMP I II-OOPl
JMP I SLOVEL

IFIX lC TO INTEGER
INEGATE
ICOMPARE DESIRED COLUMN TO REAL COLUMN
IHUMP BY 1 (WORD 7.COL '-1)
lIS lC •• CUR~ENT COLUMN?
IYES-THEN 00 NOTHING
INO •• C CONTAINS
OF SPACES NEEDED TO REAC~ DESI~ED COLUMN

SLOVE!., SLOVER
IPNT FUNCTIOfli
IVALUE OF lC SENT TO TTY

121177121
01771
01772
211773

121001/1
4514
12137&
1071
4512

01174
1!11175

5513

01 776

0171

PNT,

JMS I INTL
.ND K01 n
TAD KI!J200
JMS I PUTC"'l
JMP I IlOOPl
K0171,

177

IFIX X
IST~IP TO 7 ASCII BITS
IFORCE CHANNEL 8
IPUT IN FILE BUFFER
IDONE

•

IOS/8

SASIC RUNTIME SYSTFM
PAGE

2000

IROUTINE SFN-ROUTI~E TO RESET POINTERS IN PAGE ZERO FILF. POINTER
IAREA TO REFLECT A CHANGe IN THE CURRENT FILE NUMBeR
(112000
(IIi!1!l01
12121!l02
02003
02004
1212005
0ii!00&
02007
0212110
02011
12ICH1112

4514
3044
1044

1231
7740
451&
31U
1044
1234

3007
1401
31&3

5223
5513

1107
3007

1232
3011
1233
's1/J1i!

1411

SFNLP,

0l&;!

02033

01b3

0212134

2035
6&17
&714

02037

&731

02040
02041

6763

&74&

IFIX FAC TO GET FILE'
IIF ENTRY IS HERE,FILE #.~ (TTY)
IGET NUMBER AGAIN
lIS HESULT A LEGAL FILE #?
INU-t-likOR
IVES-GET FILE #
ISAVf AS CURRENT FIL.E

IUSE AS INDEX INTO TA~LE OF MASTER POINTtRS
IPOINTS TO FIRST WORD OF EACH 110 TAaL~ ENTRY
IGET POINTER TO FIRST WORD OF 110 TABLE ENTRV wE WANT
IPUT IN WORk AREA
IwE HAVE TO CHANGE 12 POINtERS
IPOINTER TU LAST ENTRY

MAO~

IPOINTER TO NEXT ENTRV TO ~E BUILT
lEACH ENTRy IS BUILT
IBY ADDING 1 TO THE PREVIOUS ENTRV

~CA

2007

1774

TAO 1 lOU

I XR2
ISZ TEMP2
JMP SFNLP
JMP 1 ILODPL

3412

020:51

JMS I INTL
DCA EXP
TAO EXP
TAO KM4
SMA SZA CLA
JMS I ERROR
TAD EXP
DCA ENTNO
TAD EXP
TAO IOTPTR
DCA TEMPi!
TAD I TEMP2
DCA WOIW0
TAO M14
DCA TEMPe?
TAO WORD0A
DCA XfH
TAD WORolA
DCA XR2

lAC

7001

02032

•

FN,

1044

0212113
121211114
02015
121201&
02017
0212120
020i!1
0202ii!
i!l2023
1!l2024
02025
02026
02027
02030

02035
0203&

SFN,
CSFN,

KM4,
\fjOROIc:JA ,
WOHDlA,
IOTPTR,
IOTA~,

IOONE?
INO
IVES-NEW TABLE IS NOW

~UILT

.4
WOH00-1
WOR01-l

IOTAB
TTYF
FIL.El
FIL.Ei!
FIL.E3
FILE4

IPOINTtRS TO THE FIRST WORD IN EACH OF THE

FIV~

11/0 TA8LE ENTRIES

•

t
105/8 SASIC RUNTIME SYSTEM

PALS-V1

10/24172

•

PAGE 30

IFOR-LOOP JUMP ROUTINE
1112111U
1!I20U
02044
IUUS

021114.
02041
1112050
02051
02052
02053
02054

1!IZ0S5
111211156
Bi0S1
1112060

HIIIIII
104!i

7450
5653

12."
1110

5653
5.52
0421
0413

1130
0045
3260
5513

III I/J 0111

JFDR,

CLA CLL
TAD HORD
SNA
JMP I J'AILI.
TAD FSWnC
SPA CLA
JIIIP I JFAILL
JMP I SUCJML
SUCJML, SUCJMP
JII' AILL, Jf"AIL

IGET HIGH MANTISSA
lIS FAt-rn

IYES-OO NOT JUMP
FSWITCH
IARE SIGN 8IT.FSWITCM?
INO .. OO NOT JUMP
/YES-DO JUMP
ODD

IROUTINE TO INITIALIZE FSWITCH
ClL CML IUR
14000 IN AC
AND HORD
IISOLATE SIGN OF MANTISSA
DCA FSwITe
ISTORE IN FSWITCH
JMP I ILOOPL
IDONE

sn"

Fswnc,

•

IOS/8 BASIC RUNTIME

SYSTE~

PAL8-V7

10/24/72

PAGE 31

ISTIUNG COMPARE
11120&1
11120&2
21211163
1112111&4
020&5
1112111&&
02111&1
02070

334&
3063
4537
1032
1071
1650
5513

02071

1032
1650
532&

022112
02073
02074
02015

0i07&
02071

021021
2121211

21iH2I2
0i!l03

0U04
212105
0i! 106
02101

71021

1071

1&50
5327
111 t
111111
4521
4557
43&&
3042
4343
32107
4531
7141
12107

02110
02111
0i112
02113
02114
02115

7&4111
5327
2071
5332

0211&

2032

212117

7410

0212111
!/l2121
02122
1112123

02130
02131

5513
4531
7100
110&
7650
531&
7020
72'70
3045
5513

02132
02133

5305

0i!124

02125
0212&
11I21iH

2032

0213&
1212137
1212140

43"3
110&
7&40
5326
2071

021141

5334

02142

5513

02134
02135

SCOM~,

LOHt,

DCA DeDF
DCA MDDESW
JMS I FCLR
TAO STRLEN
TAO STRCNT
SNA CLA
JMP I ILOOPL
ClL
TAO STRLEN
SNA CLA
JMP SN!;"1
TAO STRCNT
SNA ClA
JMP SNEG!
TAO SACPTR
CLl lAC
JMS I lDHINL
JMS I lDHRST
JMS PTRBMP
DCA SWITCC
JMS LDMPST
DCA TEMP2
JMS I LOM
CIA CLl
TAO TEMPi!
SlA CLA
JMP SNEIiI
lSI STRCNT
JMP SACCHK

SAC4fDC, lSZ ST~lEN
SKP
JMP I IlOOPl
JMS I lOH
CLl
TAO KM40
SNA ClA
JMP SAC40C
SNEQ1, CML
SN[Q,
CLA CMA eMl RAR
DCA HORO
JMP I ILOOPl
SACCHK, ISZ STRLEN
JMP LDtlC
STC4~C, JMS lOHPST
TAO KM40
SZA ClA
JMP SNEQl
lSZ STRCNT
JMP STC40C
JMP I IlOOPl

10F TO OPERNAD IN LINE
IRE TURN IN AMOOE
IINITIAlIZE FAC TO 0
ILENGTH OF STRING IN SAC
ILENGTH OF OPERAND
IARE THEy BOTH ZERO?
IYES-THEy ARE EQUAl,SO RETURN wITH FAC-0

INO-lENGTH OF SAC
IT ZERO?
IYES-THEN THEY ARE NOT EQUAL
ILENGTH OF OPERANO
I IS IT EMPTY
IYES-THEy ARE NOT EQUAL
IPOINTER INTO SAC
I IS

IINIT LOH
ITO LOAD FROM SAC
IISZ STRPTR OVER COUNT WORD
IINIT LDHPST
IHALF lOAD
lAND SAVE
IGET CHAR FROM SAC
INEGATE IT
IANO COMPARE TO OPERAND CHARACTER
IARE THEY EQUAL?
INO-RETURN WITH FAC SIGN SET APPROPRIATELY
IMORE OPERAND CHARS?
IYES.SEE IF SAC EMPTY
IMORE CHARS IN SAC?
IYES
ISTRINGS ARE EQUAL-RETURN WITH 0 FAt
IGET CHAR FROM SAC
ICOMPARE TO SPACE
lIS IT A SPACE?
IYES.CHEC~ NEXT CHAR
ISET SIGN BIT OF MANTISSA TO REFLECT RESULTS OF COMPARE
ISAC EMPTY?
INO .. CDMPANE NEXT TWO CHARS
IYES-GET CHAR FROM OPERAND
ICOMPARE TO SPACE
lIS IT A SPACE?
INO-STRINGS AREN~T EQUAL
IYES~MORE CHARS?
IYES-CHECK THEM
INO-STRINGS ARE EQUAL-RETURN WITH FAC=0

•

IOS/8 BASIC RUNTIME SYSTEM

PALS-V7

10/24/72

•

PAGE 31-1

IROUTINE TO GRAB 1 CHAR AT A TIME FROM OPERAND STRING
lilA]

11111/1111

1IJl144
Il145
US46
IDiU7
11215111
llli!i51
Il15i!

lUi!

02153
U154
iii! 155
02156
Bi157

IIIUftII

LDHPST,

111111

i!14&
1412

&aU
74ir/1

4544
11111115
)1/11111

184i!
1111/1

1430
43 . .

lil&!

1&i!1II

IIIUU
Ul&]
82164
1112165

11 i! 1

UU
11/11117

5143
0042

OCDF,

TAD swncc
CLL RAR

•

TAD I STRPTR
CDF
SNL
JMS I BSWL
AND IUI077
DCA TEMPi!

TAD 8wncc
CLL RAR
SZL
JMS PTRBMP
SNL eLA
CLL CML lAC
DCA swncc
TAD TEMPi
JMP I LDHPST

IGET HALF SWITCH
IPUT IN LINK
10F TO OPERAND
IGET TWO CHARS FROM STRING
IRIGHT HALF?
INO-SWAP BYTES
IISOLATE RIGHT CHAR
ISAVE

IHALFWORD SITCH TO LINK
IRIGHT HALF?
IBUMP STRING POINTER
IFLIP HALF WORD SWITCH
I (LEAVE LINKa1)
IGET CHAR AGAIN

SWITCC.TEMPl
ISUBROUTINE TO BUMP STRPTR AND WATCH FOR FJELD OVERLAP

0216&

121&7
Ul71
1IIi!171

02172
1i!ln
02174

0000

il?i!

57&&
1]46
1073
334&

57&&

PTRBMP, 0

lSZ STRPTR

JMP I 'TRaMP
TAD DC OF
TAD KelllU
DCA DC OF
JMP I PTRBMP

INO-SKIPIRETURN
ISKIP MEANS WE MUST INCREMENT FIELD

IFLOATING POINT CONSTANT USED 8Y ASCOUT
02175
0i17&

02177

7755

l0U
5734

APlIllllilll, 7755
i!IIIU

5734

1.0f!l1!J011l1

•

IOS/8 BASIC RUNTIME SVSTEM

PALS-V7

10/24/72

PAGE 32

PAGE

2200

ISTRING CONCATENATE
02200

3&37

IIJZi01

1011

I1Ji! 2I/J 2

7650

02ie]

5513

!Ul04
L!l2U5
0220&

1072
1101
4527

IIJU07
0l2ltJ

02211
02212
02213

SCONi,

7450
5216
7130
7440

SZA

7041

0li14

02215

7420
7001

0U16
0li17

1111
452&
4560
4531
4530

0Z2i0
02221

02222
0l2n
02224
0iil5

7240
1032

303i!
1032
1236
7710
451&
2011
5222

02226

02227
02230
1Il2i!]l
fli!l!2
0li3l
02Ull
02235
Un6

5513
0110

01n?

1647

DCA I LDHCO'
TAD STRCNT
SNA CLA
JMP I ILOOPL
TAD STRPTR
CLL lAC
JMS 1 L.DHINI..
TAD STilLE'"
SNA
JMP SACEM
CLL CML MAR

UCEM,

CIA
SNI.
lAC

TAD SACPTR
JMS I STHINL
JMS I STHRST
SEGCOM, JMS I LOH
JMS I STH
CLA CMA
TAD STRLEN
DCA STRLEN
TAO STRLEN
TAD 1(1U1
SPA CLA
SC,
JMS I ERROR
lSI STRCNT

JMP SEGCOM
JMP I lLOOPL
1(111/1,
110
LOHC!')F, LOHDF

10F FOR LOH
IOPERANO.01
IYES-THEN THERE IS NOTHING TO DO
IAOOR OF OPERAND
IACOR OF OPERAND 1ST CHARACTER
IINITIALIZE LOH TO PULL FROM OPEMAND
" Of CHARS IN At
ISAC EMPTY?
IYES-CONCATE ESSENTIALLY IS A LOAD
./DIV IDE BY TWO
IPOSITIVE WORD COUNT
IUSE AS OISP~ACEMENT OFF START OF SAC
IINITIALZE STH TO SAC.STRLEN/2
ISAC IS IN FLO 0
IGET CHAR FROM OPERAND
IPUT CHAR IN SAC
/ .. 1

I"BUMP" STRING COUNT FOR SAC
115 SAC FU~L VET?

IVES-TRUNCATION ERROR
INO-MORE CHARS LEFT IN OPERAND?
IYES-GO GETTEM
INO .. OONf

IRouTINE TO SIMULATE HAROWARE BVTE SWAP
011.100

7112
711JU

701i!!
.. 12246
02241
22S0

3311
1311
0075

~ ~e!C!5t 5&40

- -

•

1311
1010

BSWP,

l/J

CLL RTR
RTR
RTR
DCA TE",PI2
TAp TEMP12
AND K0077
TAO TEMPle!
RAR

ILEFT HALF NOW IN RIGHT HALF
ISAVE
IISO~ATE

LEFT HALF

100 A PARTIAL SHIFT OF 8ITS &~ll LEFT ONE

IMOVE INTO POSITION

JMP I BS1NP

•

IOS/8 BASIC

1225i
lil53
112254

15.3
1112

IIU55
lIi25&

?iii 06

112251

5513

RUNTIME SYSTEM

•

PAL8~v1

10/24/72

•

PAGE 33

IROUTINE TO SET EOF BIT IN 1/0 ENTHV
EOFSET, TAD I WORDe
IHEADER
eLL RTR
IEOF 8IT TO LINK
CLL eML

'UI

ISET LINK

RTL

IPUT LINK IN EOF BIT

DCA I WORDe
JMP I ILOOPL

JSU

ISTOHE IN 1/0 TABLE ENTRV
IEOF BITSET~ABORT TO lLOOP

ISUBHOUTINE MPY. Ii BIT BV 1i BIT MULTIPLY. MULTIPLIt5 THE CONTENTS

IOF TEMP3 BY THE CONTENTS OF THE AC,LEAVING THE HI RESULT IN TEMP6
lAND THE LOW RESULT IN THE AC .
lIii~~ 0000

I··~·.·

IPY,

112&"" JM1' r-

0U.",., !fJU

Vr~

I
(pl-

BlUff' UU

""'.No

1IJ2~71'1

u ... , 3858
112""'J.. il101
liMe' SZM?O

12:::£1102

-----

DCA TEMPU

DCA

((;JJ

DCA TEMP]
IA~ Ut!f6

li~ ?Ulln
lIZ &:jIo!II"1 'N+.

12
II

RAR

II 22""-l 04i
_JlJUC..tJ 1IJ511
1IJ2Ut'+'4il

IliU'C"

-.~

TEMP.
TAD M14
DCA TEMP5
MPULP, TAD TEMP]

0U6'-C' lllJ511J
122&.,,& 11 If rL

1226,.. 3141

..··.......... ......---......-.-... ...-...-_.... _._ ..

7810
56~""

SNI.

JMP ,.3
eLL
TAD TEMPU
RAR
DCA TEMP6
ISZ TlMPS
JMP MPtlLP
TAD TEMP]
RAR
JMP I MPY

112

BIT MULTIPLY USED TO FIND (0IMl+1'*52

tf1£

ILORD OF (0IMl+1,*52 IN AC
IHORO OF (0IMl+1,*S2 IN TEMP'
IRE TURN

I ••• ••• ••••••••••• - •••••••••••••••••• -~ •••• -- ••• -- •••• •• _ •• _~ ___

ii60

TEMPl].MPV

IROUTINE TO C~ECK 'IF FILE IDLE
li3B4

lun

0Uaf.t
IIZSe'
eaJUJ

111000

IDLE,

1567
7650

4516

571114

FI,

TAD I wORD4
"SNA
ClA

JMS I ERROR
JMP I IDLE

IGET HANDLER ENTRY

lIS IT EMPTY?

IYES.USER TRIED TO DO SOMETHING TO AN UNOPEN FILE
INO",RETURN

105/8 BASIC RUNTIME SYSTEM

PA~8.V1

10/~4112

PAGE 34

IROUTINE TO READ NEXT WORO IN OATA~IST INTO AC
02311

1/1000

0C!3li!

1016

02313

3015

02314

1027

02315

4405

IIIU16

451&

02317

2317

02320

1416

02321
0il!12i!

S7U

DA,
DLCDf,

TAD DL.PTR
DCA BA8S
TAD DLSTOP
JMS I NUMCOM
JMS I ERROR

• I D~PTR
TAD

CDF
JMP I D~READ

&i0!

IDATA LIST POINT~R
ISET UP 12 BIT COMPA~E
IAODR OF END OF DATA LIST
IPOINTtR AT END OF L.IST?
IYES
INO-OF TO DATA LIST
IFETCH WORD FROM DATA LIST
IOONE

IROUTINES TO SwITCH INTERPRETER MODE
02323

71101

BU24
1112325

leU
5513

SIMOOE, lAC
AMODE, DCA MOOESW

JMP I ILOOPL

ISET SwITtH TO SMOOE
ISET SWITCH TO A MODE
IDONE

ISUBROUTINE PUSHG
IROUTINE TO PUSH AC ON TOP OF GOSUB STACK
02326
0l1U
0233111
lIIi]]1
tint!
112333
02334

02335

0000
UI40

2061

DCA TEMPt
lSZ GSP

7041

CIA

TAO GSP

1341

1710
4516
1840

02336
02337
02340

34&1
5126

02341

0476

•

PUSHG,

GI,

TAD GSTCKT
SPA eL.A
JMS I ERROR
TAO TEMPt
DtA I GSP
JMP I PUSHG

GSTCKT, GSSTOP

ISAVE ELEMENT TO BE PUSHED
IBUMP GOSUB STACK POINTER
IGET STACK POINTER
INEGATE
IAOO ADR OF TOP OF STACK
ISTACK OVERFL.OW?
IYES-TOO MAN V NESTED GOSUBS
INO-GET ELEMENT TO 8E STACKEO
ISTACI( IT
/RETURN
IADOR OF TOP OF STACK

•

108/S BASIC RUNTIME SYSTEM

PALS-V7

IROUTINE TO RANDOMIZE RNO(X)

8i!3U

111117

FRANOM, TAD SPINNR

02343
02344
02345

7124

Cll CMl RAL

334ft

DCA RSEEO
JMP I IlOOPL

0i]46

5513
1713

RUED,

•

10/24/72

PAGE 35

IUSE SPINNR FOR NEw SEtO FOR RND(X)
IMAKE SURE SEED IS ODD
IDONE

2713

ISUBROUTINE CR,Lf'

0un

ee00

CRll'H,

1/1

111154
45li!

Bi352

TAD Ki15
JHS I PUTCHL

135&

112353
I112lS4

4512
3S73
5747
0212

TAO Ki! 1i!L
JMS I PUTCHl
DCA I WORDle

I!IU50

02351

IU]SS

IIUS.

JMP I CRLPR
Ki!li!L,

IPRINT A CR,AND L~
IZERO COLUMN POINTER

i!lii!

I.UBROUTINf FOTYPE
IRETURNS TO CALl.l IF FILE FIXtO LENGT~.CALL.i IF
02157

1/11811111

0UU

15.]
113&5

fJUU
0UU

IIIZ1U
02]64
lIZ US

7640
ilS7
5757
111004

f'OTYPE,

11)

TAD I WOR00

AND K18004
SU CLA
15Z FOTYPE
JMP I FOTYPE
1<00114 ,

IGET HEADER
IISOlATE TYPE BIT
lIS IT FIXED lENGTH?
INO-BUMP RETURN

IRETURN

ISUBROUTINE TO REPLACE FAt WITH A8&(FAt)
023&6

e080

181161

IUS
7711/1

fJZl7IIJ
1121U
0il7i!

45411

S7U

ABSyAl, 0
TAD HORD
SPA CLA
JMS I f'NEGl
JMP I

USVAL

lIS FACc07
IYES-NEGATE IT

IRE TURN

IROUTINE TO RESTORE THE FAt FROM FP TEMP
0i!171

001/11/1

02374
l/Ii175

4514
1152

un.

5713

HCRES, 0

JMS I FGETL
INTERB
JMP 1 FACRtS

IGET FAC
IRE TURN

VA~IABLE

105/8 BASIC RUNTIME SYSTEM

241/1111

PAL8-V7

101C!4172

PAGE 3b

PAGE
ISTUNG DATA I.UT READ

112415

4616
30U
U71
5211
5513

SRLIST, JMS I DLRUL
DCA STRLEN
TAD &TRLEN
SNA
JMP J U.DOPL
CLL CML RAR
DCA STRCNT
TAD SACPTR
DCA XR2
SRLDOP, JMS I DLRUL
DCA I )CR2
ISI STRCNT
JMP SRLOOP
JMP I ILOOPL

11124111

2llt

OLRUL, DLRUO

0U00
11241111
1lJi!402

non

12000
12405
0241116

0Z40?

12410
1i411
824U

IIU13

12414

•

4616
lin

10:U

745111
5511
lUIil

3171
1111
3012

IREAD COUNT FROM DATA l.IST
ISAVE AS NEW COUNT FOR FAC
ICOUNT FOR SAC STRING
INULL STRING?
IYES-NO OPERATION TO PERFORM
lAND DIVIDE BV TWO FOR WORD COUNT
ISAVE AS MOVE COUNTER
IPOINTS INTO SAC
IREAD i CHARS FROM DATA LIST
lAND PUT THEM IN SAC
IBUMP STRING COUNT
INEXT 2
IDONE

•

IOS/8 BASIC

RU~TIME

•

SYSTEM

ISTRING READ ROUTINE
1112417
1/IZ421/1

02421
02422
n423
02424
02425
02426
02427
0i!430

1112431
12432
02433
12454
02435
02436
U4J?

3657
31117 t

SRUD,

711111

1012
4526
45U
ltIIS3
11155

FTCOH,

7451
5247
1256

7nil

5224

10n

711111
5244
US3
4538

DCA I STHCDL
DCA STRCNT
CLL lAC
TAD STRPTR
JMS I STHINL
JHS I GETCHL
TAD CHAR
TAD MUS
SNA
JMP SRFIN
TAO foILF
SNA CLA
JMP FrCOM
TAD STRCNT
TAD ITRHAl(
SMA CLA

nU7

..... ¢'M!N,

TAD ~

IIIZ4S111

3251

1/12451
02452

2451
U71

0103
2611

IS FINISHEU

IGET OF OF STRING
IPUT IN LINE
IDF TO THAT OF STRING
ISTRING DONE-GET LENGTH
INEGATE
ISTORE AS COUNT FOR STRr~G
IOONE

315J

02456
02451

IYES.STRI~G

lIS IT LF1

ntolCOL
DCA •• 1

02406

JMS I ERROR
TAD K21S
DCA CHAR

0245J" 711141
02454 3472
02455 5513

IYES-TRUNCATION ERROR
ISET CHAR TO 215
ISO TTY BUFFER CLEARED BEFORE NEXT INPUT

4516
1054

ST,

lIS IT

JMS I 5TH
nl STRCNT
JMP HCCM

02045

12444

ILEAVE FIELD AS IS
IADDR OF" OPERAND
II~IT STORE HALF TO STOR~ IN OPERAND
IGET CHAR FROM FILE OR TTY

/YES-IGNORE IT
INO-GET LENGTH OF STRING SO FAR
ICOMPARE AGAINST UPPER LIMIT OF DESTINATION
/ANY MORE ROOMt
INO-TRuNATION ERROR
IYES
ISTORE CHAR IN STRING
IBUMP COUNT
IGET NEXT CHAR

JMP aT
TAD CHAR

0244111
124at
02412 ZIU
12443 " Sli4

IDF FOR STH

10 STRING COUNT

701.PII

• STRCNT
TAD
CIA
DCA I STRPTR
Jf1P I ILOOPL
ML',
3
STHCDL. STHDF

•

105/8

BASIC RUNTIME SYSTEM

ISTRING WRITE ROUTINE
02460

3357

1ZI24.1
0i4t.i
U4U
eUt.4

lUi

e24.5

0l4 . .

U4U
U4711l

02471
182412
02473

01474
112475

111241.
1Il2411

usn

nSBI
82502
IIIl503
US04
lase!

145e
5513
U4S

1313
7740

4553
1111

711111

45iT

4557

1032
3071

4531
3040

1040
1106

7710

1076

TAO K0te0

TAD K021210
TAD TEMPt
JMS I PUTCHL
lSZ STRCNT
JMP SWCLP
JHP J ILOOPL

1877

III 2506

1041

!lliS07

4SU

121251111

211J71

eUl1
0Utz

5277
5513

1Il2513

7670

•

SWRITE, DCA COMMAS
TAO STRLEN
SNA
JI1P I ILOOPL
CIA
TAO I WCROUI
TAD MH110
SMA SZA CLA
JMS I CRLF
TAD SACPTR
CLL lAC
JHS I LDHINL
JMS I LOMRST
TAD STRLiN
CCA .TRCNT
8WCLP, JHS I LDH
DCA TEMPI
TAD TEMPI
TAO KM4e
SPA CLA

I1Mlll,

-110

ICLEAR COMMA SWITCH
I' OF CHARS IN STRING

INULL STRING?
IYES-NOTHING TO WRITE
IMAKE A POSITIVE NUMBER
IAOO TO COLUMN NUM8ER
ICOMPARE AGAINST END OF LINE
IWILL STRING FIT ON LINE?
INO-ISSUE A CRLF FIRST
lAC POINTS TO LEFT SAC CHAR 1
IINITIALIZE LOAD HALF ROUTINE
ILOAO· fROM SAC IN FLO III
" OF CHARS
IUSE AS COUNTER
ILOAD HALF CHAR FROM STRING
ISAVE
.
ISUBTRACT 411l
lIS CHAR C4B7
INO-MAKE IT 1 III III SERIES
IMAKE IT 200 SERIES
IPUT CHAR IN FILE OR ON TTY
/DONU
INO-NEXT CHAR
/YES

1/1"0

•

PAL8-V7

IOS/8 BASIC RUNTIME SVSTEM

1'Ji514
!lli51S

00il4

02516

0170

lUi

0000
4550
5513
1357

02523

U50

02524

5327

0i!525
0lSi!'t

4512

0770

02527
02530
02531
U5lii!
02513

TAD COMMAS

1414

SPA

02534

3014

1573

02542
82543
82544
82545

0
JMS I F'TYPL
JMP I II.OOPL

15121

101111
3357
1366
3007

Un5
1!J25!'
02537
02540

02541

COMMA,

(~NOWN

SNA CLA
JMP ,+3·
TAO C240
JMS I PUTCHL
lAC
DCA COMMAS
TAD /144
DCA TEMPi!
TAD POSPU
DCA )CIUI
COMLOP, TAD I WORDl0
TAO I )CR4

U65

5347
7650
5513
2007
5335
4553

JMP SLOVER
SNA eLA
JMP I ILOOPL
18Z TEMPi

JMP COMI.OP
JHS I CRI.F
JHP I ILOOPI.

02546

5513

02541

3777' SLOVER, DCA TEMP19

02550

45511

U551

5513
1365
451i!
2777 •
5350
5513

02552
02553

02554
02555

02556

02557
025(,0
0U61
025U

02563

0001
2560
77U
7744
772&

JMS I FTVPI.
JMP I ILOOPI.

TAO C240
JMS I PUTC"'I.

IIZ TEMP19
JMP SLOVER.1

JMP I II.oapI.

COMMAS, 1
POSPU, POSTP-t
POSTP, -16
-34

0il!S&5

0240

02566

-51!
.721
i40

7714

-4

025&4

7718

PAGE 3q

IFLOATING POINT CONSTANT USEO ~Y ASCOUT FO~ FORMAT CONVEHSION
A999,
24
1999999
3641
ICOMMA FUNCTION
ISTATEMENTS)

02517
02520
02521
02522

•

10/24/72

ONLV TO COMPILER FOR FORM~TTING PRINT

lIS FILE NUMERIC?
IYES-COMMA FUNCTION IS A NOP
IGET COMMA SWITCH
IWAS LAST THING PRINTED A COMMA?
INO-wE ARE 01(
IYES-PRINT A SPACE BEFORE DOING COMMA CALCULATION
ISET COMMA swITCH
10NLY 4 CO~UMNS TO CHECK
IPOINTS TO POSITION .'5 OF COLUMNS
IGET CURRENT PRINT HEAD POSITION
ICOMPARE AGAINST COLUMN MARKER
IPAST THIS ONE?
IVES-SLIDE PRINT HEAD TO START OF NEXT
IEXACTLY ON A tO~UMN?
IYES-DONE
IAI.I. MARKERS CHECKED YET?
INO-DO NEXT
lyES-NEXT CO~UMN IS "
IOONE

1-'
OF COLUMNS TO NEXT MARKER
115 FILE NUMERIC?
IYES-THIS IS A NOP
IGET SPACE
IPRINT IT
/THERE YET?
INO-TYPE ANOTHER SPACE
lyES-DONE

ISET TO 1 IF LAST PRINT WAS A COMMA MOVE
ICOLUMN MARKERS
IMINUS TTV COLUMN NUMBER THAT MARKS BEGINNING
10F ONE OF THE BASIC COLUMNS

IRESTORE FOR IN-CORE DATA I.IST

•

105/8 BASIC RUNTIME SYSTEM

025&7
02570
0iS?1

1030
301&
5513

RESDLS, TAD DLSTRT
DCA DLPTR
JMP I IlOOPL

P_LS-V7

10/24112

PAGE 39-1

IADOHESS OF START OF INCOR~ DATA LIST
IUSE IT TO RESET DATA LIST PUINTER
/THATS All!

IRESTORE ROUTINE

usn

1251]
1112574
12515

lin.,.

P!
1112517

•

5513

RESTOR, TAO ENTNO
SNA CLA
JMP RESOlS
JMS I RUTIL.
JMP I lLOOPL

U50

RUTIL, REST!

U6i!
1651i1

5]67
4777

IGET CURRENT FILE #
lIS IT 01

IYES-RESTORE DATA LIST
INO-RESTORE A FILE
IDONE

•

IOS/8 BASIC ~UNT!ME SYSTEM
PAGE

PALS-v7

•

10/24/72

PAGE

ISU8HOUTINE 5TH-SIMULATES AN AUTO-INDElING STO~E HALf INSTwUCTION.
ISTONES THE RIGHT HALF OF THE At IN THE HALFwORQ FOLLOwING THf
ILAST HALFWORO STORED. TO CHANGE THE STORAGE AODRESS,CALL STHINJ
02600 121121121121 STHL,
02601';075 ~
0260~
"6i02&03 2603 STHOF,
02&1214 1244
02605 764121

~~,
".
I

121
AND K0077
DCA n"pu

ISTRIP TO b SITS
ISAVE
10F TO STORE FIELD
•
IGET SwITCH FOR HALF TO 5TO~E IN
T"'O STHSwT
IWHICH HALf?
SU CLA
1ST ORE IN RIGHT HALF
J"'p RIG"'TS
026121~5233 ~
1ST ORE IN LEFT HALF
TAO fElI"11
4260
"H15'!
ISWAP I:JVHS
- 2&1121 4544
_
JMS I BSwL
ISAVE AGAIN
02& 1 ~.aftr §~
DC"A tf"'''ll
IGET CURRENT VALUES
U'O I STI1R 02612 1645
IPRESE~VE RIGHT HALF
A"O 1(012177
~ 0261;"0075
ICOMBINE WITH NEW LEFT HALF
fIl261
U62" tJ{/cOM, UD -Kfllll1
lAND STORE IT
D~A I STHR
02615 3645
IGET HALF SWITCH
TAD STt1SWT
fIl2fJ16 1244
SNA CLA
IWAS THIS RIGHT HALF?
02617 1650
JMP JSL-a-.~ INO-JUST FLIP SWITL:H
52iH
lSZ STt1R tl"kt' IBUMP POINTER
1IJ26l1 2245
JMP JSL+1
IPOINTER IS BUMPEO-SET HALFSWITCH TO LEFT
SiU0
ISKIP MEANS wE HAVE TO aUMP 5TH CDF
TAD STHOF
02623 121213
TAO KIIHi'll 121
1013
DCA STHDF
321213
02626 7410
ISET HALF SWITCH TO 0
SRP
IFLIP HALF SWITCH
CMA
02627 7040 JSL,
DCA STH5WT
02630 3244
CDF
6201
100NE
JMP I STHL
5600

.....
cI ' •••••
(~

~:m:

•

..,

~~i

02633
02634
02&35

1645
011214
5214

RIGHTS, TAD I STHR
ANO 1(770~
JMP SLRCOM

IGET LEFT HALF
ICLEAR ANV GARSAGE THAT MIGHT BE IN RIGHT HALF
IFLIP SWITCH AND RETURN

STHINI-USEU TO S~T THE HALFWORO ADDRlSS STORED INTO BV STH.
ION CALL,WORO ADOR IS IN AC,LI~K SET TO o FOR LEFT HALF,l FOR RIGHT HALF.

ISUNROUTIN~

02636
02&17
02640
132641
02642
02643

121000
3245
76]0
7040
3244
563&

STHINI, 0
DCA STHR
SZL CLA
CMA
DCA STHSWT
JMP I STHIIIII

ISTORE ADDRESS
IWHICH HALF TO STA~T
IRIGHT-SET STHSWT
ILEFT-CLEAR STHSwT
IOONE.

02&44

00013
0000

STHSWT, 0
STHR,
0

ISTORE HALF WORD SWITCH
IHALrWQRO POINTER FOR 5TH

02645

•

IOS/8 BASIC RUNTIME SySTEM

PA~8.V7

10/24/72

~AGE

ISUBHOUTINE LOW-SIMULATES AN AUTO-INDEX[NG LOAD HALF lNSTRUCTIUN. wHtN
ICA~~ED,IT LOADS THE NEXT HALFwORO INTO AC. TO CHANGE AODR~SS FROM
IwHICH IT LOADS,CALL LOHINI. OF MUST BE SET TO OF OF SOURCE UN CALL.
02646

C!J2641
21a650
212651
02652
02653
02654
212655
02656
02657
02660
Q126f:11
212662
212663
1/J26U

fl2665
212666
02661

02610
212671

0011J1'IJ
2647
13214

7640
5U5
171!1S

4544
f1107S
3 fllf:I 2
13214
7f/I4I!I
33214

U62
Uel
5646
1705

2]05
5255
]236
1247

1!12b73

U73
3241

02674
1112"75

5255

02612

-.....

02676

02671
0i!1fII0

123ft

•

TAO LOHSWT
SU CLA
JMP RIGHTL
TAO I LDMR
JMS I SSWL
LRSCOM, AND Ke077
DCA TEMPll
TAO LDHSWT
eMA
DCA LOHSWT
TAD TEMPl1
CDF
JMP I LOM\.
TAO I LOHR
18Z LOMR
JMP LRSCDM
DCA TEMP21
TAD LDMDF
TAD K00U
DCA LDHDF
TAD TEMP2!
JMP LRSCOM

IOF FROM WHICH TO GET wORDS
IWHICH HALF TO LOAD?
IRIGMT HALf
I~EFT

HA~F.GET

BOTH

ISWAP BYTES
IISOLATE CHAR
ISAVE
IFLIP LOHSWT

IRETURN
IGET WORD
I~UMP POINTER TO NEXT wORD
INO SKIP sa JUST CONTINUE
ISKIP MEANS wE HAVE TO BUMP LDM OF

IGET WORD AGAIN
IFLIP SWITCH AND RETURN

ISUBROUTINE LOHJNI-USEO TO SET HALF WORD ADDRESS LDH DRAWS FROM. ON CALL,
IAC.~ULL WORD ADORtSS,ANO LtNKa0 FOR LEFT HALF,l FOR RIGHT.
021210
3305
763121

021211
0271112
02103

5676

02104

021210

21iH05

00021

•

LDHL,
LDHDF,

7040
33214

LDHINt, 0 .
DCA L:.DHR
5ZI.; tL.A

CMA
DCA LDHSWT
JMP I LDHINI

LDHSWT, 0
LDMR,
0

ISAVE LOH ~OINTER
I\IIHIC", HALF?
IRIG"'T-LOHSWT-7177
ILEFT-LDIo4SWT8I/l
ILOAD "'ALFwORO SwITC'"
IHALFlt/ORD POI_NT~.!LEQ1L~~.·-~--

•

105/8 BASIC RUNTIME SYSTEM

'1,.k~1
~,A

ISUBROUTINE ~UFCHK.C~ECKS THE POSITION OF THE SUFFER POINTE~ FOR
ITHE DEvICE wHOSE 1/0 TABLE ENTRV IS IN WORKING AREA. ~ETUHNS TO CALL.1
IIF THE POINTER IS AT THE ENO ANO CHAR NUM8ER IS 1 (LAST
IAVAILASLE CHAR 1 HAS SEEN USED),CALL+2 IF THE POINTER IS AT THE
lEND BUT THE CHAR. IS NOT 1 (THERE IS 1 CHAR 3 LEFT), CALL+3
IIF THERE IS 1 WORD LEFT IN SUFFER,CALL+4 IF MORE THAN 1 LEFT.

0Z706
UTe1
02110
02111
02112
027U
02714
02715

0000
lUi!
1650
U21
11·0i!
1564

PJi!1U

0211 1
027i!0
02121
U72i!
lIi1i!3
02124
U7i5
02126

7450
5330
2306
i306
11181
16511
5706
i]06
5706

BUFCHK, 0
TAO ENTNO
SNA CLA
TAD MI<61
TAO 1<0400
TAD I WORDI
CIA
TAD I WORD3
SNA
JMP E8C
ISZ 8UFCHK
ISZ 8UI'CHK
lAC
SNA CLA
JMP I BUFCHk
IIZ BUFCHK
JMP I BUFCHK

02727

7461

MK61 ,

7461

02730
02131
027U
1127]3
02134

4551
571!16
1000
2306
5106

EBC,

JMS I CHRNOL
JMP I 8UfiCHK
NOP
ISZ BUFCHK
JMP I BUFCHK

7041
1566

IGET DEVICE #
lIS IT TTY?

IVES-CHECK FOR A BUFFER &0 WORDS LUNG
INO-CHECK FOR A ~UFFER 400 WORDS LONG
IADD LENGTH TO 8UFFER 'ADDRESS
I-ADDR OF END OF BUFFER
ICHECK AGAINST CURHENT POINTER
lIS POINTER AT END OF BUFFER?
IAT END-CHECK THE CHAR •
INO-SUMP RETURN
IWAS POINTER AT LAST WORD?
IVES-RETURN TO CALL+]
INO
IRE TURN TO CA~~+4

IGET CHAR #
lIT WAS i-RETURN TO CA~t.+l
lIT WAS ]-RfTURN TO CAU+2
lIT WAS Z-RETURN TO CALt.+Z

•

IOS/8 BASIC RUNTIME

SVSTE~

PALS.V1

10/24/72

PAGE 43

ISUBROUTINE PACKCH.PACKS ASCII C~ARS,3 FOR 2, INTO 8UFFE~ FOR THE
IDEV1C~ IN WORK A~~A. CALL WIT" THE CHARACTER IN THE At
02735
02736
02731
021421

02741
02742

1112143
02744

1112145

111111111111
3040
4551
741111
5346
lIIl40
4525
4765
5735

PACKI,;M, "
DCA TEMPt
JMS I CHRNOL
SKP
J~P CHAR3P
TAD TEMPt
JMS I \tjRITFW
JMS I CNOBMI<
JMP I PACKCH
CHAR'sP, CLA CLio eMA RAL
TAO I WORD]
DCA I wORD]
TAD TEMPt
CLL FITL
RTL

02U6
02'4'
027521
1112751
02752
1112753
IUTS4
82755
1112756
02757
02760
02761
021&2
1112763
02764

7344

021&5

5573

CNOBMK, CNOBML

1Il2Hlft

0000
0103
3001

15U

3566
lI/l4111
71 111ft
72106
3040
1040
4UEt
1040
710ft
701116
4366
4546
5735

DCA TEMP1

TAO TEMP1
JMS COHBNE
TAD TEMPt
CLL FlTL

InL

JMS CDHBNE
JMS I eNOCLL.
JMP I PACKCH

02772
0277 3
02174
02175

0101

1007
4525
576ft

eOH8NE, 0
AND K7400
DCA TEMPi!
JMS I BCGE1L
AND KQI377
TAD TE~P2
JMS I WIUTFW
JMP 1 COHBNE

21277'

3035

BeGETL, BCGET

02167
U170
02771

•

417ft

ISAVE
IDETERMINE CHARACTER NUM~ER
11

11 OR a-GET CHAR AGAIN

ISTORE IN BUFFER
IBUMP CHARACTEH NUMBER
IDONE

1-2 IN AC
IBACK BUFFER POINTER UP 10 POINT TO CHAR 1

ICHAR
ISLIDE LEFT HA~F INTO SITS 0-3
ISAVE
IISOLATE L~FT HALF,COM8INE WITH CHAR1,AND PUT IN FILE
ICHAR AGAIN

ISLIOE FlIGHT HALF INTO 8ITS 0-3
IISOLATE RIGHT HALF,COMBINE WITH C~AR a,AND PUT IN FILE
ICLEAR THt CHARACTER NUMBER (RESET IT TO 1)
IDONE

IISOLATE HALF IN QUESTION
ISAVE
IGET A WORD FROM FILE BUFFER IN FIELD 1
IFLUSH ANV SLUSH IN 81TS 0-3
ICOMBINE
IPUT IN BUFFER
IRE TURN

•

IOS/8

BASIC RUNTIME SYSTEM

PAL8-Y7

•

10/24/72

PAGE 44

PAGE

30130

IROUTINE TO READ WORD FROM FILE BUFFER AND BUMP POINTER
03111111111
111]1101

READFL, 13
JMS 1 FTVI..
III 30 III i
1410
SKP
IIIlIIIU 4516 YR,
JMS 1 ERROR
U0I!I4 iSU
TAO 1 1Il0RD0
UIIIBS 7lU
CLL RTR
1!I31/11/1& Tue
SNL CLA
U1II0'? 5212
JMP .+3
03010 451ft RE,
JMS 1 ERROR
111]011 5513
JMP 1 lLOOPL
nita 42]5
JMS BCGET
030U i566
lSI I wORD!
0311114 5&0111
JMP 1 REAOFL
03015 2351 FTYL,
FOTvPE
01111110
U1S

lIS FILE VARIABLE LENGTM
IYES-IT IS AN ERROR TO TRV AND READ IT
ICHECK IF MORE THERE
lEaF BIT TO LINK
IEOF?
INa-CONTINUE
IVES-ATTEMPT TO READ BEVOND EOF
INOT FATAL-RETURN TO I LOOP
IGET WORD FROM FILE BUFFER
IBUMP PonolTER
IOONE

IROUTINE TO RESET CHARACTER NUMBER TO 1
0311&
03017

1/1001/1

IIIUil

IUI/IS

1!Il0i! 1

J!5U
5616

nlZi

1563

CNOCLR, 1/1
TAD I wORD0
AND K7477
DCA I wORDe
JHP I CNOCLR

ISET CHA~ BITS TO 0
IRETURN

IROUTINE TO WRITE At IN FILE BUFFER AND INCREMENT POINTER
03123

un 1

1620
S&i3

031333

4516
5513

IIlRtTFL, 0
JMS I BCPUTL
lSI I wORD]
TAO I WON Or/!
CLL RTR
SNL CLA
JMP I WRITFL
WE,
JMS I ERROR
JMP I ILOOPL

032134

21747

BCpUTL, BCPUT

f/J]0i?4

1110111111

4614

03el5
0ni&

is ..

fIl30i?7
fIl3030

111.2

11303i

1563

ISTORE AC IN FILE BUFFER
IBUMP POINTER
IGET FILE HEADER WORD
IE OF BIT TO LINK
IWAS FILE PAST END?
INO-RETURN
IYES-ATTEMPT TO WRITE PAST END OF ~ILE
INON-FATAL RETURN TO ILOOP

IROUTINE TO GET ONE WORD FROM FILE BUFFER IN FIELD 1
03035
03036

2130]7

nUl
031/141
03042
03043
03044
1IJ30~5

0304&

0000
45i!3
15&6
32i!3
1162
7&41/1

&211
Ui!3
&l01
5635

BCGET,

"JMS

I FIOLE
TAD I WORDl

DCA TEMP17
TAD ENTNO
SZA CLA
CDF lIIl
TAO I TEMP17
COF
JMP I BeGET

ICHECK IF FILE OPEN
IGET READ WRITE POINTER
ISAYE
IGET FILE •
IIF TTY,8UFFER FIELD IS 0
IOF TO BUFFER FIELD
IGET WORD FROM BUFFER
IRETURN

•

IOS/8 BASIC RUNTIME SYSTEM

3023

•

TEMP17-WRITFL

•

IOS/8

•

BASIC RUNTIME SYSTEM

ISUBHOUTINE UNPACK·U~PACKS ASCII, 3 FOR « ,FROM
IWORKING AREA. RETURNS WITH THE CHAR IN CHAR.
0311)41
030S11
031151
030!ii!
03051

"01nl

4551
74111

5264

4704

032154
0305'5
0305&
03057

0101
3853
1853

U0U
12131161

7U0

4147

UI!J]

030l1i!

5543

0J0ftJ

5641

03064

4216

031166

1344
15.&

n0U

030&1

]566

03070

4'741

1!J]071

031!172
03073

03074
03075
03016

0103
3216
4141
0101

71U

03077

101Z
U16

03101
01102
03103

llU
70U
5256
7546
5573

UUl0

03104

UNPACK,

3016

U1ile,

'JMS
" SKPI CHHNOL

JMP CHARJU
JMS I CN08MP
JMS I RUDf'W
AND 1(0377
DCA CHAR
TAO CHAR
TAD MCTJfLZ
SNA CLA
JHP I EOII'SEL.
JMP I UNPACK

•
TH~

FILE IN THE 110

IIiET CHAR"
11
13

IBUMP CHAR NUMBER
IGfT CHAR AGUN
ISTRIP TO EIGHT BITS
ISAVE
IGET CHA~ AGUN
lIS IT CTRL/Z?

IYES·SET EOF BIT
IRETURN

CHARJU, JHS CNOCLR
IRE SET CHAR • TO 1
CLA CLL. CMA HAL 1-2 IN AC
TAO I WORD]
DCA I WORD3
IBACK BUFF~R POINTER UP 2
JMS I READFW
IGET LEFT HALF OF CHAR
AND K74I111
DCA TEMP18
ISAVi:.
JMS I READFW
IGET NEXT WORD WITH RIGHT HALF
AND K7400
IISOLATE RIGHT HALF
CLL RTR
RTR
ISLIDE RIGHT HALF OVER
TAD TEHP18
ICOMBINE WITH LEFT HALF
CLL RTR
RTR
IMOVE TO BITS 4-11
JMP Uli3C
IREJOIN MAINLINE
MCULZ, -232
CNOBMP, CNOBML.
TEMP 18.CNOCLR

IOS/8 BASIC RUNTIME SYSTEM

PAL8-V7

10/2~/72

PAGE

IREAU FUNCTION-GETS NUMBERS INTO VARIA~LES
1/13105
0310&

4550

03107

53i3
4547
711100
7000

031 HI
03111
IlIllU

1410

READl,

JMS I FTVPL.
SKP
JMP ASCHR
JMS I BUf'CHL
NOP
NOP
JMS I NEXREL.
JMS I HEAOFW
DCA t:XP
JMS I READFW
DCA HORO
JMS I READFIli
DCA L.ORO
JMP I lL.OOPL

lIS FIL.E NUMERIC?
IYES-WRITE DATA
INa-WRITE ASC II
IYES-CHECK BUFFER POINTER
IPAST END-NEXT RECORD
IAT ENO-NEXT RECORD
IONLY 1 WORD L.EFT-IT 15 UNUSED IN NUMERIC FMT
IGET WORO FROM FILE
ISTO~E A5 EXPONENT
IGET WORD FROM FILE
ISTORE AS HIGH MANTISSA
IGET WORD FROM FILE
ISTORE AS LOW MANTISSA
IDONt

JMS I FFlNL
JMP I ILOOPL.
FFIN

IUSE FPP INPUT TO GET NUMR~R
IDONE

03113

4552

!I.ll114
03115
0311&

4747
3044

nU7
03120
03121
0312a

3045
304&
5513

0lla3
03124
03t25

47~S

ASCHH,

5511
5200

FFINL,

0312&

fIIIiI0QI

03121

03130

4550
451&

03tl1

US]

4741

/ROUTINE TO fETCH AStII
GETCH, III
JMS I FTYPL.
SR,
JMS I ERROR
TAD CH,A.R

CHARACTERS FROM FILE BUFFER
lIS FILE ASCII?

INO-ERROR
IGET LAST CHAR
IWAS IT CR'l

03132

1055

TAD MilS

03133

7&50

03134

5143

03135

4547
4552

SNA CLA
JMP TTEST
IYES.IF TTY,WE MUST REFILL BUFFER
JMS I BUFCHL
INO-CHECK STATUS OF BUFF~R
JMS I NEXREL IL.AST CHAR READ-NEXT RECORD
NOP
ICHAR 3 NOT USED YET
NOP
ICHAR 2 AND 3 LEFT
JMS UNPACK
IUNPACK CHAR FROM 8UFFER
JHP I GETCH
IRE TURN

0313&

03137

7000

03140
03141

7011/0

4247

03142

572&

03143

11&2
7650

03144

03145

4524

031U

53]5

03147

3000

•

NTTY,

TTEST,

REAO~W,

TAD ENTNO
SNA CLA
JMS I OEVCAL.
JMP NTH

lEN TRY NUM8ER
lIS IT TTY?

IVES-FIL.L TTY BUFFER
IRESUME.

REAOFL.

•

105/8 BASIC RUNTIME SYSTEM

PALS-V?

10/24/72

•

PAGE 47

. ISTRINij ACCU~ULATOR LOAD
03150 .3US
03151 1111
03152 31/112
03153 1011
03154 J03i!!
03155 lUi!
03156 7650
03151 5513
031&0 lflU
fllltli SUS
I'IlltU UtlS
03161 1013
031t14 ]365
03165 1165
1113166 1472
031U UI/Il
03170 3412
01111 .UIH
03172 7410
03113 5513
03174 il071
03175 5J60
0317t1 S513

SLOAO,

SSLP,

LOAOOF,

DCA LOADorTAO SACPTR
DCA XRi!
TAD &TRCNT
DCA STRLEN
TAD STRLEN
SNA CLA
JMP I Il.OOPI..
lSI STRPTR
JMP LOAODF
TAD LOADDF
TAD K0010
DCA LOADDF

•

TAO I STRPTR

CDF
DCA I XRi!
lSI STRCNT
SKP
JMP I ILOOPL
lSI STRCNT
JMP SSLP
JMP I ILOOPL

IPUT OF FOR OPERAND FIELD IN LINE
IPOINTER TO START OF SAC
IPOINTS INTO SAC
IGET LENGTH OF THIS STRING
ISET THAT LENGTH AS LENGTH OF STRING IN SAC
IGET L~NGTH OF NEW STRING
lIS IT A NULL STRING?
IVES-WE DON~T HAVE TO MOVE ANYTHING
IPOINT TO FIRST PAIR OF CHARACTERS
15K IP MEANS WE HAVE TO BUMP OF
10F TO OPERAND FIELD
IGET i! CHARS FROM STRING
10F TO SAC FIELD
IPUT IN SAC
IOONE?
INO-TWO CHARSIWORD
/YES-NEXT INST
IDOES SECOND CHAR MAKE COUNT 01
INO-l.OOP
IVES-NEXT INST

•

105/8 BASIC RUNTIME

SYSTE~

3200

PAGE

PAL~.V7

10/24/72

PAGE 48

IWRITE FUNCTION-PUTS NUM8ERS IN FILE BUFFERS

03203

5211
4541

WRITtl, JMS I FTYPL
SKP
JMP PONE
JMS 1 BUFCHL

03204
IIJlUS

0240
0210

K240,
K0210,

1IJl200
03201
1!Il202

4550
1410

4552

0320&
03201
03210
03211
UU i!
03213
03214
nilS

4525
5246

03216

12&0

240
0210
JMS 1 NEXREL

TAD EXP
JMS I wRITFW
TAD HORD
JMS I WRITflll
TAD LORD
JMS I WRITFW
JMP WDONE

1044

4525
1045
4525

104&

ASCOUL, ASCOUT

IGET FILE TYPE
INUMERIC-WRITE DATA
IASCII
IFIL~ IS NUMERIC-CHECK BUFFER STATUS
IPAST END-NEw RECORD (AND I~ST SERVES AS NOP)
IAT ENO-NEw RECORD (AND SERVES AS NOP)
lONE WORO LEFT-OON'T USE Ir
IEXPONENT
IWRITE IN BUFFER
IHIGH MANTISSA
IWRllE IN BUFFER
ILOW ~ANT ISSA
IWRITE IN BUFFER
IDONE
ILIN~

TO FPP CALLER ANO FORMATTER

IPONE-CALLS ASCOUT TO GET NUMBER INTO INTERMEDIATE
IBUFFEH,THEN TYPES IT ON DEVICE
03211
03220
03221

133222
03223
03224

03225
0322.
03227

4&16
2061
1461
1251
11140
5221
1204

34&1
1001

03230
03231

1513

03i!3i!

1140

03233
1a3134
03235

4553

21323&

7650
5ii!44

1!I3237

1252

1461

PDNE,

JMS I ASCOUL
lSZ TEMP10
TAD I TEMP10
TAD MPLUS
SZA CLA
JMP MONE
TAD 1<240
DCA I TEMP10
MONE,
TAD TEMPi
TAD I WOR010
TAD Ml UI
SMA StA CLA
JMS I CRLF
CPLOUP, TAO I TEMP10

1055

03240
03241
03242

4ii!53
2061

03243

5234

1461

TAD MU5

IT PI.US?
INO-ITS MINUS
ISPACE
IREPLACE "+" wITH SPACE
IGET COUNT OF CHARS TO BE PRINTEO
IAOO TO PRINT HEAD POSITION
ICOMPARE AGAINST "12"
IWILL THE NUMBER FIT ON THIS LINE?
INO-ISSUE A CR,LF
IGET CHAM FROM INTERMEDIATE SUFFER
lIS IT CR?

SNA tLA
JMP ASCNDE
TAO I TEMP10
JMS PUTCH
lSZ TEMP10
JMP CPLOOP

IYES-NUMBER ALL OUTPUTTEO
INO-GET CHAR AGAIN
IPUT ON DEVICE
ISUMP POINTER
INEXT

032114

1204

03245

4253

0324.

3650

03247

5513

ASCNOE, TAD Ki!40
JMS PUTt ...
wDONE, OCA I CO~MAP
JMP I ILOOPL

03250

2557
7525

COMMAP, COMMAS
MPLUS, .. 253

1&70

MU0,

1113251
03252

•

IGET • INTO INTER BUFFER
IMOVE POINTER PAST SPACE THAT SENT US HERE
IGET SIGN

-110

I IS

IFOLLOW THE NUMBER WITH A SPACE
ICLEAR COMMA SWITCH
IWRtTE IS DONE

•

105/8 BASIC RUNTIME SYSTEM

•

IROUTINE TO PUT ASCII tHARS IN FILE SUFFER. IGNORES RuaouTS.
03253
el254

03255
03iU6
eliS7

03260
03261
1/J32&2
032U
032&4
032&5

03266
03i!67

03210
1!13 i! 11
03i!T i!
03273

0001!1

1301
7650
5'53
4550

4516
2573
1 UI2

455a

0040
0020
1040

4545
5653

03276

1040
4522

03301

SW,

1650
5216
4541

1!132 T4
0321S
03277
03300

PUTtH,

3040
1040

5653
7401

TOUT,

DCA TEMPl
IUV~ CHAR
TAO TEMPt
IGET CHAR AGAIN
TAO MRUBOT
SNA CLA
lIS IT A RU80UT?
JMP I PUTtM
I VE S.. R!:TURN
JMS I fTYPL
lIS FILE NUMERIC?
JMS I ERROR
/YES-ERROR
ISZ I wOR010
IBUMP COULMN NUMBER
TAD ENTNO
IGET ENTRY #
SNA tLA
lIS IT TTY?
JMP TOUT
IYES-JUST PUT CHARS IN RING BUFFER
JMS I BUFCML
INO-IS BUFFER FULL?
JMS I NEUEL IYES-NEXT RECORD
UJ
ITHERE IS A CHAR 3 LEFT (ANO IS • NOP)
20
ITHERE IS A CHAR 2 AND 3 LEFT (AND IS A NOP)
TAD TEMPI
IGET CHAR AGAIN
JMS I PACKL
IPUT IN BUFFER
JMP I PUTeH
IRE TURN
TAD TEMPI

JMS I XPUT

JMP I PUTC,",

MRUBOT, .377

IGET CHAR
IPUTCH CHAR IN OUTPUT BUFFER FOR TTY
IRETURN

•

IOS/8 BASIC RUNTIME SYSTEM

PALS-V7

10/24/72

PAGE 50

ISUBROUTINE NEXREC-WRITES THIS BUFFER IN FILE,THEN REAOS IN N~XT RUFFEW
IIF POSSIBLE,ELSE SETS EOF BIT, IF DEVICE IS READ OR WRITE ONLY
lIT JUST READS DR WRITES A BlOtK,WHICHEVtR IS APPROPRIATE

571/12

NEXRt.C, o
TAD I wORD0
AND K20
SNA CLA
JMP FILSTR
JMS I FOTVPL
JMP HONlV
JMS WR8LK
RWONt, JMS BLINIT
JMP I NflcREC

IGET HEADER
IGET READlwRITE ONLY BIT
lIS IT ON?
INO-DEVICE IS FILE STRUCTURED
IVES-IS IT INPUT DR OUTPUT FILE?
IINPUT-DEVICE IS READ ONLV
IDEVICE IS WHITE ONLY·WRITE THIS BLOCK IF USED
IINIT FILE TABLE ENTRIES
IDONE

0]314

4341

RONLY,'

03315

5312

IREAD BLOCK INTO CORE
lINn POINTERS

1/J3316
03317

4350

033U

0000

0l311lJ

03304
03305

1561
0iH2
?&S0

03306

5316

03307
03310
1/J3311

5314
4350

03312
03313

033ii!0
03321
03322
033i!3
03324
03325
1IJ33ii!6
1/13327

nnlll
03331

4743
43&1

4]U

n6S
1570
104l

1565
lIIl15

1511

4405
5332
4344
S702

nn5

4143
5543
1571
3015

033].

1572

1113331

4405

1/13341/1

5543

03341
03342

5702

1113343

ii!3S7

03332

n333
0]]]4

•

2571

JMS 5LREAD
JMP RWONC

FILSTR, JMS WRBLK
JMS BLINIT
lSZ I WORD&!
TAD I WORD'S

CIA

TAD I WORDi!
DCA BABS
TAD I WORD6
JMS I NUMCOM
JHP LASTB
JMS BLREAD
JMP I NUAEC
JMS I FDTVPl
JMP I £O"SEL
TAD I WORDt.
DCA BAas
TAD I WORD7
JMS I NUMCOM
JMP I EOFSEL
lSZ I WORDt.
Jf4P I NElCREC

IWRITE THE CURRENT BLOCK IF IT HAS BEEN CHANGED
IINIT FILE TABLE ENTRIES
IBUMP BLOCK "
ISTARTING BLOCK
INEGATE
ISUBTRACT FROM CURRENT BLOCK FOR FILE lENGTH
ISET UP CURRENT FILE LENGTH FOR 12 ijIT COMPARE
ICOMPARE TO ACTUAL LENGTH
lIS IT • CURRENT LENGTH?
IVES-EXTENO THE FILE IF IT IS OUTPUT
IREAD IN THE NEXT RECORD
IRETURN
lIS FILE FIXED LENGT~7
IVES-SET EOF FLAG
INO-GET ACTUAL LENGTH
IMAXIMUM LENGTH
lIS ACTUAL LENGTH •• MAXIMUM LENGTH?
IVES-SET EOF BITS
INO-BUMP ACTUAL LENGTH
IRETURN wITHOUT READING NEXT REtORD

FOTVPL, FOTVPE

•

IOS/8 BASIC RUNTIME SYSTEM

IROUTINE TO READ i PAGES fROM DE~ICE
03JU
03345

0334&
03347

21000
12215
45i!4
5744

BLREAO,

(II

TAD K01110

JMS I DEVCAL
JMP I 8LREAD

I"READ i PAGES"
IHANDLt:R CALL

IROUTINE TO WRITE i PAGES ONTO DEVICE
03358
213351

033!52
1/l3353
83354
03355

03356
03351
03360

021218
15&3

WRBLK,

0271

7&58
57521
1368
4524

5750
Ul0

1<4i!1IiI,

TAD I wORDe
AND KI(40
SNA CLA
JMP I WR8LK
TAD K4210
JMS I DEVCAL
JMP I WRBLI(

IGET FILE HEADER
IGET FILE wRITTEN BIT
IHAS THIS BLOCK BEEN CHANGED?
INO-RETURN
I"WRITE i! PAGES"
ICALL TO DEVICE HANDLER

4210

IROUTINE TO INITIALIZE 110 TABLE ENTRIES AFTER REAO OR WRITE
83361
033U
03363
1U3U
03365
e33U
213361
03370

210021
15U

BLINlT, 21

TAD I WOR01
DCA I WORD3
TAD I WaRDe
AND K7437
DCA I WaRDe
JMP I BLINlT

3566
1563
0310
356l

5761
7437

K7431,

IINIT READIWRITE POINTER
ISET CHAR * TO 1 AND CLEAR BLOCK WRITTEN RIT

1437

IROUTINE TO SAY! TH! FAC IN FP TEMP
1113311
03ni
03373
IUn4

0000
4535
115i
5771

FAtUV, 21
JMS I FPUTL
INTERB
JMP I FACSAV

ISTORE FAt
IUSE INTERMEDIATE BUFFER FOR TEMP STORAGE
IRE TURN

•

IOS/8

BASIC RUNTIME SYSTEM

PALS-V1

10/24/72

PAGE 52

1111111111111111111111111111111111111111111111111111111111111
1111111111111111111111111111111111111111111111111111111111111
111111111111 OVER~AV SUFFER 3400-4&00 11111111111111111111
111111111111 CONTAINS FUNCTION OVERLAYS 11111111111111111111
111111111111 AT RUN TIME
11111111111111111111
1111111111111111111111111111111111111111111111111111111111111
1111111111111111111111111111111111111111111111111111111111111

•

e·

•

IOS/8 BASIC RUNTIME SYSTEM

1111111111111111111111111111111111111111111111111111111111111
1111111111111111111111111111111111111111111111111111111111111
11111111111111 OVERLAY 1-ARITHMETIC FUNCTIONS 111111111111111
1111111111111111111111111111111111111111111111111111111111111
1111111111111111111111111111111111111111111111111111111111111

*OVERLAY

IINTEGER FUNCTION
IRANGE-ALI. X
03400

213401
03402
03403
1113404
03405
03406
03401
03410

0000
4535
1175

1044
112145
4531
5600

03413
1IJ]4l4

1045
7100

03415
03416
03417

5220
4540

1!134 i! 2
03423

03424
03425
034i!b
03417
03430
1!13431

1001
3042
3041
1130
3043
1044

7041
3001
1043
7130

3043

034n

1041

03433
03434
03435
03436

1010
3041
2001

1213437
03440

03441
03442
03443
03444
03445
03446

TAD HORD

7710
5210

03411

5221
1045
0043
3045
1046
0041

3046
1042

03441

1650
5600

03450
03451

4535
1172

JMS I FPUTL
FPPTMl
TAD EXP
SMA SZA CLA
JMP INSC

7740
5i!ll

0341i!

1213420
03421

INT,

I NSC,

SPA CLA
JMP M1R
JMS I FCLR
JMP lINT
TAD HORD

SMA CLA
JMP INTPOS
JMS I FNEGI.
lAC
INTPOS, DCA TEMP3
DCA TEMPS
CLL CMI. RAR
DCA TEMP4
TAD EXP

CIA

MASKL,

DCA TEMPi!
TAD TEMP4
CL.1. CML. RAR
DCA TEMP4
TAD TEMP5
RAH
OCA TEMPS

tsz TEMPi!

JMP MASKI.
TAO HORD
AND TEMP4
DCA HORO
TAO L.ORD
AND TEMPS
DCA LORD
TAD TEMP3
SIIIA CI.A
JMP lINT
JMS I "PUTI.
FPPTMI!

ISAVE X
IGET EXPONENT
lIS EXPc0?

lillO-GO ON
/YES
lIS

xen

/yES-INT·-l
IYEs-rU.TURN A 0
IGET HI MANTISSA
lIS IT C01

INO-USE FAC AS IS
IYES-NEGATE FAC (MAKE IT POS)
lAND SET FLAG
IFLAG FOR NEGATIVE
IZERO LORD MASK
IINITIAI.IZE HORD MASK TO 4000
I-

COUIliT

IROTATE 1'5 THROUGH 3 wORD MASK
I

IUNTIL THERE IS A COUNT OF ZERO
IOONE?
INO
/YES-MASK HORD
IMASK LORD
INEG FLAG
IWAS OijIGINAI. NUMER <01
INO-OONE
ISAV!: INT(X)

•

IOS/8

BASIC RUNTIME SYSTEM

0]4S2
03453
1/13454
03455
034Sft
03457
03460
034&1
11134&;!
03463

4&73

03464
03465

1045
4531
1042
7&5111
5264
4673

3474
4673

0346ft
U461
03410

01471

4534
3474

03472

5266

03473

6000

11]475

0001
2000

034,.

•

TAO HORD

DCA TEMP]
JMS I f'CLR
TAD TEMP]
SNA CLA
JMP JUSNEG
JMS I FADDLI<

3042

1172
4540
5600

03414

JMS I FADDLI<
FPPTMl

1175

0000

ONE

JUSNEG, JMS I FADDL.I<
FPPT"I2
JNEG,
JMS I FNEGL.
JMP lINT
MlR,

JMS I FGETL.
ONE
JMP JNfG

PAL8-V7

PAGE 'H .. 1

10/2'1172

I-INT(lC)+(X)
ISAVf HORD
IFLUSH fAt
IWAS INTCX).X?
IVES-JUST NEGATE JNT(X)
INO-ADO 1
IGET INTO()
lAND NEGATE (1N1(5.3) •• 6)
IOONE

ILOAO FAC WITH 1
IJUST NEGATE AND RETURN

FADDL.K, HADD
ONE,
1
2000
0

•

IOS/8 BASIC RUNTIME SySTEM

P~~8·V7

10124/72

•

p'GE 54

IEXPONENTIATION FUNCTION

IIF h0,A-S'1

IIF A.0 AND B~0,A·8'0
IIF A.0 AND 8c0,DIVIDE 8Y ZERO ERROR MESSAGE RESULTS AND A-H'0
IIF a'INTEGER ~ 0, A·B.AtAtA* ••••••• *A
IIF a.INTEGER c 0, A·B.1/AtAtA* ••••••• *A
IIF S.REAL AND A~0, A·B.EXPC8t~OGCA))
IIF 8'REA~ AND Ac0, A FATA~ ERROR RESU~TS
1113477

0000 UPON, III
JMS I FPUTL
IIJ]'
III 0 4535
1113501 11&1
FPPTM5

1113502
U5m
03504

4535
1164
1045

uses un

)064
4711
45]4
1!J301
1!Jl512 6Z"1
U513 1045
I!I]S14 1450
1113515 5711
1!J35 1& 7700
1113511 53i3
03520 un
03521 1&50
03522 5114
0150,.
1!Jl501
03510
U511

usn

03Si!4
03525
03526
03521
03530
03531
03532
B3531
U534
03535
1!l353&
US37

1277

7650
53&5
45]5
11"1
4200
4113
1161
1045
7UI!!

51&7
4534
11&1
1045

03540
03541
1IJ3542
03543
0]544
03545
03546
03547
1113550

3474

03551

4535

3277
4175
4535

U&7

4534
11&7
4773

JMS I FPUTL
FPPTM4
TAD HORD
DCA UPON
DCA INSAV
JMS I ARGPLL
JMS I FGETL
ARGPLL, ARGPRE
CDF
TAO HORD
SNA
JMP I RETRNO
SMA ClA
JMP ,.4
TAD EIIPDN
SNA ell
JMP I OVTIUP
TAD EIIPON
SNA CLA
JMP RET0
JMS I FPUTL
'PPTM3
JMS INT
JMS I FSUBLL
FPPTM3
TAD HORD
SlA eLA
JMP I U8ELOl
JMS I FGETL
FPPTM3
TAD HORD
DCA EIIPON
JHS I ABSV
JMS I FPUTL
FPPTM3
EMLOOP, JMS I FGETL
FPPTM]
JMS I FSUSLL
ONE
JMS 1 FPUTL

ISAVE A
18fT UP RUNNING PRODUCT IN CASE OF
IMUL TIPLIES
IHI ORDER OF A
ISAVE IT
IPOINTER TO B IN SYM801. TABLE
IFINO B
IGET B
II.OC SKIPPED BY FPP,SO WE USE IT FOR CONSTANT
IHI ORDER OF B
I IS 810'1
IYES .-B-l
I IS Be07
INO
/yES-GfT HI ORDER A
lIS AI01
IVES .. DIVIDE BY ZERO ERROR
IB~0, IS AI01
IVES A-8'0
ISAVE B
IGET INT(8)
IIIIIT(8)-S
I IS

INT (8) -81m

INO-Ust: LOGS
IYES-USE REPETITIVE MULTIPLY
IGET " AGAIN
ISAVE SIGN OF 8
1181
IUSE ABS(8) AS MUl TIPL Y COUNT
IGET B
IB-l

ISAVE NEill COUNT

•

10S/S BASIC RUNTIME SySTEM

03552
1113S5J
US!4
03555
0355&
03551
035&0

11f17
1045
7EI50
5770

035&1

11&1

FPPTM3
TAO HORO
SNA tL.A
JMP I EMDOtliL
JMS 1 FGETL
FPPTM4
JMS 1 FMPYL.
FPPTM5
JMS 1 FPUTI,.
FPPTM4
JMP EMLOOP

4534
11&4
4772

U5&2
015&3
03564

4535
11&4
5345

03565
US&&

4531
S51l

RET0,

JMS 1 FCLR
JMP I lLOOPL

03561

3 Ell 3

USELOL,
EMDONl,
RETRNO,
FMPYI.,
'8U81.1..,
DVTRAP,
ABSV,

USEI..OG
EMDONE
RETRN1
FFMPY
FFSU8
DV
A8SVAL

1!I357111

03571
1113572

r/l3571

1113574

03575

•

3U0
3610
5Ue
&111
U55
i!3U

PAL.S-V7

10/24172

PAGE 54-1

115 COUNT ZERO YET
IYES-MUL.TIPLIES ARE DONE
INO-GET RUNNING PRODUCT
/MUL TIPLY BY A
ISAVE NElli ftUNNING PRODUCT

/RETURN WITH 0 IN FAC

•

loS/8 BASIC RUNTIME SYSTEM

1!J3600
03601
03f111JZ
03f10l
IIlU4

3600
4534
1164

lU0
7700

1!J3605

5513
4631

U6IIJ6
03607

5513

03610
03611
0361Z

036U
1!J3614
01615

03616
031117

3474

4534
3474
5513

lUI/)

7710
4516
4534
1161
46i6

03UI
nUl
I!J3Ui
U6U

4U5

03624

5513

4627
1167

nU5

4UI/)

03U6

4263

1!J3627
0363111
03631

5600

3417
5412

PAGE
EMDONE, JMS I FGETL
FPPTM4
TAO I EXPONK
SMA CLA
JMP I ILooPL
JMS I FIDVP
ONE
JMP I IlOOPL

RETRN1, JMS I FGETL
ONE
JMP I IlOOPL
USELOG, TAO I EXPONK
SPA CLA
EM,
JMS I ERROR
JHS I FGETL
'PP1"5
JMS I FFLOGL
JHS I FMPVLV
FPPTM3
JMS I FFEXPl
JMP I ILOOPl
FFElCPL,
FFLOIIL,
FMPVL.V,
EXPIONIC ,

FIOVP,

PALS-V?

10/24/72

•

PAGE 55

IGET RUNNING PRODUCT
I~ET SIGN OF B
IWAS IT -1
INO.A·~_A.A.A ••••• A
/YES-INVERT

ISET FAC TO
ISIGN OF A
IAclll?

IYES-PRINT A MESSAGE
ILOAD A
ILOG(A)
IhLOG CA)
IEXP(hLOGCA»
IDONE

FFEXP
FFLoG
fFMPY
EXPON
FFOIV1

IIGN FUNCTION
0363i
03Ul
03U4
03635

1/J1IJ00
1045
7450
5513

11]6036
0363?

7710

03641/)

5iU
711101

I/IlU 1

74tra

03642
11136413
1113644
036415

711140
311144
4541

5513

8GIII,

I/)

TAO ~DRD
SNA
JMP I ILOOPL
SPA ClA
JMP .+3
lAC
SICP
eMA
DCA flCP

JMS I FLOATL
JMP I ILOOPL

IGET HIGH MANTISSA
lIS )(IZERO?

IVES-TMEIII LEAVE IT ALONE
lIS

)llIo0?

INO
I VES-SET F AC-l
INO-SET FAC-.l
ISET UP FLOAT
IFLOAT VALUE OF SGN FUNCTION

100NE

•

IOS/8 BASIC RUNTIME SYSTEM

PALS-V7

10/24/72

PAGE 5&

IFZERO EAE c
IFLOAT1NG SQUARE ROOT
IUSES A HAROWARE TYPE ALGORITHM FOH BINARY SQUARE ROOTS
IREF. THE LOGIC OF COMPUTER ARITHMETIC-IVAN FLORES-P 4~q
I

0000

13Ut.
036117
nU0

1332

03651

nn2

3316
.201

n.ss

3042
U4S

nU3
UU4

FROOT,

3375

ens&· 7450
un7 5646
n •• 0 7710
03&&1

nU2
nU3

454111
lB44

7510

n&u TIn 0
03&&5 1110
nu& 3044
U&U

74]IIJ

nUB
nUl

2044

B]6lTi!

1000
74i0

Bun
UU4

nus
e]6n

4774
1344

03676

3373
1332

0nBI

3e5B
leSt
UTa

U1G!1l

U70Z
0311113
1113704
1IJ310S
1IJ371!1f.1
rn107
913110

03'711

?eli!

111145

3045
IUS
7450

lB46
7650

U7U

5365
5322

U714

1110

03115

3050

0311&

1051
lIl111
3051
4714

eJ1t3

nH1
0372B
03721
0372l

03723
037i4

03725
03726
n727

•

lIII50

1051
131.
7141
lIII46

1450
2373

SLOOP,

LOP01,

CLA ClL CML RTR ISET RESULT TO 200010@00
DCA
ANt
DCA
ANi!
COF
10F TO PACKAGE FIELD
KM22
TAD
ISET COUNTER FOR DEVELOPING 22 BITS OF RESULT
DCA
AC2
/ALREADY HAVE 1
ACM
TAD
SNA
JMP I
FROOT
IZERO FAC·NOHMALIZED'~RETN. SAME
SPA
CLA
JMS I
FNEGL
ITAKE ROOT OF Aaso~ VALUE
ACX
TAD
IGET EXPONENT OF FAt
SPA
II' NEGATIVE-MUST PROPAGATE SIGN
eML
RAR
IDIVIDE EXP. BY 2
DCA
AClI
ISTORE IT SACK
SZL
IINCREMENT EXP. IF ORIGINA~ ElIP
ACX
lSZ
IWAS DOD
NOP
SNL
100 A PRE-SHIFT FOR EVEN EXPONENTS
JMS I
ALtK
ISO FIRST BIT PAIR IS 10 NOT 01
CLA CLL CMA RAL 15ET COUNTER FOR DETECTING A
DCA
zeNT
IZERO REMAINDER
CLA CLL eML RTR ISET UP POSITION OF TRIAL BIT
RTR
IFOR FIRST PASS THRU LOOP
DCA
OPH
DCA
OPL
TAD
1C&0IB0
IGET A FAST FIRST SIT-WE KNOW
ACH
TAD
ITHIS wILL WORK SINCE # IS NORMALIZED
DCA
ACH
IIF # IS A POWER OF TWO, AND A PERFECT
ACH
TAD
ISQUARE-WE ARE DONE HERE'
SNA
IWELL IS IT?
TAD
ACLO
ICOULD BE-CHECK LOW ORDER
SNA
ClA
JMP
DONE
IWHOOPPEE-wE WIN BIG.
JMP
LOP01
INOPE-LOOP DON'T SHIFT FIRST TIME
TAD
OPH
ISHIliT TRIAL BIT 1 PLACE
RAR
eLL
ITO THE RIGHT
DCA
lAND STORE BACK
OP'oI
TAD
OPL
RAR
DCA
OPl
JMS I
ALIIC
ISHIFT FAt LEFT 1 PLACE
TAD
OPL
IADD THIAL 8IT TO ANSWER
AN2
TAD
ISO FAH
Cll CMA lAC
INEGAH. IT
TAO
ACLO
lAND AOD TO FAC (REMAINDER so FAR)
SNA
115 RESULT ZERO?
ZCNT
lSZ
IYES-INCREMENT COUNTER

•

101/1 BASIC RUNT!ME SYSTEM

13130

3043

DCA

PALS-V?
TM

•

18Ji4/7i

PAGE 5&-1

ISTORE RESULT IN TEMPORARV

•

IOSl8 BASIC RUNTJME SYSTEM
nUt

nne

83133
83134
13735
13U6
111]1]1
13140
n141
111]142

1374J
03144
In4!
1S'P46

13747
83751
03151

74121

SUt
7440

5]46

lIIIU

7U14
1]76

03155

3376
1050

83n4
U156
U157
13160
03161
UUI

U1n
03164
83165
03766
n161
8]n21
03771
una
8]71l
1113774
1]175
n716

03171

LOP0i,

311146

nU2
0n53

Hl04
U75
3375

1]44
3371
ilfl42

5313
U75
3845

GON,

DONE,

131.
lIU

51146
60121111

82180
&057
1/1 21 IUJ
1/11/101/1
775i

PAGE 57

IAOD CARRY TO HIGH ORDER FOR SUBTRACT
RAL
OPH
IADD TRIAL BIT
ANI
TAD
IADO RESULT SO FAR (HI ORDER)
CLL CMA lAC
lAND SUBTRACT FROM HI OROER FAt
TAD
ACH
SNL
IRESULT NEGATIVE?
JMP
GON
IYES-NEXT RESULT BIT IS 0
SlA
INO-IS HI ORDER RESULT80?
JMP
LOPli!
INO-GO ON
zeNT
ISZ
IYES-WAS LOW ORDER 807
JMP
.+3
INO-GO ON
eMA
IYES-REM,8e-SET COUNTER SO
DCA
ACe
II.OOKS LIKE WE'RE DONE
[tCA
ACIot
ISTORE HIGH ORDER REM. IN FAt
TM
TAO
ISTORE LO ORDER REM. IN FAt
DtA
ACLo
TAD
OPL
ITRIAL BIT SHIFTED LEFT 1 IS
HAL
eLL
IRESULT BIT-ADO IT TO ROOT DEVELOPED
TAD
ANi!
ISO FAR
DCA
ANi!
TAD
OPH
RAL
TAD
ANt
DCA
ANt
eLA eLL eMA IUL IRESET COUNTER FOR ZERO REM~
DCA
zeNT
AC2
lSZ
IDONE ALL il3 RESULT 8ITS?
JMP
SLOOP
INO .. GO ON
TAD
ANI
IYES·STORE ANSWER IN FAC
DCA
AtH
IITS NORMALIZED ALREADY
ANi
TAD
DCA
ACLD
JMP I
IA",O RETURN
FRDOT
TAO

1375
714t

3045
U43

10124171!

CMI.

7024
USI

5U6
7041
31U

PAI.S-V7

K600W,
zeNT,
AL1IC,

III

.... 1,

III

ANi,
KMi!Z,

60021
ALI
0
.26
II

•

IOS/8 BASIC RUNTIME SVSTEM

PALe-V?

IFNZRO EAE c
e;NPUNCH

•

10/24/72

PAGE 58

"LaAT~NG SQUARE ROOT
IUSES MODIFIED HARDWARE ALGORITHM FOR 8INARV SQUARE ROOTS
IRE" THE LOGIC 0' COMPUTER ARITHMETIC-IVAN FLORES, P-409
dGN.14
II'''OOT, II
eLA eLL CML RTR ISET RESLT TO 2000,0000
DCA
OPL
OPH
DCA
SWAB
IMOOE B OF ElE-ALSO DOES MQL

eo,

DCA
TAD
DCA
TAD

R8CNT
KMi!2
ACi!
AtIC

1
DCA
DPSl

AtIC

AIR

ISZ

NOP
MQA

ACIC

eLL

RAL
CHL
RAL
RKNT
OCA
CLL CMI. RTR
RTR
DCA
ACI
DCA
Ace
ACNT
DCA
DLD
AtH

swp

RICNT,

LOOP,

LOP1,

SNA
JMP I
SPA
OCM
SHL
0
TAD
OPSZ
JMP
JMP
OLD
ACH
8HI.
1

DST
AeH
DLD
AC0

FRDOT

K6rUHII

LOP1
DONE

•
"

ICLR. SHIFT COUNTER
ISET COUNTER FOR 23 SITS Of RESULT
IGET EICPONENT OF FAC
10IVIDE BY 2
ISTORE IT BACIC
I INCREMENT EXP. IF ORIG, EXP
tWAS ODD
IDETERMINE WHETHER TO 00 A
IPRE-SHIFT FOR EVEN EICPONENTS.
ISTOREBIT-0 OR 1 SMI'T tNT
ISET UP FIRST TRIAL BIT
ISTORE AWAY
IZERO COUNTER
IGET THE FAC
IGET IN RIGHT ORDER
lIS IT ZERO? (HI OROIl0)
IVES-ROOT • 0
INEGATIVE!
IYES-TAKE A8S01.. VALUE
ISH 1FT , 1 BIT IF EXP WAS EVEN
ISO FIRST BIT PAIR IS 10 NOT 01
ISUBTRACT i00e-KNOW FIRST BIT
lIS 1(NORMALIZEO)-DONE??
INO-WE MUST LOOP
IVES-AN EASY ONEill
IGET THE FAC
ISH 1FT FAt APPROP~UTELV
IMUST STOR SACK. IN CASE RESLT
IBIT IS "
IGET TRIAL BIT

101/8 BASIC RUNTIME SYSTEM

ACNT,

PALa-v?

AIR
81

ISZ

ACNT

OPH
OCM
lSl

ISHIfT 1 MORE NEXT TIME
IADO I~ RESULT SO fAR

R8CNT

AtH
SNL
JMP

INEGATE IT
18UMP COUNTER fOR REILT BIT
100 THE SUBTRACT

GON

IRESULT NEGATIVE?
IYES-NEXT RESULT eIT • 0

NOllRO

INO-OID WE GET A ZERO iEMAINDER?
INOPE
IVES-SET SO LOOKS LIKE WE'RE DONE

DAD

DPSl
JMP
CMA
DCA

NOTZRQ, DST
AeH
CAM
RTR
ASR
RBCNT, iii

GON,
DONE,

PAGE 58-1

IShIFT THE BIT APPROPRIATELV

DAD

ZREM,

10/24/72

Aei!

IGOOO SUBTR.-MODIFV FAC
IITS Nor CHANGED BV BAD SUBTRACT
ICLEAR EVERVTHING
ISH 1FT RESLT BIT TO RIGHT PLAC~

DAD
OPH
DST
OPH

IAOD IT TO THE RESULT SO FAR
IWE APPEND IT TO RIGHT OF LAST
IBIT

III

ACi!
LOOP

ISTORE IT BACK
100NE i!3 BITS?
INO-GO ON
IVES-GET RESULT-ITS NORMALIZED

DCA

ACH

ISTORE HIGH ORDER BACK

ACLO
FROOT

ISTORE LOW ORDER BACK
IRETURN

JMP
OLD
OPH

SNP

KMl2,
K60!IJ0,

DCA
JMP I
.26

60 iii 0

NDPUNCH
:.

•

101,. BASIC RUNTIME SYSTEM

PALa-V7

12]-SIT EXTENDED FUNCTIONS

11-31-72
4e0e

•

10/i!4/72

PAGE 59

•

R BEAN
*4080

I******SINE******
04e00
040el
f14002

0000

04004

4111

JMS NHNDLE
JMS 1 F"'PVLI<
TOVPI
JMS FIUCT

04805

1313

TAD NUM

euu

4661
4160

114006
84007
84010
U011

11121111

1114012
fJ4I!I 13

5U3

04014
IU0lS
!!lUll 6

3211
5211

0411111

U&3
3414
SU6
4540

04i24

522f1

1114025

U64
3474

111411126
04021
04010
IU011

4535
1175
4&65
4535

84032
041213]
UIZIl4

4661
4171

04e3!i

4f1U

0412136

4374

e4U7

4661

111411140
04041
0404i!

UTi
4660
4371

114003

4&61

1114044
1114045
0404&
041!147

1114050
8U1St
04052

JMP!SN, JHP I

4026
411117
411112
4024

04010
11411121
04022
04023

AND C3
TAD JMPISN
DCA ,.1
JMP •

Uta

46&0
43&6
U&1

1175

4111

SU0

,+1

POLUN
QUADi!
QUAD]
QUAD"

IIF XC0,NEGATE X AND SET NFLAG
Ix*VPI
ISAV~

X IN TEMP1,THE INTEGER PART OF X IN NUM,ANO GET FRACTIONAL PART
IGET INTEGER PART OF C2/PI,*X
IISOLATE BITS 10,11
'MAI(~ JUMP TO ARGUMENT REDUCING ROUTINE
,AND ADJUST ARG ACCORDING TO QUAORANT OF X

IX IN QUA01,SIN(X)-SINeX)
IX IN QUAD2,SIN(X)aSINel-X)
IX IN QUAD3,SIN(X)-SIN(-X)
IN QUAD4,SIN(X'.SINCX-l)

QUADi,

JMS I FSU81L
ONE
JMP POLVSN
QUADl, JMS I FNEGL
JMP POLYSN
QUAD4, JMS I FSUIL
ONE
POLVSN, JMS I FPUTL

ICALCULATE SINet-X)

,-X

ICALCULATE SINe-X)
/)(-1

ISAVE X

FPPTMI

JMS I FSQRL
JMS I FPUTL
FPPTM2
JMS I FMPVLK
SINA?
JMS I FADDL
SINAS
JMS I FMPYLk
FPPTM2
JMS 1 FADDL
SINA3
J"'S I FMPVLK
FPPTM2
JMS I FADDL
SINAl
JMS I FMPVLI<
FPPTMI
JMS NCHk
JMP I SIN

IUah*i
ISAVE U
IAhU

IAS+AhU

IA3+A5(U).A7(U**2)
IA3(U).A5CU**2).A7CU**3)
'Al+A3(U)+A5(U**i'+A7(U**3)

IIF NFLAG IS SET,SET SIN(X)a.SINeX)
IFAC-SINeX)

IOS/8 SASle

RUNTIME SySTEM

PALS-VT

10124/72

PAGE SQ-1

/******COSINE******
IUSES SIN ROUTINE TO CALCULATE COS(~)
041153
0411154
14055

un6

1411157
0411.11

1U0. t
0UU
I/140U

04064

5.53
.1111111
!U.01
SUi
5400

'4166

4S00
5412
IIU

JMS I FADDL

PIDYi
JMS SIr..
JMP I COS

UIIII

111411711

COS,

4482

114165
04067

•

1101111
46ft0

ICOS(~).SIN[PI/2.~)

IRETURN

FADOL, FFADD
FMP'ILK, ,FMP¥
FOIYL., FFDIY
FSUB11., ,FSUBt
FSU8L. FFIU8
FIQRL, FFSQ
FUL,

FFlII

el,

FDIY1L, HOIYl

•

lOll' BASIC RUNT 1M! SYITfM

'ALS-V7

•

10/i4/72

PAGE 60

IROUTINE TO SEPERAT! THE INT~GER AND FRACTIONAL PARTS OF FAC
IORIGINAL FAC IS SA~EO IN TEMP1,THE INTEGER PORTION OF FAt IS
ISAYED AT NUM,AND THE FRACTIONAL FORTION OF THE FAC IS LEFT IN THE FAC
841171
84172
lUlU

14014
1141175
1Il076

IIJ"II
4535

FUCT,

JMI I FPUTI.
FPPTMl
JMI I FIXI.
TAD EXP
DCA NUM
JMI I FLOATL
JMS I FIUBI!.
FPPTMI
JMP I fRACT

1115
4&66

1044
3313
4S4!

"41.,.,
"UfJ 4663
84!fJ 1
041'"

1175

5671

ISAVE X
IINTEGER PORTION OF X
ISAVE FIXED FORTION OF X
IfAC-FLOATCFIXCX»
IFAC-X-INT(X).FRACTION (X)
IRETURN

IROUTINE TO CHECK IF FACel, IF IT IS,FAC IS NEGATED AND NFLAG IS
ISET TO 1
04101

0110

041e5
134 till 6
!/J4 till 7

U45
1'11/10
5311
4540
7!lJ01

14l1/J4

0U10
1/14111

041U

Ui0
5701

NIoINDI.E, 0
TAO HaRD
IMA tLA
JMP NFLGST
JHS I FNEGL
lAC
NFLGST, DCA NFLAG
JMP I NHNDLE

IF~TCH

lIS IT

HIGH ORDER MANTISSA

ern

INO-CLUR NFLAG
IYES-NEGATE FAC
OND SET NFLAG

IROUTINE TO NEGATE FAt IF NFLAG IS NOT ·0
.. Ill
11411 4

0"00

1320

NCHK,

ILOC ALSO USED FOR TEMP STORAGE
I IS

TAD NFLAG

14116

U40
4540

04117

511.3

IU CLA
JMS I 'NEGL
JMP I NtMIC

4113

NUM-HeMIC

04115

NFI.AG-I/I?
INO-NEGATE FAC
IYES-RETURN

•

/OS/8 BASI~ RUNTIME SYSTEM
I******EXPONENTIAL******
04li0

011100

04121
IIIIUZ
1114123
14124

4ft"
4405

UU5
04 12ft
1114127
04U0
.04131
04U2
Ul]]

14134
0413!
l413ft
04U7

14,4111
04141

0414i
04143
04144
U14!
041 . .
04147
G!l41SI
84151

04152
1114153
141!i4
04155
U1U
IIIU57

4271
46ft 1

45]5
111'5
4U5
46U
4413
46U
441ft
4&6111
44U
4U4
U15
4535

45]4
1175

2044
711100

1172

46U
3474
46ft 5
1313
1044
3044
5720
4li!0

0416111
lil"
Ul.,

•

0000
i!427

UI2

UPON1, 0
JMS I FMPYLK
LOGlE
JMS fUCT
JMS 1 FMPYLK
,-N20Vi!
JMS I FPUTL
FPPTMI
JMS I F'IiIRL
JMS I fAoDL

ILOC USED FOR TEMP STORAGE 8Y SIN,ARCTAN
IY.XLOGZ (E)
IGET FRACTIONAL PART OF Y
ICfRACTION(Y»*(LNi/2)

ISAVE Y

EXPSI

JMS 1 FoIVlL
UP'l

JMS 1 FADOL
£l(PAe
JMS 1 FSUBL

IA0.Al/(81+Y**2)

JMS 1 FPUTL
FPPTM2
JMS I 'GETL

ISAVE

,PPTMI

IGET Y

FPPTMI

ISZ EXP

NOP
JMS I "01111.
f'PPTM2
JMS 1 FADOL
ONE
JMS 1 trSQRL
TAD HUM

11+2Y/(AO-Y+Al/(8t+'**2»

TAD EXP

DCA EXP
JMP I UPONt
NFLAG-EXPONl
ICONSTANT TWAT WOULDN'T FIT tLSEWHERE
TOIIPI, ra
I.Uf)6198
24Z7

U02

•

101/8 BASIC

RU~T!M!

SYSTEM

PALS-Y7

4200

IU00

00110

14201
IIUI/J2

46&1

4535

1142n
1114204
IU05
111420'
!/lU01

1710

14210

SUB

- 04111

!/l4214

45]4
3474
Uft0
1175

!/lUtz
IUZU

1175

47&2
1045

Ql4215

4535
1175

04211
1112211
I4Ul

liU

14124
14ll!
I!IlIi2'

JMP ARGPOL
.sMS I FGETM

1175
4164

4535
1172

4751

IIF xce,SET NFLAG AND NEGATE
ISAVE X

IGET HI MANTISSA
IWAS X.l1
INO-CLEAR GTIFLG
IYE5~ATAN(X'.PI/2·ATAN(1/X)

ONE
JMS I FOIYM

II/X

lAC

15ET GTlFLG

ARGPOL, DCA GTIFLG
JMS I FGETM
FPPTMI
JMS I FSQRM
JMS I FPUTM
FPPTMi!
JMS I FADDM

14227

4114&
lIT &1

04231
04i!JZ

4443

ATA~A3

4151

JMS I FADOM

lun

PAGE 62

FPPTMI
JMS I FPUTM
FPPTMI

TIll 1'111

4534

!/l
JMS I IIIHNDLL
JMS I FPUTM
FPPTMI
JMS I FSUSM

ONE
TAD HORD
SPA eLA

3474

0UU

14222
042i3

ATAN,

•

10/24/72

ATA~B3

JMS I FDIYIM

IGET X OR I/X

1"**2.83
I All (Vi*i.B3)

04233
04234

44411l

ATANU

4751

1114235
U2U

1172
41&1

14237
04i!10

4435
4751

JMI I FAODM
FPPTM2
JMS I FOIV!M

04241

.sMa I fAODM

4432

ATA~Bl

Ui!42

4151

JMS I FADOM

04243

1172
4161
4427

FPPTM2
JMa I FOlvlM

4751

JMS I FADOM

IS0+A1/(V**2+SI+A2/(V**2+B2+A3/CY**2+S3»)

ATANIUI
JMS I FMPYM

/ATAN(Y).X*C60+A1/CV**2+81+A2/CY**2+B2+A3/CY**2.H3»»

04244

1114245
0424'
04241
042511

1114251
U252
04253

ArANAi'!

USB
5251
41U

04254
0US5
111425(1
!/l4257
04260
042&1

4&62
5ft00
4103

04i!ft2

4113

4402

IA2/CY**2.B2+A3/(Y**2+S3»
IB1.A2/CY**2.Sc+A3/(Y**2+S3»
IY**2.S1.A2/CY**2+S2+A3/(y**c+B3»
IA1/(Y**2+Bl+A2/(V**2+~2+A3/(Y**2+a3»)

ATANAI

4424
415ft
1115

IY**i+S2+A3/CY**2+B3)

FPPTMI
TAO GTlFLG
SNA CLA
JMP NGT
JMS I FIUBIM
PIOY2
NGT,
JMS I ~CHKL
JMP I AUN
NHNOI.L, NHNDLE

IIICHI<I.,

NCHK

IWAS X.l?
INO-TEST IF X<07
IATAN(X).PI/2-ATAN(1/X)
IIF NFLAG SET,NEGATE FAe
IFAC.ATAN(X)

•

108/8 B1SIC RUNTIME SYSTEM

PA~8.V1

10/24112

PAGE &3

I******NAPERIAN ~OGARITHM*.****
420111

IUU
aU.4
IUEtS
04U6
14267
1IJ4i!18
IIIU71
1IJ42'1Z
1114273
11111274
llloU7S
1114276

84171
11143111111
111431111
11J4302
1114303
141114
111411/15
111411116
111431/11
0431111
04111
04312
04313
1114314
1114115
04316
04317
1110321
04321
14322
0Un

If'.'

SNA

TAD EXP
eMA lAC
lAC

74se

SNA

1046
7U0

SU CLA

5314
3044
l046
311J4S
56U
1044

12111e
3044
4535

lin
0757
4451
4535
1172

45]4
1175
476i!

4454

111414111
04341

415&

04143
flU44

T10 HaRD

745a
1044
1841
700t

043]7

14342

SPA SNA

IIJIUli!
111433]
11.14334
04335
043]6

011li!4

LOG,

7550
5765
7U16

4451
476a
1112
45]5
1175
4164
4535
1172
415.
4462
4757
4457
475.
1172
4757

00325
04326
04321
04330
04331

•

100111

1175
4762
4465

4535

JMP I ARTRAP
C~L RTl

IlCelll OR X.0'l
IYES-TAKE ILLEGAl. ARGUMENT TRAP

INO-HOHO.alllllll?
IYES-EXP.U

TAD LORD

JMP POLYNL
DCA EXP
DCA LORD
LTRPRT, DCA HaRD
JMP 1 LOG
POLYNL, TAD EXP
DCA GTFLG
DCA El(P
JMS 1 fPUTM
FPPTMI
JMS I FADDM
SQRPS
JMS I FPUTM
fPPTM2
JMS I FGETM
FPPTMI
JMS I FSU8M
SQRPS
JMS I FOIVM
FPPTM2
JMS I FPUTM
FPPTMI
JHS I FSQRM
JMS I FPUTM
FPPTM2
JMS I FMPYM
LOGCS
JMS I FADDM
LOGe]
JMS I FMPYM
FPPTH2
JMS I FADDH
LOGel
JMS I FMPYM
FPPTMI
JMS I FSUSM
ONEHAF
JMS I FPUTM

INO-ARG IS LEGAL AND NOT 1

IYES-1.0G (1)-0
ISAVE EXPONENT FOR LATER
IISOLATE MANTISSA IN FAC
ISAVE F

ISAVE

IP:.SQR (.5)

IZ-'+SQRC.S)/F-SQR(.5)

It5 (Z**2)

IC3"'C5(Z"2)
IC1CZ**2)+C5CZ**4,
IC1"'C3CZ**2)+C5CZ**4)
IC1CZ)+C3(Z**1)+CS(Z**5)
IC1CZ)+ClCZ**3,+C5(Z**S)-1/2 a LOG2(F)

•

ISAVE LOG2CF)

•

IOSl8 BASIC RUNT 1M! SYSnM

8un

14346
84547

117i!

12ee

3044
4541

14151
04351
IOU
0US!
14154
04355

5661

un.

56111111

14351
0un
04361
Ul62
04363

IUU
04365

4157

1172
4756

4470

42U
6001

5122
54U
6111
5400
&J4?
6360
0134
0141
0135

FPPTM2
TAO GTFI.G
DCA EXP

JMS J nOATM
JMS J PAODM
'PPTM2
JMS J FMPVM
LNi!
Jf4P 1 LOG
GTlFLG-LOG
FMPVM, ,FMPY
'ADDM, "AOO
FDIVM, "DIV
FDIVlM, "DIVI
FSUBH, FFSUB
FSUB!M, FFSUBt
FSQAM, FFsO
ARTAAP, LM
FGETM-FGETL
'LOATM-FLOATL
FPUTM-FPUTL

PALS-V?

•

10/i4/72

PAGE 63.1

ISET UP FLOAT

I1+LOG2 (F)
IEI.LOG2CF1J*LOGEC2)-LOGE(X)
IF AC-LN O()

•

IOS/8

BASIC RUNTIME SYSTEM

PALI .. Y?

10/24112

PAGE U

ICONSTANTS USED BY VARIOUS FUNCTIONS
114366
IIIU61

I/Iun

un1

01110!
Jill
3U1
1111111110

0U12

S3ZS

lUlU
04374
114375
84316
0un
04400
04401

11&1
7775
242&
241>6
1771
5ft10
3164
01110\

1114403
04404
1141405
0440&
04407
04410

3110

04402

04411

24]4
7777

1/11415

0U16
04417

5!14

0012

SINU,

3147
0
5U5

1 ... &4592098

SINn,

7ns

1.079487&&

11&1

2426

2466
SINH,
PIOVi,

1'771
5&10
1164
1

1-.0043&247&
11.57079&3

3110

LOGiE,

375ft
1
2705
24]4

LN20Y2, 1777
2613
4415

EXPB1,

1.34&57359

160.090191

Ii!

1 .. 601.80427

361112
7154

EXPAl,

11.442&95

5514
3104
4
3101

112.015017

771ft

ATANSI, 1776

1.174&5544

i!U6
fJ151
a0iai!
S551
1071
0003
3303
GlltT0

2fJ2ft
US?
ATANA1, 2
3553
1071
ATANiSl, 3

041420

l104

04421
lun
l44n
1/)11424
114425
04426
04427
04431
1U4]1
04412
04433
04434
04435
044]fJ
04431
04440
1114441
144U

1IIIJ04
3001
UI/Il

Gl011JJ
4]44

Si!67
0002
3241

ElCPAfII,

net

1/J4447

2113

04050
0U51
·144!1i!

]140
0000

SQ"P~,

ii!6S0

1-7.10ft7&

52&1

ATANS!!, 2

04445
04Uft

7777

16.16i!139

ft10

ATANA2, 3
4344

5701
40421
111001

1554

13.70925&3

3303

]241
7554
ATANAl, 7777
5703
40421
ATANSl, 1
2713

04443
1!J4444

11.5707949

1110

lU]
4415
01111116
Jft02
7054

04412
0UU
1114414

•

3?"

0001
a70S

SINAl,

13.31&3354
1-.2&47&8&2
11,448ft3154

.J 140
0

iftSIIJ

1,70710&8

•

108/. BASIC RUNTIME SYSTEM

04453
IU54
1!14455
flU56
04451

1141161
144ft 1
IUU
844ft]
844U

1170
0G1Q1Z
iTe5

2440
00fUJ
3661

LOGeS,

1IJ5".

0000

5525
04465 0000
0411 ft 6 i!000
04467 ·lIIlIIf/II1J
11141170 0000
0U71 iftU
04472

LOGe!,

4415

401/11/J
41/153
4200

4li!1/J

LOGeS,

PALa-v7

U70
2
2715
2440
III
3661
Sftft

1i.8853~13

1.9&1470b
1.598978ft5

2312

5525

ONEIiAF, III

21110111
LN2,

1,5

III

0
2613
4415

FFSIN.SIN
FFCDS-COS
FFATN-ATAN
FFLOG.L.DG
FFEIIP -UPON 1

•

10/24172

1,&931472

PAGE &4-1

•

IOS/8 BASIC RUNTIME SYSTEM

I·*·***FIX******

/ROUTINE TO FIX ANY fLOATING NUMBER IN FAt 8fTwEEN ·ae~7 AND +2~47 TO
TWf~V! BIT INTEGER AND LEAVE RESU~T IN EXP (LoC 441

I'
I4se0

use 1
t.sea
tUel
tUI"
14505
14506
045e7

1044
7540

5307
72I11III

745111

5325
1500

14513

5Hi!

14514

1144

1051"5

71"

7511

0115i!11
14Ut

nil!!

04510
14531
04532

FIXLP,

111145

14517

1114514
84525
U!Z6
14527

JMP .+3

FUPRT, CLA

532.

14511
045"

InZ2
11521

CLA
TAD EXP
SlA SMA

72.00

14SUI

ea516

'01'

RAR

7010
3145
2144
5315

JMP FIxoNhl
TAD M13
SNA
JMP FIXONE
SMA
JMP I OTRAPA
DCA UP
CLL
TAD HORD
SPA
CML

DCA HORD
ISZ EXP
JMP FULP

1145
]044
5700

F!XDNE, TAD HORD
DCA UP

7765

1413,
Cll,

0111
1637

JMP I "IX

-13
13
DTAAP., FO

IFETCH EXPONE.NT

liS NUMBER e17
INo-CONTINUE ON

IYES-FIX IT TO ZERO
ISkT BINARV POINT AT 11
IP~ACES TO RIGHT OF CURRENT POINT?
INO-NUMBER IS ALREADV FIXED THEN.
IVES-IS NUMBER TOO LARGE TO FIX?
IYES-TAKE OVERFLOW TRAP
INO-SET SCALE COUNT
10 IN LINK
IGET HIGH MANTISSA
lIS IT

IYES.PUT A 1 IN LINK
ISCAL.E RIGHT
ISAVE
IDONE YE T'l
INa
IVES-ANSWER IN AC
IRETURN wITH ANSWER IN 44
IRE TURN
'-11 DECIMAL
III DECIMAL
IADDRESS OF VECTOR FOR OVERFL.OW TR.P

I***···'LOAT******

IROUTIN£ TO FLOAT ANY INTEGER IN EXP (L.Oe 44) INTO FAC

eun

0000

I11I5JA

1044

1!J4535
U'lU6
14537

3045

14541
IUS41
04542

•

'''LOAT, 0

TAO EXP

TAO e13

IPUT NU~8ER IN HI MANTISSA
ICLEAR LOW ~ANTISSA
111(10) INTO EXPONENT

453.

DCA EXP
JMS I FNORL

5H3

JMP I "LOU

INORMALIZE
/RETURN

3046
1331
3044

DCA HO~D
DCA LORD

•

IDSII BASIC RUNUME SYSTEM

PALB.-V?

IRANDOM NUM8ER GENERATOR

Inn

BllIII0

U!S45
141 . .

3Ui!

UU1

4Sil

1145511

31U

14551

1162
11111
3045

04544

114552
01553

14554
04555

1162

TAD I RSffDL

TAD K71
JMS I MPYLNK
DCA I RSEEDL
TAD I RSEEDL
CLL RAR
DCA HORD
DCA EXP
RAR
DCA LORD
DCA ACl
JHS I FNORL
jMP I lLOOPL

J144

712110
Jill . .

04551

3041

845&1

453&
5513

1114S6i

iU6

IUU

0073

RSEEDL, RSEED
K13,

PAGE &&

DCA TEMP]

13ft3

0455.

04568

RND,

•

10124172

IGET SEED
IPUT IN MULTIPLV OPERAND

,'t ,tlr. ~,y
IMULTIPLY SEED BY 73
IUSE LOW ORDER 12 BITS AS NE~ SEED
ILOW ORDER OF PRODUCT ALSO SERVES
lAS HANOOM NUM8ER
ISET SIGN TO 0 AND STO~E AS HORO
IUSE 12 BITS AS MANTISSA
ICLEAR FPP OVERFLOW
lAND NORMAL.IZE
IDONE

•

IOS/8 8ASIC RUNTIME SYSTEM

PALS-V1

10/24112

PAGE 67

11111111111111111111111111111111111111/1111111111111111111111
11111111111111111111I1111111111111111111111111111111111111111
11111111111111 OVERLAY c- STMING FUNCTIONS 11111111111111111
11111111111111111111111111111111/111/11/111/11/111111/II/III/
1111111111111111111111111111/11111111111111111/111111/II/II/I

'IELD 1
*i8111

NOPUNCH
*OVfRLAY
ENPUNCH
IfNZ1l0 EAE c
NOPUNCJoi

()
I'
.r(rJ;tJ.. ~~0e
l'

13401
13412
13403
1]404
lHas
13406

ItHRS 'UNCTION
IRETURNS 1 CHAR STRING 'OR THE VALUE OF X
0000

CHR,

4!i14
4544

ni! 1
114.

3032
5326

(/J

JMS I INTL
JMS I BSwl,.
DCA I SACL
CMA
DCA STRLEN
JMP RETHOD

/FIX X TO

12 BIT INTEGER
/TREAT THE RIGHTMOST 6 8ITS AS CliAR
lAND PUT INTO SAC
/SET SAC LENGTH TO 1
/SET TO SHODE AND RETURN

IASC FUNCTION
IRE TURNS D~CIMAL ASCII FOR 1 CHAR STRING IN FAC
13401
1]410
13411
1]41i!
U4l!

00110
16i!1

ASC,

iii

TAD I UCL
Jf4S I 8SIIIL
AND K1011
JMP I FLOAT8

O!iU
0075
SUIiI

IGET FIRST TWO CHARS OF STRING
IWE WANT LEFT CHAR
ISO ISOLATE IT
IFLOAT RESULT INTO FAC AND RETURN

ILEN FUNCTION
IRE TURNS LENGTH OF SAC 1111 FAC
000Q1

U414
U415
13416
Ull1

sue

13420
13421

1IJ]i! 1

•

1032

12141

4144

LEN,

0
TAD STRLEN

CIA

JMP I FLOATS

ILENGTH 0' STRING IN SAC
IHAKt. POSITIVE
IFI,.OAT RESULT AND RETURN

FLOATB, FLOATS
SACL,
SAC

•

IOS/8 aASIC RUNTIME SYSTEM

PAlS-Y?

•

10/24112

PAGE 68

ISTRI FUNCTION
IRE TURNS ASCII STRING FDR NUMBER IN FAC
13422

80111 iii

134i!

4651

13424
13425

1111

U426
U4i1

1343111
134]1
1]4U
13431
134]4
13435
1]4]6

13431
1344111
13441
13442

1344]
UU4
13445
13446

STR,

un
1111

45i6
4S6f/I
2061
1461

U61

1UIII

Si!4111

34U
2061
1461
1055
145111

nSlP,

TAD 14215

1256
1651/1
5240

13450

1461

134!51

453111

13452
13115]

1UIII

13454

lUi!
3032

13455

5ue

13456
13451
Sl4U
13461

1616

li60
1IIi! I III

1525

JMS I ASCDLK
DCA STRLEN
CLl lAC
TAD SACPTR
JMS I STHI~l
JMS I STHRST
lSI TEMPU
TAD I TEMP 1111
TAD MINUSP
SZA CLA
JMP STILP
TAD CCCil1ll
DCA I TEMPU
lSZ TEMP1III
TAD I TEMP 1111

INA
JMP RETMDD
TAD MCRMAl
aNA ClA
JMP STSLP
TAD I TEMPIIII
JMS 15TH
CLA CMA
TAD STRLEN
DCA STRUN
JMP STSlP

5li!6

13441

III

MCRMAL,
AStaLK,
CCCIIIII,
MINUSP,

7616

ASCDUT
24111
.253

IGET ASCII FOR FAC INTO INTERMEDIATE RUFFER
IZERO FAC
IINITIALIZE 5TH TD SAC
ISET OF TO 5TH TO 0
IMDYE PAST LEADING SPACE
IGET SIGN OF NUMBER
115 IT

"+"

INO-IT IS n_" SO LEAVE IT ALONE
IYES-REPLACE IT WITH A SPACE
IBUMP POINTER
IGET CHAR fROM INTERMEDIATE BUFFER

lIS IT ern

IYES-RETURN IN SMDOE
AL TMDDE?

I IS IT

IYES-IGNORE IT
INO-GET CHAR AGAIN
IPUT IN SAt
I"SUMP" SAC COUNTER"

IOt/8 SASIe RUNTIME SYSTEM

PALe-V7

10/24/72

PAGE &9

IVAl FUNCTION
'j'
IR£TURNS NUH8£R IN FAt FOR STRING IN SAC;
134&2

134U
134U
134&5
134&&

45i7
4557

134&7
134'10
U471

lUi
JiZZ
1301

15472
13473

me"

elL lAC
TAO SACPTR
J"S J lOHINl
J"S I LOHRST
TAD STRLEN
DCA VALeNT
TAD STCGTJ
DCA I INPTCL
JMS I FFINlK
TAD GETCHG
DCA I INPTCL
JMP I ILOOPL

1101
1111

370111
U7T
Ullli!

13414
13475

37111111

1347&

5513

13477
1]500
1]501
13502

520"
5350
4554
4542

FFINLK,
INPTCL,
STCGTJ,
GETCHG,

1351113
13504

0000

VAlGfT, 0

U505
13S1!16
1351217
USlI/J
13S11

7&5111

13512

usu

13514
13515
U51&

U517
1352111

INA ClA

ni]
4531

JMP ENVAl
JMS I LDH
DCA CHAR
TAD CHU
TAO KM40
SPA CLA

3053
112153
110&

7710
107&
1817
1053
38'53

TAD k0100

TAD ki!00
TAD CHAR
DCA CHAR
xsz VAlCNT
NOP
JMP I VALGET

13521

il22
7100

13522

571113

1]523
13524
lUiS

111154
311153
511113

ENVAL,

3422

VALCNT-STR

7001

RETIIIOO, lAC
DCA MODESW
JMP I ILOOPL

1352..
135i!7
1353111

30&1

5511

ICOUNT OF CHARS TO INPuT
IJMS TO VALGET
IPUT IN INPUT ROUTINE IN PLACE OF KRB
ICALL FPP INPUT ROUTINE
IJMS TO GnCH
IRESTORE IN INPUT ROUTINE
IDONE

FFIN
INPUT.1
JMS I VAll~
JMS I GETCHL
TAD VAlCNT

1222

IINITIALIZE lOM TO SAC

IGET • OF CHARS LEFT
IANV MORE?
INO-SEND A CR TO FPP INPUT ROUTINE
IYES-HET CHAR
ISAVE
ISUBTRACT 40
I IS CHAR C40'l
IYES-IT IS IN 30e SERIES
ITURN ON PARITY BIT
IBUILD 8 BIT CHAR
IDECREASE COUNT
IRETUR~

WITH CHAR IN AC

TAD K215
DCA CHAR
JMP I VAlGET

ISET TO STRING MODE
IRE TURN

•

lOll' "IIC RUNTIMI IySTIM
1111

dall

NOPUNCH

*DYIRL,AhUI

1611

(NPUNCH
1'"IRO £A! c
NDPUNCH

•

IDATE FUNCTION
t UIIIIJ
UU'
116111
U6n
11614
116e!
tSU6
11 . . 1
IUtl
lUll
11612

nus

lS614
nU!I

136"
13611
IS621
lJUl

1SUI

Inn

iSU4
lSU!I
11616
13621
13611
13611
UU2
1]61]
UU4
11U!
un6
un1
U641
nUl

1]642
UUI
13614
UUS

1364'

13641
1:5651
UUl
13.52
11653

III.
1l1li1

SIn

un
lill
7U4

16111
SiU

U..,

DATI,

TAD CDFIO
DCA •• 1

• PSFLAG
TAD

CL.L RAL
aNI. CLA
JMP N.,.6&

TAD I 1.11166

lUI
5215

DCA TEMPt
JMP DATCOH

1671

N7666,. TAD I 1.166'

JUI
lU.
1641
1176

DCA TI""1
DATCOM, TAD TIMPI
au CLi

SUI
6211
lUI
:SIU
1141
lU6
7116
1114
1174
426111
3415

1141

7112
UU
1211

42&0
4544

Jl07
UI1
111115
1214
J415

urn

1104
1273
]41S

1040
0275

UD KKMU
DCA IT If LEN

ICDF TO FJELD THAT 17600 SITS IN
IDF TO 17.10 FIELD
IGET RESIDENT STATUS FLAG
ITD8/E BIT TO LINK
lIS PG 17600 ... T N7400t
INO-GET DATE FROM N766~
IVES-GET DATE

ISAVE

IIAVE
IGfT DATi AGUN
In IT EMPTVt

INO-SET STRING COUNT TO 8
IYES-RETURN NULL STRING

CD'

TAD IACPTR
DCA )IRS
TAD TEMPI

IPOINTS TO SAC

CLL RTI.
RTL
RAL.
AND 1C1011
JMI AlCON
DCA I lRS
TAD TEMPI
CL.L RTR

IMONTH TO 81TS a-II
IISOLATE
ICONVERT TO ASCII
IPUT IN SAC
IDATE

RAR

JMS J 8SWL.

IDAY TO 81T57-11
IUDI.ATE
ICONVERT TO ASCII
ISWAP DIlilTS

TAD TEMP2
ANO IUIII77
TAD K5700
DC ... I US

IDAY DIGIT 1
I"/N"
IPUT IN STRING

AND KaI37C
JMS UCON
DCA TEMPa

TAO TEMPi
AND K7700
TAD K0057
DCA I lRS
TAD TEMPI
AND KI00le

IDAY DIGITS AGAIN
IDAY DIGIT i!

IIINI"

1A00 TO STRING

IOUE
IVEAR

•

10S/I BASIC RUNTIME SYSTEM
13654

4260

1365"
1JU7

3419

lJ6U

1110001

13661

126.
JlD4Z

JMS ASCO~
TAD KII700
DCA J )("5
JMP 1 RETMDL

uus un

136ft2
U66]
136&4
13665

13666
13667
1367.
13671
U672

13673
1367&
136n
13676

•

5665

ASCON,

144i!
S61tS
3Si6
45i5
7466
7'66
111037
0700
011157
5700
001/17
1770

III

TAO OAUSA
DCA TEMP]
TAO 1 TEMP]
JM, I ASCON

PALa.v7

10/i!4172

PAGE 70.1

I"UI"

IFJNISH OfF STRJNG

IRETURN IN SMODE

IADDR OF DATE TASI.E
IPOINTER TO RIGHT SET OF DIGITS
IGET TWO ASII DIGITS FROM TABLE

RfTMDL, RETHDD
DAUSA, DATrAhl
1.7466,
1.7666,

7466

7666
]7

K0n7C,
k07QH:1,
K0051,
KS711liil,
K011l1ll7C,

KKMU,

-111l

780
SUIIl

•

10SII .'SIC RUNTIM! S,ST!"

PALe-Y1

•

18/24112

PAGE 11

ITRACE 'UNCTION PRINTER. WHEN TRACE II ENABLED, THIS ROUTINE
IPRINTS THE LIN! • £AC~ TIME IT IS STORED
ln77

U718

11711
11712
U1.]
U7e.
13711J!1
11706
13717
11718
13711
U712
U711
1311'

U711

U116

U717

lJ121

13121

U7al

U72J
11724
UTiS
lJ726

81111.
4141

TPRlNT, 8

J"I I LMAUL

Ui!l

ICEle
JMS I lePUT

1341

TAD eC2U

TAD

U45
JlU

1411
JU7

IGS,

,34.

1217

7658

5J17

1277

PREST,

US!
7650
532ft

U17

4512
IOU
3217
U1S

un TOONE,

U7a?

4522

131311
U111

1342
4!5i2

UU]

4SiI

U7IO
U735

1344

unl un

un6

4518

137]7

SUft

lJ741

5513

U14t
13U2
13743
13744
13145
13146
13747

40.7

11245
VlZS!
82l!

JMS I lePUT
TAD DIGU
DCA US
TAD I leRS
DCA TPRINT
TAD MHue
TAD TPRINT
INA eLA
JMP us
TAD TPRINT
TAD M215
INA eLA
JMP TOONE
TAD TPR!NT
JMS I XPUT
TAD I leltS
DCA TPRINT
JMP PRUT
TAD CC2 ••
JHS I XPUT
TAD K£X
JHI I XPUT
TAD CCR
JMI 1 XPUT
TAD eLF
JMS I XPUT
JMS I PRINT
JMP .-1
JHP I ILOOPL

LMAKEL, LMAKE

KEX,

tCR,

CLF,

4133

OIG1A,

15211
'2U

ecau,

MMlU,

2.5

215

DIG1-l
-2.0
240

IMAKE LINE • INTO FIYE DIGITS
IPRINT "X"
IPRINT A SPACE
IADDR OF FIRST OIGIT~1
lIN US
IGET DIGIT OF LINE NUMBER
ISAYE IT
ICOMPARE IT TO II

lIS IT A n

IYES-IGNORE LEADING ZEROES
INo-GET CHAR AGAIN

lIS IT A eRt

IYEI-LINE NUMBER IS PRINTED
INO-GET CHAR A THIRD TIME
ITYPE IT
IGET NUT CHAR

lAND LOOP
IFOLLOW LINE • WITH A SPACE
ITYP! ANOTHER "X"

ITYPE,CR,LF
IEMPTY RING BUFFER OF TRACE NUMBER
IDONE

•

IOS/8 BAStC RUNT!ME SYSTEM
-~-'

~-'

PAL8-V?

10/24/72

PAGE 12

-~--....,.,

,_ i!4ea_~,>c .. 24'~~)
-~
~_~n __ .n··"WO"PU'NtH
4111
*OVERLAV+400

ENPUNCM

IFNZRO UE c
NOPUNCH

•

ITRACE FUNCTION-ROUTINE TO TURN TRACE ON AND OFF
14II1PJl

1411110

IIIlaa
104S

lUII2

7&51
5210

141110S
1410&

5513

"
TAD HORD
SNA elA
JMP TOFF
TAD ~NOP
DCA I HOOKl
TRREST, JMP 1 ILOOPL

14001

1144

HOOKL,

TRHOOK

14111
14111

120&

TOFF,

5215

TAD TRREST
JMP TRREST-1

14012

7000

KNOP,

100111

14003

141111114

1212

urn

TRACE,

IGET HI MANTISSA OF ARG
IWHICH?
IFOR 0,TURN TRACE OFF
ITURIIl TRAC ON
IBV NOP ING INSTRUCTION AT TRHOOK

/TURN OFF TRACE
IBY NESTOREING JMP TO TRHOOK

IERROR ROUTINE
lU13

0el0

141114
141815
14111&

5214

14017
141211

14021

4510
US4
3014
1414

1048

14022

1040

14021
14024

4544
llUS

1411e5
1482&

3]21

14127
14030

14131
14U2
141!133

IUft

184111

1015
12&&
33il
1414

14034

U.S1

14111S5
141113&

1&40
S2i0
4U1

14140
14041
141!14i!
14043
14044

3015
1415
1510

140]1

•

ERRORR, 0
JMS I PRINT
JMP .-1
TAD ETABA
DCA ICR4
FERRLP, TAO I ICR4
DCA TEMPt
TAO TEMPI
JMS 1 BSwl
AND K1II077
TAO KIIIllll0
DCA ESTRNG
TAD TEMPI
AND 1'11017
TAO KIII300
DCA ESUNG.1
TAD 1 XU
TAD 1 ERRET
SlA CLA

1343

5247

ETLDP,

JMP FEULP
JMS LMAKE
TAD E5TRA
DCA )(RS
TAD I XR5
SPA
JMP FATCHK

IPURGE TTY RING SUFFER
IBEFORE PRINTING ERROR
IADOR OF ERROR TAB~E
IPOINTS INTO ERROR TABLE
IGET i CHAR ERROR CODE
ISAVE
IFIRST CHAR TO RIGHT
ISTRIP TO & BIT
IMAKE 8 SIT (lETTERS ONLY ALLOWED)
IPUT IN MESSAGE
12 CHAR CODE AGAIN
ISECOND CHAR
IMAKE LETTER
IPUT IN MESSAGE
IGET ERROR CODE +1
ICOMPARE AGAINST RETURN AOURESS
IMATCH?
INO-TRY NEXT ONE
IMAKE THE LINE • INTO OECIMAL DIGITS
IAOOR OF MESSAGE

IGET MtSSAGE C"AR
IOONE? (MESSAGE ENONS WITH. NUMSER
IYES~OETERMINE ERROR TYPE

•

101/1 8AIIC RUNTIME IYITEM
14145

4522

14141

nIl
1651
Jill

JMS I )CPUT
JMP !fLOP

1"'" !lUI
1411S4
1.. 55
14115.

,.&11

'ATeHK, CL.A
TAO I URET
DCA ERRORI'
TAD "FATAl:.
TAD xu
SMA eLA
JI'I" I ERR ORR
JMP I STOP!·

14057
1411&11

lUI
15.1

ERRET ,
STOP!,

ERRDlI
'STOPN.

1411&1
141&2
lUU
14064

0181111
iii iii 14

MAKlD,

14065
14I1U

UU
U01/J

K2&0,
KIIJJIllIiI,

i!ftIiI

l.nll

1till
14152
1411U

U!!

11114
ne0

5.U

12.5
S•• 1

AND 1(001 1
TAD Kitle
JI'IP I MAKED
3011

PAL.S-V?

•

U/i!417i!

PAGE 1a-!

INO-PUT CHAR IN lUNG BUFFER
IGET RETURN ADDRESS
lAND STORE IT
I-ADDR OF fATAL ERRORS
IADDR OF THIS ERROR
IFATAL ERROR?
INO-NEXT INST
IYES-TERMINATE RUN

IISOLATE SeD DIGIT
IMAKE ASCII DIGIT

•

10S,I BASIC RUNTIME SYSTEM

ISUB~OUTZNE LMAkf-MAKfS THE CURRENT LINE NUM6ER INTO FIYE DIGITS
ISTARTING AT OIGI

14111.'

14010

14171
14012
14073
14011
140.,5
14016
Ullin
14 11110
t4Ul
14ln
14U]
14104

tun

14111111
14107
141 to
14111
14112

14113
t4114
14115
14116

•

1111111
1065
4161
3335
1065
1Ue
7812

4261
JU4
11116'

4ZU

3340

10"
71iZ
7012

4261

3]]1
IIIIU

7104
1006
1006

4261
333'
56..,

LHAKt,

TAO LINEHI

JMS MUfD
DCA DIGi
TAO LINEHI
eLL RTR
RTR
JMS MAkED
DCA DIGt
TAD LINELO
JMS MAKED
DCA 0lG5
TAD llNELO
eLL RTf(
RTR
JM5 HAKED
DCA DIG4
TAD LINELO
eLL RAI,.
RTL
RTL
JMS "'AkED
DCA DIG]
JMP I LMAKE

IYESIGET HI LINE #
IGET DIGIT 2
IPUT IN MESSAGE

IGET DIGIT 1
lAND PUT IN MESSAGE
IDOGOTS 3,4, AND 5
IGE r DIGIT 5

IGET DIGIT 4
lAND PUT IN MESSAGE

IGET DIGIT 3
IMESSAGE NOW COMPLETE

•

PAL,a.V7

10S/' BASIC RUNTIME SYSTEM

•

10/24172

PAGE 14

IERROR MElUGE
14117

8215
IU2

Ul21
14122
UU3
llU4
Un5
U12'
l'U"
141]11
UUl
141]2
141]3
141St
U135
Utu
141ST
1414.
U14l

etfJII
llee

,.121

14142
lA1U

EMUS,

UUNG, 11800
111801
2"'0

lUll

Ull

311
Ji4

1240

itt

1314

314
JU
31.
30S

nat
0311

1131'
111115
014111
11111111

elea

0eee
10111
111111111
8215

111212
411'

IA
Il

II.

241

DIG! ,
DlG2,
DIG3,
DIG4,

I
II

DIGS,

IN
IE

0
0
215

ESTU,

EMUS-!

IMINUS NUMBER TO END ABOVE MESSAGE

IROUTINE TO 'LOAT 'AC AND RETURN
14141
14145
t41U
1414"
14158
lU51
UU2

14153

31145
3114'

ne?

'1.0AfS, DCA HORD
DCA LORD
DCA TEMP2
TAD een

135J
311144

453'

5513
801.3

cell,

DCA UP
JMS I ,NOIIL
JMP I II.OOPI.
13

INUM8ER TO BE FLOATED IN HORO
ICLEU LORD
ICLEAR FPP OVERfLOW
ISET EXP TO 11
INORMAI.IZE
IRETURN

;~.:.

•

IOS/8

BASIC RUNTIME SYSTEM

IERROR TABLE
IENTRY FO~MAT.
I

4155 ETA8A,
]524 MFATAL,
0602 ETAB,
3765
01i2
1240
2622
4174
2325
7154
0405
7220
8506
7211
1105
6264
0615
6153
0611
6140
0616
5772
2303
5545
0611
5410
0401
5461
laill/J 07U·
14211 S44i
14212 2322
1421] 4641
14214 2327
14215 4515
14216 2001
14217 3362
t4220 0603
14221 4336
14222 0311
14223 4155
14224 0314
t 4~~,;.?5~....4....1_3.1___ .

14154
14155
14156
14157
14160
14161
14162
1416]
14164
14165
14166
14161
14170
14111
14112
14113
14174
14175
14176
14117
14200
14201
14Z02
14203
14204
14205
14206
14201

. J

2 C~AM 6~81T ERROR CODE

ETAe·1
.EFATAL
0602
-Fe-I
e122
.GR-l
2622
.VR-l
2325
.SU-l
0405
-DE-I
e586
-EF-l
1105
.OE-l
0615
.PM-l
0611
.FO-l
e616
.FN-l
.SC-l
0611

.FI-l

"'"

~')..7 __ ~1hl:~22; ~ "-"'~-'='--nll '.!"~-O

-__
!!:-O!i_u.-.:LU~:!a~~.~-.,-.~, ;:"~
t~ L-;-'ii230 0417
0417
14231 3722
-00-1
14232 0605
0605
14233 16.5
.FE-l
14i34 0211
0217

•

ONLY)

IF8
IATTEMPT TO OPEN AN ALREADV OPEN FILE
IGR
I~ETURN wITHOUT A GOSUB

2303

0481
.DA-l
0U3
-GI-l
2322
-SR-l
2321
-SW-l
2001
.PA-l
06'3
.FC-l
0311
-eI-t
0]la
-CL-l .

(~ETTE~S

-CAOOR OF CALL)-l

IVR
IATTEMPT TO READ VARIABLE LENGTH FILE
ISU
ISUBSCRIPT ERROR
IDE
IDEYICf DRIVER ERROR
IEF
ILOGICAL EOF
10E
10RIvER ERROR WHILE OVERLAYING
IFM
IATT~MPT TO FIX MINUS NUMBER
IFO
IATT~MPT TO FIX NUMBER .4095
IFN
IILLEGAL FILE #
ISC
IATTEMPT TO ovERFLOw SAC ON CONCATENAT~
IFl
IATTEMPT TO CLOSE OR USE UNOPENED FILE
IDA
IATTEMPT TO READ PAST END OF DATA LIST
IGS
ITOO MANY NESTED GDSUBS
ISR
IATTEMPT TO READ STRING FROM NUMERIC FILE
ISW
IATTEMPT TO wRITE STRING INTO NUMERIC FILE
IPA
IILL~GAL ARG IN POS
1Ft
105/8 ERROR WHILE CLOSING TENTATIvE FILE
It I
IINQUIRE 'AlLURE IN CHAIN
ICL
ILOOKUP ~AILURE IN CHAIN

,-j i

'1'i'N
I ~i-RE ~ -f'nt.11R"!'-'·TJ.l 0 PEN .{,£,' ~'r- ~,
e'

100

./NO MORE ROOM FOR DRIVERS
If'.E
IFETCH ERROR IN OPEN
160

•

IDSII BASIC RUNT!M! SYSTEM

un!

wlO-l

U6Z

lU36

"16

14148
14141
14142

11"
]]5]

lU6
-1'-1

lun ]&71

14241
14144
14245
14146
14147
1425.
14151
14212

-EN-I

U14
1252
1726

UIII

-aL-1
1726
-08-1
1415
-LM-1

un
lASS

1417

8515

.EM-l

4161
UI'

tun nu

lUI

-lA-I

lU61

2285

47U

2U5

41n

111426
1412
il211

lun
lun 53]]
14164
14165

1117

•

18/24/72

PAGE 75-1

INO MORE FILE BUFFERS AVAILABLE
lEN
IENTER ERROR IN OPEN
IIF
IILLEGAL DEVIFILENAME SPECIFICATION
ilL
ISTRING TOO LONG OR UNDEFINED
IOV
INUMERIC OR INPUT OVERFLOW
ILM
IATTEMPT TO TAKE LOG OF NEG • OR IZI
IEM
IATTEMPT TO EWPONENTIATE A NEG NUMBER TO A PEAL ROWER
IIA
IILLEGAL ARGUMENT IN USER ~UNCTION

1***************************************************** ******
IERRORS BEFORE THIS LABEL ARE FATAL

EFATAL,
14254
14255
14n6
111157
14268

PALa-V7

1***************************************************** **
2205
.RE-l

-WE-'
I'J/Iift

-DV-l
23211

-ST-1
1117

-10-1

IRE
IATTEMPT TO READ PAST EOF
IWE
IATTEMPT TO WRITE PAST EOF
IOV
IATTEMPT TO DIVIOE BY III
1ST
ISTRING TRUNCATION ON INPUT
110

ITTY INPUT BUFFER OVERFLOW

•

IOS/8 BASIC RUNTIME SYSTEM

PALS-V?

10/24112

PAGE 1&

ISfGS FUNCTION
IRETURNS SEGME~T OF ~$ 8ETwEtN Y AND Z
IIF ye-a,TMEN Y TAKEN AS 1
IIF Y.~EN(XS),NULL STRING RETURNED
IIF Zewe,NULL STRING RETURNED
ItF Z.LEN(XS),Z IS SET-LEN(IS,
11F ZeY,NULL STRING 15 RETURNED
14266
14267
lU7B

01/108
7I!IU
3eu

14il1

1045

lU7i!
14171
lUlU
1un
14276
14211
14100
143211
14302
14303
14304
14305
14306

1140
527.
4534
4476
45]5
1175
4514
1032

14]07
14]10
14311
14312
lnt]
14114
14315
14316

14117
14120

14321
14lil
14323
lU24
14]25
14326
141iH
14130
14331
14332
14333

14334
lU35
1433&

14337

•

t4340
14341
1434l
t4343

7740
5365
laU
4101
4534

UGH
1045
77521
5365
4514
10]2

7710
5Jll
3046
1330

3044

1032
7041
3045
45]6
41211
4535
111013

6201

4534

1175
4101
4167

&lel

1045

7710
5365
4514
7040

SEG,

1/1

lAC
DCA MODESW
TAD IiORD
SMA SlA CLA
JMP •• 3
JMS 1 FGETL
ON!1
JM'S I FPUTI.
FPPTMI
JMS I INTL
TAD STRUN
SMA SlA CI.A
JMP NULLST
DCA INIAV
JMS I ARGPLK
JMS I FGETI.
ARGPL1<, ARGPRE
TAO HORO
SPA SNA CI.A
JMP NULLST
JMS I INTI.
TAD STRLEN
SPA CLA
JMP ZMINY
DCA LORD
TAD Ul3
DCA EXP
TAD STRLEN

CIA

1(1<13,
ZMINY,

DCA HORD
JMS I FNORI.
JMS I ARGPLI(
JMS I FPUTL

13
COF
JMS I FGETL

FPPTMI
JMS I ARGPLIC
JM5 I FlSUI!L
CDFl!lkl0, CDF
TAD HORD
SPA ca.A
JMP NULLSf
JMS I INTL
CMA

IRE TURN IN STRING MODE

lIS

,.1/17

IYES
INO-SET Y TO 1
ISAVE Y

IFIX ,
ICOMPARE TO STRLEN
IY.Lt:N (liS) 'l
IYES-RETURN THE NULL STRING
IfAKE POINTER TO SCALAR '0
IGET AODR Of Z
ILOAD Z INTO FAC
ILOC SKIPPED ey FPP so WE PUT CONST HE~f
IHI MANTISSA OF Z
I IS Zcl/J?

IYES-RETURN THE NULL STRING
INO·FIX Z
ICOMPARE TO STRING LENGTH
IlUI.EN (XI)

IZ>LtNCXSl SO SET Z-LENeXS)

IMA~E

LENGTH POSITIVE

IfLOAT I.ENGTH
ISAVE NEW Z

ILOAD Y
IGET AOOR OF Z
IZ-V
IGET HI ORDER Z-V
lIS Yel?
INO·RETU~N NULL STRING
IFIX Z-V
IAOO ONE AND NEGATE

•

10Sli BASIC RUNTIME SVSTEM
11]44
1414'
14146
lUn

14 lSI
UJ!il
1415.
IUn
UJS4
UJS!
1UU
lUST
141.0
14nl
tUU
lun
IUU

JIU
4534
U75
US4
7111

7431
711101

1020

DCA ITRtNT
JMS I FGilL

""Hl

JMS I INTL
CLL RAR

SZL
UC
CML

lUi
S7U

TAO SACPTR
JMS I LDHINL.
JMS I LDHRST
TAD SACPTR
CLL lAC
JMS I 5THINL
JMS I STHRST
DCA ITRLfN
JMP I IEGCML

14365

lrII32
5513

NULLST, DCA STRLEN
JMP I ILOOPL

14161

5400
iUi

FUUBL, FFSUBt
IEGCML, SEGCOM

t4]#).

una

1111

45i7
4557

1111
T1IIJ 1

"5,U
4560

PAL8-V7

•

10/i4l7i

PAGE 76-1

ISTORE AS SEG L.ENGTH

IRETRIEVE 'I AGUN
IFIX V
IDIVIDE 8'1 TWO
IUSE 'In AS DISPLACEMENT FROM START OF SAC
IINITIALIZE LDM

IINITIALIZE 5TH TO SAC
IZERO SAC
IUSE CODE IN CONCATENATE TO 00 THE REST
IURO SAC
IRE TURN

•

108/8 SASIC RUNTIME IYST!M

311100

*3000
NOPUIIICH
eOVERUV+1000

4410

E-NPUNCti
UrNZRO fAE c

NOPUNCI-I

IPOS FUNCTION
IRETURNS THE POSITION IN XI OF VI STARTING AFTE~ l
1440e
U401
14402
116405
lUU

30&4
1704

]70.

1071

1440&
144e7

1&50

14414

lU15
lUI.
14411

1442e
1II4il
1II42i
111423
144i4
lUiS
lUU
14421
1164]0

n7J
1032
7&50
5267
1045
7710

051.
4514
33el
1301
1032
7700
Si!15

uru

lU0

14433

7430
7001
70i0
1111
]302
7620

144]4
14435

3303

1£1431
t443i!

111436
111431

14440
14441
14442
14443
14444
14445
1444.
141647
14450
t4451
14452

pas,

7100

lue5
144U
14411
144U
14413

•

0000

TAD HORD

1650

IFAKE AS STRING CALL TO STRING 0
IFIND Y$
IGET VI CHARS FROM OF N
It Of CHARS l~ VI
lIS VI THE NULL STRING1
IYES.RETURN 1 AS POSITION
INO-' OF CHARS IN XS
lIS XI THE NULL STRING'
IYES-RETURN 0
INO-GET HORD OF Z
lIS

z.. n

INO-IlLEGAL ARGUMENT
IFIX Z
IUSE IT AS POSITION TO START SEARCH
ICOMPAHE POSITION TO MAXIMUM LENGTH OF STRING

IZ IS PAST END OF STRING-ERROR
ISEAHCH START POSITION IN XI

IDIVIDE BY 2

SIlo

lAC
CHI.
TAD SACPl'R
DCA LOfolPR
SNI. elA
eHA
DCA LDfoIPSW
TAD STRPTR
ClL. IAC
JMS I lDHINL.

UI72
7101
4527
1032
3f/l41
1071
4531
62 I/Jl
711141
1040

CL.L.
DCA INSAV
JMS I STf'INK
DCA I L.OHCDL.
TAD STRCNT
SNA eLA
JMP ONERET
TAD STRlEN
SNA ClA
JMP ZRORET

SPA CLA
PA,
JMS I ERROR
JMS I INTL.
DCA POSITN
TAD POSITN
TAD STRlEN
SMA ClA
JHP PA
POSSET, TAO POSITN
CL.I. RAR

7040

3002
4307

TAD STfiiLEN

DCA TEMP4
TAO STRCNT

SRCL.P,

DCA TEMP]
JMS XDGET
JMS I LOH
CDF
CIA

TAD TEMPt
SNA CLA

IUSE AS DISPLACEMENT OFF START OF SAC
IPOINTS TO NEXT CHAR FROM .5
IIF LIN~.0,GET RIGHT HALF
IElSE GET LEFT HALF
ISUMP PAST CHAR COUNT
IINITIAlIZE LOH TO VI
/. O~ CHARS IN Xi
ICOUNTER
1# OF CHARS IN VS
ICOUNTER
IGET CHAR ~ROM Xi
IGET CHAR FROM VS
INEGATE CHAR FRON Vi
ICOMPARE WITH CHAR F~OM Xi
100 THEY MATCH?

•

IOS/8 BASIC RUNTIME SYSTEM
1445]
14454
14455
1445.
14457
lUU
14461

JMP SCONTU
UZ POSITN
TAD POSITN
TAD STRLEN
SMA SU CLA
JMP ZRORET
JMP possn

SUi!
U01
U01
UJ3a

7140
5Z67
5224

14462

2042

lUU
14064
14065
1446.

1410
5271
;111143
5245

•

10/24/72

PAGE 71-1

IYES-CONTINUE MATCH TO N~XT CHAR IN XI AND Vi
IBUMP PDSITION TD BE CHECK~D
IGET POSITION NOW CHECKING
ICOMPARE A~AINST LENGTH OF STRING
IANV MORE TO COME?
INO-SEARCH FAILS
IYES-START COMPA~ING NEXT POSITION

SCONTu, ISZ TEMP3

IMORE CHARS IN Vi?
IYES
INO-MATCH SUCCEEDS-RETURN POSITN
IMORt IN XU
IVES-CONTINUE MATCH
INO-SEARCH FAILS~RETURN 1/1

SICP
JMP R!TPOS
ISZ TEMP4
JMP SRCL,P
ZRORET, JMS I FCLR
JMP I ILOOPL

14467
14410

5513

14411
14472

1301
5705

RETPDS, TAD POSITN

IGET POSITION OF MATCH
IFLOAT RESULT AND RETURN

14413
14474
14475

is]4
447ft
55U

ONERET, JMS I FGETL

14476
14477

0001

ONE! ,

14501

0001
0000

lUll
14502
lUn
14504
14505
14506

4537

PALe-V7

2011

fIll01
0000
1. . .
4144
2ft 4'1

JMP I FLOA8L

ONE!

INTO FAC

JMP I lLOOPL
1

201111
1

POSITN,
LDHPH,
LOHPSW, o
STFINK, nFIND
FLOA8L, FLons
LDHCOL, LDHDF

IROUTINE TO GET SUCCESSIVE NALFWORDS FROM XI
14507
14510
14511

Inlll
13n

XD~ET,

14516

l1f1li!
4U4
1075
3040

14517
14520
14521
14522

1303
7040
H03
5707

TAD LOJotPSW
SNA tLA
JMP XDRITE
TAD I LDHPR
JMS 1 BSWL
AND K0077
DCA TEMPI
TAD LDHPSW
eMA
DCA LOHPSW
JMP I XDGET

14523
14524
145i5

170i!
2302
5315

XDRITE, TAD I LDHPH
lSZ LDHPR
JMP XLCOM

145li!
14513
14514

14515

7651
5323

XLCOM,

IHALfWORD SWITCH
ILEFT OR RIGHT?
IRIGHT
ILEFT-GET CHARS
ISWAP BUES
IISOLATE CJotAR
ISAVE
IHALFWOHO SWITCH
IFLIP IT
IRE TURN
IGET 2 CHARS
IBUMP POINTER TO NEXT WORD

•

PALS-V7

IDSla BASIC RUNTIME SVSTEM

tun u.t
Ini!? uu
IllSl. .eu

14S]t

ln12

14513
1453.
14515
14536

usn

145.0
14541
1454i!

....
611164

6065

6065
6111611

11115
10.
107

&0&1
6010
6071

6160
6161

6U0
6161
6162

110
III

61 ft4

114
115

.IU

61&1
14543. 61U
10544 6165
lun U66

14546

14547
14559
14551
14552

6110

6260
&aU

14S53
14554
14555

6262
&aU
6264

U71

fllU

61&5
616'
616?

&110
6111
&i60
&i6l
6262
U63
Eli6.

U6S

14556

U6S

145'57
14568
14561

Uftfl

&266

&261

14563

u.a

62&1
ft27fJ
fli!71
U6ll

U7e

tun

U71

14564

6361

PAGE 78

IDATE TABU-USED TO CONVERT BIIIIARV 'NUM8ERSc31 INTO 4Stll CHARACTERS
101
DATTAe, 6e.l
102
611ft 2
103
un
60ft4
114

uu
un

10/i4/72

&361

I III 8

109
11i!
113
116
111
118
119

1i0
I2t

Iii
Ii]
124
liS
/i.6
121

liS
12'
130
/31

•

e·

•

PAL8-Y1

IDS/8 eASIC RUNTIME SVSTEM

•

10/i4/72

PAGE 19

11111111111111111111111111111111111111111111111111
11111111111111111111111111111111111111111111111111
11I111111 OVERLAY 3-'ILE MANIPULATING 111111111111
JIIIIIIII
FUNCTIONS
111111111111
11I1111111I111111111111111111111111111111111111111
11111111111111111111111111111111111111111111111111
d410

3400

IFILE CLOSING ROUTINE
13400 I 311a£- ANDPTR,/ ANDLST
13401t.. 7716 ANDLST, 7716
U40il'l 7775
7115
13403 l/1773
1n3
7767
1]404 !17ft1 ,.. V~Pr
13405' l~CLOS~,
1341'1 7650
13401 ro~';S1o
13410 II 45i3 tt","
U411/'V4550 iP{v
134121) 5211 ~J.."J..o
15 4131'/4Hl tf'l'l'l
15414e(521 1 ~U'

15415ft. 15]0 \~'7~
U4U 1'14512 4$'0
13417' 4732 Noel,

13420

4556

U421
134U
U4l]

4731
5au
1511
Jl40

13424
13425

1342"

15421

13430

13431
1343l
13433
13434
134]5
134]6

1174
3231
1563
710&
7006

7004

0074
UU
4904
0004

13437

]431

13440
13441
134U
13443
13444
13445
13446
13447
13450
13451

]440
451.
15f14
110.
1006
1004
0333
1200
3040
1036

IMASKS FOR CLEARING BUFFER AND HANOLER STATUS HITS
J3t+ I()
",/,t ,

el+ f

C,.400~ ~ ~ ~ ;lbf)~')

TAD ENTNO f,
IGE T FILE ,
aNA eLA
115 IT TTY1
JMP I ~
JYES-DON8T 00 ANYTHING ;rr'lp ~ I '7p
JMS IF1"5"Le:-.~~'t"/SEE IF FILE OPEN (~~ ~~ ')
JMS I FTYPL
lIS FILE NUMERIC1
JMP Noez
IYES-DON'T OUTPUT ·Z
JMS I FTYPSE
INO-IS FILE YARIA8LE LENGTH?
JMP NOCZ
INO-OON-T OUTPUT ·Z
TAD K2l1
IVEa ..
JHS I PUTCHL
IWAITE A ·Z IN FILE
JMS I WABLKK
IWRITE LAST BLOCK IF IT HAS CHANGEO
JMS I P1SWAP
IRESTORE 17600
JMS I FTVPSEc~~~/IS FILE 'IXED LENGT~?
JMP CLOSED
IvES-NO NEED TO CLOSE THE FILE
TAD I WORD6
INO-GET FILE LENGTH
DCA CLENG
IPUT IN CLOSE CALL
TAO \fjORDI!
DCA FNAP
IPOINTER TO FILE NAME
TAO I WORD0
eLL RTL
RTL
RAL
IGET DEVICE NUMBER INTO BITS 8-11
AND K0017
IISOLATE IT

.---=-----

elF 10
JMa I
4

KHG!l0

FNAP,
CLENG, •
FC,
JMS I ERROR
CLOStD, TAD I \IIORDI
eLL RTL
RTL
RIL
AND KI/l003 v
TAO ANDPTR
DCA TEMP"!
TAO SHAP

ICALL USR
ICLOSe
IPOINTER TO FILE NAME
IFIL~ CLOSING ERROR
IGET BUFFER ADURESS

IBUFFER NUMBER INTO Ae
IBITS lIZI,11
ISTRIP
IUSE AS INDEX INTO MASKS
IBUFFER STATUS MAP

IOSla BASIC RUNTIME SYSTEM
1345Z
13451

141U1

3136

AN,D J TEMPI

DCA 8MAP

PALS-V?

10124112

PAGE 79-1

ICLEAR THE BIT FOR THIS 8UfF~R

•

IOS/8 BASIC RUNTIME SVSTEM

10/24/72

PAGE 80
[4J

[ill"

"'~tlr7F~'

~ tIIIe-·r

r~;L/~c~U4!54 ~ s->cf1 TAB I l'eRIU'
-- . /

!JUS

13456

J!563

lJ42

13451
13461
13461
U462

3142
1142
UJ4

13463
13464

3140
1042

U4U

llU
7650
5276
1440
0103
7041
1563

13466
13467

134"
13411

U4U
13473

13414
13475
13476

00~

IHEADER WeiRD
AND JtH.I.I-,l::?~"/STRIP HEADER TO DEVICE" ONLy ..........
9'''' I 1f1!lR'8" ntA PI
TAD MM4
1.1
DCA TEMP]
IUSE"S COUNTER

CHfCKL, TAD *P3

TAD
TIU .~.
DCA T MPI

TAD TEMP]
TAD ENTNO

IGET

OF FILE TO CHECK
POINTER TO PROPER W0 HEADER
ISAVE POINTER
I~' OF FILE WERE CHECI<ING
ICOMPARE TO CURRENT NUMBER r{ e..ttJSL
lIS IT THIS ONE?
IMAI<

SNA CLA .
JMP PSTCHK
IYES.D~~~EiJI~RIVER
TAD I TEMPS
_ IGtT "a'iRf.G.:::te""'~OR_Ttot~ Fl~~ OF INTER
AND ~·t1'6tto IISOLATE BE 5
Y~"'jn1 fl/6£
Elo('~~~P"'(
CIA
,{NEGATE
,~
...,~
TAD i IJQI1,QI;~./hr,cO"'PARE TO CURREN1~cO:E'V;;;E~~~

7650

SNA CLA

5316

JMP

2042

PSTCHI<,

%~l

. C/ff()"'- j¢f77'/ /t;?

IS !olE DEVICE.,. p~ IE it( f

CHETN

, ;I'/~tr - /1 '3 77 9

EAVE DRIVER IN CORE

\~\ ~~~1r;3r.r5"::i-::i,;::N;;.;:-~.,...,t-""-'~!idall~r:~~~N~D;L:;ER~~t!·· .1. !I~3".
13512

7640

135.5

7106
780f>

13511
1351i
115U

CRETN,.

8440
455ft

AND.I TEMPS

DC. OMAP

JMP I ILOOPL

IDRIVER PAGE MAP
ICLEAR HANDLER PAGE BIT

. .,. .4
(w~ ~ (NUfIIr1lJ4 11)~1{1fI'
~
~
'.

ISET FII..E AS IDLE - - )v:QI
IGET RIO Of 17b00 AGAIN
IDONE S"'\P I ('70

MbDbutbi az: P.

1567 TPREL, TAD I WORO~
10~Lv FILE USING HANDLER
1106
CLL RTL
7Pl06
'" RTL I~
~/~S')t!If,~R BUFFER N,I.IMBER
fiI . . . . . '¥'b ofMt:-~ eAr I' 12~ __ '3Ucte
.'!'t .-;to
0H1~4t('
AND K000'" .", ,.
g/o-r.J..
..
1341
TAD AN2PTR
IUSE AS INDEX TO AND MASK

t 1"1-1

13530
135Jl

8232 ~232'
232
2357 ~ ""-..vPS!, FOTVPE fi
33V~BLKI<, WRBlK V~
· ••• 3 ~.$'
35oM¥
TIU,
FILE1~
.6114 w "H,

\~:!.-1:!':--~~13S34

OCA I WORD4 ~
JHS J P18WAP

5312

13532

~1l535
13536 .6Ul
.

=--.....

JMP RElCGM

~f'pTR.f.~C/ ":'.r ~
ISTARING ADDRESSES OF

FILE2

~ c~

IISOLATE HANDLER BUFFER
IMAKE POINTER TO PROPER

13527

13533

35..,

1840

5513

us.n

.....

111135

T
RELCOM, DCA
TAD

13520

.13521
13522
tlSi3
--p11524
13525

ISLIDE 8ITS~ OF HANDLER PAGE TO AC 8ITS 10,11

83]3

3035S>

13517

j,.....

3.q

1]515
lUll>

US14

\''''-3,1

.;~E T:~T~N~~G~;LE USING HANDL.ER THEN (~.;:;f ~dr ~ ~~ ')

..:f.H.4711'
12.8

,.Jr /~"f/I- 1/777 g

AGES?

~~;:: ~::~

135.6
---;:"..=-- U501
lS511

J./

IFILE TASL~ ENTRIES

It C

-¥

",,+=:-..

IA.

A~ ~

~~ ~)

/OS/8 aASJC RUNTIME SYSTEM

.,46

1]537
13510

.,63

13541

]!4Z

13542

1111
7701

UUS

dM?'
• .oar .....
)".FL'
-

PA~8~V'

11/24/72

PAGE 8a-1

FILE~,

FJLf41lLf
ANlPTR,
MMI,
ANDL$Z,

ua-

. . IJ

1- LJ

ttl'. Am!_,

llJ!SilJlr

ItR

~~""-

•

IOS/8

BAIIC RUNTIME SySTEM

P~L8.V7

10/24/72

PAGE 81

361110

ICHUN 'UNCTION
IIETS UP COMMAND DECODER AREA, THEN CHAINS TO SCOMP,SV

3220

JMS I PRINT
JMP .-1
JMS I PlSWA,
JMS I DNA1
JMS I DNA&!
CIF 1111
JMS I 1<7700
10
TAD I WORD7
DCA DNAl
TAD I WORD10
DCA DNA2

6212

13615

CIF 10

4477

JMS I

13616

0012
4]34
4416

13611e

UlID

13611
U6U
U6I3
13604
13615

521/10

136e6

4556

4617
Ui!lll

UU
4504

1]601
1361111
13611

0010

15612

1573

13613

lnt4

13617
llU0
13621

13622
1 S623
13624
13625
UU6

CHUN,

UU
UP

0000
4516
UiH
7640

DNA1,
ONAih·
COIN,

CI,

JMS I ERROR

TAD COIN

SZA CI..A

DISIN

13630
13631

TAO DNAl
CIF 10
JMS I USR

U632

7801

1363l
13634
13635

SU2
1114

n01

13&36
13637
13ltU
13641

1
. JMP

DISIN,

l24i

00ai

13U3

0000

FLN,

13644

4!U6

CI.,

13U5

1242

13U6
13U1

fti!U
36.5

136513

1243

13653
13654
13655

13656

13657
136"0
13Ul

un
713136

n6ft
ti20

3U6
101ft

36U
1 ft70
3276

DCA sn

IERROR
IGET ENTRY POINT OF DRIVER FOR CAHIN FILE
lIS IT IN CORE?
IYES-NO NEED TO FETCH IT
INO-DEVICE • INTO AC
IFETCH HANDLER
IINTO PAGE 70130
IMAKE IT LOOI< LIKE INQUIRE ERROR
IPOINTER TO FILE NAME
IGET DEVICE •

ILOOKUP
IPOINTER TO FILE NAME

0000

13651

IFIRST TWO CHARS OF DEV NAME
ILAST TWO CHUS

ClF 10
JMS I USR

4477

1 SUi!

13652

TAO WORDll
TAO DNAl

1220
6iHl

ICALI. USR
ILOCI< IN CORE

IINQUIRE
IDEVICE NAME

5234
lii0
U12
41177
111111111

13627

IRES TORE PG 17600
IRES TORE SYI RESIDENT
IGET FILE NAME IN NAME AREA FROM CURRENT FILE

USR

PSWAP2
NAMEG

JMP

IEMPTY TTY RING BUFFER

STB,

o
JMS I

ERROR

TAD STa
CDF 10
DCA I L. 7620
TAD FLN
CLL. RTL.

RTL
AND K7160
TAD DNA2'
DC-A I C8L.I<
TAD 1<0100
DCA I L7644
TAD I U&05K
DCA CBLK

IGET STARTING ~LOCK
ISTARTING 6LOCK IN CD AREA
IFILE LENGTH
IPUT IN SITS 0-7
ICOMBINE WITH DEVICE •
IPUT IN CD AREA
ISET R SWITCH
ISTARTING BLOCK OF COMPILEW
IINTO COMPIL~R READ CODE

10S/' BASIC RUNTIME SYSTEM
U662

566]

UII&1

4141
1&44

13664
Uft6S
U666
n667

lun

Uft11
131112

Ulln
U614
13615

un'

13617

13700
1]701

13102

13703

7flill
7161
7'21

JMP 1 •• 1
,SMOY!
&.7U4,
L7UIII,

7.. 5

Ull

CRUD,

CO, 10

CBLK,

elF 0
4613
37013
I
7617

U02

5612
1IIlll
7607

PAGE 81-1

IMOVE THE COMPILER REAO TO FIELO 1 AND EXECUTE IT

ICODE TO READ IN COMPILER ANO START IT
ITHIS CODE GETS MOVED TO fIELD 1 AND EXECUTED FROM
ILOC 211111-2013 IN FIELD 1

Uti
4613
nil

7611

10/i4/72

"44
"211

K17.III, 7160
L7Ul, 1.21
L76051<, 1&05

1000

PALe-V7

HLT
CII' 0
5612
70U
K7.111<, 761117

I"JMS I 1..7&07KI'
III PAGES
10-7577

ISTARTING SLOCK OF COMPILER
!SYSTEM (RROR,AND SINCE WE ARE PROBABLY CLoaSERED,WE CAN'T REPORT IT
I"JMP I .+l Q -START THE COMPILER
ISTARTING ADDR OF COMPILER
ILESS THAN THE DESIRED VALUE

IROUTINE FOR INTERPRETER EXIT
\Y7-i3 U784
"'·13105
.rU706
" 13707

713710
2-013711
~'1311i

1,11!£1J1U
z.3U71 4

/YES -ECHO •

AI. 13715
-i,S'f3716
z.~.u711

'?-'1l]120
~3721
~t13122

IECtofO "C"

3723
13 24

13725
713726
..,OU727

'U730
z.U731

~13732

'-fU733

~13734

~1313S

\!
,
!

71313.
~U737

, 13740

ISHALL WE CALL THE EDITOR?
INO JUST CALL 05/8
IYES-PUT THE BLOCK , I~ DRIVE~ CALL
!CALL ·SVS DRIVER
IREAD 7 BLOCKS
IINTO 0-3371
!BLOCK , OF EOITO~

.:~.

IOS/8 BASIC RUNUME SYST!M

~"2-t]T41
5:3 UTU
.5'(13713

$~U7""
I. UT45
713146
1>0' 137,,1
I 13150
.,...13751
.3U752

TIU t/
51... S-

l0U

HLT
JMP I

lUi!

4H41{, P2SWAL, PSWAP2
7&01 KL7U0., TU0,

161/17
7UI
1575

03]6

LK7&11l7, 76107
7fJPlI ..

ED8LK,
MCC,

-203
KUPARO, ]]6

un Ke.

]03

PALe-V7
,+1

10/il/72

PAGE 81-2

ISYS ERROR,AND SINCE WE ARE PROBABLY CL08aE~eD,W~ CAN'T REPORT IT
ISTART THE EDITOR

IOS/8

BASIC RUNTIME SYITEM
urUJ

IFILE OPENING ROUTINE
lilTS IN THIS OVERLAY B!tUAS~ THERE IS ROOM HERE, AND THE USR IS
IGOING TO SPIN SYS ANY~AY
14100
1401211
14121f11i
141111213
14004
14005
14121121.

14111
1411110
14011
140U

1411113
1411114
1411115

14U'
14117

141!1i!0
14821
141ai2
1412123
1411124

14125
lUi!'

t4lllii!7
14130

VtUl

J-'7 v14032
1411133
141]4
101/135

1411!'

14137
14040
14141
14042
14043
14144

14045
140U
14041

U4III!S10PENAV, TAD C4
OPEN", lAC
JMP OPENNF

7001
5i!04

~~:~:=:~: ~~~ C4
1 U 2 \'6""

1658 tI'"
551 ] t;S"'tI
15 61 R:1'l-

TA D

164G1 ',/
451&

455.
4141
6212

4504

00U
1512
lU?

]230
ft212

4477

0Ui
40i?
4030
1111100
4516
lU0
HUI
1012
7012

15U
15U
1211
7440

5734
1035
7UI2I

7420

14058

5262
111111

14051
14052

5213

1410

"8,

I
10

I K771/J0
I WORDI
DEVNAI
I WORDle
DEVNAi

10
I USR

IALPHANUMERIC,VARIA8LE LENGTH
IALPHANUMERIC,FIXED LENGTH
INUM~RIC,VARIABLE LENGTH
ISET UP HEADER WORP
lIS FILE TTY?

IYES-DON'T DO ANYTHING tIll, &- 110 - - - IGET HANDLER ENTRY
lIS FILE IDLE?
IATTEMPT TO OPEN FILE ALREADY OPEN
IRESTORE 1760G1
IGET FILE DEVICE NAME AND FILE NAME INTO WOROS 7-14 FROM SAC
ICALL TO USR
ILOCK USR IN CORE
IDEVICE NAME INTO INQUIRE CALL

ICALL TD USR
IINQUIRE
IOEVICE NAME

DEVNA1, •
DEYNA2, •
ENTRYN, 0
IENTRV POINT
IN,
JMS I ERROR"TAD DEVNA2
IGET DEVICE •
eLL MAR
RTR
IPUT INTD BITS 0-J
RTR
TAO I WORD0
DCA I WORD0
ISTORE IN HEADER WORD
TAO ENTRYN
IGET DRIVER ADDRESS
III
.
I IS IT IN CORE?
___- - - - - - - - - JMP I DRIVR~) /YES-NO NEED TO FETCH IT
TAO OMAP
INO-GET MAP OF DRIVER PAGES I~
CLI. RAR
IPAGE 1000 BIT IN l.INK
tf W
SNL
lIS PAGE 7000 FREEt
JMP FNEE70
IYES
eLL RAR
INO-7200 BIT TO LINK
SNL
lIS PAGE 7200 fREE?
JMP FREE12
IYES

•

105/8 BASIC RUNTIME SYSTEM
1411153

1411154
vi 141/155

711111
76]0
4516

1411161

1103
l311
134111
5303

1411162
lOU3
1411164
14111615

7110
1620
7001
1335

14066
141/161

3111

14056
14057

1411161/1

1417111
14011
1411172

141/173
1411174
14075
14016
14017
14100
14101
l4te2

7326
3336
HI01
5303

14113
14114
14115
1411&

14117
14120
14121

IPAGE 7200 SIT TO LINK
FREE 7111, eLL FUR
115 7200 F'REE?
SNL CLA
IYES-THERE IS ROOM FOR A TWO PAGE HANDLER
lAC
TAD K1000
ISET UP FETCH TO USE PAGE 7000
DCA IfETPAG
CI.L eLA CML. RTL. ITURN ON SIT 10
ISAVE IN TWO PAGE SET WORD
DCA TPM
15ET BIT 11 TO SHOW PAGE 7000 OCCUPIED
lAC
JMP OPErCH
IFETCIo! HANDLER
eL.L. RAR
SNI. CL.A

. lAC

DCA FETPAG

1230

U12
4417
0001
'1111
451&
6211
7240
1737
123 III
3040
1440
6201

141i2

7700

14123
14124
14125
14126
14127
14130
14131
14132
14133

5332
1]]ft

1035
3035

111173
1563
3563
1311

5734

17400 BIT TO LINK

115 7400 PAGE FREE?
IYES-THEN THERE IS ROOM FOR A 2 PAGE HANDLER

TAO K7200
TAO C4

1035

J14Ut
14112

DO,

1340
333ft
7326

30)5

PAGE 83

INO-7400 BIT TO L.INK
q &.vtlIS PAGE 7400 FREE?
SZL CLA
JMS I ERROR_ INO-NO MORE ROOM FOR DRIVERS
IYES-LOAD HANOLER INTO 1400
TAD 1<7400
15ET UP IN FETCH CALL
DCA FETPAG
ISET BIT q TO SHOW PAGE 7400 OCCUPIED
TAD C4
JMP OFETCH
IFETCH DRIVER

Hl1

14103

•

10/24/72

Cl.Io. IUR

7110
7&i0
7001
1342

14104
14105
14106
14107
141lllJ

PALS-V1

15fT ADDRESS IN FETCH CALL

DCA TPM
IIF TWO PAGE LOAOED,SET 6IT q ALSO
CLL CLA CML RTL ITURN ON SIT 10 TO SHOw PAGE 7200 OCCUPIEO
Ofl'ETCH, TAO OMAP
ITURN ON PAGE BIT FOR WHERE &dFr!~ WIll BE LOADED
DCA OMAP
l'r-h,(.l'
10EVICE , IN At
TAO OEVNAi!
elF 10

JMS I USR
1

ItALI. TO USR
IFETCH
IDRIVER AOO~ESS

HTPAG, •
FE,
JMS I ERRORCDF 1121
CLA eMA
TAO I L0037
IGET AOOR OF HANDL.ER INFO TABLE
TAD DEVNA2
IUSE T~E DEVICE , AS AN INOEX INTO THAT TABLE
DCA TEMPI
ISAVE POINTER
IGEt THE INFO wORD FOR THE HANDLER JUST FETCHED
TAD I TEMPt
CDII'
SMA eLA
lIS HANDLER 2 PAGES LONG?
JMP ORAP
INO MAP IS COMPLETE
TAO TPH
IYES-UPDATE DRIVER MAP TO INCLUOE
TAO OMAP
ISECOND PAGE OF TWO PAGE HANDLERS
DCA OMAP
TAO K0010
ISET 2 PAGE BIT IN HEADER WORD
TAD I wOR00
DCA I wORDII!
IHANDLER ENTRY ADDRESS
DRAP,
TAD FETPAG
IPAGE ESCAPE
JMP I ORIVRL.

14134

4200

ORIV~L,

ORIVRN

14135

1000

K7000,

7000

IOS/8 BASIC RUNTIME SYSTEM
141U
t4UT
14140
14141
14142

1"0
IU1
l!IIe4

TIIH.

L0037.

PALI-Y7

10li4172

PAGE 83-1

e4,
4
4416 NAMEGL, NAMEG
fi8IIJ Kuee, 1200
IRDUTINE TO MOVE THE'COMPILER READER INTO FIELD 1 AND START IT

1lfti!\<7,1:8MDVE, TAD esu
DCA leRl
U63 \;10
TAD CSTAe
31i1U t/
DCA TEMPI
TAD KK2011J0
1361 I'?>""
lUi! ./
DCA XR2
U01~
CDF
lUi tV

TAD I )CRI

14U../
6211"/
3412
2040/
5351 s)4~
Uta./'
4761~'1
141
141"W'l' ~
14 l-6-J~ 77.5
- ~;

•

COF 10
DCA I )(Ai!
lSZ TEMPl
JMP ,-5
elF 10

JMS I

ICOUNTER
IMOVE TO LOC 2001 IN FIELD 1
IGET WORD OF CODe;
IMOVE IT
IDON~?

INO
IYES-START IT

esu,

).'1

eSTlt,

. '1

IPOINTES TO COMPILER STARTING CODE

~;-

~;~~-)Jll

1~'-: V~.

•

10S/8 BASIC RUNTIME SVSTEM

lUeB
lUll
142tz

14103
IUm4
ta2l5
lum.
14UT
14i!t0
14il1

t4Ui
14213
ta214
14215
1421&
14Z17
14 ii! £I

tillHIJ

*420111

35ft1

DRIVRN, DCA 1 WORD4
TAD 8MAP
eLL RAR
SNL
JMP 81
RAR

1036

7110

1I2QJ
5U4

7010
1420
522T
7010
74i0
Siii
7010
7630

4SU
132.
35&4
5237

14222

lU24
lUiS
IUi!&

Sal1

7i0QJ
1102
3S&4
732&

14233

5231

14i!J4
14235

Ti00
35&4
ne1

1423.

B3,

1321
35&4
!l3e

lUi7
lli!Jfl
unl

lun

80,

1073

ta2iH

tun

SN&.

JHP 82
RAR
SNL
JMP B3
RAR
SZL CLA
JMS I ERROR
TAD 1(14£1£1
DCA I WOROI
TAD K0010
JMP BUFA5S
CLA
TAO K1000
DCA I WORDI
TAD CC4
JMP 8UFASS

PALS-V7

•

10/_24172

PAGE 84

IDRIVER ENTRY INTO 110 TABLE
IGET aUFFER HAP
IBUFf! BIT TO LINK
lIS IT FREE?
IYES-ASSIGN BUfF1
IBUFFa BIT TO LINK
lIS IT FREE?
IYES-ASSIGN BUFFa
IBuFF3 BIT TO LINK
lIS IT FRU.
IYES-ASSIGN BUFF3
INO·8U~F4 BIT TO LINK
lIS IT FREE?
INO-NO MORE BUFFERS AVAILABLE
ISET BUFFER ADDRESS TO 1'100
ISET BUFF4 BIR IN MAP

ISET BUFFER ADDRESS TO 10£10
ISET BUFF] BIT IN MAP

B2,

CLA
TAD K0400
DCA I "'ORDI
15ET BUFF ADDRESS TO 400
eLL CML CLA RTL 18ET BUFF2 BIT IN MAP
JMP BUFASS

81,

CLA
DCA I WORDI
Ct.A lAC

ISET BUFF ADDRESS TO £100111
ITURN ON BUFFl 8IT IN MAP

•

IDS/8 BASte RUNT!ME SYSTEM

UU?
14140
14141

14142

1836
303'
1"3
71U

14243

7010

14244

7'20
525]
1331
4275

lUllS

14246
14247
IUS0
U2Sl
14252

]sn
]571
sue

14253

732t1

14254
14255
14256

4275

14257
14ZU

142U
14"2
142n
tUU

14165
14266

14261

3571

1571

nu
3573

7U0

1570
3565

1564
3566

6212
4477

tun

111011

14272
14173

5513

14211

14274

•

BUFAS$,

455'
4674
nra2

TAD BMAP
DCA 8MAP
TAO I WORD0
eLL RTR
RAR
SNL CLA
JMP FLOOK
TAD CC3
JMS ENTLOI<
DCA I WORD?
DCA I WORD'
JMP CLEANP

PALI-V1

10/24/7~

PAGE 85

IUPOATE SUFFER ASSIGNMENT MAP
IGET HEADER WORD
IFIXED,VARIABLE 8IT TO LINK
lIS IT FIXED?

IYEa.DO A LOOKUP
INO.DO AN ENTER
IENTER
IMAXIMUM LEMGT~ IN WORD 7
IZERO ACTUAL LENGT~
IFINALIZE 110 TABLE ENTRV

FLOOK,

eLL CML eLA RTL 12
JMS ENTLOK
ILOOKUP
DCA I WORDe.
IACTUAL Lt.NGTH
TAD I WORD6DCA I WORD7
IALSD EQUALS MAXIMUM LENGTH
CLEANP, DCA I WORD10
IZERO COLUMN POINTER
CMA
1 .. 1
TAO I WORDS
ISTARTING SLOCK-t
~CA I WDRD2
ICURHENT BLOCK '-STARTING BLOCK·1
TAD I WORDI
DCA I WORD]
IREADIWRITE POINTER AT BEGINNING OF BUFFER
elF 10
JMS I USR
ICAI.L TO USR
11
IUSROUT
JMS I PiSWAP
IGET RID OF 17600
JMS I NEXRCK
100 A NEXREC TO READ IN FIRST FILE BLOCK
JMP I U.OOPL
IDONE
HE"Rel(, NExREC

•

IOS/8 BASIC RUNTIMf SYSTEM

. ~14Z7S
14276
14277
143ee
lUlU

14302
lUIIIl
S43U

1430&
~
"'"5
. ~~
\~\t-1UIII1

:.f1
\t~

lU10
lUll
14312
14313
14114
lUI!
141161
14117
lU20
lnu
14322

iun

lUi!4
143a5
lU2ft

lun
lU30
14331
una
14333

fNTLOK, 0
DCA 'NcM
1114 •
TAO ."OROll
~CA STAFfTB
33Ktl\o
TAD I DEVNAL
11)1.'7"'.. au
CIF 10
4477
JMS I. USR
U'"~ FNOM,
U0;'~ STARTS,
•
43~1\ FLEN,
•
JMS I ERROR
451' EN,
13R15
TAD STARTS
76140
au CLA
S]i1
JMP FILaTU
TAD FLEN
-130'
76140
SU CL.A
5321
JMP FILSTU
1333
TAD C20
15&3
TAD I wORD0
35&3
DCA I WDRD0
131115 FILSTU, TAD STARTB
]570
DCA I WORDS
1306
TAO FLEN
7041
CIA
5675
JMP I [NTLOK

PAL8-V7

•

10/24/72

PAGE 8&

0000

3JM...~tyt.-

1400
1000
0004
0003
4030
l1J0a0

1<1400,
K101!J0,
CC4,

ces,

lUB
U!l00
4

3
DEVNAL, OEVNAi!
CU,
i!!11

IFUNCTION NUMBER IN PLACE
IPOINTER TO FILE NAME
IINTO CAL.L
IDEVICE NUMBER
ICALL TO USR
IENTER OR LOOKUP
~

IFILE STARTING BLOCK.
lIS IT NON.ZERO?
IYES-C~VICE IS FILE STRUCTURED
INO-GET FILE LENGTH
lIS IT EMPTY?
INc-CEVICE IS FILE STRUCTURED
INa-FILE IS READlwRITE ONLY
ISET READ/WRITE ONLY BIT
IGET STARTING BLOCK • OF FILE
IPUT IN 110 TABLE
IFILE LENGTH
IMAKE FILE LENGTH POSITIVE
IRE TURN

•

101/8

BAIIC RUNTIME SySTEM

~_~l

J'L-\-j~
"~
~~7'

\, .

PALS-V7

l1/ia/72

ISUBROUTINE P2SWAP.AtSTORE OS/8 RESIDENT MONITOR PRIOR TO EXIT FHOM INTERPRETf~
ITHII IS DESTRUCTIVE eOOE,ANO ONCE THIS ROUTINE HAS ~EEN EXECUTEO
ITHERE IS NO PLACE TO GO BUT OUT.
IHAS ] 'UNCTIONSs
I
t) REMOVES CTRL/C HOOKS FROM SYS DRIVER
I
2) RESTORES BATCH CONTROL WORDS TO 27714-27777
I
3) I' SYS-TD/8E,RESTORES PAGE 21600 AND RETURNS COF5 TO PAGE 07600

.:? G?~4334
011110 PSWAPi, 1/1
'4335 1'6J
TAO K4i01K
~1.33'
~14337

3170

514J4e

3111
111 U ------.-,,,~. 0 p sn Aii-- fG£ T Jtt;S-l-DeNT·-Sn'TttS--~"7110
SPA eLA
115 THIS T08/E SYS?
~~:~
K~5n:IXJ. - IYES-RESTORE PAGE i!7UIII AND PAGE 07&00

k S43' 1

rtt351 Thb ~
'EJ:~::
1.34i

136.

~
14145 Jeu
t~ t434ft 1366
~ CbF-~UJl7 3012

:z.

tt ~. ~JSI!I
4J'1

n61

r ~flF ~14}5I

61211

6 ~.t: ?tfJ53

3040

9" '/JA 56

IREMOVE

CTRL/C HOOKS

---=;iSI

DCA XRI.
TAO K117JK
DCA lIRi.
TAO MIN4
DCA TEMPI.

IPOINTER TO 17&00

--/POINTER TO 21714

:::; ~~~~;~: :::;. . .
1173

)-1un
,,14311

1608
1611l!

717&

"7' 7

INO

IY£I-WE ARE FINISHEO,SO RETURN

i,..P_._ _ _ _ _

'1014366
) 1&]67

,,.r) C.bF-:/N

IRESTORE IN FIELD l

~ ~

IDONE'f

J,iuu U13 K6il!K, 6213
:714165 7517 1<15711<,1571-7¢.b4

•

LMP "":t

r
'" \
TPr~ I
(7C"71
,.. L.-. zJ ebF"'.
~ Q"".., ~
I
,'''''~ ~;Z:... j("1'?73

ISET COUNTER TO -4

DCA I lCRl
liZ TE'MP 1

I PSWAPi

PiTc.J.

""..0 'Z- ~~~ Pc:."..A ~ +-3c" 'Z- to.. (

a840

JMP

7 A ')

1":z:r-1 IO~ TA-'b ~1

&Zit

J"' ,-.5
CDF

f!J'

--......_-,.. > ~ ,~

IFETCI1 8ATCH WORD FROM SAVE AREA

1411

1 ~I () r'l;.Jl{lU!1 nsa
"!. 61... c[)r;,oW~ 61111
\"S JPtV"" ~r"6'l- !lU4

I~~:~:~

DCA I ~1'00K
TAD K6illK
DCA I L1~~5P

CDF 10 .
TAD I lCRt
COF i0 .

'ffiE4 UU
>, .re-b'
:t:SL.-(7
- 0

PAGE 87

':¥",,,

#.:3';·';:-se "I "K"')

'0 ").3"'0 :c;5~ tI'!1fJ

I ~3.~.3 ~~~
I~P
PF ~
'2..
"I
3 574 I .T~~.z:. "3..,,~o

K1713IC, 1713 . 0
MINI,
.4 ~

L1600K, 760111~_".J.
L1ft05P, 7605
-'

•

tI_------J

)

'Islltf

•

101/8 BASIC RUNTIME SVST!M

PALS-V7

4411

1441/11

7116

lUlU

1110

1441/12
lUI/Il
1441!14
14415
144e6
144117
14411
14411
14412

441i15
11111

14Zl
1311

111413
14414
14415

1',&
1714

11111111
1001
111011
0110
111011

7HZ

745 III
53"6
U01

14457
14460

53i5

7651

PAGE 88

INAMEG-ROUTINE TO TRANSLATE SAC INTO A 6 WORD fILE NAME BLOtK,THEN
IPUT THAT NAME BLOCK INTO THE BLOCK SPECIFIED BV THE At ON ENTRV
MCOLON, -u
MCIP£, 14
N]A,
N]
Nl,
III
IStRATCH NAME BLOCK
NZ,
I
IDEVICE NAME

N],

N4,
NS,
N6,
DS,
KII,

0
0
1/1

14i]

MMM4,

-4

CC16,

IFILE NAME
I.EXT

UBIIJ

"6,

1111 NAM£Ii, "
1
11
TAD WORD?
DCA TEMP]
,J1l~:-:-0--.1~4i
144il 1111R
TAD STRLEN
14422 U14
TAD ten
14423 USIII
SPA CL.A
14424 4!Sl6 IF,
JMS 1 ERROR
lUU 111132
TAD ITRLEN
lUi& 3107
DCA TEMPi
lUi1 1111
TAD SACPTR
144JII 1UI
eLL lAC
14431 4511
JMS I LDHINL.
14432 US?
JMS I LDI'IRST
1443] un
TAD N]A
144]4 71'0
eLL.
tUn 4526
JMS I STHINL
14436 456111
J"S .1 STHRST
14437 Ull
TAD OS
14440 32U
DCA Nl
14441 1212
TAD K0 rr/L J14442 3214
DCA Ni vV'lr
1444] li0S
DCA Nl
14444 li06
DCA NA
14445 li07
DCA N5
1444& 3UIII
DCA Nfl
14447 ]'43
--oc-rTE MP 4&
14450 4531 NCG,
JMS I LOM
14451 311140
DCA TEMP!
lUSt! 11/141
TAD TEMPl
1445] U00
TAD MCDLON
14454
14455
14456

•

1111/24/72

SNA
JMP CAD
TAO MCSPE
SNA CLA
JMP SSAO

IPUT THE NAME IN FILtNAME AREA
ISAVE DESTINATION BLOCK ADDRESS
ICOMPARE STRING LENGTH TO 16
ITOO MAN V CHARS IN DEV.FILENAME
tSTRING LENGTH COUNTER
IINIT LDH TO PULL CHARS FROM SAC

IIN!T STH TO PUT CHARS IN SCRATCH BLOCK

IINITIALIZE DEV TO OSK:

IZERO FIL.E NAME
IZERO INT~RMEOIATE COUNTER
IGET CHAR FROM SAC
ISAVE
lIS IT A COLON?

IYES-CHARS SO FAR-OEVICE NAME
INO-IS IT A PERIOD?
IVtS-NEXT TWO CHARS-EXTENSION

IOSl8 BAlIC RUNTIME SYSTEM
14461
14462
144&3
144'4

tun

lUI
4530
iaU

Ue7
5250

NeGS,

TAO TEMP1
JMS 1 STH
lSI T!MP4
ISI TEMPi
JMP NeG

PAU-V1

101i!4112

PAGE as-I

INO-GET CHAR AGAIN
ISTOME IN NAME BLOCK
IBUMP COUNT FOR CURRtNT SECTION
lEND OF STRING YET?
INO-NEXT CHAR

•

BASIC RUNTIME SYSTEM

,u:43f

14466
14461

14411

7141

14471
t44Ti
144n
14474
14475
14476
14417
1451/11/1
14501
U511Ji!

Sil4
U42

tUn
14514
14505
14506
14507

I~· I

1114]

12&3

145U
14511

14512
14513
14514
14515
14516
14517

u5a8

14Sat

3011

rue
U42

lUi
1213
311/17
1411

3412

MML,

2007
5301

§flU,
11/143

CAD,

ut!
174111

5224
1205

, . t... r

tl':vvr 14525
U52ft
14527
145]0
U5]1
1453Z

145]]
14534
14535
14536
14!!]r
1454IIJ
14541

14542
14543

TAD TEMP4
TAD "'MM4
SMA SZA CLA
JMP IF

IGET CHAR COUNT FOR THIS SECTION
ICOMPARE AGAINST 4
ITOO MANY CHARS?
IYES-DEVICE NAME TOO LONG

IYES-GET CHAR COUNT FO~ THIS S~CTION (NAME)
lIS IT .&7

IYES-TOO MANY CHARACTERS IN FILE NAME
INO-ADDRESS OF SCRATCH NAME SLOCK
I-I

IADDRESS OF FINAL NAME BLOCK-1
IMOVE It WORDS
IMOVE NAME WORD FROM SCRATCH AREA TO FINAL DEsr

IOON~?

rn~/NO-MOVE NEW DEVICE NAME FROM FILE NAM~ WORDS TO PROPER PLACE

3214
3285
320ft
U02
7180

3143

SU4

INO
IYES-RETURN

DCA Nt
TAD N4
DCA N2
DtA N3
DCA NO
TAD N]A
eLL
JMS I STHINL
.... DCA TEMP4
JMP NtGS

121/16

lun 452ft

lU2]
14!lo

PAGE 89

TAD TEMP4
TAD Mft
SMA au CLA
JMP IF
TAD N1A
DCA J(RI
eMA
TAD TEMP]
DC'A J(R2
TAD M6
DCA TEMPi
TAD I J(RI
DCA I lCRi
lSZ TEMPi
JHP MML
JMP I NAMEG

--no'N3

lin

10/24/72

ICLEAR FILE NAME
lAND RE-INIT STH FO~ NAME .REA
IZERO COUNT

7100
4526
SU4

TAD TEMP4
ICOUNT FOR THIS SECTION (FILE NAME)
TAD Mft
SMA SlA CL.A
/TOO MANY7
JMP IF
IYES-FILE NAME TOO LONG
DCA TEMP4
INO-CLEAR COUNT
CLA CLL CML RTR 12 IN At
TAD TEMPi
ICOMPARE AGAINST' OF CHARS LEFT
SPA CLA
JMP IF
ITOO M.NY CH.RS IN EXTENSION
TAD NItA
CLL
JMS I STHINL
IINIT STH TO PUT INTO EXTENSION
JMP NeGS

4402
4410

1213
1740
SU4
]llJ4J

73]2
U07
71111J

5224
13n

SUD,

Nl-1

•

,ol,a SASIC RUNTIME SYSTEM

PA~8.VT

10/i4112

PAGE 90

'SUBROUTINE TO RESTORE PAGE 21600 OF TDI/E ORIV£R
lAND READJUST ~~'~IELO 0
141U
US4!I

1110
Jill

II!U

14541

lJU
JUS

145511
14551

J7U

14553

usn

4556

14154

3766

14555
14556
14551

37111

1361
1361

1456111
14561
115fJ2

1171
5144
Ull

14564

1241

,',t-UH

1642
6ail
7721
7727

14561

12113

,\ ./'ct,
lltSM un
-,' .~ 1-4*6
0"t 1""""

,,,"~' ."", HUel

PSWPiP, 0

~S'LAG

TAD CDFlfll
DCA I P!COH
TAD CO,20
DCA I P2COLl
JMS I PUr/AI'
TAD K6223
DCA I L"642
TAD KUl2
DCA I L7121
TAD K6i22
DCA I L1721
JMP I PSWP2P
COF,0, CDF i0
P2CDFL, P2CDF
P2CDI.1, P2COfl
K6223, U23
L764i, 1642
uua, &Z22
L7121, 7721
L7727, .,UT

fCLEAR RESIDENT STATUS FLAG
IPUT COF 20 IN SWAP ROUTINE
IMOVE OOWN PAGE 21600

fRESTORE CDFS IN PAGE 07600
IRE TURN

lJ "

•

101/8 BASIC RUNTIME SYSTEM

elll

PALS-V7

•

10/i4112

PAGE 91

FIELD 0

111111111111111111111111111111111111111111111111111111111111111111111
111111111111111111111111111111111111111111111111111111111111111111111
111111111111111 ENO 0' OVERLAY AREA 111111111111111111111111111111111
1111111111111111111111111111111111111111111/1111111111j/IIIIII//III/l
11//1111/1/1/111/11//11///11111111/11111111111111111111111111111111

105/1 BASIC RUNTIME SYSTEM

PALI-V7

10/24/72

PAGE 92

IFNIAQ HE e
NOPUNCH

IHERO EA! e

4681

.0608

"LOATING OUTPUT RDUTINE
1IJ46IIJ III

IIJCIJII
7344

84.,,2
lun 3117
84..,.
1856
7UI

IU6I1

FFOUT,

313ft

1114611JS
I114ft,&
111461111
1461111
1114'11
1114'12
84613
84ft14
114ft 15

5iU

1341
lI6fII

1321
3057

IIIU16
114611

U32
372.
111145
1450

IUi!121
I14fti 1

!ti!U
HIIJI

14'22

5225

I4U3
14'U
lAlti5

14U.
14ft21
84UI
I4Ul

413ft

'OUTI,

SU4
413S

5317

l4ua un

I14U]
114&34

uus

,un
84631
114641

14641
I114U2
I14Ul
04644
14U5
I14U6
14641

5ii5

UIIJ6
4535

5155
lU4

1132
31145
311146

us.

7UI
1331
7041

14&51

lIII6fII
750111
714111

811652
14653

1510

IIJ0654

7200

0465a

•

1330

CI.A eLL eMA RAL IMAKE A MINUS TWO
FFNGP
DCA I
lAND STORE IN SIGN WORD
I(NT
ICLEAR COUNT WDRD
DCA
lIS THIS E FORMAT?
EFLG
TAD
au
CLA
JMP
IND-' FDRMAT
'FMT
K6
/YES-GET A 6
TAD
ISTORE AS • OF DIGITS AFT DEC PT
DCA
DADP
ISET FIELD WIOTH TO 14 ( DECIMAL)
1<16
TAD
DCA
FLOW
IDF TD PACKAGE FIELD
CDF
KM1
ISET • OF SIGNF. DIGITS
TAO
DCNTP
ITO .. (DON'T PRINT 7TH)
DCA I
ACH
TAD
IDE TERMINE IF
aNA
JMP
Faun /yES-SI< IP DOWN
SMA
CLA
INO-IS IT NEGATIVE?
JMP
.+3
IPOSITIVE
INEGATE •
JMS I
'FNGP
DCA I
INEGATIVE-SET FLAG
F'IIiGP
ACX
IGET • INTO RANGE .1e a Nel
TAD
SMA SIA CLA
lIS UP. NEG.?
FOUTi
JMP
INO-GO ON
IfFMPP
IYES.MA~E • GREATER THAN 1
JMS I
TEN
18Y MULTIPL.YING BY TEN tDEC.)
KNT
/COUNT THE MULTIP~IES
lSI
paUll
JMP
ISEE IF -1 YET
Sf
JMS
I. IS -1·MA~E IT LESS THAN 1
JMS I
FFPUTP ISTDRE IN A TEMPORARY
TM3
AClI
DCA
ISET FAC TO .5
CLL CML. !lTR
ACH
DCA
DCA
ACLD
EIf!.G
lIS THIS E FORMAT?
TAD
au
CLA
KNT
TAD
INO-GET COUNT OF MULTIPLIES
CMA
lAC
INEGATE IT
DAoP
TAD
lAND ADO' OF DIGITS AFT. DC. PT.
SMA
IMUST BE NEGATIVE
eMA
KK7
TAD
ILIMIT • OF DIVS TO 7
SPA
CLA

'-0

173.
1044
7141

Ii!I

PDUTi,

•

IOS/8

BAIIC RUNTIME SYSTEM

14.55
III "6

InZ
3316

IIlUl

TAD
DCA

JMP

PA~8.Vl

KM7
SE

.+]

•

10/24/72

PAGE 92-1

IRESTORE
ISTORE AS COUNTER

•

101,8 BASIC RUNTIME SYSTEM
'46&0
114661

4n4
5317

IIUU

illl'
!I 261

euu

JMS I
TEN
lSi
JMP
JMS I

14664

4733
.1016., 5155

1 ... 66
114667

e4610

flJ4611
flJ4672
flJ4673
'4614

4306
111141
7041

TM]

FOUT4,

4UO

4705
471115

un Foun,

e4675 31117
us.
1214.".
lIun 7U0
041e0
flJ4701

04102
04103
114104
11147QJ5

5343
33J7

5347
.07i

.051

JMS
TAD
CMA
JMS I
JMS I
JMS I
TAD
DCA
TAD
SlA
JMP
DCA
TAD

JMP

AcaRPT, ACSR
ALlPT, ALI

PALI-V7

10li411C!

P.GE 93

FFDVP

IDIVIDE .5 BY TEN THAT , Of TIMES

IDONE?
INO-GO ON
IYES.AOD IN ORIGI.·THIS IS ROUNDING

1-]

FFAOP
SE
ACX
lAC
ACSRPT
AL1PT
AL1PT
KNT
OP)(
EFLG
ClA
NOTE
KNT
KM1
ADFW

IINSURE THAT IT IS IN RANGE
ISHIFT MANTISSA ACCORDING TO EXP
10-1 LEFT' I-NO SHIFT,a-l RIGHT" ••
ISHIFT RIGHT (AeX.l) PLACES
/SHIfT LEFT i TO CORRECT
I(WE ARE LOSING BITSSI)
IOONE-GET COUNT OF MULS.
IPRESERVE IT
lIS THIS E FORMAT oun
INO
IYES-ZERO COUNT
IGET MINUS 1-FOR C! SIGNS,PT,+EXP
IGO ADD FIELD WIDTH

IROUTINE TO GET FACe 1
11147111.

1111110

14710
114111
1147U
1114713
111471'

511.
473'
5317
7111n

147U
1114717

3]J7
5307

fJ4TG!'1 _ lUG

1114715

•

1750

SE,
SE1;

0
ACX
TAD
SPA SNA eLA
JMP I
SE
JMS I - FFDVP
TEN
eMA
TAD
KNT
OCA
KNT
JMP
SEt

, •• 17

INO-RETN.
/YES-DIY I BY TEN
/REDUCE KNT BY 1

•

/OS/. BASIC RUNTIME SYSTEM

IU28

5151

14122

Inn

11111116
560111
5160

1112'

5172

,.721

114115

5176

lUi'
"U1
14731

5137
7717

'4731
InJi

7161

IIIOn3

14734

IIIIU

7771

1II1U
568 III

14737
IIl4 74121

6135
''''1'111
GlIIl06
4743

1114743
14144
14745

147'"

14147

aa7!5111

unl

14T52
14753

un4

14755
14756
14157
1114160
114761

14762
147&3
147.,
1147&5
1147U
1214767
1!14 77111
1114771
111477Z

04773
!/J4774
1114175
1114176
04771

PRNTXP, PRNTl(

PRUQP, PRZRO
OGTYPP, DGTYP
DCNTP, DC NT
"I,

7717

KI<7,
ICMilll,
ICM7,

7
-2G1
-7

"ADP, "ADD
"8'
5Ui! 'FOYP, "DIY

14735

lun

ICONSTANt. AND POINTERS
DUTDIIP, OUTOG
K16,
1ft
FLINK, JMP I
FPOUT

1337
7500
fi41

'FPUTP'FPUTL
'PMPP, "MPY
FFNGP, FFNEG
KNT,
0

Kft,

*4143

NOTE,

7141
3734
1860
7451
714111
1U4
nil
57U
]]0.

ADFW,

5u4
lJll
4 filii

5]62
734.
173ft

4121

1317
750111
5724
711141
47i5
10ft0

TAD
TAD
CMA
DCA I
TAD
INA
CMA
TAD I
SMA
JMP I
DCA
J"P
TAD

i]1II6

USI/l

TAD
SMA
CL.A

un
U57

•

ICONTINUATION OF OUTPUT MAIN~INE

PROCP,

KNT
eMA
I'll

FLOW
lAC
F'OYP
DADP
,FOVP
PRNTXP
SE

IGET COUNT OF MULTIPLIES
IIF NOT NEG-MAKE • -a
IMINUS 1 FOR DEC.PT
IGET THE FIELD WIOT~
INEGATE IT
ISTORE WMILE WE CMECK DAPP
IGET DIGITS AFTER DEC, PT
/010 HE SAY NO DEC, PLACES?
IYES-TAKE AWAV 1 SINCE NO DEC, PT.
IAOO IN REST
INEII7
INO-PRINT xS-NOT ENUFF ROOM
1ST ORE AS CNT OF SPACES

.+3

KMi0
aUTDGP

JMS I
IPRINT A SPACE
ISZ
SE
IDONE?
JMP
,-3
INO-GO ON
CLA CLL CMA RTL IMAKE A MINUS l
TAD I
FFNGP
IYES-GET SIGNC •• 2 OR 0)
JMS I
DUTDGP IF OR PLUS OR MINUS-PRINT SIGN
TAD
~NT
IGET MUL COUNT
8MA
JMP I
PRZROP IPRINT LEADING ZERO
CMA
lAC
JMS I
DGTYPP IOUTPUT 'KNT' DIGITS
TAD
DADP
ICHECK DADP FOR 0
SNA
C~A
IOON'T PRINT ',' IF OAOP_0

1*************************************

IFALL THROUGH PAGE BOUNOARY!!I
I'SNA CLA' MUST BE LAST LOC, ON PAGElll
I(CURSE YOU B,C.)

1******************************** •• *.*

•

IOS/8 BASIC RUNTIME SySTEM

5000
051800
05001
05002
I2ISID03
0501/14
0S00!
0500ft
1/15007

nlu

05011
05012
1D5013
05014
1151115
05I/JU
05011
05020
8S0Z1
115022
I/IS0i3
051824
I/ISVJC!5
05026
05021
0511130
05031
051/1!2
0S033

051/1!4

o!Ins

•

eS0n
lIJ5en
05040
05041
051/142
051843
0SID44
0511145
215046
050111
05050
05051
05052
051853
05054
185055
05056
05051
05060
1351361
05062
050&3
050(,4

Sin
7344

4350
1154
17!i0

sus

1754
711140
321&
1060
7040
3357
521ft
4350
2216
14 till

szn
2357
5i15
1754
1041

1060

1541/1

SM~

JMS

TilellJ
105ft
1ft40
S2&6
4344
0315

CL.A

1047

1046

4350
1335
31350
1U5

227&
5252

10124172

PAGE 95

PAGE
1*******FALl THROUGH PAGE BOUNDARY TO HfRE*******
GKNT
JMP
IMUST BE FIRST LOC. OF PAGEII*******
pop,
eLA eLL CMA RAl
JMS
OUTDG
IPRINT DfC, PT.
GKNT,
IGET COUNT AGAIN
TAO I
KNTP
SPA SNA elA
JMP
GO
KNTP
IGET COUNT
TAD I
INEGATE
CMA
DCA
DGTVP
ISTORE AS COUNTUI
TAD
DADP
ISAME fOR DAOP
CMA
SEP
DCA
PR
IGO ON
JMP
PU,
IPRINT A ZERO
JMS
OUTDG
PR,
DGHP
ISI
SKP
JMP
PS
SEP
lSZ
JMP
PZR
KNTP
PS,
TAD I
CMA
lAC
DADP
GO,
TAD

4127&

1740
nil6
4344
0253
1334
lI2I50
1344
3i76
1047
1510
1041
3046
3045
7100
473ft

PALS-V7

!-oop,

SlA

DGHP

EFI.G
TAD
SU
ClA
DONEF
JMP
IDONE
JMS
OUT
305
IPRINT 'E'
OPI(
TAD
IGET PRESERVED COUNT OF MUI.S
SMA SZA ClA
IDETERMINE SIGN
CL.A CLl CHL RTl IMAKE A 2
JMS
OUT
253
IPRINT MINUS OR PLUS SIGN
KMI44
TAD'
ISET TO DIV BY 100
DCA
OPM
CLA CLI.. CMA lUI.. IS~T LOOP COUNTER
DCA
OGTYP
OPl(
IGET THE. COUNT
TAO
SPA
eMA
lAC
INEGATE IF NEGATIVE
DCA
AelO
ISTORE FOR OIV. ROUTINE
DCA
ACH
IHI ORO. MUST BE ZERO
IPRE~ENT DIVIOE. OVERFLOWll
Cll.
JMS I
OV24PT IDIVIDE BY 100
ACI.O
IGET THE QUOTIENT
TAD
JMS
IOUTPUT HUNDREDS PLACE
OUTOG
KM12
TAD
INOW DIV. ev 10
DCA
OPM
TAD
ACH
IDIV. REM, BY 10
DGTYP
IOONE?
lSZ
JMP
LOOP
INO-GO 00 CALCULATt:: , PRINT TENS PLACE

•

PALa-y?

108,8 BAtlC RijNTIM£ ayS'£~

111ft!

USJ

JMJ

OUTOG

le/i4/1a

•

PAGE 95·1

IYES-REM{ONES PLACE)IS IN lC·PR1NTIT

•

10SlI BASIC RUNTIME sYSTEM
esl ..
151.1

U55

DONE',

TAO

1S87111

5742

85171

4344

I5ln

SNA
JMP I
JMS

Ill!

215

7651

".n 1212
4344

lseU

esl"

....
115."

SWlTi
CL"
FL.ING
OUT

JMS

OUT

JMP I

'LING

5142

PALe-V7

U124172

PAGE 9&

ISHOUl.D WE PRINT CR/L'?

INa

10UTPUT DIGITI OF FAt BV MULTIPLYING BY TEN
ITHE HIGH ORDER OVERFLOw IS THE DIGIT
DGTYP, 8
15.16
11141
eMA
lAC
UP
DCA
ISSII ]]51
ISTORE COUNT PASSED
ACH
IGET FAt AND STORE FOR LATER
lSilt 11115 DTl,
TAD
nal2 lnl
DCA
1St IS 1146
TAO
ACLD
IStl4 JI51
DCA
OPL
JMI I
ALIPP
ISH 1FT FAC LEFT 1 • FAC*i
lSI" 4141
nUl6 11104
ItAL
IOVERFLOW TO TM]
DCA
TM3
1511' J]5!S
JMS I
85S 11 4748
ALIPP
ISH 1FT LEFT AGAIN • FACU
TM3
15111 un
TAD
ISHIFT OUT OVERFLOW
ISISI 1118.
RAL
.511) 3355
DCA
TMl
ACi
ISSl4 111142
DCA
IMUST BE e FOR OAOD
IStlS 4141
JMS I
OADDP
IADD ORIG FAC • FAC*5
8!U16 10114
RAL
IADD OVERFLOW TO TM]
TM]
TAD
ISlt" un
TM]
I!SUI 3355
DCA
IIUS 47411
JMS I
ALIPP
ISHIFT FAt 1 LEFT. FAt*lel'
ISU2 US5
TMl
TAO
10VERFLOW IN TM] IS FIRST DIGIT
I!UU
ItAL
15124 UJT
DC NT
nz
IDONE ALL, SIGNIF. DIGS.!
ISln 5n8
,+3
JMP
INO-GO ON
eMA
tLA
IYES.PRINT ZEROS
1112' TUI
15127 ]]]1
DCA
DCNT
IfROM NOW ON
85131 4358
JMS
OUTDG
IPRINT DIGIT CHI ORO. DVRFLoW)
8!il11 iJ57
IEP
ISI
IDONE REQUJRED?
fUJi! SllU
JMP
INOPE
OU
nu]
JMP I
DGTYP
IVUP
85U4 7U4 KMl44, -144
nus 776' KMl2, ·U
85Ue. 5'145 DVi!4PT, DVi!4
15137 0f110 DeNT,
ICOUNT 0' SIGN'. DIGITS
0
f!Sl41l &857 'LIPP, ALI
0'141
O'DDP, DADO
15142 4722 FLING, FLINk

0'"

...

5."

.15"

•

i'll_

•

/()8/8 BASIC

RUNTlME SYSTEM

477&

PRDepp, PRoep

15143

PALe-V1

101i!4172

•

PAGE en

IOUTPUT HOUTINE

15144
85145
151U
05147

0000

OUT,

1144

3413

5744

0
TAD I OUT
DCA I leR3
JMP I
OUT

IGf.T THE CI'IAR
ISTORE CHAR IN INTfRMEOIAT~ SUfFER

IOUTPUT DIGIT

0515111

0000

05151

4344

OUTDII,

85153

0260
5750

05154
15155
1IJ5l56

4131
11.01
8001

KN1P,
1M3,

15151
051U

UtlS

SEP,
PANTle ,

"51(.1
12151U
1!151U
05164

1057

1215152

n01

1115166
05U7
05170

1040
3357
2357
741121
5266
4344
0252

I!U71

SlU

051&5

0
JMS
260
JMP I

OUT
QUTDG

IFH: TN

FLOW

IGET FIELD WIDTH
IMUST SE NEGATIVE
IUSE AS COUNTER
IOON~ ALL?
INa-GO ON
IVES-RETN.
IPRINT ASTERISK
IASTE-RUK

KNT
0

0
III

CLA
TAD
eMA
DCA

PANTX 1, ISZ
SKP
JMP
JMS
252
JMP

SEP
SfP
DONEF
OUT
PRN ht

IPRINT A LUDING nRO
05t72
05173
151'14

n00
4351
5143

PRZRU,

CLA
JMS
JMP J

OUTOG
PROCPP

•

1011. BASIC RUNTIME SySTEM
I

INPUT ROUTIN£

I~LOATING POI~T

5211
ISiII
lUll
ISIII
Itlll
85111

•• "
1211
STU
" ..
]UI

1S'16

lI52

1""
.1111
lIau
I'IU

II..
11M
JIll
nil

,nN,

'51e, 'III

.JlII

11116
IIIU
'''21
IIUI

4111

SUI

CLA

eMA

DCA I

'OVPT

eM"
DCA

,11GN'

COf

'U" "U OleONV,
'51t4

PAGE

Pili,

DICNV,

DEC ON.

Dlwn

DNUMIR

,pun

15'1'

UJ6
lUI
lin
S211

"'TMl
.1M'

IfU
SUt
ntl
illS

.I"'
liZ
sat

JMa J nUL
Till
JM. J 'NORL
.1M-a 1 ,ADOLL

sal 1

"'36
un
lSI" 5211

Of CON
'DV'T

,,1
TPI

'1101

.IMP

SfeP

tV,
DICNY

nil!

DCA

DNUM8R

UII

liZ
JMa I
CLA

UGN,
P:'NEGP
eMA
SlGNF
CHAR
KME
eLA
Gt!;R
EOON
TM
RTL
TM

lUll
l!SiU
lISau
15144
illS-In
15'16
l!lin
.5251
1'5251
15252
IS251
15254
ISiS5
15i56

:5]11
lIS]

DCA

11111'
1651
U2i
SUI
1043
711&
1043
7114
1315

TAO

0.Si57

5250

•

,nNl

""141 .

Inl

'·5241

'CH'

.lHI I 'MP'ILL
TIN
.lMI I

.nas· 5JS4

"Ilt
"liI
"IU
ISllI
"liS

ACH
ONU""R

J"'a
.IMP

1111.

Ilill

AC)!
ACLO

liZ
liZ

1111

u.s
4711
tn.,
",..
un
tillS lin
.u~.,

Dawn

DCA
DCA
OCA
ill
DCA
DCA

nn
7241

TAD

GET!,

SNA
JMS
JMP
TAD

elL

TAD

eLI..
TAD

JMP

IINITIALIZE PERIOD SWITCH TO -1
ISET SIGN SWITCH TO -I
10F TO PACKAGE F!ELD
IZiRO CONVERSION SWITCH
IIIRO OUT THE ,Ael
IIERO , 0' DIGITS SINCE DEt. PT,
IGET A CHAR,FROM TTY,
ITUMINATORIDIGIT-BUMP CONVERSION SWnCH
ISUMP • 0' oIGns-. IS STORED IN

I"'M"

TEN"

I"'PUT I
l"nlT

TMlPT"
TPIt

1"'NORlI
I"'AOO 1

TM3PT"

IGO ON
IHAV! WI HAD A PERIOD YETt
IYU-GO ON
IHO-IS THIa A PERIDOt

IVla-ZERO DIG, COUNT AFTER DEC, PT,
lAND GO CONVERT REST
INO-TERMINATOR-ZERO COUNT OF
IOIGITS AFTER DECIMAL POINT.
lIS. NEGATIVE1(DIO wE GET. SIGN?)
/YES-NEGATE IT

IRESET SIGN SWITCH FOR EXP,
INO-WAS THE TERMINATOR AN '£'1

IYES-GET A CHAR, OF EXPONENT
lEND OF EXPONENT
IGOT DIG, OF EXP·STORED IN TPI
IMULT. ACCUMULATED EXP BY 10

RAI..

TP1

GETE

/ADO DIGIT
ICONTINUE

•

fOS/8

BASIC RUNTIME SYSTEM

052U

1043

05261

2300
7841
711141
1305

05lU
l15a63

0!5IU
IIUU

115i66
IIIS2·61
1115270
niT 1

7141
1518

7161

IS aT 2

71140
3US
7rIJ!114
1301

85313
0!5JI4

6U5
5155

1531115
1115]06
115]07
053111
1115311
"5312

111000
1471
4110
5600
5722

1115113
115314
1115315
.5116
15311
115J20
85321

111112
a81]
08011l
000111
8004
i480
ee88

15213
852'4 . 3308
115215 2305
115216 5300
15211 5618
IU!110 0111011
115]1111 5117
115302 S215

6800

EDQN,

TAD

ISZ

Cfo!A
CM.
TAD

PAL8-V7

10/24/72

•

PAGE qq

TM
SIGNF
lAC
UC
DNUM8R

IGET EXPONE.NT
IWAS EXPONENT NEGATIVE?
IYES-NEGATE IT
lAND CALC. DNUM8R • E~PO~.
IGET • TIMES TO DIV MANTISSA BY TEN

,+1

ITHESE 3 WDS. MUST 8£ IN THIS ORDER

CLL CM. I.C
SPA
IRESULT POSITIVE?
CL1. CMA eML. lAC INO-MAKE POS, AND SET LIN~
eMA
INEGATE FOR COUNTER
DC.
DNUMBR lAND srORE
RAL
ILIN~.1.DIV'.0.MUL •• 8Y TEN
MOV
TAD
IFORM CORRECT INSTRUCTION
DCA
SIGN'
lAND STORE fOR EXECUTION
ONUM8R 100NE ALL OPERATIONS?
ISZ
JMP
UGNF
INO
JHP I
IVU-RfTURN
"IN
SIGN', o
INO- MUL OR DIV, MANTISSA
TEN
IBY TEJII
JMP
FCNT
IGO ON
"NEGP, FFNEG
TM1PT, TM]
DNUMttR, o
KME,

MOV,

.305

JMS I

,MPVLL, FFMPV

FDYPT, FFDIY
'AOOLL, F!'ADD
KK12,
TP,
TP1,

TEN,

12
1]
III
B
4
2400
III

1111111111£1111111

•

105/. BASIC RUNTIME SYSTEM

e53U

121000

taSS24

4347
1053

usn

153i5

3043

053i!6

13U

11153Z1
0!i330
05331

1450
5335
13U
7640

05332

1153]]
eU3"

533ft

]]00

nJ35

4347

115536
InJT

1346

US3

n14Z
05JU

71121121
U13
3US
1430

nUll
0!lU5
IIJ!5S46

5722
7506

fl534IIJ

IIJ5J41

PALS-Y7

10/Z4/72

PAGE 100

IROUTINE TO GET A CHAR FROM THE TTY ANO SEE IF IT IS DIGIT
lOR A TERMINATOR,
IRETURN TO CALL. 1 IF TERMINATOR, TO CALL • 2 If DIGIT
ITHIS ROUTINE MUST NOT MODIFY THE MQ'1
GCHR,
0
DCA
TM
ISTORE ACCUMULATED EXPONENT (MAYBE)
INPUT
JMS
IGET A CHAR FRO~ TTV.
CHAR
IPICI( IT UP
TAD
TAD
PLUS
IWAS IT PLUS SIGN?
SNA
JMP
DECON1 IVES-GET ANOTHER CHAR,
TAD
MINUS
INO WAS IT MINUS SIGN?
su
CLA
,.]
JMP
DCA
SIGNF
IYES.FLIP SWITCH
DECONt, JMS
INPUT
IGET A CHAR.
tHU
TAD
1<1506
TAD
ISEE IF ITS A DIGIT
CLL
TAD

DCA
ilL
ISZ
JMP I

1<1506,

nil'

KI< 12

TPI

GCI1R
GC,",R

1ST ORE FOR LATER
IDIGIT!
IVES-RETN, TO CALL+2
INO-RETN. TO CALL.'

IINPUT ROUTINE-IGNORES LEADING SPACES
n34 7
15351
15351
III!§JSi

0S553
15354
15355

flS]56
1115351
1536121
1115361
053U
1215363

eflll0
4542
U5a
7640
53615
105]

INPUT,

JMS I GUCHL
TAD Dswn

1361
7650

S350
5747
1540

MC!40,

7176

PLUS,
MINUS,

nas

III

lOUT,

SU CLA
JMP lOUT
TAD CHAR
TAD "'l40
SNA CLA
JMP INPUT+l
JMP I INPUT
-l40
-253
251-Z55

IUSE OUR ROUTINE TO GET CHAR
IGET TERMINATOR
IYALID INPUT VET?
IVES-CONTINUE
INO-GET CHAR
ICOMPARE AGAINST SPACE
I IS IT A SPACE?
/YES-IGNORE IT
IRETURN

IRQUTXtIiE TO DECIDE CALLING MODE IN LIEU OF "SPECIAL MODE" PROBLEMS

05364
1215365
. 12153&6
!!IS3U
053 TIIJ
05371

05]U

•

00015
1440
5371

112137

"40

Z364
5764

PATCH',

fIJ

SZA

JMP RTN2
TAD FF
SU CLA
lSI PATCHF
JMP I PATCIolF

lIS AC EMPTY
INO-THIS IS ALwAVS SI MODE WITH AODR IN AC
IVES-GET SPECIAL MODE fLIP.FJ.OP
IIF ON,THE ZERO AC MEANS ADDRESS OF 0
IUSE AC AS ADDRESS OF OPERAND
I~ETUR""

•

PALe-V1

10S/' BAalC RUNTIME SYSTEM

10/24/1~

•

PAGE 101

PAG!

5411
I

...

IINVERSE 'LOATING SUBTRACT-USES FLOATING ADO
111,IWll,-THIS IS OP-'AC

.,n ••s

1 . .1

114••

6211

lUll
lUll

4555

•• u

.,"
"'I!
114., 1281
56U

15.. '

lUll

15'U

'US

.125

'FIUit, I
JMI I 'ATCHP
TAD I
,,.UBI
JHI I
ARGETL
CD'
JHI I
"NfGA
"IU81
TAD
"HP I IU'"

IWHICH f'lODU
ICALLED 8Y UiER-GET ADDR. OF 01'.
IGO PICK UP OPERAND
INEGATE 'Ae
lAND GO ADD

"Hf&A, "HlG
IUIIp, IUBI
I

IIHVIRI! 'LOATING DIVIDE

....
15". ....
I"'! ,
"4"
".u
".,1

IUS?
15UI

'I!IS'

IPlWnCH-'
ITHIt IS O,,'AC
I

'FOnt,

"12

ARGUL
AeLO
OpL
ACI
TAO I
lCLO
DCA
AtX
TAO
eLL CMA lAC
TAD
O'X

IISS

1442

,I.,
".u
154n ]1"
15411
ItOI
11*13

"OIV'

TAD
DCA

II ..
1144
'5'2] 'US

15421
" •• 1

I PATCHP

. JHI I

lUi 1
I!UIi

'542'

•JHI
TAD I

DCA

I'U
,U5

fAD
DCA

Jld

AelC

01'.

0'"
AtM

s.n
""

nu.. Je'l

DCA

6111

CO,

ACi
OP"

lIta
IU.

TAD
DCA I

"OlVt
"01'

.,u. '4'2

OCA 1

MOlEr'

15415
154]6

'"17 U.'
1"4' 1.,1
'"41 ,.U

TAD

IS ••'

es ....

.54 • .,
IS'"

"'441

6itt
"51
5722
'5126

JM' 1
MOll',
MOl
lRGt:"L, .ltGlI

MoaET" MDIET

"01',
ttfOl,

"OIl
'YOl

IMJGHT AS wELL SUBTRACT THE
IEXPONENTS HERE (SAVES A WORD)
ITHIN IERO OPX SO WILL MQT
IMESI UP WHEN ITS DON! AGAIN
ILAT£~ (SE£ DIV. ROUTINE)

AC ...

Aei

TAD
DCA

1142

IWHICH MODE OF CALL'
ICALLEO 8Y UIER-GET AODR,
IPICM UP OPERAND
ISWAP THE fAt AND OPERAND
ITHIRE IS A POINTER TO OPL
liN Aei LEfT 'ROM ARG!T SUBR.

INOW SWAP HIGH ORDER MANTISSAS

10F TO 'AC.'GE 'IELD
INOW K~UOG£ UP SU8ROUTINE LINKAGE

fe'O,

MOl'

IGO SET UP AND DIYIDE

•

10'/. 8A'le RUNT 1M' 8'8TIM

IMOSfTw.ET.S UP SIGNS FOR MULTIPlV AND DIVIDE
IALIO SHIFTS OPERAND ON! BIT TO THE LEFT.

'/!XU WiTH EX .. OtllEtliT 0' OPERAND IN AC FOR EXPONENT

ICALCULATION-CALLED WITH ADDRESS OF OPE~ANO IN At AND
IDATA FIELO 'S£T'~ROPERLY FOR OPERAND. .

15.458

i'451

IS4'S2

MDIET.

1111111111

4713

...

"'5.456

IIJS4!57

115461

'115462
I154U
II!Sl1U
85\465

.'4616-

054 • .,

85471
85411
iII!472
1IJ547]

15474
85475

"HS I

AR~ETK

:TAD

DCA

TM
tiPH

$MA

CLA

6211

IG£1 ARGUMEtliT
I~F TO PACKAGE FIELD'
CLA CLL CMA RAL ISET SIGN CHECK TO -2

llU

C'OF

.1!S4!U "7144
1IJ54tS.A 30.43

1545'

nee

!S2U

JMP
JMS I

47'02
2143

J8Z
TAO

1051
1fe4
SIIISI

aCA

1050

TAD

eLL

7184
3810
]11141
1045
77111.0

RAL
DCA

DCA
TAD
SM.A

52t.,

JMP
JMS I

1547.

411111
211143
7011111

85477
IS!riIIII

5U0

ISS0t

6-t15

"NEGK, ,FNEG

6146

OPNEGP, OPNEG

.2110

ARGETK. ARGET

15502
055111.3

111147

LEY,

.+3

OPNEGP
TM

OPL
.RAL

OPH
ACI
ACH

CLA

LEY

FFNEG~

TAO

OPX
MOSEr

JMP I

INO

IYES-NEGATE IT
IBUMP SIGN CHEt~
lAND SHIFT OPERAND LEFT ONE BIT

DPL
DPH

JSZ

NOP

lIS OPERAND NEGATIVE?

ItLR. OVERFLOW WORFOF FAC
lI.S FAt NEGATIVE
INO-GO DN
IYES-NEGATE IT
IBUMP SIGN CHEt~
IMAY SKIP
IEXIT WITH OPERAND EXPONENT IN AC

ICONTINUATIDN DF FLOATING D!YIDE ROUTINE

1IS504
15505

1042
1141
111145

155".
155117

74il1l

8551G!1

5133

15511

7100
3045

85512

05511
85514

15515

1041
75111111

15516
05517
11)5521

53iH
711111
311145

•

I
F01,

TAD
ACii!
CLL CMA lAC

INEGATE HI ORDER PRODUCT

TAO

AC'"

JMP I

OVOPSP

ICOMPARE WITH REMAINDER OF FIRST DIY.
IWELl.t
IGREATER THAN HEM.-ADJUST QUOT OF 1ST DIV.
10K-DO CREM.CQ*OPL])/OPH
IFIRST STORE ADJUSTED PRDDUCT
IDivIDE BY OPH CHI ORDER OPERAND)
IGET QUOT. OF FIRST DIv.
IIF HI ORDER BIT SET-MUST SHIFT 1 RIGHT
INa-ITS NORMALIZED-DONE
IMVST SHIFT RIGHT 1
ISTOHE IN FAC

SNL

eLL

DCA

TAD

ACH
OVii!4P
AC1

JMP
eLL
DCA

FO
fUR
AC ...

JMS I

SMA

•

'0'" B.IIC RUNTIME SVSTEM
1146
JlUI
JI.'

fAO
RU
DCA

11125

1111

NOP

FD,

.IU.I

JI.!
57)1

1.!lUt

51412

'ODON', FDDON

'5!il
15'21
,!12J

.",. 2144

'"it
Inn

Ie.,

lIZ

TAD

DCA

J"'p I

'ALa-V?

11/24/72

PAGE 102-1

ACLO

ISH 1fT LOW ORDER RIGHT

ACLO
ACX

ISTORE 8ACK
IBUMP EXPONENT

ACH
ACH
FODONP

ISTORE HIGH ORDER RESULT
IGO LEAYE DIVIDE
lEND OF FLTG. DIV. ROUTINE
IROUTINE TO DO A 24X12BIT DIVIDE
IROUTINE TO ADJUST QUOT OF FIRST DIV,

Inn 57n DVilaP, 0'124
ISS]] nts DYO"', DVOPS
I

ICONTINUATION OF ROUTINE TO ADJUST QUOT, OF FIRST DIY,
IDBADI II ONLY EXECUTED ON DIVIDE OVERFLOW-OTHERWISE THE
IROUTINE START. AT DVOP2
I
"
".
151n

lIU
nil

IS'S.

5146

en ..

4TJZ

15541

1146

IUI4
15sn

'UI
'141
SJl4

'S'" SI.,

15'.' 1111
'I"
.5542
ISS46

DIADI,

DVDIIZ,

DCA
SN.

AClI

ACLO
AeH
DVila,
J"" I
TAD
ACLO
CLL eM' lAC
DU
ACLO
,NL
CM.
DVLI
"MP
DCA

DCA

IDIVIDE OVERFLD-ZERO ALL
III IT ZERO'
IYES-MAKE WHOLE THING ZERO
IDIVIDE EXTENDED REM, BV HI DIVISOR
INEGATE THE RESULT
11F QUOT, IS NON-ZERO, SUBTAACT
lONE 'RO", HIGH ORDER QUOT,
IGO TO IT

IRaUTINE TO BUMP CHARACTER NUMBER
IUIEO ay CHAR PACKING ROUTINES. BUT ITS NERE AS A PATCN
15513

sIn

11111

85!l'1a

1~6J

85515

1176

.5576
15517

nu
SfU

dsn

CNOBML, •
TAO I IiORDe
TAO KIl'"

DCA I IriOFfDe
JMP I CNOBML

IHUDER WORD
IAoO t TO THE COUNT 81TS
100NE

•

IDS,. BASIC RUNTIME SVSTEM
S6I1

PALS-V?

10/i4/72

PAGE 103

PAGE
MULTIPLV-OOES i i4Xli 81T MULTIPLIES
0
JMS I PATCHP
IWHICH MODE OF CALL?
TAD 1
'FMPY
ICALLED BY USER-GET OPERAND ADDR •
JMS I
MDIETK. ISET UP FOR MPY-OPX IN At ON RETN.

"LOATIN~

I".' 1.11 "",,,
."111

.,6111

IU8J

ISU!

4SIS~~

16"
4174

~~~kO~~-iA~CX~~-J~D~O~f~X~PO~N~E~N~T~.omn~InT~I~OfrN~=-~~~~----

1'44--

SI44
45
SI42
tl.S
1651

DCA
DCA
TAD

OVi4
Aei
AC"
CLA

INA

oA
JMS
TAO
DCA

TlO

ISTORE RESULT 8ACK IN FAC
ILOW ORDER
IHIGH ORDER

DCA

TAD
DCA

100 wE NtED TO NORMALIZE?

CLA
SHLP'T
ACt
"MPV
TM

•
.UJI UII
nUl

itO

IIUt!
nUJ

SUI
0773'

........

1,5615

15616
nU1
1J!i6411

156.1

1156U

I
I

n'I"

714111' SHLFT,

1144
JU4
4&42,
52311
6157 AL1PTR,

lIS fAC-B1

INO-MULTIPLY 'Ae 8Y LOW ORDER DPR.
INOW MULTIPLY fAC BY HI ORDER MULTIPLIER

--I!,..JMS

RURO,'

E FINAL EXP
IZERa TEM STORAGE fOR MPY ROUTINE

"M'Y

fFNi!GR

Ivn-ao IT FAST

VERFLOW WD(DO I NEED THIS?1
IBUMP RETURN POINTER
ISHOULD RESULT BE NEGATIVE?
INOPE·IUTN.
/VES·NiGA TE IT

fROM EXP.
ACX
ACX
AL1PTR ISH 1FT fAC LEFT 1 81T
MDONUI IDONE.

12. tIT 8Y 1i BIT MULTIPLY, MULTIPLIER IS IN OPL
IMULTIPLICAND IS IN AeM AND ACLO
..l!£SULT LEn IN DV24,lC2, AND ICI

. ."40 un "'24,-,DCA
TID

.......,641-....
85645

151646

3141,
1851,

,,,'IT
.'.58

7448
5i54

In51

lS.si --56413',
-.5653 U-51, MPV;-

MPL'I,

-..

_--

ISET U~ii! BIT COUNTER

TAO

lIS MULTIPLIER-.?

JMP
DCA

"PLP'
ACI

INO-GO ON
IYES-INSURE RESULTa,

J ....

KKMl2
OP.
OPL

"'.L' ,_/RfTURN_
_
_
-RO€R
IsHY1T A tilT OUT OF LOw O

~ I _
UO
DPL

fUR

1S6lJ4
.5.55

7810
3851.

'S6,.

l'4cl

SN~

.5657

51. .

JMP

DCA

OPL
MPLP2

10' MULTIPLIER AN~ INTO LIN.l(

twAS IT A l?
1t"0-0-JUST SHIPT P~RTUL, PRODUCT

IOS/8 BASIC RUNTIME SYSTEM

056'"
15"1
156U
15661

15664

nus

"-1II!S666
15667
1115671
05671

710111
111142,
111146

eLL

lUi

7111114
111145

un MPLPi, /"~ir"'--:..:-=--
( UR

,DCA

111141

TAD

71111
311141
ilU
SIS]

-- 11151111
1115711
n7lZi)
1!17114

III!IUS

Inlll6
1ll!i7117

5U]

leu.

74211
UII1

7Sel
11.6
7011
3042

1571

11118
221111

11151

"tM Sl8t

-.e

RU
DCA
UA
DCA
ISZ
JM':
JMP I

nUll

85715
15726
85n7
15711
.SPlI
1157JZ
15133
851)4

15715

7]6

PAGE

1~4

IYES-ADD MULTIPLICAND TO PARTIAL PRODUCT
-"LOW ORDER
IPROPAGATE CARRY
IHI ORDEM
INOw SHIFT PARTIAL PROD, RIGHT t BIT

ACi
ACI
OPX
"PLP
MPi4

11 BIT OF OVERFLOW TO AC1

IDONE ALL. Si MULTIPLIER elTS7
INa-GO ON
IYES-RETURN

____

___

/PART 0, DIVIDE ADUTlN£."DIV MUST BE AT L.OC. f722
DCA
OPL
ISTORE BACK MULTIPLIET
TAD
AC2
ImET PRODUCT so FAR
SNL
IWAS MULTIPLIER elT A 17
JMP
,.3
INO-JUST SHIFT THE PARTIAL PRODUCT
eLL
IYES-CLEAR LINK AND ADD MULTIPLICAN
TAD
ACLD
lTD PARTIAL PRO~UCT
RAA
ISH 1FT PARTIAL PRODUCT-THIS IS HI OR E~R~.
DCA
AC2
IArSULT-STOAE SACK
OVLP1, TAD
OPL
ISHIFT A BIT OUT OF MULTIPLIER
RAR
lAND A BIT OR RESLT, INTO IT (LO ORO'
ISZ
"MPY
IDONE ALL BITS'

7141

OF QUOT

3046

7'124
S?iS
55114

10/24/72

'Aci,

WIt......

x OP

FDtP
IGO ON
IPOINTER TO REST OF DIVIDE ROUTINE

FDtP,
I

n7ZZ
157n

DVi!4

JUt' MPlIL,

85711
15711

1IJS714
111571 5
15716
15711
1172111

ifiD

711118

IInu 7IlQJ
lIun 11142

15674
15675
1115676
115677
157111111

PALS-V}

"LOATING DIVIDE ROUTINE
IUS!S THE METHOD 0' TRIAL DIVISION ey ~I ORDER
1111101 'FDIV, 0
I(USED AS ! TEM, BY 1/0 ROUTINES)
JMS I PATCHP
IWHICH MODE OF CALL. 7
t7ia
TAO r
FFDIV
ICAL.L.ED BY USER-GET ARG, ADDR.
4774'
JMS I
MDIETK IGO SET UP FOR OIVIOE-OPX IN:AC ON RETN,
7141 ,FD1,
eM'
lAC
INEGATE EXP. OF OPERAND
1844
TAD
Aex
IAOO EXP OF FAC
).44,
DCA
Aex
11I0U AS FINAL EXPONENT
la51 .
--rAO
O'H
INEGATE HI ORDER OPe FOR USE
7141
eLL CM! lAC
lAS DIVISOR
'
1150
DCA
OPH
4345
JMS
,~DiVni4~__~/;CA~LNL~O~I~V.r.~.i(~A~CH~+~~~
1146
,-f*o---''A
OR L.AT R

4'·"3

TA~

DCA
JMP

'FMPY
DVLP(

MUL~TIPLV ~1'J?

,fT COUNTER FOR 1i BIT
ITO MULnp~y QUaT. OF DIv, 8Y AI/'J
ILOW ORDiRO' OPERAND (OPL)
,v~

IOSl8 BAS·IC RUNTtM£SYSTEM
I

lEND OF FLOATING DIVIOE-fUDGE SOME
ISTU'f THEN JUMP INTO MULTIPLY

15YU

Uii

85741

Jiel

85144

5227

FODON,

TAO
~CA

JMP

FFOIv
'FMP-Y
MOONE

ISTORE RETN. AOOR. IN MULT ROUTINE
IGO CLEAN UP

85746

....

15747

U51

15145
1575.

15151
1115152

n75]
15154

;

15766
85767
85771

'5771

~77i
~17]

85714
.5175

05176
'51'71

DCA
JMP
TAD

lCi
DVI
AtH

TAD

137ft

TAD

].42
SUS

11145
US.

15165

J"P I

ACH
OPH
tLA
DVOVR

TAO

IZL

nUl

--nTu

1630
5777

U45
11114

.-I..5.l6]

I
0Y24,

1145

85155
-85756
15757

85761
15162

IDIVID~ ROUTINE-.Z4 81TS IN ACH,AtLO ARE DIVIDED BY 12 BITS
lIN OP". OPH IS ASSUMED NEGATIVE AND .GT, AtM IN ABSOLUTE VlLUF.
IELSE-OIVIDE OVER'LOW·.WE RETURN NORMlLLY wITH gVOTIENT
lIN AeLO AND REM, IN ACH. (ACi-0 ON RETN,)

flO

ACH
AtM
OPH

DCA

lCH

DCA

3145·

TAD

SZL

fUI.
3145 .
fUt

1146. OV1,
11114·
3'46.

CLA
TAO

leLO

DCA

ltLD
ACi
DVi
OVi4

RAL

lSI

leU·
5355

JMP
5745
.IMP I
6US FFNEGIf, FFNEG
5451' HDSErK, MDaET
1164 KKMll, -14

nu·

US!.

KMU,

DVQVR,

KM13

-tS

ICHECK THAT DIVISOR IS .GT. DIVIOEND
IDIYISOR IN OPH (NEGATIVE)
lIS In

INO-OIVIDE OVERFLOW
IYES-SET UP lZ BIT LOOP
IGO BEGIN DIVIDE
ICONTINUE SHIfT OF FAC LEFT

IRESTORE HI OROER
INOW SUBTRACT DIVISOR FROM ~I ORDER
IDIVIDENO
IGOOO SUBTRACT?
IYES-RESTOHE HI DIVIDEND
INO-OON'T RESTORE •• OPH,GT.ACH
ISH 1FT FAt LEFT 1 BIT-ALSO SHIFT
11 81T OF QUOT. INTO LOW ORO OF ACLO
IDONE Ii 8ITS OF QUOT?
INO-GO ON
IVES-RETN W/AC2-0

PAL8-V7

10/24/72

PAGE

&ae0

•

PA4E 10&

III'L0ATlNG ADD

,urn
'61'81
.. eez
'UIIJl

'U8.

0UII!
86116
. 061/11111
16.U

I6IU

1611111

IUS3

lUI.

111611115
"16IIIU

u.n
"611'
111'.21

.«.:122

•••21

"'I'"

lUi!

!/it'll'

.061,21
'.6n.

...u

I
0110 Ff'ADD,
4511-"$
161111

4U7'
6211

un..

'A01,

USI

5ZZ7
U45

use

522]
1044
7101U.7
1541
5231
71141
llil4

4272
11141

3144
11357·
4.7",
ii"

OOADO,

DONA,
5•••
427i' IfAtR,

"'32 4234.
,,.,n
Sll'l

•

116114

8'.135
IftIllJft

nln
',n',41
.,,411

""42
,111611143
1116144
1116145
.6846

\J ~ :116'
'
UIIJSIIJ
'6151

1IJ6I/J52

1ll53
-a
06054

~12I"55
111605.

I
JHS I PUCHP
TAD I
HAOD
ARG!TP
JIi" I
CDF
TAD
OPM
SNA
CLA
DONA
J"'
ACH
TAD
SNA
CLA
JHP
OOADO'
AtX
TAD .
'CLL eMA lAC
TAD
OPX
SMA
SU
J/IIP
'ACIt
CHA
lAC
OPaR
JHS
JHI
ACIR
.TAD
OPlC
DC'A
AC.
JHS
DADO
J/IIS I
FNORP
lSZ
"ADD
J"P I
"0400
oJHS
ACaR
oJH,
DPSR
OOADO
J"P

IWHICH MODE FO CALL?
ICALLED BY USfR-GfT ADOR. OF OPR.
IPICK UP OPERAND
IDF TO PACKAGE FIELD
lIS OPERAND • I
/YES-DONEIND-U 'ACI0'l
IVU-DO ADD
INO-DO EXPONENT CALCULATION
IWHICH EXP. GREATER?
10PERANDS-SHIFT FAC
IFAC'S.SHI~T OPERANDIDIFFRNCi+l
ISH 1FT FAC ONE PLACE RIGHT
ISET E.PONENT OF RESULT

IOPERAND SHIfT RIGHT-ENTER WITH POSITIVE COUNT-I
lIN AC
1188 OPSR,
I· ./
711148.
CM'" '
I- (CDUNT+U TO SHIFT COUNTER
114111
DCA,
Ace
115111 LDPl,
01',",
TAD
/GET SIGN aIT
71/1 . .,
UL
ITO LINk
7211
CLA
use.
TAO
DPH
IGET HI MANTIS~,
~
RAR
1111·
ISHIFT IT RIG'" ~PAGATING ~
3151·
DCA
OPH
ISTORE BACk
.
111151
TAD
DPL
7011
RAR
JIISI
DCA
OPL
ISTOR! LD ORDER BACK
711Jl,
!tAR
ISAVE 1 BIT OF OVERFLOw
3Ui
DCA
ACi
liN ACi!
OP)(
181
IINCREMENT EXPONENT
telt NOP2,
211141
NOP
211141
18Z
AC0
IDONE ALL SHIFTS?
5237
JMP
LDPl
INO-LOOP
5U!t
JMP I
OPSR
IVES .. RETN.

100 THE ADDITION
INORMALIZE RESULT
IBUMP RETUFiN
IRETURN
ISHI" FAC I DIFF,+1
/SHIFT DPR. 1 PLACE
100 AODlnON

i~ft,

IDSII BASIC RUNTIME SYSTEM
J

ISHIFT FAt LEFT 1 BIT
J

.6057
116161
16161
IIJ6IU

IlIIfUI

ALI,

'Fl1I4
3141

116165

1046

I"
UO
CLL
DCA

.6'64

7014

16'"

]flU

161166

1145,

'6'61
.6178

7814
3145

• .aU

US?

1141

TAO

DCA

TAD

ACI
MAL
ACI
ACLD

ACLD

AeH

ft'A1.

oCA

JMP I

ACH

ALI

IGET OVERFLOW BIT
ISHIH LEFT
ISTO~E UCK
IGET LOW ORDER MANTISSA
/St41fT LEFT

ISTORE BACt<
16tT '-'1 ORDER
ISTORE BACt<

IRUIII.

IS~I'T

'AC RIGHT-ENTER WITH COUNT-I IN AC (POSITIVE)

Ilea lCSR,.

1141
3141

DCA

AC'

TAO

AeM

1845

LOP',

708.

1281
1145
1111

RAL
CLA

'
8

ACH

DCA
TAO

AeLO

RAR
DCl
fllR
DCl

ISZ

~::: Ntl'l,

HttP

Sin

.IMP

ze.e

ISZ
JMP I

UTi!

lAC CONTAINS COUNT-1

TAD

RAR

, 3145

11"
78111
JI.6
71111
3.41

CMA

ACH

AeLO

ACt
ACX
Ace

LOPI
ACSR

JST~~~~------

____

£T SIGN BIT OF MANTtSSA

SET UP SIGN PROPAGATION

IGfT HIGH ORDER MANTISSA
/SHIFT RIGHT 1, PROPAGATING SIGN
ISTORE BACI(
IGET LOW ORDER
/SHIfT IT
ISTORE BACK
"
'
ISAVE 1 atT OF OYERFtOw
IINCREMENT EXPONENl

..
,

loONU
INO-LOOP

IYES-RETN-AC.L·a

IDIVIDE QHRfLOW-ZUO AtlC,ACH,ACLO

.6115
16116

1381

517'

DIAD, _ CLA

JMP I

CLL

OlA01P

IN~CfSSARV

SO WE DON'T GET OVRFLO AGAIN
IGO ZERO ALL

IFloOATING StIBTRACT
I

"It 7

l1li11

'6til
. . IU
.6U3

1717
4117

861211

16124

16\25
16126
16121

F"ue,

JMS 1 PATCHP
TAD I
FflU8
JMS I
ARIiETP
4146
JMS
OPNEG
1311
TAO
FfSU8
321.1. StIel,
DCA
HAOO
5zea
JMP
FAOt
fli10- ARGETP, ARlifT

45¥.1'~

IWHICH MODE 0' tALL!
ICALI.ED 8Y USER-GET ADDR. OF OP
IPICK UD THE OP •
INEGATE OPERAND
IJMP INTO FLTG. ADO
IAFTER SETTING UP RETURN

•

•
...-

PAL8-\l7

BASIC RUNTIME SYSTEM
&135

*&135

10/24172

." ..

I'LOATING NEGATE

aeee FFNEG,
aun 104ft

06135

0U]7
IIIU40
16141

IIU42

7141
104.
7U4
1045

16143

7&41

16US

31145
573S

a6lu

ACLO
TAD
Cl.l eMA uc
DCA
ACLO
IUl
CMl
ACM
TAD
CLI. eMA lAC
ACH
OCA
FFNEG
JMP I

I(USED AS A TEM, BY OUTPUT ROUTINE)
IGET LOW ORDER FAC
INEGATE IT
ISTORE BACK
IADJUST OVERFLOW 8IT AND
IPROPAGATE CARMV-GET HI ORO
INEGATE IT
ISTORE BACK

INEGATE OPERAND

au 4ft
lIun

06158
1116151
1116152
IIIU!!
06154
IIIU55
IUS.

l1li10
U51
1141
]051

OPNEG,

'FIJ14

1150
1Ul

31se
5146

TAD
OPL
CLI. CMA UC
DCA
OPL
RAL
CML
OPH
TAO
elL. eHA UC
OPH
DCA
OPNEG
JHP J

IGET I.OW ORDER
INEGATE AND STORE BACK
IPROPAGATE CARRV
IGET HI ORDER
INEGATE AND STORE BACK

IADD OPERAND TO FAe

I&t 57
161&111
IIIU61
1116U2
IIIUU

eu",

1116165
1.16.
1"167
16t71
1116171
06172
06173
1&174
06115
06'16

l1li01
7UIII

DADO,

elL.
TAD

Ace

Jl41
111114
te51
U"
]046

DCA
RAL.
TAD
TAD
DCA

OPL
ACLO
ACL.O

7104

RAt.

1042
1141

'UD

TAD
TAD
1045
DCA
5757
JHP I
""'''/OBADlP, 'DUOI
6215 'NOAP, FFNOR
1058

1845

ACI
ACI

OPM
ACH
ACM
DADO

I ADD OVERFLow WORDS

IROTATE CARRV
/ADD I.OW ORDER MANTISSAS

IADD HI ORDER MANTISSAS
IRETIII.

•

lOll' BAile RUNT 1M! IVtT!"

PALS-V?

10/24/72

IfNZRO EU C
IIAE '~OATING POINT PACKAGE
. "OR ,OPII£ WITM K£I-E tAl
I

IN.J. CL01iM£R
I

IDEFlNITlONI 01' £At INSTRUCTlONI

aw,.nil

. CAM-Uil
MQUnfU

MOa.-fllil

IGf .....

IUI.UU
IWIA-"47

leu1 .. ,
MUv-141§

oVl-urn

NMld.U
I"'L-UIJ

""-14&1
...
".1In

Aea-ll11
I'M"''''
DADdUS
OLDd •• S

on-1 .. S
D'le-un
oeM-un
OPlUU51

leLO-LORO
fMeTiM'.
fN'UNCH

•

PAGE 109

•

IOS/8 BASIC RUNTIME SYSTEM

PALe-V7

d&00

10/24/72

•

PAGE 110

IFLOATING OUTPUT ROUTINE
I

'FOUT,

III

SWAB
DCA

SIGN

IALIO DOES MQL TO CLR, AC
ICLEAA SIGN AND COUNT WORDS

KNT
EfLG
lIS THIS E FORMAT?
au
CL'
JMP
INO-F FORMAT
"MT
eLL CML IAt RTL IYES-MAItE A (»
DADP
DCA
IITORE AS • OF DIGITS AFT DEC PT
K16
TAO
ISET FIELD WIDTH TO 14 ( DECIMAL)
DC'
'LOW
COF
ICHANGE TO FIELD OF PACKAGE
TAD
ISET • OF SIGNF, DIGITS
1("7
DCA I
OCNTP
ITO 6 (DON'T PRtNT 7TH)
AtH
TAD
IDETERMINE IF
INA
JM,
Foun /YES-SKIP DOWN
SM.,
CLA
INO-IS IT NEGATIVE?
JMP
.+]
IPOSITIVE
SIGN
ISZ
INEGATIVE-SET FLA'
JMI I
lAND NEGATE ,
"NGP
,tx
TAO
IGET • INTO RANGE ,tc-Nc1
IMA IU CLA
lIS UP. NEG.?
,oun INO-GO ON
JMP
JMI I
IYES-MAKE • GREATER THAN 1
""PP
TEN
IBY MULTIPLYING BY T£N (DEC,)
ICNT
ISZ
ICOUNT THE MULTIPLIES
JMP
fOUTI
ISEf I' .1 YET
SfP
JMS 1
I. IS >I-MAKE IT LESS THAN 1
JMI I
"PUTP ISTORE IN A TEMPORARV
TM]
DCA
ACX
ISET FAC TO .5
eLL eM.L RTR
AtH
DCA
DCA
AeLO
TAO
EFLG
lIS THIS E FORMAT?
DCA
TAD

"MT,

'-0

'OUT1,

eLA

UO
CMA
TAD

KNT
lAt
DADP

INO-GET COUNT OF MULTIPLIES
INEGATE IT
lAND ADO. OF DIGITS AFT. DC, PT.
IMUST 8E NEGATIVE

TAD

KK7

ILIMIT • Of OIVS TO ,

leN7
SEP

IRES TORE
ISTORE AS COUNTER

$"'
C"'
SPA

el.A

TAD

DCA I
JMP

.+]

•

IOS/8 BASIC RUNTIME SYSTEM

FOUT'4,

PALS-V1
FFOVP

IDIVID~

lSZ 1

SEP
.-3
HAOP

IDONt.?
INO-GO ON
IYES-ADD IN ORIG.'-THIS IS ROUNDING

SEP
ACX
lAC
FOUT!)

IINSURE THAT IT IS IN RANGt
IGET ExPONENT
IUSE AS COUNT FOR SHIFTING MANt.

JMP
JMS I
TM3
JMS I
TAO

CMA
ACH
SWP

SHl

IPUT IN CORRECT ORDER
ISHIFT LEFT l(~OR 0 ElIP,)
INOW SMIFT RIGHT ACCORD TO EXP,

AtM

ISTORE BACK

LSR

DCA
SWP
DCA

TAD
DCA

TAD
SlA

JMP
DCA.
TAD

NOTE,

JMP
TAD

SMA
CLA

TAD

CMA
TAD

SMA
JMP I
DCA I
JMP
TAD

JMS I
15Z 1

JMP

TAD

CLL.
TAD
JMS I
TAD

PRDCP,

•

SMA
JMP I
CMA
JMS I

TAO

SNA
JMP I
JHP I

.5 BY TEN TMAT • OF lIMES

IPICK UP MANTISSA

OLD

FOUTl,

PAGE 111

JMS I
TEN

DCA

FOUTS,

10/24/72

ACLO
KNT
OPx

EFLG

elA
NOTE
KIIIT
KM1
ADfW
KIIIT
CMA
HI

FLOW
lAC

DADP

PRNTXP
SEP

IDONE-GET COUNT OF MUlS.
IPRESERVE IT
115 THIS E FORMAT OUT?
INO
IYES-ZERO COUNT
IGET MINUS '-FOR 2 SIGNS,PT.+ExP
IGO ADO FIELD WIDTH
IGET COUNT OF MULTIPLIES
IIF NOT NEG-MAKE • -2
IMINUS 1 FOR DEC.PT
IGET THE FIELD WIDTH
INEGATE· IT
IAOO DIGITS AFTER DEC. PT
INEG?
INO-PRINT XS-NOT ENUFF ROOM
ISTORE AS CNT OF SPACES

.+3
KKi40

OUTP
SEP
.-3

SIGN
RAL
K2S3
OUTP
KNT
PRZROP
lAC
OGTYPP
OADP
CLA
GKNTP
POPP

IPRINT A SPACE
100Nt?
INO .. GO ON
IVE.S-GET SIGN
IMAKE A ztRO OR 2
IFOR PLUS OR MINUS
IPRINT SIGN
IGET MUl COUNT
IPRINT lEADING ZtRO
IOUTPUT 'KNT' DIgITS
IDON'T P~INT Otc. PT
/IF DADP IS "

•

'ALa-V7

IOS/8 BASle RUNT 1M! SYSTEM

PRZRQP, PRZRO
popp,

KU,
G~NTP

PDP

FLINK,

16
GXIIIT

JMP 1

PRHTX', "PRNTle
ten),
i51

PR.p,

OC~TP,

Ml,

te1<1,
DGTYPP,

OUTP,
nUl,

KM7.
"ADP,

oeMT

7717
7

OGT'tP
OUT

.,
,FADD
UI

"OVP,

,.,putP, "OlY
"'UT
. SIP,
8£
""Pp. ,fH"
"HSP,

lCNT,
SUiNf

"NtG

•

"OUT

10/24/72

•

PAGE 112

•

PALS-V7

IOS/8 BASIC RUNTIME SYSTEM

PDP,
GKNT,

PZR,
PR,

PS,
GO,

PAGE
CLA CLL CMA RAL.
OUToe;
JMS
KNTP
TAD I
SPA SNA tLA
GO
JMP
KNTP
TAD I
CMA
OGTVP
DCA
[)AOP
TAD
CMA
SE
DCA
PR
JMP
OUTDG
JMS
DGTVP
lSI
SKP
PS
JMP
SE
lSI
JMP
PZ~
KNTP
TAD I
eMA
lAt
DADP
TAD
SZA
SMA
OGHP
JMS
EFLG
TAD
CLA
SZA
DONEF
JMP
Kl05
TAO
OUT
JMS
OP)(
TAD
SMA SlA CLA
CLA lAC IUL
Pi!S]
TAO
JMS
OUT
DPX
TAD
SPA

CMA
MQL

10/24/7i!

PAGE 113

IFllo/INT DEC. PT.
IGET COUNT AGAIN
IGET COUNT
INEGATf.
1ST ORE AS COUNTER
ISAME FOR DAOP
IGO ON
IPRINT A ZERO

IDONt
IPRINT fE'
IGET PRESERVED COUNT OF MULS
IDETERMINE SIGN
IMUE A i!
IPRINT MINUS OR PLUS SIGN
IGET THE COUNT

lAC
DVI

INtGATE IF NEGATIVE
IDIVIDE SY ONE HUNORED

DUToG

IQUOT TO AC, REM TO MQ
ITHIS IS FIRST DIG-PRINT IT
IDIVIDE REM BY TEN

DUTDG

IGET SECOND DIGIT
IPRINT IT

OUTDG

IPRINT LAST
ISHOULD WE PRINT CR/LF?

K144

SWP
JMS
DVI'
Kli
SWP
JMS
S.Wp

DDNEF,

JMS

TAD
SNA

JMP I
TAD
JMS

TAO .

•

JMS
JMP I

SIilITi!

CLA
FLING
KKi!15
OUT

INO

Ki!l i!

OUT
FLING

•

105/8 BASIC RUNTIMe: SYSTEM

PAL8 .. V7

10/24172

•

PAGE 114

IROUTINE TO GET FACea

I
SE,

set.

TAD
ACX
SPA SNA CLA
JMP I
SE
JMS I
HDV
TEN
CMA
KNTP
TAO I
KNTP
DC. I
JMP
stl

I'·'"
INO-RETN.
IYEI--DIY • 8Y TEN
IREDUCE KNT 8Y 1

10UTPUT DIGITS OF FAC 8Y HUt. TIPt. YING BY TE",
ITHE HIGH ORDER DVUFLOW IS HIE DIGIT
DGTYP,

DU,

eMA
DCA

SIU8

TAO
" iii I.
Xli

lCLO
MUY

DCl
TAD
SIIIP
KU
ISZ
J"P

leLD
ACH
MUY

swp

eLA

t)CA
JMS

swp

PRNU,

.+3

CHA
DCNT
t)UTOG

DCA
ISZ
JMP
JMP I

OTt
OGnp

eLA
TAD

'LOW

e.t.
DCA

PRNUl,

DeNT

AeH
Sf

Si<P

JMP
TAD
JMS

K25l,

J"'

lSi

OONEF
K252
OUT
PRNTXl

ISTORE COUNT PASSED
IMODE 8 OF UE
IGET LOW ORotR FAC
IHUL By TEN
11II£W AeLO TO At
ISTORE IT BACK
IGfT ACM-SENO TO MIiI, AND
IHI ORO. OVER'LO OF NUY TO At
IMULl 8Y TEN, OVftFLO IS ADDEO
IDONE-ALI. SIGNlF. OIG~.'
INO-IiD ON
IYES.PRINT ZEROS
IFROM NOW ON
IPRINT DIGIT (HI ORO. DVRFLOW)
INEW ACM IS IN Mlil
1ST ONE IT
100lllE R£QUIRfD?
l'HOPi:

"up

IGET FIELD WIDTH
IMUST 8£ NEGATIVE
IUS( AS COUNTER
100NE AU.1
INO-GO ON
IYfS-RUN.
I"PRI~T

ASTERISK

IASTERIS1(

•

PAL8-V?

105/8 BASIC RUNTIME SYSTEM

eLA
JMS
JMP I
PRDCPP, pRDCP

PRIRO,

OUTOG
PRDCPP

10/24112

PAG[ 115

leLR. GARBAGE
IPRINT ZERO
IPRINT DEC. PT. (MAYBE)

IOUTPUT ROUTINE

OUT,

I leR3
"DCA
OUT
JMP

ISTORE IN INTERMEDIATE RUFfER

IOUTPUT DIGIT
I

OUTDIi,

iii

TAO

JMS
JMP 1

KNTP,
KKi!I',
K212,
TM],
DCNT,
K305,
P2U,
FFDY,
P2S],
FLING,
1<144 ,

•

P2b0
OUT
OUTDG

IHETN

KNT
215

212
iii

""
"

ICOUNT OF SIGNF. DIGITS

305
2.0

HOlY
i!~H

FI..INK
144

•

105/8 BASIC RUNTIME SYSTEM
I

IFLOATING POINT INPUT ROUTINE
I

FFIN,

PAGE
1/1

eLA
DeA

CMA
DCA
COF
DCA

DEcaNV, DCA
DCA
DCA
DECNV, DCA
DEtON, JMS
JMP
lSI

lSZ

eMA
PRSW
SIGNF

oswn

Aex
AeLa
AeM
DNUMBR
GtHR
FnNl

Dswn

DNUMBR
DCA
TI'l
JMS I FMPYLL
Ti:N

FFIN',

FIGai,

JHS I 'PUTL
FPPTMI
JHS I 'GETL
TP
JMS I FNORL
JMS I FADOLL
'PI'TMI
JMP
Of tON
PRSW
lSZ
JMP
'IGO;?
TAD
1<2
SNA
CLA
JMP
DECNV
DCA

ONUMBR

CLA
lSZ
JMS I

SlGNF

MQL

FFNEGP

IINITIALIZE PERIOD SWITCH TO -1
ISET SIGN SWITCH TO -I
ICHANGE TO OF OF PACKAGE
IZERO CONVERSION SWITCH
IZERD OUT THE FAC'
IZERa' OF DIGITS SINCE DEC, PT.
IGET A CHAR.FROM TTY.
/TERMINATORIDIGIT-BUMP CONVERSION SWITCH
18UMP , OF DIGITS
ISTORE IT IN FORM EASILY FLOATIBLE
IHULTIPLY • BY 10
ISTORE IT AWAY

IGET NEW DIGIT
IF'-OAT IT

IADO IT TO THE ACCUMUL~TED •
IGO ON
IHAVE WE HAD A PERIOD YET?
IVES-GO ON
INO-IS THIS A PERIOD?

IYES-ZERO DIG. COUNT AFTER DEC. PT.
lAND GO CONVERT REST
INO-TERMINATOR·ZE~O COUNT OF
IDIGITS AFTER DECIMAL POINT.
10 TO MQ FOR LATER MULTIPLY
lIS , NEGATIVE7(DID WE GET - SIGN?)
IYES-NEGATE IT

SWAB

CMA
DCA
TAO
TAO

GETE,

INA
JMS
JMP

SIGNF
CHAR
KME
CLA
GCHR
EDON

~UY

1<12

JMP

SHE

IRESET SIGN SWITCH FOR EXP.

INO-WAS TME TERMINATOR AN 'E'7
IYES-GET A CHAR. OF eXPONENT
lEND OF EXPONENT
IGOT DIGIT OF EXP-MULT ACCUMULATED
IEXPONENT BY TEN ANO ADO DIGIT
ICONTINUE

•

PAL8-V?

IOS/8 BAIIC RUNTIME SYSTEM
EDON,

ISZ
DCM
CI.A
TAO
SAM

UGNF

ClL
ONUM8R

10/i!4/72

PAGE 117

IWAS E~PONENT NEGATIVE?
IYES-NEGATE IT
ICLEAR At AND LINK
IGfT • TIMES TO DIV MANTISSA 8Y TEN
ISU8TRACT FROM E~PONENT

eLL

IRESULT POSITIVE?
CLL eMA CML lAC INO-MAKE pas. AND SET LINk
INEGATE FOR COUNTER
eMA
ONUMSR lAND STORE
DCA
ILINK-l-0IV,-0-MUL •• BY TEN
RAL
IFORM CORRECT INSTRUCTION
MOV
TAD
lAND STORE FOR E~ECUTIDN
FINST
DCA
ONUM8R IDONE ALL OPERATIONS?
ISZ
FIN5T
INO
JMP
/YES-RETURN
JMP I
FFIN
11)
INO- MUL DR DIV. MANTISSA
IBY TEN
TEN
FCNT
IGO ON
JMP

SPA

feNT,

FINST,

"NEGP, F'NEG

PRSW,

DNUMSR,

121
121

UGNF,

K2,
KME,

2
.305

MDV,
"HS I
FMPVLL, ,'MPV

FI"DIV
'ADOLL, "ADD
KIl,
TP,

TP1,

TEN,

ITHESE 3 WDS, MUST BE IN THIS ORDER
1111&1111111111111

U
13

4
i!400

•

105/8 BASIC RUNTIME SVSTEM

PAL8-Y1

10/24112

•

PAGE 118

IROUTINE TO GET A CHAR FROM THt TTV ANO SEE IF IT IS DIGIT
lOR A TERMINAlOR.
IRETURN TO CALL • 1 IF TERMINATOR, TO CALL • 2 IF DIGIT
ITHIS ROUTINE MUST NOT MODIFY THE MQII
GCHR,
1/1
JMS
INPUT
IGET A CHAR FROM TTY.
CHAR
TAD
IPICK IT UP
TAD
PLUS
IWAS IT PLUS SIGN?
SNA
JMP
DECONt IYES-GET ANOTHER CHAR.
MINUS
TAD
INO ~AS IT MINUS SIGN?
SU
eLA
JMP
•• 3
OCA
SlGNII'
IYES-FLIP SWlrCH
DECONl, JMS
INPUT
IGET A CHAR.
TAO
CHAR
1050.
TAO
ISEE IF ITS A DIGIT
CLio
Kli
TAD
SZL.
IDIGI T?
GCHIit
lSI
IYES-RETN. TO CAI..L+2
JMP I
GCMR
INO-RETN. TO CALL+1

K'1S06,

PLUS,
MINUS,

750ft

-253
253-255

I
I

IINPUT ROUTINE-IGNORES LEADING SPACES
I

INPUT,

III

JMS I GETCML
TAD Dawn
SlA CLA

JMP lOUT

TAO CHAR
TAO Mi40

lOUT,

14240,

SNA CLA
JMP INPUT+l
JMP I INPUT

IUSE OUR ROUTINE TO GET CHAR
IGET TERMINATOR
IYALIO INPUT VET?
IYES-CDNTINUE
IIIIO.GET CHAR
ICOMPARE AGAINST SPACE
lIS IT A SPACE?
IYES-IGNORE IT
IRE TURN

-240

IROUTINE TO DECIDE CALLING MODE IN LIEU OF "SPECIAL MODE" PQOBLEMS
I

PATCHF,

*5364
1/1

SlA

RTNi,

JMP RTNi
TAD FF
SlA CI,.A
ISZ PATCHF
JMP I PATCHF

AC EMPTY
INO-THIS IS ALWAYS 51 MODE WITH AOUR IN AC
IYES-GET SPECIAL MODE FLIP-FLOP
IIF ON, THE ZERO At MEANS ADDRESS OF ~
IUSE AC AS ADDRESS Of OPERAND
IRnURN
I IS

101/1 BAIIC RUNTIME IYSTEM

PAGE
I

IFLOATIN& IUBTRACT-USES FL.OATING ADD
IFSWIlI
"IU81, 0
IWHICH MODE?
JMI J PATCMP
HSUSI ICAL.LED BY USER-SET ADOR. OF OP
TAD I
ARGElL. IPICK UP ARGUME~T
JMI I
CD'
"NlGA INEGAT£: FAt'
JMI I
HaUS!
TAO
sunp
JMP I
"NEGA, F'NEG
IUBIP, SU80
I

"LOATING DIY IDE
IfSwnCHaS
/THIS IS OP/FAt
I

"DIY 1, it
JMI I PATCHP
"OIY1
TAD I
ARGElL
JMI I
CO,
AtM
TAD
OPH
DCA
ACX
TAD
StriP
ACM
DCA
OPX
TAO
ACX
DCA
QPL.
TAO
SWP
DCA
OP"
ACL.O
TAO
OPI..
DCA
OPH
TAO
SWP
ACL.O
DCA
HOlY!
TAO
HOP
QCA I
FOI
TAO
MDSETP
DCA I
M01P
JMP I

IWHItH MODE 0' CAL.L.t
ICAL.L.ED 8Y UIER-GET ADOR.
ICINTERP.)-G!T OPRNO.-ADDR. IN AC
ICOF TO FIELD OF PACKAGE
IswAP 'AC AND OPRNO-OPH IN MQ,
ISTCR! ACH IN OPH
IGET UP OF FAC
10PH TO AC, ACX TO MQ
ISTORl OPH IN ACM
ISTORE OPX IN Aex
10PI.. TO MQ, Aex TO At
ISTOR! Aex IN OPx
ISTDRE ACL.O IN OPL.
IOPH TO KQ FOR L.ATER
ISTORE OPt.. IN Ael..O

18£T UP SO W£ RtTN TO

INORMAL OIYIDE ROUTINE
IGO ARRANGE OPERANDS

MOl
MOl"
ARG!TL. ARGfT
MDIET', MDSET

•

"DP,
,01,

"DIY
,.'01

•

IOS/8 BASIC RUNT 1M! SYSTEM

PAL8-V7

10/i4/72

•

PAGE li0

IPATCH TO fA! ADO ROUTINE
ADDPe."

TAD ACI
TAD RBUle

DPU
J"P AODPa
CLL CML RTR
ISZ lex
Nap
ADDPa, TAO RB41.e
JMP J AODPCH
RUIae, 411/18
IROUTINE TO BUMP CHARACTER NUMBER
IUSED By ~HAR PACKING ROUTINES. BUT ITS HERE AS 'A PATCH
CNOBHL,

.ssn
a

TAO I WORDI
TAD KrUll!!

DCA I WORDa
JMP I CN08ML

IHEADER WORD
IAOo 1 TO THI COUNT BITS
IDDNE

•

PALe-V?

lOll' IAIIC "UNTI"~ SY.T!M

10/i4/72

PAGE 121

"LOATING "ULTI'LY-·OO£I • SINGLE MULTIPLIES WI'~ EAE
ITHIS US£I 'WE 'ACT THAT I' At IS NON-ZERO WHEN YOU DO
" MUY INITR, T"I At 11 AOO£O TO RESULT 0' THf MULTIPLY.
I(IN THI LOW OROI", NATCHERLY)
PAGI
~"M",

•"fita 'ATCH'
I

TAD!
JHI

CLl!-

{to:=-

'PM'Y
MOln
MUY

TAD

AtH
",Ut

_~_:::=G'

_-___ ~- -

D~P

Atx

/ADD 'AC EXPONENT-GfT IUM 0' UPS,
IS TOR£ A£lUL T
IMUL, HIGH ORO£R FAC " LDW ORO OP.
IHIGH ORDiR 'At W'I IN MQ
IAOD IN REIULT 0' IICOND MULTIPLY

AtH

IlfOR! MIGH ORDER RESULT
IG£T MIGM ORDIR 'AC
IHND IT TO MQ AND L.OW ORO. RESULT
10' ADD TO At-STORI IT
IROTAT£ CARRY TO AC
ISTOftl AWAY
INOW DO PRODUC-1' 0' HIGH ORO£AS
IFAt HIG" IN MQ, 0' HIGH IN OPL
IlDD IN THi ACCUMULATED •

ACLO
ACLO

,CM

IN.

_4J:MP~

--aMI

flTZltO,

•

DCA
CLA
SNA
Jft,
eLA
fAD
OCA

IWHICH Moon
ICALLED 8Y USER-GET ADDRESS
ISIT UP ,OR MULT
IMULTIPLY-LOW OADER 'AC ITILL IN MQ
ITHla II PRODUCT 0' LDW ORDERS
IUP LOW ORDER RUULT-INSIGNI'ICANT
IGIT LOW ORDEAt') OF FAC
ITO MG-MIGH ORO. RESLT 0' LAST M'Y
ITO At-WILL 8E AOO£O TO ~EaLT·THIS
liS 'ROOUCT-LOW ORO fAC,HI ORO OP
IITORE R[aul. T
IHIGH ORDER 'Ae TO Mg, O'X TO At

.. ,
IZIRO'

__~.T~Z~R~0~1~/~Y~I~'~-:GO~ZH£~R~Qc£~I~P~D~N~f~NT~~-;,~~
______________
INO-WORMALIZt: (1 SHIn AT MOST I)
ACM
seA
CLl

INC~

CMA
ACX

Aex

,STORE HI~H ORDER REIULT
IG£T ITEP CNTR-OID WE NEED A S~I'T1
INO-JUST CHEC~ SIGN
lyES-MUST OECREASI EX'. BY 1
IITORE BACK

•

IOS/8 BASIC RUNTIME SVSTEM

SNCIC,

TAD
SPA
OPIC
!SZ
JMP

TAD

"POS,

DCM
DCA
SWP
DCA
18Z
JMP I

HSIGN, III
ARGUIC , ARGET
DVaFI., DV

PALS-V7
ACe
CLA

10/24/72

•

PAGE 122

lIS HIGH ORDER OF OVERFLO WOo 11
IVES-ADD 1 TO LOW ORDER-STILL IN MQ
IRESULT NEGATIVE?
INO"GO ON
IYES-GET HIGH ORDER 8ACK
ILO~ ORDER STILL IN MQ.NEGATE
ISTORE HIGH ORDER BACK
ILOW ORDER TO AC
ISTORE AWAY
fSUMP RETURN
IRETUN

MSIGN
MPOS
ACH
ACH
ACLO
I"'MPY
'FMPy

IROUTINE TO SET UP FOR MULTIPLY AND DIVIDE

MDIET ,

,i "," -

MOl,

'>~ll ....- ~
f,>

J.-

"~L-- -

ARGETK IGET OPERAND (ADOR. IN AC)
JMS I
COF
ICHANGE TO DATA FIELD OF PACKAGE
CLA CLL CMA RAL IMAKE A MINUS TWO
DCA
MSIGN
lAND STORE IN "'SIGN.
TAD
OPL
IGfT LDW ORDER MANTISSA OF OPt
SWP
IGET INTO RIGHT ORDER ( OPH IN MQ)
SMA
INEGATIVE?
JMP
,.3
INO
OCM
/YES-NEGA TE IT
MSIGN
lSZ
IBUMP SIGN COUNTER
SMI.
ISH 1FT OPRNO LEFT 1 TO AVOID OvRFLO

+sT.~'

ISTORE BACK.OPH CONTAINS LOW ORDER
I
OPt. CONTAINS HIGH ORL>ER
IGET THE MANTISSA OF THE FAC

.~
Dt.O

FPOS,

ACHSWP
SM"A
JMP
DCM
ISZ
NOP
OST.
ACH,
JMP 1

MSIGN

IMAICE IT CORRECT ORDER
INEGATIVE?
INa
IYES-NEGATE IT
IBUHP SIGN~OUNTER (MAY SKIP)

MOSET

ISTORE BACK-ACH CONTAINS LOW ORDER
ACLO CONTAINS HIGH ORDER
IRE TURN

FPOS

•

10S/..Alle RUNT 1M! SYSTEM

"LOATING DIVIDE
I

.sUi

"DIV,

"01,

•

JMI I 'ATCH'
FFDIV
TAO I
J"MI
MOlfT

091-'

d1!J,..

OtT

~
JM, I

Ct.l

TAD

01'.

CM.
TAD

lAC
AC"
ACX

DCA

oPaz

OVLP,

DVO'L

SNL
JNP I
OU

Aex

INa-GO ON
IYES-ZERO EXPONENT
INO-TMIS IS ;*OPL*2**-12

ACI

INEGATE IT
ISEE I' GREATER THAN REMAINDER

OVOPI'

,YU-ADl..,ST fiRST DIVIOE

CLA
OVO'L
ACI

10111 ERROR'

01'1.

111.

JMP I

TAO
Jf4.

,.5

JMP

LaR

nEI

INa-GET QUOT OF 'IRST DIV,
IN[GAllYEt
INO-REMIM8U-QUOT 0' 2ND DIY. IN "Q

liZ
NOP
ISZ
IICP
OCM

Aex

,ADJUST EXPONENT

MIlGN

DCA
IWP

AeH

'SHOULD SIGN 8£ MINUS'
INO
/YES-DO IT

DCA

liZ
JMP

DVOPSP, OVOPS
DUD,
CAM
DCA

•

INO-OO Q*OPL*2**-li/OPH

IVES-MUST SHI'T IT RIGHT 1

01AD1,

'I'

III QUOT • ,t

SIC,
DCA
MUY
O'H
DCM
TAO

OVLPI,

IWHICH MODEt
ICALLID IV USER-GfT ARS. ADDRESS
IG£T ARG. AND SET UP SIGNS
IDIYIOt-AtH AND AeLD IN AC,NIiI
ITHIS IS HI
ORDER DIVISOR
IQ~~ TO Ae"R~TO ACt
IDIVIDE ERROR! .
IYE'-HANOU IT
100 EXPONENT CALCULATION
IEXP, 0' '"C - EXP. 0' Of'

JMP

AeLO
"OIV
"OIV
ACX
08601

/tTORI IT BACK

IBUMP RETN. AND RETN,

IZERO txJ!lONENT
IGO ZERO MANTISSA

•

IOS/8 BASIC RUNTIME SYSTEM

IFLOATING ADOITION.I~ OROEH NOT TO L.OSE BITS, wE DO NOT
ISHIFT BOTH NUMBERS RIGHT 1 BIT 8~FORE ADD-ONLY SHIFTS DONE
IARE TO ALIGN EXPO~ENTS.
I

FFADU,

PAGE

JMS I PATCHP

PAOl,

TAD I

FFAOO

JMS I

ARGElP

TAO

OPIC

COF
MIiIL
TAD
SAM
SPA
CMA
DCA
UD

lCX
lAC
CNT
tNT

TAD

M21

SPA

SNA CLA

CMA
DCA
OLD
ADORS
SGT
SWP
DCA
SWP
DCA
SGT
JMP

TAD

DADR,

DCA
OLD

AC0

SHfSG
DolOR
.+3
OPX

ACI(

SWP

SHF8G,

ISZ

ACe

JMP

1.00

01,.0

SWP

tNT,

INO .. OK
IYES-MAkE IT A LOAD OF LARGEST #
IGET ADDRESSES TO SEE WHO'S SHIFTED
IWHICH EI(P GREATER(GT FLG SET
18Y SUBTR, OF fliPS.'
10PERANO'S.SHIFT THE FAC
ISTORE ADDRESS OF W~O GETS SHIfTED
IGET ADDRESS OF OTHER (0 TO MIiI)
ITHIS O~E JUST GETS ADDED
IWHICH EI(PO~ENT WAS GREATER?
IFAC'S • DO NOTHING
10PERANo·a-PUT FINAL EIIP, IN ACX

IGET T~E LARGER # TO AC,MQ

o .

OST
Ace

IWHICH MODE OF CALLING
ICALLED DIRECTLY 8Y USER
IPICK UP ARGUMENTS
ICHANGE TO CURRENT DATA FIELD
IPICK UP EXPONENT OF OPERAND
ISEND IT TO Mlil FOR SUBTRACT
IGET EXPONENT OF FAC
ISUBTRACT-RESUI,.T IN AC
INEGATIVE RESULT?
IYES-MAKE IT POSITIVE
ISTORE IT AS A SHIFT COUNT
ICOUNT TOO BIG?(CAN'T BE ALIGNED)

IPUT l~ THE RIGHT ORDER
ICOULD EI(PONE~TS SE ALIGNED?
I~O·JUST LEAVE LARGER IN AC,MQ
IYES-STORE THIS TEMPORARILY
I(IF ONLY FAC STORAGE WAS REVERSED)
IGET THE SMALL~R •
IPUT IT IN RIGHT ORDER
100 THE ALIGNMENT SHIFT

•

PAL8-vr

101/8 BASIC RUNTIME SYSTEM

10/24/72

PAGE 125

DAD

1100 THE LARGER •

OIT

IITORE RESULT

Ael

ACit
III.

10¥£RfLowtCL NOT • SIGN BIT)
INOTE-WE DIDN'T SHIFT BOTH RIGHT 1

CMA
,MA

eLA
INOPE
NOOV
JMP
CLA CLL CM," RAR IMAVBE-SEE I' i .8 HAD SAME SIGN
AeM
AND
OPH
CLl
OVRFLO
JMP
JM, I ADDPCL

TAD
IMA

NDOY,
1.00,

H"I

DCA

AeM

DCA

ACLD

CMA

lAC

IWP

ICA
TAO

AOD~,

0"
liZ

JMP I

INUATE IT

AtlC

,AND AOJUIT 'INAL EXPONENT

"AOD

I.UMP RETURN PUT ADDRESS

Aex

,,.00

IRITURN
IOVERfLOW-SET HIGH ORDER RESLT .ACK
IIHl" IT RIGHT 1

TAD
DCA

KK ••• I
AeH

IREVIRS' SIGN BIT
lAND STORE

DCi

liZ

AeLO
ACIC

"TORE LOW ORDER
IBUM' UPON!NT

JM'

ADON

100NE

.ASR
I

....-'J
HOP

MIf,
ADORl,

IGET IHIFT COUNTERU 0' NMI SHIFTS)

ACI

OVR".D, TAD

lue .... ,

IUGNS At.IKU

/VU-OYER'LOW
IJUMP TO PATCH FOR THIS ROUTINE
INORM1LIZE (LOW ORDIR STILL IN MQ)
IITORE 'INAL RESULT
IGET AND STORE LOW ORDER

OI'M

AtM

Uil", ARSIT

.... " •

'fLOATING .veTRACT-USES 'LOATING ADO

"
"'UI,

JMI I PATCH'
TAD I
"IUB
ARIiEfP
Jft' I

CO,
TAO
ItilP
DCM

•

lOP" II IN MQ'

,puT IT IN RIG"T ORDER

IHnAn IT

DCA

OPH

ISTORE BACK

DCA

OPL
"aUI
"ADD

IGO TO ADO

MOA

SUBI,

OPL

I"HICM MOOn
ICALLED IV USER-GET ADOREI. 0' DP.

TAO
DCA
JMP

FlOI

•

10S/S BASIC RUNTIME SYSTEM

PALS-V1

10/i4112

•

PAGE 12b

IFLOATING NEGATE··NEGATE FLOATING At
I

FFNEIi,

SWAB
OLD
ACH
SWP
DCM
DCA
SWP
DCA
JMP I

IMUST 8E MODE. 8
IGET MANTISSA

AeH

ICORRECT O~DE.R PLEASE.l
INEGATE IT
IRESTOPE

ISEND 0 TO MQ
ACLO
FFNEG

ICONTINUATION OF DlVIDE ROUTINE
IWE ARE ADJUSTING THE ~ESULT OF
IFIRST DIVIDE.

TH~

DVOPs,

CMA
IAe
DCA
ACl
TAD
OPL
CLL CMA lAC
AC1
TAD
SNL
JMP
OVOPl
DCA
AC!
CMA
TAD
AC0
DCA
AC0
DVOP1, CI.A
CLio
TAD
ACl
SNA
CAM
DVI
OPL
tLA
SZL
DVQVH
JMP I
DCM
JMP I
DVLP1P
DVLPlP, DVLPl
OVOVR, DV
ADopeL, ADDPCH
NOPUNCM

•

IADJUST REMAINDER
IwATCH fOR OVERFLOW

IDON'T ADJUST QUOT.

IREDUCE QUQT BY
IG~ T REMAINDER
IZERO?
IVES-ZERO EVERYTHING
INO

101 V. OVERFLOW?
IYES
INO-ADJUST HI QUOT (MAYBE'
IGD lUCK

•

105/8 BASIC RUNTIME SYSTEM

PALS-Y1

10/24/72

PAGE 121

PAGE
I

IARGUMENT PICK UP ROUTINE.E~TER WITH DATA FIELD SET TO EITHER
IFLTG. DATA FIELD OR FLTG. INSTR I FIELD,
IADDRESS OF OPERAND IS IN TME AC ON ENTRY,
ION RETURN, THE AC IS CLEAR
I

euee

0f1lllJ11J
:SIlJU

fIlU02
0UU
fIlUfIl4
fIlU05

1442

0&21111

0UI/I6

fIl6207

3041

4310
1442
T01/J0

7000

ARGEl ,

DCA
ACi
TAD I
ACi!
DCA
OPI(
JMS nZAC&!
TAD 1
Aei!
IFZERO EAE c
NOP
NOP

ISTORE AODRESS OF OPERAND
IPICK UP EXPONENT
IMOYE POINTER TO HORQ,WATCH FOR FIELD OVERLAP
IPICK Ii' UP

If'NZRO EAE C
ENPUNCM

SWAB
MQ.
NOPUNCH

IOPM INTO MQ BECAUSE EAE ROUTINES
IEXPECT TO FINO IT THERE

DCA
OPH
JMS ISZAC2
TAD I
ACi!
DCA
OPL
JMP lARGEr

ISTORE
IMOVE POINTER TO LORD, wATCHING FOR OVERLAP
IPICK IT UP
ISTORE IT
IRETURN

I62U
-16111

:505e

4310
1442

I/IUU
I/IUll

3051

IIIU14

5611J11J

•

IOS/8

BASIC RUNTIME SYSTEM

PALS-V7

IFZERO EAE c

10/24/72

•

PAGE 128

IROUTINE TO NORMALIZE THf FAC
I

06215
0&216

0000 'PHOR, 0
1045
TAD
ACH
IGET THE HI ORDER MANTISSA
06117 7450
SNA
IZERO?
06210 1046
TAD
AtLO
IVES-HOW ASOUT LOW?
06221 7450
SNA
06222 1041
TAD
AC!
ILOW-0, IS OVRFLO SIT ON?
06223 765a
SNA
ClA
06i24 5341
JMP
ZEXP
I.-a-ZERO EXPONENT
06225 7332..NORMLP, CLA ell CML RTR INOT 0-MAKE A 2000 IN At
06226 1045
TAO
ACH
IAOO HI OROER MANTISSA
06227 7440
SZA
IHI ORDER • 6000
0U10 5ill
JMP
,+3
INO-CHECK LEFT MOST DIGIT
_All
...l
0U31 1046
TAO
ACLO
IVES-6000 OK IF LOW-0
0 (r~
WW'
0un 7640
au
CLA
,
IUW""
06233 7710
SPA
CLA
12,3,4,5,ARE LEGAL LEFT MOST DIGS,
~I~
~
~i34 5236
JMP'FNO~R IFOR NORMALIZED '-(+2000-4,5,&,7)
~f1
~
~
"IIt..~ 0Ul. 5 5334
JMP
FNLfS
IJUMP SO FFGET AND PUT ARE O~GED RIGHT",Y.

~ 06236 J041 'FNONR, DCA
ACl
IDONE w/NORMALIZE-CLEAR ACt
~lt62F.Jn7r-i5~61r,5r-Tr~~~JM~P~I__~F~F~N~O~R__~/~R~E~T~UR~N~____
16241 6d7 ILlp,

!Ll

UtNZRO EAE c
ENPUNCH
I

IROUTINE TO NORMALIZE THE FAt
I

FFNOR,

*'215

COF
SIIIA8
OLD
ACH
SWP
NMI
SNA
DCA
DCA
SWP
DCA
CI.A
CMA
TAD

DCA

JMP I
NOPUNCH

ICHANGE D.F. TO FIEL.D OF PACKAGE
IFORCE MODE 8
IPICK UP MANTISSA

AeX
ACt;
ACL.O

seA

lAC
Aex
lCX
FFNOR

IPUT IT IN CORRECT ORDER
INORMALIZE IT
lIS THE. • ZERO?
IYES-INSURE ZERO EXPONENT
ISTORE HIGH ORDER BACK
ISTORE LO- ORDER BACK
ISTEP taUNTER TO At
INEG'lTE IT
lAND ADJUST EXPONENT
IRE TURN

~ ~ ()

({\ f

PALS-V?

108/1 BASIC RUNTIME SYSTEM

10/i4/?Z

PAGE 129

IFLOATING GIT
I

6Ul

.UIIS
'UU
.6143
... 114

16145

.......

•• 1. ,.'GET,
~~~

"i41

•"MS I PATCHP
TAD I

16111
UI •
UI1

"HS

TAD

DCA

"GET

IWHICH MODE 0' CALL
ICALI.ED BV USER-GET ADDR, OF OP
IPICK UP OPERAND

Aex

ILOAD THE OPERAND INTO FAt

ARGET
OPX

1.,116 1844
,.241
lID5l

TAD

.USt
.U52
1615]

gPL
ACI.D
OPH

liZ

"GET

• 6151

DCA
TAO
DCA

3...
U5111
JUS
22'1

,"'4 ..S641Ill

CDF
JMP I

.. US

AeM

"GET

IRE TN. TD CALL .2

/fLOAUNG PUT

.6156

1180 .1HUT,

'U!I'
.616111
16'61
16162

'""" If>.;t...">

..,.. ,u,
lun
16,n

....,
16166

1"11

16.fl

161f2

..au

862f'

•"MS
IWHICH MODE 0' CALLt
1 PATCHP
ICALLED BY USER-GET OPR. ADOR
TAD I "PUT

JUl
UIUI
J641
U75
lin

DCA

-IHI uz,cn

TAD

DCA I

"GfT
ACX

,PIn

"MI lIZ':GT
TAO
ACH
DCA I
"'ET

TAO
DCA 1

'641

liZ

2116

CD'

.,11
SU6

-IMP I

1ST ORE IN A TEMP
IGIT 'AC AND STORE IT
IAT I~ECl'IED ADD~ESS
IBUMP POINTfR,WATCHING FOR 'IELO OVERLAP

ACI.O

",U

"PUT

IBUMP R!TN,

"PUT

IRUN, TO CALL.Z

IROUTINES TO BUMP ARGfT AND 'PUT POINTERS AND INCREMENT THE
IDATA '111.0 l' THE 'OINTER CROSSES A FIELD BOUNDARY

.un
161"

.6117
,6111

.UIl
'6:t11

..II
1141
5675

IIZ'''T,

,411

un NINCO',
6111

lun lie.,
lUI.
lUIS

nll!S

In,,· 5615
161111

I"lfl
lUll
lUll

•

....51,.
6111

2IU

• ,,,n
lSI

DCA •• 1

IBUMP POINTER
INO SKIP MUNS JUST RETURN
IIKIP MEAN' WE HAVE TO INCREMENT DATA FIELD
ITHIS INST IXECUTED ONLY 8Y ISUCl
IGET THI DATA FIELD
'BUMP BY 1 AND MAKE A CO,
/PUT IN J.INE

•

IRETURN

J"' I lSUGT
'ICP
DCA tU'GT
RO'
TAO CDfU

J"' I IIZ"T

con.,
ilIACI,

CD' 1I/J

•IlIACi!
ISUMP POINTER
INOTHING HAPPENED
JMP I UUCZ

•

losia BAIIC RUNTIME SYSTEM

IUU
eU14

1310
Slat

TAD IllACi

JMP HEweD'

PALa-v7

10/i4/7i

•

PAGE 1~9-t

INEED NEW Of. GET RETURN ADOR
lAND BUMP OF

•

PALl-V?

10S/. aASIC RUNTIME SVSTEM

10/i4/7l

PAG£ 130

l'IIRO UE c
I

I_OUTINE TO ADJUST GuaTINIT 0' FIRST DIVIDE (MAYBE) WHEN THE
IRIMAINDER 0' THE FIRST DIVIDE IS LESS THAN QUOT*OPL
IU,ED BV '~TG. DIVID! ROUTINE

IUS5

.,14' OVO", tMA
DCA
JI4'

"U'
,U11 7111
UII
1'12'
IU21

.. lIZ

.ua'l'

TAD

U45
Uil

TAD

.NL
JM"

OCA

CMA

1111
Uti

TAD

'14' DVO.. I, CLA

DCA

IUSI
.USI
IUJ2

13 ••

.un sns

DVOPi"

lUll
IUSI
lUI'

7161

'NLP,

unt

IU ..
16141

,UII

•

TAO

U4!

snl

....
uu

S,U

J"P 1

DVOP!

O'H
AtH

IWATtH FOR OVERFLOW

DVOlll
AeH
At1
AC,
eLL
ACH

ovopap

CLL CML CMA
TAD

DCA

!In

JMI 1
JMP

5U6

JM,

llU

INEGATE AND STORE REVISED REMAINDER

C~~

lun su.
Jln

"JII
lUI!
.. IU

AeH

DCA

•

ACIC
AC)!

ALlP

NORM I.'
AC)!
"NORR

10VERFLOW-DONtT ADJUST QUOT. OF 1ST DIV.
INO OvERFLOW-STORE NEW REM.
ISUBTRACT 1 FROM QUOT 0'
IflRST DIVIDE
IGIT HI ORO 0' REMAINDER
IGO ON
1-1
ISUBTH. 1 'ROM EXPONENT

ISHI'T ,AC LEFT 1
IGO BACK AND SEE IF NORMALIZED

•

101/8 SAIIC RUNTIME SySTEM

UU
8U41

flUSt

86352
IUS]

1111
O'f5]

.144
5747

5611

16354

451ft

TMPV,

J"S I
ACX
JMf' I
"MPY

8USS

4S1ft

8U57
16UI

I
08,

OV,

4537
55U
4516

LM,

•

PAGE 131

FAe-CALLS MULTIPLY TO MUL. FAe 8Y ITSELF

*ft341

A,
"SQ,

tUU

10/24172

I
f1SQUA~E-SGlUARE

lun

PALa-v.,

TMP"
HSQ

£RRtlR TRAPS
JMS I ERROR
JMS I ERROR
JIIIS 1 'CLR
J"P I ILOOP\.
JM. I ERROR

ICA1.1. MUI.TIPI.Y TO MUI. TI PL V

IFAe BY ITSELF

100NE

IOVERFLOW
IDIVISION UROR
IRETURN a IN 'AC
IILlEGA~

ARGUMENT

IROUTINE TO COMPARE 2 ABSOLUTE Ii BIT INTEGERS TO DETERMINE WHICH IS
ITH! LARGER. WHEN CALLED, NUMBER "A" IS IN THE AC,NUMBER "en IS IN
ICORE LOCATION eAaS ON PAGE 0. RETURNS TO CA~L+l IF e •• A,CALL+a IF

Ihl

IUU
IUU
IIU6S
IU"

NUMCOL, I
DCA A
UI
TAO BABS
SPA CLA
7718
,
53ft'
JMP 8N!G
1111

lun ~
16166

lun

U47
7141

TAO A

76il
iJ61
"61

IN\. C
ISZ NUM

unll U15
1ft3fl

lun

111611)

16374

U47

aun

7711

I/JU7ft

53ft6
57&1

16377

Leu

ABS

JM' I NUMe
BNEG,

U1) A
SPA CLA
JMP HOFTEN
JMP I NUMCOL

fSAVE A
IGET 8
IB> I!I'I

INO-SPECIAL CASE CHECK
/YES-6fT A AGUN
INEGATE
IIF blA, THERE WILl. 8E A CARMY
IBeA
T A AGAIN
NfG Al.SO?
THE CODE AVOE TO COMPARE
• A

~~,

1..

,a . :.'

, II ..::....

"7';"91

....J

"$$~

r~/3

o~,

'] ~D ~. ...r iV~ !If
~ t.<.. e.rR.,

S",,-CLA
-Tf'!!; .r. ~TYPe
J'II'! P J: .J:Lf)O/:J

IOS/8 BASIC

PALa.Y1

RUNTIME SVSTfM

11/24112

PAGE t32

*DVERLAh]11II1

641111

ITELiTYPI "DRIY£R"-WHEN CALLED, GRASS CHARACTERS FROM THE
ITELETYPE UNTIL A CR IS SENT OR THE BUFFER IS FULL. ASSUMES TTY ENTRY
lIS IN 1/0 WORM AREA.
IUIIII
8UIl

lillie

TTVDIU,

14121

,IKP

un L'I.USH, JMS 1 Clltl.'
TAD K217
Iun un
'6414 nil
I lCPUT
TAO I WORD!
lun U64

16412

.....,

J"'

,U86

35"

lUll
"411

4111

TTYJN,

nil

""U
KI,A,
"""3
.fi41" SIll
1251
6IU

.Ul!
'U,6

13"

'UST

61l"

16421il
IU21

U11

.Ui!
IU26
IU21
nUl
'61631

US!

TAO CHAR
TAO MCTRLU
INA CLA
JM' LfL.UIH
TAD tHAR
TAD CRUIOT
aNA
oJMP BACKUP
TAD MeR
INA CLA
JMP eFt

5212
U53

1258

'U!)

5254

'6"]. U47
864]5 165111

... 36
86431
",44111

nll6

.'441
IIUIll

US!
4'545
4541
5651

i6"U

11l1li

06445
1116""6

SiUJ

06411'1

06451
06451

1I1U
141111
.674

16452

5252

......

TAD ttl'"

JMS I PACKL

J"I I BUFCHL.

JMP I lOLl(
NOP
NQP

nel

1553

KI'
JMP SPIN
eLl CLL

ICCC

1153
12"
.,.51

UsrII

.-1

IClna

DCA CHAR
TAO CHAR
JMS 1 lCPUT

$851
45ii!

,un

TAD lUll'"
Kill

"41' usa
.un
.UI"

DCA I WORDI
JMS I CNDCLL
JMS I PRINT
JMP

JMf' TTYIN

MCTRLU,
MCR,
CRUBD"
IOLK,

-225
:In-ilS
-371
277

K525i1,

ICR~F ONLV NECESSARV ON FLUSH
IPRINT A CR,L'
IPRINT A t SIGNIFVING WAIT FOR INPUT

18UFFER· ADDRESS
IINITIALIZE POINTER TO START OF SUFFER
IINITIALIZE CHAR • TO 1
IEMPTV TTV 8UFFER BEFORE AWAITING INPUT
IDESIGN INTO At
ICHAR READY!
INO-OIDDLE WHIL.E WE WAIT
"LUS~SPINNER OUT OF At
"ORCl 'ARITV BIT
IGET CHAR
ISAVio

IECHO IT
ICL.llR KEVBOARD FLAG AND SET READER RUN
I IS IT tTRl,./ut

IVES-SURT AGAIN
INO
I IS IT RUBOUT'I

IVES-SACK UP BUFFER POINTER
CRt

INa-IS IT

IYES-DONE

IPACK CHAR IN BUFFER
IBU,'ER FULL1
/YEI-UROR
INO-CHAR ] LEn
INO-2 AND 3 LEFT
INO-NElIT tHAI'

sua

164153

K217 ,

156.

BACKUP, TAD I WORO]

IBUFFER POINTER

•

IOS/8 aASIC RUNTIME SYSTEM

11161155
11161156

711141
1564

111 ... 111
e6461

5210

06462

.5ii
4551
5274
5301

IIIU51

euu
06464

1116465
11164.6

7.5111

4546

06461
06470
06471
0U72

1241
156.
35,..

1116413

'3]4

061114
061115

0105

0U76

1561

06500

1116501
1116S0i

1563
111105

06504

107ft
]SU
5267

lun

111651115
06506
111651117
06511
1116512

4553
132111
121110
320111
U5]

06513

4545

1116514

15U
3566

1116510

1116515
1116516
06510

4546
SUIII
1ll1IIe4

1116521
"'52i

2011
141111

IIInt7

Pl'ACK,

5210

111177
3563
5210

1116.77

CIA

USl]

7064

1116524

'213

elB,

tn,

TAD I WORD!
aNA eLA
JMP THIN
TAD 1<334
JMS I )cPUT
JMS I CHRNOL
JMP e18
JMP C1B
JMS I eNoeLl

PALe-V1

10/24112

INEGATE
ICOMPARE AGAINST START OF BUFFER
IBUFFER EMPTY.,
IYES-THERE IS NOTHING TO RUBOUT
(ECHO "\"
IGET C~AR • OF NEXT CHAR (LAST '+1)
It
/3

lIT WAS 2-MAKE IT 1

elA CMA

I-I

JMP HUN
]]4

INEXT C!-IAR

TAD I WORD]
DCA I WORD]

•

PAGE 132-1

IBACK UP BUFFER POINTER

TAD I WORDIII
AND K7477
TAO KIlli!1II1II
DCA I wORDe
JMP TTYtN

lIT WAS I-MAKE IT 3

TAD I WORD0
AND K7477
UD KIIII00
DCA I WORDB
JMP PBACK

lIT WAS ],MAICE IT 2

JMS I CRlF
TAD K4
TAD TTVDRI
DCA TlYORI
TAO tHAR
JMS I PACKl
TAD I IIIDRDI
DCA I wORD]
JMS I CNOCLl
JHP I TryoRI
1<4,

SPI~,

ISZ SPINNR
SICP
eMA CMLJUl
JMP KSFA

INO NEED TO 8ACK UP POINTER

lUCK UP POINTER
IECHO A CR,LF
18UMP DRIVE RETURN TO NORMAL
IPAC~

CHAR IN SUFFER

IINITAILZE BUFFER POINTERS
IRETURN
ISPIN RANDOM * ~EEO
IMARCH TO THE LEFT
ICHECK FOR CHAR YEi

•

lOll' BASIC RUNTIME SYSTEM

.... ,aIT"',

P'~8.Vl

lB/Z.,ll

PAGE 131

ISUBROUTINE '8ITGT-ROUTIN£ TO PUT FUNCTION 8ITS fROM INSTRUCTION INTO Af.

16125

16S16
1652T

uu
1111
nu

5Tn

I"lt

....

'65"

7118
4SU
'461

Inn
lUll
.UJ6

161'1
16'41
16SU

IU4J
16'41

POPG,

GR,

I
TAD

TADG"

IGET GOSUB STACK POINTER
ICOMPARE AGAINST TOP OF STACK
IATTEMPT TO POP
EMPTY STACK?
IYES-RETURN WITHOUT A GOSUB
IGET TOP STACK ELEMENT
ISAVE
I-I IN AC
IBACK UP GOSUB STACK POINTER

TAD TiMPI
JMP I POPG

IG£T POPPED ELEMENT IN AC
IRETURN

GaP

TAO MITTOP
IPA eLl
JMS I ERROR

TAD I GSP

DCA TIE"PI

JUI

CLA CMA

1161

DCA GSP

3861

165.1

un Mlnop, -GUCK

'USI

41n

16553
IUS.
1"!i5

0333

'''51 1114
,,,sa
1181

55U

IPUT fUNCTION BITS !N BITS a-l1
IMUK TMEM OFF
IR£TURN

/GOlUB POP RDUTINI-ROUTINE TO POP ELEMENT OfF GOSUB SUCK

tIII.1
.65.' 5TJJ

1".6

TAO INIAV
RTR
RTR
AND Klll7
JM' I fBITGT

CL~

"'JI
"SSt . . 14
..sn

IGOSUB RETURN
RfTANI, JMI POPG
lAC
DCA 1 INTPLI(
JMS POPG
DCA 1 CDFPS~
JMP I ILOOPI.

IPOP PC OFF GOSU8 STACK
18UMP OVER SECOND wORD Of GOSUB INST
IUSE AS NEW PSEUDO-PC
IPOP COF OfF STACK
IPUT IN LINE IN PWFECH
IRETURN TO ILOOP

IDATA LIST READ (NUMERIC)
16556

'65"

4765

llU

' '6111 4765
1145

. . 561

'6562
,.561

4165

1146
55U
,,"4
16565 Ull

RDLIST, JMI 1 D~RELI(
DCA UP
JMS I OLRELK
DCA t40RD
JMS I DLRELK
DCA LORD
JMP I ILOOPL
DLRELK, ~LRfAD

IFETCH WORD FROM LIST
ISTORE AS EXPONENT
IHIGH MANTISSA
ILOW MANTISSA

ISUBROUTINE 'TYPE-RETURNS TO CALL+l IF Fll.E NUMERIC,CALL+Z IF ASC!1
165"

11.1
&563

16571

Ul1

16572

JUI
il66
57"

"5"
,,571

•

,.5n

HYPE,

TAD I IIIOROI/l
eLL RAR
ilL CLA
taz "YPE
.IMP 1 FTYPE

IGET t4EAOER
ITYPE TO LIN«
lIS IT NUMERIC?
INO-BUMP RETURN
IRETURN

•

105/8 BASIC

RUNTIME SYSTEM

'6!14

INTPLK, INTPC

1312

PALS-V7

10/i4112

•

PAGE \j3-1

•

I~S/8

BASIC RUNTIME SYSTEM

PALS-V1

10/24/72

PAGE 134

PAGE

"1111

ILAST PAGE 0' a.Ts-eONT4INS S~C,I/O TASLE l 'NO SD~E ~JSC£L~'NEOUS CODE

1*.*.**.***.*.*.*.****
*************
**. **** .**.** *. **••• ***
ITElETYPE INPUT aUf FER** .***
(14 C"AR~CTERS
LONG)

..... ,..,
I.'"
.....
.....
.... S
.... 3

•••,t

..."'13
"
"'11
"'15
..'''i.".

I . .I?
"'Sl

"'14

... n

. . 611

..61.

lea1
Uti

ITHtI ttU'f£R CONTAINS ONCE ONLY START CODE WHEN LOAOfO

TTYIU',

STARTI,

55U
IIi'
llU
1111

JM' I ILDO'L

TAD 'SlTRT

JM, I ...UMCOM

4415

JM' CHK8I

UO K•• l?

tI?'

J."
11"

tHKaz,

JMP CHIel!

5222

U45

TAD C'6
JM' lAS
TAD 'SSTRT

5U?

I'"
JIU
'''11
.. 614 1141

.'''11,"

JM' 1 HUMtD'"
JMP tHIC84
TAOel4

U ..

J.U

CHICI4,

liU
..'n u.,

.un
.... 1

.... 5

'''4?·

86'Sl

"'52
8665.

,US5

•

U ••

8U'FERS ARE FREE-START IHTERP~ETER

III STAn 0' PSEUDO-CODE 8flOW lUll
INO-CH£C« 'OR I.e"
IVES-SET ALL BUffERS ausy

liS START 0' 'SEUDO-COOE BELOW 1100
INO.CHiCf( 1401

IYES-ONLY BU"ER I IS AYAILAaLE

lIS START OF CODE 8ELOW 14.1'
IYEI-CMECIC 111111
IYEI-ONLY BUFFER 1 AND 2 AVAILASLE

DCA 1,81

TAO UIIII

''']6
Jln aAS,
,,'n "13

..'n
.66 . .

JM'8U
TAO 'ISTRT

JM, I HUMCDM

5!U

..... ....
""I '''?
"I'
.....
•,.!. ....
••••
....
"'51 .".
....'"I

INO·A~L

TAO CUll

~IJl

...,. ,.n
1. . 51

100 THEY MATCMt

DCA IAes

4415
"'i!
"'26

112'

JM'IU
U-O 'ISTRT

DCA UII
TAD ene.
JM! J HUHCDM

...1

1.6S. 'i!J1

ID' FOR 8~TTOM OF PSEUDO-COO!
ICOMPARE TO A CDP II

DCA lAB.
TAO IC . . . .

5U7
til'

TAO CDF'I

TAO MCDH
IU eLA

MCO'l.

KZ....

1114

C14,

1111
U ••

CU,
CU".
CUI' •

J .... I ILOOPL
TAD "'811
DCA IMAP

JM, I ILOOPL

•
,.
""
", ,
••'"'
•,

lIS COOl: SURT 8now 28,e,

INO-START INTERPRETER-ALL BUf'ER VREE
IYEI-SUFFERS 1,z, AND 1 AVAILA8LE
ISURT I-NTU'RETER

.6ill

•
"

••

•

10511 BASIC RUNTIME SYSTEM

0665.

l8a.

PALS-V?

ltIJ/i411l

•

PAGE 134-1

I1J

''''1
I ••• TTYEND, •
0
''''8 8103
1188

tC H400.1< 7480

1************ •• **.************************************ **********
ISUBRDUTINE CHARNO-RETURNS TO CALL.1 IF CHAR '.1,CALL+2 IF 3,CALL+3

IIF i

.... 1

1188

1116661
. . .61

1563

.iU

CHUNO, 0
TAD I WORD0

AND Utili

'6'60 l1ra'
,.'65 780'

elL RTL

111".6

SMA SU

RlL

JUt
.".1
nue 1641
86671

.UTZ
. . 6n

iUS
"61

lUll

ISZ CHARNQ

au CLA

K3t1J0,

ISI CHAIfNO
J"P I tHARNO

IHUOER

I ISOLATE CHAR ,.

ICHAR • TO 81TS e,1
lIS IT Z1

IYES-aUMP RETURN

lIS IT 2 OR 37

IYES-aUMP RETURN
IRETURN

300

IUROR MESSAGE 'OR TTY INPUT OVERFLOW
06614
16615
16676

.516
5616
64U

10,

Jf'l5 I ERROR
Jf'lP I .+1
LFLUSH

ILINE FULL
IFLUSH BUFFER AND TRY AGAIN

•

IOS/8 BASIC RUNTIME SYSTEM

..".
... 71

.,.,

IIIl
..II
III'
..III

TTY',

,TTYBUF
TTYDRI

0
21
I
I

FlLU,

,
I

•I
I
I

III

IJI.I

I
I

lit.
nL!ii!,

IlIIn

"II/J

.. 737

'67411

1II1II1/J0

e6'.1
1"42
8614J

86144
'6145
ett146
116147

'''51
e&151

16752
16753
0USA

•

'6755

IFILE U

I
0

III
I

I/JI/JI/JI
IIIIDlII
11111

111111

1111118
111111
I Ie III
80011
11808
111108
lUI 1110
8018
IIIU

8673!

IFI~E

11I11III
II/J III III
el"
elel
1111

.,.1n

ITELETYPE ENTRY-FILE IS ASCII
IBUFFER ADDRESS
ICURRENT BLOCK IN BUFFER
IREAD WRIT~ POINTER
IHANOL£R ENTRV

1101
1101
1111"

111111111
1111

TTY8UF

lun IIII

ettn4

PAGE 135

*OV!RLAV+3i77

.".

l"lJ

10124/72

1111111111111111111111111111111111111111111111111111111111111111
1111111 110 TABLE 5 i)-WORD ENTRIES 1111111111111111111111111111
1111111111111111111111111111111111111111111111111111111111111111

"'PI 1
"182
IUn 6411
,U .. 1111
"U!
IU16 1111111
116111 1111111
1611111 110.
16111 IIIJIII
86112 111111
Inn 1111110
161tG 11.11111
,,71! II ••
Itt7,. 1111
1"1' 11111101
''''2. 11111.
16121 1111

lun
.'JiG
IflTa!
16126
8672'
111613111
Itt731
.,1]2

PA~8·V7

I/)

FILU,

•III

IFILE· n

II
fIJ

I/J

•

IOS/8 BASIC RUNTIME SVSTE,.,

11615.
,6'157
",7 ttl
116"l

a67U

116763

eun

06770
06771
1I.T7i!
0.773
'6774

,nn

1116176
'6777

10124172

III

II1II18

11111108

110811

III

IIII t a

11111111
11010
11111
1118

•067ft6
..,n eee.
,ft7U

PALe-V7

FlL!4,

II GIll

111111
1111l1li
III1U
IIIlIIla

11111110
011110
111110111
0010
S

IFILE U

•

PAGE 135·1

•

101/8 BASIC RUNTIME SYSTEM
A

3575
ABlY
US" AI.. iU.
ABSYI.L 1]1&
0US
ACH
004&
ACI..
0046
ACLO
ACIR
un
ACIRPT 4104
AClI
III III 44
11104111
Atlll
ACt
0UI
eIIIU
AC!
ADCALt 111640
0701
AD'C
4747
AO'\II
0114
AJT
U51
ALI
3174
ALtl<
6240
AI.1P
ALIPP 5140
AL1PT 4105
AL1PTR 5U2
AMOD! iJi4
ANOLST ]401
ANDLSl 3542
ANOPTR 3400
3715
ANt
AN2
3776
ANi!PTR J541
AP0001 U75
ARGET U00
ARGETK 551213
ARGETI,. 5444
ARGETP &li7
ARGPLK 4307
ARSPLL ]511
ARGPOL 4220
ARGPR! 0307
.lRGPRL 1420
ARUMA 1511
ARJMP 0711
ARRAVI 0600
ARSTIlT 0022
ARTRAP 4365
3407
UC
AleHR 3UJ
ASCNOE 3244
ASCOLI< 3457
ASCON 3bU
.. COUL )Z16
AS-COUT 12&f/1
ATABDF lUI
ATABDI. 1173
ATAN
4200

•

ATANAI 442'
ATANAC! 4435
ATANAl 44143
ATANBIiI 4U4
ATAN81 443l
ATANS2 4440
ATANS] 440.
ACJ~CJ
2514
8ASS
0015
UCKUP U54
IUS
&&37
SCGET 11!J]5
(jcaETL 277&
BeNT
1030
aCPUT flIT 41
8CPUTL 3034
tifND
1137
BLINn 33&1
BLREAO 3344
8MAP
003&
8NEG
6314
80
4215
80UTl~S 10&4
8ITRT 1070
6STRTA 1027
8SWL
0144
ifSWP
2240
SUFASS 4in
SUFCHI< 2'706
auFCHL 111147
SUFIN lUS
auF OUT 1026
81
4234
82
4U7
S3
4c!2i
CAD
450.
CBLK
367&
CCCl40 3460
tCN
3743

ceu

CClb
eCi40
eel

4153
4414

3747
4331
cell
4330
CDFINL O541
COFI0 0020
COPPS 2111125
COFP!L 0115
COFPSU 0206
COFe
0761
COl'000 433&
COF10 &307
COFf!0 456i
CDIN
3&21
CFfTCH 1322

PAL.S-Y'

U124172

CHAIN 3&00
CHAR
0053
CMAMNO &&&1
CHAR3P c14&
CHAR3U 30&4
CHECICL 34&1
eMKSe 6&ll
CHI<B3 "',22
eMKB4 &&31
341/l0
CHR
CHRNOL 0151
CHR&,\V 0040
CI
lUi!
3U4
CL
CLEANP 4260
CI.ENG 3440
]744
CL.F
CLOSE 3414.5
CLOSED 344t
CN08MI< 27&5
CNOSML 5513
CNOSMP 3104
CNOCLL 014&
CNOCLR 301&
COMBNE 216ft
CDMLOP 2535
COMMA i!511
COMMAP 3250
COMMAS 2551
cos
4053
COUNCI< 1363
CPLOOP 3Z34
CR
6506
CREAD lUt
CRETN 351&
CRFUNC 0313
CRLF
0153
CRL.FR 2347
CRREP 13&0
CRus~r &450
CSFN
2001
CSMOVE 4143
CSTA
41&2
CSUC 4163
C18
U74
C100f1l 6&46
Cll
4531
C14
&U4
C14ID0 6&47
C16
&U5
C20
4333
C240
2565
C3
4070
C3B
&501
C4
41421

PAGE 13'5-2

OA
231&
DADP
0"&0
OAT ABA 3&&&
OATCOM 3&15
DATe
3&00
OATTAB 452&
08AD
&115
OUDl 5534
08A01P &1TS
peNT
5137
DCNTP 472&
0557
DE
DECNV 5213
OEtON 5214
OECONV 5207
OECON1 5335
OEYCAL. 01i!4
OEVNAL 4332
OEVNAI 4027
OEVNA2 4030
OFETCH 4103
OGTYP 507&
DGTYPP 4725
DIGI
4134
OIGtA 3145
DIGi!
4135
DIG3
413&
OIG4
4U7
DIGS
4140
DISIN J&34
DLCO!!' 2317
DLCOFL. 117&
DL.PTR 0U&
OLREAD 2311
OLREAL 2416
OLRELK 65&5
Ol-STOP 0027
DL.STRT 0030
OMAP
0035
DNAl
3&17
DNA2
3&20
ONUMBR 5305
00
4055
00 ADO &023
DONA
6027
DONE
3765
OONEF 5066
ORAP
4132
ORARGl 0551
ORARGi 0552
OIURG] 0553
ORCAI.L. 0537
ORERR 055f.!
ORIV~1. 4134
ORIYRN 4c00

•

IDS/! BUIC RUNTIME SYSTEM

DSWn

4411
0052
5101
6355
5711
5514
&315

DTl
DV
DVLPI
DVL.l
DVOPS
DVOPSP 55]]
DVOPt &330
DVOP2 5535
DVOP2P un
DVOVR 5717
OVTFlAP 3574
57&5
DVl
5155
eVil!
ovu 5'145
OVi4P 5532
eVi4PT 513&
tAt:
0000
2130
ESC
3140
EBLK
EDBlK 3747
5il&0
EDON
05&0
EF
EFAUL 4254
0056
E'L.G
EM
3&15
EMDONE UI0
EMDONL. 3570
EMUS 4117
£M\.OOP 3545
43217
EN
ENTI"OJ( 'Ins
ENTNO 1162
fNTRVN 42131
ENVA\. 3523
EO'S!\. 0143
EO'S£T 2252
ERRDIS 14&0
ERRET 42157
ERROR 011&
ERRORR 4013
ESTRA

4143

£STRNG 4121
ETAB

4156

ETAS.
ETI.(]P
ElfP
EltPA0
f)(PAl

4154
4042
0044
44il

EXpel

4413

4416

ElfPON 3477
ElfPQNK 3U0
EXPONI 41C0
E2111P10 1301

FACCI.H 03&5
HCR
f>0Jl
fACREL. 0133
HCRES 2373
FAtUL 21132
fACSAV 3371
FADDL. 40&0
FAi.lOI.K 3473
fADOLL 5312
!'ADOM 4357
FAOI
&004
FATCHK 4047
FB
4012
,,'BITGT 6525
FBlTS 0117
FC
3441
FCI.R
0137
FeNT
5275
FO
5527
FDDON 5742
fDDONP 5531
FDIVL. 421&2
"DIV,., 43U
(iDIV1L 4061
FOIVlM 43U
FDVPT 5311
I'D!
5504
FDlP
5"21
FE
4112
fo'ERRLP 4020
FETPAG 4111
FF
0i:ln
I'FAOO 621210
",,lOP 4733
FFATN 42210
"FCOS 4053
fFOIV 5722
FFDIV1 5412
!'FOP
5446
HOVP 4734
HOl
572&
HE ItP 41221
"Ff.IIP!.. Ul5
HGET 6241
FFIN
5200
"FINL. 3125
FFINL.K 3477
HINt 52·32
FFIX
45210
FFLOAT 4533
FFLOG 42ft]
fFI.OGL. 1"2b
FFMPP 4735
HMPY 5&00
FFMT
4U3

P.1.8-V7

10/24172

U3S
FFNEGA 5410
HNEGK 5501
FfNt:GP 5303
FFNEG~ 5713
FFNGP 473t1
FFNOR b215
FFNORR b23&
FFORMT 1302
HOUT 4fi100
HOUTI. 1373
FFPUT b25&
FfPUTP 0135
FFSIN 4000
FFSQ
&347
FFSU8 U17
FFSU81 5400
FGETL. 0134
FGElM 0134
2301
Fl
FlOI.E 0123
FIOVP 3&31
FIG02
5241
FILEFA 1533
FILEt &714
FI!..E2 tlT31
FILE3 bU&
FILE4 &7&3
f"IL.STR 3316
FILSTU 4321
'ISUSL 143&7
HXDNE '1525
40t16
FI XL.
FUL.P 4515
FJOCI 21400
FLO\ll
02157
Q30&
F\-EN
FL.ING 5142
FLINK 4722
3&4]
F\.N
F\.OA8L. 4505
f'LO,lTS 34221
FLO.,.L. 21141
FLOAT", 01Ql
FL.OATS 4144
FLOO1< 4253
FM
1&24
FMPYI. 3572
FMPYL.1< 40b1
FMPVL.L 5310
FMPYLV 3&27
FMPYM 435&
FN
2005
FIliAP
3431
FI'IEGI tUb
FfN~G

•

PAGE llS-]
FNEGI. 0140
FN\.1oJ
&334
FNOM
'i304
flNOR\. 013&
FNORP &17&
FO
1&37
fOTVPE 2357
FOTVPL 33 f.I3
FOUTl 4b25
FOUT2 4b34
Foun 4&74
FOUT4 4b"7
FPPTMI 1175
FPPTM2 1172
FPPTM3 11&7
FPPTM4 11&4
f'PPTM5 11&1
fPUTI. 0135
FPUTL.L 0722
FPUTM ''135
FRACT 4071
FRANOM 2342
FREE7Ql 40&2
FREE72 4013
FROOl 3&4&
FSQRL 40&5
FSQRM 4j&4
FSTOP 37214
FSTOPl 215&3
FSTOPN 21561
FSTOPt 211&1
fSUBI" 4064
fSUSL.K 1371
FSUBLL 3573
rSUBM 4362
FSUBtl. 4r4b3
FSUS1M 4.563
FSWIft 20&21
FTCOM. 2424
FTRPRT 4'5215
FTYL.
3015
HYPE 65&6
FTYPt. 01521
FTYPSE 3531
f'UJUMP 15iB
FUNCI1 tQ73
FUNC2I lQ702
FUNC3I 1542
FUNC41 1466
FUNeSl 1471
GCI1R
5322
';0?5
GO
GETCH 312&
GETCIo4G 35212
GETCHL, 0142

•

JOSJ8 BASIC ~UNT!ME SYSTEM

UTE
GtcNT
GON
GOSUB
GR

5250
S0U
3761
0415
6537

inS

asp

1111116'
GlITOP 0476
GaTCK 1451
liSTcn n4t
'''LG 4101
GTlFLG 4263
HOOKL 401117
21045
HORO
U

1465

U04
IDLE
4421
IF
US
J71T
ILOOP lIiU
1I..00PF lUll
ILOOPI. 01ll
411]2
IN
INPTtL 351110
INPUT 5347
INUY 00U
3413
INat
3400
INT
INTue lUi
INTL
0114
INTPC U02
INTPCIC 1115
INTPCL 0444
INTPLK 6514
INTPOS 3420
INTRB uri!
6674
10
&451
IOLIC
IOTAB an5
IOTPTR iU4
53&0
lOUT
rsUC2 un
lSZFGT un
JEOFI 0445
JFAIL 0413
JFAILL i!053
JFOA
2042
JFDAL 0443
JMPFlL 1450
JMPI
0141
JMPISA 1736
JMPISN uti
JMP Ii! 111746
JMP!! U05
JMP!& lU4
0246
~MU

•

PAL8-V1 . 10/24172 . PAGE 135-4

JMau
JMSn

14i!
1434

K0371
K0416e

"Mi17

1545

K01iHiI

JMSSI 0306
JMaUO 1535
JMSUSR 1557
JNEG
3466
2627
J81.
JuaNEG 3464

K1000
K110
1<1400
K16
K20
K200
K200£1
K212L
K215
K232
1<2416
K2&11l
K217

3752
1151

KC240
KElC
K'OI
KIC Htill
KKMU

3742
5447
3676
5775

1<1<12

5313

1C1C13
4330
KK2000 4161
ICK421
3i!11
KK7
4738
ICIC 7600 U53
KI.7600 3745
KMi
5306
KM10
0250
KMll
5135
KMU
5776
K",144 5134
4731
KMi"
KMi2
3777
KH4
2031
KH40
010t1
KM400 fUel
1<,.,1
413i
I<NOP
4012
KNT
4737
KNTP
5154
I<SFA

11413

KUPARD 3751
KI'Il
4412
KI'IlIDIIl 3533
K01604 2365
1<0001C 3675
KUte 0073
K0"17 1'Il""4
K0037 0742
K0IrJ31C 3&11
"0111371. 1755
K0057 3&73
1<0077 0015
K0110 0076
KIIII17 1176
K0iUl0 0077
K0i! SIll 3205
KUIII0 4066
KU40 0100

0Ut
16102367i!

4327
iU6
U2f1

47ii!l
li72
162177
.643
2]5.
0054
3530

32164
40&5

6453

6673
1C334
6413
K4
.520
K40
0761
K4a07K 4lU
K4ii!10 3360
1<5252 6452
K5700 3674
K&
4740
K&000 3772
KUUK 4364
1C622i 4567
KU23 45&5
K7000 4135
K1200 4142
45&3
K73
1<7400 0103
K1435 1&65
1<7437 3310
1C7477 0105
1<7506 5346
K7554 0431
K7577K 43&S
K761'1l1'll- 8432
K7607K 3703
1<7700 0104
K1137 £1770
I<77U 366&
K7773K 436b
LASTS 3332
LOH
0131
LOMC
2105
LDHCDF un
LDHCOI. 451116
LDHOCK 051]
LOI10' 2647
LOHINI 2676
LOHINI. 0121
Kl£l£l

LDHI,.

i646

LOHPR 45£12
LOHPST 2143
LOHPSW 4!:i03
I.OHR
2105
LOHRST 111157
I.DHSWT 2704
3414
LEN
5477
LEV
I.FI.USH 6402
LINEHI 0065
LINEI 1140
I.INEI.O £1066
\.K7&01 314&
6368
I.M
I.MAKE 411161
I.MAKEL ]741
4470
LN2
LN20V2 4410
LOADOF 3165
42&3
I.OG
LOGCl 4454
I.OGC] 4457
LOGt5 4462
I.OG2E 4405
5052
I.OOP
LOP01 3722
LOP0i 3746
LOPI
6075
LOP2
tl037
0046
LOND
LRESET 0567
LRSCOM 2655
LSU81I 1403
LSUBiI 1413
1400
I.SlI
I.S2!
1410
L.TRPRT 431i
L0037 4137
1.74&& 3&67
L7&0111 0366
I. 1600K 437111
L76051< IU0
1.1U5P 4371
I. 7&01 1527
1.7620 3US
L7&21 3667
L7642 4566
1.7644 3664
1.1&66 J&70
I. 7721 4570
1..7727 4571
L7146 0357
HAKED 4061
MASKL 3427
MBEND l~H

•
,

•

IOS/8 BASIC RUNTIME SVSTEM

MCt
3750
MCDFt 6642
MCOLON 440m

MeR

"'13

1.1530

MCRMA!. 3456
MtSP! 4401
MCTRLC 1032
MCTRLU 61446
MCTR\,.Z 3U13
MDECPT 1375
MONE
3227
MOONE Sft27
MDSET 5450
MOIETK 5774
MOSHP 5445
5307
MOV
5452
MOl
MDlP
5441
MFATAI. 4155
MINUS 5363
MINUSP 34U
MINUS4 0360
43617
MJN4
MK&1
2UT
245&
MLF
MML
4501
MMM4
4415
MMI10 2513
MM2&r1l 37461
MM4
3541
MODES,", 1'/l!II&3
MonEN 613ft'
MPLP
5&53
MPI.Pl 56154
MPLP2 56ftlt
Mp\"U8 3251
MPV
2260
MPYLNK fillet
MP121. 5701
MP12LP 2265
MP24
5&43
MRUBOl 3301
MSPACE 121&
MSTTOP 6541
47i7
I'll
M1R
3410
1'111111
USc
M14
14215
M240
M260
144
M50
MEl

0107
0055
SUI
1374
256&
1033
4413

NAMEG 441&
NAMEGL 4141
NtG
4450
NeGS
44ft4
(1113
NCHK
NCHKL 42.2
NEWCOF &301
NEXRCK 4274
NEICREC 3302
NEXREL 0152
NFLAG 4120
NFLGST 4111
NGT
4257
NHNDI.E 410]
NHNOLL 4261
1II0tC
1044
NOCTC 3725
Noez
3417
NOPI
fIlll
NOP2
U53
NORMI.P t.22S
NOTE
4743
NTTV
3135
NULL-ST 4lf:t5
NUM
4113
NUMCOL UU
NUMCOM 111005
Nt
1.1403
NlA
4542
Ne
1.1404
N3
4405
NlA
4402
N4
4406
N5
4407
Nit
4tH0
NU
4543
Nh66 3&1:$
04UO
&157
OAOOP 5141
OATADI 1526
OCOF
2146
OE
1513
ONE
3474
ONEMAF 4465
ONERET 4473
ONE!
441&
OPENAF 4001
OPEN4V 4000
OPENNF 4004
OPENNV 4003
OPt.NI 1200
OPH
0050
OPL.

0051

OPNEG &l4b
UPNEGP 5502

PALS-V7

10 Ii! 411 2

OPSR
&034
0047
OPIC
DTIUPA (1532
5144
OUT
DUTOG 5150
OUTOGP 4120
OVAOO 1512
OVONE 151&
OVER!..A 3400
0346
OVMI.
OVRI.AV 1530
&354
00
PA
4415
PACKCioI 2735
PACKI. 0145
PATCHF 5364
PATCMP 0155
PlUCK 614&1
PONE
3217
PDP
5001
PINI'O 03U
PIova 4402
PLUS
5362
PNT
1170
POL.VNL 431111.1
POL-YSN 411126
POPG
6533
POS
4400
POSITN I.ISliJ1
POSPU 25&0
POSSET 4424
POSTP 25611
POVUS 03b2
PR
5016
PROCP 477b
PROCPP 5143
PREST 3715
PRINT 0110
PRNTX 51&0
PRNTXP 4723
Pfo(Nf)(l 51b4
PRZRO 5172
PIolZROP (1724
PS
5023
PSFL.AG 0031
P55TRT 011126
pnCIoIf( 347b
PSWAP 1230
PSWAP2 4334
PSWPiP 4544
PSiL
03&3
PS2L
03U
PTRttMP 216ft
PUSHG 232ft
puSl-tGI. 0442

•

PAGE 13'3 .. 5
PUTCH 3253
PUTC"1. 0112
PUTCHR 1010
PIIIFECH 0200
PWHCL 0120
PZR
5015
PlCOF 1240
P1COF1 1245
PlSWAP 0156
P2CoF 1243
P2COFL 4563
P2COF1 1241
P2tOl.l 45&4
P2SWAI. 3144
P21i'l0
5211
QUA02 4017
QUAD] 4022
QUA04 4024
ROLIST 6556
RE
3010
RUOFL. 3000
READFW 3147
READI HillS
RECPii! 1061b
((Et,.COM 3512
((ESOLS 2567
((ESTI 1&50
RESTIL. 2577
RESTOR 2572
HETMOL 3&65
HETMOD 35261
RETPOS 4471
RETRNI '550
RETRNO 3'571
RE TRill 1 3&10
RET0
3565
RIGI'ITL 2&&5
RIGHTS 2&33
RND
4543
~ONLV
H14
RSfEO 234&
RSEEDL 45&2
IHN2
5371
RTZRO 5b20
RII/ONC 3312
SAC
0321
SACCHK 2132
SAtEM 2216
5ACI.
3421
SACPTR 21111
S'C4~C

21lb
111735

SAFINO 1747
SARRAY 0121.1
SASTRT 002(1

•

IOS/8 BASIC RUNTIME SYSTEM
2H2
St
SCALOF 0317
SCALDL 1177
SCASE 'i!U
seDF
1737
seDMP Ubi
SCONTU 4462
SCONt li00
SCSTRT 0121
U7&
SOlS
410&
SE
4266
SEG
SEGeML 43'10
S!GCOM i l i l
IEI'
5157
SEPt
02U
sn, 211154
4107
SEI
20el
8'N
SFNLP 20iJ
SGN
lUi!
SHLFT SUS
SIGNF !U00
4000
SIN
SINAI 43&&
SINU 4J'"

SINAI

4374

SINU 4377
05i5
5t.
SLOAD 3150
SLOOl' 3713
SL.OVEL 1767
SLOVER 2547
SLRtCH i&t4
SMODE 0271
SNEQ
2127
SNEQl 212&
SPFUNC 1600
I:ISU
SPIN
SPINNR 0011
SQRP5 4451
SR
3lJ0
8RtLP 4445
SRUO 2417
SRf5ET 0171
SRFIN i447
SRt.JST i400
SlH.OOp 2411
SSAD
4525
SSLOOP 0514
]160
SSt.P
SlMOOE 2323
SSTEX 05i7
SSTORE 0417

•
$T

2444

STARTS 4305
STARTl 0321
STARU 1152

START4 66021
STS
3642
STCGTJ 3501
STCOM 1700
8TC4111C 2134
1701
STOF
STDFL 1174
STFIt.K 0743
STFIND 166&
STFINK 4504
STf'INL 0305
8TH
0130

STHCOF 121536

STHCDL 2457
STMDF 2603
STHDl<K 0775
&THINI 2&3fI
STHINL 0121:1
2&00
8THL
STHR
iUS
STHRST 01 f:I0
STHSWT 261.14
STOP! 42160
8TR
:uu
IiTRCNT 01/l71
STRUN 02132
STRMAlC 0071Z1
STRNGA 1532
STRPTR 82172
STSLP 3440
STURT 212123
su
0&23
SUttERL 175&
suae &U5
SUIi0P 5411
SUCJML. 2052
SUCJMP 0421
sw
3262
SwCLP 2477
SWITCC 004i
SWITl 02154
SWIT2 0055
SWHIlE 2460
SI
0033
Sl
0034
US
1'757
TADUS 153&
TOF'IXL 4U2
TOONE 312&
TEMPt 0040
TEMP10 0061
TEMPt! 0~62

PALS-V7

10/24172

TEMPl2 2311
TEMP13 22tt0
T£MP14 21003
TEMPtS 0001.1
TEMP1T 3023
TEMP18 301&
TEMP19 3371
TEMP2 21007
TEMPil 26361
T£MP24 0531
TEMP] 0042
TEMP]0 0771
TEMP4 0043
TEMPS 0047
TEMP& 00S0
TEMP7
TEN

0051

TRACE

4000

5317
TM
0043
U5]
TMPY
TMJ
5155
TM1PT 5304
4010
TOH
li71:1
TOUT
TOVPI 41621
TP
5314
TPH
4131:1
TPREL. 3521
TPRINT 3677
TPI
5315
TRHOOK 1144
TRREST 411106
TTEST J143
TTYBUF &&00
TlYORI 6400
TTYENO &&U
&677
TTYF
THIN 1:1410
UNPACK 3047
UNSFIX 1&15
UNSLP 1642
UNSOUT 1&46
USE
0574
USECON 00216
USEI.OG 3&1l
USELOL 35&7
USR
0077
1534
USRA
Ut23e 3056
3462
VAL
VAl.eNT 3422
VALGET 3503
VALLK 0154
VR
3003
wDONE 324&

PAGE 135-&
WE:
3032
WOR00 01tt3
WORD0" 2032
WORD1 01&4
WOR01A 2033
wORDl0 0113 .
WORDll 0174
wORDl21iU7S
wORD13 017&
WORD14 0177
WORD2 0165
WORD3 0166

WORD"

01607

wORDS 0170
WORD& 0171
WORD? 0172
WR8LK 3350
WRBLKK 3532
WRBLKL l&U
WRITEI 3200
WRITF/.. 3023
wR UfI'W 0125
W0PTR 3535
W0PTRA 35}4
XOGET 4507
XDRITE 4523
)(t.,COM 4515
XPRINT 10lA
)(PUT
111122
XPUTCH 1000
)(PUTl 1002
lIR0
0010
XRt
0011
lIR2
!lJ012
XR3
IiUHl
)(R4
0014
XRS
0015
leNT
3173
IEXP
&341
IMINY 4331
ZR
1342
ZRCONT 1352
IROFF 1334
ZRORET 1.1467

•

".
~' •. l <.

,l ....

.....

'l"

"t.'.'.
,.

•