Mercurial > hg > Members > kono > nitros9-code

changeset 2545:cb2bec98a11d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed seek to read response from server
author boisy
date Sun, 30 May 2010 22:58:04 +0000
parents 0aaf20430b33
children f0977fc3f2d6
files level1/modules/rfm.asm
diffstat 1 files changed, 14 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/level1/modules/rfm.asm	Sat May 29 05:04:13 2010 +0000
+++ b/level1/modules/rfm.asm	Sun May 30 22:58:04 2010 +0000
@@ -273,10 +273,20 @@
 
 * send dw op, rfm op, path #
             jsr     6,u
-            leas    7,s                 ;clean stack - PD.PD Regs
-               
-            clrb
-            puls    y,u,pc
+            leas    6,s                 ;clean stack - PD.PD Regs
+            
+* read response from server
+            leax    ,s
+            ldy     #1
+            jsr     3,u
+            
+            puls    b
+            tstb
+            beq     ok@
+            coma
+            bra     notok@
+ok@         clrb
+notok@      puls    y,u,pc
 
 
 ******************************