forked from KolibriOS/kolibrios
Kernel: Smoothing image code from Mario79, build scripts for skin and drivers/build.bat
Programs: fasm updated to 1.67.14, small fixes in desktop, stackcfg, calc, board, pipes, freecell, big cleanup of unused programs, added some applications from 0.6.3.0 distr... git-svn-id: svn://kolibrios.org@205 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
@@ -2,7 +2,7 @@
|
||||
; flat assembler core
|
||||
; Copyright (c) 1999-2006, Tomasz Grysztar.
|
||||
; All rights reserved.
|
||||
|
||||
|
||||
convert_expression:
|
||||
push ebp
|
||||
call get_fp_value
|
||||
|
||||
@@ -22,7 +22,7 @@ APP_MEMORY = 0x00800000
|
||||
|
||||
;; Menuet header
|
||||
|
||||
appname equ "FASM "
|
||||
appname equ "flat assembler "
|
||||
|
||||
use32
|
||||
|
||||
@@ -392,11 +392,11 @@ text:
|
||||
s_compile db 'COMPILE'
|
||||
s_run db ' RUN '
|
||||
|
||||
infile db 'EXAMPLE.ASM'
|
||||
infile db 'example.asm'
|
||||
times MAX_PATH+$-infile db 0
|
||||
outfile db 'EXAMPLE'
|
||||
outfile db 'example'
|
||||
times MAX_PATH+$-outfile db 0
|
||||
path db '/RD/1/'
|
||||
path db '/rd/1/'
|
||||
times MAX_PATH+$-path db 0
|
||||
|
||||
lf db 13,10,0
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
|
||||
|
||||
; flat assembler core
|
||||
; Copyright (c) 1999-2006, Tomasz Grysztar.
|
||||
; All rights reserved.
|
||||
|
||||
@@ -33,7 +33,7 @@
|
||||
; cannot simply be copied and put under another distribution licence
|
||||
; (including the GNU Public Licence).
|
||||
|
||||
VERSION_STRING equ "1.67.13"
|
||||
VERSION_STRING equ "1.67.14"
|
||||
|
||||
VERSION_MAJOR = 1
|
||||
VERSION_MINOR = 67
|
||||
|
||||
@@ -223,6 +223,10 @@ basic_instruction:
|
||||
cdq
|
||||
cmp ecx,edx
|
||||
jne value_out_of_range
|
||||
cmp [value_type],4
|
||||
jne get_simm32_ok
|
||||
mov [value_type],2
|
||||
get_simm32_ok:
|
||||
ret
|
||||
basic_reg:
|
||||
lods byte [esi]
|
||||
@@ -6019,6 +6023,9 @@ get_address:
|
||||
mov edx,[symbol_identifier]
|
||||
mov [address_symbol],edx
|
||||
mov edx,eax
|
||||
ror ecx,16
|
||||
mov cl,[value_type]
|
||||
rol ecx,16
|
||||
mov bx,0FF00h
|
||||
address_ok:
|
||||
ret
|
||||
|
||||
Reference in New Issue
Block a user