VS.MAIN.DICT.J
FILE INFORMATION
FILENAME(S): VS.MAIN.DICT.J
FILE TYPE(S): PRG
FILE SIZE: 6.4K
FIRST SEEN: 2025-10-20 00:37:10
APPEARS ON: 1 disk(s)
FILE HASH
483ee31d786a5ad2634db137bcfa6bb544caed977d56d66fdf9f4920a1714cd5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VIZAWRITE CO | VS.MAIN.DICT.J | PRG | Treasure Chest - Holger | 30 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: CF 8D 4B 39 36 0E 85 48 4F 75 77 6A 16 D5 66 FF |..K96..HOuwj..f.|
00000010: C2 FF B7 54 E9 FF CD 98 FF CD 1A 7D 0D E7 FF FF |...T.......}....|
00000020: FF D7 1D FF EF FF FF FF FF FF D7 FF DA BD 7A BD |..............z.|
00000030: 24 DF CA E4 FA D5 3C 96 FF FF 3D B7 72 FF FF AE |$.....<...=.r...|
00000040: FF B5 FF 73 FF FF FF 2D FF BC 33 33 FF FF FF FF |...s...-..33....|
00000050: FF FF 3F FF FF FF FF FF FF B3 7F 51 F5 FF EE AE |..?........Q....|
00000060: FF FF ED FB FF FF FF B0 A3 FF FF 51 FF D7 FF FF |...........Q....|
00000070: FF FF F3 BF FF FF FF FF FF A3 FF 75 FF FF 7C BB |...........u..|.|
00000080: FF FF A6 FF FF FF D3 FF FF C1 FF 5B BB BB 35 74 |...........[..5t|
00000090: FF 7F FF 35 23 DB FF 7F FF FF FF B3 FF BA 74 ED |...5#.........t.|
000000A0: FC FF FF FF FF B7 FF B5 FF FF EF FF 32 FF DF B5 |............2...|
000000B0: 2A B4 FF 75 3C FF 4D 63 0D 7B FF AB FF 2F 4D 4E |*..u<.Mc.{.../MN|
000000C0: 63 D7 DF 1F FF 5F FF FF FF B3 1F 11 C3 FF CB B5 |c...._..........|
000000D0: 2B D3 C7 FF FF B7 FF A6 FF FF FF 7C FF D5 6D D7 |+..........|..m.|
000000E0: FF 77 75 F5 D5 D4 FF FF FF FF 3F D3 B5 FF FF 5B |.wu.......?....[|
000000F0: FF FF 31 BF FF C0 AE D0 FF A3 35 62 E3 FF 1A 23 |..1.......5b...#|
00000100: 05 22 20 4C 44 41 20 40 54 41 42 4C 45 32 2C 58 |." LDA @TABLE2,X|
00000110: 00 FD 1A 28 05 22 20 4A 53 52 20 43 57 52 4F 55 |...(." JSR CWROU|
00000120: 54 00 07 1B 2D 05 22 20 49 4E 58 00 15 1B 32 05 |T...-." INX...2.|
00000130: 22 20 43 50 58 20 23 31 34 00 25 1B 37 05 22 20 |" CPX #14.%.7." |
00000140: 42 4E 45 20 48 43 31 2B 32 00 53 1B 38 05 22 20 |BNE HC1+2.S.8." |
00000150: 3B 45 49 4E 45 20 47 52 41 46 49 4B 5A 45 49 4C |;EINE GRAFIKZEIL|
00000160: 45 20 28 38 2A 38 30 30 20 44 4F 54 53 29 20 41 |E (8*800 DOTS) A|
00000170: 55 53 47 45 42 45 4E 00 60 1B 3C 05 22 20 4C 44 |USGEBEN.`.<." LD|
00000180: 58 20 23 30 00 73 1B 41 05 22 48 43 32 20 4A 53 |X #0.s.A."HC2 JS|
00000190: 52 20 57 52 4F 55 54 00 7D 1B 46 05 22 20 49 4E |R WROUT.}.F." IN|
000001A0: 58 00 8B 1B 4B 05 22 20 42 4E 45 20 48 43 32 00 |X...K." BNE HC2.|
000001B0: 9E 1B 50 05 22 48 43 33 20 4A 53 52 20 57 52 4F |..P."HC3 JSR WRO|
000001C0: 55 54 00 A8 1B 55 05 22 20 49 4E 58 00 B6 1B 5A |UT...U." INX...Z|
000001D0: 05 22 20 42 4E 45 20 48 43 33 00 C9 1B 5F 05 22 |." BNE HC3..._."|
000001E0: 48 43 34 20 4A 53 52 20 57 52 4F 55 54 00 D3 1B |HC4 JSR WROUT...|
000001F0: 64 05 22 20 49 4E 58 00 E1 1B 69 05 22 20 42 4E |d." INX...i." BN|
00000200: 45 20 48 43 34 00 F4 1B 6E 05 22 48 43 35 20 4A |E HC4...n."HC5 J|
00000210: 53 52 20 57 52 4F 55 54 00 FE 1B 73 05 22 20 49 |SR WROUT...s." I|
00000220: 4E 58 00 0F 1C 78 05 22 20 43 50 58 20 23 3C 58 |NX...x." CPX #<X|
00000230: 4D 41 58 00 1D 1C 7D 05 22 20 42 4E 45 20 48 43 |MAX...}." BNE HC|
00000240: 35 00 2B 1C 82 05 22 20 49 4E 43 20 24 46 44 00 |5.+..." INC $FD.|
00000250: 39 1C 87 05 22 20 4C 44 41 20 24 46 44 00 47 1C |9..." LDA $FD.G.|
00000260: 8C 05 22 20 43 4D 50 20 23 36 39 00 55 1C 91 05 |.." CMP #69.U...|
00000270: 22 20 42 4E 45 20 48 43 31 00 5F 1C 96 05 22 20 |" BNE HC1._..." |
00000280: 52 54 53 00 75 1C 97 05 22 20 3B 52 4F 4D 20 41 |RTS.u..." ;ROM A|
00000290: 55 53 42 4C 45 4E 44 45 4E 00 84 1C 9B 05 22 57 |USBLENDEN....."W|
000002A0: 52 4F 55 54 20 53 45 49 00 97 1C A0 05 22 20 4C |ROUT SEI....." L|
000002B0: 44 41 20 23 44 49 53 41 42 4C 45 00 A3 1C A5 05 |DA #DISABLE.....|
000002C0: 22 20 53 54 41 20 31 00 D6 1C A6 05 22 20 3B 41 |" STA 1....." ;A|
000002D0: 44 52 45 53 53 45 20 44 45 53 20 41 55 53 5A 55 |DRESSE DES AUSZU|
000002E0: 47 45 42 45 4E 44 45 4E 20 50 55 4E 4B 54 45 53 |GEBENDEN PUNKTES|
000002F0: 20 42 45 52 45 43 48 4E 45 4E 00 E0 1C AA 05 22 | BERECHNEN....."|
00000300: 20 43 4C 43 00 EE 1C AF 05 22 20 4C 44 41 20 24 | CLC....." LDA $|
00000310: 46 42 00 FF 1C B4 05 22 20 41 44 43 20 23 3C 24 |FB....." ADC #<$|
00000320: 38 30 30 00 0D 1D B9 05 22 20 53 54 41 20 24 46 |800....." STA $F|
00000330: 45 00 1B 1D BE 05 22 20 4C 44 41 20 24 46 43 00 |E....." LDA $FC.|
00000340: 2C 1D C3 05 22 20 41 44 43 20 23 3E 24 38 30 30 |,..." ADC #>$800|
00000350: 00 3A 1D C8 05 22 20 53 54 41 20 24 46 46 00 47 |.:..." STA $FF.G|
00000360: 1D CD 05 22 20 4C 44 59 20 23 30 00 55 1D D2 05 |..." LDY #0.U...|
00000370: 22 20 4C 44 41 20 24 46 43 00 64 1D D7 05 22 20 |" LDA $FC.d..." |
00000380: 43 4D 50 20 23 24 43 30 00 72 1D DC 05 22 20 42 |CMP #$C0.r..." B|
00000390: 43 53 20 57 52 31 00 84 1D E1 05 22 20 4C 44 41 |CS WR1....." LDA|
000003A0: 20 28 24 46 42 29 2C 59 00 92 1D E6 05 22 20 2E | ($FB),Y....." .|
000003B0: 42 59 20 24 32 43 00 A7 1D EB 05 22 57 52 31 20 |BY $2C....."WR1 |
000003C0: 4C 44 41 20 28 24 46 45 29 2C 59 00 B5 1D F0 05 |LDA ($FE),Y.....|
000003D0: 22 20 49 4E 43 20 24 46 42 00 C3 1D F5 05 22 20 |" INC $FB....." |
000003E0: 42 4E 45 20 57 52 32 00 D1 1D FA 05 22 20 49 4E |BNE WR2....." IN|
000003F0: 43 20 24 46 43 00 EE 1D FB 05 22 20 3B 52 4F 4D |C $FC....." ;ROM|
00000400: 20 57 49 45 44 45 52 20 45 49 4E 42 4C 45 4E 44 | WIEDER EINBLEND|
00000410: 45 4E 00 03 1E FF 05 22 57 52 32 20 4C 44 59 20 |EN....."WR2 LDY |
00000420: 23 45 4E 41 42 4C 45 00 0F 1E 04 06 22 20 53 54 |#ENABLE....." ST|
00000430: 59 20 31 00 19 1E 09 06 22 20 43 4C 49 00 3F 1E |Y 1....." CLI.?.|
00000440: 0A 06 22 20 3B 47 45 42 45 20 41 53 43 49 49 2D |.." ;GEBE ASCII-|
00000450: 5A 45 49 43 48 45 4E 20 49 4D 20 41 43 43 55 20 |ZEICHEN IM ACCU |
00000460: 41 55 53 00 6F 1E 0B 06 22 20 3B 42 45 49 20 44 |AUS.o..." ;BEI D|
00000470: 52 55 43 4B 45 52 4E 20 4D 49 54 20 53 45 52 49 |RUCKERN MIT SERI|
00000480: 45 4C 4C 45 52 20 53 43 48 4E 49 54 54 53 54 45 |ELLER SCHNITTSTE|
00000490: 4C 4C 45 00 93 1E 0C 06 22 20 3B 4D 55 53 53 20 |LLE....." ;MUSS |
000004A0: 48 49 45 52 20 27 4A 4D 50 20 24 46 46 44 32 27 |HIER 'JMP $FFD2'|
000004B0: 20 53 54 45 48 45 4E 00 B4 1E 0D 06 22 20 3B 55 | STEHEN....." ;U|
000004C0: 4E 44 20 44 41 4E 41 43 48 20 41 55 43 48 20 45 |ND DANACH AUCH E|
000004D0: 49 4E 20 27 52 54 53 27 00 CA 1E 0E 06 22 43 57 |IN 'RTS'....."CW|
000004E0: 52 4F 55 54 20 53 54 41 20 24 44 44 30 31 00 DA |ROUT STA $DD01..|
000004F0: 1E 13 06 22 20 4C 44 41 20 24 44 44 30 30 00 E9 |..." LDA $DD00..|
00000500: 1E 18 06 22 20 41 4E 44 20 23 24 46 42 00 F9 1E |..." AND #$FB...|
00000510: 1D 06 22 20 53 54 41 20 24 44 44 30 30 00 06 1F |.." STA $DD00...|
00000520: 22 06 22 20 4F 52 41 20 23 34 00 16 1F 27 06 22 |"." ORA #4...'."|
00000530: 20 53 54 41 20 24 44 44 30 30 00 2A 1F 2C 06 22 | STA $DD00.*.,."|
00000540: 57 41 49 54 20 4C 44 41 20 24 44 44 30 44 00 39 |WAIT LDA $DD0D.9|
00000550: 1F 31 06 22 20 41 4E 44 20 23 24 31 30 00 48 1F |.1." AND #$10.H.|
00000560: 36 06 22 20 42 45 51 20 57 41 49 54 00 52 1F 3B |6." BEQ WAIT.R.;|
00000570: 06 22 20 43 4C 43 00 5C 1F 40 06 22 20 52 54 53 |." CLC.\.@." RTS|
00000580: 00 7E 1F 45 06 22 20 3B 2A 2A 2A 2A 2A 2A 2A 2A |.~.E." ;********|
00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005A0: 2A 2A 00 86 1F 4A 06 22 20 3B 00 9B 1F 4F 06 22 |**...J." ;...O."|
000005B0: 20 3B 20 4C 49 4E 45 2D 42 45 46 45 48 4C 45 00 | ; LINE-BEFEHLE.|
000005C0: A3 1F 54 06 22 20 3B 00 C5 1F 59 06 22 20 3B 2A |..T." ;...Y." ;*|
000005D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D6 1F 5E 06 22 4C |*********...^."L|
000005F0: 49 4E 45 20 4C 44 41 20 23 30 00 E5 1F 63 06 22 |INE LDA #0...c."|
00000600: 20 53 54 41 20 46 4C 41 47 00 F2 1F 68 06 22 20 | STA FLAG...h." |
00000610: 4C 44 41 20 23 30 00 04 20 6D 06 22 20 53 54 41 |LDA #0.. m." STA|
00000620: 20 4C 49 4E 45 54 59 50 00 16 20 72 06 22 20 4A | LINETYP.. r." J|
00000630: 53 52 20 56 41 4C 55 45 2B 33 00 23 20 77 06 22 |SR VALUE+3.# w."|
00000640: 20 53 54 41 20 58 31 00 32 20 7C 06 22 20 53 54 | STA X1.2 |." ST|
00000650: 59 20 58 31 2B 31 00 42 20 81 06 22 20 4A 53 52 |Y X1+1.B .." JSR|
00000660: 20 56 41 4C 55 45 00 4F 20 86 06 22 20 53 54 41 | VALUE.O .." STA|
00000670: 20 59 31 00 5E 20 8B 06 22 20 53 54 59 20 59 31 | Y1.^ .." STY Y1|
00000680: 2B 31 00 6E 20 90 06 22 20 4A 53 52 20 56 41 4C |+1.n .." JSR VAL|
00000690: 55 45 00 7B 20 95 06 22 20 53 54 41 20 58 32 00 |UE.{ .." STA X2.|
000006A0: 8A 20 9A 06 22 20 53 54 59 20 58 32 2B 31 00 9A |. .." STY X2+1..|
000006B0: 20 9F 06 22 20 4A 53 52 20 56 41 4C 55 45 00 A7 | .." JSR VALUE..|
000006C0: 20 A4 06 22 20 53 54 41 20 59 32 00 B6 20 A9 06 | .." STA Y2.. ..|
000006D0: 22 20 53 54 59 20 59 32 2B 31 00 C3 20 AE 06 22 |" STY Y2+1.. .."|
000006E0: 20 4C 44 58 20 23 31 00 D0 20 B3 06 22 20 4C 44 | LDX #1.. .." LD|
000006F0: 59 20 23 30 00 DA 20 B8 06 22 20 53 45 43 00 E7 |Y #0.. .." SEC..|
00000700: 20 BD 06 22 20 4C 44 41 20 58 32 00 F4 20 C2 06 | .." LDA X2.. ..|
00000710: 22 20 53 42 43 20 58 31 00 04 21 C7 06 22 20 53 |" SBC X1..!.." S|
00000720: 54 41 20 58 44 49 46 46 00 13 21 CC 06 22 20 4C |TA XDIFF..!.." L|
00000730: 44 41 20 58 32 2B 31 00 22 21 D1 06 22 20 53 42 |DA X2+1."!.." SB|
00000740: 43 20 58 31 2B 31 00 34 21 D6 06 22 20 53 54 41 |C X1+1.4!.." STA|
00000750: 20 58 44 49 46 46 2B 31 00 42 21 DB 06 22 20 42 | XDIFF+1.B!.." B|
00000760: 50 4C 20 4C 49 31 00 4C 21 E0 06 22 20 44 45 58 |PL LI1.L!.." DEX|
00000770: 00 56 21 E5 06 22 20 44 45 58 00 60 21 EA 06 22 |.V!.." DEX.`!.."|
00000780: 20 44 45 59 00 6F 21 EF 06 22 20 45 4F 52 20 23 | DEY.o!.." EOR #|
00000790: 24 46 46 00 81 21 F4 06 22 20 53 54 41 20 58 44 |$FF..!.." STA XD|
000007A0: 49 46 46 2B 31 00 91 21 F9 06 22 20 4C 44 41 20 |IFF+1..!.." LDA |
000007B0: 58 44 49 46 46 00 A0 21 FE 06 22 20 45 4F 52 20 |XDIFF..!.." EOR |
000007C0: 23 24 46 46 00 B0 21 03 07 22 20 53 54 41 20 58 |#$FF..!.." STA X|
000007D0: 44 49 46 46 00 C0 21 08 07 22 20 49 4E 43 20 58 |DIFF..!.." INC X|
000007E0: 44 49 46 46 00 CE 21 0D 07 22 20 42 4E 45 20 4C |DIFF..!.." BNE L|
000007F0: 49 31 00 E0 21 12 07 22 20 49 4E 43 20 58 44 49 |I1..!.." INC XDI|
00000800: 46 46 2B 31 00 F3 21 17 07 22 4C 49 31 20 53 54 |FF+1..!.."LI1 ST|
00000810: 58 20 58 53 54 45 50 00 05 22 1C 07 22 20 53 54 |X XSTEP..".." ST|
00000820: 59 20 58 53 54 45 50 2B 31 00 12 22 21 07 22 20 |Y XSTEP+1.."!." |
00000830: 4C 44 58 20 23 31 00 1F 22 26 07 22 20 4C 44 59 |LDX #1.."&." LDY|
00000840: 20 23 30 00 29 22 2B 07 22 20 53 45 43 00 36 22 | #0.)"+." SEC.6"|
00000850: 30 07 22 20 4C 44 41 20 59 32 00 43 22 35 07 22 |0." LDA Y2.C"5."|
00000860: 20 53 42 43 20 59 31 00 53 22 3A 07 22 20 53 54 | SBC Y1.S":." ST|
00000870: 41 20 59 44 49 46 46 00 62 22 3F 07 22 20 4C 44 |A YDIFF.b"?." LD|
00000880: 41 20 59 32 2B 31 00 71 22 44 07 22 20 53 42 43 |A Y2+1.q"D." SBC|
00000890: 20 59 31 2B 31 00 83 22 49 07 22 20 53 54 41 20 | Y1+1.."I." STA |
000008A0: 59 44 49 46 46 2B 31 00 91 22 4E 07 22 20 42 50 |YDIFF+1.."N." BP|
000008B0: 4C 20 4C 49 32 00 9B 22 53 07 22 20 44 45 58 00 |L LI2.."S." DEX.|
000008C0: A5 22 58 07 22 20 44 45 58 00 AF 22 5D 07 22 20 |."X." DEX.."]." |
000008D0: 44 45 59 00 BE 22 62 07 22 20 45 4F 52 20 23 24 |DEY.."b." EOR #$|
000008E0: 46 46 00 D0 22 67 07 22 20 53 54 41 20 59 44 49 |FF.."g." STA YDI|
000008F0: 46 46 2B 31 00 E0 22 6C 07 22 20 4C 44 41 20 59 |FF+1.."l." LDA Y|
00000900: 44 49 46 46 00 EF 22 71 07 22 20 45 4F 52 20 23 |DIFF.."q." EOR #|
00000910: 24 46 46 00 FF 22 76 07 22 20 53 54 41 20 59 44 |$FF.."v." STA YD|
00000920: 49 46 46 00 0F 23 7B 07 22 20 49 4E 43 20 59 44 |IFF..#{." INC YD|
00000930: 49 46 46 00 1D 23 80 07 22 20 42 4E 45 20 4C 49 |IFF..#.." BNE LI|
00000940: 32 00 2F 23 85 07 22 20 49 4E 43 20 59 44 49 46 |2./#.." INC YDIF|
00000950: 46 2B 31 00 42 23 8A 07 22 4C 49 32 20 53 54 58 |F+1.B#.."LI2 STX|
00000960: 20 59 53 54 45 50 00 54 23 8F 07 22 20 53 54 59 | YSTEP.T#.." STY|
00000970: 20 59 53 54 45 50 2B 31 00 61 23 94 07 22 20 4C | YSTEP+1.a#.." L|
00000980: 44 59 20 23 30 00 71 23 99 07 22 20 4C 44 41 20 |DY #0.q#.." LDA |
00000990: 58 44 49 46 46 00 83 23 9E 07 22 20 4F 52 41 20 |XDIFF..#.." ORA |
000009A0: 58 44 49 46 46 2B 31 00 91 23 A3 07 22 20 42 4E |XDIFF+1..#.." BN|
000009B0: 45 20 4C 49 33 00 9B 23 A8 07 22 20 44 45 59 00 |E LI3..#.." DEY.|
000009C0: AC 23 AD 07 22 4C 49 33 20 53 54 59 20 53 55 4D |.#.."LI3 STY SUM|
000009D0: 00 BC 23 B2 07 22 20 53 54 59 20 53 55 4D 2B 31 |..#.." STY SUM+1|
000009E0: 00 CC 23 B7 07 22 4C 49 34 20 4C 44 41 20 58 31 |..#.."LI4 LDA X1|
000009F0: 00 DB 23 BC 07 22 20 4C 44 59 20 58 31 2B 31 00 |..#.." LDY X1+1.|
00000A00: EC 23 C1 07 22 20 53 54 41 20 58 56 41 4C 55 45 |.#.." STA XVALUE|
00000A10: 00 FF 23 C6 07 22 20 53 54 59 20 58 56 41 4C 55 |..#.." STY XVALU|
00000A20: 45 2B 31 00 0C 24 CB 07 22 20 4C 44 41 20 59 31 |E+1..$.." LDA Y1|
00000A30: 00 1B 24 D0 07 22 20 4C 44 59 20 59 31 2B 31 00 |..$.." LDY Y1+1.|
00000A40: 2C 24 D5 07 22 20 53 54 41 20 59 56 41 4C 55 45 |,$.." STA YVALUE|
00000A50: 00 3F 24 DA 07 22 20 53 54 59 20 59 56 41 4C 55 |.?$.." STY YVALU|
00000A60: 45 2B 31 00 4F 24 DF 07 22 20 4A 53 52 20 53 43 |E+1.O$.." JSR SC|
00000A70: 41 4E 4E 00 61 24 E4 07 22 20 4A 53 52 20 57 4F |ANN.a$.." JSR WO|
00000A80: 52 4B 44 4F 54 00 6E 24 E9 07 22 20 4C 44 41 20 |RKDOT.n$.." LDA |
00000A90: 58 31 00 7B 24 EE 07 22 20 43 4D 50 20 58 32 00 |X1.{$.." CMP X2.|
00000AA0: 89 24 F3 07 22 20 42 4E 45 20 4C 49 35 00 98 24 |.$.." BNE LI5..$|
00000AB0: F8 07 22 20 4C 44 41 20 58 31 2B 31 00 A7 24 FD |.." LDA X1+1..$.|
00000AC0: 07 22 20 43 4D 50 20 58 32 2B 31 00 B5 24 02 08 |." CMP X2+1..$..|
00000AD0: 22 20 42 4E 45 20 4C 49 35 00 C2 24 07 08 22 20 |" BNE LI5..$.." |
00000AE0: 4C 44 41 20 59 31 00 CF 24 0C 08 22 20 43 4D 50 |LDA Y1..$.." CMP|
00000AF0: 20 59 32 00 DD 24 11 08 22 20 42 4E 45 20 4C 49 | Y2..$.." BNE LI|
00000B00: 35 00 EC 24 16 08 22 20 4C 44 41 20 59 31 2B 31 |5..$.." LDA Y1+1|
00000B10: 00 FB 24 1B 08 22 20 43 4D 50 20 59 32 2B 31 00 |..$.." CMP Y2+1.|
00000B20: 09 25 20 08 22 20 42 4E 45 20 4C 49 35 00 13 25 |.% ." BNE LI5..%|
00000B30: 25 08 22 20 52 54 53 00 26 25 2A 08 22 4C 49 35 |%." RTS.&%*."LI5|
00000B40: 20 42 49 54 20 53 55 4D 2B 31 00 34 25 2F 08 22 | BIT SUM+1.4%/."|
00000B50: 20 42 50 4C 20 4C 49 36 00 3E 25 34 08 22 20 43 | BPL LI6.>%4." C|
00000B60: 4C 43 00 4B 25 39 08 22 20 4C 44 41 20 59 31 00 |LC.K%9." LDA Y1.|
00000B70: 5B 25 3E 08 22 20 41 44 43 20 59 53 54 45 50 00 |[%>." ADC YSTEP.|
00000B80: 68 25 43 08 22 20 53 54 41 20 59 31 00 77 25 48 |h%C." STA Y1.w%H|
00000B90: 08 22 20 4C 44 41 20 59 31 2B 31 00 89 25 4D 08 |." LDA Y1+1..%M.|
00000BA0: 22 20 41 44 43 20 59 53 54 45 50 2B 31 00 98 25 |" ADC YSTEP+1..%|
00000BB0: 52 08 22 20 53 54 41 20 59 31 2B 31 00 A2 25 57 |R." STA Y1+1..%W|
00000BC0: 08 22 20 43 4C 43 00 B0 25 5C 08 22 20 4C 44 41 |." CLC..%\." LDA|
00000BD0: 20 53 55 4D 00 C0 25 61 08 22 20 41 44 43 20 58 | SUM..%a." ADC X|
00000BE0: 44 49 46 46 00 CE 25 66 08 22 20 53 54 41 20 53 |DIFF..%f." STA S|
00000BF0: 55 4D 00 DE 25 6B 08 22 20 4C 44 41 20 53 55 4D |UM..%k." LDA SUM|
00000C00: 2B 31 00 F0 25 70 08 22 20 41 44 43 20 58 44 49 |+1..%p." ADC XDI|
00000C10: 46 46 2B 31 00 00 26 75 08 22 20 53 54 41 20 53 |FF+1..&u." STA S|
00000C20: 55 4D 2B 31 00 0E 26 7A 08 22 20 4A 4D 50 20 4C |UM+1..&z." JMP L|
00000C30: 49 34 00 1B 26 7F 08 22 4C 49 36 20 43 4C 43 00 |I4..&.."LI6 CLC.|
00000C40: 28 26 84 08 22 20 4C 44 41 20 58 31 00 38 26 89 |(&.." LDA X1.8&.|
00000C50: 08 22 20 41 44 43 20 58 53 54 45 50 00 45 26 8E |." ADC XSTEP.E&.|
00000C60: 08 22 20 53 54 41 20 58 31 00 54 26 93 08 22 20 |." STA X1.T&.." |
00000C70: 4C 44 41 20 58 31 2B 31 00 66 26 98 08 22 20 41 |LDA X1+1.f&.." A|
00000C80: 44 43 20 58 53 54 45 50 2B 31 00 75 26 9D 08 22 |DC XSTEP+1.u&.."|
00000C90: 20 53 54 41 20 58 31 2B 31 00 7F 26 A2 08 22 20 | STA X1+1..&.." |
00000CA0: 53 45 43 00 8D 26 A7 08 22 20 4C 44 41 20 53 55 |SEC..&.." LDA SU|
00000CB0: 4D 00 9D 26 AC 08 22 20 53 42 43 20 59 44 49 46 |M..&.." SBC YDIF|
00000CC0: 46 00 AB 26 B1 08 22 20 53 54 41 20 53 55 4D 00 |F..&.." STA SUM.|
00000CD0: BB 26 B6 08 22 20 4C 44 41 20 53 55 4D 2B 31 00 |.&.." LDA SUM+1.|
00000CE0: CD 26 BB 08 22 20 53 42 43 20 59 44 49 46 46 2B |.&.." SBC YDIFF+|
00000CF0: 31 00 DD 26 C0 08 22 20 53 54 41 20 53 55 4D 2B |1..&.." STA SUM+|
00000D00: 31 00 EB 26 C5 08 22 20 4A 4D 50 20 4C 49 34 00 |1..&.." JMP LI4.|
00000D10: 00 27 CA 08 22 56 41 4C 55 45 20 4A 53 52 20 24 |.'.."VALUE JSR $|
00000D20: 41 45 46 44 00 10 27 CF 08 22 20 4A 53 52 20 24 |AEFD..'.." JSR $|
00000D30: 41 44 38 41 00 20 27 D4 08 22 20 4A 53 52 20 24 |AD8A. '.." JSR $|
00000D40: 42 37 46 37 00 2E 27 D9 08 22 20 4C 44 41 20 24 |B7F7..'.." LDA $|
00000D50: 31 34 00 3C 27 DE 08 22 20 4C 44 59 20 24 31 35 |14.<'.." LDY $15|
00000D60: 00 46 27 E3 08 22 20 52 54 53 00 89 27 E4 08 22 |.F'.." RTS..'.."|
00000D70: 20 3B 46 4C 41 47 20 53 45 54 5A 45 4E 20 46 55 | ;FLAG SETZEN FU|
00000D80: 45 52 20 4D 4F 44 49 46 49 5A 49 45 52 54 45 4E |ER MODIFIZIERTEN|
00000D90: 20 50 55 4E 4B 54 2D 20 55 4E 44 20 4C 49 4E 49 | PUNKT- UND LINI|
00000DA0: 45 4E 2D 46 55 4E 4B 54 49 4F 4E 45 4E 00 A0 27 |EN-FUNKTIONEN..'|
00000DB0: E8 08 22 52 45 53 45 54 44 4F 54 20 4C 44 41 20 |.."RESETDOT LDA |
00000DC0: 23 24 34 30 00 B0 27 ED 08 22 20 4A 4D 50 20 44 |#$40..'.." JMP D|
00000DD0: 4F 54 2B 32 00 C8 27 F2 08 22 49 4E 56 45 52 54 |OT+2..'.."INVERT|
00000DE0: 44 4F 54 20 4C 44 41 20 23 24 38 30 00 D8 27 F7 |DOT LDA #$80..'.|
00000DF0: 08 22 20 4A 4D 50 20 44 4F 54 2B 32 00 F0 27 FC |." JMP DOT+2..'.|
00000E00: 08 22 52 45 53 45 54 4C 49 4E 45 20 4C 44 41 20 |."RESETLINE LDA |
00000E10: 23 24 34 30 00 01 28 01 09 22 20 4A 4D 50 20 4C |#$40..(.." JMP L|
00000E20: 49 4E 45 2B 32 00 1A 28 06 09 22 49 4E 56 45 52 |INE+2..(.."INVER|
00000E30: 54 4C 49 4E 45 20 4C 44 41 20 23 24 38 30 00 2B |TLINE LDA #$80.+|
00000E40: 28 0B 09 22 20 4A 4D 50 20 4C 49 4E 45 2B 32 00 |(.." JMP LINE+2.|
00000E50: 4D 28 10 09 22 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |M(.." ;*********|
00000E60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E70: 2A 00 55 28 15 09 22 20 3B 00 63 28 1A 09 22 20 |*.U(.." ;.c(.." |
00000E80: 3B 20 26 45 58 49 54 00 6B 28 1F 09 22 20 3B 00 |; &EXIT.k(.." ;.|
00000E90: 8D 28 24 09 22 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |.($." ;*********|
00000EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EB0: 2A 00 B1 28 25 09 22 20 3B 5A 45 49 47 45 52 20 |*..(%." ;ZEIGER |
00000EC0: 57 49 45 44 45 52 20 27 47 45 52 41 44 45 42 49 |WIEDER 'GERADEBI|
00000ED0: 45 47 45 4E 27 00 C4 28 29 09 22 45 58 49 54 20 |EGEN'..()."EXIT |
00000EE0: 4C 44 59 20 23 24 41 37 00 D3 28 2E 09 22 20 4C |LDY #$A7..(.." L|
00000EF0: 44 41 20 23 24 45 34 00 E3 28 33 09 22 20 53 54 |DA #$E4..(3." ST|
00000F00: 41 20 24 30 33 30 38 00 F3 28 38 09 22 20 53 54 |A $0308..(8." ST|
00000F10: 59 20 24 30 33 30 39 00 FD 28 3D 09 22 20 53 45 |Y $0309..(=." SE|
00000F20: 43 00 0D 29 42 09 22 20 4A 53 52 20 24 46 46 39 |C..)B." JSR $FF9|
00000F30: 39 00 1B 29 47 09 22 20 53 54 58 20 24 33 37 00 |9..)G." STX $37.|
00000F40: 29 29 4C 09 22 20 53 54 59 20 24 33 38 00 4A 29 |))L." STY $38.J)|
00000F50: 51 09 22 20 4A 4D 50 20 24 45 33 39 41 20 3B 53 |Q." JMP $E39A ;S|
00000F60: 59 53 54 45 4D 20 41 55 46 52 55 46 45 4E 00 6C |YSTEM AUFRUFEN.l|
00000F70: 29 52 09 22 20 3B 20 54 45 58 54 2D 42 45 46 45 |)R." ; TEXT-BEFE|
00000F80: 48 4C 45 2C 20 46 4C 41 47 20 53 45 54 5A 45 4E |HLE, FLAG SETZEN|
00000F90: 00 82 29 56 09 22 49 4E 56 54 45 58 54 20 4C 44 |..)V."INVTEXT LD|
00000FA0: 41 20 23 24 38 30 00 90 29 5B 09 22 20 2E 42 59 |A #$80..)[." .BY|
00000FB0: 20 24 32 43 00 A6 29 60 09 22 52 45 53 54 45 58 | $2C..)`."RESTEX|
00000FC0: 54 20 4C 44 41 20 23 24 34 30 00 B4 29 65 09 22 |T LDA #$40..)e."|
00000FD0: 20 2E 42 59 20 24 32 43 00 C5 29 6A 09 22 54 45 | .BY $2C..)j."TE|
00000FE0: 58 54 20 4C 44 41 20 23 30 00 D4 29 6F 09 22 20 |XT LDA #0..)o." |
00000FF0: 53 54 41 20 46 4C 41 47 00 E6 29 74 09 22 20 4A |STA FLAG..)t." J|
00001000: 53 52 20 56 41 4C 55 45 2B 33 00 F3 29 79 09 22 |SR VALUE+3..)y."|
00001010: 20 53 54 41 20 58 31 00 02 2A 7E 09 22 20 53 54 | STA X1..*~." ST|
00001020: 59 20 58 31 2B 31 00 12 2A 83 09 22 20 4A 53 52 |Y X1+1..*.." JSR|
00001030: 20 56 41 4C 55 45 00 1F 2A 88 09 22 20 53 54 41 | VALUE..*.." STA|
00001040: 20 59 31 00 2E 2A 8D 09 22 20 53 54 59 20 59 31 | Y1..*.." STY Y1|
00001050: 2B 31 00 3F 2A 92 09 22 20 4A 53 52 20 53 54 52 |+1.?*.." JSR STR|
00001060: 49 4E 47 00 4E 2A 97 09 22 20 42 4E 45 20 54 58 |ING.N*.." BNE TX|
00001070: 54 31 00 58 2A 9C 09 22 20 52 54 53 00 6C 2A A1 |T1.X*.." RTS.l*.|
00001080: 09 22 54 58 54 31 20 53 54 41 20 4C 45 4E 47 48 |."TXT1 STA LENGH|
00001090: 00 7C 2A A6 09 22 20 53 54 59 20 46 4C 41 47 33 |.|*.." STY FLAG3|
000010A0: 00 90 2A AB 09 22 54 58 54 32 20 4C 44 59 20 46 |..*.."TXT2 LDY F|
000010B0: 4C 41 47 33 00 A2 2A B0 09 22 20 4C 44 41 20 28 |LAG3..*.." LDA (|
000010C0: 24 36 34 29 2C 59 00 B1 2A B5 09 22 20 43 4D 50 |$64),Y..*.." CMP|
000010D0: 20 23 24 32 30 00 C0 2A BA 09 22 20 42 43 43 20 | #$20..*.." BCC |
000010E0: 54 58 54 33 00 CF 2A BF 09 22 20 43 4D 50 20 23 |TXT3..*.." CMP #|
000010F0: 24 34 30 00 E0 2A C4 09 22 20 42 43 43 20 54 58 |$40..*.." BCC TX|
00001100: 54 33 2B 32 00 EF 2A C9 09 22 20 43 4D 50 20 23 |T3+2..*.." CMP #|
00001110: 24 36 30 00 FE 2A CE 09 22 20 42 43 53 20 54 58 |$60..*.." BCS TX|
00001120: 54 33 00 0D 2B D3 09 22 20 41 4E 44 20 23 24 31 |T3..+.." AND #$1|
00001130: 46 00 1B 2B D8 09 22 20 2E 42 59 20 24 32 43 00 |F..+.." .BY $2C.|
00001140: 2E 2B DD 09 22 54 58 54 33 20 4C 44 41 20 23 24 |.+.."TXT3 LDA #$|
00001150: 32 30 00 3A 2B E2 09 22 20 53 54 41 20 32 00 49 |20.:+.." STA 2.I|
00001160: 2B E7 09 22 20 4C 44 41 20 23 24 31 41 00 55 2B |+.." LDA #$1A.U+|
00001170: EC 09 22 20 41 53 4C 20 32 00 5F 2B F1 09 22 20 |.." ASL 2._+.." |
00001180: 52 4F 4C 00 6B 2B F6 09 22 20 41 53 4C 20 32 00 |ROL.k+.." ASL 2.|
00001190: 75 2B FB 09 22 20 52 4F 4C 00 81 2B 00 0A 22 20 |u+.." ROL..+.." |
000011A0: 41 53 4C 20 32 00 8B 2B 05 0A 22 20 52 4F 4C 00 |ASL 2..+.." ROL.|
000011B0: 97 2B 0A 0A 22 20 53 54 41 20 33 00 A1 2B 0F 0A |.+.." STA 3..+..|
000011C0: 22 20 53 45 49 00 B0 2B 14 0A 22 20 4C 44 41 20 |" SEI..+.." LDA |
000011D0: 23 24 33 31 00 BC 2B 19 0A 22 20 53 54 41 20 31 |#$31..+.." STA 1|
000011E0: 00 C9 2B 1E 0A 22 20 4C 44 59 20 23 37 00 DD 2B |..+.." LDY #7..+|
000011F0: 23 0A 22 54 58 54 34 20 4C 44 41 20 28 32 29 2C |#."TXT4 LDA (2),|
00001200: 59 00 EE 2B 28 0A 22 20 53 54 41 20 24 32 30 30 |Y..+(." STA $200|
00001210: 2C 59 00 F8 2B 2D 0A 22 20 44 45 59 00 07 2C 32 |,Y..+-." DEY..,2|
00001220: 0A 22 20 42 50 4C 20 54 58 54 34 00 19 2C 37 0A |." BPL TXT4..,7.|
00001230: 22 20 4C 44 41 20 23 45 4E 41 42 4C 45 00 25 2C |" LDA #ENABLE.%,|
00001240: 3C 0A 22 20 53 54 41 20 31 00 2F 2C 41 0A 22 20 |<." STA 1./,A." |
00001250: 43 4C 49 00 3C 2C 46 0A 22 20 4C 44 41 20 23 30 |CLI.<,F." LDA #0|
00001260: 00 4C 2C 4B 0A 22 20 53 54 41 20 46 4C 41 47 31 |.L,K." STA FLAG1|
00001270: 00 5D 2C 50 0A 22 54 58 54 35 20 4C 44 41 20 23 |.],P."TXT5 LDA #|
00001280: 37 00 6D 2C 55 0A 22 20 53 54 41 20 46 4C 41 47 |7.m,U." STA FLAG|
00001290: 32 00 81 2C 5A 0A 22 54 58 54 36 20 4C 44 58 20 |2..,Z."TXT6 LDX |
000012A0: 46 4C 41 47 32 00 92 2C 5F 0A 22 20 4C 44 41 20 |FLAG2..,_." LDA |
000012B0: 24 32 30 30 2C 58 00 A2 2C 64 0A 22 20 4C 44 58 |$200,X..,d." LDX|
000012C0: 20 46 4C 41 47 31 00 B3 2C 69 0A 22 20 41 4E 44 | FLAG1..,i." AND|
000012D0: 20 40 42 49 54 2C 58 00 C2 2C 6E 0A 22 20 42 45 | @BIT,X..,n." BE|
000012E0: 51 20 54 58 54 38 00 CF 2C 73 0A 22 20 4C 44 41 |Q TXT8..,s." LDA|
000012F0: 20 58 31 00 DE 2C 78 0A 22 20 4C 44 59 20 58 31 | X1..,x." LDY X1|
00001300: 2B 31 00 EF 2C 7D 0A 22 20 53 54 41 20 58 56 41 |+1..,}." STA XVA|
00001310: 4C 55 45 00 02 2D 82 0A 22 20 53 54 59 20 58 56 |LUE..-.." STY XV|
00001320: 41 4C 55 45 2B 31 00 11 2D 87 0A 22 20 4C 44 59 |ALUE+1..-.." LDY|
00001330: 20 59 31 2B 31 00 21 2D 8C 0A 22 20 4C 44 41 20 | Y1+1.!-.." LDA |
00001340: 46 4C 41 47 32 00 2B 2D 91 0A 22 20 43 4C 43 00 |FLAG2.+-.." CLC.|
00001350: 38 2D 96 0A 22 20 41 44 43 20 59 31 00 46 2D 9B |8-.." ADC Y1.F-.|
00001360: 0A 22 20 53 54 41 20 24 31 34 00 55 2D A0 0A 22 |." STA $14.U-.."|
00001370: 20 42 43 43 20 54 58 54 37 00 5F 2D A5 0A 22 20 | BCC TXT7._-.." |
00001380: 49 4E 59 00 75 2D AA 0A 22 54 58 54 37 20 4A 53 |INY.u-.."TXT7 JS|
00001390: 52 20 57 4F 52 4B 44 4F 54 00 89 2D AF 0A 22 54 |R WORKDOT..-.."T|
000013A0: 58 54 38 20 44 45 43 20 46 4C 41 47 32 00 98 2D |XT8 DEC FLAG2..-|
000013B0: B4 0A 22 20 42 50 4C 20 54 58 54 36 00 A5 2D B9 |.." BPL TXT6..-.|
000013C0: 0A 22 20 49 4E 43 20 58 31 00 B4 2D BE 0A 22 20 |." INC X1..-.." |
000013D0: 42 4E 45 20 54 58 54 39 00 C3 2D C3 0A 22 20 49 |BNE TXT9..-.." I|
000013E0: 4E 43 20 58 31 2B 31 00 D7 2D C8 0A 22 54 58 54 |NC X1+1..-.."TXT|
000013F0: 39 20 49 4E 43 20 46 4C 41 47 31 00 E7 2D CD 0A |9 INC FLAG1..-..|
00001400: 22 20 4C 44 58 20 46 4C 41 47 31 00 F4 2D D2 0A |" LDX FLAG1..-..|
00001410: 22 20 43 50 58 20 23 38 00 03 2E D7 0A 22 20 42 |" CPX #8....." B|
00001420: 4E 45 20 54 58 54 35 00 13 2E DC 0A 22 20 49 4E |NE TXT5....." IN|
00001430: 43 20 46 4C 41 47 33 00 23 2E E1 0A 22 20 4C 44 |C FLAG3.#..." LD|
00001440: 41 20 46 4C 41 47 33 00 33 2E E6 0A 22 20 43 4D |A FLAG3.3..." CM|
00001450: 50 20 4C 45 4E 47 48 00 43 2E EB 0A 22 20 42 4E |P LENGH.C..." BN|
00001460: 45 20 54 58 54 31 30 00 4D 2E F0 0A 22 20 52 54 |E TXT10.M..." RT|
00001470: 53 00 61 2E F5 0A 22 54 58 54 31 30 20 4A 4D 50 |S.a..."TXT10 JMP|
00001480: 20 54 58 54 32 00 77 2E FA 0A 22 53 54 52 49 4E | TXT2.w..."STRIN|
00001490: 47 20 4A 53 52 20 24 41 45 46 44 00 87 2E FF 0A |G JSR $AEFD.....|
000014A0: 22 20 4A 53 52 20 24 41 44 39 45 00 97 2E 04 0B |" JSR $AD9E.....|
000014B0: 22 20 4A 53 52 20 24 42 36 41 33 00 A4 2E 09 0B |" JSR $B6A3.....|
000014C0: 22 20 4C 44 59 20 23 30 00 B6 2E 0E 0B 22 20 4C |" LDY #0....." L|
000014D0: 44 41 20 28 24 36 34 29 2C 59 00 C4 2E 13 0B 22 |DA ($64),Y....."|
000014E0: 20 53 54 41 20 24 36 33 00 CE 2E 18 0B 22 20 49 | STA $63....." I|
000014F0: 4E 59 00 E0 2E 1D 0B 22 20 4C 44 41 20 28 24 36 |NY....." LDA ($6|
00001500: 34 29 2C 59 00 EA 2E 22 0B 22 20 54 41 58 00 F4 |4),Y..."." TAX..|
00001510: 2E 27 0B 22 20 49 4E 59 00 06 2F 2C 0B 22 20 4C |.'." INY../,." L|
00001520: 44 41 20 28 24 36 34 29 2C 59 00 14 2F 31 0B 22 |DA ($64),Y../1."|
00001530: 20 53 54 41 20 24 36 35 00 22 2F 36 0B 22 20 53 | STA $65."/6." S|
00001540: 54 58 20 24 36 34 00 2F 2F 3B 0B 22 20 4C 44 59 |TX $64.//;." LDY|
00001550: 20 23 30 00 3D 2F 40 0B 22 20 4C 44 41 20 24 36 | #0.=/@." LDA $6|
00001560: 33 00 47 2F 45 0B 22 20 52 54 53 00 5E 2F 4A 0B |3.G/E." RTS.^/J.|
00001570: 22 53 43 41 4E 4E 20 42 49 54 20 4C 49 4E 45 54 |"SCANN BIT LINET|
00001580: 59 50 00 6D 2F 4F 0B 22 20 42 4D 49 20 53 43 41 |YP.m/O." BMI SCA|
00001590: 31 00 77 2F 54 0B 22 20 52 54 53 00 8A 2F 59 0B |1.w/T." RTS../Y.|
000015A0: 22 53 43 41 31 20 4C 44 58 20 23 24 46 30 00 99 |"SCA1 LDX #$F0..|
000015B0: 2F 5E 0B 22 20 53 54 58 20 46 4C 41 47 00 AB 2F |/^." STX FLAG../|
000015C0: 63 0B 22 20 4A 53 52 20 57 4F 52 4B 44 4F 54 00 |c." JSR WORKDOT.|
000015D0: B8 2F 68 0B 22 20 4C 44 41 20 59 31 00 C7 2F 6D |./h." LDA Y1../m|
000015E0: 0B 22 20 4C 44 59 20 59 31 2B 31 00 D5 2F 72 0B |." LDY Y1+1../r.|
000015F0: 22 20 53 54 41 20 24 31 34 00 E4 2F 77 0B 22 20 |" STA $14../w." |
00001600: 42 49 54 20 46 4C 41 47 00 F3 2F 7C 0B 22 20 42 |BIT FLAG../|." B|
00001610: 50 4C 20 53 43 41 32 00 FD 2F 81 0B 22 20 50 4C |PL SCA2../.." PL|
00001620: 41 00 07 30 86 0B 22 20 50 4C 41 00 11 30 8B 0B |A..0.." PLA..0..|
00001630: 22 20 52 54 53 00 22 30 90 0B 22 53 43 41 32 20 |" RTS."0.."SCA2 |
00001640: 4C 44 58 20 23 30 00 31 30 95 0B 22 20 53 54 58 |LDX #0.10.." STX|
00001650: 20 46 4C 41 47 00 3B 30 9A 0B 22 20 52 54 53 00 | FLAG.;0.." RTS.|
00001660: 51 30 9F 0B 22 53 43 41 4E 4E 4C 4E 20 4C 44 41 |Q0.."SCANNLN LDA|
00001670: 20 23 24 46 46 00 62 30 A4 0B 22 20 4A 4D 50 20 | #$FF.b0.." JMP |
00001680: 4C 49 4E 45 2B 37 00 84 30 A9 0B 22 20 3B 2A 2A |LINE+7..0.." ;**|
00001690: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000016A0: 2A 2A 2A 2A 2A 2A 2A 2A 00 8C 30 AE 0B 22 20 3B |********..0.." ;|
000016B0: 00 AC 30 B3 0B 22 20 3B 20 44 20 41 20 54 20 45 |..0.." ; D A T E|
000016C0: 20 4E 20 42 20 45 20 52 20 45 20 49 20 43 20 48 | N B E R E I C H|
000016D0: 00 B4 30 B8 0B 22 20 3B 00 D6 30 BD 0B 22 20 3B |..0.." ;..0.." ;|
000016E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000016F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F8 30 C2 0B 22 |**********..0.."|
00001700: 42 49 54 20 2E 42 59 20 31 32 38 20 36 34 20 33 |BIT .BY 128 64 3|
00001710: 32 20 31 36 20 38 20 34 20 32 20 31 00 1B 31 C7 |2 16 8 4 2 1..1.|
00001720: 0B 22 54 41 42 4C 45 31 20 2E 42 59 20 31 33 20 |."TABLE1 .BY 13 |
00001730: 38 20 27 41 27 20 32 37 20 27 38 27 20 32 37 00 |8 'A' 27 '8' 27.|
00001740: 49 31 CC 0B 22 54 41 42 4C 45 32 20 2E 42 59 20 |I1.."TABLE2 .BY |
00001750: 31 30 20 31 33 20 27 20 20 20 20 20 20 20 27 20 |10 13 ' ' |
00001760: 32 37 20 27 2A 27 20 31 20 58 4D 41 58 00 77 31 |27 '*' 1 XMAX.w1|
00001770: D1 0B 22 50 52 4F 4D 50 54 20 2E 42 59 20 27 45 |.."PROMPT .BY 'E|
00001780: 50 53 4F 4E 2D 53 55 50 50 4F 52 54 20 20 56 31 |PSON-SUPPORT V1|
00001790: 2E 37 20 20 2A 2A 2A 27 20 31 33 00 A1 31 D6 0B |.7 ***' 13..1..|
000017A0: 22 20 2E 42 59 20 27 28 43 29 31 39 38 34 20 42 |" .BY '(C)1984 B|
000017B0: 59 20 41 4C 45 58 20 44 45 4C 20 50 49 4E 4F 27 |Y ALEX DEL PINO'|
000017C0: 20 31 33 20 30 00 BB 31 DB 0B 22 53 54 4D 54 41 | 13 0..1.."STMTA|
000017D0: 42 20 2E 42 59 20 27 43 4C 45 41 52 27 20 30 00 |B .BY 'CLEAR' 0.|
000017E0: CD 31 E0 0B 22 20 2E 42 59 20 27 44 4F 54 27 20 |.1.." .BY 'DOT' |
000017F0: 30 00 E4 31 E5 0B 22 20 2E 42 59 20 27 52 45 53 |0..1.." .BY 'RES|
00001800: 45 54 44 4F 54 27 20 30 00 F9 31 EA 0B 22 20 2E |ETDOT' 0..1.." .|
00001810: 42 59 20 27 49 4E 56 44 4F 54 27 20 30 00 0C 32 |BY 'INVDOT' 0..2|
00001820: EF 0B 22 20 2E 42 59 20 27 4C 49 4E 45 27 20 30 |.." .BY 'LINE' 0|
00001830: 00 24 32 F4 0B 22 20 2E 42 59 20 27 52 45 53 45 |.$2.." .BY 'RESE|
00001840: 54 4C 49 4E 45 27 20 30 00 3A 32 F9 0B 22 20 2E |TLINE' 0.:2.." .|
00001850: 42 59 20 27 49 4E 56 4C 49 4E 45 27 20 30 00 4A |BY 'INVLINE' 0.J|
00001860: 32 FE 0B 22 20 2E 42 59 20 31 35 33 20 30 00 5D |2.." .BY 153 0.]|
00001870: 32 03 0C 22 20 2E 42 59 20 27 45 58 49 54 27 20 |2.." .BY 'EXIT' |
00001880: 30 00 70 32 08 0C 22 20 2E 42 59 20 27 54 45 58 |0.p2.." .BY 'TEX|
00001890: 54 27 20 30 00 86 32 0D 0C 22 20 2E 42 59 20 27 |T' 0..2.." .BY '|
000018A0: 49 4E 56 54 45 58 54 27 20 30 00 9E 32 12 0C 22 |INVTEXT' 0..2.."|
000018B0: 20 2E 42 59 20 27 52 45 53 45 54 54 45 58 54 27 | .BY 'RESETTEXT'|
000018C0: 20 30 00 B7 32 17 0C 22 20 2E 42 59 20 27 53 43 | 0..2.." .BY 'SC|
000018D0: 41 4E 4C 49 4E 45 27 20 30 20 30 00 EB 32 1C 0C |ANLINE' 0 0..2..|
000018E0: 22 45 4E 54 52 59 20 2E 42 59 20 43 4C 45 41 52 |"ENTRY .BY CLEAR|
000018F0: 2D 31 20 44 4F 54 2D 31 20 52 45 53 45 54 44 4F |-1 DOT-1 RESETDO|
00001900: 54 2D 31 20 49 4E 56 45 52 54 44 4F 54 2D 31 00 |T-1 INVERTDOT-1.|
00001910: 27 33 21 0C 22 20 2E 42 59 20 4C 49 4E 45 2D 31 |'3!." .BY LINE-1|
00001920: 20 52 45 53 45 54 4C 49 4E 45 2D 31 20 49 4E 56 | RESETLINE-1 INV|
00001930: 45 52 54 4C 49 4E 45 2D 31 20 48 41 52 44 43 4F |ERTLINE-1 HARDCO|
00001940: 50 59 2D 31 20 45 58 49 54 2D 31 00 56 33 26 0C |PY-1 EXIT-1.V3&.|
00001950: 22 20 2E 42 59 20 54 45 58 54 2D 31 20 49 4E 56 |" .BY TEXT-1 INV|
00001960: 54 45 58 54 2D 31 20 52 45 53 54 45 58 54 2D 31 |TEXT-1 RESTEXT-1|
00001970: 20 53 43 41 4E 4E 4C 4E 2D 31 00 74 33 2B 0C 22 | SCANNLN-1.t3+."|
00001980: 20 2E 45 4E 20 3B 45 4E 44 20 4F 46 20 53 4F 55 | .EN ;END OF SOU|
00001990: 52 43 45 2D 46 49 4C 45 00 00 00 B9 00 |RCE-FILE..... |
O.K96..HOUWJ.UF.B..T..M..M.}.....W......
..W.Z.Z.$.J..U<...=.R......S...-..33....
..?.......Q...............Q.W..........
...U..|.......S..A.[..5T..5#........T.
............2...*..U<.MC.{.../MNCW..._..
....C.K.+SG........|.UMW.WU.UT....?S...[
..1....P..5B...#." LDA @TABLE2,X...(." J
SR CWROUT...-." INX...2." CPX #14.%.7."
BNE HC1+2.S.8." ;EINE GRAFIKZEILE (8*800
DOTS) AUSGEBEN.`.<." LDX #0.S.A."HC2 JS
R WROUT.}.F." INX...K." BNE HC2...P."HC3
JSR WROUT...U." INX...Z." BNE HC3.I._."
HC4 JSR WROUT.S.D." INX...I." BNE HC4...
N."HC5 JSR WROUT...S." INX...X." CPX #<X
MAX...}." BNE HC5.+..." INC $FD.9..." LD
A $FD.G..." CMP #69.U..." BNE HC1._..."
RTS.U..." ;ROM AUSBLENDEN....."WROUT SEI
... ." LDA #DISABLE....." STA 1.V..." ;A
DRESSE DES AUSZUGEBENDEN PUNKTES BERECHN
EN....." CLC....." LDA $FB....." ADC #<$
800....." STA $FE....." LDA $FC.,.C." AD
C #>$800.:.H." STA $FF.G.M." LDY #0.U.R.
" LDA $FC.D.W." CMP #$C0.R..." BCS WR1..
..." LDA ($FB),Y....." .BY $2C....."WR1
LDA ($FE),Y....." INC $FB.C..." BNE WR2.
Q..." INC $FC....." ;ROM WIEDER EINBLEND
EN....."WR2 LDY #ENABLE....." STY 1.....
" CLI.?..." ;GEBE ASCII-ZEICHEN IM ACCU
AUS.O..." ;BEI DRUCKERN MIT SERIELLER SC
HNITTSTELLE....." ;MUSS HIER 'JMP $FFD2'
STEHEN....." ;UND DANACH AUCH EIN 'RTS'
.J..."CWROUT STA $DD01.Z..." LDA $DD00..
..." AND #$FB....." STA $DD00..."." ORA
#4...'." STA $DD00.*.,."WAIT LDA $DD0D.9
.1." AND #$10.H.6." BEQ WAIT.R.;." CLC.\
.@." RTS.~.E." ;************************
**...J." ;...O." ; LINE-BEFEHLE...T." ;.
E.Y." ;**************************.V.^."L
INE LDA #0...C." STA FLAG...H." LDA #0..
M." STA LINETYP.. R." JSR VALUE+3.# W."
STA X1.2 |." STY X1+1.B .." JSR VALUE.O
.." STA Y1.^ .." STY Y1+1.N .." JSR VAL
UE.{ .." STA X2.. .." STY X2+1.. .." JSR
VALUE.. .." STA Y2.. .." STY Y2+1.C .."
LDX #1.P .." LDY #0.Z .." SEC.. .." LDA
X2.. B." SBC X1..!G." STA XDIFF..!L." L
DA X2+1."!Q." SBC X1+1.4!V." STA XDIFF+1
.B!.." BPL LI1.L!.." DEX.V!.." DEX.`!.."
DEY.O!.." EOR #$FF..!.." STA XDIFF+1..!
.." LDA XDIFF. !.." EOR #$FF..!.." STA X
DIFF..!.." INC XDIFF.N!.." BNE LI1..!.."
INC XDIFF+1..!.."LI1 STX XSTEP..".." ST
Y XSTEP+1.."!." LDX #1.."&." LDY #0.)"+.
" SEC.6"0." LDA Y2.C"5." SBC Y1.S":." ST
A YDIFF.B"?." LDA Y2+1.Q"D." SBC Y1+1.."
I." STA YDIFF+1.."N." BPL LI2.."S." DEX.
."X." DEX.."]." DEY.."B." EOR #$FF.P"G."
STA YDIFF+1.."L." LDA YDIFF.."Q." EOR #
$FF.."V." STA YDIFF..#{." INC YDIFF..#..
" BNE LI2./#.." INC YDIFF+1.B#.."LI2 STX
YSTEP.T#.." STY YSTEP+1.A#.." LDY #0.Q#
.." LDA XDIFF..#.." ORA XDIFF+1..#.." BN
E LI3..#.." DEY..#.."LI3 STY SUM..#.." S
TY SUM+1.L#.."LI4 LDA X1..#.." LDY X1+1.
.#A." STA XVALUE..#F." STY XVALUE+1..$K.
" LDA Y1..$P." LDY Y1+1.,$U." STA YVALUE
.?$Z." STY YVALUE+1.O$.." JSR SCANN.A$..
" JSR WORKDOT.N$.." LDA X1.{$.." CMP X2.
.$.." BNE LI5..$.." LDA X1+1..$.." CMP X
2+1..$.." BNE LI5.B$.." LDA Y1.O$.." CMP
Y2..$.." BNE LI5..$.." LDA Y1+1..$.." C
MP Y2+1..% ." BNE LI5..%%." RTS.&%*."LI5
BIT SUM+1.4%/." BPL LI6.>%4." CLC.K%9."
LDA Y1.[%>." ADC YSTEP.H%C." STA Y1.W%H
." LDA Y1+1..%M." ADC YSTEP+1..%R." STA
Y1+1..%W." CLC..%\." LDA SUM..%A." ADC X
DIFF.N%F." STA SUM..%K." LDA SUM+1..%P."
ADC XDIFF+1..&U." STA SUM+1..&Z." JMP L
I4..&."LI6 CLC.(&.." LDA X1.8&.." ADC X
STEP.E&.." STA X1.T&.." LDA X1+1.F&.." A
DC XSTEP+1.U&.." STA X1+1.&.." SEC..&..
" LDA SUM..&.." SBC YDIFF..&.." STA SUM.
.&.." LDA SUM+1.M&.." SBC YDIFF+1..&.."
STA SUM+1..&E." JMP LI4..'J."VALUE JSR $
AEFD..'O." JSR $AD8A. 'T." JSR $B7F7..'Y
." LDA $14.<'.." LDY $15.F'.." RTS..'.."
;FLAG SETZEN FUER MODIFIZIERTEN PUNKT-
UND LINIEN-FUNKTIONEN. '.."RESETDOT LDA
#$40..'.." JMP DOT+2.H'.."INVERTDOT LDA
#$80.X'.." JMP DOT+2..'.."RESETLINE LDA
#$40..(.." JMP LINE+2..(.."INVERTLINE LD
A #$80.+(.." JMP LINE+2.M(.." ;*********
*****************.U(.." ;.C(.." ; &EXIT.
K(.." ;..($." ;*************************
*..(%." ;ZEIGER WIEDER 'GERADEBIEGEN'.D(
)."EXIT LDY #$A7.S(.." LDA #$E4..(3." ST
A $0308..(8." STY $0309..(=." SEC..)B."
JSR $FF99..)G." STX $37.))L." STY $38.J)
Q." JMP $E39A ;SYSTEM AUFRUFEN.L)R." ; T
EXT-BEFEHLE, FLAG SETZEN..)V."INVTEXT LD
A #$80..)[." .BY $2C..)`."RESTEXT LDA #$
40..)E." .BY $2C.E)J."TEXT LDA #0.T)O."
STA FLAG..)T." JSR VALUE+3..)Y." STA X1.
.*~." STY X1+1..*.." JSR VALUE..*.." STA
Y1..*.." STY Y1+1.?*.." JSR STRING.N*..
" BNE TXT1.X*.." RTS.L*.."TXT1 STA LENGH
.|*.." STY FLAG3..*.."TXT2 LDY FLAG3..*.
." LDA ($64),Y..*.." CMP #$20..*.." BCC
TXT3.O*.." CMP #$40..*D." BCC TXT3+2..*I
." CMP #$60..*N." BCS TXT3..+S." AND #$1
F..+X." .BY $2C..+.."TXT3 LDA #$20.:+.."
STA 2.I+.." LDA #$1A.U+.." ASL 2._+.."
ROL.K+.." ASL 2.U+.." ROL..+.." ASL 2..+
.." ROL..+.." STA 3..+.." SEI..+.." LDA
#$31..+.." STA 1.I+.." LDY #7..+#."TXT4
LDA (2),Y..+(." STA $200,Y..+-." DEY..,2
." BPL TXT4..,7." LDA #ENABLE.%,<." STA
1./,A." CLI.<,F." LDA #0.L,K." STA FLAG1
.],P."TXT5 LDA #7.M,U." STA FLAG2..,Z."T
XT6 LDX FLAG2..,_." LDA $200,X..,D." LDX
FLAG1..,I." AND @BIT,X.B,N." BEQ TXT8.O
,S." LDA X1..,X." LDY X1+1..,}." STA XVA
LUE..-.." STY XVALUE+1..-.." LDY Y1+1.!-
.." LDA FLAG2.+-.." CLC.8-.." ADC Y1.F-.
." STA $14.U- ." BCC TXT7._-.." INY.U-..
"TXT7 JSR WORKDOT..-.."TXT8 DEC FLAG2..-
.." BPL TXT6..-.." INC X1..-.." BNE TXT9
.C-C." INC X1+1.W-H."TXT9 INC FLAG1..-M.
" LDX FLAG1..-R." CPX #8...W." BNE TXT5.
...." INC FLAG3.#..." LDA FLAG3.3..." CM
P LENGH.C..." BNE TXT10.M..." RTS.A..."T
XT10 JMP TXT2.W..."STRING JSR $AEFD.....
" JSR $AD9E....." JSR $B6A3....." LDY #0
....." LDA ($64),Y.D..." STA $63.N..." I
NY....." LDA ($64),Y..."." TAX...'." INY
../,." LDA ($64),Y../1." STA $65."/6." S
TX $64.//;." LDY #0.=/@." LDA $63.G/E."
RTS.^/J."SCANN BIT LINETYP.M/O." BMI SCA
1.W/T." RTS../Y."SCA1 LDX #$F0../^." STX
FLAG../C." JSR WORKDOT../H." LDA Y1.G/M
." LDY Y1+1.U/R." STA $14../W." BIT FLAG
../|." BPL SCA2../.." PLA..0.." PLA..0..
" RTS."0.."SCA2 LDX #0.10.." STX FLAG.;0
.." RTS.Q0.."SCANNLN LDA #$FF.B0.." JMP
LINE+7..0.." ;**************************
..0.." ;..0.." ; D A T E N B E R E I C H
..0.." ;.V0.." ;************************
**..0B."BIT .BY 128 64 32 16 8 4 2 1..1G
."TABLE1 .BY 13 8 'A' 27 '8' 27.I1L."TAB
LE2 .BY 10 13 ' ' 27 '*' 1 XMAX.W1
Q."PROMPT .BY 'EPSON-SUPPORT V1.7 ***'
13..1V." .BY '(C)1984 BY ALEX DEL PINO'
13 0..1.."STMTAB .BY 'CLEAR' 0.M1.." .B
Y 'DOT' 0..1.." .BY 'RESETDOT' 0..1.." .
BY 'INVDOT' 0..2.." .BY 'LINE' 0.$2.." .
BY 'RESETLINE' 0.:2.." .BY 'INVLINE' 0.J
2.." .BY 153 0.]2.." .BY 'EXIT' 0.P2.."
.BY 'TEXT' 0..2.." .BY 'INVTEXT' 0..2.."
.BY 'RESETTEXT' 0..2.." .BY 'SCANLINE'
0 0..2.."ENTRY .BY CLEAR-1 DOT-1 RESETDO
T-1 INVERTDOT-1.'3!." .BY LINE-1 RESETLI
NE-1 INVERTLINE-1 HARDCOPY-1 EXIT-1.V3&.
" .BY TEXT-1 INVTEXT-1 RESTEXT-1 SCANNLN
-1.T3+." .EN ;END OF SOURCE-FILE.....
> CLICK IMAGE PREVIEW FOR FULL MODAL