;edi = dest, al=digit
writedigit proc

ret
writedigit endp

@font:
db 0,1,1,1,0
db 1,0,0,0,1
db 1,0,0,0,1
db 1,0,0,0,1
db 0,1,1,1,0

db 0,0,1,0,0
db 0,1,1,0,0
db 0,0,1,0,0
db 0,0,1,0,0
db 0,0,1,0,0

db 0,1,1,1,0
db 1,0,0,0,1
db 0,0,1,1,0
db 0,0,1,0,0
db 0,1,1,1,1

db 0,1,1,1,0
db 1,0,0,0,1
db 0,0,1,1,0
db 1,0,0,0,1
db 0,1,1,1,0

db 1,0,0,0,1
db 1,0,0,0,1
db 0,1,1,1,1
db 0,0,0,0,1
db 0,0,0,0,1

db 1,1,1,1,1
db 1,0,0,0,0
db 1,1,1,1,0
db 0,0,0,0,1
db 0,1,1,1,0

db 0,1,1,1,0
db 1,0,0,0,0
db 1,1,1,1,0
db 1,0,0,0,1
db 0,1,1,1,0

db 1,1,1,1,1
db 0,0,0,1,0
db 0,0,1,0,0
db 0,1,0,0,0
db 1,0,0,0,0

db 0,1,1,1,0
db 1,0,0,0,1
db 0,1,1,1,0
db 1,0,0,0,1
db 0,1,1,1,0

db 0,1,1,1,0
db 1,0,0,0,1
db 0,1,1,1,1
db 0,0,0,0,1
db 0,1,1,1,0