All pastes #352108 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-02-12 16:28 UTC
rendered paste body
;===========================================================
;=                                    =
;===========================================================
;
;Auteur            : G28823
;
;============================================================

;============================================================
;=                 DIRECTIVE COMPILATEUR                    =
;============================================================
.MODEL small
.STACK 100h

;============================================================
;=                         Donnée                           =
;============================================================
.DATA
  A    db  ?
  B    dw  ?
  H    db  ?
  P    db  3
  Prod db  ? 
;============================================================
;=                      CODE SOURCE                         =
;============================================================
.CODE

;============================================================
;=                  Programme principale                    =
;============================================================

main PROC
  ; ---------- Intro ----------
  mov ax,@data
  mov ds,ax

  ; -------- Programme --------
  
  mov al,A     
  sub ax,B     ; A = (A-B)
  mov cx,ax

  mov ax,2     
  add cx,ax     ; A = 2 + A

  mov ax,2     ; P = 2 * P
  mul P
  
mul P        ; P = P²
  mov P,ax

  mov ax,10
  mul H        ; H = 10 * H
  mov H,ax	

  mov ax,H
  add ax,P     ; H = H + P 
  mov H,ax  

  mov ax,A
  sub ax,H     ; A = A - H
  mov A,ax

  mov ax,6
  mul A        ; Prod = A * 6
  mov Prod,ax

  ; -------- Epilogue ---------

  mov ax,4c00h
  int 21h
main ENDP

;============================================================
;=        FIN FICHIER SOURCE ET POINT D'ENTREE              =
;============================================================
END main