JOYCURSOR.SRC
FILE INFORMATION
FILENAME(S): JOYCURSOR.SRC
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-10-20 14:29:58
APPEARS ON: 1 disk(s)
FILE HASH
1ce6443e7d817dd8ea14b3a3afd31a040ed1ef8be54aae3f1de489e649df888b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MT90499 SEITE 1 | JOYCURSOR.SRC | PRG | Treasure Chest - Klaus Der Suhler | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F DE 1F 64 00 3B 00 03 20 6E 00 3B 20 2A 2A |....d.;.. n.; **| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 28 20 78 |************.( x| 00000030: 00 3B 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.; * | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000050: 2A 00 4D 20 82 00 3B 20 2A 20 20 20 20 20 43 55 |*.M ..; * CU| 00000060: 52 53 4F 52 53 54 45 55 45 52 55 4E 47 20 4D 49 |RSORSTEUERUNG MI| 00000070: 54 20 20 20 20 2A 00 72 20 8C 00 3B 20 2A 20 20 |T *.r ..; * | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 20 20 20 20 20 20 20 20 2A 00 97 20 96 00 | *.. ..| 000000A0: 3B 20 2A 20 20 20 20 20 20 20 4A 20 4F 20 59 20 |; * J O Y | 000000B0: 53 20 54 20 49 20 43 20 4B 20 20 20 20 20 20 2A |S T I C K *| 000000C0: 00 BC 20 A0 00 3B 20 2A 20 20 20 20 20 20 20 20 |.. ..; * | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 20 20 20 20 2A 00 E1 20 AA 00 3B 20 2A 20 20 20 | *.. ..; * | 000000F0: 20 28 50 4F 52 54 20 32 29 20 49 4D 20 49 4E 54 | (PORT 2) IM INT| 00000100: 45 52 52 55 50 54 20 20 20 2A 00 06 21 B4 00 3B |ERRUPT *..!..;| 00000110: 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | * | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.| 00000130: 2B 21 BE 00 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |+!..; **********| 00000140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000150: 2A 2A 2A 2A 00 31 21 C8 00 3B 00 37 21 D2 00 3B |****.1!..;.7!..;| 00000160: 00 57 21 DC 00 20 2E 42 41 24 43 30 30 30 3B 20 |.W!.. .BA$C000; | 00000170: 53 54 41 52 54 3A 20 53 59 53 20 34 39 31 35 32 |START: SYS 49152| 00000180: 00 5D 21 E6 00 3B 00 89 21 F0 00 2E 47 4C 20 20 |.]!..;..!...GL | 00000190: 50 4F 52 54 32 20 3D 20 35 36 33 32 30 20 20 20 |PORT2 = 56320 | 000001A0: 20 20 20 20 3B 20 43 49 41 2D 52 45 47 49 53 54 | ; CIA-REGIST| 000001B0: 45 52 00 CD 21 FA 00 2E 47 4C 20 20 4E 44 58 20 |ER..!...GL NDX | 000001C0: 20 20 3D 20 31 39 38 20 20 20 20 20 20 20 20 20 | = 198 | 000001D0: 3B 20 41 4E 5A 41 48 4C 20 44 45 52 20 5A 45 49 |; ANZAHL DER ZEI| 000001E0: 43 48 45 4E 20 49 4D 20 54 41 53 54 41 54 55 52 |CHEN IM TASTATUR| 000001F0: 50 55 46 46 45 52 00 0B 22 04 01 2E 47 4C 20 20 |PUFFER.."...GL | 00000200: 43 49 4E 56 20 20 3D 20 24 30 33 31 34 20 20 20 |CINV = $0314 | 00000210: 20 20 20 20 3B 20 49 52 51 2D 56 45 4B 54 4F 52 | ; IRQ-VEKTOR| 00000220: 20 44 45 53 20 42 45 54 52 49 45 42 53 53 59 53 | DES BETRIEBSSYS| 00000230: 54 45 4D 53 00 11 22 0E 01 3B 00 23 22 18 01 2E |TEMS.."..;.#"...| 00000240: 4D 41 20 41 4C 54 45 52 A4 49 52 51 00 31 22 22 |MA ALTER.IRQ.1""| 00000250: 01 20 4A 4D 50 24 45 41 33 31 00 39 22 2C 01 2E |. JMP$EA31.9",..| 00000260: 52 54 00 3F 22 36 01 3B 00 45 22 40 01 3B 00 63 |RT.?"6.;.E"@.;.c| 00000270: 22 4A 01 3B 20 2A 2A 2A 20 49 4E 49 54 49 41 4C |"J.; *** INITIAL| 00000280: 49 53 49 45 52 55 4E 47 20 2A 2A 2A 00 69 22 54 |ISIERUNG ***.i"T| 00000290: 01 3B 00 6F 22 5E 01 3B 00 88 22 68 01 20 53 45 |.;.o"^.;.."h. SE| 000002A0: 49 3B 20 49 52 51 20 56 45 52 48 49 4E 44 45 52 |I; IRQ VERHINDER| 000002B0: 4E 00 A1 22 72 01 20 4C 44 41 23 3C 28 4E 45 57 |N.."r. LDA#<(NEW| 000002C0: 49 52 51 29 3B 20 4E 45 55 45 00 BA 22 7C 01 20 |IRQ); NEUE.."|. | 000002D0: 4C 44 59 23 3E 28 4E 45 57 49 52 51 29 3B 20 49 |LDY#>(NEWIRQ); I| 000002E0: 52 51 2D 00 D0 22 86 01 20 53 54 41 43 49 4E 56 |RQ-..".. STACINV| 000002F0: 3B 20 52 4F 55 54 49 4E 45 00 EB 22 90 01 20 53 |; ROUTINE..".. S| 00000300: 54 59 43 49 4E 56 2B 31 3B 20 41 4B 54 49 56 49 |TYCINV+1; AKTIVI| 00000310: 45 52 45 4E 00 FF 22 9A 01 20 4C 44 41 23 36 3B |EREN..".. LDA#6;| 00000320: 20 5A 41 45 48 4C 45 52 00 1F 23 A4 01 20 53 54 | ZAEHLER..#.. ST| 00000330: 41 5A 41 45 48 4C 45 52 3B 20 49 4E 49 54 49 41 |AZAEHLER; INITIA| 00000340: 4C 49 53 49 45 52 45 4E 00 25 23 AE 01 3B 00 3C |LISIEREN.%#..;.<| 00000350: 23 B8 01 20 43 4C 49 3B 20 49 52 51 20 5A 55 4C |#.. CLI; IRQ ZUL| 00000360: 41 53 53 45 4E 00 52 23 C2 01 20 52 54 53 3B 20 |ASSEN.R#.. RTS; | 00000370: 52 55 45 43 4B 53 50 52 55 4E 47 00 58 23 CC 01 |RUECKSPRUNG.X#..| 00000380: 3B 00 5E 23 D6 01 3B 00 84 23 E0 01 3B 20 2A 2A |;.^#..;..#..; **| 00000390: 2A 20 5A 41 45 48 4C 56 41 52 49 41 42 4C 45 20 |* ZAEHLVARIABLE | 000003A0: 28 43 4F 55 4E 54 45 52 29 20 2A 2A 2A 00 8A 23 |(COUNTER) ***..#| 000003B0: EA 01 3B 00 9B 23 F4 01 5A 41 45 48 4C 45 52 20 |..;..#..ZAEHLER | 000003C0: 2E 42 59 36 00 A1 23 FE 01 3B 00 A7 23 08 02 3B |.BY6..#..;..#..;| 000003D0: 00 C6 23 12 02 3B 20 2A 2A 2A 20 4E 45 55 45 20 |..#..; *** NEUE | 000003E0: 49 52 51 2D 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 |IRQ-ROUTINE ***.| 000003F0: CC 23 1C 02 3B 00 12 24 26 02 4E 45 57 49 52 51 |.#..;..$&.NEWIRQ| 00000400: 20 44 45 43 5A 41 45 48 4C 45 52 3B 20 57 41 52 | DECZAEHLER; WAR| 00000410: 54 45 5A 45 49 54 20 41 42 47 45 4C 41 55 46 45 |TEZEIT ABGELAUFE| 00000420: 4E 20 28 4E 55 52 20 41 4C 4C 45 20 36 20 49 4E |N (NUR ALLE 6 IN| 00000430: 54 45 52 52 55 50 54 53 29 20 3F 00 41 24 30 02 |TERRUPTS) ?.A$0.| 00000440: 20 42 45 51 57 45 49 54 45 52 3B 20 4A 41 20 28 | BEQWEITER; JA (| 00000450: 5A 3D 31 29 3A 20 4E 4F 43 48 20 4E 49 43 48 54 |Z=1): NOCH NICHT| 00000460: 20 41 42 42 52 45 43 48 45 4E 00 5E 24 3A 02 20 | ABBRECHEN.^$:. | 00000470: 2E 2E 2E 41 4C 54 45 52 A4 49 52 51 3B 20 41 4C |...ALTER.IRQ; AL| 00000480: 54 45 52 20 49 52 51 00 7C 24 44 02 3B 20 2D 2D |TER IRQ.|$D.; --| 00000490: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000004A0: 2D 2D 2D 2D 2D 00 82 24 4E 02 3B 00 A3 24 58 02 |-----..$N.;..$X.| 000004B0: 57 45 49 54 45 52 20 4C 44 41 23 36 3B 20 5A 41 |WEITER LDA#6; ZA| 000004C0: 45 48 4C 45 52 20 57 49 45 44 45 52 00 C3 24 62 |EHLER WIEDER..$b| 000004D0: 02 20 53 54 41 5A 41 45 48 4C 45 52 3B 20 49 4E |. STAZAEHLER; IN| 000004E0: 49 54 49 41 4C 49 53 49 45 52 45 4E 00 C9 24 6C |ITIALISIEREN..$l| 000004F0: 02 3B 00 E5 24 76 02 20 4C 44 58 4E 44 58 3B 20 |.;..$v. LDXNDX; | 00000500: 54 41 53 54 41 54 55 52 50 55 46 46 45 52 00 FA |TASTATURPUFFER..| 00000510: 24 80 02 20 43 50 58 23 24 30 38 3B 20 56 4F 4C |$.. CPX#$08; VOL| 00000520: 4C 20 3F 00 28 25 8A 02 20 42 43 43 4D 4F 56 45 |L ?.(%.. BCCMOVE| 00000530: 3B 20 4E 45 49 4E 20 28 43 3D 30 29 3A 20 42 45 |; NEIN (C=0): BE| 00000540: 57 45 47 55 4E 47 20 41 55 53 46 55 45 48 52 45 |WEGUNG AUSFUEHRE| 00000550: 4E 00 2E 25 94 02 3B 00 4B 25 9E 02 20 2E 2E 2E |N..%..;.K%.. ...| 00000560: 41 4C 54 45 52 A4 49 52 51 3B 20 41 4C 54 45 52 |ALTER.IRQ; ALTER| 00000570: 20 49 52 51 00 69 25 A8 02 3B 20 2D 2D 2D 2D 2D | IRQ.i%..; -----| 00000580: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000590: 2D 2D 00 6F 25 B2 02 3B 00 9C 25 BC 02 4D 4F 56 |--.o%..;..%..MOV| 000005A0: 45 20 4C 44 41 50 4F 52 54 32 3B 20 4A 4F 59 53 |E LDAPORT2; JOYS| 000005B0: 54 49 43 4B 2D 5A 55 53 54 41 4E 44 20 41 55 53 |TICK-ZUSTAND AUS| 000005C0: 4C 45 53 45 4E 00 C3 25 C6 02 20 52 4F 52 3B 20 |LESEN..%.. ROR; | 000005D0: 55 52 53 50 52 55 45 4E 47 4C 49 43 48 45 53 20 |URSPRUENGLICHES | 000005E0: 42 49 54 20 30 20 54 45 53 54 45 4E 00 F2 25 D0 |BIT 0 TESTEN..%.| 000005F0: 02 20 42 43 43 55 4E 54 45 4E 3B 20 42 30 3D 30 |. BCCUNTEN; B0=0| 00000600: 20 28 43 3D 30 29 3A 20 4A 4F 59 53 54 49 43 4B | (C=0): JOYSTICK| 00000610: 20 4E 41 43 48 20 55 4E 54 45 4E 00 19 26 DA 02 | NACH UNTEN..&..| 00000620: 20 52 4F 52 3B 20 55 52 53 50 52 55 45 4E 47 4C | ROR; URSPRUENGL| 00000630: 49 43 48 45 53 20 42 49 54 20 31 20 54 45 53 54 |ICHES BIT 1 TEST| 00000640: 45 4E 00 46 26 E4 02 20 42 43 43 4F 42 45 4E 3B |EN.F&.. BCCOBEN;| 00000650: 20 42 31 3D 30 20 28 43 3D 30 29 3A 20 4A 4F 59 | B1=0 (C=0): JOY| 00000660: 53 54 49 43 4B 20 4E 41 43 48 20 4F 42 45 4E 00 |STICK NACH OBEN.| 00000670: 6D 26 EE 02 20 52 4F 52 3B 20 55 52 53 50 52 55 |m&.. ROR; URSPRU| 00000680: 45 4E 47 4C 49 43 48 45 53 20 42 49 54 20 32 20 |ENGLICHES BIT 2 | 00000690: 54 45 53 54 45 4E 00 9C 26 F8 02 20 42 43 43 4C |TESTEN..&.. BCCL| 000006A0: 49 4E 4B 53 3B 20 42 32 3D 30 20 28 43 3D 30 29 |INKS; B2=0 (C=0)| 000006B0: 3A 20 4A 4F 59 53 54 49 43 4B 20 4E 41 43 48 20 |: JOYSTICK NACH | 000006C0: 4C 49 4E 4B 53 00 C3 26 02 03 20 52 4F 52 3B 20 |LINKS..&.. ROR; | 000006D0: 55 52 53 50 52 55 45 4E 47 4C 49 43 48 45 53 20 |URSPRUENGLICHES | 000006E0: 42 49 54 20 33 20 54 45 53 54 45 4E 00 F4 26 0C |BIT 3 TESTEN..&.| 000006F0: 03 20 42 43 43 52 45 43 48 54 53 3B 20 42 33 3D |. BCCRECHTS; B3=| 00000700: 30 20 28 43 3D 30 29 3A 20 4A 4F 59 53 54 49 43 |0 (C=0): JOYSTIC| 00000710: 4B 20 4E 41 43 48 20 52 45 43 48 54 53 00 11 27 |K NACH RECHTS..'| 00000720: 16 03 20 2E 2E 2E 41 4C 54 45 52 A4 49 52 51 3B |.. ...ALTER.IRQ;| 00000730: 20 41 4C 54 45 52 20 49 52 51 00 2F 27 20 03 3B | ALTER IRQ./' .;| 00000740: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------| 00000750: 2D 2D 2D 2D 2D 2D 2D 2D 00 35 27 2A 03 3B 00 51 |--------.5'*.;.Q| 00000760: 27 34 03 4F 42 45 4E 20 4C 44 41 23 22 11 22 3B |'4.OBEN LDA#".";| 00000770: 20 3C 43 52 53 52 20 55 50 3E 00 6B 27 3E 03 20 | <CRSR UP>.k'>. | 00000780: 42 4E 45 41 55 53 47 41 42 45 3B 20 41 55 53 47 |BNEAUSGABE; AUSG| 00000790: 45 42 45 4E 00 89 27 48 03 3B 20 2D 2D 2D 2D 2D |EBEN..'H.; -----| 000007A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000007B0: 2D 2D 00 8F 27 52 03 3B 00 AE 27 5C 03 55 4E 54 |--..'R.;..'\.UNT| 000007C0: 45 4E 20 4C 44 41 23 22 91 22 3B 20 3C 43 52 53 |EN LDA#"."; <CRS| 000007D0: 52 20 44 4F 57 4E 3E 00 C8 27 66 03 20 42 4E 45 |R DOWN>..'f. BNE| 000007E0: 41 55 53 47 41 42 45 3B 20 41 55 53 47 45 42 45 |AUSGABE; AUSGEBE| 000007F0: 4E 00 E6 27 70 03 3B 20 2D 2D 2D 2D 2D 2D 2D 2D |N..'p.; --------| 00000800: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.| 00000810: EC 27 7A 03 3B 00 0B 28 84 03 4C 49 4E 4B 53 20 |.'z.;..(..LINKS | 00000820: 4C 44 41 23 22 9D 22 3B 20 3C 43 52 53 52 20 4C |LDA#"."; <CRSR L| 00000830: 45 46 54 3E 00 25 28 8E 03 20 42 4E 45 41 55 53 |EFT>.%(.. BNEAUS| 00000840: 47 41 42 45 3B 20 41 55 53 47 45 42 45 4E 00 43 |GABE; AUSGEBEN.C| 00000850: 28 98 03 3B 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |(..; -----------| 00000860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 49 28 A2 |------------.I(.| 00000870: 03 3B 00 73 28 AC 03 52 45 43 48 54 53 20 4C 44 |.;.s(..RECHTS LD| 00000880: 41 23 22 1D 22 3B 20 3C 43 52 53 52 20 52 49 47 |A#"."; <CRSR RIG| 00000890: 48 54 3E 20 41 55 53 47 45 42 45 4E 00 91 28 B6 |HT> AUSGEBEN..(.| 000008A0: 03 3B 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.; -------------| 000008B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 97 28 C0 03 3B |----------..(..;| 000008C0: 00 BB 28 CA 03 3B 20 2A 2A 2A 20 20 5A 20 45 20 |..(..; *** Z E | 000008D0: 49 20 43 20 48 20 45 20 4E 20 20 20 49 20 4E 20 |I C H E N I N | 000008E0: 20 2A 2A 2A 00 DF 28 D4 03 3B 20 2A 2A 2A 20 20 | ***..(..; *** | 000008F0: 20 20 20 54 41 53 54 41 54 55 52 50 55 46 46 45 | TASTATURPUFFE| 00000900: 52 20 20 20 20 2A 2A 2A 00 03 29 DE 03 3B 20 2A |R ***..)..; *| 00000910: 2A 2A 20 20 20 53 20 43 20 48 20 52 20 45 20 49 |** S C H R E I| 00000920: 20 42 20 45 20 4E 20 20 20 2A 2A 2A 00 09 29 E8 | B E N ***..).| 00000930: 03 3B 00 2A 29 F2 03 41 55 53 47 41 42 45 20 4C |.;.*)..AUSGABE L| 00000940: 44 58 4E 44 58 3B 20 4F 46 46 53 45 54 20 48 4F |DXNDX; OFFSET HO| 00000950: 4C 45 4E 00 4A 29 FC 03 20 53 54 41 24 30 32 37 |LEN.J).. STA$027| 00000960: 37 2C 58 3B 20 42 59 54 45 20 53 43 48 52 45 49 |7,X; BYTE SCHREI| 00000970: 42 45 4E 00 68 29 06 04 20 49 4E 43 4E 44 58 3B |BEN.h).. INCNDX;| 00000980: 20 5A 41 45 48 4C 45 52 20 45 52 48 4F 45 48 45 | ZAEHLER ERHOEHE| 00000990: 4E 00 85 29 10 04 20 2E 2E 2E 41 4C 54 45 52 A4 |N..).. ...ALTER.| 000009A0: 49 52 51 3B 20 41 4C 54 45 52 20 49 52 51 00 A3 |IRQ; ALTER IRQ..| 000009B0: 29 1A 04 3B 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |)..; -----------| 000009C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 00 00 |------------... |
X...D.;.. N.; **************************
****.( X.; *
*.M ..; * CURSORSTEUERUNG MIT *.R
..; * *.. ..
; * J O Y S T I C K *.. .; *
*.. ..; *
(PORT 2) IM INTERRUPT *..!..; *
*.+!..; **********
********************.1!H.;.7!R.;.W!.. .B
A$C000; START: SYS 49152.]!..;..!...GL
PORT2 = 56320 ; CIA-REGISTER.M!...
GL NDX = 198 ; ANZAHL DER ZEI
CHEN IM TASTATURPUFFER.."...GL CINV =
$0314 ; IRQ-VEKTOR DES BETRIEBSSYS
TEMS.."..;.#"...MA ALTER.IRQ.1"". JMP$EA
31.9",..RT.?"6.;.E"@.;.C"J.; *** INITIAL
ISIERUNG ***.I"T.;.O"^.;.."H. SEI; IRQ V
ERHINDERN.."R. LDA#<(NEWIRQ); NEUE.."|.
LDY#>(NEWIRQ); IRQ-.P".. STACINV; ROUTIN
E..".. STYCINV+1; AKTIVIEREN..".. LDA#6;
ZAEHLER..#.. STAZAEHLER; INITIALISIEREN
.%#..;.<#.. CLI; IRQ ZULASSEN.R#B. RTS;
RUECKSPRUNG.X#L.;.^#V.;..#..; *** ZAEHLV
ARIABLE (COUNTER) ***..#..;..#..ZAEHLER
.BY6..#..;..#..;.F#..; *** NEUE IRQ-ROUT
INE ***.L#..;..$&.NEWIRQ DECZAEHLER; WAR
TEZEIT ABGELAUFEN (NUR ALLE 6 INTERRUPTS
) ?.A$0. BEQWEITER; JA (Z=1): NOCH NICHT
ABBRECHEN.^$:. ...ALTER.IRQ; ALTER IRQ.
|$D.; -----------------------..$N.;..$X.
WEITER LDA#6; ZAEHLER WIEDER.C$B. STAZAE
HLER; INITIALISIEREN.I$L.;..$V. LDXNDX;
TASTATURPUFFER..$.. CPX#$08; VOLL ?.(%..
BCCMOVE; NEIN (C=0): BEWEGUNG AUSFUEHRE
N..%..;.K%.. ...ALTER.IRQ; ALTER IRQ.I%.
.; -----------------------.O%..;..%..MOV
E LDAPORT2; JOYSTICK-ZUSTAND AUSLESEN.C%
F. ROR; URSPRUENGLICHES BIT 0 TESTEN..%P
. BCCUNTEN; B0=0 (C=0): JOYSTICK NACH UN
TEN..&Z. ROR; URSPRUENGLICHES BIT 1 TEST
EN.F&.. BCCOBEN; B1=0 (C=0): JOYSTICK NA
CH OBEN.M&.. ROR; URSPRUENGLICHES BIT 2
TESTEN..&.. BCCLINKS; B2=0 (C=0): JOYSTI
CK NACH LINKS.C&.. ROR; URSPRUENGLICHES
BIT 3 TESTEN..&.. BCCRECHTS; B3=0 (C=0):
JOYSTICK NACH RECHTS..'.. ...ALTER.IRQ;
ALTER IRQ./' .; -----------------------
.5'*.;.Q'4.OBEN LDA#"."; <CRSR UP>.K'>.
BNEAUSGABE; AUSGEBEN..'H.; -------------
----------..'R.;..'\.UNTEN LDA#"."; <CRS
R DOWN>.H'F. BNEAUSGABE; AUSGEBEN..'P.;
-----------------------..'Z.;..(..LINKS
LDA#"."; <CRSR LEFT>.%(.. BNEAUSGABE; AU
SGEBEN.C(..; -----------------------.I(.
.;.S(..RECHTS LDA#"."; <CRSR RIGHT> AUSG
EBEN..(..; -----------------------..(..;
..(J.; *** Z E I C H E N I N ***..(T
.; *** TASTATURPUFFER ***..)..; *
** S C H R E I B E N ***..)..;.*)..A
USGABE LDXNDX; OFFSET HOLEN.J).. STA$027
7,X; BYTE SCHREIBEN.H).. INCNDX; ZAEHLER
ERHOEHEN..).. ...ALTER.IRQ; ALTER IRQ..
)..; -----------------------...
> CLICK IMAGE PREVIEW FOR FULL MODAL