mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-11 19:29:31 +00:00
1 line
1.2 KiB
Plaintext
Executable File
1 line
1.2 KiB
Plaintext
Executable File
load 'macros.dump'
|
|
include 'driver.equ'
|
|
include 'scrap.equ'
|
|
include 'dbsc.equ'
|
|
|
|
X_DBScrapData PROC EXPORT
|
|
EXPORT X_DefaultDBFieldBlock
|
|
EXPORT X_EndDeafultDBBlock
|
|
EXPORT X_FieldRecord
|
|
EXPORT X_FieldHSize
|
|
EXPORT X_FieldAttr
|
|
EXPORT X_FieldWidth
|
|
EXPORT X_FieldRect
|
|
EXPORT X_FieldType
|
|
EXPORT X_FieldAlignment
|
|
EXPORT X_FieldStyle
|
|
EXPORT X_FieldColor
|
|
EXPORT X_FieldDisplay
|
|
EXPORT X_FieldDecimals
|
|
EXPORT X_FieldWS1
|
|
EXPORT X_FieldRFlags
|
|
EXPORT X_FieldWS2
|
|
EXPORT X_EndFieldRecord
|
|
EXPORT X_ScratchRect
|
|
export fieldrecsize
|
|
export minfieldsize
|
|
|
|
;Row block offsets
|
|
|
|
X_DefaultDBFieldBlock
|
|
DC.L 0
|
|
DC.W X_DefaultDBAttr
|
|
DC.W X_DefaultDBWidth
|
|
DS.B 8
|
|
DC.W 0
|
|
DC.W 0
|
|
DC.W 1<<3
|
|
DC.W 0
|
|
DC.W 0
|
|
DC.W 0
|
|
DS.B 40
|
|
DC.W 0
|
|
DS.B 36
|
|
|
|
X_EndDeafultDBBlock
|
|
|
|
X_FieldRecord
|
|
X_FieldHSize DS.B 4
|
|
X_FieldAttr DS.B 2
|
|
X_FieldWidth DS.B 2
|
|
X_FieldRect DS.B 8
|
|
X_FieldType DS.B 2
|
|
X_FieldAlignment DS.B 2
|
|
X_FieldStyle DS.B 2
|
|
X_FieldColor DS.B 2
|
|
X_FieldDisplay DS.B 2
|
|
X_FieldDecimals DS.B 2
|
|
X_FieldWS1 DS.B 40
|
|
X_FieldRFlags DS.B 2
|
|
X_FieldWS2 DS.B 36
|
|
X_EndFieldRecord
|
|
|
|
X_ScratchRect DS.B 8
|
|
|
|
FieldRecSize equ X_EndFieldRecord-X_FieldRecord
|
|
MinFieldSize equ FieldRecSize+7
|
|
ENDP
|
|
|
|
X_DBAworksData PROC EXPORT
|
|
EXPORT DBDate
|
|
EXPORT X_DBTime
|
|
|
|
|
|
|
|
|
|
DBDate DS.B 4
|
|
|
|
X_DBTime DS.B 4
|
|
|
|
ENDP
|
|
END
|
|
|