6502/xasm
1
0
Fork 0
mirror of https://github.com/pfusik/xasm.git synced 2024-12-22 00:29:15 +00:00
Code Issues Projects Releases Wiki Activity

xasm 2.5.1.

Browse Source
This commit is contained in:
Piotr Fusik 2002-08-06 15:03:40 +02:00
parent 67621cb32c
commit 4b099cbccc
1 changed files with 24 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
xasm.asm
View File

@ -522,36 +522,37 @@ ndef1: mov bx, [iclen]
; ... nie - omin ewentualny LF ; ... nie - omin ewentualny LF
call fread1 call fread1
jz filend jz filend
cmp [line], 0ah
je skiplf
inc di
skiplf:
mov bx, [iclen] mov bx, [iclen]
mov bx, [(icl bx).prev] mov bx, [(icl bx).prev]
inc [(icl bx).line] ; zwieksz nr linii w pliku inc [(icl bx).line] ; zwieksz nr linii w pliku
inc [lines] ; ilosc wszystkich linii inc [lines] ; ilosc wszystkich linii
testsw m_swi testsw m_swi
jz gline1 ; czy /I jz gline0 ; czy /I
and [flist], not m_lsti ; ... tak and [flist], not m_lsti ; ... tak
cmp bx, offset t_icl cmp bx, offset t_icl
jbe gline1 ; czy includowany plik ? jbe gline0 ; czy includowany plik ?
or [flist], m_lsti ; ... tak, nie listuj or [flist], m_lsti ; ... tak, nie listuj
gline1: cmp di, offset line+256 gline0:
jnb linlon cmp [byte di], 0ah
call fread1 je gline2
jz eof gline1:
mov al, [di] mov al, [di]
cmp al, 0dh ; pc cr cmp al, 0dh ; pc cr
je short syntax je syntax
cmp al, 0ah ; unix lf cmp al, 0ah ; unix lf
je syntax je syntax
cmp al, 9bh ; atari eol cmp al, 9bh ; atari eol
je syntax je syntax
inc di inc di
jmp gline1 cmp di, offset line+256
jnb linlon
eof: mov bx, [iclen] ; koniec pliku gline2:
call fread1
jnz gline0
; eof
mov bx, [iclen] ; koniec pliku
or [(icl bx).flags], m_eofl or [(icl bx).flags], m_eofl
syntax: mov [byte di], 0dh syntax: mov [byte di], 0dh
@ -598,7 +599,7 @@ deflp2: mov bx, [pslab] ; definicja etykiety w pass 2
call warln call warln
pop si pop si
labelx: cmp [byte si], 0dh labelx: cmp [byte si], 0dh
je lstrem je lstcnd
call spaces call spaces
nolabl: lodsb nolabl: lodsb
@ -607,17 +608,17 @@ nolabl: lodsb
cmp al, 9 cmp al, 9
je nolabl je nolabl
cmp al, '*' cmp al, '*'
je lstrem je lstcnd
cmp al, ';' cmp al, ';'
je lstrem je lstcnd
cmp al, '|' cmp al, '|'
je lstrem je lstcnd
cmp al, 0dh cmp al, 0dh
je lstrem je lstcnd
cmp al, ':' cmp al, ':'
jne s_one jne s_one
cmp [skflag], 0 cmp [skflag], 0
jnz lstrem jnz lstcnd
call getuns call getuns
jc unknow jc unknow
sta cx sta cx
@ -642,9 +643,9 @@ skip1: lodsd ; sprawdz komende
jne lstcnd jne lstcnd
call [word di-4+cndvec-cndtxt] call [word di-4+cndvec-cndtxt]
cmp [skflag], 0 cmp [skflag], 0
jz lstre1 jz lstrem
lstcnd: testsw m_swc lstcnd: testsw m_swc
jnz lstre1 jnz lstrem
jmp main jmp main
s_one: dec si s_one: dec si
@ -2979,7 +2980,7 @@ cndvec dw pofend,0,p_ift,0,p_eli,0,p_els,0,p_eif
swilet db 'UTSQPONLIEDC' swilet db 'UTSQPONLIEDC'
hello db 'X-Assembler 2.5' hello db 'X-Assembler 2.5.1'
ifdef SET_WIN_TITLE ifdef SET_WIN_TITLE
titfin db 0 titfin db 0
else else