VDCHC.SRC
FILE INFORMATION
FILENAME(S): VDCHC.SRC
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-11-30 01:12:39
APPEARS ON: 2 disk(s)
FILE HASH
65fa19c9d764cf684c50f780c853b94e484fd67503294db8e349d99e829035f1
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT 10 86 | VDCHC.SRC | PRG | C64er | 21 | 2 | DOWNLOAD FILE |
| 15829 SEITE B | VDCHC.SRC | PRG | C64er | 29 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F F1 1F 01 00 20 2E 4F 42 22 56 44 43 48 43 |...... .OB"VDCHC|
00000010: 2E 30 43 30 30 2C 50 2C 57 22 00 FF 1F 02 00 20 |.0C00,P,W"..... |
00000020: 2E 4C 49 31 2C 34 2C 32 00 0D 20 03 00 20 2E 53 |.LI1,4,2.. .. .S|
00000030: 59 31 2C 34 2C 32 00 2B 20 04 00 3B 38 30 20 DA |Y1,4,2.+ ..;80 .|
00000040: 45 49 43 48 45 4E 20 C8 41 52 44 43 4F 50 59 20 |EICHEN .ARDCOPY |
00000050: 46 BD 52 3A 00 6D 20 05 00 3B C3 31 32 38 20 26 |F.R:.m ..;.128 &|
00000060: 20 C5 50 53 4F 4E 28 2D 4B 4F 4D 50 41 54 49 42 | .PSON(-KOMPATIB|
00000070: 4C 45 29 20 26 20 D7 49 45 53 45 4D 41 4E 4E 2D |LE) & .IESEMANN-|
00000080: C9 4E 54 45 52 46 41 43 45 28 2D 4B 4F 4D 50 41 |.NTERFACE(-KOMPA|
00000090: 54 49 42 4C 45 29 00 8D 20 06 00 3B 28 43 29 20 |TIBLE).. ..;(C) |
000000A0: C6 52 41 4E 4B 2D C3 48 52 49 53 54 49 41 4E 20 |.RANK-.HRISTIAN |
000000B0: CB 52 BD 47 45 4C 00 A6 20 07 00 3B 20 20 20 20 |.R.GEL.. ..; |
000000C0: D2 41 42 49 45 4E 53 54 52 41 BE 45 20 35 32 00 |.ABIENSTRA.E 52.|
000000D0: BE 20 08 00 3B 20 20 20 20 32 38 36 32 20 D7 4F |. ..; 2862 .O|
000000E0: 52 50 53 57 45 44 45 00 D1 20 09 00 3B 20 20 20 |RPSWEDE.. ..; |
000000F0: 20 30 34 37 39 32 2D 38 39 34 00 D7 20 0A 00 3B | 04792-894.. ..;|
00000100: 00 DD 20 0B 00 3B 00 E3 20 0C 00 3B 00 F4 20 0D |.. ..;.. ..;.. .|
00000110: 00 20 2E 45 51 42 49 4C 44 3D 24 46 41 00 05 21 |. .EQBILD=$FA..!|
00000120: 0E 00 20 2E 45 51 41 54 54 52 3D 24 46 43 00 16 |.. .EQATTR=$FC..|
00000130: 21 0F 00 20 2E 45 51 43 48 47 4E 3D 24 46 45 00 |!.. .EQCHGN=$FE.|
00000140: 27 21 10 00 20 2E 45 51 43 4E 54 58 3D 24 38 45 |'!.. .EQCNTX=$8E|
00000150: 00 38 21 11 00 20 2E 45 51 43 4E 54 59 3D 24 38 |.8!.. .EQCNTY=$8|
00000160: 46 00 4B 21 12 00 20 2E 45 51 5A 43 48 47 45 4E |F.K!.. .EQZCHGEN|
00000170: 3D 24 36 34 00 5F 21 13 00 20 2E 45 51 5A 45 49 |=$64._!.. .EQZEI|
00000180: 43 48 45 4E 3D 24 36 36 00 74 21 14 00 20 2E 45 |CHEN=$66.t!.. .E|
00000190: 51 41 54 54 52 49 42 55 54 3D 24 36 37 00 85 21 |QATTRIBUT=$67..!|
000001A0: 15 00 20 2E 45 51 42 59 54 45 3D 24 36 38 00 98 |.. .EQBYTE=$68..|
000001B0: 21 16 00 20 2E 45 51 52 45 41 44 3D 24 43 44 44 |!.. .EQREAD=$CDD|
000001C0: 41 00 AC 21 17 00 20 2E 45 51 57 52 49 54 45 3D |A..!.. .EQWRITE=|
000001D0: 24 43 44 43 43 00 C0 21 18 00 20 2E 45 51 42 53 |$CDCC..!.. .EQBS|
000001E0: 4F 55 54 3D 24 46 46 44 32 00 D4 21 19 00 20 2E |OUT=$FFD2..!.. .|
000001F0: 45 51 50 52 49 4D 4D 3D 24 46 46 37 44 00 E2 21 |EQPRIMM=$FF7D..!|
00000200: 1A 00 20 2E 42 41 24 30 43 30 30 00 E8 21 1B 00 |.. .BA$0C00..!..|
00000210: 3B 00 EE 21 1C 00 3B 00 17 22 1D 00 49 52 51 4F |;..!..;.."..IRQO|
00000220: 4E 20 53 45 49 3B 45 49 4E 42 49 4E 44 45 4E 20 |N SEI;EINBINDEN |
00000230: 49 4E 20 44 45 4E 20 C9 4E 54 45 52 52 55 50 54 |IN DEN .NTERRUPT|
00000240: 00 27 22 1E 00 20 4C 44 41 23 3C 28 49 52 51 29 |.'".. LDA#<(IRQ)|
00000250: 00 35 22 1F 00 20 53 54 41 24 30 33 31 34 00 45 |.5".. STA$0314.E|
00000260: 22 20 00 20 4C 44 41 23 3E 28 49 52 51 29 00 53 |" . LDA#>(IRQ).S|
00000270: 22 21 00 20 53 54 41 24 30 33 31 35 00 5C 22 22 |"!. STA$0315.\""|
00000280: 00 20 43 4C 49 00 77 22 23 00 20 4A 53 52 50 52 |. CLI.w"#. JSRPR|
00000290: 49 4D 4D 3B D4 45 58 54 20 44 52 55 43 4B 45 4E |IMM;.EXT DRUCKEN|
000002A0: 00 83 22 24 00 20 2E 42 59 24 30 45 00 A5 22 25 |.."$. .BY$0E.."%|
000002B0: 00 20 2E 54 58 22 D6 C4 C3 2D C8 41 52 44 43 4F |. .TX"...-.ARDCO|
000002C0: 50 59 20 4D 49 54 20 27 C1 CC D4 27 21 22 00 B9 |PY MIT '...'!"..|
000002D0: 22 26 00 20 2E 42 59 24 30 37 2C 24 30 44 2C 24 |"&. .BY$07,$0D,$|
000002E0: 30 30 00 C2 22 27 00 20 52 54 53 00 E5 22 28 00 |00.."'. RTS.."(.|
000002F0: 49 52 51 20 4C 44 41 24 44 33 3B C5 49 4E 53 50 |IRQ LDA$D3;.INSP|
00000300: 52 55 4E 47 20 4E 45 55 45 52 20 C9 D2 D1 00 00 |RUNG NEUER .....|
00000310: 23 29 00 20 41 4E 44 23 24 30 38 3B D4 45 53 54 |#). AND#$08;.EST|
00000320: 20 41 55 46 27 C1 CC D4 27 00 10 23 2A 00 20 42 | AUF'...'..#*. B|
00000330: 45 51 4E 4F 52 4D 49 52 51 00 2F 23 2B 00 20 4C |EQNORMIRQ./#+. L|
00000340: 44 41 23 24 36 35 3B C9 D2 D1 20 52 45 53 54 41 |DA#$65;... RESTA|
00000350: 55 52 49 45 52 45 4E 2C 00 55 23 2C 00 20 53 54 |URIEREN,.U#,. ST|
00000360: 41 24 30 33 31 34 3B 55 4D 20 46 45 48 4C 45 52 |A$0314;UM FEHLER|
00000370: 46 52 45 49 45 4E 20 C2 45 54 52 49 45 42 00 72 |FREIEN .ETRIEB.r|
00000380: 23 2D 00 20 4C 44 41 23 24 46 41 3B 53 49 43 48 |#-. LDA#$FA;SICH|
00000390: 45 52 5A 55 53 54 45 4C 4C 45 4E 00 80 23 2E 00 |ERZUSTELLEN..#..|
000003A0: 20 53 54 41 24 30 33 31 35 00 97 23 2F 00 20 4A | STA$0315..#/. J|
000003B0: 53 52 53 54 41 52 54 3B C8 41 52 44 43 4F 50 59 |SRSTART;.ARDCOPY|
000003C0: 00 C2 23 30 00 20 4C 44 41 23 3C 28 49 52 51 29 |..#0. LDA#<(IRQ)|
000003D0: 3B 4E 45 55 45 4E 20 C9 D2 D1 20 57 49 45 44 45 |;NEUEN ... WIEDE|
000003E0: 52 48 45 52 53 54 45 4C 4C 45 4E 00 D0 23 31 00 |RHERSTELLEN..#1.|
000003F0: 20 53 54 41 24 30 33 31 34 00 E0 23 32 00 20 4C | STA$0314..#2. L|
00000400: 44 41 23 3E 28 49 52 51 29 00 EE 23 33 00 20 53 |DA#>(IRQ)..#3. S|
00000410: 54 41 24 30 33 31 35 00 03 24 34 00 4E 4F 52 4D |TA$0315..$4.NORM|
00000420: 49 52 51 20 4A 4D 50 24 46 41 36 35 00 1F 24 35 |IRQ JMP$FA65..$5|
00000430: 00 53 54 41 52 54 20 4C 44 41 24 46 46 30 30 3B |.START LDA$FF00;|
00000440: C8 41 52 44 43 4F 50 59 00 43 24 36 00 20 53 54 |.ARDCOPY.C$6. ST|
00000450: 41 42 41 4E 4B 2B 31 3B 41 4B 54 55 45 4C 4C 45 |ABANK+1;AKTUELLE|
00000460: 20 C2 41 4E 4B 20 52 45 54 54 45 4E 00 50 24 37 | .ANK RETTEN.P$7|
00000470: 00 20 4C 44 41 23 24 30 30 00 65 24 38 00 20 53 |. LDA#$00.e$8. S|
00000480: 54 41 24 46 46 30 30 3B 42 41 4E 4B 31 35 00 72 |TA$FF00;BANK15.r|
00000490: 24 39 00 20 4C 44 58 23 24 46 46 00 92 24 3A 00 |$9. LDX#$FF..$:.|
000004A0: 53 41 56 45 20 4C 44 41 24 30 30 2C 58 3B 30 2D |SAVE LDA$00,X;0-|
000004B0: D0 41 47 45 20 52 45 54 54 45 4E 00 B9 24 3B 00 |.AGE RETTEN..$;.|
000004C0: 20 53 54 41 24 30 42 30 30 2C 58 3B 49 4E 20 44 | STA$0B00,X;IN D|
000004D0: 45 4E 20 CB 41 53 53 45 54 54 45 4E 50 55 46 46 |EN .ASSETTENPUFF|
000004E0: 45 52 00 C2 24 3C 00 20 44 45 58 00 CF 24 3D 00 |ER..$<. DEX..$=.|
000004F0: 20 42 4E 45 53 41 56 45 00 F3 24 3E 00 20 4C 44 | BNESAVE..$>. LD|
00000500: 58 23 32 38 3B DA 45 49 43 48 45 4E 47 45 4E 45 |X#28;.EICHENGENE|
00000510: 52 41 54 4F 52 41 44 52 45 53 53 45 00 00 25 3F |RATORADRESSE..%?|
00000520: 00 20 4A 53 52 52 45 41 44 00 0D 25 40 00 20 41 |. JSRREAD..%@. A|
00000530: 4E 44 23 24 45 30 00 1A 25 41 00 20 53 54 41 43 |ND#$E0..%A. STAC|
00000540: 48 47 4E 00 37 25 42 00 20 4C 44 58 23 36 3B DA |HGN.7%B. LDX#6;.|
00000550: 45 49 4C 45 4E 20 41 55 46 20 D3 43 48 49 52 4D |EILEN AUF .CHIRM|
00000560: 00 44 25 43 00 20 4A 53 52 52 45 41 44 00 51 25 |.D%C. JSRREAD.Q%|
00000570: 44 00 20 53 54 41 43 4E 54 59 00 6B 25 45 00 20 |D. STACNTY.k%E. |
00000580: 4C 44 58 23 31 32 3B D6 49 44 45 4F 53 50 45 49 |LDX#12;.IDEOSPEI|
00000590: 43 48 45 52 00 78 25 46 00 20 4A 53 52 52 45 41 |CHER.x%F. JSRREA|
000005A0: 44 00 87 25 47 00 20 53 54 41 42 49 4C 44 2B 31 |D..%G. STABILD+1|
000005B0: 00 A4 25 48 00 20 4C 44 58 23 32 30 3B C1 54 54 |..%H. LDX#20;.TT|
000005C0: 52 49 42 55 54 53 50 45 49 43 48 45 52 00 B1 25 |RIBUTSPEICHER..%|
000005D0: 49 00 20 4A 53 52 52 45 41 44 00 C0 25 4A 00 20 |I. JSRREAD..%J. |
000005E0: 53 54 41 41 54 54 52 2B 31 00 CC 25 4B 00 20 4C |STAATTR+1..%K. L|
000005F0: 44 41 23 30 30 00 D9 25 4C 00 20 53 54 41 42 49 |DA#00..%L. STABI|
00000600: 4C 44 00 E6 25 4D 00 20 53 54 41 41 54 54 52 00 |LD..%M. STAATTR.|
00000610: F2 25 4E 00 20 4C 44 58 23 32 35 00 FF 25 4F 00 |.%N. LDX#25..%O.|
00000620: 20 4A 53 52 52 45 41 44 00 08 26 50 00 20 54 41 | JSRREAD..&P. TA|
00000630: 58 00 15 26 51 00 20 41 4E 44 23 24 38 30 00 24 |X..&Q. AND#$80.$|
00000640: 26 52 00 20 42 45 51 54 45 58 54 4D 44 00 49 26 |&R. BEQTEXTMD.I&|
00000650: 53 00 47 52 41 46 49 4B 20 4A 4D 50 45 58 49 54 |S.GRAFIK JMPEXIT|
00000660: 3B 48 49 45 52 20 4B 45 49 4E 45 20 C7 52 41 46 |;HIER KEINE .RAF|
00000670: 49 4B 00 6D 26 54 00 54 45 58 54 4D 44 20 4C 44 |IK.m&T.TEXTMD LD|
00000680: 41 23 24 32 30 3B 5A 57 45 49 20 4A 53 52 2D C2 |A#$20;ZWEI JSR-.|
00000690: 45 46 45 48 4C 45 00 8E 26 55 00 20 53 54 41 4A |EFEHLE..&U. STAJ|
000006A0: 4D 50 41 31 3B 57 45 52 44 45 4E 20 49 4E 53 54 |MPA1;WERDEN INST|
000006B0: 41 4C 4C 49 45 52 54 00 9B 26 56 00 20 4C 44 41 |ALLIERT..&V. LDA|
000006C0: 23 24 32 30 00 A9 26 57 00 20 53 54 41 4A 4D 50 |#$20..&W. STAJMP|
000006D0: 41 32 00 B2 26 58 00 20 54 58 41 00 CD 26 59 00 |A2..&X. TXA..&Y.|
000006E0: 20 41 4E 44 23 24 34 30 3B C1 54 54 52 49 42 55 | AND#$40;.TTRIBU|
000006F0: 54 45 20 41 4E 3F 00 DB 26 5A 00 20 42 4E 45 41 |TE AN?..&Z. BNEA|
00000700: 54 54 41 4E 00 04 27 5B 00 41 54 54 41 55 53 20 |TTAN..'[.ATTAUS |
00000710: 4C 44 41 23 24 32 43 3B 57 45 4E 4E 20 4B 45 49 |LDA#$2C;WENN KEI|
00000720: 4E 45 20 C1 54 54 52 49 42 55 54 45 2C 00 25 27 |NE .TTRIBUTE,.%'|
00000730: 5C 00 20 53 54 41 4A 4D 50 41 31 3B 44 41 4E 4E |\. STAJMPA1;DANN|
00000740: 20 45 4E 54 53 50 52 45 43 48 45 4E 44 45 00 46 | ENTSPRECHENDE.F|
00000750: 27 5D 00 20 4C 44 41 23 24 32 43 3B D2 4F 55 54 |']. LDA#$2C;.OUT|
00000760: 49 4E 45 4E 20 41 42 53 43 48 41 4C 54 45 4E 00 |INEN ABSCHALTEN.|
00000770: 54 27 5E 00 20 53 54 41 4A 4D 50 41 32 00 66 27 |T'^. STAJMPA2.f'|
00000780: 5F 00 41 54 54 41 4E 20 4C 44 41 23 24 37 46 00 |_.ATTAN LDA#$7F.|
00000790: 73 27 60 00 20 4C 44 58 23 24 30 34 00 80 27 61 |s'`. LDX#$04..'a|
000007A0: 00 20 4C 44 59 23 24 30 31 00 95 27 62 00 20 4A |. LDY#$01..'b. J|
000007B0: 53 52 24 46 46 42 41 3B 53 45 54 4C 46 53 00 A2 |SR$FFBA;SETLFS..|
000007C0: 27 63 00 20 4C 44 41 23 24 30 30 00 B7 27 64 00 |'c. LDA#$00..'d.|
000007D0: 20 4A 53 52 24 46 46 42 44 3B 53 45 54 4E 41 4D | JSR$FFBD;SETNAM|
000007E0: 00 D1 27 65 00 20 4A 53 52 24 46 46 43 30 3B 4F |..'e. JSR$FFC0;O|
000007F0: 50 45 4E 31 32 37 2C 34 2C 31 00 DE 27 66 00 20 |PEN127,4,1..'f. |
00000800: 4C 44 58 23 24 37 46 00 F3 27 67 00 20 4A 53 52 |LDX#$7F..'g. JSR|
00000810: 24 46 46 43 39 3B 43 4D 44 31 32 37 00 0D 28 68 |$FFC9;CMD127..(h|
00000820: 00 20 4A 53 52 50 52 49 4D 4D 3B 28 46 BD 52 20 |. JSRPRIMM;(F.R |
00000830: C5 50 53 4F 4E 29 00 49 28 69 00 20 2E 42 59 32 |.PSON).I(i. .BY2|
00000840: 37 2C 22 33 22 2C 32 34 2C 30 3B DA 45 49 4C 45 |7,"3",24,0;.EILE|
00000850: 4E 56 4F 52 53 43 48 55 42 20 32 34 2F 32 31 36 |NVORSCHUB 24/216|
00000860: 20 DA 4F 4C 4C 20 28 45 53 43 2C 22 33 22 2C 32 | .OLL (ESC,"3",2|
00000870: 34 29 00 4F 28 6A 00 3B 00 63 28 6B 00 4E 45 58 |4).O(j.;.c(k.NEX|
00000880: 54 4C 49 4E 45 20 4C 44 41 23 38 30 00 70 28 6C |TLINE LDA#80.p(l|
00000890: 00 20 53 54 41 43 4E 54 58 00 9B 28 6D 00 20 4A |. STACNTX..(m. J|
000008A0: 53 52 50 52 49 4D 4D 3B 28 36 34 30 2D D0 49 58 |SRPRIMM;(640-.IX|
000008B0: 45 4C 2D C7 52 41 46 49 4B 20 46 BD 52 20 C5 50 |EL-.RAFIK F.R .P|
000008C0: 53 4F 4E 29 00 BE 28 6E 00 20 2E 42 59 32 37 2C |SON)..(n. .BY27,|
000008D0: 22 2A 22 2C 24 30 34 2C 3C 28 36 34 30 29 2C 3E |"*",$04,<(640),>|
000008E0: 28 36 34 30 29 2C 30 00 D4 28 6F 00 4E 45 58 54 |(640),0..(o.NEXT|
000008F0: 43 48 41 52 20 4C 44 58 23 42 49 4C 44 00 E1 28 |CHAR LDX#BILD..(|
00000900: 70 00 20 4A 53 52 50 45 45 4B 00 F1 28 71 00 20 |p. JSRPEEK..(q. |
00000910: 53 54 41 5A 45 49 43 48 45 4E 00 FF 28 72 00 20 |STAZEICHEN..(r. |
00000920: 4C 44 58 23 41 54 54 52 00 0C 29 73 00 20 4A 53 |LDX#ATTR..)s. JS|
00000930: 52 50 45 45 4B 00 1D 29 74 00 20 53 54 41 41 54 |RPEEK..)t. STAAT|
00000940: 54 52 49 42 55 54 00 2D 29 75 00 20 4C 44 41 5A |TRIBUT.-)u. LDAZ|
00000950: 45 49 43 48 45 4E 00 56 29 76 00 20 53 54 41 5A |EICHEN.V)v. STAZ|
00000960: 43 48 47 45 4E 3B C1 44 52 45 53 53 45 20 46 BD |CHGEN;.DRESSE F.|
00000970: 52 20 DA 45 49 43 48 45 4E 4D 55 53 54 45 52 00 |R .EICHENMUSTER.|
00000980: 93 29 77 00 20 4C 44 41 23 30 30 3B 5A 43 48 47 |.)w. LDA#00;ZCHG|
00000990: 45 4E 3D 5A 45 49 43 48 45 4E 2A 31 36 2B 43 48 |EN=ZEICHEN*16+CH|
000009A0: 47 4E 28 2B 24 31 30 30 30 20 42 45 49 20 32 2E |GN(+$1000 BEI 2.|
000009B0: DA 45 49 43 48 45 4E 53 41 54 5A 29 00 A4 29 78 |.EICHENSATZ)..)x|
000009C0: 00 20 53 54 41 5A 43 48 47 45 4E 2B 31 00 B3 29 |. STAZCHGEN+1..)|
000009D0: 79 00 20 41 53 4C 5A 43 48 47 45 4E 00 C4 29 7A |y. ASLZCHGEN..)z|
000009E0: 00 20 52 4F 4C 5A 43 48 47 45 4E 2B 31 00 D3 29 |. ROLZCHGEN+1..)|
000009F0: 7B 00 20 41 53 4C 5A 43 48 47 45 4E 00 E4 29 7C |{. ASLZCHGEN..)||
00000A00: 00 20 52 4F 4C 5A 43 48 47 45 4E 2B 31 00 F3 29 |. ROLZCHGEN+1..)|
00000A10: 7D 00 20 41 53 4C 5A 43 48 47 45 4E 00 04 2A 7E |}. ASLZCHGEN..*~|
00000A20: 00 20 52 4F 4C 5A 43 48 47 45 4E 2B 31 00 13 2A |. ROLZCHGEN+1..*|
00000A30: 7F 00 20 41 53 4C 5A 43 48 47 45 4E 00 24 2A 80 |.. ASLZCHGEN.$*.|
00000A40: 00 20 52 4F 4C 5A 43 48 47 45 4E 2B 31 00 31 2A |. ROLZCHGEN+1.1*|
00000A50: 81 00 20 4C 44 41 43 48 47 4E 00 3A 2A 82 00 20 |.. LDACHGN.:*.. |
00000A60: 43 4C 43 00 4B 2A 83 00 20 41 44 43 5A 43 48 47 |CLC.K*.. ADCZCHG|
00000A70: 45 4E 2B 31 00 5C 2A 84 00 20 53 54 41 5A 43 48 |EN+1.\*.. STAZCH|
00000A80: 47 45 4E 2B 31 00 9B 2A 85 00 4A 4D 50 41 31 20 |GEN+1..*..JMPA1 |
00000A90: 4A 53 52 41 44 44 32 4E 44 3B 42 45 49 20 41 42 |JSRADD2ND;BEI AB|
00000AA0: 47 45 53 43 48 41 4C 54 45 54 45 4E 20 C1 54 54 |GESCHALTETEN .TT|
00000AB0: 52 49 42 55 54 45 4E 20 27 42 49 54 20 41 44 44 |RIBUTEN 'BIT ADD|
00000AC0: 32 4E 44 27 00 A6 2A 86 00 20 4C 44 59 23 30 00 |2ND'..*.. LDY#0.|
00000AD0: BC 2A 87 00 43 4F 50 59 4C 50 20 4C 44 58 23 5A |.*..COPYLP LDX#Z|
00000AE0: 43 48 47 45 4E 00 C9 2A 88 00 20 4A 53 52 50 45 |CHGEN..*.. JSRPE|
00000AF0: 45 4B 00 DA 2A 89 00 20 53 54 41 42 49 54 50 41 |EK..*.. STABITPA|
00000B00: 54 2C 59 00 E3 2A 8A 00 20 49 4E 59 00 F2 2A 8B |T,Y..*.. INY..*.|
00000B10: 00 20 49 4E 43 5A 43 48 47 45 4E 00 FE 2A 8C 00 |. INCZCHGEN..*..|
00000B20: 20 43 50 59 23 30 38 00 0D 2B 8D 00 20 42 4E 45 | CPY#08..+.. BNE|
00000B30: 43 4F 50 59 4C 50 00 4C 2B 8E 00 4A 4D 50 41 32 |COPYLP.L+..JMPA2|
00000B40: 20 4A 53 52 42 49 54 4D 4F 44 3B 42 45 49 20 41 | JSRBITMOD;BEI A|
00000B50: 42 47 45 53 43 48 41 4C 54 45 54 45 4E 20 C1 54 |BGESCHALTETEN .T|
00000B60: 54 52 49 42 55 54 45 4E 20 27 42 49 54 20 42 49 |TRIBUTEN 'BIT BI|
00000B70: 54 4D 4F 44 27 00 75 2B 8F 00 43 4C 52 42 55 46 |TMOD'.u+..CLRBUF|
00000B80: 20 4C 44 58 23 24 30 37 3B C4 52 55 43 4B 45 52 | LDX#$07;.RUCKER|
00000B90: 50 55 46 46 45 52 20 4C BC 53 43 48 45 4E 00 82 |PUFFER L.SCHEN..|
00000BA0: 2B 90 00 20 4C 44 41 23 24 30 30 00 98 2B 91 00 |+.. LDA#$00..+..|
00000BB0: 43 4C 52 4C 50 20 53 54 41 50 52 54 42 59 54 2C |CLRLP STAPRTBYT,|
00000BC0: 58 00 A1 2B 92 00 20 44 45 58 00 AF 2B 93 00 20 |X..+.. DEX..+.. |
00000BD0: 42 50 4C 43 4C 52 4C 50 00 D9 2B 94 00 20 4C 44 |BPLCLRLP..+.. LD|
00000BE0: 59 23 24 30 37 3B C2 49 54 4D 55 53 54 45 52 20 |Y#$07;.ITMUSTER |
00000BF0: 44 52 55 43 4B 46 45 52 54 49 47 20 4D 41 43 48 |DRUCKFERTIG MACH|
00000C00: 45 4E 00 F1 2B 95 00 4E 45 57 42 59 54 45 20 4C |EN..+..NEWBYTE L|
00000C10: 44 41 42 49 54 50 41 54 2C 59 00 FE 2B 96 00 20 |DABITPAT,Y..+.. |
00000C20: 53 54 41 42 59 54 45 00 0B 2C 97 00 20 4C 44 58 |STABYTE..,.. LDX|
00000C30: 23 24 30 37 00 1E 2C 98 00 4E 45 57 42 49 54 20 |#$07..,..NEWBIT |
00000C40: 4C 44 41 42 59 54 45 00 2D 2C 99 00 20 41 4E 44 |LDABYTE.-,.. AND|
00000C50: 54 41 42 31 2C 58 00 3A 2C 9A 00 20 42 45 51 4E |TAB1,X.:,.. BEQN|
00000C60: 55 4C 4C 00 4B 2C 9B 00 20 4C 44 41 50 52 54 42 |ULL.K,.. LDAPRTB|
00000C70: 59 54 2C 58 00 5A 2C 9C 00 20 4F 52 41 54 41 42 |YT,X.Z,.. ORATAB|
00000C80: 32 2C 59 00 6B 2C 9D 00 20 53 54 41 50 52 54 42 |2,Y.k,.. STAPRTB|
00000C90: 59 54 2C 58 00 78 2C 9E 00 4E 55 4C 4C 20 44 45 |YT,X.x,..NULL DE|
00000CA0: 58 00 87 2C 9F 00 20 42 50 4C 4E 45 57 42 49 54 |X..,.. BPLNEWBIT|
00000CB0: 00 90 2C A0 00 20 44 45 59 00 A0 2C A1 00 20 42 |..,.. DEY..,.. B|
00000CC0: 50 4C 4E 45 57 42 59 54 45 00 AD 2C A2 00 20 4C |PLNEWBYTE..,.. L|
00000CD0: 44 58 23 24 30 37 00 C9 2C A3 00 50 52 54 4C 50 |DX#$07..,..PRTLP|
00000CE0: 20 4C 44 41 50 52 54 42 59 54 2C 58 3B C4 52 55 | LDAPRTBYT,X;.RU|
00000CF0: 43 4B 00 D7 2C A4 00 20 4A 53 52 42 53 4F 55 54 |CK..,.. JSRBSOUT|
00000D00: 00 E0 2C A5 00 20 44 45 58 00 EE 2C A6 00 20 42 |..,.. DEX..,.. B|
00000D10: 50 4C 50 52 54 4C 50 00 07 2D A7 00 20 4C 44 41 |PLPRTLP..-.. LDA|
00000D20: 42 49 4C 44 3B 42 49 4C 44 3D 42 49 4C 44 2B 31 |BILD;BILD=BILD+1|
00000D30: 00 10 2D A8 00 20 43 4C 43 00 1D 2D A9 00 20 41 |..-.. CLC..-.. A|
00000D40: 44 43 23 24 30 31 00 2A 2D AA 00 20 53 54 41 42 |DC#$01.*-.. STAB|
00000D50: 49 4C 44 00 39 2D AB 00 20 4C 44 41 42 49 4C 44 |ILD.9-.. LDABILD|
00000D60: 2B 31 00 46 2D AC 00 20 41 44 43 23 24 30 30 00 |+1.F-.. ADC#$00.|
00000D70: 55 2D AD 00 20 53 54 41 42 49 4C 44 2B 31 00 6E |U-.. STABILD+1.n|
00000D80: 2D AE 00 20 4C 44 41 41 54 54 52 3B 41 54 54 52 |-.. LDAATTR;ATTR|
00000D90: 3D 41 54 54 52 2B 31 00 77 2D AF 00 20 43 4C 43 |=ATTR+1.w-.. CLC|
00000DA0: 00 84 2D B0 00 20 41 44 43 23 24 30 31 00 91 2D |..-.. ADC#$01..-|
00000DB0: B1 00 20 53 54 41 41 54 54 52 00 A0 2D B2 00 20 |.. STAATTR..-.. |
00000DC0: 4C 44 41 41 54 54 52 2B 31 00 AD 2D B3 00 20 41 |LDAATTR+1..-.. A|
00000DD0: 44 43 23 24 30 30 00 BC 2D B4 00 20 53 54 41 41 |DC#$00..-.. STAA|
00000DE0: 54 54 52 2B 31 00 C2 2D B5 00 3B 00 E5 2D B6 00 |TTR+1..-..;..-..|
00000DF0: 20 4C 44 58 43 4E 54 58 3B D3 50 41 4C 54 45 4E | LDXCNTX;.PALTEN|
00000E00: 5A BB 48 4C 45 52 20 45 52 48 BC 48 45 4E 00 EE |Z.HLER ERH.HEN..|
00000E10: 2D B7 00 20 44 45 58 00 FB 2D B8 00 20 53 54 58 |-.. DEX..-.. STX|
00000E20: 43 4E 54 58 00 0B 2E B9 00 20 42 45 51 4E 45 57 |CNTX..... BEQNEW|
00000E30: 4C 49 4E 45 00 1C 2E BA 00 20 4A 4D 50 4E 45 58 |LINE..... JMPNEX|
00000E40: 54 43 48 41 52 00 3B 2E BB 00 4E 45 57 4C 49 4E |TCHAR.;...NEWLIN|
00000E50: 45 20 4C 44 41 23 24 30 44 3B CE 45 55 45 20 DA |E LDA#$0D;.EUE .|
00000E60: 45 49 4C 45 00 49 2E BC 00 20 4A 53 52 42 53 4F |EILE.I... JSRBSO|
00000E70: 55 54 00 56 2E BD 00 20 4C 44 58 43 4E 54 59 00 |UT.V... LDXCNTY.|
00000E80: 5F 2E BE 00 20 44 45 58 00 6C 2E BF 00 20 53 54 |_... DEX.l... ST|
00000E90: 58 43 4E 54 59 00 7A 2E C0 00 20 42 45 51 45 4E |XCNTY.z... BEQEN|
00000EA0: 44 48 43 00 8B 2E C1 00 20 4A 4D 50 4E 45 58 54 |DHC..... JMPNEXT|
00000EB0: 4C 49 4E 45 00 A4 2E C2 00 45 4E 44 48 43 20 4A |LINE.....ENDHC J|
00000EC0: 53 52 24 46 46 43 43 3B 43 4C 52 43 48 00 B1 2E |SR$FFCC;CLRCH...|
00000ED0: C3 00 20 4C 44 41 23 24 37 46 00 C8 2E C4 00 20 |.. LDA#$7F..... |
00000EE0: 4A 53 52 24 46 46 43 33 3B 43 4C 4F 53 45 31 32 |JSR$FFC3;CLOSE12|
00000EF0: 37 00 D9 2E C5 00 45 58 49 54 20 4C 44 58 23 24 |7.....EXIT LDX#$|
00000F00: 46 46 00 FB 2E C6 00 4C 4F 41 44 20 4C 44 41 24 |FF.....LOAD LDA$|
00000F10: 30 42 30 30 2C 58 3B 30 2D D0 41 47 45 20 57 49 |0B00,X;0-.AGE WI|
00000F20: 45 44 45 52 00 1D 2F C7 00 20 53 54 41 24 30 30 |EDER../.. STA$00|
00000F30: 2C 58 3B 41 55 53 20 CB 41 53 53 45 54 54 45 4E |,X;AUS .ASSETTEN|
00000F40: 50 55 46 46 45 52 00 2C 2F C8 00 20 44 45 58 3B |PUFFER.,/.. DEX;|
00000F50: 48 4F 4C 45 4E 00 39 2F C9 00 20 42 4E 45 4C 4F |HOLEN.9/.. BNELO|
00000F60: 41 44 00 5A 2F CA 00 42 41 4E 4B 20 4C 44 41 23 |AD.Z/..BANK LDA#|
00000F70: 30 30 3B 30 30 20 49 53 54 20 C4 55 4D 4D 59 57 |00;00 IST .UMMYW|
00000F80: 45 52 54 00 8C 2F CB 00 20 53 54 41 24 46 46 30 |ERT../.. STA$FF0|
00000F90: 30 3B 41 4C 54 45 20 CB 4F 4E 46 49 47 55 52 41 |0;ALTE .ONFIGURA|
00000FA0: 54 49 4F 4E 20 57 49 45 44 45 52 48 45 52 53 54 |TION WIEDERHERST|
00000FB0: 45 4C 4C 45 4E 00 95 2F CC 00 20 52 54 53 00 9B |ELLEN../.. RTS..|
00000FC0: 2F CD 00 3B 00 A1 2F CE 00 3B 00 C8 2F CF 00 41 |/..;../..;../..A|
00000FD0: 44 44 32 4E 44 20 4C 44 41 41 54 54 52 49 42 55 |DD2ND LDAATTRIBU|
00000FE0: 54 3B 47 47 46 2E 20 55 4D 53 43 48 41 4C 54 45 |T;GGF. UMSCHALTE|
00000FF0: 4E 00 E8 2F D0 00 20 41 4E 44 23 24 38 30 3B 41 |N../.. AND#$80;A|
00001000: 55 46 20 32 2E 20 DA 45 49 43 48 45 4E 53 41 54 |UF 2. .EICHENSAT|
00001010: 5A 00 F7 2F D1 00 20 42 45 51 41 44 44 45 4E 44 |Z../.. BEQADDEND|
00001020: 00 08 30 D2 00 20 4C 44 41 5A 43 48 47 45 4E 2B |..0.. LDAZCHGEN+|
00001030: 31 00 11 30 D3 00 20 43 4C 43 00 1E 30 D4 00 20 |1..0.. CLC..0.. |
00001040: 41 44 43 23 24 31 30 00 2F 30 D5 00 20 53 54 41 |ADC#$10./0.. STA|
00001050: 5A 43 48 47 45 4E 2B 31 00 3E 30 D6 00 41 44 44 |ZCHGEN+1.>0..ADD|
00001060: 45 4E 44 20 52 54 53 00 44 30 D7 00 3B 00 75 30 |END RTS.D0..;.u0|
00001070: D8 00 42 49 54 4D 4F 44 20 4C 44 41 41 54 54 52 |..BITMOD LDAATTR|
00001080: 49 42 55 54 3B C1 54 54 52 49 42 55 54 45 20 42 |IBUT;.TTRIBUTE B|
00001090: 45 52 BD 43 4B 53 49 43 48 54 49 47 45 4E 00 91 |ER.CKSICHTIGEN..|
000010A0: 30 D9 00 20 41 4E 44 23 24 32 30 3B 55 4E 54 45 |0.. AND#$20;UNTE|
000010B0: 52 53 54 52 45 49 43 48 45 4E 00 A0 30 DA 00 20 |RSTREICHEN..0.. |
000010C0: 42 45 51 45 4E 44 55 4E 44 00 B1 30 DB 00 55 4E |BEQENDUND..0..UN|
000010D0: 44 4C 20 4C 44 41 23 24 46 46 00 C2 30 DC 00 20 |DL LDA#$FF..0.. |
000010E0: 53 54 41 42 49 54 50 41 54 2B 37 00 D9 30 DD 00 |STABITPAT+7..0..|
000010F0: 45 4E 44 55 4E 44 20 4C 44 41 41 54 54 52 49 42 |ENDUND LDAATTRIB|
00001100: 55 54 00 E6 30 DE 00 20 41 4E 44 23 24 34 30 00 |UT..0.. AND#$40.|
00001110: F5 30 DF 00 20 42 45 51 45 4E 44 52 45 56 00 00 |.0.. BEQENDREV..|
00001120: 31 E0 00 20 4C 44 58 23 37 00 21 31 E1 00 52 45 |1.. LDX#7.!1..RE|
00001130: 56 53 20 4C 44 41 42 49 54 50 41 54 2C 58 3B 49 |VS LDABITPAT,X;I|
00001140: 4E 56 45 52 54 49 45 52 45 4E 00 2E 31 E2 00 20 |NVERTIEREN..1.. |
00001150: 45 4F 52 23 24 46 46 00 3F 31 E3 00 20 53 54 41 |EOR#$FF.?1.. STA|
00001160: 42 49 54 50 41 54 2C 58 00 48 31 E4 00 20 44 45 |BITPAT,X.H1.. DE|
00001170: 58 00 55 31 E5 00 20 42 50 4C 52 45 56 53 00 64 |X.U1.. BPLREVS.d|
00001180: 31 E6 00 45 4E 44 52 45 56 20 52 54 53 00 79 31 |1..ENDREV RTS.y1|
00001190: E7 00 3B 55 50 52 47 2E 20 56 52 41 4D 2D 50 45 |..;UPRG. VRAM-PE|
000011A0: 45 4B 00 9B 31 E8 00 3B 45 49 4E 3A 20 58 3A C1 |EK..1..;EIN: X:.|
000011B0: 44 52 45 53 53 45 4E 49 4E 44 45 58 28 30 2D D0 |DRESSENINDEX(0-.|
000011C0: 41 47 45 29 00 AD 31 E9 00 3B 41 55 53 3A 20 41 |AGE)..1..;AUS: A|
000011D0: 3A C4 41 54 45 4E 00 C0 31 EA 00 50 45 45 4B 20 |:.ATEN..1..PEEK |
000011E0: 53 54 58 5A 50 49 31 2B 31 00 C9 31 EB 00 20 49 |STXZPI1+1..1.. I|
000011F0: 4E 58 00 D8 31 EC 00 20 53 54 58 5A 50 49 32 2B |NX..1.. STXZPI2+|
00001200: 31 00 E4 31 ED 00 20 4C 44 58 23 31 38 00 FE 31 |1..1.. LDX#18..1|
00001210: EE 00 5A 50 49 32 20 4C 44 41 24 30 30 3B C4 55 |..ZPI2 LDA$00;.U|
00001220: 4D 4D 59 57 45 52 54 00 0C 32 EF 00 20 4A 53 52 |MMYWERT..2.. JSR|
00001230: 57 52 49 54 45 00 18 32 F0 00 20 4C 44 58 23 31 |WRITE..2.. LDX#1|
00001240: 39 00 32 32 F1 00 5A 50 49 31 20 4C 44 41 24 30 |9.22..ZPI1 LDA$0|
00001250: 30 3B C4 55 4D 4D 59 57 45 52 54 00 40 32 F2 00 |0;.UMMYWERT.@2..|
00001260: 20 4A 53 52 57 52 49 54 45 00 4C 32 F3 00 20 4C | JSRWRITE.L2.. L|
00001270: 44 58 23 33 31 00 59 32 F4 00 20 4A 53 52 52 45 |DX#31.Y2.. JSRRE|
00001280: 41 44 00 62 32 F5 00 20 52 54 53 00 68 32 F6 00 |AD.b2.. RTS.h2..|
00001290: 3B 00 8A 32 F7 00 3B D4 41 42 45 4C 4C 45 4E 20 |;..2..;.ABELLEN |
000012A0: 46 BD 52 20 C2 59 54 45 55 4D 42 52 45 43 48 4E |F.R .YTEUMBRECHN|
000012B0: 55 4E 47 00 B6 32 F8 00 54 41 42 31 20 2E 42 59 |UNG..2..TAB1 .BY|
000012C0: 24 30 31 2C 24 30 32 2C 24 30 34 2C 24 30 38 2C |$01,$02,$04,$08,|
000012D0: 24 31 30 2C 24 32 30 2C 24 34 30 2C 24 38 30 00 |$10,$20,$40,$80.|
000012E0: E2 32 F9 00 54 41 42 32 20 2E 42 59 24 38 30 2C |.2..TAB2 .BY$80,|
000012F0: 24 34 30 2C 24 32 30 2C 24 31 30 2C 24 30 38 2C |$40,$20,$10,$08,|
00001300: 24 30 34 2C 24 30 32 2C 24 30 31 00 10 33 FA 00 |$04,$02,$01..3..|
00001310: 42 49 54 50 41 54 20 2E 42 59 24 30 30 2C 24 30 |BITPAT .BY$00,$0|
00001320: 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 |0,$00,$00,$00,$0|
00001330: 30 2C 24 30 30 2C 24 30 30 00 3E 33 FB 00 50 52 |0,$00,$00.>3..PR|
00001340: 54 42 59 54 20 2E 42 59 24 30 30 2C 24 30 30 2C |TBYT .BY$00,$00,|
00001350: 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 2C |$00,$00,$00,$00,|
00001360: 24 30 30 2C 24 30 30 00 46 33 FC 00 2E 45 4E 00 |$00,$00.F3...EN.|
00001370: 00 00 |.. |
X..... .OB"VDCHC.0C00,P,W"..... .LI1,4,2
.. .. .SY1,4,2.+ ..;80 ZEICHEN HARDCOPY
F.R:.M ..;C128 & EPSON(-KOMPATIBLE) & WI
ESEMANN-INTERFACE(-KOMPATIBLE).. ..;(C)
FRANK-CHRISTIAN KR.GEL.. ..; RABIENST
RA.E 52.. ..; 2862 WORPSWEDE.Q ..;
04792-894.W ..;.. ..;.. ..;.. .. .EQBIL
D=$FA..!.. .EQATTR=$FC..!.. .EQCHGN=$FE.
'!.. .EQCNTX=$8E.8!.. .EQCNTY=$8F.K!.. .
EQZCHGEN=$64._!.. .EQZEICHEN=$66.T!.. .E
QATTRIBUT=$67..!.. .EQBYTE=$68..!.. .EQR
EAD=$CDDA..!.. .EQWRITE=$CDCC..!.. .EQBS
OUT=$FFD2.T!.. .EQPRIMM=$FF7D..!.. .BA$0
C00..!..;..!..;.."..IRQON SEI;EINBINDEN
IN DEN INTERRUPT.'".. LDA#<(IRQ).5".. ST
A$0314.E" . LDA#>(IRQ).S"!. STA$0315.\""
. CLI.W"#. JSRPRIMM;TEXT DRUCKEN.."$. .B
Y$0E.."%. .TX"VDC-HARDCOPY MIT 'ALT'!"..
"&. .BY$07,$0D,$00.B"'. RTS.."(.IRQ LDA$
D3;EINSPRUNG NEUER IRQ..#). AND#$08;TEST
AUF'ALT'..#*. BEQNORMIRQ./#+. LDA#$65;I
RQ RESTAURIEREN,.U#,. STA$0314;UM FEHLER
FREIEN BETRIEB.R#-. LDA#$FA;SICHERZUSTEL
LEN..#.. STA$0315..#/. JSRSTART;HARDCOPY
.B#0. LDA#<(IRQ);NEUEN IRQ WIEDERHERSTEL
LEN.P#1. STA$0314..#2. LDA#>(IRQ)..#3. S
TA$0315..$4.NORMIRQ JMP$FA65..$5.START L
DA$FF00;HARDCOPY.C$6. STABANK+1;AKTUELLE
BANK RETTEN.P$7. LDA#$00.E$8. STA$FF00;
BANK15.R$9. LDX#$FF..$:.SAVE LDA$00,X;0-
PAGE RETTEN..$;. STA$0B00,X;IN DEN KASSE
TTENPUFFER.B$<. DEX.O$=. BNESAVE..$>. LD
X#28;ZEICHENGENERATORADRESSE..%?. JSRREA
D..%@. AND#$E0..%A. STACHGN.7%B. LDX#6;Z
EILEN AUF SCHIRM.D%C. JSRREAD.Q%D. STACN
TY.K%E. LDX#12;VIDEOSPEICHER.X%F. JSRREA
D..%G. STABILD+1..%H. LDX#20;ATTRIBUTSPE
ICHER..%I. JSRREAD..%J. STAATTR+1.L%K. L
DA#00.Y%L. STABILD..%M. STAATTR..%N. LDX
#25..%O. JSRREAD..&P. TAX..&Q. AND#$80.$
&R. BEQTEXTMD.I&S.GRAFIK JMPEXIT;HIER KE
INE GRAFIK.M&T.TEXTMD LDA#$20;ZWEI JSR-B
EFEHLE..&U. STAJMPA1;WERDEN INSTALLIERT.
.&V. LDA#$20..&W. STAJMPA2..&X. TXA.M&Y.
AND#$40;ATTRIBUTE AN?..&Z. BNEATTAN..'[
.ATTAUS LDA#$2C;WENN KEINE ATTRIBUTE,.%'
\. STAJMPA1;DANN ENTSPRECHENDE.F']. LDA#
$2C;ROUTINEN ABSCHALTEN.T'^. STAJMPA2.F'
_.ATTAN LDA#$7F.S'`. LDX#$04..'A. LDY#$0
1..'B. JSR$FFBA;SETLFS..'C. LDA#$00..'D.
JSR$FFBD;SETNAM.Q'E. JSR$FFC0;OPEN127,4
,1..'F. LDX#$7F..'G. JSR$FFC9;CMD127..(H
. JSRPRIMM;(F.R EPSON).I(I. .BY27,"3",24
,0;ZEILENVORSCHUB 24/216 ZOLL (ESC,"3",2
4).O(J.;.C(K.NEXTLINE LDA#80.P(L. STACNT
X..(M. JSRPRIMM;(640-PIXEL-GRAFIK F.R EP
SON)..(N. .BY27,"*",$04,<(640),>(640),0.
T(O.NEXTCHAR LDX#BILD..(P. JSRPEEK..(Q.
STAZEICHEN..(R. LDX#ATTR..)S. JSRPEEK..)
T. STAATTRIBUT.-)U. LDAZEICHEN.V)V. STAZ
CHGEN;ADRESSE F.R ZEICHENMUSTER..)W. LDA
#00;ZCHGEN=ZEICHEN*16+CHGN(+$1000 BEI 2.
ZEICHENSATZ)..)X. STAZCHGEN+1..)Y. ASLZC
HGEN.D)Z. ROLZCHGEN+1.S){. ASLZCHGEN..)|
. ROLZCHGEN+1..)}. ASLZCHGEN..*~. ROLZCH
GEN+1..*. ASLZCHGEN.$*.. ROLZCHGEN+1.1*
.. LDACHGN.:*.. CLC.K*.. ADCZCHGEN+1.\*.
. STAZCHGEN+1..*..JMPA1 JSRADD2ND;BEI AB
GESCHALTETEN ATTRIBUTEN 'BIT ADD2ND'..*.
. LDY#0..*..COPYLP LDX#ZCHGEN.I*.. JSRPE
EK.Z*.. STABITPAT,Y..*.. INY..*.. INCZCH
GEN..*.. CPY#08..+.. BNECOPYLP.L+..JMPA2
JSRBITMOD;BEI ABGESCHALTETEN ATTRIBUTEN
'BIT BITMOD'.U+..CLRBUF LDX#$07;DRUCKER
PUFFER L.SCHEN..+.. LDA#$00..+..CLRLP ST
APRTBYT,X..+.. DEX..+.. BPLCLRLP.Y+.. LD
Y#$07;BITMUSTER DRUCKFERTIG MACHEN..+..N
EWBYTE LDABITPAT,Y..+.. STABYTE..,.. LDX
#$07..,..NEWBIT LDABYTE.-,.. ANDTAB1,X.:
,.. BEQNULL.K,.. LDAPRTBYT,X.Z,.. ORATAB
2,Y.K,.. STAPRTBYT,X.X,..NULL DEX..,.. B
PLNEWBIT.., . DEY. ,.. BPLNEWBYTE..,.. L
DX#$07.I,..PRTLP LDAPRTBYT,X;DRUCK.W,..
JSRBSOUT..,.. DEX..,.. BPLPRTLP..-.. LDA
BILD;BILD=BILD+1..-.. CLC..-.. ADC#$01.*
-.. STABILD.9-.. LDABILD+1.F-.. ADC#$00.
U-.. STABILD+1.N-.. LDAATTR;ATTR=ATTR+1.
W-.. CLC..-.. ADC#$01..-.. STAATTR. -..
LDAATTR+1..-.. ADC#$00..-.. STAATTR+1.B-
..;..-.. LDXCNTX;SPALTENZ.HLER ERH.HEN..
-.. DEX..-.. STXCNTX..... BEQNEWLINE....
. JMPNEXTCHAR.;...NEWLINE LDA#$0D;NEUE Z
EILE.I... JSRBSOUT.V... LDXCNTY._... DEX
.L... STXCNTY.Z... BEQENDHC...A. JMPNEXT
LINE...B.ENDHC JSR$FFCC;CLRCH...C. LDA#$
7F.H.D. JSR$FFC3;CLOSE127.Y.E.EXIT LDX#$
FF...F.LOAD LDA$0B00,X;0-PAGE WIEDER../G
. STA$00,X;AUS KASSETTENPUFFER.,/H. DEX;
HOLEN.9/I. BNELOAD.Z/J.BANK LDA#00;00 IS
T DUMMYWERT../K. STA$FF00;ALTE KONFIGURA
TION WIEDERHERSTELLEN../L. RTS../M.;../N
.;.H/O.ADD2ND LDAATTRIBUT;GGF. UMSCHALTE
N../P. AND#$80;AUF 2. ZEICHENSATZ../Q. B
EQADDEND..0R. LDAZCHGEN+1..0S. CLC..0T.
ADC#$10./0U. STAZCHGEN+1.>0V.ADDEND RTS.
D0W.;.U0X.BITMOD LDAATTRIBUT;ATTRIBUTE B
ER.CKSICHTIGEN..0Y. AND#$20;UNTERSTREICH
EN. 0Z. BEQENDUND..0..UNDL LDA#$FF.B0..
STABITPAT+7.Y0..ENDUND LDAATTRIBUT..0..
AND#$40..0.. BEQENDREV..1.. LDX#7.!1..RE
VS LDABITPAT,X;INVERTIEREN..1.. EOR#$FF.
?1.. STABITPAT,X.H1.. DEX.U1.. BPLREVS.D
1..ENDREV RTS.Y1..;UPRG. VRAM-PEEK..1..;
EIN: X:ADRESSENINDEX(0-PAGE)..1..;AUS: A
:DATEN..1..PEEK STXZPI1+1.I1.. INX.X1..
STXZPI2+1..1.. LDX#18..1..ZPI2 LDA$00;DU
MMYWERT..2.. JSRWRITE..2.. LDX#19.22..ZP
I1 LDA$00;DUMMYWERT.@2.. JSRWRITE.L2.. L
DX#31.Y2.. JSRREAD.B2.. RTS.H2..;..2..;T
ABELLEN F.R BYTEUMBRECHNUNG..2..TAB1 .BY
$01,$02,$04,$08,$10,$20,$40,$80..2..TAB2
.BY$80,$40,$20,$10,$08,$04,$02,$01..3..
BITPAT .BY$00,$00,$00,$00,$00,$00,$00,$0
0.>3..PRTBYT .BY$00,$00,$00,$00,$00,$00,
$00,$00.F3...EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL