org $400
        move.l #$FFF0,sp        ; set the stack pointer

        jsr KBoard

KBoard  trap #15                ; Read keyboard entry
        dc.w 3                  ; Stick entry into d0
        jsr Read

        cmp.w d0,#65            ; Check if it's A
        beq LoadA

        cmp.w d0,#97            ; Check if it's a
        beq LoadA

        cmp.w d0,#66            ; Check if it's B
        beq LoadB

        cmp.w d0,#98            ; Check if it's b
        beq LoadB

        cmp.w d0,#66            ; Check if it's C
        beq LoadC

        cmp.w d0,#99            ; Check if it's c
        beq LoadC

        cmp.w d0,#67            ; Check if it's D
        beq LoadD

        cmp.w d0,#100           ; Check if it's d
        beq LoadD

        cmp.w d0,#68            ; Check if it's E
        beq LoadE

        cmp.w d0,#101           ; Check if it's e
        beq LoadE

        cmp.w d0,#69            ; Check if it's F
        beq LoadF

        cmp.w d0,#102           ; Check if it's f
        beq LoadF

LoadA   lea A,a0


LoadB   lea B,a0


LoadC   lea C,a0


LoadD   lea D,a0


LoadE   lea E,a0


LoadF   lea F,a0


Print


A       dc.b '   #     '
        dc.b '  # #    '
        dc.b ' #   #   '
        dc.b '#     #  '
        dc.b '#######  '
        dc.b '#     #  '
        dc.b '#     #  '

B       dc.b '######   '
        dc.b '#     #  '
        dc.b '#     #  '
        dc.b '######   '
        dc.b '#     #  '
        dc.b '#     #  '
        dc.b '######   '

C       dc.b ' #####   '
        dc.b '#     #  '
        dc.b '#        '
        dc.b '#        '
        dc.b '#        '
        dc.b '#     #  '
        dc.b ' #####   '

D       dc.b '######   '
        dc.b '#     #  '
        dc.b '#     #  '
        dc.b '#     #  '
        dc.b '#     #  '
        dc.b '#     #  '
        dc.b '######   '

E       dc.b '#######  '
        dc.b '#        '
        dc.b '#        '
        dc.b '#####    '
        dc.b '#        '
        dc.b '#        '
        dc.b '#######  '

F       dc.b '#######  '
        dc.b '#        '
        dc.b '#        '
        dc.b '#####    '
        dc.b '#        '
        dc.b '#        '
        dc.b '#        '

CR equ 13
LF equ 10