Forth, za one sa razlčitim rasporedom vijuga...

[mikikg]

"In my experience: Never ask a forth fan if something is possible. You'll get only one answer: yes, of course it is. "

Momci, (Vojče, Macola, Dragan), ko je "krio" ovo od nas sve ove godine ?

Naravno da ima, CUDA Forth na primer:
https://github.com/michelp/cudafor

Ili ovako nešto iz Google grupe:

IMHO, the most interesting development towards a Forth on the GPU is SPIR-
V, the virtual machine for Vulcan (and OpenCL). Conceptually, this
should be an umbilical Forth, so you write Forth code, which gets
translated into SPIR-V, and you can let it run as shader or compute core.

[mikikg]

Zanimljivo, nisam skorije radio sa nekim DAC-kićem koji ima ovavku inicialnu preciznost tj kada DAC dobije instrukciju da na primer postavi 110mV pa zatim relativno merenje i komanda za 120 mV i instrument pokaže ovo sa fotke a pri tome taj DAK-ić dolazi za nožice kontrolera i ima setling-time reda 2ns i sve se pokrece kroz FORTH tj u ovom konkretnom slučaju TAQOZ Forth na 8-core Propeller 2 kontroleru!

Imam problema sa brzinom opreme, najbrži FTDI 232R USB interface koji imam radi do 3MBaud-a asinhronu serisku komunikaciju, inače Propeller 2 radi do nekih 20MBaud : ) ... Inače ima auto-speed detekciju, tj ovaj kontroler se ne buni ni za jednu brzinu, šta imaš i kolko možes ti teraj ...

BTW: Da ne nabrajam šta sve ima u ovom TAQOZ i kakve sve podrške, samo kada sam video da je neko u tu verziju uključio i "drajver" za Si5351 Clock Generator, pomislio sam da se neko šali samnom!?

[mikikg]

A ako hoćete baš tačno da nabrajam šta sve ima u TAQOZ Reloaded V2.5 za Paralax Propeller 2, to se u FORTH kaže "WORDS" pa gledajte

Code:

TAQOZ# WORDS 1A592: C2B C2A C2? C2 C2FC@ C2>RAM C2READBLK .PORTS .C2REGS .C2 C2WB BDUMP C2RB? C2RB C2PROGRAM: C2ProgramBoot -C2PROGRAM C2ProgramBlock C2VERIFY C2BUF C2ERASEP C2ERASE C2FLASH C2HALT C2DIR! C2REG! C2REG@ C2IBSY C2DATW! C2CMD C2FAIL C2FLG? C2ERR? C2FLG@ c2flg C2DATW@ C2ORDY C2ADR! C2STAT? C2DAT! C2DAT@ C2READ C2INS C2WRITE C2WAIT C2WAIT? C2START C2STOP C2RESET .C2ERR c2errors C2PINS faddr =BLKRD =FPDAT =FPCTL =DEVID C2D C2CK *C2* S Z W B M U N R SPLAT spsz LAKEY UPPER LAESC CTSHS CTLS ALTS SHIFTS REFRESH SHELL LAHELP FINDMATCH SETchan SETZOOM SETWIDTH SETbaud SETms SETus SETns SCALE! SETSCALE ps SETCUR SETTRIG PR FRAME NEWFRAME FOOTER @footer .SCALE ?PINS PINLOAD? CAPTURE !ENTRY +ENTRY !KEY .LAD GRID .ROW .CURSOR ARMED STOPPED COND RUNNING ASCII? .LABEL LABEL LAHUE EMITX pins clabels trig curadr lcur lbaud scale width samples snew newkey zoom spvars SEND schan channels _schan _channels CAPBUF LIMIT CURSOR BOLD XY *SPLAT* GETROM RESET TRAP _pc S GO STEPS SS STEP ID? CYCLES CYCLE DECODE@ OPCODES XXX BRK brkop NMI INT IRQ TYA TXS TXA TSX TAY TAX RTS POPPC RTI JSR JMP.X) JMP.) JMP.A PLY PLX PLP PLA PHY PHX PHP PHA BEQ BNE BCS BCC BVS BVC BMI BPL 1BRA 0BRA BRA SKIP SEI SED SEC CLD CLC CLI CLV DEC.A,X DEC.Z,X DEC.Z DEC.A DEC INC.A,X INC.Z,X INC.Z INC.A INC DEX DEY DEC.ac INX INY INC.ac INCDEC TSB.Z TSB.A TSB TRB.Z TRB.A TRB ROR.ac ROR.A,X ROR.Z,X ROR.Z ROR.A ROR >CARRY ROL.ac ROL.A,X ROL.Z,X ROL.Z ROL.A ROL <CARRY LSR.ac LSR.A,X LSR.Z,X LSR.Z LSR.A CARRY: LSR ASL.ac ASL.A,X ASL.Z,X ASL.Z ASL.A AS! ASL BIT.A,X BIT.Z,X BIT.Z BIT.A BIT.# RDBIT CPY.Z CPY.A CPY.# CPY RDCPY CPX.Z CPX.A CPX.# CPX RDCPX LDY.Z,X LDY.A,X LDY.Z LDY.A LDY.# LDY RDLDY LDX.Z,Y LDX.A,Y LDX.Z LDX.A LDX.# LDX RDLDX STY.Z,X STY.Z STY.A STY STX.Z,Y STX.Z STX.A STX STZ.A,X STZ.Z,X STZ.Z STZ.A STZ STA.) STA.A,Y STA.A,X STA.Z,X STA.)Y STA.X) STA.Z STA.A STA.Z,Y STA SBC.) SBC.A,Y SBC.A,X SBC.Z,X SBC.)Y SBC.X) SBC.Z SBC.A SBC.# SBC RDSBC ORA.) ORA.A,Y ORA.A,X ORA.Z,X ORA.)Y ORA.X) ORA.Z ORA.A ORA.# ORA RDORA EOR.) EOR.A,Y EOR.A,X EOR.Z,X EOR.)Y EOR.X) EOR.Z EOR.A EOR.# EOR RDEOR CMP.) CMP.A,Y CMP.A,X CMP.Z,X CMP.)Y CMP.X) CMP.Z CMP.A CMP.# CMP RDCMP DOSUB AND.) AND.A,Y AND.A,X AND.Z,X AND.)Y AND.X) AND.Z AND.A AND.# AnD RDAND ADC.) ADC.A,Y ADC.A,X ADC.Z,X ADC.)Y ADC.X) ADC.Z ADC.A ADC.# ADC RDADC LDA.) LDA.A,Y LDA.A,X LDA.Z,X LDA.)Y LDA.X) LDA.Z LDA.A LDA.# LDA RDLDA IND ABY ABX ZPY ZPX IDY IDX ZPG AB IMM .REG .DAT .PC PUSHPC POP PUSH GETWORD GETBYTE WRBYTE RDWORD RDBYTE .WORD: X! XC! XC@ X@ @6502 mem6502 LISTING LIST? _list XTAB SIMOUT xpos SP@ PC! PC+! NL _nl PC@ NZ! PS! AC! AC@ !6502 NEG! CARRY@ CARRY! OVFLOW? SIGN? ZERO! ZERO? TEST NEG OV BRKFLG DCM INH ZFLG CARRY PC SP YR XR PS AC C@+ BIT SETB RES *SIM65* CONLED PLEXCH PLEXLED PLEX.TASK SCROLL scol ledbuf XYLED leds PLEXPIN plx *PLEXLED* TAP MORSE TAP: GAP MC@ _morse PITCH WPM _pitch dotms *MORSE* LIFE MENU COPY RANDOM ACORN DIEHARD LWSS FPENT GLIDER SEED VOID SYNCH EXPANDING EXPAND WIDER SHRINK WIDEa WIDE SHOW .HEAD .WALL border wall uclrs .line gentask nextgen U dead live zoom _exp syn ng generation cvars bufgen doline ROL3 r1 r0 #bits line bits/cell #lines _lines CELLS universe *LIFE* CONTINUE BREAKOUT ACTION GAMEKEY boflgs SLOWER FASTER NEWGAME ALERT GAMEOVER ALERTBOX ?REBOUND ?BALL HIT? UP? LEFT? ?PADDLE .SCORE NEWBALL HIDEBALL DRAWBALL SHOWBALL ballwh bally@ ballx@ bally ballx vely velx speedtmr speed rem energy balls score ballw NEWPADDLE R L PADDLE? PADDLE py px ph pw BRICKS? WALLS BRICK? BRICK# SMASH DRAWBRICK BAKE BRICKxy +mortar brickw #total #walls brickh #bricks mortar backwall BORDER BANG SOUND BONK duration XY@ VGA> <VGA bk *BREAKOUT* MB3200 MBGO MANDEL ZOOM MANDELBROT DOBROT ITS EXP DOROW DOCELL DOESCAPE COUNT? ZSQ INIT_VARS colexp maxcnts esccnt Zy Zx Cy Cx #left #top =res #RESCALE SCALE #YVAL #XVAL #XSIZE #YSIZE #MaxIter *MANDELBROT* CG25 CGFREQ !CG RDIV CGREGS CGREG! qc qb qa XTAL_LOAD_CAP PLL_RESET SYNTH_MS_2 SYNTH_MS_1 SYNTH_MS_0 SYNTH_PLL_B SYNTH_PLL_A CLK2_CONTROL CLK1_CONTROL CLK0_CONTROL PLLX_SRC CLK_ENABLE_CONTROL =CG CG CG@ CG! Si5351 *CLKGEN* ifup .LAN SERVER EASYNET !SERVER netcog RESTART ?EASYNET ?CMDS CMD: _cmd ?LED ?HTTP #hskts GET HEAD GETPAGE GETHTX GETTXT ?CONTENT CONTENT ?FTP ?FTPCON !FTPCON ftp$ ftp# REST STOR RETR (RETR) RNTO RNFR RNFR$ FTPMSG SIZE SENDFILE BLKSEND BUFSIZ LIST ?DISCONNECT PWD CWD cwd$ CDUP MDTM FEAT SYST PASV #ftpmax #ftpmin PORT TYPE type PASS USER ECHOREQ GETFNAME dataport pass$ user$ .IPD COMMA .BYTEDEC GETTIME RESOLVE ?TELNET QUIT BYE STAT! constat CONNECT DSCTD? DISCONNECT CONNECTED? DISCREQ disreq KEEPALIVE contd UpdateTXWR FlushSkt MSG> <MSG msgstk MSGS msgs ledon ledcnt UNKNOWN COMPARE$ LOCATE$ LEDS LANLED READYLED @FWRITE netvars ALARM TIMEOUT FSTAMP APPEND (cat) RIGHT$ RENAME$ FSIZE@ FILEIN *EASYNET* skt$ HTTP TELNET FTPDAT FTP NETMAN ifconfig .SOCKETS .SOCKET .SKT .SKTHD SWAPB .@SKTBUF .PTR .IP .IP1 .IPX @SKTBUF sktbuf LREADSKT vwrite vread LSEND WBUFSZ WIZ INPUT$ _get$ _get# getsz LANPOLL lanpolls LANCON LANCONEMIT LAN LANKEY LANEMIT ?SENDPOLL ?SEND LANSEND WAITSEND txsize txtime !TXWR txwr@ @txwr txwr CRLFS AUTOSENDS autosend !WIZ !TXBUFS !WIZIP oui2 !WIZIO WCOLD PORT! SetPORT sDISCON? sCONNECTED? sCLOSING? sESTAB? sINACTIVE? sCLOSED? sRECV sSENDKEEP sSENDMAC sSEND sCLOSE sDISCON sCONNECT sLISTEN sOPEN PPPoE MACRAW IPRAW UDP TCP CLOSED KEEPTMR RXWRITE RXREAD RXSIZE@ TXWRITE TXREAD TXFREE@ sTXMEM sRXMEM sPRO sSSIZE sDPORT sDIP sDHAR sPORT sSTAT@ sINTS sCMD! sMODE &CON &DISCON &RECV &TIMEOUT &SENDOK UPORT UIP @RCR @RTR INTMASK INTS@ SIP MAC SUBNET GATEWAY wMODE @ports @wcold @mac @subnet @sip @gateway LWRITE LREAD L@ LW@ LC@ L! LW! LC! SOCKET SKT SKT@ skt2 @SOCKET @TX @RX SWC! @COMMON WRWIZ SWC WIZADR RDWIZ WIZPINS @wizpins BUFFER mySN myIP myGW EE@ EE! eeprom CONIO MBXEMIT (MBXEMIT) _W5500 *W5500* :F6 :F5 :FB :FC P2PC PC CONKEYB KEYB@ KEYB !KEYB kbb KEY#@ KBRK MAKE? RXKB kbtbl kbk kbs *PS2* P2EVAL CONVGA VEMIT VGA vcold VCH VCH8 VCH8A _hp VCH4 VCH2 VCH1 CHAR++ FONTGEN VSCROLL NEWLINE VHOME TERM NS BOTTOM >VXY VXY> row1 col1 VXY b/l _scrolls vflg row col csp CSP lsp LSP FONT5X7 *TEXT* SUBS GAMMA _th gam/ gam* NEGATIVE N SHADOWS PALMASK COLORS BUTTON -BEST SLIDESHOW RESUME REPLAY WATCH LOAD-FRAME BMV$ ?MEDIA-KEYS VIEW-FRAME VIEWH VIEWN VIEWF VIEWP FRAME+ FRAME- BSECTS frame skips wspd ?BOUNCE NEGATE! BOUNCE hbounce vbounce SETWIN !WIN XRES YRES BMVBUF hwin vwin *BMV* >>| |<< PLAYALL track PITCH FWD REW PAUSE TRACK$ PLAY$ PLAY PLAY# WAVE.TASK ?WAVE GETWAV PLAY.TASK dacbits PLAYBUF AUDIO AOUT STOP OPEN-EXT$ VOL vol* vol/ lch rch wavflg _pitch samrate wavsz wavsect wavbuf2 wavbuf wavblk# ROUT LOUT *WAVE* MODULATE WAVES PLOTWAV scrbl ax ao FBSAVE FBGRAB BMPTBL BMPHDR VIEWSEC VIEW$ VIEW OPEN.BMP$ V$ VFLIP *BMP* SHOW BLANK FRAMES SYNCH LUMA lm VFILL CLRSCR BOX PANEL FRAME RECT VLINE HLINE LINETO X+- Y+- Y2 X2 BR BL TR TL PEN> >PEN _pen1 _paper1 PLOT PIXEL! PLOT8 PLOT1 tex @XY CENTER Y+! X+! !XY XY! XY@! Y@ X@ h w y x scr* height width _y1 _y _x1 _x -VGA -MONO -C64 -TERM -MAC !PAL PAL2 PAL1 !COL >RGB RGB> SCREEN vgadac REVERSE PLAIN brown gray coal white magenta cyan blue yellow green red black P&P PAPER@ PAPER PEN@ PEN rm scrsz SETBMP 900p 768p 384p 540p V148 1080p 144p 180p 360p V74 720p 384v V65 768v 300v V40 600v 120v 240v V25 480v V/2 .VGA !VGA VSYN vms HSYN VCLK VRES V/ BPP BPP@ SCR PAL rows cols VW@ V@ VW! V! vcnt hcnt vint BMP tim *TIM* LISTING ASM: FORTH: doNEXT END-CODE end TIA: CODE ASSEMBLER *TIA* MAIN ~E ~B ~D ~W ~? ~Y ?? SYSINFO .DEVICES .USAGE .UBYTES SFBYTES lsi2c .I2C .ASBYTES .MODULES CRLF+ ?PINS ?PIN FCACHE SRRDS srinc .SR SRID SR! SRW! SRC! SRWRS SRWRP !SR SRRD SR SR@ SRW@ SRC@ *SPIRAM* RECLAIM STRIP STRIPIT DECOMP SEENFA SEE SEECFA ?NAME .NAME ?THENS .SEE ?LOOPS ?DOS CASE? ?GOTO .LCON ?CRLF fad? if? -if +if .LIT .W10 -ind +ind INDENT .STR .M: .ASC .D $ 'EMIT (DS) (LC) (.") (AS) (") (S) (R) (IF) (L) (W) SEE@ xcfa @SEE @SEE+ @SEE++ eflg? dflg? wsrc wptr wnfa wcode ind ex ifs dflg *DECOMPILER* .FDT .TIME .DAY .DATE .DT .6 DAY@ DATE@ TIME@ DT@ BCDDEC DATE! DAY! TIME! UTIME! UTIME@ RTC !RTC I2CLOAD RDRTC rtcbuf I2CREG@ RTC@ I2CREG! RTC! RTCB! RTC? *RTC* I2C.KHZ I2C I2CC@ I2CRDREG nakI2C@ I2C@ I2C! I2CWR I2CRD I2CRD? i2cdev <I2C> I2C> BU BACKUP$ BACKUP BU! MBR! BIX LISTBLOCKS EDITBLOCK VK .EDIT bn .BLOCK FORMAT FORMAT.ROOT .DISK .FREE .FAT .PS .res FORMAT.FAT !FATS !FATX !FSINFO #s/c CLSZ .MBR .MB .MBS FORMAT.MBR .CHS ?FS .SD .SPEEDS .SPD *DISK* QV cat RENAME RENAME! RENAME# FLOAD DEL-FILE pwd CD cwd OPEN-FILE OPEN-FILE$ FOPEN REOPEN-FILE FOPEN$ MAKE mk$ mk ClaimClusters FreeDir? FFIND FOPEN# >F83 GETF$ file$ -fsize -fclstl -fdate -ftime -fclsth -fadate -fcdate -fctime -fcms -atr -ext -fname dirbuf FWRITE FREAD FGET FLOADS ls .LIST (.LIST) (SLIST) (DIR) udir lscnt ACTIVE? .FNAME .FTIME .FDATE .ASMONTH .FYEAR DIRW .DIR DIR .ENTRY .DATE .DECX GAP .NAME @DIR @FNAME MOUNTED? ?MOUNT MOUNT GETFAT ?FREE FSIZE@ @FSIZE S>D I>S S>C# S>C C>S2 C>S D>S D>C I>D #C FreeClusters? CLUSTER@ @CLUSTER FAT2 FAT1 CD# FCLOSE CLOSE-FILE OPEN-SECTOR CWD ROOT FATSZ @FAT @BOOT CWD! @CWD @ROOT SD SDC! SD! SDC@ SDW@ SD@ SDADR @OPEN @FILE SECTOR SECTORF SDRDS SDWAIT SDRDX SDRD SDRDBLK FLUSH ?FLUSH SDWRS SDWR SDWR? B>S RW? RWS RWC RW wm RO .OCR .CSD .TRANS .TACC TACC tval .xs .CURRENT .ma ma .CARD .CID .MFG .TITLE .*** .LINE@ .LINE !SD !SD! BITS@ CSD@ XSHR SDDAT! SDSTAT DAT? ACMD SDRES CMD TOKEN SDCLK3 RELEASE SDCLK SD? !SDIO SDPINS SDSPI SDCS SDDO SDDI SDCK SDBUF+ !SDBUF SDBUF fsize fcl fdate ftime fch f? cwd$ fatsz sdsz cwdsect fat2 fat1 cwdir rootdir mksiz used% freecl usedcl lastcluster freeclusters volname serial extsig ldn bbsect infosect rootcl fat? s/f s/p hidden media fats rsvd s/c b/s oemname fat32 parsig parts bitbuf blklen sdhc fq file# wrens wrflg sdcmd _fkey mntd _fwrite _fread opensect filesect readsect seccrc sdsum @sdwr @sdrd sdsize csd cid ocr sdvars *EASYFILE* VOLTS@ SETADC AMIN AREF aref amin ADC V DAC HILO PULSES PULSE PW SMPS TRI PWM! PWM BLINK DUTY SETNCO NCO HZ KHZ MHZ MUTE WRFNC NSCNT NCOCNT OPEN-DRAIN SINK SOURCE !OUT !IN PINM 14P CLOCKED OPEN 10ua 100ua 1ma 150K 15K 1K5 FAST *SMARTPINS* FILTER! CRUISE CLKMHZ! RCFAST RCSLOW !CLKHZ CLKHZ1! CLKHZ! HZ! clkfreq CLKMHZ USEXTAL USEPLL CLKSRC +SS PLLDIV +PPPP VCOMUL XIDIV PLLOFF PLLEN CLK! pf +CC CLKSET _fin _clk *P2CLOCK* CONBAUD RXD TXD BAUD -bit dl fibos fibo module HERE: TABLE MBXEMIT CONOUT +BUF =BUF bufsz bufwr bufptr NULL KEY: EMIT: TABS TAB .SUCCESS .OK .io .DEC2 PINS PIN _pinmode DUMPZ dz .CONS .VARS .CONVARS .CV .CTRLS WORDS MWORDS MOD? LWORDS CFA>NFA .NFA PAGE0 >! $+ X$ C$= $= a>A .MEM U.R D.R D. .DP >STR .DECS D.DECS #S, #c .BYTES .BITS SPINNER _sp _el REVECTOR +-! | w ~b ?UNTIL TIMEOUT? TIMEOUT +POLL POLL: !POLLS POLLS VOCAB (VOCAB) SEARCH-VOCABS +VOCAB @VOCAB FORTH vocabs #vocabs EVALUATE EVALKEY nx' CALL$ -> <- %white %cyan %magenta %blue %yellow %green %red %black %WRAP %BOLD %REVERSE ATR %PLAIN asw %CURSOR %ERLINE %ERSCN %CLS %XY .PAR CUR %PAPER COL %PEN ESCB %HOME ESC *ANSI* LOCAL REMOTE PAGER .HERE PROMPT! .M TRACE! RUN: RUN 1M 64KB _vspin _vgacfg _baud _clkcfg _cpuhz _xin KBDAT KBCLK CLKDLY CLKREG INB INA OUTB OUTA DIRB DIRA PTRB PTRA PB PA IRET1 IJMP1 IRET2 IJMP2 IRET3 IJMP3 TAQOZ# AT == ^ !& & *** ALIAS CPA! VEC0 *EXTEND* DUP OVER 3RD 4TH OVER+ SWAP ROT -ROT ROT4 -ROT4 DROP 2DROP 3DROP NIP 2SWAP 2DUP ?DUP AND ANDN OR XOR NOT ROL ROR ROR? >> << SAR 2/ 2* 4/ 4* 16<< 8<< 9<< 16>> 8>> 9>> REV REVB |< >| BMASK 1& >N >B >9 >W BITS SIGN HUBEXEC = <> 0= 0<> 0< < U< > U> <= => WITHIN DUPC@ C@ W@ @ C+! C! C@++ W+! W! +! ! M! D@ D! DWIDTH BIT! SET CLR SET? 1+ 1- 2+ 2- 4+ + - b++ UM* * W* LW* DM* / U/ U// UM/ // */ U*/ UM// QROTATE QVECTOR LOG EXP C++ C-- W++ W-- ++ -- RND GETRND SQRT SETDACS ~ ~~ W~ W~~ C~ C~~ L>S L>W W>B W>L B>W B>L MINS MAXS MIN MAX ABS -NEGATE ?NEGATE NEGATE -1 ON TRUE FALSE OFF GOTO IF ELSE THEN BEGIN UNTIL AGAIN WHILE REPEAT SWITCH CASE@ <CASE> BREAK CASE ADO DO LOOP +LOOP UNLOOP FOR NEXT ?NEXT I J LEAVE ?LEAVE IC@ I+ BOUNDS H L T F R HIGH LOW FLOAT MSBOUT LSBOUT MSBIN PIN! PIN@ WRPIN WXPIN WYPIN RDPIN RQPIN AKPIN RDPINC WAITPIN WRACK pIN @PIN WAITX SETCT1 WAITCT1 REBOOT RESET 0EXIT EXIT EXIT; NOP EXECUTE CALL JUMP COGMOD LOADMOD >R R> >L L> !SP DEPTH P2? COG@ COG! LUT@ LUT! COGID COGINIT COGSTOP NEWCOG COGATN POLLATN SETEDG POLLEDG BMP CLKMHZ KEY WKEY KEY! KEY@ keypoll CON MOUT NONE COM CTRL! DISCARD CONKEY CONEMIT SEROUT MBX MBO .EMIT EMIT EMITS EMIT! EMIT@ CRLF CR CLS SPACE SPACES RAM DUMP! DUMP DUMPW DUMPL DUMPA DUMPAW QD QW ?ERROR CONSOLE PROMPT DEBUG lsio TRACE UNTRACE COG LUT KB MB M . PRINT .AS .AS" .DECL .DEC4 HOLD #> <# # #S <D> U. .DEC .BIN .H .B .BYTE .W .WORD .L .LONG .ADDR .ADRX PRINT$ LEN$ UPPER$ " ." PRINT" CTYPE NUMBER ?EXIT ERASE FILL CMOVE <CMOVE LMOVE s ms us CYCLES DELAY DELAYS INS CNT@ LAP LAP@ .LAP .LAPS .CLK .ms HEX DEC BIN .S W wORDS @WORDS GET$ SEARCH ufind $># uprompt uaccept unum uemit ukey delim names TASK REG @WORD SPIN || , [W] ["] NULL$ $! $= (ASM) (CODE) FIND$ FORGET CREATE$ CREATE: VAR pub pri pre public private : ; [ ] ' := :=! ALIGN DATCON ALLOT HERE @HERE @CODES SETORG uhere uwords flags orglen org@ !org org bytes words longs byte word long res [C] GRAB [G] NFA' NFA+ CPA CFA \ --- ( { } IFNDEF IFDEF .VER TAQOZ MSAVE MLOAD FL TERM AUTO SPIRD SPIRL SPIWR SPIWB SPICE SPIWC SPIWW SPIWM SPIWL SPIPINS SPIRX SPITXE SPITX CLKS TXDAT I2C.STOP I2C.START I2C.RESTART I2C.WR I2C.RD WAIT CLKDIV RCSLOW HUBSET WP WE CLKHZ ERROR SFPINS SF? SFWE SFCMD SFWD SFSID SFJID SFER4 SFER32 SFER64 SFER SFERP SFWRP SFBU SFRE SFRDS SFWRS SFC@ SFW@ SF@ SF .SF *SPIFLASH* outbox inbox BUFFERS @VGA END  2332 ---  ok TAQOZ#

Interaktivni assembler, VGA podrška, PS/2, uSD kartice, bruka ... u oko 60kB interaktivnog Forth-a u 8-paralelnom radu ...

[Macola]

Obzirom da P2 ima 64 IO pinova, i neka bude da upotrebimo 10 za uSD, konzolu, neku memoriju, ostaje još 54 slobodnih pinova, od kojih SVAKI i svi odjednom, mogu biti: adc, dac, IO, komparatori, digitalna logika i još gomilu funkcija golih smart pinova, a bez bitnog angažovanja jezgara.

P2 ima jako moćan hardver smart pinova, plus što ima 8 jezgara koji praktično rade istovremeno (samo prvih nekoliko taktova treba da se ulanči bafer i posle su istovremeno angažovana).

Sam Forth zahteva drugačiji način razmišljanja od ostalih jezika i apsolutna je greška da pokušate neki svoj kod (npr C i td...) da "preradite" na Forth.

Dobićete daleko lošije performanse od maksimalnog rezultata. Treba drugačije razmišljati iz korena.

Kod Forth je dobro iscepkati masivniji kod na više sitnih reči, koje ograničeno u jednom mahu koriste stek, a na taj način se maksimalno izbegava pravljenje i upotreba varijabli i štedi se jako na vremenu izvršenja...

Takođe, za razliku od mase ostalih jezika, ovde možete imati gomilu povratnih vrednosti iz "funkcije", tj. iz REČI.
Broj povratnih vrednosti je praktično ograničen samo dubinom steka.

[mikikg]

Uspeo sam da spojim minimalni Forth koji sam postavio ovde sa Qt-om.

Vrlo interesatna priča, prvo što to odprilike da to niko nije probao niti koristio (osim jednog rusa, administrator nekog foruma : ), drugo što mi je trebalo od same ideje i pomisli da tako nešto uradim i poteram neki osnovni koncept odprilike manje od jednog dana, treće radi mnogo dobro, četvrto kako se to "bezobrazno dobro" integriše i kako se prelepo skače iz konteksta u kontekst preko stack-a, peto Qt (C/C++) je postao napokon interaktivan kada mu se ubaci Forth interpreter i napokon mogu da izvršim sekvencu komanti poput ove koja se zove "skok" koja hvata nekoliko Qt kontrola i "klikne ih" u razmaku od jedne sekunde, da mi preskoči tamo neke korake da ne moram ja stalno to da klikćem ručno ...

Code:

": skok fl click 1000 msleep gotit click 1000 msleep usb click ;\n"

[mikikg]

Hehe, spomenuh u ecmX temi da sam pokrenuo Forth na GPU!

I evo jedan primer, 200 Forth VM-ova (virtualnih masina) koji rade paralleno na grafickoj kartici!
Svaka VM je kao neki mali MCU koja imam 8 ulaza i 8 izlaza i jedan 8x7-Seg displejcic

Napravio sam specialno Forth jezgro koje moze da radi i na pravom MCU STM32, i na PC samostalno ili kroz NGINX, i kroz WebASM u browseru i na GPU, isti programi svuda samo u razlicitim kontekstima!

Interaktivno sve moze da se pali i gasi i menja program u letu, svi rade nad istim skupom nekih podata (ako trazim tako), tj kada udje neki novi podatak to moze da procesira XYZ razlicitih Forth VM-ova istovremeno - paralelno ...

[mikikg]

Evo nastavka priče od onih 200 Forth VM-ova na grafičkoj, sad je to preraslo u ozbiljan projekat

Forth jezgra pisana ručno u asembleru, za svaku porodicu procesora posebno

Jedan isti Forth, a ispod njega ručno pisano jezgro za svaki procesor posebno. Jezgro je mala virtuelna mašina: NEXT petlja, opkodi i tabela skokova.
Svako jezgro se proverava protiv iste reference (moj forth.c): isti ulaz, pa se poredi stek, status i cela memorija VM-a, bajt po bajt.

Živo, pravo ovde: ekran sa prozorima crta Forth u WASM jezgru, preko GPU-a vašeg pregledača (prozor Demo ima film, logo, tunel, plazmu...).
ceo ekran

1. Koja jezgra imam i koliko su velika
Veličina u bajtovima flash-a, samo jezgro, bez programa i podataka.

Porodica	Čipovi	Jezgro (B)	Provereno
DOS 16-bit	8086, .COM	563	DOS emulator
PIC16	PIC16F18855, PIC16F17125	924	pravi čip (PICkit 5)
x86-32	i386+, Linux bez libc	1 028	Linux
WASM	browser	1 392	Node, browser
PRU	TI PRU-ICSS (AM335x, AM64)	1 520	pravi PRU0 na BBB
C2000	TI Piccolo F28x	1 682	simulator
RISC-V	RV32IMC: ESP32-C3/C6, CH32V	2 104	QEMU
Xtensa	ESP32, S2, S3	2 342	QEMU
Thumb-1	STM32 F0, RP2040, nRF51	2 346	QEMU
Thumb-2	STM32 F1/F4/G4/H7	3 214	QEMU + prava BBB
AArch64	RPi 3/4, Zero 2 W	3 496	QEMU
8051	8051, 8052	4 031	simulator
x86-64	PC, serveri	4 035	Linux
ARMv6	RPi Zero, BeagleBone Black	4 552	prava BBB
Z80	Z80	—	simulator
PTX	NVIDIA GPU	—	RTX 5060 Ti

Od pola kilobajta do četiri i po, zavisno od procesora.

2. Konzola (REPL) nad ASM jezgrom
Pun interaktivni Forth (parser, rečnik, ispis, sve) radi direktno nad ručno pisanim jezgrom.

Jezgro	Konzola (B)	Gde	Rezultat
x86-64	25 792	PC, Linux	201/201 isto kao forth.c
Thumb-2	15 721	Cortex-M4 (-Os); pravi test na BBB	201/201, 1,7–1,8x brža od forth.c

3. GPU — hiperparalelno
Svaka nit na grafičkoj je jedan ceo Forth VM, sa svojom memorijom i stekovima. Pustim N VM-ova odjednom, pa onda svaki od njih ponovo kroz CPU referencu i uporedim stek, status, broj koraka i celu memoriju.

N VM-ova	GPU koraka/s	1 CPU jezgro	GPU/CPU	isto kao referenca
1	1,6 M	520 M	0,003	1 / 1
1 024	681 M	513 M	1,3	1 024 / 1 024
16 384	10,8 G	531 M	20	16 384 / 16 384
65 536	17,9 G	504 M	36	65 536 / 65 536
262 144	12,9 G	486 M	27	262 144 / 262 144

• Do 262 144 Forth mašina istovremeno na RTX 5060 Ti, nijedna razlika u odnosu na referencu.
  
• Vrh je ~18 milijardi Forth koraka u sekundi, oko 36x jedno CPU jezgro.
  
• Kad se uračuna i prenos podataka na karticu i nazad, ostaje ~11x.
  

[ddanijel]

Pokusavam da razumem ovo iznad ali mi ne ide, moze neko krace objasnjenje u par recenica i neki konkretan upotrebni primer ili ako moze jos bolje 3 (TRI) primera za sta bi sluzilo?
Ali bih zamolio ako mozes ti da napises svojim recima, da ti ne pise AI jer u tom slucaju opet dolazimo na pocetak nerazumevanja.

[mikikg]

Ukratko nekoliko primera:

1) Digitalni blizanci - Digital Twin, sa ARM arhitekturom bukvalno 1:1 isti binary code na kontroleru i u cloud-u, za ostale platforme na nivou VM-a

2) Integracija sa raznim "Legacy Systems" i replikacije podataka (preko eXtremeDB), razni adapteri za poslovne aplikacije od kojih se jos uvek neke vrte i koriste pod DOS-om

3) Kompleksni industriski protokoli, poseban osvrt na PRU jedinice u Sitara SoC

4) ERP sistemi sa kompleksnim pravilima, logika moze da se menja u letu i adaptira potrebama na nivou korisnika

5) Kompleksna analitika nad podacima u realnom vremenu + vizuelizacija

6) Konsolidacija i optimizacija (serverskih) resursa

7) Automatizacija, telemetrija i AI na "ivici" - Edge automation

[mikikg]

Evo samo jedan tizer (screen shot) sta je ispod haube i kako se to sve integrise sa nasom novom cloud infrastrukturom koju uskoro pustamo kao online servis.