mirror of
https://github.com/elliotnunn/boot3.git
synced 2024-06-09 02:29:27 +00:00
5b0f0cc134
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
253 lines
5.8 KiB
Plaintext
253 lines
5.8 KiB
Plaintext
;==========================================================================
|
|
;
|
|
; File: Debug.a
|
|
;
|
|
; Contains: Some useful macros for debugging
|
|
;
|
|
; Written by: Paul Wolf
|
|
;
|
|
; Copyright: © 1990-1993 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <SM17> 11/22/93 pdw Added useINITDebugger default to on.
|
|
; <SM16> 11/22/93 pdw Rolling in from <MCxx>.
|
|
; <MC6> 11/10/93 pdw Added ERR_RECORD_ON.
|
|
; <MC5> 11/8/93 pdw Better definitions for ROM build.
|
|
; <MC4> 11/7/93 pdw Turned off all recording except call recording (SCSIDispatch and
|
|
; SCSIAtomic and callbacks).
|
|
; <MC3> 10/28/93 pdw New defines.
|
|
; <SM15> 10/29/93 DCB <MC> roll-in.
|
|
; <MC3> 10/28/93 pdw New defines.
|
|
; <SM14> 10/14/93 pdw Debug.a
|
|
; <MC2> 10/12/93 pdw Added support for Synchronous data transfers, rewrote State
|
|
; Machine, message handling etc.
|
|
; <SM13> 9/9/93 pdw Lots of little changes. Name changes, temporary cache_bug
|
|
; stuff.
|
|
; <SM12> 8/13/93 pdw Added RecordRCMD macro.
|
|
; <SM11> 7/17/93 pdw Don't remember.
|
|
; <SM10> 7/8/93 pdw Adding StopRecordOnFull.
|
|
; <SM9> 6/29/93 pdw Minor stuff.
|
|
; <SM8> 5/26/93 PW Adding symbol forAMD.
|
|
; <SM7> 5/25/93 DCB Rollin from Ludwig. (The next item below)
|
|
; <LW7> 5/21/93 PW Moved definition of Include_Debugger_Names up to before its
|
|
; first use. Added DebugStr in addition to IfDebugStr.
|
|
; <SM6> 5/5/93 PW Converted names to meanies-friendly names. Updated with latest
|
|
; from Ludwig stuff.
|
|
; <LW5> 5/1/93 PW Put in RECORD_rCMD and forC96Init definitions (should only be in
|
|
; Debug.a now).
|
|
; <LW4> 4/30/93 DCB Changing default RECORD_ON to 0 for final Candidate
|
|
; <LW2> 3/26/93 PW Added RECORD_ON definition here since this seems like an
|
|
; appropriate place for it.
|
|
; <SM3> 10/8/92 PW Added GROSS_CHECK default rule. Added IF...ENDIF around
|
|
; DebugStr.
|
|
; <SM2> 10/5/92 PW Made DebugStr macro use pascal strings.
|
|
; <SM1> 7/27/92 PW Initial check-in.
|
|
;
|
|
;==========================================================================
|
|
|
|
; <SM3> pdw
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
; DefaultTo
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
MACRO
|
|
DefaultTo &SymbolToDefine, &value
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
IF (&TYPE(&SymbolToDefine) = 'UNDEFINED') THEN
|
|
&SymbolToDefine: EQU &value
|
|
ENDIF
|
|
ENDM
|
|
|
|
; DefaultTo STACK_RECORD_ON, 0
|
|
|
|
|
|
; The idea here is to put the values that you want the final ROM built with here and
|
|
; to specify (on your build line or in the .IttInit makefile) any values other than
|
|
; these defaults.
|
|
|
|
IF (&TYPE('DEBUGGING') = 'UNDEFINED') THEN
|
|
DEBUGGING: EQU 0
|
|
ENDIF
|
|
|
|
|
|
IF (&TYPE('RECORD_NONCACHABLE') = 'UNDEFINED') THEN
|
|
RECORD_NONCACHABLE: EQU 0
|
|
ENDIF
|
|
|
|
IF (&TYPE('TAPE_LENGTH') = 'UNDEFINED') THEN
|
|
TAPE_LENGTH: EQU 1024
|
|
ENDIF
|
|
|
|
IF (&TYPE('RECORD_ON') = 'UNDEFINED') THEN
|
|
RECORD_ON: EQU 0
|
|
ENDIF
|
|
|
|
IF (&TYPE('STACK_RECORD_ON') = 'UNDEFINED') THEN
|
|
STACK_RECORD_ON: EQU 0
|
|
ENDIF
|
|
|
|
IF (&TYPE('CALL_RECORD_ON') = 'UNDEFINED') THEN
|
|
CALL_RECORD_ON: EQU 1
|
|
ENDIF
|
|
|
|
IF (&TYPE('ERR_RECORD_ON') = 'UNDEFINED') THEN
|
|
ERR_RECORD_ON: EQU 1
|
|
ENDIF
|
|
|
|
IF (&TYPE('RECORD_rCMD') = 'UNDEFINED') THEN
|
|
RECORD_rCMD: EQU 0
|
|
ENDIF
|
|
|
|
IF (&TYPE('StopRecordOnFull') = 'UNDEFINED') THEN
|
|
StopRecordOnFull: EQU 0
|
|
ENDIF
|
|
|
|
|
|
IF (&TYPE('forAMD') = 'UNDEFINED') THEN
|
|
forAMD: EQU 0
|
|
ENDIF
|
|
|
|
IF (&TYPE('noSCSIInts') = 'UNDEFINED') THEN
|
|
noSCSIInts: EQU 0
|
|
ENDIF
|
|
|
|
IF (&TYPE('PARITY_ENABLED') = 'UNDEFINED') THEN
|
|
PARITY_ENABLED: EQU 0
|
|
ENDIF
|
|
|
|
IF (&TYPE('GROSS_CHECK') = 'UNDEFINED') THEN
|
|
GROSS_CHECK: EQU 0
|
|
ENDIF
|
|
|
|
IF (&TYPE('forC96Init') = 'UNDEFINED') THEN
|
|
forC96Init: EQU 0
|
|
ENDIF
|
|
|
|
IF (&TYPE('useINITDebugger') = 'UNDEFINED') THEN
|
|
useINITDebugger: EQU 1
|
|
ENDIF
|
|
|
|
IF (&TYPE('GPHYSICAL') = 'UNDEFINED') THEN
|
|
GPHYSICAL: EQU 1
|
|
ENDIF
|
|
|
|
IF (&TYPE('INDEXED_IS_FASTER') = 'UNDEFINED') THEN
|
|
INDEXED_IS_FASTER: EQU 1
|
|
ENDIF
|
|
|
|
IF (&TYPE('PAGE_SIZE') = 'UNDEFINED') THEN
|
|
PAGE_SIZE: EQU 8192
|
|
ENDIF
|
|
|
|
|
|
|
|
|
|
IF (&TYPE('Include_Debugger_Names') = 'UNDEFINED') THEN
|
|
Include_Debugger_Names: EQU 1
|
|
ENDIF ; <SM3> pdw
|
|
|
|
|
|
|
|
; ÑÑÑÑÑÑÑÑ Macros: ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
|
|
|
|
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
; DebugStr
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
MACRO
|
|
DebugStr &PString
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
STRING PASCAL ;
|
|
pea #&PString
|
|
_debugstr
|
|
STRING ASIS ;
|
|
ENDM
|
|
|
|
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
; IfDebugStr
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
MACRO
|
|
IfDebugStr &PString
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
STRING PASCAL ;
|
|
IF DEBUGGING THEN ;
|
|
pea #&PString
|
|
_debugstr
|
|
ELSE
|
|
nop
|
|
ENDIF
|
|
STRING ASIS ;
|
|
ENDM
|
|
|
|
|
|
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
; NAME
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
MACRO
|
|
NAME &PString
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
STRING PASCAL
|
|
IF Include_Debugger_Names THEN
|
|
dc.b $80, &PString
|
|
dc.w $0000
|
|
STRING ASIS
|
|
ENDIF
|
|
ENDM
|
|
|
|
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
; RTSNAME
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
MACRO
|
|
RTSNAME &PString
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
STRING PASCAL
|
|
IF Include_Debugger_Names THEN
|
|
rts
|
|
dc.b $80, &PString
|
|
dc.w $0000
|
|
STRING ASIS
|
|
ENDIF
|
|
ENDM
|
|
|
|
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
; BraNAME
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
MACRO
|
|
BraNAME &PString
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
STRING PASCAL
|
|
IF Include_Debugger_Names THEN
|
|
bra.s @bra99
|
|
rts
|
|
dc.b $80, &PString
|
|
dc.w $0000
|
|
@bra99
|
|
STRING ASIS
|
|
ENDIF
|
|
ENDM
|
|
|
|
|
|
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
; RecCmd
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
MACRO
|
|
RecCmd &CmdCode,&FileLetter,&EventNumber
|
|
; in quotes
|
|
;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
|
|
IF RECORD_ON and RECORD_rCMD THEN
|
|
pea 'rCMD' ;
|
|
move.w #(&FileLetter<<8)+&EventNumber, -(sp)
|
|
move.w #&CmdCode, -(sp)
|
|
bsr RecordEvent
|
|
addq.l #8, sp
|
|
ENDIF
|
|
|
|
ENDM
|
|
|