!Lower = 0

load:
	LDA #$20
	TSB $1467
	RTL

init:
;=======================================
; Mode 2 + Mode 0 COLDATA Gradient
; Channels: Red, Green, Blue
; Table Size: 190
; No. of Writes: 224
;
; Generated by GradientTool
;=======================================

; Set up the HDMA gradient.
; Uses HDMA channels 3 and 5.
InitUnderSea:
	REP   #$20 ; 16-bit A

	; Set transfer modes.
	LDA   #$3202
	STA   $4330 ; Channel 3
	LDA   #$3200
	STA   $4350 ; Channel 5

	; Point to HDMA tables.
	LDA   #UnderSea_RedGreenTable
	STA   $4332
	LDA   #UnderSea_BlueTable
	STA   $4352

	SEP   #$20 ; 8-bit A

	; Store program bank to $43x4.
	PHK
	PLA
	STA   $4334 ; Channel 3
	STA   $4354 ; Channel 5

	; Enable channels 3 and 5.
	LDA.b #%00101000
	TSB   $6D9F

	REP #$20             ; |
   LDA #$0F02           ; | Use Mode 02 on register 210F
   STA $4340            ; | 4340 = Mode, 4341 = Register
   LDA #$9E00           ; | Address of HDMA table
   STA $4342            ; | 4342 = Low-Byte of table, 4343 = High-Byte of table
   SEP #$20             ; |
   LDA.b #$7F           ; | Address of HDMA table, get bank byte
   STA $4344            ; | 4344 = Bank-Byte of table
   LDA #$10             ; |
   TSB $6D9F            ; | Enable HDMA channel 4

	RTL ; <-- Can also be RTL.

; --- HDMA Tables below this line ---
UnderSea_RedGreenTable:
db $8F,$38,$5D,$37,$5D,$36,$5D,$35,$5D,$34,$5D,$33,$5D,$31,$5D,$30,$5D,$2F,$5D,$2E,$5D,$2D,$5C,$2C,$5C,$2B,$5C,$29,$5C,$28,$5C
db $02,$27,$5C
db $03,$27,$5B
db $02,$26,$5A
db $03,$26,$59
db $02,$26,$58
db $03,$25,$57
db $02,$25,$56
db $02,$25,$55
db $01,$24,$55
db $02,$24,$54
db $03,$24,$53
db $82,$24,$52,$23,$52
db $03,$23,$51
db $02,$23,$50
db $02,$23,$4F
db $01,$22,$4F
db $02,$22,$4E
db $03,$22,$4D
db $82,$22,$4C,$21,$4C
db $03,$21,$4B
db $02,$21,$4A
db $01,$21,$49
db $02,$20,$49
db $80,$20,$48
db $03,$20,$48
db $04,$20,$47
db $04,$20,$46
db $04,$20,$45
db $04,$20,$44
db $04,$20,$43
db $03,$20,$42
db $01,$21,$42
db $04,$21,$41
db $00

UnderSea_BlueTable:
db $01,$9F
db $0C,$9E
db $05,$9D
db $04,$9C
db $04,$9B
db $04,$9A
db $03,$99
db $04,$98
db $04,$97
db $03,$96
db $04,$95
db $04,$94
db $03,$93
db $04,$92
db $04,$91
db $80,$90
db $05,$90
db $02,$8F
db $03,$8E
db $03,$8D
db $03,$8C
db $03,$8B
db $03,$8A
db $02,$89
db $03,$88
db $03,$87
db $03,$86
db $00

main:
LDA $9D		;\If everything is locked
BNE return	;/return.
If !Lower == 1
INC $7D		;down
else
DEC $7D   	;up
endif
return:
RTL