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

SRC.JOYSTICK

FILE INFORMATION

FILENAME(S): SRC.JOYSTICK

FILE TYPE(S): PRG

FILE SIZE: 931b

FIRST SEEN: 2025-11-30 01:13:08

APPEARS ON: 1 disk(s)

FILE HASH

1992836ed9537769797195898ab9930f97e484a482b50c8fd4728df2c353d927

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
15830 SEITE B SRC.JOYSTICK PRG C64er, DuncanTwain 31 16 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 1B 08 64 00 20 4C  44 41 23 3C 28 39 38 33  |....d. LDA#<(983|
00000010: 29 20 3B 20 4C 4F 57 42  59 54 45 00 27 08 6E 00  |) ; LOWBYTE.'.n.|
00000020: 20 53 54 41 24 46 41 00  37 08 78 00 20 4C 44 41  | STA$FA.7.x. LDA|
00000030: 23 3E 28 39 38 33 29 00  5E 08 82 00 20 53 54 41  |#>(983).^... STA|
00000040: 24 46 42 20 20 20 3B 20  49 4E 20 5A 45 52 4F 50  |$FB   ; IN ZEROP|
00000050: 41 47 45 41 44 52 45 53  53 45 20 24 46 42 00 A1  |AGEADRESSE $FB..|
00000060: 08 87 00 3B 20 49 4D 20  4F 52 49 47 49 4E 41 4C  |...; IM ORIGINAL|
00000070: 20 48 49 45 53 53 20 44  45 52 20 42 45 46 45 48  | HIESS DER BEFEH|
00000080: 4C 20 27 53 54 41 20 24  44 30 30 30 27 20 28 4B  |L 'STA $D000' (K|
00000090: 4F 52 52 49 47 49 45 52  54 20 56 4F 4E 20 4E 48  |ORRIGIERT VON NH|
000000A0: 29 00 C5 08 8C 00 20 4C  44 41 24 44 30 30 30 20  |)..... LDA$D000 |
000000B0: 3B 20 58 20 50 4F 53 49  54 49 4F 4E 20 53 50 52  |; X POSITION SPR|
000000C0: 49 54 45 20 30 00 F2 08  96 00 20 53 45 43 20 20  |ITE 0..... SEC  |
000000D0: 20 20 20 20 3B 20 49 4E  20 42 53 43 20 4B 4F 4F  |    ; IN BSC KOO|
000000E0: 52 44 49 4E 41 54 45 4E  20 55 4D 52 45 43 48 4E  |RDINATEN UMRECHN|
000000F0: 45 4E 00 FE 08 A0 00 20  53 42 43 23 31 36 00 0B  |EN..... SBC#16..|
00000100: 09 AA 00 20 53 54 41 58  50 4F 53 00 21 09 B4 00  |... STAXPOS.!...|
00000110: 20 4C 44 41 24 44 30 30  31 20 3B 20 59 2D 50 4F  | LDA$D001 ; Y-PO|
00000120: 53 00 2A 09 BE 00 20 53  45 43 00 36 09 C8 00 20  |S.*... SEC.6... |
00000130: 53 42 43 23 34 32 00 43  09 D2 00 20 53 54 41 59  |SBC#42.C... STAY|
00000140: 50 4F 53 00 5B 09 DC 00  20 4C 53 52 58 50 4F 53  |POS.[... LSRXPOS|
00000150: 20 20 3B 20 44 55 52 43  48 20 38 00 68 09 E6 00  |  ; DURCH 8.h...|
00000160: 20 4C 53 52 58 50 4F 53  00 75 09 F0 00 20 4C 53  | LSRXPOS.u... LS|
00000170: 52 58 50 4F 53 00 8D 09  FA 00 20 4C 53 52 59 50  |RXPOS..... LSRYP|
00000180: 4F 53 20 20 3B 20 44 55  52 43 48 20 38 00 A5 09  |OS  ; DURCH 8...|
00000190: 04 01 20 4C 53 52 59 50  4F 53 20 20 3B 20 44 55  |.. LSRYPOS  ; DU|
000001A0: 52 43 48 20 38 00 BD 09  0E 01 20 4C 53 52 59 50  |RCH 8..... LSRYP|
000001B0: 4F 53 20 20 3B 20 44 55  52 43 48 20 38 00 CE 09  |OS  ; DURCH 8...|
000001C0: 18 01 4C 4F 4F 50 31 20  4C 44 41 24 46 41 00 F1  |..LOOP1 LDA$FA..|
000001D0: 09 22 01 20 43 4C 43 20  20 20 20 20 20 3B 20 50  |.". CLC      ; P|
000001E0: 4F 53 49 54 49 4F 4E 20  42 45 53 54 49 4D 4D 45  |OSITION BESTIMME|
000001F0: 4E 00 08 0A 2C 01 20 41  44 43 23 31 20 20 20 20  |N...,. ADC#1    |
00000200: 3B 20 50 4C 55 53 20 31  00 14 0A 36 01 20 53 54  |; PLUS 1...6. ST|
00000210: 41 24 46 41 00 20 0A 40  01 20 4C 44 41 24 46 42  |A$FA. .@. LDA$FB|
00000220: 00 3A 0A 4A 01 20 41 44  43 23 30 20 20 20 20 3B  |.:.J. ADC#0    ;|
00000230: 20 4F 56 45 52 46 4C 4F  57 53 00 46 0A 54 01 20  | OVERFLOWS.F.T. |
00000240: 53 54 41 24 46 42 00 53  0A 5E 01 20 44 45 43 58  |STA$FB.S.^. DECX|
00000250: 50 4F 53 00 77 0A 68 01  20 4C 44 41 58 50 4F 53  |POS.w.h. LDAXPOS|
00000260: 20 20 3B 20 45 49 47 45  4E 54 4C 49 43 48 20 55  |  ; EIGENTLICH U|
00000270: 4E 4E 4F 45 54 49 47 00  85 0A 72 01 20 42 4E 45  |NNOETIG...r. BNE|
00000280: 4C 4F 4F 50 31 00 96 0A  7C 01 4C 4F 4F 50 32 20  |LOOP1...|.LOOP2 |
00000290: 4C 44 41 24 46 41 00 9F  0A 86 01 20 43 4C 43 00  |LDA$FA..... CLC.|
000002A0: DF 0A 90 01 20 41 44 43  23 34 30 20 20 20 3B 20  |.... ADC#40   ; |
000002B0: 48 49 45 53 53 20 49 4D  20 4F 52 49 47 49 4E 41  |HIESS IM ORIGINA|
000002C0: 4C 20 27 41 44 43 20 24  34 30 27 20 20 2C 4B 4F  |L 'ADC $40'  ,KO|
000002D0: 52 52 49 47 49 45 52 54  20 56 4F 4E 20 4E 48 00  |RRIGIERT VON NH.|
000002E0: EB 0A 9A 01 20 53 54 41  24 46 41 00 F7 0A A4 01  |.... STA$FA.....|
000002F0: 20 4C 44 41 24 46 42 00  11 0B AE 01 20 41 44 43  | LDA$FB..... ADC|
00000300: 23 30 20 20 20 20 3B 20  4F 56 45 52 46 4C 4F 57  |#0    ; OVERFLOW|
00000310: 53 00 1D 0B B8 01 20 53  54 41 24 46 41 00 2A 0B  |S..... STA$FA.*.|
00000320: C2 01 20 44 45 43 59 50  4F 53 00 43 0B CC 01 20  |.. DECYPOS.C... |
00000330: 4C 44 41 59 50 4F 53 20  20 3B 20 55 4E 4E 4F 45  |LDAYPOS  ; UNNOE|
00000340: 54 49 47 00 51 0B D6 01  20 42 4E 45 4C 4F 4F 50  |TIG.Q... BNELOOP|
00000350: 32 00 5C 0B E0 01 20 4C  44 59 23 30 00 87 0B EA  |2.\... LDY#0....|
00000360: 01 20 4C 44 41 28 24 46  41 29 2C 59 20 3B 20 5A  |. LDA($FA),Y ; Z|
00000370: 45 49 43 48 45 4E 20 55  4E 54 45 52 20 44 45 4D  |EICHEN UNTER DEM|
00000380: 20 53 50 52 49 54 45 00  A0 0B F4 01 20 52 54 53  | SPRITE..... RTS|
00000390: 20 20 20 20 20 20 3B 20  54 53 43 48 55 45 53 53  |      ; TSCHUESS|
000003A0: 00 00 00                                          |...             |
....D. LDA#<(983) ; LOWBYTE.'.N. STA$FA.
7.X. LDA#>(983).^... STA$FB   ; IN ZEROP
AGEADRESSE $FB.....; IM ORIGINAL HIESS D
ER BEFEHL 'STA $D000' (KORRIGIERT VON NH
).E... LDA$D000 ; X POSITION SPRITE 0...
.. SEC      ; IN BSC KOORDINATEN UMRECHN
EN... . SBC#16..... STAXPOS.!... LDA$D00
1 ; Y-POS.*... SEC.6.H. SBC#42.C.R. STAY
POS.[... LSRXPOS  ; DURCH 8.H... LSRXPOS
.U... LSRXPOS..... LSRYPOS  ; DURCH 8...
.. LSRYPOS  ; DURCH 8..... LSRYPOS  ; DU
RCH 8.N...LOOP1 LDA$FA...". CLC      ; P
OSITION BESTIMMEN...,. ADC#1    ; PLUS 1
...6. STA$FA. .@. LDA$FB.:.J. ADC#0    ;
 OVERFLOWS.F.T. STA$FB.S.^. DECXPOS.W.H.
 LDAXPOS  ; EIGENTLICH UNNOETIG...R. BNE
LOOP1...|.LOOP2 LDA$FA..... CLC..... ADC
#40   ; HIESS IM ORIGINAL 'ADC $40'  ,KO
RRIGIERT VON NH..... STA$FA..... LDA$FB.
.... ADC#0    ; OVERFLOWS..... STA$FA.*.
B. DECYPOS.C.L. LDAYPOS  ; UNNOETIG.Q.V.
 BNELOOP2.\... LDY#0..... LDA($FA),Y ; Z
EICHEN UNTER DEM SPRITE. ... RTS      ; 
TSCHUESS...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL