?? sqrt.asm
字號(hào):
.sect"reset"
reset: .word init
.text
init: ldi 80h,dp
ldi 1800h,st
ldi @STCK,sp
ldi @MCTL,ar0
ldi @MBUS,r0
sti r0,*ar0
main: ;ldi @OPR,ar1
ldf @OPERATOR,r0
call sqrt
ldf r0,r4
ldi @RESULT,ar0
stf r4,*ar0
br $
sqrt: ldf r0,r3
;retsle
pushf r0
pop r1
ash -24,r1
addi 1,r1
ash -1,r1
negi r1,r1
ash 24,r1
push r1
popf r1
mpyf 0.5,r0
mpyf3 r1,r1,r2
mpyf r0,r2
subrf 1.5,r2
mpyf r2,r1
rnd r1,r1
mpyf3 r1,r1,r2
mpyf r0,r2
subrf 1.5,r2
mpyf r2,r1
rnd r1,r1
mpyf3 r1,r1,r2
mpyf r0,r2
subrf 1.5,r2
mpyf r2,r1
rnd r1,r1
mpyf3 r1,r1,r2
mpyf r0,r2
subrf 1.5,r2
mpyf r2,r1
rnd r1,r1
mpyf3 r1,r1,r2
mpyf r0,r2
subrf 1.5,r2
mpyf r2,r1
rnd r1,r0
mpyf r3,r0
rets
.data
STCK .word 809e00h
MBUS .word 1038h
MCTL .word 808064h
RESULT .word 804000h
OPR .word OPERATOR
OPERATOR .float 100
.end
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -