[an error occurred while processing this directive]
|
Вот самое простое, что в глаза бросается.
Вместо:
BC b_lev_1?,ANOV
Сделать:
BCD b_lev_1?,ANOV
ADD #2,14,A ;RND(AA0)
Вместо:
BC b_lev_3?,BNOV
Сделать:
BCD b_lev_3?,BNOV
ADD #2,14,B ;RND(AA1)
И далее
b_lev_3?:
STH A,*AR3+ ;ATMP(IP)=RND(AA0)
b_lev_MH?:
STH B,*AR2- ;ATMP(IB)=RND(AA1)
;MH End
Налицо экономия 4 циклов.
Дальше лень.
E-mail: info@telesys.ru