GIGA GRAFIK SRC
FILE INFORMATION
FILENAME(S): GIGA GRAFIK SRC
FILE TYPE(S): PRG
FILE SIZE: 27.6K
FIRST SEEN: 2025-11-02 16:39:49
APPEARS ON: 2 disk(s)
FILE HASH
dcfac26d682a69e370138c1e9bf2cbd61af0bdd88b947e1297b288e9c143f7b8
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15827 SEITE C | GIGA GRAFIK SRC | PRG | Treasure Chest - Plattfuss | 23 | 7 | DOWNLOAD FILE |
| 15827 SEITE C | GIGA GRAFIK SRC | PRG | C64er, Treasure Chest - ralf | 23 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 0A 00 3B 20 23 23 23 23 23 23 23 23 |..&...; ########|
00000010: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000020: 23 23 23 23 23 23 00 4B 08 14 00 3B 20 23 20 20 |######.K...; # |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 20 20 23 00 70 08 1E 00 | #.p...|
00000050: 3B 20 23 20 20 20 20 20 20 43 20 36 34 20 26 20 |; # C 64 & |
00000060: 47 49 47 41 2D 41 53 53 20 20 20 20 20 20 20 23 |GIGA-ASS #|
00000070: 00 95 08 28 00 3B 20 23 20 20 20 20 20 20 20 20 |...(.; # |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 23 00 BA 08 32 00 3B 20 23 20 47 52 | #...2.; # GR|
000000A0: 41 46 49 4B 2D 52 4F 55 54 49 4E 45 4E 2C 20 56 |AFIK-ROUTINEN, V|
000000B0: 45 52 53 2E 20 31 2E 31 20 23 00 DF 08 3C 00 3B |ERS. 1.1 #...<.;|
000000C0: 20 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | # |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 00 | #.|
000000E0: 04 09 46 00 3B 20 23 20 54 48 4F 4D 41 53 20 44 |..F.; # THOMAS D|
000000F0: 41 43 48 53 45 4C 2C 20 30 36 2E 30 31 2E 31 39 |ACHSEL, 06.01.19|
00000100: 38 38 20 23 00 29 09 50 00 3B 20 23 20 20 20 20 |88 #.).P.; # |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 20 20 20 20 20 20 20 20 23 00 4E 09 5A 00 3B 20 | #.N.Z.; |
00000130: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000140: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 00 59 |##############.Y|
00000150: 09 64 00 AA 24 43 30 30 30 00 7F 09 65 00 3B 2A |.d..$C000...e.;*|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000180: A5 09 66 00 3B 2A 20 20 20 20 20 20 20 20 20 20 |..f.;* |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 2A 00 CB 09 67 00 3B 2A 20 45 49 4E | *...g.;* EIN|
000001B0: 53 50 52 55 4E 47 54 41 42 45 4C 4C 45 3A 20 20 |SPRUNGTABELLE: |
000001C0: 20 20 20 20 20 20 20 20 20 20 2A 00 F1 09 68 00 | *...h.|
000001D0: 3B 2A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;* -------------|
000001E0: 2D 2D 2D 20 20 20 20 20 20 20 20 20 20 20 20 20 |--- |
000001F0: 2A 00 17 0A 69 00 3B 2A 20 44 49 45 53 45 20 54 |*...i.;* DIESE T|
00000200: 41 42 45 4C 4C 45 20 45 4E 54 48 41 45 4C 54 20 |ABELLE ENTHAELT |
00000210: 45 49 4E 2D 20 20 2A 00 3D 0A 6A 00 3B 2A 20 53 |EIN- *.=.j.;* S|
00000220: 50 52 55 4E 47 50 55 4E 4B 54 45 20 46 55 45 52 |PRUNGPUNKTE FUER|
00000230: 20 41 4C 4C 45 20 5A 55 52 20 20 20 2A 00 63 0A | ALLE ZUR *.c.|
00000240: 6B 00 3B 2A 20 56 45 52 46 55 45 47 55 4E 47 20 |k.;* VERFUEGUNG |
00000250: 47 45 53 54 45 4C 4C 54 45 4E 20 20 20 20 20 20 |GESTELLTEN |
00000260: 20 20 2A 00 89 0A 6C 00 3B 2A 20 47 52 41 46 49 | *...l.;* GRAFI|
00000270: 4B 52 4F 55 54 49 4E 45 4E 2E 20 20 20 20 20 20 |KROUTINEN. |
00000280: 20 20 20 20 20 20 20 20 2A 00 AF 0A 6D 00 3B 2A | *...m.;*|
00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
000002B0: D5 0A 6E 00 3B 2A 20 52 4F 55 54 49 4E 45 4E 2C |..n.;* ROUTINEN,|
000002C0: 20 44 49 45 20 4D 45 48 52 20 50 41 52 41 4D 45 | DIE MEHR PARAME|
000002D0: 54 45 52 20 2A 00 FB 0A 6F 00 3B 2A 20 42 45 4E |TER *...o.;* BEN|
000002E0: 4F 45 54 49 47 45 4E 20 41 4C 53 20 43 50 55 2D |OETIGEN ALS CPU-|
000002F0: 52 45 47 49 53 54 45 52 20 20 2A 00 21 0B 70 00 |REGISTER *.!.p.|
00000300: 3B 2A 20 56 4F 52 48 41 4E 44 45 4E 20 53 49 4E |;* VORHANDEN SIN|
00000310: 44 2C 20 48 41 42 45 4E 20 56 4F 52 20 20 20 20 |D, HABEN VOR |
00000320: 2A 00 47 0B 71 00 3B 2A 20 49 48 52 45 4D 20 45 |*.G.q.;* IHREM E|
00000330: 49 4E 53 50 52 55 4E 47 50 55 4E 4B 54 20 45 49 |INSPRUNGPUNKT EI|
00000340: 4E 45 4E 20 20 20 2A 00 6D 0B 72 00 3B 2A 20 53 |NEN *.m.r.;* S|
00000350: 4F 47 2E 20 41 4B 54 49 56 49 45 52 55 4E 47 53 |OG. AKTIVIERUNGS|
00000360: 42 4C 4F 43 4B 2E 20 20 20 20 20 20 2A 00 93 0B |BLOCK. *...|
00000370: 73 00 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 |s.;* |
00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000390: 20 20 2A 00 B9 0B 74 00 3B 2A 20 44 49 45 20 4C | *...t.;* DIE L|
000003A0: 41 42 45 4C 20 52 30 30 2C 20 52 30 33 2C 20 52 |ABEL R00, R03, R|
000003B0: 30 36 2C 20 2E 2E 2E 20 2A 00 DF 0B 75 00 3B 2A |06, ... *...u.;*|
000003C0: 20 44 49 45 4E 45 4E 20 41 4C 53 20 48 49 4E 57 | DIENEN ALS HINW|
000003D0: 45 49 53 20 41 55 46 20 44 49 45 20 20 20 2A 00 |EIS AUF DIE *.|
000003E0: 05 0C 76 00 3B 2A 20 52 45 4C 41 54 49 56 45 20 |..v.;* RELATIVE |
000003F0: 50 4F 53 49 54 49 4F 4E 20 44 45 52 20 20 20 20 |POSITION DER |
00000400: 20 20 20 20 2A 00 2B 0C 77 00 3B 2A 20 45 49 4E | *.+.w.;* EIN|
00000410: 53 50 52 55 4E 47 50 55 4E 4B 54 45 20 42 5A 47 |SPRUNGPUNKTE BZG|
00000420: 4C 2E 20 20 20 20 20 20 20 20 2A 00 51 0C 78 00 |L. *.Q.x.|
00000430: 3B 2A 20 44 45 52 20 42 41 53 49 53 2D 41 44 52 |;* DER BASIS-ADR|
00000440: 45 53 53 45 2E 20 20 20 20 20 20 20 20 20 20 20 |ESSE. |
00000450: 2A 00 77 0C 79 00 3B 2A 20 20 20 20 20 20 20 20 |*.w.y.;* |
00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000470: 20 20 20 20 20 20 2A 00 9D 0C 7A 00 3B 2A 2A 2A | *...z.;***|
00000480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AB 0C |*************...|
000004A0: C8 00 52 30 30 20 D5 50 41 47 45 00 BB 0C D2 00 |..R00 .PAGE.....|
000004B0: 52 30 33 20 D5 44 45 53 49 47 4E 00 C8 0C DC 00 |R03 .DESIGN.....|
000004C0: 52 30 36 20 D5 4F 46 46 00 D5 0C E6 00 52 30 39 |R06 .OFF.....R09|
000004D0: 20 D5 49 4E 56 00 E4 0C F0 00 52 30 43 20 D5 43 | .INV.....R0C .C|
000004E0: 4C 45 41 52 00 F3 0C FA 00 52 30 46 20 D5 43 4F |LEAR.....R0F .CO|
000004F0: 4C 4F 52 00 03 0D 04 01 52 31 32 20 D5 53 45 54 |LOR.....R12 .SET|
00000500: 43 4F 4C 00 15 0D 0E 01 52 31 35 20 D5 43 4C 45 |COL.....R15 .CLE|
00000510: 41 52 44 4F 54 00 22 0D 18 01 52 31 38 20 D5 53 |ARDOT."...R18 .S|
00000520: 45 54 00 30 0D 22 01 52 31 42 20 D5 54 45 53 54 |ET.0.".R1B .TEST|
00000530: 00 40 0D 2C 01 52 31 45 20 D5 41 43 43 45 53 53 |.@.,.R1E .ACCESS|
00000540: 00 4B 0D 36 01 58 30 4C 20 A7 31 00 56 0D 40 01 |.K.6.X0L .1.V.@.|
00000550: 58 30 48 20 A7 31 00 60 0D 4A 01 59 30 20 A7 31 |X0H .1.`.J.Y0 .1|
00000560: 00 6B 0D 54 01 58 31 4C 20 A7 31 00 76 0D 5E 01 |.k.T.X1L .1.v.^.|
00000570: 58 31 48 20 A7 31 00 80 0D 68 01 59 31 20 A7 31 |X1H .1...h.Y1 .1|
00000580: 00 8E 0D 72 01 52 32 37 20 D5 4C 49 4E 45 00 9D |...r.R27 .LINE..|
00000590: 0D 7C 01 52 32 41 20 D5 43 4C 49 4E 45 00 A9 0D |.|.R2A .CLINE...|
000005A0: 86 01 46 58 30 4C 20 A7 31 00 B5 0D 90 01 46 58 |..FX0L .1.....FX|
000005B0: 30 48 20 A7 31 00 C0 0D 9A 01 46 59 30 20 A7 31 |0H .1.....FY0 .1|
000005C0: 00 CC 0D A4 01 46 58 31 4C 20 A7 31 00 D8 0D AE |.....FX1L .1....|
000005D0: 01 46 58 31 48 20 A7 31 00 E3 0D B8 01 46 59 31 |.FX1H .1.....FY1|
000005E0: 20 A7 31 00 F2 0D C2 01 52 33 33 20 D5 46 52 41 | .1.....R33 .FRA|
000005F0: 4D 45 00 02 0E CC 01 52 33 36 20 D5 43 46 52 41 |ME.....R36 .CFRA|
00000600: 4D 45 00 10 0E D6 01 52 33 39 20 D5 46 49 4C 4C |ME.....R39 .FILL|
00000610: 00 1A 0E E0 01 54 58 20 A7 31 00 24 0E EA 01 54 |.....TX .1.$...T|
00000620: 59 20 A7 31 00 30 0E F4 01 45 58 50 58 20 A7 31 |Y .1.0...EXPX .1|
00000630: 00 3C 0E FE 01 45 58 50 59 20 A7 31 00 48 0E 08 |.<...EXPY .1.H..|
00000640: 02 43 41 53 45 20 A7 31 00 56 0E 12 02 52 34 31 |.CASE .1.V...R41|
00000650: 20 D5 54 45 58 54 00 61 0E 1C 02 52 41 44 20 A7 | .TEXT.a...RAD .|
00000660: 31 00 71 0E 26 02 52 34 35 20 D5 43 49 52 43 4C |1.q.&.R45 .CIRCL|
00000670: 45 00 82 0E 30 02 52 34 38 20 D5 43 43 49 52 43 |E...0.R48 .CCIRC|
00000680: 4C 45 00 91 0E 3A 02 52 34 42 20 D5 4C 49 4E 45 |LE...:.R4B .LINE|
00000690: 53 00 A1 0E 44 02 52 34 45 20 D5 43 4C 49 4E 45 |S...D.R4E .CLINE|
000006A0: 53 00 A9 0E 4E 02 52 35 31 00 CF 0E 58 02 3B 2D |S...N.R51...X.;-|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
000006D0: EE 0E 62 02 3B 20 41 42 20 48 49 45 52 20 57 45 |..b.; AB HIER WE|
000006E0: 49 54 45 52 45 20 45 49 4E 54 52 41 47 45 00 14 |ITERE EINTRAGE..|
000006F0: 0F 6C 02 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.l.;------------|
00000700: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000710: 2D 2D 2D 2D 00 1D 0F E8 03 A1 52 41 4D 00 33 0F |----......RAM.3.|
00000720: F2 03 20 CA 23 24 37 46 3B 49 4E 54 45 52 52 55 |.. .#$7F;INTERRU|
00000730: 50 54 53 00 43 0F FC 03 20 D2 24 44 43 30 44 3B |PTS.C... .$DC0D;|
00000740: 41 55 53 00 56 0F 06 04 20 CA 23 24 33 35 3B 24 |AUS.V... .#$35;$|
00000750: 41 30 30 30 20 26 00 68 0F 10 04 20 D2 31 3B 24 |A000 &.h... .1;$|
00000760: 45 30 30 30 20 52 41 4D 00 6E 0F 1A 04 A2 00 77 |E000 RAM.n.....w|
00000770: 0F 24 04 A1 52 4F 4D 00 8A 0F 2E 04 20 CA 23 24 |.$..ROM..... .#$|
00000780: 33 37 3B 24 41 30 30 30 20 26 00 9C 0F 38 04 20 |37;$A000 &...8. |
00000790: D2 31 3B 24 45 30 30 30 20 52 4F 4D 00 A2 0F 42 |.1;$E000 ROM...B|
000007A0: 04 A2 00 C8 0F 4C 04 3B 2D 2D 2D 2D 2D 2D 2D 2D |.....L.;--------|
000007B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007C0: 2D 2D 2D 2D 2D 2D 2D 2D 00 E0 0F 56 04 3B 20 47 |--------...V.; G|
000007D0: 4C 4F 42 41 4C 45 20 56 41 52 49 41 42 4C 45 4E |LOBALE VARIABLEN|
000007E0: 00 06 10 60 04 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |...`.;----------|
000007F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000800: 2D 2D 2D 2D 2D 2D 00 13 10 6A 04 A3 4C 4F 57 3D |------...j..LOW=|
00000810: 24 31 34 00 21 10 74 04 A3 48 49 47 48 3D 24 31 |$14.!.t..HIGH=$1|
00000820: 35 00 2E 10 7E 04 A3 43 52 50 3D 24 46 39 00 3B |5...~..CRP=$F9.;|
00000830: 10 88 04 A3 48 52 50 3D 24 46 42 00 48 10 92 04 |....HRP=$FB.H...|
00000840: A3 48 52 42 3D 24 46 44 00 55 10 9C 04 A3 48 52 |.HRB=$FD.U....HR|
00000850: 45 3D 24 46 45 00 62 10 A6 04 A3 43 4F 4C 3D 24 |E=$FE.b....COL=$|
00000860: 46 46 00 88 10 B0 04 3B 2D 2D 2D 2D 2D 2D 2D 2D |FF.....;--------|
00000870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000880: 2D 2D 2D 2D 2D 2D 2D 2D 00 A6 10 BA 04 3B 20 47 |--------.....; G|
00000890: 52 41 46 49 4B 2D 53 45 49 54 45 4E 20 50 41 52 |RAFIK-SEITEN PAR|
000008A0: 41 4D 45 54 45 52 00 CC 10 C4 04 3B 2D 2D 2D 2D |AMETER.....;----|
000008B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000008C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 E5 10 CE |------------....|
000008D0: 04 50 47 31 20 A5 24 31 38 2C 24 37 38 2C 24 33 |.PG1 .$18,$78,$3|
000008E0: 38 2C 24 33 38 00 FE 10 D8 04 50 47 32 20 A5 24 |8,$38.....PG2 .$|
000008F0: 30 34 2C 24 35 43 2C 24 38 43 2C 24 43 43 00 24 |04,$5C,$8C,$CC.$|
00000900: 11 E2 04 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |...;------------|
00000910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000920: 2D 2D 2D 2D 00 3A 11 EC 04 3B 20 41 44 52 45 53 |----.:...; ADRES|
00000930: 53 2D 54 41 42 45 4C 4C 45 4E 00 60 11 F6 04 3B |S-TABELLEN.`...;|
00000940: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000960: 00 78 11 00 05 54 41 42 31 20 A5 30 2C 24 34 30 |.x...TAB1 .0,$40|
00000970: 2C 24 38 30 2C 24 43 30 00 8C 11 0A 05 20 A5 30 |,$80,$C0..... .0|
00000980: 2C 24 34 30 2C 24 38 30 2C 24 43 30 00 A0 11 14 |,$40,$80,$C0....|
00000990: 05 20 A5 30 2C 24 34 30 2C 24 38 30 2C 24 43 30 |. .0,$40,$80,$C0|
000009A0: 00 B4 11 1E 05 20 A5 30 2C 24 34 30 2C 24 38 30 |..... .0,$40,$80|
000009B0: 2C 24 43 30 00 C8 11 28 05 20 A5 30 2C 24 34 30 |,$C0...(. .0,$40|
000009C0: 2C 24 38 30 2C 24 43 30 00 DE 11 32 05 20 A5 30 |,$80,$C0...2. .0|
000009D0: 2C 24 34 30 2C 24 38 30 2C 24 43 30 2C 30 00 07 |,$40,$80,$C0,0..|
000009E0: 12 3C 05 54 41 42 32 20 A5 30 2C 31 2C 32 2C 33 |.<.TAB2 .0,1,2,3|
000009F0: 2C 35 2C 36 2C 37 2C 38 2C 24 41 2C 24 42 2C 24 |,5,6,7,8,$A,$B,$|
00000A00: 43 2C 24 44 2C 24 46 00 3D 12 46 05 20 A5 24 31 |C,$D,$F.=.F. .$1|
00000A10: 30 2C 24 31 31 2C 24 31 32 2C 24 31 34 2C 24 31 |0,$11,$12,$14,$1|
00000A20: 35 2C 24 31 36 2C 24 31 37 2C 24 31 39 2C 24 31 |5,$16,$17,$19,$1|
00000A30: 41 2C 24 31 42 2C 24 31 43 2C 24 31 45 00 5C 12 |A,$1B,$1C,$1E.\.|
00000A40: 50 05 54 41 42 33 20 A5 31 2C 32 2C 34 2C 38 2C |P.TAB3 .1,2,4,8,|
00000A50: 31 36 2C 33 32 2C 36 34 2C 31 32 38 00 82 12 5A |16,32,64,128...Z|
00000A60: 05 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------|
00000A70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000A80: 2D 2D 00 A7 12 64 05 3B 20 35 31 32 20 42 59 54 |--...d.; 512 BYT|
00000A90: 45 20 43 49 52 43 4C 45 20 4C 4F 4F 4B 2D 55 50 |E CIRCLE LOOK-UP|
00000AA0: 20 54 41 42 4C 45 53 00 CD 12 6E 05 3B 2D 2D 2D | TABLES...n.;---|
00000AB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000AC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 F6 12 |-------------...|
00000AD0: 78 05 4C 54 31 20 A5 24 30 30 2C 24 30 31 2C 24 |x.LT1 .$00,$01,$|
00000AE0: 30 34 2C 24 30 39 2C 24 31 30 2C 24 31 39 2C 24 |04,$09,$10,$19,$|
00000AF0: 32 34 2C 24 33 31 00 1C 13 82 05 20 A5 24 34 30 |24,$31..... .$40|
00000B00: 2C 24 35 31 2C 24 36 34 2C 24 37 39 2C 24 39 30 |,$51,$64,$79,$90|
00000B10: 2C 24 41 39 2C 24 43 34 2C 24 45 31 00 42 13 8C |,$A9,$C4,$E1.B..|
00000B20: 05 20 A5 24 30 30 2C 24 32 31 2C 24 34 34 2C 24 |. .$00,$21,$44,$|
00000B30: 36 39 2C 24 39 30 2C 24 42 39 2C 24 45 34 2C 24 |69,$90,$B9,$E4,$|
00000B40: 31 31 00 68 13 96 05 20 A5 24 34 30 2C 24 37 31 |11.h... .$40,$71|
00000B50: 2C 24 41 34 2C 24 44 39 2C 24 31 30 2C 24 34 39 |,$A4,$D9,$10,$49|
00000B60: 2C 24 38 34 2C 24 43 31 00 8E 13 A0 05 20 A5 24 |,$84,$C1..... .$|
00000B70: 30 30 2C 24 34 31 2C 24 38 34 2C 24 43 39 2C 24 |00,$41,$84,$C9,$|
00000B80: 31 30 2C 24 35 39 2C 24 41 34 2C 24 46 31 00 B4 |10,$59,$A4,$F1..|
00000B90: 13 AA 05 20 A5 24 34 30 2C 24 39 31 2C 24 45 34 |... .$40,$91,$E4|
00000BA0: 2C 24 33 39 2C 24 39 30 2C 24 45 39 2C 24 34 34 |,$39,$90,$E9,$44|
00000BB0: 2C 24 41 31 00 DA 13 B4 05 20 A5 24 30 30 2C 24 |,$A1..... .$00,$|
00000BC0: 36 31 2C 24 43 34 2C 24 32 39 2C 24 39 30 2C 24 |61,$C4,$29,$90,$|
00000BD0: 46 39 2C 24 36 34 2C 24 44 31 00 00 14 BE 05 20 |F9,$64,$D1..... |
00000BE0: A5 24 34 30 2C 24 42 31 2C 24 32 34 2C 24 39 39 |.$40,$B1,$24,$99|
00000BF0: 2C 24 31 30 2C 24 38 39 2C 24 30 34 2C 24 38 31 |,$10,$89,$04,$81|
00000C00: 00 26 14 C8 05 20 A5 24 30 30 2C 24 38 31 2C 24 |.&... .$00,$81,$|
00000C10: 30 34 2C 24 38 39 2C 24 31 30 2C 24 39 39 2C 24 |04,$89,$10,$99,$|
00000C20: 32 34 2C 24 42 31 00 4C 14 D2 05 20 A5 24 34 30 |24,$B1.L... .$40|
00000C30: 2C 24 44 31 2C 24 36 34 2C 24 46 39 2C 24 39 30 |,$D1,$64,$F9,$90|
00000C40: 2C 24 32 39 2C 24 43 34 2C 24 36 31 00 72 14 DC |,$29,$C4,$61.r..|
00000C50: 05 20 A5 24 30 30 2C 24 41 31 2C 24 34 34 2C 24 |. .$00,$A1,$44,$|
00000C60: 45 39 2C 24 39 30 2C 24 33 39 2C 24 45 34 2C 24 |E9,$90,$39,$E4,$|
00000C70: 39 31 00 98 14 E6 05 20 A5 24 34 30 2C 24 46 31 |91..... .$40,$F1|
00000C80: 2C 24 41 34 2C 24 35 39 2C 24 31 30 2C 24 43 39 |,$A4,$59,$10,$C9|
00000C90: 2C 24 38 34 2C 24 34 31 00 BE 14 F0 05 20 A5 24 |,$84,$41..... .$|
00000CA0: 30 30 2C 24 43 31 2C 24 38 34 2C 24 34 39 2C 24 |00,$C1,$84,$49,$|
00000CB0: 31 30 2C 24 44 39 2C 24 41 34 2C 24 37 31 00 E4 |10,$D9,$A4,$71..|
00000CC0: 14 FA 05 20 A5 24 34 30 2C 24 31 31 2C 24 45 34 |... .$40,$11,$E4|
00000CD0: 2C 24 42 39 2C 24 39 30 2C 24 36 39 2C 24 34 34 |,$B9,$90,$69,$44|
00000CE0: 2C 24 32 31 00 0A 15 04 06 20 A5 24 30 30 2C 24 |,$21..... .$00,$|
00000CF0: 45 31 2C 24 43 34 2C 24 41 39 2C 24 39 30 2C 24 |E1,$C4,$A9,$90,$|
00000D00: 37 39 2C 24 36 34 2C 24 35 31 00 30 15 0E 06 20 |79,$64,$51.0... |
00000D10: A5 24 34 30 2C 24 33 31 2C 24 32 34 2C 24 31 39 |.$40,$31,$24,$19|
00000D20: 2C 24 31 30 2C 24 30 39 2C 24 30 34 2C 24 30 31 |,$10,$09,$04,$01|
00000D30: 00 56 15 18 06 20 A5 24 30 30 2C 24 30 31 2C 24 |.V... .$00,$01,$|
00000D40: 30 34 2C 24 30 39 2C 24 31 30 2C 24 31 39 2C 24 |04,$09,$10,$19,$|
00000D50: 32 34 2C 24 33 31 00 7C 15 22 06 20 A5 24 34 30 |24,$31.|.". .$40|
00000D60: 2C 24 35 31 2C 24 36 34 2C 24 37 39 2C 24 39 30 |,$51,$64,$79,$90|
00000D70: 2C 24 41 39 2C 24 43 34 2C 24 45 31 00 A2 15 2C |,$A9,$C4,$E1...,|
00000D80: 06 20 A5 24 30 30 2C 24 32 31 2C 24 34 34 2C 24 |. .$00,$21,$44,$|
00000D90: 36 39 2C 24 39 30 2C 24 42 39 2C 24 45 34 2C 24 |69,$90,$B9,$E4,$|
00000DA0: 31 31 00 C8 15 36 06 20 A5 24 34 30 2C 24 37 31 |11...6. .$40,$71|
00000DB0: 2C 24 41 34 2C 24 44 39 2C 24 31 30 2C 24 34 39 |,$A4,$D9,$10,$49|
00000DC0: 2C 24 38 34 2C 24 43 31 00 EE 15 40 06 20 A5 24 |,$84,$C1...@. .$|
00000DD0: 30 30 2C 24 34 31 2C 24 38 34 2C 24 43 39 2C 24 |00,$41,$84,$C9,$|
00000DE0: 31 30 2C 24 35 39 2C 24 41 34 2C 24 46 31 00 14 |10,$59,$A4,$F1..|
00000DF0: 16 4A 06 20 A5 24 34 30 2C 24 39 31 2C 24 45 34 |.J. .$40,$91,$E4|
00000E00: 2C 24 33 39 2C 24 39 30 2C 24 45 39 2C 24 34 34 |,$39,$90,$E9,$44|
00000E10: 2C 24 41 31 00 3A 16 54 06 20 A5 24 30 30 2C 24 |,$A1.:.T. .$00,$|
00000E20: 36 31 2C 24 43 34 2C 24 32 39 2C 24 39 30 2C 24 |61,$C4,$29,$90,$|
00000E30: 46 39 2C 24 36 34 2C 24 44 31 00 60 16 5E 06 20 |F9,$64,$D1.`.^. |
00000E40: A5 24 34 30 2C 24 42 31 2C 24 32 34 2C 24 39 39 |.$40,$B1,$24,$99|
00000E50: 2C 24 31 30 2C 24 38 39 2C 24 30 34 2C 24 38 31 |,$10,$89,$04,$81|
00000E60: 00 86 16 68 06 20 A5 24 30 30 2C 24 38 31 2C 24 |...h. .$00,$81,$|
00000E70: 30 34 2C 24 38 39 2C 24 31 30 2C 24 39 39 2C 24 |04,$89,$10,$99,$|
00000E80: 32 34 2C 24 42 31 00 AC 16 72 06 20 A5 24 34 30 |24,$B1...r. .$40|
00000E90: 2C 24 44 31 2C 24 36 34 2C 24 46 39 2C 24 39 30 |,$D1,$64,$F9,$90|
00000EA0: 2C 24 32 39 2C 24 43 34 2C 24 36 31 00 D2 16 7C |,$29,$C4,$61...||
00000EB0: 06 20 A5 24 30 30 2C 24 41 31 2C 24 34 34 2C 24 |. .$00,$A1,$44,$|
00000EC0: 45 39 2C 24 39 30 2C 24 33 39 2C 24 45 34 2C 24 |E9,$90,$39,$E4,$|
00000ED0: 39 31 00 F8 16 86 06 20 A5 24 34 30 2C 24 46 31 |91..... .$40,$F1|
00000EE0: 2C 24 41 34 2C 24 35 39 2C 24 31 30 2C 24 43 39 |,$A4,$59,$10,$C9|
00000EF0: 2C 24 38 34 2C 24 34 31 00 1E 17 90 06 20 A5 24 |,$84,$41..... .$|
00000F00: 30 30 2C 24 43 31 2C 24 38 34 2C 24 34 39 2C 24 |00,$C1,$84,$49,$|
00000F10: 31 30 2C 24 44 39 2C 24 41 34 2C 24 37 31 00 44 |10,$D9,$A4,$71.D|
00000F20: 17 9A 06 20 A5 24 34 30 2C 24 31 31 2C 24 45 34 |... .$40,$11,$E4|
00000F30: 2C 24 42 39 2C 24 39 30 2C 24 36 39 2C 24 34 34 |,$B9,$90,$69,$44|
00000F40: 2C 24 32 31 00 6A 17 A4 06 20 A5 24 30 30 2C 24 |,$21.j... .$00,$|
00000F50: 45 31 2C 24 43 34 2C 24 41 39 2C 24 39 30 2C 24 |E1,$C4,$A9,$90,$|
00000F60: 37 39 2C 24 36 34 2C 24 35 31 00 90 17 AE 06 20 |79,$64,$51..... |
00000F70: A5 24 34 30 2C 24 33 31 2C 24 32 34 2C 24 31 39 |.$40,$31,$24,$19|
00000F80: 2C 24 31 30 2C 24 30 39 2C 24 30 34 2C 24 30 31 |,$10,$09,$04,$01|
00000F90: 00 9C 17 B8 06 4C 54 32 20 A7 31 36 00 B0 17 C2 |.....LT2 .16....|
00000FA0: 06 20 A5 31 2C 31 2C 31 2C 31 2C 31 2C 31 2C 31 |. .1,1,1,1,1,1,1|
00000FB0: 00 C8 17 CC 06 20 A5 32 2C 32 2C 32 2C 32 2C 32 |..... .2,2,2,2,2|
00000FC0: 2C 33 2C 33 2C 33 2C 33 00 DE 17 D6 06 20 A5 34 |,3,3,3,3..... .4|
00000FD0: 2C 34 2C 34 2C 34 2C 35 2C 35 2C 35 2C 35 00 FA |,4,4,4,5,5,5,5..|
00000FE0: 17 E0 06 20 A5 36 2C 36 2C 36 2C 37 2C 37 2C 37 |... .6,6,6,7,7,7|
00000FF0: 2C 38 2C 38 2C 39 2C 39 2C 39 00 15 18 EA 06 20 |,8,8,9,9,9..... |
00001000: A5 24 41 2C 24 41 2C 24 41 2C 24 42 2C 24 42 2C |.$A,$A,$A,$B,$B,|
00001010: 24 43 2C 24 43 00 31 18 F4 06 20 A5 24 44 2C 24 |$C,$C.1... .$D,$|
00001020: 44 2C 24 45 2C 24 45 2C 24 46 2C 24 46 2C 24 31 |D,$E,$E,$F,$F,$1|
00001030: 30 00 4F 18 FE 06 20 A5 24 31 30 2C 24 31 31 2C |0.O... .$10,$11,|
00001040: 24 31 31 2C 24 31 32 2C 24 31 32 2C 24 31 33 00 |$11,$12,$12,$13.|
00001050: 6D 18 08 07 20 A5 24 31 33 2C 24 31 34 2C 24 31 |m... .$13,$14,$1|
00001060: 34 2C 24 31 35 2C 24 31 35 2C 24 31 36 00 8B 18 |4,$15,$15,$16...|
00001070: 12 07 20 A5 24 31 37 2C 24 31 37 2C 24 31 38 2C |.. .$17,$17,$18,|
00001080: 24 31 39 2C 24 31 39 2C 24 31 41 00 A5 18 1C 07 |$19,$19,$1A.....|
00001090: 20 A5 24 31 41 2C 24 31 42 2C 24 31 43 2C 24 31 | .$1A,$1B,$1C,$1|
000010A0: 43 2C 24 31 44 00 BF 18 26 07 20 A5 24 31 45 2C |C,$1D...&. .$1E,|
000010B0: 24 31 45 2C 24 31 46 2C 24 32 30 2C 24 32 31 00 |$1E,$1F,$20,$21.|
000010C0: D9 18 30 07 20 A5 24 32 31 2C 24 32 32 2C 24 32 |..0. .$21,$22,$2|
000010D0: 33 2C 24 32 34 2C 24 32 34 00 F3 18 3A 07 20 A5 |3,$24,$24...:. .|
000010E0: 24 32 35 2C 24 32 36 2C 24 32 37 2C 24 32 37 2C |$25,$26,$27,$27,|
000010F0: 24 32 38 00 0D 19 44 07 20 A5 24 32 39 2C 24 32 |$28...D. .$29,$2|
00001100: 41 2C 24 32 42 2C 24 32 42 2C 24 32 43 00 27 19 |A,$2B,$2B,$2C.'.|
00001110: 4E 07 20 A5 24 32 44 2C 24 32 45 2C 24 32 46 2C |N. .$2D,$2E,$2F,|
00001120: 24 33 30 2C 24 33 31 00 41 19 58 07 20 A5 24 33 |$30,$31.A.X. .$3|
00001130: 31 2C 24 33 32 2C 24 33 33 2C 24 33 34 2C 24 33 |1,$32,$33,$34,$3|
00001140: 35 00 5B 19 62 07 20 A5 24 33 36 2C 24 33 37 2C |5.[.b. .$36,$37,|
00001150: 24 33 38 2C 24 33 39 2C 24 33 41 00 75 19 6C 07 |$38,$39,$3A.u.l.|
00001160: 20 A5 24 33 42 2C 24 33 43 2C 24 33 44 2C 24 33 | .$3B,$3C,$3D,$3|
00001170: 45 2C 24 33 46 00 8F 19 76 07 20 A5 24 34 30 2C |E,$3F...v. .$40,|
00001180: 24 34 31 2C 24 34 32 2C 24 34 33 2C 24 34 34 00 |$41,$42,$43,$44.|
00001190: A9 19 80 07 20 A5 24 34 35 2C 24 34 36 2C 24 34 |.... .$45,$46,$4|
000011A0: 37 2C 24 34 38 2C 24 34 39 00 C3 19 8A 07 20 A5 |7,$48,$49..... .|
000011B0: 24 34 41 2C 24 34 42 2C 24 34 43 2C 24 34 44 2C |$4A,$4B,$4C,$4D,|
000011C0: 24 34 45 00 DD 19 94 07 20 A5 24 34 46 2C 24 35 |$4E..... .$4F,$5|
000011D0: 31 2C 24 35 32 2C 24 35 33 2C 24 35 34 00 F7 19 |1,$52,$53,$54...|
000011E0: 9E 07 20 A5 24 35 35 2C 24 35 36 2C 24 35 37 2C |.. .$55,$56,$57,|
000011F0: 24 35 39 2C 24 35 41 00 11 1A A8 07 20 A5 24 35 |$59,$5A..... .$5|
00001200: 42 2C 24 35 43 2C 24 35 44 2C 24 35 46 2C 24 36 |B,$5C,$5D,$5F,$6|
00001210: 30 00 2B 1A B2 07 20 A5 24 36 31 2C 24 36 32 2C |0.+... .$61,$62,|
00001220: 24 36 34 2C 24 36 35 2C 24 36 36 00 45 1A BC 07 |$64,$65,$66.E...|
00001230: 20 A5 24 36 37 2C 24 36 39 2C 24 36 41 2C 24 36 | .$67,$69,$6A,$6|
00001240: 42 2C 24 36 43 00 5F 1A C6 07 20 A5 24 36 45 2C |B,$6C._... .$6E,|
00001250: 24 36 46 2C 24 37 30 2C 24 37 32 2C 24 37 33 00 |$6F,$70,$72,$73.|
00001260: 79 1A D0 07 20 A5 24 37 34 2C 24 37 36 2C 24 37 |y... .$74,$76,$7|
00001270: 37 2C 24 37 39 2C 24 37 41 00 93 1A DA 07 20 A5 |7,$79,$7A..... .|
00001280: 24 37 42 2C 24 37 44 2C 24 37 45 2C 24 37 46 2C |$7B,$7D,$7E,$7F,|
00001290: 24 38 31 00 AD 1A E4 07 20 A5 24 38 32 2C 24 38 |$81..... .$82,$8|
000012A0: 34 2C 24 38 35 2C 24 38 37 2C 24 38 38 00 C7 1A |4,$85,$87,$88...|
000012B0: EE 07 20 A5 24 38 41 2C 24 38 42 2C 24 38 44 2C |.. .$8A,$8B,$8D,|
000012C0: 24 38 45 2C 24 39 30 00 E1 1A F8 07 20 A5 24 39 |$8E,$90..... .$9|
000012D0: 31 2C 24 39 33 2C 24 39 34 2C 24 39 36 2C 24 39 |1,$93,$94,$96,$9|
000012E0: 37 00 FB 1A 02 08 20 A5 24 39 39 2C 24 39 41 2C |7..... .$99,$9A,|
000012F0: 24 39 43 2C 24 39 44 2C 24 39 46 00 15 1B 0C 08 |$9C,$9D,$9F.....|
00001300: 20 A5 24 41 30 2C 24 41 32 2C 24 41 34 2C 24 41 | .$A0,$A2,$A4,$A|
00001310: 35 2C 24 41 37 00 2F 1B 16 08 20 A5 24 41 39 2C |5,$A7./... .$A9,|
00001320: 24 41 41 2C 24 41 43 2C 24 41 44 2C 24 41 46 00 |$AA,$AC,$AD,$AF.|
00001330: 49 1B 20 08 20 A5 24 42 31 2C 24 42 32 2C 24 42 |I. . .$B1,$B2,$B|
00001340: 34 2C 24 42 36 2C 24 42 37 00 63 1B 2A 08 20 A5 |4,$B6,$B7.c.*. .|
00001350: 24 42 39 2C 24 42 42 2C 24 42 44 2C 24 42 45 2C |$B9,$BB,$BD,$BE,|
00001360: 24 43 30 00 7D 1B 34 08 20 A5 24 43 32 2C 24 43 |$C0.}.4. .$C2,$C|
00001370: 34 2C 24 43 35 2C 24 43 37 2C 24 43 39 00 97 1B |4,$C5,$C7,$C9...|
00001380: 3E 08 20 A5 24 43 42 2C 24 43 43 2C 24 43 45 2C |>. .$CB,$CC,$CE,|
00001390: 24 44 30 2C 24 44 32 00 B1 1B 48 08 20 A5 24 44 |$D0,$D2...H. .$D|
000013A0: 34 2C 24 44 35 2C 24 44 37 2C 24 44 39 2C 24 44 |4,$D5,$D7,$D9,$D|
000013B0: 42 00 CB 1B 52 08 20 A5 24 44 44 2C 24 44 46 2C |B...R. .$DD,$DF,|
000013C0: 24 45 31 2C 24 45 32 2C 24 45 34 00 E5 1B 5C 08 |$E1,$E2,$E4...\.|
000013D0: 20 A5 24 45 36 2C 24 45 38 2C 24 45 41 2C 24 45 | .$E6,$E8,$EA,$E|
000013E0: 43 2C 24 45 45 00 FF 1B 66 08 20 A5 24 46 30 2C |C,$EE...f. .$F0,|
000013F0: 24 46 32 2C 24 46 34 2C 24 46 36 2C 24 46 38 00 |$F2,$F4,$F6,$F8.|
00001400: 11 1C 70 08 20 A5 24 46 41 2C 24 46 43 2C 24 46 |..p. .$FA,$FC,$F|
00001410: 45 00 37 1C B8 0B 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |E.7...;---------|
00001420: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001430: 2D 2D 2D 2D 2D 2D 2D 00 3D 1C C2 0B 3B 00 48 1C |-------.=...;.H.|
00001440: CC 0B 3B 20 50 41 47 45 00 53 1C D6 0B 3B 20 3D |..; PAGE.S...; =|
00001450: 3D 3D 3D 00 59 1C E0 0B 3B 00 76 1C EA 0B 3B 20 |===.Y...;.v...; |
00001460: 58 3D 30 3A 20 47 52 41 46 49 4B 53 45 49 54 45 |X=0: GRAFIKSEITE|
00001470: 20 24 32 30 30 30 00 94 1C F4 0B 3B 20 20 20 20 | $2000.....; |
00001480: 20 20 46 41 52 42 53 50 45 49 43 48 45 52 20 24 | FARBSPEICHER $|
00001490: 30 34 30 30 00 9A 1C FE 0B 3B 00 B7 1C 08 0C 3B |0400.....;.....;|
000014A0: 20 58 3D 31 3A 20 47 52 41 46 49 4B 53 45 49 54 | X=1: GRAFIKSEIT|
000014B0: 45 20 24 36 30 30 30 00 D5 1C 12 0C 3B 20 20 20 |E $6000.....; |
000014C0: 20 20 20 46 41 52 42 53 50 45 43 49 48 45 52 20 | FARBSPECIHER |
000014D0: 24 35 43 30 30 00 DB 1C 1C 0C 3B 00 F8 1C 26 0C |$5C00.....;...&.|
000014E0: 3B 20 58 3D 32 3A 20 47 52 41 46 49 4B 53 45 49 |; X=2: GRAFIKSEI|
000014F0: 54 45 20 24 41 30 30 30 00 16 1D 30 0C 3B 20 20 |TE $A000...0.; |
00001500: 20 20 20 20 46 41 52 42 53 50 45 49 43 48 45 52 | FARBSPEICHER|
00001510: 20 24 38 43 30 30 00 1C 1D 3A 0C 3B 00 39 1D 44 | $8C00...:.;.9.D|
00001520: 0C 3B 20 58 3D 33 3A 20 47 52 41 46 49 4B 53 45 |.; X=3: GRAFIKSE|
00001530: 49 54 45 20 24 45 30 30 30 00 57 1D 4E 0C 3B 20 |ITE $E000.W.N.; |
00001540: 20 20 20 20 20 46 41 52 42 53 50 45 49 43 48 45 | FARBSPEICHE|
00001550: 52 20 24 43 43 30 30 00 5D 1D 58 0C 3B 00 77 1D |R $CC00.].X.;.w.|
00001560: 62 0C 3B 20 58 3E 33 3A 20 57 49 52 44 20 49 47 |b.; X>3: WIRD IG|
00001570: 4E 4F 52 49 45 52 54 00 7D 1D 6C 0C 3B 00 A2 1D |NORIERT.}.l.;...|
00001580: 76 0C 3B 20 44 45 52 20 45 4E 54 53 50 52 45 43 |v.; DER ENTSPREC|
00001590: 48 45 4E 44 45 20 31 36 20 4B 20 2D 20 42 4C 4F |HENDE 16 K - BLO|
000015A0: 43 4B 00 C9 1D 80 0C 3B 20 57 49 52 44 20 41 4E |CK.....; WIRD AN|
000015B0: 47 45 57 41 45 48 4C 54 20 44 55 52 43 48 20 53 |GEWAEHLT DURCH S|
000015C0: 45 54 5A 45 4E 20 56 4F 4D 00 EF 1D 8A 0C 3B 20 |ETZEN VOM.....; |
000015D0: 43 49 41 20 23 31 20 50 4F 52 54 20 52 45 47 49 |CIA #1 PORT REGI|
000015E0: 53 54 45 52 20 41 20 28 24 44 44 30 30 29 2E 00 |STER A ($DD00)..|
000015F0: 15 1E 94 0C 3B 20 41 55 53 53 45 52 44 45 4D 20 |....; AUSSERDEM |
00001600: 57 45 52 44 45 4E 20 44 49 45 20 56 49 44 45 4F |WERDEN DIE VIDEO|
00001610: 2D 43 48 49 50 00 38 1E 9E 0C 3B 20 52 45 47 49 |-CHIP.8...; REGI|
00001620: 53 54 45 52 20 55 4E 44 20 46 4F 4C 47 45 4E 44 |STER UND FOLGEND|
00001630: 45 20 5A 45 49 47 45 52 00 47 1E A8 0C 3B 20 47 |E ZEIGER.G...; G|
00001640: 45 53 45 54 5A 54 3A 00 4D 1E B2 0C 3B 00 6E 1E |ESETZT:.M...;.n.|
00001650: BC 0C 3B 20 42 49 54 2D 4D 41 50 3A 20 42 45 47 |..; BIT-MAP: BEG|
00001660: 49 4E 20 50 41 47 45 20 2D 3E 20 48 52 42 00 8F |IN PAGE -> HRB..|
00001670: 1E C6 0C 3B 20 20 20 20 20 20 20 20 20 20 45 4E |...; EN|
00001680: 44 20 20 20 50 41 47 45 20 2D 3E 20 48 52 45 00 |D PAGE -> HRE.|
00001690: B0 1E D0 0C 3B 20 43 4F 4C 4F 52 3A 20 20 20 42 |....; COLOR: B|
000016A0: 45 47 49 4E 20 50 41 47 45 20 2D 3E 20 43 4F 4C |EGIN PAGE -> COL|
000016B0: 00 B6 1E DA 0C 3B 00 DC 1E E4 0C 3B 2D 2D 2D 2D |.....;.....;----|
000016C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000016D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 E9 1E EE |------------....|
000016E0: 0C 50 41 47 45 20 C0 23 34 00 F6 1E F8 0C 20 F4 |.PAGE .#4..... .|
000016F0: 41 43 43 45 50 54 00 FD 1E 02 0D 20 E3 00 0E 1F |ACCEPT..... ....|
00001700: 0C 0D 41 43 43 45 50 54 20 CA 23 24 33 42 00 1A |..ACCEPT .#$3B..|
00001710: 1F 16 0D 20 D2 24 44 30 31 31 00 25 1F 20 0D 20 |... .$D011.%. . |
00001720: CA 23 24 43 38 00 31 1F 2A 0D 20 D2 24 44 30 31 |.#$C8.1.*. .$D01|
00001730: 36 00 3D 1F 34 0D 20 CA 50 47 31 2C 58 00 49 1F |6.=.4. .PG1,X.I.|
00001740: 3E 0D 20 D2 24 44 30 31 38 00 50 1F 48 0D 20 D7 |>. .$D018.P.H. .|
00001750: 00 59 1F 52 0D 20 C8 23 33 00 65 1F 5C 0D 20 D2 |.Y.R. .#3.e.\. .|
00001760: 24 44 44 30 30 00 74 1F 66 0D 50 4F 49 4E 54 45 |$DD00.t.f.POINTE|
00001770: 52 53 20 D7 00 7B 1F 70 0D 20 E5 00 82 1F 7A 0D |RS ..{.p. ....z.|
00001780: 20 D0 00 89 1F 84 0D 20 D0 00 90 1F 8E 0D 20 D0 | ...... ...... .|
00001790: 00 9B 1F 98 0D 20 C5 23 24 32 30 00 A5 1F A2 0D |..... .#$20.....|
000017A0: 20 D2 48 52 42 00 B0 1F AC 0D 20 C5 23 24 32 30 | .HRB..... .#$20|
000017B0: 00 BA 1F B6 0D 20 D2 48 52 45 00 C6 1F C0 0D 20 |..... .HRE..... |
000017C0: CA 50 47 32 2C 58 00 D0 1F CA 0D 20 D2 43 4F 4C |.PG2,X..... .COL|
000017D0: 00 D7 1F D4 0D 20 E3 00 FD 1F DE 0D 3B 2D 2D 2D |..... ......;---|
000017E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000017F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 0A 20 |-------------.. |
00001800: E8 0D 3B 20 44 45 53 49 47 4E 00 17 20 F2 0D 3B |..; DESIGN.. ..;|
00001810: 20 3D 3D 3D 3D 3D 3D 00 35 20 FC 0D 3B 20 57 41 | ======.5 ..; WA|
00001820: 45 48 4C 54 20 4E 55 52 20 44 49 45 20 41 4B 54 |EHLT NUR DIE AKT|
00001830: 55 45 4C 4C 45 00 58 20 06 0E 3B 20 47 52 41 46 |UELLE.X ..; GRAF|
00001840: 49 4B 53 45 49 54 45 20 41 55 53 20 28 45 52 4D |IKSEITE AUS (ERM|
00001850: 4F 45 47 4C 49 43 48 54 00 76 20 10 0E 3B 20 22 |OEGLICHT.v ..; "|
00001860: 56 45 52 44 45 43 4B 54 45 53 22 20 5A 45 49 43 |VERDECKTES" ZEIC|
00001870: 48 4E 45 4E 29 2E 00 9C 20 1A 0E 3B 2D 2D 2D 2D |HNEN)... ..;----|
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 00 AB 20 24 |------------.. $|
000018A0: 0E 44 45 53 49 47 4E 20 C0 23 34 00 BA 20 2E 0E |.DESIGN .#4.. ..|
000018B0: 20 F4 50 4F 49 4E 54 45 52 53 00 C1 20 38 0E 20 | .POINTERS.. 8. |
000018C0: E3 00 E7 20 42 0E 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |... B.;---------|
000018D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000018E0: 2D 2D 2D 2D 2D 2D 2D 00 03 21 4C 0E 3B 20 4F 46 |-------..!L.; OF|
000018F0: 46 3A 20 47 52 41 46 49 4B 2D 53 45 49 54 45 20 |F: GRAFIK-SEITE |
00001900: 41 55 53 00 29 21 56 0E 3B 2D 2D 2D 2D 2D 2D 2D |AUS.)!V.;-------|
00001910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001920: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 37 21 60 0E 4F 46 |---------.7!`.OF|
00001930: 46 20 CA 23 24 31 42 00 43 21 6A 0E 20 D2 24 44 |F .#$1B.C!j. .$D|
00001940: 30 31 31 00 4E 21 74 0E 20 CA 23 24 31 35 00 5A |011.N!t. .#$15.Z|
00001950: 21 7E 0E 20 D2 24 44 30 31 38 00 63 21 88 0E 20 |!~. .$D018.c!.. |
00001960: CA 23 33 00 6F 21 92 0E 20 D2 24 44 44 30 30 00 |.#3.o!.. .$DD00.|
00001970: 76 21 9C 0E 20 E3 00 9C 21 A6 0E 3B 2D 2D 2D 2D |v!.. ...!..;----|
00001980: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001990: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 C0 21 B0 |------------..!.|
000019A0: 0E 3B 20 49 4E 56 3A 20 47 52 41 46 49 4B 2D 53 |.; INV: GRAFIK-S|
000019B0: 45 49 54 45 20 49 4E 56 45 52 54 49 45 52 45 4E |EITE INVERTIEREN|
000019C0: 00 E6 21 BA 0E 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..!..;----------|
000019D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000019E0: 2D 2D 2D 2D 2D 2D 00 F2 21 C4 0E 49 4E 56 20 52 |------..!..INV R|
000019F0: 41 4D 00 FB 21 CE 0E 20 C3 23 30 00 05 22 D8 0E |AM..!.. .#0.."..|
00001A00: 20 D4 48 52 50 00 0F 22 E2 0E 20 C2 48 52 42 00 | .HRP..".. .HRB.|
00001A10: 1B 22 EC 0E 20 D3 48 52 50 2B 31 00 2C 22 F6 0E |.".. .HRP+1.,"..|
00001A20: 49 4C 50 20 CA 28 48 52 50 29 2C 59 00 37 22 00 |ILP .(HRP),Y.7".|
00001A30: 0F 20 C8 23 24 46 46 00 45 22 0A 0F 20 D2 28 48 |. .#$FF.E".. .(H|
00001A40: 52 50 29 2C 59 00 4C 22 14 0F 20 ED 00 56 22 1E |RP),Y.L".. ..V".|
00001A50: 0F 20 F6 49 4C 50 00 62 22 28 0F 20 C9 48 52 50 |. .ILP.b"(. .HRP|
00001A60: 2B 31 00 69 22 32 0F 20 EF 00 73 22 3C 0F 20 C0 |+1.i"2. ..s"<. .|
00001A70: 48 52 45 00 7D 22 46 0F 20 F6 49 4C 50 00 86 22 |HRE.}"F. .ILP.."|
00001A80: 50 0F 20 52 4F 4D 00 8D 22 5A 0F 20 E3 00 B3 22 |P. ROM.."Z. ..."|
00001A90: 64 0F 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |d.;-------------|
00001AA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001AB0: 2D 2D 2D 00 D5 22 6E 0F 3B 20 43 4C 45 41 52 3A |---.."n.; CLEAR:|
00001AC0: 20 47 52 41 46 49 4B 53 45 49 54 45 20 4C 4F 45 | GRAFIKSEITE LOE|
00001AD0: 53 43 48 45 4E 00 FB 22 78 0F 3B 2D 2D 2D 2D 2D |SCHEN.."x.;-----|
00001AE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 09 23 82 0F |-----------..#..|
00001B00: 43 4C 45 41 52 20 CA 23 30 00 13 23 8C 0F 20 D2 |CLEAR .#0..#.. .|
00001B10: 48 52 50 00 1D 23 96 0F 20 C2 48 52 42 00 29 23 |HRP..#.. .HRB.)#|
00001B20: A0 0F 20 D3 48 52 50 2B 31 00 30 23 AA 0F 20 DA |.. .HRP+1.0#.. .|
00001B30: 00 41 23 B4 0F 43 4C 50 20 D2 28 48 52 50 29 2C |.A#..CLP .(HRP),|
00001B40: 59 00 48 23 BE 0F 20 ED 00 52 23 C8 0F 20 F6 43 |Y.H#.. ..R#.. .C|
00001B50: 4C 50 00 5E 23 D2 0F 20 C9 48 52 50 2B 31 00 65 |LP.^#.. .HRP+1.e|
00001B60: 23 DC 0F 20 EF 00 6F 23 E6 0F 20 C0 48 52 45 00 |#.. ..o#.. .HRE.|
00001B70: 79 23 F0 0F 20 F6 43 4C 50 00 80 23 FA 0F 20 E3 |y#.. .CLP..#.. .|
00001B80: 00 A6 23 04 10 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..#..;----------|
00001B90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001BA0: 2D 2D 2D 2D 2D 2D 00 C9 23 0E 10 3B 20 43 4F 4C |------..#..; COL|
00001BB0: 4F 52 3A 20 46 55 45 4C 4C 54 20 47 45 53 41 4D |OR: FUELLT GESAM|
00001BC0: 54 45 4E 20 46 41 52 42 2D 00 ED 23 18 10 3B 20 |TEN FARB-..#..; |
00001BD0: 53 50 45 49 43 48 45 52 20 4D 49 54 20 49 4E 48 |SPEICHER MIT INH|
00001BE0: 41 4C 54 20 44 45 53 20 41 4B 4B 55 53 00 F3 23 |ALT DES AKKUS..#|
00001BF0: 22 10 3B 00 18 24 2C 10 3B 20 48 49 47 48 20 34 |".;..$,.; HIGH 4|
00001C00: 20 42 49 54 53 20 3A 20 20 43 4F 4C 4F 52 20 4F | BITS : COLOR O|
00001C10: 46 20 31 2D 42 49 54 53 00 3D 24 36 10 3B 20 20 |F 1-BITS.=$6.; |
00001C20: 4C 4F 57 20 34 20 42 49 54 53 20 3A 20 20 43 4F |LOW 4 BITS : CO|
00001C30: 4C 4F 52 20 4F 46 20 30 2D 42 49 54 53 00 63 24 |LOR OF 0-BITS.c$|
00001C40: 40 10 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |@.;-------------|
00001C50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001C60: 2D 2D 2D 00 71 24 4A 10 43 4F 4C 4F 52 20 C3 23 |---.q$J.COLOR .#|
00001C70: 30 00 7B 24 54 10 20 D4 48 52 50 00 85 24 5E 10 |0.{$T. .HRP..$^.|
00001C80: 20 C2 43 4F 4C 00 91 24 68 10 20 D3 48 52 50 2B | .COL..$h. .HRP+|
00001C90: 31 00 9A 24 72 10 20 C2 23 33 00 AE 24 7C 10 43 |1..$r. .#3..$|.C|
00001CA0: 4F 4C 53 45 54 20 D2 28 48 52 50 29 2C 59 00 B5 |OLSET .(HRP),Y..|
00001CB0: 24 86 10 20 ED 00 C2 24 90 10 20 F6 43 4F 4C 53 |$.. ...$.. .COLS|
00001CC0: 45 54 00 CE 24 9A 10 20 C9 48 52 50 2B 31 00 D5 |ET..$.. .HRP+1..|
00001CD0: 24 A4 10 20 EE 00 E2 24 AE 10 20 F0 43 4F 4C 53 |$.. ...$.. .COLS|
00001CE0: 45 54 00 E9 24 B8 10 20 E3 00 0F 25 C2 10 3B 2D |ET..$.. ...%..;-|
00001CF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001D00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
00001D10: 34 25 CC 10 3B 20 53 45 54 43 4F 4C 3A 20 53 45 |4%..; SETCOL: SE|
00001D20: 54 5A 54 20 46 41 52 42 45 20 46 55 45 52 20 38 |TZT FARBE FUER 8|
00001D30: 20 2A 20 38 00 4C 25 D6 10 3B 20 20 20 20 20 20 | * 8.L%..; |
00001D40: 20 20 20 42 49 54 2D 42 4C 4F 43 4B 00 52 25 E0 | BIT-BLOCK.R%.|
00001D50: 10 3B 00 70 25 EA 10 3B 20 20 20 20 20 20 20 41 |.;.p%..; A|
00001D60: 20 3D 20 5A 45 49 4C 45 20 20 28 30 2D 32 34 29 | = ZEILE (0-24)|
00001D70: 00 8E 25 F4 10 3B 20 20 20 20 20 20 20 58 20 3D |..%..; X =|
00001D80: 20 53 50 41 4C 54 45 20 28 30 2D 33 39 29 00 AC | SPALTE (0-39)..|
00001D90: 25 FE 10 3B 20 20 20 20 20 20 20 59 20 3D 20 46 |%..; Y = F|
00001DA0: 41 52 42 45 20 20 28 30 2D 31 35 29 00 D2 25 08 |ARBE (0-15)..%.|
00001DB0: 11 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------|
00001DC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001DD0: 2D 2D 00 EB 25 12 11 53 45 54 43 4F 4C 20 C0 23 |--..%..SETCOL .#|
00001DE0: 34 30 3B 58 20 3C 20 34 30 20 21 00 F7 25 1C 11 |40;X < 40 !..%..|
00001DF0: 20 F5 4E 4F 43 4F 4C 00 0A 26 26 11 20 C4 23 32 | .NOCOL..&&. .#2|
00001E00: 35 3B 41 20 3C 20 32 35 20 21 00 18 26 30 11 20 |5;A < 25 !..&0. |
00001E10: F4 4E 4F 43 4F 4C 2B 31 00 24 26 3A 11 4E 4F 43 |.NOCOL+1.$&:.NOC|
00001E20: 4F 4C 20 E3 00 36 26 44 11 20 CB 3B 41 20 3A 3D |OL ..6&D. .;A :=|
00001E30: 20 41 20 2A 20 38 00 3D 26 4E 11 20 CB 00 44 26 | A * 8.=&N. ..D&|
00001E40: 58 11 20 CB 00 4B 26 62 11 20 DF 00 55 26 6C 11 |X. ..K&b. ..U&l.|
00001E50: 20 D2 48 52 50 00 5E 26 76 11 20 CA 23 30 00 6A | .HRP.^&v. .#0.j|
00001E60: 26 80 11 20 D2 48 52 50 2B 31 00 74 26 8A 11 20 |&.. .HRP+1.t&.. |
00001E70: CB 48 52 50 00 80 26 94 11 20 CF 48 52 50 2B 31 |.HRP..&.. .HRP+1|
00001E80: 00 90 26 9E 11 20 CB 48 52 50 3B 48 52 50 20 3D |..&.. .HRP;HRP =|
00001E90: 00 A4 26 A8 11 20 CF 48 52 50 2B 31 3B 20 41 20 |..&.. .HRP+1; A |
00001EA0: 2A 20 33 32 00 AB 26 B2 11 20 E0 00 B9 26 BC 11 |* 32..&.. ...&..|
00001EB0: 20 E5 3B 48 52 50 20 3A 3D 00 CD 26 C6 11 20 C5 | .;HRP :=..&.. .|
00001EC0: 48 52 50 3B 48 52 50 20 2B 20 41 2A 38 00 D7 26 |HRP;HRP + A*8..&|
00001ED0: D0 11 20 D2 48 52 50 00 E3 26 DA 11 20 CA 23 30 |.. .HRP..&.. .#0|
00001EE0: 3B 2D 3E 00 FA 26 E4 11 20 C5 48 52 50 2B 31 3B |;->..&.. .HRP+1;|
00001EF0: 48 52 50 20 3D 20 41 2A 34 30 00 06 27 EE 11 20 |HRP = A*40..'.. |
00001F00: D2 48 52 50 2B 31 00 15 27 F8 11 20 D7 3B 43 20 |.HRP+1..'.. .;C |
00001F10: 3D 20 30 20 21 00 1F 27 02 12 20 C5 48 52 50 00 |= 0 !..'.. .HRP.|
00001F20: 34 27 0C 12 20 D2 48 52 50 3B 48 52 50 3A 3D 48 |4'.. .HRP;HRP:=H|
00001F30: 52 50 2B 58 00 40 27 16 12 20 CA 48 52 50 2B 31 |RP+X.@'.. .HRP+1|
00001F40: 00 54 27 20 12 20 C5 43 4F 4C 3B 41 44 44 20 43 |.T' . .COL;ADD C|
00001F50: 4F 4C 4F 52 00 69 27 2A 12 20 D2 48 52 50 2B 31 |OLOR.i'*. .HRP+1|
00001F60: 3B 52 41 4D 20 42 41 53 45 00 7A 27 34 12 20 C2 |;RAM BASE.z'4. .|
00001F70: 23 30 3B 41 44 44 52 45 53 53 00 88 27 3E 12 20 |#0;ADDRESS..'>. |
00001F80: CA 28 48 52 50 2C 58 29 00 9A 27 48 12 20 C6 23 |.(HRP,X)..'H. .#|
00001F90: 24 46 3B 49 53 4F 4C 41 54 45 00 B3 27 52 12 20 |$F;ISOLATE..'R. |
00001FA0: D2 28 48 52 50 2C 58 29 3B 42 41 43 4B 47 52 4F |.(HRP,X);BACKGRO|
00001FB0: 55 4E 44 00 C0 27 5C 12 20 D9 3B 43 4F 4C 4F 52 |UND..'\. .;COLOR|
00001FC0: 00 C7 27 66 12 20 CB 00 D9 27 70 12 20 CB 3B 48 |..'f. ...'p. .;H|
00001FD0: 49 47 48 20 34 20 42 49 54 00 EA 27 7A 12 20 CB |IGH 4 BIT..'z. .|
00001FE0: 3B 50 45 4E 20 43 4F 4C 4F 52 00 F1 27 84 12 20 |;PEN COLOR..'.. |
00001FF0: CB 00 07 28 8E 12 20 CE 28 48 52 50 2C 58 29 3B |...(.. .(HRP,X);|
00002000: 53 45 54 20 4E 45 57 00 1B 28 98 12 20 D2 28 48 |SET NEW..(.. .(H|
00002010: 52 50 2C 58 29 3B 43 4F 4C 4F 52 00 22 28 A2 12 |RP,X);COLOR."(..|
00002020: 20 E3 00 48 28 88 13 3B 2D 2D 2D 2D 2D 2D 2D 2D | ..H(..;--------|
00002030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002040: 2D 2D 2D 2D 2D 2D 2D 2D 00 4E 28 92 13 3B 00 72 |--------.N(..;.r|
00002050: 28 9C 13 3B 20 20 41 43 43 45 53 53 20 53 49 4E |(..; ACCESS SIN|
00002060: 47 4C 45 20 44 4F 54 20 49 4E 20 42 49 54 2D 4D |GLE DOT IN BIT-M|
00002070: 41 50 00 96 28 A6 13 3B 20 20 3D 3D 3D 3D 3D 3D |AP..(..; ======|
00002080: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00002090: 3D 3D 3D 3D 3D 3D 00 9C 28 B0 13 3B 00 BE 28 BA |======..(..;..(.|
000020A0: 13 3B 20 20 4B 4F 4F 52 44 49 4E 41 54 45 4E 20 |.; KOORDINATEN |
000020B0: 57 45 52 44 45 4E 20 47 45 53 45 54 5A 54 00 E0 |WERDEN GESETZT..|
000020C0: 28 C4 13 3B 20 20 4E 41 43 48 20 41 4B 4B 55 2C |(..; NACH AKKU,|
000020D0: 20 58 2C 20 59 20 52 45 47 49 53 54 45 52 4E 3A | X, Y REGISTERN:|
000020E0: 00 E6 28 CE 13 3B 00 0A 29 D8 13 3B 20 20 58 2D |..(..;..)..; X-|
000020F0: 41 43 48 53 45 3A 20 28 41 2F 58 29 20 20 20 20 |ACHSE: (A/X) |
00002100: 59 2D 41 43 48 53 45 3A 20 59 00 10 29 E2 13 3B |Y-ACHSE: Y..)..;|
00002110: 00 33 29 EC 13 3B 20 20 44 49 45 20 5A 55 4C 41 |.3)..; DIE ZULA|
00002120: 45 53 53 49 47 45 4E 20 57 45 52 54 45 20 53 49 |ESSIGEN WERTE SI|
00002130: 4E 44 3A 00 39 29 F6 13 3B 00 59 29 00 14 3B 20 |ND:.9)..;.Y)..; |
00002140: 20 20 20 20 30 20 3C 3D 20 28 58 2D 41 43 48 53 | 0 <= (X-ACHS|
00002150: 45 29 20 3C 3D 20 33 31 39 00 79 29 0A 14 3B 20 |E) <= 319.y)..; |
00002160: 20 20 20 20 30 20 3C 3D 20 28 59 2D 41 43 48 53 | 0 <= (Y-ACHS|
00002170: 45 29 20 3C 3D 20 31 39 39 00 7F 29 14 14 3B 00 |E) <= 199..)..;.|
00002180: A5 29 1E 14 3B 20 41 4E 44 45 52 45 20 57 45 52 |.)..; ANDERE WER|
00002190: 54 45 20 57 45 52 44 45 4E 20 49 47 4E 4F 52 49 |TE WERDEN IGNORI|
000021A0: 45 52 54 20 2D 00 C8 29 28 14 3B 20 44 49 45 20 |ERT -..)(.; DIE |
000021B0: 52 4F 55 54 49 4E 45 20 57 49 52 44 20 4F 48 4E |ROUTINE WIRD OHN|
000021C0: 45 20 4E 45 42 45 4E 2D 00 E0 29 32 14 3B 20 57 |E NEBEN-..)2.; W|
000021D0: 49 52 4B 55 4E 47 20 56 45 52 4C 41 53 53 45 4E |IRKUNG VERLASSEN|
000021E0: 00 E6 29 3C 14 3B 00 0D 2A 46 14 3B 20 44 49 45 |..)<.;..*F.; DIE|
000021F0: 20 41 55 53 5A 55 46 55 45 48 52 45 4E 44 45 20 | AUSZUFUEHRENDE |
00002200: 4F 50 45 52 41 54 49 4F 4E 20 49 53 54 00 25 2A |OPERATION IST.%*|
00002210: 50 14 3B 20 49 4E 20 24 30 30 30 32 20 4B 4F 44 |P.; IN $0002 KOD|
00002220: 49 45 52 54 3A 00 2B 2A 5A 14 3B 00 51 2A 64 14 |IERT:.+*Z.;.Q*d.|
00002230: 3B 20 20 20 20 28 24 30 30 30 32 29 20 3D 20 30 |; ($0002) = 0|
00002240: 20 20 20 20 20 3D 3E 20 43 4C 45 41 52 20 44 4F | => CLEAR DO|
00002250: 54 00 77 2A 6E 14 3B 20 4D 53 42 28 24 30 30 30 |T.w*n.; MSB($000|
00002260: 32 29 20 4E 4F 54 20 53 45 54 20 3D 3E 20 53 45 |2) NOT SET => SE|
00002270: 54 20 20 20 44 4F 54 00 9D 2A 78 14 3B 20 4D 53 |T DOT..*x.; MS|
00002280: 42 28 24 30 30 30 32 29 20 53 45 54 20 20 20 20 |B($0002) SET |
00002290: 20 3D 3E 20 54 45 53 54 20 20 44 4F 54 00 A3 2A | => TEST DOT..*|
000022A0: 82 14 3B 00 C9 2A 8C 14 3B 20 22 41 43 43 45 53 |..;..*..; "ACCES|
000022B0: 53 22 20 57 49 52 44 20 41 55 46 47 45 52 55 46 |S" WIRD AUFGERUF|
000022C0: 45 4E 2C 20 46 41 4C 4C 53 00 EA 2A 96 14 3B 20 |EN, FALLS..*..; |
000022D0: 24 30 30 30 32 20 53 43 48 4F 4E 20 47 45 53 45 |$0002 SCHON GESE|
000022E0: 54 5A 54 20 57 55 52 44 45 2E 00 F0 2A A0 14 3B |TZT WURDE...*..;|
000022F0: 00 14 2B AA 14 3B 20 43 4C 45 41 52 44 4F 54 2C |..+..; CLEARDOT,|
00002300: 20 53 45 54 20 55 4E 44 20 54 45 53 54 20 53 45 | SET UND TEST SE|
00002310: 54 5A 45 4E 00 37 2B B4 14 3B 20 24 30 30 30 32 |TZEN.7+..; $0002|
00002320: 20 56 4F 52 20 41 55 46 52 55 46 20 56 4F 4E 20 | VOR AUFRUF VON |
00002330: 41 43 43 45 53 53 2E 00 3D 2B BE 14 3B 00 62 2B |ACCESS..=+..;.b+|
00002340: C8 14 3B 20 22 54 45 53 54 20 44 4F 54 22 20 20 |..; "TEST DOT" |
00002350: 20 43 3D 30 20 3A 20 44 4F 54 20 4E 4F 54 20 53 | C=0 : DOT NOT S|
00002360: 45 54 00 83 2B D2 14 3B 20 20 4C 49 45 46 45 52 |ET..+..; LIEFER|
00002370: 54 3A 20 20 20 20 43 3D 31 20 3A 20 44 4F 54 20 |T: C=1 : DOT |
00002380: 53 45 54 00 89 2B DC 14 3B 00 AF 2B E6 14 3B 2D |SET..+..;..+..;-|
00002390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000023A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
000023B0: BE 2B F0 14 43 4C 45 41 52 44 4F 54 20 DF 00 C7 |.+..CLEARDOT ...|
000023C0: 2B FA 14 20 CA 23 30 00 D2 2B 04 15 20 F7 43 4F |+.. .#0..+.. .CO|
000023D0: 4E 54 00 DC 2B 0E 15 53 45 54 20 DF 00 E5 2B 18 |NT..+..SET ...+.|
000023E0: 15 20 CA 23 31 00 F0 2B 22 15 20 F6 43 4F 4E 54 |. .#1..+". .CONT|
000023F0: 00 FB 2B 2C 15 54 45 53 54 20 DF 00 06 2C 36 15 |..+,.TEST ...,6.|
00002400: 20 CA 23 24 46 46 00 12 2C 40 15 43 4F 4E 54 20 | .#$FF..,@.CONT |
00002410: D2 32 00 19 2C 4A 15 20 E0 00 1F 2C 54 15 3B 00 |.2..,J. ...,T.;.|
00002420: 40 2C 5E 15 3B 20 20 20 2A 2A 2A 20 43 4F 4F 52 |@,^.; *** COOR|
00002430: 44 49 4E 41 54 45 20 43 48 45 43 4B 20 2A 2A 2A |DINATE CHECK ***|
00002440: 00 46 2C 68 15 3B 00 57 2C 72 15 41 43 43 45 53 |.F,h.;.W,r.ACCES|
00002450: 53 20 C1 23 24 43 38 00 65 2C 7C 15 20 F5 44 49 |S .#$C8.e,|. .DI|
00002460: 53 43 41 52 44 00 6E 2C 86 15 20 C0 23 31 00 7E |SCARD.n,.. .#1.~|
00002470: 2C 90 15 20 F4 41 43 43 45 50 54 44 4F 54 00 8C |,.. .ACCEPTDOT..|
00002480: 2C 9A 15 20 F6 44 49 53 43 41 52 44 00 97 2C A4 |,.. .DISCARD..,.|
00002490: 15 20 C4 23 24 34 30 00 A7 2C AE 15 20 F4 41 43 |. .#$40..,.. .AC|
000024A0: 43 45 50 54 44 4F 54 00 B5 2C B8 15 44 49 53 43 |CEPTDOT..,..DISC|
000024B0: 41 52 44 20 E3 00 BB 2C C2 15 3B 00 E0 2C CC 15 |ARD ...,..;..,..|
000024C0: 3B 2A 2A 2A 20 43 4F 4D 50 55 54 45 20 42 49 54 |;*** COMPUTE BIT|
000024D0: 2D 4D 41 50 20 50 4F 49 4E 54 45 52 20 2A 2A 2A |-MAP POINTER ***|
000024E0: 00 E6 2C D6 15 3B 00 F6 2C E0 15 41 43 43 45 50 |..,..;..,..ACCEP|
000024F0: 54 44 4F 54 20 DF 00 01 2D EA 15 20 C6 23 24 46 |TDOT ...-.. .#$F|
00002500: 38 00 0B 2D F4 15 20 D2 48 52 50 00 12 2D FE 15 |8..-.. .HRP..-..|
00002510: 20 D7 00 19 2D 08 16 20 E5 00 23 2D 12 16 20 C5 | ...-.. ..#-.. .|
00002520: 48 52 42 00 2F 2D 1C 16 20 D2 48 52 50 2B 31 00 |HRB./-.. .HRP+1.|
00002530: 36 2D 26 16 20 D9 00 3D 2D 30 16 20 CD 00 44 2D |6-&. ..=-0. ..D-|
00002540: 3A 16 20 CD 00 4B 2D 44 16 20 CD 00 5D 2D 4E 16 |:. ..K-D. ..]-N.|
00002550: 20 D8 3B 30 3C 3D 20 58 20 3C 3D 32 35 00 6A 2D | .;0<= X <=25.j-|
00002560: 58 16 20 CA 54 41 42 31 2C 58 00 71 2D 62 16 20 |X. .TAB1,X.q-b. |
00002570: E5 00 7B 2D 6C 16 20 C5 48 52 50 00 85 2D 76 16 |..{-l. .HRP..-v.|
00002580: 20 D2 48 52 50 00 92 2D 80 16 20 CA 54 41 42 32 | .HRP..-.. .TAB2|
00002590: 2C 58 00 9E 2D 8A 16 20 C5 48 52 50 2B 31 00 AA |,X..-.. .HRP+1..|
000025A0: 2D 94 16 20 D2 48 52 50 2B 31 00 B1 2D 9E 16 20 |-.. .HRP+1..-.. |
000025B0: D9 00 BA 2D A8 16 20 C6 23 37 00 C4 2D B2 16 20 |...-.. .#7..-.. |
000025C0: C5 48 52 50 00 CE 2D BC 16 20 D2 48 52 50 00 D7 |.HRP..-.. .HRP..|
000025D0: 2D C6 16 20 52 41 4D 00 DE 2D D0 16 20 E0 00 E7 |-.. RAM..-.. ...|
000025E0: 2D DA 16 20 C6 23 37 00 F9 2D E4 16 20 C8 23 37 |-.. .#7..-.. .#7|
000025F0: 3B 41 20 3A 3D 20 37 2D 41 00 00 2E EE 16 20 D8 |;A := 7-A..... .|
00002600: 00 17 2E F8 16 20 CA 54 41 42 33 2C 58 3B 30 20 |..... .TAB3,X;0 |
00002610: 3C 3D 58 3C 3D 20 37 00 3D 2E 02 17 3B 2A 2A 2A |<=X<= 7.=...;***|
00002620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 63 2E |*************.c.|
00002640: 0C 17 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 |..;* |
00002650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002660: 20 20 2A 00 89 2E 16 17 3B 2A 20 41 43 43 55 20 | *.....;* ACCU |
00002670: 4E 4F 57 20 43 4F 4E 54 41 49 4E 53 20 42 49 54 |NOW CONTAINS BIT|
00002680: 2D 4D 41 53 4B 20 2E 20 2A 00 AF 2E 20 17 3B 2A |-MASK . *... .;*|
00002690: 20 48 52 50 20 50 4F 49 4E 54 53 20 54 4F 20 42 | HRP POINTS TO B|
000026A0: 49 54 2D 4D 41 50 20 4D 45 4D 4F 52 59 20 2A 00 |IT-MAP MEMORY *.|
000026B0: D5 2E 2A 17 3B 2A 20 54 4F 20 54 48 45 20 42 59 |..*.;* TO THE BY|
000026C0: 54 45 20 43 4F 4E 54 41 49 4E 49 4E 47 20 54 48 |TE CONTAINING TH|
000026D0: 45 20 20 20 2A 00 FB 2E 34 17 3B 2A 20 41 43 54 |E *...4.;* ACT|
000026E0: 55 41 4C 20 44 4F 54 2E 20 20 20 20 20 20 20 20 |UAL DOT. |
000026F0: 20 20 20 20 20 20 20 20 20 20 2A 00 21 2F 3E 17 | *.!/>.|
00002700: 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;* |
00002710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002720: 2A 00 47 2F 48 17 3B 2A 20 4F 50 45 52 41 54 49 |*.G/H.;* OPERATI|
00002730: 4F 4E 20 53 55 42 4A 45 43 54 20 54 4F 20 24 30 |ON SUBJECT TO $0|
00002740: 30 30 32 20 20 20 2A 00 6D 2F 52 17 3B 2A 20 43 |002 *.m/R.;* C|
00002750: 4F 4E 54 45 4E 54 53 20 49 53 20 4E 4F 57 20 45 |ONTENTS IS NOW E|
00002760: 58 45 43 55 54 45 44 20 2E 20 20 20 2A 00 93 2F |XECUTED . *../|
00002770: 5C 17 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 |\.;* |
00002780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002790: 20 20 2A 00 B9 2F 66 17 3B 2A 2A 2A 2A 2A 2A 2A | *../f.;*******|
000027A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000027B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C2 2F 70 17 20 C3 |*********../p. .|
000027C0: 23 30 00 CA 2F 7A 17 20 C2 32 00 D8 2F 84 17 20 |#0../z. .2../.. |
000027D0: F1 54 45 53 54 44 4F 54 00 E5 2F 8E 17 20 F6 53 |.TESTDOT../.. .S|
000027E0: 45 54 44 4F 54 00 F3 2F 98 17 20 C6 28 48 52 50 |ETDOT../.. .(HRP|
000027F0: 29 2C 59 00 01 30 A2 17 20 C8 28 48 52 50 29 2C |),Y..0.. .(HRP),|
00002800: 59 00 0F 30 AC 17 20 D2 28 48 52 50 29 2C 59 00 |Y..0.. .(HRP),Y.|
00002810: 18 30 B6 17 20 52 4F 4D 00 1F 30 C0 17 20 E3 00 |.0.. ROM..0.. ..|
00002820: 33 30 CA 17 53 45 54 44 4F 54 20 CE 28 48 52 50 |30..SETDOT .(HRP|
00002830: 29 2C 59 00 41 30 D4 17 20 D2 28 48 52 50 29 2C |),Y.A0.. .(HRP),|
00002840: 59 00 4A 30 DE 17 20 52 4F 4D 00 51 30 E8 17 20 |Y.J0.. ROM.Q0.. |
00002850: E3 00 66 30 F2 17 54 45 53 54 44 4F 54 20 C6 28 |..f0..TESTDOT .(|
00002860: 48 52 50 29 2C 59 00 73 30 FC 17 20 F7 4E 4F 54 |HRP),Y.s0.. .NOT|
00002870: 53 45 54 00 7C 30 06 18 20 52 4F 4D 00 83 30 10 |SET.|0.. ROM..0.|
00002880: 18 20 E6 00 8A 30 1A 18 20 E3 00 99 30 24 18 4E |. ...0.. ...0$.N|
00002890: 4F 54 53 45 54 20 52 4F 4D 00 A0 30 2E 18 20 E5 |OTSET ROM..0.. .|
000028A0: 00 A7 30 38 18 20 E3 00 CD 30 42 18 3B 2D 2D 2D |..08. ...0B.;---|
000028B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000028C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 D3 30 |-------------..0|
000028D0: 4C 18 3B 00 F1 30 56 18 3B 20 20 20 20 20 20 20 |L.;..0V.; |
000028E0: 44 52 41 57 2F 43 4C 45 41 52 20 41 20 4C 49 4E |DRAW/CLEAR A LIN|
000028F0: 45 00 0F 31 60 18 3B 20 20 20 20 20 20 20 3D 3D |E..1`.; ==|
00002900: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
00002910: 15 31 6A 18 3B 00 37 31 74 18 3B 20 44 49 45 53 |.1j.;.71t.; DIES|
00002920: 45 20 52 4F 55 54 49 4E 45 20 5A 45 49 43 48 4E |E ROUTINE ZEICHN|
00002930: 45 54 20 42 5A 57 2E 00 58 31 7E 18 3B 20 4C 4F |ET BZW..X1~.; LO|
00002940: 45 53 43 48 54 20 45 49 4E 45 20 4C 49 4E 49 45 |ESCHT EINE LINIE|
00002950: 20 56 4F 4E 20 44 45 4E 00 7E 31 88 18 3B 20 4B | VON DEN.~1..; K|
00002960: 4F 4F 52 44 49 4E 41 54 45 4E 20 28 58 30 2C 59 |OORDINATEN (X0,Y|
00002970: 30 29 20 5A 55 20 28 58 31 2C 59 31 29 2E 00 A1 |0) ZU (X1,Y1)...|
00002980: 31 92 18 3B 20 4C 49 4E 45 20 5A 45 49 43 48 4E |1..; LINE ZEICHN|
00002990: 45 54 2C 20 43 4C 49 4E 45 20 4C 4F 45 53 43 48 |ET, CLINE LOESCH|
000029A0: 54 00 B2 31 9C 18 3B 20 44 49 45 20 4C 49 4E 49 |T..1..; DIE LINI|
000029B0: 45 2E 00 B8 31 A6 18 3B 00 DD 31 B0 18 3B 20 59 |E...1..;..1..; Y|
000029C0: 30 20 55 4E 44 20 59 31 20 57 45 52 44 45 4E 20 |0 UND Y1 WERDEN |
000029D0: 49 4E 20 45 49 4E 45 4D 20 42 59 54 45 00 F0 31 |IN EINEM BYTE..1|
000029E0: BA 18 3B 20 47 45 53 50 45 49 43 48 45 52 54 2E |..; GESPEICHERT.|
000029F0: 00 F6 31 C4 18 3B 00 18 32 CE 18 3B 20 58 30 20 |..1..;..2..; X0 |
00002A00: 55 4E 44 20 58 31 20 57 45 52 44 45 4E 20 4A 45 |UND X1 WERDEN JE|
00002A10: 57 45 49 4C 53 20 49 4E 00 39 32 D8 18 3B 20 5A |WEILS IN.92..; Z|
00002A20: 57 45 49 20 42 59 54 45 53 20 47 45 53 50 45 49 |WEI BYTES GESPEI|
00002A30: 43 48 45 52 54 20 4D 49 54 00 3F 32 E2 18 3B 00 |CHERT MIT.?2..;.|
00002A40: 58 32 EC 18 3B 20 58 30 4C 20 46 55 45 52 20 20 |X2..; X0L FUER |
00002A50: 4C 4F 57 20 42 59 54 45 00 79 32 F6 18 3B 20 20 |LOW BYTE.y2..; |
00002A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002A70: 20 20 20 56 4F 4E 20 58 30 00 92 32 00 19 3B 20 | VON X0..2..; |
00002A80: 58 30 48 20 46 55 45 52 20 48 49 47 48 20 42 59 |X0H FUER HIGH BY|
00002A90: 54 45 00 98 32 0A 19 3B 00 B1 32 14 19 3B 20 58 |TE..2..;..2..; X|
00002AA0: 31 4C 20 46 55 45 52 20 20 4C 4F 57 20 42 59 54 |1L FUER LOW BYT|
00002AB0: 45 00 D2 32 1E 19 3B 20 20 20 20 20 20 20 20 20 |E..2..; |
00002AC0: 20 20 20 20 20 20 20 20 20 20 20 20 56 4F 4E 20 | VON |
00002AD0: 58 31 00 EB 32 28 19 3B 20 58 31 48 20 46 55 45 |X1..2(.; X1H FUE|
00002AE0: 52 20 48 49 47 48 20 42 59 54 45 00 F1 32 32 19 |R HIGH BYTE..22.|
00002AF0: 3B 00 11 33 3C 19 3B 20 41 2C 20 58 2C 20 59 20 |;..3<.; A, X, Y |
00002B00: 57 45 52 44 45 4E 20 49 47 4E 4F 52 49 45 52 54 |WERDEN IGNORIERT|
00002B10: 2E 00 17 33 46 19 3B 00 1D 33 50 19 3B 00 40 33 |...3F.;..3P.;.@3|
00002B20: 5A 19 3B 20 44 49 45 20 4B 4F 4F 52 44 49 4E 41 |Z.; DIE KOORDINA|
00002B30: 54 45 4E 20 57 45 52 44 45 4E 20 4E 49 43 48 54 |TEN WERDEN NICHT|
00002B40: 00 62 33 64 19 3B 20 41 55 46 20 42 45 52 45 49 |.b3d.; AUF BEREI|
00002B50: 43 48 53 55 45 42 45 52 53 43 48 52 45 49 54 55 |CHSUEBERSCHREITU|
00002B60: 4E 47 00 82 33 6E 19 3B 20 47 45 50 52 55 45 46 |NG..3n.; GEPRUEF|
00002B70: 54 2E 20 44 45 53 48 41 4C 42 20 4B 4F 45 4E 4E |T. DESHALB KOENN|
00002B80: 45 4E 00 A4 33 78 19 3B 20 4C 49 4E 49 45 4E 20 |EN..3x.; LINIEN |
00002B90: 41 55 43 48 20 55 45 42 45 52 20 44 45 4E 20 42 |AUCH UEBER DEN B|
00002BA0: 49 4C 44 2D 00 C5 33 82 19 3B 20 53 43 48 49 52 |ILD-..3..; SCHIR|
00002BB0: 4D 52 41 4E 44 20 48 49 4E 41 55 53 20 52 45 49 |MRAND HINAUS REI|
00002BC0: 43 48 45 4E 2E 00 CB 33 8C 19 3B 00 E8 33 96 19 |CHEN...3..;..3..|
00002BD0: 3B 20 20 20 44 41 53 20 48 41 54 20 4A 45 44 4F |; DAS HAT JEDO|
00002BE0: 43 48 20 4B 45 49 4E 45 00 0E 34 A0 19 3B 20 20 |CH KEINE..4..; |
00002BF0: 20 53 43 48 41 45 44 4C 49 43 48 45 4E 20 41 55 | SCHAEDLICHEN AU|
00002C00: 53 57 49 52 4B 55 4E 47 45 4E 2C 20 44 41 00 33 |SWIRKUNGEN, DA.3|
00002C10: 34 AA 19 3B 20 20 20 53 43 48 4F 4E 20 22 41 43 |4..; SCHON "AC|
00002C20: 43 45 53 53 22 20 41 55 46 20 42 45 52 45 49 43 |CESS" AUF BEREIC|
00002C30: 48 53 2D 00 53 34 B4 19 3B 20 20 20 55 45 42 45 |HS-.S4..; UEBE|
00002C40: 52 53 43 48 52 45 49 54 55 4E 47 20 50 52 55 45 |RSCHREITUNG PRUE|
00002C50: 46 54 2E 00 59 34 BE 19 3B 00 7B 34 C8 19 3B 20 |FT..Y4..;.{4..; |
00002C60: 4E 41 43 48 20 41 55 53 46 55 45 48 52 55 4E 47 |NACH AUSFUEHRUNG|
00002C70: 20 56 4F 4E 20 22 4C 49 4E 45 22 00 9D 34 D2 19 | VON "LINE"..4..|
00002C80: 3B 20 49 53 54 20 28 58 30 2C 59 30 29 20 47 4C |; IST (X0,Y0) GL|
00002C90: 45 49 43 48 20 28 58 31 2C 59 31 29 2E 00 C1 34 |EICH (X1,Y1)...4|
00002CA0: DC 19 3B 20 44 49 45 20 4B 4F 4F 52 44 49 4E 41 |..; DIE KOORDINA|
00002CB0: 54 45 4E 20 4D 55 45 53 53 45 4E 20 44 41 48 45 |TEN MUESSEN DAHE|
00002CC0: 52 00 E4 34 E6 19 3B 20 42 45 49 20 4A 45 44 45 |R..4..; BEI JEDE|
00002CD0: 4D 20 41 55 46 52 55 46 20 4E 45 55 20 47 45 53 |M AUFRUF NEU GES|
00002CE0: 45 54 5A 54 00 F2 34 F0 19 3B 20 57 45 52 44 45 |ETZT..4..; WERDE|
00002CF0: 4E 2E 00 18 35 FA 19 3B 2D 2D 2D 2D 2D 2D 2D 2D |N...5..;--------|
00002D00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002D10: 2D 2D 2D 2D 2D 2D 2D 2D 00 2B 35 04 1A 44 58 20 |--------.+5..DX |
00002D20: A7 31 3B 49 4E 54 45 52 4E 41 4C 00 3F 35 0E 1A |.1;INTERNAL.?5..|
00002D30: 44 59 20 A7 31 3B 50 41 52 41 4D 45 54 45 52 00 |DY .1;PARAMETER.|
00002D40: 54 35 18 1A 44 49 46 46 58 4C 20 A7 31 3B 4D 45 |T5..DIFFXL .1;ME|
00002D50: 4D 4F 52 59 00 67 35 22 1A 44 49 46 46 58 48 20 |MORY.g5".DIFFXH |
00002D60: A7 31 3B 41 52 45 41 00 74 35 2C 1A 44 49 46 46 |.1;AREA.t5,.DIFF|
00002D70: 59 20 A7 31 00 7E 35 36 1A 44 43 20 A7 31 00 88 |Y .1.~56.DC .1..|
00002D80: 35 40 1A 44 48 20 A7 31 00 92 35 4A 1A 44 4D 20 |5@.DH .1..5J.DM |
00002D90: A7 31 00 9C 35 54 1A 44 4C 20 A7 31 00 A6 35 5E |.1..5T.DL .1..5^|
00002DA0: 1A 51 48 20 A7 31 00 B0 35 68 1A 51 4D 20 A7 31 |.QH .1..5h.QM .1|
00002DB0: 00 BA 35 72 1A 51 4C 20 A7 31 00 C9 35 7C 1A 44 |..5r.QL .1..5|.D|
00002DC0: 45 4C 54 41 5F 48 20 A7 31 00 D8 35 86 1A 44 45 |ELTA_H .1..5..DE|
00002DD0: 4C 54 41 5F 4D 20 A7 31 00 E7 35 90 1A 44 45 4C |LTA_M .1..5..DEL|
00002DE0: 54 41 5F 4C 20 A7 31 00 F4 35 9A 1A 4C 49 4E 45 |TA_L .1..5..LINE|
00002DF0: 20 CA 23 31 00 FE 35 A4 1A 20 F6 2A 2B 34 00 0C | .#1..5.. .*+4..|
00002E00: 36 AE 1A 43 4C 49 4E 45 20 CA 23 30 00 14 36 B8 |6..CLINE .#0..6.|
00002E10: 1A 20 D2 32 00 23 36 C2 1A 41 43 43 45 53 53 4C |. .2.#6..ACCESSL|
00002E20: 49 4E 45 00 49 36 CC 1A 3B 2A 2A 2A 2A 2A 2A 2A |INE.I6..;*******|
00002E30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002E40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6F 36 D6 1A 3B 2A |*********.o6..;*|
00002E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00002E70: 95 36 E0 1A 3B 2A 20 31 2E 20 43 4F 4D 50 55 54 |.6..;* 1. COMPUT|
00002E80: 45 20 44 58 20 41 4E 44 20 44 59 20 20 20 20 20 |E DX AND DY |
00002E90: 20 20 20 20 2A 00 BB 36 EA 1A 3B 2A 20 2D 2D 2D | *..6..;* ---|
00002EA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002EB0: 2D 20 20 20 20 20 20 20 20 20 2A 00 E1 36 F4 1A |- *..6..|
00002EC0: 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;* |
00002ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002EE0: 2A 00 07 37 FE 1A 3B 2A 20 44 58 20 41 4E 44 20 |*..7..;* DX AND |
00002EF0: 44 59 20 41 52 45 20 55 53 45 44 20 54 4F 20 44 |DY ARE USED TO D|
00002F00: 45 54 45 52 2D 20 2A 00 2D 37 08 1B 3B 2A 20 4D |ETER- *.-7..;* M|
00002F10: 49 4E 45 20 49 4E 20 57 48 49 43 48 20 44 49 52 |INE IN WHICH DIR|
00002F20: 45 43 54 49 4F 4E 20 54 48 45 20 20 2A 00 53 37 |ECTION THE *.S7|
00002F30: 12 1B 3B 2A 20 4C 49 4E 45 20 49 53 20 54 4F 20 |..;* LINE IS TO |
00002F40: 42 45 20 44 52 41 57 4E 2E 20 20 20 20 20 20 20 |BE DRAWN. |
00002F50: 20 20 2A 00 79 37 1C 1B 3B 2A 20 20 20 20 20 20 | *.y7..;* |
00002F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002F70: 20 20 20 20 20 20 20 20 2A 00 9F 37 26 1B 3B 2A | *..7&.;*|
00002F80: 20 44 58 20 3D 20 2D 31 20 20 49 4E 44 49 43 41 | DX = -1 INDICA|
00002F90: 54 45 53 20 20 20 20 20 20 20 20 20 20 20 2A 00 |TES *.|
00002FA0: C5 37 30 1B 3B 2A 20 20 20 20 20 20 20 20 20 20 |.70.;* |
00002FB0: 58 20 43 4F 4F 52 44 2E 20 44 45 43 52 45 4D 45 |X COORD. DECREME|
00002FC0: 4E 54 53 20 2A 00 EB 37 3A 1B 3B 2A 20 20 20 20 |NTS *..7:.;* |
00002FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002FE0: 20 20 20 20 20 20 20 20 20 20 2A 00 11 38 44 1B | *..8D.|
00002FF0: 3B 2A 20 44 58 20 3D 20 20 31 20 20 49 4E 44 49 |;* DX = 1 INDI|
00003000: 43 41 54 45 53 20 20 20 20 20 20 20 20 20 20 20 |CATES |
00003010: 2A 00 37 38 4E 1B 3B 2A 20 20 20 20 20 20 20 20 |*.78N.;* |
00003020: 20 20 58 20 43 4F 4F 52 44 2E 20 49 4E 43 52 45 | X COORD. INCRE|
00003030: 4D 45 4E 54 53 20 2A 00 5D 38 58 1B 3B 2A 20 20 |MENTS *.]8X.;* |
00003040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003050: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 83 38 | *..8|
00003060: 62 1B 3B 2A 20 44 58 20 3D 20 20 30 20 20 49 4E |b.;* DX = 0 IN|
00003070: 44 49 43 41 54 45 53 20 54 48 45 52 45 20 49 53 |DICATES THERE IS|
00003080: 20 20 2A 00 A9 38 6C 1B 3B 2A 20 20 20 20 20 20 | *..8l.;* |
00003090: 20 20 20 20 4E 4F 20 58 20 43 4F 4F 52 44 2E 20 | NO X COORD. |
000030A0: 43 48 41 4E 47 45 20 20 2A 00 CF 38 76 1B 3B 2A |CHANGE *..8v.;*|
000030B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000030C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
000030D0: F5 38 80 1B 3B 2A 20 56 41 4C 55 45 53 20 4F 46 |.8..;* VALUES OF|
000030E0: 20 44 59 20 41 52 45 20 41 4E 41 4C 4F 47 4F 55 | DY ARE ANALOGOU|
000030F0: 53 2E 20 20 2A 00 1B 39 8A 1B 3B 2A 20 20 20 20 |S. *..9..;* |
00003100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003110: 20 20 20 20 20 20 20 20 20 20 2A 00 41 39 94 1B | *.A9..|
00003120: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00003130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003140: 2A 00 57 39 9E 1B 20 C2 23 24 46 46 3B 43 4F 4D |*.W9.. .#$FF;COM|
00003150: 50 55 54 45 20 44 58 00 61 39 A8 1B 20 CA 58 31 |PUTE DX.a9.. .X1|
00003160: 48 00 6B 39 B2 1B 20 C4 58 30 48 00 75 39 BC 1B |H.k9.. .X0H.u9..|
00003170: 20 F7 54 58 4C 00 7F 39 C6 1B 20 F5 44 58 50 00 | .TXL..9.. .DXP.|
00003180: 89 39 D0 1B 20 F4 44 58 4E 00 A1 39 DA 1B 54 58 |.9.. .DXN..9..TX|
00003190: 4C 20 CA 58 31 4C 3B 54 45 53 54 20 58 20 4C 4F |L .X1L;TEST X LO|
000031A0: 57 00 AB 39 E4 1B 20 C4 58 30 4C 00 B5 39 EE 1B |W..9.. .X0L..9..|
000031B0: 20 F4 44 58 4E 00 BF 39 F8 1B 20 F7 44 58 5A 00 | .DXN..9.. .DXZ.|
000031C0: D1 39 02 1C 44 58 50 20 EF 3B 44 58 20 3D 20 20 |.9..DXP .;DX = |
000031D0: 31 00 E3 39 0C 1C 44 58 5A 20 EF 3B 44 58 20 3D |1..9..DXZ .;DX =|
000031E0: 20 20 30 00 F7 39 16 1C 44 58 4E 20 D3 44 58 3B | 0..9..DXN .DX;|
000031F0: 44 58 20 3D 20 2D 31 00 1D 3A 20 1C 3B 3D 3D 3D |DX = -1..: .;===|
00003200: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003210: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 33 3A |=============.3:|
00003220: 2A 1C 20 C2 23 24 46 46 3B 43 4F 4D 50 55 54 45 |*. .#$FF;COMPUTE|
00003230: 20 44 59 00 3C 3A 34 1C 20 CA 59 31 00 45 3A 3E | DY.<:4. .Y1.E:>|
00003240: 1C 20 C4 59 30 00 4F 3A 48 1C 20 F4 44 59 4E 00 |. .Y0.O:H. .DYN.|
00003250: 59 3A 52 1C 20 F7 44 59 5A 00 68 3A 5C 1C 20 EF |Y:R. .DYZ.h:\. .|
00003260: 3B 44 59 20 3D 20 20 31 00 7A 3A 66 1C 44 59 5A |;DY = 1.z:f.DYZ|
00003270: 20 EF 3B 44 59 20 3D 20 20 30 00 8E 3A 70 1C 44 | .;DY = 0..:p.D|
00003280: 59 4E 20 D3 44 59 3B 44 59 20 3D 20 2D 31 00 B4 |YN .DY;DY = -1..|
00003290: 3A 7A 1C 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |:z.;============|
000032A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000032B0: 3D 3D 3D 3D 00 CA 3A 84 1C 20 F7 45 51 55 41 4C |====..:.. .EQUAL|
000032C0: 3B 49 46 20 44 59 20 3D 20 30 00 DD 3A 8E 1C 20 |;IF DY = 0..:.. |
000032D0: CA 44 58 3B 4F 52 20 44 58 20 3D 20 30 00 F4 3A |.DX;OR DX = 0..:|
000032E0: 98 1C 20 F7 45 51 55 41 4C 3B 47 4F 54 4F 20 45 |.. .EQUAL;GOTO E|
000032F0: 51 55 41 4C 00 1A 3B A2 1C 3B 2A 2A 2A 2A 2A 2A |QUAL..;..;******|
00003300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 40 3B AC 1C 3B |**********.@;..;|
00003320: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00003330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00003340: 00 66 3B B6 1C 3B 2A 20 32 2E 20 20 43 4F 4D 50 |.f;..;* 2. COMP|
00003350: 55 54 45 20 58 20 41 4E 44 20 59 20 20 20 20 20 |UTE X AND Y |
00003360: 20 20 20 20 20 2A 00 8C 3B C0 1C 3B 2A 20 20 20 | *..;..;* |
00003370: 20 20 43 4F 4F 52 44 49 4E 41 54 45 20 44 49 46 | COORDINATE DIF|
00003380: 46 45 52 45 4E 43 45 53 20 20 20 2A 00 B2 3B CA |FERENCES *..;.|
00003390: 1C 3B 2A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;* ------------|
000033A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 20 |-------------- |
000033B0: 20 2A 00 D8 3B D4 1C 3B 2A 20 20 20 20 20 20 20 | *..;..;* |
000033C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000033D0: 20 20 20 20 20 20 20 2A 00 FE 3B DE 1C 3B 2A 20 | *..;..;* |
000033E0: 54 48 49 53 20 49 53 20 45 46 46 45 43 54 45 44 |THIS IS EFFECTED|
000033F0: 20 42 59 20 4E 4F 52 4D 41 4C 20 20 20 2A 00 24 | BY NORMAL *.$|
00003400: 3C E8 1C 3B 2A 20 53 55 42 54 52 41 43 54 49 4F |<..;* SUBTRACTIO|
00003410: 4E 20 41 4E 44 20 53 55 42 53 45 51 55 45 4E 54 |N AND SUBSEQUENT|
00003420: 20 20 20 2A 00 4A 3C F2 1C 3B 2A 20 32 2D 43 4F | *.J<..;* 2-CO|
00003430: 4D 50 4C 45 4D 45 4E 54 20 46 4F 52 4D 41 54 49 |MPLEMENT FORMATI|
00003440: 4F 4E 2C 20 49 46 20 20 20 2A 00 70 3C FC 1C 3B |ON, IF *.p<..;|
00003450: 2A 20 52 45 53 55 4C 54 20 49 53 20 4E 45 47 41 |* RESULT IS NEGA|
00003460: 54 49 56 45 2E 20 20 20 20 20 20 20 20 20 20 2A |TIVE. *|
00003470: 00 96 3C 06 1D 3B 2A 20 20 20 20 20 20 20 20 20 |..<..;* |
00003480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003490: 20 20 20 20 20 2A 00 BC 3C 10 1D 3B 2A 2A 2A 2A | *..<..;****|
000034A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000034B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D1 3C 1A |************..<.|
000034C0: 1D 43 44 58 20 CA 58 31 4C 3B 44 49 46 46 2E 20 |.CDX .X1L;DIFF. |
000034D0: 58 00 D8 3C 24 1D 20 E6 00 E2 3C 2E 1D 20 D1 58 |X..<$. ...<.. .X|
000034E0: 30 4C 00 EF 3C 38 1D 20 D2 44 49 46 46 58 4C 00 |0L..<8. .DIFFXL.|
000034F0: F9 3C 42 1D 20 CA 58 31 48 00 03 3D 4C 1D 20 D1 |.<B. .X1H..=L. .|
00003500: 58 30 48 00 10 3D 56 1D 20 D2 44 49 46 46 58 48 |X0H..=V. .DIFFXH|
00003510: 00 19 3D 60 1D 20 CA 44 58 00 23 3D 6A 1D 20 F0 |..=`. .DX.#=j. .|
00003520: 43 44 59 00 3A 3D 74 1D 20 CA 44 49 46 46 58 4C |CDY.:=t. .DIFFXL|
00003530: 3B 49 46 20 44 58 3D 20 2D 31 00 45 3D 7E 1D 20 |;IF DX= -1.E=~. |
00003540: C8 23 24 46 46 00 54 3D 88 1D 20 E5 3B 43 4F 4D |.#$FF.T=.. .;COM|
00003550: 50 55 54 45 00 5D 3D 92 1D 20 C5 23 31 00 73 3D |PUTE.]=.. .#1.s=|
00003560: 9C 1D 20 D2 44 49 46 46 58 4C 3B 32 2D 43 4F 4D |.. .DIFFXL;2-COM|
00003570: 50 4C 2E 00 80 3D A6 1D 20 CA 44 49 46 46 58 48 |PL...=.. .DIFFXH|
00003580: 00 8B 3D B0 1D 20 C8 23 24 46 46 00 94 3D BA 1D |..=.. .#$FF..=..|
00003590: 20 C5 23 30 00 A1 3D C4 1D 20 D2 44 49 46 46 58 | .#0..=.. .DIFFX|
000035A0: 48 00 C7 3D CE 1D 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D |H..=..;=========|
000035B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000035C0: 3D 3D 3D 3D 3D 3D 3D 00 DB 3D D8 1D 43 44 59 20 |=======..=..CDY |
000035D0: CA 59 31 3B 44 49 46 46 2E 20 59 00 E2 3D E2 1D |.Y1;DIFF. Y..=..|
000035E0: 20 E6 00 EB 3D EC 1D 20 D1 59 30 00 F7 3D F6 1D | ...=.. .Y0..=..|
000035F0: 20 D2 44 49 46 46 59 00 00 3E 00 1E 20 CA 44 59 | .DIFFY..>.. .DY|
00003600: 00 19 3E 0A 1E 20 F0 49 4E 43 44 49 46 46 3B 49 |..>.. .INCDIFF;I|
00003610: 46 20 44 59 20 3D 20 2D 31 00 25 3E 14 1E 20 CA |F DY = -1.%>.. .|
00003620: 44 49 46 46 59 00 30 3E 1E 1E 20 C8 23 24 46 46 |DIFFY.0>.. .#$FF|
00003630: 00 37 3E 28 1E 20 E5 00 49 3E 32 1E 20 C5 23 31 |.7>(. ..I>2. .#1|
00003640: 3B 32 2D 43 4F 4D 50 4C 2E 00 55 3E 3C 1E 20 D2 |;2-COMPL..U><. .|
00003650: 44 49 46 46 59 00 7B 3E 46 1E 3B 3D 3D 3D 3D 3D |DIFFY.{>F.;=====|
00003660: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003670: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 99 3E 50 1E |===========..>P.|
00003680: 49 4E 43 44 49 46 46 20 C9 44 49 46 46 58 4C 3B |INCDIFF .DIFFXL;|
00003690: 49 4E 43 52 45 4D 45 4E 54 00 B3 3E 5A 1E 20 F6 |INCREMENT..>Z. .|
000036A0: 49 4E 43 44 49 46 46 59 3B 44 49 46 46 45 52 45 |INCDIFFY;DIFFERE|
000036B0: 4E 43 45 00 C5 3E 64 1E 20 C9 44 49 46 46 58 48 |NCE..>d. .DIFFXH|
000036C0: 3B 42 59 20 31 00 D9 3E 6E 1E 49 4E 43 44 49 46 |;BY 1..>n.INCDIF|
000036D0: 46 59 20 C9 44 49 46 46 59 00 FF 3E 78 1E 3B 3D |FY .DIFFY..>x.;=|
000036E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000036F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
00003700: 0C 3F 82 1E 20 CA 44 49 46 46 58 48 00 17 3F 8C |.?.. .DIFFXH..?.|
00003710: 1E 20 F6 58 57 41 59 00 24 3F 96 1E 20 CA 44 49 |. .XWAY.$?.. .DI|
00003720: 46 46 58 4C 00 30 3F A0 1E 20 C4 44 49 46 46 59 |FFXL.0?.. .DIFFY|
00003730: 00 3B 3F AA 1E 20 F5 58 57 41 59 00 46 3F B4 1E |.;?.. .XWAY.F?..|
00003740: 20 D5 59 57 41 59 00 6C 3F BE 1E 3B 3D 3D 3D 3D | .YWAY.l?..;====|
00003750: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003760: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 86 3F C8 |============..?.|
00003770: 1E 45 51 55 41 4C 20 CA 58 30 4C 3B 22 53 54 52 |.EQUAL .X0L;"STR|
00003780: 41 49 47 48 54 22 00 9A 3F D2 1E 20 C2 58 30 48 |AIGHT"..?.. .X0H|
00003790: 3B 4C 49 4E 45 53 20 41 52 45 00 AE 3F DC 1E 20 |;LINES ARE..?.. |
000037A0: C3 59 30 3B 44 52 41 57 4E 20 48 45 52 45 00 BB |.Y0;DRAWN HERE..|
000037B0: 3F E6 1E 20 D6 41 43 43 45 53 53 00 C4 3F F0 1E |?.. .ACCESS..?..|
000037C0: 20 CA 59 30 00 CD 3F FA 1E 20 C4 59 31 00 DA 3F | .Y0..?.. .Y1..?|
000037D0: 04 1F 20 F6 43 4F 4E 54 45 51 00 E4 3F 0E 1F 20 |.. .CONTEQ..?.. |
000037E0: CA 58 30 48 00 EE 3F 18 1F 20 C4 58 31 48 00 FB |.X0H..?.. .X1H..|
000037F0: 3F 22 1F 20 F6 43 4F 4E 54 45 51 00 05 40 2C 1F |?". .CONTEQ..@,.|
00003800: 20 CA 58 30 4C 00 0F 40 36 1F 20 C4 58 31 4C 00 | .X0L..@6. .X1L.|
00003810: 1C 40 40 1F 20 F6 43 4F 4E 54 45 51 00 23 40 4A |.@@. .CONTEQ.#@J|
00003820: 1F 20 E3 00 32 40 54 1F 43 4F 4E 54 45 51 20 CA |. ..2@T.CONTEQ .|
00003830: 59 30 00 39 40 5E 1F 20 E5 00 42 40 68 1F 20 C5 |Y0.9@^. ..B@h. .|
00003840: 44 59 00 4B 40 72 1F 20 D2 59 30 00 54 40 7C 1F |DY.K@r. .Y0.T@|.|
00003850: 20 CA 44 58 00 60 40 86 1F 20 F7 45 51 55 41 4C | .DX.`@.. .EQUAL|
00003860: 00 6E 40 90 1F 20 F1 44 4F 57 4E 58 45 51 00 75 |.n@.. .DOWNXEQ.u|
00003870: 40 9A 1F 20 E5 00 7F 40 A4 1F 20 C5 58 30 4C 00 |@.. ...@.. .X0L.|
00003880: 89 40 AE 1F 20 D2 58 30 4C 00 93 40 B8 1F 20 CA |.@.. .X0L..@.. .|
00003890: 58 30 48 00 9C 40 C2 1F 20 C5 23 30 00 A6 40 CC |X0H..@.. .#0..@.|
000038A0: 1F 20 D2 58 30 48 00 B2 40 D6 1F 20 D5 45 51 55 |. .X0H..@.. .EQU|
000038B0: 41 4C 00 C3 40 E0 1F 44 4F 57 4E 58 45 51 20 C7 |AL..@..DOWNXEQ .|
000038C0: 58 30 4C 00 CD 40 EA 1F 20 CA 58 30 4C 00 D8 40 |X0L..@.. .X0L..@|
000038D0: F4 1F 20 C4 23 24 46 46 00 E4 40 FE 1F 20 F6 45 |.. .#$FF..@.. .E|
000038E0: 51 55 41 4C 00 EE 40 08 20 20 C7 58 30 48 00 FA |QUAL..@. .X0H..|
000038F0: 40 12 20 20 D5 45 51 55 41 4C 00 20 41 1C 20 3B |@. .EQUAL. A. ;|
00003900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003910: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003920: 00 46 41 26 20 3B 2A 20 20 20 20 20 20 20 20 20 |.FA& ;* |
00003930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003940: 20 20 20 20 20 2A 00 6C 41 30 20 3B 2A 20 33 2E | *.lA0 ;* 3.|
00003950: 20 44 49 56 49 44 45 20 44 49 46 46 2E 20 58 20 | DIVIDE DIFF. X |
00003960: 42 59 20 44 49 46 46 2E 20 59 20 2A 00 92 41 3A |BY DIFF. Y *..A:|
00003970: 20 3B 2A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ;* ------------|
00003980: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003990: 20 2A 00 B8 41 44 20 3B 2A 20 20 20 20 20 20 20 | *..AD ;* |
000039A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000039B0: 20 20 20 20 20 20 20 2A 00 DE 41 4E 20 3B 2A 20 | *..AN ;* |
000039C0: 54 48 49 53 20 49 53 20 41 20 32 34 2F 38 20 42 |THIS IS A 24/8 B|
000039D0: 49 54 20 44 49 56 49 53 49 4F 4E 2E 20 2A 00 04 |IT DIVISION. *..|
000039E0: 42 58 20 3B 2A 20 20 20 20 20 20 20 20 20 20 20 |BX ;* |
000039F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003A00: 20 20 20 2A 00 2A 42 62 20 3B 2A 20 44 43 2F 44 | *.*Bb ;* DC/D|
00003A10: 48 2F 44 4D 2F 44 4C 20 49 53 20 54 48 45 20 44 |H/DM/DL IS THE D|
00003A20: 49 56 49 44 45 4E 44 2C 20 2A 00 50 42 6C 20 3B |IVIDEND, *.PBl ;|
00003A30: 2A 20 44 49 46 46 59 20 20 20 20 20 20 20 49 53 |* DIFFY IS|
00003A40: 20 54 48 45 20 44 49 56 49 53 4F 52 2C 20 20 2A | THE DIVISOR, *|
00003A50: 00 76 42 76 20 3B 2A 20 51 48 2F 51 4D 2F 51 4C |.vBv ;* QH/QM/QL|
00003A60: 20 20 20 20 49 53 20 54 48 45 20 51 55 4F 54 49 | IS THE QUOTI|
00003A70: 45 4E 54 2E 20 2A 00 9C 42 80 20 3B 2A 20 20 20 |ENT. *..B. ;* |
00003A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003A90: 20 20 20 20 20 20 20 20 20 20 20 2A 00 C2 42 8A | *..B.|
00003AA0: 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ;**************|
00003AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003AC0: 2A 2A 00 CF 42 94 20 58 57 41 59 20 C2 23 30 00 |**..B. XWAY .#0.|
00003AD0: D8 42 9E 20 20 D3 44 4C 00 E5 42 A8 20 20 CA 44 |.B. .DL..B. .D|
00003AE0: 49 46 46 58 4C 00 EE 42 B2 20 20 D2 44 4D 00 FB |IFFXL..B. .DM..|
00003AF0: 42 BC 20 20 CA 44 49 46 46 58 48 00 04 43 C6 20 |B. .DIFFXH..C. |
00003B00: 20 D2 44 48 00 0D 43 D0 20 20 D3 44 43 00 17 43 | .DH..C. .DC..C|
00003B10: DA 20 20 C2 23 32 34 00 27 43 E4 20 44 49 56 4C |. .#24.'C. DIVL|
00003B20: 4F 4F 50 20 CA 44 48 00 2E 43 EE 20 20 E6 00 3A |OOP .DH..C. ..:|
00003B30: 43 F8 20 20 D1 44 49 46 46 59 00 41 43 02 21 20 |C. .DIFFY.AC.! |
00003B40: DA 00 4A 43 0C 21 20 CA 44 43 00 53 43 16 21 20 |..JC.! .DC.SC.! |
00003B50: D1 23 30 00 61 43 20 21 20 F4 52 4F 54 4C 45 46 |.#0.aC ! .ROTLEF|
00003B60: 54 00 6A 43 2A 21 20 D4 44 48 00 73 43 34 21 20 |T.jC*! .DH.sC4! |
00003B70: D2 44 43 00 7A 43 3E 21 20 E6 00 84 43 48 21 20 |.DC.zC>! ...CH! |
00003B80: A5 24 32 34 00 92 43 52 21 52 4F 54 4C 45 46 54 |.$24..CR!ROTLEFT|
00003B90: 20 E5 00 A4 43 5C 21 20 CF 51 4C 3B 52 4F 54 41 | ...C\! .QL;ROTA|
00003BA0: 54 45 20 43 00 B7 43 66 21 20 CF 51 4D 3B 4C 45 |TE C..Cf! .QM;LE|
00003BB0: 46 54 20 49 4E 54 4F 00 C9 43 70 21 20 CF 51 48 |FT INTO..Cp! .QH|
00003BC0: 3B 51 55 4F 54 49 45 4E 54 00 D2 43 7A 21 20 CB |;QUOTIENT..Cz! .|
00003BD0: 44 4C 00 E2 43 84 21 20 CF 44 4D 3B 52 4F 54 41 |DL..C.! .DM;ROTA|
00003BE0: 54 45 00 F4 43 8E 21 20 CF 44 48 3B 44 49 56 49 |TE..C.! .DH;DIVI|
00003BF0: 44 45 4E 44 00 02 44 98 21 20 CF 44 43 3B 4C 45 |DEND..D.! .DC;LE|
00003C00: 46 54 00 09 44 A2 21 20 EE 00 17 44 AC 21 20 F0 |FT..D.! ...D.! .|
00003C10: 44 49 56 4C 4F 4F 50 00 3D 44 B6 21 3B 3D 3D 3D |DIVLOOP.=D.!;===|
00003C20: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003C30: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 46 44 |=============.FD|
00003C40: C0 21 20 CA 51 48 00 54 44 CA 21 20 D2 44 45 4C |.! .QH.TD.! .DEL|
00003C50: 54 41 5F 48 00 5D 44 D4 21 20 CA 51 4D 00 6B 44 |TA_H.]D.! .QM.kD|
00003C60: DE 21 20 D2 44 45 4C 54 41 5F 4D 00 74 44 E8 21 |.! .DELTA_M.tD.!|
00003C70: 20 CA 51 4C 00 82 44 F2 21 20 D2 44 45 4C 54 41 | .QL..D.! .DELTA|
00003C80: 5F 4C 00 A8 44 FC 21 3B 3D 3D 3D 3D 3D 3D 3D 3D |_L..D.!;========|
00003C90: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003CA0: 3D 3D 3D 3D 3D 3D 3D 3D 00 B7 44 06 22 58 4C 4F |========..D."XLO|
00003CB0: 4F 50 20 CA 58 30 48 00 C1 44 10 22 20 C4 58 31 |OP .X0H..D." .X1|
00003CC0: 48 00 CD 44 1A 22 20 F6 58 43 4F 4E 54 00 D7 44 |H..D." .XCONT..D|
00003CD0: 24 22 20 CA 58 30 4C 00 EA 44 2E 22 20 C4 58 31 |$" .X0L..D." .X1|
00003CE0: 4C 3B 49 46 20 58 30 3D 58 31 00 00 45 38 22 20 |L;IF X0=X1..E8" |
00003CF0: F6 58 43 4F 4E 54 3B 54 48 45 4E 20 45 58 49 54 |.XCONT;THEN EXIT|
00003D00: 00 07 45 42 22 20 E3 00 2D 45 4C 22 3B 3D 3D 3D |..EB" ..-EL";===|
00003D10: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003D20: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 3C 45 |=============.<E|
00003D30: 56 22 58 43 4F 4E 54 20 CA 58 30 4C 00 46 45 60 |V"XCONT .X0L.FE`|
00003D40: 22 20 C2 58 30 48 00 4F 45 6A 22 20 C3 59 30 00 |" .X0H.OEj" .Y0.|
00003D50: 5C 45 74 22 20 D6 41 43 43 45 53 53 00 65 45 7E |\Et" .ACCESS.eE~|
00003D60: 22 20 CA 44 58 00 71 45 88 22 20 F1 58 44 4F 57 |" .DX.qE." .XDOW|
00003D70: 4E 00 7B 45 92 22 20 C9 58 30 4C 00 86 45 9C 22 |N.{E." .X0L..E."|
00003D80: 20 F6 53 45 54 59 00 90 45 A6 22 20 C9 58 30 48 | .SETY..E." .X0H|
00003D90: 00 9B 45 B0 22 20 F6 53 45 54 59 00 AA 45 BA 22 |..E." .SETY..E."|
00003DA0: 58 44 4F 57 4E 20 C7 58 30 4C 00 B4 45 C4 22 20 |XDOWN .X0L..E." |
00003DB0: CA 58 30 4C 00 BF 45 CE 22 20 C4 23 24 46 46 00 |.X0L..E." .#$FF.|
00003DC0: CA 45 D8 22 20 F6 53 45 54 59 00 D4 45 E2 22 20 |.E." .SETY..E." |
00003DD0: C7 58 30 48 00 FA 45 EC 22 3B 3D 3D 3D 3D 3D 3D |.X0H..E.";======|
00003DE0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003DF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 0C 46 F6 22 53 |==========..F."S|
00003E00: 45 54 59 20 C7 44 45 4C 54 41 5F 48 00 18 46 00 |ETY .DELTA_H..F.|
00003E10: 23 20 F6 58 4C 4F 4F 50 00 21 46 0A 23 20 CA 59 |# .XLOOP.!F.# .Y|
00003E20: 30 00 28 46 14 23 20 E5 00 31 46 1E 23 20 C5 44 |0.(F.# ..1F.# .D|
00003E30: 59 00 3A 46 28 23 20 D2 59 30 00 41 46 32 23 20 |Y.:F(# .Y0.AF2# |
00003E40: E5 00 4F 46 3C 23 20 CA 44 45 4C 54 41 5F 4C 00 |..OF<# .DELTA_L.|
00003E50: 58 46 46 23 20 C5 51 4C 00 66 46 50 23 20 D2 44 |XFF# .QL.fFP# .D|
00003E60: 45 4C 54 41 5F 4C 00 74 46 5A 23 20 CA 44 45 4C |ELTA_L.tFZ# .DEL|
00003E70: 54 41 5F 4D 00 7D 46 64 23 20 C5 51 4D 00 8B 46 |TA_M.}Fd# .QM..F|
00003E80: 6E 23 20 D2 44 45 4C 54 41 5F 4D 00 94 46 78 23 |n# .DELTA_M..Fx#|
00003E90: 20 CA 51 48 00 9D 46 82 23 20 C5 23 30 00 AB 46 | .QH..F.# .#0..F|
00003EA0: 8C 23 20 D2 44 45 4C 54 41 5F 48 00 B7 46 96 23 |.# .DELTA_H..F.#|
00003EB0: 20 D5 58 4C 4F 4F 50 00 DD 46 A0 23 3B 2A 2A 2A | .XLOOP..F.#;***|
00003EC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003ED0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 03 47 |*************..G|
00003EE0: AA 23 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.#;* |
00003EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003F00: 20 20 2A 00 29 47 B4 23 3B 2A 20 34 2E 20 44 49 | *.)G.#;* 4. DI|
00003F10: 56 49 44 45 20 44 49 46 46 2E 20 59 20 42 59 20 |VIDE DIFF. Y BY |
00003F20: 44 49 46 46 2E 20 58 20 2A 00 4F 47 BE 23 3B 2A |DIFF. X *.OG.#;*|
00003F30: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00003F40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 2A 00 |------------- *.|
00003F50: 75 47 C8 23 3B 2A 20 20 20 20 20 20 20 20 20 20 |uG.#;* |
00003F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003F70: 20 20 20 20 2A 00 9B 47 D2 23 3B 2A 20 54 48 49 | *..G.#;* THI|
00003F80: 53 20 49 53 20 41 20 32 34 2F 38 20 42 49 54 20 |S IS A 24/8 BIT |
00003F90: 44 49 56 49 53 49 4F 4E 2E 20 2A 00 C1 47 DC 23 |DIVISION. *..G.#|
00003FA0: 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |;* |
00003FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003FC0: 2A 00 E7 47 E6 23 3B 2A 20 44 43 2F 44 48 2F 44 |*..G.#;* DC/DH/D|
00003FD0: 4D 2F 44 4C 20 49 53 20 54 48 45 20 44 49 56 49 |M/DL IS THE DIVI|
00003FE0: 44 45 4E 44 2C 20 2A 00 0D 48 F0 23 3B 2A 20 44 |DEND, *..H.#;* D|
00003FF0: 49 46 46 58 4C 20 20 20 20 20 20 49 53 20 54 48 |IFFXL IS TH|
00004000: 45 20 44 49 56 49 53 4F 52 2C 20 20 2A 00 33 48 |E DIVISOR, *.3H|
00004010: FA 23 3B 2A 20 51 48 2F 51 4D 2F 51 4C 20 20 20 |.#;* QH/QM/QL |
00004020: 20 49 53 20 54 48 45 20 51 55 4F 54 49 45 4E 54 | IS THE QUOTIENT|
00004030: 2E 20 2A 00 59 48 04 24 3B 2A 20 20 20 20 20 20 |. *.YH.$;* |
00004040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004050: 20 20 20 20 20 20 20 20 2A 00 7F 48 0E 24 3B 2A | *..H.$;*|
00004060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00004070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00004080: 8C 48 18 24 59 57 41 59 20 C2 23 30 00 95 48 22 |.H.$YWAY .#0..H"|
00004090: 24 20 D3 44 4C 00 A1 48 2C 24 20 CA 44 49 46 46 |$ .DL..H,$ .DIFF|
000040A0: 59 00 AA 48 36 24 20 D2 44 4D 00 B3 48 40 24 20 |Y..H6$ .DM..H@$ |
000040B0: D3 44 48 00 BC 48 4A 24 20 D3 44 43 00 C6 48 54 |.DH..HJ$ .DC..HT|
000040C0: 24 20 C2 23 32 34 00 D7 48 5E 24 44 49 56 59 4C |$ .#24..H^$DIVYL|
000040D0: 4F 4F 50 20 CA 44 48 00 DE 48 68 24 20 E6 00 EB |OOP .DH..Hh$ ...|
000040E0: 48 72 24 20 D1 44 49 46 46 58 4C 00 F2 48 7C 24 |Hr$ .DIFFXL..H|$|
000040F0: 20 DA 00 FB 48 86 24 20 CA 44 43 00 04 49 90 24 | ...H.$ .DC..I.$|
00004100: 20 D1 23 30 00 13 49 9A 24 20 F4 52 4F 54 4C 45 | .#0..I.$ .ROTLE|
00004110: 46 54 59 00 1C 49 A4 24 20 D4 44 48 00 25 49 AE |FTY..I.$ .DH.%I.|
00004120: 24 20 D2 44 43 00 2C 49 B8 24 20 E6 00 36 49 C2 |$ .DC.,I.$ ..6I.|
00004130: 24 20 A5 24 32 34 00 45 49 CC 24 52 4F 54 4C 45 |$ .$24.EI.$ROTLE|
00004140: 46 54 59 20 E5 00 57 49 D6 24 20 CF 51 4C 3B 52 |FTY ..WI.$ .QL;R|
00004150: 4F 54 41 54 45 20 43 00 6A 49 E0 24 20 CF 51 4D |OTATE C.jI.$ .QM|
00004160: 3B 4C 45 46 54 20 49 4E 54 4F 00 7C 49 EA 24 20 |;LEFT INTO.|I.$ |
00004170: CF 51 48 3B 51 55 4F 54 49 45 4E 54 00 85 49 F4 |.QH;QUOTIENT..I.|
00004180: 24 20 CB 44 4C 00 95 49 FE 24 20 CF 44 4D 3B 52 |$ .DL..I.$ .DM;R|
00004190: 4F 54 41 54 45 00 A7 49 08 25 20 CF 44 48 3B 44 |OTATE..I.% .DH;D|
000041A0: 49 56 49 44 45 4E 44 00 B5 49 12 25 20 CF 44 43 |IVIDEND..I.% .DC|
000041B0: 3B 4C 45 46 54 00 BC 49 1C 25 20 EE 00 CB 49 26 |;LEFT..I.% ...I&|
000041C0: 25 20 F0 44 49 56 59 4C 4F 4F 50 00 F1 49 30 25 |% .DIVYLOOP..I0%|
000041D0: 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |;===============|
000041E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000041F0: 3D 00 FA 49 3A 25 20 CA 51 48 00 08 4A 44 25 20 |=..I:% .QH..JD% |
00004200: D2 44 45 4C 54 41 5F 48 00 11 4A 4E 25 20 CA 51 |.DELTA_H..JN% .Q|
00004210: 4D 00 1F 4A 58 25 20 D2 44 45 4C 54 41 5F 4D 00 |M..JX% .DELTA_M.|
00004220: 28 4A 62 25 20 CA 51 4C 00 36 4A 6C 25 20 D2 44 |(Jb% .QL.6Jl% .D|
00004230: 45 4C 54 41 5F 4C 00 5C 4A 76 25 3B 3D 3D 3D 3D |ELTA_L.\Jv%;====|
00004240: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00004250: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 6A 4A 80 |============.jJ.|
00004260: 25 59 4C 4F 4F 50 20 CA 59 30 00 7C 4A 8A 25 20 |%YLOOP .Y0.|J.% |
00004270: C4 59 31 3B 49 46 20 59 30 3D 59 31 00 92 4A 94 |.Y1;IF Y0=Y1..J.|
00004280: 25 20 F6 59 43 4F 4E 54 3B 54 48 45 4E 20 45 58 |% .YCONT;THEN EX|
00004290: 49 54 00 99 4A 9E 25 20 E3 00 BF 4A A8 25 3B 3D |IT..J.% ...J.%;=|
000042A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000042B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
000042C0: CE 4A B2 25 59 43 4F 4E 54 20 CA 58 30 4C 00 D8 |.J.%YCONT .X0L..|
000042D0: 4A BC 25 20 C2 58 30 48 00 E1 4A C6 25 20 C3 59 |J.% .X0H..J.% .Y|
000042E0: 30 00 EE 4A D0 25 20 D6 41 43 43 45 53 53 00 F7 |0..J.% .ACCESS..|
000042F0: 4A DA 25 20 CA 59 30 00 FE 4A E4 25 20 E5 00 07 |J.% .Y0..J.% ...|
00004300: 4B EE 25 20 C5 44 59 00 10 4B F8 25 20 D2 59 30 |K.% .DY..K.% .Y0|
00004310: 00 22 4B 02 26 53 45 54 58 20 C7 44 45 4C 54 41 |."K.&SETX .DELTA|
00004320: 5F 48 00 2E 4B 0C 26 20 F6 59 4C 4F 4F 50 00 37 |_H..K.& .YLOOP.7|
00004330: 4B 16 26 20 CA 44 58 00 44 4B 20 26 20 F1 58 44 |K.& .DX.DK & .XD|
00004340: 4F 57 4E 59 00 4E 4B 2A 26 20 C9 58 30 4C 00 5D |OWNY.NK*& .X0L.]|
00004350: 4B 34 26 20 F6 47 45 54 44 45 4C 54 41 00 67 4B |K4& .GETDELTA.gK|
00004360: 3E 26 20 C9 58 30 48 00 76 4B 48 26 20 F6 47 45 |>& .X0H.vKH& .GE|
00004370: 54 44 45 4C 54 41 00 86 4B 52 26 58 44 4F 57 4E |TDELTA..KR&XDOWN|
00004380: 59 20 C7 58 30 4C 00 90 4B 5C 26 20 CA 58 30 4C |Y .X0L..K\& .X0L|
00004390: 00 9B 4B 66 26 20 C4 23 24 46 46 00 AA 4B 70 26 |..Kf& .#$FF..Kp&|
000043A0: 20 F6 47 45 54 44 45 4C 54 41 00 B4 4B 7A 26 20 | .GETDELTA..Kz& |
000043B0: C7 58 30 48 00 DA 4B 84 26 3B 3D 3D 3D 3D 3D 3D |.X0H..K.&;======|
000043C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000043D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 E9 4B 8E 26 47 |==========..K.&G|
000043E0: 45 54 44 45 4C 54 41 20 E5 00 F7 4B 98 26 20 CA |ETDELTA ...K.& .|
000043F0: 44 45 4C 54 41 5F 4C 00 00 4C A2 26 20 C5 51 4C |DELTA_L..L.& .QL|
00004400: 00 0E 4C AC 26 20 D2 44 45 4C 54 41 5F 4C 00 1C |..L.& .DELTA_L..|
00004410: 4C B6 26 20 CA 44 45 4C 54 41 5F 4D 00 25 4C C0 |L.& .DELTA_M.%L.|
00004420: 26 20 C5 51 4D 00 33 4C CA 26 20 D2 44 45 4C 54 |& .QM.3L.& .DELT|
00004430: 41 5F 4D 00 3C 4C D4 26 20 CA 51 48 00 45 4C DE |A_M.<L.& .QH.EL.|
00004440: 26 20 C5 23 30 00 53 4C E8 26 20 D2 44 45 4C 54 |& .#0.SL.& .DELT|
00004450: 41 5F 48 00 5F 4C F2 26 20 D5 59 4C 4F 4F 50 00 |A_H._L.& .YLOOP.|
00004460: 85 4C 10 27 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.L.';-----------|
00004470: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004480: 2D 2D 2D 2D 2D 00 8B 4C 1A 27 3B 00 A9 4C 24 27 |-----..L.';..L$'|
00004490: 3B 20 20 20 20 20 20 44 52 41 57 2F 43 4C 45 41 |; DRAW/CLEA|
000044A0: 52 20 41 20 46 52 41 4D 45 00 C7 4C 2E 27 3B 20 |R A FRAME..L.'; |
000044B0: 20 20 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ===========|
000044C0: 3D 3D 3D 3D 3D 3D 3D 00 CD 4C 38 27 3B 00 F0 4C |=======..L8';..L|
000044D0: 42 27 3B 20 46 52 41 4D 45 20 5A 45 49 43 48 4E |B'; FRAME ZEICHN|
000044E0: 45 54 20 45 49 4E 45 4E 20 52 41 48 4D 45 4E 2E |ET EINEN RAHMEN.|
000044F0: 00 14 4D 4C 27 3B 20 43 46 52 41 4D 45 20 4C 4F |..ML'; CFRAME LO|
00004500: 45 53 43 48 54 20 44 49 45 53 45 4E 20 52 41 48 |ESCHT DIESEN RAH|
00004510: 4D 45 4E 2E 00 1A 4D 56 27 3B 00 3D 4D 60 27 3B |MEN...MV';.=M`';|
00004520: 20 28 46 58 30 2C 46 59 30 29 20 45 4E 54 48 41 | (FX0,FY0) ENTHA|
00004530: 45 4C 54 20 44 49 45 20 4C 49 4E 4B 45 00 5C 4D |ELT DIE LINKE.\M|
00004540: 6A 27 3B 20 4F 42 45 52 45 20 45 43 4B 45 20 41 |j'; OBERE ECKE A|
00004550: 4E 44 20 28 46 58 31 2C 46 59 31 29 00 79 4D 74 |ND (FX1,FY1).yMt|
00004560: 27 3B 20 44 49 45 20 52 45 43 48 54 45 20 55 4E |'; DIE RECHTE UN|
00004570: 54 45 52 45 20 45 43 4B 45 00 91 4D 7E 27 3B 20 |TERE ECKE..M~'; |
00004580: 28 4F 44 45 52 20 55 4D 47 45 4B 45 48 52 54 29 |(ODER UMGEKEHRT)|
00004590: 2E 00 97 4D 88 27 3B 00 BD 4D 92 27 3B 2D 2D 2D |...M.';..M.';---|
000045A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000045B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 CB 4D |-------------..M|
000045C0: 9C 27 A3 50 58 30 4C 3D 58 30 4C 00 D9 4D A6 27 |.'.PX0L=X0L..M.'|
000045D0: A3 50 58 30 48 3D 58 30 48 00 E7 4D B0 27 A3 50 |.PX0H=X0H..M.'.P|
000045E0: 58 31 4C 3D 58 31 4C 00 F5 4D BA 27 A3 50 58 31 |X1L=X1L..M.'.PX1|
000045F0: 48 3D 58 31 48 00 01 4E C4 27 A3 50 59 30 3D 59 |H=X1H..N.'.PY0=Y|
00004600: 30 00 0D 4E CE 27 A3 50 59 31 3D 59 31 00 20 4E |0..N.'.PY1=Y1. N|
00004610: D8 27 A1 4C 43 A0 58 43 4C 2C 58 43 48 2C 59 43 |.'.LC.XCL,XCH,YC|
00004620: 00 2A 4E E2 27 20 CA 58 43 4C 00 34 4E EC 27 20 |.*N.' .XCL.4N.' |
00004630: C2 58 43 48 00 3D 4E F6 27 20 C3 59 43 00 43 4E |.XCH.=N.' .YC.CN|
00004640: 00 28 A2 00 56 4E 0A 28 A1 53 43 A0 58 43 4C 2C |.(..VN.(.SC.XCL,|
00004650: 58 43 48 2C 59 43 00 60 4E 14 28 20 D2 58 43 4C |XCH,YC.`N.( .XCL|
00004660: 00 6A 4E 1E 28 20 D3 58 43 48 00 73 4E 28 28 20 |.jN.( .XCH.sN(( |
00004670: D4 59 43 00 79 4E 32 28 A2 00 8D 4E 3C 28 A1 58 |.YC.yN2(...N<(.X|
00004680: 46 30 A0 53 58 4C 2C 53 58 48 2C 53 59 00 A0 4E |F0.SXL,SXH,SY..N|
00004690: 46 28 20 4C 43 A0 53 58 4C 2C 53 58 48 2C 53 59 |F( LC.SXL,SXH,SY|
000046A0: 00 B6 4E 50 28 20 53 43 A0 50 58 30 4C 2C 50 58 |..NP( SC.PX0L,PX|
000046B0: 30 48 2C 50 59 30 00 BC 4E 5A 28 A2 00 D0 4E 64 |0H,PY0..NZ(...Nd|
000046C0: 28 A1 58 46 31 A0 53 58 4C 2C 53 58 48 2C 53 59 |(.XF1.SXL,SXH,SY|
000046D0: 00 E3 4E 6E 28 20 4C 43 A0 53 58 4C 2C 53 58 48 |..Nn( LC.SXL,SXH|
000046E0: 2C 53 59 00 F9 4E 78 28 20 53 43 A0 50 58 31 4C |,SY..Nx( SC.PX1L|
000046F0: 2C 50 58 31 48 2C 50 59 31 00 FF 4E 82 28 A2 00 |,PX1H,PY1..N.(..|
00004700: 0D 4F 8C 28 46 52 41 4D 45 20 CA 23 31 00 17 4F |.O.(FRAME .#1..O|
00004710: 96 28 20 F6 2A 2B 34 00 26 4F A0 28 43 46 52 41 |.( .*+4.&O.(CFRA|
00004720: 4D 45 20 CA 23 30 00 2E 4F AA 28 20 D2 32 00 45 |ME .#0..O.( .2.E|
00004730: 4F B4 28 20 58 46 30 A0 46 58 30 4C 2C 46 58 30 |O.( XF0.FX0L,FX0|
00004740: 48 2C 46 59 30 00 5C 4F BE 28 20 58 46 31 A0 46 |H,FY0.\O.( XF1.F|
00004750: 58 31 4C 2C 46 58 31 48 2C 46 59 30 00 6D 4F C8 |X1L,FX1H,FY0.mO.|
00004760: 28 20 D6 41 43 43 45 53 53 4C 49 4E 45 00 84 4F |( .ACCESSLINE..O|
00004770: D2 28 20 58 46 30 A0 46 58 31 4C 2C 46 58 31 48 |.( XF0.FX1L,FX1H|
00004780: 2C 46 59 31 00 95 4F DC 28 20 D6 41 43 43 45 53 |,FY1..O.( .ACCES|
00004790: 53 4C 49 4E 45 00 AC 4F E6 28 20 58 46 30 A0 46 |SLINE..O.( XF0.F|
000047A0: 58 30 4C 2C 46 58 30 48 2C 46 59 30 00 C3 4F F0 |X0L,FX0H,FY0..O.|
000047B0: 28 20 58 46 31 A0 46 58 30 4C 2C 46 58 30 48 2C |( XF1.FX0L,FX0H,|
000047C0: 46 59 31 00 D4 4F FA 28 20 D6 41 43 43 45 53 53 |FY1..O.( .ACCESS|
000047D0: 4C 49 4E 45 00 EB 4F 04 29 20 58 46 30 A0 46 58 |LINE..O.) XF0.FX|
000047E0: 31 4C 2C 46 58 31 48 2C 46 59 31 00 FC 4F 0E 29 |1L,FX1H,FY1..O.)|
000047F0: 20 D5 41 43 43 45 53 53 4C 49 4E 45 00 22 50 18 | .ACCESSLINE."P.|
00004800: 29 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |);--------------|
00004810: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004820: 2D 2D 00 28 50 22 29 3B 00 43 50 2C 29 3B 20 20 |--.(P");.CP,); |
00004830: 20 20 20 20 20 20 20 46 49 4C 4C 20 41 20 46 52 | FILL A FR|
00004840: 41 4D 45 00 5E 50 36 29 3B 20 20 20 20 20 20 20 |AME.^P6); |
00004850: 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 64 | ============.d|
00004860: 50 40 29 3B 00 88 50 4A 29 3B 20 46 49 4C 4C 20 |P@);..PJ); FILL |
00004870: 46 55 45 4C 54 54 20 45 49 4E 45 4E 20 42 45 52 |FUELTT EINEN BER|
00004880: 45 49 43 48 20 44 45 52 00 A9 50 54 29 3B 20 47 |EICH DER..PT); G|
00004890: 52 41 46 49 4B 53 45 49 54 45 2C 20 44 45 52 20 |RAFIKSEITE, DER |
000048A0: 56 4F 4E 20 45 49 4E 45 4D 00 C7 50 5E 29 3B 20 |VON EINEM..P^); |
000048B0: 52 41 48 4D 45 4E 20 42 45 53 43 48 52 41 45 4E |RAHMEN BESCHRAEN|
000048C0: 4B 54 20 49 53 54 2E 00 CD 50 68 29 3B 00 F0 50 |KT IST...Ph);..P|
000048D0: 72 29 3B 20 4F 48 4E 45 20 42 45 47 52 45 4E 5A |r); OHNE BEGRENZ|
000048E0: 55 4E 47 20 57 49 52 44 20 4A 45 57 45 49 4C 53 |UNG WIRD JEWEILS|
000048F0: 00 12 51 7C 29 3B 20 42 49 53 20 5A 55 4D 20 42 |..Q|); BIS ZUM B|
00004900: 49 4C 44 53 43 48 49 52 4D 52 41 4E 44 20 41 55 |ILDSCHIRMRAND AU|
00004910: 46 2D 00 22 51 86 29 3B 20 47 45 46 55 45 4C 4C |F-."Q.); GEFUELL|
00004920: 54 2E 00 28 51 90 29 3B 00 4B 51 9A 29 3B 20 44 |T..(Q.);.KQ.); D|
00004930: 45 52 20 50 55 4E 4B 54 2C 20 41 4E 20 44 45 4D |ER PUNKT, AN DEM|
00004940: 20 44 49 45 20 46 55 45 4C 4C 2D 00 6F 51 A4 29 | DIE FUELL-.oQ.)|
00004950: 3B 20 4F 50 45 52 41 54 49 4F 4E 45 4E 20 42 45 |; OPERATIONEN BE|
00004960: 47 49 4E 4E 54 2C 20 57 49 52 44 20 4D 49 54 00 |GINNT, WIRD MIT.|
00004970: 93 51 AE 29 3B 20 41 2C 58 2C 59 20 52 45 47 49 |.Q.); A,X,Y REGI|
00004980: 53 54 45 52 4E 20 57 49 45 20 42 45 49 20 22 53 |STERN WIE BEI "S|
00004990: 45 54 22 00 A5 51 B8 29 3B 20 46 45 53 54 47 45 |ET"..Q.); FESTGE|
000049A0: 4C 45 47 54 2E 00 AB 51 C2 29 3B 00 CE 51 CC 29 |LEGT...Q.);..Q.)|
000049B0: 3B 20 49 53 54 20 44 49 45 53 45 52 20 50 55 4E |; IST DIESER PUN|
000049C0: 4B 54 20 42 45 52 45 49 54 53 20 47 45 2D 00 EF |KT BEREITS GE-..|
000049D0: 51 D6 29 3B 20 53 45 54 5A 54 2C 20 53 54 4F 50 |Q.); SETZT, STOP|
000049E0: 50 54 20 46 49 4C 4C 20 53 4F 46 4F 52 54 2E 00 |PT FILL SOFORT..|
000049F0: F5 51 E0 29 3B 00 16 52 EA 29 3B 20 57 41 52 4E |.Q.);..R.); WARN|
00004A00: 55 4E 47 3A 20 49 4E 20 44 49 45 53 45 52 20 56 |UNG: IN DIESER V|
00004A10: 45 52 53 49 4F 4E 00 3A 52 F4 29 3B 20 57 45 52 |ERSION.:R.); WER|
00004A20: 44 45 4E 20 4E 55 52 20 52 45 43 48 54 45 43 4B |DEN NUR RECHTECK|
00004A30: 49 47 45 20 52 41 48 4D 45 4E 00 5A 52 FE 29 3B |IGE RAHMEN.ZR.);|
00004A40: 20 56 4F 4C 4C 53 54 41 45 4E 44 49 47 20 41 55 | VOLLSTAENDIG AU|
00004A50: 53 47 45 46 55 45 4C 4C 54 2E 00 7B 52 08 2A 3B |SGEFUELLT..{R.*;|
00004A60: 20 49 4E 20 41 4E 44 45 52 45 4E 20 46 41 45 4C | IN ANDEREN FAEL|
00004A70: 4C 45 4E 20 4B 4F 45 4E 4E 45 4E 00 A1 52 12 2A |LEN KOENNEN..R.*|
00004A80: 3B 20 4D 45 48 52 45 52 45 20 22 46 49 4C 4C 53 |; MEHRERE "FILLS|
00004A90: 22 20 4E 4F 54 57 45 4E 44 49 47 20 53 45 49 4E |" NOTWENDIG SEIN|
00004AA0: 2E 00 A7 52 1C 2A 3B 00 CD 52 26 2A 3B 2D 2D 2D |...R.*;..R&*;---|
00004AB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004AC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 D8 52 |-------------..R|
00004AD0: 30 2A 53 58 4C 20 A7 31 00 E3 52 3A 2A 53 58 48 |0*SXL .1..R:*SXH|
00004AE0: 20 A7 31 00 ED 52 44 2A 53 59 20 A7 31 00 F8 52 | .1..RD*SY .1..R|
00004AF0: 4E 2A 43 58 4C 20 A7 31 00 03 53 58 2A 43 58 48 |N*CXL .1..SX*CXH|
00004B00: 20 A7 31 00 0D 53 62 2A 43 59 20 A7 31 00 1B 53 | .1..Sb*CY .1..S|
00004B10: 6C 2A A1 49 4E 57 A0 57 4F 52 44 00 26 53 76 2A |l*.INW.WORD.&Sv*|
00004B20: 20 C9 57 4F 52 44 00 30 53 80 2A 20 F6 45 4E 44 | .WORD.0S.* .END|
00004B30: 00 3D 53 8A 2A 20 C9 57 4F 52 44 2B 31 00 45 53 |.=S.* .WORD+1.ES|
00004B40: 94 2A 45 4E 44 00 4B 53 9E 2A A2 00 59 53 A8 2A |.*END.KS.*..YS.*|
00004B50: A1 44 43 57 A0 57 4F 52 44 00 64 53 B2 2A 20 C7 |.DCW.WORD.dS.* .|
00004B60: 57 4F 52 44 00 6F 53 BC 2A 20 CA 57 4F 52 44 00 |WORD.oS.* .WORD.|
00004B70: 7A 53 C6 2A 20 C4 23 24 46 46 00 84 53 D0 2A 20 |zS.* .#$FF..S.* |
00004B80: F6 45 4E 44 00 91 53 DA 2A 20 C7 57 4F 52 44 2B |.END..S.* .WORD+|
00004B90: 31 00 99 53 E4 2A 45 4E 44 00 9F 53 EE 2A A2 00 |1..S.*END..S.*..|
00004BA0: B6 53 F8 2A 46 49 4C 4C 20 53 43 A0 53 58 4C 2C |.S.*FILL SC.SXL,|
00004BB0: 53 58 48 2C 53 59 00 C1 53 02 2B 20 D6 54 45 53 |SXH,SY..S.+ .TES|
00004BC0: 54 00 CD 53 0C 2B 20 F4 42 45 47 49 4E 00 D4 53 |T..S.+ .BEGIN..S|
00004BD0: 16 2B 20 E3 00 EC 53 20 2B 42 45 47 49 4E 20 4C |.+ ...S +BEGIN L|
00004BE0: 43 A0 53 58 4C 2C 53 58 48 2C 53 59 00 05 54 2A |C.SXL,SXH,SY..T*|
00004BF0: 2B 4C 49 4E 45 55 50 20 53 43 A0 43 58 4C 2C 43 |+LINEUP SC.CXL,C|
00004C00: 58 48 2C 43 59 00 10 54 34 2B 20 D6 54 45 53 54 |XH,CY..T4+ .TEST|
00004C10: 00 1C 54 3E 2B 20 F4 53 45 54 55 50 00 27 54 48 |..T>+ .SETUP.'TH|
00004C20: 2B 20 D5 44 4F 57 4E 00 3F 54 52 2B 53 45 54 55 |+ .DOWN.?TR+SETU|
00004C30: 50 20 4C 43 A0 43 58 4C 2C 43 58 48 2C 43 59 00 |P LC.CXL,CXH,CY.|
00004C40: 49 54 5C 2B 20 D6 53 45 54 00 53 54 66 2B 20 CA |IT\+ .SET.STf+ .|
00004C50: 43 58 4C 00 63 54 70 2B 20 F6 44 45 43 52 58 3B |CXL.cTp+ .DECRX;|
00004C60: 48 49 54 00 72 54 7A 2B 20 CA 43 58 48 3B 4C 45 |HIT.rTz+ .CXH;LE|
00004C70: 46 54 00 87 54 84 2B 20 F7 43 4F 4E 54 52 3B 42 |FT..T.+ .CONTR;B|
00004C80: 4F 52 44 45 52 20 3F 00 99 54 8E 2B 44 45 43 52 |ORDER ?..T.+DECR|
00004C90: 58 20 44 43 57 A0 43 58 4C 00 AC 54 98 2B 20 4C |X DCW.CXL..T.+ L|
00004CA0: 43 A0 43 58 4C 2C 43 58 48 2C 43 59 00 B7 54 A2 |C.CXL,CXH,CY..T.|
00004CB0: 2B 20 D6 54 45 53 54 00 C3 54 AC 2B 20 F4 53 45 |+ .TEST..T.+ .SE|
00004CC0: 54 55 50 00 D8 54 B6 2B 43 4F 4E 54 52 20 CA 53 |TUP..T.+CONTR .S|
00004CD0: 58 4C 3B 53 54 41 52 54 00 EB 54 C0 2B 20 C2 53 |XL;START..T.+ .S|
00004CE0: 58 48 3B 58 2D 43 4F 4F 52 44 2E 00 F5 54 CA 2B |XH;X-COORD...T.+|
00004CF0: 20 D2 43 58 4C 00 FF 54 D4 2B 20 D3 43 58 48 00 | .CXL..T.+ .CXH.|
00004D00: 0E 55 DE 2B 57 41 4C 4B 52 20 CA 43 58 48 00 1A |.U.+WALKR .CXH..|
00004D10: 55 E8 2B 20 F7 49 4E 43 52 58 00 28 55 F2 2B 20 |U.+ .INCRX.(U.+ |
00004D20: CA 43 58 4C 3B 48 49 54 00 39 55 FC 2B 20 C4 23 |.CXL;HIT.9U.+ .#|
00004D30: 24 34 30 3B 52 49 47 48 54 00 4F 55 06 2C 20 F5 |$40;RIGHT.OU., .|
00004D40: 43 4F 4E 54 55 50 3B 42 4F 52 44 45 52 20 3F 00 |CONTUP;BORDER ?.|
00004D50: 61 55 10 2C 49 4E 43 52 58 20 49 4E 57 A0 43 58 |aU.,INCRX INW.CX|
00004D60: 4C 00 74 55 1A 2C 20 4C 43 A0 43 58 4C 2C 43 58 |L.tU., LC.CXL,CX|
00004D70: 48 2C 43 59 00 7F 55 24 2C 20 D6 54 45 53 54 00 |H,CY..U$, .TEST.|
00004D80: 8C 55 2E 2C 20 F5 43 4F 4E 54 55 50 00 9F 55 38 |.U., .CONTUP..U8|
00004D90: 2C 20 4C 43 A0 43 58 4C 2C 43 58 48 2C 43 59 00 |, LC.CXL,CXH,CY.|
00004DA0: A9 55 42 2C 20 D6 53 45 54 00 B5 55 4C 2C 20 D5 |.UB, .SET..UL, .|
00004DB0: 57 41 4C 4B 52 00 C5 55 56 2C 43 4F 4E 54 55 50 |WALKR..UV,CONTUP|
00004DC0: 20 CA 53 58 4C 00 CF 55 60 2C 20 C2 53 58 48 00 | .SXL..U`, .SXH.|
00004DD0: D9 55 6A 2C 20 D2 43 58 4C 00 E3 55 74 2C 20 D3 |.Uj, .CXL..Ut, .|
00004DE0: 43 58 48 00 F6 55 7E 2C 20 4C 43 A0 43 58 4C 2C |CXH..U~, LC.CXL,|
00004DF0: 43 58 48 2C 43 59 00 FD 55 88 2C 20 EC 00 08 56 |CXH,CY..U., ...V|
00004E00: 92 2C 20 C1 23 24 46 46 00 13 56 9C 2C 20 F7 44 |., .#$FF..V., .D|
00004E10: 4F 57 4E 00 20 56 A6 2C 20 D5 4C 49 4E 45 55 50 |OWN. V., .LINEUP|
00004E20: 00 37 56 B0 2C 44 4F 57 4E 20 4C 43 A0 53 58 4C |.7V.,DOWN LC.SXL|
00004E30: 2C 53 58 48 2C 53 59 00 4A 56 BA 2C 20 53 43 A0 |,SXH,SY.JV., SC.|
00004E40: 43 58 4C 2C 43 58 48 2C 43 59 00 57 56 C4 2C 42 |CXL,CXH,CY.WV.,B|
00004E50: 4F 54 54 4F 4D 20 ED 00 62 56 CE 2C 20 C1 23 32 |OTTOM ..bV., .#2|
00004E60: 30 30 00 72 56 D8 2C 20 F4 43 48 45 43 4B 44 4F |00.rV., .CHECKDO|
00004E70: 57 4E 00 79 56 E2 2C 20 E3 00 8B 56 EC 2C 43 48 |WN.yV., ...V.,CH|
00004E80: 45 43 4B 44 4F 57 4E 20 D4 43 59 00 96 56 F6 2C |ECKDOWN .CY..V.,|
00004E90: 20 D6 54 45 53 54 00 A4 56 00 2D 20 F4 53 45 54 | .TEST..V.- .SET|
00004EA0: 44 4F 57 4E 00 AB 56 0A 2D 20 E3 00 C5 56 14 2D |DOWN..V.- ...V.-|
00004EB0: 53 45 54 44 4F 57 4E 20 4C 43 A0 43 58 4C 2C 43 |SETDOWN LC.CXL,C|
00004EC0: 58 48 2C 43 59 00 CF 56 1E 2D 20 D6 53 45 54 00 |XH,CY..V.- .SET.|
00004ED0: D9 56 28 2D 20 CA 43 58 4C 00 EA 56 32 2D 20 F6 |.V(- .CXL..V2- .|
00004EE0: 44 45 43 52 58 44 3B 48 49 54 00 F9 56 3C 2D 20 |DECRXD;HIT..V<- |
00004EF0: CA 43 58 48 3B 4C 45 46 54 00 0F 57 46 2D 20 F7 |.CXH;LEFT..WF- .|
00004F00: 43 4F 4E 54 52 44 3B 42 4F 52 44 45 52 20 3F 00 |CONTRD;BORDER ?.|
00004F10: 22 57 50 2D 44 45 43 52 58 44 20 44 43 57 A0 43 |"WP-DECRXD DCW.C|
00004F20: 58 4C 00 35 57 5A 2D 20 4C 43 A0 43 58 4C 2C 43 |XL.5WZ- LC.CXL,C|
00004F30: 58 48 2C 43 59 00 40 57 64 2D 20 D6 54 45 53 54 |XH,CY.@Wd- .TEST|
00004F40: 00 4E 57 6E 2D 20 F4 53 45 54 44 4F 57 4E 00 64 |.NWn- .SETDOWN.d|
00004F50: 57 78 2D 43 4F 4E 54 52 44 20 CA 53 58 4C 3B 53 |Wx-CONTRD .SXL;S|
00004F60: 54 41 52 54 00 77 57 82 2D 20 C2 53 58 48 3B 58 |TART.wW.- .SXH;X|
00004F70: 2D 43 4F 4F 52 44 2E 00 81 57 8C 2D 20 D2 43 58 |-COORD...W.- .CX|
00004F80: 4C 00 8B 57 96 2D 20 D3 43 58 48 00 9B 57 A0 2D |L..W.- .CXH..W.-|
00004F90: 57 41 4C 4B 52 44 20 CA 43 58 48 00 A8 57 AA 2D |WALKRD .CXH..W.-|
00004FA0: 20 F7 49 4E 43 52 58 44 00 B6 57 B4 2D 20 CA 43 | .INCRXD..W.- .C|
00004FB0: 58 4C 3B 48 49 54 00 C7 57 BE 2D 20 C4 23 24 34 |XL;HIT..W.- .#$4|
00004FC0: 30 3B 52 49 47 48 54 00 DF 57 C8 2D 20 F5 43 4F |0;RIGHT..W.- .CO|
00004FD0: 4E 54 44 4F 57 4E 3B 42 4F 52 44 45 52 20 3F 00 |NTDOWN;BORDER ?.|
00004FE0: F2 57 D2 2D 49 4E 43 52 58 44 20 49 4E 57 A0 43 |.W.-INCRXD INW.C|
00004FF0: 58 4C 00 05 58 DC 2D 20 4C 43 A0 43 58 4C 2C 43 |XL..X.- LC.CXL,C|
00005000: 58 48 2C 43 59 00 10 58 E6 2D 20 D6 54 45 53 54 |XH,CY..X.- .TEST|
00005010: 00 1F 58 F0 2D 20 F5 43 4F 4E 54 44 4F 57 4E 00 |..X.- .CONTDOWN.|
00005020: 32 58 FA 2D 20 4C 43 A0 43 58 4C 2C 43 58 48 2C |2X.- LC.CXL,CXH,|
00005030: 43 59 00 3C 58 04 2E 20 D6 53 45 54 00 49 58 0E |CY.<X.. .SET.IX.|
00005040: 2E 20 D5 57 41 4C 4B 52 44 00 5B 58 18 2E 43 4F |. .WALKRD.[X..CO|
00005050: 4E 54 44 4F 57 4E 20 CA 53 58 4C 00 65 58 22 2E |NTDOWN .SXL.eX".|
00005060: 20 C2 53 58 48 00 6F 58 2C 2E 20 D2 43 58 4C 00 | .SXH.oX,. .CXL.|
00005070: 79 58 36 2E 20 D3 43 58 48 00 82 58 40 2E 20 C3 |yX6. .CXH..X@. .|
00005080: 43 59 00 8F 58 4A 2E 20 D5 42 4F 54 54 4F 4D 00 |CY..XJ. .BOTTOM.|
00005090: B5 58 54 2E 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.XT.;-----------|
000050A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000050B0: 2D 2D 2D 2D 2D 00 BB 58 5E 2E 3B 00 D2 58 68 2E |-----..X^.;..Xh.|
000050C0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 54 45 |; TE|
000050D0: 58 54 00 E9 58 72 2E 3B 20 20 20 20 20 20 20 20 |XT..Xr.; |
000050E0: 20 20 20 20 20 3D 3D 3D 3D 00 EF 58 7C 2E 3B 00 | ====..X|.;.|
000050F0: 0E 59 86 2E 3B 20 5A 45 49 47 54 20 41 53 43 49 |.Y..; ZEIGT ASCI|
00005100: 49 20 54 45 58 54 20 41 55 46 20 44 45 52 00 2E |I TEXT AUF DER..|
00005110: 59 90 2E 3B 20 41 4B 54 55 45 4C 4C 45 4E 20 47 |Y..; AKTUELLEN G|
00005120: 52 41 46 49 4B 53 45 49 54 45 20 41 4E 2E 00 34 |RAFIKSEITE AN..4|
00005130: 59 9A 2E 3B 00 58 59 A4 2E 3B 20 44 49 45 20 41 |Y..;.XY..; DIE A|
00005140: 44 52 45 53 53 45 20 44 45 53 20 41 4E 5A 55 5A |DRESSE DES ANZUZ|
00005150: 45 49 47 45 4E 44 45 4E 00 7A 59 AE 2E 3B 20 54 |EIGENDEN.zY..; T|
00005160: 45 58 54 45 53 20 57 49 52 44 20 49 4E 20 44 49 |EXTES WIRD IN DI|
00005170: 45 20 52 45 47 49 53 54 45 52 00 9A 59 B8 2E 3B |E REGISTER..Y..;|
00005180: 20 28 41 2F 59 29 20 28 4C 4F 57 2F 48 49 47 48 | (A/Y) (LOW/HIGH|
00005190: 29 20 47 45 4C 41 44 45 4E 3B 00 BE 59 C2 2E 3B |) GELADEN;..Y..;|
000051A0: 20 44 49 45 20 54 45 58 54 46 41 52 42 45 20 49 | DIE TEXTFARBE I|
000051B0: 4E 53 20 58 20 52 45 47 49 53 54 45 52 2E 00 DF |NS X REGISTER...|
000051C0: 59 CC 2E 3B 20 49 53 54 20 58 3E 31 32 38 2C 20 |Y..; IST X>128, |
000051D0: 57 49 52 44 20 4B 45 49 4E 45 20 4E 45 55 45 00 |WIRD KEINE NEUE.|
000051E0: F4 59 D6 2E 3B 20 46 41 52 42 45 20 47 45 53 45 |.Y..; FARBE GESE|
000051F0: 54 5A 54 2E 00 17 5A E0 2E 3B 20 44 49 45 20 53 |TZT...Z..; DIE S|
00005200: 50 41 4C 54 45 2F 5A 45 49 4C 45 2C 20 41 4E 20 |PALTE/ZEILE, AN |
00005210: 44 45 52 20 44 45 52 00 3D 5A EA 2E 3B 20 45 52 |DER DER.=Z..; ER|
00005220: 53 54 45 20 42 55 43 48 53 54 41 42 45 20 41 4E |STE BUCHSTABE AN|
00005230: 47 45 5A 45 49 47 54 20 57 49 52 44 2C 00 58 5A |GEZEIGT WIRD,.XZ|
00005240: F4 2E 3B 20 57 49 52 44 20 42 45 53 54 49 4D 4D |..; WIRD BESTIMM|
00005250: 4D 54 20 44 55 52 43 48 00 5E 5A FE 2E 3B 00 82 |MT DURCH.^Z..;..|
00005260: 5A 08 2F 3B 20 20 54 58 20 20 28 53 50 41 4C 54 |Z./; TX (SPALT|
00005270: 45 29 20 3A 20 30 20 3C 3D 20 54 58 20 3C 3D 20 |E) : 0 <= TX <= |
00005280: 33 39 00 A6 5A 12 2F 3B 20 20 54 59 20 20 28 5A |39..Z./; TY (Z|
00005290: 45 49 4C 45 29 20 20 3A 20 30 20 3C 3D 20 54 58 |EILE) : 0 <= TX|
000052A0: 20 3C 3D 20 32 34 00 AC 5A 1C 2F 3B 00 CD 5A 26 | <= 24..Z./;..Z&|
000052B0: 2F 3B 20 20 42 45 49 20 41 4E 44 45 52 45 4E 20 |/; BEI ANDEREN |
000052C0: 57 45 52 54 45 4E 20 53 54 4F 50 50 54 00 E5 5A |WERTEN STOPPT..Z|
000052D0: 30 2F 3B 20 20 22 20 54 45 58 54 20 22 20 53 4F |0/; " TEXT " SO|
000052E0: 46 4F 52 54 2E 00 EB 5A 3A 2F 3B 00 0F 5B 44 2F |FORT...Z:/;..[D/|
000052F0: 3B 20 45 58 50 58 20 42 45 53 54 49 4D 4D 54 20 |; EXPX BESTIMMT |
00005300: 44 49 45 20 48 4F 52 49 5A 4F 4E 54 41 4C 45 00 |DIE HORIZONTALE.|
00005310: 33 5B 4E 2F 3B 20 41 55 53 44 45 48 4E 55 4E 47 |3[N/; AUSDEHNUNG|
00005320: 20 44 45 52 20 42 55 43 48 53 54 41 42 45 4E 2E | DER BUCHSTABEN.|
00005330: 20 45 53 00 55 5B 58 2F 3B 20 57 45 52 44 45 4E | ES.U[X/; WERDEN|
00005340: 20 4E 55 52 20 44 49 45 20 42 45 49 44 45 4E 20 | NUR DIE BEIDEN |
00005350: 4C 53 42 27 53 00 79 5B 62 2F 3B 20 42 45 54 52 |LSB'S.y[b/; BETR|
00005360: 41 43 48 54 45 54 2E 20 44 49 45 20 57 45 52 54 |ACHTET. DIE WERT|
00005370: 45 20 30 2C 31 2C 32 2C 33 00 9E 5B 6C 2F 3B 20 |E 0,1,2,3..[l/; |
00005380: 42 45 53 54 49 4D 4D 45 4E 20 44 49 45 20 41 55 |BESTIMMEN DIE AU|
00005390: 53 44 45 48 4E 55 4E 47 20 49 4E 20 58 2D 00 AE |SDEHNUNG IN X-..|
000053A0: 5B 76 2F 3B 20 52 49 43 48 54 55 4E 47 2E 00 D0 |[v/; RICHTUNG...|
000053B0: 5B 80 2F 3B 20 45 58 50 59 20 42 45 53 54 49 4D |[./; EXPY BESTIM|
000053C0: 4D 54 20 44 49 45 20 56 45 52 54 49 4B 41 4C 45 |MT DIE VERTIKALE|
000053D0: 00 F1 5B 8A 2F 3B 20 41 55 53 44 45 48 4E 55 4E |..[./; AUSDEHNUN|
000053E0: 47 20 44 45 52 20 42 55 43 48 53 54 41 42 45 4E |G DER BUCHSTABEN|
000053F0: 2E 00 17 5C 94 2F 3B 20 44 49 45 20 57 45 52 54 |...\./; DIE WERT|
00005400: 45 20 45 4E 54 53 50 52 45 43 48 45 4E 20 44 45 |E ENTSPRECHEN DE|
00005410: 4E 45 4E 20 56 4F 4E 00 23 5C 9E 2F 3B 20 45 58 |NEN VON.#\./; EX|
00005420: 50 58 2E 00 48 5C A8 2F 3B 20 43 41 53 45 20 47 |PX..H\./; CASE G|
00005430: 49 42 54 20 41 4E 2C 20 57 45 4C 43 48 45 52 20 |IBT AN, WELCHER |
00005440: 5A 45 49 43 48 45 4E 2D 00 62 5C B2 2F 3B 20 53 |ZEICHEN-.b\./; S|
00005450: 41 54 5A 20 56 45 52 57 45 4E 44 45 54 20 57 49 |ATZ VERWENDET WI|
00005460: 52 44 00 87 5C BC 2F 3B 20 28 4E 55 52 20 44 41 |RD..\./; (NUR DA|
00005470: 53 20 4C 53 42 20 57 49 52 44 20 42 45 54 52 41 |S LSB WIRD BETRA|
00005480: 43 48 54 45 54 29 3A 00 8D 5C C6 2F 3B 00 AD 5C |CHTET):..\./;..\|
00005490: D0 2F 3B 20 20 20 20 20 20 43 41 53 45 3D 30 20 |./; CASE=0 |
000054A0: 3A 20 20 55 50 50 45 52 20 43 41 53 45 00 B3 5C |: UPPER CASE..\|
000054B0: DA 2F 3B 00 D3 5C E4 2F 3B 20 20 20 20 20 20 43 |./;..\./; C|
000054C0: 41 53 45 3D 31 20 3A 20 20 4C 4F 57 45 52 20 43 |ASE=1 : LOWER C|
000054D0: 41 53 45 00 D9 5C EE 2F 3B 00 FF 5C F8 2F 3B 20 |ASE..\./;..\./; |
000054E0: 57 49 52 44 20 42 45 49 20 44 45 52 20 41 4E 5A |WIRD BEI DER ANZ|
000054F0: 45 49 47 45 20 44 45 53 20 54 45 58 54 45 53 00 |EIGE DES TEXTES.|
00005500: 24 5D 02 30 3B 20 44 41 53 20 5A 45 49 4C 45 4E |$].0; DAS ZEILEN|
00005510: 45 4E 44 45 20 45 52 52 45 49 43 48 54 2C 20 48 |ENDE ERREICHT, H|
00005520: 41 45 4C 54 00 48 5D 0C 30 3B 20 44 49 45 20 52 |AELT.H].0; DIE R|
00005530: 4F 55 54 49 4E 45 2C 20 55 4E 44 20 44 45 52 20 |OUTINE, UND DER |
00005540: 52 45 53 54 20 44 45 53 00 65 5D 16 30 3B 20 54 |REST DES.e].0; T|
00005550: 45 58 54 45 53 20 57 49 52 44 20 49 47 4E 4F 52 |EXTES WIRD IGNOR|
00005560: 49 45 52 54 2E 00 6B 5D 20 30 3B 00 90 5D 2A 30 |IERT..k] 0;..]*0|
00005570: 3B 20 44 41 53 20 45 4E 44 45 20 44 45 53 20 54 |; DAS ENDE DES T|
00005580: 45 58 54 45 53 20 57 49 52 44 20 44 55 52 43 48 |EXTES WIRD DURCH|
00005590: 00 B4 5D 34 30 3B 20 45 49 4E 20 4E 55 4C 4C 20 |..]40; EIN NULL |
000055A0: 42 59 54 45 20 28 48 45 58 20 30 30 29 20 48 49 |BYTE (HEX 00) HI|
000055B0: 4E 54 45 52 00 D8 5D 3E 30 3B 20 44 45 4D 20 4C |NTER..]>0; DEM L|
000055C0: 45 54 5A 54 45 4E 20 5A 45 49 43 48 45 4E 20 4D |ETZTEN ZEICHEN M|
000055D0: 41 52 4B 49 45 52 54 2E 00 DE 5D 48 30 3B 00 04 |ARKIERT...]H0;..|
000055E0: 5E 52 30 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |^R0;------------|
000055F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00005600: 2D 2D 2D 2D 00 12 5E 5C 30 4D 41 54 42 55 46 20 |----..^\0MATBUF |
00005610: A7 38 00 1D 5E 66 30 42 58 4C 20 A7 31 00 28 5E |.8..^f0BXL .1.(^|
00005620: 70 30 42 58 48 20 A7 31 00 33 5E 7A 30 58 58 4C |p0BXH .1.3^z0XXL|
00005630: 20 A7 31 00 3E 5E 84 30 58 58 48 20 A7 31 00 48 | .1.>^.0XXH .1.H|
00005640: 5E 8E 30 58 59 20 A7 31 00 53 5E 98 30 58 58 43 |^.0XY .1.S^.0XXC|
00005650: 20 A7 31 00 5E 5E A2 30 58 59 43 20 A7 31 00 6D | .1.^^.0XYC .1.m|
00005660: 5E AC 30 54 45 58 54 43 4F 4C 20 A7 31 00 93 5E |^.0TEXTCOL .1..^|
00005670: B6 30 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.0;=============|
00005680: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00005690: 3D 3D 3D 00 A8 5E C0 30 54 45 58 54 20 D2 52 45 |===..^.0TEXT .RE|
000056A0: 41 44 43 48 41 52 2B 31 00 B9 5E CA 30 20 D4 52 |ADCHAR+1..^.0 .R|
000056B0: 45 41 44 43 48 41 52 2B 32 00 C7 5E D4 30 20 D3 |EADCHAR+2..^.0 .|
000056C0: 54 45 58 54 43 4F 4C 00 ED 5E DE 30 3B 3D 3D 3D |TEXTCOL..^.0;===|
000056D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000056E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 05 5F |=============.._|
000056F0: E8 30 54 45 58 54 4C 4F 4F 50 20 CA 54 58 3B 45 |.0TEXTLOOP .TX;E|
00005700: 4E 4F 55 47 48 00 1A 5F F2 30 20 C4 23 34 30 3B |NOUGH.._.0 .#40;|
00005710: 52 4F 4F 4D 20 4C 45 46 54 3F 00 2A 5F FC 30 20 |ROOM LEFT?.*_.0 |
00005720: F5 54 45 52 4D 49 4E 41 54 45 00 33 5F 06 31 20 |.TERMINATE.3_.1 |
00005730: CA 54 59 00 3D 5F 10 31 20 C4 23 32 35 00 4D 5F |.TY.=_.1 .#25.M_|
00005740: 1A 31 20 F5 54 45 52 4D 49 4E 41 54 45 00 6B 5F |.1 .TERMINATE.k_|
00005750: 24 31 52 45 41 44 43 48 41 52 20 CA 24 46 46 46 |$1READCHAR .$FFF|
00005760: 46 3B 54 45 58 54 20 41 44 52 2E 00 7A 5F 2E 31 |F;TEXT ADR..z_.1|
00005770: 20 F6 43 4F 4E 54 54 45 58 54 00 92 5F 38 31 54 | .CONTTEXT.._81T|
00005780: 45 52 4D 49 4E 41 54 45 20 CA 23 30 3B 52 45 53 |ERMINATE .#0;RES|
00005790: 45 54 00 A3 5F 42 31 20 D2 32 3B 4C 4F 43 2E 20 |ET.._B1 .2;LOC. |
000057A0: 32 20 21 00 AA 5F 4C 31 20 E3 00 D0 5F 56 31 3B |2 !.._L1 ..._V1;|
000057B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000057C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000057D0: 00 EC 5F 60 31 43 4F 4E 54 54 45 58 54 20 49 4E |.._`1CONTTEXT IN|
000057E0: 57 A0 52 45 41 44 43 48 41 52 2B 31 00 FA 5F 6A |W.READCHAR+1.._j|
000057F0: 31 20 C3 54 45 58 54 43 4F 4C 00 0A 60 74 31 20 |1 .TEXTCOL..`t1 |
00005800: F0 43 4F 4C 4F 52 43 48 41 52 00 15 60 7E 31 20 |.COLORCHAR..`~1 |
00005810: C4 23 22 20 22 00 26 60 88 31 20 F6 43 4F 4E 56 |.#" ".&`.1 .CONV|
00005820: 43 48 41 52 2B 31 00 34 60 92 31 20 D5 4E 45 58 |CHAR+1.4`.1 .NEX|
00005830: 54 43 4F 4C 00 44 60 9C 31 43 4F 4C 4F 52 43 48 |TCOL.D`.1COLORCH|
00005840: 41 52 20 DF 00 4D 60 A6 31 20 CA 23 30 00 57 60 |AR ..M`.1 .#0.W`|
00005850: B0 31 20 D2 4C 4F 57 00 62 60 BA 31 20 D2 48 49 |.1 .LOW.b`.1 .HI|
00005860: 47 48 00 73 60 C4 31 54 43 4C 20 C3 54 45 58 54 |GH.s`.1TCL .TEXT|
00005870: 43 4F 4C 00 7C 60 CE 31 20 CA 54 58 00 83 60 D8 |COL.|`.1 .TX..`.|
00005880: 31 20 E5 00 96 60 E2 31 20 C5 4C 4F 57 3B 58 20 |1 ...`.1 .LOW;X |
00005890: 4F 46 46 53 45 54 00 9D 60 EC 31 20 D8 00 A6 60 |OFFSET..`.1 ...`|
000058A0: F6 31 20 CA 54 59 00 AD 60 00 32 20 E5 00 C1 60 |.1 .TY..`.2 ...`|
000058B0: 0A 32 20 C5 48 49 47 48 3B 59 20 4F 46 46 53 45 |.2 .HIGH;Y OFFSE|
000058C0: 54 00 CE 60 14 32 20 D6 53 45 54 43 4F 4C 00 D8 |T..`.2 .SETCOL..|
000058D0: 60 1E 32 20 CA 4C 4F 57 00 E3 60 28 32 20 C4 45 |`.2 .LOW..`(2 .E|
000058E0: 58 50 58 00 ED 60 32 32 20 F7 54 43 43 00 F7 60 |XPX..`22 .TCC..`|
000058F0: 3C 32 20 C9 4C 4F 57 00 01 61 46 32 20 F6 54 43 |<2 .LOW..aF2 .TC|
00005900: 4C 00 0F 61 50 32 54 43 43 20 CA 48 49 47 48 00 |L..aP2TCC .HIGH.|
00005910: 1A 61 5A 32 20 C4 45 58 50 59 00 29 61 64 32 20 |.aZ2 .EXPY.)ad2 |
00005920: F7 43 4F 4E 56 43 48 41 52 00 32 61 6E 32 20 CA |.CONVCHAR.2an2 .|
00005930: 23 30 00 3C 61 78 32 20 D2 4C 4F 57 00 47 61 82 |#0.<ax2 .LOW.Ga.|
00005940: 32 20 C9 48 49 47 48 00 51 61 8C 32 20 F6 54 43 |2 .HIGH.Qa.2 .TC|
00005950: 4C 00 77 61 96 32 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D |L.wa.2;=========|
00005960: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00005970: 3D 3D 3D 3D 3D 3D 3D 00 86 61 A0 32 43 4F 4E 56 |=======..a.2CONV|
00005980: 43 48 41 52 20 E0 00 91 61 AA 32 20 C4 23 24 34 |CHAR ...a.2 .#$4|
00005990: 30 00 9A 61 B4 32 20 F4 54 4C 00 AD 61 BE 32 20 |0..a.2 .TL..a.2 |
000059A0: C4 23 24 36 30 3B 43 4F 4E 56 45 52 54 00 BD 61 |.#$60;CONVERT..a|
000059B0: C8 32 20 F4 43 56 31 3B 41 53 43 49 49 00 CB 61 |.2 .CV1;ASCII..a|
000059C0: D2 32 20 C4 23 24 38 30 3B 54 4F 00 DC 61 DC 32 |.2 .#$80;TO..a.2|
000059D0: 20 F4 43 56 32 3B 53 43 52 45 45 4E 00 EC 61 E6 | .CV2;SCREEN..a.|
000059E0: 32 20 C4 23 24 43 30 3B 43 4F 44 45 00 F6 61 F0 |2 .#$C0;CODE..a.|
000059F0: 32 20 F4 43 56 31 00 00 62 FA 32 43 56 32 20 E6 |2 .CV1..b.2CV2 .|
00005A00: 00 0B 62 04 33 20 D1 23 24 34 30 00 15 62 0E 33 |..b.3 .#$40..b.3|
00005A10: 43 56 31 20 E6 00 20 62 18 33 20 D1 23 24 34 30 |CV1 .. b.3 .#$40|
00005A20: 00 31 62 22 33 54 4C 20 D2 43 52 50 3B 49 4E 49 |.1b"3TL .CRP;INI|
00005A30: 54 00 43 62 2C 33 20 CA 23 30 3B 43 48 41 52 2D |T.Cb,3 .#0;CHAR-|
00005A40: 52 4F 4D 00 57 62 36 33 20 D2 43 52 50 2B 31 3B |ROM.Wb63 .CRP+1;|
00005A50: 50 4F 49 4E 54 45 52 00 60 62 40 33 20 C2 23 33 |POINTER.`b@3 .#3|
00005A60: 00 78 62 4A 33 4D 55 4C 54 38 20 CB 43 52 50 3B |.xbJ3MULT8 .CRP;|
00005A70: 4D 55 4C 54 49 50 4C 59 00 8F 62 54 33 20 CF 43 |MULTIPLY..bT3 .C|
00005A80: 52 50 2B 31 3B 22 43 52 50 22 20 42 59 20 38 00 |RP+1;"CRP" BY 8.|
00005A90: 96 62 5E 33 20 EE 00 A2 62 68 33 20 F6 4D 55 4C |.b^3 ...bh3 .MUL|
00005AA0: 54 38 00 B6 62 72 33 20 CA 43 41 53 45 3B 41 44 |T8..br3 .CASE;AD|
00005AB0: 44 20 42 41 53 45 00 C7 62 7C 33 20 C6 23 31 3B |D BASE..b|3 .#1;|
00005AC0: 41 44 44 52 45 53 53 00 CE 62 86 33 20 CB 00 DF |ADDRESS..b.3 ...|
00005AD0: 62 90 33 20 CB 3B 43 48 41 52 41 43 54 45 52 00 |b.3 .;CHARACTER.|
00005AE0: F0 62 9A 33 20 CB 3B 4D 41 54 52 49 58 20 49 53 |.b.3 .;MATRIX IS|
00005AF0: 00 04 63 A4 33 20 C5 23 24 44 30 3B 52 4F 4D 20 |..c.3 .#$D0;ROM |
00005B00: 41 52 45 41 00 1A 63 AE 33 20 C5 43 52 50 2B 31 |AREA..c.3 .CRP+1|
00005B10: 3B 41 54 20 24 44 30 30 30 21 00 26 63 B8 33 20 |;AT $D000!.&c.3 |
00005B20: D2 43 52 50 2B 31 00 4C 63 C2 33 3B 2A 2A 2A 2A |.CRP+1.Lc.3;****|
00005B30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 72 63 CC |************.rc.|
00005B50: 33 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |3;* |
00005B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005B70: 20 2A 00 98 63 D6 33 3B 2A 20 43 52 50 20 4E 4F | *..c.3;* CRP NO|
00005B80: 57 20 43 4F 4E 54 41 49 4E 53 20 50 4F 49 4E 54 |W CONTAINS POINT|
00005B90: 45 52 20 54 4F 20 20 2A 00 BE 63 E0 33 3B 2A 20 |ER TO *..c.3;* |
00005BA0: 54 48 45 20 41 43 54 55 41 4C 20 38 2A 38 20 2D |THE ACTUAL 8*8 -|
00005BB0: 20 42 49 54 20 4D 41 54 52 49 58 20 20 2A 00 E4 | BIT MATRIX *..|
00005BC0: 63 EA 33 3B 2A 20 4F 46 20 54 48 45 20 43 48 41 |c.3;* OF THE CHA|
00005BD0: 52 41 43 54 45 52 20 54 4F 20 42 45 20 44 49 53 |RACTER TO BE DIS|
00005BE0: 2D 20 20 2A 00 0A 64 F4 33 3B 2A 20 50 4C 41 59 |- *..d.3;* PLAY|
00005BF0: 45 44 2E 20 54 48 45 53 45 20 38 20 42 59 54 45 |ED. THESE 8 BYTE|
00005C00: 53 20 41 52 45 20 20 20 20 2A 00 30 64 FE 33 3B |S ARE *.0d.3;|
00005C10: 2A 20 4E 4F 57 20 43 4F 50 49 45 44 20 49 4E 54 |* NOW COPIED INT|
00005C20: 4F 20 22 20 4D 41 54 42 55 46 20 22 2E 20 20 2A |O " MATBUF ". *|
00005C30: 00 56 64 08 34 3B 2A 20 20 20 20 20 20 20 20 20 |.Vd.4;* |
00005C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005C50: 20 20 20 20 20 2A 00 7C 64 12 34 3B 2A 2A 2A 2A | *.|d.4;****|
00005C60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8C 64 1C |************..d.|
00005C80: 34 20 E8 3B 49 52 51 20 4F 46 46 2C 00 A1 64 26 |4 .;IRQ OFF,..d&|
00005C90: 34 20 CA 23 24 33 33 3B 43 48 41 52 41 43 54 45 |4 .#$33;CHARACTE|
00005CA0: 52 00 B2 64 30 34 20 D2 31 3B 52 4F 4D 20 4F 4E |R..d04 .1;ROM ON|
00005CB0: 20 21 00 BB 64 3A 34 20 C3 23 37 00 D0 64 44 34 | !..d:4 .#7..dD4|
00005CC0: 4D 41 54 43 4F 50 59 20 CA 28 43 52 50 29 2C 59 |MATCOPY .(CRP),Y|
00005CD0: 00 DF 64 4E 34 20 D2 4D 41 54 42 55 46 2C 59 00 |..dN4 .MATBUF,Y.|
00005CE0: E6 64 58 34 20 EC 00 F4 64 62 34 20 F0 4D 41 54 |.dX4 ...db4 .MAT|
00005CF0: 43 4F 50 59 00 09 65 6C 34 20 CA 23 24 33 37 3B |COPY..el4 .#$37;|
00005D00: 43 48 41 52 41 43 54 45 52 00 1A 65 76 34 20 D2 |CHARACTER..ev4 .|
00005D10: 31 3B 52 4F 4D 20 4F 46 46 2C 00 2A 65 80 34 20 |1;ROM OFF,.*e.4 |
00005D20: E7 3B 49 52 51 20 4F 4E 20 2E 00 50 65 8A 34 3B |.;IRQ ON ..Pe.4;|
00005D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005D40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005D50: 00 76 65 94 34 3B 2A 20 20 20 20 20 20 20 20 20 |.ve.4;* |
00005D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005D70: 20 20 20 20 20 2A 00 9C 65 9E 34 3B 2A 20 20 43 | *..e.4;* C|
00005D80: 4F 4C 55 4D 4E 20 41 4E 44 20 4C 49 4E 45 20 56 |OLUMN AND LINE V|
00005D90: 41 4C 55 45 53 20 41 52 45 20 20 2A 00 C2 65 A8 |ALUES ARE *..e.|
00005DA0: 34 3B 2A 20 20 54 52 41 4E 53 46 4F 52 4D 45 44 |4;* TRANSFORMED|
00005DB0: 20 49 4E 54 4F 20 58 2F 59 20 43 4F 4F 52 2D 20 | INTO X/Y COOR- |
00005DC0: 20 2A 00 E8 65 B2 34 3B 2A 20 20 44 49 4E 41 54 | *..e.4;* DINAT|
00005DD0: 45 53 20 46 4F 52 20 41 43 43 45 53 53 49 4E 47 |ES FOR ACCESSING|
00005DE0: 20 44 4F 54 53 20 20 2A 00 0E 66 BC 34 3B 2A 20 | DOTS *..f.4;* |
00005DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 34 | *.4|
00005E10: 66 C6 34 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |f.4;************|
00005E20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005E30: 2A 2A 2A 2A 00 3D 66 D0 34 20 CA 54 58 00 44 66 |****.=f.4 .TX.Df|
00005E40: DA 34 20 CB 00 4B 66 E4 34 20 CB 00 52 66 EE 34 |.4 ..Kf.4 ..Rf.4|
00005E50: 20 CB 00 5C 66 F8 34 20 D2 42 58 4C 00 65 66 02 | ..\f.4 .BXL.ef.|
00005E60: 35 20 CA 23 30 00 6E 66 0C 35 20 C5 23 30 00 78 |5 .#0.nf.5 .#0.x|
00005E70: 66 16 35 20 D2 42 58 48 00 81 66 20 35 20 CA 54 |f.5 .BXH..f 5 .T|
00005E80: 59 00 88 66 2A 35 20 CB 00 8F 66 34 35 20 CB 00 |Y..f*5 ...f45 ..|
00005E90: 96 66 3E 35 20 CB 00 9F 66 48 35 20 D2 58 59 00 |.f>5 ...fH5 .XY.|
00005EA0: C5 66 52 35 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.fR5;***********|
00005EB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005EC0: 2A 2A 2A 2A 2A 00 EB 66 5C 35 3B 2A 20 20 20 20 |*****..f\5;* |
00005ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005EE0: 20 20 20 20 20 20 20 20 20 20 2A 00 11 67 66 35 | *..gf5|
00005EF0: 3B 2A 20 20 4F 4E 45 20 4C 45 54 54 45 52 20 49 |;* ONE LETTER I|
00005F00: 53 20 50 52 49 4E 54 45 44 20 49 4E 54 4F 20 20 |S PRINTED INTO |
00005F10: 2A 00 37 67 70 35 3B 2A 20 20 54 48 45 20 42 49 |*.7gp5;* THE BI|
00005F20: 54 2D 4D 41 50 20 42 59 20 49 53 4F 4C 41 54 49 |T-MAP BY ISOLATI|
00005F30: 4E 47 20 20 20 20 2A 00 5D 67 7A 35 3B 2A 20 20 |NG *.]gz5;* |
00005F40: 45 41 43 48 20 44 4F 54 20 4F 46 20 49 54 53 20 |EACH DOT OF ITS |
00005F50: 4D 41 54 52 49 58 20 3B 20 20 20 20 2A 00 83 67 |MATRIX ; *..g|
00005F60: 84 35 3B 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.5;* |
00005F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005F80: 20 20 2A 00 A9 67 8E 35 3B 2A 20 20 54 45 53 54 | *..g.5;* TEST|
00005F90: 49 4E 47 20 49 46 20 49 54 20 49 53 20 53 45 54 |ING IF IT IS SET|
00005FA0: 20 42 59 20 20 20 20 20 2A 00 CF 67 98 35 3B 2A | BY *..g.5;*|
00005FB0: 20 20 41 4E 44 49 4E 47 20 57 49 54 48 20 54 48 | ANDING WITH TH|
00005FC0: 45 20 50 4F 57 45 52 53 20 4F 46 20 32 20 2A 00 |E POWERS OF 2 *.|
00005FD0: F5 67 A2 35 3B 2A 20 20 28 49 4E 20 54 41 42 33 |.g.5;* (IN TAB3|
00005FE0: 29 3B 20 49 53 4F 4C 41 54 49 4E 47 20 54 48 45 |); ISOLATING THE|
00005FF0: 20 20 20 20 2A 00 1B 68 AC 35 3B 2A 20 20 5A 45 | *..h.5;* ZE|
00006000: 52 4F 20 46 4C 41 47 20 41 46 54 45 52 20 54 48 |RO FLAG AFTER TH|
00006010: 49 53 20 4F 50 45 52 41 2D 20 2A 00 41 68 B6 35 |IS OPERA- *.Ah.5|
00006020: 3B 2A 20 20 54 49 4F 4E 20 54 48 41 54 20 49 4E |;* TION THAT IN|
00006030: 44 49 43 41 54 45 53 20 54 48 45 20 20 20 20 20 |DICATES THE |
00006040: 2A 00 67 68 C0 35 3B 2A 20 20 45 51 55 41 4C 49 |*.gh.5;* EQUALI|
00006050: 54 59 2C 20 49 4E 56 45 52 54 49 4E 47 20 49 54 |TY, INVERTING IT|
00006060: 2C 20 20 20 20 20 2A 00 8D 68 CA 35 3B 2A 20 20 |, *..h.5;* |
00006070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006080: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 B3 68 | *..h|
00006090: D4 35 3B 2A 20 20 41 4E 44 20 46 49 4E 41 4C 4C |.5;* AND FINALL|
000060A0: 59 20 53 54 4F 52 49 4E 47 20 49 54 20 41 53 20 |Y STORING IT AS |
000060B0: 20 20 2A 00 D9 68 DE 35 3B 2A 20 20 54 48 45 20 | *..h.5;* THE |
000060C0: 43 4C 45 41 52 2F 53 45 54 20 50 41 52 41 4D 45 |CLEAR/SET PARAME|
000060D0: 54 45 52 20 4F 46 20 20 2A 00 FF 68 E8 35 3B 2A |TER OF *..h.5;*|
000060E0: 20 20 54 48 45 20 22 20 41 43 43 45 53 53 20 22 | THE " ACCESS "|
000060F0: 20 52 4F 55 54 49 4E 45 2E 20 20 20 20 20 2A 00 | ROUTINE. *.|
00006100: 25 69 F2 35 3B 2A 20 20 20 20 20 20 20 20 20 20 |%i.5;* |
00006110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006120: 20 20 20 20 2A 00 4B 69 FC 35 3B 2A 2A 2A 2A 2A | *.Ki.5;*****|
00006130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00006140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 56 69 06 36 |***********.Vi.6|
00006150: 20 CA 45 58 50 59 00 5F 69 10 36 20 C6 23 33 00 | .EXPY._i.6 .#3.|
00006160: 69 69 1A 36 20 D2 58 59 43 00 72 69 24 36 20 CA |ii.6 .XYC.ri$6 .|
00006170: 23 30 00 7D 69 2E 36 20 D2 48 49 47 48 00 8F 69 |#0.}i.6 .HIGH..i|
00006180: 38 36 4C 49 4E 45 42 45 47 49 4E 20 CA 23 37 00 |86LINEBEGIN .#7.|
00006190: 99 69 42 36 20 D2 4C 4F 57 00 A3 69 4C 36 20 CA |.iB6 .LOW..iL6 .|
000061A0: 42 58 4C 00 AD 69 56 36 20 D2 58 58 4C 00 B7 69 |BXL..iV6 .XXL..i|
000061B0: 60 36 20 CA 42 58 48 00 C1 69 6A 36 20 D2 58 58 |`6 .BXH..ij6 .XX|
000061C0: 48 00 D3 69 74 36 53 45 54 4C 4F 4F 50 20 C3 48 |H..it6SETLOOP .H|
000061D0: 49 47 48 00 DD 69 7E 36 20 C2 4C 4F 57 00 EC 69 |IGH..i~6 .LOW..i|
000061E0: 88 36 20 CA 4D 41 54 42 55 46 2C 59 00 F9 69 92 |.6 .MATBUF,Y..i.|
000061F0: 36 20 C6 54 41 42 33 2C 58 00 00 6A 9C 36 20 DD |6 .TAB3,X..j.6 .|
00006200: 00 0F 6A A6 36 20 E0 3B 49 53 4F 4C 41 54 45 00 |..j.6 .;ISOLATE.|
00006210: 22 6A B0 36 20 C6 23 32 3B 5A 45 52 4F 20 46 4C |"j.6 .#2;ZERO FL|
00006220: 41 47 00 34 6A BA 36 20 C8 23 32 3B 26 20 49 4E |AG.4j.6 .#2;& IN|
00006230: 56 45 52 54 00 45 6A C4 36 20 D2 32 3B 2D 3E 20 |VERT.Ej.6 .2;-> |
00006240: 43 4C 45 41 52 00 5A 6A CE 36 20 CA 45 58 50 58 |CLEAR.Zj.6 .EXPX|
00006250: 3B 20 20 20 4F 52 20 53 45 54 00 63 6A D8 36 20 |; OR SET.cj.6 |
00006260: C6 23 33 00 6D 6A E2 36 20 D2 58 58 43 00 88 6A |.#3.mj.6 .XXC..j|
00006270: EC 36 4D 55 4C 54 49 50 4C 45 20 4C 43 A0 58 58 |.6MULTIPLE LC.XX|
00006280: 4C 2C 58 58 48 2C 58 59 00 95 6A F6 36 20 D6 41 |L,XXH,XY..j.6 .A|
00006290: 43 43 45 53 53 00 A2 6A 00 37 20 49 4E 57 A0 58 |CCESS..j.7 INW.X|
000062A0: 58 4C 00 B5 6A 0A 37 20 C7 58 58 43 3B 45 58 50 |XL..j.7 .XXC;EXP|
000062B0: 41 4E 44 20 58 00 C4 6A 14 37 20 F0 4D 55 4C 54 |AND X..j.7 .MULT|
000062C0: 49 50 4C 45 00 CE 6A 1E 37 20 C7 4C 4F 57 00 DC |IPLE..j.7 .LOW..|
000062D0: 6A 28 37 20 F0 53 45 54 4C 4F 4F 50 00 E5 6A 32 |j(7 .SETLOOP..j2|
000062E0: 37 20 C9 58 59 00 F8 6A 3C 37 20 C7 58 59 43 3B |7 .XY..j<7 .XYC;|
000062F0: 45 58 50 41 4E 44 20 59 00 08 6B 46 37 20 F0 4C |EXPAND Y..kF7 .L|
00006300: 49 4E 45 42 45 47 49 4E 00 13 6B 50 37 20 C9 48 |INEBEGIN..kP7 .H|
00006310: 49 47 48 00 1E 6B 5A 37 20 CA 45 58 50 59 00 27 |IGH..kZ7 .EXPY.'|
00006320: 6B 64 37 20 C6 23 33 00 31 6B 6E 37 20 D2 58 59 |kd7 .#3.1kn7 .XY|
00006330: 43 00 3C 6B 78 37 20 CA 48 49 47 48 00 45 6B 82 |C.<kx7 .HIGH.Ek.|
00006340: 37 20 C4 23 98 00 55 6B 8C 37 20 F6 4C 49 4E 45 |7 .#..Uk.7 .LINE|
00006350: 42 45 47 49 4E 00 65 6B 96 37 4E 45 58 54 43 4F |BEGIN.ek.7NEXTCO|
00006360: 4C 20 C2 54 58 00 6C 6B A0 37 20 EF 00 73 6B AA |L .TX.lk.7 ..sk.|
00006370: 37 20 D7 00 7A 6B B4 97 20 E5 00 85 6B BE 37 20 |7 ..zk.. ...k.7 |
00006380: C5 45 58 50 58 00 8E 6B C8 37 20 D2 54 58 00 9D |.EXPX..k.7 .TX..|
00006390: 6B D2 37 20 D5 54 45 58 54 4C 4F 4F 50 00 C3 6B |k.7 .TEXTLOOP..k|
000063A0: 98 3A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.:;-------------|
000063B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000063C0: 2D 2D 2D 00 C9 6B A2 3A 3B 00 E6 6B AC 3A 3B 20 |---..k.:;..k.:; |
000063D0: 20 20 20 20 20 20 43 49 52 43 4C 45 20 2F 20 43 | CIRCLE / C|
000063E0: 43 49 52 43 4C 45 00 03 6C B6 3A 3B 20 20 20 20 |CIRCLE..l.:; |
000063F0: 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | =============|
00006400: 3D 3D 3D 00 09 6C C0 3A 3B 00 2E 6C CA 3A 3B 20 |===..l.:;..l.:; |
00006410: 20 5A 45 49 43 48 4E 45 54 2F 4C 4F 45 53 43 48 | ZEICHNET/LOESCH|
00006420: 54 20 45 49 4E 45 4E 20 4B 52 45 49 53 2E 00 51 |T EINEN KREIS..Q|
00006430: 6C D4 3A 3B 20 20 44 45 52 20 4D 49 54 54 45 4C |l.:; DER MITTEL|
00006440: 50 55 4E 4B 54 20 44 45 53 20 4B 52 45 49 53 45 |PUNKT DES KREISE|
00006450: 53 00 76 6C DE 3A 3B 20 20 53 54 45 48 54 20 49 |S.vl.:; STEHT I|
00006460: 4E 20 44 45 4E 20 41 2C 58 2C 59 20 52 45 47 49 |N DEN A,X,Y REGI|
00006470: 53 54 45 52 4E 2E 00 7C 6C E8 3A 3B 00 9F 6C F2 |STERN..|l.:;..l.|
00006480: 3A 3B 20 20 20 44 45 52 20 52 41 44 49 55 53 20 |:; DER RADIUS |
00006490: 53 54 45 48 54 20 49 4E 20 22 52 41 44 22 2E 00 |STEHT IN "RAD"..|
000064A0: A5 6C FC 3A 3B 00 CB 6C 06 3B 3B 2D 2D 2D 2D 2D |.l.:;..l.;;-----|
000064B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000064C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 D6 6C 10 3B |-----------..l.;|
000064D0: 4D 58 4C 20 A7 31 00 E1 6C 1A 3B 4D 58 48 20 A7 |MXL .1..l.;MXH .|
000064E0: 31 00 EB 6C 24 3B 4D 59 20 A7 31 00 F5 6C 2E 3B |1..l$;MY .1..l.;|
000064F0: 43 31 20 A7 31 00 FF 6C 38 3B 43 32 20 A7 31 00 |C1 .1..l8;C2 .1.|
00006500: 09 6D 42 3B 43 33 20 A7 31 00 13 6D 4C 3B 43 34 |.mB;C3 .1..mL;C4|
00006510: 20 A7 31 00 24 6D 56 3B A3 43 44 4F 54 3D 41 43 | .1.$mV;.CDOT=AC|
00006520: 43 45 53 53 00 2C 6D 60 3B A1 43 53 00 36 6D 6A |CESS.,m`;.CS.6mj|
00006530: 3B 20 CA 4C 4F 57 00 41 6D 74 3B 20 C2 48 49 47 |; .LOW.Amt; .HIG|
00006540: 48 00 4C 6D 7E 3B 20 D6 43 44 4F 54 00 52 6D 88 |H.Lm~; .CDOT.Rm.|
00006550: 3B A2 00 5F 6D 92 3B 43 49 52 43 4C 45 20 DF 00 |;.._m.;CIRCLE ..|
00006560: 68 6D 9C 3B 20 CA 23 31 00 72 6D A6 3B 20 F6 2A |hm.; .#1.rm.; .*|
00006570: 2B 35 00 80 6D B0 3B 43 43 49 52 43 4C 45 20 DF |+5..m.;CCIRCLE .|
00006580: 00 89 6D BA 3B 20 CA 23 30 00 91 6D C4 3B 20 D2 |..m.; .#0..m.; .|
00006590: 32 00 98 6D CE 3B 20 E0 00 AB 6D D8 3B 20 53 43 |2..m.; ...m.; SC|
000065A0: A0 4D 58 4C 2C 4D 58 48 2C 4D 59 00 B5 6D E2 3B |.MXL,MXH,MY..m.;|
000065B0: 20 C9 52 41 44 00 BF 6D EC 3B 20 C2 52 41 44 00 | .RAD..m.; .RAD.|
000065C0: C8 6D F6 3B 20 C0 23 32 00 D5 6D 00 3C 20 F5 52 |.m.; .#2..m.< .R|
000065D0: 45 41 44 4C 54 00 DC 6D 0A 3C 20 E3 00 EE 6D 14 |EADLT..m.< ...m.|
000065E0: 3C 52 45 41 44 4C 54 20 CA 4C 54 31 2C 58 00 F7 |<READLT .LT1,X..|
000065F0: 6D 1E 3C 20 D2 43 31 00 03 6E 28 3C 20 CA 4C 54 |m.< .C1..n(< .LT|
00006600: 32 2C 58 00 0C 6E 32 3C 20 D2 43 32 00 13 6E 3C |2,X..n2< .C2..n<|
00006610: 3C 20 EE 00 1C 6E 46 3C 20 D3 43 34 00 26 6E 50 |< ...nF< .C4.&nP|
00006620: 3C 20 C3 52 41 44 00 32 6E 5A 3C 20 D6 24 42 33 |< .RAD.2nZ< .$B3|
00006630: 41 32 00 3E 6E 64 3C 20 D6 24 42 43 30 43 00 49 |A2.>nd< .$BC0C.I|
00006640: 6E 6E 3C 20 C3 23 24 34 42 00 55 6E 78 3C 20 D6 |nn< .#$4B.Unx< .|
00006650: 24 42 33 41 32 00 61 6E 82 3C 20 D6 24 42 41 32 |$B3A2.an.< .$BA2|
00006660: 42 00 6D 6E 8C 3C 20 D6 24 42 41 46 45 00 79 6E |B.mn.< .$BAFE.yn|
00006670: 96 3C 20 D6 24 42 41 46 45 00 85 6E A0 3C 20 D6 |.< .$BAFE..n.< .|
00006680: 24 42 43 39 42 00 8E 6E AA 3C 20 CA 23 30 00 97 |$BC9B..n.< .#0..|
00006690: 6E B4 3C 20 D2 43 33 00 A5 6E BE 3C 43 4C 4F 4F |n.< .C3..n.<CLOO|
000066A0: 50 20 C2 43 33 00 AC 6E C8 3C 20 E6 00 B5 6E D2 |P .C3..n.< ...n.|
000066B0: 3C 20 CA 43 31 00 C1 6E DC 3C 20 D1 4C 54 31 2C |< .C1..n.< .LT1,|
000066C0: 58 00 CB 6E E6 3C 20 D2 4C 4F 57 00 D4 6E F0 3C |X..n.< .LOW..n.<|
000066D0: 20 CA 43 32 00 E0 6E FA 3C 20 D1 4C 54 32 2C 58 | .C2..n.< .LT2,X|
000066E0: 00 EB 6E 04 3D 20 D2 48 49 47 48 00 F4 6E 0E 3D |..n.= .HIGH..n.=|
000066F0: 20 C2 43 34 00 00 6F 18 3D 20 CA 4C 54 32 2C 58 | .C4..o.= .LT2,X|
00006700: 00 0B 6F 22 3D 20 C4 48 49 47 48 00 15 6F 2C 3D |..o"= .HIGH..o,=|
00006710: 20 F7 43 4C 31 00 1F 6F 36 3D 20 F4 43 4C 33 00 | .CL1..o6= .CL3.|
00006720: 29 6F 40 3D 20 D5 43 4C 32 00 38 6F 4A 3D 43 4C |)o@= .CL2.8oJ=CL|
00006730: 31 20 CA 4C 54 31 2C 58 00 42 6F 54 3D 20 C4 4C |1 .LT1,X.BoT= .L|
00006740: 4F 57 00 4C 6F 5E 3D 20 F4 43 4C 33 00 58 6F 68 |OW.Lo^= .CL3.Xoh|
00006750: 3D 43 4C 32 20 C7 43 34 00 62 6F 72 3D 43 4C 33 |=CL2 .C4.bor=CL3|
00006760: 20 E5 00 6B 6F 7C 3D 20 CA 43 34 00 74 6F 86 3D | ..ko|= .C4.to.=|
00006770: 20 C5 4D 59 00 7B 6F 90 3D 20 DA 00 82 6F 9A 3D | .MY.{o.= ...o.=|
00006780: 20 E5 00 8C 6F A4 3D 20 CA 4D 58 4C 00 95 6F AE | ...o.= .MXL..o.|
00006790: 3D 20 C5 43 33 00 9F 6F B8 3D 20 D2 4C 4F 57 00 |= .C3..o.= .LOW.|
000067A0: A9 6F C2 3D 20 CA 4D 58 48 00 B2 6F CC 3D 20 C5 |.o.= .MXH..o.= .|
000067B0: 23 30 00 BD 6F D6 3D 20 D2 48 49 47 48 00 C5 6F |#0..o.= .HIGH..o|
000067C0: E0 3D 20 43 53 00 CC 6F EA 3D 20 E6 00 D5 6F F4 |.= CS..o.= ...o.|
000067D0: 3D 20 CA 4D 59 00 DE 6F FE 3D 20 D1 43 34 00 E5 |= .MY..o.= .C4..|
000067E0: 6F 08 3E 20 DA 00 ED 6F 12 3E 20 43 53 00 F4 6F |o.> ...o.> CS..o|
000067F0: 1C 3E 20 E5 00 FD 6F 26 3E 20 CA 4D 59 00 06 70 |.> ...o&> .MY..p|
00006800: 30 3E 20 C5 43 34 00 0D 70 3A 3E 20 DA 00 14 70 |0> .C4..p:> ...p|
00006810: 44 3E 20 E6 00 1E 70 4E 3E 20 CA 4D 58 4C 00 27 |D> ...pN> .MXL.'|
00006820: 70 58 3E 20 D1 43 33 00 31 70 62 3E 20 D2 4C 4F |pX> .C3.1pb> .LO|
00006830: 57 00 3B 70 6C 3E 20 CA 4D 58 48 00 44 70 76 3E |W.;pl> .MXH.Dpv>|
00006840: 20 D1 23 30 00 4F 70 80 3E 20 D2 48 49 47 48 00 | .#0.Op.> .HIGH.|
00006850: 57 70 8A 3E 20 43 53 00 5E 70 94 3E 20 E6 00 67 |Wp.> CS.^p.> ..g|
00006860: 70 9E 3E 20 CA 4D 59 00 70 70 A8 3E 20 D1 43 34 |p.> .MY.pp.> .C4|
00006870: 00 77 70 B2 3E 20 DA 00 7F 70 BC 3E 20 43 53 00 |.wp.> ...p.> CS.|
00006880: 86 70 C6 3E 20 E5 00 90 70 D0 3E 20 CA 4D 58 4C |.p.> ...p.> .MXL|
00006890: 00 99 70 DA 3E 20 C5 43 34 00 A3 70 E4 3E 20 D2 |..p.> .C4..p.> .|
000068A0: 4C 4F 57 00 AD 70 EE 3E 20 CA 4D 58 48 00 B6 70 |LOW..p.> .MXH..p|
000068B0: F8 3E 20 C5 23 30 00 C1 70 02 3F 20 D2 48 49 47 |.> .#0..p.? .HIG|
000068C0: 48 00 C8 70 0C 3F 20 E5 00 D1 70 16 3F 20 CA 4D |H..p.? ...p.? .M|
000068D0: 59 00 DA 70 20 3F 20 C5 43 33 00 E1 70 2A 3F 20 |Y..p ? .C3..p*? |
000068E0: DA 00 E9 70 34 3F 20 43 53 00 F0 70 3E 3F 20 E6 |...p4? CS..p>? .|
000068F0: 00 F9 70 48 3F 20 CA 4D 59 00 02 71 52 3F 20 D1 |..pH? .MY..qR? .|
00006900: 43 33 00 09 71 5C 3F 20 DA 00 11 71 66 3F 20 43 |C3..q\? ...qf? C|
00006910: 53 00 18 71 70 3F 20 E6 00 22 71 7A 3F 20 CA 4D |S..qp? .."qz? .M|
00006920: 58 4C 00 2B 71 84 3F 20 D1 43 34 00 35 71 8E 3F |XL.+q.? .C4.5q.?|
00006930: 20 D2 4C 4F 57 00 3F 71 98 3F 20 CA 4D 58 48 00 | .LOW.?q.? .MXH.|
00006940: 48 71 A2 3F 20 D1 23 30 00 53 71 AC 3F 20 D2 48 |Hq.? .#0.Sq.? .H|
00006950: 49 47 48 00 5A 71 B6 3F 20 E5 00 63 71 C0 3F 20 |IGH.Zq.? ..cq.? |
00006960: CA 4D 59 00 6C 71 CA 3F 20 C5 43 33 00 73 71 D4 |.MY.lq.? .C3.sq.|
00006970: 3F 20 DA 00 7B 71 DE 3F 20 43 53 00 82 71 E8 3F |? ..{q.? CS..q.?|
00006980: 20 E6 00 8B 71 F2 3F 20 CA 4D 59 00 94 71 FC 3F | ...q.? .MY..q.?|
00006990: 20 D1 43 33 00 9B 71 06 40 20 DA 00 A3 71 10 40 | .C3..q.@ ...q.@|
000069A0: 20 43 53 00 AA 71 1A 40 20 E5 00 B3 71 24 40 20 | CS..q.@ ...q$@ |
000069B0: CA 43 33 00 BC 71 2E 40 20 C5 23 31 00 C5 71 38 |.C3..q.@ .#1..q8|
000069C0: 40 20 D2 43 33 00 CF 71 42 40 20 C4 24 36 35 00 |@ .C3..qB@ .$65.|
000069D0: DB 71 4C 40 20 F7 43 54 45 52 4D 00 E7 71 56 40 |.qL@ .CTERM..qV@|
000069E0: 20 D5 43 4C 4F 4F 50 00 F3 71 60 40 43 54 45 52 | .CLOOP..q`@CTER|
000069F0: 4D 20 E3 00 19 72 6A 40 3B 2D 2D 2D 2D 2D 2D 2D |M ...rj@;-------|
00006A00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00006A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 1F 72 74 40 3B 00 |---------..rt@;.|
00006A20: 41 72 7E 40 3B 20 20 20 20 44 52 41 57 20 4C 49 |Ar~@; DRAW LI|
00006A30: 4E 45 53 20 2F 20 43 4C 45 41 52 20 4C 49 4E 45 |NES / CLEAR LINE|
00006A40: 53 00 63 72 88 40 3B 20 20 20 20 3D 3D 3D 3D 3D |S.cr.@; =====|
00006A50: 3D FF 3D 3D 3D 3D 3D 3D 3D FF 3D 3D 3D 3D 3D 3D |=.=======.======|
00006A60: 3D 3D 3D 00 69 72 92 40 3B 00 8D 72 9C 40 3B 20 |===.ir.@;..r.@; |
00006A70: 44 49 45 53 45 20 52 4F 55 54 49 4E 45 4E 20 45 |DIESE ROUTINEN E|
00006A80: 52 48 41 4C 54 45 4E 20 45 49 4E 45 4E 00 AC 72 |RHALTEN EINEN..r|
00006A90: A6 40 3B 20 5A 45 49 47 45 52 20 49 4E 20 28 41 |.@; ZEIGER IN (A|
00006AA0: 2F 59 29 20 41 55 46 20 45 49 4E 45 00 C6 72 B0 |/Y) AUF EINE..r.|
00006AB0: 40 3B 20 4B 4F 4F 52 44 49 4E 41 54 45 4E 54 41 |@; KOORDINATENTA|
00006AC0: 42 45 4C 4C 45 2E 00 CC 72 BA 40 3B 00 EF 72 C4 |BELLE...r.@;..r.|
00006AD0: 40 3B 20 44 49 45 20 45 49 4E 54 52 41 45 47 45 |@; DIE EINTRAEGE|
00006AE0: 20 44 49 45 53 45 52 20 54 41 42 45 4C 4C 45 00 | DIESER TABELLE.|
00006AF0: 10 73 CE 40 3B 20 57 45 52 44 45 4E 20 41 4C 53 |.s.@; WERDEN ALS|
00006B00: 20 44 49 45 20 4B 4F 4F 52 44 49 4E 41 54 45 4E | DIE KOORDINATEN|
00006B10: 00 33 73 D8 40 3B 20 56 4F 4E 20 45 4E 44 50 55 |.3s.@; VON ENDPU|
00006B20: 4E 4B 54 45 4E 20 56 4F 4E 20 5A 55 53 41 4D 4D |NKTEN VON ZUSAMM|
00006B30: 45 4E 2D 00 5A 73 E2 40 3B 20 48 41 45 4E 47 45 |EN-.Zs.@; HAENGE|
00006B40: 4E 44 45 4E 20 4C 49 4E 49 45 4E 20 49 4E 54 45 |NDEN LINIEN INTE|
00006B50: 52 50 52 45 54 49 45 52 54 2E 00 7E 73 EC 40 3B |RPRETIERT..~s.@;|
00006B60: 20 56 4F 4E 20 45 49 4E 45 4D 20 50 55 4E 4B 54 | VON EINEM PUNKT|
00006B70: 20 5A 55 4D 20 4E 41 45 43 48 53 54 45 4E 00 9C | ZUM NAECHSTEN..|
00006B80: 73 F6 40 3B 20 57 49 52 44 20 4A 45 57 45 49 4C |s.@; WIRD JEWEIL|
00006B90: 53 20 45 49 4E 45 20 4C 49 4E 49 45 00 BA 73 00 |S EINE LINIE..s.|
00006BA0: 41 3B 20 47 45 5A 45 49 43 48 4E 45 54 20 2F 20 |A; GEZEICHNET / |
00006BB0: 47 45 4C 4F 45 53 43 48 54 2E 00 DF 73 0A 41 3B |GELOESCHT...s.A;|
00006BC0: 20 44 41 53 20 45 4E 44 45 20 44 45 52 20 54 41 | DAS ENDE DER TA|
00006BD0: 42 45 4C 4C 45 20 57 49 52 44 20 4D 41 52 2D 00 |BELLE WIRD MAR-.|
00006BE0: 03 74 14 41 3B 20 4B 49 45 52 54 20 44 55 52 43 |.t.A; KIERT DURC|
00006BF0: 48 20 45 49 4E 45 20 58 20 4B 4F 4F 52 44 49 4E |H EINE X KOORDIN|
00006C00: 41 54 45 00 13 74 1E 41 3B 20 3E 3D 20 24 38 30 |ATE..t.A; >= $80|
00006C10: 30 30 2E 00 39 74 28 41 3B 2D 2D 2D 2D 2D 2D 2D |00..9t(A;-------|
00006C20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00006C30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 46 74 32 41 A1 43 |---------.Ft2A.C|
00006C40: 54 46 A0 50 41 52 00 5F 74 3C 41 3B 43 4F 4F 52 |TF.PAR._t<A;COOR|
00006C50: 44 49 4E 41 54 45 20 54 52 41 4E 53 46 45 52 00 |DINATE TRANSFER.|
00006C60: 6D 74 46 41 20 CA 28 4C 4F 57 29 2C 59 00 77 74 |mtFA .(LOW),Y.wt|
00006C70: 50 41 20 D2 50 41 52 00 7E 74 5A 41 20 ED 00 84 |PA .PAR.~tZA ...|
00006C80: 74 64 41 A2 00 92 74 6E 41 4C 49 4E 45 53 20 C2 |tdA...tnALINES .|
00006C90: 23 31 00 9C 74 78 41 20 F6 2A 2B 34 00 AB 74 82 |#1..txA .*+4..t.|
00006CA0: 41 43 4C 49 4E 45 53 20 C2 23 30 00 B3 74 8C 41 |ACLINES .#0..t.A|
00006CB0: 20 D3 32 00 BD 74 96 41 20 D2 4C 4F 57 00 C8 74 | .2..t.A .LOW..t|
00006CC0: A0 41 20 D4 48 49 47 48 00 E0 74 AA 41 4C 4F 4F |.A .HIGH..t.ALOO|
00006CD0: 50 20 C3 23 34 3B 53 45 43 4F 4E 44 20 44 4F 54 |P .#4;SECOND DOT|
00006CE0: 00 F9 74 B4 41 20 CA 28 4C 4F 57 29 2C 59 3B 54 |..t.A .(LOW),Y;T|
00006CF0: 41 42 4C 45 20 45 4E 44 3F 00 09 75 BE 41 20 F0 |ABLE END?..u.A .|
00006D00: 43 4F 4E 54 4C 49 4E 45 53 00 10 75 C8 41 20 E3 |CONTLINES..u.A .|
00006D10: 00 22 75 D2 41 43 4F 4E 54 4C 49 4E 45 53 20 C3 |."u.ACONTLINES .|
00006D20: 23 30 00 2F 75 DC 41 20 43 54 46 A0 58 30 4C 00 |#0./u.A CTF.X0L.|
00006D30: 3C 75 E6 41 20 43 54 46 A0 58 30 48 00 48 75 F0 |<u.A CTF.X0H.Hu.|
00006D40: 41 20 43 54 46 A0 59 30 00 55 75 FA 41 20 43 54 |A CTF.Y0.Uu.A CT|
00006D50: 46 A0 58 31 4C 00 62 75 04 42 20 43 54 46 A0 58 |F.X1L.bu.B CTF.X|
00006D60: 31 48 00 6E 75 0E 42 20 43 54 46 A0 59 31 00 78 |1H.nu.B CTF.Y1.x|
00006D70: 75 18 42 20 CA 4C 4F 57 00 7F 75 22 42 20 E5 00 |u.B .LOW..u"B ..|
00006D80: 88 75 2C 42 20 C5 23 33 00 92 75 36 42 20 D2 4C |.u,B .#3..u6B .L|
00006D90: 4F 57 00 9D 75 40 42 20 CA 48 49 47 48 00 A6 75 |OW..u@B .HIGH..u|
00006DA0: 4A 42 20 C5 23 30 00 B1 75 54 42 20 D2 48 49 47 |JB .#0..uTB .HIG|
00006DB0: 48 00 C2 75 5E 42 20 D6 41 43 43 45 53 53 4C 49 |H..u^B .ACCESSLI|
00006DC0: 4E 45 00 CD 75 68 42 20 D5 4C 4F 4F 50 00 F3 75 |NE..uhB .LOOP..u|
00006DD0: 72 42 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |rB;-------------|
00006DE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00006DF0: 2D 2D 2D 00 F9 75 7C 42 3B 00 1D 76 86 42 3B 20 |---..u|B;..v.B; |
00006E00: 20 2A 2A 2A 20 45 4E 44 45 20 44 45 53 20 51 55 | *** ENDE DES QU|
00006E10: 45 4C 4C 54 45 58 54 45 53 20 2A 2A 2A 00 23 76 |ELLTEXTES ***.#v|
00006E20: 90 42 3B 00 49 76 9A 42 3B 20 41 42 20 48 49 45 |.B;.Iv.B; AB HIE|
00006E30: 52 20 50 4C 41 54 5A 20 46 55 45 52 20 5A 55 53 |R PLATZ FUER ZUS|
00006E40: 41 45 54 5A 4C 49 43 48 45 00 60 76 A4 42 3B 20 |AETZLICHE.`v.B; |
00006E50: 47 52 41 46 49 4B 2D 52 4F 55 54 49 4E 45 4E 21 |GRAFIK-ROUTINEN!|
00006E60: 00 66 76 AE 42 3B 00 8C 76 B8 42 3B 2D 2D 2D 2D |.fv.B;..v.B;----|
00006E70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00006E80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 00 00 |------------... |
..&...; ##############################.K
...; # #.P...
; # C 64 & GIGA-ASS #...(.; #
#...2.; # GR
AFIK-ROUTINEN, VERS. 1.1 #...<.; #
#...F.; # THOMAS D
ACHSEL, 06.01.1988 #.).P.; #
#.N.Z.; ################
##############.Y.D..$C000..E.;*********
***********************...F.;*
*.K.G.;* EINSPRUNGTA
BELLE: *...H.;* -------------
--- *...I.;* DIESE TABELLE E
NTHAELT EIN- *.=.J.;* SPRUNGPUNKTE FUER
ALLE ZUR *.C.K.;* VERFUEGUNG GESTELLT
EN *...L.;* GRAFIKROUTINEN.
*...M.;*
*.U.N.;* ROUTINEN, DIE MEHR PARAME
TER *...O.;* BENOETIGEN ALS CPU-REGISTER
*.!.P.;* VORHANDEN SIND, HABEN VOR
*.G.Q.;* IHREM EINSPRUNGPUNKT EINEN *.
M.R.;* SOG. AKTIVIERUNGSBLOCK. *...
S.;* *...T.
;* DIE LABEL R00, R03, R06, ... *...U.;*
DIENEN ALS HINWEIS AUF DIE *...V.;* R
ELATIVE POSITION DER *.+.W.;* EIN
SPRUNGPUNKTE BZGL. *.Q.X.;* DER B
ASIS-ADRESSE. *.W.Y.;*
*...Z.;***********
*********************...H.R00 UPAGE...R.
R03 UDESIGN.H...R06 UOFF.U...R09 UINV...
..R0C UCLEAR.....R0F UCOLOR.....R12 USET
COL.....R15 UCLEARDOT."...R18 USET.0.".R
1B UTEST.@.,.R1E UACCESS.K.6.X0L .1.V.@.
X0H .1.`.J.Y0 .1.K.T.X1L .1.V.^.X1H .1..
.H.Y1 .1...R.R27 ULINE...|.R2A UCLINE...
..FX0L .1.....FX0H .1.....FY0 .1.L...FX1
L .1.X...FX1H .1.....FY1 .1...B.R33 UFRA
ME...L.R36 UCFRAME...V.R39 UFILL.....TX
.1.$...TY .1.0...EXPX .1.<...EXPY .1.H..
.CASE .1.V...R41 UTEXT.A...RAD .1.Q.&.R4
5 UCIRCLE...0.R48 UCCIRCLE...:.R4B ULINE
S...D.R4E UCLINES...N.R51.O.X.;---------
-----------------------...B.; AB HIER WE
ITERE EINTRAGE...L.;--------------------
------------......RAM.3... J#$7F;INTERRU
PTS.C... R$DC0D;AUS.V... J#$35;$A000 &.H
... R1;$E000 RAM.N.....W.$..ROM..... J#$
37;$A000 &...8. R1;$E000 ROM...B...H.L.;
--------------------------------...V.; G
LOBALE VARIABLEN...`.;------------------
--------------...J..LOW=$14.!.T..HIGH=$1
5...~..CRP=$F9.;....HRP=$FB.H....HRB=$FD
.U....HRE=$FE.B....COL=$FF.....;--------
------------------------.....; GRAFIK-SE
ITEN PARAMETER.L.D.;--------------------
------------...N.PG1 .$18,$78,$38,$38...
X.PG2 .$04,$5C,$8C,$CC.$...;------------
--------------------.:...; ADRESS-TABELL
EN.`...;--------------------------------
.X...TAB1 .0,$40,$80,$C0..... .0,$40,$80
,$C0. ... .0,$40,$80,$C0..... .0,$40,$80
,$C0.H.(. .0,$40,$80,$C0...2. .0,$40,$80
,$C0,0...<.TAB2 .0,1,2,3,5,6,7,8,$A,$B,$
C,$D,$F.=.F. .$10,$11,$12,$14,$15,$16,$1
7,$19,$1A,$1B,$1C,$1E.\.P.TAB3 .1,2,4,8,
16,32,64,128...Z.;----------------------
----------...D.; 512 BYTE CIRCLE LOOK-UP
TABLES.M.N.;---------------------------
-----...X.LT1 .$00,$01,$04,$09,$10,$19,$
24,$31..... .$40,$51,$64,$79,$90,$A9,$C4
,$E1.B... .$00,$21,$44,$69,$90,$B9,$E4,$
11.H... .$40,$71,$A4,$D9,$10,$49,$84,$C1
... . .$00,$41,$84,$C9,$10,$59,$A4,$F1..
... .$40,$91,$E4,$39,$90,$E9,$44,$A1.Z..
. .$00,$61,$C4,$29,$90,$F9,$64,$D1.....
.$40,$B1,$24,$99,$10,$89,$04,$81.&.H. .$
00,$81,$04,$89,$10,$99,$24,$B1.L.R. .$40
,$D1,$64,$F9,$90,$29,$C4,$61.R... .$00,$
A1,$44,$E9,$90,$39,$E4,$91..... .$40,$F1
,$A4,$59,$10,$C9,$84,$41..... .$00,$C1,$
84,$49,$10,$D9,$A4,$71..... .$40,$11,$E4
,$B9,$90,$69,$44,$21..... .$00,$E1,$C4,$
A9,$90,$79,$64,$51.0... .$40,$31,$24,$19
,$10,$09,$04,$01.V... .$00,$01,$04,$09,$
10,$19,$24,$31.|.". .$40,$51,$64,$79,$90
,$A9,$C4,$E1...,. .$00,$21,$44,$69,$90,$
B9,$E4,$11.H.6. .$40,$71,$A4,$D9,$10,$49
,$84,$C1...@. .$00,$41,$84,$C9,$10,$59,$
A4,$F1...J. .$40,$91,$E4,$39,$90,$E9,$44
,$A1.:.T. .$00,$61,$C4,$29,$90,$F9,$64,$
D1.`.^. .$40,$B1,$24,$99,$10,$89,$04,$81
...H. .$00,$81,$04,$89,$10,$99,$24,$B1..
.R. .$40,$D1,$64,$F9,$90,$29,$C4,$61.R.|
. .$00,$A1,$44,$E9,$90,$39,$E4,$91.....
.$40,$F1,$A4,$59,$10,$C9,$84,$41..... .$
00,$C1,$84,$49,$10,$D9,$A4,$71.D... .$40
,$11,$E4,$B9,$90,$69,$44,$21.J... .$00,$
E1,$C4,$A9,$90,$79,$64,$51..... .$40,$31
,$24,$19,$10,$09,$04,$01.....LT2 .16...B
. .1,1,1,1,1,1,1.H.L. .2,2,2,2,2,3,3,3,3
...V. .4,4,4,4,5,5,5,5..... .6,6,6,7,7,7
,8,8,9,9,9..... .$A,$A,$A,$B,$B,$C,$C.1.
.. .$D,$D,$E,$E,$F,$F,$10.O... .$10,$11,
$11,$12,$12,$13.M... .$13,$14,$14,$15,$1
5,$16..... .$17,$17,$18,$19,$19,$1A.....
.$1A,$1B,$1C,$1C,$1D...&. .$1E,$1E,$1F,
$20,$21.Y.0. .$21,$22,$23,$24,$24...:. .
$25,$26,$27,$27,$28...D. .$29,$2A,$2B,$2
B,$2C.'.N. .$2D,$2E,$2F,$30,$31.A.X. .$3
1,$32,$33,$34,$35.[.B. .$36,$37,$38,$39,
$3A.U.L. .$3B,$3C,$3D,$3E,$3F...V. .$40,
$41,$42,$43,$44..... .$45,$46,$47,$48,$4
9.C... .$4A,$4B,$4C,$4D,$4E..... .$4F,$5
1,$52,$53,$54..... .$55,$56,$57,$59,$5A.
.... .$5B,$5C,$5D,$5F,$60.+... .$61,$62,
$64,$65,$66.E... .$67,$69,$6A,$6B,$6C._.
F. .$6E,$6F,$70,$72,$73.Y.P. .$74,$76,$7
7,$79,$7A...Z. .$7B,$7D,$7E,$7F,$81.....
.$82,$84,$85,$87,$88.G... .$8A,$8B,$8D,
$8E,$90..... .$91,$93,$94,$96,$97..... .
$99,$9A,$9C,$9D,$9F..... .$A0,$A2,$A4,$A
5,$A7./... .$A9,$AA,$AC,$AD,$AF.I. . .$B
1,$B2,$B4,$B6,$B7.C.*. .$B9,$BB,$BD,$BE,
$C0.}.4. .$C2,$C4,$C5,$C7,$C9...>. .$CB,
$CC,$CE,$D0,$D2...H. .$D4,$D5,$D7,$D9,$D
B.K.R. .$DD,$DF,$E1,$E2,$E4...\. .$E6,$E
8,$EA,$EC,$EE...F. .$F0,$F2,$F4,$F6,$F8.
..P. .$FA,$FC,$FE.7...;-----------------
---------------.=.B.;.H.L.; PAGE.S.V.; =
===.Y...;.V...; X=0: GRAFIKSEITE $2000..
...; FARBSPEICHER $0400.....;.....;
X=1: GRAFIKSEITE $6000.U...; FARBS
PECIHER $5C00.....;...&.; X=2: GRAFIKSEI
TE $A000...0.; FARBSPEICHER $8C00..
.:.;.9.D.; X=3: GRAFIKSEITE $E000.W.N.;
FARBSPEICHER $CC00.].X.;.W.B.; X>3:
WIRD IGNORIERT.}.L.;...V.; DER ENTSPREC
HENDE 16 K - BLOCK.I...; WIRD ANGEWAEHLT
DURCH SETZEN VOM.....; CIA #1 PORT REGI
STER A ($DD00)......; AUSSERDEM WERDEN D
IE VIDEO-CHIP.8...; REGISTER UND FOLGEND
E ZEIGER.G...; GESETZT:.M...;.N...; BIT-
MAP: BEGIN PAGE -> HRB...F.; EN
D PAGE -> HRE...P.; COLOR: BEGIN PAG
E -> COL...Z.;.....;--------------------
------------.....PAGE .#4..... .ACCEPT..
... ......ACCEPT J#$3B..... R$D011.%. .
J#$C8.1.*. R$D016.=.4. JPG1,X.I.>. R$D01
8.P.H. W.Y.R. H#3.E.\. R$DD00.T.F.POINTE
RS W.{.P. ....Z. P..... P..... P..... E#
$20..... RHRB..... E#$20..... RHRE.F...
JPG2,X.P.J. RCOL.W.T. ......;-----------
---------------------.. ..; DESIGN.. ..;
======.5 ..; WAEHLT NUR DIE AKTUELLE.X
..; GRAFIKSEITE AUS (ERMOEGLICHT.V ..; "
VERDECKTES" ZEICHNEN)... ..;------------
--------------------.. $.DESIGN .#4.. ..
.POINTERS.A 8. ... B.;-----------------
---------------..!L.; OFF: GRAFIK-SEITE
AUS.)!V.;-------------------------------
-.7!`.OFF J#$1B.C!J. R$D011.N!T. J#$15.Z
!~. R$D018.C!.. J#3.O!.. R$DD00.V!.. ...
!..;--------------------------------..!.
.; INV: GRAFIK-SEITE INVERTIEREN..!..;--
------------------------------..!D.INV R
AM..!N. C#0.."X. THRP..".. BHRB..".. SHR
P+1.,"..ILP J(HRP),Y.7".. H#$FF.E".. R(H
RP),Y.L".. ..V".. .ILP.B"(. IHRP+1.I"2.
..S"<. .HRE.}"F. .ILP.."P. ROM.."Z. ..."
D.;--------------------------------.U"N.
; CLEAR: GRAFIKSEITE LOESCHEN.."X.;-----
---------------------------..#..CLEAR J#
0..#.. RHRP..#.. BHRB.)# . SHRP+1.0#.. Z
.A#..CLP R(HRP),Y.H#.. ..R#H. .CLP.^#R.
IHRP+1.E#.. ..O#.. .HRE.Y#.. .CLP..#.. .
..#..;--------------------------------.I
#..; COLOR: FUELLT GESAMTEN FARB-..#..;
SPEICHER MIT INHALT DES AKKUS..#".;..$,.
; HIGH 4 BITS : COLOR OF 1-BITS.=$6.;
LOW 4 BITS : COLOR OF 0-BITS.C$@.;-----
---------------------------.Q$J.COLOR C#
0.{$T. THRP..$^. BCOL..$H. SHRP+1..$R. B
#3..$|.COLSET R(HRP),Y..$.. ..B$.. .COLS
ET.N$.. IHRP+1.U$.. ...$.. .COLSET..$..
...%B.;--------------------------------.
4%L.; SETCOL: SETZT FARBE FUER 8 * 8.L%V
.; BIT-BLOCK.R%..;.P%..; A
= ZEILE (0-24)..%..; X = SPALTE
(0-39)..%..; Y = FARBE (0-15).R%.
.;--------------------------------..%..S
ETCOL .#40;X < 40 !..%.. .NOCOL..&&. D#2
5;A < 25 !..&0. .NOCOL+1.$&:.NOCOL ..6&D
. K;A := A * 8.=&N. K.D&X. K.K&B. ..U&L.
RHRP.^&V. J#0.J&.. RHRP+1.T&.. KHRP..&.
. OHRP+1..&.. KHRP;HRP =..&.. OHRP+1; A
* 32..&.. ...&.. .;HRP :=.M&F. EHRP;HRP
+ A*8.W&P. RHRP..&Z. J#0;->..&.. EHRP+1;
HRP = A*40..'.. RHRP+1..'.. W;C = 0 !..'
.. EHRP.4'.. RHRP;HRP:=HRP+X.@'.. JHRP+1
.T' . ECOL;ADD COLOR.I'*. RHRP+1;RAM BAS
E.Z'4. B#0;ADDRESS..'>. J(HRP,X)..'H. F#
$F;ISOLATE..'R. R(HRP,X);BACKGROUND..'\.
Y;COLOR.G'F. K.Y'P. K;HIGH 4 BIT..'Z. K
;PEN COLOR..'.. K..(.. N(HRP,X);SET NEW.
.(.. R(HRP,X);COLOR."(.. ..H(..;--------
------------------------.N(..;.R(..; AC
CESS SINGLE DOT IN BIT-MAP..(..; ======
======================..(..;..(..; KOOR
DINATEN WERDEN GESETZT..(D.; NACH AKKU,
X, Y REGISTERN:..(N.;..)X.; X-ACHSE: (
A/X) Y-ACHSE: Y..)..;.3)..; DIE ZULA
ESSIGEN WERTE SIND:.9)..;.Y)..; 0 <=
(X-ACHSE) <= 319.Y)..; 0 <= (Y-ACHS
E) <= 199.)..;..)..; ANDERE WERTE WERDE
N IGNORIERT -.H)(.; DIE ROUTINE WIRD OHN
E NEBEN-..)2.; WIRKUNG VERLASSEN..)<.;..
*F.; DIE AUSZUFUEHRENDE OPERATION IST.%*
P.; IN $0002 KODIERT:.+*Z.;.Q*D.; ($0
002) = 0 => CLEAR DOT.W*N.; MSB($000
2) NOT SET => SET DOT..*X.; MSB($0002)
SET => TEST DOT..*..;.I*..; "ACCES
S" WIRD AUFGERUFEN, FALLS..*..; $0002 SC
HON GESETZT WURDE...* .;..+..; CLEARDOT,
SET UND TEST SETZEN.7+..; $0002 VOR AUF
RUF VON ACCESS..=+..;.B+H.; "TEST DOT"
C=0 : DOT NOT SET..+R.; LIEFERT: C=
1 : DOT SET..+..;..+..;-----------------
---------------..+..CLEARDOT ..G+.. J#0.
R+.. .CONT..+..SET ...+.. J#1..+". .CONT
..+,.TEST ...,6. J#$FF..,@.CONT R2..,J.
...,T.;.@,^.; *** COORDINATE CHECK ***
.F,H.;.W,R.ACCESS A#$C8.E,|. .DISCARD.N,
.. .#1.~,.. .ACCEPTDOT..,.. .DISCARD..,.
. D#$40..,.. .ACCEPTDOT..,..DISCARD ...,
B.;..,L.;*** COMPUTE BIT-MAP POINTER ***
..,V.;..,..ACCEPTDOT ...-.. F#$F8..-.. R
HRP..-.. W..-.. ..#-.. EHRB./-.. RHRP+1.
6-&. Y.=-0. M.D-:. M.K-D. M.]-N. X;0<= X
<=25.J-X. JTAB1,X.Q-B. ..{-L. EHRP..-V.
RHRP..-.. JTAB2,X..-.. EHRP+1..-.. RHRP
+1..-.. Y..-.. F#7.D-.. EHRP.N-.. RHRP.W
-F. RAM..-P. ...-Z. F#7..-.. H#7;A := 7-
A..... X..... JTAB3,X;0 <=X<= 7.=...;***
*****************************.C...;*
*.....;* ACCU
NOW CONTAINS BIT-MASK . *... .;* HRP POI
NTS TO BIT-MAP MEMORY *.U.*.;* TO THE BY
TE CONTAINING THE *...4.;* ACTUAL DOT.
*.!/>.;*
*.G/H.;* OPERATION SUBJE
CT TO $0002 *.M/R.;* CONTENTS IS NOW E
XECUTED . *../\.;*
*../F.;***********************
*********.B/P. C#0.J/Z. B2.X/.. .TESTDOT
../.. .SETDOT../.. F(HRP),Y..0.. H(HRP),
Y..0.. R(HRP),Y..0.. ROM..0.. ..30J.SETD
OT N(HRP),Y.A0T. R(HRP),Y.J0.. ROM.Q0..
..F0..TESTDOT F(HRP),Y.S0.. .NOTSET.|0..
ROM..0.. ...0.. ...0$.NOTSET ROM. 0.. .
..08. ..M0B.;---------------------------
-----.S0L.;..0V.; DRAW/CLEAR A LIN
E..1`.; =================..1J.;.71
T.; DIESE ROUTINE ZEICHNET BZW..X1~.; LO
ESCHT EINE LINIE VON DEN.~1..; KOORDINAT
EN (X0,Y0) ZU (X1,Y1)...1..; LINE ZEICHN
ET, CLINE LOESCHT..1..; DIE LINIE...1..;
..1..; Y0 UND Y1 WERDEN IN EINEM BYTE..1
..; GESPEICHERT...1D.;..2N.; X0 UND X1 W
ERDEN JEWEILS IN.92X.; ZWEI BYTES GESPEI
CHERT MIT.?2..;.X2..; X0L FUER LOW BYTE
.Y2..; VON X0..2..;
X0H FUER HIGH BYTE..2..;..2..; X1L FUER
LOW BYTE.R2..; VON
X1..2(.; X1H FUER HIGH BYTE..22.;..3<.;
A, X, Y WERDEN IGNORIERT...3F.;..3P.;.@3
Z.; DIE KOORDINATEN WERDEN NICHT.B3D.; A
UF BEREICHSUEBERSCHREITUNG..3N.; GEPRUEF
T. DESHALB KOENNEN..3X.; LINIEN AUCH UEB
ER DEN BILD-.E3..; SCHIRMRAND HINAUS REI
CHEN..K3..;..3..; DAS HAT JEDOCH KEINE
..4 .; SCHAEDLICHEN AUSWIRKUNGEN, DA.3
4..; SCHON "ACCESS" AUF BEREICHS-.S4..
; UEBERSCHREITUNG PRUEFT..Y4..;.{4H.;
NACH AUSFUEHRUNG VON "LINE"..4R.; IST (X
0,Y0) GLEICH (X1,Y1)..A4..; DIE KOORDINA
TEN MUESSEN DAHER..4..; BEI JEDEM AUFRUF
NEU GESETZT..4..; WERDEN...5..;--------
------------------------.+5..DX .1;INTER
NAL.?5..DY .1;PARAMETER.T5..DIFFXL .1;ME
MORY.G5".DIFFXH .1;AREA.T5,.DIFFY .1.~56
.DC .1..5@.DH .1..5J.DM .1..5T.DL .1..5^
.QH .1..5H.QM .1..5R.QL .1.I5|.DELTA_H .
1.X5..DELTA_M .1..5..DELTA_L .1..5..LINE
J#1..5.. .*+4..6..CLINE J#0..6.. R2.#6B
.ACCESSLINE.I6L.;***********************
*********.O6V.;*
*..6..;* 1. COMPUTE DX AND DY
*..6..;* --------------------
*..6..;*
*..7..;* DX AND DY ARE USED TO DETER- *.
-7..;* MINE IN WHICH DIRECTION THE *.S7
..;* LINE IS TO BE DRAWN. *.Y7..
;* *..7&.;*
DX = -1 INDICATES *.E70.;*
X COORD. DECREMENTS *..7:.;*
*..8D.;* DX =
1 INDICATES *.78N.;*
X COORD. INCREMENTS *.]8X.;*
*..8B.;* DX = 0 IN
DICATES THERE IS *..8L.;* NO X
COORD. CHANGE *.O8V.;*
*..8..;* VALUES OF DY ARE
ANALOGOUS. *..9..;*
*.A9..;***********************
*********.W9.. B#$FF;COMPUTE DX.A9.. JX1
H.K9.. DX0H.U9.. .TXL.9F. .DXP..9P. .DX
N..9Z.TXL JX1L;TEST X LOW..9.. DX0L..9..
.DXN..9.. .DXZ.Q9..DXP .;DX = 1..9..DX
Z .;DX = 0..9..DXN SDX;DX = -1..: .;===
=============================.3:*. B#$FF
;COMPUTE DY.<:4. JY1.E:>. DY0.O:H. .DYN.
Y:R. .DYZ.H:\. .;DY = 1.Z:F.DYZ .;DY =
0..:P.DYN SDY;DY = -1..:Z.;============
====================.J:.. .EQUAL;IF DY =
0..:.. JDX;OR DX = 0..:.. .EQUAL;GOTO E
QUAL..;..;******************************
**.@;..;* *
.F;..;* 2. COMPUTE X AND Y *..
;..;* COORDINATE DIFFERENCES *..;J
.;* -------------------------- *.X;T.;
* *..;..;*
THIS IS EFFECTED BY NORMAL *.$<..;* SU
BTRACTION AND SUBSEQUENT *.J<..;* 2-CO
MPLEMENT FORMATION, IF *.P<..;* RESULT
IS NEGATIVE. *..<..;*
*..<..;************
********************.Q<..CDX JX1L;DIFF.
X.X<$. ...<.. QX0L..<8. RDIFFXL..<B. JX1
H..=L. QX0H..=V. RDIFFXH..=`. JDX.#=J. .
CDY.:=T. JDIFFXL;IF DX= -1.E=~. H#$FF.T=
.. .;COMPUTE.]=.. E#1.S=.. RDIFFXL;2-COM
PL...=.. JDIFFXH..=.. H#$FF..=.. E#0..=D
. RDIFFXH.G=N.;=========================
=======..=X.CDY JY1;DIFF. Y..=.. ...=..
QY0..=.. RDIFFY..>.. JDY..>.. .INCDIFF;I
F DY = -1.%>.. JDIFFY.0>.. H#$FF.7>(. ..
I>2. E#1;2-COMPL..U><. RDIFFY.{>F.;=====
===========================..>P.INCDIFF
IDIFFXL;INCREMENT..>Z. .INCDIFFY;DIFFERE
NCE.E>D. IDIFFXH;BY 1.Y>N.INCDIFFY IDIFF
Y..>X.;================================.
.?.. JDIFFXH..?.. .XWAY.$?.. JDIFFXL.0?
. DDIFFY.;?.. .XWAY.F?.. UYWAY.L?..;====
============================..?H.EQUAL J
X0L;"STRAIGHT"..?R. BX0H;LINES ARE..?..
CY0;DRAWN HERE..?.. VACCESS.D?.. JY0.M?.
. DY1.Z?.. .CONTEQ..?.. JX0H..?.. DX1H..
?". .CONTEQ..@,. JX0L..@6. DX1L..@@. .CO
NTEQ.#@J. ..2@T.CONTEQ JY0.9@^. ..B@H. E
DY.K@R. RY0.T@|. JDX.`@.. .EQUAL.N@.. .D
OWNXEQ.U@.. ..@.. EX0L..@.. RX0L..@.. J
X0H..@B. E#0..@L. RX0H..@V. UEQUAL.C@..D
OWNXEQ GX0L.M@.. JX0L.X@.. D#$FF..@.. .E
QUAL..@. GX0H..@. UEQUAL. A. ;********
************************.FA& ;*
*.LA0 ;* 3. DIVIDE
DIFF. X BY DIFF. Y *..A: ;* ------------
---------------- *..AD ;*
*..AN ;* THIS IS A 24/8 B
IT DIVISION. *..BX ;*
*.*BB ;* DC/DH/DM/DL IS THE D
IVIDEND, *.PBL ;* DIFFY IS THE DIV
ISOR, *.VBV ;* QH/QM/QL IS THE QUOTI
ENT. *..B. ;*
*.BB. ;******************************
**.OB. XWAY B#0.XB. SDL..B. JDIFFXL..B
. RDM..B. JDIFFXH..CF RDH..CP SDC..C
Z B#24.'C. DIVLOOP JDH..C. ..:C. QDIF
FY.AC.! Z.JC.! JDC.SC.! Q#0.AC ! .ROTLEF
T.JC*! TDH.SC4! RDC.ZC>! ...CH! .$24..CR
!ROTLEFT ...C\! OQL;ROTATE C..CF! OQM;LE
FT INTO.ICP! OQH;QUOTIENT.RCZ! KDL..C.!
ODM;ROTATE..C.! ODH;DIVIDEND..D.! ODC;LE
FT..D.! ...D.! .DIVLOOP.=D.!;===========
=====================.FD.! JQH.TDJ! RDEL
TA_H.]DT! JQM.KD.! RDELTA_M.TD.! JQL..D.
! RDELTA_L..D.!;========================
========..D."XLOOP JX0H.AD." DX1H.MD." .
XCONT.WD$" JX0L..D." DX1L;IF X0=X1..E8"
.XCONT;THEN EXIT..EB" ..-EL";===========
=====================.<EV"XCONT JX0L.FE`
" BX0H.OEJ" CY0.\ET" VACCESS.EE~" JDX.QE
." .XDOWN.{E." IX0L..E." .SETY..E." IX0H
..E." .SETY..E."XDOWN GX0L..ED" JX0L..EN
" D#$FF.JEX" .SETY.TE." GX0H..E.";======
==========================..F."SETY GDEL
TA_H..F.# .XLOOP.!F.# JY0.(F.# ..1F.# ED
Y.:F(# RY0.AF2# ..OF<# JDELTA_L.XFF# EQL
.FFP# RDELTA_L.TFZ# JDELTA_M.}FD# EQM..F
N# RDELTA_M..FX# JQH..F.# E#0..F.# RDELT
A_H..F.# UXLOOP..F #;*******************
*************..G.#;*
*.)G.#;* 4. DIVIDE DIFF. Y BY
DIFF. X *.OG.#;* -----------------------
----- *.UGH#;*
*..GR#;* THIS IS A 24/8 BIT DIVISION
. *.AG.#;*
*..G.#;* DC/DH/DM/DL IS THE DIVIDEND, *.
.H.#;* DIFFXL IS THE DIVISOR, *.3H
.#;* QH/QM/QL IS THE QUOTIENT. *.YH.$
;* *.H.$;*
*******************************..H.$YWAY
B#0..H"$ SDL..H,$ JDIFFY..H6$ RDM..H@$
SDH..HJ$ SDC.FHT$ B#24.WH^$DIVYLOOP JDH.
.HH$ ...HR$ QDIFFXL..H|$ Z..H.$ JDC..I.$
Q#0..I.$ .ROTLEFTY..I.$ TDH.%I.$ RDC.,I
.$ ..6IB$ .$24.EIL$ROTLEFTY ..WIV$ OQL;R
OTATE C.JI.$ OQM;LEFT INTO.|I.$ OQH;QUOT
IENT..I.$ KDL..I.$ ODM;ROTATE..I.% ODH;D
IVIDEND..I.% ODC;LEFT..I.% ..KI&% .DIVYL
OOP..I0%;===============================
=..I:% JQH..JD% RDELTA_H..JN% JQM..JX% R
DELTA_M.(JB% JQL.6JL% RDELTA_L.\JV%;====
============================.JJ.%YLOOP J
Y0.|J.% DY1;IF Y0=Y1..J.% .YCONT;THEN EX
IT..J.% ...J.%;=========================
=======.NJ.%YCONT JX0L.XJ.% BX0H..JF% CY
0..JP% VACCESS..JZ% JY0..J.% ...K.% EDY.
.K.% RY0."K.&SETX GDELTA_H..K.& .YLOOP.7
K.& JDX.DK & .XDOWNY.NK*& IX0L.]K4& .GET
DELTA.GK>& IX0H.VKH& .GETDELTA..KR&XDOWN
Y GX0L..K\& JX0L..KF& D#$FF..KP& .GETDEL
TA..KZ& GX0H.ZK.&;======================
==========..K.&GETDELTA ...K.& JDELTA_L.
.L.& EQL..L.& RDELTA_L..L.& JDELTA_M.%L.
& EQM.3LJ& RDELTA_M.<LT& JQH.EL.& E#0.SL
.& RDELTA_H._L.& UYLOOP..L.';-----------
---------------------..L.';..L$'; D
RAW/CLEAR A FRAME.GL.'; ===========
=======.ML8';..LB'; FRAME ZEICHNET EINEN
RAHMEN...ML'; CFRAME LOESCHT DIESEN RAH
MEN...MV';.=M`'; (FX0,FY0) ENTHAELT DIE
LINKE.\MJ'; OBERE ECKE AND (FX1,FY1).YMT
'; DIE RECHTE UNTERE ECKE..M~'; (ODER UM
GEKEHRT)...M.';..M.';-------------------
-------------.KM.'.PX0L=X0L.YM.'.PX0H=X0
H..M.'.PX1L=X1L..M.'.PX1H=X1H..ND'.PY0=Y
0..NN'.PY1=Y1. NX'.LC XCL,XCH,YC.*N.' JX
CL.4N.' BXCH.=N.' CYC.CN.(..VN.(.SC XCL,
XCH,YC.`N.( RXCL.JN.( SXCH.SN(( TYC.YN2(
...N<(.XF0 SXL,SXH,SY. NF( LC SXL,SXH,SY
..NP( SC PX0L,PX0H,PY0..NZ(..PND(.XF1 SX
L,SXH,SY..NN( LC SXL,SXH,SY..NX( SC PX1L
,PX1H,PY1..N.(...O.(FRAME J#1..O.( .*+4.
&O (CFRAME J#0..O.( R2.EO.( XF0 FX0L,FX0
H,FY0.\O.( XF1 FX1L,FX1H,FY0.MOH( VACCES
SLINE..OR( XF0 FX1L,FX1H,FY1..O.( VACCES
SLINE..O.( XF0 FX0L,FX0H,FY0.CO.( XF1 FX
0L,FX0H,FY1.TO.( VACCESSLINE..O.) XF0 FX
1L,FX1H,FY1..O.) UACCESSLINE."P.);------
--------------------------.(P");.CP,);
FILL A FRAME.^P6); ======
======.DP@);..PJ); FILL FUELTT EINEN BER
EICH DER..PT); GRAFIKSEITE, DER VON EINE
M.GP^); RAHMEN BESCHRAENKT IST..MPH);..P
R); OHNE BEGRENZUNG WIRD JEWEILS..Q|); B
IS ZUM BILDSCHIRMRAND AUF-."Q.); GEFUELL
T..(Q.);.KQ.); DER PUNKT, AN DEM DIE FUE
LL-.OQ.); OPERATIONEN BEGINNT, WIRD MIT.
.Q.); A,X,Y REGISTERN WIE BEI "SET"..Q.)
; FESTGELEGT...QB);.NQL); IST DIESER PUN
KT BEREITS GE-..QV); SETZT, STOPPT FILL
SOFORT...Q.);..R.); WARNUNG: IN DIESER V
ERSION.:R.); WERDEN NUR RECHTECKIGE RAHM
EN.ZR.); VOLLSTAENDIG AUSGEFUELLT..{R.*;
IN ANDEREN FAELLEN KOENNEN..R.*; MEHRER
E "FILLS" NOTWENDIG SEIN...R.*;.MR&*;---
-----------------------------.XR0*SXL .1
..R:*SXH .1..RD*SY .1..RN*CXL .1..SX*CXH
.1..SB*CY .1..SL*.INW WORD.&SV* IWORD.0
S.* .END.=S.* IWORD+1.ES.*END.KS.*..YS.*
.DCW WORD.DS.* GWORD.OS.* JWORD.ZSF* D#$
FF..SP* .END..SZ* GWORD+1..S.*END..S.*..
.S.*FILL SC SXL,SXH,SY.AS.+ VTEST.MS.+ .
BEGIN.TS.+ ...S +BEGIN LC SXL,SXH,SY..T*
+LINEUP SC CXL,CXH,CY..T4+ VTEST..T>+ .S
ETUP.'TH+ UDOWN.?TR+SETUP LC CXL,CXH,CY.
IT\+ VSET.STF+ JCXL.CTP+ .DECRX;HIT.RTZ+
JCXH;LEFT..T.+ .CONTR;BORDER ?..T.+DECR
X DCW CXL..T.+ LC CXL,CXH,CY..T.+ VTEST.
CT.+ .SETUP.XT.+CONTR JSXL;START..T.+ BS
XH;X-COORD...TJ+ RCXL..TT+ SCXH..U.+WALK
R JCXH..U.+ .INCRX.(U.+ JCXL;HIT.9U.+ D#
$40;RIGHT.OU., .CONTUP;BORDER ?.AU.,INCR
X INW CXL.TU., LC CXL,CXH,CY.U$, VTEST.
.U., .CONTUP..U8, LC CXL,CXH,CY..UB, VSE
T..UL, UWALKR.EUV,CONTUP JSXL.OU`, BSXH.
YUJ, RCXL..UT, SCXH..U~, LC CXL,CXH,CY..
U., ...V., A#$FF..V., .DOWN. V., ULINEUP
.7V.,DOWN LC SXL,SXH,SY.JV., SC CXL,CXH,
CY.WVD,BOTTOM ..BVN, A#200.RVX, .CHECKDO
WN.YV., ...V.,CHECKDOWN TCY..V., VTEST..
V.- .SETDOWN..V.- ..EV.-SETDOWN LC CXL,C
XH,CY.OV.- VSET.YV(- JCXL..V2- .DECRXD;H
IT..V<- JCXH;LEFT..WF- .CONTRD;BORDER ?.
"WP-DECRXD DCW CXL.5WZ- LC CXL,CXH,CY.@W
D- VTEST.NWN- .SETDOWN.DWX-CONTRD JSXL;S
TART.WW.- BSXH;X-COORD...W.- RCXL..W.- S
CXH..W -WALKRD JCXH..W.- .INCRXD..W.- JC
XL;HIT.GW.- D#$40;RIGHT..WH- .CONTDOWN;B
ORDER ?..WR-INCRXD INW CXL..X.- LC CXL,C
XH,CY..X.- VTEST..X.- .CONTDOWN.2X.- LC
CXL,CXH,CY.<X.. VSET.IX.. UWALKRD.[X..CO
NTDOWN JSXL.EX". BSXH.OX,. RCXL.YX6. SCX
H..X@. CCY..XJ. UBOTTOM..XT.;-----------
---------------------..X^.;.RXH.;
TEXT..XR.; ====..X|.;.
.Y..; ZEIGT ASCII TEXT AUF DER..Y..; AKT
UELLEN GRAFIKSEITE AN..4Y..;.XY..; DIE A
DRESSE DES ANZUZEIGENDEN.ZY..; TEXTES WI
RD IN DIE REGISTER..Y..; (A/Y) (LOW/HIGH
) GELADEN;..YB.; DIE TEXTFARBE INS X REG
ISTER...YL.; IST X>128, WIRD KEINE NEUE.
.YV.; FARBE GESETZT...Z..; DIE SPALTE/ZE
ILE, AN DER DER.=Z..; ERSTE BUCHSTABE AN
GEZEIGT WIRD,.XZ..; WIRD BESTIMMMT DURCH
.^Z..;..Z./; TX (SPALTE) : 0 <= TX <=
39..Z./; TY (ZEILE) : 0 <= TX <= 24..
Z./;.MZ&/; BEI ANDEREN WERTEN STOPPT..Z
0/; " TEXT " SOFORT...Z:/;..[D/; EXPX B
ESTIMMT DIE HORIZONTALE.3[N/; AUSDEHNUNG
DER BUCHSTABEN. ES.U[X/; WERDEN NUR DIE
BEIDEN LSB'S.Y[B/; BETRACHTET. DIE WERT
E 0,1,2,3..[L/; BESTIMMEN DIE AUSDEHNUNG
IN X-..[V/; RICHTUNG..P[./; EXPY BESTIM
MT DIE VERTIKALE..[./; AUSDEHNUNG DER BU
CHSTABEN...\./; DIE WERTE ENTSPRECHEN DE
NEN VON.#\./; EXPX..H\./; CASE GIBT AN,
WELCHER ZEICHEN-.B\./; SATZ VERWENDET WI
RD..\./; (NUR DAS LSB WIRD BETRACHTET):.
.\F/;..\P/; CASE=0 : UPPER CASE..\
Z/;.S\./; CASE=1 : LOWER CASE.Y\./
;..\./; WIRD BEI DER ANZEIGE DES TEXTES.
$].0; DAS ZEILENENDE ERREICHT, HAELT.H].
0; DIE ROUTINE, UND DER REST DES.E].0; T
EXTES WIRD IGNORIERT..K] 0;..]*0; DAS EN
DE DES TEXTES WIRD DURCH..]40; EIN NULL
BYTE (HEX 00) HINTER.X]>0; DEM LETZTEN Z
EICHEN MARKIERT...]H0;..^R0;------------
--------------------..^\0MATBUF .8..^F0B
XL .1.(^P0BXH .1.3^Z0XXL .1.>^.0XXH .1.H
^.0XY .1.S^.0XXC .1.^^.0XYC .1.M^.0TEXTC
OL .1..^.0;=============================
===..^.0TEXT RREADCHAR+1..^J0 TREADCHAR+
2.G^T0 STEXTCOL..^.0;===================
=============.._.0TEXTLOOP JTX;ENOUGH.._
.0 D#40;ROOM LEFT?.*_.0 .TERMINATE.3_.1
JTY.=_.1 D#25.M_.1 .TERMINATE.K_$1READCH
AR J$FFFF;TEXT ADR..Z_.1 .CONTTEXT.._81T
ERMINATE J#0;RESET.._B1 R2;LOC. 2 !.._L1
..P_V1;================================
.._`1CONTTEXT INW READCHAR+1.._J1 CTEXTC
OL..`T1 .COLORCHAR..`~1 D#" ".&`.1 .CONV
CHAR+1.4`.1 UNEXTCOL.D`.1COLORCHAR ..M`.
1 J#0.W`.1 RLOW.B`.1 RHIGH.S`D1TCL CTEXT
COL.|`N1 JTX..`X1 ...`.1 ELOW;X OFFSET..
`.1 X..`.1 JTY..`.2 ..A`.2 EHIGH;Y OFFSE
T.N`.2 VSETCOL.X`.2 JLOW..`(2 DEXPX..`22
.TCC..`<2 ILOW..AF2 .TCL..AP2TCC JHIGH.
.AZ2 DEXPY.)AD2 .CONVCHAR.2AN2 J#0.<AX2
RLOW.GA.2 IHIGH.QA.2 .TCL.WA.2;=========
=======================..A 2CONVCHAR ...
A.2 D#$40..A.2 .TL..A.2 D#$60;CONVERT..A
H2 .CV1;ASCII.KAR2 D#$80;TO..A.2 .CV2;SC
REEN..A.2 D#$C0;CODE..A.2 .CV1..B.2CV2 .
..B.3 Q#$40..B.3CV1 .. B.3 Q#$40.1B"3TL
RCRP;INIT.CB,3 J#0;CHAR-ROM.WB63 RCRP+1;
POINTER.`B@3 B#3.XBJ3MULT8 KCRP;MULTIPLY
..BT3 OCRP+1;"CRP" BY 8..B^3 ...BH3 .MUL
T8..BR3 JCASE;ADD BASE.GB|3 F#1;ADDRESS.
NB.3 K..B.3 K;CHARACTER..B.3 K;MATRIX IS
..C.3 E#$D0;ROM AREA..C.3 ECRP+1;AT $D00
0!.&C.3 RCRP+1.LCB3;********************
************.RCL3;*
*..CV3;* CRP NOW CONTAINS POINT
ER TO *..C.3;* THE ACTUAL 8*8 - BIT MAT
RIX *..C.3;* OF THE CHARACTER TO BE DIS
- *..D.3;* PLAYED. THESE 8 BYTES ARE
*.0D.3;* NOW COPIED INTO " MATBUF ". *
.VD.4;* *.|
D.4;********************************..D.
4 .;IRQ OFF,..D&4 J#$33;CHARACTER..D04 R
1;ROM ON !..D:4 C#7.PDD4MATCOPY J(CRP),Y
..DN4 RMATBUF,Y..DX4 ...DB4 .MATCOPY..EL
4 J#$37;CHARACTER..EV4 R1;ROM OFF,.*E.4
.;IRQ ON ..PE.4;************************
********.VE.4;*
*..E.4;* COLUMN AND LINE VALUES AR
E *.BE.4;* TRANSFORMED INTO X/Y COOR-
*..E.4;* DINATES FOR ACCESSING DOTS *
..F.4;* *.4
FF4;********************************.=FP
4 JTX.DFZ4 K.KF.4 K.RF.4 K.\F.4 RBXL.EF.
5 J#0.NF.5 E#0.XF.5 RBXH..F 5 JTY..F*5 K
..F45 K..F>5 K..FH5 RXY.EFR5;***********
*********************..F\5;*
*..GF5;* ONE LETTER I
S PRINTED INTO *.7GP5;* THE BIT-MAP BY
ISOLATING *.]GZ5;* EACH DOT OF ITS
MATRIX ; *..G.5;*
*..G.5;* TESTING IF IT IS SET
BY *.OG.5;* ANDING WITH THE POWERS
OF 2 *..G.5;* (IN TAB3); ISOLATING THE
*..H.5;* ZERO FLAG AFTER THIS OPERA
- *.AH.5;* TION THAT INDICATES THE
*.GH.5;* EQUALITY, INVERTING IT, *.
.HJ5;* *..H
T5;* AND FINALLY STORING IT AS *.YH.5
;* THE CLEAR/SET PARAMETER OF *..H.5;*
THE " ACCESS " ROUTINE. *.%I.5;*
*.KI.5;*****
***************************.VI.6 JEXPY._
I.6 F#3.II.6 RXYC.RI$6 J#0.}I.6 RHIGH..I
86LINEBEGIN J#7..IB6 RLOW..IL6 JBXL..IV6
RXXL..I`6 JBXH.AIJ6 RXXH.SIT6SETLOOP CH
IGH..I~6 BLOW..I.6 JMATBUF,Y..I.6 FTAB3,
X..J.6 ...J.6 .;ISOLATE."J.6 F#2;ZERO FL
AG.4J.6 H#2;& INVERT.EJD6 R2;-> CLEAR.ZJ
N6 JEXPX; OR SET.CJX6 F#3.MJ.6 RXXC..J
.6MULTIPLE LC XXL,XXH,XY..J.6 VACCESS..J
.7 INW XXL..J.7 GXXC;EXPAND X.DJ.7 .MULT
IPLE.NJ.7 GLOW..J(7 .SETLOOP..J27 IXY..J
<7 GXYC;EXPAND Y..KF7 .LINEBEGIN..KP7 IH
IGH..KZ7 JEXPY.'KD7 F#3.1KN7 RXYC.<KX7 J
HIGH.EK.7 D#..UK.7 .LINEBEGIN.EK.7NEXTCO
L BTX.LK 7 ..SK.7 W.ZK.. ...K.7 EEXPX..K
H7 RTX..KR7 UTEXTLOOP.CK.:;-------------
-------------------.IK.:;..K.:; CI
RCLE / CCIRCLE..L.:; =============
===..L.:;..LJ:; ZEICHNET/LOESCHT EINEN
KREIS..QLT:; DER MITTELPUNKT DES KREISE
S.VL.:; STEHT IN DEN A,X,Y REGISTERN..|
L.:;..L.:; DER RADIUS STEHT IN "RAD"..
.L.:;.KL.;;-----------------------------
---.VL.;MXL .1..L.;MXH .1..L$;MY .1..L.;
C1 .1..L8;C2 .1..MB;C3 .1..ML;C4 .1.$MV;
.CDOT=ACCESS.,M`;.CS.6MJ; JLOW.AMT; BHIG
H.LM~; VCDOT.RM.;.._M.;CIRCLE ..HM.; J#1
.RM.; .*+5..M.;CCIRCLE ...M.; J#0..MD; R
2..MN; ...MX; SC MXL,MXH,MY..M.; IRAD..M
.; BRAD.HM.; .#2.UM.< .READLT..M.< ...M.
<READLT JLT1,X..M.< RC1..N(< JLT2,X..N2<
RC2..N<< ...NF< SC4.&NP< CRAD.2NZ< V$B3
A2.>ND< V$BC0C.INN< C#$4B.UNX< V$B3A2.AN
.< V$BA2B.MN.< V$BAFE.YN.< V$BAFE..N < V
$BC9B..N.< J#0..N.< RC3..N.<CLOOP BC3..N
H< ...NR< JC1.AN.< QLT1,X.KN.< RLOW.TN.<
JC2..N.< QLT2,X..N.= RHIGH..N.= BC4..O.
= JLT2,X..O"= DHIGH..O,= .CL1..O6= .CL3.
)O@= UCL2.8OJ=CL1 JLT1,X.BOT= DLOW.LO^=
.CL3.XOH=CL2 GC4.BOR=CL3 ..KO|= JC4.TO.=
EMY.{O.= Z..O.= ...O.= JMXL..O.= EC3..O
.= RLOW..OB= JMXH..OL= E#0..OV= RHIGH.EO
.= CS.LO.= ..UO.= JMY..O.= QC4..O.> Z..O
.> CS..O.> ...O&> JMY..P0> EC4..P:> Z..P
D> ...PN> JMXL.'PX> QC3.1PB> RLOW.;PL> J
MXH.DPV> Q#0.OP.> RHIGH.WP.> CS.^P.> ..G
P.> JMY.PP.> QC4.WP.> Z.P.> CS..PF> ...
PP> JMXL..PZ> EC4..P.> RLOW..P.> JMXH..P
.> E#0.AP.? RHIGH.HP.? ..QP.? JMY.ZP ? E
C3..P*? Z..P4? CS..P>? ...PH? JMY..QR? Q
C3..Q\? Z..QF? CS..QP? .."QZ? JMXL.+Q.?
QC4.5Q.? RLOW.?Q.? JMXH.HQ.? Q#0.SQ.? RH
IGH.ZQ.? ..CQ.? JMY.LQJ? EC3.SQT? Z.{Q.?
CS..Q.? ...Q.? JMY..Q.? QC3..Q.@ Z..Q.@
CS..Q.@ ...Q$@ JC3..Q.@ E#1.EQ8@ RC3.OQ
B@ D$65..QL@ .CTERM..QV@ UCLOOP..Q`@CTER
M ...RJ@;-------------------------------
-..RT@;.AR~@; DRAW LINES / CLEAR LINE
S.CR.@; ======.=======.=========.IR.@
;..R.@; DIESE ROUTINEN ERHALTEN EINEN..R
.@; ZEIGER IN (A/Y) AUF EINE.FR.@; KOORD
INATENTABELLE..LR.@;..RD@; DIE EINTRAEGE
DIESER TABELLE..SN@; WERDEN ALS DIE KOO
RDINATEN.3SX@; VON ENDPUNKTEN VON ZUSAMM
EN-.ZS.@; HAENGENDEN LINIEN INTERPRETIER
T..~S.@; VON EINEM PUNKT ZUM NAECHSTEN..
S.@; WIRD JEWEILS EINE LINIE..S.A; GEZEI
CHNET / GELOESCHT...S.A; DAS ENDE DER TA
BELLE WIRD MAR-..T.A; KIERT DURCH EINE X
KOORDINATE..T.A; >= $8000..9T(A;-------
-------------------------.FT2A.CTF PAR._
T<A;COORDINATE TRANSFER.MTFA J(LOW),Y.WT
PA RPAR.~TZA ...TDA...TNALINES B#1..TXA
.*+4..T.ACLINES B#0..T.A S2..T.A RLOW.HT
A THIGH..T.ALOOP C#4;SECOND DOT..T.A J(
LOW),Y;TABLE END?..U.A .CONTLINES..UHA .
."URACONTLINES C#0./U.A CTF X0L.<U.A CTF
X0H.HU.A CTF Y0.UU.A CTF X1L.BU.B CTF X
1H.NU.B CTF Y1.XU.B JLOW.U"B ...U,B E#3
..U6B RLOW..U@B JHIGH..UJB E#0..UTB RHIG
H.BU^B VACCESSLINE.MUHB ULOOP..URB;-----
---------------------------..U|B;..V.B;
*** ENDE DES QUELLTEXTES ***.#V.B;.IV.B
; AB HIER PLATZ FUER ZUSAETZLICHE.`V.B;
GRAFIK-ROUTINEN!.FV.B;..V.B;------------
--------------------...
> CLICK IMAGE PREVIEW FOR FULL MODAL