1978
|
1 ********************************************************************
|
|
2 * CallDBG - Calls the debugger
|
|
3 *
|
|
4 * $Id$
|
|
5 *
|
|
6 * Edt/Rev YYYY/MM/DD Modified by
|
|
7 * Comment
|
|
8 * ------------------------------------------------------------------
|
|
9 * 1 2005/04/04 Boisy G. Pitre
|
|
10 * Created.
|
|
11
|
|
12 nam CallDBG
|
|
13 ttl Calls the debugger
|
|
14
|
|
15 ifp1
|
|
16 use defsfile
|
|
17 endc
|
|
18
|
|
19 tylg set Prgrm+Objct
|
|
20 atrv set ReEnt+rev
|
|
21 rev set $00
|
|
22 edition set 1
|
|
23
|
|
24 mod eom,name,tylg,atrv,start,size
|
|
25
|
|
26 org 0
|
|
27 rmb 450
|
|
28 size equ .
|
|
29
|
|
30 name fcs /CallDBG/
|
|
31 fcb edition
|
|
32
|
1991
|
33 message1 fcc /Execution halted/
|
1997
|
34 fcb C$CR
|
1991
|
35 message2 fcc /Execution resumed/
|
|
36 fcb C$CR
|
1978
|
37 start
|
1991
|
38 lda #$01
|
|
39 ldy #200
|
|
40 leax message1,pcr
|
|
41 os9 I$WritLn
|
|
42
|
|
43 os9 F$Debug call debugger
|
|
44
|
|
45 leax message2,pcr
|
|
46 os9 I$WritLn
|
|
47
|
1978
|
48 exit clrb
|
1991
|
49 os9 F$Exit
|
1978
|
50
|
|
51 emod
|
|
52 eom equ *
|
|
53 end
|
|
54
|