VS.MAIN.DICT.H
FILE INFORMATION
FILENAME(S): VS.MAIN.DICT.H
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-10-20 00:37:10
APPEARS ON: 1 disk(s)
FILE HASH
98ffe92e118e8f57e44ea5fa93435742316c939929ac6f28aec5dcd1cd5e0d3b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VIZAWRITE CO | VS.MAIN.DICT.H | PRG | Treasure Chest - Holger | 29 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 2C 00 11 0B 12 02 85 43 3A 8B 43 B3 31 B0 43 B1 |,......C:.C.1.C.|
00000010: 31 36 30 A7 35 33 30 00 1E 0B 1C 02 97 41 AA 44 |160.530......A.D|
00000020: 2C 43 3A 8E 00 3C 0B 58 02 8B 41 B2 35 A7 41 B2 |,C:..<.X..A.5.A.|
00000030: 34 3A 93 22 43 4F 50 59 20 31 35 32 30 22 2C 38 |4:."COPY 1520",8|
00000040: 2C 31 00 59 0B 8A 02 85 22 93 42 49 4C 44 4E 55 |,1.Y....".BILDNU|
00000050: 4D 4D 45 52 22 3B 44 3A 43 B2 28 44 AF 37 29 00 |MMER";D:C.(D.7).|
00000060: 83 0B 94 02 85 22 46 41 52 42 45 20 28 30 2D 33 |....."FARBE (0-3|
00000070: 29 22 3B 42 24 3A 97 31 30 30 30 2C 30 3A 97 31 |)";B$:.1000,0:.1|
00000080: 30 30 31 2C C5 28 42 24 29 00 8E 0B 9E 02 81 49 |001,.(B$)......I|
00000090: B2 30 A4 36 00 AD 0B A8 02 8B C2 28 38 30 38 36 |.0.6.......(8086|
000000A0: AA 49 29 B2 44 A7 88 5A B2 28 49 AA 31 29 AC 38 |.I).D..Z.(I.1).8|
000000B0: 31 39 32 00 B4 0B B2 02 82 49 00 D9 0B BC 02 58 |192......I.....X|
000000C0: B2 B5 28 5A AD 32 35 36 29 3A 97 33 33 39 39 2C |..(Z.256):.3399,|
000000D0: 58 3A 97 33 33 39 32 2C 5A AB 58 AC 32 35 36 00 |X:.3392,Z.X.256.|
000000E0: EA 0B C6 02 97 37 38 30 2C 43 3A 9E 33 33 32 38 |.....780,C:.3328|
000000F0: 00 0B 0C D0 02 99 22 4F 56 45 52 4C 41 59 0F 0D |......"OVERLAY..|
00000100: 97 5B 39 0B 47 97 D2 34 B7 32 3E 66 94 53 CA 31 |.[9.G..4.2>f.S.1|
00000110: 27 DB DB D5 37 DE 56 86 BB AC 2C 64 C3 32 2E 23 |'...7.V...,d.2.#|
00000120: 85 39 77 2B 85 77 DB 2E 99 5E BD 85 15 D8 D7 7D |.9w+.w...^.....}|
00000130: 75 76 7C 34 2E 2A BD 16 2B 37 DB FF BB 0A 3A F7 |uv|4.*..+7....:.|
00000140: 3B FA F2 FF 59 FF FF C7 FF AA FF FF FF FF 18 FF |;...Y...........|
00000150: FB FC BC E0 F0 80 F7 D7 99 66 ED AF 9B 62 93 B9 |.........f...b..|
00000160: A5 AB FF 2D FF AF FF FA 35 54 C1 AC C0 91 A5 B7 |...-....5T......|
00000170: FF 57 FF FF FF 76 FF FF 4D 0B FF 8C A5 FF FF FF |.W...v..M.......|
00000180: FF C8 64 90 BF EC A5 AE FF FF E9 FF 16 B7 78 FF |..d...........x.|
00000190: D1 FF 4D FF 6A FF FF FC 71 FF 66 9C FF FF 9D BC |..M.j...q.f.....|
000001A0: 2F CF B3 7E 4F D1 0C 8B 41 79 96 6E DA 2D 98 1B |/..~O...Ay.n.-..|
000001B0: DF BD EC 0C 86 0D 47 77 8C 07 41 7B 6D 6F B3 DB |......Gw..A{mo..|
000001C0: F7 36 2D 3A 8B 4F 95 97 62 79 4B 5B FF FF F6 7B |.6-:.O..byK[...{|
000001D0: CD DA 19 AB FF 7C B6 FF EA B9 6C FF 1B 06 10 FF |.....|....l.....|
000001E0: FF 42 FA 6E D9 FF FF FF D4 B9 F8 FF DD 1A FF DF |.B.n............|
000001F0: FF 16 FA FF FF E6 FF FF C7 D5 63 FF 41 20 58 31 |..........c.A X1|
00000200: 00 DB 23 BC 07 22 20 4C 44 59 20 58 31 2B 31 00 |..#.." LDY X1+1.|
00000210: EC 23 C1 07 22 20 53 54 41 20 58 56 41 4C 55 45 |.#.." STA XVALUE|
00000220: 00 FF 23 C6 07 22 20 53 54 59 20 58 56 41 4C 55 |..#.." STY XVALU|
00000230: 45 2B 31 00 0C 24 CB 07 22 20 4C 44 41 20 59 31 |E+1..$.." LDA Y1|
00000240: 00 1B 24 D0 07 22 20 4C 44 59 20 59 31 2B 31 00 |..$.." LDY Y1+1.|
00000250: 2C 24 D5 07 22 20 53 54 41 20 59 56 41 4C 55 45 |,$.." STA YVALUE|
00000260: 00 3F 24 DA 07 22 20 53 54 59 20 59 56 41 4C 55 |.?$.." STY YVALU|
00000270: 45 2B 31 00 4F 24 DF 07 22 20 4A 53 52 20 53 43 |E+1.O$.." JSR SC|
00000280: 41 4E 4E 00 61 24 E4 07 22 20 4A 53 52 20 57 4F |ANN.a$.." JSR WO|
00000290: 52 4B 44 4F 54 00 6E 24 E9 07 22 20 4C 44 41 20 |RKDOT.n$.." LDA |
000002A0: 58 31 00 7B 24 EE 07 22 20 43 4D 50 20 58 32 00 |X1.{$.." CMP X2.|
000002B0: 89 24 F3 07 22 20 42 4E 45 20 4C 49 35 00 98 24 |.$.." BNE LI5..$|
000002C0: F8 07 22 20 4C 44 41 20 58 31 2B 31 00 A7 24 FD |.." LDA X1+1..$.|
000002D0: 07 22 20 43 4D 50 20 58 32 2B 31 00 B5 24 02 08 |." CMP X2+1..$..|
000002E0: 22 20 42 4E 45 20 4C 49 35 00 C2 24 07 08 22 20 |" BNE LI5..$.." |
000002F0: 4C 44 41 20 59 31 00 CF 24 0C 08 22 20 43 4D 50 |LDA Y1..$.." CMP|
00000300: 20 59 32 00 DD 24 11 08 22 20 42 4E 45 20 4C 49 | Y2..$.." BNE LI|
00000310: 35 00 EC 24 16 08 22 20 4C 44 41 20 59 31 2B 31 |5..$.." LDA Y1+1|
00000320: 00 FB 24 1B 08 22 20 43 4D 50 20 59 32 2B 31 00 |..$.." CMP Y2+1.|
00000330: 09 25 20 08 22 20 42 4E 45 20 4C 49 35 00 13 25 |.% ." BNE LI5..%|
00000340: 25 08 22 20 52 54 53 00 26 25 2A 08 22 4C 49 35 |%." RTS.&%*."LI5|
00000350: 20 42 49 54 20 53 55 4D 2B 31 00 34 25 2F 08 22 | BIT SUM+1.4%/."|
00000360: 20 42 50 4C 20 4C 49 36 00 3E 25 34 08 22 20 43 | BPL LI6.>%4." C|
00000370: 4C 43 00 4B 25 39 08 22 20 4C 44 41 20 59 31 00 |LC.K%9." LDA Y1.|
00000380: 5B 25 3E 08 22 20 41 44 43 20 59 53 54 45 50 00 |[%>." ADC YSTEP.|
00000390: 68 25 43 08 22 20 53 54 41 20 59 31 00 77 25 48 |h%C." STA Y1.w%H|
000003A0: 08 22 20 4C 44 41 20 59 31 2B 31 00 89 25 4D 08 |." LDA Y1+1..%M.|
000003B0: 22 20 41 44 43 20 59 53 54 45 50 2B 31 00 98 25 |" ADC YSTEP+1..%|
000003C0: 52 08 22 20 53 54 41 20 59 31 2B 31 00 A2 25 57 |R." STA Y1+1..%W|
000003D0: 08 22 20 43 4C 43 00 B0 25 5C 08 22 20 4C 44 41 |." CLC..%\." LDA|
000003E0: 20 53 55 4D 00 C0 25 61 08 22 20 41 44 43 20 58 | SUM..%a." ADC X|
000003F0: 44 49 46 46 00 CE 25 66 08 22 20 53 54 41 20 53 |DIFF..%f." STA S|
00000400: 55 4D 00 DE 25 6B 08 22 20 4C 44 41 20 53 55 4D |UM..%k." LDA SUM|
00000410: 2B 31 00 F0 25 70 08 22 20 41 44 43 20 58 44 49 |+1..%p." ADC XDI|
00000420: 46 46 2B 31 00 00 26 75 08 22 20 53 54 41 20 53 |FF+1..&u." STA S|
00000430: 55 4D 2B 31 00 0E 26 7A 08 22 20 4A 4D 50 20 4C |UM+1..&z." JMP L|
00000440: 49 34 00 1B 26 7F 08 22 4C 49 36 20 43 4C 43 00 |I4..&.."LI6 CLC.|
00000450: 28 26 84 08 22 20 4C 44 41 20 58 31 00 38 26 89 |(&.." LDA X1.8&.|
00000460: 08 22 20 41 44 43 20 58 53 54 45 50 00 45 26 8E |." ADC XSTEP.E&.|
00000470: 08 22 20 53 54 41 20 58 31 00 54 26 93 08 22 20 |." STA X1.T&.." |
00000480: 4C 44 41 20 58 31 2B 31 00 66 26 98 08 22 20 41 |LDA X1+1.f&.." A|
00000490: 44 43 20 58 53 54 45 50 2B 31 00 75 26 9D 08 22 |DC XSTEP+1.u&.."|
000004A0: 20 53 54 41 20 58 31 2B 31 00 7F 26 A2 08 22 20 | STA X1+1..&.." |
000004B0: 53 45 43 00 8D 26 A7 08 22 20 4C 44 41 20 53 55 |SEC..&.." LDA SU|
000004C0: 4D 00 9D 26 AC 08 22 20 53 42 43 20 59 44 49 46 |M..&.." SBC YDIF|
000004D0: 46 00 AB 26 B1 08 22 20 53 54 41 20 53 55 4D 00 |F..&.." STA SUM.|
000004E0: BB 26 B6 08 22 20 4C 44 41 20 53 55 4D 2B 31 00 |.&.." LDA SUM+1.|
000004F0: CD 26 BB 08 22 20 53 42 43 20 59 44 49 46 46 2B |.&.." SBC YDIFF+|
00000500: 31 00 DD 26 C0 08 22 20 53 54 41 20 53 55 4D 2B |1..&.." STA SUM+|
00000510: 31 00 EB 26 C5 08 22 20 4A 4D 50 20 4C 49 34 00 |1..&.." JMP LI4.|
00000520: 00 27 CA 08 22 56 41 4C 55 45 20 4A 53 52 20 24 |.'.."VALUE JSR $|
00000530: 41 45 46 44 00 10 27 CF 08 22 20 4A 53 52 20 24 |AEFD..'.." JSR $|
00000540: 41 44 38 41 00 20 27 D4 08 22 20 4A 53 52 20 24 |AD8A. '.." JSR $|
00000550: 42 37 46 37 00 2E 27 D9 08 22 20 4C 44 41 20 24 |B7F7..'.." LDA $|
00000560: 31 34 00 3C 27 DE 08 22 20 4C 44 59 20 24 31 35 |14.<'.." LDY $15|
00000570: 00 46 27 E3 08 22 20 52 54 53 00 89 27 E4 08 22 |.F'.." RTS..'.."|
00000580: 20 3B 46 4C 41 47 20 53 45 54 5A 45 4E 20 46 55 | ;FLAG SETZEN FU|
00000590: 45 52 20 4D 4F 44 49 46 49 5A 49 45 52 54 45 4E |ER MODIFIZIERTEN|
000005A0: 20 50 55 4E 4B 54 2D 20 55 4E 44 20 4C 49 4E 49 | PUNKT- UND LINI|
000005B0: 45 4E 2D 46 55 4E 4B 54 49 4F 4E 45 4E 00 A0 27 |EN-FUNKTIONEN..'|
000005C0: E8 08 22 52 45 53 45 54 44 4F 54 20 4C 44 41 20 |.."RESETDOT LDA |
000005D0: 23 24 34 30 00 B0 27 ED 08 22 20 4A 4D 50 20 44 |#$40..'.." JMP D|
000005E0: 4F 54 2B 32 00 C8 27 F2 08 22 49 4E 56 45 52 54 |OT+2..'.."INVERT|
000005F0: 44 4F 54 20 4C 44 41 20 23 24 38 30 00 D8 27 F7 |DOT LDA #$80..'.|
00000600: 08 22 20 4A 4D 50 20 44 4F 54 2B 32 00 F0 27 FC |." JMP DOT+2..'.|
00000610: 08 22 52 45 53 45 54 4C 49 4E 45 20 4C 44 41 20 |."RESETLINE LDA |
00000620: 23 24 34 30 00 01 28 01 09 22 20 4A 4D 50 20 4C |#$40..(.." JMP L|
00000630: 49 4E 45 2B 32 00 1A 28 06 09 22 49 4E 56 45 52 |INE+2..(.."INVER|
00000640: 54 4C 49 4E 45 20 4C 44 41 20 23 24 38 30 00 2B |TLINE LDA #$80.+|
00000650: 28 0B 09 22 20 4A 4D 50 20 4C 49 4E 45 2B 32 00 |(.." JMP LINE+2.|
00000660: 4D 28 10 09 22 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |M(.." ;*********|
00000670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000680: 2A 00 55 28 15 09 22 20 3B 00 63 28 1A 09 22 20 |*.U(.." ;.c(.." |
00000690: 3B 20 26 45 58 49 54 00 6B 28 1F 09 22 20 3B 00 |; &EXIT.k(.." ;.|
000006A0: 8D 28 24 09 22 20 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |.($." ;*********|
000006B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006C0: 2A 00 B1 28 25 09 22 20 3B 5A 45 49 47 45 52 20 |*..(%." ;ZEIGER |
000006D0: 57 49 45 44 45 52 20 27 47 45 52 41 44 45 42 49 |WIEDER 'GERADEBI|
000006E0: 45 47 45 4E 27 00 C4 28 29 09 22 45 58 49 54 20 |EGEN'..()."EXIT |
000006F0: 4C 44 59 20 23 24 41 37 00 D3 28 2E 09 22 20 4C |LDY #$A7..(.." L|
00000700: 44 41 20 23 24 45 34 00 E3 28 33 09 22 20 53 54 |DA #$E4..(3." ST|
00000710: 41 20 24 30 33 30 38 00 F3 28 38 09 22 20 53 54 |A $0308..(8." ST|
00000720: 59 20 24 30 33 30 39 00 FD 28 3D 09 22 20 53 45 |Y $0309..(=." SE|
00000730: 43 00 0D 29 42 09 22 20 4A 53 52 20 24 46 46 39 |C..)B." JSR $FF9|
00000740: 39 00 1B 29 47 09 22 20 53 54 58 20 24 33 37 00 |9..)G." STX $37.|
00000750: 29 29 4C 09 22 20 53 54 59 20 24 33 38 00 4A 29 |))L." STY $38.J)|
00000760: 51 09 22 20 4A 4D 50 20 24 45 33 39 41 20 3B 53 |Q." JMP $E39A ;S|
00000770: 59 53 54 45 4D 20 41 55 46 52 55 46 45 4E 00 6C |YSTEM AUFRUFEN.l|
00000780: 29 52 09 22 20 3B 20 54 45 58 54 2D 42 45 46 45 |)R." ; TEXT-BEFE|
00000790: 48 4C 45 2C 20 46 4C 41 47 20 53 45 54 5A 45 4E |HLE, FLAG SETZEN|
000007A0: 00 82 29 56 09 22 49 4E 56 54 45 58 54 20 4C 44 |..)V."INVTEXT LD|
000007B0: 41 20 23 24 38 30 00 90 29 5B 09 22 20 2E 42 59 |A #$80..)[." .BY|
000007C0: 20 24 32 43 00 A6 29 60 09 22 52 45 53 54 45 58 | $2C..)`."RESTEX|
000007D0: 54 20 4C 44 41 20 23 24 34 30 00 B4 29 65 09 22 |T LDA #$40..)e."|
000007E0: 20 2E 42 59 20 24 32 43 00 C5 29 6A 09 22 54 45 | .BY $2C..)j."TE|
000007F0: 58 54 20 4C 44 41 20 23 30 00 D4 29 6F 09 22 20 |XT LDA #0..)o." |
00000800: 53 54 41 20 46 4C 41 47 00 E6 29 74 09 22 20 4A |STA FLAG..)t." J|
00000810: 53 52 20 56 41 4C 55 45 2B 33 00 F3 29 79 09 22 |SR VALUE+3..)y."|
00000820: 20 53 54 41 20 58 31 00 02 2A 7E 09 22 20 53 54 | STA X1..*~." ST|
00000830: 59 20 58 31 2B 31 00 12 2A 83 09 22 20 4A 53 52 |Y X1+1..*.." JSR|
00000840: 20 56 41 4C 55 45 00 1F 2A 88 09 22 20 53 54 41 | VALUE..*.." STA|
00000850: 20 59 31 00 2E 2A 8D 09 22 20 53 54 59 20 59 31 | Y1..*.." STY Y1|
00000860: 2B 31 00 3F 2A 92 09 22 20 4A 53 52 20 53 54 52 |+1.?*.." JSR STR|
00000870: 49 4E 47 00 4E 2A 97 09 22 20 42 4E 45 20 54 58 |ING.N*.." BNE TX|
00000880: 54 31 00 58 2A 9C 09 22 20 52 54 53 00 6C 2A A1 |T1.X*.." RTS.l*.|
00000890: 09 22 54 58 54 31 20 53 54 41 20 4C 45 4E 47 48 |."TXT1 STA LENGH|
000008A0: 00 7C 2A A6 09 22 20 53 54 59 20 46 4C 41 47 33 |.|*.." STY FLAG3|
000008B0: 00 90 2A AB 09 22 54 58 54 32 20 4C 44 59 20 46 |..*.."TXT2 LDY F|
000008C0: 4C 41 47 33 00 A2 2A B0 09 22 20 4C 44 41 20 28 |LAG3..*.." LDA (|
000008D0: 24 36 34 29 2C 59 00 B1 2A B5 09 22 20 43 4D 50 |$64),Y..*.." CMP|
000008E0: 20 23 24 32 30 00 C0 2A BA 09 22 20 42 43 43 20 | #$20..*.." BCC |
000008F0: 54 58 54 33 00 CF 2A BF 09 22 20 43 4D 50 20 23 |TXT3..*.." CMP #|
00000900: 24 34 30 00 E0 2A C4 09 22 20 42 43 43 20 54 58 |$40..*.." BCC TX|
00000910: 54 33 2B 32 00 EF 2A C9 09 22 20 43 4D 50 20 23 |T3+2..*.." CMP #|
00000920: 24 36 30 00 FE 2A CE 09 22 20 42 43 53 20 54 58 |$60..*.." BCS TX|
00000930: 54 33 00 0D 2B D3 09 22 20 41 4E 44 20 23 24 31 |T3..+.." AND #$1|
00000940: 46 00 1B 2B D8 09 22 20 2E 42 59 20 24 32 43 00 |F..+.." .BY $2C.|
00000950: 2E 2B DD 09 22 54 58 54 33 20 4C 44 41 20 23 24 |.+.."TXT3 LDA #$|
00000960: 32 30 00 3A 2B E2 09 22 20 53 54 41 20 32 00 49 |20.:+.." STA 2.I|
00000970: 2B E7 09 22 20 4C 44 41 20 23 24 31 41 00 55 2B |+.." LDA #$1A.U+|
00000980: EC 09 22 20 41 53 4C 20 32 00 5F 2B F1 09 22 20 |.." ASL 2._+.." |
00000990: 52 4F 4C 00 6B 2B F6 09 22 20 41 53 4C 20 32 00 |ROL.k+.." ASL 2.|
000009A0: 75 2B FB 09 22 20 52 4F 4C 00 81 2B 00 0A 22 20 |u+.." ROL..+.." |
000009B0: 41 53 4C 20 32 00 8B 2B 05 0A 22 20 52 4F 4C 00 |ASL 2..+.." ROL.|
000009C0: 97 2B 0A 0A 22 20 53 54 41 20 33 00 A1 2B 0F 0A |.+.." STA 3..+..|
000009D0: 22 20 53 45 49 00 B0 2B 14 0A 22 20 4C 44 41 20 |" SEI..+.." LDA |
000009E0: 23 24 33 31 00 BC 2B 19 0A 22 20 53 54 41 20 31 |#$31..+.." STA 1|
000009F0: 00 C9 2B 1E 0A 22 20 4C 44 59 20 23 37 00 DD 2B |..+.." LDY #7..+|
00000A00: 23 0A 22 54 58 54 34 20 4C 44 41 20 28 32 29 2C |#."TXT4 LDA (2),|
00000A10: 59 00 EE 2B 28 0A 22 20 53 54 41 20 24 32 30 30 |Y..+(." STA $200|
00000A20: 2C 59 00 F8 2B 2D 0A 22 20 44 45 59 00 07 2C 32 |,Y..+-." DEY..,2|
00000A30: 0A 22 20 42 50 4C 20 54 58 54 34 00 19 2C 37 0A |." BPL TXT4..,7.|
00000A40: 22 20 4C 44 41 20 23 45 4E 41 42 4C 45 00 25 2C |" LDA #ENABLE.%,|
00000A50: 3C 0A 22 20 53 54 41 20 31 00 2F 2C 41 0A 22 20 |<." STA 1./,A." |
00000A60: 43 4C 49 00 3C 2C 46 0A 22 20 4C 44 41 20 23 30 |CLI.<,F." LDA #0|
00000A70: 00 4C 2C 4B 0A 22 20 53 54 41 20 46 4C 41 47 31 |.L,K." STA FLAG1|
00000A80: 00 5D 2C 50 0A 22 54 58 54 35 20 4C 44 41 20 23 |.],P."TXT5 LDA #|
00000A90: 37 00 6D 2C 55 0A 22 20 53 54 41 20 46 4C 41 47 |7.m,U." STA FLAG|
00000AA0: 32 00 81 2C 5A 0A 22 54 58 54 36 20 4C 44 58 20 |2..,Z."TXT6 LDX |
00000AB0: 46 4C 41 47 32 00 92 2C 5F 0A 22 20 4C 44 41 20 |FLAG2..,_." LDA |
00000AC0: 24 32 30 30 2C 58 00 A2 2C 64 0A 22 20 4C 44 58 |$200,X..,d." LDX|
00000AD0: 20 46 4C 41 47 31 00 B3 2C 69 0A 22 20 41 4E 44 | FLAG1..,i." AND|
00000AE0: 20 40 42 49 54 2C 58 00 C2 2C 6E 0A 22 20 42 45 | @BIT,X..,n." BE|
00000AF0: 51 20 54 58 54 38 00 CF 2C 73 0A 22 20 4C 44 41 |Q TXT8..,s." LDA|
00000B00: 20 58 31 00 DE 2C 78 0A 22 20 4C 44 59 20 58 31 | X1..,x." LDY X1|
00000B10: 2B 31 00 EF 2C 7D 0A 22 20 53 54 41 20 58 56 41 |+1..,}." STA XVA|
00000B20: 4C 55 45 00 02 2D 82 0A 22 20 53 54 59 20 58 56 |LUE..-.." STY XV|
00000B30: 41 4C 55 45 2B 31 00 11 2D 87 0A 22 20 4C 44 59 |ALUE+1..-.." LDY|
00000B40: 20 59 31 2B 31 00 21 2D 8C 0A 22 20 4C 44 41 20 | Y1+1.!-.." LDA |
00000B50: 46 4C 41 47 32 00 2B 2D 91 0A 22 20 43 4C 43 00 |FLAG2.+-.." CLC.|
00000B60: 38 2D 96 0A 22 20 41 44 43 20 59 31 00 46 2D 9B |8-.." ADC Y1.F-.|
00000B70: 0A 22 20 53 54 41 20 24 31 34 00 55 2D A0 0A 22 |." STA $14.U-.."|
00000B80: 20 42 43 43 20 54 58 54 37 00 5F 2D A5 0A 22 20 | BCC TXT7._-.." |
00000B90: 49 4E 59 00 75 2D AA 0A 22 54 58 54 37 20 4A 53 |INY.u-.."TXT7 JS|
00000BA0: 52 20 57 4F 52 4B 44 4F 54 00 89 2D AF 0A 22 54 |R WORKDOT..-.."T|
00000BB0: 58 54 38 20 44 45 43 20 46 4C 41 47 32 00 98 2D |XT8 DEC FLAG2..-|
00000BC0: B4 0A 22 20 42 50 4C 20 54 58 54 36 00 A5 2D B9 |.." BPL TXT6..-.|
00000BD0: 0A 22 20 49 4E 43 20 58 31 00 B4 2D BE 0A 22 20 |." INC X1..-.." |
00000BE0: 42 4E 45 20 54 58 54 39 00 C3 2D C3 0A 22 20 49 |BNE TXT9..-.." I|
00000BF0: 4E 43 20 58 31 2B 31 00 D7 2D C8 0A 22 54 58 54 |NC X1+1..-.."TXT|
00000C00: 39 20 49 4E 43 20 46 4C 41 47 31 00 E7 2D CD 0A |9 INC FLAG1..-..|
00000C10: 22 20 4C 44 58 20 46 4C 41 47 31 00 F4 2D D2 0A |" LDX FLAG1..-..|
00000C20: 22 20 43 50 58 20 23 38 00 03 2E D7 0A 22 20 42 |" CPX #8....." B|
00000C30: 4E 45 20 54 58 54 35 00 13 2E DC 0A 22 20 49 4E |NE TXT5....." IN|
00000C40: 43 20 46 4C 41 47 33 00 23 2E E1 0A 22 20 4C 44 |C FLAG3.#..." LD|
00000C50: 41 20 46 4C 41 47 33 00 33 2E E6 0A 22 20 43 4D |A FLAG3.3..." CM|
00000C60: 50 20 4C 45 4E 47 48 00 43 2E EB 0A 22 20 42 4E |P LENGH.C..." BN|
00000C70: 45 20 54 58 54 31 30 00 4D 2E F0 0A 22 20 52 54 |E TXT10.M..." RT|
00000C80: 53 00 61 2E F5 0A 22 54 58 54 31 30 20 4A 4D 50 |S.a..."TXT10 JMP|
00000C90: 20 54 58 54 32 00 77 2E FA 0A 22 53 54 52 49 4E | TXT2.w..."STRIN|
00000CA0: 47 20 4A 53 52 20 24 41 45 46 44 00 87 2E FF 0A |G JSR $AEFD.....|
00000CB0: 22 20 4A 53 52 20 24 41 44 39 45 00 97 2E 04 0B |" JSR $AD9E.....|
00000CC0: 22 20 4A 53 52 20 24 42 36 41 33 00 A4 2E 09 0B |" JSR $B6A3.....|
00000CD0: 22 20 4C 44 59 20 23 30 00 B6 2E 0E 0B 22 20 4C |" LDY #0....." L|
00000CE0: 44 41 20 28 24 36 34 29 2C 59 00 C4 2E 13 0B 22 |DA ($64),Y....."|
00000CF0: 20 53 54 41 20 24 36 33 00 CE 2E 18 0B 22 20 49 | STA $63....." I|
00000D00: 4E 59 00 E0 2E 1D 0B 22 20 4C 44 41 20 28 24 36 |NY....." LDA ($6|
00000D10: 34 29 2C 59 00 EA 2E 22 0B 22 20 54 41 58 00 F4 |4),Y..."." TAX..|
00000D20: 2E 27 0B 22 20 49 4E 59 00 06 2F 2C 0B 22 20 4C |.'." INY../,." L|
00000D30: 44 41 20 28 24 36 34 29 2C 59 00 14 2F 31 0B 22 |DA ($64),Y../1."|
00000D40: 20 53 54 41 20 24 36 35 00 22 2F 36 0B 22 20 53 | STA $65."/6." S|
00000D50: 54 58 20 24 36 34 00 2F 2F 3B 0B 22 20 4C 44 59 |TX $64.//;." LDY|
00000D60: 20 23 30 00 3D 2F 40 0B 22 20 4C 44 41 20 24 36 | #0.=/@." LDA $6|
00000D70: 33 00 47 2F 45 0B 22 20 52 54 53 00 5E 2F 4A 0B |3.G/E." RTS.^/J.|
00000D80: 22 53 43 41 4E 4E 20 42 49 54 20 4C 49 4E 45 54 |"SCANN BIT LINET|
00000D90: 59 50 00 6D 2F 4F 0B 22 20 42 4D 49 20 53 43 41 |YP.m/O." BMI SCA|
00000DA0: 31 00 77 2F 54 0B 22 20 52 54 53 00 8A 2F 59 0B |1.w/T." RTS../Y.|
00000DB0: 22 53 43 41 31 20 4C 44 58 20 23 24 46 30 00 99 |"SCA1 LDX #$F0..|
00000DC0: 2F 5E 0B 22 20 53 54 58 20 46 4C 41 47 00 AB 2F |/^." STX FLAG../|
00000DD0: 63 0B 22 20 4A 53 52 20 57 4F 52 4B 44 4F 54 00 |c." JSR WORKDOT.|
00000DE0: B8 2F 68 0B 22 20 4C 44 41 20 59 31 00 C7 2F 6D |./h." LDA Y1../m|
00000DF0: 0B 22 20 4C 44 59 20 59 31 2B 31 00 D5 2F 72 0B |." LDY Y1+1../r.|
00000E00: 22 20 53 54 41 20 24 31 34 00 E4 2F 77 0B 22 20 |" STA $14../w." |
00000E10: 42 49 54 20 46 4C 41 47 00 F3 2F 7C 0B 22 20 42 |BIT FLAG../|." B|
00000E20: 50 4C 20 53 43 41 32 00 FD 2F 81 0B 22 20 50 4C |PL SCA2../.." PL|
00000E30: 41 00 07 30 86 0B 22 20 50 4C 41 00 11 30 8B 0B |A..0.." PLA..0..|
00000E40: 22 20 52 54 53 00 22 30 90 0B 22 53 43 41 32 20 |" RTS."0.."SCA2 |
00000E50: 4C 44 58 20 23 30 00 31 30 95 0B 22 20 53 54 58 |LDX #0.10.." STX|
00000E60: 20 46 4C 41 47 00 3B 30 9A 0B 22 20 52 54 53 00 | FLAG.;0.." RTS.|
00000E70: 51 30 9F 0B 22 53 43 41 4E 4E 4C 4E 20 4C 44 41 |Q0.."SCANNLN LDA|
00000E80: 20 23 24 46 46 00 62 30 A4 0B 22 20 4A 4D 50 20 | #$FF.b0.." JMP |
00000E90: 4C 49 4E 45 2B 37 00 84 30 A9 0B 22 20 3B 2A 2A |LINE+7..0.." ;**|
00000EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EB0: 2A 2A 2A 2A 2A 2A 2A 2A 00 8C 30 AE 0B 22 20 3B |********..0.." ;|
00000EC0: 00 AC 30 B3 0B 22 20 3B 20 44 20 41 20 54 20 45 |..0.." ; D A T E|
00000ED0: 20 4E 20 42 20 45 20 52 20 45 20 49 20 43 20 48 | N B E R E I C H|
00000EE0: 00 B4 30 B8 0B 22 20 3B 00 D6 30 BD 0B 22 20 3B |..0.." ;..0.." ;|
00000EF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F8 30 C2 0B 22 |**********..0.."|
00000F10: 42 49 54 20 2E 42 59 20 31 32 38 20 36 34 20 33 |BIT .BY 128 64 3|
00000F20: 32 20 31 36 20 38 20 34 20 32 20 31 00 1B 31 C7 |2 16 8 4 2 1..1.|
00000F30: 0B 22 54 41 42 4C 45 31 20 2E 42 59 20 31 33 20 |."TABLE1 .BY 13 |
00000F40: 38 20 27 41 27 20 32 37 20 27 38 27 20 32 37 00 |8 'A' 27 '8' 27.|
00000F50: 49 31 CC 0B 22 54 41 42 4C 45 32 20 2E 42 59 20 |I1.."TABLE2 .BY |
00000F60: 31 30 20 31 33 20 27 20 20 20 20 20 20 20 27 20 |10 13 ' ' |
00000F70: 32 37 20 27 2A 27 20 31 20 58 4D 41 58 00 77 31 |27 '*' 1 XMAX.w1|
00000F80: D1 0B 22 50 52 4F 4D 50 54 20 2E 42 59 20 27 45 |.."PROMPT .BY 'E|
00000F90: 50 53 4F 4E 2D 53 55 50 50 4F 52 54 20 20 56 31 |PSON-SUPPORT V1|
00000FA0: 2E 37 20 20 2A 2A 2A 27 20 31 33 00 A1 31 D6 0B |.7 ***' 13..1..|
00000FB0: 22 20 2E 42 59 20 27 28 43 29 31 39 38 34 20 42 |" .BY '(C)1984 B|
00000FC0: 59 20 41 4C 45 58 20 44 45 4C 20 50 49 4E 4F 27 |Y ALEX DEL PINO'|
00000FD0: 20 31 33 20 30 00 BB 31 DB 0B 22 53 54 4D 54 41 | 13 0..1.."STMTA|
00000FE0: 42 20 2E 42 59 20 27 43 4C 45 41 52 27 20 30 00 |B .BY 'CLEAR' 0.|
00000FF0: CD 31 E0 0B 22 20 2E 42 59 20 27 44 4F 54 27 20 |.1.." .BY 'DOT' |
00001000: 30 00 E4 31 E5 0B 22 20 2E 42 59 20 27 52 45 53 |0..1.." .BY 'RES|
00001010: 45 54 44 4F 54 27 20 30 00 F9 31 EA 0B 22 20 2E |ETDOT' 0..1.." .|
00001020: 42 59 20 27 49 4E 56 44 4F 54 27 20 30 00 0C 32 |BY 'INVDOT' 0..2|
00001030: EF 0B 22 20 2E 42 59 20 27 4C 49 4E 45 27 20 30 |.." .BY 'LINE' 0|
00001040: 00 24 32 F4 0B 22 20 2E 42 59 20 27 52 45 53 45 |.$2.." .BY 'RESE|
00001050: 54 4C 49 4E 45 27 20 30 00 3A 32 F9 0B 22 20 2E |TLINE' 0.:2.." .|
00001060: 42 59 20 27 49 4E 56 4C 49 4E 45 27 20 30 00 4A |BY 'INVLINE' 0.J|
00001070: 32 FE 0B 22 20 2E 42 59 20 31 35 33 20 30 00 5D |2.." .BY 153 0.]|
00001080: 32 03 0C 22 20 2E 42 59 20 27 45 58 49 54 27 20 |2.." .BY 'EXIT' |
00001090: 30 00 70 32 08 0C 22 20 2E 42 59 20 27 54 45 58 |0.p2.." .BY 'TEX|
000010A0: 54 27 20 30 00 86 32 0D 0C 22 20 2E 42 59 20 27 |T' 0..2.." .BY '|
000010B0: 49 4E 56 54 45 58 54 27 20 30 00 9E 32 12 0C 22 |INVTEXT' 0..2.."|
000010C0: 20 2E 42 59 20 27 52 45 53 45 54 54 45 58 54 27 | .BY 'RESETTEXT'|
000010D0: 20 30 00 B7 32 17 0C 22 20 2E 42 59 20 27 53 43 | 0..2.." .BY 'SC|
000010E0: 41 4E 4C 49 4E 45 27 20 30 20 30 00 EB 32 1C 0C |ANLINE' 0 0..2..|
000010F0: 22 45 4E 54 52 59 20 2E 42 59 20 43 4C 45 41 52 |"ENTRY .BY CLEAR|
00001100: 2D 31 20 44 4F 54 2D 31 20 52 45 53 45 54 44 4F |-1 DOT-1 RESETDO|
00001110: 54 2D 31 20 49 4E 56 45 52 54 44 4F 54 2D 31 00 |T-1 INVERTDOT-1.|
00001120: 27 33 21 0C 22 20 2E 42 59 20 4C 49 4E 45 2D 31 |'3!." .BY LINE-1|
00001130: 20 52 45 53 45 54 4C 49 4E 45 2D 31 20 49 4E 56 | RESETLINE-1 INV|
00001140: 45 52 54 4C 49 4E 45 2D 31 20 48 41 52 44 43 4F |ERTLINE-1 HARDCO|
00001150: 50 59 2D 31 20 45 58 49 54 2D 31 00 56 33 26 0C |PY-1 EXIT-1.V3&.|
00001160: 22 20 2E 42 59 20 54 45 58 54 2D 31 20 49 4E 56 |" .BY TEXT-1 INV|
00001170: 54 45 58 54 2D 31 20 52 45 53 54 45 58 54 2D 31 |TEXT-1 RESTEXT-1|
00001180: 20 53 43 41 4E 4E 4C 4E 2D 31 00 74 33 2B 0C 22 | SCANNLN-1.t3+."|
00001190: 20 2E 45 4E 20 3B 45 4E 44 20 4F 46 20 53 4F 55 | .EN ;END OF SOU|
000011A0: 52 43 45 2D 46 49 4C 45 00 00 00 B9 00 |RCE-FILE..... |
,......C:.C.1.C.160.530......A.D,C:..<.X
..A.5.A.4:."COPY 1520",8,1.Y....".BILDNU
MMER";D:C.(D.7)......"FARBE (0-3)";B$:.1
000,0:.1001,E(B$)......I.0.6......B(8086
.I).D..Z.(I.1).8192......I.Y...X..(Z.256
):.3399,X:.3392,Z.X.256...F..780,C:.3328
...P.."OVERLAY...[9.G.R4.2>F.SJ1'..U7.V.
..,DC2.#.9W+.W...^...XW}UV|4.*..+7....:.
;...Y..G...............W.F...B.....-....
5TA......W...V..M........HD...........X.
Q.M.J...Q.F...../O.~OQ..AY.NZ-........GW
..A{MO...6-:.O..BYK[...{MZ...|....L.....
.B.NY...T...............GUC.A X1..#.." L
DY X1+1..#A." STA XVALUE..#F." STY XVALU
E+1..$K." LDA Y1..$P." LDY Y1+1.,$U." ST
A YVALUE.?$Z." STY YVALUE+1.O$.." JSR SC
ANN.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 SUM+1.4%/." BPL LI6.>%4." C
LC.K%9." LDA Y1.[%>." ADC YSTEP.H%C." ST
A 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 XDIFF+1..&U." STA SUM+1..&Z
." JMP LI4..&."LI6 CLC.(&.." LDA X1.8&.
." ADC XSTEP.E&.." STA X1.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."VAL
UE JSR $AEFD..'O." JSR $AD8A. 'T." JSR $
B7F7..'Y." LDA $14.<'.." LDY $15.F'.." R
TS..'.." ;FLAG SETZEN FUER MODIFIZIERTEN
PUNKT- UND LINIEN-FUNKTIONEN. '.."RESET
DOT LDA #$40..'.." JMP DOT+2.H'.."INVERT
DOT LDA #$80.X'.." JMP DOT+2..'.."RESETL
INE LDA #$40..(.." JMP LINE+2..(.."INVER
TLINE LDA #$80.+(.." JMP LINE+2.M(.." ;*
*************************.U(.." ;.C(.."
; &EXIT.K(.." ;..($." ;*****************
*********..(%." ;ZEIGER WIEDER 'GERADEBI
EGEN'.D()."EXIT LDY #$A7.S(.." LDA #$E4.
.(3." STA $0308..(8." STY $0309..(=." SE
C..)B." JSR $FF99..)G." STX $37.))L." ST
Y $38.J)Q." JMP $E39A ;SYSTEM AUFRUFEN.L
)R." ; TEXT-BEFEHLE, FLAG SETZEN..)V."IN
VTEXT LDA #$80..)[." .BY $2C..)`."RESTEX
T 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 STR
ING.N*.." BNE TXT1.X*.." RTS.L*.."TXT1 S
TA LENGH.|*.." STY FLAG3..*.."TXT2 LDY F
LAG3..*.." LDA ($64),Y..*.." CMP #$20..*
.." BCC TXT3.O*.." CMP #$40..*D." BCC TX
T3+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..+.." 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." S
TA FLAG1.],P."TXT5 LDA #7.M,U." STA FLAG
2..,Z."TXT6 LDX FLAG2..,_." LDA $200,X..
,D." LDX FLAG1..,I." AND @BIT,X.B,N." BE
Q TXT8.O,S." LDA X1..,X." LDY X1+1..,}."
STA XVALUE..-.." STY XVALUE+1..-.." LDY
Y1+1.!-.." LDA FLAG2.+-.." CLC.8-.." AD
C 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 FL
AG1..-M." LDX FLAG1..-R." CPX #8...W." B
NE TXT5....." INC FLAG3.#..." LDA FLAG3.
3..." CMP LENGH.C..." BNE TXT10.M..." RT
S.A..."TXT10 JMP TXT2.W..."STRING JSR $A
EFD....." 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 $6
3.G/E." RTS.^/J."SCANN BIT LINETYP.M/O."
BMI SCA1.W/T." RTS../Y."SCA1 LDX #$F0..
/^." STX FLAG../C." JSR WORKDOT../H." LD
A 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-SUPPORT V1
.7 ***' 13..1V." .BY '(C)1984 BY ALEX D
EL PINO' 13 0..1.."STMTAB .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 'INVL
INE' 0.J2.." .BY 153 0.]2.." .BY 'EXIT'
0.P2.." .BY 'TEXT' 0..2.." .BY 'INVTEXT'
0..2.." .BY 'RESETTEXT' 0..2.." .BY 'SC
ANLINE' 0 0..2.."ENTRY .BY CLEAR-1 DOT-1
RESETDOT-1 INVERTDOT-1.'3!." .BY LINE-1
RESETLINE-1 INVERTLINE-1 HARDCOPY-1 EXI
T-1.V3&." .BY TEXT-1 INVTEXT-1 RESTEXT-1
SCANNLN-1.T3+." .EN ;END OF SOURCE-FILE
.....
> CLICK IMAGE PREVIEW FOR FULL MODAL