Tlsam GrafEQU

GrafEqu.Text Thu, Mar 16, 1989 11:07 PM File GRAFEQU.TEXT - Macintosh graphics equates file. Written by Bud Tribble 26-May-81 All system graphic routines include this equate file. MODIFICATION HISTORY: i 5 : 3 i 3 BLT 2-Oct-ai For new LisaGraf 3 AJH 31-Oct-81 Moved variables down to make room for driver variables 3 alo 03-Feb-82 Lisagraf vars moved down to #800 for more system globals 3 AJH 06-Jul-82 Added stuff for ObscureCursor y LAK 26-Ju1-B2 Added JUPDATEFROC pointer to update event generator 3 LAK 05-Sep-82 Added MaxX and MaxY equates : AJH 15-Sep-82 Modified for new cursor interface 3; LAK 16-Oct-82 updated for 512 dots y AJH 20-Nov-82 added JournalFlag, font manager jump vectors 3 AJH 02-Jan-83 added Journal Hook 3 $C 21-Jan-83 font scaling/coupling stuff 3 $C 02-Jun-83 Added 3 vars for jerky cursors H §C 23-Jan-83 changed JournalHook to journal Ret 3 AJH 1i-Aug-83 added MScaleThresh, MScaleFactor y; LAR 13-Aug-83 changed above two to MicaleTbl, added NScaleQld 3 LAR 18-Aug-89 changed above two to CrsrThresh and CrsrQuad. H moved JCrsrTask here from Sysequ. ; LAK 20-Aug-83 Removed CrerGuad. 3 i ; System Constants 3 SCRNROWE EGU 640/8 MaxX EGU 640 Max EGU 44 SCRNBYTES EGU SCRNROWB#Max ¥ i : ; System Graphic Jump Vectors - Long pointers to H system routine entry points. 3 GRAFBEGIN EGU #800 ;GRAF GLOBAL AREA JHIDECURSOR EGU GRAFBEGIN J5HOWCURSOR »EGU JHIDECURSOR+4 JSHIELDCURSOR EGU JSHOWCURSOR+4 ASCRNADDR EGU JSHIELDCURSOR+4 ASCRNSIZE »ERU JSCRNADDR+4 JINITCRSR EGU JSCRNSIZE+4 JSETCRER EGU JINITCRSR+4 JCRSROBSCURE »EQU ASETCRSR+4 JUFDATEPROC »EGU ACRSROBSCURE+4 LGRAF JUMF EDU JUPDATEPROC+4 ;LAST VECTOR LOCATION : ; System Graphic variables : GRAF VAR EGU LGRAFIJUMF s5YSTEM GRAPHIC VARIABLE AREA SCRNBASE EGU GRAF VAR yPOINTER TO BASE OF SCREEN MTENF -EQU SCRNBASE+4 sPOINT, TEMPORARY MOUSE COORDS RawMouse «EGU NTEMP+4 ; Faw mouse coordinates (un-jerked) GrafEqu.Text MOUSE CRSRPIN CRSRRECT THECRSR CRSRADDR CRSRSAVE CRERVIS CRSRBUSY CRSRNEW CRSRCOUPLE CRSRSTATE CREROBSCURE CRERSCALE MouseMask Mouselffset Journal Flag JSwapFont JFontInfo Journal Ret CrsrThrash JCrsrTask -EQU »EGU »EGU »EGU EGU +EQU »EQU +EQU +EQU EGU +EQU »EQU »EQU »EQU EGU EGU EGU +EQU »EGU EGU «EGU ; NOTE -- JCrsrTask GRAFEND »EGU Thu, Mar RawMouse+4 MOUSE+4 CRSRPINtE CRSRRECT+S THECRSR+48 CRSRADDR+4 CRSRSAVE+44 CRSRVIS+1 CRERBUSY+1 CRSRNEW+ 1 CRSRCOUPLE+1 CRSRSTATE+2 CRSROBSCURE+1 CRSRSCALE+3 MouseMask +4 Mouselffset+4 Journal Flagt2 J5wapFont+4 JFontInfot4 Journal Retf+4 CrsrThresht2 CrsrThresh = must JCrsrTask+4 ié, 1987 9 14:07 PM ;POINT, MOUSE COORDS USED BY CURSOR 3RECT, CURSOR PIN LIMITS sRECT, CURSOR HIT RECTANGLE 348 BYTES. CURSOR DATA, MASK, HOTSPOT LONG, ADDR OF DATA UNDER CURSOR 316 LONGS, DATA UNDER CURSOR sBYTE, CURSOR VISIBLE FLAG sBYTE, CURSOR LOCK-DUT FLAG 3BYTE, CURSOR CHANGED FLAG yBYTE, CURSOR coupled flag ;WORD, FOR NESTED CURSOR CALLS ybyte semaphore for obscure cursor sbyte c…