mirror of
https://github.com/sheumann/AFPBridge.git
synced 2024-09-27 23:54:48 +00:00
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
|