| Unused

37819: Unused routine

This routine is not used, but if it were, it would set the INK colour for a 3x2 block of cells, maintaining the PAPER, BRIGHT and FLASH attributes of the current room background. It is identical to the code at 36447 in Manic Miner that is used to set the attributes for a vertical guardian.
Input
A | INK colour (0-7)
HL | Attribute buffer address
37819 | LD (HL),A | Store the INK colour (bits 0-2)
37820 | LD A,(32928) | Collect the current room's background tile attribute from 32928
37823 | AND 248 | Keep only bits 3-7 (PAPER, BRIGHT, FLASH)
37825 | OR (HL) | Merge the INK bits
37826 | LD (HL),A | Store the resultant attribute byte
37827 | LD DE,31 | Prepare DE for later addition
37830 | INC HL | Move right one cell and store the attribute byte there
37831 | LD (HL),A
37832 | ADD HL,DE | Move left one cell and down a row and store the attribute byte there
37833 | LD (HL),A
37834 | INC HL | Move right one cell and store the attribute byte there
37835 | LD (HL),A
37836 | ADD HL,DE | Move left one cell and down a row and store the attribute byte there
37837 | LD (HL),A
37838 | INC HL | Move right one cell and store the attribute byte there
37839 | LD (HL),A
37840 | RET |