203 lines
3.5 KiB
Plaintext
203 lines
3.5 KiB
Plaintext
macro
|
|
&lab da &op
|
|
&lab dc a3"&op"
|
|
dc i1'0'
|
|
mend
|
|
|
|
|
|
macro
|
|
&lab cmpl &n1,&n2
|
|
&lab lda 2+&n1
|
|
cmp 2+&n2
|
|
bne ~&syscnt
|
|
lda &n1
|
|
cmp &n2
|
|
~&syscnt anop
|
|
mend
|
|
|
|
|
|
MACRO
|
|
&LAB DOS &ADR
|
|
&LAB DC I"L:~&SYSNAME&SYSCNT"
|
|
~&SYSNAME&SYSCNT DC C"&ADR"
|
|
MEND
|
|
|
|
|
|
MACRO
|
|
&LAB MOVE4 &F,&T
|
|
&LAB ~SETM
|
|
LDA 2+&F
|
|
STA 2+&T
|
|
LDA &F
|
|
STA &T
|
|
~RESTM
|
|
MEND
|
|
|
|
|
|
macro
|
|
&lab sub &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
|
|
aif &work=0,.f
|
|
sec
|
|
sbc #&work
|
|
tcs
|
|
.f
|
|
phd
|
|
tcd
|
|
mend
|
|
|
|
|
|
macro
|
|
&lab ret &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
|
|
.i
|
|
pld
|
|
tsc
|
|
clc
|
|
adc #&worklen+&totallen
|
|
tcs
|
|
aif &len=0,.j
|
|
tya
|
|
.j
|
|
rts
|
|
mend
|
|
|
|
|
|
MACRO
|
|
&LAB MOVE &AD1,&AD2,&LEN
|
|
&LAB ANOP
|
|
LCLB &LA
|
|
LCLB &LI
|
|
LCLC &C
|
|
AIF C:&LEN,.A1
|
|
LCLC &LEN
|
|
&LEN SETC #2
|
|
.A1
|
|
&LA SETB S:LONGA
|
|
&LI SETB S:LONGI
|
|
AIF S:LONGA.AND.S:LONGI,.A
|
|
REP #32*(.NOT.&LA)+16*(.NOT.&LI)
|
|
LONGA ON
|
|
LONGI ON
|
|
.A
|
|
&C AMID &LEN,1,1
|
|
AIF "&C"<>"#",.D
|
|
&C AMID &LEN,2,L:&LEN-1
|
|
AIF &C<>2,.D
|
|
&C AMID &AD1,1,1
|
|
AIF "&C"<>"{",.B
|
|
&AD1 AMID &AD1,2,L:&AD1-2
|
|
&AD1 SETC (&AD1)
|
|
.B
|
|
LDA &AD1
|
|
&C AMID &AD2,1,1
|
|
AIF "&C"<>"{",.C
|
|
&AD2 AMID &AD2,2,L:&AD2-2
|
|
&AD2 SETC (&AD2)
|
|
.C
|
|
STA &AD2
|
|
AGO .G
|
|
.D
|
|
&C AMID &AD1,1,1
|
|
AIF "&C"="#",.F
|
|
&C AMID &LEN,1,1
|
|
AIF "&C"<>"{",.E
|
|
&LEN AMID &LEN,2,L:&LEN-2
|
|
&LEN SETC (&LEN)
|
|
.E
|
|
&C AMID &LEN,1,1
|
|
AIF "&C"="#",.E1
|
|
LDA &LEN
|
|
DEC A
|
|
AGO .E2
|
|
.E1
|
|
LDA &LEN-1
|
|
.E2
|
|
LDX #&AD1
|
|
LDY #&AD2
|
|
MVN &AD1,&AD2
|
|
AGO .G
|
|
.F
|
|
LDA &AD1
|
|
STA &AD2
|
|
LDA &LEN-2
|
|
LDX #&AD2
|
|
LDY #&AD2+1
|
|
MVN &AD2,&AD2
|
|
.G
|
|
AIF (&LA+&LI)=2,.I
|
|
SEP #32*(.NOT.&LA)+16*(.NOT.&LI)
|
|
AIF &LA,.H
|
|
LONGA OFF
|
|
.H
|
|
AIF &LI,.I
|
|
LONGI OFF
|
|
.I
|
|
MEND
|