6502/xasm
1
0
Fork 0
mirror of https://github.com/pfusik/xasm.git synced 2025-02-07 16:30:40 +00:00
Code Issues Projects Releases Wiki Activity

X-Assembler 2.0.

Browse Source
This commit is contained in:
Piotr Fusik 1998-10-25 19:44:40 +01:00
parent e9ca59c76b
commit cb7461376d
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
xasm.asm
View File

@ -1060,6 +1060,7 @@ vlabel: push bx
jpass1 vlukp1 jpass1 vlukp1
error e_undec error e_undec
vlabfn: jpass1 vlchuk vlabfn: jpass1 vlchuk
and [(lab bx).flags], not m_lnus
cmp bx, [pslab] cmp bx, [pslab]
jb vlchuk jb vlchuk
test [(lab bx).flags], m_ukp1 test [(lab bx).flags], m_ukp1
@ -1071,7 +1072,6 @@ vlukp1: mov [ukp1], 0ffh
vlabkn: bt [word (lab bx).flags], b_sign vlabkn: bt [word (lab bx).flags], b_sign
sbb eax, eax sbb eax, eax
mov ax, [(lab bx).val] mov ax, [(lab bx).val]
and [(lab bx).flags], not m_lnus
pop bx pop bx
jmp value1 jmp value1
@ -1172,7 +1172,7 @@ v_xit: mov [dword val], eax
cmp [ukp1], 1 cmp [ukp1], 1
cmc cmc
jc v_ret jc v_ret
cmp eax, 10000h wrange: cmp eax, 10000h
cmc cmc
jnb v_ret jnb v_ret
cmp eax, -0ffffh cmp eax, -0ffffh
@ -1829,9 +1829,9 @@ dtan2: lodsd
cmp eax, '(NIS' cmp eax, '(NIS'
jne dtansi jne dtansi
call valuco call valuco
mov [sinadd], ax mov [sinadd], eax
call valuco call valuco
mov [sinamp], ax mov [sinamp], eax
call getpos call getpos
mov [sinsiz], ax mov [sinsiz], ax
mov [sinmin], 0 mov [sinmin], 0
@ -1863,10 +1863,11 @@ gensin: fild [sinmin]
fmul st, st(1) fmul st, st(1)
fsin fsin
fimul [sinamp] fimul [sinamp]
fistp [val] fiadd [sinadd]
fistp [dword val]
inc [sinmin] inc [sinmin]
mov ax, [sinadd] mov eax, [dword val]
add [val], ax call wrange
jmp dtasto jmp dtasto
dtansi: sub si, 4 dtansi: sub si, 4
@ -2288,7 +2289,7 @@ noper1 = $-opert1
swilet db 'TSOLIC' swilet db 'TSOLIC'
hello db 'X-Assembler 2.0á3 by Fox/Taquart',eot hello db 'X-Assembler 2.0 by Fox/Taquart',eot
hellen = $-hello-1 hellen = $-hello-1
usgtxt db "Syntax: XASM source [options]",eol usgtxt db "Syntax: XASM source [options]",eol
db "/c List false conditionals",eol db "/c List false conditionals",eol
@ -2368,8 +2369,8 @@ pslab dw t_lab
elflag dd 1 elflag dd 1
sinmin dw 1 sinmin dw 1
sinmax dw 0 sinmax dw 0
sinadd dw ? sinadd dd ?
sinamp dw ? sinamp dd ?
sinsiz dw ? sinsiz dw ?
val dw ?,? val dw ?,?
amod db ?,? amod db ?,?