mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-12-13 11:29:15 +00:00
49 lines
1.5 KiB
Plaintext
49 lines
1.5 KiB
Plaintext
;__________________________________________________________________________________________________
|
|
;
|
|
; File: DebugMonEqu.a
|
|
;
|
|
; Contains: Equates for display-only debugger.
|
|
;
|
|
; Written by: Gary Davidian
|
|
;
|
|
; Copyright © 1989-1992 by Apple Computer, Inc. All rights reserved.
|
|
;
|
|
; This file is used in these builds:
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <1> 1/23/92 RMP first checked in
|
|
;__________________________________________________________________________________________________
|
|
|
|
Char_Tab equ $09 ; Tab Character (Tabs are every 4 columns)
|
|
Char_EOL equ $0D ; End Of Line Character
|
|
Char_PC equ $10 ; special 2 letter character 'PC'
|
|
Char_Dot_B equ $11 ; special 2 letter character '.B'
|
|
Char_Dot_W equ $12 ; special 2 letter character '.W'
|
|
Char_Dot_L equ $13 ; special 2 letter character '.L'
|
|
Char_Dot_S equ $14 ; special 2 letter character '.S'
|
|
Char_Plus_$ equ $15 ; special 2 letter character '+$'
|
|
Char_Minus_$ equ $16 ; special 2 letter character '-$'
|
|
|
|
_TraceOn opword $4E40 ; Trap #0, Tracing On
|
|
_TraceOff opword $4E41 ; Trap #1, Tracing Off
|
|
_DumpMemory opword $4E42 ; Trap #2, Dump Memory, A0:addr, D0:byteCount
|
|
_PutChar opword $4E43 ; Trap #3, Put Character, D0.W: character
|
|
_PutString opword $4E44 ; Trap #4, Put String, A0:PString
|
|
|
|
macro ; Trap #5, Put Message, (inline in code)
|
|
_PutMsg &Msg
|
|
trap #5
|
|
lclc &OldString
|
|
&OldString setc &Setting('STRING')
|
|
string pascal
|
|
dc.w &Msg
|
|
string &OldString
|
|
endm
|
|
|
|
macro
|
|
_PutEOL
|
|
trap #5
|
|
dc.b 1,Char_EOL
|
|
endm
|