Rev 496 | Blame | Compare with Previous | Last modification | View Log | Download
;pointers:
;0x00000000 - global data segment (VAL)
;0x40000000 - code segment (prog)
;0x80000000 - local data segment (locals)
;startup
include "cmdlist.var"
org 0x40000000 ;code segment
;т ёЄхъх ярЁрьхЄЁ
DW CMD_CONST,main.A.
DW CMD_SWAP
DW CMD_WRITEVAR
DW CMD_CALL,main
;т ёЄхъх Ёхчєы№ЄрЄ
DW CMD_DONE
include "state.ast"
sin
DW CMD_CONST,sin.A.
DW CMD_READVAR
DW CMD_RST,RST_SIN
DW CMD_RET
cos
DW CMD_CONST,cos.A.
DW CMD_READVAR
DW CMD_RST,RST_COS
DW CMD_RET
atan
DW CMD_CONST,atan.A.
DW CMD_READVAR
DW CMD_RST,RST_ATAN
DW CMD_RET
atan2
DW CMD_CONST,atan2.A.
DW CMD_READVAR
DW CMD_CONST,atan2.B.
DW CMD_READVAR
DW CMD_RST,RST_ATAN2
DW CMD_RET
exp
DW CMD_CONST,exp.A.
DW CMD_READVAR
DW CMD_RST,RST_EXP
DW CMD_RET
log
DW CMD_CONST,log.A.
DW CMD_READVAR
DW CMD_RST,RST_LOG
DW CMD_RET
sqrt
DW CMD_CONST,sqrt.A.
DW CMD_READVAR
DW CMD_RST,RST_SQRT
DW CMD_RET
abs
DW CMD_CONST,abs.A.
DW CMD_READVAR
DW CMD_RST,RST_ABS
DW CMD_RET
acos
DW CMD_CONST,acos.A.
DW CMD_READVAR
DW CMD_RST,RST_ACOS
DW CMD_RET
acosh
DW CMD_CONST,acosh.A.
DW CMD_READVAR
DW CMD_RST,RST_ACOSH
DW CMD_RET
asin
DW CMD_CONST,asin.A.
DW CMD_READVAR
DW CMD_RST,RST_ASIN
DW CMD_RET
asinh
DW CMD_CONST,asinh.A.
DW CMD_READVAR
DW CMD_RST,RST_ASINH
DW CMD_RET
atanh
DW CMD_CONST,atanh.A.
DW CMD_READVAR
DW CMD_RST,RST_ATANH
DW CMD_RET
cbrt
DW CMD_CONST,cbrt.A.
DW CMD_READVAR
DW CMD_RST,RST_CBRT
DW CMD_RET
ceil
DW CMD_CONST,ceil.A.
DW CMD_READVAR
DW CMD_RST,RST_CEIL
DW CMD_RET
cosh
DW CMD_CONST,cosh.A.
DW CMD_READVAR
DW CMD_RST,RST_COSH
DW CMD_RET
hypot
DW CMD_CONST,hypot.A.
DW CMD_READVAR
DW CMD_CONST,hypot.B.
DW CMD_READVAR
DW CMD_RST,RST_HYPOT
DW CMD_RET
isfinite
DW CMD_CONST,isfinite.A.
DW CMD_READVAR
DW CMD_RST,RST_ISFINITE
DW CMD_RET
isinf
DW CMD_CONST,isinf.A.
DW CMD_READVAR
DW CMD_RST,RST_ISINF
DW CMD_RET
isnan
DW CMD_CONST,isnan.A.
DW CMD_READVAR
DW CMD_RST,RST_ISNAN
DW CMD_RET
j0
DW CMD_CONST,j0.A.
DW CMD_READVAR
DW CMD_RST,RST_J0
DW CMD_RET
j1
DW CMD_CONST,j1.A.
DW CMD_READVAR
DW CMD_RST,RST_J1
DW CMD_RET
jn
DW CMD_CONST,jn.A.
DW CMD_READVAR
DW CMD_CONST,jn.B.
DW CMD_READVAR
DW CMD_RST,RST_JN
DW CMD_RET
log10
DW CMD_CONST,log10.A.
DW CMD_READVAR
DW CMD_RST,RST_LOG10
DW CMD_RET
log1p
DW CMD_CONST,log1p.A.
DW CMD_READVAR
DW CMD_RST,RST_LOG1P
DW CMD_RET
logb
DW CMD_CONST,logb.A.
DW CMD_READVAR
DW CMD_RST,RST_LOGB
DW CMD_RET
max
DW CMD_CONST,max.A.
DW CMD_READVAR
DW CMD_CONST,max.B.
DW CMD_READVAR
DW CMD_RST,RST_MAX
DW CMD_RET
min
DW CMD_CONST,min.A.
DW CMD_READVAR
DW CMD_CONST,min.B.
DW CMD_READVAR
DW CMD_RST,RST_MIN
DW CMD_RET
rint
DW CMD_CONST,rint.A.
DW CMD_READVAR
DW CMD_RST,RST_RINT
DW CMD_RET
sinh
DW CMD_CONST,sinh.A.
DW CMD_READVAR
DW CMD_RST,RST_SINH
DW CMD_RET
tan
DW CMD_CONST,tan.A.
DW CMD_READVAR
DW CMD_RST,RST_TAN
DW CMD_RET
tanh
DW CMD_CONST,tanh.A.
DW CMD_READVAR
DW CMD_RST,RST_TANH
DW CMD_RET
y0
DW CMD_CONST,y0.A.
DW CMD_READVAR
DW CMD_RST,RST_Y0
DW CMD_RET
y1
DW CMD_CONST,y1.A.
DW CMD_READVAR
DW CMD_RST,RST_Y1
DW CMD_RET
yn
DW CMD_CONST,yn.A.
DW CMD_READVAR
DW CMD_CONST,yn.B.
DW CMD_READVAR
DW CMD_RST,RST_YN
DW CMD_RET
pow
DW CMD_CONST,pow.A.
DW CMD_READVAR
DW CMD_CONST,pow.B.
DW CMD_READVAR
DW CMD_RST,RST_POW
DW CMD_RET
DW CMD_CONST,print.A.
DW CMD_READVAR
DW CMD_RST,RST_PRINT
DW CMD_RET
include "constarr.ast" ;
include "constarr.var" ;const arrays in code segment
org 0x80000000 ;local data segment (no preinitialized data!)
include "state.var"
exp.A.
log.A.
sqrt.A.
abs.A.
sin.A.
cos.A.
atan.A.
atan2.A.
acos.A.
acosh.A.
asin.A.
asinh.A.
atanh.A.
cbrt.A.
ceil.A.
cosh.A.
hypot.A.
isfinite.A.
isinf.A.
isnan.A.
j0.A.
j1.A.
jn.A.
log10.A.
log1p.A.
logb.A.
max.A.
min.A.
rint.A.
sinh.A.
tan.A.
tanh.A.
y0.A.
y1.A.
yn.A.
pow.A.
print.A.
dw 0
atan2.B.
hypot.B.
jn.B.
max.B.
min.B.
yn.B.
pow.B.
dw 0
org 0x00000000 ;global data segment (no temporary variables!)
include "global.var"