�     >Monkey1 (Info13)
 � By  Richard Talbot-Watkins
� For 8-bit machines
(� (C) BAU April 1993
2:
<� 7
F� "Assembling..."
Pmem%     = �+&A00
Zcode%    = &900
d:
ntop      = &70
xaddr     = &74
�temp     = &78
�wordno   = &7C
�thisword = &80
�data     = &84
�:
�� N%=0 � 2 � 2
�P%=code%
�[OPT N%
�JMP insertdata
�JMP findword
�JMP checkword
�:
�.insertdata

JSR findword


LDY #0

.incnum

"LDA (addr),Y

,INY

6CMP #13

@BNE incnum

JCLC

TLDA (addr),Y

^
ADC #2

hSTA (addr),Y

rINY

|LDA (addr),Y

�
ADC #0

�STA (addr),Y

�TYA

�CLC

�ADC addr

�STA addr

�LDA addr+1

�
ADC #0

�STA addr+1

�LDA top

�STA temp

�
LDA top+1

�STA temp+1
	.copy

LDY #0
LDA (temp),Y
&
LDY #2
0STA (temp),Y
:SEC
DLDA temp
N
SBC #1
XSTA temp
bLDA temp+1
l
SBC #0
vSTA temp+1
�CMP addr+1
�BNE copy
�LDA temp
�CMP addr
�BNE copy
�LDA data
�
LDY #1
�STA (temp),Y
�LDA data+1
�INY
�STA (temp),Y
�CLC
�LDA top

ADC #2
STA top

LDA top+1
 
ADC #0
*
STA top+1
4RTS
>:
H
.findword
R
LDA #0
\STA addr
fSTA wordno
pSTA wordno+1
zLDA #(mem% � 256)
�STA addr+1
�
.find2
�LDA wordno
�CMP thisword
�
BNE find3
�LDA wordno+1
�CMP thisword+1
�
BNE find3
�RTS
�
.find3
�JSR nextword
�
BCC find2
�BRK:BRK
EQUS "Word not found"
BRK
:
$.checkword
.
LDA #0
8STA addr
BSTA wordno
LSTA wordno+1
VLDA #(mem% � 256)
`STA addr+1
j.search1
t
LDY #0
~.search2
�LDA (addr),Y
�CMP &700,Y
�
BNE notit
�INY
�CMP #13
�BNE search2
�RTS
�
.notit
�JSR nextword
�BCC search1
�
LDY #0
�.newword
LDA &700,Y

STA (addr),Y
INY
CMP #13
(BNE newword
2
LDA #0
<STA (addr),Y
FINY
PSTA (addr),Y
ZINY
dTYA
nCLC
xADC top
�STA top
�
LDA top+1
�
ADC #0
�
STA top+1
�RTS
�:
�
.nextword
�
LDY #0
�
.next2
�LDA (addr),Y
�INY
�CMP #13
�
BNE next2
STY temp
LDA (addr),Y
CLC
"ADC temp
,STA temp
6INY
@LDA (addr),Y
J
ADC #0
TSTA temp+1
^CLC
hLDA temp
r
ADC #2
|STA temp
�BCC nohigh
�INC temp+1
�.nohigh
�CLC
�LDA temp
�ADC addr
�STA addr
�LDA temp+1
�ADC addr+1
�STA addr+1
�INC wordno
�
BNE next3
�INC wordno+1

.next3
LDA addr
CMP top
&BNE morewords
0LDA addr+1
:
CMP top+1
DBNE morewords
NSEC:RTS
X.morewords
bCLC:RTS
l]
v�
�:
�� "Code assembled."
�� "CHAINing part 2..."
�� "Monkey2"
�

00000000  0d 00 0a 1b f4 20 20 20  20 20 3e 4d 6f 6e 6b 65  |.....     >Monke|
00000010  79 31 20 28 49 6e 66 6f  31 33 29 0d 00 14 20 f4  |y1 (Info13)... .|
00000020  20 42 79 20 20 52 69 63  68 61 72 64 20 54 61 6c  | By  Richard Tal|
00000030  62 6f 74 2d 57 61 74 6b  69 6e 73 0d 00 1e 18 f4  |bot-Watkins.....|
00000040  20 46 6f 72 20 38 2d 62  69 74 20 6d 61 63 68 69  | For 8-bit machi|
00000050  6e 65 73 0d 00 28 18 f4  20 28 43 29 20 42 41 55  |nes..(.. (C) BAU|
00000060  20 41 70 72 69 6c 20 31  39 39 33 0d 00 32 05 3a  | April 1993..2.:|
00000070  0d 00 3c 07 eb 20 37 0d  00 46 15 f1 20 22 41 73  |..<.. 7..F.. "As|
00000080  73 65 6d 62 6c 69 6e 67  2e 2e 2e 22 0d 00 50 15  |sembling..."..P.|
00000090  6d 65 6d 25 20 20 20 20  20 3d 20 90 2b 26 41 30  |mem%     = .+&A0|
000000a0  30 0d 00 5a 13 63 6f 64  65 25 20 20 20 20 3d 20  |0..Z.code%    = |
000000b0  26 39 30 30 0d 00 64 05  3a 0d 00 6e 12 74 6f 70  |&900..d.:..n.top|
000000c0  20 20 20 20 20 20 3d 20  26 37 30 0d 00 78 12 61  |      = &70..x.a|
000000d0  64 64 72 20 20 20 20 20  3d 20 26 37 34 0d 00 82  |ddr     = &74...|
000000e0  12 74 65 6d 70 20 20 20  20 20 3d 20 26 37 38 0d  |.temp     = &78.|
000000f0  00 8c 12 77 6f 72 64 6e  6f 20 20 20 3d 20 26 37  |...wordno   = &7|
00000100  43 0d 00 96 12 74 68 69  73 77 6f 72 64 20 3d 20  |C....thisword = |
00000110  26 38 30 0d 00 a0 12 64  61 74 61 20 20 20 20 20  |&80....data     |
00000120  3d 20 26 38 34 0d 00 aa  05 3a 0d 00 b4 12 e3 20  |= &84....:..... |
00000130  4e 25 3d 30 20 b8 20 32  20 88 20 32 0d 00 be 0c  |N%=0 . 2 . 2....|
00000140  50 25 3d 63 6f 64 65 25  0d 00 c8 0b 5b 4f 50 54  |P%=code%....[OPT|
00000150  20 4e 25 0d 00 d2 12 4a  4d 50 20 69 6e 73 65 72  | N%....JMP inser|
00000160  74 64 61 74 61 0d 00 dc  10 4a 4d 50 20 66 69 6e  |tdata....JMP fin|
00000170  64 77 6f 72 64 0d 00 e6  11 4a 4d 50 20 63 68 65  |dword....JMP che|
00000180  63 6b 77 6f 72 64 0d 00  f0 05 3a 0d 00 fa 0f 2e  |ckword....:.....|
00000190  69 6e 73 65 72 74 64 61  74 61 0d 01 04 10 4a 53  |insertdata....JS|
000001a0  52 20 66 69 6e 64 77 6f  72 64 0d 01 0e 0a 4c 44  |R findword....LD|
000001b0  59 20 23 30 0d 01 18 0b  2e 69 6e 63 6e 75 6d 0d  |Y #0.....incnum.|
000001c0  01 22 10 4c 44 41 20 28  61 64 64 72 29 2c 59 0d  |.".LDA (addr),Y.|
000001d0  01 2c 07 49 4e 59 0d 01  36 0b 43 4d 50 20 23 31  |.,.INY..6.CMP #1|
000001e0  33 0d 01 40 0e 42 4e 45  20 69 6e 63 6e 75 6d 0d  |3..@.BNE incnum.|
000001f0  01 4a 07 43 4c 43 0d 01  54 10 4c 44 41 20 28 61  |.J.CLC..T.LDA (a|
00000200  64 64 72 29 2c 59 0d 01  5e 0a 41 44 43 20 23 32  |ddr),Y..^.ADC #2|
00000210  0d 01 68 10 53 54 41 20  28 61 64 64 72 29 2c 59  |..h.STA (addr),Y|
00000220  0d 01 72 07 49 4e 59 0d  01 7c 10 4c 44 41 20 28  |..r.INY..|.LDA (|
00000230  61 64 64 72 29 2c 59 0d  01 86 0a 41 44 43 20 23  |addr),Y....ADC #|
00000240  30 0d 01 90 10 53 54 41  20 28 61 64 64 72 29 2c  |0....STA (addr),|
00000250  59 0d 01 9a 07 54 59 41  0d 01 a4 07 43 4c 43 0d  |Y....TYA....CLC.|
00000260  01 ae 0c 41 44 43 20 61  64 64 72 0d 01 b8 0c 53  |...ADC addr....S|
00000270  54 41 20 61 64 64 72 0d  01 c2 0e 4c 44 41 20 61  |TA addr....LDA a|
00000280  64 64 72 2b 31 0d 01 cc  0a 41 44 43 20 23 30 0d  |ddr+1....ADC #0.|
00000290  01 d6 0e 53 54 41 20 61  64 64 72 2b 31 0d 01 e0  |...STA addr+1...|
000002a0  0b 4c 44 41 20 74 6f 70  0d 01 ea 0c 53 54 41 20  |.LDA top....STA |
000002b0  74 65 6d 70 0d 01 f4 0d  4c 44 41 20 74 6f 70 2b  |temp....LDA top+|
000002c0  31 0d 01 fe 0e 53 54 41  20 74 65 6d 70 2b 31 0d  |1....STA temp+1.|
000002d0  02 08 09 2e 63 6f 70 79  0d 02 12 0a 4c 44 59 20  |....copy....LDY |
000002e0  23 30 0d 02 1c 10 4c 44  41 20 28 74 65 6d 70 29  |#0....LDA (temp)|
000002f0  2c 59 0d 02 26 0a 4c 44  59 20 23 32 0d 02 30 10  |,Y..&.LDY #2..0.|
00000300  53 54 41 20 28 74 65 6d  70 29 2c 59 0d 02 3a 07  |STA (temp),Y..:.|
00000310  53 45 43 0d 02 44 0c 4c  44 41 20 74 65 6d 70 0d  |SEC..D.LDA temp.|
00000320  02 4e 0a 53 42 43 20 23  31 0d 02 58 0c 53 54 41  |.N.SBC #1..X.STA|
00000330  20 74 65 6d 70 0d 02 62  0e 4c 44 41 20 74 65 6d  | temp..b.LDA tem|
00000340  70 2b 31 0d 02 6c 0a 53  42 43 20 23 30 0d 02 76  |p+1..l.SBC #0..v|
00000350  0e 53 54 41 20 74 65 6d  70 2b 31 0d 02 80 0e 43  |.STA temp+1....C|
00000360  4d 50 20 61 64 64 72 2b  31 0d 02 8a 0c 42 4e 45  |MP addr+1....BNE|
00000370  20 63 6f 70 79 0d 02 94  0c 4c 44 41 20 74 65 6d  | copy....LDA tem|
00000380  70 0d 02 9e 0c 43 4d 50  20 61 64 64 72 0d 02 a8  |p....CMP addr...|
00000390  0c 42 4e 45 20 63 6f 70  79 0d 02 b2 0c 4c 44 41  |.BNE copy....LDA|
000003a0  20 64 61 74 61 0d 02 bc  0a 4c 44 59 20 23 31 0d  | data....LDY #1.|
000003b0  02 c6 10 53 54 41 20 28  74 65 6d 70 29 2c 59 0d  |...STA (temp),Y.|
000003c0  02 d0 0e 4c 44 41 20 64  61 74 61 2b 31 0d 02 da  |...LDA data+1...|
000003d0  07 49 4e 59 0d 02 e4 10  53 54 41 20 28 74 65 6d  |.INY....STA (tem|
000003e0  70 29 2c 59 0d 02 ee 07  43 4c 43 0d 02 f8 0b 4c  |p),Y....CLC....L|
000003f0  44 41 20 74 6f 70 0d 03  02 0a 41 44 43 20 23 32  |DA top....ADC #2|
00000400  0d 03 0c 0b 53 54 41 20  74 6f 70 0d 03 16 0d 4c  |....STA top....L|
00000410  44 41 20 74 6f 70 2b 31  0d 03 20 0a 41 44 43 20  |DA top+1.. .ADC |
00000420  23 30 0d 03 2a 0d 53 54  41 20 74 6f 70 2b 31 0d  |#0..*.STA top+1.|
00000430  03 34 07 52 54 53 0d 03  3e 05 3a 0d 03 48 0d 2e  |.4.RTS..>.:..H..|
00000440  66 69 6e 64 77 6f 72 64  0d 03 52 0a 4c 44 41 20  |findword..R.LDA |
00000450  23 30 0d 03 5c 0c 53 54  41 20 61 64 64 72 0d 03  |#0..\.STA addr..|
00000460  66 0e 53 54 41 20 77 6f  72 64 6e 6f 0d 03 70 10  |f.STA wordno..p.|
00000470  53 54 41 20 77 6f 72 64  6e 6f 2b 31 0d 03 7a 15  |STA wordno+1..z.|
00000480  4c 44 41 20 23 28 6d 65  6d 25 20 81 20 32 35 36  |LDA #(mem% . 256|
00000490  29 0d 03 84 0e 53 54 41  20 61 64 64 72 2b 31 0d  |)....STA addr+1.|
000004a0  03 8e 0a 2e 66 69 6e 64  32 0d 03 98 0e 4c 44 41  |....find2....LDA|
000004b0  20 77 6f 72 64 6e 6f 0d  03 a2 10 43 4d 50 20 74  | wordno....CMP t|
000004c0  68 69 73 77 6f 72 64 0d  03 ac 0d 42 4e 45 20 66  |hisword....BNE f|
000004d0  69 6e 64 33 0d 03 b6 10  4c 44 41 20 77 6f 72 64  |ind3....LDA word|
000004e0  6e 6f 2b 31 0d 03 c0 12  43 4d 50 20 74 68 69 73  |no+1....CMP this|
000004f0  77 6f 72 64 2b 31 0d 03  ca 0d 42 4e 45 20 66 69  |word+1....BNE fi|
00000500  6e 64 33 0d 03 d4 07 52  54 53 0d 03 de 0a 2e 66  |nd3....RTS.....f|
00000510  69 6e 64 33 0d 03 e8 10  4a 53 52 20 6e 65 78 74  |ind3....JSR next|
00000520  77 6f 72 64 0d 03 f2 0d  42 43 43 20 66 69 6e 64  |word....BCC find|
00000530  32 0d 03 fc 0b 42 52 4b  3a 42 52 4b 0d 04 06 19  |2....BRK:BRK....|
00000540  45 51 55 53 20 22 57 6f  72 64 20 6e 6f 74 20 66  |EQUS "Word not f|
00000550  6f 75 6e 64 22 0d 04 10  07 42 52 4b 0d 04 1a 05  |ound"....BRK....|
00000560  3a 0d 04 24 0e 2e 63 68  65 63 6b 77 6f 72 64 0d  |:..$..checkword.|
00000570  04 2e 0a 4c 44 41 20 23  30 0d 04 38 0c 53 54 41  |...LDA #0..8.STA|
00000580  20 61 64 64 72 0d 04 42  0e 53 54 41 20 77 6f 72  | addr..B.STA wor|
00000590  64 6e 6f 0d 04 4c 10 53  54 41 20 77 6f 72 64 6e  |dno..L.STA wordn|
000005a0  6f 2b 31 0d 04 56 15 4c  44 41 20 23 28 6d 65 6d  |o+1..V.LDA #(mem|
000005b0  25 20 81 20 32 35 36 29  0d 04 60 0e 53 54 41 20  |% . 256)..`.STA |
000005c0  61 64 64 72 2b 31 0d 04  6a 0c 2e 73 65 61 72 63  |addr+1..j..searc|
000005d0  68 31 0d 04 74 0a 4c 44  59 20 23 30 0d 04 7e 0c  |h1..t.LDY #0..~.|
000005e0  2e 73 65 61 72 63 68 32  0d 04 88 10 4c 44 41 20  |.search2....LDA |
000005f0  28 61 64 64 72 29 2c 59  0d 04 92 0e 43 4d 50 20  |(addr),Y....CMP |
00000600  26 37 30 30 2c 59 0d 04  9c 0d 42 4e 45 20 6e 6f  |&700,Y....BNE no|
00000610  74 69 74 0d 04 a6 07 49  4e 59 0d 04 b0 0b 43 4d  |tit....INY....CM|
00000620  50 20 23 31 33 0d 04 ba  0f 42 4e 45 20 73 65 61  |P #13....BNE sea|
00000630  72 63 68 32 0d 04 c4 07  52 54 53 0d 04 ce 0a 2e  |rch2....RTS.....|
00000640  6e 6f 74 69 74 0d 04 d8  10 4a 53 52 20 6e 65 78  |notit....JSR nex|
00000650  74 77 6f 72 64 0d 04 e2  0f 42 43 43 20 73 65 61  |tword....BCC sea|
00000660  72 63 68 31 0d 04 ec 0a  4c 44 59 20 23 30 0d 04  |rch1....LDY #0..|
00000670  f6 0c 2e 6e 65 77 77 6f  72 64 0d 05 00 0e 4c 44  |...newword....LD|
00000680  41 20 26 37 30 30 2c 59  0d 05 0a 10 53 54 41 20  |A &700,Y....STA |
00000690  28 61 64 64 72 29 2c 59  0d 05 14 07 49 4e 59 0d  |(addr),Y....INY.|
000006a0  05 1e 0b 43 4d 50 20 23  31 33 0d 05 28 0f 42 4e  |...CMP #13..(.BN|
000006b0  45 20 6e 65 77 77 6f 72  64 0d 05 32 0a 4c 44 41  |E newword..2.LDA|
000006c0  20 23 30 0d 05 3c 10 53  54 41 20 28 61 64 64 72  | #0..<.STA (addr|
000006d0  29 2c 59 0d 05 46 07 49  4e 59 0d 05 50 10 53 54  |),Y..F.INY..P.ST|
000006e0  41 20 28 61 64 64 72 29  2c 59 0d 05 5a 07 49 4e  |A (addr),Y..Z.IN|
000006f0  59 0d 05 64 07 54 59 41  0d 05 6e 07 43 4c 43 0d  |Y..d.TYA..n.CLC.|
00000700  05 78 0b 41 44 43 20 74  6f 70 0d 05 82 0b 53 54  |.x.ADC top....ST|
00000710  41 20 74 6f 70 0d 05 8c  0d 4c 44 41 20 74 6f 70  |A top....LDA top|
00000720  2b 31 0d 05 96 0a 41 44  43 20 23 30 0d 05 a0 0d  |+1....ADC #0....|
00000730  53 54 41 20 74 6f 70 2b  31 0d 05 aa 07 52 54 53  |STA top+1....RTS|
00000740  0d 05 b4 05 3a 0d 05 be  0d 2e 6e 65 78 74 77 6f  |....:.....nextwo|
00000750  72 64 0d 05 c8 0a 4c 44  59 20 23 30 0d 05 d2 0a  |rd....LDY #0....|
00000760  2e 6e 65 78 74 32 0d 05  dc 10 4c 44 41 20 28 61  |.next2....LDA (a|
00000770  64 64 72 29 2c 59 0d 05  e6 07 49 4e 59 0d 05 f0  |ddr),Y....INY...|
00000780  0b 43 4d 50 20 23 31 33  0d 05 fa 0d 42 4e 45 20  |.CMP #13....BNE |
00000790  6e 65 78 74 32 0d 06 04  0c 53 54 59 20 74 65 6d  |next2....STY tem|
000007a0  70 0d 06 0e 10 4c 44 41  20 28 61 64 64 72 29 2c  |p....LDA (addr),|
000007b0  59 0d 06 18 07 43 4c 43  0d 06 22 0c 41 44 43 20  |Y....CLC..".ADC |
000007c0  74 65 6d 70 0d 06 2c 0c  53 54 41 20 74 65 6d 70  |temp..,.STA temp|
000007d0  0d 06 36 07 49 4e 59 0d  06 40 10 4c 44 41 20 28  |..6.INY..@.LDA (|
000007e0  61 64 64 72 29 2c 59 0d  06 4a 0a 41 44 43 20 23  |addr),Y..J.ADC #|
000007f0  30 0d 06 54 0e 53 54 41  20 74 65 6d 70 2b 31 0d  |0..T.STA temp+1.|
00000800  06 5e 07 43 4c 43 0d 06  68 0c 4c 44 41 20 74 65  |.^.CLC..h.LDA te|
00000810  6d 70 0d 06 72 0a 41 44  43 20 23 32 0d 06 7c 0c  |mp..r.ADC #2..|.|
00000820  53 54 41 20 74 65 6d 70  0d 06 86 0e 42 43 43 20  |STA temp....BCC |
00000830  6e 6f 68 69 67 68 0d 06  90 0e 49 4e 43 20 74 65  |nohigh....INC te|
00000840  6d 70 2b 31 0d 06 9a 0b  2e 6e 6f 68 69 67 68 0d  |mp+1.....nohigh.|
00000850  06 a4 07 43 4c 43 0d 06  ae 0c 4c 44 41 20 74 65  |...CLC....LDA te|
00000860  6d 70 0d 06 b8 0c 41 44  43 20 61 64 64 72 0d 06  |mp....ADC addr..|
00000870  c2 0c 53 54 41 20 61 64  64 72 0d 06 cc 0e 4c 44  |..STA addr....LD|
00000880  41 20 74 65 6d 70 2b 31  0d 06 d6 0e 41 44 43 20  |A temp+1....ADC |
00000890  61 64 64 72 2b 31 0d 06  e0 0e 53 54 41 20 61 64  |addr+1....STA ad|
000008a0  64 72 2b 31 0d 06 ea 0e  49 4e 43 20 77 6f 72 64  |dr+1....INC word|
000008b0  6e 6f 0d 06 f4 0d 42 4e  45 20 6e 65 78 74 33 0d  |no....BNE next3.|
000008c0  06 fe 10 49 4e 43 20 77  6f 72 64 6e 6f 2b 31 0d  |...INC wordno+1.|
000008d0  07 08 0a 2e 6e 65 78 74  33 0d 07 12 0c 4c 44 41  |....next3....LDA|
000008e0  20 61 64 64 72 0d 07 1c  0b 43 4d 50 20 74 6f 70  | addr....CMP top|
000008f0  0d 07 26 11 42 4e 45 20  6d 6f 72 65 77 6f 72 64  |..&.BNE moreword|
00000900  73 0d 07 30 0e 4c 44 41  20 61 64 64 72 2b 31 0d  |s..0.LDA addr+1.|
00000910  07 3a 0d 43 4d 50 20 74  6f 70 2b 31 0d 07 44 11  |.:.CMP top+1..D.|
00000920  42 4e 45 20 6d 6f 72 65  77 6f 72 64 73 0d 07 4e  |BNE morewords..N|
00000930  0b 53 45 43 3a 52 54 53  0d 07 58 0e 2e 6d 6f 72  |.SEC:RTS..X..mor|
00000940  65 77 6f 72 64 73 0d 07  62 0b 43 4c 43 3a 52 54  |ewords..b.CLC:RT|
00000950  53 0d 07 6c 05 5d 0d 07  76 05 ed 0d 07 80 05 3a  |S..l.]..v......:|
00000960  0d 07 8a 17 f1 20 22 43  6f 64 65 20 61 73 73 65  |..... "Code asse|
00000970  6d 62 6c 65 64 2e 22 0d  07 94 1a f1 20 22 43 48  |mbled."..... "CH|
00000980  41 49 4e 69 6e 67 20 70  61 72 74 20 32 2e 2e 2e  |AINing part 2...|
00000990  22 0d 07 9e 0f d7 20 22  4d 6f 6e 6b 65 79 32 22  |"..... "Monkey2"|
000009a0  0d ff                                             |..|
000009a2