Mercurial > hg > Members > kono > nitros9-code
changeset 67:d603059f2b9a
references to systype.l2 changed to systype
ioman: additional comments
clock.asm: TkPerSec removed
| author | boisy |
|---|---|
| date | Wed, 01 May 2002 03:26:49 +0000 |
| parents | 25aa4b22ade4 |
| children | 8ffca4533723 |
| files | level2/coco3/defsfile level2/coco3_6309/defsfile level2/modules/clock.asm level2/modules/ioman.asm level2/modules/pakrom.asm level2/modules/xacia.asm |
| diffstat | 6 files changed, 26 insertions(+), 29 deletions(-) [+] |
line wrap: on
line diff
--- a/level2/coco3/defsfile Wed May 01 03:25:27 2002 +0000 +++ b/level2/coco3/defsfile Wed May 01 03:26:49 2002 +0000 @@ -5,4 +5,4 @@ OS9Minor equ 2 use os9defs - use systype.l2 + use systype
--- a/level2/coco3_6309/defsfile Wed May 01 03:25:27 2002 +0000 +++ b/level2/coco3_6309/defsfile Wed May 01 03:26:49 2002 +0000 @@ -5,4 +5,4 @@ OS9Minor equ 2 use os9defs - use systype.l2 + use systype
--- a/level2/modules/clock.asm Wed May 01 03:25:27 2002 +0000 +++ b/level2/modules/clock.asm Wed May 01 03:26:49 2002 +0000 @@ -42,10 +42,6 @@ ******************************************************* -TkPerSec equ 60 ticks per second - -******************************************************* - name fcs "Clock" fcb edition
--- a/level2/modules/ioman.asm Wed May 01 03:25:27 2002 +0000 +++ b/level2/modules/ioman.asm Wed May 01 03:26:49 2002 +0000 @@ -207,8 +207,8 @@ decb bpl L010B stu <$16,s save caller regs - lda $01,u - sta $09,s + lda R$A,u access mode + sta $09,s save on stack ldx <D.Proc stx <$14,s save proc desc leay <P$DATImg,x @@ -294,8 +294,8 @@ bra L015B L01CA ldb #E$BMode bra L015B -L01CE ldx $02,s - lbne L0205 +L01CE ldx $02,s get driver static in X + lbne L0205 if not zero, already alloced stu $0E,s ldx ,s get ptr to driver ldd M$Mem,x get driver mem size @@ -312,27 +312,29 @@ clr ,u std $01,u ldy $04,s - ldx ,s - ldd $09,x - jsr d,x + ldx ,s get ptr to driver + ldd $09,x D holds entry to driver + jsr d,x call init routine lbcs L015B ldu $0E,s -L0205 ldb #$08 -L0207 lda b,s - sta b,u +* Copy device table entry here +L0205 ldb #$08 size of device table +L0207 lda b,s get from src + sta b,u save in dest decb bpl L0207 -L020E ldx $04,u - ldb $07,x - lda $09,s - anda $0D,x - ldx ,u - anda $0D,x - cmpa $09,s - lbne L01CA - inc $08,u - bne L0226 - dec $08,u +* Here, U points to Device Table +L020E ldx $04,u get desc ptr in X + ldb $07,x get lang byte in desc + lda $09,s get access mode byte passed in A + anda $0D,x AND with mode byte in desc + ldx ,u X points to driver module + anda $0D,x AND with mode byte in driver + cmpa $09,s same as ?? + lbne L01CA if not, bad mode error + inc $08,u else inc user count + bne L0226 if not zero, continue + dec $08,u else dec to $FF L0226 ldx <$16,s stu $08,x leas <$18,s
--- a/level2/modules/pakrom.asm Wed May 01 03:25:27 2002 +0000 +++ b/level2/modules/pakrom.asm Wed May 01 03:26:49 2002 +0000 @@ -14,7 +14,7 @@ * 1 Created BGP 99/05/09 ifp1 - use systype.l2 + use systype endc org $C000
--- a/level2/modules/xacia.asm Wed May 01 03:25:27 2002 +0000 +++ b/level2/modules/xacia.asm Wed May 01 03:26:49 2002 +0000 @@ -19,7 +19,6 @@ DCDStBit equ %00100000 DCD status bit for SS.CDSta call DSRStBit equ %01000000 DSR status bit for SS.CDSta call Edtn equ 10 -TkPerSec equ 60 system clock ticks per second Vrsn equ 1 * conditional assembly flags