# HG changeset patch
# User boisy
# Date 1262567783 0
# Node ID bf6708acbda6ec926fc4439a69a5c0812816ecfd
# Parent  5f76d1a611f6a0d99b7fbf315ee1df2ed1267186
Clear V.WAKE after waking from sleep
Allow S$Peer or lower to be sent to app

diff -r 5f76d1a611f6 -r bf6708acbda6 level1/modules/scdwt.asm
--- a/level1/modules/scdwt.asm	Sun Jan 03 22:09:41 2010 +0000
+++ b/level1/modules/scdwt.asm	Mon Jan 04 01:16:23 2010 +0000
@@ -298,7 +298,7 @@
            	ldx   	>D.Proc		; process descriptor address
            	ldb   	P$Signal,x 	; pending signal for this process?
            	beq   	ChkState  	; no, go check process state...
-           	cmpb  	#S$Intrpt  	; (interrupt only)
+           	cmpb  	#S$Peer  	; (S$Peer or lower)
            	bls  	ErrExit    	; yes, go do it...
 
 ChkState   	equ   	*
@@ -336,6 +336,7 @@
 Sleep1     	ldx   	#$1			; just sleep till end of slice, we are suspended (level 2)             
 TimedSlp	andcc 	#^Intmasks  ; enable IRQs
 			os9   	F$Sleep
+                clr    <V.WAKE,u
            	rts          		; return