mirror of
https://github.com/pfusik/xasm.git
synced 2024-10-19 06:24:16 +00:00
X-Assembler 1.3.
This commit is contained in:
parent
d3761d9fdb
commit
c2b1503d53
19
xasm.asm
19
xasm.asm
@ -511,7 +511,8 @@ sflabn: pop si
|
|||||||
ret
|
ret
|
||||||
|
|
||||||
getval: call spaces
|
getval: call spaces
|
||||||
; Czyta wyrazenie i zwraca jego wartosc w [val] (C=1 wartosc nieokreslona)
|
; Czyta wyrazenie i zwraca jego wartosc w [val]
|
||||||
|
; (C=1 wartosc nieokreslona w pass 1)
|
||||||
value: mov [val], 0
|
value: mov [val], 0
|
||||||
mov [undef], 0
|
mov [undef], 0
|
||||||
lodsb
|
lodsb
|
||||||
@ -1031,14 +1032,12 @@ presin: finit
|
|||||||
fldpi
|
fldpi
|
||||||
fld st
|
fld st
|
||||||
faddp st(1), st
|
faddp st(1), st
|
||||||
fild [sinsiz]
|
fidiv [sinsiz]
|
||||||
fdivp st(1), st
|
|
||||||
gensin: fild [sinmin]
|
gensin: fild [sinmin]
|
||||||
inc [sinmin]
|
inc [sinmin]
|
||||||
fmul st, st(1)
|
fmul st, st(1)
|
||||||
fsin
|
fsin
|
||||||
fild [sinamp]
|
fimul [sinamp]
|
||||||
fmulp st(1), st
|
|
||||||
fistp [val]
|
fistp [val]
|
||||||
mov ax, [sinadd]
|
mov ax, [sinadd]
|
||||||
add [val], ax
|
add [val], ax
|
||||||
@ -1046,9 +1045,8 @@ gensin: fild [sinmin]
|
|||||||
|
|
||||||
dtansi: sub si, 4
|
dtansi: sub si, 4
|
||||||
call value
|
call value
|
||||||
jc dtan3
|
|
||||||
dtasto: cmp [pass], 1
|
dtasto: cmp [pass], 1
|
||||||
jb dtan4
|
jb dtan3
|
||||||
mov al, [cod]
|
mov al, [cod]
|
||||||
cmp al, 'B'
|
cmp al, 'B'
|
||||||
je dtanb
|
je dtanb
|
||||||
@ -1073,10 +1071,7 @@ dtanh: mov al, [byte high val]
|
|||||||
dtans: call savbyt
|
dtans: call savbyt
|
||||||
jmp dtanx
|
jmp dtanx
|
||||||
|
|
||||||
dtan3: cmp [pass], 1
|
dtan3: cmp [cod], 'A'+1
|
||||||
jnb unknow
|
|
||||||
|
|
||||||
dtan4: cmp [cod], 'A'+1
|
|
||||||
adc [origin], 1
|
adc [origin], 1
|
||||||
|
|
||||||
dtanx: mov ax, [sinmin]
|
dtanx: mov ax, [sinmin]
|
||||||
@ -1245,7 +1240,7 @@ comtab: cmd ADC60p_acc
|
|||||||
cmd TYA98p_imp
|
cmd TYA98p_imp
|
||||||
comend:
|
comend:
|
||||||
|
|
||||||
hello db 'X-Assembler 1.2 by Fox/Taquart',eot
|
hello db 'X-Assembler 1.3 by Fox/Taquart',eot
|
||||||
usgtxt db 'Give a source filename. Default extension is .ASX.',eol
|
usgtxt db 'Give a source filename. Default extension is .ASX.',eol
|
||||||
db 'Destination will have the same name and .COM extension.',eot
|
db 'Destination will have the same name and .COM extension.',eot
|
||||||
lintxt db ' lines assembled',eot
|
lintxt db ' lines assembled',eot
|
||||||
|
Loading…
Reference in New Issue
Block a user