mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-13 02:29:35 +00:00
1 line
684 B
Plaintext
Executable File
1 line
684 B
Plaintext
Executable File
load 'macros.dump'
|
|
include 'driver.equ'
|
|
include 'scrap.equ'
|
|
|
|
IMPORT X_AsciiFilter
|
|
IMPORT D_BeachBall
|
|
IMPORT D_CurCursor
|
|
IMPORT X_DefHeader
|
|
IMPORT D_GrowHandle
|
|
IMPORT D_NeedHand
|
|
IMPORT X_OldCursor
|
|
IMPORT D_SetCursor
|
|
import X_DoAsciitoPLText
|
|
|
|
X_AsciitoPLText PROC EXPORT
|
|
|
|
input Src:l
|
|
|
|
output Dest:l
|
|
|
|
error err
|
|
|
|
begin +b
|
|
|
|
SpaceLong
|
|
PushLong Src
|
|
PushLong Monaco9
|
|
PushWord #0
|
|
jsl X_DoAsciitoPLText
|
|
sta err
|
|
PullLong Dest
|
|
|
|
return
|
|
|
|
Monaco9 DC.W 4
|
|
DC.B 0
|
|
DC.B 9
|
|
|
|
ENDP
|
|
|
|
X_ImportAsciitoPLText PROC EXPORT
|
|
|
|
input Src:l
|
|
|
|
output Dest:l
|
|
|
|
error err
|
|
|
|
begin +b
|
|
|
|
call X_AsciiFilter,in=(Src:l)
|
|
call X_AsciitoPLText,in=(Src:l),out=(Dest:l),err=err
|
|
|
|
return
|
|
ENDP
|
|
|
|
|
|
END
|
|
|