Mercurial > hg > Members > kono > nitros9-code
view lib/alib/jsr_cmd2.a @ 2772:0a3f4d8ea6d5
Found ENDC in wrong location in dwread.asm and dwwrite.asm. Corrected.
Moved the native 6309 code in dwread.asm and dwwrite.asm into the H6309 labeled area and changed IFEQ H6309 to IFNE H6309. Also moved the 57600bps 6809 code to the default location. This change had been done in the old dwread.asm and dwwrite.asm files to make it easier to follow. Though these two files were overwritten from the HDBDOS project dwread.asm and dwwrite.asm files. So this conversion needed to be done again so it made the source easier to follow.
| author | drencor-xeen |
|---|---|
| date | Wed, 23 Jan 2013 12:36:55 -0600 |
| parents | 7d70b7e1cb21 |
| children | aaba193af04f |
line wrap: on
line source
*************************************** * Subroutine to jsr to subroutine from 2 character command table * OTHER MODULES NEEDED: none * ENTRY: D=2 char command * X=start of jump table * EXIT: CC carry set if entry not found * all other regs can be modified by subs * D and X always modified * Note format of table: each entry is four bytes * 0..1-match characters (command) * 2..3-offset to routine * It is the user's job to set commands to proper case for matching... * end of table=NULL * sample table: fcc /A1/ * fdb routineA-* * fcc /B1/ * fdb routineB-* * fcb 0 nam Jsr to 2 char Command ttl Assembler Library Module psect JSR_CMD2,0,0,0,0,0 JSR_CMD2: tst ,x end of table? beq jsrerr cmpd ,x++ found match? beq docmd yes, go do it leax 2,x next entry bra JSR_CMD2 * no match found, return with carry set jsrerr coma set error flag rts * command found, do call and return docmd ldd ,x get offset to routine jsr d,x andcc #%11111110 clear carry rts endsect