Mercurial > hg > Members > kono > nitros9-code

changeset 991:0502363c6fa7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed incorrectly labeled code and a problem with I$DeletX under OS-9 Level Two
author boisy
date Fri, 21 Feb 2003 21:40:53 +0000
parents 3c51c59f97c4
children 1b5656126ac6
files level2/modules/ioman.asm
diffstat 1 files changed, 13 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/level2/modules/ioman.asm	Fri Feb 21 13:18:13 2003 +0000
+++ b/level2/modules/ioman.asm	Fri Feb 21 21:40:53 2003 +0000
@@ -198,12 +198,13 @@
          fdb   IDeletX-SysIODis
 
 UsrIO    leax  <UsrIODis,pcr
-         bra   L00EF     
+         bra   IODsptch     
 SysIO    leax  <SysIODis,pcr
-         IFNE  H6309
-L00EF    cmpb  #$20      
+IODsptch equ   *
+         IFNE  NitrOS9
+         cmpb  #$20      
          ELSE
-L00EF    cmpb  #I$DeletX
+         cmpb  #I$DeletX
          ENDC
          bhi   L00F9     
          IFNE  H6309     
@@ -766,7 +767,12 @@
          ldb   #WRITE.   
          bra   L03BA     
 
-IDeletX  ldb   #EXEC.+UPDAT.
+IDeletX  
+         IFNE  NitrOS9
+         ldb   #7		Delete offset in file manager
+         ELSE
+         ldb   #$87		Delete offset in file manager
+         ENDC
          pshs  b         
          ldb   R$A,u     
          bra   L03BA     
@@ -893,8 +899,7 @@
          bcc   L04C1     
          rts             
 
-SIWrite                  
-UIDeletX lda   R$A,u     
+SIWrite  lda   R$A,u     
 L04C1    pshs  b         
          ldb   #WRITE.   
          bra   L04E7     
@@ -978,7 +983,7 @@
          ENDC            
 L051C    puls  b         
 CallFMgr equ   *
-         IFNE  H6309
+         IFNE  NitrOS9
          subb  #$03      
          ELSE
          subb  #$83