6502/xasm
1
0
Fork 0
mirror of https://github.com/pfusik/xasm.git synced 2024-09-26 19:54:43 +00:00
Code Issues Projects Releases Wiki Activity

X-Assembler 1.3.

Browse Source
This commit is contained in:
Piotr Fusik 1998-08-25 16:47:04 +02:00
parent d3761d9fdb
commit c2b1503d53
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
xasm.asm
View File

@ -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