mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-22 14:30:24 +00:00
1 line
2.3 KiB
Plaintext
Executable File
1 line
2.3 KiB
Plaintext
Executable File
load 'macros.dump'
|
|
include 'driver.equ'
|
|
include 'scrap.equ'
|
|
include 'dbsc.equ'
|
|
include 'sssc.equ'
|
|
|
|
IMPORT D_AlertBox
|
|
IMPORT X_AsciiFilter
|
|
IMPORT D_AuxHand
|
|
IMPORT D_BeachBall
|
|
IMPORT X_Blurb2
|
|
IMPORT X_Button1Text
|
|
IMPORT X_Button2Text
|
|
IMPORT X_Button3Text
|
|
IMPORT D_CloseDialog
|
|
IMPORT X_ContText
|
|
IMPORT D_CurCursor
|
|
IMPORT X_DefaultDBFieldBlock
|
|
IMPORT D_DigitsOnly
|
|
IMPORT X_FSBlurbString
|
|
IMPORT FSDialogTemplate
|
|
IMPORT X_FSScratch
|
|
IMPORT FieldRecSize
|
|
IMPORT X_FieldRecord
|
|
IMPORT X_FormatMask
|
|
IMPORT D_GetNewModalDialog
|
|
IMPORT D_GrowHandle
|
|
IMPORT X_InitFieldScanner
|
|
IMPORT D_NeedHand
|
|
IMPORT X_NextField
|
|
IMPORT X_OldCursor
|
|
IMPORT X_SStoAsciiScrap
|
|
IMPORT X_PLtoAsciiScrap
|
|
IMPORT D_SetCursor
|
|
IMPORT X_WPtoAsciiScrap
|
|
IMPORT X_DBButton1Text
|
|
IMPORT X_DBButton2Text
|
|
IMPORT X_DBButton3Text
|
|
IMPORT X_DBContText
|
|
entry X_AsciitoDBScrap
|
|
|
|
import X_DoAsciitoDBScrap
|
|
|
|
X_SStoDBScrap PROC EXPORT
|
|
;Using X_SSScrapData
|
|
;Using X_ClipData
|
|
;Using D_CursorData
|
|
|
|
input Src:l
|
|
|
|
local Intermed:l,Isize:l
|
|
|
|
output Dest:l
|
|
|
|
error err
|
|
|
|
begin +b
|
|
|
|
movelong #(-1-X_SSCellParenNeg),X_FormatMask
|
|
|
|
SpaceLong
|
|
PushLong Src
|
|
jsl X_SStoAsciiScrap
|
|
sta err
|
|
PullLong Intermed
|
|
jcs exit
|
|
|
|
SpaceLong
|
|
PushLong Intermed
|
|
_GetHandleSize
|
|
PullLong Isize
|
|
|
|
DecLong Isize
|
|
|
|
PushLong Isize
|
|
PushLong Intermed
|
|
jsl D_GrowHandle
|
|
|
|
SpaceLong
|
|
PushLong Intermed
|
|
jsl X_AsciitoDBScrap
|
|
sta err
|
|
PullLong Dest
|
|
|
|
PushLong Intermed
|
|
_DisposeHandle
|
|
|
|
exit movelong #-1,X_FormatMask
|
|
return err
|
|
|
|
ENDP
|
|
|
|
|
|
X_SWtoDBScrap PROC EXPORT
|
|
|
|
input Src:l
|
|
|
|
local Intermed:l
|
|
|
|
output Dest:l
|
|
|
|
error err
|
|
|
|
begin
|
|
|
|
SpaceLong
|
|
PushLong Src
|
|
jsl X_PLtoAsciiScrap
|
|
sta err
|
|
PullLong Intermed
|
|
jcs exit
|
|
|
|
SpaceLong
|
|
PushLong Intermed
|
|
jsl X_AsciitoDBScrap
|
|
sta err
|
|
PullLong Dest
|
|
|
|
PushLong Intermed
|
|
_DisposeHandle
|
|
|
|
exit return
|
|
ENDP
|
|
|
|
X_WPtoDBScrap PROC EXPORT
|
|
|
|
input Src:l
|
|
|
|
local Intermed:l
|
|
|
|
output Dest:l
|
|
|
|
error err
|
|
|
|
begin
|
|
|
|
SpaceLong
|
|
PushLong Src
|
|
jsl X_WPtoAsciiScrap
|
|
sta err
|
|
PullLong Intermed
|
|
jcs exit
|
|
|
|
SpaceLong
|
|
PushLong Intermed
|
|
jsl X_AsciitoDBScrap
|
|
sta err
|
|
PullLong Dest
|
|
|
|
PushLong Intermed
|
|
_DisposeHandle
|
|
|
|
exit return
|
|
ENDP
|
|
|
|
X_AsciitoDBScrap PROC EXPORT
|
|
;Using X_FieldScannerData
|
|
|
|
input Src:l
|
|
|
|
output Dest:l
|
|
|
|
error err
|
|
|
|
begin
|
|
|
|
SpaceLong
|
|
PushLong Src
|
|
PushWord #X_TabCR
|
|
pea 0
|
|
jsl X_DoAsciitoDBScrap
|
|
sta err
|
|
PullLong Dest
|
|
|
|
return
|
|
ENDP
|
|
|
|
|
|
END
|
|
|