6502/xasm
1
0
Fork 0
mirror of https://github.com/pfusik/xasm.git synced 2025-01-17 17:30:03 +00:00
Code Issues Projects Releases Wiki Activity

xasm 2.4.-5.

Browse Source
This commit is contained in:
Piotr Fusik 2001-04-12 22:58:12 +02:00
parent fc969d9263
commit cd7b15669a
1 changed files with 36 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
xasm.asm
View File

@ -42,8 +42,12 @@ nam db ?
ENDS ENDS
STRUC movt STRUC movt
m_code db ? m_lcod db ?
m_vec dw ? m_lvec dw ?
m_scod db ?
m_svec dw ?
m_inc db ?
m_dec db ?
ENDS ENDS
;[flags] ;[flags]
@ -2040,17 +2044,17 @@ stop: mov eax, [dword val]
stosw stosw
ret ret
mcall1: mov al, [(movt bx).m_code] mcall1: mov al, [(movt bx).m_lcod]
mov [cod], al mov [cod], al
push bx push bx
call [(movt bx).m_vec] call [(movt bx).m_lvec]
pop bx pop bx
ret ret
mcall2: mov al, [(movt bx+3).m_code] mcall2: mov al, [(movt bx).m_scod]
mov [cod], al mov [cod], al
push bx push bx
call [(movt bx+3).m_vec] call [(movt bx).m_svec]
pop bx pop bx
ret ret
@ -2081,12 +2085,26 @@ p_mw1: call mcall1
je p_mwi je p_mwi
inc [val] inc [val]
jmp p_mw2 jmp p_mw2
p_mwi: movzx eax, [byte high val] p_mwi:
cmp [ukp1], ah ;0 cmp [ukp1], 0
jnz p_mwh jnz p_mwh
cmp al, [byte val] mov dx, [val]
cmp dl, dh
je p_mw3 je p_mw3
p_mwh: mov [dword val], eax dec dh
mov al, [(movt bx).m_inc]
cmp dl, dh
je p_mw4
add dh, 2
cmp dl, dh
jne p_mwh
mov al, [(movt bx).m_dec]
p_mw4: test al, al
jz p_mwh
call savbyt
jmp p_mw3
p_mwh: shr [dword val], 8
p_mw2: call mcall1 p_mw2: call mcall1
p_mw3: lea si, [op2] p_mw3: lea si, [op2]
call ldop call ldop
@ -2587,9 +2605,9 @@ inwtab db 0eeh,0e6h,0feh,0f6h
; +8-,0) +16-),0 ; +8-,0) +16-),0
sfxtab db 0,0,0e8h,0cah,0c8h,088h sfxtab db 0,0,0e8h,0cah,0c8h,088h
movtab movt <0a0h,p_ac1>,<080h,p_ac1> movtab movt <0a0h,p_ac1,080h,p_ac1,0,0>
movt <0a2h,p_ld1>,<086h,p_st1> movt <0a2h,p_ld1,086h,p_st1,0e8h,0cah>
movt <0a0h,p_ld1>,<084h,p_st1> movt <0a0h,p_ld1,084h,p_st1,0c8h,088h>
comtab: cmd ADC0060p_acc comtab: cmd ADC0060p_acc
cmd ADD8018p_ads cmd ADD8018p_ads
@ -2646,11 +2664,11 @@ comtab: cmd ADC0060p_acc
cmd LDY00a0p_ldi cmd LDY00a0p_ldi
cmd LSR0040p_srt cmd LSR0040p_srt
cmd MVA8000p_mvs cmd MVA8000p_mvs
cmd MVX8006p_mvs cmd MVX8008p_mvs
cmd MVY800cp_mvs cmd MVY8010p_mvs
cmd MWA8000p_mws cmd MWA8000p_mws
cmd MWX8006p_mws cmd MWX8008p_mws
cmd MWY800cp_mws cmd MWY8010p_mws
cmd NOP00eap_imp cmd NOP00eap_imp
cmd OPTe000p_opt cmd OPTe000p_opt
cmd ORA0000p_acc cmd ORA0000p_acc
@ -2739,7 +2757,7 @@ cndvec dw pofend,0,p_ift,0,p_eli,0,p_els,0,p_eif
swilet db 'UTSONLIEC' swilet db 'UTSONLIEC'
hello db 'X-Assembler 2.4.-6' hello db 'X-Assembler 2.4.-5'
ifdef SET_WIN_TITLE ifdef SET_WIN_TITLE
titfin db 0 titfin db 0
else else