Mercurial > hg > Members > kono > nitros9-code

annotate lib/alib/gets.a @ 2474:7d70b7e1cb21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Moved net and alib files into here
author boisy
date Tue, 30 Mar 2010 02:44:42 +0000
parents
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 * Subroutine to input a null terminated string from Std. In
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: GETS
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: X=buffer for string
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
8 * Y=max buffer size (leave room for null!!)
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
9
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
10 * EXIT: CC carry set if error (from I$ReadLn)
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
11 * B error code if any
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
12
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
13 * NOTE: The string entered must end with an end-of-record char
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
14 * (usually a $0D), the null is appended for ease in string
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
15 * handling.
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
16
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
17 nam Input Null Terminated String from Std. In
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
18 ttl Assembler Library Module
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
19
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
20
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
21 psect GETS,0,0,0,0,0
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
22
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
23 GETS:
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
24 pshs a
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
25 clra std in.
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
26 lbsr FGETS
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
27 puls a,pc
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
28
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
29 endsect
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
30