Mercurial > hg > Members > kono > nitros9-code

annotate lib/alib/gets.a @ 2772:0a3f4d8ea6d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Found ENDC in wrong location in dwread.asm and dwwrite.asm. Corrected. Moved the native 6309 code in dwread.asm and dwwrite.asm into the H6309 labeled area and changed IFEQ H6309 to IFNE H6309. Also moved the 57600bps 6809 code to the default location. This change had been done in the old dwread.asm and dwwrite.asm files to make it easier to follow. Though these two files were overwritten from the HDBDOS project dwread.asm and dwwrite.asm files. So this conversion needed to be done again so it made the source easier to follow.
author drencor-xeen
date Wed, 23 Jan 2013 12:36:55 -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 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