x86-Assembly-Programs/MathExpressions/pascalTriangle.asm at main · Mohammed-Azab/x86-Assembly-Programs · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
include emu8086.inc
ORG 100h
.data
    newLineStr db 0Dh, 0Ah, '$'
    length DW 0AH

.code
    MOV CX,Length
    CMP CX,0
    JZ Terminate
    MOV SI,CX         ;number of rows
    MOV DI,0          ;row number
    MOV BP,0          ;column number
    DEC BP            ;DEC BP to INC it in loop

    MainLoop:
        INC BP                     ; set BP to current column number

        MOV AX,DI                  ; set AX to current row number to calculate its factorial
        CALL factorial_calc
        MOV DS,AX                  ;N!


        MOV AX,BP                  ; set AX to current column number to calculate its factorial
        CALL factorial_calc
        MOV ES,AX                  ;K!

        MOV AX,DI
        SUB AX,BP                  ; calculate n-k
        CALL factorial_calc        ;calculate (n-k)!

        MOV CX,ES
        MUL CX                     ;K! N-K!

        MOV CX,AX
        MOV AX,DS
        DIV CX                     ;Calculate n!/((k!)*(n-k)!)
        CALL PRINT_NUM             ;Print the Pascal Number
        MOV AH,2H
        MOV DX,20H                 ;print a space
        INT 21H                    ;to print a character
        CMP DI,BP                  ;if column number eguals row number so it must move to next row
        JNZ MainLoop                  ;if not so it should repeat calculation in current row
        JMP NewLine

    NewLine:
        MOV AH,2H
        MOV DX,0AH     ;print new line
        INT 21H
        MOV DX,13      ;print carriage return
        INT 21H
        MOV BP,0000    ;set column number to 0
        DEC BP
        INC DI
        CMP SI,DI      ;if current row number equals row number, it will stop executing
        JE Terminate
        JMP MainLoop

    Terminate:
        HLT


    DEFINE_PRINT_NUM                     ;to print a number
    DEFINE_PRINT_NUM_UNS                 ;required for PRINT_NUM
    DEFINE_PRINT_STRING                  ;to print string


    factorial_calc proc
        MOV CX,AX
        MOV AX,1
        CMP CX,0
        JE RETURN
        FAC:
        MUL CX
        CMP CX,01
        LOOPNE FAC
        RETURN:
        RET
        factorial_calc ENDP

   HLT