Mercurial > hg > Members > kono > nitros9-code
changeset 2273:db65aeb5c335
Driver now calls F$STime to insure F$VIRQ call is installed by Clock
| author | boisy |
|---|---|
| date | Mon, 28 Dec 2009 21:43:46 +0000 |
| parents | d6f1ee0e63a5 |
| children | 8db854421dc8 |
| files | level1/modules/scdwt.asm |
| diffstat | 1 files changed, 14 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/level1/modules/scdwt.asm Mon Dec 28 20:50:34 2009 +0000 +++ b/level1/modules/scdwt.asm Mon Dec 28 21:43:46 2009 +0000 @@ -189,7 +189,14 @@ * B = error code * +* Default time packet +DefTime dtb + Init equ * +* Set default time + leax >DefTime,pcr + os9 F$STime set time to default + pshs cc save IRQ/Carry status * link to subroutine module @@ -209,7 +216,7 @@ puls x stx <D.Proc ENDC - lbcs InitEx + lbcs InitExBad IFGT Level-1 sty <D.DWSubAddr ELSE @@ -232,7 +239,7 @@ os9 F$SRqMem tfr u,x puls u - bcs InitEx + bcs InitExBad IFGT Level-1 stx <D.DWStat ELSE @@ -246,7 +253,6 @@ * If here, we must install ISR - * Install the IRQ/VIRQ entry InstIRQ IFGT Level-1 @@ -265,7 +271,7 @@ leay IRQSvc,pcr ;IRQ service entry os9 F$IRQ ;install puls u - bcs InitEx ;exit with error + bcs InitExBad ;exit with error ldd #$0003 ;lets try every 6 ticks (0.1 seconds) -- testing 3, gives better response in interactive things IFGT Level-1 ldx <D.DWStat @@ -323,7 +329,10 @@ InitEx equ * puls cc,pc - +InitExBad + puls cc + orcc #Carry + rts * drivewire info dw3name fcs /dw3/