PIANO_X = 384
PIANO_Y = 64
PIANO_H = 15
PIANO_KEY_W = 4
PIANO_BLACK_H = 9
PIANO_BLACK_PRESSED_H = 8
PIANO_PADDING_BOTTOM = 3
PIANO_H_PADDED = (PIANO_H + PIANO_PADDING_BOTTOM)

PIANO_OCTAVES = 8
PIANO_OCTAVE_W = (7 * PIANO_KEY_W)

PIANO_VRAM_X = (PIANO_X / 8)
PIANO_VRAM_W = ((PIANO_OCTAVES * PIANO_OCTAVE_W) / 8)

piano_notes_t struc
	fm	db 5 dup(?)
		db 3 dup(?)
piano_notes_t ends

PIANO_LABEL_DIST_X = 32
PIANO_LABEL_DIST_Y = 4

PIANO_LABEL_X = PIANO_X - PIANO_LABEL_DIST_X
PIANO_LABEL_Y = PIANO_Y + PIANO_LABEL_DIST_Y

piano_label_puts	macro row:req, chr1:req, chr2:req, chr3:req
	piano_label_putc	0, row, chr1
	piano_label_putc	1, row, chr2
	piano_label_putc	2, row, chr3
endm

piano_label_putc	macro col:req, row:req, chr:req
	mov 	al, chr
	mov 	di, ((PIANO_LABEL_Y + (row * PIANO_H_PADDED)) * ROW_SIZE) + ((PIANO_LABEL_X + (col * PIANO_LABEL_FONT_W)) / 8)
	call	piano_label_put_raw
endm