mirror of
https://github.com/codebur/a2-chemi-gs-1993.git
synced 2024-10-31 12:04:54 +00:00
1 line
8.7 KiB
NASM
1 line
8.7 KiB
NASM
|
keep GLOBALS
****************************************************************
* ChemiGS *
****************************************************************
* A Drawing Program for Chemical Structures *
* (c) 1992-93 by Urs Hochstrasser *
* Buendtenweg 6 *
* 5105 AUENSTEIN (SWITZERLAND) *
****************************************************************
* Module GLOBALS
****************************************************************
*
* USES ...
*
mcopy Globals.macros
copy equates.asm
****************************************************************
*
* VAR
*
Globals data
gMemID ds 2
gMyID ds 2
gToolRef ds 4
fDoAbout ds 2
fWaitForKey ds 2
fTextFlag ds 2
gMainEvt ds 16 Task Record: Event+Task (Fields by Offs)
gTaskDta ds 4
gTaskMsk dc i4'$001FFB7F' @@@@ was $001FFF7F
ds 4 wmLastClickTick
ds 2 wmClickCount
gTaskDa2 ds 4
gTaskDa3 ds 4
gTaskDa4 ds 4
ds 4 wmLastClickPt
ds 2 dummy (rest of Task record ?)
gDone dc i2'0' Quit flag
gToolID ds 2 active tool from toolbar
oldToolID ds 2
gToolErr ds 2
gDataWNum ds 2
gDefaultTool dc i2'2' Single bond tool
gAboutWin ds 4
gLastWindow ds 4
gVersion dc i2'2'
TBOffset dc i2'6'
RulerH dc i2'18' ruler heigth
SGRecord ds 14 generic Set/GetField Record
gNewLink ds 4
gNewText ds 4
gNewObj ds 4
gToolWin ds 4
gEasterWin ds 4
gPrefWin ds 4
gHelpWin ds 4
gEditCursor ds 4 Pointer to Edit Cursor (1 of the following)
gCrossCur ds 4 Handle
gMarqueeCur ds 4 Handle
gHandCur ds 4 Handle
gTextCur ds 4 Handle
gEraseCur ds 4 Handle
gArrowCur ds 4
ChFont ds 4
SysFont ds 4
LErecH ds 4
masterSCB ds 2
fFirstFile ds 2
fCacheWins dc i2'0' Set Cache Windows to FALSE
fSys5 dc i2'0' 1 -> TRUE; $8001 -> DON'T CHANGE
gPenSize dc i2'1'
dc i2'2'
FInfoHndl ds 4 Handle to window's File Info Record
*+++++++++++++++++++++ FILE INFO RECORD +++++++++++++++++++++++++++++++++++++++
FileInfo anop (100 Bytes for each file)
gTheData ds 4 Handle to linked segment list
gTheText ds 4 Handle to linked AtomText list
gTheObj ds 4 Handle to linked object list
hScrollH ds 4 handle to hor. scroll bar (ID 5)
vScrollH ds 4 handle to vert. scroll bar (ID 6)
MountnH ds 4 handle to display size control (ID 8)
SizeBoxH ds 4 handle to size box control (ID 9)
gContentRect dc i2'18,0,156,531' Window's Content Rect (own terminology)
gOffPort ds 4 Pointer to Window's offscreen GrafPort!
gXoffset ds 2
gYoffset ds 2
gDocW ds 2
gDocH ds 2
LEditH ds 4 handle to window's Line Edit Cntl (ID 4)
TBarH ds 4 Handle to inactive ToolBar Ctrl (ID 7)
*\----------------This part moved on every update---56 Bytes-------------------/
gLink ds 4 Handle to next free segment
gTXLink ds 4 Handle to next free AtomText string
gObjLink ds 4 Handle to next free object space
gDataWin ds 4 Pointer to current Window's GrafPort
wKind ds 2 Kind of Window -- unused yet
fSaved dc i2'1' set to TRUE, so no 'Save' of empty Win
fNamed ds 2 Is set to TRUE after a PutFile Dialog
fFullAccess ds 2 TRUE if R/W access to file
fOpened ds 2 TRUE if file associated to Window is open
gTitleH ds 4 Handle to Title memory Block (for resizing, etc.)
gTitlePtr ds 4 Pointer to title string
gPrintHndl ds 4 Handle to Window's Print Record
gPathPtr ds 4 Pointer to Window's file path
gRefNum ds 2 File Reference Number of Window's associated File
gInfoRect ds 8 Window's Info Bar Rectangle
picHandle ds 4 Handle to offscreen picture!
ds 4 dummy
*++++++++++++++++++ END of FileInfo RECORD ++++++++++++++++++++++++++++++++++++
dumdum ds 10 nothin'
FileHeader anop *----------H-E-A-D-E-R----------------*
hdrLength dc i4'256'
hdrVersion dc h'0001'
fileKind ds 2
gPrintRec ds 140
*** Insert additional header data here ***
hdrDummy ds 120 *-------E-N-D---O-F---H-E-A-D-E-R-----*
locInfo anop
portSCB ds 2 SCB Byte
ptrToPixImage ds 4 pointer to pixel image
width dc i2'160' width
boundsRect dc i2'0,0,400,640' boundary rectangle
NewSegment anop empty segment data for newLink
ds 32
TheSegment anop
sLink ds 4 actual data segment
sType ds 2
sRgnHndl ds 4
sSize ds 2
sNamePtr ds 4
sColor ds 2
sPen
|