41 lines
633 B
Plaintext
41 lines
633 B
Plaintext
macro
|
|
&l long &a,&b
|
|
lclb &i
|
|
lclb &m
|
|
&a amid &a,1,1
|
|
&m setb ("&a"="M").or.("&a"="m")
|
|
&i setb ("&a"="I").or.("&a"="i")
|
|
aif c:&b=0,.a
|
|
&b amid &b,1,1
|
|
&m setb ("&b"="M").or.("&b"="m").or.&m
|
|
&i setb ("&b"="I").or.("&b"="i").or.&i
|
|
.a
|
|
&l rep #&m*32+&i*16
|
|
aif .not.&m,.b
|
|
longa on
|
|
.b
|
|
aif .not.&i,.c
|
|
longi on
|
|
.c
|
|
mend
|
|
macro
|
|
&l short &a,&b
|
|
lclb &i
|
|
lclb &m
|
|
&a amid &a,1,1
|
|
&m setb ("&a"="M").or.("&a"="m")
|
|
&i setb ("&a"="I").or.("&a"="i")
|
|
aif c:&b=0,.a
|
|
&b amid &b,1,1
|
|
&m setb ("&b"="M").or.("&b"="m").or.&m
|
|
&i setb ("&b"="I").or.("&b"="i").or.&i
|
|
.a
|
|
&l sep #&m*32+&i*16
|
|
aif .not.&m,.b
|
|
longa off
|
|
.b
|
|
aif .not.&i,.c
|
|
longi off
|
|
.c
|
|
mend
|