TEXT
FILE INFORMATION
FILENAME(S): TEXT
FILE TYPE(S): PRG
FILE SIZE: 7.4K
FIRST SEEN: 2025-10-20 14:30:10
APPEARS ON: 2 disk(s)
FILE HASH
81cd2bb022b9e5c2052b7906bd120c257a44c7e18e9d6e0299969abee722c153
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 90571 | TEXT | PRG | Treasure Chest - Klaus Der Suhler | 10 | 11 | DOWNLOAD FILE |
| 90571 | TEXT | PRG | BrainSkull, Georg Fuchs 1988 | 10 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 14 2D 1E 2D 64 00 3B 54 45 58 54 00 24 2D 65 00 |.-.-d.;TEXT.$-e.|
00000010: 3B 00 32 2D 66 00 20 2E 42 41 24 36 41 34 45 00 |;.2-f. .BA$6A4E.|
00000020: 5E 2D 67 00 20 2E 45 51 42 59 54 45 20 3D 20 24 |^-g. .EQBYTE = $|
00000030: 42 37 39 45 20 20 20 3B 45 49 4E 2D 42 59 54 45 |B79E ;EIN-BYTE|
00000040: 2D 57 45 52 54 20 48 4F 4C 45 4E 00 84 2D 68 00 |-WERT HOLEN..-h.|
00000050: 20 2E 45 51 4B 4F 4D 4D 41 20 3D 20 24 41 45 46 | .EQKOMMA = $AEF|
00000060: 44 20 20 3B 4B 4F 4D 4D 41 50 52 55 45 46 55 4E |D ;KOMMAPRUEFUN|
00000070: 47 00 AB 2D 69 00 20 2E 45 51 46 52 4D 45 56 4C |G..-i. .EQFRMEVL|
00000080: 20 3D 20 24 41 44 39 45 20 3B 41 55 53 44 52 55 | = $AD9E ;AUSDRU|
00000090: 43 4B 20 48 4F 4C 45 4E 00 D5 2D 6A 00 20 2E 45 |CK HOLEN..-j. .E|
000000A0: 51 49 4E 54 45 47 45 52 20 3D 20 24 42 31 42 46 |QINTEGER = $B1BF|
000000B0: 3B 4E 41 43 48 20 49 4E 54 2E 20 57 41 4E 44 45 |;NACH INT. WANDE|
000000C0: 4C 4E 00 01 2E 6B 00 20 2E 45 51 58 53 4C 20 3D |LN...k. .EQXSL =|
000000D0: 20 24 46 41 20 20 20 20 20 20 3B 53 50 41 4C 54 | $FA ;SPALT|
000000E0: 45 4E 20 28 3D 20 41 4B 54 55 45 4C 4C 45 00 28 |EN (= AKTUELLE.(|
000000F0: 2E 6C 00 20 2E 45 51 58 53 48 20 3D 20 24 46 42 |.l. .EQXSH = $FB|
00000100: 20 20 20 20 20 20 3B 4B 4F 4F 52 44 49 4E 41 54 | ;KOORDINAT|
00000110: 45 4E 20 49 4E 00 4D 2E 6D 00 20 2E 45 51 59 53 |EN IN.M.m. .EQYS|
00000120: 20 3D 20 24 46 43 20 20 20 20 20 20 20 3B 45 49 | = $FC ;EI|
00000130: 4E 45 52 20 5A 45 49 4C 45 29 00 75 2E 6E 00 20 |NER ZEILE).u.n. |
00000140: 2E 45 51 58 5A 4C 20 3D 20 24 38 42 20 20 20 20 |.EQXZL = $8B |
00000150: 20 20 3B 4B 4F 4F 52 44 49 4E 41 54 45 4E 20 44 | ;KOORDINATEN D|
00000160: 45 52 00 9F 2E 6F 00 20 2E 45 51 58 5A 48 20 3D |ER...o. .EQXZH =|
00000170: 20 24 38 43 20 20 20 20 20 20 3B 5A 45 49 4C 45 | $8C ;ZEILE|
00000180: 4E 41 4E 46 41 45 4E 47 45 20 49 4E 00 C5 2E 70 |NANFAENGE IN...p|
00000190: 00 20 2E 45 51 59 5A 20 3D 20 24 38 44 20 20 20 |. .EQYZ = $8D |
000001A0: 20 20 20 20 3B 45 49 4E 45 4D 20 5A 45 49 43 48 | ;EINEM ZEICH|
000001B0: 45 4E 00 EF 2E 71 00 20 2E 45 51 58 4C 20 3D 20 |EN...q. .EQXL = |
000001C0: 24 39 35 20 20 20 20 20 20 20 3B 4C 49 4E 4B 45 |$95 ;LINKE|
000001D0: 2C 20 4F 42 45 52 45 20 45 43 4B 45 00 14 2F 72 |, OBERE ECKE../r|
000001E0: 00 20 2E 45 51 58 48 20 3D 20 24 39 36 20 20 20 |. .EQXH = $96 |
000001F0: 20 20 20 20 3B 44 45 53 20 5A 45 49 43 48 45 4E | ;DES ZEICHEN|
00000200: 53 00 3F 2F 73 00 20 2E 45 51 59 20 3D 20 24 38 |S.?/s. .EQY = $8|
00000210: 45 20 20 20 20 20 20 20 20 3B 28 42 45 5A 55 47 |E ;(BEZUG|
00000220: 53 4B 4F 4F 52 44 49 4E 41 54 45 29 00 69 2F 74 |SKOORDINATE).i/t|
00000230: 00 20 2E 45 51 58 41 42 5A 4C 20 3D 20 24 38 46 |. .EQXABZL = $8F|
00000240: 20 20 20 20 3B 41 42 53 54 41 4E 44 20 56 4F 4E | ;ABSTAND VON|
00000250: 20 45 49 4E 45 52 00 95 2F 75 00 20 2E 45 51 58 | EINER../u. .EQX|
00000260: 41 42 5A 48 20 3D 20 24 46 44 20 20 20 20 3B 5A |ABZH = $FD ;Z|
00000270: 45 49 4C 45 20 5A 55 52 20 4E 41 45 43 48 53 54 |EILE ZUR NAECHST|
00000280: 45 4E 00 BE 2F 76 00 20 2E 45 51 59 41 42 5A 20 |EN../v. .EQYABZ |
00000290: 3D 20 24 46 45 20 20 20 20 20 3B 49 4E 20 45 49 |= $FE ;IN EI|
000002A0: 4E 45 4D 20 5A 45 49 43 48 45 4E 00 E8 2F 77 00 |NEM ZEICHEN../w.|
000002B0: 20 2E 45 51 58 41 42 53 4C 20 3D 20 24 42 35 20 | .EQXABSL = $B5 |
000002C0: 20 20 20 3B 41 42 53 54 41 4E 44 20 56 4F 4E 20 | ;ABSTAND VON |
000002D0: 45 49 4E 45 52 00 13 30 78 00 20 2E 45 51 58 41 |EINER..0x. .EQXA|
000002E0: 42 53 48 20 3D 20 24 42 36 20 20 20 20 3B 53 50 |BSH = $B6 ;SP|
000002F0: 41 4C 54 45 20 5A 55 52 20 4E 41 45 43 48 53 2D |ALTE ZUR NAECHS-|
00000300: 00 3E 30 79 00 20 2E 45 51 59 41 42 53 20 3D 20 |.>0y. .EQYABS = |
00000310: 24 42 37 20 20 20 20 20 3B 54 45 4E 20 49 4E 20 |$B7 ;TEN IN |
00000320: 45 49 4E 45 52 20 5A 45 49 4C 45 00 68 30 7A 00 |EINER ZEILE.h0z.|
00000330: 20 2E 45 51 58 41 42 4C 20 3D 20 24 42 38 20 20 | .EQXABL = $B8 |
00000340: 20 20 20 3B 41 42 53 54 41 4E 44 20 56 4F 4E 20 | ;ABSTAND VON |
00000350: 45 49 4E 45 4D 00 94 30 7C 00 20 2E 45 51 58 41 |EINEM..0|. .EQXA|
00000360: 42 48 20 3D 20 24 42 39 20 20 20 20 20 3B 5A 45 |BH = $B9 ;ZE|
00000370: 49 43 48 45 4E 20 5A 55 4D 20 4E 41 45 43 48 53 |ICHEN ZUM NAECHS|
00000380: 2D 00 BE 30 7D 00 20 2E 45 51 59 41 42 20 3D 20 |-..0}. .EQYAB = |
00000390: 24 42 41 20 20 20 20 20 20 3B 54 45 4E 20 49 4E |$BA ;TEN IN|
000003A0: 20 44 45 4D 20 53 54 52 49 4E 47 00 E6 30 7E 00 | DEM STRING..0~.|
000003B0: 20 2E 45 51 58 46 56 4B 20 3D 20 24 42 42 20 20 | .EQXFVK = $BB |
000003C0: 20 20 20 3B 58 2D 20 55 4E 44 20 59 2D 46 41 4B | ;X- UND Y-FAK|
000003D0: 54 4F 52 00 0F 31 7F 00 20 2E 45 51 58 46 4E 4B |TOR..1.. .EQXFNK|
000003E0: 20 3D 20 24 42 43 20 20 20 20 20 3B 28 56 45 52 | = $BC ;(VER|
000003F0: 47 52 4F 45 53 53 45 52 55 4E 47 29 00 3A 31 80 |GROESSERUNG).:1.|
00000400: 00 20 2E 45 51 59 46 56 4B 20 3D 20 24 42 44 20 |. .EQYFVK = $BD |
00000410: 20 20 20 20 3B 56 4F 52 2D 20 55 4E 44 20 4E 41 | ;VOR- UND NA|
00000420: 43 48 4B 4F 4D 4D 41 00 5A 31 81 00 20 2E 45 51 |CHKOMMA.Z1.. .EQ|
00000430: 59 46 4E 4B 20 3D 20 24 42 45 20 20 20 20 20 3B |YFNK = $BE ;|
00000440: 41 4E 54 45 49 4C 45 00 84 31 82 00 20 2E 45 51 |ANTEILE..1.. .EQ|
00000450: 58 56 4B 20 3D 20 24 42 46 20 20 20 20 20 20 3B |XVK = $BF ;|
00000460: 41 4B 54 55 45 4C 4C 45 20 46 41 4B 54 4F 52 45 |AKTUELLE FAKTORE|
00000470: 4E 00 AA 31 83 00 20 2E 45 51 58 4E 4B 20 3D 20 |N..1.. .EQXNK = |
00000480: 24 42 34 20 20 20 20 20 20 3B 4D 49 54 20 44 45 |$B4 ;MIT DE|
00000490: 4E 45 4E 20 44 49 45 00 D4 31 84 00 20 2E 45 51 |NEN DIE..1.. .EQ|
000004A0: 59 56 4B 20 3D 20 24 31 30 20 20 20 20 20 20 3B |YVK = $10 ;|
000004B0: 48 41 45 55 46 49 47 4B 45 49 54 20 4A 45 44 45 |HAEUFIGKEIT JEDE|
000004C0: 53 00 FF 31 85 00 20 2E 45 51 59 4E 4B 20 3D 20 |S..1.. .EQYNK = |
000004D0: 24 30 32 20 20 20 20 20 20 3B 42 49 54 53 20 42 |$02 ;BITS B|
000004E0: 45 53 54 49 4D 4D 54 20 57 49 52 44 00 2B 32 86 |ESTIMMT WIRD.+2.|
000004F0: 00 20 2E 45 51 5A 41 45 48 4C 45 52 20 3D 20 24 |. .EQZAEHLER = $|
00000500: 30 33 33 43 3B 38 20 42 59 54 45 53 20 50 52 4F |033C;8 BYTES PRO|
00000510: 20 5A 45 49 43 48 45 4E 00 55 32 87 00 20 2E 45 | ZEICHEN.U2.. .E|
00000520: 51 4C 41 45 4E 47 45 20 3D 20 24 30 33 33 44 20 |QLAENGE = $033D |
00000530: 3B 4C 45 41 4E 47 45 20 44 45 53 20 53 54 52 49 |;LEANGE DES STRI|
00000540: 4E 47 00 80 32 88 00 20 2E 45 51 50 4F 53 49 20 |NG..2.. .EQPOSI |
00000550: 3D 20 24 30 33 33 45 20 20 20 3B 50 4F 53 49 54 |= $033E ;POSIT|
00000560: 49 4F 4E 20 49 4D 20 53 54 52 49 4E 47 00 A4 32 |ION IM STRING..2|
00000570: 89 00 20 2E 45 51 5A 45 49 43 48 45 4E 20 3D 20 |.. .EQZEICHEN = |
00000580: 24 30 33 33 46 3B 5A 45 49 43 48 45 4E 43 4F 44 |$033F;ZEICHENCOD|
00000590: 45 00 CD 32 8A 00 20 2E 45 51 52 45 56 45 52 53 |E..2.. .EQREVERS|
000005A0: 20 3D 20 24 39 43 20 20 20 3B 46 4C 41 47 20 46 | = $9C ;FLAG F|
000005B0: 55 45 52 20 52 45 56 45 52 53 00 F4 32 8B 00 20 |UER REVERS..2.. |
000005C0: 2E 45 51 52 45 43 48 45 4E 31 20 3D 20 24 39 32 |.EQRECHEN1 = $92|
000005D0: 20 20 3B 52 45 43 48 45 4E 52 45 47 49 53 54 45 | ;RECHENREGISTE|
000005E0: 52 00 0A 33 8C 00 20 2E 45 51 52 45 43 48 45 4E |R..3.. .EQRECHEN|
000005F0: 32 20 3D 20 24 39 33 00 34 33 8D 00 20 2E 45 51 |2 = $93.43.. .EQ|
00000600: 53 41 54 5A 20 3D 20 24 30 33 34 30 20 20 20 3B |SATZ = $0340 ;|
00000610: 53 54 41 52 54 20 5A 45 49 43 48 45 4E 53 41 54 |START ZEICHENSAT|
00000620: 5A 00 5B 33 8E 00 20 2E 45 51 50 4C 4F 54 20 3D |Z.[3.. .EQPLOT =|
00000630: 20 24 36 30 38 38 20 20 20 3B 50 55 4E 4B 54 20 | $6088 ;PUNKT |
00000640: 5A 45 49 43 48 4E 45 4E 00 61 33 90 00 3B 00 76 |ZEICHNEN.a3..;.v|
00000650: 33 91 00 53 54 41 52 54 20 20 4A 53 52 20 4B 4F |3..START JSR KO|
00000660: 4D 4D 41 00 9B 33 96 00 20 4A 53 52 24 36 33 35 |MMA..3.. JSR$635|
00000670: 38 20 20 20 20 20 20 3B 53 54 41 52 54 4B 4F 4F |8 ;STARTKOO|
00000680: 52 44 49 4E 41 54 45 4E 00 B9 33 A1 00 20 4C 44 |RDINATEN..3.. LD|
00000690: 41 58 53 4C 20 20 20 20 20 20 20 20 3B 48 4F 4C |AXSL ;HOL|
000006A0: 45 4E 20 55 4E 44 00 C5 33 A2 00 20 4C 44 58 58 |EN UND..3.. LDXX|
000006B0: 53 48 00 E0 33 A3 00 20 4C 44 59 59 53 20 20 20 |SH..3.. LDYYS |
000006C0: 20 20 20 20 20 20 3B 53 45 54 5A 45 4E 00 EB 33 | ;SETZEN..3|
000006D0: A4 00 20 53 54 41 58 4C 00 12 34 A5 00 20 53 54 |.. STAXL..4.. ST|
000006E0: 58 58 48 20 20 20 20 20 20 20 20 20 3B 28 4C 49 |XXH ;(LI|
000006F0: 4E 4B 45 2C 20 4F 42 45 52 45 20 45 43 4B 45 00 |NKE, OBERE ECKE.|
00000700: 3A 34 A6 00 20 53 54 59 59 20 20 20 20 20 20 20 |:4.. STYY |
00000710: 20 20 20 3B 44 45 53 20 45 52 53 54 45 4E 20 5A | ;DES ERSTEN Z|
00000720: 45 49 43 48 45 4E 29 00 48 34 A7 00 20 4A 53 52 |EICHEN).H4.. JSR|
00000730: 4B 4F 4D 4D 41 00 6F 34 A8 00 20 4A 53 52 46 52 |KOMMA.o4.. JSRFR|
00000740: 4D 45 56 4C 20 20 20 20 20 3B 5A 45 49 47 45 52 |MEVL ;ZEIGER|
00000750: 20 41 55 46 20 53 54 52 49 4E 47 2D 00 94 34 A9 | AUF STRING-..4.|
00000760: 00 20 4C 44 59 23 30 30 20 20 20 20 20 20 20 20 |. LDY#00 |
00000770: 3B 44 45 53 43 52 49 50 54 4F 52 20 48 4F 4C 45 |;DESCRIPTOR HOLE|
00000780: 4E 00 A4 34 AA 00 20 4C 44 41 28 24 36 34 29 2C |N..4.. LDA($64),|
00000790: 59 00 C5 34 AF 00 20 53 54 41 4C 41 45 4E 47 45 |Y..4.. STALAENGE|
000007A0: 20 20 20 20 20 3B 4C 41 45 4E 47 45 20 48 4F 4C | ;LAENGE HOL|
000007B0: 45 4E 00 CE 34 B0 00 20 49 4E 59 00 DE 34 B4 00 |EN..4.. INY..4..|
000007C0: 20 4C 44 41 28 24 36 34 29 2C 59 00 05 35 B9 00 | LDA($64),Y..5..|
000007D0: 20 50 48 41 20 20 20 20 20 20 20 20 20 20 20 3B | PHA ;|
000007E0: 53 54 52 49 4E 47 5A 45 49 47 45 52 20 48 4F 4C |STRINGZEIGER HOL|
000007F0: 45 4E 00 0E 35 BE 00 20 49 4E 59 00 2E 35 C3 00 |EN..5.. INY..5..|
00000800: 20 4C 44 41 28 24 36 34 29 2C 59 20 20 20 20 3B | LDA($64),Y ;|
00000810: 55 4E 44 20 53 49 43 48 45 52 4E 00 37 35 C8 00 |UND SICHERN.75..|
00000820: 20 50 48 41 00 5C 35 D2 00 20 4A 53 52 48 4F 4C | PHA.\5.. JSRHOL|
00000830: 50 41 52 20 20 20 20 20 3B 56 45 4B 54 4F 52 20 |PAR ;VEKTOR |
00000840: 56 4F 4E 20 45 49 4E 45 4D 00 68 35 D3 00 20 4C |VON EINEM.h5.. L|
00000850: 44 41 24 36 34 00 74 35 D4 00 20 4C 44 59 24 36 |DA$64.t5.. LDY$6|
00000860: 35 00 99 35 D8 00 20 53 54 59 58 41 42 5A 4C 20 |5..5.. STYXABZL |
00000870: 20 20 20 20 20 3B 5A 45 49 4C 45 4E 41 4E 46 41 | ;ZEILENANFA|
00000880: 4E 47 20 5A 55 4D 00 BE 35 D9 00 20 53 54 41 58 |NG ZUM..5.. STAX|
00000890: 41 42 5A 48 20 20 20 20 20 20 3B 4E 41 45 43 48 |ABZH ;NAECH|
000008A0: 53 54 45 4E 20 28 49 4E 20 58 29 00 CD 35 DA 00 |STEN (IN X)..5..|
000008B0: 20 4A 53 52 48 4F 4C 50 41 52 00 D9 35 DB 00 20 | JSRHOLPAR..5.. |
000008C0: 4C 44 59 24 36 35 00 F4 35 DD 00 20 53 54 59 59 |LDY$65..5.. STYY|
000008D0: 41 42 5A 20 20 20 20 20 20 20 3B 28 49 4E 20 59 |ABZ ;(IN Y|
000008E0: 29 00 19 36 DE 00 20 4A 53 52 48 4F 4C 50 41 52 |)..6.. JSRHOLPAR|
000008F0: 20 20 20 20 20 3B 56 45 4B 54 4F 52 20 56 4F 4E | ;VEKTOR VON|
00000900: 20 45 49 4E 45 4D 00 25 36 DF 00 20 4C 44 41 24 | EINEM.%6.. LDA$|
00000910: 36 34 00 31 36 E0 00 20 4C 44 59 24 36 35 00 55 |64.16.. LDY$65.U|
00000920: 36 E1 00 20 53 54 59 58 41 42 53 4C 20 20 20 20 |6.. STYXABSL |
00000930: 20 20 3B 50 55 4E 4B 54 20 49 4E 4E 45 52 48 41 | ;PUNKT INNERHA|
00000940: 4C 42 00 79 36 E2 00 20 53 54 41 58 41 42 53 48 |LB.y6.. STAXABSH|
00000950: 20 20 20 20 20 20 3B 45 49 4E 45 52 20 5A 45 49 | ;EINER ZEI|
00000960: 4C 45 20 5A 55 4D 00 9A 36 E3 00 20 4A 53 52 48 |LE ZUM..6.. JSRH|
00000970: 4F 4C 50 41 52 20 20 20 20 20 3B 4E 41 45 43 48 |OLPAR ;NAECH|
00000980: 53 54 45 4E 20 49 4E 00 A6 36 E4 00 20 4C 44 59 |STEN IN..6.. LDY|
00000990: 24 36 35 00 CC 36 E5 00 20 53 54 59 59 41 42 53 |$65..6.. STYYABS|
000009A0: 20 20 20 20 20 20 20 3B 58 2D 20 55 4E 44 20 59 | ;X- UND Y|
000009B0: 2D 52 49 43 48 54 55 4E 47 00 F1 36 E6 00 20 4A |-RICHTUNG..6.. J|
000009C0: 53 52 48 4F 4C 42 59 54 45 20 20 20 20 3B 56 45 |SRHOLBYTE ;VE|
000009D0: 52 47 52 4F 45 53 53 45 52 55 4E 47 53 2D 00 14 |RGROESSERUNGS-..|
000009E0: 37 EB 00 20 53 54 58 58 46 56 4B 20 20 20 20 20 |7.. STXXFVK |
000009F0: 20 20 3B 46 41 4B 54 4F 52 45 4E 20 48 4F 4C 45 | ;FAKTOREN HOLE|
00000A00: 4E 00 31 37 F0 00 20 4A 53 52 48 4F 4C 42 59 54 |N.17.. JSRHOLBYT|
00000A10: 45 20 20 20 20 3B 58 2D 55 4E 44 20 59 2D 00 57 |E ;X-UND Y-.W|
00000A20: 37 F5 00 20 53 54 58 58 46 4E 4B 20 20 20 20 20 |7.. STXXFNK |
00000A30: 20 20 3B 4A 45 57 45 49 4C 53 20 56 4F 52 4B 4F | ;JEWEILS VORKO|
00000A40: 4D 4D 41 2D 00 7A 37 FA 00 20 4A 53 52 48 4F 4C |MMA-.z7.. JSRHOL|
00000A50: 42 59 54 45 20 20 20 20 3B 55 4E 44 20 4E 41 43 |BYTE ;UND NAC|
00000A60: 48 4B 4F 4D 4D 41 2D 00 95 37 FF 00 20 53 54 58 |HKOMMA-..7.. STX|
00000A70: 59 46 56 4B 20 20 20 20 20 20 20 3B 41 4E 54 45 |YFVK ;ANTE|
00000A80: 49 4C 00 A5 37 04 01 20 4A 53 52 48 4F 4C 42 59 |IL..7.. JSRHOLBY|
00000A90: 54 45 00 B2 37 09 01 20 53 54 58 59 46 4E 4B 00 |TE..7.. STXYFNK.|
00000AA0: D8 37 0E 01 20 4A 53 52 48 4F 4C 50 41 52 20 20 |.7.. JSRHOLPAR |
00000AB0: 20 20 20 3B 41 42 53 54 41 4E 44 20 56 4F 4E 20 | ;ABSTAND VON |
00000AC0: 45 49 4E 45 4D 00 E4 37 13 01 20 4C 44 41 24 36 |EINEM..7.. LDA$6|
00000AD0: 34 00 04 38 18 01 20 4C 44 59 24 36 35 20 20 20 |4..8.. LDY$65 |
00000AE0: 20 20 20 20 20 3B 5A 45 49 43 48 45 4E 20 5A 55 | ;ZEICHEN ZU|
00000AF0: 4D 00 11 38 1D 01 20 53 54 59 58 41 42 4C 00 35 |M..8.. STYXABL.5|
00000B00: 38 1E 01 20 53 54 41 58 41 42 48 20 20 20 20 20 |8.. STAXABH |
00000B10: 20 20 3B 4E 41 45 43 48 53 54 45 4E 20 48 4F 4C | ;NAECHSTEN HOL|
00000B20: 45 4E 00 44 38 1F 01 20 4A 53 52 48 4F 4C 50 41 |EN.D8.. JSRHOLPA|
00000B30: 52 00 50 38 20 01 20 4C 44 59 24 36 35 00 5C 38 |R.P8 . LDY$65.\8|
00000B40: 21 01 20 53 54 59 59 41 42 00 65 38 22 01 20 50 |!. STYYAB.e8". P|
00000B50: 4C 41 00 71 38 23 01 20 53 54 41 24 36 35 00 7A |LA.q8#. STA$65.z|
00000B60: 38 24 01 20 50 4C 41 00 86 38 25 01 20 53 54 41 |8$. PLA..8%. STA|
00000B70: 24 36 34 00 8C 38 26 01 3B 00 A6 38 2C 01 3B 54 |$64..8&.;..8,.;T|
00000B80: 45 58 54 41 55 53 57 45 52 54 55 4E 47 2D 53 54 |EXTAUSWERTUNG-ST|
00000B90: 41 52 54 00 C0 38 2D 01 3B 3D 3D 3D 3D 3D 3D 3D |ART..8-.;=======|
00000BA0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 C6 38 |=============..8|
00000BB0: 2E 01 3B 00 CF 38 2F 01 20 53 45 49 00 F5 38 30 |..;..8/. SEI..80|
00000BC0: 01 20 4C 44 41 23 35 32 20 20 20 20 20 20 20 20 |. LDA#52 |
00000BD0: 3B 50 52 4F 5A 45 53 53 4F 52 50 4F 52 54 20 41 |;PROZESSORPORT A|
00000BE0: 55 46 00 16 39 31 01 20 53 54 41 24 30 31 20 20 |UF..91. STA$01 |
00000BF0: 20 20 20 20 20 20 3B 52 41 4D 20 53 43 48 41 4C | ;RAM SCHAL|
00000C00: 54 45 4E 00 3B 39 32 01 20 4C 44 41 23 24 44 30 |TEN.;92. LDA#$D0|
00000C10: 20 20 20 20 20 20 20 3B 5A 45 49 43 48 45 4E 53 | ;ZEICHENS|
00000C20: 41 54 5A 53 54 41 52 54 00 58 39 33 01 20 53 54 |ATZSTART.X93. ST|
00000C30: 41 53 41 54 5A 20 20 20 20 20 20 20 3B 41 42 20 |ASATZ ;AB |
00000C40: 24 44 30 30 30 00 64 39 34 01 20 4C 44 41 23 30 |$D000.d94. LDA#0|
00000C50: 30 00 8B 39 35 01 20 53 54 41 50 4F 53 49 20 20 |0..95. STAPOSI |
00000C60: 20 20 20 20 20 3B 50 4F 53 49 54 49 4F 4E 20 49 | ;POSITION I|
00000C70: 4D 20 53 54 52 49 4E 47 00 B3 39 36 01 20 53 54 |M STRING..96. ST|
00000C80: 41 52 45 56 45 52 53 20 20 20 20 20 3B 52 45 56 |AREVERS ;REV|
00000C90: 45 52 53 46 4C 41 47 20 4C 4F 45 53 43 48 45 4E |ERSFLAG LOESCHEN|
00000CA0: 00 C6 39 37 01 4C 4F 4F 50 20 20 4C 44 59 20 50 |..97.LOOP LDY P|
00000CB0: 4F 53 49 00 EA 39 38 01 20 43 50 59 4C 41 45 4E |OSI..98. CPYLAEN|
00000CC0: 47 45 20 20 20 20 20 3B 50 4F 53 49 54 49 4F 4E |GE ;POSITION|
00000CD0: 3D 4C 41 45 4E 47 45 00 09 3A 39 01 20 42 45 51 |=LAENGE..:9. BEQ|
00000CE0: 4F 55 54 20 20 20 20 20 20 20 20 3B 4A 41 2C 20 |OUT ;JA, |
00000CF0: 46 45 52 54 49 47 00 2B 3A 3A 01 20 4C 44 41 28 |FERTIG.+::. LDA(|
00000D00: 24 36 34 29 2C 59 20 20 20 20 3B 5A 45 49 43 48 |$64),Y ;ZEICH|
00000D10: 45 4E 20 48 4F 4C 45 4E 00 34 3A 3B 01 20 54 41 |EN HOLEN.4:;. TA|
00000D20: 58 00 59 3A 3C 01 20 41 4E 44 23 24 37 46 20 20 |X.Y:<. AND#$7F |
00000D30: 20 20 20 20 20 3B 41 53 43 49 49 2D 43 4F 44 45 | ;ASCII-CODE|
00000D40: 20 3C 20 33 32 2C 00 65 3A 3D 01 20 43 4D 50 23 | < 32,.e:=. CMP#|
00000D50: 33 32 00 8C 3A 3E 01 20 42 43 43 53 4F 4E 44 45 |32..:>. BCCSONDE|
00000D60: 52 20 20 20 20 20 3B 44 41 4E 4E 20 53 4F 4E 44 |R ;DANN SOND|
00000D70: 45 52 5A 45 49 43 48 45 4E 00 95 3A 3F 01 20 54 |ERZEICHEN..:?. T|
00000D80: 58 41 00 B3 3A 40 01 20 41 4E 44 23 24 38 30 20 |XA..:@. AND#$80 |
00000D90: 20 20 20 20 20 20 3B 41 53 43 49 49 2D 20 49 4E | ;ASCII- IN|
00000DA0: 00 BC 3A 41 01 20 4C 53 52 00 DB 3A 42 01 20 53 |..:A. LSR..:B. S|
00000DB0: 54 41 52 45 43 48 45 4E 31 20 20 20 20 3B 53 43 |TARECHEN1 ;SC|
00000DC0: 48 49 52 4D 43 4F 44 45 00 E4 3A 43 01 20 54 58 |HIRMCODE..:C. TX|
00000DD0: 41 00 02 3B 44 01 20 41 4E 44 23 24 33 46 20 20 |A..;D. AND#$3F |
00000DE0: 20 20 20 20 20 3B 55 4D 57 41 4E 44 45 4C 4E 00 | ;UMWANDELN.|
00000DF0: 12 3B 45 01 20 4F 52 41 52 45 43 48 45 4E 31 00 |.;E. ORARECHEN1.|
00000E00: 37 3B 46 01 20 4A 53 52 54 45 58 54 20 20 20 20 |7;F. JSRTEXT |
00000E10: 20 20 20 3B 5A 45 49 43 48 45 4E 20 41 55 53 47 | ;ZEICHEN AUSG|
00000E20: 45 42 45 4E 00 5C 3B 47 01 20 4A 53 52 4E 45 58 |EBEN.\;G. JSRNEX|
00000E30: 54 5A 45 49 43 48 20 20 3B 4E 41 45 43 48 53 54 |TZEICH ;NAECHST|
00000E40: 45 4E 20 53 54 41 52 54 2D 00 81 3B 48 01 57 45 |EN START-..;H.WE|
00000E50: 49 20 49 4E 43 50 4F 53 49 20 20 20 3B 50 55 4E |I INCPOSI ;PUN|
00000E60: 4B 54 20 42 45 52 45 43 48 4E 45 4E 20 2B 00 A7 |KT BERECHNEN +..|
00000E70: 3B 49 01 20 4A 4D 50 4C 4F 4F 50 20 20 20 20 20 |;I. JMPLOOP |
00000E80: 20 20 3B 50 4F 53 49 54 49 4F 4E 20 45 52 48 4F | ;POSITION ERHO|
00000E90: 45 48 45 4E 00 AD 3B 4A 01 3B 00 CB 3B 4F 01 3B |EHEN..;J.;..;O.;|
00000EA0: 53 4F 4E 44 45 52 5A 45 49 43 48 45 4E 20 42 45 |SONDERZEICHEN BE|
00000EB0: 41 52 42 45 49 54 45 4E 00 E9 3B 50 01 3B 3D 3D |ARBEITEN..;P.;==|
00000EC0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000ED0: 3D 3D 3D 3D 3D 3D 00 EF 3B 51 01 3B 00 04 3C 52 |======..;Q.;..<R|
00000EE0: 01 53 4F 4E 44 45 52 20 20 43 50 58 20 23 24 39 |.SONDER CPX #$9|
00000EF0: 33 00 2C 3C 53 01 20 42 45 51 43 4C 52 20 20 20 |3.,<S. BEQCLR |
00000F00: 20 20 20 20 20 3B 42 49 4C 44 53 43 48 49 52 4D | ;BILDSCHIRM|
00000F10: 20 4C 4F 45 53 43 48 45 4E 00 39 3C 54 01 20 43 | LOESCHEN.9<T. C|
00000F20: 50 58 23 24 31 33 00 59 3C 55 01 20 42 45 51 48 |PX#$13.Y<U. BEQH|
00000F30: 4F 4D 45 20 20 20 20 20 20 20 3B 43 55 52 53 4F |OME ;CURSO|
00000F40: 52 20 48 4F 4D 45 00 66 3C 56 01 20 43 50 58 23 |R HOME.f<V. CPX#|
00000F50: 24 31 32 00 86 3C 57 01 20 42 45 51 52 56 53 4F |$12..<W. BEQRVSO|
00000F60: 4E 20 20 20 20 20 20 3B 54 45 58 54 20 52 45 56 |N ;TEXT REV|
00000F70: 45 52 53 00 93 3C 58 01 20 43 50 58 23 24 39 32 |ERS..<X. CPX#$92|
00000F80: 00 B3 3C 59 01 20 42 45 51 52 56 53 4F 46 46 20 |..<Y. BEQRVSOFF |
00000F90: 20 20 20 20 3B 54 45 58 54 20 4E 4F 52 4D 41 4C | ;TEXT NORMAL|
00000FA0: 00 C0 3C 5A 01 20 43 50 58 23 24 30 31 00 E6 3C |..<Z. CPX#$01..<|
00000FB0: 5B 01 20 42 45 51 4B 4C 45 49 4E 20 20 20 20 20 |[. BEQKLEIN |
00000FC0: 20 3B 4B 4C 45 49 4E 2F 47 52 4F 53 53 43 48 52 | ;KLEIN/GROSSCHR|
00000FD0: 49 46 54 00 F3 3C 5C 01 20 43 50 58 23 24 30 32 |IFT..<\. CPX#$02|
00000FE0: 00 19 3D 5D 01 20 42 45 51 47 52 4F 53 53 20 20 |..=]. BEQGROSS |
00000FF0: 20 20 20 20 3B 47 52 4F 53 53 2F 47 52 41 46 49 | ;GROSS/GRAFI|
00001000: 4B 4D 4F 44 55 53 00 3B 3D 5E 01 20 4A 4D 50 57 |KMODUS.;=^. JMPW|
00001010: 45 49 20 20 20 20 20 20 20 20 3B 55 4E 44 45 46 |EI ;UNDEF|
00001020: 49 4E 49 45 52 42 41 52 00 41 3D 5F 01 3B 00 68 |INIERBAR.A=_.;.h|
00001030: 3D 60 01 43 4C 52 20 20 4C 44 41 20 58 53 4C 20 |=`.CLR LDA XSL |
00001040: 20 20 3B 4B 4F 4F 52 44 49 4E 41 54 45 4E 20 52 | ;KOORDINATEN R|
00001050: 45 54 54 45 4E 00 71 3D 61 01 20 50 48 41 00 7D |ETTEN.q=a. PHA.}|
00001060: 3D 62 01 20 4C 44 41 58 53 48 00 86 3D 63 01 20 |=b. LDAXSH..=c. |
00001070: 50 48 41 00 AE 3D 64 01 20 4A 53 52 24 36 30 36 |PHA..=d. JSR$606|
00001080: 45 20 20 20 20 20 20 3B 42 49 4C 44 53 43 48 49 |E ;BILDSCHI|
00001090: 52 4D 20 4C 4F 45 53 43 48 45 4E 00 B7 3D 65 01 |RM LOESCHEN..=e.|
000010A0: 20 50 4C 41 00 DE 3D 66 01 20 53 54 41 58 53 48 | PLA..=f. STAXSH|
000010B0: 20 20 20 20 20 20 20 20 3B 4B 4F 4F 52 44 49 4E | ;KOORDIN|
000010C0: 41 54 45 4E 20 57 49 45 44 45 52 00 E7 3D 67 01 |ATEN WIEDER..=g.|
000010D0: 20 50 4C 41 00 02 3E 68 01 20 53 54 41 58 53 4C | PLA..>h. STAXSL|
000010E0: 20 20 20 20 20 20 20 20 3B 53 45 54 5A 45 4E 00 | ;SETZEN.|
000010F0: 08 3E 6A 01 3B 00 26 3E 6D 01 48 4F 4D 45 20 20 |.>j.;.&>m.HOME |
00001100: 4C 44 41 20 23 30 30 20 20 3B 58 2D 20 55 4E 44 |LDA #00 ;X- UND|
00001110: 20 59 2D 00 4A 3E 6E 01 20 53 54 41 58 4C 20 20 | Y-.J>n. STAXL |
00001120: 20 20 20 20 20 20 20 3B 4B 4F 4F 52 44 49 4E 41 | ;KOORDINA|
00001130: 54 45 4E 20 41 55 46 00 6A 3E 6F 01 20 53 54 41 |TEN AUF.j>o. STA|
00001140: 58 48 20 20 20 20 20 20 20 20 20 3B 4E 55 4C 4C |XH ;NULL|
00001150: 20 53 45 54 5A 45 4E 00 74 3E 70 01 20 53 54 41 | SETZEN.t>p. STA|
00001160: 59 00 80 3E 71 01 20 4A 4D 50 57 45 49 00 86 3E |Y..>q. JMPWEI..>|
00001170: 72 01 3B 00 AD 3E 73 01 52 56 53 4F 4E 20 20 4C |r.;..>s.RVSON L|
00001180: 44 41 20 23 24 38 30 20 3B 52 45 56 45 52 53 46 |DA #$80 ;REVERSF|
00001190: 4C 41 47 20 53 45 54 5A 45 4E 00 B9 3E 74 01 20 |LAG SETZEN..>t. |
000011A0: 2E 42 59 24 32 43 00 E0 3E 75 01 52 56 53 4F 46 |.BY$2C..>u.RVSOF|
000011B0: 46 20 4C 44 41 23 30 30 20 3B 52 45 56 45 52 53 |F LDA#00 ;REVERS|
000011C0: 46 4C 41 47 20 4C 4F 45 53 43 48 45 4E 00 EF 3E |FLAG LOESCHEN..>|
000011D0: 76 01 20 53 54 41 52 45 56 45 52 53 00 FB 3E 77 |v. STAREVERS..>w|
000011E0: 01 20 4A 4D 50 57 45 49 00 01 3F 78 01 3B 00 28 |. JMPWEI..?x.;.(|
000011F0: 3F 79 01 4B 4C 45 49 4E 20 20 4C 44 41 20 23 24 |?y.KLEIN LDA #$|
00001200: 44 38 20 3B 53 54 41 52 54 20 4B 4C 45 49 4E 2F |D8 ;START KLEIN/|
00001210: 47 52 4F 53 53 00 46 3F 7A 01 20 2E 42 59 24 32 |GROSS.F?z. .BY$2|
00001220: 43 20 20 20 20 20 20 3B 5A 45 49 43 48 45 4E 53 |C ;ZEICHENS|
00001230: 41 54 5A 00 6E 3F 7B 01 47 52 4F 53 53 20 20 4C |ATZ.n?{.GROSS L|
00001240: 44 41 20 23 24 44 30 20 3B 53 54 41 52 54 20 47 |DA #$D0 ;START G|
00001250: 52 4F 53 53 2F 47 52 41 46 49 4B 00 8E 3F 7C 01 |ROSS/GRAFIK..?|.|
00001260: 20 53 54 41 53 41 54 5A 20 20 20 20 20 20 20 3B | STASATZ ;|
00001270: 5A 45 49 43 48 45 4E 53 41 54 5A 00 9A 3F 7D 01 |ZEICHENSATZ..?}.|
00001280: 20 4A 4D 50 57 45 49 00 A0 3F 7E 01 3B 00 C2 3F | JMPWEI..?~.;..?|
00001290: 86 01 4F 55 54 20 20 4C 44 41 20 23 35 35 20 20 |..OUT LDA #55 |
000012A0: 20 3B 50 52 4F 5A 45 53 53 4F 52 50 4F 52 54 00 | ;PROZESSORPORT.|
000012B0: E7 3F 87 01 20 53 54 41 24 30 31 20 20 20 20 20 |.?.. STA$01 |
000012C0: 20 20 20 3B 41 55 46 20 52 4F 4D 20 53 43 48 41 | ;AUF ROM SCHA|
000012D0: 4C 54 45 4E 00 F0 3F 88 01 20 43 4C 49 00 0B 40 |LTEN..?.. CLI..@|
000012E0: 89 01 20 52 54 53 20 20 20 20 20 20 20 20 20 20 |.. RTS |
000012F0: 20 3B 46 45 52 54 49 47 00 11 40 8A 01 3B 00 31 | ;FERTIG..@..;.1|
00001300: 40 90 01 3B 54 45 58 54 41 55 53 47 41 42 45 20 |@..;TEXTAUSGABE |
00001310: 45 49 4E 45 53 20 5A 45 49 43 48 45 4E 53 00 51 |EINES ZEICHENS.Q|
00001320: 40 91 01 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |@..;============|
00001330: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 57 |==============.W|
00001340: 40 92 01 3B 00 7B 40 93 01 54 45 58 54 20 20 4F |@..;.{@..TEXT O|
00001350: 52 41 20 52 45 56 45 52 53 20 3B 52 45 56 45 52 |RA REVERS ;REVER|
00001360: 53 46 4C 41 47 20 49 4E 00 9F 40 94 01 20 4C 44 |SFLAG IN..@.. LD|
00001370: 58 23 30 30 20 20 20 20 20 20 20 20 3B 43 4F 44 |X#00 ;COD|
00001380: 45 20 45 49 4E 42 4C 45 4E 44 45 4E 00 C6 40 95 |E EINBLENDEN..@.|
00001390: 01 20 53 54 58 5A 41 45 48 4C 45 52 20 20 20 20 |. STXZAEHLER |
000013A0: 3B 5A 41 45 48 4C 45 52 20 46 55 45 52 20 42 59 |;ZAEHLER FUER BY|
000013B0: 54 45 53 00 D6 40 96 01 20 53 54 58 52 45 43 48 |TES..@.. STXRECH|
000013C0: 45 4E 32 00 F7 40 97 01 20 41 53 4C 20 20 20 20 |EN2..@.. ASL |
000013D0: 20 20 20 20 20 3B 42 49 4C 44 53 43 48 49 52 4D | ;BILDSCHIRM|
000013E0: 43 4F 44 45 00 07 41 98 01 20 52 4F 4C 52 45 43 |CODE..A.. ROLREC|
000013F0: 48 45 4E 32 00 1C 41 99 01 20 41 53 4C 20 20 20 |HEN2..A.. ASL |
00001400: 20 20 20 20 20 20 3B 2A 38 00 2C 41 9A 01 20 52 | ;*8.,A.. R|
00001410: 4F 4C 52 45 43 48 45 4E 32 00 43 41 9B 01 20 41 |OLRECHEN2.CA.. A|
00001420: 53 4C 20 20 20 20 20 20 20 20 20 3B 50 4C 55 53 |SL ;PLUS|
00001430: 00 53 41 9C 01 20 52 4F 4C 52 45 43 48 45 4E 32 |.SA.. ROLRECHEN2|
00001440: 00 75 41 9D 01 20 53 54 41 52 45 43 48 45 4E 31 |.uA.. STARECHEN1|
00001450: 20 20 20 20 3B 48 49 47 48 2D 42 59 54 45 20 56 | ;HIGH-BYTE V|
00001460: 4F 4D 00 85 41 9E 01 20 4C 44 41 52 45 43 48 45 |OM..A.. LDARECHE|
00001470: 4E 32 00 A5 41 9F 01 20 41 44 43 53 41 54 5A 20 |N2..A.. ADCSATZ |
00001480: 20 20 20 20 20 20 3B 5A 45 49 43 48 45 4E 53 41 | ;ZEICHENSA|
00001490: 54 5A 00 C7 41 A0 01 20 53 54 41 52 45 43 48 45 |TZ..A.. STARECHE|
000014A0: 4E 32 20 20 20 20 3B 3D 53 54 41 52 54 41 44 52 |N2 ;=STARTADR|
000014B0: 45 53 53 45 00 D4 41 A1 01 20 4C 44 41 59 46 56 |ESSE..A.. LDAYFV|
000014C0: 4B 00 F1 41 A2 01 20 4C 44 59 59 46 4E 4B 20 20 |K..A.. LDYYFNK |
000014D0: 20 20 20 20 20 3B 59 2D 46 41 4B 54 4F 52 00 FD | ;Y-FAKTOR..|
000014E0: 41 A3 01 20 53 54 41 59 56 4B 00 17 42 A4 01 20 |A.. STAYVK..B.. |
000014F0: 53 54 59 59 4E 4B 20 20 20 20 20 20 20 20 3B 53 |STYYNK ;S|
00001500: 4F 57 49 45 00 22 42 A5 01 20 4C 44 41 58 4C 00 |OWIE."B.. LDAXL.|
00001510: 46 42 A6 01 20 4C 44 58 58 48 20 20 20 20 20 20 |FB.. LDXXH |
00001520: 20 20 20 3B 53 54 41 52 54 4B 4F 4F 52 44 49 4E | ;STARTKOORDIN|
00001530: 41 54 45 00 50 42 A7 01 20 4C 44 59 59 00 70 42 |ATE.PB.. LDYY.pB|
00001540: A8 01 20 53 54 41 58 53 4C 20 20 20 20 20 20 20 |.. STAXSL |
00001550: 20 3B 55 45 42 45 52 4E 45 48 4D 45 4E 00 7C 42 | ;UEBERNEHMEN.|B|
00001560: A9 01 20 53 54 58 58 53 48 00 87 42 AA 01 20 53 |.. STXXSH..B.. S|
00001570: 54 59 59 53 00 9E 42 AB 01 4C 4F 4F 50 31 20 20 |TYYS..B..LOOP1 |
00001580: 4C 44 59 20 5A 41 45 48 4C 45 52 00 AA 42 AC 01 |LDY ZAEHLER..B..|
00001590: 20 44 45 43 24 30 31 00 D1 42 AC 01 20 4C 44 41 | DEC$01..B.. LDA|
000015A0: 28 52 45 43 48 45 4E 31 29 2C 59 20 3B 5A 45 49 |(RECHEN1),Y ;ZEI|
000015B0: 43 48 45 4E 42 59 54 45 20 48 4F 4C 45 4E 00 DD |CHENBYTE HOLEN..|
000015C0: 42 AD 01 20 49 4E 43 24 30 31 00 FB 42 AE 01 20 |B.. INC$01..B.. |
000015D0: 4A 53 52 57 45 52 54 41 55 53 20 20 20 20 3B 41 |JSRWERTAUS ;A|
000015E0: 55 53 57 45 52 54 45 4E 00 0B 43 AE 01 20 49 4E |USWERTEN..C.. IN|
000015F0: 43 5A 41 45 48 4C 45 52 00 2B 43 AF 01 20 4C 44 |CZAEHLER.+C.. LD|
00001600: 59 5A 41 45 48 4C 45 52 20 20 20 20 3B 38 20 42 |YZAEHLER ;8 B|
00001610: 59 54 45 53 20 50 52 4F 00 37 43 B0 01 20 43 50 |YTES PRO.7C.. CP|
00001620: 59 23 30 38 00 5D 43 B1 01 20 42 4E 45 4C 4F 4F |Y#08.]C.. BNELOO|
00001630: 50 31 20 20 20 20 20 20 3B 5A 45 49 43 48 45 4E |P1 ;ZEICHEN|
00001640: 20 4E 4F 54 57 45 4E 44 49 47 00 66 43 B2 01 20 | NOTWENDIG.fC.. |
00001650: 52 54 53 00 6C 43 B3 01 3B 00 8F 43 B8 01 3B 42 |RTS.lC..;..C..;B|
00001660: 59 54 45 20 45 49 4E 45 53 20 5A 45 49 43 48 45 |YTE EINES ZEICHE|
00001670: 4E 53 20 41 55 53 57 45 52 54 45 4E 00 B2 43 B9 |NS AUSWERTEN..C.|
00001680: 01 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.;==============|
00001690: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
000016A0: B8 43 BA 01 3B 00 DE 43 BB 01 57 45 52 54 41 55 |.C..;..C..WERTAU|
000016B0: 53 20 20 53 54 41 20 5A 45 49 43 48 45 4E 20 3B |S STA ZEICHEN ;|
000016C0: 43 4F 44 45 20 4D 45 52 4B 45 4E 00 01 44 BC 01 |CODE MERKEN..D..|
000016D0: 4C 4F 4F 50 57 20 20 4C 44 41 20 59 56 4B 20 3B |LOOPW LDA YVK ;|
000016E0: 56 4F 52 4B 4F 4D 4D 41 46 41 4B 54 4F 52 00 25 |VORKOMMAFAKTOR.%|
000016F0: 44 BD 01 20 42 45 51 5A 41 45 48 4C 59 20 20 20 |D.. BEQZAEHLY |
00001700: 20 20 3B 4A 41 2C 20 48 4F 43 48 5A 41 45 48 4C | ;JA, HOCHZAEHL|
00001710: 45 4E 00 31 44 BE 01 20 44 45 43 59 56 4B 00 3E |EN.1D.. DECYVK.>|
00001720: 44 BF 01 20 4C 44 41 58 46 56 4B 00 4B 44 C0 01 |D.. LDAXFVK.KD..|
00001730: 20 4C 44 58 58 46 4E 4B 00 57 44 C1 01 20 53 54 | LDXXFNK.WD.. ST|
00001740: 41 58 56 4B 00 63 44 C2 01 20 53 54 58 58 4E 4B |AXVK.cD.. STXXNK|
00001750: 00 6F 44 C3 01 20 4C 44 41 58 53 4C 00 7B 44 C4 |.oD.. LDAXSL.{D.|
00001760: 01 20 4C 44 58 58 53 48 00 86 44 C5 01 20 4C 44 |. LDXXSH..D.. LD|
00001770: 59 59 53 00 92 44 C6 01 20 53 54 41 58 5A 4C 00 |YYS..D.. STAXZL.|
00001780: 9E 44 C7 01 20 53 54 58 58 5A 48 00 A9 44 C8 01 |.D.. STXXZH..D..|
00001790: 20 53 54 59 59 5A 00 B9 44 C9 01 20 4C 44 41 5A | STYYZ..D.. LDAZ|
000017A0: 45 49 43 48 45 4E 00 C2 44 CA 01 20 50 48 41 00 |EICHEN..D.. PHA.|
000017B0: CE 44 CB 01 20 4C 44 58 23 30 38 00 E7 44 CC 01 |.D.. LDX#08..D..|
000017C0: 4C 4F 4F 50 42 49 54 20 20 41 53 4C 20 5A 45 49 |LOOPBIT ASL ZEI|
000017D0: 43 48 45 4E 00 F8 44 CD 01 20 4A 53 52 50 52 55 |CHEN..D.. JSRPRU|
000017E0: 45 46 42 49 54 00 01 45 CE 01 20 44 45 58 00 11 |EFBIT..E.. DEX..|
000017F0: 45 CF 01 20 42 4E 45 4C 4F 4F 50 42 49 54 00 21 |E.. BNELOOPBIT.!|
00001800: 45 D0 01 20 4A 53 52 4E 45 58 54 5A 45 49 00 2A |E.. JSRNEXTZEI.*|
00001810: 45 D1 01 20 50 4C 41 00 3A 45 D2 01 20 53 54 41 |E.. PLA.:E.. STA|
00001820: 5A 45 49 43 48 45 4E 00 48 45 D3 01 20 4A 4D 50 |ZEICHEN.HE.. JMP|
00001830: 4C 4F 4F 50 57 00 4E 45 D3 01 3B 00 73 45 D6 01 |LOOPW.NE..;.sE..|
00001840: 3B 50 52 55 45 46 54 20 42 49 54 53 20 45 49 4E |;PRUEFT BITS EIN|
00001850: 45 53 20 5A 45 49 43 48 45 4E 2D 42 59 54 45 53 |ES ZEICHEN-BYTES|
00001860: 00 98 45 D7 01 3B 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..E..;==========|
00001870: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001880: 3D 3D 3D 3D 3D 00 9E 45 D8 01 3B 00 B4 45 D9 01 |=====..E..;..E..|
00001890: 50 52 55 45 46 42 49 54 20 20 4C 44 41 20 23 30 |PRUEFBIT LDA #0|
000018A0: 30 00 BD 45 DA 01 20 52 4F 4C 00 C6 45 DB 01 20 |0..E.. ROL..E.. |
000018B0: 54 41 59 00 D9 45 DC 01 4C 4F 4F 50 50 20 20 4C |TAY..E..LOOPP L|
000018C0: 44 41 20 58 56 4B 00 E8 45 DD 01 20 42 45 51 5A |DA XVK..E.. BEQZ|
000018D0: 41 45 48 4C 58 00 F4 45 DE 01 20 44 45 43 58 56 |AEHLX..E.. DECXV|
000018E0: 4B 00 FD 45 DF 01 20 54 59 41 00 0D 46 E0 01 20 |K..E.. TYA..F.. |
000018F0: 53 54 41 24 30 33 35 30 2C 58 00 19 46 E1 01 20 |STA$0350,X..F.. |
00001900: 4C 44 41 58 53 4C 00 29 46 E2 01 20 53 54 41 24 |LDAXSL.)F.. STA$|
00001910: 30 33 36 30 2C 58 00 35 46 E3 01 20 4C 44 41 58 |0360,X.5F.. LDAX|
00001920: 53 48 00 45 46 E4 01 20 53 54 41 24 30 33 37 30 |SH.EF.. STA$0370|
00001930: 2C 58 00 51 46 DF 01 20 43 50 59 23 30 30 00 60 |,X.QF.. CPY#00.`|
00001940: 46 E0 01 20 42 45 51 4E 4F 50 4C 4F 54 00 69 46 |F.. BEQNOPLOT.iF|
00001950: E1 01 20 54 58 41 00 72 46 E2 01 20 50 48 41 00 |.. TXA.rF.. PHA.|
00001960: 7B 46 E3 01 20 54 59 41 00 84 46 E4 01 20 50 48 |{F.. TYA..F.. PH|
00001970: 41 00 91 46 E5 01 20 4A 53 52 50 4C 4F 54 00 9A |A..F.. JSRPLOT..|
00001980: 46 E6 01 20 50 4C 41 00 A3 46 E7 01 20 54 41 59 |F.. PLA..F.. TAY|
00001990: 00 AC 46 E8 01 20 50 4C 41 00 B5 46 E9 01 20 54 |..F.. PLA..F.. T|
000019A0: 41 58 00 CD 46 E2 01 4E 4F 50 4C 4F 54 20 20 4A |AX..F..NOPLOT J|
000019B0: 53 52 20 4E 45 58 54 53 50 41 00 DB 46 E3 01 20 |SR NEXTSPA..F.. |
000019C0: 4A 4D 50 4C 4F 4F 50 50 00 E1 46 E4 01 3B 00 F5 |JMPLOOPP..F..;..|
000019D0: 46 E5 01 5A 41 45 48 4C 59 20 20 4C 44 41 20 59 |F..ZAEHLY LDA Y|
000019E0: 4E 4B 00 FE 46 E6 01 20 43 4C 43 00 0B 47 E7 01 |NK..F.. CLC..G..|
000019F0: 20 41 44 43 59 46 4E 4B 00 17 47 E8 01 20 53 54 | ADCYFNK..G.. ST|
00001A00: 41 59 4E 4B 00 23 47 E9 01 20 4C 44 41 59 56 4B |AYNK.#G.. LDAYVK|
00001A10: 00 30 47 EA 01 20 41 44 43 59 46 56 4B 00 3C 47 |.0G.. ADCYFVK.<G|
00001A20: EB 01 20 53 54 41 59 56 4B 00 45 47 EC 01 20 52 |.. STAYVK.EG.. R|
00001A30: 54 53 00 4B 47 ED 01 3B 00 5F 47 EE 01 5A 41 45 |TS.KG..;._G..ZAE|
00001A40: 48 4C 58 20 20 4C 44 41 20 58 4E 4B 00 68 47 EF |HLX LDA XNK.hG.|
00001A50: 01 20 43 4C 43 00 75 47 F0 01 20 41 44 43 58 46 |. CLC.uG.. ADCXF|
00001A60: 4E 4B 00 81 47 F1 01 20 53 54 41 58 4E 4B 00 8D |NK..G.. STAXNK..|
00001A70: 47 F2 01 20 4C 44 41 58 56 4B 00 9A 47 F3 01 20 |G.. LDAXVK..G.. |
00001A80: 41 44 43 58 46 56 4B 00 A6 47 F4 01 20 53 54 41 |ADCXFVK..G.. STA|
00001A90: 58 56 4B 00 AF 47 F5 01 20 52 54 53 00 B5 47 F6 |XVK..G.. RTS..G.|
00001AA0: 01 3B 00 C9 47 FE 01 4E 45 58 54 5A 45 49 20 20 |.;..G..NEXTZEI |
00001AB0: 4C 44 41 20 59 5A 00 D2 47 FF 01 20 43 4C 43 00 |LDA YZ..G.. CLC.|
00001AC0: DF 47 00 02 20 41 44 43 59 41 42 5A 00 EA 47 01 |.G.. ADCYABZ..G.|
00001AD0: 02 20 53 54 41 59 53 00 F6 47 02 02 20 4C 44 41 |. STAYS..G.. LDA|
00001AE0: 58 5A 4C 00 FF 47 03 02 20 43 4C 43 00 0D 48 04 |XZL..G.. CLC..H.|
00001AF0: 02 20 41 44 43 58 41 42 5A 4C 00 19 48 05 02 20 |. ADCXABZL..H.. |
00001B00: 53 54 41 58 53 4C 00 25 48 06 02 20 4C 44 41 58 |STAXSL.%H.. LDAX|
00001B10: 5A 48 00 33 48 07 02 20 41 44 43 58 41 42 5A 48 |ZH.3H.. ADCXABZH|
00001B20: 00 3F 48 08 02 20 53 54 41 58 53 48 00 48 48 09 |.?H.. STAXSH.HH.|
00001B30: 02 20 52 54 53 00 4E 48 0A 02 3B 00 62 48 0D 02 |. RTS.NH..;.bH..|
00001B40: 4E 45 58 54 53 50 41 20 20 4C 44 41 20 59 53 00 |NEXTSPA LDA YS.|
00001B50: 6B 48 0E 02 20 43 4C 43 00 78 48 0F 02 20 41 44 |kH.. CLC.xH.. AD|
00001B60: 43 59 41 42 53 00 83 48 10 02 20 53 54 41 59 53 |CYABS..H.. STAYS|
00001B70: 00 8F 48 11 02 20 4C 44 41 58 53 4C 00 98 48 12 |..H.. LDAXSL..H.|
00001B80: 02 20 43 4C 43 00 A6 48 13 02 20 41 44 43 58 41 |. CLC..H.. ADCXA|
00001B90: 42 53 4C 00 B2 48 14 02 20 53 54 41 58 53 4C 00 |BSL..H.. STAXSL.|
00001BA0: BE 48 15 02 20 4C 44 41 58 53 48 00 CC 48 16 02 |.H.. LDAXSH..H..|
00001BB0: 20 41 44 43 58 41 42 53 48 00 D8 48 17 02 20 53 | ADCXABSH..H.. S|
00001BC0: 54 41 58 53 48 00 E1 48 18 02 20 52 54 53 00 E7 |TAXSH..H.. RTS..|
00001BD0: 48 19 02 3B 00 FC 48 1A 02 4E 45 58 54 5A 45 49 |H..;..H..NEXTZEI|
00001BE0: 43 48 20 20 4C 44 41 20 59 00 05 49 1B 02 20 43 |CH LDA Y..I.. C|
00001BF0: 4C 43 00 11 49 1C 02 20 41 44 43 59 41 42 00 1B |LC..I.. ADCYAB..|
00001C00: 49 1D 02 20 53 54 41 59 00 26 49 1E 02 20 4C 44 |I.. STAY.&I.. LD|
00001C10: 41 58 4C 00 2F 49 1F 02 20 43 4C 43 00 3C 49 20 |AXL./I.. CLC.<I |
00001C20: 02 20 41 44 43 58 41 42 4C 00 47 49 21 02 20 53 |. ADCXABL.GI!. S|
00001C30: 54 41 58 4C 00 52 49 22 02 20 4C 44 41 58 48 00 |TAXL.RI". LDAXH.|
00001C40: 5F 49 23 02 20 41 44 43 58 41 42 48 00 6A 49 24 |_I#. ADCXABH.jI$|
00001C50: 02 20 53 54 41 58 48 00 73 49 25 02 20 52 54 53 |. STAXH.sI%. RTS|
00001C60: 00 79 49 26 02 3B 00 7F 49 4E 02 3B 00 99 49 4F |.yI&.;..IN.;..IO|
00001C70: 02 3B 5A 57 45 49 2D 42 59 54 45 2D 57 45 52 54 |.;ZWEI-BYTE-WERT|
00001C80: 20 48 4F 4C 45 4E 00 B3 49 50 02 3B 3D 3D 3D 3D | HOLEN..IP.;====|
00001C90: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001CA0: 00 B9 49 51 02 3B 00 CF 49 52 02 48 4F 4C 50 41 |..IQ.;..IR.HOLPA|
00001CB0: 52 20 20 4A 53 52 20 4B 4F 4D 4D 41 00 F5 49 53 |R JSR KOMMA..IS|
00001CC0: 02 20 4A 53 52 46 52 4D 45 56 4C 20 20 20 20 20 |. JSRFRMEVL |
00001CD0: 20 20 20 3B 41 55 53 44 52 55 43 4B 20 48 4F 4C | ;AUSDRUCK HOL|
00001CE0: 45 4E 00 19 4A 54 02 20 4A 4D 50 49 4E 54 45 47 |EN..JT. JMPINTEG|
00001CF0: 45 52 20 20 20 20 20 20 20 3B 4E 41 43 48 20 49 |ER ;NACH I|
00001D00: 4E 54 45 47 45 52 00 1F 4A 58 02 3B 00 38 4A 59 |NTEGER..JX.;.8JY|
00001D10: 02 3B 45 49 4E 2D 42 59 54 45 2D 57 45 52 54 20 |.;EIN-BYTE-WERT |
00001D20: 48 4F 4C 45 4E 00 52 4A 5A 02 3B 3D 3D 3D 3D 3D |HOLEN.RJZ.;=====|
00001D30: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
00001D40: 58 4A 5B 02 3B 00 6D 4A 5C 02 48 4F 4C 42 59 54 |XJ[.;.mJ\.HOLBYT|
00001D50: 45 20 4A 53 52 4B 4F 4D 4D 41 00 8F 4A 5D 02 20 |E JSRKOMMA..J]. |
00001D60: 4A 4D 50 42 59 54 45 20 20 20 20 20 20 20 20 20 |JMPBYTE |
00001D70: 20 3B 42 59 54 45 20 48 4F 4C 45 4E 00 00 00 | ;BYTE HOLEN... |
.-.-D.;TEXT.$-E.;.2-F. .BA$6A4E.^-G. .EQ
BYTE = $B79E ;EIN-BYTE-WERT HOLEN..-H.
.EQKOMMA = $AEFD ;KOMMAPRUEFUNG..-I. .
EQFRMEVL = $AD9E ;AUSDRUCK HOLEN.U-J. .E
QINTEGER = $B1BF;NACH INT. WANDELN...K.
.EQXSL = $FA ;SPALTEN (= AKTUELLE.(
.L. .EQXSH = $FB ;KOORDINATEN IN.M.
M. .EQYS = $FC ;EINER ZEILE).U.N.
.EQXZL = $8B ;KOORDINATEN DER...O.
.EQXZH = $8C ;ZEILENANFAENGE IN.E.P
. .EQYZ = $8D ;EINEM ZEICHEN...Q.
.EQXL = $95 ;LINKE, OBERE ECKE../R
. .EQXH = $96 ;DES ZEICHENS.?/S. .
EQY = $8E ;(BEZUGSKOORDINATE).I/T
. .EQXABZL = $8F ;ABSTAND VON EINER..
/U. .EQXABZH = $FD ;ZEILE ZUR NAECHST
EN../V. .EQYABZ = $FE ;IN EINEM ZEIC
HEN../W. .EQXABSL = $B5 ;ABSTAND VON
EINER..0X. .EQXABSH = $B6 ;SPALTE ZUR
NAECHS-.>0Y. .EQYABS = $B7 ;TEN IN
EINER ZEILE.H0Z. .EQXABL = $B8 ;ABST
AND VON EINEM..0|. .EQXABH = $B9 ;ZE
ICHEN ZUM NAECHS-..0}. .EQYAB = $BA
;TEN IN DEM STRING..0~. .EQXFVK = $BB
;X- UND Y-FAKTOR..1. .EQXFNK = $BC
;(VERGROESSERUNG).:1.. .EQYFVK = $BD
;VOR- UND NACHKOMMA.Z1.. .EQYFNK = $
BE ;ANTEILE..1.. .EQXVK = $BF ;
AKTUELLE FAKTOREN..1.. .EQXNK = $B4
;MIT DENEN DIE.T1.. .EQYVK = $10 ;
HAEUFIGKEIT JEDES..1.. .EQYNK = $02
;BITS BESTIMMT WIRD.+2.. .EQZAEHLER = $
033C;8 BYTES PRO ZEICHEN.U2.. .EQLAENGE
= $033D ;LEANGE DES STRING..2.. .EQPOSI
= $033E ;POSITION IM STRING..2.. .EQZE
ICHEN = $033F;ZEICHENCODE.M2.. .EQREVERS
= $9C ;FLAG FUER REVERS..2.. .EQRECHE
N1 = $92 ;RECHENREGISTER..3.. .EQRECHEN
2 = $93.43.. .EQSATZ = $0340 ;START ZE
ICHENSATZ.[3.. .EQPLOT = $6088 ;PUNKT
ZEICHNEN.A3..;.V3..START JSR KOMMA..3..
JSR$6358 ;STARTKOORDINATEN..3.. LD
AXSL ;HOLEN UND.E3.. LDXXSH..3..
LDYYS ;SETZEN..3.. STAXL..4.. ST
XXH ;(LINKE, OBERE ECKE.:4.. STY
Y ;DES ERSTEN ZEICHEN).H4.. JSR
KOMMA.O4.. JSRFRMEVL ;ZEIGER AUF STR
ING-..4.. LDY#00 ;DESCRIPTOR HOLE
N..4.. LDA($64),Y.E4.. STALAENGE ;LA
ENGE HOLEN.N4.. INY..4.. LDA($64),Y..5..
PHA ;STRINGZEIGER HOLEN..5..
INY..5C. LDA($64),Y ;UND SICHERN.75H.
PHA.\5R. JSRHOLPAR ;VEKTOR VON EINE
M.H5S. LDA$64.T5T. LDY$65..5X. STYXABZL
;ZEILENANFANG ZUM..5Y. STAXABZH
;NAECHSTEN (IN X).M5Z. JSRHOLPAR.Y5..
LDY$65..5.. STYYABZ ;(IN Y)..6.. J
SRHOLPAR ;VEKTOR VON EINEM.%6.. LDA$
64.16.. LDY$65.U6.. STYXABSL ;PUNKT
INNERHALB.Y6.. STAXABSH ;EINER ZEI
LE ZUM..6.. JSRHOLPAR ;NAECHSTEN IN.
.6.. LDY$65.L6.. STYYABS ;X- UND Y
-RICHTUNG..6.. JSRHOLBYTE ;VERGROESSE
RUNGS-..7.. STXXFVK ;FAKTOREN HOLE
N.17.. JSRHOLBYTE ;X-UND Y-.W7.. STXX
FNK ;JEWEILS VORKOMMA-.Z7.. JSRHOL
BYTE ;UND NACHKOMMA-..7.. STXYFVK
;ANTEIL..7.. JSRHOLBYTE..7.. STXYFNK.
X7.. JSRHOLPAR ;ABSTAND VON EINEM..7
.. LDA$64..8.. LDY$65 ;ZEICHEN ZU
M..8.. STYXABL.58.. STAXABH ;NAECH
STEN HOLEN.D8.. JSRHOLPAR.P8 . LDY$65.\8
!. STYYAB.E8". PLA.Q8#. STA$65.Z8$. PLA.
.8%. STA$64..8&.;..8,.;TEXTAUSWERTUNG-ST
ART..8-.;====================.F8..;.O8/.
SEI..80. LDA#52 ;PROZESSORPORT A
UF..91. STA$01 ;RAM SCHALTEN.;92.
LDA#$D0 ;ZEICHENSATZSTART.X93. ST
ASATZ ;AB $D000.D94. LDA#00..95. S
TAPOSI ;POSITION IM STRING..96. ST
AREVERS ;REVERSFLAG LOESCHEN.F97.LOO
P LDY POSI..98. CPYLAENGE ;POSITION
=LAENGE..:9. BEQOUT ;JA, FERTIG.+
::. LDA($64),Y ;ZEICHEN HOLEN.4:;. TA
X.Y:<. AND#$7F ;ASCII-CODE < 32,.E
:=. CMP#32..:>. BCCSONDER ;DANN SOND
ERZEICHEN..:?. TXA..:@. AND#$80 ;A
SCII- IN..:A. LSR..:B. STARECHEN1 ;SC
HIRMCODE..:C. TXA..;D. AND#$3F ;UM
WANDELN..;E. ORARECHEN1.7;F. JSRTEXT
;ZEICHEN AUSGEBEN.\;G. JSRNEXTZEICH
;NAECHSTEN START-..;H.WEI INCPOSI ;PUN
KT BERECHNEN +..;I. JMPLOOP ;POSIT
ION ERHOEHEN..;J.;.K;O.;SONDERZEICHEN BE
ARBEITEN..;P.;========================..
;Q.;..<R.SONDER CPX #$93.,<S. BEQCLR
;BILDSCHIRM LOESCHEN.9<T. CPX#$13.Y
<U. BEQHOME ;CURSOR HOME.F<V. CPX#
$12..<W. BEQRVSON ;TEXT REVERS..<X.
CPX#$92..<Y. BEQRVSOFF ;TEXT NORMAL
..<Z. CPX#$01..<[. BEQKLEIN ;KLEIN/
GROSSCHRIFT..<\. CPX#$02..=]. BEQGROSS
;GROSS/GRAFIKMODUS.;=^. JMPWEI
;UNDEFINIERBAR.A=_.;.H=`.CLR LDA XSL
;KOORDINATEN RETTEN.Q=A. PHA.}=B. LDAX
SH..=C. PHA..=D. JSR$606E ;BILDSCHI
RM LOESCHEN..=E. PLA..=F. STAXSH
;KOORDINATEN WIEDER..=G. PLA..>H. STAXSL
;SETZEN..>J.;.&>M.HOME LDA #00
;X- UND Y-.J>N. STAXL ;KOORDINA
TEN AUF.J>O. STAXH ;NULL SETZEN.
T>P. STAY..>Q. JMPWEI..>R.;..>S.RVSON L
DA #$80 ;REVERSFLAG SETZEN..>T. .BY$2C..
>U.RVSOFF LDA#00 ;REVERSFLAG LOESCHEN..>
V. STAREVERS..>W. JMPWEI..?X.;.(?Y.KLEIN
LDA #$D8 ;START KLEIN/GROSS.F?Z. .BY$2
C ;ZEICHENSATZ.N?{.GROSS LDA #$D0
;START GROSS/GRAFIK..?|. STASATZ ;
ZEICHENSATZ..?}. JMPWEI. ?~.;.B?..OUT L
DA #55 ;PROZESSORPORT..?.. STA$01
;AUF ROM SCHALTEN..?.. CLI..@.. RTS
;FERTIG..@..;.1@..;TEXTAUSGABE
EINES ZEICHENS.Q@..;====================
======.W@..;.{@..TEXT ORA REVERS ;REVER
SFLAG IN..@.. LDX#00 ;CODE EINBLE
NDEN.F@.. STXZAEHLER ;ZAEHLER FUER BY
TES.V@.. STXRECHEN2..@.. ASL ;BI
LDSCHIRMCODE..A.. ROLRECHEN2..A.. ASL
;*8.,A.. ROLRECHEN2.CA.. ASL
;PLUS.SA.. ROLRECHEN2.UA.. STARECHEN1
;HIGH-BYTE VOM..A.. LDARECHEN2..A..
ADCSATZ ;ZEICHENSATZ.GA . STARECHE
N2 ;=STARTADRESSE.TA.. LDAYFVK..A.. L
DYYFNK ;Y-FAKTOR..A.. STAYVK..B..
STYYNK ;SOWIE."B.. LDAXL.FB.. LDX
XH ;STARTKOORDINATE.PB.. LDYY.PB
.. STAXSL ;UEBERNEHMEN.|B.. STXXS
H..B.. STYYS..B..LOOP1 LDY ZAEHLER..B..
DEC$01.QB.. LDA(RECHEN1),Y ;ZEICHENBYTE
HOLEN..B.. INC$01..B.. JSRWERTAUS ;A
USWERTEN..C.. INCZAEHLER.+C.. LDYZAEHLER
;8 BYTES PRO.7C.. CPY#08.]C.. BNELOO
P1 ;ZEICHEN NOTWENDIG.FC.. RTS.LC..
;..C..;BYTE EINES ZEICHENS AUSWERTEN..C.
.;=============================..C..;..C
..WERTAUS STA ZEICHEN ;CODE MERKEN..D..
LOOPW LDA YVK ;VORKOMMAFAKTOR.%D.. BEQZ
AEHLY ;JA, HOCHZAEHLEN.1D.. DECYVK.>
D.. LDAXFVK.KD.. LDXXFNK.WDA. STAXVK.CDB
. STXXNK.ODC. LDAXSL.{DD. LDXXSH..DE. LD
YYS..DF. STAXZL..DG. STXXZH..DH. STYYZ..
DI. LDAZEICHEN.BDJ. PHA.NDK. LDX#08..DL.
LOOPBIT ASL ZEICHEN..DM. JSRPRUEFBIT..E
N. DEX..EO. BNELOOPBIT.!EP. JSRNEXTZEI.*
EQ. PLA.:ER. STAZEICHEN.HES. JMPLOOPW.NE
S.;.SEV.;PRUEFT BITS EINES ZEICHEN-BYTES
..EW.;===============================..E
X.;..EY.PRUEFBIT LDA #00..EZ. ROL.FE..
TAY.YE..LOOPP LDA XVK..E.. BEQZAEHLX..E
.. DECXVK..E.. TYA..F.. STA$0350,X..F..
LDAXSL.)F.. STA$0360,X.5F.. LDAXSH.EF..
STA$0370,X.QF.. CPY#00.`F.. BEQNOPLOT.IF
.. TXA.RF.. PHA.{F.. TYA..F.. PHA..F.. J
SRPLOT..F.. PLA..F.. TAY..F.. PLA..F.. T
AX.MF..NOPLOT JSR NEXTSPA..F.. JMPLOOPP
..F..;..F..ZAEHLY LDA YNK..F.. CLC..G..
ADCYFNK..G.. STAYNK.#G.. LDAYVK.0G.. AD
CYFVK.<G.. STAYVK.EG.. RTS.KG..;._G..ZAE
HLX LDA XNK.HG.. CLC.UG.. ADCXFNK..G..
STAXNK..G.. LDAXVK..G.. ADCXFVK..G.. STA
XVK..G.. RTS..G..;.IG..NEXTZEI LDA YZ.R
G.. CLC..G.. ADCYABZ..G.. STAYS..G.. LDA
XZL..G.. CLC..H.. ADCXABZL..H.. STAXSL.%
H.. LDAXZH.3H.. ADCXABZH.?H.. STAXSH.HH.
. RTS.NH..;.BH..NEXTSPA LDA YS.KH.. CLC
.XH.. ADCYABS..H.. STAYS..H.. LDAXSL..H.
. CLC..H.. ADCXABSL..H.. STAXSL..H.. LDA
XSH.LH.. ADCXABSH.XH.. STAXSH..H.. RTS..
H..;..H..NEXTZEICH LDA Y..I.. CLC..I..
ADCYAB..I.. STAY.&I.. LDAXL./I.. CLC.<I
. ADCXABL.GI!. STAXL.RI". LDAXH._I#. ADC
XABH.JI$. STAXH.SI%. RTS.YI&.;.IN.;..IO
.;ZWEI-BYTE-WERT HOLEN..IP.;============
========..IQ.;.OIR.HOLPAR JSR KOMMA..IS
. JSRFRMEVL ;AUSDRUCK HOLEN..JT.
JMPINTEGER ;NACH INTEGER..JX.;.8JY
.;EIN-BYTE-WERT HOLEN.RJZ.;=============
=======.XJ[.;.MJ\.HOLBYTE JSRKOMMA..J].
JMPBYTE ;BYTE HOLEN...
> CLICK IMAGE PREVIEW FOR FULL MODAL