mirror of
https://github.com/antoinevignau/source.git
synced 2024-11-18 01:05:18 +00:00
1 line
1.2 KiB
Plaintext
1 line
1.2 KiB
Plaintext
|
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
|