� 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 mask,X
�
� (new),Y
�
.sdata
��A &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%
	Qmask=sprite+4*24
	V�
	`� i=1 � 8*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
�
� Mask
�� X=4, Y=24
��� CCEEEEFF,8888CC,0,0,CC888800,FFEEEECC,0,0,33331100,113333,0,0,0,0,CCCC8800,88CCCC,0,0,337777FF,111133,0,0,33111100,FF777733
�

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 0e 4c  44 41 20 6d 61 73 6b 2c  |op2....LDA mask,|
00000930  58 0d 07 94 0d 80 20 28  6e 65 77 29 2c 59 0d 07  |X..... (new),Y..|
00000940  9e 0a 2e 73 64 61 74 61  0d 07 a3 0e 84 41 20 26  |...sdata.....A &|
00000950  33 30 30 30 2c 58 0d 07  a8 0f 53 54 41 20 28 6e  |3000,X....STA (n|
00000960  65 77 29 2c 59 0d 07 b2  09 2e 73 6b 69 70 0d 07  |ew),Y.....skip..|
00000970  bc 07 49 4e 58 0d 07 c6  0b 4c 44 41 20 6e 65 77  |..INX....LDA new|
00000980  0d 07 d0 08 80 20 23 37  0d 07 da 0a 43 4d 50 20  |..... #7....CMP |
00000990  23 37 0d 07 e4 0f 42 45  51 20 70 62 6f 74 74 6f  |#7....BEQ pbotto|
000009a0  6d 0d 07 ee 0b 49 4e 43  20 6e 65 77 0d 07 f8 0d  |m....INC new....|
000009b0  42 4e 45 20 70 6e 65 78  74 0d 08 02 0d 49 4e 43  |BNE pnext....INC|
000009c0  20 6e 65 77 2b 31 0d 08  0c 0d 4a 4d 50 20 70 6e  | new+1....JMP pn|
000009d0  65 78 74 0d 08 16 0c 2e  70 62 6f 74 74 6f 6d 0d  |ext.....pbottom.|
000009e0  08 20 0b 4c 44 41 20 6e  65 77 0d 08 2a 0c 41 44  |. .LDA new..*.AD|
000009f0  43 20 23 26 33 38 0d 08  34 0b 53 54 41 20 6e 65  |C #&38..4.STA ne|
00000a00  77 0d 08 3e 0d 4c 44 41  20 6e 65 77 2b 31 0d 08  |w..>.LDA new+1..|
00000a10  48 0a 41 44 43 20 23 31  0d 08 52 0d 53 54 41 20  |H.ADC #1..R.STA |
00000a20  6e 65 77 2b 31 0d 08 5c  0a 2e 70 6e 65 78 74 0d  |new+1..\..pnext.|
00000a30  08 66 10 44 45 43 20 74  65 6d 70 72 6f 77 73 0d  |.f.DEC temprows.|
00000a40  08 70 0d 42 4e 45 20 6c  6f 6f 70 32 0d 08 7a 0c  |.p.BNE loop2..z.|
00000a50  4c 44 41 20 74 65 6d 70  0d 08 84 0a 41 44 43 20  |LDA temp....ADC |
00000a60  23 38 0d 08 8e 0b 53 54  41 20 6e 65 77 0d 08 98  |#8....STA new...|
00000a70  0c 53 54 41 20 74 65 6d  70 0d 08 a2 0e 4c 44 41  |.STA temp....LDA|
00000a80  20 74 65 6d 70 2b 31 0d  08 ac 0a 41 44 43 20 23  | temp+1....ADC #|
00000a90  30 0d 08 b6 0d 53 54 41  20 6e 65 77 2b 31 0d 08  |0....STA new+1..|
00000aa0  c0 0e 53 54 41 20 74 65  6d 70 2b 31 0d 08 ca 0f  |..STA temp+1....|
00000ab0  44 45 43 20 63 6f 6c 75  6d 6e 73 0d 08 d4 0d 42  |DEC columns....B|
00000ac0  4e 45 20 6c 6f 6f 70 31  0d 08 de 07 52 54 53 0d  |NE loop1....RTS.|
00000ad0  08 e8 05 20 0d 08 f2 09  2e 62 61 63 6b 0d 08 fc  |... .....back...|
00000ae0  14 45 51 55 53 20 c4 34  2a 32 34 2c bd 28 30 29  |.EQUS .4*24,.(0)|
00000af0  29 0d 09 06 05 20 0d 09  10 0d 4f 50 54 20 a4 64  |).... ....OPT .d|
00000b00  61 74 61 0d 09 1a 05 5d  0d 09 24 05 ed 0d 09 2e  |ata....]..$.....|
00000b10  05 e1 0d 09 38 05 20 0d  09 42 0b dd 20 a4 64 61  |....8. ..B.. .da|
00000b20  74 61 0d 09 4c 0d 73 70  72 69 74 65 3d 50 25 0d  |ta..L.sprite=P%.|
00000b30  09 51 14 6d 61 73 6b 3d  73 70 72 69 74 65 2b 34  |.Q.mask=sprite+4|
00000b40  2a 32 34 0d 09 56 05 f7  0d 09 60 14 e3 20 69 3d  |*24..V....`.. i=|
00000b50  31 20 b8 20 38 2a 32 34  20 88 20 34 0d 09 6a 08  |1 . 8*24 . 4..j.|
00000b60  f3 20 61 24 0d 09 74 0e  5b 20 4f 50 54 20 70 61  |. a$..t.[ OPT pa|
00000b70  73 73 0d 09 7e 12 45 51  55 44 20 a0 28 22 26 22  |ss..~.EQUD .("&"|
00000b80  2b 61 24 29 0d 09 88 05  5d 0d 09 92 05 ed 0d 09  |+a$)....].......|
00000b90  9c 09 3d 70 61 73 73 0d  09 a6 05 20 0d 09 b0 0c  |..=pass.... ....|
00000ba0  f4 20 53 70 72 69 74 65  0d 09 ba 0f f4 20 58 3d  |. Sprite..... X=|
00000bb0  34 2c 20 59 3d 32 34 0d  09 c4 c5 dc 20 33 30 31  |4, Y=24..... 301|
00000bc0  30 31 30 30 2c 32 44 31  36 31 36 30 33 2c 32 44  |0100,2D161603,2D|
00000bd0  32 44 32 44 32 44 2c 46  30 46 30 46 32 44 2c 33  |2D2D2D,F0F0F2D,3|
00000be0  31 36 31 36 30 46 2c 31  30 31 30 33 2c 38 37 32  |16160F,10103,872|
00000bf0  44 31 45 30 46 2c 46 30  46 30 46 38 37 2c 43 38  |D1E0F,F0F0F87,C8|
00000c00  34 30 45 34 42 2c 46 30  45 30 43 38 34 2c 38 37  |40E4B,F0E0C84,87|
00000c10  30 46 30 46 30 46 2c 46  30 46 36 39 38 37 2c 46  |0F0F0F,F0F6987,F|
00000c20  30 46 38 37 30 46 2c 46  30 46 30 46 30 46 2c 33  |0F870F,F0F0F0F,3|
00000c30  30 33 30 37 30 46 2c 46  30 37 30 33 30 33 2c 46  |03070F,F070303,F|
00000c40  30 46 30 46 30 46 2c 46  30 46 30 46 30 46 2c 43  |0F0F0F,F0F0F0F,C|
00000c50  30 38 30 38 30 30 2c 46  30 45 30 45 30 43 2c 46  |080800,F0E0E0C,F|
00000c60  30 46 30 46 30 46 2c 46  30 46 30 46 30 46 2c 43  |0F0F0F,F0F0F0F,C|
00000c70  30 45 30 45 30 46 2c 38  30 38 30 43 0d 0f a0 0a  |0E0E0F,8080C....|
00000c80  f4 20 4d 61 73 6b 0d 0f  aa 0f f4 20 58 3d 34 2c  |. Mask..... X=4,|
00000c90  20 59 3d 32 34 0d 0f b4  81 dc 20 43 43 45 45 45  | Y=24..... CCEEE|
00000ca0  45 46 46 2c 38 38 38 38  43 43 2c 30 2c 30 2c 43  |EFF,8888CC,0,0,C|
00000cb0  43 38 38 38 38 30 30 2c  46 46 45 45 45 45 43 43  |C888800,FFEEEECC|
00000cc0  2c 30 2c 30 2c 33 33 33  33 31 31 30 30 2c 31 31  |,0,0,33331100,11|
00000cd0  33 33 33 33 2c 30 2c 30  2c 30 2c 30 2c 43 43 43  |3333,0,0,0,0,CCC|
00000ce0  43 38 38 30 30 2c 38 38  43 43 43 43 2c 30 2c 30  |C8800,88CCCC,0,0|
00000cf0  2c 33 33 37 37 37 37 46  46 2c 31 31 31 31 33 33  |,337777FF,111133|
00000d00  2c 30 2c 30 2c 33 33 31  31 31 31 30 30 2c 46 46  |,0,0,33111100,FF|
00000d10  37 37 37 37 33 33 0d ff                           |777733..|
00000d18