SRC.HYPRA-ASS

00000000: D8 1F E6 1F 0A 00 20 2E  42 41 24 43 30 30 30 00  |...... .BA$C000.|
00000010: FD 1F 14 00 20 2E 4F 42  22 40 3A 54 45 53 54 20  |.... .OB"@:TEST |
00000020: 34 2C 50 2C 57 22 00 03  20 1E 00 3B 00 30 20 28  |4,P,W".. ..;.0 (|
00000030: 00 2E 45 51 20 56 49 44  45 4F 20 3D 20 24 30 30  |..EQ VIDEO = $00|
00000040: 46 39 20 20 3B 5A 45 49  47 45 52 20 41 55 46 20  |F9  ;ZEIGER AUF |
00000050: 56 49 44 45 4F 2D 52 41  4D 00 5D 20 32 00 2E 45  |VIDEO-RAM.] 2..E|
00000060: 51 20 43 4F 4C 4F 52 20  3D 20 24 30 30 46 42 20  |Q COLOR = $00FB |
00000070: 20 3B 5A 45 49 47 45 52  20 41 55 46 20 43 4F 4C  | ;ZEIGER AUF COL|
00000080: 4F 52 2D 52 41 4D 00 8A  20 3C 00 2E 45 51 20 42  |OR-RAM.. <..EQ B|
00000090: 54 45 58 54 20 3D 20 24  30 30 46 44 20 20 3B 5A  |TEXT = $00FD  ;Z|
000000A0: 45 49 47 45 52 20 49 4E  20 42 41 53 49 43 2D 54  |EIGER IN BASIC-T|
000000B0: 45 58 54 00 BF 20 46 00  2E 45 51 20 4C 4B 50 54  |EXT.. F..EQ LKPT|
000000C0: 52 20 3D 20 24 30 30 42  35 20 20 3B 5A 57 49 53  |R = $00B5  ;ZWIS|
000000D0: 43 48 45 4E 53 50 45 49  43 48 45 52 20 46 55 45  |CHENSPEICHER FUE|
000000E0: 52 20 4C 49 4E 4B 45 52  00 E6 20 4B 00 2E 45 51  |R LINKER.. K..EQ|
000000F0: 20 43 4C 52 43 44 20 3D  20 24 30 30 46 37 20 20  | CLRCD = $00F7  |
00000100: 3B 43 4F 4C 4F 52 2D 43  4F 44 45 2D 54 41 42 00  |;COLOR-CODE-TAB.|
00000110: 1E 21 50 00 2E 45 51 20  5A 4C 4E 47 45 20 3D 20  |.!P..EQ ZLNGE = |
00000120: 24 30 33 33 34 20 20 3B  4C 41 45 4E 47 45 20 44  |$0334  ;LAENGE D|
00000130: 45 52 20 41 4B 54 55 45  4C 4C 45 4E 20 42 41 53  |ER AKTUELLEN BAS|
00000140: 49 43 5A 45 49 4C 45 00  44 21 5A 00 2E 45 51 20  |ICZEILE.D!Z..EQ |
00000150: 52 56 53 46 47 20 3D 20  24 30 33 33 35 20 20 3B  |RVSFG = $0335  ;|
00000160: 46 4C 41 47 20 46 55 45  52 20 52 56 53 00 6C 21  |FLAG FUER RVS.l!|
00000170: 5F 00 2E 45 51 20 43 4C  52 46 47 20 3D 20 24 30  |_..EQ CLRFG = $0|
00000180: 33 33 36 20 20 3B 46 4C  41 47 20 46 55 45 52 20  |336  ;FLAG FUER |
00000190: 46 41 52 42 45 00 9A 21  61 00 2E 45 51 20 5A 4C  |FARBE..!a..EQ ZL|
000001A0: 4E 4E 52 20 3D 20 24 30  33 33 37 20 20 3B 41 4B  |NNR = $0337  ;AK|
000001B0: 54 55 45 4C 4C 45 20 5A  45 49 4C 45 4E 4E 55 4D  |TUELLE ZEILENNUM|
000001C0: 4D 45 52 00 C3 21 64 00  2E 45 51 20 5A 4C 4E 49  |MER..!d..EQ ZLNI|
000001D0: 43 20 3D 20 24 30 33 33  39 20 20 3B 5A 45 49 4C  |C = $0339  ;ZEIL|
000001E0: 45 4E 2D 49 4E 4B 52 45  4D 45 4E 54 00 C9 21 78  |EN-INKREMENT..!x|
000001F0: 00 3B 00 DF 21 82 00 20  4A 4D 50 49 4E 49 54 3B  |.;..!.. JMPINIT;|
00000200: 49 52 51 2D 49 4E 49 54  00 E5 21 87 00 3B 00 F6  |IRQ-INIT..!..;..|
00000210: 21 8B 00 51 57 45 52 54  59 20 4C 44 59 23 30 00  |!..QWERTY LDY#0.|
00000220: 04 22 8C 00 20 53 54 59  56 49 44 45 4F 00 12 22  |.".. STYVIDEO.."|
00000230: 96 00 20 53 54 59 43 4F  4C 4F 52 00 20 22 A0 00  |.. STYCOLOR. "..|
00000240: 20 53 54 59 5A 4C 4E 47  45 00 32 22 A1 00 20 4C  | STYZLNGE.2".. L|
00000250: 44 41 23 3C 28 43 43 54  41 42 29 00 40 22 A2 00  |DA#<(CCTAB).@"..|
00000260: 20 53 54 41 43 4C 52 43  44 00 52 22 A3 00 20 4C  | STACLRCD.R".. L|
00000270: 44 41 23 3E 28 43 43 54  41 42 29 00 62 22 A4 00  |DA#>(CCTAB).b"..|
00000280: 20 53 54 41 43 4C 52 43  44 2B 31 00 6F 22 AA 00  | STACLRCD+1.o"..|
00000290: 20 4C 44 58 23 24 30 34  00 7F 22 B4 00 20 53 54  | LDX#$04..".. ST|
000002A0: 58 56 49 44 45 4F 2B 31  00 8C 22 BE 00 20 4C 44  |XVIDEO+1..".. LD|
000002B0: 58 23 24 44 38 00 A9 22  C8 00 20 53 54 58 43 4F  |X#$D8..".. STXCO|
000002C0: 4C 4F 52 2B 31 3B 5A 45  49 47 45 52 20 49 4E 49  |LOR+1;ZEIGER INI|
000002D0: 54 2E 00 AF 22 CD 00 3B  00 BA 22 D2 00 20 4C 44  |T..."..;..".. LD|
000002E0: 58 23 30 00 C8 22 DC 00  20 53 54 58 5A 4C 4E 4E  |X#0..".. STXZLNN|
000002F0: 52 00 D3 22 E6 00 20 4C  44 58 23 30 00 F6 22 F0  |R..".. LDX#0..".|
00000300: 00 20 53 54 58 5A 4C 4E  4E 52 2B 31 3B 45 52 53  |. STXZLNNR+1;ERS|
00000310: 54 45 20 5A 45 49 4C 45  4E 4E 55 4D 4D 45 52 00  |TE ZEILENNUMMER.|
00000320: FC 22 F5 00 3B 00 07 23  FA 00 20 4C 44 58 23 31  |."..;..#.. LDX#1|
00000330: 00 26 23 04 01 20 53 54  58 5A 4C 4E 49 43 3B 5A  |.&#.. STXZLNIC;Z|
00000340: 45 49 4C 45 4E 2D 49 4E  4B 52 45 4D 45 4E 54 00  |EILEN-INKREMENT.|
00000350: 2C 23 09 01 3B 00 3A 23  0E 01 20 53 54 59 52 56  |,#..;.:#.. STYRV|
00000360: 53 46 47 00 4C 23 18 01  20 4C 44 41 28 43 4F 4C  |SFG.L#.. LDA(COL|
00000370: 4F 52 29 2C 59 00 59 23  22 01 20 41 4E 44 23 24  |OR),Y.Y#". AND#$|
00000380: 30 46 00 62 23 2C 01 20  54 41 58 00 6B 23 36 01  |0F.b#,. TAX.k#6.|
00000390: 20 49 4E 58 00 90 23 40  01 20 53 54 58 43 4C 52  | INX..#@. STXCLR|
000003A0: 46 47 3B 52 56 53 46 47  20 55 4E 44 20 43 4C 52  |FG;RVSFG UND CLR|
000003B0: 46 47 20 53 45 54 5A 45  4E 00 96 23 45 01 3B 00  |FG SETZEN..#E.;.|
000003C0: A3 23 4A 01 20 4C 44 58  23 24 30 38 00 B3 23 54  |.#J. LDX#$08..#T|
000003D0: 01 20 53 54 58 42 54 45  58 54 2B 31 00 C0 23 5E  |. STXBTEXT+1..#^|
000003E0: 01 20 4C 44 58 23 24 30  31 00 E2 23 68 01 20 53  |. LDX#$01..#h. S|
000003F0: 54 58 42 54 45 58 54 3B  5A 45 49 47 45 52 20 49  |TXBTEXT;ZEIGER I|
00000400: 4E 20 42 41 53 49 43 54  45 58 54 00 E8 23 6D 01  |N BASICTEXT..#m.|
00000410: 3B 00 F6 23 72 01 20 4A  4D 50 53 54 41 52 54 00  |;..#r. JMPSTART.|
00000420: FC 23 7C 01 3B 00 02 24  86 01 3B 00 08 24 90 01  |.#|.;..$..;..$..|
00000430: 3B 00 1C 24 92 01 49 4E  43 42 54 32 20 49 4E 43  |;..$..INCBT2 INC|
00000440: 5A 4C 4E 47 45 00 33 24  95 01 49 4E 43 42 54 20  |ZLNGE.3$..INCBT |
00000450: 53 54 41 28 42 54 45 58  54 29 2C 59 00 47 24 9A  |STA(BTEXT),Y.G$.|
00000460: 01 49 4E 43 42 54 33 20  49 4E 43 42 54 45 58 54  |.INCBT3 INCBTEXT|
00000470: 00 6F 24 A4 01 20 42 4E  45 52 54 53 3B 42 59 54  |.o$.. BNERTS;BYT|
00000480: 45 20 49 4E 20 42 41 53  49 43 54 45 58 54 20 53  |E IN BASICTEXT S|
00000490: 43 48 52 45 49 42 45 4E  00 93 24 AE 01 20 49 4E  |CHREIBEN..$.. IN|
000004A0: 43 42 54 45 58 54 2B 31  3B 55 4E 44 20 5A 45 49  |CBTEXT+1;UND ZEI|
000004B0: 47 45 52 20 45 52 48 4F  45 48 45 4E 00 9F 24 B8  |GER ERHOEHEN..$.|
000004C0: 01 52 54 53 20 52 54 53  00 A5 24 BD 01 3B 00 CB  |.RTS RTS..$..;..|
000004D0: 24 BE 01 3B 20 54 41 42  45 4C 4C 45 20 46 55 45  |$..; TABELLE FUE|
000004E0: 52 20 46 41 52 42 2D 53  54 45 55 45 52 5A 45 49  |R FARB-STEUERZEI|
000004F0: 43 48 45 4E 00 D1 24 C2  01 3B 00 19 25 C3 01 43  |CHEN..$..;..%..C|
00000500: 43 54 41 42 20 2E 42 59  31 34 34 2C 35 2C 32 38  |CTAB .BY144,5,28|
00000510: 2C 31 35 39 2C 31 35 36  2C 33 30 2C 33 31 2C 31  |,159,156,30,31,1|
00000520: 35 38 2C 31 32 39 2C 31  34 39 2C 31 35 30 2C 31  |58,129,149,150,1|
00000530: 35 31 2C 31 35 32 2C 31  35 33 2C 31 35 34 2C 31  |51,152,153,154,1|
00000540: 35 35 00 1F 25 CC 01 3B  00 32 25 F4 01 53 54 41  |55..%..;.2%..STA|
00000550: 52 54 20 4C 44 41 42 54  45 58 54 00 40 25 FE 01  |RT LDABTEXT.@%..|
00000560: 20 53 54 41 4C 4B 50 54  52 00 50 25 08 02 20 4C  | STALKPTR.P%.. L|
00000570: 44 41 42 54 45 58 54 2B  31 00 60 25 12 02 20 53  |DABTEXT+1.`%.. S|
00000580: 54 41 4C 4B 50 54 52 2B  31 00 6F 25 1C 02 20 4A  |TALKPTR+1.o%.. J|
00000590: 53 52 49 4E 43 42 54 33  00 9B 25 26 02 20 4A 53  |SRINCBT3..%&. JS|
000005A0: 52 49 4E 43 42 54 33 3B  42 54 2D 5A 45 49 47 45  |RINCBT3;BT-ZEIGE|
000005B0: 52 20 46 55 45 52 20 4C  49 4E 4B 45 52 20 52 45  |R FUER LINKER RE|
000005C0: 54 54 45 4E 00 A1 25 30  02 3B 00 AF 25 3A 02 20  |TTEN..%0.;..%:. |
000005D0: 4C 44 41 5A 4C 4E 4E 52  00 BD 25 4E 02 20 4A 53  |LDAZLNNR..%N. JS|
000005E0: 52 49 4E 43 42 54 00 CD  25 58 02 20 4C 44 41 5A  |RINCBT..%X. LDAZ|
000005F0: 4C 4E 4E 52 2B 31 00 EF  25 67 02 20 4A 53 52 49  |LNNR+1..%g. JSRI|
00000600: 4E 43 42 54 3B 5A 45 49  4C 45 4E 4E 55 4D 4D 45  |NCBT;ZEILENNUMME|
00000610: 52 20 53 45 54 5A 45 4E  00 F5 25 69 02 3B 00 03  |R SETZEN..%i.;..|
00000620: 26 6C 02 20 4C 44 41 5A  4C 4E 4E 52 00 0C 26 76  |&l. LDAZLNNR..&v|
00000630: 02 20 43 4C 43 00 1A 26  80 02 20 41 44 43 5A 4C  |. CLC..&.. ADCZL|
00000640: 4E 49 43 00 28 26 85 02  20 53 54 41 5A 4C 4E 4E  |NIC.(&.. STAZLNN|
00000650: 52 00 33 26 8A 02 20 42  43 43 58 58 00 5F 26 94  |R.3&.. BCCXX._&.|
00000660: 02 20 49 4E 43 5A 4C 4E  4E 52 2B 31 3B 5A 45 49  |. INCZLNNR+1;ZEI|
00000670: 4C 45 4E 4E 55 4D 4D 45  52 20 49 4E 4B 52 45 4D  |LENNUMMER INKREM|
00000680: 45 4E 54 49 45 52 45 4E  00 65 26 99 02 3B 00 74  |ENTIEREN.e&..;.t|
00000690: 26 9E 02 58 58 20 4C 44  41 23 31 35 33 00 8F 26  |&..XX LDA#153..&|
000006A0: B2 02 20 4A 53 52 49 4E  43 42 54 3B 50 52 49 4E  |.. JSRINCBT;PRIN|
000006B0: 54 2D 54 4F 43 4B 45 4E  00 95 26 B7 02 3B 00 A1  |T-TOCKEN..&..;..|
000006C0: 26 BC 02 20 4C 44 41 23  33 34 00 C2 26 D0 02 20  |&.. LDA#34..&.. |
000006D0: 4A 53 52 49 4E 43 42 54  3B 41 4E 46 55 45 48 52  |JSRINCBT;ANFUEHR|
000006E0: 55 4E 47 53 53 54 52 49  43 48 45 00 C8 26 D5 02  |UNGSSTRICHE..&..|
000006F0: 3B 00 E0 26 DA 02 53 54  41 52 54 32 20 4C 44 41  |;..&..START2 LDA|
00000700: 28 56 49 44 45 4F 29 2C  59 00 0A 27 E4 02 20 42  |(VIDEO),Y..'.. B|
00000710: 4D 49 52 45 56 45 52 53  3B 4E 41 45 43 48 53 54  |MIREVERS;NAECHST|
00000720: 45 53 20 5A 45 49 43 48  45 4E 20 52 45 56 45 52  |ES ZEICHEN REVER|
00000730: 53 20 3F 00 1E 27 EE 02  20 4C 44 41 52 56 53 46  |S ?..'.. LDARVSF|
00000740: 47 3B 4E 45 49 4E 21 00  2F 27 F8 02 20 42 45 51  |G;NEIN!./'.. BEQ|
00000750: 46 41 52 42 54 45 53 54  00 3C 27 02 03 20 4C 44  |FARBTEST.<'.. LD|
00000760: 41 23 31 34 36 00 51 27  16 03 20 4A 53 52 49 4E  |A#146.Q'.. JSRIN|
00000770: 43 42 54 3B 52 56 53 4F  46 46 00 5F 27 1B 03 20  |CBT;RVSOFF._'.. |
00000780: 49 4E 43 52 56 53 46 47  00 68 27 20 03 20 43 4C  |INCRVSFG.h' . CL|
00000790: 43 00 79 27 2A 03 20 42  43 43 46 41 52 42 54 45  |C.y'*. BCCFARBTE|
000007A0: 53 54 00 94 27 34 03 52  45 56 45 52 53 20 4C 44  |ST..'4.REVERS LD|
000007B0: 41 52 56 53 46 47 3B 52  45 56 45 52 53 00 A5 27  |ARVSFG;REVERS..'|
000007C0: 3E 03 20 42 4D 49 46 41  52 42 54 45 53 54 00 B7  |>. BMIFARBTEST..|
000007D0: 27 48 03 20 4C 44 41 23  31 38 3B 52 56 53 4F 4E  |'H. LDA#18;RVSON|
000007E0: 00 C5 27 5C 03 20 4A 53  52 49 4E 43 42 54 00 D3  |..'\. JSRINCBT..|
000007F0: 27 61 03 20 44 45 43 52  56 53 46 47 00 D9 27 62  |'a. DECRVSFG..'b|
00000800: 03 3B 00 F3 27 66 03 46  41 52 42 54 45 53 54 20  |.;..'f.FARBTEST |
00000810: 4C 44 41 28 43 4F 4C 4F  52 29 2C 59 00 FF 27 70  |LDA(COLOR),Y..'p|
00000820: 03 20 41 4E 44 23 31 35  00 19 28 7A 03 20 43 4D  |. AND#15..(z. CM|
00000830: 50 43 4C 52 46 47 3B 4E  45 55 45 20 46 41 52 42  |PCLRFG;NEUE FARB|
00000840: 45 3F 00 2E 28 84 03 20  42 45 51 5A 45 49 43 48  |E?..(.. BEQZEICH|
00000850: 45 4E 3B 4E 45 49 4E 00  3C 28 89 03 20 53 54 41  |EN;NEIN.<(.. STA|
00000860: 43 4C 52 46 47 00 49 28  8E 03 20 54 41 59 3B 4A  |CLRFG.I(.. TAY;J|
00000870: 41 21 00 5B 28 98 03 20  4C 44 41 28 43 4C 52 43  |A!.[(.. LDA(CLRC|
00000880: 44 29 2C 59 00 66 28 A2  03 20 4C 44 59 23 30 00  |D),Y.f(.. LDY#0.|
00000890: 8E 28 B6 03 20 4A 53 52  49 4E 43 42 54 3B 46 41  |.(.. JSRINCBT;FA|
000008A0: 52 42 43 4F 44 45 20 48  4F 4C 45 4E 20 55 4E 44  |RBCODE HOLEN UND|
000008B0: 20 53 45 54 5A 45 4E 00  94 28 BB 03 3B 00 AD 28  | SETZEN..(..;..(|
000008C0: C0 03 5A 45 49 43 48 45  4E 20 4C 44 41 28 56 49  |..ZEICHEN LDA(VI|
000008D0: 44 45 4F 29 2C 59 00 BA  28 CA 03 20 41 4E 44 23  |DEO),Y..(.. AND#|
000008E0: 24 37 46 00 C6 28 D4 03  20 43 4D 50 23 33 32 00  |$7F..(.. CMP#32.|
000008F0: D1 28 DE 03 20 42 43 53  57 31 00 DD 28 E8 03 20  |.(.. BCSW1..(.. |
00000900: 4F 52 41 23 36 34 00 F2  28 F2 03 20 42 43 43 50  |ORA#64..(.. BCCP|
00000910: 52 55 45 46 3B 55 4E 42  45 44 2E 00 00 29 FC 03  |RUEF;UNBED...)..|
00000920: 57 31 20 43 4D 50 23 36  34 00 0B 29 06 04 20 42  |W1 CMP#64..).. B|
00000930: 43 53 57 32 00 20 29 10  04 20 42 43 43 50 52 55  |CSW2. ).. BCCPRU|
00000940: 45 46 3B 55 4E 42 45 44  2E 00 2E 29 1A 04 57 32  |EF;UNBED...)..W2|
00000950: 20 43 4D 50 23 39 36 00  39 29 24 04 20 42 43 53  | CMP#96.9)$. BCS|
00000960: 57 37 00 45 29 2E 04 20  4F 52 41 23 33 32 00 5A  |W7.E).. ORA#32.Z|
00000970: 29 38 04 20 42 43 43 50  52 55 45 46 3B 55 4E 42  |)8. BCCPRUEF;UNB|
00000980: 45 44 2E 00 65 29 42 04  57 37 20 43 4C 43 00 89  |ED..e)B.W7 CLC..|
00000990: 29 47 04 20 41 44 43 23  36 34 3B 42 49 4C 44 53  |)G. ADC#64;BILDS|
000009A0: 43 48 49 52 4D 43 4F 44  45 20 5A 55 20 41 53 43  |CHIRMCODE ZU ASC|
000009B0: 49 49 00 8F 29 4C 04 3B  00 A3 29 4D 04 50 52 55  |II..)L.;..)M.PRU|
000009C0: 45 46 20 4A 53 52 49 4E  43 42 54 32 00 B1 29 4E  |EF JSRINCBT2..)N|
000009D0: 04 20 49 4E 43 56 49 44  45 4F 00 BC 29 4F 04 20  |. INCVIDEO..)O. |
000009E0: 42 4E 45 57 34 00 CC 29  50 04 20 49 4E 43 56 49  |BNEW4..)P. INCVI|
000009F0: 44 45 4F 2B 31 00 DC 29  51 04 57 34 20 49 4E 43  |DEO+1..)Q.W4 INC|
00000A00: 43 4F 4C 4F 52 00 E7 29  52 04 20 42 4E 45 57 35  |COLOR..)R. BNEW5|
00000A10: 00 07 2A 53 04 20 49 4E  43 43 4F 4C 4F 52 2B 31  |..*S. INCCOLOR+1|
00000A20: 3B 5A 45 49 47 45 52 20  45 52 48 4F 45 48 45 4E  |;ZEIGER ERHOEHEN|
00000A30: 00 17 2A 54 04 57 35 20  4C 44 41 56 49 44 45 4F  |..*T.W5 LDAVIDEO|
00000A40: 00 24 2A 55 04 20 43 4D  50 23 24 45 37 00 2F 2A  |.$*U. CMP#$E7./*|
00000A50: 56 04 20 42 4E 45 57 36  00 3F 2A 57 04 20 4C 44  |V. BNEW6.?*W. LD|
00000A60: 41 56 49 44 45 4F 2B 31  00 4C 2A 58 04 20 43 4D  |AVIDEO+1.L*X. CM|
00000A70: 50 23 24 30 37 00 68 2A  59 04 20 42 4E 45 57 36  |P#$07.h*Y. BNEW6|
00000A80: 3B 41 55 46 20 45 4E 44  45 20 50 52 55 45 46 45  |;AUF ENDE PRUEFE|
00000A90: 4E 00 79 2A 5A 04 20 4C  44 41 23 31 39 3B 45 4E  |N.y*Z. LDA#19;EN|
00000AA0: 44 45 00 9A 2A 5B 04 20  4A 53 52 49 4E 43 42 54  |DE..*[. JSRINCBT|
00000AB0: 3B 48 4F 4D 45 2D 53 54  45 55 45 52 5A 45 49 43  |;HOME-STEUERZEIC|
00000AC0: 48 45 4E 00 A3 2A 6E 04  20 54 59 41 00 C4 2A 70  |HEN..*n. TYA..*p|
00000AD0: 04 20 4A 53 52 49 4E 43  42 54 3B 4E 55 4C 4C 42  |. JSRINCBT;NULLB|
00000AE0: 59 54 45 20 46 55 45 52  20 45 4E 44 45 00 D2 2A  |YTE FUER ENDE..*|
00000AF0: 71 04 20 4C 44 41 42 54  45 58 54 00 E4 2A 72 04  |q. LDABTEXT..*r.|
00000B00: 20 53 54 41 28 4C 4B 50  54 52 29 2C 59 00 F4 2A  | STA(LKPTR),Y..*|
00000B10: 73 04 20 4C 44 41 42 54  45 58 54 2B 31 00 FD 2A  |s. LDABTEXT+1..*|
00000B20: 74 04 20 49 4E 59 00 1D  2B 75 04 20 53 54 41 28  |t. INY..+u. STA(|
00000B30: 4C 4B 50 54 52 29 2C 59  3B 4C 49 4E 4B 45 52 20  |LKPTR),Y;LINKER |
00000B40: 53 45 54 5A 45 4E 00 26  2B 76 04 20 44 45 59 00  |SETZEN.&+v. DEY.|
00000B50: 2F 2B 77 04 20 54 59 41  00 3D 2B 79 04 20 4A 53  |/+w. TYA.=+y. JS|
00000B60: 52 49 4E 43 42 54 00 68  2B 7B 04 20 4A 53 52 49  |RINCBT.h+{. JSRI|
00000B70: 4E 43 42 54 3B 5A 57 45  49 20 4E 55 4C 4C 42 59  |NCBT;ZWEI NULLBY|
00000B80: 54 45 53 20 46 55 45 52  20 50 52 47 2D 45 4E 44  |TES FUER PRG-END|
00000B90: 45 00 76 2B 7C 04 20 4C  44 41 42 54 45 58 54 00  |E.v+|. LDABTEXT.|
00000BA0: 82 2B 7D 04 20 53 54 41  24 32 44 00 8E 2B 7E 04  |.+}. STA$2D..+~.|
00000BB0: 20 53 54 41 24 32 46 00  9A 2B 7F 04 20 53 54 41  | STA$2F..+.. STA|
00000BC0: 24 33 31 00 AA 2B 80 04  20 4C 44 41 42 54 45 58  |$31..+.. LDABTEX|
00000BD0: 54 2B 31 00 B6 2B 81 04  20 53 54 41 24 32 45 00  |T+1..+.. STA$2E.|
00000BE0: C2 2B 82 04 20 53 54 41  24 33 30 00 E1 2B 83 04  |.+.. STA$30..+..|
00000BF0: 20 53 54 41 24 33 32 3B  5A 45 49 47 45 52 20 49  | STA$32;ZEIGER I|
00000C00: 4E 20 5A 45 52 4F 50 41  47 45 00 F8 2B 8E 04 20  |N ZEROPAGE..+.. |
00000C10: 52 54 53 3B 49 52 51 2D  41 42 53 43 48 4C 55 53  |RTS;IRQ-ABSCHLUS|
00000C20: 53 00 08 2C 8F 04 57 36  20 4C 44 41 5A 4C 4E 47  |S..,..W6 LDAZLNG|
00000C30: 45 00 14 2C 90 04 20 43  4D 50 23 34 30 00 2C 2C  |E..,.. CMP#40.,,|
00000C40: 91 04 20 42 43 53 57 33  3B 5A 45 49 4C 45 20 56  |.. BCSW3;ZEILE V|
00000C50: 4F 4C 4C 20 3F 00 4F 2C  92 04 20 4A 4D 50 53 54  |OLL ?.O,.. JMPST|
00000C60: 41 52 54 32 3B 57 45 4E  4E 20 4E 45 49 4E 2C 5A  |ART2;WENN NEIN,Z|
00000C70: 55 4D 20 53 54 41 52 54  00 68 2C 93 04 57 33 20  |UM START.h,..W3 |
00000C80: 4C 44 41 23 33 34 3B 4E  45 55 45 20 5A 45 49 4C  |LDA#34;NEUE ZEIL|
00000C90: 45 00 89 2C 95 04 20 4A  53 52 49 4E 43 42 54 3B  |E..,.. JSRINCBT;|
00000CA0: 41 4E 46 55 45 48 52 55  4E 47 53 53 54 52 49 43  |ANFUEHRUNGSSTRIC|
00000CB0: 48 45 00 95 2C 96 04 20  4C 44 41 23 35 39 00 AD  |HE..,.. LDA#59..|
00000CC0: 2C 98 04 20 4A 53 52 49  4E 43 42 54 3B 53 45 4D  |,.. JSRINCBT;SEM|
00000CD0: 49 4B 4F 4C 4F 4E 00 B6  2C D8 04 20 54 59 41 00  |IKOLON..,.. TYA.|
00000CE0: DA 2C E4 04 20 53 54 41  5A 4C 4E 47 45 3B 5A 45  |.,.. STAZLNGE;ZE|
00000CF0: 49 4C 45 4E 4C 41 45 4E  47 45 20 41 55 46 20 4E  |ILENLAENGE AUF N|
00000D00: 55 4C 4C 00 E8 2C E7 04  20 4A 53 52 49 4E 43 42  |ULL..,.. JSRINCB|
00000D10: 54 00 F6 2C EC 04 20 4C  44 41 42 54 45 58 54 00  |T..,.. LDABTEXT.|
00000D20: 08 2D F6 04 20 53 54 41  28 4C 4B 50 54 52 29 2C  |.-.. STA(LKPTR),|
00000D30: 59 00 18 2D 00 05 20 4C  44 41 42 54 45 58 54 2B  |Y..-.. LDABTEXT+|
00000D40: 31 00 21 2D 0A 05 20 49  4E 59 00 33 2D 14 05 20  |1.!-.. INY.3-.. |
00000D50: 53 54 41 28 4C 4B 50 54  52 29 2C 59 00 4A 2D 1E  |STA(LKPTR),Y.J-.|
00000D60: 05 20 44 45 59 3B 4C 49  4E 4B 45 52 20 53 45 54  |. DEY;LINKER SET|
00000D70: 5A 45 4E 00 67 2D 32 05  20 4A 4D 50 53 54 41 52  |ZEN.g-2. JMPSTAR|
00000D80: 54 3B 4E 41 45 43 48 53  54 45 20 5A 45 49 4C 45  |T;NAECHSTE ZEILE|
00000D90: 00 6D 2D 3C 05 3B 00 7A  2D 41 05 49 4E 49 54 20  |.m-<.;.z-A.INIT |
00000DA0: 53 45 49 00 8A 2D 46 05  20 4C 44 58 23 3C 28 49  |SEI..-F. LDX#<(I|
00000DB0: 52 51 29 00 9A 2D 50 05  20 4C 44 59 23 3E 28 49  |RQ)..-P. LDY#>(I|
00000DC0: 52 51 29 00 A8 2D 5A 05  20 53 54 58 24 30 33 31  |RQ)..-Z. STX$031|
00000DD0: 34 00 B6 2D 64 05 20 53  54 59 24 30 33 31 35 00  |4..-d. STY$0315.|
00000DE0: BF 2D 6E 05 20 43 4C 49  00 DF 2D 78 05 20 52 54  |.-n. CLI..-x. RT|
00000DF0: 53 3B 49 52 51 2D 56 45  4B 54 4F 52 45 4E 20 56  |S;IRQ-VEKTOREN V|
00000E00: 45 52 42 49 45 47 45 4E  00 EE 2D 82 05 49 52 51  |ERBIEGEN..-..IRQ|
00000E10: 20 4C 44 41 32 30 33 00  F9 2D 8C 05 20 43 4D 50  | LDA203..-.. CMP|
00000E20: 23 34 00 13 2E 96 05 20  42 45 51 4A 41 3B 46 31  |#4..... BEQJA;F1|
00000E30: 20 47 45 44 52 55 45 43  4B 54 20 3F 00 3B 2E A0  | GEDRUECKT ?.;..|
00000E40: 05 20 4A 4D 50 24 45 41  33 31 3B 57 45 4E 4E 20  |. JMP$EA31;WENN |
00000E50: 4E 45 49 4E 20 3D 3E 20  41 4C 54 45 20 52 4F 55  |NEIN => ALTE ROU|
00000E60: 54 49 4E 45 00 52 2E AA  05 4A 41 20 4C 44 58 23  |TINE.R...JA LDX#|
00000E70: 24 33 31 3B 57 45 4E 4E  20 4A 41 00 5F 2E B4 05  |$31;WENN JA._...|
00000E80: 20 4C 44 59 23 24 45 41  00 6D 2E BE 05 20 53 54  | LDY#$EA.m... ST|
00000E90: 58 24 30 33 31 34 00 7B  2E C8 05 20 53 54 59 24  |X$0314.{... STY$|
00000EA0: 30 33 31 35 00 A7 2E D2  05 20 4A 53 52 51 57 45  |0315..... JSRQWE|
00000EB0: 52 54 59 3B 41 4C 54 45  20 56 45 4B 54 4F 52 45  |RTY;ALTE VEKTORE|
00000EC0: 4E 20 55 4E 44 20 50 52  47 2D 41 55 46 52 55 46  |N UND PRG-AUFRUF|
00000ED0: 00 C2 2E D7 05 20 4A 4D  50 24 46 45 42 43 3B 49  |..... JMP$FEBC;I|
00000EE0: 52 51 41 42 53 43 48 4C  55 53 53 00 C8 2E DC 05  |RQABSCHLUSS.....|
00000EF0: 3B 00 CE 2E E1 05 3B 00  F2 2E E6 05 3B 20 20 20  |;.....;.....;   |
00000F00: 20 20 54 48 4F 4D 41 53  20 46 4F 45 52 53 54 45  |  THOMAS FOERSTE|
00000F10: 52 20 4A 55 4C 49 20 31  39 38 39 00 F8 2E FA 05  |R JULI 1989.....|
00000F20: 3B 00 00 2F 04 06 2E 45  4E 00 00 00              |;../...EN...    |

X..... .BA$C000..... .OB"@:TEST 4,P,W"..
 ..;.0 (..EQ VIDEO = $00F9  ;ZEIGER AUF 
VIDEO-RAM.] 2..EQ COLOR = $00FB  ;ZEIGER
 AUF COLOR-RAM.. <..EQ BTEXT = $00FD  ;Z
EIGER IN BASIC-TEXT.. F..EQ LKPTR = $00B
5  ;ZWISCHENSPEICHER FUER LINKER.. K..EQ
 CLRCD = $00F7  ;COLOR-CODE-TAB..!P..EQ 
ZLNGE = $0334  ;LAENGE DER AKTUELLEN BAS
ICZEILE.D!Z..EQ RVSFG = $0335  ;FLAG FUE
R RVS.L!_..EQ CLRFG = $0336  ;FLAG FUER 
FARBE..!A..EQ ZLNNR = $0337  ;AKTUELLE Z
EILENNUMMER.C!D..EQ ZLNIC = $0339  ;ZEIL
EN-INKREMENT.I!X.;..!.. JMPINIT;IRQ-INIT
..!..;..!..QWERTY LDY#0..".. STYVIDEO.."
.. STYCOLOR. " . STYZLNGE.2".. LDA#<(CCT
AB).@".. STACLRCD.R".. LDA#>(CCTAB).B"..
 STACLRCD+1.O".. LDX#$04.".. STXVIDEO+1
..".. LDX#$D8.."H. STXCOLOR+1;ZEIGER INI
T..."M.;.."R. LDX#0.H".. STXZLNNR.S".. L
DX#0..".. STXZLNNR+1;ERSTE ZEILENNUMMER.
."..;..#.. LDX#1.&#.. STXZLNIC;ZEILEN-IN
KREMENT.,#..;.:#.. STYRVSFG.L#.. LDA(COL
OR),Y.Y#". AND#$0F.B#,. TAX.K#6. INX..#@
. STXCLRFG;RVSFG UND CLRFG SETZEN..#E.;.
.#J. LDX#$08..#T. STXBTEXT+1..#^. LDX#$0
1..#H. STXBTEXT;ZEIGER IN BASICTEXT..#M.
;..#R. JMPSTART..#|.;..$..;..$..;..$..IN
CBT2 INCZLNGE.3$..INCBT STA(BTEXT),Y.G$.
.INCBT3 INCBTEXT.O$.. BNERTS;BYTE IN BAS
ICTEXT SCHREIBEN..$.. INCBTEXT+1;UND ZEI
GER ERHOEHEN..$..RTS RTS..$..;.K$..; TAB
ELLE FUER FARB-STEUERZEICHEN.Q$B.;..%C.C
CTAB .BY144,5,28,159,156,30,31,158,129,1
49,150,151,152,153,154,155..%L.;.2%..STA
RT LDABTEXT.@%.. STALKPTR.P%.. LDABTEXT+
1.`%.. STALKPTR+1.O%.. JSRINCBT3..%&. JS
RINCBT3;BT-ZEIGER FUER LINKER RETTEN..%0
.;..%:. LDAZLNNR..%N. JSRINCBT.M%X. LDAZ
LNNR+1..%G. JSRINCBT;ZEILENNUMMER SETZEN
..%I.;..&L. LDAZLNNR..&V. CLC..&.. ADCZL
NIC.(&.. STAZLNNR.3&.. BCCXX._&.. INCZLN
NR+1;ZEILENNUMMER INKREMENTIEREN.E&..;.T
&..XX LDA#153..&.. JSRINCBT;PRINT-TOCKEN
..&..;..&.. LDA#34.B&P. JSRINCBT;ANFUEHR
UNGSSTRICHE.H&U.;..&Z.START2 LDA(VIDEO),
Y..'.. BMIREVERS;NAECHSTES ZEICHEN REVER
S ?..'.. LDARVSFG;NEIN!./'.. BEQFARBTEST
.<'.. LDA#146.Q'.. JSRINCBT;RVSOFF._'.. 
INCRVSFG.H' . CLC.Y'*. BCCFARBTEST..'4.R
EVERS LDARVSFG;REVERS..'>. BMIFARBTEST..
'H. LDA#18;RVSON.E'\. JSRINCBT.S'A. DECR
VSFG.Y'B.;..'F.FARBTEST LDA(COLOR),Y..'P
. AND#15..(Z. CMPCLRFG;NEUE FARBE?..(.. 
BEQZEICHEN;NEIN.<(.. STACLRFG.I(.. TAY;J
A!.[(.. LDA(CLRCD),Y.F(.. LDY#0..(.. JSR
INCBT;FARBCODE HOLEN UND SETZEN..(..;..(
..ZEICHEN LDA(VIDEO),Y..(J. AND#$7F.F(T.
 CMP#32.Q(.. BCSW1..(.. ORA#64..(.. BCCP
RUEF;UNBED...)..W1 CMP#64..).. BCSW2. ).
. BCCPRUEF;UNBED...)..W2 CMP#96.9)$. BCS
W7.E).. ORA#32.Z)8. BCCPRUEF;UNBED..E)B.
W7 CLC..)G. ADC#64;BILDSCHIRMCODE ZU ASC
II..)L.;..)M.PRUEF JSRINCBT2..)N. INCVID
EO..)O. BNEW4.L)P. INCVIDEO+1..)Q.W4 INC
COLOR..)R. BNEW5..*S. INCCOLOR+1;ZEIGER 
ERHOEHEN..*T.W5 LDAVIDEO.$*U. CMP#$E7./*
V. BNEW6.?*W. LDAVIDEO+1.L*X. CMP#$07.H*
Y. BNEW6;AUF ENDE PRUEFEN.Y*Z. LDA#19;EN
DE..*[. JSRINCBT;HOME-STEUERZEICHEN..*N.
 TYA.D*P. JSRINCBT;NULLBYTE FUER ENDE.R*
Q. LDABTEXT..*R. STA(LKPTR),Y..*S. LDABT
EXT+1..*T. INY..+U. STA(LKPTR),Y;LINKER 
SETZEN.&+V. DEY./+W. TYA.=+Y. JSRINCBT.H
+{. JSRINCBT;ZWEI NULLBYTES FUER PRG-END
E.V+|. LDABTEXT..+}. STA$2D..+~. STA$2F.
.+. STA$31..+.. LDABTEXT+1..+.. STA$2E.
B+.. STA$30..+.. STA$32;ZEIGER IN ZEROPA
GE..+.. RTS;IRQ-ABSCHLUSS..,..W6 LDAZLNG
E..,.. CMP#40.,,.. BCSW3;ZEILE VOLL ?.O,
.. JMPSTART2;WENN NEIN,ZUM START.H,..W3 
LDA#34;NEUE ZEILE..,.. JSRINCBT;ANFUEHRU
NGSSTRICHE..,.. LDA#59..,.. JSRINCBT;SEM
IKOLON..,X. TYA.Z,.. STAZLNGE;ZEILENLAEN
GE AUF NULL..,.. JSRINCBT..,.. LDABTEXT.
.-.. STA(LKPTR),Y..-.. LDABTEXT+1.!-.. I
NY.3-.. STA(LKPTR),Y.J-.. DEY;LINKER SET
ZEN.G-2. JMPSTART;NAECHSTE ZEILE.M-<.;.Z
-A.INIT SEI..-F. LDX#<(IRQ)..-P. LDY#>(I
RQ)..-Z. STX$0314..-D. STY$0315..-N. CLI
..-X. RTS;IRQ-VEKTOREN VERBIEGEN..-..IRQ
 LDA203..-.. CMP#4..... BEQJA;F1 GEDRUEC
KT ?.;. . JMP$EA31;WENN NEIN => ALTE ROU
TINE.R...JA LDX#$31;WENN JA._... LDY#$EA
.M... STX$0314.{.H. STY$0315...R. JSRQWE
RTY;ALTE VEKTOREN UND PRG-AUFRUF.B.W. JM
P$FEBC;IRQABSCHLUSS.H...;.N...;.....;   
  THOMAS FOERSTER JULI 1989.....;../...E
N...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL