Advertisement
delysio

LOŁDER

Aug 7th, 2021
2,338
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.                     org  $1000
  2.                    
  3.                     ins  'loading.fnt',0,67*8
  4.                    
  5.                     org  $0600
  6. preload            
  7.                     lda  #0
  8.                     sta  pre_scr+33+2*40
  9.                     sta  pre_scr+34+2*40
  10.                     sta  pre_scr+35+2*40
  11.                     sta  pre_scr+36+2*40
  12.                     sta  pre_scr+34+3*40
  13.                     sta  pre_scr+35+3*40
  14.                     sta  pre_scr+36+3*40
  15.  
  16.                     lda  #0
  17.                     sta  lives2
  18.                    
  19.                     lda  20
  20.                     cmp  20
  21.                     beq  *-2
  22.                    
  23.                     lda  #00
  24.                     sta  COLBK
  25.                     lda  #$C8
  26.                     sta  COLOR0
  27.                     lda  #$B2
  28.                     sta  COLOR1
  29.                     lda  #$1C
  30.                     sta  COLOR2
  31.                     lda  #$0E
  32.                     sta  COLOR3
  33.  
  34.                     lda  #$10
  35.                     sta  CHBAS
  36.                    
  37.                     lda  <pre_dl
  38.                     sta  SDLSTL
  39.                     lda  >pre_dl
  40.                     sta  SDLSTL+1
  41.                          
  42.                     ldy  <pre_vbi
  43.                     ldx  >pre_vbi
  44.                     lda  #$06
  45.                     jsr  SETVBV
  46.  
  47.                     jmp  pre_exit
  48.  
  49. pre_dl              .byte  $70, $70, $70
  50.                     .byte  $44
  51.                     .word  pre_scr
  52.                     .byte  $4, $4, $4
  53.                     .byte  $41
  54.                     .word  pre_dl
  55.                    
  56. pre_vbi             sta  reg_a
  57.  
  58.                     lda  20
  59.                     and  #7
  60.                     bne  @+
  61.  
  62.                     lda  lives2
  63.                     beq  even
  64.  
  65.                     lda  #$6
  66.                     sta  pre_scr+33
  67.                     lda  #$7
  68.                     sta  pre_scr+34
  69.                     lda  #$8
  70.                     sta  pre_scr+35
  71.                     lda  #$9
  72.                     sta  pre_scr+36
  73.                     lda  #$9c
  74.                     sta  pre_scr+34+40
  75.                     lda  #$9d
  76.                     sta  pre_scr+35+40
  77.                     lda  #$0
  78.                     sta  pre_scr+36+40
  79.                     lda  #0
  80.                     sta  lives2
  81.                     jmp  @+
  82.                    
  83. even                lda  #$29
  84.                     sta  pre_scr+33
  85.                     lda  #$2a
  86.                     sta  pre_scr+34
  87.                     lda  #$2b
  88.                     sta  pre_scr+35
  89.                     lda  #$2c
  90.                     sta  pre_scr+36
  91.                     lda  #$c0
  92.                     sta  pre_scr+34+40
  93.                     lda  #$c1
  94.                     sta  pre_scr+35+40
  95.                     lda  #$42
  96.                     sta  pre_scr+36+40
  97.                    
  98.                     lda  #1
  99.                     sta  lives2
  100. @                  
  101.                     lda  reg_a
  102.                     jmp  $e45f
  103.  
  104. pre_scr             ins  'loading.scr',0,4*40
  105.                    
  106. pre_exit                    
  107.                     rts
  108.  
  109.                     ini  preload
  110.                     run  start
  111.  
Advertisement
RAW Paste Data Copied
Advertisement