Mercurial > hg > Members > kono > nitros9-code

changeset 1948:7010c08050b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Couldn't give yourself write permission to a file 'cause you didn't have write prmission, fixed.
author chrish
date Mon, 12 Dec 2005 03:13:04 +0000
parents 62dcfa1de339
children 0e31b207ba40
files level1/modules/rbf.asm level2/modules/rbf.asm
diffstat 2 files changed, 9 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/level1/modules/rbf.asm	Sun Dec 11 14:39:19 2005 +0000
+++ b/level1/modules/rbf.asm	Mon Dec 12 03:13:04 2005 +0000
@@ -730,16 +730,16 @@
 L05C2    comb
          ldb   #E$BMode
          rts
-L05C6    cmpb  #$0F
+L05C6    cmpb  ##SS.FD
          bne   L0604
-         lda   $01,y
-         bita  #$02
-         beq   L05C2
          lbsr  L0CD4
          bcs   L061C
          pshs  y
          ldx   $04,u
          ldu   $08,y
+         lda   $01,y
+         bita  #$02
+         beq   L05F0
          ldy   <$004B
          ldd   $09,y
          bne   L05E7
@@ -750,7 +750,7 @@
          ldd   #$0D03
          bsr   L05F6
 * Change attrs
-         ldd   #$0001
+L05F0    ldd   #$0001
          bsr   L05F6
          puls  y
          lbra  L0D38
--- a/level2/modules/rbf.asm	Sun Dec 11 14:39:19 2005 +0000
+++ b/level2/modules/rbf.asm	Mon Dec 12 03:13:04 2005 +0000
@@ -1354,14 +1354,14 @@
 *        R$Y = # bytes to write
 Sst69B   cmpb  #SS.FD		is it SS.FD?
          bne   Sst6D9		no, keep checking
-         lda   PD.MOD,y
-         bita  #WRITE.		is it write mode?
-         beq   Sst697		no, return bad mode error
          lbsr  RdFlDscr		read in file descriptor
          bcs   Sst69A		error, return
          pshs  y		preserve path descriptor pointer
          ldx   R$X,u		get pointer to caller's buffer
          ldu   PD.BUF,y		get pointer to FD
+         lda   PD.MOD,y
+         bita  #WRITE.		is it write mode?
+         beq   Sst6BF		no, only change attrs
          ldy   <D.Proc		get current process pointer
          ldd   P$User,y		get user #
          bne   Sst6BC		not super user, skip ahead
@@ -1375,7 +1375,7 @@
          ldd   #$0D03
          bsr   Sst6CB
 * Change attrs
-         ldd   #$0001
+Sst6BF   ldd   #$0001
          bsr   Sst6CB
          puls  y
          lbra  L11FD