JOY2
FILE INFORMATION
FILENAME(S): JOY2
FILE TYPE(S): PRG
FILE SIZE: 701b
FIRST SEEN: 2025-11-30 21:11:00
APPEARS ON: 1 disk(s)
FILE HASH
8e4ca2f67abdd8b75452835023454c58a4daaaee7c06e1d4563f6086ea8260bd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPEEDY WERK | JOY2 | PRG | DuncanTwain | 17 | 10 | 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 4E 45 45 52 00 EA 08 96 |.....DA NEER....| 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 FE 08 AA 00 3B 00 17 |TA $D021.....;..| 00000100: 09 B4 00 3B 53 45 54 20 4E 49 45 55 57 20 49 4E |...;SET NIEUW IN| 00000110: 54 45 52 52 55 50 54 00 1D 09 BE 00 3B 00 25 09 |TERRUPT.....;.%.| 00000120: C8 00 D3 45 49 00 35 09 D2 00 CC 44 41 20 23 B3 |...EI.5....DA #.| 00000130: 49 4E 54 45 52 00 43 09 DC 00 D3 54 41 20 24 30 |INTER.C....TA $0| 00000140: 33 31 34 00 53 09 E6 00 CC 44 41 20 23 B1 49 4E |314.S....DA #.IN| 00000150: 54 45 52 00 61 09 F0 00 D3 54 41 20 24 30 33 31 |TER.a....TA $031| 00000160: 35 00 69 09 FA 00 C3 4C 49 00 6F 09 04 01 3B 00 |5.i....LI.o...;.| 00000170: 88 09 0E 01 3B 20 4E 49 45 55 57 20 49 4E 54 45 |....; NIEUW INTE| 00000180: 52 52 55 50 54 20 21 21 00 8E 09 22 01 3B 00 A0 |RRUPT !!...".;..| 00000190: 09 2C 01 49 4E 54 45 52 20 4C 44 41 20 4A 4F 59 |.,.INTER LDA JOY| 000001A0: 00 AB 09 36 01 C1 4E 44 20 4F 50 00 B8 09 40 01 |...6..ND OP...@.| 000001B0: C2 4E 45 20 44 4F 57 4E 00 C5 09 4A 01 CC 44 41 |.NE DOWN...J..DA| 000001C0: 20 23 24 30 30 00 D3 09 54 01 D3 54 41 20 24 44 | #$00...T..TA $D| 000001D0: 30 32 30 00 E4 09 5E 01 44 4F 57 4E 20 4C 44 41 |020...^.DOWN LDA| 000001E0: 20 4A 4F 59 00 F1 09 68 01 C1 4E 44 20 4E 45 45 | JOY...h..ND NEE| 000001F0: 52 00 FE 09 72 01 C2 4E 45 20 4C 45 46 54 00 0B |R...r..NE LEFT..| 00000200: 0A 7C 01 CC 44 41 20 23 24 30 30 00 19 0A 86 01 |.|..DA #$00.....| 00000210: D3 54 41 20 24 44 30 32 31 00 2A 0A 90 01 4C 45 |.TA $D021.*...LE| 00000220: 46 54 20 4C 44 41 20 4A 4F 59 00 38 0A 9A 01 C1 |FT LDA JOY.8....| 00000230: 4E 44 20 4C 49 4E 4B 53 00 46 0A A4 01 C2 4E 45 |ND LINKS.F....NE| 00000240: 20 52 49 47 48 54 00 53 0A AE 01 CC 44 41 20 23 | RIGHT.S....DA #| 00000250: 24 30 32 00 61 0A B8 01 D3 54 41 20 24 44 30 32 |$02.a....TA $D02| 00000260: 30 00 73 0A C2 01 52 49 47 48 54 20 4C 44 41 20 |0.s...RIGHT LDA | 00000270: 4A 4F 59 00 81 0A CC 01 C1 4E 44 20 52 45 43 48 |JOY......ND RECH| 00000280: 54 00 8E 0A D6 01 C2 4E 45 20 45 49 4E 44 00 9B |T......NE EIND..| 00000290: 0A E0 01 CC 44 41 20 23 24 30 32 00 A9 0A EA 01 |....DA #$02.....| 000002A0: D3 54 41 20 24 44 30 32 31 00 BA 0A F4 01 45 49 |.TA $D021.....EI| 000002B0: 4E 44 20 4A 4D 50 20 4F 4C 44 00 00 00 |ND 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 NEER.....STA $D020... .S TA $D021.....;.....;SET NIEUW INTERRUPT. ....;.%.H.SEI.5.R.LDA #.INTER.C...STA $0 314.S...LDA #.INTER.A...STA $0315.I...CL I.O...;.....; NIEUW INTERRUPT !!...".;. .,.INTER LDA JOY...6.AND OP...@.BNE DOWN .E.J.LDA #$00.S.T.STA $D020...^.DOWN LDA JOY...H.AND NEER...R.BNE LEFT...|.LDA # $00.....STA $D021.*...LEFT LDA JOY.8...A ND LINKS.F...BNE RIGHT.S...LDA #$02.A... STA $D020.S.B.RIGHT LDA JOY...L.AND RECH T...V.BNE EIND.....LDA #$02.....STA $D02 1.....EIND JMP OLD...
> CLICK IMAGE PREVIEW FOR FULL MODAL