VS.MAIN.DICT.B
FILE INFORMATION
FILENAME(S): VS.MAIN.DICT.B
FILE TYPE(S): PRG
FILE SIZE: 4.2K
FIRST SEEN: 2025-10-20 00:37:10
APPEARS ON: 1 disk(s)
FILE HASH
0823c35e4efc09ad31456e59ebd5f5001fafcc2bb4a4279bae22c04ace5a24ea
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VIZAWRITE CO | VS.MAIN.DICT.B | PRG | Treasure Chest - Holger | 24 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 44 49 46 46 2B 31 00 E0 22 6C 07 22 20 4C 44 41 |DIFF+1.."l." LDA|
00000010: 20 59 44 49 46 46 00 EF 22 71 07 22 20 45 4F 52 | YDIFF.."q." EOR|
00000020: 20 23 24 46 46 00 FF 22 76 07 22 20 53 54 41 20 | #$FF.."v." STA |
00000030: 59 44 49 46 46 00 0F 23 7B 07 22 20 49 4E 43 20 |YDIFF..#{." INC |
00000040: 59 44 49 46 46 00 1D 23 80 07 22 20 42 4E 45 20 |YDIFF..#.." BNE |
00000050: 4C 49 32 00 2F 23 85 07 22 20 49 4E 43 20 59 44 |LI2./#.." INC YD|
00000060: 49 46 46 2B 31 00 42 23 8A 07 22 4C 49 32 20 53 |IFF+1.B#.."LI2 S|
00000070: 54 58 20 59 53 54 45 50 00 54 23 8F 07 22 20 53 |TX YSTEP.T#.." S|
00000080: 54 59 20 59 53 54 45 50 2B 31 00 61 23 94 07 22 |TY YSTEP+1.a#.."|
00000090: 20 4C 44 59 20 23 30 00 71 23 99 07 22 20 4C 44 | LDY #0.q#.." LD|
000000A0: 41 20 58 44 49 46 46 00 83 23 9E 07 22 20 4F 52 |A XDIFF..#.." OR|
000000B0: 41 20 58 44 49 46 46 2B 31 00 91 23 A3 07 22 20 |A XDIFF+1..#.." |
000000C0: 42 4E 45 20 4C 49 33 00 9B 23 A8 07 22 20 44 45 |BNE LI3..#.." DE|
000000D0: 59 00 AC 23 AD 07 22 4C 49 33 20 53 54 59 20 53 |Y..#.."LI3 STY S|
000000E0: 55 4D 00 BC 23 B2 07 22 20 53 54 59 20 53 55 4D |UM..#.." STY SUM|
000000F0: 2B 31 00 CC 23 B7 07 22 4C 49 34 20 4C 44 41 20 |+1..#.."LI4 LDA |
00000100: 58 31 00 DB 23 BC 07 22 20 4C 44 59 20 58 31 2B |X1..#.." LDY X1+|
00000110: 31 00 EC 23 C1 07 22 20 53 54 41 20 58 56 41 4C |1..#.." STA XVAL|
00000120: 55 45 00 FF 23 C6 07 22 20 53 54 59 20 58 56 41 |UE..#.." STY XVA|
00000130: 4C 55 45 2B 31 00 0C 24 CB 07 22 20 4C 44 41 20 |LUE+1..$.." LDA |
00000140: 59 31 00 1B 24 D0 07 22 20 4C 44 59 20 59 31 2B |Y1..$.." LDY Y1+|
00000150: 31 00 2C 24 D5 07 22 20 53 54 41 20 59 56 41 4C |1.,$.." STA YVAL|
00000160: 55 45 00 3F 24 DA 07 22 20 53 54 59 20 59 56 41 |UE.?$.." STY YVA|
00000170: 4C 55 45 2B 31 00 4F 24 DF 07 22 20 4A 53 52 20 |LUE+1.O$.." JSR |
00000180: 53 43 41 4E 4E 00 61 24 E4 07 22 20 4A 53 52 20 |SCANN.a$.." JSR |
00000190: 57 4F 52 4B 44 4F 54 00 6E 24 E9 07 22 20 4C 44 |WORKDOT.n$.." LD|
000001A0: 41 20 58 31 00 7B 24 EE 07 22 20 43 4D 50 20 58 |A X1.{$.." CMP X|
000001B0: 32 00 89 24 F3 07 22 20 42 4E 45 20 4C 49 35 00 |2..$.." BNE LI5.|
000001C0: 98 24 F8 07 22 20 4C 44 41 20 58 31 2B 31 00 A7 |.$.." LDA X1+1..|
000001D0: 24 FD 07 22 20 43 4D 50 20 58 32 2B 31 00 B5 24 |$.." CMP X2+1..$|
000001E0: 02 08 22 20 42 4E 45 20 4C 49 35 00 C2 24 07 08 |.." BNE LI5..$..|
000001F0: 22 20 4C 44 41 20 59 31 00 CF 24 0C 08 22 20 43 |" LDA Y1..$.." C|
00000200: 4D 50 20 59 32 00 DD 24 11 08 22 20 42 4E 45 20 |MP Y2..$.." BNE |
00000210: 4C 49 35 00 EC 24 16 08 22 20 4C 44 41 20 59 31 |LI5..$.." LDA Y1|
00000220: 2B 31 00 FB 24 1B 08 22 20 43 4D 50 20 59 32 2B |+1..$.." CMP Y2+|
00000230: 31 00 09 25 20 08 22 20 42 4E 45 20 4C 49 35 00 |1..% ." BNE LI5.|
00000240: 13 25 25 08 22 20 52 54 53 00 26 25 2A 08 22 4C |.%%." RTS.&%*."L|
00000250: 49 35 20 42 49 54 20 53 55 4D 2B 31 00 34 25 2F |I5 BIT SUM+1.4%/|
00000260: 08 22 20 42 50 4C 20 4C 49 36 00 3E 25 34 08 22 |." BPL LI6.>%4."|
00000270: 20 43 4C 43 00 4B 25 39 08 22 20 4C 44 41 20 59 | CLC.K%9." LDA Y|
00000280: 31 00 5B 25 3E 08 22 20 41 44 43 20 59 53 54 45 |1.[%>." ADC YSTE|
00000290: 50 00 68 25 43 08 22 20 53 54 41 20 59 31 00 77 |P.h%C." STA Y1.w|
000002A0: 25 48 08 22 20 4C 44 41 20 59 31 2B 31 00 89 25 |%H." LDA Y1+1..%|
000002B0: 4D 08 22 20 41 44 43 20 59 53 54 45 50 2B 31 00 |M." ADC YSTEP+1.|
000002C0: 98 25 52 08 22 20 53 54 41 20 59 31 2B 31 00 A2 |.%R." STA Y1+1..|
000002D0: 25 57 08 22 20 43 4C 43 00 B0 25 5C 08 22 20 4C |%W." CLC..%\." L|
000002E0: 44 41 20 53 55 4D 00 C0 25 61 08 22 20 41 44 43 |DA SUM..%a." ADC|
000002F0: 20 58 44 49 46 46 00 CE 25 66 08 22 20 53 54 41 | XDIFF..%f." STA|
00000300: 20 53 55 4D 00 DE 25 6B 08 22 20 4C 44 41 20 53 | SUM..%k." LDA S|
00000310: 55 4D 2B 31 00 F0 25 70 08 22 20 41 44 43 20 58 |UM+1..%p." ADC X|
00000320: 44 49 46 46 2B 31 00 00 26 75 08 22 20 53 54 41 |DIFF+1..&u." STA|
00000330: 20 53 55 4D 2B 31 00 0E 26 7A 08 22 20 4A 4D 50 | SUM+1..&z." JMP|
00000340: 20 4C 49 34 00 1B 26 7F 08 22 4C 49 36 20 43 4C | LI4..&.."LI6 CL|
00000350: 43 00 28 26 84 08 22 20 4C 44 41 20 58 31 00 38 |C.(&.." LDA X1.8|
00000360: 26 89 08 22 20 41 44 43 20 58 53 54 45 50 00 45 |&.." ADC XSTEP.E|
00000370: 26 8E 08 22 20 53 54 41 20 58 31 00 54 26 93 08 |&.." STA X1.T&..|
00000380: 22 20 4C 44 41 20 58 31 2B 31 00 66 26 98 08 22 |" LDA X1+1.f&.."|
00000390: 20 41 44 43 20 58 53 54 45 50 2B 31 00 75 26 9D | ADC XSTEP+1.u&.|
000003A0: 08 22 20 53 54 41 20 58 31 2B 31 00 7F 26 A2 08 |." STA X1+1..&..|
000003B0: 22 20 53 45 43 00 8D 26 A7 08 22 20 4C 44 41 20 |" SEC..&.." LDA |
000003C0: 53 55 4D 00 9D 26 AC 08 22 20 53 42 43 20 59 44 |SUM..&.." SBC YD|
000003D0: 49 46 46 00 AB 26 B1 08 22 20 53 54 41 20 53 55 |IFF..&.." STA SU|
000003E0: 4D 00 BB 26 B6 08 22 20 4C 44 41 20 53 55 4D 2B |M..&.." LDA SUM+|
000003F0: 31 00 CD 26 BB 08 22 20 53 42 43 20 59 44 49 46 |1..&.." SBC YDIF|
00000400: 46 2B 31 00 DD 26 C0 08 22 20 53 54 41 20 53 55 |F+1..&.." STA SU|
00000410: 4D 2B 31 00 EB 26 C5 08 22 20 4A 4D 50 20 4C 49 |M+1..&.." JMP LI|
00000420: 34 00 00 27 CA 08 22 56 41 4C 55 45 20 4A 53 52 |4..'.."VALUE JSR|
00000430: 20 24 41 45 46 44 00 10 27 CF 08 22 20 4A 53 52 | $AEFD..'.." JSR|
00000440: 20 24 41 44 38 41 00 20 27 D4 08 22 20 4A 53 52 | $AD8A. '.." JSR|
00000450: 20 24 42 37 46 37 00 2E 27 D9 08 22 20 4C 44 41 | $B7F7..'.." LDA|
00000460: 20 24 31 34 00 3C 27 DE 08 22 20 4C 44 59 20 24 | $14.<'.." LDY $|
00000470: 31 35 00 46 27 E3 08 22 20 52 54 53 00 89 27 E4 |15.F'.." RTS..'.|
00000480: 08 22 20 3B 46 4C 41 47 20 53 45 54 5A 45 4E 20 |." ;FLAG SETZEN |
00000490: 46 55 45 52 20 4D 4F 44 49 46 49 5A 49 45 52 54 |FUER MODIFIZIERT|
000004A0: 45 4E 20 50 55 4E 4B 54 2D 20 55 4E 44 20 4C 49 |EN PUNKT- UND LI|
000004B0: 4E 49 45 4E 2D 46 55 4E 4B 54 49 4F 4E 45 4E 00 |NIEN-FUNKTIONEN.|
000004C0: A0 27 E8 08 22 52 45 53 45 54 44 4F 54 20 4C 44 |.'.."RESETDOT LD|
000004D0: 41 20 23 24 34 30 00 B0 27 ED 08 22 20 4A 4D 50 |A #$40..'.." JMP|
000004E0: 20 44 4F 54 2B 32 00 C8 27 F2 08 22 49 4E 56 45 | DOT+2..'.."INVE|
000004F0: 52 54 44 4F 54 20 4C 44 41 20 23 24 38 30 00 D8 |RTDOT LDA #$80..|
00000500: 27 F7 08 22 20 4A 4D 50 20 44 4F 54 2B 32 00 F0 |'.." JMP DOT+2..|
00000510: 27 FC 08 22 52 45 53 45 54 4C 49 4E 45 20 4C 44 |'.."RESETLINE LD|
00000520: 41 20 23 24 34 30 00 01 28 01 09 22 20 4A 4D 50 |A #$40..(.." JMP|
00000530: 20 4C 49 4E 45 2B 32 00 1A 28 06 09 22 49 4E 56 | LINE+2..(.."INV|
00000540: 45 52 54 4C 49 4E 45 20 4C 44 41 20 23 24 38 30 |ERTLINE LDA #$80|
00000550: 00 2B 28 0B 09 22 20 4A 4D 50 20 4C 49 4E 45 2B |.+(.." JMP LINE+|
00000560: 32 00 4D 28 10 09 22 20 3B 2A 2A 2A 2A 2A 2A 2A |2.M(.." ;*******|
00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000580: 2A 2A 2A 00 55 28 15 09 22 20 3B 00 63 28 1A 09 |***.U(.." ;.c(..|
00000590: 22 20 3B 20 26 45 58 49 54 00 6B 28 1F 09 22 20 |" ; &EXIT.k(.." |
000005A0: 3B 00 8D 28 24 09 22 20 3B 2A 2A 2A 2A 2A 2A 2A |;..($." ;*******|
000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005C0: 2A 2A 2A 00 B1 28 25 09 22 20 3B 5A 45 49 47 45 |***..(%." ;ZEIGE|
000005D0: 52 20 57 49 45 44 45 52 20 27 47 45 52 41 44 45 |R WIEDER 'GERADE|
000005E0: 42 49 45 47 45 4E 27 00 C4 28 29 09 22 45 58 49 |BIEGEN'..()."EXI|
000005F0: 54 20 4C 44 59 20 23 24 41 37 00 D3 28 2E 09 22 |T LDY #$A7..(.."|
00000600: 20 4C 44 41 20 23 24 45 34 00 E3 28 33 09 22 20 | LDA #$E4..(3." |
00000610: 53 54 41 20 24 30 33 30 38 00 F3 28 38 09 22 20 |STA $0308..(8." |
00000620: 53 54 59 20 24 30 33 30 39 00 FD 28 3D 09 22 20 |STY $0309..(=." |
00000630: 53 45 43 00 0D 29 42 09 22 20 4A 53 52 20 24 46 |SEC..)B." JSR $F|
00000640: 46 39 39 00 1B 29 47 09 22 20 53 54 58 20 24 33 |F99..)G." STX $3|
00000650: 37 00 29 29 4C 09 22 20 53 54 59 20 24 33 38 00 |7.))L." STY $38.|
00000660: 4A 29 51 09 22 20 4A 4D 50 20 24 45 33 39 41 20 |J)Q." JMP $E39A |
00000670: 3B 53 59 53 54 45 4D 20 41 55 46 52 55 46 45 4E |;SYSTEM AUFRUFEN|
00000680: 00 6C 29 52 09 22 20 3B 20 54 45 58 54 2D 42 45 |.l)R." ; TEXT-BE|
00000690: 46 45 48 4C 45 2C 20 46 4C 41 47 20 53 45 54 5A |FEHLE, FLAG SETZ|
000006A0: 45 4E 00 82 29 56 09 22 49 4E 56 54 45 58 54 20 |EN..)V."INVTEXT |
000006B0: 4C 44 41 20 23 24 38 30 00 90 29 5B 09 22 20 2E |LDA #$80..)[." .|
000006C0: 42 59 20 24 32 43 00 A6 29 60 09 22 52 45 53 54 |BY $2C..)`."REST|
000006D0: 45 58 54 20 4C 44 41 20 23 24 34 30 00 B4 29 65 |EXT LDA #$40..)e|
000006E0: 09 22 20 2E 42 59 20 24 32 43 00 C5 29 6A 09 22 |." .BY $2C..)j."|
000006F0: 54 45 58 54 20 4C 44 41 20 23 30 00 D4 29 6F 09 |TEXT LDA #0..)o.|
00000700: 22 20 53 54 41 20 46 4C 41 47 00 E6 29 74 09 22 |" STA FLAG..)t."|
00000710: 20 4A 53 52 20 56 41 4C 55 45 2B 33 00 F3 29 79 | JSR VALUE+3..)y|
00000720: 09 22 20 53 54 41 20 58 31 00 02 2A 7E 09 22 20 |." STA X1..*~." |
00000730: 53 54 59 20 58 31 2B 31 00 12 2A 83 09 22 20 4A |STY X1+1..*.." J|
00000740: 53 52 20 56 41 4C 55 45 00 1F 2A 88 09 22 20 53 |SR VALUE..*.." S|
00000750: 54 41 20 59 31 00 2E 2A 8D 09 22 20 53 54 59 20 |TA Y1..*.." STY |
00000760: 59 31 2B 31 00 3F 2A 92 09 22 20 4A 53 52 20 53 |Y1+1.?*.." JSR S|
00000770: 54 52 49 4E 47 00 4E 2A 97 09 22 20 42 4E 45 20 |TRING.N*.." BNE |
00000780: 54 58 54 31 00 58 2A 9C 09 22 20 52 54 53 00 6C |TXT1.X*.." RTS.l|
00000790: 2A A1 09 22 54 58 54 31 20 53 54 41 20 4C 45 4E |*.."TXT1 STA LEN|
000007A0: 47 48 00 7C 2A A6 09 22 20 53 54 59 20 46 4C 41 |GH.|*.." STY FLA|
000007B0: 47 33 00 90 2A AB 09 22 54 58 54 32 20 4C 44 59 |G3..*.."TXT2 LDY|
000007C0: 20 46 4C 41 47 33 00 A2 2A B0 09 22 20 4C 44 41 | FLAG3..*.." LDA|
000007D0: 20 28 24 36 34 29 2C 59 00 B1 2A B5 09 22 20 43 | ($64),Y..*.." C|
000007E0: 4D 50 20 23 24 32 30 00 C0 2A BA 09 22 20 42 43 |MP #$20..*.." BC|
000007F0: 43 20 54 58 54 33 00 CF 2A BF 09 22 20 43 4D 50 |C TXT3..*.." CMP|
00000800: 20 23 24 34 30 00 E0 2A C4 09 22 20 42 43 43 20 | #$40..*.." BCC |
00000810: 54 58 54 33 2B 32 00 EF 2A C9 09 22 20 43 4D 50 |TXT3+2..*.." CMP|
00000820: 20 23 24 36 30 00 FE 2A CE 09 22 20 42 43 53 20 | #$60..*.." BCS |
00000830: 54 58 54 33 00 0D 2B D3 09 22 20 41 4E 44 20 23 |TXT3..+.." AND #|
00000840: 24 31 46 00 1B 2B D8 09 22 20 2E 42 59 20 24 32 |$1F..+.." .BY $2|
00000850: 43 00 2E 2B DD 09 22 54 58 54 33 20 4C 44 41 20 |C..+.."TXT3 LDA |
00000860: 23 24 32 30 00 3A 2B E2 09 22 20 53 54 41 20 32 |#$20.:+.." STA 2|
00000870: 00 49 2B E7 09 22 20 4C 44 41 20 23 24 31 41 00 |.I+.." LDA #$1A.|
00000880: 55 2B EC 09 22 20 41 53 4C 20 32 00 5F 2B F1 09 |U+.." ASL 2._+..|
00000890: 22 20 52 4F 4C 00 6B 2B F6 09 22 20 41 53 4C 20 |" ROL.k+.." ASL |
000008A0: 32 00 75 2B FB 09 22 20 52 4F 4C 00 81 2B 00 0A |2.u+.." ROL..+..|
000008B0: 22 20 41 53 4C 20 32 00 8B 2B 05 0A 22 20 52 4F |" ASL 2..+.." RO|
000008C0: 4C 00 97 2B 0A 0A 22 20 53 54 41 20 33 00 A1 2B |L..+.." STA 3..+|
000008D0: 0F 0A 22 20 53 45 49 00 B0 2B 14 0A 22 20 4C 44 |.." SEI..+.." LD|
000008E0: 41 20 23 24 33 31 00 BC 2B 19 0A 22 20 53 54 41 |A #$31..+.." STA|
000008F0: 20 31 00 C9 2B 1E 0A 22 20 4C 44 59 20 23 37 00 | 1..+.." LDY #7.|
00000900: DD 2B 23 0A 22 54 58 54 34 20 4C 44 41 20 28 32 |.+#."TXT4 LDA (2|
00000910: 29 2C 59 00 EE 2B 28 0A 22 20 53 54 41 20 24 32 |),Y..+(." STA $2|
00000920: 30 30 2C 59 00 F8 2B 2D 0A 22 20 44 45 59 00 07 |00,Y..+-." DEY..|
00000930: 2C 32 0A 22 20 42 50 4C 20 54 58 54 34 00 19 2C |,2." BPL TXT4..,|
00000940: 37 0A 22 20 4C 44 41 20 23 45 4E 41 42 4C 45 00 |7." LDA #ENABLE.|
00000950: 25 2C 3C 0A 22 20 53 54 41 20 31 00 2F 2C 41 0A |%,<." STA 1./,A.|
00000960: 22 20 43 4C 49 00 3C 2C 46 0A 22 20 4C 44 41 20 |" CLI.<,F." LDA |
00000970: 23 30 00 4C 2C 4B 0A 22 20 53 54 41 20 46 4C 41 |#0.L,K." STA FLA|
00000980: 47 31 00 5D 2C 50 0A 22 54 58 54 35 20 4C 44 41 |G1.],P."TXT5 LDA|
00000990: 20 23 37 00 6D 2C 55 0A 22 20 53 54 41 20 46 4C | #7.m,U." STA FL|
000009A0: 41 47 32 00 81 2C 5A 0A 22 54 58 54 36 20 4C 44 |AG2..,Z."TXT6 LD|
000009B0: 58 20 46 4C 41 47 32 00 92 2C 5F 0A 22 20 4C 44 |X FLAG2..,_." LD|
000009C0: 41 20 24 32 30 30 2C 58 00 A2 2C 64 0A 22 20 4C |A $200,X..,d." L|
000009D0: 44 58 20 46 4C 41 47 31 00 B3 2C 69 0A 22 20 41 |DX FLAG1..,i." A|
000009E0: 4E 44 20 40 42 49 54 2C 58 00 C2 2C 6E 0A 22 20 |ND @BIT,X..,n." |
000009F0: 42 45 51 20 54 58 54 38 00 CF 2C 73 0A 22 20 4C |BEQ TXT8..,s." L|
00000A00: 44 41 20 58 31 00 DE 2C 78 0A 22 20 4C 44 59 20 |DA X1..,x." LDY |
00000A10: 58 31 2B 31 00 EF 2C 7D 0A 22 20 53 54 41 20 58 |X1+1..,}." STA X|
00000A20: 56 41 4C 55 45 00 02 2D 82 0A 22 20 53 54 59 20 |VALUE..-.." STY |
00000A30: 58 56 41 4C 55 45 2B 31 00 11 2D 87 0A 22 20 4C |XVALUE+1..-.." L|
00000A40: 44 59 20 59 31 2B 31 00 21 2D 8C 0A 22 20 4C 44 |DY Y1+1.!-.." LD|
00000A50: 41 20 46 4C 41 47 32 00 2B 2D 91 0A 22 20 43 4C |A FLAG2.+-.." CL|
00000A60: 43 00 38 2D 96 0A 22 20 41 44 43 20 59 31 00 46 |C.8-.." ADC Y1.F|
00000A70: 2D 9B 0A 22 20 53 54 41 20 24 31 34 00 55 2D A0 |-.." STA $14.U-.|
00000A80: 0A 22 20 42 43 43 20 54 58 54 37 00 5F 2D A5 0A |." BCC TXT7._-..|
00000A90: 22 20 49 4E 59 00 75 2D AA 0A 22 54 58 54 37 20 |" INY.u-.."TXT7 |
00000AA0: 4A 53 52 20 57 4F 52 4B 44 4F 54 00 89 2D AF 0A |JSR WORKDOT..-..|
00000AB0: 22 54 58 54 38 20 44 45 43 20 46 4C 41 47 32 00 |"TXT8 DEC FLAG2.|
00000AC0: 98 2D B4 0A 22 20 42 50 4C 20 54 58 54 36 00 A5 |.-.." BPL TXT6..|
00000AD0: 2D B9 0A 22 20 49 4E 43 20 58 31 00 B4 2D BE 0A |-.." INC X1..-..|
00000AE0: 22 20 42 4E 45 20 54 58 54 39 00 C3 2D C3 0A 22 |" BNE TXT9..-.."|
00000AF0: 20 49 4E 43 20 58 31 2B 31 00 D7 2D C8 0A 22 54 | INC X1+1..-.."T|
00000B00: 58 54 39 20 49 4E 43 20 46 4C 41 47 31 00 E7 2D |XT9 INC FLAG1..-|
00000B10: CD 0A 22 20 4C 44 58 20 46 4C 41 47 31 00 F4 2D |.." LDX FLAG1..-|
00000B20: D2 0A 22 20 43 50 58 20 23 38 00 03 2E D7 0A 22 |.." CPX #8....."|
00000B30: 20 42 4E 45 20 54 58 54 35 00 13 2E DC 0A 22 20 | BNE TXT5....." |
00000B40: 49 4E 43 20 46 4C 41 47 33 00 23 2E E1 0A 22 20 |INC FLAG3.#..." |
00000B50: 4C 44 41 20 46 4C 41 47 33 00 33 2E E6 0A 22 20 |LDA FLAG3.3..." |
00000B60: 43 4D 50 20 4C 45 4E 47 48 00 43 2E EB 0A 22 20 |CMP LENGH.C..." |
00000B70: 42 4E 45 20 54 58 54 31 30 00 4D 2E F0 0A 22 20 |BNE TXT10.M..." |
00000B80: 52 54 53 00 61 2E F5 0A 22 54 58 54 31 30 20 4A |RTS.a..."TXT10 J|
00000B90: 4D 50 20 54 58 54 32 00 77 2E FA 0A 22 53 54 52 |MP TXT2.w..."STR|
00000BA0: 49 4E 47 20 4A 53 52 20 24 41 45 46 44 00 87 2E |ING JSR $AEFD...|
00000BB0: FF 0A 22 20 4A 53 52 20 24 41 44 39 45 00 97 2E |.." JSR $AD9E...|
00000BC0: 04 0B 22 20 4A 53 52 20 24 42 36 41 33 00 A4 2E |.." JSR $B6A3...|
00000BD0: 09 0B 22 20 4C 44 59 20 23 30 00 B6 2E 0E 0B 22 |.." LDY #0....."|
00000BE0: 20 4C 44 41 20 28 24 36 34 29 2C 59 00 C4 2E 13 | LDA ($64),Y....|
00000BF0: 0B 22 20 53 54 41 20 24 36 33 00 CE 2E 18 0B 22 |." STA $63....."|
00000C00: 20 49 4E 59 00 E0 2E 1D 0B 22 20 4C 44 41 20 28 | INY....." LDA (|
00000C10: 24 36 34 29 2C 59 00 EA 2E 22 0B 22 20 54 41 58 |$64),Y..."." TAX|
00000C20: 00 F4 2E 27 0B 22 20 49 4E 59 00 06 2F 2C 0B 22 |...'." INY../,."|
00000C30: 20 4C 44 41 20 28 24 36 34 29 2C 59 00 14 2F 31 | LDA ($64),Y../1|
00000C40: 0B 22 20 53 54 41 20 24 36 35 00 22 2F 36 0B 22 |." STA $65."/6."|
00000C50: 20 53 54 58 20 24 36 34 00 2F 2F 3B 0B 22 20 4C | STX $64.//;." L|
00000C60: 44 59 20 23 30 00 3D 2F 40 0B 22 20 4C 44 41 20 |DY #0.=/@." LDA |
00000C70: 24 36 33 00 47 2F 45 0B 22 20 52 54 53 00 5E 2F |$63.G/E." RTS.^/|
00000C80: 4A 0B 22 53 43 41 4E 4E 20 42 49 54 20 4C 49 4E |J."SCANN BIT LIN|
00000C90: 45 54 59 50 00 6D 2F 4F 0B 22 20 42 4D 49 20 53 |ETYP.m/O." BMI S|
00000CA0: 43 41 31 00 77 2F 54 0B 22 20 52 54 53 00 8A 2F |CA1.w/T." RTS../|
00000CB0: 59 0B 22 53 43 41 31 20 4C 44 58 20 23 24 46 30 |Y."SCA1 LDX #$F0|
00000CC0: 00 99 2F 5E 0B 22 20 53 54 58 20 46 4C 41 47 00 |../^." STX FLAG.|
00000CD0: AB 2F 63 0B 22 20 4A 53 52 20 57 4F 52 4B 44 4F |./c." JSR WORKDO|
00000CE0: 54 00 B8 2F 68 0B 22 20 4C 44 41 20 59 31 00 C7 |T../h." LDA Y1..|
00000CF0: 2F 6D 0B 22 20 4C 44 59 20 59 31 2B 31 00 D5 2F |/m." LDY Y1+1../|
00000D00: 72 0B 22 20 53 54 41 20 24 31 34 00 E4 2F 77 0B |r." STA $14../w.|
00000D10: 22 20 42 49 54 20 46 4C 41 47 00 F3 2F 7C 0B 22 |" BIT FLAG../|."|
00000D20: 20 42 50 4C 20 53 43 41 32 00 FD 2F 81 0B 22 20 | BPL SCA2../.." |
00000D30: 50 4C 41 00 07 30 86 0B 22 20 50 4C 41 00 11 30 |PLA..0.." PLA..0|
00000D40: 8B 0B 22 20 52 54 53 00 22 30 90 0B 22 53 43 41 |.." RTS."0.."SCA|
00000D50: 32 20 4C 44 58 20 23 30 00 31 30 95 0B 22 20 53 |2 LDX #0.10.." S|
00000D60: 54 58 20 46 4C 41 47 00 3B 30 9A 0B 22 20 52 54 |TX FLAG.;0.." RT|
00000D70: 53 00 51 30 9F 0B 22 53 43 41 4E 4E 4C 4E 20 4C |S.Q0.."SCANNLN L|
00000D80: 44 41 20 23 24 46 46 00 62 30 A4 0B 22 20 4A 4D |DA #$FF.b0.." JM|
00000D90: 50 20 4C 49 4E 45 2B 37 00 84 30 A9 0B 22 20 3B |P LINE+7..0.." ;|
00000DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000DB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8C 30 AE 0B 22 |**********..0.."|
00000DC0: 20 3B 00 AC 30 B3 0B 22 20 3B 20 44 20 41 20 54 | ;..0.." ; D A T|
00000DD0: 20 45 20 4E 20 42 20 45 20 52 20 45 20 49 20 43 | E N B E R E I C|
00000DE0: 20 48 00 B4 30 B8 0B 22 20 3B 00 D6 30 BD 0B 22 | H..0.." ;..0.."|
00000DF0: 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ;**************|
00000E00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F8 30 C2 |************..0.|
00000E10: 0B 22 42 49 54 20 2E 42 59 20 31 32 38 20 36 34 |."BIT .BY 128 64|
00000E20: 20 33 32 20 31 36 20 38 20 34 20 32 20 31 00 1B | 32 16 8 4 2 1..|
00000E30: 31 C7 0B 22 54 41 42 4C 45 31 20 2E 42 59 20 31 |1.."TABLE1 .BY 1|
00000E40: 33 20 38 20 27 41 27 20 32 37 20 27 38 27 20 32 |3 8 'A' 27 '8' 2|
00000E50: 37 00 49 31 CC 0B 22 54 41 42 4C 45 32 20 2E 42 |7.I1.."TABLE2 .B|
00000E60: 59 20 31 30 20 31 33 20 27 20 20 20 20 20 20 20 |Y 10 13 ' |
00000E70: 27 20 32 37 20 27 2A 27 20 31 20 58 4D 41 58 00 |' 27 '*' 1 XMAX.|
00000E80: 77 31 D1 0B 22 50 52 4F 4D 50 54 20 2E 42 59 20 |w1.."PROMPT .BY |
00000E90: 27 45 50 53 4F 4E 2D 53 55 50 50 4F 52 54 20 20 |'EPSON-SUPPORT |
00000EA0: 56 31 2E 37 20 20 2A 2A 2A 27 20 31 33 00 A1 31 |V1.7 ***' 13..1|
00000EB0: D6 0B 22 20 2E 42 59 20 27 28 43 29 31 39 38 34 |.." .BY '(C)1984|
00000EC0: 20 42 59 20 41 4C 45 58 20 44 45 4C 20 50 49 4E | BY ALEX DEL PIN|
00000ED0: 4F 27 20 31 33 20 30 00 BB 31 DB 0B 22 53 54 4D |O' 13 0..1.."STM|
00000EE0: 54 41 42 20 2E 42 59 20 27 43 4C 45 41 52 27 20 |TAB .BY 'CLEAR' |
00000EF0: 30 00 CD 31 E0 0B 22 20 2E 42 59 20 27 44 4F 54 |0..1.." .BY 'DOT|
00000F00: 27 20 30 00 E4 31 E5 0B 22 20 2E 42 59 20 27 52 |' 0..1.." .BY 'R|
00000F10: 45 53 45 54 44 4F 54 27 20 30 00 F9 31 EA 0B 22 |ESETDOT' 0..1.."|
00000F20: 20 2E 42 59 20 27 49 4E 56 44 4F 54 27 20 30 00 | .BY 'INVDOT' 0.|
00000F30: 0C 32 EF 0B 22 20 2E 42 59 20 27 4C 49 4E 45 27 |.2.." .BY 'LINE'|
00000F40: 20 30 00 24 32 F4 0B 22 20 2E 42 59 20 27 52 45 | 0.$2.." .BY 'RE|
00000F50: 53 45 54 4C 49 4E 45 27 20 30 00 3A 32 F9 0B 22 |SETLINE' 0.:2.."|
00000F60: 20 2E 42 59 20 27 49 4E 56 4C 49 4E 45 27 20 30 | .BY 'INVLINE' 0|
00000F70: 00 4A 32 FE 0B 22 20 2E 42 59 20 31 35 33 20 30 |.J2.." .BY 153 0|
00000F80: 00 5D 32 03 0C 22 20 2E 42 59 20 27 45 58 49 54 |.]2.." .BY 'EXIT|
00000F90: 27 20 30 00 70 32 08 0C 22 20 2E 42 59 20 27 54 |' 0.p2.." .BY 'T|
00000FA0: 45 58 54 27 20 30 00 86 32 0D 0C 22 20 2E 42 59 |EXT' 0..2.." .BY|
00000FB0: 20 27 49 4E 56 54 45 58 54 27 20 30 00 9E 32 12 | 'INVTEXT' 0..2.|
00000FC0: 0C 22 20 2E 42 59 20 27 52 45 53 45 54 54 45 58 |." .BY 'RESETTEX|
00000FD0: 54 27 20 30 00 B7 32 17 0C 22 20 2E 42 59 20 27 |T' 0..2.." .BY '|
00000FE0: 53 43 41 4E 4C 49 4E 45 27 20 30 20 30 00 EB 32 |SCANLINE' 0 0..2|
00000FF0: 1C 0C 22 45 4E 54 52 59 20 2E 42 59 20 43 4C 45 |.."ENTRY .BY CLE|
00001000: 41 52 2D 31 20 44 4F 54 2D 31 20 52 45 53 45 54 |AR-1 DOT-1 RESET|
00001010: 44 4F 54 2D 31 20 49 4E 56 45 52 54 44 4F 54 2D |DOT-1 INVERTDOT-|
00001020: 31 00 27 33 21 0C 22 20 2E 42 59 20 4C 49 4E 45 |1.'3!." .BY LINE|
00001030: 2D 31 20 52 45 53 45 54 4C 49 4E 45 2D 31 20 49 |-1 RESETLINE-1 I|
00001040: 4E 56 45 52 54 4C 49 4E 45 2D 31 20 48 41 52 44 |NVERTLINE-1 HARD|
00001050: 43 4F 50 59 2D 31 20 45 58 49 54 2D 31 00 56 33 |COPY-1 EXIT-1.V3|
00001060: 26 0C 22 20 2E 42 59 20 54 45 58 54 2D 31 20 49 |&." .BY TEXT-1 I|
00001070: 4E 56 54 45 58 54 2D 31 20 52 45 53 54 45 58 54 |NVTEXT-1 RESTEXT|
00001080: 2D 31 20 53 43 41 4E 4E 4C 4E 2D 31 00 74 33 2B |-1 SCANNLN-1.t3+|
00001090: 0C 22 20 2E 45 4E 20 3B 45 4E 44 20 4F 46 20 53 |." .EN ;END OF S|
000010A0: 4F 55 52 43 45 2D 46 49 4C 45 00 00 00 B9 00 |OURCE-FILE..... |
DIFF+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#.." LD
A XDIFF..#.." ORA XDIFF+1..#.." BNE LI3.
.#.." DEY..#.."LI3 STY SUM..#.." STY 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 X2+1..$
.." BNE LI5.B$.." LDA Y1.O$.." CMP Y2..$
.." BNE LI5..$.." LDA Y1+1..$.." CMP Y2+
1..% ." BNE LI5..%%." RTS.&%*."LI5 BIT S
UM+1.4%/." BPL LI6.>%4." CLC.K%9." LDA Y
1.[%>." 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 XDIFF.N
%F." STA SUM..%K." LDA SUM+1..%P." ADC X
DIFF+1..&U." STA SUM+1..&Z." JMP LI4..&
."LI6 CLC.(&.." LDA X1.8&.." ADC XSTEP.E
&.." STA X1.T&.." LDA X1+1.F&.." ADC XST
EP+1.U&.." STA X1+1.&.." SEC..&.." LDA
SUM..&.." SBC YDIFF..&.." STA SUM..&.."
LDA SUM+1.M&.." SBC YDIFF+1..&.." STA SU
M+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 LI
NIEN-FUNKTIONEN. '.."RESETDOT LDA #$40..
'.." JMP DOT+2.H'.."INVERTDOT LDA #$80.X
'.." JMP DOT+2..'.."RESETLINE LDA #$40..
(.." JMP LINE+2..(.."INVERTLINE LDA #$80
.+(.." JMP LINE+2.M(.." ;***************
***********.U(.." ;.C(.." ; &EXIT.K(.."
;..($." ;**************************..(%.
" ;ZEIGER WIEDER 'GERADEBIEGEN'.D()."EXI
T LDY #$A7.S(.." LDA #$E4..(3." STA $030
8..(8." STY $0309..(=." SEC..)B." JSR $F
F99..)G." STX $37.))L." STY $38.J)Q." JM
P $E39A ;SYSTEM AUFRUFEN.L)R." ; TEXT-BE
FEHLE, FLAG SETZEN..)V."INVTEXT LDA #$80
..)[." .BY $2C..)`."RESTEXT LDA #$40..)E
." .BY $2C.E)J."TEXT LDA #0.T)O." STA FL
AG..)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 #$1F..+X.
" .BY $2C..+.."TXT3 LDA #$20.:+.." STA 2
.I+.." LDA #$1A.U+.." ASL 2._+.." ROL.K+
.." ASL 2.U+.." ROL..+.." ASL 2..+.." RO
L..+.." 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."TXT6 LD
X FLAG2..,_." LDA $200,X..,D." LDX FLAG1
..,I." AND @BIT,X.B,N." BEQ TXT8.O,S." L
DA X1..,X." LDY X1+1..,}." STA XVALUE..-
.." STY XVALUE+1..-.." LDY Y1+1.!-.." LD
A FLAG2.+-.." CLC.8-.." ADC Y1.F-.." STA
$14.U- ." BCC TXT7._-.." INY.U-.."TXT7
JSR WORKDOT..-.."TXT8 DEC FLAG2..-.." BP
L 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 LENG
H.C..." BNE TXT10.M..." RTS.A..."TXT10 J
MP TXT2.W..."STRING JSR $AEFD....." JSR
$AD9E....." JSR $B6A3....." LDY #0....."
LDA ($64),Y.D..." STA $63.N..." INY....
." LDA ($64),Y..."." TAX...'." INY../,."
LDA ($64),Y../1." STA $65."/6." STX $64
.//;." LDY #0.=/@." LDA $63.G/E." RTS.^/
J."SCANN BIT 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.." RT
S.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."TABL
E1 .BY 13 8 'A' 27 '8' 27.I1L."TABLE2 .B
Y 10 13 ' ' 27 '*' 1 XMAX.W1Q."PRO
MPT .BY 'EPSON-SUPPORT V1.7 ***' 13..1
V." .BY '(C)1984 BY ALEX DEL PINO' 13 0.
.1.."STMTAB .BY 'CLEAR' 0.M1.." .BY 'DOT
' 0..1.." .BY 'RESETDOT' 0..1.." .BY 'IN
VDOT' 0..2.." .BY 'LINE' 0.$2.." .BY 'RE
SETLINE' 0.:2.." .BY 'INVLINE' 0.J2.." .
BY 153 0.]2.." .BY 'EXIT' 0.P2.." .BY 'T
EXT' 0..2.." .BY 'INVTEXT' 0..2.." .BY '
RESETTEXT' 0..2.." .BY 'SCANLINE' 0 0..2
.."ENTRY .BY CLEAR-1 DOT-1 RESETDOT-1 IN
VERTDOT-1.'3!." .BY LINE-1 RESETLINE-1 I
NVERTLINE-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