6502/xasm
1
0
Fork 0
mirror of https://github.com/pfusik/xasm.git synced 2024-12-21 09:29:39 +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
STRUC movt
m_code db ?
m_vec dw ?
m_lcod db ?
m_lvec dw ?
m_scod db ?
m_svec dw ?
m_inc db ?
m_dec db ?
ENDS
;[flags]
@ -2040,17 +2044,17 @@ stop: mov eax, [dword val]
stosw
ret
mcall1: mov al, [(movt bx).m_code]
mcall1: mov al, [(movt bx).m_lcod]
mov [cod], al
push bx
call [(movt bx).m_vec]
call [(movt bx).m_lvec]
pop bx
ret
mcall2: mov al, [(movt bx+3).m_code]
mcall2: mov al, [(movt bx).m_scod]
mov [cod], al
push bx
call [(movt bx+3).m_vec]
call [(movt bx).m_svec]
pop bx
ret
@ -2081,12 +2085,26 @@ p_mw1: call mcall1
je p_mwi
inc [val]
jmp p_mw2
p_mwi: movzx eax, [byte high val]
cmp [ukp1], ah ;0
p_mwi:
cmp [ukp1], 0
jnz p_mwh
cmp al, [byte val]
mov dx, [val]
cmp dl, dh
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_mw3: lea si, [op2]
call ldop
@ -2587,9 +2605,9 @@ inwtab db 0eeh,0e6h,0feh,0f6h
; +8-,0) +16-),0
sfxtab db 0,0,0e8h,0cah,0c8h,088h
movtab movt <0a0h,p_ac1>,<080h,p_ac1>
movt <0a2h,p_ld1>,<086h,p_st1>
movt <0a0h,p_ld1>,<084h,p_st1>
movtab movt <0a0h,p_ac1,080h,p_ac1,0,0>
movt <0a2h,p_ld1,086h,p_st1,0e8h,0cah>
movt <0a0h,p_ld1,084h,p_st1,0c8h,088h>
comtab: cmd ADC0060p_acc
cmd ADD8018p_ads
@ -2646,11 +2664,11 @@ comtab: cmd ADC0060p_acc
cmd LDY00a0p_ldi
cmd LSR0040p_srt
cmd MVA8000p_mvs
cmd MVX8006p_mvs
cmd MVY800cp_mvs
cmd MVX8008p_mvs
cmd MVY8010p_mvs
cmd MWA8000p_mws
cmd MWX8006p_mws
cmd MWY800cp_mws
cmd MWX8008p_mws
cmd MWY8010p_mws
cmd NOP00eap_imp
cmd OPTe000p_opt
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'
hello db 'X-Assembler 2.4.-6'
hello db 'X-Assembler 2.4.-5'
ifdef SET_WIN_TITLE
titfin db 0
else