;****************************************
;@0 - имя флага
.MACRO sef ; установка флага (SEt Flag)
SET
BLD flag_reg,@0
.ENDM
;****************************************
;****************************************
;@0 - имя флага
.MACRO clf ; сброс флага (CLear Flag)
CLT
BLD flag_reg,@0
.ENDM
;****************************************
;****************************************
;@0 - имя флага, @1 - куда идти
.MACRO BRFS ; переход если установлен (BRench if Flag Set)
BST flag_reg,@0
BRTS @1
.ENDM
;***************************************
;***************************************
;@0 - имя флага, @1 - куда идти
.MACRO BRFC ; переход если сброшен (BRench if Flag Clear)
BST flag_reg,@0
BRTC @1
.ENDM
;***************************************
;***************************************
;@0 - имя флага
.MACRO SKFS ; пропуск следующей команды если флаг установлен (SKip if Flag Set)
SBRS flag_reg,@0
.ENDM
;***************************************
;***************************************
;@0 - имя флага
.MACRO SKFC ; пропуск следующей команды если флаг установлен (SKip if Flag Clear)
SBRC flag_reg,@0
.ENDM
;***************************************
еще вот что интересно: под регистр флагов отдал r17, а можно ли использовать один из младших регистров? r2 например?
