Mercurial > hg > Members > kono > nitros9-code
annotate lib/alib/getc.a @ 2474:7d70b7e1cb21
Moved net and alib files into here
author | boisy |
---|---|
date | Tue, 30 Mar 2010 02:44:42 +0000 |
parents | |
children | aaba193af04f |
rev | line source |
---|---|
2474 | 1 *************************************** |
2 | |
3 * Subroutine to input one character from std in. | |
4 | |
5 * OTHER MODULES NEEDED: FGETC | |
6 | |
7 * ENTRY: none | |
8 | |
9 | |
10 * EXIT: A character | |
11 * CC carry set if error (from I$Read) | |
12 * B error code if any | |
13 | |
14 nam Input Single Character | |
15 ttl Assembler Library Module | |
16 | |
17 | |
18 psect GETC,0,0,0,0,0 | |
19 | |
20 GETC: | |
21 clra std in | |
22 lbra FGETC | |
23 | |
24 endsect | |
25 |