mirror of
https://github.com/GnoConsortium/gno.git
synced 2024-08-23 00:28:59 +00:00
282 lines
3.5 KiB
Plaintext
282 lines
3.5 KiB
Plaintext
|
MACRO
|
||
|
&lab subroutine &parms,&work
|
||
|
&lab anop
|
||
|
aif c:&work,.a
|
||
|
lclc &work
|
||
|
&work setc 0
|
||
|
.a
|
||
|
gbla &totallen
|
||
|
gbla &worklen
|
||
|
&worklen seta &work
|
||
|
&totallen seta 0
|
||
|
aif c:&parms=0,.e
|
||
|
lclc &len
|
||
|
lclc &p
|
||
|
lcla &i
|
||
|
&i seta c:&parms
|
||
|
.b
|
||
|
&p setc &parms(&i)
|
||
|
&len amid &p,2,1
|
||
|
aif "&len"=":",.c
|
||
|
&len amid &p,1,2
|
||
|
&p amid &p,4,l:&p-3
|
||
|
ago .d
|
||
|
.c
|
||
|
&len amid &p,1,1
|
||
|
&p amid &p,3,l:&p-2
|
||
|
.d
|
||
|
&p equ &totallen+3+&work
|
||
|
&totallen seta &totallen+&len
|
||
|
&i seta &i-1
|
||
|
aif &i,^b
|
||
|
.e
|
||
|
tsc
|
||
|
sec
|
||
|
sbc #&work
|
||
|
tcs
|
||
|
inc a
|
||
|
phd
|
||
|
tcd
|
||
|
phb
|
||
|
phk
|
||
|
plb
|
||
|
mend
|
||
|
MACRO
|
||
|
&lab return &r
|
||
|
&lab anop
|
||
|
lclc &len
|
||
|
aif c:&r,.a
|
||
|
lclc &r
|
||
|
&r setc 0
|
||
|
&len setc 0
|
||
|
ago .h
|
||
|
.a
|
||
|
&len amid &r,2,1
|
||
|
aif "&len"=":",.b
|
||
|
&len amid &r,1,2
|
||
|
&r amid &r,4,l:&r-3
|
||
|
ago .c
|
||
|
.b
|
||
|
&len amid &r,1,1
|
||
|
&r amid &r,3,l:&r-2
|
||
|
.c
|
||
|
aif &len<>2,.d
|
||
|
ldy &r
|
||
|
ago .h
|
||
|
.d
|
||
|
aif &len<>4,.e
|
||
|
ldx &r+2
|
||
|
ldy &r
|
||
|
ago .h
|
||
|
.e
|
||
|
aif &len<>10,.g
|
||
|
ldy #&r
|
||
|
ldx #^&r
|
||
|
ago .h
|
||
|
.g
|
||
|
mnote 'Not a valid return length',16
|
||
|
mexit
|
||
|
.h
|
||
|
aif &totallen=0,.i
|
||
|
lda &worklen+1
|
||
|
sta &worklen+&totallen+1
|
||
|
lda &worklen
|
||
|
sta &worklen+&totallen
|
||
|
.i
|
||
|
plb
|
||
|
pld
|
||
|
tsc
|
||
|
clc
|
||
|
adc #&worklen+&totallen
|
||
|
tcs
|
||
|
aif &len=0,.j
|
||
|
tya
|
||
|
.j
|
||
|
rtl
|
||
|
mend
|
||
|
MACRO
|
||
|
&lab FindHandle &a1,&a2
|
||
|
&lab pha
|
||
|
pha
|
||
|
ph4 &a1
|
||
|
tool $1a02
|
||
|
pl4 &a2
|
||
|
mend
|
||
|
MACRO
|
||
|
&lab pl4 &parm
|
||
|
lclc &char
|
||
|
lclc &char1
|
||
|
lclc &char2
|
||
|
&lab anop
|
||
|
aif s:longa=1,.start
|
||
|
rep #%00100000
|
||
|
.start
|
||
|
&char amid &parm,1,1
|
||
|
aif "&char"<>"{",.chk
|
||
|
&char amid &parm,l:&parm,1
|
||
|
aif "&char"<>"}",.error
|
||
|
&parm amid &parm,2,l:&parm-2
|
||
|
pla
|
||
|
sta (&parm)
|
||
|
ldy #2
|
||
|
pla
|
||
|
sta (&parm),y
|
||
|
ago .shorten
|
||
|
.chk
|
||
|
aif "&char"<>"[",.chk2
|
||
|
pla
|
||
|
sta &parm
|
||
|
ldy #2
|
||
|
pla
|
||
|
sta &parm,y
|
||
|
ago .shorten
|
||
|
.chk2
|
||
|
aif "&char"<>"@",.absolute
|
||
|
&char1 amid &parm,2,1
|
||
|
&char2 setc &char1
|
||
|
pl&char1
|
||
|
aif l:&parm<3,.chk2a
|
||
|
&char2 amid &parm,3,1
|
||
|
.chk2a
|
||
|
pl&char2
|
||
|
ago .shorten
|
||
|
.absolute
|
||
|
pla
|
||
|
sta &parm
|
||
|
pla
|
||
|
sta &parm+2
|
||
|
.shorten
|
||
|
aif s:longa=1,.done
|
||
|
sep #%00100000
|
||
|
.done
|
||
|
mexit
|
||
|
.error
|
||
|
mnote "Missing closing '}'",16
|
||
|
mend
|
||
|
MACRO
|
||
|
&lab ph4 &parm
|
||
|
lclc &char
|
||
|
lclc &char1
|
||
|
lclc &char2
|
||
|
&lab anop
|
||
|
&char amid &parm,1,1
|
||
|
aif "&char"="#",.immediate
|
||
|
aif "&char"="@",.at
|
||
|
aif s:longa=1,.chk1
|
||
|
rep #%00100000
|
||
|
.chk1
|
||
|
aif "&char"<>"{",.chk2
|
||
|
&char amid &parm,l:&parm,1
|
||
|
aif "&char"<>"}",.error
|
||
|
&parm amid &parm,2,l:&parm-2
|
||
|
ldy #2
|
||
|
lda (&parm),y
|
||
|
pha
|
||
|
lda (&parm)
|
||
|
pha
|
||
|
ago .shorten
|
||
|
.chk2
|
||
|
aif "&char"<>"[",.absolute
|
||
|
ldy #2
|
||
|
lda &parm,y
|
||
|
pha
|
||
|
lda &parm
|
||
|
pha
|
||
|
ago .shorten
|
||
|
.absolute
|
||
|
lda &parm+2
|
||
|
pha
|
||
|
lda &parm
|
||
|
pha
|
||
|
ago .shorten
|
||
|
.at
|
||
|
&char1 amid &parm,2,1
|
||
|
&char2 setc &char1
|
||
|
ph&char1
|
||
|
aif l:&parm<3,.chk2a
|
||
|
&char2 amid &parm,3,1
|
||
|
.chk2a
|
||
|
ph&char2
|
||
|
ago .shorten
|
||
|
.immediate
|
||
|
&parm amid &parm,2,l:&parm-1
|
||
|
pea +(&parm)|-16
|
||
|
pea &parm
|
||
|
ago .done
|
||
|
.shorten
|
||
|
aif s:longa=1,.done
|
||
|
sep #%00100000
|
||
|
.done
|
||
|
mexit
|
||
|
.error
|
||
|
mnote "Missing closing '}'",16
|
||
|
mend
|
||
|
MACRO
|
||
|
&lab tool &a1
|
||
|
&lab ldx #&a1
|
||
|
jsl $e10000
|
||
|
mend
|
||
|
MACRO
|
||
|
&lab name
|
||
|
&lab anop
|
||
|
aif DebugSymbols=0,.pastName
|
||
|
brl pastName&SYSCNT
|
||
|
dc i'$7771'
|
||
|
dc i1'L:&lab',c'&lab'
|
||
|
pastName&SYSCNT anop
|
||
|
.pastName
|
||
|
MEND
|
||
|
macro
|
||
|
&lab NewHandle &a1,&a2
|
||
|
&lab pha
|
||
|
pha
|
||
|
ph4 &a1(1)
|
||
|
ph2 &a1(2)
|
||
|
ph2 &a1(3)
|
||
|
ph4 &a1(4)
|
||
|
tool $0902
|
||
|
pl4 &a2
|
||
|
mend
|
||
|
macro
|
||
|
&lab DisposeHandle &a1
|
||
|
&lab ph4 &a1
|
||
|
tool $1002
|
||
|
mend
|
||
|
macro
|
||
|
&lab ph2 &parm
|
||
|
lclc &char
|
||
|
&lab anop
|
||
|
aif c:&parm=0,.done
|
||
|
&char amid &parm,1,1
|
||
|
aif "&char"="#",.immediate
|
||
|
aif "&char"="@",.at
|
||
|
aif s:longa=1,.chk
|
||
|
rep #%00100000
|
||
|
.chk
|
||
|
aif "&char"<>"{",.absolute
|
||
|
&char amid &parm,l:&parm,1
|
||
|
aif "&char"<>"}",.error
|
||
|
&parm amid &parm,2,l:&parm-2
|
||
|
lda (&parm)
|
||
|
pha
|
||
|
ago .shorten
|
||
|
.absolute
|
||
|
lda &parm
|
||
|
pha
|
||
|
ago .shorten
|
||
|
.immediate
|
||
|
&parm amid &parm,2,l:&parm-1
|
||
|
pea &parm
|
||
|
ago .done
|
||
|
.at
|
||
|
&char amid &parm,2,1
|
||
|
ph&char
|
||
|
.shorten
|
||
|
aif s:longa=1,.done
|
||
|
sep #%00100000
|
||
|
.done
|
||
|
mexit
|
||
|
.error
|
||
|
mnote "Missing closing '}'",16
|
||
|
mend
|