Mercurial > hg > Members > kono > nitros9-code

annotate lib/alib/is_punct.a @ 2765:0bd16cca86b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated rules.mak for all the os9 format's to format the entire disk. People were having some issues with the disk images not being formatted to their full capacity and preventing some functions from working.
author drencor-xeen
date Thu, 17 Jan 2013 11:03:26 -0600
parents 7d70b7e1cb21
children aaba193af04f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2474
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
1 *****************************************
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
2
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
3 * See if character in "B" is a punctuation character
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
4
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
5 * OTHER MODULES NEEDED: IS_ALNUM, IS_CNTRL
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
6
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
7 * ENTRY: B=character to test
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
8
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
9 * EXIT: CC zero=1 if punct., 0 if not
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
10
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
11
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
12 nam Is Char Punctuation?
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
13 ttl Assembler Library Module
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
14
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
15
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
16 psect IS_PUNCT,0,0,0,0,0
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
17
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
18
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
19 IS_PUNCT:
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
20 lbsr IS_ALNUM
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
21 BEQ no if its a.z,A.Z or 0.9 not punct
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
22 lbsr IS_CNTRL
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
23 BEQ no controls not punct.
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
24 orcc #%00000100 set carry
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
25 rts
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
26
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
27 no
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
28 andcc #%11111011 clear zero
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
29 rts
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
30
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
31
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
32 endsect
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
33