Microsoft (R) Macro Assembler Version 6.11		    05/04/10 22:26:25
u:\tret_ko.asm						     Page 1 - 1


				include io.asm
			      C 
			      C .nolist    ;§ ЇаҐв § ЇЁбЁ нв®Ј® д ©«  ў «ЁбвЁ­Ј
			      C .list
			      C 

 0000				stack segment stack
 0000  0080 [				dw 128 dup (?)
        0000
       ]
 0100				stack ends

 0000				data segment
 0000 03 05 08 01 03		 d2 db 3,5,8,1,3 ; второй массив 
 0005 08 02 04 06 08		 d1 db 8,2,4,6,8 ; первый массив
 = 0005				 x equ 5 ; длина массивов
 000A				data ends

 0000				code segment 'code'
					assume ss:stack, ds:data, cs:code
 0000				pro proc
 0000  BE 0009			    mov si,9
 0003  B9 0008			    mov cx,8
 0006  8B E9			CIKL:mov bp,cx
 0008  3E: 8A 5E 00			mov bl,ds:[bp]
 000C  38 1C				cmp ds:[si],bl ;сравниваем мин. с текущим
 000E  7E 02				jng L1
 0010  8B F5			    mov si,bp	;запоминаем если надо
 0012  83 F9 05			 L1:cmp cx,5
 0015  75 17				jne L2
 0017  83 EE 05				sub si,5
					outint si
 001A  50		     2	         push ax
 001B  52		     2	         push dx
 001C  B2 00		     2	         mov dl,0           
 001E  8B C6		     2	         mov ax,si
 0020  B6 01		     2	         mov dh,1
 0022  9A ---- 0000 E	     2	         call procoutnum   
 0027  5A		     2	         pop dx
 0028  58		     2	         pop ax
					newline
 0029  9A ---- 0000 E	     1	         call procnl
 002E  E2 D6			 L2:loop CIKL
				    outint si
 0030  50		     2	         push ax
 0031  52		     2	         push dx
 0032  B2 00		     2	         mov dl,0           
 0034  8B C6		     2	         mov ax,si
 0036  B6 01		     2	         mov dh,1
 0038  9A ---- 0000 E	     2	         call procoutnum   
 003D  5A		     2	         pop dx
 003E  58		     2	         pop ax
 003F  C3			    ret
 0040				pro endp
 0040				start:
 0040  B8 ---- R			mov ax,data
 0043  8E D8				mov ds,ax
 0045  53				push bx
 0046  55				push bp
 0047  56				push si
 0048  E8 FFB5				call pro
 004B  5E				pop si
 004C  5D				pop bp
 004D  5B				pop bx
					newline
 004E  9A ---- 0000 E	     1	         call procnl
					finish
 0053  B4 4C		     1	        mov ah,4Ch
 0055  CD 21		     1	        int 21h
 0057				code ends
				    end start 
Microsoft (R) Macro Assembler Version 6.11		    05/04/10 22:26:25
u:\tret_ko.asm						     Symbols 2 - 1




Macros:

                N a m e                 Type

finish . . . . . . . . . . . . .	Proc
flush  . . . . . . . . . . . . .	Proc
inch . . . . . . . . . . . . . .	Proc
inint  . . . . . . . . . . . . .	Proc
newline  . . . . . . . . . . . .	Proc
outch  . . . . . . . . . . . . .	Proc
outint . . . . . . . . . . . . .	Proc
outnum . . . . . . . . . . . . .	Proc
outstr . . . . . . . . . . . . .	Proc
outword  . . . . . . . . . . . .	Proc
same . . . . . . . . . . . . . .	Proc


Segments and Groups:

                N a m e                 Size     Length   Align   Combine Class

code . . . . . . . . . . . . . .	16 Bit	 0057	  Para	  Private 'CODE'	
data . . . . . . . . . . . . . .	16 Bit	 000A	  Para	  Private 
stack  . . . . . . . . . . . . .	16 Bit	 0100	  Para	  Stack	  


Procedures,  parameters and locals:

                N a m e                 Type     Value    Attr

pro  . . . . . . . . . . . . . .	P Near	 0000	  code	Length= 0040 Private


Symbols:

                N a m e                 Type     Value    Attr

??0000 . . . . . . . . . . . . .	Number	 0000h	 
??0001 . . . . . . . . . . . . .	Number	 0000h	 
CIKL . . . . . . . . . . . . . .	L Near	 0006	  code	
L1 . . . . . . . . . . . . . . .	L Near	 0012	  code	
L2 . . . . . . . . . . . . . . .	L Near	 002E	  code	
d1 . . . . . . . . . . . . . . .	Byte	 0005	  data	
d2 . . . . . . . . . . . . . . .	Byte	 0000	  data	
procflush  . . . . . . . . . . .	L Far	 0000	  External
procinch . . . . . . . . . . . .	L Far	 0000	  External
procinint  . . . . . . . . . . .	L Far	 0000	  External
procnl . . . . . . . . . . . . .	L Far	 0000	  External
procoutnum . . . . . . . . . . .	L Far	 0000	  External
start  . . . . . . . . . . . . .	L Near	 0040	  code	
x  . . . . . . . . . . . . . . .	Number	 0005h	 

	   0 Warnings
	   0 Errors