mirror of https://github.com/marketideas/qasm.git
91 lines
2.3 KiB
ArmAsm
91 lines
2.3 KiB
ArmAsm
*======================================================
|
|
* Some equates we need defined
|
|
|
|
TeaseWare = 0 ;1 = no saving allowed!
|
|
|
|
AppleMenu = 300
|
|
FileMenu = 255
|
|
EditMenu = 250
|
|
ProjMenu = 400
|
|
SrcMenu = 500
|
|
ToolMenu = 600
|
|
GSOSMenu = 700
|
|
TranMenu = 800
|
|
WindowMenu = 5000
|
|
|
|
TECtrlID = $69696969
|
|
WindowID = $FACE
|
|
CmdWdwID = $AAAA
|
|
ErrWdwID = $EEEE
|
|
|
|
rTEStyle = $8012
|
|
*------------------------------------------------------
|
|
* These are our zero page usage stuff
|
|
|
|
dum EndZP
|
|
SDFlg ds 2 ;shut down flag
|
|
|
|
ClickFlg ds 2 ;is there a file to load from finder?
|
|
|
|
FrontWdw ds 2 ;0 = none of ours active
|
|
WdwPtr ds 4 ;current source window
|
|
CmdPtr ds 4 ;system window
|
|
ErrPtr ds 4 ;error window
|
|
TEHdl ds 4 ;for Text Edit record
|
|
CmdTEHdl ds 4
|
|
ErrTEHdl ds 4
|
|
|
|
WdwCnt ds 2 ;# of open windows (for menu disable)
|
|
SysWdw ds 2 ;NEG = system window
|
|
|
|
PrtHdl ds 4 ;handle to print record
|
|
PPort ds 4 ;printer port handle
|
|
PrtOK? ds 2 ;is it ok to print?
|
|
|
|
WMenuRef ds 2 ;item # for window menu
|
|
LastFile ds 2 ;menu # of last file active
|
|
|
|
CaseFlg ds 2 ;case insensitive = true
|
|
FromTop ds 2 ;search from top of doc?
|
|
WordFlg ds 2 ;search for words?
|
|
LabelFlg ds 2 ;go to a label?
|
|
|
|
ClearFlg ds 2 ;bne = clear TE text
|
|
EnterFlg ds 2 ;bne = parse line via QA tools
|
|
|
|
SaveText ds 2 ;save as text only?
|
|
|
|
tFLen ds 2 ;find & replace lengths
|
|
tRLen ds 4
|
|
textLen ds 4
|
|
|
|
ToolAdr ds 4 ;address of QATools
|
|
CmdAdr ds 4 ;address of command handling code
|
|
ParmHdl ds 4 ;parms
|
|
CmdHdl ds 4 ;our command table
|
|
NumCmds ds 2 ;# of commands we know
|
|
|
|
err */$101 ;can't go past $FF
|
|
dend
|
|
|
|
*======================================================
|
|
* The various routines & variables accessable in the IFD library
|
|
* (no drawing or sound or random stuff here!)
|
|
|
|
EXT SetAPath,SetPath,ReadFile,WriteFile,GetFile,PutFile
|
|
EXT StripPath,CopyPath,CopySFPath,CallDOS
|
|
EXT SysError,TextError,CenterDialog
|
|
EXT WaitEvent,WaitEventz,VErrCheck,AskForDisk
|
|
|
|
EXT AppPath,PathParms,OpenParms,InfoParms,EOFParms
|
|
EXT ReadParms,WriteParms,DestParms,CreateParms
|
|
EXT FilePtr,PathPtr,SFTypes,SFRec,InPath
|
|
EXT getpath,VolumeName,CreateSFPath,CheckClick
|
|
|
|
EXT DSysErr,theError,ScreenWidth,TaskRc,Event,EType
|
|
EXT Time,yPos,xPos,Mod,TData,TMask
|
|
|
|
EXT Startup,Shutdown,CreateMBar,SetMenus,SetMItems,NewAlert
|
|
|
|
EXT SetDIValue,PutText,GrabText,GetInt
|