� ZIGGY
� By D.Lester
#� Copyright (C) Audiogenic 1987
(:
2:
<2�4:�1,130,24,-24,24,1,1,1,126,0,0,-126,126,126
F� ONERRORPROCoff:RUN
P�font:�chars:�sh
Z*FX11,0
d�off:�4,9)�224;"  ";�226
n�5:�176,696:�228:�4
x�4,12)�225;"  ";�227
��190,800:�1,130,-130
��1,-130,-130
��1,-130,130
��1,130,130
��1,-130,-130
��1,0,-4
��1,130,-130
��1,130,130
��28,0,4,39,0:�129:�:�0:�26
�(�on:�10,2)"ZIGGY KEYBOARD OPTION":�
��7:�128
�'�12,6);"<RETURN> increases bounce"
�'�12,8);"<SPACE>  decreases bounce"

�17,12);"Select key for:"

�k%=0�3

0�off:�21,14+k%*3);�(224+k%);:�on:�" ... ?";

"	*FX15

,Nj%=�:x%=-10:�:x%=x%-1:c%=�(x%):�c%<>0 � x%=-128:�x%=-128�TlA:��on:�127,j%

6k%?&5C=x%:*FX15

@�7:�

J�20,27)"OK? (Y/N)";:*FX15

ThG$=�:�:�G$<>"Y"�:�Dd@:��off:�5:�23,1,0;0;0;0;19,1,4;0;19,2,6;0;:�expand:�28,0,31,19,27:*RUN ZIGcode

^
��font

hw=!&20E

r�pass%=0�2�2

|P%=&981

�	[OPT0

�STA&90:PHA:TYA:PHA:TXA:PHA

�-LDA#&DA:LDX#0:LDY#255:JSR&FFF4:CPX#0:BNEd

�#LDA&90:CMP#127:BEQd:CMP#32:BCSo

�.d PLA:TAX:PLA:TAY:PLA:JMPw

�$.o LDA#10:LDX#&90:LDY#0:JSR&FFF1

�tLDA#23:JSRw:JSRc:LDA&91:ROL A:�A&91:JSRw:LDA&92:ROL A:�A&92:JSRw:LDA&93:ROL A:�A&93:JSRw:LDA&94:ROL A:�A&94:JSRw

�hLDA&95:ROL A:�A&95:JSRw:LDA&96:ROL A:�A&96:JSRw:LDA&97:ROL A:�A&97:JSRw:LDA&98:ROL A:�A&98:JSRw:JSRc

�PLA:TAX:PLA:TAY:PLA:RTS

�.c LDA#249:JSRw:RTS

�]

��:�

���chars
��23,224,254,132,136,132,162,209,138,4,23,226,127,33,17,33,69,139,81,32,23,227,32,81,139,69,33,17,33,127,23,225,4,138,209,162,132,136,132,254,23,228,60,126,126,60,66,60,66,60:�
��on:?&20E=&81:?&20F=9:�
��off:!&20E=w:�
&get=&60:put=&62:temp=&64
0-getoff=&65:putoff=&66:value=&67:count=&68
:��sh
Dss=(�+&D00) �256
Nget=&60:put=&62:temp=&64
X-getoff=&65:putoff=&66:value=&67:count=&68
b�p=0�2�2
lP%=&4500
v	[OPTp
�$.incboth JSRincput:JSRincget:RTS
�:.incget INCgetoff:LDAgetoff:BNErts1:INCget+1:.rts1 RTS
�:.incput INCputoff:LDAputoff:BNErts2:INCput+1:.rts2 RTS
�.expand
�^LDA#0:STAget:STAput:STAputoff:STAgetoff:STAvalue:STAcount:LDA#ss:STAget+1:LDA#&58:STAput+1
�
.loop2
�LDYgetoff:LDA(get),Y
�(CMP#111:BNEtoscreen:JSRexp:JMPbypass
�*.toscreen LDYputoff:STA(put),Y:JSRshim
�4.bypass JSRincboth:LDAput+1:CMP#&80:BCCloop2:RTS
�c.exp JSRincget:LDYgetoff:LDA(get),Y:CLC:ADC#1:STAcount:JSRincget:LDYgetoff:LDA(get),Y:STAvalue 
�o.loop3 LDYputoff:LDAvalue:STA(put),Y:JSRshim:DECcount:LDAcount:BEQendloop3:JSRincput:JMPloop3:.endloop3 RTS
�'.shim STA&93:STY&91:LDAput+1:STA&92
7.sloop LDA&91:CLC:ADC#120�256:STA&91:BCCnocs:INC&92
[.nocs LDA&92:CLC:ADC#120�256:STA&92:LDA&93:LDY#0:STA(&91),Y:LDA&92:CMP#&80:BCCsloop:RTS
]
 �
*�
�

00000000  0d 00 0a 0b f4 20 5a 49  47 47 59 0d 00 14 11 f4  |..... ZIGGY.....|
00000010  20 42 79 20 44 2e 4c 65  73 74 65 72 0d 00 1e 23  | By D.Lester...#|
00000020  f4 20 43 6f 70 79 72 69  67 68 74 20 28 43 29 20  |. Copyright (C) |
00000030  41 75 64 69 6f 67 65 6e  69 63 20 31 39 38 37 0d  |Audiogenic 1987.|
00000040  00 28 05 3a 0d 00 32 05  3a 0d 00 3c 32 eb 34 3a  |.(.:..2.:..<2.4:|
00000050  e2 31 2c 31 33 30 2c 32  34 2c 2d 32 34 2c 32 34  |.1,130,24,-24,24|
00000060  2c 31 2c 31 2c 31 2c 31  32 36 2c 30 2c 30 2c 2d  |,1,1,1,126,0,0,-|
00000070  31 32 36 2c 31 32 36 2c  31 32 36 0d 00 46 18 f4  |126,126,126..F..|
00000080  20 4f 4e 45 52 52 4f 52  50 52 4f 43 6f 66 66 3a  | ONERRORPROCoff:|
00000090  52 55 4e 0d 00 50 14 f2  66 6f 6e 74 3a f2 63 68  |RUN..P..font:.ch|
000000a0  61 72 73 3a f2 73 68 0d  00 5a 0b 2a 46 58 31 31  |ars:.sh..Z.*FX11|
000000b0  2c 30 0d 00 64 1d f2 6f  66 66 3a f1 8a 34 2c 39  |,0..d..off:..4,9|
000000c0  29 bd 32 32 34 3b 22 20  20 22 3b bd 32 32 36 0d  |).224;"  ";.226.|
000000d0  00 6e 18 ef 35 3a ec 31  37 36 2c 36 39 36 3a f1  |.n..5:.176,696:.|
000000e0  bd 32 32 38 3a ef 34 0d  00 78 19 f1 8a 34 2c 31  |.228:.4..x...4,1|
000000f0  32 29 bd 32 32 35 3b 22  20 20 22 3b bd 32 32 37  |2).225;"  ";.227|
00000100  0d 00 82 18 ec 31 39 30  2c 38 30 30 3a f0 31 2c  |.....190,800:.1,|
00000110  31 33 30 2c 2d 31 33 30  0d 00 8c 10 f0 31 2c 2d  |130,-130.....1,-|
00000120  31 33 30 2c 2d 31 33 30  0d 00 96 0f f0 31 2c 2d  |130,-130.....1,-|
00000130  31 33 30 2c 31 33 30 0d  00 a0 0e f0 31 2c 31 33  |130,130.....1,13|
00000140  30 2c 31 33 30 0d 00 aa  10 f0 31 2c 2d 31 33 30  |0,130.....1,-130|
00000150  2c 2d 31 33 30 0d 00 b4  0b f0 31 2c 30 2c 2d 34  |,-130.....1,0,-4|
00000160  0d 00 be 0f f0 31 2c 31  33 30 2c 2d 31 33 30 0d  |.....1,130,-130.|
00000170  00 c8 0e f0 31 2c 31 33  30 2c 31 33 30 0d 00 d2  |....1,130,130...|
00000180  1e ef 32 38 2c 30 2c 34  2c 33 39 2c 30 3a fb 31  |..28,0,4,39,0:.1|
00000190  32 39 3a db 3a fb 30 3a  ef 32 36 0d 00 dc 28 f2  |29:.:.0:.26...(.|
000001a0  6f 6e 3a f1 8a 31 30 2c  32 29 22 5a 49 47 47 59  |on:..10,2)"ZIGGY|
000001b0  20 4b 45 59 42 4f 41 52  44 20 4f 50 54 49 4f 4e  | KEYBOARD OPTION|
000001c0  22 3a f7 0d 00 e6 0b fb  37 3a fb 31 32 38 0d 00  |":......7:.128..|
000001d0  f0 27 f1 8a 31 32 2c 36  29 3b 22 3c 52 45 54 55  |.'..12,6);"<RETU|
000001e0  52 4e 3e 20 69 6e 63 72  65 61 73 65 73 20 62 6f  |RN> increases bo|
000001f0  75 6e 63 65 22 0d 00 fa  27 f1 8a 31 32 2c 38 29  |unce"...'..12,8)|
00000200  3b 22 3c 53 50 41 43 45  3e 20 20 64 65 63 72 65  |;"<SPACE>  decre|
00000210  61 73 65 73 20 62 6f 75  6e 63 65 22 0d 01 04 1e  |ases bounce"....|
00000220  f1 8a 31 37 2c 31 32 29  3b 22 53 65 6c 65 63 74  |..17,12);"Select|
00000230  20 6b 65 79 20 66 6f 72  3a 22 0d 01 0e 0b e3 6b  | key for:".....k|
00000240  25 3d 30 b8 33 0d 01 18  30 f2 6f 66 66 3a f1 8a  |%=0.3...0.off:..|
00000250  32 31 2c 31 34 2b 6b 25  2a 33 29 3b bd 28 32 32  |21,14+k%*3);.(22|
00000260  34 2b 6b 25 29 3b 3a f2  6f 6e 3a f1 22 20 2e 2e  |4+k%);:.on:." ..|
00000270  2e 20 3f 22 3b 0d 01 22  09 2a 46 58 31 35 0d 01  |. ?";..".*FX15..|
00000280  2c 4e 6a 25 3d a5 3a 78  25 3d 2d 31 30 3a f5 3a  |,Nj%=.:x%=-10:.:|
00000290  78 25 3d 78 25 2d 31 3a  63 25 3d a6 28 78 25 29  |x%=x%-1:c%=.(x%)|
000002a0  3a fd 63 25 3c 3e 30 20  84 20 78 25 3d 2d 31 32  |:.c%<>0 . x%=-12|
000002b0  38 3a e7 78 25 3d 2d 31  32 38 e5 8d 54 6c 41 3a  |8:.x%=-128..TlA:|
000002c0  8b f2 6f 6e 3a ef 31 32  37 2c 6a 25 0d 01 36 13  |..on:.127,j%..6.|
000002d0  6b 25 3f 26 35 43 3d 78  25 3a 2a 46 58 31 35 0d  |k%?&5C=x%:*FX15.|
000002e0  01 40 08 ef 37 3a ed 0d  01 4a 1e f1 8a 32 30 2c  |.@..7:...J...20,|
000002f0  32 37 29 22 4f 4b 3f 20  28 59 2f 4e 29 22 3b 3a  |27)"OK? (Y/N)";:|
00000300  2a 46 58 31 35 0d 01 54  68 47 24 3d be 3a f1 3a  |*FX15..ThG$=.:.:|
00000310  e7 47 24 3c 3e 22 59 22  db 3a e5 8d 44 64 40 3a  |.G$<>"Y".:..Dd@:|
00000320  8b f2 6f 66 66 3a eb 35  3a ef 32 33 2c 31 2c 30  |..off:.5:.23,1,0|
00000330  3b 30 3b 30 3b 30 3b 31  39 2c 31 2c 34 3b 30 3b  |;0;0;0;19,1,4;0;|
00000340  31 39 2c 32 2c 36 3b 30  3b 3a d6 65 78 70 61 6e  |19,2,6;0;:.expan|
00000350  64 3a ef 32 38 2c 30 2c  33 31 2c 31 39 2c 32 37  |d:.28,0,31,19,27|
00000360  3a 2a 52 55 4e 20 5a 49  47 63 6f 64 65 0d 01 5e  |:*RUN ZIGcode..^|
00000370  0a dd f2 66 6f 6e 74 0d  01 68 0b 77 3d 21 26 32  |...font..h.w=!&2|
00000380  30 45 0d 01 72 10 e3 70  61 73 73 25 3d 30 b8 32  |0E..r..pass%=0.2|
00000390  88 32 0d 01 7c 0b 50 25  3d 26 39 38 31 0d 01 86  |.2..|.P%=&981...|
000003a0  09 5b 4f 50 54 30 0d 01  90 1e 53 54 41 26 39 30  |.[OPT0....STA&90|
000003b0  3a 50 48 41 3a 54 59 41  3a 50 48 41 3a 54 58 41  |:PHA:TYA:PHA:TXA|
000003c0  3a 50 48 41 0d 01 9a 2d  4c 44 41 23 26 44 41 3a  |:PHA...-LDA#&DA:|
000003d0  4c 44 58 23 30 3a 4c 44  59 23 32 35 35 3a 4a 53  |LDX#0:LDY#255:JS|
000003e0  52 26 46 46 46 34 3a 43  50 58 23 30 3a 42 4e 45  |R&FFF4:CPX#0:BNE|
000003f0  64 0d 01 a4 23 4c 44 41  26 39 30 3a 43 4d 50 23  |d...#LDA&90:CMP#|
00000400  31 32 37 3a 42 45 51 64  3a 43 4d 50 23 33 32 3a  |127:BEQd:CMP#32:|
00000410  42 43 53 6f 0d 01 ae 1f  2e 64 20 50 4c 41 3a 54  |BCSo.....d PLA:T|
00000420  41 58 3a 50 4c 41 3a 54  41 59 3a 50 4c 41 3a 4a  |AX:PLA:TAY:PLA:J|
00000430  4d 50 77 0d 01 b8 24 2e  6f 20 4c 44 41 23 31 30  |MPw...$.o LDA#10|
00000440  3a 4c 44 58 23 26 39 30  3a 4c 44 59 23 30 3a 4a  |:LDX#&90:LDY#0:J|
00000450  53 52 26 46 46 46 31 0d  01 c2 74 4c 44 41 23 32  |SR&FFF1...tLDA#2|
00000460  33 3a 4a 53 52 77 3a 4a  53 52 63 3a 4c 44 41 26  |3:JSRw:JSRc:LDA&|
00000470  39 31 3a 52 4f 4c 20 41  3a 84 41 26 39 31 3a 4a  |91:ROL A:.A&91:J|
00000480  53 52 77 3a 4c 44 41 26  39 32 3a 52 4f 4c 20 41  |SRw:LDA&92:ROL A|
00000490  3a 84 41 26 39 32 3a 4a  53 52 77 3a 4c 44 41 26  |:.A&92:JSRw:LDA&|
000004a0  39 33 3a 52 4f 4c 20 41  3a 84 41 26 39 33 3a 4a  |93:ROL A:.A&93:J|
000004b0  53 52 77 3a 4c 44 41 26  39 34 3a 52 4f 4c 20 41  |SRw:LDA&94:ROL A|
000004c0  3a 84 41 26 39 34 3a 4a  53 52 77 0d 01 cc 68 4c  |:.A&94:JSRw...hL|
000004d0  44 41 26 39 35 3a 52 4f  4c 20 41 3a 84 41 26 39  |DA&95:ROL A:.A&9|
000004e0  35 3a 4a 53 52 77 3a 4c  44 41 26 39 36 3a 52 4f  |5:JSRw:LDA&96:RO|
000004f0  4c 20 41 3a 84 41 26 39  36 3a 4a 53 52 77 3a 4c  |L A:.A&96:JSRw:L|
00000500  44 41 26 39 37 3a 52 4f  4c 20 41 3a 84 41 26 39  |DA&97:ROL A:.A&9|
00000510  37 3a 4a 53 52 77 3a 4c  44 41 26 39 38 3a 52 4f  |7:JSRw:LDA&98:RO|
00000520  4c 20 41 3a 84 41 26 39  38 3a 4a 53 52 77 3a 4a  |L A:.A&98:JSRw:J|
00000530  53 52 63 0d 01 d6 1b 50  4c 41 3a 54 41 58 3a 50  |SRc....PLA:TAX:P|
00000540  4c 41 3a 54 41 59 3a 50  4c 41 3a 52 54 53 0d 01  |LA:TAY:PLA:RTS..|
00000550  e0 17 2e 63 20 4c 44 41  23 32 34 39 3a 4a 53 52  |...c LDA#249:JSR|
00000560  77 3a 52 54 53 0d 01 ea  05 5d 0d 01 f4 07 ed 3a  |w:RTS....].....:|
00000570  e1 0d 01 fe 0b dd f2 63  68 61 72 73 0d 02 08 b3  |.......chars....|
00000580  ef 32 33 2c 32 32 34 2c  32 35 34 2c 31 33 32 2c  |.23,224,254,132,|
00000590  31 33 36 2c 31 33 32 2c  31 36 32 2c 32 30 39 2c  |136,132,162,209,|
000005a0  31 33 38 2c 34 2c 32 33  2c 32 32 36 2c 31 32 37  |138,4,23,226,127|
000005b0  2c 33 33 2c 31 37 2c 33  33 2c 36 39 2c 31 33 39  |,33,17,33,69,139|
000005c0  2c 38 31 2c 33 32 2c 32  33 2c 32 32 37 2c 33 32  |,81,32,23,227,32|
000005d0  2c 38 31 2c 31 33 39 2c  36 39 2c 33 33 2c 31 37  |,81,139,69,33,17|
000005e0  2c 33 33 2c 31 32 37 2c  32 33 2c 32 32 35 2c 34  |,33,127,23,225,4|
000005f0  2c 31 33 38 2c 32 30 39  2c 31 36 32 2c 31 33 32  |,138,209,162,132|
00000600  2c 31 33 36 2c 31 33 32  2c 32 35 34 2c 32 33 2c  |,136,132,254,23,|
00000610  32 32 38 2c 36 30 2c 31  32 36 2c 31 32 36 2c 36  |228,60,126,126,6|
00000620  30 2c 36 36 2c 36 30 2c  36 36 2c 36 30 3a e1 0d  |0,66,60,66,60:..|
00000630  02 12 1c dd f2 6f 6e 3a  3f 26 32 30 45 3d 26 38  |.....on:?&20E=&8|
00000640  31 3a 3f 26 32 30 46 3d  39 3a e1 0d 02 1c 13 dd  |1:?&20F=9:......|
00000650  f2 6f 66 66 3a 21 26 32  30 45 3d 77 3a e1 0d 02  |.off:!&20E=w:...|
00000660  26 1c 67 65 74 3d 26 36  30 3a 70 75 74 3d 26 36  |&.get=&60:put=&6|
00000670  32 3a 74 65 6d 70 3d 26  36 34 0d 02 30 2d 67 65  |2:temp=&64..0-ge|
00000680  74 6f 66 66 3d 26 36 35  3a 70 75 74 6f 66 66 3d  |toff=&65:putoff=|
00000690  26 36 36 3a 76 61 6c 75  65 3d 26 36 37 3a 63 6f  |&66:value=&67:co|
000006a0  75 6e 74 3d 26 36 38 0d  02 3a 08 dd f2 73 68 0d  |unt=&68..:...sh.|
000006b0  02 44 14 73 73 3d 28 90  2b 26 44 30 30 29 20 81  |.D.ss=(.+&D00) .|
000006c0  32 35 36 0d 02 4e 1c 67  65 74 3d 26 36 30 3a 70  |256..N.get=&60:p|
000006d0  75 74 3d 26 36 32 3a 74  65 6d 70 3d 26 36 34 0d  |ut=&62:temp=&64.|
000006e0  02 58 2d 67 65 74 6f 66  66 3d 26 36 35 3a 70 75  |.X-getoff=&65:pu|
000006f0  74 6f 66 66 3d 26 36 36  3a 76 61 6c 75 65 3d 26  |toff=&66:value=&|
00000700  36 37 3a 63 6f 75 6e 74  3d 26 36 38 0d 02 62 0c  |67:count=&68..b.|
00000710  e3 70 3d 30 b8 32 88 32  0d 02 6c 0c 50 25 3d 26  |.p=0.2.2..l.P%=&|
00000720  34 35 30 30 0d 02 76 09  5b 4f 50 54 70 0d 02 80  |4500..v.[OPTp...|
00000730  24 2e 69 6e 63 62 6f 74  68 20 4a 53 52 69 6e 63  |$.incboth JSRinc|
00000740  70 75 74 3a 4a 53 52 69  6e 63 67 65 74 3a 52 54  |put:JSRincget:RT|
00000750  53 0d 02 8a 3a 2e 69 6e  63 67 65 74 20 49 4e 43  |S...:.incget INC|
00000760  67 65 74 6f 66 66 3a 4c  44 41 67 65 74 6f 66 66  |getoff:LDAgetoff|
00000770  3a 42 4e 45 72 74 73 31  3a 49 4e 43 67 65 74 2b  |:BNErts1:INCget+|
00000780  31 3a 2e 72 74 73 31 20  52 54 53 0d 02 94 3a 2e  |1:.rts1 RTS...:.|
00000790  69 6e 63 70 75 74 20 49  4e 43 70 75 74 6f 66 66  |incput INCputoff|
000007a0  3a 4c 44 41 70 75 74 6f  66 66 3a 42 4e 45 72 74  |:LDAputoff:BNErt|
000007b0  73 32 3a 49 4e 43 70 75  74 2b 31 3a 2e 72 74 73  |s2:INCput+1:.rts|
000007c0  32 20 52 54 53 0d 02 9e  0b 2e 65 78 70 61 6e 64  |2 RTS.....expand|
000007d0  0d 02 a8 5e 4c 44 41 23  30 3a 53 54 41 67 65 74  |...^LDA#0:STAget|
000007e0  3a 53 54 41 70 75 74 3a  53 54 41 70 75 74 6f 66  |:STAput:STAputof|
000007f0  66 3a 53 54 41 67 65 74  6f 66 66 3a 53 54 41 76  |f:STAgetoff:STAv|
00000800  61 6c 75 65 3a 53 54 41  63 6f 75 6e 74 3a 4c 44  |alue:STAcount:LD|
00000810  41 23 73 73 3a 53 54 41  67 65 74 2b 31 3a 4c 44  |A#ss:STAget+1:LD|
00000820  41 23 26 35 38 3a 53 54  41 70 75 74 2b 31 0d 02  |A#&58:STAput+1..|
00000830  b2 0a 2e 6c 6f 6f 70 32  0d 02 bc 18 4c 44 59 67  |...loop2....LDYg|
00000840  65 74 6f 66 66 3a 4c 44  41 28 67 65 74 29 2c 59  |etoff:LDA(get),Y|
00000850  0d 02 c6 28 43 4d 50 23  31 31 31 3a 42 4e 45 74  |...(CMP#111:BNEt|
00000860  6f 73 63 72 65 65 6e 3a  4a 53 52 65 78 70 3a 4a  |oscreen:JSRexp:J|
00000870  4d 50 62 79 70 61 73 73  0d 02 d0 2a 2e 74 6f 73  |MPbypass...*.tos|
00000880  63 72 65 65 6e 20 4c 44  59 70 75 74 6f 66 66 3a  |creen LDYputoff:|
00000890  53 54 41 28 70 75 74 29  2c 59 3a 4a 53 52 73 68  |STA(put),Y:JSRsh|
000008a0  69 6d 0d 02 da 34 2e 62  79 70 61 73 73 20 4a 53  |im...4.bypass JS|
000008b0  52 69 6e 63 62 6f 74 68  3a 4c 44 41 70 75 74 2b  |Rincboth:LDAput+|
000008c0  31 3a 43 4d 50 23 26 38  30 3a 42 43 43 6c 6f 6f  |1:CMP#&80:BCCloo|
000008d0  70 32 3a 52 54 53 0d 02  e4 63 2e 65 78 70 20 4a  |p2:RTS...c.exp J|
000008e0  53 52 69 6e 63 67 65 74  3a 4c 44 59 67 65 74 6f  |SRincget:LDYgeto|
000008f0  66 66 3a 4c 44 41 28 67  65 74 29 2c 59 3a 43 4c  |ff:LDA(get),Y:CL|
00000900  43 3a 41 44 43 23 31 3a  53 54 41 63 6f 75 6e 74  |C:ADC#1:STAcount|
00000910  3a 4a 53 52 69 6e 63 67  65 74 3a 4c 44 59 67 65  |:JSRincget:LDYge|
00000920  74 6f 66 66 3a 4c 44 41  28 67 65 74 29 2c 59 3a  |toff:LDA(get),Y:|
00000930  53 54 41 76 61 6c 75 65  20 0d 02 ee 6f 2e 6c 6f  |STAvalue ...o.lo|
00000940  6f 70 33 20 4c 44 59 70  75 74 6f 66 66 3a 4c 44  |op3 LDYputoff:LD|
00000950  41 76 61 6c 75 65 3a 53  54 41 28 70 75 74 29 2c  |Avalue:STA(put),|
00000960  59 3a 4a 53 52 73 68 69  6d 3a 44 45 43 63 6f 75  |Y:JSRshim:DECcou|
00000970  6e 74 3a 4c 44 41 63 6f  75 6e 74 3a 42 45 51 65  |nt:LDAcount:BEQe|
00000980  6e 64 6c 6f 6f 70 33 3a  4a 53 52 69 6e 63 70 75  |ndloop3:JSRincpu|
00000990  74 3a 4a 4d 50 6c 6f 6f  70 33 3a 2e 65 6e 64 6c  |t:JMPloop3:.endl|
000009a0  6f 6f 70 33 20 52 54 53  0d 02 f8 27 2e 73 68 69  |oop3 RTS...'.shi|
000009b0  6d 20 53 54 41 26 39 33  3a 53 54 59 26 39 31 3a  |m STA&93:STY&91:|
000009c0  4c 44 41 70 75 74 2b 31  3a 53 54 41 26 39 32 0d  |LDAput+1:STA&92.|
000009d0  03 02 37 2e 73 6c 6f 6f  70 20 4c 44 41 26 39 31  |..7.sloop LDA&91|
000009e0  3a 43 4c 43 3a 41 44 43  23 31 32 30 83 32 35 36  |:CLC:ADC#120.256|
000009f0  3a 53 54 41 26 39 31 3a  42 43 43 6e 6f 63 73 3a  |:STA&91:BCCnocs:|
00000a00  49 4e 43 26 39 32 0d 03  0c 5b 2e 6e 6f 63 73 20  |INC&92...[.nocs |
00000a10  4c 44 41 26 39 32 3a 43  4c 43 3a 41 44 43 23 31  |LDA&92:CLC:ADC#1|
00000a20  32 30 81 32 35 36 3a 53  54 41 26 39 32 3a 4c 44  |20.256:STA&92:LD|
00000a30  41 26 39 33 3a 4c 44 59  23 30 3a 53 54 41 28 26  |A&93:LDY#0:STA(&|
00000a40  39 31 29 2c 59 3a 4c 44  41 26 39 32 3a 43 4d 50  |91),Y:LDA&92:CMP|
00000a50  23 26 38 30 3a 42 43 43  73 6c 6f 6f 70 3a 52 54  |#&80:BCCsloop:RT|
00000a60  53 0d 03 16 05 5d 0d 03  20 05 ed 0d 03 2a 05 e1  |S....].. ....*..|
00000a70  0d ff                                             |..|
00000a72