mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-22 14:30:24 +00:00
1 line
3.0 KiB
Plaintext
Executable File
1 line
3.0 KiB
Plaintext
Executable File
load 'macros.dump'
|
|
include 'driver.equ'
|
|
include 'scrap.equ'
|
|
|
|
;**********************************************************************
|
|
;
|
|
; X_ClipData
|
|
;
|
|
;**********************************************************************
|
|
|
|
X_ClipData RECORD EXPORT
|
|
EXPORT X_CurrentParRecord
|
|
EXPORT X_BHand
|
|
EXPORT X_BOffset
|
|
EXPORT X_BAttr
|
|
EXPORT X_BRuler
|
|
EXPORT X_BPixels
|
|
EXPORT X_BLine
|
|
EXPORT X_BLast
|
|
EXPORT X_EndBlock
|
|
EXPORT X_PageBreakPar
|
|
EXPORT X_CurrentRuler
|
|
EXPORT X_RReserved
|
|
EXPORT X_RStatus
|
|
EXPORT X_RLeftMargin
|
|
EXPORT X_RIndent
|
|
EXPORT X_RRightMargin
|
|
EXPORT X_RNumTabs
|
|
EXPORT X_RTabList
|
|
EXPORT X_REndRuler
|
|
EXPORT X_ScrStdRuler
|
|
EXPORT X_ScrStdTabList
|
|
EXPORT X_SWorksTypes
|
|
EXPORT X_WPScTypes
|
|
EXPORT X_SSScTypes
|
|
EXPORT X_DBScTypes
|
|
EXPORT X_PLScTypes
|
|
EXPORT X_GRScTypes
|
|
EXPORT X_CMScTypes
|
|
EXPORT X_ScrListTable
|
|
EXPORT X_ScrapType
|
|
EXPORT X_ScrapRefCon
|
|
EXPORT X_CacheType
|
|
EXPORT X_CacheRefcon
|
|
EXPORT X_DiScrap
|
|
EXPORT X_BogusType
|
|
EXPORT X_DefHeader
|
|
EXPORT X_OldCursor
|
|
EXPORT X_CantImportStr
|
|
EXPORT X_AWIndent
|
|
EXPORT X_AWLeftMargin
|
|
export X_ParBlockSize
|
|
export X_TabBlockSize
|
|
export X_RulerSize
|
|
export X_scr_or_EndRulRec
|
|
export X_CurHeader
|
|
|
|
X_SWorksTypes
|
|
DC.W SWText
|
|
DC.W WPText
|
|
DC.W StaticText
|
|
DC.W PICT
|
|
DC.W PLPict
|
|
DC.W GRPict
|
|
DC.W AsciiText
|
|
DC.W SSScrap
|
|
DC.W DBScrap
|
|
DC.W 0
|
|
|
|
X_WPScTypes
|
|
DC.W WPText
|
|
DC.W 0
|
|
|
|
X_SSScTypes
|
|
DC.W SSScrap
|
|
DC.W 0
|
|
|
|
X_DBScTypes
|
|
DC.W DBScrap
|
|
DC.W AsciiText
|
|
DC.W StaticText
|
|
DC.W PICT
|
|
DC.W WPText
|
|
DC.W SSScrap
|
|
DC.W 0
|
|
|
|
X_PLScTypes
|
|
DC.W WPText
|
|
DC.W PICT
|
|
DC.W PLPict
|
|
DC.W 0
|
|
|
|
X_GRScTypes
|
|
DC.W GRPict
|
|
DC.W PICT
|
|
DC.W StaticText
|
|
DC.W 0
|
|
|
|
X_CMScTypes
|
|
DC.W AsciiText
|
|
DC.W 0
|
|
|
|
X_ScrListTable
|
|
DC.L 0,X_WPScTypes,X_SSScTypes,X_SworksTypes,X_PLScTypes,X_GRScTypes,X_CMScTypes
|
|
|
|
X_ScrapType DC.W X_NullScrap
|
|
X_ScrapRefCon DS.B 4
|
|
|
|
X_CacheType DC.W X_NullScrap
|
|
X_CacheRefcon DS.B 4
|
|
|
|
X_DiScrap DS.B 256
|
|
|
|
X_BogusType DS.B 2
|
|
|
|
;The default paragraph header
|
|
X_DefHeader DC.W $4
|
|
DC.B 0
|
|
DC.B 9
|
|
DC.B 0
|
|
DC.W 0
|
|
|
|
X_OldCursor DS.B 2
|
|
|
|
X_CantImportStr STR 'This document is empty.'
|
|
X_AWIndent DS.B 2
|
|
X_AWLeftMargin DS.B 2
|
|
|
|
X_CurrentParRecord
|
|
X_BHand DS.B 4
|
|
X_BOffset DS.B 2
|
|
X_BAttr DS.B 2
|
|
X_BRuler DS.B 4
|
|
X_BPixels DC.W 0
|
|
X_BLine DC.L 0
|
|
X_BLast DC.W 0
|
|
X_EndBlock
|
|
|
|
X_CurHeader
|
|
DS.B 7
|
|
DC.B CR
|
|
|
|
X_PageBreakPar
|
|
DC.L 0 ;Handle
|
|
DC.W 0 ;Offset
|
|
DC.W X_WPPageBreak ;Attribute
|
|
DC.L 0 ;Ruler
|
|
DC.W 0 ;Q_Pixels
|
|
DC.L 0 ;Q_Line
|
|
DC.W 0 ;Last
|
|
DC.W 0 ;Bytes
|
|
|
|
|
|
X_CurrentRuler
|
|
X_RReserved DS.B 2
|
|
X_RStatus DS.B 2
|
|
X_RLeftMargin DS.B 2
|
|
X_RIndent DS.B 2
|
|
X_RRightMargin DS.B 2
|
|
X_RNumTabs DS.B 2
|
|
X_RTabList DS.B 40
|
|
X_REndRuler
|
|
|
|
X_ScrStdRuler
|
|
DS.B 2 ; D_Reserved
|
|
DC.W X_scr_r_left+X_scr_r_single ; status
|
|
DC.W 40 ; left margin
|
|
DC.W 40 ; indent margin
|
|
DC.W 560 ; right margin
|
|
DC.W 1 ; number of tabs
|
|
X_ScrStdTabList
|
|
DC.W 350 ; tab type
|
|
DC.W X_scr_rt_left ; tab location
|
|
DS.B 36 ; (other tabs could go here!)
|
|
|
|
X_ParBlockSize equ X_EndBlock-X_CurrentParRecord
|
|
X_TabBlockSize equ X_scr_ort_EndTabRec*X_scr_maxTabs
|
|
X_scr_or_EndRulRec equ X_scr_or_TabList+(X_scr_ort_EndTabRec*X_scr_maxTabs)
|
|
X_RulerSize equ X_REndRuler-X_CurrentRuler
|
|
|
|
ENDR
|
|
END
|
|
|