home *** CD-ROM | disk | FTP | other *** search
/ Newspaper 8 / Newspaper_8_2002-11-24_EXclusive_ON_Disk_4_of_4.d64 / t.vhi shower < prev    next >
Encoding:
Text File  |  2002-01-01  |  1.3 KB  |  83 lines
  1.  
  2. ; VHI shower
  3. ;
  4. ; () by Volcano/EXON
  5.  
  6.          *= $1f00
  7.          jmp start
  8. ;-----------
  9. vhirq    pha
  10.          txa
  11.          pha
  12.          tya
  13.          pha
  14.  
  15. scron    lda #$00
  16.          sta $d011
  17.          lda #$08
  18.          sta $d016
  19.          lda $63ea
  20.          sta $d020
  21. here     lda #$01
  22.          eor #$01
  23.          sta here+1
  24.          tax
  25.          lda $dd00,x
  26.          and #%11111100
  27.          ora bank,x
  28.          sta $dd00
  29.          lda scr,x
  30.          sta $d018
  31.  
  32.          inc $d019
  33.          pla
  34.          tay
  35.          pla
  36.          tax
  37.          pla
  38. nmi      rti
  39. ;-----------
  40. start    sei
  41.          lda #$35
  42.          sta $01
  43.          lda #$7f
  44.          sta $dc0d
  45.          lda #$01
  46.          sta $d01a
  47.          lda #$00
  48.          sta $d011
  49.          sta $d012
  50.          lda #<nmi
  51.          sta $fffa
  52.          sta $fffc
  53.          lda #>nmi
  54.          sta $fffb
  55.          sta $fffd
  56.          lda #<vhirq
  57.          sta $fffe
  58.          lda #>vhirq
  59.          sta $ffff
  60.          cli
  61.  
  62.          ldx #$00
  63. rwcol    lda $6000,x
  64.          sta $0400,x
  65.          lda $6100,x
  66.          sta $0500,x
  67.          lda $6200,x
  68.          sta $0600,x
  69.          lda $6300,x
  70.          sta $0700,x
  71.          inx
  72.          bne rwcol
  73.          lda $d011
  74.          bpl *-3
  75.          lda #$3b
  76.          sta scron+1
  77.          jmp *
  78.  
  79. bank     .byte $03,$02
  80. scr      .byte $18,$80
  81.  
  82.  
  83.