[an error occurred while processing this directive]
[an error occurred while processing this directive]
|
Перед применением регистры проинициализировать константами.
calc_psp:
lds c,rg_psp_0
bst c,1
bld a,0
bst c,5
bld b,0
eor a,b
bst c,6
bld b,0
eor a,b
lds c,rg_psp_3
bst c,7
bld b,0
eor a,b
ror a
lds b,rg_psp_3
ror b
sts rg_psp_3,b
lds b,rg_psp_2
ror b
sts rg_psp_2,b
lds b,rg_psp_1
ror b
sts rg_psp_1,b
lds b,rg_psp_0
ror b
sts rg_psp_0,b
;в C-разряде находится бит ПСП
E-mail: info@telesys.ru