Macintosh-SW/mac-rom
1
0
Fork 0
mirror of https://github.com/elliotnunn/mac-rom.git synced 2024-12-28 16:31:01 +00:00
Code Issues Projects Releases Wiki Activity
boot3-bufptrlogging
mac-rom/Interfaces/AIncludes/SysEqu.a

1624 lines
67 KiB
Plaintext
Raw Permalink Normal View History

Bring in CubeE sources 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.
2017-09-17 09:09:04 +00:00
;
; File: SysEqu.a
;
; Copyright: <09> 1986-1993 by Apple Computer, Inc., all rights reserved.
;
;
; Change History (most recent first):
;
; <SM5> 9/9/93 pdw Added SetOSPassword.
; <SM4> 4/20/93 CSS Update from Reality:
; <34> 3/30/93 JDR Added ioMisc.
; <SM3> 11/10/92 CSS Rollins from Reality:
; <33> 10/28/92 JDR Added Time Manager task record.
; <SM2> 5/17/92 kc Add selectors for the _MemoryDispatch trap.
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Add CacheFlags and bCopybackMode Equates.
; <32> 12/31/91 RB Added new exception vectors from Terror.
; <31> 10/28/91 SAM/KSM Rolled in Regatta file.
;
; Regatta Change History:
;
; <2> 8/8/91 SAM (pdw) Added SCSI2Base for second SCSI chip.
; <1> 5/22/91 SAM Split off from 7.0 GM sources.
;
; 7.0 Change History:
;
; <30> 8/16/91 MH adjust a few comments and change equ to EQU
; <29> 8/14/91 JL Updated curSysEnvVers.
; <28> 6/12/91 LN Removed private interface includes
; <27> 6/12/91 JL Removing nmType from this file. Checked in MPW 3.2<EFBFBD> version.
; Capatalized hex values for ioDestNamePtr and ioForeignPrivInfo1.
; Also added and deleted some blank lines to match shipped version
; of file.
; <26> 1/30/91 gbm sab, #38: Change the <20>already including this file<6C> variable to
; all uppercase (for security reasons)
; <25> 1/25/91 stb JDR: remove <20>unused<65> comments. They<65>re wrong. changed
; ioAltAccessInfo[1-4] to ioForeignPrivInfo[1-4].
; <24> 1/16/91 JDR (dba) Removed the comment Unused $0DE0.
; <23> 1/7/91 JDR (dba) Adding messages sent to the monitor function in the
; Control Panel.
; <22> 12/14/90 dba <JDR> add data structures for MemoryDispatch
; <21> 11/12/90 JL Changed BNMQHd from $B50 to $B60 - correct value. Cleaned things
; up a bit.
; <20> 11/12/90 DFH Added osEvt and kHighLevelEvent. Isolated obsolete event
; equates.
; <19> 10/30/90 dnf (dnf/th) Change FXInfo and DXInfo records to have fdScript and fdXFlags
; fields.
; <18> 10/25/90 JJ Rex V8: Add an equate for V8, the base address of Rex<65>s RBV-like
; registers.
; <17> 8/29/90 dnf Rename CatSearch param block fields to latest and most
; documentably harmonious names.
; <16> 8/6/90 jmp Added in the rest of the Control Panel message IDs.
; <15> 7/11/90 gbm Fix it so including this file twice is okay
; <14> 6/18/90 CCH Added equates for exception/interrupt vectors.
; <13> 6/14/90 PK added fsBBCNID, for sparing
; <12> 5/4/90 dnf Add FSSpecPtr
; <11> 4/23/90 DAF Adding equate for VISA. It's the same as VIA2 and RBV
; <10> 3/23/90 CCH Moving expandMemRec to SysPrivateEqu.a.
; <9> 3/16/90 dnf Update CatSearch param block to latest. Add AltAccess fields.
; <8> 3/13/90 BBH added CommToolboxGlobals
; <7> 2/28/90 DDG Oops, I broke the build; Ripped out the changes I made in
; version <6>. This should be the same as <5> again.
; <6> 2/28/90 DDG Conditionalized emPackGlobals so that it only shows up on system
; versions 6.1 or greater.
; <5> 2/21/90 DNF Rename ioQuant to ioSearchTime
; <4> 2/15/90 JSM Add emPackGlobals for package dispatching.
; <3> 2/4/90 dba moved some equates here from FolderMgr.a
; <2> 1/10/90 CCH Adding equates for CPUFlag values.
; <4.9> 12/15/89 CCH Updated SysEnvirons equates.
; <4.8> 12/14/89 BG Added envEclipse and env68040 EQUs.
; <4.7> 12/11/89 smb Changed emBufferPtr (4 bytes) to emUnsynchedFlag (1 byte) and
; emTExtra (3 bytes)
; <4.6> 12/8/89 dnf Rolled in equates for CatSearch and FileID param blocks
; <4.6> 12/8/89 dnf Rolled in equates for CatSearch and FileID param blocks
; <4.5> 11/13/89 CVC Added emMailGlobals and emADASGlobals to expandMem
; <4.4> 9/8/89 jhl Phase 2 AppleTalk with final mods and VM rolled in.
; <4.3> 9/1/89 CCH Added emLAPAGlobals to expandMem.
; <4.2> 8/30/89 dba added ioHQElSize for HFS parameter blocks and
; ExpandMemRec.resourceMgrDirID
; <4.1> 8/22/89 CCH Added nameRsrcID equate to point to rsrc containing official Mac
; names in System file.
; <4.0> 8/7/89 KST Added btQType.
; <3.9> 7/20/89 smb NEEDED FOR 6.0.4 (too!!!!)
; <3.8> 6/30/89 smb NEEDED FOR AURORA: Added 88 more bytes as storage for TextEdit
; vectors.
; <3.7> 6/26/89 dba added emFolderCache for Folder Manager
; <3.6> 6/10/89 GGD Deleted MMUFluff, moved BoxFlag and the various BoxFlag values
; to Private.a, since SysEnvirons is the proper way to get that
; information.
; <3.5> 6/2/89 CCH Added emjRunSlotHandlrs to expandmem.
; <3.4> 5/24/89 rwh updated 'ptr to unused space' for bbm.
; <3.3> 5/24/89 rwh added emReliability to expandMem
; <3.2> 5/20/89 GGD Moved SlotQDT, SlotPrTbl, SlotVBLQ, ScrnVBLPtr, and SlotTICKS to
; Private.a Moved AddrMapFlags, UnivROMFlags, and UnivInfoPtr to
; Private.a Moved ADBBase to Private.a
; <3.1> 5/17/89 CCH Added emDataPub variable to expandMem.
; <3.0> 5/10/89 CCH Added emPPCGlobals to expandMem.
; <2.9> 5/2/89 CCH Added emLAPGlobals, emLMgrGlobals, emHelpGlobals to expandMem.
; <2.8> 4/23/89 PKE Moved DateTimeRec definition here (from ScriptEqu.a) to match
; MPW.
; <2.7> 4/11/89 GGD Added multiple name for the VIA2/RBV/OSS low mem. Added boxFlag
; names using real product names of recently announced products.
; Added 3 new low mems for Universal ROM.
; <2.6> 4/5/89 CCH Added emSnarfGlobals to expandMem for Jeff Miller.
; <2.5> 3/31/89 CCH Took out seperate expandSize equate. Added the following entries
; to ExpandMem: emLayoutGlobals, emTSMGlobals, emSplineKey. Also
; took out emFiller.
; <2.4> 2/27/89 DAF Added ScrnInval lo-mem definition
; <2.3> 2/22/89 BBM added a pointer to the SERD (serial driver) variables. This is
; the only one they will ever get. Also added a pointer to Gestalt
; vars.
; <2.2> 2/8/89 CCH Moved "Clock16M" outside of HcMac conditionals, and moved
; PMgrBase to SysEqu.a.
; <2.1> 2/7/89 MSH Gave up no longer needed speedometer low mem for new NTSC low
; mem.
; <2.0> 2/3/89 smb Added TextEdit labels for expandMem. Used 8 bytes of emFiller
; due to miscalculation
; <1.9> 2/1/89 CCH Took duplicate EMFiller out of expandMem.
; <1.8> 2/1/89 BBM added bartalo bytes to expandmem for textedit
; <1.6> 1/30/89 CCH Added "envSE30" equate.
; <1.7> 1/30/89 cv Added BoxSpin
; <1.5> 1/25/89 rwh added BoxF19
; <1.4> 1/23/89 CSL no changes made for this revision
; <1.3> 12/15/88 GGD Added TimeVIADB and VIA2RBV low mem equates.
; <1.2> 11/21/88 CCH Took out duplication of fMulti
; <1.1> 11/17/88 CCH Added stuff fromSYstem Build.
; <1.0> 11/9/88 CCH Adding to EASE.
; <1.4> 10/13/88 LDC Updated ExpandMemRec for ScriptManager 2.0
; <1.3> 10/5/88 CSL Added new box flag for Stingray II and FourSquare.
; <1.2> 9/19/88 MSH Moved sleep q type from private.a
; <<3C>1.1> 9/14/88 CCH Updated EASE with the current rev of this file.
; 7/2/87 KLH memErrDev & rsrcErrDev changed to cdevMemErr & cdevResErr and
; added
; 6/29/87 KLH sdsResID & sdExtDev changed to sdSResource & sdExtDevID.
; 6/12/87 KLH Reversed sdReserved & sdOSType. Added ioFCBQElSize (extended for
; HFS).
; 6/11/87 KLH Added cdev message types & cdev error codes.
; 5/26/87 KLH added StartDevPBRec, DefaultVidRec & DefaultOSRec.
; 5/24/87 KLH corrected fHasBundle & fInvisible back to IM vol IV values.
; 5/15/87 KLH moved ExpandMemRec from ScriptEqu.a per Joe Ternasky.
; 5/14/87 KLH added charCodeMask, keyCodeMask, adbAddrMask & controlKey.
; 5/11/87 KLH add SysEnvirons data type & return values.
; 4/2/87 KLH re-removed RSDHndl (originally removed to be private)
; 3/16/87 KLH added psAlert
; 2/23/87 KLH moved HiliteMode from ToolEqt.a
; <C780> 2/10/87 SHF Added new low mem EQU (TimeSCSIDB) for SCSI Manager timing.
; 2/10/87 KLH added RSDHndl (bug report 5364).
; 2/9/87 KLH SCCRd and SCCWr moved back here from nHardwareEqu.a
; <C698> 1/26/87 GWN Added new low mem EQU for the SDM BusErr handler.
; <C691> 1/25/87 RDC New low mem jump vector for MMU mode swapping
; <C679> 1/23/87 GWN Added new low mem EQU for the SDM Jump table.
; <C670> 1/22/87 GWN Added new low mem EQU to the end of the SRT.
; <C662> 1/21/87 bbm Added new low mem equ for pCDeskPat
; <C653> 1/19/87 GWN Added new low mem EQU to signal to CritErr if the video card is
; ok.
; <C652> 1/19/87 bbm added new lowmem equates for the expanded low memory.
; <C631> 1/14/87 GWN Moved some equates from DeviceMgr.a.
; <C600> 1/7/87 GWN Changed _Open parameter block.
; <C596> 1/6/87 GWN Added low mem equ for centering of start icons.
; <C580> 12/31/86 GWN Added low mem equ for center adjustment of DS box text.
; <C533> 12/15/86 DAF Renamed DeskPatEnable to DeskPatDisable (!)
; <C532> 12/15/86 FJL Added BNMQHd for background notification manager
; <C524> 12/12/86 GWN Deleted dStartOpen (C453) and added UnitEntries and
; MaxUTEntries.
; <C523> 12/12/86 GWN Added dctlExtDev to support booting from slots.
; <C517> 12/12/86 EMT Shuffle keyboard globals for Excel. Affects OSEventMgr.a, kbd.a,
; nSysEqu.a
; <C496> 12/9/86 DAF Removed LastBinPat. Moved DeskPatEnable (and made boolean)
; <C409> 12/7/86 RDC More additions for deferred task support
; <C495> 12/7/86 GWN Added StartBoot state constants.
; <C335> 12/3/86 JSP Deleted MMU specific type and equates and changed the low
; <C458> 11/23/86 DAF removed obsolete equates DeskFColor,DeskBColor,et.al. Added
; <C457> 11/23/86 EHB Added new equates for multiple device support
; <C453> 11/21/86 GWN Added low mem global for StartInit.a and DeviceMgr.a. (May be
; temporary)
; <C413> 11/17/86 bbm added (gross) 12 bytes of precious lo mem for the color
; <C409> 11/17/86 RDC added low mem globals for deferred interrupt task support
; <C398> 11/10/86 CRC added FontMgr global LastDepth
; <C346> 11/4/86 bbm changed equates as there were some conflicts in nToolEqu.a
; <C348> 11/4/86 DAF Added QDErr
; <C313> 10/31/86 EHB Added JOpcodeProc for unrecognized NPIC opcodes.
; <A308> 10/30/86 CSL WRL fixed startmgr so that no extensive memory check is made
; <A299> 10/29/86 bbm Added lomem flag for scsi poll (init to $FFFF, by default)
; <A283> 10/28/86 bbm changed the location of all the new lowmem.
; <A275> 10/27/86 RDC Added new low memory globals for SCSI, moved VIA2DT global
; <A265> 10/24/86 GWN Added Low mem global for Vertical refresh rate (VertRRate).
; <C203> 10/14/86 DAF Added wmgrCPort
; <C209> 10/13/86 RDC Added more low mem equates for NuMac slot VBL handling
; <C166> 10/11/86 RDC Added new low mem equates for NuMac slot int handling
; <C147> 10/11/86 RDC Added new low mem equates for NuMac VBL handling
; <C206> 10/9/86 bbm Modified to mpw aincludes.
; <C184> 9/24/86 BBM required 2 equates from SysEqu.a: KbdVars & KeyLast,
; 9/23/86 NSJ new this date
; <C152> 9/22/86 WRL Added AlrmFlEnable bit.
; <C134> 9/2/86 GWN device control param block wrong size in SysEqu.a
;
; To Do:
;
; Version: 1.xx hacked for rom builds by bbm
; Created: Friday, June 10, 1988 at 8:09:16 AM
;
; File: SysEqu.a
;
; Assembler Interface to the Macintosh Libraries
; Copyright Apple Computer, Inc. 1986-1989
; All Rights Reserved
;
;___________________________________________________________________________
;
; System Equates -- This file defines the low-level equates for the
; Macintosh software. This is divided into two pieces for
; assembly space and speed considerations. The wholeSystem flag is used
; to include the less common equates which realizes a complete set. The
; comments marked with ";+" denote categories or managers. Record
; stuctures may have additional private equates which are defined by and
; reserved for use by Apple Computer, Inc.
;
;___________________________________________________________________________
IF &TYPE('__INCLUDINGSYSEQU__') = 'UNDEFINED' THEN
__INCLUDINGSYSEQU__ SET 1
IF (&TYPE('wholeSystem') = 'UNDEFINED') THEN
wholeSystem EQU 1
ENDIF
; ioFlags:
noCacheBit EQU 5 ; disable cacheing for this operation <S333/15Dec87>
noCache EQU $20 ; constant for noCacheBit <S333/15Dec87>
PCDeskPat EQU $20B ; desktop pat, top bit only! others are in use
HiKeyLast EQU $216 ; Same as KbdVars
KbdLast EQU $218 ; Same as KbdVars+2
ExpandMem EQU $2B6 ; pointer to expanded memory block
; Test Manager EQUs
videoMagic EQU $5A932BC7 ; When VideoInfoOk contains this value, the video card is ok (CritErr).
; Unit table size constants (Used in startInit.a)
unitEntries EQU 64 ; default # of entries in unit table
maxUTEntries EQU unitEntries+64 ; Set Max higher so the table can grow.
bgnSlotUnit EQU 48 ; default start unit number for slots.
bgnSlotRef EQU -(bgnSlotUnit+1) ; default start RefNum for slots.
; Start Boot state constants.
sbState0 EQU 0 ; StartBoot code is at state-0.
sbState1 EQU 1 ; StartBoot code is at state-1.
; system alarm
alrmFlEnable EQU 0 ; 1 => alarm clock mechanism is triggered
; Apple Desktop Bus
JADBProc EQU 1720 ; (long) procedure called on ADBReInit
; start at $C00
SCSIBase EQU $0C00 ; (long) base address for SCSI chip read
SCSI2Base EQU $1FF0 ; (long) base address for 2nd SCSI chip <?>
SCSIDMA EQU $0C04 ; (long) base address for SCSI DMA
SCSIHsk EQU $0C08 ; (long) base address for SCSI handshake
SCSIGlobals EQU $0C0C ; (long) ptr for SCSI mgr locals
RGBBlack EQU $0C10 ; (6 bytes) the black field for color
RGBWhite EQU $0C16 ; (6 bytes) the white field for color
RowBits EQU $0C20 ; (word) screen horizontal pixels
ColLines EQU $0C22 ; (word) screen vertical pixels
ScreenBytes EQU $0C24 ; (long) total screen bytes
NMIFlag EQU $0C2C ; (byte) flag for NMI debounce
VidType EQU $0C2D ; (byte) video board type ID
ScrnInval EQU $0C2D ; (byte) replaces obscure VidType. When $FFFF, scrn resource is
; valid. When cleared, scrn resource is invalid.
VidMode EQU $0C2E ; (byte) video mode (4=4bit color)
SCSIPoll EQU $0C2F ; (byte) poll for device zero only once.
SEVarBase EQU $0C30 ; ($0C30-0CB0) 128 bytes for sys err data
; note!!! - if changed, need to change also in hwequ file
MMUFlags EQU $0CB0 ; (byte) cleared to zero (reserved for future use)
MMUType EQU $0CB1 ; (byte) kind of MMU present
MMU32bit EQU $0CB2 ; (byte) boolean reflecting current machine MMU mode
MMUTbl EQU $0CB4 ; (long) pointer to MMU Mapping table
MMUTblSize EQU $0CB8 ; (long) size of the 24 bit mode MMU mapping table
MMU24Info EQU $0CB4 ; (long) ptr to 24 bit mode MMU configuration info
MMU32Info EQU $0CB8 ; (long) ptr to 32 bit mode MMU configuration info
SInfoPtr EQU $0CBC ; (long) pointer to Slot manager information
ASCBase EQU $0CC0 ; (long) pointer to Sound Chip
SMGlobals EQU $0CC4 ; (long) pointer to Sound Manager Globals
TheGDevice EQU $0CC8 ; (long) the current graphics device
CQDGlobals EQU $0CCC ; (long) quickDraw global extensions
DeskCPat EQU $0CD8 ; [PixPatHandle] Handle to desk pixPat
SetOSPassword EQU $0CDC ; (long) used as password by SetOSDefault (StartMgr)
TimeVIADB EQU $0CEA ; (word) number of iter's of VIA access & DBRA. <1.3>
VIA2 EQU $0CEC ; VIA2 base address [pointer] <2.7>
RBV EQU VIA2 ; RBV base address [pointer] share with VIA2 <2.7>
VIA2RBV EQU VIA2 ; VIA2 or RBV base address [pointer] <1.3><2.7>
OSS EQU VIA2 ; OSS base address [pointer] share with VIA2 <2.7>
VIA2RBVOSS EQU VIA2 ; VIA2 or RBV or OSS base address [pointer] <2.7>
VISA EQU VIA2 ; VISA base address [pointer] <11>
V8 EQU VIA2 ; V8 base address [pointer]
WarmStart EQU $0CFC ; (long) flag to indicate it is a warm start
wmStConst EQU $574C5343 ; warm start constant
sleepConst EQU 'SARA' ; waking from sleep constant
TimeDBRA EQU $0D00 ; (word) number of iterations of DBRA per millisecond
TimeSCCDB EQU $0D02 ; (word) number of iter's of SCC access & DBRA.
PmgrBase EQU $0D18 ; Lomem pointer to power manager vars
TableSeed EQU $0D20 ; (long) seed value for color table ID's
SRsrcTblPtr EQU $0D24 ; (long) pointer to slot resource table.
JVBLTask EQU $0D28 ; vector to slot VBL task interrupt handler
WMgrCPort EQU $0D2C ; window manager color port
VertRRate EQU $0D30 ; (word) Vertical refresh rate for start manager.
ChunkyDepth EQU $0D60 ; depth of the pixels
CrsrPtr EQU $0D62 ; pointer to cursor save area
PortList EQU $0D66 ; list of grafports
MickeyBytes EQU $0D6A ; long pointer to cursor stuff
QDErr EQU $0D6E ; QuickDraw error code [word]
VIA2DT EQU $0D70 ; 32 bytes for VIA2 dispatch table for NuMac
SInitFlags EQU $0D90 ; StartInit.a flags [word]
DTQueue EQU $0D92 ; (10 bytes) deferred task queue header
DTQFlags EQU $0D92 ; flag word for DTQueue
DTskQHdr EQU $0D94 ; ptr to head of queue
DTskQTail EQU $0D98 ; ptr to tail of queue
JDTInstall EQU $0D9C ; (long) ptr to deferred task install routine
HiliteRGB EQU $0DA0 ; 6 bytes: rgb of hilite color
DSCtrAdj EQU $0DA8 ; (long) Center adjust for DS rect.
IconTLAddr EQU $0DAC ; (long) pointer to where start icons are to be put.
VideoInfoOK EQU $0DB0 ; (long) Signals to CritErr that the Video card is ok
EndSRTPtr EQU $0DB4 ; (long) Pointer to the end of the Slot Resource Table (Not the SRT buffer).
SDMJmpTblPtr EQU $0DB8 ; (long) Pointer to the SDM jump table
JSwapMMU EQU $0DBC ; (long) jump vector to SwapMMU routine
SdmBusErr EQU $0DC0 ; (long) Pointer to the SDM busErr handler
LastTxGDevice EQU $0DC4 ; (long) copy of TheGDevice set up for fast text measure
NewCrsrJTbl EQU $88C ; location of new crsr jump vectors
NewCrsrJCnt EQU 1 ; 2 new vectors
JAllocCrsr EQU $88C ; (long) vector to routine that allocates cursor
JSetCCrsr EQU $890 ; (long) vector to routine that sets color cursor
JOpcodeProc EQU $894 ; (long) vector to process new picture opcodes
CRSRBASE EQU $898 ; (long) scrnBase for cursor
CrsrDevice EQU $89C ; (long) current cursor device
SrcDevice EQU $8A0 ; (LONG) Src device for Stretchbits
MainDevice EQU $8A4 ; (long) the main screen device
DeviceList EQU $8A8 ; (long) list of display devices
CRSRROW EQU $8AC ; (word) rowbytes for current cursor screen
QDColors EQU $8B0 ; (long) handle to default colors
; QuickDraw
HiliteMode EQU $938 ; used for color highlighting
; Exception vectors
ResetSP EQU $00 ; reset initial interrupt SP <32> rb
ResetPC EQU $04 ; reset initial Program counter <32> rb
BusErrVct EQU $08 ; bus error vector
AddrVector EQU $C ; address error
IlglVector EQU $10 ; illegal instruction
ZeroVector EQU $14 ; divide by 0
CheckVector EQU $18 ; check bounds error
TrapVVector EQU $1C ; trapv location
PrivlgVector EQU $20 ; privilege violation
TraceVector EQU $24 ; trace exception vector
Line1010 EQU $28 ; 1010 emulator trap (system routines)
Line1111 EQU $2C ; 1111 emulator trap (reserved)
DebugVector EQU Line1111 ; debug instructions
FmtErrVect EQU $38 ; format error vector for 68010/68020
BadIntVector EQU $60 ; spurious interrupt
AutoInt1 EQU $64 ; level 1 auto-vector
AutoInt2 EQU $68 ; level 2 auto-vector
AutoInt3 EQU $6C ; level 3 auto-vector
AutoInt4 EQU $70 ; level 4 auto-vector
AutoInt5 EQU $74 ; level 5 auto-vector
AutoInt6 EQU $78 ; level 6 auto-vector
AutoInt7 EQU $7C ; level 7 auto-vector
BkptVector EQU $B8 ; break loc
BSUNVector EQU $C0 ; BSUN for FP Emulation Code <32> rb
UNFLVector EQU $CC ; Underflow for FP Emulation Code <32> rb
OPERRVector EQU $D0 ; Operand Error for FP Emulation Code <32> rb
OVFLVector EQU $D4 ; Overflow for FP Emulation Code <32> rb
SNANVector EQU $D8 ; Signal NAN for FP Emulation Code <32> rb
UNIMPDTVector EQU $DC ; 040 Unimplemented Data Type for FP Emulation Code <32> rb
;-------------
; MMU Equates
;-------------
; MMU Mode bits
;
; type MMU_Mode = (true32b,false32b)
false32b EQU 0 ; modified
true32b EQU 1
;+ System Error Handler
RestProc EQU $A8C ; Resume procedure f InitDialogs [pointer]
; equates for queue elements
sIQType EQU 6 ; slot interrupt queue element ID
;Default Startup
;DefaultRec offsets for set/get default startup
drDriveNum EQU 0 ; [INTEGER]
drRefNum EQU 2 ; [INTEGER]
; Deferred Task Queue Element
dtQType EQU 7 ; deferred task queue element ID
inDTQ EQU 6 ; bit index for "in deferred task" flag
dtLink EQU 0 ; Link to next element [pointer]
dtType EQU 4 ; Unique ID for validity [word]
dtFlags EQU 6 ; optional flags [word]
dtAddr EQU 8 ; service routine [pointer]
dtParm EQU $C ; optional A1 parameter [long]
dtResrvd EQU $10 ; reserved [long]
dtQElSize EQU 20 ; length of DT queue element in bytes
; Time Manager Task Queue Element
TMTask record 0
qLink ds.l 1
qType ds.w 1
tmAddr ds.l 1 ; TimerProcPtr
tmCount ds.l 1
tmWakeUp ds.l 1
tmReserved ds.l 1
TMTaskSize equ *
endR
; Topanga video mode for Esprit
NTSC EQU $B3E ; A byte <v2.1>
;+ ROM Equates
ROM85 EQU $28E ; (word) actually high bit - 0 for ROM vers $75 (sic) and later
ROMMapHndl EQU $B06 ; (long) handle of ROM resource map
;+ Screen Equates
ScrVRes EQU $102 ; screen vertical dots/inch [word]
ScrHRes EQU $104 ; screen horizontal dots/inch [word]
ScrnBase EQU $824 ; Screen Base [pointer]
ScreenRow EQU $106 ; rowBytes of screen [word]
; Mouse/Keyboard
MBTicks EQU $16E ; tick count @ last mouse button [long]
JKybdTask EQU $21A ; keyboard VBL task hook [pointer]
KeyLast EQU $184 ; ASCII for last valid keycode [word]
KeyTime EQU $186 ; tickcount when KEYLAST was rec'd [long]
KeyRepTime EQU $18A ; tickcount when key was last repeated [long]
;+ Parameter RAM (a twenty byte copy of the real parameter ram).
SPConfig EQU $1FB ; config bits: 4-7 A, 0-3 B (see use type below)
SPPortA EQU $1FC ; SCC port A configuration [word]
SPPortB EQU $1FE ; SCC port B configuration [word]
; SCC Serial Chip Addresses
SCCRd EQU $1D8 ; SCC base read address [pointer]
SCCWr EQU $1DC ; SCC base write address [pointer]
; Serial port use type
useFree EQU 0 ; Use undefined
useATalk EQU 1 ; AppleTalk
useAsync EQU 2 ; Async
useExtClk EQU 3 ; externally clocked
; Unpacked, user versions of parameter ram
DoubleTime EQU $2F0 ; double click ticks [long]
CaretTime EQU $2F4 ; caret blink ticks [long]
KeyThresh EQU $18E ; threshold for key repeat [word]
KeyRepThresh EQU $190 ; key repeat speed [word]
SdVolume EQU $260 ; Global volume(sound) control [byte]
;+ System Clocks
Ticks EQU $16A ; Tick count, time since boot [long]
Time EQU $20C ; clock time (extrapolated) [long]
;+ Cursor
iBeamCursor EQU 1 ; text selection cursor
crossCursor EQU 2 ; for structured selection
plusCursor EQU 3 ; for drawing graphics
watchCursor EQU 4 ; for indicating a long delay
; result codes for Relstring call
sortsBefore EQU -1 ; str1 < str2
sortsEqual EQU 0 ; str1 = str2
sortsAfter EQU 1 ; str1 > str2
;+ Queue Package
qInUse EQU 7 ; queue-in-use flag bit
; Header Record
qHeadSize EQU $A ; queue header size
qFlags EQU 0 ; miscellaneous flags [word]
qHead EQU 2 ; first element in queue [pointer]
qTail EQU 6 ; last element in queue [pointer]
; General Purpose Queue Element Definition
qLink EQU 0 ; link to next queue element [pointer]
qType EQU 4 ; queue element type [word]
;+ Event Manager
evType EQU 4 ; event queue element is type 4
; Event Type Numbers (in EvtNum)
everyEvent EQU -1
nullEvt EQU 0 ; event 0 is the null event
mButDwnEvt EQU 1 ; mouse button down is event 1
mButUpEvt EQU 2 ; mouse button up is event 2
keyDwnEvt EQU 3 ; key down is event 3
keyUpEvt EQU 4 ; key up is event 4
autoKeyEvt EQU 5 ; auto-repeated key is event 5
updatEvt EQU 6 ; update event
diskInsertEvt EQU 7 ; disk-inserted event
activateEvt EQU 8 ; activate/deactive event
osEvt EQU $F ; suspend/resume/mousemoved
kHighLevelEvent EQU $17 ; high-level event
; Event Mask Equates
; (same constant names are masks rather than bit numbers in higher level languages.
; Only special one is highLevelEvtBit, since it has only indirect correspondence to
; kHighLevelEvent.
highLevelEvtBit EQU $A ; for kHighLevelEvent
; Event Message Equates
charCodeMask EQU $000000FF
keyCodeMask EQU $0000FF00
adbAddrMask EQU $00FF0000
osEvtMessageMask EQU $FF000000
; osEvt Messages. Event (sub)code is in the high byte of the message field.
mouseMovedMessage EQU $FA ;
suspendResumeMessage EQU $01 ;
resumeFlag EQU 0 ; Bit 0 of message field indicates resume vs suspend }
convertClipboardFlag EQU 1 ; Bit 1 in resume message indicates clipboard change }
; Modifier bits in event record
; (same constant names are masks rather than bit numbers in higher level languages.)
activeFlag EQU $0 ; activate? (activateEvt and mouseDown)
btnState EQU $7 ; state of button?
cmdKey EQU $8 ; command key down?
shiftKey EQU $9 ; shift key down?
alphaLock EQU $A ; alpha lock down?
optionKey EQU $B ; option key down?
controlKey EQU $C ; control key down?
; Event Record Definition
evtNum EQU 0 ; event code [word]
evtMessage EQU 2 ; event message [long]
evtTicks EQU 6 ; ticks since startup [long]
evtMouse EQU $A ; mouse location [long]
evtMeta EQU $E ; state of modifier keys [byte]
evtMBut EQU $F ; state of mouse button [byte]
evtBlkSize EQU $10 ; size in bytes of the event record
MonkeyLives EQU $100 ; monkey lives if >= 0 [word]
SEvtEnb EQU $15C ; enable SysEvent calls from GNE [byte]
JournalFlag EQU $8DE ; journaling state [word]
JournalRef EQU $8E8 ; Journalling driver's refnum [word]
; Obsolete Event Manager Equates
netWorkEvt EQU $A ; network event
ioDrvrEvt EQU $B ; driver-defined event
app1Evt EQU $C ; application defined events
app2Evt EQU $D
app3Evt EQU $E
app4Evt EQU $F
;+ Memory Manager
; Master pointer bits for handles - USE _HLock, _HPurge, etc. for portability
lock EQU 7 ; lock bit in a master pointer
purge EQU 6 ; bit for purgeable/unpurgeable
resource EQU 5 ; bit to flag a resource handle
BufPtr EQU $10C ; top of application memory [pointer]
StkLowPt EQU $110 ; Lowest stack as measured in VBL task [pointer]
TheZone EQU $118 ; current heap zone [pointer]
ApplLimit EQU $130 ; application limit [pointer]
SysZone EQU $2A6 ; system heap zone [pointer]
ApplZone EQU $2AA ; application heap zone [pointer]
HeapEnd EQU $114 ; end of heap [pointer]
HiHeapMark EQU $BAE ; (long) highest address used by a zone below sp
MemErr EQU $220 ; last memory manager error [word]
maxSize EQU $800000 ; outrageously large memory mgr request
dfltStackSize EQU $00002000 ; 8K size for stack
mnStackSize EQU $00000400 ; 1K minimum size for stack
; _InitZone argument table.
startPtr EQU 0 ; Start address for zone [pointer]
limitPtr EQU 4 ; Limit address for zone [pointer]
cMoreMasters EQU 8 ; Number of masters to allocate at time [word]
pGrowZone EQU 10 ; growZone procedure [pointer]
; Control/Status Call Codes
killCode EQU 1 ; KillIO code
drvStsCode EQU 8 ; status call code for drive status
ejectCode EQU 7 ; control call eject code
tgBuffCode EQU 8 ; set tag buffer code
; Driver flags, (Bit definitions for DCtlFlags byte)
dReadEnable EQU 0 ; enabled for read operations
dWritEnable EQU 1 ; enabled for writing
dCtlEnable EQU 2 ; enabled for control operations
dStatEnable EQU 3 ; enabled for status operations
dNeedGoodBye EQU 4 ; needs a "goodbye kiss"
dNeedTime EQU 5 ; needs "main thread" time
dNeedLock EQU 6 ; needs to be accessed at interrupt level
; Run-Time flags, (Bit definitions for DCtlFlags+1 byte)
dOpened EQU 5 ; bit to mark driver 'Open'
dRAMBased EQU 6 ; 1=RAM-based Driver, 0=ROM-based
drvrActive EQU 7 ; bit to mark the driver active
; Drive queue element offsets
dQDrive EQU $6 ; drive number [word]
dQRefNum EQU $8 ; driver refnum [word]
dQFSID EQU $A ; file system handling this drive [word]
dQDrvSz EQU $C ; number of blocks this drive [word]
dQDrvSz2 EQU $E ; if qType = 1, high word of drive size
; Queue Element Type Definitions
ioQType EQU 2 ; I/O queue element is type 2
drvQType EQU 3 ; timer queue element is type 3
fsQType EQU 5 ; File System VCB element
slpQType EQU $10 ; Sleep queue element is type 16 <v1.2>
btQType EQU 21 ; B*Tree Manager
; Device Control Entry Definition
;dCtlEntrySize used to be only 40 bytes!
dCtlEntrySize EQU $34 ; length of a DCE [52 bytes]
dCtlDriver EQU 0 ; driver [handle]
dCtlFlags EQU 4 ; flags [word]
dCtlQueue EQU 6 ; queue header
dCtlQHead EQU 8 ; queue first-element [pointer]
dCtlQTail EQU $C ; queue last-element [pointer]
dCtlPosition EQU $10 ; position [long]
dCtlStorage EQU $14 ; driver's private storage [handle]
dCtlRefNum EQU $18 ; refNum of this driver [word]
dCtlCurTicks EQU $1A ; counter for timing systemTask calls [long]
dCtlWindow EQU $1E ; driver's window (if any) [pointer]
dCtlDelay EQU $22 ; number of ticks between sysTask calls [word]
dCtlEMask EQU $24 ; desk accessory event mask [word]
dCtlMenu EQU $26 ; menu ID associated with driver [word]
dCtlSlot EQU $28 ; device slot Number [byte]
dCtlSlotId EQU $29 ; device Id within slot [byte]
dCtlDevBase EQU $2A ; driver scratch ptr/offset from base to device [long]
dCtlOwner EQU $2E ; ptr to task control block(ownership) [Ptr]
dCtlExtDev EQU $32 ; Id of external device [byte]
; Driver Globals
UTableBase EQU $11C ; unit I/O table [pointer]
UnitNtryCnt EQU $1D2 ; count of entries in unit table [word]
JFetch EQU $8F4 ; fetch a byte routine for drivers [pointer]
JStash EQU $8F8 ; stash a byte routine for drivers [pointer]
JIODone EQU $8FC ; IODone entry location [pointer]
;Chooser
chooserID EQU 1 ; caller value for the chooser
;+ I/O System
; File positioning modes for ioPosMode field of I/O record
fsAtMark EQU 0 ; at current position of mark
fsFromStart EQU 1 ; offset relative to beginning of file
fsFromLEOF EQU 2 ; offset relative to logical end-of-file
fsFromMark EQU 3 ; offset relative to current mark
rdVerify EQU $40 ; read verify mode
; Permission values for ioPermssn field of I/O record
fsCurPerm EQU 0 ; whatever is currently allowed
fsRdPerm EQU 1 ; request to read only
fsWrPerm EQU 2 ; request to write only
fsRdWrPerm EQU 3 ; request to read and write
fsRdWrShPerm EQU 4 ; request for shared read and write
; I/O record (general fields with trap-specific ones listed below)
ioQElSize EQU $32 ; length of I/O parameter block [50 bytes]
ioLink EQU $0 ; queue link in header [pointer]
ioType EQU $4 ; type for safety check [byte]
ioTrap EQU $6 ; the trap [word]
ioCmdAddr EQU $8 ; address to dispatch to [pointer]
ioCompletion EQU $C ; completion routine [pointer]
ioResult EQU $10 ; I/O result code [word]
ioFileName EQU $12 ; file name pointer [pointer]
ioVRefNum EQU $16 ; volume refnum [word]
ioDrvNum EQU $16 ; drive number [word]
ioRefNum EQU $18 ; file reference number [word]
ioFileType EQU $1A ; specified along with FileName [byte]
ioMisc EQU $1C ; see trap-specific uses below [pointer]
; specific fields for _Read, _Write
ioBuffer EQU $20 ; data buffer [pointer]
ioByteCount EQU $24 ; requested byte count [long]
ioNumDone EQU $28 ; actual byte count completed [long]
ioPosMode EQU $2C ; initial file positioning mode/eol char [word]
ioPosOffset EQU $2E ; file position offset [long]
; specific fields for _Allocate
ioReqCount EQU $24 ; requested new size [long]
ioActCount EQU $28 ; actual byte count allocated [long]
; specific fields for _Open
ioPermssn EQU $1B ; permissions [byte]
ioOwnBuf EQU $1C ; "private" 522-byte buffer [pointer]
; specific fields for _Rename
ioNewName EQU $1C ; new name pointer [pointer]
; specific fields for _GetFileInfo, _SetFileInfo
ioFQElSize EQU $50 ; File command parameter length [80 bytes]
ioFDirIndex EQU $1C ; directory index of file [word]
ioFlAttrib EQU $1E ; in-use bit=7, lock bit=0 [byte]
ioFFlType EQU $1F ; file type [byte]
ioFlUsrWds EQU $20 ; finder info [16 bytes]
ioFFlNum EQU $30 ; file number [long]
ioFlStBlk EQU $34 ; start file block (0000 if none) [word]
ioFlLgLen EQU $36 ; logical length (EOF) [long]
ioFlPyLen EQU $3A ; physical length in bytes [long]
ioFlRStBlk EQU $3E ; resource fork's start file block [word]
ioFlRLgLen EQU $40 ; resource fork's logical length (EOF) [long]
ioFlRPyLen EQU $44 ; resource fork's physical length [long]
ioFlCrDat EQU $48 ; creation date & time [long]
ioFlMdDat EQU $4C ; last modification date & time [long]
; Specific fields for _GetEOF, _SetEOF
ioLEOF EQU $1C ; logical end-of-file [long]
; Specific fields for _SetFileType
ioNewType EQU $1C ; new type byte [byte]
; Specific fields for _GetVolInfo, _GetVolume, _SetVolume, _MountVol, _UnmountVol,
; _Eject. Note that these traps have a bigger record size.
ioVQElSize EQU $40 ; Volume command parameter length [64 bytes]
ioVDrvNum EQU $16 ; drive or volume number [word]
ioVNPtr EQU $12 ; name buffer (or zero) [pointer]
ioVolIndex EQU $1C ; volume index number [word]
ioVCrDate EQU $1E ; creation date & time [long]
ioVLsBkUp EQU $22 ; last backup date & time [long]
ioVAtrb EQU $26 ; Volume attributes [word]
ioVNmFls EQU $28 ; # files in directory [word]
ioVDirSt EQU $2A ; start block of file dir [word]
ioVBlLn EQU $2C ; length of dir in blocks [word]
ioVNmAlBlks EQU $2E ; num blks (of alloc size) this dev [word]
ioVAlBlkSiz EQU $30 ; alloc blk byte size [long]
ioVClpSiz EQU $34 ; bytes to try to allocate at a time [long]
ioAlBlSt EQU $38 ; starting block in block map [word]
ioVNxtFNum EQU $3A ; next free file number [long]
ioVFrBlk EQU $3E ; # free alloc blks for this vol [word]
; Catalog structure equates:
fsRtParID EQU 1 ; DirID of parent's root
fsRtDirID EQU 2 ; Root DirID
fsXTCNID EQU 3 ; Extent B*-Tree file ID
fsCTCNID EQU 4 ; Catalog B*-Tree file ID
fsBBCNID EQU 5 ; Bad Block "file" ID
fsUsrCNID EQU $10 ; First assignable user CNode ID
; Additional equates for all calls:
ioDirID EQU $30 ; directory ID
ioHQElSize EQU $34 ; size of a standard HFS call queue element
; Additional equates for catalog information return:
ioFlBkDat EQU $50 ; File's last backup date
ioFlxFndrInfo EQU $54 ; File's additional finder info bytes
ioFlParID EQU $64 ; File's parent directory ID
ioFlClpSiz EQU $68 ; File's clump size, in bytes
; Additional equates for directory information return:
ioDirFlg EQU 4 ; Bit in ioFlAttrb set to indicate directory
ioDrUsrWds EQU $20 ; Directory's user info bytes
ioDrDirID EQU $30 ; Directory ID
ioDrNmFls EQU $34 ; Number of files in a directory
ioDrCrDat EQU $48 ; Directory creation date
ioDrMdDat EQU $4C ; Directory modification date
ioDrBkDat EQU $50 ; Directory backup date
ioDrFndrInfo EQU $54 ; Directory finder info bytes
ioDrParID EQU $64 ; Directory's parent directory ID
ioHFQElSiz EQU $6C ; Size of a Hierarchical File Queue Element
; Additional equates for _TFGetVolInfo:
ioVLsMod EQU $22 ; Last modification date
ioVSigWord EQU $40 ; Volume signature
ioVCBVBMst EQU $2A
ioVNxtCNID EQU $3A
ioVDrvInfo EQU $42 ; Drive number (0 if volume is offline)
ioVDRefNum EQU $44 ; Driver refNum
ioVFSID EQU $46 ; ID of file system handling this volume
ioVBkup EQU $48 ; Last backup date (0 if never backed up)
ioVSeqNum EQU $4C ; Sequence number of this volume in volume set
ioVWrCnt EQU $4E ; Volume write count
ioVFilCnt EQU $52 ; Total number of files on volume
ioVDirCnt EQU $56 ; Total number of directories on the volume
ioVFndrInfo EQU $5A ; Finder information for volume
ioHVQElSize EQU $7A ; Length of Hierarchical Volume information PB
; fields for _GetFCBInfo:
ioFCBIndx EQU $1C ; FCB index for _GetFCBInfo
ioFCBFiller1 EQU $1E ; filler
ioFCBFlNm EQU $20 ; File number
ioFCBFlags EQU $24 ; FCB flags
ioFCBStBlk EQU $26 ; File start block
ioFCBEOF EQU $28 ; Logical end-of-file
ioFCBPLen EQU $2C ; Physical end-of-file
ioFCBCrPs EQU $30 ; Current file position
ioFCBVRefNum EQU $34 ; Volume refNum
ioFCBClpSiz EQU $36 ; File clump size
ioFCBParID EQU $3A ; Parent directory ID
ioFCBQElSize EQU $3E ; extended size of FCBPBRec
; fields for _GetWDInfo:
ioWDIndex EQU $1A ; Working Directory index for _GetWDInfo
ioWDProcID EQU $1C ; WD's ProcID (long)
ioWDVRefNum EQU $20 ; WD's Volume RefNum (word)
ioWDDirID EQU $30 ; WD's DirID (long)
; fields for _FSControl call:
ioFSVrsn EQU $20 ; File system version
; field for CatMove
ioNewDirID EQU $24 ; destination directory for CatMove
; fields for GetLogInInfo
ioObjNamePtr EQU $1C ; pointer to buffer for name of log-in
; fields for GetDirAccess and SetDirAccess
ioACOwnerID EQU $24 ; owner field of parameter block
ioACGroupID EQU $28 ; group field of parameter block
ioACAccess EQU $2C ; access privileges
; values of user IDs and group IDs
noUser EQU 0 ; no user
administratorUser EQU 1 ; administrator<6F>s user number
noGroup EQU 0 ; no group
; values of access privileges
fullPrivileges EQU $00070007 ; all privileges for everybody and owner
ownerPrivileges EQU $00000007 ; all privileges for owner only
; Specific fields for CatSearch
ioMatchPtr EQU $18 ; match buffer pointer
ioReqMatchCount EQU $1C ; maximum match count
ioActMatchCount EQU $20 ; actual match count
ioSearchBits EQU $24 ; search criteria selector
ioSearchInfo1 EQU $28 ; search values and range lower bounds
ioSearchInfo2 EQU $2C ; search values and range upper bounds
ioSearchTime EQU $30 ; length of time to run search
ioCatPosition EQU $34 ; catalog position information
ioOptBuffer EQU $44 ; optional read buffer
ioOptBufSize EQU $48 ; length of optional read buffer
; Specific fields for FileID calls
ioNamePtr EQU $12 ; name ptr of file
ioDestNamePtr EQU $1C ; name ptr of destination file (FIDExchangeFiles only)
ioDestDirID EQU $24 ; directory id of destination file (FIDExchangeFiles only)
ioSrcDirID EQU $30 ; directory id of file specified.
ioFileID EQU $36 ; file id of file
; Specific fields for Get/SetForeignPrivs
ioForeignPrivInfo1 EQU $2C
ioForeignPrivInfo2 EQU $30
ioForeignPrivInfo3 EQU $34
ioForeignPrivInfo4 EQU $38
; specific fields for MakeFSSpec
ioFSSpecPtr EQU $1C
; Specific fields for device _Open
ioMix EQU $1C ; General purpose field imported by driver[long]
ioFlags EQU $20 ; General purpose flags [word]
ioSlot EQU $22 ; Slot [byte]
ioId EQU $23 ; Id [byte]
ioSEBlkPtr EQU $22 ; Pointer to the seBlock [long]
; ioFlags:
fMulti EQU $00 ; b0 = fMulti: ioSEBlkPtr is valid (ioSlot, ioId are invalid)
; Specific fields for _Control, _Status
csCode EQU $1A ; control/status code [word]
csParam EQU $1C ; operation-defined parameters [22 bytes]
; FInfo (Finder Information) record layout
fdType EQU $0 ; type of file [long]
fdCreator EQU $4 ; file's creator [long]
fdFlags EQU $8 ; flags [word]
fdLocation EQU $A ; file's location [point]
fdFldr EQU $E ; file's window [word]
; added for HFS
; FXInfo record layout
fdIconID EQU $0 ; Icon ID [word]
fdUnused EQU $2 ; unused but reserved [3 words]
fdScript EQU $8 ; script flag and number [byte]
fdXFlags EQU $9 ; more flags bits [byte]
fdComment EQU $A ; Comment ID [word]
fdPutAway EQU $C ; Home Dir ID [2 words]
; DInfo record layout
frRect EQU $0 ; Folder Rect [4 words]
frFlags EQU $8 ; Flags [word]
frLocation EQU $A ; Location [2 words]
frView EQU $E ; Folder view [word]
; DXInfo record layout
frScroll EQU $0 ; scroll position [2 words]
frOpenChain EQU $4 ; dirID chain of open folders [2 words]
frScript EQU $8 ; script flag and number [byte]
frXFlags EQU $9 ; more flags bits [byte]
frComment EQU $A ; comment [word]
frPutAway EQU $C ; Dir ID [2 words]
;end of addition
; Masks for fdFlags field of FInfo record defined above
fOnDesk EQU 1
fHasBundle EQU 8192 ; set if file has a bundle
fInvisible EQU 16384 ; set if file's icon is invisible
fTrash EQU -3 ; file is in Trash window
fDeskTop EQU -2 ; file is on desktop
fDisk EQU 0 ; file is in disk window
; File System Globals
DrvQHdr EQU $308 ; queue header of drives in system [10 bytes]
BootDrive EQU $210 ; drive number of boot drive [word]
EjectNotify EQU $338 ; eject notify procedure [pointer]
IAZNotify EQU $33C ; world swaps notify procedure [pointer]
SFSaveDisk EQU $214 ; last vRefNum seen by standard file [word]
CurDirStore EQU 46+$36A ; save dir across calls to Standard File [long]
;+ Date-Time record (for use with _Secs2Date, and _Date2Secs)
DateTimeRec RECORD 0 ; moved here from ScriptEqu.a <04/23/89 pke>
year DS.W 1
month DS.W 1
day DS.W 1
hour DS.W 1
minute DS.W 1
second DS.W 1
dayOfWeek DS.W 1
DateTimeRecSize EQU *
size EQU *
ENDR
dtYear EQU $0 ; year (1904..) [word]
dtMonth EQU $2 ; month (1..12) [word]
dtDay EQU $4 ; day (1..31) [word]
dtHour EQU $6 ; hour (0..23) [word]
dtMinute EQU $8 ; minute (0..59) [word]
dtSecond EQU $A ; second (0..59) [word]
dtDayOfWeek EQU $C ; day of week, sunday..saturday (1..7) [word]
;+ Miscellaneous stuff
OneOne EQU $A02 ; constant $00010001 [long]
MinusOne EQU $A06 ; constant $FFFFFFFF [long]
Lo3Bytes EQU $31A ; constant $00FFFFFF [long]
ROMBase EQU $2AE ; ROM base address [pointer]
RAMBase EQU $2B2 ; RAM base address [pointer]
SysVersion EQU $15A ; version # of RAM-based system [word]
RndSeed EQU $156 ; random seed/number [long]
; Cache-related stuff
CacheFlags EQU $B72 ; cache flags [byte] <T9>
bCopybackMode EQU 7 ; bit indicating cache mode on 68040 <T9>
; fields for _GetDefaultStartup: [DefStartRec]
; SlotDev:
sdExtDevID EQU $0 ; [byte]
sdPartition EQU $1 ; [byte]
sdSlotNum EQU $2 ; [byte]
sdSRsrcID EQU $3 ; [byte]
; SCSIDev:
sdReserved1 EQU $0 ; [byte]
sdReserved2 EQU $1 ; [byte]
sdRefNum EQU $2 ; [word]
; fields for _GetVideoDefault: [DefVideoRec]
sdSlot EQU $0 ; [byte]
sdSResource EQU $1 ; [byte]
; fields for _GetOSDefault: [DefOSRec]
sdReserved EQU $0 ; [byte]
sdOSType EQU $1 ; [byte]
;+ Machine Name Resource
nameRsrcID EQU -16395 ; STR# rsrc in System file containing
; machine names.
;+ SysEnvirons info
SysEnvRec RECORD 0
environsVersion DS.W 1
machineType DS.W 1
systemVersion DS.W 1
processor DS.W 1
hasFPU DS.B 1
hasColorQD DS.B 1
keyBoardType DS.W 1
atDrvrVersNum DS.W 1
sysVRefNum DS.W 1
ALIGN 2
sysEnv1Size EQU *-SysEnvRec ; size for version 1
size EQU *
ENDR
curSysEnvVers EQU 2 ; latest SysEnvirons version
; return values
envXL EQU -2 ; for the glue (double sigh)
envMac EQU -1 ; for the glue (sigh)
envMachUnknown EQU 0
env512KE EQU 1
envMacPlus EQU 2
envSE EQU 3
envMacII EQU 4
envMacIIx EQU 5
envMacIIcx EQU 6
envSE30 EQU 7
envPortable EQU 8
envMacIIci EQU 9
envMacIIfx EQU 11
envCPUUnknown EQU 0 ; CPU types
env68000 EQU 1
env68010 EQU 2
env68020 EQU 3
env68030 EQU 4
env68040 EQU 5 ; <4.8>
envUnknownKbd EQU 0 ; Keyboard types
envMacKbd EQU 1
envMacAndPad EQU 2
envMacPlusKbd EQU 3
envAExtendKbd EQU 4
envStandADBKbd EQU 5
envPrtblADBKbd EQU 6 ; <4.9>
envPrtblISOKbd EQU 7
envStdISOADBKbd EQU 8
envExtISOADBKbd EQU 9
;+ Scratch Areas
Scratch20 EQU $1E4 ; scratch [20 bytes]
Scratch8 EQU $9FA ; scratch [8 bytes]
;+ Scrap Manager
ScrapSize EQU $960 ; scrap length [long]
ScrapHandle EQU $964 ; memory scrap [handle]
ScrapCount EQU $968 ; validation byte [word]
ScrapState EQU $96A ; scrap state [word]
ScrapName EQU $96C ; pointer to scrap name [pointer]
;+ Desk Accessories
; Message Definitions (in CSCode of control call)
accEvent EQU $40 ; event message from SystemEvent
accRun EQU $41 ; run message from SystemTask
accCursor EQU $42 ; cursor message from SystemTask
accMenu EQU $43 ; menu message from SystemMenu
accUndo EQU $44 ; undo message from SystemEdit
accCut EQU $46 ; cut message from SystemEdit
accCopy EQU $47 ; copy message from SystemEdit
accPaste EQU $48 ; paste message from SystemEdit
accClear EQU $49 ; clear message from SystemEdit
goodBye EQU -1 ; goodbye message
IF wholeSystem=1 THEN
;International stuff
IntlSpec EQU $BA0 ; (long) - ptr to extra Intl data
;Switcher
SwitcherTPtr EQU $286 ; Switcher's switch table
; Trap bits for memory manager
tSysOrCurZone EQU 10 ; bit set implies System Zone
; bit clear implies Current Zone
clearBit EQU 9 ; bit set means clear allocated memory.
; Peripheral chips and Magic Hardware addresses
CPUFlag EQU $12F ; $00=68000, $01=68010, $02=68020 (old ROM inits to $00)
cpu68000 EQU 0
cpu68010 EQU 1
cpu68020 EQU 2
cpu68030 EQU 3
cpu68040 EQU 4
; VIA (6522) interface chip
VIA EQU $1D4 ; VIA base address [pointer]
; Disk Address
IWM EQU $1E0 ; IWM base address [pointer]
; Interrupt secondary vectors
Lvl1DT EQU $192 ; Interrupt level 1 dispatch table [32 bytes]
Lvl2DT EQU $1B2 ; Interrupt level 2 dispatch table [32 bytes]
ExtStsDT EQU $2BE ; SCC ext/sts secondary dispatch table [16 bytes]
; Parameter Ram
SPValid EQU $1F8 ; validation field ($A7) [byte]
SPATalkA EQU $1F9 ; AppleTalk node number hint for port A
SPATalkB EQU $1FA ; AppleTalk node number hint for port B
SPAlarm EQU $200 ; alarm time [long]
SPFont EQU $204 ; default application font number minus 1 [word]
SPKbd EQU $206 ; kbd repeat thresh in 4/60ths [2 4-bit]
SPPrint EQU $207 ; print stuff [byte]
SPVolCtl EQU $208 ; volume control [byte]
SPClikCaret EQU $209 ; double click/caret time in 4/60ths[2 4-bit]
SPMisc1 EQU $20A ; miscellaneous [1 byte]
SPMisc2 EQU $20B ; miscellaneous [1 byte]
GetParam EQU $1E4 ; system parameter scratch [20 bytes]
SysParam EQU $1F8 ; system parameter memory [20 bytes]
; Cursor
CrsrThresh EQU $8EC ; delta threshold for mouse scaling [word]
JCrsrTask EQU $8EE ; address of CrsrVBLTask [long]
MTemp EQU $828 ; Low-level interrupt mouse location [long]
RawMouse EQU $82C ; un-jerked mouse coordinates [long]
CrsrRect EQU $83C ; Cursor hit rectangle [8 bytes]
TheCrsr EQU $844 ; Cursor data, mask & hotspot [68 bytes]
CrsrAddr EQU $888 ; Address of data under cursor [long]
CrsrSave EQU $88C ; data under the cursor [64 bytes]
CrsrVis EQU $8CC ; Cursor visible? [byte]
CrsrBusy EQU $8CD ; Cursor locked out? [byte]
CrsrNew EQU $8CE ; Cursor changed? [byte]
CrsrState EQU $8D0 ; Cursor nesting level [word]
CrsrObscure EQU $8D2 ; Cursor obscure semaphore [byte]
; Mouse/Keyboard
KbdVars EQU $216 ; Keyboard manager variables [4 bytes]
KbdType EQU $21E ; keyboard model number [byte]
MBState EQU $172 ; current mouse button state [byte]
KeyMap EQU $174 ; bitmap of the keyboard [2 longs]
KeypadMap EQU $17C ; bitmap for numeric pad-18bits [long]
Key1Trans EQU $29E ; keyboard translator procedure [pointer]
Key2Trans EQU $2A2 ; numeric keypad translator procedure [pointer]
JGNEFilter EQU $29A ; GetNextEvent filter proc [pointer]
KeyMVars EQU $B04 ; (word) for ROM KEYM proc state
Mouse EQU $830 ; processed mouse coordinate [long]
CrsrPin EQU $834 ; cursor pinning rectangle [8 bytes]
CrsrCouple EQU $8CF ; cursor coupled to mouse? [byte]
CrsrScale EQU $8D3 ; cursor scaled? [byte]
MouseMask EQU $8D6 ; V-H mask for ANDing with mouse [long]
MouseOffset EQU $8DA ; V-H offset for adding after ANDing [long]
; System Clocks
AlarmState EQU $21F ; Bit7=parity, Bit6=beeped, Bit0=enable [byte]
;+ Vertical Blanking Interrupt Handler
; VBL Block Queue Element
vType EQU 1 ; VBL queue element is type 1
inVbl EQU 6 ; bit index for "in VBL" flag
vblink EQU 0 ; Link to next element [pointer]
vblType EQU 4 ; Unique ID for validity [word]
vblAddr EQU 6 ; service routine [pointer]
vblCount EQU $A ; timeout count [word]
vblPhase EQU $C ; phase count [word]
VBLQueue EQU $160 ; VBL queue header [10 bytes]
; Event manager
jPlayCtl EQU 16 ; playBack call
jRecordCtl EQU 17 ; record call
jcTickCount EQU 0 ; journal code for TickCount
jcGetMouse EQU 1 ; journal code for GetMouse
jcButton EQU 2 ; journal code for Button
jcGetKeys EQU 3 ; journal code for GetKeys
jcEvent EQU 4 ; journal code for GetNextEvent(Avail)
SysEvtMask EQU $144 ; system event mask [word]
SysEvtBuf EQU $146 ; system event queue element buffer [pointer]
EventQueue EQU $14A ; event queue header [10 bytes]
EvtBufCnt EQU $154 ; max number of events in SysEvtBuf - 1 [word]
; Event Queue Element Data Stucture
evtQWhat EQU 6 ; event code [word]
evtQMessage EQU 8 ; event message [long]
evtQWhen EQU $C ; ticks since startup [long]
evtQWhere EQU $10 ; mouse location [long]
evtQMeta EQU $14 ; state of modifier keys [byte]
evtQMBut EQU $15 ; state of mouse button [byte]
evtQBlkSize EQU $16 ; size of event record counting queue info
; flags in flags field in heapzone header
fOnCheck EQU 0 ; Turn On Checking
fChecking EQU 1 ; Checking on
fNSelCompct EQU 4 ; Use non-selective compact algorithm when 1.
fNoRvrAlloc EQU 5 ; Don't use rover allocation scheme when 1.
fNSelPurge EQU 6 ; Use non-selective purge algorithm when 1.
fRelAtEnd EQU 7 ; MakeBk packs rels at end of free bk when 1.
ROZ EQU $0 ; bit in flags field of MemMgr zone header
; Block Types
tybkMask EQU 3 ; Mask for block type
tybkFree EQU 0 ; Free Block
tybkNRel EQU 1 ; Non-Relocatable
tybkRel EQU 2 ; Relocatable
; Block Offsets
tagBC EQU 0 ; Tag and Byte Count field [long]
handle EQU 4 ; back pointer to master pointer [pointer]
blkData EQU 8 ; data starts here
; Heap Zone header
bkLim EQU $0 ; last block in zone [pointer]
purgePtr EQU $4 ; roving purge placeholder [pointer]
hFstFree EQU $8 ; first free handle [pointer]
zcbFree EQU $C ; # of free bytes in zone [long]
gzProc EQU $10 ; grow zone procedure [pointer]
mAllocCnt EQU $14 ; # of master ptrs to allocate [word]
flags EQU $16 ; Flags [word]
cntRel EQU $18 ; # of allocated relocatable blocks [word]
maxRel EQU $1A ; max # of allocated rel. blocks [word]
cntNRel EQU $1C ; # of allocated non-rel. blocks [word]
maxNRel EQU $1E ; max # of allocated non-rel. blocks [word]
cntEmpty EQU $20 ; # of empty handles [word]
cntHandles EQU $22 ; total # of handles [word]
minCBFree EQU $24 ; min # of bytes free [long]
purgeProc EQU $28 ; purge warning procedure [pointer]
allocPtr EQU $30 ; roving allocator [pointer]
heapData EQU $34 ; start of heap zone data
GZRootHnd EQU $328 ; root handle for GrowZone [handle]
GZRootPtr EQU $32C ; root pointer for GrowZone [pointer]
GZMoveHnd EQU $330 ; moving handle for GrowZone [handle]
MemTop EQU $108 ; top of memory [pointer]
MmInOK EQU $12E ; initial memory mgr checks ok? [byte]
HpChk EQU $316 ; heap check RAM code [pointer]
MaskBC EQU $31A ; Memory Manager Byte Count Mask [long]
MaskHandle EQU $31A ; Memory Manager Handle Mask [long]
MaskPtr EQU $31A ; Memory Manager Pointer Mask [long]
MinStack EQU $31E ; min stack size used in InitApplZone [long]
DefltStack EQU $322 ; default size of stack [long]
MMDefFlags EQU $326 ; default zone flags [word]
;+ System Error Handler
DSAlertTab EQU $2BA ; system error alerts [pointer]
DSAlertRect EQU $3F8 ; rectangle for disk-switch alert [8 bytes]
DSDrawProc EQU $334 ; alternate syserror draw procedure [pointer]
DSWndUpdate EQU $15D ; GNE not to paintBehind DS AlertRect? [byte]
WWExist EQU $8F2 ; window manager initialized? [byte]
QDExist EQU $8F3 ; quickdraw is initialized [byte]
ResumeProc EQU $A8C ; Resume procedure from InitDialogs [pointer]
DSErrCode EQU $AF0 ; last system error alert ID
;+ Drivers
dskRfN EQU $FFFB ; 3.5" disk reference number
IntFlag EQU $15F ; reduce interrupt disable time when bit 7 = 0
; Serial I/O Driver
SerialVars EQU $2D0 ; async driver variables [16 bytes]
ABusVars EQU $2D8 ; Pointer to AppleTalk local variables
ABusDCE EQU $2DC ; Pointer to AppleTalk DCE
PortAUse EQU $290 ; bit 7: 1 = not in use, 0 = in use
; bits 0-3: current use of port (see use type)
; bits 4-6: user specific
PortBUse EQU $291 ; port B use, same format as PortAUse
SCCASts EQU $2CE ; SCC read reg 0 last ext/sts rupt - A [byte]
SCCBSts EQU $2CF ; SCC read reg 0 last ext/sts rupt - B [byte]
; Serial handshake record definition
shFXOn EQU $0 ; XOn/XOff output control flags [byte]
shFCTS EQU $1 ; CTS hardware handshake flag [byte]
shXOn EQU $2 ; XOn character [byte]
shXOff EQU $3 ; XOff character [byte]
shErrs EQU $4 ; errors that cause abort [byte]
shEvts EQU $5 ; status changes that cause events [byte]
shFInX EQU $6 ; XOn/XOff input flow control flag [byte]
shNull EQU $7 ; not used [byte]
; Serial status record definition
ssCumErrs EQU $0 ; cumulative errors [byte]
ssXOffSent EQU $1 ; XOff sent as input control flag [byte]
ssRdPend EQU $2 ; read pending flag [byte]
ssWrPend EQU $3 ; write pending flag [byte]
ssCTSHold EQU $4 ; CTS flow control hold flag [byte]
ssXOffHold EQU $5 ; XOff received as output flow control [byte]
; Disk Driver
; Driver Code Header (for I/O drivers, desk accessories)
drvrFlags EQU $0 ; various flags and permissions [word]
drvrDelay EQU $2 ; # of ticks between systask calls [word]
drvrEMask EQU $4 ; event mask [word]
drvrMenu EQU $6 ; driver menu ID [word]
drvrOpen EQU $8 ; open routine offset [word]
drvrPrime EQU $A ; prime routine offset [word]
drvrCtl EQU $C ; control routine offset [word]
drvrStatus EQU $E ; status routine offset [word]
drvrClose EQU $10 ; warmstart reset routine offset [word]
drvrName EQU $12 ; length byte and name of driver [string]
;drvrVersion EQU ??? ; Driver w/ highest version # installed [word]
; This field's offset varies depending upon the length
; of the Name field preceding it. It must be word aligned!
; Driver Status record definition
dsTrack EQU $0 ; current track [word]
dsWriteProt EQU $2 ; bit 7=1 if volume locked [byte]
dsDiskInPlace EQU $3 ; disk in place [byte]
dsInstalled EQU $4 ; drive installed [byte]
dsSides EQU $5 ; bit 7=0 if single-sided drive [byte]
dsQLink EQU $6 ; next queue entry [pointer]
dsDQVers EQU $A ; 1 for HD20 [word]
dsDQDrive EQU $C ; drive number [word]
dsDQRefNum EQU $E ; driver reference number [word]
dsDQFSID EQU $10 ; file-system identifier [word]
dsTwoSideFmt EQU $12 ; -1 if two-sided disk [byte]
dsDiskErrs EQU $14 ; error count [word]
dsDrvSize EQU $12 ; drive block size low word [word]
dsDrvS1 EQU $14 ; drive block size high word [word]
dsDrvType EQU $16 ; 1 for HD20 [word]
dsDrvManf EQU $18 ; 1 for Apple Computer, Inc [word]
dsDrvChar EQU $1A ; 230 ($E6) for HD20 [word]
dsDrvMisc EQU $1C ; 0 -- reserved [byte]
DskErr EQU $142 ; disk routine result code [word]
PWMBuf2 EQU $312 ; PWM buffer 1 (or 2 if sound) [pointer]
; Drive command codes
dcRead EQU 0
dcWrite EQU 1
dcStatus EQU 3
dcInit EQU 25
dcScan EQU 26
; Sound Stuff
SoundPtr EQU $262 ; 4VE sound definition table [pointer]
SoundBase EQU $266 ; sound bitMap [pointer]
SoundVBL EQU $26A ; vertical retrace control element [16 bytes]
SoundDCE EQU $27A ; sound driver DCE [pointer]
SoundActive EQU $27E ; sound is active? [byte]
SoundLevel EQU $27F ; current level in buffer [byte]
CurPitch EQU $280 ; current pitch value [word]
; I/O System
noQueueBit EQU $9 ; tells I/O system not to queue the request
asyncTrpBit EQU $A ; bit in high byte of trap specifying async
ToExtFS EQU $3F2 ; hook for external file systems
; File System Globals
DskVerify EQU $12C ; used by 3.5 disk driver for read/verify [byte]
TagData EQU $2FA ; sector tag info for disk drivers [14 bytes]
BufTgFNum EQU $2FC ; file number [long]
BufTgFFlg EQU $300 ; flags [word]
BufTgFBkNum EQU $302 ; logical block number [word]
BufTgDate EQU $304 ; time stamp [word]
; I/O Command Equates for I/O Queue Elements (match trap numbers)
aRdCmd EQU 2 ; read command
aWrCmd EQU 3 ; write command
aCtlCmd EQU 4 ; control command
aStsCmd EQU 5 ; status command
; fields for _SetPMSP call: PMSP = "Poor Man's Search Path"
ioPMSPFlg EQU $1A ; Flag whether to enable the PMSP
ioPMSPHook EQU $1C ; Pointer to PMSP hook proc
; Print variables
ScrDmpEnb EQU $2F8 ; screen dump enabled? [byte]
ScrDmpType EQU $2F9 ; FF dumps screen, FE dumps front window [byte]
; Scrap Variables
ScrapVars EQU $960 ; scrap manager variables [32 bytes]
ScrapInfo EQU $960 ; scrap length [long]
ScrapEnd EQU $980 ; end of scrap vars
ScrapTag EQU $970 ; scrap file name [STRING[15]]
; Segment Loader
LaunchFlag EQU $902 ; from launch or chain [byte]
SaveSegHandle EQU $930 ; seg 0 handle [handle]
CurJTOffset EQU $934 ; current jump table offset [word]
CurPageOption EQU $936 ; current page 2 configuration [word]
LoaderPBlock EQU $93A ; param block for ExitToShell [10 bytes]
CurApRefNum EQU $900 ; refNum of application's resFile [word]
CurrentA5 EQU $904 ; current value of A5 [pointer]
CurStackBase EQU $908 ; current stack base [pointer]
CurApName EQU $910 ; name of application [STRING[31]]
LoadTrap EQU $12D ; trap before launch? [byte]
SegHiEnable EQU $BB2 ; (byte) 0 to disable MoveHHi in LoadSeg
;device manager - Chooser message values
newSelMsg EQU 12 ; a new selection has been made
fillListMsg EQU 13 ; fill the list with choices to be made
getSelMsg EQU 14 ; mark one or more choices as selcted
selectMsg EQU 15 ; a choice has actually been made
deselectMsg EQU 16 ; a choice has been canceled
terminateMsg EQU 17 ; lets device package clean up
buttonMsg EQU 19 ; a button has been clicked
psAlert EQU 6 ; page setup alert bit in HiliteMode
theChooser EQU 1
; cdev message types
initDev EQU 0 ; Time for cdev to initialize itself
hitDev EQU 1 ; Hit on one of my items
closeDev EQU 2 ; Close yourself
nulDev EQU 3 ; Null event
updateDev EQU 4 ; Update event
activDev EQU 5 ; Activate event
deactivDev EQU 6 ; Deactivate event
keyEvtDev EQU 7 ; Key down/auto key
macDev EQU 8 ; Decide whether or not to show up
undoDev EQU 9 ; Edit menu undo (cmd-z).
cutDev EQU 10 ; Edit menu cut (cmd-x).
copyDev EQU 11 ; Edit menu copy (cmd-c).
pasteDev EQU 12 ; Edit menu paste (cmd-v).
clearDev EQU 13 ; Edit menu clear.
cursorDev EQU 14 ; Cursor panel area.
; Monitors control panel messages
initMsg EQU 1 ; initialization
okMsg EQU 2 ; user clicked OK button
cancelMsg EQU 3 ; user clicked Cancel button
hitMsg EQU 4 ; user clicked control in Options dialog
nulMsg EQU 5 ; periodic event
updateMsg EQU 6 ; update event
activateMsg EQU 7 ; not used
deactivateMsg EQU 8 ; not used
keyEvtMsg EQU 9 ; keyboard event
superMsg EQU 10 ; show superuser controls
normalMsg EQU 11 ; show only normal controls
startupMsg EQU 12 ; code has been loaded
; cdev error codes
cdevGenErr EQU -1 ; General error; gray cdev w/o alert
cdevMemErr EQU 0 ; Memory shortfall; alert user please
cdevResErr EQU 1 ; Couldn't get a needed resource; alert
cdevUnset EQU 3 ; cdevValue is initialized to this
;___________________________________________________________________________
;
; Background Notification Manager
BNMQHd EQU $B60 ; head of background notification Q
;___________________________________________________________________________
;
; Communications Toolbox Globals Pointer
CommToolboxGlobals EQU $BB4 ; [long] pointer to CTB Globals <8>
;___________________________________________________________________________
; Memory Manager
defaultPhysicalEntryCount EQU 8 ; default number of physical blocks in table
; values returned from the GetPageState function
kPageInMemory EQU 0
kPageOnDisk EQU 1
kNotPaged EQU 2
MemoryBlock RECORD 0
address DS.L 1 ; start of block
count DS.L 1 ; size of block
size EQU * ; size of MemoryBlock
ENDR
LogicalToPhysicalTable RECORD 0
logical DS.B MemoryBlock ; logical block
physical EQU * ; equivalent physical blocks
size EQU * ; minimum size of table
defaultSize EQU size + (MemoryBlock.size * defaultPhysicalEntryCount)
ENDR
; selectors for the _MemoryDispatch trap
holdMemory EQU 0 ; selector for _HoldMemory
unholdMemory EQU 1 ; selector for _UnholdMemory
lockMemory EQU 2 ; selector for _LockMemory
lockMemoryContiguous EQU 4 ; selector for _LockMemoryContiguous
unlockMemory EQU 3 ; selector for _UnlockMemory
getPhysical EQU 5 ; selector for _GetPhysical
getReal EQU 6 ; selector for _GetReal call
getPageDesc EQU 7 ; selector for _GetPageDesc call
;___________________________________________________________________________
;
JDoEject EQU 4*($F7)+$0400 ; Sony Driver jump vectors
ENDIF
ENDIF ; if not already included...
Reference in New Issue Copy Permalink