Mercurial > hg > Members > kono > nitros9-code

comparison lib/alib/fgety.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
comparison
equal deleted inserted replaced
2473:dac1ff96637f 2474:7d70b7e1cb21
1 ***************************************
2
3 * Subroutine to input one word in Y.
4
5 * OTHER MODULES NEEDED: none
6
7 * ENTRY: A=path
8
9
10 * EXIT: Y value
11 * CC carry set if error (from I$Read)
12 * B error code if any
13
14 nam Input word
15 ttl Assembler Library Module
16
17
18 psect FGETY,0,0,0,0,0
19
20 FGETY:
21 pshs x,y
22 ldy #2 number of char to read
23 leax 2,s point x at 2 char buffer
24 os9 I$Read
25 puls x,y,pc
26
27 endsect