APFEL/SRC
FILE INFORMATION
FILENAME(S): APFEL/SRC
FILE TYPE(S): PRG
FILE SIZE: 14.7K
FIRST SEEN: 2025-10-20 00:37:11
APPEARS ON: 5 disk(s)
FILE HASH
06d8e8e8bb40b068750763737be4d650637222d9c41304b63fc763df38feff14
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SEITE 1 RUECK | APFEL/SRC | PRG | C64er, Treasure Chest - Holger | 25 | 9 | DOWNLOAD FILE |
| SEITE 1 RUECK | APFEL/SRC | PRG | DuncanTwain | 25 | 9 | DOWNLOAD FILE |
| SEITE 1 RUECK | APFEL/SRC | PRG | DuncanTwain | 25 | 9 | DOWNLOAD FILE |
| SEITE 1 RUECK | APFEL/SRC | PRG | DuncanTwain | 25 | 9 | DOWNLOAD FILE |
| SEITE 1 RUECK | APFEL/SRC | PRG | hedning, Knutsson | 25 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..).... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 08 01 00 8F 20 |*********.Q.... |
00000030: 2A 20 20 20 20 20 20 20 20 20 41 50 46 45 4C 50 |* APFELP|
00000040: 52 49 4E 54 45 52 20 20 20 20 20 20 20 20 20 20 |RINTER |
00000050: 2A 00 79 08 02 00 8F 20 2A 20 20 20 20 20 20 20 |*.y.... * |
00000060: 20 20 57 52 49 54 54 45 4E 20 31 39 38 35 20 20 | WRITTEN 1985 |
00000070: 20 20 20 20 20 20 20 20 2A 00 A1 08 03 00 8F 20 | *...... |
00000080: 2A 20 20 46 4F 52 20 43 36 34 20 2B 20 56 43 20 |* FOR C64 + VC |
00000090: 31 35 34 31 20 2B 20 4D 50 53 20 38 30 32 20 20 |1541 + MPS 802 |
000000A0: 2A 00 C9 08 04 00 8F 20 2A 20 20 20 20 20 20 20 |*...... * |
000000B0: 42 59 20 50 45 54 45 52 20 53 49 45 50 45 4E 20 |BY PETER SIEPEN |
000000C0: 20 20 20 20 20 20 20 20 2A 00 F1 08 05 00 8F 20 | *...... |
000000D0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 2A 00 19 09 06 00 8F 20 2A 20 20 20 20 20 20 52 |*...... * R|
00000100: 45 43 48 45 4E 52 4F 55 54 49 4E 45 4E 20 56 4F |ECHENROUTINEN VO|
00000110: 4E 20 20 20 20 20 20 20 2A 00 41 09 07 00 8F 20 |N *.A.... |
00000120: 2A 20 20 20 20 20 20 20 47 45 52 48 41 52 44 20 |* GERHARD |
00000130: 50 45 48 4C 41 4E 44 20 20 20 20 20 20 20 20 20 |PEHLAND |
00000140: 2A 00 69 09 08 00 8F 20 2A 20 20 20 28 41 55 53 |*.i.... * (AUS|
00000150: 20 36 34 27 45 52 20 31 31 2E 38 35 20 53 45 49 | 64'ER 11.85 SEI|
00000160: 54 45 20 38 30 29 20 20 2A 00 91 09 09 00 8F 20 |TE 80) *...... |
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000190: 2A 00 9D 09 0A 00 9E 39 AC 34 30 39 36 00 A9 09 |*......9.4096...|
000001A0: 14 00 2E 4F 50 54 20 4F 4F 00 B6 09 1E 00 AC B2 |...OPT OO.......|
000001B0: 20 24 43 30 30 30 00 BC 09 5A 00 3B 00 E5 09 5C | $C000...Z.;...\|
000001C0: 00 3B 20 AC AC AC AC AC AC AC AC AC AC AC 20 51 |.; ........... Q|
000001D0: 55 45 4C 4C 43 4F 44 45 20 AC AC AC AC AC AC AC |UELLCODE .......|
000001E0: AC AC AC AC AC 00 EB 09 5F 00 3B 00 FE 09 62 00 |........_.;...b.|
000001F0: 3B 20 9E 54 45 4D 41 44 52 45 53 53 45 4E 00 12 |; .TEMADRESSEN..|
00000200: 0A 64 00 46 41 43 20 20 20 20 20 20 20 20 B2 20 |.d.FAC . |
00000210: 39 37 00 27 0A 6E 00 41 52 47 20 20 20 20 20 20 |97.'.n.ARG |
00000220: 20 20 B2 20 31 30 35 00 3E 0A 78 00 43 48 52 4F | . 105.>.x.CHRO|
00000230: 55 54 20 20 20 20 20 B2 20 24 46 46 44 32 00 62 |UT . $FFD2.b|
00000240: 0A 82 00 44 49 56 20 20 20 20 20 20 20 20 B2 20 |...DIV . |
00000250: 24 42 42 31 32 20 3B 46 41 43 B2 46 41 43 AD 41 |$BB12 ;FAC.FAC.A|
00000260: 52 47 00 86 0A 8C 00 53 55 42 20 20 20 20 20 20 |RG.....SUB |
00000270: 20 20 B2 20 24 42 38 35 33 20 3B 46 41 43 B2 46 | . $B853 ;FAC.F|
00000280: 41 43 AB 41 52 47 00 A8 0A A0 00 46 41 43 4E 41 |AC.ARG.....FACNA|
00000290: 52 47 20 20 20 20 B2 20 24 42 43 30 43 20 3B 41 |RG . $BC0C ;A|
000002A0: 52 47 20 B2 20 46 41 43 00 CE 0A AA 00 5A 45 49 |RG . FAC.....ZEI|
000002B0: 47 53 55 42 20 20 20 20 B2 20 24 42 38 35 30 20 |GSUB . $B850 |
000002C0: 3B 46 41 43 B2 28 41 AD 59 29 AB 46 41 43 00 F4 |;FAC.(A.Y).FAC..|
000002D0: 0A B4 00 5A 45 49 47 41 44 44 20 20 20 20 B2 20 |...ZEIGADD . |
000002E0: 24 42 38 36 37 20 3B 46 41 43 B2 28 41 AD 59 29 |$B867 ;FAC.(A.Y)|
000002F0: AA 46 41 43 00 1A 0B BE 00 5A 45 49 47 4D 55 4C |.FAC.....ZEIGMUL|
00000300: 54 20 20 20 B2 20 24 42 41 32 38 20 3B 46 41 43 |T . $BA28 ;FAC|
00000310: B2 28 41 AD 59 29 AC 46 41 43 00 3B 0B C8 00 4B |.(A.Y).FAC.;...K|
00000320: 91 4E 41 52 47 20 20 20 20 B2 20 24 42 41 38 43 |.NARG . $BA8C|
00000330: 20 3B 41 52 47 B2 28 41 AD 59 29 00 5C 0B D2 00 | ;ARG.(A.Y).\...|
00000340: 4B 91 4E 46 41 43 20 20 20 20 B2 20 24 42 42 41 |K.NFAC . $BBA|
00000350: 32 20 3B 46 41 43 B2 28 41 AD 59 29 00 7D 0B DC |2 ;FAC.(A.Y).}..|
00000360: 00 46 41 43 4E 4B 91 20 20 20 20 B2 20 24 42 42 |.FACNK. . $BB|
00000370: 44 34 20 3B 28 58 AD 59 29 B2 46 41 43 00 9E 0B |D4 ;(X.Y).FAC...|
00000380: E6 00 43 48 53 49 47 4E 20 20 20 20 20 B2 20 24 |..CHSIGN . $|
00000390: 42 46 42 34 20 3B 46 41 43 B2 AB 46 41 43 00 C4 |BFB4 ;FAC..FAC..|
000003A0: 0B F0 00 46 49 4C 45 50 41 52 20 20 20 20 B2 20 |...FILEPAR . |
000003B0: 24 46 46 42 41 20 3B 46 49 4C 45 50 41 52 41 4D |$FFBA ;FILEPARAM|
000003C0: 45 54 45 52 00 E8 0B FA 00 46 49 C3 41 4D 20 20 |ETER.....FI.AM |
000003D0: 20 20 B2 20 24 46 46 42 44 20 3B 46 49 C3 41 4D | . $FFBD ;FI.AM|
000003E0: 45 20 53 45 54 5A 45 4E 00 13 0C FC 00 46 52 4D |E SETZEN.....FRM|
000003F0: 4E 55 4D 20 20 20 20 20 B2 20 24 41 44 38 41 20 |NUM . $AD8A |
00000400: 3B 41 55 53 44 52 55 43 4B 20 41 55 53 57 45 52 |;AUSDRUCK AUSWER|
00000410: 54 45 4E 00 38 0C FE 00 43 48 4B 43 4F 4D 20 20 |TEN.8...CHKCOM |
00000420: 20 20 20 B2 20 24 41 45 46 44 20 3B 54 45 53 54 | . $AEFD ;TEST|
00000430: 20 41 55 46 20 22 2C 22 00 4F 0C 00 01 49 45 43 | AUF ",".O...IEC|
00000440: 4F 55 54 20 20 20 20 20 B2 20 24 46 46 41 38 00 |OUT . $FFA8.|
00000450: 66 0C 01 01 49 45 43 49 4E 20 20 20 20 20 20 B2 |f...IECIN .|
00000460: 20 24 46 46 41 35 00 8B 0C 02 01 53 55 43 48 56 | $FFA5.....SUCHV|
00000470: 41 52 20 20 20 20 B2 20 24 42 30 45 37 20 3B 53 |AR . $B0E7 ;S|
00000480: 55 43 48 54 20 56 41 52 4E 41 4D 00 91 0C 04 01 |UCHT VARNAM.....|
00000490: 3B 00 9F 0C 09 01 3B 20 56 41 52 49 41 42 C3 00 |;.....; VARIAB..|
000004A0: C1 0C 0E 01 5A 45 49 47 31 20 20 20 20 20 20 B2 |....ZEIG1 .|
000004B0: 20 24 35 37 20 20 20 3B 55 4E 49 56 45 52 53 41 | $57 ;UNIVERSA|
000004C0: 4C 00 E0 0C 13 01 5A 45 49 47 32 20 20 20 20 20 |L.....ZEIG2 |
000004D0: 20 B2 20 24 35 39 20 20 20 3B 5A 45 49 47 45 52 | . $59 ;ZEIGER|
000004E0: 00 09 0D 18 01 5A 45 49 47 45 52 20 20 20 20 20 |.....ZEIGER |
000004F0: B2 20 24 41 38 20 20 20 3B 5A 45 49 47 45 52 20 |. $A8 ;ZEIGER |
00000500: 42 45 49 20 44 52 55 43 4B 00 2E 0D 27 01 53 50 |BEI DRUCK...'.SP|
00000510: 5A 45 49 47 20 20 20 20 20 B2 20 24 42 35 20 20 |ZEIG . $B5 |
00000520: 20 3B 5A 45 49 47 45 52 20 24 32 30 30 30 00 50 | ;ZEIGER $2000.P|
00000530: 0D 2C 01 5A 45 49 4C 45 20 20 20 20 20 20 B2 20 |.,.ZEILE . |
00000540: 24 43 46 30 30 20 3B 41 4B 54 2E 5A 45 49 4C 45 |$CF00 ;AKT.ZEILE|
00000550: 00 73 0D 31 01 53 50 41 4C 54 45 20 20 20 20 20 |.s.1.SPALTE |
00000560: B2 20 24 43 46 30 34 20 3B 41 4B 54 2E 53 50 41 |. $CF04 ;AKT.SPA|
00000570: 4C 54 45 00 97 0D 36 01 5A 45 49 4C 5A 41 48 4C |LTE...6.ZEILZAHL|
00000580: 20 20 20 B2 20 24 43 46 30 32 20 3B 5A 45 49 C3 | . $CF02 ;ZEI.|
00000590: 5A 41 45 48 4C 45 52 00 BE 0D 3B 01 42 59 54 45 |ZAEHLER...;.BYTE|
000005A0: 20 20 20 20 20 20 20 B2 20 24 43 46 30 33 20 3B | . $CF03 ;|
000005B0: 45 4E 54 48 41 45 4C 54 20 38 20 50 4B 54 00 E3 |ENTHAELT 8 PKT..|
000005C0: 0D 40 01 B9 20 20 20 20 20 20 20 20 B2 20 24 43 |.@.. . $C|
000005D0: 46 30 35 20 3B 5A 41 45 48 4C 45 52 20 38 20 50 |F05 ;ZAEHLER 8 P|
000005E0: 4B 54 45 00 06 0E 45 01 54 49 45 46 45 20 20 20 |KTE...E.TIEFE |
000005F0: 20 20 20 B2 20 24 43 46 30 36 20 3B 41 4B 54 2E | . $CF06 ;AKT.|
00000600: 20 54 49 45 46 45 00 2D 0E 4A 01 54 49 45 46 45 | TIEFE.-.J.TIEFE|
00000610: 4D 41 58 20 20 20 B2 20 24 43 46 30 37 20 3B 4D |MAX . $CF07 ;M|
00000620: 41 58 49 4D 41 4C 45 20 54 49 45 46 45 00 56 0E |AXIMALE TIEFE.V.|
00000630: 4F 01 5A 45 49 47 53 50 20 20 20 20 20 B2 20 24 |O.ZEIGSP . $|
00000640: 43 46 30 38 20 3B 5A 57 49 53 43 48 45 4E 53 50 |CF08 ;ZWISCHENSP|
00000650: 45 49 43 48 45 52 00 7A 0E 51 01 3A 20 20 20 20 |EICHER.z.Q.: |
00000660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 46 | ;F|
00000670: 55 45 52 20 5A 45 49 47 45 52 00 9C 0E 54 01 53 |UER ZEIGER...T.S|
00000680: 50 41 4C 54 5A 41 48 4C 20 20 B2 20 24 43 46 30 |PALTZAHL . $CF0|
00000690: 41 20 3B 42 45 49 20 44 52 55 43 4B 00 BF 0E 59 |A ;BEI DRUCK...Y|
000006A0: 01 5A 53 20 20 20 20 20 20 20 20 20 B2 20 24 43 |.ZS . $C|
000006B0: 46 30 42 20 3B 55 4E 49 56 45 52 53 41 4C AB 00 |F0B ;UNIVERSAL..|
000006C0: E0 0E 5E 01 5A 53 32 20 20 20 20 20 20 20 20 B2 |..^.ZS2 .|
000006D0: 20 24 43 46 30 43 20 3B 53 50 45 49 43 48 45 52 | $CF0C ;SPEICHER|
000006E0: 00 04 0F 63 01 53 50 41 43 45 53 20 20 20 20 20 |...c.SPACES |
000006F0: B2 20 24 43 46 30 45 20 3B 5A 41 45 48 4C 45 52 |. $CF0E ;ZAEHLER|
00000700: 20 42 45 49 00 22 0F 65 01 3A 20 20 20 20 20 20 | BEI.".e.: |
00000710: 20 20 20 20 20 20 20 20 20 20 20 20 3B 44 52 55 | ;DRU|
00000720: 43 4B 00 49 0F 68 01 4D 41 53 4B 45 20 20 20 20 |CK.I.h.MASKE |
00000730: 20 20 B2 20 24 30 33 33 34 20 3B 45 4E 54 48 41 | . $0334 ;ENTHA|
00000740: 45 4C 54 20 4D 41 53 4B 45 00 6B 0F 6A 01 3A 20 |ELT MASKE.k.j.: |
00000750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000760: 20 3B 42 45 49 20 44 52 55 43 4B 00 8E 0F 6D 01 | ;BEI DRUCK...m.|
00000770: 4E 41 4D C3 20 20 20 20 20 B2 20 24 30 33 33 36 |NAM. . $0336|
00000780: 20 3B 4C 41 45 4E 47 45 20 46 49 C3 41 4D 00 B4 | ;LAENGE FI.AM..|
00000790: 0F 72 01 44 58 20 20 20 20 20 20 20 20 20 B2 20 |.r.DX . |
000007A0: 24 43 46 39 30 20 3B 52 45 43 48 45 4E 56 41 52 |$CF90 ;RECHENVAR|
000007B0: 49 41 42 C3 00 CB 0F 77 01 44 59 20 20 20 20 20 |IAB....w.DY |
000007C0: 20 20 20 20 B2 20 24 43 46 33 30 00 E2 0F 7C 01 | . $CF30...|.|
000007D0: 43 58 20 20 20 20 20 20 20 20 20 B2 20 24 43 46 |CX . $CF|
000007E0: 34 30 00 F9 0F 81 01 43 59 20 20 20 20 20 20 20 |40.....CY |
000007F0: 20 20 B2 20 24 43 46 36 30 00 0D 10 86 01 58 51 | . $CF60.....XQ|
00000800: 55 41 44 20 20 20 20 20 20 B2 20 38 37 00 22 10 |UAD . 87.".|
00000810: 8B 01 59 51 55 41 44 20 20 20 20 20 20 B2 20 32 |..YQUAD . 2|
00000820: 34 37 00 39 10 90 01 58 57 45 52 54 20 20 20 20 |47.9...XWERT |
00000830: 20 20 B2 20 24 43 46 37 30 00 50 10 95 01 59 57 | . $CF70.P...YW|
00000840: 45 52 54 20 20 20 20 20 20 B2 20 24 43 46 38 30 |ERT . $CF80|
00000850: 00 67 10 9A 01 58 4D 41 58 20 20 20 20 20 20 20 |.g...XMAX |
00000860: B2 20 24 43 46 41 30 00 7E 10 9F 01 58 4D 49 4E |. $CFA0.~...XMIN|
00000870: 20 20 20 20 20 20 20 B2 20 24 43 46 42 30 00 95 | . $CFB0..|
00000880: 10 A4 01 59 4D 41 58 20 20 20 20 20 20 20 B2 20 |...YMAX . |
00000890: 24 43 46 43 30 00 AC 10 A9 01 59 4D 49 4E 20 20 |$CFC0.....YMIN |
000008A0: 20 20 20 20 20 B2 20 24 43 46 44 30 00 BA 10 EA | . $CFD0....|
000008B0: 01 3B 20 4B 91 53 C0 54 45 4E 00 E1 10 F4 01 53 |.; K.S.TEN.....S|
000008C0: 50 41 4C 54 45 4E 20 20 20 20 B2 20 36 34 30 20 |PALTEN . 640 |
000008D0: 20 20 3B 41 4E 5A 41 48 4C 20 53 50 41 4C 54 45 | ;ANZAHL SPALTE|
000008E0: 4E 00 03 11 FE 01 5A 45 49 C3 20 20 20 20 20 B2 |N.....ZEI. .|
000008F0: 20 34 30 30 20 20 20 3B 41 4E 5A 41 48 4C 20 5A | 400 ;ANZAHL Z|
00000900: 45 49 C3 00 2C 11 08 02 50 55 46 46 45 52 20 20 |EI..,...PUFFER |
00000910: 20 20 20 B2 20 24 30 33 33 43 20 3B 53 50 45 49 | . $033C ;SPEI|
00000920: 43 48 45 52 20 38 20 42 59 54 45 53 00 52 11 12 |CHER 8 BYTES.R..|
00000930: 02 53 50 45 49 43 48 45 52 20 20 20 B2 20 24 43 |.SPEICHER . $C|
00000940: 35 30 30 20 3B 53 50 45 49 43 48 45 52 20 46 55 |500 ;SPEICHER FU|
00000950: 45 52 00 69 11 14 02 50 55 46 46 45 52 31 20 20 |ER.i...PUFFER1 |
00000960: 20 20 B2 20 24 30 32 41 31 00 91 11 17 02 3A 20 | . $02A1.....: |
00000970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000980: 20 3B 45 49 4E 45 20 44 52 55 43 4B 5A 45 49 4C | ;EINE DRUCKZEIL|
00000990: 45 00 97 11 B2 02 3B 00 B0 11 20 03 3A 20 20 20 |E.....;... .: |
000009A0: 20 20 20 20 20 20 20 4A 4D 50 20 53 54 41 52 54 | JMP START|
000009B0: 00 C5 11 2A 03 3A 20 20 20 20 20 20 20 20 20 20 |...*.: |
000009C0: 4A 4D 50 20 94 00 DA 11 34 03 3A 20 20 20 20 20 |JMP ....4.: |
000009D0: 20 20 20 20 20 4A 4D 50 20 93 00 EF 11 3E 03 3A | JMP ....>.:|
000009E0: 20 20 20 20 20 20 20 20 20 20 4A 4D 50 20 99 00 | JMP ..|
000009F0: F5 11 7A 03 3B 00 FB 11 7F 03 3B 00 17 12 84 03 |..z.;.....;.....|
00000A00: 53 54 41 52 54 20 20 20 20 20 20 4A 53 52 20 48 |START JSR H|
00000A10: 4F 4C 57 45 52 54 45 00 30 12 8E 03 3A 20 20 20 |OLWERTE.0...: |
00000A20: 20 20 20 20 20 20 20 4A 4D 50 20 41 50 46 45 4C | JMP APFEL|
00000A30: 00 36 12 DE 03 3B 00 3C 12 E3 03 3B 00 62 12 E8 |.6...;.<...;.b..|
00000A40: 03 48 4F 4C 57 45 52 54 45 20 20 4A 53 52 20 43 |.HOLWERTE JSR C|
00000A50: 48 4B 43 4F 4D 20 3B 4C 49 45 53 54 20 57 45 52 |HKCOM ;LIEST WER|
00000A60: 54 45 00 82 12 F2 03 3A 20 20 20 20 20 20 20 20 |TE.....: |
00000A70: 20 4A 53 52 20 46 52 4D 4E 55 4D 20 3B 41 55 53 | JSR FRMNUM ;AUS|
00000A80: 20 9E 00 9B 12 FC 03 3A 20 20 20 20 20 20 20 20 | ......: |
00000A90: 20 4C 44 58 20 23 B3 58 4D 49 4E 00 B4 12 06 04 | LDX #.XMIN.....|
00000AA0: 3A 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 B1 |: LDY #.|
00000AB0: 58 4D 49 4E 00 CD 12 10 04 3A 20 20 20 20 20 20 |XMIN.....: |
00000AC0: 20 20 20 4A 53 52 20 46 41 43 4E 4B 91 00 E6 12 | JSR FACNK....|
00000AD0: 1A 04 3A 20 20 20 20 20 20 20 20 20 4A 53 52 20 |..: JSR |
00000AE0: 43 48 4B 43 4F 4D 00 FF 12 24 04 3A 20 20 20 20 |CHKCOM...$.: |
00000AF0: 20 20 20 20 20 4A 53 52 20 46 52 4D 4E 55 4D 00 | JSR FRMNUM.|
00000B00: 18 13 2E 04 3A 20 20 20 20 20 20 20 20 20 4C 44 |....: LD|
00000B10: 58 20 23 B3 58 4D 41 58 00 31 13 38 04 3A 20 20 |X #.XMAX.1.8.: |
00000B20: 20 20 20 20 20 20 20 4C 44 59 20 23 B1 58 4D 41 | LDY #.XMA|
00000B30: 58 00 4A 13 42 04 3A 20 20 20 20 20 20 20 20 20 |X.J.B.: |
00000B40: 4A 53 52 20 46 41 43 4E 4B 91 00 63 13 4C 04 3A |JSR FACNK..c.L.:|
00000B50: 20 20 20 20 20 20 20 20 20 4A 53 52 20 43 48 4B | JSR CHK|
00000B60: 43 4F 4D 00 7C 13 56 04 3A 20 20 20 20 20 20 20 |COM.|.V.: |
00000B70: 20 20 4A 53 52 20 46 52 4D 4E 55 4D 00 95 13 60 | JSR FRMNUM...`|
00000B80: 04 3A 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 |.: LDX #|
00000B90: B3 59 4D 49 4E 00 AE 13 6A 04 3A 20 20 20 20 20 |.YMIN...j.: |
00000BA0: 20 20 20 20 4C 44 59 20 23 B1 59 4D 49 4E 00 C7 | LDY #.YMIN..|
00000BB0: 13 74 04 3A 20 20 20 20 20 20 20 20 20 4A 53 52 |.t.: JSR|
00000BC0: 20 46 41 43 4E 4B 91 00 E0 13 7E 04 3A 20 20 20 | FACNK....~.: |
00000BD0: 20 20 20 20 20 20 4A 53 52 20 43 48 4B 43 4F 4D | JSR CHKCOM|
00000BE0: 00 F9 13 88 04 3A 20 20 20 20 20 20 20 20 20 4A |.....: J|
00000BF0: 53 52 20 46 52 4D 4E 55 4D 00 12 14 92 04 3A 20 |SR FRMNUM.....: |
00000C00: 20 20 20 20 20 20 20 20 4C 44 58 20 23 B3 59 4D | LDX #.YM|
00000C10: 41 58 00 2B 14 9C 04 3A 20 20 20 20 20 20 20 20 |AX.+...: |
00000C20: 20 4C 44 59 20 23 B1 59 4D 41 58 00 44 14 A6 04 | LDY #.YMAX.D...|
00000C30: 3A 20 20 20 20 20 20 20 20 20 4A 53 52 20 46 41 |: JSR FA|
00000C40: 43 4E 4B 91 00 69 14 D8 04 3A 20 20 20 20 20 20 |CNK..i...: |
00000C50: 20 20 20 4C 44 41 20 23 B3 24 32 30 30 30 20 3B | LDA #.$2000 ;|
00000C60: 55 4E 44 20 53 45 54 5A 54 00 8B 14 E2 04 3A 20 |UND SETZT.....: |
00000C70: 20 20 20 20 20 20 20 20 53 54 41 20 53 50 5A 45 | STA SPZE|
00000C80: 49 47 20 20 3B 5A 45 49 47 45 52 00 A5 14 EC 04 |IG ;ZEIGER.....|
00000C90: 3A 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 B1 |: LDA #.|
00000CA0: 24 32 30 30 30 00 C0 14 F6 04 3A 20 20 20 20 20 |$2000.....: |
00000CB0: 20 20 20 20 53 54 41 20 53 50 5A 45 49 47 AA 31 | STA SPZEIG.1|
00000CC0: 00 D2 14 00 05 3A 20 20 20 20 20 20 20 20 20 52 |.....: R|
00000CD0: 54 53 00 D8 14 0A 05 3B 00 DE 14 0F 05 3B 00 01 |TS.....;.....;..|
00000CE0: 15 D0 07 9F 46 4C 53 20 20 20 4C 44 41 20 23 31 |....FLS LDA #1|
00000CF0: 35 20 20 20 3B 4F 45 46 A5 45 54 20 46 49 4C 45 |5 ;OEF.ET FILE|
00000D00: 53 00 17 15 DA 07 3A 20 20 20 20 20 20 20 20 20 |S.....: |
00000D10: 4C 44 58 20 23 30 34 00 2D 15 E4 07 3A 20 20 20 |LDX #04.-...: |
00000D20: 20 20 20 20 20 20 4C 44 59 20 23 30 35 00 45 15 | LDY #05.E.|
00000D30: EE 07 3A 20 20 20 20 20 20 20 20 20 4A 53 52 20 |..: JSR |
00000D40: 24 46 46 42 41 00 5C 15 F8 07 3A 20 20 20 20 20 |$FFBA.\...: |
00000D50: 20 20 20 20 4C 44 41 20 23 24 30 30 00 74 15 02 | LDA #$00.t..|
00000D60: 08 3A 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 |.: JSR $|
00000D70: 46 46 42 44 00 8C 15 0C 08 3A 20 20 20 20 20 20 |FFBD.....: |
00000D80: 20 20 20 4A 53 52 20 24 46 46 43 30 00 A2 15 16 | JSR $FFC0....|
00000D90: 08 3A 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |.: LDA #|
00000DA0: 31 30 00 B8 15 20 08 3A 20 20 20 20 20 20 20 20 |10... .: |
00000DB0: 20 4C 44 58 20 23 30 34 00 CE 15 2A 08 3A 20 20 | LDX #04...*.: |
00000DC0: 20 20 20 20 20 20 20 4C 44 59 20 23 30 30 00 E6 | LDY #00..|
00000DD0: 15 34 08 3A 20 20 20 20 20 20 20 20 20 4A 53 52 |.4.: JSR|
00000DE0: 20 24 46 46 42 41 00 FD 15 3E 08 3A 20 20 20 20 | $FFBA...>.: |
00000DF0: 20 20 20 20 20 4C 44 41 20 23 24 30 30 00 15 16 | LDA #$00...|
00000E00: 48 08 3A 20 20 20 20 20 20 20 20 20 4A 53 52 20 |H.: JSR |
00000E10: 24 46 46 42 44 00 2D 16 52 08 3A 20 20 20 20 20 |$FFBD.-.R.: |
00000E20: 20 20 20 20 4A 53 52 20 24 46 46 43 30 00 43 16 | JSR $FFC0.C.|
00000E30: 84 08 3A 20 20 20 20 20 20 20 20 20 4C 44 41 20 |..: LDA |
00000E40: 23 32 36 00 59 16 8E 08 3A 20 20 20 20 20 20 20 |#26.Y...: |
00000E50: 20 20 4C 44 58 20 23 30 34 00 6F 16 98 08 3A 20 | LDX #04.o...: |
00000E60: 20 20 20 20 20 20 20 20 4C 44 59 20 23 30 36 00 | LDY #06.|
00000E70: 87 16 A2 08 3A 20 20 20 20 20 20 20 20 20 4A 53 |....: JS|
00000E80: 52 20 24 46 46 42 41 00 9E 16 AC 08 3A 20 20 20 |R $FFBA.....: |
00000E90: 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 00 B6 | LDA #$00..|
00000EA0: 16 B6 08 3A 20 20 20 20 20 20 20 20 20 4A 53 52 |...: JSR|
00000EB0: 20 24 46 46 42 44 00 CE 16 C0 08 3A 20 20 20 20 | $FFBD.....: |
00000EC0: 20 20 20 20 20 4A 53 52 20 24 46 46 43 30 00 F4 | JSR $FFC0..|
00000ED0: 16 CA 08 3A 20 20 20 20 20 20 20 20 20 4C 44 58 |...: LDX|
00000EE0: 20 23 32 36 20 20 20 3B 55 4E 44 20 42 45 52 45 | #26 ;UND BERE|
00000EF0: 49 54 45 54 00 18 17 D4 08 3A 20 20 20 20 20 20 |ITET.....: |
00000F00: 20 20 20 4A 53 52 20 24 46 46 43 39 20 3B 44 52 | JSR $FFC9 ;DR|
00000F10: 55 43 4B 45 52 20 56 B0 00 2E 17 DE 08 3A 20 20 |UCKER V......: |
00000F20: 20 20 20 20 20 20 20 4C 44 41 20 23 32 31 00 47 | LDA #21.G|
00000F30: 17 E8 08 3A 20 20 20 20 20 20 20 20 20 4A 53 52 |...: JSR|
00000F40: 20 49 45 43 4F 55 54 00 5D 17 F2 08 3A 20 20 20 | IECOUT.]...: |
00000F50: 20 20 20 20 20 20 4C 44 58 20 23 31 30 00 75 17 | LDX #10.u.|
00000F60: F7 08 3A 20 20 20 20 20 20 20 20 20 4A 53 52 20 |..: JSR |
00000F70: 24 46 46 43 39 00 8C 17 FC 08 3A 20 20 20 20 20 |$FFC9.....: |
00000F80: 20 20 20 20 4C 44 41 20 23 24 30 44 00 A5 17 01 | LDA #$0D....|
00000F90: 09 3A 20 20 20 20 20 20 20 20 20 4A 4D 50 20 49 |.: JMP I|
00000FA0: 45 43 4F 55 54 00 AB 17 06 09 3B 00 B1 17 10 09 |ECOUT.....;.....|
00000FB0: 3B 00 C3 17 B8 0B A0 46 4C 53 20 20 4C 44 41 20 |;......FLS LDA |
00000FC0: 23 31 35 00 DB 17 C2 0B 3A 20 20 20 20 20 20 20 |#15.....: |
00000FD0: 20 20 4A 53 52 20 24 46 46 43 33 00 F1 17 CC 0B | JSR $FFC3.....|
00000FE0: 3A 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 31 |: LDA #1|
00000FF0: 30 00 09 18 D6 0B 3A 20 20 20 20 20 20 20 20 20 |0.....: |
00001000: 4A 53 52 20 24 46 46 43 33 00 1F 18 E0 0B 3A 20 |JSR $FFC3.....: |
00001010: 20 20 20 20 20 20 20 20 4C 44 41 20 23 32 36 00 | LDA #26.|
00001020: 37 18 EA 0B 3A 20 20 20 20 20 20 20 20 20 4A 4D |7...: JM|
00001030: 50 20 24 46 46 43 33 00 3D 18 F4 0B 3B 00 5B 18 |P $FFC3.=...;.[.|
00001040: AC 0D B5 A4 46 41 43 20 20 53 54 41 20 24 36 33 |....FAC STA $63|
00001050: 20 3B B9 2E 20 B5 AB 5A 41 48 4C 00 80 18 B6 0D | ;.. ..ZAHL.....|
00001060: 3A 20 20 20 20 20 20 20 20 20 53 54 58 20 24 36 |: STX $6|
00001070: 32 20 3B 49 4E 20 41 AD 58 20 49 4E 20 46 41 43 |2 ;IN A.X IN FAC|
00001080: 00 97 18 C0 0D 3A 20 20 20 20 20 20 20 20 20 4C |.....: L|
00001090: 44 58 20 23 24 39 30 00 A9 18 CA 0D 3A 20 20 20 |DX #$90.....: |
000010A0: 20 20 20 20 20 20 53 45 43 00 C1 18 D4 0D 3A 20 | SEC.....: |
000010B0: 20 20 20 20 20 20 20 20 4A 4D 50 20 24 42 43 34 | JMP $BC4|
000010C0: 39 00 C7 18 06 0E 3B 00 EB 18 74 0E 46 41 43 53 |9.....;...t.FACS|
000010D0: 41 52 47 20 20 20 4C 44 41 20 41 52 47 AA 35 20 |ARG LDA ARG.5 |
000010E0: 3B 56 B0 5A 45 49 43 48 45 4E AB 00 0B 19 7E 0E |;V.ZEICHEN....~.|
000010F0: 3A 20 20 20 20 20 20 20 20 20 45 B0 20 46 41 43 |: E. FAC|
00001100: AA 35 20 3B 57 45 43 48 53 45 4C 00 2E 19 88 0E |.5 ;WECHSEL.....|
00001110: 3A 20 20 20 20 20 20 20 20 20 53 54 41 20 41 52 |: STA AR|
00001120: 47 AA 36 20 3B 46 41 43 20 AA 20 41 52 47 00 44 |G.6 ;FAC . ARG.D|
00001130: 19 92 0E 3A 20 20 20 20 20 20 20 20 20 4C 44 41 |...: LDA|
00001140: 20 46 41 43 00 56 19 9C 0E 3A 20 20 20 20 20 20 | FAC.V...: |
00001150: 20 20 20 52 54 53 00 5C 19 A6 0E 3B 00 81 19 A0 | RTS.\...;....|
00001160: 0F 41 50 46 45 4C 20 20 20 20 20 53 45 49 20 20 |.APFEL SEI |
00001170: 20 20 20 20 20 3B 52 45 43 48 45 4E 52 4F 55 54 | ;RECHENROUT|
00001180: 2E 00 A8 19 AA 0F 3A 20 20 20 20 20 20 20 20 20 |......: |
00001190: 4C 44 41 20 23 B3 58 4D 49 4E 20 3B 44 58 20 42 |LDA #.XMIN ;DX B|
000011A0: 45 52 45 43 48 4E 45 4E 00 C1 19 B4 0F 3A 20 20 |ERECHNEN.....: |
000011B0: 20 20 20 20 20 20 20 4C 44 59 20 23 B1 58 4D 49 | LDY #.XMI|
000011C0: 4E 00 DA 19 BE 0F 3A 20 20 20 20 20 20 20 20 20 |N.....: |
000011D0: 4A 53 52 20 4B 91 4E 46 41 43 00 F3 19 C8 0F 3A |JSR K.NFAC.....:|
000011E0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 B3 58 | LDA #.X|
000011F0: 4D 41 58 00 0C 1A D2 0F 3A 20 20 20 20 20 20 20 |MAX.....: |
00001200: 20 20 4C 44 59 20 23 B1 58 4D 41 58 00 26 1A DC | LDY #.XMAX.&..|
00001210: 0F 3A 20 20 20 20 20 20 20 20 20 4A 53 52 20 5A |.: JSR Z|
00001220: 45 49 47 53 55 42 00 40 1A E6 0F 3A 20 20 20 20 |EIGSUB.@...: |
00001230: 20 20 20 20 20 4A 53 52 20 46 41 43 4E 41 52 47 | JSR FACNARG|
00001240: 00 5C 1A F0 0F 3A 20 20 20 20 20 20 20 20 20 4C |.\...: L|
00001250: 44 41 20 23 B3 53 50 41 4C 54 45 4E 00 78 1A FA |DA #.SPALTEN.x..|
00001260: 0F 3A 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 |.: LDX #|
00001270: B1 53 50 41 4C 54 45 4E 00 90 1A 04 10 3A 20 20 |.SPALTEN.....: |
00001280: 20 20 20 20 20 20 20 4A 53 52 20 B5 A4 46 41 43 | JSR ..FAC|
00001290: 00 AA 1A 0E 10 3A 20 20 20 20 20 20 20 20 20 4A |.....: J|
000012A0: 53 52 20 46 41 43 53 41 52 47 00 C0 1A 18 10 3A |SR FACSARG.....:|
000012B0: 20 20 20 20 20 20 20 20 20 4A 53 52 20 44 49 56 | JSR DIV|
000012C0: 00 D7 1A 22 10 3A 20 20 20 20 20 20 20 20 20 4C |...".: L|
000012D0: 44 58 20 23 B3 44 58 00 EE 1A 2C 10 3A 20 20 20 |DX #.DX...,.: |
000012E0: 20 20 20 20 20 20 4C 44 59 20 23 B1 44 58 00 07 | LDY #.DX..|
000012F0: 1B 36 10 3A 20 20 20 20 20 20 20 20 20 4A 53 52 |.6.: JSR|
00001300: 20 46 41 43 4E 4B 91 00 2E 1B 40 10 3A 20 20 20 | FACNK....@.: |
00001310: 20 20 20 20 20 20 4C 44 41 20 23 B3 59 4D 49 4E | LDA #.YMIN|
00001320: 20 3B 44 59 20 42 45 52 45 43 48 4E 45 4E 00 47 | ;DY BERECHNEN.G|
00001330: 1B 4A 10 3A 20 20 20 20 20 20 20 20 20 4C 44 59 |.J.: LDY|
00001340: 20 23 B1 59 4D 49 4E 00 60 1B 54 10 3A 20 20 20 | #.YMIN.`.T.: |
00001350: 20 20 20 20 20 20 4A 53 52 20 4B 91 4E 46 41 43 | JSR K.NFAC|
00001360: 00 79 1B 5E 10 3A 20 20 20 20 20 20 20 20 20 4C |.y.^.: L|
00001370: 44 41 20 23 B3 59 4D 41 58 00 92 1B 68 10 3A 20 |DA #.YMAX...h.: |
00001380: 20 20 20 20 20 20 20 20 4C 44 59 20 23 B1 59 4D | LDY #.YM|
00001390: 41 58 00 AC 1B 72 10 3A 20 20 20 20 20 20 20 20 |AX...r.: |
000013A0: 20 4A 53 52 20 5A 45 49 47 53 55 42 00 C6 1B 7C | JSR ZEIGSUB...||
000013B0: 10 3A 20 20 20 20 20 20 20 20 20 4A 53 52 20 46 |.: JSR F|
000013C0: 41 43 4E 41 52 47 00 DF 1B 86 10 3A 20 20 20 20 |ACNARG.....: |
000013D0: 20 20 20 20 20 4C 44 41 20 23 B3 5A 45 49 C3 00 | LDA #.ZEI..|
000013E0: F8 1B 90 10 3A 20 20 20 20 20 20 20 20 20 4C 44 |....: LD|
000013F0: 58 20 23 B1 5A 45 49 C3 00 10 1C 9A 10 3A 20 20 |X #.ZEI......: |
00001400: 20 20 20 20 20 20 20 4A 53 52 20 B5 A4 46 41 43 | JSR ..FAC|
00001410: 00 2A 1C A4 10 3A 20 20 20 20 20 20 20 20 20 4A |.*...: J|
00001420: 53 52 20 46 41 43 53 41 52 47 00 40 1C AE 10 3A |SR FACSARG.@...:|
00001430: 20 20 20 20 20 20 20 20 20 4A 53 52 20 44 49 56 | JSR DIV|
00001440: 00 57 1C B8 10 3A 20 20 20 20 20 20 20 20 20 4C |.W...: L|
00001450: 44 58 20 23 B3 44 59 00 6E 1C C2 10 3A 20 20 20 |DX #.DY.n...: |
00001460: 20 20 20 20 20 20 4C 44 59 20 23 B1 44 59 00 87 | LDY #.DY..|
00001470: 1C CC 10 3A 20 20 20 20 20 20 20 20 20 4A 53 52 |...: JSR|
00001480: 20 46 41 43 4E 4B 91 00 A9 1C D6 10 3A 20 20 20 | FACNK......: |
00001490: 20 20 20 20 20 20 4C 44 59 20 23 34 20 20 20 20 | LDY #4 |
000014A0: 20 3B 43 58 B2 58 4D 49 4E 00 CB 1C E0 10 4C 31 | ;CX.XMIN.....L1|
000014B0: 33 20 20 20 20 20 20 20 4C 44 41 20 58 4D 49 4E |3 LDA XMIN|
000014C0: 2C 59 20 3B 43 59 B2 59 4D 41 58 00 E2 1C EA 10 |,Y ;CY.YMAX.....|
000014D0: 3A 20 20 20 20 20 20 20 20 20 53 54 41 20 43 58 |: STA CX|
000014E0: 2C 59 00 FB 1C F4 10 3A 20 20 20 20 20 20 20 20 |,Y.....: |
000014F0: 20 4C 44 41 20 59 4D 41 58 2C 59 00 12 1D FE 10 | LDA YMAX,Y.....|
00001500: 3A 20 20 20 20 20 20 20 20 20 53 54 41 20 43 59 |: STA CY|
00001510: 2C 59 00 24 1D 08 11 3A 20 20 20 20 20 20 20 20 |,Y.$...: |
00001520: 20 44 45 59 00 3A 1D 12 11 3A 20 20 20 20 20 20 | DEY.:...: |
00001530: 20 20 20 42 50 4C 20 4C 31 33 00 4F 1D 1C 11 3A | BPL L13.O...:|
00001540: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 00 | LDA #0.|
00001550: 67 1D 26 11 3A 20 20 20 20 20 20 20 20 20 53 54 |g.&.: ST|
00001560: 41 20 5A 45 49 4C 45 00 81 1D 30 11 3A 20 20 20 |A ZEILE...0.: |
00001570: 20 20 20 20 20 20 53 54 41 20 5A 45 49 4C 45 AA | STA ZEILE.|
00001580: 31 00 9A 1D 3A 11 3A 20 20 20 20 20 20 20 20 20 |1...:.: |
00001590: 53 54 41 20 53 50 41 4C 54 45 00 B1 1D 4E 11 3A |STA SPALTE...N.:|
000015A0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 | LDA #$0|
000015B0: 38 00 C5 1D 51 11 3A 20 20 20 20 20 20 20 20 20 |8...Q.: |
000015C0: 53 54 41 20 B9 00 DA 1D 58 11 49 54 45 52 41 54 |STA ....X.ITERAT|
000015D0: 20 20 20 20 4C 44 41 20 23 30 00 F1 1D 62 11 3A | LDA #0...b.:|
000015E0: 20 20 20 20 20 20 20 20 20 53 54 41 20 42 59 54 | STA BYT|
000015F0: 45 00 06 1E 6C 11 49 54 45 52 41 54 31 20 20 20 |E...l.ITERAT1 |
00001600: 4C 44 41 20 23 30 00 1E 1E 76 11 3A 20 20 20 20 |LDA #0...v.: |
00001610: 20 20 20 20 20 53 54 41 20 54 49 45 46 45 00 33 | STA TIEFE.3|
00001620: 1E 80 11 3A 20 20 20 20 20 20 20 20 20 4C 44 59 |...: LDY|
00001630: 20 23 34 00 4D 1E 8A 11 4C 31 35 20 20 20 20 20 | #4.M...L15 |
00001640: 20 20 53 54 41 20 58 57 45 52 54 2C 59 00 67 1E | STA XWERT,Y.g.|
00001650: 94 11 3A 20 20 20 20 20 20 20 20 20 53 54 41 20 |..: STA |
00001660: 59 57 45 52 54 2C 59 00 79 1E 9E 11 3A 20 20 20 |YWERT,Y.y...: |
00001670: 20 20 20 20 20 20 44 45 59 00 8F 1E A8 11 3A 20 | DEY.....: |
00001680: 20 20 20 20 20 20 20 20 42 50 4C 20 4C 31 35 00 | BPL L15.|
00001690: A7 1E AD 11 49 54 45 52 31 20 20 20 20 20 49 4E |....ITER1 IN|
000016A0: 43 20 54 49 45 46 45 00 C2 1E B2 11 3A 20 20 20 |C TIEFE.....: |
000016B0: 20 20 20 20 20 20 4C 44 41 20 54 49 45 46 45 4D | LDA TIEFEM|
000016C0: 41 58 00 E9 1E BC 11 3A 20 20 20 20 20 20 20 20 |AX.....: |
000016D0: 20 43 4D 50 20 54 49 45 46 45 20 3B 22 4D 41 58 | CMP TIEFE ;"MAX|
000016E0: 2E 20 54 49 45 46 45 20 3F 00 01 1F C6 11 3A 20 |. TIEFE ?.....: |
000016F0: 20 20 20 20 20 20 20 20 42 43 53 20 49 54 45 52 | BCS ITER|
00001700: 34 00 26 1F D0 11 3A 20 20 20 20 20 20 20 20 20 |4.&...: |
00001710: 43 4C 43 20 20 20 20 20 20 20 3B 50 55 4E 4B 54 |CLC ;PUNKT|
00001720: 20 43 4C 45 41 52 00 3D 1F DA 11 3A 20 20 20 20 | CLEAR.=...: |
00001730: 20 20 20 20 20 4A 4D 50 20 50 4C 4F 54 00 60 1F | JMP PLOT.`.|
00001740: E4 11 49 54 45 52 34 20 20 20 20 20 4C 44 41 20 |..ITER4 LDA |
00001750: 23 B3 58 57 45 52 54 20 3B 58 57 45 52 54 AE 32 |#.XWERT ;XWERT.2|
00001760: 00 84 1F EE 11 3A 20 20 20 20 20 20 20 20 20 4C |.....: L|
00001770: 44 59 20 23 B1 58 57 45 52 54 20 3B 49 4E 20 58 |DY #.XWERT ;IN X|
00001780: 51 55 41 44 00 9D 1F F8 11 3A 20 20 20 20 20 20 |QUAD.....: |
00001790: 20 20 20 4A 53 52 20 4B 91 4E 46 41 43 00 B7 1F | JSR K.NFAC...|
000017A0: 02 12 3A 20 20 20 20 20 20 20 20 20 4C 44 41 20 |..: LDA |
000017B0: 23 B3 58 57 45 52 54 00 D1 1F 0C 12 3A 20 20 20 |#.XWERT.....: |
000017C0: 20 20 20 20 20 20 4C 44 59 20 23 B1 58 57 45 52 | LDY #.XWER|
000017D0: 54 00 EC 1F 16 12 3A 20 20 20 20 20 20 20 20 20 |T.....: |
000017E0: 4A 53 52 20 5A 45 49 47 4D 55 4C 54 00 05 20 20 |JSR ZEIGMULT.. |
000017F0: 12 3A 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 |.: LDX #|
00001800: 58 51 55 41 44 00 1A 20 2A 12 3A 20 20 20 20 20 |XQUAD.. *.: |
00001810: 20 20 20 20 4C 44 59 20 23 30 00 33 20 34 12 3A | LDY #0.3 4.:|
00001820: 20 20 20 20 20 20 20 20 20 4A 53 52 20 46 41 43 | JSR FAC|
00001830: 4E 4B 91 00 56 20 3E 12 3A 20 20 20 20 20 20 20 |NK..V >.: |
00001840: 20 20 4C 44 41 20 23 B3 59 57 45 52 54 20 3B 59 | LDA #.YWERT ;Y|
00001850: 57 45 52 54 AE 32 00 7A 20 48 12 3A 20 20 20 20 |WERT.2.z H.: |
00001860: 20 20 20 20 20 4C 44 59 20 23 B1 59 57 45 52 54 | LDY #.YWERT|
00001870: 20 3B 49 4E 20 59 51 55 41 44 00 93 20 52 12 3A | ;IN YQUAD.. R.:|
00001880: 20 20 20 20 20 20 20 20 20 4A 53 52 20 4B 91 4E | JSR K.N|
00001890: 46 41 43 00 AD 20 5C 12 3A 20 20 20 20 20 20 20 |FAC.. \.: |
000018A0: 20 20 4C 44 41 20 23 B3 59 57 45 52 54 00 C7 20 | LDA #.YWERT.. |
000018B0: 66 12 3A 20 20 20 20 20 20 20 20 20 4C 44 59 20 |f.: LDY |
000018C0: 23 B1 59 57 45 52 54 00 E2 20 70 12 3A 20 20 20 |#.YWERT.. p.: |
000018D0: 20 20 20 20 20 20 4A 53 52 20 5A 45 49 47 4D 55 | JSR ZEIGMU|
000018E0: 4C 54 00 FB 20 7A 12 3A 20 20 20 20 20 20 20 20 |LT.. z.: |
000018F0: 20 4C 44 58 20 23 59 51 55 41 44 00 22 21 84 12 | LDX #YQUAD."!..|
00001900: 3A 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 30 |: LDY #0|
00001910: 20 20 20 20 3B 58 51 55 41 44 20 AA 20 59 51 55 | ;XQUAD . YQU|
00001920: 41 44 00 3B 21 8E 12 3A 20 20 20 20 20 20 20 20 |AD.;!..: |
00001930: 20 4A 53 52 20 46 41 43 4E 4B 91 00 54 21 98 12 | JSR FACNK..T!..|
00001940: 3A 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 58 |: LDA #X|
00001950: 51 55 41 44 00 69 21 A2 12 3A 20 20 20 20 20 20 |QUAD.i!..: |
00001960: 20 20 20 4C 44 59 20 23 30 00 83 21 AC 12 3A 20 | LDY #0..!..: |
00001970: 20 20 20 20 20 20 20 20 4A 53 52 20 5A 45 49 47 | JSR ZEIG|
00001980: 41 44 44 00 99 21 B6 12 3A 20 20 20 20 20 20 20 |ADD..!..: |
00001990: 20 20 4C 44 41 20 46 41 43 00 BF 21 C0 12 3A 20 | LDA FAC..!..: |
000019A0: 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 38 34 | CMP #$84|
000019B0: 20 20 3B 22 53 55 4D 4D 45 20 3E 20 38 20 3F 00 | ;"SUMME > 8 ?.|
000019C0: D7 21 CA 12 3A 20 20 20 20 20 20 20 20 20 42 43 |.!..: BC|
000019D0: 43 20 49 54 45 52 33 00 EF 21 D4 12 3A 20 20 20 |C ITER3..!..: |
000019E0: 20 20 20 20 20 20 4C 44 41 20 54 49 45 46 45 00 | LDA TIEFE.|
000019F0: 14 22 DE 12 3A 20 20 20 20 20 20 20 20 20 52 B0 |."..: R.|
00001A00: 20 20 20 20 20 20 20 3B 43 41 52 52 59 20 53 45 | ;CARRY SE|
00001A10: 54 5A 45 4E 00 2B 22 E8 12 3A 20 20 20 20 20 20 |TZEN.+"..: |
00001A20: 20 20 20 4A 4D 50 20 50 4C 4F 54 00 4E 22 F2 12 | JMP PLOT.N"..|
00001A30: 49 54 45 52 33 20 20 20 20 20 4C 44 41 20 23 B3 |ITER3 LDA #.|
00001A40: 59 57 45 52 54 20 3B 59 57 45 52 54 20 B2 00 75 |YWERT ;YWERT ..u|
00001A50: 22 FC 12 3A 20 20 20 20 20 20 20 20 20 4C 44 59 |"..: LDY|
00001A60: 20 23 B1 59 57 45 52 54 20 3B 58 57 45 52 54 AC | #.YWERT ;XWERT.|
00001A70: 59 57 45 52 54 00 95 22 06 13 3A 20 20 20 20 20 |YWERT.."..: |
00001A80: 20 20 20 20 4A 53 52 20 4B 91 4E 46 41 43 20 3B | JSR K.NFAC ;|
00001A90: AC 32 AB 43 59 00 AF 22 10 13 3A 20 20 20 20 20 |.2.CY.."..: |
00001AA0: 20 20 20 20 4C 44 41 20 23 B3 58 57 45 52 54 00 | LDA #.XWERT.|
00001AB0: C9 22 1A 13 3A 20 20 20 20 20 20 20 20 20 4C 44 |."..: LD|
00001AC0: 59 20 23 B1 58 57 45 52 54 00 E4 22 24 13 3A 20 |Y #.XWERT.."$.: |
00001AD0: 20 20 20 20 20 20 20 20 4A 53 52 20 5A 45 49 47 | JSR ZEIG|
00001AE0: 4D 55 4C 54 00 FA 22 2E 13 3A 20 20 20 20 20 20 |MULT.."..: |
00001AF0: 20 20 20 4C 44 41 20 46 41 43 00 12 23 38 13 3A | LDA FAC..#8.:|
00001B00: 20 20 20 20 20 20 20 20 20 42 45 51 20 49 54 45 | BEQ ITE|
00001B10: 52 32 00 28 23 42 13 3A 20 20 20 20 20 20 20 20 |R2.(#B.: |
00001B20: 20 49 4E 43 20 46 41 43 00 3F 23 4C 13 49 54 45 | INC FAC.?#L.ITE|
00001B30: 52 32 20 20 20 20 20 4C 44 41 20 23 B3 43 59 00 |R2 LDA #.CY.|
00001B40: 56 23 56 13 3A 20 20 20 20 20 20 20 20 20 4C 44 |V#V.: LD|
00001B50: 59 20 23 B1 43 59 00 70 23 60 13 3A 20 20 20 20 |Y #.CY.p#`.: |
00001B60: 20 20 20 20 20 4A 53 52 20 5A 45 49 47 53 55 42 | JSR ZEIGSUB|
00001B70: 00 89 23 6A 13 3A 20 20 20 20 20 20 20 20 20 4A |..#j.: J|
00001B80: 53 52 20 43 48 53 49 47 4E 00 A3 23 74 13 3A 20 |SR CHSIGN..#t.: |
00001B90: 20 20 20 20 20 20 20 20 4C 44 58 20 23 B3 59 57 | LDX #.YW|
00001BA0: 45 52 54 00 BD 23 7E 13 3A 20 20 20 20 20 20 20 |ERT..#~.: |
00001BB0: 20 20 4C 44 59 20 23 B1 59 57 45 52 54 00 D6 23 | LDY #.YWERT..#|
00001BC0: 88 13 3A 20 20 20 20 20 20 20 20 20 4A 53 52 20 |..: JSR |
00001BD0: 46 41 43 4E 4B 91 00 F9 23 92 13 3A 20 20 20 20 |FACNK...#..: |
00001BE0: 20 20 20 20 20 4C 44 59 20 23 30 20 20 20 20 20 | LDY #0 |
00001BF0: 20 3B 58 57 45 52 54 20 B2 00 20 24 9C 13 3A 20 | ;XWERT .. $..: |
00001C00: 20 20 20 20 20 20 20 20 4C 44 41 20 23 59 51 55 | LDA #YQU|
00001C10: 41 44 20 20 3B 58 51 55 41 44 AB 59 51 55 41 44 |AD ;XQUAD.YQUAD|
00001C20: 00 3E 24 A6 13 3A 20 20 20 20 20 20 20 20 20 4A |.>$..: J|
00001C30: 53 52 20 4B 91 4E 46 41 43 20 3B AB 43 58 00 53 |SR K.NFAC ;.CX.S|
00001C40: 24 B0 13 3A 20 20 20 20 20 20 20 20 20 4C 44 59 |$..: LDY|
00001C50: 20 23 30 00 6C 24 BA 13 3A 20 20 20 20 20 20 20 | #0.l$..: |
00001C60: 20 20 4C 44 41 20 23 58 51 55 41 44 00 86 24 C4 | LDA #XQUAD..$.|
00001C70: 13 3A 20 20 20 20 20 20 20 20 20 4A 53 52 20 5A |.: JSR Z|
00001C80: 45 49 47 53 55 42 00 9D 24 CE 13 3A 20 20 20 20 |EIGSUB..$..: |
00001C90: 20 20 20 20 20 4C 44 41 20 23 B3 43 58 00 B4 24 | LDA #.CX..$|
00001CA0: D8 13 3A 20 20 20 20 20 20 20 20 20 4C 44 59 20 |..: LDY |
00001CB0: 23 B1 43 58 00 CE 24 E2 13 3A 20 20 20 20 20 20 |#.CX..$..: |
00001CC0: 20 20 20 4A 53 52 20 5A 45 49 47 53 55 42 00 E7 | JSR ZEIGSUB..|
00001CD0: 24 EC 13 3A 20 20 20 20 20 20 20 20 20 4A 53 52 |$..: JSR|
00001CE0: 20 43 48 53 49 47 4E 00 01 25 F6 13 3A 20 20 20 | CHSIGN..%..: |
00001CF0: 20 20 20 20 20 20 4C 44 58 20 23 B3 58 57 45 52 | LDX #.XWER|
00001D00: 54 00 1B 25 00 14 3A 20 20 20 20 20 20 20 20 20 |T..%..: |
00001D10: 4C 44 59 20 23 B1 58 57 45 52 54 00 34 25 0A 14 |LDY #.XWERT.4%..|
00001D20: 3A 20 20 20 20 20 20 20 20 20 4A 53 52 20 46 41 |: JSR FA|
00001D30: 43 4E 4B 91 00 4C 25 14 14 3A 20 20 20 20 20 20 |CNK..L%..: |
00001D40: 20 20 20 4A 4D 50 20 49 54 45 52 31 00 72 25 50 | JMP ITER1.r%P|
00001D50: 14 50 4C 4F 54 20 20 20 20 20 20 4C 44 41 20 42 |.PLOT LDA B|
00001D60: 59 54 45 20 3B 53 45 54 5A 45 20 42 49 54 20 4D |YTE ;SETZE BIT M|
00001D70: 49 54 00 90 25 5A 14 3A 20 20 20 20 20 20 20 20 |IT..%Z.: |
00001D80: 20 52 4F 4C 20 20 20 20 20 20 3B 43 41 52 52 59 | ROL ;CARRY|
00001D90: 00 A7 25 64 14 3A 20 20 20 20 20 20 20 20 20 53 |..%d.: S|
00001DA0: 54 41 20 42 59 54 45 00 C6 25 69 14 3A 20 20 20 |TA BYTE..%i.: |
00001DB0: 20 20 20 20 20 20 49 4E 43 20 35 33 32 38 30 20 | INC 53280 |
00001DC0: 3B 46 41 52 42 45 00 E7 25 6E 14 3A 20 20 20 20 |;FARBE..%n.: |
00001DD0: 20 20 20 20 20 4C 44 41 20 23 B3 43 58 20 3B 43 | LDA #.CX ;C|
00001DE0: 58 B2 43 58 AA 44 58 00 FE 25 78 14 3A 20 20 20 |X.CX.DX..%x.: |
00001DF0: 20 20 20 20 20 20 4C 44 59 20 23 B1 43 58 00 17 | LDY #.CX..|
00001E00: 26 82 14 3A 20 20 20 20 20 20 20 20 20 4A 53 52 |&..: JSR|
00001E10: 20 4B 91 4E 46 41 43 00 2E 26 8C 14 3A 20 20 20 | K.NFAC..&..: |
00001E20: 20 20 20 20 20 20 4C 44 41 20 23 B3 44 58 00 45 | LDA #.DX.E|
00001E30: 26 96 14 3A 20 20 20 20 20 20 20 20 20 4C 44 59 |&..: LDY|
00001E40: 20 23 B1 44 58 00 5F 26 A0 14 3A 20 20 20 20 20 | #.DX._&..: |
00001E50: 20 20 20 20 4A 53 52 20 5A 45 49 47 41 44 44 00 | JSR ZEIGADD.|
00001E60: 76 26 AA 14 3A 20 20 20 20 20 20 20 20 20 4C 44 |v&..: LD|
00001E70: 58 20 23 B3 43 58 00 8D 26 B4 14 3A 20 20 20 20 |X #.CX..&..: |
00001E80: 20 20 20 20 20 4C 44 59 20 23 B1 43 58 00 A6 26 | LDY #.CX..&|
00001E90: BE 14 3A 20 20 20 20 20 20 20 20 20 4A 53 52 20 |..: JSR |
00001EA0: 46 41 43 4E 4B 91 00 BA 26 C8 14 3A 20 20 20 20 |FACNK...&..: |
00001EB0: 20 20 20 20 20 44 45 43 20 B9 00 D3 26 D2 14 3A | DEC ...&..:|
00001EC0: 20 20 20 20 20 20 20 20 20 42 45 51 20 41 50 46 | BEQ APF|
00001ED0: 45 4C 31 00 ED 26 DC 14 3A 20 20 20 20 20 20 20 |EL1..&..: |
00001EE0: 20 20 4A 4D 50 20 49 54 45 52 41 54 31 00 03 27 | JMP ITERAT1..'|
00001EF0: E6 14 41 50 46 45 4C 31 20 20 20 20 4C 44 41 20 |..APFEL1 LDA |
00001F00: 23 30 38 00 17 27 F0 14 3A 20 20 20 20 20 20 20 |#08..'..: |
00001F10: 20 20 53 54 41 20 B9 00 31 27 FA 14 3A 20 20 20 | STA ..1'..: |
00001F20: 20 20 20 20 20 20 4A 53 52 20 53 45 54 42 59 54 | JSR SETBYT|
00001F30: 45 00 4A 27 04 15 3A 20 20 20 20 20 20 20 20 20 |E.J'..: |
00001F40: 49 4E 43 20 53 50 41 4C 54 45 00 63 27 0E 15 3A |INC SPALTE.c'..:|
00001F50: 20 20 20 20 20 20 20 20 20 4C 44 41 20 53 50 41 | LDA SPA|
00001F60: 4C 54 45 00 82 27 18 15 3A 20 20 20 20 20 20 20 |LTE..'..: |
00001F70: 20 20 43 4D 50 20 23 38 30 20 3B 44 52 55 43 4B | CMP #80 ;DRUCK|
00001F80: 45 52 00 9B 27 22 15 3A 20 20 20 20 20 20 20 20 |ER..'".: |
00001F90: 20 42 45 51 20 41 50 46 45 4C 32 00 B4 27 2C 15 | BEQ APFEL2..',.|
00001FA0: 3A 20 20 20 20 20 20 20 20 20 4A 4D 50 20 49 54 |: JMP IT|
00001FB0: 45 52 41 54 00 C9 27 36 15 41 50 46 45 4C 32 20 |ERAT..'6.APFEL2 |
00001FC0: 20 20 20 4C 44 41 20 23 30 00 E2 27 40 15 3A 20 | LDA #0..'@.: |
00001FD0: 20 20 20 20 20 20 20 20 53 54 41 20 53 50 41 4C | STA SPAL|
00001FE0: 54 45 00 04 28 4A 15 3A 20 20 20 20 20 20 20 20 |TE..(J.: |
00001FF0: 20 4C 44 59 20 23 35 20 20 20 20 20 3B 43 58 B2 | LDY #5 ;CX.|
00002000: 58 4D 49 4E 00 1D 28 54 15 4C 33 30 20 20 20 20 |XMIN..(T.L30 |
00002010: 20 20 20 4C 44 41 20 58 4D 49 4E 2C 59 00 34 28 | LDA XMIN,Y.4(|
00002020: 5E 15 3A 20 20 20 20 20 20 20 20 20 53 54 41 20 |^.: STA |
00002030: 43 58 2C 59 00 46 28 68 15 3A 20 20 20 20 20 20 |CX,Y.F(h.: |
00002040: 20 20 20 44 45 59 00 5C 28 72 15 3A 20 20 20 20 | DEY.\(r.: |
00002050: 20 20 20 20 20 42 50 4C 20 4C 33 30 00 74 28 7C | BPL L30.t(||
00002060: 15 3A 20 20 20 20 20 20 20 20 20 49 4E 43 20 5A |.: INC Z|
00002070: 45 49 4C 45 00 89 28 86 15 3A 20 20 20 20 20 20 |EILE..(..: |
00002080: 20 20 20 42 4E 45 20 57 31 00 A3 28 90 15 3A 20 | BNE W1..(..: |
00002090: 20 20 20 20 20 20 20 20 49 4E 43 20 5A 45 49 4C | INC ZEIL|
000020A0: 45 AA 31 00 BD 28 9A 15 57 31 20 20 20 20 20 20 |E.1..(..W1 |
000020B0: 20 20 4C 44 41 20 5A 45 49 4C 45 AA 31 00 D6 28 | LDA ZEILE.1..(|
000020C0: A4 15 3A 20 20 20 20 20 20 20 20 20 43 4D 50 20 |..: CMP |
000020D0: 23 B1 5A 45 49 C3 00 EB 28 AE 15 3A 20 20 20 20 |#.ZEI...(..: |
000020E0: 20 20 20 20 20 42 43 43 20 57 32 00 03 29 B8 15 | BCC W2..)..|
000020F0: 3A 20 20 20 20 20 20 20 20 20 4C 44 41 20 5A 45 |: LDA ZE|
00002100: 49 4C 45 00 1C 29 C2 15 3A 20 20 20 20 20 20 20 |ILE..)..: |
00002110: 20 20 43 4D 50 20 23 B3 5A 45 49 C3 00 31 29 CC | CMP #.ZEI..1).|
00002120: 15 3A 20 20 20 20 20 20 20 20 20 42 43 43 20 57 |.: BCC W|
00002130: 32 00 4A 29 D6 15 3A 20 20 20 20 20 20 20 20 20 |2.J)..: |
00002140: 4A 4D 50 20 80 41 50 46 45 4C 00 6E 29 E0 15 57 |JMP .APFEL.n)..W|
00002150: 32 20 20 20 20 20 20 20 20 4C 44 41 20 23 B3 44 |2 LDA #.D|
00002160: 59 20 20 20 20 3B 43 59 B2 43 59 AB 44 59 00 85 |Y ;CY.CY.DY..|
00002170: 29 EA 15 3A 20 20 20 20 20 20 20 20 20 4C 44 59 |)..: LDY|
00002180: 20 23 B1 44 59 00 9E 29 F4 15 3A 20 20 20 20 20 | #.DY..)..: |
00002190: 20 20 20 20 4A 53 52 20 4B 91 4E 46 41 43 00 B5 | JSR K.NFAC..|
000021A0: 29 FE 15 3A 20 20 20 20 20 20 20 20 20 4C 44 41 |)..: LDA|
000021B0: 20 23 B3 43 59 00 CC 29 08 16 3A 20 20 20 20 20 | #.CY..)..: |
000021C0: 20 20 20 20 4C 44 59 20 23 B1 43 59 00 E6 29 12 | LDY #.CY..).|
000021D0: 16 3A 20 20 20 20 20 20 20 20 20 4A 53 52 20 5A |.: JSR Z|
000021E0: 45 49 47 53 55 42 00 FD 29 1C 16 3A 20 20 20 20 |EIGSUB..)..: |
000021F0: 20 20 20 20 20 4C 44 58 20 23 B3 43 59 00 14 2A | LDX #.CY..*|
00002200: 26 16 3A 20 20 20 20 20 20 20 20 20 4C 44 59 20 |&.: LDY |
00002210: 23 B1 43 59 00 2D 2A 30 16 3A 20 20 20 20 20 20 |#.CY.-*0.: |
00002220: 20 20 20 4A 53 52 20 46 41 43 4E 4B 91 00 46 2A | JSR FACNK..F*|
00002230: 3A 16 3A 20 20 20 20 20 20 20 20 20 4A 4D 50 20 |:.: JMP |
00002240: 49 54 45 52 41 54 00 56 2A 44 16 80 41 50 46 45 |ITERAT.V*D..APFE|
00002250: 4C 20 20 43 4C 49 00 68 2A 4E 16 3A 20 20 20 20 |L CLI.h*N.: |
00002260: 20 20 20 20 20 52 54 53 00 6E 2A 66 17 3B 00 74 | RTS.n*f.;.t|
00002270: 2A 6B 17 3B 00 9B 2A 70 17 53 45 54 42 59 54 45 |*k.;..*p.SETBYTE|
00002280: 20 20 20 4C 44 59 20 23 24 30 30 20 3B 42 59 54 | LDY #$00 ;BYT|
00002290: 45 20 53 50 45 49 43 48 45 52 4E 00 B2 2A 75 17 |E SPEICHERN..*u.|
000022A0: 3A 20 20 20 20 20 20 20 20 20 4C 44 41 20 42 59 |: LDA BY|
000022B0: 54 45 00 CF 2A 7F 17 3A 20 20 20 20 20 20 20 20 |TE..*..: |
000022C0: 20 53 54 41 20 28 53 50 5A 45 49 47 29 2C 59 00 | STA (SPZEIG),Y.|
000022D0: E8 2A A2 17 3A 20 20 20 20 20 20 20 20 20 49 4E |.*..: IN|
000022E0: 43 20 53 50 5A 45 49 47 00 FF 2A AC 17 3A 20 20 |C SPZEIG..*..: |
000022F0: 20 20 20 20 20 20 20 42 4E 45 20 53 50 57 31 00 | BNE SPW1.|
00002300: 1A 2B B6 17 3A 20 20 20 20 20 20 20 20 20 49 4E |.+..: IN|
00002310: 43 20 53 50 5A 45 49 47 AA 31 00 2C 2B C0 17 53 |C SPZEIG.1.,+..S|
00002320: 50 57 31 20 20 20 20 20 20 52 54 53 00 32 2B CA |PW1 RTS.2+.|
00002330: 17 3B 00 43 2B 10 27 94 20 20 20 20 20 4C 44 41 |.;.C+.'. LDA|
00002340: 20 23 38 00 58 2B 1A 27 3A 20 20 20 20 20 20 20 | #8.X+.': |
00002350: 20 4C 44 58 20 23 30 38 00 6C 2B 24 27 3A 20 20 | LDX #08.l+$': |
00002360: 20 20 20 20 20 20 4C 44 59 20 23 31 00 83 2B 2E | LDY #1..+.|
00002370: 27 3A 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 |': JSR $F|
00002380: 46 42 41 00 99 2B 38 27 3A 20 20 20 20 20 20 20 |FBA..+8': |
00002390: 20 4C 44 41 20 4E 41 4D C3 00 B2 2B 42 27 3A 20 | LDA NAM...+B': |
000023A0: 20 20 20 20 20 20 20 4C 44 58 20 23 B3 24 30 33 | LDX #.$03|
000023B0: 33 43 00 CB 2B 4C 27 3A 20 20 20 20 20 20 20 20 |3C..+L': |
000023C0: 4C 44 59 20 23 B1 24 30 33 33 43 00 E2 2B 56 27 |LDY #.$033C..+V'|
000023D0: 3A 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 46 |: JSR $FF|
000023E0: 42 44 00 F9 2B 60 27 3A 20 20 20 20 20 20 20 20 |BD..+`': |
000023F0: 4A 53 52 20 24 46 46 43 30 00 0D 2C 6A 27 3A 20 |JSR $FFC0..,j': |
00002400: 20 20 20 20 20 20 20 4C 44 58 20 23 38 00 24 2C | LDX #8.$,|
00002410: 74 27 3A 20 20 20 20 20 20 20 20 4A 53 52 20 24 |t': JSR $|
00002420: 46 46 43 39 00 3D 2C 7E 27 3A 20 20 20 20 20 20 |FFC9.=,~': |
00002430: 20 20 4C 44 41 20 23 B3 24 32 30 30 30 00 55 2C | LDA #.$2000.U,|
00002440: 80 27 3A 20 20 20 20 20 20 20 20 4A 53 52 20 49 |.': JSR I|
00002450: 45 43 4F 55 54 00 6A 2C 82 27 3A 20 20 20 20 20 |ECOUT.j,.': |
00002460: 20 20 20 4C 44 41 20 24 39 30 00 7F 2C 83 27 3A | LDA $90..,.':|
00002470: 20 20 20 20 20 20 20 20 42 4D 49 20 94 80 45 00 | BMI ..E.|
00002480: 98 2C 84 27 3A 20 20 20 20 20 20 20 20 4C 44 41 |.,.': LDA|
00002490: 20 23 B1 24 32 30 30 30 00 B0 2C 85 27 3A 20 20 | #.$2000..,.': |
000024A0: 20 20 20 20 20 20 4A 53 52 20 49 45 43 4F 55 54 | JSR IECOUT|
000024B0: 00 C5 2C 86 27 3A 20 20 20 20 20 20 20 20 4C 44 |..,.': LD|
000024C0: 41 20 24 39 30 00 DA 2C 87 27 3A 20 20 20 20 20 |A $90..,.': |
000024D0: 20 20 20 42 4D 49 20 94 80 45 00 FC 2C 88 27 3A | BMI ..E..,.':|
000024E0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 B3 24 32 | LDA #.$2|
000024F0: 30 30 30 20 20 3B 24 32 30 30 30 AB 00 14 2D 8D |000 ;$2000...-.|
00002500: 27 3A 20 20 20 20 20 20 20 20 53 54 41 20 53 50 |': STA SP|
00002510: 5A 45 49 47 00 2D 2D 92 27 3A 20 20 20 20 20 20 |ZEIG.--.': |
00002520: 20 20 4C 44 41 20 23 B1 24 32 30 30 30 00 47 2D | LDA #.$2000.G-|
00002530: 9C 27 3A 20 20 20 20 20 20 20 20 53 54 41 20 53 |.': STA S|
00002540: 50 5A 45 49 47 AA 31 00 5D 2D A6 27 3A 20 20 20 |PZEIG.1.]-.': |
00002550: 20 20 20 20 20 4C 44 59 20 23 24 30 30 00 76 2D | LDY #$00.v-|
00002560: B0 27 94 4C 4F 4F 50 20 4C 44 41 20 28 53 50 5A |.'.LOOP LDA (SPZ|
00002570: 45 49 47 29 2C 59 00 8E 2D BA 27 3A 20 20 20 20 |EIG),Y..-.': |
00002580: 20 20 20 20 4A 53 52 20 49 45 43 4F 55 54 00 A3 | JSR IECOUT..|
00002590: 2D BE 27 3A 20 20 20 20 20 20 20 20 4C 44 41 20 |-.': LDA |
000025A0: 24 39 30 00 B8 2D C2 27 3A 20 20 20 20 20 20 20 |$90..-.': |
000025B0: 20 42 4D 49 20 94 80 45 00 D0 2D C4 27 3A 20 20 | BMI ..E..-.': |
000025C0: 20 20 20 20 20 20 49 4E 43 20 53 50 5A 45 49 47 | INC SPZEIG|
000025D0: 00 E5 2D CE 27 3A 20 20 20 20 20 20 20 20 42 4E |..-.': BN|
000025E0: 45 20 94 57 31 00 07 2E D8 27 3A 20 20 20 20 20 |E .W1....': |
000025F0: 20 20 20 49 4E 43 20 53 50 5A 45 49 47 AA 31 20 | INC SPZEIG.1 |
00002600: 3B AB 34 30 31 39 32 00 1E 2E E2 27 94 57 31 20 |;.40192....'.W1 |
00002610: 20 20 4C 44 41 20 53 50 5A 45 49 47 AA 31 00 3D | LDA SPZEIG.1.=|
00002620: 2E EC 27 3A 20 20 20 20 20 20 20 20 43 4D 50 20 |..': CMP |
00002630: 23 B1 33 32 30 30 31 AA 24 32 30 30 30 00 54 2E |#.32001.$2000.T.|
00002640: F6 27 3A 20 20 20 20 20 20 20 20 42 4E 45 20 94 |.': BNE .|
00002650: 4C 4F 4F 50 00 6C 2E 00 28 3A 20 20 20 20 20 20 |LOOP.l..(: |
00002660: 20 20 4C 44 41 20 53 50 5A 45 49 47 00 8B 2E 0A | LDA SPZEIG....|
00002670: 28 3A 20 20 20 20 20 20 20 20 43 4D 50 20 23 B3 |(: CMP #.|
00002680: 33 32 30 30 31 AA 24 32 30 30 30 00 A2 2E 14 28 |32001.$2000....(|
00002690: 3A 20 20 20 20 20 20 20 20 42 4E 45 20 94 4C 4F |: BNE .LO|
000026A0: 4F 50 00 C4 2E 1E 28 3A 20 20 20 20 20 20 20 20 |OP....(: |
000026B0: 4C 44 58 20 23 24 30 30 20 20 20 20 3B 56 41 52 |LDX #$00 ;VAR|
000026C0: 49 41 42 C3 00 DA 2E 28 28 94 4C 31 20 20 20 4C |IAB....((.L1 L|
000026D0: 44 41 20 24 43 46 30 30 2C 58 00 F2 2E 32 28 3A |DA $CF00,X...2(:|
000026E0: 20 20 20 20 20 20 20 20 4A 53 52 20 49 45 43 4F | JSR IECO|
000026F0: 55 54 00 03 2F 3C 28 3A 20 20 20 20 20 20 20 20 |UT../<(: |
00002700: 49 4E 58 00 18 2F 46 28 3A 20 20 20 20 20 20 20 |INX../F(: |
00002710: 20 42 4E 45 20 94 4C 31 00 28 2F 50 28 94 80 45 | BNE .L1.(/P(..E|
00002720: 20 4C 44 41 20 23 30 38 00 3F 2F 5A 28 3A 20 20 | LDA #08.?/Z(: |
00002730: 20 20 20 20 20 20 4A 53 52 20 24 46 46 43 33 00 | JSR $FFC3.|
00002740: 56 2F 64 28 3A 20 20 20 20 20 20 20 20 4A 4D 50 |V/d(: JMP|
00002750: 20 24 46 46 43 43 00 5C 2F 6E 28 3B 00 6D 2F F8 | $FFCC.\/n(;.m/.|
00002760: 2A 93 20 20 20 20 20 4C 44 41 20 23 38 00 82 2F |*. LDA #8../|
00002770: 02 2B 3A 20 20 20 20 20 20 20 20 4C 44 58 20 23 |.+: LDX #|
00002780: 30 38 00 96 2F 0C 2B 3A 20 20 20 20 20 20 20 20 |08../.+: |
00002790: 4C 44 59 20 23 30 00 AD 2F 16 2B 3A 20 20 20 20 |LDY #0../.+: |
000027A0: 20 20 20 20 4A 53 52 20 24 46 46 42 41 00 C3 2F | JSR $FFBA../|
000027B0: 20 2B 3A 20 20 20 20 20 20 20 20 4C 44 41 20 4E | +: LDA N|
000027C0: 41 4D C3 00 DC 2F 2A 2B 3A 20 20 20 20 20 20 20 |AM.../*+: |
000027D0: 20 4C 44 58 20 23 B3 24 30 33 33 43 00 F5 2F 34 | LDX #.$033C../4|
000027E0: 2B 3A 20 20 20 20 20 20 20 20 4C 44 59 20 23 B1 |+: LDY #.|
000027F0: 24 30 33 33 43 00 0C 30 3E 2B 3A 20 20 20 20 20 |$033C..0>+: |
00002800: 20 20 20 4A 53 52 20 24 46 46 42 44 00 23 30 48 | JSR $FFBD.#0H|
00002810: 2B 3A 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 |+: JSR $F|
00002820: 46 43 30 00 37 30 52 2B 3A 20 20 20 20 20 20 20 |FC0.70R+: |
00002830: 20 4C 44 58 20 23 38 00 4E 30 5C 2B 3A 20 20 20 | LDX #8.N0\+: |
00002840: 20 20 20 20 20 4A 53 52 20 24 46 46 43 36 00 65 | JSR $FFC6.e|
00002850: 30 5D 2B 3A 20 20 20 20 20 20 20 20 4A 53 52 20 |0]+: JSR |
00002860: 49 45 43 49 4E 00 7A 30 5E 2B 3A 20 20 20 20 20 |IECIN.z0^+: |
00002870: 20 20 20 4C 44 41 20 24 39 30 00 8B 30 5F 2B 3A | LDA $90..0_+:|
00002880: 20 20 20 20 20 20 20 20 4C 53 52 00 9C 30 60 2B | LSR..0`+|
00002890: 3A 20 20 20 20 20 20 20 20 4C 53 52 00 B1 30 61 |: LSR..0a|
000028A0: 2B 3A 20 20 20 20 20 20 20 20 42 43 53 20 93 80 |+: BCS ..|
000028B0: 45 00 C8 30 62 2B 3A 20 20 20 20 20 20 20 20 4A |E..0b+: J|
000028C0: 53 52 20 49 45 43 49 4E 00 E9 30 66 2B 3A 20 20 |SR IECIN..0f+: |
000028D0: 20 20 20 20 20 20 4C 44 41 20 23 B3 24 32 30 30 | LDA #.$200|
000028E0: 30 20 20 3B 24 32 30 30 30 00 01 31 70 2B 3A 20 |0 ;$2000..1p+: |
000028F0: 20 20 20 20 20 20 20 53 54 41 20 53 50 5A 45 49 | STA SPZEI|
00002900: 47 00 1A 31 7A 2B 3A 20 20 20 20 20 20 20 20 4C |G..1z+: L|
00002910: 44 41 20 23 B1 24 32 30 30 30 00 34 31 84 2B 3A |DA #.$2000.41.+:|
00002920: 20 20 20 20 20 20 20 20 53 54 41 20 53 50 5A 45 | STA SPZE|
00002930: 49 47 AA 31 00 4A 31 8E 2B 3A 20 20 20 20 20 20 |IG.1.J1.+: |
00002940: 20 20 4C 44 59 20 23 24 30 30 00 5E 31 98 2B 93 | LDY #$00.^1.+.|
00002950: 4C 4F 4F 50 20 4A 53 52 20 49 45 43 49 4E 00 7A |LOOP JSR IECIN.z|
00002960: 31 A2 2B 3A 20 20 20 20 20 20 20 20 53 54 41 20 |1.+: STA |
00002970: 28 53 50 5A 45 49 47 29 2C 59 00 92 31 AC 2B 3A |(SPZEIG),Y..1.+:|
00002980: 20 20 20 20 20 20 20 20 49 4E 43 20 53 50 5A 45 | INC SPZE|
00002990: 49 47 00 A7 31 B6 2B 3A 20 20 20 20 20 20 20 20 |IG..1.+: |
000029A0: 42 4E 45 20 93 57 31 00 C1 31 C0 2B 3A 20 20 20 |BNE .W1..1.+: |
000029B0: 20 20 20 20 20 49 4E 43 20 53 50 5A 45 49 47 AA | INC SPZEIG.|
000029C0: 31 00 E0 31 CA 2B 93 57 31 20 20 20 4C 44 41 20 |1..1.+.W1 LDA |
000029D0: 53 50 5A 45 49 47 AA 31 20 3B AB 34 30 31 39 32 |SPZEIG.1 ;.40192|
000029E0: 00 01 32 D4 2B 3A 20 20 20 20 20 20 20 20 43 4D |..2.+: CM|
000029F0: 50 20 23 B1 28 33 32 30 30 31 AA 24 32 30 30 30 |P #.(32001.$2000|
00002A00: 29 00 18 32 DE 2B 3A 20 20 20 20 20 20 20 20 42 |)..2.+: B|
00002A10: 4E 45 20 93 4C 4F 4F 50 00 30 32 E8 2B 3A 20 20 |NE .LOOP.02.+: |
00002A20: 20 20 20 20 20 20 4C 44 41 20 53 50 5A 45 49 47 | LDA SPZEIG|
00002A30: 00 51 32 F2 2B 3A 20 20 20 20 20 20 20 20 43 4D |.Q2.+: CM|
00002A40: 50 20 23 B3 28 33 32 30 30 31 AA 24 32 30 30 30 |P #.(32001.$2000|
00002A50: 29 00 68 32 FC 2B 3A 20 20 20 20 20 20 20 20 42 |).h2.+: B|
00002A60: 4E 45 20 93 4C 4F 4F 50 00 7E 32 06 2C 3A 20 20 |NE .LOOP.~2.,: |
00002A70: 20 20 20 20 20 20 4C 44 58 20 23 24 30 30 00 9D | LDX #$00..|
00002A80: 32 10 2C 93 4C 31 20 20 20 4A 53 52 20 49 45 43 |2.,.L1 JSR IEC|
00002A90: 49 4E 20 20 20 3B 56 41 52 49 41 42 C3 00 B6 32 |IN ;VARIAB...2|
00002AA0: 1A 2C 3A 20 20 20 20 20 20 20 20 53 54 41 20 24 |.,: STA $|
00002AB0: 43 46 30 30 2C 58 00 C7 32 24 2C 3A 20 20 20 20 |CF00,X..2$,: |
00002AC0: 20 20 20 20 49 4E 58 00 DC 32 2E 2C 3A 20 20 20 | INX..2.,: |
00002AD0: 20 20 20 20 20 42 4E 45 20 93 4C 31 00 EE 32 38 | BNE .L1..28|
00002AE0: 2C 93 80 45 20 4A 53 52 20 24 46 46 43 43 00 03 |,..E JSR $FFCC..|
00002AF0: 33 42 2C 3A 20 20 20 20 20 20 20 20 4C 44 41 20 |3B,: LDA |
00002B00: 23 30 38 00 1A 33 4C 2C 3A 20 20 20 20 20 20 20 |#08..3L,: |
00002B10: 20 4A 53 52 20 24 46 46 43 33 00 3D 33 56 2C 3A | JSR $FFC3.=3V,:|
00002B20: 20 20 20 20 20 20 20 20 4C 44 41 20 23 B3 58 4D | LDA #.XM|
00002B30: 49 4E 20 20 3B 57 45 52 54 45 20 49 4E 00 5E 33 |IN ;WERTE IN.^3|
00002B40: 60 2C 3A 20 20 20 20 20 20 20 20 4C 44 59 20 23 |`,: LDY #|
00002B50: B1 58 4D 49 4E 20 20 3B 42 41 53 49 43 AB 00 7F |.XMIN ;BASIC...|
00002B60: 33 6A 2C 3A 20 20 20 20 20 20 20 20 4A 53 52 20 |3j,: JSR |
00002B70: 4B 91 4E 46 41 43 20 3B 56 41 52 49 41 42 C3 00 |K.NFAC ;VARIAB..|
00002B80: A3 33 74 2C 3A 20 20 20 20 20 20 20 20 4C 44 41 |.3t,: LDA|
00002B90: 20 23 22 4C 22 20 20 20 20 3B 53 43 48 52 45 49 | #"L" ;SCHREI|
00002BA0: 42 45 4E 00 B9 33 7E 2C 3A 20 20 20 20 20 20 20 |BEN..3~,: |
00002BB0: 20 4C 44 59 20 23 22 49 22 00 D1 33 88 2C 3A 20 | LDY #"I"..3.,: |
00002BC0: 20 20 20 20 20 20 20 4A 53 52 20 46 41 43 56 41 | JSR FACVA|
00002BD0: 52 00 E9 33 A6 2C 3A 20 20 20 20 20 20 20 20 4C |R..3.,: L|
00002BE0: 44 41 20 23 B3 58 4D 41 58 00 01 34 B0 2C 3A 20 |DA #.XMAX..4.,: |
00002BF0: 20 20 20 20 20 20 20 4C 44 59 20 23 B1 58 4D 41 | LDY #.XMA|
00002C00: 58 00 19 34 BA 2C 3A 20 20 20 20 20 20 20 20 4A |X..4.,: J|
00002C10: 53 52 20 4B 91 4E 46 41 43 00 2F 34 C4 2C 3A 20 |SR K.NFAC./4.,: |
00002C20: 20 20 20 20 20 20 20 4C 44 41 20 23 22 52 22 00 | LDA #"R".|
00002C30: 45 34 CE 2C 3A 20 20 20 20 20 20 20 20 4C 44 59 |E4.,: LDY|
00002C40: 20 23 22 45 22 00 5D 34 D8 2C 3A 20 20 20 20 20 | #"E".]4.,: |
00002C50: 20 20 20 4A 53 52 20 46 41 43 56 41 52 00 75 34 | JSR FACVAR.u4|
00002C60: E2 2C 3A 20 20 20 20 20 20 20 20 4C 44 41 20 23 |.,: LDA #|
00002C70: B3 59 4D 49 4E 00 8D 34 EC 2C 3A 20 20 20 20 20 |.YMIN..4.,: |
00002C80: 20 20 20 4C 44 59 20 23 B1 59 4D 49 4E 00 A5 34 | LDY #.YMIN..4|
00002C90: F6 2C 3A 20 20 20 20 20 20 20 20 4A 53 52 20 4B |.,: JSR K|
00002CA0: 91 4E 46 41 43 00 BB 34 00 2D 3A 20 20 20 20 20 |.NFAC..4.-: |
00002CB0: 20 20 20 4C 44 41 20 23 22 4F 22 00 D1 34 0A 2D | LDA #"O"..4.-|
00002CC0: 3A 20 20 20 20 20 20 20 20 4C 44 59 20 23 22 42 |: LDY #"B|
00002CD0: 22 00 E9 34 14 2D 3A 20 20 20 20 20 20 20 20 4A |"..4.-: J|
00002CE0: 53 52 20 46 41 43 56 41 52 00 01 35 1E 2D 3A 20 |SR FACVAR..5.-: |
00002CF0: 20 20 20 20 20 20 20 4C 44 41 20 23 B3 59 4D 41 | LDA #.YMA|
00002D00: 58 00 19 35 28 2D 3A 20 20 20 20 20 20 20 20 4C |X..5(-: L|
00002D10: 44 59 20 23 B1 59 4D 41 58 00 31 35 32 2D 3A 20 |DY #.YMAX.152-: |
00002D20: 20 20 20 20 20 20 20 4A 53 52 20 4B 91 4E 46 41 | JSR K.NFA|
00002D30: 43 00 47 35 3C 2D 3A 20 20 20 20 20 20 20 20 4C |C.G5<-: L|
00002D40: 44 41 20 23 22 55 22 00 5D 35 46 2D 3A 20 20 20 |DA #"U".]5F-: |
00002D50: 20 20 20 20 20 4C 44 59 20 23 22 4E 22 00 75 35 | LDY #"N".u5|
00002D60: 50 2D 3A 20 20 20 20 20 20 20 20 4A 4D 50 20 46 |P-: JMP F|
00002D70: 41 43 56 41 52 00 7B 35 5A 2D 3A 00 9E 35 64 2D |ACVAR.{5Z-:..5d-|
00002D80: 46 41 43 56 41 52 20 20 20 53 54 41 20 24 34 35 |FACVAR STA $45|
00002D90: 20 20 20 20 20 3B 53 43 48 52 45 49 42 54 00 C3 | ;SCHREIBT..|
00002DA0: 35 6E 2D 3A 20 20 20 20 20 20 20 20 53 54 59 20 |5n-: STY |
00002DB0: 24 34 36 20 20 20 20 20 3B 46 41 43 20 49 4E 20 |$46 ;FAC IN |
00002DC0: 56 41 52 00 E9 35 78 2D 3A 20 20 20 20 20 20 20 |VAR..5x-: |
00002DD0: 20 4A 53 52 20 53 55 43 48 56 41 52 20 3B 4D 49 | JSR SUCHVAR ;MI|
00002DE0: 54 20 4E 41 4D 45 20 49 4E 00 07 36 82 2D 3A 20 |T NAME IN..6.-: |
00002DF0: 20 20 20 20 20 20 20 54 41 58 20 20 20 20 20 20 | TAX |
00002E00: 20 20 20 3B 41 AD 59 00 1F 36 8C 2D 3A 20 20 20 | ;A.Y..6.-: |
00002E10: 20 20 20 20 20 4A 4D 50 20 46 41 43 4E 4B 91 00 | JMP FACNK..|
00002E20: 25 36 96 2D 3A 00 2B 36 A0 2D 3A 00 4A 36 E0 2E |%6.-:.+6.-:.J6..|
00002E30: 99 20 20 20 20 4A 53 52 20 9F 46 4C 53 20 3B 4F |. JSR .FLS ;O|
00002E40: 45 46 A5 45 54 20 46 49 4C 45 00 71 36 EA 2E 3A |EF.ET FILE.q6..:|
00002E50: 20 20 20 20 20 20 20 20 4C 44 41 20 23 35 30 20 | LDA #50 |
00002E60: 20 20 20 20 3B 41 4E 5A 41 48 4C 20 44 52 55 43 | ;ANZAHL DRUC|
00002E70: 4B 00 90 36 F4 2E 3A 20 20 20 20 20 20 20 20 53 |K..6..: S|
00002E80: 54 41 20 5A 45 49 4C 45 20 20 20 3B 5A 45 49 C3 |TA ZEILE ;ZEI.|
00002E90: 00 B5 36 FE 2E 3A 20 20 20 20 20 20 20 20 4C 44 |..6..: LD|
00002EA0: 41 20 23 B3 24 32 30 30 30 20 3B 5A 45 49 47 45 |A #.$2000 ;ZEIGE|
00002EB0: 52 20 41 55 46 00 D7 36 08 2F 3A 20 20 20 20 20 |R AUF..6./: |
00002EC0: 20 20 20 53 54 41 20 5A 45 49 47 31 20 20 20 3B | STA ZEIG1 ;|
00002ED0: 47 52 41 46 49 4B AB 00 FA 36 12 2F 3A 20 20 20 |GRAFIK...6./: |
00002EE0: 20 20 20 20 20 4C 44 41 20 23 B1 24 32 30 30 30 | LDA #.$2000|
00002EF0: 20 3B 53 50 45 49 43 48 45 52 00 13 37 1C 2F 3A | ;SPEICHER..7./:|
00002F00: 20 20 20 20 20 20 20 20 53 54 41 20 5A 45 49 47 | STA ZEIG|
00002F10: 31 AA 31 00 37 37 26 2F 50 4C 4F 4F 50 31 20 20 |1.1.77&/PLOOP1 |
00002F20: 20 4C 44 41 20 23 B3 53 50 45 49 43 48 45 52 20 | LDA #.SPEICHER |
00002F30: 3B 5A 45 49 47 45 52 00 5F 37 30 2F 3A 20 20 20 |;ZEIGER._70/: |
00002F40: 20 20 20 20 20 53 54 41 20 5A 45 49 47 32 20 20 | STA ZEIG2 |
00002F50: 20 20 20 20 3B 41 55 46 20 50 55 46 46 45 52 00 | ;AUF PUFFER.|
00002F60: 86 37 3A 2F 3A 20 20 20 20 20 20 20 20 4C 44 41 |.7:/: LDA|
00002F70: 20 23 B1 53 50 45 49 43 48 45 52 20 3B 46 55 45 | #.SPEICHER ;FUE|
00002F80: 52 20 45 49 4E 45 00 A9 37 44 2F 3A 20 20 20 20 |R EINE..7D/: |
00002F90: 20 20 20 20 53 54 41 20 5A 45 49 47 32 AA 31 20 | STA ZEIG2.1 |
00002FA0: 20 20 20 3B 5A 45 49 4C 45 00 BF 37 4E 2F 3A 20 | ;ZEILE..7N/: |
00002FB0: 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 30 00 | LDY #$00.|
00002FC0: DA 37 58 2F 50 4C 4F 4F 50 20 20 20 20 4C 44 41 |.7X/PLOOP LDA|
00002FD0: 20 28 5A 45 49 47 31 29 2C 59 00 F5 37 62 2F 3A | (ZEIG1),Y..7b/:|
00002FE0: 20 20 20 20 20 20 20 20 53 54 41 20 28 5A 45 49 | STA (ZEI|
00002FF0: 47 32 29 2C 59 00 0C 38 6C 2F 3A 20 20 20 20 20 |G2),Y..8l/: |
00003000: 20 20 20 49 4E 43 20 5A 45 49 47 31 00 21 38 76 | INC ZEIG1.!8v|
00003010: 2F 3A 20 20 20 20 20 20 20 20 42 4E 45 20 50 57 |/: BNE PW|
00003020: 31 00 3A 38 80 2F 3A 20 20 20 20 20 20 20 20 49 |1.:8./: I|
00003030: 4E 43 20 5A 45 49 47 31 AA 31 00 51 38 8A 2F 50 |NC ZEIG1.1.Q8./P|
00003040: 57 31 20 20 20 20 20 20 49 4E 43 20 5A 45 49 47 |W1 INC ZEIG|
00003050: 32 00 66 38 94 2F 3A 20 20 20 20 20 20 20 20 42 |2.f8./: B|
00003060: 4E 45 20 50 57 32 00 7F 38 9E 2F 3A 20 20 20 20 |NE PW2..8./: |
00003070: 20 20 20 20 49 4E 43 20 5A 45 49 47 32 AA 31 00 | INC ZEIG2.1.|
00003080: 98 38 A8 2F 50 57 32 20 20 20 20 20 20 4C 44 41 |.8./PW2 LDA|
00003090: 20 5A 45 49 47 32 AA 31 00 BA 38 B2 2F 3A 20 20 | ZEIG2.1..8./: |
000030A0: 20 20 20 20 20 20 43 4D 50 20 23 B1 28 36 34 30 | CMP #.(640|
000030B0: AA 53 50 45 49 43 48 45 52 29 00 DF 38 BC 2F 3A |.SPEICHER)..8./:|
000030C0: 20 20 20 20 20 20 20 20 42 4E 45 20 50 4C 4F 4F | BNE PLOO|
000030D0: 50 20 20 20 20 3B 22 46 45 52 54 49 47 20 3F 00 |P ;"FERTIG ?.|
000030E0: F6 38 C6 2F 3A 20 20 20 20 20 20 20 20 4C 44 41 |.8./: LDA|
000030F0: 20 5A 45 49 47 32 00 18 39 D0 2F 3A 20 20 20 20 | ZEIG2..9./: |
00003100: 20 20 20 20 43 4D 50 20 23 B3 28 36 34 30 AA 53 | CMP #.(640.S|
00003110: 50 45 49 43 48 45 52 29 00 2F 39 DA 2F 3A 20 20 |PEICHER)./9./: |
00003120: 20 20 20 20 20 20 42 4E 45 20 50 4C 4F 4F 50 00 | BNE PLOOP.|
00003130: 55 39 E4 2F 3A 20 20 20 20 20 20 20 20 4A 53 52 |U9./: JSR|
00003140: 20 4F 55 54 50 55 54 20 3B 5A 45 49 4C 45 20 41 | OUTPUT ;ZEILE A|
00003150: 55 53 47 42 2E 00 6C 39 EE 2F 3A 20 20 20 20 20 |USGB..l9./: |
00003160: 20 20 20 44 45 43 20 5A 45 49 4C 45 00 84 39 F8 | DEC ZEILE..9.|
00003170: 2F 3A 20 20 20 20 20 20 20 20 42 4E 45 20 50 4C |/: BNE PL|
00003180: 4F 4F 50 31 00 A0 39 FD 2F 3A 20 20 20 20 20 20 |OOP1..9./: |
00003190: 20 20 4A 53 52 20 24 46 46 43 43 20 20 3B 80 45 | JSR $FFCC ;.E|
000031A0: 00 B6 39 02 30 3A 20 20 20 20 20 20 20 20 4A 4D |..9.0: JM|
000031B0: 50 20 A0 46 4C 53 00 BC 39 66 30 3B 00 C2 39 6B |P .FLS..9f0;..9k|
000031C0: 30 3B 00 DE 39 C8 32 4F 55 54 50 55 54 20 20 20 |0;..9.2OUTPUT |
000031D0: 4C 44 41 20 23 B3 53 50 45 49 43 48 45 52 00 F6 |LDA #.SPEICHER..|
000031E0: 39 D2 32 3A 20 20 20 20 20 20 20 20 53 54 41 20 |9.2: STA |
000031F0: 5A 45 49 47 53 50 00 12 3A DC 32 3A 20 20 20 20 |ZEIGSP..:.2: |
00003200: 20 20 20 20 4C 44 41 20 23 B1 53 50 45 49 43 48 | LDA #.SPEICH|
00003210: 45 52 00 2C 3A E6 32 3A 20 20 20 20 20 20 20 20 |ER.,:.2: |
00003220: 53 54 41 20 5A 45 49 47 53 50 AA 31 00 53 3A 04 |STA ZEIGSP.1.S:.|
00003230: 33 3A 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 |3: LDA #$|
00003240: 30 30 20 20 20 3B 41 4E 5A 41 48 4C 20 53 50 41 |00 ;ANZAHL SPA|
00003250: 43 45 53 00 77 3A 0E 33 3A 20 20 20 20 20 20 20 |CES.w:.3: |
00003260: 20 53 54 41 20 53 50 41 43 45 53 20 3B 56 B0 20 | STA SPACES ;V. |
00003270: 5A 45 49 43 48 45 4E 00 8C 3A 2C 33 3A 20 20 20 |ZEICHEN..:,3: |
00003280: 20 20 20 20 20 4C 44 41 20 23 38 30 00 A7 3A 36 | LDA #80..:6|
00003290: 33 3A 20 20 20 20 20 20 20 20 53 54 41 20 53 50 |3: STA SP|
000032A0: 41 4C 54 5A 41 48 4C 00 BD 3A 40 33 4F 55 54 4C |ALTZAHL..:@3OUTL|
000032B0: 4F 4F 50 31 20 4C 44 58 20 23 24 30 38 00 D3 3A |OOP1 LDX #$08..:|
000032C0: 4A 33 3A 20 20 20 20 20 20 20 20 4C 44 59 20 23 |J3: LDY #|
000032D0: 24 30 30 00 EB 3A 54 33 3A 20 20 20 20 20 20 20 |$00..:T3: |
000032E0: 20 4C 44 41 20 5A 45 49 47 53 50 00 03 3B 5E 33 | LDA ZEIGSP..;^3|
000032F0: 3A 20 20 20 20 20 20 20 20 53 54 41 20 5A 45 49 |: STA ZEI|
00003300: 47 45 52 00 1D 3B 68 33 3A 20 20 20 20 20 20 20 |GER..;h3: |
00003310: 20 4C 44 41 20 5A 45 49 47 53 50 AA 31 00 37 3B | LDA ZEIGSP.1.7;|
00003320: 72 33 3A 20 20 20 20 20 20 20 20 53 54 41 20 5A |r3: STA Z|
00003330: 45 49 47 45 52 AA 31 00 5C 3B 7C 33 4F 55 54 4C |EIGER.1.\;|3OUTL|
00003340: 4F 4F 50 32 20 4C 44 41 20 28 5A 45 49 47 45 52 |OOP2 LDA (ZEIGER|
00003350: 29 2C 59 20 3B 38 20 42 59 54 45 53 00 7F 3B 86 |),Y ;8 BYTES..;.|
00003360: 33 3A 20 20 20 20 20 20 20 20 53 54 41 20 50 55 |3: STA PU|
00003370: 46 46 45 52 2C 58 20 20 20 3B 45 49 4E 45 53 00 |FFER,X ;EINES.|
00003380: A5 3B 90 33 3A 20 20 20 20 20 20 20 20 43 4C 43 |.;.3: CLC|
00003390: 20 20 20 20 20 20 20 20 20 20 20 20 3B 5A 45 49 | ;ZEI|
000033A0: 43 48 45 4E 53 00 CC 3B 9A 33 3A 20 20 20 20 20 |CHENS..;.3: |
000033B0: 20 20 20 4C 44 41 20 5A 45 49 47 45 52 20 20 20 | LDA ZEIGER |
000033C0: 20 20 3B 49 4E 20 50 55 46 46 45 52 00 E1 3B A4 | ;IN PUFFER..;.|
000033D0: 33 3A 20 20 20 20 20 20 20 20 41 44 43 20 23 38 |3: ADC #8|
000033E0: 30 00 F9 3B AE 33 3A 20 20 20 20 20 20 20 20 53 |0..;.3: S|
000033F0: 54 41 20 5A 45 49 47 45 52 00 0D 3C B8 33 3A 20 |TA ZEIGER..<.3: |
00003400: 20 20 20 20 20 20 20 42 43 43 20 57 34 00 27 3C | BCC W4.'<|
00003410: C2 33 3A 20 20 20 20 20 20 20 20 49 4E 43 20 5A |.3: INC Z|
00003420: 45 49 47 45 52 AA 31 00 38 3C CC 33 57 34 20 20 |EIGER.1.8<.3W4 |
00003430: 20 20 20 20 20 44 45 58 00 52 3C D6 33 3A 20 20 | DEX.R<.3: |
00003440: 20 20 20 20 20 20 42 4E 45 20 4F 55 54 4C 4F 4F | BNE OUTLOO|
00003450: 50 32 00 68 3C F4 33 3A 20 20 20 20 20 20 20 20 |P2.h<.3: |
00003460: 4C 44 41 20 23 24 38 30 00 7C 3C F9 33 3A 20 20 |LDA #$80.|<.3: |
00003470: 20 20 20 20 20 20 4C 44 59 20 23 38 00 91 3C FE | LDY #8..<.|
00003480: 33 4C 4F 4F 50 32 20 20 20 20 4C 44 58 20 23 30 |3LOOP2 LDX #0|
00003490: 38 00 A5 3C 08 34 3A 20 20 20 20 20 20 20 20 53 |8..<.4: S|
000034A0: 54 41 20 5A 53 00 C6 3C 12 34 4C 4F 4F 50 31 20 |TA ZS..<.4LOOP1 |
000034B0: 20 20 20 AF 20 50 55 46 46 45 52 2C 58 20 3B 38 | . PUFFER,X ;8|
000034C0: 20 42 59 54 45 53 00 E8 3C 1C 34 3A 20 20 20 20 | BYTES..<.4: |
000034D0: 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 | CLC |
000034E0: 20 3B 57 45 52 44 45 4E 00 0C 3D 26 34 3A 20 20 | ;WERDEN..=&4: |
000034F0: 20 20 20 20 20 20 42 45 51 20 57 35 20 20 20 20 | BEQ W5 |
00003500: 20 20 20 3B 56 91 20 48 B0 49 5A 2E 00 2C 3D 30 | ;V. H.IZ..,=0|
00003510: 34 3A 20 20 20 20 20 20 20 20 53 45 43 20 20 20 |4: SEC |
00003520: 20 20 20 20 20 20 20 3B 4E 41 43 48 00 50 3D 3A | ;NACH.P=:|
00003530: 34 57 35 20 20 20 20 20 20 20 52 4F 4C 20 5A 53 |4W5 ROL ZS|
00003540: 32 20 20 20 20 20 20 3B 56 45 52 54 49 4B 41 4C |2 ;VERTIKAL|
00003550: 00 75 3D 44 34 3A 20 20 20 20 20 20 20 20 4C 44 |.u=D4: LD|
00003560: 41 20 5A 53 20 20 20 20 20 20 20 3B B0 49 45 4E |A ZS ;.IEN|
00003570: 54 49 45 52 54 00 86 3D 4E 34 3A 20 20 20 20 20 |TIERT..=N4: |
00003580: 20 20 20 44 45 58 00 9D 3D 58 34 3A 20 20 20 20 | DEX..=X4: |
00003590: 20 20 20 20 42 4E 45 20 4C 4F 4F 50 31 00 B2 3D | BNE LOOP1..=|
000035A0: 62 34 3A 20 20 20 20 20 20 20 20 4C 44 41 20 5A |b4: LDA Z|
000035B0: 53 32 00 D6 3D 6C 34 3A 20 20 20 20 20 20 20 20 |S2..=l4: |
000035C0: 45 B0 20 4D 41 53 4B 45 20 20 20 20 20 3B 49 4E |E. MASKE ;IN|
000035D0: 56 20 4F 44 45 52 00 F8 3D 76 34 3A 20 20 20 20 |V ODER..=v4: |
000035E0: 20 20 20 20 53 54 41 20 50 55 46 46 45 52 31 2C | STA PUFFER1,|
000035F0: 59 20 3B 4E B0 4D 41 4C 00 09 3E 80 34 3A 20 20 |Y ;N.MAL..>.4: |
00003600: 20 20 20 20 20 20 44 45 59 00 2E 3E 82 34 3A 20 | DEY..>.4: |
00003610: 20 20 20 20 20 20 20 4C 44 41 20 5A 53 20 20 20 | LDA ZS |
00003620: 20 20 20 20 20 3B 4E 41 45 43 48 53 54 2E 00 4E | ;NAECHST..N|
00003630: 3E 84 34 3A 20 20 20 20 20 20 20 20 4C 53 52 20 |>.4: LSR |
00003640: 20 20 20 20 20 20 20 20 20 20 3B 42 49 54 00 62 | ;BIT.b|
00003650: 3E 86 34 3A 20 20 20 20 20 20 20 20 53 54 41 20 |>.4: STA |
00003660: 5A 53 00 79 3E 88 34 3A 20 20 20 20 20 20 20 20 |ZS.y>.4: |
00003670: 42 43 43 20 4C 4F 4F 50 32 00 A0 3E 8A 34 3A 20 |BCC LOOP2..>.4: |
00003680: 20 20 20 20 20 20 20 4C 44 58 20 23 30 38 20 20 | LDX #08 |
00003690: 20 20 20 20 20 3B 38 20 4C 45 45 52 42 59 54 45 | ;8 LEERBYTE|
000036A0: 00 C4 3E 8B 34 54 4C 4F 4F 50 20 20 20 20 4C 44 |..>.4TLOOP LD|
000036B0: 41 20 50 55 46 46 45 52 31 2C 58 20 3B 57 45 4E |A PUFFER1,X ;WEN|
000036C0: 4E 20 4A 41 00 DA 3E 8C 34 3A 20 20 20 20 20 20 |N JA..>.4: |
000036D0: 20 20 43 4D 50 20 23 24 30 30 00 F3 3E 8D 34 3A | CMP #$00..>.4:|
000036E0: 20 20 20 20 20 20 20 20 42 4E 45 20 4E 4F 53 50 | BNE NOSP|
000036F0: 41 43 45 00 04 3F 8E 34 3A 20 20 20 20 20 20 20 |ACE..?.4: |
00003700: 20 44 45 58 00 1B 3F 8F 34 3A 20 20 20 20 20 20 | DEX..?.4: |
00003710: 20 20 42 4E 45 20 54 4C 4F 4F 50 00 3F 3F 95 34 | BNE TLOOP.??.4|
00003720: 3A 20 20 20 20 20 20 20 20 49 4E 43 20 53 50 41 |: INC SPA|
00003730: 43 45 53 20 20 20 20 3B 41 55 53 47 41 42 45 00 |CES ;AUSGABE.|
00003740: 62 3F 96 34 3A 20 20 20 20 20 20 20 20 4A 4D 50 |b?.4: JMP|
00003750: 20 9A 20 20 20 20 20 20 3B 55 45 42 45 52 53 50 | . ;UEBERSP|
00003760: 52 2E 00 77 3F 9D 34 4E 4F 53 50 41 43 45 20 20 |R..w?.4NOSPACE |
00003770: 4C 44 58 20 23 31 35 00 8E 3F 9E 34 3A 20 20 20 |LDX #15..?.4: |
00003780: 20 20 20 20 20 4A 53 52 20 24 46 46 43 39 00 A2 | JSR $FFC9..|
00003790: 3F 9F 34 3A 20 20 20 20 20 20 20 20 4C 44 58 20 |?.4: LDX |
000037A0: 23 38 00 C8 3F A0 34 54 4C 4F 4F 50 31 20 20 20 |#8..?.4TLOOP1 |
000037B0: 4C 44 41 20 50 55 46 46 45 52 31 2C 58 20 3B 42 |LDA PUFFER1,X ;B|
000037C0: 49 54 4D 55 53 54 45 52 00 E9 3F A1 34 3A 20 20 |ITMUSTER..?.4: |
000037D0: 20 20 20 20 20 20 4A 53 52 20 49 45 43 4F 55 54 | JSR IECOUT|
000037E0: 20 20 20 20 3B 46 55 45 52 00 0F 40 A2 34 3A 20 | ;FUER..@.4: |
000037F0: 20 20 20 20 20 20 20 44 45 58 20 20 20 20 20 20 | DEX |
00003800: 20 20 20 20 20 3B 31 20 5A 45 49 43 48 45 4E 00 | ;1 ZEICHEN.|
00003810: 36 40 A3 34 3A 20 20 20 20 20 20 20 20 42 4E 45 |6@.4: BNE|
00003820: 20 54 4C 4F 4F 50 31 20 20 20 20 3B 41 4E 20 44 | TLOOP1 ;AN D|
00003830: 52 55 43 4B 45 52 00 4C 40 A8 34 3A 20 20 20 20 |RUCKER.L@.4: |
00003840: 20 20 20 20 4C 44 41 20 23 24 30 44 00 64 40 B2 | LDA #$0D.d@.|
00003850: 34 3A 20 20 20 20 20 20 20 20 4A 53 52 20 49 45 |4: JSR IE|
00003860: 43 4F 55 54 00 79 40 BC 34 3A 20 20 20 20 20 20 |COUT.y@.4: |
00003870: 20 20 4C 44 58 20 23 31 30 00 90 40 C6 34 3A 20 | LDX #10..@.4: |
00003880: 20 20 20 20 20 20 20 4A 53 52 20 24 46 46 43 39 | JSR $FFC9|
00003890: 00 A8 40 D0 34 3A 20 20 20 20 20 20 20 20 49 4E |..@.4: IN|
000038A0: 43 20 53 50 41 43 45 53 00 CE 40 DA 34 3A 20 20 |C SPACES..@.4: |
000038B0: 20 20 20 20 20 20 4C 44 58 20 53 50 41 43 45 53 | LDX SPACES|
000038C0: 20 20 20 20 3B 44 52 55 43 4B 4B 4F 50 46 00 F0 | ;DRUCKKOPF..|
000038D0: 40 E4 34 3A 20 20 20 20 20 20 20 20 4C 44 41 20 |@.4: LDA |
000038E0: 23 24 32 30 20 20 20 20 20 20 3B B9 49 54 49 91 |#$20 ;.ITI.|
000038F0: 00 01 41 EE 34 53 4C 4F 4F 50 20 20 20 20 44 45 |..A.4SLOOP DE|
00003900: 58 00 19 41 F8 34 3A 20 20 20 20 20 20 20 20 42 |X..A.4: B|
00003910: 45 51 20 53 50 41 43 45 80 00 31 41 02 35 3A 20 |EQ SPACE..1A.5: |
00003920: 20 20 20 20 20 20 20 4A 53 52 20 49 45 43 4F 55 | JSR IECOU|
00003930: 54 00 48 41 0C 35 3A 20 20 20 20 20 20 20 20 4A |T.HA.5: J|
00003940: 4D 50 20 53 4C 4F 4F 50 00 6B 41 16 35 53 50 41 |MP SLOOP.kA.5SPA|
00003950: 43 45 80 20 4C 44 41 20 23 24 46 45 20 20 20 20 |CE. LDA #$FE |
00003960: 3B 96 2E 20 5A 45 49 43 48 45 4E 00 90 41 20 35 |;.. ZEICHEN..A 5|
00003970: 3A 20 20 20 20 20 20 20 20 4A 53 52 20 49 45 43 |: JSR IEC|
00003980: 4F 55 54 20 20 3B 41 55 53 44 52 55 43 4B 45 4E |OUT ;AUSDRUCKEN|
00003990: 00 A6 41 2A 35 3A 20 20 20 20 20 20 20 20 4C 44 |..A*5: LD|
000039A0: 41 20 23 31 34 31 00 BE 41 34 35 3A 20 20 20 20 |A #141..A45: |
000039B0: 20 20 20 20 4A 53 52 20 49 45 43 4F 55 54 00 DB | JSR IECOUT..|
000039C0: 41 3E 35 9A 20 20 20 20 20 49 4E 43 20 5A 45 49 |A>5. INC ZEI|
000039D0: 47 53 50 20 3B 5A 45 49 47 45 52 00 02 42 48 35 |GSP ;ZEIGER..BH5|
000039E0: 3A 20 20 20 20 20 20 20 20 42 4E 45 20 57 36 20 |: BNE W6 |
000039F0: 20 20 20 20 3B 41 4B 54 55 41 4C 49 53 49 45 52 | ;AKTUALISIER|
00003A00: 45 4E 00 1C 42 52 35 3A 20 20 20 20 20 20 20 20 |EN..BR5: |
00003A10: 49 4E 43 20 5A 45 49 47 53 50 AA 31 00 37 42 5C |INC ZEIGSP.1.7B\|
00003A20: 35 57 36 20 20 20 20 20 20 20 44 45 43 20 53 50 |5W6 DEC SP|
00003A30: 41 4C 54 5A 41 48 4C 00 4B 42 66 35 3A 20 20 20 |ALTZAHL.KBf5: |
00003A40: 20 20 20 20 20 42 45 51 20 57 37 00 65 42 70 35 | BEQ W7.eBp5|
00003A50: 3A 20 20 20 20 20 20 20 20 4A 4D 50 20 4F 55 54 |: JMP OUT|
00003A60: 4C 4F 4F 50 31 00 81 42 7A 35 57 37 20 20 20 20 |LOOP1..Bz5W7 |
00003A70: 20 20 20 4C 44 41 20 23 24 30 44 20 20 20 3B 80 | LDA #$0D ;.|
00003A80: 45 00 99 42 84 35 3A 20 20 20 20 20 20 20 20 4A |E..B.5: J|
00003A90: 53 52 20 49 45 43 4F 55 54 00 A8 42 8E 35 4F 55 |SR IECOUT..B.5OU|
00003AA0: 54 80 20 20 20 52 54 53 00 00 00 |T. RTS... |
..).... ********************************
*.Q.... * APFELPRINTER
*.Y.... * WRITTEN 1985
*...... * FOR C64 + VC 1541 + MPS 802
*.I.... * BY PETER SIEPEN
*...... *
*...... * RECHENROUTINEN VON
*.A.... * GERHARD PEHLAND
*.I.... * (AUS 64'ER 11.85 SEITE 80)
*...... ********************************
*......9.4096......OPT OO....... $C000..
.Z.;...\.; ........... QUELLCODE .......
........_.;...B.; .TEMADRESSEN...D.FAC
. 97.'.N.ARG . 105.>.X.CHRO
UT . $FFD2.B...DIV . $BB12 ;F
AC.FAC.ARG.....SUB . $B853 ;FAC.F
AC.ARG... .FACNARG . $BC0C ;ARG . FAC
.N...ZEIGSUB . $B850 ;FAC.(A.Y).FAC..
...ZEIGADD . $B867 ;FAC.(A.Y).FAC....
.ZEIGMULT . $BA28 ;FAC.(A.Y).FAC.;.H.K
.NARG . $BA8C ;ARG.(A.Y).\.R.K.NFAC
. $BBA2 ;FAC.(A.Y).}...FACNK. . $BB
D4 ;(X.Y).FAC.....CHSIGN . $BFB4 ;FA
C..FAC.D...FILEPAR . $FFBA ;FILEPARAM
ETER.....FICAM . $FFBD ;FICAME SETZEN
.....FRMNUM . $AD8A ;AUSDRUCK AUSWER
TEN.8...CHKCOM . $AEFD ;TEST AUF ","
.O...IECOUT . $FFA8.F...IECIN .
$FFA5.....SUCHVAR . $B0E7 ;SUCHT VAR
NAM.....;.....; VARIABC.A...ZEIG1 .
$57 ;UNIVERSAL.....ZEIG2 . $59
;ZEIGER.....ZEIGER . $A8 ;ZEIGER
BEI DRUCK...'.SPZEIG . $B5 ;ZEIGER
$2000.P.,.ZEILE . $CF00 ;AKT.ZEILE
.S.1.SPALTE . $CF04 ;AKT.SPALTE...6.
ZEILZAHL . $CF02 ;ZEICZAEHLER...;.BYTE
. $CF03 ;ENTHAELT 8 PKT...@..
. $CF05 ;ZAEHLER 8 PKTE...E.TIEFE
. $CF06 ;AKT. TIEFE.-.J.TIEFEMAX .
$CF07 ;MAXIMALE TIEFE.V.O.ZEIGSP . $
CF08 ;ZWISCHENSPEICHER.Z.Q.:
;FUER ZEIGER...T.SPALTZAHL . $CF0
A ;BEI DRUCK...Y.ZS . $CF0B ;UNI
VERSAL....^.ZS2 . $CF0C ;SPEICHER
...C.SPACES . $CF0E ;ZAEHLER BEI.".E
.: ;DRUCK.I.H.MASKE
. $0334 ;ENTHAELT MASKE.K.J.:
;BEI DRUCK...M.NAMC . $0336
;LAENGE FICAM...R.DX . $CF90 ;R
ECHENVARIABC.K.W.DY . $CF30...|.
CX . $CF40.....CY . $CF6
0.....XQUAD . 87."...YQUAD . 2
47.9...XWERT . $CF70.P...YWERT
. $CF80.G...XMAX . $CFA0.~...XMIN
. $CFB0.....YMAX . $CFC0...
..YMIN . $CFD0.....; K.S.TEN.....S
PALTEN . 640 ;ANZAHL SPALTEN.....ZE
IC . 400 ;ANZAHL ZEIC.,...PUFFER
. $033C ;SPEICHER 8 BYTES.R...SPEICHE
R . $C500 ;SPEICHER FUER.I...PUFFER1
. $02A1.....: ;EINE D
RUCKZEILE.....;... .: JMP START
.E.*.: JMP ..Z.4.: JMP
....>.: JMP ....Z.;....;.....
START JSR HOLWERTE.0...: J
MP APFEL.6...;.<...;.B...HOLWERTE JSR C
HKCOM ;LIEST WERTE.....: JSR FRM
NUM ;AUS ......: LDX #.XMIN.....
: LDY #.XMIN.M...: JSR F
ACNK......: JSR CHKCOM...$.:
JSR FRMNUM.....: LDX #.XMAX
.1.8.: LDY #.XMAX.J.B.:
JSR FACNK..C.L.: JSR CHKCOM.|.V.
: JSR FRMNUM...`.: LDX #
.YMIN...J.: LDY #.YMIN.G.T.:
JSR FACNK....~.: JSR CHKCOM
.....: JSR FRMNUM.....:
LDX #.YMAX.+...: LDY #.YMAX.D...
: JSR FACNK..I.X.: LDA #
.$2000 ;UND SETZT.....: STA SPZE
IG ;ZEIGER.....: LDA #.$2000...
..: STA SPZEIG.1.R...: R
TS.X...;.....;...P..FLS LDA #15 ;OEF
.ET FILES...Z.: LDX #04.-...:
LDY #05.E...: JSR $FFBA.\.
..: LDA #$00.T...: JSR $
FFBD.....: JSR $FFC0.....:
LDA #10... .: LDX #04.N.*.:
LDY #00...4.: JSR $FFBA..
.>.: LDA #$00...H.: JSR
$FFBD.-.R.: JSR $FFC0.C...:
LDA #26.Y...: LDX #04.O...:
LDY #06.....: JSR $FFBA.
....: LDA #$00.....: JSR
$FFBD.N...: JSR $FFC0...J.:
LDX #26 ;UND BEREITET...T.:
JSR $FFC9 ;DRUCKER V......: L
DA #21.G...: JSR IECOUT.]...:
LDX #10.U...: JSR $FFC9...
..: LDA #$0D.....: JMP I
ECOUT.....;.....;.C... FLS LDA #15...B.
: JSR $FFC3...L.: LDA #1
0...V.: JSR $FFC3.....:
LDA #26.7...: JMP $FFC3.=...;.[.
....FAC STA $63 ;.. ..ZAHL.....:
STX $62 ;IN A.X IN FAC.....: L
DX #$90...J.: SEC.A.T.:
JMP $BC49.G...;...T.FACSARG LDA ARG.5
;V.ZEICHEN....~.: E. FAC.5 ;WECH
SEL.....: STA ARG.6 ;FAC . ARG.D
...: LDA FAC.V...: RTS.\
...;... .APFEL SEI ;RECHENROUT
......: LDA #.XMIN ;DX BERECHNEN
.A...: LDY #.XMIN.Z...:
JSR K.NFAC...H.: LDA #.XMAX...R.
: LDY #.XMAX.&...: JSR Z
EIGSUB.@...: JSR FACNARG.\...:
LDA #.SPALTEN.X...: LDX #
.SPALTEN.....: JSR ..FAC.....:
JSR FACSARG.....: JSR DIV
.W.".: LDX #.DX...,.: LD
Y #.DX...6.: JSR FACNK....@.:
LDA #.YMIN ;DY BERECHNEN.G.J.:
LDY #.YMIN.`.T.: JSR K.NFAC
.Y.^.: LDA #.YMAX...H.:
LDY #.YMAX...R.: JSR ZEIGSUB.F.|
.: JSR FACNARG.....: LDA
#.ZEIC.....: LDX #.ZEIC.....:
JSR ..FAC.*...: JSR FACSA
RG.@...: JSR DIV.W...: L
DX #.DY.N.B.: LDY #.DY...L.:
JSR FACNK....V.: LDY #4
;CX.XMIN.K...L13 LDA XMIN,Y ;CY.Y
MAX.....: STA CX,Y.....:
LDA YMAX,Y.....: STA CY,Y.$...:
DEY.:...: BPL L13.O...:
LDA #0.G.&.: STA ZEILE.
..0.: STA ZEILE.1...:.:
STA SPALTE...N.: LDA #$08.E.Q.:
STA ..Z.X.ITERAT LDA #0...B.:
STA BYTE...L.ITERAT1 LDA #0..
.V.: STA TIEFE.3...: LDY
#4.M...L15 STA XWERT,Y.G...:
STA YWERT,Y.Y...: DEY.....:
BPL L15.....ITER1 INC TIEFE.
B...: LDA TIEFEMAX.....:
CMP TIEFE ;"MAX. TIEFE ?...F.:
BCS ITER4.&.P.: CLC ;PUNKT
CLEAR.=.Z.: JMP PLOT.`...ITER4
LDA #.XWERT ;XWERT.2.....: L
DY #.XWERT ;IN XQUAD.....: JSR K
.NFAC.....: LDA #.XWERT.Q...:
LDY #.XWERT.....: JSR ZEIG
MULT.. .: LDX #XQUAD.. *.:
LDY #0.3 4.: JSR FACNK..V >.
: LDA #.YWERT ;YWERT.2.Z H.:
LDY #.YWERT ;IN YQUAD.. R.:
JSR K.NFAC.. \.: LDA #.YWERT.G
F.: LDY #.YWERT.. P.: JS
R ZEIGMULT.. Z.: LDX #YQUAD."!..
: LDY #0 ;XQUAD . YQUAD.;!..:
JSR FACNK..T!..: LDA #X
QUAD.I!..: LDY #0..!..:
JSR ZEIGADD..!..: LDA FAC..!..:
CMP #$84 ;"SUMME > 8 ?.W!J.:
BCC ITER3..!T.: LDA TIEFE.
."..: R. ;CARRY SETZEN.+".
.: JMP PLOT.N"..ITER3 LDA #.
YWERT ;YWERT ..U"..: LDY #.YWERT
;XWERT.YWERT.."..: JSR K.NFAC ;
.2.CY.."..: LDA #.XWERT.I"..:
LDY #.XWERT.."$.: JSR ZEIG
MULT.."..: LDA FAC..#8.:
BEQ ITER2.(#B.: INC FAC.?#L.ITE
R2 LDA #.CY.V#V.: LDY #.CY.P
#`.: JSR ZEIGSUB..#J.: J
SR CHSIGN..#T.: LDX #.YWERT..#~.
: LDY #.YWERT.V#..: JSR
FACNK...#..: LDY #0 ;XWERT
.. $..: LDA #YQUAD ;XQUAD.YQUAD
.>$..: JSR K.NFAC ;.CX.S$..:
LDY #0.L$..: LDA #XQUAD..$D
.: JSR ZEIGSUB..$N.: LDA
#.CX..$X.: LDY #.CX.N$..:
JSR ZEIGSUB..$..: JSR CHSIGN.
.%..: LDX #.XWERT..%..:
LDY #.XWERT.4%..: JSR FACNK..L%.
.: JMP ITER1.R%P.PLOT LDA B
YTE ;SETZE BIT MIT..%Z.: ROL
;CARRY..%D.: STA BYTE.F%I.:
INC 53280 ;FARBE..%N.: LDA
#.CX ;CX.CX.DX..%X.: LDY #.CX..
&..: JSR K.NFAC..&..: LD
A #.DX.E&..: LDY #.DX._& .:
JSR ZEIGADD.V&..: LDX #.CX..
&..: LDY #.CX..&..: JSR
FACNK...&H.: DEC ..S&R.:
BEQ APFEL1..&..: JMP ITERAT1..'
..APFEL1 LDA #08..'..: STA ..
1'..: JSR SETBYTE.J'..:
INC SPALTE.C'..: LDA SPALTE..'..
: CMP #80 ;DRUCKER..'".:
BEQ APFEL2..',.: JMP ITERAT.I'6
.APFEL2 LDA #0..'@.: STA SPAL
TE..(J.: LDY #5 ;CX.XMIN..(T
.L30 LDA XMIN,Y.4(^.: STA
CX,Y.F(H.: DEY.\(R.: BPL
L30.T(|.: INC ZEILE..(..:
BNE W1..(..: INC ZEILE.1..(..
W1 LDA ZEILE.1.V(..: CMP
#.ZEIC..(..: BCC W2..)..:
LDA ZEILE..)B.: CMP #.ZEIC.1)L
.: BCC W2.J)V.: JMP .APF
EL.N)..W2 LDA #.DY ;CY.CY.DY..
)..: LDY #.DY..)..: JSR
K.NFAC..)..: LDA #.CY.L)..:
LDY #.CY..)..: JSR ZEIGSUB..
)..: LDX #.CY..*&.: LDY
#.CY.-*0.: JSR FACNK..F*:.:
JMP ITERAT.V*D..APFEL CLI.H*N.:
RTS.N*F.;.T*K.;..*P.SETBYTE LDY #
$00 ;BYTE SPEICHERN..*U.: LDA BY
TE.O*.: STA (SPZEIG),Y..*..:
INC SPZEIG..*..: BNE SPW1.
.+..: INC SPZEIG.1.,+..SPW1
RTS.2+J.;.C+.'. LDA #8.X+.':
LDX #08.L+$': LDY #1..+.':
JSR $FFBA..+8': LDA NAMC..+B':
LDX #.$033C.K+L': LDY #.$0
33C..+V': JSR $FFBD..+`':
JSR $FFC0..,J': LDX #8.$,T':
JSR $FFC9.=,~': LDA #.$2000.U,
.': JSR IECOUT.J,.': LDA $
90.,.': BMI ..E..,.': LDA
#.$2000..,.': JSR IECOUT.E,.':
LDA $90.Z,.': BMI ..E..,.':
LDA #.$2000 ;$2000...-.':
STA SPZEIG.--.': LDA #.$2000.G-
.': STA SPZEIG.1.]-.': LDY
#$00.V-.'.LOOP LDA (SPZEIG),Y..-.':
JSR IECOUT..-.': LDA $90..-B'
: BMI ..E.P-D': INC SPZEIG
..-N': BNE .W1...X': INC S
PZEIG.1 ;.40192....'.W1 LDA SPZEIG.1.=
..': CMP #.32001.$2000.T..':
BNE .LOOP.L..(: LDA SPZEIG....
(: CMP #.32001.$2000....(:
BNE .LOOP.D..(: LDX #$00 ;VAR
IABC.Z.((.L1 LDA $CF00,X...2(:
JSR IECOUT../<(: INX../F(:
BNE .L1.(/P(..E LDA #08.?/Z(: JS
R $FFC3.V/D(: JMP $FFCC.\/N(;.M/.
*. LDA #8../.+: LDX #08../.+:
LDY #0../.+: JSR $FFBA.C/
+: LDA NAMC../*+: LDX #.$
033C../4+: LDY #.$033C..0>+:
JSR $FFBD.#0H+: JSR $FFC0.70R+
: LDX #8.N0\+: JSR $FFC6.E
0]+: JSR IECIN.Z0^+: LDA $
90..0_+: LSR..0`+: LSR..0A
+: BCS ..E.H0B+: JSR IECIN
..0F+: LDA #.$2000 ;$2000..1P+:
STA SPZEIG..1Z+: LDA #.$20
00.41.+: STA SPZEIG.1.J1.+:
LDY #$00.^1.+.LOOP JSR IECIN.Z1.+:
STA (SPZEIG),Y..1.+: INC SPZE
IG..1.+: BNE .W1.A1.+: INC
SPZEIG.1..1J+.W1 LDA SPZEIG.1 ;.40192
..2T+: CMP #.(32001.$2000)..2.+:
BNE .LOOP.02.+: LDA SPZEIG
.Q2.+: CMP #.(32001.$2000).H2.+:
BNE .LOOP.~2.,: LDX #$00..
2.,.L1 JSR IECIN ;VARIABC..2.,:
STA $CF00,X.G2$,: INX..2.,:
BNE .L1..28,..E JSR $FFCC..3B,:
LDA #08..3L,: JSR $FFC3.=3V,:
LDA #.XMIN ;WERTE IN.^3`,:
LDY #.XMIN ;BASIC..3J,: JSR
K.NFAC ;VARIABC..3T,: LDA #"L"
;SCHREIBEN..3~,: LDY #"I".Q3.,:
JSR FACVAR..3.,: LDA #.XMA
X..4.,: LDY #.XMAX..4.,: J
SR K.NFAC./4D,: LDA #"R".E4N,:
LDY #"E".]4X,: JSR FACVAR.U4
.,: LDA #.YMIN..4.,: LDY #
.YMIN..4.,: JSR K.NFAC..4.-:
LDA #"O".Q4.-: LDY #"B"..4.-:
JSR FACVAR..5.-: LDA #.YMA
X..5(-: LDY #.YMAX.152-: J
SR K.NFAC.G5<-: LDA #"U".]5F-:
LDY #"N".U5P-: JMP FACVAR.{5
Z-:..5D-FACVAR STA $45 ;SCHREIBT.C
5N-: STY $46 ;FAC IN VAR..5X-
: JSR SUCHVAR ;MIT NAME IN..6.-:
TAX ;A.Y..6.-: JMP
FACNK..%6.-:.+6 -:.J6... JSR .FLS ;O
EF.ET FILE.Q6..: LDA #50 ;ANZ
AHL DRUCK..6..: STA ZEILE ;ZEIC
..6..: LDA #.$2000 ;ZEIGER AUF.W6
./: STA ZEIG1 ;GRAFIK...6./:
LDA #.$2000 ;SPEICHER..7./:
STA ZEIG1.1.77&/PLOOP1 LDA #.SPEICHER
;ZEIGER._70/: STA ZEIG2 ;AUF
PUFFER..7:/: LDA #.SPEICHER ;FUE
R EINE..7D/: STA ZEIG2.1 ;ZEIL
E..7N/: LDY #$00.Z7X/PLOOP LDA
(ZEIG1),Y..7B/: STA (ZEIG2),Y..8
L/: INC ZEIG1.!8V/: BNE PW
1.:8./: INC ZEIG1.1.Q8./PW1
INC ZEIG2.F8./: BNE PW2.8./:
INC ZEIG2.1..8./PW2 LDA ZEIG2.1
..8./: CMP #.(640.SPEICHER)..8./:
BNE PLOOP ;"FERTIG ?..8F/:
LDA ZEIG2..9P/: CMP #.(640.S
PEICHER)./9Z/: BNE PLOOP.U9./:
JSR OUTPUT ;ZEILE AUSGB..L9./:
DEC ZEILE..9./: BNE PLOOP1. 9.
/: JSR $FFCC ;.E..9.0: JM
P FLS..9F0;.B9K0;..9H2OUTPUT LDA #.SP
EICHER..9R2: STA ZEIGSP..:.2:
LDA #.SPEICHER.,:.2: STA ZEIG
SP.1.S:.3: LDA #$00 ;ANZAHL SPA
CES.W:.3: STA SPACES ;V. ZEICHEN.
.:,3: LDA #80..:63: STA SP
ALTZAHL..:@3OUTLOOP1 LDX #$08.S:J3:
LDY #$00..:T3: LDA ZEIGSP..;^3
: STA ZEIGER..;H3: LDA ZEI
GSP.1.7;R3: STA ZEIGER.1.\;|3OUTL
OOP2 LDA (ZEIGER),Y ;8 BYTES.;.3:
STA PUFFER,X ;EINES..;.3: CLC
;ZEICHENS.L;.3: LDA Z
EIGER ;IN PUFFER..;.3: ADC #8
0..;.3: STA ZEIGER..<.3: B
CC W4.'<B3: INC ZEIGER.1.8<L3W4
DEX.R<V3: BNE OUTLOOP2.H<.3:
LDA #$80.|<.3: LDY #8..<.
3LOOP2 LDX #08..<.4: STA ZS.F<
.4LOOP1 . PUFFER,X ;8 BYTES..<.4:
CLC ;WERDEN..=&4: BE
Q W5 ;V. H.IZ..,=04: SEC
;NACH.P=:4W5 ROL ZS2 ;
VERTIKAL.U=D4: LDA ZS ;.IEN
TIERT..=N4: DEX..=X4: BNE
LOOP1..=B4: LDA ZS2.V=L4:
E. MASKE ;INV ODER..=V4: STA
PUFFER1,Y ;N.MAL..>.4: DEY..>.4:
LDA ZS ;NAECHST..N>.4:
LSR ;BIT.B>.4: STA
ZS.Y>.4: BCC LOOP2. >.4: L
DX #08 ;8 LEERBYTE.D>.4TLOOP LD
A PUFFER1,X ;WENN JA.Z>.4: CMP #$
00..>.4: BNE NOSPACE..?.4:
DEX..?.4: BNE TLOOP.??.4:
INC SPACES ;AUSGABE.B?.4: JMP
. ;UEBERSPR..W?.4NOSPACE LDX #15.
.?.4: JSR $FFC9..?.4: LDX
#8.H? 4TLOOP1 LDA PUFFER1,X ;BITMUSTER
..?.4: JSR IECOUT ;FUER..@.4:
DEX ;1 ZEICHEN.6@.4:
BNE TLOOP1 ;AN DRUCKER.L@.4:
LDA #$0D.D@.4: JSR IECOUT.Y@.
4: LDX #10..@F4: JSR $FFC9
..@P4: INC SPACES.N@Z4: LD
X SPACES ;DRUCKKOPF..@.4: LDA
#$20 ;.ITI...A.4SLOOP DEX..A.4:
BEQ SPACE..1A.5: JSR IECOU
T.HA.5: JMP SLOOP.KA.5SPACE. LDA
#$FE ;.. ZEICHEN..A 5: JSR IEC
OUT ;AUSDRUCKEN..A*5: LDA #141..
A45: JSR IECOUT..A>5. INC ZEI
GSP ;ZEIGER..BH5: BNE W6 ;AKT
UALISIEREN..BR5: INC ZEIGSP.1.7B\
5W6 DEC SPALTZAHL.KBF5: BEQ
W7.EBP5: JMP OUTLOOP1..BZ5W7
LDA #$0D ;.E..B.5: JSR IECOU
T..B.5OUT. RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL