# HG changeset patch
# User boisy
# Date 1262009429 0
# Node ID 1091e798e5db5eea3e7204391b8554fd8b7b6613
# Parent  07b2433f0c65711a0898e58d86572782af15443d
I now clear out 256 byte page

diff -r 07b2433f0c65 -r 1091e798e5db level1/modules/scdwt.asm
--- 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