JOYSTICKDEMO1
FILE INFORMATION
FILENAME(S): JOYSTICKDEMO1
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-11-02 16:54:37
APPEARS ON: 2 disk(s)
FILE HASH
3d35ba6672eca5f2e16cb49ee4428eb61402fe09945fe7fa7e5556de65cf2bbd
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER 8 85 | JOYSTICKDEMO1 | PRG | Treasure Chest - Reamigation | 30 | 7 | DOWNLOAD FILE |
| 64 ER 8 85 | JOYSTICKDEMO1 | PRG | BrainSkull, Leopold Zyka, C64er | 30 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..'.d.. ********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 00 4D 08 6E 00 8F 20 2A 20 |*******.M.n.. * | 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 73 08 | *.s.| 00000050: 78 00 8F 20 2A 20 4A 20 4F 20 59 20 53 20 54 20 |x.. * J O Y S T | 00000060: 49 20 43 20 4B 20 44 20 45 20 4D 20 4F 20 20 20 |I C K D E M O | 00000070: 31 20 2A 00 99 08 82 00 8F 20 2A 20 2D 2D 2D 2D |1 *...... * ----| 00000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000090: 2D 2D 2D 2D 2D 2D 2D 20 2A 00 BF 08 8C 00 8F 20 |------- *...... | 000000A0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.| 000000C0: E5 08 96 00 8F 20 2A 20 20 42 59 20 20 20 54 4F |..... * BY TO| 000000D0: 42 49 41 53 20 20 20 20 20 20 20 20 4E 49 43 4F |BIAS NICO| 000000E0: 4C 20 20 20 2A 00 0B 09 A0 00 8F 20 2A 20 20 20 |L *...... * | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000100: 20 20 20 20 20 20 20 20 20 20 2A 00 31 09 AA 00 | *.1...| 00000110: 8F 20 2A 20 20 20 20 20 20 20 4E 45 55 57 49 45 |. * NEUWIE| 00000120: 53 45 4E 53 54 52 41 53 53 45 20 32 30 20 20 20 |SENSTRASSE 20 | 00000130: 2A 00 57 09 B4 00 8F 20 2A 20 20 20 20 20 20 20 |*.W.... * | 00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000150: 20 20 20 20 20 20 2A 00 7D 09 BE 00 8F 20 2A 20 | *.}.... * | 00000160: 20 20 20 20 20 20 36 30 30 30 20 20 46 52 41 4E | 6000 FRAN| 00000170: 4B 46 55 52 54 20 20 37 31 20 20 20 2A 00 A3 09 |KFURT 71 *...| 00000180: C8 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |... * | 00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001A0: 20 20 2A 00 C9 09 D2 00 8F 20 2A 2A 2A 2A 2A 2A | *...... ******| 000001B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CF 09 DC 00 20 00 |*********..... .| 000001D0: F5 09 E6 00 8F 20 2A 2A 2A 2A 2A 2A 2A 20 49 4E |..... ******* IN| 000001E0: 49 54 49 41 4C 49 53 49 45 52 55 4E 47 20 2A 2A |ITIALISIERUNG **| 000001F0: 2A 2A 2A 2A 2A 00 19 0A F0 00 58 31 B2 30 20 3A |*****.....X1.0 :| 00000200: 20 59 31 B2 30 20 3A 20 58 32 B2 30 20 3A 20 59 | Y1.0 : X2.0 : Y| 00000210: 32 B2 30 20 3A 20 46 B2 30 00 3A 0A FA 00 97 20 |2.0 : F.0.:.... | 00000220: 35 33 32 38 30 2C 32 20 3A 20 97 20 35 33 32 38 |53280,2 : . 5328| 00000230: 31 2C 30 20 3A 20 44 B2 32 35 00 5E 0A 04 01 99 |1,0 : D.25.^....| 00000240: 20 22 93 22 20 3A 20 41 B2 31 30 32 34 20 3A 20 | "." : A.1024 : | 00000250: 42 B2 35 35 32 39 36 20 3A 20 43 B2 34 30 00 64 |B.55296 : C.40.d| 00000260: 0A 0E 01 20 00 8A 0A 18 01 8F 20 2A 2A 2A 2A 20 |... ...... **** | 00000270: 45 49 4E 47 41 42 45 20 41 55 46 20 4A 4F 59 53 |EINGABE AUF JOYS| 00000280: 54 49 43 4B 20 20 2A 2A 2A 2A 00 B0 0A 22 01 8F |TICK ****..."..| 00000290: 20 2A 2A 2A 2A 20 41 4E 20 50 4F 52 54 20 31 20 | **** AN PORT 1 | 000002A0: 20 55 4D 53 54 45 4C 4C 45 4E 20 20 2A 2A 2A 2A | UMSTELLEN ****| 000002B0: 00 CC 0A 2C 01 97 20 35 36 33 32 33 2C C2 20 28 |...,.. 56323,. (| 000002C0: 35 36 33 32 33 29 20 AF 20 32 32 34 00 D2 0A 36 |56323) . 224...6| 000002D0: 01 20 00 F8 0A 40 01 8F 20 2A 2A 2A 2A 20 4A 4F |. ...@.. **** JO| 000002E0: 59 53 54 49 43 4B 50 4F 52 54 20 41 55 53 4C 45 |YSTICKPORT AUSLE| 000002F0: 53 45 4E 20 2A 2A 2A 2A 00 0B 0B 4A 01 4A 31 20 |SEN ****...J.J1 | 00000300: B2 20 C2 20 28 35 36 33 32 31 29 00 11 0B 54 01 |. . (56321)...T.| 00000310: 20 00 37 0B 5E 01 8F 20 2A 2A 2A 2A 2A 2A 2A 20 | .7.^.. ******* | 00000320: 44 41 54 45 4E 20 41 55 53 57 45 52 54 45 4E 20 |DATEN AUSWERTEN | 00000330: 2A 2A 2A 2A 2A 2A 2A 00 57 0B 68 01 8B 20 28 4A |*******.W.h.. (J| 00000340: 31 20 AF 20 20 31 29 20 B2 20 30 20 A7 20 59 32 |1 . 1) . 0 . Y2| 00000350: 20 B2 20 59 32 AB 31 00 77 0B 72 01 8B 20 28 4A | . Y2.1.w.r.. (J| 00000360: 31 20 AF 20 20 32 29 20 B2 20 30 20 A7 20 59 32 |1 . 2) . 0 . Y2| 00000370: 20 B2 20 59 32 AA 31 00 97 0B 7C 01 8B 20 28 4A | . Y2.1...|.. (J| 00000380: 31 20 AF 20 20 34 29 20 B2 20 30 20 A7 20 58 32 |1 . 4) . 0 . X2| 00000390: 20 B2 20 58 32 AB 31 00 B7 0B 86 01 8B 20 28 4A | . X2.1...... (J| 000003A0: 31 20 AF 20 20 38 29 20 B2 20 30 20 A7 20 58 32 |1 . 8) . 0 . X2| 000003B0: 20 B2 20 58 32 AA 31 00 D4 0B 90 01 8B 20 28 4A | . X2.1...... (J| 000003C0: 31 20 AF 20 31 36 29 20 B2 20 30 20 A7 20 46 20 |1 . 16) . 0 . F | 000003D0: 20 B2 20 31 00 DA 0B 9A 01 20 00 00 0C A4 01 8F | . 1..... ......| 000003E0: 20 2A 2A 20 4B 4F 4F 52 44 49 4E 41 54 45 4E 20 | ** KOORDINATEN | 000003F0: 4B 4F 4E 54 52 4F 4C 4C 49 45 52 45 4E 20 2A 2A |KONTROLLIEREN **| 00000400: 00 18 0C AE 01 8B 20 58 32 20 B3 20 30 20 20 20 |...... X2 . 0 | 00000410: A7 20 58 32 20 B2 20 30 00 30 0C B8 01 8B 20 59 |. X2 . 0.0.... Y| 00000420: 32 20 B3 20 30 20 20 20 A7 20 59 32 20 B2 20 30 |2 . 0 . Y2 . 0| 00000430: 00 4A 0C C2 01 8B 20 58 32 20 B1 20 43 AB 31 20 |.J.... X2 . C.1 | 00000440: A7 20 58 32 20 B2 20 43 AB 31 00 64 0C CC 01 8B |. X2 . C.1.d....| 00000450: 20 59 32 20 B1 20 44 AB 31 20 A7 20 59 32 20 B2 | Y2 . D.1 . Y2 .| 00000460: 20 44 AB 31 00 6A 0C D6 01 20 00 90 0C E0 01 8F | D.1.j... ......| 00000470: 20 2A 2A 2A 2A 2A 2A 2A 2A 20 50 55 4E 4B 54 20 | ******** PUNKT | 00000480: 42 45 57 45 47 45 4E 20 2A 2A 2A 2A 2A 2A 2A 2A |BEWEGEN ********| 00000490: 00 AD 0C EA 01 8B 20 46 20 B2 20 30 20 A7 20 97 |...... F . 0 . .| 000004A0: 20 41 AA 58 31 AA 59 31 AC 43 2C 33 32 00 C0 0C | A.X1.Y1.C,32...| 000004B0: F4 01 97 20 41 AA 58 32 AA 59 32 AC 43 2C 38 31 |... A.X2.Y2.C,81| 000004C0: 00 D2 0C FE 01 97 20 42 AA 58 32 AA 59 32 AC 43 |...... B.X2.Y2.C| 000004D0: 2C 31 00 D8 0C 08 02 20 00 FE 0C 12 02 8F 20 2A |,1..... ...... *| 000004E0: 2A 20 4E 45 55 45 20 57 45 52 54 45 20 26 20 52 |* NEUE WERTE & R| 000004F0: 55 45 43 4B 53 50 52 55 4E 47 20 20 2A 2A 00 1C |UECKSPRUNG **..| 00000500: 0D 1C 02 58 31 20 B2 20 58 32 20 3A 20 59 31 20 |...X1 . X2 : Y1 | 00000510: B2 20 59 32 20 3A 20 46 20 B2 20 30 00 26 0D 26 |. Y2 : F . 0.&.&| 00000520: 02 89 20 33 32 30 00 2C 0D 30 02 20 00 32 0D 3A |.. 320.,.0. .2.:| 00000530: 02 20 00 38 0D 44 02 20 00 5E 0D 4E 02 8F 20 2A |. .8.D. .^.N.. *| 00000540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 84 |**************..| 00000560: 0D 58 02 8F 20 2A 2A 2A 20 41 45 4E 44 45 52 55 |.X.. *** AENDERU| 00000570: 4E 47 45 4E 20 46 55 45 52 20 56 43 2D 32 30 20 |NGEN FUER VC-20 | 00000580: 20 2A 2A 2A 00 AA 0D 62 02 8F 20 2A 2A 2A 2A 2A | ***...b.. *****| 00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B0 0D 6C 02 8F |**********...l..| 000005B0: 00 D0 0D 76 02 8F 20 41 45 4E 44 45 52 4E 20 53 |...v.. AENDERN S| 000005C0: 49 45 20 44 49 45 53 45 20 5A 45 49 4C 45 4E 3A |IE DIESE ZEILEN:| 000005D0: 00 D6 0D 80 02 8F 00 F5 0D 8A 02 8F 20 32 35 30 |............ 250| 000005E0: 20 50 4F 4B 45 20 33 36 38 37 39 2C 31 30 20 3A | POKE 36879,10 :| 000005F0: 20 44 3D 32 33 00 1B 0E 94 02 8F 20 32 36 30 20 | D=23...... 260 | 00000600: 50 52 49 4E 54 20 22 93 22 20 3A 20 41 3D 37 36 |PRINT "." : A=76| 00000610: 38 30 20 3A 20 42 3D 33 38 34 30 00 2E 0E 9E 02 |80 : B=3840.....| 00000620: 8F 20 20 20 20 20 30 20 3A 20 43 3D 32 32 00 54 |. 0 : C=22.T| 00000630: 0E A8 02 8F 20 33 30 30 20 50 4F 4B 45 33 37 31 |.... 300 POKE371| 00000640: 33 39 2C 30 20 3A 20 50 4F 4B 45 33 37 31 35 34 |39,0 : POKE37154| 00000650: 2C 31 32 37 00 70 0E B2 02 8F 20 33 33 30 20 4A |,127.p.... 330 J| 00000660: 31 20 3D 20 50 45 45 4B 20 28 33 37 31 33 37 29 |1 = PEEK (37137)| 00000670: 00 8C 0E BC 02 8F 20 33 33 35 20 4A 32 20 3D 20 |...... 335 J2 = | 00000680: 50 45 45 4B 20 28 33 37 31 35 32 29 00 B2 0E C6 |PEEK (37152)....| 00000690: 02 8F 20 33 39 30 20 49 46 28 4A 32 41 4E 44 31 |.. 390 IF(J2AND1| 000006A0: 32 38 29 3D 30 20 54 48 45 4E 20 58 32 3D 58 32 |28)=0 THEN X2=X2| 000006B0: 2B 31 00 B8 0E D0 02 8F 00 DC 0E DA 02 8F 20 49 |+1............ I| 000006C0: 4E 20 44 45 4E 20 5A 45 49 4C 45 4E 20 33 36 30 |N DEN ZEILEN 360| 000006D0: 2D 33 38 30 20 55 4E 44 20 34 30 30 00 00 0F E4 |-380 UND 400....| 000006E0: 02 8F 20 44 49 45 20 57 45 52 54 45 20 4D 49 54 |.. DIE WERTE MIT| 000006F0: 20 44 45 4E 45 4E 20 4A 31 20 22 41 4E 44 22 2D | DENEN J1 "AND"-| 00000700: 00 26 0F EE 02 8F 20 56 45 52 47 4C 49 43 48 45 |.&.... VERGLICHE| 00000710: 4E 20 57 49 52 44 20 44 45 52 20 52 45 49 48 45 |N WIRD DER REIHE| 00000720: 4E 46 4F 4C 47 45 00 4B 0F F8 02 8F 20 4E 41 43 |NFOLGE.K.... NAC| 00000730: 48 20 44 55 52 43 48 20 34 2C 38 2C 31 36 2C 33 |H DURCH 4,8,16,3| 00000740: 32 20 45 52 53 45 54 5A 45 4E 2E 00 00 00 |2 ERSETZEN.... |
..'.D.. *******************************.
M.N.. * *.S.
X.. * J O Y S T I C K D E M O 1 *.....
. * --------------------------- *......
* *...... *
BY TOBIAS NICOL *... .. *
*.1.... *
NEUWIESENSTRASSE 20 *.W.... *
*.}.... * 60
00 FRANKFURT 71 *...H.. *
*.I.R.. **************
*****************.O... ...... ******* IN
ITIALISIERUNG *******.....X1.0 : Y1.0 :
X2.0 : Y2.0 : F.0.:.... 53280,2 : . 5328
1,0 : D.25.^.... "." : A.1024 : B.55296
: C.40.D... ...... **** EINGABE AUF JOYS
TICK ****...".. **** AN PORT 1 UMSTELL
EN ****.L.,.. 56323,B (56323) . 224.R.6
. ...@.. **** JOYSTICKPORT AUSLESEN ****
...J.J1 . B (56321)...T. .7.^.. *******
DATEN AUSWERTEN *******.W.H.. (J1 . 1)
. 0 . Y2 . Y2.1.W.R.. (J1 . 2) . 0 . Y2
. Y2.1...|.. (J1 . 4) . 0 . X2 . X2.1.
..... (J1 . 8) . 0 . X2 . X2.1.T.... (J
1 . 16) . 0 . F . 1.Z... ...... ** KOOR
DINATEN KONTROLLIEREN **...... X2 . 0
. X2 . 0.0.... Y2 . 0 . Y2 . 0.J.B.. X
2 . C.1 . X2 . C.1.D.L.. Y2 . D.1 . Y2 .
D.1.J.V. ...... ******** PUNKT BEWEGEN
********...... F . 0 . . A.X1.Y1.C,32...
... A.X2.Y2.C,81.R.... B.X2.Y2.C,1.X...
...... ** NEUE WERTE & RUECKSPRUNG **..
...X1 . X2 : Y1 . Y2 : F . 0.&.&.. 320.,
.0. .2.:. .8.D. .^.N.. *****************
**************...X.. *** AENDERUNGEN FUE
R VC-20 ***...B.. *********************
**********...L...P.V.. AENDERN SIE DIESE
ZEILEN:.V.......... 250 POKE 36879,10 :
D=23...... 260 PRINT "." : A=7680 : B=3
840...... 0 : C=22.T.... 300 POKE371
39,0 : POKE37154,127.P.... 330 J1 = PEEK
(37137)...... 335 J2 = PEEK (37152)...F
.. 390 IF(J2AND128)=0 THEN X2=X2+1...P..
...Z.. IN DEN ZEILEN 360-380 UND 400....
.. DIE WERTE MIT DENEN J1 "AND"-.&.... V
ERGLICHEN WIRD DER REIHENFOLGE.K.... NAC
H DURCH 4,8,16,32 ERSETZEN....
> CLICK IMAGE PREVIEW FOR FULL MODAL