93 lines
982 B
Plaintext
93 lines
982 B
Plaintext
MACRO
|
|
str.&size ; &arg, ...
|
|
|
|
lclc &str
|
|
lcla &i, &l
|
|
|
|
&str setc &setting('string')
|
|
STRING asis
|
|
|
|
if &size<>'' THEN
|
|
dc.&size @end-@start
|
|
ENDIF
|
|
|
|
@start
|
|
|
|
&i seta 1
|
|
&l seta &nbr(&syslist)
|
|
|
|
WHILE &i<=&l DO
|
|
dc.b &syslist[&i]
|
|
&i seta &i+1
|
|
ENDWHILE
|
|
|
|
@end
|
|
|
|
STRING &str
|
|
|
|
MEND
|
|
|
|
|
|
MACRO
|
|
long &p1,&p2
|
|
|
|
lcla &bits
|
|
&bits seta %00000000
|
|
;&p1 setc &lc(&p1)
|
|
;&p2 setc &lc(&p2)
|
|
|
|
if &p1='m' OR &p2='m' THEN
|
|
&bits seta &bits+%00100000
|
|
longa on
|
|
ENDIF
|
|
|
|
if &p1='x' OR &p2='x' THEN
|
|
&bits seta &bits+%00010000
|
|
longi on
|
|
ENDIF
|
|
|
|
IF &bits<>0 THEN
|
|
rep #&bits
|
|
ENDIF
|
|
|
|
MEND
|
|
|
|
|
|
MACRO
|
|
short &p1,&p2
|
|
|
|
lcla &bits
|
|
&bits seta %00000000
|
|
;&p1 setc &lc(&p1)
|
|
;&p2 setc &lc(&p2)
|
|
|
|
if &p1='m' OR &p2='m' THEN
|
|
&bits seta &bits+%00100000
|
|
longa off
|
|
ENDIF
|
|
|
|
if &p1='x' OR &p2='x' THEN
|
|
&bits seta &bits+%00010000
|
|
longi off
|
|
ENDIF
|
|
|
|
IF &bits<>0 THEN
|
|
sep #&bits
|
|
ENDIF
|
|
|
|
MEND
|
|
|
|
|
|
MACRO
|
|
&lab _BlockMove
|
|
&lab ldx #$2B02
|
|
jsl $E10000
|
|
MEND
|
|
|
|
MACRO
|
|
&lab _SysFailMgr
|
|
&lab ldx #$1503
|
|
jsl $E10000
|
|
MEND
|
|
|