home *** CD-ROM | disk | FTP | other *** search
/ Digital News 3 / Digital_News_3_1988_-_de_Side_A.d64 / char->grafik.src < prev    next >
Encoding:
Text File  |  1988-01-01  |  1.4 KB  |  77 lines
  1. ;***************************************
  2. ;*                                     *
  3. ;*   grafik aus zeichensatz aufbauen   *
  4. ;*                                     *
  5. ;***************************************
  6.  
  7. start    = $1000
  8.  
  9.          *= start
  10.  
  11. char     = $2000;     basis-adressen
  12. screen   = $2800;
  13. grafik   = $4000;
  14.  
  15. byte     = $02;       register 1 byte
  16. gr       = $03;$04    register 2 bytes
  17. scr      = $05;$06
  18. mem      = $22;$23
  19.  
  20. ;***************************************
  21.  
  22.          sei
  23.          ldy #0
  24.          lda #>grafik
  25.          sty gr
  26.          sta gr+1
  27.          lda #>screen
  28.          sty scr
  29.          sta scr+1
  30.  
  31.          ldx #4; 4 bloecke = 1024 byte
  32.  
  33. loop     lda (scr),y
  34.          sty byte
  35.  
  36.          ldy #0   ; adresse im zeichen-
  37.          sty mem  ; satz berechnen
  38.          sty mem+1
  39.          asl a
  40.          rol mem+1
  41.          asl a
  42.          rol mem+1
  43.          asl a
  44.          sta mem
  45.          lda mem+1
  46.          rol a
  47.          clc
  48.          adc #>char
  49.          sta mem+1
  50.  
  51. loop2    lda (mem),y ; zeichendaten in
  52.          sta (gr),y  ; grafik kopieren
  53.          iny
  54.          cpy #8
  55.          bne loop2
  56.  
  57.          clc      ; neuen zeiger auf die
  58.          lda gr   ; grafik berechnen
  59.          adc #8
  60.          sta gr
  61.          lda gr+1
  62.          adc #0
  63.          sta gr+1
  64.  
  65.          ldy byte
  66.          iny
  67.          bne loop
  68.  
  69.          inc scr+1
  70.          dex
  71.          bne loop
  72.          cli
  73.          rts
  74.  
  75. ;***************************************
  76.  
  77.