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

PROTOKOLL.SRC

FILE INFORMATION

FILENAME(S): PROTOKOLL.SRC

FILE TYPE(S): SEQ

FILE SIZE: 6.5K

FIRST SEEN: 2025-11-30 01:13:01

APPEARS ON: 1 disk(s)

FILE HASH

e0ed6ddaad5040e32f7d7a7d4368dbf3930a277f21645564146a2c33446dcc0e

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
10109 SEITE A PROTOKOLL.SRC SEQ C64er 10 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 0D 3B 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |.;==============|
00000010: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000020: 3D 3D 3D 3D 3D 3D 3D 3D  3D 0D 3B 20 42 41 53 49  |=========.; BASI|
00000030: 43 2D 5A 45 49 4C 45 20  4D 49 54 20 53 59 53 2D  |C-ZEILE MIT SYS-|
00000040: 41 44 52 45 53 53 45 0D  3B 3D 3D 3D 3D 3D 3D 3D  |ADRESSE.;=======|
00000050: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000060: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000070: 0D 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 2A  |..             *|
00000080: 20 3D 20 24 30 38 30 31  20 3B 50 52 4F 47 2E 53  | = $0801 ;PROG.S|
00000090: 54 41 52 54 0D 0D 20 20  20 20 20 20 20 20 20 20  |TART..          |
000000A0: 20 20 20 2E 42 59 54 45  20 24 30 44 2C 24 30 38  |   .BYTE $0D,$08|
000000B0: 2C 24 42 32 2C 24 30 37  0D 20 20 20 20 20 20 20  |,$B2,$07.       |
000000C0: 20 20 20 20 20 20 2E 42  59 54 45 20 24 39 45 2C  |      .BYTE $9E,|
000000D0: 24 32 38 2C 24 33 32 2C  24 33 30 0D 20 20 20 20  |$28,$32,$30.    |
000000E0: 20 20 20 20 20 20 20 20  20 2E 42 59 54 45 20 24  |         .BYTE $|
000000F0: 33 36 2C 24 33 35 2C 24  32 39 2C 24 30 30 0D 20  |36,$35,$29,$00. |
00000100: 20 20 20 20 20 20 20 20  20 20 20 20 2E 42 59 54  |            .BYT|
00000110: 45 20 24 30 30 2C 24 30  30 2C 24 45 41 2C 24 45  |E $00,$00,$EA,$E|
00000120: 41 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 2E  |A.             .|
00000130: 42 59 54 45 20 24 45 41  2C 24 45 41 2C 24 45 41  |BYTE $EA,$EA,$EA|
00000140: 2C 24 45 41 0D 0D 3B 3D  3D 3D 3D 3D 3D 3D 3D 3D  |,$EA..;=========|
00000150: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000160: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 0D 3B  |==============.;|
00000170: 20 49 4E 49 54 49 41 4C  49 53 49 45 52 55 4E 47  | INITIALISIERUNG|
00000180: 0D 3B 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |.;==============|
00000190: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
000001A0: 3D 3D 3D 3D 3D 3D 3D 3D  3D 0D 0D 3B 2D 2D 2D 2D  |=========..;----|
000001B0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000001C0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000001D0: 2D 2D 2D 0D 3B 20 4B 4F  50 49 45 52 45 4E 20 44  |---.; KOPIEREN D|
000001E0: 45 53 20 42 41 53 49 43  20 41 55 53 20 44 45 4D  |ES BASIC AUS DEM|
000001F0: 20 52 4F 4D 20 49 4E 53  20 52 41 4D 0D 3B 2D 2D  | ROM INS RAM.;--|
00000200: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000210: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000220: 2D 2D 2D 2D 2D 0D 0D 20  20 20 20 20 20 20 20 20  |-----..         |
00000230: 20 20 20 20 56 4F 4E 31  20 3D 20 24 41 30 30 30  |    VON1 = $A000|
00000240: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 42 49  |.             BI|
00000250: 53 31 20 3D 20 24 43 30  30 30 0D 0D 20 20 20 20  |S1 = $C000..    |
00000260: 20 20 20 20 20 20 20 20  20 4C 44 41 23 20 3C 56  |         LDA# <V|
00000270: 4F 4E 31 0D 20 20 20 20  20 20 20 20 20 20 20 20  |ON1.            |
00000280: 20 53 54 41 20 24 46 41  0D 20 20 20 20 20 20 20  | STA $FA.       |
00000290: 20 20 20 20 20 20 4C 44  41 23 20 3E 56 4F 4E 31  |      LDA# >VON1|
000002A0: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 53 54  |.             ST|
000002B0: 41 20 24 46 42 0D 20 20  20 20 20 20 20 20 20 20  |A $FB.          |
000002C0: 20 20 20 4C 44 41 23 20  3C 42 49 53 31 0D 20 20  |   LDA# <BIS1.  |
000002D0: 20 20 20 20 20 20 20 20  20 20 20 53 54 41 20 24  |           STA $|
000002E0: 46 43 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |FC.             |
000002F0: 4C 44 41 23 20 3E 42 49  53 31 0D 20 20 20 20 20  |LDA# >BIS1.     |
00000300: 20 20 20 20 20 20 20 20  53 54 41 20 24 46 44 0D  |        STA $FD.|
00000310: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 4C 44  |.             LD|
00000320: 59 23 20 30 0D 0D 4B 4F  50 32 20 20 20 20 20 20  |Y# 0..KOP2      |
00000330: 20 20 20 4C 44 41 20 28  24 46 41 29 2C 59 0D 20  |   LDA ($FA),Y. |
00000340: 20 20 20 20 20 20 20 20  20 20 20 20 53 54 41 20  |            STA |
00000350: 28 24 46 41 29 2C 59 0D  0D 20 20 20 20 20 20 20  |($FA),Y..       |
00000360: 20 20 20 20 20 20 49 4E  43 20 24 46 41 0D 20 20  |      INC $FA.  |
00000370: 20 20 20 20 20 20 20 20  20 20 20 42 4E 45 20 4B  |           BNE K|
00000380: 4F 50 33 0D 20 20 20 20  20 20 20 20 20 20 20 20  |OP3.            |
00000390: 20 49 4E 43 20 24 46 42  0D 0D 4B 4F 50 33 20 20  | INC $FB..KOP3  |
000003A0: 20 20 20 20 20 20 20 4C  44 58 20 24 46 44 0D 20  |       LDX $FD. |
000003B0: 20 20 20 20 20 20 20 20  20 20 20 20 43 50 58 20  |            CPX |
000003C0: 24 46 42 0D 20 20 20 20  20 20 20 20 20 20 20 20  |$FB.            |
000003D0: 20 42 4E 45 20 4B 4F 50  32 0D 20 20 20 20 20 20  | BNE KOP2.      |
000003E0: 20 20 20 20 20 20 20 4C  44 58 20 24 46 43 0D 20  |       LDX $FC. |
000003F0: 20 20 20 20 20 20 20 20  20 20 20 20 43 50 58 20  |            CPX |
00000400: 24 46 41 0D 20 20 20 20  20 20 20 20 20 20 20 20  |$FA.            |
00000410: 20 42 4E 45 20 4B 4F 50  32 0D 0D 3B 2D 2D 2D 2D  | BNE KOP2..;----|
00000420: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000430: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000440: 2D 2D 2D 0D 3B 20 4B 45  52 4E 41 4C 20 41 55 53  |---.; KERNAL AUS|
00000450: 20 44 45 4D 20 52 4F 4D  20 49 4E 53 20 52 41 4D  | DEM ROM INS RAM|
00000460: 0D 3B 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |.;--------------|
00000470: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000480: 2D 2D 2D 2D 2D 2D 2D 2D  2D 0D 0D 20 20 20 20 20  |---------..     |
00000490: 20 20 20 20 20 20 20 20  56 4F 4E 32 20 3D 20 24  |        VON2 = $|
000004A0: 45 30 30 30 0D 20 20 20  20 20 20 20 20 20 20 20  |E000.           |
000004B0: 20 20 42 49 53 32 20 3D  20 24 30 30 30 30 0D 0D  |  BIS2 = $0000..|
000004C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 4C 44 41  |             LDA|
000004D0: 23 20 3C 56 4F 4E 32 0D  20 20 20 20 20 20 20 20  |# <VON2.        |
000004E0: 20 20 20 20 20 53 54 41  20 24 46 41 0D 20 20 20  |     STA $FA.   |
000004F0: 20 20 20 20 20 20 20 20  20 20 4C 44 41 23 20 3E  |          LDA# >|
00000500: 56 4F 4E 32 0D 20 20 20  20 20 20 20 20 20 20 20  |VON2.           |
00000510: 20 20 53 54 41 20 24 46  42 0D 20 20 20 20 20 20  |  STA $FB.      |
00000520: 20 20 20 20 20 20 20 4C  44 41 23 20 3C 42 49 53  |       LDA# <BIS|
00000530: 32 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 53  |2.             S|
00000540: 54 41 20 24 46 43 0D 20  20 20 20 20 20 20 20 20  |TA $FC.         |
00000550: 20 20 20 20 4C 44 41 23  20 3E 42 49 53 32 0D 20  |    LDA# >BIS2. |
00000560: 20 20 20 20 20 20 20 20  20 20 20 20 53 54 41 20  |            STA |
00000570: 24 46 44 0D 0D 20 20 20  20 20 20 20 20 20 20 20  |$FD..           |
00000580: 20 20 4C 44 59 23 20 30  0D 0D 4B 4F 50 42 20 20  |  LDY# 0..KOPB  |
00000590: 20 20 20 20 20 20 20 4C  44 41 20 28 24 46 41 29  |       LDA ($FA)|
000005A0: 2C 59 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |,Y.             |
000005B0: 53 54 41 20 28 24 46 41  29 2C 59 0D 0D 20 20 20  |STA ($FA),Y..   |
000005C0: 20 20 20 20 20 20 20 20  20 20 49 4E 43 20 24 46  |          INC $F|
000005D0: 41 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 42  |A.             B|
000005E0: 4E 45 20 4B 4F 50 43 0D  20 20 20 20 20 20 20 20  |NE KOPC.        |
000005F0: 20 20 20 20 20 49 4E 43  20 24 46 42 0D 0D 4B 4F  |     INC $FB..KO|
00000600: 50 43 20 20 20 20 20 20  20 20 20 4C 44 58 20 24  |PC         LDX $|
00000610: 46 44 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |FD.             |
00000620: 43 50 58 20 24 46 42 0D  20 20 20 20 20 20 20 20  |CPX $FB.        |
00000630: 20 20 20 20 20 42 4E 45  20 4B 4F 50 42 0D 20 20  |     BNE KOPB.  |
00000640: 20 20 20 20 20 20 20 20  20 20 20 4C 44 58 20 24  |           LDX $|
00000650: 46 43 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |FC.             |
00000660: 43 50 58 20 24 46 41 0D  20 20 20 20 20 20 20 20  |CPX $FA.        |
00000670: 20 20 20 20 20 42 4E 45  20 4B 4F 50 42 0D 0D 3B  |     BNE KOPB..;|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000690: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 0D  3B 20 56 45 52 4C 45 47  |-------.; VERLEG|
000006B0: 45 4E 20 42 49 53 20 5A  49 45 4C 2D 31 20 4E 41  |EN BIS ZIEL-1 NA|
000006C0: 43 48 20 24 45 34 32 32  0D 3B 20 4B 4F 50 49 45  |CH $E422.; KOPIE|
000006D0: 52 45 4E 0D 3B 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |REN.;-----------|
000006E0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000006F0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 0D 0D 43 4F  |------------..CO|
00000700: 50 31 20 20 20 20 20 20  20 20 20 4C 44 41 23 20  |P1         LDA# |
00000710: 3C 56 45 52 4C 45 47 45  4E 0D 20 20 20 20 20 20  |<VERLEGEN.      |
00000720: 20 20 20 20 20 20 20 53  54 41 20 24 46 41 0D 20  |       STA $FA. |
00000730: 20 20 20 20 20 20 20 20  20 20 20 20 4C 44 41 23  |            LDA#|
00000740: 20 3E 56 45 52 4C 45 47  45 4E 0D 20 20 20 20 20  | >VERLEGEN.     |
00000750: 20 20 20 20 20 20 20 20  53 54 41 20 24 46 42 0D  |        STA $FB.|
00000760: 20 20 20 20 20 20 20 20  20 20 20 20 20 4C 44 41  |             LDA|
00000770: 23 20 24 32 32 0D 20 20  20 20 20 20 20 20 20 20  |# $22.          |
00000780: 20 20 20 53 54 41 20 24  46 43 0D 20 20 20 20 20  |   STA $FC.     |
00000790: 20 20 20 20 20 20 20 20  4C 44 41 23 20 24 45 34  |        LDA# $E4|
000007A0: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 53 54  |.             ST|
000007B0: 41 20 24 46 44 0D 0D 20  20 20 20 20 20 20 20 20  |A $FD..         |
000007C0: 20 20 20 20 4C 44 59 23  20 24 30 30 0D 0D 43 4F  |    LDY# $00..CO|
000007D0: 50 32 20 20 20 20 20 20  20 20 20 4C 44 41 20 28  |P2         LDA (|
000007E0: 24 46 41 29 2C 59 0D 20  20 20 20 20 20 20 20 20  |$FA),Y.         |
000007F0: 20 20 20 20 53 54 41 20  28 24 46 43 29 2C 59 0D  |    STA ($FC),Y.|
00000800: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 49 4E  |.             IN|
00000810: 43 20 24 46 43 0D 20 20  20 20 20 20 20 20 20 20  |C $FC.          |
00000820: 20 20 20 42 4E 45 20 43  4F 50 33 0D 20 20 20 20  |   BNE COP3.    |
00000830: 20 20 20 20 20 20 20 20  20 49 4E 43 20 24 46 44  |         INC $FD|
00000840: 0D 0D 43 4F 50 33 20 20  20 20 20 20 20 20 20 49  |..COP3         I|
00000850: 4E 43 20 24 46 41 0D 20  20 20 20 20 20 20 20 20  |NC $FA.         |
00000860: 20 20 20 20 42 4E 45 20  43 4F 50 34 0D 20 20 20  |    BNE COP4.   |
00000870: 20 20 20 20 20 20 20 20  20 20 49 4E 43 20 24 46  |          INC $F|
00000880: 42 0D 0D 43 4F 50 34 20  20 20 20 20 20 20 20 20  |B..COP4         |
00000890: 4C 44 58 20 24 46 42 0D  20 20 20 20 20 20 20 20  |LDX $FB.        |
000008A0: 20 20 20 20 20 43 50 58  23 20 3E 5A 49 45 4C 0D  |     CPX# >ZIEL.|
000008B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 42 4E 45  |             BNE|
000008C0: 20 43 4F 50 32 0D 20 20  20 20 20 20 20 20 20 20  | COP2.          |
000008D0: 20 20 20 4C 44 58 20 24  46 41 0D 20 20 20 20 20  |   LDX $FA.     |
000008E0: 20 20 20 20 20 20 20 20  43 50 58 23 20 3C 5A 49  |        CPX# <ZI|
000008F0: 45 4C 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |EL.             |
00000900: 42 4E 45 20 43 4F 50 32  0D 0D 3B 2D 2D 2D 2D 2D  |BNE COP2..;-----|
00000910: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000920: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000930: 2D 2D 0D 3B 20 5A 49 45  4C 20 42 49 53 20 48 49  |--.; ZIEL BIS HI|
00000940: 4C 46 45 2D 31 20 4E 41  43 48 20 24 45 34 36 30  |LFE-1 NACH $E460|
00000950: 0D 3B 20 4B 4F 50 49 45  52 45 4E 0D 3B 2D 2D 2D  |.; KOPIEREN.;---|
00000960: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000970: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000980: 2D 2D 2D 2D 0D 0D 43 4F  50 41 20 20 20 20 20 20  |----..COPA      |
00000990: 20 20 20 4C 44 41 23 20  3C 5A 49 45 4C 0D 20 20  |   LDA# <ZIEL.  |
000009A0: 20 20 20 20 20 20 20 20  20 20 20 53 54 41 20 24  |           STA $|
000009B0: 46 41 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |FA.             |
000009C0: 4C 44 41 23 20 3E 5A 49  45 4C 0D 20 20 20 20 20  |LDA# >ZIEL.     |
000009D0: 20 20 20 20 20 20 20 20  53 54 41 20 24 46 42 0D  |        STA $FB.|
000009E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 4C 44 41  |             LDA|
000009F0: 23 20 24 36 30 0D 20 20  20 20 20 20 20 20 20 20  |# $60.          |
00000A00: 20 20 20 53 54 41 20 24  46 43 0D 20 20 20 20 20  |   STA $FC.     |
00000A10: 20 20 20 20 20 20 20 20  4C 44 41 23 20 24 45 34  |        LDA# $E4|
00000A20: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 53 54  |.             ST|
00000A30: 41 20 24 46 44 0D 0D 20  20 20 20 20 20 20 20 20  |A $FD..         |
00000A40: 20 20 20 20 4C 44 59 23  20 24 30 30 0D 0D 43 4F  |    LDY# $00..CO|
00000A50: 50 42 20 20 20 20 20 20  20 20 20 4C 44 41 20 28  |PB         LDA (|
00000A60: 24 46 41 29 2C 59 0D 20  20 20 20 20 20 20 20 20  |$FA),Y.         |
00000A70: 20 20 20 20 53 54 41 20  28 24 46 43 29 2C 59 0D  |    STA ($FC),Y.|
00000A80: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 49 4E  |.             IN|
00000A90: 43 20 24 46 43 0D 20 20  20 20 20 20 20 20 20 20  |C $FC.          |
00000AA0: 20 20 20 42 4E 45 20 43  4F 50 43 0D 20 20 20 20  |   BNE COPC.    |
00000AB0: 20 20 20 20 20 20 20 20  20 49 4E 43 20 24 46 44  |         INC $FD|
00000AC0: 0D 0D 43 4F 50 43 20 20  20 20 20 20 20 20 20 49  |..COPC         I|
00000AD0: 4E 43 20 24 46 41 0D 20  20 20 20 20 20 20 20 20  |NC $FA.         |
00000AE0: 20 20 20 20 42 4E 45 20  43 4F 50 44 0D 20 20 20  |    BNE COPD.   |
00000AF0: 20 20 20 20 20 20 20 20  20 20 49 4E 43 20 24 46  |          INC $F|
00000B00: 42 0D 0D 43 4F 50 44 20  20 20 20 20 20 20 20 20  |B..COPD         |
00000B10: 4C 44 58 20 24 46 42 0D  20 20 20 20 20 20 20 20  |LDX $FB.        |
00000B20: 20 20 20 20 20 43 50 58  23 20 3E 48 49 4C 46 45  |     CPX# >HILFE|
00000B30: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 42 4E  |.             BN|
00000B40: 45 20 43 4F 50 42 0D 20  20 20 20 20 20 20 20 20  |E COPB.         |
00000B50: 20 20 20 20 4C 44 58 20  24 46 41 0D 20 20 20 20  |    LDX $FA.    |
00000B60: 20 20 20 20 20 20 20 20  20 43 50 58 23 20 3C 48  |         CPX# <H|
00000B70: 49 4C 46 45 0D 20 20 20  20 20 20 20 20 20 20 20  |ILFE.           |
00000B80: 20 20 42 4E 45 20 43 4F  50 42 0D 0D 3B 2D 2D 2D  |  BNE COPB..;---|
00000B90: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000BA0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000BB0: 2D 2D 2D 2D 0D 3B 20 43  48 52 4F 55 54 20 42 45  |----.; CHROUT BE|
00000BC0: 49 20 24 45 37 31 36 20  41 55 46 20 45 52 57 45  |I $E716 AUF ERWE|
00000BD0: 49 54 45 52 55 4E 47 0D  3B 20 5A 45 49 47 45 4E  |ITERUNG.; ZEIGEN|
00000BE0: 20 4C 41 53 53 45 4E 20  20 20 28 44 52 55 43 4B  | LASSEN   (DRUCK|
00000BF0: 45 52 2D 41 55 53 47 41  42 45 29 0D 3B 2D 2D 2D  |ER-AUSGABE).;---|
00000C00: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000C10: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000C20: 2D 2D 2D 2D 0D 0D 43 48  52 31 20 20 20 20 20 20  |----..CHR1      |
00000C30: 20 20 20 4C 44 41 23 20  24 34 43 0D 20 20 20 20  |   LDA# $4C.    |
00000C40: 20 20 20 20 20 20 20 20  20 4C 44 58 23 20 24 36  |         LDX# $6|
00000C50: 30 20 20 20 3B 20 4A 4D  50 20 24 45 34 36 30 0D  |0   ; JMP $E460.|
00000C60: 20 20 20 20 20 20 20 20  20 20 20 20 20 4C 44 59  |             LDY|
00000C70: 23 20 24 45 34 0D 20 20  20 20 20 20 20 20 20 20  |# $E4.          |
00000C80: 20 20 20 53 54 41 20 24  45 37 31 36 0D 20 20 20  |   STA $E716.   |
00000C90: 20 20 20 20 20 20 20 20  20 20 53 54 58 20 24 45  |          STX $E|
00000CA0: 37 31 37 0D 20 20 20 20  20 20 20 20 20 20 20 20  |717.            |
00000CB0: 20 53 54 59 20 24 45 37  31 38 0D 0D 3B 2D 2D 2D  | STY $E718..;---|
00000CC0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000CD0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000CE0: 2D 2D 2D 2D 0D 3B 20 49  52 51 20 42 45 49 20 24  |----.; IRQ BEI $|
00000CF0: 45 41 33 31 20 41 55 46  20 45 52 57 45 49 54 45  |EA31 AUF ERWEITE|
00000D00: 52 55 4E 47 20 5A 45 49  47 45 4E 0D 3B 20 4C 41  |RUNG ZEIGEN.; LA|
00000D10: 53 53 45 4E 20 20 28 54  41 53 54 45 4E 2D 41 42  |SSEN  (TASTEN-AB|
00000D20: 46 52 41 47 45 29 0D 3B  2D 2D 2D 2D 2D 2D 2D 2D  |FRAGE).;--------|
00000D30: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000D40: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 0D  |---------------.|
00000D50: 0D 49 52 51 31 0D 20 20  20 20 20 20 20 20 20 20  |.IRQ1.          |
00000D60: 20 20 20 4C 44 58 23 20  24 32 35 20 20 20 20 20  |   LDX# $25     |
00000D70: 3B 20 4A 53 52 20 24 45  34 32 32 2B 33 0D 20 20  |; JSR $E422+3.  |
00000D80: 20 20 20 20 20 20 20 20  20 20 20 4C 44 59 23 20  |           LDY# |
00000D90: 24 45 34 0D 0D 20 20 20  20 20 20 20 20 20 20 20  |$E4..           |
00000DA0: 20 20 53 54 58 20 24 45  41 33 32 0D 20 20 20 20  |  STX $EA32.    |
00000DB0: 20 20 20 20 20 20 20 20  20 53 54 59 20 24 45 41  |         STY $EA|
00000DC0: 33 33 0D 0D 3B 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |33..;-----------|
00000DD0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000DE0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 0D 3B 20 4B  |------------.; K|
00000DF0: 4F 4E 54 52 4F 4C 4C 52  45 47 49 53 54 45 52 20  |ONTROLLREGISTER |
00000E00: 41 55 46 20 4E 55 4C 4C  20 53 45 54 5A 45 4E 0D  |AUF NULL SETZEN.|
00000E10: 3B 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |;---------------|
00000E20: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000E30: 2D 2D 2D 2D 2D 2D 2D 2D  0D 0D 4B 4F 4E 31 20 20  |--------..KON1  |
00000E40: 20 20 20 20 20 20 20 4C  44 41 23 20 30 0D 20 20  |       LDA# 0.  |
00000E50: 20 20 20 20 20 20 20 20  20 20 20 53 54 41 20 24  |           STA $|
00000E60: 45 34 34 35 20 3B 4B 4F  4E 54 52 4F 4C 4C 45 0D  |E445 ;KONTROLLE.|
00000E70: 0D 3B 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |.;--------------|
00000E80: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000E90: 2D 2D 2D 2D 2D 2D 2D 2D  2D 0D 3B 20 4E 45 55 45  |---------.; NEUE|
00000EA0: 53 20 4B 45 52 4E 45 4C  20 45 49 4E 53 43 48 41  |S KERNEL EINSCHA|
00000EB0: 4C 54 45 4E 0D 3B 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |LTEN.;----------|
00000EC0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000ED0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 0D 0D 4E  |-------------..N|
00000EE0: 45 55 20 20 20 20 20 20  20 20 20 20 4C 44 41 23  |EU          LDA#|
00000EF0: 20 2E 35 33 0D 20 20 20  20 20 20 20 20 20 20 20  | .53.           |
00000F00: 20 20 53 54 41 20 24 30  31 0D 0D 3B 2D 2D 2D 2D  |  STA $01..;----|
00000F10: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000F20: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000F30: 2D 2D 2D 0D 3B 20 54 45  58 54 20 41 55 53 47 45  |---.; TEXT AUSGE|
00000F40: 42 45 4E 0D 3B 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |BEN.;-----------|
00000F50: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000F60: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 0D 0D 20 20  |------------..  |
00000F70: 20 20 20 20 20 20 20 20  20 20 20 4C 44 58 23 20  |           LDX# |
00000F80: 24 30 30 0D 41 55 53 47  45 42 45 4E 20 20 20 20  |$00.AUSGEBEN    |
00000F90: 20 4C 44 41 20 54 45 58  54 2C 58 0D 20 20 20 20  | LDA TEXT,X.    |
00000FA0: 20 20 20 20 20 20 20 20  20 42 45 51 20 41 55 53  |         BEQ AUS|
00000FB0: 47 45 42 45 4E 31 0D 20  20 20 20 20 20 20 20 20  |GEBEN1.         |
00000FC0: 20 20 20 20 4A 53 52 20  24 46 46 44 32 20 3B 43  |    JSR $FFD2 ;C|
00000FD0: 48 52 4F 55 54 0D 20 20  20 20 20 20 20 20 20 20  |HROUT.          |
00000FE0: 20 20 20 49 4E 58 0D 20  20 20 20 20 20 20 20 20  |   INX.         |
00000FF0: 20 20 20 20 42 4E 45 20  41 55 53 47 45 42 45 4E  |    BNE AUSGEBEN|
00001000: 0D 0D 41 55 53 47 45 42  45 4E 31 20 20 20 20 52  |..AUSGEBEN1    R|
00001010: 54 53 20 3B 42 41 53 49  43 0D 0D 3B 3D 3D 3D 3D  |TS ;BASIC..;====|
00001020: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00001030: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00001040: 3D 3D 3D 0D 3B 20 48 41  55 50 54 52 4F 55 54 49  |===.; HAUPTROUTI|
00001050: 4E 45 4E 2C 20 44 49 45  20 49 4E 53 20 4B 45 52  |NEN, DIE INS KER|
00001060: 4E 41 4C 0D 3B 20 4B 4F  50 49 45 52 54 20 57 45  |NAL.; KOPIERT WE|
00001070: 52 44 45 4E 0D 3B 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |RDEN.;==========|
00001080: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00001090: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 0D 0D 3B  |=============..;|
000010A0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000010B0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000010C0: 2D 2D 2D 2D 2D 2D 2D 0D  3B 20 4A 4D 50 20 24 41  |-------.; JMP $A|
000010D0: 36 34 34 20 44 45 52 20  41 55 53 47 41 42 45 2D  |644 DER AUSGABE-|
000010E0: 52 4F 55 54 49 4E 45 20  44 45 52 20 45 49 4E 2D  |ROUTINE DER EIN-|
000010F0: 0D 3B 20 53 43 48 41 4C  54 4D 45 4C 44 55 4E 47  |.; SCHALTMELDUNG|
00001100: 20 56 4F 52 56 45 52 4C  45 47 45 4E 0D 3B 2D 2D  | VORVERLEGEN.;--|
00001110: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00001120: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00001130: 2D 2D 2D 2D 2D 0D 0D 56  45 52 4C 45 47 45 4E 20  |-----..VERLEGEN |
00001140: 20 20 20 20 2E 42 59 54  45 20 24 34 43 2C 24 34  |    .BYTE $4C,$4|
00001150: 34 2C 24 41 36 0D 0D 3B  2D 2D 2D 2D 2D 2D 2D 2D  |4,$A6..;--------|
00001160: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00001170: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 0D  |---------------.|
00001180: 3B 20 49 52 51 2D 41 42  46 52 41 47 45 0D 3B 2D  |; IRQ-ABFRAGE.;-|
00001190: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000011A0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000011B0: 2D 2D 2D 2D 2D 2D 0D 0D  53 50 52 55 4E 47 20 20  |------..SPRUNG  |
000011C0: 20 20 20 20 20 4C 44 58  20 24 30 32 38 44 0D 0D  |     LDX $028D..|
000011D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 43 50 58  |             CPX|
000011E0: 23 20 24 30 37 20 3B 53  48 49 46 54 20 43 54 52  |# $07 ;SHIFT CTR|
000011F0: 4C 20 43 3D 0D 20 20 20  20 20 20 20 20 20 20 20  |L C=.           |
00001200: 20 20 42 4E 45 20 53 50  52 55 4E 47 31 0D 0D 20  |  BNE SPRUNG1.. |
00001210: 20 20 20 20 20 20 20 20  20 20 20 20 49 4E 43 20  |            INC |
00001220: 24 44 30 32 31 20 3B 48  49 4E 54 45 52 47 52 55  |$D021 ;HINTERGRU|
00001230: 4E 44 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |ND.             |
00001240: 44 45 43 20 24 44 30 32  31 20 3B 42 45 53 54 41  |DEC $D021 ;BESTA|
00001250: 45 54 49 47 55 4E 47 0D  0D 20 20 20 20 20 20 20  |ETIGUNG..       |
00001260: 20 20 20 20 20 20 43 50  58 20 24 45 34 34 36 20  |      CPX $E446 |
00001270: 3B 53 50 45 49 43 48 45  52 0D 20 20 20 20 20 20  |;SPEICHER.      |
00001280: 20 20 20 20 20 20 20 42  45 51 20 53 50 52 55 4E  |       BEQ SPRUN|
00001290: 47 31 0D 0D 20 20 20 20  20 20 20 20 20 20 20 20  |G1..            |
000012A0: 20 4C 44 41 20 24 45 34  34 35 20 3B 4B 4F 4E 54  | LDA $E445 ;KONT|
000012B0: 52 4F 4C 4C 45 0D 20 20  20 20 20 20 20 20 20 20  |ROLLE.          |
000012C0: 20 20 20 45 4F 52 23 20  24 45 41 0D 20 20 20 20  |   EOR# $EA.    |
000012D0: 20 20 20 20 20 20 20 20  20 53 54 41 20 24 45 34  |         STA $E4|
000012E0: 34 35 20 3B 4B 4F 4E 54  52 4F 4C 4C 45 0D 0D 53  |45 ;KONTROLLE..S|
000012F0: 50 52 55 4E 47 31 20 20  20 20 20 20 53 54 58 20  |PRUNG1      STX |
00001300: 24 45 34 34 36 20 3B 53  50 45 49 43 48 45 52 0D  |$E446 ;SPEICHER.|
00001310: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 4A 4D  |.             JM|
00001320: 50 20 24 46 46 45 41 20  3B 49 52 51 20 57 45 49  |P $FFEA ;IRQ WEI|
00001330: 54 45 52 0D 0D 3B 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |TER..;----------|
00001340: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00001350: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 0D 0D 4B  |-------------..K|
00001360: 4F 4E 54 52 4F 4C 4C 45  20 20 20 20 4E 4F 50 0D  |ONTROLLE    NOP.|
00001370: 0D 3B 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |.;--------------|
00001380: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00001390: 2D 2D 2D 2D 2D 2D 2D 2D  2D 0D 0D 53 50 45 49 43  |---------..SPEIC|
000013A0: 48 45 52 20 20 20 20 20  4E 4F 50 0D 0D 3B 2D 2D  |HER     NOP..;--|
000013B0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000013C0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000013D0: 2D 2D 2D 2D 2D 0D 3B 20  50 52 4F 54 4F 4B 4F 4C  |-----.; PROTOKOL|
000013E0: 4C 20 41 55 46 20 44 52  55 43 4B 45 52 0D 3B 2D  |L AUF DRUCKER.;-|
000013F0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00001400: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00001410: 2D 2D 2D 2D 2D 2D 0D 0D  5A 49 45 4C 20 20 20 20  |------..ZIEL    |
00001420: 20 20 20 20 20 50 48 41  0D 20 20 20 20 20 20 20  |     PHA.       |
00001430: 20 20 20 20 20 20 4C 44  41 20 24 45 34 34 35 20  |      LDA $E445 |
00001440: 3B 4B 4F 4E 54 52 4F 4C  4C 45 0D 20 20 20 20 20  |;KONTROLLE.     |
00001450: 20 20 20 20 20 20 20 20  42 45 51 20 5A 49 45 4C  |        BEQ ZIEL|
00001460: 31 0D 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |1..             |
00001470: 54 58 41 0D 20 20 20 20  20 20 20 20 20 20 20 20  |TXA.            |
00001480: 20 50 48 41 0D 20 20 20  20 20 20 20 20 20 20 20  | PHA.           |
00001490: 20 20 54 59 41 0D 20 20  20 20 20 20 20 20 20 20  |  TYA.          |
000014A0: 20 20 20 50 48 41 0D 20  20 20 20 20 20 20 20 20  |   PHA.         |
000014B0: 20 20 20 20 4C 44 59 23  20 24 30 31 20 3B 47 52  |    LDY# $01 ;GR|
000014C0: 4F 53 53 2F 47 52 41 46  49 4B 0D 20 20 20 20 20  |OSS/GRAFIK.     |
000014D0: 20 20 20 20 20 20 20 20  4C 44 41 20 24 44 30 31  |        LDA $D01|
000014E0: 38 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 52  |8.             R|
000014F0: 4F 52 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |OR.             |
00001500: 52 4F 52 0D 20 20 20 20  20 20 20 20 20 20 20 20  |ROR.            |
00001510: 20 42 43 43 20 47 52 4F  53 53 0D 20 20 20 20 20  | BCC GROSS.     |
00001520: 20 20 20 20 20 20 20 20  4C 44 59 23 20 24 30 37  |        LDY# $07|
00001530: 20 3B 47 52 4F 53 53 2F  4B 4C 45 49 4E 0D 0D 47  | ;GROSS/KLEIN..G|
00001540: 52 4F 53 53 20 20 20 20  20 20 20 20 4C 44 41 23  |ROSS        LDA#|
00001550: 20 24 30 34 0D 20 20 20  20 20 20 20 20 20 20 20  | $04.           |
00001560: 20 20 4C 44 58 23 20 24  30 34 20 3B 44 52 55 43  |  LDX# $04 ;DRUC|
00001570: 4B 45 52 0D 20 20 20 20  20 20 20 20 20 20 20 20  |KER.            |
00001580: 20 4A 53 52 20 24 46 46  42 41 20 3B 53 45 54 46  | JSR $FFBA ;SETF|
00001590: 4C 53 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |LS.             |
000015A0: 4C 44 41 23 20 24 30 30  0D 20 20 20 20 20 20 20  |LDA# $00.       |
000015B0: 20 20 20 20 20 20 4A 53  52 20 24 46 46 42 44 20  |      JSR $FFBD |
000015C0: 3B 53 45 54 4E 41 4D 0D  20 20 20 20 20 20 20 20  |;SETNAM.        |
000015D0: 20 20 20 20 20 4A 53 52  20 24 46 46 43 30 20 3B  |     JSR $FFC0 ;|
000015E0: 4F 50 45 4E 0D 20 20 20  20 20 20 20 20 20 20 20  |OPEN.           |
000015F0: 20 20 42 43 53 20 46 45  48 4C 45 52 20 3B 46 45  |  BCS FEHLER ;FE|
00001600: 48 4C 45 52 4D 45 4C 44  55 4E 47 0D 20 20 20 20  |HLERMELDUNG.    |
00001610: 20 20 20 20 20 20 20 20  20 4C 44 58 23 20 34 20  |         LDX# 4 |
00001620: 3B 44 52 55 43 4B 45 52  0D 20 20 20 20 20 20 20  |;DRUCKER.       |
00001630: 20 20 20 20 20 20 4A 53  52 20 24 46 46 43 39 20  |      JSR $FFC9 |
00001640: 3B 43 48 4B 4F 55 54 0D  20 20 20 20 20 20 20 20  |;CHKOUT.        |
00001650: 20 20 20 20 20 50 4C 41  0D 20 20 20 20 20 20 20  |     PLA.       |
00001660: 20 20 20 20 20 20 54 41  59 0D 20 20 20 20 20 20  |      TAY.      |
00001670: 20 20 20 20 20 20 20 50  4C 41 0D 20 20 20 20 20  |       PLA.     |
00001680: 20 20 20 20 20 20 20 20  54 41 58 0D 0D 20 20 20  |        TAX..   |
00001690: 20 20 20 20 20 20 20 20  20 20 50 4C 41 0D 20 20  |          PLA.  |
000016A0: 20 20 20 20 20 20 20 20  20 20 20 4A 53 52 20 24  |           JSR $|
000016B0: 46 46 44 32 20 3B 43 48  52 4F 55 54 0D 20 20 20  |FFD2 ;CHROUT.   |
000016C0: 20 20 20 20 20 20 20 20  20 20 50 48 41 0D 20 20  |          PHA.  |
000016D0: 20 20 20 20 20 20 20 20  20 20 20 54 58 41 0D 20  |           TXA. |
000016E0: 20 20 20 20 20 20 20 20  20 20 20 20 50 48 41 0D  |            PHA.|
000016F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 54 59 41  |             TYA|
00001700: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 50 48  |.             PH|
00001710: 41 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 4C  |A.             L|
00001720: 44 41 23 20 34 0D 20 20  20 20 20 20 20 20 20 20  |DA# 4.          |
00001730: 20 20 20 4A 53 52 20 24  46 46 43 33 20 3B 43 4C  |   JSR $FFC3 ;CL|
00001740: 4F 53 45 0D 20 20 20 20  20 20 20 20 20 20 20 20  |OSE.            |
00001750: 20 4C 44 41 23 20 24 30  33 20 3B 41 55 53 47 41  | LDA# $03 ;AUSGA|
00001760: 42 45 47 45 52 41 45 54  0D 20 20 20 20 20 20 20  |BEGERAET.       |
00001770: 20 20 20 20 20 20 53 54  41 20 24 39 41 20 3B 42  |      STA $9A ;B|
00001780: 49 4C 44 53 43 48 49 52  4D 0D 0D 46 45 48 4C 45  |ILDSCHIRM..FEHLE|
00001790: 52 20 20 20 20 20 20 20  50 4C 41 0D 20 20 20 20  |R       PLA.    |
000017A0: 20 20 20 20 20 20 20 20  20 54 41 59 0D 20 20 20  |         TAY.   |
000017B0: 20 20 20 20 20 20 20 20  20 20 50 4C 41 0D 20 20  |          PLA.  |
000017C0: 20 20 20 20 20 20 20 20  20 20 20 54 41 58 0D 0D  |           TAX..|
000017D0: 5A 49 45 4C 31 20 20 20  20 20 20 20 20 50 4C 41  |ZIEL1        PLA|
000017E0: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 50 48  |.             PH|
000017F0: 41 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 53  |A.             S|
00001800: 54 41 20 24 44 37 0D 20  20 20 20 20 20 20 20 20  |TA $D7.         |
00001810: 20 20 20 20 4A 4D 50 20  24 45 37 31 39 20 3B 43  |    JMP $E719 ;C|
00001820: 48 52 4F 55 54 20 57 45  49 54 45 52 0D 0D 3B 2D  |HROUT WEITER..;-|
00001830: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00001840: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00001850: 2D 2D 2D 2D 2D 2D 0D 0D  48 49 4C 46 45 20 20 20  |------..HILFE   |
00001860: 20 20 20 20 20 4E 4F 50  20 20 3B 4B 4F 50 49 45  |     NOP  ;KOPIE|
00001870: 52 48 49 4C 46 45 0D 0D  3B 2D 2D 2D 2D 2D 2D 2D  |RHILFE..;-------|
00001880: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00001890: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000018A0: 0D 0D 54 45 58 54 20 20  20 20 20 2E 42 59 54 45  |..TEXT     .BYTE|
000018B0: 20 24 30 44 0D 20 20 20  20 20 20 20 20 20 2E 42  | $0D.         .B|
000018C0: 59 54 45 20 27 49 4E 49  54 49 41 4C 49 53 49 45  |YTE 'INITIALISIE|
000018D0: 52 55 4E 47 20 27 0D 20  20 20 20 20 20 20 20 20  |RUNG '.         |
000018E0: 2E 42 59 54 45 20 27 42  45 45 4E 44 45 54 27 2C  |.BYTE 'BEENDET',|
000018F0: 24 30 44 0D 20 20 20 20  20 20 20 20 20 2E 42 59  |$0D.         .BY|
00001900: 54 45 20 27 45 49 4E 2D  20 55 4E 44 20 41 55 53  |TE 'EIN- UND AUS|
00001910: 53 43 48 41 4C 54 45 4E  3A 20 27 0D 20 20 20 20  |SCHALTEN: '.    |
00001920: 20 20 20 20 20 2E 42 59  54 45 20 27 53 48 49 46  |     .BYTE 'SHIF|
00001930: 54 20 2B 20 43 3D 20 2B  20 43 54 52 4C 27 2C 24  |T + C= + CTRL',$|
00001940: 30 44 0D 20 20 20 20 20  20 20 20 20 2E 42 59 54  |0D.         .BYT|
00001950: 45 20 27 4E 41 43 48 20  45 49 4E 45 4D 20 52 45  |E 'NACH EINEM RE|
00001960: 53 45 54 20 4D 49 54 20  27 0D 20 20 20 20 20 20  |SET MIT '.      |
00001970: 20 20 20 2E 42 59 54 45  20 27 50 4F 4B 45 20 31  |   .BYTE 'POKE 1|
00001980: 2C 35 33 20 57 49 45 44  45 52 20 27 2C 24 30 44  |,53 WIEDER ',$0D|
00001990: 0D 20 20 20 20 20 20 20  20 20 2E 42 59 54 45 20  |.         .BYTE |
000019A0: 27 41 4B 54 49 56 49 45  52 42 41 52 21 27 2C 24  |'AKTIVIERBAR!',$|
000019B0: 30 44 0D 20 20 20 20 20  20 20 20 20 2E 42 59 54  |0D.         .BYT|
000019C0: 45 20 24 30 44 2C 24 30  30 0D 0D 2E 45 4E 44 0D  |E $0D,$00...END.|
000019D0: 0D 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 0D 0D 0D 0D 0D  |................|
000019E0: 0D                                                |.               |
.;======================================
=.; BASIC-ZEILE MIT SYS-ADRESSE.;=======
================================..      
       * = $0801 ;PROG.START..          
   .BYTE $0D,$08,$B2,$07.             .B
YTE $9E,$28,$32,$30.             .BYTE $
36,$35,$29,$00.             .BYTE $00,$0
0,$EA,$EA.             .BYTE $EA,$EA,$EA
,$EA..;=================================
======.; INITIALISIERUNG.;==============
=========================..;------------
---------------------------.; KOPIEREN D
ES BASIC AUS DEM ROM INS RAM.;----------
-----------------------------..         
    VON1 = $A000.             BIS1 = $C0
00..             LDA# <VON1.            
 STA $FA.             LDA# >VON1.       
      STA $FB.             LDA# <BIS1.  
           STA $FC.             LDA# >BI
S1.             STA $FD..             LD
Y# 0..KOP2         LDA ($FA),Y.         
    STA ($FA),Y..             INC $FA.  
           BNE KOP3.             INC $FB
..KOP3         LDX $FD.             CPX 
$FB.             BNE KOP2.             L
DX $FC.             CPX $FA.            
 BNE KOP2..;----------------------------
-----------.; KERNAL AUS DEM ROM INS RAM
.;--------------------------------------
-..             VON2 = $E000.           
  BIS2 = $0000..             LDA# <VON2.
             STA $FA.             LDA# >
VON2.             STA $FB.             L
DA# <BIS2.             STA $FC.         
    LDA# >BIS2.             STA $FD..   
          LDY# 0..KOPB         LDA ($FA)
,Y.             STA ($FA),Y..           
  INC $FA.             BNE KOPC.        
     INC $FB..KOPC         LDX $FD.     
        CPX $FB.             BNE KOPB.  
           LDX $FC.             CPX $FA.
             BNE KOPB..;----------------
-----------------------.; VERLEGEN BIS Z
IEL-1 NACH $E422.; KOPIEREN.;-----------
----------------------------..COP1      
   LDA# <VERLEGEN.             STA $FA. 
            LDA# >VERLEGEN.             
STA $FB.             LDA# $22.          
   STA $FC.             LDA# $E4.       
      STA $FD..             LDY# $00..CO
P2         LDA ($FA),Y.             STA 
($FC),Y..             INC $FC.          
   BNE COP3.             INC $FD..COP3  
       INC $FA.             BNE COP4.   
          INC $FB..COP4         LDX $FB.
             CPX# >ZIEL.             BNE
 COP2.             LDX $FA.             
CPX# <ZIEL.             BNE COP2..;-----
----------------------------------.; ZIE
L BIS HILFE-1 NACH $E460.; KOPIEREN.;---
------------------------------------..CO
PA         LDA# <ZIEL.             STA $
FA.             LDA# >ZIEL.             
STA $FB.             LDA# $60.          
   STA $FC.             LDA# $E4.       
      STA $FD..             LDY# $00..CO
PB         LDA ($FA),Y.             STA 
($FC),Y..             INC $FC.          
   BNE COPC.             INC $FD..COPC  
       INC $FA.             BNE COPD.   
          INC $FB..COPD         LDX $FB.
             CPX# >HILFE.             BN
E COPB.             LDX $FA.            
 CPX# <HILFE.             BNE COPB..;---
------------------------------------.; C
HROUT BEI $E716 AUF ERWEITERUNG.; ZEIGEN
 LASSEN   (DRUCKER-AUSGABE).;-----------
----------------------------..CHR1      
   LDA# $4C.             LDX# $60   ; JM
P $E460.             LDY# $E4.          
   STA $E716.             STX $E717.    
         STY $E718..;-------------------
--------------------.; IRQ BEI $EA31 AUF
 ERWEITERUNG ZEIGEN.; LASSEN  (TASTEN-AB
FRAGE).;--------------------------------
-------..IRQ1.             LDX# $25     
; JSR $E422+3.             LDY# $E4..   
          STX $EA32.             STY $EA
33..;-----------------------------------
----.; KONTROLLREGISTER AUF NULL SETZEN.
;---------------------------------------
..KON1         LDA# 0.             STA $
E445 ;KONTROLLE..;----------------------
-----------------.; NEUES KERNEL EINSCHA
LTEN.;----------------------------------
-----..NEU          LDA# .53.           
  STA $01..;----------------------------
-----------.; TEXT AUSGEBEN.;-----------
----------------------------..          
   LDX# $00.AUSGEBEN     LDA TEXT,X.    
         BEQ AUSGEBEN1.             JSR 
$FFD2 ;CHROUT.             INX.         
    BNE AUSGEBEN..AUSGEBEN1    RTS ;BASI
C..;====================================
===.; HAUPTROUTINEN, DIE INS KERNAL.; KO
PIERT WERDEN.;==========================
=============..;------------------------
---------------.; JMP $A644 DER AUSGABE-
ROUTINE DER EIN-.; SCHALTMELDUNG VORVERL
EGEN.;----------------------------------
-----..VERLEGEN     .BYTE $4C,$44,$A6..;
---------------------------------------.
; IRQ-ABFRAGE.;-------------------------
--------------..SPRUNG       LDX $028D..
             CPX# $07 ;SHIFT CTRL C=.   
          BNE SPRUNG1..             INC 
$D021 ;HINTERGRUND.             DEC $D02
1 ;BESTAETIGUNG..             CPX $E446 
;SPEICHER.             BEQ SPRUNG1..    
         LDA $E445 ;KONTROLLE.          
   EOR# $EA.             STA $E445 ;KONT
ROLLE..SPRUNG1      STX $E446 ;SPEICHER.
.             JMP $FFEA ;IRQ WEITER..;--
-------------------------------------..K
ONTROLLE    NOP..;----------------------
-----------------..SPEICHER     NOP..;--
-------------------------------------.; 
PROTOKOLL AUF DRUCKER.;-----------------
----------------------..ZIEL         PHA
.             LDA $E445 ;KONTROLLE.     
        BEQ ZIEL1..             TXA.    
         PHA.             TYA.          
   PHA.             LDY# $01 ;GROSS/GRAF
IK.             LDA $D018.             R
OR.             ROR.             BCC GRO
SS.             LDY# $07 ;GROSS/KLEIN..G
ROSS        LDA# $04.             LDX# $
04 ;DRUCKER.             JSR $FFBA ;SETF
LS.             LDA# $00.             JS
R $FFBD ;SETNAM.             JSR $FFC0 ;
OPEN.             BCS FEHLER ;FEHLERMELD
UNG.             LDX# 4 ;DRUCKER.       
      JSR $FFC9 ;CHKOUT.             PLA
.             TAY.             PLA.     
        TAX..             PLA.          
   JSR $FFD2 ;CHROUT.             PHA.  
           TXA.             PHA.        
     TYA.             PHA.             L
DA# 4.             JSR $FFC3 ;CLOSE.    
         LDA# $03 ;AUSGABEGERAET.       
      STA $9A ;BILDSCHIRM..FEHLER       
PLA.             TAY.             PLA.  
           TAX..ZIEL1        PLA.       
      PHA.             STA $D7.         
    JMP $E719 ;CHROUT WEITER..;---------
------------------------------..HILFE   
     NOP  ;KOPIERHILFE..;---------------
------------------------..TEXT     .BYTE
 $0D.         .BYTE 'INITIALISIERUNG '. 
        .BYTE 'BEENDET',$0D.         .BY
TE 'EIN- UND AUSSCHALTEN: '.         .BY
TE 'SHIFT + C= + CTRL',$0D.         .BYT
E 'NACH EINEM RESET MIT '.         .BYTE
 'POKE 1,53 WIEDER ',$0D.         .BYTE 
'AKTIVIERBAR!',$0D.         .BYTE $0D,$0
0...END..................
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL