home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9212a.d64 / eci++_ascii < prev    next >
Text File  |  1995-03-30  |  4KB  |  135 lines
  1.  
  2. ;***************************************
  3. ;* >>>>> THE PERFECT ECI-ROUTINE <<<<< *
  4. ;*  >>>>> WRITTEN IN AUGUST '92 <<<<<  *
  5. ;*   >>>>>    BY MR.PERFECT    <<<<<   *
  6. ;*                                     *
  7. ;*      BASED ON THE ECI-SPLITTER      *
  8. ;*        WRITTEN BY UWE MICHEL        *
  9. ;***************************************
  10.  
  11. +LINES    =$02    ;ANZAHL DER ECI-ZEILEN
  12.  
  13. ;******** SOURCE (PROFESSIONAL-ASS!) ***
  14.  
  15.          .SETPC $C000    ;STARTADRESSE
  16.  
  17.           LDA #1         ;CHAR-COLOR
  18.           STA 646        ;WEISS
  19.           JSR $E544      ;CLEAR SCREEN
  20.           LDA #21        ;ECI UEBER 21
  21.           STA LINES      ;RASTERZEILEN
  22.           LDX #0         ;SCHWARZEN
  23.           STX $D020      ;BORDER UND
  24.           STX $D021      ;SCREEN
  25.  
  26.           LDA #$F5       ;BITMUSTER
  27. +CLRL1    STA $4000,X    ;FUER FLI-
  28.           STA $4100,X    ;DARSTELLUNG
  29.           INX            ;FESTLEGEN
  30.           BNE CLRL1      ;...
  31.  
  32.           LDY #TABLEN    ;$D018
  33.           LDA #$10       ;WERTETABELLE
  34. +MAKETAB1 STA TAB-1,Y    ;FUER
  35.           DEY            ;'ZICK-ZACK'
  36.           CLC            ;EFFEKT
  37.           ADC #$10       ;GENERIEREN
  38.           BVC MAKETAB1
  39.           LDA #$60
  40. +MAKETAB2 STA TAB-1,Y
  41.           DEY
  42.           BEQ MAKECOL0
  43.           SEC
  44.           SBC #$10
  45.           BNE MAKETAB2
  46.           LDA #$20
  47.           BNE MAKETAB1
  48.  
  49. +MAKECOL0 LDX #39        ;COLOR-TABELLEN
  50. +MAKECOL1 LDA COLORS+0,X ;ANLEGEN
  51.           STA $4400,X
  52.           LDA COLORS+1,X
  53.           STA $4800,X
  54.           LDA COLORS+2,X
  55.           STA $4C00,X
  56.           LDA COLORS+3,X
  57.           STA $5000,X
  58.           LDA COLORS+4,X
  59.           STA $5400,X
  60.           LDA COLORS+5,X
  61.           STA $5800,X
  62.           LDA COLORS+6,X
  63.           STA $5C00,X
  64.           DEX
  65.           BPL MAKECOL1
  66.  
  67.           SEI       ;INTERRUPT SPERREN
  68.           LDA #$C8  ;NORMALER 40-ZEICHEN
  69.           STA $D016 ;BILDSCHIRM
  70.           LDA #$7F  ;IRQ-MASKE FUER
  71.           STA $DC0D ;CIA LOESCHEN
  72.           LDA #$01  ;NUR RASTERINTERRUPT
  73.           STA $D01A ;ZULASSEN
  74.           LDA #$32  ;UND ZWAR IN ZEILE
  75.           STA $D012 ;$32
  76.           LDX #<ECI ;IRQ-VEKTOR AUF
  77.           LDY #>ECI ;ECI-ROUTINE
  78.           STX $0314 ;VERBIEGEN
  79.           STY $0315 ;...
  80.           CLI       ;INTERRUPT ZULASSEN
  81. +ENDE     RTS       ;RETURN
  82.  
  83. ;******** INTERRUPT-ROUTINEN ***********
  84.  
  85. +ECI      INC $D019      ;IRQ LOESCHEN
  86.           DEC $DD00      ;VIC-BANK=$4000
  87.  
  88.           CLC            ;AKKU-STARTWERT
  89.           LDA #$33       ;FESTLEGEN
  90.           LDY LINES      ;ANZAHL HOLEN
  91.           BEQ NOECI      ;KEIN ECI ?
  92. +MLOOP    LDX TAB,Y      ;FLI UEBER
  93.           STA $D011      ;Y RASTERZEILEN
  94.           STX $D018      ;LEGEN
  95.           ADC #1         ;NEUEN $D011-
  96.           AND #%00110111 ;WERT BERECHNEN
  97.           DEY            ;SCHON FERTIG ?
  98.           BNE MLOOP      ;NEIN, NOCHMAL
  99.  
  100. +NOECI    LDA #$70       ;BILDSCHIRM
  101.           STA $D011      ;SCHWARZ
  102. +WL1      LDA $D012      ;AUF NAECHSTE
  103.           AND #%00000111 ;BILDSCHIRM-
  104.           BNE WL1        ;ZEILE WARTEN
  105.           INC $DD00      ;VIC-BANK UND
  106.           LDX #$16       ;FARBRAM WIEDER
  107.           STX $D018      ;NORMALISIEREN
  108.           LDA #$19       ;SCREEN WIEDER
  109.           STA $D011      ;EINSCHALTEN
  110.  
  111.           LDX #TABLEN    ;ECI-TABELLE
  112. +MOVETAB  LDA TAB-1,X    ;VERSCHIEBEN
  113.           STA TAB,X      ;.
  114.           DEX            ; .
  115.           BNE MOVETAB    ;  .
  116.           LDA TAB+TABLEN ;   .
  117.           STA TAB        ;    .
  118.  
  119.           JMP $EA31      ;UND TSCHUESS!
  120.  
  121. ;******** TABELLEN *********************
  122.  
  123. +COLORS  .B $17,$7F,$FC,$C8,$8B,$B9,$90
  124.          .B $06,$60,$09,$92,$28,$8A,$AF
  125.          .B $F7,$71,$17,$7F,$FA,$A8,$82
  126.          .B $29,$90,$09,$90,$09,$9B,$B8
  127.          .B $B8,$8C,$CF,$F7,$71,$17,$7F
  128.          .B $FC,$C8,$8B,$B9,$90,$06,$6B
  129.          .B $B4,$4E,$EF,$F7,$71,$0C,$00
  130. +TAB     .B $00 ;TABELLE WIRD GENERIERT
  131. +TABLEN   = 204 ;FUER MAX. 204 ZEILEN
  132.  
  133.          .ENDSOURCE
  134.  
  135.