�   Listing II
 �   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

@ JSR position

J TYA:PHA

T LDX X2

^ LDY #0

h .sprite_xloop

r LDA color:STA (ylb),Y

| LDA ylb:CLC:ADC #8:STA ylb

� LDA yhb:ADC #0:STA yhb

� DEX:BNE sprite_xloop

� INC Y1

� PLA:TAY

� 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
& ADC xhb:STA yhb
0$ LDA Y1:� #7:CLC:ADC ylb:ADC xlb
:# STA ylb:LDA #0:ADC yhb:STA yhb
D rts
N :
X ]
b � code
l :
v �=0
�
 � screen
� � �
�

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