ASSEMBLY - RHSTDLIB.ZIP - NEXTITEM.ASM

 
Output of file : NEXTITEM.ASM contained in archive : RHSTDLIB.ZIP

stdlib segment para public 'slcode'
assume cs:stdlib
;
;
; NextItem- Locates the first (next) character in the set.
;
; inputs:
;
; ES:DI- Points at the set to search through.
;
; outputs:
;
; AL- Next available character in set (zero if set is empty).
;
;
public sl_NextItem
;
sl_NextItem proc far
push cx
push di
;
mov al, es:[di]
mov cx, 256
add di, 7
NextLp: inc di
test al, es:[di]
loopz NextLp
;
neg cx
mov al, cl
pop si
pop cx
ret
sl_NextItem endp
;
;
stdlib ends
end