� Simple Print
� By R.A.Waddilove
� (c) Electron User

�assemble
� 5
(
� &900
2�
< 
F� �assemble
Pnew=&70
Zold=&72
dtemp=&74
n
temp1=&76
xrows=&78
�temprows=&79
�columns=&7A
�� pass=0 � 2 � 2
�P%=&900
�[ OPT pass
� 
�\put sprite on screen
�LDA #&5D00 �256
�STA new
�LDA #&5D00 �256
�
STA new+1
�LDA #sprite �256
�STA newdata+1

LDA #sprite �256

STA newdata+2


LDX #4

"LDY #32

,JSR put

6 

@\wait for key

J
JSR &FFE0

T 

^\move sprite

hLDA #&5D20 �256

rSTA new

|LDA #&5D20 �256

�
STA new+1

�LDA #sprite �256

�STA newdata+1

�LDA #sprite �256

�STA newdata+2

�\old screen address

�LDA #&5D00 �256

�STA old

�LDA #&5D00 �256

�
STA old+1

�LDA #sprite �256

�STA olddata+1

�LDA #sprite �256
STA olddata+2

LDX #4
LDY #32
&
JSR print
0RTS
: 
D.put
NLDA #&80
XSTA old
b
STA old+1
l 
v
.print
�STX columns
�STY rows
�
LDX #0
�
LDY #0
�LDA new
�
STA temp1
�
LDA new+1
�STA temp1+1
�LDA old
�STA temp
�
LDA old+1
�STA temp+1
�
.loop1
LDA rows
STA temprows

.loop2
 .newdata
*LDA &3000,X
4
� (new),Y
>STA (new),Y
H.olddata
RLDA &3000,X
\
� (old),Y
fSTA (old),Y
pINX
zLDA old
�� #7
�
CMP #7
�BEQ bottom1
�INC old
�
BNE next1
�
INC old+1
�
JMP next1
�.bottom1
�LDA old
�ADC #&38
�STA old
�
LDA old+1
�
ADC #1

STA old+1

.next1
LDA new
$� #7
.
CMP #7
8BEQ bottom2
BINC new
L
BNE next2
V
INC new+1
`
JMP next2
j.bottom2
tLDA new
~ADC #&38
�STA new
�
LDA new+1
�
ADC #1
�
STA new+1
�
.next2
�DEC temprows
�
BNE loop2
�
LDA temp1
�
ADC #8
�STA new
�
STA temp1
�LDA temp1+1

ADC #0


STA new+1
STA temp1+1
LDA temp
(
ADC #8
2STA old
<STA temp
FLDA temp+1
P
ADC #0
Z
STA old+1
dSTA temp+1
nDEC columns
x
BNE loop1
�RTS
� 
�.sprite
�]
��
�� i=0 � 127
�	� ?P%
�P%=P%+1
��
��
� 
�� SPRITE
�� X=4/Y=32
�� 0,0,0,0,0,0,0,0,0,0,0,0,17,17,0,0,17,17,17,0,0,0,0,0,0,1,1,3,207,207,238,119,3,7,15,45,60,60,60,52,48,48,255,255,85,85,221,221,102,102,186,184,253,15,15,14,14,13,13,11,9,0,17,0,0,8,12,192,96,192
�� 192,128,0,0,0,136,136,204,204,204,204,204,136,136,0,0,0,0,8,12,12,14,63,127,238,204,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,136,0,0,0
�

00000000  0d 00 0a 12 f4 20 53 69  6d 70 6c 65 20 50 72 69  |..... Simple Pri|
00000010  6e 74 0d 00 0c 16 f4 20  42 79 20 52 2e 41 2e 57  |nt..... By R.A.W|
00000020  61 64 64 69 6c 6f 76 65  0d 00 0e 17 f4 20 28 63  |addilove..... (c|
00000030  29 20 45 6c 65 63 74 72  6f 6e 20 55 73 65 72 0d  |) Electron User.|
00000040  00 14 0d f2 61 73 73 65  6d 62 6c 65 0d 00 1e 07  |....assemble....|
00000050  eb 20 35 0d 00 28 0a d6  20 26 39 30 30 0d 00 32  |. 5..(.. &900..2|
00000060  05 e0 0d 00 3c 05 20 0d  00 46 0f dd 20 f2 61 73  |....<. ..F.. .as|
00000070  73 65 6d 62 6c 65 0d 00  50 0b 6e 65 77 3d 26 37  |semble..P.new=&7|
00000080  30 0d 00 5a 0b 6f 6c 64  3d 26 37 32 0d 00 64 0c  |0..Z.old=&72..d.|
00000090  74 65 6d 70 3d 26 37 34  0d 00 6e 0d 74 65 6d 70  |temp=&74..n.temp|
000000a0  31 3d 26 37 36 0d 00 78  0c 72 6f 77 73 3d 26 37  |1=&76..x.rows=&7|
000000b0  38 0d 00 82 10 74 65 6d  70 72 6f 77 73 3d 26 37  |8....temprows=&7|
000000c0  39 0d 00 8c 0f 63 6f 6c  75 6d 6e 73 3d 26 37 41  |9....columns=&7A|
000000d0  0d 00 96 14 e3 20 70 61  73 73 3d 30 20 b8 20 32  |..... pass=0 . 2|
000000e0  20 88 20 32 0d 00 a0 0b  50 25 3d 26 39 30 30 0d  | . 2....P%=&900.|
000000f0  00 aa 0e 5b 20 4f 50 54  20 70 61 73 73 0d 00 b4  |...[ OPT pass...|
00000100  05 20 0d 00 be 19 5c 70  75 74 20 73 70 72 69 74  |. ....\put sprit|
00000110  65 20 6f 6e 20 73 63 72  65 65 6e 0d 00 c8 13 4c  |e on screen....L|
00000120  44 41 20 23 26 35 44 30  30 20 83 32 35 36 0d 00  |DA #&5D00 .256..|
00000130  d2 0b 53 54 41 20 6e 65  77 0d 00 dc 13 4c 44 41  |..STA new....LDA|
00000140  20 23 26 35 44 30 30 20  81 32 35 36 0d 00 e6 0d  | #&5D00 .256....|
00000150  53 54 41 20 6e 65 77 2b  31 0d 00 f0 14 4c 44 41  |STA new+1....LDA|
00000160  20 23 73 70 72 69 74 65  20 83 32 35 36 0d 00 fa  | #sprite .256...|
00000170  11 53 54 41 20 6e 65 77  64 61 74 61 2b 31 0d 01  |.STA newdata+1..|
00000180  04 14 4c 44 41 20 23 73  70 72 69 74 65 20 81 32  |..LDA #sprite .2|
00000190  35 36 0d 01 0e 11 53 54  41 20 6e 65 77 64 61 74  |56....STA newdat|
000001a0  61 2b 32 0d 01 18 0a 4c  44 58 20 23 34 0d 01 22  |a+2....LDX #4.."|
000001b0  0b 4c 44 59 20 23 33 32  0d 01 2c 0b 4a 53 52 20  |.LDY #32..,.JSR |
000001c0  70 75 74 0d 01 36 05 20  0d 01 40 11 5c 77 61 69  |put..6. ..@.\wai|
000001d0  74 20 66 6f 72 20 6b 65  79 0d 01 4a 0d 4a 53 52  |t for key..J.JSR|
000001e0  20 26 46 46 45 30 0d 01  54 05 20 0d 01 5e 10 5c  | &FFE0..T. ..^.\|
000001f0  6d 6f 76 65 20 73 70 72  69 74 65 0d 01 68 13 4c  |move sprite..h.L|
00000200  44 41 20 23 26 35 44 32  30 20 83 32 35 36 0d 01  |DA #&5D20 .256..|
00000210  72 0b 53 54 41 20 6e 65  77 0d 01 7c 13 4c 44 41  |r.STA new..|.LDA|
00000220  20 23 26 35 44 32 30 20  81 32 35 36 0d 01 86 0d  | #&5D20 .256....|
00000230  53 54 41 20 6e 65 77 2b  31 0d 01 90 14 4c 44 41  |STA new+1....LDA|
00000240  20 23 73 70 72 69 74 65  20 83 32 35 36 0d 01 9a  | #sprite .256...|
00000250  11 53 54 41 20 6e 65 77  64 61 74 61 2b 31 0d 01  |.STA newdata+1..|
00000260  a4 14 4c 44 41 20 23 73  70 72 69 74 65 20 81 32  |..LDA #sprite .2|
00000270  35 36 0d 01 ae 11 53 54  41 20 6e 65 77 64 61 74  |56....STA newdat|
00000280  61 2b 32 0d 01 b8 17 5c  6f 6c 64 20 73 63 72 65  |a+2....\old scre|
00000290  65 6e 20 61 64 64 72 65  73 73 0d 01 c2 13 4c 44  |en address....LD|
000002a0  41 20 23 26 35 44 30 30  20 83 32 35 36 0d 01 cc  |A #&5D00 .256...|
000002b0  0b 53 54 41 20 6f 6c 64  0d 01 d6 13 4c 44 41 20  |.STA old....LDA |
000002c0  23 26 35 44 30 30 20 81  32 35 36 0d 01 e0 0d 53  |#&5D00 .256....S|
000002d0  54 41 20 6f 6c 64 2b 31  0d 01 ea 14 4c 44 41 20  |TA old+1....LDA |
000002e0  23 73 70 72 69 74 65 20  83 32 35 36 0d 01 f4 11  |#sprite .256....|
000002f0  53 54 41 20 6f 6c 64 64  61 74 61 2b 31 0d 01 fe  |STA olddata+1...|
00000300  14 4c 44 41 20 23 73 70  72 69 74 65 20 81 32 35  |.LDA #sprite .25|
00000310  36 0d 02 08 11 53 54 41  20 6f 6c 64 64 61 74 61  |6....STA olddata|
00000320  2b 32 0d 02 12 0a 4c 44  58 20 23 34 0d 02 1c 0b  |+2....LDX #4....|
00000330  4c 44 59 20 23 33 32 0d  02 26 0d 4a 53 52 20 70  |LDY #32..&.JSR p|
00000340  72 69 6e 74 0d 02 30 07  52 54 53 0d 02 3a 05 20  |rint..0.RTS..:. |
00000350  0d 02 44 08 2e 70 75 74  0d 02 4e 0c 4c 44 41 20  |..D..put..N.LDA |
00000360  23 26 38 30 0d 02 58 0b  53 54 41 20 6f 6c 64 0d  |#&80..X.STA old.|
00000370  02 62 0d 53 54 41 20 6f  6c 64 2b 31 0d 02 6c 05  |.b.STA old+1..l.|
00000380  20 0d 02 76 0a 2e 70 72  69 6e 74 0d 02 80 0f 53  | ..v..print....S|
00000390  54 58 20 63 6f 6c 75 6d  6e 73 0d 02 8a 0c 53 54  |TX columns....ST|
000003a0  59 20 72 6f 77 73 0d 02  94 0a 4c 44 58 20 23 30  |Y rows....LDX #0|
000003b0  0d 02 9e 0a 4c 44 59 20  23 30 0d 02 a8 0b 4c 44  |....LDY #0....LD|
000003c0  41 20 6e 65 77 0d 02 b2  0d 53 54 41 20 74 65 6d  |A new....STA tem|
000003d0  70 31 0d 02 bc 0d 4c 44  41 20 6e 65 77 2b 31 0d  |p1....LDA new+1.|
000003e0  02 c6 0f 53 54 41 20 74  65 6d 70 31 2b 31 0d 02  |...STA temp1+1..|
000003f0  d0 0b 4c 44 41 20 6f 6c  64 0d 02 da 0c 53 54 41  |..LDA old....STA|
00000400  20 74 65 6d 70 0d 02 e4  0d 4c 44 41 20 6f 6c 64  | temp....LDA old|
00000410  2b 31 0d 02 ee 0e 53 54  41 20 74 65 6d 70 2b 31  |+1....STA temp+1|
00000420  0d 02 f8 0a 2e 6c 6f 6f  70 31 0d 03 02 0c 4c 44  |.....loop1....LD|
00000430  41 20 72 6f 77 73 0d 03  0c 10 53 54 41 20 74 65  |A rows....STA te|
00000440  6d 70 72 6f 77 73 0d 03  16 0a 2e 6c 6f 6f 70 32  |mprows.....loop2|
00000450  0d 03 20 0c 2e 6e 65 77  64 61 74 61 0d 03 2a 0f  |.. ..newdata..*.|
00000460  4c 44 41 20 26 33 30 30  30 2c 58 0d 03 34 0d 82  |LDA &3000,X..4..|
00000470  20 28 6e 65 77 29 2c 59  0d 03 3e 0f 53 54 41 20  | (new),Y..>.STA |
00000480  28 6e 65 77 29 2c 59 0d  03 48 0c 2e 6f 6c 64 64  |(new),Y..H..oldd|
00000490  61 74 61 0d 03 52 0f 4c  44 41 20 26 33 30 30 30  |ata..R.LDA &3000|
000004a0  2c 58 0d 03 5c 0d 82 20  28 6f 6c 64 29 2c 59 0d  |,X..\.. (old),Y.|
000004b0  03 66 0f 53 54 41 20 28  6f 6c 64 29 2c 59 0d 03  |.f.STA (old),Y..|
000004c0  70 07 49 4e 58 0d 03 7a  0b 4c 44 41 20 6f 6c 64  |p.INX..z.LDA old|
000004d0  0d 03 84 08 80 20 23 37  0d 03 8e 0a 43 4d 50 20  |..... #7....CMP |
000004e0  23 37 0d 03 98 0f 42 45  51 20 62 6f 74 74 6f 6d  |#7....BEQ bottom|
000004f0  31 0d 03 a2 0b 49 4e 43  20 6f 6c 64 0d 03 ac 0d  |1....INC old....|
00000500  42 4e 45 20 6e 65 78 74  31 0d 03 b6 0d 49 4e 43  |BNE next1....INC|
00000510  20 6f 6c 64 2b 31 0d 03  c0 0d 4a 4d 50 20 6e 65  | old+1....JMP ne|
00000520  78 74 31 0d 03 ca 0c 2e  62 6f 74 74 6f 6d 31 0d  |xt1.....bottom1.|
00000530  03 d4 0b 4c 44 41 20 6f  6c 64 0d 03 de 0c 41 44  |...LDA old....AD|
00000540  43 20 23 26 33 38 0d 03  e8 0b 53 54 41 20 6f 6c  |C #&38....STA ol|
00000550  64 0d 03 f2 0d 4c 44 41  20 6f 6c 64 2b 31 0d 03  |d....LDA old+1..|
00000560  fc 0a 41 44 43 20 23 31  0d 04 06 0d 53 54 41 20  |..ADC #1....STA |
00000570  6f 6c 64 2b 31 0d 04 10  0a 2e 6e 65 78 74 31 0d  |old+1.....next1.|
00000580  04 1a 0b 4c 44 41 20 6e  65 77 0d 04 24 08 80 20  |...LDA new..$.. |
00000590  23 37 0d 04 2e 0a 43 4d  50 20 23 37 0d 04 38 0f  |#7....CMP #7..8.|
000005a0  42 45 51 20 62 6f 74 74  6f 6d 32 0d 04 42 0b 49  |BEQ bottom2..B.I|
000005b0  4e 43 20 6e 65 77 0d 04  4c 0d 42 4e 45 20 6e 65  |NC new..L.BNE ne|
000005c0  78 74 32 0d 04 56 0d 49  4e 43 20 6e 65 77 2b 31  |xt2..V.INC new+1|
000005d0  0d 04 60 0d 4a 4d 50 20  6e 65 78 74 32 0d 04 6a  |..`.JMP next2..j|
000005e0  0c 2e 62 6f 74 74 6f 6d  32 0d 04 74 0b 4c 44 41  |..bottom2..t.LDA|
000005f0  20 6e 65 77 0d 04 7e 0c  41 44 43 20 23 26 33 38  | new..~.ADC #&38|
00000600  0d 04 88 0b 53 54 41 20  6e 65 77 0d 04 92 0d 4c  |....STA new....L|
00000610  44 41 20 6e 65 77 2b 31  0d 04 9c 0a 41 44 43 20  |DA new+1....ADC |
00000620  23 31 0d 04 a6 0d 53 54  41 20 6e 65 77 2b 31 0d  |#1....STA new+1.|
00000630  04 b0 0a 2e 6e 65 78 74  32 0d 04 ba 10 44 45 43  |....next2....DEC|
00000640  20 74 65 6d 70 72 6f 77  73 0d 04 c4 0d 42 4e 45  | temprows....BNE|
00000650  20 6c 6f 6f 70 32 0d 04  ce 0d 4c 44 41 20 74 65  | loop2....LDA te|
00000660  6d 70 31 0d 04 d8 0a 41  44 43 20 23 38 0d 04 e2  |mp1....ADC #8...|
00000670  0b 53 54 41 20 6e 65 77  0d 04 ec 0d 53 54 41 20  |.STA new....STA |
00000680  74 65 6d 70 31 0d 04 f6  0f 4c 44 41 20 74 65 6d  |temp1....LDA tem|
00000690  70 31 2b 31 0d 05 00 0a  41 44 43 20 23 30 0d 05  |p1+1....ADC #0..|
000006a0  0a 0d 53 54 41 20 6e 65  77 2b 31 0d 05 14 0f 53  |..STA new+1....S|
000006b0  54 41 20 74 65 6d 70 31  2b 31 0d 05 1e 0c 4c 44  |TA temp1+1....LD|
000006c0  41 20 74 65 6d 70 0d 05  28 0a 41 44 43 20 23 38  |A temp..(.ADC #8|
000006d0  0d 05 32 0b 53 54 41 20  6f 6c 64 0d 05 3c 0c 53  |..2.STA old..<.S|
000006e0  54 41 20 74 65 6d 70 0d  05 46 0e 4c 44 41 20 74  |TA temp..F.LDA t|
000006f0  65 6d 70 2b 31 0d 05 50  0a 41 44 43 20 23 30 0d  |emp+1..P.ADC #0.|
00000700  05 5a 0d 53 54 41 20 6f  6c 64 2b 31 0d 05 64 0e  |.Z.STA old+1..d.|
00000710  53 54 41 20 74 65 6d 70  2b 31 0d 05 6e 0f 44 45  |STA temp+1..n.DE|
00000720  43 20 63 6f 6c 75 6d 6e  73 0d 05 78 0d 42 4e 45  |C columns..x.BNE|
00000730  20 6c 6f 6f 70 31 0d 05  82 07 52 54 53 0d 05 8c  | loop1....RTS...|
00000740  05 20 0d 05 96 0b 2e 73  70 72 69 74 65 0d 05 a0  |. .....sprite...|
00000750  05 5d 0d 05 aa 05 ed 0d  05 b4 0f e3 20 69 3d 30  |.].......... i=0|
00000760  20 b8 20 31 32 37 0d 05  be 09 f3 20 3f 50 25 0d  | . 127..... ?P%.|
00000770  05 c8 0b 50 25 3d 50 25  2b 31 0d 05 d2 05 ed 0d  |...P%=P%+1......|
00000780  05 dc 05 e1 0d 05 e6 05  20 0d 05 f0 0c f4 20 53  |........ ..... S|
00000790  50 52 49 54 45 0d 05 fa  0e f4 20 58 3d 34 2f 59  |PRITE..... X=4/Y|
000007a0  3d 33 32 0d 06 04 c8 dc  20 30 2c 30 2c 30 2c 30  |=32..... 0,0,0,0|
000007b0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
000007c0  2c 31 37 2c 31 37 2c 30  2c 30 2c 31 37 2c 31 37  |,17,17,0,0,17,17|
000007d0  2c 31 37 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |,17,0,0,0,0,0,0,|
000007e0  31 2c 31 2c 33 2c 32 30  37 2c 32 30 37 2c 32 33  |1,1,3,207,207,23|
000007f0  38 2c 31 31 39 2c 33 2c  37 2c 31 35 2c 34 35 2c  |8,119,3,7,15,45,|
00000800  36 30 2c 36 30 2c 36 30  2c 35 32 2c 34 38 2c 34  |60,60,60,52,48,4|
00000810  38 2c 32 35 35 2c 32 35  35 2c 38 35 2c 38 35 2c  |8,255,255,85,85,|
00000820  32 32 31 2c 32 32 31 2c  31 30 32 2c 31 30 32 2c  |221,221,102,102,|
00000830  31 38 36 2c 31 38 34 2c  32 35 33 2c 31 35 2c 31  |186,184,253,15,1|
00000840  35 2c 31 34 2c 31 34 2c  31 33 2c 31 33 2c 31 31  |5,14,14,13,13,11|
00000850  2c 39 2c 30 2c 31 37 2c  30 2c 30 2c 38 2c 31 32  |,9,0,17,0,0,8,12|
00000860  2c 31 39 32 2c 39 36 2c  31 39 32 0d 06 0e 9b dc  |,192,96,192.....|
00000870  20 31 39 32 2c 31 32 38  2c 30 2c 30 2c 30 2c 31  | 192,128,0,0,0,1|
00000880  33 36 2c 31 33 36 2c 32  30 34 2c 32 30 34 2c 32  |36,136,204,204,2|
00000890  30 34 2c 32 30 34 2c 32  30 34 2c 31 33 36 2c 31  |04,204,204,136,1|
000008a0  33 36 2c 30 2c 30 2c 30  2c 30 2c 38 2c 31 32 2c  |36,0,0,0,0,8,12,|
000008b0  31 32 2c 31 34 2c 36 33  2c 31 32 37 2c 32 33 38  |12,14,63,127,238|
000008c0  2c 32 30 34 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,204,0,0,0,0,0,0|
000008d0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
*
000008f0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 31 33 36  |,0,0,0,0,0,0,136|
00000900  2c 30 2c 30 2c 30 0d ff                           |,0,0,0..|
00000908