antoine-source/appleworksgs/PL/PL.equ
2023-03-04 03:45:20 +01:00

1 line
6.7 KiB
Plaintext
Executable File

;------------------------------------------
;
; 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