JOYSTICK
FILE INFORMATION
FILENAME(S): JOYSTICK
FILE TYPE(S): PRG
FILE SIZE: 1K
FIRST SEEN: 2025-11-30 21:17:02
APPEARS ON: 1 disk(s)
FILE HASH
f56f154d44bf2bfffd3ab7c6bda442dded72a8035872e937217233957db6e6e9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPEEDY | JOYSTICK | PRG | DuncanTwain | 15 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 05 00 CF 52 47 20 24 43 30 30 30 00 |.......RG $C000.| 00000010: 21 08 0A 00 4A 4F 59 20 44 45 46 20 24 44 43 30 |!...JOY DEF $DC0| 00000020: 30 00 35 08 14 00 50 52 49 4E 54 20 44 45 46 20 |0.5...PRINT DEF | 00000030: 24 46 46 44 32 00 46 08 1E 00 4F 50 20 44 45 46 |$FFD2.F...OP DEF| 00000040: 20 23 24 20 30 31 00 59 08 28 00 4E 45 45 52 20 | #$ 01.Y.(.NEER | 00000050: 44 45 46 20 23 24 20 30 32 00 6C 08 32 00 4C 49 |DEF #$ 02.l.2.LI| 00000060: 4E 4B 53 20 44 45 46 20 23 24 30 34 00 80 08 3C |NKS DEF #$04...<| 00000070: 00 52 45 43 48 54 53 20 44 45 46 20 23 24 30 38 |.RECHTS DEF #$08| 00000080: 00 94 08 46 00 3B 20 49 4E 49 54 49 41 4C 49 53 |...F.; INITIALIS| 00000090: 45 52 45 4E 00 A8 08 50 00 3B 2A 2A 2A 2A 2A 2A |EREN...P.;******| 000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 00 CB 08 5A 00 CC 44 41 |********...Z..DA| 000000B0: 20 23 24 39 33 20 20 20 3B 4D 41 41 4B 20 53 43 | #$93 ;MAAK SC| 000000C0: 48 45 52 4D 20 53 43 48 4F 4F 4E 00 D9 08 64 00 |HERM SCHOON...d.| 000000D0: CA 53 52 20 50 52 49 4E 54 00 F3 08 6E 00 CC 44 |.SR PRINT...n..D| 000000E0: 41 20 23 24 30 32 20 3B 20 4B 4C 45 55 52 20 52 |A #$02 ; KLEUR R| 000000F0: 4F 4F 44 00 08 09 78 00 D3 54 41 20 24 44 30 32 |OOD...x..TA $D02| 00000100: 30 20 3B 20 52 41 4E 44 00 1F 09 82 00 D3 54 41 |0 ; RAND......TA| 00000110: 20 24 44 30 32 31 20 3B 20 53 43 48 45 52 4D 00 | $D021 ; SCHERM.| 00000120: 36 09 8C 00 3B 20 4A 4F 59 53 54 49 43 4B 20 52 |6...; JOYSTICK R| 00000130: 4F 55 54 49 4E 45 00 4D 09 96 00 3B 20 2A 2A 2A |OUTINE.M...; ***| 00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5C 09 |*************.\.| 00000150: A0 00 55 50 20 4C 44 41 20 4A 4F 59 00 67 09 AA |..UP LDA JOY.g..| 00000160: 00 C3 4D 50 20 4F 50 00 74 09 B4 00 C2 4E 45 20 |..MP OP.t....NE | 00000170: 44 4F 57 4E 00 82 09 BE 00 CC 44 58 20 23 B3 20 |DOWN......DX #. | 00000180: 54 4F 00 8E 09 C8 00 D3 54 58 20 24 46 42 00 9C |TO......TX $FB..| 00000190: 09 D2 00 CC 44 58 20 23 B1 20 54 4F 00 A8 09 DC |....DX #. TO....| 000001A0: 00 D3 54 58 20 24 46 43 00 B3 09 E6 00 CA 4D 50 |..TX $FC......MP| 000001B0: 20 4D 50 00 C4 09 F0 00 44 4F 57 4E 20 4C 44 41 | MP.....DOWN LDA| 000001C0: 20 4A 4F 59 00 D1 09 FA 00 C3 4D 50 20 4E 45 45 | JOY......MP NEE| 000001D0: 52 00 DE 09 04 01 C2 4E 45 20 4C 45 46 54 00 EC |R......NE LEFT..| 000001E0: 09 0E 01 CC 44 58 20 23 B3 20 54 4E 00 F8 09 18 |....DX #. TN....| 000001F0: 01 D3 54 58 20 24 46 42 00 06 0A 22 01 CC 44 58 |..TX $FB..."..DX| 00000200: 20 23 B1 20 54 4E 00 12 0A 2C 01 D3 54 58 20 24 | #. TN...,..TX $| 00000210: 46 43 00 1D 0A 36 01 CA 4D 50 20 4D 50 00 2E 0A |FC...6..MP MP...| 00000220: 40 01 4C 45 46 54 20 4C 44 41 20 4A 4F 59 00 3C |@.LEFT LDA JOY.<| 00000230: 0A 4A 01 C3 4D 50 20 4C 49 4E 4B 53 00 4A 0A 54 |.J..MP LINKS.J.T| 00000240: 01 C2 4E 45 20 52 49 47 48 54 00 58 0A 5E 01 CC |..NE RIGHT.X.^..| 00000250: 44 58 20 23 B3 20 54 4C 00 64 0A 68 01 D3 54 58 |DX #. TL.d.h..TX| 00000260: 20 24 46 42 00 72 0A 72 01 CC 44 58 20 23 B1 20 | $FB.r.r..DX #. | 00000270: 54 4C 00 7E 0A 7C 01 D3 54 58 20 24 46 43 00 89 |TL.~.|..TX $FC..| 00000280: 0A 86 01 CA 4D 50 20 4D 50 00 9B 0A 90 01 52 49 |....MP MP.....RI| 00000290: 47 48 54 20 4C 44 41 20 4A 4F 59 00 AA 0A 9A 01 |GHT LDA JOY.....| 000002A0: C3 4D 50 20 52 45 43 48 54 53 00 B5 0A A4 01 C2 |.MP RECHTS......| 000002B0: 4E 45 20 55 50 00 C3 0A AE 01 CC 44 58 20 23 B3 |NE UP......DX #.| 000002C0: 20 54 52 00 CF 0A B8 01 D3 54 58 20 24 46 42 00 | TR......TX $FB.| 000002D0: DD 0A C2 01 CC 44 58 20 23 B1 20 54 52 00 E9 0A |.....DX #. TR...| 000002E0: CC 01 D3 54 58 20 24 46 43 00 F4 0A D6 01 CA 4D |...TX $FC......M| 000002F0: 50 20 4D 50 00 08 0B E0 01 3B 20 4D 41 43 48 49 |P MP.....; MACHI| 00000300: 4E 45 20 50 52 49 4E 54 00 1C 0B EA 01 3B 20 2A |NE PRINT.....; *| 00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2C 0B F4 |************.,..| 00000320: 01 4D 50 20 4C 44 59 20 23 24 30 30 00 40 0B FE |.MP LDY #$00.@..| 00000330: 01 4C 55 53 20 4C 44 41 20 28 24 46 42 29 2C 59 |.LUS LDA ($FB),Y| 00000340: 00 4D 0B 08 02 C3 4D 50 20 23 24 30 30 00 58 0B |.M....MP #$00.X.| 00000350: 12 02 C2 45 51 20 55 50 00 66 0B 1C 02 CA 53 52 |...EQ UP.f....SR| 00000360: 20 50 52 49 4E 54 00 6E 0B 26 02 C9 4E 59 00 7A | PRINT.n.&..NY.z| 00000370: 0B 30 02 CA 4D 50 20 4C 55 53 00 96 0B 3A 02 3B |.0..MP LUS...:.;| 00000380: 20 44 41 54 41 20 56 4F 4F 52 20 44 45 20 4A 4F | DATA VOOR DE JO| 00000390: 59 53 54 49 43 4B 00 B8 0B 44 02 54 4F 20 44 41 |YSTICK...D.TO DA| 000003A0: 54 20 39 33 2C 22 20 20 44 49 54 20 49 53 20 4F |T 93," DIT IS O| 000003B0: 50 20 20 20 20 22 2C 30 00 DA 0B 4E 02 54 4E 20 |P ",0...N.TN | 000003C0: 44 41 54 20 39 33 2C 22 20 20 44 49 54 20 49 53 |DAT 93," DIT IS| 000003D0: 20 4E 45 45 52 20 20 22 2C 30 00 FC 0B 58 02 54 | NEER ",0...X.T| 000003E0: 4C 20 44 41 54 20 39 33 2C 22 20 20 44 49 54 20 |L DAT 93," DIT | 000003F0: 49 53 20 4C 49 4E 4B 53 20 22 2C 30 00 1E 0C 62 |IS LINKS ",0...b| 00000400: 02 54 52 20 44 41 54 20 39 33 2C 22 20 20 44 49 |.TR DAT 93," DI| 00000410: 54 20 49 53 20 52 45 43 48 54 53 22 2C 30 00 00 |T IS RECHTS",0..| 00000420: 00 |. |
......ORG $C000.!...JOY DEF $DC00.5...PR INT DEF $FFD2.F...OP DEF #$ 01.Y.(.NEER DEF #$ 02.L.2.LINKS DEF #$04...<.RECHTS DEF #$08...F.; INITIALISEREN...P.;****** ********.K.Z.LDA #$93 ;MAAK SCHERM SCH OON.Y.D.JSR PRINT...N.LDA #$02 ; KLEUR R OOD...X.STA $D020 ; RAND.....STA $D021 ; SCHERM.6...; JOYSTICK ROUTINE.M...; *** *************.\. .UP LDA JOY.G...CMP OP. T...BNE DOWN.....LDX #. TO...H.STX $FB.. .R.LDX #. TO.....STX $FC.....JMP MP.D... DOWN LDA JOY.Q...CMP NEER.....BNE LEFT.. ...LDX #. TN.....STX $FB...".LDX #. TN.. .,.STX $FC...6.JMP MP...@.LEFT LDA JOY.< .J.CMP LINKS.J.T.BNE RIGHT.X.^.LDX #. TL .D.H.STX $FB.R.R.LDX #. TL.~.|.STX $FC.. ...JMP MP.....RIGHT LDA JOY.....CMP RECH TS.....BNE UP.C...LDX #. TR.O...STX $FB. ..B.LDX #. TR...L.STX $FC...V.JMP MP.... .; MACHINE PRINT.....; *************.,.. .MP LDY #$00.@...LUS LDA ($FB),Y.M...CMP #$00.X...BEQ UP.F...JSR PRINT.N.&.INY.Z .0.JMP LUS...:.; DATA VOOR DE JOYSTICK.. .D.TO DAT 93," DIT IS OP ",0.Z.N.TN DAT 93," DIT IS NEER ",0...X.TL DAT 93 ," DIT IS LINKS ",0...B.TR DAT 93," DI T IS RECHTS",0...
> CLICK IMAGE PREVIEW FOR FULL MODAL