home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 13 / Tiger_Disk_013_19xx_Tiger-Crew-Disk_de_Side_A.d64 / bord.sprites.seq < prev    next >
Text File  |  2023-02-26  |  2KB  |  76 lines
  1.  
  2.  
  3.            *= 2100   ;startadr.
  4.  
  5.    ; sprite(s) init.
  6.    ; ---------------
  7.  
  8. vic        = 53248
  9.  
  10.            lda #0
  11.            sta $d021 ;screen (schwarz
  12.            lda #1
  13.            sta $d020 ;colors  weiss)
  14.  
  15.            ldx #63
  16.            lda #$ff   ;sprite besteht
  17. sp1
  18.            sta $2000,x;aus dem bytes
  19.            dex
  20.            bpl sp1    ;$ff = rechteck
  21.  
  22.            lda #1
  23.            sta vic+21 ;ein sprite an
  24.            lda #128   ;sprite muster
  25.            sta 2040   ;aus dem 128 block
  26.                       ;=$2000 (#8192)
  27.  
  28.            ldx #100   ;spr. x-koord.
  29.            ldy #250   ;spr. y-koord.
  30.            stx vic    ;x-k. setzen
  31.            sty vic+1  ;y-k. setzen
  32.  
  33.            lda #1     ;sprite farbe
  34.            sta $d027  ;=1 (weiss)
  35.  
  36.    ; i r q
  37.    ; -----
  38.  
  39.            sei
  40.            lda #<irq ;irq-vector
  41.            ldx #>irq ;auf neue
  42.            sta $0314 ;adresse
  43.            stx $0315 ;setzen
  44.  
  45.            lda #$00  ;i/o-register
  46.            sta $dc0e ;
  47.            lda #$f1  ;fuer einen
  48.            sta $d01a ;
  49.            lda #$f8  ;raster-irq
  50.            sta $d012 ;
  51.            lda #$01  ;vorbereiten
  52.            sta $d011
  53.            cli
  54.            rts
  55.  
  56.  
  57. irq        ldx #$13  ;ab hier wird
  58.            stx $d011 ;das border
  59.            lda $d012 ;geoeffnet
  60.            bne irq
  61.  
  62.            ldx #$1b  ;y-scroll-reg.
  63.            stx $d011 ;auf standart wert
  64.  
  65.            lda #$01  ;register fuer
  66.            sta $d019 ;ein rueckkehr
  67.            lda #$f1  ;in den basic-
  68.            sta $d01a ;interpreter
  69.                      ;vorbereiten
  70.  
  71.            jmp $ea31 ;zum basic-inter.
  72.  
  73. ;---------------------------------------
  74. ;routine by madrom/tiger-crew/cream
  75.  
  76.