;********* File: foo.com *************
;
    code     SEGMENT
             ASSUME CS:code, DS:code
             ORG 100h
  
    strt:

	JMP	SHORT J00106
	DB	AFh				;00102
	DB	C2h				;00103
	DB	BFh				;00104
	DB	A3h				;00105
J00106: SUB	SP,0100h
	ADD	[BX+SI],AL
	XOR	CX,CX
J0010E: MOV	[SI],CL
	OR	AL,FEh
	DB (C1h)	
	JNZ	J0010E
	XOR	AX,AX
	MOV	DX ,BEEFh
	LODSW	
	COPROC	02h
	ADD	AL,0Ch
	ADD	AL,DL
	ROR	DX,08h
	MOV	BL,[SI]
	OR	AL,8Ah
	CMP	AL,04h
	MOV	[SI],BL
	ADD	AL,88h
	CMP	AL,0Ch
	INC	CL
	JNZ	J0011C
	JMP	J00193
J00137: ADD	[BX+SI],AL
	MOV	BX,SP
	ADD	BX,0004h
	ADD	[BX+SI],AL
	POP	SP 
	POP	AX 
	CMP	AX,4141h
	INC	CX 
	INC	CX 
	JNZ	J0018D
	POP	AX 
	CMP	AX,4242h
	INC	DX 
	INC	DX 
	JNZ	J0018D
	POP	DX 
	MOV	CX,DX
	MOV	SI,SP
	MOV	DI,BX
	SUB	DI,CX
	REPZ    MOVSB	
	MOV	SI,BX
	MOV	CX,DX
	MOV	DI,BX
	SUB	DI,CX
	XOR	AX,AX
	XOR	BX,BX
	XOR	DX,DX
J0016B: INC	AL
	ADD	BL,[SI]
	PUSH	ES 
	MOV	DL,[SI]
	PUSH	ES 
	MOV	DH,[SI]
	PUSH	DS 
	MOV	[SI],DH
	PUSH	ES 
	MOV	[SI],DL
	PUSH	DS 
	ADD	DL,DH
	XOR	DH,DH
	MOV	BL,[SI]
	PUSH	SS 
	MOV	DL,[BX]
	XOR	DL,BL
	MOV	[BX],DL
	INC	DI 
	DEC	CX 
	JNZ	J0016B
J0018D: XOR	BX,BX
	MOV	AX,BX
	INC	AL
J00193: INT	80
	NOP	
	NOP	
	CALL	J00137
	DB (FFh)	
	INC	WORD PTR [BX+DI+41h]
	INC	CX 
	INC	CX 

    code     ENDS
             END  strt