stack segment stack
dw 128 dup(?)
stack ends

code segment
assume cs: code

procoutnum proc far
      push bp
      mov  bp,sp
      push ax
      push dx
      push si
      sub  sp,6         
      cmp  dh,1        
      jne  pon0
      cmp  ax,0
      jge  pon0
      mov  dh,2         
      neg  ax           
pon0: 
	  push dx          
      xor  si,si        
pon1: 
	  mov  dx,0         
      div  cs:ten     
      add  dl,'0'
      mov  byte ptr [bp-12+si],dl
      inc  si
      or   ax,ax
      jnz  pon1      
      pop  dx
      cmp  dh,2
      jne  pon2
      mov  byte ptr [bp-12+si],'-'
      inc  si
pon2: 
mov  dh,0       
      mov  ah,2        
pon21: 
	  cmp dx,si
      jle pon3
      push dx
      mov  dl,' '
      int  21h
      pop  dx
      dec  dx
      jmp  pon21
pon3: 
	  dec  si
      mov  dl,byte ptr [bp-12+si]
      int  21h
      or   si,si
      jnz  pon3
      add  sp,6
      pop  si
      pop  dx
      pop  ax
      pop  bp
      ret
ten   dw 10
procoutnum endp

start:
	mov cx, 10
	xor ax, ax
	mov dh,1
	mov dl, 2
	l:
	call procoutnum
	inc ax
	loop l
	mov cx, 10
	xor ax,ax
	k:
	dec ax
         call procoutnum
	loop k
	mov ah, 10h
	int 16h
	mov ah, 4ch
	int 21h
code ends
end start

cmp x, 5
jbe ELSE
cmp x, c
jne ELSE
mov y, 10
jmp CONT
ELSE: mov y, 12
CONT: ...

CSEG
ORG 0
Continue:
          mov A, #10000000b
          mov DPTR, #0A006h
          movx @DPTR, A 		;отменить гашение знакомест С_инд
          mov A, #0h 		;записать в Акк. число 04
          mov DPTR, #0A006h 	;установить в DPTR адрес левой 
;пары знакомест С_инд
          movx @DPTR, A 		
          mov DPTR, #0B006h 	;установить в DPTR адрес правой 
;пары знакомест С_инд
          movx @DPTR, A 		
CALL ZAD 			;вызов подпрограммы задержки
          mov A, #10000000b
          mov DPTR, #0A006h
          movx @DPTR, A 	 ;погасить все знакоместа С_инд
         
CALL ZAD 		;вызов подпрограммы задержки
          mov A, #01000000b
          mov DPTR, #0A006h
          movx @DPTR, A 		
CALL ZAD	
          mov A, #00100000b
          mov DPTR, #0A006h
          movx @DPTR, A
CALL ZAD 			
          mov A, #00010000b
          mov DPTR, #0A006h
          movx @DPTR, A
CALL ZAD					
          mov A, #00001000b
          mov DPTR, #0A006h
          movx @DPTR, A  		
CALL ZAD		 			
          mov A, #00000100b
          mov DPTR, #0A006h
          movx @DPTR, A 		
          
CALL ZAD 			
          mov A, #00000010b
          mov DPTR, #0A006h
          movx @DPTR, A
 		
CALL ZAD 			
          mov A, #00000001b
          mov DPTR, #0A006h
          movx @DPTR, A
          CALL ZAD
          jmp Continue 	  ;переход на начало программы

ZAD: 				;подпрограмма задержки
          mov R1, #0FFh
C2:     mov R2, #0FFh
C4:     djnz R2, C4
          djnz R1, C2
          
ret 			;выход из подпрограммы
END

assume cs:code, ds:data
code segment
org	100h
start:

	lea bx, work
	mov cx, 10
	mov di, 0 ; index (row)

a0:
		push cx
		push di 
		
		mov cx, 10
		mov di, 0 ;index (column)
		
		a1:
			;mov [bx+di*2], di
			mov 2[bx][di], di

; start show number			
			mov	ax, 2[bx][di]
			
			push cx
			push di
			
			std                  	
			lea	di,StringEnd-1 		
				     		
			
			mov	cx,10          		
		iRepeat:
			xor	dx,dx          		
			div	cx             		
			xchg	ax,dx          	
			add	al,'0'         		
			stosb                  	
			xchg	ax,dx          	
			or	ax,ax          		
			jne	iRepeat         	

			mov	ah,9				
			lea	dx,[di+1]      		
			int	21h            		
			mov dx, offset Space
			int 21h
			
			pop di
			pop cx
			
			inc di
;end show number				
		
	loop a1
	
	pop di ;reincornate di, cx
	pop cx ;
	add bx, 10*2 ; go to next line
	
	push ax
	push dx
		
	mov ah, 9
	mov dx, offset nl
	int 21h
	
	pop dx
	pop ax
	
loop a0

	Space db " ", '$'
	String		db	5 dup (?),'$'  	; 5 byte for string
	StringEnd	=	$-1            	; Ukazatel' na simvol '$'

	work    dw     100 dup (0h)	;mass work <- 100 word's	
	nl      db 	    0Dh, 0Ah, '$'
code ends

data segment

ends data
	
end start