STACK SEGMENT	'STACK'
	DB	256	DUP(0)
STACK	ENDS
;
DATA	SEGMENT PARA	PUBLIC	'DATA'
PARM    DB 00H,01H,00H,05H,03H,03H,04H,01H,05H
ORG 1000H
MAXI    DB 100H DUP(0)
MINI    DB 100H DUP(0)
ORG 2000H
        DB 256 DUP(0)
DATA	ENDS
;
CODE	SEGMENT PARA	PUBLIC	'CODE'
        ASSUME CS:CODE
;
MAIN:   ASSUME DS:DATA
        MOV AX,DATA
        MOV DS,AX
        MOV CX,0000H
        MOV DX,0000H
        MOV BX,OFFSET PARM
        MOV DI,OFFSET MAXI
        MOV SI,OFFSET MINI
START:  MOV AL,[BX]
        INC BX
        CMP AL,[BX]
        JZ  START
        JC  VALE        ;AL>[BX]
        JMP APEX        ;AL<[BX] 



VALE:   MOV AL,[BX]
        CMP AL,[BX+1]
        JZ COUN
        JNC VALE2
        JMP COUN
VALE2:  MOV DS:[DI],AL
        INC DI
        PUSH AX
        MOV AX,BX
        AND AX,00FFH
        PUSH BX
        MOV BX,CX
        MOV DS:[3000H+BX],AL
        INC CX
        POP BX
        POP AX
        JMP COUN
APEX:   MOV AL,[BX]
        CMP AL,[BX+1]
        JC  APEX2
        JMP COUN
APEX2:  MOV DS:[SI],AL
        INC SI
        PUSH AX
        MOV AX,BX
        AND AX,00FFH
        PUSH BX
        MOV BX,DX
        MOV DS:[4000H+BX],AL
        INC DX
        POP BX
        POP AX
        JMP COUN

COUN:   
        PUSH AX
        MOV AX,BX
        AND AX,000FH
        CMP AX,0009H
        POP AX
        JZ THEEND
        JMP START
THEEND: MOV AH,4CH
        INT 21H
      
CODE ENDS
        END MAIN