Underwater HDMA Gradient

LDA #$00
STA $4350

LDA #$32
STA $4351

LDA #$17
STA $212C
LDA #$00
STA $212D
LDA #$27
STA $40

STZ $0701
STZ $0702

LDA.b #Gradient
STA $4352
LDA.b #Gradient>>8
STA $4353
LDA.b #Gradient>>16
STA $4354

REP #$20            ;\ Set processor 16 bit
LDA #$3200          ;| $4330 = $2132
STA $4350           ;| $4331 = Mode 00
LDA #Gradient       ;| Get gradient pointer
STA $4352           ;| low and high byte
PHK                 ;| Get bank
PLY                 ;|
STY $4354           ;| Store to address bank
SEP #$20            ;/ Set processor 8 bit
LDA #$38
TSB $0D9F

RTS  ;Return

Gradient:
    db $05,$9A
    db $05,$98
    db $05,$96
    db $05,$94
    db $05,$92
    db $05,$90
    db $04,$8E
    db $04,$8C
    db $04,$8A
    db $03,$88
    db $03,$86
    db $02,$84
    db $02,$82
    db $78,$E0
    db $02,$82
    db $02,$84
    db $03,$86
    db $03,$88
    db $04,$8A
    db $04,$8C
    db $04,$8E
    db $05,$90
    db $05,$92
    db $05,$94
    db $05,$96
    db $05,$98
    db $05,$9A
    db $00