version 1.2, 1997/12/14 01:15:19
|
version 1.3, 1998/07/08 16:47:31
|
Line 49 Variable libs 0 libs !
|
Line 49 Variable libs 0 libs !
|
\G OS name of symbol as counted string |
\G OS name of symbol as counted string |
here 2dup swap 2 cells + dup @ A, ! |
here 2dup swap 2 cells + dup @ A, ! |
2swap 1 and IF fcall-table ELSE icall-table THEN swap |
2swap 1 and IF fcall-table ELSE icall-table THEN swap |
cells 2* + , 0 , bl parse-word string, @proc ; |
cells 2* + , 0 , bl sword string, @proc ; |
|
|
-1 Constant (addr) |
-1 Constant (addr) |
0 Constant (int) |
0 Constant (int) |
Line 99 DOES> ( -- addr )
|
Line 99 DOES> ( -- addr )
|
\G linked list of library's procs |
\G linked list of library's procs |
\G OS name of library as counted string |
\G OS name of library as counted string |
Create here libs @ A, dup libs ! |
Create here libs @ A, dup libs ! |
0 , 0 A, bl parse-word string, @lib |
0 , 0 A, bl sword string, @lib |
DOES> ( pars/ type -- ) |
DOES> ( pars/ type -- ) |
over -1 = IF label: |
over -1 = IF label: |
ELSE |
ELSE |