- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
DEF "PARSE", 0, PARSE
MOV SI, [VAR_TO_IN]
MOV CX, [VAR_NTIB]
SUB CX, SI
ADD SI, [VAR_TIB]
SUB BP, 2
MOV [BP], SI
REPNE SCASB
SUB CX, [VAR_NTIB]
NOT CX
MOV [VAR_TO_IN], CX
MOV AX, SI
SUB AX, [BP]
DEC AX
RET