Apple-2-SW
/
antoine-source
mirror of https://github.com/antoinevignau/source.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
antoine-source/appleworksgs/PL/Src/pdata.s

1 line
23 KiB
ArmAsm
Executable File
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

load 'macros.dump'
include 'driver.equ'
;-----------------------------------------------
;
; Imported addresses
;
;-----------------------------------------------
IMPORT P_BringFront,P_SendBack
IMPORT P_ChangeAll,P_DoFont
IMPORT P_ChgGuideMag,P_GotoPage,P_SetPageNo
IMPORT P_ChgGuideVis,P_SetGuides,P_ChgGuideLock
IMPORT P_ChgTemplate,P_ChgTmplCount
IMPORT P_ChgView,P_ChgPalVis,P_ChgRulerVis
IMPORT P_DoColor
IMPORT P_DoSize
IMPORT P_DoStyle,T_Upper,T_Lower,T_Capit
IMPORT P_FlipHoriz,P_FlipVert
IMPORT P_InsertPages,P_DeletePage
IMPORT P_Left,P_Center,P_Right,P_Full
IMPORT P_RotateLeft,P_RotateRight
IMPORT P_SelectAll,P_Duplicate
IMPORT P_SetSpacing
IMPORT P_SingleSpace,P_DoubleSpace,P_TripleSpace
IMPORT P_KillLMasterStr,P_CancelStr,P_OKStr,P_InsText1Msg
IMPORT P_InsText2Msg,P_RCtlMsg1,P_RCtlMsg2,P_RCtlMsg3
IMPORT P_DelText1Msg,P_DelText2Msg,P_GotoTextMsg
IMPORT P_PNumMsg,P_LRMsg,P_TBMsg,P_ColMsg,P_CSMsg
;-----------------------------------------------
;
; Forward addresses and entries
;
;-----------------------------------------------
ENTRY P_0Msg
ENTRY P_25Msg
ENTRY P_5Msg
ENTRY P_ArrangeMenu
ENTRY P_CS_25
ENTRY P_Col_1
ENTRY P_Col_1Msg
ENTRY P_Col_2Msg
ENTRY P_ColorMenuTab
ENTRY P_DPagesFr
ENTRY P_ExEditList
ENTRY P_FontMenuTab
ENTRY P_GotoOK
ENTRY P_InchMsg
ENTRY P_InitCol
ENTRY P_InitMarg
ENTRY P_InsOK
ENTRY P_InsText2
ENTRY P_LRTxt
ENTRY P_LR_25
ENTRY P_LR_LE
ENTRY P_MLastBList
ENTRY P_MenuBitList
ENTRY P_MenuList
ENTRY P_MenuProcList
ENTRY P_OptionsMenu
ENTRY P_Pages1
ENTRY P_Pages2
ENTRY P_Pages3
ENTRY P_Pages4
ENTRY P_PagesPN
ENTRY P_SampTitle
ENTRY P_SelAll
ENTRY P_SgAdd
ENTRY P_SwinEND
ENTRY P_TB_25
ENTRY P_TextMenu
EXPORT P_NoUndo
EXPORT P_ID,P_VNum,P_VersNum
EXPORT P_FillUndo,P_PenSizeUndo,P_MoveUndo,P_CropUndo,P_StretchUndo
EXPORT P_FontUndo,P_FontIDUndo,P_StyleUndo,P_SizeUndo,P_ColorUndo
EXPORT P_ClearTextUndo,P_CUtTextUndo,P_ClearObjUndo,P_CutObjUndo
EXPORT P_TypeUndo,P_GuideUndo
EXPORT LightGray,DarkGray,LightGrey,DarkGrey,CheckMark
EXPORT P_FrontBit,P_BackBit,P_FlipHBit,P_FlipVBit,P_RotLBit,P_RotRBit
EXPORT P_DefaultArrange,P_AllArrange,P_ObjArrange
EXPORT P_ViewPageBit,P_HidePaletteBit,P_HideRulerBit,P_HideGuideBit,P_SetGuideBit,P_LockGuideBit,P_MagGuideBit,P_GoToPageBit,P_SetNumBit,P_UseTempBit,P_DblPageBit
EXPORT P_AllOptions,P_DefaultOpt
EXPORT P_ViewPageItem,P_HidePaletteItem,P_HideRulerItem,P_HideGuideItem,P_SetGuideItem,P_LockGuideItem,P_MagGuideItem,P_GotoPageItem,P_SetNumItem,P_UseTempItem,P_DblPageItem
EXPORT P_AllText,P_DefaultText
EXPORT P_LeftBit,P_CenterBit,P_RightBit,P_FullBit,P_SingleSpBit,P_1_5SpBit,P_DoubleSpBit,P_SetSpBit
EXPORT P_LeftItem,P_CenterItem,P_RightItem,P_FullItem,P_SingleItem,P_DoubleItem,P_TripleItem,P_SetSItem
EXPORT P_DefaultEdit,P_ObjEdit,P_TextEdit,P_EditAll
EXPORT P_SelectAllBit,P_DuplicateBit,P_InsertBit,P_DeleteBit
EXPORT P_MinHeight
EXPORT P_MaxPages
EXPORT P_MenuColor,P_MenuStyle,P_MenuSize,P_MenuFont,P_MenuFormat,P_MenuArrange,P_MenuOptions,P_MenuEdit,P_MenuFile,P_MenuApple
EXPORT MargGuide,ColGuide,RulerGuide
EXPORT P_MaxTabCount,P_LeftTab,P_DecimalTab,P_RightTab,P_IndentTab,P_MinTabDist
EXPORT P_ALPHA,P_ARROW,P_BLHDL,P_BRHDL,P_CIRCLE,P_COLORATTR,P_DATETOOL,P_DELETED,P_ENDLINE
EXPORT P_ENDPARAG,P_FONTATTR,P_ITEMCOLOR,P_ITEMFONTID,P_LINE,P_MOVEMENT,P_NEXT,P_NTHREAD
EXPORT P_OBJCOLOR,P_OBJFILLED,P_OBJRECT,P_PAGENO,P_PAGETOOL,P_PARAGHDL,P_PENSIZE,P_PICTHANDLE
EXPORT P_PICTRECT,P_PICTURE,P_PREV,P_PTHREAD,P_RECTANGLE,P_RLEFT,P_RRIGHT,P_SELECTED
EXPORT P_SIZEATTR,P_STARTLINE,P_STARTPARAG,P_STRLINE,P_STYLEATTR,P_TEXTOBJSIZE,P_TLHDL
EXPORT P_TRECT,P_TRHDL,P_TYPE,P_UNDODATA
EXPORT PL_SelRect,PL_DeselectAll,PL_SelectAll,PL_FixTObj,PL_OffsetObj
EXPORT PL_AddUpdate,PL_ClrUndoData,PL_SetUndoData,PL_CpyUndoData
include 'pl.equ'
P_ATTRData PROC EXPORT
EXPORT P_AttrTable
EXPORT P_MenuList
EXPORT P_ArrangeMenu
EXPORT P_OptionsMenu
EXPORT P_VPage
EXPORT P_HPalette
EXPORT P_HRulers
EXPORT P_HGuides
EXPORT P_SetGuidez
EXPORT P_LGuides
EXPORT P_MGuides
EXPORT P_Go2Page
EXPORT P_SetNum
EXPORT P_NTemplate
EXPORT P_SPTempl
EXPORT P_NPage
EXPORT P_SPalette
EXPORT P_SRulers
EXPORT P_SGuides
EXPORT P_ULGuides
EXPORT P_UTemplate
EXPORT P_DPTempl
EXPORT P_TextMenu
EXPORT P_ExEditList
EXPORT P_SelAll
EXPORT P_Dup
EXPORT P_InstPg
EXPORT P_DelPg
EXPORT P_MenuBitList
EXPORT P_MLastBList
EXPORT P_MenuProcList
EXPORT P_ArrangeMenuTab
EXPORT P_FontMenuTab
EXPORT P_SizeMenuTab
EXPORT P_StyleMenuTab
EXPORT P_ColorMenuTab
EXPORT P_ExEditTable
EXPORT P_OptMenutab
EXPORT P_FmtMenuTab
EXPORT P_SampTitle
P_AttrTable
DC.L P_MenuList ;list of applications menus
DC.L P_MenuProcList ;ptrs to procs for each menu
DC.L P_MenuBitList ;bit descriptions of above]
DC.L P_MLastBList ;the last menu bit*2 for each menu
DC.L P_ExEditList ;extra edit items, can be 0
DC.L 0 ;default undo string, can be 0
DC.L P_SampTitle
DC.W 0 ; no buttons
DS.B 8 ; no button space
P_SampTitle str ' (PL) '
; menus are inserted backwards
P_MenuList
DC.L ColorMenu+9 ;menu 9
DC.L StyleMenu+8 ;menu 8
DC.L SizeMenu+7 ;menu 7
DC.L FontMenu+6 ;menu 6
DC.L P_TextMenu ;menu 5
DC.L P_ArrangeMenu ;menu A
DC.L P_OptionsMenu ;menu 4
; Edit Menu 3
; File Menu 2
; <09> Menu 1
DC.L 0
P_ArrangeMenu
DC.B '> Arrange \N10'
DC.B cr
DC.B ' Bring to Front\*+=H'
DC.W $A01
DC.B cr
DC.B ' Send to Back\*-_VH'
DC.W $A02
DC.B cr
DC.B ' Flip Horizontal\H'
DC.W $A03
DC.B cr
DC.B ' Flip Vertical\H'
DC.W $A04
DC.B cr
DC.B ' Rotate Left\H'
DC.W $A05
DC.B cr
DC.B ' Rotate Right\H'
DC.W $A06
DC.B cr
DC.B '.'
P_OptionsMenu
DC.B '> Options \N4'
DC.B cr
P_VPage DC.B ' Fit in Window\*WwVH'
DC.W $401
DC.B cr
P_HPalette DC.B ' Hide Tools\H'
DC.W $402
DC.B cr
P_HRulers DC.B ' Hide Rulers\H'
DC.W $403
DC.B cr
P_HGuides DC.B ' Hide Guides\VH'
DC.W $404
DC.B cr
P_SetGuidez DC.B ' Set Guides<EFBFBD>\H'
DC.W $405
DC.B cr
P_LGuides DC.B ' Lock Guides\H'
DC.W $406
DC.B cr
P_MGuides DC.B ' Magnetic Guides\VH'
DC.W $407
DC.B cr
P_Go2Page DC.B ' Go to page<EFBFBD>\*GgH'
DC.W $408
DC.B cr
P_SetNum DC.B ' Set First Page<EFBFBD>\VH'
DC.W $409
DC.B cr
P_NTemplate DC.B ' Ignore Master Page\H'
DC.W $40A
DC.B cr
P_SPTempl DC.B ' Single Master Page\H'
DC.W $40B
DC.B cr
DC.B '.'
P_NPage DC.B ' Actual Size\*WwVH'
DC.W $401
DC.B cr
P_SPalette DC.B ' Show Tools\H'
DC.W $402
DC.B cr
P_SRulers DC.B ' Show Rulers\H'
DC.W $403
DC.B cr
P_SGuides DC.B ' Show Guides\VH'
DC.W $404
DC.B cr
P_ULGuides DC.B ' Unlock Guides\H'
DC.W $406
DC.B cr
P_UTemplate DC.B ' Use Master Page\H'
DC.W $40A
DC.B cr
P_DPTempl DC.B ' Left/Right Master Pages\H'
DC.W $40B
DC.B cr
P_TextMenu
DC.B '> Text \N5'
DC.B cr
DC.B ' Left\CH'
DC.W $501
DC.B cr
DC.B ' Center\H'
DC.W $502
DC.B cr
DC.B ' Right\H'
DC.W $503
DC.B cr
DC.B ' Full\VH'
DC.W $504
DC.B cr
DC.B ' Single Space\CH'
DC.W $505
DC.B cr
DC.B ' 1-1/2 Space\H'
DC.W $506
DC.B cr
DC.B ' Double Space\H'
DC.W $507
DC.B cr
DC.B ' Set Spacing<EFBFBD>\H'
DC.W $508
DC.B cr
DC.B '.'
P_ExEditList DC.L P_SelAll,P_Dup,P_InstPg,P_DelPg,0
P_SelAll DC.B ' Select All\*AaH'
DC.W ExEditStart
DC.B cr
P_Dup DC.B ' Duplicate\*DdVH'
DC.W ExEditStart+1
DC.B cr
P_InstPg DC.B ' Insert Page(s)<EFBFBD>\H'
DC.W ExEditStart+2
DC.B cr
P_DelPg DC.B ' Delete Page(s)<EFBFBD>\H'
DC.W ExEditStart+3
DC.B cr
P_MenuBitList
DS.B 4 ; skips zero and one
DC.W FileStandard ; file menu
DC.W P_DefaultEdit
DC.W P_DefaultOpt
DC.W P_DefaultText
DC.W 1 ; font menu
DC.W 1 ; size menu
DC.W 1 ; style menu
DC.W 1 ; color menu
DC.W P_DefaultArrange
P_MLastBList
DS.B 4 ;skip menu0 D_Menu1
DC.W QuitBit<<1
DC.W P_DeleteBit<<1
DC.W P_DblPageBit<<1
DC.W P_SetSpBit<<1
DC.W 0
DC.W 0
DC.W 0
DC.W 0
DC.W P_RotRBit<<1
P_MenuProcList DC.L 0,0,P_ExEditTable,P_OptMenuTab,P_FmtMenuTab
DC.L P_FontMenuTab,P_SizeMenuTab,P_StyleMenuTab
DC.L P_ColorMenuTab,P_ArrangeMenuTab
P_ArrangeMenuTab DC.L P_BringFront,P_SendBack
DC.L P_FlipHoriz,P_FlipVert
DC.L P_RotateLeft,P_RotateRight
P_FontMenuTab DC.L P_ChangeAll,P_DoFont
P_SizeMenuTab DC.L P_DoSize,0,0
P_StyleMenuTab DC.L P_DoStyle,T_Upper,T_Lower,T_Capit
P_ColorMenuTab DC.L P_DoColor
P_ExEditTable DC.L 0,0,0,0,0
DC.L P_SelectAll,P_Duplicate
DC.L P_InsertPages,P_DeletePage
P_OptMenutab DC.L P_ChgView,P_ChgPalVis,P_ChgRulerVis
DC.L P_ChgGuideVis,P_SetGuides,P_ChgGuideLock
DC.L P_ChgGuideMag,P_GotoPage,P_SetPageNo
DC.L P_ChgTemplate,P_ChgTmplCount
P_FmtMenuTab DC.L P_Left,P_Center,P_Right,P_Full
DC.L P_SingleSpace,P_DoubleSpace,P_TripleSpace
DC.L P_SetSpacing
ENDP
;---------------------------------------------------------------------------
P_Data PROC EXPORT
EXPORT P_SwinParams
EXPORT P_Plane
EXPORT P_SwinEND
EXPORT P_WindColors
EXPORT P_FrameColor
EXPORT P_TitleColor
EXPORT P_TBarColor
EXPORT P_GrowColor
EXPORT P_InfoBarColor
EXPORT P_HScrTempl
EXPORT P_HValue
EXPORT P_HViewSize
EXPORT P_HDataSize
EXPORT P_VScrTempl
EXPORT P_VValue
EXPORT P_VViewSize
EXPORT P_VDataSize
EXPORT P_PageDlog
EXPORT P_InsOK
EXPORT P_InsCancel
EXPORT P_InsText1
EXPORT P_InsText2
EXPORT P_InsPgCnt
EXPORT P_Pages1
EXPORT P_RCtl1
EXPORT P_RCtl2
EXPORT P_RCtl3
EXPORT P_DPageDlog
EXPORT P_DelOK
EXPORT P_DelCancel
EXPORT P_DelText1
EXPORT P_DelText2
EXPORT P_DPagesTo
EXPORT P_Pages3
EXPORT P_DPagesFr
EXPORT P_Pages4
EXPORT P_Go2PDlog
EXPORT P_GotoOK
EXPORT P_GotoCancel
EXPORT P_GotoText
EXPORT P_GotoPgCnt
EXPORT P_Pages2
EXPORT P_PNumDlog
EXPORT P_PNumText
EXPORT P_PNumCnt
EXPORT P_PagesPN
EXPORT P_SGuideDlog
EXPORT P_SgAdd
EXPORT P_SgCancel
EXPORT P_LR_LE
EXPORT P_InitMarg
EXPORT P_TB_LE
EXPORT P_Col_LE
EXPORT P_InitCol
EXPORT P_CS_LE
EXPORT P_LR_25
EXPORT P_25Msg
EXPORT P_LR_5
EXPORT P_5Msg
EXPORT P_LR_0
EXPORT P_InchMsg
EXPORT P_TB_25
EXPORT P_TB_5
EXPORT P_TB_0
EXPORT P_Col_1
EXPORT P_Col_1Msg
EXPORT P_Col_2
EXPORT P_Col_2Msg
EXPORT P_Col_0
EXPORT P_0Msg
EXPORT P_CS_25
EXPORT P_CS_5
EXPORT P_CS_0
EXPORT P_LRTxt
EXPORT P_TBTxt
EXPORT P_ColTxt
EXPORT P_CSTxt
EXPORT P_LineRects
EXPORT P_Mask
EXPORT P_TrackMaskVert
EXPORT P_TrackMaskHorz
EXPORT P_CurrentWin
EXPORT P_NotActive
EXPORT P_Placing
EXPORT P_ImportType
EXPORT P_ImportHdl
EXPORT P_ThreadHdl
EXPORT P_ThreadDir
EXPORT P_HotRect
EXPORT P_SpecStr
EXPORT P_OldClip
EXPORT P_NewClip
EXPORT P_Pattern
EXPORT P_OldIdlePt
EXPORT P_PastePt
EXPORT P_Header
EXPORT P_Version
EXPORT P_WindowStuff
EXPORT P_Palette
EXPORT P_TrackOn
EXPORT P_LineSize
EXPORT P_FillMode
EXPORT P_VisRuler
EXPORT P_VisPalette
EXPORT P_PageMode
EXPORT P_Cursor
EXPORT P_ToolType
EXPORT P_DblPage
EXPORT P_PageCount
EXPORT P_PageArray
EXPORT P_Page
EXPORT P_FirstPOff
EXPORT P_PageStart
EXPORT P_PrintHand
EXPORT P_PageRect
EXPORT P_PaperRect
EXPORT P_FullPageRect
EXPORT P_FullPaperRect
EXPORT P_HRulRect
EXPORT P_VRulRect
EXPORT P_OrgOffset
EXPORT P_V
EXPORT P_H
EXPORT P_VScroll
EXPORT P_HScroll
EXPORT P_ContentRect
EXPORT P_GrowRect
EXPORT P_PIconRect
EXPORT P_PortRect
EXPORT P_VisGuides
EXPORT P_LockGuides
EXPORT P_MagGuides
EXPORT P_DefSpacing
EXPORT P_DefJust
EXPORT P_DefFont
EXPORT P_DefStyle
EXPORT P_DefSize
EXPORT P_DefColor
EXPORT P_AllHGuides
EXPORT P_AllVGuides
EXPORT P_AllHGCount
EXPORT P_AllVGCount
EXPORT P_CurDate
EXPORT P_StoreV
EXPORT P_StoreH
EXPORT P_Reserved
EXPORT P_PageInfo
EXPORT P_ObjList
EXPORT P_LastObj
EXPORT P_VertGuides
EXPORT P_HorizGuides
EXPORT P_VertGCount
EXPORT P_HorizGCount
EXPORT P_UseTemplate
EXPORT P_EndofInfo
EXPORT P_HeaderSize,P_InfoSize,P_WinStuffSize,P_PInfoSize
P_DefaultWinTitle STR 'P'
P_SwinParams
DC.W P_SwinEND-P_SwinParams ; Parameter block length
DC.W fZoomed+fCtlTie+fQContent+fMove+fZoom+fFlex+fClose+fTitle
P_TitlePtr
DC.L P_DefaultWinTitle ; Title
DC.L 2 ; RefCon
DC.W P_WinTop,P_WinLeft ; Window 'full' size
DC.W P_WinTop+P_WinHeight,P_WinLeft+P_WinWidth
DC.L 0 ; Color table pointer (default)
DC.W 0,0 ; Effective TM origin
DC.W 180,0 ; DATA size (GUESS)
DC.W 0,0 ; Max content size (default)
DC.W 0,0 ; # scroll Pixels (GUESS)
DC.W 0,0 ; # page Pixels (GUESS)
DC.L 0 ; Info bar DATA (none)
DC.W 0 ; Info bar height (none)
DC.L 0 ; Frame defproc (default)
DC.L 0 ; Info bar defproc (none)
DC.L 0 ; Content defproc
DC.W P_WinTop,P_WinLeft
DC.W P_WinHeight+P_WinTop,P_WinWidth+P_WinLeft
P_Plane
DC.L $FFFFFFFF ; Starting plane (front)
DC.L 0 ; Address (any)
P_SwinEND
P_WindColors
P_FrameColor DS.B 2
P_TitleColor DS.B 2
P_TBarColor DS.B 2
P_GrowColor DS.B 2
P_InfoBarColor DS.B 2
DS.B 10
P_HScrTempl DC.W 0,0,0,0 ; these are filled in before use
DC.L 0
DC.W horScroll+leftFlag+rightFlag
P_HValue DC.W 0
P_HViewSize DC.W 5
P_HDataSize DC.W 20
DC.L scrollProc
DC.L 1
DC.L 0
P_VScrTempl DC.W 0,0,0,0 ; these are filled in before use
DC.L 0
DC.W downFlag+upFlag
P_VValue DC.W 0
P_VViewSize DC.W 5
P_VDataSize DC.W 20
DC.L scrollProc
DC.L 2
DC.L 0
;---------------------------------------------------------------------------
; Insert Pages Dialog
;
; 1 = OK
; 2 = Cancel
; 3 = 'Insert'
; 4 = pages
; 5 = 'page(s)'
; 6 = (<28>) at the beginning.
; 7 = (<28>) after the current page.
; 8 = (<28>) at the end.
P_PageDlog DC.W 48,185,136,462
DC.W 1 ; dialog is visible
DC.L 0
DC.L P_InsOK,P_InsCancel,P_InsText1,P_InsPgCnt
DC.L P_InsText2,P_RCtl1,P_RCtl2,P_RCtl3
DC.L 0 ; terminator
P_InsOK DC.W 1
DC.W 69,165,82,230
DC.W $000A
DC.L P_OKStr
DC.W 0
DC.W 0
DC.L 0
P_InsCancel DC.W 2
DC.W 69,40,82,105
DC.W $000A
DC.L P_CancelStr
DC.W 0
DC.W 0
DC.L 0
P_InsText1 DC.W 3
DC.W 10,60,23,110
DC.W $000F
DC.L P_InsText1Msg
DC.W 0
DC.W 0
DC.L 0
P_InsText2 DC.W 5
DC.W 10,156,23,216
DC.W $800F
DC.L P_InsText2Msg
DC.W 0
DC.W 0
DC.L 0
P_InsPgCnt DC.W 4
DC.W 8,114,21,150
DC.W $8011
DC.L P_Pages1
DC.W 3
DC.W 0
DC.L 0
P_Pages1 STR '1'
P_RCtl1 DC.W 6
DC.W 25,40,35,230
DC.W $000C
DC.L P_RCtlMsg1
DC.W 0
DC.W 0
DC.L 0
P_RCtl2 DC.W 7
DC.W 39,40,49,230
DC.W $000C
DC.L P_RCtlMsg2
DC.W 1 ; ON -- this is the default.
DC.W 0
DC.L 0
P_RCtl3 DC.W 8
DC.W 53,40,63,230
DC.W $000C
DC.L P_RCtlMsg3
DC.W 0
DC.W 0
DC.L 0
;---------------------------------------------------------------------------
; Delete Pages Dialog
;
; 1 = OK
; 2 = Cancel
; 3 = 'Delete pages'
; 4 = FromPage
; 5 = 'through'
; 6 = ToPage
P_DPageDlog DC.W 48,185,117,462
DC.W 1
DC.L 0
DC.L P_DelOK,P_DelCancel,P_DelText1
DC.L P_DPagesFr,P_DelText2,P_DPagesTo
DC.L 0
P_DelOK DC.W 1
DC.W 51,165,64,230
DC.W $000A
DC.L P_OKStr
DC.W 0
DC.W 0
DC.L 0
P_DelCancel DC.W 2
DC.W 51,40,64,105
DC.W $000A
DC.L P_CancelStr
DC.W 0
DC.W 0
DC.L 0
P_DelText1 DC.W 3
DC.W 10,86,23,191
DC.W $800F
DC.L P_DelText1Msg
DC.W 0
DC.W 0
DC.L 0
P_DelText2 DC.W 5
DC.W 27,107,40,163
DC.W $800F
DC.L P_DelText2Msg
DC.W 0
DC.W 0
DC.L 0
P_DPagesTo DC.W 6
DC.W 25,167,38,205
DC.W $8011
DC.L P_Pages3
DC.W 4
DC.W 0
DC.W 0
P_Pages3 STR '1'
P_DPagesFr DC.W 4
DC.W 25,65,38,103
DC.W $8011
DC.L P_Pages4
DC.W 4
DC.W 0
DC.W 0
P_Pages4 STR '1'
;---------------------------------------------------------------------------
; Goto Page Dialog
;
; 1 = OK
; 2 = Cancel
; 3 = 'Go to page'
; 4 = PageCount
P_Go2PDlog DC.W 48,185,101,462
DC.W 1
DC.L 0
DC.L P_GotoOK,P_GotoCancel,P_GotoText,P_GotoPgCnt
DC.L 0
P_GotoOK DC.W 1
DC.W 34,160,47,230
DC.W $000A
DC.L P_OKStr
DC.W 0
DC.W 0
DC.L 0
P_GotoCancel DC.W 2
DC.W 34,40,47,110
DC.W $000A
DC.L P_CancelStr
DC.W 0
DC.W 0
DC.L 0
P_GotoText DC.W 3
DC.W 10,80,23,161
DC.W $800F
DC.L P_GotoTextMsg
DC.W 0
DC.W 0
DC.L 0
P_GotoPgCnt DC.W 4
DC.W 8,165,21,203
DC.W $8011
DC.L P_Pages2
DC.W 4
DC.W 0
DC.W 0
P_Pages2 STR '1'
;---------------------------------------------------------------------------
; Set Page Number Dialog
;
; 1 = OK
; 2 = Cancel
; 3 = 'First page number:'
; 4 = PageCount
P_PNumDlog DC.W 48,185,101,462
DC.W 1
DC.L 0
DC.L P_GotoOK,P_GotoCancel,P_PNumText,P_PNumCnt
DC.L 0
P_PNumText DC.W 3
DC.W 10,40,23,175
DC.W $800F
DC.L P_PNumMsg
DC.W 0
DC.W 0
DC.L 0
P_PNumCnt DC.W 4
DC.W 8,179,21,217
DC.W $8011
DC.L P_PagesPN
DC.W 3
DC.W 0
DC.W 0
P_PagesPN STR '1'
DS.B 4 ; extra string space
;---------------------------------------------------------------------------
; Set Guides Dialog
;
; 1 = OK
; 2 = Cancel
;
; 4 = LR LineEdit
; 5 = TB LineEdit
; 6 = Col LineEdit
; 7 = CS LineEdit
;
; 8 = LR 0.25 inch
; 9 = 0.5 inch
; 10 = LE control
;
; 12 = TB 0.25 inch
; 13 = 0.5 inch
; 14 = LE control
;
; 16 = Col 1
; 17 = 2
; 18 = LE control
;
; 20 = CS 0.25 inch
; 21 = 0.5 inch
; 22 = LE control
;
; 24 = L/R Margins
; 25 = T/B Margins
; 26 = Columns
; 27 = Column Spacing
;
P_SGuideDlog DC.W 23,140,176,500
DC.W 1
DC.L 0
DC.L P_SgAdd,P_SgCancel
DC.L P_LR_LE,P_CS_LE,P_TB_LE,P_Col_LE
DC.L P_LR_25,P_LR_5,P_LR_0
DC.L P_TB_25,P_TB_5,P_TB_0
DC.L P_Col_1,P_Col_2,P_Col_0
DC.L P_CS_25,P_CS_5,P_CS_0
DC.L P_LRTxt,P_TBTxt,P_ColTxt,P_CSTxt
DC.L 0
; ; Buttons
P_SgAdd DC.W 1
DC.W 131,220,144,305
DC.W buttonItem
DC.L P_OKStr
DC.W 0
DC.W 0
DC.L 0
P_SgCancel DC.W 2
DC.W 131,50,144,135
DC.W buttonItem
DC.L P_CancelStr
DC.W 0
DC.W 0
DC.L 0
; ; LineEdits
P_LR_LE DC.W 4
DC.W 47,76,60,116
DC.W editLine
DC.L P_InitMarg
DC.W 4
DC.W 0
DC.W 0
P_InitMarg STR '1.0'
P_TB_LE DC.W 5
DC.W 107,76,120,116
DC.W editLine
DC.L P_InitMarg
DC.W 4
DC.W 0
DC.W 0
P_Col_LE DC.W 6
DC.W 47,256,60,276
DC.W editLine
DC.L P_InitCol
DC.W 1
DC.W 0
DC.W 0
P_InitCol STR '3'
P_CS_LE DC.W 7
DC.W 107,256,120,296
DC.W editLine
DC.L P_InitMarg
DC.W 4
DC.W 0
DC.W 0
; ; Radio Controls
P_LR_25 DC.W 8
DC.W 23,50,33,155
DC.W radioItem
DC.L P_25Msg
DC.W 1
DC.W 8
DC.L 0
P_25Msg STR '0.25 inch'
P_LR_5 DC.W 9
DC.W 36,50,46,155
DC.W radioItem
DC.L P_5Msg
DC.W 0
DC.W 8
DC.L 0
P_5Msg STR '0.5 inch'
P_LR_0 DC.W 10
DC.W 49,50,59,155
DC.W radioItem
DC.L P_InchMsg
DC.W 0
DC.W 8
DC.L 0
P_InchMsg STR ' inch'
P_TB_25 DC.W 12
DC.W 83,50,93,155
DC.W radioItem
DC.L P_25Msg
DC.W 1
DC.W 12
DC.L 0
P_TB_5 DC.W 13
DC.W 96,50,106,155
DC.W radioItem
DC.L P_5Msg
DC.W 0
DC.W 12
DC.L 0
P_TB_0 DC.W 14
DC.W 109,50,119,155
DC.W radioItem
DC.L P_InchMsg
DC.W 0
DC.W 12
DC.L 0
P_Col_1 DC.W 16
DC.W 23,230,33,295
DC.W radioItem
DC.L P_Col_1Msg
DC.W 1
DC.W 16
DC.L 0
P_Col_1Msg STR '1'
P_Col_2 DC.W 17
DC.W 36,230,46,295
DC.W radioItem
DC.L P_Col_2Msg
DC.W 0
DC.W 16
DC.L 0
P_Col_2Msg STR '2'
P_Col_0 DC.W 18
DC.W 49,230,59,255
DC.W radioItem
DC.L P_0Msg
DC.W 0
DC.W 16
DC.L 0
P_0Msg DC.B 0
P_CS_25 DC.W 20
DC.W 83,230,93,335
DC.W radioItem
DC.L P_25Msg
DC.W 1
DC.W 20
DC.L 0
P_CS_5 DC.W 21
DC.W 96,230,106,335
DC.W radioItem
DC.L P_5Msg
DC.W 0
DC.W 20
DC.L 0
P_CS_0 DC.W 22
DC.W 109,230,119,335
DC.W radioItem
DC.L P_InchMsg
DC.W 0
DC.W 20
DC.L 0
; ; Static Text
P_LRTxt DC.W 24
DC.W 10,30,23,190
DC.W $800F
DC.L P_LRMsg
DC.W 0
DC.W 0
DC.L 0
P_TBTxt DC.W 25
DC.W 70,30,83,190
DC.W $800F
DC.L P_TBMsg
DC.W 0
DC.W 0
DC.L 0
P_ColTxt DC.W 26
DC.W 10,215,23,275
DC.W $800F
DC.L P_ColMsg
DC.W 0
DC.W 0
DC.L 0
P_CSTxt DC.W 27
DC.W 70,215,83,340
DC.W $800F
DC.L P_CSMsg
DC.W 0
DC.W 0
DC.L 0
; Various non-refcon globals
P_LineRects DC.W 96,1,101,35 ;BOGUS
DC.W 100,1,106,35
DC.W 105,1,112,35
DC.W 111,1,119,35
DC.W 118,1,127,35
DC.W 126,1,136,35
DC.W 135,1,146,35
P_Mask DC.B %11001100
DC.B %00110011
DC.B %11001100
DC.B %00110011
DC.B %11001100
DC.B %00110011
DC.B %11001100
DC.B %00110011
P_TrackMaskVert DC.B %00000000
DC.B %11111111
DC.B %00000000
DC.B %11111111
DC.B %00000000
DC.B %11111111
DC.B %00000000
DC.B %11111111
P_TrackMaskHorz DC.B %01100110
DC.B %01100110
DC.B %01100110
DC.B %01100110
DC.B %01100110
DC.B %01100110
DC.B %01100110
DC.B %01100110
; Various equates
; Globals and refcon data
P_CurrentWin DS.B 4 ; Always reflects the window whose refcon data
; ; is on board
P_NotActive DS.B 2 ; Don't fuck with the menus because I'm not active
P_Placing DS.B 2 ; boolean
P_ImportType DS.B 2 ; 0 - Text, 1 - picture
P_ImportHdl DS.B 4 ; For Text, this is a ParagHdl.
P_ThreadHdl DS.B 4 ; Object to thread to.
P_ThreadDir DS.B 4 ; Direction threading
P_HotRect DS.B 8 ; Used for hot copy
P_SpecStr DS.B 40 ; Used for page and date string building
P_OldClip DS.B 4 ; Temp clip rgn handle
P_NewClip DS.B 4 ; Temp clip rgn handle
P_Pattern DS.B 32
P_OldIdlePt DC.W -20,-20 ; way off screen
P_PastePt DC.W -20,-20 ; Where to center the next paste
P_Header
;-------------------
P_Version DC.W P_VersNum
P_WindowStuff
;-------------------
P_Palette DS.B 8 ; rectangle of selected palette tool
DS.B 4 ; old title ptr space
P_TrackOn DS.B 2
P_LineSize DS.B 2 ; pixel height of drawing Line
P_FillMode DS.B 2 ; bool - graphic objects filled/hollow
P_VisRuler DS.B 2 ; bool - Ruler is visible?
P_VisPalette DS.B 2 ; bool - Palette is visible?
P_PageMode DS.B 2 ; bool - viewing page?
P_Cursor DS.B 2 ; current D_Cursor (over content Rect)
P_ToolType DS.B 2 ; tool chosen from palette (0-6)
P_DblPage DS.B 2 ; bool - template page mode
P_PageCount DS.B 2 ; # pages (1-32767)
P_PageArray DS.B 4 ; Handle to array of page infos.
P_Page DS.B 2 ; Active Page #
P_FirstPOff DS.B 2 ; Offset from actual page to user page #.
P_PageStart DS.B 2 ; First visible page icon
P_PrintHand DS.B 4 ; Handle to print record
P_PageRect DS.B 8 ; Rect with printable interior
P_PaperRect DS.B 8 ; Actual size of the damn piece of paper.
P_FullPageRect DS.B 8 ; Rect of full page when viewing entire page
P_FullPaperRect DS.B 8 ; Rect of full paper when viewing entire page
P_HRulRect DS.B 8 ; Horizontal Ruler rectangle
P_VRulRect DS.B 8 ; Vertical Ruler rectangle
P_OrgOffset ; ; pt.
P_V DS.B 2 ; Vertical offset for scrolling (neg)
P_H DS.B 2 ; Horizontal offset for scrolling (neg)
P_VScroll DS.B 4 ; Ctl Handle
P_HScroll DS.B 4 ; Ctl Handle
P_ContentRect DS.B 8 ; Visible area of document within window
P_GrowRect DS.B 8
P_PIconRect DS.B 8
P_PortRect DS.B 8
P_VisGuides DS.B 2
P_LockGuides DS.B 2
P_MagGuides DS.B 2
P_DefSpacing DS.B 2 ; Default Text spacing
P_DefJust DS.B 2 ; Default Text justification
P_DefFont DS.B 2 ; Default font family
P_DefStyle DS.B 2 ; Default style
P_DefSize DS.B 2 ; Default size
P_DefColor DS.B 2 ; Default color
P_AllHGuides DS.B 4
P_AllVGuides DS.B 4
P_AllHGCount DS.B 2
P_AllVGCount DS.B 2
P_CurDate DS.B 4
P_StoreV DS.B 2
P_StoreH DS.B 2
P_Reserved DS.B 16
P_PageInfo ; ; current page info.
;-------------------
P_ObjList DS.B 4 ; Beginning of object linked list
P_LastObj DS.B 4 ; Ending of object linked list
P_VertGuides DS.B 4
P_HorizGuides DS.B 4
P_VertGCount DS.B 2
P_HorizGCount DS.B 2
P_UseTemplate DS.B 2 ; bool
P_EndofInfo
P_PINFOSIZE equ P_EndofInfo-P_PageInfo
P_WINSTUFFSIZE equ P_EndofInfo-P_WindowStuff
P_HEADERSIZE equ P_EndofInfo-P_Header
ENDP
END
Reference in New Issue View Git Blame Copy Permalink