---

PAGE 1
..

ZRIINCH

,..
....

r:

.?,

- -,

----

ALTER
A I TER
AL7ER
A1 T F R
ALTER

o w o n
1,1
328
373
399
425,429

:.

i
2

t'

A
.

20

19

18

17
16
IS
14

13
12
11

'0

I;

~..
....

.
.
.
.
.
.

ALTER
ALTFR
&LTER
A1 T F R
ALTER
W F R
ALTER

.......

......

--

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

--.-.-"

445
488.506
519,528
530.530
5321544

-..-

....

.....-.

,----.

A
_
.
;l

...............................--.......

P A S S 1 ERROR COMMENTS

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

- ............

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

2 .1:
,

-..

...

.......

.......-.

'. .

k:'

..

..

-- -- - ------

-.-

-- -.

?I

_.

------

_
_
_
_
_
_
_
p
p
-

723,728

ALTER
1040~1040
ALTER
1057,1057
ALTER
1063,1063
ALTER
1224,1224
ALTER
131491314
ALTER
1474
ALTER
1483,1486
A L l ER
1487,1488
ALTER
1 4 9 19 1 4 9 1
ALTER
1497
ALTER
1545,1549
ALTER
1606,1606
ALTER
1668,1672
ALTER
1720,1720
ALTER
1745,1746
ALTER
1750,1752
ALTER
1873,187'3
ALTER
1915,1915
~- ~ A L T E K1 9 2 5
ALTER
1964,1964
ALTER
2915,2016
ALTER
2071,2076
ALTEIt
2697,2697
ALTER
270L9 2701
ALTER
2789
ALTEK
2797,2797
ALTER
2813,2813
ALTER
3031,3031
ALTER
3165,3335
nLTER
3463,3465
ALTER
3475,3671
ALTER
3676,3731
ALTER
3733,3827
ALTER
3971,3971
ALTER
3 9 7 3 , 3979

----.----- -- --

----.------

- -- - - -

--

--- --

---

---

-- -

--

--

-.

---

--------,--*

----

--

- ---

"-----

::I

---.--

-0-

--

--

.-

.---

-- .. -.-- ..
----

---

--

--

- --

- --

--

.----.---

--

--- - - --

- --- -.

.
-

--

--

1
-

- - --

- - --

-.

--

- -.

- - --

.. -

-- - -- -- -

-----

- -

"-

..

-- -- --

- ---

"------ ------

.-.--

- - -- - -

.-

.
.

---- -------------

--""

--- - --

-- .-

- -

---

.
.

--

-.
--

-.

- -

--

.-.

.-

__

--

---_

_____I-_
____I
______I_____

PAGE 2

P A S S 1 ERROR C O M M E N r S

-- - -

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

At

. . .

TFR

nL , L I \

--.
...............................

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

,-

4029.4032

.......- .

.-.-.

.......

- " > I

A l TED

---------

4
i

-Z

07

i;i

2
t"

8
E

20
19
18
17
16
IS

14
13
12
11
10

ALTER
ALTER
ALTER
------ALTER
ALTER
ALTER
ALTER
ALTER
ALTER
ALTER

4382,4382
459894640
..-5 0 0 8 , 5 0 0 8
50151 5015
5621 5622
5660,5660
566215662
5664, 5664
5721
57399 5739

ALTER
ALTER
ALTER
ALTER
ALTER
ALTER
ALTEK
ALTER
ALTER

582295822
5905 5305
608396083
6117,6117
6412,6412
7401.7401
740497409
770897708
7782 9 7703

ALTER
ALTER
ALTER
ALTER
ALTER

7802
7807,7808
7809,7810
7820
7'833

ALTER
ALTER
ALTER
ALTER
ALTER
ALTER
ALTER
ALTER
ALTER
ALTER
ALTER
ALTEK
ALTER
ALTER
ALTER
ALTER
ALTEk
ALTER
ALTER
ALTER
ALTER

1861,7861
7363,7863
7865,7865
790697906
791597915
792077920
7924,7924
7928,7928
79339 7 9 3 3
7942,7942
8136
816598165
82259 8 2 3 2
8264,8264
8301 98301
8302,8302
8303
8317
8332,8333
8335,8352
8556

----

-.--

.----

-------- --A

--

o1

- --

.-

--- - -- - --

--

--

- ..-

-- -- --- - -- - - - - - -- - - -

----

--

71 i

5I

- -.
--

------

- -- - - ----- ---- --- - - - - --.

-- ---

01
-I

- --.------------.-

'-1
L

- -L-.-p

.-------------

--.

--

- -

-- -

---

-.- -

--

-- --

----

--

- -

--

em-

- -- .
- -

--- - --

--

- - - - ---

--

--

--

-- .

-- . --

- -

.-

--

--

-- -

- -- - -

- -

--

-. - --

-- -- -- -- -

-- - -

- - -

---- ..

-..---

.......-.

---m--.-.

- - -- --- - - - - -- -

- -

-- -

-. .

-- -- -

- ---- -

--

--

-----.-----

---

--

---

----- --

-"-

--

""

.-

--

--

-PAGE 3

--

- -- - -

--

>

I
2',
2
-mz

i
w

20

19

18
17

ALTER
A l TFR
ALTER
A l TFR
ALTER
ALTFR
ALTER
Al TFR
ALTER
ALTER
ALTER
A I TER
ALTER

8596,8596
A597
8602
8 6 0 4
8608 s 8608
86183 8 6 1 8
8631 7 8631
8648
8662 8662
8685
8686,8686
8690
8700

ALTER
ALTFR
ALTER
ALTFR
ALTER
Al TFK
ALTER
ALTER
ALTER
ALTFR
ALTER

8708
8716.8726
8717
8779,8730
87371 8737
8 7 6 2 8767
0764,8764
8766,8766
8788
8790,8791
8794,8794

A l TFR
ALTER
ALTER
ALTER
ALTER
ALTER
ALTER
ALTEri
ALTER
ALTER
ALTER
ALTER
ALTER
ALTER
ALTER
ALTFR
ALTER
ALTER
A L 7 ER
ALTER

8796 8796
8804
8808~8808
0809
8812,8812
8813,8813
8820
8821
8822,8823
8833
8845,8845
8 8 5 4 , 8855
8858,8860
88649 8 8 6 5
8866,8866
8868,8870
83757 8 8 7 5
8034
8885 8886
8 8 9 9 , 8099

- ALTER

1A

8910
8911
8923, 8924
8933 9 8933

12

ALTER

8970,8970

ALTER

8979

15

- - --

0 4
BORG C O N T E N T S A R E I'd

- -

--

---

--

....

..

SAME A S 8 6 0 8

-------.

-- --

.-

...

---- --- ----

---

.~
.

-, I

'2

p
.
.
.
.
.
.
.
.
.
.

---- .- .......-

---

--

- - --

-.--..- -...-.

--

--

- - .-----

- - -

----

--

--

---

--

-- --

-- -

--

.
- --.-

--

-.-

--

-- ----

-- -- - --

----

--

--

- .- -- -.-

u
p
-

--

---

--

- .

. --

..., .

.~.

--

--

-"

...

.-

A"

-..
.
..- .
..-

---

- -

--...-

-- .

--

.-

- -

- .--

ma

--

..

-- - -

- - .---- - - - -- - -

.
..

- - .- -

---

. --

---- -

---

---.-

--

--

-.
.
.- .

.----

p
-

..

--

--- -- - -

- -

- - . -- - -

------

--

--"---

-.-

--

.--

"

-- -

- - - -

----p------.

-- - -. - -

-- - --

--- . .. ..

-.
- .- .--

--

--

--- --

--- -

- .-- -. ..-

- ---- -.
.

-.

- -- -

..,

C'

iI

j!

I.

-. -

--.-

---

- - - -- -- --- ---

P
7

--

ADDRESS

ALTER
ALTER
ALTER

16

-- -- -

--

--

P A S S 1 ERROR COMMENTS

-.

- ..

- ..

--

--

- - - - -- - - -

PAGE 4

--- ----

- -- --

P A S S 1 ERKOR C O M I ~ E Y T S
ALTER
8980,8981
ALTER
8988
ALTER
8991,8991
ALTER
8994
ALTER
902319023
ALTER
9047,9047
ALTER
9055,9066
ALTER
9070,9070
ALTER
9072
ALTEK
9089,9089
ALTER
9090,9091
ALTER
9093,9093
ALTER
9094,9094
ALTER
9095,9095
ALTER
9098 9099
ALTER
9102,9102
ALTER
9103 9103
A L T E R - 9106,9106
ALTER
9108
ALTER
9111,9111
ALTER
9225,9228
ALTER
9363,9363
ALTER
9369,9369
ALTER
9397
ALTER
9569,9571
ALTER
9647,9649
ALTER
9950,9950
ALTER
9954,9354
ALTER
104401 10440
ALTER
10442,10442
ALTER
10447,10447
ALTEK
10450,10450
ALTER
10456,10456
ALTER
10460~
lU460
ALTER
10464,10464
ALTER
10499,10499
ALTER
10656 10660
ALTER
10661,10662
ALTER
10664,10665
ALTER
10667,10668
ALTER
10670,10671
AL rER
10673 r 10674
ALTER
10676110677
ALTER
10679r10680
ALTER
10682,10683
ALTER
10685,10686
ALTER
10688,10689
ALTER
11033,11042
ALTER
11179
ALTER
11233,11233
ALTER
11270,11270
ALTER
11315

- -- --- - --

-- ---- --

--

- -- ..

- ----

-- -

- - - -- - -- -

----

--

- ---- ----

"-

--

.
CHANGE PiOVE

--------_----

-.

FOR 2 LJDRD C A L L
-- --- -------

--- - - --

!a?

-*
0

..
E

".

J.

-rn

0,
"
z

7.c

2
"J

8
20
19
18

IT
16

15
14
13

12
11

------

---- "--

>

- - - - -

--

-. --

--

A -

CI

--- - --

- --- - - -- - --- - ----

--

--

- - - -- - -

--

5.1

:'L
..

...

-- -.

---.-*-*-

91

51

01

- --

.-

--.-

----

--

-- -

-----

-- -.----"-

.---

- --- -

---- - -- - - - --

--

-----.-

*-

----

-"----

-- --

--

---

- ---"-"
-

--

--

---"--

T A G S I N NEW D I G I T S

- -- ---

--

--

--

--

--

-- -

- -

- ----

-.

-.

- - -- . .-

--

-- - -- --

------

--

- --

- -- - -

.
a

- ----

-.-

- ---

--

"".--"-

-- - - --

- -.

-- -.

--

--

- ~ "

-+--

-- -- - -----

.
.- -

--

---

---

--.-----.

--

- - ---

----.----*----

--

.-

-----,---.

-.

--

----

--

-.---------- -----

-- .--

------- ---------

----

--.-

.*

--

- --

.-.---

- --

---

.-

--

- --

my--"--

-- --- -

- -- -

--

10

--

- -

--

--

.---------.-

- ..

...

...

...-..

. . . -- .

...

.......

...-..--...............

..--...-.

PAGE 5
pp--p-----.--.

ROW
. .

OPSYN

NULL

.
.

-.

..............-.
)

-----"

nFCK

........ -

....

.-

......-..-

-.

.
.
.

--

..

....................................
D

.....

-- . .- .........

-- .- -

-...

--

.
-

PAGE 6

HONNIE-S

---

- ----

3IRTHDAY ASSEMBLY

.
..

-. - .
-- -. .- .. .
- .- - .
2
PCC
3
z ST
"-.
----.-...---4 * M948-5O~~FMS~DEBUGt20,40~200OGt700
ASSEMBLE L I S P 1.5
L ISPHERE
.'
5-*
F
L
. . --t,cQoozo!J
.6
COUNT
13000
LC000300
7
Ass
LtO00400-_ . . ..
- -.C L
.,.
8 * F I E L D rEST ASSEMBLY O F L I S P 1.5
SEPTEMBER 1 9 6 1
9~
t ~ + t ~ * ~ * ~ * -*-.--*--.-~
(
t
+
~
*
+
~
*
+
i
*
~
e
+
+
.
~
*
+
i
r
+
+
-----__-+
+
~
L
C
0
0
3
5
0 0
-1
LC003600
-.
- -0 it
F'
11 *
.
-- - L.
C-0 0--3 7 0 0 - - -.
_
12
~
~
1 SECTIOV
~ OF THE
~ UPPER~ VERSION
0 OF RWTML
9
LC003800
c!
sf+LiRE DlST'
Yo*
709 AND %
7
-I
LC 0 0 3 9 0 0
13 *
14 *
I T LOADS BI,\ARY 7G4 STYLE CARDS AND OCTAL CORRECTION CARDS
LC004000
.I
15 *
3N L I N E
LC004100
:!
16 a
LC 0 0 4 2 0 0
61
17 L
HE0
c
Lr 0 0 4 4 0 0
0;
18
Oi7G
-47
T O POSITION LOAD AT -42
LC004600
7 0 9 CINARY-OCTAL BOOTSTRAP LOADER
LC004500
19 *
20
IOCG
LOAOtOtZl
COMMAND TO LOAD REMAINDER OF LOADER
LC004700
21
TCOA
1
DELAY T I L L LOADER I Y
LC004800
22
TRA
LOAD
LC004900
23
LOAD RCDA
I N I T I A T E NEXT CAR!!
LC005000
24
RCHA
LOAD5
LC 005 1 0 0
25
TCDA
*
DELAY T I L L CARD I S I N
LC005200
-26
TEFA
CONTIN
27
C AL
9L
-----..----------.-L C 0 0 5 3 0 0
2e
TZE
LOAD8
ZERO I M P L I E S OCTAL CARD
LC005400
LC005500
29
PDX
9 6
SET WORD COUNT
30
STP
LOAD4
SET TO CHECK OR IGXORE SUM
LC005600
31
S TA
L OA D2
SET CARD ORIGIN
L~o05700
32
LOAD2 TXL
****1410
OUT IF TRANSFER cATD--LC005800
33
AXT
0.4
SET I 4 TO ZERO
------LC005900
3 4 LOAD3 LDQ
9R+114
PICK UP WORD
LC006000
LC006100
35
STB*
LOAD2
SIORE WORD
LC006200
36
ACL*
LOAD2
ADD TO CHECK SUM
37
TXI
*+1,4,-1
ADVANCE FOR NEXT-_W3RD_--Lt0 0 6 3 0 0
38
TIX
LOAD31211
COUNT WORDS TO BE STORED
LC 0 0 6 4 0 0
39
ERA
9R
COMPARE CHECK SUMS
LC 0 0 6 5 0 0
LC006600
40
T ZE
LOAD AGREE-LOAD NEXT CARD
LC006700
4 1 LOAD4 HTK
LOAD
ERROR-START TO READ NEXT CARD
42 LOAD51OCD
9L90924
COMMAND TO BRING I N BINARY IMAGE
LC006800
LC006900
43
LOADR AXT
149 5
1 4 TO I R 1 AND I R 4
44 *
LC009900
_,,.
45
ABS
RESIJME STANDARD PUYCHING
LC007200
L. A
LC010200
2.2
SET TO COUNT F I E L D PAIRS
LC007300
47
LOAD9 AXT
48
CAL
9L+18,4
ROW
LC007400
OR S
9L+14~
1
ROW UNION
LC007500
49
9L+14,1
LC007600
50
L D6)
51
TX I
LOD11~2r22
SET TO PEEL OFF S I X B I T S
LC007700
, .
LC007800
52
LOO10 TXH
*+294,2
SKIP STORE T I L L AFTER ONE-ROW
53
SLI<
.*+a*
STORE OCTAL CORRECTION
--LC00790o
-_ -____
LC 0 0 8 0 0 0
54
TI X
*-3,2,1
ADVANCE TO NEXT PAIR, THIS HALF
55
T IX
LOAD91 4 1 2
ADVAYCE TO NEXT ROW
Ll; 0 0 8 1 0 0
*

L L

77721
.
!

9
g
T

L.

,J

3w

."z
2

",

77721
77722
77723
77724
77725
77726
77727
77730
77731
77732
77733
77734
77735
77736
77737
77740
77741
77742
77743
77744
77745
77746
77747
77750

0 00025
0060 0 0
OOZd 0 0
0762 0 0
0540 00
0060 0 0
0033 00
-0500 0 0
01bO 0 0
- 0 7 1 4 00
0633 00
0621 00
-3 00000
0774 00
0563 00
-0600 60
0361 60
1 77777
2 00001
0322 00
0100 0 0
0 00000
0 00030
0774 00

0
0
0
0
0
0

0
0
0

6
U

0
4
4
4
0
0
4

Z
C

0
0
0

77724
00001
77724
01321
77741
77726
00174
77662
77750
00000
77746
77735
00000
00000
77664
77735
77735
77743
77737
77663
77724
77724
77662
00016

20
19

---

--

16

77751 0774 0 0
77752 -0500 00
77753 -0602 0 0
77754 0560 00
1 00026
77755
77756
3 00002
77757 0602 00
77760
2 COUOl
7 7 7 6 1 2 00002

2 00002
4 77704
1 77700
1 77700
2 77765
4 77760
0 00000
2 77755
4 77751

BONN IE-S

PAGE 7

77762
77763
77764
6
5
77766
77767
77770
77771
77772
77773
77774
77775
77776
77777

-2 00015
0767 0 0
1 00014
6
0 00
0767 00
-0763 00
2 00004
3 00014
0361 00
0602 00
-2 0 0 0 0 2
0621 00
1 00054

5 77725
0 01371
5 77751
0 QOOOO
0 00002
llOOOOl
2 77766
4 77773
2 77712
7 77712
2 77756
0 77757
2 77765

0 0 0 1 3 3 0 77777
77662

77662
77662

4
3

77663
77706
77724

E
L?

?i
n
$

.4

- - - - --

77640
77641
77642
77643
77644

77640
0 0 0 1 3 7 0 07335
O 0 0 0 0 0 0 00136
- 0 0 0 0 0 0 0 00135
-053143777777
0 0 0 0 0 0 0 00370

77645
0-00132 0 10742
7 7 6 4 6 -0 0 0 1 3 0 0 0 0 1 3 1
7 7 6 4 7 0 COO00 0 0 0 0 0 1
7 7 6 5 0 0 0 0 1 2 7 0 07335
7 7 6 5 1 0 0 0 0 0 0 0 00126
77652 - 0 0 0 0 0 0 0 00125
77653
54035 1642 554

19

IS

00144

17
16

15
14

13
12
11

10
9

00144
00145
00146
00147
00150

0 00364
0060 0 0
0020 00
0774 00
0500 00

0
0
0
4
/I

00147
00001
00147
00003
00003

- -

- -

--

- -

-- -

20

- ---

-- .- - -- - - - --- -- - - - - - - - - -- -56
TNX
LOAU+l, 5 9 13
OUT AFTER RIGHT HALF
LC008200
57
R C nA
-_GARB
.....
---- ..
.
.
u a o8 3a
-- .
58
TX I
LOAD99 5.12
ADVANCE TO RIGHT HALF CARD
LC008400
5 9 l OD11 G L I Y _ _ _ _ _ _ _ _ C L E C
-_
- -- - - -LWU18IM.
-60
ALS
2
LC008600
61
LGL
1
XU4.EE-RLI S
. _ -_ - - _
- --..
_ . _--~ c o n a m e_ - _ _
62
TIX
LOD11+1,2,4
COUNT COLUMNS PER F I E L D
LC008800
63
TXtl
++7.4.j?
L L S L ~ I W A ~ - F _ L R S - T . _SUM .
- LCD08900
64
ACL
llL+4,2
ADD PREVIOUS SUM
LC009000
65
SI W
llL+4r2
NFW PARLLAL_S_UM
W 1 0 D - --- - - 66
T NX
LOD10129 2
OUT I F SECOND F I E L D OF PAIR
LC009200
ZTA
I OD10+1
STORE A R R E S - Q L L Q R W t l N
W 3 D O
___67
68
TXI
LOD11,2,44
RETURN TO PEEL OFF 1 2 B I T S
LC009400
69 +
---*70
-199-STS
LEAD WORD FOR ATOM VERITAS-NUMQUAM-PERIT
71 *
-- ---- - - - - -- - -- --72
ORG
LOAD-34
COMMON STORAGE
0
L C Qu6O0 -7 3 COMMON BSS
7 4 9L
BS S
24
INPUT BUFFER
LC009600
9R
SYN
9L+ 1
75
CARD CHECK SUN.--. - _ _ - - . - ~ . - - - - _ LCOQ911L
SYN
9L+20
76
TEMPORARY FOR OCTAL
LC009800
7 7 LOADER SYN
LOAD
.-- O-QDO_QO0778 *
79
PROPERTY L I S T S FOR THE SPECIAL ATOMS N I L AND VERITAS-NUNQUAM-PERIT
THE
8 0 * ZERO AND THE BINARY TRUTH ATOMS RESPECTIVELY
81 +
---.- ------82
ORG
COMMON- 1 8
8 3 NILSXX
$PNAME?, -*- 1
-- -- -.-- .
- - - -+-I
84
85
MZE
-+-1
.
-.
.
.
.
.
.
.
.
.
.
86
OCT
45'3i43777777
NIL
.
8 7 NILLOC
$2 ERO
----.- "*-.-------------------- ...
88 *
89
STS
$APVAJ,, - 3 - 1
------- -.-- -- 90
PZ E
-+lt
r-+-2
91
1
1 s A CONSTA~T-LFJ_FOR_APP-L~
__.
.
.
.
.
.
.
.
.
92
ZPNAMEv ,-*-I
93
-9- 1
- - - --" -94
MZ E
-el
95
RCI
-1, +TRUE+--- --- ..-- -.-.- --- - - - - - - 96 *
97
+ + + + + t ~ + + + * + * + + + + * + ~ t * t u * ~ t + ~ + +* + ~ + -+ +++
-~
--* + +--+ + + +-* * + ~LCO10300-_ _
- .---98
BOOTSTRAP RECORD FOR 7 0 9 L I SP
LC0 1 0 4 0 0
99
. - _ ~ ~ ~ o _ ? p s _ O.-...
o--~
...........
- "
LOO
ORG
100
E E G I N LISP
- - - --- _ _ 115M-4770
101
HEAD
B
-102 +
1.5L0020
1 0 3 * BOTTOM
THE BOOTSTRAP RECORD FOR L I S P ON SYSTEM AND TEMDRARY TAP1.5L0030- - - _
-- 104 *
1.5L0040
1 0 5 BOTTOM IOCD
BOTTOM+3r,BSRECL-2
1-0 COMMAND TO REA__q_ZN &OGTS.TRA-fl_-RE_C2L,5-L-O05O_
---. .?
-- -1 06
TCOA
1
WAIT UNTIL RECORD I S READ I N
1.5L0060
107
T RA
BOTTO_M+3
START OF LISP
1 ._5L00_70
-108
AXT
374
NUMBER OF WORDS IN LOWER MEMORY
1.5L0080
1C9
CL 4
3,4
-- MOVE THE_
!
TO_QR_I_G_E
NAL P O S I I I O_N .
1.5L@90.
__ _-

-"- -

E
2

-BIRTHDAY ASSENHLY

'

'

'

PAGE 8

BONN IE-S

00151 0601 00 4 00147

00152
2 00001 4 00150
GO153 0774 00 4 00366
00154 -0754 00 0 OGOOO
00155
0361 0 0 4 0 0 5 3 2
00156 2 0 0 0 0 1 4 00155
00157 0322 00 0 00532
00160 0100 00 u 00162
00161 0420 00 0 00001
00162 0500 0 0 0 0 0 2 0 1
00163
0601 0 0 0 00002
0 0 1 6 4 0500 0 0 0 00200
00165 0601 00 0 00010
00166 0500 00 0 00367
00167 0074 00 4 00276
00170
0074 0 0 4 00202
00171 0 77241 0 00537
00172
0522 00 0 00352
00173
0020 00 0 717724
CO174
00175
00176

0500 00 0 00177
0601 0 0 0 00000
0020 00 0 18230

00177
00200
00201

0 00140 0 77777

r!
9,

0 0 2 1 00 0 01707
0021 00 0 4.7061
00200
00201
00177

_r
B
8

."

3
w

H
20
19

Ia
17
16
15
14
13

12
11
10
9

C0.202
00203
OC204
00205
00206
00207
C0210
00211
00212
00213
00214
00215
00216
00217
C0220
00221
C0222
00223

0500 00 4 00001
0634 00 4 00533
-0634 00 2 00533
0734 00 2 00000
0622 00 0 00207
1 00000 2 00210
0634 00 2 00534
-0734 00 2 00000
0500 00 0 00205
0625 0 0 0 0 0 5 3 4
-0634 00 0 00534
0500 00 0 00362
06Cl 00 0 00535
0500 00 0 00346
0 6 0 1 00 0 00536
-0625 00 0 00357
0522 00 0 00357
0760 00 0 00005

BIRTHnAY

-- -- - - - - --...-- - - - -

ASSEMBLY

----

--

--

---

--

-- ----_
_
_
_1.5L0100
110
ST0
00TTOM+314
111
TI X
*-214~1
1.5L0110
-_----112
AXT
BSRECL 4
LENGTH flF BOOTSTRAP RECORD
1.5L0120
113
P XD
01 0
CLEAR
THE AC--"
-- --- - -- - --1,5LOl30_-.
114
ACL
CHKSUM, 4
COMPUTE THE CHECK SUM FOR R E C O R D
1-5LO140
115
TIX
*-1,4,1
------ -- 1.5&0150
116
ERA
CHKSUM
COMPARE WITH THE CHECKSUM ON TAPE
1.5L0160
117
T ZE
-+2
SKIP
I F THEY P_REEQPUUAL
1.5LO170
-----. "-"-118
HPR
1
THEY DO NOT, STOP
1.5L0180
119
CL A
STR A
STR TRAP
_
. _-----------------120
ST0
2
SET STR CELL
121
CLA
FLTRA
FLOATING POINT TRAP
ST0
8
122
SET TRAP CELL
SYSTAP
123
CL A
TAPE SPECIFICATION FOR SYSTEM T A P E ~ 5 ~ ~ O O - - - _ l l c . . - - - . 124
TSX
$(IOS),4
SET UP 1-0 COMMANDS
1.5L0200
125
TSX
LRTAPE14
READ REST OF SYSTEM TAPE1.5L02l.O
126
LOWREG* ?-LOWREG
REST OF CORE
127
X EC
SREW
REWIND SYSTAP
1.5L0230
128
T RA
$LOAD
GO TO READ ANY CORRECTION CARDS
1.5L0240
129 *
1 5L0250
130 CONTIN CLA
LERC
LOADER RETURNS HERE? GO TO OVERLORD
131
ST0
0
SET ZERO CELL
_
- ------------132
T RA
OVRLRD
GO- TO OVERLORD
133 +
1 3 4 * NORMAL CONTENTS FOR CELLS 01 21 1 0 (OCTAL) RESPECTIVELY
135 *
136 LEKC
-11 r-NILSXX
BEGlNNING OF ATOM N I L
1 3 7 FLTRA TTR
FLAPTR
-138 STRA
TTR
C$L INK
1 3 9 FLAPCX S Y N
FLTRA
-1 4 0 FLAPCY SYN
STRA
ZERC
1 4 1 FLAPCZ S Y Y
142
1.5L0270
143 *
1.5L0280
L I S P 4EAD TAPE PROGRAM FOR BINARY TAPES1.5L0290
1 4 4 * LRTAPE
145 *
-- --1---ZL-O
------- --- 146 LRTAPE CLd
114
PARAMETER WORD
1-5LO310
147
SXA
RTRX, 4
SAVE INGEX REGISTERS
1.5L0320
c
148
S XD
RTRX I 2
1.5L0330
1 4 9 RTTWO PAX
Ot2
START ADDRESS
- .--1-5LO340 - - -- -- - -150
STC
++1
COUNT
1.5L.0350
151
TX I
*+l92,**
END + 1 ADDRESS
--- -------._ __- 1.5L0360
152
S XA
RTACR, 2
I N I T I A L I Z E ADDRESS
1.5L0370
153
PDX
012
COUNT I N I R 2
.------- L " 5 L 0 4
--- - -.--154
CLA
RTT WO
TAG OF 2
1.5L0380
155
S TT
ETADR
SET TAG
1.5L0390
156
SXD
RTACRIO
ZERO DECREMENT
157
CL A
$LCH
PICK UP CURRENT LOAD CHANNEL INS.
1.5L0420
158
ST0
RTLCH
MAKE IMMUNE FROM OVER WRITING
1.5L0430
159
CLA
SL IOU)
GET CURRENT 1-0 UNIT
-.-- 1.510440
---.------ --160
S TO
RTIOU
1.5L0450
PREVENT UVERWRIT ING
161
STL
BTCU
W A I T FOR C H A N N E L L - . .- .-_
- - 1,5L04
60
162
X EC
aTCO
TO GO OUT OF OPERATION
1.5L0470
163
131
1-5L0480-TURN OFF 1-0 CHECK .-- ---

.
'

'

"

--

---

------

----

_
_
.
_
I
-

zoo

----

---

- - A

--

PAGE 9

BONNIE-S

---

$
3

i
-rn
v

2
g
w

H
2

,,I
0

20
19

00224
00775
00226
00777
00230
C0731
C0232
0n713
C0234
C0735
C0236
00237
00240
00741
00242
00243
00244
00245
C0246
00747
00250
00751
00252
00753
00254
00255
00256
00257
C0260
00261
C0262

0761 00
0774 o n
0522 00
0577 QO
0522 0 0
0754 00
-0774 00
0577 na
0522 00
0540 00
-0600 60
0361 60
2 00001
0774 00
0522 0 0
0372 00
0602 00
6500 00
0074 00
0675 0 0
0522 0 0
0760 00
0020 00
0570 00
0020 00
-0774 0 0
0522 00
0572 0 0
0534 00
-0534 00
GO20 O C

0 00000
4 no775
0 00360
(1 003154
0 00350
0 00MO
4 00274
fi r , ?f,l
~
0 00532
0 00537
0 00534
0 00534
2 00234
4 00775
0 00535
0 00532
0 00532
0 00536
4 00276
0 003 57
0 00357
0 00005
0 00263
0 00532
C 00263
4 00763
0 00360
0 00356
4 00533
7 00533
4 00002

00263
00264
C0265
00266
00267
GO270
00271
00272
00273

-0534 0 0
-3 0 0 0 0 0
0420 00
-0634 0 0
0572 00
0534 00
0500 00
-0734 0 0
0020 00

2
2
0
4
0
4
4
2
0

C0276
00277
00300
00301
C0302
00303

208
209
210
211
212
213
214
215
216
217

00534
00266
00002
00534
00355
00533
00001
00000
00230

16

15

12
11
10
9

0340
0070
0020
0634
0634
0601

00
00
00
00
00
00

0 00346
0 00301
4 00001
4 00375
2 00324
G 00346

.-.

NOP
A X T.
XEC
X

FC

RTRD

XEC

RTLC

AXC
x F f.
XEC

171

C0274 - 1 OOCOl C 0 0 5 3 2
00275
0 00000 0 00000

17

13

164
165
166
167
168
169
170
172
173
174
175
176
177
178
179
180
181
182
283
184
1 85
186
187
188
189
190
191
192
193
194
195
196
137
198
139
200
201
202
203
204
205
206
207

I8

14

---

--

--

- -- --

--

--A

-- - --

--

-- - --

--

- - - -- -

----

---

BIRTHDAY ASSEMBLY

PXn

STQ*

m+
TIX
AX C
X EC
FRA
SLW
CLA
TSX
ST1
XEC
I OT
T RA
7 FT
T RA
AXC
XEC
XEC
LXA
LX D
T RA

*
kCK

LXG
TXL
HPR
SXD
XEC
LXA
CL A
POX
T RA

RTIOC IOCT
RTIOD IOCD

IOS

( 1 0 s ) CAS
T RA
TRA
5XA
SXA
ST O

- - --

- --

- -

us

CHKSUM,
0,,0

INPUT

IOU
++2
194
IOSX94
IOSY,L
ICJU

BRING I N 1 WORD
D ISCONNECT CHANNEL

OUTPUT SUPERVISOR

I-. 5-LP_%o_O.- _

--

--

C. 4
--- -1,510A90
-- -- -. - _ .-BTRC
TURN OFF INDICATOR
1.5L0500
%TFF
T U R h L - E E - . L W l U T Q R -- -.
-- - 1.510510. . - - $RDS
SELECT TAPE
1 510520
0.0
t L E & R _ Q C --- _
.- - L,5LOUQ--. .
RTIOCv4
POINTER TO 1-0 COMMAND
1.5L0540
&R(lh
PLZLLAlUC1AQ-W N N E L
1.5L0550
RTLCH
LOAD CHANNEL
1.5L0560
C W M
P LfX-QRLL-REAU
- 1,51Q5_70--- ..- r -_
RT A DR
PUT I T AWAY
1.5L0580
RTACR
ADD TO CHU1L(--S.ljM_
RTLCq2,l
DO ANOTHER LOAD CHANNEL
1.5L0600
RT IOD. 4
P0 I N TF R Tn D I SLQ&MU3.L A
XS I K U I ; L % _ I b c I m - ._.
RTL CH
XEC LCH INS.
1 5L0630
CHKSUM
SUBTRACT C H ~ S U k - S
1&t-Q4UL ---- CHKSUM
STORE DIFFERENCE
1 5L0650
RTIOU
1.5LQ660
_
P ICK U I I R R . m Q U
SET UP 1-0 COMMANDS
1.510670
61IOS)14
STCO
w A I T FOR CHabLW_L&-CreQU-QFQFBeEBbU01~51;Q68.Q(1(1(1 ._ -.- ..- -- - --_.
BTCO
1-5LO690
TEST I N D I C 4 1 0 L _
_- L.5LHOO --.- _RCK
TRY AGAIN
1 5 L 0 7 LO
CHKSUM
SKIP I F ChFCK S! . b E A G E E - - _ .
.
JLiLIL7_20--.
- - - - -.
RCK
TRY AGAIN
1.5L0730
RCK.4
---.--_I.---w-l_III1-%5LQ-I3L
BTRC
TEST FOR REDUNDANCY
BTEF
AND EOF
---- - -- -- --.-_ -- RTRX,4
RESTORE INDEX REGISTERS
1.5~0770
RTRX ,2
--_ _ - _
- _ - -_ . 1a 5 6 0 7 8 0
214
EXIT
1.5L0790
-------- .-.- -1.~5-U33-0 0. .
" --.-"
RTADR* 2
D I D NOT WORK, SEE I F FIRST OR SECOND
1.5L0810
* + 2 ~-21-c
---- - - - -..- _
2
SECOND TRY F A I L E D * STOP
1.5~0830
RTADR 4
MAKE N O N - z E R ( L
- - 1--%L1)840--_- _
.- - BBSR
BACK SPACE AND TRY AGAIN
1 5L0850
RTRX 4
G E T CA L L W C ) E ! L . . ---- -- - _
-- Lo. ~~~~8.6-9 -" - --_ - .
114
CALL PARAMETER
1.5L0870
0.2
COUNT TO I R -2
--.
.
. _-_lC5L0880
RTRD
1.5L0890

*
*

- - --- -

A LA

------

BELLLABS BESYS3--- .- -- -

-.

1.5L0910

L*_l..LQ?~2.0.0 .
-

--

_-

-.

1.5L0970
1 5M4_16_0-_ _ -

1.5M4170
_--_ - 3 -3-M-4 l80
CHECK TO SEE I F SAME UNIT AS LAST TIME1.5M4190
N0
- 1.5 M4200---YES E X I T
1-5M4210
1.5M4220- _
NO, SAVE L I N K I R
-...SAVE INDEX 2
u p ! 2 x - ~ ~ _ - - - . --1.5M4230 -

--

----

--"-,
-m

- ..

'
'

--

PAGE 1 0

BONN1 E-S

00304 0621 00 0 00350

00305
0621 0 0 0 0 0 3 5 1
C0306 0 6 2 1 0 0 0 0 0 3 5 2
0 0 3 0 7 0 6 2 1 00 0 0 0 3 5 5
00310 0 6 2 1 00 O 00353
C0311 0 1 2 0 0 0 0 0 0 3 1 3
00312 0322 00 0 00347
C0313
0621 00 0 00354
00314 0522 00 0 00354
00315
0774 0 0 2 00005
00316 -0734 00 4 00000
00317
1 00014 4 00320
00320 -0500 0 0 4 00346
00321 0602 00 2 00363
00322 -2 00003 4 00324
00323 2 00001 2 00320
00324 0774 00 2 00000
00325
0774 00 4 00000
00326 0020 00 4 00001

C0327
00330
00331
00332
C0333
00334
00335
00336
C0337
0034C
00341
C0342
C0343
00344

"
I
E
L

2
m

1
.24

0031
-0030
0030
0062
0061
0060
0024
-0022
0022
0541
-0540
0540
0545
-0544

00
00
00
00
00
00
00
00
00
00
00
00
00
00

4
4
4
0
0
0
4
4
4
4
4
4
4
4

218
219
220
221
222
223
224
225
'226
227
228
229
230
IOSA
231
232
233
234
IOSY
235
IOSX
236
237 +
2 3 %.-'*

21

239
O Q O W
00000
00000 1 2 4 2
00000
243
00000
244
00000
245
00000
246
00000
247
00000
248
00000
245
00000
250
00000
,251
00000
252
00000
253

00345
00346
00347

",
8

0544 0 0 4 00000
0 00000 0 00000
0 00000 0 00020

20
I9

00350
00351
00352
C0353
00354
00355
C0356
720357
00360
00361
C0362

18
17

16
15

14
13

12
11

10
9

0762
0766
0772
0770
0761
0764
0030
0060
0022
0540
0544

00
00
00
00
00
00
00
00
00
00
00

0 01220
O 01220
O 01200
0 01200
0 00000
0 01200
4 00000
0 00000
4 00000
4 00000
4 00000

B I RTHDCY ASSEMBLY

254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271

STA
ST A
ST A
STA
ST A
r PL
FKA
ST C
XEC
AXT
POX
TX I
CAL
SL W
TNX
TIX
AXT
AXT
TRA

$RDS
BWRS
$REW
$BS R
BWEF
*+2
IOSBB
$ 3 ON
$SON
512
Of4
*+114, 1 2
IOU * 4
COMANO12
IOSY,4,3
10SA12, 1
**I 2
**, 4
114

---

--

--

- --

--

--

-- --

U P D A T E ADORE SSE s OF TAPE

--

- - -- -

COMMANDS
--- -

TAPE I N NORMAL DENSITH t B I N = H I ,

CHANGE DENSITY B I T

- -_

-_- --

NUMBER OF-- COMMANDS

-- --TO BE SET
CHANNEL NUMBER T O I R
T 0 T AL NU M B E R O ~ - ~ o ~ A N & :
3
PICK UP PROPER COMMAND
PUT I N PROPER PLACE
DECREMENT BY NUMBER OF CHANNELS
LOOP 5 TIMES
RESTORE INDEX 2
RESTORE L I N K I R

---- -

- ---

--

-- -

---

--

--

-.

1.5M4330

--

-- .

--

_-___

-- -

--

-- -- _

-------

-O

--

----

77z!i

<
A
--

-________

*A

---

- - - - - --

--

1.5~42401.5M4250
-- -1 e5M4260
.1 5M_42_7_0-.--.. 1.5M4280
BCD=LOl.5M4290 ___1.5M4300
1.5M4310
1.5M4320

1 5M43&0
1.5M4390
1 5 ~44-QG
ggg..--'.-_____
TAPE COMMANDS FOLLOW
1-5M4410
*
J
5
4 - - -0T4
1.5 M4430
1.5M4440
094
-TEFA
0.4
1.5M4450
1 COC
++
1 5 M4460
-- -.--TCflB
+I
1.5M4470
TCOA
*+
1.5M4480
TRCC
094
1.5 M4490
TRC8
014
.__.
_ ._.. _
51
n:45%!
TRCA
014
1.5M4510
RCHC
014
- -- 1 5M4520
RCHB
014
1.5M4530
RCHA
0.4
-- -_ -- - - - .
1*5t'524!? _ - _
LCHC
0.4
1.5M4550
LCHB
014
-. - --1.5M4560
- - - -- -- .- -LCHA
094
1-5M4570
IOU
PZ E
1 5M4580
LAST UNI T - U S L
--- -.--IGSBB PZE
16
BINARY B I T
1.5M4590
HEAC
0
- -- . -- -- - OO~O_oo_Ol_..
_ - .
*
1.5M4600
*
ACTUAL TAPE COMMAYDS USED BY PRGGRAMS _IHOULD BE UNHEADED)
______
1.5M46 1 0
+
1.5M4620
90.5
RTBA
+it
1.5M4630
-""."" . WRS
WTRA
++
1.5M4640
REN
REWA
t
-1,Z_MM46Z__
____WEF
WEFA
++
1.5M4660
SON
NOP
__ MAKE A SDN INSTRUCTION FOR 7 0 9 0
BSR
DSRA
2 (1
1.5M4680
TEF
TEFA
014
1.5M4690
--*.
--- - TCO
TCOA
t*
1.5M4700
TRC
TRCA
0 ~ 4
-- - -- -- . .145M4720
RCH
RCMA
0.4
1 5M4730
LCH
LCHA
014
.
--- -- 1 5M2740--

._

--

---

-- -.

- -

......

PAGE 11

BGNNIE-S

-00363
nn3fr3

00364
n03h5
C0366
00167
00370

n n nnonn

0 00001 0 01203
o onaon o n o 0 0 0
0 00000 0 00000
0 00000 O 00000

00376
77724
00346

272
771
274
775
276
777
278
379
280

.-

BIRTHDAY ASSEMBLY

COMAND BSS
~ Y ~ P PP T
7F
SYSPOT
SY.$PTT
SYSTMP
SYSTAP
TAPASG O S S
(105) y y ~
LOAD SYN
281
( I O U ) SYN

---

-- --

--

- .-

---

.-

-----

B r : n R U h l E L ..-...
1
I N T I A L ASSIGNMENT OF A3

1*512+2*64+3,,

.-.--.....
---

0
Bfr( IC.5)
LOADER

---.---__-___---

BbIOU

--

-..- .
- .-

_ __-

.
.

1.5#4750
..... -1--5M3890-1.5M3900

- -

....-...

~,5~39~)
-_
.
.
.
.- 1.5M3920
_-1.5M3920
1.5M3940
ooaoo0oL
00000008
DQMOO119_---

....

'

- _ _
I

- .--

-- -

"

PAGE 12

.!
L

E
5

$
S

e",
"2

8
20
19
18

17
16
15

14
13
12
11

10
9

BONNIE-S

.-- -.
..
-.
-

BIRTHDAY ASSEMBLY

- -. --

--

- -- -

- -

--

28 2
283
284
00370 0 00000 O 00000
285
C0371 +00000000O001
286
00372 +000000000002
287
00373 +000000000003
288
C0374 +OCGOOOOOOCO4
209
00375 +000000000005
290
00376 +000000000006
291
00377 +000000000007
292
00400 +000000000010
293
00401 +000000000011
294
00402 +000000000012
295
00403 +000000000014
296
00404 0 00000 0 00015
297
00405
0 COO00 0 00016
298
00406 +000000000021
299
00407 +000000000024
300
0041 0 + 0 0 0 0 0 0 0 0 0 0 2 ~ ~
00411 0 00000 0 00026
302
00412 +000C00000044
303
00413 +000000000077
304
00414 +000000000100
305
GO415 +000000000200
306
307
00416 +000000000014
00417 +000000000017
308
C0420 +000000000020
309
00421 +000000000022
310
311
00410
00422 +000C00000033
312
00423 +000000000040
313
C0424 +00000000CU41
314
00425 +000000000043
315
00426 +000000000050
316
C0427 + 000000000060
317
C0430 +C00000000061
318
00413
319
00415
320
00431 +000000003300
321
00432 +001000000000
322
00433 +233000000000
323
00434 -377000000000
324
00435 +200000000000
325
00436
0 00000 1 00000
326
00437 0 00000 2 00000
327
00440
0 00000 4 00000
328
GO441 0 COO00 5 00000
329
C0442 0 00001 0 00000
330
C0443 0 00002 0 00000
331
00444 0 00005 O 00000
332
00445
0 GOC06 C O O C O O
333
C0446 0 00007 0 00000
334
00447 0 COO24 0 00000
335

EJECT
CONSTANT POOL
ZERO
Q1
Q2
Q3
(34

Q5
Q6
Q7
Q8
Q9
Q10
Q12
Q13
Q14
Q17
Q20
0 Q21
1
Q22
Q36
Q63
Q64
Q128
8014
QO17
Q020
Q022
0025
Q033
Q040
(2041
Q043
Q050
QO6O
(2061
Q077
DOZOO
803382
Q01Q9
823389
GI77789
QOZQLl
QT1
QT2
QT4
QT5
QDL
QD2
QD5
006
Q07
OD20

PZE
DEC
DEC
DEC

CIEC
DEC
DEC
DEC
DEC
DEC
DEC
DEC

DEC
DEC
DEC
DEC
DEC
DEC
DEC
OCT
OCT
OCT
OCl
SYN
OCT
OCT
OCT
OCT
I)CT
OCT
OCT
SYN
SYN
OCT
OCT
OCT
OCT
OCT

PZE
PZE
PZE
PZC
PZE
PZE

---------

-- - -----

1
2
3
4
5
6
7

- ---

.-

- -

.-

--

9
10
12
13
14
17
20
21
22
36
63
64
128
14
17
20
22
Q21
33
40
41
43
50
60
61
SQ63
Q128
3300
1000000000
233000000000
777000000000
200000000000
11
12
14
01 5

-- -- --

-- -

- --

--

RDCI0552
ROC10553
- - -- - - --~ 0 ~ 1 0 5 6 1- - _ -

--

--

---

--- ----

--

-.

- --

--

--

-- -- - - -.-

-- --- -- -- -- -

- - - -.- -- -- -

u
p
-

--------

-.

.----

---

- --

--

m
p
u
.

- -- -

----- ----

-.

-- ---

--*

P
P

----*

CPOPOOOl

- --

--

- ---

----

----

-- - ---

--

--

c POP_OOP-~--- _

---.- -- - -

--"-

-*-

.-

_--_c~a~ool-9-.-

- --- -

_.
-- -.

--

RDCI0563

--

- -

-em-----

----p.--.p---------.A

-- --

_-

--- -

r 92

~ 9 5
i 16
rt7
1 1 20

--- --

--

t r l

--

------

-.-

----A

7------

- - - --- - -- - --- -- -

CPOPOOOZ
-

--

---

--- .- - - --- CPOPOO18

CPOP0017
-------,--.--. -."--> .-- -"

- ----

- -

--

--- - - -

- --

--

-- - - ---

--

CP0P2000
-

--

cpO!EOlb.

- .___

~ ~ 0 ~ 2 0 0 1

8 .

-PAGE 13

BONNIE-S

00450 0 00025 0 00000

00451
1 00000 0 00000
00452
600000000000
00453
006Q60606060
00454 +201400000000
~ 0 4 5 5- o ooooo o ooooo
00456 +3777777777?7
(20457 3 0 0 0 0 0 0 7 7 7 7 7
00460 0 77777 0 00000
0 0 4 6 1 -3 0 0 0 0 0 0 0 0 0 0 0
00462
0 77777 0 77777
GO463 0 0 0 0 0 0 7 7 7 7 7 7
00464 -3 77777 0 00000
00465
3 77777 7 00000
00466 -3 00000 7 77777
00467 +000077000000
00470 0 00000 7 00000
00471 -3 77777 7 77777
00472 606060606060
0047 3
00473 0 00000 0 07335
00474 0 10742 0 00000
00475 0 10135 0 00000
00475
00476 0 10120 0 00000
00477 0 10103 0 00000
00500 0 10076 0 00000
C0501 0 1 0 0 0 5 0 0 0 0 0 0
00502 0 07775 0 00000
C0503 0 07462 0 0 0 0 0 0
0 0 5 0 4 0 07335 0 0 0 0 0 0
C0505 0 0 7 2 5 0 3 0 0 0 0 0
00506 0 06733 0 00000
C0507 0 0 7 1 1 0 O OOCOO
00510 0 06706 0 00000
C0511 0 0 7 6 7 6 O l O 2 1 1
00512
0 07666 0 07706
GO513 0 0 7 6 0 4 0 0 7 6 1 4
00514 0 06657 0 07355

i
2

c)

C',

Fi

,"
8

00517
00520
00521
00522
00523
00524
C0525
00526
CO527
00530
c o 5 L

0
0
0
0
0
0
0
0
0
0
o

06135 0 0 6 1 3 4
0 6 1 3 7 0 Oh136
00000 0 06127
00000 0 06141
30000 0 0 6 2 2 1
06140 0 00000
06143-0
00000
06162 0 00000
06163 0 0 0 0 0 0
06167 0 00000
06223O!OOCO00531

---

- - - -

- -

- -- -

- -- ..-.

.
-

--

- -- -

.
-

- - -- -

BIRTHDAY ASSEMBLY

336
337
330
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354

QDZl
RP5
OBLANK
7BLANK
QF1
SBIT
MAGMSK
AhASK
DMASK
PMASK
ADMASK
ATMASK
PDMASK
PDTMSK
PTAMSK
CNTMSK
TAGMSK
SEVFNS
BLANKS

356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374

PNAMEA
APVALD
BIND
FIXD
FLOAT0
FSUBRD
FNARGD
LABEL0
LAMDAD
nCTD
PNAMED
QUOTE0
SUBRD
QSPECD
QSYMD

377
378
379
HOOA
3 8 0 H12A
3 8 1 H72A
382 H l l D
H14D
383
3 8 4 H330
385
H34D
3 8 6 H40D
387 H740
3 8 8 EC3NAT

PZE
STR
BCI
BCI
DEC
MZF
OCT

- -.- - --- -.- ---

--

r r-1

--

--

--

--- ---- -

-----

---

- --

. -

--

- c ~oeo~ozo..
_ _

- .- - --

- -

--

-- ----

RDC10559
_ - - _ - CPO~OD_OL
CP0P0003

--

- - ---

--

ROC 1 0 5 6 2

0.0~0
- 1 9

1-5M5360

377777777777

PZEPZE
PZE
PZE
PZE

-- - .- - - -

--

PZE
TXI
PZE
PZE
SVN
SVN
SVN
OCT
PZE
SVN
BCI

PZE
PZE
PZE
PZE

- --

CPOP0007

1r 0 0 0 0 0
110
1.0

P7F

PZE
PZE
PZE
SYN

--

,121

----

- --

--

--.-- -.
--

.
.
-

-- -- -

CPOP0008

9 - 1

--

--U(1110409
1-1

------- -----

---

----.-

-197
000077000000
- -- --- -- - 17
-1*7*-1
RDCI IQ5-65- - - --- . - __
11
RDCI0560
0
BEG W I N G OF LONSTANT A T W------.-----------PNAME
CPOPOO15
9 1 APVAL
- -_
- -C-POP_O_013
---- - -rrB1N
C POP00 1 4
BIND
-- --- --- - - -- - -r r $FLOAT
RDCJOOOl
v r FSUBR
--_____.
- -- - -_JLPPee.P-LZ.. -r r FUNARG
CPOP2005
LLLABEL-..- .-- -- - - - - - - -.
r r LAMBDA
* $'x!L-_
- -_
- .- - - - - - - -- -.
RDC J 0 0 0 2
$ 9 ?NAME
CPOPOOlO
I r QUOTE
.
"."-,-*. -" -.-'.. -..- - . - -- 1, SUBR
C POP00 11
OttSPECAL
--__
_
-Or r SYM
FRSETOr r PJ36
- - - - - - - ----. -- .-PJ37vvPJ38
LOGAND LGGXOR
MAX MIN
-117r~-I18
- -- -" PLUS, 1TIMES
PROTECT
INTEGER OBJECTS
.--.
- -- - -- - .-----a-

--

-0

- - *

PZE
PZE
PZE
PZE
PZE
PZE
PZE
PZE
PZE
SYN

H05 r r H06
H07, r H 1 0
HOO
H12
H72
r *HI1
1 rH14
r 9 H33
9 r H34
r r H40
r H74
H74C

--

--

----- - --

------END OF C O N S T A N T

--.

--

--

A
-

---- -

ATOMS-

---- ---

- -<-.--

.
.

-- .--

. .-.-

--

-.

- .-.--

--

--. ..

--

"

-- . --

- -.

--

'

PAGr 14

C;

BONNIE-S

00532
0053 3
00534
00535
00536
00366
00537

.
4

i
2

k!
.A

5
w

,"

,.

20
IP

IB
17

16

15
14

13

I2
11

10
9

00537 0500 0 0 4
00540
0 6 2 1 00 o
00541 0622 00 0
00542 0622 0 0 0
00543 0634 0 0 4
00544 0600 0 0 0
00545 0600 00 0
00546 -0625 0 0 0
00547 0522 0 0 0
00550 0760 0 0 0
00551 0761 00 0
00552 -0774 0 0 4
00553 0522 0 0 0
00554 0522 0 0 0
00555
0522 0 0 0
00556 -0774 0 0 4

00001
00631
00631
00561
00574
00630
00627
00357
00357
00005
00000
00552
00360
00356
00351
00631

00557
00560
00561
00562
00563
00564
00565
00566
00567
00570
00571
00572
00573
00574
C0575

0522 0 0
C534 0 0
1 00000
0634 00
-0534 00
-0754 0 0
0361 00
2 00001
0602 00
-0774 0 0
0522 00
-0774 0 0
0522 00
0774 00
0020 0 0

0
4
4
4
4
0
4
4
0
4
0
4
0
4
4

00361
00631
00562
00565
00631
00000
00000
00565
00532
00632
00362
00576
00360
00000
00002

00576
00577
00600
00601
C0602
00603
C0604
00605
Cob06
OC607
CC6lO
00611

-0520
U020
-0625
-0534
0754
0400
0767
0601
0500
-0320
-0602
0074

0
0
0
4
4
O
0
0
0
0

00
00
00
00
00
00
00
00
00
00
00
00

00630
00615
00627
00366
00000
00420
00006
00620
00366
00417
0 00620
4 01222

38 9
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414

---

BIRTHDAY ASSEMBLY

CHKSUM
RTRX
RTADR
RTLCH
RTIOtJ

GSIIECL
LOWREG

EJECT
HSS
HE40
SYN
SYN
SYN
SYN
EQU
SYN

-- - -- --

- --

-----

--

---

-- --

..

---

T H E S E C E L L S ARENOTWRI~--LAE-.-A=~LO~SO_
5
D
CELLS FOR LRTAPE
--__pETTECr_E_E_sT_oR!.GE-. -- -_ _ - 1._5_L29_3P -- - _ _
CHKSUM+l
CHKSUM+2
1.5L0940
CHKSUM+3
-- --- -- - -_ -. -1-5L09_50
- - ---- - - CHKSUM+4
1.5L0960
CHKSUM-BOTTOZ-__- -- LENG-In O-F-_B_OOTSTRAPRECORD
1.5L0990
*
LOHEST REGISTER ON L I S P RECORD
1.5L1000
---.---o_o_o_o_-~-~-----

'

..-l-.%l!z-!

--

- -

A_----.

LWTAPE CLA
114
STA
WT IOCSTD
WTIOC
ST0
WTAO
SX A
WTX,4
ST2
WTAG
ST7
WERC
STL
6TCO
XEC
STCO
IOT
NOP
AXC
*?4
XEC
6TRC
XEC
BTEF
WTWS
XEC
BjlRS
AXC
WTIOCt4
415
XEC
BRCH
416
WTIOC94
LXA
417
WTAD
++1,4,+*
TXI
418
SXA
WTACL ,4
419
LXO
WTIOC,4
420
PXD
090
4 2 1 WTACL 4CL
**t4
422
TIX
*-1 94.L
423
SLW
CHKSUM
WTIODe
424
RXC
425
XEC
6LCH
426
AXC
YRCK 4
427
XEC
dTRC
428
W1X
AXT
*+14
429
2I
84
TR
430 *
4 3 1 WRCK
NZT
WTAG
432
TRA
W AGN
433
STL
WERC
434
LXD
SYSTMP, 4
435
PXA
0 14
436
ADD
661020
/\LS
6
437
438
S TO
WERM
439
CLA
SYSTMP
440
AN A
861017
441
WERF"
ORS
442
TSX
OUTPUT, 4

PARAMETER WORD
SET UP IZOCOEM~.N_~~S

1.5L1020
1 5L1030
1.5L1040
1-5L1050
1.5L1060

COUNT
SAVE L I N K I R
ZERO TEST CELL

__ _

-- -

--__.

--=----------_-

1*5L1070

1o5L1080
1o5L1090

WAIT FOR CHANNEL

TURN OFF INDICATORS

5 . 1 L1100
1.5L1110
1 . 5 L 1 1 2 0
1 5L1130
1.5L1140
1.5L1150
1.5L1160
1.5L1170
1.511180
1.5L1190

...---

..----v

A-

SELECT TAPE
POINTER TO I 0 COMMAND
--*
RESET AND LOAD CHANNEL
ADDRESS OF BEGINNING OF BLOCK
END + 1 OF BLOCK
SET C H E ~ K S ~ ~ ~ U ? ~ - A D ! ? R E S S
__- - - _ _- ----_ - COUNT OF BLOCK
1.5L1230
CLAER AC
-- -.
--*--------1.5L1210
-----.- .-COMPUTE CHECKSUM
1.5L1220
LOOP
-.- - - -.-- --- -- -- -- - .
STOE I N cKECK-~UFCELL
1.5L1240
CHECKSUM WRI T?.-CflM&D..
LOAD CHANNEL
T E ST FOR W R ~ E - - ? ~ ~ _ F ? ~ @ c y Y Y Y Y Y - 1.5L1280

---

"
a

-----

IIESTORE
- LINK I R _
EXIT

-.
.
. -.- -

- . - -1.5L1290
-- -- --- - 1 5L1300

TRY TO WRITE ABA I N

CELL S A Y S THERE M A S B A D

TAPE

.- .-

--

__

.-

--

--

- --

b'R IT-ATAPF!Ks&?E_

- -

--

__

- - - ---

.-

.----------

--

-- - --

TROULLL:

FORM MESSAGE T O OP~KA3!

--

"-.

1.5L131O
.-.-

--- -

--

- --

--

---- -

--

_ _

.- .

-.

--

7
"

-------

- ---

- - -- - -

--- ".

"

--*

-.

PAGE 15

BONNIE-S

BIRTHDAY ASSEMBLY

----- -.

. ..

-~
-.--

--

0 0 6 1 2 -0 0 0 0 0 0
no613 n nono7
00614 0420 00
O O W
0537 0 0
00616 -0625 00
QC617 0 0 7 0 0 0
CC630
GO621
00677
00623
00624
00625
00676

0 00364
n no670
0 00003
0 00355
0 00630
0 00555

b n b m i ' i 6 0
603162602221
247360233071
452725603163
607145246047
646230606263
715163336060

00627 0 00000
00630
0 00000
0 0 6 3 1 -1 0 0 0 0 0
00632
0 00001

0
0
0
0

00000
00000
00000
00532

--v

00633
00634
GO635
OC636
00637
00640
00641
00642
00643
00644
00645
00646
00647
00650

0634 00
0074 00
0500 00
0074 00
0074 00
0 00366
0074 00
0 77241
0522 0 0
0522 00
0 5 2 0 00
0020 00
0774 00
0 0 2 0 00

4
4
0
4
4
0
4
0
0
0
0
0
4
4

00647
06311
00366
00276
00537
00144
00537
00537
00353
00352
00627
00637
00000
00001

0 0 6 5 1 -0754 0 0 4 0 0 0 0 0
GO652 - 0 7 3 4 0 0 2 0 0 0 0 0
00653
0500 00 0 00366
0 0 6 5 4 0 0 7 4 GO 4 0 0 2 7 6
OC655 0 0 7 4 0 0 4 0 0 2 0 2
00656
0 00366 0 00144
00657 0074 00 4 002c2
00660 0 77241 0 00537
0 0 6 6 1 0522 0 0 0 0 0 3 5 2
00662
0 0 7 0 00 2 0 0 0 0 1

00063
00664

0500 00 4 00002
0634 00 4 00675

443
444
445
4 4 6 WAGN
447
448
449 *
430 WFRK

MZE

ECDOUT

l IPR
XFC
STL
TRA

3
SBSR
WTAG
WTWS

RC I

7.

'-

--

- - -- .-

-- - -.

iJ

. . .-

- --

'--.60

-a

_ l i _ ~ I r - ~ W J I ~ E ! U . S SHIARZ.
.

-- - - - - - .

-I

---

--

--

--

--

91

451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
430
481
482
483
484
495
486
487
488
489

--

*
WERC
WTAG
WTIOC IOCT
WTIOD IOCD

9-i.

.+i

CHKSUMt.1

TAPDMP

TAPDMP SXA
T SX
CLA
TSX
TPRTY TSX
TSX

*
*
*

XEC
X EL
ZET
TR A
TPDMX AXT
TRA
OVLT

OVLTXX PXD
PDX
CLA
TSX
TSX
TSX

XEC
TR A

INPUT CLA
SXA

TPDMXp4
TEREAD,4
SYSTMP
b(IOS),4
LWTAPEp4
BOTTOM BSR ECL
LWTAPE,4
LOWREG>r-LOW2EG
3WEF
$REW
MERC
TPRTY
**,4
1,4

--

OVERLKID

-_--

-.7

--

USED B Y
_____SAVE L I N K I R
CLEAN UP READ BUFFER
SPEC. FOR TEMPORARY TAPE
SET UP 1-0 C O W--.--WRITE BOOTSTRAP RECORD

- ---

1.5Ll.360

____--___1

DUMP CORE ON SYSTMP.

--

---- -CELL NON-ZERO ON SECOND TRY

W R Il L ! J k L L B L O C K
WRITE OUT CHECK SUM

--------

-.-

. 5 p o 0 2 8
1.5P0029
1*-5-P0_030
1.5P0031

--

--- -

-- -- - - - -

1.5P0032

1 . 5 P 3 . Q L -

_----.m

--l5P0035

W
REST OR
F CORE
ITE
1.5P0036

__

.
1.5P00_37 _ _
_ - WRITE AN EOF MARK
1.5P0038
KEWI ND SYSTMP
1 ~ 5 - ~ 0 - 0 ~_ 3 ~ 9 ~
SEE I F SYSTMP WAS CHANGEDAFTER F I R S T
EECORD WAS WRITTEN -1.E _TP_RSIJ_RITE-I-T
.. .
RESTORE L I N K I R
1.5P0040
EXIL
----- L ~ P . C Q ~ ~ . - - - 1.5P0042
READS A NEW CORE IMAGE I N FROM SYSTMP. USE0 BY O.V_E&LORU
1 .5P00433333333333
1.5P0044
(
fI
4 - - _ _
L I N K I R TO AC
- - - - -- - - - - --092
PUT I N I R 2 FOR SAFE KEEPING
SYSTMP
TEMPORARY TAPE S P E C . - -.
.--1 5P0047 -- __
.. . .
$IIOS)t4
SET UP 1-0 COMMANDS
1.5P0048
LRTAPE.4
K EAD IN B00 T ~ ~ & E D O ~ % - --- --_
- _-1dPP-0.,4.9.- _ bOTTOMr,BSRECL
1.5P0050
LRTAPE94--_
READIN RST OF L I S P - _
- . ._- - 1.5P0051_
_
__
LOWKEGy,-LOWREG
$RE W
KEWINDSYSTEIP
_ - - - - . - 1.5P00_53
- _
192
EXIT
1.5P0054
-- - ---- - - - .1.5P0055
----- - -1.5P0056
2 9 't
-- .- - .
00000012
INX474
5AVE LIidK I R

---

--m-__--.---__--.-___--.

--

- --

I?

- ---

- -.

PAGE 1 6

i
L
-

2
E.
".

--=
2

0*
LU

",

"
=
a,

H
20
19
18

17

16

15
14

13
12

10
9

00666 0500 00
00667 0074 00
00670 0522 0 0
00671 0522 0 0
00672 0074 00
00673 0 77777
00674 0020 00
(20675 0 7 7 4 0 0
00676
0020 00
00677 0534 0 0
00700 -0120 0 0
00701 0020 00

0
4
0
0
4
C
0
4
4
4
4
4

00365
00276
01376
00350
00702
00000
00677
COOOO00005
00675
00003
00004

00702 0634 00 4 00725

00703 0500 00 4 00001
00704 0522 00 0 01376
00705
1 00000 0 00710
00706 0762 00 0 01321
00707
1 00000 0 00741
00710,067100001177
00711 -0774 0 0 4 00713
00712 0522 0 0 0 00356
0 0 7 1 3 -0500 0 0 0 0 0 7 2 7
00714 0601 00 0 0 0 7 2 3
00715 -0774 0 0 4 01177
00716 0522 00 0 0 0 3 6 1
0 0 7 1 7 -0625 0 0 0 0 0 3 5 7
0 0 7 2 0 C522 0 0 0 0 0 3 5 7
00721 -0774 0 0 4 00734
C0722 0 5 2 2 0 0 0 0 0 3 5 6
00723 -0774 0 0 4 00727
00724 0522 0 0 0 00360
00725
0774 00 4 00000
00726
0 0 2 0 0 0 4 OOOC3
00727 3 00000 0 00734
00730 0522 00 0 00355
00731 0522 0 0 0 00350
00732
0502 0 0 0 00727
0 0 7 3 3 -3 0 0 0 0 0 0 0 0 7 1 4
00734 0534 00 4 00725
00735
0020 00 4 00002
00736 0762 0 0 0 0 1 3 2 1
00737 -0534 0 0 1 00757
00740 -0534 0 0 2 0 0 7 6 1
00741 0030 00 0 00742
00742 0604 00 0 01173
00743 -0057 0 0
000003
00744 0540 00 0 01174
00745
0544 0 0 0 01175

-.

B I RThDAY ASSEMBLY

-- -

---A.

---

--- - - - - - -- ---

11

BONNIE-S

--

.-

00746 0030 00 4 00002

00747 0560 0 0 0 77671
0 0 7 5 0 -0600 0 0 0 7 7 6 6 3

491
CL A
SYSPIT
492
TSX
$IICS),4
493
X EC
BSWTl
494
XEC
BRDS
495
TSX BRTX94
496
CALL
*% ht-1
497
T R A *+3
4 9 8 r N y ! ~ ~ '"94
- - 499
TRA 594 '
INX494
500
LXA
501
TMI 3 9 4
502
TRA 4 9 4
503
HED
504 C
5 0 5 it
506
RTX
SXA
RTXXp4
507
C LA
1.4
508
XEC
BSWTl
509
TX I
H I , 90
510
RCDA
511
TX I
RDBCD, t O
5 1 2 ~1
STA
CMMND
513
A,X C
*+2 1 4
514
XEC
BTEF
515
CAL
H2
,516
H3
ST0
H2
-17
AXC
CMMN094
dRCH
518
XEC
519
STL
STCC
52C
X EC
BTCC
A XC
521
RTXOE ,4
$TEF
522
XEC
523
AXC
H2,4
524
XEC
STRC
525
RTXX A X 1
**,4
526
TKA
314
5 2 7 HZ
TXH
KTXBE, 90
528
XEC
SBSR
529
XEC
bRDS
530
CLS
H2
531
TXL
H39 90
5 3 2 RTXBE LXA
RTXX ,4
533
TRA
294
5 3 4 RCD
RCPA
535
LXD 8 2 ~ 1
536
LXD 8 3 r 2
537
RuBCD TEFA * + 1
538
ST1 8 5 0
539
RIL 3
540
RCHA LR
541
LCHA 8LR

INPUT TAPE SPEC.

SET UP 1-0 COMMANDS
TEST FOR ON-LINE INPUT
SELECT INPUT
. _ - TAPE_--

---

,----

542
543
544

01

TEFA 2 p 4
LDB L
STO LS

A -

---

- ---

---

--- -- - -

--

--

--

00000010
- _ _ - & O - % 0
LC015700
-- -__-_-L_c01_5_8_00 LC015900
_-__
.
--- --- --- --L c ~ 1 - 6 ~ 0 - _
LC016100

RESTORE _LINK I R

- -

>

--

-- _ - --

LC016300

--

RESTORE L I N K I R

---

-- ----

--

-. . -

.-

-- --

~~016500
-LC016600
.
-- -- --LC016700
LC048800
.LC049300
-.
.SAVE LINK I R -- --1.5P0001
- -- --- -- - GET PARAMETER WORD
1.5P0002
.TEST FOR ON-LfNE INPUT
1.5P0003
- I S FROM TAPE
1.5P0004
SELECT CARD READER
1.5P0005
..---GO TO CARD IMMAGE CONVERSION PROGRAM 1.5P0006
SET ACDRESS OF I-O_U?!!bLAND_
1.5P0007
LOCATION TO INDEX REGISTER
1.5P0008
TURN OFFF EOF INDICATOR
1.5P0009
--PICK UP SWITCH
1.548091
SET TO TXH F l R S T TIME THROUGH
1- 5 p 0 0 1 0
---.-*-.LOCATION OF 1-0 COMMAND
1.5POOll
RESET AND LOAD CHANNEL
1.5POO 1 2
--SET UP TCO COMMAND
1.5P0013
MAIT FOR CHANNEL T o .@ g
U
_
T
OF _qP_ERAT-LO1-:~P_I1_014
_ _ _ _LOACTION OF BAD E X I T
1.5P0015
G O If EOF FOUNDDDr.-----------.-------1.5P0016
_.--LOCATION TO TRY AGAIN
1.5P0017
1.5POO18
G O I F REDUNDANCYCHECK FOUND--- _ RESTORE LINK I R
GoOD E X I T
1.5P0020
-_- -

-- -

I S TXL CN SECOND TRY

BACKSPACE % ~ ~ ~ % ~ - - - - - .
SELECT TAPE
PICK UP SkITCH _ _ _
-- GO TRY AGAIN
LINK I K
X
X

RESTART AFTEkER.OR

1.5P0021
----------------------1.5P0022
1.5P0023
-1.5P0024
.- -1 5P0025

----

"- - .-

LC054200
LC054300

"----**

---p-----------

L ~_q_544P_O- ._ - .
LC054500
LC054600
-- --- ----- --- -- - LC054700
LC054800
READ I N 9 LEFT +RT INTO L p R _
DELAY 9 START SLEFT + RT INTO 8L98R
LC054900
LC055000
GO TO END OF F I L E RETURN I F EOF ON
X
LC055100
TURN OFF END F I L E INDICATOR
SAVE INDICATORS
TURN INDICATORS 1,2 OFF

..-

-- - -

SET LEFT SUM--

--

--

- LC055200
- ----- -

--

--

--

. - - --

"

--

--

--

PAGE 1 7

SGNNIE-S

---- --

--

- --

--7

en

?
m

L
2
"A

20

I?
18

17
16

15
14
13

12
11

10
9

00751
nn757
00753
00754
00755
00756
C0757
00760
00761
00762
00763
00764
00765

-0634 0 0
0674 nn
-0534 00
0560 00
-0600 0 0
0074 00
-3 OOOOC
07L79.C
-3 0 0 0 0 0
0544 0 0
0560 00
0400 00
0560 00
- 0 On

1 00757
7 on761
1 00770
0 77671
0 77664
2 01110
0 00762
!: O O O C l
0 01145
0 01174
0 77665
0 77653
0 77666
0 77664

545
546
547
548
549
550
551
5 52
553
554
555
556
537
558

00767
00770
00771
00777
00773
00774
00775
00776
00777
01000
01001
01002
01003
01004
01005
01006
01007
OLOLC
01011
01012
01013
01014
01015
01016
01017
01020
01021
01022
C1023
01024
01025
01026
01027
01030
01031
01032
01033
01034
01035
C1036

0074 00
-3 0 0 0 1 0
0767 00
-3 0 0 0 0 0
-0500 0 0
0609 00
-0500 0 0
0602 00
-3 0 0 0 0 2
0544 00
-0054 00
0020 00
-0500 0 0
-0320 00
-0100 0 0
-0500 0 0
-0602 0 0
-0500 00
-0320 0 0
-0100 00
-0500 00
-0602 00
-2 0 0 0 0 1
0074 0 0
-3 0 0 0 0 0
-3 00000
-0500 0 0
-0501 00
0602 00
0544 00
-0320 0 0
0602 00
-0500 00
-G5Ul 0 0
0602 00
-0320 0 0
0602 00
0074 00
-3 0 0 0 0 0
0767 0 0

2 01110
0 00773
0 00003
0 01144
0 77671
0 77663
0 77672
0 77664
1 01160
0 01174
000001
0 01040
0 77671
0 77663
0 01163
0 77671
0 77663
O 77672
0 77664
0 01163
0 77672
0 77664
1 01154
2 01110
0 00777
0 0114-4
0 77665
0 77663
C 77665
0 01174
0 77667
0 77663
0 77666
0 77664
0 77666
0 77670
0 77664
2 O 1 G
0 01000
0 00004

559
560
561
567
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
536
587
588
589
590
591
592
593
594
595
596
591
598

02

83
85

SXD 8 2 9 1
sxn ~ 3 . 2
LXD 847 1
100 R
STQ RS
T S X C1.7
TXL 85
AlS 1
TXL C2
LCHA I R
LDQ 8L
ST0 I S
LDQ 8R
ZT(3 RS

-.
.

--

- - -- . -

SAVE INDEX REGISTERS

.
X
SET D I G I T ROW COUNT

---

--

-- - -

---

- .- -

---.

- _

-- __ ----- --

FNT F KCONVERSIONLOOP-_
LEAVE CONVERSION LOOP

I N I T I A L I Z E 8CD RECORD
D F L A Y U - I N S U R f
USF 8 ROW AS SUM

--

- - --

--

_ -- -.
LC055500
1 C O 5 5 6 0 Q --.-- - - -.-_- - .
LC055700
-LL05580n-- - - - -- -LC055900
.LCQ56aOO
LC056100

_BEAILLblG_I__--LLfiCL20a---

.-

LC056300
L(1EiMQQ-

X
X

-___ -_____.-.- - _ _ _L LC 0C5 6~5 0o0 -.-

U(

--

--

LC055300

- --

SET RIGHT SUM

--

- --- .

-.

-. -

--A

-.

TSX C192
ENTER CONVERSION LOOP
LC056700
84
TXL 86,098
LEAVE CONVFRSION L40P
--- -. - --_ - _ _ _ L Z ; B ( i a a O
- -__-ALS 3
ADD 8 TIMES 8 ROW
LC056900
TXI C3
X
_---_ -- --ULO51(1QQ- - 86
CAL L
USE 9 ROW AS SUM
LC057100
SLW 1 '
i
X
-LLZ)_5.ZZQ Q---.---..__
CAL R
X
LC057300
SLrJ RS
X-_--- _ _-- CC317.4.00.
-._
813
TXL B25 7 l r 2
I S I T ZERO OR ONE ROW YES'
LC057500
814
LCHA LR
DELAY * I E & D m RT AND I - E F T
11;4574na_- -LFT 1
I S END OF RECORD INDICATOR ON
LC057700
TRA 8 9
YES' END OF RECORD
-.- U L 8 - Q S )----_ _.-CAL L
88
NO' TEST LEFT ROW FOR
LC057900
ANA LS
I L L EGMUBLEE
PUNCH
_ _ _ LCEO5_8.O40 .__
_
- .
-.
X
LC058100
TNZ 817
810
CAL L
_
_ _
LCD58200
FORM L U C & L A u M M
_ --..ORS LS
OF LEFT ROWS
LC058300
CAL R
TEST FOR I L L GAL_ _ _ _ - - - -----------_LL0-5B-4.QO..
ANA RS
DOUBLE PUNCH
LC058500
TNZ 817
X
LC058400. _ -611
CAL R
FORM LOGICAL SUM OF
LC058700
ORS R S
RIGHT ROWS
-L-Cm &!o_O - --TNX 8 1 2 ~ 1 ~ 1
TEST FOR ZONE ROWS
LC058900
TSX C192
ENTER CONVERSION LOOP
-- - - --- ----_
b (;o!-QLllQ -- -- .- -TXL 813
LEAVE CONVERSlON LOOP
LC059100
TXL C3
ADD TO BCD RECORD
_ _ - _ __ - . . -LCOS920-0
67
CAL 8L
ADD 8 LEFT ROW TO
LC059300
ORA LS
LEFT LOGICAL SUM
--_ L.C
0 5 9 4 0-0-- - .
-SLW LDS
X
LC059500
LCHA LR
DELAY r START R E A P m X - L I-R- -!
N_?LIP_L
r RRRR _L_C_05%4.Q.O.-_-- _ .
-ANA LZ
FORM INDICATOR FOR
LC059700
SLW LS
-- BOTH DIG I T AND ZERO
- -_
CAL 8R
L
ADD 8 RIGHT ROW TO
LC
C0
05
59
98
90
00
0_
ORA RS
RIGHT LOGICAL SUM
- _ -- _
. _
--.
-LC0_6000cL - - _ _- _ SLW RDS
X
ANA RZ
FORM INDICATOR FOR
LC060100
- - -..-_
.- - ~_c_o_aoz-o_o
- -- . *
.
SLW R S
BOTH D I G I T AND ZERO
LC060300
8 4 0 _ _ T S X C112
ENTER
CONVERSION
LC060400
-- --- ------- -.-- - LOOP
TXL 814
LEAVE CONVERSION LOOP
LC060500
ALS 4
SHIFT TO LONE POSITION
- - LC060600.
-A

--

I
_

_
l
l

--

-- -

BIRTHDAY ASSEMeLY

--

--

- -&

'

---

PAGE 1 8

s-,

E
9

2
Z

:
rn

,"

5
a,"

g
20
19

18

17

16
15

14
13
12
II

10

BONN IE-S

- - -

-- -

- - - - - -0 1 0 3 7 -3 0 0 0 0 0 0 0 1 1 4 4
01040 -0500 00 0 77663
01041 0602 0 0 0 7 7 6 7 1
C1042 - 0 5 0 0 0 0 O 7 7 6 6 5
01043 0760 00 0 00006
01044 -0320 00 0 77667
01045
0320 00 0 7 7 6 6 3
0 1 0 4 6 - 0 5 0 0 UO 0 7 7 6 6 4
01047 0602 00 0 77672
01050 -0500 0 0 0 77666
01051 0760 00 0 00006
01052 -0320 00 0 77670
01053 0320 00 0 77664
01054 0074 0 0 2 01110
C1055 -3 0 0 0 0 0 0 0 1 0 6 3
01056 0602 00 0 77662
01057 0767 0 0 0 00002
01060 0361 0 0 0 77662
01061 0767 0 0 0 0 0 0 0 1
0 1 0 6 2 -3 0 0 0 0 0 0 0 1 1 4 4
01063 -0500 00 0 77665
01664 -0501 00 0 77667
C1065 - 0 5 0 1 0 0 0 7 7 6 7 1
01066 0760 00 0 00006
Cl067
0602 00 0 77663
01070 -0500 0 0 0 77666
01071 -0501 00 0 77670
01072 -0501 0 0 0 77672
01073
0760 00 o 00006
C1074 0 6 0 2 0 0 0 7 7 6 6 4
C1075 0 0 7 4 0 0 2 0 1 1 1 0
0 1 0 7 6 -3 0 0 0 0 0 0 0 1 1 0 4
C1077 0 6 0 2 0 0 0 7 7 6 6 2
01100
0767 00 0 00001
C l l O l
0361 00 0 77662
01102
0767 0 0 0 00004
01103 -3 00000 0 01144
01104 -0534 00 1 00757
01105 -0534 0 0 2 0 0 7 6 1
01106 0 4 4 1 0 0 0 0 1 1 7 3
01107 0020 00 4 00003
01110 -0634 00 1 01113
Cllll-050000400001
01112 0401 00 0 01127
0 1 1 1 3 -3 0 0 0 0 0 0 0 1 1 1 7
01114 0 4 0 1 00 0 01127
0560 00 0 77664
01115
Clll6
1 00000 0 01120
01117
0560 00 0 77663
01120 0 6 2 1 0 0 0 01145
01121
0621 00 0 01144
01122
3 00001 1 01126
01123 -0600 0 0 0 77662
01124 -0500 0 0 0 77662

599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
643
650
651
652

- -- - - -.

T X L C3
89
CAL LS
SLW L
CLL. LDS
COM
- 4NA LZ
ANS LS
CAL R5
SLW R
CAL RDS
COM
4NA RZ
ANS RS
TSX C l r 2
TXL 815
SLW TP
ALS 2
ACL TP
ALS 1
TXL C3
815
CAL LDS
ORA LZ
ORA L
COM
SLW LS
CAL RDS
ORA RZ
ORA R
i OM
SLW RS
TSX C192
TXL 8 1 6
SLW TP
ALS 1
ACL TP
ALS 4
TXL C3
816
LXD 82, 1
LXD 8 3 9 2
L D I B50
TRA 3 t 4
C1
SXD C49 1
C9
CAL 1 9 4
ADM C7
C4
TXL C 6 1 t + *
ADM C7
LDO RS
T X I C8
C6
LDQ LS
C8
STA C2
STA C3
TXH C 5 t l t l
5TCI TP
CAL TP

-- ----- - - - -

--------

------

--

---

--

LC060700
------_
m
o
bQ
Q
.2
Q
Q
!&
G
L.
.---.. -.
LC060900
-.
- _- --- - - LC
. 0-6 1 0 0 0 L C 0 6 11 0 0
LC0612-00 _
LC061300
-----_------------L_C_0_61_4P-Q
- -- LC061500
LC061600 _ _ _
LC061700
--- -- --LC061800
- -- --- -- -LC061900
LC062000
---*
LC062100
-L c o 6 2 2 0 _ 0 ! - -- _
LC062300
-- -- L C 0 6 2 4 0 0
LC062500
----.------LC062600
LC062700
--- L C 062800
-LC062900
LC063000
LC063100
LC063200
----------LC063300
LC063400
x
LC063500
X
-- -. .-_ - LC0636-0_0_-------- ENTER CONVERTIONLOOP
LC063700
LEAVE CONVERSION LOOP
L c o 6 3 8 0 k
----.MULT IPLY INDICATOR
LC063900
B I T S BY 3 LANO__.-...LCO640fi_
-.
__
-- - -- SHIFT TO ZONE POSITION
LC064100
X
-- --- - - - - - - -- -- -- ---L c 0 6-4-2 0 0 - .
.- - .
- _ _- X
LC064300
RESTORE INDEX REGISl.!?2R2.-- -LC064400
--.-LC064500
AND RETURN TO MAIN
RESTOKE
-INDICATORS
-- - -- - - - LC064600 -- -- - - -- - - - -PROGRAM
LC064700
SAVE ROW COUNT
-- L C 06 4 8 00 - -- .-- -- --- -- . - - .-------I N I T I A L I Z E ACDRESSES
LC064900
X
ADD 6
~
~
~
6
5
-"
---TRANSFER 10 LEFT ROW
LC065100
LC065200
RIGHT ROW? ADD 6 MORE
OBTAIN RIGHT SUM AN0
~~065300--SKIp
OVER L E F T SUM___
LC065400
_
_
OBTAIN LEFT SUM
LC065500
SET BCD RECORD AODRCSS
C-.0 6 5 6 00 .
-- --- LL C
X
065700
SKIP TEST I F D I G I T ROW
LC065800
TEST FOR NO S U M - LC065900
X
---- LCO66000---- - -_
- -

X
SAVE LEFT ZONE SUM
X
FORM I N D I C A f nP _FQR
ZERO AND X AND / OR Y
IN LEfrKOWL
X
SAVE i i I G h T <-ONE SUM
X
FORM INDICATOR F O R
ZERO AND X AND/OR Y
- I N RIGHT ROWS
X
ENTER CONVERSION LOOP
LEAVE CONVERSION LOOP
MULTIPLY INDICATOR
B I T S B Y TEN
X
X
X
FORM INDICATOR FOR
BLANK COLUMNS I N
LEFT VALF OF CARD
X
X
FORM INDICATOR FOR
BLANK COLUMNS I N
RIGHT HALF OF CARD

--

B IR TtIDAY ASSEMBLY

- -

.-

-- -----

p
p
p
p
-

PAGE 1 9

BONNIE-S

01125
0100 00 0 01150
0 1 1 7 6 0514 0 0 1 0 1 1 7 7
0 1 1 2 7 - 0 7 5 4 0 0 0 00OC6
01130 0763 00 0 00001
01131 0767 00 0 00005
0763 00 0 00001
011 7 7
01133 0767 00 0 00005
011 34 - 0 7 6 3 00 0 0 0 0 0 1
01135
0767 00 0 00005
01136 0763 00 0 00001
01137 0767 0 0 0 00005
01140 -0763 00 0 0 0 0 0 1
01141 0767 00 0 00005
0 1 1 4 7 -0763 0 0 0 0 0 0 0 1
01143 0020 00 2 00002
01144 0361 00 1 00000
01145 0602 00 1 00000
01146 2 00001 I 01127
01147 -0534 00 1 01113
01150 0502 00 0 01113
01151 0601 00 0 01113
01152 -0120 0 0 2 0 0 0 0 1
(21153 1 0 0 0 0 0 0 0 1 1 1 1
01154 -0051 0 0 000002
01155 -0056 0 0 000002
01156 0020 0 0 0 01165
01157
0 0 2 0 0 0 0 01034'
01160 -3 00001 1 01021
C l l 6 1 0544 00 0 01176
01162 0020 00 0 01003
01163 -0760 00 0 00003
01164
1 00001 4 01104
01165
0060 00 0 01165
01166 0074 00 2 01110
0 1 1 1 7 - 3 OCOOO 0 C1172
01170 0767 0 0 0 00004
01171-300000001144
01172 0020 00 0 01040
01173
0 00000 0 00000
0 1 1 7 4 -3 0 0 0 0 2 O 7 7 6 7 1
0 1 1 7 5 -3 0 0 0 0 2 0 7 7 6 6 5
0 1 1 7 6 -3 0 0 0 0 2 0 7 7 6 6 7
0 1 1 7 7 -3 7 7 7 7 7 0 0 0 0 0 0
77662
77662
77663
77664
77665
77666
77667
77670
77671
77672
77665

4
r(

>

i
o

,..

"?

",

",

20
19

18
17

16

15
14

13
12
11
10

- --

_-

653
A54 C 5
6 5 5 C7
656
657
658
659
660
661
662
663
664
665
666
667
6 6 8 C3
6 6 9 C2
670
671
672
C11
673
674
675
C10
676
812
677
678
679
680
825
681
682
633
017
684
685
BlUO
686
687
688
689
690
8200
691 850
692
LR
693
8LR
694
ZLR
6 9 5 CMMND
696
697
TP
698
LS
699
RS
700
LDS
7 0 1 RDS
702
LZ
703
RZ
704
L
705
R
8L
7U6

TZE C 1 1
I X A C7.1
PXD
670
LT.1 1
ALS 5
I GI 1
ALS 5
LGI 1
ALS 5
LGL 1
ALS 5
LGI I,
ALS 5
LGL 1
TRA 2,2
ACL 0 9 1
SLW 0 9 1
TIX C 7 r l p l
LXD C 4 . l
CLS C4
STO C4
TMI 1 9 2
T X I C9
IIL 2
LNT 2
TRA 8 1 0 0
TRA 8 4 0
T X L 077 1 3 1
LCHA ZLR
TRA 88
SSM
TX I
816,4,1
TCOA +
T
S
~
L
TXL 0 2 0 0
ALS 4
TXL C3
TRA t39
PZE
MTH L y O t 2
MTH 8L,012
NTH LZ,0,2
PTH
*+yO,-l
ORG
COMMON
ass 1
6SS 1
PSS 1
BSS 1
BSS 1
RSS 1
BSS 1
BSS 1
BSS 1
SYN LDS

--

- -

- -

----

---

---

- -

----- -

.
-

--

LC066100

-.----__-lCLlh~of)-

.%.J WORD CnllNT

'

CONVERT ROW
_

X
X

-L
X
X
X
X
X

LUl664QL- LC066500
__ -- -- -- - .- _ . L C O 6 h 6 M -LC066700
-- - .LLOh6.800 -LC066900
-

---

-- -.

_l-_l__.--I

---

LC068100
L C 0 6 8 2 0 0 -_ __
LC068300
LC06~a440_0
LC068500

---

LC068700
-LC048800LC068900
-- LC069Q00

-- --

-_

- ---

- - -

- --

--

-A-_.---.----

-- --

-"

I
r

_-

-- .-

-.

- -

-- .--

--

- - .---

- -- --

_-

- -

--

---.

" - - . "-

-- -

-"- - -

- - L-C.o_7_0 LQ0-

"

- --

.
.-

--

'

_-

p-------m---.--------.------

u
-

'

___

l l k G U Q

TEMPORARY
-- LEFT SUM
RIGHT SUM
!-EFT D I G I T SUM
RIGHT D I G I T SUM
!-EFT ZERO ROW
RIGHT ZERO RGW
LEFT ROW
RIGHT ROW
8 LEFT ROW

- - -

_I!JZ(rdBQ!lLQ__._

- - -- -

--

---- -.

LC067500
-_CtQD616C,-0 ----- _ _ -_
LC067700
-- - - L C o 6 T 8 D O - -_ - --- LC067900

SET ERROR SIGN

REs T 0 RE I N D EX REGLSLE!3S_ A-~L.MnKEEE X-.--.
--..
LC069200
~
---- ---- - ---- - LC069300
LC069400
-- --- --- - - -- -- -LCo695_CLO-- .LC069600
- .
~ - ~ ~ ~ 9 1-----_0-0
INDICATOR
STORAGE
LC069800
--- - - - - -- - - - .-LC06_9900
LC070000
-

-.

LC067100
X 0 6 7 2 9 L
LC067300

X
X
E X I T FOR ROW PROCEDURE
ADD TO BCD RECORD
STORE I N BCD RECORD
COUNT WORDS
- _.
-. _ RESTORE ROW COUNT
INVERT ROW SWITCH AND ----__
TEST FOR RIGHT ROW DONE
TRANSFER I F RIGHT ROWDONE . - GO CONVERT RIGHT ROW
CHANGE INDICATOR B I T 1 7
I S THIS TWELVE ROW
CHANGE
N0
I S I T XERO ROW OR ONE ROW

--

_-1CQ61QQO

----

BIRTHDAY ASSEMBLY

LC070300
- - LCP70400
__
LC070500
-L L o 7 0 6 0 0 _ .LC070700
L-L!270800-_ LC070900
LC071000
LC071100
-- LC071200
-

. .-

_.
...

-- - .

*-.

'

-PAGE 2 0

---

---

---

BONNIE-S
77666
01200
00000
00702

I
0

.A

'i

2
u
-",

A
.

,.

A
,.

20
19

18
17

16
IS

14
13

12
11

lo
9

----

- - - - ---- -

--

01200
G1201
01202
01203
01204
01205
01206
01207
01210
01211
01212
01213
01214
C1215
01216
01217
01220
C1221

0522 0 0
0020 00
0020 00
0634 00
0500 00
0074 00
0774 00
0500 00
0737 00
0522 00
0522 00
0534 00
0020 00
2 00001
2 00001
2 00001
2 OOUO1
0 00000

0 01402
0 01203
4 00002
4 01206
0 00364
4 00276
4 00000
4 00001
4 00000
0 00351
0 00361
4 01206
4 00002
0 00453
0 00453
0 00453
0 00453
0 00000

01222 0634 0 0 4 01245

01223
0500 00 4 00002
01224 0622 00 0 01367
01225
0400 00 0 00407
C1226
0 6 2 1 00 0 01234
C1227 - 0 6 2 5 0 0 0 0 0 3 5 7
01230
0522 00 0 00357
0123 1 0500 6 0 4 00001
01232 0074 00 4 00276
01233
0774 00 4 00024
01234 0500 00 4 00000
01235 ' 0 6 0 1 00 4 01367
01236
2 00001 4 01234
01237 0522 00 0 01402
01240
0020 00 0 01242
01241 0020 00 0 01245
01242 0522 00 0 00751
C1243 - 0 7 7 4 0 0 4 0 1 3 6 7
01244 0522 00 0 00361
0774 00 4 00000
01245
0500 00 4 00001
C1246

707
708
709
710
711
712
733
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
75 6
757
758
759
760

BIRTt1DAY ASSEMBLY

--

---

."

8R

SYN RDS
ORG
CMMND+l
0
HED
BCDIM EQU 0
RTX
SYN
CBRTX
HEAC
D
SPACEX

- ------ --

LC071300

8 RIGHT ROW

- -- --

---

__ _

--

.
.

--- --~ - ~ P o _ ~ P _ o _

-- --

-.--. - ---- -.---.-"-

LC071400
- -Lc01-39oQ
LC071800

.--.

--

-.

-_

-i_jN.L
PRFLNNJE!X _ - - -..

PROVIDE S A V A R I T ~ ~ ~ > P A C EON--0:

S -F

SPACEX XEC
TRA
TRA
SXA
CL A
TSX
SPX
AxT
CLA
PAC
XEC
XEC
LX A
T RA
8SPACE IORP
6SPACE IORP
4SPACE IORP
ZSPACE IORP
IOCD

$SWT5
*+2
294
SPX,4
SY S POT
S(IOStr4
++,4
194
014
SWRS
$RCH
SPX.4
2Y 4
ZBLANK,,l
ZBLANKp,l
ZBLANK,,l
ZBLANK,rl
0,,0

*
*

TEST FOR NO O F F - L X E 2 U X U T

RETURN
-SAVE L I N K I R
SET UP TAPES

---

w
D
--m
---

---

--

_ -

RETURN
COUBLE SPACE
DOURLE SPACE
DOUBLE SPACE
DOUBLESPACE
DISCONNECT CHANNEL

--

._.--

--

---

---

------

1.5L1370
1.5L1380

- -s

__ -

- - .-

- - - - - %
-

__

__ LC02P_40P
LC029600
LC029800
1.5L1390

SAVE L l N K I R
- - _- _ _GET PARAMETER WORD
1.5L1440
SET C C ~ ! _ I S - . _ c 0 M _ M A ! L ~ - _ _
__
END OF BLOCI<
1.5L1460
1.5L1470
SET M O V E _ C I l _ o L - - N A I T FOR COMPLETION OF LAST OPERATION

WOTX.4
214
WOTC
BQ20
WOTM
BTCG
STCG
1 ~ 4
$(IOS),4
20,4
**, 4
WOTB,4
YQTM.491
BSWT5

_-

--

-- -- --

RESTORE L I N K I R
GET PARAMETER
COMPLEMENT INTO I R 4

*+2
MOT X
BWRS
NOTCt4
dRCH
**r4
it+

--

OUTPUT
BCD OUTPUT ROUTINE FOR L I S P
* SWITCHES...
-- *
3
PRINT ON-LINE
u
5
DONT k R I T E TAPE FOR OFF-LINF P Q I N T I N G
OUTPUT SXA
CLA
STD
ADD
STA
STL
XEC
CLA*
TSX
AXT
WOTM CLA
ST0
TIX
XEC
TRA
TRA
XEC
AXC
XEC
VOTX
AXT
CLn

-----_-

-.

- -.-- .
- -- - ---

--

1.5L1510
1.5L1540
- 1.5L1550
I. 5 L 1 5 6 0
1.5L1570
-____--1.5L14l.O

-..------

TEST FOR NO TAPE OUTPUT

-.-

-1--5L142(3

--

- --

--

..-

-.------- -

- -

1.5L 1 4 3 0
-..-! -2I!3.!LO
1.5L1590
1.5&1600
1.5L1610
1.51-1620 __
___---_._-

_ _

--

0 0 0 0 0 0

- ----

--

--- -

GET T A P E SPECIF~CATION
SET UP 1-0 COM!N!?S
MAXIMIUM THAT MAY BE ON 1 RECORD
MOVE INTO BUFFER

IS OUTPUT ON T A P E
TEST FOR ON-LINE OUTPUT
SELECT TAPE
.
POINTER TO 1-0 COMMAND
---- RESEl ANF LOAD CHANNEL
REST ORE -L~"S-IR
TEST FOR O"J-'-I!!!L

-.,.a-

--

-- - -

--

--

.-

--

---

-------"

------

- -.

"

---

--

---

-.

----

- -- -- --- - -

-_
BONNIE-5

PAGE 2 1

.. _...

---

..

.- - . -.

._

--.___._I-

BIRTHDAY ASSEMBLY

01751
01252
CL753
01254
01755
01256
01257
01260
01761
01262
01263
01264
01265
01266
01267
01270
01271
01272
01273
01274
01275
01276
01277
01300
01301
01302
01303
01304

0 6 3 4 QO
0634 00
0 6 3 4 00
0600 00
0600 0 0
-0534 0 0
1 01343
0634 00
0766 00
0520 0 0
0760 00
0774 0 0
0600 0 0
2 00001
-0500 0 0
0634 00
0560 00
0774 0 0
0602 00
-0754 00
-0763 00
-0520 0 0
0500 00
0767 00
0734 0 0
-0500 0 0
-2 0 0 1 4 0
-0602 0 0

4 01334
2 01335
1 01336
0 01340
0 01341
6 01367
4 01260
4 01271
0 01361
0 01340
0 01371
4 00030
4 77714
4 01265
0 00455
2 01274
2 00000
2 00006
0 77714
0 00000
0 00006
0 01341
0 00427
0 00001
1 00000
0 77714
1 01305
4 77707

---- -- - - - - .-- - .
- -- ..-- - 1.5L1630
ON-LINE SENTE SWITCH
$SWT3
761
XEC
L.5L.l-640 -----.
.-'
767
TPL
7.4
E X I r ~ . . .
716A0001
7 6 3 * DM 716A
48 CARDS - 02-09-59
--_ --_11480 QQL
- - "
7 6 4 +BCD ON L I N F PRINT KOIITINF FOR 709
i
7 6 5 + MOOIFEO FOR USE I N L I S P 1.5
766
WOTON S X A
rlOTU. 4
PRINT O t - U _ N L .
---.- --SAVE INDEX REGISTERS
WOTVyZ
767
SXA
768
5XA
kOTW* 1
---~
- - - --- " . -- - - -- -.----- -,
769
S TZ
WOTT
SET SWITCH
770
STZ
WOTS
SET SWITCH TO SK ILLIRSLWARAC.TTER
"
COUNT I N INDEX 4 AND 2
771
LXD
WOTC* 6
I
777
TXI
++1,4,WOTB-20
A OD 8 EG INN IhLF--QF~_BLF~F_EERRRRRR
SET ADDRESS
BC05~4
773
SXA
-.
7 7 4 BC02 WPDA
SFLECT PRINTER
- - _ _ _ - . - 7
U
Q
h
-.--.-.-----.-.
'
SKIP
O
N
FIRST
72
CHARACTERS
775
ZET
NOTT
.~.%
._
.-_.-I-_I
776
SPRA
9
SET UP SECOND HALF OF LLNF716AOOlO
24p4
CLEAR
777
AXT
WORK ING
UBaQU-.--._I--_--STZ
COMMON+26 94
778
779
TIX
*-It49 1
STORAGE
716AOO12
STROBE STARTFR
- 2 A - Q B U ---- -..-__-------7 8 0 BC03 CAI
BC50
7 16A0014
ECOlr2
WORKING CELL FOR N
7 8 1 BC04 SXA
--7_1_480415_
.-- - .
7 8 2 BC05 LDQ
0,2
PICK UP WORD_T=N_YE!3T
_
716A0016
6-2
X2 COUNTS 6 CHARACTERS
AXT
783
784
BC06 SLW
COMMON+Zh
STROBE
----- .
- -.
- 714AQW--_ -- _ -__- .7 8 5 BC07 PXD
**to
716A0018
786
LGL
6
LOOK AT
--------_
Zl_dA.Q9.L%
...
- ...-787
NZT
WOTS
SK.IP I F NOT FIRST CHARACTER
788
C LA
fii&O
GET DCO BLANK FOR-LELDJ-NC LHARAACT-E-R . ._
789
ALS
1
ONE CHARACTER
7 16A0020
PAX
,1
--- -- -- -- 7 16A0.02 1
-.
790
COMMUN+2h
STROBE
716A0022
791
CAL
++2 11~ 9 6
NOT 0
- --792
TNX
..- -- --ZldAARO 23--- .- . - - 793
COMMON+Zl, 4
0
716A0024
ORS

01305
01306
01307
01310
C1311
01312
01313
01314
01315
01316
01317
01320
01321
01322
01323
01324
01325
01376
01327
01330
(31331

3 00136
-2 0 0 0 7 6
-0602 00
-2 0 0 0 0 2
-2 0 0 0 3 6
-0602 0 0
-2 0 0 0 0 2
-2 0 0 0 2 2
1 00002
-0602 00
-0602 00
0 7 7 1 00
=0625 0 0
2 00001
0534 00
-2 0 0 0 0 1
-0100 0 0
-3 0 0 0 0 0
1 77777
0540 00
-0625 0 0

1
1
4
1
1
4
1
1
1
4
5
0
0
2
3
2
0
4
4
0
0

794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814

01247
01250

0522 00 0 01400
0170 0 0 4 00003

m 0

4
A

i
--

0
T

&

-2

,,a.
L

1
20
19

18
17

16
1.5
14

13
12
11
10
9

01320
01311
77711
01320
01314
77713
0132001317
01316
77667
77707
00001
01341
01273
01274
01330
01270
01330
01267
01342
01340

--

""

'

3 .

99

-------

BCO8

__
DC15

TXH
TNX
ORS
TNX
TNX
ORS
TNX
TNX
TX I
ORS
OR S
ARS
STL
TIX
LX A
TNX
TNZ
TXL
TXI
RCHA
ST L

bC0871,94
++3,1,62
COMPDN+23r4
8C08,1,2
*+3r1,30
COMMON+25 9 4
BC08,1,2
* + 3 9 1918
*+l9112
COMHON+594
COMMON+21,5

I
W OT S
BC06,2rl
BC01,3
BClSt2, 1
BC04
BC15,4,0
8CO3,4+-1
8C49
WOTT

_ _- _

BLANK--_
NOT 11
11
NOT 1 2
12

--

--_

-_

- -.

716A0025
..
- 716A002b
--.
716AOOZ7 ---_
.- --.--- 716A0028
~ 7 ~ O 0 2 9 _ _ _ -- - l..-_. - - --.
716A0030
-.
.
.
-- -. - -- 7 1 6 A 0 0 3 1 71680032
7_14A00_31_ .._ . -.
7 16A0034

---

_____-.

NOT

-- - - - -

_- --

COMBINATION

-- - - - - -

8 COMBINATION
NUMBER
_______..
MOVE STROeE

------___.-.

SET S W I T C H
_
BACK FOR NEXT CHARACTER
N
--- -OUT I F N WOROS DONE

.-

_ _

_-

--

BACK FOR REST E_HALF=C_A_RD-------------------"

R IGHT-HAL F DONE
BACK FOR RIGHT
-- HALF
_
- SET SWITCH FOR__SE__CONO
HALF_-L_IN.E__

---

....._L EAI\C!O-3-5--- -- - - . . .. - .

--.

716A0036

716~0037
716AOP38- _ 716A0039
7 1 6A0040
------,--7 16 A 0 0 4 1
716A0042 - - _ _ _
716A0043

--

----

-- ..-

p
p
-

--

-- - - - ---

- - -

- --"

"

--

- -- -..---

- -

- - - - - - - -

PAGE 22

c
?

01367
01367
01370

3 00001 1 01261

0060
0774
0774
0774
0020

00
00
00
00
00

0
4
2
1
4

01333
00000
00000
00000
00003

0 00000 0 00000
0 00000 0 00000
0 00030 0 77664
01274
00455

2 U0000 0 01343
0 00000 0 00000
00364
00363

.
!

!?

01371 0762 00
(21372 0 5 4 0 0 0
01373 0544 0 0
01374
0021 00
0 1 3 7 5 -1 0 0 0 0 3

0
0
0
0
0

01321
01375
00000
00001
00000

".
D

2
e",
cn

BIRTHDAY ASSEMBLY

--

01332
01333
01334
01335
01336
01337
C1340
61341
01342

BONNIE-S

C1376
01377
01400
01401

0
0
0
0

76000
76000
76000
76000

0
0
0
0

00161
00162
00163
00164

C1402
01403

0 76000 0 00165
0 76000 0 00166

815
TXH
BCO29111
816
TCOA
*
817
WOTU 4XT
,914
818
WOTV AXT
**, 2
819
WOTU AXT
**, 1
820
TRA
394
821 *
822
!$CTT
823
MOTS
8 2 4 8C49
IOCD
COMMON+2lq24
825
BC01 SYN
BC07
826
BC50 SYN
OSBIT
827
828
WOTB BES
20
8 2 9 WOTC
IORP
WOTB-20, ,**
830
IOCD
0.10
8 3 1 BCDOUT SYN
SYSPOT
8 3 2 PPTOUT SYN
SYSPPT
833
834
8 3 5 PSHLDB RCDA
836
RCHA *+3
837
LCHA O
838
TTR 1
839
IOCT 0 1 1 3
840
HEAD
0

BACK FOR MORE WORDS

R E S T O R E INDEX

--- ----

EX I T

-------NON-ZERO
--------ON

p
"

841
842
843
844
845
846
847
848
849
850

.-..--

REGISTER~

ZERO
-

SECOND
---------.----..
HALF L I V E
FOR FIRST CHARACTER
v m

1
2
3
4

2
L"

8
20

19
18
17

16
15

14
13
12
11
10

9
8

01404
01405
01406
01407
01410
01411
C1412
C1413
C1414

0760
0760
0760
0760
0760
-0760
-0760
-0760
-0760

00
00
00
00
00
OD
00
00
00

0 00141
0 00142
0 00143
0 00144
0 00140
0 00141
0 00142
0 00143
0 00144

851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868

SWT5
SWT6

SWT
SWT

5
6

OUTPUT BUFFER
WRITE RECORD FROM BUFFER
DISCONNECT CHANNEL

SLN
SLN
SLY
SLN
SLF
SLT
SLT
SLT
SLT

- - --

- --

----

,
O<

--

---

--

- --

--

- -

__

--

----

----

1.5L1770
1.5L1780
1.5L1790
-- 1
~
1.5L1810
---- 1.5L1820

---

-- -------------

.-

--

---------

---

--

------

~- - - ~

--

- --- -- - -- - - - -

----------

---

---- -

--

1
2
3

LC07290L
LC073000
L C 073100
LC073200
LC073300
LC073400
1.5+0201
1.5L1730

-a-7-.--

.."---

1
2
3
4

\=-

1.5l.1700
1-5L1710

-- -- - .- -.-

---

1.5L1660

SENSE LIGHT AND TEST INSTRUCTIONS TO BE EXECUTED OREUMMYED

SLNl
SLNZ
SLN3
SLN4
SLF
SLTl
SLTZ
SLT3
SLT4

--

- .-

716A0047

-------

SWT
SWT
SWT
SWT

------

- - -- . - .- -.

OSWTN COMMANDS
ALL SWT COMMANDS ARE EXECUTED
NOTE...,
SWT COMMANDS MAY dE SIMULATED BY MAKING DOWN SWITCHES
Z ET
4ZERO
AND UP SWITCHES
-- -- .NZT
5ZER3
SWTL
SWT2
SWT3
SWT4

-.

7 16A0044
7-16A0045

- ---

-.--.

-.----

--

- -- - - -

--

----,--

--

--

...

...

HEAL
D
C043 7 8 6 K. CALEY
GETTM
READ C L O C K
KECODED Ah0 SQUEEZED BY D. 4 . E C W A R C Z

ROUTINEF O R - 7 0 9
- ----- -

- - --

- -LC073500
- ------

- -- -- .

......
-

1.5P0300
LC073700
LC073800
- --

--

--

----

-- --

--- - - -- - -

--- -

PAGE 2 3

BONNIE-S

--

c,

2
2

3
+,

2u

20
17
18

17

16
IS
14
13

12
11
10
7

01415
0762 00 0 0 1 3 6 1
01416
n634 00 1 01510
01417
0634 00 2 01511
0 1 k X I 0634 00 4 01473
01421 0774 00 2 00041
01477
0600 00 7 77773
01423
2 00001 2 01422
054&-20 0 0 1 5 1 5
01474
01425
0760 00 0 01367
01476
0 7 6 0 00 0 0 1 3 7 1
01427 -0140 00 0 01431
0 1 4 3 0 -0 6 7 5 0 0 Q 7 7 6 6 7
01431 0544 00 0 01520
01437 0774 00 4 00011
01433
0544 00 0 01516
01434 0560 0 0 0 77667
01435
0774 00 2 00002
01436 -0754 00 0 00000
01437
0774 00 1 00006
01440 0 7 6 7 0 0 0 00005
01441-076300000001
01447 7 00001 1 01440
01443 -0602 0 0 2 77665
01444 -0500 0 0 2 77667
01445
0361 00 2 77665
01446
0602 00 2 77667

869
GETTM RPRA
A70
5x4
871
SXA
877
SXB
873
AXT
87 4
ST 7
TIX
875
876
RCHA
877
~ P R A
878
SPRA
879
TNO
ST!
880
881
LCHA
882
AXT
883
LCHA
884
LOAD 1 DQ
885
AXT
PXD
8 8 6 CONV
887
AXT
888
Al S
889
LGL
890
TIX
891
ORS
832
CAL
893
ACL
894
SLW

01447
2 00001
01450 0544 00
01451 2 00001
0 1 4 5 2 0 5 4 4 00
01453
0560 00
01454 -0754 00
0 1 4 5 5 -0763 0 0
C1456 - 0 1 0 0 O C
0 1 4 5 7 -C5CO 0 0
01460 -0763 00
C1461 - 0 5 0 1 0 0
C1462
0767 00
01463
0602 00
01464 -0754 0 0
C1465 -0763 0 0
01466 -0100 0 0
01467 -0500 0 0
01470-0763 0 0
01471 -0501 00
01472 -0501 00
01473
0774 00
01474
0 6 0 2 60
01475 -0754 00
01476 0560 00
01477 -0763 0 0
01500 -0100 00
C1501 -0500 0 0
C w - 0 7 6 3 OC

895
896
897
898
899
300
901
902
903
904
905
906
907
908
909
310
911
912
913
914
915
916
917
918
919
920
921
922

2 01436
0 01517
4 01434
0 01513
0 77665
0 00000
0 00006
0 01460
0 00427
0 00014
0 00430
0 00022
0 77665
0 00000
0 00006
0 01470
0 00427
000014
0 00427
0 77665
4 00000
4 00001
0 00000
0 77666
0 00006
0 01502
0 00427
0 00036

- - --

T IX
LCPA
TI X
LCHA

LDQ

EXC

PXO
LGL
TNZ
CAL
LG L
ORA
A LS
SLW
DXD
LGL
TNZ
CAL
LGL
ORA
ORA
AXT
SLW*
PX D
LDQ
LGL
TNZ
C AL
LGL

- --

- --

--

- -- -

--

- ---

--

--

- -

__

'

- --

"

--

U
2
8
D
U
2
8
D
.
.
U
2
8
D
U
2
8
D

--

691
5
1
*-2,1.
1
COMMON+3,2
COMPON+5t2
COMMON+3,2
COMMUN+5.2
CONV9291
SKPl
LOAD,4,1
ZERG
COMMGN+3

- --

0
-

--

- - . -.- -

-----

.---

LC075900
-LGQ16000
LC076100

- . _ - _ - L ( ; Q 7 6ZaO

_-__cS;015_4ao----

IOCLN ZEROKL~ IOCT C~OMMO_N,.l_

COUNTS ROWS
IOCD 0 , v o
DI-SCO_NNNNECT_PR_INTER
DATE

---------

LC076300

--

..

--

-- - -

---*-----

--.

..
..

__-

--- -

* -.

..
..
..

INSERT BLANK

- --

---- -..- - -

-- -

-- _

--

---

.-

--

- --

.-

-- --

___ - ----.
- -

. .

__

.-

- -- .

--

~_c_cI!Ls.z@oOOO
- - . -- --- - .

RESTORE
L I N-KI N I R
'
STORE DATE
REGISTER
SP&CIF_IED

.-

LC077900
L C_07Ss4PP_LC078100

PROVIDE BLANK AS LAST CHARACTER

_-

I
I_

- - .--

-_

.-.--

-.

LC076500
LC9764_(30 _
LC076700
LC076800
LC076900

---

_
- -

LC077100
.a
- : - ---L
C-072
_ . - ..
INSERT BLANK
LC077300
. -_
----LC
0-7 7-44 0- .
INSERT / BETWEEN MONTH AN0 DAY
LC077500
I--LLS-0_7_7_$QO-_QQQQQQ
_
o
LC077700

PO

--

mm-QQQ---- --

.------------

- 0

LC075700

..
..
..

6
*+2
OCT6O
12
OCT6l
18
COMBON+3
6
*+2
OCT6O
12
UCT6O
COMPON+3
**r4
194

--

a o

LC078300
-.LcO-7_840_0
LC078500
LC_0_78_6_0.0- _-

-- _

_ _

- --

- .

YO

COMMON+4
6
*+2
OCT6O
30

....

--- - -- -L C 0 7 8
-80O.

TIME

--

BLANK
- 0

-- -

--

- -- -

--

"

--

-- --

- -- -

--

LC078900
LC079000
LC079100
LC-079200 _ _ _

-.

-- ----

-- - - - - -- - LC073900
FXA.1
I------.----.-------I
LCQZ4QOO-.EXB 12

LC074100
E XC L-----_ ----- - - - --- - l f 0.Z4200 - - - 339 2
SET UP FOR LOOP
LC074300
COMMON+33.2 - - A - G B B I L - W A N Q - M Q R K i b l G STORAGE-_.Lf97kUlQ+-l,2rl
LOOP
LC074500
SKP77
W ? I N E L - 1 0 - S K I P P I N L.FlRS-T 2 7 JOZDSLC074600
SENSE TIME CLOCK
LC074700
7
9
<ITE C H O E N E
L . --- - L f QZ484Q ---*+2
SKIP I F OVERFLOW LIGHT OFF
LC074900
COMMON+5
O V F R F U G H T ON-M.AXFCOMMON+5 = , ! ! C I O _ - - - - ONWC
9 RIGHT ECHO
LC075100
9.4
ROW W
T
--------LtOU28D
SKP3
IOCPN ZER0,,3
IOCT COMHON,yl
LC075300
COMMON
-- - -- - L m 4 Q O -- .
2.2
o
LC075500

BIRTHDAY ASSEMBLY

--

--

__.-_---..-

.__

'

--

-PAGE 2 4

CJ

1
I

-c,
v

E
L

$
L"

2
",
9
"2

a",
L"

!
20
19

18

--

- -

BONNIE-S

-0501 00
0602 60
0767 00
-0520 0 0
0140 00
0774 0 0
0774 00
0020 00
0 00000
0 00000
-1 0 0 0 3 3
-0 0 0 0 0 2
-0 0 0 0 0 1
-1 0 0 0 0 1

0
4
0
0
0
1
2
4
0
0
2
2
2
0

00431
00002
00010
77667
01510
00000
00000
do003
00000
00000
77670
01513
01513
77662
00427
00430
00431

01521 0634 00 4 01531

01522 0 0 7 4 0 0 4 01415
01523
0 00000 0 01535
01524 0 00000 0 01536
C1525
0074 0 0 4 01222
01526
0 00000 0 00364
01527
0 00021 0 01533
01530 -0754 0 0 0 00000
01531 0 7 7 4 0 0 4 0 0 0 0 0
01532 0020 0 0 4 00001
01533
006063302560
01534
633144256074
01535
606060606060
01536
606060606060
01537
346030216260
01540
234644257360
01541 633025606621
01542 4351 64626062
C1543
213124736063
01544 466063214342
01545
604626604421
01546
457060633031
(21547 4 5 2 7 6 2 6 0 3 3 3 3
01550 333333606060
01551 404325663162
01552
602321515146
01553
43*340606060
01521
01415

16

14
14

12
11

10

---

BIRTHDAY ASSEMBLY

---- - --

- -- --

- - - --- - -- -.

01554
01555

0420 00 0 00007
0020 00 4 00001

923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952

-.

--

01503
01504
01505
01506
01507
01510
01511
01512
C1513
01514
01515
C1516
01517
01520

17

13

ORA
OCT 33
294
SLW*
ALS
8
NZT
COMMON+5
TOV
*+1
091
EXA
AXT
012
EXB
AXT
TRA
3&
--- _-ZERO PZE
0
PZE
SKP27 IOCTN
COMMON+6,,27
SKP3
IOCPN
LEROgv2
SKPl
IOCPN
ZEROIIl
ONWD IOCT
COMMONI ,l
OCT6O SYN
$6060
OCT61 SYN
BQ06 1
OCT33 SYN
Q033Q2
* r I M E PRINTS THE DATE AND TlME
TIME
SXA
TIR94
TSX
GETTM94
TR+2
TR+2+1
TSX
OUTPUT14
BCDOUT
TRtrl7
PXD
0 10
TIR
AXT
**, 4
TRA
194
TR
BCI
1.0 THE
BCi
9,TIME (

- --

PROVIDE D E L I MAL POINT

STORE TIME
TURN ON OVER FLOW
LEAVE -ON I F COMMON+5JS_N_ON ZERO
TURN OFF OVER FLOW LIGHT
KES T O R E X 5

OF MANY THINGS

- - -- -

----

--

--

--

---

--

- -

HED
SYN
SYN

DST IME
DSGETTM

--

------ --

--

HPR 7
TRA 1 9 4

5
4

--

- -

a
.

------

- - __ _

-- -

..

- -- --

--

- -.-- --

--

- - -- -- -- - --- ---

--

.--

-- - -

- --

--

-----

--

-LC085000
- --- -

--_

---

- -

-- - --

.-

"--

-"

LC08J100
LC090700
-

--

.--

- -

- - -- -

------ -

".
-

-.--

-..-

1 5P0301
1.5P0302
- -.-.- --LC086800
LC086900
LC087000

- - - - --

.-

-- - .
.

--

- - -- -

- ----

ai

---

_____

- -

1.5P0400

- -.-.
-

--

--

- -

---

-.

-- ------

- ----"

---954 0
955
TIME
9 5 6 GET'TM
957
9 5 8 PAUSEF
9 59
960
961
962 *

- -

-LEW IS CARROLL-

--

- ----

--

.....

-- _-__

----- - -

r.

-----A-

LC081800
LC081900
1.5P1399
THE WALRUSSSAID9 TO TALK -12-jP0399-

-- ----.

--

"
-

RESTORE L I N K I R
RETURN
HAS COME,

--

LC081600
1.5P0398

---

LC079900
LC080000
LC080100
LC080200
LC080300
LC080400
LC080500
LC080600
1.5L3190
1.5L3200
1.5L3210
LC081000
L C 0 8 11 0 0
L C 0 8 1 2 0 01.5P0395

S A V E LINK
IR-GET TIME FROM ON-LINE CLOCK
STORE DATE
STORE TIME
-.
PRINT OUT DATE AND TIME
ON BCQ OUTPUT TAPE

- -- --

--ux~8PP

BCD /
BCD .O

--

7,

_
-

SKIP TWOWOROS
S K I P ONE WORD
TRANSMIT ONE WORD TO COMMON

LC079300
- L-ClJ79400
- ---.LC079500
--LCOlE9P6bO0 LC079700

EXIT..

861

- - -- -

.. ..,...
-.
..

---

953

-.-- . -

--

- --.--

-PAGE 25

I
e

E
B L

"

",
=

z
"
,
>
Ul

8
20

19

18
17
16
15
14

13

12
11
10

9
8

BOYNIE-S

963
964
965
966
01556 0 00000 0 00000
967
01557 0 00000 0 00000
968
969
01560 0 00000 0 00000
Ti1 561 0 GQQQO 0 30000
970
01562 3 00000 0 01563
971
977
01564 0522 00 0 11665
973
01565 - 0600 00 0 01557
974
01566 0604 00 0 01560
975
01567 0634 00 1 01561
976
01570 -0634 00 2 01561
977
01571 0441 00 0 10340
978
01572 0055 OG 000010
979
01573 0604 00 0 10340
980
01574 0601 00 0 01655
981
01575 0500 00 4 00001
902
01576 0601 00 0 01662
983
01577 -0535 00 4 01562
984
01600 -0754 00 4 00000
985
01601 0131 00 0 00000
986
01602 0074 00 4 11021
987
01603 -0501 00 0 00452
988
C1604 0602 00 0 01664
989
01605 0074 00 4 01222
970
01606 0 OOOOC 0 00364
991
01607 C 00011 0 01656
992
01610 0520 00 0 01654
993
01611 0020 00 0 01650
994
01612 -0625 G O 0 01654
995
01613 0500 00 0 01655
996
01614 0074 00 4 04604
397
01615 0054 00 000200
998
(21616 0020 00 0 01646
999
01617 0560 00 0 00370
1000
01620 -0534 00 4 11670
1001
C1621 1 77777 4 01622- 1002
01622 -0634 00 4 01624
1003
01623 -0534 00 4 02317
1004
C1624 3 00000 4 01644
1005
01625 -0500 00 4 77777
1006
01626 -0320 00 0 00461
1007
01627 0322 00 0 00451
1008
C1630 0100 00 0 01633
1009
01631 0074 00 4 02326
1010
01632 0020 00 0 01634
loll
01633 0074 00 4 17330
1012
C1634 -0534 00 4 02317
1013
01635 0500 00 4 00000
1014
C1636 0734 00 4 OOOOG
1015
01637 -0754 00 4 00000
1016

--

--.--.-

.-

---

- -

-. .

--

--

--.

B I R T H D A Y ASSEMBLY

--

ERROR

cr

*
*

--

PROCESSES A L L L I S P ERRORS. NORMALLY G I V E S ERROR NUMBER,

FRK!XJ.JXALLON.
I LiP PR I NT OF U L B A W ( I R A C L l a E L L - F U N C T I O N S E N T E R E D ON P U S H DOWN L I S T .

_- --

- - -- --- - --

N 7J

XE c
STQ
ST1
SX A
SXD
1D I .
SIR
$TI
ST0
CLA
ST0
L DC
PXD
XCA
TSX
OR A
SLW
TSX

ZET

BEX

TRA
STt
CL4
TSX
RFT
TR A
LUQ
LXD
TX I
SXU
LXD
TXH
CAL
ANA
ERA
TZE
TSX
TRA
TS X
LXD
CLA
PAX
PXD

--

-.
--

- --

-.-

ERAC
FRMQ
ERIND
ERX
ERROR T X H

-.
- .--

--

- ---- - - -

P L A C E TO STORE M A C H I N E R E G I S T E R S

*+I,,* +

--

- - -- -

- L N X . A - ~ U . L ~ ~ E -.2
X

---

114

-_

--

-.

--

_-

_ -.-

-.-

--

---- ->.-- -

P I C K UP SYSTEM I N D L C C L T Q ! S
SET ERRUR H A S OCURRED I N D I C A T O R
U P D A T E SY S T E K - I M K A T D R - C - E L L 2
AC T O B E P R I N T E D
ERROR NUMBER TO A(;___
PUT I N ERROR MESSAGE
--- --- - -- - -.--

E RM
ERROR 9 4

-- --- ---

--

INDEX 4
Skf IF F R R O L m G ~ L S _ U L E I X E L U J U ,
NORMAL S E T T I N G GOES TO E V A L Q U O T E
S A V F M A C H I N F R F G I IZEBL.

FRNUl l
EREXIT
ERMLI
ERIND
ERX. 1
ERX.2
SYS ~ N D
ERROR1
SYS I N 5
ERT

--

.
.-

- .

- -.

094
--

AND CONVERT TO E C A T LL____-_._--_

OCTALPp4
OBLuNK
ERN
OUTPUT94
BCDOUT
ERO, ,9
EACACT
BACER
GACACT
ERT
SPRINT94
NOBACT
BACC
$ZERO
NUBPDLp4

INSERT L E A L I N G - B U
PUT I N ERROR MESSAGE
W R I T E O U T ERROR MESSAGE

-- - - - - -- -

*+1,49-1
t3EX94
2CPPI 9 4
B A C T D v 4 , +*

-1 7 4
GPMASK
SQP5 -

++3

UNSAVE94

- - - --

--

--

S K I P I F BACK TRACE I S NOT A C T I V E

GO T o SPEL.-IAUQ!UMEEEE
-MAKE BACK TRACE R O U T I N E A C T I V E
PI C KUP AC ON ENTRANCE - - -.
_
PRINT I T I N L I S P
-

_ --

--

T E S T FOK NO BACK TRACE-_

GO TO E X I T
L E R o THE ERR0RLLS-I
B E G I N N I N G OF P U S H DOWN L I S T
P U S H UP f ! L Z 1 _ _ _ - - SET UP A L L DONE T E S T I N S T R U C T I O N
P I C K UP CURRENT P D L COUNTER -_

--

--

- -

--- - -

-- --

- -

.-.-

--

- -.
-

GO
L L UNSAVED
E
I T HI EF R A UNSAVE
OR UNWND
-- _
D E P E N D I N G ON C O M P I L E D OR
SYSTEM S W _ u r I N E - _ P _ U I _ _ I _ T _THEBE_
-. T E S T I S FOR STR OP
I N L A S T WORD OF-BLOCK FROM C O M P I L E R
_

--

-_ -

--

- - --

-.-

--=---

--

- -.-

_..-

- --

*+2

CeUNWND, 4
BCPPI 9 4

09 4
094
094

BEGINNING

--------

OF BLOCK

JUST

- L a s L I R 3_w_oRo ..
FUNCTION ATOMIC SYMBOL
-

PUT

IN

GECR_EPEJT
--

___

--

----

UNSAVED
-

.-

- -

_ _

PAGE 26

I!

C1640 0074
01641 0131
01642 -0534
C1643
CO70
C1644 0 1 3 1
0 1 6 4 5 0074
0 1 6 4 6 0600
C1647 C522

00
00
00
00
00
00
00
00

4
0
4
0
0
4
0
0

0074 00
0 00000
0 00007
0020 0 0

4
0
0
0

03730
00000
02317
01624
00000
04604
01654
11665

01654
01655
01656
01657
01660
01661
01662
01663
01664
01665
01666
01667

01222
00364
01667
01646
000200
0 00000 0 00000
0 00000 0 0 0 0 0 0
005454546025
515146516045
644422255160
0 00000 0 0 0 0 0 0
603145242567
600460136060
0 00000 0 0 0 0 0 0
604623632 143
336054545460
005454546021

01670
C1671
01672
01673
01674
01675

224665256025
515146516063
255144314521
632524602221
234240635121
232560545454

rl

"7

g
"7

C1676
01677
C1700
01701
01702
01703
C1704
01705

H
m
19

1a

0520
0020
-0634
-0535
0634
-0634
-0625
0020

00
00
00
00
00
00
00
00

0
4
4
4
4
0
0
0

01706
00001
01562
01562
01717
01717
01765
01722

17

16

01706

0 00000 0 0 0 0 0 0

01707
01710
01711
C1712
C1713
01714

0601
0500
0621
0622
0500
0601

IS

14
13
12
II

10

---

B I R T H D A Y ASSEMBLY

-- -

- -.--- -

--

- ----

.- .-

00
00
00
00
00
00

0
0
0
0
0
0

77662
00000
01717
01717
00177
00000

1017
1018
1019
1020
1 0 2 1 RACTD
1022
1 0 2 3 EACO
1024
1025 *
1 0 2 6 BACER
1027
1028
1029
1030 NOBACT
1031 BACACT
1032 E R T
1 0 3 3 ERO

TSX
XCA
LXD
IRA
XCA
TSX
STZ
X EC
TSX

..

--

--

----

--

--

01650
01651
01652
01653

4
4

BONNIE-S

SCONSr 4

$PRINT74
BACACT
EREXIT

T RA
BOOL

BCI

3r0***

--

ADD TO ERROR L I S T
ANSWER T O MQ
-P U S H DOWN I N D I C T O R
GO B A C K F O R -NE -X L
__ -L I S T T O AC
P R I N T T H E ERROR L I S T
DE-ACTIVATE THE BACK TRACE R O U T I N E
..--.---NORM&L.- SE_TT_I_NG GO_ES TO - E V A L O U O T E

B C P P I 14
BEX
-

OUT P U T T 4
BCDOUT
B A C E r 97
BACC
200

--

-- -- -

--

- - .- --

--- --. --

---

_-

- ---

--

__

- --

RESET AND RETURN

NO B A C K T R A C E I N D I C A T O R
NON-ZERO M E A N S B A C K T R A C E A C T I V E
TEMPORARY S T O R A G E F O R AC
-

ERROR NUMBER

1034
1035

ERM

1036
1037

ERN

1038

BACE

ERROR NUMBER I N BCD GOES H E R E

ECI

2r I N D E X 4 =

--O C A T L L O C A T I O N GOES HERE

BCI

2 9 OCTAL.

BCI

7rO***

***

***

A B O V E ERROR T E R M I N A T E D R A C K - T R A C E

-----.----------,--

- -

.-

- - - --- -- -- .---- -- - ----- -

-.-- -----"

-----------

LC39 *
1040 * F L A P T K ANC D C T
G I V E ERROR D I A G N O S T I C S F O R F L O A T I N G P O I N T
T R A P AND1.5M4800
1041 4
D I V I D E C H E C K I N C L U D I N G L O C A T I O N A N D C O N T E N T S O F AC.
1.5M4810
1042 *
d O T H MY B E I G N O R E D B Y M A K I N G C E L L F P T G N R NON-ZERO.
1.5M4820
____----1043 *
1.5M4830
1044 DCT
ZET
FPTGNR
T E S T FOR I G N R E ERROR F L A G
--------1.5M4840
"--1045
TRA
1r 4
RETURN
1.5M4850
1046
SX D
$ERRORT~
S A V E I R 4 LOCT
1.5M4860
i -O
I NDF
-EN-TRANC.E--.-.
I
.-. ----- ---1047
L DC
$ERROR. 4
1.5M4870
1048
SXA
FLXTv4
SET T R A P A O D R E S S
--- _1049
SXD
FLXT9O
i E R O THE DECREMENT
1050
STL
FPTDV
1.5M4890
S E T D I V I D E C H E C K FLAG
----.----------------1051
TRA
FPTA
00 F L O A T I N G P O I N T T R A P ERROR
1 5M4900
1052 4
1.5M49l.O
.
- - - 1053 F P T G N R
T E S T C E L L ISNON-ZERFTO-ENFRETRAP
s---1054 *
-- --- --- -. 1055 F L A P T R S T 0
COMPON
S A V E AC
1056
CLA
0
GET T R A P L O C A T I O N
---.- "-*. - -- ---.- - -1057
STA
FLXT
SET EXT C E L L
1058
STO
F L XT
. . -.
1059
CLA
FLAPCZ
-NORMAL CON~ENTSOFLERO~
1060
STO
0
---- --- ---- - - -..-

&

W R I T E OUT MESSAGE THAT BACK TRACE

C A U S E D A N O T H E R ERROR

---

--

.----

- - -

--

- .- -

P A G E 27

BONNIE-S

I
m

;
E

2
a
.

5
2

::

-9z

"
I

- ----

--

- -- -- - -

- --

.--

- --

- - ---

-- -

0
0
0
0
4
0
4

--_----

------

--

20
19

i8
17

16
IS

14

13
12
11

10
P

7
6

5
4
2'

- -

- ------ ---- -- - ---- 77662

1061
CLA
COMMON
R E S T O R E AC
n1 706
1067
7FT
FPTGNR
-----.T F S T FOR I G W R F ZBAE
00000
TXL
CIT, ,*I
IMMEDIATE E X I T INSTRUCTION
1063 F L X T
01755
1064
ST7
FPTDV
I N D I C A T F F L A P P N L . TRAP_ .__- -- - - L A & . b e 4 - -.
01562
1065
SXD
$ERROR, 4
SAVE L I N K I R
1.5M4950
0 0 ~ 1 , lo66 FPTA
XCA
AC T D MQ
-- -L5M.49&- .- - -11021
1067
TSX
C O N V E R T TO O C T A L
O C T A L P 14
O 01757
1G o 8
C I :J
F PT AC
-2LQULKZB1,ZB1,ZB1,N-..LEEZ_HALF
OF A C
- 1-5M5020
4 11021
1069
TSX
OCTALPp4
C O N V E R T TO O C T A L
0 01760
1070
51 W
FPTAD
STORE A W A Y R B C L B d E S U G L
1.5&591(1___---0 01717
1071
LDQ
FLXT
GET T R A P C E L L C O N T E N T S
0 00077
1077
RQL
18
POSITION IN-CEEI_HACE_LLLMO
--LLfik5Q9Q--- . _----_
4 11021
1073
TSX
OCTALPv4
C O N V E R T TO O C T A L
1 no o 00452
1074
OR A
nel PNK
M A K F IA E D I N G Z E R O . _ l l - 1
,
---.0 1 7 3 3 0 6 0 2 00 0 0 1 7 5 4
1075
SLH
FPTLO
S A V E O C T A L F O R L O C A T I O N OF ERROR
1.5M5140
0 1 7 3 4 -0774 0 0 4 0 1 7 6 1
1076
A XC
FPTF.4
P O IN T E R T O _ m N I N G I L E I R U W L 1 . - 5 a E O 0
.-- _01735
0520 0 0 0 01765
1077
ZET
FPTDV
T E S T FOR D I V I D E C H E C K ERROR
1.5M5160
01736 0 7 7 4 00 4 01763
1078
AXC
FPTC.4
D I V IDE C H F C K A E S S f i L .
L.-SV5fx0
01737 0500 00 4 00000
1079
CLA
0*4
P I C K U P PROPER M E S S A G E
1.5M5180
01740 0601 00 0 01751
1080
ST0
FPTTY
S T o R F I N ME-&SffiL--.---__--.-_--.__
01741 0500 00 4 00001
1081
C LA
1t4
1.5M5200
01742
0602 00 0 01752
1082
ST0
L*!iM5210
----- - - 0 1 7 4 3 0 0 7 4 00 4 01222
1083
TSX
OUT P U T 9 4
W R I T E EXROR M E S S A G E
01744
0 00000 0 0 0 3 6 4
1084
RCDCUT
-- -- -- - - ----01745
0 00010 0 01751
1085
FPTTY,,8
l
o
8
6
P
X
D
0.0
C
L
A
F
R
AC
01746
0 7 5 4 0 0 0 00000
0 1 7 4 7 0 0 7 4 0 0 4 01563
1087
TSX
$ERROR+lr4
GO T O ERROR PROGRAM
1-5M5220
01750
542760600154
1088
BCI
It*G
I*
FL!ZL&T_I
!tPO_I N U f
R-_L!C_T
. __.
.
_
-.
01751 606060606060
1089 F P T T Y E C I
3r
AT*,..
1 5M5230
01752
606060606060
-- -- - -- -.
- .- - -- .-01753 216333333333
0 00000 0 00000
1090 F P r L O
01754
L O C A T I O N O_FF-----1_~M!5240- - .- -- --- 01755
606631633060
1091
8~ I
2, ' N I T H AC =
1.5M5250
01756
212360136060
- -- - -- - --. -.
0 1 7 5 7 0 00000 0 00000
1032 F P T A C
O C T A L L E F T H A L F OF AC
1.5M5260
01760
0 00000 0 00000
1093 F P T A D
O C TAL RIG
-- H T H -A L F O F--AC-1r5M5270- _
.
0 1 7 6 1 002643214760
1094 F P T F B C I
2 r O F L A P TRAP
1- 5M5300
01762
635121476060
-- -- - -.-- -. -01763
002431653124
1095
FPTD OCI
2 , O C I V I D E CHK
1.5M5310
0 1 7 6 4 256023304260
-- -- --- --- -- .
1096 *
1.5M5320
1097 * T H I S R O U T I N E USES $ERROR,$ERRORPl(
AND FPTGNR
- _ - _ _ 1.5!453_30-- - .-_01765
0 0 0 0 0 0 0 00000
1098
FPTDV
D I V I D E CHECK I N D I C A T O R C E L L
1.5M5350
1099 *
------------ --__
1~5B5-31OO0 __.-1100 *
1
5M5380
1101 + STRPNT
A D E B U G G I N G A I D W H I C H P R I N T S T H E D E C R E M E N T O F T H E AC AS-_lL5M539_0
-1102 *
A L I S T GR DUMPS AC AND 1 R 4 I N O C T A L W H I C H E V E R I S A P P R O P R I A T E .
1.5M5400
1103 *
--- --- - 1-5M54 10
-_
01766
0 5 2 0 00 0 0 2 0 5 1
1104 STRPNT Z E T
STRT
TEST I F ROUNTINE I S ACTIVE.
1.5M5420
0 1 7 6 7 0020 0 0 0 02037
1105
TR A
STREX
I T I S THEREFoklEL&KLLII
_
- _ 1,5M5L4_3ou-01770
0634 00 4 02035
1106
SXA
STRXg4
NO, S A V E L I V K I R
1.5M5440
0 1 7 7 1 0 6 0 1 0 0 0 02046
1107
S TO
STRA
A VE -AC
-- S
--- - .- -- 01772 -0600 00 0 02047
1108
STP
STRC
1.5M5450
SAVE MQ
1.5M5460
01773 -0625 00 0 0 2 0 5 1
1109
STL
STRT
S E T C E L L T C I - I N _ D ~ I ~ T EA C T I V E
_
- ..

01715
0500 0 0
01716
0 5 7 0 00
01717 -3 00000
01770
0600 00
0 1 7 2 1 -0634 0 0
01772
0 1 3 1 00
01723
0074 0 0
C1774
Oh07 M
01725
0074 00
0 1 7 2 6 7 00
01727
0560 00
- 3 00
01731 0074 00

--

B I R T H D A Y ASSEMBLY

-------,---

---

--

- -

91

I
"

"

'
-

PAGE 2 8

1
L
,

>

rn
v

"
I
.A

f
2
, ,n

8
20

BONNIE-S
0560 00
-0600 0 0
-0773 00
0074 00
-0501 00
0602 00
0500 00
0601 00
0074 0 0
0 00000
0 00005
0560 00
0074 00
0602 00
0074 00
0602 00
0560 0 0
-0773 0 0
0074 00
0771 00
-0501 0 0
0602 0 0
0074 00
0 00000
0 00011
-0500 0 0

02026
02027
02030
02031
02032
02033
02034
02035
02035
02036
02037
02040
02041
02042
02043
02044
62045

-0734 0 0
-0320 0 0
-0100 00
- 3 OOOCO
3 00000
-0754 00
0074 00

0
0
0
4
0
0
0

0
0

00000
02052
00022
11021
00452
02055
00177
00000
01222
00364
02053
02046
11021
02064
11021
02065
02035
00025
11021
00006
00452
02070
01222
00364
02060
02046

4
0
0
4
4
4
4

00000
00466
02035
02035
02035
00000
04604

0
4
0
0
0
4
0
4

0
0
0
4
0
0
0
4
C

0 7 7 4 00 4 0 0 0 0 0
0600 00 0 02051
0522 00 0 01403
0020 00 0 02042
0020 00 0 10230
-0754 0 0 0 00000
-0634 00 4 01562
0074 00 4 01563
542660600554

18

16

15

14
13
12
11
10
9

----

-.

-- ---

-- --.--- -- - -

- --

01774
01775
01776
01777
02000
02001
02002
C2003
02004
02005
02006
02007
02010
02011
02012
02013
02014
02015
02016
02017
02020
02021
02022
02023
02024
02025

19

17

BIRTHDAY 4SSEMOLY

02046 0 00000 0 00000

02047
0 00000 0 00000
C2050 -3 0 0 0 0 0 0 0 0 0 0 0
02051 0 00000 0 00000
02052 0 00000 0 00000
02053 006263516063
C2054
512147602163
02055
0 00000 0 00000
02056 604623632143

1110
1111
1112
1113-1114
1115
1116
1117
1118
1119
1120
1 1 2 1 STRO
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135

L DQ
STQ
RQL
TSX
ORA
SLW
CL A
5 TI-)
TSX

LDQ
TSX
SLU
TSX
SLW
LDQ
RQL
TSX
ARS
OR A
SLh
TSX

CAL
1136
POX
1137
ANA
1138
TNZ
1 1 3 9 STRTOP TXL
1 1 4 0 STRBTM TXH
1141
PXD
1142
TSX
1 1 4 3 STRF
HSS
1 1 4 4 STRX AXT
1145
ST2
1 1 4 6 STREX XEC
1147
T RA
1148
TR A
1149
PXD
1150
S XD
1151
TSX
1152
BC I
1153
1154 +
1 1 5 5 STRA
1 1 5 6 STRQ
1157
STRD TXL
1158
STRT
1159
STRXT
1 1 6 0 STKN GCI
l l s l
1162

STKM

PZE
BC 1

0
STRXT
18
OCTALP 9 4
UBLANK
STRM
FLAPCZ
0
OUTPUT14
BCDOUT
STRN, 9 5
STRA
OCTALP14
STRMA
OCTALPi 4
STRMB
STRX
21
OCTALP, 4
6
OBLANK
STRMC
OUTPUT 1 4
BCDOUT
STRMDi r 9
STRA
014
PTAMSK
STRF
STRF94, **
STRF.4, **
0.4
$PRINT94
0
*+, 4
STRT
BSWT6
*+2
OVRLRD
0.0
$ERROR14
$ERROR+ 1r 4
lt*F
5+

.,.

.------------

---.--------.--*

TLAP AT

-7,

---

- -

--

--- ---

.--- --

.--

>

1.5M6040
--

-----

1.5M6050
1.5M6060

-..
---

&!LI!!-Irr$T

---

-----

--

- --

--

?&CRI3L

- - - ---

- --

--

--

--.-.
- .-

.--.
.- -

-----

-----

STR TRAP ERROR

----

-- ----

1.5M5770

- --

OCTAL.

--

-- - -

---

--

- -

--

-1

-----

OCTAL-

-- -

- -- --

5M5920
----------1.5M6190
AC STROA-GE
-----1 5M6200
- MQ
1-5M6220
MASK FOR PREFIX
1.5M6240
---- -.
CELL INDICATES ACTIVE I F NON-ZERO
1 5M6250
STORAGE FOR CONTENTS OF ZERO
1.5M6260 --.._-- - -- - .
1.5M6270
TRAP LOCATION I N

---.-..--._

-- -

- -.

1.5 M5740

F I N E NEXT OVERLORD DIRECTION CARD

--

-- - -- ---

-------

1*5#5610
1.5M5620

MASK OUT ONLY DECREMENT

GO I F ANY THING LEFT
- T F S - I IF
-STR?!iCc!!!
1.5M5660
_.
-BRK
GO TO E X I T I F NOT I N FREE STORAG
OTHERWISE
-----.- -----1 5M5680
PRINT A S L I S P L I S T
1-5M5690
--

--

--

1.5M5990

---

DITTO L I N K I R
INDICATE ROUTINE-1?-!&!!!EE
SHOULD WE GO BACK TO OVERLORD

---

--

_.

1.5M6120
--1.5M6140
-- 1.5M6150
-1.5M6160

PICK UP AC

-- .

1.5M6280
- ----- .- 1.5M6290
.
-.

8
w
m
o

6
5

---

-.
-

- - .-

--

w- -m
" . -p
p-p- -

OUTPUT I N BCC

--

--

_ _

1.5M5580
1- 5M5590
1 5M5600

AC AT TIME OF TRAP
CONVERT TO OCTAL
STORE LEFT HALF I N OCTAL
CONVERT TO OCTAL
--- RIGHT HALF I N OCTAL
PICK UP L I N K I R
SHIFT TO LEFT OF MQ
CONVERT TO OCTAL
MAKE A HOLE
MAKE LEADING ZERO A BLANK
PUT I N MESSAGE
.
-. -----

--.

--

--------A

-- -

------ OUTPUT BCD MESSAGE

-- -.---

tt

2,OSTR

PICK
UP T R A P E A T I O N
1.5M5480
SAVE CONTENTS
-------.------"---------1.5M5490
ADDRESS PORTION TO LEFT HALF OF MQ
1.5M5500
-__-- _
-- - - - 1.5M5560
LEADING BLANK
STORE TRAP
--ADflJRE_B -IN- OCATL
1 5MZ57-0.
RESTORE ORIGNAL CONTENTS OF ZERO

t*,

--

-- - --

.
.

--

--.~

PAGE 24

BONNIE-S

-- ---

02057
07flh0
02061
07062
02063
07064
02065
07066
02067
07070

-1

336060606060
n0-37
143
602346456325
-7604676
602123606060
0 00000 0 00000
0 00000 0 00000
602145246031
452425676004
0 OD000 0 00000

02071 -0634 00 4 01562

02072 0074 00 4 0 1 5 6 3
0 2 0 7 3 542160600154

&

1163

W RT.1

4.0nCTAL

&

---

STKMA
STKMB

.-- --

-- -

.-

- ---

m---------.--__----------

Ll64
1165
1166

--

B I R T H D A Y ASSEMELY

--

.---

---

---

H
m

$
a

20
19
19

17
16
IS

14
13

12
11
10
9

02074 -0625 00 0 02256

02075 0634 00 4 02252
02076 0020 00 0 02147
0 2 0 7 7 T ~ 6 3 400
02103 0500 00
0 2 r 0 1 0601 0 0
02102 0400 00
02103 0734 00
C2104 1 77777
02105 -0634 00
02106 0737 00
02107 -0634 00
02110 0400 00
02111 0737 00
02112 -0634 00
02113 -0634 00
02114 -0634 00
02115 0400 00
02116 0 6 2 1 00
02117 04C2 00
02120 0737 00
0 2 1 2 1 - 0 6 3 4 00
02122 05sO 00

4 02252
0 02303

0
0
4
4
4
4
4
0
4
4
4

4
0

D
4

4
0

02304
02305
00000
02105
16526
00000
04016
00371
COO00
02317
02413
11670
02306
02761
00407
00000
U2414
02274

- .

1.5M6330

1 1 6 7 STRMC
OLATI I INK _ ~ ~ 1 m - - - - _ _ ~ * % 6 1 4 ~
1168 *
1.5M6350
1 1 6 9 * T H I S R O U T I N E USES B P R I N T * O U T P U T I B G I Z ~ ~ Y L B N U L B N K L
U M 6 3 6 0
1170 *
1-5M6370
1171 r
1a w n
----*--1172
LC099800
1173
F R R O R l USED B Y APPLr_H4S
O N E A&G!JMFNT
ANO_-PR_INZS-_XLWL_LCQ999QOOO1174
PRINT
L C 100000
LCLQLQL.1175
1 1 7 6 E R R O R 1 S X D $ERROK,4
LC100200
1177
T S X $FR R O R + l r 4
L(;UIlU(Z(L
1178
6CI
l,*A
l*
A P P L I E D F U N C T I O N C A L L E D ERROR
1179 *
---.-- ------ --- - -- . . .- - - - -.
1 1 8 0 * SETUP
TAKES
SIZE
PARAMETERS
AND S E T S UP THE DEPENDENT CELLS
1181 *
M A I N L Y I N THE R E C L A I M E R (GARBAGGE COLLECTOR) AND STRPNT
.
.
1182 *
1183
t!E AD
E
. ..-"
1184 *
1185 *
RESETP
A L T E R N A I L E N T R A N C E T B ' S f - T U P TO CHANGECOMPO.SITI_ON-0.E
.
. .
.
.-- . -...
1186 * FREE STRGHAGE S L I G H T L Y .
llC7 *
-- .--- - -.
.---- -- -.-- - -1188 RESETP STL
RST
SET RESETUP SWITCH
1189
SXA
SUPX,4
SAVE L I N K I R
--- ---+--- - - ------ 1190
TTA
gSU
C H A N G E GAKBAGGE C O L L E C T O R P A R A M E T E R S
7
1191 *
-- ---- - --.
.
- 1192 SETUP SXA
SUPX,4
SAVE L I N K I R
1
:
1153
CLA
ZTPG
-.--.- - - -- - 1
.
---^T;- --:I
1194
ST0
SORG
1195
ADD
LBINPG
---\ - 7
2
1196
PAX
034
1197
TXI
*+1141-1
--- - -- - .- 1198
SXD
C$LBPTP, 4
S E T U P FOR C A T 119
PAC
0 ~ 4
- -- -.
- - . -- . -.
.
-- -12d0
SXD
B L K E T P p4
E N D OF BLOCK R E S E R V A T I O N
1201
ADD
SQl
1202
PAC
014
1203
S E T P U S H DO~~N_C~L!dL-..
SXD
6 C P P I , / t -__
-.-.
-.-.
1204
SXD
SCSSI,/t
1205
SXC
NUBPDL 4
P K IVATuLL!?yflUcKT&A&E - -.._ _
_
___
1206
flADC'
LPBPDL
1207/
ST A
ZPDL
G C ZEROS TH~Nu.Ss..f/PD_L
- - - -- -_ .-.._ ."
- -.. -,
1268
SUS
bQ20
PROTECTION AGINST COPPILER SAVING
1209
PAC
014
-- WI T H OUT
.
-L O
-O K I N G-...
-.
- .1210
ENDPULP 4
OUT O F P O L T E S T
SXD
1211
CLA
BTFS
-- -- --- - - --

"

1,5~631a-.1- 5M6320

O C T A L C O N T E N T S O F AC GO H E R E
2 - AU_UD-EX__G-

---.-- -. ...--

L*5M6100 -------a__.

8CI

- -- - -

-3\

~ , g""d
-*.
2-

--.

--

"

"
1

BONNIE--ai

P A G E 30

.,
4

02123
0402 00
02124 0621 00
C2125 0 4 0 0 0 0
02126 0621 00
02127
0500 00
02130 0771 2
C2131 0460 00
'22132
G6Ol 00
02133
0500 00
02134 0402 00
C2135 0 6 0 1 G O
02136 0402 00
02137
0601 GO
02140
0500 00
02141 0402 00
02142 0601 00
02143 0402 00
02144 0402 00
02145
0402 00
02146 -0120 00

0
0
0
0

02310
02277
00371
02276
02307
00005
00371
02311
02276
02311
02300
00371
02301
02276
02307
02302
02306
02305
02303
02257

02147
0535 0 0
02150
1 77777
0 2 1 5 1 -0634 0 0
02152
0535 00
02153 -0634 00

4
4
4
4
4

02274
02151
02031
02276
02032

02154 0534
02155
0634
02156
0534
02157
0634
02160 0534
C2161 -0634
C2162 - 0 6 3 4
C2163 - 0 6 3 4
02164
0534

00
00
00
00
00
OC
00
OC
00

4
4
4
4
4
4
4
4
4

0634 00
0634 00
G634 OC
0634 00
0534 00
0634 0 0
0534 00
0634 00
C534 0 0
0634 00
0535 00
- 0 6 3 4 00
- 0 6 3 4 00
0535 0 0
1 77777
- 0 6 3 4 00
- 0 6 3 4 00
0535 0 0

4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4

0
0
0
0
0
0

O
5
0
0
0
0
0
0
0

.A

em

--

--

--

02311
02532
02276
02533
02301
02645
02734
03116
02277
02662
02667
02677
03126
02274
02713
02276
02746
02302
02733
02302
03066
03114
02274
02204
03067
03111
02276

1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265

tSBTTA14
014
E, 4
MLTOT94
STFS14
F14
SdFSv4
SFWLD94
$BFW, 4
H 14
-BBFW14
;IRKLST, 4
MLBCWr 4
BTFS 1 4
*+1,4,-1
;4RKLST+ 1 8 4
-MLIST14
SBFS1 4
--

"J

H
20
19
18

17
16

IS
14

13
12
11

10

02165
02166
02167
02170
02171
02172
02173
02174
02175
02176
02177
02200
C2201
02202
02203
02204
CZ2C5
02206

SXA
SXA
SXA
SX A
LXA
SX A
LXA
SXA
LXA
3XA
LAC
SXD
SXD
LAC
TX I
SXD
SXD
LAC

- -. -

-- -

-- - - -

- --- --

-- -

- - - --- --- -- .-- - -

--

- -

---

--

--

- --

-------

----- -

- - - --

--

--- --- - -.
---

--

-- -

--

---

- - --

-- - -- -

-- - -

-------"
-

--

OVER LAPPING STORAGE ERROR

- - -a

---- --.-

--- ---

---.-"----"

- ---

--

-- -- -.

---

-- - - - - -

--

- -- -

---

-- .-

-- -"-

--- -- -

- .--- ---

--

--

--

--

-----

- -

--- --

---- -

--

--

--

- -

-- -

--- - -

-. -- -

--

- - - - -.

.
A
-

.
.

- - - - --- - ---- -- --

--

-- ---

- -

- --

- -- -

- -

----

--

-.

---- - .---- --

.-

--

.-

--

- ..- -- --

--

-- -.

"

---

- -- -

----

----- ..
-- -

---- - .
- --

.-

- -- --- --

-.
--

------

- -- - -- .--- - - -- - -. -

---

----

--

---------

----

- -- -

-"

--

8
7

- --

- -

-------

"J

Z
a

--- - - - -.
-

LFKEES
STET
381
$ B!Z----LFULWS
5
SQ1
$LET
------*--------*SBFS
6L BT
SBBT
SQ1
$TFW
dBFS
LFULWS
SBFW
LPBPDL
LBINPG
$TPG
SETERR
STRPNT SETUP
STFS 1 4
*+1141-1
STRTOP 4
SBFS 4
STRBTMv4
KECLAIMER SETUP
SLRTT4
As4
$BFS 94
894
STFW 9 4
c14
194
MONEp4
OTBTv4

'

.-

--

1212
1213
1214
ADD
1215 '
ST?
1216
GLA
1217
- A RS
1218
ADD
1213
S TO
1 2 2 v
CL A
SUU
1221
ST0
1222
1223
SUB
1224
ST0
1225
CLA
1226
SUB
ST0
1227
1228
'SUB
SUB
1229
1230
SUB
1231
TMI
1232
1 2 3 3 RSU
LAC
1234
TXI
1235
SXD
1236
LAC
1237
SXD
1238 *
1239
LX A
1240
SXA
1241
LX A
1242
SXA
1243
LXA
1244
SXD
1245
SXD
1246
SXD
1247
LX A

I.

c.,

RTHDAY ASSEMBLY

--

--

PAGE 3 1

BOWNIE-S

02207 -0634

i
3

i!

-E!

00 4 02720

0 2 2 1 1 - 0 5 3 5 00
07717
1 00001
02213 0634 00
07714
0 6 3 4 C0
02215
0535 00
07716 -~c~L-o_o
02217
0520 00

4
4
4
4
4
4
0

02221
07722
02223
07774
02225
07776
02227
07230
02231
07737
02233
02234
02235
02236

4 02276
4 07773
4 02232
4 07775
4 00000
0 03751
0 00442
4 00000
4 02232
4 07777
4 00000
4 07302
4 OOOCO
0 03727

0535 00
1 77727
-0634 0 0
0535 on
- 0 7 5 4 OC
0601 00
0400 00
- 0 6 0 1 00
1 00001
3 00000
0600 00
0535 0 0
-0754 00
0601 OC

02414
07713
03100
03107
02300
0 3 1 13

02256

--

--

--

- - - - - -- - --

--

- -

--.

BIRTHDAY ASSEMBLY

--

--

1266

SXD

G 14

1268
1269
1270
1771
1272
1771
1274
75
1276
1777
1278
1779
1280
2781
1282
1783
1284
1285
1286
1787
1288
1289

L DC
TX I
SXA
SXA
LAC

ENDPOL, 4
* + 2 * 4 L L - MLEPD.4
M I FPF.4
bBBTt4
MI RRST
SUPX
SBFS94
++1.4.
1
SUPFS14
BMFS.4
0 14
$FREE
SQDl
0.4
*+1,4*1
r - 3 4, +r
0 14
$6FW ,4
0.4
FWDRDL

%XI-I
ZET
TRA
LAC
TX I
SXD
L AT.

PXD
ST0
ADD
ST0
TXI
SUPFS TXL
ST2
LAC
PXD
ST0

--

----

-- - -

--

- ---

-.-- --- -- - - --- ---

--

__ _

-. -- ---

*-

--

- - -- --

-.

----

- - - - - - - -- - -

- --

--- -

- --

-- --

--

- -- -

-- - -- - I F I N I T A L SETUP
~ ~ Q . E X ~ L ~ - --E B
_ ] d ~ ~-- BOTTOM OF FREE STORAGE
SUBTRACT 1 - -SET DECREMENT

-- - - -

-- ------.-

SKIP

--

--

- --

--- -- --

E TEE?AGI
E S

-_

----------

---

BOTTOM F U L 4 ~ J P A C K
SET UP FULL WORD L I S T

--

----

---

--

--

--

--.

-----.--*---

- -

--

- -- - --

--"---

P
-------------POINTER TO LWERP I N DECREMENT
SET UP FREE- ---

,I

-------

--

.-

--

- ---.--

- - --

e;

",

5
a

20
19

15

I7
16

02245
0601 00 4 00000
02246
2 00001 4 02244
02247
0600 60 0 02245
02250 0500 00 0 66430
C2251 0 0 7 4 0 6 4 0 2 4 2 0
02252
0 7 7 4 00 4 0 0 0 0 0
02253
0600 00 0 02256
02254 -0754 00 0 00000
02255
0020 00 4 00001
02256 0 00000 0 0 0 0 0 0
02257 0074 00 4 01222
02260 - 0 00000 0 00364
G2261 0 0 0 0 1 1 0 0 2 2 6 3
0 2 2 6 2 0 0 2 0 00 0 0 2 2 5 2
02263 004665255143
02264 214747314527
02265
604721512144

1 2 9 6 SUPFW S T 0
1297
T IX
1298
STZ*
1239
CLA
1300
TSX
1 3 0 1 SUPX
AXT
1302
STZ
1303
PX D
1304
T RA
1305 RLT
1 3 0 6 SETERR TSX
1307
MZ E
1308
1309
TRA
1 3 1 0 NOSET BCI

**14
*-2 1 4 1 1
SUPFW
fOBLB
iNSFWL14
**,4
RST
010
1.4

--

.--

MAKE L I S T
LfJOP
-____-.----_-_-- -MAKE LAST ENTRY ZERO
BEGINNING
F-UNSORTED
OBJECT_-L-IST
--- --.O
--- -

---<---e_

-- - --- .
--- - ZERO RESETUP SWITCH

--

----

--

-- -- -

--- - -- -.
- --

--.- -

--- -

--

7+
-

- -

------ - --

RE ~ E U ? - - TE.SL!CCELLL _
-_ _
OUT PUT 14
BCDOUT
PRINT ON-LINE
--NOSET* 19
SUPX
EX I T
-------3,OOVERLAPPING PARAMETERS -SETUP- ERROR NUMBER * O

--

--

--

- -.. -

--

-- -

- - - -

- ..- -- -- - - -- -.--- -- -

- -- ---

-" -

.- ----

-- -

- --

--

Pi

PAGE 32

BUNNIE-S

c
T

0223!-&
_--

02275
02276
02277
02300
02301
02302
02303
02304

0
0
0
0
0
0
0
0
0

0238?--0

02306
02307
02310
02311

0
0
0
0

00000
00000
00000
CCOOO
00000
00000
00000
OOOOC
00000
00000
00000
00000
00000
00000

0
0
0
0
O

71651
66230
00000
00000
00000

o oocoo
0
0
0
0
0
0
0
0

00000
17462
OUOOO
00000
00000
00000
00000
00000

4
3

E
".

i!
w,

g
w

E
",

8
20

19

18

C2312 0634 00
02313 0634 OU
02314 0601 00
02315 0500 60
02316 0734 00
02317 1 00000
02320 -3 00000
02321 -0634 00
02322 0500 00
02323 0601 00
02324 -0737 00
02325 0522 00

02405
02404
024C7
00001
00000
02320
02415
02317
00001
77777
2 00000
4 00001
2
1
0
4
1
1
1
1
4
1

17

16

I5

14
13

12
11
10
P

02326 0634 00 2 02405

02327 0634 00 1 02404
02330 0601 00 0 02407
C2331 -0534 00 2 02317
02332 0500 00 2 77777
02333 0621 00 0 02336
02334 0621 CO 0 02342
02335 -0634 00 2 02337

B I R T H D A Y ASSEMBLY

1312
1313 *
1314 *
1315 *
1316 T a
1317 J4PS1318 B F S
13i9 T 6 T
1320 B T
1321 -f!w
I322 BFW
1323 T P G
1324 ORG
1325 LB'INPG
1326 L P B P D L
1327 L F U L W S
1328 L F R E E S
1329 L B T
1330 * -SAVE
1331 *
1332 *
1333 *
1334 *
1335 *
1336 +
1337 *
1338 *
1339 *
1340 *
1341 *
1342 *
1343 *
1344 *
1345 S A V E
1346
1347
1348
1349
1350 C P P I
1351
1352
1353
1354
1355
1356
1357 *
1358 UNSAVE
1359
1360
1361
1362
1363
136+
1365

HEAD

---

--.--.

---

-- -

- -- -- -

STORAGE MAP C E L L S FOR L I S P

- -- - -- -- -- - --

LJPERML-1
LOWERP

--

*-

--.*-----------

- -- - --

.---

--

-_

-_

_ -

----

--- -

$SAVE 14
BENDNIIEND

- - __

--

---

...

--

ORIGIN
OFBIMARVPROGRAM
IN DECREMENT
L E N G T P O F B I N A T Y PROGRAM
L E N G T H OF P U B L I C P U S H DOWN L I S T
L E N G T h OF F U L L WORD SPACE + B I T T A B L E
L E N G T H OF F R E E STORAGE
L E N G T H O F F U L L WORD B I T T A B L E
AND UNSAVE
THE CLOSED S U B R O U T I N E S T H A T CONTROL
THE P U B L I C PUSH DOWN L I S T . THE C A L L I N G SEQUENCES ARE

TSX
TXL
RETURN

-----,

--

UPPER LIMIT
OF FREE STORAGE
-LOW L I M I T OF
--PERM.
-- -L I S--T - STRUCTURE
- - -- -BOTTOM O F F R E E STORAGE
TOP OF B I T T A B L E
--- - - BOTTOM O F B I T T A B L R
TOP Z F F U I L W O R D SPACE PROPER
BOTTOM OF F U L L WORD SPACE

TOPROG

---

--

----.

--- -

.---.

__

---

--

--------

OF BLOCK TO B E SAVED

+ 2
--

WHERE N I N BENDN I S T H E NUMBER OF I T E M S TO BE SAVED

TSX
RETURN

--

UNS AVE .4

- --

- --

THE SAVED I T E M S MUST B E I N A CONTIGOUS BLOCK W I T H THE

THE F I R S T I T E M
P Z E A T O M I C NAME O F SQBR*, 1-R 4
THE' S A V E P A R A M E T E R HORD IS ADDED A S THE L A S T ITEM UN-THE
BLOCK TO BE S A V E D BUT IS
NOT UNSAVE&_
-...-__-_----

.
.

------

SXA
SX A
ST0
CLA*
PAX
TXI
TXL
SXD
CLA
ST0
PDC
XEC
SXA
SXA
STn
LXD
CLA
STA
STA
SXD

SAVY 12SAVZll
SAVT

s AvE

IN c.&.523!2 -1 _

-_ - - -----

NOPDLllp**
$CPPI, 1

GO TO N O P D L - L F No-T _ E N O U G HPPL_U P D A T E P D L COUNTER L O C A T I O N

194

PARAMETER WORD
--__
PUT ON PUSH DOWN L I S T
L O C A T II O
NO O SAVE
F BLOCK
TO B E SAVED
JUMP
NT
TABLE

SAVY p2
SAVZ 9 1
S AVT
S C P P I 12

-112
SAV J
----SAVK
S1lV1 ,2

!
SAVE T H E AC
---- --- - - - - AMMOUNT TO SUBTRACT FROM C P P I I N AC
PUT t - ! & _ O ~ ~ ~ ~ ? - ~ % ~ ~ ! & . ~ 1
I N I R 1 AND I N C R E M E N T B E PUSH DOWN C N T

0 12
194

.--

114
011
*+1911+*

-191

1
1
1
1
1
1

--

--

--

<->

---

..

-- - , -

- ---

=--I&- - I*
------- --.
d
- _ _ _- _
--

'f -a..
.-

_5-2---"

.-

.__

--.---

"

--

S A V E I N D E X 2 AND 1
SAVE T H E AC
CURRENT PUSH DOWN COUNTER
L A S T SAVE PARAMETER WORD
SET FE T C H AND- TX 1-_JNSTR!JCTJONS
-

-- .---. - - -

*-

-- --- -. -- - -- ..
-

SET UD TO RESTORE P D L COUNTEK

- --

--

--

BONNIE-S

0 2 3 3 6 0535 0 0
07377
I onaon
02340 -0634 00
0 7 3 4 1 -0 7 1 7
02342
1 00001

------

--

PAGE 33

1 00&0
1 n7t4n
1 02317
1 oonoo
4 00000

-- -- ---

--- -

--

--

- -

----

1 3 6 6 SAVJ
1367
SAVT
1368
1369
1 3 7 0 SAVK
1371 i
1372 *
1773

1374

SXD
POC

0.1

TXI

**r49 1

TXI

--

**,

1
++l.l.**
$CPPI,l

LAC

NUMBER TO BE UNSAVED

n o n m a a n ~~c J

. E . L--.

UPDATE POL COUNTER CELL

I fl C A T ION 0 F ENILILE- BLQWL +2-.-JUMP TO PUSH DOWN TABLE AND SET I R 4
PROPER EXIT
-

ll2&kVFrdnl; IUQ-lHE.ACZUALTHE PUBLIC PUSH nOWN L I S T .

- --

--

-- --

- .

.!
I
=

'i
Ij

2
P
3

5
2

"
I

20
19
18

17

02347
07350
02351
02352
02353
07354
02355
02356
02357
02360
02361
02362
02363
02364
G2365
02366
02367
07370
G2371
02372
02373

0500
0601
0500
0601
0500
0601
0500
0601
0500
0601
0500
0601
0500
0601
0500
0601
0500
0601
0500
0601
0500

77761
77761
77762
77762
77763
77763
77764
77764
77765
77765
77766
77766
77767
77767
77770
77770
77771
77771
77772
77772
77773

1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400

END14 CLk
ST0
END13 CLA
ST0
END12 CCA
ST0
END11 CLA
ST0
END10 CLA
ST0
END9 CLA
ST0
END8 CLA
ST0
END7 CLA
ST0
END6 CLA
ST0
END5 CLA
ST0
END4 CLA

(32374
C2375

0601 00 1 77773
6500 0 0 2 7 7 7 7 4

1401
1402

END3

02376
02377
024CO
02401
G2402
02403
C2404
02405
02406

0601
0500
06Cl
0500
0601
0500
0774
0774
0020

07407

0 OOCOC 0 00000

00
00
00
00
00
00
OC
00
00

2
1
2
1
2
1
2
1
2
1
2
1
2
1
2
1
2
1
2
1
2

1
2
1
2
1
0
1
2
4

77774
77775
77775
77776
77776
02407
00000
00000
00002

16

1s
14
13
12
11

10
9
8

1403
1 4 0 4 END2
1405
1 4 0 6 END1
1407
1 4 0 8 END0
1 4 0 9 SAVZ
1 4 1 0 SAVY
1411
1412 *
1 4 1 3 SAVT
1414 *
1415 *
1416 *
1417 *
1418
14
L

--

-1492
-14 1
-13~2
1
-12 92
1
-11.2
-11.1
-1012
1
-992
-9,l
-892
-8r 1
-7.2.
-7.1
-69 2
-61 1
-592

-- -- --

-- .-

--

- --- --

ST0
CLA
ST0
CLA
ST0
CLA
AXT
AXT
TR A

-491
-3.2
-3,l
-2,2
-291
SAVT
+*, 1
**, 2
2r4

"

---

- -----.---

---

- -

.-

--

- -.

---

--

---

- ----

.
- .-

---- ---

--

--

TEMPORARY STORAGE FOR AC

-_-_
___ TIMING INFORAMTION
SAVE AND UNSAVE 3 4 + 4N CYCLES
ON THE 7 0 9
[SUBTRACT 5 CYCLESFOR_--SAVE AND 4 FF9_R-!Ju~~SSAYYE
ON THE 7 0 9 0 )

-- - -

-- -

-.

.
..

.--.-

--- -

---

---- -- .
.-

--

--

.-

- ---

- --

-.

-- -- -

- -

- ----.

--

--

- -- - _ - -

-- --

.. -

-- -- -- ---

--- -.-.--- - .----

--

---

- -

--

-- -- -- -- - --

RESTORE THE A C
AND INDEX L"L.2.EX I

- ---

-----

- ---

- -

--A
-

--

- --

----

---

-.- --

-5.1
-4,2

ST0
CLA

.
.

--

TEKPOL

__

-------- -- -

-15.2

_ __

M O V I NG T O AND FROM

- -.- - - -

00
00
00
00
00
00
00
00
00
00
00
00
00
GO
00
00
00
GO
00
00
00

--- ----- - -

BIRTHDAY ASSEMBLY

- -- .

---

_ -A

LC123200

_-

PAGE 3 4

BONNIE-S

02410 0500 00 0 02413

0 2 4 1 1 06?2 0 0 0 02317
02412
0020 00 4 00001
02413 0 00000 0 00000
0 2 4 1 4 -3 0 0 0 0 0 4 0 2 4 1 5
02415 -0634 00 4 01562
02416 0074 00 4 01563
C2417
542760600254

.!
C

C!

%!
2
e

, ,A
.%

3
S
20

19
18
17

02420 0634
02421 0634
02422 -0734
02423 0500
02424 0622
02425
0734
02426
02427
02430
02431
02432
02433
02434
02435
02436
02437
02440
02441
02442
02443
02444
C2445
02446
02447
02450
C2451

00
00
00
00
00
00

-0634 0 0
0500 0 0
-0320 0 0
-0100 0 0
0500 00
0734 00
3 06733
3 06732
3 10103
3 10102
3 07335
3 07334
-0734 00
3 00000
-0534 00
3 COO00
-0754 0 0
0774 GO
0774 0 0
0020 00

4
2
4
4

02447
02450
00000
00000
0 03310
2 00000
2
2
0
0
2
2
2
2
2
2
2
2
2
2
4
4
0
4
2
4

03313
00000
00470
02452
00000
00000
02436
02461
02440
02461
02442
02476
00000
02432
03310
02423
00000
00000
00000
00001

16

15
14

13
12
11
30

(22452 0 5 0 0
C2453 - 0 1 2 0
C2454 -0734
02455
0500
02456 0074
G2457 0 6 2 2
0 2 4 6 0 (2020

a
6
5
4

- -

----- - - -LC123300
-LC.123400
-.- -- --- -.
TERPDL CLA SCSSI
LC123500
STD CPPI
- -- - - -- ----- - LC_1_?2600_
IRA 194
LC123700
CSSI
L C--1 2 3 9 0 0-- --- - - ENOPOL TXL
++1,41 +*
OUT OF PEL TEST INSTRUCTION [ I S XEC)
NOPDL SXD BERRORj4
- _ - - LCl24.100.
TSX SERROR+1,4
LC124200
BC I
l,*G
2*
OUT OF PUBLIC PUSH DOWNCISTT_
LC 1 2 4 6 0 0
--- --- -L C 1 2 4 7-0-0
-- ---- -- --1o5M4790
*
HEAD
E
1. SP7000
LC 1 1 8 6 0 0
*
1.5M8400
CNSFWL
USEC BY SETUP TO MOVE ALL FULL WORDS ON PERMENENT O8JECTSl05M8410
+
TO THE FULL WORE SPACE,
-1o5M8420
--- ---1.5M8430
*
ALSO BUCKET SORTS THE PERMENENT OBJECTS*
1.5M8440_
*
CNSFWL SXA
CNFWX.4
SAVE INDEX REG1STERS
1.5M8450
1l5M8460 --SXA
CNFWYqZ
-. PDX
014
P O I ~ OOBJECT L I S T
1.5M8470
CNMLP CLA
014
NEXT WORD ON L I S T
1 5M8480
-STD
CNX T
POINTER TO NEXT WORD
1.5M8490
PAX
012
POINTET TO AN ATOM
1 5M8500
-SXD
CNATtZ
SAVE THE POINTER TO THE ATOM
1.5M8510
CLA
0 12
-ANA
TAGMSK
TEST FOR NUMBER
TNZ
CNNM
M A K E A NUMVER
- _
- - - - --- - - -..-- --.
- -CNSLP CLA
1-5M8520
012
NEXT WORD ON ATOM
PAX
012
CAR OF ATOM* S E A % L f % .
!zk!d!&%L 1.5M8530
* + 2 2 1SSUBR
TXH
SUCH AS $SUER
1.5M8540
TXH
CMK0.2 9 SSUBR-1
--. . --- --- - 1.5M8550
----- -T XH
++2 t 2 9 SFSUBR
1.5M8560
T XH
CMKOI~~BFSUBR-1
-- - - ---. -- --- 1 5M8570
- -- _
.
1.5M8580
++2,2, TPNAME
TXH
T XH
CMPNT* 2 9 $PNAME-1
1 5M8590 ------_-- "
-. .- - --CNRS POX
092
IS NONE O? ABOVE SO CDR TO IR 2
1.5M8680
CNRT TXH
CNSLP, 2 1 0
GO BACK I F NOT END OF P W R T Y L I S T
1-5M8690
_CNNR
LXD
CNXT 1 4
POINTER TO NEXT OBJECT
TXH
CNMLPs410
GO BACK I F Y2Lc!cL
1.5M8710
.
--- PXD
010
CLAER AC
1 5M8720
CNFWX AXT
*+9 4
RESTORE INDEX REG1SJERS
- _ _ - - - - - - - 1- -SM8730
-"
-- CNFWY A X 1
**12
1.5M8740
TRA
194
EXIT
---1o5M8750- -- -- -1- 5M8760
CNNM
CLA
092
--- - -- ---TM I
CNNR
DONT MOVE NUMBERS WITH MZE PREFIX
PDX
094
-.- -"-CLA
0.4
TSX
UCONSW 94
-- -- 092
STD
TRA
CNNK
MAKE UP THE NEW NUMBER
- - . - .. -.-- - --- -- . .
..
.
-- -

- ---

BIRTHDAY ASSEMBLY

00
00
00
00
00
00
00

2
0
4
4

00000
02444
00000
00000
4 03710
2 00000
0 02444

1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1443
1449
1450
1451
1452
1453
1454
1455
1456
1457
145e
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473

RESETS PUBLIC PUSH DOWN L I S T TO ZERO

---

--

--

p
p

-----

--

---

---

-----

--

-- - - -

<

-----

--PAGE 35

BONNIE-S

iD

i
c

Z!

,"..
,.XL

a
u,

20
19
18
17
16

I5
14

13
12
11
10

::::

0.7

012
CNX
-CMK
0 . 4
014
PCCNShLrlt
18

0,2
CNX, 2
WRT

-- -

.
.

.-

---

1474 +
074hl
0774 0 0 7 no000
1475 C M K ~ P ~ X
0 2 4 6 2 05CO 0 0 2 0 0 0 0 0
1476
CLA
02463-00
STD
0 2 4 6 4 -0120 0 0 0 0 2 4 7 4
TMI
1478
0 7 4 6 5 0734 00 4 0 0 0 0 0
PAX
1479
0 2 4 6 6 0 5 0 0 00 4 0 0 0 0 0
1480
CLA
7
0
TSX
7
0
ARS
G2471 0 6 7 1 00 2 0 0 0 0 0
1483
STA
0 2 4 7 2 -0534 0 0 2 0 3 3 1 1
1484
LXD
02473 0020 00 0 02443
1485
TRA
1486 +
0 2 4 7 4 Oh127 00 7 0 0 0 0 0
1487 CMK
Sl W
02475 0020 00 0 02442
1488
T RA
1489 +
0 2 4 7 6 -0734 0 0 2 0 0 0 0 0
1490 CMPNT POX
07477 0500 0 0 2 00000
149 1
CL A
02500 0622 00 0 03311
1492
S TD
07501 0734 00 2 00000
1493
PAX
02502 -0634 00 2 03314
SXD
1494
0 2 5 0 3 0 5 0 0 00 2 0 0 0 0 0
1 4 9 5 CMPLP C L A
02504 -0120 00 0 02515
1496
TMI
02505 0622 00 0 03312
1497
STIj
02506 0734 00 4 00000
1498
PAX
02507 0500 00 4 00000
1499
CLA
02510 0074 00 4 03710
1500
TSX
C2511 0 7 7 1 00 0 0 0 0 2 2
1501
ARS
02512 0 6 2 1 00 2 00000
1502
STA
02513 -0534 0 0 2 03312
1503
LXD
C2514 3 0 0 0 0 0 2 0 2 5 0 3
1504
TXH
C2515 0 5 0 0 0 0 0 0 3 3 1 4
1 5 0 5 CMPS C L A
C2516 C560 GO 0 0 3 3 1 3
1506
LDQ
02517 0074 00 4 06417
1507
T SX
C2520 -0534 0 0 2 0 3 3 1 1
1508
LXD
C2521 0 0 2 0 0 0 0 0 2 4 4 3
1509
TR A
1510 +
1511 *
1512 +
1513 * RECLAlMER
1514 +
02522 0 6 3 4 0 0 4 0 3 0 4 3
1515 RECLAM SXA
C2523 0 6 3 4 O C 2 03044
1516
SX A
C2524 0 6 3 4 0 0 1 03045
1517
SXA
02525
0604 00 0 03224
1518
ST I
C2526 0 6 0 1 0 0 0 0 3 3 0 6
1519
ST 0
02527 -0600 00 0 03307
1520
STQ
C2530 0600 0 0 0 03225
1521
STZ
02531 0560 C O 0 03270
1522 RCA
LDQ
C2532 0 7 7 4 G O 4 0 0 0 0 0
1523 A
AXT
02533
0600 00 4 00000
1524 B
STZ
C2534
2 0 0 0 0 1 4 02533
1525
TIX
G2535 - 0 5 3 4 00 4 02414
1526
LXD
C2530 -C634 00 4 0 2 5 4 0
1527
SXD

-- ----.

B I R T H D A Y ASSEMBLY

- - -- -

-.
-

- - - ----

mwXTHPL\IS SICi__.--

CNRS

GO BACK

012
0 17
CNX
0 17
CNVA 2
0~2CMPS
CNFT
0.4
0.4
bCONSW 9 4
18
--092
CNFTLZ
CMPLP,210
iNVA
CNAT
BUKSRT 14
CNXvZ
CNR T

+*r 4
+-1,491

ENDPDL. 4
9 C IA 1 4

--

-- -- --

--

.-

-- - -

--

- --

1 * W B P L O .- -

--

- ..-

PUT P R I N T NAME I N F U L L WORD SPACE

1 5M8920
NE
R A N - P B n e E E U L
Lm5MR93 0-- -.P O I N T E R TO N E X T WORD ON PROPERTY L I S T 1.5M8940
P O I N T F T TO P M M E I I S T
--~~m895~----SAVE IT
1.5M8960
FIRST F O R D O N A A M - E - L I _ S L
- _-.1.5M8-97(1_ _ ___ S K I P I F WORD I S F L A G G E D
P O I N T U TO N E X T WORD ON PYAME L L S T
115M984P O I N T E R TO F U L L WORD
1.5M8990
F U L L WORD
-__--- ~ - ~ . 5 ~ 4 - - -_ --. PUT I N F U L L WORD SPACE
1 5M90 1 0
P O I N T E R =WORD
_ 1.5MXQ.20R P L A C E THE ADDRESS
1.5M9030
P O I N T E R TO N E X T WORD ON PNAM-E-L IS-T_--__l. 5M9940
- - GO BACK I F NOT END
1-5M9050
P O I N T t R TO P N A M E L I S T
.- ---*- -.---- --.-.--.
ATOM T H A T WE ARE WORKING ON
1.5M9070
PUT GN 3 UC K ETSORTEDOOBJJELTTLLSTTTTTTT
I>-M
9 9 8 0 .-- - - .-_ _ __
P O I N T E R TO N E X T WORD ON ATOM
1.5M9090
GO B A C K
b * f i ~ 9 _ ~ ~ 0 -- ---- 1.5M9110
_

---.-------------

**14

1.5M8900

RCX94
RCY 12
RCZ 9 1
RC IND
RCAC
RCMQ
RCBE
RCSGNL

--

P lJT ON F W ~ . , . E U L - k O R U E B C E _ _ _ - -LSM87-Za-BB
GET N E X T WORD ON PROPERTY L I S T
1.5M8780
P O I N M T O S T - - 0 E . - D B J L O L I.---. 1 5 M B Z 9 L
S K I P MOVING T H I S WORD I F M I N U S S I G N IS1.5M8800
- ~ S L S L G E Z 4 ! l ~ I ~ U L 5L
J 4 l8 R . WORD AND WORD I T S E L F I N AC
1- 5M8820
P-kT---LT--IB-.,FYLL.
WORD- SPACE
L.5M8830
MOVE P O I N T E R TO WORD I N FWS TO ADDRESS1.5M8840
R F L A L E - T k E ARDf3.E-S S- --1=5M885Q
- -P O I N T E R TO N E X T WORD ON PROPERTY L I S T 1.5M8860
-EES&U--______L5MS8-7L1.5M8880

0.2

L I S P 1.5

-----

------------.

1.5M9180
STORAGE LONTROLJOGRAMCODED 1 MARCH_l_19_6111 _-1.5.M9190
1 5M9200
SAVE I N D E X R E G I S T E R S
---- ..
_ 12%2-1-0_1.5M9220
.. .-. 1z 549 2-3-0

_-- -

--

----

-TA
I AL L PHASE
I Z E BAD
SI N
I GI N
1 E L I T CELL
BIT
T A B L E LENGTH
-.OOTTOM F R E E STORAGE
ZERO
- THE -B I T T A B L E
- END O F P O -L

__

--

---

----- --- ----.- -

1.5M9350
-.I-- 5 M 9 3 6 0

--

SET UP T N X I N S = l ' _ c I I O N

1.5M9240

-1
-- -5M9250
-.
- -1.5M9260
-- --1.5M9270
1.5M9330
1.5M9340

-.

I - _ _ - - - _ _ - -

AND M A C H I N E R E G 1 S T E T S

._-

_.-

1 5_'493-80-

--

PAGE 36

"
v

i
2
2

02537
02540
02541
C2542
02543
02544
02545
C2546
02547

-0534 00
-2 OOOCO
-0634 00
0634 00
-0774 CO
0 4 4 1 OC
0520 00
OC56 00
0074 00

B G N N I E ~ ~ ~ RA T
S SH
ED
# BA
~ -Y
~-

4
4
4
4
2
0
0

02317
03103
03102
02760
b6427
10340
11516
CCOOC4
4 03066

02550
02551
02552
02553
02554
02555
02556
02557
02560
C2561
02562
C2563
02564
a2565
02566
C2567
02570
02571
02572
C2573

0600 00
-0534 00
0500 0 0
0622 00
0734 00
C500 0 0
0734 00
-0634 00
-0734 0 0
1 00001
0634 00
-2 0 0 0 0 0
0 6 3 4 CO
0441 00
0444 00
0020 00
-0046 C O
0 6 2 1 CO
-0734 00
0074 00

0
4
4
0
4
4
4
4
1
1
1
1
1
1
0
0
0
0
2
4

03273
03304
00000
03273
00000
00000
00000
02563
OOOOC
02562
62565
02577
03216
00000
03274
02576
00000
02574
00000
03066

1528
1 5 2 9 RCIA
1530
1531
1532
1533
1534
1535
1536
1537 *
1538 *
1539
1540 *
1541 +
1542 +
1543 *
1544
1545
1 5 4 6 TMLJ
1547
1548
1549
1550
1551
1552
1553
1 5 5 4 TMLK
1 5 5 5 TMLD
1556
1 5 5 7 TMLE
1558
1559
1560
1561
1562
1563

LXD
TNX
SXD
SX A
AXC
LDI
ZET
RNT
TSX

C2574
C2575
02576
C2577
02600
C2601
02602
02603
02604
02605
02606
02607
02610
C2611
02612
02613
02614
C2615

0774 CO
0 0 7 4 CO
2 00001
-0534 00
3 00000
0520 00
0020 00
-0535 00
-0634 C O
-0535 GO
-0625 00
0600 OC
0020 C O
-G534 0 0
-3 00000
0500 00
0 6 2 2 CO
0734 CO

2
4
1
4
4
C
0
4
4
1
0
0
0
4
4
4
0
4

00000
C3066
02565
03273
02552
03273
02611
02413
$2563
02317
03273
03216
02562
03305
02707
00000
03226
00000

1 5 6 4 TMLF
AXT
1565
TS X
1 5 6 6 TMLG T I X
1 5 6 7 TMLH LXD
1568
1569
1570
TRA
1571
LDC
1572
SXD
1573
L DC
1574
>STL
1575
STZ
1576
TRA
1 5 7 7 MPDLF LXD
1 5 7 8 MARYB TXL
1579
CLA
1580
STD
1581
PAX

20
19
18
17

16

1s
14
13

12
11

10
9

- - -- -

--

--

--

--

- -

ST2
LXD
CLA
STD
PAX
CLA
PAX
SXD
POX
TXI
SXA
TNX
SXA
LO1
OFT
TK A
PIA
STA
PDX
TSX

kT2

- -

- -- - - ---

CURRENT PUSH DOWN L I S T LOC.

AMMOUNT OF PUSH DOWN L I S T AVAILABLE
SET CELL I N MRKLST
L ENG ZHLEFT B-RLERQI
ND-P_OL- POINTER TO OBJECT L I C T
SYSTEM INDICATORS
S K I P I F DURING READ I N I N EVALQUOTE
~ ~ ~ ~ ~ ~ ~ ~ G
- I F - I N. t?.-_CEB%
~ ? k ! MARK THE L I S T

--

-----

1.5M9390
I,.5M9400
1 5M9410

..

---

- -- - - -

--

- --..

.--

- .-

1-5M9430

s1.5M9440
~
1.5M9450
1 5M9500
TEMLIS MARKER
I.. 5M9510
TEMLIS I S A L I S T I N FREE STORAGE AN0 FULL WORD SPACE
1-5M9520
OF THE FORM (CONS (CONSW BEGrrEND) T E M L I S I AND INDICATESl.SM9530
PLACES WHERE L I S T STRUCTURE MAY BE DURING A GARBAGE
1 5M9540
COLLECTION. USED PRINCIPALLY BY THE COMPILER
1.5M9550
1.5M9560
-T ML M
SET E X I T SWITCH
1.5M9590
TEMLISt4
1- 5M9600
-094
NEXT WORD ON TEMLIS
1.5M9610
TMLM
SAVE POINTER TO NEXT WORD
1.5M9620
094
POINTER TO FULL WORD
1 5M9630
014
FULL WORD
__-- --- --.1.5M264&
- .-- - -014
BEGINNING OF ARRAY
1.5M9650
TMLC, 4
1.5M9660
091
END OF ARRAY
1.5M9670
*+1*1*1
ADD 1
1 5M9680 -.----_--.
TMLE, 1
TMLh, 1, *+
SUBTRACT BEGINNING
GIVES COUNT I N I R l - 5 M 9 7 0 0
--- -- -GCPCLC, 1
LAST USE I S MARKING POL, SAVE LENGTH 1 - 5 M 9 7 1 0
**, 1
PICK UP W O R L
- . -1.5M9720 -- _
- --TMPTM
S K I P I F NOTAG OR PREFIX
1.5M9730
TMLB
1.5M9740
NOT A L I ST 9 DO N O T MARK. -------__----.--.---- ----"
ITEM TO AC
1.5M9750
TMLF
SAVE
ACCRESS
1.5M9760
- ------- - - .
--- 092
1- 5M9770
MRKLSTv4
1 5H9780
MARK THE DELR_E_M_E_NT-**r 2
ADDRESS OF WOKD TO I R
1-5M9790
MRKLST.4
MARK I T
1 5 M?&oO-.--_---TMLE, 1, I.
GET NEXT WORD I N ARRAY
1.5M98 1 0
TMLMV4
P4EX T T E " L 1 s L TE M
- - 1.5M9820
_ _
_ -- -._
TMLJ,4,O
GO I F NOT DONE
1.5M9830
TMLM
TEST FOR E X I T
1 5_M9840-M@,DLF
ALL DONE
1.5M9850
SCSSI.4
BEGINNING OF PDL
1.5M9860
--TML'D, 4
SET UP CELL
1.5M9870
SCPPI,l_
FIRST FREE CELL =-POL
1-5M988Op-_ -.-_
TMLM
INDICATE LAST USE OF LOOP
GCPDLC
1.5M9890
PUSH DOWN LENGTH I N I T I A L L Y ZERO
_____
TMLK
60 MARK PUSH DOWN L I S T
1.5M9900
ARYLIS94
S T A R T TO MARK ACTIVE-ARRAYs
_
1.5M9910
--"
RCB,4,0
GO I F NO ARRAYS
014
NEXT WORE ON ARYLIS
___
1 519930
MARYT
SAVE POINTER TO NEXT WORD
1.5M9940
094
ARYATOM TO AC
----- --- --1.5M9950
-------

"A

SCPPI, 4
MLPDE,4,**
MLPCCt4
ZPDLA14 -08LIST,2
SYSIND
EVQRTS
_CE6llGI
_---------MRKLST 9 4

--

--___----

--------

--

->

----

7
-----*-

6
5
L

------

--

- - -- -

-- PAGE 3 7

BGNNIE-S

--

--

02616

0500 00 4 00000
~ 7 6 1 7 ~ 7 3 4nt: 4 m
o
0 2 6 2 0 -3 1 0 7 3 4 4 0 2 6 2 2
02622 -0734 00 4 00000
07673
3 no000 4 02616
02624 -0534 00 4 03226
O?h75
n07Q-- C
m

$D

i
-

?!

kx

2f

20
19

1582
1583

MARYA CLA
PAX
TXL
TXL
PDX
TXH
MARYC LXD
T RA

1584
5
1586
1587
1588
1589
1590 +
1 5 9 1 MRKA
1592
1593
1594
1595
1596
1597
1598
1599
1600

0 ~ 4
0.4
*+2 9 4, $ARRAY-1
MRKA .4. SARRAY
Or4
MARY A. 4 LL
MARYT.4
MARYL

NEXT WORD ON ATOM

-------

--

SERCH FOR ARRAY SPECIFICATION

GO IF-WND-POINTER TO NEXT WORD

GO_LLNQL..XNIjX-u~-.-

- --

--

NEXT WORD ON ARYLIS

--

17
16

IS
14
13

12
11

10
P

7
6

--

- - - --

- -

--

1.5M9960
-1- 5 M 9 X L
-..
1.5M9980
- -J.-5NOOU)
-- - -.
1.5N0020
--- ---I
l
5NOS1Q-- -- -.
-1.5N0040
1.5N0050
1.5N0060
- - - L 5 N O D U L -- -- - _

4 00 4 OOODO
PDX
0.4
GEL4BBA_Y_ seE(LIELCAXLQhLS 02627 0500 00 4 00000
CL A
Or4
1.5N0080
02630
0 7 3 4 0 0 4 COO00
PAX
0 4
_
_
_- 1 A N O Q 9 4
.
02631 0500 00 4 00000
CLA
014
~ 7 6 2 7 0 7 3 4 nn 4 n a o o o
PAX
0.4
-02633 0500 00 4 00000
CL A
014
FIRST SPEC. WORD
1-5N0100
07634 0734 00 2 00000
PAX.
0 7
END OF A B B A Y A - -_
1,5_hlOUn
02635
0 6 2 1 0 0 0 02702
S TA
MRKE
END OF ARRAY + 1
1.5N0120
02636 0500 00 4 00001
CLA
1.4
1.02637
0 6 0 1 00 0 03275
ST0
MRKP
SECOND SPEC. WORD
TOTAL L, 1 L I S T L
1.5N0140
0
640
0
0
_LcZNI)La(L________02641 -0634 00 1 02642
2602
SXD
MAA I 1
UPDATE TNX INSTRUCTION
105N0160
02642 -7 00000 2 02624
1 6 0 3 MAA
TNX
MARYC*2,*+
LOCATION O F B E G I N N I N G O F A R & A Y - ~ ~ L L ~ Q ~ Z O - - _
02643 0634 00 2 02644
1604
SXA
MA5 1 2
PREPARE TO COMPLEMENT
1.5N0180
02644 -0774 00 2 00000
1 6 0 5 MAB
AXC
*+r2
-_
-1.5hLO1ELCL
02645
1 00000 2 02646
1606 C
TX I
*+112#*+
TOP FULL WORD
1 5N0200
02646
0754 00 2 00000
1607
PXA
012
c A L c uL AT E B I T T ~ Q K D - A N D B 1 _ L --._&
--.--"-.....
02647 -0765 00 0 00005
1608
LGR
5
B I T NUMBER I N TO MQ
1.5N0220
02650
0 7 3 4 00 2 0 0 0 0 0
1609
PAX
Ot.2
-0 R0 N W B E R - D A . L
.
.
.
02651 -0754 00 0 00000
1610
PXD
010
ZERO AC
0 2 6 5 2 - 0 7 6 3 OC 0 0 0 0 0 5
1611
LGL
5
8 l i L & ! & a E R - - - _- - . - -1. TN0250
- 02653
0734 00 4 00000
1612
PAX
0.4
1.5N0260
02654
3 00036 4 02665
1613
T XH
WBTT.4.30
GO TO MARK 1 1 Y - Z L
---.-,-.
--.-._L&N.L?27270_--__ -.-.
...
02655 -0754 00 0 00000
1614
PXD
0,o
ZERO AC
1.5N0280
C2656 -C501 0 0 4 0 3 2 6 6
1 6 1 5 MAC
ORA
BITt4
--.
1.5NO290.
02657 -2 00001 1 02662
1616
TNX
HBTTA, l r 1
CECREMENT COUNT
1.5N0300
02660
2 00001 4 02656
1617
T IX
NAC94,l
RUN E I T COUNT DOWN_
L3N4-3.14--_-- - _
0 2 6 6 1 - U 5 0 1 00 0 0 3 2 6 6
1618
ORA
BIT
PUT I N ZERO B I T
1.5N0320
(22662 - 0 6 0 2 0 0 2 0 0 0 0 0
1 6 1 9 MBTTA CRS
+*r 2
TOP B I T TABLEI S E u s S
1--~5.QQ&2!0
-02663 -2 00001 1 02700
1620
TNX
MRKF, l r l
GO I F DONE
1.5N0340
C2664
1 77777 2 02665
1621
TXI
*+lrZ,-1
DECREMENT B I T WORD BY O N E
- - -l F 5 N 0 0 _
C26t5 -0500 00 0 00471
1 6 2 2 MBTT CAL
MON S
ALL ONES TO AC
1.5N0360
G2666 - 2 0 0 0 4 0 1 0 2 6 7 1
1 6 2 3 MAE
TNX
MADz1,32
CECREMENT COUNT BY 3 2
_
- 1 -3NO3LQ
_ .__ _
02667 -0602 00 2 00000
1624 0
OKs
++T
2
TOP B I T TABLE, SET ALL B I T S
1.5N0380
U2670
1 77777 2 02666
1675
TX I
MAE 129-1
CECREMENT 8 1 T TABLE WOR-PJ_O_U-NT
- - 1,5~9390
_
_- --0 2 6 7 1 0 7 5 4 00 1 00000
1 6 2 6 MAD
PXA
0 ~ 1
PREPARE TO MARK LAST B I T S
1.5N0400
02672
0737 0 0 1 00000
1627
PAC
011
COMPLMENT C O U r J T
_
02673 -0754 00 0 00000
1628
PXD
or0
ZERU AC
0 2 6 7 4 - 0 5 0 1 OC 1 0 3 2 2 6
1 6 2 9 MAF
ORA
MBITFtl
SET PROPER 5 I T
-1
-_5-!0.430- -02675
1 00001 1 02676
1630
TXI
++1,1,1
INCREMENT COUNT BY ONE
1.5N0440
C2676
3 COO00 1 0 2 6 7 4
1631
T XH
MAFtltO
GO U N T I L COUNT R E A C H E S Z E R O
._ - . l+ZYP-%5.Q- -----..
.
02677 -0602 00 2 00000
1632 E
ORS
**, 2
TOP B I T TABLE, SET B I T S
1.5N0460
C2700 - 0 5 3 4 0 0 1 0 3 2 7 5
1 6 3 3 MRKF LXD
MRKP, 1
GET LIST-LENGTH
I F ANY
___
1_-5N04_7P_- - _
C2701 -3 00000 1 02624
1634
TXL
MARYC,lr0
E X I T I F A NON-LI ST ARRAY
1 5N0480
027C2
C5CO 0 0 1 0 0 0 0 0
1 6 3 5 MRKE CLA
+*, 1
--LIST
I T E ~
. 1-5_~049_0 _

--

-----

.
a

IS

--- - -

BIRTHDAY ASSEAOLY

---

-----

g_

0 2 7 0 3 - 0 7 3 4 OC
C2704
0074 C C
02705 2 00001
C2706
0020 OG

2 OOCOO
4 03066
1 02702
C C2624

C2707
C271O
C2711
02712
C2713
02714
02715
02716
C2717
02720
C2721
02722
C2723
02724
02725
02726
C2727

2 OOOCO

d 7 7 4 0G
0600 PC
0560 0 0
-0774 0 0
- 0 7 7 4 OC
C502 C O
-0120 C O
0601 00
1 COO01
-3 OOOCO
0600 C O
0634 00
0 0 2 0 CC
-0754 OC
0601 00
-0734 00
1 COO01

0
0
1
4
4
0
4
4
4
1
2
0
4
1
1
2

03212
03271
03751
OOoOO
00000
02724
00000
02720
02714
00000
03212
02730
00000
00000
00000
02717

rn
T

5
&
.

?t

>
3

'
I

C2730
C2731
C2732
02733
C2734
C2735
C2736
02737
C2740
02741
C2742
02743
C2744
02745
G2746
02747
C2750
C
- -2 7 5 1
C2752
02753
C2754
02755
C2756
02757
C2760
02761

-----

0774 OC
0 6 3 4 CO
0600 C O
-0774 00
1 00000
0754 00
- 0 7 6 5 CO
0734 0 0
1 00001
-0754 00
-0763 0 0
0734 00
1 00001
0535 00
0441 00
0446 00
0020 00
1 77740
2 00001
0500 0 0
0601 60
0560 CO
(3520 0 0
0074 00
0774 00
0 6 0 0 0U
-

4
4
0
1
1
1
0
4
4
0
0
2
2
1
4
0
C
1
4
0
0
0
0
4
4
4

03727
03057
03210
00000
02735
00000
00005
00000
02741
00000
00005
00000
02745
02733
OOOCO
00471
03047
02752
02746
03210
03057
03272
03220
03165
00000
00000
-

1636
1637
1638
1639
1640

PDX
TSX
TIX
Ti3 A

1 6 4 3 RCB
AX1
1644
ST2
1645
LDC:
1646
AXC
1647 F
AXC
1 6 4 8 SFSL CLS
1649
TM I
1650
ST0
1 6 5 1 SFSA
TXI
1652 G
TXL
. 1653
STZ
1654
SXA
1655
TRA
1 6 5 6 SFSC
PXD
1657
STD
1658
PDX
1659
TXI
1
-6 6 0
. *
1661 *
1662 *
1 6 6 3 SWPFWS AXT
1664
SXA
1665
STZ
1666 H
AXC
1667 1
TXI
1668
PXA
1669
LGR
1670
PAX
1671
TXI
1672
PXD
1673
LGL
1674
PAX
1675
TXI
1676
LAC
1 6 7 7 SFWLD L D I
1678
ONT
1679
TK A
TXI
1680
1 6 8 1 SFWB T I X
1 6 8 2 SFWDN CLA
1683
STO*
1684
LDQ
1685
ZET
1686
TSX
1 6 8 7 ZPCLA
AXT
1 6 8 8 ZPDL
ST2
-

-- --

of2
MRK'-ST_Lk----.___-_----.--._----_
HARK I T
I.tRKE,l, 1
GET NEXT ITEM
kfARYC
--- -EXIT

0v2
_ _
FSC
RCSGNM
SFXEE, 1
+ + ~ 4
0i 4
SFSC
0-4
*+lr4tL
SFSLs4, *+
091
FSC,2
SWPFWS
0.4
091
-0.1
SFSAv2, 1

_ _

- -- -

- -

---

1. ? N O ~ ~ O

-I--l*.zNl!5-1~
1.5N0520
1%
5N0530
1.5N0590

--

- - - -

--

---

ZERO COUNT I R
-.--. U N 46_23?- .---,-,
. -I N I T I A L I Z E COUNTER
SWEEPING
---SIGNAL
TO M
Q - ---- --- --. - 1.5N0630
------- - - - I N I T I A L I Z E LAST LOC I R
1 5N0640
TOP FREE STOR=
1.5N06 50
PICK UP WORD
1.5N0660
COLLECT I F SIGN NOW MINUS
1.5N0670
RESTORE WORD WITH + SlGN
1 5N0680
INCREMENT BY ONE
1 SNO690
LOOP I F LESS THAN BOTTOM FREE STORAGE 1 - 5 N 0 7 0 0
ZERO LAST WORD COLLECTED
SAVE COUNT
--..--"----1 5N0730
.--T ~ I S LOCATION^
1.5N0740
s T0 RE PO INTE R L ! l L LAST W O R D 5OtC-~-CJhhO_---1.5NP2-%---- -__--_ - -.UP DATE LAST WORD I R
1 5N0760
UPDATE COUNTER
--.---.--.--.
1.5N0770
1- 5N0780
NOk SWEEP FULL WORC SPACE WITH THE B I T TABLE
1 5N0790
1m 5N0800
F WORDL t 4
8EGlNNING OF FULL WORD L I S T
1 5N08 1 0
I N I T I A L I Z E ADDRESS
SFWA.4
1 5N0820
FWC
ZERC FULL WORD COUNTgR-1=5NO830
**,l.
BOTTOM FULL WORD SPACE
115N0840
*+l~l.**
TOP FULL WORD SPACE
1.5N08 50
0 ~ 1
GET ADDRESS OF B I T TABLE CORRESPONDING1.5N0860
5
TO THE BOTTOM OF FULL WORD SPACE
1 5N0870
0 14
B I T TABLE WORD
1.5N0880
*+1,4,1
MAKE INDEXING EASY______
1 5N0890
010
ZERO AC
1 5N0900
5
B I T NUMBER
-..
115N0910
0 12
INTO I R 2
1-5N0920
*+l,
211
MAKE INDEXING EASY
115N0930
H, 1
SET UP 1R 1
**,4
BOTTOM FREE STORAGE* ( T B T + 1 )
1.5N0940
S K I P I F ALL WORDS TO BE SAVED
115N0950
MONES
SEARCH FOR THE WORDS TO BE COLLECTED 1 - 5 N 0 9 6 0
SFWSC
*+1r 19-32
DECREMENT CURRENT LOC I R
1-5N0970
SFWLDs4t 1
INDEX THROUGH B I T TABLE
-1= 5N0980
FWC
ALL DONE, GET FULL WORD COUNTER
115N0990
SFWA
SET UP LAST CELL COLLECTED
115N1000
RCSGNN
PASE 3 SIGNAL
KCT
-TEST FOR OUT OF A_RRA_Y_SP_AC~-~~NNTRAANCE_-l~.5N1020.RELOC. 4
RELOCATE AND COMPACT FULL WORD SPACE
1.5N1030
**,4
ZERO UNUSED PDL
_-.**,4
ZERO PDL WORD

---

--

PAGE 39

BGPNIE-S

BIRTHDAY ASSEMBLY

- -- - ----

0560 C O 0 00402

1630

L DO

CRITWN

02765
0500 00 0 03210
07766 0 0 4 0 4 0 0 02770
C2767 - 0 6 2 5 0 0 0 0 3 2 2 5

1692
1693
1694

CL A

FWC

TLO

RCEA

STL

RCBE
TFWC
TFWC
4
FSC
RCFB
RCBE
T FSC
TFSC
RCC
SQ1
RCC
RLC
RCT
SQ1
RLC
RCBE
RCEO
RCEC
VERBOL
RCEX IT
RCX 1 4
0 4

02763

02771
(17777
C2773
C2774
02775
C2776
02777
03000
03001
C3002
03003
C3004
03005
C3006
03007
03010
C3011
C3012
C3013
3
4
0-c
03015
C3016
C3017
C3020
C3021
03022
03023
C3024
03025
C3026
C3027
C3030
03031
03032
C3033
C3034
03035
C3036
C3037
C3040
03041
03042
03043
03044
03045
C3046
C3047
03050

0601 00
-c7
00
05:%00
0 0 4 0 CO
-0625 0 0
0400 00
0601 00
0500 00
0400 00
0601 00
0500 00
0520 00
0400 00
0601 00
-0520 0 0
0020 00
0020 00
-0520 0 0
0020 00

0 03222
00004
03212
0 02776
0 03225
0 03773
0 03223
0 03717
0 00371
0 03217
0 03221
0 03220
0 00371
0 03771
0 03225
0 03012
0 03014
0 03267
0 03040

-0754 00
0131 00
0074 0 0
-0501 00
0 6 3 2 OC
0500 00
0074 00
0602 0 0
0500 0 0
0074 00
0602 00
C500 0 0
0074 00
C602 0 0
0074 00
0 GO000
0 00023
0520 00
0020 00
C500 0 0
0560 00
0 4 4 1 00
0774 00
0774 C O
0774 00
0020 00
0446 00
0020 00

4
0
4
0
0
0
4
0
0
4
0
0
4
0
4
0
0
0
0
0
0
0
4
2
1
4
2
0

00000
00000
11021
00452
03201
03210
04111
03210
03212
04111
03212
03216
04111
032-16
01222
00364
03174
03225
03152
03306
03307
03224
00000
00000
00000
00001
03267
03055

1696
1 97
1298
1699
1700
1 7 0 1 RCFB
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1 7 1 3 RCED
1714
1 7 1 5 RCFC
1716
1717
1718
1719
1720
172 1
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1 7 3 5 RCEXIT
1736
1737
1738 RCX
1 7 3 9 RCY
1 7 4 0 RCZ
1741
1 7 4 2 SFWSC
1743

A00
ST0
I GL.
CLA
TI R
STL
ADD
ST0
CI A
ADD
ST0
CLA
LET
A DD
ST0
NZT
TRA
TRA
NZT
T RA
1 AC
PXU
XCA
TSX
r7RA
S LI?
CL A
TSX
SLW
CLA
TSX
SLW
CL A
TSX
SLW
TSX

ZET
TRA
CLA
L DQ
ID1
AXT
AXT
AXT
TRA
CNT
TR4

--

--..

- .-

---

a
.

OCTALP, 4
OBLANK
RCT 1
FW
C
bDECON 9 4
RCT4
FSC
bDECON9 4
RCT5
GCPGLC
BDECON, 4
RCT6
OUTPUT 1 4
BCDOUT
RCTH 9 t 19
RCBE
RCBEX
iiC AC
RCMC
RC IND
*+, 4
**12
**,I
114
MBIT.2
SFWC

--

1.5N1040
IN LLI A I 1 7 F B
A
C
-UL
-LISNLO~O
NUMBER OF FULL WORDS COLLECTED
1.5N1060
TW F K 1F M O R E l t i A b l ( 1 R L U 1 : O L L ECJ - 1,5NLQ-7.Q
-- -- --- - - -_
NOT ENOUGH, SIGNAL BAD E X I T
1.5N1080
AOD TOTAL QE_UtLL-WDRDS-COLLEC-TED.-_ -_ f-. 5hllML- UPDATE COUNTER
1.5N1100
--.. -I?JL&EASk-l.OLERENCE BY -2 TO ThE 4 TH
1.5N1110
NUMBER OF FREE STORAGE CELLS PICKED UPl.5N1120
TRA I F GRFATER THAN CRUCe-L-1-*-____--.-NO, SIGNAL BAD E X I T
1.5N1140
ADD TOTAL O I I K E L C ~ ! W L Q A J - E E E ~ 5 Q _
UPDATE TOTAL
1.5N1160
N U M m OF RECl A I M A T _ U J n . L X U S - E X , E G ~ ~
INCREMENT BY 1
1.5N1180
UPDATE TOTAL
- _
- L 3 N I - L ! X L .--_-_
NUMBER OF TIMES RELOCATION OF FUS
1.5N1200
SKIP I F NO RELQCATAON
1.5N1220
UPDATE--.----..
SKIP I F BAD E X I T
1.5N1240
LO GOOQ E X I T
-__
1 2 TN1250--- - - . 0 0 VERBOSE AND BAD E X I T
1.5N1280
S K IP J U U A T I V F -._ - L A M l Z X L -__ -- - 00 EXIT
1.5N1300
GET F X I T I R 4
----- - - . .-- - - AND CONVERT FOR PRINTING

CFA

-- -.- -

CRITACL WORD NUMBER

--

__

-_

- - - -- -

--

- -

.
.---

FULL W R D COUNTER
-.-CONVERT TO BCD DECIMAL
_-p U I - INMES-SAGE
-- -.- FREE STORAGE COUNTER
TO DECIMAL
--. .-.
PUT I N MESSAGE
NUMBER OF ACTIVE REGISLE-RS ON PDL
TO DECIMAL
I N MESSAGE
_ _
WRITE OUT MESSAGE
_-

.-

_-

1.5N1400
1.5N1410
- - - 1._5-N 14 2 0 - _
1.5N1430

..

--

---

l , N L % ~ -_- _
-_

1.5N1450
l~5iNLk6.D
1.5N1470
-1 5N148_0_ ..- _ _ __
1.5N1490
A 5N_1_5_00__
1.5N1510
1~,5N-l%?A
1.5N1530

I
-

1.5N1350
1.5N1360
1.5Nl.370

- -

- - - - 1.5NXA_4R7 - _ - . -

AND INDEX REGISTERS

.-

-- -

SKIP I F GoOD EXLT

DO BAD E X I T
RESTORE MACHINE REG1 STERS

EXIT
- -.
CHECK FOR CURRENT BIT
I S OFF,.- COLLECT
-WORD
._

- -

- -_

1.-5_N1_560_

--.
-

-_-.
-- - -

PAGE 4 0

BONNIE-S

BIRTHDAY ASSEMBLY

03051
03052
03053
03054

1 77777 1 03052
2 O O O O ~2 03047
0774 0 0 2 00040
0 0 2 0 00 0 0 2 7 5 2

1 00000

03055 -0754 00
03056
0400 00
03057
0601 00
C3060
G4CO OG
C 3 0 6 1 G621 0 0
0 3 0 6 2 -0737 0 0
03063 0634 00
C3064 - 0 7 3 4 O C
C3065
1 77777

0
0
0
0
1
1
1
1

03066 3 00000
0 3 0 6 7 -3 0 0 0 0 0
03070 0634 00
C3071 0634 00
03072
0774 00
03073
0020 00

2 03132
2 03132
1 03130
4 03131
1 COO01
0 03111

03210
00000
00371
03210
00000
03057
00000
03052

C3074
C3075
03076
03077
03100
03101
03102
03103
03104
C3105
C3106
03107
C3110
C3111
03112
03113
C3114
C3115

05C2 0 0 2 0 0 0 0 0
0120 00 C 03127
0601 00 2 00000
0734 00 2 OOOCO
0622 00 1 OOOCO
100001 103102
-3 0 0 0 0 0 1 0 3 1 1 1
0 0 7 4 CO 4 0 3 1 3 3
GO4540604724
436040445142
436263't06060
0500 0 0 1 00000
-0734 00 2 OOOCO
- 3 COOOC 2 0 3 1 2 7
-3 0 0 0 0 0 2 0 3 0 7 4
-3 00000 2 03127
-3 O O O C O 2 0 3 1 1 6
0020 00 0 03127

C3116
03117
C3120
03121
C3122
C3123
C3124
03125
'23126
C3127
C3130

1 COO00
0754 00
-0765 00
0734 00
-0754 00
- 0 7 t 3 CC
0734 0 0
-0500 00
-0602 0 0
2 COO01
0774 0 0

2 03117
2 COCCO
0 00005
1 00000
0 OOCOO
C COOC5
4 00000
4 03266
2 00000
1 031C7
1 00000

1744
TXI
1 7 4 5 S F W D TIX
1746
AXT
1747
TRA
1748
1 7 4 9 SFWC PXC
1750
ADD
1 7 5 1 SFWA
ST0
1752
ADD
1753
STA
1754
PDC
1755
SXA
1756
PDX
1757
TX I
1758 +
1 7 5 9 * MRKLST
1760 +
1 7 6 1 MKKLST TXH
TXL
1762
SXA
1763
1764
SXA
1765
AXT
1766
T RA
1767 *
1 7 6 8 MWIN CLS
1769
TPL
1770
ST0
1771
PAX
1 7 7 2 MLEPD STD
1773
TX I
1 7 7 4 MLPDC TXL
1 7 7 5 XLPDE TSX
1776
BC 1

..

* + I t 11-1
S F W S C *1
~?~
3212
SFWB

I S ONl DECREMENT CURRENT LOC I R

1.5N1570
INDEX THROUGH THE BITS
SET UP I R WITH NUMBER OF B I T S PER WORD1.5N1590
1.5N1600
EXAMINE NEXT WORD IN-_B_LT_IA_B.BIE
1.5N1610
U, 1
-COLLECT THIS WORD, POINTER TO THIS WOR1.5N1620
FWC
D PLUS NUMBER OF WORDS COLLECTED I N ACl.5N1630
1.5N1640
*XXXXXX.. .-- -- - -.SET. LAST WORD COLLECTED
IrvCREMENT NUMBER OF FULL WORD5 COLLECT1.5N1650
BQ 1
1 5 N 1 6 - 6.5
SAVE FULL WORD COUNTER- FWC
COMPLEMENT CURRENT LOCATION
1 5N1670
011
TO FORM TRUE ADDRESS FOR UPDATE STORE 1.5N1680
SFWA, 1
CURRENT LOCATION POINTER
1.5N1690
011
SFWDt 11-1
DECREMENT CURRENT LOCATION AND RETURN 1.5N1700
1.5N1710
THE RECURSIVE SUBROUTINE THAT DOES ALL L I S T MARKING
1 5N1720
1.5N1730
MLEXT,Zt+*
BFW BAR, REJECT POINTERS TO PROGRAM
1.5Nl.740
MLEXT,2t**
TFS BAR - 1 9 REJECT POINTERS TO LOADER1.5N1750
1.5N1760
MSRTNt 1
SAVE I R 1
1.5N1770
MRKXl4
SAVE L I N K I R
111
PRESET TO ONE FOR FAST PUSH DOWN ACESS1.5N1780
M L I ST
LO ACTUAL MARKING
1.5N1790
1.5N1800
1.5N1810
092
MARK THIS WORD I N FREE STORAGE
MOUT
TRANSFER OUT I F ALREADY MARK=.
1 5N1820
012
CAR OF L I S T
1.5N1830
012
CkR TO I R 2
**, 1
ENCPCL + 1, SAVE CDR OF L I S T ON PDL
1.5N1840
*+11111
- INCREMENT PUSH DOWN _COUN_TER
12-5&133_0__
MLISTIL~+*
ENDPGL
C ( $ C P P I ) BAR, GO I F NOT NOPDL1.5N1860
RCERRy4
OUT OF PUSH DOWN L I S T * F A T A L ERROR
1.5N1870
3tONO POL -MRKLST1.5N1880

MLEPE CLA
P DX
MLIST TXL
MLBFA TXL
MLBBJ TXL
MLBDW TXL
TRA
MCNE

TXI
PXA
LGK
PAX
PXD
LGL
PAX
CAL
MLTBT ORS
MCUT T I X
MSRTN AXT

.--..

--I.~N.L~~o--

-.
..

- --

___-a

--_

1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795

__

**11

012
MOUTlZ, **
MWINt2,**
MOUT 2 t **
MGNEtZv+*
MOUT

*+1 t29**
092
5
0 12

oto
5
O T4
BITt4
**t 2
PLEPE, 1 t 1
**11

--

--

- ---

-.

-----------~--.

- -_--_ -----

1.5N1890
ENDPCL + 11 GET CDR -3E.L!5TT
1.5N1900
PUT I N
IR 2
TFS BAR
1, OUT If*
NOT I N LISP-STORAG1.5N1910
BOTTOM FREE STORAGE BAR, IN FREE
1.5N1920
BBT BAR OUT !F POINTER TO BI_I__LA_BLE_
BOTTOM FULL WORD BA~;-IN
FULL WORD
1.5N1930
E X I T 9 NOT ANY OF ABOVE
1.5N1940
1.5N1950
1.5N1960
TOP FULL WORC
CALCULATE B I T TABLE WORD AND B I T
1.5N1970
1.5N1980
B I T TABLE WORD
1.5N1990
1- 5 N 2 0 O q B I T TABLE B I T
1.5N20 1 0
-- -"-""1.5N2020
-- .
1.5N2030
PICK UP B I T
TOP B I T TABLE* PUT I N B I T - - 1.5N2040
- _
1.5m50
GO B A C K ~ F I N c T R U R S T O N
OTHEKW ISE RE STORE IR 1
___ ________1E5_N_2060
_ --

---*-

-_

--

00000000000

---

---------

.-

PAGE 4 1

BONNIE-5

BIRTHDAY ASSEMBLY

-0 3 1 3 1 0 7 7 4 0 0 4 00000
~ 3 1 1 7 n o 7 0 n o 4 onno1

03133
03134
03135
C3136
03137
03140
03141
03142

-0634 00
0634 00
- 0 7 7 4 ax

4
4
4
1 OOCOl 4
0634 00 4
0074 00 4
o ooooo c
0 00003 0

01567
03135
00000
03137
03142
01222
00364
00000

1796
1797
1798
1799
1800
1801
1602
1807
1804

MRKX

AXT

MI F X T T R A

*
*4

sxn

RCFRR

SXA
4 XC
TXI
SXA
TSX

1A05

1806
1807
1808

RCFEM

-.--. -

*4,4
1.4

. -.

---

AND L I N K I R
AND FXTT

- .-... -.-. .-..--.................

..

1.5N2070
J

.......

1 5N2090
R F C L A M E B FATAL W
l..lbl2lD(I
lo5N2110
BERROR. 4
SAVE IR 4
........
L..~NzL~~*+l
$4
COMPLEMENT I R 4 TO GET ERROR MESSAGE 1.5N2130
* * 4. . - - - - . - - - .
....
... .__-..___.._._... . . . . _ . . . . . . . . .
1-5N2140.
*+1,4r 1
LOCAIION OF E3RUR MESSAGE
1.5N2150
RCFEM.4
B U I l O OUTPCL-L
-----.
OUTPUT 1 4
WRITE ERROR MESSAGE ON TAPE
1.5N2170
BCDOUT
-~ . 5 m * * t 93
WRITE OUT 3 WORDS

.-

-_

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

-- -

a
.

03144
03145
03146
03147
03150

0600
0441
0055
0604
0074

GO 0 0 3 7 2 7

00 0 10340
00
000010
00 0 10340
00 4 01521

03152
0441 00
03153 0500 00
C3154 0 5 6 0 0 0
03155
0534 00
C3156 0534 0 0
03157 0534 0 0
0 3 1 6 0 -0634 0 0
C316l
C6Cl 00
C3162 -0754 0 0
C3163 0 0 7 4 0 0

03165
03166
03167
C3170
63171
03172
03173

0
0
0
4
2
1
4
0
0
4

03224
03306
03307
03043
03044
03045
01562
01556
00000
01563

0634 00 4 03172
0074 00 4 03133
004546605125
434623216346
516060606060
0774 00 4 00000
0020 00 4 00001

1810
1811
1812
1813
1814

STZ
101
SIR
ST I
TSX

1816
1817
1818
-1819
1320
1821
1822
1823
1824
1825
1826

1829
1830
1831
1832
1833
1834
1835

RCBEX 1 D I
CL A
LDU
LX A
LXA
LXA
SXD
ST0
PX D
TSX

RELOC

*
RELOC SXA
TSX
BC I

FWORDL
SYS IND
ERROR I
SY S IND
STIMEt4

ZERO STORAGE L I S T S
G FT Z Y S T E M O - R
SET ERRIR INDICATOR
UPDATE RFGISTER
PRINT THE CURRENT TO TIME
XT D I R m - 0

RCINO
RCAC
RCHQ
RCX I4
RCY .2
RCZ I 1
$ERROKJ 4
SER A C
090
SERROR+ls4

002721512221
272560234643

C3200
C32C1
C32C2

252460210360
0 OOCOO 0 00000
604623632143

......

1 - 5 N 2 2 50
l-AN223D
1- 5 N 2 2 8 0

..

...

-- -.

.1.=29(L

--

1 5N2300

AND I N D I X REGISTERS

O.OO
..O

SAVE I R 4
SAVE THE CONTENTS OF THE AC

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

1-122310

1.5N2320
1,5N23-3Q
...................

~ - . . ~

GO TO ERROR

RELOCATES ALL ITEMS I N FULL WORD SPACE- INTO A- COMPACTED-1.5N2390

BLOCK TO MAKE BLOCKS OF CONTIGOUS STORAGE AVAILABLE FOR
1.5N2400
ARRAYS.
_
_ _ - d*-5.N2410. - -- 1.5N2420
REL XI 4
SAVE LINK&%.-.3 L - . - ........
RCERRt4
THIS RPUTINE HAS NOT BEEN CODED YET. -40
3tONO RELOCATOR
.
.
.
.
-.... - ........
1*5N2_4_50
-

. . .-. -. -..

49 OCTAL -_

--

- -.-- ---

--

THE C A L L LOCATION

--

-- - -- - --

--

IS

- --

PUT

- -

1.5N2460
.-1.5N2470
105N2480
...1
....-. 5 N 2 4 9 0
1.5N2500

EEEEEEEE--EEEE-EEEEE

EC I

.- .---- --

1 8 3 6 RELX AXT
**, 4
RESTORE LINK IR
1837
TRA
194
RETURN TO MAIN PR!Lm.&M
1838 l
18 3 9
MESSAGES AND CON STANTS PLUS S T K I \ G E G O H E ! 3 3
184G 4
184lRCTM
ECI
5,OGARBAGE COLLECTOR ENTERED AT

1842 RCTl
1843

.
.

.-

RESTORF MACHI_NERE&I_SIEfFL__.

03174
C3175

1.5N2210

..

HERE
--_ -

- . - -- -

.
.
.

.....

--.- -...

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

....

...........

PAGE 4 2

BONN IE-s BIRTHDAY

- ---- --

ASSEMBLY--

-.-

-- -

- - - --

--

--

--

C3203
336060606060
C3204
606060606060
-- --C3205
606060606060
03206 606026644343
1844
EC I
29
FULL WORDS
- -- - - -1.5~2~580
_ _ .C3207 6 0 6 6 4 6 5 1 2 4 6 2
~ 3 2 1 0 0 00000 o 00000
1845 R C T ~
---NUMBER FULL
WORDS COLLE_CTED
-1.5~2590
__
03211 602651252560
1846
BCI
1, FREE
1.5N2600
C3212
0 0 0 0 0 0 0 0 0 0 0 0 .-&84_L.-RCT5
--.- - FREE STORAGE WORDS COLLECTED
1.5N26 10
C3213
606047646230
1848
BCI
3,
PUSH O O ~ ND E P T H 1.5N2620
C3214 6 0 2 4 4 6 6 6 4 5 6 0
--- --03215
242547633060
03216
0 00000 0 00000
1 8 4 9 RCT6
CEPTh ON PUSH DOWN L I S T GOES HERE
1 5N2630
SYN
RCT4
1 5N2640
03210
1 8 5 0 FWC
SYN
RCT5
STORAGE SAVING SYN S
1.5N2650
03212
1 8 5 1 FSC
1.5N2660
03216
1 8 5 2 GCPDLC SYN
RCT 6
1.5N2670
03217 0 00000 0 00000
1 8 5 3 RCC
TOTAL NUMBER OF RECLAMATION CYCLES
-- --- -03220 0 00000 0 00000
1 8 5 4 RCT
TEST CELL TO SEE I F RELOCATION WAS DON1.5N2680
03220
1 8 5 5 RCRLOG SYN
RCT
1o5N2690
03221 0 00000 0 00000
1 8 5 6 RLC
NUMBER OF TIMES RELOCATION WAS DONE
1o5N2700
03222
0 00000 0 00000
1 8 5 7 TFWC
TOTAL FULL WORDS COLLECTED
1.5N2710
--.
C3223
0 00000 0 00000
1 8 5 8 TFSC
TOTAL FREE STORAGE COLLECTED
1.5N2720
00471
1 8 5 9 MCNES SYN
SEVENS
--- .--00471
1 8 6 0 MONS
SYN
SEVENS
1.5N2750
-INDICATOR STORAGE
C3224
0 00000 0 00000
1 8 6 1 RCIND
TEST CELL FOR BAD E X I T
03225
0 00000 0 00000
1 8 6 2 KCBE
TEMPORARY STORAGE
1 8 6 3 MARYT
C3226
0 GOO00 0 0 0 0 0 0
00402
1 8 6 4 CRITWN SYN
BQ 1 0
1.5N2780
1865 *
1 8 6 6 * B I T TABLES F O R MARKING AND SkEEPING FULL WORD SPACE
1.5N2790
1867 *
----- - --- - --03227 +000000000020
labs
OCT
2o
C3230 + 0 0 0 0 0 0 C 0 0 0 4 0
1869
OC T
~ 0 ~ ~ 0 0 ~ ~ 0 0 ~ ~ 0 0 t ~ 0 0 0 ~ ~ 0 0 0 ~ ~ 0 0 0 9 ~ 0 0 0 0 ~ ~ ol t o
5 No 2o8 ~
2 0~ o o o o ~ ~ O O
C3231 +0000C0000100
C3232 +CC0000000200
--- -- -- - --- --- -- -03233 +000000000400
C3234 +00C00C001000
----------C3235 +C0C000002000
C3236 + 0 0 0 0 0 0 0 0 4 0 0 0
-03237 +000000010000
C3240 + 0 0 0 0 0 0 0 2 0 0 0 0
-- - - . - -- .- - - - -- - - C3241 +000000040000
03242 +C00000100000
--- ---- - -- . - .
032113 + 0 0 0 0 0 0 2 0 0 0 0 0
1870
OCT
2 0 0 0 0 0 ~ 4 0 0 0 0 0 , 1 ~ 0 0 0 0 0 ~ 2 0 0 0 ~ 0 0 ~ 4 0 0 ~ 0 0 0 0 ~ 1 0 0 0 0 0 0 0 ~ 2 01.5N2830
000000
C3244 + 0 0 0 0 0 0 4 0 0 0 0 0
C3245 + C C O O 0 1 0 0 0 0 ~ 0
C3246 +CC0002000000
-- -- - -- - -- - - 03247 +000004000000
C3250 +00G010000000
--C 3 2 5 1 +C0C02000C000
C3252 + 0 0 0 0 4 C 0 0 0 0 0 0
1871
OCT
4 0 0 0 0 0 0 0 ~1OOOOO000t ZOOOOOOCC r 4 0 0 0 0 0 0 0 0 r 1 0 0 0 0 ~ 0 ~ 0 0 0 1.5N2840
------__--- C3253 +000lOOOOO000
C3254 + 0 0 0 2 0 0 C 0 0 0 0 0
- --C3255 +C00400G00000
C3256 +CC1000000000
------ --- -

------

--

--

-----

-------_

------- -

---

.-- - . - --- -- -- ""-.--

PAGE 4 3

BONNIE-S

C3257 +G02000000000

C77hh

-0

0 0 0 ~ 0 0
03267
03776

C3267 - 3 7 7 7 7 7 7 7 7 7 7 7
03270
03271
03272
03273
03274
03275
C3276
03277
C3300
C3301
03303
03303

+111111111111
+227272222222
+333333333333
0 00000 0 00000
-3 0 0 0 0 0 7 0 0 0 0 0
0 00000 0 00000
0
0
0
0
0
0

74500
00531
74476
16503
00000
03707

0
0
0
0

74501
00473
74477
16477
0 74475
0 03304

BIRTHDAY ASSEMRLY

1872

OCT

I874
1875
1876
1877

OCT
K B l T SYN
MBITF SYN

1879
188C
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1897
1893

R I T

-wQOQ---

.- -

- - ---

--- -.-.

1.5N2870
--

777777777777

TEMXX

-.

EIT+l
1.5N2890

VERBOS OCT
RCSGNL
RCSGNM
RCSGNN
TMLM
TMPTM
lilRKP

1.5N2850

2000000000~4000000000~10C00000000~20000000000

OCT
OCT
OCT

l l L l l l l l l l l l
222222222227
333333333333

SVN

,7

THIS CELL NON ZERO MAKES THE RECLAIMER

VERY T M A T I V F

- --

PHASE SIGNALS FOR MQ

TEMPORARY STORAGE
PREFIX AND TAG MASK
TEMPORARY m G E

.---1,5N294(1(1-

1.5N2950
.1,2iZ94Q.1.5N2970
-

'

.-

_ _ 1 r ; h l ? % - _ _ -

1.5N3000

-*-I * *-+2

PERMENANT TEMLI S ITEMS--

BCONATr r ECONAT
-*-l,
,-*-2
C$PROBEP,C$PROEN
-+I
BEGBLKv 1 ENDBLK-1

LAP PROTECTED AREA

END OF TEMLIS
FUNCTION STORAGE

.-

-----

_-

- -- -

PAGE 44

BONNIE-S

BIRiHOAY ASSEMBLY

----

---

--

---

- - --

--- -

--

- - - - ----

--

- ----

- -- --- ---- -

-- -

-- -- -

1 8 95
EJECT
1896 *
STORAGE BLOCK FOR FUNCTIONS ALL OVERLHE PACKAGE
.--1897
1 8 9 8 BEGBCK BSS
0
--- 1899
RECLAIMER STORAGE TO BE MARKED
1 9 0 0 TEMLIS
? *-TEMXX
- --- ---- - ----1 9 0 1 AKYLIS
L I S T OF ACTIVE ARRAYS
1902 K C A C
A C STORAGE
1-..5N27_60
_.---------------.----"
-" 1 9 0 3 RCWQ
MQ-S TORAGE
1 5N2770
1904 *
CNSFWL STORAGE
_
--__--___-----__--_---1 9 0 5 CNXT
POINTER TO NEXT WORD ON LINEAR OBJLIST1.5M9120
1 9 0 6 CNX
POINTER TO NEXT WORD ON PROPERTY L I S T 115M9130
1 9 0 7 CNFT
1.5M9140
POINTER TO NEXT WORD ON PNAME L I S T
1 9 0 8 CNAT
it
POINTER TO FIRST WORD OF CURRENT ATOM 1.5M9150
1 9 0 9 CNVA
1.5M9160
POINTER TO FIRST WORD OF PNAME L I S T
1910 rn*+i+r*+*+ar+rr+**ff***+***~*c~~*****ir****+********~**
-.
-.
1911 *
THESE CARDS ARE A BLOCK
1912
HEAD
A
SALIST AND RET I R 4
-1 9 1 3 CSV
1914
HEAC
0
ARGUMENT REG1 STERS
1915 ALIST
KEFERED TO B Y COMPILED FUNCTIONS
1916
LC089200
---. -.-- - - --.1917
REGISTERS FOK FUNCTION ARGUMENTS.
ARGL ANDARGZ ARE NOT
LC089300
1918
NORMALLY USED.
LC089400
1919
LC087200
1920 ARbl
LC089500
1 9 2 1 ARG2
LC089600
1 9 2 2 ARG3
LC089700
1 9 2 3 ARG4
LC089800
1924 AR65
LC089900
-- - - -1 9 2 5 ARG6
LC090000
1 9 2 6 ARG7
~~090100
.
--1 9 2 7 ARG8
LC090200
1 9 2 8 ARG9
LC090300
--------- - - - --1 9 2 9 ARGl0
LC090400
1930 ARGll
----- -------- -1 9 3 1 ARGLZ
1 9 3 2 ARGl3
---"
-.
-- ---- -. -1 9 3 3 AAG14
1 9 3 4 ARGl5
--- - - --- .-- - - -- - -- - - - -1 9 3 5 APG16
1 9 3 6 ARG17
--- -- - - - - - --- -- -- -- ---- -- - - - -1 9 3 7 ARG18
1 9 3 8 ARGl9
--------------1 9 3 9 ARG2O
1940
-- -- -- - - LC090600
-1 9 4 1 *aa*+*+*+rt**+a*******u**t***iua***z***i~**+*~***
1942
tIEAC
S
AND
----- .---1.5R1490
-- --- - -1 9 4 3 EVA1
SAND
LC497000
1 9 4 4 EVA2
-LC496900------1 9 4 5 EVA9
LC496800
VFAC
A
1946
APPENrJ
__- _ _ __ 1.5R1500
1 9 4 7 AS1
5 F1
LC391100
1 9 4 8 CWRl
--- - LC 391000 - - - _
- .
.

--

C3304
03304
C3305
C33C6
03307

0 I4502
0 00000
0 00000
0 00000

0
0
0
0

00000
OOOOU
OOOOC
00000

C3310
C3311
03312
03313
03314

0
0
0
0
0

0
0
0
0
0

00000
00000
00000
03313
00000

03315

0 00000 0 00000

03316

0 00000 0 00000

C3317
G3320
C3321
03322
C3323
C3324
(23325
03326
03327
C3330
C3331
03332
C3333
C3334
03335
03336
C3337
C3340
03341
03342

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

03343
C3344
03345

U 00000 0 10772
0 COO00 0 0 0 0 0 0
0 00000 0 00000

03346
C3347

0 00000 0 10762
0 00000 0 00000

00000
00000
00000
00000
00000

00000
00000
00000
00000
COO00
00000
00000
00000
COO00
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
0000U

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000
00000

"

--

---

--

-----

----m--_

--

---

PAGE 45

BONNIE-S

~ 3 2 ~ i n
C3351 0
C3353
0
03353
0
~7354 n
C3355
0
1-13356 n

r w n n nnnnn
00000
OQDOO
00000
000n0
00000

0 00000
0 m000
0 00000
n nnnnn
0 00000

~QQ.QO

n nnnnn

57
03360

0 OOOOQ O 1 0 4 3 0

03361
01762
C3363

0 00000 0 10440
0 DODO0 0 0 0 0 0 0
0 OOUOO 0 0 0 0 0 0

03364
03365
03366
C3367
03370
03371

0 00000 0 00000

0
0
0
0

00000
00000
00000
00000

0 10460
0 00000
0 00000
0 00000

0 00000 0 10167
0 00000 0 00000

03372
0 00000
03373
0 00000
G3374 0 0 0 0 0 0
03375 -C 00000
C3376
0 00000
0 3 4 11
C3411 0 00000
03412
0 00000

0
0
0
0
0

00000
00000
00000
00000
00000

0 00000
0 00000

C3413

0 OCOOO O 10037

G3414

0 00000 0 00000

C3417
03420

0 00000 0 00000
0 00000 0 00000

03421
03422
C3423

0 OCOOO 0 07646
0 OCOOO 0 00000
0 00000 0 00000

03424
C3425
C3426
03427

0
0
0
0

C3430

00000
C0000
00000
00000

0
0
0
0

07636
00000
00000
00000

0 GO000 0 0 7 6 2 6

1949
1950
1951
1957
1953
1954
1955
1956
195 7
1958
1959
1960
1961
1967
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1931
1982
1983
1984
1985

--

-- -

---

-- -

BIRTHDAY ASSEMBLY
HEAD

APPLY

1- 5 R 1 5 1 0

--

A C C ~

ASSL
ASSA
ASTl

-.. - LC

-..

I-----

--- - -

A T T ~

---

?-

HEAC
CSL
CS2
HFAC

CRl

R
SCOPYN
C
SF12

--

--

- _-

A S T ~

AST3

-- - -

-- - -

COPY

- -- --

U 4 L P O O _ - -- -- -

- -

LC442200
- -- - L C ~ ~ B O Q -- LC442400
LC442500
1.5R1530
- L t 2 L 4 2 Q L
LC214100

--

--- - - ~ % z . o ~ - - ~ LC374400

ECSl
FCS7
ECS3
ECS4

-_

LC374300

CWRL
HFAC

--

- -_ --

L.IRt5-M

CR?
E VC O

A
dCOND

N____--

_-_

--

LC473300
IC-G'32OQ
LC473100

O
-I.o.
1- 5 R 1 5 6 0
- - -- - -- LC528900

- - l . & . 5 ) 0

HEAD
EVl X
ELA
HEAC
EVSl
FVSF
EVSA
EVTRK MZE
EVCDR
E A G l l BES
EVTDE
EVD2
HEAC
GCX
HEkC
BFS4
HEAD

1988 Q
1989
1 9 9 0 LNKA
1 9 9 1 LNKB
1992
1 9 9 3 RET
1994 L
1995 F
1996
1 9 9 7 MCN5
1998
MCN4
1 9 9 9 MCN3
2000
MCN2
200 1
2 9 2
MSl

.. -.--.--

4421o 0111 ..

LC442000

R
FVL I S L

EVL IS
1N
AL I S T
P2 6
4
BOTTOM

HEAC

STORAGELCS23500

L C 3 a - L a o - - LC523400
TRACE SWITCH
-ARG L I S T FOR SUBR ARGUMENTS
ARGUMENT
-BLOCK
--- FOR
- --EVAL
--CDRIE)

10

-----

.--

GO SPECIAL FORM
L I N K R
LABP

LAMP

L I N K FOR COMPILED FUNCTIONS

L I N K STORAGE FOR AC
L I N K STORAGE FOR MQ
MAPCAR

-_

J..C-5.24&0
-

HEAC

R
-1) 0 6 9 0

PAPCON

---

M4PL I S
LINK IR
- -STORAGE
.- ---

- .-

--

-.

.
.
.-

_ _

- --- -

-- -

--

OOOO.OO.O

~ * . . ~ k ~ - k ~. ....

----

- ----

----

-- -- - ---.
---

R
-81069A

O.O-O

1.5R1470
1.5R1600
5,~kiAOO03.9
1-5R1610

D
BPMAPCA

- -

.-

-.

R
$GO
R

HEAC

--I,S_R1+UL_-

PROTECTED TEMP.

- - - - - -HEAC

LC403000
L C402-900
LC402800

-- -

- _LC40_5-0_0!-~r~_--- _ --_

LC406400
_ ~ ~ 4 0 6 3 - 0 0-- .
1.5RL640
-

--

---

- .-- -

PAGE 4 6

--

BONNIE-S

0 3 4 3 1 o ooooo o ooooo
03432
0 00000 0 00000
C3433
0 00000 0 00000
~ 3 4 3 4 o 00000 o 00000
03435
C3436
C3437

0 00000 0 07435
0 00000 0 00000
C 00000 0 00000

03440
03441

0 00000 0 00000
0 00000 0 00000

03442
03443

0 00000 0 00000
0 00000 0 00000

03444
03445
03446
03447
C3450

0
0
0
0
0

03451
03452
(23453

--

00000
00000
00000
00000
00000

0
0
0
0
0

07300
00000
00000
00000
00000

0 00000 0 07226
0 00000 0 00000
0 00000 0 00000

C3454
C3455
C3456
C3457
C3460

0
0
0
0
0

00000
00000
00000
00000
00000

0
0
0
0
0

07042
00000
00000
00000
00000

C3461
03462
C3463

0 00000 0 07022
0 00000 0 OOnOO
0 00000 0 00000

03464
C3465
03466
C3467
03470
03471
C3472

G 00000 0 06726
0
0
0
0
0
0

00000
COOOO
00000
00000
COOOO
00000

0
0
0
0
0
0

00000
00000
00000
00000
00000
00000

C3473
C3474
C3475
G3476
03477

0
0
0
0
0

00000
00000
00000
00000
00000

0
0
0
0
0

00000
00000
00000
00000
00000

C3500
C3501
C3502
03503

C
0
C
0

OOOCC
00000
00000
00000

O 00000
0 00000
0 00000
0 00000

BIRTHDAY ASSEMBLY

2003
nsz
2004
MS3
2 0 0 5 MS4
2006 M S ~
2007
2008
EVRl
2009
EVRZ
2010
fV39
2 0 11
2012
TEM
2013
LIS
20 1 4
2015
PAS3
2016
PAS4
201 7
2018
INTRX
2019
INTB
2020
INTGL
2 0 2 1 INTPL
2022
INTGS
2023
2024
RSL
2025
RS2
2 0 2 6 PgINTL
2027
2028
SRSl
2029
SRSZ
2030
SRS3
2 0 3 1 SRS4
SRS5
2032
2033
2 0 3 4 REPS1
2035
REPV
2036
REPTl
203 7
2033 X 1
2039
X2
2040
X3
2 0 4 1 X4
2 0 4 2 X5
2043
P
2044
E
2045
2046
SXT
2047
SZ
2048
SX
2049
SY
2050
ST
205 1
2052
AMIR
2 0 5 3 AMIND
2054
AWLIS
2055
AMO
2056 *

----

-- -- ---- - -- - --

HEAD

HEAC

HEAC

R
SPROG

HEAC

--

.---

-.--

- --.-

-- -

---

--

-- -

-. -

- -- .--

--

LC210600

---.-.l~o~!-~--

FUNCTIONAL ARGUMENT
FINAL ANSWER
1NTERMEDLA-1EAN_SW_E
-R
0R

R
$OK

--

- --- -- - - --- - - --- ----- --

ARGUMENT
L
HEAD

-- -_-

--

----. --

- -- - - ------

PAIR
F I R s T AMSL!EL
SECOND ARGUMENT
PRINAR --

LC210400
~LC2103_Q0_ - .
1.5R1650
- -- - - L C 4 9 9 r n
_- - _ _ LC499800
LC499700
1.5R1660
-- _ - 4 5 0 0
_ .__4 5 LO
1 5R167C)_----LC429200
LC429300
A

PROGRAM FEATURE
L I N K INDEX REGISTER
-CURRENT STATEMENT
1.5R1120
GO L I S T * ( L I S T OF PROGRAH POINTS) + I R 2
PAIR L I S T
1 5R1100
GO SWITCH t NON-ZERO I F GO OR RETURN 1.5R1090
READ1
1.5R1680

0000--~

SF13

--

LC295800
HEAD

R
BSRCH

HEAC

R
iSETQ

HEAC

B
bF 1 7

HEAC

TEMPORARY STORAGE FOR PRINT OR PUNCH

-SEARCH
1.5R1690
IR4
LCZ_25600
L
LC225500
P
LC225400
-F
LC225300
U
--- - - - -- - --- -LC225200
-- ----- - - SETQP
1.5R1700

--

-.----

" -

- --------

-- ----

---

HEAD

I]

- --

.----

LC487100
LC487 3 0 0 -- - --- - - - - - --SUBL IS
1.5R1710
I R 4 U F SUBLI S
_
_
--- LC387700
-- --- -- - CDR(E)
LC387800
LC387900
CAR( E )
-.----SUBLISl+',CDKlE)
I
LC388000
CDARI J )
- -- --- -- -- . -LC388100
--.
LC388200
---LC387600--- - -- -SUBST
1 5R1720

ADD, ETCI R 4 STORAGE

INDICATOR REGISTER STORAHE
L I S T STORAGE
--. -.
---- - - -- TYPE STORAGE
ARRAY MAKE PROGRAM
---- - -

-----..-.

--

- -- -- - -

ROCXO293
.
ROCX0292
ROCX0291
_ _
R D C X O ~ ~ ~ ~

- --

- - - .

--

. --.

- - - -- --

BONNIE-S

PAGE 4 7

B I R r H D A Y ASSEMBLY
--

03504
c15n5

0 00000 0 00000
n onnnn n

AFAT

2057

T F M M P ~ E M ~ ~ RSA
T-R Y

2059
035C6
03507

03653
C3654
03655

03657
C3710

0 00000 0 00000

-0

0 0 0 0 0-- 0 0 0 0 0 0

7060
206 1
7062
2063
7064
2065
7066
2067

--- -

-- -- -

- --

- --

--

EVALQUOTE STORAGE

HEAC

BS S

100

M7F

- - - - - ---9230
F
C H M C T F K F U W - N S -----_I------.---.. -..
- - -- -- - 1
POINTER 1 0 R E M A I N D E R OF L I S T
RDCIO 3 5 4
1
--_BDCI(UII_--.
MKNO
TEMP STORAGF T W L I F X L D L F U X
- R I l U L - 25
ROOM FOR MORE STORAGE

FVQAN
FVOB

----

ARRAY ATOM GOES HERE

HEAC
BBPNT BSS
P I N D 3SS

2069
BSS
7 0 7 0 FNORl K BSS

EVALQUOTE B U F F E R
_ _ - L E S T C E L L E A D I N - - -

-- --

--

----

-.
---

--

9220
a

------

_--

PAGE 48

BONNIE-S

BIRTHDAY ASSEMBLY

--

. -

-- -~

03710
03711
C3712
C3713
03714
03715
C3716
63717
03720
03721
63722
03723
03724
C3725
C3726
03727

0634 00
-0534 00
-3 0 0 0 0 0
-C600 0 0
0560 C O
-0620 00
0601 00
-0754 0 0
-0534 00
3 00000
-0634 00
0560 0 0
0774 00
0020 00
0 00000
0 00000

4
4
4
0
4
0
4
4
4
4
4
0
4
4
0
0

03724
03727
04031
03726
00000
03727
00000
00000
03727
03723
03721
03726
00000
00001
00000
00000

C3730 0 6 3 4 0 0 4 0 3 7 4 7
03731 -0534 00 4 0 3 7 5 1
C3732 3 0 0 0 0 0 4 0 3 7 3 4
C3733
0074 00 4 04037
03734 0 7 7 1 00 0 00022
03735 0 6 2 1 0 0 4 00000
C3736
0500 00 4 00000
C3737
0622 00 0 0 3 7 5 1
C374C -0620 00 4 O O O C O
C3741 - 0 7 5 4 0 0 4 0 0 0 0 0
C3742 0 7 7 4 0 0 4 0 0 0 0 0
03743 2 00001 4 03746
03744 0074 00 4 0 3 7 5 2
03745 0774 00 4 77777
C3746 0 6 3 4 0 0 4 0 3 7 4 2
03747 0774 00 4 00000
C3750 0 0 2 0 0 0 4 0 0 0 0 1
03751 0 00000 0 00000
03752 -0520
C3753
0020
03754 0601
~ 3 7 5 5 6500
03756 0100
03757 0402
03760 0601
0 3 7 6 1 C500
03762 0020
03763
C3764

00
00
00
00
00
00
00
00
00

0 11671
4 00001
0 04107
o 04106
0 03763
0 04110
0 04106
0 04107
4 00001

0 6 3 4 OU 0 1 1 6 7 1
C500 C O 0 0 4 1 0 0

207 1
EJECT
2072
HEAD
2 0 7 3 * CONSW
2074 *
2075
CONSW SXA
2 0 7 6 FWLOR LXD
2077
TXL
2078
STG
LDQ
2079
2080
SLQ
2081
ST0
2082
PXD
2083
LXD
2 0 8 4 LOWARY TXH
20R5
SXO
2 0 8 6 CSWO LDQ
2 0 8 7 CSWX AXT
2088
TRA
2 0 8 9 CSWQ
2 0 9 0 FWORDL
2091 *
2 0 9 2 * CONS
2093 *
2 0 9 4 CCYS SXA
2095
\IXD
2096
f XH
2097
TSX
2098
KR s
2099
2 STA
2100
C LA
2101
ST D
2102
SL Q
2103
PXD
2 1 0 4 CNTRl AXT
2105
T IX
2106
TSX
2107
AXT
2108
SX A
2 1 0 9 CNSX AXT
2110
TR A
2 1 1 1 FREE
2112
2 1 1 3 ARREST NZT
2114
TRA
2115
ST 0
2116
CLA
2117
TLE
2118
SUB
2119
ST0
2120
CLA
2121
TR A
2122 *
2123
AWHOA S X A
2124
CL 4
-

--

0
PUTS FULL WORDS I N FULL WORD SPACE

-CSWX,4
FWORDL, 4
FWLOUT,490

Gk!sL----------

SAVE L I N K I R
PICK UP FULL WORD L I S T TEST FOR NO MORE

1 5N30 1 0
- --- - - - :1 5fJ30?l)1 5N30 3 0

- -- --

1.5N3040
1.5N3050
1.5N3060
1.5N3070
1.5N3080
1-5N3090
1.5N3100
1.5N3110

---.2.*nL!%-?Q.-- - ---

094
FWORDL
0.4
0;4
FWORDL, 4
CSWO*4r*+
*-I94
CSWQ
**,4
114

P ICK UP POINTER TO - N E X ~WORD ON FWL

UP DATE FULL WORD L I S T POINTER
PUT AC I N FULL WORD AREA
POINTER TO AC
POINTER TO NEXT AVAILABLE WORD
EOTTOM FULL WORD SPACE, TEST FOR
A
AVAILABLE LOCATION AND UPDATE SAME
1-5N3130
RESTORE MQ
-1-5N3140
RESTORE L I N K I R
1.5N3l.50
EXIT
-- 1.5N3160
TEMPORARY STORAGE FOR MQ
1-5N3170
POINTER TO FULL WORD L I S T
l05N3180
1- 5 N 3 1 9 0
BASIC L I S P FUNCTION PUTS A WORD I N FREE STORAGE
1 5N323lL-1 5N32 1 0
CNSXy4
SAVE L I N K I R
L -5N3220
$FREE,4
GET FREE STORAGE L I S T P O l N T t R
1 5N3230
*+2,4,0
SKIP I F NOT OUT OF FREE STORAGE
1 5N32400_ --._ -FROUT.4
OUT OF FREE STORAGE
1- 5N3250
18
DECREMENT TO ADDRESS
1 5N3260
-014
PUT ACDRESS AWY
1.5N3270
094
GET POINTER TO__NEXT WORD _rN FREE
1.5N32- -8 0
-FREE
PUT I N FREE
1.5N3290
0T4
PUT CECxEMfNT &!A!.-"
- - - - - _ - - ~ - - _ _ -1.5N3300
----_
----1.5N33 1 0
014
POINTER TO WOAD
**,4
LOW ORDER 15 B I T S OF CON-S COUNTER KEPT1.5P6000
*+3,4,1
OECREMENT COUNT BY 1
1-5P6001
ARREST.4
CouQT EXhAusTEPPt-RELoao>R-sTOP
1 5P6002
-194
RELOAD NUMBER
1.5P6003
CNTRlp4
PUT I N COKNTER
-1.5P6004
**94
RESTORE L I N K I R
1.5N3320
194
EXIT
- - - - -- - - - - _- 12 5 N Z I 3 P
-- - POINTER
TO FREE STORAGE LIST
1.5N3340
1.5P6005-- -- - ------- -----TCOUNT
SKIP I F CUUNS COUNTER UN
1 5P6006
l r 4
OTERWISE RETURN
---------1.5P6007
CNT M
SAVE AC
1.5P6008
CNTS
GET R E S T OF COUKLR
- _ _.
1.5~6009
_ _ _
Ak'HOA
GO TO ERROR CALL I F EXHAUSTED
1.5P6010
CTG
DECREMENT BY 3 2 , 7 6 8
1.5~6011--_ - CNTS
UPDATE COUNTEN
1.5P6012
CNTM
RESTORE AC
1.5P6013- ---- -" - .* - 194
E 7 I T TO RELOAD CNTRl
1.5P6014
--1- 5P6015
TCOUNT, 0
D E A - C ~ V R T E THE--~~%~S--CO<NTER
CNTST
PICK UP
I N I T A L-- COUNT
-- -- - - - - 1.-5P60-l 7

-------

PAGE 49

BONNIE-S

--.

-- --03765
03766
03767
C3770
03771
03772
03773

0560 00 0 00475
0634 0 0 4 01567
0774 00 4 00010
0634 00 4 03747
0074 00 4 12636
0 0 7 4 0 0 4 Q1563
542660600154

03774 0500 0 0
03775 -0320 0 0
03776 0501 00
03777 0601 00
04C00 0 5 0 0 0 0
04001 0402 0 0
04002 0560 0 0
04003 0020 00

04004
C4C05
04006
04007
04010
C4011
04012
04013
04014
C4C15
C4016
C4017
04020
C4C21
04022
C4023
04024
04025
04026
04027
04030

0634 00
-0625 0 0
0621 00
-0534 0 0
0754 00
0401 00
0621 00
0734 00
0402 00
0621 00
-3 0 0 0 0 0
-0634 0 0
0500 00
0622 00
0774 00
0600 00
2 00001
0500 0 0
0774 00
0020 00
0 00000

C4031 0 6 0 1
04032 -0754
04033 0600
04034 0074
C4035
C500
C4036
3020

00
00
00
00
00
00

0
0
0
0
0
0
0
0

4
0
0
4
4
0
0
4
0
0
4
4
4
0
4
4
4
0
4
4
0

0
0
0
4
0
0

00457
03742
04106
04107
04100
04107
00475
12636

04026
04056
04022
02304
00000
04022
04023
00000
00371
04030
04044
02304
77777
03727
00000
00000
04023
04030
00000
00001
00000

03726
00000
03220
02522
03726
03711

2125
7126
2127
7178
2129
2130
2131
7137
2133
2134
2135
7136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178

-.

-.

.
..

--

.-

BIRTHDAY ASSEMELY
LDQ
SXD
AX T
SXA
TSX
TSX
BC I

*
*

SPEAK

SPFAX CLA
ANA

m.A

*
*
*

ST0
CL A
SUB
L DQ
TRA

$FIXD
BEKROR 14
894
CNTRL4
SMKNOV4
SERROR+1*4
I,+F
14

---

--

...-...

.-.

-- ---

--

1.SP6018
-__---A 2iE6.019

--

--- -

.-

MAKE THE COUNT A NUMBER

G0
--___
CONS COUNTER TRAP

-.------1. SP6020

1-5.P-L

- ----- - --

-.

--

--

-1.5P6040
TURNS THE CONTENTS OF THE CONS COUNTER INTO A FIXED POINT1.5P6041
NUMBFR.
- -- -L.5ew*z- 1.5P6043
SAMASK
GET ADDRESS M A L
U-UL44
CNTRl
PICK UP 1 5 LOW ORDER B I T S
1.5P6045
CNTS
OR I N fi.lsT OF t x ! l . N T A A e 4 Q i L 4 - _ _ I _ 1 _ 1 _
CNTM
SAVE CURRENT VALUE
1 5P6047
CNTST
PICK UP I N I T I A I V A U E
E_____L+P6_Q_48
CNTM
SUBTRACT CURRENT VALUE TO GET NUMBER 1.5P6049
SFIXD
OF CONSES.
PUT$FIXINnQ!
L5&a5Q
$MKNO
MAKE THE RESULT A NUMBER
1.5P6051

LW3-Q
BLOCKR

BLOCKR SXA
STL
STA
LXD
BKOR PXA
A DM
STA
PAX
SUB
STA
BLKETP TXL
SXD
CLA
STD
BLKB AXT
BLKC STZ
TIX
CL A
BLKX
AXT
T RA
RLKBB

BLOCK RESERVATION ROUTINE USED I N DECLARING ARRAYS.

BLKX, 4
NROOM
BLKB
SORG ,4
0.4
BLKB
BLKC
094
$81
BLKBB
BLKOUT 4,
$ORG, 4
-1.4
FWORDL
**, 4
*4,4
* - l r 4 ~1
BLKBB
*+, 4
1.4

*
*

FWLOUT ST0
PXO
STL
TSX
CL A
TRA

1.5N3360
L.2N3.3.7-Q

SAVE L I N K I R
SET UP TO0 B I G TEST CELL
-BE RESERVED
ADORESSOF FIRST REGISTER AVAIALAEE%_
ACDRESS OF FIRST REGISTER FOR ARRAYS
1.5N3420
ADDRESS OF EN0 OF BL-OCK
_-.1.~5_E13_4_30I N I T I A L I Z E S T 2 LOOP TO CLEAN OUT DLOCK1.5N3470

____-----.E%_E%_.E%_.E%_E%_E%_E%_.E%_.

--

**

---

--

p.----p----..p.----

-------.--

.-..-- .

--

- .-

BOTTOM B I T TABLE BAR, GO I F WONT F I T

1.5N3480
UPOATE OR6
- ---POINTER TO NEXT WORD ON FULL WORD L I S T
UPDATE FULL WORD L I S T
1 5N35
-laLENGTH OF BLOCK
1.5N3520
ZERO THE BLOCK
1.5N3530
--GET ANSMER
RESTORE L I N K I R

--- -- --

--- -- - -1*511?355_4_ _ _
1 5N3560

-1&N3-5_%!..
VAROIUS ENTRANCES T O THE RECLAIMER

.- --

PICK UP $ F I X
SAVE l INK I R
8 SPARE CONSES FOR dMKNO

--

--

_ -

- --_-----..

1.5N3600
-_
-- - -- _ -_ 1 5.!436_lP-_
- --FWLOUT
OUT OF FULL WORD L I S T
1.5N3620
-CSWQ
SAVE FULL WORD
1*5N3P?.O
- -010
ZERO nC
1.5N3640
ACALOC
s 1GN AL NO R EL 0 C A ~ I ~ ! . N E c ~ % s m v v
1.5N3650
--...-._
RECLAM94
0 0 THE hORK
1.5N3660
CSWQ
REST(jRcAC-- -_ . - - l-.!$j3670
FWLOR
RETURN T O CDNSW
1.5N3680
FRoUT
OUT O F R E E STORAGE--.. -_ _ - _-_
- _
-1 * 5 N ? 6 9 0 _ - __ - _ _ .

PAGE 5 0

BONNIE-S

04037
04040
04041
C4C42
04043

0634
0600
0074
0714
0020

00
00
00
00
00

[t

4
4
4

04042
03220
02522
00000
77776

04044 -0625 0 0 0 03220

C4045 - 0 7 5 4 0 0 0 0 0 0 0 0
C4046 - 0 5 2 0 0 0 0 0 4 0 5 6
04047 0020 00 0 04026
04050 0074 0 0 4 02522
04051 0500 0 0 0 03727
04052 0622 0 0 0 03721
04053
0737 0 0 4 00000
04054 0600 0 0 0 04056
04055
0020 0 0 0 04010
04056 0 00000 0 00000

04057
04060
G4061
C4C62
04063
C4064
C4065
C4066
04067
C4G70
C4071
C4072
04073
C4C74
04075
04076
04077
C4100

-0625 0 0
-0100 0 0
0500 00
0621 0 0
0020 00
0634 00
0634 00
-C734 0 0
0074 00
0601 00
0621 00
-C320 0 0
0601 00
0774 00
0774 00
-0754 0 0
0020 00
0 00000

C4101 0634
04102 0500
C4103
C621
04104 -0754
C4105 0 0 2 0
C4106
C4107
C411O

00
00
00
00
00

0
0
0
0
0
4
7
2
4
0
0
0
0
4
2
0
4
0

0
0
0
0
4

11671
04064
04107
03742
04076
04074
04075
00000
13075
04100
03742
00465
04106
00000
00000
00000
00001
00000

11671
03742
04107
00000
00001

C 00000 0 0 0 0 0 0
0 OGOOO 0 0 0 0 0 0
0 00000 1 00000

2179
2180
2 81
2
h
2 l S
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232

---- --

----

- - --

BIRTHDAY ASSEllBLY
FROUT SXA
STZ
SX
F/
AXT
K
TRA

'

COUNT

COUNT STL
TNZ
CLA
ST A
TRA
CNTA
SXA
SXA
PCX
TSX
ST0
ST A
ANA
ST0
CNTX
AXT
CNTY
AXT
CNTB
PXD
TRA
CNTST
+

UNCONT

UNCONT SXA
CLA
ST A
PXD
TRA

CNTS
CNTM
CTG

--

BLKOUT STL
PXD
NZT
TRA
TSX
CL A
STD
PAC
STZ
TR A
NROOM

*
*
*

--

- --

FRXv4
SAVE L I N K I R
RCRLOC
SIGNAL NO RELDCATION NECESSARY
--1.5N3710
RECLAM, 4
DO THE WORK
1.5N3720
***4
RESTORE LINK-OA--- - -_-___-.-- 1- 5 N 3 7 3 0
-214
NON- STANDARD EX IT
1e 5 N 3 7 4 0
BLKOUT
OUT OF F U L L WORD SPACE FOR ARRAYS
1.5N3750
RCRLOC
SIGNAL RELOCATION NECESSARY
1.5N3760
O d L
"--- --CLEAR- AC.
l.SN3770NROOM
F A L L THROUGH ON SECOND-CONSECUTI VE ENT1.5N3780
1.5N3790
BLKX
EX I T FROM BLOCKR ROUTINE
RECLAM, 4
DO THE WORK
1.5N3800
F WOR DL
P I C K UP POINTER TO F I R S T A V A I L A B L E WOR1.5N3810
LOWARY
1.5N3820
SET UP LOWARY
0 94
COMPLEMENT INTO I R 4
1- 5 N 3 8 3 0
NROOM
SET UP TOO BIG TEST CELL
1 5N3840
BKOR
0 0 BLOCK RESERVATION
1 5N3850
1 5N3860
1.5N3870
1.5P6052
A FUNCTION OF 1 ARGUMENT ( A F I X E D P O I N T NUMBER) TURNS ON 1.5P6053
THE CONS COUNTER AND LOADS I T WITH THAT NUMBER
1.5P6054
A LOAD OF N I L SIMPLY LEAVES THE P R E m U S CONTENTS I N THE1.5P6055
COUNTER
1.5P6056
1 5P6057
TCOUNT
A C T I V A T E THE CONS COUNTER
1.5P6058
CNT A
GO I F ARUGMENT I S NOT NULL
1.5P6089
CNTM
OLD VALUE OF C N T R l
1.5P6090
CNTR 1
PUT I T THERE
1.5P6091
CNT B
CLEAR AC AND E X I T
1.5P6092
CNTX74
RELOAD COUNTER W I T H F I X E D POINT ARG.
1.5P6060
_ -- - _ _
CNTY 2
SAVE INDEX REGISTERS
1.5P6061
0 12
ARGUPENT TO INDEX 2
1.5P6062
---FIXVAL14
EVALUATE AS A F I X E D P O I N T NUCBER
1.5P6063
CNTST
SET I N I T I A L VALUE C E L L
1.5 P 6 0 6 4
CNTRl
LOW ORDER 1 5 B I T S TO CNTRL
1- 5 P 6 0 6 5
POTMSK
MASK OUT LOW ORDEJR 1 5 B I T S
CNT S
STORE REMAINDER I N H I G H ORDER CELT1.5P6069
**,4
RESTORE INDEX REGIST_E_RER1.5 P 6 0 7 0
* * #2
1.5P6071
010
G I V E u E A F NI!1 5p6072-_ - _ _
114
EXIT
1.5P6073
I N T A L VALUE OF COUNT
1.5P6074
DEACTIVATES THE CONS COUNTER
1- 5 P 6 0 7 5
1.5P6076
TCOUNT 90
DEACTIVATE THE CONS COIJNTER
- __
CNT R 1
GET CURENT CONTENST OF COUNTES
1.5P6078
CNTM
SAVE I N TEMP STORAGE
1.5P6079
010
G I V E VALUE OF NULL
1.5P6080
1 ~ 4
EX I T
-- -- 1 . 5 P-6-0 8 1 --- - .-- 1.5P6082
1 5 P-608 3
H I G H ORDER B I T S OF CONS-COUNLER
TEMPORARY STORAGE
1.5P6084
7 1
LOW ORDER 8 1 T O ~ ~ O R D E Z?XB!Us
R ___-_
__
-

--

--------------

PAGE 5 1

BONNIE-S
--3734

--

04111
C4117
04113

0 6 0 0 0 0 0 77662
0600 00 0 77664
0634 00 4 04176

2235
7736
2237
77139
2239
77411
2241
7747
2243
7744
2245
7746
2247
2248
2249
7750
2251

BIRTHDAY ASSEMBLY

1,r;ehflag_-----

it

E
+

HED
CFCflN A N n W N A M

LC188300

--

--

~ ~ R m b _ _ - - - ---

__

RDC10245
*
n F C n N F $ A I l F T a I INTF_GER ( + flR
I A S LMLUT . _ N . M - A l l AND
RDCLOZL+h. - _ _
+
G I V E S AS OUTPUT THE BCD REPRESENTATION OF THAT NUMBER.
LO ORDER R D C l 0 2 4 7
+
R I T < AR.E-lN.JC. c. HI .~QLV.V.U11SSI.,N...M6LLEADING- ZEROS ARE
.
ROC10248
*
SUPPRESSED.
I F THERE ARE NO H I ORDER B I T S , MQ I S ZERO.
THE
ROC10249
4
P H IT ANDOF 1 A A G R E E 4
RDC10251
NUMNAM T A K F S A S INPUT A PO
DI
QECIMAI
INILGFR
I + n~
1 AMRQ
CAUSES THE BCD REPRESENTATION OF THAT NUMBER TO BE P R I N T E D * WITH R O C 1 0 2 5 3
it
l F A C I N G Z E R ( I S S F C RnCln254RDC10255
---fmuQi5b4
-DECON S T 2
DETSl
SIGNAL
FOR-DECON EXIT
RDC10257
ST7
DE1 OD
SFT LO ORDER D D L G _ L Y _ L a _ L E B a R
_ D. L L O 2 5 a
SXA
DEIR494
SAVE I R 4
RDC 1 0 2 5 9
+

--

--- 04115
04116
04117
04120
04171
G4122
04123
04124
04125
C4126
C4127

-0625
0634
-0734
0500
-0675
0601
0760
0761
-0130
0774
C600

00
00
00
00
00
00
00
CO
00
00
00

0
4
4
4
0
0

C4130
~ 4 1 3
C4132
04133
04134
C4135
C4136
04137

-0754 00
1 0221 00
0767 0 0
-0602 0 0
-0600 00
-0520 00
0020 00
2 00006

C4140
C4141
04142
04143

0500 00
0601 00
0600 00
1 00036

C4144
04145
04146

C560 0 0 0 7 7 6 6 7
0162 00 0 04157
2 COO06 4 0 4 1 5 4

C4147
G4150

0500 00 0 77665
0601 00 0 77664

0
0
0
4
0

77667
04176
00000
00000
77663
77667
00012
00000
OOOOO
00044
77665

0 00000
o 00402
4 00044
0 77665
0 77666
0 77666
0 04144
4 04130

0
0
0
4

77665
77664
77663
04127

2 2 5 4 NUMNAM STL
DETS 1
S A L FOR RNIIMN&EXI'.__------.
RDCLO26L
2255
SXA
DEIX414
SAVE I R 4
RDC10263
PDX
,4
2756
PLACE I N P U T N U M B E f l W L
2
U
Q
Z
k
2257
0 14
CLA
RDC10265
7758
DE7
STL
DETS7
SIGNAL F W D H I - clELELa-l(bIZS
--L
.---- .
ST0
DEINP
2259
SAVE INPUT FOR S I G N TEST
RDC10267
2260
DCT
SHUT OFF D I V I D E C H E C K I G L i l _ _ - - - P.D.GlQ268- -.
---2261
NOP
RDC10269
2262
XCL
NUMB ER-TOMQ-RD.ClQ270_- - 2263
AXT
3614
INDEX FOR S H I F T I N G
ROC10271
2264
DE4
STZ
DF D IG
~
R
~
!
d
~ --.- N
~X
. - -~ .. .
2265
ROC 10 2 7 3
2266
DE1
PXU
10
- ._ __RD.C10274_ _ - _
2267
DVP
saio
PUT ANOTHER DIGIT
IN DEUIG
ROC10275
2268
AL S
3694
A R . G L O Z Z 6 - - -2269
ORS
DEDIG
RDC10277
2270
STQ
DEMQ
I F QUOTIENT ZERO* CONVERSION
R
O
W
2271
NZT
DEMQ
I S DONE
ROC10279
2272
TR A
DE2
_ - -- -__._-.-!3D_C_10280
_.
.
2273
TIX
DEli496
RDC1028 1
2274
---_RJ)1Q282_
2275
CLA
DEDIG
STORE LO OROER D I G I T S
ROC10283
2276
5 TO
DELOO
P d ~ L ~ & 4 - - .- -._.. .
2277
STZ
DET S2
SIGNAL THAT H I ORDER D I G I T S E X I S T
ROC10285
2278
TXI
DE4 94 1 3 0
RESTORE S H I F T INDEX AND LOOP A G A I N
RDC1.0-286
2279
RDC10287
2 2 8 0 DE2
LDQ
DEINP
SEE I F MINUS S I G N NEEDED
RDC10288
2281
TOP
DEV
ROC10289
2282
TIX
DEQ,4,h
&x&2z?P --,- .
2283
RDC10291
2284 +
MINUS SIGN BEGINS A NEW WORD
-- - - -- - --- -. D
fi C 1 0 2 9 2 _- .. _ -- 2285
CLA
DEDIG
STORE LO ORDER D I G I T S
RDC10293
2286
ST 0
DELOD
- - -- - --- -ROC10294
-

----

-----

-.--I--

PAGE 5 2

BONNIE-S

04151 0600
04152
0600
G4153
0774
C4154
0500
04155
0767
04156 -0602

00
00
00
00
00
00

0
0
4
0
4
0

C4157
04160
04161
04162

00
00
00
00

0 00012
4 01676
0 77662
0 04200

G4163
04164
04165
04166
04167
04170
C4171
04172
04173
04174
04175
04176
C4177

0760
0074
0520
0020

-0500 0 0
-3 00006
- 0 7 6 5 00
- 0 5 0 0 00
- 0 7 6 3 00
0 5 6 0 00
-0520 0 0
-0130 00
-0760 0 0
0020 0 0
- 0 7 6 0 00
0774 00
0020 00

0
4
4
0
4
0
0
0

0
0
0
4
4

77663
77665
00044
00423
00044
77665

77665
04170
GO052
00472
00052
77664
77663
00000
00001
04176
00003
00000
00001

04200 -0500 0 0 0 77665

04201 0560 0 0 0 00471
0 4 2 0 2 - 0 7 6 5 00 4 0 0 0 5 2
04203 0131 0 0 0 00000
04204
0074 0 0 4 05110
C4205
0520 00 0 77663
04206 0020 00 0 04211
C4207 -0500 0 0 0 7 7 6 6 4
04210 0074 00 4 05110
04211 0534 00 4 04176
0 4 2 1 2 - 0 7 5 4 OC 0 OOOCO
04213
0020 00 4 00001

00423
04214
77662
77662
77663
77664
77665
77666
77667

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

DEQ

DEV

--

ST2
ST Z
AXT
CLA
ALS
ORS

DED IG
36.4
DEMIN
36.4
DEDIG

CCT
TSA
Z ET
T RA

$DCT,4
DETS 1
DE5

DETSZ
- --

DECDN E X -I T
GAL
DED IG
TXL
DEJ14.6
LGR
4 2 14
GAL
BLANKS
L GL
4 2 14
DEJ
LDQ
DELOD
NZT
DETSZ
X C- LPET
TRA
*+2S SM
D E I R 4 AXT
**, 4
TRA
1.4

*
DE5

2330
2331
2332
2333
2334
2335
2336
2337
2338
2339

-- - - -- - - - - -

B I R T H D A Y 4SSEMBLY

DEY

- -

--

--

---- --.-- ---.----

M A C H ~ N EERRORSEE W H I C H E X I T TO_-U.&!

LXA
PX D
T RA

D E M I N SYN
DE08G BSS
ORG
D E T S l BSS
D E T S Z BSS
DELOD BSS
D E D I G BSS
DEMQ
BSS
D E I N P BSS

OEIR4.4
10
1.4

SQ040
COMMON
1
1
1

1
1
1

L O ORDER DIGITS
OR ZEROSEE WHICH
L O ORDER D I G I T S TO AC
S I G N AND P B I T M U S T A S B E E

---

RESTORE I R 4 AND E X I T

."----

P R I N T WORD O F D I L I T S
SEE I F ANOTHER WORD MUST
BE PRINTEU
_--.._--__p-

"------

C L E A R AC.

8CD MINUS S I G N

---

AND E X I T

RDC103lB
RDC10319
R~ L 1 0 3 2 0
RDC10321
RDCl0322
RDC10323
RDCl0324
ROC10325
RDC 1032L""..,
RDCl0327
ROC1 0 3 2 8
RDC10329
ROC10330
RDC10331
RDC10332
----.-..---.-.-...-..RDC10333
-RDC1033_4_-_
-. RDC10335

.-

"-

0
0
-

I N S E R T T R A I L I N G SEVENS I N T O
D I G I T S WORD_

P-ESTORE I R 4 t

R O C 1 0 3 0 4 _- RDC10305
R DC 1 _ 0 3 4 6 - - - - RDCl0307
R D C 1 0 3 0 8 - - ~
RDC10309
RDCl0310
R D C 1 0 3 11
RDClO312
RDCl0313
ROC10314
RDC10315

P I C K UP D I G I T S
T R A h S F E R I F F U L L WORD OF D I G I T S
INSERT LEADING BLANKS

P R I N T LO OR"ERDL5IT.S

---

-- --

NUMNAM E X I T
CAL
DEDIG
LDQ
SEVENS
LGR
42.4
-.
-.
XC,l
TSX
S P R I N 2-. .4
LET
DETSZ
TR A
DEY
CAL
CELOD
TSX
bPRIN2.4

- -

- -. -. .-RDC10295
R D C 1 0 2 9 6 __-_------RDCl0297
---RDC-l&2%3_ -- -ROC10299
--R D
-. C .1
-0 3 0 0
RDC 1 0 3 0 1
ROC10302

--

S I G N A L T H A T H I ORDER D I G I T S E X I S T
CLEAR D I G I T S REGISTER
--"-RESTORE S H I F T I N D E X
INSERT MINUS SIGN
-- --

--

-- -

-..T..-_-z--m

-.-

- --

--

R D C l 0 3 4 4 ---.----------

.---

-ZERO MEANS DECON E X I T

ZERO MEANS H I ORDER D I G I T S
L O ORDER D I G I T S
CURRENT D I G I T S
MQ FORZERO
TEST
-- -- - -- I N P U T NUMBER

-- R-D C 1 0 3 4 6

--------

RDC10347
RDC10348
RDCl0349
R D C 1 0 3 5 0 ---- -.
RDC10351
ROCt0252
ROC10353

. .

. A

PAGE 53

BONNIE-S

GIRTHDAY ASSEMBLY

--

04714 0100 00 4
04215 - 0 6 3 4 UO 4
04216 -0534 0 0 4
04217
1 77772 4
72 0 0 0
04221 -0634 00 4
04222
0601 00 0
04223 0500 00 0
0 4 2 7 4 0 6 0 1 00 4
04225
0500 00 0
04276
0601 00 4
04227 0500 00 0
04230 0 6 0 1 0 0 4
04231 0500 00 0
C4232
0 6 0 1 00 4
04233 0500 00 0
04234 0 6 0 1 00 4
04235
0530 00 0
04236 0 6 0 1 0 0 4
04237 0500 00 0
0 4 2 4 0 0 6 0 1 00 0
04241 -0600 00 0
04242
0162 00 0
04243 0074 00 4
C4244 - 0 5 3 4 0 0 4
04245
3 00000 4
C4246 0 0 7 4 00 4
04247 0 7 7 1 00 0
C4250 0 5 6 0 0 0 4
0 4 2 5 1 - 0 6 2 0 00 0
0 6 C l 00 4
04252
04253 -0634 00 4
0 4 2 5 4 - 0 6 3 4 00 4
04255 0534 00 4
04256 2 0 0 0 0 1 4
04257 0074 00 4
C4260 0 7 7 4 0 0 4
0 4 2 6 1 0 6 3 4 00 4
C4262 - 0 5 3 4 C O 4
04263
0500 00 4
C4264 - 0 7 3 4 0 0 4
ti4265
3 00000 4
C4266 (2500 0 0 0
04267 - 0 5 3 4 0 0 4
C4270 0 5 6 0 0 0 4
04271 -0600 00 0
C4272
C560 0 0 4

00001
03430
07317
04220
07414
02317
03317
03430
77777
03431
77773
03432
77774
03433
77775
03434
77776
04344
77777
03317
03431
03432
04334
03432
03751
04247
04037
00022
00000
03751
00000
03433
03434
03742
04261
03752
77777
03742
03431
00000
00000
04306
03433
02317
77776
03434
77775

2341
7347 t
2343
7344
2345 R
7346
2347
2 3 4 8 MAPI I S
2349
7350
2351
7357
2353
7354
2355
7356
2357
7758
2359
7360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
MAIN
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
MLOPl
2387
2388
2389
2390
2391
2392
2393
2394

T H I S 4fl11TINF l l s F S

-- .

TZF
SX 0
I XD
TX I
XFC
SX D
ST0
CL A
STO
CL A
ST0
CLA
S TO
CLA
ST0
CLA
ST0
CL A
ST0
CL A
S TO
STQ
TQP
TSX
LXD
T XH
TSX
ARS
L CQ
SLQ
ST0
SXD
SXD
LXA
TIX
TSX
AXT
SX A
LXD
CLA
POX
TXH
CL A
LXD
L DQ
STQ
LDQ

IS

1.4
MSlt 4
$CPP 1. 4
*+lr4,-6
SFNOPOL
$CPP 1 9 4
SARGl
MS1

MS2
-5+4
MS3
-4r4
MS4
-3r4
MS5
-23 4
bl S6

--- ---.-- -..

NF M , F A Q V E R S I O N _ ~ L L ~ % ~ - Q P E . S _ . S . A Y . L ~ G Q ~ ~ S L C ~ Q
LC202000
..................
_MUU _!!ILL ..
.........
L.C202100 . .
LC202200
SAVE L I N K 1R
GET P
D
L
L
- L C 2 Q 2 -SAVE TOTAL OF 6 ITEMS
TFST FOR O U i P - - 1 . 5 P 7 0 3 0
UPDATE POL POINTER LOCATION
LC202800
SAVE AC
-START SAVING
LINK I R
LC203000

--

LC203200
~ ~ 2 ~
LC203400

FUNCTIONAL ARGUMENT

.
.
.

-.

INTERMEDIATE
ANSWER

...........

LC~3m

...........

----

- k.LaEL7-QD

LC203600
L.C2-~.35-00
LC203800

L ARGUMENT

F I N A L ANSWER

-. ........

ROC10355
A C 1 . 0 2 f i L
ROC10357
L.C196_6QO
LC201800

HED
MAPI

... ....

-.....

SAVE MARKER

KU2.UQQ

.......-

JARGl
SAVING ALL DONE, RESTORE AC
LC204000
M S2
PUT L ARGUMENT A W A Y
...
I.c-20.5-10 0.. . . . . . . . . . . . . .
MS3
PUT FUNCTIONAL ARGUMENT AWAY
LC204200
CMP
- 1 F TRANSFER, F NOT A T X L . Y S O . G O - ~ O - C _ O M P A L L C ~ ~ ~ ~
.....
QO.
......
MS3.4
EXECUTE FUNCTIONAL ARGUMENT
LC204400
f FREE14
START OPEN CONS
LQQ-3.5-23 ------ ++2 r 4.0
TEST FOR OUT OF FREE STORAGE
LC204600
S F R O U T I L --GO I F NO :4ORE FS
L-c204700.....
18
PUT F ( L 1 I N ADDRESS
LC204800
Or4
GET NEXT REG1 S T E R d L L E S L
LC204900-.-....L.LLL.LL
.
$FREE
UPDATE FREE
LC205000
0.4
CONSf F t L 1 * N I L 1
-L&LOOXt_oQ
MS494
FINAL ANSWER
LC205200
MS5.4
INT. ANSWER
L C.2 0.53-0-0 .- .-_.._._ .- $CNTR1,4
PICK UP CONS COUNTER
+ + 3 t 4r 1
DECREMENT BY 1
........
.
.
.
..........
.
.
.
.
- 1.5P7021
-. -. .ARREST r 4
1-5P7022
GO I F OUT OF COUNTER
-114
RELOAD OF FOR CoL!EE.!i
.-~.Z~-P~Q~G!......
SCNTR1 4
RZSTORE CONS COUNTER
MS294
MAUN LOOP,
GET L
........
LC205400-L
014
TAKE C D R ( L )
LC205500
0.4
.... 1
C-2055600
.........
f:PRG1,4rO
I F NOT NULL GO ON TO MAIN PROPRAM
LC205700
MS 4
A L L DUNE9 PICK UP F I N A L ! ! W L
LC205800
$CPP 194
START OPEN UNSAVEBY GETTING PDL POINTER
LC205900
-2,4
.
.
.
.
L-C_?_0-66_00
.................
.
.
MS5
LC206100
-314
...........
-.LC?06400 . . . . . . . . . . . .
l
l
I
1
l
_
l
I
I
l
l
_
l
-

--

...-....................................

.........

PAGE 54

BONNIE-S

BIRTHCAY ASSEMBLY

--

- -- - -

-.

- -- -

-- - -

---04273
04274
04275
04276
04277
04300
04301
C4302
04303
04304
04305

-0600 00
C560 00
-0600 00
0560 00
-0600 00
C560 00
-0600 00
1 00006
-0634 00
- 0 5 3 4 00
0020 00

4
4
4

03433
77774
03432
77773
03431
77772
03430
04303
02317
03430
00001

04306
04307
04310
04311
04312
04313
04314
04315
04316
04317
04320
04321
04322
04323
04324
04325
04326
04327
04330
04331
04332
04333

-0754 00
0 6 0 1 00
- 0 5 3 4 00
3 00012
0074 00
-0534 0 0
3 00000
0074 00
0 5 6 0 00
-0620 00
0 7 7 1 00
0 6 0 1 00
-0754 00
0534 00
2 00001
0074 0 0
0 7 7 4 00
0634 00
-0534 00
0622 00
0 6 0 1 00
0020 00

4
0
4
4
4
4
4
4
4
0
0
4
4
4
4
4
4
4
4
4
0
0

00000
03431
03432
04340
03432
03751
04316
04037
00000
03751
00022
00000
00000
03742
04327
03752
77777
03742
03434
00000
03434
04262

04334 -0620 00
04335 0074 00
04336 0 00000
04337 0020 00

0
4
0
0

04336
12007
00001
04244

04340 -0634 00
0 4 3 4 1 0074 00
04342 0 00000
04343
0020 00

4
4
O
0

04342
12007
00001
04313

04344 -3

0
4
0
4
0
4

0
't

03436 0 02371

- -

--- - - - --

- - ---

- . --- -

2395
ST (3
MS4
LC206300
2396
LDQ
-4.4
LC206200
-- - 2397
STQ
MS3
LC206500
--- - -- -- - - - -- - - - 2398
L DQ
-5.4
LC206700
2399
STQ
MS2
2400
L DQ
-69 4
---- - --- -- -LC206900
2401
STQ
MS 1
2402
TX I
*+I
R-!SLQ31iPQC_-C~U_NTER
2403
SX D
%CPPI,4
SET CPPI
LC207100
2404
LXD
MS1.4
PICK UP L INK IR
-LC207200
2405
IRA
1.4
RETURN
LC207300
LC207400
2406 +
2407 MPRGl PXD
0.4
MAIN PROGRAM PUT L I N AC
LC207500
MS 2
SAVE I N L ARGUMENT REGISTER
LC207600
2408
ST 0
2409
LXD
YS3 14
SEE I F FUNCTIONAL A R G I S S EXPRESSION
LC207700
2410
CMP1.4, LO
GO I F S EXPRESSION
LC207800
TXH
2411
TSX
MS3 s4
EXECUTE FUNCTIONAL ARGUMENT [TXL I N S * )
LC207900
MAIN1 LXD
$FREE 9 4
2412
START OPEN CONS
LC208000
2413
T XH
*+2,4,0
TEST FOR OUT OF FREE STORAGE
LC208100
2414
TSX
SFROUT r 4
GO I F OUT
LC208200
094
2415
LDQ
PICK UP POINTER TO NEXT FREE REGISTER
LC208300
2416
SLQ
$FREE
UPDATE FREE
LC208400
2417
ARS
18
ITEM T O ADDRESS
LC208500
ST0
0.4
CDNS{F(L) * N I L 1
2418
LC208600
0.4
ANSWER TO AC
2419
PXD
LC208700
2420
BCNTRl, 4
PICK UP CONS COUNTER
LXA
---TIX
*+3,4,1
2421
DECREMENT EY 1
1 5P7026
TSX
ARREST* 4
2422
GO' I F OUT OF COUNTER
1.5P7027
- -AXT
-1.4
2423
RELDAD OF -1 FOR COUNTER
1 5P7028
SXA
PCNTR1.4
2424
RESTORE CONS COUNTER
- _ _ _ -- -2425
L XD
MS5.4
PICK UP LAST ANSWER
LC208800
2426
STD
014
CONCATENATE THE ANSWERS BY RPLAC-D
LC20890o
---TTO
MS5
2427
UPDATE I N T O ANSWER
LC209000
2428
TRA
MLOPl
GO T O HEAD OF MAIN LOOP
LC209100
2429 *
LC209200
2430 CMP
SLU
*+2
COMPAT CALL FOR S EXPRESLISN FUN- A&&Lc20930k
2431
TSX
COMPAT.4
LC209400
2432
1v***
FUNCTION OF 1 ARGUME\T
-LC209500
2433
IRA
MAIN
GO BACK TO MAIN PROGRAM
LC209600
COMPAT CxL-L.-.LC209700
2434 4
2475 CMPl
SXD
*+2,4
LC209800
2436
TS X
COMPAT 14
LC209900
--- -2437
l,,**
LC210000
TRA
MA IN l
RETURN TO MAIN PROGRAM
2438
LC210100
"--.
2479 *
LC210200
2440 MS6
TXL
SEND5y,MS5+2
SAVE 5 ITEMS
--- --- 2441
LC210900
2442
FUNCTION COPY
LC211000_2443
COPY(L)= (L=O YIELDS 0, C A R ( L l = - 1 YIELDS Lp
LC211100
2444
OTHERWISE C O N S ( C O P Y ( C A R ( L ) ) , C O P Y ( C D R ( L ) ) ) )
Lc211200_.----_
-.2445 R
HED
LC211300
2446 COPY
TZE 1.4
L=O
LC211400 - -. -2447
SXD CS1,4
LC211500
2448
PDX 0.4
L
LC211600
--- - ---

04345
0100 00 4 0 0 0 0 1
04346 -0634 00 4 03357
04347 -0734 00 4 00000

--

---

PAGE 55

BOYNIE-S

- -- - --

- - -

-- -

---04350
04351
04352
04353
04354
04355
04356
04357
04360
04761
04362
04363
04364
04365
04366
04367
04370
04371
04372
04373
04374
04375
04376
04377

04400
04401
04402
04403
04404
04405
04406
04407
04410
04411
04412
04413
04414
04415
04416
04417
04420
04421
04422
04423
04424
04425
04426

-0634 00
0500 00
0734 00
- 3 77775
0500 00
0534 00
0020 00
0074 00
-3 03362
0534 0 0
0500 00
0 6 0 1 00
-0320 00
0074 00
0 5 3 4 00
0 6 0 1 00
-0754 00
0074 00
0560 0 0
0074 0 0
0074 0 0
-0534 0 0
0020 00
0 OD000

- 0 6 3 1 00
0074 0 0
-3 03462
-0600 00
0100 00
0 6 0 1 00
0560 0 0
-0600 00
0560 0 0
-0600 00
-0534 00
3 00012
0074 00
0020 00
-0634 00
0 0 7 4 00
0 00000
0100 0 0
0500 00
-0534 00
3 00012
0074 00
0020 0 0

4 04377
4 00000
4 00000
4 34357
0 04377
4 03357
4 00001
4 07317
0 02377
4 04377
4 00000
0 W 6 0
0 00460
4 04345
4 03360
0 03360
4 00000
4 04345
0 03360
4 03730
4 02326
4 03357
4 00001
0 00000
00460

4 03454
4 02312
0 02371
C 03456
0 04445
0 03455
0 03321
0 03457
0 03322
0 03460
4 034%
4 04416
4 03456
0 04421
4 04420
4 12007
0 OD001
0 OC435
0 03455
4 03457
4 04427
4 03457
0 04432

-----

81 RTHDAY ASSEMBLY

2449
7450
2451
7457
2453
2454
2455
2456 C l
2457
7458
2459
7460
2461
7467
2463
7464
2465
2466
2467
7468
2469
2470
2471
2472 C T l
2473 DECM
7474
2475
2476
2477
2478
2479 R
2480 SEAdCH
2481
74P2
2483
2484 SR3
2485
2486
2437
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497
2498
2495
2500
2501
2502

SXD
Cl A
PAX
TXL
CLA
1 XO
TRA
TSX
TXL
i XD
CLA
ST0
ANA
TSX

LXA
ST0
PXD
TSX
LDQ

TSX
TSX
I-XD
TRA

CT1.4
0.4
094
C l r 4. 2
C A
CT1
CSl.4
194
ZSAVF.4
------,-$END2,fCS2+2
CT1.4
Or4
CS7
OECM
COPY.4
CS294
CS?
0,4
COPY s4
CSZ
SCUNS.4
UNSAVEp4
CSlr4
1,4

( I1
CAR( L 1
R ( L ) =- 1
L

I - - . - -

---

---

- ---

--

-- -

SAVE 2 I T E M S
L
CWR( L 1

CDRi L 1
COPY ( CDR ( I I
CAR( L )
GOPY(CDR(L 1 1

-- --- -

--

LC211700
LC2llROO- - - - LC211900
--- L C 2 L 2 Q Q L
-__
LC212100
LC
2 1 2 2 Q L ----- _
LC212300
LC212400

- a ~ -

-.

LC212700
LC~12800
LC212900
LC213100
_U;L

--

_-

U L O D

LC213300
COPY ( CAR [ U-

- _ - - L C 2 1 3 k ! ---

-ll;iL13-U---LC213700
--

- -- L C-U39_W-

.-

- _-

LC214000

-- _ _ L C 2 1 4 3 =
SYN

6DMASK

--

TZE
CLA
LXD
TXH
TSX
TRA

SRSlr4
SSAVE14
SEND51 1 SRS5+2
SRS3
SR4
SRSZ
BARG3
SRS4
ShRG4
SRS5
SRS3r4
++3,4,10
SRS374
*+4
*+214
COMPATr4
lrr**
SRl
SRS2
SRS4r4
*+394r10
SR54,4
*+4

----- -- -- - - -- --

-----.---em

--

--

----

--

--

--

--

--

-- -

- ---

NOT P I L )
L

--

- -- - -

.-.

-- LC22_200_0_--

LC222100

- -- - ----

--

- -

--

--------

-- --- -

--

- - - ---

- -

- - - --

--

--

_ --

LL2"2LL&O!--LC222300
-- --_ -L
-C_TZ240O- _ _
-_
LC222500
LC222600
- --- - -- ---LC222700

_L~2__8_o_oQo_o_o_
--- -LC222900
LC_223300-_
-.LC223100
.
LC223200

- - - - - p p -

--

LC221400
Ic2_21600-~LC221700
-- - LC221&00LC221900

- -- -- --

-- -

L?221500

L
F

--

LC221200

SAVE 5 ITEMS
P

1.5L3230
--- - . - J U L 2 L e ; L & L --.--LC219200
LC12219300LC219400
LC219500LC219600

FUhCiION StARCH
SEAKCH(LrPtFrU)=lL=O YIELDS U t P I L f YIELDS F I L ) ,
OTHERWISE SEARCH ( C D R l L l , P r F , U ) l
HED
SXC
TSX
T XL
STQ
TZE
ST0
LDQ
STQ
LDO
ST61
LXD
TXH
TSX
TRA
SXD
TSX

__

--

LC213500

----

---

-"
- -

- --

--

PAGE 5 6

----------------------BONN1 E-S

B I R T H D A Y ASSEMBLY

ATfl-

- -

- -

04427
04430
04431
04432
04433
04434
04435
04436
04437
04440
04441
04442
04443
04444
04445
04446
04447
04450
04451

-0634 00
0074 00
0 00000
0074 00
-0534 00
0020 C O
0500 00
0601 00
0500 00
0601 00
-0534 00
0500 00
-0320 00
0020 00
0074 00
-0534 00
3 00012
-0534 00
0020 00

04452
0600
0 4 4 5 3 0560
04454 0074
0 4 4 5 5 0131
04456 0500
0 4 4 5 7 -0534
04460 0020

04461
04462
04463
04464
04465
04466
04467
04470
04471
04472
04473
04474
04475
04476
04477
04500

-0634
-0600

00
00
00
00
00
00
00

4
4
0
4
4
4
0
0
0
0
4
4
0
0
4
4
4
4
0

04431
12007
00001
02326
03454
00001
03460
03322
03457
03321
03455
00000
00460
04404
02326
03322
04452
03454
03322

0
0
4
0
0
4
0

03321
03321
03730
00000
03322
03454
14663

00 4 04600
00 0 04602
0 6 0 1 00 0 04601
0402 00 0 0 4 6 0 2
0100 00 0 0 4 5 1 6
-0520 03 0 04601
0020 00 0 0 4 5 2 1
-0520 00 0 04602
0020 00 U 0 4 5 2 1
-0534 00 4 04602
0500 G O 4 00000
0 6 2 2 00 0 04602
0734 00 4 00000
3 17776 4 04524
- 0 7 5 4 00 4 00000
0 1 3 1 00 0 00000

2503
2504
2505
2506
2507
2508
2509
2510

2511
2512

SXD ++2 t ' t

TSX C O M P A T t 4
I t ? * *

SR1

TSX
LXO
TRA
CLA
ST0
CLA
ST0
LXD
CLA
ANA
TR A
TSX
LXD
TXH
LXD
TR A

UNSAVE.4
SRS134
1t4
SRS5
BARG4
SRS4
fARG3
SRS2,4
Ow4
DECM
SR3
UNSAVE.4
SARG4t4
SRCMPT, 4910
SRSlr4
fARG4

- --

--

---

--

-- -

- --

--

-----

- --

LC223300
-- LC223400
LC223500
- LC223600
--.
- --- LC223800
LC223900
-.--- - LC2240GO
LC224100
LC224200
-LC224300
-- LC224400
LC224500
LC224600

---

--

----

1 YIELDS

- -

-- --

F
2513
L
2514
2515
CDRI L )
2516
2517
SR4
2518
2519
2520
2521
2522 *
2523 SRCMPT S T 2
SARG3
2524
LDQ
SARG3
2525
TSX
$CONS* 4
2526
XCA
2527
CLA
SARG4
2528
L XD
SRSlt4
2529
T RA
$APPLY
2530
2531
FUNCTION EQUAL
2532
EQUAL(LltLZ)=(Ll=LZ YIELDSltLl=OVLZ=O YIELDS 0 9 2533
CAR(Ll)=-lVCAR(L2)=-1
Y I E L D S 0, OTHERWISE
2534
EQUALfCAR1LltCAR(L2)lAEQUAL(CDRlLl)~CDR[L__2J_1_)
2535
2536 L
HED
2537
EQUAL
A FUNCTION OF 2 ARGUMENTS DETERMINESWETHER-?-LIST
2538 +
STRUCTURES A R E EQUIVELENT.
REPRO_GRAMM_ED 5 OCTOBER 1960
2539 *
TO MAKE USE OF THE NUMBER C O N V E N T I O Y S C U R R E N T L Y I N USE.
2540 *
-- ------2 5 4 1 EQUAL S X O
EQXRt 4
SAVE L I V K I R
2542
STQ
EQLZ
SAVE ARGUMENL-2
2543
ST0
EQLl
S A V E ARGUMENT 1
2 5 4 4 E Q L P SUB
EQL2
El2 TEST
2545
TZE
E OT
TWO L I S T ARE E Q t E X I T TRUE
2546
NZT
EQLl
S K I P I F L 1 NON NULL
2547
TRA
EQF
L 1 YULL BUT NOT EQ L 2 t E X I T F A L S E
2548
NZT
EQL2
NULL T E S T L 2
TRA
EPF
2549
L 2 NULL BUT NOT EQ L l t E X I T FALSE
2550
LXD
FQL2 t 4
P I C K UP L I S T 2
-2551
CL A
094
GET NEXT ELEMENT
2552
STD
EQLZ
S A V E CDR OF L I S T 2
2553
PAX
Ot4
CAR OF L I S T 2
2554
TXH
EQAt4t-2
GO I F
-- 2555
PXD
0w 4
C A R OF LIST TO DECREMENT O F AC 2556
XC A
S W I T C H 1 0 MQ
_-_

--

LC219900
LC220000
LC220100
LC220200
LC220300
LC220400
LC220500
LC220600
LC220700
LC220800
~~220900
LC221000
LC225700
LC225800
L!lz-Zz~%--.
LC226000
LC226100
LC226200
LC226300
RDCX0603

-- -- - .-"

--

- --

-__-- "---

RDCXO604
RDCX0605
RDCX0606
RDCX0607
RDCX0609
RDCX0610
R D C X O 6 11
RDCX0612
RDCXO6lxRDCX0614
RD
CX0615
RDCX0616
RDCXO617
RDCXO618
ROCX0619
RDCX0620

L E 2 1
RDCX0622
RDCX0623

--

R O
-

--

-- -

---

PAGE 57

BONNIE-S

- --

0 4 5 0 1 -0534 00
04507
0500 n o
04503
0622 00
04504 0734 00
04505
3 77776
~ 1 4 5 0 6-0754 00
04507 0 0 7 4 0 0
04510
3 O W 4
0 4 5 1 1 0074 09
0451 7 0074 0 0
04513 0100 00
04514 0 5 0 0 00
0020 00
04515

04516
04517
04520

4
4
0
4
4
4
4

O
4
4
0
0
0

04601
anonn
04601
OD000
04521
n00nn
02312
03375
04461
02376
04521
04601
04464

0500 00 0 00442
-0534 00 4 04600
0 0 2 0 0 0 4 00001

0 4 5 2 1 - 0 7 5 4 00 0 00000
04572 - 0 5 3 4 0 0 4 04600
04523
0020 00 4 00001
04524 0560
04525 -0774
04526 0 6 3 4
04527 0 0 7 0
04530 0100
04531 0020

04532
04533
04534
04535
04536
04537
04540
04541
04542
04543
04544
04545
04546
04547
04550
04551
04552
04553
04554
04555
04556
04557

0040
0131
0040
0500
0020
0634
-0734
0500
-0734
-0320
0100
0601
0500
0131
-0734
0500
-0734
-0320
-0320
0100
-0320
0601

00
00
00
00
00
00

00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00

0
4
4
0
0
0

0
0
0
0
4
4

4
4
4
0
0
0
4
0
4

4
4
0
0
0
0
O

04601
04527
04574
04542
04521
04516

04537
00000
04537
00442
00001
04574
00000
00000
00000
00470
04573
04576
00000
00000
00000
00000
00000
00470
04576
04573
00436
06576

2557
3 5 5
2559
7560
2561
7562
2563
7564
2565
7560
2567
7568
2569
7570
2571
7577
2573
7574
2575
7576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
,7588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610

--

- - - --

BIKTHDAY ASSEMBLY
LXD

rl

STD
PAX
TXH
0x0

TSX
TXI

TSX
TS X
TZE
CLA
TRA

- -- ---

-- -

PICK UP L I S T 1
RDCXO624
GFT NFXT FL ~ F N T
R
D
W
L
SAVE CDR OF L I S T 1
RDCX0626
CAR UF L I S T TO LR 4
- R D C X a 6 L L - .
-GO TO F4LSE EXIT I F THIS I S AN A T O M
RDCX0628
CAR n F L 1ST Tn RELREMEbiLoLnc----RDCXllb29--.
- - -SAVE CALL
RDCX0630
TAVF 3 ITFMC
--- -- - -TEST F 0 1 l EQUAL1 r Y I N CAd DIRECTION
RDCX0632
UNSAVF C A I L
R D - C X R G L WHOLE L I S T I S FALSE I F C A R DIRECTION FRDCX0635
PICK UP R F S T OF UST 1
_ B m 3 L - _ - - TEST EQUALITY I N CDR DIRECTION
RDCX0637

$QDl

TRUE EXIT, P I C K UP 1 I N DECREMENT

KESTORF LLNK I R

----

---

R O U l R

EQT

- --

EQL194
0.4
EOL 1
0 4
EQF,4,-2
0.4
$SAVE 1 4
b F N 0 3 . . FIJI 3+7
BEQUAi , 4
UNSAVF.4
EQF
EQL1
EQLP

CLA
LXD
T RA

FQXR94
1.4

PXD
I XD
T RA

010
FQXR 14
1.4

LDQ
AXC
SX A
TRA
TZE
TRA

EQL 1
EQAR3 4
EQPX.4
EQPF
EQF

RDCX0639
--

--

--

RDCX0642

-REQF

FALSE EXIT, CLEAR AC

RFSTORF LINK I R
EXIT

RDCX0644
646
RDCX0647
-RDCX04+8

EQA
FOAK

*
+

*
*
EQP

EQPTX
EQPF

EQPE

---

--

--

E QT

..-

.-

_-

...

-.

EQP TESTS FOR E Q BETWEEN LISTS AND NUHERICAL_EQUALITYBELWEEN

NUMBERS.
USES A TOLERENCE
I N TESTIONG FLOATION PT NUMBERS
TLQ
XC A
TLQ
CLA
TRA
SXA
PDX
CLA
PDX
ANA
TZE
ST0
C LA
XCA
PDX
CLA
POX
ANA
AN A
TZE
AN A
ST0

EQPF

----.

EQPF
$901
194
EQPX. I+
014
0 14
094
TAGMSK
EQPFX
EQPT
0 m4
0 14
014
014
TAGMSK
EQPT
EQPFX
BQT 1
EQPT

--

--

.. .---.-,--.-.----.-.

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

.
.
.
.

.
.
.
-

..

----

.
--.

.--.

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

-.-------

........

. .-. ---.- ......................

...

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

. . .

........

--

---

- .- . -.-

---

- .-.--

- .

-..
-

__-

--

- --__

..

-- --

........
-

----

--

--

---------

-- _
- - --

-- - . -

---

----

.,

- --

-_

_-

-_

- .-

PAGE

58

BONN1 E-S

04561 0601 00 0 04577

04562 0131 0 0 0 00000
04563 0402 00 0 04577
04564 0534 00 4 04574
04565
0100 0 0 0 04535
0 4 5 6 6 0 5 2 0 00 0 0 4 5 7 6
04567
0 0 2 0 0 0 r) 0 4 5 7 3
04570
0760 0 0 0 00003
04571 0402 0 0 0 14623
04572 -0120 0 0 0 04535
04573 -0754 0 0 0 00000
04574 0774 0 0 4 00000
04575
0020 00 4 00001
04576 0 00000 0 00000
04577 0 00000 0 00000
04600 0 00000 0 10241
04601 0 00000 0 00000
04602 0 00000 0 00000
04603 0 00000 0 00000

04604 0634 0 0 4 04614

0 4 6 0 5 - 0 5 3 4 00 4 0 2 3 1 7
0 4 6 0 6 - 0 6 3 4 0 0 4- 0 5 3 0 7
04607 0600 00 0'05310
04610 0601 00 0 03453
04611 0074 0 0 4 04620
04612
0074 0 0 4 05214
04613
0 5 0 C GO 0 0 3 4 5 3
04614 0774 0 0 4 00000
04615
0020 0 0 4 00001
04616
0500 00 0 04673
0 4 6 1 7 OC2C 0 0 0 0 5 1 1 0
04620 -0634 00 4 04674

2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
1622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637

---

BIRTHDAY ASSEMBLY

EQPFX
EQPX

ST0
XCA
SUB
LXA
TZE
ZET
i RA
5 SP
SUB
TMI
PXD
AXT
TRA

EQPT
EQPS
EQXR
EQLl
EQLZ
EQTS

--

---

EQPS
EQP S
EQPX 94
EQPTX
E OPT
EQPFX

- ---

--.---.

- --- --

.- --

--

- --

---

- -- - - - - -

--

-- ----- --

---*

--

--""

"

.- -

.-

-----

FLOTOL
EQPTX
010
*+,4
194

--+

TEST C E L L NON 0 Y I E L D S F I X
STORAGE
INDEX REGISTER STORAGE
L I S T 1 STORAGE
L I S T 2 STORAGE
TEST CELL
0 F I X , NON 0 FLO
AND F I X F L O

RDCXO687
RDCX0688
RDCX0689
RDCX0690
RDCX0691
RDCX0692
LC233300
LC233400
LC233500
LC233600
LC233700

MAY 1 4 . 1 9 5 9

--.
PRINT(L)=[CAR[L)=-1

THE L I S T L

YIELDS P R I N l ( L ) , l

YIELDS

I S P R I N T E D I N THE RESTRICTED N_O_oTJfi,!lN_v--

P R I N T REQUIRES THE SUBROUTINES P R I Y L TP R I N 2 9

T E R P R I T M I S P H 2 ( O R U A S P t i Z ) A L L HEADED BY P
--. .-..-- .
AND SAVE I UPJSAVE ERROR UNHEADED

LC234100
LC234200
LC234300
LC234400
LC234500
LC234600
LC234700
LC234800
LC234900
0
.- L C 2 3 5 0 0LC235100
- - - -

P R I N T MASTERMIidDER
PRPSl,4
SCPPI , 4
PC?P114
WALLPC
PRINTL
PR INO., 4
IFRPR194
PRINTL
++,4
194PKBLW
BPR IN 2
PSltC

- ..

--

.. .. -.-..

SAVE L I N K I R
SAVE CURRENT CONTENTS OF C P P I

--

1.5L3240

'

--.
-

RESTORE THE ARGUMEYT

RESTORE L I N K I R

--

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

--

- .-

..- --

-- -

.
...

--.-.

----

LC235900
125L3310

P I C K UP N I L REPRESENTATION
IN PRINT L I N E A N D - E X 1 i -

---

-- -

-.-

LC235500
LC235600

p
-

1-.

1- 5 L 3 2 5 0
1.5L3260

ZERO HALL PAPER COUNTER

SAVE THE ARGUMEYT
-

PUT

.- - - --- .

- --- -- ---- -

--

--

SF8

PRINT

v--

EQUAL USES $ S A V E , $ Q D ~ , U N S A V E I $ E Q U A L

2641
2642
2643
2644
2645
2646
2647
2648 T
HED
2649
2650
2651
2652
P R I N T SXA
2653
LXO
2654
SXD
2655
ST2
2 6 5 6 "*-,.
STU
2657
223S~
2658
P R T T l TSX
2659
C LA
P R P S l 4XT
2660
2661
TRA
2662
P R N I L CLA
TRA
2663
2664
P R I N O SXD

- ..

A
-

--.-

LC
23
--6 2 0- -0- - ---

--

PAGE 59

BONNIE-S

- ---

--

-------

04621 0100 00
0 4 ~ 7 7 0734 00
04623 -0634 00
04674 0500 00
04625 0601 00
04676 0734 00
04627 - 3 77776
04630 0500 03
04631 -0534 00
04637
0070 00
04633 0500 00
04634 0074 00
04635 0500 00
04636 0074 00
046.37 -3 04677
04640 0677 OU
04641 0734 00
04647 3 00000
04643 -0754 00
04644 0074 00
04645 -0534 00
04646 -3 00000
04647 0500 00
04650 0734 00
04651 - 3 77776
04652 0500 00
04653 0074 00
04654 0500 00
04655
0074 00
04656
0074 00
04657 0500 00
04660 -0534 00
04661 0020 00
04662 0590 00
04663 0074 00
04664 -0534 00
04665
0500 00
04666 0070 00

04667
04670
04671
04672
04673
04674
04675
04676
04677
04700
04701
04702

0 04616
4 nnnnn
4 04702
4 00000
0 04701
4 00000
4 04633
J 04707
4 04674
0 04703
0 04677
4 0 5 1 10
0 04701
4 07712
0 02377
0 04675
4 00000
4 04667
4 00000
4 04670
4 04675
4 04656
4 00000
4 00000
4 04662
0 04672
4 05110
0 04575
4 04703
4 02326
0 04676
4 04574
0 05110
0 04700
4 05110
4 04675
4 00000
0 04640

0500 00 0 0 4 6 7 3
0074 00 4 05110
O O Z C 00 0 04645
-203360777777
-053143777777
0 00000 0 07320
0 00000 0 00000
+347777777777
-347777777777
-207777777777
0 00000 0 00000
0 00000 0 00000

--

---

BIRTHDAY ASSEMBLY

2665
?h~f,
2667
7668
2669
7670
2671
7677
2673
2674
2675 X A l
7676
2677
7678
2679
2680 4 3
2681
7682
2683
7684
2685 A4
2686
2687
2688
26R9
2690
2691
2692
2693
2694 A6
2695
2656
2697
2698
12
2699
27UO
2701
2702
2703
2704
PRP2
2705
2706
2707
DOT
2708
PRBLW
2704
PS1
2710 PS2
2 7 1 1 RPAR2
2712
LPAR2
2713
COMM2
2714 CHRL
2715
L1
2716
2717
2718 T

TZE

PRNIL

PDX 0.4

SXD
Cl A
ST0
PAX
TXL
CL4
LXD
TRA
CLA
TSX
CLA
TSX

TXL
ST D
PAX
TXI
PXD
TSX
LXD
TXI
CLA
PAX
TXL
CL A
TSX
CLA
TSX
TSX
CLA
LXD
TRA
CLA
TSX
LXD
CLA
TRA

L194
0.4
CWRL
0.4
XA1941-2

PRINT THE NULL L I S T

--

- - ~ a b ~ o o LC236400

- - --

- _LC=-

- -- - -

LC236600
---L623AZQIl

- --

OCT
OCT
OCT

__.-------

----

HED

.--

- - - l_t23690OI._
-_ _
PS114
LC237000
dPKINl
---- LC22710D
LPAR2
SPRIN7.4
-L.C23zlaOzlao--CWRL
LC237400
aSAVF.4
I ~777500
--SEND21 t PS2+2
SAVE 2 ITEMS
PS7
SAVE L I S T
LfiC31ZI1_--C A R TO I R 4
1.5L3360
094
PRP2.4.0
-l-Iz?zmQ--.-014
LC238000
PRIN0.4
1C 7 U O
PS2 r 4
LC238200
A61490
--!_XLT-_ILNU_CL
- -_- .-.. 1.5P7070
_014
TEST FOR ATOM
1-5L3390
014
-_
1.*5L3_400
-- - A2,4t-2
GO TO A2 I F NOT A4 ATOM
1.5L3410
DOT
OTHFRWISE PRINT 1 1 D O T N O X L L L p
1,5!&3.&Z.O ----.----_
dPR IN2 4
PUT IN PRINT LINE
1.5L3430
PS2
CDR OF L I S T
.-5_L3-!4 0. - -___- ---SPKIN114
PRINT AS A T O M
1.5L3450
UNSAVEj4
- -_
-1 5C33.80
-RPAII2
LC238600
PS1.4
-J16218LO-&.- .-- $PRIN2
LC238800
COMM2
-_ ---- _- -----CC
2-3 8-93O -5PRIN214
LC239000
PS2 14
-LC239100
- _014
LC239200
A3
_l_-__J_cCwLOOO
--- LC239500
PRBLW
-- _
-- - --LC2396-00
SPRlN214
LC239700
A4
-- - -- --- LC239000
-603360777777
453143777777
NIL
----- --.
tF4
LC240100
--- - LC_240000 347777777777
LC240200
747777777777
--- - - - --L
-c 2 4 o ~ o q -_- .607777777777
BLANK
INSTEAD OF A COMMA
LC239900
-LLZ_G 0-5-(2.9 --.
-- - ._ - - - _ -LC240600
-- .
- LC240700LC240800
I 1

l
l
_
_
l
_
_
-

CLA
TSX
TRA
OCT
OCT

--

--

- --- -

--

--

- L C-230-900

PAGE 60

BONNIE-S

BIRTHDAY ASSEMBLY

-..

*.L\
04703
04704
04705
04706
04707
04710
04711
04712
04713
04714
04715
04716
04717
04720
04721
04722
04723
04724
04725
04726
04727
04730
04731
04732
04733
04734
04735
04736
04737
04740
04741
04742
04743
04744

-0634 00 4 05072
0601 0 0 0 05071
-0734 0 0 4 00000
0500 00 4 00000
0625 0 0 0 05103
-0320 00 0 00457
0402 0 0 0 00457
0100 0 0 0 04720
-0634 0 0 4 01562
0074 0 0 4 05214
-0754 0 0 0 00000
0 0 7 4 00 4 01563
544760600154
00457
0520 00 0 05103
0020 0 0 0 04733
0500 00 4 00000
0020 00 0 04726
-3 07334 4 04726
-3 07335 4 04750
-0734 0 0 4 00000
- 3 00000 4 05056
0500 00 4 00000
0734 0 0 4 00000
0020 00 0 04724
- 0 5 3 4 00 4 0 5 0 7 1
0500 00 4 00000
-0734 00 4 00000
0 6 3 4 00 4 05102
0500 OU 0 05103
-0320 00 0 00437
-0100 00 0 04764
5500 00 0 05103
-0320 00 0 00440
-0100 00 0 04767

2719
2720
272 1
2722
2723
2724
2725
2726
2727
2728
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
PRINl
2739
2740
2741
2742
2743
2744
2745
2746 PRZ
2747
2748
2749
2750
2 7 5 1 ADDM
2752 PR3
2753
2754
2755
2756 PR3P
2757
2758
2759
2760
2761
2762
2763 PR3N
2764
2765
2766
2767
2768
2769
2770
2771
2772

LC241000
.--.

SUBROUTINE(PRINl1L))
/
CAR( L
N=-l YIELDS _ERROR
ST = L
A1 .
CDR(L) = 0 YIELDS ERROR
L = tDK(L)
---CARIL
--. 1 = ?NAME
--- YIELDS
-. .-. .- G O ( A 3 ) . - .......
..
CAKiL) N= FLJAT YIELDS GO(A1)
L = CAR(CDR(L)L
VAL = FLONAMi L )
REPLACD(CONS(PNAME,CONS(VAL1CDR(ST)))1STl
L = CDR(ST)
A3
L=CARICDRIL))
A2
PRINZ(CWR(CAR(L))
L = CDR(L)
L=O YIELDS RETURN
*/
GO(A2)

LC241200
.LL?16130P
........ LC241400
LC241500
-.
-........
... .- -. .-LC241600
.LC241700
LC241800
LC241900
LC242000
LC242100
LC242200
LC242300,
LC242400
LC242600
-

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

......-_.a_-.

ROR.RORRORRORRORRORROR

SXD
ST0
POX
CLk
STT
ANA

SUB
TZE
SXD
TSX
PXD
TSX
BC I
SYN
Z ET
TRA
CL A
T RA
TXL
TXL
PDX
TXL
CLA
PAX

TRB
LXD
CLA
PDX
SXA
CLA
ANA
TNZ
CLA
ANA
TNZ

PR194
PRSS
94
14
PTTGR
ADDM
ADDM
PR3
$ERROR94
TERPAI94
0.0
$ERROR+194
l r + P 1+
SAMASK
PTTGR
PR3N
G.4
*+3
* + Z 49 BPhAE4E-1
PA39 498PNAhE
0 14
PR594.0
094
094
PR3P
PRSS94
094
094
PTPNT, 4
PTTGR
SQTZ
PR4F
PTTGR
ZQT4
LUCY

SAVE OBJECT

&2~~k!k

LC242700
LC242800
LC242900
LC243000
LC243100
LC243200

LC243300
LC243400
LC243500
LC243600
LC243700

--

CAR(L) N=-1 YIELDS ERROR

--*----,

--

----------

...

-- -.
-

..

FIRST W~RDOF-ALOM.. _

-C DR
UNPRINTABLE-N E X T WORD

--

....

LC243800

NON-OBJE~-!T--PRINl-

TRIED TO PRINr

---

PNPAA//I

--

---

--

-?

..

.-----

----.

PNPA0022

---

PNPAOOO2

EXAMINE WORD

-.-..

PNPA0026

- . -.

.- .

--

.
.

-. ...........

--.-.

--

---

.......

........

PAGE 61.

BONNIE-S

BIRTHDAY ASSEMBLY
--

04745 -0754 00 4 00000

04746 0074 00 4 041 1 5
04747 0020 00 0 04762

2773
7774
2775

04750 -0734
04751 0500
04752 0734
04753
0500
04754 0622

2777
7778
2779
7780
2781

00 4 00000
00 4 00000
00 4 00000
4 ooooo
00 0 05073

ao

PA3

PR4

PXD
TSX
TR A

014
NWAM. 4
PR4E

PDX
CLA
PAX
CI A
ST0

0.4
FOUND A PNAME
0.4
Of4
POINTER TO PRINT L I S T
0 L - L I s T L I S T u E k - - .
- .- .-...
L
SAVE REST OF L I S T I F ANY

-.

----PNPA0027
-

-- -

--P?iPAa028

_--

PNPAOOZ9
PNPA0030
PNPA0031

F ~ - E I l L L I u L I w O R o B e A Q ( 1 1 2 _ _ _ _ _ - -

.,

04760 -0534 00
04761 3 00000
04762 -0534 00
04763 0020 00
04764 -0754 00
04765 0074 00
04766 0020 00

4
4
4
4
4
4
0

05073
04757
05072
00001
00000
05500
04762

04767 0534
04770 0560
04771 0167
04772 0500
04773 0074
04774 0500
04775 -0130
04776 -0520
04777 0020

00
00
00
00
00
00
00
00
00

2
2
0
0
4
2
0
2
0

05102
00000
04776
05100
05110
00000
00000
00000
05053

05000 -0754 00
05001 0774 00
05002 -0763 00
05003
1 77777
05004 0100 00

0
2
0
2
0

00000
00014
00003
05004
05002

05005
05006
05007
05010
05011
05012
05013
05014
05015
05016
05017
05020
05021
05022
05023
05024
05025

0
0
0
0
2
0
0
2
O
0
0
0
4
0

-0501 0 0
0140 00
-0600 00
0162 00
1 77777
-0520 00
0020 00
1 17777
0767 00
-0763 00
-0140 00
-0600 00
0074 0 0
0560 00
0560 00
0140 00
0162 00

00414
05007
05074
05012
05015
05074
05032
05015
00003
00003
05007
05074
05110
00371
0 05074
0 05025
0 05027

2785
2786
2787 PR4E
2788
2789 PR4F
2790
2791
2793
2794
2795
2796
2797
7798
2799
7800
2801
2802
2803
7804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826

LXD
TXH
LXD
TR A
PXD
TSX
T RA

L.4
PR4.4.0
PRlr4
114
Or4
FLONAM, 4
PR4E

PICK UP REST OF L I S T
PRIMT MnRE I F MORE
EXIT BY RESTORING LINK 1R
EX I T
-

PNPA0333
PNPAD034
PNPA0035
PNPBQa316
PNPA0037

PRINT THE NUMBER OCTALLY

RDC10172
LXA
PTPNT * 2
GET POINTER Tn NUMBFR
-- .. -.R D L1.017_4
L DO
0 ~ 2
RDC10175
TOP
BETTY
TEST FOR NEGATIVE NUMBER -C LA
H I SGN
I F SO. PRINT
TSX
BPRIN7.4
--R.RGl1)1CLA
012
REMOVE MINUS SIGN
ROC10179
XCL
-- -RDCf(3180 -- -- BETTY NLT
012
TEST I F NUMBER ALL ZEhOS
RDClOl81
RA
MAR I
_-RDCL0182__ - . *
:OOK FOR NONtZtRs D I G I T ON
ROC10183
PXD
- _ _ _ _ _ _ _ _ ,--mxmL84
----. -.
AXT
12,2
I R 2 COUNTS ZEROS ON RIGHT
RDCl0185
LGL
3
- mG10L86
-.
TX I
*+1,29-1
COUNT VACATED POSITIONS
ROC10187
TZE
*-2
-RDC-10.1,8-88
-..
+
A NON-ZERO DIGIT HAS APPEARED ON THE LEFT
RDC10189
ORA
BQ64
PUT I N OVERFLOW FLIPPER
lul!L9=-,- TOV
++1
SHUT OFF OVERFLOW LIGHT
ROC10191
GRETA STQ
TON I
TEST I F ALL D I G I T S ARE SPREAD
R D C L ~ ~ P Z_ - _ .
TQP
++2
TEST FOR NUN-ZERO SIGN B I T
TXI
F I F I ,2,-1
SOME DI (; IT S NOI-SPREADLO. . C O W INU E
..
NZT
TON I
RDC10193
TR A
DEBBY
T
' R A 1 A L L NON- Z ER O - _ D n ; L T ~ R E _ A _ - R D C L O - U 4
...
TXI
*+1,2,-1
RDC10195
F I F I ALS
3
SPREAD ONE D I G I T
RDClO196
.~
LGL
3
ROC10197
R 0Clo19.8
-..
TNO
GRETA
SEE I F FULL WORD OF DIGITS.
STQ
TON I
PRINT THE WORD
ROC10199
TSX
$PKIN2,4
~~-c-~o~QO!Lo_o_
..-- ,.-. .- .- . .$Q1
PUT I N OVERFLOW FLIPPER
RDClOZOl
CL A
L DO
TON I
ROC10202
TOV
*+1
SHUT OFF OVERFLOW LIGHT
RDC10203
TQP
*+2
T E s T FOR NON-Z.EROXI_GN_-B_LT
- .
.... ... . -LUCY

--_--

LEFT

.
a

88888888

-~

PAGE 6 2

BONNIE-S

--- -- -- -- - -" --

--

--

05026
05027
05030
05031

1 77777
0520 00
1 77777
0020 00

2
0
2
0

05015
05074
05015
05036

00
00
00
00

0
0
0
4

00471
00006
05033
05110

05036 3 00000
05037 0500 00
05040 0020 00
05041 -3 00011

2
0
0
2

05041
05101
05054
05046

05042 -0754
05043 0400
05044 -0760
05045 0020

00
00
00
00

2
0
0
0

00000
05075
00003
05054

05046 -0754
05047 0767
05050 0400
05051 -0760
05052 0020
05053 0500
05054 0074
05055
0020

00
00
00
00
00
00
00
00

2
0
0
0
0
0
4
0

00000
00006
05076
00003
05054
05077
05110
04762

05056
05057
05060
05061
05062
05063
05064
05065
05066
05067

00
00
00
00
00
00
00
00
00
00

4
4
0
4
0
0
0
0
4
0

05071
00000
00000
11021
05070
00003
00001
00002
05072
05110

05032 0560
05033 -0763
05034 -0140
05035
0074

-0535
-0754
0131
0074
-0501
-0760
-0760
0760
-0534
0020

05070 430000000000
05071 O 00000 0 00000
05072
0 00000 0 00000
05073 0 00000 0 00000
05074
0 5 0 7 5 +LO0066777777
05076 +lo0077777777
05077 +005077777777

- -

BIRTHDAY ASSEMRLY

2827
2828
2829
2830
2831
DEBBY
2832
2833
2834
2835
2836 *
2837 VICKI
2838
2839
2 8 4 0 MICKY
2841 *
2842
2843
2844
2845
2846 *
2 8 4 7 SANDY
2848
2849
2850
2651
2852
MARIE
2853
PATSY
2854
2855
2856
2857
2858
2859
2860
2861
2 8 6 2 PR5
2863
2864
2865
2866
2867
2368
2569
2870
2871
2a72
2 8 7 3 PRCL
2 8 7 4 PRSS
2875
PR1
2876
L
2877
rOt\II
2 8 7 8 BQLO
2 8 7 9 BQO
2880
BCIOQ

-----

TXI
FIFIvZa-1
ZET
TON I
SEE I F ALL D I G I T S SPREAD
RDC 1 0 2 0 6 - " - . . TX I
F I F 1929-1
ROC10205
TRA
VICKI
- -- ----RDC1020'_-RDC10207
FORM WORD FOR P R I N T I ~ G
LOO
SEVENS
PUT 7 7 s I N RIGHT ENR OF W Q ! G
RDC10208
LGL
6
OVERFLOW SIGNALS LEFT END OF WORD
RDCl0209
TNO
"-1
.--- - RDClOZlORDClOZll
TSX
fPRIN2r4
PRINT Q AND SCALE FACTOR I F ANY
RDClO212- - _ _ - - _ _ RDC102 1 3
TXH
MICKY*2,O
CONTINUE
IF 0 SCALE FACTOR
ROC10214
CLA
BC IQ
RDC10215
TRA
PATSY
TXL
SANDYr2r9
TRA I F SCALE FACTOR LESS THAN 1 0
ROC10216
OCTAL SCALE FACTOR MORE THAN LO
ROC10217
PXD
92
RDC l & Z B .
___
RDC10219
ADD
BQlO
FORM SCALE FACTOR FOR PRINTING
SSM
RDCl0220
RDCl0221
TRA
PATSY
ROC10222
OCTAL SCALE FACTOR LESS THAN 1 0
.-PXD
( 2
RDC10223
ALS
6
RDC10224
-ADD
BQO
RDCl0225
SSM
RgC10226
-RDC10227
IRA
PATSY
CLA
BC IOQ
PRINT 06)
- RDC1022a
ROC10229
TSX
6PRIN294
T RA
PR4E
ROC10231
LC249300
GENERATE A PRINT NAME FOR AN OBJECT WITHOUT-ONE.
_LC249400
__--.
LC249500
THE PRINT NAME I S OF THE FrlRY LDDODD WHLR_E__LHE-D_!SpE THE
LC249600
-_----_..OCTAL D I G I T S OF THE 2,s COMPLIi4ENT OF THE F I R S T WORD OF
LC249700
THE PROPERTY L I S T OF THE OBJECT.
LC249800
.
LC249900
LDC
PRSS94
--------PX 0
094
XCA
------------------TSX
OCTALP 4
IIRA
PRCl
LC250700
SSM
F I X SIGN TO AGRXHITHP-B-~T-FE-PRINT---------------PBT
LC250800_-- _ ---- - - - - ------- - -CHS
LC250900
LXD
PK1,4
RESTORE L I N K I R
1.5P7080
TR A
SPR I N 2
PUT I N PRINT L I N E AND E X I T
1.5L3510
---- -- -LC251300
-- - --BCI
1, LOO000
L SYMBOL
STORAGE FOR POINTER TO OBJECT
LC251602LC251700
'-C2519E
-- - -.BSS
1
ROC10233
100066777777
9CT
USED TO FORM R C I Q1N
RDC10234
OCT
100077777777
USED TO FORlY B C I - Q N -- ~ O ~ i 0 2 3 5
OCT
005077777777
ECI O Q
RDC10236
----

---

a
m

-----

- -PAGE 6 3

BONNIE-S

05100 -007777777777
05101
107777777777
05 1 0 2
05103 0 00000 0 00000

05104
05105
05106
05107
05110
05111
05112
05113
05114
05115
05116
05117
05120
05121
05127
05123
05124
C5125
05126
05127
05130
05131
05132
05133
05134
05135
05136
05137
05140
05141
05142
05143
05144
05145
05146
05147
05150
05kS1
05152
05153
05154
05155
05156

-0 6 3 4

00
-0734 0 0
0500 00
0020 00
3 00000
-0634 00
-0634 0 0
-0634 0 0
-0 5 3 4 0 0
-3 00000
0774 00
0601 00
-0500 00
-0340 00
0070 0 0
0020 00
-0320 00
0402 0 0
-0100 0 0
-0500 00
0 7 7 1 00
0602 0 0
1 00001
-0500 00
0020 00
0767 0 0
0767 00
0767 00
0767 00
0767 00
0602 00
0560 00
-0500 00
-0534 00
-0763 0 0
0602 00
-2 0 0 0 0 1
1 00001
-3 00006
-0634 00
-0634 00
-0534 00
-0534 00
I

4
4
4
0
0
4
2
1
4
4

05755
00000
00000
05112
05741
05255
05254
05253
05756
05245
1 00001
0 05262
0 05262
0 00471
0 05174
0 05155
0 05260
0 05260
0 05133
0 05262
0 00006
0 05262
1 05124
0 05262
1 05143
0 00006
0 00006
0 00006
0 00006
0 00006
0 05262
0 05262
0 05261
2 05257
0 00006
0 05261
2 05162
1 09152
1 05146
2 05257
4 05256
1 05253
2 05254

--

--

BIRCHDAY ASSEMBLY

2 8 8 1 MISGN OCT
2887
R C I O flCT
2883
PTPNT BSS
7 8 8 4 PTTGR
2885
2886
2887
7888
2889
7890
2891
2897 PRINT7 SXD
2893
PDX
2894
CIA
2895
TRA
7 8 9 6 PRIN7 TXH
2897
SXD
2898
SXD
2899
SXD
2900
LXD
2901
TXL
2902
COMB4 AXT
2903
ST0
2904
CAL
2905
LAS
7996
TRA
2907
TRA
2908
S H I F L ANA
2909
SUB
2910
TNZ
2911
CAL
2912
ARS
2913
SLW
2914
TXI
2915
JUST
CCL
2916
TRA
2917
ALS
2918
ALS
2919
ALS
2920
ALS
2921
ALS
2 9 2 2 L S H I F SLW
2923
LDQ
29&
CAL
2925%
LXD
2926
2927
rn2928
JX
-929
~ 0 6 5T X I
2930
TXL
2 9 3 1 COMB1 SXD
SXD
2932
2 9 3 3 NOJOB LXD
2934
LXD

407777777777
507777777777
1

BCI

--

-- -- - - -

--

- -- -- -

.
-

---

- -

-- -.
-

ROC10237

-- A l D L U Z 1 A - - - RDC10240

TFST C F I

F_J1BIYYMBER-.ELA.L

LC252600

- - --

~ 2 5 2 . Z Q R .--

_ _

--

PRINZ
PRINTS UP TO 6 CHARACTERS I N ONE WORD WHEN THE
LC252800
C H 4 U E R S A R E J U S T A I E D T O T H L I L E _ T _ A Y L l . _ _ F C U L O W BYE D THE- 1C252.900- -. -.
ILLEGAL CHARACTEd WHOSE OCTAL FORM I S 7 7
LC253000
-- I U _ 5 3 U m _ - LC253200
PR9.4
RD(IX0007
0,4
BRING BCD WORD TO AC
RDCX0003
0.4
_ _ B n c X 4 . ~ I - - _ I
*+3
RDCX0005
SPUN?. 1 0
SWITCH TO PUNCH-011-RNLLNE
R D W 0 0 6 -- - -- PR9 s 4
RDCX006A
PR8.2
3 I ; X . U
PR711
RDCX0008
WORDS14
ROOM LEFT I N OUTPUT RFCORD
lC m 9 0 0
1NIT14y0
CAN BE ZERO ONLY I F ROUTINE NOTUSED
LC254000
1.1
---LC254100
- -- - _.
_
TEMP
LC254200
-LC2563_QD
-TEMP
SEVENS
WORD OF ALL 77-S CAUSES NO ACTIGN
RDCXOOlO
*+2
RllW(0011-----NOJOB
RDCX0012
RCHM
I S THE RIGHT CHARACER 77
- __bC25_*-+QO - _ _
__ _
RCHk
LC254500
- _lC254h00
JUST
NOT 7 7
TEMP
LC254700
6
L O 2 - - ------.
TEMP
LC254900
SHIFL,lrl
---- - -- - -- -- -- CC2550QQ--- -_
TEMP
LC255100
LSHIF+l,l
L L 2 5 5 2 00_-- --_ 6
LC255300
6
L
4
0
0
6
LC255500
6
----L-C 25 5 6 -00
- 6
LC255700
TEMP
- ----. .
LC.--2 55-8
-00TEMP
LC255900
PART
Lc_Z5&1602
PARTS92
LC256100
5 6-2 0 0
--- -- --- ---- L C 2-- -- LC256300
WFULLs2,l
LC256400
--- *+ltlsl
LC256500
COMBq196
LC256600
PARTS12
LC256700
WORDSl4
LC25680-0-- -- ---- - - - -PR7,l
KDCX0013
PR8y2
L C-2-57000
- --- - -

--------

----

--- -- -

--

- -

---- -PAGE 6 4
05157
05160
05161
05162
05163
05164
05165
05166
05167
05110
05171
05172
05173
05174
05175
05176
05177
05200
05201
05202
05203
05204
05205
05206
05207
05210
05211
05212
05213
05214
05215
05216
05217
05220
05221
05222
05223
05224
05225
0522L
05227
05230
05231
05232
05233
05234
05235
05236
05237
05240
05241
05242
05243
05244

--

--

BONNIE-S
-0534 00
-0754 0 0
0020 00
0602 00
-2 00001
0774 00
0020 00
-0600 OC
0500 00
0400 00
0340 00
~ 0 0 2 000
0020 00
0 6 0 1 00
0074 00
0 00000
0 00024
0560 00
-0534 0 0
-0500 0 0
0602 00
-0534 00
-0534 00
0 0 2 0 00
-0534 0 0
-0634 00
-0534 00
-0534 0 0
0020 0 0
-0634 00
-0634 0 0
-G534 00
- 0 5 3 4 00
-0500 00
0560 00
-0763 00
2 00001
0602 00
-2 00001
-0500 0 0
0 0 2 0 00
0 0 7 4 00
0 00000
0 00024
-0534 00
-0634 0 0
-0534 00
-063L 00
-0534 OG
- 0 5 3 4 00
0 5 0 0 00
0 6 0 1 00
-0754 00
0020 00

4
0
4
4
4
2
0
0
0
0

0
0
0
4
0
0
0
4
0
0
4
2
0
4
4
1
2
0
2
4
2
4
0
0
0
2
4
4
0
0
4
0
0
4

4
2
2
2
4
0
0
0
4

05255
00000
00001
05307
05166
00006
05151
05262
05310
00371
05311
05174
05207
05310
01222
00364
05263
05262
00447
00472
05261
00447
00444
05151
05307
02317
05253
05254
04612
05254
05255
05257
05256
05261
00472
OOOOt

05222
05307
05230
00472
05224
01222
00364
05263
00447
05256
00444
05257
05254
05255
00472
05261
00000
00001

--

- - - - ----- ---- -

BIRTHDAY ASSEMBLY

2935
LXD PR994
2936
QXD 0.0
2937
TRA 1.4
2938
WFULL SLW HEC94
2939
TNX RECFLt491
2940 COMB3 A X T 692
2941
TRA COMB5
2942 RECFL S T Q TEMP
2943
CLA
WALLPC
2944
ADD
SQl
2945
cAS
BRKOU r
2946
TRA
++2
2947
T RA
PRTB
2948
ST0
WALLPC
2949
TSX OUTPUT94
2 9 5 0 PRINTD
BCDOUT
2951
REC-20,920
2952
LDQ TEMP
2953
LXD QD2094
2954
CAL BLNKA
2955
SLW PART
2956
LXD QD2094
2957
LXD QD592
2958
TRA COMB5
2 9 5 9 PRTB LXD
PCPPir4
2360
SXD
bCPPI94
2961
LXD
PR79 1
2962
LXD
PR8 9 2
2963
T RA
PRTTl
2 9 6 4 TERPRI SXD PRE12
2965
SXD PR994
2966
LXD PARTS92
2967
LXD WORDS94
2968
CAL PART
2969
L D O BLANK
2970 TEKl
LGL 6
2971
T I X TERlt2rl
2972 TER3 SLW REC.4
2973
TNX TER29491
2974
CAL BLANK
2975
TRA TER3
TSX OUTPUT94
2 9 7 6 TERZ
2977 PRIYTC
BCCOUT
2978
REC-20,,20
2979
LXD Q 0 2 0 ~ 4
2980
SXD WORDS94
2981
LXD 00592
2982
SXD PARTS92
2983
LXD PR8 92
2984
LXD Pi3994
2985
CLA BLNKA
ST0 PART
2986
2987
PXD 090
2988
TRA 194

- -- - - - --

--

----

- -- - - - - -- -

- .

- --- ---- -- LC257100

--LC257200
---LC257300
- - -- --- - --- L C_2_57.!0 0- _- _ ._.
_.
-- -------- LC257500
LC257600
.- /
LC257700
LC257800
--. .-- - - .
GET MAX NUMBER O F - LINES PER LIST
1.5L3540
1.5L3550
COMPARE WITH M A X NUMBER
1-5L3560
NO, GO ON
1.5L3570
3.51-3580
= BREAKOUT
1 51 3 5 9 0
PUT AkAY
LC257900
LC258000
-LC258100
LC258200
LC258300
LC258400
LC258500
Lc 2 5 8 6 0 9 - - - - LC258700
LC258800
-PlJSH DOWN COUNTER
1 5L3600
RESTORE T O ENTRANCE VALUE
1-5L3610
- -RESTORE INOEX 1 AND 2
1 5L3620
1 5L3630
-BREAKOUT
1.5L3640
LC258900
-- - -- -- - -- -- ---- -- -- - ---LC259000
------ -LC259100
--.- LC259200
LC259300 -------LC259400
---.
--- .-- - LC259500
--- --- -LC259600
----LC259700
---LC259800
- LC259900
-- - --- - -- - -LC260000
- -- LC260100
--- -- - -- LC260200
L C 2 6 0 3 0 2------.___
LC260400
LC260500
-- -- -- LC260600
L!!-2_6L!Lw0
__ - - _ LC260800
- - --LC260900
------ -.LC261000
- --- -- .
LC261100
-

--

---

- --

"- - * - -

---

----

---

>

--

----- -- --- ----

L_C_261222- __-

--

-- . -

.-

PAGE 65

BONNIE-S

B1RT:iDAY ASSEMBLY

-05245 -0534
05247
a750
05251
05753

O
-R
Q

00 4
o on n
-0600 00 0
0774 00 7
-0634 00 2
0020 00 0

00447
00477
05261
00005
05257
05116

0 aoooo
0 00000 0 00000
~
0
0 0 0
0~
05256 0 00000 0 00000
05757 0 00000 0 00000
05260 +000000000077
05254

2989
7990
2991
7997
2993
2994
2995
7996
2997
~
299800
2999
3000
3001

INIT

LXD
I oa
STQ
AXT
SXD
TRA

QD2094

- -

LC261300

--

RI N K A

PART
5.7
PARTS12
CflMR4

-11112b3.49n

--

---

P R ~
PKd
PR9
~
WORDS
PARTS
RCHM OCT 77

LC26LBnL-

--

-.----em-

LC261500
-L L2416QQ LC261700

- - -- -

----

1.5L1720
LCZ~~OOO
LC262100

.-- - -- --- .--

--

L C 2 4 2 2 Q Q _ - - LC262300
I C7h7400
LC262500

ROOM I N P A R L I A L W R D

05312
05313
05314
05315
05316
05317
05320
35321
05322
05323
05324

0
0
0
0
0
0
0
0
1
1
0

00000
lOOOG
20000
30000
40000
50000
60000
70000
00000
10000
00000

05325
0634
05326 -0625
05327 -0734
05330
0502
0 5 3 3 1 0601
05332 -0754
05333 0 6 0 1
0 5 3 3 4 0074
05335
0074
05336
0500
05337 0774

00
00
00
00
00
00
00
00
00
00
00

0
0
0
0
0
0
0
0
0
0
0

4
0
4
0
0
4
0
4
4
0
4

05312
05312
05312
05317
05312
05312
05312
05317
05312
05312
05313

05337
05461
00000
05110
05110
00000
03453
04620
05421
03C53
00006

3003 TEMP
3004 REC
BES 20
3005
PCPPI
3006 WALl PC '
3 0 0 7 BRKOUT DEC
3008 OD5
SYN
3009 QD20 SYN
3010 BLANK SYN
3 0 1 1 BLNKA SYN
3012
3013 + 8CDADl
3014
3015
CVR
3016
3017 ADT
PZE
3018 BCDADl PZE
3019
PZE
3030
P7F
3021
PZE
3022
PZE
3023
PZE
3024
PZE
3025
PON
3026
PUN
3027
PZE
3028
3029 + P U K H
3030 *
3031 *
3U32
PUNCH S K A
3033
STL
3034
PDX
3035
CLS
3036
ST0
3037
PXD
3038
ST0
3039
TSX
3040
TS X
3041
CL A
3042
PNCHX A X T

-----

LC262700

-L(12628M_-- -

25
SOD5
SQD20
BLANKS
BLANKS

--

0
1

---

3
4
5
6
7
8
9
10

-- -

1.511860
1.5L1880

-_--

- -

-_-

. 1&iJ..%3DD

- -

.-

.- _... -

1,1I 1 8 7 0
1.5L1900
_ 15
.LC
l LO
l
1.5L1920

--

2 ~ l . L 8 5 0 - - --

1--5L1a3O-

- ..-

_ _-- -

._
..

1.5L1940
1 5.L.1910
1.5L1960

--

-1 , 5 C L % x -

---

1.5L1980

-m
L
--- - - -.

1 5L2000

_-

WRITES OUT A L I S T ON THE SYSTEM PERIFIAL PUNCH TAPE

ISYSPPT) I N A F O R M SUTABLE FOR PUNCHING I N BCD.

1 5113680
_ -1.513690
1.5L3700

-.-- --.-

--I--.

PNCHXY
PUN ACT
014
SPRLNZ
SPR IN2
014
PRINTL
SPRINOy4
TERPUN14
PR IMTL
**1 4

PUSHDOWN COUNTER STORAGE

1.5L3650
NUMBE R O F L f N E S X T H I S L - F A U 3 U b 6 L _
MAXIMUM NUMBER OF LINES I N ANY L I S T

- _-_ - 1
A CONVERT TABLE FOR ADDING 1 TO A 6 D I G I T BCD NUMBER
USFD BY LOADING ECD NUMBER INTO A C AQD DUNG
-- .-_
BCDADL 1 16

A DT
ADT ,rL,4036
AOT,,2*4096
ADT* *3*40'36
ADT 1 14,4096
AOT~r5*4096
ADTst6+4096
A3Tv,7+4096
A DT
ADT 1 1 I s 4 0 9 6
BCDADL

.
.

00

05262 0 00000 0 00000

05307
05307
0 00000 0 00000
05310 0 00000 0 00000
0 5 3 1 1 +000000000031
00444
00447
00472
00472

L- 5 l Z o 2 0 - _

1. 5L2030
_ ____1,5L2OIO
1.5L2050

SAVE LINK IR
-- .- ---A
5I,WQ-. - .
ACTIVTE PUNCH ROUTINE
1 5L2070
ARGUMENT T O I
R
4
__ _.
L.5.L2080_ - -SET SWITCH T O
1.5L2090
GO TO PUNCH R O ! J I _ I I N E
_ 1-5L2_1PO.-_
-___
ARGUMENT TO A C
1.5L2110
SAVE THE ARGUMENT
-------- -USES PRINT ROUTINE
1- 5 L 2 1 2 0
T E R MrN&TE_Pu_N2H!v.GG _ - __ __
1.5L2130
_ _
KESTORE THF ARGUMENT
RESTORE LINK. I R
___
-_ 1.5L2140

--

v
.
-

PAGE 66
05340

BOhNIE-S
0020 0 0 4 00001

05341
05342
05343
05344
05345.
05346
05347
05350
05351
05352
05353
05354
05355
05356
05357
05360
05361
05362
05363
05364
05365
05366
05367

0634 0 0
0 6 3 4 00
0 6 3 4 00
0774 00
0774 00
,0774 00
0 1 3 1 00
-0754 00
-0763 00
0340 0 0
0761 00
0020 0 0
0522 0 0
-0602 0 0
-2 0 0 0 0 1
2 00001
0634 00
0634 00
-0754 0 0
0774 00
0774 0 0
0774 00
0020 00

05370
05371
05372
05373
C5374
05375
05376
05377
05400
05401
05402
05403
C5404
05405
05406
05407
05410
05411
05412
05413
05414
05415
05416
05417
C5420

0774 0 0
2 00001
0500 0 0
0114 06
0601 00
-0600 0 0
0560 00
-0765 00
0361 00
0602 0 0
-0600 0 0
0074 0 0
0 00000
0 00016
-0046 0 0
0441 00
0055 0 0
0 6 0 4 00
0044 00
0774 00
0600 0 0
2 00001
0774 00
0560 00
0020 00

4
2
1
4
2
1
0
0
0
0
0
0
2
4
2
1
2
4
0
4
2
1
4

05364
05365
05366
00014
00006
00006
00000
00000
00006
05457
00000
05361
05455
05476
05370
05350
05345
05344
00000
00000
00000
00000
00001

2 00006
4 05360

0 05455
0 05313
0 05455
0 05460
0 GO370
0 00006
0 05456
0 05476
0 05477
4 01222
0 00363
0 05462
0 00000
0 10340
000040
0 10340
0 00000
4 00014
4 05476
4 05414
4 00014
0 05460
0 05360

3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096

--

BIRTHDAY ASSEMBLY
TRA

PUN2

----

-- -- -

SXA
SXA
SXA
PWRDS A X T
PPATS A X T
AXT
XCA
PLP
PXD
LGL
CAS
NOP
T RA
XE C
ORS
TNX
PGRA T I X
POUT S X A
SXA
PXD
PNX
AXT
PNY
AXT
PNZ
AXT
TR A
PRPLP AXT
TIX

CLA
CVR
ST0
STQ
LDQ
LGR
ACL
SLW
STQ
TSX
P IA
LDI
SIR
ST I
PA I
AXT
STZ
TIX
AXT
L DQ
T RA

PNX14
PNY 92
PNZ, 1
12,-4
612
6.1

---

- - -1 51-2160
11.51-2180
-- - 1.5L2190
- -1.5L2200
- ---1.5L2210
--- -- 1.5L2220

0 10
PSS
POUT
PCNTI2
POUP.4
PRPLPsZ, 1
PLP11,l
PPRTSs2
PWRDSs4
090
+*q4
+*,2
*+, 1
114
692
PGRA* 4.1
PCNT
BCDADL, 16
PCNT
PNCQ
$ZERO
6
PLIS
POUP
POUP+l
OUT PUT 14
PPTOUT
POUP-lZq914

12 ,4
POUP* 4
*-lr4.1
121 4
PNCQ
PGRA

-----_--- NU_M_BE,R_-_OE_W_O_RDS
LEFT

SYSIND
PPT IND
SYSIND

INDEXREGI
STERS'

-- -

EXIT

SAVE

- --

--

PUNCH EQUIVELENT OF PRIN 2

PUN2

114

--

1-N BUFFER
CHARACTER POSITION
MAXIMUM NUMBER OF CHARACTERS
1 51-2250
-ARGUMENT TO MQ
1.5L2260
CLEAR A C
1.5L2270
CHARACTER TO MQ
1 5L2280
COMPARE WITH 77
1.5L2290
1 5L2300
GREATER, (IMPOSSIBLE)
= q GO TO EXIT
1 5 ~ 2 3 1 0 L E S S THAN, SHIFT CHASER
1 5L2320
1 5L2330
PUT I N OUTPUT LINE
GO I F LAST CHARACTER I N WORD
1.5L2340
GET NEXT CHARACTER
1 5L2350
SAVE INDEX 2 N 4
1 5L2360
1-5L2370
CLEAR AC
1.5L2380
RESTORE INDEX REGISTERS
1- 5L2390
1 5L2400

--

--

EXIT
RELOAD CHARACTER COUNT
G O I F WORD COUNT NOT EXHA!K!z-GET CARD NUMBER I N BCD
ADD L I N BCD
-- -------

GO TO OUTPUT-_
PUNCH OUT TAPE
1 4 WORLJS O'JT
-SAVE INDICATORS I N A C
PICK UP SYZTEM INDICATORS
SET PUNCH TAPE INDICATOR
UPDATE S Y S T E M INDICATORS
RESTORE INDICATORS
NUMBER OF WORDS F S M C C 1 T O 72
ZERO OUTPUT BUFFER
RELOAD WORD COUNT
RESTORE CONTENTS OF MQ
CONTINUE WORK
---

--

----

--

_ _
-

--

--

1.5L2420
1.5L2430
1 5L2440
_ _1.5L2450
_ _ _ - - - - ._- -_
1.5L2460
1 5L2470
1.5L2480
1-5 L 2 4 9 0 - -.-.
1.5L2500
1&5&
1.5L2520
1.5L2530
1 5L2540
1 5L2550
----1 5L2560
1.5L2570
.
1.5L2580
1- 5 L 2 5 9 0
---_ ---1.5L2600
1 5L2610
- _ _ ___
1.5L2620
I * 5L26311---_
1- 5 L 2 6 4 0
1.5L2650
-1.5L2660
1.5L2670
1.5L2680
1.5L2690 - - .
-0

SAVE CONTENTS OF MQ
-ZERO MQ
SHIFT LOW ORDER D I G I T INTO MQ
ADD ~ C D
NAME OF ZA-R%-PUT IN I D FELL- - . . . - - - D _ - - -

..

_-a-

PAGE 67

05471
05422
05473
05424
05475
05426
05477
05430

--

--

- -

--

- --- - -

--

- -.

BONNIE-S BIRTHDAY ASSEMULY

- 0520
0020
0600
0634
0634
0634
0500
0602

00
00
00
00
00
00
00
00

0
4
0
4
7

1
0
0

05461
00001
05461
05364
05365
05366
05UiY
05110

05432
0534 00 2 05345
05433 0774 00 1 0 0 0 0 1
05434 0560 00 0 00472
05435 0 7 5 4 OQ 0 00000
05436 -0763 00 0 00006
05437 0572 0 0 7 05455
05440 -0602 00 4 05476
0 5 4 4 1 2 0 0 0 0 1 7 05435
05442 -2 00001 4 05370
05443 0500 00 0 00472
05444 0 6 0 1 00 4 05476
05445 2 0 0 0 0 1 4 05444
05446 0020 00 0 05370

05447 0767 00 0 00036

05450 0767 00 0 00030
0 5 4 5 1 0767 00 0 00022
05452 0767 00 0 00014
05453 0767 00 0 00006
C5454 0 7 6 1 00 0 00000
05455 0 00000 0 00000
05456 433162470000
05457 +000000000077
05460 0 OCOOO 0 00000
0 5 4 6 1 0 00000 0 00000
05462
05476 +000000000000
05477 +000000000000

05500 0 6 3 4
0 5 5 0 1 -0734
05502 0 5 0 0
05503 -0100
05504
0534
05505 0 1 3 1
05506 0500
05507 0162
05510 0402

00
00
00
00
00
00
00
00
00

4
4
4
0
4
0
0
0
0

05666
00000
00000
05512
05666
00000
05706
05110
05731

3097
TERPUN
7098
3099 *
3100 TERPUN N7T
3101
T RA
3103
71 0 4
3105
3106
3107

T7
SXA
SXA

SXA
CL A
SLW

3109
LA A
3110
AXT
3111
LDQ
3117 T PI P PXO
3113
LGL
3114
XEC
3115
ORS
3 11 6
TIX
3117
TNX
3118
CLA
3119
ST0
TIX
3120
3121
T RA
3127 *
3123
ALS
31 2 4
ALS
3125
ALS
3126
ALS
3127
ALS
3128
NDP
3129 PCNT P Z E
3130 P L I S R C I
3 1 3 1 PSS
OCT
3132 PNCQ
3133 PUNACT
3134
BSS
3135 POUP OCT

- - - - --- - -- - -1.5L2700

-- - -- - WITH BLANKS AN0 PUNCHES OUT LAST CAR0

F I L L S OUT BUFFER
nPFRATF5 flNl Y I F P U N C H T I N F ~ ~ b C L L ~ J ~ W - - - - I - - ~ - -

PUN ACT 194

PUNACT
PNX, 4
PNY - 2
PNL 9 1
dPR IN 2
SPRIN2
DS.4
PPRTS t 2
1.1
BLANKS
0,O
6
PCNT, 2
POUP, 4
TPl P.2.1
PKPLP84,l
BLANKS
POUPv4
*-I. 949 1
PRPLP
COSTANTS. STORAGE
30
74
18
12
6

1.5L2720

O U J ' L N U S GIlRRENX L Y -ACT L A L L I l L

IMMEDIATE E X I T
DF A C T l Y a L T H E - e Y N C H 3 O U T I N E
SAVE INDEX REGISTERS
1
-

--

1.5L2760

----

--.- - - -- -

.--.
-15UI-ZQ.-

1 5L2780
1.5-90
---- 1.5L2800
.
1
--- 1.5L2820
to
----1 5L2840
A..,&L28a(L_- --_
105L2860
--1*TUa79
-1.5L2880

---

90

1.5L2900
L5L291-0_-1l5L2920
9
3
0
-1.5L2940

GO PUNCH I T OUT
AND SHIFT TABLE

--

1o5L2960
-- -- --1-o5 L 2 9-70
1.5L2980
--_
1 5L29901.5L3000

----

--

FLOfJAM
FORMS THE
HED
SXA
PDX
CLA
TrJZ
LXA
XCA
CLA
TQP
SUB

FLNXv 4
094
014
FLNA
FLNX, 4
FLZPZ
SPRINZ

0.0

CO

-0.0

---

_ --_L>-!i

L3D!0
1-5L304O
1-*-5-L3-0 so1l5L3060

-- - --

--

_-

--

---

_-

-- -

- --.

--_

------

- - -_
-_
-

--

---

------

--

1l5L3080

--

- --

---

~ ~ 2 6 3 2 -0 0
MAY 14,1559
_ C C-253 3 4 L BCD L I S T FOR A FLOATING NUMBER I N THE A C C
LC263400
. --4Z i?6_3-5QO.-LC263600
---- --- -.
--. - -

---

1.5L3020

I F PUNCH ROUTINE ACTIVE

-- --- - OUTPUT BUFFER
--- -- -- - - --

- --

.-

...- - _ _ -

--_LZ W 1 Q --

BASE OF SHIFT TABLE AND CARD COUNT

CARD I 0
_ - -CHARACTER THAT TERMINATES A PNAME

3136
3137
3138
3139
3140 T
3 1 4 1 FLONAM
3142
3143
3144
3145
3146
3147
3148
3149

-- ----- -

-1.5L215L-

NON-ZERO

12
09 0

1.5L2740

RESTORE PRIN2 SWITCH

PICK UP WILBI1_CDUNT
CHARACTER COUNT
TANT 1
BLANK MQ
CLEAR A C
1 INTO AC
SHIFT INTO POPUT I N OUTPUT LINE
F I L L OUT T H I S - . M E & _ - _ _ _ GO I F LAST WORD I N BUFFER
__ -BLANK AC
BLANK REST OF BUFFER

-.
1t L ISPOO
77

----

.---

--

.-

... .

PAGE 68

-----

-0 5 5 1 1 0020 00
05512 0634 00
05513 0634 00
05514 0774 00
05515 0774 00
05516 0600 0 0
05517 0600 0 0
05520 0600 00
0 5 5 2 1 0601 00
05522 0 1 3 1 0 0
05523 -0754 00
05524 0765 0 0
05525 0763 00
05526 0402 00
05527 -0600 0 0
05530 0 1 3 1 00
0 5 5 3 1 0200 00
05532 0 6 0 1 00
05533 0120 00
05534 0402 0 0
05535 0 6 0 1 00
05536 0 1 3 1 0 0
05537 0760 00
05540 0760 0 0
0 5 5 4 1 0 1 3 1 00
05542 0200 00
05543 0765 00
05544 0 6 2 1 0 0
05545 -0600 00
05546 0774 00
05547 0560 00
05550 0200 00
05551 0400 00
05552 0 1 3 1 00
05553 2 00001
05554 0200 00
05555 0774 00
05556 0765 00
05557 0100 00
05560 0 2 2 1 00
0 5 5 6 1 0500 00
05562 0400 00
05563 0 6 0 1 00
05564 0774 00
05565 -0200 00
05566 0340 00
05567 0 7 6 1 00
05570 0020 00
05571
0020 00
05577 0500 00
05573 0400 00
05574 0601 00
05575
0500 00
05576 0 6 0 1 00

- -

BONNIE-S 5 1 RJtiDAY ASSEMBLY

0
2
1
1
2
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
4
0
0
4

0
4
0
4

4
0
0
0
0
0
4
4
4
0
0
0
0
0
0
4
0

05110
05667
05670
00001
00044
05703
05704
05705
77667
00000
00000
00000
00010
00415
77662
00000
05720
77664
05542
05717
77664
00000
00006
00003
00000
05721
00041
05555
77672
00007
05722
77672
05732
00000
05550
77662
00000
00042
05564
05716
77664
05717
77664
00010
05717
05717
00000
05572
05576
05717
77664
77664
05720
77672

3150
3151 FLNA
3152
3153
3154
3155
3156
3157
3158
3159
3160
3 1 6 1 FL73
3162
3163
3164
3165
3166
3167
3168
3169 F L 7 4
3170
3171
3172
3173
3174
3175 FL75
3176
3177
3178
3179
3180
3181 FL76
3182
3183
3184
3185
3186 FL76A
3187
3188
3189
3190
3191
3192
3193 FL77
3194 FL78
3195
3196
3197
3198
3199 FL79
3200
3201
3202
3203 FL80

TRA
SXA
SXA
AXT

AXT
ST2
ST Z
ST2
STO
XCA
PXD
LRS
LLS
SUB
5TQ
XCA
MPY
ST0
TPL
SUB
ST0
XCA
CON
SSP
XCA
MPY
LRS
ST A
STQ
AXT

LDQ
MPY
ADD
XCA
TIX

MPY
AXT
LRS
TZE

DVP
CLA
ADD
ST0
AXT
MPR
CAS
NOP
TR A
T RA
CLA
ADC
ST0
CLA
ST0

fPRIN2
FLNY I 2
FLNZ 9 1
1I 1
36.2
FLOPB-3
FLOPB-2
FLOPB-1
COMMCN+5

--

-----.-- -

-.

-.-SXU?BUFFLRRLRS

--..-

----

....

----.---- -

- .- ... -. .

---.

RRRRRRRRRR

---.

.. . .

--

--

- - . . -. -..- .

.
-.

..---- .-

......

PO
0
8

CLEAR ACC. AND SIGN.

SIGN TO MQ
CHARACTERISTIC.

COMMON

SAVE MANTISSA*
MULTIPLY B Y
LOG BASE 1 0 OF 29

LOG2
COMMON+Z
FL75
A1
COMMON+2

21303PRT90124
21305PRT90125
21310PRT90126
1315PRT90127
21320PRT90128
21325PRT9012921330PRT90130
21335PRT90131
21340PRT90132
21345PRT90133
21350PRT90134

LOG10
33
FL76A
COMMrJN+8
7 ~ 4
C7
COMMrJN+8
CO+114
FL76p4.1
COMMCIN
**,4
3494
FL77
Al-1
COMMOh(+2
A1
COMMON+2
8.4
Alp4
A114
FL79
FL80
A1
COMMOh+2
COMMON+2
A1+1,4
COMMON+8

-.--

--!

21360PRT90136
21365PRT90137
21370PRT90138
LOG BASE 2 OF 10/4.
21375PRT90139
---.
21380PRT90140
21385PRT90141
-21390PRT90142
21395PRT90143
..--.--..-....-p-p--.----21400PRT90144
21405PRT90145
---"..
21410PRT90146
21415PRT90147
21420PRT90148
MANT ISSA.
-. .-.-.
-- --.- -- -21425PRT90149
21427PRT90150
.---*
--21430PRT901Zllll--.21435PRT90152
10.
21440PRT90153
.
.
.
- -- --- 21445PRT90154
1.
2145OPRT90155
--21455PRT90156
------------.--.-,,
". .----.-~10 T O DEC. PLACES.
21475PRT90160
21480PRT90161
-.
GREATER.
21485PRT90162
EQUAL
21490PRT90163
LESS.
21495PRT90164
ROUNDING CAUSED CARRY^
21500P!.T90_1.~_5_ . . . . .
21505PRT90166
EXP+l.
215lOPRT90167 -. .. .. - . ~ - .- . .
----- .... - ... .
10 T O THE DEC* PL.-1.
215 1 5 ~ ~ ~ 9 0 1 6 8

--

~-

--- - -.
-.---

>
.

-..- .21520PRT9oLeL9

.. .... . ..

PAGE 69

BONNIE-S

- ----

-05577 -0754 0 0
05h0n 0560 0 0
05601 0221 00
05h07
0600 0 0
05603 0634 00
05604 0 0 7 4 Q O
05605 -0754 00
O5h0h 0 5 6 L M
05607
0 2 2 1 00

00000
77664
05716
77671
05621
05673
00000
O 77671
0 05716

3204
1 70-0
3206
1707
3208
3209
3210
371 1
3212

05611 0 0 7 4 0 0 4 05673
05617 0500 0 0 0 77664
05613 0100 00 0 05617
05614 0170 0 0 0 05617
05615
0500 0 0 0 00423
05616 0074 0 0 4 05673
05617
0500 0 0 0 00410
05620 0 0 7 4 0 0 4 05673
0 5 6 2 1 0 7 7 4 00 4 00000
05672
0600 00 0 05707
05623
0500 0 0 0 77672
05624 0765 00 0 00043
05625 0 2 2 1 0 0 0 05716
05626 -0600 0 0 0 77672
05627 -0520 0 0 0 05702
05630 0100 0 0 0 05635
05631 -0602 00 0 05702
05632
0634 00 4 05634
05633
0074 00 4 05673
05634 0 7 7 4 00 4 00000
05635 2 0 0 0 0 1 4 05623
05636 -0754 00 0 00000
05637 - 0 5 2 0 0 0 0 05702
05640 0074 00 4 05673
05641 0500 00 0 00422
05642
0074 0 0 4 0 5 6 7 3
05643 -0754 00 0 00000
05644 0074 00 4 05673
05645 0 5 6 0 00 0 77667
05646 -0500 00 0 00427
05647 0162 0 0 0 05651
05650 -0500 00 0 00423
05651 0 0 7 4 00 4 05673
05652 -0754 00 2 00000
05653 -0737 00 2 00000
05654 0560 00 0 00471
05655 -0500 00 1 05700
05656 -0763 OC 2 00000
05657 -0130 00 0 00000
05660
0 1 3 1 00 0 00000
05661 0 0 7 4 00 4 05110
05662 -2 0 0 0 0 1 1 05666
05663
0500 00 1 05706
05664 0074 00 4 05110

3214
3715
3216
3217
3218
3219
3220
3221
3222
3773
3224
3225
3226
3227
3228
3729
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257

0
0
0
0
4
4
0

--

BIRTHDAY ASSEMbLY
PXD
DVP
STQ
SX A
TSX

PXD
D

c.fwuM+ 7
10

I1OMMON+7
FL82.4
INBCU.4
9 0
I

Al-1

TSX
CI A
TZE
TPL
CL A
TSX
CLA
TSX
AXT
ST2
CLA
LRS
DV P
ST0
NZT
T7F
ORS
SXA
TSX
AXT
TIX
PXD
NZT
TSX
CLA
TSX
PXD
TSX

INBCD, 4

21535PRT90172
2L54WRI90LU21545PRT90174

--

- - - -_-

2L55WRT4aLz5_

I l k l m d L L-

DVP

--qnl?L.---

FXP.

Al-1

---

21525PRT90170

- .

-.
.._--

21555PRT90176
2156QPRT90L77
21565PRT90178

1
A
-

FL81
FL82
FL65
FL67

FLOl

LDQ

FL70

CAL
TOP
CAL
TSX
PXD
PDC
L DQ
CAL
LGL
XCL
XCA
TSX
TNX
CL A
TSX

O N + ?
FL81
FL8 1
ONEML
INBC0.4
ONEE
INBCDn4
**, 4
FL7FT
COMMON+8
35
Al-1
COMMON+8
FLZ ET
FLOl
FLZET
*+2,4
INBCD- 4
**, 4
FL6594,l
090
FLZ ET
INBCDp4
A33
INBCO, 4
0,o
INBCD.4
COMMON+5
ONEBL
FL70
ONEMI
INBCD 4
0.2
0 12
ONES
FLOPBt 1
092

BPRIN2r4
FLNXpl, 1
FLOPB, 1
SPRIN294

21570PRT90179
71 5 7 5 P R I P ( l lSO__--21580PRT90181

MINUS SIGN
-

- -

21585PRT90192---"--

21590PRT90183
- - 2 1 6 0 5 ~ 0 1 3 4 - - -

- - --

._

--

21620PRT90187

--

10.
FRACTIONAL PART.

_-

-.

----

------

s A V.E I&---_-____ENTER DIGIT.

RESTORE.
-- -

--E M E R

. .

.212ZQP~TBO.1.18.21225PRT90119
2XZ)_OPRT.9Q1.29
21235PRT90121

---.--

----

-- -

- - --

. . .

. ~.

...

-.

--- --

.".> .
- - -

.-

"--~
--.

--

- - -- - -..

.-

. .

.
.

.. . .. ..

.. . -

....

--

--- ....-

--

-. . .

WORD_.!i!L!L7ES

- ---

.---.

--

.-

- -

--

21195PRT90113
212&C!!?RT_991.14

--

--

p
.
.
.
.
.
.
.
-

DEC- POINT.

F I L L OUL!!AST

211I.5.P-RX9-UQ 9
21180PRT90110
-.- 211&PRT90111
21 190PRT90112

----

BLANK
FOR PLUS,
NEGATIVE.
INSERT BLANK OR MINUS.

-----

21145PRT90103
- -21 160PRT20106
-_
21165PRT90107

-- -- -.

-.

--

PAGE 70

BONNIE-s

05673
C5674
05675
05676
05677
05700
05701
05702
05706
05706
05707
05710
05711
05712
05713
05714
05715
05716
05717
05720
05721
05722
05723
05724
05725
05726
05727
05730
05731

ASSEMBLY-

--

.- - -

- -- - .-

3258
TIX
+2,1,1
3259 FLNX A X T
**, 4
.--3260 FLNY A X T
**, 2
3261 FLNZ &T
* *1
-- . - ...
-.--- ...
.. .-. .
3262
PXD
090
3263
TRA
1 4
..
3264 *
- 0 3 2 0 0 0 0 00413
3265
INBCD ANA
,377
. . .. .
.
. . .
.
..
.
0767 00 2 00044
3266
ALS
3692
-0602 00 1 05706
3267
ORS
. FLOPBll
--- .--.--- ----.
2 00006 2 05701
3268
TI X
++3,2,6
1 00001 1 05700
3269
TX I
*+lrl,l
-0774 00 2 00044
3270
AXT
3612
0020 00 4 00001
3271
TRA
1,4
3272 +
0 00000 0 00000
3273 FLZET
- ---- -3274 FLOP0 BES
3
H24/ 0.01012/7777
606060600000
3275 FLZPZ VFD
-+000575360400
3276
DEC
100000000
70100PRT90437
+000046113200
32 77
DEC
10000000
70101PRT90438
--+000003641100
3278
DEC
1000000
70102PRT90439
+000000303240
3279
DEC
100000
70103PRT90_440
--- -.- -+000000023420
3280
DEC
10000
70104PRT90441
+000000001750
3 2 8 1 THSND DEC
1000
70 105PRTL0442
+000000000144
3282
DE C
100
70106PRT90443
+000000000012
3283
DEC
10
72107PRT90444
+000000000001
3284 A 1
DEC
1
70108PRT90445
+115040465025
3285 LOG2 OCT
115040465025
LOG BASE 10 OF 2.
70110PRT90446
+324464741127
3286 LOG10 OCT
LOG BASE 2 OF 10-4.
7 0 1 15PRT90447
32446474 112 7
+000001601225
3287 C7
OCT
1601225
70120PRT90448
. ... . - . - ..--- -- -.
-.. ---..+000007762664
3288 C6
OCT
7762664
70125PRT90449
+000132240566
3289 C5
OCT
132240566
---701 30PRT90450
+001164125106
3290 C4
OCT
1164125106
70135PRT90451
+007066267024
3 2 3 1 C3
OCT
7066267024
70140PRT90452
-.
-.-.
.-.
.-..- ..
..
+036577252307
3292 C2
OCT
36577252307
70145PRT90453
+I30562064437
3293 C 1
3CT
130562064437
7 0 15 0 P R T 9 0 4 5 4
--- ...
-.
2 00000 0 00000
3294 C O
TIX
010,O
70155PRT90455
00422
3295 A33
SYN
$8033
----.
-.-- .----..
00413
3296 A77
SYN
5'363
00415
3297 A128
SYN
SQ128
- - ---- - .
.
00420
3298 ONEPL SYN
lQ020
00410
3299 ONEE SYN
$61025
-- - -- -- - -00423
3300 ONEMI SYN
SQ040
00427
3 3 0 1 ONEBL SYN
64060
--.- - "
00471
3302 ONES SYN
SEVEN5
3303 +
-- -- 3304
READ
LC286900
3305
LC287000
-_ 3306
READ = 5ELECT[RD,,LPARlREAD1.,
LC287100
3307
LITERWINTERN.,
-- LC287200 --- -- -.-- 3
3
0
-NUMB1 INTERN- 18LC287300
3309
RPARqERR0R.p
-.
- - --LC287400
1; ERROR 1
3310
Lci81?Foo-

05665 2 00001
05666 0774 00
05667 0774 00
05670 0774 00
05671 -0754 00
05672 0020 00

BIRTHDAY

1
4
2
1
0
4

05663
00000
00000
00000
00000
00001

--

9
-

.--.-_e.---~..---~.

--

- -- -

--

PAGE 7 1

BONNIE-S BIRTHDAY ASSEMOLY

33 1 4
3315
3316
331 7
3318
3319
3320 I
3 3 7 1 RFAD
3322
3373 REDS1
3324 REDIS
3375
3326

RFADl

LC290800
SELFCTI RD.

RP

LC2PQQQQ

LPARICONS(READ~~READ~).,

LC291000
U129UQ.Q
LC291200

I ITER,CONSI INTFRN*READ~~LL

NUMBvCONS(INTERN*READl))

LC2913m

---.---.----.---..
HED
SXA
TSX
AXT
GAS
TRA
TRA

-.. -...

.. ..-.. .

LC291400

. REDS114
SAVE LINK I R
05732 0634 00 4 05734
05733 0074 00 4 06026
bRD14
GET FIRST ITEM
++,4
RFSTORF LINK I R
--05734 0774 00 4 00000
05735 0340 00 0 06022
RLPAR
DISPATCH ON TYPE OF ITEM READ
r+2
05736 0070 0 0 0 05740
05737 0020 00 0 05757
READ1
WAS f
40
0
--. .-----.
--...-- ----05741 0020 00 0 05743
++2
3328
TRA
05742 0020 00 0 05747
-.
3329
TRA
RFDFR
05743 0340 00 0 0 6 0 2 4
3330
CAS
RDOT
05744 0070 00 4 00001
3331
TRA
114
- -05745 0020 00 0 05747
3332
TX4
REDER
114
.. - -.05746 0020 00 4 0 0 0 0 1
3333
TRA
05747 -0634 00 4 01562
3 3 3 4 REDER SXD
$ERROR14
MUST BE AN ERROR
ST0
RS2
SAVE TYPE
--.--.- .-.
---.-- . 05750 0 6 0 1 0 0 0 03452
3335
05751 0074 00 4 01222
3336
TSX
OUTPUT, 4
WRITE OUT INPUT BUFFER
05752 0 0000.0 0 00364
3337
BCDOUT
---. ,.- ..- .
05753 o 00016 o 063.51
3338
CELL-~5~~14
05754 0 5 0 0 0 0 0 03452
RS2
G M TYPE
--.. .- . .
.
3339
CLA
05755 0074 00 4 01563
3340
TSX
JERKOK+I,
4
GO TO ERROR
05756 545160600154
1.18
1+
-CONTEXT ERR_O_R_---~
. _ _-~.
~
-..
.
3341
BCI
3342
05757 -0634 00 4 03451
3343 READ1 SXD
RSlr4
SAVE LINK I R
- ---.- -.-- ----- -- .--. ..-. ....- .- ..
05760 0074 00 4 06026
3344
TSX
SRD 14
GET NEXT ITEM
05761 0340 0 0 0 06023
3345
CAS
RRPAR
.p----.---....-.-.---.-.--.-.-------...--.
-.
.--.
05762 0020 00 0 05764
3346
TRA
++2
05763 0020 0 0 0 06003
3347
TR A
RP 1
WAS
REILBNdITHLL
~05764 0074 00 4 02312
3348
TSX
$SAVE14
05765 -3 03454 0 02377
3349
TXL
BENOZ, 1 RS2+2
SAVE=
TEMS
------------..
05766 0340 00 G 06024
3350
CAS
ROOT
05767 0020 0 0 0 05771
3351
TRA
*+2
--p---.-.---------.....-----.-..-..--. ~ ~ .. .-. ~
.. . 05770 0020 00 0 06006
3352
T RA
RP2
WAS
05771 0340 00 0 06022
CAS
RLPAR
-.
-3353
05772 0020 00 0 05774
TR A
*+2
3354
05773 0074 00 4 05757
3355
TSX
REAL'l14
---,-.----~..
05774 0601 00 0 03452
3356
ST0
RS2
SAVE RESULTS
05775 0074 0 0 4 05757
3357
TSX
REAOL,4
GET NEXT ITEM
05776 0 1 3 1 0 0 0 00000
3358
XCA
PUT
I.
N MQ
05777 0500 GO 0 03452
3359
CLA
RS2
FIRST I T E 8
06000 0074 C O 4 02326
3360
TSX
UNSAVE 14
06001 -0534 00 4 0 3 4 5 1
3361
LXD
RSlr4
REsTaKE L I%A-!
---- - --. - -- .
06002 0020 0 0 0 03730
3362
TRA
$COP?S
CONSTRUCT A L I S T
3363 +
---- -- - - - --0 6 0 0 3 y 0 7 5 4 0 0 0 00000
3364 RP1
PXD
010
WAS 1
RETURN WITH N I L
06004 -0534 00 4 03451
3365
LXD
RS1.4
.
- - -- -.-- . .- --- - -- -

p
e
e
-

------

--

--

PAGE 72
06005

BONNIE-S
0020 00 4 00001

06006 0074
0074
06007
06010 0 6 0 1
06011 0074
06012
0340
06013
0020
0020
06014
06015 0020
06016 0500
06017
0074
06020 -0534
06021 0020

00
00
00
00
00
00
00
00
00
00
00
00

4
4
0
4
0

0
0
0
0
4
4
4

06026
05735
03452
06026
06023
05747
06016
05747
03452
02326
03451
00001
00505
00476

06022
0 00531
06023 0 00527
06024 0 00526
06025
06025
0 00000
06026 0500 00
06027 0100 00
06030 0600 00
06031 0020 0 0
06032
0634 00
06033
0634 00
06034 0634 00
06035
0604 00
06036 0 4 4 1 00
06037 0774 00
06040 0774 00
06041 0074 00
06042
0734 00
06043 0020 00
06044 0020 00
06045
0020 00
06046 0020 00
06047 0020 00
06050 0020 00
0605L
0020 00
06052
0020 00
06053 0 0 7 4 00
06054
0 00000
06055
0 00017
06056 -0754 00

0 00000
0 00000
0 00000
0
0
0
0
4
4
2

1
0
0
2
1
4
4
4
0
0
0
0
0
0
0
4
0
0
0

00001
06415
06032
06415
00001
06063
06070
06067
06414
00370
00006
00014
06172
00000
06053
06072
06122
06123
06041
Oh062
06062
06062
01222
00364
06353
00000

3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379
3380
3381
3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408
3409
3410
3411
3412
3413
3414
3415
3416
3417
3418
3417

.-

.. .

. ....

BIRTHDAY ASSEMCLY

RP2

1t 4

TSX
TSX
ST0
TSX
CAS
TRA
TRA
TRA
CL A
TSX
LXD
T RA

$KO* 4
RED I S,k_
US2
fRD.4
RRPAR
R E D E L...---~,.--._-~.~-.-..-,...I
*+2
REDER
RS2
UNSAVE, 4
RSl p4
1.4

RLTK
SYN
RNUMB SYN

QUOTED
FLOATD

--

---

TRA

GET

ITEM

..-

..

-.. .

-----

---

WAS
GET NEXT ITEM
DISPATCH ON I T
SAVE RESULTS
G E T 1 ITEM
SHOULD BE

_(;O,,TP
..E~R.OR*1.F N O T

. ...

--

-....

--

---

--

--

READ

RESTORE LINK R
IRERURN WITH I T

SYMBOL FLAG
FLDAT [ U S E D TO SIGNIFY

.-.- --

NUMBER

ANY KIND

-.

HED

LC296600
L c 2 9 6 7 o&-_____L--LC296800
LC296900
.
.
------- -LC297000
L c 2~ x o o - - - -

RD( A)

---READS BCD LISTS FROM CARDS (SW 1 DOWN) OR TAPE 4 {SWl UP)
RLPAR
RRPAR
RDOT
RDVAL BSS
LRClS
RD
C LA
TZE
STZ
T RA
RDAA
SXA
SXA
S XA
STI
LDI
RDPTS A X T
RDWDS AXT
RDGC T S X
PAX
TRA
T RA
TRA
TRA
TRA
TR A
T RA
T RA
RDJTl T S X

PXD

p r

$ti740

,,SH34D

----

-.--.-

r r $H33D
0

1
KDLST
RDAA
RDLST
1.4
RDX I 4
RDY I 2
RDZ I 1
RDI ND
$ZERO
692
1291
GET 4
09 4
RDJTlr4
RDDLR
RDLT
RONM
RDGC
RDPU
R DP IJ
RDPU
OUTPUT, 4
BCDOUT
RDPB,, 15
0,O

CARD IMAGE EMPTY TEST CELL

GO I F NOT
OTHEKWlSE ZERO -.-AND EXIT
S A V E INDEX %!XLEGI!S

.. -.

.-

--- - .. - S A V E THE INDICATORS

SET UP IR

--.-

--.---.-------.--.......

-- --- --.

---

"--

..

"_"

-..----

..

--

-- -- -.-

--------

~?"AND 1
-.- -.

..--

GET THE FIRST CHARACTER

TYPE TO INDEX REGISTER
- .--D-ISPATCH ON TYPE

- - -- -.- -.
--

..

-- ---------.

-.

.,--

NUMBER

..

ILLEGAL CHARACTER

-.-

CLEAR A C

. -. ...

-.

--.--- - - .....

-.~~~

..~

... . ~..

- .

P A G E 73

BUNNIE-S

-..

-- ...-

"6

06057 -0634 00 4 01562

nhohn 0074 00 4 n15h3
06061 545160600354
06062 0500 00 4 06075
06063 0774 00 4 00000
06064 0634 M 7 96037
06065 0634 00 1 06040
06066 0441 00 0 06414
06067 5774 00 1 50000
06070 0774 00 7 00000
06071 0020 00 4 00001
06072
06073
06074
06075
06076
06077
06100
06101
06102
06103
06104
06105
06106
06107

0055 00
0074 00
0734 00
0500 00
0601 00
3 00006
0634 00
0500 00
0601 00
0074 00
0500 00
0601 00
0774 00
0020 00

4
4
0
0
4
4
0
0
4
0
0
4
4

06110
06111
06112
06113
06114
06115
06116
06117
06120
06121

0074
0500
0601
0074
0500
0340
0020
0020
0074
0020

4 06172
0 06416
0 06413
4 06172
0 06413
0 06416
0 06120
0 0614Z
4 06241
0 06113

06122
06123
06124

0055 00 000002
0055 00 000001
0074 00 4 06241

00
00
00
00
00
00
00
00
00
00

00
00
00
00
00
00
00
00
00

000003
Oh177
00000
Q6416
06413
06110
06106
06412
06416
06241
06413
06416
00000
06137

06127
06130
06131
06132
06133
06134
06135
06136
06137

0020
0020
0020
0020
0070
0020
0020
0020
0020

4 06137
0 06124
0 06124
0 06124
0 06142
0 06140
0 06140
0 06164
0 06053

06140

0500 00 4 06025

.-

8 I K T H D A Y ASSEMBLY

3420
SXD
347 I
TYX
3422
BC I
3473 R D P U
CIA
3424 R D X
AXT
3475 R D F U
3426
SXA
I D I
3477
3428 Y D L
AXT
3479 R D Y
AXT
3430
TR A
3431 +
3432 R D D L R S I R
3423
TSX
3434
PAX
343 5
CLA
3436
ST0
3437
TXH
3438
SX A
3439
CI A
3440
ST0
3441
T SX
3442
CLA
3443
ST0
3444 R D T
AXT
3445
TR A
3446 *
3447 R D D D T S X
3448
CLA
3449
ST0
3450 R D D D L TSX
3451
CLA
3452
GAS
3453
TRA
3454
TR A
3455
TSh{
3456
T RA
3457 *
3458 R D L T S I R
3459 RDNM S I R
3460 R D N N T S X
TSX
PAX
TRA
TRA
TR A
i RA
TRA
TRA
TR A
IRA
TRA

3463
3464
3465
3466
3467
3468
3469
3470
3471 R D J T 2
3472 *
3473 R D P S
CLA

OERROK 4

SAVE

IK 4
TO FRRL~B~~W:_WIF

WR+I.~

GI-

3*
B D V b 4 -**, 4

- --

- - - - --

..

------I-----.----

- -

lt*R

--

RDPT5.7
RDWDS, 1
RDIND

**,

SAVF

----

-- -

--- - - - --

IbL[LULREGILLERL

- ._I-.----.-

-_

E X 1T
S E T F I R S T C H A R C T E R AND L I T E R A L I N D I C A T
I S
C H A R A C T E U
----I F SO I T I N D I C A T E S A L I T E R A L S T R I N G
SAVE V A L U E O U T -

GiVAl
RDDDC
RODD.4r6
RDT I 4
RDDLS
GTVAL
PUT $ 4
RDDDC
GTVAL

---

GO I F A $
N O T SO DO A R E G U L A R D

--

PUT I N OUTPULBEF_ER
L A S T VALUE OF GET

GET94
GTVAL
RDDDC
GET I 4
RDDDC
GTVAL

SET
SET
PUT
GET

2
1
PUT, 4
GET 4

__

--

--

-- -

__

- -- _ -

-----

--

- --

- -

--

"

---

--

----

LITERAL INDICATOR
F I R S T C H A R A C T E R INDICARTTOOR
T i i E C H A R A C T E R AWAY
N E X T C H A R A C T E R - -- -

- --

_.

-_ - --

GET NEXT CHIRACTER

GET D E L I M I T E R
--_----.-___---__~----COMPARE W I T H C H A R A C T E R J U S T R E A D
NO_
-.
.YES, E X I T
--- N o t P U T AW-AL T _ H E - L H A R A _ _ C T _ E K .
_
_
GET N E X T CHARACTER

*+2

--.--*,

I S A L I T E R A L S T R I L
USE T H I S I T E M AS A D E L I M I T E R

KDXT
PUT,4
RODDL

- ------- --

--

------.---

- - - -- -- -

.--

-- -

--

- .-

--

--

--

--

--

------- -

_.._

T Y P E OF L A S T CHARACTER
D I S P A T C H ON T Y P F

RDJT2r 4

I-.

---

-- - --

--

**14

-- - -

--

----- --- --

3
GFT.4
09 4

_ I _ _I
-

--

sr.2

194

- .-

RFJTORF
I N D L W---__
RESTORE I N D E X R E G I S T E R S

--

..

0 4
KDJT29 4
RDNN
RDNN
RDNN
RDXT
RDPS
RDPS
RDPD
RDJTl
RDVAL 4

.- - -

D I S P A T C H ON T Y P E
$

LITERAL
NUMBER
9

---

--

.-

-- - -

----

--

-.-

--

--. -.-

--

I
1
-

- -

-.-.

I L L E G A L -C H A -R A C-T E
--R
S E T -U P-R U -L S T-- CELL.-

-.

- -- .--

- -- -

- -

.-

PAGE 7 4

.
a

OONNIE-S

B I R T H D A Y ASSEMBLY

- --

..

06141
06142
06143
06144
06145
06146
06147
06150
06151
06152
06153
06154
06155
06156
06157
06160
06161

0601 00
0534 00
-0754 00
3 00005
0560 00
0522 00
0774 00
0634 00
0534 00
-0602 0 0
-0754 0 0
0622 00
0500 0 0
-0774 0 0
0056 0 0
0020 0 0
0020 00

0 06415
4 06246
0 00000
4 06162
0 00471
4 06327
4 OOOOL
4 06246
4 06254
4 06335
0 00000
4 06343
0 06335
4 06062
000002
0 06543
0 06420

06162
06163

0534 00 4 06254
1 00001 4 06154

06164
06165
06166
06167
06170
06171

0054
0020
0054
0020
0055
0020

06172
06173
06174
06175
06176
06177
06200
06201
06202
06203
06204
06205
06206
06207
06210
06211
06212
06213
06214
06215
06216
06217
06220
06221
06222

00
000002
0 0 0 06140
00
000020
0 0 0 06140
00
000020
DO 0 0 6 1 2 4

0634 00
0520 0 0
0020 0 0
-0754 0 0
0560 00
-0763 00
0734 00
-0763 00
0340 0 0
0020 00
05CO 0 0
0601 00
-0320 00
0621 00
- 0 6 0 0 0C
-2 00001
0560 00
-0763 00
0522 00
0522 00
-0754 00
-0763 00
0774 00
0020 00

4 06220

0
0
0
1
0
4
0
0
0
0
0
0
0
1
2
4
0
0
0
0
0
4

06025
06227
00000
06370
00003
00000
00003
00416
06205
00423
06416
00377
06213
06370
06222
06352
OOOOC
06213
06213
00000
00003
0000U
4 00001

0774 00 2 00000

3474
3475
RDXT
3476
3477
3478
3479
3480
3481
3482
3483
3484
3485
TPFA
3486
3487
3488
3489
3490
3491
3492
TPF
3493
3494 *
3495
RDPD
3496
3497
3498
3499
3500
3501
3502
GET
3503
3504
3505
GETGO
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
GTMC
3519
GTPT
3520
3521
3522
3523
3524
GTX
3525
352
-6
- *
3527
GTPC

--

.........

RDLST
PUTMC 4
010
TpF1475
5 EVENS
PTSFT-194
694
PUTMC*k--.
PUTPC94
RDPNB 9 4
010
PUTVL+6*4
PUTVL
RDPU, 4
2
SNUTRN
INT R N l

LXA
TXI

PUTPC.4
TPFAP4rl

C O R R E C T P A R T COUNT

RFT
TRA
RFT
T RA
SIR
TRA

2
RDP S
20
KDPS
20
RDNN

T E S T FOR L I T E R A L
FIRST
TERMONATES A L I T E R A L
T E S T FOR F I R S T D O T I N A NUMBER
SECOND
T E R M I N A T E S A NUMBER
S E T DOT I N D I C A T O R

SXA
ZET
TRA
PXD
LCQ
LGL
PAX
LGL
CAS
TRA
CLA
ST0
ANA
ST&
STQ
TNX
LDQ
LGL
XEC
XEC
PXD
LGL
AX1
TRA

GTX.4
LRCIS
GTGCD
010
CELL, 1
3
Ow4
3
6Q014
*+2

SAVE L I N K I R
T E S T tOR-NEWR&NECDED
G
-E
- T A NFW
-. C A E R D
C L E A R AC
G E T N E X T WORD
H I G H ORDER B I T S

AXT

SQ040
GTVAL
$6)7
GTPT
CELL 1
GTPClZtL
GTTBL.4

*+

GTPT
GTPT
090

3
**9

194
692

.-

C H A R A C T E R COUNT
C L E A R AC
GO I F L A S T WQRD COMPLET-ED
GET 7 7 S

..-.

-'

--

<

------

--- ---

------

--

-------

.....

-. .--

.... -

----. ----

---

.
.
.
.

--

--

---ow-,---

CHARACTER
-- -- -- - -- --- - -- I S I T ILLEGAL MINUS SIGN
NO
-- - -.- ---------------------Y E S G E T L E G A L ONE
VALUE O
F x FOR PUT- MASK OUT H I G H ORDER B I T
-- - --- - -- -- --- U P D A T E WORD
U P D A T E P A K T COUNT -GET T A B L E ENTRY
S H I F T PROPER I T E L T O ! ! t
-

CLEAR A L
T Y P E NOW I N AC
RESTORE L I N K I R
-

---

--

- - --

--

--

--

.- --

--

--

- -- -- -- - -- - -

......

--

--

--

---

--

------------

--

-_-

R F L O A D P A R T COUNT

....

--- - --

--

........-.

--

_-_.

COUNT

WORD COUNT
PUT I N P N A M & B m K
C L E A R AC
CHOP O F F PNMAE S A U S A G E
GET V A L U E
SET U P TRANSFER TO E X I T
TEST L I T E R A L INDICATOR
M A K E I T A NUMBER
MAKE I T AN OBJECT

- -.
--.

.
.
.

ST0
LXA
PXD
TXH
L DQ
XEC
AXT
SXA
LXA
ORS
PXD
ST0
CLA
AXC
RNT
TRA
TRA

--PROPER S H I F T
R E S E T CHARACTER
_ _-_-.
- - - - --

-- - -

- -----

.-- - --

---w

p
,
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
,
.
.
.
.
.
.
.
.
.
.
.
.
.

PAGE 75
06223
oh774
06225
06776

BONNIE-S

2 00001 1 06212
Oh75 00 0 Oh075
0774 00 1 00014
o w n oo n 0 ~ 7 1 7

06777
06230
nh711
06232

0074 00
0 00000
0 00034
0020 00

4
0
0
0

DO663
00000
Ch354
06234

06234
06735

O l U O 00 0 06175

06237
06240

0074 00 4 01562
545160600454

0600 00 0 06025

06741 0054 00
06242 0020 00
067 4 3 0634 00
06244
0056 00
06745 0020 00
06246 0774 00
06247
0500 00
06250 0560 00
06751 0577 00
06252 -2 00001
06253
0634 00
06254 0774 00
06255 -0602 00
06256 0774 00
06257
GO20 00
06260 0774 00
06261 0634 00
06262 0534 00
06263 -0602 00
06264 2 00001
06265
0055 00
06266 0634 00
06267
0020 00

000040
0 06270
4 06256
000010
0 06276
4 00006
0 06416
0 00370
4 06330
4 06260
4 06246
4 00005
4 06335
4 00000
4 00001
4 GOO06
4 06246
4 06254
4 06335
4 0626L
000040
4 06254
0 06256

06270 0074 00 4 01222

06271 0 OOCOO 0 00364
06272
0 00006 0 06327
06273 -0754 00 0 00000
06274 0074 00 4 01562
06275
545160600554
06276
06277
06300
06301
06302
06303

0055 00
0774 00
0634 00
0600 00
2 00001
0500 00

000010
4 GO005
4 06254
4 06335
4 06301
0 06335

3528
3579
3530
7531
3532
3513
3534
3535
3536
3538
3539
3540
3542
3543
3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3581

.-

B I R T H D A Y ASSEMBLY
T IX

GTMCt l t 1

\TI

IRCIS

AXT
1 RA

1291

GO I F NEW WORD NOT NEEDED

RD
---ERELOAD I R 1

GTMC

GO

---

-- --

--

- --

--

--

GTGCn TSX

T RA

STZ
TRA

LRCIS
GETGQ

S E T S H I T C H T H A T CARD I S PRESENT
NO GO m

TSX
BC I

$ERROR, 4
1.*R
4*

AC
GO TO ERROR
E Q E _ Q ! L R L A L L I N N N N N N - - -_

RF T
TRA
SXA
RNT
TRA
AXT
CLA
LDQ
XFC
TNX
SXA
AXT
ORS
AXT
T RA
AXT
SX A
LXA
ORS
T IX
SIR
SXA
TRA

40
PTTF4
PUTX.4
10
PUTZB
6r4
GTVAL
$ZERO
PTSFT.4
PTRFPp4y 1
PIITMC.4
5.4
KDPNB*~
"114
1.4
6.4
PUThCy4
PUTPCt 4
RDPNB.4
*+214t 1
40
PUTPC.4
PUTX

P T T F A TSX

OUTPUT 14
BCDOUT
RDPNB-6
6
0.0
$ERROR* 4
l,*R
5*

--

S I N P
BBCDIN
LWPfl,
.?A
*+2

-.

--81;flllBB,R

--

--

.-

--- -

-- - --

- -- .----

- - - - --

IGNORE REDUNDNACY ERRDR

7

--- .-

---

--

----------..---

PUT

PUTMC

PUTPC
PUTGA
PUTX
PTRFP

PXD
TSX
BC I

E Y

TESTTDLIFTDOMUCHPNAMF--

E Y

E Y

E Y

GO T O ERROR COMMENT
S A W S IR
T E S T FOR F I R S T T I M E THRU
ZERO P N A M L B E E E L
CHARACTER COUNT
GET CHARACTER
--

E Y

E Y

E Y

=
-A
--

-_-

--

-- -

10
5,4
PUTPC.4
RDPNB, 4
*-1.491
FUTVL

-----

--

--

--

--

-. -

-. . -

-.

.-

hORD COUNT
- --

TOO MANY CHARACTERS

W R I T E OUT PYAME SO FAR
C L E A R AC
GO T O E

- - -

--

- --

- -

--

--

-----R

- - - --

--

DECREMENT WORD COUNT

I N D I C A T E PNAME B U F F E R L U L L
U P D A T E CDUNTER
GO ON

--

--*-

- - --

_.

--

PUTZB S I R
AXT
SX A
ST2
TIX
CLA

--

- - .

-------

---

-- - -

--

-- -

- --- -- ------- - --

- --

----------

PROPFR S H I F T TO C W F R
DECREMENT CHARACTER COUNT
U P D A T E COUNT C
E
L
L
NUMBER OF WORDS I N PNAME
PUT CHARACTER I N
RESTORE L I N K I R
EXIT
RELOAD PART COUUT

__ ---

--

- - --

--

- --

--

- -- ---

- -

.-

- --

-- -

-- -- .- --

SET SWITCH
F I X UP B U F F E L
AND PART COUNT

-R E L U!iKKTxE_WORDs

_- _

__

__-

-.

--

- .

----.-.

--

--

--

--

BONNIE-S BIRTHDAY ASSEMBLY

--

.- .

--

--

- .-

06304
06305
06306
06307
06310

0774 00
0402 00
0622 00
2 00001
0020 00

4 00005
0 00442
4 06343
4 06305
0 06246

06311 -0625
~ 6 3 1 2 0500
06313
0621
06314 0621
06315
0500
06316 0621
06317
0600
06320 -0754
06321 0020

00
00
00
00
00
00
00
00
00

0 06025
0 00376
0 06037
0 06246
0 00403
0 06040
0 06415
0 00000
4 00001

06322
06323
06324
06325
06326
06327
06330
06335
06335
06336
06337
06340
06341
06342
C6343
06344
06345
06346
06347
06350
06351
06352
06353
06354
06355
06370
06404
06404
06412
06413
06414
06415
06416

00
00
00
00
00
00

0
0
0
0
0
0

-0763
-0763
-0763
-0763
-0763
0761

00036
00030
00022
00014
00006
00000

0 71442 0 00000
0 71441 0 71450
0 71440 0 71447
0 71437 0 71446
0 71436 0 71445
0 00000 0 71444
-260430000000
-066666660000
-260760000000
-166666660000
-260120000000
-1 66666660000
-150650000000
-155555550000
006060606060
0 00000 0 00000
0 00000 0 O O O O O

000000000053
0 00000 (1 O O C O O
0 00000 0 00000
0 00000 0 00000
0 00000 0 00000

3582
AXT
3583
SUB
3584
ST0
3585
TIX
3586
T RA
3587
3588 TEREAD STL
3589
CL A
3590
STA
3591
ST A
3592
CLA
3593
STA
3594
STZ
3595
PXD
3596
TRA
3597
3598
LGL
3599
LGL
3600
LGL
3601
L GL
3602
LGL
3603
NOP
3604 PTSFT BSS
3605 RDPNB BE5
3606
PUTVL
3607
3608
3609
3610
3611
3612
0 CT

5r4
fQD1
PUTVL+6 14
*-2 *
PUTMC
LRCIS
bQ6
RDPTS
PUTMC
SQ12
RDWDS
RDLST
010
114

SET POINTERS

----.

------.-..

--

--

_.

-- -- -

.. .__

--- - -- - .

SET SWITCH TO GET A NEW CARD

SETCELCS-_
- -

------

--

--

CLEAR A C
EXIT

------

30
24
18
12
6

--- -

-------.--

0
5

--

1 9 -*-I
VALUE OF RDA
-RDPNB+Sr t-*-1
FOR INTERN OF NUTRN
-RDPNB+4r ,-*-I
-RDPN8+31 ,-*-I
-RDPNB+2, ,-*-I
-RDPNB+l
-660430000000v4666666600OU~663760000000r566666660000

------*-

---

--

--- ----

*.-----

-~

36 1 3

OCT

660120000000v5666666600001550650650000000

OCT
RCI

.-

3614 GTTBL
3615
RDPB
3616
LWPO
3617 LWCKS
3618 CELL
3619
LWOPB
3620
3 6 2 1 RDDLS
3622
RDDDC
3623
RDlND
3624 RDLST
3625 GTVAL
3626 *
3627
3628
3629
3630 1

---

555555550000
190

UES

10
12
6
1,00000$

-- .

.. - ...-

. - - . -.-

-- -.--.---

ROOM FOR I D AND LLOK-AHEAD

--- --

-.

BITS

=-----

- -

INDICATOR

--

STORAGE---

-------"

-INTERN
HED

-.-----

- - .-

---- ".-

------

BES
BSS
BCI

,'

--

--

-- - -

- --

--- - - -

LC326700
LC326_800
~C327800 LC327900
- -- ..
- -- -

--

. --.
--

--

PAGE 77

BONNIE-S

- --

BIRTHDAY ASSEMBLY

06417 -0600

b L / - - c 0 6 4 2 1 . - 0634 00 4
Oh477 O63&--Q0 7
06423 -0534 00 4
06474 0500 M 4
06425
0734 00 4
06476
0500 00 4
06427 0765 00 0
06430 .0771 00 0
06431 0760 00 0
06432 0074 00 4
06433
0734 00 4
06434 0500 00 4
06435
0634 00 4
06436 0734 00 4
06437 -0634 00 4
06440 0520 00 0
06441 0020 00 0
06442 -0634 00 4
06443 -0534 00 4
06444 - 3 00000 4
06445
0500 00 4
06446 0622 00 0
06447 0734 00 4
06450 -0634 00 4
06451 0500 00 4
06452 -0734 00 4
06453 - 3 00000 4
06454 0500 00 4
06455
0734 00 4
06456 -3 07334 4
06457
3 07335.4
06460 -0734 00 4
06461 0500 00 4
06462 0734 00 4
06463 -0534 00 2
06464 -3 00000 2
06465
0500 00 4
06466 0622 00 0
06467
0734 05 4
06470 0500 00 2
06471 0622 00 0
06472 0754 00 2
06473
0500 00 4
06474 0402 00 2
06475 -0100 00 0
06476 -0534 00 4
06477 -0534 00 2
06500
3 ooooo 4

06525
06576
06533
00000
00000
DO000
00043
06535
00012
01676
00000
66477
06522
00000
06540
06534
06530
06536
06536
06504
00000
06536
00000
06537
00000
00000
06443
00000
00000
06452
06452
00000
00000
00000
06533
06443
00000
06542
00000
00000
06541
00000
00000
00000
06443
06542
06541
06464

3631 *
3 ~ 3 79 INTFRN
3633 *
3634 it
635 BUKSRT STQ
h36lNTRNl STQ
3637 INTERN SXA
3638
SXA
3639
LXD
3640
C LA
3641
PAX
7642
CAL
3643
LRS
3644
DVP
3645
DCT
3646
TSX
3647
PAX
3648
CI A
3649
SXA
3650
PAX
SXD
3651
ZE T
3652
3653
TRA
3654
SXD
3655
04
CXD
3656
TXL
3657
CLA
3658
STD
3659
PAX
3660
SXD
3661
LA
3662
03
PDX
3663
TXL
3664
CLA
3065
PAX
3666
TXL
3667
TXH
3668
POX
3669
CLA
3670
PAX
3671
LXD
3672 07
TXL
3673
CL A
3674
ST0
3675
PAX
3676
CLA
3677
5TD
3678
PAX
3679
CLA
3630
SUB
3601
TFIZ
3682
LXD
3693
LXD
3664
T X

tauam

A
IF IF n T n
THE BUCKET SORT
F

BSRT
BVAl llE
ITRX94
ITRY.7
OVALUE 9 4
0.4
094
0.4
35
BUCKNO

.I_Is.w

sap

INTAD
0114
0114
OUT94rO
14
01
94
0214
$4
,4
04.490
,4
94
03,4,$PNAME-1
0314,fPNAME
14
94
,4
CVALIJE 12
04,2*0
094
Q4
14
92
U2
,2
,4
12
04
Q494
4212
~07,4,0

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

.-.

- - -.

.-

.- S

1.5M7880

r NL ~ ~ E X L E R ~ ~ A ~ N Z B A N L E S -.---.-.-.-.-__
~ ~ ~ ~ U M - ~ D

1.5M7900
-1,.5M79.10
ATOM TO BE PLACED (CNSFWL ENTRANCE)
1.5M7930
FXTFRNAI FNTBANCFERDM_A.'PLY
1-5M744Q
ENTRANCE FROM READ
1.5M7950
IR S
._
1 _ E y 9 9 6 D..-.
PICK UP POIhTER T O ?NAME LIST
1.5M7970
GFT FIRST_ h 1 0 . R R - Q E S _ C I A M L - 1 . 5 M Z 9 8 L
1.5M7990
GFT F I R S I , WORD IN _ U C B L 4 C p - - . PUT I N MQ AND B I T 35 OF A C
DIVIDF BY ~ ~ Q B U L E _ V ~ . . ~ M ~ Q ~
CHECK DIVISION
1 5M8020

5l X o L ! L U ! . ~ - . i ! i L l ! !
094
BUCKET14
BUCK 9 4
0.4
05.4

.
.-. ... - - ..-

REMAINDER T O I R 4
PICK UP BUCKFT
SAVE THE REMAINDER

---

.a

--

.- , I

---

'

'

'?I
..

SI
PI

/I

--~
--

--

?I
6I

-.--

- --

5M&O050 _ _

I~
5
1.5MB100
_--1_,5M8110-_
1.5M8120

SET UP WORD
TEST
FOR CNSFWLENTRANCE
YES* GO

--

&

--

J.-EmWu--NEXT OBJECT
END OF OBLIST

LC328300

L C 3 2 8 6 Q O ---.LC328500
C-C-3286 OQ.
LC328700
-LC328800
LC328900

OBJECT M / C ;dAME
PRESERVE IT

--

__ _

---..-----

U3-23OP
LC329700
u
-- L
C329.880_0_- -_
V
LC329900
-_ - __ ---_
4 0 0 0 -4010
CDRI U)
______- --.-L&.32l2-,0_.Q
CARtU)
LC330200
-______
-___ - - -LC 330300-.
CDRI V )
LC330400
LC330500
CWRICARIU)
LC330600
-CWR ( CAR 1 V ) 1
LC330700
-p-w----------------------.NOT THE SAMEtYEXT OBJECT
LC330800
U ) -LC330900__
--CDR(
-- .- .- - -. _ -.-LC331000
I_F YUT Y E T-EB_D_DFNAME. -. _ _ - - _
-L_C33 11 04-

-- \

- --

--

--

--

_ _

----

.-- ----

--

--

..---- --

--

_
.s
I-

- - ---

--

- - --

-----

LC3291 00
--_L432_9-2 0 0 .- -- _LC329300

____

- - - .- --

2W-Q
-_--.-,_--.

AUDKESS PART I S -1
END OF PROPERTY L I S T

YES I T I S

--

.{ .

----

---- - --

. ti

PAGE 78

------ . - -

BIRTHDAY ASSEMBLY

--.

-,

.
!

I-

B
c

"

06501
06502
06503
06504
06505
06506
06507
L6510
06511
06512
06513
06514
06515
06516
06517
06520
06521
06522
06523
06524
06525
06526
06527
06530
06531
06532

3 00000
0500 00
0020 00
3500 00
0074 00
0560 0 0
0074 CO
0131 05
0500 00
0074 00
0131 00
0500 00
0074 00
0560 00
0622 00
0074 0 0
0771 00
0774 00
0 6 2 1 DO
0500 0 0
0774 00
0774 00
0020 00
0500 00
0600 00
0020 00

06533
06534
06535

O 00000 0 00000

06536
06537
06540

r
2

06541
06542

9
, , #

2 06443

0 06537

0
0
4
0
4
0
0
4
0
0
4
0

06525
06533
07343
00370
03730
00000
00504
03730
00000
00460
03730
06540

4
0
4
2
4
0
0

66427
06540
00000
00000
00001
06534
06534
0 06516

0 00000 0 00000
0 00000 0 00177
0 00000 0 00000
0 00000 0 00000
0 00000 0 00000
00504
0 00000 0 00000
0 00000 0 00000

au

06543
06544
06545
06546
06547
06550
06551
06552
06553
06554
06555
06556
06557
06560
06561
06562

20
19

18
17
16
15

14
13
12

11
10

0634
0634
0634
0774
-0534

00
00
00
00
00

0500 00
-0734 00
0734 00
0500 00
0601 00
-3 00000
2 00001
-0634 00
0074 00
0 00000
0 OOOlb

4
2
1
1
4

06617
06616
06615
OOOOb
06533

4 00000
4 00000
2 00000
2 00000
1 07333
4 06566
1 06550
4 01562
4 01222
0 00364
0 06351

3685
3686
3687
3688
3699
3690
3631
3692
3693
3694
3695
3696
3697
3698

3703
3704
3705
3706
3707
3708
3709
3710

TXH
CLA
TR A
OUT
CLA
TSX
L DQ
TSX
XC A
CLA
TSX
XCA
CLA
TSX
INTCN LDQ
ST0
T SX
ARS
UCK AXT
ST A
CLA
I T R X AXT
lTRY
AXT
TRA
INTAD CLA
ST2
TRA

>

--- .

--

-- -- --

-. .

---

OPNA
$CONS94

INTO MQ
ATOM SYMBOL
MAKE I T AN ATOM
L I S T OF ATOMS I N BUCKET
SAVE ATOM AS ANSWER
ATTACH TO BEGINNING OF L I S T
PUT I N ADDRESS
BUCKET NUMBER
PUT I N PROPER BUCJET
ATOM AS ANSkER
RESTORE LINK I R

dDMASK
$CONS,'t
05

05
%ONS 9 4
18
*+,4
BUCKET 9 4
05
*+r4
**12
194
BSRT
BSRT
INTCN

EXIT
PICK UP ATOM
ZERO LOCATION
PLACE ATOM I N BICKET
POINTER TO PNAME L I S T
ATOM ON CNSFWL WENTRANCE
NUMBER OF BUCKETS

3 7 1 1 VALUE
3712
BSWT
3 7 1 3 BUCKNO P Z E
127
3714 *
3715
01
3716 02
3717
05
3718
OPNA
SYN
PNAMED
3719
Q2
3720
Q4
372 1
3722. T
HED
NX494
3 7 2 3 NUTRN SXA
SX A
NX292
3724
3725
SXA
NX1,L
3726
AXT 681
3727
LXD $VALUE94
3728
NAl
CLA 0 9 4
3729
PDX 0 9 4
3730
PAX 0 9 2
3731
CLA 0 9 2
3732
ST0 BUFFER+6r 1
3733
TXL NA2r4r0
3734
T I X NAL*1,1
3735
NE
SXD $ERROR14
3736
TSX UUTPUT94
3737
BCDOUT
3738
ISCELL-159 9 1 4

---

-- - - --

--

----

L_C331PO_O--LC331700

- - 9L30

--

--- -

-.

--------------

4040
LC332200
LC332300
1.5M8180
1.5M8190
1.5M8200
1.5M8210
1 5M8220
1 5M8230
1 5M8240

cI
I

51

F'
8I

61

cz
--

--

l a 8 2 7 0
1 5M8280
1 5M8290
1.5M8300
1-5M8150
1.5M8160
1.5M8170

- .----

------

1.5H8320

---

--

- 1.5M8140
-- --- --

-- -

LC332B!zL..LC332900
-LC333000
- - .LC333200
-L C 3 3 3 3 0 0
LC333400
LC333500

-..-------,----

LC332700

---

--- -

---------

-------

.-

LC331900

-----

-- --

LC331200
LC331300
4020

-----

- ----

I F U9V OF DIFFERENT LENGTHfNEXT

04,290
02
ITRX
$VALUE
bCP1.4
$ZERO
$CONS94

--

--

- -- -- - --

--- .- - - - -

----

SAVE LNDEX REGISYERS

LC333900
LC334000
L C 3 3 4 1 0 0-------___.---LC334200
L C 3 34 30 0 - --- - . - --- - ----- ----LC334400
--- - -LC334500
-- - -- -- ----- -- -- - - - -LC334600

----.--

- --- --

--

--

L.C 3- 3.-4--700
LC334800
L-C334900
LC335000

--- -

--

--

-- - --.
--

- -. -

BONNIE-S

-----

-- -

-- --

~ ~ 3 3 2 1 0 _4

.. .

- - -

.-

--

PAGE 79

BONNIE-S

i)

BIRTHDAY ASSEMBLY

06563
06564
06565
06566
06567
06570
06571
06572
06573
06574
06575
06576
06577
06600
06601
06602
06603
06604
06605
06606
06607
06610
06611
06612
06613
06614
06615
06616
06617
06620
06621

rn

-0754 00 0 00000
0074 00 4 01563
545160600654
0500 Q0 0 00477
0 6 0 1 00 1 07334
0500 00 0 0 6 6 7 1
0074 00 4 06622
OlW-. 00 0 06557
-0120 0 0 0 06612
-0760 00 0 0 0 0 0 1
0020 0 0 0 0 6 6 0 1
0500 00 0 00503
0131 00 0 00000
0070 00 0 06614
0 1 3 1 00 0 00000
0560 00 0 00475
-0120 00 0 06614
0340 00 0 00407
DO20 00 0 06614
0070 OD 0 06614
0 3 6 1 00 0 0 0 5 2 1
0767 00 0 00022
0020 00 0 06615
0500 00 0 00476
0131 0 0 0 00000
0074 0 0 4 17636
0774 00 1 00000
0774 0 0 2 00000
0774 00 4 00000
0010 00 4 0 0 0 0 1
0 00001 O 07325

g
2

"
I

",

rn

,/

06622
0634
06623
0634
06624 0634
06625
0602
06626
0737
06627 -0737
06630 0 7 7 1
06631 0601
06632
0767
06633
0400
06634 0737

00
00
03
00
00
00
00
00
00
00
00

1 07155
2
4
0
2
1

O
0
0
0
4

07156
07157
77665
00000
00000
00021
77666
0OOCl
77666
00000

3739
PXD
010
CLEAR AC
3740
TSX -+1.4
_1l13352h
"
3741
1 , *R
b.*
NUMBER TO0 LARGE I N CONVERSION
BC!
C I A Bl ANKS
3747
NA7
l C 3 . X
6
3743
ST0 BUFFER+7,1
LC335700
3744
CI A
K B P C . L P U B A M E T E R F _ Q R NUMBR
RD.CXDQ3.2'
3745
TSX
$NU IBRc 4
NUMBER TO M Q
RDCX0033
3746
T7
NF U
ERROR
. ..
. .. ... ..
.. .. R.DCX00.34...
. .
3747
TMI
NA7
TRA I F FLOATING NUMBER
RDCX0035
3748
PBT
T FST FOR QZ_71AL!UMBEfl_--- -- -.
.- -. -.
-.
-.- .-- : w
5:
3749
TRA
NA3
TRA I F OCTAL
3750
CL I\
iOCTD
OCTAL SIGNAL F D R d M K N O
3751
XC A
3757
TRA
NA8
I
--"-3 7 5 3 NA3
XCA
NUMBER i 0 A C
1
3754
L DQ
SFIXD
F I X 10 M
L
.:
3755
TMI
NA8
3756
CAS
$810
T_E_IiTT_
E.oR..L_T_@R-U_9TTTTTTTTTT--- __
NA8
3757
TRA
-------3758
TRA
NA8
3759
ACL
SHOOA
FORM PRINT OBJECT
ALS
18
... ..- 3760
3761
TRA
IVX 1
3762
NA7
CLA
FL 0 A n FLOAT SIGNAL FOrl SMKNO
3763
XCA
NUMBER TO AC
3 7 6 4 NA8
TSX
SMKNO 14
MAKE A NUNBER-___-_-----._-.-~----------- RDCX0036
---. ----*---3765
NXL
AXT
**, 1
RESTORE INDEX REGISTERS
3 7 6 6 NX2
AXT
* * 9 -2-- -- --- --- -- --- - .
. - - - . 3767
NX4
AXT
**, 4
3768
194
-- - . - - -RD.CXQ053-_ -TR A
.-3769
KBPOS P Z E
BUFFER, 1
RDCXOO55
3770
,
---1.W.9QO.O_,
- -- - . .- -. - - -.377 1
LC339100
3772 F
tIEU
-.-.
-- - - - - _
--ROCSO010 .
3773
VUHBOOOO
NUMBR CONVERTS PACKED SCD CHARACTERS TO A NOMBER WHICH
NUMBOO0-1_-----3774
3775
APPEARS I N MR.
DBC CONVENTIONS ARE FOLLOWED.
OCTAL
NUMB0002
3776
NUMBERS ARE SIGNALLED BY Q AND M A Y BE FOLLOWED BY A
L4&@m
_--3777
SCALE FACTgR.
NUMB0004
- -.-3778
--- -_NVMB000.5 - .
. .
.
3779
ROUTINE STOLtY FROM UADBCl
NUMB0006
3780
--- - -- - 378 1
3782
NUHBR S X A PXl, 1
SAVE INDEX REG1 STERS
3f83
S X A PX292
.- - - 3784
S X A PX494
--- -- - - -NUMB00
-U--- _- _
3785
SLW T
NUMB0012
3786
PAC 92
I R 2 HAS WORD COUNT
-- -- - ---- ----- - - - NUMB0013
378 1
PDC ,1
I R l WILL GET CHARACTER COUNT
NUMB0014
3788
4RS 17
I
!
L!-&-&&IL-.--3733
ST0 N
NUMB00 1 6
3790
hLS 1
-- -NUMB0017
- - _3791
ADD N
N.-.
llMRnnl R
3732
PAC 14
--- --- .
NUMB0019
- ----

--

--

PAGE 80

(5

'k
f
,,.e
2
1
"A

8
20
19
18

17
16

BOYNIE-S

--

-- 06635
0560 00
06636 -0763 00
06637 - 0 6 0 0 0 0
06640
1 00007

2
4
0
1

00000
77777
77662
06641

06641 -0754 00 0 00000

06642 -0763 0 0 U 00006
06643
0402 0 0 0 00400
06644 0120 00 0 06651
06645
2 00001 1 06641
06646
1 77777 2 06647
06647
0560 0 0 2 00000
06650
1 00005 1 06641
06651 0400 0 0 0 00400
06652
0340 0 0 0 00426
06653
0020 0 0 0 06666
06654 0020 0 0 0 07170
0340 0 0 0 00423
06655
06656 0020 0 0 0 06666
0 6 6 5 7 0 0 2 0 0 0 0 06645
06660
0340 0 0 0 00420
06661 0 0 2 0 0 0 0 06666
06662
0020 0 0 0 06645
06663 0340 00 0 00416
06664
06665
G6666
06667
06670
06671
06672
06673
06674
06675
06676
06677
06700
06701
06702
06703
06704
06705
06706
06707
06710
06711
06712
06713
06714
06715
06716

0020 00 0 06666
0020 0 0 0 06645
0535 0 0
-0535 00
0560 00
-0754 00
0602 00
0602 00
0602 00
-0534 0 0
-0500 00
0630 00
0630 0 0
0630 00
0630 00
0630 00
-0500 00
1 00010
0502 00
0601 00
-0500 0 0
0621 00
0621 00
1 00001
1 77777
0502 00
0601 00

2
1
0
0
0
0
0
4
0
0
0
0
0
0
0
1
0
0
0
0
0
4
4
0

77665
77665
77662
00000
77662
77663
77666
00402
06766
07033
07106
07011
07035
07020
06674
d6720
07035
07035
06743
06760
06763
06760
06743
07011
C 07011

3793
3794
3795
3796
3797
3798
3799
3 8 0 0 CY3
3801
3802
3803
3 8 0 4 CY2
3805
3806
3807
3808
CY4
3P09
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846

- .- - -

.-

..-.

- -

BIRTHDAY ASTEMBLY
LOQ 0,2
LGL - 6 ~ 4
STQ M Q
T X I *+111,7

90
6
QB
CY4
CY311,l
*+lr2,-1
012
CY3,1,5
08
Q
DECNO
OCTNO
MINUS
DECNO
CYZ
PLUS
DECNO
CY2
DASH

TRA DECMO
TRA CY2
DECNO LAC
LDC
LDQ
PXD
BN2
SLW
EX2
SLH
INTN SLW
LXD
CAL
STP
STP
STP
STP
STP
CAL
TXI
PT1
CLS
STO
CAL
STA
STA
TX1
PT3
TXI
EX1
CLS
ST0

T92
T t l
MQ

- - .-

- - -- -- - - - - --- -

NUMB0020
-------- NUMB0021
NUMB0022
_-.
-- - - J u w @ 2 ? .
NUMB0024
CHARACTER APPEkRS--NU-MOO025
NUMB0026

--

LOOK AT CHARACTERS U N T I L A Q OR NON-OCTAL

PX 0
LGL
SUB
TPL
TIX
TXI
LDO
TXI
ADD
CAS
TRA
TRA
CAS
TRA
TRA
CAS
TRA
TRA
CAS

-- - -- --

PUT BCD WORD I N MQ

SHIFT OUT EXTRA CHARACTERS
S A V E FIRST B A T C H OF C H A R A C T E ~ ~

TEST FOR OCTAL DIGIT-

--

GET NEXT CHARACTER

I F Q t NUMBER I S OCTAL
I F CHARACPER I S MINUS, PLUS, OR DASH,
LOOK AT MORE CHARACTERS,
OTHERWISE NUMBER I S DECIMAL
--

---

- -.---

--

- -

__

NUMB0029
NUMB0030
N
NUMB0032
-NUMB0033
NUMB0034
NUMB0035
NUMB0036
NUMB0037
NUMB0038
NUMB0039
NUMB0040
NUMB0041
NUMB0042
NU-MB0043
NUMB0044
NUMB0045

'

____-----

---

.--

-- -----

NUMB0046
NUMB0047
NUMB0048
I R 2 HAS WORD COUNT
--- ----.-NUMB0049
I R L WILL GET CHARACTER C E N T - NUMB0050
RESTORE FIRST GaGUP OF CHARACTERS- - - . . - - _ _ _ _ _NUMB0051
---~.~--_
REG1STERS

--

- --

.
-

-- .-.

- .- .

- -

- .-..-

--

_--__-.-...-

----

SET DECIMAL COUNT TO ZERO

RESET SWITCHES FOR
FIXEC PUINT
X
- -EXP
POINT
DECIMAL NUMBER
I N I T I A L I Z E CONVERSION
F I X I N I T I A L CHARACTER C O ~ N ?
INVERT SWITCH T O SIGNAL DECIMAL PDINT

ROUTINE T O COUNT
DECIMAL PLACES
COUNT DECIEAL PLACES
INVERT SWITCH T O SIGNAL EXPONENT

--

----

--

- NUMB0053
-- --

NUMB0054
NUMB0055
NUMB0056
0
2!!k!
057
NUMB0058
NUMB0059
NUMB0060
NUMB0061
NUMB0062

"

10
BN
EXPN
N
81014
SWl
CM2
CM6
EXS
CM3
CX3
INTN
BN3p118
CM3
CM3
CV3
CV5
CV6
CV5,4,1
CV314,-1
EXS
EXS

P
5

- -- - .-

---

-- .--- -

--

NUMB0063_"
NUMB0064
NUMBOOb5__---__~NUMB0066
NUMB0067
NUMB0068
-- -- ----- NUMB0069
-- --. --..
NUMB0070
NUMB0071
~ ~ ~ 0 0 0 7 2
-.--- YUMB00131- - _ -

- -------

----A___---

--

PAGE 8 1
06717 -0500 00 0
nh77Cl 0671 0 0 0
06721 0621 00 o
06777
0671 00 O
06723 -0500 00 0
06774
0671 0 0 0
06725
0621 00 0
0 6 7 7 6 -05OQ_Lm 0
06727
0612 00 0
06730
0140 00 0
06731 -3 00000 0
06737
0500 00 0
06733
0630 00 0
06734
0630 00 0
06735 -0500 00 0
0 6 7 3 6 -3 0 0 0 0 0 0
06737
0500 00 0
06740 0601 60 0
06741 -0500 00 0
C6742 -3 4 0 2 0 0 0
06743 -0754 00 0
06744 -0763 0 0 0
06745
0340 00 0
C6746 -3 0 0 0 0 0 0
0 6 7 4 7 -3 0 0 0 0 0 0
06750
0602 00 0
067'51 0 5 0 0 0 0 0
C6752
0767 0 0 0
06753
0400 00 0
06754 0767 00 0
06755
0400 00 0
C6756
0140 00 0
06757
0601 00 0
06760
2 00001 1
06761
1 77777 2
C6762
0560 00 2
06763
1 00005 1
06764
1 00001 4
06765
0340 00 0
06766 -3 00000 0
06767 -3 00000 0
06770
0340 00 0
06771 -3 00000 0
C6772 -3 0 0 0 0 0 0
06773
0340 00 0
06774 -3 00000 0
06775 - 3 30000 0
06776
0340 00 0
06777 -3 00000 0
07000 - 3 00000 0
07001 0340 00 0
0 7 0 0 2 -3 0 0 0 0 0 0
07003 -3 00000 0
07004 0340 00 0

BONNIE-S
06673
Oh751
06753
06757
06714
06760
06763
06753
06755
06760
06760
07033
07033
07106
05672
06770
00455
06751
06742
06727
06714
00006
00402
06765
07007
77664
77666
00002
77666
00001
77664
06764
77666
06743
06762
00000
06743
06760
00423
07007
06737
00422
07007
06706
00410
07007
06715
00421
07007
06732
00420
07007
06726
00416

BIRTHOAY ASSEMBLY

-,

--

--- - -- - ---3847
CAL EX2
SET UP EXPONENT CONVERSION
NUMB0074
1 8 4 8 RN3
STACY7
STmFCONVEBSJnN
NllMBM 75
.-------__
3849
S T A cve
AOORESS
NUMB0076
3850
STA W 9
---- ---@I
U d B M 7 7 - -- .-_ _
3851
CAL PT3
I N I T I A L CONVERSION
NUMB0078
3853
STA CV5
H IZ W 4 E C l - N I
-- - -- N
UMBD.-- -- - -3853
STA CV6
NUMB0080
1854 P L I
CAI CV8
NUMB0081
--- - -" --- -----.. - ST0 CVlO
NUMB0082
3 8 5 5 MN3
3856
TOY CV5
-- - _ 4 U I f l E D Q 8 3
3857
TXL CV5
NUMB0084
3858 8 N l
CLA CM2
INVERTSHITCHESTOSlGNALFIXEDPOINTNUMBOOB5
3859
STP CMZ
NUMB0086
3860
87
STP CH6
-- -3861
CAL BN2
SET UP 8 CONVERSION
NUMB0088
3862
TXL 3N3
_ b W ! n s e _
- -- - --3863
MN1
CLA P B i T
START NEGATI VE ACCUMULATION W I TH NEG. ZERO
NUMB1000
3864
STO* CV7
-- _ - - 4 U B B 1 9 0 1 - _3865
CAL MN2
OP CODE T O MAKE CVlO A SUB INSTRUCTION
NUMB1002
3 8 6 6 MNZ
TXL MN3.0*258*64
-hlUmI)SeL.--. -- -- ---PT390
3 8 6 7 CV3
PXO
3868
LGL 6
MBQQP3
_
- -- -- 3869
CAS TEN
TEST FOR D I G I T
NUMB0094
3870
TXL CM
- J W ! t & 0 0 9 5-_ - - - _ . -- 3871
TXL CVZ
NUMB0096
3872
SLd CH
PFRFORM CODED
--NUKBM87777. - . ..
-3 5 7 3 CV7
CLA N
MULTIPLICATION
NUMB0098
3874
ALS 3
BY T W N D ADD
NU&!QWQP9
3875
CV8
ADD Y
CURRENT DIG1 T
NUMB0100
3876
ALS 1
_
_ _- NUMBQlOl
--3877
CVlO
ADO CH
NUMB0102
3878
TOV OVF
TEST FOR OVERFLOW
-NLlPZB8Q-103
-- - -.
.
3 8 7 9 CVY
ST? N
NUMB0104
3 8 8 0 CV5
T I X CV3,1,1
COUNT C H A i i A t T Z R L
_-_ -.N_UMBOLO5 . _
3881
T X I CV4,2r-1
OBTAIN YEXT BCD
NUMB0106
3 3 8 2 CV4
LDQ 0.2
&U!6Q LQI--- .
WORD AND RESTORE
3 3 8 3 CV6
T X I CV3,1,5
CHARACTER COUNT
NUMB0108
3 8 8 4 OVF
T X I CV5,4,1
COUNT O f C IMAL OVERFLOWS
NLMUoL_.-_
3885
CM
CAS MINUS
NUMB01 LO
3 8 8 6 SW1
TXL CV2
_ _ _
- _ - _NU_M_BO_Il-l
.
- -3857
TXL MN1
NUMB0112
3888
CAS POINT
-NUMBolJ3- - --- - _ _
3889
1XL CV2
NIJMB0114
3890
-LL--P-J-1
.
- - - NU Kf$aLE-_- -- 3891
C
A
~
NUMB0116
3892
- ~ X LCV2
-----_ - - -- -- - - -NU.&B01_17
--_ -- - 3893
TXL EX1
NUMB0118
3894
CAS B
- - - NUMo
119. -- - - - - - . --- 3895
TXL CV2
NUMB0120
3896
TXL BN1
NUMB0 1 2 1
3897
CAS PLUS
NUMB0122
3898
TXL CV2
--- . - -- - - - .- - -- -- -NUMB0123--_
_
3899
TXL PL1
NUMB0124
3900
C A S DASH
DASH TREATED L I K E MINUS
___
- NUMB0125

---

--

U s

-PAGE 8 2

BONNIE-S

--

.--.

---

--

07005
0 0 2 0 OG 0
07006
0020 00 0
07007 0500 00 0
C7010 0100 0 0 0
07011 -3 00000 0
07012 -0500 0 0 0
07013
0400 00 0
07014
0767 00 0
07015
0622 00 0
07016
0500 00 0
07017
1 00000 4
C 7 0 2 0 -3 0 0 0 0 0 0
07021 0500
07022
0767
07023
0400
07024 0621
07025
0500
07026 0767
07027 -0760
07030
0020
07031 -0760
07032
0020
07033
07034
07035
07036
07037
07040
07041
07042
07043
07044
07045
07046
07047
07050
07051
07052
07053
07054
07055
07056
07057
07060
07061
07062
07063
07064
07065
07066
07067
07070

00
00
00
00
00
00
00
00
00
00

-3 0 0 0 0 0
-3 0 0 0 0 0
-3 00000
0621 00
0771 00
-0501 0 0
0300 0 0
0120 00
0302 00
-3 00000
0300 0 0
-0600 0 0
-3 0 0 0 0 0
3 00046
0634 00
-0774 0 0
0601 00
0560 00
0260 0 0
0601 00
-0600 0 0
0560 00
0260 0 0
0300 0 0
0300 00
0361 00
-0760 0 0
-3 00000
-0754 0 0
0020 0 0

07007
06737
77666
07161
07020
00455
77663
00022
07017
77666
07036
07033

77662
UOOOl
77662
07026
77666
00000
00001
0 07126
0 00003
0 07126
0
0
0
0
0
0
0

0
0
0
0
0
0
0
0
0
0
0
0
4
4
4
4
0
4
0
0
0
4
0
0
0
0
0
0
0
0

07035
07036
07126
07243
00017
07244
0724Lt
07045
07243
07046
07243
77670
07106
07071
07052
00000
77667
07244
77667
77665
77666
07244
77670
77666
77665
07241
00001
07106
00000
07155

3901
3902
3903
CV2
3904
3 9 0 5 EXS
3906
3907
3908
3909
3910
3 9 1 1 CM4
3912
CX3
3913
3914
3915
3916
3917
3918
3 9 1 9 CX5
3920
3921
3922
3923
3924
3925
CMZ
3926
3 9 2 7 CM3
3928
CM5
3929
3930
3931
3932
3933
3934
3935
CMFl
3 9 3 6 CMF2
3937
3938
SW2
3939
3940
3941
3942
3943
3944
3945
3946
3947
3748
3949
3950
3951
3952
3 9 5 3 CM8
3954

TRA
TRA
CLA
TZE
TXL
CAL
ADD
ALS
iTD
CLA
TXI
TXL

CV2
MN1
N
ST2
SEE I F ZERO F I X E D OR F L O A T I N G
CX3
SWITCH - TXH I N D I C A T E S EXPONENT
PBIT
PREPARE TRUE
EXPN
DECIMAL EXPONENT
18
-----"
- --CM4
N
CM5r410
CM2
SWITCH
TXH I N D I C A T E S OCTAL
SCALE OCTAL NUMBER
BN
M U L T I P L Y SCALE FACTOR BY 3
1
FOR NUMBER OF S H I F T S NEEDED
BN
CX5
N

--

--

- - - - --

NUMB0126
NUfiBOl27
NUMB0128
NU MB0 1 2 9
NUMB0130
---- -- - -NUMB0131
NUMB0 1 3 2
NUM-B0 1 3 3
NUMB0134

--

- -- -- -

-------- - -- -

- .- -- -

- - --

'

CLA
ALS
ADD
STA
CLA
ALS **
PBT
TRA ISTOR
SSM
TRA ISTOR
TXL
TXL
TXL
STA
ARS
ORA
FAD
TPL
FSD
TXL
FAU
STQ
TXL
TXH
$XA
AXC
ST0
LOQ
FMP
ST0
STQ
LDQ
FMP
FAD
FAD
ACL
PET
TXL
PXD
TRA

- - -- - -

BIRTHDAY ASSEMBLY

CM3
CM5
ISTOR
FLl
15
FL2
FLZ
CMFl
FL1
CMF2
FL1
RESID
CM69410
CM714130
*+1,4
*+94
DATUM
ONE94
DATUM
T
T+1
ONE14
RESID
T+l
T
EXCl

NU MBO 1 3 7
NUMB01 3 8
NUMB0139
NUMB0140
NUMB0141
NUMB0142
NUMB0143
NUMB0144
ALLOW FOR P B I T
NUMB0 1 4 5
NUMB0 1 4 6
NUMB0147
NUMB0148
NUMB0149
SWITCH - INVERTED TO TXH I N D I C A T E S F I X E D POINTNUMB0150
NUMB0151
SWITCH - TXH I N D I C A T E S P O I N T
NUMB0152
NUMB0153
3 5 B I T INTEGER
NUMB0154
-- - -- - --- - - NUMB01 5 5
NUMB0156
--NU MBO 1 5 7
NUMB0158
NUMB0159
--NUMB0160
- NUMB0161

TEST FOR NEGATIVE EXP

- ----COMPUTE ABSOLUTE VALUE OF EXPONENT
----

PX1

--

NUMBER OUT OF RANGE,

<

-.---

A
=
--

--- -- --

- - -- --

--

---

---- -

______---.---- -

NUMB0168

---

NUMB0163
NUMB0164
NUMB0165
-NUMB0166

---

w!!S!~-- _- _ -

COMPUTE F L O A T I N G
BINARY REPRESENTATION
OF INTEGER T I M E S THE
POWER OF TEN G I V E N
BY THE TRUE EXPONENT

CM6
7

--

-- - -

E X I T WITH 0 I N AC

.-

NUMB0170
NUMB0171
-- -NUMB0172
NUMB0 1 7 3 NUMB0174
-NUMB0175
--NUMB0176
- N-UM
-----BOl77- -

NUMB0179

----

-- - --- - --

-_---

____

-_

-_

PAGE 83
07071
07077
07073
(37074
07075
07076
07077
07100
07101
071Q7
07i03
07104
07105
07106
07107
07110
07111
07112
07113
07114
07115
07116
07117
07120
07121
07122
07123
07124
07125
07126
07127
07130
07131
07132
07133
07134
07135
07136
07137
07140
07141
07142
07143

BONNIE-S
-3 77717 4
0 l h l 00 0
0 2 4 1 00 4
- 0600 00 0
0300 00 0
0 7 4 1 00 -4
0 1 6 1 00 0
- 0600 00 0
0500 00 0
0300 00 0
0361 00 0
-0760 00 0
-3 00000 0
3 00000 0
0 6 0 1 00 0
0767 0 0 0
-0760 00 0
0 7 7 1 00 0
0400 00 0
0400 00 0
0120 00 0
-0100 00 0
0621 00 0
0500 00 0
0763 00 0
0767 0 0 0
0 7 7 1 00 0
0763 00 0
b765 00 0
0131 00 0
-0500 0 0 0
0020 00 0
0131 0 0 0
0500 00 0
0630 00 0
2 00001 1
1 77777 2
0774 00 1
-0754 00 1
0402 00 0
0602 00 0
-0500 00 0
-0320 00 0

07146 0630 00
07147
0634 00
07150 -0774 0 0
0 7 1 5 1 0754 00
07152
0 3 6 1 00
07153 - 3 00000
07154 -0760 00
07155
0774 00
07156 0774 00

O
2
2
2
0
0
0
1
2

BIRTHDAY ASSEMBLY

07067
07077
07244
77665
77670
07244
07067
77666
77666
77665
07242
00001
07067
07131
77665
00007
00003
00035
00415
77667
07117
07067
07125
77665
00010
00002
00017
00010
00000
00000
06766
07133
00000
06766
07153
07137
07136
00006
00000
00446
77665
07020
00455

3957
1958
3959
3940
3961
3~62
3963
3964
3965
3966
3967
3 9 6 8 CM6
3969
3970
3971
3972
3973
3974
3975
3976
3977 SHIFT
3978
3979
3980
3981
3982
3983 CM12
ISTOR
3984
3985
ISTOl
3986
3987 FSTOR
3988
3989 XT3
3990
3991
3992
3993 XT2
3994
3995
3996
3997

FOP ONE14
STQ T
FAD RES I D
F D P ONF.4
TQO CM8
ST0 T + l
CLA T+1
FAD T
ACL EXC2
PB1
TXL CM8
T X I FSTOR
ST0 T
ALS 2
SSM
ARS 29
ADD Q128
ADD BN
TPL SHIFT
TNZ CM8
STA CM12
CLA T
LLS 8
ALS 2
ARS 10
LLS 8
LRS
*
XCA
CAL SW1
TRA XT3
XCA
CLA SW1
STP X T l
T I X XT211,l
T X I *+1,2r-1
A X T 691
PXD r l
SUB QD7
SLW T
CAL CX3
ANA SSBIT

77665
07150
00000
00000
77665
07155
00003
00000
00000

4000
4001
4002
4003
4004
4005
4006
4007
4008

STP
SXA
AXC
PXA
ACL
TXL
SSM
AXT
AXT

3955

CM7

TXL CM894,-49

395h

CM13

T(JI1 =3+1

XTl
PXl
PX2

T
*+112
**,2
~2
T
*+2
~1
12

TEST FOR ILLEGAL EXP

NUMB0180

hLU~~lBl---------.-----COMPUTE FLOATING

NUMB0 1 8 2

UNARY F Q U I L V L E N L OF INTEGER TIMES

POWFR OF SFN GIVFN
BY T'RUF

---NUMBDL83

-_

-_-

E.XfQJYW

..

---

'

-_

SWITCH

NUMB0184
2 U M E O B
NUMB0186

-- ____

NUMB0190
--NI)MBD191-NUMB0192

d
-

TXH I N D I W J X J I N T

NUMB0194
N U M B 0 1 5 2 2
NUMB0196

DETERMINE SHIFT
NFCESSARY TO POSITION
NUMBER AS INDICATED
RY B

NUMB0198

a
--______--.---

NUMB0200
-N_UMBQZQl---.-NUMB0202
_ ___ NUMB0703
-NUMB0204

--

REMOVE CttARACTERI S T I C S
FROM FLOATIUG NUMBER

- _ _

--

---

N - L ! H P L Q . Z - ~ ~ --... . ---.
-- -

RESULT TO MU
-____ SET FIXED POINT INDICATOR SWITCH
,--

-_

-- .

NUMB0206
.
-NUN802LX7 -

__

__-- -N!JMB02.09

-- - -

NUMB0210

____-_------.-.- ~iumoau

----

.- .-.-

-._-

NUMB02 1 2
___ - _. ._-NUMB02 1 3
NUMB0214
I F NO SIGNIF ICANT-CHARACTERS
-- _N_UMB0aL53
LEFT I N WORD* MOVE TO
NEXT WORD
NUMB0216
A m B 9 U_ _ _ _ - - - SET POSITION INDICATORS
NUMB0218
- - -- - ---- -- - - -- NUMB0219
.-_
NUMB0220
P B I T I N OUTPLLTXO_ICAI_E_S__OCT.AL
- - --

- -.--.

RESULT T O t.lQ
S E T FL 0 AT IN-DJCATOKSWITL! - - -

__-

.-

-.-

SET SIGV + FOR FIXED*

FUR FLOATING
RESTORE I N D E X REGISTERS

-.-.

.~

_ .

..

- --.
... ..

NUMB0221
.- NUMB0222
.
.
NUMB0223
NUMB0224
NUMB0225
NUMBO.226
NUMB0227
...-. . NUM!302.2_8.

------ -_-

-.~.-

- -

. .

--

..

~ . ~ -

--

. .. . .~
.. . .-

P A G E 84

BONNIE-s

07157
07160

0774 00 4 00000
0020 0 0 4 O O O O l

07161
07162
07163
07164
07165
07166
07167

0560
0162
0560
0162
0560
0162
0020

07170
07171
07172
07173
07174
07175
07176
07177
07200
07201
07202
07203
07204
07205
07206
07207
07210
07211
07212
07213
07214
07215
07216
07217
07220
07221
07222
07223
07224
07225
07226
07227
07230
07231
C7232
07233
07234

00
00
00
00
00
00
00

0535 0 0
-0535 00
0560 00
-0754 0 0
0621 00
1 00010
-0754 00
-0763 0 0
-0100 00
0500 00
-0763 00
0 6 0 1 00
-0602 00
2 00001
1 77777
0560 0 0
1 00005
-0763 0 0
0340 0 0
0020 00
0020 0 0
0340 00
-3 00000
-3 00000
0340 00
-3 00000
-3 00000
0340 00
-3 00000
-3 00000
0560 00
1 00000
0500 00
- 3 00000
0500 00
0630 00
0600 0 0

0
0
0
0
0
0
0

07033
07126
07035
07131
07011
07131
07126

2 77665
1 77665
0 77667
0 00000
0 06751
1 07203
0 00000
0 00003
0 07211
0 77666
0 00003
0 77666
0 77666
1 07176
2 07207
2 00000
1 07176
0 00007
0 00426
0 07226
0 07232
0 00423
0 07226
0 07230
0 00420
0 07226
0 07205
0 00416
0 07226
0 07230
0 77666
0 07127
0 00455
0 07203
0 07020
IJ 07020
0 77667

BIRTHDAY

4009
PX4
4010
4011
4012
40 1 3
4014
4015
4016 STZ
4017
4018
4019
4020
4021
4022
4023
4024
402 5
4 0 2 6 OCTNO
4027
4028
4029
4030
4031
4032 O C T l
4033
4034
4035
4036
4 0 3 7 OCT9
4038
4039
OCT6
4040
4 0 4 1 OCTZ
4042
4043
OCTB
4044
4045
4046
4047
4048
4049
4050
4051
4052
4053
4054
4055
4056
OCT3
4057
4058 OCr5
4059
4060
OCTlO
4061
4062

----

AZZZ~GLY

--

AXT 14
TRA 1,4

--

---

-- - - - -

-- - ---

- ---

- --- --

-- -

-.

--- -

-- --

- --

- -- ---- ---

NUMB0229
EXIT
NUMB0230
NUMB0231
WE GET HERE I F NUMBER I S E_RO:-N U M B O ~ ~ - ~ -- -- - -WE HERE DECIDE WHETHER WE ARE FACED WITH A FIXED OK FLOATING NUMB0233
ZERO.
NUMB0234
-.
------ - NUMB0235
LDQ CM2
*JXH-!+)- I F B
NUMB0236
TQP I S T O R
NUMB0237
I F DECIMAL POINT FOUND
NUMB0238
LDQ CM3
TXH (+I
TQP FSTOR
NUMB0239
LDQ EXS
TXH I + ) I F E FOUNDNUMB0240
TQP FSTOR
NUMB0241
NUMB0242
TRA ISTOR
NUMB0246
PROCESS OCTAL NUMBER
NUMB0247
NUMB0248
LAC T92
IR2 HAS WORD COUNT
NUMB0249
LDC T,1
I R 1 WILL GET CHARACTER COUNT
NUMB0250
LDQ MQ
RESTORE FIRST GROUP OF CHARACTERS
NUMB0251
PXD
10
NUM H 2 5 3
-- - _ - -__
STA CV7
SET SIGNAL FOR OCTAL NUMBER
T X I OCT9,1,8
F I X CHARACTER COUNT
NUMB0254
PXD
10
LGL 3
NUMB02 56
NUMB0257
-------.
TNZ OCT8
CLA N
NUMB0258
LGL 3
NUMB0259
ST0 N
A L L O W FOR B O T H P BIT ANGINUS
SIGN
NUMB0260
URS N
-- - -NUMBO2bL----_T I X OCT1,ltl
NUMB0262
T X I OCT2,2,-1
---NUMB0263--_-.----LDQ 012
NEW PACKED WORD
NUMB0264
T X I OCT11115
NUMB0265
- LGL 3
NUMB0266
CAS Q
TEST FOR OCTAL SCALE FACJgR --NUMB0267
TRA OCT3
NUMB0268
TR4 O C T l O
NUMB0269
C A S MINUS
NUMB0270
TXL OCT3
- -NUMB0271
TXL OCT5
NUMB0272
C A S PLUS
NUMB0273
TXL OCT3
NUMB0274
TXL OCT6
--NUMB0275 ----C A S DASH
DASH TREATtD L I K E
NUMB0276
TXL OCT3
-NUMB0277
-- -TXL OCT5
NUMB0278
LOQ N
NUMB0279
----T X I ISTOl
' NUMB0280
CLA PBIT
SET NEGATIVE SIGN
----N U W 0 2 E---------. - ,. - - --TXL OCT9
NUMB0282
CLA CX3
SET SWITCH FOR OCTAL SCALE FACTOR----NUMB0283 - _
.-STP CX3
NUMB0284
ST2 8N
CLEAR SCALE FACTOR CELL
-NUMB0285
-_

--

--

----

--

----

- --

- -- -

--------.- -

- --

-a

"

- --

---PAGE 85

RONNIE-S

07235 -0500
07736
063L
07237 -0500
07740
0070

00
00
00
00

--

--

----

- - -- -- -

- --- - --

SET EXPONENT SWITCH TO OFF

0 06766
0 0701 1
0 06672
0 06770

4063
4064
4065
4066
4067

00400
00402
00415
00446
00455
00427

4070
4071
4073
4073
4074
4075

CR

5YN %OR

010
0128
QD7
PRTT
BLANK

SYN
SYN
SYN
S W
SYN

07241
07242
07243
G7244
07245

00422
00410
00421
00426
00420
00416
+043000000000
+335000000000
+233000000000
+252000000000
+141500000000

4077
4078
4079
4080
4081
4087
4083
4084
4085
4086
4087

POINT SYN $ 8 0 3 3
E
SYN $ 0 0 7 5
B
SYN $ 4 0 2 2
Q
SYN $ 0 0 5 0
---PtUS SYN $ 4 0 2 0
DASH SYN $ 8 0 1 4
E X C l DEC 3 5 0 8
CHARACTER I S T I C = 3 5
NUMB0306
EXCZ
DEC 2 7 1 8 8
CHAR .=COMPL.
35
.
-N-WcUOL
FLl
DEC 1 5 5 8 8
NUMB0308
F12
DEC 1 7 0 8 8
--NLIMEQU%
OCT 141500000000~144620000000,147764000000~153470400000
NUMB0310

07247
07250
07251
5
7
07253

+147764000000
+153470400000
+156606500000
+161750220000
+165461132000

40 R 8

07270 +240532743536
0727 1 +243661534466

GAL
TTP
GAL
TRA

SW1
FXS

BN2
BN3

SET UP
--

-N

Q CONVERSION
-_

----

--

- ---

NUMB0286
8 L _ _
NUMB0288
- -- N U M W---NUMB0290

--

-- .-

.-

OCT

-_

--

--

-- - -- -

SQ10

-_

--

NUMB0294

--

$28

----

SQD7

--

$ S I T

$8060

1 5 6 6 U 6 5 0 0 0 0 0 r 161750220000,165461132000~ 1 7 0 5 7 5 3 6 0 4 0 0

-- -- . --

---- -----

.--

OCT 243661534466,247417031702,252522640262~ 255647410336

--

_.

.-

- - .- ---

--

NUMB0311

------

4092

BIRTHDAY ASSEMBLY

--

--

. - -.
-

-- - --- - - ---

.-

- -

--

. --

NUMB03 15

-.
-

- .. -

OCT 2 6 1 4 1 0 5 4 5 2 1 3 ~ 2 6 4 5 1 2 6 7 6 4 5 6 ~ 2 6 7 6 3 5 4 5 6 1 7 1 ~ 2 7 3 4 0 2 3 7 4 7 1 4

07300 +273402374 714

07301 +276503074077
07302 +301623713116

.-

4094

OCT 2 7 6 5 0 3 0 7 4 0 7 7 9 3 0 1 6 2 3 7 1 3 1 1 6 , 3 0 4 7 7 0 6 7 5 7 4 2 , 3 1 0 4 7 3 4 2 6 5 5 5

.... --....

NUMB0317
.. -.

..

PAGE 86

BONNIE-S

----- - --- - - - -

BIRTHDAY ASSEMBLY

-07303
07304
07305
07306
07307
07310
C7311
07312
07313
07314
07315
07316
07317
07320
07321
07322
07323
07324

+304770675742
+310473426555
+313612334311
+316755023373
i322464114135
+325601137164
+330741367021
+334454732313
i337570120775
+342726145174
+346445677216
+351557257061
+354713132676
+360436770626
+363546566774
+366700324573
+372430204755
+375536246150
00402
07244

07325
77662
77662
77662
77663
77664
77665
77665
77666
77667
77670
07325
G7325

07343
07344
07345
07346
07347
07350
37351
07352
07353
07354
07355
07356

0100 00
- 0 6 3 4 00
-0734 00
0500 00
0601 00
0734 00
0 5 0 0 00
0074 00
0074 00
-3 03364
0601 00
-0534 00

4
4
4
4
0
4
4
4
4
0

00001
03361
00000
00000
03363
00000
00000
03710
02312
02377
0 03362
4 03363

.-

-- .-

- -

-- --

-- ..-- - -

-.
-. .

-- --

4095

OCT 313612334311,316755023373,

-. .
.-

-- --

--

OCT 330741367021,334454732313,

- . -.-. - -- - .-..- .- .- .......- --..- .-. ...

-- .

337570120775,342726145174
.

4097

- -.- -.

-.

---.

4096

NUMB0318

- - .-...-..-.- ..----.---.---- .- - --- -

-- -

..------

322464114135,325601137164

-.-

-- - -

NUMB0319

-- ..

OCT 3464456772169 351557257061, 3547131326761360436770626

NUMB0320

<.

+
b

409 8

4099
TEN
4 1 0 0 ONE
4 1 0 1 REORG
4102
4103
BN
4 1 0 4 ' MQ
4105
EXPN
4106 CH
4 1 0 7 CHD
4108 T
4109 N
4110
DATUM
4 1 1 1 RESID
4112
4113 BUFFER
4114
4115
4116 R
4117
4118
4119
4120
4121
4122 C
4123 CPL
4124
4125
4126
4127
4128
4129
4130
4131
4132
4133
4134

OCT 3635465667741 3667003245739 3 7 2 4 3 0 2 0 4 7 5 5 r 3 7 5 5 3 6 2 4 6 1 5 0

NUMB0321

SYN
SYN
BSS
ORG
~ S
SYN
BSS
BSS
BSS
SYN
BSS

QlO
FL2
0
COMMON
S
1
BN
1
1
1
CHD
1
ess i
BSS 1
ORG REORG
BSS 14

--

--

-.-

RESTORE ORIGIN

--

tfE D

-.-

--

FUNCTION C P l
----C P l ( L ) = ( L = O YIELDS 0,
OTHERWI SE CONS ( CONSW ICWR ( CAR (CI!!_) l

HED

--

-----.---

-.

' .

-.-.--

--

- -.
.-

CWRIL)
CAR(L1
CWR(CAR(L))

----st+vtz

2 I?
?
!

LOR( L 1

--

..

__

. .

..

--

-..

_
L
.
_
%
-

- .-.-

--

- --

194
C8194
94
(4
CURL
14
14
bCONSW94
bSAVE.4
SENU2,,CR2+2
-CR2
Cb!RL,4

NUMB0322
NUMB0323
NUMB0324
-. NUMB0325
--.NUMB0326
NUMB0327
NUMB0328
NUMB0329
NUMB0330
NUMB0331
NUMB0332
YUMBO333
--- - .NUMB0334
NUMB0335
LC359300
LC359400
LC359500
LC366700
LC371500
LC371600
LC371700
LC371800
L
LC371900
LC372000
-.
LC372100
LC372200
LC372300
LC372400
LC372500
LC372600
LC372700
Lc372800
LC372900

----_ - - -

TZE
SXD
PDX
CLA
ST0
PAX
CLA
TSX
TSX
TXL
ST(]
LXD

.
_.__.lll.

. ...

----.--

_
..- -.-

.. .

:.
-.

___.-"-..--.a,--"---- .

---

-.

.-_LC_373200-_- -_

-.

-.
. -. .

.-

--

.~

PAGE 87

--- -- - --

07357 -0754
073AO 0074
07361 0601
07167
0560
07363 0500
07164 0074
07365 -0534
073hh 0070

07367
07370
07371
07372
07373
07374
07375
07376
07377
07400
07401
07402
07403
07404
07405
07406
07407
07410
07411
07412
07413
07414
07415
07416
07417
07420
07421
07422
07423
07424
07425
07426
07427
07430
07431
07432

--

~--

.~
~

BONNIE-S BIRTHDAY ASSEMBLY

00
00
00
00
00
0n
00
00

0 6 0 1 00
0600 00
0500 00
-0634 00
0601 00
0560 00
0074 00
-0100 00
-0534 00
0500 00
0734 00
0500 00
3 77776
0074 00
-3 03476
0622 00
-0734 00
0500 00
-0734 00
0634 00
0734 OU
-0754 00
0074 00
0534 00
0771 00
0621 00
-0754 00
0074 00
-0534 00
0622 00
0500 00
0402 00
O l U O 00
-0534 00
3 00000
0074 00

4
4
0
0
0

00000
07343
03363
03363
03362
4 07376
4 03361
0 03730

0
0
0
4
0
0
4
0
4
4
4
0
4
4
0
0
4
4

4
4
4
4
4
4
0
0
4
4
4
0
4
0
0
4
4
4

03475
03476
03321
03473
03477
03476
04461
07443
03477
00000
00000
03477
07441
02312
02377
03474
00000
00000
00000
03474
00000
0000_0
07372
03474
00022
03474
00000
07372
03474
03474
00000
03474
07437
03751
07433
04037

4135
41 7h
4137
41 3 8
4139
41 40
4141
41 4 7
4143
4144
4145

PXD 14
T S X CP1 a4
ST0 CWRL
1 DQ CWRl
CLA CR2
TZX UbLSAVF.4
LXD CR114
TRA Z(;ahlS

4147
4148
4149
41 50
4151
4157 R
HFD
4153
SUBST ST0
4154
STQ
4155
CLA
4156
SUB1 SXD
ST0
4157
4158
LOO
4159
TSX
4160
TNZ
4161
LXD
4162
C LA
4163
PAX
CL A
4164
4165
TXH
4166
TSX
4167
TXL
4168
Sl D
4169
PDX
4170
C LA
4171
POX
4172
SXA
4173
PAX
4174
PXI)
4175
TSX
4176
LXA
4177
ARS
4178
S TA
4179
PXD
4180
TSX
4181
LXD
4182
STD
4183
CLA
4184
SlJB
4185
TZE
4186
LXD
4187
TXH
4168
TSX

--- - ----

I N DEC

- -

--- - ---

--

--

LC373300

2 1 1 3U

- ----

LC373500

- -

U131l6Q.O

C IMQj=CPlfCIIRIII)_--

LC373700

LC3Z18nL
-

-----

--

SUBS T

--

---LC3_Z44M-

--

LC374700
lt 3 7
LC374900

( M = 0 YIELDS 01

LC374000
LC374L00
LC552700

COPYIL).
1
CAR(Ml=-1 YlELDS M
LC375100
1 YIELDS C O N S l S U B S T i U C A R I M ) l r S V B S L V I Y Z R . L & L ) _ ~ . I - ~ ~ ~ ~ ~ ~ Z ~ ( L
LC375300
-- ----

'

--

SX
SY
4ARG3
SXT 14
--.
- .- ST
SY
-$EQUAL 4
SUB4
.------- - ---.-- -.-ST14
014
- - -- - - - -. -- .
- - -014
ST
--- - .-A- . - -- - .- - --- .
.-.. .
SUB2 141-2
B S A V E 14
"--- " -.--- - ---..-.
-"
SEND2 t t SZ+2
SL
____
-- -- -- -- --.
.
- 0 14
3,4
---- -- -- -- -- -- -0.4
SZ94
6,4
014
-- - - --- -.. -- .
. . -.. SUBLt4
SZ1 4
--.
--- - - 18
SZ
--------"- -- - --- .. - - -0 4
~ ~ 0 1 ~ 4
--- -- - --- -.--. ..
5214
SL
-- - - -.
- --- - -0 14
SZ
-"- -- - - .-SUB3
$FREE, 4
- -- --- - --. - -.
++2*4.0
hFRUUT9 4
-- --- - - -- -- -.
- - - - .- ---

--r--

?-

--

'

-PAGE 88

BONNIE-S

-----

07433 0500
07434 0622
07435 0500
07436 0 6 0 1
07437 -0754
07440 0 0 7 4
0 7 4 4 1 -0534
07442 0020
07443 0500
07444 0020

07445
07446
07447
07450
07451
07452
07453
07454
07455
07456
07457
07460
C7461
07462
07463
07464
C7465
07466
07467
07470
07471
07472
07473
07474
07475
07476
07477
07500
07501
07502
07503
07504
07505
07506
07507
07510
07511
07512
07513
07514

00
00
00
00
00
00
00
00
00
00

-0600 00
-0100 0 0
0500 0 0
0020 00
0601 00
0500 0 0
-0100 0 0
0020 0 0
-0634 0 0
0500 00
0601 00
0500 00
0 6 0 1 00
0560 00
0500 0 0
0020 0 0
-3 00000
-3 00000
-3 00000
-0534 0 0
05UO 0 0
0734 00
-3 77776
0500 00
-0534 00
0020 0 0
0074 0 0
-3 0 3 4 7 1
0622 0 0
0734 0 0
-0634 00
0560 00
0500 00
0074 0 0
0 6 0 1 00
0560 00
0500 00
0074 00
0560 0 0
0074 00

4
0
0
4
4
4
4
4

00000
03751
03474
00000
00000
02326
03473
00001
G 03475
0 07441

0
0
0
4
0
0
0
4
4
0
0
0
0
0
0
0
0
0
0
4
4
4
4
0
4
4
4
0
0
4
4
0
0
4
0
0
0
4
0
4

03472
07451
03472
00001
03471
03472
07455
00001
03464
07465
03322
07466
03321
07467
03471
04400
07470
07535
07520
03472
00000
00000
07477
03472
03464
00001
02312
02373
03465
00000
03466
03465
03471
07445
03467
03466
03471
07445
03467
03730

---- - .

--

-- -

-.
..
-

..

---

-.

BIRTHDAY ASSEMBLY

4189
4190
4191
4192
4193
SU83
4194
4195
SUB2
4196
4197
SUB4
4198
4199 8
4200
4201
4202
4203 SUELIZ
4204
4205
4206
4207
SUl
4208
4209
4210
4 2 1 1 SU2
4212
4213
4214
4215
4216
4217
4218
4219
F
4220
4271
4222 NF
4223
4224
4225
4226
4227
4228
4229
SU3
4230
4231
4232
4233
4234
4235
4236
4237
4238
4239
4240
4241
4242

CLA
STD
CLA
ST0 PXD
TSX
LXD
TRn
CLA
T RA
.
HED

0.4
%FREE
SZ
094
014
UNSAVE, 4
SXTp4
1 ~ 4 -SX
SUB2

-- - -

-----

- --

- -

-- - -

- - -- --- --

-- - - .--

"----a-

- -

- - .- -- - -

- -

- --- -

-LI

LC380500
LC380600
LC380700
LC381100
--LC381200
LC381300
LC381400
LC381500
LC381600
LC381700
LC381800
LC381900
LC382000
LC382100
LC382200
LC382300
LC382400
LC382500
LC382600
LC382700 ---- - -.
LC382800
LC382900
LC383000
LC383100
-LC383200
LC383300
-- --- -- -LC383400
LC383500
--LC383600
--LC383700
---- LC383800

E
--

SU1
114
P
E
SU2
1.4
X1.4
F
ZARG4
F+1
SARG3
F+2
P
SEARCH
NF, 10
NFl r r 0
NF29 90
E14
14
14
SU314r-2
E
Xl, 4
114
$SAVE14
SEND47, X4+2
X2
14
X3.4
X2
P
SUBLISv4
X4
X3
P
SUBLIS,4
X4
$CONS14

-- - -

-- ---- -- - - - - --

___--

-- -

----

FUNCTION SUBLIS
STQ
TNZ
CLA
TRA
ST0
CLA
TNZ
TRA
SXD
CLA
ST0
CLA
ST0
LDB
CLA
TRA
TXL
TXL
TXL
LXD
CLA
PAX
TXL
CLA
LXD
TRA
TSX
TXL
STD
PAX
SXD
LDQ
CLA
TSX
ST0
LDQ
CLA
TSX
LDO
TSX

---

P
A
-

P=O

--

E=O
U
U
F
F
P

--

---

U
F

----- -.-- - .-

P
U
CAR(EI
E IS NOT AN

- --

OBJECT
-

- -

SAVE 4 I T E ! L

-----

----_-

LC384000

---

--- LC384100

CAR[ E l
- --

---

SUBLIS(P,CDR(EII

----

.-----

---

LC384200
LC384300
-- ----- - LC384400
LC384500
LC384600
LC38470&-- LC384800
LC384900
~~385000
LC385100
-------- -

- -

----

4
Y

1.

PAGE 89

BONNIE-S

- --07515 0074 00 4 02326

n 7 5 i h 0 7 3 4 no 4 0 3 4 ~ 4
07517 0020 0 0 4 0 0 0 0 1
07530 - Oh44 00 4 07537
0 7 5 2 1 -0734 0 0 4 00000
07577 0500 0 0 4 00000
07523 0734 0 0 4 00000
07574 0500 00 4 00000
07525 0622 00 C 03470
07576 0734 00 4 ooooo
07527 -3634 00 4 07540
07530 0560 0 0 0 07540
0 7 5 3 1 0 5 0 0 0 0 0 03472
07532
0074 00 4 04461
07533 -0534 0 0 4 07537
07534 0070 DO 4 0 0 0 0 1
07535 0500 0 0 0 03470
07536 0020 00 4 0 0 0 0 1
07537 0 00000 0 00000
07540 0 00000 0 00000

- - --

- - ---

-- --

--- -- - - --

-- -

- - --

--

-- - - - - --

-- --

BIRTHDAY ASSEMBLY
- ---

- --- --

--

-- -

--- -- -- --- -

4243
TSX UNSAVE.4
LC385200
4744
I xn x i . 4
---~~385
ao--4
-4245
TRA 1.4
LC385500
4746 NF7
S X CU-4
~
FQUALE&UfU_J11-LC3856OL-4247
PDX 14
J
LC385700
4248
CLA s4
IWesRon-4249
PAX 14
CAR( J )
LC385900
4250
C I A .4
- - - - - - - _ - - - - - - - . - _ _ - _ ---..
--LC386aQO
- - - .*- 4251
ST0 X 5
CCAR ( J
LC386100
4252
P A X .4
~ ~ 3 8 ~ n o
4253
SXD N214
LC386300
47 5 4
I O Q N7
C A A R l J I f N MQ
1 C3a6400
-4255
CLA E
LC386500
42 56
TSX SFBUAL.4
1C
W O
.- .--.-4257
LXD N1,4
LC386700
4758
TRA 1.4
------ - -.
4259 N F l
CLA
X5
4060
_Lt3.WL---4260
TRA 1.4
4261 N l
I R 4 O F P OF SEARCH
LC388300
N2
lLzi,&a%-_I-4262
4263
LC388500
APPEND(Ll.LZ)=
LC38860-0
-_
47 6 4
42 65
( L l = O YIELDS L2.1 YIELDS C O N S ~ C A R ~ L l l ~ A P P E N D I % D R l L l ) r L 2 ) ) ) LC388700
4266 A
HED
L C 3 8 8 8 0 0
APPEND TNZ APNPl
LC388900
,4_667
XCA
4768
D-..
.-4269
TRA 1.4
LC389200
4L338.93-Q0.-.-- - -..
4270 APNPI SXD A S l r 4
4271
TSX SSAVE.4
LC389400
ZENDZ,,CWR1+2
SAVE 2 I T E M S
.4272
4273
PDX 0.4
LC389600
4274
CLA 094
U;3U;38w011
4275
ST0 CWRl
LC389800
-.
4276
ANA DECM
~.
-C.L-3-8.9.YOO..
.. . ..... .
..
4277
TSX APPEND14
LC390000
XCA
1
~
~
0 - .. ~
4278
4279
LXA CWRl.4
LC390300
4280
PXD 0.4
_ - - - - - . - - bf,-k
4281
TSX UNSAVE14
LC390500
. --- - LC3901-00 _ - -- ._ --4282
LXD AS114
4283
TRA $CONS
LC390800
4284 DECM S Y N
SDMASK
-- _
_
-_l
~5Q00_lIOo_
__
4285
LC391300
4266
PA1 R
.___.-- - . . L . c ~ k---~ ~ .--4287 *
RECODED TO MAKE LISTS I N DOT NOTATION
4070
4288
-.
- _ LC191500.
..
4289 A
HED
LC391600
4290 PAIR S X A
PAIRX.4
SAVE LINK XU?4080
4291
STQ
LIS
ARG 2
4090
4292
LDQ
FARG
P IC K UP FUNC T I O!!!!&!UMENTT
4100
4293
TSX
MAPLIS.4
LET MAPLIST DO THE CONSING
4 1 10
ZET
LIS
.TEST
--- FOR ARG-Z-GOU!TOE-NO
-_ _ TRA
PERF
DID NOT* GO T O ERROR
4296
PAIRX A X 1
++,4
RESTORE-Ll!!!
JR
- - - 4 1 59
- - - -- -- - - -

"

--

07541
07542
07543
07544
07545
07546
07547
07550
07551
07552
07553
07554
07555
07556
07557
07560
07561

- C l O O 00
0131 00
0020 0 0
-0634 00
0074 0 0
-3 0 3 3 5 1
-0734 00
0500 0 0
0601 00
-0320 0 0
0074 0 0
0131 00
0534 00
-0754 00
0074 0 0
-0534 0 0
0020 0 0

07562
0634
07563 -0600
07564 0560
07565 0074

07570

00
00
00
00

0
0
4
4
4
0
4
4

0
0
4
0
4
4
4
4
0

4
0
0
4

07544
00000
00001
03346
02312
02377
00000
00000
03347
00460
07541
00000
03347
00000
02326
03346
03730
00460

07570
03441
07572
04214

G774 00 4 O O O O C

~~

~~

~--

TTT.TTTT.TTTTTTT

T.TTTTTTTTTTT--

... .--.

PAGE 90
07571
07572
07573
07574
07575
07576
07577
07600
07601
07602
07603
07604
07605
07606
07607
07610
07611

0020 00 4 00001
-3 00001
0634 00
0622 00
-0534 00
-3 00000
0500 00
0734 00
0622 00
-0754 00
0131 00
-0534 00
0500 00
0734 00
-0754 00
0774 00
0020 00

0
4
0
4
4
4
4
0
4
0
4
4
4
4
4
0

07573
07610
03440
03441
07615
00000
00000
03441
00000
00000
03440
00000
00000
00000
00000
03730

07612 -0634 00 4 01562

07613 0074 00 4 01563
07614 542660600254
07615 -0634 00 4 01562
07616 0074 00 4 01563
07617 542660600354

07620
07621
07622
07623
07624
07675
07626
07627
07630
07631
07632
07633
07634
07635
07636
07637
07640
07641
07642

..

..-. -....

. . ..

....-..

--

- .- . ...... -.

- -....

BONNIE-S BIRTHDAY ASSEMBLY

0100 00
-0634 00
0074 00
-3 03425
-0600 00
0601 00
-0534 00
3 00012
0074 00
0020 00
-0634 00
0074 00
0 00000
-0534 00
0500 00
-0734 00
-0754 00
-0100 00
0074 00

4 00001
4 03421
4 02312
0 02375
0 03423
0 03422
4 03423
4 07632
4 03423
0 07635
4 07634
4 12007
0 00001
4 03422
4 00000
4 00000
4 00000
C 07625
4 02326

4297
4298
4299
4300
4301
4302
4303
4304
4305
4306
4307
4308
4309
4310
4311
4312
4313
4314
4315
4316
4317
43 18
4319
4320
4321
4322
4323

TRA

114

TXL
SX A
ST@
LXD
TXL
CLA
PAX
STD
PXD
XCA
LXD
CL A

PAX
PXD
F A R G X AXT
TRA
PERF

SXD
TSX
BCI

PERS

SXD
TSX
BCI

4326
4327
432 8
4329
4330
4331 D
4332 MAPCAR
4333
4334
4335
4336
4337 MCPR
4330
4339
4340
4341
4342
4343
4344
4345
4346
4347
4348
4349
4350 RTRN

MAPCAR(L1F) = tL=0 YIELDS 01

F(L1 YIELDS 0,
1 YIELDS WAPCAR(CDRfL),F))
HED
TZE
SXU
TSX
TXL
STC
ST0
LXC
TXH
TSX
TRA
SXD
TSX
LXD
CLA
PDX
PXD
TNZ

TSX

--

4 160
4
1
7
0
_
- '
*+It81
PAIR FUNCTIONAL ARGUMENT FOR MAPLIST
4180
'
FARGXt 4
SAVE L I N K ___IR - ._.-- - - _ $33.0.- ._- _ TEM
SAVE ARGUMENT
4200
LIs14
PICK UP ZND ARG LIST
--!&1c
PERS14,O
GO I F NO MORE 2ND ARG
4220
09 4
---- - - NEXT-YOSD
-.
. _- _ _
.
- -4230
014
CAR
4240
S X E - CDR
4250
r
LIS
4
014
CAR INTO DECREMENT
4260
Y
4270
INTO MQ
TEM94
LIST 1
42 80
L
094
TAKE CAR OF LIST
4290
s
084
4300
6
01 4
4310
d
**94
RESTORE L I N K I R
4320
SCONS
4330
FIRST ARG LIST TOO SHORT ERROR
4430
$ERROR14
SAVE LINK I R
--fERROR+1,4
GO TO ERROR
1,+F
2,
FIRST ARGS LIST TOO SHORT
ERROR, SECOND AKG LIST TOO SHORT
4340
$ERROR94
SAVE LINK I R
$ERROR+lr4
GO TO ERROR
l v + F 3*
SECOND ARG- LIST TOO SHORT
-4470

FARG

--.- -

E X IT

194
RET94
SSAVE,f+
$EN03rrF+2

----

- --

--

.--- - ---

----LC39980K
- -- -

LC399900
-. --------.-----------LC400000
LC4001 00
LC400200 ---LC400300
.- -LC400400
LC400500
------------LC400600

-- ---

- - ---

---

SAVE 3 ITEMS

F
L
F94
++314110
f14
++4
*+214
COMPAT94
l*r*+
L94
0 ~ 4
94
94
MCPR
UNSAVE.4

- - --..-

-. - -

p
a
-

LC400800
- -- --LC400900
LC401000
___
LC401100
L C 4 0 1 2 0 0 ! _LC401300
LC401400-.-_
LC401500

----

-------.

-.

--- ----- ----.

---*.--.----.---,

---

- - ---- -- -.---

LC401.200
LC401900
g402000
1.5Q0022
LC402300

.,

-_
- --

--

.---p--...-.-..-.----.---..---.------..--------.-

PAGE 9 1

BONNIE-S

BIRTHDAY ASSEMBLY

07643 -0534 00 4 0 3 4 2 1
07644 0070 o n 4 o n n o i

07645
07646
07647
07650
07651
07652
07653
07654
67655
07656
07657
07660
07661
07662
07663
07664
07665
07666
07667
07670
07671
07672
07673
07674

0100 00
-0634 00
0074 00
-3 0 3 4 3 1
0 6 0 1 00
-0600 0 0
0 5 3 4 00
3 00012
0074 00
0020 00
-0634 0 0
0 0 7 4 00
0 00000
0601 00
-0534 00
0500 00
-0320 00
0560 00
0074 00
0131 00
0500 00
0074 00
-0534 00
0020 00

4
4
4
0
0
0
4
4
4
0
4
4
0
0
4
4
0
0
4
0
0
4
4
0

00001
03424
07317
02373
03476
03425
03475
07657
03475
07662
07661
12007
00001
03427
03416
00000
00460
03425
07645
00000
03427
02326
03424
07675
00460

--

4351
LXD RET.4
LC402600
4357
T R A 1.4
I r . l t O . L l Q Q -__ -.
43 5 3
MAPCON(LsFJ=
LC403100
4354
I = 0 Y 1EL DS 0 ~ l ~ N C o N L c L C L L & A & 2 J . & L C D R I
U ~ U L C 4 0 3 2 a 0 - - --4355 R
HED
LC403300
4356 MAPCON T 7 F 1.4
_-- - Lc4a34aL4357
SXD MCN5,4
LC403500
4358
T S X SSAVF.4
----LC403600
SEND49 tMCN2+2
SAVE 4 ITEMS
4359
TXL
ST0 M a 3
LC4Q.3 0QQ
*
4360
4361
STQ MCN4
LC403900
4367
L U N 4 4
1 C 4 0 4 Q L 4363
TXH * + 3 r 4 t 1 0
LC404100
TSX a N 4 . 4
4364
d n 6 3 0 0 - - -4365
TRA *+4
LC404300
-------ImC--- --.
4366
SXD * + 7 r 4
4367
TSX CDMPATs4
LC404500
1.. s*
4368
IC4Q4&QQ-4369
ST0 MCNZ
LC404700
4370
I XO MCN3.4
I c40MQOO_
4371
CLA 014
LC404900
__ - _ -- L C itQT0-00 .. _- -- .- -- - -- 4372
ANA MCDM
4373
LDQ MCN4
LC405 1 0 0
-4374
TSX MAPCONp4
LC405700
4375
XCA
1 5P0023
4376
CLA MCN2
4377
TSX UNSAVEp4
LC405700
LXD MCN5,4
4378
-- L C-4@5.9QO0- -- _
4379
TRA
SNCONC
1.580024
4380
MCDM S Y N
SDMASK
-- -- _
- -_ _ ---- -4590 . - -- - -- 438 1
FUNCTION NCOVC
LC406700
/
L l = 0 YIELDS RETURN(L2)
------L-G &!6.8..QQ-- -",.4382
4383
M=L1
LC406900
4384
A2
CDRIM)=O YIELDS GO A 1
---- -LC&07000_ ..
- .--43 8 5
M=CDR ( M
LC407100
GO A2
4386
-L c 4 0_7_200
4387
A1
CDR(M)=LZ
LC407300
//
RETURN ( L 1)
4388
L C4 07cO_0
4389 R
HED
LC407500
4390 NCONC TNZ N C I l
--- -- ---- ---- ... - 4391
XC A
4392
TRA 114
.--LC407900
.-4393 N C I l
SXA
NCSlt4
SAVE LINK I R
1.5P0026
4394
ST0 NCS3
U k 0 2 Z QQ---- ..
-4395
NCIZ POX 094
LC408300
4396
CLA 0 t 4
LC408400
. .------- 4397
ANA NCDM
LC408500
4398
TNZ NCI2
LC408600
XC A
4399
1.580027
4400
STI) 0,4
.
----CL4!J.!!_8P-0!-o - ..._---.-.
4401
CLA NCS3
LC408900
NCSl AXT
**t4
4402
RESLOB-L~NK_~LR_
_ ..- -.L,~~Q.QO?~ ._
.4403
TRA 194
LC409100
BDMASK
4550
4404 NCDM SYN
~.
- -

--

--

pp

--

00---------

07675
07676
07677
07700
07701
07702
07703
07704
07705
07706
07707
07710
07711
07712

-0100
0131
0020
0634
0601
-0734
0500
-0320
-0100
0131
0622
0500
0774
0020

00
00
06
00
00
00
00
00
00
00
00
00
00

0
0
4
4
0
4
4
0
0
0
4
0
4
00 4

07700
00000
00001
07711
07713
00000
00000
00460
07702
00000
00000
07713
00000
00001
00460

--

.
a

~-

--_

-----

PAGE 92

BONN IE-S

B IRTHDAY

----

- -07713

07714
07715
07716
07717
07720
07721
07722
07723
07724
07725
07726
07727
07730
07731
07732
07733
07734
07735
07736
07737
07740
07741
07742
07743
07744

0 00000 0 00000

-0634 00
-0600 00
-0534 00
-0634 00
1 77777
-0634 00
-0734 00
0020 00
0500 00
0601 00
-0634 00
0500 00
0734 00
-3 00000
-3 00000
-0734 00
3 00000
-0534 00
0020 00
-0734 00
0500 00
-0534 00
0622 00
0020 00
0 00000

4
0
4
4
4
4
4
0
0
0
4
4
4
4
4
4
4
4
4
4
4
4
4
0
0

07744
03320
03320
07732
07721
07731
00000
07726
03320
03321
03320
00000
00000
07733
07737
00000
07724
07744
00001
00000
00000
03321
00000
07726
00000

--

- -

.-

--

.-

- --

4405
NCS3
LC409500
LC772900
4406
REMPRP REMOVES THE PROPERTY GIVEN BY THE MQ FROM THE
4407
OBJECT GIVEN BY THE AC
LC773000
- --LC773100
_ -4408 REMPRP SXD RMPRX94
4409
S T Q SARGZ
LC773200
4410
LXD SARG2.4
LC773300
--- -- -- -. -4411
SXD RMPRT+l.4
LC773400
4412
T X I *+1r41ZL-___----.
LC773500
S X D RMPRT94
LC773600
4413
i >
4414
POX 0.4
LC773700
-4415
TRA RMPR2
LC773800
s
4416 RMPRl CLA dAKG2
LC773900 9
4417
S T 0 SARG3
LC774000
/
4418
RMPRZ SXn SARG214
LC774100
B
4419
CLA 0.4
LC774200
6
4420
PAX 0.4
LC774300
3
4421 RMPRT TXL *+2,4y**
LC774400
4422
TXL RMPRE*41 *+
LC774500
LC774600
4423
PDX 094
TXH RMPR1.4rO
LC774700
4424
LC774800
4425 RMPRO LXD RMPRX.4
4426
TRA 1.4
LC774900
-4427 RMPRE PDX 014
LC775000
4428
CLA 094
LC775100
LC775200
4429
LXD SARG3.4
4430
ST0 0.4
LC775300
4431
T R A RMPR2
LC775400
4432 RMPRX
LC775500
4433
LC409600
- --- - - -LC409700
4434
443 5
PRINAR
LC424700
443 6
LC424800
-----4437
USES WOT AND PRINT
LC424900
4438
CALLING SEQ IS..
---- --L_C425E-_
-- 4439
T S X PRINAR.4
LC425100
4440
NOARG
LC425200
--- --444 1
BCD2 NAME OF FUN
LC425300
LC425400
4442
RETURN 1
4443
ARGUMENTS NOT ACCEPTABLE TO P R ~ N ?WILL C A Z E ERRORS
LC425500
4444 * HAS BEEN CRIPPLED TO PRINT ONLY FIRST 2 ARGUMENTS
J.5Q0050
_ -_
_ _ -- 4445
LC425600
4446 P
HED
- LC425700 --- - - -4447 PRINAR S X A
PAS1.4
SAVE INDEX REGISTERS
1.5Q0040
4448
SXA
PAS2.2
1 5 Q 0 0 4 L----- "__________
4449
STU PAS3
LC426000
4450
S T O PAS4
- --~_~_442610 O_
_ _ - - - - -4451
CLA 2.4
LC426200
4452
ST0 PAL1
LC426300
4453
CLA 3 r 4
LC426400
4454
ST0 PAL2
--- -.---- LC426500
-."--- 4455
CLA 114
LC426600
4456
-- -L C 4 ~ 7 0 0
-.-PAX 012
4457
TSX OUTPUT94
LC427000
BCDOllT
4458
--- -L C-42 L l O
- --

---

---

-----

--

07745 0634 00
01746 0634 00
07747 0601 00
C7750 -0600 00
07751 0500 00
07752 0601 00
07753
0500 00
07754 0601 00
07755
0500 00
07756 0734 00
07757 0074 00
07760 0 00000

4
2
0
0
4
0

4
0
4
2

4
0

07774
07775
03442
03443
00002
10001
00003
10002
COO01
00000
01222
00364

---

.....-.

-----.-p--...--.--.-.--

PAGE 93

BONNIE-S BIRTHDAY ASSEMBLY

?

07761 0 00011 0 07777

07767 0500 on n 03447
07763 0074 00 4 04604
07764 - 7 00001 7 07767
07765 0500 00 0 03443
07.766 0074 00 4 04604
07767 0074 00 4 01222
07770 o m a 0 0 0 00364
07771 0 00001 0 10010
07772 0500 00 0 03442
07773 0560 00 0 03443
07774 0774 00 4 00000
07775 0774 00 2 00000
07776 0020 00 4 00004
07777 006026644523
10000 633146456060
10001 0 00000 0 00000
10002 o ooooo o ooooo
10003 603021626022

4459
4461-1
4461
4462
4463
4464 PAP7
4465 PAP3
4466
4467
4468
4469
4470 PAS1
4471 PAS2
4472
4473 PAL3

PAL3rvPAL4-PAL3

- - - - - - - -

TSX SPRINT94
TNX PAP3.U
C L A PAS4
TSX I P W . 4
TSX OUTPUT94
CLA
LDQ
AXT

AXT
TRA
BCD

n_..----n_-

RFSTORE I W F X R F G I - m 1 . 5 - 7

PAL1

P A L7
BCD 5 HAS

.... '

.
.
.
.

LC428100
1.U2820.0
LC428300
--LB.Z8&QO--LC428700

B E E N ENTERED* ARGUMENTS..

1.590043
1 C
0
LC429400
A

4474
4475
4476

'

~c422z.m

.
.

BCDOlJT

PAL51 1 1
PA53
PAS4
rr,4
++92
4.4
20 FUNCTION

LC427200
L
u
a
LC427400
LL4271QO
LC427600

-.

.--

LC429500
LC.+~.O~..LC429700

-.-.- .. --. -- ,/ .

'

PAGE 9 4

eONNIE-S

-.

1 0 0 1 1 0634
10012 0 1 3 1
10013 0622
10014 0402
10015 0622
10016 0 1 3 1
100L7 -0734

00
00
00
00
00
00
00

4
0
0
0
0
0
4

10065
00000
10024
0044,2
10'623
00000
00000

10020 -3 00000
1 0 0 2 1 0500 00
10022 0734 00
10023 -3 00000
10024 3 O O O O p
10025 -0320 00
10026 0534 00
10027 0020 0 0

4
4
4
4
4
0
4
4

10030
00000
00000
10017
10017
00460
10065
00001

10030 -0754 00
10031 -0534 00
10032 3 00012
10033 0534 00
10034 0020 00
10035 0600 00
10036 0560 00
1G037 -0754 00
10040 0534 00
1 0 0 4 1 0020 00

0
4
4
4
0

00000
03321
10035
10065
03321
03321
03321
00000
10065
14663

0
4
4
(J

.
10042
10043
10044
10045

0634
0634
0634
0622

00
00
00
00

4
2
1
0

10065
10064
10062
10061

10050 0131 00 0 00000

10051 -0734 00 4 00000
10052 - 3 GOO00 4 10067a
10053

0500 00 4 00000

----

BIRTHDAY ASSEMBLY
............

.......-..

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

4479
EJECT
-LC544100
-------------4480
448 1
PROP AND S A S S O C
LC544200
.
-LC544300 _._- .- -- -4482
SPECIALIZED SEARCH ROUTINES WHICH SHARE STORAGE
4483
LC544400
4484 R
HE@
-- LC544500
. - --4485
LC544600
4486
PROP(OtP*U)
-LC544700
= ( N U L L ( 0 ) YIELDS U, CAR(0) = P YIELDS CDRIO),
LC544800
4487
4488
T YIELDS PROP( CDRf 0 ) t PvU) 1
LC544900
--LC545000
448 9
4 4 9 0 PROP S X A
SAST1 4
SAVE LINK I R
4491
XC A
PROPERTY TO AC
4492
STC SASPl
LC545500
SET TXH
4493
>UB
SASQl
LC545600
SET TXL
LC~S~O4494
STD SASP2
4495
XC A
OBJECT T O AC
4496
SASLl PDX 014
L = CDR(L1
LC546000
LC546100
4497
INSERT TXH INSTRUCTION HERE I F N I L L I S NADE NON-ZERO
4498
TXL SASP394,O
NIJLLIL)
LC546200
4499
CLA 0 1 4
LC546300
CWRI L
LC 546400
4500
PAX 014
q'?p-j
CAR( L )
4 5 0 1 SASP? TXL SASL1,4t*+ " ' I
LC546500
4502
SASPl TXH S 4 S L 1 , 4 , * + - P R e '
LC546600
4503
ANA SASDM
LC546700
SASTlt4
RESTORE LINK I R
4504
LXA
4505
TRA 1 9 4
LC546900
4506
LC547000
4507
SASP3 P X b
0.0
CLEAR
bAR63 4
INSPECT F ~ N C T I O Y A . - A ~ G ~ ~ ~ ~ T T
- ---- _ - _- - _
- -- - --4508
L XD
4509
TXH
++3 t 4910
SKIP I F NOT A TXL
4510
LXA-A
SAST 114
--------4511
TR A
bARG3
LC547400
4512
STZ
tARG3
.- LC547500
- --- -4513
LDQ
bARG3
LC547600
4514
PXD
74
---LC547700
--- -- - - -- --- -4515
LXA
SASTlt 4
RESTORE LINK I
R
4516
TRA
SAPPLY
"---"LC547900
-4517
LC548000

--

---

-----

----

--

4520
T YIELDS SASSOC(O,CDR(A) ,U)
452 1
4522 SASSOC SXA
SASTlr4
SAVE LINK I k
4523
SXA
SAST212
SAVE, ? R 2
4524
SXA
SAVE I R 1
SAST3 7 1
4525
ST0 SASP7
SET TXH

452%S A S
4531
4532

SET TXL
XCA
P A I R L I S T TO A C
PDX
0 14
T O INDEX 4
5 TXL SASP4.4.0
NULL ( A
INSERT TXH INSTRUCTION HERE I F N I L L ~
CLA 094
CWR(A)

---

LC -548300
LC548400

-----

--

------

- -..--

p
-

-"-=--

6210
LC548900

.--

--- ----%

--

~
--

- -

LC549300
F
~
~
LC549400
---

"--

"

_- - LC549200
-- - ---

~
-

--

"-

--

r
4

PAGE 9 5

GONNIE-S

10054 -0734
-07-34

10056
in057
10060
10061
10062
10063
10064
10065
10066

O C 4 00000
nn 7 n n o o n
0500 00 2 00000
Q U ~
no 1 oooon
-3 00000 1 10052
3 00000 1 10052
0774 00 1 00000
0754 00 3 0 ~ 0 0 0
0774 00 2 00000
0774 0 0 4 00000
0020 00 4 0 0 0 0 1

4533
4514
4535
4516
4537
4538
4539
4540
4541
4547
4543

BIRTHDAY ASSEMBLY
PDX 94

CDR( A )

P A X .7

CARIA)

LC549500
~ t 1 4 . . 0 1.------r~
LC549700

CLA ,2
PAX

SASP6 TXL
SAW7 TXH
SAST3 4XT
PXP
SAST2 AXT
SAST1 AXT
TRA 1,4

0.1
SASP5,1,*+
SASP5.11++

*+, 1
0.7
+a, 2
++.4

--- -.--

LOOK FOR ITEM

-- - - -

6230

--

--- - -

FOUND I T E M , RESTORE I R 1
P0 UILEBIDaKQRR-~ -- ..-RESTORE I K 2
RESTIR

- --- --

-- --

-6240-

..

-- -.

6250
6260

LC550400

SASP4 LXA
4545
SAST292
RESTORE I R 2
4546
LXA
SAST3.1
RFSTOh 2 7 0 .
.--4547
IRA
SASP~
EXECUTE SASSOC EXIT
6280
SASQl SYN
fWl
-___629Q
-_
_ - -4548
4549
SASDM SYN
SDMASK
6300
-4550
LC552229 9
--.
10072 0100 0 0 4 0 0 0 0 1
4 5 5 1 SPREAD TZE
1.4
EXIT I F AGLIST I S NULL
6310
10073 0 6 3 4 00 4 10137
SXA
SPRX.4
4557
SAVE LINK I R
---._15L,3-20------.--,.-----.10074 -0734 00 4 00000
POINTER T O ARG L I S T
6330
4553
POX
0 94
10075 0500 00 4 00000
4554
CLA
094
FIRST WORD
.
6349-_ .--- - -- 10076 0560 00 0 0 0 3 7 0
4555
LD6
$ZERO
ZERO THE MQ
6350
10077 -0765 00 o 00022
4556
LGR
18C A R TO CDR OF MQ
.
-__
6 3 6 3 - -- - --10100 0100 00 0 1 0 1 3 1
4557
TZE
NLY
GO I F A
SINGLE ARGUMENT
6370
1 0 1 0 1 0734 00 4 OCOOO
4558
PAX
0.4
POINTER T O YEXT WORD
-.-_~S-CL-- ... - - .. __10102 0500 00 4 00000
4559
CL A
0 14
NEXT WORD
6390
10103 0734 00 4 00000
4560
PAX
094
POINTER T O ARGUMENT
- -5400 _ . --10104 -0320 00 0 00460
BDMASK
4561
ANA
MASK OUT ALL BUT DECREMENT
6410
10105 0100 00 0 1 0 1 3 0
4562
TZE
TWA
--GO
I F Z&!!&E_ULS
10106 -0634 00 4 0 3 3 2 0
4563
SXD
bARG2 S 4
PUT AWAY
10107 '0634 00
0 26
4
4
0
A
IN
A D
43AQ. -.-,-----.
-.--- .". ..-.
10110 0634 00 1 10125
4565
SXA
SPRZ, 1
6450
1 0 1 1 1 0774 00 1 0 0 0 2 2
4566
AXT
18,l
2 0 IS M A U O O F L R G S- -- ___
.
-_ _
. -10112 -0734 00 4 00000
4567
PDX
0 14
REST LIF A R G LIST TO I R 4
10113 -3 00000 4 10125
4568
SPPl
TXL
SPRZ,4rO
GO I F END OF L I S T _ _ _ _ - _ t~474-_
-10114 0500 00 4 00000
4569
CLA r 4
LC553500
-.
10115 -0734 00 4 00000
4570
POX 94
__
LuB4_Q&-_I
----.-10116 0734 00 2 OOOOC
4571
PAX 12
LC553700
10117 -0754 00 2 00000
4572
PXC ,2
--_ _
.----- - --LC553800
10120 0 6 0 1 00 1 03343
4573
ST0
6ARG20+1,1
1 0 1 2 1 2 00001 1 10113
4574
TIX SPPltlrl
--.- -_.
--.LGZ4000-_
_ _ -. ._._
- - -.-10122 -0634 00 4 01562
4575 SPPERR SXD
$ERRORS4
6480
10123 0074 00 4 01563
T S X $ERROR+1,4
---. L-c-%~2-a!ooo
_- - - --4576
10124 542160600754
BC I
l,+A
7+
T O O MANY ARGUMEUTS---SPREAD+O
4577
4578
- --- -- --- - - LC5546-QO0 - _
__-10125 0774 00 1 00000
4579
SPRZ AXT
**,l
RESTORE I R 1
1-5Q8000
10126 0774 00 2 00000
4580
SPRY AXT
*+r2
DITTO I R 2
-1. 5 ~ 8 0 0 1 - _ . -- _ -- - _-..
10127 -0534 00 4 03320
4581
LXO
OARG2,4
ARG 2
1 598002
TWA
PXD
0.4
PUT I N D E C R E M E v - T A
LXQ!l!?-O-3-.-.-_.- ---- ,
10130 -0754 00 4 00000
4582
10131 0131 00 0 00000
4583
NLY
XCA
A R G 1 AND 2 TO RIGHT REGISTERS
1.5Q8004
10132 0774 00 4 00000
4584
SPKX A X T
**r4
RE ST w!L~!L!!3
---_- 1-5Q80-05_ _
-- ..-.
10133 on20 oo 4 o c o o l
4585
T RA
1,4
EXIT
1.508006
10067
10070
10071

0 5 3 4 00 2 10064
0534 00 1 1 0 0 6 7
0020 00 0 10030
00447
00460

---

--A__-

-___--

-a

p
p

-_-__-__--

---

PAGE 96

10134
10135
10136
10137
10140
10141
10142
10143
10144
10145
10146
10147

EONNIE-S

0634
-0100
0131
0020
-0734
0500
-0320
-0100
0131
0622
0774
0020

10150 0100
1 0 1 5 1 -0754
10152 0020
10153 0500
10154 0020

10155
10156
10157
10160
10161
10162
10163
10164
10165
10166
10167
10170
10171
10172
10173

10174

0634
-0734
-0763
0621
-0754
0774
0020
0634
-0734
-0620
0020
0634
-0734
-0600
0020

00
00
00
00
00
00
00
00
00
00
00
00

00
00
00
00
00

00
00
00
00
00
00
00
00
00
00
00
OC
00
00
00

4
0
0
4
4
4
0
0
0
4
4
4

0
0
4
0
4

4
4
0
4
4
4
4
4
4
4
0
4
4
4
0

10146
10140
00000
00001
00000
00000
00460
10140
00000
00000
00000
00001
00460

10153
00000
00001
00442
00001
00442

10162
00000
00022
00000
00000
00000
00001
10162
00000
00000
10161
10162
OOCOO
00000
10161

0634 00 4 10214

4587
4588
4589
4590
4591
4592
4593
4594
4595
4596
4597
4598
4599
4600
4601
4602
4603
4604
4605
4606
4607
4608
4609
4610
4611
4612
4613
4614
4615
4616
4617
4618
4619
4620
4621
4622
4623
4624
4625
4626
4627
4628
4629
4630
4631
4632
4633
4634
4635
4636
463 7
4638
4639
4640

--

- --

--

- --

- - -

- - -

81 RTHOAY ASSEMBLY

- - --- -

FUNCTION ATTRIB(0,LI
ATTRIBIO,LI=/
CDR(O)=O YIELDS I L RFPLACES CDX(O1)
/
ELSE A T T R I B I C D R ( 0 ) r L )

--

HE0
TZE
PXD
TRA
CLA
TRA
NOTCl SYN

0
CDRI 0 1
ARG 2 T O AC

--- - -

ARGl TO A C ~
~
RESTORE L INK
IR_-

--- - -

s
-_-_

----.--.----

EXIT

-EXIT

-"----OBJECT GEYERATOR
GENSYM SXA

GE1UXr 4

-- -- - -- -- - - - -

--

-----

*+3
90
194
NOTCL
1-4
BQDl

REPLg4
094
18
094
094
*4,4
194
REPL94
094
094
RPLEX
REPLr4
0.4
094
KPL EX

--

1.5Q8OLO
-1.5Q8011
1.5Q8012
LC556500
LC556600
LC556700
LC536800
1.588013
LC 557000

THE RPLACX FUNCTIONS REPLACE THE X PART OF THE FIRST ARG

WITH THE SECOND ARGUMENT
THE VALUE OF R P L A C A ~ R P L A C O , AND R P L A C W IS ZEROHE0
RPLACA SXA
PDX
LGL
STA
RPLEX PXD
REPL AXT
TRA
RPLACD S X A
POX
SLQ
T RA
RPLACW SXA
PDX
STQ
T RA

-- --- --

-- - - -

--

GO I F BEGINNING OF L I S T
OTHERWISE
--- - --- - -- W I T K I T H ARK-2

NOT FUNCTION
R
NOTS

--

LC555800
LC
. 555900
LC556000
--L-L55_61J10_
LC556200

-_
R
HED
ATTRIB S X A AT1?4
TNZ
ATRE
XCA
--1RA
194
ATRB
PDX 94
CLA $ 4
ANA DMASK
TNZ ATRB
XCA
STD 94
AT1
AXT 1 1 9 4
TRA l r 4
$OMASK
DMASK SYN

--

--

SAVE LINK I R

--

LC557200
6490
LC557700
LC576400
LC576500
L c!2Es!!L
LC576700
LC576800
LC576900
LC577000
LC577100
LC577200
LC577300
LC576200
LC577400
LC577500
LC577600
Lc577700_LC577800
LC577900
LC578000
LC578100

-'

--

----

-____----

_--

.--

1.5Q8023
LC578400
LC5785OD
LC578600
LC578700
1 598022
LC579100
-LC579200
LC579300
1.548021
LC580000 -- -..-..-------LC580400
LC580500
__
- -- -.
-- .Lt5G0600
1.588029

---

---- -

_
"

- - .-.-

--

PAGE 9 7

BONNIE-S

10175
10176
10177
10700
10201
1C702
10203
10704
10205
10706
10207
10710
10211
17
10213
10214
10215

10216
1 0 2 17

0500
01 1 4
0601
0501
0074
560
0074
0560
0074
0131
0500
0074
0131
0500
0074
0774
0020

0 10217
0 05313
0 10217
0 10716
4 03710
0 00370
4 03730
0 00370
4 03730
0 00000
0 00504
4 03730
0 00000
0 00460
4 03730
4 00000
4 00001
00370
00504
00460
270000000000
000000000000

00
06
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00

.--

.-

--

B I R T H D A Y ASSEMBLY

4641
CLA
4647
CVR
4643
ST0
4644
ORA
4645
TSX
4646
ID6
4647
TSX
4648
ID0
4649
TSX
4650
X CA
4651
CLA
4657
TSX
4653
XCA
4654
rl A
4655
TSX
4656
GFNX
AXT
4657
TRA
GFNZ
SYN
4658
4659
GENPN SYN
4660
GFNC
SYN
4661
LETTR B C I
4662
D I G I T RCI
4663
4664 *
4 6 6 5 + OVERLORD

DIGIT
B C U . 6
DIGIT
LFTTR
SCONSWy4

- --

- -.--

----

- -- -

- -- -

GET D I G I T S
ADD 1 I N B C n
UPDATE CELL

----

- --

--

- .- - - --

LC582700

GWZ

-LC-

$CONS,4

GENZ

SCONSt4

,
---

----.

GENPN
SCONS*4

--

-_

--

LC582900
X O D 0- ---.--_--__
LC583100
LC583400
I L ! 5 _ 8 3 1 L - LC583700

GFNC
$CONS 4
++,4

__11;5816Lna___
-__-*--------

LC583900

_-1_5PBQ33

RESTORE L I N K I R

1.4

_ _

-_

--- -

LC584400

_ L I B 3
--

S ZFRO
PNAMED
6DMASK
1, G O 0 0 0 0
ltOOO000

1.548035

1-5?-!&&%_
---

HANDCING

..

--

----- -- - .--

- . --

-- -- --- -

LC580100

SECTION OF LISP.
RECODED 2 0 FEBRUARY
9260
0
RDS.
2=
---.
.-4667
9280
4 6 6 8 * OVERLORD D I R E C T I O N CARDS ARE PUNCHED I N F A P FORMAT W I T H THE VARIABLE--LE___
9Z99
4669 *
F I E L D B E G I N N I N G I N COLUMN 1 6 . D I R E C T I O N CARDS ARE
9300
ONE
( U S E NO T A P E S FOR T H I S RUN)
4670 *
.-9319
-4671 *
SET
( SAVE R E S U L T S ON SYSTMP I F NO ERROR OCCURS)
9320
TST
4672 *
( G E T NEW CORE IMAGE A F T E R O P E R A T I O N )
--_------ 93-3-0-- .. -- 4673 *
TEST
( S A M E AS A e O V E )
9340
FIN
4674 *
( A L L DONE, STOP M A C H I N E OR RETURN TO A H I G H E R HO_NI-T-OR)__
9350
4675
SETSET
( A V E R F S U L T S ON SYSTMP NO MATTER WHAT1
9360
DEBUG
( S A M E A S T E S T G U T n B J E C T L i S T I S NOT S A V E D AFTER-__READ I N )
--931-0
_- - . - -4676 +
4677 *
SIZE
Nl,N2,N3,N4
( G I V E S S I Z E OF B I N P R G t P P D L , FHS AND F R E E )
9380
4678 +
TAPE
SYSXXXgA7
( A S S I G N S SYSXXX TO U N I T A 7 )
- _ _
-93.20 --__--4675
DUMP
BEG,ENDvTYPE
( M A K E S OCTAL DUMP ON SYSPOT ACCORDING TO
9400
4680 +
TYPE. 0 FOR S T R A I G H T OCTAL,-NQN-ZEEO
FOR
___ _ _9510- . -4681
L I S P (COMPLEMENT) DUMP.)
9420
4682 +
REMARK
I LOG AS D I R E C T I O N CARD AND L O X F O R NEXJ D I R E C T I O N CARD.)-- -- . -_
- 4683 *
EXCISE
I ( I I S COMPILER, I N T E R P R E T E R OR BOTH. TURNS I T E M I N T O
4684 4
FREE STORAGE OR F U L L WOTD SPACE)
________------ ------4685
9430
4686
-- -- --- - .
. --94kO
10220 0604 00 0 10336
4687
OVBGN S T 1
DVSV I
BEGIN B Y SAVING
INDICATORSAND
9450
10221 0634 00 4 10511
4688
SXA
I N D E X REGISTERS-_ - _ 9460
-__ _ - .
OVRLX*4
10222
0634 0 0 2 10512
4689
SXA
OVRLY t 2
9470
10223 0634 0 0 1 10513
4690
SX A
OVRLZ. 1
9480
--1 0 2 2 4 0 4 4 1 00 0 1 0 3 3 7
4691
L DI
OV I N D
PRESET INDICATORS
9490
4692
ST1
10225 06C4 0 0 0 10340
SYSIND
ANDSYSTEM
I N D I C A-T O R S - - -- - - - -------9500. 10226 0500 00 0 00177
4693
CLA
FLAPCZ
CONTENTS OF C E L L ZERO
1 0 2 2 7 0 6 0 1 GO 0 0 0 0 0 0
4694
ST 0
0
F I X ANY CLOBBER1 NG TH_-T -_MA-T BE D-ONE- _
-THE T A P E

- ------

7--

PAGE 98

- - --

--

BONNIE-S

--

B I R T H D A Y ASSEMBLY

p
p

l a 2 5 6 10230
10231
10232
10233
\ 10234
10235
10236
10237
10240
10241
10242
10243
10244
10245
10246
10247
10250
10251
10252
10253

0074 00
0 00000
O 00016
0020 00
0020 0 0
0560 00
-0500 00
-0763 00
0774 00
-0340 0 0
0020 00
0020 00
2 00002
3 00000
0502 0 0
0601 00
0074 0 0
-0 0 0 0 0 0
0 00017
0020 00

10254
10255
10256
10257

0 0 7 4 DO
0 00000
0 00011
0020 00

10261
LO262
10263

0 00000 0 00364
0 00007 0 1 0 3 7 3
0020 0 0 0 10472

10264 0500 0 0
10265 0602 0 0
10266 (2500 00
10267 0621 0 0
10270 0500 0 0
10271 0601 00
10272 0500 0 0
1 0 2 7 3 0661 0 0
10274 0500 0 0
10275 0601 0 0
10276 0074 00
10277 -0 O O C O O
10300 0 00017
16301 0140 00
10302 0 4 4 1 0 0
10303 0057 00
10304 0 6 0 4 0 0
1G305 GO20 00

PAGE 99

4
0
0
0
0
0
0
0
4
4
0
0
4
0
0
0
4
0
0
0

00663
00000
10404
10254
10260
10406
10405
00006
00030
10336
10244
10264
10241
10230
10245
10245
01222
00364
10403
10230

4 01222
0 00364
0 10362
0 10235

SINPUT* 4
SBCDIN
OVBUF* 14
UVFRTF--OVEOF
OVBUF+Z

6
2494
OVT BL, 4
*+2
OVPNT
OVSRC, 4 r 2
OVRCRD, 0
OVBSW
OVBSW
OUT PUT, 4
RCDOUT
OVBUF-l,,
15
OVRLRD
OUTPUT* 4
BCDOUT
OVRDM, 99
OVGOR

0020 0 0 0 1 0 4 5 1
636263606060
0020
00 0 1 0 4 2 3
- -

4749
4750
4751
475 2
4753

T RA
BC I
TRA

BCI
TRA

OVUNE
1, S E T
OVSET
1, T S T
OVTST

---. --

--

GET OVERLORD D I R E C T I O N CARD

FROM BCD I N P U T T A P E
P U T I N OVERLORD C A R D - B U F f L R
ERROR RETURN
END O F F I L K ! ! 2 ! B Y _ _ - P I C K UP OVERLORD D I R E C T I O N

ov@L!E?.! -__---.----- ----

4723
BCDOUT
4724
OVALF. I 7
4725
T RA
OV DN
4726 *
0 10245
4727 OVPNT C L A
OVBSW
0 10245
4728
SLW
OVGSW
4 10337
4729
CLA
OVTBL+1,4
0 10305
4730
STA
OVTRA
0 00200
4731
CLA
FLAPCX
0 00010
ST0
8
4732
CLA
FLAPCY
0 00201
4733
0 00002
4734
ST0
2
0 00177
4735
C LA
FLAPCZ
0 00000
4736
ST0
0
TS X
OUT PUT 1 4
4737
4 01222
0 00364
4738
MZE
8iDOUT
0 10403
4739
OVBUF-17 1 5
0 10302
4740
TOV
*+ 1
0 10340
4741
LO1
SYSIND
000014
4742
R IR
14
0 10340
4743
ST I
SYS I N D
0 00000
4744 OVTRA TRA
+9
000010
4745 ERROR1 BOOL
10
4746 *
4747 *
D I R E C T I O N CARD T A B L E
B O N N I E - S B I R T H D A Y ASSEMBLY

103070020 00 0 10526
10310 622563606060
10311
m
2
10313
- --.

4695 *
4696 QVRLRD TSX
4697
4698
4699
T RA
4700
T RA
4701 OVGOR L D Q
CAL
4702
L GL
4703
4704
AXT
4705 OVSRC L A S
4706
T RA
4707
TRA
4708
TIX
4709 OVBSW T X H
4710
CLS
4711
ST0
4712
TSX
4713
M ZE
4714
4715
TRA
4716 *
4717 OVERR T S X
4718
4719
4720
THA
4721 *

--

_-

--- ----

SHIFT DIRECTIOFJXN
LOGICAL
AC
T W I C E NUMBER OF D I R E C T I O N CARDS
LOOK UP D I R E C T I O N
N O T T H I S ONE FOUND I T GO P R I N T CARD
TRY A G A I N
NOT I N T A B L E * P R I N T F I R S T B A D CARD
AND GET N E X T CARD.
F L I P SWITCH
P R I N T C A R 0 OUT
ON B C D OUTPUT T A P E , AND ON L I N E

--

--9 5 10
9520
9530
-.
__-_
9540 9550
9560
9570
9580
9590

-- -

---

_-

-_- _

--

&-~/--6-3
(

W R I T E ERROR MESSAGE

s
5
L

/?-,-\-

TRY TO MAKE SENSE OUT O F CARD

- -- - - -

A FIN

--- -

--

96 10
9620
9630
9640
9650
9660
9670
9680
9690
9 7 00
9710
97z_0z_o___.-.--

GET N E X T CARD

GO A S IF

-.-

u<;d_

--

CARDREAD

RESTORE P R I N T S W I T C H O - ~ X H

---

-- - -- --

-- --

P I C K UP TRA ADDRESS AND SAVE I T

SET C E L L S IN

LOWER~ORE---

--

------

9770
9780
9790
9800
9 8 10
9820
9830
9840

TURN OFF A c O ! ! % ~ w % T
P I C K UP SYSTEM I N D I C A T O R S
R E S E T ERROR AND D E B I G I N D I C A T O R S
EXEC UTE S P E C I F I C OVERLORD PROGRAM
ERROR I N D I C A T O R

-- --- - - ---

--

-----

--

- ---

--

--a

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

9850
9870

--

PKINT DIRECTI~NCARD---ON 8CD OUTPUT T A P E 7 AND ON L I N E

--

.--

-- -

- -

-- - --- -- -----

- - 9890- - .
9900

>-

_ _

9?4

9920
9930

-- ..---

L U 3 L O

LQ317
-0320
21
10322
10373
10324
1
0
10376
10377
10330
10333
LO334
10335
10336
10337
10340
LO341
10342
10343
10344
10345
10346
10347
10350
10351
10352
10353
10354
10355
10356
10357
10360
10361
10362
10363
10364
10365
10366
10367
10370
10371
10372
10373

LOJL430UOUOU

0070 00 0 10477
673171256060
00?u 00 0 10537
622563622563
00?0 00 0 10437
242522642760
~
0
4
2
632147256060
0070 00 0 11074
246444476060
07
0
10770
:56?5:31:225
0020 00 0 11307
0 00000 0 00000
10336
- 1 00000 0 00000
0 00000 0 00000
002551514651
603145606231
712560232151
246040466575
514346512440
606054006001
546060606060
002163632544
476360634660
464725512163
256022252646
512560623171
256023215124
605125212460
404665255143
465124406060
605446600354
002551514651
604645603145
476463736022
646360276631
452760464560
214570304666
604046652551
434651244065
544660600554
002545246046

+I30
k3L 1
L$tIN
9960
4757
TRA
9VDN
--- --991Q--4758
BC I
!.,SIZE
9980
4759
-mA---AYs-zE-----99904760
BC I
1, S E T S E T
1.5M0010
4761
TRA
I-IV~~T
- t S . M o n 2 0
4762
BC I
1, DEBUG
1.5M0030
4763
7
TRA
OVOBG
_ _ _ - - -- - -4764
BC I
LITAPE
1.5M0050
4765
WA
OVTAP
1 5 5 C U Q 4766
BCI
1 t DUMP
4769
TR 4
nVRL R n
---- -- - --- - - -- - . - - 47 70
BC I
1, S X C I S E
4771
TRA
OVFXS
4772 O V S V I
TEMPORARY STORAGE F O R I N O I C A T O R S
1.5M0090
4773 O V T B I SYN
OVSVI
FOR I N D E X I N G R I R F C T I O N C A R D - 0
4774 O V I N D S T R
1.5M0110
P R E S E T FOR L I S P I V D I C A T O R S
4775 S Y S I N D
SYSTFM w I C A T Q j & a GO UFRF
l ~ a 1 7 0
4776
OVCEY B C I
7,OEXROR I N S I Z E C A R D - 0 V E R L O R D +O 1+
1.5M0130

--

--

--

'
c

----

OVNSM BCI

9,OATTEMPT

T O O P E R A T E B E F O R E S I Z E C A R D R E A D -OVERLORD-

---

--

-4777

L.5YQ140000-_..-_----

p
p
p
-

4778
4779

UC I
OVRDM B C I

11 *O 3*
JIOERROR
ON I N P U T ,

- --

----

--------

--

B U T G O I Y L ; ON ANYHOW -OVER1 ORD-

--

- ---

- --1.5M0150
5 5 . " - -----

+O

4780

OVALF B C I

----

7 1 0 E N D O F F I L E ON I ~ P U T -0VERLORD-

*D

-.

6+

---- --

--

- ---

- -- --

- --

--

---

.
-

--

--

--

- --

--

--

-- ----

------.---

--- -- --

- -

- ------

--

---- - --

-----

- - --

- -

-A

--

------

- -

P A G E 10'3

10374
10175
10376
10377
10400
10401
10402
10403

SONNIE-S

266026314325
604645603145
476463604046
652551434651
244060544660
600654606060
0 00004 0 10406
006060606060

y-~
10422

-10423
10424
10425
10426
10427
10430
10431
I0432
10433
10434
10435
la436

0055 00

0056
0020
0057
0054
0074
0054
0074
0055
0057
0604
0074
0020

00
00
00
00
00
00
00
00
00
00
00
00

000004

000020
0 10570
000100
000002
4 00633
000001
4 00651
000001
000002
0 10340
4 11310
0 10230
000004

----

---

0 1 QTHDAY A S S E M B L Y

-- - -

--

-- - - --

-- --- -

--

_ ---

--- --- - -- - -

--- -

-- -- - --- - -

-- -

--- - -

- - - - ----

--

----

--

- - - - - - -- -

OVBUF+2,,4
B E G I N N I N G OF V A R I A B L E F I E L D I N D I R CRD
4781 O V P O S
4782
BC 1
190
-----D O U B L E--SPACE P R _ I - N T ~ - O ~ F J . ~ ~ D I R E ~ ~ I O N _ - C R1-5MOlBO
D
_
4783 OVtJUF B S S
14
O V E R L O R D D I R E C T I O V CARD B U F F E R
1.5M0190
4784
1.5M0200
4785
DEBUG
OVERLORD D I R E C T I O N
1. 5M0210
4786 OVDBG S I R
4
S E T BEBUG I N D I C A T O R
1-5~0220 - - - - 4787
PREFORM OVTST
1.5M0230
4788 *
1 5M0240
4789
1.5M0250
4790
T E S T OR T S T O V E R L O R D D I R E C T I O N
-1-5M0260
4791 OVTST RNT
20
T E S T FOR SETUP
1.5M0270
4792
TRA
OVNSZ
ERROR FOR N O 0 S I Z E C A R D H A S B E E N R E A D 1.5M0280
RIR
T A P IN D
4793
RESET TAPE I N D I C A T O R
1-5P0101
RFT
2
4794
WRITE TEST
1.5M0290
4795
TSX
TAPDMPp4
DUMP O N S Y S T M P
1-5M0300
4796
RFT
1
T E S T F O R NEW CORE I M A G E
- --1 5M0310
4797
TSX
O V L T 14
G E T ONE
1.5M0320
4798
SIR
1
SET READ I N D I C A T O R
1.5M0330
----4799
RI R
2
TURV OFF W R I T E I N D I C A T O R
1.5#0340
4800 O V T A
ST1
SYSIND
U P D A T E SYSTEM I Y D I C A T O R S
----------1.5M0350
4801
TSX
SEVALQ94
P E R F O R M T H E E V A L QUOTE OPERATOR
1.5M0360
4802
TR A
OVRLRD
GET N E X T OVERLORD D I R E C T I O N CARD
1.5M0370
4803 D E B U G 1 3 0 0 L
4
DEBUG I N D I C A T O R
1.5M0380
4804
1.5M0390
---- -4805
SETSET D I K E C T I O N CARD
1.5M0400
4806 O V S S T K N T
20
T S S T FOR S I Z E
1 5 ~ 0 4 1- 0
- -._--___----.
---4807
TRA
OVNSZ
ERROR, NO S I Z E
1 5M0420
4808
RIR
TAPIMD
RESET TAPE I N ~ A T O R
_
- _ - 1 ~ 5 ~ ! 0_-_! 2 -_
_- _
4809
RFT
2
T E S T FOR S A V E CORE-1.5M0430
4810
TSX
TAPDMP, 4
S A V E FOR
I T V E W IMAGE - - - --1.5M0440
----4811
RF T
1
1.5M045D
4812
TSX
OVLT14
GET ONE
1-5M0460
----4813
SIR
2
SET WRITE I Y D I C A T O R
1-5MO470
4814
RI'
1
RESET R E A O D I C A T O R - & ! 5 318 L
- -4815
TRA
OVTA
PERFORM E V A L Q A ~ D - G E T N E X T C A R D
1.5M0490
4816
--1 5M0500 -- - _ _ _ _4817 *
SET
O V f R L O R D DI R E C r I O N
1.5M0510
4818 O V S E T R N T
20
T E S T FOR S I Z E
1 5"05 2L!L.--.--_----.
4819
TRA
OVNSZ
ERRORS NO S I Z E C A R D
1.5M0530
4820
RIP\
T A P INO
1.5P0103
R E S E T T A P E INDICGL!!!
_
-- 4821
RFT
2
CHECK W R I T E I N D I C A T O R
1.5M0540
4822
T SX
TAPDMP.4
DUMP ON S Y S T M P
_ - - -- .__
--1~.5M055O0
4823
RFT
1
T E S T FOR MEW C D R E I M A G E
1.5M0560
4824
TSX
OVLT.4
GET O N E FROM S Y S T M P
.-1.5M0570 --- ---_ - 4825
SIR
2
SET W R I T E I N D I C A T O R
1 5M0580
4826
RIR
1
R E S E T R E A D I N DICATOR
- 1.5MD590_ --_ _
- - 4527
ST I
SYS I N 0
U P D A T E SYSTEM I \ D I C A T O R S
1.5M0600
4828
TSY
IEVALQ, 4
EVALUATE SET
1.5M0610 --- - - - - - --- --- ---- ---

--

pp

10437
10440
10441
10442
10443
10444
10445
10446
10447
LO450

0056
0020
0057
0054
0074
0054
0074
0055
0057
0020

00
00
00
00
00
00
00
00
00
00

000020
0 10570
000100
000002
4 00633
000001
4 00651
000002
000001
0 10434

10451
10452
10453
10454
10455
10456
10457
10460
10461
10462
10443

0056
0020
0057
0054
0074
0054
0074
0055
0057
0604
0074

00 000020
00 0 10570
00 000100
00 000002
00 4 00633
00 000001
00 4 00651
00 000002
00
000001
00 0 10340
00 4 11310

--

--

6
3

--

.
-

PAGE 1 0 1

BONNIE-S

B I K r H D A Y ASSEMBLY

- -.-

- --

-10464
10465
10466
10467
10470
10471

0441
0056
0020
0051
0604
0070

0 0 0 10340

LDI

00
00
00
00

TRA
IIR
ST I
T RA

SYSIND
10
OVRLRD
3
SYSIND
OVRLRD

FIN

0VFBLC)RD 0 IRFC-CARD

KFT

7
TAPDMPt4
7
TAPIND
PPT I N I I
*+4
SYSPPT
$ I 1 0 5 1 .4
SWFF
PPT I N D
SYS IND
SYSPOT
f ( IOSl,4
BWEF
OVS V I
*+, 4
1s. 2
+*, 1
OVT OV

nn

10477 0054 0 0
10473 0074 0 0
10474 0057 0 0
10475 0057 0 0
10476 0056 0 0
10477 0020 0 0
10500 0500 0 0
10501 0074 0 0
10502 0522 0 0
10503 0057 0 0
10504 0604 0 0
10505 0500 0 0
10506 0074 0 0
10507 0522 0 0
10510 0 4 4 1 0 0
10511 0774 0 0
10512 0774 0 0
10513 0774 0 0
10514 0500 00
10515 0601 0 0
10516 -0754 0 0
10517 0760 0 0
LO520 - 0 7 6 5 0 0
10521 0760 00
10522 -0760 00
10523 0420 0 0
10524 0020 00
10525 0020 00

10526
10527
10530
10531

10532
10533
10534
10535

0056
0020
0057
0020

0054
0074
0500
0074

00
00
00
00

00
00
00
00

4829
onnn~n 4 8 3 0
0 10230
4831
000003
4837
0 10340
4833
0 10730
4834
4835 +
4836 *
-+38-37 *
0000024838
OVDN
4 00633
4839-sx
000007
4840
000100
4841
000040
4847
0 10503
4843
0 00363
4844
4 00276
4845
0 00353
4846
000040
4847
0 10340
4848
0 00364
4849
4 00276
4850
0 00353
4851
0 10336
4852
4 00000
4853
OVRLX
2 00000
4854
CIVRLY
1 00000
4855
OVRLZ
0 10525
4856
0 00000
4857
0 00000
4858
0 00006
4859
0 00045
4860
0 00006
4861
0 00003
4862
7 77777
4863,---'%IP~
4864
o 10523
0 10230
4 8 6 5 OVTOV
000040
4 8 6 6 PPTIND
4867 *
4868 *
4869 *
4870
OVONE
000020
0 10570
4871
000003
4872
0 10434
4873
4874 +
4875 *
4876 *
4877 u
4878 *
000002
4879
OVSZE
4 00633
4800
0 10402
4381
4 06622
4382

RNT

RIR
R IR
RNT
TRA
CL A
TSX
XEC
R IR
ST1
CL A
TSX
XEC
LDI
AXT
AXT
AXT
C LA
ST 0
PXD
COW
LGR
C OM
SSM

rtin
TRA
BOOL
ONE
RNT
TR A

RIR
TR A

- ----

GET SYSTEM I N D I C A T O R S
TFST FW
INII.LAXOBO F F * GET NEXT D I R E C T I O N CARD

--- --

- --- - ----- -

--

1.5M0620
L-5.MO63L
1.5M0640

--

GFT NFXT D I R F C T U - - - C A R L

_-

---1,5M06401.5M0670
--.-1 - 5 M Q 6 8 0
1.5M0690

.-

---

--- --

ON~BLREBeAbLD-~UCL_LNDICATRES-L,5MO~-

T F t T WRITE l L U U m _
DUMP CORE ON SYSTMP

-- _

_-_

--1.5M(rZQO--___
1.5H0710
9

R E S E T W R I T F R 1 , 5 M O I Z . L - 1.5P0104
RESET TAPE I N D I C A T O R
SFE I F PUNCH TAPF tlSED
1,5jM073n
1.5M0740
S K I P I F NOT USED
TAPE S P F L
l
.
.
-.
SET UP 1 - 0 COMMANDS
1.5M0760
WRITE FOF D
M ---1 - ~ . 5 U L - 1 5M0780
RESET INDICATOR ,
UPDATF SS
Y
--ld.mma
TAPE SPEC.
1.5M0800
SET UP 1-0 ttOHMeNDS-_- - 1S M Q 8 L O _ _ - _ -_
WRITE EDF DN
SYSPOT
1.5M0820
RESTORE O R I G I N A L I N D I C A T O R S A
N
D
INDEX REGISTERS
1.5M0840

--_----

2--- -

STORE I N LERO
H
T THE P X E L - _

--

.----..-----

.____>flOfiL-

010

--

1.5M0880
.-__1.5M08-90
1 5M0900

\
-

37

Y5-

--

-- -- -.
STOP
P R E S S R E S E T A N D S T A R T TO RESTARL-LJX
TRAQSFER TO GET NEXT D I R E C T I O N CARD
1.5M0960
PUNCH TAPE I N D I C A T O R
-l-&.iYBA79
1 5M0980
OVERLORD D I R E C T I O N
- .- --l._5M0990 - - -- - - - -- - -- - 1.5M1000
20
TEST FOR S I Z E
_ - 1~*~1,0_19--_
-OVNSZ
ERROR, NO S I Z E CARD READ
1.5M1020
3
RESET READ AND WRITEI_NO_I&TGR_S_
-1.~5M1.0~0 - - _ " .
-OVTA
SAVE INDICATORS A I D DO EVAL Q
1.5M1040
- -- - - -- -1 . 5 ~ 1 ~ 0 - _ . .
-.--NlpNZtN31N4
(OVERLORD O I R E C T I D N CARD)
1.5M1060
LENGTH OF B I N A R Y PROGRAM, N 2 = LENGTH OF P U B L I C WSH _DOW_N..
1_.5M1070
-__
___ _N 3 = LENGTH OF F U L L WORD SPACE, N 4 = LEYGTH OF FREE STORAGEl.5M1080
-

-1,7
4.- 1
OVRLRD
40

7979..79.79797979797979--~-.---

SIZE
N1 =
LIST,
RFT
TSX
C LA
TSX

2
TAPDMP? 4
OVPOS
6NUMdRy4

*_

TEST FOR DUMP OF CURRENT CORE IMAGE

-.-DUMP
- ON SYSTMP
----_ ._
-- - - SET TO TRANSLATE UUMBERS OU S I Z E C A R D
-- LENGTH
-- OF BINARY
--PROGRAM
-_--

12..x&1C!!o-.. -1.5M1100
1.5M1110
1.5M1120
1.5M1130.

-- --

-- -_-- -

--

--- - - - -- --

---

PAGE 102

10536 0100
LO537 -0600
10540 0 0 7 4
1 0 5 4 1 0100
10542 -0600
10543--C0 74
1 0 5 4 4 0100
10545 -0600
10546 0074
1 0 5 4 7 0100
10550 -0600
10551 0074
10552 0 4 4 1
10553 0 0 5 4
10554 0020
10555 0055
10556 0057
10557 0 6 0 4
10560 0020

?
,

S U ~ \ ~ I J I ~ BIRTHOAY
-S
00 0 10561
0 0 o 02305
00 4 06622
00 O 10561
00 0 02306
03-4
06622
00 0 10561
00 0 0 2 3 0 7
00 4 06622
00 9 10561
00 U 02310
00 4 02077
00 O 10340
00 000013
0 0 tJ 1 0 5 6 1
0 0 000022
00 000001
0 0 0 10349
00 0 10230

1 0 5 6 1 0 4 4 1 00
1 0 5 6 2 0055 0 0
10563 0 6 0 4 0 0
10564 0 0 7 4 00
10565 -0 00000
10566 0 00007
10567 0020 00

0 10340
000001
0 10340
4 01222
0 00364
0 10341
0 10230

10570 0 0 7 4 0 0
1 0 5 7 1 -0 0 0 0 0 0
1 0 5 7 2 0 00012
10573 0 0 2 0 0 0

4
0
0
0

v.

--

01222
00364
10350
10230

.A

g
W,
"
,

,z
,,

"
,

S
10574
10575
10576

20
9
18

17
16

'5
14
3

3
9
8
7

----

--

10577
10600
10601
10602
10603
10604
10605
10606
10607
10610
10611

0634 00 4 10726
0 6 3 4 00 2 10727
0 6 3 4 0 0 1 10730
0600
O6Ul
-0600
0604
0500
0074
0100
-0120
-0600
0074
-0600

00
00
00
00
00
00
00
00
00
00
00

0
0
0
0
0
4
0
0
0
4
0

11040
10723
10724
10725
10402
06627
10770
11002
11042
06622
11043

ASSEMLLY

4583
TZF
4884
sTi~
4885
T SX
4886
TZE
4887
ST0
4888
-- TSX
4889
TZE
4890
STQ
4891
TSX
4892
TZE
4893
STO
4894
TSX
4d95
LD!
4896
RF T
4847
TRA
4898
SIR
4899
R IR
4900
ST I
4901
T RA
4902
4903
OVCER L D I
'YO4
SIR
4905
ST:
4906
TSX
4907
MZE
4908
4909
TR4
4910 *
4 9 1 1 OVNSZ TSX
4912
M ZE
4913
4914
TRA
4915 *
4918
DUMP
4917 +
4918 *
4919 *
4920 *
4921 *
4922 *
4923
DVDMP SXA
4924
SX A
4925
SXA
4326
ST Z
4327
ST0
STQ
4928
ST1
4929
4930
CLA
4931
TSX
4932
TZF
4933
TMI
4934
STQ
4935
T SX
4936
STQ

- --- ---

OVCER
LBINPG
BNUMPR t 4
OV,CEh
LPBPDL

---- -- - -- .

-- - - ------

-.

- -

--

ERROR I F ZERO
SAVE-NUMBER
-- -LENGTH OF P U B L I C PUSH DOWN L I S T
-ZERO
- --IS-E_R_RDR
.
_-- - ..
SAVE NUMBER

1-. 5M1140
-- _1---5_~_1
1 5 ~ ~ - - - . .--.
1.5M1160
- 1.5~1170 -1.5M1180
$NUMBR9 4-___- -LENGTH-OF-F.U_L_I
WRRRL%PALE
- - - - - 1.5M1190
--- - --- - -- - - -OVCER
ZERO I S ERROR
1 5M1200
SAVE NUMBER
.
_
_
-.--.- _l-->W_b4-..-__ -. - .LFULWS
BNUMRR 9 4
LENGTH OF FREE STORAGE
1 5M1220
OVCEK
ZERO I S ERROR
--1 5M1230
-- -LFREES
- S A V E NUMBER
1.5M1240
SSETUP t 4
1.5M1250
PERFORM SETUP
5Y51i~D
SYSTEM I N D I C A T O R S
1.5M1260
10
TEST FOR ERROR I N SETUP
1 5M1270
-------------__------OVCER
YES, 00 ERROR PROCEDURE
1.5M1280
22
1.5M1290
SET S I Z E AND N R I T E I N P _ I c A - I R S _ 1
RESET READ I N D I C A T O R
1 5M1300
UPDATE SYSTEM I N D I C A T O R S
1.5M1310
SYSIND
OVRLRD
GET NEXT D I R E C T I O N CARD
1 5M1320
-.----..1.5M1330-------------SYSIND
GETT SYSTEM I Y D I C A T O R S
1.5M1340
1
CONVERSION ERROR I N S I Z E , SET READ INDl.5M1350
SY5IND
UPDATE SYSTEM I Y D I C A T O R S
1 5M1360
OUT PUT 14
W R I T E ERROR MESSAGE
1.5M1370
8CDOUT
ON BCD OUTPUT T A P E AND O N L I N E
1.5M1380
OVCEHv 9 7
-. - --1.5M1390
--OVRLRD
GET NEXT D I R E C T I O N CARD
1 5M1400
1.5M1410
OUTPUT 1 4
W R I T E EXROR MESSAGE
1.5M1420
SCDOUT
ON BCD OUTPUT TAPE A N D - O N L I N E
_ _1.5M1430
-OVNSM, 10
1.5M1440
OVRLRD
GET NEXT D I S E C T I O \ I CLRnD_
1 5M1450
1.5M1460
6EGINNINGpENDvN
(OVERLORD . D I R E C T I O N )
1.5M1470
-ALSO A V A l L A B L E TO L I S P
1.5M1480
B E G I N N I N G I S A NUMBER T O START DUMP AJ,
END A NUMBER
-1.5M1490
[ M E A N I N G O B V I O U S ) AND k I S A NUMBER I F ZERO G I V E S A
1 5M1500
S T R A I G H T OCTAL DUMP 4ND I F NON-ZERO G I V E S A COMPLEMENT
1.5M1510
( L I S P T Y P E ) DUMP.
1.5M1520
1.5M1530
-- OVDXp4
SAVE I N D E X R E G I S T E R S
1.5M1540
OVDY p 2
1.5t41550
OVDZ t 1
1.5M1560
OVDEX
INDI L A T E OVERLORD ENTRANCE
1.5M1570
SAVE AC
OVDC
UVDQ
SAVE MQ
---- - - ---OVD I
SAVE S I
OVPOS
P O S I T I O N OF V A R I A B L E F I E L D
1.5M1580
-f NUMBR, 4
B E G G I N N I N G OF DUMP
1.5M1590
ODER
--. ERROR I N C O Y V E R S I O N
1.5M1200
OVENK
I F F L O A T I N G P O I U T YUMBER, LOOK A T 'KEYS-OBEG
1.5M1610
-.
SNUMBR 4
NUMBER TO EYD DUMP A T
1.5M1620
OEND
1.5M1630

-2236

-- _

._

-.------------------4----------

P A G E 103

BONNIE-S

--

- - - --

----

10612 0100 00
1061 3
0074 n 0
10614 -0600 00
1
0
6
1
50 l n 0 00
10616 0500 00
10617 0400 00
10620 0621 00
10671 0407 00
10622 -0120 00
10623 0734 00
10624 0534 00
10675 1 77777
10626 -0634 00
10677 0070 00

10630 0500 00
10631 0602 00
10632 0774 0 0
10633 0500 00
10634 0400 00
10635 0622 00
10636 0131 0 0
10637 0074 00
10640 0602 00
10641 -0500 00
10642 0100 00
10643 -0625 00
10644 0520 00
10645 0020 00
10646 -0130 00
10647 0074 00
10650 0602 0 0
10651 0014 00
10652
0560 00
10653 -0765 00
10654 -0501 00
10655 0602 00
10656 -0600 00
10657 - 2 00001
10660 2 00003
10661 -0520 00
10662 0020 00
10663 0074 00
10664 0 00000
10665 0 00024
1 0 6 6 6 - 0 6 0 0 00
10667 -05UO 00
10670 0020 00
10671
10672

0
4
0
0

O
0
0
0

0
1
4
4
4
0

0
0
7
0
0
0
O
4

1
D
0

O
0
0
4
2
4

O
0
0
2
2
1
2
O
0
4
0
0
0
0

10770
06677
11046
10770
11043
00371
10641
11047
10770
00000
11042
10676
11042

11036
11051
00072
11042
00445
11042
00000
11021
11050
00000
10671
11037
11046
10673
00000
11021
11074
11021
00472
00006
00452
11075
11076
10713
10641
11037
10630
01222
00364
11050
11037
00472
10631

0600 00 2 11074
0020 00 0 10652

10673
0602 00 0 11045
l o b 7 4 -0320 00 0 11047

- - --

--

- -- - -

- --

-- - -

B I R T H D A Y ASSEMBLY

4937
49 1 8
4939
4940
4941 OVGE
4947
4943
4944
4945
4946
4947
4948
4949
4950
4951 *
49 57 O A X T l
4953
OAXT
4954
4955
4956
4957
4958
4959
4960
4961 OLDQ
4962
4963
4964
4965
4966
ODXCL
4967
4968
4969
4970 OBQ
4971
4972
4973
4974
4975
4976
4977
4978
4979
4980
4981
4982
OVDSH
4983
4984
4985 +
4786
OSTZ
4987
4988 *
4989
OLID
4990

TZE
TSX
STQ
T7F
CLA
ADD
STA
SlfR

TMI
PAX
LXA
TXT
SXD
TRA

ODER
SNL&,fjR.
4
O L ISO
ODER
OEND
$81
OLDQ
~ R F G
ODER
0.1
OBEGr 4
++1.4.
6
OBEGv4
OVDSH

C O N V E R S I O N ERROR
T Y P F f l F DUMP

1.5M1640

L . S U 5 L --.-.----

1.5M1670

CmYEfLm[1R
0

E N D DUMP NUMBER

- _-.
-

- -

--

- --

SET ADDRESS
G ~ L V ! U ~ U L " C L . . O E - W O R D S TO B E - D U M P E D
N E G A T I V E !\UMBER Y I E L D S E K d O R
C U T ICLLbLL1EX1GET B E G I N N I N G

--

-L 5 8 1 6 9 L
1 5M1700
1-5M1.710
1.5M1720

'

1
1- 5M1740

D F C R E M E N L . . , B L U U B 1 7 F ~ L N E U ~ 5 0 0
P U T I N D E C R E M E N T FOR O C T A L C O N V E R S I O N 1.5M1760
START THE
------

'

------ - - --I

CAI
SLW
AXT
CLA
ADD
STD
XCA
TSX

s LW

CAL
TZF
STL
ZET
TRA
XCL
TSX

SI W
TSX
LDQ
LGR
OhA
SLW
STG)
TNX
TIX
NZT
TRA
TSX

P I C K LL!?XUR- .-- -- -- -- - -- ----- -- -P U T S T A R S OR B L A N K S I N L I N E

SET I R 7
-B E G I N I N N I N G OF L I V E
1.5M1810
6 WORDS PER U N F
-__I.-SMLC
---_,
U P D A T E L I N E NUMBER
___NUMBER
TO M - L _ _1*5M1840 - -- - ._
OCTLPr4
CONVERT TO OCTAL
1.5M1850
OUP -__-B E G I N O U T P U T lIVE
--~c~MLIL~_O
_
_*+,1
P I C K U P WORD TO B E DUMPED
1.5M1870
OSTZ
EASY I F A I 1 ZERO
.lfM
j 1B6(-0
-__---- - -- .-OVDZS
I N D I C A T E S O M E T H I N G NON-ZERO DUMPED
OLISO
S K I P I F S_LRAIGHTDUH-f'------. .-1.5fl1890
--OLID
DO L IS P DUMP
1.5M1900
-NUMBER T O MQ
-__- -_
__ -5M1910
1- _ - -nCTLPr4
CONVERT L E F T H A L F
1-5Ml920
oup+zo 2
PUT I N OUTPUT I I N E
------- ----- -..---OCTLPr4
CONVERT R I G H T H A L F
1 5M1940
BLANKS
B L A N K S T O MQ
- 1 .-5M195Q _ _
6
MAKE A HOLE
1.5M1960
OBLANK
1 5M1970
INSERT ONEBLANK
--_-_
OUP+2l r 2
PUT I N OUTPUT L I N E
OUP+22,2
DITTO
---------------------- "OVDFNvlrl
E X I T I F DONE
1.5M2000
OLDQ,2r3
LOOP 6 T I M E S
_ -1.5M2010__
-- - OVDZS
S K I P I F NOT A L L Z E R O S
OAXTl
GO B A C K A N D G E T S T A R F L A G F O R Z E R O S - -- ---OUT P U T 9 4
W R I T E L I N E O F DUMP
1.5M2020
BCDOUT
ON BCOOUT
-- -id
-5_~2-0-50---- OUP 1 ,20
1.5M2040
OVDZS
S E T S W I T C H TO T E S T F O R L I N E OF Z E R S _
- . ---BLANKS
BLAVK THE FLAG F I E L D
OAXT
GET N E X T L I N E
-- _ _ 1 .-5M20_SO_ - -1.5M2060
OUP +20,2
IF
Z E R O P U T ZERO S I N o u ~ ~ K ~ - - ---L I ~ ~
OBQ
GO A S I F C O N V E R T E D
1.5M2080
---. - 1.5M2090ODLT
L ~ ~ P F ~ N 7~1- D u
~ F
E M E
OLDM
- MASK O U T A L L B U T T A C At@
PREFIX
_ _1.5M2110 _ _
_
DVOSF
OUP+1
1892
OBEG
$Q06
OBEG

----

_
a

--

- -

STZ
CAL
T RA
ST2
TRA
SLW
AN A

--

--

PAGE 1 0 4

BONNIE-S

- --

-- - -

-- --

--

10675
10676
10677
10700
10701
10702
10703
10704
10705
10706
10707
10710
10711
10712

00
00
00
00
00
00
00
00
00
00
00
00
00
00

0
2
4
0
0

10700
11045
10646
11045
11045
11045
11045
11045
11021
11044
11074
11021
11044
10652

1 0 7 1 3 -2 0 0 0 0 3
1 0 7 1 4 -0500 0 0
10715 0602 0 0
10716 2 00001
10717 0074 00
10720 0 00000
10721 0 00024
10722 0020 0 0

2
0
2
2
4
0
0
0

10717
00472
11074
10715
01222
00364
11050
10726

10723
10724
10725
10726
10727
10730
10731
10732
10733
10734
10735

0
0
0
4
2
1
0

00000
00000
00000
00000
00000
60000
11040
00001
11041
11002
10230

10776
10737
10740
10741
10742
10743
10744
10745
10746
10747
10750
10751
10752
10753
10754
10755
10756
10757

0100
-0500
0020
-0535
-0634
0535
0634
0560
0074
-0501
0602
0074
-0501
0020

0 00000
0 00000
0 00000
0774 0 0
0774 00
0774 00
0520 00
0020 00
0520 00
0020 00
0020 0 0

0634
0634
0634
-0625
0622
0500
0074
-0534
0074
0601
0131
-0734
0074
0601
-0534
0074
0601
0020

00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00

0
0
O
4
4
4
4
0
4

4
0
0
0

4
2
1
0
0

0
4

2
4
0
0

2
4
0

2
4
0
0

10726
10727
10730
11040
11040
03322
0460G
11040
13075
11042
00000
00000
13075
11043
03321
13075
11046
10616

--

--

BIRTHDAY ASSEMBLY
-

4991
TZE
0 DC
TRANSFER I F L I S P
1.5M2J.20
4992
CAL
ODLT
HAS PREFIX AND/OR TAG7LUMP STRA.SHT
1.5M2130
'
ODXCL
GO TO NORMAL DUMP
1.5M2140
4993
TRA
ODLTI~
COMPLEMENT DECREMEhT
- - --- 1*5M_2_1_50. - _ _ _ _
- -4 9 9 4 ODC
LDC
STORE
1.5M2160
4995
SXD
ODL T, 4
4996
LAC
ODLT,4
COMPLEMENT ADDRESS
1.5M2170
1.5M2180
4997
CXA
ODLT 14
STORE
4998
LOQ
OOLT-------- --.. .%
IN-MQI
4799
TSX
nCTLP, 4
CONVER LEF T HALF
'
1*2!~k!0___
5000
ORA
ODSAR
OR I N A *
5001
SLW
OUP+20,2
PUT IN OUTPUTLINE
"
5002
TSX
OCTLP,4
CONVERT RIGHT HALE.
1.5M2230
1.5M2240
5003
ORA
ODSAR
PUT I N
5004
TRA
0 BQ
PUT AWAY AS USUAL
1.51112250
5005 *
1.5M2260
5006
OVDFN TNX
OVOLL* 2.3
SKIP I F L I N E F I L L E D OUT
5007
CAL
BLANKS
GET B L A N K S I N AC
1.5M1780
SLW
OUP + 2 0 1 2
BLANK REST O F L I N E
-5008
5009
TIX
4-l,zl 1
1.5M2270
5 0 1 0 OVDLL TSX
OUTPUT 1 4
WRITE LAST OUTPUT L I N E
5 0 11
BCDOUT
1 5M2280
5012
OUP 1 120
1.5M2290
5013
TRA
OVDX
GO TO E X I T
FOLLOWING 6 SELLS CONTAIN AC, M Q t SI, AN0 I R S U P O N A M P ENTRANCE
5014 *
5015
OVDC
AC CONTENTS
5016
OVDQ
DITTO MQ
------- -----5 0 1 7 OVDI
DITTO S I
5018
OVDX
AXT
*+, 4
RESTORE INDEX REG1 STERS
1.5M2300
5019
OVDY
AXT
**, 2
1-5M23 10
5020
OVDZ
AXT
**1 1
--- - --1.5M2320---- -_
- 5021
LET
OVDEX
T E S T FOR LISP OR O V T R L O
EXIT--~D
5022
T RA
194
LISP EXIT
---,-5023
L ET
OVDEK
TEST FOR ENK MODE
5024
TRA
OVENK
GO TO KEEYS
- 5025
T RA
OVRLKD
GO B A C K FOR N E X T - D ~ R EC
CATR~TO
- - -N 5026 Q
1.5M2360
- - - -- ---5 0 2 7 DUMPXX S X A
OVDX 1 4
L I S? EYTRANCE
1.5M2380 - --- ---5028
SXA
OVDY, 2
SAVE INDEX REGISTERS -------.
1.5M2390
5023
SXA
OVDZt 1
5030
ST L
OV OEX
SET FOR L I SP-_EX1T
_ . .- -1
: 5!!2_40_0
-._
-5031
ST D
OVDEX
SAVE A R b l
1.5M2410
5032
CL A
$ AR G4
P I C K UP 1 0 FOR DUMP
-- --- _ __JL_%%!)- -_ -- -_ .
5033
TSX
SPRINT14
PRINT I T
1.5M2430
5034
LX 0
OVDEX, 7
ARG 1
1.5M2440
------------ -. --- - 5035
TSX
FIXVAL94
E V A L U A T E A S FI XEOPOINT
NUMBER
1.5M2450
5036
STO
OBEG
1.5M2460
STORE I N BEGINNING
- --- --5037
XCA
ARG 2
1.5 ~ 2 4 7 0
5038
POX
017
ARG TO INDEX 2
1- 5M2+80_
_ - _ - -_-_- --5039
TSX
FIXVALl4
EVALUATE A S FIXED POINT NUMBER
1.5M2490
5040
ST0
OENC
1.5M2500 -- - - -----------..- 5041
LXD
BARG312
ARG 3
1.5M25 1 0
5042
TSX
F IXVAL 4
EVALUATE ASF I XE D--POINT
1- 5 A 2 520
- - - --- NUMBER
- - ST0
CLISD
5043
TRA
OVGE
EXECUTE DUMP
5044
-- - - - - - 1 5 _ ~ ~ _ 5-40
-.-.
OOOOOOOOOO.OO

'

'

--

- --

---

--

-- ---

P A G E 105

BONNIE-S

B I R T H D A Y ASSEMBLY

_ _ _--

----- -

5045 +

2
1
0
0
0

10727
10730
11040
11043
11042
O 11046
0 10616

10770 0074 00 4 01222

10771 -0 00000 0 00364
10772 0 00006 0 10774
10773 0020 00 0 10726
10774 002221246024
10775 644447602151
10776 276444254563
10777 626040466525
11000 514346512440
11001 605446600454

ID

11002 0420
11003 0760
11004 -0754
11005 -0763
11006 0601
11007 -0754
11010-0763
11011 0601
11012 -0754
11013 -0763
11014 0601
11015 0601
11016 06bO
11017 0100
11020 0020

77
00
00
00
00
00
00
00
00
00
00
00
00
00
00

77777
00004
00000
00001
11046
00000
00021
O 11042
0 00000
fl 00022
O 11043
0 11041
0 11040
0 10726
0 10616

11021
11027
11023
11024
11025
11026
11027
11030
11031
11032
11033
11034
11035

00
00
00
00
00
00
00
00
00
00
00
00
00

0
0
0
0
0
0
0
0
0
0
0

11036

-0754
-07t3
0767
-0763
0767
-0763
0767
-0763
0767
-0763
0767
-0763
0020

7
0
0
0
0
0
0

00000
00003
00007
00003
00003
00003
00003
00003
00003
00003
00003
0 00003
4 00001

11021
00651
605454545460

5047
5048
5049
5050
5051
5057
5053
5054
5055
5056
5057
5058
5059

P Y Y SXA
SX A
tXA
STL
STQ
STO

*
ODER

---

OVDX s 4
OVDYt2
0Y.U. 1
OVDEX
D F W
OBEG

5T7

f l l IS0

TR A

OVGE

- -- --

--

-10761 0634 00
10762 0634 M
10763 -0625 00
10764 0600 00
10765 0601 00
10766 OhOO.-Da
10767 0020 00

-- -

- -- - _

--

-----

----

- --- --

-.

-- .---

- ----

---

- -- -

- - ---- --

-- --

.--

- - --

--

--

1 5M26 1 0
HPR
E NK
PX D
LGL
5i-0
PX D
LGL
STO
PX 11
LGL
ST0
S TO
ST:
TZE
TRA

-- -- -- -----

L 2 5 . 2 d
OUT P U T 4
W R I TE ERROR MESSAGE
1.5M2560
BCDOUT
OF] G C D O U T P U T - T A P L A L Q N L ~ - - I . 2 i U 3 ~-''
ODBAGP, 6
1.5M2580
OVDX
---,-R E S T O R F AND E X I T
6tOBAD DUMP ARGUMENTS -OVERLORD*O 4+
1 5 M2600

TSX
M7 F

TR A
O O B A U BCI

5060 *
5061 OVENK
5062
5063
5064
5065
5066
5067
5068
5069
5070
5071
5072
5073
5074
5075
5076 *
5077 O C T L P
5078
5079
5080
5081
5082
5083
5084
5085
5086
5037
5088
5089
5070 +
5091 OLTALP
5092 O V L T
5093 O V D S F

- --

-1

'

S T O P FOR K E Y S - P U T K E Y S I N MQ
C L E A R AC
------- --T Y P E O F DUMP I N S I G N B I T
PUT AWAY
C L E A R AC
BEGINNING
-

7,63

030
1
OL I S D
OtO
17
ObEG
090
18
OEND
OVDEK
OVDEX
OV DX
OVGE

PXD
LGL
ALS
LGL
ALS
LGL
ALS
LGL
AL S
LGL
ALS
LGL
T RA

090
3
3
3
3
3
3
3
3
3
3
3
194

SYN
SYN
6CI

OCTLP
OVLTXX
I , +*++

C L E A R AC
EmID

---

----

--

_ --

--- .

- --

- -

- -.

- -.-

.-

-_

-_-

_-

1-5M2630
-- - _-_---1 -2M1640 - _.
-1.5M2650
1.5M2660
-.
- .~
- - . -..
1 5M2670
.
..- .-..,., ... . - . -...
-l.SMz63Q
1.5M2690
.
~. 1-0
5M2700 .. .
1 5M27 10
1.5M2720
-.
1.5M2730
lAM-0
-.--1.5M2750
_ - -_ .
--_
-__
_ _ ..

CONV E R T L E u A L F m u M x o - o _ c C T n L L L
C L E A R AC A N D DO S H I F T D A N C E

-.---

---

-.

-- --

---

m
--v
-e
--

- -

-- -

SET S k I T C H ON E X I T
S E T O V E R L O R D I X _ I _ T - -___--_
E X I T ON ZERO R E G U E S T
-m!!XESS
DUNL

1.5M2620
-_-.-.-------

.-----

.---A

~-

EXIT
-

- -

---

--

OOOO.

S T A R F L 4 G AFTER!DUfl!!I&G

LkR~>SS--__

. _ _

---

--

--_

----- --- PAGE 106

BCYNIE-S

--

- -

--

---

---

.
.
.-

- --

--

- ---- --11037 0 0 0 0 0 0 0 0 0 0 0 0
11040 0 0 0 0 0 0 0 00000
11041 0 00000 0 00000
11042 0 00000 0 00000
1 1 0 4 3 0 0 0 0 0 0 0 00000
1 1 0 4 4 540000000000
11045 0 0 0 0 0 0 0 0 0 0 0 0
1 1 0 4 6 0 00000 0 00000
1 1 0 4 7 -3 0 0 0 0 0 7 COO00
11050 606060606060
1 1 0 5 1 606060606060
11052

11074
11075
11076
11077
11100
11101
11102
11103
11104
11105
11106
11107
11110
11111
11112
11113
11114
11115
11116
11117
11120
11121
11122
11123
11124
11125
11126
11127
11130
11131
11132
11133
11134
11135
11136

0634 0 0 4 11225
0634 00 2 11226
0634 0 0 1 1 1 2 2 7
0 0 5 4 0 0 000100
0020 0 0 0 1 1 1 0 7
0054 00
000002
0074 0 0 4 0 0 6 3 3
0054 0 0 0 0 0 0 0 1
0074 0 0 4 0 0 6 5 1
0057 0 0 0 0 0 0 0 1
0055 00 0 0 0 0 0 2
0055 0 0
000100
0604 00 0 10340
0 7 7 4 00 4 00005
-0530 00 0 1 0 4 0 6
0560 00 0 1 0 4 0 7
-0763 0 0 0 0 0 0 2 3
-0765 00 0 0 0 0 0 1
- 0 3 4 0 00 4 11243
0020 00 3 1 1 1 2 1
002C 00 0 11143
2 0 0 0 0 1 4 11116
0002 0 0 0 1 1 1 3 1
0 0 7 4 0 0 4 01222
O COO00 0 0 0 3 6 4
0 00014 0 11127
0020 00 0 10230
006062465151
707360606060
0 0 0 0 0 0 0 09000
6031 62604546
636021606521
433124604331
624760632147
256024256231

5094
5095
5096
5097
5098
5099
5100
5101
5102
5103

OVDZS
OVDEX
OVDEK
OBEG
OEND
ODSAR B C I
ODLT
OLISD
OCDM SVN
OUP
BC1

5104
5105 *
5106 *
5107 *
5108 4
5109 *
5110 *
5111 *
5112
OVTAP
5113
5114
5115
5116
5117
5118
5119
5120
5121
5122
5123 O V T J J
5124
5125
5126
5127
5128
5129
5130 O V L A
5131
5132
5133
5134 OVCMP
5133
5 1 3 ~
5137
5138
5133
OVTRN

BSS

TAPE

SXA
SXA
SX A
XFT
TRA
RFT
TSX
HFT
TSX
RIK
S IR
SIR
ST1
AXT
CAL
LUQ

LG L
CGR
LAS
TR A
IRA
TIX
SLW

rsx
TRG
RCI

1t *OOOOO

---,4+2+1
21

18

- --

*-

S U P R E S S E S O U T P U T WHEN D U M P I N G Z E R O S
Z E R O F O R O V E R L O R D E X I T NON-ZERO 1 LISP1.5M2760
T E S T C E L L NON-ZERO FOR E N K MODE
B E G I N DUMP
--- - - - -- 1.51.12770
---1.5M2780
E N D DUMP
1.5M2790
A * FOR COMPLEMENT DUMPING
.
TEMPORARY STORAGE
1.5M2800
. --NON-ZERO
F O R 7 _ L ISP T Y P E DUMP
1.5M28 10
1.5M2820
M A S K FOR TAG A N D P R E F I X
B L A N K S FOR B E G I N N I N G OF OUT P U T L I N E
1.5M2830

--_

- - - -.

--

'

--

--1.5M2840-

ROOM F O R R E ST O F L I N L

1.5M2850
1.5M286_0
SYSXXXIA~
(OVERLORD D I R E C T I O N CARD)
1.5M2870
S Y 5 T A P t SYSTMP, S Y S P I T A N D S Y S P O T A R E C U R R E N T l Y
1.5M2880
R E C O G I N I Z E D L I S P TAPES. U N I T D E S I G N A T I O N I S B Y CHANNEL
1.5M2890
( A * 89 OR C 1 A N D NUMBER ( 1 T H R U 1 0 ) .
1.5M2900
1 5M29 1 0
OVTPX94
SAVE INDEX REG1 STERS
1.5M2920
1.5M29 30
O V T P Y 92
1.5M2940
OVTPZ 9 1
--- -- TAPIND
S K I P I F L A S T C A R D WASN O T A T A P E C A R D 1.5P0105
OVTJJ
S K I P READ AND WRITE S E C T I O N
1.5P0106
1.5M2950
2
T E S T F O R T A P E DUMP ON S Y S T M P
TAPDMP94
DO I T
-.- 1 5M2960
1
T E S T FOR R E A D
1 5M2970
OVLT94
G E T +4EW I M A G E
1.5M2973
1
RESET READ I N D I C A T O R
1.5M2975
7
SET WRITE I N D I C A T O R
1 5 M297L---T 4P I N D
SET TAPE D I R E C T I O N I N D I C A T O R
1.5P0107
SYS I N D
U P D A T E S Y S T E M INDICAT_OR_A-*.----1.5M2980
.
1.5M2990
514
NUMBER O F E N T R I E S I N T A P E T A B L E
OVBUF+Z
----1 5M3000
OVBUF+3
G E T T A P E D E S I G N A T I O N I N AC A N D M Q
1.5M30 1 0
19
S H I F T I N T O AC
-1 5M30ZO
1.5M3030
1
DUMPING 9 B I T
1.5M3040
OVTTBr4
COMPARE W I T H TAP_E___TAP8_LLE.-.
*+2
I ~ O T T H I S ONE
1.5M3050
O V T AA
THIS I S I T
- - -- - -- -- - - -1.5M3O-60-- -- --OVLA149 1
TRY A G A I N
1.5M3070
O V T RM
YOT F O U N D 1 C O M P L A I N 1-5!G!zE--- --OUT PUT 1 4
1.5M3090
RCDOUT
1 5M3 lS9-______--------.----OVTRN, , 1 2
1.5M3110
OVRLRP
GET N f X T D I R E C T I O N C A R D
1.5M3120
-210 SORRY,
1.5M3130

------

E
6

--- ----

--

-ma-------

OVTRM
OC I

--

----

--

5140
5141

B I R T H U A Y ASSEMBLY

91

I S N O T A V A L I D L I S P T A P E D E S I G N A T I O N -OVERLORD--

--

Z*

*O

1.5M3140
1.5M3J20_o_-

--

--

---- -

-- --

- .-."" . -

- --

--. - - ---

_-

----.---

--

-- - -

~..

PAGE 1 0 7

BONNIE-S

.-

--

--.

BIRTHDAY ASSEM3LY

-11137
11141
11142
11143
11144
11145

274521633146
5
514346512440
605446600754
-0773 0 0 0 00006
-0754 0 0 0 00000
-0763 0 0 0 00006

D
NuUuLl ! - - . .
11147 0774 00
11150 0056 0 0
11151 0774 0 0
11152 0056 0 0
11153 0774 00
11154 0763 0 0
11155 -0320 0 0
11156 0441 0 0
11157 -0054 0 0
11160 0020 0 0
11161 0400 0 0
11162 0734 0 0
1 1 1 6 3 -3 COO00
1 1 1 6 4 -3 COO12
11165 0500 0 0
11106 0560 0 0
1 1 1 6 7 -0773 0 0
1 1 1 7 0 -0763 O C
11171 0560 0 0
I L L 7 2 -0763 0 0
11173 0020 0 0
1 1 1 7 4 - 0 5 0 1 0CJ
11175 -0501 0 0
11176 0602 0 0
11177 0560 0 0
11200 -0600 C O
11201 3 00001
11202 0500 0 0
11203 0074 0 0
11204 0560 0 0
11205 -0620 0 0
1 1 2 0 6 0 5 6 0 00
11207 -0600 0 0
11210 0560 0 0
11211 -0620 0 0
11212
0560 0 0
11213 -0620 00
11214 0766 0 0
11215 0540 0 0
11216 0500 0 0
11217 -0501 0 0
1 1 2 2 0 C b L l C0
11221 0625 0 0
1 1 2 2 2 OC74 0 0
11223 0 00000
1 1 2 2 4 0 0OCO5

2 00003
0000Q3
2 00002
000003
2 OOOOL
0 00006
0 00417
0 10410
770000
0 11167
0 00401
1 00000
1 11165
1 11174
0 00472
0 10407
0 00030
0 00014
0 10410
0 00006
0 11122
4 1125C
2 11253
4 00370
4 11243
0 11234
4 11716
0 00367
4 00276
0 00357
0 00145
0 00350
0 11273
0 00361
0 11274
0 00362
o 11276
C 013G1
0 11302
2 11256
1 11270
0 11231
0 11231
4 01222
0 00364
0 11231

- ----

- ---- .--5 1 4 2 OVTAA

5143
5144
5145
5146
5147
5148
5149
5150
5151
5152
5153
5154
5155
5156
5157
5158
5159
5160
5161
5162
5163
5164
5165
5166
5 1 6 7 OVTPS
5168
5169
5170
5171
5172
5173
5174
5175
5176
5177
5178
5179
5180
5181
5182
5183
5184
5 1 8 5 OVTXX
5186
5187
5188
5189
5170
5191

RQL
PX D
LGL
PA I
AXT
RNT
AXT
RNT
AX r
i GI
ANA
LO1
LFT
TRA
ADD
PAX
TXL
TXL
CLA

LOQ
KQL
IG I

L DQ
CGL
TRA
ORA
OR4
SLW
LUQ
STQ
TXH
CLA
TS X
L 130
SLQ
L DQ
STQ
LDQ
SLQ

LDQ
SLQ
WPlJA
RCHA
CLA
OR A
ST A
STT
T SX

6
0.0
6

. -_392
3
d
2t2
2
1,2
6
$8017
OVBUF+4
770000
++7

DUMP THE COMMA

CLAER L
CHANELL LETTER I N AC
_ I N-LNRICATOR S TRY CHAN. C

"-- --- ---

1.5M3160
--I.
5M1L7DD.
1.5M3180
1.5M33.90
1e5M3200

----

- --

- ---

_ _ _-

_-.
- --

-- --- - ---- - --- -- TRY 8

1.5M3220
SKIP I F B-QRL-IF NO SKIP,
MUST BE A
1.5M3240
TAPF NUMBER I N 8(;
1&Mrn-----MASK OUT ALL B U T 4 LOW ORDER B I T S
NE X T M2!3I11 N I N L ~ X J L T D L----____
LS M3L10- -- _ -SKIP I F LEFT MOST CHARACTER I S A 0
1.5M3280
_
1.5 4 3 2 9 0
I F LEFT MOST I S 0 ADD 9 TO THE 1
1.5M33 0 0
RFSULT TO INDEX 1
1.5
-----.-LERO UNIT DOES NOT GO
UNITS OVER TEND!_N-T-G_ --_--_____1 - 5 4 3 3 2 0 - - -OVER 10, COMPLAIN
1.5M3330
-- 1 . 5 ! 3 - 3 5 0
POSITION
TAPE-EESIG
1.5M3350

--

I E L E L . - C - - -

a Q9

0.1
*+2,1t3
OVTPSpl, 10
BLANKS
OVBUF+3
24
12
OVBUF+4
6
OVCMP
OVTCT 14
OVCHN t 2
TAPASG14
OVTTBt4
OVTPO--OVTXX,4r 1
SYSTAP
$(1OSlt4
ZTCC
BOTTOM+l
dRDS
GCRCB
dRCH
GCRDC
6LCh
GCRCD
GCIOC
OVCLi*2 OVCTN* 1
OVT PP
OVTPP
OUTPUT , 4
BCDOUT
OVTPP, 95

---

---

-_

-----

-----.--.-.3-~ 5 kl~boO-_.

ALL I N AC
l 2 5 M 3 &Q
GO COMPLAIN
1 5M3390
O R I N I O R R C D FOLRTHAT I A P E - - _ - -..I .-5_M340 0 OR I N PROPER CHANEL DESIGNATION
1.5M3410
CI-lANGE TAPE A S 2 i . s ! 9 & E & L---.----.
,LIMIfkZ.o -.-MAKE OUTPUT MESSAGE BY GETTING NAME
1.5M3430
-P U N 1 0 MESSAGE__
-_-_ --- 1.5M3440SKIP FOLLOWING I F NOT SYSTAP
1 5M345O

--

--

--

--

-_-

-. -

--A

-- -- -

- -

- ----

--

-- - --

_
SET UP 1-0 COMMANDS FOR SYSTAP
MPKE PROPER SYSI-ELGAL_L_AR_
AhD SET UP BflOT STRAP RECORD

- 1_.-5&3k bO_.__
1.5M3470
&M_34_8-0
1.5M3490
.. 1.5M3510
_ _
1.5M3520
- - 1 5M3550
1 5M3560
--- -- - - --- -1 5M3320 --_.
1.5~3580
PUCH OUT THE 2 CARD CA-LLER -- _ - -1.5M35901.5M3600
CHANNEL COMMANDS
T l % ! A , A b H ! l o C i HA E D O N E B Y MA_K-ING-- -- _ 1- 5M3-6 lo_A MESSAGE
1 5M3620

----

- ---

1-5M3370

.
-

__

--1-,5M?1I?ZOo
- -.--- --1.5M3640
PRINT OUT
- -THE NEW
-- AS-SjGNMEYT
-1 _5_M36_50-_
__ - _
1.5M3660
-- - - -- - --- -- - . --- --- 1.513670 - -

--

A-.
---

- .-

PAGE 1 0 8

RONNIE-S

BIRrHOAY ASSEMBLY

--

---

- - -..

-- -

- ..

11225
11226
11227
11230
11231
11232
11233
11234
11235

0774 00 4 00000
0774 00 2 00000
0774 00 1 00000
0020 00 0 10230
006060000000
316260454666
604331624760
000000000000
336063606060

11236
11237
11240

627062474763
627062474663
627062473163

11243
11244
11245
11246
11247
11250
11251
11252
11253
11254
11255
11256
11257
11260
11261
11262
11263
11264
11265
11266
11267
11270

0 0 0 0 0 0 0 OOOOC
0 00000 0 00000
0 00000 0 00000
0 00000 0 00020
0 00000 0 00020
0 00003 0 03200
0 00002 0 02200
0 00001 0 01200
000000230000
000000220000
000000210000
000000000100
000000001160
000000001060
0000C0000760
000000000660
000000000560
00G000000460
000000000360
000000000260
0000000C0160

11270 0 00006
11271 0060 00
11272 0021 00
11273 0762 0 0
11274 0540 00
11275 0600 0 0
1 1 2 7 6 (2544 0 0
11277 0 0 2 1 0 0
1 1 3 0 0 -1 2 0 0 0 3

0
0
0
0
G
0
0
0
0

00011
00001
00011
01221
00016
00001
0000G
00001
00000

11301

0 00000 0 00174

11302

2 0 0 0 1 1 0 11270

5192
5193
5194
5195
5196

OVTPX A X T
OVTPY AXT
OVTPZ AXT
TR A
OVTPP BCI

**,4
RESTORE INDEX REGISTERS
4192
**, 1
OVRLRO
GET NEXT DIRECTION
-..-..
.--.
CARD
- -.
-3 3 0 0 0 0 1 s NOU L I S P

- -

..

---

-..-

1.5M3680
1 5M3690
1.5M3700
...- . - -- 13 5M_3710- ._

------

-.
.
.
-.... .
.

..

_-

'

.- .

OVTPO @ C I

5197
5198
5199

2,000000.

--.--

1.5M3740

1-2M27 5 0

TABLES FOR GVTAP

BC I
5,SYSPPTSYSPOTSYSPITSYSTMPSYSTAP

1.5M3760

-- --

--- -5200
5201
5202
5203
5204
5205
5206
5207
5208

OVTTB PZE
PZ E
PZE
PZ E
PZE
OVTCT PZE
PZ E
PZ E
OVCHN BC1

LOW DENS, BCD PPT

LOW DENS, BCD P I T
LOW GENS* BCO POT
16
H I DENS, 81N TMP
16
h I DENS* B I N TMP
3*512+2*64,93
CHANNEL C
2*512+2*64,
2
B
145 12+2*64t, 1
A
3~000COOOOOBOOOCOA00

5209

OVCLT BCI

9 ~ 0 0 0 0 1 0 0 0 0 0 90 0 0 0 8 0 0 0 0 7 DO006 0 0 0 0 5 0

---

--- -BC I
OVCTN O S S

lrOOOOl
0

----------

IOCO
TCOA
TTR
GCKDB RTBA
GCRDC KCHA
STZ
GCKDD LCHA
TTK
IOCT

9,915
1
9
1
14
1
0
0.13

GCRDE H T K

CONT I N

GCIOC IGRP

GCRC,,S

1.5M3780
1.5M3790
1.5M3800
1.5M3810.
1 5M3820
1 5M3830
1-5M3840
1.5M3850

~1.5M3860
0 2

--

----

- --

--

--

-p---u------.------e-

- .-- --- ---

----- -

--

-.

- -

J d i ! e s 2 ?! ----

---

1.5M3880

-.-

1.5L1292P_-1 5M3960
1.5M3970 -1.5M3980

--

\ - -

-_

_ _

"-

-- - - -

. - A

--

-- .---

-*

-___ _ _-

-_.

--

--

_--

1 5M4020
------- -- - -STOP I F TAPE DOES NOT LOAD
1.5M4040
LOAD 1-0 COMMAND FROM TAPE
1- 5M4050
-- - .
--- - TRANSFER TO OilE
1 5M4060
LOAD FIRST 3 WORDS FROM TAPE
1.5M4065
---------"- SECOND CARD OF CALLER
1 5M4070
BECOMES A TRANSI_!
_CAR0
1 5 M-4280
1-0 COMMANDS TO PUNCH CALL CARDS
1.5M4090
- - -- -- --1*5MkL!?(30_ - _ --SELECT THE SYSTEM TAPE

o
m
-

-"*

SYSTEM CALL CARD PERFORMS A LOAD TAPE SEQUXCJ ON-_THE_SY_STAP

GCRD

---

--

.----

--__

----_1_%5M37to

-- -- --

5210
5211
5212
5213
5214
5215
5216
5217
5218
5219
5220
5221
5222
5223
5224
5225
5226
5227
3228

- .- --

..--

-- -

--. -- -.- -

- - ---

--

--

---

--

--

P A G E 109

BONNIE-S

-11303
1 1 104
11305
11306

11307

2 00001 0 11301
5229
7 nnnnn n I 1 3 n ~ 5 7 3 n
2 0 0 0 0 0 0 11306
5231
o QOOOO o OOOOQ
5737
5233 *
n o 0 100
5734 T A P I N D
5235
5736 i
-5237 *
5718 i
0 0 2 0 0 0 0 10230
5239 OVEXS

11310 0 6 3 4 0 0
11311 0634 00
11317 0 0 7 4 0 0
11313 0074 0 0
11314 0 0 0 0 0 0
11315 0 0 0 0 1 4
11316 0 6 0 0 0 0
11317 0600 00
11320 0774 0 0
11321 0634 00
1 1 3 2 2 007'4 0 0
11323 0601 00
11324 0340 0 0
1 1 3 2 5 0 0 2 0 00
11326
1 OOCOL
11327 0520 00
11330 0070 00
1 1 3 3 1 -0625 0 0
11332 0 6 0 1 0 0
11333 0 0 2 0 00
11334 -073b 0 0
11335 0754 00
11336 0 6 2 1 0 0
1 1 3 3 7 C600 0 0
11340 2 0 0 0 0 1
1 1 3 4 1 -0634 0 0
11342 007G 0 0
11343 -0625 0 0
11344 0 7 7 4 0 0
11345 0 6 3 4 0 0
11346 0 0 7 4 0 0
11347 0 O G C O O
11350 0 5 0 0 0 0
1 1 3 5 1 0600 0 0
11352 0600 0 0
11353 -0734 0 0
11354 0 5 6 6 O C
11355 -0765 0 0
11356 -0754 0 0

4 11416
2 11417
4 01521
4 01222
O 00364
0 11520
0 11516
0 03653
2 00144
2 11437
4 05732
0 03506
0 11517
0 11327
2 11341
0 03653
0 11334
0 03653
2 03653
0 11321
4 OOOCC
4 00000
2 03653
0 03653
2 11321
2 11410
4 01521
0 11516
2 00144
2 114C7
4 O120u
0 01216
2 03653
2 03653
0 03316
4 00000
C 00370
0 00022
4 00000

- -

--

B I R T H D A Y ASSEMBLY

5241

5243
5244
5245
5246
5247
5748
5249
5250
5251
5252
5253
5254
5255
5256
5257
5256
5259
5260
5261
5262
5263
5264
5265
5266
5267
5268
5269
5270
5271
5272
5273
5274
5275
5276
5277
5278
5279
5280
5281
5282

IORP
P

IOKP

~ncn

GCRDEt

.n
*+lttO
*+7.

o..o

--

- --

-. .
--

--

---

- -- -

TRANSFER CARL
1.5M4110
7 RI A.NLLQBI~L_ ---_.-.--_--ll---.-.-- 1-M.4120
1.5M4130

CILTJ~WLILUNMEL

--

- --

- -

--

.-

__

'

.-I

'

-_

1.5M4150
RnOl

100

FXC. T q F

i ) I R U I L 6 0 B L I ; Q ~ G C ; l ~ - a L C T a L C T T H E ~ _ C Q M P I L AND/OR
ER

- -

--

l-SPUQ(L-

- - - .

-- -

THE I N T E R -

P R E T E R GOES H E R E

--TRA

OVRLRD

EVALQ

A SUCCESSOR T O T H E A P P L Y O P E R A T O R t T H E GRAND NEW

H 1961) T H E E V A L _ B I I O T F n p E R A I D R -

E V A L Q SXA
SX A
'
TSX
TSX

ZTZ
STZ
AXT
E V O R D SXA
TSX
STU
CAS
TRA
TX I
LET
TRA
STL
ST0
TR A
EVQA
PDX
PXA
ST A
ST2
TIX
E V Q O P SXD
TSX
STL
AXT
E V Q L P SXA
EVQS TSX
CLA
STZ
ST L
PDX
LDQ
LGR
PXO

FVI QX14
EVLQY t 2
$TIME14
OUT P U T 14
BCDOUT
E V Q 8 M v 112
EVQRTS
EVQB
E V Q B L 12
EVQRX t 2
$READ14
EVQAN
EVQSP
*+2
EVQOP, 2 1 1
EVQB
EVQA
EVQB
EVQ@,Z
EVQRD
0.4
0 14
EVQB 2
EVQB
EVQRDt29 1
E V Q T H 12
$TIME94
EVQRTS
EVQBLtZ
EVQE'I92
SPACEX94
6SPACE
E V Q B 92
EVQB t 2
S A L IS T
094
$ZERO
18

094

R O U T I N E N O T W R I T T E N YET.

8 A P R I L 1961
.

------.~--.---

7790
7800

SAVF W
R
SAVE I R 2
P K IN T T IMENND_DAT.E_W R I T E O P E N N I N G MESSAGE

1814-.

..

_-

_.-

.- --

.
.
.
. .-

7820

-188L
7830

--

---7840
7910
-. ._
- - 3 3 6 0- -_
7870

_--.-

IN IT I A U L - T E S _ T _ L E L L S
- --- DITTO
L E N G T H O F E V A L Q Y O l L B U F F E R-7 8 2 L
S A V E I N D E X 2 I N C A S E O F R E A D ERROR
READ THE I N P U T L I S T S
------- -- - - --SAVE THE L I S T
7920
COMPARE W I T H S T O P ATOM
-- .
-- - - --- - - I S NOT
7940
- S E T I R 2 TO P R O E _ R _ A C U E
.
S K I P I F F I R S T L I S T OF DOUBLET
I S SECOND L I S T
-._ -_
- -.--_ .7_9_70 _
_. _
- .
,..F L I P SWITCH
7980
S A V E F I R S T L I S-TOF -DOUBLE-TT_IN_
BUFEER
7 9-9 0
-.
GET NEXT L I S T
8000
L I S T TO INDEX--8&l-Q- _ - -- _ - MOVE TO A D D R E S S
8- 0.-.
20
S A V E SECOND LIST OF D O U B L E T - I L ~ ~ - ~ ~ ---- 8~30
---F L I P SWITCH
8040
~
~ LIST !
X
~
805-0
I N D E X V A L U E OF L A S T L I S T READ I N
8060
PRINT TIME
-- .
-- ---- -- -- - - - -S E T ERROR R E T U R N S W I T C H
8070
L E N G T H OF BUFFER--_.
- -..--8080 -.- _ ----- SAVE INDEX VALUE
8090
W R I T E OUT S o M E L A ! N K _ L N E S
_. - ..3 DOUBLE SPACES
P I C K UP-FIRST
I T E M I N RUFFEX_ --ZERO THE BUFFER ENTRYRESET A L I S T
M A K E AN ATOM T E S T
8170
-- -- - - - - .
.
- - --- - - - -.
SECOND L I S T I N T O MQ
F I R S T L I S T I N T O AC
_
- --- .-- -

'

P A G E 110

BONNIE-S

11357
11360
11361
11362
11363
11364
11365
11366
11367
11370
11371
11372
11373
11374
11375
11376
11377
11400
11401
11402
11403
11404
11405
11406
11407
11410
11411
11412
11413
11414
11415
11416
11417
11420

0074 00 4 07745
0 00000 0 00002
602565214350
644663256060
-0774 00 4 11377
0634 00 4 11376
0774 00 4 14663
0634 00 4 11377
0601 O C 0 11513
-0734 00 4 00000
0500 00 4 00000
0734 00 4 00000
3 77776 4 11441
0500 00 0 11513
0600 00 0 03321
0774 00 4 00000
0020 00 0 00000
0601 00 0 03506
0074 00 4 01222
0 00000 0 00364
0 00005 0 11534
0500 00 0 03506
0074 00 4 04604
0600 00 0 03506
0774 00 2 00000
-3 00000 2 11412
2 00001 2 11345
0074 00 4 01521
0074 00 4 01222
0 00000 0 00364
0 00005 0 11541
J774 00 4 00000
0774 00 2 00000
0020 00 4 COO01

11421
11422

0634 00 4 11376
0020 00 0 11365

11423 0074 00 4 06311

11424 0074 00 4 05214
11425 0074 00 4 05421
11426 0074 00 4 02410
11427 0520 00 0 11516
11430 0020 00 0 11407
11431 -0625 00 0 11516
11432 0074 00 4 01222
11433 0 00000 0 00364
11434 0 00012 0 11546
11435 0560 00 0 03506
11436 0074 00 4 04604

5283
5284
5285

B I R T H D A Y ASSEMELY
TSX

PRINARt4

---

-----

P R I N T HEADING

2
BCI

2 1 EVALQUOTE
,-

.. -

.-

-.

--

..

5286
AXC
EVQFTv4
SET RETURN I N D E X C E L L
5287
SXA
EVQD t 4
$APPLY74
S E T C E L L O F PROGRAM
5288 EVQMP A X T
5289
SXA
E V Q F T 9 4----.--_----IN.LLCqULE_.~.tP_!oGR_~t?
5290
S 10
EVOAC
S A V E AC
. .
5291
PDX
0 14
F I R S T L I S T TO I R 4
..
5292
CLA
094
8180
5293
PAX
0 4
8 190
5294
TXH
EVQATv41-2
TRANSFER IF FIRSTLISTISATOMIC
8200
5295 E V Q N F C L A
EVQAC
R E S T O R E AC
--c
5236 E V Q L
STZ
BARG3
N U L L A L I S T FOR A P P L Y
i
, .
5297 E V Q D A X 1
**,4
RETURN INDEX REGISTER
-c
5298 E V Q F T T R A
+i
PROGRAM TO BE E X E C U T E D
5299 E V Q E S T 0
EVQAN
S A V E ANSWER
8320
TSX
O U T P U T 14
PRINT END OF EVALQUOTE MESSAGE8330
5300
5301
BCDOUT
8340 ____--5302
EVQAM t 5
8350
5303
CLA
EVQAN
P I C K U P ANSWER
----8360
- A _ - _ - .
TSX
$PRINT14
PRINT I T
8370
5304
5305
ST Z
EVQAN
LERO TEMP STORAGE
8380
E R R O R S COME B A C K HERE, R E S T O R E I R 2
8390
**, 2
5306 E V Q E R A X T
5307 E V Q T H T X L
E V Q D N * 2 t **
E X I T I F L A S T DOUBLET EXECUTED
.
8400
5308
TIX
EVQLPt2,l
EXECUTE NEXT DOUBLET
5309 E V Q D N TSX
$TIME14
A L L DONE, P R I N T T H E T I M E
8420
P R I N T C O L S I N G MESSAGE
8430
TSX
OUT P U T 14
5310
BCDOUT
5311
8440
-.
5312
EVQMEt 1 5
8450
+*74
RESTORE L I N K I R
-- .
5313 E V L Q X AXT'
8460
5314 E V L Q Y A X T
**,2
8470
5315
TRA
114
EX I T
-- . . --83%
5316 *
5317 *
E V A L Q T L I S P E N T R A N C E TO E V A L Q U O T E
-.
----. --5318
5319 E V A L Q T S X A
EVQDv4
SET RETURN I N D E X C E L L
5320
TRA
EVQMP
GO T O MAIN PROGRAM----'
5321 *
-.
. -. 8490
-.
- -- ..- -- .. .- . - . 5322
ERROR R E T U R N S CONTROL H E R E
8560
5323 *
85 10
-~
5324 E V Q E R R TSX
TEREADt4
CLEAN UP READ BUFFER
5325
TSX
T E R P R I 14
CLEAN UP P R I N T BUFFER
- 8530 .--.5326
TSX
TERPUNt4
C L E A N U P PUNCH BUFFER
5327
TSX
TERPDL14
R E S E T P U S H DOWN L I S T
8540
.--~..
- ..
5328
ZET
EVQRTS
8550
SKIP I F I N R E A D I N SECTIONOFEVALQUOT
TRA
EVQER
5329
- 8560
EXECUTE NEXT DOUBLET
5330
STL
EVQRTS
MOVE T O O P E R A T E S E C T I O N O F E V A L Q U D T E
8570
TSX
OUTPUT ~4
5331
M E S S A G E T H A T R E A D WAS ERROR T E K M I N A T E L _ E E E8580
E
5332
i3CDOUT
8590
5333
EVQRE t 10
8600
-- ..~... ...~
...
.
~.
5334
CLA
EVQAN
P I C K UP L A S T L I S T READ I N
86 10
5335
T SX
CPRINTt4
8622
---7
p
-_

m
e
-

--~-=--

PAGE 1 1 1

BONNIE-S

BIRTHDAY ASSEMRLY

-11437
11440

11441
11442
11443
11444
11445
11446
11447
11450
11451
11452
11453
11454
11455
11456
11457
11460
11461
11462
11463
11464
11465
11466

0774 00 2 00000
1 0OOnl 7 1 1 1 4 1

-0 7 3 4

00
-3 00000
0500 00
0734 C O
-0625 0 0
- 3 06732
-3 0 6 7 3 3
-3 1 0 1 5 6
-3 1 0 1 5 7
0600 00
-3 1 0 1 0 2
-3 1 0 1 0 3
-3 1 0 1 4 1
3 10142
-0734 0 0
0500 00
0734 0 0
-0754 00
0520 0 0
0020 00
0601 00
-06OC 0 0

4
4
4
4
0
4
4
4
4
0
4
4
4
4
4
4
4
4
0
0
0
0

00000
11374
00000
COOCS
U515
11450
11501
11452
11457
11515
11455
11501
11441
11441
00000
00000
00000
00000
11515
11375
03506
11514

11471 -0754 00 0
11472 0074 00 4
11473 0131 00 0
11474 0500 C O 0
11475 0074 00 4
11476 C131 0 0 0
11477 0500 0 0 0
11500 0020 00 0

00000
03730
00000
11514
03730
00000
03506
11375

11501 -0734 00 4 00000

11502 0500 00 4 00000
1 1 5 0 3 0 7 3 4 0 0 4 COO00
11504 0500 00 4 00000
11505 0 6 2 1 00 0 11377
11506 -0754 00 0 00000
11507 0131 00 0 00000
11510
0520 0 0 0 11515
11511 0074 0 0 4 10072
11512 0020 0 0 0 11376
11513
11514
11515
11516

0
0
0
0

00000
00000
UOOOO
00000

0 00000
0 00000
0 00000
0 00000
00144

5336
5337
5338
5339
5310
5341
5342
5343
5>44
5346
5347
5348
5349
5350
5351
5352
5353
5354
5355
5356
5357
5358
5359
5360
5361
5362

EVORX AXT
TXI

**r 2
F V m . 1

5365
5366
5367
5358
5369
5375
5371
5372
5373 *
5374
EVQFS POX
5375
CLA
5376
PAX
5377
CLA
5378
STA
5379
PXO
5380
XCA
ZE T
5381
5382
TSX
5383
TR.1
5394
5385
EVOAC
5 3 8 6 EVPCQ
5387
EVOST
5 3 8 8 EVQHTS
5389
EVQBL EQU

0.4
EVQNF1410
0.4
014
FVQST
++2 1 4 1 bSUBR-1
FVQFS 9 43 SSUBR
*+2r4v$EXPR-l
EVQFXs4. fEXPR
EVQST
++2r41$FSUBR-l
EVQFSr4r SFSUBR
EVQATI~~SFEXPR-1
EVQAT,4,$FEXPR
0 14
094
0 ~4
Or4

E V Q S I EVQZ
EVQAN
EVCFIQ
080
0,O
&CONS 1 4
EVOMQ
BCONS 1 4
EVQAN
EVQZ

-- - -

- ---- - -

_---___-

CASE FDK ATOFLC FIRST I I S T C!F UOUBI FT

FVOAT PDX
TXL
CLA
PAX
STL
TXL
TXL
TXL
TXI
STZ
TXL
TXL
TXL
TXH
EVQFX POX
CL A
PAX
PXD
ZET
TR A
ST0
STQ
PXO
XCA
PXD
TSX
XCA
CLA
TS X
XCA
ZLA
TR A

- - -- - - -- - --

RESTORE I R 2 TO RIGHT VALUE

SFT 1R 7 TO P R I 1 E B - Y I B L U L - _ --

-__-E X I T I F END OF ATOM

NFXT WORD
CAR OF ATOM
SE T S W ITCH F-&S
UBLQR-WRLOOK FOR SSUBR
TREAT A S F S U ! I A C K a U
LOOK FOR SEXPR
TRFAT A S FFXPR LAMOST)
SET SkITCH FOR FSUBR OR FEXPR
LOOK FOR F S U B R
LOOK

8640
fl65D
8660
841118680
_-&tLSIOO8 7 00

-------I-

_I-__

-- .--

--

------

FOR FEXPR

-----

-.!3~~--

FOUND AN FEXPR

8760
877-0 ___

THE EXPRESSION FOR THF FLXPR

-_ _ __ -- - -EXPRESSION TO AC
SKIP I F FEXPR
--- - --- -GO TO APPLY CALL
- FOR EXPR
SAVF THE EXPRESSION
-SAVE HQ
CLEAR
.
M Q AND
AC
-.
-8 6-40 _
- _
._._ -NULL A L I S T
8850
INTO MQ
8-&6-Q-- _--I-.-- ..
PUT SECOND L I S T I N AC
CONS(L,A)
-8 8 9 0 --_
ANSWER TO ARG 2
8900
FEXPR
----- ------GO TO APPLY FOR FEXPR
-

m.-m.-.-.---

--

-----

-.

---a-2%.--".0 14
094
014
014
EVQFT
010

FOUND FSUBR,

GET TXL INSTRUCTION

--

----

----

--

-- .--- - - -

EVQST
SPREAD14
EVQD

SAVE AOCRESS
ZERO
-----.
THE M Q AND PUT L I S T I N I C
SKIp
IF FSUR
SPREAC ThE ARGUMENTS
EXECUTE THE SUBR OR-FSUBR_-

100

TEMPORARY
C ITTO
TEST CELL
TEST CEEL
LENGhT O f

-. .--

8950
- -. - 89-60 _
8970
8 9 8--0--- - -8990
-..-.-29-(l-8-0
9090

-8!!ER--

--

--

--9 1 4 0 - - _

--

--

--

--

I
-

.- --.--

--

9120
S T O h ! G L ----__-__---__-__----.

I S NON-ZERO _FOR SUBR OR EX-PR

I S ZERO DURING READ I N

--

-. ----..-.--

--

PAGE 112

BONNIE-S

11517
11520
11521

0 0 6 7 7 2 0 00000
002565214350
644663256046

11526
11527
11530
11531
11532
11533
11534
11535
11536
11537
11540
11541
11542
11543
11544
11545
11546
11547

060133606060
603145476463
604331626362
604546666022
253145276051
252124336060
002545246046
266025652143
506446632573
606521436425
603162603333
GI2545246046
266025652143
506446632560
464725512163
465160606060
005125212431
452760632551

11556
11557

314560316260
603333333333

11560
11561
11562
11563
11564
11565
11566
11567
11570

-0634 0 0
0074 00
-3 11673
-0634 0 0
0634 0 0
C604 0 0
-0734 0 0
-0534 0 0
0634 0 0

4 11662
4 02312
0 02363
2 11663
1 11663
0 11666
1 00000
4 03321
4 21664

5390
5391

B I R T H D A Y ASSEMBLY
EVQSP
EVQBM B C I

BC I

5392

--

- --

7,OEVALQUOTE

STOP ATOM
OPERATOR A S OF 1 MARCH 1961.

--

---- --. -

,I $STOP

5,

- - -- - -

- --

--

--- -

---

--

--

- -- - -- -- -

--

9160
--em-----

---

----.-.

-------------

I N P U T L I S T S NOW B E I N G READ.

--

-- -

9170

- - -" .-

-->

'

<

5393

EVQAM D C I

5,OEND

OF EVALQUOTE,

VALUE I S

--

-...

9180

--

5394

EVQME B C I

5,lEND

5395

EVQRE B C I

7 r O R E A D I N G T E R M I N A T E D B Y AN ERROR.

5396
5397 *
5398 H
5399 *
5400 *
5401 +i
5402 *
5403 *
5404 *
5405 *
5406 *
5407 +
5408 *
5409 ERRSET
5410
5411
5412
5413
5414
5415
5416
5417

!3C I

1,

OF EVALQUOTE OPERATOR

.....

HE0
ERRORSETIEpNvSW)

9190

L A S T L I S T READ I N I S

9200

---------

----em

--9 2 10

-- -- --

--

-- -

-- - -

HORN I 4
SSAVE 14
$ENDBt,HORN+9
HORN+l, 2
IIORN+l, 1
HORN+4

091
3ARG3 1 4
ERNULL 1 4

--

-----

---

--

--

--"
-----

E X P R E S S I O N TO B E E V A L U A T E D _ _ ERROR B Y PASSSWITCH----

--

--

----

--

ERRORSET ATTEMPTS TO E V A L U A T E I T S F I R S T A R G U M E N L - I F
AN
ERRGR OCCURS D U R I Y G THE E V A L U A T I O N , OR I F MORE THAN N CONS-S
OCCUR D U R I N G THE E V A L U A T I O N , ERRORSET RETURNS W I T H A VALUE OF F
A F T E R RESTORING CONDITIONS
T O W H A T THEY-WERE
BEFORE THE
ATTEMPTED E V A L U A T I O N .
I F THE E V A L U A T I O N SUCCEEDS, ERRORSET
RETURNS L I S T OF THE RESULT.
I F SW = F, ERROR D I A G N O S T I C S ARE
SUPPRESSED, AND I F SW = T , THEY ARE INCLUDED.
SXD
TSX
TXL
SXD
SXA
ST I
PDX
LXI?
SXA

--

---

-- -*-----

--

- --

---

--- -- - -

--- --

--

P A G E 113

DONNIE-S

11571 ,0131 00
11577 -0774 f l 0
11573 0074 00
1l-574 0601 00
11575 0500 00
11576 -0370 00
11577 0400 00
11600 0407 00
11601 -0120 00
11602 -0760 00
11603 0601 00
11604 0500 CO
11605 0621 00
11606 -0320 00
11607 0601 00
11610 0020 00
11611 0600 00
11612 0560 00
11613 0502 00
11614 0601 00
11615 -0625 00
11616 0774 00
11617 0634 00

0 00000
7 00000
4 13075
0 11670
0 03742
0 00457
0 04106
0 11670
0 11611
0 00003
0 11667
0 11670
0 03742
0 00465
0 04106
0 11612
0 11667
0 00370
0 02317
0 11670
0 11671
4 11625
4 11665

11620 -0754 00 1 00000

11621 0074 00 4 15454
11622
11623

0560 00 0 00370
0074 00 4 03730

11624

0020 00 0 11643

11625
11626
11627
11630
11631
11632
11633
11634
11635
11636
11637
11640
11641

-0535 00
-0634 00
0020 00
-0534 00
-0500 00
-0320 00
0322 00
0100 00
0074 00
0020 00
0074 00
-0535 00
3 00000

4
4
0
4
4
0
0
0
4
0
4
4
4

11670
11641
11640
02317
77777
00461
00451
11637
02326
11640
17330
02317
11630

11643 0601 00 0 11670

11644 0500 00 0 03742
11645 -0320 00 C 00457
11646 0400 00 0 04106
11647 0402 00 0 11667
11650 0621 00 0 03742
11651 -0320 00 0 00465

BIRTHDAY ASSEMeLY

5418
541 9
5420
5471
5422
5473
5424
542 5
5426
5427
5428
5479
5430
5431
5432
5433
5434 OBOE
5435
5436
5437
5438
5439
5440
5441 *
5442
5443
5444 *
5445
5446
5447 *
5448
5449 *
5450 BSOON
5451
5452
5453 H A R P
5454
5455
5456
5457
5458
5459
5460
5461
5462 T U B A
5465
5466
5467
5468
5469
5470
5471

XCA
PDX
TSX
ST0
CLA
ANA
ADD
SUB
1 MI
S SM
ST0
CLA
STA
ANA
ST0
TR A
STZ
CDkl
CLS
ST0
STL
AXT
SXA
ATTEMPT
PXD
TSX

.... ,

W-

TFR 1 I

0.7

--.---

HORN+b
SCNT R 1
$AMASK
SCNT S
HORN+6
OBOE

HORN+5
HORN+6
SCNTRl
PDTMSK
$CNTS

---

-G E T C U R R E N T COQS C O U N T

--

--

CDLYlPARFWITHH LLI M-I T. - - - - -- --

--

T R A i F COUNFER N E E D NOT B E C H A N G E D
NFG. NUMBFR F B B - W A G E
CI1LLU;TOR
SAVE ( L I M I T
OLD COUNT)
S E T CONS CCLUNTER T
O
L
-

-- - --

--

--5

-------

++2

EVALUATED

--

--

--

--

--

--

---

--.--..,
-- - -

__-

-----

--

--

--.

._

-.

--

- .--

-- -

---

- -- ----

--

--

.---

- - ---

----

--

. -

--

- -

--

--- -

------

- - -- -- - --- -

--

- -- -

-.--

---

.___.

7-

--

- -.-

.----"-------A-

---

----A

.-

SAVE E X I T VALUE
R E S T O R E CONS C O U N T E R

.--

-_

HORN+6
$CNTRl
ILMASK
6CNTS
hORN+S
SCNTRl
PDTCSK

HORN+5
T A K E L I M I T = OLD COUNT
SZERO
N U L L P - L I S T V A I UAT L O N
SCPPI
S A V E PUSHDOWN P O I N T E R
HORN+6
TCOUNT
T U R N ON CONS COUNTER
BSOON, 4
SET UP E L T I N E m O B
-- -_ EREXIT94
T O PERFORM T H E E V A L U A T I U N
091
EXPRESSION
TO BE
$ E V A L ~ ~
W E G E T H E R E I F T H E E V A L U A T I O N WORKED
LDQ
$ZERO
FORM L I S T O F T H E R E S U L T
TSX
SCONS, 4
A N ERROR I N T H I S CONS A C T S L I K E AN ERROR I N T H E E V A I U A T i Q N N
TRA
SHAWM
RESTORE PARAMETERS AND E X I T
WE G E T P E R E I N C A S E O F ERROR
LDC
HORN+6,4
UNSAVE A L L RECURSIVE FUNCTIONS
SXD
TUBA, 4
E N T E R E D L L I N C C L I H E ERROR- -TRA
TUBA-1
LXD
SCPPI 9 4
--CAL
-1 9 4
ANA
d PMASK
T E S T FOR S T R FROM C O M P I L E R
ERA
$6P5
TZE
*+3
-- - -- --- - --- - --- -TS X
UNSAVEy4
TRA
*+2
- - --TSX
CfUNWN0,4
LDC
SCPPI,4
---.-. -.
TXH
HARP,4, *+

SHAWM S T 0
CLA
Ah'A
4DD
SUB
ST I
AN A

FIXVAL94

-.

---- -- -

.
u
p

PAGE 1 1 4

OONNIE-S

11653 0534
11654 -0534
11655 0441
11656 0500
11657 0074
11660 -0534
1 1 6 6 1 0020

'11662
11663
11664
11665
11666
11667
11670
11671

-0
-0
-0
-3
-0
-0
-0
-0

00
00
00
00
00
00
00

00000
00000
00000
00000
00000
00000
00000
00000

1
2
0
0
4
4
4
0
0
0
0
0
0
0
0

11663
11663
11666
11670
02326
11662
00001

10211
OOOCO
11664
11423
00000
00000
00000
00000

11672 0634 0 0 4 11703

11673 -0734 0 0 4 00000
11674 0500 00 4 00000
11675 0734 0 0 4 00000
11676 0500 0 0 4 00000
11677 0734 0 0 4 00000
11700 0500 0 0 4 00000
11701 0734 0 0 4 00000
11702 -0754 0 0 4 00000
11703 0774 0 0 4 00000
1 1 7 0 4 GO20 0 0 4 0 0 0 0 1
11705 0634
11706 -0734
11707 0500
11710 -0734
1 1 7 1 1 0020
11712
11713
11714
11715
11716
11717
11720
11721
11722
11723
11724

0634
-0734
0500
0734
0500
-0734
0020
0634
-0734
0500
-0734

00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00

4
4
4
4
0

11703
00000
00000
00000
11676

4 11703
00000
4 00000
4 00000
4 00000
4 00000
0 11700
4 11703
4 00000
4 00000
4 00000
/+

5473
5474
5475
5476
5477
5478
5479
5480
548 1
5482
5483
5484
5485
5486
5487
5488
5489
5490
5492
5493
5494
5495
5496
5497
5498
5499
5500
5501
5502
5503
5504
5505
5506
5507
5508
5509
5510
5511
5512
5513
5514
5515
5516
5517
5518
5519
5520
5521
5522
5523
5524
5525

-- - - -

- - ---

--

- -

-.

BIRTHDAY ASSEHBLY
LXA
HORN+191
RESTCRE I N O I C A T O R S d & l r
AND I R 2
LXD
HORN+lp 2
LDI
HORN+4
_- CLA
HORN+6
PICK UP E X I T VALUE
TSX
REs 1!ZL!@!N-B&cK- .-__
__ - - _ _
UNSAVE 4
LXD
HORN 9 4
RESTORE I R 4 AND E X I T
FRA
114
-----.
------------- PROTECTED TEMPORARY STORAGE FOK ERROR SET
HEAC
H
MZE
ERSETO
( + O ) ERRORSET OBJECTIN
A, IRT I N D
MZE
( + 1 ) I R 1 I N At IR.2 I N D
MZE
( + 2 1 ZERO MEANS SKIP DIAGNOSTICS
TXC
EVQERR
( + 3 ) EXIT INSTRUCTION FOR SERROR
MZE
( + 4 ) INDICATORS
MZE
( +5
CONS COUNTER INCREMJENT
-MZE
1 + 6 ) POL BACKUP POINT I N D
MZE
( + 7 ) NON-ZERO ACTIVATES CONS COUNTER
HEAC
0

---

HORN
ERNULL
EREXIT

NUBPOL
TCOUNT

-- -

- ---- ---

--

--

---*

--t

--

*
*

HEAC

-- -----

EXTENDED CAR S AND CDR S FOR THE INTERPRETER

CAAARX S X A
POX
CLA
PAX
AA
CLA
PAX
A
tLA
PAX
PXD
CAX
AXT
TRA
+
CAAURX S X A
POX
CL A
AAX
POX
TR A

CAX14
094
0,4
094
0.4
074
014
0 14
014
+*, 4
194

----

SAVE L I N K I R

--

----,-.- -.

--- -- ----- - -

---

--

--_

--

---

- -

RESTORE L I N K I 8
EXIT
____.- _

C A X 14
014
0-4
094
AA

-- -

------

--

--.-------

--

--

---

--

- -- -

-- - - --

CAOARX SXA
POX
CLA
PAX
AD
CLA
POX
TRA
CAOORX SX4
POX
C LA
AOX
POX

CAX-4
0,4
094
014
094
094
A
CAX 4
0 14
094
J14

-- -.

.---

--

- --

-----

-----=

--

- .-

---- --

--

--

--

--

--

- --

- - -

-- ---- - - -

- -

- - -- -

PAGE 1 1 5

30NNIE-S

BIRTHDAY ASSEMeLY
7

--

11732
0634 0 0
11733 0734 00
11734 0500 0 0
11735 0734 9 0
11736 0500 00
11737 0734 00
11740 0500 0 0
1 1 7 4 1 -0320 0 0
11742 0774 0 0
11743 0020 00
11744 0634 00
11745 -0734 0 0
11746 0500 0 0
11747 -0734 00
1 1 7 5 0 0 0 2 0 OC

4
4
4
4
4
4
4
0
4
4
4
4
4
4
0

11742
OOOOO
00000
00000
00000
00000
00000
00460
00000
00001
11742
00000
00000
00000
11736

5577
5528
5529
5530
5531
5532
5531
5534
5535
5536
5537
5538
5539
5540
554 1
5542
5543
5544
5545
5546
5547
5548

11751
11757
11753
11754
11755

4
4
4
4
4

11742
00000
00000
00000
00000

5 5 5 0 CDOARX SXA
5551
PDX
5552
CLA
5553
PAX
CLA
5 5 5 4 OD

4
4
4
4
0

11742
OCOOO
00000
00000
11755

11726
11727

0634 00 4 11703
0020 00 0 11710

0 0 6 3 4 C O 4 11703
11731 0020 00 0 11724

0634 0 0
00
0500 0 0
0734 0 0
0500 00

-0734

11760 0634
1 1 7 6 1 -0734
1 1 7 6 2 CSOO
11763 -0734
1 1 7 6 4 OOZC
11765
11766
11767
11770

00
00
00
00
00

0634 00 4 11742
0020 00 0 11747
0634 00 4 11742
0020 0 0 0 11763

1 1 7 7 1 0634
11772 0601
1 1 7 7 3 050C
11774 0601
11775 0500
11776 0074
1 1 7 7 7 -0734
12000 0500
120C1 0 7 3 4

00
00
00
00
00
50
00
00
00

4
0
0
0
0
4
4
4
4

12003
12006
12005
03321
12006
10011
00000
00000
OOOCO

5557
5558
5559
5560
5561
5562
5563
5564
5565
5566
5567
5568
5569
5570
5571
5572
5573
5574
5575
5576
5577
5576
5579

CAARXX SXA
TR A

CAX 94
AAX

--

--- -

-.--..-

-- - --

--

.-

---

-.

W SXA
TR A

+
CDAAKX 5 x 4
PDX
CLA
PAX
DA
CLA
PAX
D
CLA
ANA
CDX
AXT
TRA
CDADRX SXA
PDX
CL A
DAX
PDX
TRA

--

CAX. 4
ADX

--

COX94
0 AX

--

-- --

-- - -

- ---

--

--

- --

------------'.-

-- --- -- - --.

p
-

- --- --

--

---

-- -- - --

------

--

------.----.---

.-

-----

---mu

.
.-..
.

..- --... - -- .

----- - --- - - - - - - -- ----

----------------

CDARXX S X A
TR A

CDX 94
0.4
0.4
01 4
094

CDX 94
094
094
094
DI)

--.-- - - -- - --

-.

COX94
0.4
Or4
0 4
094
0.4
094
BDMASK
*+, 4
1.4
COX94
0.4
094
094
RA

CDDDRX SXA
P DX
CLA
DDX
PDX
TR A

--

-.-

.-

--

a-A

- --

- -- ..

--

--

- --.-

-- -

CDORXX S X A
COX14
TR 4
DDX
+
HEAC
C
GET
SXA
GETX94_-_
ST 0
GET1
CLA FCN31
ST0 SARG3
CLA GETL
TSX BPRCP94
PDX 0 9 4
-CL4 0 9 4
PAX 094

-.
--

----- -- -

- --- -

--

.-

--

--

- .

-.
-

--

-- --

-- - -

- .

---

--

--

--

----SAVE LINK I R - --

- -- - - --_____

8BQ
LC763900
- LC764100
LC764200
LC764300

--

--

PAGE 116

BONNIE-S

12C02 -0754 0 5
12003 0 7 7 4 0 0
12004 002G C O
12005 - 3 0 0 0 0 0
12006 0 00000

4
4
4
0
0

00000
00000
00001
12003
00000

12007 0634 00 4 12026

12010 0634 00 2 12027
12011 0601 00 0 03317
12012 -0600 00 0 03320
12013 0560 00 0 00370
12014 0500 CO 4 00001
12015 0 6 2 2 0 0 0 1 2 0 3 1
12016 0737 00 2 00000
12017 -3 0 0 0 0 0 2 1 2 0 2 4
12020 0500 CO 2 03316
12021 0074 00 4 03730
12022 0131 00 0 00000
12023
1 0 0 0 0 1 2 12017
12024 0500 00 0 12031
12025 0 6 0 0 0 0 0 0 3 3 2 1
1 2 0 2 6 0774 3 0 4 0 0 0 0 0
12027 0774 00 2 00000
12030
1 77777 4 1 4 6 6 3
12031 0 00000 0 00000

12032
12033
12034
12035
12036
12037
12G4C
12041
12042
12043
12044
120+5
12046
12047
12050
12051
12052
12053
12054
12055

0771 00
0402 00
-0765 C 3
-0500 03
014C 0 0
-0763 0 0
0140 C O
0602 00
-0754 00
0020 00
0634 C O
0774 0 0
0602 00
-2 0 0 0 0 1
0500 00
0601 00
0634 00
0774 00
-0754 00
002C 0 0

0
0
3
0
0
0
0
0
0
4
4
4
4
4

0
0
4
4
3
4

00022
00521
00006
12603
12037
00006
12044
12603
00000
00001
12053
00024
12631
12056
12417
12603
12045
00000
00000
00001

5580
5581
5582
5583
5584
5585
5586
5587
5588
5589
5590
5591
5552
5593
5594
5595
5596
5597
5598
5599
5600
5601
5602
5603
5604
5605
5606
5607
5608
5609
5610
5611
5612
5613
5614
5615
5616
5617
5618
5619
5620
5621
5622
5623
5624
5625
5626
5627
5628
5629
5630
5631
5632
5633

BIRTHDAY ASSEMBLY

- ---- -- -----

PXD 0.4
GETX
AXT
'4.4
TRA 1 1 4
FCN31 TXL
GETX 170
GETL
+

COMPAT

-- - -- -- --

--

--

- -- -- *

-- ---

- - - - - -- -- ---

- -

-- - ---

RESTORE

--

- ---

-------

--

LINK I R
- - - --

- -- --- -

- --

-- - -- ---

cc764400

LC764600

~
- -~-8 7 ' i -8-0-0
---- -

FUNCTIONAL ARGUMENTTNKAGEPROGRAM
B E T W E E N COMPILED
PROGRAMS AnND_-AXPLY-_F_OR_S-EXPRES-SION EUNCTIONAL ARGUMENTS

COMPAT SXA
CX74
SX A
CY.2
ST 0
SARG1
STQ
JARG2
LDQ
$ZERO
1.4
CLA
STD
CA
PAC
012
CL
TXL
CD12,O
C LA
6ARG1-1.2
$CONS 4
TSX
XC 4
TX I
CL92,l
CD
CLA
CA
ST2
$ARG3
CX
AXT
+St4
AXT
++, 2
CY
TXI
BAPPLY,4p-1
CA
HED
F
PACKICHAR)

-- -

-- -

-------

SAVE INDEX REGISTERS

SAVE AC
-CITTO M Q
END OF ARGUMENT L I S T
ARGUMENTS FOR COMPAT
S-EXPRESSION F K T I O N A L ARGUMENT
COMPLEMENT NUMBER OF ARGUMENTS
GO WHEN ALL DONE
PICK UP ARGUMENT
CONS ON TO ARGUMENT L I S T
L I S T TO MQ
GO BACK FOR NEXTFUNCTIONAL ARGUMENT
ZERO PAIR L I S T
RESTORE INDEX REGISTERS

GO T O APPLY AND A D J U S T EXIT

S-EXPRESSION GOES HERE

--

-- --

- ---- -- -

--

-__

__

--

----->-

--

~NEE~

---------

--

--.---

RDCI2001
ROC10001
--- - - - - - ------ *
ROC10002
+
PACK A O C x ANOTHER CHARACTkR TO THE CHARACTER 0~F~E&-_B_OFFO OOO~D_Cj_r003333333___.-__--*_----4
RDCI0004
ROC10005-- - -- --- -- - - -.---PACK AR5
18
G E T C H ~ ~ ~ TCODE
E R FROM
RDCI0006
SUB
HORG
RDC10007
L o c A T I o N OF ORJECL ---_____LGK
6
PUT NEL CHARACTER INTO PACKED WORD
RDCI0008
CAL
CHARS
ROC10009
----.-*-*.TC\(
*+ 1
RDCIOOlO
SHUT OFF OVERFLOW LIGHT
LGL
6
R O-C I O O ~ ~" ----85
TOV
I F WORD FULL, PUT I - ~ N - ~ F E R - - - - ROC10012
SLW
CHARS
ROC10013
-- - -- - - -- --PXD
10
CLEAR A C FOR E X I T
ROC10014
TRA
194
EXIT
ROCI0015
95
5x4
R1.4
SAVE IR4
RDClOOl6
QFLOC AXT
2094
ROC10017
_
- --AEDRESS HAS I N D E X FOR BOFFO
-- -SLW
aOiF0.4
STORE FULL WORD OF CHARACTERS
RDCI0018
TNX
03,4,1
I F BUFFER FULL* TRANSFER
RDCI0019 --- - ---- -- -- -C LA
A1
kHEN 1 ShIFTS PAST P B I T ,
ROC10020
5TO
CHARS
YEW WORD HAS 6 CHARACTERS
RDCIOO2l
-- ---"
- .
SXA
BFLCCv4
S ? V E BUFFER INDEX
RDCI0022
81
AX T
9 4
RESTORE I R 4
RDCI0023
PXO
to
CLEAR AC FOR EXIT-.
fic10024
TR A
11 4
EXIT
-- _ RDC_11/0_25---

--

--A

----------*

--

a
_
-

--

PAGE 1 1 7

BONNIE-S

BIRTHOAY ASSEMELY

-- -1 2 0 5 6 -3 00000 4 1 2 0 6 1
1 7 0 5 7 0 h 3 4 00 0 1 7 0 4 5
12060 0020 0 0 0 12066
17061
0C74 0 0 4 1 7 1 4 7
12062 0074 0 0 4 06420
1 3 0 6 3 -0 6 3 4 o n 4 01 sa?
12064 0074 0 0 4 01563
17065 5477306001 5 4
12066
C500 C C 0 0 0 4 7 1
17067 0 6 0 1 0 9 0 17h03
1 2 0 7 0 0 0 2 0 0 0 0 12053

5634
5h75
5636
5637
5638

83

134

5479

5640
5h41
5642
5643
5644
5645

96

5647
c

12071 0634
12072 0140
12073 -0500
12074 0560
12075 -0763
12076 -0140
12077 0534
12100 0602
1 2 1 0 1 050C
12102 0074
L2103
0100
12104 0120
12105 0 1 3 1
12106 0560
12107
0074
12110 0534
12111 0020
12112 -0760
OU2ti
12113
12114 0131
12115 0560
12116 0074
12117
C534
12120 0020
12121 0131
12122 -0120
1 2 1 2 3 034C
12124 0020
121250020

00
00
00
00
00
PO
00
00
00
PO
00
00
00
00
LO
00
00
00
00
00
00
00
00
00
00
00
00
00
00

4
0
0
0
0
0
4
4
0
4
0
0
0
0
4
4
0
0
0
0
0
4
4
0
0
0
0
0
0

17134
12073
12603
00471
00006
12075
12045
12631
12573
06622
12136
12112
00000
00476
12636
12134
12201
00001
1212L
OOOCO
00503
12636
12134
12201
00000
12132
0040.2
12132
12132

B4,4,0
SXA
C.0
TRA
06
".
TSX
P MK I U I L t i
TSX
INTRNl, 4
TXO
SFRW.
4
TSX
SERROR+l,4
RC I
1**CH i *
CLA
SEVENS
STO
CHARS
~
TRA
B1
D A C U S E S S F R R m BEaORl.

I F MURE THAN 1 2 0 CHARS, TRANSFER

ROC10026
CFT I N n F X T n W A U F F F K E l l 1 F - n L l l l O L
ROC10028
FURE.1 O B J , E I X J M _ E S ~ . E 2 L D L ' i . O Y L
...YL.YLYLYLYL.YLYL..~-...-~...-~---.--------~

'

2t__2t__2t__2t__2t__2t__2t__2t__2t__

-.

T o n MANY C H B B h t X E U I N P B L h l U A M E B I T 1 I N CHARS W I L L MAKE

'

I--x--.-.--..-...I-I1-I.--.--l.

'

RDC10037

RDC10039
- R D L L O I ) 4 . L _ _

A N O - _ _ _ _ _ - - -

NUMOB
m

5649
5650
5651
5652
5653
5654
5655
3656
5657
5658
5659
5660
5661
5662
5663
5664
5665
5666
5667
5668
5669
5670
5671
5672
5673
5674
5675
5676
5677
5678
5679
5680
56e1
5682

TXL

ROC 1 0 0 4 2
3
ROC10044

4
NUMOB MAKES A NUMERICAL OBJECT CORRESPONOING TO THE BCD
CHARACTERS I N THE BUFFER BOFFO.
-

--

-Ra(;l(LQ4-5--

---

ROC10046

T H I S ROUTINE HAS CROSS-REFERENCES

NUMOB SXA
TOV
GAL
LGQ
LGL
TNO
LXA
SLW
CLA
TSX
TZE
TPL
XCA
LDQ
TSX
LXA
TRA
GV2
PET
TRA
XCA
LDQ
TSX
LXA
TR A
GV6
XCA
TM I
CAS
TR A
TRA

GVl.4
.+ 1
CHARS
SEVENS
6
-

*-

BFLOCi4
BOFFOv4
PARAM
NUMBRi4
GV 3
GV2

TO THE INNARDS OF NUXKR_--&QLlQUZ

ROC10048
SAVt I R 4
I_____.-_BBUU
SHUT OFF OVERFLOW L I G H T
ROC10050
S H I F T SEVENS I N T O LAST P A C K E D W O R D R D . C I Q S ) 5 l
ROC10052
--________ROC
1-O(L5.3- -DONE WHEN 1 PASSES THROUGH P B I T
ROC10054
PUT LAST WORD I N T O BOFFO
___
RDCJLQW
RDCI0056
INPUT PARAMETER FOR NUMBR I S
BEGINNING OF BOFFO
ERROR I F ZERO I N AC - RDL1-!003__9__-TRANSFER I F F I X E D P O I N T OUTPUT
ROC10060
GET NUMBER F R O M A
!QG-NmO-6-l--FLOATING POINT SIGNAL
ROC10062
FORM O6JECT
!3OcIP.O6_3.- _
RESTORE I R 4
R -D -C-I -0 -0 -6 4.
RESET BOFFO ~
~
~
KI)-C_1_006_S
T
OCTAL SIGNAL I N NUMBR OUTPUT
TRA IF NOT O C T A L

GV6
SOCTO
6ElKN0 4
GV 1 , 4
CLEAR
SV4
SQ10
CV4
GV4

--

-----.m---.----------

_
_
_
p
-

FLOS
$MUNO, 4
GV194
CLEAR

--

--.n-"----F----

.-

RESET BOFFO AND E X I T

BRING
THE NUMBER TO THE-&
TEST FOR D I G I T S 0 THRU 9

-.

_-

__ _

--

RDCZOO 1 2
ROC10069
ROC10070
ROC10071

MAKE O C T A L M B E R

--

--

- -.

-fimm?
RDC10073
.
.
.
.
.
_
.
e

B9 CII,P T4-._._
~

ROC10075
R D-.
c .I .O
. O76

- .

.. --

.
.

:_7

PAGF

12126
12127
12130
12131
12132
12133
12134
12135
12136
12137
12140

- - - -

lle

BtiNNIE-S
0361 00
0767 0 0
0534 0 0
0020 00
0560 00
0074 0 0
0774 00
0020 00
0 0 7 4 CO
0 00000
0 00004

'0
0
4
0
0
4
4
0
4
0
0

00521
00022
12134
12201
00475
12636
00000
12201
01222
00364
12143

1 2 1 4 1 -0754 0 0 0 00000
12142 0020 0 0 0 12134
12143 602551514651
12144 604564442225
12145 516060542330
12146 600254606060

BIRTHDAY ASSENBLY

5683
5684
5695
5686
5687
5688
5689
5690
5691
5692
5693
5694
5695
5696
5697

5698 +
5699 +

GV4
GV1
GV3

GVA

ACL
ALS
LXA
TR!!.
LDQ
TSX
AXT
TRA
TSX

BC I
PXD
TRA
BCI

HORG
18
GVlr 4
CLEAR
FIXS
SMKNO.4
t 4
CLEAR
OUT PUT 1 4
BCDGUT
GVA, 9 4
l,*CH 2*
0 10
GVl
4 1 ERROR NUMBER

FORMO B J E C T

____

T H I S ROUTINE USES $CONS,

--

- - -

DIRECTLY

---- --

RDCI0077
RDC I 0 0 7 8
ROC10079
RESTORE I R 4
I___-_____.
__ __----.__I__R D C I O 0 8 0
F I X E D POINT SIGNAL FOR SMKNO
RDCI0081
FORM N U M E R & & O B J E c T
ROC I 0 0 8 2
RESTORE I R 4
ROC I 0 0 8 3
--RESET
--- - .BOFF-0 AlD--E_XJT _ _
RDCI0084

--

---

--

--

'

-s

FLOATING POINT NUMBER OUT OF RANGE

RETURN N I L

ZMKNU, SZERO,$ERROR,

----

--

*CH 2 *

- --

--

U
p

RDCI0091
Rw0092

AND BERORl

-----

-.------

5701 *
MKNAM AND CLEARBUFF
RDC 1 0 0 9 4
5702
RDCI0095
5703 *
RDCI0096
5704 +
CLEARBUFF STARTS AT CLEAR AND RESETS THE BUFFER-BOFFO T C
RDcIoo977.
5705 +
THE EEGINNING
RDC
- - -I 0 0 9 8
5706 +
__-___
A.DuLo~-~--,
5707 *
!4KNAMO HAS AS OUTPUT A PNAME L I S T STRUCTURE CORRESPONDING
RDCIOLOO
5708
ro TI-E C H A R A C T E R S IN T H E BUFFER BOFFO. THE BEGINNING O F
RDCIO~O~
RDCIOlO2
5709 +
BOFFO I S RESET.
5710 *
5711 +
T H I S ROUTINE HAS CROSS-REFERENCES
TO THE
5712 +
-ROC10105
RDCI0106
5713
MKNAM SXA
Bf31,4
SAVE I R 4
BBIR2,Z
SAVE I R 2
-- -.
RD--C I 0 1-- 0-7----- - _ 5714
SX A
IF c ( C H A R S 1 = - 1 , -CHARS CONTAINS
ROC10108
5715
CAL
CHARS
A1
NO S I G N I F I C 4 N T CHARACTERS
RDcro!!z_
--L AS
5716
5717
TR A
885
RDCIOllO
PX 0
to
5718
---- --.------5719
TRA
882
NO SIGNIFICANTCHARACTERS
I N CHARS
RDCIOll2
5720 885
TOV
*+ 1
SHUT OFF O v E % O W H
RDCI0113
_ 5721
LDQ
SEVNS
S H I F T SEVENS I N T O LAST WORD
RDCIO114
5722
LGL
6
OF L I S T
RDCIOl15
-.
5723
TNO
*- 1
R-t I-C- I-O- l-l -b
5724
SLW
T1
PUT P B I T INTO S I G N
17
-.-R--D C I O 1----- ,. 5725
CL A
T1
RDCIOl18
5726
TSX
SCON SW 1 4
FORM POINTER TO LAST kORD O F L I S T
RDCI01.9
5727
LDQ
ZERG
RD-~1-0120
5728
TSX
SCONS 4
R-D
C I O l2 l -- - - ----.
-

---

12147
12150
12151
12152
12153
12154
12155
12156
12157
12160
12161
12162
12163
12164
12165
12166

0634
0634
-0500
-0340
0020
-0754
002C
0140
0560
-0763
-0140
0602
0500
0074
0560
0074

00
00
00
00
00
00
00
00
00
00
00
00
00
CO
00
00

4
2
0
0
0
0
0
0
0
0
0
0
0

12207
12177
12603
12417
12156
00000
12167
12157
00471
00006
12160
12574
12574
G 03710
0 00370
4 03730

---"-

---

--

PAGE 1 1 9
12167
17170
12171
17172
12173

BONNIE-S
0534 0 0
no072
0602 0 0
0500 0 0
0074 00
2

2
7
0
7
4

12045
17177
03654
17630
03710

BIRTHDAY ASZEMbLY

5729
57311
5731
5737
5733

882
R

LXA
~

TXH

S LW
CLA
TSX

BFLCC, 2
B
R 7.7. L-TR~IFS~E~
BBPNT
BOFFO 1 . 7
6CONSW 1 4

LOC OF LAST S I G N I F I C A N BUFFER WORD

RDCI0122

- --

-_R~uQLzI__-_
SAVE DECREMENT FOR FUTURE USE

ROC10124

GELdlEhI4rlCRflllE-BUfEEB

BDCUllZi

--

TACK

I T ONTO FRONT OF L I S T
ROC10126
1
:
---- --R I 1 C l f U Z . L _---___-_--__
I
12175 0074 0 0 4 03730
5735
TSX
$CONS I4
ROC10128
17176 1 00001 2 17170
5736
TX I
88497.1
MOVF TO NE1(J_ KQRa_QLB.UEFXR_
RRC.10122 - --. ..
------ -12177 077L 0 0 2 00000
5737
B B I R 2 AXT
**9
2
RESTORE I R 2
ROC1 0 1 3 0
1 2 2 0 0 0 0 2 0 00 o 1 2 2 0 2
5738
TRA
a03
R E S F T POSITION
IN BOFFO
RDCLZ~~~~_____---'
12201 0634 00 4 12207
5 7 3 9 CLEAR SXA
8 8 1 14
ENTRANCE FOR CLEARING BUFFER
ROC10132
12207 0560 0 0 0 17417
5740
BE3
LRQ
A1
R E S E T H H A K L L E L ! TO eCHAR-12203 -0600 0 0 0 12603
5741
STQ
CHARS
RDC I 0 1 3 4
20.4
SET INDFX I N PACK FOR F I R S T
BnCL013512204 0774 0 0 4 00074
5742
AXT
12205 0 6 3 4 0 0 4 12045
5743
SXA
BFCCC 4
BUFFER dORO
RDCI0136
12206 0600 0 0 0 03654
5744
STZ
BBPNT
A v o 1 UNNECESSARY GARBAGE _C_OLCLL
R_D-1.01.32
12207 0774 0 0 4 00000
5745
881
AXT
r4
RESTORE I R 4
RDC10138
12210 0020 0 0 4 00001
5746
TR A
1.4
EXIT
-- 3 - c L W - %- --

'

12211
12212
12213
12214
12215
12216
12217
12220
12221
12222
12223
12224
12225
12226
12227
12230
12231
12232
12233
12234
1 2 2 3
12236
12237

-C634 0 0
-0534 0 0
2 00006
-0534 0 0
2 COG01
-0520 0 0
0020 0 0
1 00000
-0634 0 0
0020 0 0
- 0 5 2 0 OC
0020 0 0
0600 0 0
0774 00
- 0 5 0 0 CO
0602 0 0
0602 0 0
2 00001
0074 00
0 OOGCO
5 0 00016
1 00C30
1 OOCOO

4
4
4
4
4
0
0
0
4
0
0
0
0
4
0
4
4
4
4
0

0
0
0

12220
12236
12247
12237
12243
12604
12223
12276
12220
12225
12517
12233
12517
00014
06472
12572
12535
12230
00663
00000
12536
12316
12271

5748
5749
5750
5751
5752
5753
5754
5755
5756
5757
5758
5759
5760
5761
5762
5763
5764
5765
5766
5767
5768
5769
5770
5771
5772
5773
5774
5775
5775
5777

ADVANCE,

STARTREAD,

AND

ENOKEADPROGRAMS

-- --

ROC10141

.--IP_R_C19=
+

ADVANCE SETS CUKCHAR TO THE NEXT CHARACTER.

STARTREAU READS A NEW RECORD.
ENDREAD M O V E S T O THE END OF THE CURRENT RECORD
AND
G I V E S ERROKOUTPUTI I F ANY

ADVANC SXD
LXD
TIX
LXO
TIX
NZT
TRA
PORK
TXI
STREAO SXD
TRA
VEAL
NZT
TRA
STZ
AXT
CAL
RUTH SLW
SCW
TIX
JOYCE TSX

CHPOS
WONUM

PORK14
CHPCS94
CHOPS14r6
WDNUNr4
LAM8t411
EORTS
VEAL
STEWt,O
PORK94
5+3
ERSIG
JGYCE
ERSIG
1294
BLAKKS
ERBFL94
ERBFUt4
RUTH,4,1
$INPUT,4
d8CGIN
8UFF-12* 9 l4
T X I R I B S , 90
T X I RUMF,,O -

ROC10143

KO-LIe l 4 4

-.. .- .

SAVE I R 4
- - - _ _ _ - , F I N D NO. OF CHARS. L E F T I N PACKED
WORD
F I N D NEW PACKED WORD
-- I F NEW RECORD N_LEDEDy CONTINUE _
I F NONZERO G I V E EOR AS OUTPUT CHARACTERt OTHERWISE READ NEW RECORD
XEAD A NEW RECORD
SAVE I R 4

TURN OFF ERROR S I G N A L _ _ _ _ _ . - - - . _ - _ - .

PUT BLANKS I N ERROR BUFFER

_R
-

0 C_L!U&

.
.
.
. .-_--..o.---.

2ELIOl6L
-

-_

~~

RDC10165
READ A NEW RECORD

RDCI0161
RDCIOl63

--

~ ~ O o ~ ~ . l ~ ~ o o o o _o.
_AN1016.?

ERROR RETURN
EOF RETURN

..

RDCIO145
R D C I O J 6 6 -. . ._
ROC10147
U2L.I-Ql3.8
-- --------,-- -,--RDCI0149
AL!DD!I~.l.5~.
.
- -~
RDCI0151
R1 2 1 1 1 0 1 - 5
RDCI0153
RDL&Q).54
ROC10155
KPCL01-5.6._ ..
... ..
ROC10157
~ ~ c - 1 8--4 ~ 5
- .
-RDC10159

RDC10167
RDCI0168
RDCIOl69
RDCI0170

--,.-..--.-.---.---

:..

--

PAGE 1 2 0

BONNIE-S

12240 -0625 0 0 0 12604

12241 0 6 0 0 0 0 0 12635
12242 0774 0 0 4 00014
12243 -0634 0 0 4 12237
12244 0500 0 0 4 12552
12245 0 6 0 1 0 0 0 12572
12246 0774 0 0 4 00044
12247 -0634 0 0 4 12236
1 2 2 5 0 - 0 7 5 4 CO 0 0 0 0 0 0
12251 0560 0 0 0 12572
12252 -0763 0 0 0 00006
12253 -0600 0 0 0 12572
12254 0734 0 0 4 00000
12255 3 00014 4 12260
12256 -3 00013 4 12260
12257
0774 00 4 00040
12260
1 06127 4 12261
12261 0500 0 0 0 12635
12262
0400 00 0 00371
12263 Oh01 0 0 0 12635
12264 -0754 0 0 4 00000
12265 0602 0 0 0 12634
12266 0 6 3 4 0 0 4 12633
12267 -0534 0 0 4 12220
12270 0020 0 0 4 0 0 0 0 1
12271 0534 0 0 4 00522
12272
0020 00 0 12314
12273 -0634 0 0 4 12220
12274 -0634 0 0 0 12236
12275 -0634 0 0 0 12237
12276 -0520 0 0 0 12517
1 2 2 7 7 002G 0 0 O 1 2 3 1 3
12300 0074 00 4 05214
12301 0074 0 0 4 01222
12302
0 0 0 0 0 0 0 GO364
12303 0 00015 0 1 2 5 2 0
12304 0 0 7 4 0 0 4 01222
1 2 3 0 5 0 OGOOO 0 0 0 3 6 4
12306 0 00015 0 12535
12307 0074 0 0 4 01222
12310 0 00000 9 00364
12311 0 00015 0 12555
12312 0 0 7 4 0 0 4 05214
12313 0 5 3 4 0 0 4 00523
12314 0600 0 0 0 12604
12315 0 0 2 0 0 0 0 1 2 2 6 1
12316 -0634 0 0 4 01562
12317 0 0 7 4 0 0 4 01563
12320 542330600354
00471

5778
5779
5780
5781
5782
5783
5784
5785
5786
5787
5788
5789
5790
5791
5792
5793
5794
5795
5796
5797
5798
5799
5800
5801
5802
5803
5804
5805
5806
5807
5808
5809
5810
5811
5812
5813
5814
5815
5816
5817
5618
5819
5820
5E21
5822
5823
5824
5825
5826
5627
5828

BIRTHDAY ASSEMELY
STL
STZ
AXT
LAMB
SXD
CLA
ST0
AXT
CHOPS
SXD
PXD
LDQ
A6
LGL
STQ
PAX
TXH
TXL
AXT
SHANK T X I
BACON CLA
ADD
ST0
PXD
SLW
SXA
LXD
TRA
RUMP
LXA
TRA
ENDRED SXD
SXD
SXD
STEh
NZT
TRA
TSX
TSX

-.

EORTS
BCHACT
1294
WDNUM94
BUFF94
PWORD
36,4
CHPCL4
10
PWORD
6
PWORD
0.4
SHANK94rlZ
SHANK94911
3294
*+1,4rSH00
SCHACT

.-

.-.-

----.
-

----

SET SIGNAL FOR EOR OUTPUT NEXT TIME

I N I T I A L I Z E CHARACTER COUNT
SET INDEX FOR START OF I N P U T BUFFER

RDCI0171
ROC10172
RDCI0173
RDC-I -01
-- --- ---- -- -- -- ------- ---7 4-- P I C K UP NEW PACKED WORD FROM
ROC10175
I N P U T BUFFER AND STORE I T
ROC10176
I N I T I A L I Z E P O S I T I O N I N PACKED WORD
RDCIOl77
----.---.--ROC10178
PICK OFF ONE CHARACTER
ROC10179
RDCI0180
RDCIO181
RDCI0182
SAVE S H I F T E D PACKED-WORD

---

--- -- -- - ---

----

CHECK FOR 8-4

s
5

--

MINUS

--

CHANGE 8 - 4 MINUS TO 11 MINUS

POINTER TO NEW CHARACTER OBJECT
BUMP CHARACTER COUNT

RDCI0185
RDCI0186
RDCI0187
RDCI0188
ROC I 0 18 9
-- RDCI0190
ROC10191
ROC10192
RDCI0193
RDCI0194
RDCI0195
RDCI0196
R D C 1 0 1 97
_
RDCIOl98
RDCI0199
*-----------RDCI0200
RDC10201
_RDCI0202
RDC L O 2 0 3 - -- ---- -RDCI0204

$PI

dCHACT
94
SET CURChAR TO NEW CHARACTER
$CURC
POINTER I N DECREMENT FOR B I N
bCURC194
POINTER I N ADDRESS FOR A P V A L l
PORK94
RESTORE I R 4
194
RETURN
EOF94
END OF F I L E CHARACTER
JEAN
PORK94
SAVE 1R4 FOR E X I T [ENDREAD ENTRANCE)
CHPCS,O
SET CHARACTER P O S I T I O N AND WORD
WDNUMtO
NUMBER A T ENL?J!L!RRECORC
ERSIG
TEST I F ERROR PRINTOUT NEEDED
SUZIE
--.---TERPAI.4
P R I N T BLANK L I N E
CUTPUT94
P R I N T UPPER ERROR -B_UF!EIR
BCDOUT
ERBFU-13,913
TSX CUTPUT,4
PRINT
B A G LINE--BCDOUT
.-- ROC1 oLo5--____---111_BUFF-13,913
RDC10206
TSX CUTPUT94
7 -. -_
P R I N T LOWERERROR-BUEFER- .---ROC I 0 2 0-BCDCUT
RDCI0208
ERBFL-13,113
- -.
RDCI0209
TSX T E R P R I v 4
P R I N T BLANK L I N E
RDCIOZLO
S U Z I E LXA E D R t 4
LOAD EN0 OF RECORD CHARACTER
RDCIOZll
JEAN
STZ EORTS
SIGNAL TO READ NEW RECOQD NEXT T I M E
RDCI0212
TRA BACCN
RDC10213
RIBS
SXD $ERROR94
TSX bERROR+194
8 C I 1y+CH 3 *
*
TAPE READING ERR02 -ADVANCE,
STARTREAD--- --.-- -- - -.- - SEVNS SYN
S EV EMS

----------

-----

- --

- - PAGE 1 2 1

BONNIE-S

- - ----

12321
17327
12323
17324
12325
17376
12327
17330
12331
17337

-0634
-0737
0500
0407
-0534
0100
0500
0020
-0754
0070

00
0-0
00
00
00
00
00
00
00
00

4
4
0
4
4

0
0
4
0
4

12336
00000
12440
04270
12336
17331
00442
00001
00000
00001

17333 -0634 GO
12334 -0737 00
12335 0 5 0 0 00
12336 1 00000

4
4
0
0

17336
00000
12437
12324

12337 0340
12340 0 0 2 0
12341 0761
12342 0500
12343 0 0 2 0
12344 -0754
12345 0020

0
0
0
0
4
0
4

00524
17344
00000
00442
00001
00000
00001

00
00
00
GO
00
00
00

5829
5830
5831
5837
5833
5834
5835
5836
5831
5838
5839
5840
5841
5847
5843
5844
5845
5846
5847
5848
5849
5850
5851
5852
5853
5854
5855

12346
12347
12350
12351
12352
12353
12354
12355
12356
12357
12360
12361
12362
12363
12364

-0625 00
0634 00
050C 6 0
0560 00
-0535 0 0
-0763 00
-0534 00
-3 00000
-0602 00
-0130 00
0322 00
0 6 0 2 00
-0754 00
0774 00
0020 00

0
4
0
0
4
4
4
4
4
0
4
4
0
4
4

12517
12363
00375
00424
12236
77772
12237
12362
12535
00000
12572
12572
UOOOO
00900
00001

. -- ---- - --

SPACE
5
ALPkARFT I C FUNCTIONS

LITER

A1 3

AL6

SXD
PDC
CLA
SUB
LXO
TN7
CLA
TRA
PXI)
TRA

OPCHAR SXO
PDC
CLA
AL1
TXI
DIGIT

AL5

CAS
TRA
NOP
CLA
TRA
PXD
TRA

LITER(Cl-AR)
AL194
0.4
A2
CHTYP- Sh00.4
ALlti
Al 6
SQDl
1.4
SO
1.4
OPCHAR(CHAR1
AL1.4
0.4
A3
AL3,90
DIGITtCPAR)
HOL9
AL5

--

*
*
*

'IMLLEm

COMPARF K I T H

"

ROC10221
-_RJlC191233 RDCId234
- - - - R D C 1.023%
~0~1d236

--

- --

--.----.----,---.

_R-237

ROC10238

--

- R T r W _ Q W L _ _ .

E X I r WITH T

ROC10240

_
E X I T WITH F

RDC10242
43

ROC10244

- -RD?XQ245_--

-_-_-___--

ROC10246
_

_-

-- _ - K O L L

L----

R&uw?-

ROC10250
-RD-W2_51--ROC I 0 2 5 2
_

---

_R R ( L l Q 2 1 3 - - RDCI0254

- ---.--

.-_

&U10255
RDCI0256

--- -

PDCI025.8
RDCI0259

--

E R L C R E A T E S A VISUAL
TO A READING ERROR
ERORl STL
SXA
C LA
LDQ
LOT.
LGL
LXD
TXL
ORS
XCL
ERA
SLW
ERX
PXD
ERIR
AXT
TRA

SOD1
194
10
194

ERR CR 1

-- --

RDCIfiZ 1 9

--

5857
5858
5859
5860
5861
5862
5863
5864
5865
5866
5867
5868
5869
5870
5871
5872
5873
5874
5875
5876

BIRTHDAY ASSEMeLY

ERS IG
ERIRv4

--

$85
OCT41
CHPOSt4
-694
WDUUY, 4
E17X94.0
ERBFU94
EHdFL94
ERaFL 9 4
,O
+*94
194

POINTER

IN

--

- --

E R B F U AND E R ~ F L

-__-_
&-&cAo_bhZ_bhZ
---[URN ON ERROR SIGNAL
ROC10263
SAVE 1R4
_ - ._
- -- -RPU 02 64-.
- -V FOR UPPER BUFFER
RDCIO265
A FOR LOWER BUFFER
- . R_DCIO26_6_
---SHIFT BOTH LETTERS INTO POSITION
RDC I 0 2 6 7
- -_RO_C_LQQ268- ----..--RDC10269
CO NOTHING I F END OF RECORD__INSERT V INTO UPPER BUFFER
_
_ B D ?L_oZ1l__--- - - -- - ---INSERT
A INTO LOWER BUFFER
ROC10272
--0CLLJZ_I_333
.---"
------ ROC I 0 2 7 4
E S T o ~ - E I ! 3 6-- - _
_ -_ - ~0~10275 EX I T
ROC I 0 2 7 6

--

---

'

PAGE 1 2 2

BONNIE-S

BIRTHDAY ASSEMBLY

--

12365 0 6 3 4 00
12366 0634 0 0
12367 -0734 00
12370 0560 0 0
12371 0774 00
12372 -0754 0 0
12373 -0763 0 0
12374 0340 00
12375
1 00001
12376
1 00001
12377 0601 0 0

4
2
0
0
0
2
2
2

12401
12402
12403
12404
12405
12406
12407
12410
12411
12412
12413
12414
12615
12416

0 03654
2 12412
2 12602
0 00521
0 00022
0 03654
4 03730
0 03654
2 12402
0 03654
0 03654
4 00000
2 00000
4 OOOCl

0600 00
3 00006
0500 00
0 4 0 0 CO
0767 00
0560 00
0074 00
0601 00
1 OOOOL
0500 00
0600 00
0774 00
0774 00
0020 0 0

12414
12415
00000
00000
00006
00000
00006
00413
12401
12401
12602

00521
(20522
C0523
00524
C0525
0Q530
12417 +000000000001
1 2 6 2 7 +OOCCCCOCOOOl

--

- ----

5877
SPACE
5
5878 *
UNPACK ( NAME I
5879
5880 *
UNPACK1 NAME) G I V E S A L I S T OF THE CHARACTER OBJECTS
5331 *
I N THE CELL -NAME-,
UP TO THE F I R S T 77.
5C82
5 8 8 3 UNPACK SXA
UP1414
SAVE I R 2 AND I R 4
5884
'iXA
u p 1 2 12
-~---.-~.---..------L--5895
YDX
14
PUT ARGUkENT C E L L I N M Q
5886
L DQ
014
5887
AXT
672
5 8 8 8 UP2
PXD
10
LOOK AT A C H A R A C T E R
5889
LGL
6
5890
CAS
$363
5891
TXI
UP1927 L
ADJUST I R 2 FOR CHARACTER
5892
TX I
UP1t 2 t 1
COUNT
STORE THE CHARACTER
5893
STO
Tl + 6 12

5896
5897
5898
5899
5900
5901
5902
5903
5904
5905
5906
5907
5908
5909
5910
5911

UP1
UP4

UP3
UP14
UP12

5915
5916
5917
HORG
EOF
5918
5919
EOR
5920
HOL9
5 9 2 1 HOL14
5922
HOL40
5923
5 9 2 4 CHTYP
5925

STZ
TXH
CL A
ADD
ALS
LDQ
~ S X
ST0
TXI
CLA
STZ
AXT
AXT
TRA

UPLST
UP3v2t6
Tl+6,2
HORG
18
UPLST
SCONS 1 4
UPLST
UP49211
UPLST
UPLST
**,4
**1 2
114

--- -

--

RDCIO296
RDCIO297
R D C I 0 2 9.8
RDCIO299
RDCI0300
RDC10301
PUT CHAR A T H E A D OF L I S T
RDCI0302
ROC10303
RDCI0304
RETURN WITH LOCATION OF L I S T
RDCI0305
AvoIL? u N N E C E S S A ~ & ~ k G G ~ - ~ O L ~ . ROC10306
~
RESTCRE I R 4 AND I R 2
RDCI0307
-.---RDCI Q20-8
EXIT
RDCI0309
DCI0310
- - -.R
-RDCI0311
-

RDCI0315
-- -------

STORAGE

RDC10316

S Y Y SHOOA
SYN B H l Z A
SYN SH72A
SYN S H l l D
SYY $HI40
5 Y N BH4CD
TITLE
CEC l ~ l t l t l t l t l t l r
CLC l , l r 4 , 3 , 3 ~ 0 , 0 ~ 0

--

--

--

C = I L L E G A L CHARACTER
1 = DIGIT

--

- --

--A

--.-

---~----

_-.--

--------

..------

- -

-------*

- --

RDCI0277
Rt L G J ~
----ROC10279
RDCI_028_0___--- .-RDCI0281
--R D- C I 0 2 8 2
RDC10283
RDCI0284
RDCI0285
ROC10286
-ROC10287
R D--CI0288
.---RDC10289
ROC10790
ROC10291
RDCI0292
--ROC10293

SET END OF L I S T .TO N I L

E X I T I F ALL CHARACTERS L I S T E D
P I C K UP NEXT CHARACTER
AND FORM OBJECT

T H I S ROUTINE USES $CONS

--

- - --

- --.
--

---

----

--------------.-- RDC10323 .

RDCI0324
RDCI0325

--

--

--

PAGE 1 2 3
12437
17447
12457
17467
12477
17 507

BONNIE-S
+000000000003
+-no?
+000000000003
+-nn7
+000000000004
+oooi)nanaonn?
nn?7n
12417
13440
12437
00424
00412

12517
12520
12535
12535
12552
12555
12555
12572
12572
12573

006060606060
606060606060

606060606060

0 00001 0 12605
00476

12574
00475
12603
12604
12631
12631
03654
12632
12633
12634
12635

0 00000 0 00000
0 00000 0 00000
0 OCOOO 0 0 0 0 0 0

1 2 6 3 6 0 6 3 4 0 0 [t
12637 -0600 0 0 0
12640 0074 0 0 4
1 2 6 4 1 0 1 3 1 CO 0
12642 0500 0 0 0
12643 0 0 7 4 0 0 4
12644 -0534 00 4
12645 0622 0 0 0
12646 0500 0 0 0

1 2 6 5 1 C5CO 0 0
12652 -3 1 0 1 1 7
12653 3 10120
1 2 6 5 4 0 5 0 0 GO

0
4
4
0

1266C
036J56
03710
00000
00460
03730
03656
03656
00441

00436
12655
12655
00437

5926
5977
5928
5979
5930
53 7 1
5932
5933
5934
5935
5936
5937
5938
5935
5940
5941
5942
5943
5944
5945
5946
5947
5348
5949
5950
5951
5952
5953
5954
59 5 5
5956
5957
5958
5959
5960
5961
5962
5963
5964
5965
5966
5967
5968
5969
5970
5971
5972

5975
5976
5977
5978

--

.-

BIRTHDAY ASSEMBLY
DEC 3,2r2,2,2,2,2,2
7. 7.4.4.4.0.0.n
DEC 3 , 2 r 2 ~ 2 , 2 t 2 , 2 , 2
DEC 7 . 7 . 4 , 4 . 3 4 ~ 1 . 0
DEC 4,312,2,2,2,2,2
nbc 7,7,4.4,4.a.0+0
DETAIL

nFr

7FRn

A1
A2
A3
OCT41
A36
ERSU;
ERBFU
BUFF

ERBFL
PUOKD
PARAM
FLOS
T1
FIXS
CHARS
EORTS
BOFFO
UPLST
CURCl

CURL

CHACT

ROC10326

-u-L

= OTHER
-

SXA
STQ
TSX
XCA
CLA
TSX
LXD
S TD
CLA
TXL
TXIi
CLA
TXL
TXH
C LA

k-------.--

RDCI0328
4 1 1 ~ 1 ~ 1 2 9 - - --_____--RDC10330
_ _ _ -- -- ROCRDCI0332

--- .

---- --

9YN 67FRn

SYY CPTYP
SYN CHTYP+17
SYN CHTYP+16
SYN $ 0 0 4 1
SYN6836
BSS 1
8CI
1 ~ 0
RFS
12
BC I
1
BES
17
BES
3
BC I
1,
BES
12
ass 1
PZE
aOFFO-20,,1
SYN
FLOAT0
BSS
7
SYN
$FIX0
BSS
1
BSS 1
BES
20
ass
1
SYN
BBPNT
HSS
1
PZE
PLE
PZE

MKNO
MKNO

= LETTER

XUUII

-I

RDC10336

~ % - . - - -

FRROR I N D I C A T O R
COUBLE SPACE UNDER PROGRAM CONTROL
UPPER ERROR BUFFER.-SINGLE SPACE UNDER PROGRAM CONTROL
BUFFER FOR I N P U T R E G W
ROOM FOR EXTRA WORDS I N READ-IN
S I N G L E SPACE UNDER PROGRAM C C U R O L
LOWER ERROR BUFFER

RDCI0340
R D C I B 3
RDC10342

--

3--

--

RDC I 0 3 4 4

RjlLLI.(T?La

RDCI0346
-~ ~ ~ ~
RDCI0348

--

-.__
---_

- - --

RDCI0351

------------

-.-,--..-...--.----..*-

RDC10353

KD.CXO556

NONZERO I N D I C A T E S EOR OUTPUT CHAR

RDCI0357

_RDC.ID33558

JUNK kORD F O R B O F F O E M N A N L S
CUMULATIVE L I S T OF CHARACTERS

.....

R -D-C-I .0359

.----"-.-__AD GLO?bL-

RDCPO6lO
R-DcP0623 -__RDC80236
-L R D C I _ O ~
A FUNCTION OF TWO ARGUMENTS, THE F I R S T I S A NUMBER, THE SECORDC10362
ND I S A TYPE ( F L O OR F I X ) . PKNC FORMS A NON'UNIQUEJUJ6ER
RD_C.IIOQt63
rvlKIRs4
SAVE L I V K I R
MKTl
BCONSW, 4

POINTER APPEARS I N ADDRESS

P O I N T E R APPEARS IN_P_E_tBEMElliT
CHARACTER COUNT

--

--------

TYPE TO I R 4
ASSUME

--

I T I S OCTAL

_- --

_.

---.- -

- -

BDMASK
4CGNS 1 4
MKT1,4
lYKTl
bQT5
*+3,4,fFIX-1
*+2,4,$FIX
fQTl
*+314, &FLOAT-1
*+2,4tBFLOAT
BQT2

.-

- -

RDCI0334

--- - -

- ..- -

---

-- -

- -

---

-- -----

--

a-

- - -- ---

-- --

12656 -0602
12657 -0754
12660 0774
12661 0020

BONNIE-S
00
00
00
CO

4
4
4
4

00000
00000
00000
00001

12662 0100 00 4 00001

12663 -0634 00 4 12756
1 2 6 6 4 0 7 7 4 CO 4 0 7 7 0 6
12665 0634 00 4 12756
12666 0074 00 4 02312
12667 -3 12760 0 02401
12670 0074 00 4 15774
12671 0074 00 4 02326
12672 0560 00 0 00370
12673 -0600 0 0 0 12757
12674 0560 C O 0 12747
12675 0020 0 0 0 12725
12676 0100 00 4 00001
12677 -0634 0 0 4 12756
12700 0 7 7 4 00 4 07676
1 2 7 0 1 0 6 3 4 00 4 1 2 7 5 6
12702 0074 00 4 02312
12703 - 3 12760 0 02401
12704 0074 00 4 15774
12705 0074 00 4 02326
12706 0560 00 0 00471
1 2 7 0 7 - 0 6 0 0 00 0 1 2 7 5 7
12710 0560 00 0 12750
12711 0020 00 0 12725
12712 0100 00 4 00001
1 2 7 1 3 - 0 6 3 4 00 4 1 2 7 5 6
12714 0774 00 4 07666
1 2 7 1 5 0 6 3 4 CO 4 1 2 7 5 6
12716 0074 C O 4 02312
1 2 7 1 7 -3 1 2 7 6 0 0 0 2 4 0 1
1 2 7 2 0 0 0 7 4 00 4 1 5 7 7 4
12721 0074 00 4 02326
12722 0560 00 0 00370
12723 -0600 0 0 0 12757
12724 0566 b 0 0 12751
12725 -0600 00 0 12737
12726 0634 00 2 12745

5980
5981
5982
5983
5984
5985
5986
5987
5988
5989
5990
5991
5992
5993
5994
5995
5996
5997
5998
5999
6000
6001
6002
6003
6004
6005
6006
6007
6008
6009
6010
6011
6012
6013
6014
6015
6016
6017
6018
6019
6020
6021
6022
6023
6024
6025
6026
6027
6n28
6029
6030
6031
6032

--

.. ~.
.

PAGE 124

GIRTHOAY ASSEMCLY

MKIR

ORS
PXO
AXT
TR A

094
094

------- -- --

**r 4

194

--

P
a

- -- -- -

-- -.
--

*
*
+
+
+

HE0
LOGOR,

AND LOGXGR

- --

--

riDCI0454
THESE FUNCTIONS TAKE THE LOGICAL AND, LOGICAL OR, AND LOGICAL
EXCLUSIVE OR RESPECTIVELY OF THEIR ARGUMENTS* WHICH ARE NUMBER
OBJECTS.
ThE RESULT I S AN OCTAL NUMBER OBJECT.

LOGOR TZE
SXD
AXT
SXA
TSX
TXL
TSX
TSX
LDQ
STQ
LDQ
TRA
LOGAND TZE
SXD
AXT
SXA
TSX
TXL
TSX
TSX
LDQ
STQ
LDQ
TRA

LOGAND,

----

ROC10368
f%c?LL!2524
RDC10423

*
H

--- -- - .- --

----

PUT IN-UMBER
FLAG
ANSWER TO AC
RESTORE L I N K I R

1,4
T1,4
- ~ ) ~ ~ 3 7 , 4
TI14
%SAVE14
$ENDl*,Tl+Z
$EVLIS,4
UNSAVE, 4
$ZERO
T1+1
ORS
LOG2

1,4
TI94
-S)PJ36,4
T194
$SAVE, 4
SEVCl,,Tl+Z
JEVLIS,4
UNSAVE.4
SEVENS
Tl+l
ANS
LOG2

LOGXOR TZE
114
SXC
T1.4
AXT
--b)P~38,4
SXA
TI14
TSX
$SAVE94
TX L
$ENClr ,T1+2
TSX
6EVLIS14
TSX
UNSAVE, 4
LDQ
$ZERO
STQ
T1+1
LDQ
ERS
+
COMMCN PART OF LOGAND,
LOG2 STQ
LOG5
SXA
LOG4p.2

-ROC10458
ROC10459
RDCI0460

RETURN 0 I F 0 INPUT
SAVE I R 4
LOGOR ATOM
SET FUNCTION ON POL

---

--

RDCI0461
SAVE 1 ITEM
EVALUATE L I S T OF ARGUMENTS

RDCI0463
---RDCI0464
R0 c & m
RDCI 0 4 6 7

OR OF NO ARGUMENTS

? ! - ~ - ~ -

INSTRUCTION FOR INNER LOOP

RDCI0470
RDCI0471

E X I T WITk 0 I F 0 INPUT
SAVE I R 4
LOGAND ATOM
SET FUNCTION 0SAVE 1 ITEM
E V A L U A T E LIST

-_

OF ARGUMENTS

RDCI0475
ROC10476
RDCI0478
ROC10479
RDCI0480
ROC10481
ROC10482

AND CF NO A R G U M E N T S ~
-

- -

--

INSTRUCTION FOR INNER LOOP

-.

.-..

.-

EXIT
h ITH
0 1r2-NpK!
S
- A V. F-

---------

---

Ik.4

LOGXOR ATOr4
.
_
_
_
_
_
p
SET FUNCTION ON POL
SAVE 1 ITEM
EVALUATE L I S T OF ARGUMENTS

A
-

RDCI 0 4 8 5-

- - - - -

RDCI0487
RDCI0488
RINGSUM OF NO ARGUMENTS
RDCI0490
RDCI0491
TRA TO INSTRUCTIONS FOR INNER LOOP - - R s 1 0 4 9 2
LOGOR, ANC LOGXOR
SAVE I R 2

---

--

--

--

.-

~ ~ ~ 1 0 1 r 9 4___
_-.
RDCI0495

-- - -

- -.-

--- --

- _-_

--

- --

I,

PAGE 1 2 5

BONNIE-S

1 7 7 2 n 0 5 o n o n 7 nnnnn
12731 -0734 0 0 2 00000
17737
0 7 3 4 QO 4 QOOOO
12733 -0754 0 0 4 00000
734 0074 0 0 4 14347
12735 -0734 0 0 4 00000
12736 0500 0 0 i 00000
12737 0 00000 0 00000
1774Q 3 0 0 0 0 0 2 1 2 7 3 0

1 2 7 4 1 -0 5 9 0
12742 0560
17747 0 0 7 4
12744 -0534
17745 0 7 7 4
12746 0020

00
CO
00
00
00
00

12747 -0602 0 0
17750 0320 0 0
12751 0020 00
12752 0322 00
12753 0602 0 0
12754 3 00000
12755 0020 0 0

0 17757
0 00503
4 17h3h
4 12756
2 00000
4 00001
0
0
0
0
0
2
0

12757
12757
12752
12757
12757
12730
12741

12756 -000000000000
12757 -0000000C0000

6034 *
~ 0 1 5 I DGI
6036
6037
6038
6039
6040
604 1
6042
LOG5
6043
6044 *
6045
LDG6
6046
6047
6048
6049
LOG4
6050
6051 +
6052
ORS
6053
ANS
6 0 5 4 ERS
6055
6056
6057
6058
6059 *
6060 T l
6061

12760 0 6 3 4
12761 0634
12767 0 6 0 1
12763 0131
12764 -0734
12765 0074
12766 0774
12767 -0120
12770 0774
12771 -0634
12772 0621
12773
c500
12774- 0074

20
00
00
00
00
00
00
00
00
00
CO
00
00

4
2
0
0
2
4
4
0
4
4
0

13003
13002
12756
00000
00000
13075
77100
12771
767CO
12777
12777
o 12756
4 14342

- -FORN THE PROPER LOGICAL COMBINATION OF THE ARGUMENTS

ROC10497
0.7
I
- - B I L C U )49.8
PDX
0 ~ 2
CDR( L I
RDC10499
PAX
014
---RDLlQfiOQ--.
PX D
074
CAR(L)
RDC10501
TSX
'VUMVAI .4
GFT NUMRFR FOR T & f i J X E M E N L - R D C I Q N 3
POX
0.4
ROC10 5 0 3
CAI
0.4
-_R.RC1050_4
_-_.-- -..- -0Q
INSTRUCTION SET E A R L I E R
TXH
1 061.7,O
U O P AGAIN I F L Q R I I I NOT N l l l 1
RDC L Q I Q b _ - - - - RETURN A POINTER TO THE RESULT
RDCI0507
CAI
Tl+l
PICKL!,LESUT
-RLCQ
fOCTD
MAKE AN OBJECT OF I T
RDCZ0013
TSX
bMKN0.4
_ _ _ _ f 3 a C ~ - - - LXD
T1.4
RESTORE I R 4 AN0 I R 2
RDCI0510
9XT
++. 7
RDCIOS11---TRA
184
ROC10512
INSTRUCTIONS TO BE INSERTFO I N INNFR LOOP
__ -RDCLQ=-ORS
T 1+1
RDCI0514
T1+1
IBaCU1%---___
ANS
TRA
++1
TRA SINCE ERS TAKES 2 INSTRUCTIONS
RDC10516
T1+1
-- - R D L 1 0 5 17- - _ -- --ERA
SLW
T1+1
ROC10518
TXH
LOG112~0
R
u
m
TRA
LOG6
RDCI0520
CIA

-0, -0

STORAGE FOR LOGAND,

ETC.

----- --- - T H I S ROUTINE USES NUMVAL,$MKNO,SZEHO,AND

SEVENS
--

--- .., - - - -

r n U L - OCT

BIRTHDAY ASStMBLY

- -- - -- --- - - -- ---

RDCI0523
-

- - - -- -

6063 *
LEFTSHIFTIX,N)
----__
6064
I F N I S + t X I S S H I F T E D L E F T N PLACE_S.
-6065
6066 +
IF N IS
X I S S H I F T E D R I G H T -N PLACES.
6067
OOTb INPUTS MUST !YE NUMER K
LA
I!_!F
&
l,Ts=
6068 *
6 0 6 9 L S H I F T SXA
LSH1.4
SAVE I R 4
6070
SXA
LSH4.2
SAVE I R 2
6071
ST0
T2
SAVE X
-.,,7--,.--.-.-.-..
6072
XCA
6073
PCX
092
FIND!'JALUE~%
6074
TSX
FIXVALt4
6075
AXT
7*4096+7+512+ 1*64* 4
SET
6076
TMI
LSH2
I F NEGATIVE. SET UP ARS
6077
AXT
7*4096+6+512+7*64,4
SET UP ALS
6078
LSh2
SXO
LSH3.4
PUT G P CODE INTO I N S T R U C T I O N
6 6 7 95TA
LSH3
-~ . P ~ D R E ~ ~ . I ~ U ~ _ S HURC.SI _ L FT~
60a0
CLA
r2
FINO V A L U E O F x
6081
TSX
NUMVAL 4
~~.
..
-

-.

1 c02-0-.ROC70030

--_ .

--

84WDDAQ -._I----..-

,..

---We

ROC70050

RDC7C!PbO_.
.- ...- .-

..

ROC70010
ROC
--7 0 0 7 0
RD
0080
-. C 7RDC70090
-?

.__

.. .
.
.
. ..

. . -.

-.

.-

.- .- .

"-

..

.. . ~ - .

ROC70140
_
ROC701 10
-R..D. C 7 0 1 2 0
RDC70150
~

._..
.

--

--.-.

-. .--.

"

P
~N~ ~ ~ .~ ~E J 0 01 6~0 7

..

. .

.. .. .

~ 0 ~ 7 0 1 7 0

--. .-.
..

RDC.?'O_r

..
...

so

--

PAGE 1 2 6

BCNNIE-S

12775 -0734 0 0 4
12776 -0500 0 0 4
12777 0 7 6 7 0 0 0
13000 0 5 6 0 0 0 0
13001 0074 00 4
13002 0774 0 0 2
13003
0774 00 4
13004 0020 00 4

13005
13C06
13007
13010
13011
13012
13013
13014
13015
13016
13017
13020
13G21
13022
13023
13024
13025
13026
13027
13030
13031
13032
13033
13034
13035
13036
13037
13040
13041
13042

C634 0 0
0634 0 0
0601 00
0500 0 0
0621 00
-0734 0 0
-0600 0 0
0500 00
0601 00
0500 00
-0534 0 0
-3 0 7 0 3 1
3 07032
-0600 0 0
0500 00
0601 00
0500 00
0601 00
C500 0 0
0601 00
0500 00
0622 00
3 00002
3 00001
-0534 0 0
0074 00
0734 00
0774 0 0
0500 00
0522 0 0

2
1
0
4
0
2
0
0
0
0
4
4
4
0
0
0
0
0
0
C
0
0
2
2
2
4
L

00000
00000
00000
00503
12636
00000
00000
00001
12756

13044
13045
13072
00003
13042
00000
13073
03321
13074
13070
13072
13032
13032
13071
03321
13072
03322
13073
03323
13074
13067
13042
13047
13056
13072
13075
00000
6 OOOCO
0 13071
4 00000

6082
6083
6084
6085
6086
6087
6088
6089
6090
6091
6092
6093
6094
6095
6096
6097
6098
6099
6100
6101
6102
6103
6104
6105
6106
6107
6108
6109
6110
6111
6112
6213
6114
6115
6116
6117
6118
6 119
6120
6121
6122
6123
6124
6125
6126
6127
6128
6129
6130
6131
6132
6133
6134
6135

----

--

BIRTHDAY ASSEMBLY

--

-- -

----- --- -ROC70190

-- R O C 7 0 2 0 0
LSH3
+t
T H I S I h S T R U C T I O N WAS SET UP EARLIER
RDC70210
dOCTD
FORM -0G.AC N!M!E!L
-- - _--!f Dc 7-0220---- - _ .- - - -- - ---6MKNO 1 4
ROC70225
LSH4
21.2
IK2 - RESTCAE
------ --- ------- --- ---- ---- - -- - LSHl
+*r 4
RDC70230
114
C 7----0240
----------------.
-- - - - R D----- - .T2
T1
ROC70270
+
RDC70280
+
T h I S ROUTINE USES SMKNO,SOCTD,ANC
NUMVAL
RDC70290
Q
HE0
RDCX0119
6880
+
1 5N3890
-* ARYGET
THE FUNCTICN THAT GETS AND SETS THE VALUES OF ARRAYS
1.5N3900
+
USED I N L I S P AS FOLLOWS
1 5N3910
---+
TO GET A VALUE
(NAME,Dl,D2,03)
1.5N3920
TO SET A VALUE
INAME,SETIVALUE,D~,D~,D~~
1.5N3930
+
1.5N3940
*
THE C A L L I N G SEQUENCE I S AS FOLLOWS
1.5N3950
SXA
ARYGTX, 4
1.5N3960
+
TSX
ARYGET, 4
1.5N3970
-+
PZE
LOCATION OF TABLE I r l N U P B E R OF DIMENSIONS
1.5N3980
*
1.5N3990
ARYGET SXA
ARYY 1 2
SAVE INDEX REGISTERS
1.5N4000
SX A
ARY Z 9 1
---1.5N4010
ST0
AG A 0
SAVE ARGUMENT 1
1.5N4020
CLA
314
TABLE ZERO PARAMETER WORD
1.5N4030
-ST A
AGXEX
ADDRESS OF END OF TABLE 1
1.5N4040
POX
092
NUMBER OF DIMENSIONS
--- - - - 1 5N4050
STQ
AGAT
ARG 2
1.5N4060
CLA
6ARG3
1.5N4070
-- --ST0
AGATH
ARGUMENT 3
1.5N4080
CLA
AX
1-5 N 4 0 9 0
XEC INSTRUCT I O N
_ -- _LXD
AGAC 14
GET ARG 1
1.5N4100
TXL
AGN.4, $SET-1
TEST FOR SET OPERATIO!!!
1.5N4110
TXH
AGN , 4 r $ S E T
GO ON I F NOT SSFF1.5N4120
ST P
AGV
I S SET SAVE VALUE
1-5N4130
C LA
6ARG3
1.5N4140
ST0
AGAO
DIMENSION 1
__ _
1.5N4150
CL A
6ARG4
1.5N4160
ST0
AG AT
OIMENSICN 2
1.5N4170
CLA
dARG5
1.5N4180
:TO
AGATH
DIMENSION 3
1.5N4l.90
CLA
AXS
XEC* INSTRUCTION
1.5N4200
AGN
STC
AGXEX
SET UP FETCH CJR STORE INSTUGTION
_ 1.5N4210
_ -___ _ _ __iXH
AGDTHp212
GO I F 3 C ARRAY
1.5N4220
TXI+
AGDTv2v 1
GO I F 2 0 ARRAY
1.5N4230
LXD
AGAO t 2
DIMENSION 1
1.5N4240
TSX
FIXVALr4
EVALUATE THE F I X E D P O I N T NUMBER
1-. 5 N 4 2 5 0
---1.5N42
--- -- -PAX
091
I N T O PROPER INDEX
60
AXT
016
ZERO
INDEX
REG
I
STERS
- - - 1.5N4270
AGXE
CLA
AGV
GET THE V A L U E - ~ 1.5N4280
AGXEX XEC
++,4
FETCn 8Y XEC OR STORE BY XEC*
1 -_ 5 N 4 2 9 0 ---- -

POX
CAL
4LS
LDQ
TSX
AXT
4XT
TRA
SYV

--

0.4
0 ~ 4

---

---

---

PAGE 1 2 7

BONNIE-S

BIRTHDAY ASSEMBLY

13043
I 3044
13045

0774 00 4
0 7 7 4 nn 7
0774 GO 1
1
3
0
4
4 QC70 0 0 4

~ 0 4 70534
13050 0074
13051 0734
13052 - 0 5 3 4
13053 0 0 7 4
13054 0 6 2 1

00000
ooooo
00000
00001

00 7 13074
0 0 4 13075
00 1 0 0 0 0 0
CO 2 13372
0 0 4 13075
00 0 13065

6 1 3 6 ARYGTX AXT
6137
ARYY
AXT
6138
ARYZ
AXT
6139
IRA
6140 +
6 1 4 1 A G D T H I xn
6142
TSX
6143
PAX
6144
LXD
6145
TSX
6146
STA

'"14

RESTORE INDEX REGISTERS

*+t 1
1.4

1.5N4300

a*. 2

'I

--.--

-.

1
,
L
? 1.5N4320

---

1.5N4340

AGATH, 7
FIXVAL.4
0.1
AGAC 1 2
FIXVAL.4
AGR

~.-m4350

C ~ I O N3
EVALUATE AS A F I X E D POINT NUMBER
1-FX
CIRENSION 1
EVA1 UAZE I T
SET UP AXT INSTRUCTION

1.5N4360

'

L-5&427.&
1.5N4380

1 5.N4400

o
6148 +
1-5N4420
9

1 3 0 5 6 Oh34
13057 -0534
13060 0074
13061 0734
13062 -0534
13063 0 0 7 4
13064 0 7 3 4
13065 0774
13066 0020
A
A

13067
13070
13071
13072
13073
13074

13075
13076
13C77
13100
13101
13102
13103
13104
13105
13106
13107
13110
13111
13112

00
00
00
00
00
00
00
00
00

0522 6 0
0522 00
0 00000
0 00000
0 00000
0 00000

0
2
4
1
2
4
7
4
0

13065
13072
13075
00000
13073
13075
00000
00000
13041

0
0
0
0

00000
00000
00000
00000
0 00000
U 00000

0 6 3 4 0 0 2 13106
0500 0 0 2 00000
0734 0 0 2 00000
-3 7 7 7 7 6 2 1 3 1 0 6
-0734 00 2 00000
-0320 00 0 00436
0100 0 0 0 13106
C500 0 0 2 0 0 0 0 0
0020 00 4 00001
0774 00 2 00000
-0634 0 0 4 01562
-0754 0 0 2 00000
0074 0 0 4 01563
543160600454.

6149
6150
6151
6152
6153
6154
6155
6156
6157
6158
6159
6160
6161
6162
6163
6164
6165
6166
6167
6168
6169
6170
6171
6172
6173
6174
6175
6176
6177
6178
6179
6180
6181
6182
6183
6184
6185
6186
61876188
6189

AGilT

AGO

AGR

SX4
LXD
TSX
PAX
LXD
TSX
PAX
AXT
TR A

AGR. 0
AGAC 12
FIXVALs4
011
AGAT * 2
FIXVAL.4
092
** 4
AGXE

AXS
XEC*
AX
XEC
AGV
AGAO
AGAT
AGATH

--------

P W E T AXT I m I ; _ T I O N
-1
CIMENSION 1
1 5N4440
F I X E D POINT N U M E L E E \ L A C U A S I O N - - _ L . & N 4 S Q
INTO INDEX 1
1.5N4460
DIMENSION 2
_ _ - 2 9 5 & % ! d L FIXED POINT NUMBER EVALUATION
1.5N4480
INTO INDFX 2
-JL2w2LL...
ZERO OR DIMENSION 1
1 5N4500
GO BACK TO MAIN PRDGRA-!
1.5N4520
THE STORE INSTRUCTION
1 L.54553_0
THE FETCH INSTRUCTION
1.5N4540
VAl
TO BF STORFD PUT HERF
---___ _
l
n----...---,1.5N4560
CIMENSION 1
OI.MENON 2
123&510--_
..- CIMENSION 3
1.5N4580
1.5N4530..
-

F IXVAL

FIXVAL HAS AS INPUT A PGINTER TO A FIXEC POINT NUMBER OBJECT I N

rR2 9 ANC HANDS BACK THE N U M E - ~ ~ V A L U E O F - T H A T - O _ r Z _ J - L C T ~

*
*
*

--.----.-

FIXVAL S X A
CLA
PAX
TXL
PDX
ANA
TZE
CL A
TRA
FXVE A X T
SXD
PXD
1S X
OC I

FXVE t 2
0.2
0,2
FXVE 121-2
012
5QT1
FXVE
0.2
114
**12
$ERROR, 4
012
BERROR+l 4
1 1 4,

s Av E

---

"

.'

.-

. .- .

.--..-.------.,.
.

--

IR2 JNCasEOFE_R_K_O_oR_-.
.

--

-..

---ERROR I F NOT ATOMIC

~

PICK UPVALUE
NORMAL E X I T--.-----.-.----,.-.,-.--.--.-.m---..-.------.---.-..-.-.-..
I R 2 ShOULD LAND I N DECR.

...

.
.

-- -

OF AC

-- -

..

I T DOES INDEED LAND THERE

BAD ARGUMENT

--

.- ~.

~-

FIXVAL

-----.--.

-.-.

1.5N4600
+

+
4

ARYMAK

THE FUNCTIU!!!LTHAT M A K E L A R & p L s - .

THE ARGUMENT I S A SINGLE L I S T WHOSE SUB-LISTS

.5Nf?blo-..

HAVE THE

~ ( ~ ~ ~ ~ ~ ~ , D I M E N S . ~ ~ . 1.!Yp51
L ~ ~. . ~

1.5N4620
& 1%5&63S)
~ ~ -

~ ~

. .

---

-..

.-

PAGE 1 2 8

13113
13114
13115
1311t
13117
13120
13121
13122
13123
13124
13125
13126
13127
13130
13131
13132
13133
13134
13135
13136
13137
13140
13141
13142
13143
13144
13145
13146
13147
13150
13151
13152
13153
13154
13155
13156
13157
13160

BONNIE-S

0560 00 0 13115
0020 00 0 04214
-3 0 0 0 0 1
0634 00
0634 CO
-0734 0 0
0500 00
0734 00
-0500 0 0
0734 00
-0634 00
-0734 00
0500 00
0734 00
-0734 00
0500 00
0734 00
0600 00
-3 07735
3 07736
- 0 6 3 4 00
0500 00
0734 00
0622 00
0074 00
0 6 0 1 00
-0534 00
-3 0 0 0 0 0
C500 0 0
0622 00
0734 00
0074 00
0 6 0 1 00
-0534 0 0
-3 00000
0500 GO
0 7 3 4 00
0074 00

0
4
2
4
4
4
4
4
4
4
4

2
4
4
4
0
4
4
4
2
2
0
4
0
4
4
4
0
?
4

0
4
4
4

2
4

13116
13320
13321
00000
00000
00000
00000
00000
03504
00000
00000
00000
00000
00000
00000
13336
13140
13140
13336
00000
00000
03505
13075
13340
03505
13164
OOOCO
03505
00000
13075
13341
03505
13173
00000
OOOCO
13075

6190
6191
6192
6193
6194
6195
6196
6197
6198
6199
6200
6201
6202
6203
6204
6205
6206
6207
6208
6209
6210
6211
6212
6213
6214
6215
6216
6217
6218
6219
6220
6221
6222
6223
6224
6225
6226
6227
6228
6229
6230
6231
6232
6233
6234
6235
6236
6237
6238
6235
6240
6241
6242
6243

BIRTHDAY ASSEMELY

--

- ---

--

--- --

-- -

--

ARRAYS M A Y BE 1 9 2 1 OR 3 DIMENSIONAL AND MAY BE OF L I S T OR

NON-LIST TYPE.
-

---

- - -.

-.

---

1.5N4640
+
1.5N4650
*
1.5N4660
*
A AY I~T-o=ASFOLLolrL:-.
- - -- --__
- - -- -1.5N4670
_---- _ - - -- .
+
SX A
ARTGTX* 4
ACDRESS OF SUBR TXL INSTRUCTION
1.5N4680
*
TSX
AKYGET.4
----1 5N4690
*
PZE
END + 1,- N OF EMENSIONS
( A R ~
POINTSR
HERE)~
1.5N4700
~ E F
PZF
TOTAL LENGTH,TH,-L&IL_sI _L_E_NGTH
_
1.5N47 1 0
*
PZE
iAE3LE ZERO,,
NUMBER OF CIME~~SION<'~ARYEET
PARAMETER
UOROl1.5N4720
CLA*
**v2
1 5N4 7 3 0 __--____-.TABLE 1
*t***i+*+++i*+++++i**i**+
1 5N4740
*
I
+
ST0
*+, 1
TABLE L
- 1 5N4750----*+***++*+++t*++i+*+*+*+t*t**
1 5N4760
*
ARRAY PROPER GOES HERE
1.5N4770
+
1.5N4780
ARYMAK LDQ
AMFAG
PICK UP FUNCTIONAL ARGUMENT
1*5N479-0
TRA
MAPL IS
LET MAPLIST HANDLE ITERATION ALONG LIS1.5N4800
1.5N4810
AMFAG TXL
*+lr,l
FUNCTIONAL ARGUMENT
1.5N4820
SAVE INDEX REG1 STERS
1-5N4830
SXA
AFRX 1 4
SXA
AFRY 1 2
105N4840
PDX
0 ,4
F " Z ! ! ~ R
1 0 LIST-_
-1.5N4850
---0 14
CLA
1.5N4860
PAX
014
POINTER TO SUBLI ST
1.5N4870
CAL
0 14
1 5N4880
PAX
0 94
NAME
1.5N4890
SXD
AFAT 9 4
SAVE I T
1.5N4900
PDX
014
1.5N49 LO
--CLA
094
1.5N4920
PAX
012
1.5N4930
POINTER TO DIMENS2_Ic_N-'-I>_T_
POX
0 14
1.5N4940
CLA
094
-1.5N4950
-----PAX
014
TYPE
1.5N4960
ST Z
ATY P
--- ---1
-- 5N4970
-- - TXL
AOAv4, S L I S T - 1
GO I F NOT 5 L I S T
1 5N4990
TXH
ADA,+*BLIST
1 5N5000
SXD
ATYP94 MAKES ATYP N O N - ~ E R OFORL
IS T ARRAYS
1.5N5010
ADA
CLA
912
FIRST WORq--ON DIMENSS~O_N___LIST ----- 1 5 N 5 O L- - - - - PAX
0 92
DIMENSION 1
1.5N5030
STD
ATMP
---- --- -- 1.5N5040
- - -POINTER TO REST
TSX
FIXVALv4
EVALUATETHE
F I X ~ POINT
NUMBER
1 5N5050
/
ST0
A DO
olMENS1fJN-L.1 5N5060.
_
LXD
ATMP.4
PICK UP POINTER TO REST OF L I S ~
1.5N5070
TxL
AOD1410
GO I F 1 D
----------- 1.5N5080
-.--"--CLA
Ov4
NEXT WORD
1.5N5090
STD
ATMP
SAVE POINTER
1.5NS100
-PAX
092
DIMENSION 2
1.5N5110
TSX
FIXVALv4
GET NUMBER VALUE
-1.5N512L
- -S TO
AOT
CIMENSION 2
1.5N5130
LXD
ATMPt4
POINTER TO REST OF L I S T
1.5N5140
- ------------- -- .- .TXL
ATD14,O
GO I F 2 D ARRAY
1.5N5150
CLA
0.4
1.-5NZ60
PAX
0 12
CIMENSION-3--1.5N5170
TSX
FIXVALr4
N"MB_E_ULUE
---- _
_ _ _ _ _ _ 1.5N5180
-- - -- - -

"

---

--

-.

PAGE 1 2 9

BONNIE-S

---

--

----

-.-.

BIRTHDAY ASSEMBLY
.

13161 0 6 0 1 00
13167 0774 no
1 3 1 6 3 0 0 2 0 00
131h4 0500 00
13165 0 6 0 1 0 0
~ 1 6 60 5 ~ 0n 0
13167 0 6 0 1 00
iql7n
oo
13171 0774 00
13177 0070 00
13173 0500 0 0
ELL74 0500 00
13175 0 6 0 1 00
13176
0 7 7 4 nn
13177 0560 00
13700 -0754 0 0
13201 0200 0 0
13202 - 0 6 0 0 0 0
13203 0 2 0 0 0 0
13204 0570 00
13205 -0600 00
13206 0 1 3 L 0 0
13207 0 4 0 0 0 0
13210 0400 00
13211 0400 00
13712 0 6 7 1 00
13213 0 6 2 1 00
1 3 2 1 4 0 5 3 4 OC
13215 0 6 3 4 0 0
13216 0074 00
13217 0100 0 0
13220
0621 00
13221 0400 00
13222 0 0 2 1 00
13223 -0634 00
13224 -0634 00
13225 -0034 0 0
13226 0 4 0 2 0 0
13227 0 6 2 1 0 0
1 3 2 3 0 0 7 3 7 no
13231 1 77776
1 3 2 3 2 - 0 6 3 4 00
13233 0 7 3 7 0 0
13234 0400 00
13235 0 4 0 0 0 0
13236 0 6 2 1 00
13237 0774 0 0
13240 0500 0 0
13241 0601 00
13242
1 17777
13243 2 0 0 0 0 1
1 3 2 4 4 -C320 0 0
13245 - 0 5 0 1 00
1 3 2 4 6 C534 0 0

0
7
0
0
0
0
0

fl
0
0
0
7
0
0
0
0

0
0
0
0
0
C
0
0
0
4
4
4
0

0
0
2
2
2
0
0
4
4
4
4
0
0
0
2
2
4
4
2
0
0
2

13342
anon?
13177
17340
13342
00371
13341
13340
00001
13177
13340
00371
13340
onan?
13340
00000
13341
13335
13342
13336
13336
00000
13335
13340
00375
13333
13337
13336
13333
04004
13323
0350s
00371
13332
13334
13332
13343
13337
13343
O O O I
13232
13344
00000
03374
13340
13334
00005
13335
00000
13243
13240
00457
13345
13340

6244

ST0

6745

AXT

6246
6747
6248
6749
6250
h751
6252
6253
6254
6755
6256
6757
6258
6759
6260
6761
6262
6763
6264
6765
6266
6767
6268
6769
6270
6271
6272
6273
6274
6775
6276
6277
6278
6279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289
6290
6291
6292
6293
6294
6295
6296
6297

TRA
CLA
ST0
Cl A
ST0

M D

TTn
AXT

AT0

AGA

ACLA

TRA
CLA
C1 A
ST0

ADTH
3.7
AGA
ADO
ADTH

~ n n

112
AGA
A DO

DIMENSION 2

o r M

1.5N5190

7.7

A DO
030
A DT
ADOT
ADTH
ATY P
ATYP
ADOT
ADO
SQ5
APWT
ATM9
ATYP.4
APWT.4
BLOCKR 4
ARYTL
ATMP
bQ1
APWC
ATBZ 12
APWC.2
AStlRt2
ATMG
ASBR
0 4
*+1949-2
AARY 94
0.4
$84
ADO
ATBZ
5.2
ADOT 2
0 14
*+1,49-1
ACLA92, 1
$AM ASK
ACLAS
ADO 12

'

.ao_ao_ao_ao_ao_ao_ao_.ao_ao_ao_-.-~

1.5N5210
~ L . 5
N 5 2 Z L - _-.-1.5N5230
1-5N52-6Q
1 5N5250
F
._ N
.I.
5~526.0 _ -..1.5N5270

1 0 ARRAY
T PART
2 D9 TREAT AS A 1 X 0 2 X D l ARRAY

.'

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

.:'-7

-.-1.5N528Q

..

1 5N5290

'

-I-_.-_.
DIMENSION 1
2 D m
y
DIMENSION 1
Z ER 4 4 L
DIMENSION 2
D l X C?
DIMENSION 3
S K I P NFXT I F m A
L I S T LENGHT
0 1 X C2 X CL3TL&
ADO INDEX TABLE LENGTHS

1.5.N52aO_

$01
ADO

LDQ
PXD
MPY
STQ
MPY
7FT
STQ
XCA
ADD
AOD
AGO
STA
STA
L XA
SX A
TSX
TZE
STA
ADD
S TA
SXD
SXD
SXD
SUB
ST A
PAC
TXI
SXD
PAC
ADD
ADD
STA
AXT
CLA
ST0
TXI
ANA
(IRA
LXA

$a.

ADT

AXT

TIX

CIMENSION 3
N
W flF LlJiEU113hlS - - - - - . - - . - 6 0 T O NEXT PART OF PROGRAM
L T R R A ' A 1 X . D 1 -

1.5N5310

-.--

-t,5N5120L-

1 5N5330
-3-LSI!ECV.L
1.5N5350

-'

---L-5-60
1.5N5370
Y

--

-80_--

1.5N5390
1.~5N540.0.-_
1o5N5410

'

~ ~ 2 ( L _ _ _ _

CONSTANT LENGTH
1 5N5430
PARAMET-0
2 5 A ----..
-SAVE LENGTH
1l5N5450
ZERO OR L I S T LENGTH
-. -.l.-X5L69.
.
-.
.
PARAMETER WORD 2
1.5N5470
RESERVE A BLOIKOF_LHlS-L_ENGGTTHH
1.9 5N5.+.80.. . . ... -.
GO I F ARRAY WILL NOT F I T
1.5N5490
F ND
F EL o c K AD DX E s s ----L ~~ W,
O. ~ ----ADD 1
1.5N5510
PA.RAMET_EeG!mQ-l 333.33333333-3.33..-333...
.... 1..5N5520 .... _.....
_ _ ...... - . . . . .
NUMBER OF DIMENSIONS
1.5N5540

--

.....

ee...eeeeeeeeeeeeeeeeeeeeee

1.*5&5_9_--

.
.
.
..-

1.5N5560

LENGTh O F BLOCK
- ..-~-5!~-.&l
-.----.
ADDRESS OF BEGINNING OG BLOCK
1.5N5580
POINTER I N I R 4
lr3N5590
__
POINTER TO ARRAY PROPERTY
1.5N5600
SAVE POINTER
._
... _
l~>N~5_6il-O..
.
POINTER TO BEGINNING OF ARRAY
1.5N5620
L ENG T H p P R f F I . X - L L
...7~-.~-..--...-...
-- -........
..
1.5N5640
L AS T L ! J L d ~ A A @ ! -=- ~_ ~
A 5 N5 650.. ..
..... _
.
LENGTH OF PREFIX TO ARRAY
1.5N5660
P 1 CK UP L ! ? R & 3 F ~ _ I X I X I X
._-1.,5!N_5-bb7CL
-_bbb....bb
--AND STORE I N CORE
1.5N5680
u PDT /I
'XA!&UL&CfiLoN___-.
-~J1115C?~6-%O_o_o_
..-..---GET REST OF PREFIX
TABLE ZERO I N AC
___--.-.
.... .
.
3,5_N_5710.
_
....
.
..........
..
Gd I N CLA* INSTRUCTION
1.5N5720
L E S T b..SF-- TaEL E.-. .
- 1*_51?_52
30. .-. ._
..... -- .-.

--

...

--

--

----

PAGE 1 3 0

BONNIE-S

--

B I RTHOAY lSSEMeLY

- --

13247 0400 00
13250 0601 00
13251 1 77777
13252 2 00001
13253 0534 00
13254 -0320 0 0
13255 -0501 00
13256 0400 00
13257 0601 00
13260
1 77777
13261 2 00001

13262
13263
13264
13265
13266
13267
13270
13271
13272
13273
13274
13275
13276
13277
13300
13301
13302
13303
13304
13305
13306
13307
13310
13311
13312
13313
13314
13315
13316
13317
13320
13321
13322

0500
0560
0074
0560
0074
0131
0500
0074
0601
0500
0074
0560
0074
0131
0500
0074
0131
-0534
0500
-0734
-0754
0131
0074
-0534
0622
-0754
0560
0074
0622
050C
0774
0774
0020

00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00

O 13341
4 00000
4 13252
z 13247
2 13335
0 00457
0 13346
U 13342
4 00000
4 13261
2 13256

0
0
4
0
4
0
0
4
0
0
4
0
4
0
0
4
0
4
4
4
4
0
4
4
4
4
0
4
0
0
4
2
4

13344
00370
03730
00370
03730
00000
13347
03730
03505
13343
03710
03505
03730
00000
00506
03730
00000
03504
00000
00000
00000
00009
07675
03504
00000
00000
03305
03730
03305
03504
00000
OOOCO
COO01

13323 -063h 00 4 01562

13324 0534 GO 2 1 3 3 2 1
13325 0500 00 0 03504
13326 0074 0 0 4 01563
13327 543160600154
13330

0634 00 4 13043

6298
6299
6300
6301
6302
6303
6304
6305
6306
6307
6308
6309
6310
6311
6312
6313
6314
6315
6316
6317
6318
6319
6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
6332
6333
6334
6335
6336
6337
6338
6339
6340
6341
6342
6343
6344
6345
6346
6347
6348
6349
6350
6351

AADC

ADD
ST0
TX I

~ I X

AAA

LXA
AN A
OR A
ADO
ST0
TXI
TIX

AFRX
AFRY

CLA
LOQ
TSK
LDQ
TSX
XCA
CLA
TSX
ST0
CLA
TSX
LDQ
TSX
I(CA
CLA
T SX
XCA
LXD
CLA
PDX
PXD
XCA
TSX
LXD
S TD
PXD
LDQ
TSX
ST0
CLA
4XT
AXT
TR A

ARYTL SXD
LX A
CLA
TSX
3C I
SXA

A DT
094
*+194,-1
AADD12r 1
ADOT 2
$AMASK
ARSTO
ADTH
---------0.4
*+lr4r-l
AAA12,l
TABLE CONSTRUCTION
THE FOLLOWING ACDS
AARY
$ZERO
LCON$,4
$ZERO
SCONSIQ

INCREMENT BY DIMENSION 2
PUT I N CORE
UP DATE CORE COUNTER
F IN ISHUFFF
- - _-- _
LENGTH OF TABLE 2
CLEAR OUT ALL BUT ADDRESS
PUT IYSTRUCTION
ADD CIMENSION 3----PUT I N CORE
UPDATE CORE COUNTER
CONTINUE TO CONSTRUCT TABLE
ALL DONE.
PROPERTYS TO THE ARYATOM
PICK UP POINTER TO TO ARRAY PROPERTY

---

-7.--

- -

-- --

-1.5N5740
1.5N5750
1.5N5760
-1._5_~517.~1.5N5780
0
-

--

--

- __ --

------.- .

--

__

--1.5N5800

--

--

-------

"-"

-- --

--

1.5N5810
1-5N5820
1 5N5830
1.5N5840
-1.5N5850
1.5N5860
1.5N5870
1.5N5880
1.5N5890
1.5N5900
1.5N591O
ARY
POINTER TO ATOMIC SYMBOL ARRAY
1.5N5920
SCONS I 4
(ARRAYr(P0INTER TO ARRAY PROPERTY))
1.5N5930
AT#P
SAVE I N TEMP STORAGE
1 5N5940
ASBR
TXL INSTRUCTIONM
1.5N5950
OCONSk.4
PUT I N FULL WORD SPACE
1,5N5960
ATMP
REST OF PROPERTIES
1.5N5970
ZCONS 1 4
-- 1.5N5980
1.5N5990
AS5
POINTER TO $SUBK ATOMIC SYMBOL
1.5N6000
$CONS 1 4
1,5N6010
s A v ! N MQ
-1 5N6020
AFAT14
POINTER TO YAME
1 5N6030
014
FIRXT WORD
1.5N6040
0 14
SAVE POINrER TO REST
1.5N6050
014
PUT I N AC
1.5N6060
-INTER CHANGE A C ANDM Q
1.5N6070
SNCGNC, 4
SPLICE
2 L I S T S TOGETHER
1.5N6080
AFAT, 4
POINTER TO F I R S T WORD ON PROPERTY LISTL.5N6090
0,4
REPLACE CECREPENT OPERATION
1.5N6100
014
POII'TER
TO ARRY ATOM
1.5N6110
ARYLIS
PICK UP ARRAY L I S T
1 5N612%
BCONS 4
PUT ON ~ T I V EA R R ~ Y1.5N6130
ARYLIS
UPDATE A R R A Y L I ST
!2 ~!!!!%--AFAT
F I N A L ANSWER
1.5N6150
*it4
RESTGRE INDEX REGISTERS
1.5N6160
-.-..--f+r2
1.5N6170
114
E X I T -1.5N6180
- 1 5N6190
SEHROR,4
SAVE INDEX 4
-1&N 6 E 0
AFRY 9 2
RESTORE INDEX 2
105N6210
AFAT
ARRAY NAME
----- 1.5N6220
GO TO ERROR
1.5N6230
SERROR+lp4
lr+I
1,
iVOT ENOUGti
ROOM
FOR
ARRAY
- -- - - - .-- - CONSTAVTS A N ~ R A G E
1.5N6280
ARYGTX, 4
5 WOKE PREFIX TO ARRAYS
1-5N6290
---

----

-----

--

-----

------ - -- --- -

--

--

--

- -. --- -

-- -

-"

---

--

PAGE 1 3 1

BCNNIE-S

- --

-13331

--

--

0 0 7 4 0 0 4 13005

17377

n nn-nnn

6352
~ 7 5 7 A P W ~

13333
13334
13335

0 OCGOO 0 0 0 0 0 0
0 00000 o ~ O O W
0 OCOOO 0 OCOOO

6354
6355
6356

APWT
ATBZ
ADGT

13337

0 00000 0 00000

6358
59
6360
6361
6362
6363
6364

ATMQ

TSX

---

--

13347

13350
13351
13352
1 3 3 5. 3
13354
13355
13356
13357
13360
13361
13362
13363
13364
13365
13366
13367
13370
13371
13372

0
0
0
0
2

OOOCO
00000
00000
00000
OCOOO

0 10735 0 00000
00506

0634
-0600
0074
-0734
0500
0601
-0600
0500
0074
-0734
0500
0131
0402
-0100
0500
0601
0500
0774
0020

00
00
00
0
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00

4
0
4
44
0
0
0
4
4
4
0
0
0
0
0
0
4
4

1 3 3 7 3 -C6OO
13374 0634
13375 -0534
13376 0 0 7 4
13377 0761
13400 0020
13401 0500
13402 0074
13403 0 5 6 0
13404 -0600
13405
0560
13406 0 7 7 4

00
00
00
00
00
00
00
00
00
00
00
00

0
2
2
4
0
0
0
4
0
0
0
2

13371
13416
14342
00000
00000
13415
13417
13416
14342
00000
OOOCO
00000
13417
13373
13417
03321
13415

ooooo

00001
13416
13406
13417
14550
00000
13410
13415
14565
00476
03321
13416
00000

- --

--

- --

E-,
OF D
LENGTH, I L I ST LENGTH
TAB! F L E & m
- _ _ _ _ - - C 1 X C2

6 3 6 6 ARY
6367
AS0
SYN
6368 1
6369 +
6 3 7 0 + UNUMIX
6371 *
6372 *
6373
6 3 7 4 UNUMIX SXA
6375
STQ
6376
TSX
6 3 7 7P
P Y O
6370
CLA
ST0
6379
STQ
6380
6381
CLA
6382
TSX
6383
POX
6384
CLA
6385
XCA
6386
SUB
6387
TN Z
6398
UNUE CLA
6389
STT!
6390
CL A
6 3 9 1 UNUX ~ x r
6392
TR A
6393 *
6 3 9 4 UNMXA S T Q
6395
SXA
6396
LXD
6397
TSX
6398
FJOP
6399
TR A
6400
CLA
6401
TSX
6402
L DQ
6403
5TQ
6404
LD(1
6405
UNUXL LXT

--- --

--

1 5N6320
1

-I

&

X--

'

1.5N6340

---L.5rw3&l
TEMPORARY STORAGE
1
-C2
D3

is,,

--

1 5N6300

ADO

ADT
ADTH
ASBR TXL
AARY
ACLAS CLA*

-- ---

ARYGET94

MT1 3 3 4 1 9 OCOOO
13347 0 00000
1 3 3 4 3 -3 0 0 0 0 0
13344 0 00000
13345 050C 6 0

---- - --

EIRTHDAY ASSEMBLY

-- -

-13N639-0
1.5N64GO

SS

P O W T F R TO A R R A Y FETC
-h INSTRUCTION
.
- PLJT I N S T W ~ N

**t2

**,I

9 $ARRAY
f SUBRD

-1 5N6420

_ a x ) - _ _
EVALUATES I T S 2 NUMEXICAL ARGUMENTS AND FLOATS THE F I X E D 1.5M6400
POINT ARGUMFNT I F A MIXED E X P R F S I i l N .
THF U M F R I C A I . - VALUES ARE L E F T I N AC AND MQ WITH TYPE OF NUMBER I N SARG31.5M6420

UNUR
UNMXA
UNUR
$AKG3
UNUS
*+,4
194
UNUT
UNUXZtZ
IJNUR 9 2
FIXFLOt4
UNMXB
UNUS
$UNFIX94
UNFLT
f ARG3
UNUT
**r2

'

-1,+H&43_0
1a 5 M 6 4 4 0

UNUX, 4
UNUT
NUMVAL14
Or4
UNUS
UNUR
UNUT
NUMVAL, 4
Or4
0 94

--

SAVE L I N K I R
S A V E SECOND ARG'JMENT
____l-NUMERICALLY EVALUATE THE F I R S T ARG
1.5M6460
N
r R
E
R ---___
NUMERICAL VALUE
1.5M6480
SAVE I T
1 5M-639 0-- -SAVE TYPE OF NUMBER
1.5M6500
P I C K UP SECOND ARG
--_l.
5M6510
NlJMER I C A L L Y EVALUATE I T
1-5M6520
POINTER T O F U L L WORD
~
~
NUMERICAL VALUE
1.5M6540
VLUE TO MQf TYPE TO AC
-LY!A65.5_0_
COMPARE WITH TYPE OF F I R S T
1.5M6560
TRA I F NOT SSP%
1.5M6580
P I C K UP NUMBER TYPE

_ _ _ - - d - m x o

-.---

----.-

--

--

-__ - -

--

1- 5 M 6 6 0 0
_- - _ --- - - -- 12 S_Mhb_l_O_ _ - 1.5M6620
--...-- -_1_*_5M46_3-O0----- -_MIXED TYPES, SAVE SECOND VALUE
1.5M6640
SAVE I R 2
Il--_l--.---1-tL5m_5~
-- -- -- P I C K UP TYPE OF F I R S T NUMBER
1.5M6660
DISPATCH
-- - -- -.--- - --1 --5M66-70- -- IMPOSSIBLE
RETURN
1.5M6680
FLOA r S E C m m E R _ 1.5M6690-_
______
F I R S T NUMBER
1.5M6700
FLOAT I T
1~5A6LL0!-.
___.-,
$FLOAT FOR TYPE
1.5M6720
---- -- - 1--5M6730
__ SECONC NUMBER
1.5M6740
-RESTORE I R-2 -- - -- -- - - .- -- -. 1 5Mh75-0-_
P I C K UP F I R S T NUMERICAL VALUE
R E S T O R E LINK IR
-EXIT

_SL

- --

.-

PAGE 1 3 2

BONNIE-S

13407

0020 0 0 0 13371

13410
13411
13412
13413
13414
13415
13416
13417

0131 00
0074 00
0131 00
0534 00
0020 00
0 00000
0 00000
0 00000

0
4
0
2
0
0
0
0

00000
14565
00000
13406
13366
00000
OOOOG
00000
00476

0 9 8 b M 5 . L *

13420
13421
13422

0604 0 0 0 13510
0057 00
000003
0020 0 0 0 13432

13423
13424
13425
13426

0604
0057
0055
0020

0 0 0 13510
00
000003
00
000002
00 0 13432

13427 0604 00 0 13510

13430 0057 0 0
000003
13431 0055 0 0
000001
13432 0634 0 0 4 13501
13433 0634 00 2 13500
13434 0074 0 0 4 13350
13435 -0534 0 0 2 03321
1 3 4 3 6 -0600 0 0 0 13511
13437 0074 0 0 4 14550
13440 0761 00 0 00000
13441 0241 00 0 13511
13442 0020 00 0 13471
13443 0760 00 0 00012
13444 0 0 7 4 0 0 4 01676
13445
0 0 5 4 GO CCOOCl
13446 0020 0 0 0 13476
1 3 4 4 7 - 0 6 0 0 GO 0 1 3 5 1 1
13450 0560 00 0 03321
1 3 4 5 1 0074 0 0 4 12636
13452 0054 0 0
000002
13453 0020 00 0 13504
13454 0 5 6 0 0 0 0 00370

6406
6407
6408
6409
6410
6411
6412
6413
6414
6415
6416
6417
6418
6419
6420
6421
6422
6423
6424
6425
6426
6427
6428
6429
6430
6431
6432
6433
6434
6435
6436
6437
6438
6439
6440
6441
h442
6443
6444
6445
6446
6447
6448
6449
6.450
6451
6452
6453
6454
6455
6456
6457
6458
6459

BIRTHDAY ASSEMBLY
TKA

UNUX

RESTORELINK

AND EXIT

--

-- --

--- -- --

- - ----- - ---

--

-- --

1.5M6760
1.5M6770
UNMXB XCA
FLOAT SECOND NUMBER
1.5M6780
TSX
bUNFIXg4
FLOAT FUNCTION
-- -- -. - - -- 1
--. 9 4 6 7 9 9
XCA
BACK TO MQ
1 5M6800
LXA
RESTORE I R 2
-1.5M6810
-UNUX212
TRA
UNUE
GET F I R S T NUMBER, RESTORE L I N K + E X I T 1.5M6820
UNUS
FIRST N U M E k . C L y L ! E
3-*34FM6!333P_.-- - - _-UNUT
SECONC ARG AND VALUE
1.5M6840
UNUR
TYPE OF F I R S T ARG
1.5M6850
UNFLT
SYN FLOATD
FLOAT INDICATOR
+
1.5M6870
4
T H I S ROUTINE USES N U M V A L , $ U N F I X j F I X F L O t AND $ARG3
+ $FLOAT
1.5M6880
u
4
1 5M6900
* DIVIDE
D I V I D E S THE F I R S T NUMERICAL ARGUMENT BY THESECGND. THE
le5M6910
4
ANSWER I S A L I S T OF THE QUOTIENT AND THE REMAINDER.
1.5M6920
*
1.5M6930
* QUOTEN
G I V E S THE QUOTIENT WHEN THE F I R S T NUMERICAL ARGUMENT I S 1.5M6940
4
D I V I D E D B Y THE SECOND.
1 5M6950
1.5M6960
+ REMAIN
G I V E S THE REMAINDER WHEN THE F I R S T NUMERICAL ARGUMENT I S 1 . 5 3 6 9 7 0
it
D I V I D E D B Y THE SECONCI.
1.5M6380
D I V I D E ST1
DIVND
SAVE INDICATORS
1.5M6990
R IR
3
D I I C E INDICATE
1.5M7000
TRA
0 IVOP
DO OPERATION
1.5M7010
*
1.5M7020
REMAIN 5 T I
DIVND
SAVE I N 0 ICATORS
1.5M7030
RI9
3
C I V I C E INDICATE
1.5M7040
SiR
2
SET REMAI~\IDER I N D I - Q E X
1.5M7050
- -- - --TRA
OIVCP
CO O P E R t T I O N
1.5M7060
*
1.5M7070
-- "-------=
*--.----p-p=-QUOTEN ST1
DlVND
SAVE INDICATORS
1.5M7080
KIR
3
o I v I o E INDIK!!xE
_ __
1.5M7090
- -SIR
I
CUOTIENT I N D I C A T O R
1.5M7100
DIVOP SXA
DIVX14
s A v u I R- - _
1 ._5-M 7 1 1 0
-SX A
OIVX2,Z
SAVE I R 2
1.5M7120
TSX
UNUMIX,4
NUMERICALLY EVALUATE THE ARGUMENTS
1.5M7130
LXD
SARG3 j 2
P I C K UP TYPE
1.5M7140
S TQ
D IV T
SECOND ARG
ON TYP-E
1.5M7150
-T SX
FIXFLO94
1.5M7160
NOP
I M P O S S I B L E RETU3N
1.!jM7170
FDP
D IVT
FLOATING D I V I D E
1.5M7180
TRA
DIVFX
DO F I X E D P O I N T D I V I D E
-- 1.5M7190
-_
DIVDC DCT
CHECK FOR ILLEGAL DIVISION
1 5M7200
TSX
BDCT 4
1.5M7210
D I V I D E CHECK E R E L___---- - -- RF T
1
5EE I F REMAINDER I S TO BE SAVED-1.5M7220
rRA
DIVA
NO* SET UP QUOTIENT
1.5M7230
- - - -- - - - STQ
OIVT
YES* SAVE QUOTEINT
1.5M7240
LDQ
BARG3
P I C K UP TYPE
---- - - - - - " -T SX
SMKNO, 4
MAKE REMAINDER A NUMBER
1.5M7260
RFT
2
TEST TO- SEE I F _QUOTIEN-! LS-WANTED
1*5M7270
- T8A
DIVEX
NO, RESTORE AND E X I T
1.5M7280
LDQ
$ZERO
N I L I N MQ
1.5M7290
- ----

'

--

---

--

---

"-

--

-PAGE 1 3 3

BONNIE-S

BIRTHDAY ASSEMBLY

.......

13455
11456
13457
13460
13461
U467
13463
13464
13465
13466
13467
13470

0074 00
0 1 31 n o
C500 00
-0 6 0 0 0 0
0560 00
0074 0 0
0560 00
0074 00
0534 0 0
0534 0 0
0441 00
0020 00

4 03730
a oaooo
0 13511
0 135l.J.
0 03321
4 17636
0 13511
4 03770
4 13501
2 13500
0 13510
4 00001

13471 0131 00 0 00000

13472 -0754 00 0 00000
13473 0763 00 0 00000
13474 0221 00 0 13511
13475 0020 0 0 0 13443
1 3 4 7 6 0 1 3 1 0 0 0 OOOCO
13477 0560 0 0 0 03321
13500 0774 0 0 2 00000
13501 0774 0 0 4 00000
13502 0441 00 0 13510
13503 0020 0 0 0 12636
13504
13505
13506
13507

0534
0534
0441
0020

00
00
00
00

2
4
0
4

13500
13501
13510
00001

13510
13511

0 00000 0 00000
0 00000 0 00000

13512 0634 00 4 13525

13513 0634 0 0 2 13524
13514 0074 00 4 13350
13515 -0534 00 2 03321
13516 -0600 00 0 13527
13517 0 0 7 4 0 0 4 14550
13520 0761 08 0 00000
13521 0302 00 0 13527
13522 0402 00 0 13527
13523 0560 00 0 03321
13524 0774 00 2 00000
13525 0774 00 4 00000
13526 0020 00 0 12636
13527

0 00000 0 00000

6460
TSX
6461
XCA
6462
CLA
6461
ST^
6464
LDQ
6465
TSX
6466
L DQ
6467
TSX
LX A
6468
6469
I XA
6470
LO1
6471
TR A
6472 *
6 4 7 3 D I V F X XCA
6474
PXD
6475
LLS
6476
DVP
6477
TR A
6478
DIVA
XCA
6479
LUG)
6430
D I V X 2 AXT
6 4 8 1 DIVX
AXT
6482
LDI
6483
TR A
6484 *
6 4 8 5 D I V E X LXA
6486
LXA
6487
LDI
6498
TR A
6489 +
6490
DIVND
6491 UIVT
6492 *
6 4 5 3 * T H I S ROUTINE
6494 *
6495 *
6 4 9 6 * GIFFER
6497
6 4 9 8 DIFFER S X 4
6499
SX A
6500
TSX
6501
LXD
6502
STQ
6503
TSX
6504
NOP
6505
FSB
6506
SUB
6507
LDQ
6 5 0 8 D I F X Z AXT
6 5 0 9 DIFX
4XT
6510
TR A
6511 *
6512
DIFT
6513 +

$CONS 1 4
DIVT
OIVT
$AR(;3
SMKNn.4
DIVT
Scatys. 4
DIVX14
DIVX7.7
D IVND
1.4

L I S T OF REMAINDER
qHUTT1 F
P I C K UP QUOTIENT

1.5M7300
1 fl
1.5M7320

P I C K UP TYPE
NAK F Q~JOLIENL_JPNUMEJL
L I S T ( R E M A INDER)
L ISTE
-E
[L
AESTORE L I N K I R
R E S T O R U L
RESTORE INDICATORS
EXIT

$ARG3
**r2
**r4
DIVND
6MKNL.

...
'

1.5M7340
L..~.M~SQ_-~.
1.5M7360

------

UML31.0.D.-----_l_-.l*I-

---.

1.5M7380

..

.,

1.5M7400
1,5M1410-.___
1.5M7420

FIXED POINT
1 . 5 M
C L E A R AC
1.5M7440
M
U
N
m
L - - 5 H - %
D I V I D E BY ARG 2
.
1.5M7460
PREFORM D I V I D E C L E L K A ~ - . ~ . R _ B Y _ O O r J r J r J r J 1 . 5 n 7 = O
QUOTIENT TO AC
1.5M7480
TYPF TO MQ
RESTORE I R 2
1.5M7500
RESTORE L I N K I R
1.5MZ51.0
RESTORE INDICATORS
1.5M7520

'

-?

dm-H

_-L-5!!353!J
1.5M7540

DIVX2*2
DIVX14
DIVND
114

E X I T R O U T I N E * R E S T O R L U--___--.-..
RESTORE L I N K I R
RESTORE INDICATORS

L-..W254

_I)._I).....--il_.__.,..--.-._I)_I)

1.5M7560
1~-5BZ51Q.-- -_
1.5M7580
1..5M7.59.OO..
.
1-5M7600

'

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

-.

INDICATORS STORAGE
L IST AND NON- L IST T W ~ M A T B B B 9 - G d G d G d L . * - 5-N..---.--..-.--------~..
115M7620
US-ES $:.lKNO* BDCTt $CONS* 5ARG3 AND UNUMIX
11c5M7.fdQ
1-5 M 7 6 4 0
LL5L745-Q
COMPUTES THE DIFFERENCE BETWEEN I T S 2 NUMERICAL ARGUMENTS1.5M7660
L
c
5 M7 6 7 0
---------DIFX14
SAVE L I N K I R
1-5M7680
DIFX212
S A V E 2 2
1.5M7690
..
UNUMIX14
YUMERICALLY EVALUATE THE ARGUMENTS
1.5M7700
OARG312
P I C K UP TYPE OF NUm.ERS
......
15 M 7 7 L
OIFT
STORE SECOND NUMBER
1.5M7720
FIXFLOt4
DISPATCH ON TYPE
L1.ZM1Z;4-0_
. ....... .-XMPOSSIaLE RETURN
1.5M7740
DIFT
FLOATING P O I N T
.
.
1.5M7750
- - .DIFT
FIXEC POINT
1 5M7760
bARG3
TYPE OF NUMBER
-1.5M7770
-. --.
. -.
--.
.-**12
RESTORE I R 2
1.5M7780
+*14
RESTORE L I N K I R
________.-,
--1~5M7799 --9.999.99999
.-.-,.
BMKhO.
MAKE RESULT A NUMBER
1 5M7800
.
.
---.
1.5M7810
....................
TEMPORARY STORAGE
1.5M7820
.
.
.
.
.

--

--.-

-2.5-

-2(7FN!lEEL

w
6
1
-

010
0
DIVT
DIVDC

i'
r -

.....

1-.5M7830........

-- .........

PAGE 1 3 4

13530
13531
13532
13533
13534
13535
13536
13537
13540
13541
13542
13543
13544
13545
13546
13547
13550
13551
13552
13553
13554
13555
13556
13557
13560
13561
13562
13563
13564
13565
13566
13567
13570
13571

13572
13573
13574
13575
13576
13577
13600
13601
13602
13603
13004
136C5

BCNNIE-S

0634 00 4 13567
0634 00 2 13570
0074 00 4 13350
-0534 0 0 2 0 3 3 2 1
0074 00 4 14550
0 7 6 1 00 0 00000
0020 00 0 13564
0120 00 o 13546
0534 0 0 2 13570
0534 00 4 13567
-0634 0 0 4 01562
-0754 0 0 0 00000
0074 00 4 01563
543160600254
0 1 3 1 00 0 00000
-0600 00 0 77662
0734 00 4 00000
-3 0 0 0 0 0 4 1 3 5 6 1
-2 0 0 0 0 1 4 1 3 5 5 6
-0754 0 0 0 0 0 0 0 0
0200 0 0 0 77662
2 00001 4 13554
0131 00 0 00000
0560 00 0 00475
0020 00 0 13567
0500 00 0 00371
0560 0 0 0 00475
0020 00 0 13567
-0120 0 0 0 13540
0074 00 4 13572
0560 00 0 00476
0 7 7 4 OC 4 0 0 0 0 0
0774 00 2 00000
0020 0 0 0 12636

-0600
-0634
-0634
0534
0534
0765
0402
-0600
0560
-0100
0601
0020

00
00
00
00
00
00
00
UO

00
00
00
00

0
1
2
1
2
0
0
0
0
0
0
0

13714
77662
77663
00370
00370
00033
00415
13715
00370
13606
13716
13620

--

BIRTHDAY ASSEHBLY

6 5 1 4 + THIS
6515
6516 *
6517
EXPT
6518
6519 *
6520
EXPT
6521
6522
6523
6524
6525
6526
6527
6528
EXPC
6529
6530
6531
6532
6533
6 5 3 4 EXPB
6535
6536
6537
6538
6539
6540
6541
6 5 4 2 OUT1
6543
6544
6545
OUT
6546
6547
6548
EXPA
6549
6550
6 5 5 1 EXPX
6552
EXPY
6553
6554
6555 G
6556
POWR
6557
6558
6559
P19
6560
6561
6562
6563
6564
6565
6566
6567

----- -- - --

--

- ----

--

ROUTINE USES UNUMIXIFIXFLOPSARG~ AND SMKNO

1.5M7840
1 5M7850
6500
TAKES 2 FIXED OR FLOATING POINTNUMBERS AS ARGUMENTS ANC--R_A_I_SESSS- - 6 5 1 0
THE FIRST TO THE POHER INDICATED BY THE SECOND*
6520
6530
EXPX.4
SAVE L I N K I R
6540
SXA
SX 4
EXPY * 2
--" - - - - SAVE
-.--.- I R. -2- - - - -T SX
UNUMIXt4
E V A L U A T E THE 2 ARGUMENTS AS
LX D
fARG3.2
PICK UP TYPE OF NUMBERS6570
TSX
FIXFL0.4
CISPATCH ON F I X OR FLOAT
6580
IMPOSSI8LE RETURN
6590
NOP
TRA
EX PA
I S FLOATING POINT
6600
TPL
EXP a
6610
LXA
EXPY 92
RESTORE I R 2
6620
EXPXg4
LX A
RESTORE I K 4
6630
$ERROR, 4
SAVE I N $ERROR
6640
SXD
0.0
PX D
CLEAR AC
TSX
$ERROR+ 1,4
GO TO ERROR
6650
BC I
1,+I
2*
FIRST ARGUMENT I S NEGATIVE -EXPTXCA
INTERCHANGED F I X E D POINT ARGUMENTS
6680
STQ
COMMON
TEMPORARY STORAGE
6690
PAX
0 14
EXPONENT
6700
TXiOUT,4,0
GO I F ZERO PONER
6710
-OUT124,l
GO I F TO FIRST POWER
TNX
PX D
0.0
CLEAR AC
6730
--PPY
COMMON
RAISE TO GIVEN POHER
6740
TIX
+-lr4,l
I N LOOP
6750
XCA
ANSWER TO AC
6760
LDO
CF IXD
$I=1X TO DECREMENL-6770___--__
-.-TRA
EXPX
RESTORE INDEX REGISYERS AND MAKE NUMBR
6780
CLA
8Q1
ANSWER I S 1
---------6790
"----------LDQ
$FIXD
$ F I X TO M Q
TR A
EXPX
EX1 T
681 0
- - -.
.
TMI
EX PC
6820
TSX
fPOWR,4
POWER ROUTINE
_6830
LDQ
FLOATD
$FLOAT TO MQ
6840
AXT
*+, 4
RESTORE IN-DEX REGISTERS
--6850
AXT
**12
6860
TR A
OMKNO
6870
MAKE ANSWER A_NUM8EK_ _- _-_ _
-- - ---.
POWER
PKLC620300
HED
LC620400
- - .__
STQ N
LC620500
SXD COMPON,l
LC620600
SXD COMMON+l,2
LC620700
LC620800
LXA ZEKOvl
LXA ZERCPZ
LC620900
LRS 2 7
LC621000
-SUB L 2 0 0
LC621100
STB FN
-----------LC621200
-- - - LOO ZERC
LC621300
TNZ P O 1
LC621400
- _ -- ------ -- -STO 2
~~621500TRA PO2
LC621600
-

--

---

--

-----

a
-

-.-a

-_--A

------

'

PAGE 135

BONNIE-S

BIRrHDAY ASSEMBLY

--- .--.- --

--.
1 3 6 0 6 0765 00
17607
1 00001
1 3 6 1 0 -0100 00
WLL - 0 7 5 4 00
1 3 6 1 2 0 7 7 1 00
1 3 6 1 7 0 7 6 0 00
13614 0400 00
13615 07h3 00
13616 0 6 0 1 03
1 3 6 1 7 0 7 6 0 00
1 3 6 2 0 0 5 6 0 00
13671 0763 00
1 3 6 2 2 0 4 0 0 00
13673 0300 00
13624 0601 00
13675 0302 00
1 3 6 2 6 0 2 4 0 00
1 3 6 2 7 -0600 00
1 3 6 3 0 0 2 6 0 00
13631 0601 00
13632 0560 00
1 3 6 3 3 0 2 6 0 00
1 3 6 3 4 0 3 0 0 00
13635
0 6 0 1 00
13636
1 00001
1 3 6 3 7 -3 00007
1 3 6 4 0 0 5 6 0 00
1 3 6 4 1 0 2 6 0 00
13642 0302 00
1 3 6 4 3 0 3 0 0 00
1 3 6 4 4 0 6 0 1 00
1 3 6 4 5 0 5 6 0 00
1 3 6 4 6 0 2 6 0 00
1 3 6 4 7 0 6 0 1 00
1 3 6 5 0 0 0 2 0 00
13651 0 00000
13652 0 00000
13653 0 00000
1 3 6 5 4 0 00400
13655 0534 00
13656 0560 00
1 3 6 5 7 0 2 6 0 00
13660
0300 0 0
1 3 6 6 1 0 6 0 1 00
13662
1 00001
13663 -3 00005
1 3 6 6 4 0 6 0 1 00
1 3 6 6 5 C534 00
1 3 6 6 6 0500 00
1 3 6 6 7 C 6 0 l 00
13670
1 00001
1 3 6 7 1 -3 00006
13672 0 5 3 4 00
13673 0500 00

0 00001
6568
1 13hl0 6 5 6 9
0 13606
6570
1 o n o ~ o 6571
0 00022
6572
Q_00003
6573
0 00415
6574
0 00033
b575
0 13716
6576
0 00000
6577
0 13715
6578
6579
0 OQD33
0 00435
6580
0 13717
6581
0 13720
6582
0 13726
6583
0 13720
6584
0 13721
6585
0 13721
6586
0 13777
6587
0 13722
6588
7 13733
6589
2 13732
6590
7 13732
6591
2 13637
6592
2 13637
6593
0 13730
6594
0 13721
6595
0 13727
6596
0 13716
6597
0 13716
6598
0 13714
6599
0 13716
6600
0 13714
6601
0 14023
6602
0 00000
6603
0 00000
6604
0 00001
6605
0 00000
6606
1 00370
6607
0 13725
6608
1 13746
6609
1 13745
6620
1 13745
6611
1 13663
6612
1 13656
6613
0 13725
6614
2 00370
6615
2 13755
6616
2 13746
6617
2 13671
6618
2 13666
6619
1 00370
6620
1 13737
6621

PO1
PO3

LRS 1
T X l P03.1.1
TNZ PO1
- P
ARS 18

FSP

.-

1 1 5 77

PO2

PO8

PO7

P18

M1
M2
M3
M4
P41
P11

PI0

P13

LXA
LDQ
FMP
FAD
ST0
TXI
TXL
ST0
LXA
CLA
ST0
TXI

P12
P15

TXL
LXA
CLA

E
FN
77
LL200
RSO
PO4

----

--.

---,--,-

.'C

LC621900
~~422000
LC622100
U l 6 3 7 3 LC622300
.-- -.
x~ cm n a - - - --..-LC622500
L 6 2 2 6 O 6 L - - - - - . . - . LC622700
I cmono
LC623100
lG6232QO
LC623300

SQ
PO4
PO5
PO5
PO6
PO6
C73
C5,2
C5.7
P0792~1
POR.7.2
C -1
PO5
R2
E

--- --

- 2
h
'

'

---."

i-u.EPuO-_

-- - - _ _ _ _ _ - - - _

LC623500
LGb236Q(lp-.--..---..LC623700
_---__ ---LC52380Q-.- --- . - -- _
LC623900

_
_

JC624Da0_

LC624100
------.

---

E
k
E
N
PO9
1
0909256
ZERC.1
W
A691
A59 1
A5.1
Pl0,ltl
P119195
W
ZEKCp2
AP6.2
A692
P12~291
PI39296
ZERGll
CP711

---

lChllRDn .

ADD L 2 0 0
ST0
CI M
LDQ
I LS
ADD
FAD
ST0
FSB
FDH
STd
FMP
ST0
LDQ
FMP
FAD
ST0
TXI
TX1
LDOFMP
FSR
FAD
ST0
LOO
FMP
5TU
TRA

.- -

LC621700

--

.
-____

LC624300
--LC-62k4_BO--.
LC624500
__LC6246'0LC624700

-_.-lpll

-_

- LUaao---

---

- - .---- L-CC662&R.0L
_

--

I
-

- --

LC626100
L 2 &2_62 &OLC626300

__

-.
- - --

- _-_

-_

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

---- .

--

--

----- --

LC624900
_-__LC 6 25 0-0 0- -- - - - - . - LC625100
-- CL625 2QSL
-- -_-. - - LC625300
--- ~ - h - C 4 a 5 _ 4 Q Q - .
.LC625500
- ----LC-6-2-5600LC625700
0-0- -- __ - -L C_6_62Z58
LC625900
_----I_.

--

- . .--,

- - -.
. -

__!WPL___

LC626700
- _ L
- _C-G
6'8 0 0 .-- LC626900
.
.
_
- LC6_2_7_00_00-_
-

- --

PAGE 136

BGNNIE-S

1 3 6 7 4 0 6 0 1 00 1 13733
1 3 6 7 5 1 0 0 0 0 1 1 13676
1 3 6 7 6 - 3 00003 1 13673
13677 0 5 6 0 00 0 13725
1 3 7 0 0 0260 00 0 13725
1 3 7 0 1 0 6 0 1 00 0 13725
1 3 7 0 2 0 5 6 0 0 0 0 13725
1 3 7 0 3 0260 00 0 13725
1 3 7 0 4 0 6 0 1 00 0 13725
1 3 7 0 5 0 0 2 0 00 0 13756
1 3 7 0 6 0 00000 0 00000
1 3 7 0 7 0 0 2 0 00 0 13763
1 3 7 1 0 0 0 0 0 0 0 0 00000
1 3 7 1 1 0 6 0 1 00 0 13716
1 3 7 1 2 0 00000 0 00000
1 3 7 1 3 0 0 0 0 0 0 0 00000
1 3 7 1 4 0 00000 0 00000
00370
00415
1 3 7 1 5 0 0 0 0 0 0 0 00000
1 3 7 1 6 0 00000 0 00000
00435
1 3 7 1 7 +200552023632
1 3 7 2 0 0 0 0 0 0 0 0 00000
1 3 7 2 1 0 OCOOO 0 00000
1 3 7 2 2 0 00000 0 00000
1 3 7 2 3 +200542710300
13724 0 0 0 0 0 0 0 00000
1 3 7 2 5 0 00000 0 00000
13726 +201552023632
13727 +200400000000
13730 +202561250731
13731 +200754342231
1 3 7 3 2 +ZOO447154100
1 3 7 3 3 +177674535132
13734 +202561250731
1 3 7 3 5 +ZOO754342231
13736 + 2 0 0 4 4 7 1 5 4 1 0 0
1 3 7 3 7 +177674535132
13740 +2014000000CO
13741 +I76777776476
1 3 7 4 2 +174400037635
1 3 7 4 3 +170523517764
13744 +I64547625227
13745 + 1 5 7 5 5 4 3 2 4 2 0 1
13746 +I54562606535
1 3 7 4 7 +201400000000
13750 +I76777776476
1 3 7 5 1 +17440003 7635
1 3 7 5 2 +170523517764
1375 3 +164547625227
13754 +157554324201
13755 +154562606535
1 3 7 5 6 0 6 0 1 00 0 14022

6622
6623
6624
P14
6625
6626
6627
6628
6629
6630
6631
6632
EA
6633
P171
6634
P24
6635
P21
6636
S1
6637
S2
6638
N
ZERO
6639
6640
L200
6641 FN
6642
E
6643
LL200
6644
RSQ
6645
PO4
6646
PO5
6647
PO6
6648
LOG
6649
53
6650 U
6651
SQ
6652
R2
6653
C1
6654
6655
C5
0 6 5 6 C7
6657
6658
6659
6 6 6 0 CP7
6661
6662
6663
6664
6665
6666
A5
6667
A6
6668
L1
6669
6670
667 1
6672
6673
6674
AP6
6675
Pl6

ST0
TXI
TXL
LDQ
FMP
ST0
LDQ
FMP
ST0
TRA

--- - - -- --

--

B I RTf1DAY ASSEMBLY
C711
Pl41lrl
P1511,3
W
I

- __

_ -__--

- .- LC_6_2_7_4.!22.-

--

- -- --

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

_--

--------------

- _LC627800LC627900

__-LC62BOOO
LC628100
LC628200
LC628300
LC628400
LC628500
LC628600
LC628700

-"-

------

'
1

--

LC629000
LC629100
SYN QOZCll
OCT +ZOO552023632

---

--

"
-

- - - -.
--

L_c_c6300_oL-__
LC630100

-_

LC630200-.--___
LC630300
LC630400
-- --LC630500
LC630600
LC630700
"----"----------LC630800---LC630900
LC631000
- - - -- --- - - --- --- LC631100
LC631200
-- -LC631300
LC631400
LC631500
LC631600
- -LC631700

--

-- -. - - - -

---

------

-- -

--A-

-- .

- -- - ---

- - -

--

P
A
-

_ --

--"---.-----

--------

--

LC629800
LC629900

-- -- -- - - -

---

LC629300
LC629400
LC629500
LC629600
LC629700

C C T +200542710300

+201552023632
+200400000000
+202561250731
+200754342231
+2Q0447154L00
+I77674535132
+202561250731
+200754342231
+200447 154100
+I77674535132
+201400000000
+I76777776476
+174400037635
+I70523517764
+I64547625227
+I57554324201
+154562606535
+201400000000
+I76777776476
+174400037635
+170523517764
+I64547625227
+I57554324201
+I54562606535
EW

_ __-- -

-- -

_-A-

SYN $ZERO
SYN SQOZOO

OCT
OCT
OCT
OCT
OCT
OCT
OCT
OCT
OCT
flCT
nCT
OCT
OCT
nCT
OCT
OCT
OCT
OCT
OCT
OCT
OCT
OCT
QCT
UCT
STU

- - ---

LC627500
--LC627600
-- ----LC627700

T R A P17
ST0

- - -LC627100
LC627200
LC627300

W
W
W
W
h
P16

-----

--..--

~ ~ 6 3 1 8 0 0 - - -___LC631900
LC632000
--.---------.---*
- -- - -- -LC632100
LC632200
--.
--- - - LC632300
LC632400
p
p

--

--

--

PAGE 137

UCNNIE-S

--

--

-.
.
--

-- - ---

- --

-- -

- -- -- --- -

--

BARTHDAY ASSEMBLY
-

13757
13760
13761

-0020

'

0500 0 0 0 1 3 7 0 7
flbfll 0 0 O 1 3 6 4 4
0500 00 0 14022
00 G 1-3575
13763
0020 0 0 0 1 4 1 2 3
U 7 6 4 0500 OQ 0 11711
1 3 7 6 5 0 6 0 1 00 0 1 3 6 4 4
13766 0514 00 1 00370
1 3 7 6 7 05G0 00 ? 1 3 7 3 7
13770 0641 00 1 13733
13771 1 00001 1 13772
13777 -3 O W 0 3 1 13767
1 3 7 7 3 0560 0 0 0 1 3 7 1 0
1 3 7 7 4 0260 0 0 0 13723
1 3 7 7 5 0302 00 0 1 3 7 2 4
1 3 7 7 6 0140 0 0 0 14013
13777 0601 00 0 13712
1 4 0 0 0 0 5 6 0 00 0 1 3 7 1 2
1 4 0 0 1 0260 0 0 0 1 3 7 2 7
1 4 0 0 7 0302 0 0 0 1 3 7 4 7
14003
0 6 0 1 00 0 1 3 7 1 3
14004 0560 00 0 13712
1 4 0 0 5 0 2 6 0 00 0 1 3 7 1 3
14006 0300 00 0 13747
14007 0601 00 0 13712
1 4 0 1 0 0 5 6 0 00 0 24072
1 4 0 1 1 0260 00 0 1 3 7 1 2
1 4 0 1 2 0 6 0 1 00 0 1 4 0 2 2
14013
0560 00 0 1 3 6 5 1
1 4 0 1 4 0260 00 0 1 4 0 2 2
1 4 0 1 5 0 6 0 1 00 0 1 4 0 2 2
14016 0 5 0 0 00 0 13714
1 4 0 1 7 0120 0 0 0 14113
1 4 0 7 0 0500 0 0 0 1 3 7 4 7
1 4 0 2 1 0020 00 0 1 4 1 1 1
1 4 0 2 2 0 00000 0 00000
14023
C560 0 0 0 0 0 3 7 0
14024 0760 0 0 0 0 0 0 0 3
1 4 0 2 5 0765 0 0 0 00033
1 4 0 2 6 0402 0 0 0 0 0 4 1 5
1 4 0 2 7 0020 00 0 14106
1 4 0 3 0 0500 00 0 0 0 3 7 0
1 4 0 3 1 0763 00 0 0 0 0 0 0
1 4 0 3 2 0 4 0 0 00 0 0 0 4 1 5
14033
0400 00 ti 13653
1 4 0 3 4 C767 04 0 0 0 0 3 3
1 4 0 3 5 0 4 0 0 00 0 13654
14036 0 6 0 1 00 0 1 3 6 5 1
1 4 0 3 7 -0600 0 0 0 13652
14040 0500 00 0 13652
1 4 0 4 1 -0100 00 0 1 4 0 6 0
1 4 0 4 2 0 5 0 0 00 0 13714
14043
0120 00 0 1 4 0 4 7
1 4 0 4 4 0500 0 0 0 13747

6676
6677
6678
6679
6680 P I 7
6 6 8 1 P47
6682
6683
G6E4
P23
6685
6686
6687
P??
6688
6689
6690
6691
6692
6693
6694
6695
6696
6697
6698
6699
6700
6701
6702
6703
6 7 0 4 P25
6705
6706
6707
6708
6703
6710
6 7 1 1 EW
6712
PO9
6713
6714
6715
6716
6717
P40
6718 P39
6719
6720
6721
6722
6723
6724
6725
6726
6727
6728
6729

CLA P I 7 1
STn P I 8
CLA EW
I R A P19
TRA PZO
r1 4 p31
S T 0 P18
IX i 7 E U . l
CLA CP7,l
ST0 C7.1
T X I P221111
T-xl-PaA~21,1.3
LDQ P24
FMP I OG
FSB S3
TOV P25
ST0 S1
LDQ S1
FMP R2
FSB I 1
ST0 S2
LDQ S1
FMP S2
FAD L 1
STO S 1
LDQ EW
FMP S 1
STU EW
LDR M 1
FMP EW
S T O EW
CLA N
TPL P26
CLA L l
TRA P27
LDO
SSP
LRS
SUB
TRA
CLA
L LS
ADD
ADD
ALS
ADO
ST0
5Tfl
CLA
TNZ
CLA
TPL
CLA

LC632500

m . 6 n o

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

0--0-"

LC632700

--_ -.- -LC632809 --.-.--p--.-...

1- t-6-3-7-9-0-O
LC6XQa(l..---.-..-.----__.

__I__---..--

'

LC633100
... .- -.. .

_LC4312DDDDDDD

LC633300

LC633500

-_C(16314M____-

LC633700

__
----.,--..
a

--

LC633900

L
6
6
3
4
m

----

LC634100

__-lJx34Ura_

____-A_-

.
-

-_

LC634300

---

_______LGwk
_

--

-----

LC634500
-- __ LC-63560Q- - -- -- _ ___
LC634700
LC634800 ----LC634900
- _--.I_L_am..--- .- - -. - " "LC635 1 0 0
.-LC 6392CLOO-. - . _ _
_.
-LC635300
- - _ _
LC635300 .
LC635500
LC635700
LC6358.00
LC635900
_-C43-6
L 0 O&
LC636100

_-

---_____-----

Mcb35-

- --_

---

LC636300
-L_C_63640-0-LC636500
--- - L C_63L60L
--_- _ _- --

-_

--

_
_
I
_
p
I
-

--

-- -

LC-!a_Q__--"_

ZERO
27
L200
P28
ZERO

--

_ _ _ --

ii

L200
M3
27
M4
M l
M2
t42
P29
N
P30
L1

- -----

LC-636800
----.--.-- -- .
LC636900
--- -----.-- - .-LC_637000
.- - _
_
LC637100
---- -LC637200
-- - - -- -- - - - LC637300
----.
-- -.- -L__c_c6_3_7-4-o_~0 -- - - . - -LC637500
LC637600 - - _ _
- -- - --._ -- -- -.
LC637700
- --- -- - _Lc637_80_q_ -_

-----------

p*v

PAGE 138

BCNNIE-S

BIRTHDAY ASSEMeLY

--

-1 4 0 4 5 0240 00
1 4 0 4 6 -0600 00
1 4 0 4 7 0534 00
1 4 0 5 0 0560 0 0
1 4 0 5 1 0 6 0 1 00
14052 1 00001
1 4 0 5 3 - 3 00003
1 4 0 5 4 0500 0 0
1 4 0 5 5 -0534 00
14056 -0534 0 0
14057 0020 00
1 4 0 6 0 0760 00
1 4 0 6 1 C534 00
1 4 0 6 2 0763 00
14063 1 0 0 0 0 1
1 4 0 6 4 0100 0 0
1 4 0 6 5 0765 0 0
1 4 0 6 6 -0754 0 0
14067 0 7 7 1 00
1 4 0 7 0 -0760 0 0
1 4 0 7 1 0 4 0 0 00
1 4 0 7 2 0 4 0 0 00
1 4 0 7 3 0763 00
1 4 0 7 4 0 6 0 1 00
14075 0 5 6 0 00
1 4 0 7 6 0 2 6 0 00
14077 0 6 0 1 00
1 4 1 0 0 0020 0 0
14101 0500 00
1 4 1 0 2 0 6 0 1 00
1 4 1 0 3 0500 00
1 4 1 0 4 0 7 6 0 00
14105 0 0 2 0 0 0
14106 o l n o 0 0
14107 -0120 00
1 4 1 1 0 0020 00
14111 0240 00
14112 -0600 0 0
14113 0 5 0 0 0 0
1 4 1 1 4 -0534 0 0
14115 -0534 00
14116 0 0 2 0 0 0
14117 0 6 2 1 00
14120 0 0 2 0 0 0
1 4 1 2 1 0 6 0 1 00
14122 0020 00
14123 0 7 6 0 O C
14124 0 6 0 1 00
14125 0 0 2 0 00

0
O
1
1
1

13651
13651
00370
13737
13733
1 14053
1 14050
0 13651
1 77662
2 77663
4 00001
0 00000
2 00370
0 00001
2 14064
0 14062
0 00001
2 00000
0 00022
0 00003
0 00415
0 13653
0 00033
0 13652
0 13723
0 13652
0 13725
0 14121
0 13747
0 13651
0 13714
0 00003
0 14074
o 14101
0 14101
0 14117
0 14022
0 14022
0 14022
1 77662
2 77663
4 00001
0 14031
0 14030
0 13724
0 13655
0 00003
0 13710
0 13764

14126 - 0 6 3 4 0 0 4 0350C
14127 0774 00 4 07355
14130 0 6 0 4 00 0 0 3 5 0 1

6730
6731
6732
6733
6734
6735
6736
6737
6738
6739
6740
6741
6742
6743
6744
6745
6746
6747
6748
6749
6750
6751
6752
6753
6754
6755
6756
6757
6758
6759
6760
6761
6762
6763
6764
6765
6766
6767
6768
6769
6770
6771
6772
6773
6774
6775
6776
6777
6778
6779
6780
6781
6782
6783

FDH M 1
STQ M 1
P30
LXA LERC.1
P32
CLA CP791
-- ---ST0 C7 1 1
TXI P 3 1 ~ 1 ~ 1
P31
TXL P32r 1 t 3
CLA M l
--"
-- ..LXD COMPON. 1
L X D C O M N O N + ~ ,2
TRA 1.4
P29
CLM
LXA ZERC92
P34
LLS 1
TXI P 3 3 ~ 2 9 1
P33
TZE P34
LRS 1
PXD 092
ARS 18
SSM
ADD L2OO
ADD M3
LLS 2 7
P36
ST0 M2
LDQ LOG
FHP M2
STn W
TRA P35
P37
CLA L 1
ST0 M 1
CLA N
5s P
"TRA P36
~ 2 8 TZE ~ 3 7
----TMI P37
TRA P38
- - -P27
FDH EW
STQ E W
---.P26
CLA CW
.
-_
LXD COMMON* 1
LXD COMPON+1,2
TRA 1 ~ 4
P38
STA P39
T R A P40
P35
ST0 53
TRA P41
P2U
SSP
ST0 P24
TRA P42
HEAL
Q
* ADD ADOS A STRING OF FIXEC POINT OH FLOATING POINT NUMBEKS
ACDP
5x0
hMIRp4
SAVE L I N K I K
-------.
AXT
fPLUS,4
ST I
AMIND
SAVE INDICATORS
-

-.

--

---

LC637900
LC638000
---..-LC638100
LC638200
.- - - - - -- - - ----.
-LC638300
LC638400
-- ---LC638500
C66.3.86 O!.Q - -LC638700
LC638800
i
LC638900
LC639000
LC639100
LC639200
LC639300
c
LC639400
LC639500
LC639600
LC639700
LC639800
LC639900
LC640000
---LC640100
LC640200
LC640300
LC640400
-LC640500
LC640600
LC640700
LC640800
--------LC640900
LC641000
LC641 1 0 0
I-c641200-.
- - --- LC641300
-LC641400
LC641500
LC641600
LC641700
L C 4 E q - _ -- - --- --- LC641900

------

--

--

--

--

---_-----

P
P

--

LC642000
LC642100
LC642200
LC642300
LC642400
LC642500.
LC642600
LC642700

----

- --

,-.-.,-----

~-

------.--

RDCXO 120

-- _

--

- RDCX0122

-- - --

a-

--

-- -

-- -

PAGE 1 3 9
14131
14137
14133

BONNIE-S
0 0 5 7 00
000177
0055 00
000001
0020 00 0 14155

14134 -0634 0 0 4 03500

14135 0774 00 4 06657
14136 0604 00 0 03501
14140
14141
14142
14143
14144
14145
14146
14147
14150
14151
14152
14153
14154
14155
14156
14157
14160
14161
14162
14163
14164
14165
14166
14167
14170
14171
14172
14173
14174
14175
14176
14177
14200
14201
14202
14203
14204
14205
14206
14207
14210
14211
14212
14213

0 0 5 5 OC
COOOC2
0070 00 0 14155

-0 6 1 4
0774
0604
0057
0055
0020

00
00
00
00
00
00

-0634 0 0
0774 0 0
0604 00
0057 0 0
0055 00
0634 0 0
0074 0 0
-3 0 3 5 0 3
0074 00
0074 0 0
0634 0 0
0600 00
-U734 0 0
-3 0 0 0 0 0
0500 0 0
0601 00
0734 00
-0754 0 0
0074 00
-0600 0 0
0056 0 0
0020 00
0054 0 0
0020 0 0
-0734 0 0
0500 0 0
0056 00
0020 0 0
-0534 0 0
0074 0 0
0761 00
0020 0 0
0055 00
-0774 0 0
0054 00
0020 00

I< IR

6784
6385
6786
6787
6788
6787
6790
6792
6793
6794

4 03500 4 - 6
4 07604
6796
0 03501
6797
000177
6798
000010
6799
0 14155
6800
6801
4 03500
6802
4 07614
6803
0 03501
6804
000177
6805
000004
6806
4 03500
6807
4 02312
6808
0 02377
6809
4 15774
6810
4 02326
6811
2 14336
6812
0 14341
6813
4 00000
6814
4 14330
6815
4 00000
6816
0 03502
6817
4 00000
6818
4 00000
6819
4 14342
6820
0 03503
6821
000100
6822
0 14220
6823
000002
6824
0 14240
6825
4 00000
6826
i00000
6827
COO001
6828
0 14300
6829
2 03503
6830
4 14550
6831
C 00000
6832
C 14233
6833
000020
6834
4 14235
6835
CC004C
6836
0 14266
i837

BIRTHDAY ASSEMBLY

TRA

177
I
AMMMF

RESET FIRST 7 INDICATORS

(FT &
GO TO MAIN FUNCTION

SXD
AX1
ST1

AMIR-4
$TIMFS,4
AM1 ND

SAVE LIiJK I R

T1R

RDCX0123

-,.

"---

RDCX0125

RILtXIll26_- . . - - - - - - - _ . . -

MULT

SIR
TRA

RDCX0127

SAVE INDlCATORS

RDCX0128

LIBL

2
AMMMF

SET MULTIPLY INDICATOR ( 2 )

GO TO M A Y l L U N C T I O N

RDCX0130

JMINP.4
AMIkn
177
10
AMMMF

_BI1CXILIl1

..

RDCX0132
RDCX0137

SAVF L I N K I R
AXT
'if I
RIR
SIR
TRA

'

R D C X O U

SAVF S-1
RESET F I R S T 7 lNDICATORS
SET MINIMUM F U N W N IN~CCAI_OORR1lO)
GO TO MAIN FUNCTION

134

RDCX0135

lLKWU.6

*'

RDCX0137

--RD-!%
MAX

SXD
AXT
ST1
RIR
SIR
AMMMF SXA
TSX
TXL
TSX
TSX
SX A
ST2
AMLP
PDX
TXL
CLA
ST0
PAX
PX D
TSX
ST0
RNT
TRA
RFT
TRA
PDX
CLA
RNT
TR A
LXD
TSX
NOP
IRA
SIR
AXC
RFT
TRA

AMIR.4
%MAXP,4
AMINO
177
4
AMIRf4
$SAVE94
BFND2. AMIND+Z
JEVLISp4
UNSAVE* 4
AMIR2.2
AMSUM
0.4
AMEND* 4s 0
094
A M L US _ _ _
074
03 4
NUMVAL, 4
AMQ

100
AMFRS
2
AML T
0 ~ 4
0,4
1
AMM
AMQv2
FIXFLO,4

SAVE L I N K I R

--

RDCX0139

SAVE INOICATORS
RDCX0140
RSET FIRST 7 -INDIGATOBS
BDLX.OA_'+l..-__--.-._.-_
SET MAXIMUN FUNCTION INDICATOR ( 4 )
RDCX0142
PUT PROGRAM NAME WITH L I N K IR
OTHER 3 FUNCTIONS ENTER AT *-I
SAVE 2 ITEMS
-----.-.----A
EVALUATE THE L I S T OF ARGUMENTS
RDCX0145
RE.STORE I R 4 AND INDICArORS- W_O_Ol!t-b
SAVE I R 2
RDCX0148
ERO F I NAL ANSkE-~.RLGLSTERTETETETETETETETETETEROCCX0149
. . .
. ..
-PUT POINTER TO ARG L I S T I N I R 4
RDCX0150
GO TO EX1 T I F NU1 L
____RUQ..U-L .
..,..-.--..-..
..-- ....-. ..
GET FIRST WORD
RDCXOl52
SAVE
THE
WORD
.
.
.
-~
RD-,XO 1~53
... --- .-..
.
- . ..
CAR OF L I S T
RDCX0154
TO DECREMENT
RQC11P-lL5i.
..
..
EVALUATE THE ITEM
RDCX0156
SAVE CHARACTERISTIC ( $ F I X OK 6FLOCJJ)
RDCX0157
TEST FOR FIRST TIME THROUGH
RDCXOl58
1 s F I R S T TI~EGOTQ.INITILI~Z_E_.AM_$_UM~_f?.~.t_X9_159~~
TEST
FOR MULT FUNCTION
RDCXOl6O
EXECUTE MULT FUNCTION
RDCXOl61
POINTER T O FULL WORD
7110
GET NUMERICAL VALU!L
1.1-20 OOO.OOOO...-....
.
SKIP NEXT INSTRUCTION I F ADD FUNCTION RDCX0163
EXECCUTE M A X OuLFUNCTI!2N
.-A
RD.CX0164
ADD FUNCTION. PICK UP TYPE OF NUMBER RDCX0165
TEST FOR F L&G!!L%&!!~T
RDCXO 1 6 6
-- IMPOSSIBLE RETURM
RDCX0167
EXECUTE FAD
R_I?_cxo-~~~
------88.8.. .-....- ....-...-I S F I X E D POINT. SET F I X E D P O I N r IND*
RDCX0169
PRESET i R 4
.
_
RC!cxol7o.. . .- .
~.
..
. -.
SKIP NEXT INSTRUCTION I F NOT MIXED EXPRDCX0171
~ ,v,--_.

~ - - T T T T T T T T T T T T T -

AFLL
20
AFLRt4
40
UNFX

---

I s -MIXECr._FL04LLKJJS..-NJuM

--

__.

RDcxo1.72..
-_
.

.._

..

..

-.

PAGE 1 4 0

BONNIE-S

- -14214
14215
14216
14217
14220
14221
14222
14223
14224
14225
14226
14227
14230
14231
14232
14233
14234
14235
14236
14237
14240
14241
14242
14243
14244
14245
14246
14247
14250
14251
14252
14253
14254
14255
14256
14257
14260
14261
14262
14263
14264
14265
14266
14267
14270
14271
14272
14273
14274
14275
14276
14277
14300
14301

0400
0601
0500
0020
-0734
0500
0601
-0534
0074
0761
0055
0055
0055
0500
0020
0055
0054
0074
0300
0020
-0734
0500
-0534
0074
0761
0020
0055
-0774
0054
0020
0131
0200
0131
0601
0500
0020
0055
0054
0074
0131
0260
0020
0057
0070
0634
0601
0500
0074
0601
0500
0774
0020
-0534
0074

00
00
00
00
00
00
00
00
00
00
00
OC
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
CO
00
00
00
00
00
00
00
00
00
00
00
00
00
00
OU
00
00
00
00
00
00
00
00
00

0
0
0
0
4
4
0
2
4
0

14341
14341
03502
14164
00000
00000
14341
03503
14550
00000
000040
000020
000100
0 03502
0 14164
000040
000020
4 14270
0 14341
0 14215
4 00000
4 00000
2 03503
4 14550
0 00000
0 14260
000020
4 14262
000040
0 14266
O OOOCO
0 14341
0 00000
0 14341
0 03502
0 14164
000040
000020
4 14270
0 00000
0 14341
0 14255
000020
0 14565
4 14276
0 14340
0 14341
4 14266
0 14341
0 14340
4 00000
4 OO0Ol
7 03503
4 14550

6838
6839
6840
6841
6842
6843
6844
6845
6846
6847
6848
6849
6850
6851
6852
6853
6854
6855
6856
6857
6858
6859
6860
6861
6862
6863
6864
6865
6866
6867
6868
6869
6870
6871
6872
6873
6874
6875
6876
6877
6878
6879
6880
6881
6382
6883
6884
6835
6886
6887
6888
6889
6890
6891

--- - - --

----

--

B I R T H D A Y ASSEMOLY
ADD
AMKT
ST0
CLA
TRA
AMFRS PDX
C LA
ST0
LXD
TSX
NOP
SIR
SIR
SIR
CLA
T RA
AFLL
SIR
KFT
AFLR
TSX
FAD
TR A
AMLT
POX
C LA
LXD
TSX
NOP
TRA
SIR
AXC
RFT
TRA
XCA
MDY
ICA
ST0
AMRU
CLA
TRk
AFMP
SIR
KFT
TSX
AFLT
XCA
FMP
TRA
UNFX R I K
THA
M I X F L SXA
ST0
CLA
TSX
ST0
CLA
MXIR
AXT
TRA
AMM
LXD
TSX

AMSUM
AMSUM
AML I S
AML P
0 14
094

AMSUM
AMQ 9 2
FIXFLO74
40
20
100
AML I S
AMLP
40
20
MIXFL94
AMSUM
AMRT
094
094
AMQs2
F IXFLO94
AFMP
20
AFLT 9 4
40
UNFX
AMSUM
AMSUIY
AMLIS
AMLP
40
20
MIXFLr4
AM5UM
AMRU
20
dUNF IX
MXIRs4
AMR
AMSUM
UNFX94
AMSUM
AMR
**, 4
1 r4
AMQ 12
FIXFLOv4

--.

,-

.- --

.--

-- -

-.

-.-...-.

- -..-

F I X E D AUO OF SUM
RDCX0173
STORE NEW SUM
RDCX0174
..---.--- .-. RDCX0175
P I C K UP ARG L I S T
Do NEXT I T E M
- - ---RDCX_OL~_~-_
- _
P O I N T E R TO F U L L WORD
7100
GET N U M E R I C A L V A L U E
-- -- - - -7 13_0_
- .--_ _ _---_--STORE N U M E R I C A L V A L U E I N AMSUM
RDCX0178
P-1 CK UP T Y P E O_F-NUMLER
--RIlCXOL?9---- _
- - - - ---TEST FOK F I X OR F L O A T
RDCXOl80
----RDCX018 1
-- - --IMPOSSIBLE- E X I T
SET F L O A T I N D I C A T O R
RDCX0182
SET F I X I N D I C A T O R
RDcxol83
SET I N D I C A T O R SO I T W I L L N O T GET BACK R D C X O 1 8 4
RDCX0185
P I C K UP R E S T O F ARG L I S T
GO N E X T I T E M
RDCX0186
I S F L O A T I N G P O I N T , SET PROPER I N D I C A T O R D C X 0 1 8 7
S K I P NEXT I N S T R U C T I O N I F NOT M I X E D EXPRDCX0188
U N M I X THE E X P R E S S I O N
RDCX0189
F L O A T I N G ADD T H E CURRENT SUM
RDCXOl9O
STORE AND DO N E X T I T E M ON L I S T
RDCX0191 - . - - - P O I N T E R TO F U L L WORD
7060
GET N U M E R I C A L V A L U E
7 1 4 0 - _ _ - - _ _ _
P I C K UP T Y P E
RDCX0195
T E S T FOR F I X OR F L O A T
RDCX0196
I M P O S S I B L E RETlJRN
ROCX0197
L O FMP
RDCX0198
--"
---.
SET F I X E D P O I N T I N D I C A T J R
RDCX0199
PRESET I R 4
RDCX0200
S K I P NEXT I N S T R U C T I O N I F N O T M I X E D E X P R D C X 0 2 0 1
R
~
C
X _ _~ - _-~
I S I ~ I X E C , F L O A T T H I S NUMBER
NUMBER TO MQ
RDCX0203
MPY BY CURRENT ANSWEX-----R D C X 0 2 0 ---.-~
d..,.._---PUT L E A S T S I G N I F I C A N T B I T S I N AC
RDCX0205
STORE N E k A N S W B - .
-- R D C X 0 2 0 6 _ _ __
-- P I C K UP ARG L I S T
RDCX0207
CO N E X T I T E M
R0c ~ 8 8 _ _ - - -SET FLOATING P O ~
INDICATOR
~ ~ T
RDCX0209
T E S T FOR M I X E D E X L - " RDCX0210
U N M I X THE E X P R E S S I O N
RDCXO2ll
NUMBER TO MQ
X 02-12 - -- -- - - --R D-CFMP BY CURRENT ANSWER
RDCXO213
STOKE NEW ANSER AYO DO N E X T I T E M
R D C X 0 Z A 4 - - - -- -.
R E S E T F I X E D P O I N T INDICATOR-RDCX0215
F L O A T TriE NUMBER I N THE AC
RDCX021!LF I X MIXED EXPRESSION
RDCXOZl7
SAVE AC
RDCX0218--_
_ _ -P I C K UP CURRENT ANSWER
RDCX0219
FLOAT I T
RDCX0220
-- -- - --- ---PUT I T AWAY
RDCX0221
RESTORE AC
ROCX0222
------.------.
--- - --"-.RESTORE I R 4
RDCX0223
RETURN
D CX0224
---- - - - --- - - -R
-- - --MAX 0 2 M I N F U N C T I O N . GET T Y P E
RDCX0255
T E S T FOR F I X OR F LO-A T.
.--- R -D C X 0 2 5 6 -- - -- - - - --

R
-

--

--_

---

<

l
_
_
_
_
-

---

- --

__----_____A

-_-

-PAGE 1 4 1

BONNIE-S

B I RTHUAY ASSEMBLY
b

14302

0761 0 0 0 00000

141fl7

002fl 0 0 0 1 4 3 1 6

6892
6893
6894
6895
6896
6897
6898
6899
6900
6901
6902
6903
6904

NOP
TRA
SIR
RFT
TSX
W
T RNT
T RA
CAT
ST@
NOP
CLA
TRA
AFL
SIR

I M P O S S I B L E RETURN
RDCX0257
9
JTF F l O
-N
dL-14304 0055 00
000020
SET F I X E D PONT I N D I C A T O R
RDCX0259
14305 0054 M 000040
TFST FOR MLXULlXe RRC-0
--- ?
5
14306 0 0 7 4 0 0 4 14266
FLOAT THE ARGUMENT I F MIXED
RDCX0261
14307 0056 0 0
000004
TEST FORMAX FUd
C
X
0
7
6
2
RDCX0263
EXECUTE M I N FUNCTION
14310 0020 00 0 14322
14311 0340 00 0 14341
COMPARF WITH CllRRFNT W F R - - - . - 14312 0601 00 3 14341
I S GQEATER, STORE AS NEW ANSkER
RDCX0265
14313 0761 0 0 0 00000
THEY ARE E Q L
_B11wLQ244.-__--____
14314 0500 00 0 03502
AML I S
I S LESS. P I C K UP ARGUMENT L I S T
RDCXO267
14315 0 0 2 0 0 0 0 14164
4ML P
CO NFXT I T E M
_BnGXQ26_8_____---"
14316 0055 0 0
000040
40
SET FLOATING P O I N T I N D I C A T O R
RDCXO269
54
2
ON
R-370
-14320 0074 00 4 14270
6906
TSX
MIXFLs4
UNMIX THE EXPRESSION
RDCX0271
14321 0020 00 0 14307
6907
TR A
AMRNT
COMPARE ANQ DO N E X T T B L A X Q Z L L
*
14322 0340 0 0 0 14341
6 9 0 8 A M I N CAS
AMSUM
M I N FUNCTION, COMPARE WITH CURRENT VALRDCX0273
14323 0020 0 0 0 14326
6909
TRA
*+3
I S GREATER
Ra)(OU't--14324 0020 00 0 14326
6910
TRA
*+2
I S EQUAL
RDCX0275
14325 0 6 0 1 0 0 n 1 4 3 4 1
6911
ST0
AMSUM
I S L F S S * STORE AS NFW ANSWFR
~ I l i x Q h - .
14326 0500 0 0 0 03502
6912
CLA
AML IS
P I C K UP NEXT I T E M
RDCX0277
14327 0020 00 0 14164
6913
TR A
AMLP
EXECUTE I T
ROCXC)27-8
-.
14330 0500 00 0 14341
6 9 1 4 AMEND C L 4
AMSUM
ALL DONE. P I C K UP CURRENT ANSWER
RDCX0279
14331 0560 00 0 00475
LDQ
AMFXC
PRESET MQ
R ~ C X O a L 0 ~ 6915
14332 0054 00
6916
RFT
40
S K I P NEXT I F F I X E D P O I N T
RDCX0281
000040
14333 0560 0 0 0 00476
Lor)
AMFLC
P I C K UP F I X I N MQ
- .----. -___
6917
14334 0441 00 0 03501
6918
LDI
AMIND
RESTORE I N D I C A T O R S
RDCX0283
14335 -0534 0 0 4 03500
6919
LXD
AMIRv4
-RESTORE I R 4
-- .- ---RDCX02&4-_
- .
__
14336
0774 00 2 00000
6920
AM122 AXT
**, 2
RESTORE I R 2
RDCX0285
14337 0020 00 0 12636
6921
TRA
~MKNO
MAKE THE ANSWER A NUMBER- .
_ _ _ _00476
6922
AMFLC SYN
FLOATD
FLAOT CONSTANT
$FIX0
F I X CONSTANF
- - 00475
6923
ANFXC 5YN
&9-C-X02rn
. . " . --.---14340 0 00000 0 00000
6924
AMR
TEMP STORAGE
RDCX0290
14341 0 00000 0 00000
6925
AMSUM
CURRENT ANSWER STORAGE
RDCX-0294--6 9 2 6 x NUMVAL
NUMERICAL VALUE TAKES ANY L I S T AND DECIDES I F I T
RDCX0297
6927 *
REPRESEhTS A F I X E D POINT OR FLOATING P O I N T NUMBER. -IF 1 T DOES NOTROCXO29&--_
6928 *
THE ROUTINE CLEARS THE AC AND MQ DOES AN XEC 1.4 AND THEN GOES
RDCX0299
6 9 2 9 ++
TO ERROR WITH A 8 A g ARGUMENT COMPLAINT. I F THE L I S T DO.cS
Rc ! G . m
6930 x
REPRESENT A NUMBER, UPON E X I T THE FOLLOWING THINGS ARE L E F T
RDCX0301
6931
AS I N D I C A T E C
POINTER
-TO FUL.LJ@.!LD-~-N~C-- -_ RDCX030-2._
. .
.
6932
& F I X OR $FLOAT I N MQ
ROCX0303
14342 0 6 3 4 0 0 4 14372
6 9 3 3 NUMVAL SXA
NVIK4,4
SAVE L I N K I R
RDGX0309
-- -- -14343
0601 00 0 03321
6934
ST0
TARG3
SAVE O R I G I N A L ARGUMENT
7220
6935
PDX
0 .4
POINTER TO NUMBER I N I R 4
___ _-RDCX0314
_- - -- _-- - --.14344 -0734 00 4 00000
1 4 3 4 5 -3 0 0 0 0 0 4 1 4 3 5 1
6936
NVLP
TXL
NVNG ,4 0
NULL
L I S T I S NOT A NUMBER
RDCX0315
14346 0500 0 0 4 00000
6937
CLA
0 14
F I R S T ELEMENT
-- - - - - -RDCX_O316- _ - _ -14347
0734 00 4 00000
6938
PAX
014
CAR L I S T
RDCX0317
14350 3 77776 4 14362
6939
TXH
NVATM.4,-2
GUJF
AN ATOM
RDCX0338
-_ - - - -- _
6940 *
RDCX0331
14351 -0754 0 0 0 00000
6 9 4 1 NVNO PXD
0,O
1 s NOT NUMBER? C L I A R AC
!_RDCXXD?_33ZZZ
- -- -- - 14352 0131 00 0 00000
6942
XCA
PUT I N MQ
RDCX0333
14353 -0754 00 0 00000
6943
PXO
0.0
-CLEAR AC-AG!?J-N- -R ! K X 0 3 _ 3 4 + _
__
---14354 0534 00 4 14372
6944
LX A
N V I R4.4
RESTORE L I N K I R
RDCX0335
14355
0522 0 0 4 00001
6945
_
XEC
114
EXECUTE P O S I BLE E X 1 T INSTRUC__JNN_- _ _ RDCXO3-38- ---- AFL
20
/+ 0
UNFX.4
4
AM I N
AMSUM
AMSUM

'

PAGE 142

RONNIE-S

14356 0500 00 0 03321

14357 -0634 00 4 01562
14360 0074 00 4 01563
14361 543160600354
14362
14363
14364
14365
14366
14367
14370
14371
14372
14373
14374
14375
14376
14377
14400

-0734 0 0
-0320 00
0100 00
0771 00
0621 00
-0754 0 0
-0774 00
0560 00
0774 00
0020 0 0
0 10135
0 10120
0 00000
0 00000
0 10135

14401 0634
14402 0774
14403 0634
14404 0634
14405 0074
1 4 4 0 6 -0600
1 4 4 0 7 -0734
14410 0500
14411 -0534
14412 0 0 7 4
14413 0761
14414 0522
14415 0522
14416 0560
1 4 4 1 7 0774
14420 0774
14421 0774
14422 0020

00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00

4
0
0
0
0
4
4
4
4
4
0
0
0
0
0

00000
00470
14351
00017
14370
00000
00000
14373
00000
00001
00000
00000
00000
00000
00000

1
1
2
4
4
0
4
4
2
4
C
1
1
0
1
2
4
0

14417
00000
14420
14421
14342
14423
00000
00000
14423
14550
00000
14424
14426
14423
00000
00000
00000
12636

0
0
0
0
0

00000
00454
00454
00371
00371

14423
14424
14425
14426
14427

0 00000
0300 00
0302 00
0400 OC
0402 00

14430
14431
14432

0634 00 1 14417
0774 00 1 77777
0020 00 0 14403

BIRTHDAY ASSEMBLY

- --

-.

- --

--

-- ---

-- -6946
CLA
JARG3
MUST BE AN ERROR* PICK UP ORIGINAL ARG
7230
6947
SXD
$ERROR* 4
RDCX0340
6948
T SX
fERROR+1,4
GO T O ERROR
RDCX0341
6949
BC I
I,*[
3*
BAD ARGuMENr- N X v _ n I _
-- -- - -.
-- _
6950
RDCX0346
6 9 5 1 NVATM PDX
094
.
------ -- --- -6952
ANA
TAGMSK
TZE
UVNG
6953
-- -----------.------ -- - - - - -6954
ARS
15
6955
S TA
*+2
--- ---- 0.4
6956
PX D
AXC
***4
6957
6958
LDQ
NVT BL 4
**r 4
RESTORE I R 4
6 9 5 9 NVIR4 AXT
RDCX03696 9 6 0 NVTBL TRA
114
c
6961
019 $ F I X
-6962
01 $FLOAT
6963
0, * O
6964
~ , Y O
6965
091 $ F I X
6966
6967 *
R0 CK0-37-2--- --- -6 3 6 8 * ADD1
ADD 1 ADDS ONE TO ANY FIXED POINT OR FLOATING POINT
RDCX0418
6969 +
NUMBER AND EXITS WITH ThE NEW I~UMBER
RDCX0419
6 9 7 0 ACDl
SXA
Allill11
SAVE I R 1
RDCX0420
6971
AX T
01 1
ZERO I R 1 t I N D I C A T E S ADD OP)
RDCX042 1
6972
AD1
SXA
A11R2,2
SAVE I R 2
RDCX0422
6973
SX A
AlIR4.4
SAVE LINK I R
RDCX0423
6974
TSX
NUMVAL 1 4
E V A L U T E NUMERICAL ARGUMENT
6375
STQ
A1T
SAVE $ F I X OR $ F L O E
RDCX0425
. _ __
P DX
0.4
6976
POINTER TO FULL WORD
7090
0;4
6977
CL A
GET NUMERICAL VALUE
7 105
---.-_*.--.--.-_____
6978
LXO
A1T 12
PICK UP $ F I X OR SFLOAT
RDCX0427
6979
TSX
FIXFL014
RDCX0428
6980
NOP
IMPOSSIBLE RETURN
RDCX0429
6981
XEC
FADv1
I S FLOAT, C.0 FLOATING POINT CP
RDCX0430
6982
XE C
ADOF, 1
DO FIXED POINT OP
RDCX0431
6933
L DQ
A1T
RESTORE SFLOAT AFTER. FAD
RDCX0432
6 9 8 4 A l I R l AXT
**, 1
RESTORE I R 1
RDCX0433
6 9 8 5 A l I R 2 AXT
**12
RESTORE LINK
RESTORE
I R A - _IR.
- - .
RDCX0434
-----6 9 8 6 A l I R 4 AXT
**, 4
RDCX0435
6987
TRA
SMKNO
MAKE RESULT A %!&
!i!lh
RDCX0436
6988 *
RDCX0437
6989
A1T
TEMPORARY STORAGE
RD C X 0 4 3 L-..--..-...----,
6 9 9 0 FAD
FA0
SQF1
FLOATING ADD FOR ADD1
RDCX0439
6991
FS 8
dQF1
FOR sue1
RDCX04kOO_-Ad-__-.-.
6992
ADDF
ADD
iQ1
FOR ADD1'
RDCX0441
6993
SUB
$81
FOR SUB1
RDCX0442
--..
.
.
- -- -. -.
6994 *
72 50
SUE1
6995
SUBTRACT 1 SUBTRACTS ONE FROM A FIXED POINT OR FLOATING RDCX0444
-..--_ -..--___--6996
POIhT iqU!43ER. USES CODING OF 4DDl WITH AN I N 1 TIALIZATION.
RDCX0445
6997
SUB1 SXA
AlIR1,l
S4VE IR
I
-----_!!ccX0466 _ _ 6998
A X I'
-111
S E T FOR SUBTRACT OPERATIONS
~ ~ ~ ~ 0 4 4 7 ~
6999
TR A
AD1
PERFORM ADD1 CODING
i3
-- -_
-

_-

-- -

%4c

----

PAGE 1 4 3

BOhNIE-S
7000

7
4

14436
14437
14440
14441
14447

14443
14444

0634
0074
0040
-0754
0774
0020

M 4 14437
00 4 13350
QO C 1 4 4 4 1
00 0 00000
4 0 4 onon0
0 0 4 OCOOl

0500 00 0 00442
0070 M 0 14437

0131 0 0 0 00000
0020 0 0 0 14433

7002
7003
7004
7005
7006
7007
7008
7003
7010
7 0 11
7012
7017
7014
7015
7016
7017
7018
7019
7020
7021
7022
7073
7024
7075
7026

BIRTHDAY ASSEMBLY
4

SUB1 USES THE COCING OF ADD1

RDCX0449
1

6900
GRTitTP SXA
TSX
TI 6)
PXD

S2UE-llbllLIB_______

----

oeo

EVALUATE NUMERICAL ARGUMENTS

P R . . T F TRUE
F A L S E * CLEAR AC

TR A

lr4

EX I T

CLA
TRA

SQDl
GRT IK

GET, TRUE VALUE

RFSTORF L W I 8 A

GRTTR AXT

GKUIL4
UNUM 1 x 1 4
GRT T

*+. 4

6940
6
9
5
(
2
6960

---F

6980

7000

--

7260

LESSTP
LESS 1HAN PREDICATE*
r
W I T H T H 6 ARGUMFNT REVFRSEE.
1 F q S T P XCA

TR A

GRTRTP

S I M P L E DOES GREATER THAN

INTFWANGF B R G U M W
DO GREATER THAN PREDICATE

'

--

491L

--

6920

----.&53Q
GRTT

*
*

6910--- _-.-- _- - - -

.---

PREDICATERDCX0495
R D c U h
7270

J-uxm49-2
RDCX0498
77An

---

THE FOLLCMING I S A NUMBER PREDICATE PACKAGE WHICH INCLUDES NUMBER

RDCX0500
4
P R E D I C A T F * 7ERO PREDICATES MLNUSPRUUCATE._W__P_R+[ULXT_EJ3IX _ RDI1XO5OL--.
*
PREDICATE AhD FLOAT PRECICATE. ALL THESE PREDICATES SHARE CERTAINRDCX0502
*
aLflCKS OF CQDlNG AND TEMPGKARY STORAGF.
R D C X 0 5 0 34 NUMBRP
NUMBER PREDICATE TESTS I T S ARGUMENT FOR A NUMBER*
RDCX0504
14445 0634 0 0 4 14451
NUMBRP SXA
YPIR.4
SAVF L I N K I R
---- --- - ." -_,
14446 0074 0 0 4 14342
TSX
NUMVAL 1 4
EVALbATE ARGUMENT
RDCX0506
0
NPIR
F ZER NOT A NUMBER
-- - -RRCXO5-0 7 - - - --- _
- _14450 C500 0 0 0 00442
7 0 2 8 NPT
CLA
$801
I S A NUMBER, P I C K UP TRUTH
RDCXOSOB
14451 0774 0 0 4 00000
7 0 2 9 N P I R AXT
4494
RESTORUINK-I R
_ - - _ _ _ -RDCX0509. - --14452 0020 0 0 4 00001
7030
TKA
114
EX I T
RDCX0510
7031
.-..
.
.- RQCX(15X(1511.- -. .-.
7 0 3 2 * FLOATP
FLOATING P O I N T NUMBER PREDICATE TESTS TO SEE I F I T S
RDCX0512
7033 *
ARGUCENT I S A F L O A T I N G POINT NUMBFR
-- - - _
D.CX0-5 13 - .-1 4 4 5 3 0 6 3 4 OC 4 1 4 4 5 1
7 0 3 4 FLOATP SXA
NPIRv4
SAVE L I N K I R
ROCX0514
1 4 4 5 4 0 6 3 4 CO 2 1 4 5 2 5
7035
SXA
ZPIR,2
SAVE I R 2
R a m 15 .
_
-- -14455 0074 0 0 4 14342
7036
TSX
YUMVAL 4
EVALUATE ARGbMENT
PDCX0516
14456 0131 00 0 00000
7037
XCA
GET TYPE I N AC
--- -- ---1 4 4 5 7 - 0 7 3 4 0 0 2 OOCOO
7038
PDX
0 12
TYPE I N I R 2
RDCX0519
14460 0074 0 0 4 14550
7039
TSX
FIXFLC,4
TEST FOR $ F I X OR SFLOAT
- _ _
.RD_Cx0520
-- -1 4 4 6 1 0 7 6 1 0 0 0 00000
7040
NOP
I M P O S S I B L E RETURN
RDCX0521
7041
14462 0020 0 0 0 14464
TR A
FLT
RDCX0522___
.___
I S FLOATING POINT
0020 0 0 0 14524
14463
7042
TRA
ZPF
I S NOT FLOATING POINT, E X I T FALSE
RDCX0523
1 4 4 6 4 C500 0 0 0 0 0 4 4 2
7043
FLT
CLA
$801
GET TRUTH VALUE
- - - . A ? & ? a 5 ~ 4 -------- -- .-- -.14465 0020 0 0 0 14525
7044
TRA
ZPIR
RESTORE I R S AND E X I T
RDCX0525
7045 *
-- RDCX0526
--- ---- - --- -- -7046
FlXP
F I X E D P O I N T PRECICATE TESTS FOR F I X E D P O I N T NUMBERS.
RDCX0527
14466 0634 0 0 4 1 4 4 5 1
7047
F I X P SXA
NPIRp4
SAVE L I N K I R
-RDCX05281 4 4 6 7 C 6 3 4 CO 2 1 4 5 2 5
7048
SXA
ZPIRtZ
SAVE I R 2
RDCX0529
14470 0074 0 0 4 14342
7049
TSX
NUMVAL, 4
EVALUATE ARGUMENL.7.
--ROU0_5-3_0
- - __.__.-_,
1 4 4 7 1 0 1 3 1 0 0 0 COOCO
7050
XCA
GET TYPE I N AC
RDCX0532
14472 -0734 0 0 2 00000
7051
PDX
092
TYPE I N I R 2
.
- -- -- - --- 14473
0074 0 0 4 14550
7052
TSX
FIXFLC.4
TEST FOR $ F I X OR SFLOAT
14474 0761 0 0 0 00000
7053
NOP
RDCX0535 -- - - - .- - -rMPossI_BLE kx_LI -- .--- - - _
a

--

--,---lau~U

--

-.

PAGE 1 4 4

BONNIE-S

-.-..- ---

-- 14475
14476
14477

0020 00 0 14524
05CO 0 0 0 0 0 4 4 2
0020 0 0 0 14525

14500 0634
14501 0074
14502 -0734
14503 050G
14504 -0120
14505 -0754
14506 0 0 2 0

00
00
CO
CO
00
00
00

4
4
4
4
0
0
0

14451
14342
00000
00000
14450
00000
14451

--

--

BIRTHDAY ASSEMeLY

-- --

--- --- -- - -- -

7054
TRA
ZPF
I S FLOAT, E X I T FALSE
RDCX0536
7055
CLA
SQD1
I S F I X 1 GET TRUTH VALUE
-- ROCX0537
7056
TRA
ZPIR
RESTORE I R S AND RETURN
RDCX0538
7057 *
-- ----- -- -----RDCX0539
-- - - - -- -- -- -- - - . - -7 0 5 8 * MINUSP
MINUS PREDICATE
T E S T S T O SEE IF ITS ARGUMENT IS A
RDCX0540
7059
NEGATIVE NUMBER.
--- -- RDCX0541
- --.----.
7 0 6 0 MINUSP SXA
NPIR.4
SAVE L I N K I R
RDCX0542
7061
TSX
NUMVAL 14
EVALUATE A R G U M E N T
R D L X 0 5 4 3
7062
PDX
014
RDCX0545
RDCX0546
--.
7063
CLA
0 14
P I C K UP NUMBER
7310
7064
TP 1
NPT
E X I T TRUE I F MINUS
RDCX0550
010
I S NOT, E X I T FALSE
7065
PXD
7066
TRA
NPIR
RESTORE L I N K I R AND E X I T
RDCX0551
7067
RDCX0552
7068
ZEROP
ZERC PREDICATE TESTS I T S ARGUMENT FOR A F I X E D P O I N T
RDCX0553
7069 *
ZERO
OR
RDCX0554
7070 *
ZERO OR A FLOATING P O I N T ZERO + OR
A TOLERENCE (FLOTOL).
RDCX0555
7 0 7 1 ZEROP SXA
NPIRv4
SAVE L I N K I R
RDCX0556
7072
SX A
SAVE I R 2
RDCX0557
ZPIRIZ
7073
TSX
NUMVALfh
EVALUATE ARGUMENT
RDCX0558
7074
POX
014
GET POINTER TO I R 4
RDCX0560
7075
CL A
014
FULL WORD
R D C X ~ ~
7 0 7 6 ZPG
SSP
GET MAGNITUDE OF N
7077
TZE
ZPT
E X I T TRUE I F ZERO
7078
XCA
PUT NUMBER I N MO
RDCX0565
7079
PDX
092
PUT TYPE I N I R 2
RDCX0566
708G
CL A
FLOTOL
P I C K UP F L O A T I N G P O I N T TOLERENCE
RDCX0567
7081
TSX
FIXFLGrh
TEST FOR F I X OR FLOAT
RDCX0568
7082
TR A
ZPTS
NOT F I X OR FLO MEANS FLO FROM ONEP
7083
TiXA
Z PT S
I S F L O A T I N G POINT, COMPARE -WITH FLOTOLRDCX0570
7084
ZPF
PXD
090
f S F I X E C P O I N T , E X I T FALSE
RDCX0571
7085
ZPIR
AXT
**12
RESTORE I R 2
RDCX0572 --___----__-7086
TRA
NPIR
RESTORE I R 4 AND E X ? ~ - '
RDCX0573
7087
ZPT
CLA
SQDl
RDCX0574
GET TRUTH VALUE
7088
TR A
ZPIR
RESTORE I R S AND E X I T
RDCX0575
7089
ZPTS
TLQ
ZPT
I S F L O A T I N G POLNLI E X I T TRUE I F LESS RDCXO581
7090
TRA
ZPF
OTHERWISE E X I T FALSE
RDCX0582
7 0 9 1 * ONEP
ONE PREDICATE TESTS TO SEE I F I T S ARGUFLNT I S ONE
RDCX05 8 3
7092 *
8Y SUBTRACTING ONE AND J E S T I N G THE RESULT WITH ZEROP.
RDCX0584
7 0 9 3 ONEP
SXA
NPIR.4
SAVE L I N K I R
-RDCX0585------ - 7094
SXA
ZPIRv2
SAVE I R 2
RDCX0586
7095
TSX
NUMVAL, 4
EVALUAI E ARGUMENT
RDCX0587
--7096
PDX
014
POINTER TO AC
RDCX0589
7097
CL A
014
FULL WORD TO AC
RDCX0590
.
7098
XC A
TYPE TO AC
RDCX0593
7099
PDX
012
TYPE TO I R 2
-RDCX0594__ _ _
-7100
XCA
RDCX0595
7101
TSX
FIXFLU14
CISPATCH ON F I X OR FLOAT
RDCX0596
7102
NOP
IMPOSSIBLE RETURN
RDCX0597
7103
FSB
$QF 1
RDCX029E-- --- - - -7104
SUB
591
SUETRACT 1
RDCX0599
7105
TRA
Z PG
APPLY ZERO PREDICATE
RDCX0600- ---- - -.7106 *
RDCX0601
7107 +
FiXFLO
SUBROUTINE TO DISPATCH ON F I X OR F L O t
7320
_-

1 4 5 0 7 0 6 3 4 GO 4 1 4 4 5 1
14510 0634 00 2 14525
14511 0074 0 0 4 14342
14512 -0734 0 0 4 00000
14513 0500 00 4 00000
1 4 5 1 4 0 7 6 0 0 0 0 COO03
14515 0100 00 0 14527
14516 0 1 3 1 0 0 0 00000
14517 -0734 0 0 2 00000
14520 0500 00 0 14623
14521 0074 00 4 14550
14522 002C 0 0 0 1 4 5 3 1
1 4 5 2 3 0 0 2 0 CO 0 1 4 5 3 1
14524 -0754 0 0 0 00000
14525 0774 0 0 2 00000
14526 0020 0 0 0 14451
14527 0500 00 0 00442
1 4 5 3 0 0 0 2 0 CO 0 1 4 5 2 5
14531 0040 00 0 14527
14532 0020 00 0 14524

14533 0634
14534 0634
14535 0074
14536 -0734
14537 0500
14540 0131
14541 -0734
14542 0131
14543 0074
14544 0761
14545 0302
14546 0402
14547 0020

00
00
GO
00
00
00
00
00
00
00
00
CG
00

4
2
4
4
4
0
2
0
4
0
0
0
0

14451
14525
14342
00000
OOOCO
00000
00000
00000
1455C
00000
00454
00371
14514

A
.
-

--

---

- -

'

c
1

-.

PAGE 1 4 5

BONNIE-S
7108

1 4 5 5 0 -3 1 0 1 3 4
14551
3 10135
14552 -3 10117
- 0170

2
7
2
7

14554
114556
14557
14560

0522
0070
0020
CC70
0522

4 00001
4 0mn4
4 00005
4 OQO06
4 00002

14562
14563
14564

OC20 0 0 4 0 0 0 0 5
0 0 7 0 00 4 0 0 0 n h
0020 0 0 4 00003

00
00
00
OQ
00

14552
14564
14554
14560

BIRTHDAY ASSEMBLY

----

TXL
TXI
TXL
TXI

*+2,2rbFIX-1
FX.2.IFIX
++2,2p$FLOAT-1
F1 -7. S
F

7114

XEC
TRA
TR A
TRA
XEC

194
4.4
5f4
6.4
294

FL

TXL

TXL F I L T E R FOR $ F I X

-O TXL

----

7330

Gn I F $FIX
TXL

-- --

ARGUMENT I N I R 2.

7110 FIXFLO
7111
7112
7113

7116
71 17
7118

--

--

F I L T E R FOR $FLOAT
A
M

EXCEUTE I F NEITHER F I X OR FLOAT

RFTIIRN
SKIP EXIT
SKIP 7 F X I T
EXECUTE I F $FLOAT

--_.

RDCX0699
RKlOLOLOO_RDCX0701
-RDCxllZQL
RDCX0703
Rl2Lxnxk4___--.---*----__
RDCX0705
J u C x Q Z O bRDCX0707

.-

_-_-

< .

"

'

R O t X 0 7 Q - - 7120
TRA
594
SKIP EXIT
RDCX0709
7171
TRA
6.4
5 K l P 7 FXTT
R ~ C U I ~ n~
7122
FX
TRA
394
RDCX0711
7 1 7 1 rc
F I X F L O USFS $ F I X AND t F L A O T
m L _ 7 1 2 4 * UNFIX
UNFIX MAKES A F I X E D POINT ARGUMENT I N THE AC A FLOATING RDCX0713
x
POINT NUMBFR l F F T I N AC- MQ I S PRESFI?_ILED,
RDW(07 1 4
14565 0601 00 0 14621
7 1 2 6 UNFIX ST0
UFC
5AVE ARGUMENT
RDCX0715
14566 -0370 0 0 0 00434
R
6
7177
ANA
UFMSK
MASK OUT ALL BUT CHARACTFRISTIC
14567 -0100 0 0 0 14576
I F ANY THING L E F T I T MUST BE NORMALIZDRDCX0717
7128
TNZ
UFE
457
5
0 0
46
0
F
TH ING L EF CdLSddQRREE 4 R R G I L W - R D . C X a 7 L F L - .
_
14571 -0501 00 0 00433
7130
OKA
UFMC
OR I N CHARACTERISTIC
RDCX0719
14572 -0600 00 0 14620
STQ
UFQ
SAVE MQ
7131
14573 0300 00 0 00433
7132
FAD
UFMC
ESSENTIALLY FAD OF ZERO TO NORMALIZE
RDCX0721
14574 0560 0 0 0 14620
l n8
UFQ
RFSTORF M Q
-.--.7133
14575 0020 00 4 00001
7134
TK A
114
EXIT
RDCX0723
7135 *
.
R
D-GXGXQ7-2+--.
.
- - -_ --14576 0634 00 4 14616
7136
UFE
SXA
UFXRp4
NUMBER GREATER THAN 2 TO 2 7 - SAVE I R 4 RDCX0725
14577 0774 00 4 00234
7137
AXT
2*64+3*?3+4 4
CHARACTER1 S T I C S E F A R R D C X 0 3 2 6 _
--- 14600 0600 00 0 14622
7138
S TZ
UF S
I N I T I A L I Z E SIGN PORTION
RDCX0727
14601 0120 00 0 14604
7139
TPI
UFF
SKIP I F +
_RaGXQm. 14602 0760 00 0 00003
7140
SSP
RDCX0729
MAKE I T +
1 4 6 0 3 -C625 0 0 0 1 4 6 2 2
7141
s TL
UF S
RECORD FACT BY MA-KING UFS N O N A E R O RDCXOZ30 _
.
-.
14604 0771 00 0 00001
1
7142
UFF
AKS
D I V I D E NUMBER BY 2
RDCX0731
14605 0340 00 0 00432
7143
CAS
UFNC
& C X 0 7 3 2
SEE I F NORMALIZED YET
14606
1 0 0 0 0 1 4 14604
7144
TXI
UFF,4,1
ADD 1 TO CHARACTERISTIC AND TRY AGAIN RDCX0733
14607 1 00001 4 14604
72/45
TXI
UFFv4,l
DITTO
RDC X0 - 7 3 4 -___
14610 0 6 0 1 0 0 0 14621
7146
ST0
UFC
I S NORMALIZED
RDCX0735
1 4 6 1 1 -0754 0 0 4 00000
7147
PXD
o ,4
U-IARACTER [ S T IC T O A C
_RDC_XQ~A~
-_
_ _ _
__
14612 0767 00 0 00011
7148
ALS
9
P O S I T I O N CHARACTERISTIC
RDCX0737
14613 -0501 00 0 14621
7149
0 2A
UFC
OR I N NORMALIZED NUMBER
RDCX0738
-- 14614 0520 00 0 14622
7150
ZET
UFS
TEST FOR SIGN, 0 MEANS +
RDCX0739
14615 -0760 00 0 00003
7151
SSM
NOT ZERO SO MAKE MINUS
_R_eLXUO
14616 0774 00 4 00000
7L52
UFXR
AXT
**,4
RESTORE I R 4
RDCX0742
14617 0020 00 4 00001
7153
TRA
1.4
EXIT
- -RDCX0743
- - --- -.
- - ---- --- -00434
7154
UFMSK SYN Q77709
CHARACTERISTIC MASK
00433
7155
UFMC SYN Q233Q9
GENERAL CHARACTER ISTIC
00432
7156
UFNC SYN SQOLQ9
1 4 6 2 0 0 COO00 0 0 0 0 0 0
7 1 5 7 UF6j
MQ
RDCX0747
-----"
---------.14621 0 00000 0 00000
7158
UFC
AC TEMPORARY
RDCX0748
1 4 5 2 2 o ooooo o ooooo
7159
UFS
s IGNSTORAGE _ - .RDCX0749_--_ _ _- .
_ _ - _ -.
7 1 6 0 * UNFIX USES NC EXTERNAL CONSTANTS.
RDCX0750
7 1 6 1 * FLOTdL
FLOATING POINT TOLERENCE USED I N DESIDING I F FLOATING
_-ROCXQ'1_51_- _

_ _ d J l a m z 2 Q

-----

0
0
0
"

<
I
.

OOO.O"

m(%

- --

PAGE 146

BONNIE-S

14623 +I56622516334

14624 0634 00 4 14631

14625 0074 00 4 14342
14626 -0734 00 4 00000
14627 C50C 00 4 00003
14630 0760 00 0 00002
14631 0774 00 4 00000
14632 0020 00 0 12636
14633 0634 00 4 14654
14634 0634 00 2 14655
14635 0074 00 4 14342
14636 -0734 00 4 00000
14637 C500 00 4 00000
14640 0601 00 0 14662
14641 0131 00 0 00000
14642 -0734 00 2 00000
14643 0074 00 4 14550
14644 0761 00 0 00000
14645 0500 00 C 00454
14646 0020 00 0 14657
14647 0241 00 0 14652
14650 0760 00 0 00012
14651 0074 CO 4 01676
14652 0131 00 0 00000
14653 0560 OC 0 00476
14654 0774 OC 4 00000
14655 0774 00 2 00000
14656 0020 00 0 12636
14657 0131 00 0 00000
14660 -0754 00 0 00000
14661 0020 00 0 14654
14662

0 00000 0 00000
C0476

7162
7163
7164
7165
7166
7167
7168
7169
7170
7171
7172
7173
7174
7175
7176
7177
7178
7179
7180
7181
7182
7183
7184
7185
7186
7187
7188
7189
7190
7191
7192
7193
7194
7195
7196
7197
7198
7199
7200
7201
7202
7203
7204

---

B I R T H D A Y ASSEMBLY

.- ---- - -- -- -

- .--

---- ---RDCX0752
-RDCX0753

P O I N T NUMBERS ARE INTEGERS.

F L O T O L DEC
3E-6
F L O A T I N G P O I N T TOLERENCE VALUE
MNSPRG
M I N U S PROGRAM MAKES A L I S T OF M I N U S AND I T S ARGUMENT

*
*
*

MNSPRG
,
\MNSPRG k R A
~ S X
$'OX
CLA
CHS
MRXR AXT
TRA

* RCPPRG
RCPPRG SXA
SX A
TSX
POX
CLA
ST 0
XC A
POX
TSX
NOP
CLA
TRA
FUP
GC T
TSX
XC A
LOB
RRXR AXT
RRXRZ AXT
TRA

RCPFX XCA
PXD
TRA

/'

IMRxR.~
~ N U M V A C4,

/0,4
/0,4

I***

' SMKNO

C A L C U L A T E S THE R E C I P O R I C A L OF A NUMBER.
RRXRe4
SAVE L I N K I R
RRXR292
SAVE I R 2
NUMVAL I 4
E V A L U T E THE N U M E R I C A L A R G U M B T
0 14
P O I N T E R TO F U L L WORD
014
N U M E R I C A L VALUE
RCPT
SAVE VALUE
T Y P E TO AC
012
T Y P E TO I R 2
FIXFLOt4
C I S P A T C H ON F I X OR F L O A T
I M P O S S I B L E RETURN
SQFl
I S F L O A T , P I C K UP F L O A T I N G P O I N T 1
RCPFX
I S FIXED POINT
RCPT
DI'V I C E BY ARGUMENT
CHECK FOR I L L E G A L D I V I S I O N
SOCT94
C I V ICE ChECK
.
QUOTENT TO AC
RCPS
$ F L O A T TO M Q
-**,4
RESTORE L I N K I R
**, 2
RESTORE I R 2
dMKNO
MAKE ANSWER A NUMBER

--

~~~~_

RRXR

FIXED POINTRECIPTANSWER IS LEITOCLEAR AC

RESTORE IR s A N D ~
A Z
NUMBER
E

FLOATD

TEMPORARY STORAGE
FLOAT INDICATOR -

0.0

SYN

-- --

---------

--7340
---- --- - 7350
7290
7360
7370
7380
7340
7400
7410
7420
7430
7440

-----

RCPT
RCPS

----------

SAVE L I N K I R
E Y A L U A T E THE NUMERLCLL ARGUMENT
P O I N T E R TO F U L L WORD
NUMERICAL VALUE
MAKE O P P O S I T E S I G N
RESTORE L I N K I R
MAKE I T A NUMBER

-- -- ---

RDCX0754

B OP
~ P O S I T E S I G N OF N U M E R I C A L ARGUMENT

--

- - ---- --

CREATES A N

- - - . - --

---

---

..--_--"

--

--

4
,

3
5

- --

----

_7_66990---

7700
---- 7710
-7720

- -- --(

7460
7470
7480
7490
7500
7510
7520
7530
7540
7550
7560
7570
7580
---7590
7600
76L!L--_-7620
7630 7640
76XL.7660
-7670
-----7680
-

.- - .

----

PAGE 1 4 7

BONhiE-S

7205
7206
7207
7708
7209
7710
7211

14663
14664
14665
14666
14667
14670
14671
14672
14673
14674
14675
14676
14677
14700
14701
14702
14703
14704
14705
14706
14707
14710
14711
14712
14713
14714
14715
14716
14717
14720
14721

-0634 0 0
0100 00
0601 00
-0734 00
0634 00
0500 00
0734 00
3 77776
-0754 0 0
0340 00
0020 00
0020 00
0340 00
0070 00
0020 00
0340 00
0020 00
0 0 2 0 OC
0074 00
-3 0 3 3 5 4
- 0 6 0 0 OG
C560 0 0
-0600 00
0500 00
0074 00
C560 0 0
-0600 00
6560 00
0074 00
-0534 00
0020 00

4
4
0
4
4
4
4
4
4
0
0
0
0
0
0
0
0
0
4
0
0
0
0
0
4
0
0
0
4
4
0

03350
00001
03353
00000
03350
00000
00000
14722
00000
00502
14677
14725
00500
147C2
15000
00501
14705
14750
02312
02375
03351
03321
03352
03353
15454
03352
03321
0335L
02326
03350
14663

14722 0500 00 0 03353

14723 -0534 00 4 03350
1 4 7 2 4 0 0 2 0 G O 0 15016
14725 -0534 00
14726 0500 00
1 4 7 2 7 (2601 00
14730 0500 00
1 4 7 3 1 -0734 0 0
1 4 7 3 2 ~ 5 0 00 0

4
0
0
4
4
4

03353
03321
03355
00000
00000
OOO~O

BIRTHDAY ASSEMBLY
EJECT
APPI Y

APPi YIF9L.A) =
SELECTICAR(L).,
-l,APPZIF,L.A)..
LAMBDAiEVAL(F,APPEND(PAIR(CADRIF),L),A)).y

7216 A
HED
7 2 1 7 APPLY SXD ASS194
7218
T 7 E 1.4
ST0 A S T l
7219
POX 0.4
7220
7221
SXA
ASSl,4
7222
CLA 0 1 4
7223
PAX 0 9 4
7224
TXH ASP1.41-2
7225
PXD 0 9 4
7226
CAS ASLPD
7227
TRA *+2
7228
TRA ASP2
7229
CAS ASFUN
7230
TRA *+7
7231
TRA ASP4
7232
C A S ASLBL
7233
TRA *+2
7234
TRA ASP3
7235
TSX SSAVE.4
7236
TXL
BEND31 ,ASSA+Z
7237
STQ ASSL
LDD SARG3 -7238
7239
STQ ASSA
7240
CLA A S T l
7241
TSX SEVAL94
LDQ ASSP
7242
7243
STQ SARG3
7244
LO9 ASSL
7245
TSX UNSAVE.4
7246
LXD ASS114
7247
TRA APPLY
7248
7 2 4 9 ASP1 C L A A S T l
7250
LXD A S S l t 4
7251
T K A $APP2
7252 9
LAMBDA BRANCH
7 2 5 3 ASP2
LXD A S T l t 4
7254
CLA SARG3
7255
ST0 AST3
7256
CLA 0 1 4
7257
PDX 0 9 4
7258
CLA 0 9 4

n l o
--__-----___
LC430200
KGLI3QC
_
LC430400
L C G 3 0 5 0 0--____----.pLC430600

LC431800
L-900
LC432000
CC43-

---_

SAVE FUNCTION ALONG WITH INDEX REGISTE

CWRLF)
______--LC43220.D____-CAR( F
LC432300
L c 4324SLe___-.
LC432500
= LAMBDA
- 113432690LC432700

--

--

L C 4 3 2 8 4 0 !
LC432900

-- .. - .-

L!:
LC433100

= LABEL

-.

Ck3ZZOO-

_ -_

-.

-.--

LC433300

SAVE 3 ITEMS

-- -

----.--.--

- -- - -

F
EVAL ( F 9 A )

LC433700
LC633800
LC433900
LC 43_4_0_00_o
LC434100

-.----

---

----

--.-

LC434300

-- .
APPLY(EVAL(FyA)rL,A)
F
p
p

--.---

--

P APPE(F.L,A)

---

--_!434900
LC435000
LC435100
- -.
-. -- ---- LC435200

-.

,
-

.--

-- -

.- --

-. -----

_
-

'

. - l L E u l i _ _ _ '

ChR(F)
CDRI F )
CWCRI F)

'

LC435600
LC435700
LC435800
LC435900
LC436000-

--.

-_ - _
--

--

-.---..-----

----.------------...-.--...

PAGE 1 4 8

BONNIE-S
0601
0734
-0754
0074
0560
0074
0131
-0534
0500
0734
-0754
-0534
0020

00
00
00
00
00
00
00
00
00
00
00
00
00

0
4
4
4
0
4
0
4
4
4
4
4
0

03356
00000
UOOOO
07562
03355
07675
00000
03356
00000
00000
00000
03350
15454

00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00

4
0
0
0
4
4
4
0
4
4

03353
03354
03321
03355
00000
00000
00000
03356
00000
00000
00000
00000
03353
00000
03356
00000
03730
03355
03730
03321
03354
03353
03350
14663

1 1)775
14750
14751
14752
14753
14754
14755
14756
14757
14760
14761
14762
14763
14764
14765
14766
14767
14770
14771
14772
14773
14774
14775
14776
14777

1500C
15001
15002
15003
15004
15005
15006
15007
15010
15011
15012
15013
15014

-0534
-0600
0560
-0600
0500
-0734
0500
0601
-0734
(3500
0734
-0754
C601
0131
0534
-0754
0074
0560
0074
0601
0560
0500
-C534
0020

-0534
0500
-0734
0500
0601
-0734
C500
0734
-0754
0601
0534
-0754
-0534

00
00
00
00
00
00
00
00
00
00
00
00
OC

4
0
0
4
4
4
0
4
0
0
0
4
0

4 03353
4 00000

4
4
0
4
4
4
4
0
4
4
4

00000
00000
03353
00000
00000
00000
00000
03321
03353
00009
03750

7259
7260
7261
7262
7263
7264
7265
7266
7267
7268
7269
7270
7271
7272
7273 +
7 2 7 4 ASP3
7275
7276
7277
7278
7279
7280
7281
7282
7283
7284
7285
7286
7287
7288
7289
7290
7291
7292
7293
7294
7295
7296
7297
7298
7299 a
7 3 0 0 ASP4
73Gl
7302
7303
7304
7305
7306
7307
7308
7309
7310
7311
7312

ST0
PAX
PXD
TSX
LDQ
TSX
XC A
LXD
CLA
PAX
PXD
LXD
TRA
LXD
STQ
LDQ
STQ
CLA
PDX
CLA
ST0
POX
CLA
PAX
PXD
ST0
XCA
LXA
PXD
TSX
LDQ
TSX
ST0
LDQ
CLA
LXD
TRA

AST4
094
094
$PAIR14
-.AST3
fNCCNC,4
AST494
094
094
014
ASS194
$EVAL

-...

-- .. .

..-

BIRrHDAY ASSEMBLY

-. --

---

14733
14734
14735
14736
14737
14740
14741
14742
14743
14744
14745
14746
14747
2L
._CC

.-.

PAIR(c-A&uF)-dA
A

-.

--

-- -.-

--

.-

- - - . I

. ~ ~ 6 & ! ! - _
- -,--.- -LC436900
LC437000
--- - .-- -. 7
LC437100
LC437300
-9
LC437400
LC437500
1 500061
6
LC437600
. .
LC437700
LC437800
LC437900
LC438000
LC438100
LC438200
LC438300
LC438400
LC438500
LC438600
LC438700
LC438800
--4580
0--000

EVAL(CADCRIF),APPEND(PAIRICADR(F)IL)PA))

AST494
094
PCONSv4
AST3
$CONS94
SARG3
AST2
ASTl
ASS194
APPLY
APPLY ( C A D C H ( F 1,

..

-... .
CCDR ( F 1

LABEL ERANCH
AST194
AS12
ZARG3
AST3
094
094
094
AST4
094
094
094
0.4
ASTl

...

LC436100
LC436200
LC436300
L C 4 3.6400
LC436500

CADR ( F l

.. .

F
L
A

--

CWR( F )
CDRIF)
CWDR ( F 1
CCDR(Fl

---

CAGDR ( F )

----

LC439100
LC439300
CONS(CAOR(Fl~CONS(CA~Q~(F)~O1)
LC439500
--A
LC439600
APPENC[
LC439700
LC439800
LC439900
---- .- -- CADDR ( F 1
LC440000
LC440100
---.L ~ A P P E N DF
(
A ~ ~ P IC A DF
D R ()F )T,A)r- LC440200
LC440300
..
1.540062
F
-LC440400
.LC440500
CDRI F l
LC440600
LC440700
CXDR ( F 1
LC440800
A-. .
CODR(F 1
LC440900
___
- ~ 2 4 4 1 0 0 0 ~ CADDR ( F 1
LC441100
CADR ( F 1

e!?!C&!

LXD
CLA
PDX
CLA
ST0
PDX
CLA
PAX
PXD
ST0
LXA
PXD
LXD

FUNARG BRANCH
ASTI94
94
94
14
ASTl
94
94
94
94
$ARG3
ASTlv4
r4
ASSlv4

A
CADR [ F 1 _ _ _ ~
F

. -.

LC4412OL
LC441300
LC441400
. _--LC441500

.
.
a

--.--*~

LC441600
------L------.---.-----.,-.

. -.

PAGE 1 4 9

BGNNI E-S

BIRTHDAY ASSEMBLY

-- -15015

0020 00 0 14663
00501
005Q2
00500
00370

15016
15017
15070
15021
15077
15023
15024
15025
15026
15027
15030
15031
15032
15033
15034
15035

0634 00
-0534 00
0634 00
-0600 00
0 6 0 1 00
0600 00
-0734 0 0
-3 0 0 0 0 0
0500 00
0734 00
-3 06646
-3 0 6 6 4 7
-3 0 6 7 3 2
-3 06733
-3 10156
3 10157

15036 -0734
15037 0500
15040 0734
15041 -0754
15042 0520
15043 0020
15044 -0534
15045 0020

00
00
00
00
00
00
00
00

4
4
4
0
0
0
4
4
4
4
4
4
4
4
4
4

15147
03321
15153
15152
m 5 1
15145
00000
15071
00000
00000
15032
15121
15034
15046
15024
15024

4
4
4
4
0
0
4
0

00000
00000
00000
00000
15145
15111
15147
14663

15046 -0734 0 0 4 00000

15047 0500 00 4 00000
15050 0734 00 4 COCCO
15051 0500 0 0 4 00000
15052 0 6 0 1 00 0 15146
15053 0500 00 0 03350
15054 0 6 0 1 00 0 03315
15055 0500 00 0 15152
15056 0074 00 4 10072
15057 0520 00 0 15145
1506C C020 O C 0 1 5 1 3 1
1 5 0 6 1 0 0 7 4 00 4 02312
1 5 0 6 2 -3 0 3 3 2 0 0 0 2 3 7 7

7313
771 4
7315
ASLBL
7 3 1 6 AT1 MC
7317
ASFUN
AS7Rn
7318
7319
7370
7321
7377
7323
7324
7325
7176
7327 A
7 3 2 8 APPZ
7329
7330
7331
7337
7333
7 3 3 4 APSES
1335
7336
7337
7338
7339
7340
7341
7342
7343
7344 *
7345 R 2 i
7346
7347
7348
7349
7350
7351
7352
7353
7 3 5 4 R2
7355
7356
7357
7358
7359
7360
7361
7362
7363
7364
7365
7366

- -- -- - -- ----- - - -- -- --- -- ----

TRA $APPLY
SYN LABELD
SYN I W A D
SYN
FNARGD
SYN
S7FRU

LC441700

- ---

I l l w n

----

-LC442700
-45%)LC443000

---- -- - - -

- --

-Ir.4

APP7tF.L.A)=5FLFCT[F..CAR.I:1
I.-----C D A R I L ) . T C O Y S I C C N S ~ C A R ~ L ) ~ C A C R ( L ~ ) . , L I S T ~ C O P Y I L S E A R C H F LC443200
LAMBRA ( J .CAR I: J J -SLltlK OK
. 1CARPI JXI - F
--ICA4U Up
LAMBDA(JvCARIJ)=SUBK YIELDS APP31CWADR
LC443400
I J ). D I S T R I B ( L ) ) r l YIELDS APPl Y ( C A I X L U a U L - M T 5 I l O
ERROR
L
3 60 0. -C
- 4 41 C443700
LC443800
ATS1.4
SAVELINK- - 4
6 0 0
SARG394
GET ALIST
A.4
SAXAL
ARGUMENT L I S T
4610
F
FUNCTION ( I S ATOMIC S m )
4670
APTRT
I N I T I A L I Z E TRACE TEST CELL
0.4
ARG T n I R
4 6 3 0 - . ..--.
__-APSAL.49 0
GO I F NO MORE PROPERTY L_ I S T
4640
0 14
F I R S T WORD
465-0
094
CAR
4660
*+7 94. STRACE-1
-- - - - -,APTRKp4, STRACE
LOOK FOR TRACE
*+2 14. $SUER&
LOOK FOR
-- - _ ---46-7-0
_ _
- -R294,SSUER
ZSUBR OR
4680
APSES.4, 6EXPR-1
JEXPR
.
-_
._46_90- ._.
_
- --- APSES14,SEXPR
4700
EXPR RRAPjGH I N APPLY
W1lOOO.. - . -.
. - .-.-.
014
POINTER TO NEXT WORD AFTER SEXPR
4720
014 NEXT WORD
_ _--473Q -_--_ _ ...
014
CAH
4740
I S FUNCTION
4750
-- --- 0r4
APTRT
TEST FOR TRACE MODE
uPTXP
TRACE THIS EXPRESSION
ATS114
RESTORE LINK I R
4760
SAPPLY
GO TO APPLY
---.
- -..---- --47 7-0 - -- --- - -- . -R2 THE SUER BRANCH OF APPLY
&780
-0 14
GET THE TXL I N S T K T L O N _ B T A K _ I N L
4790
014
CWR (CADR L ) )
4800
094
-ku.L---- .
014
4820
CWADR
TXL INSTRUCTION_--_
_ - 4830
_ _ -_ASS 1
CSV
-- --- -- - - - -- -AL
GET THE ARGUMENT L I S T
4840
SPREAD94
SPREAD I T INTO ACI MQ, ARG3, ETC.
4850
---APTRT
TEST FOR TRACE MODE
APTSB
T R ACETHISSUBrnU_L1.L - -- -- _ -___ . --$SAVE,4
$ENc219 $ A L I S T + 2
_ _ - _ --__ ----- _ _ _-_

--

HED
SXD
LXD
SXD
STQ
ST0
ST2
PDX
TXL
CLA
PAX
TXL
TXL
T XL
TXL
TXL
TXH

PDX
CL A
PAX
CLA
ST0
CLA
ST0
CLA
TSX
LET
T RA
TS A
TXL

------------

--

x
p
p
p
-

PDX
CL A
PAX
PXD
ZE T
TRA
LX D
TRA

----

'

-PAGE 1 5 0

BONNIE-S

15063 -0534
1506't - 0 6 3 4
15065 0074
15066 0074
1 5 0 6 7 -0534
15070 0020
15071
15072
15073
15074
15075
15076
15077
15100
15101
15102
15103
15104
15105
15106
15107
15110

0500
0601
0500
0560
0074
-0734
0500
-0734
-0754
0560
-0600
0560
0520
0020
-0534
0020

00
00
00
00
00
00

4
4
4
4
4
4

15153
03316
15146
02326
03315
00001

00
00
00
00
00
00
00
00
00
00
00
00
00
00
00
00

0
0
0
0
4
4
4
4
4
0
0
0
0
0
4
0

15150
03321
15151
15153
10042
00000
00000
00000
00000
15153
03321
15152
15145
15111
15147
14663

15111 0074 00
15112 - 3 03317
15113 0074 00
1 5 1 1 4 GO20 0 0

4
0
4
0

02312
02401
14663
15136

1 5 1 1 5 - 0 6 3 4 0 0 4 01562
15116 0500 00 0 15151
15117 0074 00 4 01563
15120 542160600254
1 5 1 2 1 -0625
15122 0601
15123 0534
15124 -0754
15125
0074
15126 0560
15127 0500
15130 0020
15131
15132
15133
15134
15135
15136
15137
1514C
15141
15142
15143
z
3
r
6
/
-

00
00
00
00
00
00
00
00

0
0
4
4
4
0
0
0

15145
15144
03350
00000
15050
15152
15144
15024

0074 00
- 3 03320
-0534 0 0
-0634 00
0074 00
0 0 7 4 00
0 1 3 1 00
0534 00
-0754 00
-C534 00
0020 00

4
0
4
4
4
4
0
4
4
4
0

02312
02377
15153
03316
15146
02326
00000
03315
00000
03315
16104

7367
7368
7369
7370
7371
7372
7373
7374
7375
7376
7377
7378
7379
7380
7381
7382
7383
7384
7385
7386
7387
7388
7389
7390
7391
7392
7393
7394
7395
7396
7397
7398
7399
7400
7401
7402
7403
7404
7405
7406
7407
7408
7409
7410
7411
7412
7413
7ft14
7415
7416
7417
7418
7419
7420

-- - - --..

-.

---

- ..

- .---- .-.

-.

----- --..--.--

.-..

BIRl-HDAY ASSEMeLY

*
APSAL

*
APTXP

*
R33

LXD
SXD
TSX
TSX
LXD
TRA
CLA
ST0
CLA
LDO
TSX
POX
CLA
PDX
PXD
L DQ
STQ
L DQ
ZET
TR A
LXD
TRA

FAS
bARG3
. F
A
SASSCC, 4
014
014
094
0 4
A
ZARG3
AL
APTRT
APTXP
ATS 1 9 4
SAPPLY

TSX
TXL
TSX
TRA

$SAVE94
SENDl,, CSV+2
$APPLY 14
APEXC

SXD
CLk
TSX
UC I

$ERROR, 4
F
SERROR+li4
1,*A
2*

TSX
TXL
L XD
SXD
TSX

APEXC

--

-.

-..-.-

---- -.-..- -.- - - ---.- -. -- .

--

--

-- - -.-. ---

-.... .

4880

APTRK STL
ST0
LX A
PXD
TSX
LDQ
CLA
TRA
APTSB

A14
SALISTi4
CWACRv4
UNSAVE, 4
CSV ,4
194

TSX
XCA
L XA
PXD
LXD
TRA

APTR r
APA
ASSlt4
014
ARGGFv4
AL
APA
APSES
$SAVE14
SENCZv,$ALIST+2
A i4
SALIST14
CWADR14
UNSAVEv4

kHERE TO GO I F NOT FOUND ON PAIR LL.3-

----

-.----...

4920
4930
5

SEARCH PAIR L I S T FOR LABEL D E F I N I T I O N

POINTER TO ASSOCIATED ITEM
POINTER TO ITEM
RESTORE PAIR L I S T

4940
4950
4960
4970
4980
4990
5000
5010

3
b

s:

RESTORE ARGUMENT L I S T
TEST FOR TRACE MODE
TRACE THIS EXPRESSION
RESTORE L I N K I R
5020
GO T O APPLY WITH ITEMASSOCIATED
HITH
5030
THE ATOMIC FUNCTION
5040
TRACE EXPR

F I N I S H UP

PICK UP FUNCTION
GO TO ERROR
FUNCTION O B J E C T HAS--~~=INITION

5050
5 0 6
50 7 0
5080

.-

-..----.-.
-

SAVE THE AC
ATOM NAME

- -.

.- ...

----

----

PRINT ARGUMENTS OF
RESTORE M Q AFTER-_PRINLING
RESTORE AC
CoNT INUE PROPERTY L 1 ST SE!HL!!

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

TRACE SUER

----

-..-p.-p-----.p----.----...-.---

- - ~

L.

VALUE TO
CSVi4
0 14
CSVi4
VALOF

ATOMIC FUNCTION

MO

7 0 AC

PRINT VALUE OF

--

.- -.

....

..

.- -.

--

-.. .

- - ...- - -

- --

--.--.

.
.
-. - -.

.
.

-.-

--

---w...-.s--.-,---.p---."

15)

-----

. --

- --

.-

....

-.-- --

\
,

....

-- - .

---- --

.-

p
p

PAGE 1 5 1

15144
15145
15146
15147
15150
15151
15152

15153

15155
15156
15157
15160
15161
15162
15163
15164
15165
15166
15167
15170
15171
15172
15173
15174
15175
15176
15177
1520G
15201
15202
15203
15204
15205
15206
15207
15210
15211

BONNIE-S

O m

0
00000
OOODO
OOCOO
00000
00000
0 00000
0 00000

0
0
0
3
0

0 m 0 0
0 OOOOO

0
0
0
0
0
0

00000
00000
15115
00000
00000
00000

-0634 00 4 03364
0074 00 4 02312
-3 0 3 3 7 1 0 0 2 3 7 3
-0600 0 0 0 03365
-0734 00 4 00000
0500 00 4 00000
0 6 0 1 00 0 03366
0734 00 4 00000
0500 00 4 00000
0601 00 0 03367
0734 00 4 00000
-0754 00 4 00000
0074 00 4 15454
0560 0 0 0 03365
0100 00 0 15203
-0534 0 0 4 03367
C500 0 0 4 COOCO
0 7 3 4 0 0 4 COO00
- 0 7 5 4 00 4 0 0 0 0 0
0 0 7 4 0 0 4 C2326
-0534 00 4 03364
0020 00 0 15454
-0534 00 4 03366
3 COO00 4 1 5 1 6 2
-0634 CO 4 01562
C534 0 0 4 0 3 3 6 6
-0754 00 4 00000
0074 00 4 01563
542160600354

15212 0634
15213 -0734
15214 0500
15215 0734
1 5 2 1 6 -G754

00
00
00
00
00

4
4
4
4
4

15217
00000
00000
00000
00000

7421
7473
7423
7474
7425
7476
7427
7428
7429

B I R FHDAY ASSEMBLY

*
APA

APfRT
CWADK
ATSl
FAS
TXL
F
At
A

R33.

S O

------

--

-----

AT. STORAGF
---TRACE MOCE TEST SWITCH
LON
----- AmL I N K INDEX REGISTER
5140
NOT FOUND o , N _ E L A L B U I T C A U - - E R R O R
_511L
ATOMIC FUNCTION GOES HERE
51 6 0
A W F N T 1 IST
517
L
A OR PAIR L I S T
5180

'

7433 A

HED

7435
7436
7437
7438
7439
7440
7441
7442
7443
7444
7445
7446
7447
7448
7449
7450
7451
7452
7453
7454
7455
7456
7457
7458
7459
7460
7461
7462
7463
7464
7465

SXD E C S l r 4
LC4L--'
TSX $SAVE14
TXL
SENE41 1 ECS4+2
SAVE 4 ITEMS
STQ ECSZ
_tC470400--PDX 0 9 4
LC470500
CLA 0 9 4
I
-!
-.ST0 ECS3
LC470700
PAX 0.4
CLA 0 8 4
ST0 ECS4
-- L C 4 7 1 Q O L___-_---PAX 0 1 4
LC471100
I
_
_
_
- -.___
_
L
PXD 0.4
TSX $EVAL,4
LC471300
LOB ECS2
-_ - U 4 U . Q Q O
. - _ -_
TLE E2
LC471500
LXD ECS4.4
--__
47 UQO- - . ._
_- - -.
CLA 0 7 4
LC471700
PAX 0.4
-___--_--_-PXD 0 1 4
LC471900
TSX UNSPVEt4
-__
.- - - L _ C 4 7 2 Q
0 -.
LXD ECS1.4
LC4722SO
TRA $EVAL
- L - C k Z 2 _ 1 0 _ 9 .LXD ECS3r4
LC472400
TXH 1 , 4 1 0
LC472500
----.
5 x 0 $ERROR14
LC469600
LXA
ECS314
- --- - --- .--- - . -PXO
Or4
PRINT LAST CONDITION
TSX $ERROR+114
.- - - --.--~ C I
l**A
3s
CONDITIONAL UNSATISFIED
EASIC L I S P FUNCTIONS FOR APPLY
CC0
-0
OOOO.O
.-.-- LC473500

F1

LC469400
LC469500
LC470100

E2
E3

7468
7469
7 4 7 0 CARP
7471
7472
7473
7474

__

CAR

LC473800
-

--

LC473900
SXA
POX
CLA
PAX
PXD

---------.------.--

CARX, 4
14
r4
94
94

-__

_-

-- - --

-- -

-- - ----

--

LC474100
~ c 4 7 ~ 2 ~_ ~ -- LC474300
---LC474400
- - -- - - - _

--

- --- --

--

--- -

PAGE 1 5 2

BONNIE-S

----

--

BIRTHDAY ASSEMBLY

15217
15220
15221

0774 00 4 00000
0 0 2 0 00 4 0 0 0 0 1
0 00000 0 00000

15222 0634
1 5 2 2 3 -0734
15224 0500
15225 - 0 3 2 0
15226 0774
15227 0020

00
00
00
00
00
00

4
4
4
0
4
4

15230 0634 00 4
15231 0100 00 0
15232 -0734 00 4
15233 0500 00 4
15234 0734 00 4
15235 -3 7 7 7 7 6 4
15236 0500 00 0
15237 0020 00 0
1 5 2 4 0 -0754 GO 0
15241 0774 00 4
15247 0020 00 4

15243 0100
15244 -0754
15245 0 0 2 0
15246 0500
15247 0 0 2 0

00
00
00
00
00

0
0
4
0
4

15226
00000
00000
00460
00000
00001
00450

15241
15236
00000
00000
00000
15240
00442
15241
00000
00000
00001
00442
15246
00000
00001
00442
00001

15250 - 0 6 3 4 0 0 4 1 5 2 2 1
15251 0601 00 0 03415
1 5 2 5 2 0 1 3 1 00 0 0 0 0 0 0
1 5 2 5 3 0 5 0 0 00 0 0 0 3 7 0
15254 0074 00 4 03730
15255 0131 00 0 00000
1 5 2 5 6 0 5 0 0 0 0 0 C3415
15257 0074 00 4 07541
15260 0131 00 0 00000
15261 0500 00 0 00500
15262 -0534 00 4 15221
15263 0020 00 0 03730
00500
00370

15264 -0634

00 4 15221

7475
7476
7477
7478
7479
7480
7481
7482
7483
7484
7485
7486
7487
7488
7489
7490
7491
7492
7493
7494
7495
7496
7497
7498
7499
7500
7501
7502
7503
7504
7505
7506
7507
7508
7509
7510
7511
7512
7513
7514
7515
7516
7517
7518
7519
7520
7521
7522
7523
7524
7525
7526
7527
7528

CARX

AXT
**r4
TRA 1 3 4

BFSl
CDRP

CD9X
BFDM

ATOMP

ATPl

ATMX
BFQL

SXA
POX
CLA
ANA
AXT
TRA
SYN

SXA
TZE
POX
CLA
PAX
TXL
CLA
TRA
PXD
AXT
TRA
SYN

VULLP TLE
PXD
TRA
CLA
TRA

LC474600
LC474700
----- --- LC474800
-

--

CORXtlt
14
r4
BFCK
lr4

LC475400
5200
LC475600
LC475700

SOMASK

ATMX 1 4
ATPl
14
94
94
*+3r4,-2
BFQl
*+2
80
*a94
114
SQD 1

r:

LC475900
LC476000
LC476100
LC476200
LC476300
LC476400
LC476500
LC476600

*+3
rO
114
BFQl
1 ~ 4

---

--

BFS1,4
BFS2

BFLRO
$CONS 14

CONS ( A , 0 1

-_

_-

--

--

LC476800
5210
LC477000
LC477100
LC477200
LC477300
LC477400
-LC477500
LC477600
LC477800
LC477900
LC478000
LC478100
LC478200
LC478300

--

-L-0
LC478700

BFSZ
APPEND94
BFFAG
BFS114
$CONS
FNARGD
$ZERO
CABEL FSUBR

LAbP

**,4

-SXD
ST0
XCA
LDQ
TSX
XC A
CLA
TSX
XCA
CLA
LXD
TRA
BFFAG SYN
BfLHO SYN

--

LC475000
LC475100
Lc4B.mL.-

LAMBDA FOR FUNCTIONAL ARGUMENTS

LAMP

- - - -- -----

--- -

SXD EFS1.4

LC478900
LC479100

LC479400
LIST(FUNARG,L,A)

- -- -

--

LC479500
LC479600
LC479700
LC480000
LC480100
LC480200
---- - ~C480300
Lc 4 - 0

-"-- -- ---

-_

--

---

-PAGE 153

BONNIE-S

--

---

15265 -0600
15766 - 0 7 3 4
15267 0 5 0 0
15770 0 6 0 1
15271 -0734
15777 0 5 0 0
15273 0 7 3 4
1 5 7 7 4 -0 7 5 4
15275 0 6 0 1

00
no
00
00
00
00
00
00
00

0
4
4
0
4
4
4
4
0

03416
nooon
00000
03415
00000
OODOn
00000

nnnno

03414

7529
7-0
7531
75-33
7533
7534
7535
7536
7537

STQ
pnx
CLA
ST0
POX
CLA
PAX

OFS3
.4
,4
BFS?
,4
.4
$4
P X D .4
ST0 eFS4

A
L

4
0
4
4
0
4
0
0
4
0

03415
00000
00000
03730
03416
03730
00000
03414
15221
15454

- 0 6 3 4 00
0074 00
-3 0 3 4 6 4
- 0 7 3 4 00
0 5 0 0 00
0 7 3 4 00
- 0 6 3 4 00
- 0 7 3 4 00
0 5 0 0 00
0 7 3 4 00
-0754 00
0 0 7 4 00
0 6 0 1 00
0 5 0 0 00
C601 00
0 5 6 0 00
0 5 0 0 00
OG74 00
-0734 00
0 5 0 0 00
0622 CO
0 0 7 4 00
- 0 5 3 4 00
0 0 2 0 00

4
4
0
4
4
4
4
4
4
4
4
4
0
0
0
0
0
4
4
0
4
4
4
4

03461
02312
02377
00000
00000
00000
03462
OCOOO
00000
00000
COO00
15454
03463
15341
03321
03447
03462
10042
00000
03463
00000
02326
03461
00001

1 5 3 4 1 -3 00000
1 5 3 4 2 -C634 00
15343 0 5 0 0 00
15344 0 0 7 4 00

0
4
0
4

15342
01562
03462
01563

15311
15312
15313
15314
15315
15316
15317
15320
15321
15322
15323
15324
15325
15326
15327
15330
15331
15332
15333
15334
15335
15336
15337
15340

7539
7540
7541
7547
7543
7544
7545
7546
7547
7548
7549
7550
7551
7552
7553
7554
7555
7556
7557
7558
7559
7560
7561
7562
7563
7564
7565
7566
7567
756e
7569
7570
7571
7572
7573
7574
7575
7576
7577
7578
7579
758C
7581
7582

LXA
XCA
PXD
TSX
LDQ
TSX
XCA
CLA
LXD
TRA

--

- -- -

LC480500

U r n - --

C W U
CCR(L)

---

LC480700
----;Lc~B~~Qo-LC480900

--

24-

CADRIL 1

- .- ___
-

_ ---

LC481 1 0 0
Ic 4 g y n o

LC481300
-

15277 0 5 3 4 00
15300 0131 00
1 5 3 0 1 - 0 7 5 4 00
15307 0 0 7 4 0 0
15303 0 5 6 0 0 0
15304 0 0 7 4 G O
15305 0 1 3 1 0 0
15306 0 5 0 0 0 0
15307 - 0 5 3 4 00
15310 0 0 2 0 00

--

BIRTHDAY ASSEMBLY

BFS2,4

CAR[ L )

,4
SCONS.4
BFS3
$COEIS*4

LC481600
5 7 30
LC482000
I C U D 0
LC482200

1 IST(CAR(Ll.CADPJL1)

--

LC482300

CCNS(LIST,AI

___

LC482400
BFS4
BFS194
$EVdL

____LC482600L

CADRA)

LC482700
LC487800
LC482900
L C 4 8 3 1 _ 0 4 LC483200
LC483.20-QO_
LC483400

SETS
SETQP SXD
TSX
TXL
POX
CLA
PAX
SXD
POX
CLA
PAX
PXD
TSX
ST0
CLA
ST0
LDQ
CLA
TSX
POX
CLA
STD
TSX
LXD
TPA

REPSlr4
$SAVE14
SENE21 REPV+2
,4
r4
94
REPVt4
,4
94
-14
14
$EVAL,4
REPTl
REPPl
bAR63
PRGVAK
REPV
SASSOCv4
t4
REPTl
094
UNSAVEp4
REPS114
114

REPPl TXL
SXD
CLA
TSX

*+~,TO
$ERROR14
REPV
$ERROR+1,4

---

--.-- -- .. .----

LC483600
-- -- --

L
- ------

CAR(L)

-- -- -

--.--

LC483800
---LCk839-QO LC484000

-- --

----

-- - --- -----.

CCR(L)

LC484200
.
- ---.
-------LC3843_0 0- -- - - __
- _
CADR ( L )
LC484400
--- - -- - ---!&itl3~0.~-_-EVAL(CACR(L)yA)
LC484600
-LC484700
LC484800
-- - - - - -- -- - -- LC484900
-- - - - - - -- - - LC485000
--- -- L C_48514-0- - - -SASSOC ( CAR1 L 1, PV 1 ERROR 1
LC485200
-LCC4_85_3_QP_-88888888 - .
LC485400
REPLACE GECR&!!mT.
5240
---LC485700
---L_C48_5-9
- - - - -- -LC486000
LC486100
-"----------.---.---------LC486200
30
-- - - - -- ---L- -c-4.a-6--0 -- -- -- - - - LC486400
A

--

--

--- --

- -

- -- - - -

~ ~ 4 8 6- 5 0 0

'?

PAGE 154
15345

15346
15347
15350
15351
15352
15353
15354
15355
15350
15357
15360
15361

BONNIE-S
542160600454

-0634
0601
-0600
0560
-0600
0560
0074
-0734
0500
0627
-0534
0020

00
00
00
00
00
00
00
00
00
00
00
00

4
0
0
0
0
0
4
4
0
4
4
4

15221
15367
03415
15362
03321
03447
10042
00000
03415
00000
15221
00001

1 5 3 6 2 -3 0 0 0 0 0 0 1 5 3 6 3
1 5 3 6 3 - 0 6 3 4 00 4 0 1 5 6 2
1 5 3 6 4 0500 00 0 1 5 3 6 7
15365 0 0 7 4 0 0 4 0 1 5 6 3
15366 542160600554
15367 0 00000 0 0 0 0 0 0

15370
15371
15372
15373
15374
15375
15376
15377
15400
15401
15402
15403
15404
15405
15406
15407
15410
15411
15412
15413
15414
15415

-0100 00
0500 00
0 0 2 0 00
-0634 00
0 0 7 4 00
-3 03347
- 0 7 3 4 00
0500 CO
0 6 0 1 00
0 7 3 4 00
-0754 00
-0600 00
0 0 7 4 00
0 5 6 0 00
-0100 0 0
0 0 7 4 00
-0534 00
0 0 2 0 00
-0534 00
3 OOCOO
0500 00
0020 00

15416 -0100
15417 0 5 0 0
15420 0 0 2 0
1 5 4 2 1 -0634
15422 0 0 7 4

00
00
00
00
00

0
0
4
4
4
0
4
4
0
4
4
0
4
0
0
4
4
4
4
4
0
0

15373
00442
00001
U3343
02312
02375
00000
OOOCO
03344
00000
00000
03345
15454
03345
15412
02326
03343
00001
03344
15377
00442
15407

0
0
4
4
4

15421
00370
00001
03435
02312

7583
7584
7585
7586
7587
7588
SETP
7589
7590
7591
7592
7593
7594
7595
7596
7597
7598
7599
7600
7 6 0 1 SETPl
7602
7603
7604
7605
7 6 0 6 BFS5
7607
7608 +
7609 EVA8
7610
7611
7 6 1 2 EVA6
7613
7614
7615
7 6 1 6 EVA4
7617
7618
7619
7620
7621
7622
7623
7 6 2 4 EVA5
7625
7626
7 6 2 7 EVA3
7628
7629
7630
7631 *
7632 EVR8
7633
7634
EVgh
7635
7636

BC I

1,*A

-- -

--- -

BIRTHDAY ASSEMeLY

SETQ GIVEN

4*

ON

BFSJ.94
BFS5
BFS2
SETPl
SARG3
PRGVAR
SASSOCp4
94
BFSZ
014
BFSlr4
1.4

TXL
SXD
CLA
TSX
ac I

*+1,,0
SERRORp4
BFS5
SERROR+1*4
l , *5~
%

SET

GIVEN

ON

TNZ
CLA
TRA
SXD
TSX

EVA6
EVCT
114
EVA114
$SAVEj4
SENC3spEVA9+2
14
14
EVA2
p4
94
EVA9
bEVAL94
EVA9
EVA3
UNSAVEp4
EVA194
1,4
EVA214
EVA414p0
EVCT
EVA5
OR SPECIAL FORM
EVR6
EVCF
1,4
EVR184
$SAVE14

--

--

'

LC487000
LC489800
4
- -_
-- .LC490000
---LC490100
LC490200
LC490300------------~LC490400
LC490500
LC490600
LC490700
LC490800
LC490900
LC491000
-- LC491200
LC491300
LC491400
LC491500
LC491600
LC491700
LC491800

-----

4
9

NON-ExISTENTVARIELE

LC492300
LC494200
LC494300
LC494400
LC494500
LC494600
LC494700

AND SPECIAL FORC

TNZ
CLA
TRA
SXD
TSX
TXL
PDX
CLA
ST0
PAX
PXD
STQ
TSX
LDQ
TNZ
TSX
LXD
TKA
LXD
TXH
CLA
TRA

----- ---- - --- --

--

NON-EXISTENT
VARIBLE

SET
SXD
ST0
STQ
LEQ
STQ
LDQ
TSX
PDX
CLA
STD
LXD
TRA

-- -- -

--

--

---

SAVE 3 ITEMS

--

--

--

---

---- -- -

---

--

--

- -- - -

LC494900
LC495000
LC495 1 0 0
LC495200
LC495300
LC495400
LC495500
--LC495600
LC495800
LC496000
LC496200
LC496300
LC496400
LC496500
LC496600
LC496700
LC497100
LC497200
LC497300
- --LC497400
- - --- -LC497500
LC497600

-.----

--

---- --

--- - - -

--

.
-

- --

-- - - - -

--*""-

--

-- - -- - - --

PAGE 1 5 5

BCANIE-S

--

BIRTHDAY ASSEMBLY

-15423
15474
15425
15476
15427
15430
15431
15437
15433
15434
15435
15436
15437
15440
15441
15442
15443
15444

0
4
4
0
4
4
0
4
0
0
0
4
4
4
4
4
0
0

02375
00000
00000
03436
00000
00000
03437
15454
03437
15441
00442
02326
03435
00001
03436
15425
00370
15436
00442
00370

15445 -0600 0 0 0
15446 0402 0 0 0
15447 -0100 0 0 0
15450 0500 00 0
15451 0020 00 4
15452 -0754 00 0
15453 0020 00 4

15221
15221
15452
00442
00001
00000
00001

15454
15455
15456
15457
15460
15461
15462
15463
15464
15465
15466
15467
15470
15471
15472
15473
15474
15475
15476

-3 0 3 4 4 1
-0 7 3 4 0 0
0500 00
0601 00
0734 00
0754 00
-0600 0 0
0074 00
0560 00
0 1 0 0 00
0500 00
0 0 7 4 DO
-0534 0 0
0020 00
-0534 0 0
3 00000
0500 00
0070 00

-0634 0 0
0100 00
0601 00
-0734 00
0500 0 0
0 6 2 5 00
0520 00
0020 00
0734 00
3 77776
-0634 00
0634 00
0622 0 0
0500 00
0625 00
0520 00
0020 00
0 7 3 4 00
-3 77776

4 03372
4 00001
G 16121
4 00000
4 00000
0 16126
0 16126
0 15542
4 00000
4 15545
4 16122
4 03372
0 03411
4 00000
0 16126
0 16126
0 16007
4 00000
4 15756

7637
7h3R
7 6 3 9 EVR4
7640
7641
7647
7643
7644
7645
7646
7647
7 6 4 8 EVR5
7649
7650
7 6 5 1 EVR3
7652
7653
7654
7 6 5 5 EVCT
7 6 5 6 EVCF
7657
7 6 5 8 EQP
7659
7660
7661
7662
7663
7664
7665
7666
7667
7668 A
7 6 6 9 EVAL
7670
7671
7672
7673
7674
7675
7676
7677
7678
7679
7680
7681
7682
7683
7684
7685
7686
7687
7698 *
7689 *

TX L
PDX

CLA
ST0
PAX
PXD
STQ
TSX
LDQ
T7E
CLA
TSX
LXD
TRA
LXD
TXH
CLA
TRA
SYN
SYN

bENG3r ,EVR9+2

- - --

--

LC497900
L C 4 9 a a a Q .
LC498100

- C 4 9 8 2 0 n - LC498300

LC498500
_-

--

_.
_
m
M
- _
- _
_

LC498800

LC498900

---

LC499100
I C W O O
LC499300
l C499490
LC499500
LC499600
5250
LGSaQLOO
LC500200
- L C 5 0 0 3 0 D ~
LC500400
LC500500
LC500600

---&3Um-Q---.--LC500800

EVAL(E,A)
HED
SXD
TZE
ST0
PDX
CLA
STT
ZET
TRA
PAX
TXH
SXD
SXA
STD
CLA
STT
ZET
TRA
PAX
TXL

nCI

,4
,4
7VR7
14
,4
EVR9
$FVAl .4
EVR9
EVR3
EVCT
UNSAVE.4
EVR1,4
1.4
EVRZr4
EVR494.0
EVCF
EVR5
SQDl
$ZERO

STQ B F S l
SllB B F S l
TNZ *+3
CLA E F Q l
TRA 1 9 4
PXD r O
TRAlr4

--

SAVE 3 ITEMS

--

5/6/59

CAAR(E) = - 1

--

--

-.

LC501000
_- - - - -- -LC5_011Q0._LC501200
-C5U-Q1)_
LC502000
-- -LC-5021 00.- .-.
LC502200
L C'5023_QQO-___-_
LC502400

EVS1.4
194
EVTE
,4
,4
EVLNS
EVLNS
EVLN
14
EYP194,-2
E'JTAE14
EVS1,4
E'JTDE
94
EVLNS
EVLNS
EVP26
,4
EVP2794,-2

--LC
- 50Q900

--

-__

- - ...--

--

.____

SEE I F A NUMBER
SKIP I F NOT A NUMBER
1 s A NUM8ER(Ci!XX!2AETL
__ _ -- ---- -- - - - _ - CAR( E
LC502500
= - I
_ -_
_ -LC506000.
-- -_ CAR{ E )
LC502700
SAVE FUNCTION WITH INDEX REGISTER
------- CDRt E 1
LC502800
--- LC502900
- --- --- ---- --SEE I F A NUMBER
TErJT FOR A NUNBER - - - -- _ _-- _----UNDEFINED FUNCTION I F A NUMBER
CAAR ( E 1
.-------.-GO I F CAR(E) NOT AN ATOM
- -- --- ---- - - --

- - - _ - - - 1_,wo_Q9_Q-.-"-

--- --

PAGE 1 5 6

BONNIE-S

15477 0634 00
15500 -0634 0 0
1 5 5 0 1 - 0 7 3 4 00
1 5 5 0 2 -3 0 0 0 0 0
15503 0500 00
15504 0734 00
15505 3 06647
15506 3 06646
15507 3 06733
15510 3 0 6 7 3 2
15511 3 10103
15512 3 10102
15513 3 10157
15514 3 10156
15515 3 10142
1 5 5 1 6 -3 1 0 1 4 1
15517 0622 00
15520 -0600 0 0
15521 0500 00
15522 0560 0 0
15523 0074 0 0
15524 0131 00
15525 0500 00
15526 0074 00
15527 0 1 3 1 00
15530 - 0 5 3 4 0 0
15531 0500 00
15532 0734 00
15533 -0754 00
15534 0520 00
15535 0020 00
15536 -0534 00
15537 0020 00

0
0
4
4
4
4
4
4
4
4
4
4
4
4
4
4
0
0
0
0
4
0
0
4
0
4
4
4
4
0
0
4
0

03375
03375
00000
15642
00000
00000
15507
15540
15511
15756
15513
15613
15515
15634
15501
15501
03412
03321
03321
00370
03730
00000
03411
03730
00000
03412
00000
00000
00000
03375
16031
03372
14663

15540 -0625 00 0 03375

15541 0020 00 0 15501

15542 0500 0 0 0 16121

15543 -0534 0 0 4 03372
15544 0020 00 4 00001
15545
15546
15547
15550
15551
15552
15553
15554
15555
15556

-0734 0 0
-3 0 0 0 0 0
0500 00
0734 00
3 10742
-3 10741
-0734 90
0 5 0 0 00
0 7 3 4 00
0500 00

4
4
4
4
4
4
4
4
4
4

00000
15563
00000
00000
15545
15545
00000
00000
OOOCO
00000

7691
SXA
7692
SXD
7693
EVP2
POX
7694
TXL
7695
CLA
7696
PAX
7697
TXH
7698
TXH
7699
TXH
7700
TXH
7701
TXH
7702
TXH
7703
TXH
7704
TXH
7705
TXH
7706
TXL
ST0
7707
7708
STQ
7709
CLA
7710
LOQ
7711
TSX
7712
XCA
7713
CLA
7714
TSX
7715
XC A
7716
LXD
7717
CLA
7718
PAX
7719
PXD
LET
7720
7721
TR A
7722
LXO
7723
TRA
7724 a
7725
EVTS(T STL
7726
TRA
7727 +
7729
7730
7731
7732
7733
7734
7735
7736
7737
7738
7739
7740
7741
7742
7743
7744

--

--

-- - - -

BIRTHDAY A S S E M B ~ Y

*
*

EVTRK.0
EVTRKVO
94
EVP25,4,0
14
94
*+2,4, $TRACE
EVTRT,49 $TRACE-1
*+2 949 BSUBR
EVP27,4,$SU@R-1
*+2 949 SFSUBR
EVP22r4, $FSUBR-1
*+2 v4,fEXPR
EVP2394t5EXPR-1
EVP2 14,fFEXPR
EVP294,SFEXPR-1
EVD2
OARG3
SARG3
EVZRO
$CONS14

Z E R O THE
ADDRESSZERO DECREMENT
COAR IE 1
NULL1 J )
- -CAR(J1

-LC510100

--

----- --

C 5 1-0 2--00 -- - -L ---

- - - -- ---- -- -

LC510300
----L C510
- 4-00
--

---

--

=TRACE

----------

-----

- ---

LC510500

- -- - --

--

OF I F A SUER

0
CONS(AvO1

LC510700
LC510800
LC510900
LC511000
LC511100
LC511200
LC511300
LC511400
LC511500
L a 11 6 0 0
LC511700

LISTICDR(E),A)

LCS~%%OO
LC512100

=FSUBR
=EXPR
/= FEXPR
CDR( J )
A

a
5

----

EVTCE
SCONS14
EV02.4
14
14
14
EVTRK
EVTXP
EVSlr4
BAPPLY

CDRI J 1

LC512400
LC512500
LC512600
LC512700

CADR ( J 1

--

TEST FOR TRACE M O ?_--.

-_.-

-- - -

.-

--

----

LC512800

A P P L Y ( C A O R ( J, A)) ~
, AL
) I S T ILC
C51
D
2 9K
00 ~ ? )
--.

EVTRK
EJPZ

S E T THE T R A C E SWITCHGO SEARCH MORE

-

CARIEI = -1
EVlN

*
EVPl

CLA
LXD
TRA

PDX
TXL
CLA
PAX
TXH
TXL
EVP13 POX
CLA
PAX
CLA

EVTE
EVSlt4
1.4
94
EVPLL14,O
94
94
EVP194vSAPVAL
EVPl,4, SAPVAL-1
t4
14
,4
94

-- -. - - -

GET THE NUMBER

RESTORE L I N K INDEX

----

- -

--

--

-----

LC505100
LC505200
LC505300
LC505400
LC505700

= 0
CAR( J )
= APVAL

CCR( J I

----

CADR IJ 1
--

- - --

p
p

- -

---

-.--

---

-- --

- - _-

LC505800
LC505900
LC506000 ~ ~ s 0 6 1 0 0
LC
--50 6 2 00 --

-- -

--

BONNIE-S

PAGE 157

RIRTHDAY ASSEMOLY

----

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

15557

0 7 3 4 00 4 0 0 0 0 0
no 4 noon0
15561 -0534 00 4 03372
-.
n n q n nn
nnnnl

15564
5
15566

-0 7 5 4

7745
7746
7747
7748

77h9 r

00 0 16173
0500 00 0 16121
0677 no o 15600
0 4 0 2 00 0 00442

15570 -0634

0 0 2 16125

PAX
PU
LXD
TKA

. .-

7750
7751
7757
7753

.4
.4
EVSl.4
1.4

CAADR ( J

..

..

LC506300
- - ~ O A 4 1 ) . 0
LC506500

LcliaaaaO

-- D

F V P l l STQ FVTA
CLA EVTE

t ~ FVI
n

--uxwLQ&
E

SUB EVQCl

7755

LC506900
LC507100
_UQZZOL-LC507300

SXD EVD112

1
5
5
7
1
15572 -3 00000
1 5 5 7 1 0500 o n
15574 0 7 3 4 0 0
15575 -0734 00
15576 0 5 0 0 00
15577 0 7 3 4 00
15600 3 0 0 0 0 0
1 5 6 0 1 -3 0 0 0 0 0
15602 -0734 0 0
15603 -0754 0 0
15604 -0534 0 0
15605 -0534 00
15606 0 0 2 0 00

4
4
2
4
2
7
2
2
4
4
2
4
4

15607
onnnn
00000
00000
00000
00000
15572
15577
00000
00000
16125
03377
00001

15607 -0634 0 0 4 0 1 5 6 2
156LO 0 5 0 0 00 0 l.6121
1 5 6 1 1 0 0 7 4 0 0 4 01563
15612 5 4 7 1 6 0 6 0 1 0 5 4
15613
15614
15615
15616
15617
15620
15621
15622
15623
15624
15625
15626
15627
15630
15631
15632
15633

-0734 00
C500 00
0734 00
0500 00
0601 00
0 5 0 0 00
0 6 0 1 00
0 0 7 4 00
-3 0 3 3 2 0
-0600 00
052C 00
0 0 2 0 00
05CO 00
0 0 7 4 00
0 0 7 4 00
- 0 5 3 4 00
0 0 2 0 00

4
4
4
4
0
0
0
4
0
0
0
0
0
4
4
4
4

00000
00000
00000
00000
16124
03372
03315
02312
02377
03316
03375
16014
03411
16124
02326
03315
00001

15634 -0734 00 4 00000

15635 0500 00 4 0 0 0 0 0
15636 0 7 3 4 00 4 00000

7757
7758
7753
7760
7761
7762
7763
7764
7765
7766
7767
7768
7769
7770
7771
7772
7773
7774
7775
7776
7777
7778
7779
7780
7781
7782
7783
7784
7785
7786
7787
7788
7783
7790
7791
7792
7793
7794
7795
7796
7797
7738

EVLL

TXL EVP12*410
.4
PAX 92
PDX 94
CLA 12
PAX 12
TXH EVL112,**
TXI F V L 1 * 2 . * *
PDX 14
PXD 94
LXD E V O l r 2
LXD E ' J S l r 4
TRA 1 1 4

NULL( J )

LC507500

CI A

EVIl
FV17

I . 5 n T b n n CAR1
. . . J. l
CDRI J 1

--78Dk

*
*

FVP77 POX
CLA
PAX
CLA
ST0
CLA
S TO
TSX
TXL
STQ
ZET
TR A
CLA
TSX
TSX
LXD
TR A

CAAR ( J 1
CAAR(J) = E

14
r4
14
EVTl

LC508900

. "--~>"--

LC509100

LC509300
UNB P L _ N ~ R I B L ~ L N E N T ~ I . O _ N _ E L ) . ~ . ~ .Lz.
E Y.. A
F SllBR_---..-.

....

.----.-

- ...........................

L.o.ma,Q

-....

LC516400
LC.5165QQ
LC516600

-- .

A T O M ANC

.- ......

--..

..

.___

.....

-_&5-1,6_LO

_.

---

I R FOR
~
SAVING-SALIST

----

---

--

.....

TEST kHETx!KLTo TRACT

YES* TRACE FSUBR
GET BACK ARGUMENTS

...........

.
-.

----

.
.
.
.
.
.

-.-

-.

EVP23 THE EXPR BRANCH FGR EVAL

0 4
0 14
0 14

-"

-----------.-.-----.--

CADR ( J 1
CWADRt J
EVSl
CSV
$SAVE,4
6ENCZ1, $ALIST+2
BALIST
EVTRK
EVTFS
EVTDE
EVT114
UNS AVE 4
CSV14
lr4

--_-.-.-.--YL5?

EVP23 PDX
C LA
PAX

LC508100
UOR7OO
LC508300
.LC5-0860D
LC508700

CDAR(J)

CDR( J )

.4

-;

LC507900

EVPl2 SXD $ERROR14

CLA EVTE
TSX SERROR+1,4
BC I
lt*A
8*

'

LC507700

K E S T OE.X!XL!P&RTyY-L_i~LLLLLL

....

-- ............

-- - . -.--

.-

-- --

--

--.

..----.

--

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

GET THE EXPR

...

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

..

..........

.........-

-.--

--

PAGE 158

BONNIE-S

15637 - 0 6 3 4 0 0 4 1 6 1 2 2
15640 -0534 00 4 02317
1 5 6 4 1 1 77773 4 1 5 6 6 5
1 5 6 4 2 0 5 0 0 00
15643 0 6 2 2 00
15644 0 4 0 2 0 0
15645 C622 0 0
15546 - 0 6 3 4 00
1 5 6 4 7 -0600 00
15650 -0534 00
1 5 6 5 1 -3 00000
15652 0500 00
15653 -0734 00
15654 0734 00
15655 0 5 0 0 0 0
15656 0 7 3 4 0 0
15657 3 0 0 0 0 0
15660 -3 0 0 0 0 0
1 5 6 6 1 -0534 0 0
15662 0 6 2 2 9 0
15663 -0534 0 0
15664 1 7 7 7 7 3
15665 0 5 2 2 0 0
15666 - 0 6 3 4 00
1 5 6 6 7 0 5 0 0 00
15670 Oh01 00
1 5 6 7 1 C500 0 0
15672 0 6 0 1 00
15673 0 5 0 0 00
15574 Oh01 00
15675 0 5 0 0 0 0
15676 0 6 0 1 00
15677 C500 00
15700 0 6 0 1 0 0
15701 0500 00
15702 0 6 2 2 00
15703 - 0 6 0 0 0 0
15704 0 5 0 0 0 0
15705 0 5 6 0 0 0
15706 0 0 7 4 00
15707 0 6 0 1 00
15710 0 5 0 0 00
1 5 7 1 1 0 6 0 1 00
15712 0 5 0 0 0 0
1 5 7 1 3 - 0 5 3 4 00
15714 0 5 6 0 00
15715 -06CO 0 0
15716 0 5 6 0 00
15717 - 0 6 0 0 00
15720 0 5 6 0 00
1 5 7 2 1 -CbOO 0 0
15722 0 5 6 0 0 0
15723 -0600 00

0
0
0
0
2
0
4
4
4
4
2
2
2
2
2
2
0
4
4
0
4
0
4
0
4
0
4
0
4
0
4
0
0
0
0
0
4
0
0
0
0
4
4
0
4
0
4
0
4
0

16122
15657
00442
15660
16124
16125
16125
16007
00000
00000
00000
00000
00000
15651
15651
16124
16122
02317
15665
02414
02317
03372
77773
03373
77774
03374
77775
03375
77776
16127
77777
16122
03373
03374
03411
15763
04214
16124
03374
03321
03373
02317
77773
03372
77774
03373
77775
03374
77776
03375

BIRTHDAY ASSEMBLY

--

---- -

--7799
7800
7801
7802
7803
EVP25
7804
7005
7806
7807
7608
7809
7 8 1 0 EVLZ
7811
7812
7813
7814
7815
7 8 1 6 EV13
7817 EVI4
7818
7819
7 8 2 0 EV27
7821
7 8 2 2 EVP28
7823
7824
7825
7826
7827
7828
7829
7830
7831
7832
7833
783+
7835
7a36
7837
7838
7839
7840
7841
7842
7843
7844
7845
7846
7847
7848
7849
7850
7851
7852

EVTAE14
SCPPI 94
EVP28r4,-5

SXD
LXD
TX I
CLA
ST0
SUB
STD
SXI)
STO
LXD
TXL
CLA
PDX
PAX
CLA
PAX
TXH
TXL
L XD
STD
LXD
TXI
XEC
SXD
CLA
ST0
CLA
ST0
CLA
ST0
CLA
ST0
CLA
ST0
CC A
ST0
STQ
CLA
L DO
TSX
ST0
CLA
STO
CLA
LXD
LDQ
S TO
LDQ
STQ
LDQ
S TQ
LDQ
STQ

EVTAE
EVI3
EVQOl
EV14
EVTI.92
EVDl
EVD1.4
EVP26,4,0
14
$4

$2
12
,2
EVL2,2,*+
EVL2,ZI*+
EVTlt2
EVTAE
SCPPI , 4
*+1,4*-5
ENDPDL
bCPP! ,4
EVS1
-5.4
EVSE
-494
EVSA
-394
E JTRK
- 2 ~ 4
E JCY
-1.4
EVTAE
EVSE
EVSA
EVTDE
ELP 1
MAPLIS94
EVTl
EVSA
SARG3
EVSE
6CPPI 1 4
-5.4
EVS 1
-414
EVS E
-3,4
EVSA
-2.4
EVTRK

SAVE I N TEMPORARY STORAGE

PUSH DOWN COUNTER
SAVE 5 ITEMS

--

A
-

--

--"

A
NULL ( J

-----

CCRI J )
CPRI J )
CAAR ( J
/= CAR(E)

LC517200
- LC517300
-LC517400
LC517500
--LC517600
LC517700
LC517800
LC 5 1 7 9 0 0
LC518000
LC518100
LC518200
LC518300
LC518400
LC518500
LC518600
LC518700

--

--

--

--

---

--

- --

--

--

*-

--

s
5

SAVE FUNCTION

--

SAVE TOTAL OF 5 ITEMS

TEST FOR OUT OF PUSH UOWN L I S T

LC519400
LC519900

---

--

LC519500

--

-LC519700

--

- -- -- -- -

LC519600

----

-LC519800

--

--

- --

LC520000

GET THE FUNCTION

A
CDR(E)
FUNCTICNAL ARGUMENT
I*IAFILIST(L~EVAL(~(L);A)~

-- -

START OPEN UNSAVE

6100
LC520500
LC520600
- - -LC526500
-LC526600
LC520800
-LC520900
LC521000
LC521 1 0 0
LC521200

- - - --

--

--- --

LC521400
LC521300
LC521600- - -- LC521500

--

LC521800

--

<

CARIEI
TXH
TXL

--- -

--

"--

---

--

- --

PAGE 1 5 9
15724
15775
15726
15777
15730
15771
15732

BONNIE-S
1 00005 4 15725
4 n7317
C560 00 0 1 6 1 2 4
0 5 2 0 0 n 0 fl3775
0020 00 0 15733
0534 on 4 03377
0020 00 0 14663

-n ~ 3 4n n
-

15733 -0534 0 0 4
15774 3 00000 4
15735 0534 00 4
15736 3 00000 4
15737 -0534 00 4
1 5 7 4 0 0 5 0 0 00 4
15741 0601 00 0
15747 0500 00 0
15743 0 6 0 1 00 0

03375
16031
03375
15731
03375
00000
16124
03377
03315

BIRTHDAY ASSEMBLY

7853
7854
7855
7856
7857
7858 FVAPG
7859
7860 +
7861 +
7863
7864
7 8 6 5 EVDCO
7866
7867
7868
7869
7870
7871
7872
7873

TXI

*+1,4,5
zcpp1.4
LDQ
EVT 1
LET
FVTRK
TR A
EVDCU
~ x n
~vs1.4
TRA SAPPLY

xn

LC522100

7903
7904
7905

-- -APPLYICADAR(J)~EVLISICDRIE)~A),A),A)

--.--

----- - -

LC522300
-a

THE POINTER I-0 THE TXL INSTRUCTION

T OFLUIBK.
THF ADDRESS C1F
EVTRK I S THE TRACE SWITCH.

--LXD
TXl
LXA
TXH
LXD
CLA
ST0
CI A
ST0

LOOK FOR SUBR POINTER

EVLIS 5 x 0
AXT
SXA

EVSlr4
E V L I SL, 4
EVSlp4

A,

-- . .----.
- --

--- -

--

--

POST CURRENT A L I S T
ARGUMENT L I S T TO AC
SMEAR I T OUT
EXECUTE SUBR
RESTORE A L I S T AND I X

'

___---__-_____

READY TO EXECUTE
GFT RFTURN INDEX AND ATOM NAME
AND SAVE THEM ALONG WITH SALIST

--

--- -- ----

- -

-- --- -

- - -

- - - --

--

- - .-- -

--

AND RETURN

-----

SUBR BRANCH

POINTER TO TXL WORD

TO SAVE POSITION
EVALUATE ARGUMENTS

----

--

--

- --

LC528100
L & 5 2 8 2 & !
LC528300

C A R (J )
GET CURRENT A L I S T
RESTORE L I N K I R

--.

--------

LC527900
SAVE L I N K I R
J

____.~
-_c~
-z8~w

-.

--.--.QQQQQQQQ

---

-- - - - --- - --

- -

LC528700

--SAVE L I N K I R
ATOM E V L I S
FOR BACKTRACE

9
I

THFRF I S N T ANY. SO GO AND TRACF FXPR

SEE I F THE SUER I S TRACED
YES I T I s - Y l W r T
GET THE TXL SUBR WORD

- --

1 5 7 7 4 - 0 6 3 4 00 4 0 3 3 7 2
1 5 7 7 5 0 7 7 4 00 4 1 0 1 6 7
15776 0634 00 4 03372

-.'

TFEZI RAC S W I T L
CECOCE EVTRK

I F C A R E I S A SLBR,

EVTRK 1 4
FVTXP.4.0
EVTRK.4
FVAPG.4.0
EVTRKv4
0.4
EVT 1
FVSl
CSV
$
BSAV ~4
1 5 7 4 5 -3 0 3 3 2 0 0 0 2 3 7 7
7875
TXL
$ENDZ,,$ALIST+2
15746 0500 00 0 0 3 3 2 1
7876
CI A
SARG3
15747 0 6 0 1 00 0 03316
7877
ST0
SALIST
15750 0131 00 0 00000
7878
XCA
15751 0074 00 4 10072
7879
TSX
$SPREAD* 4
15752 0 0 7 4 0 0 4 1 6 1 2 4
EVTlr4
7880
TSX
15753 0074 0 0 4 02326
7881
TSX
UNSAVE. 4
15754 4 5 3 4 00 4 03315
7882
LXD
CSV. 4
15755 0020 00 4 00001
7883
TRA
1.4
7884 +
15756 -0734 00 4 00000
7 8 8 5 Eq/P%7 PCX
014
1 5 7 5 7 C500 0 0 4 0 0 0 0 0
7886
CLA
0 14
15760 0734 00 4 00000
78C7
PAX
0.4
15761 -0634 09 4 03375
7888
SXD
iZVTRK.4
15762 0 0 2 0 00 0 1 5 6 6 3
7889
TRA
EV27
7890
15763 -3 00000 0 15764
7 8 9 1 E L P l TXL + + l r , O
ELT1.4
1 5 7 6 4 0 6 3 4 00 4 1 5 7 7 2
7892
SXA
1 5 7 6 5 -0734 0 0 4 0 0 0 0 0
7893
POX t 4
15766 0500 00 4 00000
7894
CLA .4
15767 0734 00 4 00000
7895
"AX , 4
15770 - 0 7 5 4 0 0 4 oooco
7896
PXD ,4
15771 0560 00 0 03374
7897
LOB
EVSA
ELTl
AXT
+*,4
1 5 7 7 2 0 7 7 4 00 4 0 0 0 0 0
7898
15773 0020 00 0 15454
7899
TRA SEVAL
7900 *
7901 +
EVL I S

LL15220DL----.-.-

------.-- .- .--

--

- -.---

--

PAGE 1 6 0

BONNIE-S

16000 -3 03376
16001 -0600 00
16002
0560 00
16003 0 0 7 4 00
1 6 0 0 4 0 0 7 4 00
16005 - 0 5 3 4 0 0
1 6 0 0 6 0 0 2 0 00

0
0
0
4
4
4
4

02375
03374
15763
04214
02326
03372
00001

1 6 0 0 7 - 0 6 3 4 00 4 0 1 5 6 2
16010 -0534 O i l 2 16124
16011 0500 00 0 16121
16012 0074 00 4 01563
16013 542160601154
1 6 0 1 4 0 7 3 4 00 4 0 0 0 0 0
16015 -0754 C O 4 00000
16016 0560 00 0 03411
16017 0074 00 4 16050
16020 0560 00 0 03316
1 6 0 2 1 05GO 0 0 0 0 3 4 1 1
1 6 0 2 2 0 0 7 4 00 4 1 6 1 2 4
16023 0074 00 4 02326
1 6 0 2 4 0 1 3 1 GO 0 0 0 0 0 0
1 6 0 2 5 C534 0 0 4 0 3 3 1 5
16020 -0754 00 4 00000
16027 -0534 00 4 03315
16030 0020 00 0 16104
16031
16032
16033
16034
16035
16036
16037
16040
16041
16042
16043
16044
16045
16046
16047

0 6 2 2 00
0 5 3 4 00
- 0 7 5 4 00
0 0 7 4 00
0074 00
-3 0 3 3 7 4
0 5 6 0 00
C500 00
0074 GO
0 0 7 4 00
0 1 3 1 00
0534 00
- 0 7 5 4 00
-0534 00
0020 00

16050 0634
16051 0634
16052 0 6 0 1
16053 - 0 6 0 0
16054 0074
16055 0 7 7 4
16056 0500
16057 0074

00
00
CO
00
00
CO
00
00

0
4
4
4
4
0
0
0
4
4
0
4
4
4
0

4
2
0
0
4
2
2
4

03411
03372
00000
16050
02312
02401
16124
03411
14663
02326
00000
03372
00000
03372
16104

16074
16073
16076
16077
05214
00003
16103
05110

7907
7908
7909
7910
7911
7912
7913
7914
7915
7916
7917
7918
7919
7920
7921
7922
7923
7924
7925
7926
7927
7928
7929
7930
7931
7932
7933
7934
7935
7936
7937
7938
7939
7940
7941
7942
7943
7944
7945
7946
7947
7948
7949
7950
7951
7952
7953
7954
7955
7956
7957
7958
7959
7960

BIRTHDAY ASSEMBLY
TXL
STQ
LDQ
TSX
TSX
LXD
TRA

SENC3rrEVSA+2
EVSA
ELPl
MAPLISr4
UNSAVEr4
EVSlr4
lr4

EVP26 SXD BERRORr4

LXD
EVT1-2
CLA EVTE
TSX SERROR+l,4
BC I
1,*A
9+

EVTFS

*
EVTXP

PAX
PXD
LOQ
TSX
LDQ
CLA
TSX
TSX
XCA
LX A
PXD
LXD
TRA

0 14
094
EVTDE
ARGOF* 4
SAL IST
EVTCE
EVT114
UNSAVE I 4
CSVr4
Or4
CSV 1 4
VALOF

STD
LXA
PX D
TSX
TSX
TXL
LDQ
CL A
TSX
TSX
XCA
LX A
PXO
L XD
TR A

EVTDf
EVSl-4
or 4
ARGGF 9 4
$SAVE-4
SENE19 t E V S l + 2
EVT 1
EVTCE
SAPPLY $ 4
UNSAVEr4
EVSlr4
094
EVSlrr
VALGF

ARGOF

PRINTS 4RGUMENTS OF

---

--

--- --

--

--

------------...-----

LC522500
LC522600
LC522700
LC522800

FUNCTION O B J E C T H A S N O

<

'

DEFINITION?VAL

ATOM NAME
TO PRINT POSITION
PRINT ARGUMENT MESSAGE
RESTORE A L I S T AFTER ARGOF
AND ARGUMENT L I S T
GO TPE FSUBR
RESTORE THE I R
VALUE TO MQ
GET ATOM NAME FOR VALUE MESSAGE
TO AC
AND RETURN I R 4
PRINT VALUE HESSAGE

SAVE LAMBDA EXPRESSION

GET ATOMIC FUNCTION ------_
TO PRINT POSITION
PRINT ARGUMENT MESSAGE
SAVE THERETURN I X

----

-- ---

--

----

KESTORE THE L I S T OF ARGUMENTS

AND THE LAMBGA-?XPRESSX?L
APPLY THE FUNCTION TO I T S ARGS

-"

--"

PUT VALUE I N MQ
NAME OF ROUTYE TPA_C_EO-_PUT I N A C
LINK IR
--PRINT VALUE OF STATEMENT

- ----

---

NAME FOLLOWED B Y

-_

---- _

-.

--

--

THETIST
GF ARGUMEN

AHGCF SXA
SXA
ST0
STQ
TSX
AX T
CLA
TSX

PRX 1 4
PRY $ 2
AGA
AGQ
TERPRI.4
3r2
AGM+3r 2
BPRIN294

SAVE INDEX REG1 STERS

-

SAVE ATOM NAME

SAVE L I S T OF ARGUMENTS
PRINT A BLANK L I N E
PRINT2 OUT 3 WORDS

-- -

-- -<.-

-- -

- ---

-------_______
-

-_

- --

- -.

..
-

- -

.-

.-- --

PAGE 1 6 1

HONNIE-S

BIRTHDAY ASSEMeLY

- -

16060

2 00001 2 16056

7961

TIX

*-292,1

LOOP

--------

1 6 0 6 2 0 0 7 4 00 4
16063 0534 00 2
1 6 0 6 4 -3 0 0 0 0 0 2
1 6 0 6 5 0 5 0 0 QQ-7
16066 - 0 7 3 4 0 0 2
16067 0734 00 4
1 6 0 7 0 - 0 7 5 4 00 4
16071 0074 00 4
16072 0020 00 0
16073 0774 00 2
16074 0774 00 4
1 6 0 7 5 0 0 2 0 00 4

04604
16077
16073
00000
00000
00000
00000
04604
16064
00000
00000
00001

16076 0 00000 0 00000

16077 0 00000 0 00000
16100 215177644475
16101 -056362607777
16107 062660777777
16103 652143642560

16104 0634 00 4 16117

1 6 1 0 5 0 6 0 1 00 0 1 6 0 7 6
1 6 1 0 6 - 0 6 0 0 00 0 1 6 0 7 7
16107 0074 00 4 05214
1 6 1 1 0 0 5 0 0 '30 0 1 6 1 0 3
16111 0074 00 4 05110
16112 0 5 0 0 0 0 0 1 6 1 0 7
16113 0 0 7 4 0 0 4 0 5 1 1 0
1 6 1 1 4 0 5 0 0 00 0 1 6 0 7 6
16115 0074 CO 4 04604
1 6 1 1 6 0 5 0 0 00 0 1 6 0 7 7
1 6 1 1 7 0 7 7 4 00 4 0 0 0 0 0
1 6 1 2 0 0 0 2 0 00 0 0 4 6 0 4
16121 0 00000 C 00000
16122 0 00000 0 00000
16123 0 00000 0 00000
16124 0 00000 0 00000
1 6 1 2 5 0 OOCOO 0 0 0 0 0 0
16126 0 00000 0 00000
1 6 1 2 7 -3 0 3 3 7 7 0 0 2 3 7 3
00370
00442

16130 -0634 00 4 03444

16131 0074 00 4 02312

'

7963
TSX
7964
LXD
7965
PLL
TXL
Cl A
7966
7967
PDX
7968
PAX
7969
PXD
7970
TS X
7971
TRA
AX1
7977
PRY
7973
PRX
AXT
7974
T RA
7975
7 9 7 6 AGA
7 9 7 7 AGQ
BCI
7978
AGM
7979
OCT
7 9 8 0 AGO
OCT
7 9 8 1 VALV
BCI
7987 *
7983 +
VALOF
7984 *
7985
7986
VAIOF SXA
7987
S TO
7988
STQ
7989
TSX
7990
CL A
7991
TSX
CL A
7992
7993
TSX
7994
CLA
7995
TSX
7996
CL A
7 3 9 7 VAX
AXT
7998
TRP
7999
EVTE
8000
EVTAE
8 0 0 1 EVTA
8002
EVTl
8003
EVOL
8004
EVLNS
8005
EVCM TXL
8006
EVZRO SYN
@ 0 0 7 EVCOl SYN
8 0 0 8 * INTER
8009
8010 *
8011 *
8012 R
HED
8013
INTER SXD
8014
TSX

SPRINF94
AG0.2
PI?Y,Z~O
0.2
092
0.4
0 94
$PRINT94
PLL
++. 7
**r4
1.4

PRINT OUT THE L I N E

S T A R T T H E U S E X I T I F END OF L I S T
NFXT ITEM
--CDR OF L I S T
CAR

-----

--

EX I T
TEMPORARY S
B
I-

--

p
p
p
p
-

--

ARGUMENTS
0F

--

--

PRINTS VALUE OF NAME FOLLOWED BY ONE L I S T

SHARES STORAGE k I T H ARGOF ROUTINE
VAX 4
AGA
AGQ
TERPR194
VALV
SPRIN294
AGO
$PRIN2,4
AGA
SPRINT94
AGQ
** r 4
SPRINT

---

SAVE L I N K I R
ATOM NAME
VALUE OF EXPRESSION
PRINT A BLANK L I N E
vJORDVALUE
PUT I N OUTPUT L I N E
WORD OF

.- .

.
--

--

___ __

------

----

PRINT OLT THE L I N E

VALUE
RESTORE L I N K I R
PRINT OUT VALUE AND RETURN
E
CAR( E1
---A

- . -- --

__

-- -

------

A TOM
--

.--

-"

--- - -- - --_-

--

--

- --

- - - -

--

---

.--

---

TEST CELL FOR NUMBERS

SENE49 9 EVTRK+2
$ZERO
$QDl
MULTIPLE L I S P STATEMENT PRObRAM FEATURE INTERPRETER
RECODEC TO MAKE THE INTERPRETER AND COMPILER PROGRAM
FEATURE UNDER STAND THE SAKE LANGUJ-G_E.
INTRXg4
SSAVE 4

GET NEXT ITEM

RFSTORF INOFX REGISTFRS

1.ARGUME
456362607777
467660777777
1 9 VALUE

r:

- - .
_ -- -SAVE L I N K I R
SAVE PROTECTED TEMPORARY STORAGE

LC523600
LC-523700-- - .- ---- LC523900
5 240 00 - --- --- - --- --- L C
LC524100

--------------.------

110
- --6----

6120
1.5R0020
1.5R0030
'
0-1.5R0050
_ _.-L C_5ZZ1_1_700
1.5R0060
-______
1.5R0070__
_

--

_-

--PAGE 162

16132 -3 03452
16133 0634 00
16134 -0600 00
16135 0600 00
16136 -0734 00
16137 0500 00
16140 0622 00
16141 0622 00
16142 0734 00
16143 -0754 00
16144 0560 00
16145 0074 00
16146 0560 00
16147 0074 00
16150 0 6 0 1 00
16151 0560 00
16152 -0534 00
16153 - 3 00000
16154 0500 00
16155 0622 00
16156 0734 00
16157 0500 00
16160 0734 00
16161 -3 77776
16162 -0754 00
16163 0074 00
16164 0 1 3 1 00
16165 0020 00
16166 -0620 00
16167 -0534 00
16170 -3 00000
16171 0500 00
16172 0622 00
16173 0734 00
16174 0500 00
16175 0734 00
16176 3 77776
16177 -3 10457
16200 3 10460
16201 -0734 00
16202 -3 00000
16203 0500 00
16204 -0734 00
16205 0734 00
16206 0500 00
16207 -0734 00
16210 0634 00
16211 0734 00
16212 -0754 00
16213 0560 00
16214 GO74 00
16215 0100 00
16216 0534 00
16217 G500 00

BONNIE-S

0
2
0
0
4
4
0
0
4
4
0
4
0
4
0
0
4
4
4
0
2
2
2
2
4
4
0
0
0
4
4
4
0
4
4
2
2
2
2
2
2
2
2
4
4
4
4
4
4
0
4
0
4
4

02371
03446
03447
03450
00000
00000
03445
16271
00000
00000
16242
04214
03447
07675
03447
00370
16271
16166
00000
16271
00000
00000
00000
16152
00000
03730
00000
16152
03446
03445
16262
00000
03445
00000
00000
00000
16167
16221
16221
00000
16167
00000
OOOCO

00000
00000
00000
03445
00000
00000
03447
15454
16202
03445
00000

8015
8016
8017
8018
8019
8020
8021
8022
8023
8024
8025
8026
8027
8028
8029
8030
8031
8032
8033
8034
8035
8036
8037
8038
8039
8040
8041
8042
8043
8044
8045
8046
8047
8048
8049
8050
6051
8052
8053
8054
8055
8056
8057
8058
8059
8060
8061
b062
8063
8064
8065
8066
8067
8068

--

B I R T H D A Y ASSEMBLY

INTGM

INTAA
INTGA

INTEB

TXL
SXA
STQ
STZ
POX
CLA
STD
STD
PAX
PXD
LDQ
T SX
LDQ
TSX
ST0
L DO
LXD
TXL
CLA
STD
PAX
CL A
PAX
TXL
P XD
TSX
XC A
TRA
SLQ
LXD
T XL
CLA
STD
PAX
CLA
PAX
T XH
TXL
T XH
PDX
TXL
CLA
PDX
PAX
CLA
PDX
SXA
PAX
PXD
LDQ
TSX
TZE
LXA
CLA

SENCSv,INTGS+Z
INTSLgZ
INTPL
INTGS
014
0.4
INTB
INTE
014
014
INTFB
MAPLIS, 4
INTPL
SNCONC.4
INTPL
SZERO
INTE.4
f NTAAs4.0
014
INTE
012
012
092
INTGM.2,-2
0 14
$CONS 9 4
INTGM
INTGL
INT8,4,0
INTRNv4.0
0.4
INTB
0.4
0.4
012
INTGA.2,-2
I N T E V . 2 9 SCOND-1
INTEV,2r$CCNC
012
INTGAvZtO
0.2
012
0 4
0 14
0.4
INTB.4
0.4
014
INTPL
BEVAL.4
INTEB
INTB94
0 14

SAVE 5 I T E M S
SAVE
INDEX REGISTER 2
SAVE P A I R L I S T
ZERO THE GO SWITCH
P O I N T E R TO PROGRAM
F I R S T WORD
P O I N T E R TO B E G I N N I N G OF PROGRAM
DITTO
POINTER T O LIST OF PROGRAM
VARIBL
TO DECREMENT
F U N C T I O N A L ARGUMENT
( M A P L I S T PV (LAMBDA ( L 1 (CONS ( C A I
NIL)))
P I C K UP P A I R L I S T
A T T A C H PROGARM V A R I B L E S TO P A I R L
PUT I N P A I R L I S D T R E G I S T E R
ZERO THE MQ
SEARCH PROGRAM FOR GO TO P O I N T S
GO I F END OF PROGRAM
NEXT WORD
S A V E CDR
CAR
MAKE ATOM T E S T

GO I F NOT AN ATOM
I S AN ATOM, PUT P O I N T E R TO CURREN'
PUT ON GO L O S T
ANSWER TO MQ
NEXT ITEM
A L L DONE. STORE GO L I S T
N E X T PROGRAM L O C A T I O N
RETURN W I T H N I L I F R A N OUT OF S T A l
NEXT WORD
-SAVE CDR
CAR
F I R S T WORD
CHECK FOR ATOM OR SCOND
GO T O NEXT STEP I F ATOM
GO T O E V A L I F NOT ECD
I S SCOND DO AN-EJCOND
GO TO N E X T STEP I F COND U N S A T I S F I E
F I R S T COND STATEMENT
C OR
F I R S T SUB CON0

P O I N T E R TO THEN PART
SAVE I N PROTECTED STORAGE
P O I N T E R r0 I F PART
PUT I N DECREMENT
PAIR L I S T
EVALUATE I T
GO I F I F PART I S F A L S E
GET THEN PART

---

--

--

PAGE 163

16220
16771
16222

BONNIE-S

0734
-0754

00
00
0560 00
16223 0074 00
16224 -0520 00
16225 0020 00
16226 0534 00
16777 3 77776
16230 -0754 00

PAX
I N T F V PXO
LDO
TSX
NZT
TRA
LXA
T XH
PXD
I DO
STQ
I DQ
TSX

00000
00000
03447
154%
03450
16167
03450
16767
00000
53
16232 -0600 00 0 03321
16733 0560 00 0 03446
16234 0074 00 4 10042

8069
8070
8071
8077
8073
8074
8075
8076
8077
8078
8079
8080
8081

16236
16237
16240
16241

8083
8084
8085
8086
8087
e088 I N T F R
8089
8090
8091
8092
8093
8094
8095 I N T F X
8096
8097
8098 I N T F C
8099
81 00
8101
8102
8103
8104
8105 *
5106 I N T R N
8107
8108
8109
8110
8111
3112
8113 +
8114 I N T E
8115 PRGVAR

0500
0622
0600
0020

4
4
0
4
0
0
4
4
4

B I R T H D A Y ASSEMBLY

00
00
00
00

4
0
0
0

00000
03445
03450
16167

16242 -3 00001
16243 0634 00
16244 -0734 00
16245 0500 00
16246 0734 00
16247 -0754 00
16750 C560 00
16251 0774 00
16252 0020 00

0
4
4
4
4
4
0
4
0

16743
16251
00000
00000
00000
00000
00370
00000
03730

16253 -3 OOCOl 0 16254

16254 -0634 00 4 01562
16255 0534 00 4 03450
16256 -0754 00 4 OOOGO
16257 0534 00 2 03446
162CO 0074 00 4 01563
16261 542160600654
16262 -0534 00 4 03450
16263 -0754 00 4 00000
16264 0600 00 0 03450
16265 0534 00 2 03446
16266 0074 00 4 02326
16267 -0534 00 4 03444
16270 0020 00 4 00001
16271

0 00000 0 00000
03447

16272 -0501 00 0 00457

16273 0601 00 0 03450

094

TXL
SXA
POX
CLA
PAX
PXD
L.DO
AXT
T RA S

++I,. 1

LXD
PXD
STZ
LXA
TS X
LXD
TRA

SYN

8118
RETURN
8119
8120 *
8121 RETURN ORA
8122

INTPL
bFVAL.4
INTGS
INTGA
INTGS94
TNTRN.4.
2
094
INTFC
6ARG3
I NTGL
SASSOC*4

CLA
ST0
STZ
TRA

TXL
SXD
L XA
PXG
LXA
TSX
BC I

ST0

P P I N T E R TPO THEN PART

L I S T JD R F F V A l U g T F O
GET P A I R L I S T
EVA1 U A T F L - _ - - SEE I F GO S W I T C H S E T
GO Ta N F X T STATEME-NL
WAS SET, SEE I F GO OR RETURN
TRA I F R F W
P O I N T E R TO I T E M
GFT S A S Q L I l m PUT I N SARG3
GFT GO U S T
SEARCH FOR ATOM
M POINT
T A K E CDR
S ET P R O G R A M L - - ZERO T H E GO S W I T C H
6 0 T O T H A T A X E M E U

09 4
0.4

I NTB
INTGS
INTGA

MAPI I S T F liwxuaA(LAMBDA ( 1 1 (CONS ( C A R L I N I L ) )

INTFX94

014
014
034
094
$7 FRO
**p4
C

--

-- -

--N

*+__CLL;b_--

bERRORv4
INTGS.4

0 14
INTGLp2
SERROR+lr4
lt*A
6+
INTGSr4

014
INTGS
INTGLIZ
UNSAVE, 4
INTRX34

-------

U N L A B E L E C & C l TO_POL&I-!RAQ.R
SAVE L I N K I R
P O I N T E R TO GO P O I N T U [ F
PUT I N DECREMENT
RESTORE I N D E X R E G I S T E R 2
GO TO ERROR
GO TO P O I N T NOT L A B E L E D
RETURN VALUE
PUT I N DECREMENT
ZERO THE GO S W I T C H RESTORE I N D E X R E G I S T E R 2
RESTORE PROTE TED STORAGE
RESTORE L I N K

194

TEMPOXARY STORAGE FOR I N T E R P R E T E R

TEMPORARY STORAGE
INT P L

--

--

S P E C I A L PROGRAM SETS RETURN SWITC&

I N PROGRAM I N T E R P R E T E R
SAMASK
INTGS

-.

- -- - .
-- - .-

S I G N A L T h A T I T I S A RETURN
SET UP GO__S?JITCH

- -.

- PAGE 1 6 4
16274
16275

16276
16277
16300
16301
16302
16303
16304
16305
16306
16307
16310
16311
16312
16313
16314
16315
16316
16317
16320

BONNIE-S
0500 00 0 00442
0020 00 4 00001

- 0 6 3 4 00
-0734 0 0
0500 00
0621 00
0 7 3 4 GO
0 5 0 0 00
0734 00
3 77776
0 5 3 4 00
-0754 00
0074 00
-3 03415
0074 00
0074 00
-0734 0 0
0634 00
0500 00
-0534 0 0
0020 00

4 03413

4
4
0
4
4
4
4
4
4
4
0
4
4
4
4
0
4
4

00000
00000
03450
00000
00000
00000
16316
03450
00000
02312
02401
15454
02326
00000
03450
00442
03413
00001

--

- -- --

---

B I R T H D A Y ASSEMBLY

8123
CLA
SQD 1
P I C K UP TRUTH VALUE
1.5R1220
8124
TRA
194
EX I T
1.5R1230
-...my8125 *
1 5R1240
8 1 2 6 * GO
S P E C I A L FORM FCR PROGRAM INTERPJETER,
G I V E S GO TO P O I N T
1-5R12SO
8127 *
1 5R1260
8 1 2 8 GOGOGO SXD
GOX ,4
SAVE L I N K I R
8129
PDX
0 4
P O I N T E R TO ARGUMENT L I S T
1.5R1280
094
8130
CLA
1 5 R l . 2 2 9 0 ----. ---------8131
STA
INTGS
PUT CAR I N GO S W I T C H
1.5R1300
8132
PAX
094
CAR TO I R
1.5R1310
8133
CLA
01 4
GET F I R S T WORD
1.5R1320
8134
PAX
014
SEE I F A T O M I C
1*5R1330
8135
TXH
GOT 14 9-2
E X I T TRUE I F A T I M I C
1.5R1340
8136
LXA
INTGSt4
GTHERWISE GET ARGUMENT
1.5R1350
8137
PXD
014
PUT INDECREMENT
1.5R1360
8138
TSX
$SAVE94
SAVE L I N K I R
1 5R1370
8139
TXL
SENDl., GOX+2
S A V E 1 ITEM
8140
TSX
SEVALv4
E V A L U A T E THE ARGUMENT
1 5R1390
8141
TSX
UNSAVE 1 4
RSTORE L I N K I R
1.5R1400
8142
PDX
014
VALUE
1.5R1420
8143
SX A
INTGSv4
P U I N GO S W I T C H
1.5R1430
8 1 4 4 GOT
CLA
SQDl
TRUTH VALUE
1.5R1440
8145
LXD
GOXp4
RESTORE L I N K I R
1l5 R 1 4 5 0
8146
TRA
194
EXIT
l05Rl460
8147 *
1.5R148O
DECK
L A P PART ONE
1
HEAD
C
T H I S I S THE C O M P I L E R AND ASMBLR
2
3 * L A P I S T H E ASSEMBLER. ONE ARb I S L I S T I N G .
I T I S L I S T OF INSTRUC4
T I O N S , YON-ATOMIC OR N I L . THE A T O M I C SYMBOLS ARE LDCcA1\TIO& SYMBOLS
-5
SECOND ARG I S START O F S Y M B I L T A B L E WHICH I S AN A - L I S T .
6 * THE F I R S T I T E M I S ORG AS FOLLOWS7 *
N I L = I N HPS
8 *
ATOM= AT S Y M B O L I C L O C A T I O N
-- - --9 *
NUM= A T T H I S NUMBER
10 *
(NAME T Y P E NUM) = I N BPS, AND P U T T X L ON PROP L I S T OF NAME
--11 *
W I T H F L A G T Y P E AND NUH 10 DEC. OF TXL.
1 2 * I N S T R U C T I C N FORMAT I S ( O P ACCR T A G D E C l
13
F i E L D FORMAT I S AS FOLLOWSTEMP SYMBOL
14 *
- .-- - - 15 +
NUMBER
SYM SUBR OR FSUBR
16 *
------ - -- - - --- ---- -17
( E NAME) FOR I M M E D I A T E AS I N T X L F I L T E R
(QUOTE NAME) FOR I T E M I h DEC OF WORD ON B T L S T
18
19 +
P O I N T E R TO COMMON WORD.MAKES ONE I F NONE ALREADY
20
SUM CF ANY OF ABOVE
-- --- -- -- - - - - --- 21
LAP I S I D E N T I T Y FUNCTION
L A P DOES NOT USE 1 x 1 . 1 x 2 ~ 4ARE SCARTCH
22
-23
ERRORS I N L A P AS FOLLOWS*L
l*U N A B L E TO EVALUATE O R I G I N
24 *
-.*.- * 25 *
*L
2*
OUT OF B P S DISCOVERED AFTER PASS I
26
*L
3 * U N D E F I N E D SYMBOL
--- - -- .-- -- 27 *
*L
4*
F I E L D WAS R E C U R S I V E

---

---

28

---

'
z
9
a

PAGE 1 6 5

16321
Ih377
16323
16325
16776
16327
lh3-40
16331
16337
16333
16734
16335
16236
16337
16340
16341
16342
16343
16344
16345
16346
16347
16350
16351
16357
16353
16354
16355
14356
16357
16360
16361
16362
16363
16364
16365
16366
16367
16370
16371
16372
16373
16374
16375
16376
16377
16400
16401
16402
16403
16404
16405
16406

BONNIE-S

0634
Oh74
0601
00

00
00
00
CLQ

4
7
0
0

BIRTHDAY ASSEMBLY

16470

2 9 LAP

16471

30

16477
16501

31
32

-0734 0 0 4 00000
C500 0 0 4 00OflO
0622 00 0 16505
0 7 3 4 0 0 7 O0000
-3 0 0 0 0 0 2 1 6 3 5 6
C500 0 0 7 0 0 0 0 0
0734 00 4 00000
-3 7 7 7 7 6 4 1 6 3 5 6
-0625 0 0 0 1 6 5 1 1
- 0 7 5 4 0 0 7 ooooo
0074 00 4 14445
-0100 0 0 0 1 6 3 5 1
-0754 00 2 00000
0560 00 4 00510
0074 00 4 11771
-0100 0 0 0 16350
-C634 0 0 4 0 1 5 6 2
-0754 00 2 00000
0074 00 4 0 1 5 t 3
544360600154
-0754 0 0 2 00000
0074 00 4 14347
-0734 00 4 00000
0500 00 4 00000
0020 00 0 16361
0500 00 0 02304
0600 00 o 1 6 5 1 1
0074 00 4 16535
0601 00 0 16506
C601 00 0 16507
0600 00 0 16510
0074 00 4 16543
C500 0 0 0 1 6 5 0 1
0074 00 4 04604
0520 00 0 16511
0020 00 0 16373
C534 OC 4 1 6 5 0 6
0522 00 0 16526
0534 00 4 16507
0634 00 4 16506
-0534 00 4 16477
C500 0 0 4 0 0 0 0 0
0622 00 0 16505
-0625 00 0 16510
0074 00 4 16543
0520 00 0 16511
0020 00 0 16464
0534 00 4 16506
0634 00 4 02304
-0534 00 4 16477

33
34
35
3h
37

SXA
5x4
ST0
5TQ

LAX94
LAX+1.7
LIST
TAB

POX
CLA
ST0
PAX
TXL
CJ A
PAX

0 94
0.4
REST
0.7
IN8P1290
0 17

38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
5 3 LSQ
54
5 5 LSO
56
57

PXD
TSX
TNZ
PXD
LDQ
TSX
TN7
SXD
PXD
TSX
BC I
PXD
TSX
PDX
CLA
TRA

5I
9
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
BO_81
82

STZ
FSX
ST0
SIO
STZ
TSX
CLA
TSX
ZET
TRA
LXA
XEC
LXA
SXA
LX D
CLA
STD
STL
TSX
ZET
TR A
LXA
SXA
LXD

MODE
0.2
NUMBRP 9 4
LSG
032
SQSYMD~4
GET14
at4
$ERRON 4
0 12
$ERROR+lr4
11*L
l*
012
NUMVAI * 4
094
014
*+4
SORG
MODE
JUST14
STAR
START
PASWD
PASS94
TAB
SPRINT94
MODE
*+3
STAR94
LBPT P
START94
STARv4
LIST.4
094
REST
PASWD
PASS14
MODE

LENi?
STAR.4
SORG. 4
LIST14

THIS I S THE INPUT

START OF-sY@3QL--LABIE

- - - -----.

SAVE REST OF L I S T I N G

--- m'u
e\lL

s:EA~.ib

--

-- - -

.-

--

--

_!- - -

.-

----

-NOISE = NOT BPS

MAKE NUMBFR TFST
I F A NUMBER
ORIGIN TO AC
(QUOTE SYMf

- --

>-.-------

--

----

--

--.---

--

ORIGIN W A S FIOUND

-*.----------

_-

SkOW _II_
UNDEFINEC ORIGIN

I
K
^

GET

dPS ISai,lELY

- -- -

--

-- .-

--IK^IK^-IK^IK^IK^IK^IK^IK^-l.

PUTS SYM I N AC FOR NOT BPS MOD-E-_

PUTS ORG I N AC FOR BPSS MODE
INDICATES
~ P MODE
S
JUSTIFY AC
UPDATE MARKER
RESET M A U L
INDICATE PASS 1

-_

--.-- -- -.-----

- - - .-

- -- - - - --

-- --

--

-- - -- - - --

--

---- --

PRINT SYMBOL TABLE

I F NOT I N BPS MODE

. .... .

TFST FOR OUT OF BPS RESET STAR FCR SECOND PASS

~AGAIN-~

--

-.-

s - -s

--

. -

.....

... ..-

- -- --- -- ---

- - .- --

-.

.. .

--- - ,-

- --- - --

NOISE MEANS PASS 2

FUR PASS
I F NOT I N BPS MODE
RSET ORG-FOR
NEXT
--- ASSEMBLY_
.---_

--.--.-

-,

p.--.-p-.-.-.-.-.-..---.--.-..

--

--

.
.

- --

---- --------- - -.-

- -

..

- -- - - .-

-.

-.

-.

PAbt

166

BONNIE-S

16407 0500 00 4 00000

16410 0734 00 4 00000
16411 0500 00 4 00000
16412 0734 00 2 00000
16413 -0734 00 4 00000
16414 3 77776 2 16464
16415 -0634 00 2 16473
16416 0500 00 4 00000
16417 0734 00 2 00000
16420 -0634 00 2 16474
16421 -0320 00 0 00460
16422 0074 00 4 11712
16423 0622 00 0 16475
16424 0534 00 4 16507
16425 0634 00 4 16475
16426 0500 00 0 16473
16427 0074 00 4 17034
16430 0560 00 0 16474
16431 0074 00 4 11771
16432 0100 00 0 16444
16433 -0734 00 2 00000
16434 0500 00 2 00000
16435 0737 00 4 00000
16436 0500 00 0 16507
16437 -6501 00 0 16476
16440 0601 00 4 00000
16441 0500 00 0 16475
16442 0601 00 Z 00000
16443 GO20 00 0 16464
16444 0500 00 0 16475
16445 -0534 00 4 16474
16446 -3 0670'5 4 16451
16447 3 06706 4 16451
16450 -0320 00 0 00457
16451 0074 00 4 03710
16452 0131 00 0 00000
16453 -0534 00 2 16473
16454 0500 00 2 OGOOO
16455 -0320 00 0 00460
16456 0 1 3 1 00 0 00000
16457 6074 00 4 03730
16460 0131 00 0 00000
16461 0500 00 0 16474
16462 0074 00 4 03730
16463 0622 00 2 00000
16464 0500 00 0 16477
16465 0600 00 0 16477
16466 0600 00 0 16501
16467 C600 00 0 16504
16470
16471
16472

0774 00 4 00000
0774 00 2 00000
0020 00 4 00001

CLA
0.4
PAX
0.4
CLA
0.4
PAX
0.2
PDX
094
TXH
LEN0,2,-2
SXD
NAME 2
C LA
0,4
PAX
0.2
SXD
TYPE32
AN A
BDMASK
TSX
CADARX, 4
ST D
INDC
L XA
START 14
SX A
INDC.4
CLA
NAME
TSX
PRO 14
LDQ
TYPE
TSX
GET.4
TZE
MKINO
POX
0 ~ 2
CLA
07 2
PAC
094
CLA
START
ORA
PATCH
ST0
074
CLA
INDC
ST0
0 ~ 2
TR A
L E NE
CLA
INDC
LXD
TYPE94
TXL
I N 0 2 1 4 7 $SYM-1
TX H
INE274.6SYM
AN A
$AM ASK
TSX
SCONSW 14
XCA
LXD
NAME72
CLA
09 2
A NA
BDMPSK
XCA
TSX
$CONS*4
XCA
CLA
TYPE
TSX
SCONS,4
ST0
07 2
LEND
CLA
LIST
STZ
LIST
STZ
TAB
STZ
INST
*
DONT STCRE ZERO I N Q T L S T
LAX
AXT
**,4
AXT
**p2
TR A
134
A L L L A P R E G I S T E R S FOLLOW,INCL.

83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112 MKINC
113
114
115
116
117 I N 0 2
118
119
120

121
122
12 3
124
125
126
127
128
129
130
131
132
133
134
13 5
136

--

B I R T H D A Y ASSEMBLY

--

- -- ---

-- ----- -- -- .--.--

CWR OF L I S T I N G

--- .--

--

GETS CWR OF O R I G I N
CAR OF O R I G I N
CDR OF O R I G I N
I F ATOM T H E N NO T X L NEEDED
CAR O F ORG I S NAME

--

----

----a

--

.
.

----------

--

----

-- ---

---

CADR OF O R I G I N I S TYPE
STORE T Y P E
-CDDR I S NOE I N AC
CADAR PUTS PART OF NUM I N OECR OF AC
FOR T X L WORD

------ --- - .------

--.--

--- -- ---

-4

S'

COMPLETES T X L WORD

--

I F THERE WAS NO O L D T X L
S A V E P O I N T E R TO T X L

CWR OF O L D T X L
P O I N T E R TO O L D B I N PTROG.
S T A R T OF NEW PROGRAM
MAKE TRA I N S T R U C T I O N
CLOBBER O L D PROG.

--

O N TOP OF O L D T X L

--

--

---

SYM SPOULD HAVE NO T X L ON P O I N T E R

----.

--------

--

SAVE AC
-NAME OF SUBR OR TYOE

--"--.-.

CDR OF NAME NOW I N AC

.
.
.

...

.
.

..

..

CONS ( T X L V R E S T O F PROPERTY L I S T )
.

C O N S v T Y P E t R S T OF ATM)
RPLACD OF PROPERTY 9 I S T

--------

..--

.A
.-.---

THOSE USED EY S U B R O U T I N E S

.--. --

____

--- -

-.

......

- ...................

...

.--..--

--------.......

--

..--,

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

_________-_----_--.

- -- PAGE 167

BGNNIE-S

--

--

B I R T H D A Y ASSEMELY
'I

--

16473

0 00000 0 00000

137 NAME
TYPF

16475 -3 00000 0 00000

16476 0070 00 o on000

139 I N D C
140 P A T C H
F

16477
16500
165Cl
16502
16503

0 00000 0 00000

o nnooo o oonco
G COOOC 0 O O O G O

0 OOOOO 0 00000
0 00000 0 00000
16503

16504 0 00000
16505 0 00000
16506 0 00000
16507 0 00000
16510 0 00000
16511 0 00000
16517 0 00000
16513 0 00000
16514 o ooooo
16515 0 00000
16516 0 00000
16517 0 00000
16520 -3 00000
16521 -0754 00
16522 0020 00
16523
16524
16525

0
0
0
0
0
0
0
0

00000
00000
00000
00000
00000
00000
00000
00000

0
0
0
0
0
4

00000
03316
00000
16571
00000
00001

o ooooo

0 00000 0 17357
0 00000 0 17255
0 00000 0 17454

2 LIST
3
ST
4 TAB
5 l COM
6 PROS
7 PROEN
1 lNTT
REST
STAR
START
PASWD
MODE
HOLD
8 SUM
9 NOCUR
10 REM
11 A L S T
12 ERCC
13 L S A C

TXL

TBA

NAME OF F U N C T I O N
R FSURR F T C
FOR T S L WORD
F O R C L O B B E R m IL D N
__ PERM PROTECTED L A P STORAGE
B F G L M W Y G OF P R O T F t T E D R E B _
-M A I N L I S T I N G GOES HERE
THF L I S T OF QUOlELAELER_EBBSL_____
- . . - ---------..TEMPCRARY SYM T A B L E
STORAGF FOR COMMON ONLY.PRDTFCTFD---p-PROTECTED F U N C T I O N NAMES AND S P E C I A L S
FND OF PROTECTFD ARFA
--L A P PART TWO
H n l I l S C U g g F N T 1-ION
OR FRACTTnN
REMAINDER OF L I S T I N G . P A S S A L T E R S T H I S
* DTRFCT ADDRFSS F C I _ L N T E R r O C U R R E N T - - - - - R E S E T C E L L FOR +
7FRO MEANS P A S S L L ~ U P A S S ~
ZERO MEANS B P S ASSEMBLY
FI lY oL!u.Y2-uL-------___---FOR USE B Y A F E L D L I S T O N L Y
FOR AFELD L L S L O N L Y . P R I - K ~ ~--~ ~-~ ~- ~ ~ ~
FOR AFELD L I S T ONLY.

-----------

*+, ,* *

DECK
SYN

SYN
DECK

*- 1

2
3
4
5
6
7

14
15

SAL I S T
TXL
PXD
TRA
DECK

1 MOV
2 LSTR
3 RTRN

* + I r ,O
0.0
1.4

---- - -

MOVE
LST
RESTOR

16526 3 00000 4 16527

16527 -0634 00 4 01562
16530 -0754 00 4 00000
16531 0560 00 0 00503
16532 0074 00 4 12636
16533 0074 00 4 01563
16534 544360600254

16535

0120 00 0 16540

16541 -0140 00 4 COO01

16542 0020 00 4 00001

TSX
TSX
BC I

*
*

T NO
TRA

-- - --

---

- -.- ..
.
-.

.-

--

---

-----

-..--.-

--

--

---------,---.
-

- -

FOR OUT O F BPS AND MAKES ERROR I F D SO.

*+1,4r**
SETUP F I L L S T H I S C E L L
$ERROR14

.--.

014
BOCTD
SMKNO, 4
SERROR+l, 4

9
10
l,*L 2*
11 +
12 9 J U S T RECUCES THE AC MOC 2**15.THE
13 *
I T I S ALWAYS P O S I T I V E _
14 J U S T
TPL
*+3

16
19
20
21

--

---- --

-*--*

- - --

ATOM P I E C E S
T H E H O R D P O I N T E D T 9 - 6 2 SY_M__.C-L*_M-OY E_ __
P O I N T E D TO BY SYM ON ATOM * L I S T

CECK
L A P PART THREE
A D D R ( R E M ) = 1 x 4 SAVEC.DECK=R-EST
OF L I S T F I E L D

1 *
2 *
3 * L C P T P CHECKS
4 L B P T P TXH
5
SXD
t
PAD
7
100

-- ---

..

. .. . .
.

.-..

-.*

RESULT I S 15 B I T S I N ADDR OF A C
-

--. -

.-

- -- -

-.

-.
1 1 4-

))ASS COES e C T H PASSES FOR L A P

--

--- _

--

._

- .

- -

- --

- -

--

- --

---- - --- -PAGE 1 6 8

HONNIE-S

--

--

--

- ----

--

BIRTHDAY ASSEMBLY

--

22 *
FIRST PASS MAKES SYMBOL TABLE AND UPDATES ON INSTRUCTIONS
SECOND PASS IGNORES SYMBOLS ASSEMBLES AND UPDTS INSTRUCTIONS
23
2 4 PASS
SXA
PAUX.4
25 LOP1
LXD
REST 1
- - ---. .
- --- - -- - - -- 76
TXL
PAUX14,O
I F NO MORE L I S T I N G
27
CLA
014
---- .-- --- -ST0
REST
RESET REST OF L I S T I N G
28
29
PAX
014
-.----------,*..---.--- - -.-.
SXD
INST14
30
TXL
AMBL94,O
I F NIL--31
014
32
CLA
33
014
PAX
TXL
AMBL ,4,-2
I F NOT ATOM
34
35
ZET
PASWD
36
TR A
LOP~
I F PASS 2
37
CLA
STAR
OTHERHISE ADD
TO TABLE
LDQ
38
d0CTD
39
TSX
SMKNO.4
MAKE A NUMBER
40
XC A
CLA
INST
41
42
TSX
$CONS 4
(NAME-VALUE)
LOP
TAB
--43
44
TSX
$CONS* 4
45
ST0
TAB
-46
TRA
LOP 1
4 7 AMBL
ZET
PAS WD
LAND HERE I F INSTRUCTION NOT SYMBOL
TSX
AINS 4
ON PASS 2 ONLY
48
STAR14
-49
LX A
50
~ X I
*+1,4,1
UPDATE * AFTER INSTRUCTION I S ASSEMBLE
51
SXA
STAR94
- - - --.
-- -52
TRA
LOP 1
5 3 PAUX
AXT
**, 4
--.--*---*-,54
7 RA
114
55 *
--5 6 + AINS IS TI-E INSTRUCTION
ASSEMBLER. A R C I S ~ N I N S T . - - V G ~ T T K E C
5 7 AINS
SXA
AINX.4
-- - ---58
T SX
AFELDt4
1
59
STU*
STAR
A
60
TSX
AFEL0.4
61
TSX
JUST14
THI
IS
-- -- - - - -----...-...--62
ORS*
STAR
TSX
AFELD.4
-63
64
ALS
15
65
TC V
++ 1
-------66
ORS*
STAR
TAG FIELD
t
67
TSX
AFELC 4
---- -d68
TSX
JUST 1 4
69
ALS
18
NO OVERFLOW AFTER JUST
1
70
ORS*
STAR
7 1 A!NX
AXT
**, 4
---. ---. .-- .I --72
TRA
114
73 *
---- -AFELO I S THE F I k L D EVALUATOR. A L I S T OF FIELDS KExPECTEI-ININST.
74
7 5 * I T EVALUATES THE FIRST AND SETS INST TO THE REST. I F NO MORE FIELDS LE

--

16543
16544
16545
16546
16547
16550
16551
16552
16553
16554
16555
16556
16557
16560
16561
16562
16563
16564
16565
16566
16567
16570
16571
16572
16573
16574
16575
16576
16577
16600
16601

0634 00
-C534 0 0
-3 O O C O O
0500 00
0622 00
0734 00
-C634 0 0
-3 0 0 0 0 0
0500 00
0734 00
-3 77776
0520 00
0020 00
0500 00
0560 00
0074 00
0131 00
C500 0 0
GO74 0 0
0560 00
0074 00
0601 00
0020 00
0520 00
0074 00
0534 00
1 00001
0634 00
0020 0 0
0774 00
0 0 2 0 00

4
4
4
4
0
4
4
4
4
4
4
0
0
0
0
4
0
0
4
0
4
0
0
0
4
4
4
4
0
4
4

16600
16505
16600
00000
16505
00000
16504
16572
00000
00000
16572
16510
16544
16506
00503
12636
00000
16504
03730
16501
03730
16501
16544
16510
16602
16506
16576
16506
16544
00000
COO01

166C2 C634 0 0 4 1 6 6 2 0
16603 0074 00 4 16622
16604 0 6 0 1 60 0 16506
16605 0074 0 0 4 16622
16606 0074 00 4 16535
16607 -0602 6 0 0 16506
16610 0074 00 4 16622
16611 0767 00 0 00017
16612 0140 00 0 16613
16613 -0602 6 0 0 16506
16614 0074 00 4 16622
16615 0074 0 0 4 16535
1 6 6 1 6 0 7 6 7 00 0 0 0 0 2 2
16617 -0602 60 0 16506
16620 0774 00 4 00000
16621 0020 00 4 00001

---

-'

-----

5
3

o
3

PAGE 169

BONNIE-S

BIRTtlDAY ASSEFBLY

--76
ARE LEFT, I T GOES TOAINX, TH& E X I T POINT OF AINS
77
AFFLD HAS CERTAIN PRIVATE C F I I S s S F F AFTFR LAP.) THF L I S T AFFIO I S A
--78
SLIGHTLY RECURdIVE DEVISE WHICH HAS SPECIAL CELLS AND CANNOT REENTER I
79
ITSELF WITHOUT ERROR.
-- --.
--- -- ---. --16622 0634 00 4 17032
8 0 AFELD SXA
FELX I4
1 6 6 7 3 0 6 0 0 OQ 0 1 6 5 1 4
81
ST7
NOCUR
--- - -- - -- 16624 -0534 00 4 16504
82
LXD
INST74
1 6 6 2 5 -3 00000 4 1 6 6 7 0
83
TXL
AINX14.0
I F NO MORF F I E 1 DS
16626 0500 00 4 00000
84
CL A
0 14
6627 0622 00 0
6
0
T
REST OF F I E
-16630 0734 00 2 00000
86
PAX
0.2
16631 0500 0 0 7 00000
8 7 LEN
CL A
0,2
16632 0734 00 4 00000
88
PAX
094
16633 - 3 77776 4 16707
R9
TXI
NATM.4.
7
I F NOT ATOMIC F I E J 0
16634 3 00000 2 16637
90
T XH
*+3.2,0
16635 0500 00 0 02304
91
CLA
SORG
N I L SYMBOL MEANS ORIGIN
16636 0020 00 0 17032
92
TRA
FELX
16637 -0754 00 2 00000
--93
PXD
0 12
16640 0560 0 0 0 16520
94
LDQ
LSAC
FN ARG FOR SASSOC
1 6 6 4 1 -C600 0 0 0 0 3 3 2 1
95
STQ
3ARG3
16642 0 5 6 0 0 0 0 1 6 5 0 1
LDQ
TAB
96
16643 0074 00 4 10042
97
TSX
SASSOCq4
LOOK UP I N SYM TkBU
.
16644 0100 00 0 16652
98
TZE
NTAB
NOT I N TAB
1 6 6 4 5 0074 0 0 4 1 5 2 2 2
99
T5X
SCDRP,4
--16646 0074 00 4 14342
1 0 0 NEVAL TSX
NUMVALt4
1 6 6 4 7 -0734 0 0 4 0 0 0 0 0
101
PDX
0 ~ 4
-----16650 0500 00 4 00000
102
CL A
0.4
1 6 6 5 1 0020 00 0 17032
103
TRA
FELX
--- - . ..-- - - -16652 -0754 00 2 00000
0 ~ 2
1 0 4 NTAB
PXD
1 6 6 5 3 C074 0 0 4 1 4 4 4 5
NUMBRP, 4
- - --.-- ------ ---.-- -- - -- .
- - -105
TSX
1 6 6 5 4 0 1 0 0 00 0 1 6 6 5 7
106
TZE
*+3
I F NOT A NUMBER
-16655 -0754 0 0 2 0 0 0 0 0
107
PXD
0.2
L I S P NUMBER I N AC
---------,--.-.--.----.---16656 0020 00 0 16646
108
TRA
NEVAL
1 6 6 5 7 -C634 0 0 2 1 6 5 1 7
109
SXO
ERCCv2
SAVE ATOM
- - --- --- - - - -- .
- - - -- - - -- -- 1 6 6 6 0 0500 0 0 2 0 0 0 0 0
1 1 0 LOP2
CLA
0.2
LOOP FOR SYMtSUBR,FSUBR
1 6 6 6 1 -0734 0 0 2 O O O C O
111
PDX
0.2
------- -- -16662 0 7 3 4 0 0 4 0 0 0 0 0
112
PAX
0 4
16663 3 0 0 0 0 0 2 1 6 6 7 0
113
TXH
PA.290
I F NOT N I L
----.-----.
16664 -0634 00 4 01562
114
SXD
$ERROR. 4
16665 C 5 0 0 0 0 0 16517
115
CL A
ERCC
--- --- --- ---- -- . - - --- - 1 6 6 6 6 0074 0 0 4 0 1 5 6 3
116
TSX
$ERROR+lr4
16667 544360600354
117
BC I
1,+L
3*
UNDEFINED SYMBOL
- -- ---16670 - 3 06705 4 1 6 6 7 2
i i a PA
TXL
*+2,4, SSYM-1
1 6 6 7 1 -3 06706 4 16703
FINX,4,$SYM
--- -119
TXL
1 6 6 7 2 -3 0 6 7 3 2 4 1 6 6 7 4
120
TXL
* + 2 9 4,SSUBR-1
16673 -3 0 6 7 3 3 4 1 6 6 7 6
121
TX L
FINC94, SSUBR
-- - ---- -- -----1 6 6 7 4 -3 10102 4 1 6 6 6 0
122
LOP2r4,SFSUBR-1
TXL
16675 3 10103 4 16660
123
TAH
LOP2 94, SFSUBR
--- --- --- -- ---- -- -- 16676 0 5 0 0 0 0 2 0 0 0 0 0
1 2 4 FIND
CLA
0 12
16677 0734 00 4 00000
125
PAX
0 4
-.-----p---.-------..p..--p
*-.---"
16700 0500 00 4 00000
126
CLA
Ot4
1 6 7 0 1 -0320 0 0 0 0 0 4 5 7
SAMASK
127
ANA
- - -- - - -- - - - - -.
.- - ---.
- . . -- .
16702 0020 00 0 17032
128
TRA
FELX

--

--------

-----"

----

m u

--

PAGE 170

16703
16704
16705
16706
167C7
16710
16711
16712
16713
16714
16715
16716
16717
16720
16721
16722
16723
16724
16725
16726
16727
16730
16731
16732
16733
16734
16735
16736
16737
16740
16741
16742
16743

BONNIE-S

0500
0734
0500
0020

00
00
00
00

-3 06153
3 06154
-0754 00
0074 00
0771 00
0020 00
-3 07247
3 07250
-0734 00
0500 00
0734 00
-0534 00
-3 00000
0500 00
0601 00
0734 00
0500 00
-0320 00
0131 00
-0754 00
0074 00
-0100 00
-0534 00
3 00000
-0754 00
0131 00
0754 00
0074 00
G6Ol 00

16744 0560
16745 0074
16746 0601
16747 -0535
16750 0754
16751 ' 0020

00
00
CO
00
00
00

2 00000
4 00000
4 00000
0 17032
4
4
2
4
0
0
4
4
2
2
2
4
4
4
0
4
4
0
0
2
4
0
4
4
2
0
0
4
0

16715
16715
00000
11730
00022
17032
16754
16754
00000
00000
00000
16500
16737
00000
16512
00000
00000
00460
00000
00000
04461
16752
16512
16724
00000
00000
00000
03730
16512

0
4
0
4
4
0

16500
03730
16500
16512
00000
17032

16752 0535 00 4 16512

16753 0020 00 0 16750
16754 -3 07107 4 17004
16755 3 07110 4 17004
L6756 0560 00 0 00507
16757 -0320 G O 0 00460
L6760 0074 00 4 15212
16761 0074 00 4 11771
16762 -0100 00 0 17001
16763 0560 00 U 00370
16766 0074 00 4 03730
16765 0601 00 0 16502

130
131
132
133
134
135
136
137
13 8
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
153
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183

B I RTHDAY ASSEMeLY
FINX

--

CLA
PAX
CLA
TR A

0 ~ 2
094
094

TXL
TXH
PXD
TSX
AKS
TRA
TXL
TXH
PDX
CLA
PAX
LXD
TXL
CLA
ST0
PAX
CLA
ANA
XCA
PXD
TSX
T NZ
LXD
TXH
PXD
XCA
PX A
TSX
ST0

NTEt4,SH241
N T E v 4 , $HZ5
0,Z
CADRXXp 4
18

--

---

--

-----

--

-- - -

--

--

-- -.- - - - --

--

- --

--

--- -- - - ------- --

--

- -- ---

-- ---

--

---------

-.--

FELX

---

- -

----

NATM

NTE

FLOOP

NON

TRP
4

ONQT
NQT

FELX
NQT 9 4 1 SQUOT E-1
NQT 9 4,SQUOT E

0 12
012
092

-FOR [ E E X P )
ENLE,E FIELD

--

--

___

- -- -- -

--

-- ----- - ----

- -----

-I

L A N D HERE FOR NOT ( E . - ABOVE AND T H I S FOR (QUOTE...

AC HAS CWR OF F I E L D

--

P O I N T E R TO EQ Q U A N T I T Y

QTLST.4
T E S T FOR NO L I S T

NON,4rO
094

AN EQUAL TYPE SEARCH

HOLD

TEMPORARY S A V I N G O F REST

0 4
0 14

--

QUANTITYOT-EQUAL
COMPARISON

SDMASK

L ITERAL

012

THE NEW I T E M
TEST FOR E Q U A L I T Y
I F ALREADY ON L I S T

$EQUAL, 4
ONQT

----

---

--

HOLC.4
FLOCP*4,0

012
090
SCONSv4
HOL C
FOLLOWS
QTLST
$CONS 14
QTLST
HOLD94

I F NOT HEAO OF Q T L I S T
NEED TO MAKE E!E!x--.

. ---

---

-.---

C O N S ( N 1 L EXP 1
NEEDS NO P R O T E C T I O N A S S E E N BY WHAT F O

LDQ
TSX
CONS( (NIL.EXP=,-ST0
LDC
WANT TRUE P O I N T E R
PXA
0 ~ 4
TRA
FELX
T H I S I S P O I N T E R TO A N I L - E X P WORD I2 F R E E STORAGE
LAC
HOLCl4
TRA
TRP
FDLST14,SPECAL-1
TXL
TXH
F D L S T v 4 , SPECAL
( S P E C I A L NAME 1
-LDQ
QSPECD
S P E C I A L I N MQ
AN A
dDMPSK
[ N A M E ) I N AC
T5X
SCARP, 4
TSX
GET 14
TNL
SPP
J U S T N E E 9 f 0 ASSURE P R O T E C T I O N
LDQ
dZEPO
-TSX
SCOi\rS, 4-A C HXT~RO-I
FTOT-&
RE
RE
ST0
LCOrI
PROTECTED TEMP C E L L -

---

-- ----

- ___ -

------.

-HE

-----

-*-.--.

---

--

-- --

-.

--

---

- --- ---

PAGE

171

BONi\lIE-S

1 6 7 6 6 -0754
16767 0074
l 6 7 7 C -0734
1 6 7 7 1 C131
1 6 7 7 1 0500
16777 0074
16774 0131
16775
0500
16776 0074
16777 0677
1 7 0 0 0 0074
1 7 0 0 1 0074
17002 -0737

00 2 0 0 0 0 0
00 4 11705
00 2 0 0 0 0 0
Q O 0 00000
00 0 16502
00 4 03730
00 0 OOOOG
00 o 0 0 5 ~ 7
00 4 03730
00 7 00000
00 4 1 1 7 3 0
00 4 1 7 0 3 4
00 4 00000

17004 -0520 00 0 1 6 5 1 4
17005 0 0 7 0 00 0 1 7 0 1 1
17006 -0634 0 0 4 01562
17007 0 0 7 4 00 4 01563
17010 544360600454

17012 0 6 0 0 00
17013 0 5 3 4 0 0
17014 0634 0 0
17015 C500 00
17016 0 6 2 2 00
17017 0 7 3 4 0 0
17CZO -0774 00
1 7 0 2 1 0634 00
1 7 0 2 2 0020 00
17023 0 4 0 0 0 0
17024 0601 00
17025 -0534 00
17026 3 00000
17027 0600 00
1703C C534 00
17031 0020 00
17037 0 7 7 4 GO
17033 0 0 2 0 00

0 16513
4 17037
4 16515
2 00000
0 16515
2 00000
4 17022
4 17032
0 16631
0 16513
0 16513
2 16515
2 17015
0 16514
4 16515
4 00001
4 00000
4 00001

17034 0 6 3 4 00
17035 0 6 0 1 00
17036 0622 00
1 7 0 3 7 0402 00
17040 0622 GO
1 7 0 4 1 0500 00
17047 -0734 00
17043 -3 00000
17044 0500 00
17045 0734 00
17046 - 3 00000
17047 3 00000
1705C 0774 00
1 7 0 5 1 C500 O C
17052 0020 00

4 17059
0 17060
OX17047
0 00+42
0 ,17046
0 '16503
4 00000
4 17053,
4 00000
4 00000'
4 17042
4 17042
4 00000
0 17060
4 00001

'

B I R T H D A Y ASS EMeLY

184

PXD
TSX
POX
XCA
CLA
TSX
XC A

185

186
187
188
189
190
191
192

CIa

0.2
CAgDRX. 4
0. 2

--

194
L95 SPP
196

OSPECII
bCONS*4
0.7
CADRXX Y 4
PRO. 4
094

198 FDLST
199
200
20 1
202

NZT
TR A
SXD
TSX
BC I

NOCUR
*+4
$ERROR 4
SFRROR+l 4
lr*L
4.

STZ
L XA
SXA
CLA
STD

SUM
FELX.4
KEMq 4
092
REM
0.2
*+2,4
FELX 94
LEM
SUM
SUM
REM,2

204
205
206
207 LOPL
208
709
210
211
212
213
214
215
216
217
218
219
220 FELX
221
222 *
2 2 3 PRO
224
, 225
. 226

227
228
229
230
231
232
233
234
235
236
237

PNL

PL
PH
PX

PAX

AX C
sx A
TR A
ADD
ST0
LXD
TXH
ST Z
LXA
TRA
AXT
TRA
SXA
ST0
STD
SUB
STD
CLA
PDX
TXL
CLA
PAX
TXL
TXH
AXT
CLA
TRA

----

SAVE ABOVE
- --

LCOM
$CONS . 4

TSX
STD
TSX
TSX
PDC

193

( S P E C I A L NAME)

CQU/UMF1

----R P L A C D O F NAMF
P O I N T E R TO ( N I L )

----

- ---

NO RE-ENTRY

-- ----

-.

---

TO A F E L D L I S T I S ALLOWED

-..

--

*-

-- .--

.--...

---

,,-.

NO R E C U R S I V E F I E L D S ALLOWED
ON
R E S E T SUM WORD
~

SAVES THE R E T U K N FOR A F E L D

-.

,------.

REENTER THE E V A L U A T O R

R E S T OF F I E L D S
---------.I F THERE ARE M O R E F I E L D S I S U B F L D S )
ALLOWS ENTRY TO L I S T A F _ E _ L D A G A I _ N _

NOCUR
REMt4
1 ~ 4
*+, 4
194

...

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

.p---p-----...

LOPL.2,O

**,4
PT R
1v 4

--.

--

PX.4
PTR
PH
6QD 1
PL
PROS
094
PMKg4,O
0.4
0.4
PNL 14, * +
PNL 4y **

- --

...

-.

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

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

... ..-..--.....-.

-..

-S A V E ARGUMENT
SET UP T X H
._ _ _ _ _ - . . _ _ - . .
AND
TXL SIEVE
GET PROTECTED L I S T

..

END OF L I ST,

.......
.

-.
.
.
.

. . .. --

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

SO MAKE NEW E N T R Y

--

..

.........

--.----

F A L L THROUGH I F FOUND
RESTORE AC

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

-.

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

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

-PAGE 172

BONNIE-S

B I R T H D A Y ASSEMBLY

--

-- - - -- -

17053
17054
17055
17056
17057

0560
0500
0074
0601
OC20

00
00
00
00
00

0
0
4
0
0

165C3
17060
03730
16503
17050

17060

0 00000 0 00000

1
2
3
4

"

'

LDQ
CLA
TSX
ST0
TR A

17061
17062
17063
17064
17065
17066
17067
17070
17071
17072
17073
17074
17075
17076
17077
17100
17101
17102
17103
17104
17105
17106
17107
17110
17111
17112
17113
17114
17115
17116
17117
17120

0601 00
-0600 00
0634 00
0535 00
1 OOCOl
0500 00
0601 00
-0320 00
0322 00
-0100 00
-0634 00
0500 00
0601 00
0600 00
0534 00
0500 00
-0734 00
-3 00000
0500 00
0734 00
-3 06732
-3 06733
- 3 10102
-3 10103
-3 06646
-3 06647
-3 10156
-3 10157
-3 10141
3 10142
-0734 O C
0500 00

0
0
4
4
4
4
0
0
0
0
4
0
0
0
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4
4

0341703420
17243
00000
17066
00000
17253
00470
00470
17243
17252
00177
00000
17246
17253

ooooo

00000
17134
CIOOOO
00000
17107
17171
17111
17171
17113
17136
17115
17117
171Cl
17101
4 00000
4 00000

30
31
32
33
34
35
36
37
38
39
40
41
42
43

--

.. .

.-- -

--- -- -- --.

-. .- ..

~.
.-.

PERMANENT COMPILERTUBROUTINES5
- 9
L I N K HANDLES A L L S U B R O U T I N E C A L L S f R O M C O M P I L E D F U N C T I O N
. .-,
I T REPLACES STR W I T H T S X I F SUBROUTINE B E I N G C A L L E D
I S A SUER OR FSUBR
8
I T GOES TO APPLY I F THE C A L L I S TO EXPR OR FEXPR W I T H
6
O A L I S T AS T H I R C ARGUMENT
--o
L I N K E X P E C T S A TAG O F 7 I N THE STR I N S T , NAME OF F U N C T I O N
I N THE ADDRESS, AND THE NUMBER OF ARGUMENTS I N THE DECREM
ENT
L I N K W I L L GO TO THE R O U T I N E WHICH
HANCLES ERROR TRAPS I F THE C A L L I N G I N S T DOESNT H A V E A 7
TAG

9 +
10 4
11 *
12 L I N K .
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

STORE NEW L I S T
AND RETURN

DECK

8 +

..

---

MAKE A N E H I T E M

--

6
7

PROS
PTR
$CONS, 4
PROS
PX

- - -

---.-

238 4
239 PMK
240
241
242
243
244
245 P T R
246 *
247 +

-- - -

ST0
. STQ
SXA
LAC
TXI
CLA
ST0
ANA
ERA
TNZ
SXD
CLA
ST0
ST2
LXA
CLA
LNLP
PDX
TXL
CLA
PAX
TXL
TX L
TXL
TXL
TXL
TXL
TXL
TXL
TXL
TXH
L N E X P POX
CLA

---

LNKA
LNKE
LER.4

09 4
++1,431
094
LNKC
TAGMSK
TAGHSK
LER
LNKCg4
B$ZERC

SAVE AC AND MQ
SAVE I R 4
COMP P O I N T E R TO S T R + 1
MAKE ORDINARY T S X P O I N T E R
GET STR I N S T
7
SAVE I T

I F NOT 7 TAG
SAVE P O I N T E R
RESTORE N I L

0 ,4
09 4
LNNF94,O
0.4

--

--

RESET TRACE S W I T C H - FUNCTION ATOM--S T A R T PROPERTY L IST-S:J~CH

-------pi

\
a 2 -+.
f 1

>I

*=+'

---

NO D E F I N I T I O N SO--FN-\I!m%

0.4
*+2#4,$SUBR-1

--

--

- --

-.

..-----

L N S B R r 4 , 3SUBR
* + 2 ,4g BFSUeR-1
LNSBR.4, 8FSUBR
* + 2 ~ 4 $TRACE-1
,
L N T R s 4 , $TRACE
++294, $EXPR-1
LNEXP,4, SEXPR
LNLP.4, BFEXPR-1
L N L P p 4 , BFEXPR

094
094

,/

----

0
LNTRS
LNYGg4

---

--

-.

-.----- -EXPR-FEXPR

- --

BRANCH

-----

--

---- - .------

--

---

-- -

- ----- - - - - ----

-- - --

- - - --

- --

- -

BONNIE-~

PAGE 173

BIRTHDAY

ASSECBLY

17121

0734 00 4 00000

44

PAX
qxr)
CL A
ST0
Z ET
TRA
T SX
xc A
CLA
LXD
TRA

5AL IST
PARG3
LNTRS
LNTFX
LNARS14

TRACE TEST
TRACF FXPR OF F F X P L
L l S T ARGUMENTS

LNFN
LNKCI 4
SAPPLY

L4MBCA EXPRESSION
R
E
T
W
R
DO

LNNF

LXA
TRA

LNKC94
LNGN

FUNCTION DEFN I S ON A L I S T
APPLY U-ARE
OF T H I S

LNTR

ST1
ST0
TSX
ST0
XCA
LXA
SX A
PXI)
TSX
TXL
TSX
CLA
TRA

CNTRS
LNAC
LNARS t 4
LNRGL

SET TRACE S W I T L _ - SAVE AC

1 IST A
R
G
U
M
UAND SAVE THEM
TO PRINTING P O S I W N
ATOM NAME
SAVE WITH INDEX RECI-SLEEKALSO FOR TRACE MESSAGE
SAVE NAME AND RETRN

17123
17134
17125
17126
17127
17130
17131
17112
17133
17134
17175

0500 00 0
0601 00 0
0520 00 0
~ 2 000 0
0074 00 4
0131 00 n
05CO 0 0 0
-0 5 3 4 0 0 4
0020 00 0

03316
03171
17246
1 7 1 53
17206

nnooo

17247
17757
14663

0534 00 4 17253
0020 00 0 m 7 7

1 7 1 3 6 -0625 0 0 0
17137 0601 00 0
17140 0074 00 4
17141 0601 00 0
17147 0 1 3 1 0 0 0
17143 0534 0 0 4
17144 0634 00 4
17145 -0754 00 4
17146 0074 00 4
1 7 1 4 7 -3 1 7 2 5 4 0
1 7 1 5 0 0074 0 0 4
17151 0500 0 0 0
17152 0020 0 0 0

17246
17250
17206
17251
00000
17253
17252
00000
02312
02401
16050
17250
17101

1 7 1 5 3 05CO
1 7 1 5 4 C560
17155 0074
17156 0074
17157 0131
17160 0534
1 7 1 6 1 -0754
17162 -0534
17163 0020

00
00
00

0
0
4
4
0
4
4
4
0

17247
17251
14663
02326
00000
17252
00000
17252
16134

17164
17165
17166
17167
17170

00
00
00
OG
00

0
0
0
4
0

17167
03417
03420
00000
17156

0621
0500
C560
0074
0020

00
00
00
00
00
OG

17171 -0734 00 4 00000

1 7 1 7 2 C500 0 0 4 0 0 0 0 0
17173 0734 0 0 4 00000
17174 0500 00 4 00000
17175 0520 00 0 17246
1 7 1 7 6 0 0 2 0 00 0 1 7 1 6 4
17177 0621 00 0 17254
1720C 0 5 0 0 00 0 1 7 2 5 4
17201 -0534 00 4 17252

46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
95
97

094

LAMBDA EXPRESSION

I ~4

~ I V F IT

--

--

-----

- - --

-- - -

'l

---- -- --- -- -----

--

--

----

----

.--

--

--

-.-

p
-

---

--6

LNTEX

LNTEN

*
LYTSB

LNDIS

--

LNKCs4
LNKC.4
0.4
$SAVE 4
$ENOlrrLNKC+2
ASARGOF.4
LNAC
LNLP

PRINT ARGUMENTS
RESTORE AC
AND CONTINUE PROPERTY L I S T SEARCH

CLA
LDQ
TSX
TSX
X CA
LXA
PXD
LXC
TRA

LNFN
LNRGL
FAPPLY 94
UNSPVE.4

TRACE EXPR OR FEXPR

SET UP ARGUMENTS OF APPLY
AND 00 TbE FUNCTION
GET BACK I R 4 AND FN NAME

LNKC 14
0.4
LNKCv 4
A3V ALOF

RESTORE INDEX
PRINT VALUE MESSAGE

STA
CL A
LDQ
TSX
TRA

LNDIS
LNK A
LNKB
+*94
LNTEN

TRACE SUER OF F S U B R RESTORE AC

AND MQ
EXECUTER SUBROUTINE
AND REPORT VALUE

POX
CLA
PAX
CLA
Z ET
TRA
STA
CLA
LXD

0.4
094
0.4
0 ~ 4
LNTRS
LNTSB
LNTSX
LYTSX
LNKC.4

SUER OR FSUBR-WK

OM

-.
-

---

--

-.

----

---

.--

-- --------- -

.---

NAME TO AC
-

.-

--

---

__

- -

- -.

--

--

- -----

---

------

,.

---

LNSBR

_-

-_

--TXL SUBR, ,N WORD

TEST FOR TRACING
MAKE
-- A TSX
-

GET I T
RETURN I R --

------

--- - -

- -

---

- .

---

-- -

----.
.
-

- ----

-- -

-.

- -

---

- -PAGE 174
17202
17203
17204
17205
17206
17207
17210
17211
17212
17213
17214
17215
17216
17217
17220
17221
17222
17223
17224
17225
17226
17227
17230
17231
17232
17233
17234
17235
17236
17237
17240
17241
17242
17243
17244
17245

BONNIE-S
0601
0500
0560
0020

00
00
00
00

0634 00
-0534 00
-3 0 0 0 0 0
-0634 00
0074 00
3 00000
0734 00
0734 00
073400
0734 00
0734 00
0734 00
0734 00
0734 00
0734 00
0734 00
0734 0 0
0734 00
0734 00
0734 00
0734 0 0
0734 00
0734 00
0734 00
0734 0 0
0774 00
0020 00
-0754 00
0020 00

4
0
0
4

00000
03417
03420
00000

4 17237
4 17253
4 17241
4 17213
4 17255
0 03417
0 03420
0 03321
003322
0 03323
0 03324
0 03325
0 03326
0 03327
0 03330
0 03331
0 03332
0 03333
0 03334
0 03335
0 03336
0 03337
0 03340
0 03341
0 03342
4 00000
4 00001
0 00000
0 17237

0774 00 4 00000
05CO 0 0 0 0 3 4 1 7
GO20 0 0 0 0 1 7 6 6

17246
17247
17250
17251
17252
17253
17254

0 00000
0 00000
0 OOOOC
0 00000
0 00000
0 00000
0074 00

0
0
0
0
0
0
4

00000
00000
00000
00000
00000
00000
00000

17255
17256

0634 00 2 17316
C500 0 0 4 0 0 0 0 1

-- -. -

BIRTHDAY ASSEMELY

98
99
100
101
102
--- +
1 0 3 LNARS
104
105
106
107
1 0 8 LNKP
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
1 2 8 LNLX
123
1 3 0 LNN
131
132 +
1 3 3 LER
134
135
136 +
137 +
1 3 8 LNTRS
1 3 9 LNFN
1 4 0 LNAC
1 4 1 LYRGL
1 4 2 LNKC
1 4 3 LNKD
1 4 4 LNFSX
145 +
146 +
147 +
148 +
149 +
1 5 0 LST
151

ST0
CLA
LDQ
TXA

0 4
LNKA
LNKB
014

CHANGE THE STR TO T S X

RESTORE AC

SXA
LXD
TXL
SXD
T SX
TXH
PAX
PAX
PAX
PAX
PAX
PAX
PAX
PAX
PAX
PAX
PAX
PAX
PAX
PAX
PAX
PAX
PAX
PAX
PAX
AXT
TRA
PXD
T RA

LNLX.4
LNKC14
LNN14qO
LNKP14
LST14
LNKAvO? *+
LNKB,O
SARG3.0
SARG4,O
SARG5,O
SARG690
SARG7,O
SARG8.0
SARG9r 0
OARGlO, 0
dARG11,O
SARG12,O
OARG13 10
6ARG14.0
SARG15.0
OARGlbr 0
SARG17.0
SARG1810
JARG19r 0
bARG2O.O
**y4
114
010
LlVLX

AXT
CLA
T RA

+s14
RESTORE I R 4
LNK A
STRPNT
GO TO EREOR HANDLINLROUTINEPP
L I N K STORAGE
I S HERE, EXCEPT FOR LINKA NAD LI&KB-WHICH- ARE I N GARB
TRACE SWITCH
FUNCTION D E F I N I T I O N
TEMPORARY AC STORAGE
ARGS LISTED DURNING TRACE INTERLUD
1 x 4 POINTER TO STR WORD
CCNTAINS STR NAME171NUM
*+,4
INSTRUCTION TO BE PLANTED
LST I S ThE SUBROUTINE WHICH DOES L I S T I N G I N COMPILEDFIJNCT IOYS
N ELEMENTS WHERE N I S I N AC, ARE
L 1 STED
ARGUMENTS ARE GOTTEN BY CLA*
FROM THE N REGISTERS SUCCEEDING THE CALL

---

- -- -.......

GO TO NEW TSX

SUBROUTINE WHICH L I S T S ARGS

NUMBER OF ARGS
LST #ONT-WORK ON Z E R O T H I N G 5
PUT I N LST ARG POSITION
L I S T THEM

--

--

-- ---

-- .

RESTORE INTEX

---

NIL
--

- -- -

TSX

SXA
CLA

L X
114

----.
-- - -

SAVE I R 2
TC GET N FROM FIRSTDECREMENT

-.

P A G E 175

BONNIE-S

BIRTI-IDAY

ASSEMBLY
-

17257 0622 00 0 17261

17260 0673 00 0 17775
17261 -2 00000 4 17262
17267 -0734 00 2 OOOOD
17263 -0754 00 4 00000
17264 -0737 00 4 00000
17265 1 00001 4 17266
6 0634 00 4 17307
17267 0634 q0 4 17320
17770 - 0534 09 4 03751
17271 3 00000 4 17273
17272 0074 00 4 04037
17273 -0634 00 4 17327
17274 0534 00 4 01742
17275 2 00000 4 17300
17276 0074 00 4 03752
17277 0774 00 4 77777
17300 0634 00 4 03742
17301 -0534 00 4 17327
17302 0500 60 7 00000
17303 0771 00 0 00022
17304 0621 00 4 00000
17305 0500 00 4 00000
17306 063+ 00 4 17314
17307 -0734 00 4 00000
17310 -3 00000 4 17321
17311 2 00001 2 17302
17312 0622 00 0 03751
17313 -0754 00 0 00000
7314 0774 00 4 000G0
I 7315 0622 00 4 00000
17316 0774 00 2 00000
17317 0500 00 0 17327
17320 0020 00 0 00000
17321 0500 00 0 17327
17322 0074 00 4 02522
17323 0500 00 0 03751
17324 0522 00 0 17314
17325 0622 00 4 00000
17326 0020 00 0 17307
17327 0 00000 0 00000
17330 0634 00 4 17354
17331 0634 00 2 17355
17332 -0534 00 4 02317
17333 0500 00 4 77777
17334 0622 00 0 17352
17335 0402 00 0 00442
17336 0622 O C 0 17343
17337 -0535 00 4 02317
17340 0634 00 4 17344
17341 0774 00 4 00001
17342 1 00001 4 17343

152
153
154 L S N
155
156
157
158
159
160
16 1
162
163
164
165
166 L S C
167
168
169
170
171 L S P
172
173
174
175
176 L S R
177
178
179
180
181 L F X
182
183 L X Z
184
185 L S E
106 L F I X
187
188
189
190
191
192 L A N
193 *
194 *
195 U N h N D
196
197
198
199
200
201
202
203
204
205 U N F

ST0
LSN
TO D E C R E M E N T I R 4 FOR P O I N T E X I T
ST0
I 5C
TO D F C R E M F N T T H E U N S W T F R
TNX
*+l t41**
POX
0,7
L T O 1R2
-- PXD
0 ~ 4
S T A R T TO C O M P L E M E N T I R 4
PDC
09 4
- F O R ! - TXI
*+1,4t 1
ONE MORE FOR E X I T
5XA
LSP.4
S F T U P GET I N q T
-- SY A
LSE,4
AND R E T U R N
L X ~
bFRFF.4
T XH
*+2,4,0
T E S T FOR O U T O F F R E E
TSX
SFROUT * 4
M U RETURN 2 . 4
SXD
LANp4
THE ANSWER T O T H I S S A U S A G E CONS
LXA
BCNTR1 4
G E T CONS C O U N T F R
-TIX
*+3r49**
R E- -D U C
E -I T B
--Y N
TSX
A R R E S T S4
OUT O F CONSES
AXT
-1 p 4
RESEi T C O U N T E R [ U P T O N C- O
- NS -E -S M A Y BE
-SX A
SCNTRl I4
L O S T E V E R Y 7777 O C T A L C O N S E S )
LXD
LAN94
RESTORE
I R 4 T O F R E E WORD P O I N T E R
C I A*
+r, 7
G E T ARGUMENT
ARS
18
TO ADDRESS
STA
09 4
PUT I T I N T H E FREE W O R L A D D L
.C LA
0 4
NEXT
F R E E WORD
SX A
LFX14
S A V E P R E C E D I N G WORD TO C U T O F F
PDX
0 14
N E X T F R E E WORD TO I R
TXL
LFIX,4,0
OUT O F F R E E S T O R A G E 7
TIX
LsP12t 1
C O U N T DOWN
STD
$FREE
R E S T O R E FREE
PXD
010
AXT
**r4
L A S T WORD I N L I S T
STD
0.4
G
- -F. T
dZ
N I L I N I T S DECREMENT
AXT
**t 2
RESTORE I R 2
CLA
LAN
G E T T H E ANSWER
TRA
RETURN
CLA
LAN
T O G E T I T P R O T E C T E D D U R I N G MOP U P
TSX
RECLAMr4
CLA
$FREE
F I X U P THE SAUSAGE
XEC
LFX
G E T L A S T WORD TO I R
094
S TD
F I X I T S DECREMENT
TRA
LSR
---PZE
UNWNC I S U N S A V E FOR C O M P I L E D F U N C T I O M S I U S E D B Y E R R O R S E T
T O R E S T O R E T H E PDL T O P R I S T I N E S T A T E
SXA
UNR 4
SAVE RETURN
----SXA
UNR+1,2
SAVE I R 2
LXD
J C P P I 14
$ C P P I I~
~
~
-CLA
-1~4
SO T H I S G E T S
S T R O,,M
STD
UNJ
S A V E N TO R E S T O R E _ a ! L
SUB
SQDl
A N D S E T UP T E S T H H I C H S A Y S T H A T
ST0
UNH
WE H A E E CRAWLED UP T H E P D L A L L WAY
.--L DC
S C P P I t4
N E E D T K U E P O I N T E R FOR C A L L I N G WORDS
SXA
UNGr4
I N R E V E R S E- ORDER
-F R O M ._P-D. L --__
_ ....._-AXT
184
I N I T I A L I Z E THE R E C A L L LOOP
TXI
*+lt4tl
I N C R E M E N T T H E G E T I R-- . .

--------

-- -- - -

n w -

----

--

-----

---

--

- ----

--- -.

--- - ----.----

---

--

-- -- -- -

---.-

-.------..

- -- .-- --.-.
- .

._-

-- -.

~~

PAGE 1 7 6

BONNIE-S

17343 3 00000 4 1 7 3 5 1
17344 0 5 0 0 00 4 0 0 0 0 0
17345 0 7 3 4 0 0 2 0 0 0 0 0
17346 -2 0 0 0 0 0 2 1 7 3 4 2
17347 0737 00 2 00000
17350 1 0 0 0 0 1 4 17343
17351 -0534 00 4 02317
17352
1 00000 4 17353
17353 -0634 0 0 4 02317
17354 0774 00 4 00000
17355 0 7 7 4 00 2 00000
17356 0020 0 0 4 0 0 0 0 1

17357
17360
17361
17362
17363
17364
17365
17366
17367
17370
17371
17372
17373
17374
17375
17376
17377
17400
17401
17402
17403
17404
17405
17406
17407
17410
17411
17412
17413
17414
17415
17416
17417
17420
17421
17422
17423
17424
17425

0634 00
-0534 00
0601 00
-0600 00
-0634 00
0774 00
0500 00
0621 00
0622 00
0500 00
0 6 0 1 00
0500 00
-0320 00
010000
-0734 00
0020 00
0 5 0 0 00
0601 00
0500 00
Oh01 0 0
0500 00
0601 00
0500 00
0601 00
0500 00
0601 00
0500 00
0601 00
0 5 0 0 00
0601 00
0500 00
0601 00
0 5 0 0 00
C601 0 0
0 5 0 0 00
0 6 0 1 00
0500 00
0 6 0 1 00
0500 00

1 17364
1 02317
1 00001
1 00002
4 17453
4 00000
4 00001
0 17453
0 17452
0 17453
1 00000
4 00000
0 00467
017444
4 00000
4 17443
0 03342
1 00024
0 33341
1 00023
0 03340
1 00022
0 03337
1 00021
0 03336
1 00020
0 03335
1 00017
0 03334
1 00016
0 03333
1 00015
0 03332
1 OOOi4
0 03331
1 00013
0 03330
1 00012
0 03327

-----

BIRTfiDAY ASSEMBLY

--

206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221

222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259

---

--

-- ---- .--

UND14, **
TXH
TEST FOR LAST WORD RESTORED
**,4
CLA
GET SAVED ITEM (GOING FROM BOT TO TOP)
Of2
PAX
ZERO ACERESS INTICATES NOT NECESS RES
TNX
UNFs2,O
~&THROU%IJLREST!REwED
- _- - - - - - .
--- -012
PAC
ADDR I S TRUE POINTER TO LOCATION
TXI
UNH14,l
WORK ON NEXT ONE
----SCPPI*4
UNE
LXD
PUSH UP S C P P ~
UNJ
*+1141*+
BY N
TXI
-------.-.-----.SX D
SCPPIs4
UNR
AXT
**14
RESTORE L i N K
-**vZ
AND I R 2
i
AXT
TRA
114
---- C
MOVE I S A SPECIAL COMPILER SERVICE SUBROUTINE WITH BAD CALLING.
+
TSX
*MOVE, 1
I
*
TNX
NAME,lf*MN
6
o
MOVE
SXA
MOVY 1
LXD
SCPP1,l
PICK UP PDL PPINTER
ST0
111
SAVE AC
211
STQ
TXLW.4 r / r
SAVE RETURN INDEX
SXD
MOVY
AXT
+*94
/ bQ
' 2 3
PICK UP REFERENCE TO CALLING HEAD
CLA
l r 4
TNX WORD HAS NAME I N ADDR.
--STA
TXLW
COMPLETES THE TXL WORD
STRGJ
PUT N I N STRW DECREMENT
STD
CL A
TXLW
ST0
011
PUT I T AT HEAD OF PDL .%LOCK
1
0 ~ 4
TSX HAS COUNT F I E L D = '
CLA
ANA
CNTMSK
COUNT F I E L D MASK
TZE
WOV D
I F LESS THAN 3 ARGS
w
PDX
Of4
COUNT F I E L D TO I X
TRA
MOVE-1 94
ENTER PART OF MOVE ROUTINE
CLA
SARGZO
ST0
20,l
CL A
%ARGl9
- - --ST0
1991
CL A
BARG18
---ST0
1 8 ~ 1
CLA
SARG17
---ST0
1711
CL A
SARGl6
---. -- -- ST0
16.1
CLA
SARGlS
ST0
1591
CLA
SARG14
ST0
1411
CLA
SARG13
---ST O
1311
CLA
SARG12
ST0
1211
SARGll
CLA
---.-- - - - STO
1111
CLA
tARGl0
- -- -- - -- - - ----. .
s ro
10.1
CL A
SARG9
-- --- ---- --UNH
UNG

- -

&--.

m,

>

PAGE 177

BCNNIE-5

B I R T H D A Y ASSEMELY
.
-

17426

0601 00 1 0 0 0 1 1

17431 MOO QQ
17432 C60l 00
17433 0500 nn
17434 0601 00
17435 0500 Ofl
17436 C601 00
17437 0500 00
17440 0601 00
17441 0 5 0 0 00
17442 0601 00
17443 0534 00
1 7 4 4 4 0522 00
17445 -0634 00
1 7 4 4 6 C522 00
17447 0500 00
17450 0601 00
1 7 4 5 1 0020 00
17452 -1 00000

0 03375
1 00007
o 03374
1 00006
0 03373
1 00005
0 03377
1 00004
0 03371
1 00003
4 17364
4 00001
1 02317
0 02414
0 17452
1 77777
4 00002
0 00000

260

ST0

9.1

763
264
7h5
266
7 67
268
269
270

CLA
ST0

SARG7
7rl

ST0
CL A
ST0
CLA
ST0
CLB
ST0
I %A

691

cu

27 1

272
273
2 7 4 MOVD
XEC
775
SXD
276 M
d
m 4YCr
777
C1 A
278
ST0
779
T RA
2 8 0 STRW
STR

S4&5

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

- --

SARGA

5.1
bARG4
4.1

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

.-

--

------ -

-----------

**J

Po'

--

--

--

STRW

-1,l
2.4

**

R F 5 T O R F IR4
XECED TNX DECREMENTS 1 x 1 B U T NO TRANSFER
K EE P C P P I U P T O D A T L A L S D
T E S T FOR OUT OF BPS
C R E A T E . U L U - e A R m 4 5 . 0 B F L B F L - --PUT A T VERY END OF BLOCK
RETURN FROM I I N K
----.

--

_-

-_

-----

-- -

17456 0500
17457 -0734
17460 0131
1 7 4 6 1 0020
17462

00 1 00000
00 4 00000
00000000
00 4 00001

286
287
288
289
290

CLA
POX
kc A
TRA

DECK
1 TOPliOG B S S

094
194

P I C K UP RETURN WORD
RESTORE 1 x 4
RESTORE AC
EX I T
PERMANFNT ATOMS

--- --. -- -.-

-- - -

- .-

---

---

--

---

-- -

.-

--

-.

.-

0
.......

.--.....

PAGE 1 7 8

BONNIE-S

66230
66230

B I R T t i D 4 Y ASSEMeLY

---

---

--

-- - -- --- - --

OOOOOOO.

66427

0 00000 0 00000
0 11352 0 00000
66427

-- -- -- - -

2
EJECT
PEAMANENT OBJECTS START HERE
3
ORG
27800
4 LOWERP BSS
1
LWER L I M I T OF PERMENANT L I S T STRUCTURE
5
**********+**********HEAD
OR H E D ~ * * * * * * * * * * * * * * * * * * * * * : X * _ t ~ - * ? L C 8 9 3 0 0 0
-- _ - _
6 0
HED X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X L C 8 9 3 1 0 0
7
----L C 8 8 9 2 0 0 -- -8
LCHER L I M I T OF PERM. L I S T STRUCTURE
LC889700
9
-~Lcs_s980000"
10
L A S T BUCKET
1.5P8340
11
DUP
1,125
MAKE BUCKELS
---a

66231

--

12

,-*+l

1 3 BUCKET-.
1 4 O B L I S T SYN

9-*+

BUCKET

--- -

-.
- _ _ - --

-."- .-- ----

----

<

P O I N T E R TO BUCKETS
1.5M8380

PAGE 1 7 9

BONNIE-S

~ I R T H D A Y ASSEMBLY

HFAI?

77777
11073
11001
10777
10762
10757
10742
10735
10725
O 10715
0 10675

66445
66446
66447
66450
66451
66452
66453
66454

11337
11331
11330
11327
11326
11325
11374
11323

0
0
0
0
0
0
0

10645
10635
10675
10615
10605
10575
10565
10555

37
33
34
35
36
37
38
39

WR.
.-+-I
CADR, ,'-*-I
CDDR. .-*-I
CAAAR* *-*-I
C A A D R . ,-*-I
CADAR, ,-*-I
CADCR, ,-+-I
CDAAAr t-+-1

11316
11315
11314
11313
11312
11311
11310
11307
11306
11305
11304
11303
11302
11301
11300
11277
11276
11275
11274
11273
11272
11271
11270
11267
11266

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

10450
10430
10323
10440
10420
10365
10343
10261
10241
10231
10177
10167
10157
10152
10142
10135
10130
10120
10113
10103
10076
10071
10057
10037
10077

44
45
46
47
48
43
50
51
52
53
54
55
56
57
58
53
60
61
62
63
64
65
66
67
68

CONSN. r-1-1
COPYN, r - * - I
DUMP. ,-+-I
F12,,-+-1
~ 3 5 -*-l
- 1 J O l . ,-+-I
-1JOZs ,-*-I
EQ, ,-*-I
FE!, ,-*-I
F21, ,-*-I
F19 ,-+-I
EVLISL, ,-*-I
EXPR* ,-*-I
F32 ?-*-I
FEXPR, ,-+-I
FIX, 9-*-1
- 1 1 1 1 ~, - * e l
FLOAT, ,-*-I
-1112, 1-+-1
FSUBRt I-*-1
FUNARG, ,-*-I
FUNCT, ,-*-I
SYMGEfd, (-9-1
GO, ,-+-l
-II3,9-*-1

66461
66462
66463
66464
66465
66466
66467
66470
66471
66472
66473
66+74
66475
66476
66477
66500
66501
66502
66503
66504
66505
66506
66507
66510
66511

0
0
0
0
0
0
0

0
0
0

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

OBLB

---u945on-

- --

RnCPDL2F

--

-------

P N n . .-*-I

- ul. .-*--I

---

----.

LC894600

F l t 9-+-1
F18. .-*-I
APVAL, ,-+-l

-. .- .-- .--

LC894400

-1, ,-*-I
14. .-*-I
ADD 1
-1ALST. ,-+-I

11347
11346
11345
11 344
11343
11347
11341
11340
11337
11336
11335

- .- .

---

---

OBJECT L I S T

0
0
0
0
0
0
0
0
0
0
0

.-

EJECT

66430
66431
66432
66473
66434
66435
66436
66437
66440
66441
66442

0
0
0
0
0
0
0

0
0
0
0
0
0
0
0
0

15
Ih
17
18
19
70
21
77
23
24
25
26
27
78
29

LC894900
L (18--LC895100

--

--

J L Q U Q L L D - _ _ _ - -

ARRAY

ATOP, ,-*-I
F79 .-*-1
CAR t r-+-1

LC895300
I

cws4nn

LC897200

~;9u-a0---

LC911900
I C9L2-000
LC912100
1 2 2 DOOLC912300

.
.

_ -_ ___-

LC912500

----_

- -..
.- - -

-lC897700_.

--

LC898000

--

------ _
CIFFER
DIVIDE

__---

FIX P
FLOAT P

-LC898300
L-00
LC898600
_- - _- L-C&W309-LC898800
-_.
_ -1~98900--LC899000
L C 8 9 9 7 0 0
LC899300
- - -- RDCP01-2_OO-LC899400
RDCPOl2l
-.
LC899500
L C 8 9 9 6 0 0
LC899700

--

GREATEREAN-

--

<
----

LC897900
- - _ LC898100

- - - - - --

- - - --

_-..
--

.-

____

-"

-.-

-_ _ _

----.----

-.ccew_soo

LC899900
_ -1 1- _2
RDCPO

_
-

-.

_-

--

--- -

PAGE 180
66512
66513
66514
66515
66516
66517
66520
66521
66522
66523
66524
66525
66526
66527
66530
66531
66532
66533
66534
66535
66536
66537
66540
66541
66542
66543
66544
66545
66546
66547
66550
66551
66552
66553
66554
66555
66556
66557
66560
66561
66562
66563
66564
66565
66566
66567
66570
66571
66572
66573
66574
66575
66576
66577

BCNNIE-S
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
C
0
0
0
0
0

11265 0
11264 0
11263 0
11262 0
11261 0
11260 0
11257 0
11256 0
11255 0
11254 0
11253 0
11252 0
11251 0
11250 0
11247 0
11246 0
11245 0
11244 0
11243 0
11242 0
11241 0
11240 0
11237 0
11236 0
11235 0
11234 0
11233 0
11232 0
11231 0
11230 0
11227 0
11226 0
11225 0
11224 0
11223 0
11222 0
11221 0
11220 0
11217 0
11216 0
11215 0
11214 0
11213 0
11212 0
11211 0
11210 0
11207 0
112G6 0
11205 0
11204 0
11203 0
11202 0
112Cl 0
11200 0

10015
10005
07775
07770
07746
07736
07716
07646
07636
07626
07614
07604
07574
07564
07544
00000
07534
07524
07514
07472
07455
07435
07415
07405
07365
07355
07335
07320
07300
07260
37270
07250
07240
07226
07216
07206
07140
07130
07174
07150
07052
07042
07032
07022
07002
06772
06733
06647
07101
07072
07061
07110
06743
06726

69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122

F16 9 ,-*-1
LABEL,,-tl
LAMEDA, ,-*-I
LAP, ,-+I
-I14, ,-*-I
L I S T * 9-*-1
LOADAS,-*-1
PMAPCA, ,-*-I
-106989 ,-4-1
-)069A, p-*-1
- 1 17, ,-*-1
- 1 18, ,-*-I
MINUS, ,-*-I
-1116,q-*l
F 3 9 ,-*-I
N I L , ,-1-1
NOT t ,-*-I
NULL* (-1-1
- 1 113, ,-*-I
OBLBA, ,-+-I
-1 19, r-*-1
CR, ,-*-I
F2 9 9-*1
PAUSE* *-+-I.
PLB * ,-+-I
PLUS* ,-*-I
PNAME *-*-I.
F4, ,-*-I
PROG, ,-*-I
PROPO, ,-*-I
-1J05, ,-*-I
CUOTEr ,-*-I
- i J 0 3 , ,-*-1
F13, ,-*-I
- 1 118, ,-+-I
RCLAMI 9-e-l
PRPLCA, ,-*-I
PRPLCD, ,-*-I
- 1 J04, ,-*-I,
RETATM, ,-+-I
SASCO I?-*-I
SRCHI ,-*-I
SET, ,-*-I
SETQ? ,-*-I
F34, ,-*-I
STOP, 9 - * - 1
SUBR* ,-*-I
TRACE, ,-*-I
SMOVE, ,-+-1
SRETUS? ,-*-I
SLIST, ,-*el
SPECAL, 9 - * - 1
-I11599-*-1
F17, ,-*-I

-_

BIRTHDAY ASSEMeLY

--

-- -

RDCPO 113
LC900500

--

LOADER OBJECT

LC900200
LC900300
LC900400

LESS THAN P

.----

- _
-__
- - - ___-

_LC90Ua0
LC901300
LC901400
RDCP0116
RDCPOl17
LC901700
RDCP0125
LC901800
LC902000
LC902200
LC902300
RDCPOl22

MAXIMUM
M I N I MUN
MINUS P

NUMBER P
OBLIST OBJECT
ONE P

PUNCH

t
c

RDCPOl18
LC902600
LC902700
LC902800
LC903000
LC903100
LC903200
LC903500
LC903700
LC9038OL

--

--

---

--

LC903900
QUOTIENT
LC904000
--

REC IP

REMAINDER
RETURN

RDCP0127
LC904200
LC904300
LC904400

--

---- --

LC904800
LC904900LC905000
LC905100
LC905200
L c9052_0_o_o-LC905500

----- - ---

----

---

SUSTRACT 1

-- -. -

---"-----

--

-- - - --

-- -

RDCP0124

- -

- --

LC905600
-

-----

- - ----

.----.-----

-*

- ----

- - ---

- --

PAGE 181

BONNIE-S

BIRTHDAY A S S E M B L Y

66600
hhhnl
66602
66603
66604
6.6.405
66606
66607
66610
66611
66612
3
66614
66615

66616
66617
66620
66621
66622

0
0
0
0
0

o
0
0
0
0
0
0
0
0
0
0
0
0
0

11177
11176
11175
11 174
11173
11177
11171
11 170
11167
Ulh4
11165
11164
11163
11167
11161
11160
11157
11156
11155

0
O
0
0
0

o
0
0
0
0
0
0
0
0
0
0
0
0
0

06716
nn0nl
06671
Oh706
06657
06647
06620
10047
07162
06177
06130
06131
06132
06137
06134
06135
06136
06137
06140

123
174
125
176
127
178
129
130
13 1
137
133
134
135
116
137
138
139
140
141

F30, .-*-I
1 ..-*-I
F27, (-*-1
S Y M . .-*-I.
T I M E S , (-4-1
~ 3 6 .-*-I
.
-IIlO,,-*-1
C G F T . .-*-I
REMPPt ,-*-I
HOQ. .-+-I
HOl, ,-*-I
H07. .-+-I
H03, * - * e l
H04. .-+-I
H05 ,-*-I
H06* .-+-I
H07 1 *-*-I
H I 0 +-*-I
H l l * ,-+-I

- - - --

bl

--

LC905700
*T+

BINARY TRllF ATOM

LC906400

--

LC906500

'

XP~~E~D..-

ZERO P

RDCP0119

_-

I J 1 S l i L 4 1 Q O ------._

RDCP0012
RDCE?QQl3
RDCP0014
15
RDCPOOl6

-.

LC914600
-

--

- R n C P 0 0 J . z RDCP0018

-2l;E!9__RDCP0020

--

--

PAGE 182

BONNIE-S

BIRTHDAY ASSEMBLY

- -

--

--

66666
66667
66670
66671
66672
66673
66674
66675
66676
66677
66700
66701
66702
66703
66704
66705
66706
66707
66710
66711
66712
66713
66714
66715
66716
66717
66720
66721
66722
66723
66724
66725
06726
66727
66730
66731
66732
66733
66734
66735
66736
66737
66740
66741
66742
66743
66744
66745
66746
66747
66750
66751
66752
66753

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
C
0
0
0
0

C
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

11111 0
11110 0
11107 0
11106 0
11105 0
11104 0
11103 0
11102 0
11101 0
11100 0
11077 0
11076 0
11075 0
11074 0
11073 0
11072 0
11071 0
11070 0
11067 0
11066 0
11065 0
11064 0
11063 0
11062 0
11061 0
11060 0
11057 0
11056 0
11055 0
11054 0
11053 0
11052 0
11051 0
11050 0
11047 0
11046 0
11045 0
11044 0
11043 0
11042 0
11041 0
11040 0
11037 0
11036 0
11035 0
11034 0
11033 0
11032 0
11031 0
11030 0
11027 0
11026 0
11025 0
11024 0

06204
06205
06206
06207
06210
06211
06212
06213
06214
06215
06216
06217
06220
06221
06222
06223
06224
06225
06226
10410
11013
10221
10251
10470
07656
07120
07375
10333
073C5
10705
07012
06765
10375
07726
07445
10353
06755
06701
07425
07502
07554
10502
07462
10313
06630
10515
07330
10301
10271
07676
07706
07666
G7310
10211

177
178
173
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
22L
222
223
224
225
226
727
228
229
230

H55 9 ,-*-I
h 5 6 ,-*el
H57 ,-*-I
P60, ,-+-I
--H61, ,-*-I
h62 ,-*-I
H63 r ,-+-I
H641 ,-+-I
l'65 t ,-*-I
h 6 6 ,-*-I
H67 9 ,-+-I
H70 ,-+-I
H71, *-*-I
h 7 2 1 ,-*-I
H73 ,-*-1
H74 ,-*-I
tt75, ,-*-I
H76 9 ,-*-I
H77. *-*-I
PJl,,-*-I
PJ2 9 9-1-1
PJ4, ,-+-I
PJ59 ,-*-I
PJ6 1,-*-1
PJ7 1 ,-*-I
PJ8 ,-*-I
PJ9 ,-+-I
PJ10, ,-*-I
PJ11,,-*-1
PJ12, ,-*-I
PJ14,r-+-1
PJ15, ,-*-I
PJ16, ,-*-I
PJ17,,-*-1
PJ19, ,-+-I
PJ19, ,-+-I
PJ21, ,-+-I
PJ23, ,-*-I
PJ24,*-*-1
PJ25, ,-*-I
PJ26, ,-+-I
PJ27, *-*-I
PJ28, ,-+-I
PJ30r,-*-1
PJ31, ,-*-I
PJ32, ,-*-I
PJ33, ,-+-I
PJ34r ,-*-I
PJ35, 1-*-1
PJ36, ,-*-I
PJ371 ,-+-I
PJ38, t-+-1
PJ39.9-*-1
ERSETO, *-+-I

--

- --

--

--

,
,

--- --

------

--

----- -- -

------

--

- - --

---

---EI?RORSET

-- - --

---<

-_

- .---"-----

RDCP0056
RDCP0057
-RDCP0058
---- - RDCP0059
- --- -- ---- - -- - -- -RDCPOO6O
RDCP0061
- - - -- --RDCP0062
-_-R_w9.!063__
---.- RDCP0064
-- RDCP0065
---- -- - -- ------RDCP0066
RDCP0067
RDCP0068
RDCP0069
RDCP0070
RDCP0071
--RDCP0072
RDCP0073
RDCP0074
RDCP0075
RDCP0076
RDCP0077
RDCP0078
RDCP0079
RDCP0080
RDCP0081
RDCP0082
RDCP0083
RDCP0084
RDCP0085
RDCP0086

----

----

--

--

RDCP0087
RDCP0088
RDCP0089
RDCP0090
RDCP0091
RDCP0092
RDCP0093
RDCP0094
RDCP0095
--- RDCP0096
RDCP0097 -RDCP0098
RDCP0099
--RDCPOlOO
RDCPO1
0
2
RDCP0103
RDCP0104
RDCPOlO5
RDCP0106
- --- "- --RDCP0107
RDCPOlO8
-- -- -- - . -- - RDCP0109
-

-- ---

--

z
9

3
o

--

PAGE 183
66754

BONNIE-S

0 00000 0 07760

231

Bl RTHDAY ASSEMBLY

PVW 1

L A S T OBJECT

.- --- --

--

LEFTSHIFT
?

- - - - - -PAGE 184

BCNNIE-S

--

--

66755 0 11022 0 77777

66756 0 1 1 0 2 1 0 06733
66757 o 11017 o 11020
66760 -3 0 0 0 0 1 0 1 4 4 0 1
6 6 7 6 1 o 11016 o 07335
66762 0 O O O O C C! 11015
66763 0 00000 0 1 1 0 1 4
66764 +212424017777
66765 0 11012 0 77777
66766 0 1 1 0 1 1 0 06733
6 6 7 6 7 0 11007 0 11010
66770 -3 00000 0 1 2 2 1 1
6 6 7 7 1 0 11006 0 07335
66772 0 00000 0 11005
66773 0 11003 0 11004
6 6 7 7 4 212465214523
66775 0 00000 0 11002
66776 +257777777777
66777 0 11000 0 77777
67COO 0 10777 0 07335
6 7 0 0 1 O 10774 0 10776
67002 0 00000 0 10775
67003 -132143316263
67004 0 10773 0 06706
67005 0 on000 G 61262
67006 0 1 0 7 7 1 0 77777
07007 0 10770 0 10103
67010 0 10766 0 10767
6 7 0 1 1 -3 00000 0 15370
67012 0 LO765 0 07335
67013 0 00000 0 10764
67014 0 00000 0 10763
67015 +214524777777
67016 0 20761 0 77777
67017 0 10760 0 06733
67020 0 10756 0 10757
6 7 0 2 1 -3 00002 0 0 7 5 4 1
07022 0 10755 0 07335
67023 0 00000 0 10754
67024 0 00000 0 10753
67025 214747254524
67026 0
67027 0
67030 0
61031 -3
67032 0

10751
10750
10746
00003
10743

0
0
0
0
0

77777
06733
10747
14663
07335

- -- --

--- -- -- - -

-- -- -

BIRTHDAY ASSEMBLY

232
EJECT
233
PROPERTY LISTS
234
235 I 1 1 4
1 9 t-*-1
236
SSUBR, ,-*-I
237
-+-1, ,--2
-238
T XL
ACDl r 9 1
239
SPNAME, ,-+-I
240
-r- 1
241
-*-I
242
OC T
212424017777
243 *
244 I P J 2
-1, ,-+-I
245
SUBR, ,-*-1
246
PZE -+-I, 9-f-2
247
TXL ADVANCsrO
248
PNACE 9 ,-*-1
249
-*- 1
250
-+- 1, ,-a+
251
BCD lADVANC
252
I+
--253
OCT 257777777777
254 +
255 IALST
-1, ,-+I
256
PNAME 9 - * - 1
257
-*-I,
,-+-3
258
-+1
UCT
532143316263
259
260
SYM, ,-*-I
261
-C$ALST
262
1002
-1, ,-*- 1
263
264
FSUBR, ,-*-I
265
-*-I,
,-*-2
266
TXL $EVANO, r O
SPNAME, ,-*-I
267
n- 1
268
269
-+- 1
270
OCT 214524777777
271
272
10~3
-1, ?-*I
273
SUER, 9 - * - 1
-*- 1, ,-*-2
274
275
TXL APPEND, 92
PNAPE ?-*-I
276
-+-I
277
278
-*- 1
279
BCD lAPPEND
200
2 8 1 1004
-1, ,-*-I
282
SUBR, ,-*-I
283
-*-l,c-*-2
284
T X L APPLY, 93
285
PNAME, ,-*-1

--

--

-----

LC915000
LC915100
-------- - -------- RDC80426 - --- - - - --- -ROC80427
~ ~ ~ 3 0 4 2 8
RDC80429
-------.~ ~ ~ 8 0OOO-_--.--~----4 x 0
ROC80431
RDC80432
------ACDl
RDC80433
ROC80434
ADVANCE
RDCP0625
RDCP0637
RDCWOOl2
RDCP0634
RDC80002
RDCP0633
RDCP0628
RDCPO629
RDCP0630
-RDCP0631
----

LC919300
LC919400

SAL IST

-- - --

-- --

LC915800
LC915900
LC916000
LC91610&
LC916200
LC916300
LC916400
LC916500
LC916600
LC916700
LC916800
LC916900
LC917000
LC917100
LC917200
LC917300
LC917400
LC917500
LC917600
LC917700
LC917800
LC917900
--LC918000
LC918100

AND

-- -- --

---

-- ---

--

--

-- - -- -

___------ ------.

---

- --

-- --

F
1

B
6

A
-

PAGE 185

BONNIE-S

67033 0 00000 0 10744

ti7014 n n
m n 111743
67035 +214747437077
67036
67037
67040
~7n41
67042

0 10741 0 77777
0 1 ~ 4 n
0 07375
0 00000 0 1 0 7 3 7
o nmnn n I 0 7 7 6
214765714377

67043
44
67045

o 10733 n a 6 7 3 3
0 10731 0 10732

67047
67050
67051
670-

0 1 0 7 3 0 0 07335
0 00000 0 10777
0 00000 0 10726
7077

0 1 0 7 3 4 0 77777

6 7 0 5 3 0 10724 0 77777
6 7 0 5 4 0 10723 0 0 6 7 3 3
67055 0 1 0 7 7 1 0 10777
6 7 0 5 6 -3 0 0 0 0 1 0 1 5 2 3 0
6 7 0 5 7 0 10720 0 07335
6 7 0 6 0 0 0 0 0 0 0 0 10717
67061 0 00000 0 10716
6 7 0 6 2 +216346447777
67063 0 1 0 7 1 4 0 7 7 7 7 7
67064 0 10713 0 0 6 7 3 3
67065 0 10711 0 10712
67066 - 3 00002 0 10134
6 7 0 6 7 0 10710 0 0 7 3 3 5
6 7 0 7 0 0 0 0 0 0 0 0 LO707
6 7 0 7 1 0 00000 0 1 0 7 0 6
67077
216363513122
6 7 0 7 3 O 10704 0 77777
6 7 0 7 4 0 10703 0 0 7 3 3 5
6 7 0 7 5 0 10700 0 1 0 7 0 2
67076 0 00000 0 10701
6 7 0 7 7 +224321454277
6 7 1 0 0 0 LO677 0 10742
6 7 1 0 1 0 UOOOO 0 10676
6 7 1 0 2 0 00000 0 06207
67103 0
67104 0
67105 0
6 7 1 0 6 -3
67107 0

10674
10673
10671
00001
10670

0
0
0
0
0

77777
06733
10672
15212
07335

67112 +232151777777

BIRTHDAY ASSEMBLY

286
7 ~ 7
288
7R9
2 9 0 1005
791
292
791
294
795
296
111
797
298
300
301
302
303
304 l
705
1007
306
307
308
309
310
311
312
313
314
1008
315
316
3 17
318
319
320
32 1
322 *
3 2 3 1PJ12
324
325
326
327
328
329
330
331 *
332
1011
333
334
335
336
339

-i-1

LC918200

-r- 1

OCT 214747437077

APPLY

-----

-1, ,-*-I
PNAMF..-*-1
-*-I

-----

LC918400
9 1 9 ZaO -

------ --

- -

-+I

Y30/APVALt06/77

VFD

APVAL

-1, * - e l
F ~ I B R .-*-1
.
-+-I, #-r-2

RDC80305

--

SPYAMEI * - + I

ROC80309
'

3
1
0
-i-1
715fi1717077

OCT

ROC80311
ARRAY

--RD1803L3L
RDC80313

-1. .-+-I

SUER,

I C9LpBOO

-- -T X L ATOt"P,*l
PNAMEgd-+-I
-*1
-*- 1
OCT z?bj!4?$$7.,7h7

LC919900
LC-St2_OQQQ_-LC920100

9-1-1

--xL/-LC922500

Lt9126DO__----~~922700
LCWWQ
LC922900
LC923QOO.
LC923100

A TOM

. .

-1, *-*-I
SUBR, .-*-I
-*-I, ,-r-2
TXL ATTRIB. 92
PNAME, I-+-1

-__-

--- -

-IG9.23hO

PZE -1, .-r-1

PZE PNAME, 1-*-1
-el, *-*-3
-c- 1
OCT 224 32 i 4 5 4 2 7 7
APVAL1.p-*-1
-t- 1
H6O

BLANK

232151777777

-- .

_ _-

---

a __-

---- -

ROC80070
RD_C8.0_O071- -.
RDC80072
-__-!!
CBDaI L L _ .
_
RDC80074
R02-8R03---=--RDC80076
---- -HAC50000
HAC50010
-----HAC50020
H450030

--

BCD BLANK

CAR

B I ; L C _ B I Z ( 6 9 - - -

-It*-*-1
SUBR9,-*-1
-*-I
t ,-r-2
CARP t I1
PNAME, ,-+-I

--

,
-

LC923300
-.--CCP2 3 4 0 0LC923500

3CD l A T T R I B

CCT

-"-LGmQ.L---

-+- 1
-+- 1

TXL

--

--

--

.-

_-

----

p
p

----

- -

a
-

----v

_-

- -!Ac5_Q1-5-0

O
.
O
O
O
.

__ . __ __ -

_ _ _--

PAGE 186

BONNIE-S-BIRTHDAY

67153 0 10624 0 77777

6 7 1 5 4 0 10623 0 06733
67155 0 1 0 6 2 1 0 10622
6 7 1 5 6 - 3 0 0 0 0 1 0 11767
6 7 1 5 7 0 10620 0 0 7 3 3 5
6 7 1 6 0 0 00000 0 10617
6 7 1 6 1 0 0 0 0 0 0 0 LO616
67162 + 2 3 2 4 2 4 5 1 7 7 7 7

340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384

67166 -3 0 0 0 0 1 0 11672
6 7 1 6 7 0 10610 0 07335
6 7 1 7 0 0 0 0 0 0 0 0 10607
67171 0 00000 0 10606
67172 + 2 3 2 1 2 1 ? 1 5 1 7 7

389
390
391
392
393

67113 0 1 0 6 6 4 0 7 7 7 7 7
6 7 1 1 4 0 10663 0 0 6 7 3 3
67115
0 1 0 6 6 1 0 10662
6 7 1 1 6 - 3 0 0 0 0 1 0 15222
6 7 1 1 7 0 10660 0 0 7 3 3 5
6 7 1 2 0 0 0 0 0 0 0 0 10657
6 7 1 2 1 0 00000 0 10656
67122 +232451777777
6 7 1 2 3 0 1 0 6 5 4 0 77777
6 7 1 2 4 0 1 0 6 5 3 0 06733
6 7 1 2 5 0 1 0 6 5 1 0 10652
67126 -3 0 0 0 0 1 0 11726
6 7 1 2 7 0 1 0 6 5 0 0 07335
6 7 1 3 0 0 0 0 0 0 0 0 10647
6 7 1 3 1 0 0 0 0 0 0 0 10646
67132 +232121517777
6 7 1 3 3 0 10644 0 77777
6 7 1 3 4 0 10643 0 06733
67135
0 1 0 6 4 1 0 10642
07136 -3 0 0 0 0 1 0 11765
6 7 1 3 7 0 1 0 6 4 0 0 07335
6 7 1 4 0 0 0 0 0 0 0 0 10637
6 7 1 4 1 0 00000 0 10636
67142 +232421517777
6 7 1 4 3 0 10634 0 77777
6 7 1 4 4 0 10633 0 0 6 7 3 3
67145 0 1 0 6 3 1 0 1 0 6 3 2
67146 - 3 0 0 0 0 1 0 1 1 7 3 0
6 7 1 4 7 0 10630 0 07335
0 7 1 5 0 0 0 0 0 0 0 0 10627
6 7 1 5 1 0 0 0 0 0 0 0 10626
67152 +232124517777

ASSEMeLY

-1, ,-+-I
SUBRv ,-+-1
-*19,-+2
.CDRP,rl
PNAME, , - + - I
-*-I
-*-I
232451777777

1012
TXL

OCT
1201

HAC50160
HAC50170
HAC50180
kA250190
HAC50200

---

--

HAC50290
CCR

HAC50310
LA092800
LD092900

------

-l,,-+l
$SUBR, ,-*-I
-+-I, ,-*-2
T XL
CAARXX, 1
PNAh!E,,-*-l
-r- 1
-+1
OCT 232121517777

-__----,--,.--

-l!AE!!QQ

-.----II_--_

s
5

.
-

I202

c
LD093000
LD093200
LD093500
LO093300
LO094400
LO094500

-1, ,-+-I
$SUER, 9-1-1
-9-1, ,-r-2
TXL
CDARXX, , 1
PNAME, ,-*-I

-1, ,-+-I
6SU8K 9 t-+- 1
-+-I, ,-4-2
TXL
CADRXX, 1
PNAME, ,-+-I
-+-I
-*- 1
OCT 232124517777

1204

-1,

LD094600
LD095100

- LO094800
LD094900
LD095900
LO096000
-

.-

-. . CAAAKX, 11
PNAPE 9 9-+-1
-*-I
-u- 1
OCT 232121215177

-- -

-- -

--

a
-

----

- -- -

-- --.

--

--- -- -

--

LD097700
--LD098200
LO097900
LD098000

TXL

--

LD096100
~0096800
LD096300
LO096400
LO097500
LO097600

--

---

---

--

--

-.

,-+-1

SSUBR, ,-*-I
-+1, ,-+-2
TXL
COORXX* 1
PNAME, v-+-1
-+-1
-r-1
OCT 232424517777

----

-+-I
-+-I
OCT 232421517777

1203

LD099200
LO099700
- --- .
LO099400

-- -- --

--

-- .'--

- - .. - -

LDO9950L--

--

- __ -_ ___

--PAGE 187
67177
67174
67176
67177
67200
67701
67202

BONNIE-S
1 0 6 0 4 n 77777
0 1 0 6 0 3 0 06733
lohnl
ln~n7
-3 0 0 0 0 1 0 11705
0 U f d O 0 07775
0 0 0 0 0 0 0 10577
n a n a o n 10576
+232121245177
(1

67203 0 1 0 5 7 4 0 7 7 7 7 7
& 7 2 0 4 0 1 0 5 7 3 0 06777
67205 0 1 0 5 7 1 0 1 0 5 7 2
67706 3 00001 0 1 1 7 1 3
67207 0 10570 0 07335
67710 0 00000 0 10567
6 7 2 1 1 0 0 0 0 0 0 0 10566
67212 +737L?3i35177

67717 0 10564 0 7 7 7 7 7
6 7 2 1 4 0 10563 0 0 6 7 3 3
6 7 2 1 5 0 1 0 5 6 1 0 10562
6 7 2 1 6 -3 0 0 0 0 1 0 1 1 7 2 1
67217 0 10560 0 0 7 3 3 5
6722C 0 0 0 0 0 0 0 1 0 5 5 7
6 7 2 2 1 o ooooo o 1 0 5 5 6
67222 +232124245177
67223 0 1 0 5 5 4 0 77777
6 7 2 2 4 0 10553 0 0 6 7 3 3
67225 0 1 0 5 5 1 0 1 0 5 5 2
6 7 2 2 6 - 3 0 0 0 0 1 0 11737
67227 0 10550 0 07335
6 7 2 3 0 0 0 0 0 0 0 0 10547
6 7 2 3 1 0 00000 0 10546
67232 +232421215177
67233 0 10544 0 77777
6 7 2 3 4 0 1 0 5 4 3 0 06733
67235 0 1 0 5 4 1 0 1 0 5 4 2
6 7 2 3 6 -3 0 0 0 0 1 0 1 1 7 4 4
6 7 2 3 7 0 10540 0 07335
6 7 2 4 0 0 00000 0 1 0 5 3 7
6 7 2 4 1 0 0 0 0 0 0 0 10536
67242 + 2 3 2 4 2 1 2 4 5 1 7 7
67243 0
67244 o
67245 0
67246 -3
67247 0

10534
10533
10531
OOOO1
10530

0 77777
o 06733
0 10532
0 11751
0 07335

t 7 2 5 2 +232424215177

- I. .-+-I

394
395

17i1A

396
398

LO100800
- - - L ~ Y O ~ M L

$SUBR,r-+-l
-+--I. .-+-7
CAADRX ,1

3q7

P N A Y F . .-*-I

400

-*I

-*-

4171

447

--

TXL

199

402
40 3
404
405
406
407
408
409
410
4 11
412
411
414
415
416
4 17
418
4 19
42 0
42 1
422
42 3
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
43 9
440
441
442
443
444

BIRTHDAY ASSEMBLY

--2

~luxnan-.-.LO101500

L-

O C T 232121245177

- - -

LD101300

--LRlQ,?6nQ-------I207

TXl

-1, ,-*-I
Z S W . .-*-I
-*Is
t-*-2
CADARX.. 1
PNAMEst-*-1

-*-

LO102700
"
LD102800
LD103000

LnlQ3U.M

5177

LO 1 0 4 4 0 0
LD104500

)708
SSUBRe ,-*-I
-+-*TXL
CADCRX, 1
PNAMEt 9 - * - 1
-r- 1

-*-

--

aLO105100

OCT 232124245177

~L~~BQIL_-_-__--.~-

LO104900

__

L " 6 2 0
-1

-----

-*-I

LO106400
__-LD.106900-._
LO106600
A l - 0 4 1 9 9
LD107900

-+-I
OCT 232421215177

,-+I

SSUBR, ,-+-I
-+I,
,-*-2
CDADRXs L
TXL
PNAPE, ,-*-1
-r- 1
-+-1
OCT 232421245177
1211

-1, ,-*-I
SSUBR,

--

--

..

-_

- -- -- -

1
-

--___J,QlQ82QQ0
--

,-*-I

--

--

LD108400
LD10%6.0Q -.
LO109700
----- -- -

----

LD109800

0 11 0 1 0 0

---

- -- --- ----- - -- -

u L L o l 8 1o
LO108600

-t-1 r 9 - * - 2
CDDARXy y 1
TXL
PNAME.9-*-I
OCT 232424215177

_ --

. . ~

-+-2
TXL
CDAAQX. 9 1
PNAME, y - *
1

-1,

..

LD106300

,-*-I
BSUBR* 1-*-1
-t-l,,

I210

L L a f m m L - - - -

-r-1

I209

--

- - --

---

_-

--

-..---.
------

.-.--

c >

PAGE 1 8 8

BONNIE-S

67253 0 10524 0 77777

67254 0 10523 0 06733
6 7 2 5 5 0 1 0 5 2 1 0 10522
6 7 2 5 6 -3 0 0 0 0 1 0 1 1 7 6 0
67257 0 10520 0 07335
67260 0 00000 0 10517
67261 0 00000 0 10516
67262 +232424245177
67263 0 10514 0 77777
67264 0 10513 0 07335
67265 0 10506 0 10512
67266 0 1 0 5 1 1 0 10510
67267 0 00000 0 10507
67270 233021512346
67271 -244563777777
67272 0 10505 0 10742
67273 0 00000 0 10504
67274 0 00000 0 10503
67275 -0 6 5 1 4 3 1 7 7 7 7 7
67276 0 1 0 5 0 1 0 77777
67277 0 10500 0 06733
67300 0 10476 0 10477
6 7 3 0 1 -3 0 0 0 0 0 0 1 2 2 0 1
67302 0 10475 0 07335
67303 0 00000 0 10474
67304 0 10472 0 10473
67305 234325215122
67306 0 00000 0 10471
67307 -242626777777
67310 0 10467 0 77777
67311 0 10466 0 07335
67312 0 10463 0 10465
67313
0 00000 0 10464
67314 +234644442177
67315 0 10462 0 10742
67316 0 00000 0 10461
67317 0 00000 0 06222
67320 0 10457 0 77777
67321 0 10456 0 10103
67322 0 1 0 4 5 4 0 10455
6 7 3 2 3 -3 0 0 0 0 0 0 1 5 1 5 4
67324 0 10453 0 07335
67325 0 00000 0 10452
67326 0 OOOOJ 0 10451
67327 +?34645?47777
67330
67331
67332

0 10447 0 77777
0 10446 0 06733
0 10444 0 10445

BIRTHDAY ASSEMBLY

448
449
1212
450
451
452
453
454
455
456
457 +
458
IPJ32
459
460
461
462
463
464
465
466
467
468
469 +
470
1Pd27
471
472
473
474
475
476
477
478
479
/+a0
481 lPJ6
482
483
484
48 5
486
487
488
489
490
I016
491
492
493
494
435
496
497
498
499
1017
500
501

-1, ,-*I
SSUBRt 9 - * - 1
-*l,
,-+-2
TXL
CDDDRX y 9 1
PNAWE, *-*-I
-+-1
-*-I
CCT 2 3 2 4 2 4 2 4 5 1 7 7

BC I
OCT

MZ E

-1 9 ,-*-I ChARCOUNT
PNAME I *-+-I
-+LJ r--5
-*-2,
,-*-I
-1-2
1, CHARCO
BC I CHARCCUNT
644563777777
APVALl J ,-*-I
-*-I
-+l
-1,lr-CHACT

---- - - - --- -- - --- .- -

LO111300
LD111400

-----

----------.-."-

--

LDl11500
LO112000
LO111700
LD111800
HAL50320
HAC50330
HAL50340
HAC50350
HAL50360
HA650370
HA650380
HAC50390
HAC50400
HAC50410

- - ------

--

---- - -- -

5
5

--

HAC50500

--

,-*I
CLEARBUFF
SUER 9-1-1
-+lr
3-4-2
CLEAR
PNAME 9 ,-+-I

HAC50510
HAL50520
HAL505 3 0
HAC50540
HAL50550
-el
HAC50560
-+I
,-+2
,
HAC50570
1,CLEAR8
HAL50580
--*-I
HAC50590
6 4 2 6 2 6 7 7 7 7 7 7 BCD UFF
HAC50600
HAC506 1 0
-1, ,-+-I CGMMA t L ITERAL 1
-- -- HAL50620
PNAME, ,-+-I
HAC50630
-*-I,
,-+-3
HAC50640
--r- 1
HAL50650
234644442177
BCD CGMMA
----HAL50660
APVALl, ,-*-I
HAL50670
-*-I
-- -- - --HAC50680
---H73
HAL50690
HA c 5 m 2 z _ - - -----I,,-+l
HAC50830
FSUBR, ,-*-I
HAC50840
-+-I,
1-*-2
HAL50850
SEVCON, 1 0
HAC50860
-_ -- - --PNAPE, ,-*-I
HAC50870
-+-I
HAC50880
-+-I
HAC50890
234645247777
CGND
-----------=. HAC50900
- ---"HAC50910
- l ~ s - * - l
_ _ ----- - -- -- - ---HAC50920
--SUBRy ,-*-I
HAC50930
-*-I,
,-*-2
--- - - -- HAC50940
-19

TXL

BC I
OC T

OCT

PZ E

TXL

OCT

-------

P A G E 189-

BONNIE-S

------

-- 6 7 3 3 3 -3 0 0 0 0 2 0 0 3 7 3 0
67334 0 10443 0 07335
67335 0 00000 0 10442
67336 0 00000 0 1 0 4 4 1
67337 + 2 3 4 6 4 5 6 2 7 7 7 7

502
507
504
505
506

6 7 3 4 3 -3 0 0 0 0 1 0 0 7 3 4 3
67344 0 10433 0 07335
67345 0 00000 0 10437
67346
0 00000 0 10431
67347 +734701777777

511
512
513
514
515
516
517
518
519
520
57 1
522
523
524
525
526

-- ----

--

--

BIRTHDAY ASSEMBLY
TXL

- ---- -

CONS,,2
PNAMF 1 .-*-I

OCT

--

HAC50950

---

----

HAL51260
-HAf5127-Q_
HAL51280

-el

-*-I
234645627777

E.

-CONS

?
L

-.
-

67350 0 10427 0 77777

67351 0 10426 0 06733
6 7 3 5 2 0 1 0 4 2 4 0 10425
6 7 3 5 3 -3 0 0 0 0 1 0 0 4 3 4 5
6 7 3 5 4 0 1 0 4 2 3 0 07335
67355 0 00000 0 10422
67356 0 00000 0 10421
67357 + 2 3 4 6 4 7 7 0 7 7 7 7

TXL

CPl* t 1
PNAME, ,-+-I
-*-I
-*- 1
734701777777

OCT

H A G S 1 4 2 0
HAC51430
HAC51440
HACS1450
H u 4 6 n
HA651470

CP1

--

a51680

-1. .-+I

1070

SUBRt 1-*-1

*I

-7

LC956800
--LL956900
LC957000
1 C9-0
LC957200

TXL SCOPYtr 1
.
PNAME. .-*-I
-*1
-+- 1
OCT 2 3 4 6 4 7 7 0 7 7 7 7

L C - W L
COPY

LC957400

-k

67360 0 10417 0 77777

1021
-1, ,-*-I
LC957600
6736
0
6
0673
0
r0
.-----67362 0 10414 0 10415
528
-*-I,
,-*-2
LC957800
67363 -3 00000 0 04057
529
TXL COUNTirO
-_IS;P19-!- . _ --67364 0 10413 0 07335
PNAME, p - * - 1
LC958000
530
67365 0 00000 0 10412
--c- 1
.-LC9
58190- -531
532
r- 1
67366 C 00000 0 10411
LC958200
533
OCT 2 3 4 6 6 4 4 5 6 3 7 7
COUNT
67367 +234664456377
r n - 8 2 0 L
534
RDCP0606
67370 0 10407 0 77777
535 ) P J l
-1 9 ,-*-I
CURChAR
_!PO-.O Z
--- -- _ -- -- -67371 0 10406 0 10742
536
APVALlr ,-*-I
RDCP0608
6 7 3 7 2 0 10405 0 6 5 1 4 5
537
-CURL19 (-1-1
R P L P 0 6 - 0 9- 67373 0 10404 0 07335
538
PNAWE, 9 - * - 1
RDCP0611
67374 0 10377 0 10403
539
-*-I,
1-*->
RDCPO617
6 7 3 7 5 0 104C1 0 1 0 4 0 2
540
-+-I, ,-+-2
RDCP0613
67376 236451233021
54 1
BCD lCURCHA
_ - .-. D - 0 6 1-4-- - -- 67377 0 00000 0 10400
542
-*l
RDCP0615
67400 -117777777777
543
OCT 5 1 7 7 7 7 7 7 7 7 7 7
RDCP0616- --07401 0 10376 0 07110
544
SPECAL, 9 - * - 1
67402 0 00000 0 65144
545
-CURL
- --

--

6 7 4 0 3 11 l u 5 r f t u r r r r r
67404 0 10373 0 10742
67405
0 10371 0 10372
67406
0 00000 0 06167
67407 0 10370 0 07335
6741C C 0 0 0 0 0 0 1 0 3 6 7
67411 0 00000 0 10366
67412 +242162307777

547

548
549
550
551
552
553
554

I P J L ~

-I,,-+l
APVALlr *-*-I
PZE -*-1, ,-*-2
H40
PNAFE, 9 - 4 - 1
-i
1
-*- 1
GCT 2 4 2 1 6 2 3 0 7 7 7 7

CASH

--

-R_OC8009L - -_
RDC80105
RDCWOO14
-6.L O T F ) I l l n .7
a m O ! ? - "
RDC80106
- -RDCBOlQO
RDC80101

--- - - -

--

BCD C A S P

- ---

---- --

- .-

- - -- - - .----- --- PAGE 1 9 0

BCNNIE-S

67413 0 10364 0 77777

67414 0 10363 0 06733
67415 0 1 0 3 6 1 0 1 0 3 6 2
6 7 4 1 6 -3 0 0 0 0 2 0 1 3 5 1 2
67417 0 10360 0 07335
67420 0 00000 0 10357
67421 0 10356 0 10355
67422
0 00000 0 10354
6 7 4 2 3 2'3126262551
67424 +254523257777
67425 0 10352 0 77777
67426 0 1 0 3 5 1 0 06733
67427 0 10347 0 10350
6 7 4 3 0 -3 0 0 0 0 1 0 1 2 3 3 7
67431 0 10346 0 07335
67432 0 00000 0 10345
67433 0 00000 0 10344
67434 +243127316377

---- -

---

- --

BIRTHDAY ASSEMeLY

556
IJOl
557
558
559
560
561
562
563
564
565
566 +
567 IPJ19
568
569
570
571
572
573
574
575
576
IJ02
577
578
579
580
581
582
583
584 *
585 I P J l O
586
587
588
589
590
591
592
593 *
5 9 4 DMPC3
595
596
597
598
599
600
60 1
602
)PJ30
603
604
605
606
607
608
609

TXL

BC I
GC T

-1, ,-+I
SSUBR,r-+-1
-*l,
,--2
DIFFER, 9 2
SPNAME, ,-+l
-+- 1
-*-2,
,-*- 1
-+-2
1vDIFFER
254523257777

--

-- -- --

------

--

-.--

--- -

-------

-----------.

--- -

- --

----

DIFFERENCE

-1, ,-*I
SUBR, I-+-1

DIGIT

ROC80 1 2 7
ROC80 1 3 2

67435 0 10342 0 77777

67436 0 1 0 3 4 1 0 06733
67437 0 10337 0 10340
6 7 4 4 0 -3 0 0 0 0 2 0 1 3 4 2 0
67441 0 10336 0 07335
67442 0 00000 0 10335
67443 0 00000 0 10334
67444 243165312425
67445
67446
67447
67450
67451
67452
67453
67454

0 10332 0 77777
0 10331 0 07335
0 10326 0 10330
0 00000 0 10327
244643432151
0 10325 0 10742
0 COO00 0 1 0 3 2 4
0 COO00 0 0 6 2 0 2

67455 0 1 0 3 2 2 0 7 7 7 7 7
67456 0 1 0 3 2 1 0 0 6 7 3 3
67457 0 10317 0 10320
6 7 4 6 0 -3 0 0 0 0 4 0 1 0 7 3 6
67461 0 10316 0 07335
67462
0 00000 0 10315
67463 0 00000 0 10314
67464 +246444477777
67465 0
67466 0
67467 0
6 7 4 7 0 -3
67471 0
67472 C
67473 0

10312
10311
10307
00000
10306
00000
10304

0
0
0
0
0
0
0

77777
06733
10310
12273
07335
10305
10303

ROC80134
RDC80128
ROC80133
ROC80130
ROC80131
ROC80050

TXL C I G I T v , l
PNAME, ,-*-I
-*-I
-+1
OCT 2 4 3 1 2 7 3 1 6 3 7 7

TXL

BC I

6
0

-1, ,-*-I
$SUER,,-*-I
-*-I,
,-46-2
D I V IDEv9 2
JPNAME, ,-*-I
-*- 1
-+- 1
lrDIVICE

-1, 9-+-1
PNACE, ,-+-I
- + - I r ,-++-3
-*- 1
BCC LOOLLAR
APVALl, ,-*-I
-+- 1
h53

--

COLLAR

RDC80051---------~
ROC80052
ROC80053
ROC80054
ROC80055
ROC80056
-ROC80057
RDC80058

--

--

TXL

-1, ,-*-I
SUBR, , - + e l
-+-I,
,-+-2
DUMPXX, r 4
PNAME, , - + - I
-+1
r- 1
246444477777

OCT

TXL

-1, ,-+I
SilBR, , - * e l
-*-I,
-+-2
ENDRED
PNAME, 9-+-1
-*-I
-+-2, ,-a-1

_ _-

___--_______I--_-____

--

-DUMP

--

A
u
-

ENDREAO

--------

ROC80199
RDC80200
ROC80207
ROCW0024
RDC8OZO9
f!Dc2E!? l__
RDC80208
ROC80203

----

---_ -- .- -

--PAGE 191

BONNIE-7-61

R T H O A Y ASSEMBLY

- -- -- - .

..

67675
75657451 7571
67476 + 2 4 7 7 7 7 7 7 7 7 7 7
67477

0 10300 0 7 7 7 7 7

1
6 12
61-4
614
A1

RfT

I.F

OCT

247777777777

67507
67510
67511
67512

a
0
0
0

10770 n 7 7 7 7 7
10267 0 1 0 7 4 2
10765 0 1 0 7 6 6
00000 0 0 6 2 2 1

616
~

618
6 19
620
h71
622
7
624
615
626

-+-I,

- --

67517 0 10260 0 77777

6 7 5 2 0 0 10257 0 0 6 7 3 3
6 7 5 7 1 0 10255 0 1 0 7 5 6
67522 -3 00002 0 1 5 4 4 5
67523 0 10254 0 0 7 3 3 5
67524 0 03000 0 1 0 2 5 3
67525 0 00000 0 1 0 2 5 2
67526 +255077777777
67527
67530
67531
67532
67533
07534
67535
67536

0 10250 0 7 7 7 7 7
0 10247 0 0 7 3 3 5
0 10244 0 1 0 2 4 6
0 00000 0 1 0 2 4 5
255062312745
0 10243 0 1 0 7 4 2
0 00000 0 1 0 2 4 2
0 00000 0 0 6 1 4 2

67537 0 10240 0 7 7 7 7 7
07540 0 10237 0 0 6 7 3 3
6 7 5 4 1 0 10235 0 1 0 2 3 6
67542 -3 00002 0 0 4 4 6 1
67543 0 10234 0 0 7 3 3 5
67544 0 00000 0 10233
67545 0 COO00 0 1 0 2 3 2
6 7 5 4 6 +255064214377
67547 0
67550 0
67551 0
67552 -3

10230
10227
10725
00001

0
0
0
0

77777
06733
10226
02071

628
629
630
63 1
632
633
I030
634
635
636
637
638
639
640
64 1
642 lPJ5
643
644
645
646
647
648
649
650
651
lo32
652
653
654
655
656
657
658
659
660
I034
661
662
663

-.
4

R n c n n 3

J
1

- - B O W 25 0

-a-1

ROC80256

754426777777
-1.

- t m L e C l L - -

B C n FOF

ROC80255
RUm75R
ROC80263

.-+-.I

APVAL 1, * - + - I
-*-I, ,-*-7
H72

ROC80261
R n W h h
RDCP0510

-r- 1

OCT 254651777777
~

LC959600

-LC959700
-_____-....--LC959800

---

-*-I

EO

---

--

LC961400
461500- LC961600

-LC9

EQS I GN

6LZaQ_-

PNAt.(E.>-+-l

-- --

_-

---------.

.-

ROC80006
A D L B Q C l O K
Roc80008

-*-I,
,-+-3
-+I

--

--.
--

--

-__ilDC&(IQL

B C I 1,ECSIGN
APVAL1, ,-*-I

ROC80010

- -R

-a-1

ROC80012
R.DG800-L3--LC962600

H13

-1, ,-+-I

SUER ,-+-1
-+- 1, ,-*-2
T X L EQUAL,,2
PNAME, 9 - 1 - 1
-*-I

- __.-LmZ

----

- .-

00

LC962800

C C - W - L -----

-+- 1
-1 9 ,-*-I
SUBR, ,-*-1
-1-1, ,-1-2
TXL E R R C R l r p l

-LC459500=

SUERSr-1-1
-*-I
-1-2
T X L EQP i , 2
PNAMEt.-+l
-+1

OCT 255064214377

LC959400

- 1, ,-*-I

-1, ,-*-I

--

- - - _ R n W L p p

-+-I

OCT 255077777777

RDC80264
- --

.-+-I

6 7 5 1 4 0 00000 0 1 0 2 6 3
67515 0 00000 0 1 0 7 h 7
67516 +254651777777

s n r . R Q 2 5 . 4 _ _ - _ _ _ - _ _ _
ROC80248

PNAP'E* 9 -*-1
-+l

1p.115

,-4t-2
HI 7

OCT

ROC80247

.-*-1
6 7 5 0 1 0 10275 0 1 0 2 7 6
67507
o ~ o n n nn n ~ 1 4 t
675C3 0 10274 0 0 7 3 3 5
67504 o O D O O O a i n 7 7 3
67505 0 0 0 0 0 0 0 1 0 2 7 2
67506 +754h76777777

EOF

-1.9-*-1

ROC80206

R
lPJ34

--

F W F A

LC963000
L-C~~%L.-~O
0
LC963200
LC963300
LC963400

EQUAL

----

--

--

--

--- --

---w99_
-.-__----_
LC963600
__
LC963700 -_
- - ..-LC963800
.
.
.LC 9619_!20 -_-- -_

--_

- -.

*I
-2

PAGE 192

BONNIE-S

67553 0 1 0 2 2 4 0 0 7 3 3 5
67554 0 0 0 0 0 0 0 1 0 2 2 3
67555 0 0 0 0 0 0 0 1 0 2 2 2
67556 + 2 5 5 1 5 1 4 6 5 1 7 7
67557 0 10220 0 7 7 7 7 7
67560 0 10217 0 06733
6 7 5 6 1 0 10215 0 1 0 2 1 6
67562 - 3 00000 0 123ft6
67563 0 1 0 2 1 4 0 0 7 3 3 5
67564 0 00000 0 10213
67565 0 00000 0 1 0 2 1 2
67566 2 5 5 1 5 1 4 6 5 1 0 1
67567 0 1 0 2 1 0 0 7 7 7 7 7
67570 0 10207 0 06733
6 7 5 7 1 0 10205 0 1 0 2 0 6
67572 -3 0 0 0 0 3 0 1 1 5 6 0
67573 0 10204 0 07335
67574 0 00000 0 1 0 2 0 3
67575 0 1 0 2 0 2 0 1 0 2 0 1
67576 0 00000 0 1 0 2 0 0
67577 255151465162
67600 +256377777777
6 7 6 0 1 0 10176 0 7 7 7 7 7
67602 0 10175 0 0 6 7 3 3
67603 0 10173 0 1 0 1 7 4
6 7 6 0 4 - 3 00002 0 1 5 4 5 4
67605 0 10172 0 0 7 3 3 5
67606 0 0 0 0 0 0 0 1 0 1 7 1
67607 0 00000 0 10170
67610 +256521437777
67611 0 10166 0 77777
67612 0 10165 0 0 6 7 3 3
67613 0 10163 0 1 0 1 6 4
67614 -3 00002 0 1 5 7 7 4
67615 0 10162 0 0 7 3 3 5
67616 0 0 0 0 0 0 0 1 0 1 6 1
67617 0 0 0 0 0 0 0 1 0 1 6 0
67620 + 2 5 6 5 4 3 3 1 6 2 7 7
6 7 6 2 1 0 10156 0 7 7 7 7 7
67622 0 10155 0 0 7 3 3 5
6 7 0 2 3 0 OOOGO 0 1 0 1 5 4
67624 0 Oo000 0 1 0 1 5 3
67625 +256747517777
67626 0
67627 0
67630 0
67631 -3
67631 0

10151
10150
10146
OC002
10145

0
0
0
0
0

77777
06733
10147
13530
07335

- -- - -

BIRTHDAY ASSEMBLY

664
665
666
667
668
669 lPJ4
670
671
672
673
674
675
676
677 *
678
lPJ41
679
680
681
682
683
684
685
686
687
688
689 I 0 3 5
690
691
692
693
694
695
696
697
698
1036
609
700
701
702
703
704
7C5
706
1037
707
708
709
710
711
712
713
1038
714
715
716
717

PNANE, -*-I
1
-*-I
OCT 255151465177

LC964000
LC964100
LC964200
LC2643OL- RDCP0635
---ROCP0636
---------ROC80000
R o _ c C ~ C 1 o - u --~-- _ - -*--- -.ROC80004
RDCP0637
RDC80001
RDCP0639
-_
-ROCP0640

-4t-

-1, ,-*-I
SUBR, ,-*-I
PZE -*-I
9-i-2
TXL EROR1,,0
PNAME ,,-*-1
-i-1
-*- 1
BCD lERRORl

ERROR

---

----h-------

ERROR 1

a
-

I
-

P
4
5

-1. ,-*-I
SUER* ,-*-I
-+-I, ,-+-2
ERRSET* t 3
PNAME. r-*-1
-x- 1
-t-2, ,-*-I
-r-2
1. ERRORS
256377777777

TXL

BC I
OCT

ERRORSET

--

-1, ,-*-I
SUBR, ,-*-I
-*-I,
,-*-2
TXL EVAL,,2
PNAME, ,-*-I
-u-

--

-*-I
OCT 256521437777

------ -- - --

-+-1
EVL I S

-1, 9 - * - 1
PNAME 1 ,-*-I
-*-I
-*-1
OCT 256747517777
-1, ,-*-I
SUBR.,-*-1
-*-I,
,-4-2
TXL tXPT,,2
PNAPE, ,-*-I

--

.
.

&VAL

-1, 8 - * - 1
6SUBRv 9 - 4 - 1
-+-1, ,-*-2
TXL ZEVLIS, ,2
SPNAME, ,-*-I
-+-I
CCT 256543316277

LC964400
LC964500
LC964600
LC964700
LC964800
--LC964900
LC965000
LC965100
LC965200
LC965300
LC965400
LC965500
LC965600
LC965700
LC965800
-- LC965900
--LC966000
LC966100
LC966200
LC966300
LC966400

--

----

--

---

--

-- --- -.-

----

LL966-500pLC966600

- --

LC96670L
LC966800

--

LC9_66900
LC967000
LC967100
-- LC967200
L_C_9Go_O

--

."

*---

.--

--

PAGE 193

OGNNIE-S

67633

0 00000 0 1 0 1 4 4
0 10141
6 7 6 3 5 +256747637777
67636 0 1 0 1 4 1 0 7 7 7 7 7
6 7 6 7 7 0 10140 0 0 7 3 3 5
67640 0 00000 0 1 0 1 3 7
67641
n o m o 10136
67642 + 2 6 2 5 6 7 4 7 5 1 7 7

718
71 9
720
77 1
722
77 3
724
775
72 6

67644
67645

779
730

34

-+-1

--

EXPT

-. -

LC967600
L t P b B m
LC968900

--1, ,-*-I
P N U . .-*-I
-*-I

LL9-

LC969100
I

-4-1

OCT 262567475177

FEXPR

c-nn

LC969300
-

PNAME. .-*-I
-r- 1

LC969600
LC969700

on
67647 +263167777777

732

OCT 263167777777

FIX

LC969900

67657 +263167477777

741
742 +

OCT

FIXP

RDC89404
RDC80405

67662 0 00000 0 1 0 1 1 5
67663 0 00000 0 1 0 1 1 4
67664 +264346216377

745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771

67665
0 10112 0 7 7 7 7 7
67666 0 1 0 1 1 1 0 0 6 7 3 3
67667 0 101'27 0 1 0 1 1 0
6 7 6 7 0 -3 0 0 0 0 1 0 1 4 4 5 3
6 7 6 7 1 0 10106 0 0 7 3 3 5
67672 0 00000 0 1 0 1 0 5
67673
0 00000 0 1G104
67674 264346216347
67675 0 10102 0 7 7 7 7 7
67676 0 1 0 1 0 1 0 0 7 3 3 5
67677 0 OCOOO 0 1 0 1 0 0
67700
0 00000 0 1 0 0 7 7
6 7 7 0 1 +266264225177
67702
67703
67704
67705
67706
67707
67710

0 10075 0 7 7 7 7 7
0 10074 0 0 7 3 3 5
0 00000 0 1 0 0 7 3
0 '00000 0 1 0 0 7 2
266445215127

0 lGC70 0 7 7 7 7 7
0 1C067 0 1 0 1 0 3

263167477777

-*-I

BCI

FLOAT

ZSUBXy ,-*-I
-*-I, ,-+2
FLOATPI 1
SPNAME, ,-*-I
-*-I
-+- 1
1, FLOATP

1044

-1, ,-+-I
PNAPE9,-+-I
-*- 1
-+-I
O C T 266264225177

--

---- --

FSUBR

BPNAME, ,-+-I

-+- 1
1

-i-

1045

-1, ,-*-I
FSUBA, ,-+-I

LC970600
A&BQ4Ob4
RDC80407
RDC-8-0448
.
RDC80409
R DL80410
RDC80411

- . -.
-.-- - .
.-

FUNARG

--

---

- - - --

- ---.--------

2 - 2

-1, *-*-I

8CD lFUkARC

-- - --

1043

LC970400

- 1. .-+-I
TXL

-LC97O3O0

-+-I
OCT 264346216377
I112

u19615aa----

1
OCT 256747637777
1040

LC967400

-*-

- .

0 I O U 3 0 07115
0 00000 0 1 0 1 3 2

--

BIRTHDAY ASSEMELY

RDC80413
.R DC8!24.14__
- - - .-- - .LC970700
LC970800
LC970900
L C e J t h O *
-.-----..
--LC971100
LC971200
LC971300
L(3T!&!u__--.-LC971500
Q!9tL_
_I--.----..-999LC971700
..
.- LC971800
------ --- ----- - LC971900
LC972000
----

-PAGE 1 9 4

BONNIE-S

-.

-- --. .-.---- -....-..-

.--

67711 0 10065 0 10066

6 7 7 1 2 -3 0 0 0 0 0 0 1 5 2 5 0
67713 0 10064 0 07135
67714 0 00000 0 10063
67715 0 1 0 0 6 1 0 10062
67716 266445236331
67717 0 00000 0 10060
67720 -064577777777

67723 0 10053 0 10054

67724 -3 00000 0 10174
67725 0 10052 0 07335
67726 0 00000 0 1 0 0 5 1
67727 0 00000 0 10050
67730 272545627044
67731 0 10046 0 77777
67732 0 10045 0 06733
67733 0 10043 0 10044
67734 - 3 00002 0 11771
67735
0 10042 0 07335
67736 0 00000 0 10041
67737 0 00000 0 1 0 0 4 0
67740 +272563777777

67743 0 10033 0 10034

6 7 7 4 4 -3 0 0 0 0 1 0 1 6 2 7 6
67745 0 10032 0 07335
67746 0 00000 0 1 0 0 3 1
67747 0 00000 0 10030
67750 +274677777777
67751 0
67752 0
67753 0
6 7 7 5 4 -3
67755 0

10026
LOO25
10023
00002
10022

0
0
0
0
0

77777
06733

10024
14433
07335

772
773
774
775
776
777
778
779
78C

-4-1, *-*-2
TXL $LAMP, 10
PNAME, 9 - i - 1
-u- 1
-1-1, (-+-2
BCD l F U K C T I

783
784
785
786
737
788
789
790
791
792
793
794
795
796
797
798

-+-1, t - i - 2
TXL GENSYMI~O
$PNAMEt,-*-l
-+-I
-*- 1
BCD lGENSYM

801
832
803
804
805
806
807
808
809
810
811
812

----- -

...---

--

-..-

BIRTHDAY ASSEMeLY

-*1
OCT 4 6 4 5 7 7 7 7 7 7 7 7

LC972100
LC972200
LC972300
LC972400 LC972500
LC972600
-LC972700

c
I

-! 2 ! 7 2 8 0 0----.--------__.

0N

LC972900

1231

-1, ,-*-I
SUBR* *-*-I
-&I,
1-+-2
TXL CbGET,,2
PNAME 1 I-*-1
-i-1
-+-I
OCT 2 7 2 5 6 3 7 7 7 7 7 7

-*-I
,-*-2
GOGGGO, I 1
?NAP *-*-I
-+-I
-+-I
OCT 2 7 4 6 7 7 7 7 7 7 7 7
TX L

LC973200
LC973300
LC973400
LC973500
LC973600
LC973700
LC973800
LO127000
LD127100
LO127200
LD127300
LD127400
LD127500
LO127600
LD127700
LD127800

GET

67762 -114777777777

8 17
818

UC T

5 14777777777

6 7 7 6 5 o i o o i i o 10012
6 7 7 6 6 -3 0 0 0 0 1 0 0 6 4 2 0
67767 0 10010 0 07335
67770 0 00000 0 10007

a21
822
823
824

- + - l t ,-+-2
TXL I N T R N l t 9 1
PNAME t 1 - * - I

-+-I

-- --.--LC974900
LC975000
LC975100
LC975200
ROC80323
RDC80324
ROC80325
ROC80326
ROC80327

G0

-1, t-1-1
SSUBR, I-*-1
-+-I,
t-*-2
GRTRTP, 2
BPNAME, 1-I-1

TXL

6
6

G O T O GO FSUBR

-I13

--

GREATERP

R DC 8 0 3 2
LC976700

--

~~977000
LC977100
- _!&?77200_
__ _-LC577300

-._

.-

P A G E 195

RONNIE-S

67772
67773
67774
67775
67776
67777
70000
7C001
70002
70003
70004
70005
70006
70007

314563255145
0 10004
innnq
0 10001
3 anono
0 I0000

0 77777
o iolnq
0 10002
a 15764
0 07335
n ononn o 0 7 7 7 7
0 00000 0 07776
0 3 7 W 4 3 7 7

0 07774 0 77777
0 07773 0 07335
0 00000 0 07777
0 00000 0 07771
432144272421

70010 0 07767 0 77777

70011 0 07766 0 06733
70013
0 07764 0 07765
70013 - 3 0 0 0 0 2 0 1 6 3 2 1
70014
0 07763 0 07335
70015 0 00000 0 07762
70016 0 00000 0 0 7 7 6 1
70017 -032147777777
70020 0 07757 0 77777
70021 0 07756 0 06733
70022 0 07754 0 07755
70023 -3 00002 0 1 2 7 6 0
70024 0 07753 C 07335
70025
0 GOO00 0 0 7 7 5 2
70026
0 07751 0 07750
70027 0 0 0 0 0 0 0 0 7 7 4 7
70030 432526636230
70031 +312663777777
70032
0 07745 0 77777
70033
0 07744 0 06733
70034 0 07742 0 07743
70035 -3 0 0 0 0 2 0 1 4 4 4 3
70036 0 0 7 7 4 1 0 0 7 3 3 5
70037
0 00000 0 07740
70040 0 00000 0 0 7 7 3 7
70041 -032562624777
70042 0 07735 0 77777
70043 0 07734 0 10103
7 0 0 4 4 0 07732 0 0 7 7 3 3
70045 -3 0 0 0 0 0 0 1 5 7 7 4
70046
0 07731 0 07335
70047 0 00000 0 07730
7 0 0 5 0 0 OOCOO 0 0 7 7 2 7
70051 -033162637777

BIRTHDAY ASSEMELY

826
R77
828
1054
879
830
~ 3 1
832

BCD lINTERN

-1, ,-el
F S I I B R , .--1
TXI

--

LC977700

--

-+-1,,-*-2
I ARP,.n
PNAME,,-+-1

LC977900

-_____--_--Lc~LsM~_

LC978300
-.._1l9184011-----~
LC978500

I 4BEL

-1. .-+I
-*-I
BCD 1LAMBDA

.-LC979_(rQL

--

---

- --- -

-. .- .-

-- - --

TXL

DC I
OCT

TXL

OCT

-1, ,-*-1
bSIJBR, ,-+-1
-+-1, ,-+-2
LESSTP, 2
6PNAMEt r - c l
-+-I
-*-I
432562624777

LAP

BCIJa3M

.-....---

?
----

-1,,-*-1
SUBR?,-*-I
-+I?
,-*-2
LSHIFT, 92 PNAME, ,-*-I
-r-1
-t-2, ,-+-I
-+2
lrLEFTSH
312663777777

LC978700
LcXu.300
LC978900

-+-I

-1. ,-+I
SUER, ,-*a1
-*-I,
.--2
CSLAP,, 2
PNAMEI ,-*-I
-+-I
-+-I
432147777777

. .'

U 9 1 8 4 L

PNAME ,-*-I

OCT

-,

LC97810 0

1t97~7on

-+- 1
OCT 4 W 7 7 . 5 4 3 7 7

TXL

.- $

__-_U;971.8&

-*--I

u33

834
835
836
lQ+5
837
838
839
840
841
842
843 )LAP
844
845
846
847
848
849
850
851
852 PVVl
853
854
855
856
857
858
859
860
861
862
863
I14
864
865
866
867
868
e69
870
@ 7 1+
872
1057
873
874
875
876
877
878
879

- 5

LC977500

LC9-326M.

LEFTSHIFT

RDC70310
ROL7932Q
ROC70330

---

..
.
p
p
.
.

---

....

.-.

ROC70350
~~~~~~~0.l~.l-.l.-l
RDC70370
R.QL7Q3-8.0
ROC70390

--_2!~7~4Q.&_-.

--

.- .

--

LC979100
R0 0 aRDC80335
R0_C-80356
RDC80337

--

-,-

..-.

R D . C 8 3 38
ROC80339

---"-.-r

LESSP

n-4~

-. --..

-IZ_-IZ_-IZ_.-IZ_-IZ_.

RDC80341
ROC80342
---LC979200
LC979300
LC979400
G9719'Q_"
LC979600
LC979700
.
.- ---LC979800
LCf!?8_3_00_ . .
--

-1, ,-+-I
FSUBRI1-*-1
-*-I,
,-*-2
TXL EVLIS, 10
PNAI'E, ,-*-1
-t- 1
-r-1
OCT 433 162637777

----

-.-

we---

-.

LI

sr

.-

. -- .
.-

---

...
-

--

-----... ..

-- --- .- - .
-__

-.--

PAGE 196

BONNIE-S

70052
0 07725 0 77777
70053 0 07724 0 06733
70054 0 07722 0 07723
70055 - 3 0 0 0 0 1 0 1 2 3 2 1
70056
0 07721 0 07335
70057
0 OCOOO 0 07720
70060 0 00000 0 07717
7 0 0 6 1 -033163255177
70062 0 07715 0 77777
70063 0 07714 0 06733
70064 0 07712 0 07713
70065 -3 00000 C 77724
70066 0 0 7 7 1 1 0 07335
70067 0 00000 0 07710
70070 0 00000 0 07707
70071 -034621247777
70072 0 07705 0 77777
70073 0 07704 0 10103
70074 0 07702 0 07703
70075 - 3 00000 0 1 2 6 7 6
70076 0 0 7 7 0 1 0 07335
70077 0 00000 0 07700
70100 0 00000 F 07677
70101 434627214524
70102 0 07675 0 77777
70103
0 07674 0 1 0 1 0 3
70104 0 07672 0 07673
70105 - 3 00000 O 12662
70106 0 0 7 6 7 1 0 07335
70107
U 00000 0 07670
70110 0 00000 3 07667
7 0 1 1 1 -034627465177
70112
0 07665 0 77777
70113 0 07664 U 10103
70114
0 07662 0 07663
70115 - 3 00000 0 12712
70116 0 07661 0 07335
70117 0 00000 0 07660
70120 0 00000 0 07657
7012 1 434627674651
0 07655 0 77777
70122
70123 0 07654 0 07335
70124 0 0 7 6 5 1 0 07653
70125
0 00000 0 07652
70126 -034721517777
70127 0 07650 0 10742
70130 0 00000 0 07647
70131
0 00U00 0 06223

BIRTHDAY ASSEMBLY

880
881 lPJ17
- 1 s ,-*I
882
SUER* 9 - * - 1
883
PZE -*-I
9 9-*-2
884
T X L LITER991
885
PNAME, r - r - 1
886
-t-1
887
-*- 1
888
O C T 433163255177
889
890
1234A
-1 v *-*-I
891
SUBR I,-*-I
892
-*l,
,-*-2
893
TXL LOACER,,O
894
PNAME I ,-*-I
-*-I
895
-i-1
396
897
OCT 434621247777
LOAD
898
899
)PJ37
-1. ,-*-I
900
FSUBR, 1-+-1
901
-*-I,
,-*-2
902
TXL
LOGAN0
903
PNAME. *-*-I
904
-+-I
905
-+1
906
DC I
1r LOGAND
907
908
lPJ36
- 1 9 *-*-I
909
FSUBK, ,-*-I
910
-*-1, ,-.-2
911
TXL
LOGCR
912
PNAME, ,-*-I
913
-+l
914
-*-I
915
OCT
434627465177
916 *
917
IPJ38
-1, ,-*-I
918
FSUBR, ,-+-I
919
-+-I, ,-*-2
920
TXL
LOGXOR, 9 0
921
PNAME, ,-*-I
922
--1
923
1
924
BC I
1, LCGXOR
92 5
926 1PJ7
-1, *-*-I
927
PNAt'E,,-*-1
-u- 1, ,-+-3
928
929
-41
930
GCT 434721517777
931
APVALl, (-4-1
932
-+- 1
933
H74

--

---

LITER

----------*--

--

----

LOGAND

LOGOR
---

--- -

---

--

- ----

-- -- .-- - - - --

- ---

ROC80293
RDCW0027

--

BCD LPAR
-

--

--

--

--RDC8003 1

9
L

--

--

------

RDC80023 -ROC80024
ROC80025
RDC80026
RDC80027--ROC80028
-ROC80029
-- .--- ROC80030

R D C * 0 2 8 L - - ~ - . - -

L PAR

RDC80272

-.-

RDC80108
RDC80109
ROC80114
---- RDCW00 15 -- RDC80116
ROC8011 0
ROC80115
RDC80112
-. -- ----....-.--RDC80113
LC980000
-LC980100
LC980200
LC980300
LC980400
LC980500
LC980600
LC980700
LC980800
RDC80276
RDC90277
RDC80282
ROCW0026
RDC80284
ROC80278
ROC80283
ROC80280
RDC80281
ROC80265
ROC80268
ROC80273
RDCW0025
RDC80275
RDC80269
RDC80274
ROC80271

- _-

BCC LCGOR
LOGXOR

---

----

".-- -

- - - --

--- --

--

PAGE 197

BONNIE-S BIRTHOAY ASSEMBLY

934

70137
0 07645 0 77777
70133 0 07644 0 06733
70134 0 07647 0 07643
70135 -3 00002 0 07620
70176 0 07641 0 07335
70137 0 00000 0 07640
70140 0 00000 0 07637
70141 -042147777777
70142
70143
70144
70145
70146
70147
70150
7015 1

0 07635 0 77777
0 07634 0 06733
0 07632 0 07633
3 00007 0 07645
0 07631 0 07335
0 00000 0 07630
0 00000 0 07627
443147234645

70157 0 07625 0 77777

70153 0 07624 0 06733
70154 0 07622 0 07673
70155 - 3 00002 0 04214
70156 0 07621 0 07335
70157 0 00000 0 07620
70160 0 07617 0 07616
70161 0 00000 0 07615
70162 442147433162
70163 -237777777777
70164 0 07613 0 77777
70165 0 07612 0 10103
70166 0 07610 0 07611
70167 -3 00002 0 14150
70170 0 07607 0 07335
70171 0 00000 0 07606
70172
0 00000 G 07605
70173 -042167777777
70174 0 07603 0 7771770175 0 07602 0 10103
70176 0 07600 0 07601
70177 -3 00002 0 14142
70200 0 07577 0 07335
70201 0 00000 0 07576
70202
0 00000 0 07575
70203 -043145777777
70204 0
70205
0
70206 0
70207 -3
70210 0
70211 0

07573
07572
07570
00001
07567
00000

0
0
0
0
0
0

77777
06733
07571
14624
07335
07566

1065
936
937
938
939
940
94 1
942
943
944
30698
945
946
94 7
948
94 9
950
951
952
953
)069A
954
955
956
957
958
959
960
961
962
963
964 I 1 7
965
966
967
968
969
970
97 1
972 *
973
I18
974
975
976
977
978
979
980
981 *
982
1070
983
984
985
986
987

-----

975

-- --

--

SUBR,- r.- * - I

LC985300
--.
-

l-CU54-MM--_
T X L MAPCAR, ,2
PNAVF. .-*-I
-+-I
-r- 1
O C T 442147777777

TXI

LC985500

-d

LC985700
LC985900
I C984LllXL______
LC986100
0
L
LC986300
I -400
LC986500
LC986600
LC986700

-l,,-+l
SUER. .-+-I
-*l,
9-*-2
MAP(;ahl..7
PNAME.9-*-1
-*- 1
-el

BCD
OCT

T XL

OC T

OC7

r
7

6
q-

LC98680.L--LC986900
IC9mOO
LC987 100

-1. ,-+-I
SUBR, 9 - + l
-+- 1, ,-+2
MAPLIS,,2
PNANE, #-*-I
-+l
- u - 2 , ,-r- 1
-*-2
IMAPLIS
637777777777
MAPL I S 1
- 1 , t-*-1
SFSUBR, ,-+-I
-*-I,
,-t-2
MAX, + 2
SPNAME, ,-*-1
-+- 1
-+-I
442167777777
MAX
-1, ,-*-I
SFSUBR,
1
- * l p
1-*-2
MIN, 92
IPNAME, ,-+-I
-*1
-+- 1
443145777777

,-+-

TXL

.-----

l 3 5 8 m . I

MAP

BCD W P C n N

TXL

L-f-

-1, ,-*-I
%SUER ,-+-I
-*-I,
,-*-2
TXL
MNSPRG, 9 1
SPNAME, ,-*-I
-+l

LC987300
LC987400
LC987500
LC987600
LC987700
LC987800- -LC987900
1(3983300- - .-ROC80361

ROC80363
RD-c.80344 -RDC80365
R DG8-Q345
ROC80367

------

_ _ _ ---

- ----

-..mxaak-

ROC80369
ROC80370
RDC80371
ROC80372
-. - ..
.RDC80373
RW80374 -----..--.-..---.--.-...ROC80375
ROC80376
ROC80377
--.- . RDC80378
- ..
...-..---- -.
LC990500

-,

-.

.
-

--

M IN

-.-

R5-_4
ROC80455
ROC80456
ROC80457

.-~

K!C80458

"-.
.--.--A

"---

-.

PAGE 198

BONNIE-S

70212
0 00000 0 07565
70213 -043145646277
70214 0 07563 0 77777
70215 0 07562 0 06733
70216 0 07560 0 07561
70217 -3 0 0 0 0 1 0 14500
70220 0 07557 0 07335
70221 0 00000 0 07556
70222 0 00000 0 07555
70223 443145646247

70224 0 07553 0 77777

70225
0 07552 0 06733
70226 0 07550 0 0 7 5 5 1
70227 -3 00000 0 12147
70230 0 07547 0 07335
7 0 2 3 1 0 00000 0 07546
70232 0 00000 0 07545
70233 -044245214477
70234 0 07543 0 77777
70235 0 07542 0 06733
70236 0 07540 0 0 7 5 4 1
70237 -3 00002 0 07675
70240
0 07537 0 07335
7 0 2 4 1 0 00000 0 07536
70242
0 00000 0 07535
70243 -052346452377
70244 0 07533 0 77777
70245 0 07532 0 06733
70246 0 07530 0 07531
70247 -3 GO001 0 10150
70250 0 07527 0 07335
70251 0 00000 0 07526
70252 0 00000 0 07525
70253 -054663777777
70254 0 07523 0 77777
70255 0 07522 0 06733
70256 0 07520 0 07521
70257 -3 0 0 0 0 1 0 15243
70260 0 C7517 0 07335
7 0 2 6 1 0 00000 0 07516
70262
0 00000 0 07515
70263 -056443437777
70264 0
70265 0
70266
0
70267 - 3
70270 0

07513
07512
07510
00001
07507

0
0
0
0
0

77777
06733
07511
14445
07335

--- - --- --- - -- -

BIRTHDAY ASSEMBLY

988
-*l
989
OCT
443145646277
990 *
991
I116
-1, ,-*-I
992
6SUBRp ,-*-I
993
-+-I, ,-+-2
994
TXL
MINUSP, 1
995
BPNAMEr ,-+I
996
-9-1
997
-9-1
998
BC I
1tMINUSP
999
1000 +
1 0 0 1 jPJ26
-1, ,-*-I
1002
SUBRp ,-*-I
1003
-*-I,
,-*-2
1004
TXL
MKNAM
1005
PNAME3,--1
1006
-*-I
1007
-*-I
1008
OCT
444245214477
1009
1071
-lv,-*-l
1010
SUBRv *-+-I
1011
-+I,
S-*-2
1012
1013
TXL hCONC 92
1014
PNAF'E ,-*-I
-*-I
1015
1016
-+-I
10 1 7
O C T 452346452377
1018
-1, ,-*-I
1019 1074
1020
bSUBR, 1-9-1
1021
-*- 1, ,-a-2
1022
TXL NOTSII~
SPNAME, ,-*-I
1023
1024
-*-1
1025
-*- 1
O C T 454063777777
1026
1027
1028
I075
-1, *-+I
1029
SUBR* 1-1-1
1030
-*-I,
,-*-2
1031
TXL MULLP,rl
1032
PNAME,. .
1033
-+- 1
-+- 1
1034
O C T 456443437777
1035
1036
1037
I113
-1, *-+--I
1038
$SUER, ,-*-1
1039
-*-I,
,-+-2
1040
TXL
hUMBRP, l
SPNAME, 7-+1
1041

-- - - - --- -

-- - -

MINUS

--

- --

w
e
-

BCD MKNAM

---

NCONC

-- --- -----

-- ---- -- -NOT

--

LC995500
LC995600

-- -

- ------

LC995700
LC995800

- --

--

- -- LC995900

LC996000
LC996100

NULL

--

--

. ..-

- -.

--

---

PKNAM

- --

ROC80459
ROC80460
RDC80461
-RDC80444 - - -ROC80445
ROC8P446-- - - - RDC80447
- ---RDC80448----.-ROC80449
ROC80450
ROC80451
ROC80452
-ROC80173
ROC80174
ROC80179
RDCH0022
RDC80 18 1
ROC80175
--ROC80180
ROC80177
ROC80178
LC991000
LC991 100
LC991200
LC991300
LC991400
LC991500
LC991600
LC991700
LC=800
-- LC991900
LC994900
LC995000
LC995100
LC995200
LC-300
LC995400

---

--.

- --

- --

LC997300
LC997400
LC997500
LC997600
ROC804 15
ROC80416
ROC80417
---- .. .
ROC804 18
ROC80419
---

--.

.-,--

-- .---

- .. .

- ---

. . -.

-.

.--

5
9

e
6

BONNIE-S

BIKTHDAY ASSEMBLY
- ---

7 0 2 7 1 0 0 0 0 0 0 0 07506
7 ~ 7 7 7 n n75n5 n n75n4
70273
0 00000 0 07503
70774 4 5 h W 5 5 1
70275 -077777777777

-r

70276
70777
70300
70301
70302
70303
70304
70105
70306
70307
70310
70311
70312
70313
70324
70315

0 07501 0 77777
0 07500 0 06773
0 0 7 4 7 6 0 07477
3 QOOOC 0 1 7 0 7 1
0 07475 0 07335
0 00000 0 07474
0 00000 0 07473
056444462777

0
0
0
0
0
0

07471 0 77777
07470 0,10742
07466 0 07467
00000 0 11351
07465 0 07335
00000 0 07464
O 0 0 0 0 0 0 07463
462243316263

7 0 3 1 6 0 0 7 4 6 1 0 77777
70317 C 07460 0 07335
70320 0 OOOOC 0 0 7 4 5 7
70321 0 00000 0 07456
70322 -062363214377
70323 0 0 7 4 5 4 0 77777
70374 0 0 7 4 5 3 0 06733
70325 0 0 7 4 5 1 0 07452
7 0 3 2 6 -3 0 0 0 0 1 G 14533
7 0 3 2 7 0 0 7 4 5 0 0 07335
7 0 3 3 0 O 0 0 0 0 0 U 07447
70331 0 00000 0 07446
70332 -064525477777
70333
0 0 7 4 4 4 0 77777
70334
0 0 7 4 4 3 0 06733
70335 0 0 7 4 4 1 0 07442
70336 -3 00001 0 12333
7 0 3 3 7 0 0 7 4 4 0 0 07335
70340
0 0 0 0 0 0 0 07437
7 0 3 4 1 0 0 0 0 0 0 U 07436
70342 464723302151
70343 0 0 7 4 3 4
70344 0 07433
70345
0 07431
70346 - 3 0 0 0 0 0
7 0 3 4 7 0 C7430
70350 0 OOCOO

0
0
0
0
0
0

77777
10103
07432
15416
07335
07427

--

---

-PAGE 199

1042

-+- 1

1043

-+-7
-*-2

1044
1045
B
1046
1047 *
1048
lPJ25
1049
1050
1051
1052
1053
1054
1055
1056
1057
1079A
1058
1059
1060
106 1
1062
1063
1064
1065
1066
)PJ28
1067
1068
1069
1070
1071
II 9
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081 IPJ18
1082
1083
1084
1085
1086
1087
1088
1089
1090
1079
1091
1092
1093
1004
1095

R n c a a L--------

.-+-I

ROC80422
RDCEQ423-. ---RDC80424
R D C a Q 4 2 S - - _
RDC80165

--

477777777777

NUMRERP

-1,

NllMOB

,-el

SIIBR. .-+-I
-+I,
,-*-2
NUMU
PNAME, 9 - * - 1
-+- 1

TXL

RDCWOO2l
---_RD_(190

--

RNLIM(7B

--

-- -

"

R n r . U L LC999100

---

-+-

-1, ,-*-1
PNAME, ,-+-I
-c- 1
-*l
462363214377
-1, ,-+-I
$SUER. ,-*-I
-+-I,
,-+-2
ONEP, 9 1
BPNAME ,-*-I
-+-I
-3-1
464525477777

-1, ,-*-I
SUBR, ,-*-I
PZE -+-1$,-*-2
TXL CPC+AR,,l
PNAYE, ,-*-I
-*-I
-+-I
BCC lOPCHkR

'

LC999300

-+- 1

DCT

RDC80168

LC999400

Lcgg?slbOO
-------LC999700
--- ---- _
__L!2'%?? 00
-LC999900
RDC3Ql93
RDC80194
_ _ - B [ 1 ~ ~..% .. .-.
ROC80196
- R R D D 1 51
.- - - _ - _RDC80198
--RDC8QUZ- __ _ RDC80379
-.---.-------*
-RD.G8-QX8L. .. . - .-- -..-.. .RDC8038 1
-- -- - - --- - - . - --RDC803-82
__
-RDC80383
_ _ _
- _RD_C800X884- _ -- -__ RDC80385
--!QG&!L&6
ROC80387
RDC80118_ _ - _
- --- .-RDC80123
a
-

BCC 1 0 B L I S T

TXL

_.

1
---

APVALlr 9 - t - 1
-+-I.
.-1-2
-0BL I S T
PNAPF. ,-*-I
-+- 1

OCT

LIZ-

'

RDC80 1 6 6

456444462777

---

R-170

-+1
nCT

--

RDC80420

l.rul.fw3

L1
OCT

-- -- -

GBLI ST
OCTAL

BCD OCTAL

---

---

DNEP
0 !%!!!---

-1. ,-*-1
FSUBR, ,-*-I
-*-I,
,-*-2
TXL SEVGR,10
-SPNAME, ,-+I
-*- 1
-

----

---

- - --RDcWOOl6
-- --_-

-- -

ROC80125

- -BE!t!!!*Lu------

-- -

-- - -

-- - --

__

_-

--

RDC80124
RD-C801_L1- _ --- - - - - - - - - --- RDCR0122
.- - L &O!!x &
- .-LDOOOLOO
--- -- .- LD000200
------.LO000300
- --.LOOP0400 ._
- - - LD000500
LD000600
--- - - - -- - .- -

--

--

- -

PAGE 200

RGNNIE-S~BIRTHDA~

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

E.

7 0 3 5 1 0 00000 0 07426
70352 -065177777777
70353 0 07424 0 77777
70354 0 07423 0 06733
70355 0 07421 0 07422
70356 -3 00001 0 12032
70357 0 07420 0 07335
70360 0 00000 0 C7417
70361 0 00000 0 07416
70362 -072123427777
70363 0 07414 0 77777
70364 0 07413 0 06733
70365
0 07411 0 07412
70366 -3 00002 0 07562
70367 0 07410 0 07335
70370 0 00000 0 07407
70371 0 00000 0 07406
70372 -072131517777

1096
1097
1098 +
1099 1 PJ24
1100
1101
1102
1103
1104
1105
I106
1107
1108
1080
1109
1110
1111
1112
1113
1114
1115
1116

70403

0 07374 0 77777

1125
1126 l P J 9

70406
70407
70410
70411

0 00000 0 C7371
472551314674
0 07367 0 10742
0 00000 0 07366

1129
I130
1131
1132

--

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

ASSEMBLY

-+-I
bCT 465177777777

-1, *-*-I
SUER, T-+-1
T ,-*-2
PACK 1 T 1
PNAME, ,-+-I
-cr- i
- -+-I
472123427777

TXL

hCT

0R
PACK

ROC80161
--- RDCW0020
RDC80163
ROC80157
------.----------...--.-.ROC80162
-ROC80159
RDC80160
--LD000900
LDOOlOOO
LDOOllOO
LD001200
LD001300
LO001400
LO001500
LDOO16OO
LO001700
LD001800

----------.

BCD PACK

-1, ,-*-I

-x-

@ G O LPERIOC
,
APVALlp ,-*-I
PZE -+--I

-.--.

PAIR

RDC80041
ROC80042

PERICC

---

---

--

ROC80045
RDC80046
RDCB0047
RDC80048

----

.... _.RQc_8Q1_56 ...............

-IT
,-+-I
SUER, *-*-I
-*-I,
,-*-2
~ x L . PAIRrr2
PNAME. ,-+-I
--1
-+-I
dCT 472131517777

LO000700
LQ000800

-.

..
.
.

--

---

L
=
--

---

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

'
'.

--

PAGE 202

BONNIE-S

7 0 5 1 0 0 0 7 2 6 7 0 77777
7 0 5 1 1 0 0 7 2 6 6 0 06733
7 0 5 1 2 0 0 7 2 6 4 0 07265
70513 -3 0 0 0 0 1 0 05325
70514 0 07763 0 07335
70515
0 0 0 0 0 0 0 07262
70516 0 00000 0 07261
70517 - 0 7 6 4 4 5 2 3 3 0 7 7
7 0 5 2 0 0 0 7 2 5 7 0 77777
70521 0 07256 0 06733
70522
0 07254 0 07255
70523 -3 00003 0 10011
70524 0 07253 0 07335
70525 0 00000 0 07252
70526
0 00000 0 07251
70527 -075146477777
70530 0 07247 0 77777
7 0 5 3 1 0 07246 0 1 0 1 0 3
70532 0 07244 0 07245
7 0 5 3 3 -3 0 0 0 0 0 0 1 5 2 1 2
70534 0 07243 0 07335
70535
0 00000 0 0 7 2 4 2
70536 0 00000 0 07241
70537 -106446632577
70540 0 07237 0 77777
70541 0 07236 0 06733
70542 0 07234 0 07235
70543 - 3 00002 0 13427
70544
0 07233 0 0 7 3 3 5
70545
0 00000 0 07232
70546
0 07231 0 07235
70547
0 00000 0 07727
70550 506446633125
7C551 - 0 5 6 3 7 7 7 7 7 7 7 7
70552 U L7225 0 77777
70553
0 07224 0 06733
7 0 5 5 4 0 C7222 0 0 7 2 2 3
70555 - 3 0 0 0 0 0 0 0 5 7 3 2
70556 0 07221 0 07335
7 0 5 5 7 0 00000 0 0 7 2 2 0
70560 0 00000 0 07217
70561 -112521247777
70562
U
70563
0
70564 0
70565 -3

70566
70567
70570

07215
07214
07212
00001

0 77777

0 06733
0 07213
0 14633

0 0 7 2 1 1 0 07335
0 00000 0 0 7 2 1 0
0 00000 0 ('7207

1204 I J 0 5
1205
1206
1207
TXL
1208
1209
1210
1211
OCT
1212 *
1213
1090
1214
1215
1216
TXL
1217
1218
1219
1220
OCT
1221
1222
I094
1223
1224
1225
TXL
1226
1227
1228
1229
OCT
1230
1231 I J 0 3
1232
1233
1234
TXL
1235
1236
1237
1238
BC I
1239
1240
CCT
1241 *
1242
1096
1243
1244
1245
TXL
1246
1247
1248
1249
DCT
1250
1251 I118
1252
1253
1254
TXL
1255
1256
1257

--.
- - --

BIRTHDAY ASSEMBLY

-1, *-*-I
fSUBR. ,-*-I
-+-I, *-*-2
$PUNCH, 9 1
BPNAME, ,-+-I
-*-I
-*- 1
476445233077
-1. ,-*-I
SUBR ,-*-I
-*-I,
,-*-2
APROPV 93
PNAME, ,-*-I
-+1
-*-1
475 1 4 6 4 7 7 7 7 7
-1, t-*-1
FSUBR, 1 - r - l
-+-I, ,-+-2
CARP9,O
PNAME 9 9 - * - 1
-*-I
-*-I
506446632577

--

-- - --

- - - - ----

--

---

-- ---

- - --

--

- -.

--- - - --.--

- --

----- - -

- - - -- -

-.

---

--

------

PUNCH

----.---*------

--

--LDOlOOOO

--

LDOlOlOO
LD010200
LD010300
LO010400
LO010500
LD010600
LD010700
LDO10800
LO010900
LDOllOOO
LDOLllOO
~DOll200
LD011300
LO011400
LD011500
LD011600
LDO11700

--

PROP

--

4
9

--

QUOTE

-1. ,-*-I
SUER, ,-*el
-*- 1, ,-*-2
RE4C,,O
PNAPE 9 - * - 1
-+-1
-*- 1
512521247777

--

- - .- -- -

- ---

W
a
n
-

QUOTIENT

- -

LD011900
LDOl2000
-- LO012100
LO012200

---

---

-READ

-1. ,-*-I
.%SUBR,l-*-I
-+-1, ,-+-2
RCPPRG,, 1
SPNAME 1 ~ - * e l

-+- 1

t-

- ---

---

-- LD011800

------->

--

-.
- --

----

- -

LD012300
LD012400
LO012500
LO012600
RDC80462
RDC80463
ROC80464
RDC80465

ROC80466
---- -

s
5

-1. ,-*-I
SSUBR, 1-*-1
-*--I,
,-*-2
QUOTEMr 1 2
SPNAME, 7-*1
-+-1
-+-2, (-1-1
-+-2
1,OUOTIE
456377777777

--

-.-

- ----

--- - --

---

~ ~ ~ 8 0 4 -6 7
RDC6046R

- --

-- .- -

--

RONNIE-S

-----

-.

--

PAGE 203

70572
70573
70574
70575
70576
70577
70600
70601
70602

0 07205 O 77777
0 W 0 4 0 06733
0 07202 0 07203
3 00000 0 02577
0 07201 0 07335
0 OQQQO fl 0 7 7 0 0
0 07177 3 07171
0 00000 0 07175
512523432131

70604 0
0
70605
70606 0
7 0 6 0 7 -3

07173
07172
07170
00002

0
0
0
0

77777
06733
07171
13423

70613
0 00000 0 07163
70614
512544213145
7 0 6 t 5 +242551777777

70616 0 07161 0 77777

70617
0 0716030 06733
70620 0 07156 0 07157
7 0 6 2 1 -3 0 0 0 0 2 0 0 7 7 1 4
70622 0 07155 0 07335
70623
0 00000 0 07154
7 0 6 2 4 0 07152 0 0 7 1 5 3
70625
517544475146
70626
0 00000 0 07151
70627 -077777777777
70670
0 0 7 1 4 7 0 77777
70631 0 07146 0 06733
70632
0 0 7 1 4 4 0 07145
70633 -3 0 0 0 0 1 0 1 6 2 7 2
7 0 6 3 4 C 0 7 1 4 3 0 C7335
70635
0 00000 0 07142
70636
0 00000 0 07141
70637
512563645145

7 0 6 4 0 0 0 7 1 3 7 0 77777
70641 0 07136 0 06733
7 0 6 4 2 0 0 7 1 3 4 0 07135
7 0 6 4 3 -3 0 0 0 0 0 0 10155
7 0 6 4 4 0 07133 0 0 7 3 3 5
70645 0 00000 0 07132
70646
0 00000 0 07131
70647
516743212321

1258
1759
1260
1261
1262
17.43
1264
l?65
1266
1767
1268
1270
1271
1272
1273
1274

C
t.

-70571 -112523314777

-- --

BIRTHDAY ASSEMBLY

5 12523314777

OCT

--

HECIP

- 5

RDC80469

&
m
k
7
a
I234D

-1, ,-+-I
SUER. .-+-I
-*-I,
,-*-2
TXl RFLLAM. 90
PNAME ,-*-1

.----

LD013200
_ - _ U T U O O
LD013400

--

'
b

'i

LD013600

-+- 1

LRaUUlD-.

-1-2,
,-*-I
-t-7
8CD l R E C L A I
777

LDO13800
-------_______--

LD014000

- -1 n

RECLAIM

RDC80285
IJ 0 4

1278
1279
1280
1281 4
1282 1250
1283
1284
1285
1286
1287
1288
1289
1290
129 1
1292 *
1293
1102
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
I100
1304
1305
1306
1307
1308
1309
1310
1 3 11

-1, ,-+SSUBR, I-+-1

--

--TXL

REMAiNp I 2

BCI
OCT

-*2
1,REMAIN
242551777777
-1s

- -- --

.-

-*-I
t ,-*-2
TXL
REMPRP 2
PNAME, 9 - * - 1
-+I
-*-1, ,-1-2
GCD lRECPRO
-+-1
GCT
477777777777

--- -

-- - -.---

LD134400
0
LD134600
Dl%" 0
LO134800
LD1345500_LD135000

- 1 ,-el
~
2SUBR, ,-*-I
-*-I,
*-*-2
TX L
RETURN, 11
PNAPE,r--1
-.+- 1
-+- 1
ECD lRETURN

--

---

REMAINDER

9-*-1

- ----

---

_ _- _

--

--

-_- _ _ _

-LaU5bBSl---..---

REMPRO

_-

--___I

LD135200
P

_ _LD135300

--

--

-_

_._

--

I C ) O 2 0 0 O L

.
P
"
P

-- ----

RETURN

.------

--- - -- - -- - . --

LD021100
LD021200
LD021300

.--

---

---

--

---

- -

--

LD016000
-L
LD016200
LD016300
-- -- -- -- -

m_L

-- - ---

- _- -

LD019900
LD_O-]143PO- -__ - LD014400
L D
-- 0-1 4 5 0 0 LD014600

-- -

- -

-_-b~o~o---1, ,-*-I
SUBR,,-1-1
-*-1, ,-+-2
TXL RPLACAt r 0
PNAPE, *-*-I
-+-I
-+- 1
G C O lRPLACA

- .-

-.

-- ----

-_

--

-PAGE 204

BONNIE-S

7 0 6 5 0 0 07127 0 77777
7 0 6 5 1 0 07126 0 06733
70652
0 07124 0 07125
70653 -3 00000 0 1 0 1 6 4
7 0 6 5 4 0 07123 0 0 7 3 3 5
7 0 6 5 5 0 00000 0 07122
70656
0 00000 0 0 7 1 2 1
70657
514743212324
70660 0 07117 0 77777
7 0 6 6 1 0 07116 0 07335
7 0 6 6 2 0 07113 0 07115
70663 0 00000 0 0 7 1 1 4
7 0 6 6 4 -114721517777
70665
0 07112 0 1 0 7 4 2
7 0 6 6 6 0 00000 0 0 7 1 1 1
7 0 6 6 7 0 00000 0 0 6 1 6 3
7 0 6 7 0 0 07107 0 77777
7 0 6 7 1 ' 0 07106 0 07335
70672
0 00000 0 0 7 1 0 5
7 0 6 7 3 0 07103 0 0 7 1 0 4
70674 6 2 4 7 2 5 2 3 3 1 2 1
7 0 6 7 5 0 00000 0 07102
7 0 6 7 6 437777777777
70677 0 07100 0 7 7 7 7 7
70700 0 07077 0 07335
70701 0 07074 0 07076
70702 0 00000 0 07075
70703 544446652577
7 0 7 0 4 0 07073 0 06706
7 0 7 0 5 -0 00000 0 61255
70706 0 0 7 0 7 1 0 77777
7 0 7 0 7 0 07076 0 07335
70710 0 07063 0 0 7 0 6 7
7 0 7 1 1 0 07065 0 07066
70712 5 4 5 1 2 5 6 3 6 4 5 1
70713
0 00000 0 07064
7 0 7 1 4 457777777777
7 0 7 1 5 0 07062 0 0 6 7 0 6
70716 - 0 00000 0 6 1 2 5 3
70717 0 07060 0 77777
7 0 7 2 0 0 07057 0 07335
7 0 7 2 1 0 07054 0 0 7 0 5 6
70722 0 O O O C O 0 G7055
70723
544331626377
70724 0 07053 0 0 6 7 0 6
70725 - 0 00000 0 6 1 2 5 4

1312
1313
1314
1315
1316
1317
1318
1319
1320
1371
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1300
1361
1362

BIRTHDAY ASSEMBLY
1101

-l,~-*-l
SUER, ,-*-I
-*-I,
,-*-2
TXL RPLACD7,0
PNAME.
-..-*-I
.

--

LD016400
LD016500
LDO16600
L-0 oL!_heo

--

.-

-+-

1
1
BCD lRPLACE

-*-

)PJ8

-17

,-el

PZE PNAME, 8 - * - 1
-+- 1, ,-*-3
-*- 1
OCT 514721517777
APVAL 1, ,-*-I
i
1H34

--

RPAR

BCD RPAR

.-

-- - -

--

CDOl8000
LD018100
LO018200
RDC80032
RDC80033
RDC80034
RDC80035
RDC80036
RDC80037
RDC80038
RDC80039
RDC80040

--

--

--

---.-

BC I

VFD

)MOV

PZE

-I,
,-*-1
PNAME, ,-*-I
-*-I,
,-*-3
-*l
H30/*MOVE,LJ6/77
SYM, ,-*-I
-CbfnOV

BC I

-1, ,-*-I
PNAME, 9 - 9 - 1
-1-1, ,-+-5
-*-I
,-*-2
I9 *KETUR

VFO

-1, ,-*-I
!'NAME* 1-*-1
i
1
-+- l,r-*-2
1,SPECIA
-+- 1
H6/L,030/7777777777

IRTKN

SPECIAL

-+- 1

MZ E

ILST

VFD
NZ E

H6/N,030/7777777777
SYM, ,-*-I.
-C$RTRN
-1, ,-*-I
PNAME, r - * - l
-*-I,
,-*-3
-+-I
H30/*LiST906/77
SYM, ,-*-I
-COLST&

--

---

- --

----

,
-

----

.
-

-.

VFD

- ----

*MOVE

--

--

----

---

- ----

--

---

c
<

ISPCL

---- --- ---

------ ---- --

- --

-- -

-"-.--=.---

-.

- - ---

--

---

---

<-

--

---PAGE 2 0 5

BONNIE-S

BIRTHDAY ASSEMBLY

-- 70730
70731
70732
70733
70734

07047
10047
07335
07044
07043

1366
136 7
1368
U69
I370

7 0 7 4 0 0 0 7 0 3 6 0 07037
7 0 7 4 1 -3 0 0 0 0 4 0 0 4 4 0 0
70747
0 07035 0 07335
70743 0 00000 0 07034
70744
o 00000 o 07033
70745
6225215 12330

1375
1376
1377
1378
1379
1380
1381
1382

70746

0 07046
00003
0 07045
0 00000
0 00000

-3

0
0
0
0
0

0 0 7 0 3 1 0 77777

70753 0 00000 0 07024

70754
0 00000 0 07023
70755 - 2 2 2 5 6 3 7 7 7 7 7 7

TXI

-lev-*-

71000 0 06776 0 06777

7 1 0 0 1 -3 00000 0 0 3 7 7 4

1411
1412

-*-I1
,-+-2
TXL SPEAK,,O

71004 0 00000 0 06773

71CC5 -224725 '14277

1415
1416
1417
1418

-+-I
O C T 624725214277

-1 -*-T
BFSCIBR,. ,-*
1
.
-+-I,
,-4-2
TXL SETCP,,O
PNAME, 1-*-1
-*-I
-4- 1
OCT 6 2 2 5 6 3 5 0 7 7 7 7

--- - .

SET

.-

--

_--_- 2mQL
. - -- _

- - .---

LD024900
LD025100
. ..~

LO026500

--...

ROC80079
---.--- R--OCBP~~L--.
RDC80081
--B E 0 0 8 2
RDC80083

.
-

BCD SLASH

LD027100
LO027200

SPEAK
- --- ---

.--.

LO026700

SLASH

~~

!Jl!Qabbm
-- laRlaR-.la
- -.
R
_-

.--_IS ETQ

--

LO027500
LD027600
LOOZ~_?O~-LO027800

--

-~

-B

- ___

IQQ2320Q
LO023300
l DO73400
LD023500
I o-no
LDOZ3700

L&OL4!tO_[L
LO024500
-- A Q z t ! x L c LO024700
.

-1, ,-*-I

"

O p - - .

LO023900

---

1111

-----

-+-

1
OCT 6 2 2 5 6 3 7 7 7 7 7 7

OQ

--

--

LO022500
LDa226QLLO022700

-+I

-1 1 9 - + l
PNAME 1-4-1
-*-I, ,-4-3
-+1
OCT 6 2 4 3 2 1 6 2 3 0 7 7

0 0 6 7 7 1 0 77777

70766
0 07011 0 77777
7 0 7 6 7 0 07010 0 0 7 3 3 5
7 0 7 7 0 0 0 7 0 0 5 0 070C7
70771 0 OGOOO 0 07006
70772 -224321623077

71006

--__---...

1387
1388
1389
1390
1 3 9 1 1108
1332
1393
1394
1395
1396
1397
1378
1399 4
1400 )PJ14
1401
1402
1403
1404

70756 0 07021 0 77777

7 0 7 5 7 0 07020 0 1 0 1 0 3
70760 O 07016 0 07017
7 0 7 6 1 -3 0 0 0 0 0 0 1 5 3 1 1
7 0 7 6 2 0 0 7 0 1 5 0 07335
70763
0 00000 0 07014
70764 0 00000 0 07013
70765 - 2 2 2 5 6 3 5 0 7 7 7 7

LD022300

-*-I,
*-*-2
APSSOC. .3
PNAME* ,-*1
-+-1
-*- 1

TXL SEARCH, 14
PNAMF. *-+-I
-+- 1
-+- I
UCD lSEARCH
1107

tr

-- -

--

-----

-----

.-. .

--

'/
-,+

--

---.--

--PAGE 206

BONNIE-S

7 1 0 1 0 0 00000 0 06767
7 1 0 1 1 0 00000 0 0 6 7 6 6
7 1 0 1 2 -226346477777
71013
0 0 6 7 6 4 0 77777
7 1 0 1 4 0 06763 0 07335
7 1 0 1 5 0 06760 0 06762
7 1 0 1 6 0 00000 0 0 6 7 6 1
71C17 -276321517777
7 1 0 2 0 0 06757 0 1 0 7 4 2
71021 0 00000 0 06756
71022 0 00000 0 06203
71023 0 06754 0 77777
7 1 0 2 4 0 0 6 7 5 3 0 06733
71025 0 06751 0 06752
7 1 0 2 6 -3 00000 0 1 2 2 2 1
7 1 0 2 7 0 06750 0 07335
7 1 0 3 0 0 00000 0 06747
71031 0 06745 0 06746
71032 626321516351
71033
0 00000 0 0 6 7 4 4
7 1 0 3 4 +252124777777
71035
0 06742 0 77777
71036 0 06741 0 06733
71037 0 06737 0 06740
7 1 0 4 0 -3 0 0 0 0 1 0 14430
7 1 0 4 1 0 06736 0 07335
71042
0 GO000 0 06735
71043
0 00000 0 06734
7 1 0 4 4 -226422017777
7 1 0 4 5 0 06732 0 7 7 7 7 7
71046
0 0 6 7 3 1 0 07335
7 1 0 4 7 0 00000 0 0 6 7 3 0
71050
0 00000 0 06727
7 105 1 -226472517777
7 1 0 5 2 0 06725 0 7 7 7 7 7
71053
0 06724 D 0 6 7 3 3
7 1 0 5 4 0 06722 0 0 6 7 2 3
7 1 0 5 5 -3 COO02 0 07445
7 1 0 5 6 0 0 6 7 2 1 0 07335
7 1 0 5 7 0 00000 0 06720
7 1 0 6 0 0 00000 0 C6717
7 1 0 6 1 626422433162
71062
0 66715
71063
0 06714
71064
0 Oh712
7 1 0 6 5 - 3 00003
71C06 0 0 6 7 1 1
7LOh7 0 boo00

77777
06733
06713
07367
07735
L 06710
0
0
0
0
0

BIRTHDAY ASSEMBLY

1420
1421
142 2
1 4 23
1424 IPJ15
1425
1426
1427
1428
1429
1430
1431
1432
1433 ) P J 2 1
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444 1 1 1 5
1445
1446
1447
1448
1449
1450
1451
1452 +
1453
1113
1454
1455
1456
1457
1458
1459
1114
1460
1461
1462
1463
1464
1465
1466
1467
1468
1115
1469
1470
1471
1472
1473

-+-I
-+-I
OCT 626346477777

-1, ,-*-I
PNAME. ,-*-I
-*-I,
,-a-3
-*l
OCT 526321517777
APVALl, ,-*-I
-*- 1
H54

STAR

P Z E -l*,-*-l
SUBR,,-*-1
PZE -+l,
9-*-2
TXL STREADSSO
PNAME, *-*I
-+- 1.
-++-I,
J-*-2
BCD LSTARTR
-+- 1
OCT 252124777777

STARTREAD

TXL

-- --

-1, ,-+-I
ISUBR, ,-+-I
-*-I,
,-+-2
SUBl,, 1
bPNAME, ,-*-I
-r- 1

--

-el

OC T

626422017777

SUB 1

-l, ,-*-I
PNAME,,-*-l
-a- 1
-*- 1
OCT 626422517777

-1, ,-+-I
SUER, 9 - * - 1
-*- 1, ,-*-2
TXL SUBLIS, 92
PNAYE,,-*-I
-+- 1
-01
BCD lSUHLIS
-1, ,-*-I
SUER, ,-*-I
-+-I, ,-*-2
TXL SUBST,,3
PNAPE, ,-+-I
-+- 1

.
A

SIJBK

--

---

--

--

-- --

- -

-.-----

--

--

--

-- .-- --- -

----

.----

--

--LO028000
LD028 100
LO028200
RDC80087
-.-. - ROC80088
RDC80089
RDC80090
RDC8009 1
- -RDCB0092
ROC80093
-ROC80094
ROC80095
RDC80135
RDC80136
ROC80143
ROCWOO18
ROC80145
ROC80137
ROC80144
ROC80139
RDCB0240
RDC80141
RDC80142
LD028300
RDCB0435
ROC80436
--------RDC80437
RDC80438
RDC80439
ROC80440
----- - ROC80441
RDC80442
--ROC80443
LD029300
--- -- LD029400
LD029500
LD029600
LD029700
LD029800
-LD029900
--- -- - -- -LD030000
LD030100
-LO030200
LD030300
-*-LD030400
- ~~030500-- . -- _ _-_-LD030600
LD030700
LD030800
e
m
-

SCD STAR

--

--

- -- -

--

LD030900
LD031000
-- LD031_100
LD03120O
LD031300-

-_---

-_

--

_ A -

8
b

PAGE 2 0 7

BONNIE-S

71070

0 0 0 0 0 0 0 06707
7 1 0 7 1 -3 7 h 4 7 7 h 7 h 7 7 7
71077
71073
71 0 7 4
71075
710 7 h

D 0670s n 77777

0 0 6 7 0 4 0 07335
n nnann o 067n3
0 00000 5 0 6 7 0 2
777044777777

71077
0
71100 0
71101 0
71102 -3

71105
71106

0
0
0
0

77777
06733
06676
05214

0 0 0 0 0 0 0 06672
632551475131

71107 0
71110 0
71111 0
7 1 1 1 2 -3
71113
0
71114 0
71115 0

71120

C6700
06677
06675
00000

06670
06667
06665
00000
06664
00000
06662

0
0
0
0
O
0
0

77777
06733
06666
01521
07335
06663
06661

--

0 0 6 6 4 6 0 77777
0 0 6 6 4 5 0 07335
0 OOOCO 0 06644

7 1 1 3 7 0 06640 0 06733
71140
0 C6636 0 06637
71141 -3 00000 0 04101
7 1 1 4 2 0 0 6 6 3 5 0 07335
71143
0 00000 0 0 6 6 3 4
7 1 1 4 4 0 0 6 6 3 3 0 06632
71145
0 00000 0 06631
7 1 1 4 6 64/t523466445
71147 -237777777777

-----

--

1
flCT h 7 h 4 7 7 h 7 6 7 7 7

TXL TERPRI, 10

1489
1490

-r- 1
BCD lTERPRI

I122

glIRST

- 1 . .-+--I

PNAMEt ,-*-I
-+-I
-+-I
677044777777

flCT

-- -- -LD031400
~
O
I
L

- --

-*-

1474
1475
1476
1477 ISYM
1478
1479
1480
14RI
1482
1483 l Q J 7 3
1484
1485
1486

1492
1493
1494
1495
1496
1497
1498

--

- 1.

.-*-I
SUBRt ,-*-1

--

--

-----

SYM

-- -o -"

T F R P R I - - - -

--

--

--- -

- ----

--

--a n 1

RDC80146

RDC80152

"
RDC80154

JLIVxaa-

-1, *-+I
SU%R*.-+-l
-*119-*-2
6T I M E . 0
TXL
PNAPE,,-*-1
-+- 1
-+-2, .-+-I

-1, ,-+-I
$FSUBR, ,-*-1
-+-I l,-+-2
TXL
MULTIIZ
BPNAME, ,-+-I
-+- 1
-x- 1
OC T
633144256277

--

RDC80151
LO037000

-LD037200
-- ---- ---

-. .

----

LD037400

- L D ( 2 2 Z z h p

---

1501
)124
1502
1503
1504
1505
1506
1507
1508
1509
1510 +
1511 I213
1512
1513

1518
1519
1520
1521
1522
1523
1524
1525
1526

---

--

402664273163

7112L
0 0 6 6 5 6 0 77777
71122 0 06655 0 10103
71123
0 06b53 0 06654
71124 -3 00002 0 14134
71125
0 06652 0 07335
71126
0 00000 0 06651
7 1 1 2 7 0 0 0 0 0 0 0 06650
71130 -233144256277
71131
71132
71133

BIRTHDAY ASSEMBLY

- -- --

--

- -- -

--

LD037800
- --_- - - A . DO385_Qa-__
_
- .-_RDC80353
-,
RU U 5 - k . ----.______RDC80355
R_DC89356_-_
RDC80357

-___~G8Q3!B8__--

- -. - - --

TIMES
R D C 8 0 m-

" - - - -

-131-*-1

BPNAMEt 9 - + l
-*-I

---

--

S U B R , ,-+-I

- --

-.-.

UhlCO!2!!K

.- .- ..
.

LD040700
LD040800
LD040900
LD041000
LD041100
----------LD041200
LD041300
..- .-LD041400
10041_5q_O_

--.

-*-I, ,-*-2
TXC UNCGNTf,O
PNAPE1,-+-1
-+- 1
-+2,
,-*-I
-+-2
BCD lUNCOUN
3CT 637777777777

-- ---- - ---- --

--,...

--

-- - -

-.

"-.

p
-

P A G E 208

BONNIE-S

71150 0 0 6 6 2 7 0 77777
7 1 1 5 1 0 0 6 6 2 6 0 06733
71152 0 C6624 0 06625
71153 - 3 0 0 0 0 1 0 12365
71154 0 0 6 6 2 3 0 07335
71155 0 0 0 0 0 0 0 0 6 6 2 2
71156 0 0 0 0 0 0 0 0 6 6 2 1
71157 644547212342
71160 0
71161 0
71162 0
71163 - 3
71164 0

06617
00616
06614
00001
06613

0
0
0
0
0

77777
06733
06615
14507
07335

71167 - 3 1 2 5 5 1 4 6 4 7 7 7

BIRTHDAY ASSEMBLY

1527
1528
1529
1530
I531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541

1544
1545

)PJ31

TXL

GCI

-1, ,-*-I
SUBR, ,-*-I
-*-I,
,-*-2
UNPACK, 9 1
PNAME, ,-*-I
-r- 1
i
1
1, I l N P A C K

--

..-. .-

- ----.

--

- -- --.- -ROC80210
RDC80?11
RDC80212
RDC80213
RDC80214
RDC80215
RDC80215

Ul\PACK

--

.. -- .

--

r?moax--.

RDC80218

.- -....- .

-- -

- --.-.--

--

- - -- -

-c

--

I
.
I
.
-

li!.lc70217I110

TXL

OC T
4

-1, 9 - 4 - 1
SSUBR* 9 - - 1
-+lr
,-*-2
ZEROPI t 1
BPNAME, ,-+-1
712551464777

RDC80388
RDC80389
ROC80390
ROC80391
RDC80392

ZEROP

RDC80395

4
F

B
6

p
-

P A G E 209

BONNIE-S

-- -

--

0 1 RTHDAY ASSEMBLY

b
.

1546

EJECT

----

---

PAGE 210

BONNIE-S

BIRTHDAY ASSEMBLY

-- --

71170

0 00000 0 00000

71171

0 00000 0 00001

71172
71173
71174
71175
71176
71177

0 00000 0 00002
0 00000 0 00003
0 00000 0 00004
0 00000 0 00005
0 00000 0 00006
0 00000 0 00007

71200 +000000000010
71201 +000000000011

71202 0 06575 0 07335

71203 0 06572 0 06574
71204 0 OOCOO 0 06573
71205 -132546265377
71206
G 06571 0 10742
71207
0 OOCOO 0 06570
71210 0 00000 0 06141
7 1 2 1 1 0 06566 0 0 7 3 3 5
71212 0 00000 0 06565
71213 0 00000 0 06564
71214 +137777777777
71215
0 06562 0 07335
71216 0 00000 0 06561
71217 0 00000 0 06560
71220 +I47777777777
71221
71222
71223
71224

0 06556 C 07335
0 00000 0 06555
0 COOGO 0 0 6 5 5 4
533143010553

71225
71226
71227
71230

0 06552 0 07335
0 00000 0 0 6 5 5 1
0 00000 0 06550
533143010653

71231
71232

O C6546 0 0 7 3 3 5
0 OOOOG 0 0 6 5 4 5

1549
1550
1551
1 5 5 2 HHOO
1553
1 5 5 4 HHOl
1555
1 5 5 6 HH02
1557
1 5 5 8 Hh03
1559
1 5 6 0 HH04
1561
1 5 6 2 HH05
1563
1 5 6 4 HHO6
1565
1 5 6 6 HH07
1567
1 5 6 8 HHlO
1569
1570HHll
1571
1572
1 5 7 3 HH12
1574
1575
1576
1577
1578
1579
1580
1 5 8 1 HH13
1582
1583
1584
1585
1 5 8 6 HH14
1587
1588
1589
1590
1 5 9 1 HH15
1592
1593
1594
1595
1596 HHl6
1597
1598
1599
1600
1 6 0 1 HH17
1602

EJECT
PROPERTY L I S T S FOR ALPHABETIC OBJECT'S

RDCZ0007
RDCZ0008

0
* * + * * u * * * + * * * + + + * * * * * * * * * * * * * * *

-----

1
*

2
*

----

----*

-. - - --

.---

- -- -

--

5
5

--

--

* * * * * * * * + * * * * + + + * * * * * * * * * * * * f * *

5
*

6
*

3
*

7
*

OCT

10
+ + i t + * + + + + * + + * + + * * + * * a c * o * * + * t *

11

OCT
*

i u + + + t * + + ~ + * + + + * + * + * + * * * + * + t * + + R D C P 0 2 5 5
PZE PNAHE9,-*-1
END OF F I L E
RDCP0256
PZE - + - l r 9-*-3
RDCP0257
PZE -*-I
RDCP0258
OCT 532546265377
8CD SEOF6
RDC80257
PZE APVALlr r--1
RDCP0260
PZE -*-I
---- ---- RDCP0261------------PZE H12
RDCP0262
* ~ * ~ * * * + * * * * t t * * * * + t * * f * + * ~ + * * * R D C P 0 2 6 3
PZF PNAME, ,-+-1
RDCP0264
P Z E -+1
-- -RDCP0265
PZE -*-1
RDCP0266
OCT 1 3 7 7 7 7 7 7 7 7 7 7
-- ---- -- -RDCPO267
i + + + * b t * * + * * ~ + + t * + + + * * * * + * * + ~ ~ + R D C p 0 2 6 8
PNACE, ,-*-I
8-4 MINUS
RDCP0269
PZE -+-1
RDCP0270
RDCP0271
PZE -*-I
OCT 1 4 7 7 7 7 7 7 7 7 7 7
RDCP0272
* + * i u + + + i * t * * u * + + + ~ * + * * + + + * * * * * R D C P 0 2 7 3
PNAtJE,9-+-1
ILLEGAL
RDCP0274
PZE -*-1
RDCP0275
O L E -*-1
RDCP0276
8CD 1 6 1 L 1 5 6
RDCP0277
- ----- --- i ~ * * * + + + + i * * i u + + * * + t + + * * * * * + * u i R D C p 0 2 7 8
PNAb'E, ,-*-I
ILLEGAL
RDCP0279
PZ F -+- 1
RDCP0280
PZE -*-I
RDCP028 1- -- 6CD l d I L l 6 6
RDCP0282
9 * + i * * ~ * t * * + + ~ + t * * * + i t * + ~ i + + * + * R D- C
-p -02 83- PNAMEr (-*-I
1LLEGAL
~ ~ ~ ~ 0 2 8 4
PZE - + - I
-RDCP0285
--_

---

---

.-----

-PAGE 2 1 1
71233
71 7 7 4

BONNIE-S
0 00000 0 06544
5111 43Q10753

7 1 7 3 5 D Q6542 0 0 7 3 3 5
71236 0 00000 0 06541
71737 0 00000 O
R-0
71240 +207777777777
71241 0 06536 0 07335
71747 0 00000 0 06575
71243 0 00000 0 06534
71744 +717777777777
71745 0 06537 0 07115
71246 0 00000 C 06531
71747 0 00000 0 06530
71250 +227777777777
'71251 0 06526 0 07335
71252 0 00000 0 06525
71253 0 00000 0 06524
71254 +237777777777

71257 0 00000 0 06570

71260 +247777777777
71261 0 06516 0 07335
71262 0 00000 0 06515
7 1 2 6 3 0 COO00 0 0 6 5 1 4
71264 +257777777777
71265 0 06512 0 77777
71266 0 06521 0 10742
71267 0 06507 0 06510
71270 0 00000 0 00000
7 1 2 7 1 0 66.506 0 0 7 3 3 5
71272 0 00000 0 06505
71273 0 00000 0 06504
71274 +267777777777
71275 0 66502 0 07335
71276 0 00000 0 06501
71277 G 00000 0 06500
71300 +277777777777
71301 0 06476 0 07335
71302 0 00000 0 01475
7 1 3 0 3 0 COO00 0 0 6 4 7 4
71304 +307777777777
71305
71306

O b6472 0 07335

0 00000 0 06471

1603
I604
1605
1 6 0 6 HH70
1607
1609
l h l0
1 6 1 1 HH21
1A 1 7
1613
1 6 14
1615
1 6 1 6 HH77
1617
1618
1619
1620
1 6 2 1 HH23
1622
1623
Lb24
1625

1678
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656

--

DIKTHDAY ASSEMBLY
PZE -*-1
f L U 18IL17S

RDCP0286

--

R
n
W
h
* + ~ * t * * f i i + 0 * * + * * + i + + 0 + t + + t * * + + R D C p 0 2 8 8
PNAMF..-*-1
+
--W B 2 8 P - _

VZE -*-1
RDCP0290
P7F -*--I
RDLPa29L
OCT 2 0 7 7 7 7 7 7 7 7 7 7
RDCP0292
* * * * * + * + * * * + * + * * * * * * ~ * * * * + * * * + ~ * ~ 0 7 9 ~
PNANE, ,-*-I
A
RDCP0294
P7F - h l
m
n
?
9
'
j
P Z E -+l
RDCP0296
RCT 71 7 7 7 7 7 7 7 7 7 7
0797
* ~ + * ~ + ~ t ~ + + + ~ * i ~ + * * * t ~ * t t t * + * * R D C p 0 2 9
PNAMF. .-+--I
R
0799
PZE -+-I
RDCP0300
PZE -r-1
RDCP0301
OCT 2 2 7 7 7 7 7 7 7 7 7 7
RDCP0302
* * i r * t r + r i r * * * r i i * + a + + r r r + + * + + * R D ~ Q 3
PNAME, ( - * e l
C
RDCP0304
P7F -*-I
R-05
PZE -*-1
RDCP0306
OCT 2 3 7 7 7 7 7 7 7 7 7 7
RDGP0307
-

'

L
3

+ * ~ + 4 + * + t * i * + + + + + + + * i + * i + * + + + i + R O f p 0 3 0 8
PZE -4-1
CCT 2 4 7 7 7 7 7 7 7 7 7 7

_-_._-

RDCP0312

* + + * * + * * * * * * * * * * * * * + * + * * * * * * * 3 . ~ R D L e Q 3 1 3

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

HH25

PNAHE,,-+-1

PZE -*-I
PZE -+-I
OCT 2 5 7 7 7 7 7 7 7 7 7 7
+

HH26

HH27

RDCP0314
-__RD.CPD2L5--.
RDCP03lb

____----

-l,,-*-l
APVAL.9-9-1
-*-I,
,-u-2
0
PNAME, ,-*-I
PZE -+l
PZE -*-1
OCT 2 6 7 7 7 7 7 7 7 7 7 7

~ +
F

.
-

A m-------

---

- .-

RDCfLQ31.9..
RDCP0320
R 0LP_O321----..-.
RDCP0322
RDCP0323
RDCP0324
... RDCP03.25
-. .
.
..- .
.-.._..
..
RDCP0326
--

--

-.___

-:,

* t + + ~ * * i * + + + * * ~ * * + * + + + + * * + + * +- . .~.-.-f. R.. D ~ O 3 2 7- --

PNANE (-*-I
G
RDCP0328
PZE -*-I
---RDCP0379
PZE -*-1
RDCP0330
_
OCT 2 7 7 7 7 7 7 7 7 7 7 7
- RDCP0331
* * * * * + * + + * + * + * + * * + ~ + + * + + + * + * + ~ i R O C p 0 3 3 2
PNAME, ,-*-I
H
----- RDCP0333
.-.-PZE -*-I
RDCP0334
PZE -*-I
--.-.-.I
-- -...------.
OCT 3 0 7 7 7 7 7 7 7 7 7 7
RDCP0336
~ + ~ + t + u * f f ~ + t * ~ + * * + i * + + i + + t * * + * * R D C. --p 0 3 3 7 .
PNAPE 9 9 - 4 - 1
I
RDCP0338
P Z E -*-1
RDCP0339
.

-.-

HH30

%Qa!aa.%.-

HH31

..

.-

------ PAGE 212

BCNNIE-S

71307 0 00000 0 0 6 4 7 0
71310 +317777777777
71311
71312
71313
71314

0 06466 0 07335
0 00000 0 0 6 4 6 5
0 00000 0 0 6 4 6 4
533143030253

71315 0 ('6462
0 07335
71316 0 00000 0 0 6 4 6 1
71317 0 0 0 0 0 0 0 0 6 4 6 0
7 1 3 2 0 +337777777777
71321 0 06456 0 07335
71322 0 0 0 0 0 0 0 0 6 4 5 5
71323 0 00000 0 0 6 4 5 4
7 1 3 2 4 +347777777777
71325
71326
71327
71330

0 06452 0 0 7 3 3 5
0 00000 0 0 6 4 5 1
0 00000 0 0 6 4 5 0
533143030553

71331
71332
71333
71334

0 66446 0 0 7 3 3 5
0 OOOOU 0 0 6 4 4 5
0 00000 0 0 6 4 4 4
533143030653

71335
71336
71337
71340

0 06442 0 07335
0 00000 0 0 6 4 4 1
0 00000 0 0 6 4 4 0
533143030753

7 1 3 4 1 0 06436 0 0 7 3 3 5
71342 0 00000 0 0 6 4 3 5
71343 0 00000 0 0 6 4 3 4
7 1 3 4 4 -007777777777
7 1 3 4 5 0 06432 0 0 7 3 3 5
71346 0 00000 0 0 6 4 3 1
7 1 3 4 7 0 00000 0 0 6 4 3 0
7 1 3 5 0 -017777777777
7 1 3 5 1 0 06426 0 0 7 3 3 5
71352
0 00000 0 0 6 4 2 5
71353 0 00000 0 0 6 4 2 4
7 1 3 5 4 -027777777777
71355 U 06422 0 0 7 3 3 5
71356 0 00000 0 0 6 4 2 1
71357 0 00000 0 0 6 4 2 0
71360 -037777777777
71361

0 06416 0 0 7 3 3 5

1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1790
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710

BIRTHDAY ASSEMBLY

HH32

PZE -*-1
OCT 317777777777
~ ~ ~ ~ ~
PNAME, 1-9-1
PZE -*1
PZE -*-I
DCD l S I L 3 2 S

+0
--

- --- ---- --

--

HH34

HH35

HH36

HH37

HH40

HH41

HH42

HH43

PNAYE, ?-*-I
P Z t -*-1
PZE -*-1
OCT 337777777777

--- ----

-----7------_---

RDCP0348
RQCP0349
RDCP0350
RDCP0351

i ~ i + i t ~ + ~ ~ + u i + t + i + + * i ~ ~ * + i * * * * * R D C P 0 3 5 2
PNAME 7 ~ - * - 1
)
RDCP0353
PZE -*-1
RDCP0354
P Z E -*-1
RDCP0355
--

E
6

OCT 347777777777
RDCP0356
i + + i ~ + + i + + ~ i ~ + * u + ~ + i * * + * * * * * * * ~ R D C P 0 3 5 7
ILLEGAL
PNAME, ,-*-I
RDCP0358
P Z E -+-I
RDCP0359
PZE -*-1
RDCP0360
BCD l S I L 3 5 S
RDCP0361
-~ + * t * ~ + * * + * + ~ + + ~ t + + i + * i + * * + + * * i R D C p 0 3 6 2
PNAME77-*-1
ILLEGAL
RDCP0363
PZE -*-1
RDCP0364
PZE -*-I
RDCP0365
RDCP0366
BCD l S I L 3 6 S
~ * ~ + ~ + ~ * * * + + i 9 i t i + + * + + i t * * t i * * * R D C P 0 3 6 7
PNAPETT-*-~
ILLEGAL
RDCP0368
PZE -*-1
RDCP0369
--- -- -- -- - . - P Z E -9-1
RDCP0370
bCD 1 S I L 3 7 2
RDCP0371
t t ~ i + ~ * * * + + * ~ * ~ s * + + * + + + + * t + ~ a * ~ R D C p 0 3 7 2
PNAME 7 ,-*-I
11 MINUS
RDCP0373
PZE -*-1
RDCP0374
PZE -*-1
RDCP0375
OCT 407777777777
RDCP0376
i ~ + * + u + t + ~ + f ~ t t i i -+ t ~ --t * t ~ i ~ + + * + i R D C p 0 3 -7- 7
PNAME,r-*-l
J
RDCP0378
PZE -*-I
RDCP0379
-- -.
--- --- -- PZE -*-I
RDCP0380
OCT 417777777777
-R Q C P 0 3 8 1 --* ~ ~ % * ~ * i + + * t * * + * * * i t i i * u * + i t i + R D C p 0 3 8 2
PNAMEt ,-*-I
K
RDCP0383
PZE -*-1
RDCP0384
PZE -*-1
--R ~ c - Z - _ -- OCT 427777777777
RDCP0386
Q + * * + * ~ + + * ~ * X + * * + + * * C * + * + * C * + + + R Q C P ~ ~ ~ ~
PNAY E 9 * - + - I
L
RDCP0388
PZE -*-I
RDCP0389
-- -- -PZE -*-I
RDCP0390
3 C T 437777777777
---- - --- --RDCE391.- - -u t + + * * ~ r * ~ i + ~ * * + ~ * + t * t t + * * + + * 1 + + ~ ~ ~ ~ p 0 3 9 2
PNAPE T ? - + - I
M
RDCP0393
-- - ----- ----

----------

HH44

---

----

RDCP0340
RDCP0341
* * * * * * * ~
-- - --- RDCP0343
-- - - -- - RDCP0344
RDCP0345
RDCP0346

* * * + + * * * * * * * * * * * * * * * * * + * * * * * * - t f R D C P 0 3 4 7
HH33

--

-----

PAGE 213

BONNIE-S

i
- - - --

71362
0 00000 0 06415
7 1 3 6 3 n n m n 11 0 6 4 1 4
71364 -047777777777
71365
71366
71367
71 3 7 0

0 06412 0 07335
0 00000 0 06411
0 00000 0 06410
n57777777777

71371 0 06406 0 07335

71372 0 00000 0 06405
71373
0 00000 0 04404
71374 -067777777777
71375 0 06402 0 07335
71376 0 00000 0 0 6 4 0 1
71377 0 00000 0 06400
71400 -077777777777
71401 0 06376 0 07335
71402 0 00000 0 06375
71403 0 00000 0 06374
71404 -107777777777
71405 0 06372 0 07335
71406 0 00000 0 06371
71407 0 00000 0 06370
7 1 4 1 0 -1 1 7 7 7 7 7 7 7 7 7 7
71411
71412
71413
71414

0 06366 0 07335
0 00000 0 06365
C 00000 0 06364
533143050253

71415 0 06362 0 07335

71416
0 00000 0 06361
71417 0 00000 0 06360
71420 -137777777777
71421 0 06356 0 073x5
71422 0 06353 0 06355
71423 0 00000 0 06354
71424 -147777777777
71425 0 06352 0 06706
71426
0 00000 0 61272
71427
71430
71431
71432

0 06350 0 07335
0 00000 0 06347
0 00000 0 06346
533143050553

71433
71434
71435

0 06344 O 07335
0 00000 0 06343
0 C O C O O 0 U6342

BIRTHDAY ASSEMBLY

1711
1717
1713
1714
1 7 1 5 HH45
171h
1717
171R
1719
1770 ~
~
1721
1777
1723
1794
1 7 2 5 HH47
1776
1727
1778
1 7 29
1 7 3 0 HH50
1731
1732
1733
1734
1 7 3 5 HH51
1736
1737
1738
1739
1 7 4 0 HH52
1741
1742
1743
1744
1 7 4 5 HH53
1746
1747
1748
1749
1 7 5 0 HH54
1751
1752
1753
1754
1755
1756
1 7 5 7 HH55
1758
1759
1760
1761
1 7 0 2 HH56
1763
1764

- -- - --

PZE -*-1

--3fl19-----______-

OCT 4 4 7 7 7 7 7 7 7 7 7 7

P7F
PZE

n t
4

---(

I
-

RDCP0394

P ~ --I
F

- - -- --- -- -- .- -

RDCP0396
+

-~

PNAME. 9-1-1
N
RDCP0398
-+-I
- B a n
-+-I
RDCP0400
4~5 7 7 7 7 7 7 7 7 7 7
-RDL+ ~ * * + + * ~ ~ ~ + + * + ~ * * + * + + + + a * * * * * * * R D C P 0 4 0 2
PNAKE. .-*-I
a
--P(LGO
3
-el
RDCP0404

6
PZE
P7F --1
Jllma4mp-OCT 4 6 7 7 7 7 7 7 7 7 7 7
RDCP0406
t + t * * + + * * + * i + * + * + + * i + + + + + * + * t + r R O t P 0 4 n 7
PNARE, ,-*-I
P
RDCP0408
P7F - e l
RDCP0409
PZE -*-I
RDCP0410
OCT 4 7 7 7 7 7 7 7 7 7 7 7
-a Q 4 l . l -

--- ..

---

--

--

_ -_

-- -

n .-.--

* * * * ** *
* * + * **
* * * * **
*- * * * * +
* R D C*
. P . Oi
1 4 . 2 7* *
PNAFE, ,-*-I
d
RDCP0428
PZE -*-1
RDC-tO429
PZE -*-1
RDCP0430
OCT 5 3 7 7 7 7 7 7 7 7 7 7
RD - L ! ? l ? ? - L - - - i + + + + + * * * * * e + + r i * + + * * + + a r 4 * + r + * R D C p 0 4 3 2
PNAME, ,-*-I
.
. .
. . .
-P.D-cCPQ!t3Z! - . .
.
PZ E
-*-1, ,-*-3
PZE -*-1
.
.
.RBC_P_O435
OCT 5 4 7 7 7 7 7 7 7 7 7 7
RDCP0436
PZ E
SYM ,-+- 1
--------.*-.PZE
-CdSTAR
-

...

..-

- -

--- ----,
-

* Q * + * c + Q + + c * Q + c + + * c + c + + ~ * + * ~ + * * R D.------C-.A ~ ~ ~ ~ ~

PZE
PZt

RDCP0438
RDCP0439
-- --RDCP0440
RDCP0441
R D C p 0 4 4 2
!?!&43-.
RDCP0444
RDCP0445
-

-- .-

PNANEt r-4-1
Q
B a ( ; e a k l L PZE -*-I
RDCP0414
PZE -*-I
-_RO2mu
OCT 5 0 7 7 7 7 7 7 7 7 7 7
RDCP0416
* + 4 + * ~ + + + + + + + + * * 4 * * * + ~ * * + i + ~ t + i R ~ C p Q 4 1 7
PNACE.. ,-*-I
2
RDCP0418
.
PZE -+-I
PZE - + - I
RDCP0420
OCT 5 1 7 7 7 7 7 7 7 7 7 7
- _ R D - @ Q 4 2 1 - - .
* + * 1 * * + t * + + t t + i * + * + + * * i * t * * * i + + R D C p 0 4 2 2
PNAYEr 9 - * - 1
-0
- :- -- -_
RQCPO423- - - -P Z t -*-I
RDCP0424
PLE -+-1
--.8CD 1- $. I L 5 -2 .4
RDCP0426

PZE
PZE
EGO

v
9

* + * + + + * * * + i + i ~ * * + * + t t * i * + t * + + + * R D ~ p 0 4 1 2

PNAME 11-*-1
ILLEGAL
-*-I
-- -----*-I
lbIL555
----+ t * ~ Q ~ * t ~ + * * * + + + t * * + * + + + + + * i ~ + +
PNAMEv 9 - * - 1
ILLEGAL
-*-1
-+-I

---.-em---.--

.-

PAGE 214

BONNIE-S

--

-- --

.--.

--

--.71436

533143050653

71437
71440
71441
71442

0 C6340 0 0 7 3 3 5
0 00000 0 0 6 3 3 7
0 00000 0 06336
533143050753

71443
0 06334 0 07335
71444 0 00000 0 06333
71445 0 G O O C G 0 0 6 3 3 2
71446 - 2 0 7 7 7 7 7 7 7 7 7 7
71447 0 06330 0 07335
71450 0 00000 0 06327
7 1 4 5 1 0 00000 0 0 6 3 2 6
71452 -217777777777
71453
0 06324 0 07335
7 1 4 5 4 0 00000 0 0 6 3 2 3
71455
0 00000 0 0 6 3 2 2
71456 -227777777777
71457
0 06320 0 77777
7 1 4 6 0 0 C6317 0 1 0 7 4 2
71461 0 06315 0 06316
7 1 4 6 2 0 OOOOC 0 0 0 0 0 1
71463 0 06314 0 0 7 3 3 5
7 1 4 6 4 0 00000 0 0 6 3 1 3
71465
0 00000 0 0 6 3 1 2
71466 -237777777777
7 1 4 6 7 0 C631G 0 0 7 3 3 5
7 1 4 7 0 0 COO00 0 0 6 3 0 7
71471 0 OOOOC 0 06306
71472 - 2 4 7 7 7 7 7 7 7 7 7 7
71473
0 G6304 0 0 7 3 3 5
71474 o OQOOC o 06303
71475
0 00000 0 06302
71476 - 2 5 7 7 7 7 7 7 7 7 7 7
71477
0 06300 0 07335
71500 0 00000 0 06277
71501 0 OOOCO 0 06276
71502 -267777777777
71503
0 06274 0 0 7 3 3 5
7 1 5 0 4 0 00000 0 0 6 2 7 3
71505
0 00000 0 0 6 2 7 2
71506 - 2 7 7 7 7 7 7 7 7 7 7 7
71507
71510
71511

0 06270 0 07335
0 GO000 0 0 6 2 5 7
0 COO00 0 0 6 2 6 6

- - .. - - -

.---~-

B I RTHDAY ASSEI.IBLY

1765
1766
1 7 6 7 HH57
1768
1769
1770
1771
1 7 7 2 HH6O
1773
1774
1775
1776
1777 HH6l
1778
1779
1780
178 1
1 7 8 2 HH62
1783
1784
1785
1786
1 7 8 7 HH63
1788
1789
1790
1791
1792
1793
1794
1795
1 7 9 6 HH64
1797
1798
1799
18'20
1 8 0 1 HH65
1802
1803
18 0 4
1805
1 8 0 6 HH66
1807
LBO8
1809
1810
1 8 1 1 HH67
1812
1813
1814
1815
1 8 1 6 HH70
1817
1818

---.-.-..

--.

.--.---...

RCD 1 S I L 5 6 d
RDCP0446
~ i ~ ~ + + + + * t + * + * + + + ~ + t + + + e + ~ a * + - r _ r R D C P 0 4 4 7
PNAHE1,-+-1
ILLEGAL
RDCP0448
PZE - + - I
.
----..
RDCP0449
.-- - -- -.
-. - -... ...
--. --PZE -*-1
RDCP0450
BCD l B I L 5 7 6
R~C!3551L.---____
,. :
+
~
+
+
+
+
+
+
+
+
~
+
%
+
+
+
+
+
*
+i k+
~ ~+
R D~
C P*0 4t5 2
+
f
f
f
f
PNAME, ,-*-1
BLANK
-___-___---.---_
---. ~.-FJm!E4_5.?---~
PZE -*-1
RDCP0454
PZE -+-I
RDCP0455
.
RDCP0456
OCT 6 0 7 7 7 7 7 7 7 7 7 7
t + + + t t t + + f f + * + + + + ~ + t + ~ + + + i + + + + _ - ~ a R D C P 0 4 5 7
PNAME. ,-*-I
/
RDCP0458
i
RDCP0459
PZE -*-I
RDCP0460
t
PZE -*-1
. RDCP0461
OCT 6 1 7 7 7 7 7 7 7 7 7 7
+ + i f + + + s + * * + ~ + i + + + * + * + + + + + + * + * + R D C P 0 4 6 2
PNAME, ,-+-I
S
RDCP0463
P Z E -++I
RDCP0464
P Z E -+-1
RDCP0465
OCT 6 2 7 7 7 7 7 7 7 7 7 7
RDCP0466
~

* * i + + + + + i f f + + + + * + + + + f f + + + f + i + + * + * R D C P 0 4 6 7

PZE
PZE
!lCT

-1, (-+-I
T
APVAL (-*-I
-+-l,,-a-Z
1
PNAME, ,-+el
-4-1
-+-I
637777777777
.
f f f f + + i * % * + 4 * * + + t + + * * * + + + + + t +
PNAME 9 .-*-I
U
-*-1
-*-1
---.
647777777777
+ ~ + + + + + * + + + ~ f f * + ~ + * * + +-.-+- -+. +. f f
PNAMEr 3 - * - 1
V
-*-1
-*-1
657777777777
~ - + f + + i + + ~ + + + i * + + + t ~ + + ~ ~
PNANE, ,-*-I.
W
-+-I
-*-I
667777777777
* + + + + + + + + + ~ + + + t t + + ~ + +-~
+ i i + +
PNkME. (-*-I
X

---

PZE
PZE
OCT

PZE
PZE
OCT

PZE
PZE
nCT

-f

RDCP0468
RDCP0469
RDCP0470
RDCP0471
RDCP0472
RDCP0473
RDCP0474
.
RDc P o 5 7 5
~ * + R D C p 0 4 7 6
RDCP0477
RDCP0478
----- RDCP0479
RDCP0480
f + + + + ~-.. R D C P 0 4 81
RDCP0482
RDCP0483
-.RDCP0484
RDCP0485
i ~ t + + f f ~ ~ R ~ C p 0
RDCP0487
-.
RDCP0488
RDCP0489
RDCP0490
+ ~ t + R O C p 0 4 9 1
RDCP0492

--

PZE -*-I
RK?!?e3
P Z E -4-1
RDCP0494
CCT 677777777777
RDCP0495
-----.u + + t + ~ u + f f + + + + + ~ t + + + + t + + ~ + + + + + + + R D C p 0 4 9 6
PNAYEl1-1-1
Y
RDCP0497
- --.... ...
PZE -+-1
RDCP0498
PZE -+-1
RDCP0499
~

.-.--.-.
. .-

~.

PAGE 2 1 5

BONNIE-S

BIRTHDAY ASSEMBLY

--

71512 -307777777777
71513
7fi14
71515
71516

0 L6264 0 07335
0 0 0 0 0 0 0 Oh763
0 00000 0 06262
-3 1 7 7 7 7 7 7 7 7 7 7

71517 0 06760 0 07735

71520
0 06255 0 06257
71571 0 00000 O 06256
71522 -132546515377
71523
0 C6754 0 1 0 7 4 2
71524 0 00000 0 06253
71525
0 00000 0 06771
71526 0 06751 0 07335
71527
0 00000 0 06250
71530 0 00000 0 06247
71531 -337777777777
71532
0 06245
71533
0 00000
71534
0 00000
71535 -34777777

0 07335
0 06244
0 06243
7777

71536
71537
71540
71541

0 06741 0 07335
0 00000 0 06240
0 00000 0 06237
533143070553

71542
71543
71544
71545

O C6235 0 0 7 3 3 5

71546
71547
71550
71551

71552
71553
71554
71555
71556
71557
71560
71561
71562
71563
71564
71565
71566

0 OOOCO 0 0 6 2 3 4
0 UOOCC 0 0 6 2 3 3
533143070653
0 06231 0 07335
0 00000 0 06230
0 00000 0 06227
533143070753

0
0
0
0
0
0
0
0
0
0
0
0
0

06232
06236
06242
06246
06252
06261
06265
ut271
06275
06301
06305
06311
06321

0 77777
0 77777
(1 7 7 7 7 7
0 77777
O 77777
0 77777
0 77777
0 77777
0 77777
0 77777
0 77777
0 77777
0 77777

1819
1x71)
1821
1 R77
1823
1874
1825
1R76
1827
1878
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872

HI471

HH77

OCT 7 0 7 7 7 7 7 7 7 7 7 7
r * + * + r + * * * * * * r
PNAME, 9 - + - 1
Z
P7F -+-I
PZE -*-1
ClCT 7 1 7 7 7 7 7 7 7 7 7 7
* i i * + ~ + i t * ~ * + + *
PNAMF. .-*-I
FNO
PZE -*-1, r-*-3
P7F - + - I
OCT 5 3 2 5 4 6 5 1 5 3 7 7
BCD
P7F APVAL 1. .-+I
PZE -+-I
PZF h77

HI473

+ + + +
PNAME. ,-*-I
PZE -*-I
PZF -*-I
OCT

HH74
PZE
PZE
OCT

PZE
PZE
BCD

--

RDCP0504

'

RDLPQVLS_
+ i + + + * * * + + i ~ * * + f R D C p 0 5 0 6
OF W

--.RRmmu-

----

RDCP0508

--AQ--

_
SEORS

RDC80267

m
I c?lm-

RDCP0512
RaCp0'il-c

RDCPOSLS-

---

PNAME, ,-*-I
P.7E -+-I
PZE - + - I
BCG l f I L 7 6 S
i + + * i ~ + ~ *
PNAb'Et ,-*-I
P Z t -*- 1
PZF -*-1
BCD l S I L 7 7 S

RDCP0530

R.R~~----RDCP0532
3
1
)C2053 3--- ---

+ t + ~ * u
ILLEGAL

p
a
-

-1,~-HH77
-11 p-HH76
- 1 , r-HH75
-1 t r-HH74
- 1 9-HH73
-1, r-HH72
-1 I 1-HH7 1
- 1 p 9-HH70
-1 I 9-HH67
-1,,-HH66
-1~1-HH65
-1 r-HH64
-1 t r-HH63

ILLEGAL

)H77
)H76
lH75
)H74
)H73
)H72
)H71
)H70
)H67
lH66
lH65
1H64
)H63

-RT)T.PI)VU-----

RDCP0516
RD(1POS17
737777777777
RDCPO518
* * + + + i i * + f f * + t * + i ~ 1 + * * t t t t t 1 ) + * i ~ * t R D C ~ 9
PNAMEt ,-*-I
(
RDCP0520
-r-1
-R B D L
-*-1
RDCP0522
747777777777
- R D C P 0 5 2 3
t t ~ ~ ~ + + * u + + + + + t t * t * i ~ i u + + + t ~ * * * R ~ C p 0 5 2 4
PNAFE. .-*-I
11 LEGAL
-+1
RDCP0526
-*-1
R
DWQ527_-.---_
lSIL75S
RDCP0528
r

HH77

RDCP0500
r s + + r * * + * * * * * * + i & ~ n l
RDCP0502

-----

HH75

HH76

---

--

-- . -

- --_

+ + +
R
D

+ + ~ R D C P 0 5 3 4
C
P
0
5
3
5 -- -RDCP0536
RDCP0537
RDCP0538
--- --- -- --R
-D-C P05-3-9 - - _ - --- -_ _ RDCP0540
RDCP0541
-RDCP0542
----RDCP0543 - --- - RDCP0544
R-CLCPO545- - - -.
RDCP0546
---- -- ROCP0547
---- - -RDCP0548
RDCP0549
RDCP0550
-

--

- -- -

------ - - -- -- -- --

-- --

~ ~ ~ 0 5 5 _ 1 _-_-_ -_
_ -RDCP0552
RDCP0553
----- - --- - ---

-- ~

PAGE 216

BONNIE-S

BIRTHDAY A S S E M B L Y

- .. -

-- - -

--- - - .- ----- -

--

71567
71570
71571
71572
71573
71574
71575
71576
71577
71600
71601
71602
71603

0
0
0
0
0
0
0
0
0
0
0
0
0

71610
71611
71612
71613
71614
71615
71616
71617
71620
71621
71622
71623
71624
71625
71626
71627
71630
71631
71632
71633
71634
71635
71636
71637
71640
71641
71642
71643
71644
71645
71646
71647
71650
71651
71652

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
O
0
0
0
0
0
0

C6325
06331
06335
06341
06345
06351
06357
06363
06367
06373
06377
06403
06407

77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777

1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885

0 06433 0 77777

1890
1891
1892
1893
1894
1895
1896
1E97
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924

06437
06443
06447
06453
06457
06463
06467
06473
06477
06503
06513
06517
06523
06527
Oh533
06537
06543
06547
C6553
06557
06563
06567
06576
06577
06600
U66Ol
06602
06603
06604
06605
06606
06607
06610

0
0
0
0
0
0
0
0
0

0
0
0
0

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
1
1
1
1
1
1

77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
77777
L 77777
1 77777
1 77777
1 77777

)H62
)H61
)H60
)H57
)H56
)H55
)H54
)H53
)H52
)H51
)H50
)H47
)H46

)H41
!ti40
)H37
)H36
)H35
)H34
)H33
)H32
lH31
)H30
)HZ7
)HZ6
)HZ5
)HZ4
1H23
1H22
)H21
)HZ0
)HI7
)HI6
)H15
)HI4
)HI3
)HI2
)HI1
)H10
)H07
)HO6
)HO5
)H04
)H03
)HO2
)HO1
)HOO
UPESML BSS

-1, ,-HH62
-1 8-HH6 1
-1 1 r-HH60
-1 r r-HH57
-1 9 9-HH56
-191-HH55
-1 r 9-HH54
-1 1 Y-HH53
-1 1 9-HH52
-1,,-HH51
-1, 1-HH50
-1 r r-HH47
-1 9-HH46

-1 1 r-HH41
-1 9-HH40
-1~1-HH37
-1 1 1-HH36
-1 rp-HH35
-1 9 r-HH34
- 1 1 r-HH33
-1 9 r-HH32
-1 7 9-HH31
-1 r ,-lit130
-1,,-HH27
- 1 r 1-HH26
-1 9 9-HH25
-1 Ir-HH24
-1 1 1-HH23
-I,?-HH22
-1 9-HH2 1
-1 r r-HHZO
-1 9 r-HH17
-1, 9-HHl6
-19,-HH15
-1 r r-HH14
- 1 1 9-HH13
-1ri-HH12
-1~19-HH11
-11 1,-HH10
-191,-HH07
-1 1 11-HH06
-11 1,-HH05
-1 i 19-HH04
-1 9 1,-HH03
-1 119-HH02
-1rlr-HHO1
-11 lr-HHOO
0

~ ~ ~ ~ 0 5 5 4
RDCP0555
RDCP0556
-- - -- ---- - --RDCP0557L
--- - --- ._-.
RDCP0558
-RDCP0559
RDCPO56O
RDCm%L1_-___------=-----RDCP0562
-RDCP0563
RDCP0564
-- RDCP0565
RDCP0566

-- -- -- --

.
-

--

--

--

--

------.
-

.-

--

--- -

--

---

RDCP0571
RDCP0572
RDCP0573
RDCP0574
RDCP0575
RDCP0576
RDCP0577
RDCP0578
RDCP0579
RDCP0580
RDCP0581
RDCP0582
ROCP0583
RDCP0584
RDCP0585
RDCPO586
RDCP0587 RDCP0588
RDCP0589
RDCP0590
RDCP0591
RDCP0592
RDCPO593
RDCP0594

--

-- -

---

--

-- - -

--

--

- -- - --

- -

- -. .- -

--

- . .

--

-----

--

--.-

--en-

--

--

PAGE 2 1 1

BCNNIE-S

1925

B I R T H U A Y ASSEMBLY

EJECT

- --

--

----

PAGE 218

-BONNIE-S

06127
06130
06131
06132
06133
06134
06135
06136
06137
06140
06141
06142
06143
06144
06145
06146
06147
06150
06151
06152
06153
06154
06155
06156
06157
06160
06161
06162
06163
06164
06165
06166
06167
06170
06171
06172
06173
06174
06175
06176
06177
06200
06201
06202
06203
06204
06205
06206
06207
06210

- ---

.- -.

--.

. .--

----- --

---

.---

-.

BIRTHDAY ASSEMBLY

1926
192 7
1928
1929 *
1 9 3 0 HOO
1931 H01
1 9 3 2 H02
1 9 3 3 H03
1 9 3 4 H04
1 9 3 5 H05
1 9 3 6 H06
1 9 3 7 H07
1938 H I 0
1939 H11
1 9 4 0 H12
1 9 4 1 H13
1 9 4 2 H14
1 9 4 3 H15
1 9 4 4 H16
1 9 4 5 H17
1 9 4 6 H20
1 9 4 7 HZ1
1 9 4 8 H22
1 9 4 9 H23
1 9 5 0 H24
1 9 5 1 H25
1 9 5 2 H26
1 3 5 3 H27
1 9 5 4 H30
1955 H31
1 9 5 6 H32
1957H33
1 9 5 8 H34
1 9 5 9 H35
1 9 6 0 H36
1 9 6 1 H37
1 9 6 2 H40
1 9 6 3 H41
1 9 6 4 H42
1 9 6 5 H43
1 9 6 6 H44
1 9 6 7 H45
1 9 6 8 H46
1 9 6 9 H47
1 9 7 0 H50
1 9 7 1 H51
1 9 7 2 H52
1 9 7 3 H53
1974 ti54
1 9 7 5 H55
1 9 7 6 H56
1 9 7 7 H57
1 9 7 8 H60
1979 H 6 l

EJECT
HEAL
0
SYN CAKDS CAUSE MANY SYMBOLS TO HAVE 0-HEADED
SYN -)HOD
SYN - I t 4 0 1
SYN -1H02
3YN
)H03
SYY -1H04
SYN -1H05
SYN - ) H o b
SYN -1H07
SYN - ) t i 1 0
SYN - ) H I 1
SYN -1H12
SYN -1H13
SYN -1H14
SYN - ) H I 5
SYN - ) H l 6
SYN - ) H I 7
SYN - I n 2 0
SYN -1H21
SYN -1H22
SYN -1H23
SYN - ) H 2 4
SYN -)I425
SYN - ) H Z 6
SYN - ) H 2 7
SYN -1H30
SYN - ) H 3 1
SYN -1H32
SYN-)H33
SYN - ) t i 3 4
SYN -1H35
SYN -1H36
5YN -1H37
SYN -)kt40
SYN - ) H 4 J
SYN -1H42
SYN - ) H 4 3
SYlJ - ) t i 4 4
SYN -1H45
SYN -1H46
SYN -1H47
5YN - ) t i 5 0
SYN -1H51
SYN -1H52
S Y M -1H53
SYN -1H54
SYN -)Id55
SYN - ) t i 5 6
3YN - ) H 5 7
SYN -)HhO
SYN - 1 H t l

EQUIVALENTS

ROC80471
ROC80472
--KDC80473
R0 c - ! o 4 7 4 .-____-RDC80475
RDC80476
ROC80477
ROC80478
ROC80479
RDC80480
ROC80481
RDC80482
ROC80483
RDC80484
ROC80485
ROC80486
RDC80487
RDC80488
RDC80489
ROC80490
RDC80491
RDC80492
RDC80493
RDC80494
RDC80495
RDC80496
ROC80497
ROC80498
ROC80499
ROC80500
-RDC8050 1
.
- - RDC80502
ROC80503
RDC80504
RDC80505
ROC80506RDC80507
RDC80508
RDC80509
ROC80510
-RDC805 11
RDC80512
ROC80513
-ROC80514
--ROC80515
ROC805 1 6
------RDC805 17
- -RDC8O518-_
_ _ _
._ RDC80519
RDC80220

--

--

- - --

-~-

--

----

"
.
a

<
<

PAGE 2 1 9

BONNIE-S

BIRTHDAY ASSEMGLY

06211
n6717
06213
06714
06215
Oh716
06217
Ch77fl
06221
Oh777
06223

1980
1981
1982
1983
1984
1985
1986
1987
1989
1989
1990

H62

SYN -1H62

ROC80521

SYN

RDC80523

H72
H73
H74

06225
06776
10772
10767
10752
10742
10742
10735
10725
10715
06155
06712
10675
10665
06222
10460
10450
10323
10440
10430
10420

1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
7003
2004
7005
2006
2007
2008
2009
2010
2011
2012

H76
H77
AND
F1
F18
APVAl
APVALl
ARRAY
ATOM
F29
F
T
CAR
CDR
COMMA
CON0
CONSN
DUMP
F12
COPYN
F35

SYN -1H72
3
SYN -1H74
5
SYN -1H76
7
SYN - 1 0 0 2
SYN - 1 0 0 3
SYN - 1 0 0 4
SYN - ) a 5
SYN
-1005
SYN
SYN - 1 0 0 7
8
SYN H26
SYN H63
SYN - 1 0 1 1
2
SYN H73
SYN - 1 0 1 6
SYN - 1 0 1 7
SYN
-0MPOB
SYN - 1 0 1 9
SYW - 1 0 7 0
SYN - 1 0 2 1

10231
10177
10167
10157
10152
10142
10135
10135
10120
10103
10076
10071
10057
10047
10037
10015
10005
07775
07770

2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2023
2030
2031
2032
2033

F21
F19
EVLISL
EXPR
F32
FEXPR
BIN
FIX
FLOAT
FSUBR
FUNARG
FUNCT
SYMGEN
CGET
GO
Fl6
LABEL
LAMBDA
LAP

SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYM
SYN
SYN
SYN
SYN

H53

H64
H65
H66
H67
H70

SYN
SYN

t,jJJ

- 3
-1H64
- 5
-)ti66
- 7
-1H70
- 1

573

RaCB0524- -

---RDc-

ROC80525
RDC80527

ROC80529

R D L 8 0 5 1 0 - - _ _ RDC80531
RD(1811537
ROC80533

RDCR0534

LO137600

--

- - _ L D 1 3 2 2 n 0 - - LO137800

- _ _ L D 1 3 7 9 0 L

LD138100

W3aU,DD-.-

--Rm(rL
LD140000

-1034
-1035
-1036
-1037
-1038
-1040
-1041
-1041
-1042
-1043
-1044
-1045
-1046
-1231
-1047
-1052
-1054
-1055
-lLAP

--

RDCWOOOO

L D 1 4 0 1 1 ) D - -

-_

--_U-QWD
LD 1 4 0 5 0 0
-

-- -- -

--

LD140700

--l_--,JLO140900

L.RlW,+QL.

LO141500

--

L L u d k - h----.---LO141700
L.!l14.18.~~
LD142000
.-

'

--_!&l.!4UQ0_
LD142100

__-~MMIII..-____

--.

LD142300
.
. _L_D1_k24_0PP
LD142500
LD142600
LD159000
LD141700
LD143000
CBk%3.!.0 0
LD143200
.
.

-.
-- -

..__.. . .-_-

-.

--.,--,

.-

- . .-- .-.
.
. . - -. --

- - -- -- - -- PAGE 220

BONNIE-S
07736
07716
07646
07614
07574
07604
07544
00000
07534
07524
07472
07435
07415
07405
07365
07355
07335
07320
07300
07260
07250
07226
07206
07140
07130
07150
07052
07061
07110
07101
07072
07042
07032
07022
06772
07002
06733
06726
06716
06671
06706
06657
06647
06642
10655
10645
10635
10625
10615
10605
10575
10565
10555
10545

2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087

8 1 RTHDAY ASSEWBLY
LIST
LOADA
PMAPCA
MAXP
MINUS
MINP
F3
NIL
NOT
NULL
OBLBA
OR
F2
PAUSE
PLB
PLUS
PNAME

F4
PRUG
PRllPO
QUOTE
F13
RCLAM
PRPLCA
PRPLCD
RETATM
SASCO
SLIST
SPECAL
SMOVE
SRETUR
SRCH
SET
SETQ
STOP
F34
SUaR
F17
F30
F27
SYM
TIMES
TRACE
F36
CAAR
CGAR
CADR
CDOR
CAAAH
CAADR
CAOAR
CAODK
COAAR
CGADR

SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYM
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN

-1057
-1234A
-1065
-117
-1070
-118
-1071
0
-1074
-1075
-1079A
-1079
-1080
-1234C
-12348
-1081
-1083
-1087
-1089
-1090
-to94
-1096
-12340
-1100
-1101
-1102
-1106
-)LST
-1 SPCL
-1MCV
1 RTKN
-1236
-1107
-1108
-1111
-1109
-1 113
-1 114
-1115
-1122
-1SYM
-1124
-)213
-1127
-1201
-1202
-1203
-1204
-1205
-1206
-1207
-1208
-1209
-1210

--

--------

- - - - . -- - -. - ---

- -- -

---

- -----

LO143300
LO144000

---

--

LO 1 4 4 4 0 0

--

------

--- -

LO 1 4 4 3 0 0

- .-

Lrnk5200LO 1 4 5 3 0 0
LD145400
LO145600
LO145700
LO145800
LD146100
LO146300
LO146400
LD146500
LO146600
LD146800
LO146900
LO147000

-- - -

--

--

--

LO149200

--

- . --

s
o

--

---

-- - ---

-----

LO147500
LD147600
LD147700
LO147800
LD147900
LO148100
LD148200
LD148300
LO149000

--

LU147400

- --

--

LD144800
LD144900
-- -- -- - - -- - -- -- --

---

-_-

--

LD149500
LO156400
LO156500
LO156600
LO156700
LO156800
LDl56900
LD157000
' z D E ? ~ - o O pLO157200
LD157300

----

_A_

-----

---

--

PAGE 2 2 1

BONNIE-S

B I R r H D A Y ASSEMBLY

---10535

2088

In575

2089

07162

2C) 9 0

1013
111721
10251

2092
71193
2094
7095
2096
70197
2C198
2 0199
2 10 0
2101
2102
2 10 3
04
05
06
07
08
0.9
--

191

07656
07170
07375
10333
07345
10705
07012
06765

CDDAR SYN - 1 2 1 1
ZVN
)717
REMPP
SYN
-1250
P.11
1
PJ2
SYN - 1 P J 2
PJ4
4
PJ5
SYN - ) P J 5
P.16
YYN
)PJ6
PJ7
SYN - 1 P J 7
PJ8
8
PJ9
SYN - 1 P J 9
PJlO
10
P J l l
SYN - 1 P J 1 1
P.117
12
PJ14
SYN - 1 P J 1 4
PJ15
SYN - ) P J 1 5
PJ16
SYN - 1 P J 1 6
PJ17
SYN - ) P J 1 7
PJ18
SYN - 1 P J 1 8
PJ19
SYN - 1 P J 1 9
PJ21
SYN - 1 P J 2 1
P -J 2 3
SYN - ) P J 2 3
SY N
-1PJ24
PJ25
SYN
-1PJ25
P J 2 6 SYN
-1PJ26

07502
07554

2111
2112

07462
10313
06630
10515
07330
103C1
10271
07676
07706
07666
07310
10211
07760
07462
07216
14401
14126
15016
14667
10011
15230
15212
15222
06370
12635
12201
04345
07343

2114 PJ28
2 11 5 P J 3 0
2 11 6 P J 3 1
2 11 7 P J 3 2
2 11 8 P J 3 3
2 11 9 PJ34
- - - .- 2 l L U PJ35
2121 PJ36
2122
PJ37
2123
PJ38
2124
PJ39
2 1 2 5 ERSETO
2126
PVhl
2 l 2X 7Y O C T
2 128 RECIP
-2 1 2 ~ AUUL
2 1 3 0 ADDP
2 1 3 1 APP2
2132
APPLY
2133
APROP
2 1 3 4 ATOMP
2 1 3 5 CARP
2136
CDKP
2 1 3 7 CELL
2 1 3 8 CHACT
2139
CLEAR
2140
COPY
2141 CPl

LD157400

- -

----

-- ----

RDC80536

u'R
LL
fQO
- C80538
R -D-t R
- -0-5 4 -0

--

_R[1m61---

RDC80542

-RDC80_543

RDC80544
545

RDC80546

m80547--

ROC80548
RDC80549
RDC80550

RO-

RDC80552

- --K!2?-&2553

---

RDC80554

ROC80555____-.
RDC80556

0
R I L C B _ O 5
-1PJ28
-1PJ30
-1PJ31
-1PJ32
-1PJ33
-1PJ34
-1PJ35
-1PJ36
-1PJ37
-1PJ38
-1PJ39
-1PJ41
-PVVl
PJ28
-II1 8
Q$ACDl
QZACUP
A$APPZ
ASAPPLY
RBPROP
ROATOMP
RJCARP
RJCCRP
ISCELL
FOCbACT
FBCLEAR
RJCCPY
CBCPl

--

SYN
SYN
SYN
SYN
SYN
SYN
- .
SYN
SYN
SYN
SYN
SYN
TYN
SYN
SYN
SYX
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYM
SYN
SYN
SYN

RDC80558

---ROC8035-9

RDC80560
RDCB.0.541-_
RDC80563

---

--

---

..

__ -

..-..

---mu%--.-----.-RDC80565

RD_C80-566-

--

-- _
RDC80567
RDC8 Q 5 6 _ 8 - _ _ _
ROC80569

LEFTShIFT

_- -

.-

- --

RDC70410
-- --RD-C80570
--- ----

--

--

ROC80572
--- R D C Z 0 0 1 5

--

- --

-.-.

------.--.-------..---. L D 1 6 3 6 0 0
--

LD163500
L----D 165
-- 6 0 0.LD164000
LD163800
LD163900
L D 16 3 6 0- - -=0- . RDCZ0009
R D C I 0 5 2 9 __
LD161600
_ Lfllh29.00
~

--

- --

_
-

--.
.

--

PAGE 2 2 2

I-.

.'\

.
<,.<..

"

-.

.!

rl

I
1

2
>-

:i

L'

I-

'

13

12
11

.-

10
P

a
7

- .

-BONNIE-S

- ----BIRTHDAY ASSEMBLY

- -6
f

.--,

12634
12633
04111
12337
15445
04461
12346
15454
11310
15370
15154
15774
15416
13530
14466
00663
16130
15264
15250
12321
12662
14150
07620
14142
12147
12636

2142
CURC
SYN
FBCURC
2143
C U R C l SYN
FSCURC1
2 1 4 4 DECON SYN ELDECON
2145
D I G I T SYN
FBOIGIT
2146
EQP
SYN RSEQP
2147
EQUAL SYN LSEQUAL
2148
E R O R l SYN
FSERORl
2 1 4 9 EVAL
SYN AdEVAL
2 1 5 0 EVALO SYN
SBEVALO
2 1 5 1 EVANC SYN RSEVA8
2152
EVCON SYN ASEVCON
2153 EVLIS
SYN
ASEVL IS
2154
EVOR
SYN RSEVRB
7155
EXPT
SYN
OLEXPT
2156 FIXP
SYN
QSF I X P
2157
I N P U T SYN
851NPUT
2158
I N T E R SYN RSINTER
2159
L A B P SYN RSLABP
2160
LAMP SYN RBLAMP
2 1 6 1 L I T E R SYN
FSLITEH
2162
LOGOR SYN
HSLOGOR
2 1 6 3 MAX
SYN
QSMAX
2 1 6 4 MAP
SYN MAPCAR
USMIN
2165 MIN
SYN
2166
MKNAM SYN
FSMKNAM
2167
MKNO SYN
FSMKNO

14134
07675
10150
15243
06622
12071
06543
14533
10220
12032
07562
13572
04620
04703
05110
04604
10011
05341
05325
06026
05732
05757
15346
15311
02077
14430
07367
14565

2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2132
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195

MULT
NCONC
NOTS
NULLP
NUMBR
NUMOO
YUTRN
ONEP
OVBGN
PACK
PAIR
POWR
PRINO
PRINl
PRINZ
PRINT
PROP
PUN2
PUNCH
RD
READ
READ1
SETP
SETQP
SETUP
SUB1
SUBST
UNFIX

SYN
SYN
SYN
SYN
SYN
SYN
SYY
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYN
SYY
SYN
SYN
SYN
SYN
SYM
SYN
SYN
SYN
YYN

Q6MULT
RLNCONC
RLNOTS
RSNULLP
FSNUMBG
FSNUM08
TLNUTRY
QBONEP
S BOVBGN
FSPACK
ABPAIR
G$POWR
TSPRINO
TSPRIN1
TLPRINZ
TSPRINT
RSPROP
TBPUN2
TBPUNCH
ISRC
ISREAD
IBREADl
RSSETP
RSSETQP
ELSETUP
QBSUBl
RSSUBST
QBUNFIX

RDCZ0003
RDCZ0004
LD161200
3_D_cL;:I_0533_
LD165100
L O 1 -.
6 1-900
ROC10534
-4D-u!5zciP-

------.___--.-----..-~-

--, ,
CI

-.

.- --

LO165000
LO163700

1,
L

VI I

LD164900

SI

'

91

LI

e!
RDCZOOl6

61 I

LD165400
LD164400
LD164300
RDCI0536
RDCI0537
ROC20017
LO163200
RDCZOOl8
ROC 1 0 5 4 0
ROC10541
RDCZ0019
LD163300
LD166200
LDW100
RDC10544

--- - ---

--

ROC10543
LD162700
ROCZOO20

--GVERLOKO BEGINNING

--

ROC10546
LD163100
LD166700

- -- -

LO162000

LD161800
LD165700

---

--.
.
.

- .

LD162400
LO162200
LD162300
LO164700

- ----

-----

-.

-- ---

- - -- -

--

,--.

LO163000
RDCZ0022

- - - ---

-----

at;

- -- -

---

PAGE 2 2 3

06533
14507
10042

t --

\'

BONNIE-S

C.

--

71652

0 00000 0 00000
05766
77724

,..,

, " .

L - . .

-)

\
-

,Y

--

\
1

\
5

"..

!
-,

l?,

10

BIRTHDAY ASSEMBLY

2196
VALUE SYN I S V A L U E
7 1 9 7 7FRnP SYN
QS7rRQe
2 1 9 0 APSSOC SYN SASSOG

1
7
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

.--

----

. m z & m
LD165800

BUTCREGIONANDEND.

OECK

HEAC

LD162500

-BUTCH,

A HOME FOR PATCHES

----f-

____---.---_-

BUTCH
BUTC HL EQU

-_

*---

LC894000
LC.89-4.U)o

-.-"_.__

N I L SXX-*+ 1

LENGTH OF BUTCH REGION

LOADER

GO TO RW TNL FOR OCTAL CORRFCTION CDS

---.-...--.-- -.---..-

_
~ ~ 1 6 % 0 0

TCD

THF FOLLOWNG PRGDUCE A ROW BINARY TRANSFFR CARD TO C W T I N

00000
00 174
AAAAA
00000
BBBBB
CCCCC
00000
00001
DDDDD
00001
EEEEE
00001
FFFFF
OOOC 1
GGGGG
00001
HHHHH
00000
11111
00000
JJJJJ
COCGO + 0 0 0 0 0 0 0 0 0 0 0 0
COCOl + 0 0 0 C 0 C 0 0 0 0 0 0
COO02 + 0 0 0 0 0 0 0 0 0 0 0 0
CCOC3 + 0 0 0 G 0 0 0 G 0 0 0 0
CC004 +COOCOOCCOOOO
COC05 + 0 0 0 0 G 0 0 0 0 0 0 0
COCC6 + C 0 0 0 0 0 0 0 0 0 0 0
CCOG7 +OGOC000G0000
CCClO +000OGOGOC000
25
0 00000 0 00001
CCOll
26
0 GO100 0 1 0 0 0 1
COO12
27
COO13 0 0 0 1 0 0 0 0 0 0 0 0
OOOOO
2 8 ENDEPIC
7 7 7 1 2 I S THE F I R S T LOCATION NOT USED
NO ERROR I N ABOVE ASSEMBLY

FUL
ORG
EQU
EQtJ
EQU
EQU
FQU
EQU
EQU
EQU
EQU
EQU
@CT

1:

0
CONT I N
AAAAA-AAAAA/2+2
AAAAA/2-AAAAA/4*2
AAAAA/4-AAAAA/8+2
AAAAA/8-AAAAA/16*2
AAAAA/ 16-AAAAA/32*2
AAAAA/32-AAAAA/64*2
AAAAA/64-AAAAA/ 1 2 8 * 2
AAAAA/128-AAAAA/256+2
AAAAA/256-AAAAA/512*2
O1OtO~O~3rO,O,O,O

--

--- --

--

- --- . -

--

- -.

1
i

-- --- -

-- -- -

------

.- .

---

------------....
-- --

p
p
p
p
.

---

--

HHHHH+4096+IIIII,,64+JJJJJ
FEEEE+4096*FFFFFi,64*GGGGG
BBBBB+4096*CCCCC,,64+DDDDD
0
PROGRAM

..

-. -.

-.

-------

PZE
PZ E
PZE
END
BY T H I S

---.-

--

-.
.-.--

- ~ . -. ..
~

-. --..--

--

--

DUMPS FOR

A--

.-

770CO COREPM

JOB

LISP

AC
C C t 000000 000000 +.00000000+00
i R 1 00004
00004
I R 2 77776 3 2 7 6 6

MQ + 006060 606060
I R 4 05722 03026

+,17912294-37

$ 1 0000000 077712
SL O O O G
sw 0 0 0 0 0 d -

9
L

OVFL ON
DC OFF
I O C OFF
E K +000000 000000

5
111

HTR
800006 074500
TCCA
006(-l00 O C O O O 1
OC004
b4
HTR
000000 000000
HTR
000000 000000
OCOlO
+8
TTR
002100 074502
HTR
000000 000000
ALL C U H P S COMPLETED
$$$
JOB LISP
5/07
15.0498
15.1533
0. LO35
B

0
0
0

.A,

O,OOOOO ,00013

+\A.

I'

CCOOO

__--______-----~
TTR
C021CO 074435 .-----. k T ! ? . - - HTR
HTR

000000 000000
000000 000000

HTR
TTR

~
~
~ -----O
~
000000 000000
002100 0 7 5 0 2 4

- "~

o
71

51
91