rendered paste body 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