发布于 2008-04-01 00:37:59
0楼
L #IN_Integer //整形数
ITD
DTR
L #IN_Real
/R
RND //将上面两个浮点数的商取整,变成整数
L L#32767
>D //是否大于32767,如是则将32767输出给#Out_Integer;
JC LIM
INVD //如不大于32767,则将32767取反(-2147450880);
JC LIM
TAK //否则,直接将这个数(商)输出给#Out_Integer;
LIM: T #Out_Integer
学如逆水行舟,不进则退