COMPUTER organization and assembly language

PROGRAM 1 :   Multiple digits key-in and display

——-

; Author: DAVID PELED;Multiple digits display.model small ; The CPU alocates small memory for the program.386 ; For 32 bits assembly.stack 100h ; 100(16) locations = 256(10).data ; For variablesby_10 dd 10 ; 32 bits variable with an initial value of 10disp_Number dd 0 ; 32 bits variable with an initial value of 10last_key dd 0 ; LAST KEY BEING PRESSEDstk_count db 0 ; 8 bits counter .code ; write the code for the programmain proc mov ax,@data ; set up data segment mov ds,ax Call keyinmov eax, disp_Numbercall dspmov ax, 4c00hint 21hdsp procrpt:mov edx, 0div by_10 ; EAX/By_10mov disp_Number, eaxpush dx ; remainder push into the stackinc stk_countcmp disp_Number, 0jnz rptrpt2:pop dx ;pop from the stackadd dl, 30h ; make it asciimov ah, 6int 21hdec stk_countjnz rpt2retdsp endpKeyIN procmov disp_Number, 0LP: mov ah,1 ; KEY IN COMMANDSINT 21hcmp al, 13 ; COMPARE TO 13 TO VIEW IF CR WAS PRESSEDJZ short finKeysub al, 30h ; REMOVE THE ASCII TO GET A PURE NUMBERAND eax, 000000ffh ; FF = 1111 1111 ; TO ERASE ALL VALUES OTHER THEN IN ALmov last_key, eaxmov eax, disp_Numbermul by_10add eax, last_keymov disp_Number, eaxjmp LPfinKey:retKeyIN endpmain endpend main

—————————————–

PROGRAM 2 :   Display the multiple digits in multiple bases

——–

; Author: DAVID PELED;Multiple digits display.model small ; The CPU alocates small memory for the program.386 ; For 32 bits assembly.stack 100h ; 100(16) locations = 256(10).data ; For variablesby_x dd 2 ; 32 bits variable with an initial value of 10stk_count db 0 ; 8 bits counter .code ; write the code for the programmain proc mov ax,@data ; set up data segment mov ds,ax LP1: mov eax, 253 ; 253(10) 11111101call dspinc by_xmov dl, 20Hmov ah, 6int 21hcmp by_x, 41js lp1 mov ax, 4c00h ; END THE PROGRAMint 21hdsp procrpt:; PUSH TO THE STACKmov edx, 0div by_x ; EAX/By_xpush dx ; remainder push into the stackinc stk_count CMP EAX, 0jnz rptrpt2:pop dx ;pop from the stack DX = DH + DLcmp dl, 10js short skip2add dl, 7skip2:add dl, 30h ; make it ascii for displaymov ah, 6int 21hdec stk_countjnz rpt2retdsp endpmain endpend main