JOY3

FILE INFORMATION

FILENAME(S): JOY3

FILE TYPE(S): PRG

FILE SIZE: 812b

FIRST SEEN: 2025-11-30 21:11:00

APPEARS ON: 1 disk(s)

FILE HASH

cedc0ccd77bee046689e51f95e9be99e2a5dc508d17e59a307a2003b573fd74d

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SPEEDY WERK	JOY3	PRG	DuncanTwain	19	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 0F 08 0A 00 CF 52  47 20 24 43 30 30 30 00  |.......RG $C000.|
00000010: 21 08 14 00 4A 4F 59 20  44 45 46 20 24 44 43 30  |!...JOY DEF $DC0|
00000020: 30 00 31 08 1E 00 4F 50  20 44 45 46 20 23 24 30  |0.1...OP DEF #$0|
00000030: 31 00 43 08 28 00 4E 45  45 52 20 44 45 46 20 23  |1.C.(.NEER DEF #|
00000040: 24 30 32 00 56 08 32 00  4C 49 4E 4B 53 20 44 45  |$02.V.2.LINKS DE|
00000050: 46 20 23 24 30 34 00 69  08 3C 00 52 45 43 48 54  |F #$04.i.<.RECHT|
00000060: 20 44 45 46 20 23 24 30  38 00 7D 08 46 00 50 52  | DEF #$08.}.F.PR|
00000070: 49 4E 54 20 44 45 46 20  24 46 46 44 32 00 8F 08  |INT DEF $FFD2...|
00000080: 50 00 4F 4C 44 20 44 45  46 20 24 45 41 33 31 00  |P.OLD DEF $EA31.|
00000090: 95 08 5A 00 3B 00 A8 08  64 00 3B 49 4E 49 54 49  |..Z.;...d.;INITI|
000000A0: 41 4C 49 53 45 52 45 4E  00 AE 08 6E 00 3B 00 C1  |ALISEREN...n.;..|
000000B0: 08 78 00 42 45 47 49 4E  20 4C 44 41 20 23 24 39  |.x.BEGIN LDA #$9|
000000C0: 33 00 CF 08 82 00 CA 53  52 20 50 52 49 4E 54 00  |3......SR PRINT.|
000000D0: DC 08 8C 00 CC 44 41 20  23 24 30 32 00 EA 08 96  |.....DA #$02....|
000000E0: 00 D3 54 41 20 24 44 30  32 30 00 F8 08 A0 00 D3  |..TA $D020......|
000000F0: 54 41 20 24 44 30 32 31  00 05 09 A1 00 CC 44 58  |TA $D021......DX|
00000100: 20 23 24 30 30 00 12 09  A2 00 CC 44 59 20 23 24  | #$00......DY #$|
00000110: 30 30 00 1C 09 A3 00 4C  20 49 4E 59 00 26 09 A4  |00.....L INY.&..|
00000120: 00 C2 4E 45 20 4C 00 2E  09 A5 00 C9 4E 58 00 38  |..NE L......NX.8|
00000130: 09 A6 00 C2 4E 45 20 4C  00 3E 09 AA 00 3B 00 57  |....NE L.>...;.W|
00000140: 09 B4 00 3B 53 45 54 20  4E 49 45 55 57 20 49 4E  |...;SET NIEUW IN|
00000150: 54 45 52 52 55 50 54 00  5D 09 BE 00 3B 00 65 09  |TERRUPT.]...;.e.|
00000160: C8 00 D3 45 49 00 75 09  D2 00 CC 44 41 20 23 B3  |...EI.u....DA #.|
00000170: 49 4E 54 45 52 00 83 09  DC 00 D3 54 41 20 24 30  |INTER......TA $0|
00000180: 33 31 34 00 93 09 E6 00  CC 44 41 20 23 B1 49 4E  |314......DA #.IN|
00000190: 54 45 52 00 A1 09 F0 00  D3 54 41 20 24 30 33 31  |TER......TA $031|
000001A0: 35 00 A9 09 FA 00 C3 4C  49 00 B1 09 FF 00 D2 54  |5......LI......T|
000001B0: 53 00 B7 09 04 01 3B 00  D0 09 0E 01 3B 20 4E 49  |S.....;.....; NI|
000001C0: 45 55 57 20 49 4E 54 45  52 52 55 50 54 20 21 21  |EUW INTERRUPT !!|
000001D0: 00 D6 09 22 01 3B 00 E8  09 2C 01 49 4E 54 45 52  |...".;...,.INTER|
000001E0: 20 4C 44 41 20 4A 4F 59  00 F5 09 36 01 C1 4E 44  | LDA JOY...6..ND|
000001F0: 20 23 24 30 31 00 02 0A  40 01 C2 4E 45 20 44 4F  | #$01...@..NE DO|
00000200: 57 4E 00 0F 0A 4A 01 CC  44 41 20 23 24 30 30 00  |WN...J..DA #$00.|
00000210: 1D 0A 54 01 D3 54 41 20  24 44 30 32 30 00 2A 0A  |..T..TA $D020.*.|
00000220: 59 01 CA 4D 50 20 45 49  4E 44 00 3B 0A 5E 01 44  |Y..MP EIND.;.^.D|
00000230: 4F 57 4E 20 4C 44 41 20  4A 4F 59 00 48 0A 68 01  |OWN LDA JOY.H.h.|
00000240: C1 4E 44 20 23 24 30 32  00 55 0A 72 01 C2 4E 45  |.ND #$02.U.r..NE|
00000250: 20 4C 45 46 54 00 62 0A  7C 01 CC 44 41 20 23 24  | LEFT.b.|..DA #$|
00000260: 30 30 00 70 0A 86 01 D3  54 41 20 24 44 30 32 31  |00.p....TA $D021|
00000270: 00 7D 0A 8B 01 CA 4D 50  20 45 49 4E 44 00 8E 0A  |.}....MP EIND...|
00000280: 90 01 4C 45 46 54 20 4C  44 41 20 4A 4F 59 00 9B  |..LEFT LDA JOY..|
00000290: 0A 9A 01 C1 4E 44 20 23  24 30 34 00 A9 0A A4 01  |....ND #$04.....|
000002A0: C2 4E 45 20 52 49 47 48  54 00 B6 0A AE 01 CC 44  |.NE RIGHT......D|
000002B0: 41 20 23 24 30 32 00 C4  0A B8 01 D3 54 41 20 24  |A #$02......TA $|
000002C0: 44 30 32 30 00 D1 0A BD  01 CA 4D 50 20 45 49 4E  |D020......MP EIN|
000002D0: 44 00 E3 0A C2 01 52 49  47 48 54 20 4C 44 41 20  |D.....RIGHT LDA |
000002E0: 4A 4F 59 00 F0 0A CC 01  C1 4E 44 20 23 24 30 38  |JOY......ND #$08|
000002F0: 00 FD 0A D6 01 C2 4E 45  20 45 49 4E 44 00 0A 0B  |......NE EIND...|
00000300: E0 01 CC 44 41 20 23 24  30 32 00 18 0B EA 01 D3  |...DA #$02......|
00000310: 54 41 20 24 44 30 32 31  00 29 0B F4 01 45 49 4E  |TA $D021.)...EIN|
00000320: 44 20 4A 4D 50 20 4F 4C  44 00 00 00              |D JMP OLD...    |

......ORG $C000.!...JOY DEF $DC00.1...OP
 DEF #$01.C.(.NEER DEF #$02.V.2.LINKS DE
F #$04.I.<.RECHT DEF #$08.}.F.PRINT DEF 
$FFD2...P.OLD DEF $EA31...Z.;...D.;INITI
ALISEREN...N.;.A.X.BEGIN LDA #$93.O...JS
R PRINT.....LDA #$02.....STA $D020... .S
TA $D021.....LDX #$00.....LDY #$00.....L
 INY.&...BNE L.....INX.8...BNE L.>...;.W
...;SET NIEUW INTERRUPT.]...;.E.H.SEI.U.
R.LDA #.INTER.....STA $0314.....LDA #.IN
TER.....STA $0315.....CLI.....RTS.....;.
P...; NIEUW INTERRUPT !!.V.".;...,.INTER
 LDA JOY...6.AND #$01...@.BNE DOWN...J.L
DA #$00...T.STA $D020.*.Y.JMP EIND.;.^.D
OWN LDA JOY.H.H.AND #$02.U.R.BNE LEFT.B.
|.LDA #$00.P...STA $D021.}...JMP EIND...
..LEFT LDA JOY.....AND #$04.....BNE RIGH
T.....LDA #$02.D...STA $D020.Q...JMP EIN
D...B.RIGHT LDA JOY...L.AND #$08...V.BNE
 EIND.....LDA #$02.....STA $D021.)...EIN
D JMP OLD...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL