Mercurial > hg > Members > kono > nitros9-code

changeset 2830:d0f5dd304a6e lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added forgotten fdebug.asm
author boisy
date Thu, 06 Jun 2013 07:58:50 -0500
parents ed9a4cb85fb3
children 7c8442122235
files level1/modules/kernel/fdebug.asm
diffstat 1 files changed, 64 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/level1/modules/kernel/fdebug.asm	Thu Jun 06 07:58:50 2013 -0500
@@ -0,0 +1,64 @@
+******************************************************
+* F$Debug entry point
+*
+* Enter the debugger (or reboot)
+*
+* Input:  A = Function code
+* 
+
+FDebug  equ   *
+* Determine if this is a system process or super user
+* Only they have permission to reboot
+         lda   R$A,u
+         cmpa  #255         reboot request
+         bne   leave        nope
+         ldx   <D.Proc
+         ldd   P$User,x     get user ID
+         beq   REBOOT
+         comb
+         ldb   #E$UnkSvc
+leave    rts 
+
+* NOTE: HIGHLY MACHINE DEPENDENT CODE!
+* THIS CODE IS SPECIFIC TO THE COCO!
+REBOOT   orcc  #IntMasks  turn off IRQ's
+*         clrb
+*         stb   >$FFA0     map in block 0
+*         stb   >$0071     cold reboot
+*         lda   #$38       bottom of DECB block mapping
+*         sta   >$FFA0     map in block zero
+         stb   >$0071     and cold reboot here, too
+         ldu   #$0000       force code to go at offset $0000
+         leax  ReBootLoc,pc  reboot code
+         ldy   #CodeSize
+cit.loop lda   ,x+
+         sta   ,u+
+         leay  -1,y
+         bne   cit.loop
+*         clr   >$FEED     cold reboot
+*         clr   >$FFD8     go to low speed
+         jmp   >$0000       jump to the reset code
+
+ReBootLoc
+*         ldd   #$3808       block $38, 8 times
+*         ldx   #$FFA0       where to put it
+*Lp       sta   8,x        put into map 1
+*         sta   ,x+        and into map 0
+*         inca
+*         decb             count down
+*         bne   Lp
+
+*         lda   #$4C       standard DECB mapping
+*         sta   >$FF90
+*         clr   >$FF91     go to map type 0
+         clr   >$FFDE     and to all-ROM mode
+         ldd   #$FFFF
+*         clrd               executes as CLRA on a 6809
+         fdb   $104F
+         tstb               is it a 6809?
+         bne   Reset        yup, skip ahead
+*         ldmd  #$00       go to 6809 mode!
+         fcb   $11,$3D,$00
+Reset    jmp   [$FFFE]    do a reset
+CodeSize equ   *-ReBootLoc
+