Mercurial > hg > Members > kono > nitros9-code

annotate lib/alib/fgets.a @ 2738:d25fd78e727a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated rules.mak to correct for non booting dw3 and becker disk images.
author drencor-xeen
date Thu, 03 Jan 2013 22:47:46 -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 * Subroutine to input a null terminated string.
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: none
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: A=path
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
8 * X=buffer for string
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
9 * Y=max buffer size (leave room for null!!)
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 * EXIT: CC carry set if error (from I$ReadLn)
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
12 * B error code if any
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
13
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 * NOTE: The string entered must end with an end-of-record char
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
16 * (usually a $0D), the null is appended for ease in string
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
17 * handling.
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
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
20 nam Input Null Terminated String
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
21 ttl Assembler Library Module
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
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
24 psect FGETS,0,0,0,0,0
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
25
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
26 FGETS_NOCR:
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
27 pshs d,x
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
28 bsr FGETS
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
29 bcs bye
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
30 tfr y,d
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
31 leax -1,x
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
32 clr d,x
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
33 bye puls d,x,pc
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
34
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
35 FGETS:
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
36 pshs a,x
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
37 os9 I$ReadLn get line
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
38 bcs exit return error code
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
39 tfr y,d
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
40 clr d,x add null
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
41 clrb no error..
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
42
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
43 exit
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
44 puls a,x,pc
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
45
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
46 endsect
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
47