Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;proc
- .STACK 100h
- .CODE
- main proc
- mov ax,5H
- call fact
- call prime
- ret
- main endp
- fact proc
- push ax
- MOV BX,AX
- sub bx ,1
- LOOP1:
- MUL BX ;AX=AX*BX
- MOV CX,AX
- DEC BX
- CMP BX,0H
- JE BREAK
- JMP LOOP1
- BREAK:
- pop ax
- MOV BX,CX
- ret
- fact endp
- prime proc
- mov dx, 2h
- div dx
- mov ah,4ch
- int 21h
- ret
- proc endp
- ;factorial
- ;MOV AH,1
- ;INT 21H
- MOV AX,5H
- MOV BX,4H
- LOOP1:
- MUL BX ;AX=AX*BX
- MOV CX,AX
- DEC BX
- CMP BX,0H
- JE BREAK
- JMP LOOP1
- BREAK:
- MOV BX,CX
- ;triangle number
- MOV CL,1;LINE NUMBER
- MOV BL,CL
- MOV DL,'1'
- MOV AH,2
- INT 21H
- LEVEL1:
- CMP CL,5
- JE BREAK
- INC CL
- JMP LEVEL2
- MOV DL,0DH
- INT 21H
- MOV DL,0AH
- INT 21H
- JMP LEVEL1
- LEVEL2:
- CMP BL,CL
- JG LEVEL1
- ;MOV DL,50
- INT 21H
- INC BL
- INC DL
- ; MOV DL,BL
- INT 21H
- JMP LEVEL2
- BREAK:
- ;gcd
- MOV AX,10D
- MOV BX,25D
- MOV CX,1D
- LEVEL1:
- CMP AX,BX
- JE EXIT
- CMP AX,BX
- JG LEVEL2
- SUB BX,AX
- JMP LEVEL1
- LEVEL2:
- SUB AX,BX
- EXIT:
- MOV CX,AX
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement