;
8086\string.she v1999.10.10 (c)1999 Chris Pressey, Cat's-Eye Technologies.
GUPI string-manipulation extensions.
;
; strz strz -> bool ;
[
pop-di pop-si
mov-al[si] cmp-al[di]
je _5
xor-ax-ax
jmp _13
nop
or-al-al
je _4
inc-si inc-di
jmp _237
xor-ah-ah mov-al _1
push-ax
]:eqzz
; strz strz -> strz(2) ;
[
pop-di pop-si push-di
mov-al[si] mov[di]al
or-al-al
je _4
inc-si inc-di
jmp _244
]:cpzz
; strz -> word ;
[
pop-si
push-si
mov-al[si]
or-al-al
je _3
inc-si
jmp _247
pop-dx
push-si
pop-ax
sub-ax-dx
push-ax
]:lenz
[ ; strz -> strz ;
dup lenz ++ malloc cpzz
]:dupz