� Foreground Print
� By R.A.Waddilove
� (c) Electron User
(	*FX16
2
�assemble
<� 5
F� i=1 � 12
P�"Press a key"
Z�
d
� &900
n�
x 
�� �assemble
�add=&70
�new=&72
�temp=&74
�rows=&76
�temprows=&77
�columns=&78
�counter=&79
�work=&7A
�� pass=0 � 2 � 2
�P%=&900
�[ OPT pass
� 
�\set up variables

LDA #&5D10 �256

STA add

LDA #&5D10 �256

"
STA add+1

,LDA #30

6STA counter

@ 

J
.mainloop

T\store background

^LDA add

hSTA new

r
LDA add+1

|
STA new+1

�
LDX #4

�LDY #24

�
JSR store

� 

�\print sprite

�LDA #sprite �256

�STA sdata+1

�LDA #sprite �256

�STA sdata+2

�LDA add

�STA new

�
LDA add+1

�
STA new+1

LDX #4
LDY #24

JSR print
& 
0\Wait for keypress
:
JSR &FFE0
� 
�\restore background
�LDA add
�STA new
�
LDA add+1
�
STA new+1
�
LDX #4
�LDY #24
�JSR restore
�CLC
�LDA add
�
ADC #8
�STA add

BCC main1

INC add+1

.main1
 DEC counter
*BNE mainloop
4RTS
> 
H#\new=addr to restore background
R\X=columns, Y=rows
\.restore
fSTX columns
pSTY rows
z
LDX #0
�
LDY #0
�LDA new
�STA temp
�
LDA new+1
�STA temp+1
�
.loop1
�LDA rows
�STA temprows
�
.loop2
�LDA back,X
�STA (new),Y
�INX
�LDA new
� #7

CMP #7
BEQ rbottom
$INC new
.
BNE rnext
8
INC new+1
B
JMP rnext
L.rbottom
VLDA new
`ADC #&38
jSTA new
t
LDA new+1
~
ADC #1
�
STA new+1
�
.rnext
�DEC temprows
�
BNE loop2
�LDA temp
�
ADC #8
�STA new
�STA temp
�LDA temp+1
�
ADC #0
�
STA new+1
�STA temp+1
DEC columns


BNE loop1
RTS
 
(#\new=addr of backround to store
2\X=columns, Y=rows
<
.store
FSTX columns
PSTY rows
Z
LDX #0
d
LDY #0
nLDA new
xSTA temp
�
LDA new+1
�STA temp+1
�
.loop1
�LDA rows
�STA temprows
�
.loop2
�LDA (new),Y
�STA back,X
�INX
�LDA new
�� #7
�
CMP #7
�BEQ sbottom
INC new

BNE snext

INC new+1
"
JMP snext
,.sbottom
6LDA new
@ADC #&38
JSTA new
T
LDA new+1
^
ADC #1
h
STA new+1
r
.snext
|DEC temprows
�
BNE loop2
�LDA temp
�
ADC #8
�STA new
�STA temp
�LDA temp+1
�
ADC #0
�
STA new+1
�STA temp+1
�DEC columns
�
BNE loop1
�RTS
� 

.print
STX columns
STY rows
&
LDX #0
0
LDY #0
:LDA new
DSTA temp
N
LDA new+1
XSTA temp+1
b
.loop1
lLDA rows
vSTA temprows
�
.loop2
�LDA (new),Y
�STA work
�ASL work
�ASL work
�ASL work
�ASL work
�	LSR A
�	LSR A
�	LSR A
�	LSR A
��A work
��A (new),Y
�
� #&FF
�
.sdata
�
� &3000,X
��A (new),Y
�STA (new),Y
�INX
�LDA new
�� #7
�
CMP #7
�BEQ pbottom
�INC new
�
BNE pnext

INC new+1

JMP pnext
.pbottom
 LDA new
*ADC #&38
4STA new
>
LDA new+1
H
ADC #1
R
STA new+1
\
.pnext
fDEC temprows
p
BNE loop2
zLDA temp
�
ADC #8
�STA new
�STA temp
�LDA temp+1
�
ADC #0
�
STA new+1
�STA temp+1
�DEC columns
�
BNE loop1
�RTS
� 
�	.back
�EQUS �4*24,�(0))
	 
	
OPT �data
	]
	$�
	.�
	8 
	B� �data
	L
sprite=P%
	V�
	`� i=1 � 4*24 � 4
	j� a$
	t[ OPT pass
	~EQUD �("&"+a$)
	�]
	��
	�	=pass
	� 
	�� Sprite
	�� X=4, Y=24
	��� 3010100,2D161603,2D2D2D2D,F0F0F2D,316160F,10103,872D1E0F,F0F0F87,C840E4B,F0E0C84,870F0F0F,F0F6987,F0F870F,F0F0F0F,303070F,F070303,F0F0F0F,F0F0F0F,C080800,F0E0E0C,F0F0F0F,F0F0F0F,C0E0E0F,8080C
�

00000000  0d 00 0a 16 f4 20 46 6f  72 65 67 72 6f 75 6e 64  |..... Foreground|
00000010  20 50 72 69 6e 74 0d 00  14 16 f4 20 42 79 20 52  | Print..... By R|
00000020  2e 41 2e 57 61 64 64 69  6c 6f 76 65 0d 00 1e 17  |.A.Waddilove....|
00000030  f4 20 28 63 29 20 45 6c  65 63 74 72 6f 6e 20 55  |. (c) Electron U|
00000040  73 65 72 0d 00 28 09 2a  46 58 31 36 0d 00 32 0d  |ser..(.*FX16..2.|
00000050  f2 61 73 73 65 6d 62 6c  65 0d 00 3c 07 eb 20 35  |.assemble..<.. 5|
00000060  0d 00 46 0e e3 20 69 3d  31 20 b8 20 31 32 0d 00  |..F.. i=1 . 12..|
00000070  50 12 f1 22 50 72 65 73  73 20 61 20 6b 65 79 22  |P.."Press a key"|
00000080  0d 00 5a 05 ed 0d 00 64  0a d6 20 26 39 30 30 0d  |..Z....d.. &900.|
00000090  00 6e 05 e0 0d 00 78 05  20 0d 00 82 0f dd 20 f2  |.n....x. ..... .|
000000a0  61 73 73 65 6d 62 6c 65  0d 00 8c 0b 61 64 64 3d  |assemble....add=|
000000b0  26 37 30 0d 00 96 0b 6e  65 77 3d 26 37 32 0d 00  |&70....new=&72..|
000000c0  a0 0c 74 65 6d 70 3d 26  37 34 0d 00 aa 0c 72 6f  |..temp=&74....ro|
000000d0  77 73 3d 26 37 36 0d 00  b4 10 74 65 6d 70 72 6f  |ws=&76....tempro|
000000e0  77 73 3d 26 37 37 0d 00  be 0f 63 6f 6c 75 6d 6e  |ws=&77....column|
000000f0  73 3d 26 37 38 0d 00 c8  0f 63 6f 75 6e 74 65 72  |s=&78....counter|
00000100  3d 26 37 39 0d 00 cd 0c  77 6f 72 6b 3d 26 37 41  |=&79....work=&7A|
00000110  0d 00 d2 14 e3 20 70 61  73 73 3d 30 20 b8 20 32  |..... pass=0 . 2|
00000120  20 88 20 32 0d 00 dc 0b  50 25 3d 26 39 30 30 0d  | . 2....P%=&900.|
00000130  00 e6 0e 5b 20 4f 50 54  20 70 61 73 73 0d 00 f0  |...[ OPT pass...|
00000140  05 20 0d 00 fa 15 5c 73  65 74 20 75 70 20 76 61  |. ....\set up va|
00000150  72 69 61 62 6c 65 73 0d  01 04 13 4c 44 41 20 23  |riables....LDA #|
00000160  26 35 44 31 30 20 83 32  35 36 0d 01 0e 0b 53 54  |&5D10 .256....ST|
00000170  41 20 61 64 64 0d 01 18  13 4c 44 41 20 23 26 35  |A add....LDA #&5|
00000180  44 31 30 20 81 32 35 36  0d 01 22 0d 53 54 41 20  |D10 .256..".STA |
00000190  61 64 64 2b 31 0d 01 2c  0b 4c 44 41 20 23 33 30  |add+1..,.LDA #30|
000001a0  0d 01 36 0f 53 54 41 20  63 6f 75 6e 74 65 72 0d  |..6.STA counter.|
000001b0  01 40 05 20 0d 01 4a 0d  2e 6d 61 69 6e 6c 6f 6f  |.@. ..J..mainloo|
000001c0  70 0d 01 54 15 5c 73 74  6f 72 65 20 62 61 63 6b  |p..T.\store back|
000001d0  67 72 6f 75 6e 64 0d 01  5e 0b 4c 44 41 20 61 64  |ground..^.LDA ad|
000001e0  64 0d 01 68 0b 53 54 41  20 6e 65 77 0d 01 72 0d  |d..h.STA new..r.|
000001f0  4c 44 41 20 61 64 64 2b  31 0d 01 7c 0d 53 54 41  |LDA add+1..|.STA|
00000200  20 6e 65 77 2b 31 0d 01  86 0a 4c 44 58 20 23 34  | new+1....LDX #4|
00000210  0d 01 90 0b 4c 44 59 20  23 32 34 0d 01 9a 0d 4a  |....LDY #24....J|
00000220  53 52 20 73 74 6f 72 65  0d 01 a4 05 20 0d 01 ae  |SR store.... ...|
00000230  11 5c 70 72 69 6e 74 20  73 70 72 69 74 65 0d 01  |.\print sprite..|
00000240  b8 14 4c 44 41 20 23 73  70 72 69 74 65 20 83 32  |..LDA #sprite .2|
00000250  35 36 0d 01 c2 0f 53 54  41 20 73 64 61 74 61 2b  |56....STA sdata+|
00000260  31 0d 01 cc 14 4c 44 41  20 23 73 70 72 69 74 65  |1....LDA #sprite|
00000270  20 81 32 35 36 0d 01 d6  0f 53 54 41 20 73 64 61  | .256....STA sda|
00000280  74 61 2b 32 0d 01 e0 0b  4c 44 41 20 61 64 64 0d  |ta+2....LDA add.|
00000290  01 ea 0b 53 54 41 20 6e  65 77 0d 01 f4 0d 4c 44  |...STA new....LD|
000002a0  41 20 61 64 64 2b 31 0d  01 fe 0d 53 54 41 20 6e  |A add+1....STA n|
000002b0  65 77 2b 31 0d 02 08 0a  4c 44 58 20 23 34 0d 02  |ew+1....LDX #4..|
000002c0  12 0b 4c 44 59 20 23 32  34 0d 02 1c 0d 4a 53 52  |..LDY #24....JSR|
000002d0  20 70 72 69 6e 74 0d 02  26 05 20 0d 02 30 16 5c  | print..&. ..0.\|
000002e0  57 61 69 74 20 66 6f 72  20 6b 65 79 70 72 65 73  |Wait for keypres|
000002f0  73 0d 02 3a 0d 4a 53 52  20 26 46 46 45 30 0d 02  |s..:.JSR &FFE0..|
00000300  80 05 20 0d 02 8a 17 5c  72 65 73 74 6f 72 65 20  |.. ....\restore |
00000310  62 61 63 6b 67 72 6f 75  6e 64 0d 02 94 0b 4c 44  |background....LD|
00000320  41 20 61 64 64 0d 02 9e  0b 53 54 41 20 6e 65 77  |A add....STA new|
00000330  0d 02 a8 0d 4c 44 41 20  61 64 64 2b 31 0d 02 b2  |....LDA add+1...|
00000340  0d 53 54 41 20 6e 65 77  2b 31 0d 02 bc 0a 4c 44  |.STA new+1....LD|
00000350  58 20 23 34 0d 02 c6 0b  4c 44 59 20 23 32 34 0d  |X #4....LDY #24.|
00000360  02 d0 0f 4a 53 52 20 72  65 73 74 6f 72 65 0d 02  |...JSR restore..|
00000370  da 07 43 4c 43 0d 02 e4  0b 4c 44 41 20 61 64 64  |..CLC....LDA add|
00000380  0d 02 ee 0a 41 44 43 20  23 38 0d 02 f8 0b 53 54  |....ADC #8....ST|
00000390  41 20 61 64 64 0d 03 02  0d 42 43 43 20 6d 61 69  |A add....BCC mai|
000003a0  6e 31 0d 03 0c 0d 49 4e  43 20 61 64 64 2b 31 0d  |n1....INC add+1.|
000003b0  03 16 0a 2e 6d 61 69 6e  31 0d 03 20 0f 44 45 43  |....main1.. .DEC|
000003c0  20 63 6f 75 6e 74 65 72  0d 03 2a 10 42 4e 45 20  | counter..*.BNE |
000003d0  6d 61 69 6e 6c 6f 6f 70  0d 03 34 07 52 54 53 0d  |mainloop..4.RTS.|
000003e0  03 3e 05 20 0d 03 48 23  5c 6e 65 77 3d 61 64 64  |.>. ..H#\new=add|
000003f0  72 20 74 6f 20 72 65 73  74 6f 72 65 20 62 61 63  |r to restore bac|
00000400  6b 67 72 6f 75 6e 64 0d  03 52 16 5c 58 3d 63 6f  |kground..R.\X=co|
00000410  6c 75 6d 6e 73 2c 20 59  3d 72 6f 77 73 0d 03 5c  |lumns, Y=rows..\|
00000420  0c 2e 72 65 73 74 6f 72  65 0d 03 66 0f 53 54 58  |..restore..f.STX|
00000430  20 63 6f 6c 75 6d 6e 73  0d 03 70 0c 53 54 59 20  | columns..p.STY |
00000440  72 6f 77 73 0d 03 7a 0a  4c 44 58 20 23 30 0d 03  |rows..z.LDX #0..|
00000450  84 0a 4c 44 59 20 23 30  0d 03 8e 0b 4c 44 41 20  |..LDY #0....LDA |
00000460  6e 65 77 0d 03 98 0c 53  54 41 20 74 65 6d 70 0d  |new....STA temp.|
00000470  03 a2 0d 4c 44 41 20 6e  65 77 2b 31 0d 03 ac 0e  |...LDA new+1....|
00000480  53 54 41 20 74 65 6d 70  2b 31 0d 03 b6 0a 2e 6c  |STA temp+1.....l|
00000490  6f 6f 70 31 0d 03 c0 0c  4c 44 41 20 72 6f 77 73  |oop1....LDA rows|
000004a0  0d 03 ca 10 53 54 41 20  74 65 6d 70 72 6f 77 73  |....STA temprows|
000004b0  0d 03 d4 0a 2e 6c 6f 6f  70 32 0d 03 de 0e 4c 44  |.....loop2....LD|
000004c0  41 20 62 61 63 6b 2c 58  0d 03 e8 0f 53 54 41 20  |A back,X....STA |
000004d0  28 6e 65 77 29 2c 59 0d  03 f2 07 49 4e 58 0d 03  |(new),Y....INX..|
000004e0  fc 0b 4c 44 41 20 6e 65  77 0d 04 06 08 80 20 23  |..LDA new..... #|
000004f0  37 0d 04 10 0a 43 4d 50  20 23 37 0d 04 1a 0f 42  |7....CMP #7....B|
00000500  45 51 20 72 62 6f 74 74  6f 6d 0d 04 24 0b 49 4e  |EQ rbottom..$.IN|
00000510  43 20 6e 65 77 0d 04 2e  0d 42 4e 45 20 72 6e 65  |C new....BNE rne|
00000520  78 74 0d 04 38 0d 49 4e  43 20 6e 65 77 2b 31 0d  |xt..8.INC new+1.|
00000530  04 42 0d 4a 4d 50 20 72  6e 65 78 74 0d 04 4c 0c  |.B.JMP rnext..L.|
00000540  2e 72 62 6f 74 74 6f 6d  0d 04 56 0b 4c 44 41 20  |.rbottom..V.LDA |
00000550  6e 65 77 0d 04 60 0c 41  44 43 20 23 26 33 38 0d  |new..`.ADC #&38.|
00000560  04 6a 0b 53 54 41 20 6e  65 77 0d 04 74 0d 4c 44  |.j.STA new..t.LD|
00000570  41 20 6e 65 77 2b 31 0d  04 7e 0a 41 44 43 20 23  |A new+1..~.ADC #|
00000580  31 0d 04 88 0d 53 54 41  20 6e 65 77 2b 31 0d 04  |1....STA new+1..|
00000590  92 0a 2e 72 6e 65 78 74  0d 04 9c 10 44 45 43 20  |...rnext....DEC |
000005a0  74 65 6d 70 72 6f 77 73  0d 04 a6 0d 42 4e 45 20  |temprows....BNE |
000005b0  6c 6f 6f 70 32 0d 04 b0  0c 4c 44 41 20 74 65 6d  |loop2....LDA tem|
000005c0  70 0d 04 ba 0a 41 44 43  20 23 38 0d 04 c4 0b 53  |p....ADC #8....S|
000005d0  54 41 20 6e 65 77 0d 04  ce 0c 53 54 41 20 74 65  |TA new....STA te|
000005e0  6d 70 0d 04 d8 0e 4c 44  41 20 74 65 6d 70 2b 31  |mp....LDA temp+1|
000005f0  0d 04 e2 0a 41 44 43 20  23 30 0d 04 ec 0d 53 54  |....ADC #0....ST|
00000600  41 20 6e 65 77 2b 31 0d  04 f6 0e 53 54 41 20 74  |A new+1....STA t|
00000610  65 6d 70 2b 31 0d 05 00  0f 44 45 43 20 63 6f 6c  |emp+1....DEC col|
00000620  75 6d 6e 73 0d 05 0a 0d  42 4e 45 20 6c 6f 6f 70  |umns....BNE loop|
00000630  31 0d 05 14 07 52 54 53  0d 05 1e 05 20 0d 05 28  |1....RTS.... ..(|
00000640  23 5c 6e 65 77 3d 61 64  64 72 20 6f 66 20 62 61  |#\new=addr of ba|
00000650  63 6b 72 6f 75 6e 64 20  74 6f 20 73 74 6f 72 65  |ckround to store|
00000660  0d 05 32 16 5c 58 3d 63  6f 6c 75 6d 6e 73 2c 20  |..2.\X=columns, |
00000670  59 3d 72 6f 77 73 0d 05  3c 0a 2e 73 74 6f 72 65  |Y=rows..<..store|
00000680  0d 05 46 0f 53 54 58 20  63 6f 6c 75 6d 6e 73 0d  |..F.STX columns.|
00000690  05 50 0c 53 54 59 20 72  6f 77 73 0d 05 5a 0a 4c  |.P.STY rows..Z.L|
000006a0  44 58 20 23 30 0d 05 64  0a 4c 44 59 20 23 30 0d  |DX #0..d.LDY #0.|
000006b0  05 6e 0b 4c 44 41 20 6e  65 77 0d 05 78 0c 53 54  |.n.LDA new..x.ST|
000006c0  41 20 74 65 6d 70 0d 05  82 0d 4c 44 41 20 6e 65  |A temp....LDA ne|
000006d0  77 2b 31 0d 05 8c 0e 53  54 41 20 74 65 6d 70 2b  |w+1....STA temp+|
000006e0  31 0d 05 96 0a 2e 6c 6f  6f 70 31 0d 05 a0 0c 4c  |1.....loop1....L|
000006f0  44 41 20 72 6f 77 73 0d  05 aa 10 53 54 41 20 74  |DA rows....STA t|
00000700  65 6d 70 72 6f 77 73 0d  05 b4 0a 2e 6c 6f 6f 70  |emprows.....loop|
00000710  32 0d 05 be 0f 4c 44 41  20 28 6e 65 77 29 2c 59  |2....LDA (new),Y|
00000720  0d 05 c8 0e 53 54 41 20  62 61 63 6b 2c 58 0d 05  |....STA back,X..|
00000730  d2 07 49 4e 58 0d 05 dc  0b 4c 44 41 20 6e 65 77  |..INX....LDA new|
00000740  0d 05 e6 08 80 20 23 37  0d 05 f0 0a 43 4d 50 20  |..... #7....CMP |
00000750  23 37 0d 05 fa 0f 42 45  51 20 73 62 6f 74 74 6f  |#7....BEQ sbotto|
00000760  6d 0d 06 04 0b 49 4e 43  20 6e 65 77 0d 06 0e 0d  |m....INC new....|
00000770  42 4e 45 20 73 6e 65 78  74 0d 06 18 0d 49 4e 43  |BNE snext....INC|
00000780  20 6e 65 77 2b 31 0d 06  22 0d 4a 4d 50 20 73 6e  | new+1..".JMP sn|
00000790  65 78 74 0d 06 2c 0c 2e  73 62 6f 74 74 6f 6d 0d  |ext..,..sbottom.|
000007a0  06 36 0b 4c 44 41 20 6e  65 77 0d 06 40 0c 41 44  |.6.LDA new..@.AD|
000007b0  43 20 23 26 33 38 0d 06  4a 0b 53 54 41 20 6e 65  |C #&38..J.STA ne|
000007c0  77 0d 06 54 0d 4c 44 41  20 6e 65 77 2b 31 0d 06  |w..T.LDA new+1..|
000007d0  5e 0a 41 44 43 20 23 31  0d 06 68 0d 53 54 41 20  |^.ADC #1..h.STA |
000007e0  6e 65 77 2b 31 0d 06 72  0a 2e 73 6e 65 78 74 0d  |new+1..r..snext.|
000007f0  06 7c 10 44 45 43 20 74  65 6d 70 72 6f 77 73 0d  |.|.DEC temprows.|
00000800  06 86 0d 42 4e 45 20 6c  6f 6f 70 32 0d 06 90 0c  |...BNE loop2....|
00000810  4c 44 41 20 74 65 6d 70  0d 06 9a 0a 41 44 43 20  |LDA temp....ADC |
00000820  23 38 0d 06 a4 0b 53 54  41 20 6e 65 77 0d 06 ae  |#8....STA new...|
00000830  0c 53 54 41 20 74 65 6d  70 0d 06 b8 0e 4c 44 41  |.STA temp....LDA|
00000840  20 74 65 6d 70 2b 31 0d  06 c2 0a 41 44 43 20 23  | temp+1....ADC #|
00000850  30 0d 06 cc 0d 53 54 41  20 6e 65 77 2b 31 0d 06  |0....STA new+1..|
00000860  d6 0e 53 54 41 20 74 65  6d 70 2b 31 0d 06 e0 0f  |..STA temp+1....|
00000870  44 45 43 20 63 6f 6c 75  6d 6e 73 0d 06 ea 0d 42  |DEC columns....B|
00000880  4e 45 20 6c 6f 6f 70 31  0d 06 f4 07 52 54 53 0d  |NE loop1....RTS.|
00000890  06 fe 05 20 0d 07 08 0a  2e 70 72 69 6e 74 0d 07  |... .....print..|
000008a0  12 0f 53 54 58 20 63 6f  6c 75 6d 6e 73 0d 07 1c  |..STX columns...|
000008b0  0c 53 54 59 20 72 6f 77  73 0d 07 26 0a 4c 44 58  |.STY rows..&.LDX|
000008c0  20 23 30 0d 07 30 0a 4c  44 59 20 23 30 0d 07 3a  | #0..0.LDY #0..:|
000008d0  0b 4c 44 41 20 6e 65 77  0d 07 44 0c 53 54 41 20  |.LDA new..D.STA |
000008e0  74 65 6d 70 0d 07 4e 0d  4c 44 41 20 6e 65 77 2b  |temp..N.LDA new+|
000008f0  31 0d 07 58 0e 53 54 41  20 74 65 6d 70 2b 31 0d  |1..X.STA temp+1.|
00000900  07 62 0a 2e 6c 6f 6f 70  31 0d 07 6c 0c 4c 44 41  |.b..loop1..l.LDA|
00000910  20 72 6f 77 73 0d 07 76  10 53 54 41 20 74 65 6d  | rows..v.STA tem|
00000920  70 72 6f 77 73 0d 07 80  0a 2e 6c 6f 6f 70 32 0d  |prows.....loop2.|
00000930  07 8a 0f 4c 44 41 20 28  6e 65 77 29 2c 59 0d 07  |...LDA (new),Y..|
00000940  8c 0c 53 54 41 20 77 6f  72 6b 0d 07 8e 0c 41 53  |..STA work....AS|
00000950  4c 20 77 6f 72 6b 0d 07  90 0c 41 53 4c 20 77 6f  |L work....ASL wo|
00000960  72 6b 0d 07 92 0c 41 53  4c 20 77 6f 72 6b 0d 07  |rk....ASL work..|
00000970  94 0c 41 53 4c 20 77 6f  72 6b 0d 07 96 09 4c 53  |..ASL work....LS|
00000980  52 20 41 0d 07 98 09 4c  53 52 20 41 0d 07 9a 09  |R A....LSR A....|
00000990  4c 53 52 20 41 0d 07 9c  09 4c 53 52 20 41 0d 07  |LSR A....LSR A..|
000009a0  9e 0b 84 41 20 77 6f 72  6b 0d 07 a0 0e 84 41 20  |...A work.....A |
000009b0  28 6e 65 77 29 2c 59 0d  07 a2 0a 82 20 23 26 46  |(new),Y..... #&F|
000009c0  46 0d 07 a4 0a 2e 73 64  61 74 61 0d 07 a6 0d 80  |F.....sdata.....|
000009d0  20 26 33 30 30 30 2c 58  0d 07 a8 0e 84 41 20 28  | &3000,X.....A (|
000009e0  6e 65 77 29 2c 59 0d 07  b2 0f 53 54 41 20 28 6e  |new),Y....STA (n|
000009f0  65 77 29 2c 59 0d 07 bc  07 49 4e 58 0d 07 c6 0b  |ew),Y....INX....|
00000a00  4c 44 41 20 6e 65 77 0d  07 d0 08 80 20 23 37 0d  |LDA new..... #7.|
00000a10  07 da 0a 43 4d 50 20 23  37 0d 07 e4 0f 42 45 51  |...CMP #7....BEQ|
00000a20  20 70 62 6f 74 74 6f 6d  0d 07 ee 0b 49 4e 43 20  | pbottom....INC |
00000a30  6e 65 77 0d 07 f8 0d 42  4e 45 20 70 6e 65 78 74  |new....BNE pnext|
00000a40  0d 08 02 0d 49 4e 43 20  6e 65 77 2b 31 0d 08 0c  |....INC new+1...|
00000a50  0d 4a 4d 50 20 70 6e 65  78 74 0d 08 16 0c 2e 70  |.JMP pnext.....p|
00000a60  62 6f 74 74 6f 6d 0d 08  20 0b 4c 44 41 20 6e 65  |bottom.. .LDA ne|
00000a70  77 0d 08 2a 0c 41 44 43  20 23 26 33 38 0d 08 34  |w..*.ADC #&38..4|
00000a80  0b 53 54 41 20 6e 65 77  0d 08 3e 0d 4c 44 41 20  |.STA new..>.LDA |
00000a90  6e 65 77 2b 31 0d 08 48  0a 41 44 43 20 23 31 0d  |new+1..H.ADC #1.|
00000aa0  08 52 0d 53 54 41 20 6e  65 77 2b 31 0d 08 5c 0a  |.R.STA new+1..\.|
00000ab0  2e 70 6e 65 78 74 0d 08  66 10 44 45 43 20 74 65  |.pnext..f.DEC te|
00000ac0  6d 70 72 6f 77 73 0d 08  70 0d 42 4e 45 20 6c 6f  |mprows..p.BNE lo|
00000ad0  6f 70 32 0d 08 7a 0c 4c  44 41 20 74 65 6d 70 0d  |op2..z.LDA temp.|
00000ae0  08 84 0a 41 44 43 20 23  38 0d 08 8e 0b 53 54 41  |...ADC #8....STA|
00000af0  20 6e 65 77 0d 08 98 0c  53 54 41 20 74 65 6d 70  | new....STA temp|
00000b00  0d 08 a2 0e 4c 44 41 20  74 65 6d 70 2b 31 0d 08  |....LDA temp+1..|
00000b10  ac 0a 41 44 43 20 23 30  0d 08 b6 0d 53 54 41 20  |..ADC #0....STA |
00000b20  6e 65 77 2b 31 0d 08 c0  0e 53 54 41 20 74 65 6d  |new+1....STA tem|
00000b30  70 2b 31 0d 08 ca 0f 44  45 43 20 63 6f 6c 75 6d  |p+1....DEC colum|
00000b40  6e 73 0d 08 d4 0d 42 4e  45 20 6c 6f 6f 70 31 0d  |ns....BNE loop1.|
00000b50  08 de 07 52 54 53 0d 08  e8 05 20 0d 08 f2 09 2e  |...RTS.... .....|
00000b60  62 61 63 6b 0d 08 fc 14  45 51 55 53 20 c4 34 2a  |back....EQUS .4*|
00000b70  32 34 2c bd 28 30 29 29  0d 09 06 05 20 0d 09 10  |24,.(0)).... ...|
00000b80  0d 4f 50 54 20 a4 64 61  74 61 0d 09 1a 05 5d 0d  |.OPT .data....].|
00000b90  09 24 05 ed 0d 09 2e 05  e1 0d 09 38 05 20 0d 09  |.$.........8. ..|
00000ba0  42 0b dd 20 a4 64 61 74  61 0d 09 4c 0d 73 70 72  |B.. .data..L.spr|
00000bb0  69 74 65 3d 50 25 0d 09  56 05 f7 0d 09 60 14 e3  |ite=P%..V....`..|
00000bc0  20 69 3d 31 20 b8 20 34  2a 32 34 20 88 20 34 0d  | i=1 . 4*24 . 4.|
00000bd0  09 6a 08 f3 20 61 24 0d  09 74 0e 5b 20 4f 50 54  |.j.. a$..t.[ OPT|
00000be0  20 70 61 73 73 0d 09 7e  12 45 51 55 44 20 a0 28  | pass..~.EQUD .(|
00000bf0  22 26 22 2b 61 24 29 0d  09 88 05 5d 0d 09 92 05  |"&"+a$)....]....|
00000c00  ed 0d 09 9c 09 3d 70 61  73 73 0d 09 a6 05 20 0d  |.....=pass.... .|
00000c10  09 b0 0c f4 20 53 70 72  69 74 65 0d 09 ba 0f f4  |.... Sprite.....|
00000c20  20 58 3d 34 2c 20 59 3d  32 34 0d 09 c4 c5 dc 20  | X=4, Y=24..... |
00000c30  33 30 31 30 31 30 30 2c  32 44 31 36 31 36 30 33  |3010100,2D161603|
00000c40  2c 32 44 32 44 32 44 32  44 2c 46 30 46 30 46 32  |,2D2D2D2D,F0F0F2|
00000c50  44 2c 33 31 36 31 36 30  46 2c 31 30 31 30 33 2c  |D,316160F,10103,|
00000c60  38 37 32 44 31 45 30 46  2c 46 30 46 30 46 38 37  |872D1E0F,F0F0F87|
00000c70  2c 43 38 34 30 45 34 42  2c 46 30 45 30 43 38 34  |,C840E4B,F0E0C84|
00000c80  2c 38 37 30 46 30 46 30  46 2c 46 30 46 36 39 38  |,870F0F0F,F0F698|
00000c90  37 2c 46 30 46 38 37 30  46 2c 46 30 46 30 46 30  |7,F0F870F,F0F0F0|
00000ca0  46 2c 33 30 33 30 37 30  46 2c 46 30 37 30 33 30  |F,303070F,F07030|
00000cb0  33 2c 46 30 46 30 46 30  46 2c 46 30 46 30 46 30  |3,F0F0F0F,F0F0F0|
00000cc0  46 2c 43 30 38 30 38 30  30 2c 46 30 45 30 45 30  |F,C080800,F0E0E0|
00000cd0  43 2c 46 30 46 30 46 30  46 2c 46 30 46 30 46 30  |C,F0F0F0F,F0F0F0|
00000ce0  46 2c 43 30 45 30 45 30  46 2c 38 30 38 30 43 0d  |F,C0E0E0F,8080C.|
00000cf0  ff                                                |.|
00000cf1