DYCP MOVER.HYP
FILE INFORMATION
FILENAME(S): DYCP MOVER.HYP
FILE TYPE(S): PRG
FILE SIZE: 5.1K
FIRST SEEN: 2025-11-30 01:12:59
APPEARS ON: 2 disk(s)
FILE HASH
5beb580e689c9bf86c533fed3e3ba9b6650e4d122b7005b46f5825aa89ffcb79
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10205 | DYCP MOVER.HYP | PRG | C64er | 2 | 6 | DOWNLOAD FILE |
| MAANDDISK SEPT | DYCP MOVER.HYP | PRG | earthshaker | 2 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F DE 1F E8 03 3B 00 05 20 ED 03 3B 20 4C 4F |......;.. ..; LO|
00000010: 4E 47 20 44 59 43 50 20 42 59 20 4D 49 4B 2F 46 |NG DYCP BY MIK/F|
00000020: 44 27 39 31 20 28 32 39 2F 38 2F 39 31 29 00 0B |D'91 (29/8/91)..|
00000030: 20 F0 03 3B 00 32 20 F2 03 20 2E 42 41 24 39 30 | ..;.2 .. .BA$90|
00000040: 30 30 3B 20 20 20 20 20 20 20 20 20 20 20 20 53 |00; S|
00000050: 54 41 52 54 41 44 52 45 53 53 45 00 38 20 F3 03 |TARTADRESSE.8 ..|
00000060: 3B 00 5F 20 F4 03 20 4C 44 41 23 24 33 38 3B 20 |;._ .. LDA#$38; |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 43 4C 45 41 | CLEA|
00000080: 52 20 4D 45 4D 4F 52 59 00 86 20 F5 03 20 53 54 |R MEMORY.. .. ST|
00000090: 41 4C 4F 4F 50 2B 32 3B 20 20 20 20 20 20 20 20 |ALOOP+2; |
000000A0: 46 4F 52 20 44 59 43 50 20 4D 4F 56 49 4E 47 00 |FOR DYCP MOVING.|
000000B0: 99 20 F7 03 52 45 50 45 41 54 20 4C 44 41 23 24 |. ..REPEAT LDA#$|
000000C0: 30 30 00 A6 20 F8 03 20 4C 44 58 23 24 30 30 00 |00.. .. LDX#$00.|
000000D0: BA 20 F9 03 4C 4F 4F 50 20 53 54 41 24 33 38 30 |. ..LOOP STA$380|
000000E0: 30 2C 58 00 C3 20 FA 03 20 49 4E 58 00 D0 20 FB |0,X.. .. INX.. .|
000000F0: 03 20 42 4E 45 4C 4F 4F 50 00 DF 20 FC 03 20 4C |. BNELOOP.. .. L|
00000100: 44 41 4C 4F 4F 50 2B 32 00 EC 20 FD 03 20 43 4D |DALOOP+2.. .. CM|
00000110: 50 23 24 34 31 00 FB 20 FE 03 20 42 45 51 57 45 |P#$41.. .. BEQWE|
00000120: 49 54 45 52 00 0A 21 FF 03 20 49 4E 43 4C 4F 4F |ITER..!.. INCLOO|
00000130: 50 2B 32 00 19 21 00 04 20 4A 4D 50 52 45 50 45 |P+2..!.. JMPREPE|
00000140: 41 54 00 40 21 03 04 57 45 49 54 45 52 20 4A 53 |AT.@!..WEITER JS|
00000150: 52 24 45 35 34 34 3B 20 20 20 20 20 20 43 4C 45 |R$E544; CLE|
00000160: 41 52 20 53 43 52 45 45 4E 00 67 21 04 04 20 4A |AR SCREEN.g!.. J|
00000170: 53 52 53 48 4F 57 4D 41 53 4B 3B 20 20 20 44 59 |SRSHOWMASK; DY|
00000180: 43 50 4D 41 50 20 41 55 46 20 53 43 52 45 45 4E |CPMAP AUF SCREEN|
00000190: 00 77 21 05 04 49 52 51 49 4E 49 54 20 53 45 49 |.w!..IRQINIT SEI|
000001A0: 00 9E 21 06 04 20 4A 53 52 43 48 41 52 43 4F 50 |..!.. JSRCHARCOP|
000001B0: 59 3B 20 20 20 43 48 41 52 53 20 49 4E 20 44 59 |Y; CHARS IN DY|
000001C0: 43 50 4D 4F 56 45 52 00 C5 21 0B 04 20 4C 44 58 |CPMOVER..!.. LDX|
000001D0: 23 24 30 31 3B 20 20 20 20 20 20 20 49 52 51 20 |#$01; IRQ |
000001E0: 2D 20 49 4E 49 54 20 52 4F 55 54 49 4E 45 00 D3 |- INIT ROUTINE..|
000001F0: 21 10 04 20 53 54 58 24 44 30 31 41 00 DC 21 15 |!.. STX$D01A..!.|
00000200: 04 20 44 45 58 00 EA 21 1A 04 20 53 54 58 24 44 |. DEX..!.. STX$D|
00000210: 43 30 45 00 FB 21 1F 04 20 53 54 58 54 58 54 50 |C0E..!.. STXTXTP|
00000220: 4F 53 2B 31 00 08 22 24 04 20 4C 44 41 23 24 31 |OS+1.."$. LDA#$1|
00000230: 42 00 16 22 29 04 20 53 54 41 24 44 30 31 31 00 |B.."). STA$D011.|
00000240: 27 22 2E 04 20 4C 44 58 23 3C 28 49 52 51 31 29 |'".. LDX#<(IRQ1)|
00000250: 00 38 22 33 04 20 4C 44 59 23 3E 28 49 52 51 31 |.8"3. LDY#>(IRQ1|
00000260: 29 00 46 22 38 04 20 53 54 58 24 30 33 31 34 00 |).F"8. STX$0314.|
00000270: 54 22 3D 04 20 53 54 59 24 30 33 31 35 00 7B 22 |T"=. STY$0315.{"|
00000280: 40 04 20 4C 44 41 23 24 30 30 3B 20 20 20 20 20 |@. LDA#$00; |
00000290: 20 20 20 20 20 20 43 55 52 53 4F 52 50 4F 53 49 | CURSORPOSI|
000002A0: 54 49 4F 4E 00 A2 22 41 04 20 53 54 41 32 31 31 |TION.."A. STA211|
000002B0: 3B 20 20 20 20 20 20 28 27 52 45 41 44 59 27 29 |; ('READY')|
000002C0: 20 55 4E 54 45 52 20 44 59 43 50 00 AE 22 42 04 | UNTER DYCP.."B.|
000002D0: 20 4C 44 41 23 30 34 00 BA 22 43 04 20 53 54 41 | LDA#04.."C. STA|
000002E0: 32 31 34 00 C3 22 44 04 20 43 4C 49 00 CC 22 47 |214.."D. CLI.."G|
000002F0: 04 20 52 54 53 00 D2 22 4C 04 3B 00 D8 22 56 04 |. RTS.."L.;.."V.|
00000300: 3B 00 FF 22 D0 07 49 52 51 31 20 4C 44 58 50 4F |;.."..IRQ1 LDXPO|
00000310: 53 3B 20 20 20 20 20 20 34 30 20 50 4F 53 49 54 |S; 40 POSIT|
00000320: 49 4F 4E 45 4E 20 49 4E 00 26 23 D5 07 20 44 45 |IONEN IN.&#.. DE|
00000330: 58 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |X; |
00000340: 20 20 20 44 59 43 50 20 50 4F 53 2E 4D 41 50 00 | DYCP POS.MAP.|
00000350: 33 23 DA 07 20 43 50 58 23 24 46 46 00 43 23 DF |3#.. CPX#$FF.C#.|
00000360: 07 20 42 4E 45 57 45 49 54 45 52 31 00 50 23 E4 |. BNEWEITER1.P#.|
00000370: 07 20 4C 44 58 23 24 33 46 00 63 23 E9 07 57 45 |. LDX#$3F.c#..WE|
00000380: 49 54 45 52 31 20 53 54 58 50 4F 53 00 8A 23 EE |ITER1 STXPOS..#.|
00000390: 07 20 52 4F 4C 24 44 30 31 39 3B 20 20 20 20 20 |. ROL$D019; |
000003A0: 43 4C 45 41 52 20 49 52 51 20 4C 41 54 43 48 20 |CLEAR IRQ LATCH |
000003B0: 52 45 47 00 B1 23 F3 07 20 4C 44 41 23 24 31 45 |REG..#.. LDA#$1E|
000003C0: 3B 20 20 20 20 20 20 20 20 20 5A 45 49 43 48 45 |; ZEICHE|
000003D0: 4E 53 41 54 5A 20 4F 42 45 4E 00 BF 23 F8 07 20 |NSATZ OBEN..#.. |
000003E0: 53 54 41 24 44 30 31 38 00 E6 23 FD 07 20 4C 44 |STA$D018..#.. LD|
000003F0: 58 23 3C 28 49 52 51 32 29 3B 20 20 20 20 20 20 |X#<(IRQ2); |
00000400: 20 4E 45 57 20 49 52 51 20 28 49 52 51 32 29 00 | NEW IRQ (IRQ2).|
00000410: F7 23 02 08 20 4C 44 59 23 3E 28 49 52 51 32 29 |.#.. LDY#>(IRQ2)|
00000420: 00 05 24 07 08 20 53 54 58 24 30 33 31 34 00 13 |..$.. STX$0314..|
00000430: 24 0C 08 20 53 54 59 24 30 33 31 35 00 20 24 11 |$.. STY$0315. $.|
00000440: 08 20 4C 44 41 23 24 35 41 00 2E 24 16 08 20 53 |. LDA#$5A..$.. S|
00000450: 54 41 24 44 30 31 32 00 3C 24 1B 08 20 4A 4D 50 |TA$D012.<$.. JMP|
00000460: 24 46 45 42 43 00 42 24 20 08 3B 00 48 24 25 08 |$FEBC.B$ .;.H$%.|
00000470: 3B 00 6F 24 B8 0B 49 52 51 32 20 52 4F 4C 24 44 |;.o$..IRQ2 ROL$D|
00000480: 30 31 39 3B 20 43 4C 45 41 52 20 49 52 51 20 4C |019; CLEAR IRQ L|
00000490: 41 54 43 48 20 52 45 47 00 96 24 BD 0B 20 42 49 |ATCH REG..$.. BI|
000004A0: 54 24 44 30 31 39 3B 20 20 20 20 20 20 54 49 4D |T$D019; TIM|
000004B0: 49 4E 47 20 41 55 53 47 4C 45 49 43 48 45 4E 00 |ING AUSGLEICHEN.|
000004C0: BD 24 C2 0B 20 4C 44 41 23 24 31 35 3B 20 20 20 |.$.. LDA#$15; |
000004D0: 20 20 20 20 20 5A 45 49 43 48 45 4E 53 41 54 5A | ZEICHENSATZ|
000004E0: 20 55 4E 54 45 4E 00 CB 24 C7 0B 20 53 54 41 24 | UNTEN..$.. STA$|
000004F0: 44 30 31 38 00 F2 24 CC 0B 20 4C 44 58 23 3C 28 |D018..$.. LDX#<(|
00000500: 49 52 51 31 29 3B 20 20 20 20 20 4E 45 55 45 52 |IRQ1); NEUER|
00000510: 20 49 52 51 20 28 49 52 51 31 29 00 03 25 D1 0B | IRQ (IRQ1)..%..|
00000520: 20 4C 44 59 23 3E 28 49 52 51 31 29 00 11 25 D6 | LDY#>(IRQ1)..%.|
00000530: 0B 20 53 54 58 24 30 33 31 34 00 1F 25 DB 0B 20 |. STX$0314..%.. |
00000540: 53 54 59 24 30 33 31 35 00 2C 25 E0 0B 20 4C 44 |STY$0315.,%.. LD|
00000550: 41 23 24 33 30 00 3A 25 E5 0B 20 53 54 41 24 44 |A#$30.:%.. STA$D|
00000560: 30 31 32 00 61 25 08 0C 20 4A 53 52 44 59 43 50 |012.a%.. JSRDYCP|
00000570: 4D 4F 56 45 52 3B 20 20 20 20 43 48 41 52 20 4D |MOVER; CHAR M|
00000580: 4F 56 45 52 4F 55 54 49 4E 45 00 6F 25 0D 0C 20 |OVEROUTINE.o%.. |
00000590: 4A 4D 50 24 45 41 33 31 00 75 25 12 0C 3B 00 7B |JMP$EA31.u%..;.{|
000005A0: 25 17 0C 3B 00 A2 25 A0 0F 44 59 43 50 4D 4F 56 |%..;..%..DYCPMOV|
000005B0: 45 52 20 4C 44 41 23 24 34 30 3B 20 20 20 20 20 |ER LDA#$40; |
000005C0: 20 53 54 41 52 54 57 45 52 54 45 00 B2 25 A5 0F | STARTWERTE..%..|
000005D0: 20 53 54 41 4C 4F 4F 50 33 2B 32 00 BF 25 AA 0F | STALOOP3+2..%..|
000005E0: 20 4C 44 41 23 24 33 38 00 CF 25 AF 0F 20 53 54 | LDA#$38..%.. ST|
000005F0: 41 4C 4F 4F 50 34 2B 32 00 DC 25 B4 0F 20 4C 44 |ALOOP4+2..%.. LD|
00000600: 41 23 24 30 30 00 EC 25 B9 0F 20 53 54 41 4C 4F |A#$00..%.. STALO|
00000610: 4F 50 33 2B 31 00 FC 25 BE 0F 20 53 54 41 4C 4F |OP3+1..%.. STALO|
00000620: 4F 50 34 2B 31 00 23 26 C3 0F 4C 4F 4F 50 35 20 |OP4+1.#&..LOOP5 |
00000630: 4C 44 58 50 4F 53 3B 20 20 20 20 20 20 20 20 50 |LDXPOS; P|
00000640: 4F 53 20 46 55 45 52 20 43 48 41 52 00 4A 26 C8 |OS FUER CHAR.J&.|
00000650: 0F 43 4F 55 4E 54 45 52 20 4C 44 59 4D 41 50 2C |.COUNTER LDYMAP,|
00000660: 58 3B 20 20 20 20 41 55 53 20 4D 41 50 20 48 4F |X; AUS MAP HO|
00000670: 4C 45 4E 00 57 26 CD 0F 20 4C 44 58 23 24 30 30 |LEN.W&.. LDX#$00|
00000680: 00 7E 26 D2 0F 4C 4F 4F 50 33 20 4C 44 41 24 34 |.~&..LOOP3 LDA$4|
00000690: 30 30 30 2C 58 3B 20 20 20 20 20 43 48 41 52 20 |000,X; CHAR |
000006A0: 49 4E 20 44 59 43 50 00 A5 26 D7 0F 4C 4F 4F 50 |IN DYCP..&..LOOP|
000006B0: 34 20 53 54 41 24 33 38 30 30 2C 59 3B 20 20 20 |4 STA$3800,Y; |
000006C0: 20 20 20 4D 4F 56 45 20 53 50 41 4C 54 45 00 AE | MOVE SPALTE..|
000006D0: 26 DC 0F 20 49 4E 58 00 B7 26 E1 0F 20 49 4E 59 |&.. INX..&.. INY|
000006E0: 00 C4 26 E6 0F 20 43 50 58 23 24 30 43 00 D2 26 |..&.. CPX#$0C..&|
000006F0: EB 0F 20 42 4E 45 4C 4F 4F 50 33 00 F9 26 F0 0F |.. BNELOOP3..&..|
00000700: 20 4C 44 41 4C 4F 4F 50 33 2B 31 3B 20 20 20 20 | LDALOOP3+1; |
00000710: 20 20 20 20 20 20 20 20 20 20 44 59 43 50 20 41 | DYCP A|
00000720: 55 46 00 20 27 F5 0F 20 43 4C 43 3B 20 20 20 20 |UF. '.. CLC; |
00000730: 20 20 20 20 20 20 20 20 4E 41 45 43 48 53 54 45 | NAECHSTE|
00000740: 53 20 5A 45 49 43 48 45 4E 00 2D 27 FA 0F 20 41 |S ZEICHEN.-'.. A|
00000750: 44 43 23 24 30 41 00 3D 27 FF 0F 20 53 54 41 4C |DC#$0A.='.. STAL|
00000760: 4F 4F 50 33 2B 31 00 4D 27 04 10 20 42 43 43 57 |OOP3+1.M'.. BCCW|
00000770: 45 49 54 45 52 32 00 5D 27 09 10 20 49 4E 43 4C |EITER2.]'.. INCL|
00000780: 4F 4F 50 33 2B 32 00 84 27 0E 10 57 45 49 54 45 |OOP3+2..'..WEITE|
00000790: 52 32 20 4C 44 41 4C 4F 4F 50 34 2B 31 3B 20 20 |R2 LDALOOP4+1; |
000007A0: 20 20 20 20 20 4E 41 45 43 48 53 54 45 00 AB 27 | NAECHSTE..'|
000007B0: 13 10 20 43 4C 43 3B 20 20 20 20 20 20 20 20 20 |.. CLC; |
000007C0: 20 20 20 20 20 20 20 20 20 53 50 41 4C 54 45 20 | SPALTE |
000007D0: 46 55 45 52 00 D2 27 18 10 20 41 44 43 23 24 32 |FUER..'.. ADC#$2|
000007E0: 38 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 43 |8; C|
000007F0: 48 41 52 20 57 41 45 48 4C 45 4E 00 E2 27 1D 10 |HAR WAEHLEN..'..|
00000800: 20 53 54 41 4C 4F 4F 50 34 2B 31 00 F2 27 22 10 | STALOOP4+1..'".|
00000810: 20 42 43 43 57 45 49 54 45 52 33 00 02 28 27 10 | BCCWEITER3..('.|
00000820: 20 49 4E 43 4C 4F 4F 50 34 2B 32 00 29 28 2C 10 | INCLOOP4+2.)(,.|
00000830: 57 45 49 54 45 52 33 20 4C 44 41 43 4F 55 4E 54 |WEITER3 LDACOUNT|
00000840: 45 52 2B 31 3B 20 20 20 20 20 50 4F 53 49 54 49 |ER+1; POSITI|
00000850: 4F 4E 00 50 28 31 10 20 43 4C 43 3B 20 20 20 20 |ON.P(1. CLC; |
00000860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000870: 20 20 20 49 4E 20 4D 41 50 00 77 28 36 10 20 41 | IN MAP.w(6. A|
00000880: 44 43 23 24 30 34 3B 20 20 20 20 20 20 20 20 20 |DC#$04; |
00000890: 20 20 20 20 20 20 20 20 20 41 45 4E 44 45 52 4E | AENDERN|
000008A0: 00 89 28 3B 10 20 53 54 41 43 4F 55 4E 54 45 52 |..(;. STACOUNTER|
000008B0: 2B 31 00 99 28 40 10 20 42 43 43 57 45 49 54 45 |+1..(@. BCCWEITE|
000008C0: 52 35 00 AB 28 45 10 20 49 4E 43 43 4F 55 4E 54 |R5..(E. INCCOUNT|
000008D0: 45 52 2B 32 00 D2 28 4A 10 57 45 49 54 45 52 35 |ER+2..(J.WEITER5|
000008E0: 20 4C 44 41 43 4F 55 4E 54 45 52 2B 31 3B 20 20 | LDACOUNTER+1; |
000008F0: 20 44 59 43 50 20 58 20 50 4F 53 00 FA 28 4F 10 | DYCP X POS..(O.|
00000900: 20 43 4D 50 23 31 38 30 3B 20 20 20 20 20 20 20 | CMP#180; |
00000910: 20 20 20 20 20 20 20 20 20 20 20 20 47 52 4F 45 | GROE|
00000920: 53 53 45 00 08 29 54 10 20 42 4E 45 4C 4F 4F 50 |SSE..)T. BNELOOP|
00000930: 35 00 2C 29 59 10 20 4C 44 58 23 3C 28 4D 41 50 |5.,)Y. LDX#<(MAP|
00000940: 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 43 4F |); CO|
00000950: 55 4E 54 45 52 00 53 29 5E 10 20 4C 44 59 23 3E |UNTER.S)^. LDY#>|
00000960: 28 4D 41 50 29 3B 20 20 20 20 20 20 20 20 20 20 |(MAP); |
00000970: 20 20 57 49 45 44 45 52 20 41 55 46 00 7A 29 63 | WIEDER AUF.z)c|
00000980: 10 20 53 54 58 43 4F 55 4E 54 45 52 2B 31 3B 20 |. STXCOUNTER+1; |
00000990: 20 20 20 20 20 20 20 20 20 53 54 41 52 54 57 45 | STARTWE|
000009A0: 52 54 45 00 8C 29 68 10 20 53 54 59 43 4F 55 4E |RTE..)h. STYCOUN|
000009B0: 54 45 52 2B 32 00 95 29 6D 10 20 52 54 53 00 9B |TER+2..)m. RTS..|
000009C0: 29 72 10 3B 00 A1 29 77 10 3B 00 C8 29 88 13 50 |)r.;..)w.;..)..P|
000009D0: 4F 53 20 2E 42 59 24 30 30 3B 20 20 20 20 20 20 |OS .BY$00; |
000009E0: 20 20 20 20 20 41 4E 5A 41 48 4C 20 59 2D 50 4F | ANZAHL Y-PO|
000009F0: 53 00 CE 29 97 13 3B 00 D4 29 9C 13 3B 00 F6 29 |S..)..;..)..;..)|
00000A00: 70 17 20 2E 42 41 24 43 30 30 30 3B 20 20 20 20 |p. .BA$C000; |
00000A10: 20 20 4D 41 50 20 42 45 49 20 24 43 30 30 30 00 | MAP BEI $C000.|
00000A20: 3D 2A 75 17 4D 41 50 20 2E 42 59 24 31 30 2C 24 |=*u.MAP .BY$10,$|
00000A30: 30 45 2C 24 30 43 2C 24 30 41 2C 24 30 39 2C 24 |0E,$0C,$0A,$09,$|
00000A40: 30 38 2C 24 30 36 2C 24 30 35 2C 24 30 34 2C 24 |08,$06,$05,$04,$|
00000A50: 30 33 2C 24 30 32 2C 24 30 32 2C 24 30 31 2C 24 |03,$02,$02,$01,$|
00000A60: 30 31 2C 24 30 31 00 81 2A 7A 17 20 2E 42 59 24 |01,$01..*z. .BY$|
00000A70: 30 30 2C 24 30 31 2C 24 30 31 2C 24 30 31 2C 24 |00,$01,$01,$01,$|
00000A80: 30 32 2C 24 30 32 2C 24 30 33 2C 24 30 34 2C 24 |02,$02,$03,$04,$|
00000A90: 30 35 2C 24 30 36 2C 24 30 38 2C 24 30 39 2C 24 |05,$06,$08,$09,$|
00000AA0: 30 41 2C 24 30 43 2C 24 30 44 00 C5 2A 7F 17 20 |0A,$0C,$0D..*.. |
00000AB0: 2E 42 59 24 30 46 2C 24 31 30 2C 24 31 32 2C 24 |.BY$0F,$10,$12,$|
00000AC0: 31 34 2C 24 31 35 2C 24 31 37 2C 24 31 38 2C 24 |14,$15,$17,$18,$|
00000AD0: 31 39 2C 24 31 42 2C 24 31 43 2C 24 31 43 2C 24 |19,$1B,$1C,$1C,$|
00000AE0: 31 44 2C 24 31 44 2C 24 31 45 2C 24 31 45 00 09 |1D,$1D,$1E,$1E..|
00000AF0: 2B 84 17 20 2E 42 59 24 31 45 2C 24 31 45 2C 24 |+.. .BY$1E,$1E,$|
00000B00: 31 45 2C 24 31 45 2C 24 31 45 2C 24 31 45 2C 24 |1E,$1E,$1E,$1E,$|
00000B10: 31 45 2C 24 31 44 2C 24 31 44 2C 24 31 43 2C 24 |1E,$1D,$1D,$1C,$|
00000B20: 31 43 2C 24 31 42 2C 24 31 41 2C 24 31 38 2C 24 |1C,$1B,$1A,$18,$|
00000B30: 31 37 00 4D 2B 89 17 20 2E 42 59 24 31 35 2C 24 |17.M+.. .BY$15,$|
00000B40: 31 34 2C 24 31 32 2C 24 31 31 2C 24 31 30 2C 24 |14,$12,$11,$10,$|
00000B50: 30 45 2C 24 30 43 2C 24 30 41 2C 24 30 39 2C 24 |0E,$0C,$0A,$09,$|
00000B60: 30 38 2C 24 30 36 2C 24 30 35 2C 24 30 34 2C 24 |08,$06,$05,$04,$|
00000B70: 30 33 2C 24 30 32 00 91 2B 8E 17 20 2E 42 59 24 |03,$02..+.. .BY$|
00000B80: 30 32 2C 24 30 31 2C 24 30 31 2C 24 30 31 2C 24 |02,$01,$01,$01,$|
00000B90: 30 31 2C 24 30 31 2C 24 30 31 2C 24 30 31 2C 24 |01,$01,$01,$01,$|
00000BA0: 30 32 2C 24 30 32 2C 24 30 33 2C 24 30 34 2C 24 |02,$02,$03,$04,$|
00000BB0: 30 35 2C 24 30 36 2C 24 30 38 00 D5 2B 93 17 20 |05,$06,$08..+.. |
00000BC0: 2E 42 59 24 30 39 2C 24 30 41 2C 24 30 43 2C 24 |.BY$09,$0A,$0C,$|
00000BD0: 30 44 2C 24 30 46 2C 24 31 30 2C 24 31 32 2C 24 |0D,$0F,$10,$12,$|
00000BE0: 31 34 2C 24 31 35 2C 24 31 37 2C 24 31 38 2C 24 |14,$15,$17,$18,$|
00000BF0: 31 39 2C 24 31 42 2C 24 31 43 2C 24 31 43 00 19 |19,$1B,$1C,$1C..|
00000C00: 2C 98 17 20 2E 42 59 24 31 44 2C 24 31 44 2C 24 |,.. .BY$1D,$1D,$|
00000C10: 31 45 2C 24 31 45 2C 24 31 45 2C 24 31 45 2C 24 |1E,$1E,$1E,$1E,$|
00000C20: 31 45 2C 24 31 45 2C 24 31 45 2C 24 31 45 2C 24 |1E,$1E,$1E,$1E,$|
00000C30: 31 45 2C 24 31 44 2C 24 31 44 2C 24 31 43 2C 24 |1E,$1D,$1D,$1C,$|
00000C40: 31 43 00 5D 2C 9D 17 20 2E 42 59 24 31 42 2C 24 |1C.],.. .BY$1B,$|
00000C50: 31 41 2C 24 31 38 2C 24 31 37 2C 24 31 35 2C 24 |1A,$18,$17,$15,$|
00000C60: 31 34 2C 24 31 32 2C 24 31 31 2C 24 31 30 2C 24 |14,$12,$11,$10,$|
00000C70: 30 45 2C 24 30 43 2C 24 30 41 2C 24 30 39 2C 24 |0E,$0C,$0A,$09,$|
00000C80: 30 38 2C 24 30 36 00 A1 2C A2 17 20 2E 42 59 24 |08,$06..,.. .BY$|
00000C90: 30 35 2C 24 30 34 2C 24 30 33 2C 24 30 32 2C 24 |05,$04,$03,$02,$|
00000CA0: 30 32 2C 24 30 31 2C 24 30 31 2C 24 30 31 2C 24 |02,$01,$01,$01,$|
00000CB0: 30 31 2C 24 30 31 2C 24 30 31 2C 24 30 31 2C 24 |01,$01,$01,$01,$|
00000CC0: 30 32 2C 24 30 32 2C 24 30 33 00 E5 2C A7 17 20 |02,$02,$03..,.. |
00000CD0: 2E 42 59 24 30 34 2C 24 30 35 2C 24 30 36 2C 24 |.BY$04,$05,$06,$|
00000CE0: 30 38 2C 24 30 39 2C 24 30 41 2C 24 30 43 2C 24 |08,$09,$0A,$0C,$|
00000CF0: 30 44 2C 24 30 46 2C 24 31 30 2C 24 31 32 2C 24 |0D,$0F,$10,$12,$|
00000D00: 31 34 2C 24 31 35 2C 24 31 37 2C 24 31 38 00 29 |14,$15,$17,$18.)|
00000D10: 2D AC 17 20 2E 42 59 24 31 39 2C 24 31 42 2C 24 |-.. .BY$19,$1B,$|
00000D20: 31 43 2C 24 31 43 2C 24 31 44 2C 24 31 44 2C 24 |1C,$1C,$1D,$1D,$|
00000D30: 31 45 2C 24 31 45 2C 24 31 45 2C 24 31 45 2C 24 |1E,$1E,$1E,$1E,$|
00000D40: 31 45 2C 24 31 45 2C 24 31 45 2C 24 31 45 2C 24 |1E,$1E,$1E,$1E,$|
00000D50: 31 45 00 6D 2D B1 17 20 2E 42 59 24 31 44 2C 24 |1E.m-.. .BY$1D,$|
00000D60: 31 44 2C 24 31 43 2C 24 31 43 2C 24 31 42 2C 24 |1D,$1C,$1C,$1B,$|
00000D70: 31 41 2C 24 31 38 2C 24 31 37 2C 24 31 35 2C 24 |1A,$18,$17,$15,$|
00000D80: 31 34 2C 24 31 32 2C 24 31 30 2C 24 30 46 2C 24 |14,$12,$10,$0F,$|
00000D90: 30 44 2C 24 30 43 00 B1 2D B6 17 20 2E 42 59 24 |0D,$0C..-.. .BY$|
00000DA0: 30 41 2C 24 30 39 2C 24 30 38 2C 24 30 36 2C 24 |0A,$09,$08,$06,$|
00000DB0: 30 34 2C 24 30 32 2C 24 30 32 2C 24 30 31 2C 24 |04,$02,$02,$01,$|
00000DC0: 30 31 2C 24 30 31 2C 24 30 31 2C 24 30 31 2C 24 |01,$01,$01,$01,$|
00000DD0: 30 31 2C 24 30 31 2C 24 30 31 00 F5 2D BB 17 20 |01,$01,$01..-.. |
00000DE0: 2E 42 59 24 30 31 2C 24 30 32 2C 24 30 32 2C 24 |.BY$01,$02,$02,$|
00000DF0: 30 33 2C 24 30 34 2C 24 30 36 2C 24 30 38 2C 24 |03,$04,$06,$08,$|
00000E00: 30 39 2C 24 30 41 2C 24 30 43 2C 24 30 44 2C 24 |09,$0A,$0C,$0D,$|
00000E10: 30 46 2C 24 31 30 2C 24 31 32 2C 24 31 34 00 FB |0F,$10,$12,$14..|
00000E20: 2D D9 17 3B 00 01 2E DE 17 3B 00 28 2E 58 1B 53 |-..;.....;.(.X.S|
00000E30: 48 4F 57 4D 41 53 4B 20 4C 44 59 23 24 30 30 3B |HOWMASK LDY#$00;|
00000E40: 20 20 20 20 20 20 20 20 20 20 5A 45 49 43 48 45 | ZEICHE|
00000E50: 4E 00 4F 2E 5D 1B 20 53 54 59 53 43 52 45 45 4E |N.O.]. STYSCREEN|
00000E60: 50 4F 53 2B 31 3B 20 20 20 20 20 20 20 20 20 53 |POS+1; S|
00000E70: 45 4E 4B 52 45 43 48 54 00 76 2E 62 1B 20 4C 44 |ENKRECHT.v.b. LD|
00000E80: 58 23 24 30 30 3B 20 20 20 20 20 20 20 20 20 20 |X#$00; |
00000E90: 20 41 55 46 20 42 49 4C 44 53 43 48 49 52 4D 00 | AUF BILDSCHIRM.|
00000EA0: 9D 2E 67 1B 4C 4F 4F 50 31 30 20 54 59 41 3B 20 |..g.LOOP10 TYA; |
00000EB0: 20 20 20 20 20 20 20 20 20 20 20 20 44 41 52 53 | DARS|
00000EC0: 54 45 4C 4C 45 4E 00 B6 2E 6C 1B 53 43 52 45 45 |TELLEN...l.SCREE|
00000ED0: 4E 50 4F 53 20 53 54 41 24 30 34 30 30 2C 58 00 |NPOS STA$0400,X.|
00000EE0: CA 2E 71 1B 20 4C 44 41 53 43 52 45 45 4E 50 4F |..q. LDASCREENPO|
00000EF0: 53 2B 31 00 D7 2E 76 1B 20 43 4D 50 23 31 36 30 |S+1...v. CMP#160|
00000F00: 00 E8 2E 80 1B 20 42 4E 45 57 45 49 54 45 52 31 |..... BNEWEITER1|
00000F10: 31 00 F7 2E 85 1B 20 4A 4D 50 43 48 41 4E 47 45 |1..... JMPCHANGE|
00000F20: 00 08 2F 8A 1B 57 45 49 54 45 52 31 31 20 43 4C |../..WEITER11 CL|
00000F30: 43 00 15 2F 8F 1B 20 41 44 43 23 24 32 38 00 29 |C../.. ADC#$28.)|
00000F40: 2F 94 1B 20 53 54 41 53 43 52 45 45 4E 50 4F 53 |/.. STASCREENPOS|
00000F50: 2B 31 00 32 2F 99 1B 20 49 4E 59 00 41 2F 9E 1B |+1.2/.. INY.A/..|
00000F60: 20 4A 4D 50 4C 4F 4F 50 31 30 00 54 2F A3 1B 43 | JMPLOOP10.T/..C|
00000F70: 48 41 4E 47 45 20 4C 44 41 23 24 30 30 00 68 2F |HANGE LDA#$00.h/|
00000F80: A8 1B 20 53 54 41 53 43 52 45 45 4E 50 4F 53 2B |.. STASCREENPOS+|
00000F90: 31 00 71 2F AD 1B 20 49 4E 58 00 7A 2F B2 1B 20 |1.q/.. INX.z/.. |
00000FA0: 49 4E 59 00 87 2F B7 1B 20 43 50 58 23 24 32 38 |INY../.. CPX#$28|
00000FB0: 00 96 2F BC 1B 20 42 4E 45 4C 4F 4F 50 31 30 00 |../.. BNELOOP10.|
00000FC0: 9F 2F C1 1B 20 52 54 53 00 A5 2F C6 1B 3B 00 AB |./.. RTS../..;..|
00000FD0: 2F CB 1B 3B 00 D2 2F 40 1F 43 48 41 52 43 4F 50 |/..;../@.CHARCOP|
00000FE0: 59 20 4C 44 41 24 30 31 3B 20 20 20 20 20 20 43 |Y LDA$01; C|
00000FF0: 48 41 52 47 45 4E 2E 20 45 49 4E 00 DF 2F 45 1F |HARGEN. EIN../E.|
00001000: 20 41 4E 44 23 32 35 31 00 EB 2F 4A 1F 20 53 54 | AND#251../J. ST|
00001010: 41 24 30 31 00 12 30 4F 1F 20 4C 44 41 23 24 44 |A$01..0O. LDA#$D|
00001020: 36 3B 20 20 20 20 20 20 20 20 20 20 5A 45 52 4F |6; ZERO|
00001030: 50 41 47 45 20 5A 45 49 47 45 52 00 39 30 54 1F |PAGE ZEIGER.90T.|
00001040: 20 53 54 41 24 46 42 3B 20 20 20 20 20 20 20 20 | STA$FB; |
00001050: 20 20 20 20 20 20 20 56 4F 52 42 45 52 45 49 54 | VORBEREIT|
00001060: 45 4E 00 46 30 59 1F 20 4C 44 41 23 24 30 30 00 |EN.F0Y. LDA#$00.|
00001070: 52 30 5E 1F 20 53 54 41 24 46 41 00 5F 30 63 1F |R0^. STA$FA._0c.|
00001080: 20 4C 44 41 23 24 30 32 00 6B 30 68 1F 20 53 54 | LDA#$02.k0h. ST|
00001090: 41 24 46 43 00 78 30 6D 1F 20 4C 44 41 23 24 34 |A$FC.x0m. LDA#$4|
000010A0: 30 00 84 30 72 1F 20 53 54 41 24 46 44 00 AB 30 |0..0r. STA$FD..0|
000010B0: 77 1F 54 58 54 50 4F 53 20 4C 44 58 23 24 30 30 |w.TXTPOS LDX#$00|
000010C0: 3B 20 20 20 20 20 20 20 20 5A 45 49 43 48 45 4E |; ZEICHEN|
000010D0: 20 41 55 53 00 D2 30 7C 1F 20 4C 44 59 54 45 58 | AUS..0|. LDYTEX|
000010E0: 54 2C 58 3B 20 20 20 20 20 20 20 20 20 20 20 20 |T,X; |
000010F0: 54 45 58 54 54 41 42 45 4C 4C 45 00 F9 30 81 1F |TEXTTABELLE..0..|
00001100: 20 54 59 41 3B 20 20 20 20 20 20 20 20 20 20 20 | TYA; |
00001110: 20 20 20 20 20 20 20 20 20 20 20 20 20 48 4F 4C | HOL|
00001120: 45 4E 00 02 31 86 1F 20 43 4C 43 00 0F 31 8B 1F |EN..1.. CLC..1..|
00001130: 20 41 44 43 23 24 34 30 00 18 31 90 1F 20 54 41 | ADC#$40..1.. TA|
00001140: 59 00 3F 31 95 1F 20 43 50 59 23 24 38 30 3B 20 |Y.?1.. CPY#$80; |
00001150: 20 20 20 20 20 20 20 20 20 20 20 20 54 45 53 54 | TEST|
00001160: 20 41 55 46 20 27 40 27 00 50 31 9A 1F 20 42 4E | AUF '@'.P1.. BN|
00001170: 45 57 45 49 54 45 52 31 30 00 77 31 9F 1F 20 4C |EWEITER10.w1.. L|
00001180: 44 41 24 30 31 3B 20 20 20 20 20 20 20 20 20 20 |DA$01; |
00001190: 20 20 20 20 20 20 20 4A 41 3F 20 45 4E 44 45 21 | JA? ENDE!|
000011A0: 00 84 31 A4 1F 20 4F 52 41 23 24 30 34 00 90 31 |..1.. ORA#$04..1|
000011B0: A9 1F 20 53 54 41 24 30 31 00 99 31 AE 1F 20 52 |.. STA$01..1.. R|
000011C0: 54 53 00 C0 31 B3 1F 57 45 49 54 45 52 31 30 20 |TS..1..WEITER10 |
000011D0: 4C 44 41 24 46 41 3B 20 20 53 54 41 52 54 20 44 |LDA$FA; START D|
000011E0: 45 52 20 42 49 54 4D 41 50 00 E7 31 B8 1F 20 43 |ER BITMAP..1.. C|
000011F0: 4C 43 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |LC; |
00001200: 20 20 20 20 44 45 53 20 5A 45 49 43 48 45 4E 53 | DES ZEICHENS|
00001210: 00 0E 32 BD 1F 20 41 44 43 23 24 30 38 3B 20 20 |..2.. ADC#$08; |
00001220: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 45 52 | BER|
00001230: 52 45 43 48 4E 45 4E 00 1F 32 C2 1F 20 42 43 53 |RECHNEN..2.. BCS|
00001240: 57 45 49 54 45 52 31 33 00 30 32 C7 1F 4C 4F 55 |WEITER13.02..LOU|
00001250: 50 34 20 53 54 41 24 46 41 00 39 32 CC 1F 20 44 |P4 STA$FA.92.. D|
00001260: 45 59 00 4A 32 D1 1F 20 42 4E 45 57 45 49 54 45 |EY.J2.. BNEWEITE|
00001270: 52 31 30 00 71 32 D6 1F 20 4C 44 59 23 24 30 30 |R10.q2.. LDY#$00|
00001280: 3B 20 20 20 20 20 20 20 20 20 5A 45 49 43 48 45 |; ZEICHE|
00001290: 4E 20 28 42 49 54 4D 41 50 29 00 98 32 DB 1F 4C |N (BITMAP)..2..L|
000012A0: 4F 55 50 33 20 4C 44 41 28 24 46 41 29 2C 59 3B |OUP3 LDA($FA),Y;|
000012B0: 20 20 20 20 20 20 20 20 20 43 4F 50 49 45 52 45 | COPIERE|
000012C0: 4E 00 A8 32 E0 1F 20 53 54 41 28 24 46 43 29 2C |N..2.. STA($FC),|
000012D0: 59 00 B1 32 E5 1F 20 49 4E 59 00 BE 32 EA 1F 20 |Y..2.. INY..2.. |
000012E0: 43 50 59 23 24 30 38 00 CC 32 EF 1F 20 42 4E 45 |CPY#$08..2.. BNE|
000012F0: 4C 4F 55 50 33 00 F3 32 F4 1F 20 49 4E 43 54 58 |LOUP3..2.. INCTX|
00001300: 54 50 4F 53 2B 31 3B 20 20 20 20 4E 41 45 43 48 |TPOS+1; NAECH|
00001310: 53 54 45 53 20 5A 45 49 43 48 45 4E 00 1A 33 F9 |STES ZEICHEN..3.|
00001320: 1F 20 4C 44 41 24 46 43 3B 20 20 20 20 20 20 20 |. LDA$FC; |
00001330: 20 20 20 20 20 20 20 20 56 4F 52 42 45 52 45 49 | VORBEREI|
00001340: 54 45 4E 00 23 33 FE 1F 20 43 4C 43 00 30 33 03 |TEN.#3.. CLC.03.|
00001350: 20 20 41 44 43 23 24 30 41 00 3C 33 08 20 20 53 | ADC#$0A.<3. S|
00001360: 54 41 24 46 43 00 4D 33 0D 20 20 42 43 53 57 45 |TA$FC.M3. BCSWE|
00001370: 49 54 45 52 31 32 00 75 33 12 20 4C 4F 55 50 35 |ITER12.u3. LOUP5|
00001380: 20 4C 44 41 23 24 30 30 3B 20 20 20 20 20 20 43 | LDA#$00; C|
00001390: 48 41 52 50 4F 49 4E 54 45 52 20 41 55 46 00 9C |HARPOINTER AUF..|
000013A0: 33 17 20 20 53 54 41 24 46 41 3B 20 20 20 20 20 |3. STA$FA; |
000013B0: 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 52 | STAR|
000013C0: 54 57 45 52 54 00 A9 33 1C 20 20 4C 44 41 23 24 |TWERT..3. LDA#$|
000013D0: 44 36 00 B5 33 21 20 20 53 54 41 24 46 42 00 C4 |D6..3! STA$FB..|
000013E0: 33 26 20 20 4A 4D 50 54 58 54 50 4F 53 00 D8 33 |3& JMPTXTPOS..3|
000013F0: 2B 20 57 45 49 54 45 52 31 33 20 49 4E 43 24 46 |+ WEITER13 INC$F|
00001400: 42 00 E6 33 30 20 20 4A 4D 50 4C 4F 55 50 34 00 |B..30 JMPLOUP4.|
00001410: FA 33 35 20 57 45 49 54 45 52 31 32 20 49 4E 43 |.35 WEITER12 INC|
00001420: 24 46 44 00 08 34 3A 20 20 4A 4D 50 4C 4F 55 50 |$FD..4: JMPLOUP|
00001430: 35 00 0E 34 44 20 3B 00 14 34 49 20 3B 00 4E 34 |5..4D ;..4I ;.N4|
00001440: 28 23 54 45 58 54 20 2E 54 58 22 4D 49 4B 2F 46 |(#TEXT .TX"MIK/F|
00001450: 55 54 55 52 45 20 44 45 53 49 47 4E 20 50 52 45 |UTURE DESIGN PRE|
00001460: 53 45 4E 54 53 3A 20 20 4C 4F 4E 47 20 44 59 43 |SENTS: LONG DYC|
00001470: 50 21 21 40 40 40 22 00 00 00 |P!!@@@"... |
X.....;.. ..; LONG DYCP BY MIK/FD'91 (29
/8/91).. ..;.2 .. .BA$9000; S
TARTADRESSE.8 ..;._ .. LDA#$38;
CLEAR MEMORY.. .. STALOOP+2;
FOR DYCP MOVING.. ..REPEAT LDA#$00.. ..
LDX#$00.. ..LOOP STA$3800,X.C .. INX.P .
. BNELOOP.. .. LDALOOP+2.. .. CMP#$41..
.. BEQWEITER..!.. INCLOOP+2..!.. JMPREPE
AT.@!..WEITER JSR$E544; CLEAR SCREE
N.G!.. JSRSHOWMASK; DYCPMAP AUF SCREEN
.W!..IRQINIT SEI..!.. JSRCHARCOPY; CHA
RS IN DYCPMOVER.E!.. LDX#$01; IRQ
- INIT ROUTINE.S!.. STX$D01A..!.. DEX..!
.. STX$DC0E..!.. STXTXTPOS+1.."$. LDA#$1
B.."). STA$D011.'".. LDX#<(IRQ1).8"3. LD
Y#>(IRQ1).F"8. STX$0314.T"=. STY$0315.{"
@. LDA#$00; CURSORPOSITION.."A
. STA211; ('READY') UNTER DYCP.."B.
LDA#04.."C. STA214.C"D. CLI.L"G. RTS.R"
L.;.X"V.;.."P.IRQ1 LDXPOS; 40 POSIT
IONEN IN.&#U. DEX; DYCP
POS.MAP.3#Z. CPX#$FF.C#.. BNEWEITER1.P#.
. LDX#$3F.C#..WEITER1 STXPOS..#.. ROL$D0
19; CLEAR IRQ LATCH REG..#.. LDA#$1E
; ZEICHENSATZ OBEN..#.. STA$D018
..#.. LDX#<(IRQ2); NEW IRQ (IRQ2).
.#.. LDY#>(IRQ2)..$.. STX$0314..$.. STY$
0315. $.. LDA#$5A..$.. STA$D012.<$.. JMP
$FEBC.B$ .;.H$%.;.O$..IRQ2 ROL$D019; CLE
AR IRQ LATCH REG..$.. BIT$D019; TIM
ING AUSGLEICHEN..$B. LDA#$15; ZEI
CHENSATZ UNTEN.K$G. STA$D018..$L. LDX#<(
IRQ1); NEUER IRQ (IRQ1)..%Q. LDY#>(I
RQ1)..%V. STX$0314..%.. STY$0315.,%.. LD
A#$30.:%.. STA$D012.A%.. JSRDYCPMOVER;
CHAR MOVEROUTINE.O%.. JMP$EA31.U%..;.{
%..;..% .DYCPMOVER LDA#$40; STARTWE
RTE..%.. STALOOP3+2..%.. LDA#$38.O%.. ST
ALOOP4+2..%.. LDA#$00..%.. STALOOP3+1..%
.. STALOOP4+1.#&C.LOOP5 LDXPOS; P
OS FUER CHAR.J&H.COUNTER LDYMAP,X; AU
S MAP HOLEN.W&M. LDX#$00.~&R.LOOP3 LDA$4
000,X; CHAR IN DYCP..&W.LOOP4 STA$38
00,Y; MOVE SPALTE..&.. INX..&.. INY
.D&.. CPX#$0C.R&.. BNELOOP3..&.. LDALOOP
3+1; DYCP AUF. '.. CLC;
NAECHSTES ZEICHEN.-'.. ADC#$0A.=
'.. STALOOP3+1.M'.. BCCWEITER2.]'.. INCL
OOP3+2..'..WEITER2 LDALOOP4+1; NAE
CHSTE..'.. CLC; SPALTE
FUER.R'.. ADC#$28; CHAR WAEH
LEN..'.. STALOOP4+1..'". BCCWEITER3..('.
INCLOOP4+2.)(,.WEITER3 LDACOUNTER+1;
POSITION.P(1. CLC;
IN MAP.W(6. ADC#$04;
AENDERN..(;. STACOUNTER+1..(@. BCCWEITE
R5..(E. INCCOUNTER+2.R(J.WEITER5 LDACOUN
TER+1; DYCP X POS..(O. CMP#180;
GROESSE..)T. BNELOOP5.,)Y. L
DX#<(MAP); COUNTER.S)^. LDY#>
(MAP); WIEDER AUF.Z)C. STXCOU
NTER+1; STARTWERTE..)H. STYCOUN
TER+2..)M. RTS..)R.;..)W.;.H)..POS .BY$0
0; ANZAHL Y-POS.N)..;.T)..;..)
P. .BA$C000; MAP BEI $C000.=*U.MAP
.BY$10,$0E,$0C,$0A,$09,$08,$06,$05,$04,$
03,$02,$02,$01,$01,$01..*Z. .BY$00,$01,$
01,$01,$02,$02,$03,$04,$05,$06,$08,$09,$
0A,$0C,$0D.E*. .BY$0F,$10,$12,$14,$15,$
17,$18,$19,$1B,$1C,$1C,$1D,$1D,$1E,$1E..
+.. .BY$1E,$1E,$1E,$1E,$1E,$1E,$1E,$1D,$
1D,$1C,$1C,$1B,$1A,$18,$17.M+.. .BY$15,$
14,$12,$11,$10,$0E,$0C,$0A,$09,$08,$06,$
05,$04,$03,$02..+.. .BY$02,$01,$01,$01,$
01,$01,$01,$01,$02,$02,$03,$04,$05,$06,$
08.U+.. .BY$09,$0A,$0C,$0D,$0F,$10,$12,$
14,$15,$17,$18,$19,$1B,$1C,$1C..,.. .BY$
1D,$1D,$1E,$1E,$1E,$1E,$1E,$1E,$1E,$1E,$
1E,$1D,$1D,$1C,$1C.],.. .BY$1B,$1A,$18,$
17,$15,$14,$12,$11,$10,$0E,$0C,$0A,$09,$
08,$06..,.. .BY$05,$04,$03,$02,$02,$01,$
01,$01,$01,$01,$01,$01,$02,$02,$03..,..
.BY$04,$05,$06,$08,$09,$0A,$0C,$0D,$0F,$
10,$12,$14,$15,$17,$18.)-.. .BY$19,$1B,$
1C,$1C,$1D,$1D,$1E,$1E,$1E,$1E,$1E,$1E,$
1E,$1E,$1E.M-.. .BY$1D,$1D,$1C,$1C,$1B,$
1A,$18,$17,$15,$14,$12,$10,$0F,$0D,$0C..
-.. .BY$0A,$09,$08,$06,$04,$02,$02,$01,$
01,$01,$01,$01,$01,$01,$01..-.. .BY$01,$
02,$02,$03,$04,$06,$08,$09,$0A,$0C,$0D,$
0F,$10,$12,$14..-Y.;.....;.(.X.SHOWMASK
LDY#$00; ZEICHEN.O.]. STYSCREEN
POS+1; SENKRECHT.V.B. LDX#$00;
AUF BILDSCHIRM...G.LOOP10 TYA;
DARSTELLEN...L.SCREENPOS STA
$0400,X.J.Q. LDASCREENPOS+1.W.V. CMP#160
..... BNEWEITER11..... JMPCHANGE../..WEI
TER11 CLC../.. ADC#$28.)/.. STASCREENPOS
+1.2/.. INY.A/.. JMPLOOP10.T/..CHANGE LD
A#$00.H/.. STASCREENPOS+1.Q/.. INX.Z/..
INY../.. CPX#$28../.. BNELOOP10../A. RTS
../F.;../K.;.R/@.CHARCOPY LDA$01; C
HARGEN. EIN../E. AND#251../J. STA$01..0O
. LDA#$D6; ZEROPAGE ZEIGER.90T.
STA$FB; VORBEREITEN.F0Y.
LDA#$00.R0^. STA$FA._0C. LDA#$02.K0H. ST
A$FC.X0M. LDA#$40..0R. STA$FD..0W.TXTPOS
LDX#$00; ZEICHEN AUS.R0|. LDYTEX
T,X; TEXTTABELLE..0.. TYA;
HOLEN..1.. CLC..1..
ADC#$40..1.. TAY.?1.. CPY#$80;
TEST AUF '@'.P1.. BNEWEITER10.W1.. L
DA$01; JA? ENDE!..1.. OR
A#$04..1.. STA$01..1.. RTS..1..WEITER10
LDA$FA; START DER BITMAP..1.. CLC;
DES ZEICHENS..2.. ADC#$08;
BERRECHNEN..2B. BCSWEITER13
.02G.LOUP4 STA$FA.92L. DEY.J2Q. BNEWEITE
R10.Q2V. LDY#$00; ZEICHEN (BITMA
P)..2..LOUP3 LDA($FA),Y; COPIERE
N..2.. STA($FC),Y..2.. INY..2.. CPY#$08.
L2.. BNELOUP3..2.. INCTXTPOS+1; NAECH
STES ZEICHEN..3.. LDA$FC;
VORBEREITEN.#3.. CLC.03. ADC#$0A.<3. S
TA$FC.M3. BCSWEITER12.U3. LOUP5 LDA#$00
; CHARPOINTER AUF..3. STA$FA;
STARTWERT..3. LDA#$D6..3!
STA$FB.D3& JMPTXTPOS.X3+ WEITER13 INC$F
B..30 JMPLOUP4..35 WEITER12 INC$FD..4:
JMPLOUP5..4D ;..4I ;.N4(#TEXT .TX"MIK/F
UTURE DESIGN PRESENTS: LONG DYCP!!@@@".
..
> CLICK IMAGE PREVIEW FOR FULL MODAL