JOYSTICK READER
FILE INFORMATION
FILENAME(S): JOYSTICK READER
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 21:12:52
APPEARS ON: 1 disk(s)
FILE HASH
c9ad75e86539ff25085677ca40769e5e015ad3c71116ae6d86f06f2831c89bba
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR 4 | JOYSTICK READER | PRG | DuncanTwain | 14 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 30 04 00 00 8F 20 54 48 45 20 54 52 41 4E |..0.... THE TRAN| 00000010: 53 41 43 54 4F 52 20 56 4F 4C 55 4D 45 20 34 20 |SACTOR VOLUME 4 | 00000020: 49 53 53 55 45 20 30 32 20 50 41 47 45 20 36 30 |ISSUE 02 PAGE 60| 00000030: 00 4E 04 64 00 8F 20 53 41 4D 50 4C 45 20 4A 4F |.N.d.. SAMPLE JO| 00000040: 59 53 54 49 43 4B 20 50 52 4F 47 52 41 4D 00 77 |YSTICK PROGRAM.w| 00000050: 04 6E 00 53 58 B2 30 20 3A 20 53 59 B2 30 20 3A |.n.SX.0 : SY.0 :| 00000060: 20 99 22 5B 5B 53 43 32 36 31 5D 5D D3 5B 5B 53 | ."[[SC261]].[[S| 00000070: 43 32 36 32 5D 5D 22 00 A0 04 73 00 85 20 22 53 |C262]]"...s.. "S| 00000080: 45 4C 45 43 54 20 4A 4F 59 53 54 49 43 4B 20 50 |ELECT JOYSTICK P| 00000090: 4F 52 54 20 28 31 20 4F 52 20 32 29 22 3B 50 24 |ORT (1 OR 2)";P$| 000000A0: 00 BE 04 78 00 8B 20 50 24 B3 B1 22 31 22 20 B0 |...x.. P$.."1" .| 000000B0: 20 50 24 B3 B1 22 32 22 20 A7 20 31 31 35 00 E2 | P$.."2" . 115..| 000000C0: 04 C8 00 8D 20 36 33 30 30 30 20 3A 20 8F 20 47 |.... 63000 : . G| 000000D0: 45 54 20 4A 4F 59 53 54 49 43 4B 20 56 41 4C 55 |ET JOYSTICK VALU| 000000E0: 45 53 00 05 05 2C 01 8B 20 50 24 B2 22 31 22 20 |ES...,.. P$."1" | 000000F0: A7 20 53 58 B2 53 58 AA 41 58 20 3A 20 53 59 B2 |. SX.SX.AX : SY.| 00000100: 53 59 AA 41 59 00 28 05 31 01 8B 20 50 24 B2 22 |SY.AY.(.1.. P$."| 00000110: 32 22 20 A7 20 53 58 B2 53 58 AA 42 58 20 3A 20 |2" . SX.SX.BX : | 00000120: 53 59 B2 53 59 AA 42 59 00 42 05 36 01 8B 20 53 |SY.SY.BY.B.6.. S| 00000130: 58 B3 30 20 B0 20 53 58 B1 34 30 20 A7 20 53 58 |X.0 . SX.40 . SX| 00000140: B2 30 00 5C 05 40 01 8B 20 53 59 B3 30 20 B0 20 |.0.\.@.. SY.0 . | 00000150: 53 59 B1 34 30 20 A7 20 53 59 B2 30 00 79 05 90 |SY.40 . SY.0.y..| 00000160: 01 97 20 31 30 32 34 20 AA 20 53 58 20 AA 20 34 |.. 1024 . SX . 4| 00000170: 30 AC 53 59 2C 20 31 36 30 00 83 05 F4 01 89 20 |0.SY, 160...... | 00000180: 32 30 30 00 BE 05 18 F6 8F 22 CA 4F 59 53 54 49 |200......".OYSTI| 00000190: 43 4B 20 52 4F 55 54 49 4E 45 53 20 46 4F 52 20 |CK ROUTINES FOR | 000001A0: C3 36 34 20 42 59 20 C7 52 45 47 20 C2 45 41 55 |.64 BY .REG .EAU| 000001B0: 4D 4F 4E 54 20 C9 4E 47 45 52 53 4F 4C 4C 00 E5 |MONT .NGERSOLL..| 000001C0: 05 19 F6 8F 20 41 58 20 2D 20 58 20 56 41 4C 55 |.... AX - X VALU| 000001D0: 45 20 46 4F 52 20 4A 4F 59 53 54 49 43 4B 20 50 |E FOR JOYSTICK P| 000001E0: 4F 52 54 20 31 00 0C 06 1A F6 8F 20 41 59 20 2D |ORT 1...... AY -| 000001F0: 20 59 20 56 41 4C 55 45 20 46 4F 52 20 4A 4F 59 | Y VALUE FOR JOY| 00000200: 53 54 49 43 4B 20 50 4F 52 54 20 31 00 3B 06 1B |STICK PORT 1.;..| 00000210: F6 8F 20 46 41 20 2D 20 4E 4F 4E 20 5A 45 52 4F |.. FA - NON ZERO| 00000220: 20 49 46 20 46 49 52 45 42 55 54 54 4F 4E 20 31 | IF FIREBUTTON 1| 00000230: 20 49 53 20 50 52 45 53 53 45 44 00 62 06 1C F6 | IS PRESSED.b...| 00000240: 8F 20 42 58 20 2D 20 58 20 56 41 4C 55 45 20 46 |. BX - X VALUE F| 00000250: 4F 52 20 4A 4F 59 53 54 49 43 4B 20 50 4F 52 54 |OR JOYSTICK PORT| 00000260: 20 32 00 89 06 1D F6 8F 20 42 59 20 2D 20 59 20 | 2...... BY - Y | 00000270: 56 41 4C 55 45 20 46 4F 52 20 4A 4F 59 53 54 49 |VALUE FOR JOYSTI| 00000280: 43 4B 20 50 4F 52 54 20 32 00 B8 06 1E F6 8F 20 |CK PORT 2...... | 00000290: 46 42 20 2D 20 4E 4F 4E 20 5A 45 52 4F 20 49 46 |FB - NON ZERO IF| 000002A0: 20 46 49 52 45 42 55 54 54 4F 4E 20 32 20 49 53 | FIREBUTTON 2 IS| 000002B0: 20 50 52 45 53 53 45 44 00 F7 06 22 F6 8B 20 46 | PRESSED...".. F| 000002C0: 54 B2 30 20 A7 20 86 20 4A 28 31 2C 31 30 29 3A |T.0 . . J(1,10):| 000002D0: 20 81 20 4A B2 30 20 A4 20 31 30 20 3A 20 87 20 | . J.0 . 10 : . | 000002E0: 4A 28 30 2C 4C 29 2C 20 4A 28 31 2C 4C 29 20 3A |J(0,L), J(1,L) :| 000002F0: 82 3A 20 46 54 B2 31 00 43 07 27 F6 43 49 41 20 |.: FT.1.C.'.CIA | 00000300: B2 20 31 33 AC 34 30 39 36 20 AA 20 31 32 AC 32 |. 13.4096 . 12.2| 00000310: 35 36 20 20 20 20 20 20 20 20 20 3A 8F 20 53 45 |56 :. SE| 00000320: 54 20 50 4F 49 4E 54 45 52 20 54 4F 20 43 49 41 |T POINTER TO CIA| 00000330: 20 31 20 28 4A 4F 59 53 54 49 43 4B 20 50 4F 52 | 1 (JOYSTICK POR| 00000340: 54 53 29 00 7C 07 2C F6 97 20 43 49 41 AA 31 33 |TS).|.,.. CIA.13| 00000350: 2C 20 31 32 37 20 20 20 20 20 20 20 20 20 20 20 |, 127 | 00000360: 20 20 20 20 3A 8F 20 44 49 53 41 42 4C 45 20 49 | :. DISABLE I| 00000370: 52 51 20 49 4E 54 45 52 52 55 50 54 00 C2 07 36 |RQ INTERRUPT...6| 00000380: F6 97 20 43 49 41 AA 32 2C 20 30 20 3A 20 97 20 |.. CIA.2, 0 : . | 00000390: 43 49 41 AA 33 2C 20 30 20 20 20 20 20 20 20 3A |CIA.3, 0 :| 000003A0: 8F 20 53 45 54 20 42 4F 54 48 20 4A 4F 59 20 50 |. SET BOTH JOY P| 000003B0: 4F 52 54 53 20 54 4F 20 49 4E 50 55 54 20 4D 4F |ORTS TO INPUT MO| 000003C0: 44 45 00 03 08 40 F6 41 20 B2 20 32 35 35 AB C2 |DE...@.A . 255..| 000003D0: 28 43 49 41 29 20 3A 20 42 20 B2 20 32 35 35 AB |(CIA) : B . 255.| 000003E0: C2 28 43 49 41 AA 31 29 20 3A 8F 20 47 45 54 20 |.(CIA.1) :. GET | 000003F0: 52 41 57 20 4A 4F 59 53 54 49 43 4B 20 56 41 4C |RAW JOYSTICK VAL| 00000400: 55 45 53 00 41 08 4A F6 46 41 20 B2 20 41 20 AF |UES.A.J.FA . A .| 00000410: 20 31 36 20 3A 20 46 42 20 B2 20 42 20 AF 20 31 | 16 : FB . B . 1| 00000420: 36 20 20 20 20 20 20 20 3A 8F 20 53 45 54 20 46 |6 :. SET F| 00000430: 49 52 45 20 42 55 54 54 4F 4E 20 53 54 41 54 55 |IRE BUTTON STATU| 00000440: 53 00 89 08 54 F6 41 58 20 B2 20 4A 28 30 2C 20 |S...T.AX . J(0, | 00000450: 41 20 AF 20 31 35 29 20 3A 20 41 59 20 B2 20 4A |A . 15) : AY . J| 00000460: 28 31 2C 20 41 20 AF 20 31 35 29 20 3A 8F 20 53 |(1, A . 15) :. S| 00000470: 45 54 20 4A 4F 59 53 54 49 43 4B 20 50 4F 52 54 |ET JOYSTICK PORT| 00000480: 20 31 20 56 41 4C 55 45 53 00 D1 08 5E F6 42 58 | 1 VALUES...^.BX| 00000490: 20 B2 20 4A 28 30 2C 20 42 20 AF 20 31 35 29 20 | . J(0, B . 15) | 000004A0: 3A 20 42 59 20 B2 20 4A 28 31 2C 20 42 20 AF 20 |: BY . J(1, B . | 000004B0: 31 35 29 20 3A 8F 20 53 45 54 20 4A 4F 59 53 54 |15) :. SET JOYST| 000004C0: 49 43 4B 20 50 4F 52 54 20 32 20 56 41 4C 55 45 |ICK PORT 2 VALUE| 000004D0: 53 00 16 09 68 F6 97 20 43 49 41 AA 32 2C 20 20 |S...h.. CIA.2, | 000004E0: 32 35 35 20 20 20 20 20 20 20 20 20 20 20 20 20 |255 | 000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 | :. | 00000500: 52 45 53 54 4F 52 45 20 52 45 47 55 4C 41 52 20 |RESTORE REGULAR | 00000510: 56 41 4C 55 45 53 00 5B 09 72 F6 97 20 43 49 41 |VALUES.[.r.. CIA| 00000520: AA 31 33 2C 20 32 35 35 20 20 20 20 20 20 20 20 |.13, 255 | 00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000540: 20 20 3A 8F 20 52 45 53 54 4F 52 45 20 49 52 51 | :. RESTORE IRQ| 00000550: 20 49 4E 54 45 52 52 55 50 54 53 00 61 09 7C F6 | INTERRUPTS.a.|.| 00000560: 8E 00 AC 09 FF F9 83 20 30 2C 20 30 2C 20 30 2C |....... 0, 0, 0,| 00000570: 20 2D 31 2C 20 30 2C 20 31 2C 20 30 2C 20 30 2C | -1, 0, 1, 0, 0,| 00000580: 20 2D 31 2C 20 30 2C 20 2D 31 2C 20 2D 31 2C 2D | -1, 0, -1, -1,-| 00000590: 31 2C 20 31 2C 20 30 2C 20 30 2C 20 31 2C 20 30 |1, 1, 0, 0, 1, 0| 000005A0: 2C 20 31 2C 20 2D 31 2C 20 31 2C 31 00 00 00 |, 1, -1, 1,1... |
..0.... THE TRANSACTOR VOLUME 4 ISSUE 02
PAGE 60.N.D.. SAMPLE JOYSTICK PROGRAM.W
.N.SX.0 : SY.0 : ."[[SC261]]S[[SC262]]".
.S.. "SELECT JOYSTICK PORT (1 OR 2)";P$
...X.. P$.."1" . P$.."2" . 115...H.. 630
00 : . GET JOYSTICK VALUES...,.. P$."1"
. SX.SX.AX : SY.SY.AY.(.1.. P$."2" . SX.
SX.BX : SY.SY.BY.B.6.. SX.0 . SX.40 . SX
.0.\.@.. SY.0 . SY.40 . SY.0.Y.... 1024
. SX . 40.SY, 160...... 200......"JOYSTI
CK ROUTINES FOR C64 BY GREG BEAUMONT ING
ERSOLL...... AX - X VALUE FOR JOYSTICK P
ORT 1...... AY - Y VALUE FOR JOYSTICK PO
RT 1.;.... FA - NON ZERO IF FIREBUTTON 1
IS PRESSED.B.... BX - X VALUE FOR JOYST
ICK PORT 2...... BY - Y VALUE FOR JOYSTI
CK PORT 2...... FB - NON ZERO IF FIREBUT
TON 2 IS PRESSED...".. FT.0 . . J(1,10):
. J.0 . 10 : . J(0,L), J(1,L) :.: FT.1.
C.'.CIA . 13.4096 . 12.256 :. SE
T POINTER TO CIA 1 (JOYSTICK PORTS).|.,.
. CIA.13, 127 :. DISABLE I
RQ INTERRUPT.B.6.. CIA.2, 0 : . CIA.3, 0
:. SET BOTH JOY PORTS TO INPUT MO
DE...@.A . 255.B(CIA) : B . 255.B(CIA.1)
:. GET RAW JOYSTICK VALUES.A.J.FA . A .
16 : FB . B . 16 :. SET FIRE BUTT
ON STATUS...T.AX . J(0, A . 15) : AY . J
(1, A . 15) :. SET JOYSTICK PORT 1 VALUE
S.Q.^.BX . J(0, B . 15) : BY . J(1, B .
15) :. SET JOYSTICK PORT 2 VALUES...H..
CIA.2, 255 :.
RESTORE REGULAR VALUES.[.R.. CIA.13, 255
:. RESTORE IRQ
INTERRUPTS.A.|........ 0, 0, 0, -1, 0,
1, 0, 0, -1, 0, -1, -1,-1, 1, 0, 0, 1, 0
, 1, -1, 1,1...
> CLICK IMAGE PREVIEW FOR FULL MODAL