INCLUDE IO.ASM

ST1 SEGMENT
    DB 128 DUP(?)
ST1 ENDS

DATA SEGMENT
    n dw 0
    n2 dw 0
    i   dw 1
    k   dw  0
    j   dw  1
    two dw  2
    a   dw  100 DUP(1)
    mess db "Enter n = $"
    mess1 db "Enter matrix $"
DATA ENDS

CODE SEGMENT
ASSUME CS:CODE, DS:DATA, SS:ST1
MAIN PROC
    mov ax,Data
    mov ds,ax
;==============
    mov dx,0
    LEA DX,mess
        outstr
    inint n
    mov dx,0
    mov ax,n
    add n2,ax
    add n2,ax
    mov cx,n
l1:
    push cx
    mov j,1
    mov cx,n
cj:
    mov ax,i
    cmp ax,j
    jle l2
    mov dx,0
    dec ax                  ;;ниже главной j>i
    mul n
    add ax,j
    mov dx,0
    mul two
    mov bx,ax
    sub bx,2
    mov a[bx],0
l2:
    inc j
    loop cj
    inc i
    pop cx
    loop l1
    mov cx,n
    mov bx,0
output:
    push cx
    mov cx,n
    mov si,0
ots:
    outint a[bx][si]
    outch ' '
    add si,2
    loop ots
    newline
    add bx,n2
    pop cx
    loop output
    mov dx,0
;==============
exit:   mov ah,4ch
        int 21h
MAIN ENDP
CODE ENDS
END MAIN

====

INCLUDE IO.ASM

ST1 SEGMENT
    DB 128 DUP(?)
ST1 ENDS

DATA SEGMENT
    n dw 0
    n2 dw 0
    i   dw 1
    k   dw  0
    j   dw  1
    two dw  2
    a   dw  100 DUP(1)
    mess db "Enter n = $"
    mess1 db "Enter matrix $"
DATA ENDS

CODE SEGMENT
ASSUME CS:CODE, DS:DATA, SS:ST1
MAIN PROC
    mov ax,Data
    mov ds,ax
;==============
    mov dx,0
    LEA DX,mess
        outstr
    inint n
    mov dx,0
    mov ax,n
    add n2,ax
    add n2,ax
    mov cx,n
l1:
    push cx
    mov j,1
    mov cx,n
cj:
    mov ax,i
    cmp ax,j
    jge l2
    mov dx,0
    dec ax
    mul n           ;;выше главной i<j
    add ax,j
    mov dx,0
    mul two
    mov bx,ax
    sub bx,2
    mov a[bx],0
l2:
    inc j
    loop cj
    inc i
    pop cx
    loop l1
    mov cx,n
    mov bx,0
output:
    push cx
    mov cx,n
    mov si,0
ots:
    outint a[bx][si]
    outch ' '
    add si,2
    loop ots
    newline
    add bx,n2
    pop cx
    loop output
    mov dx,0
;==============
exit:   mov ah,4ch
        int 21h
MAIN ENDP
CODE ENDS
END MAIN



INCLUDE IO.ASM

ST1 SEGMENT
    DB 128 DUP(?)
ST1 ENDS

DATA SEGMENT
    n dw 0
    n2 dw 0
    i   dw 1
    k   dw  0
    j   dw  1
    two dw  2
    a   dw  100 DUP(1)
    mess db "Enter n = $"
    mess1 db "Enter matrix $"
DATA ENDS

CODE SEGMENT
ASSUME CS:CODE, DS:DATA, SS:ST1
MAIN PROC
    mov ax,Data
    mov ds,ax
;==============
    mov dx,0
    LEA DX,mess
        outstr
    inint n
    mov dx,0
    mov ax,n
    add n2,ax
    add n2,ax
    mov cx,n
l1:
    push cx
    mov j,1
    mov cx,n
cj:
    mov ax,n
    sub ax,j
    inc ax
    mov di,ax
    mov ax,i
    cmp ax,di
    jle l2          ;;ниже побочной i>n-j+1
    mov dx,0
    dec ax
    mul n
    add ax,j
    mov dx,0
    mul two
    mov bx,ax
    sub bx,2
    mov a[bx],0
l2:
    inc j
    loop cj
    inc i
    pop cx
    loop l1
    mov cx,n
    mov bx,0
output:
    push cx
    mov cx,n
    mov si,0
ots:
    outint a[bx][si]
    outch ' '
    add si,2
    loop ots
    newline
    add bx,n2
    pop cx
    loop output
    mov dx,0
;==============
exit:   mov ah,4ch
        int 21h
MAIN ENDP
CODE ENDS
END MAIN

===

INCLUDE IO.ASM

ST1 SEGMENT
    DB 128 DUP(?)
ST1 ENDS

DATA SEGMENT
    n dw 0
    n2 dw 0
    i   dw 1
    k   dw  0
    j   dw  1
    two dw  2
    a   dw  100 DUP(1)
    mess db "Enter n = $"
    mess1 db "Enter matrix $"
DATA ENDS

CODE SEGMENT
ASSUME CS:CODE, DS:DATA, SS:ST1
MAIN PROC
    mov ax,Data
    mov ds,ax
;==============
    mov dx,0
    LEA DX,mess
        outstr
    inint n
    mov dx,0
    mov ax,n
    add n2,ax
    add n2,ax
    mov cx,n
l1:
    push cx
    mov j,1
    mov cx,n
cj:
    mov ax,n
    sub ax,j
    inc ax
    mov di,ax
    mov ax,i
    cmp ax,di                   ;;выше побочной i<n-j+1
    jge l2
    mov dx,0
    dec ax
    mul n
    add ax,j
    mov dx,0
    mul two
    mov bx,ax
    sub bx,2            ;;т.к. k элемент это k+1 в памяти, -1 для байт
    mov a[bx],0
l2:
    inc j
    loop cj
    inc i
    pop cx
    loop l1
    mov cx,n
    mov bx,0
output:
    push cx
    mov cx,n
    mov si,0
ots:
    outint a[bx][si]
    outch ' '
    add si,2
    loop ots
    newline
    add bx,n2
    pop cx
    loop output
    mov dx,0
;==============
exit:   mov ah,4ch
        int 21h
MAIN ENDP
CODE ENDS
END MAIN