Mercurial > hg > Members > kono > nitros9-code

changeset 1991:b2c463319b9a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed minor issues in code
author boisy
date Sun, 05 Feb 2006 16:51:05 +0000
parents a5ea3e11a460
children 4f05cb56a8ec
files 3rdparty/p2mods/noice/calldbg.asm 3rdparty/p2mods/noice/noice.asm
diffstat 2 files changed, 42 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/3rdparty/p2mods/noice/calldbg.asm	Fri Feb 03 05:27:39 2006 +0000
+++ b/3rdparty/p2mods/noice/calldbg.asm	Sun Feb 05 16:51:05 2006 +0000
@@ -30,15 +30,22 @@
 name     fcs   /CallDBG/
          fcb   edition
 
+message1 fcc   /Execution halted/
+message2 fcc   /Execution resumed/
+         fcb   C$CR
 start
-	os9   F$Debug		call debugger
-loop
-	lda	#$03
-	cmpa	#$03
-	beq	loop
-	
+         lda   #$01
+         ldy   #200
+         leax  message1,pcr
+         os9   I$WritLn
+
+         os9   F$Debug		call debugger
+
+         leax  message2,pcr
+         os9   I$WritLn
+
 exit     clrb
-	os9   F$Exit   
+         os9   F$Exit   
 
          emod
 eom      equ   *
--- a/3rdparty/p2mods/noice/noice.asm	Fri Feb 03 05:27:39 2006 +0000
+++ b/3rdparty/p2mods/noice/noice.asm	Sun Feb 05 16:51:05 2006 +0000
@@ -97,7 +97,7 @@
                os9       F$SRqMem            allocate memory
                bcs       ex@
                stu       <D.DbgMem           save our allocated memory
-* clear thes firsttime flag so that the first time we get
+* clear the firsttime flag so that the first time we get
 * called at dbgent, we DON'T subtract the SWI from the PC.
                sta       firsttime,u         A = $01
 * get next KrnP module going
@@ -328,12 +328,33 @@
                lbra      mainloop
 
 
+* This data is provided to the NoICE server upon receipt of FN_GET_STATUS.
 statdata                 
-               FCB       20
-* TODO: 6309 unsupported!!!
-               FCB       5
-               FCB       cbsize,0,0,0,$FF,$FF,3,$10,$3F,F$Debug
-               FCC       "NitrOS-9"
+               FCB       33					number of bytes to send
+               IFNE      H6309
+               FCB       17					processor type: 6309
+               ELSE
+               FCB       5					processor type: 6809
+               ENDC
+               FCB       cbsize				size of communications buffer
+               FCB       %00000000			options flags
+               FDB       $0000				target mapped memory low bound
+               FDB       $FFFF				target mapped memory high bound
+               FCB       3					length of breakpoint instruction
+               FCB       $10,$3F,F$Debug	breakpoint instruction
+* target description
+               FCC       "NitrOS-9/6"
+               IFNE      H6309
+               FCC       "3"
+               ELSE
+               FCC       "8"
+               ENDC
+               FCC       "09 Level "
+               IFEQ      Level-1
+               FCC       "1"
+               ELSE
+               FCC       "2"
+               ENDC
                FCB       0
 
 _getstatus               
@@ -344,7 +365,7 @@
 l@             lda       ,x+
                sta       ,y+
                decb      
-               bne       l@
+               bpl       l@
                bsr       _sendtohost
                lbra      mainloop