mirror of
https://github.com/antoinevignau/source.git
synced 2024-09-30 13:54:52 +00:00
1 line
6.0 KiB
Plaintext
1 line
6.0 KiB
Plaintext
|
load 'macros.dump'
include 'driver.equ'
include 'scrap.equ'
IMPORT X_AsciitoWPScrap
IMPORT D_BeachBall
IMPORT D_CurCursor
IMPORT X_DBtoPLScrap
IMPORT D_GrowHandle
IMPORT D_GrowLHandle
IMPORT D_NeedHand
IMPORT D_NeedHandle
IMPORT X_OldCursor
IMPORT X_ParBlockSize
IMPORT D_SetCursor
import X_PLtoAsciiScrap
entry X_AsciiFilter
X_DBtoAsciiScrap PROC EXPORT
input Src:l
local Intermed:l
output Dest:l
error err
begin +b
SpaceLong
PushLong Src
jsl X_DBtoPLScrap
sta err
PullLong Intermed
jcs exit
SpaceLong
PushLong Intermed
jsl X_PLtoAsciiScrap
sta err
PullLong Dest
PushLong Intermed
_DisposeHandle
exit return err
ENDP
X_ImportAsciitoWPScrap PROC EXPORT
input Src:l
local Dptr:l,Size:l
output Dest:l
error err
begin +b
PushLong Src
jsl X_AsciiFilter
SpaceLong
PushLong Src
jsl X_AsciitoWPScrap
sta err
PullLong Dest
jcs exit
exit return
ENDP
X_AsciiFilter PROC EXPORT
input Src:l
local Sptr:l,Ssize:l,EndPtr:l
begin +b
MoveLong [Src],Sptr
SpaceLong
PushLong Src
_GetHandleSize
PullLong Ssize
AddLong Sptr,Ssize,EndPtr
cloop short
lda [Sptr]
tax
lda CharTable,x
sta [Sptr]
long
IncLong Sptr
Cmpl Sptr,EndPtr
blt cloop
return
CharTable
DC.B ' ' ;0-Null
DC.B ' ' ;1-SOH
DC.B ' ' ;2-STX
DC.B ' ' ;3-ETX
DC.B ' ' ;4-EOT
DC.B ' ' ;5-ENQ
DC.B ' ' ;6-ACK
DC.B ' ' ;7-BEL
DC.B ' ' ;8-BS
DC.B 9 ;9-TAB
DC.B ' ' ;A-LF
DC.B ' ' ;B-VT
DC.B ' ' ;C-FF
DC.B $D ;D-CR
DC.B ' ' ;E-SO
DC.B ' ' ;F-SI
DC.B ' ' ;10-DLE
DC.B ' ' ;11-DC1
DC.B ' ' ;12-DC2
DC.B ' ' ;13-DC3
DC.B ' ' ;14-DC4
DC.B ' ' ;15-NAK
DC.B ' ' ;16-SYN
DC.B ' ' ;17-ETB
DC.B ' ' ;18-CAN
DC.B ' ' ;19-EM
DC.B ' ' ;1A-SUB
DC.B ' ' ;1B-ESC
DC.B ' ' ;1C-FS
DC.B ' ' ;1D-GS
DC.B ' ' ;1E-RS
DC.B ' ' ;1F-US
DC.B ' ' ;20-Space
DC.B '!' ;21-Shout
DC.B '"' ;22-Double quote
DC.B '#' ;23-Pound
DC.B '$' ;24-Dollar
DC.B '%' ;25-Percent
DC.B '&' ;26-Ampersand
DC.B $27 ;27-Single quote
DC.B '(' ;28-Left paren
DC.B ')' ;29-Right paren
DC.B '*' ;2A-Star
DC.B '+' ;2B-Plus
DC.B ',' ;2C-Comma
DC.B '-' ;2D-Minus
DC.B '.' ;2E-Period
DC.B '/' ;2F-Slash
DC.B '0' ;30-Zero
DC.B '1' ;31-One
DC.B '2' ;32-Two
DC.B '3' ;33-Three
DC.B '4' ;34-Four
DC.B '5' ;35-Five
DC.B '6' ;36-Six
DC.B '7' ;37-Seven
DC.B '8' ;38-Eight
DC.B '9' ;39-Nine
DC.B ':' ;3A-Colon
DC.B ';' ;3B-Semicolon
DC.B '<' ;3C-Less than
DC.B '=' ;3D-Equal
DC.B '>' ;3E-Greater than
DC.B '?' ;3F-Question
DC.B '@' ;40-At
DC.B 'A' ;41-A
DC.B 'B' ;42-B
DC.B 'C' ;43-C
DC.B 'D' ;44-D
DC.B 'E' ;45-E
DC.B 'F' ;46-F
DC.B 'G' ;47-G
DC.B 'H' ;48-H
DC.B 'I' ;49-I
DC.B 'J' ;4A-J
DC.B 'K' ;4B-K
DC.B 'L' ;4C-L
DC.B 'M' ;4D-M
DC.B 'N' ;4E-N
DC.B 'O' ;4F-O
DC.B 'P' ;50-P
DC.B 'Q' ;51-Q
DC.B 'R' ;52-R
DC.B 'S' ;53-S
DC.B 'T' ;54-T
DC.B 'U' ;55-U
DC.B 'V' ;56-V
DC.B 'W' ;57-W
DC.B 'X' ;58-X
DC.B 'Y' ;59-Y
DC.B 'Z' ;5A-Z
DC.B '[' ;5B-Left Bracket
DC.B '\' ;5C-Backslash
DC.B ']' ;5D-Right Bracket
DC.B '^' ;5E-Carat
DC.B '_' ;5F-Underscore
DC.B '`' ;60-Back quote
DC.B 'a' ;61-a
DC.B 'b' ;62-b
DC.B 'c' ;63-c
DC.B 'd' ;64-d
DC.B 'e' ;65-e
DC.B 'f' ;66-f
DC.B 'g' ;67-g
DC.B 'h' ;68-h
DC.B 'i' ;69-i
DC.B 'j' ;6A-j
DC.B 'k' ;6B-k
DC.B 'l' ;6C-l
DC.B 'm' ;6D-m
DC.B 'n' ;6E-n
DC.B 'o' ;6F-o
DC.B 'p' ;70-p
DC.B 'q' ;71-q
DC.B 'r' ;72-r
DC.B 's' ;73-s
DC.B 't' ;74-t
DC.B 'u' ;75-u
DC.B 'v' ;76-v
DC.B 'w' ;77-w
DC.B 'x' ;78-x
DC.B 'y' ;79-y
DC.B 'z' ;7A-z
DC.B '{' ;7B-Left brace
DC.B '|' ;7C-Pipe
DC.B '}' ;7D-Right brace
DC.B '~' ;7E-Tilde
DC.B ' ' ;7F-Del
DC.B '<27>' ;80-A umlaut
DC.B '<27>' ;81-A circle
DC.B $82 ;82-C cedilla
DC.B $83 ;83-E aigu
DC.B $84 ;84-N tilde
DC.B $85 ;85-O umlaut
DC.B $86 ;86-U umlaut
DC.B $87 ;87-a aigu
DC.B $88 ;88-a grave
DC.B $89 ;89-a circumflex
DC.B $8A ;8A-a umlaut
DC.B $8B ;8B-a tilde
DC.B $8C ;8C-a circle
DC.B $8D ;8D-c cedilla
DC.B $8E ;8E-e aigu
DC.B $8F ;8F-e grave
DC.B $90 ;90-e cicumflex
DC.B $91 ;91-e umlaut
DC.B $92 ;92-i aigu
DC.B $93 ;93-i grave
DC.B $94 ;94-i circumflex
DC.B $95 ;95-i umlaut
DC.B $96 ;96-n tilde
DC
|