6502/xasm
1
0
Fork 0
mirror of https://github.com/pfusik/xasm.git synced 2025-08-07 23:24:58 +00:00
Code Issues Projects Releases Wiki Activity

X-Assembler 2.0 beta 2.

Browse Source
This commit is contained in:
Piotr Fusik
1998-10-03 15:17:18 +02:00
parent 6ad566e409
commit c88b1a6165
1 changed files with 29 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
xasm.asm
View File

@@ -66,7 +66,6 @@ m_lsto = 8
m_lsts = m_lsto+m_lstl+m_lsti m_lsts = m_lsto+m_lstl+m_lsti
nhand = -1 ;null handle nhand = -1 ;null handle
eol equ 13,10 eol equ 13,10
eot equ 13,10,'$' eot equ 13,10,'$'
@@ -329,15 +328,15 @@ skip1: call get
cmp al, 9 cmp al, 9
jne skip1 jne skip1
skip2: call space1 skip2: call space1
push offset sklist
lodsd lodsd
and eax, 0dfdfdfh and eax, 0dfdfdfh
cmp eax, 'DNE'
je filend
push offset lstrem
cmp eax, 'TFI' cmp eax, 'TFI'
je skift je skift
cmp eax, 'SLE' cmp eax, 'SLE'
je skels je skels
cmp eax, 'DNE'
je filend
cmp eax, 'FIE' cmp eax, 'FIE'
jne skret jne skret
call p_eif call p_eif
@@ -353,19 +352,17 @@ skels: call btself
cmp [sift], 0 cmp [sift], 0
jnz skret jnz skret
jmp fliski jmp fliski
sklist: test [flist], m_lsts+m_lstc
jmp lstcon
lsteol: test [flist], m_lsts lsteol: call chklst
jnz main jnz main
mov di, offset lstspa mov di, offset lstspa
call lspeol call lspeol
jmp lstlnm call putlnm
lstrem: test [flist], m_lsts jmp main
lstcon: jnz main lstrem: call chklst
jnz main
mov di, offset lstspa+1 mov di, offset lstspa+1
call putspa call putlsp
lstlnm: call putlnm
jmp main jmp main
nskip: mov [labvec], 0 nskip: mov [labvec], 0
@@ -455,6 +452,11 @@ sfcmd3: shr bx, 1
je sfcmd1 je sfcmd1
error e_inst error e_inst
skend: call chklst
jnz filend
mov di, offset lstspa+1
call putlsp
filend: and [flags], not m_eofl filend: and [flags], not m_eofl
call fclose call fclose
cmp bx, offset t_icl cmp bx, offset t_icl
@@ -521,9 +523,11 @@ nlata: call lclose
call pridec call pridec
print lintxt print lintxt
mov eax, [bytes] mov eax, [bytes]
test eax, eax
jz zrbyt
call pridec call pridec
print byttxt print byttxt
mov ax, [exitcod] zrbyt: mov ax, [exitcod]
dos dos
linlon: push offset e_long linlon: push offset e_long
@@ -718,6 +722,13 @@ lstxtr: ja lsbpop
mov al, '+' mov al, '+'
jmp lstpls jmp lstpls
chklst: mov al, m_lsts
test [flags], m_skip
jz chkls1
mov al, m_lsts+m_lstc
chkls1: test al, [flist]
ret
; Stwierdza blad, jesli nie spacja, tab lub eol ; Stwierdza blad, jesli nie spacja, tab lub eol
linend: lodsb linend: lodsb
cmp al, 0dh cmp al, 0dh
@@ -730,7 +741,7 @@ linend: lodsb
linen1: test [flist], m_lsts linen1: test [flist], m_lsts
jnz linret jnz linret
mov di, [lstidx] mov di, [lstidx]
call putspa putlsp: call putspa
; Listuje linie z numerem ; Listuje linie z numerem
putlnm: mov di, offset lstspa putlnm: mov di, offset lstspa
mov bx, [iclen] mov bx, [iclen]
@@ -1195,11 +1206,9 @@ mbrack: error e_brack
toobig: error e_nbig toobig: error e_nbig
v_sub: neg ecx
v_add: add eax, ecx v_add: add eax, ecx
jmp v_cov jno v_ret
v_sub: sub eax, ecx
v_cov: jno v_ret
oflow: error e_over oflow: error e_over
div0: error e_div0 div0: error e_div0
@@ -1710,7 +1719,7 @@ opthdr: inc cx
je opth1 je opth1
cmp ah, '-' cmp ah, '-'
jne opter jne opter
and [flags], not m_hdr and [flags], not (m_hdr+m_rqff)
jmp opt1 jmp opt1
opth1: bts [word flags], b_hdr opth1: bts [word flags], b_hdr
jc opt1 jc opt1
@@ -2273,7 +2282,7 @@ noper1 = $-opert1
swilet db 'TSOLIC' swilet db 'TSOLIC'
hello db 'X-Assembler 2.0<EFBFBD> by Fox/Taquart',eot hello db 'X-Assembler 2.0<EFBFBD>II 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