incomp code - deleted
    

Hi the board!
Happy to post an update, hope the last regarding syntax.
I persistently fly about drawing model - incomplete nor included.
P.S.  l_inc tnx for the rb-info from previous topics, do not be boring my silence
P.S. matrix in that case i use mspaint            , do not be boring my silence
P.S.     TG fasm editor of 1.71.27 package does not save READ-ONLY files and says NO WARNING.

Changes to meet fasm, not sure of the prios
- % became mod
- added boolean ~
- added bitwise not,and,or,xor
- added shl shr
- added 0xHEX,$HEX,0HEXh,BINb,'str',"str"
- added strings
- clean integers detected and encoded exactly
  compare to 1/3 when you start to mul|div and get 0.3
  it where i do not understand frac magic
- corrected rb and forwarding

Changes other, info,examples included
- added boolean isin
- added bitc,bitr,bits,bitt
- removed chop, left int who cares
- 2 constants had wrong prio
- improved compare instructions
- updated load of ui wasm.ru
- updated store of ui a bit
- vital FLOAT->INT validated
  mem/var stores validated
  gizmo operators validate nothing as there is no time to check "whether smbd is shooting himself"
- mem stores excluded from pre-runtime
- added GetTickCount,memcpy,printfA,MessageBoxA
  *fasm pretty fast* <--- proof & sounds cool
- if,while made error string always 0
- lost myself in bits,bytes - fi file declared wrong io size
- maybe smth else ...

See you!
    

Hi.
Glad to see you again.
There'd been several improvements in syntax.


- use var=  to set var both pre- and in- runtime
- use var== to set var in runtime only

- moded MessageBoxA,GetTickCount

- added InputBoxA,get_float,cdA,ReadFileA,GetFileSizeA
- added dangerous SetEndOfFileA,WriteFileA
- added constants dataseg,szFullNameBuf
- added ub - ui08 synonym
- added fustp_eax,fustp_ebxeax <- not used yet
- added more examples
    

;read file1 text
ioResult==ReadFileAbuffer file1 offset count

;end text with null
ubbuffer+ioResult=0

;cypher text
call cypher
goto cypher.
cypher
c==ioResult
while c
  ubbuffer+c-1=ubbuffer+c-1 xor 'x'
  c==c-1
end while
ret
.

;store cyphered text to file2
ioResult==WriteFileAbuffer file2 offset ioResult

;uncypher back and display
call cypher
MessageBoxAbuffer file1 0








offset=0
count=65'535

buffer rb count

file1 ub '../tst/file access, cypher.txt',0  &&  .
file2 ub '../tst/cypher-ed.txt',0  &&  .
    

szBuffer=512
buffer rb szBuffer
intro ub 'what is your age ?..',0 && .
memcpy buffer intro intro.-intro
InputBoxA buffer szBuffer
age==get_float buffer



MinTeenAge==13
MaxTeenAge==19
if age isin 0 MinTeenAge-1
  pause 'Hello boy/girl!'
elsif age isin MinTeenAge MaxTeenAge
  pause 'Hello teen!'
else
  pause 'Hello mr/s!'
endif
    

;incompatible code deleted
    

.2a: ;can we avoid that ?
.dx12 == .dx12 shl 8
.dx13 == .dx13 shl 8
.dx23 == .dx23 shl 8

 
hi, here is one more update 
see also 'inc\fonts\bmp32 fonts creator\' lazarus projects
source, examples included
;2016.08.27 added bmp32.pqFlipY gizmo ; added bmp32.pqFont.WidthGet, bmp32.pqFont.HeightGet, bmp32.pqFont.SetColor, bmp32.pqFont.TextOut gizmo 
;2016.08.23 added bmp32.pqCopy gizmo 
;2016.08.22 moded GetTickCount into a "constant" gizmo, see also time. gizmos ; added ClockArrowSinCos math operator 
;2016.08.20 added time.year|month|DayOfWeek|day|hour|minute|second|millisecond "constants" gizmo ; moded esp tnx to Christian Ghisler - author of Total Commander GetFileSizeA gizmo so that info of locked files like c\pagefile.sys can be read
    

 
;reserve space for bmp template and write it 
bmpTime rb bmp32.szStruc + width*height*4 && bmp32 bmpTime width height 

;11x22 bitmap font 
bmpFont rb bmp32.szStruc + 11*256 *22 *4 
 .file ub '../inc\fonts\font11x22X256.win1251.bmp',0 
 ReadFileAbmpFont .file 0 $-bmpFont 
 bmp32.pqFlipYbmpFont 


 ;formating, see later 
 format ub '%u',0 
 buffer rb 128 
align 4 
 argptr rb 4 

 ;bitmap center and Hour,Minute,Second arrows 
 centerX==width/2 
 centerY==height/2 
 if centerX<centerY 
 radius==centerX 
 else 
 radius==centerY 
 end if 
 radiusS==radius 
 radiusM==radius *75/100 
 radiusH==radius *50/100 
loop 

 bmp32.flush bmpTime 0x00'00'1e 

 ;second arrow 
 x==radiusS*ClockArrowSinCos'cos' time.second +centerX 
 y==radiusS*ClockArrowSinCos'sin' time.second +centerY 
 bmp32.pqLineTo 0x00'00'ff bmpTime centerX centerY x y 

 ui32argptr=time.second && printfAbuffer 128 format argptr 
 bmp32.pqFont.TextOutbmpTime x y bmpFont 0x'00'00'ff buffer 2 

 ;minute arrow 
 x==radiusM*ClockArrowSinCos'cos' time.minute +centerX 
 y==radiusM*ClockArrowSinCos'sin' time.minute +centerY 
 bmp32.pqLineTo 0x00'ff'00 bmpTime centerX centerY x y 
 bmp32.pqLineTo 0x00'ee'00 bmpTime centerX+1 centerY+1 x y 

 ui32argptr=time.minute && printfAbuffer 128 format argptr 
 bmp32.pqFont.TextOutbmpTime x y bmpFont 0x00'ff'00 buffer 2 

 ;hour arrow 
 x==radiusH*ClockArrowSinCos'cos' time.hour mod 12 * 5 +centerX 
 y==radiusH*ClockArrowSinCos'sin' time.hour mod 12 * 5 +centerY 
 bmp32.pqLineTo 0x'ee'00'00 bmpTime centerX-2 centerY-2 x y 
 bmp32.pqLineTo 0x'ff'00'00 bmpTime centerX centerY x y 
 bmp32.pqLineTo 0x'ee'00'00 bmpTime centerX+2 centerY+2 x y 

 ui32argptr=time.hour && printfAbuffer 128 format argptr 
 bmp32.pqFont.TextOutbmpTime x y bmpFont 0x'ff'00'00 buffer 2 

 bmp32.screen bmpTime 
 sleep 1000 
 goto loop