JOYSTICKTEST.ASM
FILE INFORMATION
FILENAME(S): JOYSTICKTEST.ASM
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 20:09:38
APPEARS ON: 1 disk(s)
FILE HASH
b064b0236e202b442f157cb835133e7cbc9c7b7a18dc8fc8bf94d19784ec4e9a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RUN O THEK 6 86 | JOYSTICKTEST.ASM | PRG | Curtcool, Klaus & Jan | 20 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 64 00 AC B2 34 38 36 34 00 32 08 6E |....d...4864.2.n| 00000010: 00 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |.;..............| 00000020: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................| 00000030: AB AB 00 54 08 78 00 3B 20 20 20 20 20 4A 4F 59 |...T.x.; JOY| 00000040: 53 54 49 43 4B 20 AB 20 46 55 4E 4B 54 49 91 53 |STICK . FUNKTI.S| 00000050: 54 45 53 54 00 71 08 82 00 3B 20 20 20 20 20 20 |TEST.q...; | 00000060: 20 43 31 32 38 20 28 9A 52 4F 4C 50 B0 54 20 32 | C128 (.ROLP.T 2| 00000070: 29 00 97 08 8C 00 3B AB AB AB AB AB AB AB AB AB |).....;.........| 00000080: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................| 00000090: AB AB AB AB AB AB AB 00 A6 08 96 00 43 49 4E 56 |............CINV| 000000A0: B2 24 30 33 31 34 00 B6 08 A0 00 56 49 44 45 4F |.$0314.....VIDEO| 000000B0: B2 24 30 35 39 31 00 C7 08 AA 00 43 4F 4C 52 41 |.$0591.....COLRA| 000000C0: 4D B2 24 44 39 39 31 00 D4 08 B4 00 43 4F 4C B0 |M.$D991.....COL.| 000000D0: B2 24 46 31 00 E5 08 BE 00 43 49 41 50 52 41 B2 |.$F1.....CIAPRA.| 000000E0: 24 44 43 30 30 00 F3 08 C8 00 49 52 51 B2 24 46 |$DC00.....IRQ.$F| 000000F0: 41 36 35 00 0F 09 D2 00 53 45 49 20 3B B5 45 52 |A65.....SEI ;.ER| 00000100: 52 55 50 54 20 56 45 52 48 49 4E 44 45 52 4E 00 |RUPT VERHINDERN.| 00000110: 2E 09 DC 00 4C 44 41 20 23 53 54 41 52 54 B3 20 |....LDA #START. | 00000120: 3B B5 45 52 52 55 50 54 AB 56 45 4B A4 52 00 4E |;.ERRUPT.VEK.R.N| 00000130: 09 E6 00 53 54 41 20 43 49 4E 56 20 3B 41 55 46 |...STA CINV ;AUF| 00000140: 20 27 53 54 41 52 54 27 20 41 80 45 52 4E 00 5E | 'START' A.ERN.^| 00000150: 09 F0 00 4C 44 41 20 23 53 54 41 52 54 B1 00 6D |...LDA #START..m| 00000160: 09 FA 00 53 54 41 20 43 49 4E 56 AA 31 00 8D 09 |...STA CINV.1...| 00000170: 04 01 43 4C 49 20 3B B5 45 52 52 55 50 54 20 57 |..CLI ;.ERRUPT W| 00000180: 49 45 44 45 52 20 B8 49 47 45 42 45 4E 00 95 09 |IEDER .IGEBEN...| 00000190: 0E 01 52 54 53 00 A8 09 18 01 53 54 41 52 54 20 |..RTS.....START | 000001A0: 4C 44 59 20 23 24 32 44 00 CA 09 22 01 53 54 59 |LDY #$2D...".STY| 000001B0: 20 56 49 44 45 4F 20 3B 4C 45 45 52 41 4E 5A 45 | VIDEO ;LEERANZE| 000001C0: 49 47 45 20 53 45 54 5A 45 4E 00 DA 09 2C 01 53 |IGE SETZEN...,.S| 000001D0: 54 59 20 56 49 44 45 4F AA 32 00 EA 09 36 01 53 |TY VIDEO.2...6.S| 000001E0: 54 59 20 56 49 44 45 4F AA 34 00 0E 0A 40 01 4C |TY VIDEO.4...@.L| 000001F0: 44 58 20 43 4F 4C B0 20 3B 41 4B 54 55 45 4C 4C |DX COL. ;AKTUELL| 00000200: 45 20 5A 45 49 43 48 45 4E 46 41 52 42 45 00 30 |E ZEICHENFARBE.0| 00000210: 0A 4A 01 53 54 58 20 43 4F 4C 52 41 4D 20 3B 49 |.J.STX COLRAM ;I| 00000220: 4E 20 44 41 53 20 46 41 52 42 52 41 4D 20 97 4E |N DAS FARBRAM .N| 00000230: 00 41 0A 54 01 53 54 58 20 43 4F 4C 52 41 4D AA |.A.T.STX COLRAM.| 00000240: 32 00 52 0A 5E 01 53 54 58 20 43 4F 4C 52 41 4D |2.R.^.STX COLRAM| 00000250: AA 34 00 72 0A 68 01 4C 44 41 20 43 49 41 50 52 |.4.r.h.LDA CIAPR| 00000260: 41 20 3B 9A 52 4F 4C 50 B0 54 20 32 20 4C 45 53 |A ;.ROLP.T 2 LES| 00000270: 45 4E 00 9B 0A 72 01 42 49 54 30 20 4C 53 52 20 |EN...r.BIT0 LSR | 00000280: 41 20 3B 42 49 54 20 30 20 49 4E 53 20 43 41 52 |A ;BIT 0 INS CAR| 00000290: 52 59 20 53 43 48 49 45 42 45 4E 00 C1 0A 7C 01 |RY SCHIEBEN...|.| 000002A0: 42 43 53 20 42 49 54 31 20 3B 41 42 46 52 41 47 |BCS BIT1 ;ABFRAG| 000002B0: 45 20 4F 42 20 43 41 52 52 59 20 47 45 53 45 5A |E OB CARRY GESEZ| 000002C0: 54 00 E0 0A 86 01 4C 44 58 20 23 24 30 46 20 3B |T.....LDX #$0F ;| 000002D0: 27 4F 27 20 28 4F 42 45 4E 29 20 4C 41 44 45 4E |'O' (OBEN) LADEN| 000002E0: 00 FC 0A 90 01 53 54 58 20 56 49 44 45 4F 20 3B |.....STX VIDEO ;| 000002F0: 55 4E 44 20 41 55 53 47 45 42 45 4E 00 25 0B 9A |UND AUSGEBEN.%..| 00000300: 01 42 49 54 31 20 4C 53 52 20 41 20 3B 42 49 54 |.BIT1 LSR A ;BIT| 00000310: 20 31 20 49 4E 53 20 43 41 52 52 59 20 53 43 48 | 1 INS CARRY SCH| 00000320: 49 45 42 45 4E 00 4C 0B A4 01 42 43 53 20 42 49 |IEBEN.L...BCS BI| 00000330: 54 32 20 3B 41 42 46 52 41 47 45 20 4F 42 20 43 |T2 ;ABFRAGE OB C| 00000340: 41 52 52 59 20 47 45 53 45 54 5A 54 00 6C 0B AE |ARRY GESETZT.l..| 00000350: 01 4C 44 58 20 23 24 31 35 20 3B 27 55 27 20 28 |.LDX #$15 ;'U' (| 00000360: 55 4E 54 45 4E 29 20 4C 41 44 45 4E 00 88 0B B8 |UNTEN) LADEN....| 00000370: 01 53 54 58 20 56 49 44 45 4F 20 3B 55 4E 44 20 |.STX VIDEO ;UND | 00000380: 41 55 53 47 45 42 45 4E 00 B1 0B C2 01 42 49 54 |AUSGEBEN.....BIT| 00000390: 32 20 4C 53 52 20 41 20 3B 42 49 54 20 32 20 49 |2 LSR A ;BIT 2 I| 000003A0: 4E 53 20 43 41 52 52 59 20 53 43 48 49 45 42 45 |NS CARRY SCHIEBE| 000003B0: 4E 00 D8 0B CC 01 42 43 53 20 42 49 54 33 20 3B |N.....BCS BIT3 ;| 000003C0: 41 42 46 52 41 47 45 20 4F 42 20 43 41 52 52 59 |ABFRAGE OB CARRY| 000003D0: 20 47 45 53 45 54 5A 54 00 F8 0B D6 01 4C 44 58 | GESETZT.....LDX| 000003E0: 20 23 24 30 43 20 3B 27 4C 27 20 28 4C 49 4E 4B | #$0C ;'L' (LINK| 000003F0: 53 29 20 4C 41 44 45 4E 00 16 0C E0 01 53 54 58 |S) LADEN.....STX| 00000400: 20 56 49 44 45 4F AA 32 20 3B 55 4E 44 20 41 55 | VIDEO.2 ;UND AU| 00000410: 53 47 45 42 45 4E 00 3F 0C EA 01 42 49 54 33 20 |SGEBEN.?...BIT3 | 00000420: 4C 53 52 20 41 20 3B 42 49 54 20 33 20 49 4E 53 |LSR A ;BIT 3 INS| 00000430: 20 43 41 52 52 59 20 53 43 48 49 45 42 45 4E 00 | CARRY SCHIEBEN.| 00000440: 63 0C F4 01 42 43 53 20 42 49 54 34 20 3B 54 45 |c...BCS BIT4 ;TE| 00000450: 53 54 20 4F 42 20 43 41 52 52 59 20 47 45 53 45 |ST OB CARRY GESE| 00000460: 54 5A 54 00 83 0C FE 01 4C 44 58 20 23 24 31 32 |TZT.....LDX #$12| 00000470: 20 3B 27 52 27 28 52 45 43 48 54 53 29 20 4C 41 | ;'R'(RECHTS) LA| 00000480: 44 45 4E 00 A1 0C 08 02 53 54 58 20 56 49 44 45 |DEN.....STX VIDE| 00000490: 4F AA 32 20 3B 55 4E 44 20 41 55 53 47 45 42 45 |O.2 ;UND AUSGEBE| 000004A0: 4E 00 CA 0C 12 02 42 49 54 34 20 4C 53 52 20 41 |N.....BIT4 LSR A| 000004B0: 20 3B 42 49 54 20 34 20 49 4E 53 20 43 41 52 52 | ;BIT 4 INS CARR| 000004C0: 59 20 53 43 48 49 45 42 45 4E 00 F0 0C 1C 02 42 |Y SCHIEBEN.....B| 000004D0: 43 53 20 4B 45 59 20 3B 41 42 46 52 41 47 45 20 |CS KEY ;ABFRAGE | 000004E0: 4F 42 20 43 41 52 52 59 20 47 45 53 45 54 5A 54 |OB CARRY GESETZT| 000004F0: 00 18 0D 26 02 4C 44 58 20 23 24 30 36 20 3B 27 |...&.LDX #$06 ;'| 00000500: 46 27 28 46 45 55 45 52 4B 4E 4F 50 46 29 20 B6 |F'(FEUERKNOPF) .| 00000510: 50 45 49 43 48 45 52 4E 00 36 0D 30 02 53 54 58 |PEICHERN.6.0.STX| 00000520: 20 56 49 44 45 4F AA 34 20 3B 55 4E 44 20 41 55 | VIDEO.4 ;UND AU| 00000530: 53 47 45 42 45 4E 00 59 0D 3A 02 4B 45 59 20 4A |SGEBEN.Y.:.KEY J| 00000540: 4D 50 20 49 52 51 20 3B 5A 55 52 55 45 43 4B 20 |MP IRQ ;ZURUECK | 00000550: 5A 55 52 20 4E B0 4D 41 C3 00 73 0D 44 02 2E 80 |ZUR N.MA..s.D...| 00000560: 20 20 20 20 3B B5 45 52 52 55 50 54 52 4F 55 54 | ;.ERRUPTROUT| 00000570: 49 4E 45 00 00 00 20 |INE... |
....D...4864.2.N.;...................... ...........T.X.; JOYSTICK . FUNKTI.S TEST.Q...; C128 (.ROLP.T 2).....;. ....................................CINV .$0314... .VIDEO.$0591.G...COLRAM.$D991. T...COL..$F1.....CIAPRA.$DC00...H.IRQ.$F A65...R.SEI ;.ERRUPT VERHINDERN.....LDA #START. ;.ERRUPT.VEK.R.N...STA CINV ;AUF 'START' A.ERN.^...LDA #START..M...STA C INV.1.....CLI ;.ERRUPT WIEDER .IGEBEN... ..RTS.....START LDY #$2D.J.".STY VIDEO ; LEERANZEIGE SETZEN.Z.,.STY VIDEO.2...6.S TY VIDEO.4...@.LDX COL. ;AKTUELLE ZEICHE NFARBE.0.J.STX COLRAM ;IN DAS FARBRAM .N .A.T.STX COLRAM.2.R.^.STX COLRAM.4.R.H.L DA CIAPRA ;.ROLP.T 2 LESEN...R.BIT0 LSR A ;BIT 0 INS CARRY SCHIEBEN.A.|.BCS BIT1 ;ABFRAGE OB CARRY GESEZT.....LDX #$0F ; 'O' (OBEN) LADEN.....STX VIDEO ;UND AUSG EBEN.%...BIT1 LSR A ;BIT 1 INS CARRY SCH IEBEN.L...BCS BIT2 ;ABFRAGE OB CARRY GES ETZT.L...LDX #$15 ;'U' (UNTEN) LADEN.... .STX VIDEO ;UND AUSGEBEN...B.BIT2 LSR A ;BIT 2 INS CARRY SCHIEBEN.X.L.BCS BIT3 ; ABFRAGE OB CARRY GESETZT...V.LDX #$0C ;' L' (LINKS) LADEN.....STX VIDEO.2 ;UND AU SGEBEN.?...BIT3 LSR A ;BIT 3 INS CARRY S CHIEBEN.C...BCS BIT4 ;TEST OB CARRY GESE TZT.....LDX #$12 ;'R'(RECHTS) LADEN..... STX VIDEO.2 ;UND AUSGEBEN.J...BIT4 LSR A ;BIT 4 INS CARRY SCHIEBEN.....BCS KEY ; ABFRAGE OB CARRY GESETZT...&.LDX #$06 ;' F'(FEUERKNOPF) .PEICHERN.6.0.STX VIDEO.4 ;UND AUSGEBEN.Y.:.KEY JMP IRQ ;ZURUECK ZUR N.MAC.S.D... ;.ERRUPTROUTINE...
> CLICK IMAGE PREVIEW FOR FULL MODAL