_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

LS TURBO DCR.SRC

FILE INFORMATION

FILENAME(S): LS TURBO DCR.SRC

FILE TYPE(S): PRG

FILE SIZE: 1.7K

FIRST SEEN: 2025-11-30 16:45:39

APPEARS ON: 1 disk(s)

FILE HASH

a501873f61d0852308e6158cca81b80b485929e0c777c6a81d2d2666e56dc399

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
TALENTED RULERZ LS TURBO DCR.SRC PRG High Voltage Complete C64 Collection 16 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0A 08 0A 00 9E 39  39 39 00 13 08 14 00 2E  |.......999......|
00000010: 4D 45 4D 00 20 08 19 00  4E 54 53 43 20 B2 20 30  |MEM. ...NTSC . 0|
00000020: 00 2C 08 1E 00 AC B2 24  43 30 30 30 00 59 08 28  |.,.....$C000.Y.(|
00000030: 00 4A 53 52 20 9F 3A 4C  44 41 20 23 22 49 22 3A  |.JSR .:LDA #"I":|
00000040: 4A 53 52 20 24 46 46 41  38 3A 4A 53 52 20 24 46  |JSR $FFA8:JSR $F|
00000050: 46 41 45 3A 4A 53 52 20  9F 00 95 08 2D 00 4C 44  |FAE:JSR ....-.LD|
00000060: 58 20 23 24 46 42 3A AB  20 4C 44 41 20 54 58 54  |X #$FB:. LDA TXT|
00000070: 31 AB 24 46 42 2C 58 3A  4A 53 52 20 24 46 46 41  |1.$FB,X:JSR $FFA|
00000080: 38 3A 49 4E 58 3A 42 4E  45 20 AB 3A 4A 53 52 20  |8:INX:BNE .:JSR |
00000090: 24 46 33 46 36 00 D5 08  32 00 4C 44 41 20 24 44  |$F3F6...2.LDA $D|
000000A0: 30 31 31 3A AF 20 23 24  37 3A 41 44 43 20 23 24  |011:. #$7:ADC #$|
000000B0: 32 46 3A 53 54 41 20 52  42 32 AA 31 3A 4C 44 41  |2F:STA RB2.1:LDA|
000000C0: 20 24 44 44 30 30 3A AF  20 23 37 3A 53 54 41 20  | $DD00:. #7:STA |
000000D0: 24 44 44 30 30 00 07 09  37 00 B0 41 20 23 24 32  |$DD00...7..A #$2|
000000E0: 30 3A 53 54 41 20 24 41  33 3A 4C 53 52 3A 4C 53  |0:STA $A3:LSR:LS|
000000F0: 52 3A 45 B0 20 24 41 33  3A AF 20 23 37 3A 53 54  |R:E. $A3:. #7:ST|
00000100: 41 20 52 42 33 AA 31 00  15 09 3C 00 53 54 58 20  |A RB3.1...<.STX |
00000110: 24 44 30 31 35 00 2F 09  46 00 AB 20 42 49 54 20  |$D015./.F.. BIT |
00000120: 24 44 44 30 30 3A 42 56  53 20 AB 3A 53 45 49 00  |$DD00:BVS .:SEI.|
00000130: 5D 09 50 00 4D 41 49 4E  33 20 4C 44 58 20 23 35  |].P.MAIN3 LDX #5|
00000140: 3A AB 20 4A 53 52 20 52  42 3A 53 54 41 20 24 46  |:. JSR RB:STA $F|
00000150: 41 2C 58 3A 44 45 58 3A  42 4E 45 20 AB 00 69 09  |A,X:DEX:BNE ..i.|
00000160: 64 00 AA 20 53 54 58 20  31 00 AE 09 90 01 4D 41  |d.. STX 1.....MA|
00000170: 49 4E 34 20 54 58 41 3A  4C 44 58 20 23 34 3A AB  |IN4 TXA:LDX #4:.|
00000180: 20 53 54 41 20 24 41 36  2C 58 3A 44 45 58 3A 42  | STA $A6,X:DEX:B|
00000190: 50 4C 20 AB 3A AB 20 4A  53 52 20 4D 31 3A 49 4E  |PL .:. JSR M1:IN|
000001A0: 58 3A 42 43 43 20 4D 32  3A 42 45 51 20 AA 00 D1  |X:BCC M2:BEQ ...|
000001B0: 09 9A 01 4A 53 52 20 4D  31 3A AA 20 52 4F 4C 20  |...JSR M1:. ROL |
000001C0: 24 41 38 3A 52 4F 4C 20  24 41 39 3A 42 50 4C 20  |$A8:ROL $A9:BPL |
000001D0: AB 00 13 0A A4 01 4D 32  20 53 45 43 3A 4C 44 41  |......M2 SEC:LDA|
000001E0: 20 24 46 45 3A 53 42 43  20 24 41 38 3A 53 54 41  | $FE:SBC $A8:STA|
000001F0: 20 24 46 45 3A 4C 44 41  20 24 46 46 3A 53 42 43  | $FE:LDA $FF:SBC|
00000200: 20 24 41 39 3A 53 54 41  20 24 46 46 3A 4A 53 52  | $A9:STA $FF:JSR|
00000210: 20 4D 33 00 42 0A B8 01  4C 44 41 20 23 31 3A 4A  | M3.B...LDA #1:J|
00000220: 53 52 20 4D 31 3A 42 43  53 20 4D 35 3A 41 44 43  |SR M1:BCS M5:ADC|
00000230: 20 23 31 3A 49 4E 43 20  24 41 41 3A 42 4E 45 20  | #1:INC $AA:BNE |
00000240: 4D 34 00 68 0A C2 01 4D  35 20 4A 53 52 20 4D 31  |M4.h...M5 JSR M1|
00000250: 3A 42 43 43 20 AA 3A 4A  53 52 20 4D 31 3A 52 4F  |:BCC .:JSR M1:RO|
00000260: 4C 3A 42 50 4C 20 4D 35  00 9E 0A CC 01 AA 20 41  |L:BPL M5...... A|
00000270: 44 43 20 23 32 3A 4D 34  20 53 54 41 20 24 41 38  |DC #2:M4 STA $A8|
00000280: 3A 4A 53 52 20 4D 31 3A  52 4F 4C 20 24 41 41 3A  |:JSR M1:ROL $AA:|
00000290: 4A 53 52 20 4D 31 3A 52  4F 4C 20 24 41 41 00 B7  |JSR M1:ROL $AA..|
000002A0: 0A D6 01 4D 37 20 4C 44  59 20 24 41 41 3A 4C 44  |...M7 LDY $AA:LD|
000002B0: 58 20 54 42 31 2C 59 00  DE 0A E0 01 AB 20 4A 53  |X TB1,Y...... JS|
000002C0: 52 20 4D 31 3A 52 4F 4C  20 24 41 36 3A 52 4F 4C  |R M1:ROL $A6:ROL|
000002D0: 20 24 41 37 3A 44 45 58  3A 42 4E 45 20 AB 00 1D  | $A7:DEX:BNE ...|
000002E0: 0B EA 01 4C 44 41 20 24  41 41 3A AF 20 23 33 3A  |...LDA $AA:. #3:|
000002F0: 42 45 51 20 4D 36 3A 49  4E 43 20 24 41 36 3A 42  |BEQ M6:INC $A6:B|
00000300: 4E 45 20 AA 3A 49 4E 43  20 24 41 37 3A AA 20 44  |NE .:INC $A7:. D|
00000310: 45 43 20 24 41 41 3A 42  50 4C 20 4D 37 00 35 0B  |EC $AA:BPL M7.5.|
00000320: 08 02 4D 36 20 4A 53 52  20 4D 39 3A 42 4D 49 20  |..M6 JSR M9:BMI |
00000330: 4D 41 49 4E 34 00 6F 0B  12 02 4D 31 30 20 4C 44  |MAIN4.o...M10 LD|
00000340: 59 20 24 46 45 3A 42 45  51 20 4D 32 30 3A AB 20  |Y $FE:BEQ M20:. |
00000350: 44 45 43 20 24 46 45 3A  50 48 41 3A 4A 53 52 20  |DEC $FE:PHA:JSR |
00000360: 4D 31 31 3A 53 54 41 20  24 46 42 3A 50 4C 41 00  |M11:STA $FB:PLA.|
00000370: 9B 0B 1C 02 53 45 43 3A  2E 42 59 54 20 24 32 34  |....SEC:.BYT $24|
00000380: 3A 4D 31 20 43 4C 43 3A  52 4F 4C 20 24 46 42 3A  |:M1 CLC:ROL $FB:|
00000390: 42 45 51 20 4D 31 30 3A  52 54 53 00 B9 0B 26 02  |BEQ M10:RTS...&.|
000003A0: 4D 32 30 20 43 50 59 20  24 46 46 3A 44 45 43 20  |M20 CPY $FF:DEC |
000003B0: 24 46 46 3A 42 43 43 20  AB 00 D5 0B 30 02 50 4C  |$FF:BCC ....0.PL|
000003C0: 41 3A 50 4C 41 3A 44 45  43 20 31 3A 4A 4D 50 20  |A:PLA:DEC 1:JMP |
000003D0: 4D 41 49 4E 33 00 0C 0C  3A 02 4D 39 20 4C 44 41  |MAIN3...:.M9 LDA|
000003E0: 20 24 46 43 3A 41 44 43  20 24 41 36 3A 53 54 41  | $FC:ADC $A6:STA|
000003F0: 20 24 46 37 3A 4C 44 41  20 24 46 44 3A 41 44 43  | $F7:LDA $FD:ADC|
00000400: 20 24 41 37 3A 53 54 41  20 24 46 38 00 51 0C 4E  | $A7:STA $F8.Q.N|
00000410: 02 4D 33 20 4C 44 59 20  24 41 38 3A 42 45 51 20  |.M3 LDY $A8:BEQ |
00000420: 4D 31 32 3A 4C 44 41 20  24 46 43 3A 53 45 43 3A  |M12:LDA $FC:SEC:|
00000430: 53 42 43 20 24 41 38 3A  53 54 41 20 24 46 43 3A  |SBC $A8:STA $FC:|
00000440: 42 43 53 20 4D 31 35 3A  AB 20 44 45 43 20 24 46  |BCS M15:. DEC $F|
00000450: 44 00 7F 0C 58 02 4D 31  35 20 44 45 59 3A 4A 53  |D...X.M15 DEY:JS|
00000460: 52 20 4D 38 3A 53 54 41  20 28 24 46 43 29 2C 59  |R M8:STA ($FC),Y|
00000470: 3A 43 50 59 20 23 30 3A  42 4E 45 20 4D 31 35 00  |:CPY #0:BNE M15.|
00000480: A1 0C 62 02 4D 31 32 20  44 45 43 20 24 46 38 3A  |..b.M12 DEC $F8:|
00000490: 44 45 43 20 24 41 39 3A  42 50 4C 20 AB 3A 52 54  |DEC $A9:BPL .:RT|
000004A0: 53 00 C4 0C 76 02 4D 38  20 54 58 41 3A 42 4E 45  |S...v.M8 TXA:BNE|
000004B0: 20 4D 31 31 3A 4C 44 41  20 28 24 46 37 29 2C 59  | M11:LDA ($F7),Y|
000004C0: 3A 52 54 53 00 F7 0C 80  02 4D 31 31 20 44 45 43  |:RTS.....M11 DEC|
000004D0: 20 31 3A 4A 53 52 20 52  42 3A 44 45 43 20 24 44  | 1:JSR RB:DEC $D|
000004E0: 30 32 30 3A 49 4E 43 20  24 44 30 32 30 3A 49 4E  |020:INC $D020:IN|
000004F0: 43 20 31 3A 52 54 53 00  14 0D 8A 02 54 42 31 20  |C 1:RTS.....TB1 |
00000500: 2E 42 59 54 20 35 2C 32  2C 32 2C 33 2C 34 2C 32  |.BYT 5,2,2,3,4,2|
00000510: 2C 32 2C 32 00 3E 0D BC  02 9F 20 4C 44 41 20 23  |,2,2.>.... LDA #|
00000520: 38 3A 4A 53 52 20 24 46  46 42 31 3A 4C 44 41 20  |8:JSR $FFB1:LDA |
00000530: 23 24 46 46 3A 4A 4D 50  20 24 46 46 39 33 00 5E  |#$FF:JMP $FF93.^|
00000540: 0D C6 02 54 58 54 31 20  2E 42 59 54 20 22 4D 22  |...TXT1 .BYT "M"|
00000550: 2C 22 2D 22 2C 22 45 22  2C 24 43 30 2C 37 00 8F  |,"-","E",$C0,7..|
00000560: 0D D0 02 52 42 20 53 54  58 20 24 41 34 3A 52 42  |...RB STX $A4:RB|
00000570: 34 20 4C 44 58 20 24 41  33 3A 53 45 43 3A 42 49  |4 LDX $A3:SEC:BI|
00000580: 54 20 24 44 44 30 30 3A  42 56 43 20 52 42 35 00  |T $DD00:BVC RB5.|
00000590: BB 0D DA 02 AB 20 4C 44  41 20 24 44 30 31 32 3A  |..... LDA $D012:|
000005A0: 52 42 32 20 53 42 43 20  23 30 3A 42 43 43 20 AA  |RB2 SBC #0:BCC .|
000005B0: 3A AF 20 23 37 3A 42 45  51 20 AB 00 CB 0D E4 02  |:. #7:BEQ ......|
000005C0: AA 20 53 54 58 20 24 44  44 30 30 00 E1 0D EE 02  |. STX $DD00.....|
000005D0: 2E 8B 20 4E 54 53 43 3A  20 2E 42 59 54 20 24 32  |.. NTSC: .BYT $2|
000005E0: 34 00 F5 0D F8 02 2E 45  4C 53 45 3A 20 2E 42 59  |4......ELSE: .BY|
000005F0: 54 20 24 41 39 00 FD 0D  FD 02 2E 8B 45 00 08 0E  |T $A9.......E...|
00000600: 02 03 2E 42 59 54 20 30  00 4B 0E 0C 03 54 58 41  |...BYT 0.K...TXA|
00000610: 3A AF 20 23 37 3A 53 54  41 20 24 44 44 30 30 3A  |:. #7:STA $DD00:|
00000620: 4C 44 41 20 24 44 44 30  30 3A 4C 53 52 3A 4C 53  |LDA $DD00:LSR:LS|
00000630: 52 3A 45 B0 20 24 44 44  30 30 3A 4C 53 52 3A 4C  |R:E. $DD00:LSR:L|
00000640: 53 52 3A 45 B0 20 24 44  44 30 30 00 7A 0E 16 03  |SR:E. $DD00.z...|
00000650: 4C 53 52 3A 4C 53 52 3A  52 42 33 20 45 B0 20 23  |LSR:LSR:RB3 E. #|
00000660: 30 3A 45 B0 20 24 44 44  30 30 3A 4C 44 58 20 24  |0:E. $DD00:LDX $|
00000670: 41 34 3A 52 42 36 20 52  54 53 00 A4 0E 20 03 52  |A4:RB6 RTS... .R|
00000680: 42 35 20 42 49 54 20 24  44 44 30 30 3A 42 56 43  |B5 BIT $DD00:BVC|
00000690: 20 52 42 35 3A 4A 53 52  20 52 42 36 3A 42 4D 49  | RB5:JSR RB6:BMI|
000006A0: 20 52 42 34 00 B8 0E 2A  03 50 4C 41 3A 50 4C 41  | RB4...*.PLA:PLA|
000006B0: 3A 43 4C 43 3A 52 54 53  00 00 00                 |:CLC:RTS...     |
.......999......MEM. ...NTSC . 0.,.....$
C000.Y.(.JSR .:LDA #"I":JSR $FFA8:JSR $F
FAE:JSR ....-.LDX #$FB:. LDA TXT1.$FB,X:
JSR $FFA8:INX:BNE .:JSR $F3F6.U.2.LDA $D
011:. #$7:ADC #$2F:STA RB2.1:LDA $DD00:.
 #7:STA $DD00...7..A #$20:STA $A3:LSR:LS
R:E. $A3:. #7:STA RB3.1...<.STX $D015./.
F.. BIT $DD00:BVS .:SEI.].P.MAIN3 LDX #5
:. JSR RB:STA $FA,X:DEX:BNE ..I.D.. STX 
1.....MAIN4 TXA:LDX #4:. STA $A6,X:DEX:B
PL .:. JSR M1:INX:BCC M2:BEQ ..Q...JSR M
1:. ROL $A8:ROL $A9:BPL ......M2 SEC:LDA
 $FE:SBC $A8:STA $FE:LDA $FF:SBC $A9:STA
 $FF:JSR M3.B...LDA #1:JSR M1:BCS M5:ADC
 #1:INC $AA:BNE M4.H.B.M5 JSR M1:BCC .:J
SR M1:ROL:BPL M5...L.. ADC #2:M4 STA $A8
:JSR M1:ROL $AA:JSR M1:ROL $AA...V.M7 LD
Y $AA:LDX TB1,Y...... JSR M1:ROL $A6:ROL
 $A7:DEX:BNE ......LDA $AA:. #3:BEQ M6:I
NC $A6:BNE .:INC $A7:. DEC $AA:BPL M7.5.
..M6 JSR M9:BMI MAIN4.O...M10 LDY $FE:BE
Q M20:. DEC $FE:PHA:JSR M11:STA $FB:PLA.
....SEC:.BYT $24:M1 CLC:ROL $FB:BEQ M10:
RTS...&.M20 CPY $FF:DEC $FF:BCC ..U.0.PL
A:PLA:DEC 1:JMP MAIN3...:.M9 LDA $FC:ADC
 $A6:STA $F7:LDA $FD:ADC $A7:STA $F8.Q.N
.M3 LDY $A8:BEQ M12:LDA $FC:SEC:SBC $A8:
STA $FC:BCS M15:. DEC $FD..X.M15 DEY:JS
R M8:STA ($FC),Y:CPY #0:BNE M15...B.M12 
DEC $F8:DEC $A9:BPL .:RTS.D.V.M8 TXA:BNE
 M11:LDA ($F7),Y:RTS.....M11 DEC 1:JSR R
B:DEC $D020:INC $D020:INC 1:RTS.....TB1 
.BYT 5,2,2,3,4,2,2,2.>.... LDA #8:JSR $F
FB1:LDA #$FF:JMP $FF93.^.F.TXT1 .BYT "M"
,"-","E",$C0,7...P.RB STX $A4:RB4 LDX $A
3:SEC:BIT $DD00:BVC RB5...Z.. LDA $D012:
RB2 SBC #0:BCC .:. #7:BEQ ..K.... STX $D
D00....... NTSC: .BYT $24......ELSE: .BY
T $A9.......E......BYT 0.K...TXA:. #7:ST
A $DD00:LDA $DD00:LSR:LSR:E. $DD00:LSR:L
SR:E. $DD00.Z...LSR:LSR:RB3 E. #0:E. $DD
00:LDX $A4:RB6 RTS... .RB5 BIT $DD00:BVC
 RB5:JSR RB6:BMI RB4...*.PLA:PLA:CLC:RTS
...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL