mirror of
https://github.com/antoinevignau/source.git
synced 2024-11-19 22:31:52 +00:00
1 line
6.7 KiB
Plaintext
Executable File
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
|