� 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
�� 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
�
 BNE skip
� .sdata
� LDA &3000,X
�STA (new),Y
�	.skip
�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 d2 14  e3 20 70 61 73 73 3d 30  |=&79..... pass=0|
00000110  20 b8 20 32 20 88 20 32  0d 00 dc 0b 50 25 3d 26  | . 2 . 2....P%=&|
00000120  39 30 30 0d 00 e6 0e 5b  20 4f 50 54 20 70 61 73  |900....[ OPT pas|
00000130  73 0d 00 f0 05 20 0d 00  fa 15 5c 73 65 74 20 75  |s.... ....\set u|
00000140  70 20 76 61 72 69 61 62  6c 65 73 0d 01 04 13 4c  |p variables....L|
00000150  44 41 20 23 26 35 44 31  30 20 83 32 35 36 0d 01  |DA #&5D10 .256..|
00000160  0e 0b 53 54 41 20 61 64  64 0d 01 18 13 4c 44 41  |..STA add....LDA|
00000170  20 23 26 35 44 31 30 20  81 32 35 36 0d 01 22 0d  | #&5D10 .256..".|
00000180  53 54 41 20 61 64 64 2b  31 0d 01 2c 0b 4c 44 41  |STA add+1..,.LDA|
00000190  20 23 33 30 0d 01 36 0f  53 54 41 20 63 6f 75 6e  | #30..6.STA coun|
000001a0  74 65 72 0d 01 40 05 20  0d 01 4a 0d 2e 6d 61 69  |ter..@. ..J..mai|
000001b0  6e 6c 6f 6f 70 0d 01 54  15 5c 73 74 6f 72 65 20  |nloop..T.\store |
000001c0  62 61 63 6b 67 72 6f 75  6e 64 0d 01 5e 0b 4c 44  |background..^.LD|
000001d0  41 20 61 64 64 0d 01 68  0b 53 54 41 20 6e 65 77  |A add..h.STA new|
000001e0  0d 01 72 0d 4c 44 41 20  61 64 64 2b 31 0d 01 7c  |..r.LDA add+1..||
000001f0  0d 53 54 41 20 6e 65 77  2b 31 0d 01 86 0a 4c 44  |.STA new+1....LD|
00000200  58 20 23 34 0d 01 90 0b  4c 44 59 20 23 32 34 0d  |X #4....LDY #24.|
00000210  01 9a 0d 4a 53 52 20 73  74 6f 72 65 0d 01 a4 05  |...JSR store....|
00000220  20 0d 01 ae 11 5c 70 72  69 6e 74 20 73 70 72 69  | ....\print spri|
00000230  74 65 0d 01 b8 14 4c 44  41 20 23 73 70 72 69 74  |te....LDA #sprit|
00000240  65 20 83 32 35 36 0d 01  c2 0f 53 54 41 20 73 64  |e .256....STA sd|
00000250  61 74 61 2b 31 0d 01 cc  14 4c 44 41 20 23 73 70  |ata+1....LDA #sp|
00000260  72 69 74 65 20 81 32 35  36 0d 01 d6 0f 53 54 41  |rite .256....STA|
00000270  20 73 64 61 74 61 2b 32  0d 01 e0 0b 4c 44 41 20  | sdata+2....LDA |
00000280  61 64 64 0d 01 ea 0b 53  54 41 20 6e 65 77 0d 01  |add....STA new..|
00000290  f4 0d 4c 44 41 20 61 64  64 2b 31 0d 01 fe 0d 53  |..LDA add+1....S|
000002a0  54 41 20 6e 65 77 2b 31  0d 02 08 0a 4c 44 58 20  |TA new+1....LDX |
000002b0  23 34 0d 02 12 0b 4c 44  59 20 23 32 34 0d 02 1c  |#4....LDY #24...|
000002c0  0d 4a 53 52 20 70 72 69  6e 74 0d 02 26 05 20 0d  |.JSR print..&. .|
000002d0  02 30 16 5c 57 61 69 74  20 66 6f 72 20 6b 65 79  |.0.\Wait for key|
000002e0  70 72 65 73 73 0d 02 3a  0d 4a 53 52 20 26 46 46  |press..:.JSR &FF|
000002f0  45 30 0d 02 80 05 20 0d  02 8a 17 5c 72 65 73 74  |E0.... ....\rest|
00000300  6f 72 65 20 62 61 63 6b  67 72 6f 75 6e 64 0d 02  |ore background..|
00000310  94 0b 4c 44 41 20 61 64  64 0d 02 9e 0b 53 54 41  |..LDA add....STA|
00000320  20 6e 65 77 0d 02 a8 0d  4c 44 41 20 61 64 64 2b  | new....LDA add+|
00000330  31 0d 02 b2 0d 53 54 41  20 6e 65 77 2b 31 0d 02  |1....STA new+1..|
00000340  bc 0a 4c 44 58 20 23 34  0d 02 c6 0b 4c 44 59 20  |..LDX #4....LDY |
00000350  23 32 34 0d 02 d0 0f 4a  53 52 20 72 65 73 74 6f  |#24....JSR resto|
00000360  72 65 0d 02 da 07 43 4c  43 0d 02 e4 0b 4c 44 41  |re....CLC....LDA|
00000370  20 61 64 64 0d 02 ee 0a  41 44 43 20 23 38 0d 02  | add....ADC #8..|
00000380  f8 0b 53 54 41 20 61 64  64 0d 03 02 0d 42 43 43  |..STA add....BCC|
00000390  20 6d 61 69 6e 31 0d 03  0c 0d 49 4e 43 20 61 64  | main1....INC ad|
000003a0  64 2b 31 0d 03 16 0a 2e  6d 61 69 6e 31 0d 03 20  |d+1.....main1.. |
000003b0  0f 44 45 43 20 63 6f 75  6e 74 65 72 0d 03 2a 10  |.DEC counter..*.|
000003c0  42 4e 45 20 6d 61 69 6e  6c 6f 6f 70 0d 03 34 07  |BNE mainloop..4.|
000003d0  52 54 53 0d 03 3e 05 20  0d 03 48 23 5c 6e 65 77  |RTS..>. ..H#\new|
000003e0  3d 61 64 64 72 20 74 6f  20 72 65 73 74 6f 72 65  |=addr to restore|
000003f0  20 62 61 63 6b 67 72 6f  75 6e 64 0d 03 52 16 5c  | background..R.\|
00000400  58 3d 63 6f 6c 75 6d 6e  73 2c 20 59 3d 72 6f 77  |X=columns, Y=row|
00000410  73 0d 03 5c 0c 2e 72 65  73 74 6f 72 65 0d 03 66  |s..\..restore..f|
00000420  0f 53 54 58 20 63 6f 6c  75 6d 6e 73 0d 03 70 0c  |.STX columns..p.|
00000430  53 54 59 20 72 6f 77 73  0d 03 7a 0a 4c 44 58 20  |STY rows..z.LDX |
00000440  23 30 0d 03 84 0a 4c 44  59 20 23 30 0d 03 8e 0b  |#0....LDY #0....|
00000450  4c 44 41 20 6e 65 77 0d  03 98 0c 53 54 41 20 74  |LDA new....STA t|
00000460  65 6d 70 0d 03 a2 0d 4c  44 41 20 6e 65 77 2b 31  |emp....LDA new+1|
00000470  0d 03 ac 0e 53 54 41 20  74 65 6d 70 2b 31 0d 03  |....STA temp+1..|
00000480  b6 0a 2e 6c 6f 6f 70 31  0d 03 c0 0c 4c 44 41 20  |...loop1....LDA |
00000490  72 6f 77 73 0d 03 ca 10  53 54 41 20 74 65 6d 70  |rows....STA temp|
000004a0  72 6f 77 73 0d 03 d4 0a  2e 6c 6f 6f 70 32 0d 03  |rows.....loop2..|
000004b0  de 0e 4c 44 41 20 62 61  63 6b 2c 58 0d 03 e8 0f  |..LDA back,X....|
000004c0  53 54 41 20 28 6e 65 77  29 2c 59 0d 03 f2 07 49  |STA (new),Y....I|
000004d0  4e 58 0d 03 fc 0b 4c 44  41 20 6e 65 77 0d 04 06  |NX....LDA new...|
000004e0  08 80 20 23 37 0d 04 10  0a 43 4d 50 20 23 37 0d  |.. #7....CMP #7.|
000004f0  04 1a 0f 42 45 51 20 72  62 6f 74 74 6f 6d 0d 04  |...BEQ rbottom..|
00000500  24 0b 49 4e 43 20 6e 65  77 0d 04 2e 0d 42 4e 45  |$.INC new....BNE|
00000510  20 72 6e 65 78 74 0d 04  38 0d 49 4e 43 20 6e 65  | rnext..8.INC ne|
00000520  77 2b 31 0d 04 42 0d 4a  4d 50 20 72 6e 65 78 74  |w+1..B.JMP rnext|
00000530  0d 04 4c 0c 2e 72 62 6f  74 74 6f 6d 0d 04 56 0b  |..L..rbottom..V.|
00000540  4c 44 41 20 6e 65 77 0d  04 60 0c 41 44 43 20 23  |LDA new..`.ADC #|
00000550  26 33 38 0d 04 6a 0b 53  54 41 20 6e 65 77 0d 04  |&38..j.STA new..|
00000560  74 0d 4c 44 41 20 6e 65  77 2b 31 0d 04 7e 0a 41  |t.LDA new+1..~.A|
00000570  44 43 20 23 31 0d 04 88  0d 53 54 41 20 6e 65 77  |DC #1....STA new|
00000580  2b 31 0d 04 92 0a 2e 72  6e 65 78 74 0d 04 9c 10  |+1.....rnext....|
00000590  44 45 43 20 74 65 6d 70  72 6f 77 73 0d 04 a6 0d  |DEC temprows....|
000005a0  42 4e 45 20 6c 6f 6f 70  32 0d 04 b0 0c 4c 44 41  |BNE loop2....LDA|
000005b0  20 74 65 6d 70 0d 04 ba  0a 41 44 43 20 23 38 0d  | temp....ADC #8.|
000005c0  04 c4 0b 53 54 41 20 6e  65 77 0d 04 ce 0c 53 54  |...STA new....ST|
000005d0  41 20 74 65 6d 70 0d 04  d8 0e 4c 44 41 20 74 65  |A temp....LDA te|
000005e0  6d 70 2b 31 0d 04 e2 0a  41 44 43 20 23 30 0d 04  |mp+1....ADC #0..|
000005f0  ec 0d 53 54 41 20 6e 65  77 2b 31 0d 04 f6 0e 53  |..STA new+1....S|
00000600  54 41 20 74 65 6d 70 2b  31 0d 05 00 0f 44 45 43  |TA temp+1....DEC|
00000610  20 63 6f 6c 75 6d 6e 73  0d 05 0a 0d 42 4e 45 20  | columns....BNE |
00000620  6c 6f 6f 70 31 0d 05 14  07 52 54 53 0d 05 1e 05  |loop1....RTS....|
00000630  20 0d 05 28 23 5c 6e 65  77 3d 61 64 64 72 20 6f  | ..(#\new=addr o|
00000640  66 20 62 61 63 6b 72 6f  75 6e 64 20 74 6f 20 73  |f backround to s|
00000650  74 6f 72 65 0d 05 32 16  5c 58 3d 63 6f 6c 75 6d  |tore..2.\X=colum|
00000660  6e 73 2c 20 59 3d 72 6f  77 73 0d 05 3c 0a 2e 73  |ns, Y=rows..<..s|
00000670  74 6f 72 65 0d 05 46 0f  53 54 58 20 63 6f 6c 75  |tore..F.STX colu|
00000680  6d 6e 73 0d 05 50 0c 53  54 59 20 72 6f 77 73 0d  |mns..P.STY rows.|
00000690  05 5a 0a 4c 44 58 20 23  30 0d 05 64 0a 4c 44 59  |.Z.LDX #0..d.LDY|
000006a0  20 23 30 0d 05 6e 0b 4c  44 41 20 6e 65 77 0d 05  | #0..n.LDA new..|
000006b0  78 0c 53 54 41 20 74 65  6d 70 0d 05 82 0d 4c 44  |x.STA temp....LD|
000006c0  41 20 6e 65 77 2b 31 0d  05 8c 0e 53 54 41 20 74  |A new+1....STA t|
000006d0  65 6d 70 2b 31 0d 05 96  0a 2e 6c 6f 6f 70 31 0d  |emp+1.....loop1.|
000006e0  05 a0 0c 4c 44 41 20 72  6f 77 73 0d 05 aa 10 53  |...LDA rows....S|
000006f0  54 41 20 74 65 6d 70 72  6f 77 73 0d 05 b4 0a 2e  |TA temprows.....|
00000700  6c 6f 6f 70 32 0d 05 be  0f 4c 44 41 20 28 6e 65  |loop2....LDA (ne|
00000710  77 29 2c 59 0d 05 c8 0e  53 54 41 20 62 61 63 6b  |w),Y....STA back|
00000720  2c 58 0d 05 d2 07 49 4e  58 0d 05 dc 0b 4c 44 41  |,X....INX....LDA|
00000730  20 6e 65 77 0d 05 e6 08  80 20 23 37 0d 05 f0 0a  | new..... #7....|
00000740  43 4d 50 20 23 37 0d 05  fa 0f 42 45 51 20 73 62  |CMP #7....BEQ sb|
00000750  6f 74 74 6f 6d 0d 06 04  0b 49 4e 43 20 6e 65 77  |ottom....INC new|
00000760  0d 06 0e 0d 42 4e 45 20  73 6e 65 78 74 0d 06 18  |....BNE snext...|
00000770  0d 49 4e 43 20 6e 65 77  2b 31 0d 06 22 0d 4a 4d  |.INC new+1..".JM|
00000780  50 20 73 6e 65 78 74 0d  06 2c 0c 2e 73 62 6f 74  |P snext..,..sbot|
00000790  74 6f 6d 0d 06 36 0b 4c  44 41 20 6e 65 77 0d 06  |tom..6.LDA new..|
000007a0  40 0c 41 44 43 20 23 26  33 38 0d 06 4a 0b 53 54  |@.ADC #&38..J.ST|
000007b0  41 20 6e 65 77 0d 06 54  0d 4c 44 41 20 6e 65 77  |A new..T.LDA new|
000007c0  2b 31 0d 06 5e 0a 41 44  43 20 23 31 0d 06 68 0d  |+1..^.ADC #1..h.|
000007d0  53 54 41 20 6e 65 77 2b  31 0d 06 72 0a 2e 73 6e  |STA new+1..r..sn|
000007e0  65 78 74 0d 06 7c 10 44  45 43 20 74 65 6d 70 72  |ext..|.DEC tempr|
000007f0  6f 77 73 0d 06 86 0d 42  4e 45 20 6c 6f 6f 70 32  |ows....BNE loop2|
00000800  0d 06 90 0c 4c 44 41 20  74 65 6d 70 0d 06 9a 0a  |....LDA temp....|
00000810  41 44 43 20 23 38 0d 06  a4 0b 53 54 41 20 6e 65  |ADC #8....STA ne|
00000820  77 0d 06 ae 0c 53 54 41  20 74 65 6d 70 0d 06 b8  |w....STA temp...|
00000830  0e 4c 44 41 20 74 65 6d  70 2b 31 0d 06 c2 0a 41  |.LDA temp+1....A|
00000840  44 43 20 23 30 0d 06 cc  0d 53 54 41 20 6e 65 77  |DC #0....STA new|
00000850  2b 31 0d 06 d6 0e 53 54  41 20 74 65 6d 70 2b 31  |+1....STA temp+1|
00000860  0d 06 e0 0f 44 45 43 20  63 6f 6c 75 6d 6e 73 0d  |....DEC columns.|
00000870  06 ea 0d 42 4e 45 20 6c  6f 6f 70 31 0d 06 f4 07  |...BNE loop1....|
00000880  52 54 53 0d 06 fe 05 20  0d 07 08 0a 2e 70 72 69  |RTS.... .....pri|
00000890  6e 74 0d 07 12 0f 53 54  58 20 63 6f 6c 75 6d 6e  |nt....STX column|
000008a0  73 0d 07 1c 0c 53 54 59  20 72 6f 77 73 0d 07 26  |s....STY rows..&|
000008b0  0a 4c 44 58 20 23 30 0d  07 30 0a 4c 44 59 20 23  |.LDX #0..0.LDY #|
000008c0  30 0d 07 3a 0b 4c 44 41  20 6e 65 77 0d 07 44 0c  |0..:.LDA new..D.|
000008d0  53 54 41 20 74 65 6d 70  0d 07 4e 0d 4c 44 41 20  |STA temp..N.LDA |
000008e0  6e 65 77 2b 31 0d 07 58  0e 53 54 41 20 74 65 6d  |new+1..X.STA tem|
000008f0  70 2b 31 0d 07 62 0a 2e  6c 6f 6f 70 31 0d 07 6c  |p+1..b..loop1..l|
00000900  0c 4c 44 41 20 72 6f 77  73 0d 07 76 10 53 54 41  |.LDA rows..v.STA|
00000910  20 74 65 6d 70 72 6f 77  73 0d 07 80 0a 2e 6c 6f  | temprows.....lo|
00000920  6f 70 32 0d 07 8a 10 20  4c 44 41 20 28 6e 65 77  |op2.... LDA (new|
00000930  29 2c 59 0d 07 94 0d 20  42 4e 45 20 73 6b 69 70  |),Y.... BNE skip|
00000940  0d 07 9e 0b 20 2e 73 64  61 74 61 0d 07 a3 10 20  |.... .sdata.... |
00000950  4c 44 41 20 26 33 30 30  30 2c 58 0d 07 a8 0f 53  |LDA &3000,X....S|
00000960  54 41 20 28 6e 65 77 29  2c 59 0d 07 b2 09 2e 73  |TA (new),Y.....s|
00000970  6b 69 70 0d 07 bc 07 49  4e 58 0d 07 c6 0b 4c 44  |kip....INX....LD|
00000980  41 20 6e 65 77 0d 07 d0  08 80 20 23 37 0d 07 da  |A new..... #7...|
00000990  0a 43 4d 50 20 23 37 0d  07 e4 0f 42 45 51 20 70  |.CMP #7....BEQ p|
000009a0  62 6f 74 74 6f 6d 0d 07  ee 0b 49 4e 43 20 6e 65  |bottom....INC ne|
000009b0  77 0d 07 f8 0d 42 4e 45  20 70 6e 65 78 74 0d 08  |w....BNE pnext..|
000009c0  02 0d 49 4e 43 20 6e 65  77 2b 31 0d 08 0c 0d 4a  |..INC new+1....J|
000009d0  4d 50 20 70 6e 65 78 74  0d 08 16 0c 2e 70 62 6f  |MP pnext.....pbo|
000009e0  74 74 6f 6d 0d 08 20 0b  4c 44 41 20 6e 65 77 0d  |ttom.. .LDA new.|
000009f0  08 2a 0c 41 44 43 20 23  26 33 38 0d 08 34 0b 53  |.*.ADC #&38..4.S|
00000a00  54 41 20 6e 65 77 0d 08  3e 0d 4c 44 41 20 6e 65  |TA new..>.LDA ne|
00000a10  77 2b 31 0d 08 48 0a 41  44 43 20 23 31 0d 08 52  |w+1..H.ADC #1..R|
00000a20  0d 53 54 41 20 6e 65 77  2b 31 0d 08 5c 0a 2e 70  |.STA new+1..\..p|
00000a30  6e 65 78 74 0d 08 66 10  44 45 43 20 74 65 6d 70  |next..f.DEC temp|
00000a40  72 6f 77 73 0d 08 70 0d  42 4e 45 20 6c 6f 6f 70  |rows..p.BNE loop|
00000a50  32 0d 08 7a 0c 4c 44 41  20 74 65 6d 70 0d 08 84  |2..z.LDA temp...|
00000a60  0a 41 44 43 20 23 38 0d  08 8e 0b 53 54 41 20 6e  |.ADC #8....STA n|
00000a70  65 77 0d 08 98 0c 53 54  41 20 74 65 6d 70 0d 08  |ew....STA temp..|
00000a80  a2 0e 4c 44 41 20 74 65  6d 70 2b 31 0d 08 ac 0a  |..LDA temp+1....|
00000a90  41 44 43 20 23 30 0d 08  b6 0d 53 54 41 20 6e 65  |ADC #0....STA ne|
00000aa0  77 2b 31 0d 08 c0 0e 53  54 41 20 74 65 6d 70 2b  |w+1....STA temp+|
00000ab0  31 0d 08 ca 0f 44 45 43  20 63 6f 6c 75 6d 6e 73  |1....DEC columns|
00000ac0  0d 08 d4 0d 42 4e 45 20  6c 6f 6f 70 31 0d 08 de  |....BNE loop1...|
00000ad0  07 52 54 53 0d 08 e8 05  20 0d 08 f2 09 2e 62 61  |.RTS.... .....ba|
00000ae0  63 6b 0d 08 fc 14 45 51  55 53 20 c4 34 2a 32 34  |ck....EQUS .4*24|
00000af0  2c bd 28 30 29 29 0d 09  06 05 20 0d 09 10 0d 4f  |,.(0)).... ....O|
00000b00  50 54 20 a4 64 61 74 61  0d 09 1a 05 5d 0d 09 24  |PT .data....]..$|
00000b10  05 ed 0d 09 2e 05 e1 0d  09 38 05 20 0d 09 42 0b  |.........8. ..B.|
00000b20  dd 20 a4 64 61 74 61 0d  09 4c 0d 73 70 72 69 74  |. .data..L.sprit|
00000b30  65 3d 50 25 0d 09 56 05  f7 0d 09 60 14 e3 20 69  |e=P%..V....`.. i|
00000b40  3d 31 20 b8 20 34 2a 32  34 20 88 20 34 0d 09 6a  |=1 . 4*24 . 4..j|
00000b50  08 f3 20 61 24 0d 09 74  0e 5b 20 4f 50 54 20 70  |.. a$..t.[ OPT p|
00000b60  61 73 73 0d 09 7e 12 45  51 55 44 20 a0 28 22 26  |ass..~.EQUD .("&|
00000b70  22 2b 61 24 29 0d 09 88  05 5d 0d 09 92 05 ed 0d  |"+a$)....]......|
00000b80  09 9c 09 3d 70 61 73 73  0d 09 a6 05 20 0d 09 b0  |...=pass.... ...|
00000b90  0c f4 20 53 70 72 69 74  65 0d 09 ba 0f f4 20 58  |.. Sprite..... X|
00000ba0  3d 34 2c 20 59 3d 32 34  0d 09 c4 c5 dc 20 33 30  |=4, Y=24..... 30|
00000bb0  31 30 31 30 30 2c 32 44  31 36 31 36 30 33 2c 32  |10100,2D161603,2|
00000bc0  44 32 44 32 44 32 44 2c  46 30 46 30 46 32 44 2c  |D2D2D2D,F0F0F2D,|
00000bd0  33 31 36 31 36 30 46 2c  31 30 31 30 33 2c 38 37  |316160F,10103,87|
00000be0  32 44 31 45 30 46 2c 46  30 46 30 46 38 37 2c 43  |2D1E0F,F0F0F87,C|
00000bf0  38 34 30 45 34 42 2c 46  30 45 30 43 38 34 2c 38  |840E4B,F0E0C84,8|
00000c00  37 30 46 30 46 30 46 2c  46 30 46 36 39 38 37 2c  |70F0F0F,F0F6987,|
00000c10  46 30 46 38 37 30 46 2c  46 30 46 30 46 30 46 2c  |F0F870F,F0F0F0F,|
00000c20  33 30 33 30 37 30 46 2c  46 30 37 30 33 30 33 2c  |303070F,F070303,|
00000c30  46 30 46 30 46 30 46 2c  46 30 46 30 46 30 46 2c  |F0F0F0F,F0F0F0F,|
00000c40  43 30 38 30 38 30 30 2c  46 30 45 30 45 30 43 2c  |C080800,F0E0E0C,|
00000c50  46 30 46 30 46 30 46 2c  46 30 46 30 46 30 46 2c  |F0F0F0F,F0F0F0F,|
00000c60  43 30 45 30 45 30 46 2c  38 30 38 30 43 0d ff     |C0E0E0F,8080C..|
00000c6f