Mercurial > hg > Members > kono > nitros9-code

view lib/alib/inkey.as @ 3140:03b580a02945

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Allow CoCo3FPGA-specific build of superdesc.asm Added new conditional CC3FPGA and code to "level1/modules/superdesc.asm" to reflect changes needed to build the new SD card descriptors for the Coco3FPGA.
author Bill Pierce <merlinious999@gmail.com>
date Sat, 04 Feb 2017 11:06:26 +0100
parents 03f26e88b809
children
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


 section .text

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