Mercurial > hg > Members > kono > nitros9-code

changeset 1625:80cff44f7e07

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updates by Rodney
author boisy
date Wed, 30 Jun 2004 12:04:09 +0000
parents bb75784a1ec5
children c01a65c813ce
files 3rdparty/drivers/ide/ccide.asm 3rdparty/drivers/ide/idedesc.asm
diffstat 2 files changed, 14 insertions(+), 18 deletions(-) [+]
line wrap: on
line diff
--- a/3rdparty/drivers/ide/ccide.asm	Wed Jun 30 01:07:36 2004 +0000
+++ b/3rdparty/drivers/ide/ccide.asm	Wed Jun 30 12:04:09 2004 +0000
@@ -168,9 +168,9 @@
          nam   CCIDE
          ttl   IDE device driver for CoCo
 
-         ifp1
+        IFP1
          use   defsfile
-         endc
+        ENDC
 
 tylg     set   Drivr+Objct   
 atrv     set   ReEnt+rev
@@ -362,11 +362,11 @@
          ldd   R$Y,x         Get sub-function type
          beq   GoodFunc
          comb                Only sub-functions 0 allowed for IDE
-         ifeq  Level-2
+        IFGE  Level-2
          ldb   #E$IllArg
-         else
-         ldb   #167
-         endc
+        ELSE
+         ldb   #187
+        ENDC
 ExitGet  rts
 
 GoodFunc pshs  x,y,u         Preserve regs
@@ -390,7 +390,7 @@
          ldd   122,y
          stx   122,y
          std   120,y
-         ifeq  Level-2
+        IFGE  Level-2
          lda   <D.SysTsk     Get system task #
          ldx   <D.Proc       Get user task ptr
          ldb   P$Task,x      Get user's task #
@@ -399,8 +399,8 @@
          ldu   R$X,u         Get Destination ptr
          ldy   #512          Move 512 bytes to caller
          os9   F$Move
-         else
-         endc
+        ELSE
+        ENDC
          puls  x,y,u         Restore regs to normal
          bcc   SetUserR      No error, set exit registers for caller
          rts
--- a/3rdparty/drivers/ide/idedesc.asm	Wed Jun 30 01:07:36 2004 +0000
+++ b/3rdparty/drivers/ide/idedesc.asm	Wed Jun 30 12:04:09 2004 +0000
@@ -56,9 +56,9 @@
 Interlv  set   $01       
 SASiz    set   $08       
 
-         ifp1            
+        IFP1            
          use   defsfile  
-         endc            
+        ENDC            
 
 tylg     set   Devic+Objct
 atrv     set   ReEnt+rev 
@@ -90,18 +90,14 @@
 *       these values directly from the descriptor.
          fcb   0,0,0,0,0,0,0,0,0
 
-         ifne  DD        
+        IFEQ  DD-true
 name     fcs   /DD/      
-         else            
+        ELSE            
 name     fcc   /H/       
          fcb   ITDRV+$B0 
-         endc            
+        ENDC            
 mgrnam   fcs   /RBF/     
-         ifne  SuperIDE  
-drvnam   fcs   /SuperIDE/
-         else            
 drvnam   fcs   /CCIDE/   
-         endc            
 
          emod            
 eom      equ   *