ECI++/ASCII
FILE INFORMATION
FILENAME(S): ECI++/ASCII
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 01:13:00
APPEARS ON: 1 disk(s)
FILE HASH
a921e78c7635afa7357641120cdfad33a95550c6e8e320d329698dfe2b223336
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10212 SEITE A | ECI++/ASCII | PRG | C64er | 13 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 3B 2A 2A 2A 2A 2A 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 2A 2A 0D 3B 2A 20 3E 3E 3E |*********.;* >>>| 00000030: 3E 3E 20 54 48 45 20 50 45 52 46 45 43 54 20 45 |>> THE PERFECT E| 00000040: 43 49 2D 52 4F 55 54 49 4E 45 20 3C 3C 3C 3C 3C |CI-ROUTINE <<<<<| 00000050: 20 2A 0D 3B 2A 20 20 3E 3E 3E 3E 3E 20 57 52 49 | *.;* >>>>> WRI| 00000060: 54 54 45 4E 20 49 4E 20 41 55 47 55 53 54 20 27 |TTEN IN AUGUST '| 00000070: 39 32 20 3C 3C 3C 3C 3C 20 20 2A 0D 3B 2A 20 20 |92 <<<<< *.;* | 00000080: 20 3E 3E 3E 3E 3E 20 20 20 20 42 59 20 4D 52 2E | >>>>> BY MR.| 00000090: 50 45 52 46 45 43 54 20 20 20 20 3C 3C 3C 3C 3C |PERFECT <<<<<| 000000A0: 20 20 20 2A 0D 3B 2A 20 20 20 20 20 20 20 20 20 | *.;* | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 0D 3B 2A | *.;*| 000000D0: 20 20 20 20 20 20 42 41 53 45 44 20 4F 4E 20 54 | BASED ON T| 000000E0: 48 45 20 45 43 49 2D 53 50 4C 49 54 54 45 52 20 |HE ECI-SPLITTER | 000000F0: 20 20 20 20 20 2A 0D 3B 2A 20 20 20 20 20 20 20 | *.;* | 00000100: 20 57 52 49 54 54 45 4E 20 42 59 20 55 57 45 20 | WRITTEN BY UWE | 00000110: 4D 49 43 48 45 4C 20 20 20 20 20 20 20 20 2A 0D |MICHEL *.| 00000120: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000140: 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 2B 4C 49 4E 45 53 |********..+LINES| 00000150: 20 20 20 20 3D 24 30 32 20 20 20 20 3B 41 4E 5A | =$02 ;ANZ| 00000160: 41 48 4C 20 44 45 52 20 45 43 49 2D 5A 45 49 4C |AHL DER ECI-ZEIL| 00000170: 45 4E 0D 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 20 53 4F |EN..;******** SO| 00000180: 55 52 43 45 20 28 50 52 4F 46 45 53 53 49 4F 4E |URCE (PROFESSION| 00000190: 41 4C 2D 41 53 53 21 29 20 2A 2A 2A 0D 0D 20 20 |AL-ASS!) ***.. | 000001A0: 20 20 20 20 20 20 20 2E 53 45 54 50 43 20 24 43 | .SETPC $C| 000001B0: 30 30 30 20 20 20 20 3B 53 54 41 52 54 41 44 52 |000 ;STARTADR| 000001C0: 45 53 53 45 0D 0D 20 20 20 20 20 20 20 20 20 20 |ESSE.. | 000001D0: 4C 44 41 20 23 31 20 20 20 20 20 20 20 20 20 3B |LDA #1 ;| 000001E0: 43 48 41 52 2D 43 4F 4C 4F 52 0D 20 20 20 20 20 |CHAR-COLOR. | 000001F0: 20 20 20 20 20 53 54 41 20 36 34 36 20 20 20 20 | STA 646 | 00000200: 20 20 20 20 3B 57 45 49 53 53 0D 20 20 20 20 20 | ;WEISS. | 00000210: 20 20 20 20 20 4A 53 52 20 24 45 35 34 34 20 20 | JSR $E544 | 00000220: 20 20 20 20 3B 43 4C 45 41 52 20 53 43 52 45 45 | ;CLEAR SCREE| 00000230: 4E 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 |N. LDA | 00000240: 23 32 31 20 20 20 20 20 20 20 20 3B 45 43 49 20 |#21 ;ECI | 00000250: 55 45 42 45 52 20 32 31 0D 20 20 20 20 20 20 20 |UEBER 21. | 00000260: 20 20 20 53 54 41 20 4C 49 4E 45 53 20 20 20 20 | STA LINES | 00000270: 20 20 3B 52 41 53 54 45 52 5A 45 49 4C 45 4E 0D | ;RASTERZEILEN.| 00000280: 20 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 30 | LDX #0| 00000290: 20 20 20 20 20 20 20 20 20 3B 53 43 48 57 41 52 | ;SCHWAR| 000002A0: 5A 45 4E 0D 20 20 20 20 20 20 20 20 20 20 53 54 |ZEN. ST| 000002B0: 58 20 24 44 30 32 30 20 20 20 20 20 20 3B 42 4F |X $D020 ;BO| 000002C0: 52 44 45 52 20 55 4E 44 0D 20 20 20 20 20 20 20 |RDER UND. | 000002D0: 20 20 20 53 54 58 20 24 44 30 32 31 20 20 20 20 | STX $D021 | 000002E0: 20 20 3B 53 43 52 45 45 4E 0D 0D 20 20 20 20 20 | ;SCREEN.. | 000002F0: 20 20 20 20 20 4C 44 41 20 23 24 46 35 20 20 20 | LDA #$F5 | 00000300: 20 20 20 20 3B 42 49 54 4D 55 53 54 45 52 0D 2B | ;BITMUSTER.+| 00000310: 43 4C 52 4C 31 20 20 20 20 53 54 41 20 24 34 30 |CLRL1 STA $40| 00000320: 30 30 2C 58 20 20 20 20 3B 46 55 45 52 20 46 4C |00,X ;FUER FL| 00000330: 49 2D 0D 20 20 20 20 20 20 20 20 20 20 53 54 41 |I-. STA| 00000340: 20 24 34 31 30 30 2C 58 20 20 20 20 3B 44 41 52 | $4100,X ;DAR| 00000350: 53 54 45 4C 4C 55 4E 47 0D 20 20 20 20 20 20 20 |STELLUNG. | 00000360: 20 20 20 49 4E 58 20 20 20 20 20 20 20 20 20 20 | INX | 00000370: 20 20 3B 46 45 53 54 4C 45 47 45 4E 0D 20 20 20 | ;FESTLEGEN. | 00000380: 20 20 20 20 20 20 20 42 4E 45 20 43 4C 52 4C 31 | BNE CLRL1| 00000390: 20 20 20 20 20 20 3B 2E 2E 2E 0D 0D 20 20 20 20 | ;..... | 000003A0: 20 20 20 20 20 20 4C 44 59 20 23 54 41 42 4C 45 | LDY #TABLE| 000003B0: 4E 20 20 20 20 3B 24 44 30 31 38 0D 20 20 20 20 |N ;$D018. | 000003C0: 20 20 20 20 20 20 4C 44 41 20 23 24 31 30 20 20 | LDA #$10 | 000003D0: 20 20 20 20 20 3B 57 45 52 54 45 54 41 42 45 4C | ;WERTETABEL| 000003E0: 4C 45 0D 2B 4D 41 4B 45 54 41 42 31 20 53 54 41 |LE.+MAKETAB1 STA| 000003F0: 20 54 41 42 2D 31 2C 59 20 20 20 20 3B 46 55 45 | TAB-1,Y ;FUE| 00000400: 52 0D 20 20 20 20 20 20 20 20 20 20 44 45 59 20 |R. DEY | 00000410: 20 20 20 20 20 20 20 20 20 20 20 3B 27 5A 49 43 | ;'ZIC| 00000420: 4B 2D 5A 41 43 4B 27 0D 20 20 20 20 20 20 20 20 |K-ZACK'. | 00000430: 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 20 | CLC | 00000440: 20 3B 45 46 46 45 4B 54 0D 20 20 20 20 20 20 20 | ;EFFEKT. | 00000450: 20 20 20 41 44 43 20 23 24 31 30 20 20 20 20 20 | ADC #$10 | 00000460: 20 20 3B 47 45 4E 45 52 49 45 52 45 4E 0D 20 20 | ;GENERIEREN. | 00000470: 20 20 20 20 20 20 20 20 42 56 43 20 4D 41 4B 45 | BVC MAKE| 00000480: 54 41 42 31 0D 20 20 20 20 20 20 20 20 20 20 4C |TAB1. L| 00000490: 44 41 20 23 24 36 30 0D 2B 4D 41 4B 45 54 41 42 |DA #$60.+MAKETAB| 000004A0: 32 20 53 54 41 20 54 41 42 2D 31 2C 59 0D 20 20 |2 STA TAB-1,Y. | 000004B0: 20 20 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 | DEY. | 000004C0: 20 20 20 20 20 20 42 45 51 20 4D 41 4B 45 43 4F | BEQ MAKECO| 000004D0: 4C 30 0D 20 20 20 20 20 20 20 20 20 20 53 45 43 |L0. SEC| 000004E0: 0D 20 20 20 20 20 20 20 20 20 20 53 42 43 20 23 |. SBC #| 000004F0: 24 31 30 0D 20 20 20 20 20 20 20 20 20 20 42 4E |$10. BN| 00000500: 45 20 4D 41 4B 45 54 41 42 32 0D 20 20 20 20 20 |E MAKETAB2. | 00000510: 20 20 20 20 20 4C 44 41 20 23 24 32 30 0D 20 20 | LDA #$20. | 00000520: 20 20 20 20 20 20 20 20 42 4E 45 20 4D 41 4B 45 | BNE MAKE| 00000530: 54 41 42 31 0D 0D 2B 4D 41 4B 45 43 4F 4C 30 20 |TAB1..+MAKECOL0 | 00000540: 4C 44 58 20 23 33 39 20 20 20 20 20 20 20 20 3B |LDX #39 ;| 00000550: 43 4F 4C 4F 52 2D 54 41 42 45 4C 4C 45 4E 0D 2B |COLOR-TABELLEN.+| 00000560: 4D 41 4B 45 43 4F 4C 31 20 4C 44 41 20 43 4F 4C |MAKECOL1 LDA COL| 00000570: 4F 52 53 2B 30 2C 58 20 3B 41 4E 4C 45 47 45 4E |ORS+0,X ;ANLEGEN| 00000580: 0D 20 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |. STA $| 00000590: 34 34 30 30 2C 58 0D 20 20 20 20 20 20 20 20 20 |4400,X. | 000005A0: 20 4C 44 41 20 43 4F 4C 4F 52 53 2B 31 2C 58 0D | LDA COLORS+1,X.| 000005B0: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 24 34 | STA $4| 000005C0: 38 30 30 2C 58 0D 20 20 20 20 20 20 20 20 20 20 |800,X. | 000005D0: 4C 44 41 20 43 4F 4C 4F 52 53 2B 32 2C 58 0D 20 |LDA COLORS+2,X. | 000005E0: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 34 43 | STA $4C| 000005F0: 30 30 2C 58 0D 20 20 20 20 20 20 20 20 20 20 4C |00,X. L| 00000600: 44 41 20 43 4F 4C 4F 52 53 2B 33 2C 58 0D 20 20 |DA COLORS+3,X. | 00000610: 20 20 20 20 20 20 20 20 53 54 41 20 24 35 30 30 | STA $500| 00000620: 30 2C 58 0D 20 20 20 20 20 20 20 20 20 20 4C 44 |0,X. LD| 00000630: 41 20 43 4F 4C 4F 52 53 2B 34 2C 58 0D 20 20 20 |A COLORS+4,X. | 00000640: 20 20 20 20 20 20 20 53 54 41 20 24 35 34 30 30 | STA $5400| 00000650: 2C 58 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 |,X. LDA| 00000660: 20 43 4F 4C 4F 52 53 2B 35 2C 58 0D 20 20 20 20 | COLORS+5,X. | 00000670: 20 20 20 20 20 20 53 54 41 20 24 35 38 30 30 2C | STA $5800,| 00000680: 58 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 |X. LDA | 00000690: 43 4F 4C 4F 52 53 2B 36 2C 58 0D 20 20 20 20 20 |COLORS+6,X. | 000006A0: 20 20 20 20 20 53 54 41 20 24 35 43 30 30 2C 58 | STA $5C00,X| 000006B0: 0D 20 20 20 20 20 20 20 20 20 20 44 45 58 0D 20 |. DEX. | 000006C0: 20 20 20 20 20 20 20 20 20 42 50 4C 20 4D 41 4B | BPL MAK| 000006D0: 45 43 4F 4C 31 0D 0D 20 20 20 20 20 20 20 20 20 |ECOL1.. | 000006E0: 20 53 45 49 20 20 20 20 20 20 20 3B 49 4E 54 45 | SEI ;INTE| 000006F0: 52 52 55 50 54 20 53 50 45 52 52 45 4E 0D 20 20 |RRUPT SPERREN. | 00000700: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 43 38 | LDA #$C8| 00000710: 20 20 3B 4E 4F 52 4D 41 4C 45 52 20 34 30 2D 5A | ;NORMALER 40-Z| 00000720: 45 49 43 48 45 4E 0D 20 20 20 20 20 20 20 20 20 |EICHEN. | 00000730: 20 53 54 41 20 24 44 30 31 36 20 3B 42 49 4C 44 | STA $D016 ;BILD| 00000740: 53 43 48 49 52 4D 0D 20 20 20 20 20 20 20 20 20 |SCHIRM. | 00000750: 20 4C 44 41 20 23 24 37 46 20 20 3B 49 52 51 2D | LDA #$7F ;IRQ-| 00000760: 4D 41 53 4B 45 20 46 55 45 52 0D 20 20 20 20 20 |MASKE FUER. | 00000770: 20 20 20 20 20 53 54 41 20 24 44 43 30 44 20 3B | STA $DC0D ;| 00000780: 43 49 41 20 4C 4F 45 53 43 48 45 4E 0D 20 20 20 |CIA LOESCHEN. | 00000790: 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 31 20 | LDA #$01 | 000007A0: 20 3B 4E 55 52 20 52 41 53 54 45 52 49 4E 54 45 | ;NUR RASTERINTE| 000007B0: 52 52 55 50 54 0D 20 20 20 20 20 20 20 20 20 20 |RRUPT. | 000007C0: 53 54 41 20 24 44 30 31 41 20 3B 5A 55 4C 41 53 |STA $D01A ;ZULAS| 000007D0: 53 45 4E 0D 20 20 20 20 20 20 20 20 20 20 4C 44 |SEN. LD| 000007E0: 41 20 23 24 33 32 20 20 3B 55 4E 44 20 5A 57 41 |A #$32 ;UND ZWA| 000007F0: 52 20 49 4E 20 5A 45 49 4C 45 0D 20 20 20 20 20 |R IN ZEILE. | 00000800: 20 20 20 20 20 53 54 41 20 24 44 30 31 32 20 3B | STA $D012 ;| 00000810: 24 33 32 0D 20 20 20 20 20 20 20 20 20 20 4C 44 |$32. LD| 00000820: 58 20 23 3C 45 43 49 20 3B 49 52 51 2D 56 45 4B |X #<ECI ;IRQ-VEK| 00000830: 54 4F 52 20 41 55 46 0D 20 20 20 20 20 20 20 20 |TOR AUF. | 00000840: 20 20 4C 44 59 20 23 3E 45 43 49 20 3B 45 43 49 | LDY #>ECI ;ECI| 00000850: 2D 52 4F 55 54 49 4E 45 0D 20 20 20 20 20 20 20 |-ROUTINE. | 00000860: 20 20 20 53 54 58 20 24 30 33 31 34 20 3B 56 45 | STX $0314 ;VE| 00000870: 52 42 49 45 47 45 4E 0D 20 20 20 20 20 20 20 20 |RBIEGEN. | 00000880: 20 20 53 54 59 20 24 30 33 31 35 20 3B 2E 2E 2E | STY $0315 ;...| 00000890: 0D 20 20 20 20 20 20 20 20 20 20 43 4C 49 20 20 |. CLI | 000008A0: 20 20 20 20 20 3B 49 4E 54 45 52 52 55 50 54 20 | ;INTERRUPT | 000008B0: 5A 55 4C 41 53 53 45 4E 0D 2B 45 4E 44 45 20 20 |ZULASSEN.+ENDE | 000008C0: 20 20 20 52 54 53 20 20 20 20 20 20 20 3B 52 45 | RTS ;RE| 000008D0: 54 55 52 4E 0D 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 20 |TURN..;******** | 000008E0: 49 4E 54 45 52 52 55 50 54 2D 52 4F 55 54 49 4E |INTERRUPT-ROUTIN| 000008F0: 45 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D |EN ***********..| 00000900: 2B 45 43 49 20 20 20 20 20 20 49 4E 43 20 24 44 |+ECI INC $D| 00000910: 30 31 39 20 20 20 20 20 20 3B 49 52 51 20 4C 4F |019 ;IRQ LO| 00000920: 45 53 43 48 45 4E 0D 20 20 20 20 20 20 20 20 20 |ESCHEN. | 00000930: 20 44 45 43 20 24 44 44 30 30 20 20 20 20 20 20 | DEC $DD00 | 00000940: 3B 56 49 43 2D 42 41 4E 4B 3D 24 34 30 30 30 0D |;VIC-BANK=$4000.| 00000950: 0D 20 20 20 20 20 20 20 20 20 20 43 4C 43 20 20 |. CLC | 00000960: 20 20 20 20 20 20 20 20 20 20 3B 41 4B 4B 55 2D | ;AKKU-| 00000970: 53 54 41 52 54 57 45 52 54 0D 20 20 20 20 20 20 |STARTWERT. | 00000980: 20 20 20 20 4C 44 41 20 23 24 33 33 20 20 20 20 | LDA #$33 | 00000990: 20 20 20 3B 46 45 53 54 4C 45 47 45 4E 0D 20 20 | ;FESTLEGEN. | 000009A0: 20 20 20 20 20 20 20 20 4C 44 59 20 4C 49 4E 45 | LDY LINE| 000009B0: 53 20 20 20 20 20 20 3B 41 4E 5A 41 48 4C 20 48 |S ;ANZAHL H| 000009C0: 4F 4C 45 4E 0D 20 20 20 20 20 20 20 20 20 20 42 |OLEN. B| 000009D0: 45 51 20 4E 4F 45 43 49 20 20 20 20 20 20 3B 4B |EQ NOECI ;K| 000009E0: 45 49 4E 20 45 43 49 20 3F 0D 2B 4D 4C 4F 4F 50 |EIN ECI ?.+MLOOP| 000009F0: 20 20 20 20 4C 44 58 20 54 41 42 2C 59 20 20 20 | LDX TAB,Y | 00000A00: 20 20 20 3B 46 4C 49 20 55 45 42 45 52 0D 20 20 | ;FLI UEBER. | 00000A10: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 | STA $D01| 00000A20: 31 20 20 20 20 20 20 3B 59 20 52 41 53 54 45 52 |1 ;Y RASTER| 00000A30: 5A 45 49 4C 45 4E 0D 20 20 20 20 20 20 20 20 20 |ZEILEN. | 00000A40: 20 53 54 58 20 24 44 30 31 38 20 20 20 20 20 20 | STX $D018 | 00000A50: 3B 4C 45 47 45 4E 0D 20 20 20 20 20 20 20 20 20 |;LEGEN. | 00000A60: 20 41 44 43 20 23 31 20 20 20 20 20 20 20 20 20 | ADC #1 | 00000A70: 3B 4E 45 55 45 4E 20 24 44 30 31 31 2D 0D 20 20 |;NEUEN $D011-. | 00000A80: 20 20 20 20 20 20 20 20 41 4E 44 20 23 25 30 30 | AND #%00| 00000A90: 31 31 30 31 31 31 20 3B 57 45 52 54 20 42 45 52 |110111 ;WERT BER| 00000AA0: 45 43 48 4E 45 4E 0D 20 20 20 20 20 20 20 20 20 |ECHNEN. | 00000AB0: 20 44 45 59 20 20 20 20 20 20 20 20 20 20 20 20 | DEY | 00000AC0: 3B 53 43 48 4F 4E 20 46 45 52 54 49 47 20 3F 0D |;SCHON FERTIG ?.| 00000AD0: 20 20 20 20 20 20 20 20 20 20 42 4E 45 20 4D 4C | BNE ML| 00000AE0: 4F 4F 50 20 20 20 20 20 20 3B 4E 45 49 4E 2C 20 |OOP ;NEIN, | 00000AF0: 4E 4F 43 48 4D 41 4C 0D 0D 2B 4E 4F 45 43 49 20 |NOCHMAL..+NOECI | 00000B00: 20 20 20 4C 44 41 20 23 24 37 30 20 20 20 20 20 | LDA #$70 | 00000B10: 20 20 3B 42 49 4C 44 53 43 48 49 52 4D 0D 20 20 | ;BILDSCHIRM. | 00000B20: 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 31 | STA $D01| 00000B30: 31 20 20 20 20 20 20 3B 53 43 48 57 41 52 5A 0D |1 ;SCHWARZ.| 00000B40: 2B 57 4C 31 20 20 20 20 20 20 4C 44 41 20 24 44 |+WL1 LDA $D| 00000B50: 30 31 32 20 20 20 20 20 20 3B 41 55 46 20 4E 41 |012 ;AUF NA| 00000B60: 45 43 48 53 54 45 0D 20 20 20 20 20 20 20 20 20 |ECHSTE. | 00000B70: 20 41 4E 44 20 23 25 30 30 30 30 30 31 31 31 20 | AND #%00000111 | 00000B80: 3B 42 49 4C 44 53 43 48 49 52 4D 2D 0D 20 20 20 |;BILDSCHIRM-. | 00000B90: 20 20 20 20 20 20 20 42 4E 45 20 57 4C 31 20 20 | BNE WL1 | 00000BA0: 20 20 20 20 20 20 3B 5A 45 49 4C 45 20 57 41 52 | ;ZEILE WAR| 00000BB0: 54 45 4E 0D 20 20 20 20 20 20 20 20 20 20 49 4E |TEN. IN| 00000BC0: 43 20 24 44 44 30 30 20 20 20 20 20 20 3B 56 49 |C $DD00 ;VI| 00000BD0: 43 2D 42 41 4E 4B 20 55 4E 44 0D 20 20 20 20 20 |C-BANK UND. | 00000BE0: 20 20 20 20 20 4C 44 58 20 23 24 31 36 20 20 20 | LDX #$16 | 00000BF0: 20 20 20 20 3B 46 41 52 42 52 41 4D 20 57 49 45 | ;FARBRAM WIE| 00000C00: 44 45 52 0D 20 20 20 20 20 20 20 20 20 20 53 54 |DER. ST| 00000C10: 58 20 24 44 30 31 38 20 20 20 20 20 20 3B 4E 4F |X $D018 ;NO| 00000C20: 52 4D 41 4C 49 53 49 45 52 45 4E 0D 20 20 20 20 |RMALISIEREN. | 00000C30: 20 20 20 20 20 20 4C 44 41 20 23 24 31 39 20 20 | LDA #$19 | 00000C40: 20 20 20 20 20 3B 53 43 52 45 45 4E 20 57 49 45 | ;SCREEN WIE| 00000C50: 44 45 52 0D 20 20 20 20 20 20 20 20 20 20 53 54 |DER. ST| 00000C60: 41 20 24 44 30 31 31 20 20 20 20 20 20 3B 45 49 |A $D011 ;EI| 00000C70: 4E 53 43 48 41 4C 54 45 4E 0D 0D 20 20 20 20 20 |NSCHALTEN.. | 00000C80: 20 20 20 20 20 4C 44 58 20 23 54 41 42 4C 45 4E | LDX #TABLEN| 00000C90: 20 20 20 20 3B 45 43 49 2D 54 41 42 45 4C 4C 45 | ;ECI-TABELLE| 00000CA0: 0D 2B 4D 4F 56 45 54 41 42 20 20 4C 44 41 20 54 |.+MOVETAB LDA T| 00000CB0: 41 42 2D 31 2C 58 20 20 20 20 3B 56 45 52 53 43 |AB-1,X ;VERSC| 00000CC0: 48 49 45 42 45 4E 0D 20 20 20 20 20 20 20 20 20 |HIEBEN. | 00000CD0: 20 53 54 41 20 54 41 42 2C 58 20 20 20 20 20 20 | STA TAB,X | 00000CE0: 3B 2E 0D 20 20 20 20 20 20 20 20 20 20 44 45 58 |;.. DEX| 00000CF0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 2E 0D | ; ..| 00000D00: 20 20 20 20 20 20 20 20 20 20 42 4E 45 20 4D 4F | BNE MO| 00000D10: 56 45 54 41 42 20 20 20 20 3B 20 20 2E 0D 20 20 |VETAB ; .. | 00000D20: 20 20 20 20 20 20 20 20 4C 44 41 20 54 41 42 2B | LDA TAB+| 00000D30: 54 41 42 4C 45 4E 20 3B 20 20 20 2E 0D 20 20 20 |TABLEN ; .. | 00000D40: 20 20 20 20 20 20 20 53 54 41 20 54 41 42 20 20 | STA TAB | 00000D50: 20 20 20 20 20 20 3B 20 20 20 20 2E 0D 0D 20 20 | ; ... | 00000D60: 20 20 20 20 20 20 20 20 4A 4D 50 20 24 45 41 33 | JMP $EA3| 00000D70: 31 20 20 20 20 20 20 3B 55 4E 44 20 54 53 43 48 |1 ;UND TSCH| 00000D80: 55 45 53 53 21 0D 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A |UESS!..;********| 00000D90: 20 54 41 42 45 4C 4C 45 4E 20 2A 2A 2A 2A 2A 2A | TABELLEN ******| 00000DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D |***************.| 00000DB0: 0D 2B 43 4F 4C 4F 52 53 20 20 2E 42 20 24 31 37 |.+COLORS .B $17| 00000DC0: 2C 24 37 46 2C 24 46 43 2C 24 43 38 2C 24 38 42 |,$7F,$FC,$C8,$8B| 00000DD0: 2C 24 42 39 2C 24 39 30 0D 20 20 20 20 20 20 20 |,$B9,$90. | 00000DE0: 20 20 2E 42 20 24 30 36 2C 24 36 30 2C 24 30 39 | .B $06,$60,$09| 00000DF0: 2C 24 39 32 2C 24 32 38 2C 24 38 41 2C 24 41 46 |,$92,$28,$8A,$AF| 00000E00: 0D 20 20 20 20 20 20 20 20 20 2E 42 20 24 46 37 |. .B $F7| 00000E10: 2C 24 37 31 2C 24 31 37 2C 24 37 46 2C 24 46 41 |,$71,$17,$7F,$FA| 00000E20: 2C 24 41 38 2C 24 38 32 0D 20 20 20 20 20 20 20 |,$A8,$82. | 00000E30: 20 20 2E 42 20 24 32 39 2C 24 39 30 2C 24 30 39 | .B $29,$90,$09| 00000E40: 2C 24 39 30 2C 24 30 39 2C 24 39 42 2C 24 42 38 |,$90,$09,$9B,$B8| 00000E50: 0D 20 20 20 20 20 20 20 20 20 2E 42 20 24 42 38 |. .B $B8| 00000E60: 2C 24 38 43 2C 24 43 46 2C 24 46 37 2C 24 37 31 |,$8C,$CF,$F7,$71| 00000E70: 2C 24 31 37 2C 24 37 46 0D 20 20 20 20 20 20 20 |,$17,$7F. | 00000E80: 20 20 2E 42 20 24 46 43 2C 24 43 38 2C 24 38 42 | .B $FC,$C8,$8B| 00000E90: 2C 24 42 39 2C 24 39 30 2C 24 30 36 2C 24 36 42 |,$B9,$90,$06,$6B| 00000EA0: 0D 20 20 20 20 20 20 20 20 20 2E 42 20 24 42 34 |. .B $B4| 00000EB0: 2C 24 34 45 2C 24 45 46 2C 24 46 37 2C 24 37 31 |,$4E,$EF,$F7,$71| 00000EC0: 2C 24 30 43 2C 24 30 30 0D 2B 54 41 42 20 20 20 |,$0C,$00.+TAB | 00000ED0: 20 20 2E 42 20 24 30 30 20 3B 54 41 42 45 4C 4C | .B $00 ;TABELL| 00000EE0: 45 20 57 49 52 44 20 47 45 4E 45 52 49 45 52 54 |E WIRD GENERIERT| 00000EF0: 0D 2B 54 41 42 4C 45 4E 20 20 20 3D 20 32 30 34 |.+TABLEN = 204| 00000F00: 20 3B 46 55 45 52 20 4D 41 58 2E 20 32 30 34 20 | ;FUER MAX. 204 | 00000F10: 5A 45 49 4C 45 4E 0D 0D 20 20 20 20 20 20 20 20 |ZEILEN.. | 00000F20: 20 2E 45 4E 44 53 4F 55 52 43 45 0D 0D | .ENDSOURCE.. |
.;**************************************
*.;* >>>>> THE PERFECT ECI-ROUTINE <<<<<
*.;* >>>>> WRITTEN IN AUGUST '92 <<<<<
*.;* >>>>> BY MR.PERFECT <<<<<
*.;*
*.;* BASED ON THE ECI-SPLITTER
*.;* WRITTEN BY UWE MICHEL
*.;*******************************
********..+LINES =$02 ;ANZAHL DER
ECI-ZEILEN..;******** SOURCE (PROFESSION
AL-ASS!) ***.. .SETPC $C000 ;
STARTADRESSE.. LDA #1 ;
CHAR-COLOR. STA 646 ;WEI
SS. JSR $E544 ;CLEAR SCREE
N. LDA #21 ;ECI UEBER 21
. STA LINES ;RASTERZEILEN.
LDX #0 ;SCHWARZEN.
STX $D020 ;BORDER UND.
STX $D021 ;SCREEN.. LDA
#$F5 ;BITMUSTER.+CLRL1 STA $40
00,X ;FUER FLI-. STA $4100,X
;DARSTELLUNG. INX
;FESTLEGEN. BNE CLRL1 ;.
.... LDY #TABLEN ;$D018.
LDA #$10 ;WERTETABELLE.+MAKE
TAB1 STA TAB-1,Y ;FUER. DEY
;'ZICK-ZACK'. CLC
;EFFEKT. ADC #$10
;GENERIEREN. BVC MAKETAB1.
LDA #$60.+MAKETAB2 STA TAB-1,Y.
DEY. BEQ MAKECOL0.
SEC. SBC #$10. BN
E MAKETAB2. LDA #$20.
BNE MAKETAB1..+MAKECOL0 LDX #39 ;
COLOR-TABELLEN.+MAKECOL1 LDA COLORS+0,X
;ANLEGEN. STA $4400,X.
LDA COLORS+1,X. STA $4800,X.
LDA COLORS+2,X. STA $4C
00,X. LDA COLORS+3,X.
STA $5000,X. LDA COLORS+4,X.
STA $5400,X. LDA COLORS+
5,X. STA $5800,X. LDA
COLORS+6,X. STA $5C00,X.
DEX. BPL MAKECOL1..
SEI ;INTERRUPT SPERREN.
LDA #$C8 ;NORMALER 40-ZEICHEN.
STA $D016 ;BILDSCHIRM. LDA #$7
F ;IRQ-MASKE FUER. STA $DC0D ;
CIA LOESCHEN. LDA #$01 ;NUR RA
STERINTERRUPT. STA $D01A ;ZULAS
SEN. LDA #$32 ;UND ZWAR IN ZEI
LE. STA $D012 ;$32. LD
X #<ECI ;IRQ-VEKTOR AUF. LDY #>
ECI ;ECI-ROUTINE. STX $0314 ;VE
RBIEGEN. STY $0315 ;....
CLI ;INTERRUPT ZULASSEN.+ENDE
RTS ;RETURN..;******** INTERRUP
T-ROUTINEN ***********..+ECI INC $D
019 ;IRQ LOESCHEN. DEC $DD
00 ;VIC-BANK=$4000.. CLC
;AKKU-STARTWERT. LDA
#$33 ;FESTLEGEN. LDY LINE
S ;ANZAHL HOLEN. BEQ NOECI
;KEIN ECI ?.+MLOOP LDX TAB,Y
;FLI UEBER. STA $D011 ;
Y RASTERZEILEN. STX $D018
;LEGEN. ADC #1 ;NEUEN $
D011-. AND #%00110111 ;WERT BER
ECHNEN. DEY ;SCHON F
ERTIG ?. BNE MLOOP ;NEIN,
NOCHMAL..+NOECI LDA #$70 ;BILDS
CHIRM. STA $D011 ;SCHWARZ.
+WL1 LDA $D012 ;AUF NAECHSTE.
AND #%00000111 ;BILDSCHIRM-.
BNE WL1 ;ZEILE WARTEN.
INC $DD00 ;VIC-BANK UND.
LDX #$16 ;FARBRAM WIEDER.
STX $D018 ;NORMALISIEREN.
LDA #$19 ;SCREEN WIEDER.
STA $D011 ;EINSCHALTEN..
LDX #TABLEN ;ECI-TABELLE.+MOVETA
B LDA TAB-1,X ;VERSCHIEBEN.
STA TAB,X ;.. DEX
; .. BNE MOVETAB ; ..
LDA TAB+TABLEN ; .. S
TA TAB ; ... JMP $EA3
1 ;UND TSCHUESS!..;******** TABELLE
N *********************..+COLORS .B $17
,$7F,$FC,$C8,$8B,$B9,$90. .B $06
,$60,$09,$92,$28,$8A,$AF. .B $F7
,$71,$17,$7F,$FA,$A8,$82. .B $29
,$90,$09,$90,$09,$9B,$B8. .B $B8
,$8C,$CF,$F7,$71,$17,$7F. .B $FC
,$C8,$8B,$B9,$90,$06,$6B. .B $B4
,$4E,$EF,$F7,$71,$0C,$00.+TAB .B $00
;TABELLE WIRD GENERIERT.+TABLEN = 204
;FUER MAX. 204 ZEILEN.. .ENDSOU
RCE..
> CLICK IMAGE PREVIEW FOR FULL MODAL