Mercurial > hg > Members > kono > nitros9-code

changeset 2271:1091e798e5db

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
I now clear out 256 byte page
author boisy
date Mon, 28 Dec 2009 14:10:29 +0000
parents 07b2433f0c65
children d6f1ee0e63a5
files level1/modules/scdwt.asm
diffstat 1 files changed, 10 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/level1/modules/scdwt.asm	Mon Dec 28 13:01:37 2009 +0000
+++ b/level1/modules/scdwt.asm	Mon Dec 28 14:10:29 2009 +0000
@@ -230,15 +230,20 @@
 			pshs    u
 			ldd     #$0100
 			os9     F$SRqMem
-			tfr     u,d
+			tfr     u,x
 			puls    u
 			bcs     InitEx
 			IFGT    Level-1
-			std     <D.DWStat
+			stx     <D.DWStat
 			ELSE
-			std     >D.DWStat
+			stx     >D.DWStat
 			ENDC
-         	
+* clear out 256 byte page at X
+                        clrb
+loop@                   clr     ,x+
+                        decb
+                        bne     loop@
+        	
 * If here, we must install ISR
      
 
@@ -301,7 +306,7 @@
 
 			* tell DW we have a new port opening
 			ldb		<V.PORT+1,u		; get our port #			
-			lda     #OP_SERSETSTAT 	; command 
+			lda     #OP_SERINIT 	; command 
 			pshs   	d      			; command + port # on stack
 			leax    ,s     			; point X to stack 
 			ldy     #2          	; 2 bytes to send