�   Listing I
 �   By Glenn Marshall
 �   (C) The Micro User
( :
2 � �<>&2100 � �
< :
F � 3
P � 23,0,9,7,0,0,0,0,0,0
Z � 23,0,4,38,0,0,0,0,0,0
d � 23,0,7,31,0,0,0,0,0,0
n :
x xlb=&50:xhb=&51
� ylb=&52:yhb=&53
� X1=&54:X2=&55
� Y1=&56:Y2=&57
� color=&58
� :
� � code=0 � 2 � 2
�
 P%=&1900
� [OPT code
� :
� .screen
� LDA #255:STA color
� LDA #0:STA X1:STA Y1
�# LDA #80:STA X2:LDA #200:STA Y2

 JSR sprite

 RTS

 :

" .sprite

, LDY Y2

6 .sprite_yloop

@ LDA X1:PHA

J TYA:PHA

T LDY #0

^ LDX X2

h .sprite_xloop

r JSR position

| LDA color:STA (ylb),Y

� INC X1

� DEX:BNE sprite_xloop

� INC Y1

� PLA:TAY

� PLA:STA X1

� DEY:BNE sprite_yloop

� rts

� :

� .position

� LDA #0:STA xhb

� LDA X1:ASL A:ROL xhb:ASL A

�" ROL xhb:ASL A:ROL xhb:STA xlb

� LDA &7:CLC:ADC xhb:STA xhb
 LDA #0:STA ylb
 LDA Y1:� #&F8
 LSR A:LSR A:STA yhb
&$ LSR A:LSR A:ROR ylb:CLC:ADC yhb
0 ADC xhb:STA yhb
:$ LDA Y1:� #7:CLC:ADC ylb:ADC xlb
D# STA ylb:LDA #0:ADC yhb:STA yhb
N rts
X :
b ]
l � code
v :
� �=0
�
 � screen
� � �
�

00000000  0d 00 0a 12 20 f4 20 20  20 4c 69 73 74 69 6e 67  |.... .   Listing|
00000010  20 49 0d 00 14 1a 20 f4  20 20 20 42 79 20 47 6c  | I.... .   By Gl|
00000020  65 6e 6e 20 4d 61 72 73  68 61 6c 6c 0d 00 1e 1b  |enn Marshall....|
00000030  20 f4 20 20 20 28 43 29  20 54 68 65 20 4d 69 63  | .   (C) The Mic|
00000040  72 6f 20 55 73 65 72 0d  00 28 06 20 3a 0d 00 32  |ro User..(. :..2|
00000050  13 20 e7 20 90 3c 3e 26  32 31 30 30 20 8c 20 e0  |. . .<>&2100 . .|
00000060  0d 00 3c 06 20 3a 0d 00  46 08 20 eb 20 33 0d 00  |..<. :..F. . 3..|
00000070  50 1b 20 ef 20 32 33 2c  30 2c 39 2c 37 2c 30 2c  |P. . 23,0,9,7,0,|
00000080  30 2c 30 2c 30 2c 30 2c  30 0d 00 5a 1c 20 ef 20  |0,0,0,0,0..Z. . |
00000090  32 33 2c 30 2c 34 2c 33  38 2c 30 2c 30 2c 30 2c  |23,0,4,38,0,0,0,|
000000a0  30 2c 30 2c 30 0d 00 64  1c 20 ef 20 32 33 2c 30  |0,0,0..d. . 23,0|
000000b0  2c 37 2c 33 31 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |,7,31,0,0,0,0,0,|
000000c0  30 0d 00 6e 06 20 3a 0d  00 78 14 20 78 6c 62 3d  |0..n. :..x. xlb=|
000000d0  26 35 30 3a 78 68 62 3d  26 35 31 0d 00 82 14 20  |&50:xhb=&51.... |
000000e0  79 6c 62 3d 26 35 32 3a  79 68 62 3d 26 35 33 0d  |ylb=&52:yhb=&53.|
000000f0  00 8c 12 20 58 31 3d 26  35 34 3a 58 32 3d 26 35  |... X1=&54:X2=&5|
00000100  35 0d 00 96 12 20 59 31  3d 26 35 36 3a 59 32 3d  |5.... Y1=&56:Y2=|
00000110  26 35 37 0d 00 a0 0e 20  63 6f 6c 6f 72 3d 26 35  |&57.... color=&5|
00000120  38 0d 00 aa 06 20 3a 0d  00 b4 15 20 e3 20 63 6f  |8.... :.... . co|
00000130  64 65 3d 30 20 b8 20 32  20 88 20 32 0d 00 be 0d  |de=0 . 2 . 2....|
00000140  20 50 25 3d 26 31 39 30  30 0d 00 c8 0e 20 5b 4f  | P%=&1900.... [O|
00000150  50 54 20 63 6f 64 65 0d  00 d2 06 20 3a 0d 00 dc  |PT code.... :...|
00000160  0c 20 2e 73 63 72 65 65  6e 0d 00 e6 17 20 4c 44  |. .screen.... LD|
00000170  41 20 23 32 35 35 3a 53  54 41 20 63 6f 6c 6f 72  |A #255:STA color|
00000180  0d 00 f0 19 20 4c 44 41  20 23 30 3a 53 54 41 20  |.... LDA #0:STA |
00000190  58 31 3a 53 54 41 20 59  31 0d 00 fa 23 20 4c 44  |X1:STA Y1...# LD|
000001a0  41 20 23 38 30 3a 53 54  41 20 58 32 3a 4c 44 41  |A #80:STA X2:LDA|
000001b0  20 23 32 30 30 3a 53 54  41 20 59 32 0d 01 04 0f  | #200:STA Y2....|
000001c0  20 4a 53 52 20 73 70 72  69 74 65 0d 01 0e 08 20  | JSR sprite.... |
000001d0  52 54 53 0d 01 18 06 20  3a 0d 01 22 0c 20 2e 73  |RTS.... :..". .s|
000001e0  70 72 69 74 65 0d 01 2c  0b 20 4c 44 59 20 59 32  |prite..,. LDY Y2|
000001f0  0d 01 36 12 20 2e 73 70  72 69 74 65 5f 79 6c 6f  |..6. .sprite_ylo|
00000200  6f 70 0d 01 40 0f 20 4c  44 41 20 58 31 3a 50 48  |op..@. LDA X1:PH|
00000210  41 0d 01 4a 0c 20 54 59  41 3a 50 48 41 0d 01 54  |A..J. TYA:PHA..T|
00000220  0b 20 4c 44 59 20 23 30  0d 01 5e 0b 20 4c 44 58  |. LDY #0..^. LDX|
00000230  20 58 32 0d 01 68 12 20  2e 73 70 72 69 74 65 5f  | X2..h. .sprite_|
00000240  78 6c 6f 6f 70 0d 01 72  11 20 4a 53 52 20 70 6f  |xloop..r. JSR po|
00000250  73 69 74 69 6f 6e 0d 01  7c 1a 20 4c 44 41 20 63  |sition..|. LDA c|
00000260  6f 6c 6f 72 3a 53 54 41  20 28 79 6c 62 29 2c 59  |olor:STA (ylb),Y|
00000270  0d 01 86 0b 20 49 4e 43  20 58 31 0d 01 90 19 20  |.... INC X1.... |
00000280  44 45 58 3a 42 4e 45 20  73 70 72 69 74 65 5f 78  |DEX:BNE sprite_x|
00000290  6c 6f 6f 70 0d 01 9a 0b  20 49 4e 43 20 59 31 0d  |loop.... INC Y1.|
000002a0  01 a4 0c 20 50 4c 41 3a  54 41 59 0d 01 ae 0f 20  |... PLA:TAY.... |
000002b0  50 4c 41 3a 53 54 41 20  58 31 0d 01 b8 19 20 44  |PLA:STA X1.... D|
000002c0  45 59 3a 42 4e 45 20 73  70 72 69 74 65 5f 79 6c  |EY:BNE sprite_yl|
000002d0  6f 6f 70 0d 01 c2 08 20  72 74 73 0d 01 cc 06 20  |oop.... rts.... |
000002e0  3a 0d 01 d6 0e 20 2e 70  6f 73 69 74 69 6f 6e 0d  |:.... .position.|
000002f0  01 e0 13 20 4c 44 41 20  23 30 3a 53 54 41 20 78  |... LDA #0:STA x|
00000300  68 62 0d 01 ea 1f 20 4c  44 41 20 58 31 3a 41 53  |hb.... LDA X1:AS|
00000310  4c 20 41 3a 52 4f 4c 20  78 68 62 3a 41 53 4c 20  |L A:ROL xhb:ASL |
00000320  41 0d 01 f4 22 20 52 4f  4c 20 78 68 62 3a 41 53  |A..." ROL xhb:AS|
00000330  4c 20 41 3a 52 4f 4c 20  78 68 62 3a 53 54 41 20  |L A:ROL xhb:STA |
00000340  78 6c 62 0d 01 fe 1f 20  4c 44 41 20 26 37 3a 43  |xlb.... LDA &7:C|
00000350  4c 43 3a 41 44 43 20 78  68 62 3a 53 54 41 20 78  |LC:ADC xhb:STA x|
00000360  68 62 0d 02 08 13 20 4c  44 41 20 23 30 3a 53 54  |hb.... LDA #0:ST|
00000370  41 20 79 6c 62 0d 02 12  12 20 4c 44 41 20 59 31  |A ylb.... LDA Y1|
00000380  3a 80 20 23 26 46 38 0d  02 1c 18 20 4c 53 52 20  |:. #&F8.... LSR |
00000390  41 3a 4c 53 52 20 41 3a  53 54 41 20 79 68 62 0d  |A:LSR A:STA yhb.|
000003a0  02 26 24 20 4c 53 52 20  41 3a 4c 53 52 20 41 3a  |.&$ LSR A:LSR A:|
000003b0  52 4f 52 20 79 6c 62 3a  43 4c 43 3a 41 44 43 20  |ROR ylb:CLC:ADC |
000003c0  79 68 62 0d 02 30 14 20  41 44 43 20 78 68 62 3a  |yhb..0. ADC xhb:|
000003d0  53 54 41 20 79 68 62 0d  02 3a 24 20 4c 44 41 20  |STA yhb..:$ LDA |
000003e0  59 31 3a 80 20 23 37 3a  43 4c 43 3a 41 44 43 20  |Y1:. #7:CLC:ADC |
000003f0  79 6c 62 3a 41 44 43 20  78 6c 62 0d 02 44 23 20  |ylb:ADC xlb..D# |
00000400  53 54 41 20 79 6c 62 3a  4c 44 41 20 23 30 3a 41  |STA ylb:LDA #0:A|
00000410  44 43 20 79 68 62 3a 53  54 41 20 79 68 62 0d 02  |DC yhb:STA yhb..|
00000420  4e 08 20 72 74 73 0d 02  58 06 20 3a 0d 02 62 06  |N. rts..X. :..b.|
00000430  20 5d 0d 02 6c 0b 20 ed  20 63 6f 64 65 0d 02 76  | ]..l. . code..v|
00000440  06 20 3a 0d 02 80 08 20  d1 3d 30 0d 02 8a 0d 20  |. :.... .=0.... |
00000450  d6 20 73 63 72 65 65 6e  0d 02 94 08 20 f1 20 91  |. screen.... . .|
00000460  0d ff                                             |..|
00000462