Question

Develop a MAL program that prints an unsigned integer value in the octal system format. The program should take a decimal integer value from the user and then pass it to a procedure that converts the number to octal and prints it on the screen.

Answer 1

Code :-

mov ah, 0ah
   lea dx, oBuffer
   int 21h
  
   mov ah,02h
   mov dh,0Dh
   mov dl,15h
   int 10h
  
   mov dx, offset LblOct1
   mov ah, 09h
   int 21h
  
  
   mov si, offset oBuffer + 2
   mov cl, byte ptr [si-1]
   mov ch, 00h
OctSubtract :
   mov al, byte ptr [si]
   cmp al, 30h
   jnb OctCont1
   jmp tryO
OctCont1 :
   cmp al, 3ah
   jb OctCont2
   jmp tryO
OctCont2 :
   sub al, 30h
   mov byte ptr [si], al
   inc si
   loop OctSubtract
   mov si, offset oBuffer + 2
   mov cl, byte ptr [si-1]
   mov ch, 00h
   mov ax, 0000h
OctCalc :
   mul oMultiplier
   mov bl, byte ptr [si]
   mov bh, 00h
   add ax, bx
   inc si
   loop OctCalc
   mov si, offset oBuffer + 2
   mov bx, ax
   mov dx, 0000h
   mov ax, 8000h
OctOctConvert :
   mov cx, 0000h
OctConv :
   cmp bx, ax
   jb OctCont3
   sub bx, ax
   inc cx
   jmp OctConv
OctCont3 :
   add cl, 30h
   mov byte ptr [si], cl
   inc si
   mov cx, 0008h
   div cx
   cmp ax, 0000h
   jnz OctOctConvert
   mov byte ptr [si], '$'
   mov dx, offset oBuffer+2
   mov ah, 09h
   int 21h