SHARE
TWEET

Untitled

a guest Dec 11th, 2019 109 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.                  INCLUDE "EMU8086.INC"
  2. .MODEL SMALL
  3. .STACK 100H
  4. .DATA
  5.    SUM DW 0
  6.    TEMP DB 0
  7.    INPUT DW ?
  8.    OUTPUT DW ?
  9.    COUNT DB 0
  10.    
  11.    P DW ?
  12.    Q DW ?
  13.    
  14. .CODE
  15.    MAIN PROC
  16.      MOV AX, @DATA
  17.      MOV DS, AX
  18.      XOR AX, AX
  19.      
  20.      CALL INDEC
  21.      MOV P, AX
  22.      
  23.      PRINTN
  24.      XOR AX, AX
  25.      CALL INDEC
  26.      MOV BX, AX
  27.      
  28.      LP1:
  29.      MOV CX, DX
  30.      XOR AX, AX
  31.      XOR DX, DX
  32.      MOV AX,P
  33.      
  34.      DIV BX
  35.      PUSH DX
  36.      MOV BX, DX
  37.      
  38.      
  39.      CMP DX, 0
  40.      JNE LP1
  41.    
  42.      
  43.      ;POP CX
  44.      ;POP BX
  45.      MOV AX, CX
  46.      
  47.      PRINTN
  48.      CALL OUTDEC
  49.      
  50.      
  51.      MOV AH, 4CH
  52.      INT 21H
  53.   MAIN ENDP
  54.    
  55.   INDEC PROC
  56.      MOV AH,1
  57.      INT 21H
  58.      MOV TEMP,AL
  59.      
  60.     L1:
  61.       SUB AL,48
  62.       XOR AH,AH
  63.       MOV INPUT, AX
  64.        
  65.      
  66.       MOV AX,SUM
  67.       MOV BX,10
  68.       MUL BX
  69.       ADD AX,INPUT
  70.       MOV SUM, AX
  71.      
  72.       MOV AH,1
  73.       INT 21H
  74.       MOV TEMP,AL
  75.      
  76.       CMP TEMP, 13
  77.       JNE L1
  78.      
  79.       MOV AX,SUM
  80.       RET
  81.    INDEC ENDP
  82.  
  83.    OUTDEC PROC
  84.      MOV OUTPUT,AX
  85.      MOV BP,SP
  86.      
  87.      L2:
  88.      XOR AX,AX
  89.      XOR DX,DX
  90.      
  91.      MOV AX,OUTPUT
  92.      MOV BX,10
  93.      DIV BX
  94.      MOV OUTPUT,AX
  95.      
  96.      ADD DX,48
  97.      PUSH DX
  98.      
  99.      CMP OUTPUT,0
  100.      JNE L2
  101.      
  102.      RE:
  103.      POP DX
  104.      MOV AH,2
  105.      INT 21H
  106.      
  107.      CMP SP,BP
  108.      JNE RE
  109.      
  110.      
  111.      RET
  112.    
  113.    OUTDEC ENDP
  114.      
  115.    
  116. END MAIN
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top