EightBall/str.8b

88 lines
1.5 KiB
Plaintext
Raw Normal View History

2018-05-05 04:07:57 +00:00
byte msg1[100]="Enter your first name> "
byte msg2[100]="Enter your last name> "
byte s1[100]={}
byte s2[100]={}
byte full[200]={}
byte space[2]=" "
pr.str msg1
kbd.ln s1,100
pr.msg "'"; pr.str s1; pr.msg "' has "; pr.dec strlen(s1); pr.msg " chars"; pr.nl
pr.str msg2
kbd.ln s2,100
pr.msg "'"; pr.str s2; pr.msg "' has "; pr.dec strlen(s2); pr.msg " chars"; pr.nl
call strcpy(full,s1)
call strcat(full,space)
call strcat(full,s2)
pr.msg "'"; pr.str full; pr.msg "' has "; pr.dec strlen(full); pr.msg " chars"; pr.nl
pr.msg "Comparison s1:s2 ... "; pr.dec.s strcmp(s1,s2); pr.nl
end
'
' Return length of null-terminated string
'
sub strlen(byte str[])
word i=0
while str[i]
i=i+1
endwhile
return i
endsub
'
' Copy null-terminated string from src to dst
'
sub strcpy(byte dst[], byte src[])
word i=0
while src[i]
dst[i]=src[i]
i=i+1
endwhile
endsub
'
' Append null-terminated string src to dst
'
sub strcat(byte dst[], byte src[])
word i=0
word j=0
while dst[i]
i=i+1
endwhile
while src[j]
dst[i]=src[j]
i=i+1
j=j+1
endwhile
endsub
'
' Compare null-terminated string s1 to s2
' Return -1 if s1 < s2
' Return 0 if s1 == s2
' Return +1 if s1 > s2
'
sub strcmp(byte s1[], byte s2[])
word i=0
while 1
if ((!s1[i])&&(!s2[i]))
return 0
endif
if (!s1[i])
return -1
endif
if (!s2[i])
return 1
endif
if (s1[i]<s2[i])
return -1
endif
if (s1[i]>s2[i])
return 1
endif
i=i+1
endwhile
endsub