Advertisement
Er0l

2x4 Scroll

Aug 4th, 2019
1,641
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;```````````````````````````````````````
  2. ;0PG $A3-$A6
  3. ;```````````````````````````````````````
  4. SCROLL   LDA $A5
  5.          CLC
  6. SC9      SBC #$02
  7.          CMP #$C0
  8.          BCS SC7
  9.          ADC #$08
  10.          STA $A5
  11.          LDX #$00
  12. SC1      LDA $0749,X
  13.          STA $0748,X
  14.          LDA $0771,X
  15.          STA $0770,X
  16.          LDA $0799,X
  17.          STA $0798,X
  18.          LDA $07C1,X
  19.          STA $07C0,X
  20.          INX
  21.          CPX #$27
  22.          BNE SC1
  23.          DEC $A6
  24.          BEQ SC2
  25.          LDA $076E
  26.          CLC
  27.          ADC #$20
  28. SCX      STA $076F
  29.          CLC
  30.          ADC #$40
  31.          STA $0797
  32.          CLC
  33.          ADC #$40
  34.          STA $07BF
  35.          CLC
  36.          ADC #$40
  37.          STA $07E7
  38.          RTS
  39. SC2      LDY #$00
  40.          LDA #$02
  41.          STA $A6
  42.          LDA ($A3),Y
  43.          BNE SC3
  44. SC8      LDX #$00
  45.          LDY #$09
  46.          STX $A3
  47.          STY $A4
  48.          RTS
  49. SC0      LDA #$C8
  50.          STA $A5
  51.          LDA #$01
  52.          STA $A6
  53.          BNE SC8
  54. SC3      CMP SCD,Y
  55.          BEQ SC4
  56.          INY
  57.          CPY #$07
  58.          BNE SC3
  59.          JSR SCX
  60. SC6      INC $A3
  61.          BNE SC5
  62.          INC $A4
  63. SC5      RTS
  64. SC4      STY SC9+1
  65.          JMP SC6
  66. SC7      STA $A5
  67.          RTS
  68. SCD      .BYTE $80,$81,$82,$83,$84,$85
  69.          .BYTE $86
  70. ;```````````````````````````````````````
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement