DCLP.SRC
FILE INFORMATION
FILENAME(S): DCLP.SRC
FILE TYPE(S): PRG
FILE SIZE: 6.4K
FIRST SEEN: 2025-11-30 20:26:07
APPEARS ON: 1 disk(s)
FILE HASH
f1284d7be31fae36ebb7da5111ab2c9e794a83aa295ff6f00d259b89138de9ee
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER 12 94 | DCLP.SRC | PRG | Curtcool, Twist | 33 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F DE 1F 0F 00 3B 00 2D 20 14 00 3B 50 52 4F |......;.- ..;PRO|
00000010: 47 52 41 4D 4E 41 4D 45 3A 20 50 45 52 46 45 43 |GRAMNAME: PERFEC|
00000020: 54 20 44 2E 43 2E 4C 2E 50 2E 20 20 20 20 20 20 |T D.C.L.P. |
00000030: 20 20 20 20 20 20 20 20 20 20 41 55 54 48 4F 52 | AUTHOR|
00000040: 3A 20 4E 49 43 4F 20 27 53 4C 49 4D 45 52 27 20 |: NICO 'SLIMER' |
00000050: 52 45 55 54 45 52 00 33 20 18 00 3B 00 5D 20 19 |REUTER.3 ..;.] .|
00000060: 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.;**************|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000080: 2A 2A 2A 2A 2A 2A 00 63 20 1A 00 3B 00 71 20 1E |******.c ..;.q .|
00000090: 00 20 2E 42 41 24 39 30 30 30 00 77 20 28 00 3B |. .BA$9000.w (.;|
000000A0: 00 91 20 32 00 2E 45 51 20 4C 49 4E 45 52 45 47 |.. 2..EQ LINEREG|
000000B0: 20 20 20 3D 20 24 43 30 30 30 00 AB 20 3C 00 2E | = $C000.. <..|
000000C0: 45 51 20 4C 49 4E 45 52 45 47 32 20 20 3D 20 24 |EQ LINEREG2 = $|
000000D0: 43 30 30 31 00 C5 20 46 00 2E 45 51 20 5A 45 49 |C001.. F..EQ ZEI|
000000E0: 43 48 45 4E 20 20 20 3D 20 24 43 30 30 32 00 DF |CHEN = $C002..|
000000F0: 20 50 00 2E 45 51 20 53 49 4E 52 45 47 20 20 20 | P..EQ SINREG |
00000100: 20 3D 20 24 43 30 30 33 00 E5 20 51 00 3B 00 0F | = $C003.. Q.;..|
00000110: 21 52 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 53 |!R.;********** S|
00000120: 49 4E 55 53 2D 54 41 42 45 4C 4C 45 20 2A 2A 2A |INUS-TABELLE ***|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 00 15 21 53 00 3B 00 23 |********..!S.;.#|
00000140: 21 54 00 20 4A 4D 50 53 54 41 52 54 00 4E 21 55 |!T. JMPSTART.N!U|
00000150: 00 53 49 4E 55 53 20 2E 42 59 31 2C 31 2C 32 2C |.SINUS .BY1,1,2,|
00000160: 32 2C 33 2C 33 2C 32 2C 32 2C 31 2C 31 2C 30 2C |2,3,3,2,2,1,1,0,|
00000170: 30 2C 30 2C 30 2C 30 00 74 21 56 00 20 2E 42 59 |0,0,0,0.t!V. .BY|
00000180: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00000190: 30 2C 30 2C 30 2C 30 2C 31 2C 31 2C 31 00 9A 21 |0,0,0,0,1,1,1..!|
000001A0: 57 00 20 2E 42 59 32 2C 32 2C 32 2C 33 2C 33 2C |W. .BY2,2,2,3,3,|
000001B0: 33 2C 34 2C 34 2C 34 2C 35 2C 35 2C 35 2C 34 2C |3,4,4,4,5,5,5,4,|
000001C0: 34 2C 34 00 C0 21 58 00 20 2E 42 59 33 2C 33 2C |4,4..!X. .BY3,3,|
000001D0: 33 2C 32 2C 32 2C 33 2C 33 2C 33 2C 34 2C 34 2C |3,2,2,3,3,3,4,4,|
000001E0: 33 2C 33 2C 33 2C 32 2C 32 00 E6 21 59 00 20 2E |3,3,3,2,2..!Y. .|
000001F0: 42 59 32 2C 31 2C 31 2C 32 2C 32 2C 32 2C 33 2C |BY2,1,1,2,2,2,3,|
00000200: 33 2C 32 2C 32 2C 32 2C 31 2C 31 2C 31 2C 30 00 |3,2,2,2,1,1,1,0.|
00000210: 0C 22 5A 00 20 2E 42 59 30 2C 30 2C 30 2C 30 2C |."Z. .BY0,0,0,0,|
00000220: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00000230: 30 2C 30 2C 30 00 32 22 5B 00 20 2E 42 59 30 2C |0,0,0.2"[. .BY0,|
00000240: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00000250: 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 58 22 5C 00 |0,0,0,0,0,0.X"\.|
00000260: 20 2E 42 59 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C | .BY0,0,0,0,0,0,|
00000270: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00000280: 30 00 7E 22 5D 00 20 2E 42 59 30 2C 30 2C 30 2C |0.~"]. .BY0,0,0,|
00000290: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
000002A0: 30 2C 30 2C 30 2C 30 00 84 22 5E 00 3B 00 AE 22 |0,0,0,0.."^.;.."|
000002B0: 62 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |b.;*************|
000002C0: 2A 2A 20 49 4E 49 54 20 2A 2A 2A 2A 2A 2A 2A 2A |** INIT ********|
000002D0: 2A 2A 2A 2A 2A 2A 2A 00 B4 22 63 00 3B 00 D6 22 |*******.."c.;.."|
000002E0: 64 00 53 54 41 52 54 20 4A 53 52 43 48 41 52 49 |d.START JSRCHARI|
000002F0: 4E 49 54 3B 20 43 48 41 52 2D 4B 4F 50 49 45 00 |NIT; CHAR-KOPIE.|
00000300: F8 22 69 00 20 4A 53 52 43 4C 52 53 43 52 45 45 |."i. JSRCLRSCREE|
00000310: 4E 3B 20 42 49 4C 44 53 43 48 49 52 4D 2D 43 4C |N; BILDSCHIRM-CL|
00000320: 52 00 16 23 6C 00 20 4A 53 52 46 41 52 42 52 41 |R..#l. JSRFARBRA|
00000330: 4D 3B 20 5A 45 49 43 48 45 4E 46 41 52 42 45 00 |M; ZEICHENFARBE.|
00000340: 34 23 6E 00 20 4A 53 52 4D 41 53 4B 45 3B 20 5A |4#n. JSRMASKE; Z|
00000350: 45 49 43 48 45 4E 2D 4D 41 54 52 49 58 00 41 23 |EICHEN-MATRIX.A#|
00000360: 7B 00 20 4C 44 41 23 24 30 30 00 5F 23 7C 00 20 |{. LDA#$00._#|. |
00000370: 53 54 41 4C 49 4E 45 52 45 47 3B 48 49 4C 46 53 |STALINEREG;HILFS|
00000380: 52 45 47 49 53 54 45 52 00 7C 23 7D 00 20 53 54 |REGISTER.|#}. ST|
00000390: 41 4C 49 4E 45 52 45 47 32 3B 20 41 55 46 20 4E |ALINEREG2; AUF N|
000003A0: 55 4C 4C 20 21 00 8C 23 7E 00 20 53 54 41 5A 45 |ULL !..#~. STAZE|
000003B0: 49 43 48 45 4E 00 A5 23 7F 00 20 53 54 41 24 44 |ICHEN..#.. STA$D|
000003C0: 30 32 30 3B 20 42 49 4C 53 43 48 49 52 4D 00 BE |020; BILSCHIRM..|
000003D0: 23 80 00 20 53 54 41 24 44 30 32 31 3B 20 53 43 |#.. STA$D021; SC|
000003E0: 48 57 41 52 5A 20 21 00 D0 23 82 00 20 4A 4D 50 |HWARZ !..#.. JMP|
000003F0: 53 54 52 45 54 43 48 45 52 00 D6 23 8C 00 3B 00 |STRETCHER..#..;.|
00000400: FF 23 91 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 |.#..;********** |
00000410: 49 4E 49 54 2D 52 4F 55 54 49 4E 45 4E 20 2A 2A |INIT-ROUTINEN **|
00000420: 2A 2A 2A 2A 2A 2A 2A 2A 00 05 24 96 00 3B 00 27 |********..$..;.'|
00000430: 24 2C 01 43 48 41 52 49 4E 49 54 20 53 45 49 3B |$,.CHARINIT SEI;|
00000440: 20 52 4F 4D 2D 5A 45 49 43 48 45 4E 53 41 54 5A | ROM-ZEICHENSATZ|
00000450: 00 49 24 36 01 20 4C 44 41 24 30 31 3B 20 56 4F |.I$6. LDA$01; VO|
00000460: 4E 20 24 44 30 30 30 20 4E 41 43 48 20 24 38 30 |N $D000 NACH $80|
00000470: 30 30 00 60 24 40 01 20 41 4E 44 23 24 46 42 3B |00.`$@. AND#$FB;|
00000480: 20 4B 4F 50 49 45 52 45 4E 00 6C 24 4A 01 20 53 | KOPIEREN.l$J. S|
00000490: 54 41 24 30 31 00 79 24 54 01 20 4C 44 58 23 24 |TA$01.y$T. LDX#$|
000004A0: 30 30 00 86 24 5E 01 20 4C 44 59 23 24 31 30 00 |00..$^. LDY#$10.|
000004B0: 99 24 68 01 53 54 31 20 4C 44 41 24 44 30 30 30 |.$h.ST1 LDA$D000|
000004C0: 2C 58 00 A9 24 72 01 20 53 54 41 24 38 30 30 30 |,X..$r. STA$8000|
000004D0: 2C 58 00 B2 24 7C 01 20 49 4E 58 00 BE 24 86 01 |,X..$|. INX..$..|
000004E0: 20 42 4E 45 53 54 31 00 CC 24 90 01 20 49 4E 43 | BNEST1..$.. INC|
000004F0: 53 54 31 2B 32 00 DA 24 9A 01 20 49 4E 43 53 54 |ST1+2..$.. INCST|
00000500: 31 2B 35 00 E3 24 A4 01 20 44 45 59 00 EF 24 AE |1+5..$.. DEY..$.|
00000510: 01 20 42 4E 45 53 54 31 00 FB 24 E0 01 20 4C 44 |. BNEST1..$.. LD|
00000520: 41 24 30 31 00 08 25 EA 01 20 4F 52 41 23 24 30 |A$01..%.. ORA#$0|
00000530: 34 00 14 25 F4 01 20 53 54 41 24 30 31 00 32 25 |4..%.. STA$01.2%|
00000540: FE 01 20 4C 44 41 24 44 30 31 38 3B 20 5A 45 49 |.. LDA$D018; ZEI|
00000550: 43 48 45 4E 53 41 54 5A 20 41 42 00 52 25 08 02 |CHENSATZ AB.R%..|
00000560: 20 41 4E 44 23 24 46 31 3B 20 24 33 30 30 30 20 | AND#$F1; $3000 |
00000570: 45 49 4E 53 43 48 41 4C 54 45 4E 00 5F 25 12 02 |EINSCHALTEN._%..|
00000580: 20 4F 52 41 23 24 30 43 00 6D 25 1C 02 20 53 54 | ORA#$0C.m%.. ST|
00000590: 41 24 44 30 31 38 00 76 25 26 02 20 43 4C 49 00 |A$D018.v%&. CLI.|
000005A0: 83 25 28 02 20 4C 44 59 23 24 30 30 00 90 25 29 |.%(. LDY#$00..%)|
000005B0: 02 20 4C 44 41 23 24 30 30 00 9D 25 2A 02 20 4C |. LDA#$00..%*. L|
000005C0: 44 58 23 24 30 30 00 C0 25 2B 02 53 54 32 20 53 |DX#$00..%+.ST2 S|
000005D0: 54 41 24 33 30 30 30 2C 58 3B 20 5A 45 49 43 48 |TA$3000,X; ZEICH|
000005E0: 45 4E 53 41 54 5A 20 41 42 00 D9 25 2C 02 20 49 |ENSATZ AB..%,. I|
000005F0: 4E 58 3B 20 24 33 30 30 30 20 4C 4F 45 53 43 48 |NX; $3000 LOESCH|
00000600: 45 4E 00 E7 25 2D 02 20 43 50 58 23 24 30 30 3B |EN..%-. CPX#$00;|
00000610: 00 F4 25 2E 02 20 42 4E 45 53 54 32 3B 00 FD 25 |..%.. BNEST2;..%|
00000620: 2F 02 20 49 4E 59 00 0B 26 30 02 20 49 4E 43 53 |/. INY..&0. INCS|
00000630: 54 32 2B 32 00 16 26 31 02 20 43 50 59 23 38 00 |T2+2..&1. CPY#8.|
00000640: 22 26 32 02 20 42 4E 45 53 54 32 00 2B 26 39 02 |"&2. BNEST2.+&9.|
00000650: 20 52 54 53 00 31 26 3A 02 3B 00 5A 26 44 02 3B | RTS.1&:.;.Z&D.;|
00000660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000680: 2A 2A 2A 00 60 26 4E 02 3B 00 72 26 58 02 4D 41 |***.`&N.;.r&X.MA|
00000690: 53 4B 45 20 4C 44 41 23 24 30 30 00 7B 26 62 02 |SKE LDA#$00.{&b.|
000006A0: 20 54 41 58 00 84 26 67 02 20 54 41 59 00 A7 26 | TAX..&g. TAY..&|
000006B0: 6C 02 4D 41 31 20 53 54 41 24 30 35 30 30 2B 32 |l.MA1 STA$0500+2|
000006C0: 38 2C 58 3B 20 5A 45 49 43 48 45 4E 20 41 55 46 |8,X; ZEICHEN AUF|
000006D0: 00 C3 26 76 02 20 43 4C 43 3B 20 42 49 4C 44 53 |..&v. CLC; BILDS|
000006E0: 43 48 49 52 4D 20 53 45 54 5A 45 4E 00 E8 26 80 |CHIRM SETZEN..&.|
000006F0: 02 20 41 44 43 23 30 35 3B 20 35 20 5A 45 49 43 |. ADC#05; 5 ZEIC|
00000700: 48 45 4E 20 55 45 42 45 52 53 50 52 49 4E 47 45 |HEN UEBERSPRINGE|
00000710: 4E 00 F1 26 94 02 20 49 4E 58 00 1F 27 9E 02 20 |N..&.. INX..'.. |
00000720: 43 50 58 23 33 32 3B 20 53 43 48 4F 4E 20 33 33 |CPX#32; SCHON 33|
00000730: 20 5A 45 49 43 48 45 4E 20 4E 45 42 45 4E 45 49 | ZEICHEN NEBENEI|
00000740: 4E 41 4E 44 45 52 20 3F 00 3F 27 A8 02 20 42 4E |NANDER ?.?'.. BN|
00000750: 45 4D 41 31 3B 20 4E 45 49 4E 2C 20 44 41 4E 4E |EMA1; NEIN, DANN|
00000760: 20 4E 4F 43 48 4D 41 4C 00 48 27 B2 02 20 49 4E | NOCHMAL.H'.. IN|
00000770: 59 00 6D 27 BC 02 20 43 50 59 23 30 35 3B 20 53 |Y.m'.. CPY#05; S|
00000780: 43 48 4F 4E 20 35 20 5A 45 49 4C 45 4E 20 46 45 |CHON 5 ZEILEN FE|
00000790: 52 54 49 47 20 3F 00 8D 27 C6 02 20 42 45 51 4D |RTIG ?..'.. BEQM|
000007A0: 41 53 4B 45 45 4E 44 3B 20 4A 41 2C 20 44 41 4E |ASKEEND; JA, DAN|
000007B0: 4E 20 52 41 55 53 00 B1 27 D0 02 20 4C 44 41 4D |N RAUS..'.. LDAM|
000007C0: 41 31 2B 31 3B 20 4E 41 45 43 48 53 54 45 20 42 |A1+1; NAECHSTE B|
000007D0: 49 4C 44 53 43 48 49 52 4D 2D 00 CC 27 D5 02 20 |ILDSCHIRM-..'.. |
000007E0: 43 4C 43 3B 20 5A 45 49 4C 45 20 45 49 4E 53 54 |CLC; ZEILE EINST|
000007F0: 45 4C 4C 45 4E 00 D8 27 DA 02 20 41 44 43 23 34 |ELLEN..'.. ADC#4|
00000800: 30 00 E6 27 E4 02 20 53 54 41 4D 41 31 2B 31 00 |0..'.. STAMA1+1.|
00000810: F3 27 EE 02 20 4C 44 58 23 24 30 30 00 FC 27 F3 |.'.. LDX#$00..'.|
00000820: 02 20 54 59 41 00 15 28 F8 02 20 4A 4D 50 4D 41 |. TYA..(.. JMPMA|
00000830: 31 3B 20 55 4E 44 20 4E 4F 43 48 4D 41 4C 00 37 |1; UND NOCHMAL.7|
00000840: 28 16 03 4D 41 53 4B 45 45 4E 44 20 52 54 53 3B |(..MASKEEND RTS;|
00000850: 20 55 4E 44 20 54 53 43 48 55 45 53 53 2E 2E 2E | UND TSCHUESS...|
00000860: 00 3D 28 20 03 3B 00 66 28 2A 03 3B 2A 2A 2A 2A |.=( .;.f(*.;****|
00000870: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000880: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000890: 6C 28 34 03 3B 00 92 28 E8 03 43 4C 52 53 43 52 |l(4.;..(..CLRSCR|
000008A0: 45 45 4E 20 4C 44 58 23 24 30 30 3B 20 42 49 4C |EEN LDX#$00; BIL|
000008B0: 44 53 43 48 49 52 4D 20 4D 49 54 00 B2 28 F2 03 |DSCHIRM MIT..(..|
000008C0: 20 4C 44 41 23 24 46 46 3B 20 43 48 41 52 20 23 | LDA#$FF; CHAR #|
000008D0: 32 35 35 20 46 55 45 4C 4C 45 4E 00 D7 28 FC 03 |255 FUELLEN..(..|
000008E0: 43 4C 31 20 53 54 41 24 30 34 30 30 2C 58 3B 20 |CL1 STA$0400,X; |
000008F0: 3D 20 42 49 4C 44 53 43 48 49 52 4D 2D 43 4C 52 |= BILDSCHIRM-CLR|
00000900: 00 E0 28 06 04 20 49 4E 58 00 ED 28 10 04 20 43 |..(.. INX..(.. C|
00000910: 50 58 23 24 30 30 00 F9 28 1A 04 20 42 4E 45 43 |PX#$00..(.. BNEC|
00000920: 4C 31 00 0C 29 60 04 43 4C 32 20 53 54 41 24 30 |L1..)`.CL2 STA$0|
00000930: 35 30 30 2C 58 00 15 29 6A 04 20 49 4E 58 00 22 |500,X..)j. INX."|
00000940: 29 74 04 20 43 50 58 23 24 30 30 00 2E 29 7E 04 |)t. CPX#$00..)~.|
00000950: 20 42 4E 45 43 4C 32 00 41 29 C4 04 43 4C 33 20 | BNECL2.A)..CL3 |
00000960: 53 54 41 24 30 36 30 30 2C 58 00 4A 29 CE 04 20 |STA$0600,X.J).. |
00000970: 49 4E 58 00 57 29 D8 04 20 43 50 58 23 24 30 30 |INX.W).. CPX#$00|
00000980: 00 63 29 E2 04 20 42 4E 45 43 4C 33 00 76 29 28 |.c).. BNECL3.v)(|
00000990: 05 43 4C 34 20 53 54 41 24 30 37 30 30 2C 58 00 |.CL4 STA$0700,X.|
000009A0: 7F 29 32 05 20 49 4E 58 00 8C 29 3C 05 20 43 50 |.)2. INX..)<. CP|
000009B0: 58 23 32 33 32 00 98 29 46 05 20 42 4E 45 43 4C |X#232..)F. BNECL|
000009C0: 34 00 A1 29 6E 05 20 52 54 53 00 A7 29 78 05 3B |4..)n. RTS..)x.;|
000009D0: 00 CF 29 82 05 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..)..;**********|
000009E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009F0: 2A 2A 2A 2A 2A 2A 2A 2A 00 D5 29 8C 05 3B 00 F8 |********..)..;..|
00000A00: 29 A4 06 46 41 52 42 52 41 4D 20 4C 44 41 23 30 |)..FARBRAM LDA#0|
00000A10: 31 3B 20 46 41 52 42 45 20 44 45 52 20 5A 45 49 |1; FARBE DER ZEI|
00000A20: 2D 00 15 2A AE 06 20 4C 44 58 23 24 30 30 3B 20 |-..*.. LDX#$00; |
00000A30: 43 48 45 4E 4D 41 54 52 49 58 20 41 55 46 00 36 |CHENMATRIX AUF.6|
00000A40: 2A B8 06 46 41 31 20 53 54 41 24 44 39 30 30 2C |*..FA1 STA$D900,|
00000A50: 58 3B 20 57 45 49 53 53 20 53 45 54 5A 45 4E 00 |X; WEISS SETZEN.|
00000A60: 3F 2A C2 06 20 49 4E 58 00 4C 2A CC 06 20 43 50 |?*.. INX.L*.. CP|
00000A70: 58 23 24 30 30 00 58 2A D6 06 20 42 4E 45 46 41 |X#$00.X*.. BNEFA|
00000A80: 31 00 61 2A E0 06 20 52 54 53 00 67 2A 08 07 3B |1.a*.. RTS.g*..;|
00000A90: 00 8F 2A 12 07 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..*..;**********|
00000AA0: 20 48 41 55 50 54 50 52 4F 47 52 41 4D 4D 20 2A | HAUPTPROGRAMM *|
00000AB0: 2A 2A 2A 2A 2A 2A 2A 2A 00 95 2A 1C 07 3B 00 BB |********..*..;..|
00000AC0: 2A D0 07 53 54 52 45 54 43 48 45 52 20 4A 53 52 |*..STRETCHER JSR|
00000AD0: 44 43 4C 50 3B 20 43 48 41 52 2D 53 54 52 45 54 |DCLP; CHAR-STRET|
00000AE0: 43 48 45 52 00 E0 2A DB 07 20 4A 53 52 53 49 4E |CHER..*.. JSRSIN|
00000AF0: 53 43 48 49 45 42 3B 20 53 49 4E 55 53 54 41 42 |SCHIEB; SINUSTAB|
00000B00: 2D 52 4F 54 49 45 52 45 4E 00 01 2B 02 08 20 4A |-ROTIEREN..+.. J|
00000B10: 4D 50 53 54 52 45 54 43 48 45 52 3B 20 55 4E 44 |MPSTRETCHER; UND|
00000B20: 20 56 4F 4E 20 56 4F 52 4E 45 00 07 2B B8 0B 3B | VON VORNE..+..;|
00000B30: 00 2F 2B C2 0B 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |./+..;**********|
00000B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B50: 2A 2A 2A 2A 2A 2A 2A 2A 00 35 2B CC 0B 3B 00 63 |********.5+..;.c|
00000B60: 2B 88 13 44 43 4C 50 20 4C 44 58 4C 49 4E 45 52 |+..DCLP LDXLINER|
00000B70: 45 47 32 3B 20 5A 45 49 4C 45 20 44 45 53 20 43 |EG2; ZEILE DES C|
00000B80: 48 41 52 53 20 28 4D 41 58 2E 38 29 00 87 2B 92 |HARS (MAX.8)..+.|
00000B90: 13 20 4C 44 59 4C 49 4E 45 52 45 47 3B 20 50 49 |. LDYLINEREG; PI|
00000BA0: 58 45 4C 5A 45 49 4C 45 28 4D 41 58 2E 34 30 29 |XELZEILE(MAX.40)|
00000BB0: 00 AA 2B 9C 13 44 43 31 20 4C 44 41 24 38 30 30 |..+..DC1 LDA$800|
00000BC0: 38 2C 58 3B 20 43 48 41 52 42 59 54 45 20 48 4F |8,X; CHARBYTE HO|
00000BD0: 4C 45 4E 00 D0 2B A6 13 4D 41 52 4B 45 31 20 53 |LEN..+..MARKE1 S|
00000BE0: 54 41 24 33 30 30 30 2C 59 3B 20 55 4E 44 20 4E |TA$3000,Y; UND N|
00000BF0: 41 43 48 20 24 33 30 30 30 00 D9 2B B0 13 20 49 |ACH $3000..+.. I|
00000C00: 4E 58 00 FC 2B BA 13 20 43 50 58 23 24 30 38 3B |NX..+.. CPX#$08;|
00000C10: 20 53 43 48 4F 4E 20 38 20 43 48 41 52 5A 45 49 | SCHON 8 CHARZEI|
00000C20: 4C 45 4E 20 3F 00 20 2C C4 13 20 42 45 51 4E 45 |LEN ?. ,.. BEQNE|
00000C30: 58 54 43 48 41 52 3B 20 4A 41 2C 20 44 41 4E 4E |XTCHAR; JA, DANN|
00000C40: 20 4E 45 58 54 43 48 41 52 00 29 2C CE 13 20 49 | NEXTCHAR.),.. I|
00000C50: 4E 59 00 39 2C E2 13 20 53 54 59 4C 49 4E 45 52 |NY.9,.. STYLINER|
00000C60: 45 47 00 4A 2C EC 13 20 53 54 58 4C 49 4E 45 52 |EG.J,.. STXLINER|
00000C70: 45 47 32 00 71 2C F6 13 4D 41 52 4B 45 35 20 4C |EG2.q,..MARKE5 L|
00000C80: 44 59 53 49 4E 55 53 2C 58 3B 20 53 49 4E 55 53 |DYSINUS,X; SINUS|
00000C90: 57 45 52 54 20 4C 41 44 45 4E 00 8D 2C 00 14 20 |WERT LADEN..,.. |
00000CA0: 43 50 59 23 24 30 30 3B 20 47 4C 45 49 43 48 20 |CPY#$00; GLEICH |
00000CB0: 4E 55 4C 4C 20 3F 00 B6 2C 0A 14 20 42 45 51 44 |NULL ?..,.. BEQD|
00000CC0: 43 4C 50 3B 20 4A 41 2C 20 44 41 4E 4E 20 4E 41 |CLP; JA, DANN NA|
00000CD0: 43 48 53 54 45 20 43 48 41 52 5A 45 49 4C 45 00 |CHSTE CHARZEILE.|
00000CE0: DE 2C 1E 14 4D 41 52 4B 45 32 20 4C 44 41 24 38 |.,..MARKE2 LDA$8|
00000CF0: 30 30 38 2D 31 2C 58 3B 20 43 48 41 52 42 59 54 |008-1,X; CHARBYT|
00000D00: 45 20 48 4F 4C 45 4E 00 F1 2C 28 14 44 43 32 20 |E HOLEN..,(.DC2 |
00000D10: 4C 44 58 4C 49 4E 45 52 45 47 00 17 2D 32 14 4D |LDXLINEREG..-2.M|
00000D20: 41 52 4B 45 33 20 53 54 41 24 33 30 30 30 2C 58 |ARKE3 STA$3000,X|
00000D30: 3B 20 55 4E 44 20 53 4F 4F 46 54 20 4E 41 43 48 |; UND SOOFT NACH|
00000D40: 00 39 2D 3C 14 20 49 4E 43 4C 49 4E 45 52 45 47 |.9-<. INCLINEREG|
00000D50: 3B 20 24 33 30 30 30 20 53 43 48 52 45 49 42 45 |; $3000 SCHREIBE|
00000D60: 4E 2C 00 55 2D 46 14 20 44 45 59 3B 20 57 49 45 |N,.U-F. DEY; WIE|
00000D70: 20 45 53 20 44 45 52 20 53 49 4E 55 53 2D 00 71 | ES DER SINUS-.q|
00000D80: 2D 50 14 20 43 50 59 23 24 30 30 3B 20 57 45 52 |-P. CPY#$00; WER|
00000D90: 54 20 56 45 52 4C 41 4E 47 54 00 7D 2D 5A 14 20 |T VERLANGT.}-Z. |
00000DA0: 42 4E 45 44 43 32 00 A2 2D 64 14 20 4A 4D 50 44 |BNEDC2..-d. JMPD|
00000DB0: 43 4C 50 3B 20 55 4E 44 20 4E 41 45 43 48 53 54 |CLP; UND NAECHST|
00000DC0: 45 20 43 48 41 52 5A 45 49 4C 45 00 B7 2D B4 14 |E CHARZEILE..-..|
00000DD0: 4E 45 58 54 43 48 41 52 20 4C 44 41 23 24 30 30 |NEXTCHAR LDA#$00|
00000DE0: 00 C7 2D BE 14 20 4C 44 59 4C 49 4E 45 52 45 47 |..-.. LDYLINEREG|
00000DF0: 00 F3 2D C8 14 44 43 33 20 43 50 59 23 34 30 3B |..-..DC3 CPY#40;|
00000E00: 20 53 43 48 4F 4E 20 41 4C 4C 45 20 34 30 20 50 | SCHON ALLE 40 P|
00000E10: 49 58 45 4C 5A 45 49 4C 45 4E 20 3F 00 18 2E D2 |IXELZEILEN ?....|
00000E20: 14 20 42 45 51 44 43 34 3B 20 4A 41 2C 20 44 41 |. BEQDC4; JA, DA|
00000E30: 4E 4E 20 4E 41 45 43 48 53 54 45 52 20 43 48 41 |NN NAECHSTER CHA|
00000E40: 52 00 3F 2E DC 14 4D 41 52 4B 45 34 20 53 54 41 |R.?...MARKE4 STA|
00000E50: 24 33 30 30 30 2C 59 3B 20 53 4F 4E 53 54 20 52 |$3000,Y; SONST R|
00000E60: 45 53 54 4C 49 43 48 45 00 55 2E E6 14 20 49 4E |ESTLICHE.U... IN|
00000E70: 59 3B 20 50 49 58 45 4C 5A 45 49 4C 45 4E 00 6D |Y; PIXELZEILEN.m|
00000E80: 2E F0 14 20 4A 4D 50 44 43 33 3B 20 4C 4F 45 53 |... JMPDC3; LOES|
00000E90: 43 48 45 4E 20 21 00 8C 2E FA 14 44 43 34 20 4C |CHEN !.....DC4 L|
00000EA0: 44 41 23 24 30 30 3B 20 48 49 4C 46 53 52 45 47 |DA#$00; HILFSREG|
00000EB0: 49 53 54 45 52 00 A8 2E 04 15 20 53 54 41 4C 49 |ISTER..... STALI|
00000EC0: 4E 45 52 45 47 3B 20 4C 4F 45 53 43 48 45 4E 20 |NEREG; LOESCHEN |
00000ED0: 21 00 B9 2E 09 15 20 53 54 41 4C 49 4E 45 52 45 |!..... STALINERE|
00000EE0: 47 32 00 C9 2E 0E 15 20 49 4E 43 5A 45 49 43 48 |G2..... INCZEICH|
00000EF0: 45 4E 00 D9 2E 22 15 20 49 4E 43 5A 45 49 43 48 |EN...". INCZEICH|
00000F00: 45 4E 00 E9 2E 2C 15 20 4C 44 58 5A 45 49 43 48 |EN...,. LDXZEICH|
00000F10: 45 4E 00 0E 2F 36 15 20 43 50 58 23 36 34 3B 20 |EN../6. CPX#64; |
00000F20: 53 43 48 4F 4E 20 41 4C 4C 45 20 33 32 20 5A 45 |SCHON ALLE 32 ZE|
00000F30: 49 43 48 45 4E 20 3F 00 2E 2F 40 15 20 42 45 51 |ICHEN ?../@. BEQ|
00000F40: 44 43 4C 50 45 4E 44 45 3B 20 4A 41 2C 20 44 41 |DCLPENDE; JA, DA|
00000F50: 4E 4E 20 45 4E 44 45 00 51 2F 4A 15 20 4C 44 41 |NN ENDE.Q/J. LDA|
00000F60: 43 48 41 52 53 45 54 2C 58 3B 20 53 4F 4E 53 54 |CHARSET,X; SONST|
00000F70: 20 4E 41 45 43 48 53 54 45 53 00 79 2F 4F 15 20 | NAECHSTES.y/O. |
00000F80: 4C 44 59 43 48 41 52 53 45 54 2B 31 2C 58 3B 20 |LDYCHARSET+1,X; |
00000F90: 5A 45 49 43 48 45 4E 20 45 49 4E 53 54 45 4C 4C |ZEICHEN EINSTELL|
00000FA0: 45 4E 00 95 2F 54 15 20 53 54 41 4D 41 52 4B 45 |EN../T. STAMARKE|
00000FB0: 31 2B 32 3B 20 20 20 20 20 20 20 2E 2E 2E 00 B1 |1+2; .....|
00000FC0: 2F 5E 15 20 53 54 59 4D 41 52 4B 45 31 2B 31 3B |/^. STYMARKE1+1;|
00000FD0: 20 20 20 20 20 20 20 2E 2E 2E 00 CD 2F 68 15 20 | ...../h. |
00000FE0: 53 54 41 4D 41 52 4B 45 33 2B 32 3B 20 20 20 20 |STAMARKE3+2; |
00000FF0: 20 20 20 2E 2E 2E 00 E9 2F 72 15 20 53 54 59 4D | ...../r. STYM|
00001000: 41 52 4B 45 33 2B 31 3B 20 20 20 20 20 20 20 2E |ARKE3+1; .|
00001010: 2E 2E 00 05 30 7C 15 20 53 54 41 4D 41 52 4B 45 |....0|. STAMARKE|
00001020: 34 2B 32 3B 20 20 20 20 20 20 20 2E 2E 2E 00 21 |4+2; ....!|
00001030: 30 86 15 20 53 54 59 4D 41 52 4B 45 34 2B 31 3B |0.. STYMARKE4+1;|
00001040: 20 20 20 20 20 20 20 2E 2E 2E 00 3D 30 A4 15 20 | ....=0.. |
00001050: 49 4E 43 4D 41 52 4B 45 35 2B 31 3B 20 20 20 20 |INCMARKE5+1; |
00001060: 20 20 20 2E 2E 2E 00 5C 30 AE 15 20 4C 44 41 42 | ....\0.. LDAB|
00001070: 55 43 48 53 54 41 42 45 2C 58 3B 20 20 20 20 20 |UCHSTABE,X; |
00001080: 20 20 2E 2E 2E 00 7B 30 B8 15 20 4C 44 59 42 55 | ....{0.. LDYBU|
00001090: 43 48 53 54 41 42 45 2B 31 2C 58 3B 20 20 20 20 |CHSTABE+1,X; |
000010A0: 20 2E 2E 2E 00 94 30 C2 15 20 53 54 41 44 43 31 | .....0.. STADC1|
000010B0: 2B 32 3B 20 20 20 20 20 20 20 2E 2E 2E 00 AD 30 |+2; .....0|
000010C0: CC 15 20 53 54 59 44 43 31 2B 31 3B 20 20 20 20 |.. STYDC1+1; |
000010D0: 20 20 20 2E 2E 2E 00 C9 30 D6 15 20 53 54 41 4D | .....0.. STAM|
000010E0: 41 52 4B 45 32 2B 32 3B 20 20 20 20 20 20 20 2E |ARKE2+2; .|
000010F0: 2E 2E 00 DD 30 DA 15 20 44 45 59 3B 20 20 20 20 |....0.. DEY; |
00001100: 20 20 20 2E 2E 2E 00 F9 30 DE 15 20 53 54 59 4D | .....0.. STYM|
00001110: 41 52 4B 45 32 2B 31 3B 20 20 20 20 20 20 20 2E |ARKE2+1; .|
00001120: 2E 2E 00 14 31 E0 15 20 4A 4D 50 44 43 4C 50 3B |....1.. JMPDCLP;|
00001130: 20 55 4E 44 20 56 4F 4E 20 56 4F 52 4E 00 3D 31 | UND VON VORN.=1|
00001140: A8 16 44 43 4C 50 45 4E 44 45 20 4C 44 41 23 24 |..DCLPENDE LDA#$|
00001150: 30 30 3B 20 47 52 55 4E 44 45 49 4E 53 54 45 4C |00; GRUNDEINSTEL|
00001160: 4C 55 4E 47 45 4E 00 62 31 B2 16 20 53 54 41 5A |LUNGEN.b1.. STAZ|
00001170: 45 49 43 48 45 4E 3B 20 57 49 45 44 45 52 20 48 |EICHEN; WIEDER H|
00001180: 45 52 53 54 45 4C 4C 45 4E 20 21 00 72 31 BC 16 |ERSTELLEN !.r1..|
00001190: 20 53 54 41 4C 49 4E 45 52 45 47 00 83 31 C6 16 | STALINEREG..1..|
000011A0: 20 53 54 41 4C 49 4E 45 52 45 47 32 00 95 31 D0 | STALINEREG2..1.|
000011B0: 16 20 4C 44 41 23 3C 28 53 49 4E 55 53 29 00 A6 |. LDA#<(SINUS)..|
000011C0: 31 DA 16 20 53 54 41 4D 41 52 4B 45 35 2B 31 00 |1.. STAMARKE5+1.|
000011D0: B3 31 E4 16 20 4C 44 41 23 24 33 30 00 C4 31 EE |.1.. LDA#$30..1.|
000011E0: 16 20 53 54 41 4D 41 52 4B 45 31 2B 32 00 D5 31 |. STAMARKE1+2..1|
000011F0: F1 16 20 53 54 41 4D 41 52 4B 45 33 2B 32 00 E6 |.. STAMARKE3+2..|
00001200: 31 F4 16 20 53 54 41 4D 41 52 4B 45 34 2B 32 00 |1.. STAMARKE4+2.|
00001210: F3 31 F8 16 20 4C 44 41 23 24 30 30 00 04 32 FA |.1.. LDA#$00..2.|
00001220: 16 20 53 54 41 4D 41 52 4B 45 31 2B 31 00 15 32 |. STAMARKE1+1..2|
00001230: FB 16 20 53 54 41 4D 41 52 4B 45 33 2B 31 00 26 |.. STAMARKE3+1.&|
00001240: 32 FC 16 20 53 54 41 4D 41 52 4B 45 34 2B 31 00 |2.. STAMARKE4+1.|
00001250: 38 32 02 17 20 4C 44 41 42 55 43 48 53 54 41 42 |82.. LDABUCHSTAB|
00001260: 45 00 4C 32 0C 17 20 4C 44 59 42 55 43 48 53 54 |E.L2.. LDYBUCHST|
00001270: 41 42 45 2B 31 00 5A 32 16 17 20 53 54 41 44 43 |ABE+1.Z2.. STADC|
00001280: 31 2B 32 00 68 32 20 17 20 53 54 59 44 43 31 2B |1+2.h2 . STYDC1+|
00001290: 31 00 71 32 2A 17 20 44 45 59 00 82 32 34 17 20 |1.q2*. DEY..24. |
000012A0: 53 54 41 4D 41 52 4B 45 32 2B 32 00 93 32 3E 17 |STAMARKE2+2..2>.|
000012B0: 20 53 54 59 4D 41 52 4B 45 32 2B 31 00 B7 32 66 | STYMARKE2+1..2f|
000012C0: 17 20 52 54 53 3B 20 5A 55 52 55 45 43 4B 20 5A |. RTS; ZURUECK Z|
000012D0: 55 52 20 48 41 55 50 54 53 43 48 4C 45 49 46 45 |UR HAUPTSCHLEIFE|
000012E0: 00 BD 32 68 17 3B 00 E5 32 69 17 3B 2A 2A 2A 2A |..2h.;..2i.;****|
000012F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EB |**************..|
00001310: 32 6A 17 3B 00 0D 33 70 17 53 49 4E 53 43 48 49 |2j.;..3p.SINSCHI|
00001320: 45 42 20 4C 44 59 53 49 4E 55 53 3B 20 48 49 45 |EB LDYSINUS; HIE|
00001330: 52 20 57 49 52 44 00 26 33 84 17 20 4C 44 58 23 |R WIRD.&3.. LDX#|
00001340: 24 30 30 3B 20 44 49 45 20 53 49 4E 55 53 2D 00 |$00; DIE SINUS-.|
00001350: 48 33 8E 17 53 49 31 20 4C 44 41 53 49 4E 55 53 |H3..SI1 LDASINUS|
00001360: 2B 31 2C 58 3B 20 54 41 42 45 4C 4C 45 20 4A 45 |+1,X; TABELLE JE|
00001370: 2D 00 62 33 98 17 20 53 54 41 53 49 4E 55 53 2C |-.b3.. STASINUS,|
00001380: 58 3B 20 57 45 49 4C 53 20 55 4D 00 77 33 A2 17 |X; WEILS UM.w3..|
00001390: 20 49 4E 58 3B 20 45 49 4E 45 4E 20 57 45 52 54 | INX; EINEN WERT|
000013A0: 00 90 33 AC 17 20 43 50 58 23 31 30 30 3B 20 4E |..3.. CPX#100; N|
000013B0: 41 43 48 20 4C 49 4E 4B 53 00 A5 33 B6 17 20 42 |ACH LINKS..3.. B|
000013C0: 4E 45 53 49 31 3B 20 52 4F 54 49 45 52 54 00 B7 |NESI1; ROTIERT..|
000013D0: 33 C0 17 20 53 54 59 53 49 4E 55 53 2B 31 30 30 |3.. STYSINUS+100|
000013E0: 00 C0 33 CA 17 20 52 54 53 00 C6 33 58 1B 3B 00 |..3.. RTS..3X.;.|
000013F0: ED 33 78 69 3B 2A 2A 2A 20 43 48 41 52 53 45 54 |.3xi;*** CHARSET|
00001400: 3D 24 33 30 30 30 2B 58 2A 34 30 20 4C 49 4E 49 |=$3000+X*40 LINI|
00001410: 45 4E 20 2A 2A 2A 00 F3 33 7D 69 3B 00 1A 34 82 |EN ***..3}i;..4.|
00001420: 69 43 48 41 52 53 45 54 20 2E 42 59 24 33 30 2C |iCHARSET .BY$30,|
00001430: 30 30 30 2C 24 33 30 2C 30 34 30 2C 24 33 30 2C |000,$30,040,$30,|
00001440: 30 38 30 00 3A 34 96 69 20 2E 42 59 24 33 30 2C |080.:4.i .BY$30,|
00001450: 31 32 30 2C 24 33 30 2C 31 36 30 2C 24 33 30 2C |120,$30,160,$30,|
00001460: 32 30 30 00 5A 34 B4 69 20 2E 42 59 24 33 30 2C |200.Z4.i .BY$30,|
00001470: 32 34 30 2C 24 33 31 2C 30 32 34 2C 24 33 31 2C |240,$31,024,$31,|
00001480: 30 36 34 00 7A 34 D2 69 20 2E 42 59 24 33 31 2C |064.z4.i .BY$31,|
00001490: 31 30 34 2C 24 33 31 2C 31 34 34 2C 24 33 31 2C |104,$31,144,$31,|
000014A0: 31 38 34 00 9A 34 F0 69 20 2E 42 59 24 33 31 2C |184..4.i .BY$31,|
000014B0: 32 32 34 2C 24 33 32 2C 30 30 38 2C 24 33 32 2C |224,$32,008,$32,|
000014C0: 30 34 38 00 BA 34 0E 6A 20 2E 42 59 24 33 32 2C |048..4.j .BY$32,|
000014D0: 30 38 38 2C 24 33 32 2C 31 32 38 2C 24 33 32 2C |088,$32,128,$32,|
000014E0: 31 36 38 00 DA 34 2C 6A 20 2E 42 59 24 33 32 2C |168..4,j .BY$32,|
000014F0: 32 30 38 2C 24 33 32 2C 32 34 38 2C 24 33 33 2C |208,$32,248,$33,|
00001500: 30 33 32 00 FA 34 4A 6A 20 2E 42 59 24 33 33 2C |032..4Jj .BY$33,|
00001510: 30 37 32 2C 24 33 33 2C 31 31 32 2C 24 33 33 2C |072,$33,112,$33,|
00001520: 31 35 32 00 1A 35 68 6A 20 2E 42 59 24 33 33 2C |152..5hj .BY$33,|
00001530: 31 39 32 2C 24 33 33 2C 32 33 32 2C 24 33 34 2C |192,$33,232,$34,|
00001540: 30 31 36 00 3A 35 86 6A 20 2E 42 59 24 33 34 2C |016.:5.j .BY$34,|
00001550: 30 35 36 2C 24 33 34 2C 30 39 36 2C 24 33 34 2C |056,$34,096,$34,|
00001560: 31 33 36 00 5A 35 A4 6A 20 2E 42 59 24 33 34 2C |136.Z5.j .BY$34,|
00001570: 31 37 36 2C 24 33 34 2C 32 31 36 2C 24 33 35 2C |176,$34,216,$35,|
00001580: 30 30 30 00 60 35 60 6D 3B 00 87 35 6A 6D 3B 2A |000.`5`m;..5jm;*|
00001590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 44 43 4C 50 2D |********** DCLP-|
000015A0: 54 45 58 54 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |TEXT ***********|
000015B0: 00 8D 35 74 6D 3B 00 A9 35 48 71 42 55 43 48 53 |..5tm;..5HqBUCHS|
000015C0: 54 41 42 45 20 2E 42 59 24 38 30 2C 32 34 3B 20 |TABE .BY$80,24; |
000015D0: 20 43 00 BC 35 52 71 20 2E 42 59 24 38 30 2C 36 | C..5Rq .BY$80,6|
000015E0: 34 3B 20 20 48 00 CF 35 5C 71 20 2E 42 59 24 38 |4; H..5\q .BY$8|
000015F0: 30 2C 30 38 3B 20 20 41 00 E3 35 66 71 20 2E 42 |0,08; A..5fq .B|
00001600: 59 24 38 30 2C 31 32 30 3B 20 20 4F 00 F7 35 70 |Y$80,120; O..5p|
00001610: 71 20 2E 42 59 24 38 30 2C 31 35 32 3B 20 20 53 |q .BY$80,152; S|
00001620: 00 08 36 7A 71 20 2E 42 59 24 38 31 2C 31 31 32 |..6zq .BY$81,112|
00001630: 3B 00 1C 36 84 71 20 2E 42 59 24 38 30 2C 31 32 |;..6.q .BY$80,12|
00001640: 38 3B 20 20 50 00 30 36 8E 71 20 2E 42 59 24 38 |8; P.06.q .BY$8|
00001650: 30 2C 31 34 34 3B 20 20 52 00 43 36 98 71 20 2E |0,144; R.C6.q .|
00001660: 42 59 24 38 30 2C 34 30 3B 20 20 45 00 57 36 A2 |BY$80,40; E.W6.|
00001670: 71 20 2E 42 59 24 38 30 2C 31 35 32 3B 20 20 53 |q .BY$80,152; S|
00001680: 00 6A 36 AC 71 20 2E 42 59 24 38 30 2C 34 30 3B |.j6.q .BY$80,40;|
00001690: 20 20 45 00 7E 36 B6 71 20 2E 42 59 24 38 30 2C | E.~6.q .BY$80,|
000016A0: 31 31 32 3B 20 20 4E 00 92 36 C0 71 20 2E 42 59 |112; N..6.q .BY|
000016B0: 24 38 30 2C 31 36 30 3B 20 20 54 00 A6 36 CA 71 |$80,160; T..6.q|
000016C0: 20 2E 42 59 24 38 30 2C 31 35 32 3B 20 20 53 00 | .BY$80,152; S.|
000016D0: BA 36 D4 71 20 2E 42 59 24 38 31 2C 32 30 38 3B |.6.q .BY$81,208;|
000016E0: 20 20 3A 00 CB 36 DE 71 20 2E 42 59 24 38 31 2C | :..6.q .BY$81,|
000016F0: 31 31 32 3B 00 DF 36 E8 71 20 2E 42 59 24 38 30 |112;..6.q .BY$80|
00001700: 2C 31 32 38 3B 20 20 50 00 F2 36 F2 71 20 2E 42 |,128; P..6.q .B|
00001710: 59 24 38 30 2C 34 30 3B 20 20 45 00 06 37 FC 71 |Y$80,40; E..7.q|
00001720: 20 2E 42 59 24 38 30 2C 31 34 34 3B 20 20 52 00 | .BY$80,144; R.|
00001730: 19 37 06 72 20 2E 42 59 24 38 30 2C 34 38 3B 20 |.7.r .BY$80,48; |
00001740: 20 46 00 2C 37 10 72 20 2E 42 59 24 38 30 2C 34 | F.,7.r .BY$80,4|
00001750: 30 3B 20 20 45 00 3F 37 1A 72 20 2E 42 59 24 38 |0; E.?7.r .BY$8|
00001760: 30 2C 32 34 3B 20 20 43 00 53 37 24 72 20 2E 42 |0,24; C.S7$r .B|
00001770: 59 24 38 30 2C 31 36 30 3B 20 20 54 00 64 37 2E |Y$80,160; T.d7.|
00001780: 72 20 2E 42 59 24 38 31 2C 31 31 32 3B 00 77 37 |r .BY$81,112;.w7|
00001790: 38 72 20 2E 42 59 24 38 30 2C 33 32 3B 20 20 44 |8r .BY$80,32; D|
000017A0: 00 8B 37 42 72 20 2E 42 59 24 38 31 2C 31 31 32 |..7Br .BY$81,112|
000017B0: 3B 20 20 2E 00 9E 37 4C 72 20 2E 42 59 24 38 30 |; ...7Lr .BY$80|
000017C0: 2C 32 34 3B 20 20 43 00 B2 37 56 72 20 2E 42 59 |,24; C..7Vr .BY|
000017D0: 24 38 31 2C 31 31 32 3B 20 20 2E 00 C5 37 60 72 |$81,112; ...7`r|
000017E0: 20 2E 42 59 24 38 30 2C 39 36 3B 20 20 4C 00 D9 | .BY$80,96; L..|
000017F0: 37 6A 72 20 2E 42 59 24 38 31 2C 31 31 32 3B 20 |7jr .BY$81,112; |
00001800: 20 2E 00 ED 37 74 72 20 2E 42 59 24 38 30 2C 31 | ...7tr .BY$80,1|
00001810: 32 38 3B 20 20 50 00 01 38 7E 72 20 2E 42 59 24 |28; P..8~r .BY$|
00001820: 38 31 2C 31 31 32 3B 20 20 2E 00 07 38 D8 72 3B |81,112; ...8.r;|
00001830: 00 2E 38 E2 72 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..8.r;**********|
00001840: 2A 2A 2A 20 45 4E 44 45 20 2A 2A 2A 2A 2A 2A 2A |*** ENDE *******|
00001850: 2A 2A 2A 2A 2A 2A 2A 00 36 38 3C 73 2E 45 4E 00 |*******.68<s.EN.|
00001860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001870: 00 00 00 00 00 00 00 00 00 00 00 7E 7E 18 18 18 |...........~~...|
00001880: 18 18 18 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000018A0: 00 00 00 66 66 66 7E 66 66 66 00 00 00 00 00 00 |...fff~fff......|
000018B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000018C0: 00 00 00 00 00 00 00 00 00 00 00 3C 18 18 18 18 |...........<....|
000018D0: 18 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |.<..............|
000018E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000018F0: 00 00 00 3C 66 60 3C 06 66 3C 00 00 00 00 00 00 |...<f`<.f<......|
00001900: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001910: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001920: 18 18 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001930: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001940: 00 00 00 3C 18 18 18 18 18 3C 00 00 00 00 00 00 |...<.....<......|
00001950: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001960: 00 00 00 00 00 00 00 00 00 00 00 3C 66 60 3C 06 |...........<f`<.|
00001970: 66 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |f<..............|
00001980: 00 00 00 |... |
X.....;.- ..;PROGRAMNAME: PERFECT D.C.L.
P. AUTHOR: NICO 'SLIMER'
REUTER.3 ..;.] ..;**********************
**************.C ..;.Q .. .BA$9000.W (.;
.. 2..EQ LINEREG = $C000.. <..EQ LINER
EG2 = $C001.E F..EQ ZEICHEN = $C002..
P..EQ SINREG = $C003.. Q.;..!R.;****
****** SINUS-TABELLE ***********..!S.;.#
!T. JMPSTART.N!U.SINUS .BY1,1,2,2,3,3,2,
2,1,1,0,0,0,0,0.T!V. .BY0,0,0,0,0,0,0,0,
0,0,0,0,1,1,1..!W. .BY2,2,2,3,3,3,4,4,4,
5,5,5,4,4,4..!X. .BY3,3,3,2,2,3,3,3,4,4,
3,3,3,2,2..!Y. .BY2,1,1,2,2,2,3,3,2,2,2,
1,1,1,0.."Z. .BY0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0.2"[. .BY0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0.X"\. .BY0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0.~"]. .BY0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.
."^.;.."B.;*************** INIT ********
*******.."C.;.V"D.START JSRCHARINIT; CHA
R-KOPIE.."I. JSRCLRSCREEN; BILDSCHIRM-CL
R..#L. JSRFARBRAM; ZEICHENFARBE.4#N. JSR
MASKE; ZEICHEN-MATRIX.A#{. LDA#$00._#|.
STALINEREG;HILFSREGISTER.|#}. STALINEREG
2; AUF NULL !..#~. STAZEICHEN..#. STA$D
020; BILSCHIRM..#.. STA$D021; SCHWARZ !.
P#.. JMPSTRETCHER.V#..;..#..;**********
INIT-ROUTINEN **********..$..;.'$,.CHARI
NIT SEI; ROM-ZEICHENSATZ.I$6. LDA$01; VO
N $D000 NACH $8000.`$@. AND#$FB; KOPIERE
N.L$J. STA$01.Y$T. LDX#$00..$^. LDY#$10.
.$H.ST1 LDA$D000,X..$R. STA$8000,X..$|.
INX..$.. BNEST1.L$.. INCST1+2.Z$.. INCST
1+5..$.. DEY..$.. BNEST1..$.. LDA$01..%.
. ORA#$04..%.. STA$01.2%.. LDA$D018; ZEI
CHENSATZ AB.R%.. AND#$F1; $3000 EINSCHAL
TEN._%.. ORA#$0C.M%.. STA$D018.V%&. CLI.
.%(. LDY#$00..%). LDA#$00..%*. LDX#$00..
%+.ST2 STA$3000,X; ZEICHENSATZ AB.Y%,. I
NX; $3000 LOESCHEN..%-. CPX#$00;..%.. BN
EST2;..%/. INY..&0. INCST2+2..&1. CPY#8.
"&2. BNEST2.+&9. RTS.1&:.;.Z&D.;********
***************************.`&N.;.R&X.MA
SKE LDA#$00.{&B. TAX..&G. TAY..&L.MA1 ST
A$0500+28,X; ZEICHEN AUF.C&V. CLC; BILDS
CHIRM SETZEN..&.. ADC#05; 5 ZEICHEN UEBE
RSPRINGEN..&.. INX..'.. CPX#32; SCHON 33
ZEICHEN NEBENEINANDER ?.?'.. BNEMA1; NE
IN, DANN NOCHMAL.H'.. INY.M'.. CPY#05; S
CHON 5 ZEILEN FERTIG ?..'F. BEQMASKEEND;
JA, DANN RAUS..'P. LDAMA1+1; NAECHSTE B
ILDSCHIRM-.L'U. CLC; ZEILE EINSTELLEN.X'
Z. ADC#40..'.. STAMA1+1..'.. LDX#$00..'.
. TYA..(.. JMPMA1; UND NOCHMAL.7(..MASKE
END RTS; UND TSCHUESS....=( .;.F(*.;****
*******************************.L(4.;..(
..CLRSCREEN LDX#$00; BILDSCHIRM MIT..(..
LDA#$FF; CHAR #255 FUELLEN.W(..CL1 STA$
0400,X; = BILDSCHIRM-CLR..(.. INX..(.. C
PX#$00..(.. BNECL1..)`.CL2 STA$0500,X..)
J. INX.")T. CPX#$00..)~. BNECL2.A)D.CL3
STA$0600,X.J)N. INX.W)X. CPX#$00.C).. BN
ECL3.V)(.CL4 STA$0700,X.)2. INX..)<. CP
X#232..)F. BNECL4..)N. RTS..)X.;.O)..;**
********************************.U)..;..
)..FARBRAM LDA#01; FARBE DER ZEI-..*.. L
DX#$00; CHENMATRIX AUF.6*..FA1 STA$D900,
X; WEISS SETZEN.?*B. INX.L*L. CPX#$00.X*
V. BNEFA1.A*.. RTS.G*..;..*..;**********
HAUPTPROGRAMM *********..*..;..*P.STRET
CHER JSRDCLP; CHAR-STRETCHER..*.. JSRSIN
SCHIEB; SINUSTAB-ROTIEREN..+.. JMPSTRETC
HER; UND VON VORNE..+..;./+B.;**********
************************.5+L.;.C+..DCLP
LDXLINEREG2; ZEILE DES CHARS (MAX.8)..+.
. LDYLINEREG; PIXELZEILE(MAX.40)..+..DC1
LDA$8008,X; CHARBYTE HOLEN.P+..MARKE1 S
TA$3000,Y; UND NACH $3000.Y+.. INX..+..
CPX#$08; SCHON 8 CHARZEILEN ?. ,D. BEQNE
XTCHAR; JA, DANN NEXTCHAR.),N. INY.9,..
STYLINEREG.J,.. STXLINEREG2.Q,..MARKE5 L
DYSINUS,X; SINUSWERT LADEN..,.. CPY#$00;
GLEICH NULL ?..,.. BEQDCLP; JA, DANN NA
CHSTE CHARZEILE..,..MARKE2 LDA$8008-1,X;
CHARBYTE HOLEN..,(.DC2 LDXLINEREG..-2.M
ARKE3 STA$3000,X; UND SOOFT NACH.9-<. IN
CLINEREG; $3000 SCHREIBEN,.U-F. DEY; WIE
ES DER SINUS-.Q-P. CPY#$00; WERT VERLAN
GT.}-Z. BNEDC2..-D. JMPDCLP; UND NAECHST
E CHARZEILE..-..NEXTCHAR LDA#$00.G-.. LD
YLINEREG..-H.DC3 CPY#40; SCHON ALLE 40 P
IXELZEILEN ?...R. BEQDC4; JA, DANN NAECH
STER CHAR.?...MARKE4 STA$3000,Y; SONST R
ESTLICHE.U... INY; PIXELZEILEN.M... JMPD
C3; LOESCHEN !.....DC4 LDA#$00; HILFSREG
ISTER..... STALINEREG; LOESCHEN !..... S
TALINEREG2.I... INCZEICHEN.Y.". INCZEICH
EN...,. LDXZEICHEN../6. CPX#64; SCHON AL
LE 32 ZEICHEN ?../@. BEQDCLPENDE; JA, DA
NN ENDE.Q/J. LDACHARSET,X; SONST NAECHST
ES.Y/O. LDYCHARSET+1,X; ZEICHEN EINSTELL
EN../T. STAMARKE1+2; ...../^. STYM
ARKE1+1; ....M/H. STAMARKE3+2;
...../R. STYMARKE3+1; .....0|.
STAMARKE4+2; ....!0.. STYMARKE4+1;
....=0.. INCMARKE5+1; ....\
0.. LDABUCHSTABE,X; ....{0.. LDYBU
CHSTABE+1,X; .....0B. STADC1+2;
.....0L. STYDC1+1; ....I0V. STAM
ARKE2+2; .....0Z. DEY; .....
0.. STYMARKE2+1; .....1.. JMPDCLP;
UND VON VORN.=1..DCLPENDE LDA#$00; GRUN
DEINSTELLUNGEN.B1.. STAZEICHEN; WIEDER H
ERSTELLEN !.R1.. STALINEREG..1F. STALINE
REG2..1P. LDA#<(SINUS)..1Z. STAMARKE5+1.
.1.. LDA#$30.D1.. STAMARKE1+2.U1.. STAMA
RKE3+2..1.. STAMARKE4+2..1.. LDA#$00..2.
. STAMARKE1+1..2.. STAMARKE3+1.&2.. STAM
ARKE4+1.82.. LDABUCHSTABE.L2.. LDYBUCHST
ABE+1.Z2.. STADC1+2.H2 . STYDC1+1.Q2*. D
EY..24. STAMARKE2+2..2>. STYMARKE2+1..2F
. RTS; ZURUECK ZUR HAUPTSCHLEIFE..2H.;..
2I.;**********************************..
2J.;..3P.SINSCHIEB LDYSINUS; HIER WIRD.&
3.. LDX#$00; DIE SINUS-.H3..SI1 LDASINUS
+1,X; TABELLE JE-.B3.. STASINUS,X; WEILS
UM.W3.. INX; EINEN WERT..3.. CPX#100; N
ACH LINKS..3.. BNESI1; ROTIERT..3.. STYS
INUS+100..3J. RTS.F3X.;..3XI;*** CHARSET
=$3000+X*40 LINIEN ***..3}I;..4.ICHARSET
.BY$30,000,$30,040,$30,080.:4.I .BY$30,
120,$30,160,$30,200.Z4.I .BY$30,240,$31,
024,$31,064.Z4RI .BY$31,104,$31,144,$31,
184..4.I .BY$31,224,$32,008,$32,048..4.J
.BY$32,088,$32,128,$32,168.Z4,J .BY$32,
208,$32,248,$33,032..4JJ .BY$33,072,$33,
112,$33,152..5HJ .BY$33,192,$33,232,$34,
016.:5.J .BY$34,056,$34,096,$34,136.Z5.J
.BY$34,176,$34,216,$35,000.`5`M;..5JM;*
********** DCLP-TEXT ***********..5TM;..
5HQBUCHSTABE .BY$80,24; C..5RQ .BY$80,6
4; H.O5\Q .BY$80,08; A..5FQ .BY$80,120
; O..5PQ .BY$80,152; S..6ZQ .BY$81,112
;..6.Q .BY$80,128; P.06.Q .BY$80,144;
R.C6.Q .BY$80,40; E.W6.Q .BY$80,152; S
.J6.Q .BY$80,40; E.~6.Q .BY$80,112; N.
.6.Q .BY$80,160; T..6JQ .BY$80,152; S.
.6TQ .BY$81,208; :.K6.Q .BY$81,112;..6.
Q .BY$80,128; P..6.Q .BY$80,40; E..7.Q
.BY$80,144; R..7.R .BY$80,48; F.,7.R
.BY$80,40; E.?7.R .BY$80,24; C.S7$R .B
Y$80,160; T.D7.R .BY$81,112;.W78R .BY$8
0,32; D..7BR .BY$81,112; ...7LR .BY$80
,24; C..7VR .BY$81,112; ..E7`R .BY$80,
96; L.Y7JR .BY$81,112; ...7TR .BY$80,1
28; P..8~R .BY$81,112; ...8XR;..8.R;**
*********** ENDE **************.68<S.EN.
...........................~~...........
...........................FFF~FFF......
...........................<.....<......
...........................<F`<.F<......
........................................
...........................<.....<......
...........................<F`<.F<......
...........
> CLICK IMAGE PREVIEW FOR FULL MODAL