Guest User

Untitled

a guest
May 1st, 2018
122
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; --------------------------------------- Dateiname: ?????????.ASM ----------------------------------------------
  2. ; Geben Sie hier eine kurze Beschreibung dieses Programms ein
  3. ;
  4. ;
  5. ;------------------------------------------------------------------------------------------------------------------------------
  6. %noctls ; Listing-Steueranweisungen werden nicht im Listing augegeben
  7. %noincl ; Incude-Dateien werden nicht im Listing ausgegeben
  8. INCLUDE MACROS.ASM ; Datei Macros.asm einbinden
  9. ASSUME CS:CODE, DS:DATA ; Segmentnamen bekannt geben
  10.                         ; „CODE“ wird Codesegment, „DATA“ wird Datensegment
  11. ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  12. DATA SEGMENT ; Beginn des Segmentes „DATA“
  13.  
  14. DIV1 DW 35000
  15. DIV2 DW 12000
  16. Zahl DD 0h
  17.  
  18. DATA ENDS ; Ende des Segmentes „DATA“
  19. ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  20. ;-------------------------------------------------------------------------------------------------------------------------------
  21. CODE SEGMENT            ; Beginn des Segmentes „CODE“
  22. Anfang: MOV AX, DATA    ; Datensegmentadresse ins ;Register AX
  23. MOV DS, AX              ; Inhalt von Register AX ins Register DS
  24.  
  25. mov dx,0
  26. mov ax,DIV1
  27. mov bx,DIV2
  28. mul bx
  29. mov bx,offset zahl
  30. mov [bx],ax
  31. mov [bx+2],dx
  32. mov bx,4
  33. mul bx
  34. mov bx,offset zahl
  35. mov [bx],ax
  36. mov [bx+2],dx
  37. add ax,131
  38. mov bx,offset zahl
  39. mov [bx],ax
  40. mov [bx+2],dx
  41.  
  42.  
  43.  
  44.  
  45. Terminate_Program       ; Makro Terminate_Program aufrufen
  46. CODE ENDS               ; Ende des Segmentes „CODE“ -------------------------------------------------------------------------------------------------------------------------------
  47. END Anfang              ; Ende des Programms
  48. ; Programm wird bei Anfang gestartet
Add Comment
Please, Sign In to add comment