CLS/Fade out ASM Sub-routine

[tubz74]

This is a small clear screen, that sort of fades out the screen pixel by pixel to the background colour.  I took it from one of the Melbourne house books, can't remember which one though.

No idea if it breaks anything else, but I've not had any issues.

Code:

SUB CLSFadeOut()
' Fade out Screen Clearing

    ASM

        LD DE,08feh
        NXTFADE:
            LD A,E
            RLCA
            RLCA
            RLCA
            LD E,A
            LD HL,4000H
            LD BC,0018H
            NXT:
                LD A, (HL)
                AND E
                LD (HL),A
                INC HL
            DJNZ NXT
            DEC C
            JR NZ,NXT
            DEC D
        JR NZ,NXTFADE
        LD A,(5C8DH)
        LD (HL),A
        LD D,H
        LD E,L
        INC DE
        LD BC,02C0H
        LDIR
        LD A,(5C48H)
        LD (HL),A
        LD C,3FH
        LDIR
    END ASM

END SUB