Mercurial > hg > Members > kono > nitros9-code
view lib/alib/jsr_cmd.as @ 2811:611715587834 lwtools-port
Updated rules.mak and level1/coco1/bootfiles/makefile
Updated the rules.mak file to remove the format entire image related
to drivewire server disk images.
Updated level1/coco1/bootfiles/makefile to create 3 new bootfile images.
These images are stripped down to just the common files needed
for vovdg games on os9 level 1. These bootfiles are for becker, dw,
and arduino. Also corrected a duplicated dd descriptor when building
some bootfiles that had both floppy_40d, floppy_80d, RBDW, RBBECKER,
and RBARDUINO. Removed the dd descriptor from each of these sections
and made it where the dd descriptor for the specific section was added
in the main bootfile list.
| author | David Ladd <drencor-xeen@users.sf.net> |
|---|---|
| date | Mon, 11 Feb 2013 20:16:24 -0600 |
| parents | 03f26e88b809 |
| children |
line wrap: on
line source
*************************************** * Subroutine to jsr to subroutine from 1 character command table * OTHER MODULES NEEDED: none * ENTRY: A=1 char command * X=start of jump table * EXIT: CC carry set if entry not found * all other regs can be modified by subs * Note format of table: each entry is three bytes * 0-match character (command) * 1..2-offset to routine * It is the user's job to set commands to proper case for matching... * end of table=NULL * sample table: fcc /A/ * fdb routineA-* * fcc /B/ * fdb routineB-* * fcb 0 nam Jsr to 1 char Command ttl Assembler Library Module section .text JSR_CMD: tst ,x end of table? beq jsrerr cmpa ,x+ found match? beq docmd yes, go do it leax 2,x next entry bra JSR_CMD * 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