| /programs/develop/SPForth/img.asm |
|---|
| 12,7 → 12,7 |
| call cfa__SLITERALminusCODE+00H |
| DB 010H |
| DB '/rd/1/autoload.f',0 |
| DB '/sys/autoload.f',0 |
| call cfa_INCLUDED_+00H |
| DB 0C3H |
| AHEADER 0 ,'H.',cfa_Hdot |
| /programs/develop/SPForth/meforth_samples/autoload.f |
|---|
| 4,7 → 4,7 |
| COUNT 1+ SWAP 1- SWAP wd SWAP CMOVE ; |
| : _wd |
| $" /rd/1/" setwd ; _wd |
| $" /sys/" setwd ; _wd |
| : "/ [CHAR] / ; |
| /programs/develop/SPForth/meforth_samples/autorun2.f |
|---|
| 5,11 → 5,11 |
| OVER finfo @ 8 + ! >asciiz ; |
| : exec |
| 16 finfo @ ! finfo @ 58 sys2 ." started, code=" . CR 5 sys2 DROP ; |
| S" /RD/1/GRSCREEN" >path 99 exec |
| S" /RD/1/@RB" >path 30 exec |
| S" /RD/1/@SS" >path 30 exec |
| S" /RD/1/@TASKBAR" >path 30 exec |
| S" /RD/1/SETUP" >path S" BOOT" >param 30 exec |
| S" /RD/1/ICON2" >path S" BOOT" >param 10 exec |
| S" /RD/1/board" >path 25 exec |
| 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 |
| /programs/develop/SPForth/meforth_samples/example.f |
|---|
| 1,5 → 1,5 |
| DECIMAL |
| S" /rd/1/menuet.f" INCLUDED |
| S" /sys/menuet.f" INCLUDED |
| : not_emit |
| emit_proc DUP @ NOT SWAP ! ; |
| /programs/develop/SPForth/meforth_samples/menuet.f |
|---|
| 1,5 → 1,5 |
| \ S" /rd/1/1st.4th" INCLUDED |
| S" /rd/1/locals.f" INCLUDED |
| \ S" /sys/1st.4th" INCLUDED |
| S" /sys/locals.f" INCLUDED |
| \ : sys_wnd ( border, header, workarea, y, x -- ) |
| \ 1 12 sys2 DROP 0 sys6 2 12 sys2 2DROP ; |
| /programs/develop/SPForth/meforth_samples/picture.f |
|---|
| 1,5 → 1,5 |
| DECIMAL |
| S" /rd/1/menuet.f" INCLUDED |
| S" /sys/menuet.f" INCLUDED |
| : not_emit |
| emit_proc DUP @ NOT SWAP ! ; |
| 58,7 → 58,7 |
| : new_me ( new main loop) |
| gif DUP $" /rd/1/Menu.gif" COUNT READ 2DROP |
| gif DUP $" /sys/Menu.gif" COUNT READ 2DROP |
| gif raw READ_GIF . |
| ; |
| /programs/develop/SPForth/src/spf_last.f |
|---|
| 71,6 → 71,6 |
| : H. BASE @ SWAP HEX U. BASE ! ; |
| : TST S" /rd/1/autoload.f" INCLUDED_ ; |
| : TST S" /sys/autoload.f" INCLUDED_ ; |
| : TST1 S" WORDS" EVALUATE ; |