mirror of
https://github.com/pfusik/xasm.git
synced 2025-01-03 01:30:56 +00:00
X-Assembler 2.0 beta 3.
This commit is contained in:
parent
6f34469afa
commit
e9ca59c76b
11
xasm.asm
11
xasm.asm
@ -1762,6 +1762,10 @@ equret: ret
|
||||
|
||||
nolabl: error e_label
|
||||
|
||||
chkhon: test [flags], m_hdr
|
||||
jnz equret
|
||||
error e_hoff
|
||||
|
||||
p_org: call spaces
|
||||
and [flags], not m_norg
|
||||
lodsw
|
||||
@ -1775,12 +1779,14 @@ p_org: call spaces
|
||||
jmp orget
|
||||
orgff: or [flags], m_rqff
|
||||
orgaf: or [flags], m_rorg
|
||||
call chkhon
|
||||
orget: call getuns
|
||||
jc unknow
|
||||
mov [origin], ax
|
||||
ret
|
||||
|
||||
p_rui: mov ah, 2
|
||||
p_rui: call chkhon
|
||||
mov ah, 2
|
||||
mov [origin], ax
|
||||
call spauns
|
||||
jmp savwor
|
||||
@ -2282,7 +2288,7 @@ noper1 = $-opert1
|
||||
|
||||
swilet db 'TSOLIC'
|
||||
|
||||
hello db 'X-Assembler 2.0áII by Fox/Taquart',eot
|
||||
hello db 'X-Assembler 2.0á3 by Fox/Taquart',eot
|
||||
hellen = $-hello-1
|
||||
usgtxt db "Syntax: XASM source [options]",eol
|
||||
db "/c List false conditionals",eol
|
||||
@ -2345,6 +2351,7 @@ e_mift db 'Missing IFT',eol
|
||||
e_meif db 'Missing EIF',eol
|
||||
e_norg db 'No ORG specified',eol
|
||||
e_fshor db 'File is too short',eol
|
||||
e_hoff db 'Illegal when headers off',eol
|
||||
|
||||
exitcod dw 4c00h
|
||||
ohand dw nhand
|
||||
|
Loading…
Reference in New Issue
Block a user