HBlank Routine

HBlank:
        move    #$2300,sr
        moveq   #0,d0
        move.b  PalletRoutine,d0
        move.w  PalletRoutineOffset(pc,d0.w),d0
        jmp     PalletRoutineOffset(pc,d0.w)
; ===========================================================================
PalletRoutineOffset:
        dc.w    Pallet_fBtR-PalletRoutineOffset
        dc.w    Pallet_fRtG-PalletRoutineOffset
        dc.w    Pallet_fGtB-PalletRoutineOffset
        dc.w    Pallet_fBluetR-PalletRoutineOffset
; ===========================================================================
Pallet_fBtR:
        add.b   #2,$FFFFFB41
        cmp.b   #$E,$FFFFFB41
        bne.s   @rts
        add.b   #2,PalletRoutine
@rts    rte
; ===========================================================================
Pallet_fRtG:
        add.b   #$1E,$FFFFFB41
        cmp.b   #$E0,$FFFFFB41
        bne.s   @rts
        add.b   #2,PalletRoutine
@rts    rte
Pallet_fGtB:
        add.w   #$1E0,$FFFFFB40
        cmp.b   #$E,$FFFFFB40
        bne.s   @rts
        add.b   #2,PalletRoutine
@rts    rte
; ===========================================================================
Pallet_fBluetR:
        sub.w   #$200,$FFFFFB40
        add.w   #$2,$FFFFFB40
        cmp.b   #$E,$FFFFFB41
        bne.s   @rts
        move.b  #2,PalletRoutine
@rts    rte
; ===========================================================================