;------------------------------------------ ; ; Equates from procedure P_ATTRData ; ;------------------------------------------ P_MenuColor equ 9 P_MenuStyle equ 8 P_MenuSize equ 7 P_MenuFont equ 6 P_MenuFormat equ 5 P_MenuArrange equ $A P_MenuOptions equ 4 P_MenuEdit equ 3 P_MenuFile equ 2 P_MenuApple equ 1 P_FrontBit equ 1<<0 P_BackBit equ 1<<1 P_FlipHBit equ 1<<2 P_FlipVBit equ 1<<3 P_RotLBit equ 1<<4 P_RotRBit equ 1<<5 P_DefaultArrange equ %000000 P_AllArrange equ %111111 P_ObjArrange equ %111111 P_ViewPageBit equ 1<<0 P_HidePaletteBit equ 1<<1 P_HideRulerBit equ 1<<2 P_HideGuideBit equ 1<<3 P_SetGuideBit equ 1<<4 P_LockGuideBit equ 1<<5 P_MagGuideBit equ 1<<6 P_GoToPageBit equ 1<<7 P_SetNumBit equ 1<<8 P_UseTempBit equ 1<<9 P_DblPageBit equ 1<<10 P_AllOptions equ %0000011111111111 P_DefaultOpt equ %0000011111111111 P_ViewPageItem equ $401 P_HidePaletteItem equ $402 P_HideRulerItem equ $403 P_HideGuideItem equ $404 P_SetGuideItem equ $405 P_LockGuideItem equ $406 P_MagGuideItem equ $407 P_GotoPageItem equ $408 P_SetNumItem equ $409 P_UseTempItem equ $40A P_DblPageItem equ $40B P_AllText equ %11111111 P_DefaultText equ %11111111 P_LeftBit equ 1<<0 P_CenterBit equ 1<<1 P_RightBit equ 1<<2 P_FullBit equ 1<<3 P_SingleSpBit equ 1<<4 P_1_5SpBit equ 1<<5 P_DoubleSpBit equ 1<<6 P_SetSpBit equ 1<<7 P_LeftItem equ $501 P_CenterItem equ $502 P_RightItem equ $503 P_FullItem equ $504 P_SingleItem equ $505 P_DoubleItem equ $506 P_TripleItem equ $507 P_SetSItem equ $508 P_SelectAllBit equ 1<<(5) P_DuplicateBit equ 1<<(5+1) P_InsertBit equ 1<<(5+2) P_DeleteBit equ 1<<(5+3) P_DefaultEdit equ %0000000110101000 P_ObjEdit equ %0000000001010110 P_TextEdit equ %0000000000010110 P_EditAll equ %0000000111111111 ;------------------------------------------ ; ; Equates from procedure P_Data ; ;------------------------------------------ P_WinTop equ 27 P_WinLeft equ 4 P_WinHeight equ 171 P_WinWidth equ 632 P_ScrollHeight equ 12 P_ScrollWidth equ 26 P_HScrollL equ 5 P_VScrollT equ -1 P_MinHeight equ 80 P_MinWidth equ 280 CheckMark equ 18 LIGHTGRAY equ 3 DARKGRAY equ 12 LIGHTGREY equ 3 DARKGREY equ 12 P_VERSNUM equ $770A ; $77='w'=id, $0A = file version P_ID equ $77 P_VNum equ $0A P_DecimalTab equ -1 ; ick!! This is for sideways compatibility w/ WP P_LeftTab equ 0 P_RightTab equ 1 P_IndentTab equ 2 P_MaxTabCount equ 10 P_MinTabDist equ 10 P_MaxPages equ 99 RulerGuide equ 0 ColGuide equ 1 MargGuide equ 2 P_NoUndo equ 0 P_MoveUndo equ 1 P_StretchUndo equ 2 P_CropUndo equ 3 P_FillUndo equ 4 P_PenSizeUndo equ 5 P_FontIDUndo equ 6 P_FontUndo equ 7 P_StyleUndo equ 8 P_SizeUndo equ 9 P_ColorUndo equ 10 P_ClearObjUndo equ 11 P_CutObjUndo equ 12 P_GuideUndo equ 13 P_ClearTextUndo equ 14 P_CutTextUndo equ 15 P_TypeUndo equ 16 ; From P_RulerData --------------------- P_MIN_VPIX equ 2 P_MIN_HPIX equ 4 P_HRulWdth equ 16 P_HRulLength equ 640 P_HRulTop equ 0 P_HRulLeft equ 79 P_HRulOffset equ 79 P_VRulWdth equ 39 P_VRulLength equ 200 P_VRulLeft equ 39 P_VRulTop equ P_HRulTop+P_HRulWdth P_TabWTop equ P_HRulTop P_TabWBottom equ P_VRulTop P_TabWLeft equ P_VRulLeft P_TabWRight equ P_HRulLeft V_NUM EQU 42 H_NUM EQU 7 MIN_V_NPIX EQU 8 MIN_H_NPIX EQU 20 ; From PICON.s ---------- P_MaxVisPages equ 5 P_ControlWidth equ 18 P_PageWidth equ 26 P_SpaceWidth equ 5 ;------------------------------------------ ; ; Equates from procedure P_ObjData ; ;------------------------------------------ P_ARROW EQU 0 P_ALPHA EQU 1 P_PAGETOOL EQU 2 P_DATETOOL EQU 3 P_STRLINE EQU 4 P_LINE EQU 5 P_RECTANGLE EQU 6 P_ROUNDRECT EQU 7 P_CIRCLE EQU 8 P_PICTURE EQU 9 P_MOVEMENT EQU 10 ; when you're dragging objects about... P_Next equ 0 ; This must be the first field P_Prev equ 4 ; Previous object P_Type equ 8 ; The object type P_Selected equ 10 ; Object is selected P_Deleted equ 12 ; True if object has been deleted P_UndoData equ 14 ; Used by undo P_ObjRect equ 16 ; Object rectangle P_RTop equ 16 P_RLeft equ 18 P_RBottom equ 20 P_RRight equ 22 P_TRect equ 24 P_PageNo equ 32 P_ParagHdl equ 34 P_NThread equ 38 P_PThread equ 42 P_StartParag equ 46 P_StartLine equ 48 P_EndParag equ 50 P_EndLine equ 52 P_ThreadNo equ 54 ;Number in the thread P_TextObjSize equ 56 P_ObjColor equ 24 P_PenSize equ 26 P_ObjFilled equ 28 P_ItemColor equ 24 ; Same equate as P_ObjColor P_ItemFontID equ 26 P_ItemJust equ 30 P_CopyPage equ 32 ; Page number copied from P_PictRect equ 24 ; Same offset as TextRect P_PictHandle equ 32 PL_SelRect equ 0 PL_DeselectAll equ 1 PL_SelectAll equ 2 PL_FixTObj equ 3 PL_OffsetObj equ 4 PL_AddUpdate equ 5 PL_ClrUndoData equ 6 PL_SetUndoData equ 7 PL_CpyUndoData equ 8 P_FillAttr equ 0 P_PenSizeAttr equ 1 P_ColorAttr equ 2 P_FontAttr equ 3 P_StyleAttr equ 4 P_SizeAttr equ 5 P_TLHdl equ 1 ; Top Left P_BRHdl equ 2 ; Bottom Right P_BLHdl equ 3 ; Bottom Left P_TRHdl equ 4 ; TopRight ;------------------------------------------ ; ; Equates from procedure T_Data ; ;------------------------------------------ T_FontFl equ 1<<0 T_StyleFl equ 1<<1 T_SizeFl equ 1<<2 T_ColorFl equ 1<<3 ;------------------------------------------ ; ; Equates from procedure T_TextEqu ; ;------------------------------------------ ; Paragraph Info ; All the equs are offset by two bytes to make up for the paragraph count ; at the beginning of the paragraph array. T_ParagCount EQU 0 T_TextBlock EQU 2 T_ParOffset EQU 6 T_ParStart EQU 8 T_RulerHdl EQU 10 T_ParHeight EQU 14 T_LinesHdl EQU 16 T_LineCount EQU 20 T_ObjHdl EQU 22 T_ParInfoSize EQU 24 ;This is correct!! T_ParsUsing EQU 0 T_RulBits EQU 2 T_NotUsed EQU 4 T_TabCount EQU 6 T_Indent EQU 8 T_TabArray EQU 12 T_RulerInfoSize EQU 52 T_Offset EQU 0 T_Length EQU 2 T_LineWidth EQU 4 T_Ascent EQU 6 T_Descent EQU 7 T_LineInfoSize EQU 8 T_DefDataSize EQU 12 T_BlockHdrSize EQU 4 ; Size of the header T_BlockSize EQU 0 T_TextSize EQU 2 T_ParFont EQU 0 T_ParStyle EQU 2 T_ParSize EQU 3 T_ParColor EQU 4 T_ParHeader EQU 7 T_FontChange EQU 1 T_StyleChange EQU 2 T_SizeChange EQU 3 T_ColorChange EQU 4 T_MaxChange EQU 7 T_Single EQU 1<<0 T_Double EQU 1<<1 T_Triple EQU 1<<2 T_Widow EQU 1<<3 T_Left EQU 1<<4 T_Center EQU 1<<5 T_Right EQU 1<<6 T_Full EQU 1<<7 T_GetCustSpace EQU $3f ;Use on upper byte T_CustSpace EQU 1<<14 T_MarkBit EQU 1<<15 T_AllSpacing EQU T_Single+T_Double+T_Triple+T_CustSpace T_NoSpacing EQU T_Left+T_Center+T_Right+T_Full T_AllJust EQU T_Left+T_Center+T_Right+T_Full T_NoJust EQU $ffff-T_AllJust T_KillWidow EQU $ffff-T_Widow T_ClearMark EQU $ffff-T_MarkBit T_DecTab EQU -1 T_LeftTab EQU 0 T_RightTab EQU 1 T_IndentTab EQU 3 T_ChangeSpace EQU 0 T_ChangeJust EQU 1 T_ChangeIndent EQU 2 T_ChangeTabs EQU 3 T_FirstLine EQU 1<<0 T_LastLine EQU 1<<1