Mercurial > hg > Members > kono > nitros9-code
changeset 3163:29885731c4bb
ioman.asm: Delete trailing whitespace and tabs (no functional change)
Add comments and vertical whitespace for readability.
| author | Neal Crook <foofoobedoo@gmail.com> |
|---|---|
| date | Thu, 06 Apr 2017 22:08:57 +0100 |
| parents | c44cd20907bd |
| children | f3e0210ecd83 |
| files | level2/modules/ioman.asm |
| diffstat | 1 files changed, 1311 insertions(+), 1311 deletions(-) [+] |
line wrap: on
line diff
--- a/level2/modules/ioman.asm Thu Apr 06 22:04:46 2017 +0100 +++ b/level2/modules/ioman.asm Thu Apr 06 22:08:57 2017 +0100 @@ -33,84 +33,84 @@ * Fixed bug where device descriptor wasn't being unlinked when V$USRS > 0 * due to the value in X not being loaded. - nam IOMan + nam IOMan ttl NitrOS-9 Level 2 I/O Manager module * Disassembled 02/04/29 23:10:07 by Disasm v1.6 (C) 1988 by RML - IFP1 - use defsfile - ENDC + IFP1 + use defsfile + ENDC tylg set Systm+Objct -atrv set ReEnt+rev -rev set $05 -edition set 13 +atrv set ReEnt+rev +rev set $05 +edition set 13 mod eom,name,tylg,atrv,start,size -u0000 rmb 0 -size equ . +u0000 rmb 0 +size equ . -name fcs /IOMan/ - fcb edition +name fcs /IOMan/ + fcb edition -start ldx <D.Init get pointer to init module - lda DevCnt,x get number of entries in device table - ldb #DEVSIZ get size of each entry - mul calculate size needed for device table - pshs d preserve it - lda PollCnt,x get number of entries in polling table - ldb #POLSIZ get size of each entry - mul calculate size needed for polling table - pshs d preserve it - IFNE H6309 - asld - ELSE - lslb multiply by 2 - rola - ENDC - addd $02,s add to size of device table - os9 F$SRqMem allocate memory - bcs Crash branch if error +start ldx <D.Init get pointer to init module + lda DevCnt,x get number of entries in device table + ldb #DEVSIZ get size of each entry + mul calculate size needed for device table + pshs d preserve it + lda PollCnt,x get number of entries in polling table + ldb #POLSIZ get size of each entry + mul calculate size needed for polling table + pshs d preserve it + IFNE H6309 + asld + ELSE + lslb multiply by 2 + rola + ENDC + addd $02,s add to size of device table + os9 F$SRqMem allocate memory + bcs Crash branch if error * clear allocated mem - leax ,u point to memory - IFNE H6309 + leax ,u point to memory + IFNE H6309 leay <TheZero,pcr - tfr d,w - tfm y,x+ - ELSE -ClrLoop clr ,x+ clear a byte - subd #$0001 done? - bne ClrLoop no, keep going + tfr d,w + tfm y,x+ + ELSE +ClrLoop clr ,x+ clear a byte + subd #$0001 done? + bne ClrLoop no, keep going ENDC - stu <D.DevTbl save pointer to device table - IFNE H6309 + stu <D.DevTbl save pointer to device table + IFNE H6309 puls x,d - addr u,x - stx <D.PolTbl - addr d,x - stx <D.CLTb - ELSE - ldd ,s++ get pointer to device table - std <D.CLTb save to globals temporarily - ldd ,s++ get size of device table + addr u,x + stx <D.PolTbl + addr d,x + stx <D.CLTb + ELSE + ldd ,s++ get pointer to device table + std <D.CLTb save to globals temporarily + ldd ,s++ get size of device table leax d,u point x to the end of device table - stx <D.PolTbl save to globals + stx <D.PolTbl save to globals ldd <D.CLTb get VIRQ table size leax d,x add it to end of device table stx <D.CLTb and save VIRQ table address - ENDC - ldx <D.PthDBT get address of path desc table - os9 F$All64 split it into 64 byte chunks - bcs Crash branch if error - stx <D.PthDBT save pointer back - os9 F$Ret64 - leax >IRQPoll,pcr point to polling routine - stx <D.Poll save the vector address - leay <IOCalls,pcr point to service vector table - os9 F$SSvc set up calls - rts and return to system + ENDC + ldx <D.PthDBT get address of path desc table + os9 F$All64 split it into 64 byte chunks + bcs Crash branch if error + stx <D.PthDBT save pointer back + os9 F$Ret64 + leax >IRQPoll,pcr point to polling routine + stx <D.Poll save the vector address + leay <IOCalls,pcr point to service vector table + os9 F$SSvc set up calls + rts and return to system ****************************** * @@ -118,7 +118,7 @@ * Crash IFGT Level-1 - jmp <D.Crash + jmp <D.Crash ELSE jmp [>$FFFE] ENDC @@ -127,31 +127,31 @@ * * System service routine vector table * -IOCalls fcb $7F - fdb UsrIO-*-2 - fcb F$Load - fdb FLoad-*-2 +IOCalls fcb $7F + fdb UsrIO-*-2 + fcb F$Load + fdb FLoad-*-2 IFGT Level-1 - fcb I$Detach + fcb I$Detach fdb IDetach0-*-2 ENDC - fcb F$PErr - fdb FPErr-*-2 + fcb F$PErr + fdb FPErr-*-2 fcb F$IOQu+$80 - fdb FIOQu-*-2 - fcb $FF - fdb SysIO-*-2 - fcb F$IRQ+$80 - fdb FIRQ-*-2 + fdb FIOQu-*-2 + fcb $FF + fdb SysIO-*-2 + fcb F$IRQ+$80 + fdb FIRQ-*-2 fcb F$IODel+$80 fdb FIODel-*-2 IFGT Level-1 - fcb F$NMLink + fcb F$NMLink fdb FNMLink-*-2 - fcb F$NMLoad + fcb F$NMLoad fdb FNMLoad-*-2 ENDC - fcb $80 + fcb $80 ****************************** * @@ -159,31 +159,31 @@ * * Entry: U = Callers register stack pointer * -FIODel ldx R$X,u get address of module - ldu <D.Init get pointer to init module - ldb DevCnt,u get device count - ldu <D.DevTbl get pointer to device table -L0086 ldy V$DESC,u descriptor exists? - beq L0097 no, move to next device - cmpx V$DESC,u device match? - beq L009E no, move to next device - cmpx V$DRIV,u driver match? - beq L009E yes, return module busy - cmpx V$FMGR,u fmgr match? - beq L009E yes, return module busy -L0097 leau DEVSIZ,u move to next dev entry - decb done them all? - bne L0086 no, keep going - clrb clear carry -L009D rts and return -L009E comb else set carry - ldb #E$ModBsy submit error - rts and return +FIODel ldx R$X,u get address of module + ldu <D.Init get pointer to init module + ldb DevCnt,u get device count + ldu <D.DevTbl get pointer to device table +L0086 ldy V$DESC,u descriptor exists? + beq L0097 no, move to next device + cmpx V$DESC,u device match? + beq L009E no, move to next device + cmpx V$DRIV,u driver match? + beq L009E yes, return module busy + cmpx V$FMGR,u fmgr match? + beq L009E yes, return module busy +L0097 leau DEVSIZ,u move to next dev entry + decb done them all? + bne L0086 no, keep going + clrb clear carry +L009D rts and return +L009E comb else set carry + ldb #E$ModBsy submit error + rts and return IFNE H6309 -TheZero fcb $00 +TheZero fcb $00 ENDC - + UsrIODis fdb IAttach-UsrIODis fdb IDetach-UsrIODis fdb UIDup-UsrIODis @@ -224,15 +224,15 @@ * Entry to User and System I/O dispatch table * B = I/O system call code UsrIO leax <UsrIODis,pcr - bra IODsptch + bra IODsptch SysIO leax <SysIODis,pcr -IODsptch cmpb #I$DeletX-$70 compare with last I/O call - bhi L00F9 branch if greater - IFNE H6309 - ldw b,x - lsrb - jmp w,x - ELSE +IODsptch cmpb #I$DeletX-$70 compare with last I/O call + bhi L00F9 branch if greater + IFNE H6309 + ldw b,x + lsrb + jmp w,x + ELSE pshs d ldd b,x leax d,x @@ -241,303 +241,303 @@ jmp ,x ENDC -****************************** +****************************** * * Unknown service code error handler * -L00F9 comb - ldb #E$UnkSvc - rts +L00F9 comb + ldb #E$UnkSvc + rts VDRIV equ $00 \ VSTAT equ $02 | VDESC equ $04 |--- Temporary device table entry VFMGR equ $06 | VUSRS equ $08 / -DRVENT equ $09 -FMENT equ $0B -AMODE equ $0D -HWPG equ $0E -HWPORT equ $0F -CURDTE equ $11 +DRVENT equ $09 +FMENT equ $0B +AMODE equ $0D +HWPG equ $0E +HWPORT equ $0F +CURDTE equ $11 DATBYT1 equ $13 DATBYT2 equ $15 -ODPROC equ $17 -CALLREGS equ $19 -RETERR equ $1A -EOSTACK equ $1B +ODPROC equ $17 +CALLREGS equ $19 +RETERR equ $1A +EOSTACK equ $1B * Entry: U=module header pointer IAttach equ * - IFNE H6309 - ldw #EOSTACK get stack count - leas <-EOSTACK,s make stack - leax <TheZero,pcr point at zero - tfr s,y move S to Y - tfm x,y+ and transfer 0 to stack - ELSE - ldb #EOSTACK-1 get stack count - 1 -IALoop clr ,-s clear each byte - decb decrement - bpl IALoop and branch until = 0 - ENDC - stu <CALLREGS,s save caller regs - lda R$A,u access mode - sta AMODE,s save on stack + IFNE H6309 + ldw #EOSTACK get stack count + leas <-EOSTACK,s make stack + leax <TheZero,pcr point at zero + tfr s,y move S to Y + tfm x,y+ and transfer 0 to stack + ELSE + ldb #EOSTACK-1 get stack count - 1 +IALoop clr ,-s clear each byte + decb decrement + bpl IALoop and branch until = 0 + ENDC + stu <CALLREGS,s save caller regs + lda R$A,u access mode + sta AMODE,s save on stack IFGT Level-1 - ldx <D.Proc get curr proc desc - stx <ODPROC,s save on stack - leay <P$DATImg,x point to DAT img of curr proc - ldx <D.SysPrc get sys proc - stx <D.Proc make sys proc current proc + ldx <D.Proc get curr proc desc + stx <ODPROC,s save on stack + leay <P$DATImg,x point to DAT img of curr proc + ldx <D.SysPrc get sys proc + stx <D.Proc make sys proc current proc ENDC - ldx R$X,u get caller's X - lda #Devic+0 link to device desc + ldx R$X,u get caller's X + lda #Devic+0 link to device desc IFGT Level-1 - os9 F$SLink link to it + os9 F$SLink link to it ELSE - os9 F$Link link to it + os9 F$Link link to it ENDC - bcs L0155 branch if error - stu VDESC,s save dev desc ptr - ldy <CALLREGS,s get caller regs - stx R$X,y save updated X - lda M$Port,u get hw page - sta HWPG,s save onto stack - ldd M$Port+1,u get hw addr - std HWPORT,s save onto stack - IFNE H6309 - ldx M$PDev,u get driver name ptr - addr u,x add U to X - ELSE - ldd M$PDev,u get driver name ptr - leax d,u add D to U and put in X - ENDC - lda #Drivr+0 driver - os9 F$Link link to driver - bcs L0155 branch if error - stu VDRIV,s else save addr save on stack - sty DRVENT,s save entry point on stack - ldu VDESC,s get desc ptr - IFNE H6309 - ldx M$FMgr,u get fm name - addr u,x add U to X - ELSE - ldd M$FMgr,u get fm name - leax d,u add D to U and put in X - ENDC - lda #FlMgr+0 link to fm - os9 F$Link link to it! -L0155 + bcs L0155 branch if error + stu VDESC,s save dev desc ptr + ldy <CALLREGS,s get caller regs + stx R$X,y save updated X + lda M$Port,u get hw page + sta HWPG,s save onto stack + ldd M$Port+1,u get hw addr + std HWPORT,s save onto stack + IFNE H6309 + ldx M$PDev,u get driver name ptr + addr u,x add U to X + ELSE + ldd M$PDev,u get driver name ptr + leax d,u add D to U and put in X + ENDC + lda #Drivr+0 driver + os9 F$Link link to driver + bcs L0155 branch if error + stu VDRIV,s else save addr save on stack + sty DRVENT,s save entry point on stack + ldu VDESC,s get desc ptr + IFNE H6309 + ldx M$FMgr,u get fm name + addr u,x add U to X + ELSE + ldd M$FMgr,u get fm name + leax d,u add D to U and put in X + ENDC + lda #FlMgr+0 link to fm + os9 F$Link link to it! +L0155 IFGT Level-1 - ldx <ODPROC,s get caller's proc desc - stx <D.Proc restore orig proc desc + ldx <ODPROC,s get caller's proc desc + stx <D.Proc restore orig proc desc ENDC - bcc L016A branch if not error + bcc L016A branch if not error * Error on attach, so detach -L015C stb <RETERR,s save off error code - leau VDRIV,s point U to device table entry - os9 I$Detach detach - leas <RETERR,s adjust stack - comb set carry - puls pc,b exit -L016A stu VFMGR,s save off fm module ptr - sty FMENT,s save off fm entry point - ldx <D.Init get D.Init - ldb DevCnt,x get device entry count - IFNE H6309 - tfr b,f +L015C stb <RETERR,s save off error code + leau VDRIV,s point U to device table entry + os9 I$Detach detach + leas <RETERR,s adjust stack + comb set carry + puls pc,b exit +L016A stu VFMGR,s save off fm module ptr + sty FMENT,s save off fm entry point + ldx <D.Init get D.Init + ldb DevCnt,x get device entry count + IFNE H6309 + tfr b,f ELSE tfr b,a ENDC - ldu <D.DevTbl get device table pointer -L0177 ldx V$DESC,u get dev desc ptr - beq L01B4 branch if empty - cmpx VDESC,s same as dev desc being attached? - bne L0196 branch if not - ldx V$STAT,u get driver static - bne L0191 branch if zero - IFNE H6309 - lde V$USRS,u get user count - beq L0177 branch if zero + ldu <D.DevTbl get device table pointer +L0177 ldx V$DESC,u get dev desc ptr + beq L01B4 branch if empty + cmpx VDESC,s same as dev desc being attached? + bne L0196 branch if not + ldx V$STAT,u get driver static + bne L0191 branch if zero + IFNE H6309 + lde V$USRS,u get user count + beq L0177 branch if zero ELSE - pshs a save off A - lda V$USRS,u get user count - beq L0188 branch if zero + pshs a save off A + lda V$USRS,u get user count + beq L0188 branch if zero ENDC - pshs u,b - lbsr FIOQu2 call F$IOQu directly - puls u,b + pshs u,b + lbsr FIOQu2 call F$IOQu directly + puls u,b IFEQ H6309 -L0188 puls a pull A from stack +L0188 puls a pull A from stack ENDC - bra L0177 -L0191 stu <CURDTE,s save current dev table ptr - ldx V$DESC,u get dev desc ptr -L0196 ldy M$Port+1,x get hw addr - cmpy HWPORT,s same as dev entry on stack? - bne L01B4 branch if not - IFNE H6309 - lde M$Port,x get hw port - cmpe HWPG,s same as dev entry on stack? - ELSE - ldy M$Port,x get hw port - cmpy HWPG,s same as dev entry on stack? - ENDC - bne L01B4 branch if not - ldx V$DRIV,u get driver ptr - cmpx VDRIV,s same as dev entry on stack? - bne L01B4 branch if not + bra L0177 +L0191 stu <CURDTE,s save current dev table ptr + ldx V$DESC,u get dev desc ptr +L0196 ldy M$Port+1,x get hw addr + cmpy HWPORT,s same as dev entry on stack? + bne L01B4 branch if not + IFNE H6309 + lde M$Port,x get hw port + cmpe HWPG,s same as dev entry on stack? + ELSE + ldy M$Port,x get hw port + cmpy HWPG,s same as dev entry on stack? + ENDC + bne L01B4 branch if not + ldx V$DRIV,u get driver ptr + cmpx VDRIV,s same as dev entry on stack? + bne L01B4 branch if not * A match between device table entries has occurred - ldx V$STAT,u get driver static - stx VSTAT,s save off in our statics - tst V$USRS,u any users for this device - beq L01B4 branch if not + ldx V$STAT,u get driver static + stx VSTAT,s save off in our statics + tst V$USRS,u any users for this device + beq L01B4 branch if not IFEQ H6309 sta HWPG,s ENDC -L01B4 leau DEVSIZ,u advance to the next device entry - decb - bne L0177 - ldu <CURDTE,s get curr dev entry ptr - lbne L0264 branch if not zero - ldu <D.DevTbl - IFNE H6309 - tfr f,a +L01B4 leau DEVSIZ,u advance to the next device entry + decb + bne L0177 + ldu <CURDTE,s get curr dev entry ptr + lbne L0264 branch if not zero + ldu <D.DevTbl + IFNE H6309 + tfr f,a ENDC -L01C4 ldx V$DESC,u get desc ptr - beq L01DD branch if zero - leau DEVSIZ,u move to next dev table entry - deca - bne L01C4 - ldb #E$DevOvf dev table overflow - bra L015C +L01C4 ldx V$DESC,u get desc ptr + beq L01DD branch if zero + leau DEVSIZ,u move to next dev table entry + deca + bne L01C4 + ldb #E$DevOvf dev table overflow + bra L015C L01D1 - IFNE H6309 - lsrd /2 - lsrd /4 - lsrd /8 - lsrd /16 - lsrd /32 + IFNE H6309 + lsrd /2 + lsrd /4 + lsrd /8 + lsrd /16 + lsrd /32 ELSE lsra - rorb /2 + rorb /2 lsra - rorb /4 + rorb /4 lsra - rorb /8 + rorb /8 lsra - rorb /16 + rorb /16 lsra - rorb /32 + rorb /32 ENDC - clra - rts + clra + rts -L01DD ldx VSTAT,s get static storage off stack - bne L0259 branch if already alloced - stu <CURDTE,s else store off ptr to dev table entry - ldx VDRIV,s get ptr to driver - ldd M$Mem,x get driver storage req - os9 F$SRqMem allocate memory - lbcs L015C branch if error - stu VSTAT,s save newly alloc'ed driver static storage ptr - IFNE H6309 +L01DD ldx VSTAT,s get static storage off stack + bne L0259 branch if already alloced + stu <CURDTE,s else store off ptr to dev table entry + ldx VDRIV,s get ptr to driver + ldd M$Mem,x get driver storage req + os9 F$SRqMem allocate memory + lbcs L015C branch if error + stu VSTAT,s save newly alloc'ed driver static storage ptr + IFNE H6309 leay VSTAT+1,s point to zero byte tfr d,w tfr count to w counter tfm y,u+ clear driver static storage - ELSE -Loop2 clr ,u+ clear newly alloc'ed mem - subd #$0001 - bhi Loop2 - ENDC + ELSE +Loop2 clr ,u+ clear newly alloc'ed mem + subd #$0001 + bhi Loop2 + ENDC * Code here appears to be for Level III? IFGT Level-2 ldd HWPG,s get hwpage and upper addr - bsr L01D1 + bsr L01D1 std <DATBYT2,s save off - ldu #$0000 - tfr u,y - stu <DATBYT1,s + ldu #$0000 + tfr u,y + stu <DATBYT1,s ldx <D.SysDAT get system mem map ptr -L0209 ldd ,x++ - cmpd <DATBYT2,s - beq L023B +L0209 ldd ,x++ + cmpd <DATBYT2,s + beq L023B cmpd #DAT.Free - bne L021D - sty <DATBYT1,s - leau -$02,x -L021D leay >$2000,y - bne L0209 + bne L021D + sty <DATBYT1,s + leau -$02,x +L021D leay >$2000,y + bne L0209 ldb #E$NoRAM - IFNE H6309 - cmpr 0,u - ELSE - cmpu #$0000 - ENDC - lbeq L015C - ldd <DATBYT2,s - std ,u - ldx <D.SysPrc - IFNE H6309 + IFNE H6309 + cmpr 0,u + ELSE + cmpu #$0000 + ENDC + lbeq L015C + ldd <DATBYT2,s + std ,u + ldx <D.SysPrc + IFNE H6309 oim #ImgChg,P$State,x - ELSE - lda P$State,x - ora #ImgChg - sta P$State,x - ENDC - os9 F$ID - bra L023F -L023B sty <DATBYT1,s + ELSE + lda P$State,x + ora #ImgChg + sta P$State,x ENDC -L023F ldd HWPORT,s + os9 F$ID + bra L023F +L023B sty <DATBYT1,s + ENDC +L023F ldd HWPORT,s IFGT Level-2 - anda #$1F - addd <DATBYT1,s + anda #$1F + addd <DATBYT1,s ENDC - ldu VSTAT,s load U with static storage of drvr - clr V.PAGE,u clear page byte - std V.PORT,u save port address - ldy VDESC,s load Y with desc ptr - jsr [<DRVENT,s] call driver init routine - lbcs L015C branch if error - ldu <CURDTE,s -L0259 - IFNE H6309 - ldw #DEVSIZ - tfr s,x - tfm x+,u+ - leau -DEVSIZ,u - ELSE - ldb #DEVSIZ-1 size of device table - 1 -LilLoop lda b,s get from src - sta b,u save in dest - decb - bpl LilLoop - ENDC + ldu VSTAT,s load U with static storage of drvr + clr V.PAGE,u clear page byte + std V.PORT,u save port address + ldy VDESC,s load Y with desc ptr + jsr [<DRVENT,s] call driver init routine + lbcs L015C branch if error + ldu <CURDTE,s +L0259 + IFNE H6309 + ldw #DEVSIZ + tfr s,x + tfm x+,u+ + leau -DEVSIZ,u + ELSE + ldb #DEVSIZ-1 size of device table - 1 +LilLoop lda b,s get from src + sta b,u save in dest + decb + bpl LilLoop + ENDC * Here, U points to Device Table -L0264 ldx V$DESC,u get desc ptr in X - ldb M$Revs,x get revs - lda AMODE,s get access mode byte passed in A - anda M$Mode,x and with MODE byte in desc. - ldx V$DRIV,u X points to driver module - anda M$Mode,x AND with mode byte in driver - cmpa AMODE,s same as passed mode? - beq L0279 if so, ok - ldb #E$BMode else bad mode - lbra L015C and return -L0279 inc V$USRS,u else inc user count - bne L027F if not zero, continue - dec V$USRS,u else bump back to 255 +L0264 ldx V$DESC,u get desc ptr in X + ldb M$Revs,x get revs + lda AMODE,s get access mode byte passed in A + anda M$Mode,x and with MODE byte in desc. + ldx V$DRIV,u X points to driver module + anda M$Mode,x AND with mode byte in driver + cmpa AMODE,s same as passed mode? + beq L0279 if so, ok + ldb #E$BMode else bad mode + lbra L015C and return +L0279 inc V$USRS,u else inc user count + bne L027F if not zero, continue + dec V$USRS,u else bump back to 255 L027F ldx <CALLREGS,s - stu R$U,x + stu R$U,x leas <EOSTACK,s - clrb - rts + clrb + rts -IDetach ldu R$U,u - ldx V$DESC,u this was incorrectly commented out in 13r4!! +IDetach ldu R$U,u + ldx V$DESC,u this was incorrectly commented out in 13r4!! *** BUG FIX * The following two lines fix a long-standing bug in IOMan where * the I$Detach routine would deallocate the V$STAT area. This is @@ -547,753 +547,754 @@ * this value was zero, so here force I$Detach to do the lookup no * matter the V$USRS value * BGP 04/30/2002 - tst V$USRS,u - beq IDetach2 + tst V$USRS,u + beq IDetach2 *** BUG FIX -L0297 lda #$FF - cmpa V$USRS,u - lbeq L0351 - dec V$USRS,u - lbne L0335 -IDetach2 - ldx <D.Init - ldb DevCnt,x - pshs u,b - ldx V$STAT,u - clr V$STAT,u +L0297 lda #$FF + cmpa V$USRS,u + lbeq L0351 + dec V$USRS,u + lbne L0335 +IDetach2 + ldx <D.Init + ldb DevCnt,x + pshs u,b + ldx V$STAT,u + clr V$STAT,u clr V$STAT+1,u - ldy <D.DevTbl -L02B4 cmpx V$STAT,y - beq L032B - leay DEVSIZ,y - decb - bne L02B4 - ldy <D.Proc - ldb P$ID,y - stb V$USRS,u - ldy V$DESC,u + ldy <D.DevTbl +L02B4 cmpx V$STAT,y + beq L032B + leay DEVSIZ,y + decb + bne L02B4 + ldy <D.Proc + ldb P$ID,y + stb V$USRS,u + ldy V$DESC,u IFGT LEVEL-1 ldu V$DRIVEX,u - exg x,u - pshs u - jsr $0F,x - puls u + exg x,u + pshs u + jsr $0F,x + puls u ELSE ldu V$DRIV,u exg x,u X pts to driver, U pts to static ldd M$Exec,x leax d,x pshs u - jsr $0F,x - puls u + jsr $0F,x + puls u ENDC - ldx $01,s get ptr to dev table - ldx V$DRIV,x load X with driver addr - ldd M$Mem,x get static storage size - addd #$00FF round up one page - clrb clear lo byte - os9 F$SRtMem return mem + ldx $01,s get ptr to dev table + ldx V$DRIV,x load X with driver addr + ldd M$Mem,x get static storage size + addd #$00FF round up one page + clrb clear lo byte + os9 F$SRtMem return mem * Code here appears to be for Level III? IFGT Level-2 - ldx $01,s get old U on stack - ldx V$DESC,x - ldd M$Port,x - beq L032B - lbsr L01D1 - cmpb #$3F - beq L032B - tfr d,y - IFNE H6309 - ldf ,s - ENDC - ldu <D.DevTbl -L02F4 cmpu $01,s - beq L0309 - ldx V$DESC,u - beq L0309 - ldd M$Port,x - beq L0309 - lbsr L01D1 - IFNE H6309 - cmpr y,d - ELSE - pshs y - cmpd ,s++ - ENDC - beq L032B -L0309 leau DEVSIZ,u - IFNE H6309 - decf - ELSE - dec ,s - ENDC - bne L02F4 - ldx <D.SysPrc - ldu <D.SysDAT - IFNE H6309 - ldf #$08 - ELSE - ldb #$08 - pshs b - ENDC -L0316 ldd ,u++ - IFNE H6309 - cmpr y,d - ELSE - pshs y - cmpd ,s++ - ENDC - beq L0323 - IFNE H6309 - decf - ELSE - dec ,s - ENDC - bne L0316 - IFEQ H6309 - leas 1,s - ENDC - bra L032B -L0323 - IFEQ H6309 - leas 1,s - ENDC + ldx $01,s get old U on stack + ldx V$DESC,x + ldd M$Port,x + beq L032B + lbsr L01D1 + cmpb #$3F + beq L032B + tfr d,y + IFNE H6309 + ldf ,s + ENDC + ldu <D.DevTbl +L02F4 cmpu $01,s + beq L0309 + ldx V$DESC,u + beq L0309 + ldd M$Port,x + beq L0309 + lbsr L01D1 + IFNE H6309 + cmpr y,d + ELSE + pshs y + cmpd ,s++ + ENDC + beq L032B +L0309 leau DEVSIZ,u + IFNE H6309 + decf + ELSE + dec ,s + ENDC + bne L02F4 + ldx <D.SysPrc + ldu <D.SysDAT + IFNE H6309 + ldf #$08 + ELSE + ldb #$08 + pshs b + ENDC +L0316 ldd ,u++ + IFNE H6309 + cmpr y,d + ELSE + pshs y + cmpd ,s++ + ENDC + beq L0323 + IFNE H6309 + decf + ELSE + dec ,s + ENDC + bne L0316 + IFEQ H6309 + leas 1,s + ENDC + bra L032B +L0323 + IFEQ H6309 + leas 1,s + ENDC ldd #DAT.Free - std -$02,u - IFNE H6309 + std -$02,u + IFNE H6309 oim #ImgChg,P$State,x - ELSE - lda P$State,x - ora #ImgChg - sta P$State,x - ENDC + ELSE + lda P$State,x + ora #ImgChg + sta P$State,x + ENDC ENDC -L032B puls u,b - ldx V$DESC,u get descriptor in X - clr V$DESC,u clear out descriptor - clr V$DESC+1,u - clr V$USRS,u and users -L0335 +L032B puls u,b + ldx V$DESC,u get descriptor in X + clr V$DESC,u clear out descriptor + clr V$DESC+1,u + clr V$USRS,u and users +L0335 IFGT Level-1 - IFNE H6309 - ldw <D.Proc - ELSE - ldd <D.Proc get curr process - pshs d save it - ENDC - ldd <D.SysPrc make system the current process - std <D.Proc + IFNE H6309 + ldw <D.Proc + ELSE + ldd <D.Proc get curr process + pshs d save it + ENDC + ldd <D.SysPrc make system the current process + std <D.Proc ENDC - ldy V$DRIV,u get file manager module address - ldu V$FMGR,u get driver module address - os9 F$UnLink unlink file manager - leau ,y point to driver - os9 F$UnLink unlink driver - leau ,x point to descriptor - os9 F$UnLink unlink it + ldy V$DRIV,u get file manager module address + ldu V$FMGR,u get driver module address + os9 F$UnLink unlink file manager + leau ,y point to driver + os9 F$UnLink unlink driver + leau ,x point to descriptor + os9 F$UnLink unlink it IFGT Level-1 - IFNE H6309 - stw <D.Proc - ELSE - puls d restore current process - std <D.Proc - ENDC + IFNE H6309 + stw <D.Proc + ELSE + puls d restore current process + std <D.Proc ENDC -L0351 lbsr L0595 - clrb - rts + ENDC +L0351 lbsr L0595 + clrb + rts * User State I$Dup -UIDup bsr LocFrPth look for a free path - bcs L0376 branch if error - pshs x,a else save off - lda R$A,u get path to dup - lda a,x point to path to dup - bsr L036F - bcs L036B - puls x,b - stb R$A,u save off new path to caller's A - sta b,x - rts -L036B puls pc,x,a +UIDup bsr LocFrPth look for a free path + bcs L0376 branch if error + pshs x,a else save off + lda R$A,u get path to dup + lda a,x point to path to dup + bsr L036F + bcs L036B + puls x,b + stb R$A,u save off new path to caller's A + sta b,x + rts +L036B puls pc,x,a * System State I$Dup -SIDup lda R$A,u -L036F lbsr GetPDesc find path descriptor - bcs L0376 exit if error - inc PD.CNT,y else increment path descriptor -L0376 rts +SIDup lda R$A,u +L036F lbsr GetPDesc find path descriptor + bcs L0376 exit if error + inc PD.CNT,y else increment path descriptor +L0376 rts * Find next free path position in current proc * Exit: X = Ptr to proc's path table * A = Free path number (valid if carry clear) * -LocFrPth ldx <D.Proc get ptr to current proc desc - leax <P$Path,x point X to proc's path table - clra start from 0 -L037D tst a,x this path free? - beq L038A branch if so... - inca ...else try next path - cmpa #Numpaths are we at the end? - bcs L037D branch if not - comb else path table is full - ldb #E$PthFul - rts -L038A andcc #^Carry - rts +LocFrPth ldx <D.Proc get ptr to current proc desc + leax <P$Path,x point X to proc's path table + clra start from 0 +L037D tst a,x this path free? + beq L038A branch if so... + inca ...else try next path + cmpa #Numpaths are we at the end? + bcs L037D branch if not + comb else path table is full + ldb #E$PthFul + rts +L038A andcc #^Carry + rts -IUsrCall bsr LocFrPth - bcs L039F - pshs u,x,a - bsr ISysCall - puls u,x,a - bcs L039F - ldb R$A,u - stb a,x - sta R$A,u -L039F rts +IUsrCall bsr LocFrPth + bcs L039F + pshs u,x,a + bsr ISysCall + puls u,x,a + bcs L039F + ldb R$A,u + stb a,x + sta R$A,u +L039F rts -ISysCall pshs b - ldb R$A,u - bsr AllcPDsc - bcs L03B4 - puls b - lbsr CallFMgr - bcs L03C3 - lda PD.PD,y - sta R$A,u - rts -L03B4 puls pc,a +ISysCall pshs b + ldb R$A,u + bsr AllcPDsc + bcs L03B4 + puls b + lbsr CallFMgr + bcs L03C3 + lda PD.PD,y + sta R$A,u + rts +L03B4 puls pc,a * Make Directory -IMakDir pshs b +IMakDir pshs b ldb #DIR.+WRITE. -L03BA bsr AllcPDsc - bcs L03B4 - puls b - lbsr CallFMgr -L03C3 pshs b,cc - ldu PD.DEV,y - os9 I$Detach - lda PD.PD,y - ldx <D.PthDBT - os9 F$Ret64 - puls pc,b,cc +L03BA bsr AllcPDsc + bcs L03B4 + puls b + lbsr CallFMgr +L03C3 pshs b,cc + ldu PD.DEV,y + os9 I$Detach + lda PD.PD,y + ldx <D.PthDBT + os9 F$Ret64 + puls pc,b,cc * Change Directory -IChgDir pshs b - ldb R$A,u - orb #DIR. - bsr AllcPDsc - bcs L03B4 - puls b - lbsr CallFMgr - bcs L03C3 - ldu <D.Proc - IFNE H6309 +IChgDir pshs b + ldb R$A,u + orb #DIR. + bsr AllcPDsc + bcs L03B4 + puls b + lbsr CallFMgr + bcs L03C3 + ldu <D.Proc + IFNE H6309 tim #PWRIT.+PREAD.+UPDAT.,PD.MOD,y - ELSE - ldb PD.MOD,y + ELSE + ldb PD.MOD,y bitb #PWRIT.+PREAD.+UPDAT. - ENDC - beq IChgExec - ldx PD.DEV,y - stx <P$DIO,u - inc V$USRS,x - bne IChgExec - dec V$USRS,x -IChgExec - IFNE H6309 + ENDC + beq IChgExec + ldx PD.DEV,y + stx <P$DIO,u + inc V$USRS,x + bne IChgExec + dec V$USRS,x +IChgExec + IFNE H6309 tim #PEXEC.+EXEC.,PD.MOD,y - ELSE + ELSE bitb #PEXEC.+EXEC. - ENDC - beq L0406 - ldx PD.DEV,y + ENDC + beq L0406 + ldx PD.DEV,y stx <P$DIO+6,u - inc V$USRS,x - bne L0406 - dec V$USRS,x -L0406 clrb - bra L03C3 + inc V$USRS,x + bne L0406 + dec V$USRS,x +L0406 clrb + bra L03C3 -IDelete pshs b - ldb #WRITE. - bra L03BA +IDelete pshs b + ldb #WRITE. + bra L03BA -IDeletX ldb #7 Delete offset in file manager - pshs b - ldb R$A,u - bra L03BA +IDeletX ldb #7 Delete offset in file manager + pshs b + ldb R$A,u + bra L03BA * Allocate path descriptor * Entry: * B = mode -AllcPDsc - ldx <D.Proc get pointer to curr proc in X - pshs u,x save U/X - ldx <D.PthDBT get ptr to path desc base table - os9 F$All64 allocate 64 byte page - bcs L0484 branch if error - inc PD.CNT,y set path count - stb PD.MOD,y save mode byte +AllcPDsc + ldx <D.Proc get pointer to curr proc in X + pshs u,x save U/X + ldx <D.PthDBT get ptr to path desc base table + os9 F$All64 allocate 64 byte page + bcs L0484 branch if error + inc PD.CNT,y set path count + stb PD.MOD,y save mode byte IFGT Level-1 - ldx <D.Proc get curr proc desc - ldb P$Task,x get task # + ldx <D.Proc get curr proc desc + ldb P$Task,x get task # ENDC - ldx R$X,u X points to pathlist -L042C + ldx R$X,u X points to pathlist +L042C IFGT Level-1 - os9 F$LDABX get byte at X - leax 1,x move to next + os9 F$LDABX get byte at X + leax 1,x move to next ELSE lda ,x+ ENDC - cmpa #C$SPAC space? - beq L042C continue if so - leax -1,x else back up - stx R$X,u save updated pointer - cmpa #PDELIM leading slash? - beq L0459 yep... - ldx <D.Proc else get curr proc - IFNE H6309 + cmpa #C$SPAC space? + beq L042C continue if so + leax -1,x else back up + stx R$X,u save updated pointer + cmpa #PDELIM leading slash? + beq L0459 yep... + ldx <D.Proc else get curr proc + IFNE H6309 tim #EXEC.,PD.MOD,y - ELSE - ldb PD.MOD,y get mode byte - bitb #EXEC. exec. dir relative? - ENDC - beq L0449 nope... - ldx <P$DIO+6,x else get dev entry for exec path - bra L044C and branch -L0449 ldx <P$DIO,x get dev entry for data path -L044C beq L0489 branch if empty + ELSE + ldb PD.MOD,y get mode byte + bitb #EXEC. exec. dir relative? + ENDC + beq L0449 nope... + ldx <P$DIO+6,x else get dev entry for exec path + bra L044C and branch +L0449 ldx <P$DIO,x get dev entry for data path +L044C beq L0489 branch if empty IFGT Level-1 - ldd <D.SysPrc get system proc ptr - std <D.Proc get curr proc + ldd <D.SysPrc get system proc ptr + std <D.Proc get curr proc ENDC - ldx V$DESC,x get descriptor pointer - ldd M$Name,x get name offset + ldx V$DESC,x get descriptor pointer + ldd M$Name,x get name offset IFNE H6309 - addr d,x - ELSE - leax d,x point X to name in descriptor - ENDC -L0459 pshs y save off path desc ptr in Y - os9 F$PrsNam parse it - puls y restore path desc ptr - bcs L0489 branch if error - lda PD.MOD,y get mode byte - os9 I$Attach attach to device - stu PD.DEV,y save dev tbl entry - bcs L048B branch if error - ldx V$DESC,u else get descriptor pointer + addr d,x + ELSE + leax d,x point X to name in descriptor + ENDC +L0459 pshs y save off path desc ptr in Y + os9 F$PrsNam parse it + puls y restore path desc ptr + bcs L0489 branch if error + lda PD.MOD,y get mode byte + os9 I$Attach attach to device + stu PD.DEV,y save dev tbl entry + bcs L048B branch if error + ldx V$DESC,u else get descriptor pointer * copy options from dev desc to path desc - leax <M$Opt,x point to opts in desc - IFNE H6309 - ldf ,x+ - leau <PD.OPT,y + leax <M$Opt,x point to opts in desc + IFNE H6309 + ldf ,x+ + leau <PD.OPT,y cmpf #PD.OPT - bcs L047E - ldf #$20 -L047E clre - tfm x+,u+ - ELSE - ldb ,x+ get options count - leau <PD.OPT,y + 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 KeepLoop lda ,x+ - sta ,u+ + sta ,u+ L03E5 decb - bpl KeepLoop - ENDC - clrb -L0484 puls u,x + bpl KeepLoop + ENDC + clrb +L0484 puls u,x IFGT Level-1 - stx <D.Proc + stx <D.Proc ENDC - rts + rts L0489 ldb #E$BPNam -L048B pshs b - lda ,y - ldx <D.PthDBT - os9 F$Ret64 - puls b - coma - bra L0484 +L048B pshs b + lda ,y + ldx <D.PthDBT + os9 F$Ret64 + puls b + coma + bra L0484 -UISeek bsr S2UPath get user path # - bcc GtPDClFM get PD, call FM - rts +UISeek bsr S2UPath get user path # + bcc GtPDClFM get PD, call FM + rts -SISeek lda R$A,u -GtPDClFM bsr GetPDesc - IFNE H6309 - bcc CallFMgr - ELSE - lbcc CallFMgr - ENDC - rts +SISeek lda R$A,u +GtPDClFM bsr GetPDesc + IFNE H6309 + bcc CallFMgr + ELSE + lbcc CallFMgr + ENDC + rts L04A5 ldb #E$Read - IFNE H6309 - tim #WRITE.,,s - ELSE - lda ,s + IFNE H6309 + tim #WRITE.,,s + ELSE + lda ,s bita #WRITE. - ENDC - beq L04B2 + ENDC + beq L04B2 ldb #E$Write - bra L04B2 + bra L04B2 -L04B0 ldb #E$BMode -L04B2 com ,s+ - rts +L04B0 ldb #E$BMode +L04B2 com ,s+ + rts -UIRead bsr S2UPath get user path # - bcc L04E3 - rts +UIRead bsr S2UPath get user path # + bcc L04E3 + rts -UIWrite bsr S2UPath - bcc L04C1 - rts +UIWrite bsr S2UPath + bcc L04C1 + rts -SIWrite lda R$A,u -L04C1 pshs b - ldb #WRITE. - bra L04E7 +SIWrite lda R$A,u +L04C1 pshs b + ldb #WRITE. + bra L04E7 * get path descriptor * Passed: A = path number * Returned: Y = address of path desc for path num -GetPDesc ldx <D.PthDBT - os9 F$Find64 - bcs L04DD - rts +GetPDesc ldx <D.PthDBT + os9 F$Find64 + bcs L04DD + rts * System to User Path routine * * Returns: * A = user path # * X = path table in path desc. of current proc. -S2UPath lda R$A,u +S2UPath lda R$A,u cmpa #Numpaths - bcc L04DD illegal path number - ldx <D.Proc - adda #P$PATH - lda a,x - bne L04E0 -L04DD comb - ldb #E$BPNum -L04E0 rts + bcc L04DD illegal path number + ldx <D.Proc + adda #P$PATH + lda a,x + bne L04E0 +L04DD comb + ldb #E$BPNum +L04E0 rts -SIRead lda R$A,u get user path +SIRead lda R$A,u get user path L04E3 pshs b ldb #EXEC.+READ. -L04E7 bsr GetPDesc get path descriptor from path in A - bcs L04B2 branch if error - bitb PD.MOD,y test bits against mode in path desc - beq L04B0 branch if no corresponding bits - ldd R$Y,u else get count from user - beq L051C branch if zero count - addd R$X,u else update buffer pointer with size - bcs L04A5 branch if carry set +L04E7 bsr GetPDesc get path descriptor from path in A + bcs L04B2 branch if error + bitb PD.MOD,y test bits against mode in path desc + beq L04B0 branch if no corresponding bits + ldd R$Y,u else get count from user + beq L051C branch if zero count + addd R$X,u else update buffer pointer with size + bcs L04A5 branch if carry set IFGT Level-1 IFNE H6309 decd - ELSE - subd #$0001 subtract 1 from count - ENDC - lsra / 2 - lsra / 4 - lsra / 8 - lsra / 16 - lsra / 32 - ldb R$X,u get address of buffer to hold read data - lsrb - lsrb - lsrb - lsrb - ldx <D.Proc + ELSE + subd #$0001 subtract 1 from count + ENDC + lsra / 2 + lsra / 4 + lsra / 8 + lsra / 16 + lsra / 32 + ldb R$X,u get address of buffer to hold read data + lsrb + lsrb + lsrb + lsrb + ldx <D.Proc leax <P$DATImg,x - abx - lsrb - IFNE H6309 - subr b,a - tfr a,e - ELSE - pshs b - suba ,s - sta ,s - ENDC -L0510 ldd ,x++ + abx + lsrb + IFNE H6309 + subr b,a + tfr a,e + ELSE + pshs b + suba ,s + sta ,s + ENDC +L0510 ldd ,x++ cmpd #DAT.Free - IFNE H6309 - beq L04A5 - dece - ELSE - bne L051X + IFNE H6309 + beq L04A5 + dece + ELSE + bne L051X puls a - bra L04A5 -L051X dec ,s - ENDC - bpl L0510 - IFEQ H6309 - puls a - ENDC + bra L04A5 +L051X dec ,s ENDC -L051C puls b + bpl L0510 + IFEQ H6309 + puls a + ENDC + ENDC +L051C puls b + CallFMgr equ * - subb #$03 - pshs u,y,x - ldx <D.Proc -L0524 - IFNE H6309 - lde $05,y - ELSE - tst PD.CPR,y - ENDC - bne L054B - lda P$ID,x - sta PD.CPR,y - stu PD.RGS,y - ldx PD.DEV,y - IFGT Level-1 - ldx V$FMGREX,x get file manager address + subb #$03 + pshs u,y,x + ldx <D.Proc +L0524 + IFNE H6309 + lde $05,y + ELSE + tst PD.CPR,y + ENDC + bne L054B + lda P$ID,x + sta PD.CPR,y + stu PD.RGS,y + ldx PD.DEV,y + IFGT Level-1 + ldx V$FMGREX,x get file manager address ELSE ldx V$FMGR,x ldd M$Exec,x leax d,x ENDC - lda #$03 length of lbra instruction - mul - jsr b,x -L0538 pshs b,cc - bsr L0595 - ldy $04,s get Y off stack - ldx <D.Proc - lda P$ID,x - cmpa PD.CPR,y - bne L0549 - clr PD.CPR,y -L0549 puls pc,u,y,x,b,cc -L054B pshs u,y,x,b + lda #$03 length of lbra instruction + mul + jsr b,x enter jump table at point computed from B +L0538 pshs b,cc preserve return status (C,B) from call + bsr L0595 + ldy $04,s get Y off stack + ldx <D.Proc + lda P$ID,x + cmpa PD.CPR,y + bne L0549 clean up and return + clr PD.CPR,y path descriptor of currrent process +L0549 puls pc,u,y,x,b,cc return.. with return status in C, B. +L054B pshs u,y,x,b lbsr FIOQu2 - puls u,y,x,b - coma - lda <P$Signal,x - beq L0524 - tfr a,b - bra L0538 + puls u,y,x,b + coma + lda <P$Signal,x + beq L0524 + tfr a,b + bra L0538 go back -UIGetStt lbsr S2UPath get usr path # - ldx <D.Proc - bcc L0568 - rts +UIGetStt lbsr S2UPath get usr path # + ldx <D.Proc + bcc L0568 + rts -SIGetStt lda R$A,u +SIGetStt lda R$A,u IFGT Level-1 - ldx <D.SysPrc + ldx <D.SysPrc ENDC -L0568 pshs x,b,a - lda R$B,u get func code - sta $01,s place on stack in B - puls a get path off stack - lbsr GtPDClFM - puls x,a get func code in A, sys proc in X - pshs u,y,b,cc - tsta SS.Opt? - beq SSOpt - cmpa #SS.DevNm Get device name? - beq SSDevNm +L0568 pshs x,b,a + lda R$B,u get func code + sta $01,s place on stack in B + puls a get path off stack + lbsr GtPDClFM + puls x,a get func code in A, sys proc in X + pshs u,y,b,cc + tsta SS.Opt? + beq SSOpt + cmpa #SS.DevNm Get device name? + beq SSDevNm puls pc,u,y,b,cc SSOpt equ * IFGT Level-1 - lda <D.SysTsk - ldb P$Task,x + lda <D.SysTsk + ldb P$Task,x ENDC - leax <PD.OPT,y + leax <PD.OPT,y SSCopy ldy #PD.OPT - ldu R$X,u + ldu R$X,u IFGT Level-1 - os9 F$Move + os9 F$Move ELSE Looper lda ,x+ sta ,u+ decb bne Looper ENDC - leas $2,s - clrb - puls pc,u,y + leas $2,s + clrb + puls pc,u,y -L0595 pshs y - ldy <D.Proc get current process - lda <P$IOQN,y get ID of next process in I/O queue - beq L05AC branch if none - clr <P$IOQN,y else clear it - ldb #S$Wake get wake signal - os9 F$Send wake up process ID in A with signal in B +L0595 pshs y + ldy <D.Proc get current process + lda <P$IOQN,y get ID of next process in I/O queue + beq L05AC branch if none + clr <P$IOQN,y else clear it + ldb #S$Wake get wake signal + os9 F$Send wake up process ID in A with signal in B IFGT Level-1 - os9 F$GProcP + os9 F$GProcP ELSE ldx <D.PrcDBT os9 F$Find64 - ENDC - clr P$IOQP,y -L05AC clrb - puls pc,y + ENDC + clr P$IOQP,y +L05AC clrb + puls pc,y SSDevNm IFGT Level-1 - lda <D.SysTsk - ldb P$Task,x + lda <D.SysTsk + ldb P$Task,x ENDC IFEQ H6309 pshs d ENDC - ldx PD.DEV,y - ldx V$DESC,x - IFNE H6309 - ldw M$Name,x - addr w,x - ELSE + ldx PD.DEV,y + ldx V$DESC,x + IFNE H6309 + ldw M$Name,x + addr w,x + ELSE ldd M$Name,x leax d,x puls d - ENDC - bra SSCopy + ENDC + bra SSCopy -UIClose lbsr S2UPath get user path # - bcs L05CE - IFNE H6309 - lde R$A,u - adde #$30 - clr e,x zero path entry - ELSE +UIClose lbsr S2UPath get user path # + bcs L05CE + IFNE H6309 + lde R$A,u + adde #$30 + clr e,x zero path entry + ELSE pshs b - ldb R$A,u - addb #P$PATH - clr b,x + ldb R$A,u + addb #P$PATH + clr b,x puls b - ENDC - bra L05D1 -L05CE rts + ENDC + bra L05D1 +L05CE rts -SIClose lda R$A,u -L05D1 lbsr GetPDesc - bcs L05CE - dec PD.CNT,y - tst PD.CPR,y - bne L05DF - lbsr CallFMgr -L05DF tst PD.CNT,y - bne L05CE - lbra L03C3 +SIClose lda R$A,u +L05D1 lbsr GetPDesc + bcs L05CE + dec PD.CNT,y + tst PD.CPR,y + bne L05DF + lbsr CallFMgr +L05DF tst PD.CNT,y + bne L05CE + lbra L03C3 FIRQ ldx R$X,u get ptr to IRQ packet ldb ,x B = flip byte ldx $01,x X = mask/priority - clra - pshs cc - pshs x,b - ldx <D.Init - ldb PollCnt,x - ldx <D.PolTbl - ldy R$X,u - beq L0634 + clra + pshs cc + pshs x,b + ldx <D.Init + ldb PollCnt,x + ldx <D.PolTbl + ldy R$X,u + beq L0634 tst $01,s test mask byte - beq L0662 + beq L0662 decb dec poll table count - lda #POLSIZ - mul - IFNE H6309 - addr d,x - ELSE + lda #POLSIZ + mul + IFNE H6309 + addr d,x + ELSE leax d,x point to last entry in table - ENDC - lda Q$MASK,x - bne L0662 - orcc #IntMasks + ENDC + lda Q$MASK,x + bne L0662 + orcc #IntMasks L060D ldb $02,s get priority byte cmpb -(POLSIZ-Q$PRTY),x compare with prev entry's prior - bcs L0620 - ldb #POLSIZ -L0615 lda ,-x - sta POLSIZ,x - decb - bne L0615 - cmpx <D.PolTbl - bhi L060D -L0620 ldd R$D,u get dev stat reg + bcs L0620 + ldb #POLSIZ +L0615 lda ,-x + sta POLSIZ,x + decb + bne L0615 + cmpx <D.PolTbl + bhi L060D +L0620 ldd R$D,u get dev stat reg std Q$POLL,x save it ldd ,s++ get flip/mask std Q$FLIP,x save it ldb ,s+ get priority - stb Q$PRTY,x - IFNE H6309 - ldq R$Y,u - stq Q$SERV,x - ELSE + stb Q$PRTY,x + IFNE H6309 + ldq R$Y,u + stq Q$SERV,x + ELSE ldd R$Y,u get IRQ svc addr std Q$SERV,x save ldd R$U,u get IRQ svc mem ptr std Q$STAT,x save - ENDC - puls pc,cc + ENDC + puls pc,cc * Remove the ISR L0634 leas $04,s clean stack - ldy R$U,u -L0639 cmpy Q$STAT,x - beq L0645 - leax POLSIZ,x - decb - bne L0639 - clrb - rts - IFNE H6309 -L0645 orcc #IntMasks - decb - beq L0654 - lda #POLSIZ - mul - tfr d,w - leay POLSIZ,x - tfm y+,x+ -L0654 ldw #POLSIZ - clr ,-s - tfm s,x+ - leas $01,s + ldy R$U,u +L0639 cmpy Q$STAT,x + beq L0645 + leax POLSIZ,x + decb + bne L0639 + clrb + rts + IFNE H6309 +L0645 orcc #IntMasks + decb + beq L0654 + lda #POLSIZ + mul + tfr d,w + leay POLSIZ,x + tfm y+,x+ +L0654 ldw #POLSIZ + clr ,-s + tfm s,x+ + leas $01,s andcc #^IntMasks - rts - ELSE -L0645 pshs b,cc - orcc #IntMasks - bra L0565 + rts + ELSE +L0645 pshs b,cc + orcc #IntMasks + bra L0565 * Move prev poll entry up one -L055E ldb POLSIZ,x - stb ,x+ - deca - bne L055E -L0565 lda #POLSIZ +L055E ldb POLSIZ,x + stb ,x+ + deca + bne L055E +L0565 lda #POLSIZ dec 1,s dec count - bne L055E -L056B clr ,x+ - deca - bne L056B - puls pc,a,cc - ENDC + bne L055E +L056B clr ,x+ + deca + bne L056B + puls pc,a,cc + ENDC -L0662 leas $04,s -L0664 comb - ldb #E$Poll - rts +L0662 leas $04,s +L0664 comb + ldb #E$Poll + rts *************************** * @@ -1302,91 +1303,91 @@ * Entry: None * -IRQPoll ldy <D.PolTbl get pointer to polling table - ldx <D.Init get pointer to init module - ldb PollCnt,x get number of entries in table -L066F lda [Q$POLL,y] get device's status register - eora Q$FLIP,y flip it - bita Q$MASK,y origin of IRQ? - bne L067E yes, branch -L0677 leay POLSIZ,y else move to next entry - decb done? - bne L066F no, get next one - bra L0664 else branch -L067E ldu Q$STAT,y get device static storage - pshs y,b preserve device # & poll address - jsr [<Q$SERV,y] execute service routine - puls y,b restore device # & poll address - bcs L0677 go to next device if error - rts return +IRQPoll ldy <D.PolTbl get pointer to polling table + ldx <D.Init get pointer to init module + ldb PollCnt,x get number of entries in table +L066F lda [Q$POLL,y] get device's status register + eora Q$FLIP,y flip it + bita Q$MASK,y origin of IRQ? + bne L067E yes, branch +L0677 leay POLSIZ,y else move to next entry + decb done? + bne L066F no, get next one + bra L0664 else branch +L067E ldu Q$STAT,y get device static storage + pshs y,b preserve device # & poll address + jsr [<Q$SERV,y] execute service routine + puls y,b restore device # & poll address + bcs L0677 go to next device if error + rts return IFGT Level-1 -FNMLoad pshs u save caller's regs ptr - ldx R$X,u - lbsr LoadMod allocate proc desc - bcs L06E2 - ldy ,s put caller's regs ptr in Y - stx R$X,y - ldy ,u - ldx $04,u - ldd #$0006 - os9 F$LDDDXY - leay ,u - puls u - bra L06BF +FNMLoad pshs u save caller's regs ptr + ldx R$X,u + lbsr LoadMod allocate proc desc + bcs L06E2 + ldy ,s put caller's regs ptr in Y + stx R$X,y + ldy ,u + ldx $04,u + ldd #$0006 + os9 F$LDDDXY + leay ,u + puls u + bra L06BF -FNMLink ldx <D.Proc +FNMLink ldx <D.Proc leay <P$DATImg,x - pshs u - ldx R$X,u - lda R$A,u - os9 F$FModul - bcs L06E2 - leay ,u - puls u - stx R$X,u -L06BF std R$A,u - ldx MD$Link,y get link count - beq L06C9 - bitb #ReEnt reentrant? - beq L06DF branch if so -L06C9 leax 1,x increment module link count - beq L06CF branch if zero - stx MD$Link,y else save new link count -L06CF ldx MD$MPtr,y get module pointer in X + pshs u + ldx R$X,u + lda R$A,u + os9 F$FModul + bcs L06E2 + leay ,u + puls u + stx R$X,u +L06BF std R$A,u + ldx MD$Link,y get link count + beq L06C9 + bitb #ReEnt reentrant? + beq L06DF branch if so +L06C9 leax 1,x increment module link count + beq L06CF branch if zero + stx MD$Link,y else save new link count +L06CF ldx MD$MPtr,y get module pointer in X ldy MD$MPDAT,y get module DAT image ptr - ldd #$000B - os9 F$LDDDXY - bcs L06DE - std R$Y,u -L06DE rts -L06DF comb - ldb #E$ModBsy -L06E2 puls pc,u + ldd #$000B + os9 F$LDDDXY + bcs L06DE + std R$Y,u +L06DE rts +L06DF comb + ldb #E$ModBsy +L06E2 puls pc,u ENDC FLoad IFGT Level-1 - pshs u place caller's reg ptr on stack - ldx R$X,u get pathname to load - bsr LoadMod allocate a process descriptor - bcs L070F exit if error - puls y get caller's reg ptr in Y -L06EE pshs y preserve y - stx R$X,y save updated pathlist - ldy ,u get DAT image pointer - ldx $04,u get offset within DAT image - ldd #$0006 get offset to the offset - os9 F$LDDDXY get language & type - ldx ,s get caller's reg ptr in X - std R$D,x update language/type codes - leax ,u - os9 F$ELink - bcs L070F - ldx ,s get caller's reg ptr in X - sty R$Y,x - stu R$U,x -L070F puls pc,u + pshs u place caller's reg ptr on stack + ldx R$X,u get pathname to load + bsr LoadMod allocate a process descriptor + bcs L070F exit if error + puls y get caller's reg ptr in Y +L06EE pshs y preserve y + stx R$X,y save updated pathlist + ldy ,u get DAT image pointer + ldx $04,u get offset within DAT image + ldd #$0006 get offset to the offset + os9 F$LDDDXY get language & type + ldx ,s get caller's reg ptr in X + std R$D,x update language/type codes + leax ,u + os9 F$ELink + bcs L070F + ldx ,s get caller's reg ptr in X + sty R$Y,x + stu R$U,x +L070F puls pc,u ELSE pshs u ldx R$X,u @@ -1404,22 +1405,22 @@ leax d,y stx R$Y,u L05BA puls pc,u - ENDC - + ENDC + IFGT Level-1 IDetach0 pshs u save off regs ptr ldx R$X,u get ptr to device name - bsr LoadMod - bcs L0729 - puls y - ldd <D.Proc - pshs y,b,a - ldd R$U,y - std <D.Proc - bsr L06EE - puls x - stx <D.Proc -L0729 puls pc,u + bsr LoadMod + bcs L0729 + puls y + ldd <D.Proc + pshs y,b,a + ldd R$U,y + std <D.Proc + bsr L06EE + puls x + stx <D.Proc +L0729 puls pc,u ENDC * Load module from file @@ -1430,18 +1431,18 @@ LoadMod IFGT Level-1 os9 F$AllPrc allocate proc desc - bcc L0731 - rts + bcc L0731 + rts L0731 leay ,u point Y at new alloced mem - ldu #$0000 - pshs u,y,x,b,a + ldu #$0000 + pshs u,y,x,b,a leas <-$11,s make a stack - clr $07,s + clr $07,s stu ,s save $0000 stu $02,s save $0000 ldu <D.Proc get proc desc ptr stu $04,s save onto stack - clr $06,s + clr $06,s lda P$Prior,u get priority sta P$Prior,y save sta P$Age,y and save as age @@ -1452,7 +1453,7 @@ stx <$13,s put updated pathlist in X on stack ldx <$15,s get proc desc in Y on stack os9 F$AllTsk allocate task - bcs L07E1 + bcs L07E1 stx <D.Proc save off X into curr proc L0765 ldx <$15,s get proc desc in Y on stack lda P$Prior,x get priority @@ -1461,203 +1462,203 @@ lda #$FF else load highest L0770 sta P$Prior,x save back sta P$Age,x and age - ldd #$0009 - ldx $02,s - lbsr L0866 - bcs L07E1 + ldd #$0009 + ldx $02,s + lbsr L0866 + bcs L07E1 ldu <$15,s get proc desc in Y on stack - lda P$Task,u - ldb <D.SysTsk - leau $08,s - pshs x - ldx $04,s - os9 F$Move - puls x - ldd M$ID,u - cmpd #M$ID12 - bne L07DF - ldd M$Size,u - subd #M$IDSize - lbsr L0866 - bcs L07E1 - ldx $04,s - lda P$Prior,x + lda P$Task,u + ldb <D.SysTsk + leau $08,s + pshs x + ldx $04,s + os9 F$Move + puls x + ldd M$ID,u + cmpd #M$ID12 + bne L07DF + ldd M$Size,u + subd #M$IDSize + lbsr L0866 + bcs L07E1 + ldx $04,s + lda P$Prior,x ldy <$15,s get proc desc ptr - sta P$Prior,y - sta P$Age,y + sta P$Prior,y + sta P$Age,y leay <P$DATImg,y - tfr y,d - ldx $02,s - os9 F$VModul - bcc L07C0 - cmpb #E$KwnMod - beq L07C6 - bra L07E1 -L07C0 ldd $02,s - addd $0A,s - std $02,s + tfr y,d + ldx $02,s + os9 F$VModul + bcc L07C0 + cmpb #E$KwnMod + beq L07C6 + bra L07E1 +L07C0 ldd $02,s + addd $0A,s + std $02,s * U = mod dir entry -L07C6 ldd <$17,s - bne L0765 - ldd MD$MPtr,u - std <$11,s +L07C6 ldd <$17,s + bne L0765 + ldd MD$MPtr,u + std <$11,s ldd [MD$MPDAT,u] - std <$17,s - ldd MD$Link,u - IFNE H6309 - incd - ELSE - addd #$0001 - ENDC - beq L0765 - std MD$Link,u - bra L0765 + std <$17,s + ldd MD$Link,u + IFNE H6309 + incd + ELSE + addd #$0001 + ENDC + beq L0765 + std MD$Link,u + bra L0765 L07DF ldb #E$BMID -L07E1 stb $07,s - ldd $04,s - beq L07E9 - std <D.Proc -L07E9 lda $06,s - beq L07F0 +L07E1 stb $07,s + ldd $04,s + beq L07E9 + std <D.Proc +L07E9 lda $06,s + beq L07F0 os9 I$Close close path to file -L07F0 ldd $02,s - addd #$1FFF - lsra - lsra - lsra - lsra - lsra - sta $02,s - ldb ,s - beq L081D - lsrb - lsrb - lsrb - lsrb - lsrb - subb $02,s - beq L081D - ldx <$15,s +L07F0 ldd $02,s + addd #$1FFF + lsra + lsra + lsra + lsra + lsra + sta $02,s + ldb ,s + beq L081D + lsrb + lsrb + lsrb + lsrb + lsrb + subb $02,s + beq L081D + ldx <$15,s leax <P$DATImg,x - lsla - leax a,x - leax $01,x - ldu <D.BlkMap -L0816 lda ,x++ - clr a,u - decb - bne L0816 -L081D ldx <$15,s - lda P$ID,x - os9 F$DelPrc - ldd <$17,s - bne L0832 - ldb $07,s - stb <$12,s - comb - bra L0861 -L0832 ldu <D.ModDir - ldx <$11,s - ldd <$17,s + lsla + leax a,x + leax $01,x + ldu <D.BlkMap +L0816 lda ,x++ + clr a,u + decb + bne L0816 +L081D ldx <$15,s + lda P$ID,x + os9 F$DelPrc + ldd <$17,s + bne L0832 + ldb $07,s + stb <$12,s + comb + bra L0861 +L0832 ldu <D.ModDir + ldx <$11,s + ldd <$17,s leau -MD$ESize,u L083C leau MD$ESize,u - cmpu <D.ModEnd - bcs L084B - comb - ldb #E$MNF - stb <$12,s - bra L0861 -L084B cmpx MD$MPtr,u - bne L083C + cmpu <D.ModEnd + bcs L084B + comb + ldb #E$MNF + stb <$12,s + bra L0861 +L084B cmpx MD$MPtr,u + bne L083C cmpd [MD$MPDAT,u] - bne L083C - ldd MD$Link,u - beq L085D - subd #$0001 - std MD$Link,u -L085D stu <$17,s - clrb -L0861 leas <$11,s + bne L083C + ldd MD$Link,u + beq L085D + subd #$0001 + std MD$Link,u +L085D stu <$17,s + clrb +L0861 leas <$11,s puls pc,u,y,x,b,a -L0866 pshs y,x,b,a +L0866 pshs y,x,b,a addd $02,s std $04,s cmpd $08,s - bls L08C2 - addd #$1FFF - lsra - lsra - lsra - lsra - lsra - cmpa #$07 - bhi L08A4 + bls L08C2 + addd #$1FFF + lsra + lsra + lsra + lsra + lsra + cmpa #$07 + bhi L08A4 ldb $08,s - lsrb - lsrb - lsrb - lsrb - lsrb - IFNE H6309 - subr b,a - lslb - exg b,a - ELSE - pshs b + lsrb + lsrb + lsrb + lsrb + lsrb + IFNE H6309 + subr b,a + lslb exg b,a - subb ,s+ + ELSE + pshs b + exg b,a + subb ,s+ lsla - ENDC + ENDC ldu <$1D,s leau <P$DATImg,u - leau a,u - clra - IFNE H6309 - tfr b,f - ELSE + leau a,u + clra + IFNE H6309 + tfr b,f + ELSE tfr d,x - ENDC - ldy <D.BlkMap - clrb -L0899 tst ,y+ - beq L08A9 + ENDC + ldy <D.BlkMap + clrb +L0899 tst ,y+ + beq L08A9 L089D equ * - IFNE H6309 - incd - ELSE - addd #$0001 - ENDC + IFNE H6309 + incd + ELSE + addd #$0001 + ENDC cmpy <D.BlkMap+2 - bne L0899 -L08A4 comb - ldb #E$MemFul - bra L08CC -L08A9 inc -$01,y - std ,u++ - IFNE H6309 + bne L0899 +L08A4 comb + ldb #E$MemFul + bra L08CC +L08A9 inc -$01,y + std ,u++ + IFNE H6309 lde $08,s - adde #$20 + adde #$20 ste $08,s - decf - ELSE - pshs a + decf + ELSE + pshs a lda $09,s - adda #$20 + adda #$20 sta $09,s - puls a + puls a leax -1,x - ENDC - bne L089D + ENDC + bne L089D ldx <$1D,s - os9 F$SetTsk - bcs L08CC + os9 F$SetTsk + bcs L08CC L08C2 lda $0E,s ldx $02,s ldy ,s - os9 I$Read + os9 I$Read L08CC leas $04,s - puls pc,x + puls pc,x ELSE L05BC lda #EXEC. os9 I$Open @@ -1714,7 +1715,7 @@ coma L0632 rts ENDC - + ******************************** * * F$PErr System call entry point @@ -1722,47 +1723,47 @@ * Entry: U = Register stack pointer * -ErrHead fcc /ERROR #/ -ErrNum equ *-ErrHead +ErrHead fcc /ERROR #/ +ErrNum equ *-ErrHead fcb $2F,$3A,$30 - fcb C$CR -ErrMessL equ *-ErrHead + fcb C$CR +ErrMessL equ *-ErrHead -FPErr ldx <D.Proc get current process pointer - lda <P$PATH+2,x get stderr path - beq L0922 return if not there - leas -ErrMessL,s make room on stack +FPErr ldx <D.Proc get current process pointer + lda <P$PATH+2,x get stderr path + beq L0922 return if not there + leas -ErrMessL,s make room on stack * copy error message to stack - leax <ErrHead,pcr point to error text - leay ,s point to buffer -L08E9 lda ,x+ get a byte - sta ,y+ store a byte - cmpa #C$CR done? - bne L08E9 no, keep going - ldb R$B,u get error # + leax <ErrHead,pcr point to error text + leay ,s point to buffer +L08E9 lda ,x+ get a byte + sta ,y+ store a byte + cmpa #C$CR done? + bne L08E9 no, keep going + ldb R$B,u get error # * Convert error code to decimal L08F3 inc ErrNum+0,s - subb #$64 - bcc L08F3 + subb #$64 + bcc L08F3 L08F9 dec ErrNum+1,s - addb #$0A - bcc L08F9 - addb #$30 + addb #$0A + bcc L08F9 + addb #$30 stb ErrNum+2,s IFGT Level-1 - ldx <D.Proc get current process pointer - ldu P$SP,x get the stack pointer - leau -ErrMessL,u put a buffer on it - lda <D.SysTsk get system task number - ldb P$Task,x get task number of process - leax ,s point to error text - ldy #ErrMessL get length of text -L0913 os9 F$Move move it to the process - leax ,u point to the moved text - ldu <D.Proc get process pointer - lda <P$PATH+2,u get path number - os9 I$WritLn write the text - leas ErrMessL,s purge the buffer + ldx <D.Proc get current process pointer + ldu P$SP,x get the stack pointer + leau -ErrMessL,u put a buffer on it + lda <D.SysTsk get system task number + ldb P$Task,x get task number of process + leax ,s point to error text + ldy #ErrMessL get length of text +L0913 os9 F$Move move it to the process + leax ,u point to the moved text + ldu <D.Proc get process pointer + lda <P$PATH+2,u get path number + os9 I$WritLn write the text + leas ErrMessL,s purge the buffer ELSE ldx <D.Proc leax ,s point to error message @@ -1771,136 +1772,135 @@ os9 I$WritLn write message leas ErrMessL,s fix up stack ENDC -L0922 rts return +L0922 rts return -FIOQu - IFNE H6309 - lde R$A,u - ENDC +FIOQu + IFNE H6309 + lde R$A,u + ENDC FIOQu2 - ldy <D.Proc - IFNE H6309 - clrf - ENDC -L092B lda <P$IOQN,y - beq L094F - IFNE H6309 - cmpr e,a - ELSE - cmpa R$A,u - ENDC - bne L094A - IFNE H6309 - stf <P$IOQN,y - ELSE - clr <P$IOQN,y - ENDC + ldy <D.Proc + IFNE H6309 + clrf + ENDC +L092B lda <P$IOQN,y + beq L094F + IFNE H6309 + cmpr e,a + ELSE + cmpa R$A,u + ENDC + bne L094A + IFNE H6309 + stf <P$IOQN,y + ELSE + clr <P$IOQN,y + ENDC IFGT Level-1 - os9 F$GProcP + os9 F$GProcP ELSE ldx <D.PrcDBT os9 F$Find64 ENDC - bcs L0922 - IFNE H6309 - stf P$IOQP,y - ELSE - clr P$IOQP,y - ENDC - ldb #S$Wake - os9 F$Send - ldu <D.Proc - bra L0958 + bcs L0922 + IFNE H6309 + stf P$IOQP,y + ELSE + clr P$IOQP,y + ENDC + ldb #S$Wake + os9 F$Send + ldu <D.Proc + bra L0958 L094A IFGT Level-1 - os9 F$GProcP + os9 F$GProcP ELSE ldx <D.PrcDBT os9 F$Find64 ENDC - bcc L092B -L094F - IFNE H6309 - tfr e,a - ELSE - lda R$A,u - ENDC - ldu <D.Proc + bcc L092B +L094F + IFNE H6309 + tfr e,a + ELSE + lda R$A,u + ENDC + ldu <D.Proc IFGT Level-1 - os9 F$GProcP + os9 F$GProcP ELSE ldx <D.PrcDBT os9 F$Find64 ENDC - bcs L09B1 -L0958 leax ,y - lda <P$IOQN,y - beq L097A + bcs L09B1 +L0958 leax ,y + lda <P$IOQN,y + beq L097A IFGT Level-1 - os9 F$GProcP + os9 F$GProcP ELSE ldx <D.PrcDBT os9 F$Find64 ENDC - bcs L09B1 - ldb P$Age,u - cmpb P$Age,y FYI, was cmpd, bug in OS-9 Level Two from Tandy - bls L0958 - ldb ,u - stb <P$IOQN,x - ldb ,x - stb P$IOQP,u - IFNE H6309 - stf P$IOQP,y - ELSE - clr P$IOQP,y - ENDC - exg y,u - bra L0958 -L097A lda ,u - sta <P$IOQN,y - lda ,y - sta P$IOQP,u - ldx #$0000 - os9 F$Sleep - ldu <D.Proc - lda P$IOQP,u - beq L09B1 + bcs L09B1 + ldb P$Age,u + cmpb P$Age,y FYI, was cmpd, bug in OS-9 Level Two from Tandy + bls L0958 + ldb ,u + stb <P$IOQN,x + ldb ,x + stb P$IOQP,u + IFNE H6309 + stf P$IOQP,y + ELSE + clr P$IOQP,y + ENDC + exg y,u + bra L0958 +L097A lda ,u + sta <P$IOQN,y + lda ,y + sta P$IOQP,u + ldx #$0000 + os9 F$Sleep + ldu <D.Proc + lda P$IOQP,u + beq L09B1 IFGT Level-1 - os9 F$GProcP + os9 F$GProcP ELSE ldx <D.PrcDBT os9 F$Find64 ENDC - bcs L09AE - lda <P$IOQN,y - beq L09AE - lda <P$IOQN,u - sta <P$IOQN,y - beq L09AE - IFNE H6309 - stf <P$IOQN,u - ELSE - clr <P$IOQN,u - ENDC + bcs L09AE + lda <P$IOQN,y + beq L09AE + lda <P$IOQN,u + sta <P$IOQN,y + beq L09AE + IFNE H6309 + stf <P$IOQN,u + ELSE + clr <P$IOQN,u + ENDC IFGT Level-1 - os9 F$GProcP + os9 F$GProcP ELSE ldx <D.PrcDBT os9 F$Find64 ENDC - bcs L09AE - lda P$IOQP,u - sta P$IOQP,y -L09AE - IFNE H6309 - stf P$IOQP,u - ELSE - clr P$IOQP,u - ENDC -L09B1 rts + bcs L09AE + lda P$IOQP,u + sta P$IOQP,y +L09AE + IFNE H6309 + stf P$IOQP,u + ELSE + clr P$IOQP,u + ENDC +L09B1 rts - emod -eom equ * - end - + emod +eom equ * + end