Mercurial > hg > Members > kono > nitros9-code

changeset 2466:5ad086cb7b0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added SetStat SS.FD
author boisy
date Sat, 27 Feb 2010 23:41:17 +0000
parents 0dbf98106f31
children d637eada60c6
files level1/modules/rfm.asm
diffstat 1 files changed, 69 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/level1/modules/rfm.asm	Sat Feb 27 23:13:47 2010 +0000
+++ b/level1/modules/rfm.asm	Sat Feb 27 23:41:17 2010 +0000
@@ -594,10 +594,12 @@
 * send Y, recv Y bytes, get them into caller at X
 * Y and U here are still as at entry
 GstFD       
-		pshs	y,u
+        ldx     PD.DEV,y
+        ldx     V$STAT,x
+		pshs	x,y,u
 		
 		* send caller's Y (do we really need this to be 16bit?  X points to 256byte buff?
-		ldx		R$X,u
+		ldx		R$Y,u
 		pshs	x
 		leax	,s
 		ldy		#2
@@ -613,9 +615,7 @@
         
         * recv bytes into v.buf
         puls	y
-        ldx     ,s                 ; orig Y
-        ldx       PD.DEV,x
-        ldx       V$STAT,x
+        ldx     ,s                 ; V$STAT
         ldx       V.BUF,x		
 		pshs	x
         
@@ -641,7 +641,7 @@
 * assume everything worked (not good)
                clrb   
         
-		puls	y,u,pc
+		puls	x,y,u,pc
                   
 
 * SS.FDInf - 
@@ -690,7 +690,69 @@
 
 SstOpt                   
 SstSize                  
-SstFD                    
+               rts
+
+* Entry: A = path
+*        B = SS.FD
+*        X = ptr to 256 byte buffer
+*        Y = # of bytes of FD to write
+
+* path # and SS.FD already sent to server, so
+* send Y, recv Y bytes, get them into caller at X
+* Y and U here are still as at entry
+SstFD             
+        ldx     PD.DEV,y
+        ldx     V$STAT,x
+		pshs	x,y,u
+		
+		* send caller's Y (do we really need this to be 16bit?  X points to 256byte buff?
+		ldx		R$Y,u
+		pshs	x
+		leax	,s
+		ldy		#2
+		
+		* set U to dwsub
+        ifgt      Level-1
+        ldu       <D.DWSubAddr
+        else      
+        ldu       >D.DWSubAddr
+        endc      
+        jsr       6,u
+
+        * move caller bytes into v.buf
+        
+        puls      y                   ; get number of bytes pushed earlier
+        ldx       4,s
+        ldx       R$X,x               ; U = caller's X = dest ptr
+        ldu       ,s
+        ldu       V.BUF,u
+               
+        ldx       <D.Proc             get calling proc desc
+        lda       P$Task,x            ; A = callers task #
+
+        ldb       <D.SysTsk           ; B = system task # 
+
+        
+*  F$Move the bytes (seems to work)
+        os9       F$Move
+
+* write bytes from v.buf
+        tfr       u,x
+        
+        ifgt      Level-1
+        ldu       <D.DWSubAddr
+        else      
+        ldu       >D.DWSubAddr
+        endc      
+        
+        jsr		3,u
+        
+* assume everything worked (not good)
+               clrb   
+        
+		puls	x,y,u,pc
+                  
+       
 SstLock                  
 SstRsBit                 
 SstAttr