程序死循环，为什么啊，帮帮忙！

[yxxng]

其实我写这段代码，只是练习一下用堆栈穿参，但谁知道会死循环，请高手指教！

STACK SEGMENT PARA STACK 'STACK'
SSTA DW 128 DUP(?)
TOP EQU LENGTH SSTA
STACK ENDS
;**************************************************************

EXTRA SEGMENT PARA 'EXTRA'

EXTRA ENDS
;**************************************************************

DATA SEGMENT PARA 'DATA'
TABLE DB 10,25,128,4,1,89
COUNT EQU $-TABLE
MAX DB ?
PLACE DB ?


DATA ENDS
;**************************************************************

CODE SEGMENT PARA 'CODE'
ASSUME CS:CODE,DS:DATA,SS:STACK,ES:EXTRA
MAIN PROC FAR
START:
MOV AX,DATA
MOV DS,AX ;Let DS register have data segment address
MOV AX,EXTRA
MOV ES,AX ;Let ES register have extra segment address
MOV AX,STACK
MOV SS,AX
;**************************************************************
MOV SP,TOP
SUB SP,4 ；假设有两个返回值，为返回值在栈中申请空间。
MOV AX,OFFSET TABLE
PUSH AX ；共有两个参数传进去！
MOV AX,COUNT
PUSH AX
CALL FOUND ；

POP AX ；得到FOUND中返回的值
MOV BL,AL
MOV CL,4
SHR AL,CL
OR AL,30H
MOV DL,AL
MOV AH,02H
INT 21H
MOV AH,4CH ;DOS function call
INT 21H ;Return to DOS MOV AH,4CH ;DOS function call

FOUND:
PUSH AX
PUSH BP
PUSH DX
PUSH CX
PUSH SI
MOV BP,SP ；只是将传进来的最后一个参数给cx，
ADD BP,12
MOV CX,[BP]
MOV [BP+4],CX ；然后再传回给返回值
POP SI
POP CX
POP DX
POP BP
POP AX
RET 4 ；这段代码执行完后就一直死循环了，不知道为何？

这个程序是想搞清堆栈传参与返回，所以写了以上代码！

MAIN ENDP
CODE ENDS
END START

[clumsy]

MAIN PROC FAR 导致 FOUND 的 RET 4 被理解成了远返回, 即 RETF 4. 解决方法可以是:
1. 强制使用 RETN 4 指令
2. 给 FOUND 加上 PROC:
...
FOUND PROC
...
RET 4
FOUND ENDP
...