Assembly-Language/Pattern.asm at main · naiemofficial/Assembly-Language · 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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
.MODEL SMALL
.STACK 100H
.DATA
    N DB 0                   ; To store the user input value of N
    SPACE DB '  $'           ; Space string
    NUMFMT DB '%D $'         ; Number format string (not directly used)
    NEWLINE DB 0DH, 0AH, '$' ; Newline
.CODE
MAIN PROC
    ; Initialize data segment
    MOV AX, @DATA
    MOV DS, AX

    ; Take input for N
    LEA DX, SPACE          ; Prompt user (using space as an example for prompt)
    MOV AH, 09H
    INT 21H

    MOV AH, 01H            ; Read a single character
    INT 21H
    SUB AL, '0'            ; Convert ASCII to numeric
    MOV N, AL              ; Store the numeric value in N

    ; Print newline after input
    LEA DX, NEWLINE
    MOV AH, 09H
    INT 21H

    ; Upper Triangle
    MOV AL, N              ; AL = N
    MOV CL, AL             ; CL = N (outer loop variable for i)

UPPEROUTERLOOP:
    ; Leading spaces
    MOV BL, N              ; BL = N
    SUB BL, CL             ; BL = N - i
    CMP BL, 0
    JE UPPERPRINTNUMBERS   ; Skip if no spaces
UPPERSPACELOOP:
    LEA DX, SPACE
    MOV AH, 09H
    INT 21H                ; Print space
    DEC BL                 ; Decrement space counter
    JNZ UPPERSPACELOOP

UPPERPRINTNUMBERS:
    ; Print descending numbers
    MOV BL, CL             ; BL = i
    SHL BL, 1              ; BL = 2 * i
    DEC BL                 ; BL = 2 * i - 1 (K)
UPPERNUMBERLOOP:
    MOV DL, BL             ; DL = K
    ADD DL, '0'            ; Convert to ASCII
    MOV AH, 02H
    INT 21H                ; Print number
    MOV AH, 02H
    MOV DL, ' '            ; Print space after number
    INT 21H
    DEC BL                 ; Decrement K
    CMP BL, 0
    JNZ UPPERNUMBERLOOP

    ; Print newline
    LEA DX, NEWLINE
    MOV AH, 09H
    INT 21H

    DEC CL                 ; i--
    CMP CL, 0
    JNZ UPPEROUTERLOOP

    ; Lower Triangle
    MOV CL, 2              ; i = 2

LOWEROUTERLOOP:
    ; Leading spaces
    MOV BL, N              ; BL = N
    SUB BL, CL             ; BL = N - i
    CMP BL, 0
    JE LOWERPRINTNUMBERS   ; Skip if no spaces
LOWERSPACELOOP:
    LEA DX, SPACE
    MOV AH, 09H
    INT 21H                ; Print space
    DEC BL                 ; Decrement space counter
    JNZ LOWERSPACELOOP

LOWERPRINTNUMBERS:
    ; Print descending numbers
    MOV BL, CL             ; BL = i
    SHL BL, 1              ; BL = 2 * i
    DEC BL                 ; BL = 2 * i - 1 (K)
LOWERNUMBERLOOP:
    MOV DL, BL             ; DL = K
    ADD DL, '0'            ; Convert to ASCII
    MOV AH, 02H
    INT 21H                ; Print number
    MOV AH, 02H
    MOV DL, ' '            ; Print space after number
    INT 21H
    DEC BL                 ; Decrement K
    CMP BL, 0
    JNZ LOWERNUMBERLOOP

    ; Print newline
    LEA DX, NEWLINE
    MOV AH, 09H
    INT 21H

    INC CL                 ; i++
    CMP CL, N
    JLE LOWEROUTERLOOP

    ; Exit program
    MOV AH, 4CH
    INT 21H
MAIN ENDP
END MAIN