[HaBo]

#!/usr/bin/clisp
(format t "Zahl eingeben: ")
(write (format nil "~@R" (read)))

CSEG segment
org 100h
MAX_INPUT equ 10
Begin:
   ;//Einlesen
    mov ah,0ah
    mov dx,offset input
    int 21h
    ;gleich einen Zeilenumbruch nachschieben
     mov ah,06
     mov dl,10
     int 21h

    ;umrechenen Ascii2Number
     mov bx,offset input
     xor cx,cx
     mov cl,byte ptr[bx+1] ;wieviele Zeichen eingelesen
    
     add bx,1 ;offset in position bringen
     add bx,cx

     xor ax,ax
     mov di,1
     xor si,si
     
     ASCII2WORD_LOOP:
        xor ax,ax
        mov al,byte ptr [bx]
        sub al,'0' 
        mul di
        add si,ax
        mov ax,di
        mov di,10
        mul di
        mov di,ax      
        dec bx
        dec cx       
      jnz ASCII2WORD_LOOP
;in SI ist jetzt die umgerechnete Eingabe
;jetzt römisch ausgeben (subtraktionsform)    


mov ax,si
mov si,offset rom
mov di, offset dez
mov cx,14 ;anzahl der Zahlen

WORD2ROM_LOOP:
   mov bx,di
   mov dx,[bx] ;zahl
   mov bx,dx
   xor dx,dx
   div bx
   ;ergebnis: in AX Anzahl der Buchstaben zum Ausgeben, DX ist der Rest, der verbleibt
   test ax,ax
   push dx
   jz @f ;wenn 0, dann nichts ausgeben
   
   push cx
   mov cx,ax
   
   OUT_LOOP:
    mov ah,9
    mov dx,si
    int 21h
   loop OUT_LOOP   
   pop cx
   
   @@:
   pop ax  ;werte tauschen
   add si,3
   add di,2
   loop WORD2ROM_LOOP
   ;konsole nciht gleich schließen
   int 20h

rom db "A$",0,"M$",0,"CM$","D$",0,"CD$","C$",0,"XC$","L$",0,"XL$","X$",0,"IX$","V$",0,"IV$","I$"
dez dw 5000,1000,900,500,400,  100, 90,  50,  40, 10, 9,         5,   4, 1
input db MAX_INPUT
CSEG ends
end Begin