� 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
�
.sdata
�LDA &3000,X
�BEQ skip
�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 0a 2e  73 64 61 74 61 0d 07 94  |op2.....sdata...|
00000930  0f 4c 44 41 20 26 33 30  30 30 2c 58 0d 07 9e 0c  |.LDA &3000,X....|
00000940  42 45 51 20 73 6b 69 70  0d 07 a8 0f 53 54 41 20  |BEQ skip....STA |
00000950  28 6e 65 77 29 2c 59 0d  07 b2 09 2e 73 6b 69 70  |(new),Y.....skip|
00000960  0d 07 bc 07 49 4e 58 0d  07 c6 0b 4c 44 41 20 6e  |....INX....LDA n|
00000970  65 77 0d 07 d0 08 80 20  23 37 0d 07 da 0a 43 4d  |ew..... #7....CM|
00000980  50 20 23 37 0d 07 e4 0f  42 45 51 20 70 62 6f 74  |P #7....BEQ pbot|
00000990  74 6f 6d 0d 07 ee 0b 49  4e 43 20 6e 65 77 0d 07  |tom....INC new..|
000009a0  f8 0d 42 4e 45 20 70 6e  65 78 74 0d 08 02 0d 49  |..BNE pnext....I|
000009b0  4e 43 20 6e 65 77 2b 31  0d 08 0c 0d 4a 4d 50 20  |NC new+1....JMP |
000009c0  70 6e 65 78 74 0d 08 16  0c 2e 70 62 6f 74 74 6f  |pnext.....pbotto|
000009d0  6d 0d 08 20 0b 4c 44 41  20 6e 65 77 0d 08 2a 0c  |m.. .LDA new..*.|
000009e0  41 44 43 20 23 26 33 38  0d 08 34 0b 53 54 41 20  |ADC #&38..4.STA |
000009f0  6e 65 77 0d 08 3e 0d 4c  44 41 20 6e 65 77 2b 31  |new..>.LDA new+1|
00000a00  0d 08 48 0a 41 44 43 20  23 31 0d 08 52 0d 53 54  |..H.ADC #1..R.ST|
00000a10  41 20 6e 65 77 2b 31 0d  08 5c 0a 2e 70 6e 65 78  |A new+1..\..pnex|
00000a20  74 0d 08 66 10 44 45 43  20 74 65 6d 70 72 6f 77  |t..f.DEC temprow|
00000a30  73 0d 08 70 0d 42 4e 45  20 6c 6f 6f 70 32 0d 08  |s..p.BNE loop2..|
00000a40  7a 0c 4c 44 41 20 74 65  6d 70 0d 08 84 0a 41 44  |z.LDA temp....AD|
00000a50  43 20 23 38 0d 08 8e 0b  53 54 41 20 6e 65 77 0d  |C #8....STA new.|
00000a60  08 98 0c 53 54 41 20 74  65 6d 70 0d 08 a2 0e 4c  |...STA temp....L|
00000a70  44 41 20 74 65 6d 70 2b  31 0d 08 ac 0a 41 44 43  |DA temp+1....ADC|
00000a80  20 23 30 0d 08 b6 0d 53  54 41 20 6e 65 77 2b 31  | #0....STA new+1|
00000a90  0d 08 c0 0e 53 54 41 20  74 65 6d 70 2b 31 0d 08  |....STA temp+1..|
00000aa0  ca 0f 44 45 43 20 63 6f  6c 75 6d 6e 73 0d 08 d4  |..DEC columns...|
00000ab0  0d 42 4e 45 20 6c 6f 6f  70 31 0d 08 de 07 52 54  |.BNE loop1....RT|
00000ac0  53 0d 08 e8 05 20 0d 08  f2 09 2e 62 61 63 6b 0d  |S.... .....back.|
00000ad0  08 fc 14 45 51 55 53 20  c4 34 2a 32 34 2c bd 28  |...EQUS .4*24,.(|
00000ae0  30 29 29 0d 09 06 05 20  0d 09 10 0d 4f 50 54 20  |0)).... ....OPT |
00000af0  a4 64 61 74 61 0d 09 1a  05 5d 0d 09 24 05 ed 0d  |.data....]..$...|
00000b00  09 2e 05 e1 0d 09 38 05  20 0d 09 42 0b dd 20 a4  |......8. ..B.. .|
00000b10  64 61 74 61 0d 09 4c 0d  73 70 72 69 74 65 3d 50  |data..L.sprite=P|
00000b20  25 0d 09 56 05 f7 0d 09  60 14 e3 20 69 3d 31 20  |%..V....`.. i=1 |
00000b30  b8 20 34 2a 32 34 20 88  20 34 0d 09 6a 08 f3 20  |. 4*24 . 4..j.. |
00000b40  61 24 0d 09 74 0e 5b 20  4f 50 54 20 70 61 73 73  |a$..t.[ OPT pass|
00000b50  0d 09 7e 12 45 51 55 44  20 a0 28 22 26 22 2b 61  |..~.EQUD .("&"+a|
00000b60  24 29 0d 09 88 05 5d 0d  09 92 05 ed 0d 09 9c 09  |$)....].........|
00000b70  3d 70 61 73 73 0d 09 a6  05 20 0d 09 b0 0c f4 20  |=pass.... ..... |
00000b80  53 70 72 69 74 65 0d 09  ba 0f f4 20 58 3d 34 2c  |Sprite..... X=4,|
00000b90  20 59 3d 32 34 0d 09 c4  c5 dc 20 33 30 31 30 31  | Y=24..... 30101|
00000ba0  30 30 2c 32 44 31 36 31  36 30 33 2c 32 44 32 44  |00,2D161603,2D2D|
00000bb0  32 44 32 44 2c 46 30 46  30 46 32 44 2c 33 31 36  |2D2D,F0F0F2D,316|
00000bc0  31 36 30 46 2c 31 30 31  30 33 2c 38 37 32 44 31  |160F,10103,872D1|
00000bd0  45 30 46 2c 46 30 46 30  46 38 37 2c 43 38 34 30  |E0F,F0F0F87,C840|
00000be0  45 34 42 2c 46 30 45 30  43 38 34 2c 38 37 30 46  |E4B,F0E0C84,870F|
00000bf0  30 46 30 46 2c 46 30 46  36 39 38 37 2c 46 30 46  |0F0F,F0F6987,F0F|
00000c00  38 37 30 46 2c 46 30 46  30 46 30 46 2c 33 30 33  |870F,F0F0F0F,303|
00000c10  30 37 30 46 2c 46 30 37  30 33 30 33 2c 46 30 46  |070F,F070303,F0F|
00000c20  30 46 30 46 2c 46 30 46  30 46 30 46 2c 43 30 38  |0F0F,F0F0F0F,C08|
00000c30  30 38 30 30 2c 46 30 45  30 45 30 43 2c 46 30 46  |0800,F0E0E0C,F0F|
00000c40  30 46 30 46 2c 46 30 46  30 46 30 46 2c 43 30 45  |0F0F,F0F0F0F,C0E|
00000c50  30 45 30 46 2c 38 30 38  30 43 0d ff              |0E0F,8080C..|
00000c5c