home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 October / 64er_Magazin_92-10_1992_Markt__Technik_de_Side_A.d64 / char-trans.seq < prev    next >
Text File  |  2022-10-26  |  802b  |  33 lines
  1.          *= $1000
  2.  
  3.          sei        ;irq sperren
  4.          lda #$33   ;pla auf
  5.          sta $01    ;zeichen rom setzen
  6.  
  7.          lda #$00   ;high und
  8.          sta $fb    ;low byte
  9.          sta $fd    ;fuer
  10.          lda #$d0   ;blockverschiebung
  11.          sta $fc    ;vorbereiten
  12.          lda #$38   ;
  13.          sta $fe    ;
  14.  
  15. loop1    ldy #$00   ;blockverschiebung
  16. loop     lda ($fb),y;ausfuehren
  17.          sta ($fd),y;(von $d000 bis
  18.          iny        ; $d7ff nach
  19.          bne loop   ; $3800)
  20.  
  21.          inc $fc    ;highbyte erhoehen
  22.          inc $fe    ;
  23.  
  24.          lda $fc    ;und pruefen ob
  25.          cmp #$d8   ;bereits fertig
  26.          bne loop1  ;nein dann loop1
  27.  
  28.          lda #$37   ;ja dann pla
  29.          sta $01    ;auf standard
  30.          cli        ;irq freigeben
  31.          rts        ;und fertig
  32.  
  33.