Mercurial > hg > Members > kono > nitros9-code

view 3rdparty/p2mods/noice/calldbg.asm @ 3038:c6eafb074443

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Do not return error for SDC setstat
author darrenatk
date Thu, 22 Jan 2015 00:05:11 -0700
parents a293c4ba6084
children
line wrap: on
line source

********************************************************************
* CallDBG - Calls the debugger
*
* $Id$
*
* Edt/Rev  YYYY/MM/DD  Modified by
* Comment
* ------------------------------------------------------------------
*   1      2005/04/04  Boisy G. Pitre
* Created.

         nam   CallDBG
         ttl   Calls the debugger

         ifp1
         use   defsfile
         endc

tylg     set   Prgrm+Objct   
atrv     set   ReEnt+rev
rev      set   $00
edition  set   1

         mod   eom,name,tylg,atrv,start,size

         org   0
         rmb   450
size     equ   .

name     fcs   /CallDBG/
         fcb   edition

message1 fcc   /Execution halted/
         fcb   C$CR
message2 fcc   /Execution resumed/
         fcb   C$CR
start
         lda   #$01
         ldy   #200
         leax  message1,pcr
         os9   I$WritLn

         os9   F$Debug		call debugger

         ldy   #200
         leax  message2,pcr
         os9   I$WritLn

exit     clrb
         os9   F$Exit   

         emod
eom      equ   *
         end