Mercurial > hg > Members > kono > nitros9-code
changeset 709:6f84b2ce58a6
Incorporated full NitrOS-9 code set; chd/chx still doesn't work under L2
| author | boisy |
|---|---|
| date | Sat, 04 Jan 2003 02:21:56 +0000 |
| parents | 13d91b1fd5e2 |
| children | 4b8f2de93c51 |
| files | level2/modules/ioman.asm |
| diffstat | 1 files changed, 10 insertions(+), 19 deletions(-) [+] |
line wrap: on
line diff
--- a/level2/modules/ioman.asm Sat Jan 04 01:27:02 2003 +0000 +++ b/level2/modules/ioman.asm Sat Jan 04 02:21:56 2003 +0000 @@ -328,15 +328,14 @@ IFNE H6309 lde V$USRS,u get user count beq L0177 branch if zero - pshs u,b - lbsr FIOQu2 call F$IOQu directly - puls u,b ELSE pshs a save off A lda V$USRS,u get user count beq L0188 branch if zero - os9 F$IOQu ENDC + pshs u,b + lbsr FIOQu2 call F$IOQu directly + puls u,b IFEQ H6309 L0188 puls a pull A from stack ENDC @@ -391,15 +390,15 @@ lsrd /32 ELSE lsra - rolb /2 + rorb /2 lsra - rolb /4 + rorb /4 lsra - rolb /8 + rorb /8 lsra - rolb /16 + rorb /16 lsra - rolb /32 + rorb /32 ENDC clra rts @@ -422,7 +421,6 @@ bhi Loop2 ENDC ldd HWPG,s get hwpage and upper addr - IFNE H6309 * IFNE H6309 bsr L01D1 std <DATBYT2,s save off @@ -462,7 +460,6 @@ L023F ldd HWPORT,s anda #$1F addd <DATBYT1,s - ENDC * ENDC ldu VSTAT,s load U with static storage of drvr clr ,u clear ?? @@ -553,7 +550,6 @@ os9 F$SRtMem return mem ldx $01,s get old U on stack ldx V$DESC,x - IFNE H6309 * IFNE H6309 ldd M$Port,x beq L032B @@ -625,7 +621,6 @@ ora #ImgChg sta P$State,x ENDC - ENDC * ENDC L032B puls u,b ldx V$DESC,u get descriptor in X @@ -831,18 +826,14 @@ cmpf #PD.OPT bcs L047E ldf #$20 +L047E clre + tfm x+,u+ ELSE ldb ,x+ get options count leau <PD.OPT,y cmpb #PD.OPT bls L03E5 ldb #PD.OPT-1 - ENDC -L047E - IFNE H6309 - clre - tfm x+,u+ - ELSE KeepLoop lda ,x+ sta ,u+ L03E5 decb