VS.MAIN.DICT.C
FILE INFORMATION
FILENAME(S): VS.MAIN.DICT.C
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-10-20 00:37:10
APPEARS ON: 1 disk(s)
FILE HASH
f963b6d6edbac8593f04e326b100f3c3199b74c4009f8bebe8b9d233bb6f2592
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VIZAWRITE CO | VS.MAIN.DICT.C | PRG | Treasure Chest - Holger | 25 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 6E 0A 22 20 42 45 51 20 54 58 54 38 00 CF 2C 73 |n." BEQ TXT8..,s| 00000010: 0A 22 20 4C 44 41 20 58 31 00 DE 2C 78 0A 22 20 |." LDA X1..,x." | 00000020: 4C 44 59 20 58 31 2B 31 00 EF 2C 7D 0A 22 20 53 |LDY X1+1..,}." S| 00000030: 54 41 20 58 56 41 4C 55 45 00 02 2D 82 0A 22 20 |TA XVALUE..-.." | 00000040: 53 54 59 20 58 56 41 4C 55 45 2B 31 00 11 2D 87 |STY XVALUE+1..-.| 00000050: 0A 22 20 4C 44 59 20 59 31 2B 31 00 21 2D 8C 0A |." LDY Y1+1.!-..| 00000060: 22 20 4C 44 41 20 46 4C 41 47 32 00 2B 2D 91 0A |" LDA FLAG2.+-..| 00000070: 22 20 43 4C 43 00 38 2D 96 0A 22 20 41 44 43 20 |" CLC.8-.." ADC | 00000080: 59 31 00 46 2D 9B 0A 22 20 53 54 41 20 24 31 34 |Y1.F-.." STA $14| 00000090: 00 55 2D A0 0A 22 20 42 43 43 20 54 58 54 37 00 |.U-.." BCC TXT7.| 000000A0: 5F 2D A5 0A 22 20 49 4E 59 00 75 2D AA 0A 22 54 |_-.." INY.u-.."T| 000000B0: 58 54 37 20 4A 53 52 20 57 4F 52 4B 44 4F 54 00 |XT7 JSR WORKDOT.| 000000C0: 89 2D AF 0A 22 54 58 54 38 20 44 45 43 20 46 4C |.-.."TXT8 DEC FL| 000000D0: 41 47 32 00 98 2D B4 0A 22 20 42 50 4C 20 54 58 |AG2..-.." BPL TX| 000000E0: 54 36 00 A5 2D B9 0A 22 20 49 4E 43 20 58 31 00 |T6..-.." INC X1.| 000000F0: B4 2D BE 0A 22 20 42 4E 45 20 54 58 54 39 00 C3 |.-.." BNE TXT9..| 00000100: 2D C3 0A 22 20 49 4E 43 20 58 31 2B 31 00 D7 2D |-.." INC X1+1..-| 00000110: C8 0A 22 54 58 54 39 20 49 4E 43 20 46 4C 41 47 |.."TXT9 INC FLAG| 00000120: 31 00 E7 2D CD 0A 22 20 4C 44 58 20 46 4C 41 47 |1..-.." LDX FLAG| 00000130: 31 00 F4 2D D2 0A 22 20 43 50 58 20 23 38 00 03 |1..-.." CPX #8..| 00000140: 2E D7 0A 22 20 42 4E 45 20 54 58 54 35 00 13 2E |..." BNE TXT5...| 00000150: DC 0A 22 20 49 4E 43 20 46 4C 41 47 33 00 23 2E |.." INC FLAG3.#.| 00000160: E1 0A 22 20 4C 44 41 20 46 4C 41 47 33 00 33 2E |.." LDA FLAG3.3.| 00000170: E6 0A 22 20 43 4D 50 20 4C 45 4E 47 48 00 43 2E |.." CMP LENGH.C.| 00000180: EB 0A 22 20 42 4E 45 20 54 58 54 31 30 00 4D 2E |.." BNE TXT10.M.| 00000190: F0 0A 22 20 52 54 53 00 61 2E F5 0A 22 54 58 54 |.." RTS.a..."TXT| 000001A0: 31 30 20 4A 4D 50 20 54 58 54 32 00 77 2E FA 0A |10 JMP TXT2.w...| 000001B0: 22 53 54 52 49 4E 47 20 4A 53 52 20 24 41 45 46 |"STRING JSR $AEF| 000001C0: 44 00 87 2E FF 0A 22 20 4A 53 52 20 24 41 44 39 |D....." JSR $AD9| 000001D0: 45 00 97 2E 04 0B 22 20 4A 53 52 20 24 42 36 41 |E....." JSR $B6A| 000001E0: 33 00 A4 2E 09 0B 22 20 4C 44 59 20 23 30 00 B6 |3....." LDY #0..| 000001F0: 2E 0E 0B 22 20 4C 44 41 20 28 24 36 34 29 2C 59 |..." LDA ($64),Y| 00000200: 00 C4 2E 13 0B 22 20 53 54 41 20 24 36 33 00 CE |....." STA $63..| 00000210: 2E 18 0B 22 20 49 4E 59 00 E0 2E 1D 0B 22 20 4C |..." INY....." L| 00000220: 44 41 20 28 24 36 34 29 2C 59 00 EA 2E 22 0B 22 |DA ($64),Y..."."| 00000230: 20 54 41 58 00 F4 2E 27 0B 22 20 49 4E 59 00 06 | TAX...'." INY..| 00000240: 2F 2C 0B 22 20 4C 44 41 20 28 24 36 34 29 2C 59 |/,." LDA ($64),Y| 00000250: 00 14 2F 31 0B 22 20 53 54 41 20 24 36 35 00 22 |../1." STA $65."| 00000260: 2F 36 0B 22 20 53 54 58 20 24 36 34 00 2F 2F 3B |/6." STX $64.//;| 00000270: 0B 22 20 4C 44 59 20 23 30 00 3D 2F 40 0B 22 20 |." LDY #0.=/@." | 00000280: 4C 44 41 20 24 36 33 00 47 2F 45 0B 22 20 52 54 |LDA $63.G/E." RT| 00000290: 53 00 5E 2F 4A 0B 22 53 43 41 4E 4E 20 42 49 54 |S.^/J."SCANN BIT| 000002A0: 20 4C 49 4E 45 54 59 50 00 6D 2F 4F 0B 22 20 42 | LINETYP.m/O." B| 000002B0: 4D 49 20 53 43 41 31 00 77 2F 54 0B 22 20 52 54 |MI SCA1.w/T." RT| 000002C0: 53 00 8A 2F 59 0B 22 53 43 41 31 20 4C 44 58 20 |S../Y."SCA1 LDX | 000002D0: 23 24 46 30 00 99 2F 5E 0B 22 20 53 54 58 20 46 |#$F0../^." STX F| 000002E0: 4C 41 47 00 AB 2F 63 0B 22 20 4A 53 52 20 57 4F |LAG../c." JSR WO| 000002F0: 52 4B 44 4F 54 00 B8 2F 68 0B 22 20 4C 44 41 20 |RKDOT../h." LDA | 00000300: 59 31 00 C7 2F 6D 0B 22 20 4C 44 59 20 59 31 2B |Y1../m." LDY Y1+| 00000310: 31 00 D5 2F 72 0B 22 20 53 54 41 20 24 31 34 00 |1../r." STA $14.| 00000320: E4 2F 77 0B 22 20 42 49 54 20 46 4C 41 47 00 F3 |./w." BIT FLAG..| 00000330: 2F 7C 0B 22 20 42 50 4C 20 53 43 41 32 00 FD 2F |/|." BPL SCA2../| 00000340: 81 0B 22 20 50 4C 41 00 07 30 86 0B 22 20 50 4C |.." PLA..0.." PL| 00000350: 41 00 11 30 8B 0B 22 20 52 54 53 00 22 30 90 0B |A..0.." RTS."0..| 00000360: 22 53 43 41 32 20 4C 44 58 20 23 30 00 31 30 95 |"SCA2 LDX #0.10.| 00000370: 0B 22 20 53 54 58 20 46 4C 41 47 00 3B 30 9A 0B |." STX FLAG.;0..| 00000380: 22 20 52 54 53 00 51 30 9F 0B 22 53 43 41 4E 4E |" RTS.Q0.."SCANN| 00000390: 4C 4E 20 4C 44 41 20 23 24 46 46 00 62 30 A4 0B |LN LDA #$FF.b0..| 000003A0: 22 20 4A 4D 50 20 4C 49 4E 45 2B 37 00 84 30 A9 |" JMP LINE+7..0.| 000003B0: 0B 22 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |." ;************| 000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8C |**************..| 000003D0: 30 AE 0B 22 20 3B 00 AC 30 B3 0B 22 20 3B 20 44 |0.." ;..0.." ; D| 000003E0: 20 41 20 54 20 45 20 4E 20 42 20 45 20 52 20 45 | A T E N B E R E| 000003F0: 20 49 20 43 20 48 00 B4 30 B8 0B 22 20 3B 00 D6 | I C H..0.." ;..| 00000400: 30 BD 0B 22 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |0.." ;**********| 00000410: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000420: 00 F8 30 C2 0B 22 42 49 54 20 2E 42 59 20 31 32 |..0.."BIT .BY 12| 00000430: 38 20 36 34 20 33 32 20 31 36 20 38 20 34 20 32 |8 64 32 16 8 4 2| 00000440: 20 31 00 1B 31 C7 0B 22 54 41 42 4C 45 31 20 2E | 1..1.."TABLE1 .| 00000450: 42 59 20 31 33 20 38 20 27 41 27 20 32 37 20 27 |BY 13 8 'A' 27 '| 00000460: 38 27 20 32 37 00 49 31 CC 0B 22 54 41 42 4C 45 |8' 27.I1.."TABLE| 00000470: 32 20 2E 42 59 20 31 30 20 31 33 20 27 20 20 20 |2 .BY 10 13 ' | 00000480: 20 20 20 20 27 20 32 37 20 27 2A 27 20 31 20 58 | ' 27 '*' 1 X| 00000490: 4D 41 58 00 77 31 D1 0B 22 50 52 4F 4D 50 54 20 |MAX.w1.."PROMPT | 000004A0: 2E 42 59 20 27 45 50 53 4F 4E 2D 53 55 50 50 4F |.BY 'EPSON-SUPPO| 000004B0: 52 54 20 20 56 31 2E 37 20 20 2A 2A 2A 27 20 31 |RT V1.7 ***' 1| 000004C0: 33 00 A1 31 D6 0B 22 20 2E 42 59 20 27 28 43 29 |3..1.." .BY '(C)| 000004D0: 31 39 38 34 20 42 59 20 41 4C 45 58 20 44 45 4C |1984 BY ALEX DEL| 000004E0: 20 50 49 4E 4F 27 20 31 33 20 30 00 BB 31 DB 0B | PINO' 13 0..1..| 000004F0: 22 53 54 4D 54 41 42 20 2E 42 59 20 27 43 4C 45 |"STMTAB .BY 'CLE| 00000500: 41 52 27 20 30 00 CD 31 E0 0B 22 20 2E 42 59 20 |AR' 0..1.." .BY | 00000510: 27 44 4F 54 27 20 30 00 E4 31 E5 0B 22 20 2E 42 |'DOT' 0..1.." .B| 00000520: 59 20 27 52 45 53 45 54 44 4F 54 27 20 30 00 F9 |Y 'RESETDOT' 0..| 00000530: 31 EA 0B 22 20 2E 42 59 20 27 49 4E 56 44 4F 54 |1.." .BY 'INVDOT| 00000540: 27 20 30 00 0C 32 EF 0B 22 20 2E 42 59 20 27 4C |' 0..2.." .BY 'L| 00000550: 49 4E 45 27 20 30 00 24 32 F4 0B 22 20 2E 42 59 |INE' 0.$2.." .BY| 00000560: 20 27 52 45 53 45 54 4C 49 4E 45 27 20 30 00 3A | 'RESETLINE' 0.:| 00000570: 32 F9 0B 22 20 2E 42 59 20 27 49 4E 56 4C 49 4E |2.." .BY 'INVLIN| 00000580: 45 27 20 30 00 4A 32 FE 0B 22 20 2E 42 59 20 31 |E' 0.J2.." .BY 1| 00000590: 35 33 20 30 00 5D 32 03 0C 22 20 2E 42 59 20 27 |53 0.]2.." .BY '| 000005A0: 45 58 49 54 27 20 30 00 70 32 08 0C 22 20 2E 42 |EXIT' 0.p2.." .B| 000005B0: 59 20 27 54 45 58 54 27 20 30 00 86 32 0D 0C 22 |Y 'TEXT' 0..2.."| 000005C0: 20 2E 42 59 20 27 49 4E 56 54 45 58 54 27 20 30 | .BY 'INVTEXT' 0| 000005D0: 00 9E 32 12 0C 22 20 2E 42 59 20 27 52 45 53 45 |..2.." .BY 'RESE| 000005E0: 54 54 45 58 54 27 20 30 00 B7 32 17 0C 22 20 2E |TTEXT' 0..2.." .| 000005F0: 42 59 20 27 53 43 41 4E 4C 49 4E 45 27 20 30 20 |BY 'SCANLINE' 0 | 00000600: 30 00 EB 32 1C 0C 22 45 4E 54 52 59 20 2E 42 59 |0..2.."ENTRY .BY| 00000610: 20 43 4C 45 41 52 2D 31 20 44 4F 54 2D 31 20 52 | CLEAR-1 DOT-1 R| 00000620: 45 53 45 54 44 4F 54 2D 31 20 49 4E 56 45 52 54 |ESETDOT-1 INVERT| 00000630: 44 4F 54 2D 31 00 27 33 21 0C 22 20 2E 42 59 20 |DOT-1.'3!." .BY | 00000640: 4C 49 4E 45 2D 31 20 52 45 53 45 54 4C 49 4E 45 |LINE-1 RESETLINE| 00000650: 2D 31 20 49 4E 56 45 52 54 4C 49 4E 45 2D 31 20 |-1 INVERTLINE-1 | 00000660: 48 41 52 44 43 4F 50 59 2D 31 20 45 58 49 54 2D |HARDCOPY-1 EXIT-| 00000670: 31 00 56 33 26 0C 22 20 2E 42 59 20 54 45 58 54 |1.V3&." .BY TEXT| 00000680: 2D 31 20 49 4E 56 54 45 58 54 2D 31 20 52 45 53 |-1 INVTEXT-1 RES| 00000690: 54 45 58 54 2D 31 20 53 43 41 4E 4E 4C 4E 2D 31 |TEXT-1 SCANNLN-1| 000006A0: 00 74 33 2B 0C 22 20 2E 45 4E 20 3B 45 4E 44 20 |.t3+." .EN ;END | 000006B0: 4F 46 20 53 4F 55 52 43 45 2D 46 49 4C 45 00 00 |OF SOURCE-FILE..| 000006C0: 00 B9 00 |... |
N." BEQ TXT8.O,S." LDA X1..,X." LDY X1+1 ..,}." STA XVALUE..-.." STY XVALUE+1..-. ." LDY Y1+1.!-.." LDA FLAG2.+-.." CLC.8- .." ADC Y1.F-.." STA $14.U- ." BCC TXT7. _-.." INY.U-.."TXT7 JSR WORKDOT..-.."TXT 8 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..." BNE TXT10.M. .." RTS.A..."TXT10 JMP TXT2.W..."STRING JSR $AEFD....." JSR $AD9E....." JSR $B6A 3....." LDY #0....." LDA ($64),Y.D..." S TA $63.N..." INY....." LDA ($64),Y..."." TAX...'." INY../,." LDA ($64),Y../1." S TA $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.." 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."TABLE2 .BY 10 13 ' ' 27 '*' 1 XMAX.W1Q."PROMPT .BY 'EPSON-SUPPO RT V1.7 ***' 13..1V." .BY '(C)1984 BY ALEX DEL PINO' 13 0..1.."STMTAB .BY 'CLE AR' 0.M1.." .BY 'DOT' 0..1.." .BY 'RESET DOT' 0..1.." .BY 'INVDOT' 0..2.." .BY 'L INE' 0.$2.." .BY 'RESETLINE' 0.:2.." .BY 'INVLINE' 0.J2.." .BY 153 0.]2.." .BY ' EXIT' 0.P2.." .BY 'TEXT' 0..2.." .BY 'IN VTEXT' 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 INVTEXT-1 RES TEXT-1 SCANNLN-1.T3+." .EN ;END OF SOURC E-FILE.....
> CLICK IMAGE PREVIEW FOR FULL MODAL