LOCALS
	.model	tiny
	.code
	.386
	org 100h

START:

	jmp	main
print_symb proc
	; в dl символ
	pusha
	mov		ah, 02h
	int 21h
	popa

	ret
print_symb endp

write_num proc
	pusha
	push -1
	mov bx, 10h
	mov cx, 0002h
	xor dx, dx
	@@loop1:
		div bl
		xor al, al
		push ax
		dec cx
		cmp cx, 0
		jne @@loop1

	mov cx, 0002h
	xor dx, dx
	@@loop:
		pop dx
		cmp dx, -1
		je @@end

		cmp dh, 0ah
		jge @@more

		add dh, 30h
		jmp @@write
	@@more:
		add dh, 37h

	@@write:
		mov ah, 02h
		mov dl, dh
		int 21h
	jmp @@loop
@@end:
	popa
	ret
write_num endp


write_tab proc
	pusha

	mov ah, 02h
	mov dl, 09h
	int 21h

	popa
	ret
write_tab endp

write_new_line proc
	pusha
	mov 	dl,	0ah
	call 	print_symb
	mov		dl, 0dh
	call	print_symb
	popa
	ret
write_new_line endp

main:

	mov ah, 09h
	lea dx, header
	int 21h

new_iter:
	mov		ah, 00h
	int 16h

	; ESC code
	mov 	bx, 011bh
	cmp 	ax, bx
	je 		@@end

	call write_new_line
	call write_tab

	mov 	bx, ax
	xchg	ah, al
	xor 	ah, ah
	call 	write_num

	call 	write_tab
	call 	write_tab

	mov 	ax, bx
	xor 	ah, ah
	call 	write_num

	jmp		new_iter

@@end:
ret

header		db	"    ASCII-code	    SCAN-code	    Symbol", "$"

end START