HELP 64.SRC
FILE INFORMATION
FILENAME(S): HELP 64.SRC
FILE TYPE(S): PRG
FILE SIZE: 5.9K
FIRST SEEN: 2025-11-30 01:12:42
APPEARS ON: 2 disk(s)
FILE HASH
17f24ae2f2d0bd1f4c492588fb571522fa052c391dc31eafccb961a378a8d345
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10712 12 87 | HELP 64.SRC | PRG | C64er, DuncanTwain | 20 | 0 | DOWNLOAD FILE |
| 10712 12 87 | HELP 64.SRC | PRG | DuncanTwain | 20 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F E6 1F E8 03 20 2E 42 41 35 32 39 37 39 00 |...... .BA52979.|
00000010: EC 1F F2 03 3B 00 F2 1F FC 03 3B 00 18 20 06 04 |....;.....;.. ..|
00000020: 3B C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |;...............|
00000030: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000040: C0 00 39 20 10 04 3B 20 20 20 20 20 43 55 52 53 |..9 ..; CURS|
00000050: 4F 52 54 41 53 54 45 20 47 45 44 52 55 45 43 4B |ORTASTE GEDRUECK|
00000060: 54 3F 00 5F 20 1A 04 3B C0 C0 C0 C0 C0 C0 C0 C0 |T?._ ..;........|
00000070: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000080: C0 C0 C0 C0 C0 C0 C0 C0 00 65 20 24 04 3B 00 6B |.........e $.;.k|
00000090: 20 2E 04 3B 00 7C 20 38 04 43 47 45 44 52 20 4C | ..;.| 8.CGEDR L|
000000A0: 44 41 32 30 33 00 9B 20 42 04 20 43 4D 50 23 32 |DA203.. B. CMP#2|
000000B0: 3B 4C 49 4E 4B 53 2F 52 45 43 48 54 53 20 47 45 |;LINKS/RECHTS GE|
000000C0: 44 52 2E 3F 00 AB 20 4C 04 20 42 45 51 45 4E 44 |DR.?.. L. BEQEND|
000000D0: 32 3B 4A 41 00 C9 20 56 04 20 43 4D 50 23 37 3B |2;JA.. V. CMP#7;|
000000E0: 48 4F 43 48 2F 52 55 4E 54 45 52 20 47 45 44 52 |HOCH/RUNTER GEDR|
000000F0: 2E 3F 00 D9 20 60 04 20 42 45 51 45 4E 44 32 3B |.?.. `. BEQEND2;|
00000100: 4A 41 00 F7 20 6A 04 20 4C 44 41 23 31 3B 5A 45 |JA.. j. LDA#1;ZE|
00000110: 52 4F 2D 46 4C 41 47 20 4C 4F 45 53 43 48 45 4E |RO-FLAG LOESCHEN|
00000120: 00 00 21 74 04 20 52 54 53 00 20 21 7E 04 45 4E |..!t. RTS. !~.EN|
00000130: 44 32 20 4C 44 41 23 30 3B 5A 45 52 4F 2D 46 4C |D2 LDA#0;ZERO-FL|
00000140: 41 47 20 53 45 54 5A 45 4E 00 29 21 88 04 20 52 |AG SETZEN.)!.. R|
00000150: 54 53 00 2F 21 92 04 3B 00 35 21 9C 04 3B 00 3B |TS./!..;.5!..;.;|
00000160: 21 A6 04 3B 00 41 21 B0 04 3B 00 66 21 BA 04 3B |!..;.A!..;.f!..;|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000190: 8B 21 C4 04 3B 2A 2A 2A 20 20 20 20 20 20 48 20 |.!..;*** H |
000001A0: 45 20 4C 20 50 20 20 20 36 34 20 20 20 20 20 20 |E L P 64 |
000001B0: 20 2A 2A 2A 00 B0 21 CE 04 3B 2A 2A 2A 2A 2A 2A | ***..!..;******|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D5 21 D8 04 3B 2A |*********..!..;*|
000001E0: 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |** |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 FA | ***..|
00000200: 21 E2 04 3B 2A 2A 2A 20 57 52 49 54 54 45 4E 20 |!..;*** WRITTEN |
00000210: 28 43 29 20 49 4E 20 31 39 38 37 20 20 20 20 20 |(C) IN 1987 |
00000220: 2A 2A 2A 00 1F 22 EC 04 3B 2A 2A 2A 20 42 59 20 |***.."..;*** BY |
00000230: 49 4E 47 4F 20 52 55 4E 4B 45 4C 20 20 20 20 20 |INGO RUNKEL |
00000240: 20 20 20 20 20 2A 2A 2A 00 44 22 F6 04 3B 2A 2A | ***.D"..;**|
00000250: 2A 20 20 20 20 48 41 43 4B 42 45 52 47 45 52 20 |* HACKBERGER |
00000260: 53 54 52 41 53 53 45 20 31 32 2A 2A 2A 00 69 22 |STRASSE 12***.i"|
00000270: 00 05 3B 2A 2A 2A 20 20 20 20 34 30 30 36 20 45 |..;*** 4006 E|
00000280: 52 4B 52 41 54 48 20 32 20 20 20 20 20 20 20 2A |RKRATH 2 *|
00000290: 2A 2A 00 8E 22 0A 05 3B 2A 2A 2A 20 20 20 20 20 |**.."..;*** |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002B0: 20 20 20 20 2A 2A 2A 00 B3 22 14 05 3B 2A 2A 2A | ***.."..;***|
000002C0: 20 20 20 20 20 20 20 20 20 20 26 20 20 20 20 20 | & |
000002D0: 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 D8 22 1E | ***..".|
000002E0: 05 3B 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 |.;*** |
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **|
00000300: 2A 00 FD 22 28 05 3B 2A 2A 2A 20 20 20 20 4B 41 |*.."(.;*** KA|
00000310: 49 20 47 45 52 4D 41 53 43 48 45 57 53 4B 49 20 |I GERMASCHEWSKI |
00000320: 20 20 20 2A 2A 2A 00 22 23 32 05 3B 2A 2A 2A 20 | ***."#2.;*** |
00000330: 20 20 20 48 45 49 44 45 20 31 38 20 20 20 20 20 | HEIDE 18 |
00000340: 20 20 20 20 20 20 20 20 2A 2A 2A 00 47 23 3C 05 | ***.G#<.|
00000350: 3B 2A 2A 2A 20 20 20 20 34 30 34 34 20 4B 41 41 |;*** 4044 KAA|
00000360: 52 53 54 20 32 20 2F 56 4F 52 53 54 20 2A 2A 2A |RST 2 /VORST ***|
00000370: 00 6C 23 46 05 3B 2A 2A 2A 20 20 20 20 20 20 20 |.l#F.;*** |
00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000390: 20 20 2A 2A 2A 00 91 23 50 05 3B 2A 2A 2A 2A 2A | ***..#P.;*****|
000003A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 97 23 5A 05 3B |**********..#Z.;|
000003C0: 00 9D 23 64 05 3B 00 C2 23 6E 05 3B B0 C0 C0 C0 |..#d.;..#n.;....|
000003D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000003E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 00 E7 23 78 05 |.............#x.|
000003F0: 3B DD 4B 55 52 5A 42 45 53 43 48 52 45 49 42 55 |;.KURZBESCHREIBU|
00000400: 4E 47 20 20 20 20 20 20 20 20 20 20 20 20 20 DD |NG .|
00000410: 00 0C 24 82 05 3B DD A3 A3 A3 A3 A3 A3 A3 A3 A3 |..$..;..........|
00000420: A3 A3 A3 A3 A3 A3 A3 A3 20 20 20 20 20 20 20 20 |........ |
00000430: 20 20 20 20 DD 00 31 24 8C 05 3B DD 53 54 41 52 | ..1$..;.STAR|
00000440: 54 3A 53 59 53 35 33 30 30 30 20 20 20 20 20 20 |T:SYS53000 |
00000450: 20 20 20 20 20 20 20 20 20 DD 00 56 24 96 05 3B | ..V$..;|
00000460: DD 45 4E 44 45 3A 3C 53 54 4F 50 2D 52 45 53 54 |.ENDE:<STOP-REST|
00000470: 4F 52 45 3E 2F 52 45 53 45 54 20 20 20 20 DD 00 |ORE>/RESET ..|
00000480: 7B 24 A0 05 3B DD 20 20 20 20 20 20 20 20 20 20 |{$..;. |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004A0: 20 20 20 DD 00 A0 24 AA 05 3B DD 5B 43 3D 5D 3D | ...$..;.[C=]=|
000004B0: 41 4E 48 41 4C 54 45 4E 20 56 4F 4E 20 42 49 4C |ANHALTEN VON BIL|
000004C0: 44 53 43 48 49 52 4D 2D DD 00 C5 24 B4 05 3B DD |DSCHIRM-...$..;.|
000004D0: 20 20 20 20 20 41 55 53 47 41 42 45 4E 20 20 20 | AUSGABEN |
000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 DD 00 EA | ...|
000004F0: 24 BE 05 3B DD 20 20 20 20 20 20 20 20 20 20 20 |$..;. |
00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000510: 20 20 DD 00 0F 25 C8 05 3B DD 5B 43 3D 5D 2B 5B | ...%..;.[C=]+[|
00000520: 43 54 52 4C 5D 2B 5B 53 48 49 46 54 5D 20 3D 20 |CTRL]+[SHIFT] = |
00000530: 20 20 20 20 20 20 20 DD 00 34 25 D2 05 3B DD 20 | ..4%..;. |
00000540: 20 20 20 20 52 45 2D 4E 45 57 20 46 55 4E 4B 54 | RE-NEW FUNKT|
00000550: 49 4F 4E 20 20 20 20 20 20 20 20 20 DD 00 59 25 |ION ..Y%|
00000560: DC 05 3B DD 20 20 20 20 20 20 20 20 20 20 20 20 |..;. |
00000570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000580: 20 DD 00 7E 25 E6 05 3B DD 41 55 54 4F 4D 41 54 | ..~%..;.AUTOMAT|
00000590: 49 53 43 48 3A 20 20 20 20 20 20 20 20 20 20 20 |ISCH: |
000005A0: 20 20 20 20 20 20 DD 00 A3 25 F0 05 3B DD 20 20 | ...%..;. |
000005B0: 20 20 20 2D 54 41 53 54 41 54 55 52 50 49 45 50 | -TASTATURPIEP|
000005C0: 53 20 20 20 20 20 20 20 20 20 20 DD 00 C8 25 FA |S ...%.|
000005D0: 05 3B DD 20 20 20 20 20 2D 43 55 52 53 4F 52 5A |.;. -CURSORZ|
000005E0: 45 49 4C 45 20 48 45 52 56 4F 52 48 45 42 45 4E |EILE HERVORHEBEN|
000005F0: DD 00 ED 25 04 06 3B DD 20 20 20 20 20 2D 42 49 |...%..;. -BI|
00000600: 4C 44 53 43 48 49 52 4D 46 41 52 42 45 4E 20 46 |LDSCHIRMFARBEN F|
00000610: 45 53 54 20 20 DD 00 12 26 0E 06 3B AD C0 C0 C0 |EST ...&..;....|
00000620: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000630: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 00 18 26 18 06 |.............&..|
00000640: 3B 00 1E 26 22 06 3B 00 24 26 2C 06 3B 00 2A 26 |;..&".;.$&,.;.*&|
00000650: 36 06 3B 00 50 26 40 06 3B C0 C0 C0 C0 C0 C0 C0 |6.;.P&@.;.......|
00000660: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000670: C0 C0 C0 C0 C0 C0 C0 C0 C0 00 6C 26 4A 06 3B 20 |..........l&J.; |
00000680: 20 20 20 20 20 20 20 56 4F 52 42 45 52 45 49 54 | VORBEREIT|
00000690: 55 4E 47 45 4E 00 92 26 54 06 3B C0 C0 C0 C0 C0 |UNGEN..&T.;.....|
000006A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000006B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 00 98 26 5E 06 |.............&^.|
000006C0: 3B 00 9E 26 68 06 3B 00 CF 26 72 06 2E 45 51 20 |;..&h.;..&r..EQ |
000006D0: 52 41 53 54 45 52 5A 20 20 20 3D 20 24 44 30 31 |RASTERZ = $D01|
000006E0: 32 3B 4C 45 53 45 4E 3A 41 4B 54 55 45 4C 4C 45 |2;LESEN:AKTUELLE|
000006F0: 20 52 41 53 54 2E 5A 2E 00 00 27 7C 06 3B 20 20 | RAST.Z...'|.; |
00000700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000710: 20 20 3B 53 43 48 52 45 49 42 45 4E 3A 20 49 52 | ;SCHREIBEN: IR|
00000720: 51 2D 52 41 53 54 2E 5A 2E 00 2F 27 86 06 2E 45 |Q-RAST.Z../'...E|
00000730: 51 20 49 52 51 4D 41 53 4B 20 20 20 3D 20 24 44 |Q IRQMASK = $D|
00000740: 30 31 41 3B 46 45 53 54 4C 45 47 55 4E 47 20 44 |01A;FESTLEGUNG D|
00000750: 45 53 20 20 41 55 53 2D 00 5B 27 90 06 3B 20 20 |ES AUS-.['..; |
00000760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000770: 20 20 3B 4C 4F 45 53 45 52 53 20 45 49 4E 45 53 | ;LOESERS EINES|
00000780: 20 49 52 51 00 91 27 9A 06 2E 45 51 20 41 55 53 | IRQ..'...EQ AUS|
00000790: 4C 4F 45 53 45 52 20 3D 20 24 44 30 31 39 3B 41 |LOESER = $D019;A|
000007A0: 55 53 4C 4F 45 53 45 52 20 44 45 53 20 41 4B 54 |USLOESER DES AKT|
000007B0: 55 45 4C 4C 45 4E 20 49 52 51 00 B7 27 A4 06 2E |UELLEN IRQ..'...|
000007C0: 45 51 20 52 41 48 4D 46 41 52 42 45 20 3D 20 24 |EQ RAHMFARBE = $|
000007D0: 44 30 32 30 3B 52 41 48 4D 45 4E 46 41 52 42 45 |D020;RAHMENFARBE|
000007E0: 00 D8 27 AE 06 2E 45 51 20 5A 45 49 4C 45 4E 46 |..'...EQ ZEILENF|
000007F0: 41 52 20 3D 20 31 32 20 3B 48 45 4C 4C 47 52 41 |AR = 12 ;HELLGRA|
00000800: 55 00 F8 27 B8 06 2E 45 51 20 48 49 4E 54 45 52 |U..'...EQ HINTER|
00000810: 46 41 52 20 3D 20 30 20 20 3B 53 43 48 57 41 52 |FAR = 0 ;SCHWAR|
00000820: 5A 00 16 28 C2 06 2E 45 51 20 43 55 52 53 46 41 |Z..(...EQ CURSFA|
00000830: 52 20 20 20 3D 20 31 20 20 3B 57 45 49 53 53 00 |R = 1 ;WEISS.|
00000840: 41 28 CC 06 2E 45 51 20 53 49 20 20 20 20 20 20 |A(...EQ SI |
00000850: 20 20 3D 20 24 44 34 30 30 3B 42 41 53 49 53 41 | = $D400;BASISA|
00000860: 44 52 45 53 53 45 20 53 49 44 00 6A 28 D6 06 2E |DRESSE SID.j(...|
00000870: 45 51 20 49 52 51 56 45 4B 20 20 20 20 3D 20 24 |EQ IRQVEK = $|
00000880: 30 33 31 34 3B 56 45 4B 54 4F 52 20 41 55 46 20 |0314;VEKTOR AUF |
00000890: 49 52 51 00 97 28 E0 06 2E 45 51 20 49 52 51 43 |IRQ..(...EQ IRQC|
000008A0: 54 52 4C 20 20 20 3D 20 24 44 43 30 44 3B 57 49 |TRL = $DC0D;WI|
000008B0: 45 20 24 44 30 31 39 20 42 45 49 4D 20 43 49 41 |E $D019 BEIM CIA|
000008C0: 00 BB 28 EA 06 2E 45 51 20 43 55 52 53 46 41 52 |..(...EQ CURSFAR|
000008D0: 42 45 20 3D 20 36 34 36 20 3B 43 55 52 53 4F 46 |BE = 646 ;CURSOF|
000008E0: 41 52 42 45 00 E2 28 F4 06 2E 45 51 20 49 52 51 |ARBE..(...EQ IRQ|
000008F0: 41 4C 54 20 20 20 20 3D 20 24 45 41 33 31 3B 4E |ALT = $EA31;N|
00000900: 4F 52 4D 41 4C 45 52 20 49 52 51 00 19 29 FE 06 |ORMALER IRQ..)..|
00000910: 2E 45 51 20 43 55 52 53 43 48 4E 45 4C 20 3D 20 |.EQ CURSCHNEL = |
00000920: 35 36 33 32 35 3B 54 49 4D 45 52 20 5A 55 4D 20 |56325;TIMER ZUM |
00000930: 41 55 53 4C 4F 45 53 45 4E 20 44 45 52 20 49 52 |AUSLOESEN DER IR|
00000940: 51 53 00 39 29 08 07 52 45 47 30 20 2E 42 59 35 |QS.9)..REG0 .BY5|
00000950: 30 3B 5A 57 49 53 43 48 45 4E 53 50 45 49 43 48 |0;ZWISCHENSPEICH|
00000960: 45 52 00 48 29 12 07 52 45 47 31 20 2E 42 59 35 |ER.H)..REG1 .BY5|
00000970: 38 00 56 29 1C 07 52 45 47 32 20 2E 42 59 30 00 |8.V)..REG2 .BY0.|
00000980: 64 29 26 07 52 45 47 33 20 2E 42 59 30 00 72 29 |d)&.REG3 .BY0.r)|
00000990: 30 07 52 45 47 34 20 2E 42 59 30 00 78 29 3A 07 |0.REG4 .BY0.x):.|
000009A0: 3B 00 7E 29 44 07 3B 00 A4 29 4E 07 3B C0 C0 C0 |;.~)D.;..)N.;...|
000009B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000009C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 00 C1 29 |...............)|
000009D0: 58 07 3B 20 20 20 20 20 20 20 49 4E 49 54 49 41 |X.; INITIA|
000009E0: 4C 49 45 53 49 45 52 55 4E 47 00 E7 29 62 07 3B |LIESIERUNG..)b.;|
000009F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000A00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000A10: 00 ED 29 6C 07 3B 00 F3 29 76 07 3B 00 17 2A 80 |..)l.;..)v.;..*.|
00000A20: 07 3B 44 49 45 20 4E 41 45 43 48 53 54 45 20 41 |.;DIE NAECHSTE A|
00000A30: 44 52 45 53 53 45 20 49 53 54 20 35 33 30 30 30 |DRESSE IST 53000|
00000A40: 00 36 2A 8A 07 20 53 45 49 3B 49 4E 54 45 52 52 |.6*.. SEI;INTERR|
00000A50: 55 50 54 53 20 56 45 52 48 49 4E 44 45 52 4E 00 |UPTS VERHINDERN.|
00000A60: 62 2A 94 07 20 4C 44 41 23 3C 28 53 54 41 52 54 |b*.. LDA#<(START|
00000A70: 29 3B 49 4E 54 45 52 52 55 50 54 5A 45 49 47 45 |);INTERRUPTZEIGE|
00000A80: 52 20 56 45 52 42 49 45 47 45 4E 00 71 2A 9E 07 |R VERBIEGEN.q*..|
00000A90: 20 53 54 41 49 52 51 56 45 4B 00 83 2A A8 07 20 | STAIRQVEK..*.. |
00000AA0: 4C 44 41 23 3E 28 53 54 41 52 54 29 00 94 2A B2 |LDA#>(START)..*.|
00000AB0: 07 20 53 54 41 49 52 51 56 45 4B 2B 31 00 C7 2A |. STAIRQVEK+1..*|
00000AC0: BC 07 20 4C 44 41 52 41 53 54 45 52 5A 2D 31 3B |.. LDARASTERZ-1;|
00000AD0: 48 49 2D 42 49 54 20 46 55 45 52 20 52 41 53 54 |HI-BIT FUER RAST|
00000AE0: 45 52 5A 45 49 4C 45 20 4C 4F 45 53 43 48 45 4E |ERZEILE LOESCHEN|
00000AF0: 00 D4 2A C6 07 20 41 4E 44 23 31 32 37 00 E6 2A |..*.. AND#127..*|
00000B00: D0 07 20 53 54 41 52 41 53 54 45 52 5A 2D 31 00 |.. STARASTERZ-1.|
00000B10: 07 2B DA 07 20 4C 44 41 23 31 32 39 3B 41 4C 53 |.+.. LDA#129;ALS|
00000B20: 20 49 4E 54 45 52 52 55 50 54 51 55 45 4C 4C 45 | INTERRUPTQUELLE|
00000B30: 00 2B 2B E4 07 20 53 54 41 49 52 51 4D 41 53 4B |.++.. STAIRQMASK|
00000B40: 3B 52 41 53 54 45 52 49 52 51 20 46 45 53 54 4C |;RASTERIRQ FESTL|
00000B50: 45 47 45 4E 00 55 2B EE 07 20 4C 44 41 23 3C 28 |EGEN.U+.. LDA#<(|
00000B60: 53 54 41 52 54 32 29 3B 4F 55 54 50 55 54 56 45 |START2);OUTPUTVE|
00000B70: 4B 54 4F 52 20 56 45 52 42 49 45 47 45 4E 00 68 |KTOR VERBIEGEN.h|
00000B80: 2B F8 07 20 4C 44 58 23 3E 28 53 54 41 52 54 32 |+.. LDX#>(START2|
00000B90: 29 00 74 2B 02 08 20 53 54 41 38 30 36 00 80 2B |).t+.. STA806..+|
00000BA0: 0C 08 20 53 54 58 38 30 37 00 9C 2B 16 08 20 43 |.. STX807..+.. C|
00000BB0: 4C 49 3B 49 4E 54 45 52 52 55 50 54 53 5A 55 4C |LI;INTERRUPTSZUL|
00000BC0: 41 53 53 45 4E 00 B6 2B 20 08 20 52 54 53 3B 5A |ASSEN..+ . RTS;Z|
00000BD0: 55 52 55 45 43 4B 20 5A 55 20 42 41 53 49 43 00 |URUECK ZU BASIC.|
00000BE0: BC 2B 2A 08 3B 00 C2 2B 34 08 3B 00 E8 2B 3E 08 |.+*.;..+4.;..+>.|
00000BF0: 3B C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |;...............|
00000C00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000C10: C0 00 08 2C 48 08 3B 20 20 20 20 20 4E 45 55 45 |...,H.; NEUE|
00000C20: 20 49 4E 54 45 52 52 55 50 54 52 4F 55 54 49 4E | INTERRUPTROUTIN|
00000C30: 45 00 2E 2C 52 08 3B C0 C0 C0 C0 C0 C0 C0 C0 C0 |E..,R.;.........|
00000C40: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000C50: C0 C0 C0 C0 C0 C0 C0 00 4F 2C 5C 08 3B 20 20 20 |........O,\.; |
00000C60: 20 57 45 4C 43 48 45 52 20 49 52 51 2D 41 55 53 | WELCHER IRQ-AUS|
00000C70: 4C 4F 45 53 45 52 20 3F 00 75 2C 66 08 3B C0 C0 |LOESER ?.u,f.;..|
00000C80: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000C90: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 00 7B |...............{|
00000CA0: 2C 70 08 3B 00 81 2C 7A 08 3B 00 98 2C 84 08 53 |,p.;..,z.;..,..S|
00000CB0: 54 41 52 54 20 4C 44 41 41 55 53 4C 4F 45 53 45 |TART LDAAUSLOESE|
00000CC0: 52 00 C2 2C 8E 08 20 53 54 41 41 55 53 4C 4F 45 |R..,.. STAAUSLOE|
00000CD0: 53 45 52 3B 4C 4F 45 53 43 48 45 4E 20 44 45 53 |SER;LOESCHEN DES|
00000CE0: 20 41 55 53 4C 4F 45 53 45 52 53 00 EA 2C 98 08 | AUSLOESERS..,..|
00000CF0: 20 42 50 4C 49 52 51 4E 45 55 3B 57 45 4E 4E 20 | BPLIRQNEU;WENN |
00000D00: 41 55 53 4C 4F 45 53 45 52 20 4E 49 43 48 54 20 |AUSLOESER NICHT |
00000D10: 56 49 43 00 1A 2D A2 08 3B 20 20 20 20 20 20 20 |VIC..-..; |
00000D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D30: 20 3B 5A 55 4D 20 43 49 41 2D 49 4E 54 45 52 52 | ;ZUM CIA-INTERR|
00000D40: 55 50 54 00 20 2D AC 08 3B 00 26 2D B6 08 3B 00 |UPT. -..;.&-..;.|
00000D50: 4C 2D C0 08 3B C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |L-..;...........|
00000D60: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000D70: C0 C0 C0 C0 C0 00 6C 2D CA 08 3B 20 20 20 20 20 |......l-..; |
00000D80: 52 41 53 54 45 52 5A 45 49 4C 45 4E 49 4E 54 45 |RASTERZEILENINTE|
00000D90: 52 52 55 50 54 00 92 2D D4 08 3B C0 C0 C0 C0 C0 |RRUPT..-..;.....|
00000DA0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000DB0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 00 98 2D DE 08 |.............-..|
00000DC0: 3B 00 9E 2D E8 08 3B 00 D6 2D F2 08 52 41 53 54 |;..-..;..-..RAST|
00000DD0: 45 52 49 52 51 20 4C 44 41 52 41 53 54 45 52 5A |ERIRQ LDARASTERZ|
00000DE0: 3B 4F 42 45 52 45 20 4F 44 45 52 20 55 4E 54 45 |;OBERE ODER UNTE|
00000DF0: 52 45 20 52 41 53 54 45 52 5A 45 49 4C 45 3F 00 |RE RASTERZEILE?.|
00000E00: E3 2D FC 08 20 43 4D 50 52 45 47 31 00 06 2E 06 |.-.. CMPREG1....|
00000E10: 09 20 42 43 53 57 45 49 54 45 52 31 3B 57 45 4E |. BCSWEITER1;WEN|
00000E20: 4E 20 55 4E 54 45 52 45 20 53 50 52 55 4E 47 00 |N UNTERE SPRUNG.|
00000E30: 2D 2E 10 09 20 4C 44 41 23 5A 45 49 4C 45 4E 46 |-... LDA#ZEILENF|
00000E40: 41 52 3B 4E 45 55 45 20 5A 45 49 4C 45 4E 46 41 |AR;NEUE ZEILENFA|
00000E50: 52 42 45 20 49 4E 00 4A 2E 1A 09 20 53 54 41 52 |RBE IN.J... STAR|
00000E60: 41 48 4D 46 41 52 42 45 3B 52 41 48 4D 45 4E 20 |AHMFARBE;RAHMEN |
00000E70: 55 4E 44 00 71 2E 24 09 20 53 54 41 52 41 48 4D |UND.q.$. STARAHM|
00000E80: 46 41 52 42 45 2B 31 3B 48 49 4E 54 45 52 47 52 |FARBE+1;HINTERGR|
00000E90: 55 4E 44 20 53 45 54 5A 45 4D 00 8F 2E 2E 09 20 |UND SETZEM..... |
00000EA0: 4C 44 41 52 45 47 31 3B 4E 45 55 45 20 52 41 53 |LDAREG1;NEUE RAS|
00000EB0: 54 45 52 5A 45 49 4C 45 00 AD 2E 38 09 20 42 4E |TERZEILE...8. BN|
00000EC0: 45 45 4E 44 45 31 3B 53 50 52 55 4E 47 20 5A 55 |EENDE1;SPRUNG ZU|
00000ED0: 4D 20 45 4E 44 45 00 D8 2E 42 09 57 45 49 54 45 |M ENDE...B.WEITE|
00000EE0: 52 31 20 4C 44 41 23 48 49 4E 54 45 52 46 41 52 |R1 LDA#HINTERFAR|
00000EF0: 3B 4E 4F 52 4D 41 4C 45 20 46 41 52 42 45 20 49 |;NORMALE FARBE I|
00000F00: 4E 00 F5 2E 4C 09 20 53 54 41 52 41 48 4D 46 41 |N...L. STARAHMFA|
00000F10: 52 42 45 3B 52 41 48 4D 45 4E 20 55 4E 44 00 1C |RBE;RAHMEN UND..|
00000F20: 2F 56 09 20 53 54 41 52 41 48 4D 46 41 52 42 45 |/V. STARAHMFARBE|
00000F30: 2B 31 3B 48 49 4E 54 45 52 47 52 55 4E 44 20 53 |+1;HINTERGRUND S|
00000F40: 45 54 5A 45 4E 00 3B 2F 60 09 20 4C 44 41 52 45 |ETZEN.;/`. LDARE|
00000F50: 47 30 3B 4F 42 45 52 45 20 52 41 53 54 45 52 5A |G0;OBERE RASTERZ|
00000F60: 45 49 4C 45 00 5A 2F 6A 09 45 4E 44 45 31 20 53 |EILE.Z/j.ENDE1 S|
00000F70: 54 41 52 41 53 54 45 52 5A 3B 53 50 45 49 43 48 |TARASTERZ;SPEICH|
00000F80: 45 52 4E 00 7A 2F 74 09 20 4A 4D 50 24 45 41 37 |ERN.z/t. JMP$EA7|
00000F90: 45 3B 49 4E 54 45 52 52 55 50 54 20 42 45 45 4E |E;INTERRUPT BEEN|
00000FA0: 44 45 4E 00 80 2F 7E 09 3B 00 86 2F 88 09 3B 00 |DEN../~.;../..;.|
00000FB0: AC 2F 92 09 3B C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |./..;...........|
00000FC0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000FD0: C0 C0 C0 C0 C0 00 C8 2F 9C 09 3B 20 20 20 20 20 |......./..; |
00000FE0: 20 20 53 59 53 54 45 4D 49 4E 54 45 52 52 55 50 | SYSTEMINTERRUP|
00000FF0: 54 00 EE 2F A6 09 3B C0 C0 C0 C0 C0 C0 C0 C0 C0 |T../..;.........|
00001000: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001010: C0 C0 C0 C0 C0 C0 C0 00 F4 2F B0 09 3B 00 FA 2F |........./..;../|
00001020: BA 09 3B 00 23 30 C4 09 49 52 51 4E 45 55 20 4C |..;.#0..IRQNEU L|
00001030: 44 41 49 52 51 43 54 52 4C 3B 41 55 53 4C 4F 45 |DAIRQCTRL;AUSLOE|
00001040: 53 45 52 20 4C 4F 45 53 43 48 45 4E 00 40 30 CE |SER LOESCHEN.@0.|
00001050: 09 20 43 4C 49 3B 49 4E 54 45 52 52 55 50 54 53 |. CLI;INTERRUPTS|
00001060: 20 5A 55 4C 41 53 53 45 4E 00 6D 30 D8 09 20 4C | ZULASSEN.m0.. L|
00001070: 44 41 32 31 34 3B 52 41 53 54 45 52 5A 45 49 4C |DA214;RASTERZEIL|
00001080: 45 4E 20 46 55 45 52 20 52 41 53 54 45 52 49 52 |EN FUER RASTERIR|
00001090: 51 20 42 45 52 2E 00 80 30 E2 09 20 41 53 4C 3B |Q BER...0.. ASL;|
000010A0: 2A 38 20 4E 45 48 4D 45 4E 00 89 30 EC 09 20 41 |*8 NEHMEN..0.. A|
000010B0: 53 4C 00 92 30 F6 09 20 41 53 4C 00 B0 30 00 0A |SL..0.. ASL..0..|
000010C0: 20 41 44 43 23 35 30 3B 45 52 53 54 45 20 52 41 | ADC#50;ERSTE RA|
000010D0: 53 54 45 52 5A 45 49 4C 45 00 C7 30 0A 0A 20 53 |STERZEILE..0.. S|
000010E0: 54 41 52 45 47 30 3B 53 50 45 49 43 48 45 52 4E |TAREG0;SPEICHERN|
000010F0: 00 E5 30 14 0A 20 41 44 43 23 38 3B 4C 45 54 5A |..0.. ADC#8;LETZ|
00001100: 54 45 20 52 41 53 54 45 52 5A 45 49 4C 45 00 FC |TE RASTERZEILE..|
00001110: 30 1E 0A 20 53 54 41 52 45 47 31 3B 53 50 45 49 |0.. STAREG1;SPEI|
00001120: 43 48 45 52 4E 00 20 31 28 0A 20 4C 44 41 23 43 |CHERN. 1(. LDA#C|
00001130: 55 52 53 46 41 52 3B 53 43 48 52 49 46 54 46 41 |URSFAR;SCHRIFTFA|
00001140: 52 42 45 20 57 45 49 53 53 00 39 31 32 0A 20 53 |RBE WEISS.912. S|
00001150: 54 41 43 55 52 53 46 41 52 42 45 3B 53 45 54 5A |TACURSFARBE;SETZ|
00001160: 45 4E 00 56 31 3C 0A 20 4C 44 41 52 45 47 32 3B |EN.V1<. LDAREG2;|
00001170: 43 55 52 53 4F 52 20 53 43 48 4E 45 4C 4C 3F 00 |CURSOR SCHNELL?.|
00001180: 71 31 46 0A 20 42 4E 45 4F 4B 31 3B 57 45 4E 4E |q1F. BNEOK1;WENN|
00001190: 20 4A 41 20 5A 55 20 4F 4B 31 00 96 31 50 0A 20 | JA ZU OK1..1P. |
000011A0: 4A 53 52 43 47 45 44 52 3B 43 55 52 53 4F 52 54 |JSRCGEDR;CURSORT|
000011B0: 41 53 54 45 20 47 45 44 52 55 45 43 4B 54 3F 00 |ASTE GEDRUECKT?.|
000011C0: B3 31 5A 0A 20 42 4E 45 4F 4B 32 3B 5A 41 45 48 |.1Z. BNEOK2;ZAEH|
000011D0: 4C 45 52 20 4C 4F 45 53 43 48 45 4E 00 D7 31 64 |LER LOESCHEN..1d|
000011E0: 0A 20 49 4E 43 52 45 47 33 3B 53 4F 4E 53 54 20 |. INCREG3;SONST |
000011F0: 5A 41 45 48 4C 45 52 20 45 52 48 4F 45 48 45 4E |ZAEHLER ERHOEHEN|
00001200: 00 F0 31 6E 0A 20 4C 44 41 52 45 47 33 3B 5A 41 |..1n. LDAREG3;ZA|
00001210: 45 48 4C 45 52 20 4D 49 54 00 0B 32 78 0A 20 43 |EHLER MIT..2x. C|
00001220: 4D 50 23 32 38 3B 32 38 20 56 45 52 47 4C 45 49 |MP#28;28 VERGLEI|
00001230: 43 48 45 4E 00 2E 32 82 0A 20 42 4E 45 45 4E 44 |CHEN..2.. BNEEND|
00001240: 3B 57 45 4E 4E 20 55 4E 47 4C 45 49 43 48 20 5A |;WENN UNGLEICH Z|
00001250: 55 4D 20 45 4E 44 45 00 4F 32 8C 0A 20 4C 44 41 |UM ENDE.O2.. LDA|
00001260: 23 32 36 3B 43 55 52 53 4F 52 20 42 45 53 43 48 |#26;CURSOR BESCH|
00001270: 4C 45 55 4E 49 47 45 4E 00 61 32 96 0A 20 53 54 |LEUNIGEN.a2.. ST|
00001280: 41 43 55 52 53 43 48 4E 45 4C 00 82 32 A0 0A 20 |ACURSCHNEL..2.. |
00001290: 53 54 41 52 45 47 32 3B 46 4C 41 47 20 53 43 48 |STAREG2;FLAG SCH|
000012A0: 4E 45 4C 4C 20 53 45 54 5A 45 4E 00 97 32 AA 0A |NELL SETZEN..2..|
000012B0: 20 42 4E 45 45 4E 44 3B 5A 55 4D 20 45 4E 44 45 | BNEEND;ZUM ENDE|
000012C0: 00 BF 32 B4 0A 4F 4B 31 20 4A 53 52 43 47 45 44 |..2..OK1 JSRCGED|
000012D0: 52 3B 43 55 52 53 4F 52 54 41 53 54 45 20 47 45 |R;CURSORTASTE GE|
000012E0: 44 52 55 45 43 4B 54 3F 00 DC 32 BE 0A 20 42 45 |DRUECKT?..2.. BE|
000012F0: 51 45 4E 44 3B 57 45 4E 4E 20 4A 41 20 5A 55 4D |QEND;WENN JA ZUM|
00001300: 20 45 4E 44 45 00 F5 32 C8 0A 20 4C 44 41 23 35 | ENDE..2.. LDA#5|
00001310: 32 3B 53 4F 4E 53 54 20 43 55 52 53 4F 52 00 16 |2;SONST CURSOR..|
00001320: 33 D2 0A 20 53 54 41 43 55 52 53 43 48 4E 45 4C |3.. STACURSCHNEL|
00001330: 3B 43 55 52 53 4F 52 20 4C 41 4E 47 53 41 4D 00 |;CURSOR LANGSAM.|
00001340: 2C 33 DC 0A 4F 4B 32 20 4C 44 41 23 30 3B 5A 41 |,3..OK2 LDA#0;ZA|
00001350: 45 48 4C 45 52 00 49 33 E6 0A 20 53 54 41 52 45 |EHLER.I3.. STARE|
00001360: 47 33 3B 55 4E 44 20 46 4C 41 47 53 43 48 4E 45 |G3;UND FLAGSCHNE|
00001370: 4C 4C 00 5F 33 F0 0A 20 53 54 41 52 45 47 32 3B |LL._3.. STAREG2;|
00001380: 4C 4F 45 53 43 48 45 4E 00 85 33 FA 0A 45 4E 44 |LOESCHEN..3..END|
00001390: 20 4C 44 41 32 30 33 3B 54 41 53 54 41 54 55 52 | LDA203;TASTATUR|
000013A0: 50 49 45 50 53 20 45 52 5A 45 55 47 45 4E 00 AA |PIEPS ERZEUGEN..|
000013B0: 33 04 0B 20 43 4D 50 23 36 34 3B 57 45 4E 4E 20 |3.. CMP#64;WENN |
000013C0: 4B 45 49 4E 45 20 54 41 53 54 45 20 2D 3E 20 45 |KEINE TASTE -> E|
000013D0: 4E 44 45 00 B7 33 0E 0B 20 42 45 51 45 4E 44 45 |NDE..3.. BEQENDE|
000013E0: 00 DC 33 18 0B 20 43 4D 50 52 45 47 34 3B 57 45 |..3.. CMPREG4;WE|
000013F0: 4E 4E 20 41 4C 54 45 20 54 41 53 54 45 20 2D 3E |NN ALTE TASTE ->|
00001400: 20 45 4E 44 45 00 E9 33 22 0B 20 42 45 51 45 4E | ENDE..3". BEQEN|
00001410: 44 45 00 08 34 2C 0B 20 4C 44 41 23 31 35 3B 4C |DE..4,. LDA#15;L|
00001420: 41 55 54 53 54 41 45 52 4B 45 20 53 45 54 5A 45 |AUTSTAERKE SETZE|
00001430: 4E 00 16 34 36 0B 20 53 54 41 53 49 2B 32 34 00 |N..46. STASI+24.|
00001440: 31 34 40 0B 20 4C 44 41 23 30 3B 54 4F 4E 20 41 |14@. LDA#0;TON A|
00001450: 55 53 53 43 48 41 4C 54 45 4E 00 3E 34 4A 0B 20 |USSCHALTEN.>4J. |
00001460: 53 54 41 53 49 2B 34 00 59 34 54 0B 20 4C 44 41 |STASI+4.Y4T. LDA|
00001470: 23 33 33 3B 54 4F 4E 20 41 4E 53 43 48 41 4C 54 |#33;TON ANSCHALT|
00001480: 45 4E 00 66 34 5E 0B 20 53 54 41 53 49 2B 34 00 |EN.f4^. STASI+4.|
00001490: 80 34 68 0B 20 4C 44 41 23 32 3B 41 44 53 52 20 |.4h. LDA#2;ADSR |
000014A0: 42 45 53 54 49 4D 4D 45 4E 00 8D 34 72 0B 20 53 |BESTIMMEN..4r. S|
000014B0: 54 41 53 49 2B 35 00 9A 34 7C 0B 20 53 54 41 53 |TASI+5..4|. STAS|
000014C0: 49 2B 36 00 B9 34 86 0B 20 4C 44 41 23 33 34 3B |I+6..4.. LDA#34;|
000014D0: 46 52 45 51 55 45 4E 5A 20 42 45 53 54 49 4D 4D |FREQUENZ BESTIMM|
000014E0: 45 4E 00 C6 34 90 0B 20 53 54 41 53 49 2B 31 00 |EN..4.. STASI+1.|
000014F0: D3 34 9A 0B 20 4C 44 41 23 32 30 37 00 DE 34 A4 |.4.. LDA#207..4.|
00001500: 0B 20 53 54 41 53 49 00 FE 34 AE 0B 45 4E 44 45 |. STASI..4..ENDE|
00001510: 20 4C 44 41 32 30 33 3B 54 41 53 54 45 20 53 50 | LDA203;TASTE SP|
00001520: 45 49 43 48 45 52 4E 00 0B 35 B8 0B 20 53 54 41 |EICHERN..5.. STA|
00001530: 52 45 47 34 00 27 35 C2 0B 20 4C 44 41 36 35 33 |REG4.'5.. LDA653|
00001540: 3B 3C 43 54 52 4C 2B 43 3D 2B 53 48 49 46 54 3E |;<CTRL+C=+SHIFT>|
00001550: 00 3D 35 CC 0B 20 43 4D 50 23 37 3B 47 45 44 52 |.=5.. CMP#7;GEDR|
00001560: 55 45 43 4B 54 3F 00 5B 35 D6 0B 20 42 45 51 52 |UECKT?.[5.. BEQR|
00001570: 45 4E 45 57 3B 57 45 4E 4E 20 4A 41 2D 3E 52 45 |ENEW;WENN JA->RE|
00001580: 2D 4E 45 57 00 7B 35 E0 0B 20 42 4E 45 4D 55 53 |-NEW.{5.. BNEMUS|
00001590: 3B 53 4F 4E 53 54 20 5A 55 4D 20 41 4C 54 45 4E |;SONST ZUM ALTEN|
000015A0: 20 49 52 51 00 A7 35 EA 0B 53 54 41 52 54 32 20 | IRQ..5..START2 |
000015B0: 50 48 41 3B 4F 55 54 50 55 54 52 4F 55 54 49 4E |PHA;OUTPUTROUTIN|
000015C0: 45 3B 41 4B 4B 55 20 53 50 45 49 43 48 45 52 4E |E;AKKU SPEICHERN|
000015D0: 00 B5 35 F4 0B 4C 36 20 4C 44 41 36 35 33 00 D9 |..5..L6 LDA653..|
000015E0: 35 FE 0B 20 43 4D 50 23 32 3B 57 45 4E 4E 20 43 |5.. CMP#2;WENN C|
000015F0: 3D 20 47 45 44 52 55 45 43 4B 54 20 57 41 52 54 |= GEDRUECKT WART|
00001600: 45 4E 00 E4 35 08 0C 20 42 45 51 4C 36 00 FF 35 |EN..5.. BEQL6..5|
00001610: 12 0C 20 50 4C 41 3B 41 4B 4B 55 20 5A 55 52 55 |.. PLA;AKKU ZURU|
00001620: 45 43 4B 48 4F 4C 45 4E 00 29 36 1C 0C 20 4A 4D |ECKHOLEN.)6.. JM|
00001630: 50 24 46 31 43 41 3B 5A 55 52 20 4E 4F 52 4D 41 |P$F1CA;ZUR NORMA|
00001640: 4C 45 4E 20 4F 55 54 50 55 54 2D 52 4F 55 54 49 |LEN OUTPUT-ROUTI|
00001650: 4E 45 00 53 36 26 0C 52 45 4E 45 57 20 4C 44 41 |NE.S6&.RENEW LDA|
00001660: 24 32 43 3B 5A 45 49 47 45 52 20 41 55 46 20 20 |$2C;ZEIGER AUF |
00001670: 42 41 53 49 43 20 41 4E 46 41 4E 47 00 79 36 30 |BASIC ANFANG.y60|
00001680: 0C 20 4C 44 59 23 31 3B 45 4E 44 45 4B 45 4E 4E |. LDY#1;ENDEKENN|
00001690: 55 4E 47 20 30 20 30 20 30 20 4C 4F 45 53 43 48 |UNG 0 0 0 LOESCH|
000016A0: 45 4E 00 89 36 3A 0C 20 53 54 41 28 24 32 42 29 |EN..6:. STA($2B)|
000016B0: 2C 59 00 A9 36 44 0C 20 4A 53 52 24 41 35 33 33 |,Y..6D. JSR$A533|
000016C0: 3B 5A 45 49 4C 45 4E 20 4E 45 55 20 42 49 4E 44 |;ZEILEN NEU BIND|
000016D0: 45 4E 00 C8 36 4E 0C 20 4C 44 41 24 32 32 3B 48 |EN..6N. LDA$22;H|
000016E0: 49 4C 46 53 5A 45 49 47 45 52 20 48 4F 4C 45 4E |ILFSZEIGER HOLEN|
000016F0: 52 00 E9 36 58 0C 20 41 44 43 23 32 3B 42 41 53 |R..6X. ADC#2;BAS|
00001700: 49 43 2D 45 4E 44 45 20 4E 45 55 20 53 45 54 5A |IC-ENDE NEU SETZ|
00001710: 45 4E 00 F5 36 62 0C 20 53 54 41 24 32 44 00 01 |EN..6b. STA$2D..|
00001720: 37 6C 0C 20 4C 44 41 24 32 33 00 0C 37 76 0C 20 |7l. LDA$23..7v. |
00001730: 41 44 43 23 30 00 18 37 80 0C 20 53 54 41 24 32 |ADC#0..7.. STA$2|
00001740: 45 00 41 37 8A 0C 4D 55 53 20 4A 4D 50 49 52 51 |E.A7..MUS JMPIRQ|
00001750: 41 4C 54 3B 5A 55 4D 20 4E 4F 52 4D 41 4C 45 4E |ALT;ZUM NORMALEN|
00001760: 20 49 4E 54 45 52 52 55 50 54 00 47 37 94 0C 3B | INTERRUPT.G7..;|
00001770: 00 00 00 |... |
X..... .BA52979.....;.....;.. ..;.......
..........................9 ..; CURS
ORTASTE GEDRUECKT?._ ..;................
.................E $.;.K ..;.| 8.CGEDR L
DA203.. B. CMP#2;LINKS/RECHTS GEDR.?.. L
. BEQEND2;JA.I V. CMP#7;HOCH/RUNTER GEDR
.?.Y `. BEQEND2;JA.. J. LDA#1;ZERO-FLAG
LOESCHEN..!T. RTS. !~.END2 LDA#0;ZERO-FL
AG SETZEN.)!.. RTS./!..;.5!..;.;!..;.A!.
.;.F!..;*******************************.
.!D.;*** H E L P 64 ***..!N
.;*******************************.U!X.;*
** ***..!..;***
WRITTEN (C) IN 1987 ***.."..;*** BY
INGO RUNKEL ***.D"..;*** HAC
KBERGER STRASSE 12***.I"..;*** 4006 E
RKRATH 2 ***.."..;***
***.."..;*** &
***.X"..;***
***.."(.;*** KAI GERMASCHEWSKI
***."#2.;*** HEIDE 18
***.G#<.;*** 4044 KAARST 2 /VORST ***
.L#F.;*** ***..#
P.;*******************************..#Z.;
..#D.;.B#N.;............................
.....#X.;.KURZBESCHREIBUNG .
..$..;.................. ..1$
..;.START:SYS53000 ..V$..;
.ENDE:<STOP-RESTORE>/RESET ..{$ .;.
.. $..;.[C=]=
ANHALTEN VON BILDSCHIRM-..E$..;. AUS
GABEN ...$..;.
...%H.;.[C=]+[CTRL]+[S
HIFT] = ..4%R.;. RE-NEW FUNKT
ION ..Y%..;.
..~%..;.AUTOMATISCH:
...%..;. -TASTATURPIEPS
..H%..;. -CURSORZEILE HERVORHEBEN
...%..;. -BILDSCHIRMFARBEN FEST ...
&..;.................................&..
;..&".;.$&,.;.*&6.;.P&@.;...............
..................L&J.; VORBEREIT
UNGEN..&T.;.............................
.....&^.;..&H.;.O&R..EQ RASTERZ = $D01
2;LESEN:AKTUELLE RAST.Z...'|.;
;SCHREIBEN: IRQ-RAST.Z../'...E
Q IRQMASK = $D01A;FESTLEGUNG DES AUS-
.['..; ;LOESERS EINES
IRQ..'...EQ AUSLOESER = $D019;AUSLOESER
DES AKTUELLEN IRQ..'...EQ RAHMFARBE = $
D020;RAHMENFARBE.X'...EQ ZEILENFAR = 12
;HELLGRAU..'...EQ HINTERFAR = 0 ;SCHWAR
Z..(B..EQ CURSFAR = 1 ;WEISS.A(L..EQ
SI = $D400;BASISADRESSE SID.J(V..
EQ IRQVEK = $0314;VEKTOR AUF IRQ..(..
.EQ IRQCTRL = $DC0D;WIE $D019 BEIM CIA
..(...EQ CURSFARBE = 646 ;CURSOFARBE..(.
..EQ IRQALT = $EA31;NORMALER IRQ..)..
.EQ CURSCHNEL = 56325;TIMER ZUM AUSLOESE
N DER IRQS.9)..REG0 .BY50;ZWISCHENSPEICH
ER.H)..REG1 .BY58.V)..REG2 .BY0.D)&.REG3
.BY0.R)0.REG4 .BY0.X):.;.~)D.;..)N.;...
..............................A)X.;
INITIALIESIERUNG..)B.;................
..................)L.;..)V.;..*..;DIE NA
ECHSTE ADRESSE IST 53000.6*.. SEI;INTERR
UPTS VERHINDERN.B*.. LDA#<(START);INTERR
UPTZEIGER VERBIEGEN.Q*.. STAIRQVEK..*..
LDA#>(START)..*.. STAIRQVEK+1.G*.. LDARA
STERZ-1;HI-BIT FUER RASTERZEILE LOESCHEN
.T*F. AND#127..*P. STARASTERZ-1..+Z. LDA
#129;ALS INTERRUPTQUELLE.++.. STAIRQMASK
;RASTERIRQ FESTLEGEN.U+.. LDA#<(START2);
OUTPUTVEKTOR VERBIEGEN.H+.. LDX#>(START2
).T+.. STA806..+.. STX807..+.. CLI;INTER
RUPTSZULASSEN..+ . RTS;ZURUECK ZU BASIC.
.+*.;.B+4.;..+>.;.......................
...........,H.; NEUE INTERRUPTROUTIN
E..,R.;.................................
O,\.; WELCHER IRQ-AUSLOESER ?.U,F.;..
...............................{,P.;..,Z
.;..,..START LDAAUSLOESER.B,.. STAAUSLOE
SER;LOESCHEN DES AUSLOESERS..,.. BPLIRQN
EU;WENN AUSLOESER NICHT VIC..-..;
;ZUM CIA-INTERRUPT. -..
;.&-..;.L-..;...........................
......L-J.; RASTERZEILENINTERRUPT..-
T.;..................................-..
;..-..;.V-..RASTERIRQ LDARASTERZ;OBERE O
DER UNTERE RASTERZEILE?..-.. CMPREG1....
. BCSWEITER1;WENN UNTERE SPRUNG.-... LDA
#ZEILENFAR;NEUE ZEILENFARBE IN.J... STAR
AHMFARBE;RAHMEN UND.Q.$. STARAHMFARBE+1;
HINTERGRUND SETZEM..... LDAREG1;NEUE RAS
TERZEILE...8. BNEENDE1;SPRUNG ZUM ENDE.X
.B.WEITER1 LDA#HINTERFAR;NORMALE FARBE I
N...L. STARAHMFARBE;RAHMEN UND../V. STAR
AHMFARBE+1;HINTERGRUND SETZEN.;/`. LDARE
G0;OBERE RASTERZEILE.Z/J.ENDE1 STARASTER
Z;SPEICHERN.Z/T. JMP$EA7E;INTERRUPT BEEN
DEN../~.;../..;../..;...................
..............H/..; SYSTEMINTERRUP
T../..;.................................
./..;../..;.#0D.IRQNEU LDAIRQCTRL;AUSLOE
SER LOESCHEN.@0N. CLI;INTERRUPTS ZULASSE
N.M0X. LDA214;RASTERZEILEN FUER RASTERIR
Q BER...0.. ASL;*8 NEHMEN..0.. ASL..0..
ASL..0.. ADC#50;ERSTE RASTERZEILE.G0.. S
TAREG0;SPEICHERN..0.. ADC#8;LETZTE RASTE
RZEILE..0.. STAREG1;SPEICHERN. 1(. LDA#C
URSFAR;SCHRIFTFARBE WEISS.912. STACURSFA
RBE;SETZEN.V1<. LDAREG2;CURSOR SCHNELL?.
Q1F. BNEOK1;WENN JA ZU OK1..1P. JSRCGEDR
;CURSORTASTE GEDRUECKT?..1Z. BNEOK2;ZAEH
LER LOESCHEN.W1D. INCREG3;SONST ZAEHLER
ERHOEHEN..1N. LDAREG3;ZAEHLER MIT..2X. C
MP#28;28 VERGLEICHEN..2.. BNEEND;WENN UN
GLEICH ZUM ENDE.O2.. LDA#26;CURSOR BESCH
LEUNIGEN.A2.. STACURSCHNEL..2 . STAREG2;
FLAG SCHNELL SETZEN..2.. BNEEND;ZUM ENDE
..2..OK1 JSRCGEDR;CURSORTASTE GEDRUECKT?
..2.. BEQEND;WENN JA ZUM ENDE..2H. LDA#5
2;SONST CURSOR..3R. STACURSCHNEL;CURSOR
LANGSAM.,3..OK2 LDA#0;ZAEHLER.I3.. STARE
G3;UND FLAGSCHNELL._3.. STAREG2;LOESCHEN
..3..END LDA203;TASTATURPIEPS ERZEUGEN..
3.. CMP#64;WENN KEINE TASTE -> ENDE..3..
BEQENDE..3.. CMPREG4;WENN ALTE TASTE ->
ENDE..3". BEQENDE..4,. LDA#15;LAUTSTAER
KE SETZEN..46. STASI+24.14@. LDA#0;TON A
USSCHALTEN.>4J. STASI+4.Y4T. LDA#33;TON
ANSCHALTEN.F4^. STASI+4..4H. LDA#2;ADSR
BESTIMMEN..4R. STASI+5..4|. STASI+6..4..
LDA#34;FREQUENZ BESTIMMEN.F4.. STASI+1.
S4.. LDA#207..4.. STASI..4..ENDE LDA203;
TASTE SPEICHERN..5.. STAREG4.'5B. LDA653
;<CTRL+C=+SHIFT>.=5L. CMP#7;GEDRUECKT?.[
5V. BEQRENEW;WENN JA->RE-NEW.{5.. BNEMUS
;SONST ZUM ALTEN IRQ..5..START2 PHA;OUTP
UTROUTINE;AKKU SPEICHERN..5..L6 LDA653.Y
5.. CMP#2;WENN C= GEDRUECKT WARTEN..5..
BEQL6..5.. PLA;AKKU ZURUECKHOLEN.)6.. JM
P$F1CA;ZUR NORMALEN OUTPUT-ROUTINE.S6&.R
ENEW LDA$2C;ZEIGER AUF BASIC ANFANG.Y60
. LDY#1;ENDEKENNUNG 0 0 0 LOESCHEN..6:.
STA($2B),Y..6D. JSR$A533;ZEILEN NEU BIND
EN.H6N. LDA$22;HILFSZEIGER HOLENR..6X. A
DC#2;BASIC-ENDE NEU SETZEN..6B. STA$2D..
7L. LDA$23..7V. ADC#0..7.. STA$2E.A7..MU
S JMPIRQALT;ZUM NORMALEN INTERRUPT.G7..;
...
> CLICK IMAGE PREVIEW FOR FULL MODAL