HIRES TRANS.SRC
FILE INFORMATION
FILENAME(S): HIRES TRANS.SRC
FILE TYPE(S): PRG
FILE SIZE: 5.1K
FIRST SEEN: 2025-11-30 01:12:59
APPEARS ON: 1 disk(s)
FILE HASH
32f4d32a1de615246a79828cbdeac00d1d2acee4bc5759d03ca586add8d5b07d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10210 SEITE A | HIRES TRANS.SRC | PRG | C64er | 20 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F FE 1F E8 03 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |......;*********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 00 24 20 F2 03 3B 2A 20 20 |*******.$ ..;* | 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 4A 20 | *.J | 00000050: FC 03 3B 2A 20 50 52 4F 47 52 41 4D 4D 20 4B 4F |..;* PROGRAMM KO| 00000060: 50 49 45 52 54 20 56 49 43 2D 47 52 41 46 49 4B |PIERT VIC-GRAFIK| 00000070: 20 20 2A 00 70 20 06 04 3B 2A 20 41 55 46 20 56 | *.p ..;* AUF V| 00000080: 44 43 2D 42 49 4C 44 53 43 48 49 52 4D 20 20 20 |DC-BILDSCHIRM | 00000090: 20 20 20 20 20 20 20 20 2A 00 96 20 10 04 3B 2A | *.. ..;*| 000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.| 000000C0: BC 20 1A 04 3B 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. ..;*----------| 000000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000000E0: 2D 2D 2D 2D 2A 00 E2 20 24 04 3B 2A 20 20 20 42 |----*.. $.;* B| 000000F0: 59 20 54 48 2E 20 53 54 45 47 4D 41 59 52 20 20 |Y TH. STEGMAYR | 00000100: 20 20 20 20 20 20 20 20 20 20 2A 00 08 21 2E 04 | *..!..| 00000110: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000130: 2A 00 0E 21 38 04 3B 00 14 21 42 04 3B 00 2F 21 |*..!8.;..!B.;./!| 00000140: 4C 04 20 2E 42 41 24 31 33 30 30 3B 53 54 41 52 |L. .BA$1300;STAR| 00000150: 54 41 44 52 45 53 53 45 00 49 21 56 04 20 2E 4F |TADRESSE.I!V. .O| 00000160: 42 22 48 49 52 45 53 20 54 52 41 4E 53 2C 50 2C |B"HIRES TRANS,P,| 00000170: 57 22 00 6F 21 60 04 3B 2D 2D 2D 2D 2D 2D 2D 2D |W".o!`.;--------| 00000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000190: 2D 2D 2D 2D 2D 2D 2D 2D 00 95 21 6A 04 3B 2A 2A |--------..!j.;**| 000001A0: 2A 2A 20 53 50 45 49 43 48 45 52 5A 45 4C 4C 45 |** SPEICHERZELLE| 000001B0: 4E 20 53 49 43 48 45 52 4E 20 2A 2A 2A 2A 00 AA |N SICHERN ****..| 000001C0: 21 74 04 20 53 45 49 3B 49 52 51 20 53 50 45 52 |!t. SEI;IRQ SPER| 000001D0: 52 45 4E 00 B7 21 7E 04 20 4C 44 58 23 24 30 30 |REN..!~. LDX#$00| 000001E0: 00 CA 21 88 04 4E 45 58 54 33 20 4C 44 41 24 30 |..!..NEXT3 LDA$0| 000001F0: 39 2C 58 00 D3 21 92 04 20 50 48 41 00 DC 21 9C |9,X..!.. PHA..!.| 00000200: 04 20 49 4E 58 00 E9 21 A6 04 20 43 50 58 23 24 |. INX..!.. CPX#$| 00000210: 30 39 00 F7 21 B0 04 20 42 4E 45 4E 45 58 54 33 |09..!.. BNENEXT3| 00000220: 00 1C 22 BA 04 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.."..;----------| 00000230: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000240: 2D 2D 2D 2D 2D 00 41 22 C4 04 3B 2A 2A 2A 2A 2A |-----.A"..;*****| 00000250: 20 42 49 54 4D 41 50 20 45 49 4E 53 43 48 41 4C | BITMAP EINSCHAL| 00000260: 54 45 4E 20 2A 2A 2A 2A 2A 2A 00 65 22 CE 04 3B |TEN ******.e"..;| 00000270: 20 55 4E 44 20 37 20 42 49 54 20 48 4F 52 49 5A | UND 7 BIT HORIZ| 00000280: 4F 4E 54 41 4C 20 53 43 52 4F 4C 4C 45 4E 00 72 |ONTAL SCROLLEN.r| 00000290: 22 D8 04 20 4C 44 58 23 24 31 39 00 7F 22 E2 04 |".. LDX#$19.."..| 000002A0: 20 4C 44 41 23 24 38 37 00 8D 22 EC 04 20 4A 53 | LDA#$87..".. JS| 000002B0: 52 24 43 44 43 43 00 B3 22 F6 04 3B 2D 2D 2D 2D |R$CDCC.."..;----| 000002C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000002D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 D8 22 00 |------------..".| 000002E0: 05 3B 2A 2A 2A 2A 2A 20 49 4E 54 49 41 4C 49 53 |.;***** INTIALIS| 000002F0: 49 45 52 55 4E 47 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |IERUNG *********| 00000300: 2A 00 EC 22 0A 05 20 4C 44 41 23 24 32 30 3B 5A |*..".. LDA#$20;Z| 00000310: 45 49 47 45 52 00 FC 22 14 05 20 53 54 41 24 30 |EIGER..".. STA$0| 00000320: 41 3B 41 55 46 00 0D 23 1E 05 20 4C 44 41 23 24 |A;AUF..#.. LDA#$| 00000330: 30 30 3B 56 49 43 00 1F 23 28 05 20 53 54 41 24 |00;VIC..#(. STA$| 00000340: 30 39 3B 48 49 52 45 53 00 2C 23 32 05 20 4C 44 |09;HIRES.,#2. LD| 00000350: 41 23 24 30 30 00 39 23 3C 05 20 4C 44 59 23 24 |A#$00.9#<. LDY#$| 00000360: 46 46 00 42 23 46 05 20 54 41 58 00 59 23 50 05 |FF.B#F. TAX.Y#P.| 00000370: 20 53 54 59 24 30 45 3B 5A 45 49 47 45 52 20 41 | STY$0E;ZEIGER A| 00000380: 55 46 00 70 23 5A 05 20 53 54 59 24 30 44 3B 56 |UF.p#Z. STY$0D;V| 00000390: 44 43 2D 42 49 54 4D 41 50 00 97 23 64 05 3B 20 |DC-BITMAP..#d.; | 000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003B0: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------| 000003C0: 00 B1 23 6E 05 20 53 54 41 24 30 42 3B 42 49 54 |..#n. STA$0B;BIT| 000003D0: 5A 41 45 48 4C 45 52 20 2D 38 00 CE 23 78 05 20 |ZAEHLER -8..#x. | 000003E0: 53 54 59 24 30 43 3B 42 59 54 45 5A 41 45 48 4C |STY$0C;BYTEZAEHL| 000003F0: 45 52 20 2D 32 35 35 00 E9 23 82 05 20 53 54 41 |ER -255..#.. STA| 00000400: 24 31 30 3B 42 59 54 45 5A 41 45 48 4C 45 52 20 |$10;BYTEZAEHLER | 00000410: 2D 38 00 F5 23 8C 05 20 53 54 41 24 31 31 00 01 |-8..#.. STA$11..| 00000420: 24 96 05 20 53 54 41 24 31 32 00 1A 24 A0 05 20 |$.. STA$12..$.. | 00000430: 50 48 41 3B 4E 55 4C 4C 20 41 55 46 20 53 54 41 |PHA;NULL AUF STA| 00000440: 50 45 4C 00 40 24 AA 05 3B 2D 2D 2D 2D 2D 2D 2D |PEL.@$..;-------| 00000450: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000460: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 51 24 B4 05 4E 45 |---------.Q$..NE| 00000470: 58 54 32 20 49 4E 43 24 31 31 00 5F 24 BE 05 20 |XT2 INC$11._$.. | 00000480: 42 45 51 4D 41 52 4B 34 00 71 24 C8 05 4D 41 52 |BEQMARK4.q$..MAR| 00000490: 4B 31 32 20 49 4E 43 24 31 30 00 7D 24 D2 05 20 |K12 INC$10.}$.. | 000004A0: 49 4E 43 24 30 43 00 9B 24 DC 05 20 4C 44 59 24 |INC$0C..$.. LDY$| 000004B0: 30 43 3B 42 59 54 45 5A 41 45 48 4C 45 52 20 48 |0C;BYTEZAEHLER H| 000004C0: 4F 4C 45 4E 00 AB 24 E6 05 20 4C 44 41 28 24 30 |OLEN..$.. LDA($0| 000004D0: 39 29 2C 59 00 C4 24 F0 05 20 53 54 41 24 30 46 |9),Y..$.. STA$0F| 000004E0: 3B 57 45 52 54 20 53 49 43 48 45 52 4E 00 D9 24 |;WERT SICHERN..$| 000004F0: FA 05 20 43 50 59 23 24 46 46 3B 59 3D 32 35 35 |.. CPY#$FF;Y=255| 00000500: 3F 3F 00 E7 24 04 06 20 42 43 43 4E 45 58 54 31 |??..$.. BCCNEXT1| 00000510: 00 F3 24 0E 06 20 49 4E 43 24 30 41 00 11 25 18 |..$.. INC$0A..%.| 00000520: 06 4E 45 58 54 31 20 49 4E 43 24 30 42 3B 42 49 |.NEXT1 INC$0B;BI| 00000530: 54 5A 41 45 48 4C 45 52 2B 31 00 28 25 22 06 20 |TZAEHLER+1.(%". | 00000540: 4C 44 41 24 30 46 3B 57 45 52 54 20 48 4F 4C 45 |LDA$0F;WERT HOLE| 00000550: 4E 00 3F 25 2C 06 20 41 53 4C 3B 42 49 54 37 20 |N.?%,. ASL;BIT7 | 00000560: 49 4E 20 43 41 52 52 59 00 58 25 36 06 20 53 54 |IN CARRY.X%6. ST| 00000570: 41 24 30 46 3B 57 45 52 54 20 53 49 43 48 45 52 |A$0F;WERT SICHER| 00000580: 4E 00 66 25 40 06 20 42 43 53 4D 41 52 4B 31 00 |N.f%@. BCSMARK1.| 00000590: 6F 25 4A 06 20 50 4C 41 00 7E 25 54 06 20 41 4E |o%J. PLA.~%T. AN| 000005A0: 44 54 41 42 31 2C 58 00 8C 25 5E 06 4D 41 52 4B |DTAB1,X..%^.MARK| 000005B0: 32 20 50 48 41 00 A4 25 68 06 20 49 4E 58 3B 34 |2 PHA..%h. INX;4| 000005C0: 2D 42 49 54 5A 41 45 48 4C 45 52 2B 31 00 B7 25 |-BITZAEHLER+1..%| 000005D0: 72 06 20 43 50 58 23 24 30 34 3B 58 3D 34 3F 3F |r. CPX#$04;X=4??| 000005E0: 00 C5 25 7C 06 20 42 45 51 4D 41 52 4B 39 00 D3 |..%|. BEQMARK9..| 000005F0: 25 86 06 20 4A 4D 50 4E 45 58 54 31 00 E1 25 90 |%.. JMPNEXT1..%.| 00000600: 06 4D 41 52 4B 31 20 50 4C 41 00 F0 25 9A 06 20 |.MARK1 PLA..%.. | 00000610: 4F 52 41 54 41 42 32 2C 58 00 FE 25 A4 06 20 4A |ORATAB2,X..%.. J| 00000620: 4D 50 4D 41 52 4B 32 00 0F 26 AE 06 4D 41 52 4B |MPMARK2..&..MARK| 00000630: 39 20 49 4E 43 24 30 44 00 1D 26 B8 06 20 42 4E |9 INC$0D..&.. BN| 00000640: 45 4D 41 52 4B 35 00 29 26 C2 06 20 49 4E 43 24 |EMARK5.)&.. INC$| 00000650: 30 45 00 3D 26 CC 06 4D 41 52 4B 35 20 4A 53 52 |0E.=&..MARK5 JSR| 00000660: 4D 41 52 4B 33 30 00 51 26 D6 06 20 50 4C 41 3B |MARK30.Q&.. PLA;| 00000670: 57 45 52 54 20 48 4F 4C 45 4E 00 5F 26 E0 06 20 |WERT HOLEN._&.. | 00000680: 4A 53 52 24 43 44 43 41 00 85 26 EA 06 3B 2A 2A |JSR$CDCA..&..;**| 00000690: 2A 2A 2A 2A 2A 20 20 45 4E 44 45 20 3F 3F 3F 20 |***** ENDE ??? | 000006A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 92 |**************..| 000006B0: 26 F4 06 20 4C 44 41 23 24 38 30 00 A3 26 FE 06 |&.. LDA#$80..&..| 000006C0: 20 50 48 41 3B 4C 4F 57 42 59 54 45 00 BB 26 08 | PHA;LOWBYTE..&.| 000006D0: 07 20 43 4D 50 24 30 44 3B 56 45 52 47 4C 45 49 |. CMP$0D;VERGLEI| 000006E0: 43 48 45 4E 00 CA 26 12 07 20 42 4E 45 4D 41 52 |CHEN..&.. BNEMAR| 000006F0: 4B 31 31 00 E0 26 1C 07 20 4C 44 41 23 24 33 45 |K11..&.. LDA#$3E| 00000700: 3B 48 49 47 48 42 59 54 45 00 F8 26 26 07 20 43 |;HIGHBYTE..&&. C| 00000710: 4D 50 24 30 45 3B 56 45 52 47 4C 45 49 43 48 45 |MP$0E;VERGLEICHE| 00000720: 4E 00 06 27 30 07 20 42 45 51 4D 41 52 4B 37 00 |N..'0. BEQMARK7.| 00000730: 2C 27 3A 07 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |,':.;-----------| 00000740: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000750: 2D 2D 2D 2D 2D 00 3F 27 44 07 4D 41 52 4B 31 31 |-----.?'D.MARK11| 00000760: 20 4C 44 41 23 24 30 38 00 5A 27 4E 07 20 43 4D | LDA#$08.Z'N. CM| 00000770: 50 24 30 42 3B 42 49 54 5A 41 45 48 4C 45 52 3D |P$0B;BITZAEHLER=| 00000780: 38 3F 3F 00 68 27 58 07 20 42 4E 45 4D 41 52 4B |8??.h'X. BNEMARK| 00000790: 38 00 80 27 62 07 20 4C 44 41 23 24 30 30 3B 42 |8..'b. LDA#$00;B| 000007A0: 49 54 5A 41 45 48 4C 45 52 00 9A 27 6C 07 20 53 |ITZAEHLER..'l. S| 000007B0: 54 41 24 30 42 3B 5A 55 52 55 45 43 4B 53 45 54 |TA$0B;ZURUECKSET| 000007C0: 5A 45 4E 00 C0 27 76 07 3B 20 20 20 20 20 20 20 |ZEN..'v.; | 000007D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007E0: 20 2D 2D 2D 2D 2D 2D 2D 2D 00 D4 27 80 07 20 4C | --------..'.. L| 000007F0: 44 41 24 31 30 3B 50 52 55 45 46 45 4E 00 E4 27 |DA$10;PRUEFEN..'| 00000800: 8A 07 20 43 4D 50 23 24 30 38 3B 4F 42 00 00 28 |.. CMP#$08;OB..(| 00000810: 94 07 20 42 45 51 4D 41 52 4B 31 30 3B 53 55 42 |.. BEQMARK10;SUB| 00000820: 54 52 41 48 49 45 52 45 4E 00 21 28 9E 07 3B 2A |TRAHIEREN.!(..;*| 00000830: 2A 2A 2A 2A 20 37 38 20 41 44 44 49 45 52 45 4E |**** 78 ADDIEREN| 00000840: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2D 28 A8 07 20 | *********.-(.. | 00000850: 4C 44 41 24 30 44 00 36 28 B2 07 20 43 4C 43 00 |LDA$0D.6(.. CLC.| 00000860: 43 28 BC 07 20 41 44 43 23 24 34 45 00 4F 28 C6 |C(.. ADC#$4E.O(.| 00000870: 07 20 53 54 41 24 30 44 00 68 28 D0 07 3B 20 20 |. STA$0D.h(..; | 00000880: 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------| 00000890: 2D 00 76 28 DA 07 20 42 43 43 4D 41 52 4B 33 00 |-.v(.. BCCMARK3.| 000008A0: 82 28 E4 07 20 49 4E 43 24 30 45 00 94 28 EE 07 |.(.. INC$0E..(..| 000008B0: 4D 41 52 4B 33 20 4C 44 58 23 24 30 30 00 A2 28 |MARK3 LDX#$00..(| 000008C0: F8 07 20 4A 4D 50 4E 45 58 54 32 00 CF 28 02 08 |.. JMPNEXT2..(..| 000008D0: 4D 41 52 4B 38 20 4C 44 58 23 24 30 30 3B 34 2D |MARK8 LDX#$00;4-| 000008E0: 42 49 54 5A 41 45 48 4C 45 52 20 5A 55 52 55 45 |BITZAEHLER ZURUE| 000008F0: 43 4B 53 45 54 5A 45 4E 00 FA 28 0C 08 20 4A 4D |CKSETZEN..(.. JM| 00000900: 50 4E 45 58 54 31 3B 53 43 48 4C 45 49 46 45 20 |PNEXT1;SCHLEIFE | 00000910: 4E 4F 43 48 4D 41 4C 20 44 55 52 43 48 4C 41 55 |NOCHMAL DURCHLAU| 00000920: 46 45 4E 00 0B 29 16 08 4D 41 52 4B 34 20 49 4E |FEN..)..MARK4 IN| 00000930: 43 24 31 32 00 1A 29 20 08 20 4A 4D 50 4D 41 52 |C$12..) . JMPMAR| 00000940: 4B 31 32 00 2D 29 2A 08 4D 41 52 4B 31 30 20 4C |K12.-)*.MARK10 L| 00000950: 44 41 23 24 34 30 00 39 29 34 08 20 43 4D 50 24 |DA#$40.9)4. CMP$| 00000960: 31 31 00 48 29 3E 08 20 42 4E 45 4D 41 52 4B 31 |11.H)>. BNEMARK1| 00000970: 33 00 55 29 48 08 20 4C 44 41 23 24 30 31 00 61 |3.U)H. LDA#$01.a| 00000980: 29 52 08 20 43 4D 50 24 31 32 00 70 29 5C 08 20 |)R. CMP$12.p)\. | 00000990: 42 45 51 4D 41 52 4B 31 34 00 90 29 66 08 3B 2A |BEQMARK14..)f.;*| 000009A0: 2A 2A 2A 20 35 36 30 20 53 55 42 54 52 41 48 49 |*** 560 SUBTRAHI| 000009B0: 45 52 45 4E 20 2A 2A 2A 2A 00 A2 29 70 08 4D 41 |EREN ****..)p.MA| 000009C0: 52 4B 31 33 20 4C 44 41 24 30 44 00 AB 29 7A 08 |RK13 LDA$0D..)z.| 000009D0: 20 53 45 43 00 B8 29 84 08 20 53 42 43 23 24 33 | SEC..).. SBC#$3| 000009E0: 30 00 C4 29 8E 08 20 53 54 41 24 30 44 00 D0 29 |0..).. STA$0D..)| 000009F0: 98 08 20 4C 44 41 24 30 45 00 D9 29 A2 08 20 53 |.. LDA$0E..).. S| 00000A00: 45 43 00 E6 29 AC 08 20 53 42 43 23 24 30 32 00 |EC..).. SBC#$02.| 00000A10: F2 29 B6 08 20 53 54 41 24 30 45 00 0A 2A C0 08 |.).. STA$0E..*..| 00000A20: 3B 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D |; ------| 00000A30: 2D 2D 2D 00 1D 2A CA 08 4D 41 52 4B 31 35 20 4C |---..*..MARK15 L| 00000A40: 44 58 23 24 30 30 00 45 2A D4 08 20 53 54 58 24 |DX#$00.E*.. STX$| 00000A50: 31 30 3B 38 2D 42 59 54 45 5A 41 45 48 4C 45 52 |10;8-BYTEZAEHLER| 00000A60: 20 5A 55 52 55 45 43 4B 53 45 54 5A 45 4E 00 53 | ZURUECKSETZEN.S| 00000A70: 2A DE 08 20 4A 4D 50 4E 45 58 54 32 00 66 2A E8 |*.. JMPNEXT2.f*.| 00000A80: 08 4D 41 52 4B 31 34 20 4C 44 41 23 24 30 30 00 |.MARK14 LDA#$00.| 00000A90: 72 2A F2 08 20 53 54 41 24 31 31 00 7E 2A FC 08 |r*.. STA$11.~*..| 00000AA0: 20 53 54 41 24 31 32 00 8D 2A 06 09 20 4A 4D 50 | STA$12..*.. JMP| 00000AB0: 4D 41 52 4B 31 35 00 B2 2A 10 09 3B 20 2A 2A 2A |MARK15..*..; ***| 00000AC0: 2A 20 53 50 45 49 43 48 45 52 5A 45 4C 4C 45 4E |* SPEICHERZELLEN| 00000AD0: 49 4E 48 41 4C 54 45 2A 2A 2A 2A 00 D7 2A 1A 09 |INHALTE****..*..| 00000AE0: 3B 20 2A 2A 2A 2A 2A 2A 2A 20 57 49 45 44 45 52 |; ******* WIEDER| 00000AF0: 48 45 52 53 54 45 4C 4C 45 4E 20 2A 2A 2A 2A 2A |HERSTELLEN *****| 00000B00: 00 E5 2A 24 09 4D 41 52 4B 37 20 50 4C 41 00 F2 |..*$.MARK7 PLA..| 00000B10: 2A 2E 09 20 4C 44 58 23 24 30 39 00 00 2B 38 09 |*.. LDX#$09..+8.| 00000B20: 4E 45 58 54 34 20 50 4C 41 00 0E 2B 42 09 20 53 |NEXT4 PLA..+B. S| 00000B30: 54 41 24 30 39 2C 58 00 17 2B 4C 09 20 44 45 58 |TA$09,X..+L. DEX| 00000B40: 00 25 2B 56 09 20 42 4E 45 4E 45 58 54 34 00 3D |.%+V. BNENEXT4.=| 00000B50: 2B 60 09 3B 20 20 20 20 20 20 20 20 20 2D 2D 2D |+`.; ---| 00000B60: 2D 2D 2D 2D 2D 2D 00 53 2B 6A 09 20 43 4C 49 3B |------.S+j. CLI;| 00000B70: 49 52 51 20 5A 55 4C 41 53 53 45 4E 00 6D 2B 74 |IRQ ZULASSEN.m+t| 00000B80: 09 20 52 54 53 3B 5A 55 52 55 45 43 4B 20 49 4E |. RTS;ZURUECK IN| 00000B90: 20 42 41 53 49 43 00 89 2B 7E 09 54 41 42 31 20 | BASIC..+~.TAB1 | 00000BA0: 2E 42 59 24 33 46 2C 24 43 46 2C 24 46 33 2C 24 |.BY$3F,$CF,$F3,$| 00000BB0: 46 43 00 A5 2B 88 09 54 41 42 32 20 2E 42 59 24 |FC..+..TAB2 .BY$| 00000BC0: 43 30 2C 24 33 30 2C 24 30 43 2C 24 30 33 00 CA |C0,$30,$0C,$03..| 00000BD0: 2B 92 09 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |+..;------------| 00000BE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000BF0: 2D 2D 2D 00 E5 2B 9C 09 3B 20 20 20 20 20 48 49 |---..+..; HI| 00000C00: 45 52 20 42 45 47 49 4E 4E 54 20 44 49 45 00 04 |ER BEGINNT DIE..| 00000C10: 2C A6 09 3B 20 46 41 52 42 55 45 42 45 52 54 52 |,..; FARBUEBERTR| 00000C20: 41 47 55 4E 47 53 52 4F 55 54 49 4E 45 00 29 2C |AGUNGSROUTINE.),| 00000C30: B0 09 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..;-------------| 00000C40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000C50: 2D 2D 00 3E 2C BA 09 20 53 45 49 3B 49 52 51 20 |--.>,.. SEI;IRQ | 00000C60: 53 50 45 52 52 45 4E 00 4A 2C C4 09 20 4C 44 41 |SPERREN.J,.. LDA| 00000C70: 24 30 39 00 53 2C CE 09 20 50 48 41 00 5F 2C D8 |$09.S,.. PHA._,.| 00000C80: 09 20 4C 44 41 24 30 41 00 68 2C E2 09 20 50 48 |. LDA$0A.h,.. PH| 00000C90: 41 00 74 2C EC 09 20 4C 44 41 24 30 44 00 7D 2C |A.t,.. LDA$0D.},| 00000CA0: F6 09 20 50 48 41 00 89 2C 00 0A 20 4C 44 41 24 |.. PHA..,.. LDA$| 00000CB0: 30 45 00 92 2C 0A 0A 20 50 48 41 00 9E 2C 14 0A |0E..,.. PHA..,..| 00000CC0: 20 4C 44 41 24 30 46 00 A7 2C 1E 0A 20 50 48 41 | LDA$0F..,.. PHA| 00000CD0: 00 CD 2C 28 0A 3B 2A 2A 2A 2A 2A 2A 2A 2A 20 53 |..,(.;******** S| 00000CE0: 54 41 52 54 41 44 52 45 53 53 45 20 2A 2A 2A 2A |TARTADRESSE ****| 00000CF0: 2A 2A 2A 2A 2A 2A 00 F3 2C 32 0A 3B 2A 2A 2A 20 |******..,2.;*** | 00000D00: 44 45 53 20 41 54 54 52 49 42 55 54 2D 52 41 4D |DES ATTRIBUT-RAM| 00000D10: 20 53 45 54 5A 45 4E 20 2A 2A 2A 2A 00 00 2D 3C | SETZEN ****..-<| 00000D20: 0A 20 4C 44 58 23 24 31 34 00 0D 2D 46 0A 20 4C |. LDX#$14..-F. L| 00000D30: 44 41 23 24 33 38 00 1B 2D 50 0A 20 4A 53 52 24 |DA#$38..-P. JSR$| 00000D40: 43 44 43 43 00 28 2D 5A 0A 20 4C 44 58 23 24 31 |CDCC.(-Z. LDX#$1| 00000D50: 35 00 35 2D 64 0A 20 4C 44 41 23 24 30 30 00 43 |5.5-d. LDA#$00.C| 00000D60: 2D 6E 0A 20 4A 53 52 24 43 44 43 43 00 69 2D 78 |-n. JSR$CDCC.i-x| 00000D70: 0A 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00000D80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000D90: 2D 2D 00 81 2D 82 0A 20 4C 44 58 23 24 31 39 3B |--..-.. LDX#$19;| 00000DA0: 56 44 43 2D 52 45 47 2E 32 35 00 8E 2D 8C 0A 20 |VDC-REG.25..-.. | 00000DB0: 4C 44 41 23 24 43 37 00 9C 2D 96 0A 20 4A 53 52 |LDA#$C7..-.. JSR| 00000DC0: 24 43 44 43 43 00 B3 2D A0 0A 20 4C 44 58 23 24 |$CDCC..-.. LDX#$| 00000DD0: 30 36 3B 56 44 43 2D 52 45 47 2E 36 00 C0 2D AA |06;VDC-REG.6..-.| 00000DE0: 0A 20 4C 44 41 23 24 31 36 00 CE 2D B4 0A 20 4A |. LDA#$16..-.. J| 00000DF0: 53 52 24 43 44 43 43 00 F4 2D BE 0A 3B 2D 2D 2D |SR$CDCC..-..;---| 00000E00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 19 2E |-------------...| 00000E20: C8 0A 3B 2A 2A 2A 2A 20 5A 45 49 47 45 52 20 49 |..;**** ZEIGER I| 00000E30: 4E 54 49 41 4C 49 45 53 49 45 52 45 4E 20 2A 2A |NTIALIESIEREN **| 00000E40: 2A 2A 00 26 2E D2 0A 20 4C 44 41 23 24 30 30 00 |**.&... LDA#$00.| 00000E50: 32 2E DC 0A 20 53 54 41 24 30 39 00 3F 2E E6 0A |2... STA$09.?...| 00000E60: 20 4C 44 41 23 24 31 43 00 4B 2E F0 0A 20 53 54 | LDA#$1C.K... ST| 00000E70: 41 24 30 41 00 58 2E FA 0A 20 4C 44 41 23 24 33 |A$0A.X... LDA#$3| 00000E80: 37 00 64 2E 04 0B 20 53 54 41 24 30 45 00 71 2E |7.d... STA$0E.q.| 00000E90: 22 0B 20 4C 44 59 23 24 46 46 00 7D 2E 27 0B 20 |". LDY#$FF.}.'. | 00000EA0: 53 54 59 24 30 44 00 A3 2E 2C 0B 3B 2D 2D 2D 2D |STY$0D...,.;----| 00000EB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000EC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 B2 2E 36 |------------...6| 00000ED0: 0B 4D 41 52 4B 32 32 20 49 4E 59 00 E0 2E 40 0B |.MARK22 INY...@.| 00000EE0: 20 4C 44 41 28 24 30 39 29 2C 59 3B 46 41 52 42 | LDA($09),Y;FARB| 00000EF0: 57 45 52 54 20 56 4F 4E 20 56 49 43 2D 42 49 54 |WERT VON VIC-BIT| 00000F00: 4D 41 50 20 4C 41 44 45 4E 00 F9 2E 4A 0B 20 53 |MAP LADEN...J. S| 00000F10: 54 41 24 30 46 3B 57 45 52 54 20 53 49 43 48 45 |TA$0F;WERT SICHE| 00000F20: 52 4E 00 0E 2F 54 0B 20 43 50 59 23 24 46 46 3B |RN../T. CPY#$FF;| 00000F30: 59 3D 32 35 35 3F 3F 00 1D 2F 5E 0B 20 42 43 43 |Y=255??../^. BCC| 00000F40: 4D 41 52 4B 32 31 00 40 2F 68 0B 20 49 4E 43 24 |MARK21.@/h. INC$| 00000F50: 30 41 3B 56 49 44 45 4F 2D 52 41 4D 2D 48 49 47 |0A;VIDEO-RAM-HIG| 00000F60: 48 42 59 54 45 20 2B 20 31 00 67 2F 72 0B 4D 41 |HBYTE + 1.g/r.MA| 00000F70: 52 4B 32 31 20 49 4E 43 24 30 44 3B 56 44 43 2D |RK21 INC$0D;VDC-| 00000F80: 41 54 54 52 49 42 55 54 2D 52 41 4D 20 2B 20 31 |ATTRIBUT-RAM + 1| 00000F90: 00 76 2F 7C 0B 20 42 45 51 4D 41 52 4B 33 34 00 |.v/|. BEQMARK34.| 00000FA0: 85 2F 86 0B 20 4A 4D 50 4D 41 52 4B 33 33 00 97 |./.. JMPMARK33..| 00000FB0: 2F 90 0B 4D 41 52 4B 33 34 20 49 4E 43 24 30 45 |/..MARK34 INC$0E| 00000FC0: 00 C2 2F 9A 0B 4D 41 52 4B 33 33 20 41 4E 44 23 |../..MARK33 AND#| 00000FD0: 24 46 30 3B 55 4E 54 45 52 45 53 20 4E 49 42 42 |$F0;UNTERES NIBB| 00000FE0: 4C 45 20 4C 4F 45 53 43 48 45 4E 00 CB 2F A4 0B |LE LOESCHEN../..| 00000FF0: 20 4C 53 52 00 D4 2F AE 0B 20 4C 53 52 00 DD 2F | LSR../.. LSR../| 00001000: B8 0B 20 4C 53 52 00 E6 2F C2 0B 20 4C 53 52 00 |.. LSR../.. LSR.| 00001010: EF 2F CC 0B 20 54 41 58 00 FE 2F D6 0B 20 4C 44 |./.. TAX../.. LD| 00001020: 41 54 41 42 33 2C 58 00 07 30 E0 0B 20 50 48 41 |ATAB3,X..0.. PHA| 00001030: 00 1E 30 EA 0B 20 4C 44 41 24 30 46 3B 57 45 52 |..0.. LDA$0F;WER| 00001040: 54 20 48 4F 4C 45 4E 00 42 30 F4 0B 20 41 4E 44 |T HOLEN.B0.. AND| 00001050: 23 24 30 46 3B 4F 42 45 52 45 53 20 4E 49 42 42 |#$0F;OBERES NIBB| 00001060: 4C 45 20 4C 4F 45 53 43 48 45 4E 00 4B 30 FE 0B |LE LOESCHEN.K0..| 00001070: 20 54 41 58 00 5A 30 08 0C 20 4C 44 41 54 41 42 | TAX.Z0.. LDATAB| 00001080: 33 2C 58 00 63 30 12 0C 20 41 53 4C 00 6C 30 1C |3,X.c0.. ASL.l0.| 00001090: 0C 20 41 53 4C 00 75 30 26 0C 20 41 53 4C 00 7E |. ASL.u0&. ASL.~| 000010A0: 30 30 0C 20 41 53 4C 00 8A 30 3A 0C 20 53 54 41 |00. ASL..0:. STA| 000010B0: 24 30 46 00 93 30 44 0C 20 50 4C 41 00 C4 30 4E |$0F..0D. PLA..0N| 000010C0: 0C 20 4F 52 41 24 30 46 3B 42 45 49 44 45 20 4E |. ORA$0F;BEIDE N| 000010D0: 49 42 42 4C 45 20 5A 55 20 45 49 4E 45 4D 20 42 |IBBLE ZU EINEM B| 000010E0: 59 54 45 20 56 45 52 42 49 4E 44 45 4E 00 CD 30 |YTE VERBINDEN..0| 000010F0: 58 0C 20 50 48 41 00 DC 30 62 0C 20 4A 53 52 4D |X. PHA..0b. JSRM| 00001100: 41 52 4B 33 30 00 E5 30 6C 0C 20 50 4C 41 00 EE |ARK30..0l. PLA..| 00001110: 30 76 0C 20 50 48 41 00 FC 30 80 0C 20 4A 53 52 |0v. PHA..0.. JSR| 00001120: 24 43 44 43 41 00 08 31 8A 0C 20 49 4E 43 24 30 |$CDCA..1.. INC$0| 00001130: 44 00 17 31 94 0C 20 42 4E 45 4D 41 52 4B 33 31 |D..1.. BNEMARK31| 00001140: 00 23 31 9E 0C 20 49 4E 43 24 30 45 00 38 31 A8 |.#1.. INC$0E.81.| 00001150: 0C 4D 41 52 4B 33 31 20 4A 53 52 4D 41 52 4B 33 |.MARK31 JSRMARK3| 00001160: 30 00 41 31 B2 0C 20 50 4C 41 00 4F 31 BC 0C 20 |0.A1.. PLA.O1.. | 00001170: 4A 53 52 24 43 44 43 41 00 74 31 C6 0C 3B 2A 2A |JSR$CDCA.t1..;**| 00001180: 2A 2A 2A 2A 2A 20 20 45 4E 44 45 20 3F 3F 3F 20 |***** ENDE ??? | 00001190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 89 31 |*************..1| 000011A0: D0 0C 20 4C 44 41 23 24 43 46 3B 4C 4F 57 42 59 |.. LDA#$CF;LOWBY| 000011B0: 54 45 00 A1 31 DA 0C 20 43 4D 50 24 30 44 3B 56 |TE..1.. CMP$0D;V| 000011C0: 45 52 47 4C 45 49 43 48 45 4E 00 B0 31 E4 0C 20 |ERGLEICHEN..1.. | 000011D0: 42 4E 45 4D 41 52 4B 33 32 00 C6 31 EE 0C 20 4C |BNEMARK32..1.. L| 000011E0: 44 41 23 24 33 46 3B 48 49 47 48 42 59 54 45 00 |DA#$3F;HIGHBYTE.| 000011F0: DE 31 F8 0C 20 43 4D 50 24 30 45 3B 56 45 52 47 |.1.. CMP$0E;VERG| 00001200: 4C 45 49 43 48 45 4E 00 EB 31 02 0D 20 42 45 51 |LEICHEN..1.. BEQ| 00001210: 45 4E 44 45 00 00 32 0C 0D 4D 41 52 4B 33 32 20 |ENDE..2..MARK32 | 00001220: 4A 4D 50 4D 41 52 4B 32 32 00 25 32 16 0D 3B 20 |JMPMARK22.%2..; | 00001230: 2A 2A 2A 2A 20 53 50 45 49 43 48 45 52 5A 45 4C |**** SPEICHERZEL| 00001240: 4C 45 4E 49 4E 48 41 4C 54 45 2A 2A 2A 2A 00 4A |LENINHALTE****.J| 00001250: 32 20 0D 3B 20 2A 2A 2A 2A 2A 2A 2A 20 57 49 45 |2 .; ******* WIE| 00001260: 44 45 52 48 45 52 53 54 45 4C 4C 45 4E 20 2A 2A |DERHERSTELLEN **| 00001270: 2A 2A 2A 00 57 32 2A 0D 45 4E 44 45 20 50 4C 41 |***.W2*.ENDE PLA| 00001280: 00 63 32 34 0D 20 53 54 41 24 30 46 00 6C 32 3E |.c24. STA$0F.l2>| 00001290: 0D 20 50 4C 41 00 78 32 48 0D 20 53 54 41 24 30 |. PLA.x2H. STA$0| 000012A0: 45 00 81 32 52 0D 20 50 4C 41 00 8D 32 5C 0D 20 |E..2R. PLA..2\. | 000012B0: 53 54 41 24 30 44 00 96 32 66 0D 20 50 4C 41 00 |STA$0D..2f. PLA.| 000012C0: A2 32 70 0D 20 53 54 41 24 30 41 00 AB 32 7A 0D |.2p. STA$0A..2z.| 000012D0: 20 50 4C 41 00 B7 32 84 0D 20 53 54 41 24 30 39 | PLA..2.. STA$09| 000012E0: 00 C0 32 8E 0D 20 43 4C 49 00 C9 32 98 0D 20 52 |..2.. CLI..2.. R| 000012F0: 54 53 00 EE 32 A2 0D 3B 2A 2A 2A 2A 20 46 41 52 |TS..2..;**** FAR| 00001300: 42 5A 55 4F 52 44 4E 55 4E 47 53 54 41 42 45 4C |BZUORDNUNGSTABEL| 00001310: 4C 45 20 2A 2A 2A 2A 00 26 33 AC 0D 54 41 42 33 |LE ****.&3..TAB3| 00001320: 20 2E 42 59 24 30 30 2C 24 30 46 2C 24 30 38 2C | .BY$00,$0F,$08,| 00001330: 24 30 34 2C 24 30 42 2C 24 30 34 2C 24 30 32 2C |$04,$0B,$04,$02,| 00001340: 24 30 44 2C 24 30 43 2C 24 30 43 2C 24 30 39 00 |$0D,$0C,$0C,$09.| 00001350: 42 33 B6 0D 20 2E 42 59 24 30 31 2C 24 30 31 2C |B3.. .BY$01,$01,| 00001360: 24 30 35 2C 24 30 33 2C 24 30 45 00 8C 33 C0 0D |$05,$03,$0E..3..| 00001370: 3B 2A 2A 2A 52 4F 55 54 49 4E 45 20 5A 55 4D 20 |;***ROUTINE ZUM | 00001380: 45 49 4E 53 54 45 4C 4C 45 4E 20 56 4F 4E 2A 2A |EINSTELLEN VON**| 00001390: 2A 20 32 39 39 37 20 2D 3B 20 55 50 44 41 54 45 |* 2997 -; UPDATE| 000013A0: 2D 48 49 47 48 42 59 54 45 20 55 4E 44 20 4C 4F |-HIGHBYTE UND LO| 000013B0: 57 42 59 54 45 00 AA 33 CA 0D 4D 41 52 4B 33 30 |WBYTE..3..MARK30| 000013C0: 20 4C 44 58 23 24 31 32 3B 56 44 43 2D 52 45 47 | LDX#$12;VDC-REG| 000013D0: 2E 31 38 00 B6 33 D4 0D 20 4C 44 41 24 30 45 00 |.18..3.. LDA$0E.| 000013E0: C4 33 DE 0D 20 4A 53 52 24 43 44 43 43 00 DC 33 |.3.. JSR$CDCC..3| 000013F0: E8 0D 20 4C 44 58 23 24 31 33 3B 56 44 43 2D 52 |.. LDX#$13;VDC-R| 00001400: 45 47 2E 31 39 00 E8 33 F2 0D 20 4C 44 41 24 30 |EG.19..3.. LDA$0| 00001410: 44 00 F6 33 FC 0D 20 4A 53 52 24 43 44 43 43 00 |D..3.. JSR$CDCC.| 00001420: FF 33 06 0E 20 52 54 53 00 08 34 10 0E 20 2E 45 |.3.. RTS..4.. .E| 00001430: 4E 00 00 00 |N... |
X.....;********************************.
$ ..;* *.J
..;* PROGRAMM KOPIERT VIC-GRAFIK *.P ..
;* AUF VDC-BILDSCHIRM *.. ..;*
*.. ..;*--
----------------------------*.. $.;* B
Y TH. STEGMAYR *..!..;*******
*************************..!8.;..!B.;./!
L. .BA$1300;STARTADRESSE.I!V. .OB"HIRES
TRANS,P,W".O!`.;------------------------
--------..!J.;**** SPEICHERZELLEN SICHER
N ****..!T. SEI;IRQ SPERREN..!~. LDX#$00
.J!..NEXT3 LDA$09,X.S!.. PHA..!.. INX..!
.. CPX#$09..!.. BNENEXT3.."..;----------
---------------------.A"D.;***** BITMAP
EINSCHALTEN ******.E"N.; UND 7 BIT HORIZ
ONTAL SCROLLEN.R"X. LDX#$19.".. LDA#$87
..".. JSR$CDCC.."..;--------------------
------------.X"..;***** INTIALISIERUNG *
*********..".. LDA#$20;ZEIGER..".. STA$0
A;AUF..#.. LDA#$00;VIC..#(. STA$09;HIRES
.,#2. LDA#$00.9#<. LDY#$FF.B#F. TAX.Y#P.
STY$0E;ZEIGER AUF.P#Z. STY$0D;VDC-BITMA
P..#D.; ---------
..#N. STA$0B;BITZAEHLER -8.N#X. STY$0C;B
YTEZAEHLER -255..#.. STA$10;BYTEZAEHLER
-8..#.. STA$11..$.. STA$12..$ . PHA;NULL
AUF STAPEL.@$..;-----------------------
---------.Q$..NEXT2 INC$11._$.. BEQMARK4
.Q$H.MARK12 INC$10.}$R. INC$0C..$.. LDY$
0C;BYTEZAEHLER HOLEN..$.. LDA($09),Y.D$.
. STA$0F;WERT SICHERN.Y$.. CPY#$FF;Y=255
??..$.. BCCNEXT1..$.. INC$0A..%..NEXT1 I
NC$0B;BITZAEHLER+1.(%". LDA$0F;WERT HOLE
N.?%,. ASL;BIT7 IN CARRY.X%6. STA$0F;WER
T SICHERN.F%@. BCSMARK1.O%J. PLA.~%T. AN
DTAB1,X..%^.MARK2 PHA..%H. INX;4-BITZAEH
LER+1..%R. CPX#$04;X=4??.E%|. BEQMARK9.S
%.. JMPNEXT1..%..MARK1 PLA..%.. ORATAB2,
X..%.. JMPMARK2..&..MARK9 INC$0D..&.. BN
EMARK5.)&B. INC$0E.=&L.MARK5 JSRMARK30.Q
&V. PLA;WERT HOLEN._&.. JSR$CDCA..&..;**
***** ENDE ??? **************..&.. LDA#
$80..&.. PHA;LOWBYTE..&.. CMP$0D;VERGLEI
CHEN.J&.. BNEMARK11..&.. LDA#$3E;HIGHBYT
E..&&. CMP$0E;VERGLEICHEN..'0. BEQMARK7.
,':.;--------------------------------.?'
D.MARK11 LDA#$08.Z'N. CMP$0B;BITZAEHLER=
8??.H'X. BNEMARK8..'B. LDA#$00;BITZAEHLE
R..'L. STA$0B;ZURUECKSETZEN..'V.;
--------.T'.. LDA$10;PR
UEFEN..'.. CMP#$08;OB..(.. BEQMARK10;SUB
TRAHIEREN.!(..;***** 78 ADDIEREN *******
**.-(.. LDA$0D.6(.. CLC.C(.. ADC#$4E.O(F
. STA$0D.H(P.; ----------.V(Z. B
CCMARK3..(.. INC$0E..(..MARK3 LDX#$00..(
.. JMPNEXT2.O(..MARK8 LDX#$00;4-BITZAEHL
ER ZURUECKSETZEN..(.. JMPNEXT1;SCHLEIFE
NOCHMAL DURCHLAUFEN..)..MARK4 INC$12..)
. JMPMARK12.-)*.MARK10 LDA#$40.9)4. CMP$
11.H)>. BNEMARK13.U)H. LDA#$01.A)R. CMP$
12.P)\. BEQMARK14..)F.;**** 560 SUBTRAHI
EREN ****..)P.MARK13 LDA$0D..)Z. SEC..).
. SBC#$30.D).. STA$0D.P).. LDA$0E.Y).. S
EC..).. SBC#$02..).. STA$0E..*..;
---------..*J.MARK15 LDX#$00.E*T. STX$
10;8-BYTEZAEHLER ZURUECKSETZEN.S*.. JMPN
EXT2.F*..MARK14 LDA#$00.R*.. STA$11.~*..
STA$12..*.. JMPMARK15..*..; **** SPEICH
ERZELLENINHALTE****.W*..; ******* WIEDER
HERSTELLEN *****..*$.MARK7 PLA..*.. LDX#
$09..+8.NEXT4 PLA..+B. STA$09,X..+L. DEX
.%+V. BNENEXT4.=+`.; ---------.S
+J. CLI;IRQ ZULASSEN.M+T. RTS;ZURUECK IN
BASIC..+~.TAB1 .BY$3F,$CF,$F3,$FC..+..T
AB2 .BY$C0,$30,$0C,$03.J+..;------------
-------------------..+..; HIER BEGIN
NT DIE..,..; FARBUEBERTRAGUNGSROUTINE.),
..;-------------------------------.>,..
SEI;IRQ SPERREN.J,D. LDA$09.S,N. PHA._,X
. LDA$0A.H,.. PHA.T,.. LDA$0D.},.. PHA..
,.. LDA$0E..,.. PHA..,.. LDA$0F..,.. PHA
.M,(.;******** STARTADRESSE **********..
,2.;*** DES ATTRIBUT-RAM SETZEN ****..-<
. LDX#$14..-F. LDA#$38..-P. JSR$CDCC.(-Z
. LDX#$15.5-D. LDA#$00.C-N. JSR$CDCC.I-X
.;--------------------------------..-..
LDX#$19;VDC-REG.25..-.. LDA#$C7..-.. JSR
$CDCC..- . LDX#$06;VDC-REG.6..-.. LDA#$1
6.N-.. JSR$CDCC..-..;-------------------
-------------...H.;**** ZEIGER INTIALIES
IEREN ****.&.R. LDA#$00.2... STA$09.?...
LDA#$1C.K... STA$0A.X... LDA#$37.D... S
TA$0E.Q.". LDY#$FF.}.'. STY$0D...,.;----
----------------------------...6.MARK22
INY...@. LDA($09),Y;FARBWERT VON VIC-BIT
MAP LADEN...J. STA$0F;WERT SICHERN../T.
CPY#$FF;Y=255??../^. BCCMARK21.@/H. INC$
0A;VIDEO-RAM-HIGHBYTE + 1.G/R.MARK21 INC
$0D;VDC-ATTRIBUT-RAM + 1.V/|. BEQMARK34.
./.. JMPMARK33../..MARK34 INC$0E.B/..MAR
K33 AND#$F0;UNTERES NIBBLE LOESCHEN.K/..
LSR.T/.. LSR../.. LSR../B. LSR../L. TAX
../V. LDATAB3,X..0.. PHA..0.. LDA$0F;WER
T HOLEN.B0.. AND#$0F;OBERES NIBBLE LOESC
HEN.K0.. TAX.Z0.. LDATAB3,X.C0.. ASL.L0.
. ASL.U0&. ASL.~00. ASL..0:. STA$0F..0D.
PLA.D0N. ORA$0F;BEIDE NIBBLE ZU EINEM B
YTE VERBINDEN.M0X. PHA..0B. JSRMARK30..0
L. PLA..0V. PHA..0.. JSR$CDCA..1.. INC$0
D..1.. BNEMARK31.#1.. INC$0E.81..MARK31
JSRMARK30.A1.. PLA.O1.. JSR$CDCA.T1F.;**
***** ENDE ??? *************..1P. LDA#$
CF;LOWBYTE..1Z. CMP$0D;VERGLEICHEN..1..
BNEMARK32.F1.. LDA#$3F;HIGHBYTE..1.. CMP
$0E;VERGLEICHEN..1.. BEQENDE..2..MARK32
JMPMARK22.%2..; **** SPEICHERZELLENINHAL
TE****.J2 .; ******* WIEDERHERSTELLEN **
***.W2*.ENDE PLA.C24. STA$0F.L2>. PLA.X2
H. STA$0E..2R. PLA..2\. STA$0D..2F. PLA.
.2P. STA$0A..2Z. PLA..2.. STA$09..2.. CL
I.I2.. RTS..2..;**** FARBZUORDNUNGSTABEL
LE ****.&3..TAB3 .BY$00,$0F,$08,$04,$0B,
$04,$02,$0D,$0C,$0C,$09.B3.. .BY$01,$01,
$05,$03,$0E..3..;***ROUTINE ZUM EINSTELL
EN VON*** 2997 -; UPDATE-HIGHBYTE UND LO
WBYTE..3J.MARK30 LDX#$12;VDC-REG.18..3T.
LDA$0E.D3.. JSR$CDCC..3.. LDX#$13;VDC-R
EG.19..3.. LDA$0D..3.. JSR$CDCC..3.. RTS
..4.. .EN...
> CLICK IMAGE PREVIEW FOR FULL MODAL