https://www.cocopedia.com/wiki/index.php?action=history&feed=atom&title=Inkey.asm_Level_2 2026-05-01T17:07:21Z Revision history for this page on the wiki MediaWiki 1.45.1 https://www.cocopedia.com/wiki/index.php?title=Inkey.asm_Level_2&diff=7466&oldid=prev 2015-09-11T11:38:07Z

<p>Categories</p> <table style="background-color: #fff; color: #202122;" data-mw="interface"> <col class="diff-marker" /> <col class="diff-content" /> <col class="diff-marker" /> <col class="diff-content" /> <tr class="diff-title" lang="en"> <td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td> <td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 07:38, 11 September 2015</td> </tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l60">Line 60:</td> <td colspan="2" class="diff-lineno">Line 60:</td></tr> <tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>           emod</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>           emod</div></td></tr> <tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  InKeyEnd equ  *</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  InKeyEnd equ  *</div></td></tr> <tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></ins></div></td></tr> <tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">[[Category:Programming]]</ins></div></td></tr> <tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">[[Category:OS-9]]</ins></div></td></tr> </table>

Polluks https://www.cocopedia.com/wiki/index.php?title=Inkey.asm_Level_2&diff=6605&oldid=prev 2013-11-29T20:40:30Z

<p>Created page with &quot; *************** * INKEY - a subroutine for BASIC09 by Robert Doggett * Called by: RUN INKEY(StrVar) * RUN INKEY(Path, StrVar) * Inkey determines if a key has b...&quot;</p> <p><b>New page</b></p><div> ***************<br /> * INKEY - a subroutine for BASIC09 by Robert Doggett<br /> * Called by: RUN INKEY(StrVar)<br /> * RUN INKEY(Path, StrVar)<br /> * Inkey determines if a key has been typed on the given path<br /> * (Standard Input if not specified), and if so, returns the next<br /> * character in the String Variable. If no key has been type, the<br /> * null string is returned. If a path is specified, it must be<br /> * either type BYTE or INTEGER.<br /> NAM INKEY<br /> IFP1<br /> USE /D0/DEFS/OS9DEFS<br /> ENDC<br /> TYPE set SBRTN+OBJCT<br /> REVS set REENT+1<br /> mod InKeyEnd,InKeyNam,TYPE,REVS,InKeyEnt,SIZE<br /> InKeyNam fcs &quot;Inkey&quot;<br /> org 0 Parameters<br /> Return rmb 2 Return addr of caller<br /> PCount rmb 2 Num of params following<br /> Param1 rmb 2 1st param addr<br /> Length1 rmb 2 size<br /> Param2 rmb 2 2nd param addr<br /> Length2 rmb 2 size<br /> E$Param equ $38<br /> SIZE equ *<br /> InKeyEnt leax Param1,S<br /> ldd PCount,S Get parameter count<br /> cmpd #1 just one parameter?<br /> beq InKey20 ..Yes; default path A=0<br /> cmpd #2 Are there two params?<br /> bne ParamErr No, abort<br /> ldd [Param1,S] Get path number<br /> ldx Length1,S<br /> leax -1,X byte available?<br /> beq InKey10 ..Yes; (A)=Path number<br /> leax -1,X Integer?<br /> bne ParamErr ..No; abort<br /> tfr B,A<br /> InKey10 leax Param2,S<br /> InKey20 ldu 2,X length of string<br /> ldx 0,X addr of string<br /> ldb #$FF<br /> stb 0,X Initialize to null str<br /> cmpu #2 at least two-byte str?<br /> blo InKey30 ..No<br /> stb 1,X put str terminator<br /> InKey30 ldb #SS.Ready<br /> OS9 I$GetStt is there an data ready?<br /> bcs InKey90 ..No; exit<br /> ldy #1<br /> OS9 I$Read Read one byte<br /> rts<br /> InKey90 cmpb #E$NotRdy<br /> bne InKeyErr<br /> rts (carry clear)<br /> ParamErr ldb #E$Param Parameter Error<br /> InKeyErr coma<br /> rts<br /> emod<br /> InKeyEnd equ *</div>

Wayne