.MODEL SMALL
.STACK 100h
.DATA
INTER DB 10,13,10,13,'$'
INFO DB '¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯',10,13
DB '¯ TAPEZ "0" POUR FINIR ¯',10,13
DB '¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯',10,13,10,13,10,13,'$'
CAR DB ' CARACTERE A CONVERTIR: ','$'
ASC DB ' MODE ASCII (DECIMAL): ','$'
DIX DW 10
.CODE
MOV AX,@DATA
MOV DS,AX
SUB AX,AX
MOV AX,0B800h
MOV ES,AX
SUB AX,AX
ENCORE:
MOV AH,0
MOV AL,3
INT 10h
MOV DX,OFFSET INTER
MOV AX,DX
MOV AH,09h
INT 21h
MOV DX,OFFSET INFO
MOV AX,DX
MOV AH,09h
INT 21h
MOV DX,OFFSET CAR
MOV AX,DX
MOV AH,09h
INT 21h
SUB AX,AX
SUB BX,BX
MOV AH,1
INT 21h
MOV BL,AL
MOV DX,OFFSET INTER
MOV AX,DX
MOV AH,09h
INT 21h
MOV DX,OFFSET ASC
MOV AX,DX
MOV AH,09h
INT 21h
SUB DX,DX
SUB AX,AX
MOV AX,BX
DIV DIX
ADD AX,48
MOV AH,0Eh
INT 10h
SUB AH,AH
ADD AX,0E00h
MOV ES:[2000],WORD PTR AX
SUB AX,AX
MOV AX,DX
ADD AX,48
MOV AH,0Eh
INT 10h
SUB AH,AH
ADD AX,0E00h
MOV ES:[2002],WORD PTR AX
MOV ES:[1836],WORD PTR 81C9h
MOV ES:[1838],WORD PTR 81CDh
MOV ES:[1840],WORD PTR 81CDh
MOV ES:[1842],WORD PTR 81CDh
MOV ES:[1844],WORD PTR 81CDh
MOV ES:[1846],WORD PTR 81BBh
MOV ES:[1996],WORD PTR 81BAh
MOV ES:[2006],WORD PTR 81BAh
MOV ES:[2156],WORD PTR 81C8h
MOV ES:[2158],WORD PTR 81CDh
MOV ES:[2160],WORD PTR 81CDh
MOV ES:[2162],WORD PTR 81CDh
MOV ES:[2164],WORD PTR 81CDh
MOV ES:[2166],WORD PTR 81BCh
MOV DX,OFFSET INTER
MOV AX,DX
MOV AH,09h
INT 21h
MOV AH,1
INT 21h
CMP BL,'0'
JE FIN
JMP ENCORE
FIN:
MOV AH,0
MOV AL,3
INT 10h
MOV AX,4C00h
INT 21h
END