; centigrade (celsius) to fahrenheit calculation and vice-versa. 
; it may not be accurate, because of integer division. 

; this program prints out the result in binary code. 
; to see result in hexadecimal or decimal form click vars. 

name "celsi"

org 100h

jmp start

tc db 10    ; t celsius. 
tf db 0     ; t fahrenheit. 

result1 db ?   ; result in fahrenheit. 
result2 db ?   ; result in celsius. 

start:

; convert celsius to fahrenheit according 
; to this formula: f = c * 9 / 5 + 32 

mov cl, tc
mov al, 9
imul cl
mov cl, 5
idiv cl
add al, 32
mov result1, al

mov bl, result1
call print  ; print bl 


; convert fahrenheit to celsius according 
; to this formula: c = (f - 32) * 5 / 9 

mov cl, tf
sub cl, 32
mov al, 5
imul cl
mov cl, 9
idiv cl
mov result2, al

mov bl, result2
call print  ; print bl 

; wait for any key press... 
mov ah, 0
int 16h


ret  ; return to the operating system. 


; procedure prints the binary value of bl 
print proc near

pusha

; print result in binary: 
mov cx, 8
p1:    mov ah, 2   ; print function. 
       mov dl, '0'
       test bl, 10000000b  ; test first bit. 
       jz zero
       mov dl, '1'
zero:  int 21h
       shl bl, 1
loop p1
; print binary suffix: 
mov dl, 'b'
int 21h
; print carrige return and new line: 
mov dl, 0Dh
int 21h
mov dl, 0Ah
int 21h

popa

ret  ; return to the main program. 
print endp