Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; --------------------------------------- Dateiname: ?????????.ASM ----------------------------------------------
- ; Geben Sie hier eine kurze Beschreibung dieses Programms ein
- ;
- ;
- ;------------------------------------------------------------------------------------------------------------------------------
- %noctls ; Listing-Steueranweisungen werden nicht im Listing augegeben
- %noincl ; Incude-Dateien werden nicht im Listing ausgegeben
- INCLUDE MACROS.ASM ; Datei Macros.asm einbinden
- ASSUME CS:CODE, DS:DATA ; Segmentnamen bekannt geben
- ; „CODE“ wird Codesegment, „DATA“ wird Datensegment
- ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
- DATA SEGMENT ; Beginn des Segmentes „DATA“
- DIV1 DW 35000
- DIV2 DW 12000
- Zahl DD 0h
- DATA ENDS ; Ende des Segmentes „DATA“
- ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
- ;-------------------------------------------------------------------------------------------------------------------------------
- CODE SEGMENT ; Beginn des Segmentes „CODE“
- Anfang: MOV AX, DATA ; Datensegmentadresse ins ;Register AX
- MOV DS, AX ; Inhalt von Register AX ins Register DS
- mov dx,0
- mov ax,DIV1
- mov bx,DIV2
- mul bx
- mov bx,offset zahl
- mov [bx],ax
- mov [bx+2],dx
- mov bx,4
- mul bx
- mov bx,offset zahl
- mov [bx],ax
- mov [bx+2],dx
- add ax,131
- mov bx,offset zahl
- mov [bx],ax
- mov [bx+2],dx
- Terminate_Program ; Makro Terminate_Program aufrufen
- CODE ENDS ; Ende des Segmentes „CODE“ -------------------------------------------------------------------------------------------------------------------------------
- END Anfang ; Ende des Programms
- ; Programm wird bei Anfang gestartet
Add Comment
Please, Sign In to add comment