VS.MAIN.DICT.K
FILE INFORMATION
FILENAME(S): VS.MAIN.DICT.K
FILE TYPE(S): PRG
FILE SIZE: 5.4K
FIRST SEEN: 2025-10-20 00:37:10
APPEARS ON: 1 disk(s)
FILE HASH
3d177160bd6c27116fce99649720f4004480c1e991f3053c4cae0fac88231f8c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VIZAWRITE CO | VS.MAIN.DICT.K | PRG | Treasure Chest - Holger | 30 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 44 3D AC 0C BE 3E 43 97 8C 3B 74 FD 1E BD 41 FD |D=...>C..;t...A.|
00000010: 6D 8F 44 3B B1 27 A3 CE 76 4D 0B 4D 7D 6A 7B BD |m.D;.'..vM.M}j{.|
00000020: 59 8F A7 87 AC 2B FF D4 DB FF 2D 17 1D FF FF 66 |Y....+....-....f|
00000030: FF FF FF FF F7 33 BC CD BF 73 57 FF FF 75 5D 4A |.....3...sW..u]J|
00000040: FF 2E FF FF 3B FF 72 FF FF FF B2 FF FF FC FF FF |....;.r.........|
00000050: F2 3C 6E FF CD FF FF 31 77 FF ED 27 52 DD 7C 9E |.<n....1w..'R.|.|
00000060: EE EB 53 FF AB 70 F6 FF FF 61 FF BE FF FF D4 FF |..S..p...a......|
00000070: C7 C8 D5 75 DA 7C EF 07 7A 3D BF 9B 61 60 B3 B0 |...u.|..z=..a`..|
00000080: 68 53 A1 50 D1 35 35 7B B7 C5 E3 67 93 97 A5 D9 |hS.P.55{...g....|
00000090: 99 A8 FD 3D A5 77 78 80 34 D7 D8 65 C5 D7 34 E6 |...=.wx.4..e..4.|
000000A0: 6B EA E3 13 7A 3D BC 33 81 E5 69 6D 64 E1 0B 3D |k...z=.3..imd..=|
000000B0: 52 C2 E5 69 57 B5 17 98 81 11 BF 75 7D D9 45 34 |R..iW......u}.E4|
000000C0: D7 75 91 40 75 34 81 45 3D 3B 37 E0 57 73 42 C4 |.u.@u4.E=;7.WsB.|
000000D0: 50 B9 9D 66 ED 54 68 C2 8D 7B 7D 71 49 75 64 93 |P..f.Th..{}qIud.|
000000E0: 6D 63 A6 E1 93 93 B6 D2 FA 79 3A B0 A8 6B 21 43 |mc.......y:..k!C|
000000F0: C7 BA 7F 97 81 39 AB 95 74 D0 53 AD 83 CC 44 41 |.....9..t.S...DA|
00000100: 20 24 44 44 30 30 00 E9 1E 18 06 22 20 41 4E 44 | $DD00....." AND|
00000110: 20 23 24 46 42 00 F9 1E 1D 06 22 20 53 54 41 20 | #$FB....." STA |
00000120: 24 44 44 30 30 00 06 1F 22 06 22 20 4F 52 41 20 |$DD00..."." ORA |
00000130: 23 34 00 16 1F 27 06 22 20 53 54 41 20 24 44 44 |#4...'." STA $DD|
00000140: 30 30 00 2A 1F 2C 06 22 57 41 49 54 20 4C 44 41 |00.*.,."WAIT LDA|
00000150: 20 24 44 44 30 44 00 39 1F 31 06 22 20 41 4E 44 | $DD0D.9.1." AND|
00000160: 20 23 24 31 30 00 48 1F 36 06 22 20 42 45 51 20 | #$10.H.6." BEQ |
00000170: 57 41 49 54 00 52 1F 3B 06 22 20 43 4C 43 00 5C |WAIT.R.;." CLC.\|
00000180: 1F 40 06 22 20 52 54 53 00 7E 1F 45 06 22 20 3B |.@." RTS.~.E." ;|
00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 86 1F 4A 06 22 |**********...J."|
000001B0: 20 3B 00 9B 1F 4F 06 22 20 3B 20 4C 49 4E 45 2D | ;...O." ; LINE-|
000001C0: 42 45 46 45 48 4C 45 00 A3 1F 54 06 22 20 3B 00 |BEFEHLE...T." ;.|
000001D0: C5 1F 59 06 22 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |..Y." ;*********|
000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001F0: 2A 00 D6 1F 5E 06 22 4C 49 4E 45 20 4C 44 41 20 |*...^."LINE LDA |
00000200: 23 30 00 E5 1F 63 06 22 20 53 54 41 20 46 4C 41 |#0...c." STA FLA|
00000210: 47 00 F2 1F 68 06 22 20 4C 44 41 20 23 30 00 04 |G...h." LDA #0..|
00000220: 20 6D 06 22 20 53 54 41 20 4C 49 4E 45 54 59 50 | m." STA LINETYP|
00000230: 00 16 20 72 06 22 20 4A 53 52 20 56 41 4C 55 45 |.. r." JSR VALUE|
00000240: 2B 33 00 23 20 77 06 22 20 53 54 41 20 58 31 00 |+3.# w." STA X1.|
00000250: 32 20 7C 06 22 20 53 54 59 20 58 31 2B 31 00 42 |2 |." STY X1+1.B|
00000260: 20 81 06 22 20 4A 53 52 20 56 41 4C 55 45 00 4F | .." JSR VALUE.O|
00000270: 20 86 06 22 20 53 54 41 20 59 31 00 5E 20 8B 06 | .." STA Y1.^ ..|
00000280: 22 20 53 54 59 20 59 31 2B 31 00 6E 20 90 06 22 |" STY Y1+1.n .."|
00000290: 20 4A 53 52 20 56 41 4C 55 45 00 7B 20 95 06 22 | JSR VALUE.{ .."|
000002A0: 20 53 54 41 20 58 32 00 8A 20 9A 06 22 20 53 54 | STA X2.. .." ST|
000002B0: 59 20 58 32 2B 31 00 9A 20 9F 06 22 20 4A 53 52 |Y X2+1.. .." JSR|
000002C0: 20 56 41 4C 55 45 00 A7 20 A4 06 22 20 53 54 41 | VALUE.. .." STA|
000002D0: 20 59 32 00 B6 20 A9 06 22 20 53 54 59 20 59 32 | Y2.. .." STY Y2|
000002E0: 2B 31 00 C3 20 AE 06 22 20 4C 44 58 20 23 31 00 |+1.. .." LDX #1.|
000002F0: D0 20 B3 06 22 20 4C 44 59 20 23 30 00 DA 20 B8 |. .." LDY #0.. .|
00000300: 06 22 20 53 45 43 00 E7 20 BD 06 22 20 4C 44 41 |." SEC.. .." LDA|
00000310: 20 58 32 00 F4 20 C2 06 22 20 53 42 43 20 58 31 | X2.. .." SBC X1|
00000320: 00 04 21 C7 06 22 20 53 54 41 20 58 44 49 46 46 |..!.." STA XDIFF|
00000330: 00 13 21 CC 06 22 20 4C 44 41 20 58 32 2B 31 00 |..!.." LDA X2+1.|
00000340: 22 21 D1 06 22 20 53 42 43 20 58 31 2B 31 00 34 |"!.." SBC X1+1.4|
00000350: 21 D6 06 22 20 53 54 41 20 58 44 49 46 46 2B 31 |!.." STA XDIFF+1|
00000360: 00 42 21 DB 06 22 20 42 50 4C 20 4C 49 31 00 4C |.B!.." BPL LI1.L|
00000370: 21 E0 06 22 20 44 45 58 00 56 21 E5 06 22 20 44 |!.." DEX.V!.." D|
00000380: 45 58 00 60 21 EA 06 22 20 44 45 59 00 6F 21 EF |EX.`!.." DEY.o!.|
00000390: 06 22 20 45 4F 52 20 23 24 46 46 00 81 21 F4 06 |." EOR #$FF..!..|
000003A0: 22 20 53 54 41 20 58 44 49 46 46 2B 31 00 91 21 |" STA XDIFF+1..!|
000003B0: F9 06 22 20 4C 44 41 20 58 44 49 46 46 00 A0 21 |.." LDA XDIFF..!|
000003C0: FE 06 22 20 45 4F 52 20 23 24 46 46 00 B0 21 03 |.." EOR #$FF..!.|
000003D0: 07 22 20 53 54 41 20 58 44 49 46 46 00 C0 21 08 |." STA XDIFF..!.|
000003E0: 07 22 20 49 4E 43 20 58 44 49 46 46 00 CE 21 0D |." INC XDIFF..!.|
000003F0: 07 22 20 42 4E 45 20 4C 49 31 00 E0 21 12 07 22 |." BNE LI1..!.."|
00000400: 20 49 4E 43 20 58 44 49 46 46 2B 31 00 F3 21 17 | INC XDIFF+1..!.|
00000410: 07 22 4C 49 31 20 53 54 58 20 58 53 54 45 50 00 |."LI1 STX XSTEP.|
00000420: 05 22 1C 07 22 20 53 54 59 20 58 53 54 45 50 2B |.".." STY XSTEP+|
00000430: 31 00 12 22 21 07 22 20 4C 44 58 20 23 31 00 1F |1.."!." LDX #1..|
00000440: 22 26 07 22 20 4C 44 59 20 23 30 00 29 22 2B 07 |"&." LDY #0.)"+.|
00000450: 22 20 53 45 43 00 36 22 30 07 22 20 4C 44 41 20 |" SEC.6"0." LDA |
00000460: 59 32 00 43 22 35 07 22 20 53 42 43 20 59 31 00 |Y2.C"5." SBC Y1.|
00000470: 53 22 3A 07 22 20 53 54 41 20 59 44 49 46 46 00 |S":." STA YDIFF.|
00000480: 62 22 3F 07 22 20 4C 44 41 20 59 32 2B 31 00 71 |b"?." LDA Y2+1.q|
00000490: 22 44 07 22 20 53 42 43 20 59 31 2B 31 00 83 22 |"D." SBC Y1+1.."|
000004A0: 49 07 22 20 53 54 41 20 59 44 49 46 46 2B 31 00 |I." STA YDIFF+1.|
000004B0: 91 22 4E 07 22 20 42 50 4C 20 4C 49 32 00 9B 22 |."N." BPL LI2.."|
000004C0: 53 07 22 20 44 45 58 00 A5 22 58 07 22 20 44 45 |S." DEX.."X." DE|
000004D0: 58 00 AF 22 5D 07 22 20 44 45 59 00 BE 22 62 07 |X.."]." DEY.."b.|
000004E0: 22 20 45 4F 52 20 23 24 46 46 00 D0 22 67 07 22 |" EOR #$FF.."g."|
000004F0: 20 53 54 41 20 59 44 49 46 46 2B 31 00 E0 22 6C | STA YDIFF+1.."l|
00000500: 07 22 20 4C 44 41 20 59 44 49 46 46 00 EF 22 71 |." LDA YDIFF.."q|
00000510: 07 22 20 45 4F 52 20 23 24 46 46 00 FF 22 76 07 |." EOR #$FF.."v.|
00000520: 22 20 53 54 41 20 59 44 49 46 46 00 0F 23 7B 07 |" STA YDIFF..#{.|
00000530: 22 20 49 4E 43 20 59 44 49 46 46 00 1D 23 80 07 |" INC YDIFF..#..|
00000540: 22 20 42 4E 45 20 4C 49 32 00 2F 23 85 07 22 20 |" BNE LI2./#.." |
00000550: 49 4E 43 20 59 44 49 46 46 2B 31 00 42 23 8A 07 |INC YDIFF+1.B#..|
00000560: 22 4C 49 32 20 53 54 58 20 59 53 54 45 50 00 54 |"LI2 STX YSTEP.T|
00000570: 23 8F 07 22 20 53 54 59 20 59 53 54 45 50 2B 31 |#.." STY YSTEP+1|
00000580: 00 61 23 94 07 22 20 4C 44 59 20 23 30 00 71 23 |.a#.." LDY #0.q#|
00000590: 99 07 22 20 4C 44 41 20 58 44 49 46 46 00 83 23 |.." LDA XDIFF..#|
000005A0: 9E 07 22 20 4F 52 41 20 58 44 49 46 46 2B 31 00 |.." ORA XDIFF+1.|
000005B0: 91 23 A3 07 22 20 42 4E 45 20 4C 49 33 00 9B 23 |.#.." BNE LI3..#|
000005C0: A8 07 22 20 44 45 59 00 AC 23 AD 07 22 4C 49 33 |.." DEY..#.."LI3|
000005D0: 20 53 54 59 20 53 55 4D 00 BC 23 B2 07 22 20 53 | STY SUM..#.." S|
000005E0: 54 59 20 53 55 4D 2B 31 00 CC 23 B7 07 22 4C 49 |TY SUM+1..#.."LI|
000005F0: 34 20 4C 44 41 20 58 31 00 DB 23 BC 07 22 20 4C |4 LDA X1..#.." L|
00000600: 44 59 20 58 31 2B 31 00 EC 23 C1 07 22 20 53 54 |DY X1+1..#.." ST|
00000610: 41 20 58 56 41 4C 55 45 00 FF 23 C6 07 22 20 53 |A XVALUE..#.." S|
00000620: 54 59 20 58 56 41 4C 55 45 2B 31 00 0C 24 CB 07 |TY XVALUE+1..$..|
00000630: 22 20 4C 44 41 20 59 31 00 1B 24 D0 07 22 20 4C |" LDA Y1..$.." L|
00000640: 44 59 20 59 31 2B 31 00 2C 24 D5 07 22 20 53 54 |DY Y1+1.,$.." ST|
00000650: 41 20 59 56 41 4C 55 45 00 3F 24 DA 07 22 20 53 |A YVALUE.?$.." S|
00000660: 54 59 20 59 56 41 4C 55 45 2B 31 00 4F 24 DF 07 |TY YVALUE+1.O$..|
00000670: 22 20 4A 53 52 20 53 43 41 4E 4E 00 61 24 E4 07 |" JSR SCANN.a$..|
00000680: 22 20 4A 53 52 20 57 4F 52 4B 44 4F 54 00 6E 24 |" JSR WORKDOT.n$|
00000690: E9 07 22 20 4C 44 41 20 58 31 00 7B 24 EE 07 22 |.." LDA X1.{$.."|
000006A0: 20 43 4D 50 20 58 32 00 89 24 F3 07 22 20 42 4E | CMP X2..$.." BN|
000006B0: 45 20 4C 49 35 00 98 24 F8 07 22 20 4C 44 41 20 |E LI5..$.." LDA |
000006C0: 58 31 2B 31 00 A7 24 FD 07 22 20 43 4D 50 20 58 |X1+1..$.." CMP X|
000006D0: 32 2B 31 00 B5 24 02 08 22 20 42 4E 45 20 4C 49 |2+1..$.." BNE LI|
000006E0: 35 00 C2 24 07 08 22 20 4C 44 41 20 59 31 00 CF |5..$.." LDA Y1..|
000006F0: 24 0C 08 22 20 43 4D 50 20 59 32 00 DD 24 11 08 |$.." CMP Y2..$..|
00000700: 22 20 42 4E 45 20 4C 49 35 00 EC 24 16 08 22 20 |" BNE LI5..$.." |
00000710: 4C 44 41 20 59 31 2B 31 00 FB 24 1B 08 22 20 43 |LDA Y1+1..$.." C|
00000720: 4D 50 20 59 32 2B 31 00 09 25 20 08 22 20 42 4E |MP Y2+1..% ." BN|
00000730: 45 20 4C 49 35 00 13 25 25 08 22 20 52 54 53 00 |E LI5..%%." RTS.|
00000740: 26 25 2A 08 22 4C 49 35 20 42 49 54 20 53 55 4D |&%*."LI5 BIT SUM|
00000750: 2B 31 00 34 25 2F 08 22 20 42 50 4C 20 4C 49 36 |+1.4%/." BPL LI6|
00000760: 00 3E 25 34 08 22 20 43 4C 43 00 4B 25 39 08 22 |.>%4." CLC.K%9."|
00000770: 20 4C 44 41 20 59 31 00 5B 25 3E 08 22 20 41 44 | LDA Y1.[%>." AD|
00000780: 43 20 59 53 54 45 50 00 68 25 43 08 22 20 53 54 |C YSTEP.h%C." ST|
00000790: 41 20 59 31 00 77 25 48 08 22 20 4C 44 41 20 59 |A Y1.w%H." LDA Y|
000007A0: 31 2B 31 00 89 25 4D 08 22 20 41 44 43 20 59 53 |1+1..%M." ADC YS|
000007B0: 54 45 50 2B 31 00 98 25 52 08 22 20 53 54 41 20 |TEP+1..%R." STA |
000007C0: 59 31 2B 31 00 A2 25 57 08 22 20 43 4C 43 00 B0 |Y1+1..%W." CLC..|
000007D0: 25 5C 08 22 20 4C 44 41 20 53 55 4D 00 C0 25 61 |%\." LDA SUM..%a|
000007E0: 08 22 20 41 44 43 20 58 44 49 46 46 00 CE 25 66 |." ADC XDIFF..%f|
000007F0: 08 22 20 53 54 41 20 53 55 4D 00 DE 25 6B 08 22 |." STA SUM..%k."|
00000800: 20 4C 44 41 20 53 55 4D 2B 31 00 F0 25 70 08 22 | LDA SUM+1..%p."|
00000810: 20 41 44 43 20 58 44 49 46 46 2B 31 00 00 26 75 | ADC XDIFF+1..&u|
00000820: 08 22 20 53 54 41 20 53 55 4D 2B 31 00 0E 26 7A |." STA SUM+1..&z|
00000830: 08 22 20 4A 4D 50 20 4C 49 34 00 1B 26 7F 08 22 |." JMP LI4..&.."|
00000840: 4C 49 36 20 43 4C 43 00 28 26 84 08 22 20 4C 44 |LI6 CLC.(&.." LD|
00000850: 41 20 58 31 00 38 26 89 08 22 20 41 44 43 20 58 |A X1.8&.." ADC X|
00000860: 53 54 45 50 00 45 26 8E 08 22 20 53 54 41 20 58 |STEP.E&.." STA X|
00000870: 31 00 54 26 93 08 22 20 4C 44 41 20 58 31 2B 31 |1.T&.." LDA X1+1|
00000880: 00 66 26 98 08 22 20 41 44 43 20 58 53 54 45 50 |.f&.." ADC XSTEP|
00000890: 2B 31 00 75 26 9D 08 22 20 53 54 41 20 58 31 2B |+1.u&.." STA X1+|
000008A0: 31 00 7F 26 A2 08 22 20 53 45 43 00 8D 26 A7 08 |1..&.." SEC..&..|
000008B0: 22 20 4C 44 41 20 53 55 4D 00 9D 26 AC 08 22 20 |" LDA SUM..&.." |
000008C0: 53 42 43 20 59 44 49 46 46 00 AB 26 B1 08 22 20 |SBC YDIFF..&.." |
000008D0: 53 54 41 20 53 55 4D 00 BB 26 B6 08 22 20 4C 44 |STA SUM..&.." LD|
000008E0: 41 20 53 55 4D 2B 31 00 CD 26 BB 08 22 20 53 42 |A SUM+1..&.." SB|
000008F0: 43 20 59 44 49 46 46 2B 31 00 DD 26 C0 08 22 20 |C YDIFF+1..&.." |
00000900: 53 54 41 20 53 55 4D 2B 31 00 EB 26 C5 08 22 20 |STA SUM+1..&.." |
00000910: 4A 4D 50 20 4C 49 34 00 00 27 CA 08 22 56 41 4C |JMP LI4..'.."VAL|
00000920: 55 45 20 4A 53 52 20 24 41 45 46 44 00 10 27 CF |UE JSR $AEFD..'.|
00000930: 08 22 20 4A 53 52 20 24 41 44 38 41 00 20 27 D4 |." JSR $AD8A. '.|
00000940: 08 22 20 4A 53 52 20 24 42 37 46 37 00 2E 27 D9 |." JSR $B7F7..'.|
00000950: 08 22 20 4C 44 41 20 24 31 34 00 3C 27 DE 08 22 |." LDA $14.<'.."|
00000960: 20 4C 44 59 20 24 31 35 00 46 27 E3 08 22 20 52 | LDY $15.F'.." R|
00000970: 54 53 00 89 27 E4 08 22 20 3B 46 4C 41 47 20 53 |TS..'.." ;FLAG S|
00000980: 45 54 5A 45 4E 20 46 55 45 52 20 4D 4F 44 49 46 |ETZEN FUER MODIF|
00000990: 49 5A 49 45 52 54 45 4E 20 50 55 4E 4B 54 2D 20 |IZIERTEN PUNKT- |
000009A0: 55 4E 44 20 4C 49 4E 49 45 4E 2D 46 55 4E 4B 54 |UND LINIEN-FUNKT|
000009B0: 49 4F 4E 45 4E 00 A0 27 E8 08 22 52 45 53 45 54 |IONEN..'.."RESET|
000009C0: 44 4F 54 20 4C 44 41 20 23 24 34 30 00 B0 27 ED |DOT LDA #$40..'.|
000009D0: 08 22 20 4A 4D 50 20 44 4F 54 2B 32 00 C8 27 F2 |." JMP DOT+2..'.|
000009E0: 08 22 49 4E 56 45 52 54 44 4F 54 20 4C 44 41 20 |."INVERTDOT LDA |
000009F0: 23 24 38 30 00 D8 27 F7 08 22 20 4A 4D 50 20 44 |#$80..'.." JMP D|
00000A00: 4F 54 2B 32 00 F0 27 FC 08 22 52 45 53 45 54 4C |OT+2..'.."RESETL|
00000A10: 49 4E 45 20 4C 44 41 20 23 24 34 30 00 01 28 01 |INE LDA #$40..(.|
00000A20: 09 22 20 4A 4D 50 20 4C 49 4E 45 2B 32 00 1A 28 |." JMP LINE+2..(|
00000A30: 06 09 22 49 4E 56 45 52 54 4C 49 4E 45 20 4C 44 |.."INVERTLINE LD|
00000A40: 41 20 23 24 38 30 00 2B 28 0B 09 22 20 4A 4D 50 |A #$80.+(.." JMP|
00000A50: 20 4C 49 4E 45 2B 32 00 4D 28 10 09 22 20 3B 2A | LINE+2.M(.." ;*|
00000A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 55 28 15 09 22 20 |*********.U(.." |
00000A80: 3B 00 63 28 1A 09 22 20 3B 20 26 45 58 49 54 00 |;.c(.." ; &EXIT.|
00000A90: 6B 28 1F 09 22 20 3B 00 8D 28 24 09 22 20 3B 2A |k(.." ;..($." ;*|
00000AA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B1 28 25 09 22 20 |*********..(%." |
00000AC0: 3B 5A 45 49 47 45 52 20 57 49 45 44 45 52 20 27 |;ZEIGER WIEDER '|
00000AD0: 47 45 52 41 44 45 42 49 45 47 45 4E 27 00 C4 28 |GERADEBIEGEN'..(|
00000AE0: 29 09 22 45 58 49 54 20 4C 44 59 20 23 24 41 37 |)."EXIT LDY #$A7|
00000AF0: 00 D3 28 2E 09 22 20 4C 44 41 20 23 24 45 34 00 |..(.." LDA #$E4.|
00000B00: E3 28 33 09 22 20 53 54 41 20 24 30 33 30 38 00 |.(3." STA $0308.|
00000B10: F3 28 38 09 22 20 53 54 59 20 24 30 33 30 39 00 |.(8." STY $0309.|
00000B20: FD 28 3D 09 22 20 53 45 43 00 0D 29 42 09 22 20 |.(=." SEC..)B." |
00000B30: 4A 53 52 20 24 46 46 39 39 00 1B 29 47 09 22 20 |JSR $FF99..)G." |
00000B40: 53 54 58 20 24 33 37 00 29 29 4C 09 22 20 53 54 |STX $37.))L." ST|
00000B50: 59 20 24 33 38 00 4A 29 51 09 22 20 4A 4D 50 20 |Y $38.J)Q." JMP |
00000B60: 24 45 33 39 41 20 3B 53 59 53 54 45 4D 20 41 55 |$E39A ;SYSTEM AU|
00000B70: 46 52 55 46 45 4E 00 6C 29 52 09 22 20 3B 20 54 |FRUFEN.l)R." ; T|
00000B80: 45 58 54 2D 42 45 46 45 48 4C 45 2C 20 46 4C 41 |EXT-BEFEHLE, FLA|
00000B90: 47 20 53 45 54 5A 45 4E 00 82 29 56 09 22 49 4E |G SETZEN..)V."IN|
00000BA0: 56 54 45 58 54 20 4C 44 41 20 23 24 38 30 00 90 |VTEXT LDA #$80..|
00000BB0: 29 5B 09 22 20 2E 42 59 20 24 32 43 00 A6 29 60 |)[." .BY $2C..)`|
00000BC0: 09 22 52 45 53 54 45 58 54 20 4C 44 41 20 23 24 |."RESTEXT LDA #$|
00000BD0: 34 30 00 B4 29 65 09 22 20 2E 42 59 20 24 32 43 |40..)e." .BY $2C|
00000BE0: 00 C5 29 6A 09 22 54 45 58 54 20 4C 44 41 20 23 |..)j."TEXT LDA #|
00000BF0: 30 00 D4 29 6F 09 22 20 53 54 41 20 46 4C 41 47 |0..)o." STA FLAG|
00000C00: 00 E6 29 74 09 22 20 4A 53 52 20 56 41 4C 55 45 |..)t." JSR VALUE|
00000C10: 2B 33 00 F3 29 79 09 22 20 53 54 41 20 58 31 00 |+3..)y." STA X1.|
00000C20: 02 2A 7E 09 22 20 53 54 59 20 58 31 2B 31 00 12 |.*~." STY X1+1..|
00000C30: 2A 83 09 22 20 4A 53 52 20 56 41 4C 55 45 00 1F |*.." JSR VALUE..|
00000C40: 2A 88 09 22 20 53 54 41 20 59 31 00 2E 2A 8D 09 |*.." STA Y1..*..|
00000C50: 22 20 53 54 59 20 59 31 2B 31 00 3F 2A 92 09 22 |" STY Y1+1.?*.."|
00000C60: 20 4A 53 52 20 53 54 52 49 4E 47 00 4E 2A 97 09 | JSR STRING.N*..|
00000C70: 22 20 42 4E 45 20 54 58 54 31 00 58 2A 9C 09 22 |" BNE TXT1.X*.."|
00000C80: 20 52 54 53 00 6C 2A A1 09 22 54 58 54 31 20 53 | RTS.l*.."TXT1 S|
00000C90: 54 41 20 4C 45 4E 47 48 00 7C 2A A6 09 22 20 53 |TA LENGH.|*.." S|
00000CA0: 54 59 20 46 4C 41 47 33 00 90 2A AB 09 22 54 58 |TY FLAG3..*.."TX|
00000CB0: 54 32 20 4C 44 59 20 46 4C 41 47 33 00 A2 2A B0 |T2 LDY FLAG3..*.|
00000CC0: 09 22 20 4C 44 41 20 28 24 36 34 29 2C 59 00 B1 |." LDA ($64),Y..|
00000CD0: 2A B5 09 22 20 43 4D 50 20 23 24 32 30 00 C0 2A |*.." CMP #$20..*|
00000CE0: BA 09 22 20 42 43 43 20 54 58 54 33 00 CF 2A BF |.." BCC TXT3..*.|
00000CF0: 09 22 20 43 4D 50 20 23 24 34 30 00 E0 2A C4 09 |." CMP #$40..*..|
00000D00: 22 20 42 43 43 20 54 58 54 33 2B 32 00 EF 2A C9 |" BCC TXT3+2..*.|
00000D10: 09 22 20 43 4D 50 20 23 24 36 30 00 FE 2A CE 09 |." CMP #$60..*..|
00000D20: 22 20 42 43 53 20 54 58 54 33 00 0D 2B D3 09 22 |" BCS TXT3..+.."|
00000D30: 20 41 4E 44 20 23 24 31 46 00 1B 2B D8 09 22 20 | AND #$1F..+.." |
00000D40: 2E 42 59 20 24 32 43 00 2E 2B DD 09 22 54 58 54 |.BY $2C..+.."TXT|
00000D50: 33 20 4C 44 41 20 23 24 32 30 00 3A 2B E2 09 22 |3 LDA #$20.:+.."|
00000D60: 20 53 54 41 20 32 00 49 2B E7 09 22 20 4C 44 41 | STA 2.I+.." LDA|
00000D70: 20 23 24 31 41 00 55 2B EC 09 22 20 41 53 4C 20 | #$1A.U+.." ASL |
00000D80: 32 00 5F 2B F1 09 22 20 52 4F 4C 00 6B 2B F6 09 |2._+.." ROL.k+..|
00000D90: 22 20 41 53 4C 20 32 00 75 2B FB 09 22 20 52 4F |" ASL 2.u+.." RO|
00000DA0: 4C 00 81 2B 00 0A 22 20 41 53 4C 20 32 00 8B 2B |L..+.." ASL 2..+|
00000DB0: 05 0A 22 20 52 4F 4C 00 97 2B 0A 0A 22 20 53 54 |.." ROL..+.." ST|
00000DC0: 41 20 33 00 A1 2B 0F 0A 22 20 53 45 49 00 B0 2B |A 3..+.." SEI..+|
00000DD0: 14 0A 22 20 4C 44 41 20 23 24 33 31 00 BC 2B 19 |.." LDA #$31..+.|
00000DE0: 0A 22 20 53 54 41 20 31 00 C9 2B 1E 0A 22 20 4C |." STA 1..+.." L|
00000DF0: 44 59 20 23 37 00 DD 2B 23 0A 22 54 58 54 34 20 |DY #7..+#."TXT4 |
00000E00: 4C 44 41 20 28 32 29 2C 59 00 EE 2B 28 0A 22 20 |LDA (2),Y..+(." |
00000E10: 53 54 41 20 24 32 30 30 2C 59 00 F8 2B 2D 0A 22 |STA $200,Y..+-."|
00000E20: 20 44 45 59 00 07 2C 32 0A 22 20 42 50 4C 20 54 | DEY..,2." BPL T|
00000E30: 58 54 34 00 19 2C 37 0A 22 20 4C 44 41 20 23 45 |XT4..,7." LDA #E|
00000E40: 4E 41 42 4C 45 00 25 2C 3C 0A 22 20 53 54 41 20 |NABLE.%,<." STA |
00000E50: 31 00 2F 2C 41 0A 22 20 43 4C 49 00 3C 2C 46 0A |1./,A." CLI.<,F.|
00000E60: 22 20 4C 44 41 20 23 30 00 4C 2C 4B 0A 22 20 53 |" LDA #0.L,K." S|
00000E70: 54 41 20 46 4C 41 47 31 00 5D 2C 50 0A 22 54 58 |TA FLAG1.],P."TX|
00000E80: 54 35 20 4C 44 41 20 23 37 00 6D 2C 55 0A 22 20 |T5 LDA #7.m,U." |
00000E90: 53 54 41 20 46 4C 41 47 32 00 81 2C 5A 0A 22 54 |STA FLAG2..,Z."T|
00000EA0: 58 54 36 20 4C 44 58 20 46 4C 41 47 32 00 92 2C |XT6 LDX FLAG2..,|
00000EB0: 5F 0A 22 20 4C 44 41 20 24 32 30 30 2C 58 00 A2 |_." LDA $200,X..|
00000EC0: 2C 64 0A 22 20 4C 44 58 20 46 4C 41 47 31 00 B3 |,d." LDX FLAG1..|
00000ED0: 2C 69 0A 22 20 41 4E 44 20 40 42 49 54 2C 58 00 |,i." AND @BIT,X.|
00000EE0: C2 2C 6E 0A 22 20 42 45 51 20 54 58 54 38 00 CF |.,n." BEQ TXT8..|
00000EF0: 2C 73 0A 22 20 4C 44 41 20 58 31 00 DE 2C 78 0A |,s." LDA X1..,x.|
00000F00: 22 20 4C 44 59 20 58 31 2B 31 00 EF 2C 7D 0A 22 |" LDY X1+1..,}."|
00000F10: 20 53 54 41 20 58 56 41 4C 55 45 00 02 2D 82 0A | STA XVALUE..-..|
00000F20: 22 20 53 54 59 20 58 56 41 4C 55 45 2B 31 00 11 |" STY XVALUE+1..|
00000F30: 2D 87 0A 22 20 4C 44 59 20 59 31 2B 31 00 21 2D |-.." LDY Y1+1.!-|
00000F40: 8C 0A 22 20 4C 44 41 20 46 4C 41 47 32 00 2B 2D |.." LDA FLAG2.+-|
00000F50: 91 0A 22 20 43 4C 43 00 38 2D 96 0A 22 20 41 44 |.." CLC.8-.." AD|
00000F60: 43 20 59 31 00 46 2D 9B 0A 22 20 53 54 41 20 24 |C Y1.F-.." STA $|
00000F70: 31 34 00 55 2D A0 0A 22 20 42 43 43 20 54 58 54 |14.U-.." BCC TXT|
00000F80: 37 00 5F 2D A5 0A 22 20 49 4E 59 00 75 2D AA 0A |7._-.." INY.u-..|
00000F90: 22 54 58 54 37 20 4A 53 52 20 57 4F 52 4B 44 4F |"TXT7 JSR WORKDO|
00000FA0: 54 00 89 2D AF 0A 22 54 58 54 38 20 44 45 43 20 |T..-.."TXT8 DEC |
00000FB0: 46 4C 41 47 32 00 98 2D B4 0A 22 20 42 50 4C 20 |FLAG2..-.." BPL |
00000FC0: 54 58 54 36 00 A5 2D B9 0A 22 20 49 4E 43 20 58 |TXT6..-.." INC X|
00000FD0: 31 00 B4 2D BE 0A 22 20 42 4E 45 20 54 58 54 39 |1..-.." BNE TXT9|
00000FE0: 00 C3 2D C3 0A 22 20 49 4E 43 20 58 31 2B 31 00 |..-.." INC X1+1.|
00000FF0: D7 2D C8 0A 22 54 58 54 39 20 49 4E 43 20 46 4C |.-.."TXT9 INC FL|
00001000: 41 47 31 00 E7 2D CD 0A 22 20 4C 44 58 20 46 4C |AG1..-.." LDX FL|
00001010: 41 47 31 00 F4 2D D2 0A 22 20 43 50 58 20 23 38 |AG1..-.." CPX #8|
00001020: 00 03 2E D7 0A 22 20 42 4E 45 20 54 58 54 35 00 |....." BNE TXT5.|
00001030: 13 2E DC 0A 22 20 49 4E 43 20 46 4C 41 47 33 00 |...." INC FLAG3.|
00001040: 23 2E E1 0A 22 20 4C 44 41 20 46 4C 41 47 33 00 |#..." LDA FLAG3.|
00001050: 33 2E E6 0A 22 20 43 4D 50 20 4C 45 4E 47 48 00 |3..." CMP LENGH.|
00001060: 43 2E EB 0A 22 20 42 4E 45 20 54 58 54 31 30 00 |C..." BNE TXT10.|
00001070: 4D 2E F0 0A 22 20 52 54 53 00 61 2E F5 0A 22 54 |M..." RTS.a..."T|
00001080: 58 54 31 30 20 4A 4D 50 20 54 58 54 32 00 77 2E |XT10 JMP TXT2.w.|
00001090: FA 0A 22 53 54 52 49 4E 47 20 4A 53 52 20 24 41 |.."STRING JSR $A|
000010A0: 45 46 44 00 87 2E FF 0A 22 20 4A 53 52 20 24 41 |EFD....." JSR $A|
000010B0: 44 39 45 00 97 2E 04 0B 22 20 4A 53 52 20 24 42 |D9E....." JSR $B|
000010C0: 36 41 33 00 A4 2E 09 0B 22 20 4C 44 59 20 23 30 |6A3....." LDY #0|
000010D0: 00 B6 2E 0E 0B 22 20 4C 44 41 20 28 24 36 34 29 |....." LDA ($64)|
000010E0: 2C 59 00 C4 2E 13 0B 22 20 53 54 41 20 24 36 33 |,Y....." STA $63|
000010F0: 00 CE 2E 18 0B 22 20 49 4E 59 00 E0 2E 1D 0B 22 |....." INY....."|
00001100: 20 4C 44 41 20 28 24 36 34 29 2C 59 00 EA 2E 22 | LDA ($64),Y..."|
00001110: 0B 22 20 54 41 58 00 F4 2E 27 0B 22 20 49 4E 59 |." TAX...'." INY|
00001120: 00 06 2F 2C 0B 22 20 4C 44 41 20 28 24 36 34 29 |../,." LDA ($64)|
00001130: 2C 59 00 14 2F 31 0B 22 20 53 54 41 20 24 36 35 |,Y../1." STA $65|
00001140: 00 22 2F 36 0B 22 20 53 54 58 20 24 36 34 00 2F |."/6." STX $64./|
00001150: 2F 3B 0B 22 20 4C 44 59 20 23 30 00 3D 2F 40 0B |/;." LDY #0.=/@.|
00001160: 22 20 4C 44 41 20 24 36 33 00 47 2F 45 0B 22 20 |" LDA $63.G/E." |
00001170: 52 54 53 00 5E 2F 4A 0B 22 53 43 41 4E 4E 20 42 |RTS.^/J."SCANN B|
00001180: 49 54 20 4C 49 4E 45 54 59 50 00 6D 2F 4F 0B 22 |IT LINETYP.m/O."|
00001190: 20 42 4D 49 20 53 43 41 31 00 77 2F 54 0B 22 20 | BMI SCA1.w/T." |
000011A0: 52 54 53 00 8A 2F 59 0B 22 53 43 41 31 20 4C 44 |RTS../Y."SCA1 LD|
000011B0: 58 20 23 24 46 30 00 99 2F 5E 0B 22 20 53 54 58 |X #$F0../^." STX|
000011C0: 20 46 4C 41 47 00 AB 2F 63 0B 22 20 4A 53 52 20 | FLAG../c." JSR |
000011D0: 57 4F 52 4B 44 4F 54 00 B8 2F 68 0B 22 20 4C 44 |WORKDOT../h." LD|
000011E0: 41 20 59 31 00 C7 2F 6D 0B 22 20 4C 44 59 20 59 |A Y1../m." LDY Y|
000011F0: 31 2B 31 00 D5 2F 72 0B 22 20 53 54 41 20 24 31 |1+1../r." STA $1|
00001200: 34 00 E4 2F 77 0B 22 20 42 49 54 20 46 4C 41 47 |4../w." BIT FLAG|
00001210: 00 F3 2F 7C 0B 22 20 42 50 4C 20 53 43 41 32 00 |../|." BPL SCA2.|
00001220: FD 2F 81 0B 22 20 50 4C 41 00 07 30 86 0B 22 20 |./.." PLA..0.." |
00001230: 50 4C 41 00 11 30 8B 0B 22 20 52 54 53 00 22 30 |PLA..0.." RTS."0|
00001240: 90 0B 22 53 43 41 32 20 4C 44 58 20 23 30 00 31 |.."SCA2 LDX #0.1|
00001250: 30 95 0B 22 20 53 54 58 20 46 4C 41 47 00 3B 30 |0.." STX FLAG.;0|
00001260: 9A 0B 22 20 52 54 53 00 51 30 9F 0B 22 53 43 41 |.." RTS.Q0.."SCA|
00001270: 4E 4E 4C 4E 20 4C 44 41 20 23 24 46 46 00 62 30 |NNLN LDA #$FF.b0|
00001280: A4 0B 22 20 4A 4D 50 20 4C 49 4E 45 2B 37 00 84 |.." JMP LINE+7..|
00001290: 30 A9 0B 22 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |0.." ;**********|
000012A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012B0: 00 8C 30 AE 0B 22 20 3B 00 AC 30 B3 0B 22 20 3B |..0.." ;..0.." ;|
000012C0: 20 44 20 41 20 54 20 45 20 4E 20 42 20 45 20 52 | D A T E N B E R|
000012D0: 20 45 20 49 20 43 20 48 00 B4 30 B8 0B 22 20 3B | E I C H..0.." ;|
000012E0: 00 D6 30 BD 0B 22 20 3B 2A 2A 2A 2A 2A 2A 2A 2A |..0.." ;********|
000012F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001300: 2A 2A 00 F8 30 C2 0B 22 42 49 54 20 2E 42 59 20 |**..0.."BIT .BY |
00001310: 31 32 38 20 36 34 20 33 32 20 31 36 20 38 20 34 |128 64 32 16 8 4|
00001320: 20 32 20 31 00 1B 31 C7 0B 22 54 41 42 4C 45 31 | 2 1..1.."TABLE1|
00001330: 20 2E 42 59 20 31 33 20 38 20 27 41 27 20 32 37 | .BY 13 8 'A' 27|
00001340: 20 27 38 27 20 32 37 00 49 31 CC 0B 22 54 41 42 | '8' 27.I1.."TAB|
00001350: 4C 45 32 20 2E 42 59 20 31 30 20 31 33 20 27 20 |LE2 .BY 10 13 ' |
00001360: 20 20 20 20 20 20 27 20 32 37 20 27 2A 27 20 31 | ' 27 '*' 1|
00001370: 20 58 4D 41 58 00 77 31 D1 0B 22 50 52 4F 4D 50 | XMAX.w1.."PROMP|
00001380: 54 20 2E 42 59 20 27 45 50 53 4F 4E 2D 53 55 50 |T .BY 'EPSON-SUP|
00001390: 50 4F 52 54 20 20 56 31 2E 37 20 20 2A 2A 2A 27 |PORT V1.7 ***'|
000013A0: 20 31 33 00 A1 31 D6 0B 22 20 2E 42 59 20 27 28 | 13..1.." .BY '(|
000013B0: 43 29 31 39 38 34 20 42 59 20 41 4C 45 58 20 44 |C)1984 BY ALEX D|
000013C0: 45 4C 20 50 49 4E 4F 27 20 31 33 20 30 00 BB 31 |EL PINO' 13 0..1|
000013D0: DB 0B 22 53 54 4D 54 41 42 20 2E 42 59 20 27 43 |.."STMTAB .BY 'C|
000013E0: 4C 45 41 52 27 20 30 00 CD 31 E0 0B 22 20 2E 42 |LEAR' 0..1.." .B|
000013F0: 59 20 27 44 4F 54 27 20 30 00 E4 31 E5 0B 22 20 |Y 'DOT' 0..1.." |
00001400: 2E 42 59 20 27 52 45 53 45 54 44 4F 54 27 20 30 |.BY 'RESETDOT' 0|
00001410: 00 F9 31 EA 0B 22 20 2E 42 59 20 27 49 4E 56 44 |..1.." .BY 'INVD|
00001420: 4F 54 27 20 30 00 0C 32 EF 0B 22 20 2E 42 59 20 |OT' 0..2.." .BY |
00001430: 27 4C 49 4E 45 27 20 30 00 24 32 F4 0B 22 20 2E |'LINE' 0.$2.." .|
00001440: 42 59 20 27 52 45 53 45 54 4C 49 4E 45 27 20 30 |BY 'RESETLINE' 0|
00001450: 00 3A 32 F9 0B 22 20 2E 42 59 20 27 49 4E 56 4C |.:2.." .BY 'INVL|
00001460: 49 4E 45 27 20 30 00 4A 32 FE 0B 22 20 2E 42 59 |INE' 0.J2.." .BY|
00001470: 20 31 35 33 20 30 00 5D 32 03 0C 22 20 2E 42 59 | 153 0.]2.." .BY|
00001480: 20 27 45 58 49 54 27 20 30 00 70 32 08 0C 22 20 | 'EXIT' 0.p2.." |
00001490: 2E 42 59 20 27 54 45 58 54 27 20 30 00 86 32 0D |.BY 'TEXT' 0..2.|
000014A0: 0C 22 20 2E 42 59 20 27 49 4E 56 54 45 58 54 27 |." .BY 'INVTEXT'|
000014B0: 20 30 00 9E 32 12 0C 22 20 2E 42 59 20 27 52 45 | 0..2.." .BY 'RE|
000014C0: 53 45 54 54 45 58 54 27 20 30 00 B7 32 17 0C 22 |SETTEXT' 0..2.."|
000014D0: 20 2E 42 59 20 27 53 43 41 4E 4C 49 4E 45 27 20 | .BY 'SCANLINE' |
000014E0: 30 20 30 00 EB 32 1C 0C 22 45 4E 54 52 59 20 2E |0 0..2.."ENTRY .|
000014F0: 42 59 20 43 4C 45 41 52 2D 31 20 44 4F 54 2D 31 |BY CLEAR-1 DOT-1|
00001500: 20 52 45 53 45 54 44 4F 54 2D 31 20 49 4E 56 45 | RESETDOT-1 INVE|
00001510: 52 54 44 4F 54 2D 31 00 27 33 21 0C 22 20 2E 42 |RTDOT-1.'3!." .B|
00001520: 59 20 4C 49 4E 45 2D 31 20 52 45 53 45 54 4C 49 |Y LINE-1 RESETLI|
00001530: 4E 45 2D 31 20 49 4E 56 45 52 54 4C 49 4E 45 2D |NE-1 INVERTLINE-|
00001540: 31 20 48 41 52 44 43 4F 50 59 2D 31 20 45 58 49 |1 HARDCOPY-1 EXI|
00001550: 54 2D 31 00 56 33 26 0C 22 20 2E 42 59 20 54 45 |T-1.V3&." .BY TE|
00001560: 58 54 2D 31 20 49 4E 56 54 45 58 54 2D 31 20 52 |XT-1 INVTEXT-1 R|
00001570: 45 53 54 45 58 54 2D 31 20 53 43 41 4E 4E 4C 4E |ESTEXT-1 SCANNLN|
00001580: 2D 31 00 74 33 2B 0C 22 20 2E 45 4E 20 3B 45 4E |-1.t3+." .EN ;EN|
00001590: 44 20 4F 46 20 53 4F 55 52 43 45 2D 46 49 4C 45 |D OF SOURCE-FILE|
000015A0: 00 00 00 B9 00 |..... |
D=...>C..;T...A.M.D;.'.NVM.M}J{.Y....+.T
..-....F.....3.M.SW..U]J....;.R.........
.<N.M..1W..'R.|...S..P...A....T.GHUUZ|..
Z=..A`..HS.PQ55{.E.G...Y...=.WX.4WXEEW4.
K...Z=.3..IMD..=RB.IW......U}YE4WU.@U4.E
=;7.WSBDP..F.THB.{}QIUD.MC.....R.Y:..K!C
G...9..TPS..LDA $DD00....." AND #$FB...
.." STA $DD00..."." ORA #4...'." STA $DD
00.*.,."WAIT LDA $DD0D.9.1." AND #$10.H.
6." BEQ WAIT.R.;." CLC.\.@." RTS.~.E." ;
**************************...J." ;...O."
; LINE-BEFEHLE...T." ;.E.Y." ;*********
*****************.V.^."LINE LDA #0...C."
STA FLAG...H." LDA #0.. M." STA LINETYP
.. R." JSR VALUE+3.# W." STA X1.2 |." ST
Y X1+1.B .." JSR VALUE.O .." STA Y1.^ ..
" STY Y1+1.N .." JSR VALUE.{ .." STA X2.
. .." STY X2+1.. .." JSR VALUE.. .." STA
Y2.. .." STY Y2+1.C .." LDX #1.P .." LD
Y #0.Z .." SEC.. .." LDA X2.. B." SBC X1
..!G." STA XDIFF..!L." LDA X2+1."!Q." SB
C 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 XDIFF..!.." INC X
DIFF.N!.." BNE LI1..!.." INC XDIFF+1..!.
."LI1 STX XSTEP..".." STY XSTEP+1.."!."
LDX #1.."&." LDY #0.)"+." SEC.6"0." LDA
Y2.C"5." SBC Y1.S":." STA YDIFF.B"?." LD
A 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 YD
IFF..#{." INC YDIFF..#.." BNE LI2./#.."
INC YDIFF+1.B#.."LI2 STX YSTEP.T#.." STY
YSTEP+1.A#.." LDY #0.Q#.." LDA XDIFF..#
.." ORA XDIFF+1..#.." BNE LI3..#.." DEY.
.#.."LI3 STY SUM..#.." STY SUM+1.L#.."LI
4 LDA X1..#.." LDY X1+1..#A." STA XVALUE
..#F." STY XVALUE+1..$K." LDA Y1..$P." L
DY Y1+1.,$U." STA YVALUE.?$Z." STY YVALU
E+1.O$.." JSR SCANN.A$.." JSR WORKDOT.N$
.." LDA X1.{$.." CMP X2..$.." BNE LI5..$
.." LDA X1+1..$.." CMP X2+1..$.." BNE LI
5.B$.." LDA Y1.O$.." CMP Y2..$.." BNE LI
5..$.." LDA Y1+1..$.." CMP Y2+1..% ." BN
E LI5..%%." RTS.&%*."LI5 BIT SUM+1.4%/."
BPL LI6.>%4." CLC.K%9." LDA Y1.[%>." AD
C YSTEP.H%C." STA Y1.W%H." LDA Y1+1..%M.
" ADC YSTEP+1..%R." STA Y1+1..%W." CLC..
%\." LDA SUM..%A." ADC XDIFF.N%F." STA S
UM..%K." LDA SUM+1..%P." ADC XDIFF+1..&U
." STA SUM+1..&Z." JMP LI4..&."LI6 CLC.
(&.." LDA X1.8&.." ADC XSTEP.E&.." STA X
1.T&.." LDA X1+1.F&.." ADC 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 FU
ER MODIFIZIERTEN PUNKT- UND LINIEN-FUNKT
IONEN. '.."RESETDOT LDA #$40..'.." JMP D
OT+2.H'.."INVERTDOT LDA #$80.X'.." JMP D
OT+2..'.."RESETLINE LDA #$40..(.." JMP L
INE+2..(.."INVERTLINE LDA #$80.+(.." JMP
LINE+2.M(.." ;*************************
*.U(.." ;.C(.." ; &EXIT.K(.." ;..($." ;*
*************************..(%." ;ZEIGER
WIEDER 'GERADEBIEGEN'.D()."EXIT LDY #$A7
.S(.." LDA #$E4..(3." STA $0308..(8." ST
Y $0309..(=." SEC..)B." JSR $FF99..)G."
STX $37.))L." STY $38.J)Q." JMP $E39A ;S
YSTEM AUFRUFEN.L)R." ; TEXT-BEFEHLE, FLA
G SETZEN..)V."INVTEXT LDA #$80..)[." .BY
$2C..)`."RESTEXT LDA #$40..)E." .BY $2C
.E)J."TEXT LDA #0.T)O." STA FLAG..)T." J
SR 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 #$1F..+X." .BY $2C.
.+.."TXT3 LDA #$20.:+.." STA 2.I+.." LDA
#$1A.U+.." ASL 2._+.." ROL.K+.." ASL 2.
U+.." ROL..+.." ASL 2..+.." ROL..+.." ST
A 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."TXT6 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 XVALUE..-.." STY XV
ALUE+1..-.." LDY Y1+1.!-.." LDA FLAG2.+-
.." CLC.8-.." ADC Y1.F-.." STA $14.U- ."
BCC TXT7._-.." INY.U-.."TXT7 JSR WORKDO
T..-.."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..." CMP LENGH.C..." BN
E TXT10.M..." RTS.A..."TXT10 JMP TXT2.W.
.."STRING JSR $AEFD....." JSR $AD9E.....
" JSR $B6A3....." LDY #0....." LDA ($64)
,Y.D..." STA $63.N..." INY....." LDA ($6
4),Y..."." TAX...'." INY../,." LDA ($64)
,Y../1." STA $65."/6." STX $64.//;." LDY
#0.=/@." LDA $63.G/E." RTS.^/J."SCANN B
IT LINETYP.M/O." BMI SCA1.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.."SCA
NNLN 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."TABLE2 .BY 10 13 '
' 27 '*' 1 XMAX.W1Q."PROMPT .BY 'E
PSON-SUPPORT V1.7 ***' 13..1V." .BY '(
C)1984 BY ALEX DEL PINO' 13 0..1.."STMTA
B .BY 'CLEAR' 0.M1.." .BY 'DOT' 0..1.."
.BY 'RESETDOT' 0..1.." .BY 'INVDOT' 0..2
.." .BY 'LINE' 0.$2.." .BY 'RESETLINE' 0
.:2.." .BY 'INVLINE' 0.J2.." .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 RESETDOT-1 INVERTDOT-1.
'3!." .BY LINE-1 RESETLINE-1 INVERTLINE-
1 HARDCOPY-1 EXIT-1.V3&." .BY TEXT-1 INV
TEXT-1 RESTEXT-1 SCANNLN-1.T3+." .EN ;EN
D OF SOURCE-FILE.....
> CLICK IMAGE PREVIEW FOR FULL MODAL