� Car Race Listing I
� by Mike Goldberg
� (c) The Micro User
(
code=&700
2� I%=0 � 2 � 2
<P%=code:[OPT I%
FJMP CarCode
P.BakCode
ZLDX#0:LDA#8:STA&3FFE
d	.loop
nLDY#0:LDA#32:STA&3FFF
xLDA&4000,X:STA&72
�LDA&4001,X:STA&73
�	.draw
�LDA(&72),Y:STA(&70),Y
�INY:DEC &3FFF:BNEdraw
�LDA&70:CLC:ADC#&20
�STA&70:LDA&71:ADC#&0
�STA&71:INX:INX:DEC &3FFE
�BNEloop:RTS
�.CarCode
�	LDY#0
�	.loop
�LDX#&10
�	.draw

LDA(&72),Y:STA(&70),Y

INY:DEX:BNEdraw

LDA&70:CLC:ADC#&30

"STA&70:LDA&71:ADC#&1

,STA&71:DEC&76:BNEloop

6RTS:]:�

@*SAVE CarCode 700+100
�

00000000  0d 00 0a 18 f4 20 43 61  72 20 52 61 63 65 20 4c  |..... Car Race L|
00000010  69 73 74 69 6e 67 20 49  0d 00 14 16 f4 20 62 79  |isting I..... by|
00000020  20 4d 69 6b 65 20 47 6f  6c 64 62 65 72 67 0d 00  | Mike Goldberg..|
00000030  1e 18 f4 20 28 63 29 20  54 68 65 20 4d 69 63 72  |... (c) The Micr|
00000040  6f 20 55 73 65 72 0d 00  28 0d 63 6f 64 65 3d 26  |o User..(.code=&|
00000050  37 30 30 0d 00 32 12 e3  20 49 25 3d 30 20 b8 20  |700..2.. I%=0 . |
00000060  32 20 88 20 32 0d 00 3c  13 50 25 3d 63 6f 64 65  |2 . 2..<.P%=code|
00000070  3a 5b 4f 50 54 20 49 25  0d 00 46 0f 4a 4d 50 20  |:[OPT I%..F.JMP |
00000080  43 61 72 43 6f 64 65 0d  00 50 0c 2e 42 61 6b 43  |CarCode..P..BakC|
00000090  6f 64 65 0d 00 5a 18 4c  44 58 23 30 3a 4c 44 41  |ode..Z.LDX#0:LDA|
000000a0  23 38 3a 53 54 41 26 33  46 46 45 0d 00 64 09 2e  |#8:STA&3FFE..d..|
000000b0  6c 6f 6f 70 0d 00 6e 19  4c 44 59 23 30 3a 4c 44  |loop..n.LDY#0:LD|
000000c0  41 23 33 32 3a 53 54 41  26 33 46 46 46 0d 00 78  |A#32:STA&3FFF..x|
000000d0  15 4c 44 41 26 34 30 30  30 2c 58 3a 53 54 41 26  |.LDA&4000,X:STA&|
000000e0  37 32 0d 00 82 15 4c 44  41 26 34 30 30 31 2c 58  |72....LDA&4001,X|
000000f0  3a 53 54 41 26 37 33 0d  00 8c 09 2e 64 72 61 77  |:STA&73.....draw|
00000100  0d 00 96 19 4c 44 41 28  26 37 32 29 2c 59 3a 53  |....LDA(&72),Y:S|
00000110  54 41 28 26 37 30 29 2c  59 0d 00 a0 19 49 4e 59  |TA(&70),Y....INY|
00000120  3a 44 45 43 20 26 33 46  46 46 3a 42 4e 45 64 72  |:DEC &3FFF:BNEdr|
00000130  61 77 0d 00 aa 16 4c 44  41 26 37 30 3a 43 4c 43  |aw....LDA&70:CLC|
00000140  3a 41 44 43 23 26 32 30  0d 00 b4 18 53 54 41 26  |:ADC#&20....STA&|
00000150  37 30 3a 4c 44 41 26 37  31 3a 41 44 43 23 26 30  |70:LDA&71:ADC#&0|
00000160  0d 00 be 1c 53 54 41 26  37 31 3a 49 4e 58 3a 49  |....STA&71:INX:I|
00000170  4e 58 3a 44 45 43 20 26  33 46 46 45 0d 00 c8 0f  |NX:DEC &3FFE....|
00000180  42 4e 45 6c 6f 6f 70 3a  52 54 53 0d 00 d2 0c 2e  |BNEloop:RTS.....|
00000190  43 61 72 43 6f 64 65 0d  00 dc 09 4c 44 59 23 30  |CarCode....LDY#0|
000001a0  0d 00 e6 09 2e 6c 6f 6f  70 0d 00 f0 0b 4c 44 58  |.....loop....LDX|
000001b0  23 26 31 30 0d 00 fa 09  2e 64 72 61 77 0d 01 04  |#&10.....draw...|
000001c0  19 4c 44 41 28 26 37 32  29 2c 59 3a 53 54 41 28  |.LDA(&72),Y:STA(|
000001d0  26 37 30 29 2c 59 0d 01  0e 13 49 4e 59 3a 44 45  |&70),Y....INY:DE|
000001e0  58 3a 42 4e 45 64 72 61  77 0d 01 18 16 4c 44 41  |X:BNEdraw....LDA|
000001f0  26 37 30 3a 43 4c 43 3a  41 44 43 23 26 33 30 0d  |&70:CLC:ADC#&30.|
00000200  01 22 18 53 54 41 26 37  30 3a 4c 44 41 26 37 31  |.".STA&70:LDA&71|
00000210  3a 41 44 43 23 26 31 0d  01 2c 19 53 54 41 26 37  |:ADC#&1..,.STA&7|
00000220  31 3a 44 45 43 26 37 36  3a 42 4e 45 6c 6f 6f 70  |1:DEC&76:BNEloop|
00000230  0d 01 36 0b 52 54 53 3a  5d 3a ed 0d 01 40 19 2a  |..6.RTS:]:...@.*|
00000240  53 41 56 45 20 43 61 72  43 6f 64 65 20 37 30 30  |SAVE CarCode 700|
00000250  2b 31 30 30 0d ff                                 |+100..|
00000256