org 0x7c00
push 0x7c0
pop ds
xor si,si
mov cx, 128
dump:
mov bx,85
xor dx,dx

loaddivtwice:
xchg ax, di
lodsw
xchg al, ah
div bx
xor ch, bl
jnz loaddivtwice

push dx  ; 1s place

divtwice:
xor dx,dx
xchg ax,di
div bx
xchg ax,di
div bx
push dx  ; 85s then 85^2s place
xor ch, bl
jnz divtwice

div bl
mov dl,ah
push dx  ; 85^3s place
push ax  ; 85^4s place
quintet:
pop ax
sub al,10
jl digit
aam 26
dec ah
jng letter
mov bl, syms - 0x7c00
xlat
jmp pr

letter:
aad 256-32
add al, 65 - 0x3a

digit: add al, 0x3a
pr: mov ah, 0xe
int 0x10
add dh, 52
jnc quintet
loop dump
jmp $
syms db ".-:+=^!/*?&<>()[]{}@%$#"
times 510-($-$$) db 0
dw 0xaa55