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

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

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

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

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

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

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

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

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

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

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

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

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

LoadA   lea      A,a0           ; Load A into a0
        jsr      Print

LoadB   lea      B,a0           ; Load B into a0
        jsr      Print

LoadC   lea      C,a0           ; Load C into a0
        jsr      Print

LoadD   lea      D,a0           ; Load D into a0
        jsr      Print

LoadE   lea      E,a0           ; Load E into a0
        jsr      Print

LoadF   lea      F,a0           ; Load F into a0
        jsr      Print

Print   trap     #15            ; Interupt
        dc.w     1              ; Output d0
        
        cmp.b    #0,d0          ; Check if it's 0
        beq      KBoard         ; End

        move.b   (A0)+,D0       ; Next line
        bra      Print          ; Loop

A       dc.b     '   #     '
        dc.b     '  # #    '
        dc.b     ' #   #   '
        dc.b     '#     #  '
        dc.b     '#######  '
        dc.b     '#     #  '
        dc.b     '#     #  ',0

B       dc.b     '######   '
        dc.b     '#     #  '
        dc.b     '#     #  '
        dc.b     '######   '
        dc.b     '#     #  '
        dc.b     '#     #  '
        dc.b     '######   ',0

C       dc.b     ' #####   '
        dc.b     '#     #  '
        dc.b     '#        '
        dc.b     '#        '
        dc.b     '#        '
        dc.b     '#     #  '
        dc.b     ' #####   ',0

D       dc.b     '######   '
        dc.b     '#     #  '
        dc.b     '#     #  '
        dc.b     '#     #  '
        dc.b     '#     #  '
        dc.b     '#     #  '
        dc.b     '######   ',0

E       dc.b     '#######  '
        dc.b     '#        '
        dc.b     '#        '
        dc.b     '#####    '
        dc.b     '#        '
        dc.b     '#        '
        dc.b     '#######  ',0

F       dc.b     '#######  '
        dc.b     '#        '
        dc.b     '#        '
        dc.b     '#####    '
        dc.b     '#        '
        dc.b     '#        '
        dc.b     '#        ',0

CR      equ      13
LF      equ      10

        end      $400