Advertisement
Er0l

1x2 fade in/out

Feb 7th, 2021
1,898
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;```````````````````````````````````````
  2. ;1x2 show routine by erol/tempest
  3. ;jsr swset
  4. ;```````````````````````````````````````
  5. show     inc $b3
  6.          lda $b3
  7.          cmp #$06
  8.          beq sw1
  9.          rts
  10. sw1      ldx #$00
  11.          stx $b3
  12. sw2      lda sdata
  13.          sta $d800,x
  14.          sta $d828,x
  15. sw4      lda $2698,x
  16.          sta $0400,x
  17.          clc
  18.          adc #$40
  19.          sta $0428,x
  20.          inx
  21.          cpx #$28
  22.          bne sw2
  23.          inc sw2+1
  24.          bne sw7
  25.          inc sw2+1
  26. sw7      lda sw2+1
  27.          cmp #<sdata+36
  28.          beq sw3
  29.          rts
  30. sw3      lda #<sdata
  31.          sta sw2+1
  32.          lda sw4+1
  33.          clc
  34.          adc #$28
  35.          sta sw4+1
  36.          bcc sw5
  37.          inc sw4+2
  38. sw5      inc $b2
  39.          lda $b2
  40.          cmp #$09
  41.          beq swset
  42.          rts
  43. swset    lda #$00
  44.          sta $b2
  45.          sta $b3
  46.          lda #$00
  47.          ldx #$10
  48.          sta sw4+1
  49.          stx sw4+2
  50.          rts
  51. ;```````````````````````````````````````
  52. sdata    .byte 0,0,11,12,15,7,1,7
  53.          .byte 15,15,15,15,15,15,15,15
  54.          .byte 15,15,15,15,15,15,15,15
  55.          .byte 15,15,15,15,7,1,7,15
  56.          .byte 12,11,0,0
  57. ;```````````````````````````````````````
  58.  
Advertisement
RAW Paste Data Copied
Advertisement