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==ReadFileA(buffer file1 offset count)

;end text with null
ub[buffer+ioResult]=0

;cypher text
call cypher
goto cypher.
cypher:
c==ioResult
while c
  ub[buffer+c-1]=ub[buffer+c-1] xor 'x'
  c==c-1
end while
ret
.:

;store cyphered text to file2
ioResult==WriteFileA(buffer file2 offset ioResult)

;uncypher back and display
call cypher
MessageBoxA(buffer 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 
 ReadFileA(bmpFont .file 0 ($-bmpFont)) 
 bmp32.pqFlipY(bmpFont) 


 ;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 

 ui32[argptr]=time.second && printfA(buffer 128 format argptr) 
 bmp32.pqFont.TextOut(bmpTime 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 

 ui32[argptr]=time.minute && printfA(buffer 128 format argptr) 
 bmp32.pqFont.TextOut(bmpTime 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 

 ui32[argptr]=time.hour && printfA(buffer 128 format argptr) 
 bmp32.pqFont.TextOut(bmpTime x y bmpFont 0x'ff'00'00 buffer 2) 

 bmp32.screen bmpTime 
 sleep 1000 
 goto loop