Mercurial > hg > Members > kono > nitros9-code
view lib/alib/inkey.a @ 2668:07441dfebc27 lwtools-port
Make tocgen build with lwasm
lwasm does not treat a trailing colon as part of the symbol name. Removed
trailing colons on symbol references.
| author | William Astle <lost@l-w.ca> |
|---|---|
| date | Sun, 10 Jun 2012 13:35:44 -0600 |
| parents | 7d70b7e1cb21 |
| children | aaba193af04f |
line wrap: on
line source
*************************************** * Subroutine to input one character from std in. if ready * like an INKEY$... * OTHER MODULES NEEDED: FGETC * ENTRY: none * EXIT: A character, 0=no char * CC carry set if error (from I$Read) * B error code if any nam Inkey ttl Assembler Library Module psect INKEY,0,0,0,0,0 INKEY: clra std in ldb #SS.Ready os9 I$GetStt see if key ready bcc getit cmpb #E$NotRdy no keys ready=no error bne exit other error, report it clra no error bra exit getit lbsr FGETC go get the key * this inst. needed since ctrl/: sometimes returns a null * usually callers are not expecting a null.... tsta exit rts endsect