_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

KERNEL.SRC

FILE INFORMATION

FILENAME(S): KERNEL.SRC

FILE TYPE(S): PRG

FILE SIZE: 8.2K

FIRST SEEN: 2025-11-30 01:12:33

APPEARS ON: 2 disk(s)

FILE HASH

d1d2f612aec2fd9ae163fae5fe79218c37dbdf6843f5d167d142023b98cbf8a6

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
SONDERHEFT 7 86 KERNEL.SRC PRG C64er 10 0 DOWNLOAD FILE
15829 SEITE B KERNEL.SRC PRG C64er 5 11 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 1C 1C 0A 00 9F 38  2C 38 2C 38 2C 22 40 30  |.......8,8,8,"@0|
00000010: 3A 4B 45 52 4E 41 4C 2C  50 2C 57 22 00 3A 1C 14  |:KERNAL,P,W".:..|
00000020: 00 9E 39 AC 34 30 39 36  3A 2E 4F 50 54 20 50 2C  |..9.4096:.OPT P,|
00000030: 4F 38 3A AC B2 20 24 43  30 30 00 63 1C 1E 00 3B  |O8:.. $C00.c...;|
00000040: 20 AC AC AC AC AC AC AC  AC AC AC AC AC AC AC AC  | ...............|
00000050: AC AC AC AC AC AC AC AC  AC AC AC AC AC AC AC AC  |................|
00000060: AC AC AC 00 8C 1C 28 00  3B 20 AC 20 20 20 20 20  |......(.; .     |
00000070: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000080: 20 20 20 20 20 20 20 20  20 20 20 AC 00 B5 1C 32  |           ....2|
00000090: 00 3B 20 AC 20 20 20 20  20 20 20 20 20 20 20 4B  |.; .           K|
000000A0: 20 45 20 52 20 4E 20 41  20 4C 20 20 20 20 20 20  | E R N A L      |
000000B0: 20 20 20 20 AC 00 DE 1C  3C 00 3B 20 AC 20 20 20  |    ....<.; .   |
000000C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 AC 00 06  |             ...|
000000E0: 1D 46 00 3B 20 AC 20 20  20 20 20 20 20 20 56 91  |.F.; .        V.|
000000F0: 20 46 52 41 4E 4B 20 50  52 4F 42 53 54 20 20 20  | FRANK PROBST   |
00000100: 20 20 20 20 20 AC 00 2F  1D 50 00 3B 20 AC 20 20  |     ../.P.; .  |
00000110: 20 20 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 AC 00  |              ..|
00000130: 58 1D 5A 00 3B 20 AC 20  20 20 20 20 20 20 20 20  |X.Z.; .         |
00000140: 49 4D 20 46 45 42 52 55  41 52 20 27 38 36 20 20  |IM FEBRUAR '86  |
00000150: 20 20 20 20 20 20 20 AC  00 80 1D 64 00 3B AC 20  |       ....d.;. |
00000160: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000170: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 AC  |               .|
00000180: 00 A8 1D 6E 00 3B AC AC  AC AC AC AC AC AC AC AC  |...n.;..........|
00000190: AC AC AC AC AC AC AC AC  AC AC AC AC AC AC AC AC  |................|
000001A0: AC AC AC AC AC AC AC AC  00 E3 1D 78 00 43 91 46  |...........x.C.F|
000001B0: 20 20 20 B2 20 24 46 46  30 30 20 20 20 20 20 20  |   . $FF00      |
000001C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 3B 4B  |              ;K|
000001D0: 91 46 49 47 55 52 41 54  49 91 53 52 45 47 49 53  |.FIGURATI.SREGIS|
000001E0: 54 45 52 00 20 1E 82 00  46 4C 41 47 20 20 20 B2  |TER. ...FLAG   .|
000001F0: 20 39 39 36 20 20 20 20  20 20 20 20 20 20 20 20  | 996            |
00000200: 20 20 20 20 20 20 20 20  20 20 3B 4E 52 2E 20 44  |          ;NR. D|
00000210: 45 52 20 4B 45 52 4E 41  4C 52 4F 55 54 49 4E 45  |ER KERNALROUTINE|
00000220: 00 56 1E 8C 00 4A 53 52  46 41 52 20 B2 20 24 32  |.V...JSRFAR . $2|
00000230: 43 44 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |CD              |
00000240: 20 20 20 20 20 20 20 3B  4A 53 52 46 41 52 20 52  |       ;JSRFAR R|
00000250: 4F 55 54 49 4E 45 00 8C  1E 96 00 4A 4D 50 46 41  |OUTINE.....JMPFA|
00000260: 52 20 B2 20 24 32 45 33  20 20 20 20 20 20 20 20  |R . $2E3        |
00000270: 20 20 20 20 20 20 20 20  20 20 20 20 20 3B 4A 4D  |             ;JM|
00000280: 50 46 41 52 20 52 4F 55  54 49 4E 45 00 C7 1E A0  |PFAR ROUTINE....|
00000290: 00 52 41 4D 43 52 20 20  B2 20 24 44 35 30 36 20  |.RAMCR  . $D506 |
000002A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002B0: 20 20 20 3B 52 41 4D 4B  91 46 49 47 55 52 41 54  |   ;RAMK.FIGURAT|
000002C0: 49 91 53 52 45 47 2E 00  FF 1E AA 00 B7 56 45 4B  |I.SREG.......VEK|
000002D0: 20 B2 20 24 31 32 31 39  20 20 20 20 20 20 20 20  | . $1219        |
000002E0: 20 20 20 20 20 20 20 20  20 20 20 20 3B 56 45 4B  |            ;VEK|
000002F0: A4 52 20 44 45 53 20 B7  42 45 46 45 48 4C 53 00  |.R DES .BEFEHLS.|
00000300: 37 1F B4 00 C2 20 20 20  B2 20 24 46 46 35 30 20  |7....   . $FF50 |
00000310: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000320: 20 20 20 3B FE 18 20 44  45 52 20 C2 AD 97 AB 52  |   ;.. DER ....R|
00000330: 4F 55 54 49 4E 45 4E 00  3D 1F BE 00 3B 00 57 1F  |OUTINEN.=...;.W.|
00000340: C8 00 3B 20 20 20 20 20  20 20 20 AC AC 20 4B 45  |..;        .. KE|
00000350: 52 4E 41 4C 20 AC AC 00  7D 1F D2 00 3B 20 4E 55  |RNAL ...}...; NU|
00000360: 4D 4D 45 52 20 44 45 52  20 4B 45 52 4E 41 4C 52  |MMER DER KERNALR|
00000370: 4F 55 54 49 4E 45 20 49  4E 20 39 39 36 00 9D 1F  |OUTINE IN 996...|
00000380: DC 00 3B 20 20 20 20 20  41 55 46 52 55 46 20 44  |..;     AUFRUF D|
00000390: 55 52 43 48 20 4A 53 52  20 24 43 30 30 00 BB 1F  |URCH JSR $C00...|
000003A0: E6 00 3B 20 20 20 20 20  20 56 91 20 42 45 4C 49  |..;      V. BELI|
000003B0: 45 42 49 47 45 52 20 42  41 4E 4B 00 C1 1F F0 00  |EBIGER BANK.....|
000003C0: 3B 00 F1 1F FA 00 20 20  20 20 20 20 20 20 20 20  |;.....          |
000003D0: 20 53 54 41 20 36 20 20  20 20 20 20 20 20 20 20  | STA 6          |
000003E0: 20 20 20 20 20 20 20 20  3B 52 45 47 49 53 54 45  |        ;REGISTE|
000003F0: 52 00 1F 20 04 01 20 20  20 20 20 20 20 20 20 20  |R.. ..          |
00000400: 20 53 54 58 20 37 20 20  20 20 20 20 20 20 20 20  | STX 7          |
00000410: 20 20 20 20 20 20 20 20  3B 49 4E 20 44 49 45 00  |        ;IN DIE.|
00000420: 4F 20 0E 01 20 20 20 20  20 20 20 20 20 20 20 53  |O ..           S|
00000430: 54 59 20 38 20 20 20 20  20 20 20 20 20 20 20 20  |TY 8            |
00000440: 20 20 20 20 20 20 3B 5A  45 52 4F 50 41 47 45 00  |      ;ZEROPAGE.|
00000450: 7E 20 18 01 20 20 20 20  20 20 20 20 20 20 20 4C  |~ ..           L|
00000460: 44 41 20 23 31 35 20 20  20 20 20 20 20 20 20 20  |DA #15          |
00000470: 20 20 20 20 20 20 3B 42  41 4E 4B 20 31 35 00 AB  |      ;BANK 15..|
00000480: 20 22 01 20 20 20 20 20  20 20 20 20 20 20 53 54  | ".           ST|
00000490: 41 20 32 20 20 20 20 20  20 20 20 20 20 20 20 20  |A 2             |
000004A0: 20 20 20 20 20 3B 49 4E  20 5A 50 00 E9 20 2C 01  |     ;IN ZP.. ,.|
000004B0: 20 20 20 20 20 20 20 20  20 20 20 4C 44 41 20 23  |           LDA #|
000004C0: 24 34 34 20 20 20 20 20  20 20 20 20 20 20 20 20  |$44             |
000004D0: 20 20 3B 4C 4F AB 42 59  54 45 20 56 91 20 53 50  |  ;LO.BYTE V. SP|
000004E0: 8A 47 54 41 42 45 4C 4C  45 00 16 21 36 01 20 20  |.GTABELLE..!6.  |
000004F0: 20 20 20 20 20 20 20 20  20 53 54 41 20 34 20 20  |         STA 4  |
00000500: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000510: 3B 49 4E 20 5A 50 00 54  21 40 01 20 20 20 20 20  |;IN ZP.T!@.     |
00000520: 20 20 20 20 20 20 4C 44  41 20 23 24 46 46 20 20  |      LDA #$FF  |
00000530: 20 20 20 20 20 20 20 20  20 20 20 20 20 3B 48 49  |             ;HI|
00000540: AB 42 59 54 45 20 56 91  20 53 50 8A 47 54 41 42  |.BYTE V. SP.GTAB|
00000550: 45 4C 4C 45 00 81 21 4A  01 20 20 20 20 20 20 20  |ELLE..!J.       |
00000560: 20 20 20 20 53 54 41 20  33 20 20 20 20 20 20 20  |    STA 3       |
00000570: 20 20 20 20 20 20 20 20  20 20 20 3B 49 4E 20 5A  |           ;IN Z|
00000580: 50 00 B3 21 54 01 20 20  20 20 20 20 20 20 20 20  |P..!T.          |
00000590: 20 4C 44 41 20 46 4C 41  47 20 20 20 20 20 20 20  | LDA FLAG       |
000005A0: 20 20 20 20 20 20 20 20  3B 46 4C 41 47 20 4C 45  |        ;FLAG LE|
000005B0: 53 45 4E 00 E6 21 5E 01  20 20 20 20 20 20 20 20  |SEN..!^.        |
000005C0: 20 20 20 43 4D 50 20 23  32 30 20 20 20 20 20 20  |   CMP #20      |
000005D0: 20 20 20 20 20 20 20 20  20 20 3B 4B 4C 45 49 4E  |          ;KLEIN|
000005E0: 45 52 20 41 4C 53 00 28  22 68 01 20 20 20 20 20  |ER ALS.("h.     |
000005F0: 20 20 20 20 20 20 42 43  43 20 4B 4C 45 49 4E 45  |      BCC KLEINE|
00000600: 52 20 20 20 20 20 20 20  20 20 20 20 20 3B 32 30  |R            ;20|
00000610: 20 44 41 4E 4E 20 42 45  49 20 4B 4C 45 49 4E 45  | DANN BEI KLEINE|
00000620: 52 20 57 45 49 54 45 52  00 70 22 72 01 20 20 20  |R WEITER.p"r.   |
00000630: 20 20 20 20 20 20 20 20  49 4E 43 20 34 20 20 20  |        INC 4   |
00000640: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3B  |               ;|
00000650: 4C 4F AB 42 59 54 45 20  56 91 20 53 50 8A 47 54  |LO.BYTE V. SP.GT|
00000660: 41 42 45 4C 4C 45 20 48  4F 43 48 5A 41 45 48 C3  |ABELLE HOCHZAEH.|
00000670: 00 A3 22 7C 01 4B 4C 45  49 4E 45 52 20 20 20 20  |.."|.KLEINER    |
00000680: 41 53 4C 20 20 20 20 20  20 20 20 20 20 20 20 20  |ASL             |
00000690: 20 20 20 20 20 20 20 3B  41 4B 4B 55 B2 41 4B 4B  |       ;AKKU.AKK|
000006A0: 55 AC 32 00 D9 22 86 01  20 20 20 20 20 20 20 20  |U.2.."..        |
000006B0: 20 20 20 41 44 43 20 46  4C 41 47 20 20 20 20 20  |   ADC FLAG     |
000006C0: 20 20 20 20 20 20 20 20  20 20 3B 41 4B 4B 55 B2  |          ;AKKU.|
000006D0: 41 4B 4B 55 AA 46 4C 41  47 00 12 23 90 01 20 20  |AKKU.FLAG..#..  |
000006E0: 20 20 20 20 20 20 20 20  20 41 44 43 20 34 20 20  |         ADC 4  |
000006F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000700: 3B 41 4B 4B 55 B2 41 4B  4B 55 AA 4C 4F AB 42 59  |;AKKU.AKKU.LO.BY|
00000710: 54 45 00 43 23 9A 01 20  20 20 20 20 20 20 20 20  |TE.C#..         |
00000720: 20 20 53 54 41 20 34 20  20 20 20 20 20 20 20 20  |  STA 4         |
00000730: 20 20 20 20 20 20 20 20  20 3B 41 4B 4B 55 20 49  |         ;AKKU I|
00000740: 4E 20 34 00 49 23 A4 01  3B 00 68 23 AE 01 3B 20  |N 4.I#..;.h#..; |
00000750: 20 20 20 20 AC AC 20 4A  53 52 46 41 52 20 52 4F  |    .. JSRFAR RO|
00000760: 55 54 49 4E 45 20 AC AC  00 90 23 B8 01 3B 20 20  |UTINE ....#..;  |
00000770: 20 20 50 41 52 41 4D 45  54 45 52 55 45 42 45 52  |  PARAMETERUEBER|
00000780: 47 41 42 45 20 57 49 45  20 20 20 20 20 20 20 20  |GABE WIE        |
00000790: 00 AF 23 C2 01 3B 20 20  20 20 4E B0 4D 41 4C 45  |..#..;    N.MALE|
000007A0: 20 4A 53 52 46 41 52 AB  52 4F 55 54 49 4E 45 00  | JSRFAR.ROUTINE.|
000007B0: D0 23 CC 01 3B 20 20 20  4A 45 44 4F 43 48 20 56  |.#..;   JEDOCH V|
000007C0: 91 20 4A 45 44 45 52 20  42 41 4E 4B 20 41 55 53  |. JEDER BANK AUS|
000007D0: 00 F0 23 D6 01 3B 20 20  20 20 45 49 4E 46 41 43  |..#..;    EINFAC|
000007E0: 48 20 44 55 52 43 48 20  4A 53 52 20 24 43 32 33  |H DURCH JSR $C23|
000007F0: 00 F6 23 E0 01 3B 00 2D  24 EA 01 4A 52 46 41 52  |..#..;.-$..JRFAR|
00000800: 20 20 20 20 20 20 4C 44  41 20 43 91 46 20 20 20  |      LDA C.F   |
00000810: 20 20 20 20 20 20 20 20  20 20 20 20 3B 41 4B 4B  |            ;AKK|
00000820: 55 B2 43 91 46 49 47 55  52 41 54 49 91 00 5C 24  |U.C.FIGURATI..\$|
00000830: F4 01 20 20 20 20 20 20  20 20 20 20 20 50 48 41  |..           PHA|
00000840: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000850: 20 20 20 20 3B 53 49 43  48 45 52 4E 00 8B 24 FE  |    ;SICHERN..$.|
00000860: 01 20 20 20 20 20 20 20  20 20 20 20 4C 44 41 20  |.           LDA |
00000870: 23 30 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |#0              |
00000880: 20 20 20 3B 42 41 4E 4B  20 31 35 00 B8 24 08 02  |   ;BANK 15..$..|
00000890: 20 20 20 20 20 20 20 20  20 20 20 53 54 41 20 43  |           STA C|
000008A0: 91 46 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.F              |
000008B0: 20 3B 49 4E 20 43 91 46  00 F1 24 12 02 20 20 20  | ;IN C.F..$..   |
000008C0: 20 20 20 20 20 20 20 20  4A 53 52 20 4A 53 52 46  |        JSR JSRF|
000008D0: 41 52 20 20 20 20 20 20  20 20 20 20 20 20 20 3B  |AR             ;|
000008E0: 4A 53 52 46 41 52 20 41  4E 53 50 52 49 4E 47 45  |JSRFAR ANSPRINGE|
000008F0: 4E 00 20 25 1C 02 20 20  20 20 20 20 20 20 20 20  |N. %..          |
00000900: 20 50 4C 41 20 20 20 20  20 20 20 20 20 20 20 20  | PLA            |
00000910: 20 20 20 20 20 20 20 20  3B 43 91 46 20 48 4F C3  |        ;C.F HO.|
00000920: 00 56 25 26 02 20 20 20  20 20 20 20 20 20 20 20  |.V%&.           |
00000930: 53 54 41 20 43 91 46 20  20 20 20 20 20 20 20 20  |STA C.F         |
00000940: 20 20 20 20 20 20 3B 57  49 45 44 45 52 20 48 45  |      ;WIEDER HE|
00000950: 52 53 54 45 4C C3 00 89  25 30 02 20 20 20 20 20  |RSTEL...%0.     |
00000960: 20 20 20 20 20 20 4C 44  41 20 35 20 20 20 20 20  |      LDA 5     |
00000970: 20 20 20 20 20 20 20 20  20 20 20 20 20 3B 41 4B  |             ;AK|
00000980: 4B 55 B2 53 54 41 54 55  53 00 BA 25 3A 02 20 20  |KU.STATUS..%:.  |
00000990: 20 20 20 20 20 20 20 20  20 50 48 41 20 20 20 20  |         PHA    |
000009A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000009B0: 3B 41 55 46 20 53 54 41  43 4B 00 EA 25 44 02 20  |;AUF STACK..%D. |
000009C0: 20 20 20 20 20 20 20 20  20 20 4C 44 41 20 36 20  |          LDA 6 |
000009D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000009E0: 20 3B 52 45 47 49 53 54  45 52 00 18 26 4E 02 20  | ;REGISTER..&N. |
000009F0: 20 20 20 20 20 20 20 20  20 20 4C 44 58 20 37 20  |          LDX 7 |
00000A00: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000A10: 20 3B 57 49 45 44 45 52  00 48 26 58 02 20 20 20  | ;WIEDER.H&X.   |
00000A20: 20 20 20 20 20 20 20 20  4C 44 59 20 38 20 20 20  |        LDY 8   |
00000A30: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3B  |               ;|
00000A40: 48 45 52 53 54 45 4C C3  00 84 26 62 02 20 20 20  |HERSTEL...&b.   |
00000A50: 20 20 20 20 20 20 20 20  50 4C 50 20 20 20 20 20  |        PLP     |
00000A60: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3B  |               ;|
00000A70: 53 54 41 54 55 53 AB 52  45 47 2E 20 48 45 52 53  |STATUS.REG. HERS|
00000A80: 54 45 4C C3 00 B5 26 6C  02 20 20 20 20 20 20 20  |TEL...&l.       |
00000A90: 20 20 20 20 52 54 53 20  20 20 20 20 20 20 20 20  |    RTS         |
00000AA0: 20 20 20 20 20 20 20 20  20 20 20 3B 52 55 45 43  |           ;RUEC|
00000AB0: 4B 53 50 8A 47 00 BB 26  76 02 3B 00 D9 26 80 02  |KSP.G..&v.;..&..|
00000AC0: 3B 20 20 20 20 20 AC AC  20 49 4E 49 54 49 41 4C  |;     .. INITIAL|
00000AD0: 49 53 49 45 8A 47 20 AC  AC 00 FD 26 8A 02 3B 20  |ISIE.G ....&..; |
00000AE0: 20 20 56 45 52 47 52 4F  45 53 53 45 52 54 20 44  |  VERGROESSERT D|
00000AF0: 49 45 20 43 4F 4D 4D 91  AB 41 52 45 41 00 25 27  |IE COMM..AREA.%'|
00000B00: 94 02 3B 41 55 46 20 34  4B 20 42 59 54 45 2E 20  |..;AUF 4K BYTE. |
00000B10: 50 41 53 53 54 20 42 41  53 49 43 20 5A 45 49 47  |PASST BASIC ZEIG|
00000B20: 45 52 20 41 4E 00 46 27  9E 02 3B 20 55 4E 44 20  |ER AN.F'..; UND |
00000B30: 56 45 52 53 43 48 49 45  42 54 20 C2 AD 97 AB 52  |VERSCHIEBT ....R|
00000B40: 4F 55 54 49 4E 45 00 4C  27 A8 02 3B 00 7B 27 B2  |OUTINE.L'..;.{'.|
00000B50: 02 49 4E 49 54 20 20 20  20 20 20 20 4C 44 41 20  |.INIT       LDA |
00000B60: 23 30 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |#0              |
00000B70: 20 20 20 3B 42 41 4E 4B  20 31 35 00 A8 27 BC 02  |   ;BANK 15..'..|
00000B80: 20 20 20 20 20 20 20 20  20 20 20 53 54 41 20 43  |           STA C|
00000B90: 91 46 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.F              |
00000BA0: 20 3B 49 4E 20 43 91 46  00 E5 27 C6 02 20 20 20  | ;IN C.F..'..   |
00000BB0: 20 20 20 20 20 20 20 20  4C 44 41 20 52 41 4D 43  |        LDA RAMC|
00000BC0: 52 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3B  |R              ;|
00000BD0: 52 41 4D AB 43 91 46 49  47 55 52 41 54 49 91 53  |RAM.C.FIGURATI.S|
00000BE0: AB 52 45 47 2E 00 1C 28  D0 02 20 20 20 20 20 20  |.REG...(..      |
00000BF0: 20 20 20 20 20 B0 41 20  23 25 30 30 30 30 30 31  |     .A #%000001|
00000C00: 30 31 20 20 20 20 20 20  20 20 20 3B 34 4B 20 52  |01         ;4K R|
00000C10: 41 4D 20 47 45 4D 45 49  4E 53 41 4D 00 54 28 DA  |AM GEMEINSAM.T(.|
00000C20: 02 20 20 20 20 20 20 20  20 20 20 20 53 54 41 20  |.           STA |
00000C30: 52 41 4D 43 52 20 20 20  20 20 20 20 20 20 20 20  |RAMCR           |
00000C40: 20 20 20 3B 56 91 20 24  30 30 30 30 20 AB 20 24  |   ;V. $0000 . $|
00000C50: 30 46 46 46 00 82 28 E4  02 20 20 20 20 20 20 20  |0FFF..(..       |
00000C60: 20 20 20 20 4C 44 41 20  23 30 20 20 20 20 20 20  |    LDA #0      |
00000C70: 20 20 20 20 20 20 20 20  20 20 20 3B 42 41 53 49  |           ;BASI|
00000C80: 43 AB 00 B0 28 EE 02 20  20 20 20 20 20 20 20 20  |C...(..         |
00000C90: 20 20 53 54 41 20 34 37  20 20 20 20 20 20 20 20  |  STA 47        |
00000CA0: 20 20 20 20 20 20 20 20  20 3B 5A 45 49 47 45 52  |         ;ZEIGER|
00000CB0: 00 DA 28 F8 02 20 20 20  20 20 20 20 20 20 20 20  |..(..           |
00000CC0: 53 54 41 20 34 39 20 20  20 20 20 20 20 20 20 20  |STA 49          |
00000CD0: 20 20 20 20 20 20 20 3B  41 4E 00 06 29 02 03 20  |       ;AN..).. |
00000CE0: 20 20 20 20 20 20 20 20  20 20 4C 44 41 20 23 24  |          LDA #$|
00000CF0: 31 30 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |10              |
00000D00: 20 3B 4E 45 55 45 00 36  29 0C 03 20 20 20 20 20  | ;NEUE.6)..     |
00000D10: 20 20 20 20 20 20 53 54  41 20 34 38 20 20 20 20  |      STA 48    |
00000D20: 20 20 20 20 20 20 20 20  20 20 20 20 20 3B 53 49  |             ;SI|
00000D30: 54 55 41 54 49 91 00 66  29 16 03 20 20 20 20 20  |TUATI..f)..     |
00000D40: 20 20 20 20 20 20 53 54  41 20 35 30 20 20 20 20  |      STA 50    |
00000D50: 20 20 20 20 20 20 20 20  20 20 20 20 20 3B 41 4E  |             ;AN|
00000D60: 50 41 53 53 45 4E 00 6C  29 20 03 3B 00 8F 29 2A  |PASSEN.l) .;..)*|
00000D70: 03 3B 20 20 AC AC 20 49  4E 49 54 49 41 4C 49 53  |.;  .. INITIALIS|
00000D80: 49 45 52 54 20 B7 AB 56  45 4B A4 52 20 AC AC 00  |IERT ..VEK.R ...|
00000D90: B3 29 34 03 3B 42 45 49  20 B7 20 45 52 46 4F 4C  |.)4.;BEI . ERFOL|
00000DA0: 47 54 20 53 50 8A 47 20  4E 41 43 48 20 24 30 46  |GT SP.G NACH $0F|
00000DB0: 30 30 30 00 B9 29 3E 03  3B 00 EB 29 48 03 20 20  |000..)>.;..)H.  |
00000DC0: 20 20 20 20 20 20 20 20  20 4C 44 41 20 23 B3 53  |         LDA #.S|
00000DD0: 54 41 52 54 20 20 20 20  20 20 20 20 20 20 20 20  |TART            |
00000DE0: 3B 4C 4F AB 42 59 54 45  20 49 4E 00 17 2A 52 03  |;LO.BYTE IN..*R.|
00000DF0: 20 20 20 20 20 20 20 20  20 20 20 53 54 41 20 B7  |           STA .|
00000E00: 56 45 4B 20 20 20 20 20  20 20 20 20 20 20 20 20  |VEK             |
00000E10: 3B B7 56 45 4B A4 52 00  49 2A 5C 03 20 20 20 20  |;.VEK.R.I*\.    |
00000E20: 20 20 20 20 20 20 20 4C  44 41 20 23 B1 53 54 41  |       LDA #.STA|
00000E30: 52 54 20 20 20 20 20 20  20 20 20 20 20 20 3B 48  |RT            ;H|
00000E40: 49 AB 42 59 54 45 20 49  4E 00 75 2A 66 03 20 20  |I.BYTE IN.u*f.  |
00000E50: 20 20 20 20 20 20 20 20  20 53 54 41 20 B7 56 45  |         STA .VE|
00000E60: 4B AA 31 20 20 20 20 20  20 20 20 20 20 20 3B B7  |K.1           ;.|
00000E70: 56 45 4B A4 52 00 7B 2A  70 03 3B 00 9D 2A 7A 03  |VEK.R.{*p.;..*z.|
00000E80: 3B 20 AC AC 56 45 52 53  43 48 49 45 42 54 20 C2  |; ..VERSCHIEBT .|
00000E90: AD 97 AB 52 4F 55 54 49  4E 45 4E AC AC 00 A3 2A  |...ROUTINEN....*|
00000EA0: 84 03 3B 00 D1 2A 8E 03  20 20 20 20 20 20 20 20  |..;..*..        |
00000EB0: 20 20 20 4C 44 41 20 23  24 37 46 20 20 20 20 20  |   LDA #$7F     |
00000EC0: 20 20 20 20 20 20 20 20  20 20 3B 42 41 4E 4B 20  |          ;BANK |
00000ED0: 31 00 FE 2A 98 03 20 20  20 20 20 20 20 20 20 20  |1..*..          |
00000EE0: 20 53 54 41 20 43 91 46  20 20 20 20 20 20 20 20  | STA C.F        |
00000EF0: 20 20 20 20 20 20 20 3B  49 4E 20 43 91 46 00 30  |       ;IN C.F.0|
00000F00: 2B A2 03 20 20 20 20 20  20 20 20 20 20 20 4C 44  |+..           LD|
00000F10: 59 20 23 80 AB C2 52 20  20 20 20 20 20 20 20 20  |Y #...R         |
00000F20: 3B 53 43 48 4C 45 8B 45  4E 5A 41 45 48 4C 45 52  |;SCHLE.ENZAEHLER|
00000F30: 00 64 2B AC 03 4C 4F 4F  50 20 20 20 20 20 20 20  |.d+..LOOP       |
00000F40: 4C 44 41 20 C2 52 2C 59  20 20 20 20 20 20 20 20  |LDA .R,Y        |
00000F50: 20 20 20 20 3B 56 45 52  53 43 48 49 45 42 45 4E  |    ;VERSCHIEBEN|
00000F60: 20 44 45 52 00 95 2B B6  03 20 20 20 20 20 20 20  | DER..+..       |
00000F70: 20 20 20 20 53 54 41 20  C2 2C 59 20 20 20 20 20  |    STA .,Y     |
00000F80: 20 20 20 20 20 20 20 20  3B C2 AD 97 AB 52 4F 55  |        ;....ROU|
00000F90: 54 49 4E 45 4E 00 C2 2B  C0 03 20 20 20 20 20 20  |TINEN..+..      |
00000FA0: 20 20 20 20 20 44 45 59  20 20 20 20 20 20 20 20  |     DEY        |
00000FB0: 20 20 20 20 20 20 20 20  20 20 20 20 3B 59 B2 59  |            ;Y.Y|
00000FC0: AB 31 00 05 2C CA 03 20  20 20 20 20 20 20 20 20  |.1..,..         |
00000FD0: 20 20 42 50 4C 20 4C 4F  4F 50 20 20 20 20 20 20  |  BPL LOOP      |
00000FE0: 20 20 20 20 20 20 20 20  20 3B 4E 4F 43 48 20 4E  |         ;NOCH N|
00000FF0: 49 43 48 54 20 46 45 52  54 49 47 20 44 41 4E 4E  |ICHT FERTIG DANN|
00001000: 20 4C 4F 4F 50 00 36 2C  D4 03 20 20 20 20 20 20  | LOOP.6,..      |
00001010: 20 20 20 20 20 52 54 53  20 20 20 20 20 20 20 20  |     RTS        |
00001020: 20 20 20 20 20 20 20 20  20 20 20 20 3B 52 55 45  |            ;RUE|
00001030: 43 4B 53 50 8A 47 00 3C  2C DE 03 3B 00 5C 2C E8  |CKSP.G.<,..;.\,.|
00001040: 03 3B 20 20 20 20 20 AC  AC 20 4E 41 43 48 20 B7  |.;     .. NACH .|
00001050: 20 53 50 52 49 4E 47 45  4E 20 AC AC 00 62 2C F2  | SPRINGEN ...b,.|
00001060: 03 3B 00 8D 2C FC 03 53  54 41 52 54 20 20 20 20  |.;..,..START    |
00001070: 20 20 4C 44 41 20 23 24  33 46 20 20 20 20 20 20  |  LDA #$3F      |
00001080: 20 20 20 20 20 20 20 20  3B FE 02 20 30 00 B9 2C  |        ;.. 0..,|
00001090: 06 04 20 20 20 20 20 20  20 20 20 20 20 53 54 41  |..           STA|
000010A0: 20 43 91 46 20 20 20 20  20 20 20 20 20 20 20 20  | C.F            |
000010B0: 20 20 3B 49 4E 20 43 91  46 00 F0 2C 10 04 20 20  |  ;IN C.F..,..  |
000010C0: 20 20 20 20 20 20 20 20  20 4A 4D 50 20 24 46 30  |         JMP $F0|
000010D0: 30 30 20 20 20 20 20 20  20 20 20 20 20 20 20 3B  |00             ;|
000010E0: 53 50 8A 47 20 4E 41 43  48 20 24 30 46 30 30 30  |SP.G NACH $0F000|
000010F0: 00 F6 2C 1A 04 3B 00 14  2D 24 04 3B 20 20 20 20  |..,..;..-$.;    |
00001100: 20 20 AC AC 20 C2 20 41  55 53 20 42 41 4E 4B 20  |  .. . AUS BANK |
00001110: 31 20 AC AC 00 34 2D 2E  04 3B 20 20 20 20 20 20  |1 ...4-..;      |
00001120: 20 48 4F 4C 54 20 42 59  54 45 20 41 55 53 20 4E  | HOLT BYTE AUS N|
00001130: 49 43 48 54 00 51 2D 38  04 3B 20 20 20 20 20 20  |ICHT.Q-8.;      |
00001140: 20 20 45 52 52 45 49 43  48 42 41 8F 20 20 52 41  |  ERREICHBA.  RA|
00001150: 4D 00 6A 2D 42 04 3B 20  45 49 4E 47 41 42 45 50  |M.j-B.; EINGABEP|
00001160: 41 52 41 4D 45 54 45 52  20 3A 00 8E 2D 4C 04 3B  |ARAMETER :..-L.;|
00001170: 20 58 AB 52 45 47 20 B2  20 20 4C 4F AB 42 59 54  | X.REG .  LO.BYT|
00001180: 45 20 44 45 52 20 C2 41  44 52 45 53 53 45 00 B2  |E DER .ADRESSE..|
00001190: 2D 56 04 3B 20 59 AB 52  45 47 20 B2 20 20 48 49  |-V.; Y.REG .  HI|
000011A0: AB 42 59 54 45 20 44 45  52 20 C2 41 44 52 45 53  |.BYTE DER .ADRES|
000011B0: 53 45 00 B8 2D 60 04 3B  00 D1 2D 6A 04 3B 20 41  |SE..-`.;..-j.; A|
000011C0: 55 53 47 41 42 45 50 41  52 41 4D 45 54 45 52 20  |USGABEPARAMETER |
000011D0: 3A 00 EF 2D 74 04 3B 20  41 4B 4B 55 20 20 B2 20  |:..-t.; AKKU  . |
000011E0: 20 47 45 4C 45 53 45 4E  45 53 20 42 59 54 45 00  | GELESENES BYTE.|
000011F0: F5 2D 7E 04 3B 00 3A 2E  88 04 20 20 20 20 20 20  |.-~.;.:...      |
00001200: 20 20 20 20 53 54 41 20  4C 4F 42 AA 31 20 20 20  |    STA LOB.1   |
00001210: 20 20 20 20 20 20 20 20  20 20 20 3B 5A 50 41 44  |           ;ZPAD|
00001220: 52 45 53 53 45 20 46 55  45 52 20 4C 4F AB 42 59  |RESSE FUER LO.BY|
00001230: 54 45 20 41 42 4C 45 47  45 4E 00 7F 2E 92 04 20  |TE ABLEGEN..... |
00001240: 20 20 20 20 20 20 20 20  20 53 54 41 20 48 49 42  |         STA HIB|
00001250: AA 31 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.1              |
00001260: 3B 5A 50 41 44 52 45 53  53 45 20 46 55 45 52 20  |;ZPADRESSE FUER |
00001270: 48 49 AB 42 59 54 45 20  41 42 4C 45 47 45 4E 00  |HI.BYTE ABLEGEN.|
00001280: B7 2E 9C 04 20 20 20 20  20 20 20 20 20 20 49 4E  |....          IN|
00001290: 43 20 48 49 42 AA 31 20  20 20 20 20 20 20 20 20  |C HIB.1         |
000012A0: 20 20 20 20 20 3B 48 49  AB 42 59 54 45 B2 48 49  |     ;HI.BYTE.HI|
000012B0: AB 42 59 54 45 AA 31 00  ED 2E A6 04 20 20 20 20  |.BYTE.1.....    |
000012C0: 20 20 20 20 20 20 4C 44  41 20 43 91 46 20 20 20  |      LDA C.F   |
000012D0: 20 20 20 20 20 20 20 20  20 20 20 20 3B 41 4B 4B  |            ;AKK|
000012E0: 55 B2 43 91 46 49 47 55  52 41 54 49 91 00 1B 2F  |U.C.FIGURATI.../|
000012F0: B0 04 20 20 20 20 20 20  20 20 20 20 50 48 41 20  |..          PHA |
00001300: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001310: 20 20 20 3B 53 49 43 48  45 52 4E 00 4C 2F BA 04  |   ;SICHERN.L/..|
00001320: 20 20 20 20 20 20 20 20  20 20 4C 44 41 20 23 24  |          LDA #$|
00001330: 37 45 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |7E              |
00001340: 20 3B 42 41 4E 4B 20 31  AA 49 AD 4F 00 78 2F C4  | ;BANK 1.I.O.x/.|
00001350: 04 20 20 20 20 20 20 20  20 20 20 53 54 41 20 43  |.          STA C|
00001360: 91 46 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.F              |
00001370: 20 3B 49 4E 20 43 91 46  00 B4 2F CE 04 4C 4F 42  | ;IN C.F../..LOB|
00001380: 20 20 20 20 20 20 20 4C  44 41 20 30 20 20 20 20  |       LDA 0    |
00001390: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 3B 4C  |              ;L|
000013A0: 4F AB 42 59 54 45 20 44  45 52 20 5A 50 41 44 52  |O.BYTE DER ZPADR|
000013B0: 45 53 53 45 00 E8 2F D8  04 20 20 20 20 20 20 20  |ESSE../..       |
000013C0: 20 20 20 53 54 41 20 50  45 56 45 4B AB C2 52 AA  |   STA PEVEK..R.|
000013D0: C2 AA 31 20 3B 4C 4F AB  42 59 54 45 20 44 45 52  |..1 ;LO.BYTE DER|
000013E0: 20 41 44 52 45 53 53 45  00 24 30 E2 04 48 49 42  | ADRESSE.$0..HIB|
000013F0: 20 20 20 20 20 20 20 4C  44 41 20 30 20 20 20 20  |       LDA 0    |
00001400: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 3B 48  |              ;H|
00001410: 49 AB 42 59 54 45 20 44  45 52 20 5A 50 41 44 52  |I.BYTE DER ZPADR|
00001420: 45 53 53 45 00 58 30 EC  04 20 20 20 20 20 20 20  |ESSE.X0..       |
00001430: 20 20 20 53 54 41 20 50  45 56 45 4B AB C2 52 AA  |   STA PEVEK..R.|
00001440: C2 AA 32 20 3B 48 49 AB  42 59 54 45 20 44 45 52  |..2 ;HI.BYTE DER|
00001450: 20 41 44 52 45 53 53 45  00 8E 30 F6 04 20 20 20  | ADRESSE..0..   |
00001460: 20 20 20 20 20 20 20 4A  53 52 20 C2 20 20 20 20  |       JSR .    |
00001470: 20 20 20 20 20 20 20 20  20 20 20 3B 53 50 8A 47  |           ;SP.G|
00001480: 20 4E 41 43 48 20 C2 52  4F 55 54 49 4E 45 00 C6  | NACH .ROUTINE..|
00001490: 30 00 05 20 20 20 20 20  20 20 20 20 20 53 54 41  |0..          STA|
000014A0: 20 46 4C 41 47 20 20 20  20 20 20 20 20 20 20 20  | FLAG           |
000014B0: 20 20 20 20 3B 5A 57 49  53 43 48 45 4E 53 50 45  |    ;ZWISCHENSPE|
000014C0: 49 43 48 45 52 4E 00 FC  30 0A 05 20 20 20 20 20  |ICHERN..0..     |
000014D0: 20 20 20 20 20 50 4C 41  20 20 20 20 20 20 20 20  |     PLA        |
000014E0: 20 20 20 20 20 20 20 20  20 20 20 20 3B 43 91 46  |            ;C.F|
000014F0: 49 47 55 52 41 54 49 91  20 48 4F C3 00 2E 31 14  |IGURATI. HO...1.|
00001500: 05 20 20 20 20 20 20 20  20 20 20 53 54 41 20 43  |.          STA C|
00001510: 91 46 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.F              |
00001520: 20 3B 55 4E 44 20 48 45  52 53 54 45 4C C3 00 67  | ;UND HERSTEL..g|
00001530: 31 1E 05 20 20 20 20 20  20 20 20 20 20 4C 44 41  |1..          LDA|
00001540: 20 46 4C 41 47 20 20 20  20 20 20 20 20 20 20 20  | FLAG           |
00001550: 20 20 20 20 3B 45 52 47  45 42 4E 49 53 20 4E 41  |    ;ERGEBNIS NA|
00001560: 43 48 20 41 4B 4B 55 00  97 31 28 05 20 20 20 20  |CH AKKU..1(.    |
00001570: 20 20 20 20 20 20 52 54  53 20 20 20 20 20 20 20  |      RTS       |
00001580: 20 20 20 20 20 20 20 20  20 20 20 20 20 3B 52 55  |             ;RU|
00001590: 45 43 4B 53 50 8A 47 00  9D 31 32 05 3B 00 BA 31  |ECKSP.G..12.;..1|
000015A0: 3C 05 3B 20 20 20 20 20  20 AC AC 20 97 20 49 4E  |<.;      .. . IN|
000015B0: 20 42 41 4E 4B 20 31 20  AC AC 00 DB 31 46 05 3B  | BANK 1 ....1F.;|
000015C0: 20 20 20 20 20 53 43 48  52 45 49 42 54 20 42 59  |     SCHREIBT BY|
000015D0: 54 45 20 49 4E 20 4E 49  43 48 54 00 F9 31 50 05  |TE IN NICHT..1P.|
000015E0: 3B 20 20 20 20 20 20 20  20 45 52 52 45 49 43 48  |;        ERREICH|
000015F0: 42 41 52 45 53 20 52 41  4D 00 12 32 5A 05 3B 20  |BARES RAM..2Z.; |
00001600: 45 49 4E 47 41 42 45 50  41 52 41 4D 45 54 45 52  |EINGABEPARAMETER|
00001610: 20 3A 00 36 32 64 05 3B  20 58 AB 52 45 47 20 B2  | :.62d.; X.REG .|
00001620: 20 20 4C 4F AB 42 59 54  45 20 44 45 52 20 97 41  |  LO.BYTE DER .A|
00001630: 44 52 45 53 53 45 00 5A  32 6E 05 3B 20 59 AB 52  |DRESSE.Z2n.; Y.R|
00001640: 45 47 20 B2 20 20 48 49  AB 42 59 54 45 20 44 45  |EG .  HI.BYTE DE|
00001650: 52 20 97 41 44 52 45 53  53 45 00 7F 32 78 05 3B  |R .ADRESSE..2x.;|
00001660: 20 41 4B 4B 55 20 20 B2  20 20 44 45 52 20 5A 55  | AKKU  .  DER ZU|
00001670: 20 53 50 45 49 43 48 45  BB 45 20 57 45 52 54 00  | SPEICHE.E WERT.|
00001680: 85 32 82 05 3B 00 A4 32  8C 05 3B 20 41 55 53 47  |.2..;..2..; AUSG|
00001690: 41 42 45 50 41 52 41 4D  45 54 45 52 20 B2 20 4B  |ABEPARAMETER . K|
000016A0: 45 49 4E 45 00 AA 32 96  05 3B 00 E2 32 A0 05 20  |EINE..2..;..2.. |
000016B0: 20 20 20 20 20 20 20 20  20 53 54 41 20 46 4C 41  |         STA FLA|
000016C0: 47 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |G               |
000016D0: 3B 5A 57 49 53 43 48 45  4E 53 50 45 49 43 48 45  |;ZWISCHENSPEICHE|
000016E0: 52 4E 00 14 33 AA 05 50  4F 5A 50 41 20 20 20 20  |RN..3..POZPA    |
000016F0: 20 4C 44 41 20 23 24 46  46 20 20 20 20 20 20 20  | LDA #$FF       |
00001700: 20 20 20 20 20 20 20 20  3B 97 20 5A 50 41 44 52  |        ;. ZPADR|
00001710: 45 53 53 45 00 54 33 B4  05 20 20 20 20 20 20 20  |ESSE.T3..       |
00001720: 20 20 20 53 54 41 20 4C  4F 42 50 AA 31 20 20 20  |   STA LOBP.1   |
00001730: 20 20 20 20 20 20 20 20  20 20 3B 5A 50 41 44 52  |          ;ZPADR|
00001740: 45 53 53 45 20 4C 4F AB  42 59 54 45 20 41 42 4C  |ESSE LO.BYTE ABL|
00001750: 45 47 45 4E 00 94 33 BE  05 20 20 20 20 20 20 20  |EGEN..3..       |
00001760: 20 20 20 53 54 41 20 48  49 42 50 AA 31 20 20 20  |   STA HIBP.1   |
00001770: 20 20 20 20 20 20 20 20  20 20 3B 5A 50 41 44 52  |          ;ZPADR|
00001780: 45 53 53 45 20 48 49 AB  42 59 54 45 20 41 42 4C  |ESSE HI.BYTE ABL|
00001790: 45 47 45 4E 00 CC 33 C8  05 20 20 20 20 20 20 20  |EGEN..3..       |
000017A0: 20 20 20 49 4E 43 20 48  49 42 50 AA 31 20 20 20  |   INC HIBP.1   |
000017B0: 20 20 20 20 20 20 20 20  20 20 3B 48 49 AB 42 59  |          ;HI.BY|
000017C0: 54 45 B2 48 49 AB 42 59  54 45 AA 31 00 02 34 D2  |TE.HI.BYTE.1..4.|
000017D0: 05 20 20 20 20 20 20 20  20 20 20 4C 44 41 20 43  |.          LDA C|
000017E0: 91 46 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.F              |
000017F0: 20 3B 41 4B 4B 55 B2 43  91 46 49 47 55 52 41 54  | ;AKKU.C.FIGURAT|
00001800: 49 91 00 30 34 DC 05 20  20 20 20 20 20 20 20 20  |I..04..         |
00001810: 20 50 48 41 20 20 20 20  20 20 20 20 20 20 20 20  | PHA            |
00001820: 20 20 20 20 20 20 20 20  3B 53 49 43 48 45 52 4E  |        ;SICHERN|
00001830: 00 61 34 E6 05 20 20 20  20 20 20 20 20 20 20 4C  |.a4..          L|
00001840: 44 41 20 23 24 37 45 20  20 20 20 20 20 20 20 20  |DA #$7E         |
00001850: 20 20 20 20 20 20 3B 42  41 4E 4B 20 31 AA 49 AD  |      ;BANK 1.I.|
00001860: 4F 00 8F 34 F0 05 20 20  20 20 20 20 20 20 20 20  |O..4..          |
00001870: 53 54 41 20 43 91 46 20  20 20 20 20 20 20 20 20  |STA C.F         |
00001880: 20 20 20 20 20 20 3B 48  45 52 53 54 45 4C C3 00  |      ;HERSTEL..|
00001890: C3 34 FA 05 4C 4F 42 50  20 20 20 20 20 20 4C 44  |.4..LOBP      LD|
000018A0: 41 20 30 20 20 20 20 20  20 20 20 20 20 20 20 20  |A 0             |
000018B0: 20 20 20 20 20 3B 4C 4F  AB 42 59 54 45 20 4C 45  |     ;LO.BYTE LE|
000018C0: 53 45 4E 00 F7 34 04 06  20 20 20 20 20 20 20 20  |SEN..4..        |
000018D0: 20 20 53 54 41 20 50 4F  56 45 4B AB C2 52 AA C2  |  STA POVEK..R..|
000018E0: AA 31 20 3B 4C 4F AB 42  59 54 45 20 44 45 52 20  |.1 ;LO.BYTE DER |
000018F0: 41 44 52 45 53 53 45 00  2B 35 0E 06 48 49 42 50  |ADRESSE.+5..HIBP|
00001900: 20 20 20 20 20 20 4C 44  41 20 30 20 20 20 20 20  |      LDA 0     |
00001910: 20 20 20 20 20 20 20 20  20 20 20 20 20 3B 48 49  |             ;HI|
00001920: AB 42 59 54 45 20 4C 45  53 45 4E 00 5F 35 18 06  |.BYTE LESEN._5..|
00001930: 20 20 20 20 20 20 20 20  20 20 53 54 41 20 50 4F  |          STA PO|
00001940: 56 45 4B AB C2 52 AA C2  AA 32 20 3B 48 49 AB 42  |VEK..R...2 ;HI.B|
00001950: 59 54 45 20 44 45 52 20  41 44 52 45 53 53 45 00  |YTE DER ADRESSE.|
00001960: 9A 35 22 06 20 20 20 20  20 20 20 20 20 20 4C 44  |.5".          LD|
00001970: 41 20 46 4C 41 47 20 20  20 20 20 20 20 20 20 20  |A FLAG          |
00001980: 20 20 20 20 20 3B 47 45  53 49 43 48 45 52 54 45  |     ;GESICHERTE|
00001990: 4E 20 57 45 52 54 20 48  4F C3 00 C4 35 2C 06 20  |N WERT HO...5,. |
000019A0: 20 20 20 20 20 20 20 20  20 4A 53 52 20 97 52 AB  |         JSR .R.|
000019B0: C2 52 AA C2 20 20 20 3B  97 20 41 4E 53 50 52 49  |.R..   ;. ANSPRI|
000019C0: 4E 47 45 4E 00 05 36 36  06 20 20 20 20 20 20 20  |NGEN..66.       |
000019D0: 20 20 20 50 4C 41 20 20  20 20 20 20 20 20 20 20  |   PLA          |
000019E0: 20 20 20 20 20 20 20 20  20 20 3B 47 45 53 49 43  |          ;GESIC|
000019F0: 48 45 52 54 45 20 43 91  46 49 47 55 52 41 54 49  |HERTE C.FIGURATI|
00001A00: 91 20 48 4F C3 00 33 36  40 06 20 20 20 20 20 20  |. HO..36@.      |
00001A10: 20 20 20 20 53 54 41 20  43 91 46 20 20 20 20 20  |    STA C.F     |
00001A20: 20 20 20 20 20 20 20 20  20 20 3B 48 45 52 53 54  |          ;HERST|
00001A30: 45 4C C3 00 63 36 4A 06  20 20 20 20 20 20 20 20  |EL..c6J.        |
00001A40: 20 20 52 54 53 20 20 20  20 20 20 20 20 20 20 20  |  RTS           |
00001A50: 20 20 20 20 20 20 20 20  20 3B 52 55 45 43 4B 53  |         ;RUECKS|
00001A60: 50 8A 47 00 69 36 54 06  3B 00 88 36 5E 06 3B 20  |P.G.i6T.;..6^.; |
00001A70: 20 20 20 20 AC AC 20 4A  4D 50 46 41 52 20 52 4F  |    .. JMPFAR RO|
00001A80: 55 54 49 4E 45 20 AC AC  00 A8 36 68 06 3B 20 20  |UTINE ....6h.;  |
00001A90: 20 20 50 41 52 41 4D 45  54 45 52 55 45 42 45 52  |  PARAMETERUEBER|
00001AA0: 47 41 42 45 20 57 49 45  00 C7 36 72 06 3B 20 20  |GABE WIE..6r.;  |
00001AB0: 20 20 4E B0 4D 41 4C 45  20 4A 4D 50 46 41 52 AB  |  N.MALE JMPFAR.|
00001AC0: 52 4F 55 54 49 4E 45 00  E8 36 7C 06 3B 20 20 20  |ROUTINE..6|.;   |
00001AD0: 4A 45 44 4F 43 48 20 56  91 20 4A 45 44 45 52 20  |JEDOCH V. JEDER |
00001AE0: 42 41 4E 4B 20 41 55 53  00 08 37 86 06 3B 20 20  |BANK AUS..7..;  |
00001AF0: 20 20 45 49 4E 46 41 43  48 20 44 55 52 43 48 20  |  EINFACH DURCH |
00001B00: 4A 53 52 20 24 43 44 30  00 0E 37 90 06 3B 00 3B  |JSR $CD0..7..;.;|
00001B10: 37 9A 06 20 20 20 20 20  20 20 20 20 20 4C 44 41  |7..          LDA|
00001B20: 20 23 30 20 20 20 20 20  20 20 20 20 20 20 20 20  | #0             |
00001B30: 20 20 20 20 3B 42 41 4E  4B 31 35 00 69 37 A4 06  |    ;BANK15.i7..|
00001B40: 20 20 20 20 20 20 20 20  20 20 53 54 41 20 43 91  |          STA C.|
00001B50: 46 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |F               |
00001B60: 3B 48 45 52 53 54 45 4C  C3 00 A0 37 AE 06 20 20  |;HERSTEL...7..  |
00001B70: 20 20 20 20 20 20 20 20  4A 4D 50 20 4A 4D 50 46  |        JMP JMPF|
00001B80: 41 52 20 20 20 20 20 20  20 20 20 20 20 20 20 3B  |AR             ;|
00001B90: 53 50 8A 47 20 4E 41 43  48 20 4A 4D 50 46 41 52  |SP.G NACH JMPFAR|
00001BA0: 00 B5 37 B8 06 3B 20 20  20 20 20 20 20 C2 52 4F  |..7..;       .RO|
00001BB0: 55 54 49 4E 45 00 E5 37  C2 06 C2 52 20 20 20 20  |UTINE..7...R    |
00001BC0: 20 53 45 49 20 20 20 20  20 20 20 20 20 20 20 20  | SEI            |
00001BD0: 20 20 20 20 20 20 20 20  3B B5 45 52 52 55 50 54  |        ;.ERRUPT|
00001BE0: 53 20 41 55 53 00 2A 38  CC 06 20 20 20 20 20 20  |S AUS.*8..      |
00001BF0: 20 20 20 20 4C 44 41 20  52 41 4D 43 52 20 20 20  |    LDA RAMCR   |
00001C00: 20 20 20 20 20 20 20 20  20 20 20 3B 41 4B 4B 55  |           ;AKKU|
00001C10: B2 52 41 4D AB 43 91 46  49 47 55 52 41 54 49 91  |.RAM.C.FIGURATI.|
00001C20: 53 AB 52 45 47 49 53 54  45 52 00 5F 38 D6 06 20  |S.REGISTER._8.. |
00001C30: 20 20 20 20 20 20 20 20  20 AF 20 23 25 31 31 31  |         . #%111|
00001C40: 31 30 30 31 31 20 20 20  20 20 20 20 20 20 3B 4B  |10011         ;K|
00001C50: 45 49 4E 45 20 43 4F 4D  4D 91 AB 41 52 45 41 00  |EINE COMM..AREA.|
00001C60: 8E 38 E0 06 20 20 20 20  20 20 20 20 20 20 53 54  |.8..          ST|
00001C70: 41 20 52 41 4D 43 52 20  20 20 20 20 20 20 20 20  |A RAMCR         |
00001C80: 20 20 20 20 20 3B 48 45  52 53 54 45 4C C3 00 BD  |     ;HERSTEL...|
00001C90: 38 EA 06 50 45 56 45 4B  20 20 20 20 20 4C 44 41  |8..PEVEK     LDA|
00001CA0: 20 24 46 46 46 46 2C 59  20 20 20 20 20 20 20 20  | $FFFF,Y        |
00001CB0: 20 20 20 20 3B 42 59 54  45 20 48 4F C3 00 F5 38  |    ;BYTE HO...8|
00001CC0: F4 06 20 20 20 20 20 20  20 20 20 20 53 54 41 20  |..          STA |
00001CD0: 24 46 46 46 30 20 20 20  20 20 20 20 20 20 20 20  |$FFF0           |
00001CE0: 20 20 20 3B 5A 57 49 53  43 48 45 4E 53 50 45 49  |   ;ZWISCHENSPEI|
00001CF0: 43 48 45 52 4E 00 26 39  FE 06 20 20 20 20 20 20  |CHERN.&9..      |
00001D00: 20 20 20 20 4C 44 41 20  52 41 4D 43 52 20 20 20  |    LDA RAMCR   |
00001D10: 20 20 20 20 20 20 20 20  20 20 20 3B 41 4B 4B 55  |           ;AKKU|
00001D20: B2 52 41 4D 43 52 00 59  39 08 07 20 20 20 20 20  |.RAMCR.Y9..     |
00001D30: 20 20 20 20 20 B0 41 20  23 25 30 30 30 30 30 31  |     .A #%000001|
00001D40: 30 30 20 20 20 20 20 20  20 20 20 3B 43 4F 4D 4D  |00         ;COMM|
00001D50: 91 AB 41 52 45 41 20 41  4E 00 8C 39 12 07 20 20  |..AREA AN..9..  |
00001D60: 20 20 20 20 20 20 20 20  53 54 41 20 52 41 4D 43  |        STA RAMC|
00001D70: 52 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3B  |R              ;|
00001D80: 55 4E 44 20 48 45 52 53  54 45 4C C3 00 C0 39 1C  |UND HERSTEL...9.|
00001D90: 07 20 20 20 20 20 20 20  20 20 20 4C 44 41 20 24  |.          LDA $|
00001DA0: 46 46 46 30 20 20 20 20  20 20 20 20 20 20 20 20  |FFF0            |
00001DB0: 20 20 3B 41 4B 4B 55 B2  45 52 47 45 42 4E 49 53  |  ;AKKU.ERGEBNIS|
00001DC0: 00 ED 39 26 07 20 20 20  20 20 20 20 20 20 20 43  |..9&.          C|
00001DD0: 4C 49 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |LI              |
00001DE0: 20 20 20 20 20 20 3B 49  52 51 20 41 4E 00 1D 3A  |      ;IRQ AN..:|
00001DF0: 30 07 20 20 20 20 20 20  20 20 20 20 52 54 53 20  |0.          RTS |
00001E00: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001E10: 20 20 20 3B 52 55 45 43  4B 53 50 8A 47 00 28 3A  |   ;RUECKSP.G.(:|
00001E20: 3A 07 3B 20 20 20 20 97  00 53 3A 44 07 97 52 20  |:.;    ..S:D..R |
00001E30: 20 20 20 20 53 54 41 20  24 46 46 46 30 20 20 20  |    STA $FFF0   |
00001E40: 20 20 20 20 20 20 20 20  20 20 20 3B 53 49 43 48  |           ;SICH|
00001E50: 45 52 4E 00 81 3A 4E 07  20 20 20 20 20 20 20 20  |ERN..:N.        |
00001E60: 20 20 53 45 49 20 20 20  20 20 20 20 20 20 20 20  |  SEI           |
00001E70: 20 20 20 20 20 20 20 20  20 3B 49 52 51 20 41 55  |         ;IRQ AU|
00001E80: 53 00 B2 3A 58 07 20 20  20 20 20 20 20 20 20 20  |S..:X.          |
00001E90: 4C 44 41 20 52 41 4D 43  52 20 20 20 20 20 20 20  |LDA RAMCR       |
00001EA0: 20 20 20 20 20 20 20 3B  41 4B 4B 55 B2 52 41 4D  |       ;AKKU.RAM|
00001EB0: 43 52 00 E5 3A 62 07 20  20 20 20 20 20 20 20 20  |CR..:b.         |
00001EC0: 20 AF 20 23 25 31 31 31  31 30 30 31 31 20 20 20  | . #%11110011   |
00001ED0: 20 20 20 20 20 20 3B 43  4F 4D 4D 91 AB 41 52 45  |      ;COMM..ARE|
00001EE0: 41 20 41 55 53 00 14 3B  6C 07 20 20 20 20 20 20  |A AUS..;l.      |
00001EF0: 20 20 20 20 53 54 41 20  52 41 4D 43 52 20 20 20  |    STA RAMCR   |
00001F00: 20 20 20 20 20 20 20 20  20 20 20 3B 48 45 52 53  |           ;HERS|
00001F10: 54 45 4C C3 00 43 3B 76  07 20 20 20 20 20 20 20  |TEL..C;v.       |
00001F20: 20 20 20 4C 44 41 20 24  46 46 46 30 20 20 20 20  |   LDA $FFF0    |
00001F30: 20 20 20 20 20 20 20 20  20 20 3B 42 59 54 45 20  |          ;BYTE |
00001F40: 48 4F C3 00 73 3B 80 07  50 4F 56 45 4B 20 20 20  |HO..s;..POVEK   |
00001F50: 20 20 53 54 41 20 24 46  46 46 46 2C 59 20 20 20  |  STA $FFFF,Y   |
00001F60: 20 20 20 20 20 20 20 20  20 3B 53 43 48 52 45 49  |         ;SCHREI|
00001F70: 42 45 4E 00 A4 3B 8A 07  20 20 20 20 20 20 20 20  |BEN..;..        |
00001F80: 20 20 4C 44 41 20 52 41  4D 43 52 20 20 20 20 20  |  LDA RAMCR     |
00001F90: 20 20 20 20 20 20 20 20  20 3B 41 4B 4B 55 B2 52  |         ;AKKU.R|
00001FA0: 41 4D 43 52 00 D7 3B 94  07 20 20 20 20 20 20 20  |AMCR..;..       |
00001FB0: 20 20 20 B0 41 20 23 25  30 30 30 30 30 31 30 30  |   .A #%00000100|
00001FC0: 20 20 20 20 20 20 20 20  20 3B 43 4F 4D 4D 91 AB  |         ;COMM..|
00001FD0: 41 52 45 41 20 41 4E 00  06 3C 9E 07 20 20 20 20  |AREA AN..<..    |
00001FE0: 20 20 20 20 20 20 53 54  41 20 52 41 4D 43 52 20  |      STA RAMCR |
00001FF0: 20 20 20 20 20 20 20 20  20 20 20 20 20 3B 48 45  |             ;HE|
00002000: 52 53 54 45 4C C3 00 33  3C A8 07 20 20 20 20 20  |RSTEL..3<..     |
00002010: 20 20 20 20 20 43 4C 49  20 20 20 20 20 20 20 20  |     CLI        |
00002020: 20 20 20 20 20 20 20 20  20 20 20 20 3B 49 52 51  |            ;IRQ|
00002030: 20 41 4E 00 61 3C B2 07  80 20 20 20 20 20 20 20  | AN.a<...       |
00002040: 52 54 53 20 20 20 20 20  20 20 20 20 20 20 20 20  |RTS             |
00002050: 20 20 20 20 20 20 20 3B  52 55 45 43 4B 53 50 8A  |       ;RUECKSP.|
00002060: 47 00 71 3C BC 07 20 20  20 20 20 20 20 20 20 2E  |G.q<..         .|
00002070: 80 00 78 3C C6 07 A0 38  00 8C 3C D0 07 94 22 40  |..x<...8..<..."@|
00002080: 3A 4B 45 52 4E 41 4C 2E  53 22 2C 38 00 9E 3C DA  |:KERNAL.S",8..<.|
00002090: 07 95 22 4B 45 52 4E 41  4C 2E 53 22 2C 38 00 00  |.."KERNAL.S",8..|
000020A0: 00                                                |.               |
.......8,8,8,"@0:KERNAL,P,W".:....9.4096
:.OPT P,O8:.. $C00.C...; ...............
......................(.; .             
                   ....2.; .           K
 E R N A L          ....<.; .           
                     ....F.; .        V.
 FRANK PROBST        ../.P.; .          
                      ..X.Z.; .         
IM FEBRUAR '86         ....D.;.         
                       ....N.;..........
...........................X.C.F   . $FF
00                    ;K.FIGURATI.SREGIS
TER. ...FLAG   . 996                    
  ;NR. DER KERNALROUTINE.V...JSRFAR . $2
CD                     ;JSRFAR ROUTINE..
...JMPFAR . $2E3                     ;JM
PFAR ROUTINE.G. .RAMCR  . $D506         
           ;RAMK.FIGURATI.SREG.......VEK
 . $1219                    ;VEK.R DES .
BEFEHLS.7...B   . $FF50                 
   ;.. DER B...ROUTINEN.=...;.W.H.;     
   .. KERNAL ...}.R.; NUMMER DER KERNALR
OUTINE IN 996.....;     AUFRUF DURCH JSR
 $C00.....;      V. BELIEBIGER BANK.A...
;.....           STA 6                  
;REGISTER.. ..           STX 7          
        ;IN DIE.O ..           STY 8    
              ;ZEROPAGE.~ ..           L
DA #15                ;BANK 15.. ".     
      STA 2                  ;IN ZP.. ,.
           LDA #$44               ;LO.BY
TE V. SP.GTABELLE..!6.           STA 4  
                ;IN ZP.T!@.           LD
A #$FF               ;HI.BYTE V. SP.GTAB
ELLE..!J.           STA 3               
   ;IN ZP..!T.           LDA FLAG       
        ;FLAG LESEN..!^.           CMP #
20                ;KLEINER ALS.("H.     
      BCC KLEINER            ;20 DANN BE
I KLEINER WEITER.P"R.           INC 4   
               ;LO.BYTE V. SP.GTABELLE H
OCHZAEHC.."|.KLEINER    ASL             
       ;AKKU.AKKU.2.Y"..           ADC F
LAG               ;AKKU.AKKU.FLAG..#..  
         ADC 4                  ;AKKU.AK
KU.LO.BYTE.C#..           STA 4         
         ;AKKU IN 4.I#..;.H#..;     .. J
SRFAR ROUTINE ....#..;    PARAMETERUEBER
GABE WIE        ..#B.;    N.MALE JSRFAR.
ROUTINE.P#L.;   JEDOCH V. JEDER BANK AUS
..#V.;    EINFACH DURCH JSR $C23..#..;.-
$..JRFAR      LDA C.F               ;AKK
U.C.FIGURATI..\$..           PHA        
            ;SICHERN..$..           LDA 
#0                 ;BANK 15..$..        
   STA C.F               ;IN C.F..$..   
        JSR JSRFAR             ;JSRFAR A
NSPRINGEN. %..           PLA            
        ;C.F HOC.V%&.           STA C.F 
              ;WIEDER HERSTELC..%0.     
      LDA 5                  ;AKKU.STATU
S..%:.           PHA                    
;AUF STACK..%D.           LDA 6         
         ;REGISTER..&N.           LDX 7 
                 ;WIEDER.H&X.           
LDY 8                  ;HERSTELC..&B.   
        PLP                    ;STATUS.R
EG. HERSTELC..&L.           RTS         
           ;RUECKSP.G..&V.;.Y&..;     ..
 INITIALISIE.G ....&..;   VERGROESSERT D
IE COMM..AREA.%'..;AUF 4K BYTE. PASST BA
SIC ZEIGER AN.F'..; UND VERSCHIEBT B...R
OUTINE.L'..;.{'..INIT       LDA #0      
           ;BANK 15..'..           STA C
.F               ;IN C.F..'F.           
LDA RAMCR              ;RAM.C.FIGURATI.S
.REG...(P.           .A #%00000101      
   ;4K RAM GEMEINSAM.T(Z.           STA 
RAMCR              ;V. $0000 . $0FFF..(.
.           LDA #0                 ;BASI
C...(..           STA 47                
 ;ZEIGER.Z(..           STA 49          
       ;AN..)..           LDA #$10      
         ;NEUE.6)..           STA 48    
             ;SITUATI..F)..           ST
A 50                 ;ANPASSEN.L) .;..)*
.;  .. INITIALISIERT ..VEK.R ....)4.;BEI
 . ERFOLGT SP.G NACH $0F000..)>.;..)H.  
         LDA #.START            ;LO.BYTE
 IN..*R.           STA .VEK             
;.VEK.R.I*\.           LDA #.START      
      ;HI.BYTE IN.U*F.           STA .VE
K.1           ;.VEK.R.{*P.;..*Z.; ..VERS
CHIEBT B...ROUTINEN....*..;.Q*..        
   LDA #$7F               ;BANK 1..*..  
         STA C.F               ;IN C.F.0
+..           LDY #..BR         ;SCHLE.E
NZAEHLER.D+..LOOP       LDA BR,Y        
    ;VERSCHIEBEN DER..+..           STA 
B,Y             ;B...ROUTINEN.B+..      
     DEY                    ;Y.Y.1..,J. 
          BPL LOOP               ;NOCH N
ICHT FERTIG DANN LOOP.6,T.           RTS
                    ;RUECKSP.G.<,..;.\,.
.;     .. NACH . SPRINGEN ...B,..;..,..S
TART      LDA #$3F              ;.. 0..,
..           STA C.F              ;IN C.
F..,..           JMP $F000             ;
SP.G NACH $0F000..,..;..-$.;      .. B A
US BANK 1 ...4-..;       HOLT BYTE AUS N
ICHT.Q-8.;        ERREICHBA.  RAM.J-B.; 
EINGABEPARAMETER :..-L.; X.REG .  LO.BYT
E DER BADRESSE..-V.; Y.REG .  HI.BYTE DE
R BADRESSE..-`.;.Q-J.; AUSGABEPARAMETER 
:..-T.; AKKU  .  GELESENES BYTE..-~.;.:.
..          STA LOB.1              ;ZPAD
RESSE FUER LO.BYTE ABLEGEN....         
 STA HIB.1              ;ZPADRESSE FUER 
HI.BYTE ABLEGEN.....          INC HIB.1 
             ;HI.BYTE.HI.BYTE.1.....    
      LDA C.F               ;AKKU.C.FIGU
RATI.../..          PHA                 
   ;SICHERN.L/..          LDA #$7E      
         ;BANK 1.I.O.X/D.          STA C
.F               ;IN C.F../N.LOB       L
DA 0                  ;LO.BYTE DER ZPADR
ESSE../X.          STA PEVEK.BR.B.1 ;LO.
BYTE DER ADRESSE.$0..HIB       LDA 0    
              ;HI.BYTE DER ZPADRESSE.X0.
.          STA PEVEK.BR.B.2 ;HI.BYTE DER
 ADRESSE..0..          JSR B            
   ;SP.G NACH BROUTINE.F0..          STA
 FLAG               ;ZWISCHENSPEICHERN..
0..          PLA                    ;C.F
IGURATI. HOC..1..          STA C.F      
         ;UND HERSTELC.G1..          LDA
 FLAG               ;ERGEBNIS NACH AKKU.
.1(.          RTS                    ;RU
ECKSP.G..12.;..1<.;      .. . IN BANK 1 
....1F.;     SCHREIBT BYTE IN NICHT..1P.
;        ERREICHBARES RAM..2Z.; EINGABEP
ARAMETER :.62D.; X.REG .  LO.BYTE DER .A
DRESSE.Z2N.; Y.REG .  HI.BYTE DER .ADRES
SE.2X.; AKKU  .  DER ZU SPEICHE.E WERT.
.2..;..2..; AUSGABEPARAMETER . KEINE..2.
.;..2 .          STA FLAG               
;ZWISCHENSPEICHERN..3..POZPA     LDA #$F
F               ;. ZPADRESSE.T3..       
   STA LOBP.1             ;ZPADRESSE LO.
BYTE ABLEGEN..3..          STA HIBP.1   
          ;ZPADRESSE HI.BYTE ABLEGEN.L3H
.          INC HIBP.1             ;HI.BY
TE.HI.BYTE.1..4R.          LDA C.F      
         ;AKKU.C.FIGURATI..04..         
 PHA                    ;SICHERN.A4..   
       LDA #$7E               ;BANK 1.I.
O..4..          STA C.F               ;H
ERSTELC.C4..LOBP      LDA 0             
     ;LO.BYTE LESEN..4..          STA PO
VEK.BR.B.1 ;LO.BYTE DER ADRESSE.+5..HIBP
      LDA 0                  ;HI.BYTE LE
SEN._5..          STA POVEK.BR.B.2 ;HI.B
YTE DER ADRESSE..5".          LDA FLAG  
             ;GESICHERTEN WERT HOC.D5,. 
         JSR .R.BR.B   ;. ANSPRINGEN..66
.          PLA                    ;GESIC
HERTE C.FIGURATI. HOC.36@.          STA 
C.F               ;HERSTELC.C6J.        
  RTS                    ;RUECKSP.G.I6T.
;..6^.;     .. JMPFAR ROUTINE ....6H.;  
  PARAMETERUEBERGABE WIE.G6R.;    N.MALE
 JMPFAR.ROUTINE..6|.;   JEDOCH V. JEDER 
BANK AUS..7..;    EINFACH DURCH JSR $CD0
..7..;.;7..          LDA #0             
    ;BANK15.I7..          STA C.F       
        ;HERSTELC. 7..          JMP JMPF
AR             ;SP.G NACH JMPFAR..7..;  
     BROUTINE..7B.BR     SEI            
        ;.ERRUPTS AUS.*8L.          LDA 
RAMCR              ;AKKU.RAM.C.FIGURATI.
S.REGISTER._8V.          . #%11110011   
      ;KEINE COMM..AREA..8..          ST
A RAMCR              ;HERSTELC..8..PEVEK
     LDA $FFFF,Y            ;BYTE HOC..8
..          STA $FFF0              ;ZWIS
CHENSPEICHERN.&9..          LDA RAMCR   
           ;AKKU.RAMCR.Y9..          .A 
#%00000100         ;COMM..AREA AN..9..  
        STA RAMCR              ;UND HERS
TELC..9..          LDA $FFF0            
  ;AKKU.ERGEBNIS..9&.          CLI      
              ;IRQ AN..:0.          RTS 
                   ;RUECKSP.G.(::.;    .
.S:D..R     STA $FFF0              ;SICH
ERN..:N.          SEI                   
 ;IRQ AUS..:X.          LDA RAMCR       
       ;AKKU.RAMCR..:B.          . #%111
10011         ;COMM..AREA AUS..;L.      
    STA RAMCR              ;HERSTELC.C;V
.          LDA $FFF0              ;BYTE 
HOC.S;..POVEK     STA $FFFF,Y           
 ;SCHREIBEN..;..          LDA RAMCR     
         ;AKKU.RAMCR.W;..          .A #%
00000100         ;COMM..AREA AN..<..    
      STA RAMCR              ;HERSTELC.3
<..          CLI                    ;IRQ
 AN.A<...       RTS                    ;
RUECKSP.G.Q<..         ...X<F. 8..<P.."@
:KERNAL.S",8..<Z.."KERNAL.S",8...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL