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