;            Coded by Elk, 2002

.186

PUBLIC       check

CODE1        SEGMENT
             ASSUME CS:CODE1

check        PROC FAR
             PUSHA

             MOV BP, SP
;            MOV BX, [BP+22]
;            TEST BX, BX
;            JNZ error

             MOV BX, [BP+24]
             MOV [BP+20], BX

             POPA
             XOR AX, AX
;            JMP ok

;error:      MOV AX, 1
;ok:
             RET
check        ENDP

CODE1        ENDS

END