SC.HUEPFER V1.0

00000000: D8 1F DE 1F 64 00 3B 00  E4 1F 6E 00 3B 00 FD 1F  |....d.;...n.;...|
00000010: 78 00 3B 20 20 20 20 20  20 20 20 20 20 20 20 48  |x.;            H|
00000020: 55 45 50 46 45 52 00 03  20 82 00 3B 00 29 20 8C  |UEPFER.. ..;.) .|
00000030: 00 3B 41 53 53 45 4D 42  4C 45 52 2D 52 4F 55 54  |.;ASSEMBLER-ROUT|
00000040: 49 4E 45 4E 20 28 53 4F  55 52 43 45 2D 43 4F 44  |INEN (SOURCE-COD|
00000050: 45 29 00 2F 20 96 00 3B  00 46 20 A0 00 3B 20 47  |E)./ ..;.F ..; G|
00000060: 45 53 43 48 52 49 45 42  45 4E 20 56 4F 4E 3A 00  |ESCHRIEBEN VON:.|
00000070: 63 20 AA 00 3B 20 20 20  20 20 20 20 20 20 20 20  |c ..;           |
00000080: 20 4A 4F 43 48 45 4E 20  54 4F 50 46 00 83 20 B4  | JOCHEN TOPF.. .|
00000090: 00 3B 20 20 20 20 20 20  20 20 20 20 20 20 47 4C  |.;            GL|
000000A0: 55 45 4D 45 52 53 54 52  2E 20 33 34 00 A2 20 BE  |UEMERSTR. 34.. .|
000000B0: 00 3B 20 20 20 20 20 20  20 20 20 20 20 20 37 38  |.;            78|
000000C0: 30 30 20 46 52 45 49 42  55 52 47 00 C4 20 C8 00  |00 FREIBURG.. ..|
000000D0: 3B 20 20 20 20 20 20 20  20 20 20 20 20 54 45 4C  |;            TEL|
000000E0: 2E 3A 30 37 36 31 2D 37  30 30 37 30 31 00 CA 20  |.:0761-700701.. |
000000F0: D2 00 3B 00 D0 20 DC 00  3B 00 F0 20 E6 00 3B 20  |..;.. ..;.. ..; |
00000100: 44 49 45 20 52 4F 55 54  49 4E 45 20 5A 55 4D 20  |DIE ROUTINE ZUM |
00000110: 4C 45 53 45 4E 20 44 45  52 00 14 21 F0 00 3B 20  |LESEN DER..!..; |
00000120: 44 49 52 45 43 54 4F 52  59 20 44 45 52 20 44 49  |DIRECTORY DER DI|
00000130: 53 4B 45 54 54 45 20 53  54 41 4D 4D 54 00 37 21  |SKETTE STAMMT.7!|
00000140: FA 00 3B 20 41 55 53 20  44 45 4D 20 42 55 43 48  |..; AUS DEM BUCH|
00000150: 3A 20 27 44 41 53 20 49  4E 54 45 52 46 41 43 45  |: 'DAS INTERFACE|
00000160: 00 5A 21 04 01 3B 20 41  47 45 20 53 59 53 54 45  |.Z!..; AGE SYSTE|
00000170: 4D 48 41 4E 44 42 55 43  48 20 5A 55 4D 20 43 20  |MHANDBUCH ZUM C |
00000180: 36 34 27 00 70 21 0E 01  3B 20 56 4F 4E 20 52 41  |64'.p!..; VON RA|
00000190: 4C 50 48 20 42 41 42 45  4C 00 76 21 18 01 3B 00  |LPH BABEL.v!..;.|
000001A0: 7C 21 22 01 3B 00 9E 21  2C 01 3B 20 48 49 52 45  ||!".;..!,.; HIRE|
000001B0: 53 20 42 49 54 20 4D 41  50 20 3A 20 24 41 30 30  |S BIT MAP : $A00|
000001C0: 30 2D 24 42 46 46 46 00  C0 21 36 01 3B 20 46 41  |0-$BFFF..!6.; FA|
000001D0: 52 42 53 50 45 49 43 48  45 52 20 20 3A 20 24 38  |RBSPEICHER  : $8|
000001E0: 43 30 30 2D 24 38 46 46  46 00 C6 21 40 01 3B 00  |C00-$8FFF..!@.;.|
000001F0: D4 21 4A 01 2E 42 41 20  24 43 30 30 30 00 DA 21  |.!J..BA $C000..!|
00000200: 54 01 3B 00 F7 21 90 01  3B 20 42 45 54 52 49 45  |T.;..!..; BETRIE|
00000210: 42 53 59 53 54 45 4D 52  4F 55 54 49 4E 45 4E 3A  |BSYSTEMROUTINEN:|
00000220: 00 1D 22 9A 01 2E 45 51  20 4B 4F 4D 4D 41 3D 24  |.."...EQ KOMMA=$|
00000230: 41 45 46 44 20 3B 50 52  55 45 46 54 20 41 55 46  |AEFD ;PRUEFT AUF|
00000240: 20 4B 4F 4D 4D 41 00 43  22 A4 01 2E 45 51 20 47  | KOMMA.C"...EQ G|
00000250: 45 54 41 44 52 3D 24 42  37 46 37 20 3B 48 4F 4C  |ETADR=$B7F7 ;HOL|
00000260: 54 20 31 36 42 49 54 2D  57 45 52 54 00 69 22 AE  |T 16BIT-WERT.i".|
00000270: 01 2E 45 51 20 47 45 54  42 59 54 45 3D 34 37 30  |..EQ GETBYTE=470|
00000280: 30 36 20 3B 48 4F 4C 54  20 38 42 49 54 2D 57 45  |06 ;HOLT 8BIT-WE|
00000290: 52 54 00 8F 22 B8 01 2E  45 51 20 49 4C 4C 51 55  |RT.."...EQ ILLQU|
000002A0: 41 3D 24 42 32 34 38 20  3B 49 4C 4C 2E 51 55 41  |A=$B248 ;ILL.QUA|
000002B0: 4E 54 2E 20 45 52 52 2E  00 B1 22 C2 01 2E 45 51  |NT. ERR..."...EQ|
000002C0: 20 4C 4F 41 44 3D 36 35  34 39 33 20 3B 20 4C 4F  | LOAD=65493 ; LO|
000002D0: 41 44 2D 52 4F 55 54 49  4E 45 00 D3 22 CC 01 2E  |AD-ROUTINE.."...|
000002E0: 45 51 20 53 41 56 45 3D  36 35 34 39 36 20 3B 20  |EQ SAVE=65496 ; |
000002F0: 53 41 56 45 2D 52 4F 55  54 49 4E 45 00 F7 22 D6  |SAVE-ROUTINE..".|
00000300: 01 2E 45 51 20 43 4C 4F  53 45 3D 36 35 34 37 35  |..EQ CLOSE=65475|
00000310: 20 3B 20 43 4C 4F 53 45  2D 52 4F 55 54 49 4E 45  | ; CLOSE-ROUTINE|
00000320: 00 0C 23 E0 01 2E 45 51  20 53 45 43 4F 4E 44 3D  |..#...EQ SECOND=|
00000330: 36 35 34 32 37 00 1F 23  EA 01 2E 45 51 20 54 4B  |65427..#...EQ TK|
00000340: 53 41 3D 36 35 34 33 30  00 33 23 F4 01 2E 45 51  |SA=65430.3#...EQ|
00000350: 20 41 43 50 54 52 3D 36  35 34 34 35 00 47 23 FE  | ACPTR=65445.G#.|
00000360: 01 2E 45 51 20 43 49 4F  55 54 3D 36 35 34 34 38  |..EQ CIOUT=65448|
00000370: 00 5B 23 08 02 2E 45 51  20 55 4E 54 4C 4B 3D 36  |.[#...EQ UNTLK=6|
00000380: 35 34 35 31 00 6F 23 12  02 2E 45 51 20 55 4E 4C  |5451.o#...EQ UNL|
00000390: 53 4E 3D 36 35 34 35 34  00 84 23 1C 02 2E 45 51  |SN=65454..#...EQ|
000003A0: 20 4C 49 53 54 45 4E 3D  36 35 34 35 37 00 A8 23  | LISTEN=65457..#|
000003B0: 26 02 2E 45 51 20 54 41  4C 4B 3D 36 35 34 36 30  |&..EQ TALK=65460|
000003C0: 20 20 20 3B 52 4F 55 54  49 4E 45 4E 20 46 55 45  |   ;ROUTINEN FUE|
000003D0: 52 00 C9 23 30 02 2E 45  51 20 43 48 52 4F 55 54  |R..#0..EQ CHROUT|
000003E0: 3D 36 35 34 39 30 20 3B  20 44 49 52 45 43 54 4F  |=65490 ; DIRECTO|
000003F0: 52 59 00 EE 23 3A 02 2E  45 51 20 47 45 54 50 41  |RY..#:..EQ GETPA|
00000400: 52 3D 24 45 31 44 34 20  3B 48 4F 4C 54 20 50 41  |R=$E1D4 ;HOLT PA|
00000410: 52 41 4D 45 54 45 52 00  03 24 44 02 2E 45 51 20  |RAMETER..$D..EQ |
00000420: 46 52 4D 45 56 4C 3D 24  41 44 39 45 00 18 24 4E  |FRMEVL=$AD9E..$N|
00000430: 02 2E 45 51 20 46 52 45  53 54 52 3D 24 42 36 41  |..EQ FRESTR=$B6A|
00000440: 33 00 2D 24 58 02 2E 45  51 20 43 52 55 4E 43 48  |3.-$X..EQ CRUNCH|
00000450: 3D 24 41 35 37 39 00 33  24 B2 02 3B 00 4C 24 BC  |=$A579.3$..;.L$.|
00000460: 02 3B 20 53 4F 4E 53 54  49 47 45 20 41 44 52 45  |.; SONSTIGE ADRE|
00000470: 53 53 45 4E 3A 00 70 24  C6 02 2E 45 51 20 53 54  |SSEN:.p$...EQ ST|
00000480: 41 54 55 53 3D 31 34 34  20 3B 20 46 55 45 52 20  |ATUS=144 ; FUER |
00000490: 44 49 52 45 43 54 4F 52  59 00 95 24 D0 02 2E 45  |DIRECTORY..$...E|
000004A0: 51 20 4C 41 55 46 3D 32  35 31 20 3B 20 5A 41 45  |Q LAUF=251 ; ZAE|
000004B0: 48 4C 45 52 20 46 55 45  52 20 46 49 4C 4C 00 BB  |HLER FUER FILL..|
000004C0: 24 DA 02 2E 45 51 20 53  55 4D 4D 45 3D 32 35 31  |$...EQ SUMME=251|
000004D0: 20 3B 53 50 45 49 43 48  45 52 20 46 55 45 52 20  | ;SPEICHER FUER |
000004E0: 50 4C 4F 54 00 E1 24 E4  02 2E 45 51 20 41 4E 46  |PLOT..$...EQ ANF|
000004F0: 41 4E 47 3D 32 35 31 20  3B 50 4F 49 4E 54 45 52  |ANG=251 ;POINTER|
00000500: 20 46 55 45 52 20 53 41  56 45 00 00 25 EE 02 2E  | FUER SAVE..%...|
00000510: 45 51 20 48 49 4C 46 3D  32 20 3B 20 48 49 4C 46  |EQ HILF=2 ; HILF|
00000520: 53 53 50 45 49 43 48 45  52 00 20 25 F8 02 2E 45  |SSPEICHER. %...E|
00000530: 51 20 41 44 52 45 53 53  45 3D 32 35 33 20 3B 20  |Q ADRESSE=253 ; |
00000540: 46 55 45 52 20 46 55 4E  43 00 3F 25 02 03 2E 45  |FUER FUNC.?%...E|
00000550: 51 20 46 41 52 42 45 3D  32 35 35 20 3B 20 50 55  |Q FARBE=255 ; PU|
00000560: 4E 4B 54 46 41 52 42 45  00 65 25 0C 03 2E 45 51  |NKTFARBE.e%...EQ|
00000570: 20 4C 4F 57 58 3D 32 35  33 20 20 3B 20 58 2D 4B  | LOWX=253  ; X-K|
00000580: 4F 4F 52 44 49 4E 41 54  45 20 46 55 45 52 00 88  |OORDINATE FUER..|
00000590: 25 16 03 2E 45 51 20 48  49 47 48 58 3D 32 35 34  |%...EQ HIGHX=254|
000005A0: 20 3B 20 20 20 20 20 20  20 20 20 20 20 50 4C 4F  | ;           PLO|
000005B0: 54 00 9D 25 20 03 3B 20  53 50 52 55 4E 47 54 41  |T..% .; SPRUNGTA|
000005C0: 42 45 4C 4C 45 3A 00 B3  25 2A 03 20 4A 4D 50 48  |BELLE:..%*. JMPH|
000005D0: 49 52 45 53 4F 4E 3B 34  39 31 35 32 00 CA 25 34  |IRESON;49152..%4|
000005E0: 03 20 4A 4D 50 48 49 52  45 53 4F 46 46 3B 34 39  |. JMPHIRESOFF;49|
000005F0: 31 35 35 00 DF 25 3E 03  20 4A 4D 50 48 43 4C 45  |155..%>. JMPHCLE|
00000600: 41 52 3B 34 39 31 35 38  00 F6 25 48 03 20 4A 4D  |AR;49158..%H. JM|
00000610: 50 48 49 43 4F 4C 4F 55  52 3B 34 39 31 36 31 00  |PHICOLOUR;49161.|
00000620: 0D 26 52 03 20 4A 4D 50  4D 55 43 4F 4C 4F 55 52  |.&R. JMPMUCOLOUR|
00000630: 3B 34 39 31 36 34 00 25  26 5C 03 20 4A 4D 50 48  |;49164.%&\. JMPH|
00000640: 49 52 45 53 4C 4F 41 44  3B 34 39 31 36 37 00 3D  |IRESLOAD;49167.=|
00000650: 26 66 03 20 4A 4D 50 48  49 52 45 53 53 41 56 45  |&f. JMPHIRESSAVE|
00000660: 3B 34 39 31 37 30 00 55  26 70 03 20 4A 4D 50 44  |;49170.U&p. JMPD|
00000670: 49 52 45 43 54 4F 52 59  3B 34 39 31 37 33 00 69  |IRECTORY;49173.i|
00000680: 26 7A 03 20 4A 4D 50 46  55 4E 43 58 3B 34 39 31  |&z. JMPFUNCX;491|
00000690: 37 36 00 7D 26 84 03 20  4A 4D 50 46 55 4E 43 59  |76.}&.. JMPFUNCY|
000006A0: 3B 34 39 31 37 39 00 92  26 8E 03 20 4A 4D 50 48  |;49179..&.. JMPH|
000006B0: 49 50 4C 4F 54 3B 34 39  31 38 32 00 A7 26 98 03  |IPLOT;49182..&..|
000006C0: 20 4A 4D 50 4D 55 50 4C  4F 54 3B 34 39 31 38 35  | JMPMUPLOT;49185|
000006D0: 00 AD 26 E8 03 3B 00 CE  26 F2 03 3B 20 53 43 48  |..&..;..&..; SCH|
000006E0: 41 4C 54 45 54 20 48 49  52 45 53 20 42 5A 57 2E  |ALTET HIRES BZW.|
000006F0: 20 4D 55 4C 54 49 2D 00  E9 26 FC 03 3B 20 43 4F  | MULTI-..&..; CO|
00000700: 4C 4F 55 52 42 49 4C 44  53 43 48 49 52 4D 20 45  |LOURBILDSCHIRM E|
00000710: 49 4E 00 EF 26 06 04 3B  00 04 27 10 04 48 49 52  |IN..&..;..'..HIR|
00000720: 45 53 4F 4E 20 4C 44 41  35 36 35 37 36 00 11 27  |ESON LDA56576..'|
00000730: 1A 04 20 41 4E 44 23 32  35 33 00 1F 27 24 04 20  |.. AND#253..'$. |
00000740: 53 54 41 35 36 35 37 36  00 2B 27 2E 04 20 4C 44  |STA56576.+'.. LD|
00000750: 41 23 35 37 00 39 27 38  04 20 53 54 41 35 33 32  |A#57.9'8. STA532|
00000760: 37 32 00 47 27 42 04 20  4C 44 41 35 33 32 36 35  |72.G'B. LDA53265|
00000770: 00 53 27 4C 04 20 4F 52  41 23 33 32 00 61 27 56  |.S'L. ORA#32.a'V|
00000780: 04 20 53 54 41 35 33 32  36 35 00 6F 27 60 04 20  |. STA53265.o'`. |
00000790: 4A 53 52 4B 4F 4D 4D 41  00 7F 27 6A 04 20 4A 53  |JSRKOMMA..'j. JS|
000007A0: 52 47 45 54 42 59 54 45  00 88 27 74 04 20 54 58  |RGETBYTE..'t. TX|
000007B0: 41 00 97 27 7E 04 20 42  45 51 45 4E 44 48 4F 4E  |A..'~. BEQENDHON|
000007C0: 00 A5 27 88 04 20 4C 44  41 35 33 32 37 30 00 B1  |..'.. LDA53270..|
000007D0: 27 92 04 20 4F 52 41 23  31 36 00 BF 27 9C 04 20  |'.. ORA#16..'.. |
000007E0: 53 54 41 35 33 32 37 30  00 CE 27 A6 04 45 4E 44  |STA53270..'..END|
000007F0: 48 4F 4E 20 52 54 53 00  D4 27 B0 04 3B 00 F5 27  |HON RTS..'..;..'|
00000800: BA 04 3B 20 53 43 48 41  4C 54 45 54 20 48 49 52  |..; SCHALTET HIR|
00000810: 45 53 20 42 5A 57 2E 20  4D 55 4C 54 49 2D 00 10  |ES BZW. MULTI-..|
00000820: 28 C4 04 3B 20 43 4F 4C  4F 55 52 42 49 4C 44 53  |(..; COLOURBILDS|
00000830: 43 48 49 52 4D 20 41 55  53 00 16 28 CE 04 3B 00  |CHIRM AUS..(..;.|
00000840: 2C 28 D8 04 48 49 52 45  53 4F 46 46 20 4C 44 41  |,(..HIRESOFF LDA|
00000850: 35 36 35 37 36 00 37 28  E2 04 20 4F 52 41 23 32  |56576.7(.. ORA#2|
00000860: 00 45 28 EC 04 20 53 54  41 35 36 35 37 36 00 51  |.E(.. STA56576.Q|
00000870: 28 F6 04 20 4C 44 41 23  32 31 00 5F 28 00 05 20  |(.. LDA#21._(.. |
00000880: 53 54 41 35 33 32 37 32  00 6D 28 0A 05 20 4C 44  |STA53272.m(.. LD|
00000890: 41 35 33 32 36 35 00 7A  28 14 05 20 41 4E 44 23  |A53265.z(.. AND#|
000008A0: 32 32 33 00 88 28 1E 05  20 53 54 41 35 33 32 36  |223..(.. STA5326|
000008B0: 35 00 96 28 28 05 20 4C  44 41 35 33 32 37 30 00  |5..((. LDA53270.|
000008C0: A3 28 32 05 20 41 4E 44  23 32 33 39 00 B1 28 3C  |.(2. AND#239..(<|
000008D0: 05 20 53 54 41 35 33 32  37 30 00 BA 28 46 05 20  |. STA53270..(F. |
000008E0: 52 54 53 00 C0 28 78 05  3B 00 E1 28 82 05 3B 20  |RTS..(x.;..(..; |
000008F0: 46 55 45 4C 4C 54 20 53  50 45 49 43 48 45 52 42  |FUELLT SPEICHERB|
00000900: 45 52 45 49 43 48 20 4D  49 54 00 F8 28 8C 05 3B  |EREICH MIT..(..;|
00000910: 20 44 45 4D 20 57 45 52  54 20 49 4D 20 41 4B 4B  | DEM WERT IM AKK|
00000920: 55 00 17 29 96 05 3B 20  41 4E 46 4E 47 53 50 41  |U..)..; ANFNGSPA|
00000930: 47 45 20 49 4D 20 59 2D  52 45 47 49 53 54 45 52  |GE IM Y-REGISTER|
00000940: 00 3C 29 A0 05 3B 20 41  4E 5A 41 48 4C 20 44 45  |.<)..; ANZAHL DE|
00000950: 52 20 50 41 47 45 53 20  49 4D 20 58 2D 52 45 47  |R PAGES IM X-REG|
00000960: 49 53 54 45 52 00 42 29  AA 05 3B 00 55 29 B4 05  |ISTER.B)..;.U)..|
00000970: 46 49 4C 4C 20 53 54 59  4C 41 55 46 2B 31 00 60  |FILL STYLAUF+1.`|
00000980: 29 BE 05 20 4C 44 59 23  30 00 6D 29 C8 05 20 53  |).. LDY#0.m).. S|
00000990: 54 59 4C 41 55 46 00 86  29 D2 05 4C 4F 4F 50 46  |TYLAUF..)..LOOPF|
000009A0: 49 4C 4C 20 53 54 41 28  4C 41 55 46 29 2C 59 00  |ILL STA(LAUF),Y.|
000009B0: 8F 29 DC 05 20 49 4E 59  00 A0 29 E6 05 20 42 4E  |.).. INY..).. BN|
000009C0: 45 4C 4F 4F 50 46 49 4C  4C 00 AF 29 F0 05 20 49  |ELOOPFILL..).. I|
000009D0: 4E 43 4C 41 55 46 2B 31  00 B8 29 FA 05 20 44 45  |NCLAUF+1..).. DE|
000009E0: 58 00 C9 29 04 06 20 42  4E 45 4C 4F 4F 50 46 49  |X..).. BNELOOPFI|
000009F0: 4C 4C 00 D2 29 0E 06 20  52 54 53 00 D8 29 40 06  |LL..).. RTS..)@.|
00000A00: 3B 00 EE 29 4A 06 3B 20  4C 4F 45 53 43 48 54 20  |;..)J.; LOESCHT |
00000A10: 42 49 54 2D 4D 41 50 00  F4 29 54 06 3B 00 05 2A  |BIT-MAP..)T.;..*|
00000A20: 5E 06 48 43 4C 45 41 52  20 4C 44 41 23 30 00 12  |^.HCLEAR LDA#0..|
00000A30: 2A 68 06 20 4C 44 59 23  31 36 30 00 1E 2A 72 06  |*h. LDY#160..*r.|
00000A40: 20 4C 44 58 23 33 32 00  2B 2A 7C 06 20 4A 4D 50  | LDX#32.+*|. JMP|
00000A50: 46 49 4C 4C 00 31 2A A4  06 3B 00 4F 2A AE 06 3B  |FILL.1*..;.O*..;|
00000A60: 20 46 55 45 4C 4C 54 20  46 41 52 42 53 50 45 49  | FUELLT FARBSPEI|
00000A70: 43 48 45 52 20 4D 49 54  00 61 2A B8 06 3B 20 48  |CHER MIT.a*..; H|
00000A80: 49 52 45 53 46 41 52 42  45 4E 00 67 2A C2 06 3B  |IRESFARBEN.g*..;|
00000A90: 00 7D 2A CC 06 48 49 43  4F 4C 4F 55 52 20 4A 53  |.}*..HICOLOUR JS|
00000AA0: 52 4B 4F 4D 4D 41 00 8D  2A D6 06 20 4A 53 52 47  |RKOMMA..*.. JSRG|
00000AB0: 45 54 42 59 54 45 00 96  2A E0 06 20 54 58 41 00  |ETBYTE..*.. TXA.|
00000AC0: 9F 2A EA 06 20 41 53 4C  00 A8 2A F4 06 20 41 53  |.*.. ASL..*.. AS|
00000AD0: 4C 00 B1 2A FE 06 20 41  53 4C 00 BA 2A 08 07 20  |L..*.. ASL..*.. |
00000AE0: 41 53 4C 00 C7 2A 12 07  20 53 54 41 48 49 4C 46  |ASL..*.. STAHILF|
00000AF0: 00 D5 2A 1C 07 20 4A 53  52 4B 4F 4D 4D 41 00 E5  |..*.. JSRKOMMA..|
00000B00: 2A 26 07 20 4A 53 52 47  45 54 42 59 54 45 00 EE  |*&. JSRGETBYTE..|
00000B10: 2A 30 07 20 54 58 41 00  FA 2A 3A 07 20 41 4E 44  |*0. TXA..*:. AND|
00000B20: 23 31 35 00 07 2B 44 07  20 4F 52 41 48 49 4C 46  |#15..+D. ORAHILF|
00000B30: 00 14 2B 4E 07 20 4C 44  59 23 31 34 30 00 1F 2B  |..+N. LDY#140..+|
00000B40: 58 07 20 4C 44 58 23 34  00 2C 2B 62 07 20 4A 4D  |X. LDX#4.,+b. JM|
00000B50: 50 46 49 4C 4C 00 32 2B  6C 07 3B 00 50 2B 76 07  |PFILL.2+l.;.P+v.|
00000B60: 3B 20 46 55 45 4C 4C 54  20 46 41 52 42 53 50 45  |; FUELLT FARBSPE|
00000B70: 49 43 48 45 52 20 4D 49  54 00 68 2B 80 07 3B 20  |ICHER MIT.h+..; |
00000B80: 4D 55 4C 54 49 43 4F 4C  4F 55 52 46 41 52 42 45  |MULTICOLOURFARBE|
00000B90: 4E 00 6E 2B 8A 07 3B 00  84 2B 94 07 4D 55 43 4F  |N.n+..;..+..MUCO|
00000BA0: 4C 4F 55 52 20 4A 53 52  4B 4F 4D 4D 41 00 94 2B  |LOUR JSRKOMMA..+|
00000BB0: 9E 07 20 4A 53 52 47 45  54 42 59 54 45 00 A2 2B  |.. JSRGETBYTE..+|
00000BC0: A8 07 20 53 54 58 35 33  32 38 31 00 B3 2B B2 07  |.. STX53281..+..|
00000BD0: 20 4A 53 52 48 49 43 4F  4C 4F 55 52 00 C1 2B BC  | JSRHICOLOUR..+.|
00000BE0: 07 20 4A 53 52 4B 4F 4D  4D 41 00 D1 2B C6 07 20  |. JSRKOMMA..+.. |
00000BF0: 4A 53 52 47 45 54 42 59  54 45 00 DA 2B D0 07 20  |JSRGETBYTE..+.. |
00000C00: 54 58 41 00 E7 2B DA 07  20 4C 44 59 23 32 31 36  |TXA..+.. LDY#216|
00000C10: 00 F2 2B E4 07 20 4C 44  58 23 34 00 FF 2B EE 07  |..+.. LDX#4..+..|
00000C20: 20 4A 4D 50 46 49 4C 4C  00 05 2C 34 08 3B 00 1D  | JMPFILL..,4.;..|
00000C30: 2C 3E 08 3B 20 53 50 45  49 43 48 45 52 54 20 42  |,>.; SPEICHERT B|
00000C40: 49 54 2D 4D 41 50 00 23  2C 48 08 3B 00 3A 2C 52  |IT-MAP.#,H.;.:,R|
00000C50: 08 48 49 52 45 53 53 41  56 45 20 4A 53 52 4B 4F  |.HIRESSAVE JSRKO|
00000C60: 4D 4D 41 00 49 2C 5C 08  20 4A 53 52 47 45 54 50  |MMA.I,\. JSRGETP|
00000C70: 41 52 00 55 2C 66 08 20  4C 44 41 23 35 34 00 5F  |AR.U,f. LDA#54._|
00000C80: 2C 70 08 20 53 54 41 31  00 6B 2C 7A 08 20 4C 44  |,p. STA1.k,z. LD|
00000C90: 58 23 36 34 00 78 2C 84  08 20 4C 44 59 23 31 39  |X#64.x,.. LDY#19|
00000CA0: 31 00 83 2C 8E 08 20 4C  44 41 23 30 00 92 2C 98  |1..,.. LDA#0..,.|
00000CB0: 08 20 53 54 41 41 4E 46  41 4E 47 00 9F 2C A2 08  |. STAANFANG..,..|
00000CC0: 20 4C 44 41 23 31 36 30  00 B0 2C AC 08 20 53 54  | LDA#160..,.. ST|
00000CD0: 41 41 4E 46 41 4E 47 2B  31 00 C0 2C B6 08 20 4C  |AANFANG+1..,.. L|
00000CE0: 44 41 23 41 4E 46 41 4E  47 00 CD 2C C0 08 20 4A  |DA#ANFANG..,.. J|
00000CF0: 53 52 53 41 56 45 00 D9  2C CA 08 20 4C 44 41 23  |SRSAVE..,.. LDA#|
00000D00: 35 35 00 E3 2C D4 08 20  53 54 41 31 00 F1 2C DE  |55..,.. STA1..,.|
00000D10: 08 20 4A 4D 50 43 4C 4F  53 45 00 F7 2C FC 08 3B  |. JMPCLOSE..,..;|
00000D20: 00 0B 2D 06 09 3B 20 42  49 54 2D 4D 41 50 20 4C  |..-..; BIT-MAP L|
00000D30: 41 44 45 4E 00 11 2D 10  09 3B 00 28 2D 1A 09 48  |ADEN..-..;.(-..H|
00000D40: 49 52 45 53 4C 4F 41 44  20 4A 53 52 4B 4F 4D 4D  |IRESLOAD JSRKOMM|
00000D50: 41 00 37 2D 24 09 20 4A  53 52 47 45 54 50 41 52  |A.7-$. JSRGETPAR|
00000D60: 00 42 2D 2E 09 20 4C 44  41 23 30 00 4B 2D 38 09  |.B-.. LDA#0.K-8.|
00000D70: 20 54 41 58 00 58 2D 42  09 20 4C 44 59 23 31 36  | TAX.X-B. LDY#16|
00000D80: 30 00 65 2D 4C 09 20 4A  53 52 4C 4F 41 44 00 73  |0.e-L. JSRLOAD.s|
00000D90: 2D 56 09 20 4A 4D 50 43  4C 4F 53 45 00 79 2D 60  |-V. JMPCLOSE.y-`|
00000DA0: 09 3B 00 98 2D 6A 09 3B  20 4C 49 45 53 54 20 44  |.;..-j.; LIEST D|
00000DB0: 49 52 45 43 54 4F 52 59  20 56 4F 4E 20 44 49 53  |IRECTORY VON DIS|
00000DC0: 4B 00 9E 2D 74 09 3B 00  B2 2D 7E 09 44 49 52 45  |K..-t.;..-~.DIRE|
00000DD0: 43 54 4F 52 59 20 4C 44  41 23 30 00 C1 2D 88 09  |CTORY LDA#0..-..|
00000DE0: 20 53 54 41 53 54 41 54  55 53 00 CC 2D 92 09 20  | STASTATUS..-.. |
00000DF0: 4C 44 41 23 38 00 DB 2D  9C 09 20 4A 53 52 4C 49  |LDA#8..-.. JSRLI|
00000E00: 53 54 45 4E 00 E8 2D A6  09 20 4C 44 41 23 32 34  |STEN..-.. LDA#24|
00000E10: 30 00 F7 2D B0 09 20 4A  53 52 53 45 43 4F 4E 44  |0..-.. JSRSECOND|
00000E20: 00 04 2E BA 09 20 4C 44  41 23 22 24 22 00 12 2E  |..... LDA#"$"...|
00000E30: C4 09 20 4A 53 52 43 49  4F 55 54 00 20 2E CE 09  |.. JSRCIOUT. ...|
00000E40: 20 4A 53 52 55 4E 4C 53  4E 00 2B 2E D8 09 20 4C  | JSRUNLSN.+... L|
00000E50: 44 41 23 38 00 38 2E E2  09 20 4A 53 52 54 41 4C  |DA#8.8... JSRTAL|
00000E60: 4B 00 44 2E EC 09 20 4C  44 41 23 39 36 00 51 2E  |K.D... LDA#96.Q.|
00000E70: F6 09 20 4A 53 52 54 4B  53 41 00 5C 2E 00 0A 20  |.. JSRTKSA.\... |
00000E80: 4C 44 58 23 35 00 67 2E  0A 0A 20 2E 42 59 34 34  |LDX#5.g... .BY44|
00000E90: 00 77 2E 14 0A 53 54 41  52 54 20 4C 44 58 23 33  |.w...START LDX#3|
00000EA0: 00 8E 2E 1E 0A 4C 4F 4F  50 31 44 49 52 20 4A 53  |.....LOOP1DIR JS|
00000EB0: 52 47 45 54 42 59 54 00  97 2E 28 0A 20 44 45 58  |RGETBYT...(. DEX|
00000EC0: 00 A8 2E 32 0A 20 42 4E  45 4C 4F 4F 50 31 44 49  |...2. BNELOOP1DI|
00000ED0: 52 00 B1 2E 3C 0A 20 54  41 58 00 BF 2E 46 0A 20  |R...<. TAX...F. |
00000EE0: 4A 53 52 34 33 37 33 35  00 CE 2E 50 0A 20 4A 53  |JSR43735...P. JS|
00000EF0: 52 47 45 54 42 59 54 00  DC 2E 5A 0A 20 4A 53 52  |RGETBYT...Z. JSR|
00000F00: 34 38 35 38 39 00 F3 2E  64 0A 4C 4F 4F 50 32 44  |48589...d.LOOP2D|
00000F10: 49 52 20 4A 53 52 47 45  54 42 59 54 00 FC 2E 6E  |IR JSRGETBYT...n|
00000F20: 0A 20 54 41 58 00 0A 2F  78 0A 20 42 45 51 53 54  |. TAX../x. BEQST|
00000F30: 41 52 54 00 19 2F 82 0A  20 4A 53 52 43 48 52 4F  |ART../.. JSRCHRO|
00000F40: 55 54 00 2A 2F 8C 0A 20  42 4E 45 4C 4F 4F 50 32  |UT.*/.. BNELOOP2|
00000F50: 44 49 52 00 3E 2F 96 0A  47 45 54 42 59 54 20 4A  |DIR.>/..GETBYT J|
00000F60: 53 52 41 43 50 54 52 00  4D 2F A0 0A 20 4C 44 59  |SRACPTR.M/.. LDY|
00000F70: 53 54 41 54 55 53 00 5A  2F AA 0A 20 42 4E 45 53  |STATUS.Z/.. BNES|
00000F80: 54 4F 50 00 63 2F B4 0A  20 52 54 53 00 70 2F BE  |TOP.c/.. RTS.p/.|
00000F90: 0A 53 54 4F 50 20 50 4C  41 00 79 2F C8 0A 20 50  |.STOP PLA.y/.. P|
00000FA0: 4C 41 00 87 2F D2 0A 20  4A 53 52 55 4E 54 4C 4B  |LA../.. JSRUNTLK|
00000FB0: 00 92 2F DC 0A 20 4C 44  41 23 38 00 A1 2F E6 0A  |../.. LDA#8../..|
00000FC0: 20 4A 53 52 4C 49 53 54  45 4E 00 AE 2F F0 0A 20  | JSRLISTEN../.. |
00000FD0: 4C 44 41 23 32 32 34 00  BD 2F FA 0A 20 4A 53 52  |LDA#224../.. JSR|
00000FE0: 53 45 43 4F 4E 44 00 CB  2F 04 0B 20 4A 4D 50 55  |SECOND../.. JMPU|
00000FF0: 4E 4C 53 4E 00 D1 2F 54  0B 3B 00 DC 2F 5E 0B 3B  |NLSN../T.;../^.;|
00001000: 20 46 55 4E 43 00 E2 2F  68 0B 3B 00 05 30 72 0B  | FUNC../h.;..0r.|
00001010: 3B 20 57 41 4E 44 45 4C  54 20 44 49 45 20 41 55  |; WANDELT DIE AU|
00001020: 53 20 42 41 53 49 43 20  55 45 42 45 52 2D 00 28  |S BASIC UEBER-.(|
00001030: 30 7C 0B 3B 20 47 45 42  45 4E 45 20 46 55 4E 4B  |0|.; GEBENE FUNK|
00001040: 54 49 4F 4E 20 49 4E 20  54 4F 4B 45 4E 53 20 55  |TION IN TOKENS U|
00001050: 4D 00 4D 30 86 0B 3B 20  55 4E 44 20 53 43 48 52  |M.M0..; UND SCHR|
00001060: 45 49 42 54 20 53 49 45  20 49 4E 20 44 45 4E 20  |EIBT SIE IN DEN |
00001070: 42 41 53 49 43 2D 00 5C  30 90 0B 3B 20 53 50 45  |BASIC-.\0..; SPE|
00001080: 49 43 48 45 52 00 62 30  9A 0B 3B 00 73 30 A4 0B  |ICHER.b0..;.s0..|
00001090: 46 55 4E 43 58 20 4C 44  41 23 32 38 00 83 30 AE  |FUNCX LDA#28..0.|
000010A0: 0B 20 53 54 41 41 44 52  45 53 53 45 00 8E 30 B8  |. STAADRESSE..0.|
000010B0: 0B 20 4C 44 41 23 38 00  A0 30 C2 0B 20 53 54 41  |. LDA#8..0.. STA|
000010C0: 41 44 52 45 53 53 45 2B  31 00 AD 30 CC 0B 20 4A  |ADRESSE+1..0.. J|
000010D0: 4D 50 46 55 4E 43 00 BF  30 D6 0B 46 55 4E 43 59  |MPFUNC..0..FUNCY|
000010E0: 20 4C 44 41 23 31 30 35  00 CF 30 E0 0B 20 53 54  | LDA#105..0.. ST|
000010F0: 41 41 44 52 45 53 53 45  00 DA 30 EA 0B 20 4C 44  |AADRESSE..0.. LD|
00001100: 41 23 38 00 EC 30 F4 0B  20 53 54 41 41 44 52 45  |A#8..0.. STAADRE|
00001110: 53 53 45 2B 31 00 F2 30  FE 0B 3B 00 04 31 08 0C  |SSE+1..0..;..1..|
00001120: 46 55 4E 43 20 4A 53 52  4B 4F 4D 4D 41 00 13 31  |FUNC JSRKOMMA..1|
00001130: 12 0C 20 4A 53 52 46 52  4D 45 56 4C 00 22 31 1C  |.. JSRFRMEVL."1.|
00001140: 0C 20 4A 53 52 46 52 45  53 54 52 00 2D 31 26 0C  |. JSRFRESTR.-1&.|
00001150: 20 4C 44 59 23 30 00 39  31 30 0C 20 53 54 41 24  | LDY#0.910. STA$|
00001160: 35 37 00 52 31 3A 0C 4C  4F 4F 50 31 46 55 4E 43  |57.R1:.LOOP1FUNC|
00001170: 20 4C 44 41 28 24 32 32  29 2C 59 00 61 31 44 0C  | LDA($22),Y.a1D.|
00001180: 20 53 54 41 24 32 30 30  2C 59 00 6A 31 4E 0C 20  | STA$200,Y.j1N. |
00001190: 49 4E 59 00 76 31 58 0C  20 43 50 59 24 35 37 00  |INY.v1X. CPY$57.|
000011A0: 88 31 62 0C 20 42 4E 45  4C 4F 4F 50 31 46 55 4E  |.1b. BNELOOP1FUN|
000011B0: 43 00 93 31 6C 0C 20 4C  44 41 23 30 00 A2 31 76  |C..1l. LDA#0..1v|
000011C0: 0C 20 53 54 41 24 32 30  30 2C 59 00 AE 31 80 0C  |. STA$200,Y..1..|
000011D0: 20 4C 44 41 24 37 41 00  BD 31 8A 0C 20 53 54 41  | LDA$7A..1.. STA|
000011E0: 41 4E 46 41 4E 47 00 C9  31 94 0C 20 4C 44 41 24  |ANFANG..1.. LDA$|
000011F0: 37 42 00 DA 31 9E 0C 20  53 54 41 41 4E 46 41 4E  |7B..1.. STAANFAN|
00001200: 47 2B 31 00 E7 31 A8 0C  20 4C 44 41 23 24 46 46  |G+1..1.. LDA#$FF|
00001210: 00 F3 31 B2 0C 20 53 54  41 24 37 41 00 FE 31 BC  |..1.. STA$7A..1.|
00001220: 0C 20 4C 44 41 23 31 00  0A 32 C6 0C 20 53 54 41  |. LDA#1..2.. STA|
00001230: 24 37 42 00 16 32 D0 0C  20 4A 53 52 24 37 33 00  |$7B..2.. JSR$73.|
00001240: 25 32 DA 0C 20 4A 53 52  43 52 55 4E 43 48 00 30  |%2.. JSRCRUNCH.0|
00001250: 32 E4 0C 20 53 54 59 24  42 00 3F 32 EE 0C 20 4C  |2.. STY$B.?2.. L|
00001260: 44 41 41 4E 46 41 4E 47  00 4B 32 F8 0C 20 53 54  |DAANFANG.K2.. ST|
00001270: 41 24 37 41 00 5C 32 02  0D 20 4C 44 41 41 4E 46  |A$7A.\2.. LDAANF|
00001280: 41 4E 47 2B 31 00 68 32  0C 0D 20 53 54 41 24 37  |ANG+1.h2.. STA$7|
00001290: 42 00 74 32 16 0D 20 4C  44 41 23 35 38 00 7D 32  |B.t2.. LDA#58.}2|
000012A0: 20 0D 20 54 41 59 00 8F  32 2A 0D 4C 4F 4F 50 32  | . TAY..2*.LOOP2|
000012B0: 46 55 4E 43 20 44 45 59  00 A3 32 34 0D 20 53 54  |FUNC DEY..24. ST|
000012C0: 41 28 41 44 52 45 53 53  45 29 2C 59 00 B5 32 3E  |A(ADRESSE),Y..2>|
000012D0: 0D 20 42 4E 45 4C 4F 4F  50 32 46 55 4E 43 00 CD  |. BNELOOP2FUNC..|
000012E0: 32 48 0D 4C 4F 4F 50 33  46 55 4E 43 20 4C 44 41  |2H.LOOP3FUNC LDA|
000012F0: 24 32 30 30 2C 59 00 DD  32 52 0D 20 42 45 51 45  |$200,Y..2R. BEQE|
00001300: 4E 44 46 55 4E 43 00 F1  32 5C 0D 20 53 54 41 28  |NDFUNC..2\. STA(|
00001310: 41 44 52 45 53 53 45 29  2C 59 00 FA 32 66 0D 20  |ADRESSE),Y..2f. |
00001320: 49 4E 59 00 0C 33 70 0D  20 4A 4D 50 4C 4F 4F 50  |INY..3p. JMPLOOP|
00001330: 33 46 55 4E 43 00 1C 33  7A 0D 45 4E 44 46 55 4E  |3FUNC..3z.ENDFUN|
00001340: 43 20 52 54 53 00 22 33  AC 0D 3B 00 45 33 B6 0D  |C RTS."3..;.E3..|
00001350: 3B 20 5A 45 49 43 48 4E  45 54 20 45 49 4E 45 4E  |; ZEICHNET EINEN|
00001360: 20 4D 55 4C 54 49 4F 43  4F 4C 4F 55 52 2D 00 51  | MULTIOCOLOUR-.Q|
00001370: 33 C0 0D 3B 20 50 55 4E  4B 54 00 57 33 CA 0D 3B  |3..; PUNKT.W3..;|
00001380: 00 6B 33 D4 0D 4D 55 50  4C 4F 54 20 4A 53 52 4B  |.k3..MUPLOT JSRK|
00001390: 4F 4D 4D 41 00 7B 33 DE  0D 20 4A 53 52 47 45 54  |OMMA.{3.. JSRGET|
000013A0: 42 59 54 45 00 84 33 E8  0D 20 54 58 41 00 8F 33  |BYTE..3.. TXA..3|
000013B0: F2 0D 20 41 4E 44 23 33  00 9D 33 FC 0D 20 53 54  |.. AND#3..3.. ST|
000013C0: 41 46 41 52 42 45 00 AB  33 06 0E 20 4A 53 52 4B  |AFARBE..3.. JSRK|
000013D0: 4F 4D 4D 41 00 BB 33 10  0E 20 4A 53 52 47 45 54  |OMMA..3.. JSRGET|
000013E0: 42 59 54 45 00 C8 33 1A  0E 20 43 50 58 23 31 36  |BYTE..3.. CPX#16|
000013F0: 30 00 D6 33 24 0E 20 42  43 53 45 52 52 4F 52 00  |0..3$. BCSERROR.|
00001400: DF 33 2E 0E 20 54 58 41  00 EA 33 38 0E 20 4C 44  |.3.. TXA..38. LD|
00001410: 58 23 30 00 F8 33 42 0E  20 53 54 58 48 49 47 48  |X#0..3B. STXHIGH|
00001420: 58 00 01 34 4C 0E 20 41  53 4C 00 0F 34 56 0E 20  |X..4L. ASL..4V. |
00001430: 52 4F 4C 48 49 47 48 58  00 1C 34 60 0E 20 53 54  |ROLHIGHX..4`. ST|
00001440: 41 4C 4F 57 58 00 29 34  6A 0E 20 4A 53 52 50 4C  |ALOWX.)4j. JSRPL|
00001450: 4F 54 00 3A 34 74 0E 20  4A 4D 50 46 41 52 42 50  |OT.:4t. JMPFARBP|
00001460: 4C 4F 54 00 40 34 D8 0E  3B 00 62 34 E2 0E 3B 20  |LOT.@4..;.b4..; |
00001470: 53 43 48 41 4C 54 45 54  20 41 55 46 20 54 45 58  |SCHALTET AUF TEX|
00001480: 54 42 49 4C 44 53 43 48  49 52 4D 00 83 34 EC 0E  |TBILDSCHIRM..4..|
00001490: 3B 20 55 4E 44 20 47 49  42 54 20 46 45 48 4C 45  |; UND GIBT FEHLE|
000014A0: 52 4D 45 4C 44 55 4E 47  20 41 55 53 00 89 34 F6  |RMELDUNG AUS..4.|
000014B0: 0E 3B 00 9F 34 00 0F 45  52 52 4F 52 20 4A 53 52  |.;..4..ERROR JSR|
000014C0: 48 49 52 45 53 4F 46 46  00 AE 34 0A 0F 20 4A 4D  |HIRESOFF..4.. JM|
000014D0: 50 49 4C 4C 51 55 41 00  B4 34 3C 0F 3B 00 CF 34  |PILLQUA..4<.;..4|
000014E0: 46 0F 3B 20 5A 45 49 43  48 4E 45 54 20 48 49 52  |F.; ZEICHNET HIR|
000014F0: 45 53 2D 50 55 4E 4B 54  00 D5 34 50 0F 3B 00 E9  |ES-PUNKT..4P.;..|
00001500: 34 5A 0F 48 49 50 4C 4F  54 20 4A 53 52 4B 4F 4D  |4Z.HIPLOT JSRKOM|
00001510: 4D 41 00 F7 34 64 0F 20  4A 53 52 24 41 44 38 41  |MA..4d. JSR$AD8A|
00001520: 00 06 35 6E 0F 20 4A 53  52 47 45 54 41 44 52 00  |..5n. JSRGETADR.|
00001530: 12 35 78 0F 20 4C 44 41  24 31 35 00 1D 35 82 0F  |.5x. LDA$15..5..|
00001540: 20 43 4D 50 23 32 00 2B  35 8C 0F 20 42 43 53 45  | CMP#2.+5.. BCSE|
00001550: 52 52 4F 52 00 37 35 96  0F 20 4C 44 58 24 31 34  |RROR.75.. LDX$14|
00001560: 00 42 35 A0 0F 20 43 4D  50 23 30 00 50 35 AA 0F  |.B5.. CMP#0.P5..|
00001570: 20 42 45 51 50 4C 4F 54  32 00 5C 35 B4 0F 20 43  | BEQPLOT2.\5.. C|
00001580: 50 58 23 36 34 00 6A 35  BE 0F 20 42 43 53 45 52  |PX#64.j5.. BCSER|
00001590: 52 4F 52 00 7D 35 C8 0F  50 4C 4F 54 32 20 53 54  |ROR.}5..PLOT2 ST|
000015A0: 41 48 49 47 48 58 00 8A  35 D2 0F 20 53 54 58 4C  |AHIGHX..5.. STXL|
000015B0: 4F 57 58 00 97 35 DC 0F  20 4A 53 52 50 4C 4F 54  |OWX..5.. JSRPLOT|
000015C0: 00 A9 35 E6 0F 20 4C 44  41 54 41 42 45 4C 4C 45  |..5.. LDATABELLE|
000015D0: 2C 58 00 B9 35 F0 0F 20  4A 4D 50 50 4C 4F 54 54  |,X..5.. JMPPLOTT|
000015E0: 45 4E 00 DD 35 FA 0F 54  41 42 45 4C 4C 45 20 2E  |EN..5..TABELLE .|
000015F0: 42 59 31 32 38 2C 36 34  2C 33 32 2C 31 36 2C 38  |BY128,64,32,16,8|
00001600: 2C 34 2C 32 2C 31 00 E3  35 04 10 3B 00 07 36 0E  |,4,2,1..5..;..6.|
00001610: 10 3B 20 48 4F 4C 54 20  59 2D 4B 4F 4F 52 44 49  |.; HOLT Y-KOORDI|
00001620: 4E 41 54 45 20 55 4E 44  20 52 45 43 48 4E 45 54  |NATE UND RECHNET|
00001630: 00 19 36 18 10 3B 20 41  44 52 45 53 53 45 20 41  |..6..; ADRESSE A|
00001640: 55 53 00 1F 36 22 10 3B  00 31 36 2C 10 50 4C 4F  |US..6".;.16,.PLO|
00001650: 54 20 4A 53 52 4B 4F 4D  4D 41 00 41 36 36 10 20  |T JSRKOMMA.A66. |
00001660: 4A 53 52 47 45 54 42 59  54 45 00 4E 36 40 10 20  |JSRGETBYTE.N6@. |
00001670: 43 50 58 23 32 30 30 00  5C 36 4A 10 20 42 43 53  |CPX#200.\6J. BCS|
00001680: 45 52 52 4F 52 00 65 36  54 10 20 54 58 41 00 70  |ERROR.e6T. TXA.p|
00001690: 36 5E 10 20 4C 44 59 23  30 00 80 36 68 10 20 53  |6^. LDY#0..6h. S|
000016A0: 54 59 53 55 4D 4D 45 2B  31 00 8B 36 72 10 20 41  |TYSUMME+1..6r. A|
000016B0: 4E 44 23 37 00 99 36 7C  10 20 53 54 41 53 55 4D  |ND#7..6|. STASUM|
000016C0: 4D 45 00 A2 36 86 10 20  54 58 41 00 AF 36 90 10  |ME..6.. TXA..6..|
000016D0: 20 41 4E 44 23 32 34 38  00 BC 36 9A 10 20 53 54  | AND#248..6.. ST|
000016E0: 41 48 49 4C 46 00 C5 36  A4 10 20 41 53 4C 00 D5  |AHILF..6.. ASL..|
000016F0: 36 AE 10 20 52 4F 4C 53  55 4D 4D 45 2B 31 00 DE  |6.. ROLSUMME+1..|
00001700: 36 B8 10 20 41 53 4C 00  EE 36 C2 10 20 52 4F 4C  |6.. ASL..6.. ROL|
00001710: 53 55 4D 4D 45 2B 31 00  FB 36 CC 10 20 41 44 43  |SUMME+1..6.. ADC|
00001720: 48 49 4C 46 00 04 37 D6  10 20 54 41 58 00 0D 37  |HILF..7.. TAX..7|
00001730: E0 10 20 54 59 41 00 1D  37 EA 10 20 41 44 43 53  |.. TYA..7.. ADCS|
00001740: 55 4D 4D 45 2B 31 00 2D  37 F4 10 20 53 54 41 53  |UMME+1.-7.. STAS|
00001750: 55 4D 4D 45 2B 31 00 36  37 FE 10 20 54 58 41 00  |UMME+1.67.. TXA.|
00001760: 3F 37 08 11 20 41 53 4C  00 4F 37 12 11 20 52 4F  |?7.. ASL.O7.. RO|
00001770: 4C 53 55 4D 4D 45 2B 31  00 58 37 1C 11 20 41 53  |LSUMME+1.X7.. AS|
00001780: 4C 00 68 37 26 11 20 52  4F 4C 53 55 4D 4D 45 2B  |L.h7&. ROLSUMME+|
00001790: 31 00 71 37 30 11 20 41  53 4C 00 81 37 3A 11 20  |1.q70. ASL..7:. |
000017A0: 52 4F 4C 53 55 4D 4D 45  2B 31 00 8F 37 44 11 20  |ROLSUMME+1..7D. |
000017B0: 41 44 43 53 55 4D 4D 45  00 9D 37 58 11 20 53 54  |ADCSUMME..7X. ST|
000017C0: 41 53 55 4D 4D 45 00 AA  37 62 11 20 4C 44 41 23  |ASUMME..7b. LDA#|
000017D0: 31 36 30 00 BA 37 6C 11  20 41 44 43 53 55 4D 4D  |160..7l. ADCSUMM|
000017E0: 45 2B 31 00 CA 37 76 11  20 53 54 41 53 55 4D 4D  |E+1..7v. STASUMM|
000017F0: 45 2B 31 00 D7 37 80 11  20 4C 44 41 4C 4F 57 58  |E+1..7.. LDALOWX|
00001800: 00 E0 37 8A 11 20 54 41  58 00 ED 37 94 11 20 41  |..7.. TAX..7.. A|
00001810: 4E 44 23 32 34 38 00 FB  37 9E 11 20 41 44 43 53  |ND#248..7.. ADCS|
00001820: 55 4D 4D 45 00 09 38 A8  11 20 53 54 41 53 55 4D  |UMME..8.. STASUM|
00001830: 4D 45 00 17 38 B2 11 20  4C 44 41 48 49 47 48 58  |ME..8.. LDAHIGHX|
00001840: 00 27 38 BC 11 20 41 44  43 53 55 4D 4D 45 2B 31  |.'8.. ADCSUMME+1|
00001850: 00 37 38 C6 11 20 53 54  41 53 55 4D 4D 45 2B 31  |.78.. STASUMME+1|
00001860: 00 40 38 D0 11 20 54 58  41 00 4B 38 DA 11 20 41  |.@8.. TXA.K8.. A|
00001870: 4E 44 23 37 00 57 38 E4  11 20 4C 44 58 23 35 34  |ND#7.W8.. LDX#54|
00001880: 00 61 38 EE 11 20 53 54  58 31 00 6A 38 F8 11 20  |.a8.. STX1.j8.. |
00001890: 54 41 58 00 73 38 02 12  20 52 54 53 00 79 38 5C  |TAX.s8.. RTS.y8\|
000018A0: 12 3B 00 8E 38 66 12 3B  20 5A 45 49 43 48 4E 45  |.;..8f.; ZEICHNE|
000018B0: 54 20 50 55 4E 4B 54 00  94 38 70 12 3B 00 AF 38  |T PUNKT..8p.;..8|
000018C0: 7A 12 46 41 52 42 50 4C  4F 54 20 4C 44 41 54 41  |z.FARBPLOT LDATA|
000018D0: 42 45 4C 4C 45 32 2C 58  00 C1 38 84 12 20 41 4E  |BELLE2,X..8.. AN|
000018E0: 44 28 53 55 4D 4D 45 29  2C 59 00 D3 38 8E 12 20  |D(SUMME),Y..8.. |
000018F0: 53 54 41 28 53 55 4D 4D  45 29 2C 59 00 E1 38 98  |STA(SUMME),Y..8.|
00001900: 12 20 4C 44 41 46 41 52  42 45 00 F5 38 A2 12 4C  |. LDAFARBE..8..L|
00001910: 4F 4F 50 31 50 4C 4F 54  20 43 50 58 23 36 00 05  |OOP1PLOT CPX#6..|
00001920: 39 AC 12 20 42 45 51 50  4C 4F 54 54 45 4E 00 0E  |9.. BEQPLOTTEN..|
00001930: 39 B6 12 20 52 4F 4C 00  17 39 C0 12 20 49 4E 58  |9.. ROL..9.. INX|
00001940: 00 29 39 CA 12 20 4A 4D  50 4C 4F 4F 50 31 50 4C  |.)9.. JMPLOOP1PL|
00001950: 4F 54 00 42 39 D4 12 50  4C 4F 54 54 45 4E 20 4F  |OT.B9..PLOTTEN O|
00001960: 52 41 28 53 55 4D 4D 45  29 2C 59 00 54 39 DE 12  |RA(SUMME),Y.T9..|
00001970: 20 53 54 41 28 53 55 4D  4D 45 29 2C 59 00 60 39  | STA(SUMME),Y.`9|
00001980: E8 12 20 4C 44 58 23 35  35 00 6A 39 F2 12 20 53  |.. LDX#55.j9.. S|
00001990: 54 58 31 00 73 39 FC 12  20 52 54 53 00 98 39 06  |TX1.s9.. RTS..9.|
000019A0: 13 54 41 42 45 4C 4C 45  32 20 2E 42 59 36 33 2C  |.TABELLE2 .BY63,|
000019B0: 30 2C 32 30 37 2C 30 2C  32 34 33 2C 30 2C 32 35  |0,207,0,243,0,25|
000019C0: 32 00 00 00                                       |2...            |

X...D.;...N.;...X.;            HUEPFER..
 ..;.) ..;ASSEMBLER-ROUTINEN (SOURCE-COD
E)./ ..;.F  .; GESCHRIEBEN VON:.C ..;   
         JOCHEN TOPF.. ..;            GL
UEMERSTR. 34.. ..;            7800 FREIB
URG.D H.;            TEL.:0761-700701.J 
R.;.P ..;.. ..; DIE ROUTINE ZUM LESEN DE
R..!..; DIRECTORY DER DISKETTE STAMMT.7!
..; AUS DEM BUCH: 'DAS INTERFACE.Z!..; A
GE SYSTEMHANDBUCH ZUM C 64'.P!..; VON RA
LPH BABEL.V!..;.|!".;..!,.; HIRES BIT MA
P : $A000-$BFFF..!6.; FARBSPEICHER  : $8
C00-$8FFF.F!@.;.T!J..BA $C000.Z!T.;..!..
; BETRIEBSYSTEMROUTINEN:.."...EQ KOMMA=$
AEFD ;PRUEFT AUF KOMMA.C"...EQ GETADR=$B
7F7 ;HOLT 16BIT-WERT.I"...EQ GETBYTE=470
06 ;HOLT 8BIT-WERT.."...EQ ILLQUA=$B248 
;ILL.QUANT. ERR..."B..EQ LOAD=65493 ; LO
AD-ROUTINE.S"L..EQ SAVE=65496 ; SAVE-ROU
TINE.."V..EQ CLOSE=65475 ; CLOSE-ROUTINE
..#...EQ SECOND=65427..#...EQ TKSA=65430
.3#...EQ ACPTR=65445.G#...EQ CIOUT=65448
.[#...EQ UNTLK=65451.O#...EQ UNLSN=65454
..#...EQ LISTEN=65457..#&..EQ TALK=65460
   ;ROUTINEN FUER.I#0..EQ CHROUT=65490 ;
 DIRECTORY..#:..EQ GETPAR=$E1D4 ;HOLT PA
RAMETER..$D..EQ FRMEVL=$AD9E..$N..EQ FRE
STR=$B6A3.-$X..EQ CRUNCH=$A579.3$..;.L$.
.; SONSTIGE ADRESSEN:.P$F..EQ STATUS=144
 ; FUER DIRECTORY..$P..EQ LAUF=251 ; ZAE
HLER FUER FILL..$Z..EQ SUMME=251 ;SPEICH
ER FUER PLOT..$...EQ ANFANG=251 ;POINTER
 FUER SAVE..%...EQ HILF=2 ; HILFSSPEICHE
R. %...EQ ADRESSE=253 ; FUER FUNC.?%...E
Q FARBE=255 ; PUNKTFARBE.E%...EQ LOWX=25
3  ; X-KOORDINATE FUER..%...EQ HIGHX=254
 ;           PLOT..% .; SPRUNGTABELLE:..
%*. JMPHIRESON;49152.J%4. JMPHIRESOFF;49
155..%>. JMPHCLEAR;49158..%H. JMPHICOLOU
R;49161..&R. JMPMUCOLOUR;49164.%&\. JMPH
IRESLOAD;49167.=&F. JMPHIRESSAVE;49170.U
&P. JMPDIRECTORY;49173.I&Z. JMPFUNCX;491
76.}&.. JMPFUNCY;49179..&.. JMPHIPLOT;49
182..&.. JMPMUPLOT;49185..&..;.N&..; SCH
ALTET HIRES BZW. MULTI-..&..; COLOURBILD
SCHIRM EIN..&..;..'..HIRESON LDA56576..'
.. AND#253..'$. STA56576.+'.. LDA#57.9'8
. STA53272.G'B. LDA53265.S'L. ORA#32.A'V
. STA53265.O'`. JSRKOMMA.'J. JSRGETBYTE
..'T. TXA..'~. BEQENDHON..'.. LDA53270..
'.. ORA#16..'.. STA53270.N'..ENDHON RTS.
T'..;..'..; SCHALTET HIRES BZW. MULTI-..
(D.; COLOURBILDSCHIRM AUS..(N.;.,(X.HIRE
SOFF LDA56576.7(.. ORA#2.E(.. STA56576.Q
(.. LDA#21._(.. STA53272.M(.. LDA53265.Z
(.. AND#223..(.. STA53265..((. LDA53270.
.(2. AND#239..(<. STA53270..(F. RTS..(X.
;..(..; FUELLT SPEICHERBEREICH MIT..(..;
 DEM WERT IM AKKU..)..; ANFNGSPAGE IM Y-
REGISTER.<) .; ANZAHL DER PAGES IM X-REG
ISTER.B)..;.U)..FILL STYLAUF+1.`).. LDY#
0.M)H. STYLAUF..)R.LOOPFILL STA(LAUF),Y.
.).. INY. ).. BNELOOPFILL..).. INCLAUF+1
..).. DEX.I).. BNELOOPFILL.R).. RTS.X)@.
;..)J.; LOESCHT BIT-MAP..)T.;..*^.HCLEAR
 LDA#0..*H. LDY#160..*R. LDX#32.+*|. JMP
FILL.1*..;.O*..; FUELLT FARBSPEICHER MIT
.A*..; HIRESFARBEN.G*B.;.}*L.HICOLOUR JS
RKOMMA..*V. JSRGETBYTE..*.. TXA..*.. ASL
..*.. ASL..*.. ASL..*.. ASL.G*.. STAHILF
.U*.. JSRKOMMA..*&. JSRGETBYTE..*0. TXA.
.*:. AND#15..+D. ORAHILF..+N. LDY#140..+
X. LDX#4.,+B. JMPFILL.2+L.;.P+V.; FUELLT
 FARBSPEICHER MIT.H+..; MULTICOLOURFARBE
N.N+..;..+..MUCOLOUR JSRKOMMA..+.. JSRGE
TBYTE..+.. STX53281..+.. JSRHICOLOUR.A+.
. JSRKOMMA.Q+F. JSRGETBYTE.Z+P. TXA..+Z.
 LDY#216..+.. LDX#4..+.. JMPFILL..,4.;..
,>.; SPEICHERT BIT-MAP.#,H.;.:,R.HIRESSA
VE JSRKOMMA.I,\. JSRGETPAR.U,F. LDA#54._
,P. STA1.K,Z. LDX#64.X,.. LDY#191..,.. L
DA#0..,.. STAANFANG..,.. LDA#160..,.. ST
AANFANG+1..,.. LDA#ANFANG.M,.. JSRSAVE.Y
,J. LDA#55..,T. STA1..,.. JMPCLOSE..,..;
..-..; BIT-MAP LADEN..-..;.(-..HIRESLOAD
 JSRKOMMA.7-$. JSRGETPAR.B-.. LDA#0.K-8.
 TAX.X-B. LDY#160.E-L. JSRLOAD.S-V. JMPC
LOSE.Y-`.;..-J.; LIEST DIRECTORY VON DIS
K..-T.;..-~.DIRECTORY LDA#0.A-.. STASTAT
US.L-.. LDA#8..-.. JSRLISTEN..-.. LDA#24
0..-.. JSRSECOND..... LDA#"$"...D. JSRCI
OUT. .N. JSRUNLSN.+.X. LDA#8.8... JSRTAL
K.D... LDA#96.Q... JSRTKSA.\... LDX#5.G.
.. .BY44.W...START LDX#3.....LOOP1DIR JS
RGETBYT...(. DEX...2. BNELOOP1DIR...<. T
AX...F. JSR43735.N.P. JSRGETBYT...Z. JSR
48589...D.LOOP2DIR JSRGETBYT...N. TAX../
X. BEQSTART../.. JSRCHROUT.*/.. BNELOOP2
DIR.>/..GETBYT JSRACPTR.M/ . LDYSTATUS.Z
/.. BNESTOP.C/.. RTS.P/..STOP PLA.Y/H. P
LA../R. JSRUNTLK../.. LDA#8../.. JSRLIST
EN../.. LDA#224../.. JSRSECOND.K/.. JMPU
NLSN.Q/T.;../^.; FUNC../H.;..0R.; WANDEL
T DIE AUS BASIC UEBER-.(0|.; GEBENE FUNK
TION IN TOKENS UM.M0..; UND SCHREIBT SIE
 IN DEN BASIC-.\0..; SPEICHER.B0..;.S0..
FUNCX LDA#28..0.. STAADRESSE..0.. LDA#8.
 0B. STAADRESSE+1..0L. JMPFUNC..0V.FUNCY
 LDA#105.O0.. STAADRESSE.Z0.. LDA#8..0..
 STAADRESSE+1..0..;..1..FUNC JSRKOMMA..1
.. JSRFRMEVL."1.. JSRFRESTR.-1&. LDY#0.9
10. STA$57.R1:.LOOP1FUNC LDA($22),Y.A1D.
 STA$200,Y.J1N. INY.V1X. CPY$57..1B. BNE
LOOP1FUNC..1L. LDA#0..1V. STA$200,Y..1..
 LDA$7A..1.. STAANFANG.I1.. LDA$7B.Z1.. 
STAANFANG+1..1.. LDA#$FF..1.. STA$7A..1.
. LDA#1..2F. STA$7B..2P. JSR$73.%2Z. JSR
CRUNCH.02.. STY$B.?2.. LDAANFANG.K2.. ST
A$7A.\2.. LDAANFANG+1.H2.. STA$7B.T2.. L
DA#58.}2 . TAY..2*.LOOP2FUNC DEY..24. ST
A(ADRESSE),Y..2>. BNELOOP2FUNC.M2H.LOOP3
FUNC LDA$200,Y..2R. BEQENDFUNC..2\. STA(
ADRESSE),Y..2F. INY..3P. JMPLOOP3FUNC..3
Z.ENDFUNC RTS."3..;.E3..; ZEICHNET EINEN
 MULTIOCOLOUR-.Q3..; PUNKT.W3J.;.K3T.MUP
LOT JSRKOMMA.{3.. JSRGETBYTE..3.. TXA..3
.. AND#3..3.. STAFARBE..3.. JSRKOMMA..3.
. JSRGETBYTE.H3.. CPX#160.V3$. BCSERROR.
.3.. TXA..38. LDX#0..3B. STXHIGHX..4L. A
SL..4V. ROLHIGHX..4`. STALOWX.)4J. JSRPL
OT.:4T. JMPFARBPLOT.@4X.;.B4..; SCHALTET
 AUF TEXTBILDSCHIRM..4..; UND GIBT FEHLE
RMELDUNG AUS..4..;..4..ERROR JSRHIRESOFF
..4.. JMPILLQUA..4<.;.O4F.; ZEICHNET HIR
ES-PUNKT.U4P.;..4Z.HIPLOT JSRKOMMA..4D. 
JSR$AD8A..5N. JSRGETADR..5X. LDA$15..5..
 CMP#2.+5.. BCSERROR.75.. LDX$14.B5 . CM
P#0.P5.. BEQPLOT2.\5.. CPX#64.J5.. BCSER
ROR.}5H.PLOT2 STAHIGHX..5R. STXLOWX..5..
 JSRPLOT..5.. LDATABELLE,X..5.. JMPPLOTT
EN..5..TABELLE .BY128,64,32,16,8,4,2,1..
5..;..6..; HOLT Y-KOORDINATE UND RECHNET
..6..; ADRESSE AUS..6".;.16,.PLOT JSRKOM
MA.A66. JSRGETBYTE.N6@. CPX#200.\6J. BCS
ERROR.E6T. TXA.P6^. LDY#0..6H. STYSUMME+
1..6R. AND#7..6|. STASUMME..6.. TXA..6..
 AND#248..6.. STAHILF.E6.. ASL.U6.. ROLS
UMME+1..6.. ASL..6B. ROLSUMME+1..6L. ADC
HILF..7V. TAX..7.. TYA..7.. ADCSUMME+1.-
7.. STASUMME+1.67.. TXA.?7.. ASL.O7.. RO
LSUMME+1.X7.. ASL.H7&. ROLSUMME+1.Q70. A
SL..7:. ROLSUMME+1..7D. ADCSUMME..7X. ST
ASUMME..7B. LDA#160..7L. ADCSUMME+1.J7V.
 STASUMME+1.W7.. LDALOWX..7.. TAX..7.. A
ND#248..7.. ADCSUMME..8.. STASUMME..8.. 
LDAHIGHX.'8.. ADCSUMME+1.78F. STASUMME+1
.@8P. TXA.K8Z. AND#7.W8.. LDX#54.A8.. ST
X1.J8.. TAX.S8.. RTS.Y8\.;..8F.; ZEICHNE
T PUNKT..8P.;..8Z.FARBPLOT LDATABELLE2,X
.A8.. AND(SUMME),Y.S8.. STA(SUMME),Y..8.
. LDAFARBE..8..LOOP1PLOT CPX#6..9.. BEQP
LOTTEN..9.. ROL..9.. INX.)9J. JMPLOOP1PL
OT.B9T.PLOTTEN ORA(SUMME),Y.T9.. STA(SUM
ME),Y.`9.. LDX#55.J9.. STX1.S9.. RTS..9.
.TABELLE2 .BY63,0,207,0,243,0,252...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL