kolibrios-gitea/programs/develop/SPForth/meforth_samples/autorun2.f
vitalkrilov 46d9482bb0 Fixed misuse of "/rd/1" (changed to "/sys") for all other programs
git-svn-id: svn://kolibrios.org@9587 a494cfbc-eb01-0410-851d-a64ba20cac60
2022-01-07 12:42:44 +00:00

16 lines
478 B
Forth

: >asciiz + 0 SWAP C! ;
: >path
finfo @ 20 + 0 finfo @ 8 + ! DUP >R SWAP DUP >R CMOVE R> R> SWAP >asciiz ;
: >param
OVER finfo @ 8 + ! >asciiz ;
: exec
16 finfo @ ! finfo @ 58 sys2 ." started, code=" . CR 5 sys2 DROP ;
S" /SYS/GRSCREEN" >path 99 exec
S" /SYS/@RB" >path 30 exec
S" /SYS/@SS" >path 30 exec
S" /SYS/@TASKBAR" >path 30 exec
S" /SYS/SETUP" >path S" BOOT" >param 30 exec
S" /SYS/ICON2" >path S" BOOT" >param 10 exec
S" /SYS/board" >path 25 exec
BYE