00000000: 20 20 20 20 20 20 20 20 20 2A 3D 30 30 38 32 38 | *=00828|
00000010: 0D 20 20 20 20 20 20 4A 53 52 20 20 34 34 37 39 |. JSR 4479|
00000020: 37 0D 20 20 20 20 20 20 4A 53 52 20 20 35 37 39 |7. JSR 579|
00000030: 34 33 0D 20 20 20 20 20 20 4C 44 41 20 23 30 30 |43. LDA #00|
00000040: 38 0D 20 20 20 20 20 20 53 54 41 20 20 31 38 34 |8. STA 184|
00000050: 0D 20 20 20 20 20 20 4A 53 52 20 20 34 34 37 39 |. JSR 4479|
00000060: 37 0D 20 20 20 20 20 20 42 45 51 20 20 43 4C 30 |7. BEQ CL0|
00000070: 30 37 0D 20 20 20 20 20 20 42 43 43 20 20 43 4C |07. BCC CL|
00000080: 31 30 34 0D 20 20 20 20 20 20 43 4D 50 20 23 31 |104. CMP #1|
00000090: 37 31 0D 20 20 20 20 20 20 42 4E 45 20 20 43 4C |71. BNE CL|
000000A0: 30 30 37 0D 20 20 20 20 20 20 4A 53 52 20 20 30 |007. JSR 0|
000000B0: 30 31 31 35 0D 20 20 20 20 20 20 4A 53 52 20 20 |0115. JSR |
000000C0: 43 4C 30 30 36 0D 20 20 20 20 20 20 4C 44 41 20 |CL006. LDA |
000000D0: 20 30 34 33 0D 20 20 20 20 20 20 4C 44 58 20 20 | 043. LDX |
000000E0: 30 34 34 0D 20 20 20 20 20 20 53 54 41 20 20 31 |044. STA 1|
000000F0: 39 33 0D 20 20 20 20 20 20 53 54 58 20 20 31 39 |93. STX 19|
00000100: 34 0D 43 4C 30 30 31 20 4C 44 59 20 23 30 30 35 |4.CL001 LDY #005|
00000110: 0D 43 4C 30 30 32 20 4C 44 41 20 28 30 39 35 29 |.CL002 LDA (095)|
00000120: 2C 59 0D 20 20 20 20 20 20 42 45 51 20 20 43 4C |,Y. BEQ CL|
00000130: 30 30 33 0D 20 20 20 20 20 20 49 4E 43 20 20 30 |003. INC 0|
00000140: 39 35 0D 20 20 20 20 20 20 42 4E 45 20 20 43 4C |95. BNE CL|
00000150: 30 30 32 0D 20 20 20 20 20 20 49 4E 43 20 20 30 |002. INC 0|
00000160: 39 36 0D 20 20 20 20 20 20 42 4E 45 20 20 43 4C |96. BNE CL|
00000170: 30 30 32 0D 43 4C 30 30 33 20 4C 44 58 20 20 30 |002.CL003 LDX 0|
00000180: 39 36 0D 20 20 20 20 20 20 4C 44 41 20 20 30 39 |96. LDA 09|
00000190: 35 0D 20 20 20 20 20 20 41 44 43 20 23 30 30 37 |5. ADC #007|
000001A0: 0D 20 20 20 20 20 20 42 43 43 20 20 43 4C 30 30 |. BCC CL00|
000001B0: 34 0D 20 20 20 20 20 20 49 4E 58 0D 43 4C 30 30 |4. INX.CL00|
000001C0: 34 20 53 54 41 20 20 31 37 34 0D 20 20 20 20 20 |4 STA 174. |
000001D0: 20 53 54 58 20 20 31 37 35 0D 20 20 20 20 20 20 | STX 175. |
000001E0: 4C 44 59 20 23 30 30 36 0D 20 20 20 20 20 20 4C |LDY #006. L|
000001F0: 44 58 20 23 30 30 30 0D 20 20 20 20 20 20 4C 44 |DX #000. LD|
00000200: 41 20 28 30 39 35 29 2C 59 0D 20 20 20 20 20 20 |A (095),Y. |
00000210: 50 48 41 0D 20 20 20 20 20 20 54 58 41 0D 20 20 |PHA. TXA. |
00000220: 20 20 20 20 53 54 41 20 28 30 39 35 29 2C 59 0D | STA (095),Y.|
00000230: 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 | INY. |
00000240: 4C 44 41 20 28 30 39 35 29 2C 59 0D 20 20 20 20 |LDA (095),Y. |
00000250: 20 20 50 48 41 0D 20 20 20 20 20 20 54 58 41 0D | PHA. TXA.|
00000260: 20 20 20 20 20 20 53 54 41 20 28 30 39 35 29 2C | STA (095),|
00000270: 59 0D 20 20 20 20 20 20 4A 53 52 20 20 36 32 39 |Y. JSR 629|
00000280: 37 30 0D 20 20 20 20 20 20 4C 44 59 20 23 30 30 |70. LDY #00|
00000290: 37 0D 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 |7. PLA. |
000002A0: 20 20 53 54 41 20 28 30 39 35 29 2C 59 0D 20 20 | STA (095),Y. |
000002B0: 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 50 4C | DEY. PL|
000002C0: 41 0D 20 20 20 20 20 20 53 54 41 20 28 30 39 35 |A. STA (095|
000002D0: 29 2C 59 0D 20 20 20 20 20 20 52 54 53 0D 43 4C |),Y. RTS.CL|
000002E0: 31 30 34 20 4A 53 52 20 20 43 4C 30 30 36 0D 20 |104 JSR CL006. |
000002F0: 20 20 20 20 20 4C 44 41 20 20 30 39 35 0D 20 20 | LDA 095. |
00000300: 20 20 20 20 4C 44 58 20 20 30 39 36 0D 20 20 20 | LDX 096. |
00000310: 20 20 20 53 54 41 20 20 31 39 33 0D 20 20 20 20 | STA 193. |
00000320: 20 20 53 54 58 20 20 31 39 34 0D 20 20 20 20 20 | STX 194. |
00000330: 20 4A 53 52 20 20 30 30 31 32 31 0D 20 20 20 20 | JSR 00121. |
00000340: 20 20 42 45 51 20 20 43 4C 30 30 31 0D 20 20 20 | BEQ CL001. |
00000350: 20 20 20 43 4D 50 20 23 31 37 31 0D 20 20 20 20 | CMP #171. |
00000360: 20 20 42 4E 45 20 20 43 4C 30 30 37 0D 20 20 20 | BNE CL007. |
00000370: 20 20 20 4A 53 52 20 20 30 30 31 31 35 0D 20 20 | JSR 00115. |
00000380: 20 20 20 20 42 45 51 20 20 43 4C 30 30 35 0D 20 | BEQ CL005. |
00000390: 20 20 20 20 20 4A 53 52 20 20 43 4C 30 30 36 0D | JSR CL006.|
000003A0: 20 20 20 20 20 20 4A 4D 50 20 20 43 4C 30 30 31 | JMP CL001|
000003B0: 0D 43 4C 30 30 35 20 4C 44 41 20 20 30 34 35 0D |.CL005 LDA 045.|
000003C0: 20 20 20 20 20 20 4C 44 58 20 20 30 34 36 0D 20 | LDX 046. |
000003D0: 20 20 20 20 20 53 54 41 20 20 31 37 34 0D 20 20 | STA 174. |
000003E0: 20 20 20 20 53 54 58 20 20 31 37 35 0D 20 20 20 | STX 175. |
000003F0: 20 20 20 4A 4D 50 20 20 36 32 39 37 30 0D 43 4C | JMP 62970.CL|
00000400: 30 30 36 20 4A 53 52 20 20 34 33 33 37 31 0D 20 |006 JSR 43371. |
00000410: 20 20 20 20 20 4A 4D 50 20 20 34 32 35 31 35 0D | JMP 42515.|
00000420: 43 4C 30 30 37 20 4A 4D 50 20 20 34 34 38 30 38 |CL007 JMP 44808|
00000430: 0D 20 20 20 20 20 20 42 52 4B 0D 20 20 20 20 20 |. BRK. |
00000440: 20 2E 45 4E 44 0D | .END. |
*=00828. JSR 44797.
JSR 57943. LDA #008. STA 184
. JSR 44797. BEQ CL007.
BCC CL104. CMP #171. BNE CL
007. JSR 00115. JSR CL006.
LDA 043. LDX 044. STA 1
93. STX 194.CL001 LDY #005.CL002 L
DA (095),Y. BEQ CL003. INC 0
95. BNE CL002. INC 096.
BNE CL002.CL003 LDX 096. LDA 09
5. ADC #007. BCC CL004.
INX.CL004 STA 174. STX 175.
LDY #006. LDX #000. LDA (095),
Y. PHA. TXA. STA (095),Y.
INY. LDA (095),Y. PHA.
TXA. STA (095),Y. JSR 629
70. LDY #007. PLA. STA (0
95),Y. DEY. PLA. STA (095
),Y. RTS.CL104 JSR CL006. LDA
095. LDX 096. STA 193.
STX 194. JSR 00121. BEQ C
L001. CMP #171. BNE CL007.
JSR 00115. BEQ CL005. JSR
CL006. JMP CL001.CL005 LDA 045.
LDX 046. STA 174. STX
175. JMP 62970.CL006 JSR 43371.
JMP 42515.CL007 JMP 44808. B
RK. .END.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL