199 lines
5.0 KiB
FortranFixed
199 lines
5.0 KiB
FortranFixed
|
|
|||
|
\ Temporary variables
|
|||
|
( 24.09.1997 <EFBFBD><EFBFBD>१<EFBFBD><EFBFBD> <EFBFBD>. )
|
|||
|
\ April 12th, 2000 - 14:44 Mihail Maksimov
|
|||
|
\ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>樨 !! ... !! <20> >| ... | , <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><E0AEA2> |DOES
|
|||
|
|
|||
|
\ <20><>⨬<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ਠ<EFBFBD><EFBFBD>. <EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>ᯮ<EFBFBD>짮<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DO LOOP
|
|||
|
( 10.06.1999 Ruvim Pinka, idea - Mihail Maksimov )
|
|||
|
|
|||
|
( <20><><EFBFBD><EFBFBD>⮥ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>७<EFBFBD><EFBFBD> <EFBFBD><EFBFBD>-<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>묨 <EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD>묨.
|
|||
|
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD>ᯮ<EFBFBD>짮<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> LOCALS <EFBFBD>⠭<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 94.
|
|||
|
|
|||
|
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⮫쪮 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
⥪<>饣<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD>࠭<EFBFBD>祭<EFBFBD><EFBFBD><EFBFBD> <EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>맮<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
<><E1ABAE> <EFBFBD>믮<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> "|" <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>筮
|
|||
|
<20><><EFBFBD><EFBFBD>⮫<EFBFBD><EFBFBD>: <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>।<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD>ᯮ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
| ᯨ᮪ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>१ <EFBFBD><EFBFBD><EFBFBD> |
|
|||
|
|
|||
|
<20><><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>⠢<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>-<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>⮬<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>᪨ <EFBFBD>뤥<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>
|
|||
|
<20>⥪<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⮢ <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>맮<EFBFBD><EFBFBD> <EFBFBD><EFBFBD>
|
|||
|
<20> <20><EFBFBD>⮬<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>᪨ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>室<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>.
|
|||
|
|
|||
|
<20><><EFBFBD><EFBFBD>饭<EFBFBD><EFBFBD> <EFBFBD> ⠪<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - <EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
<20><>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD>騬<EFBFBD> @ <EFBFBD> !
|
|||
|
<20><><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
<><E1ABAE><EFBFBD><EFBFBD> TEMP-NAMES ⮫쪮 <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>樨 <EFBFBD><EFBFBD>, <EFBFBD>
|
|||
|
<20><> <EFBFBD>⮣<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>㯭<EFBFBD>.
|
|||
|
)
|
|||
|
\ <20><><EFBFBD>樠<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>祭<EFBFBD>ﬨ, <EFBFBD><EFBFBD><EFBFBD><EFBFBD>騬<EFBFBD> <EFBFBD><EFBFBD>
|
|||
|
\ <20>⥪<EFBFBD> (<EFBFBD><EFBFBD><EFBFBD>ਬ<EFBFBD><EFBFBD>, <EFBFBD>室<EFBFBD>묨 <EFBFBD><EFBFBD>ࠬ<EFBFBD><EFBFBD>ࠬ<EFBFBD>), <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> "ᯨ<E1AFA8>"
|
|||
|
\ <20> <20><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>樨
|
|||
|
\ (( <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>樠<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>㥬<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ))
|
|||
|
\ <20><><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠭<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> | ... |
|
|||
|
|
|||
|
( <20>ᯮ<EFBFBD>짮<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 横<EFBFBD><EFBFBD><EFBFBD> DO LOOP
|
|||
|
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>稭<EFBFBD>, <EFBFBD><EFBFBD><EFBFBD>ᠭ<EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD>⠭<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 94.
|
|||
|
|
|||
|
<20><><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>ᯮ<EFBFBD>짮<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD>⨫<EFBFBD> VALUE-<EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
<20><><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>ᯮ<EFBFBD>짮<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|| ᯨ᮪ <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>१ <EFBFBD><EFBFBD><EFBFBD> ||
|
|||
|
<20><><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD>祭<EFBFBD><EFBFBD>.
|
|||
|
<20><><EFBFBD>⢥<EFBFBD><EFBFBD>⢥<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>祭<EFBFBD><EFBFBD> <EFBFBD>㤥<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⢫<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>樥<EFBFBD>
|
|||
|
-> <EFBFBD><EFBFBD><EFBFBD>
|
|||
|
<20><> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>祭<EFBFBD><EFBFBD> VALUE-<EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> TO.
|
|||
|
)
|
|||
|
|
|||
|
VARIABLE TEMP-CNT
|
|||
|
WORDLIST CONSTANT TEMP-NAMES
|
|||
|
|
|||
|
: INIT-TEMP-NAMES
|
|||
|
ALSO TEMP-NAMES CONTEXT !
|
|||
|
TEMP-CNT 0!
|
|||
|
;
|
|||
|
: DEL-NAMES ( A -- )
|
|||
|
DUP>R
|
|||
|
@
|
|||
|
BEGIN
|
|||
|
DUP 0<>
|
|||
|
WHILE
|
|||
|
DUP CDR SWAP 5 - FREE THROW
|
|||
|
REPEAT DROP
|
|||
|
R> 0!
|
|||
|
;
|
|||
|
: DEL-TEMP-NAMES
|
|||
|
TEMP-NAMES DEL-NAMES
|
|||
|
;
|
|||
|
HEX
|
|||
|
: COMPIL, ( A -- )
|
|||
|
0E8 DOES>A @ C! DOES>A 1+! \ <20><>設<EFBFBD><E8A8AD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> CALL
|
|||
|
DOES>A @ CELL+ - DOES>A @ !
|
|||
|
DOES>A @ 1- DOES>A !
|
|||
|
;
|
|||
|
DECIMAL
|
|||
|
C" LAST-HERE" FIND NIP
|
|||
|
[IF]
|
|||
|
: TEMP-DOES ( N -- ) ( -- ADDR )
|
|||
|
['] DUP MACRO,
|
|||
|
0x8D C, 0x44 C, 0x24 C, C, \ LEA EAX , X [ESP]
|
|||
|
HERE TO LAST-HERE \ ࠧ<EFBFBD><EFBFBD>襭<EFBFBD> <EFBFBD><EFBFBD>⨬<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
;
|
|||
|
[ELSE]
|
|||
|
: TEMP-DOES ( N -- ) ( -- ADDR )
|
|||
|
POSTPONE RP@ LIT, POSTPONE + ;
|
|||
|
[THEN]
|
|||
|
|
|||
|
: |TEMP-DOES ( N -- ) ( -- VALUE )
|
|||
|
TEMP-DOES ['] @ COMPILE,
|
|||
|
;
|
|||
|
: |TEMP-DOES! ( N -- ) ( X -- )
|
|||
|
TEMP-DOES ['] ! COMPILE,
|
|||
|
;
|
|||
|
|
|||
|
VARIABLE add_depth add_depth 0!
|
|||
|
|
|||
|
\ <20><>㡨<EFBFBD><EFBFBD> <EFBFBD> <EFBFBD>⥪<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⮢ <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>砫<EFBFBD> <EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
|||
|
: !TEMP-CREATE ( addr u -- )
|
|||
|
DUP 20 + ALLOCATE THROW >R
|
|||
|
R@ CELL+ CHAR+ 2DUP C!
|
|||
|
CHAR+ SWAP MOVE ( name )
|
|||
|
TEMP-NAMES @
|
|||
|
R@ CELL+ CHAR+ TEMP-NAMES ! ( latest )
|
|||
|
R@ CELL+ CHAR+ COUNT + DUP>R ! ( link )
|
|||
|
R> CELL+ DUP DOES>A ! R@ ! ( cfa )
|
|||
|
&IMMEDIATE R> CELL+ C! ( flags )
|
|||
|
['] _CREATE-CODE COMPIL,
|
|||
|
TEMP-CNT @ DOES>A @ 5 + !
|
|||
|
TEMP-CNT 1+!
|
|||
|
POSTPONE >R DOES> @ 2 + CELLS add_depth @ + |TEMP-DOES ;
|
|||
|
|
|||
|
: TEMP-CREATE ( addr u -- )
|
|||
|
!TEMP-CREATE DOES> @ 2 + CELLS add_depth @ + TEMP-DOES ;
|
|||
|
|
|||
|
: -> ' 5 + @ 2 + CELLS add_depth @ + |TEMP-DOES!
|
|||
|
; IMMEDIATE
|
|||
|
|
|||
|
: |DROP R> RP@ + RP! ;
|
|||
|
|
|||
|
' |DROP VALUE '|DROP
|
|||
|
|
|||
|
: !!!!; ( N N1 -- )
|
|||
|
DROP TEMP-CNT @ CELLS LIT, POSTPONE >R
|
|||
|
DROP '|DROP LIT, POSTPONE >R ;
|
|||
|
|
|||
|
: !!
|
|||
|
BEGIN NextWord 2DUP S" !!" COMPARE 0<>
|
|||
|
WHILE !TEMP-CREATE
|
|||
|
REPEAT !!!!; ; IMMEDIATE
|
|||
|
|
|||
|
: ||
|
|||
|
BEGIN NextWord 2DUP S" ||" COMPARE 0<>
|
|||
|
WHILE 0 LIT, !TEMP-CREATE
|
|||
|
REPEAT !!!!; ; IMMEDIATE
|
|||
|
|
|||
|
: |
|
|||
|
BEGIN NextWord 2DUP S" |" COMPARE 0<>
|
|||
|
WHILE 0 LIT, TEMP-CREATE
|
|||
|
REPEAT !!!!; ; IMMEDIATE
|
|||
|
|
|||
|
: >|
|
|||
|
BEGIN NextWord 2DUP S" |" COMPARE 0<>
|
|||
|
WHILE TEMP-CREATE
|
|||
|
REPEAT !!!!; ; IMMEDIATE
|
|||
|
|
|||
|
: ((
|
|||
|
0
|
|||
|
BEGIN
|
|||
|
BL WORD DUP COUNT S" ))" COMPARE 0<>
|
|||
|
WHILE
|
|||
|
FIND IF >R 1+ ELSE 5012 THROW THEN
|
|||
|
REPEAT DROP
|
|||
|
BEGIN
|
|||
|
DUP 0<>
|
|||
|
WHILE
|
|||
|
\ R> EXECUTE POSTPONE ! ( <20><><EFBFBD>ࠢ<EFBFBD><E0A0A2><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>প<EFBFBD> || )
|
|||
|
R> 5 + @ 2 + CELLS add_depth @ +
|
|||
|
|TEMP-DOES!
|
|||
|
1-
|
|||
|
REPEAT DROP
|
|||
|
; IMMEDIATE
|
|||
|
|
|||
|
|
|||
|
\ ===
|
|||
|
\ <20><>८<EFBFBD>।<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ᮮ⢥<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>ᯮ<EFBFBD>짮<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
\ <20>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>६<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 横<EFBFBD><EFBFBD> DO LOOP <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᨬ<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
\ ᮤ<>ন<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>⥪<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⮢ <EFBFBD><EFBFBD><EFBFBD><EFBFBD> >R R>
|
|||
|
|
|||
|
|
|||
|
: DO POSTPONE DO [ 3 CELLS ] LITERAL add_depth +!
|
|||
|
; IMMEDIATE
|
|||
|
|
|||
|
: LOOP POSTPONE LOOP [ -3 CELLS ] LITERAL add_depth +!
|
|||
|
; IMMEDIATE
|
|||
|
|
|||
|
: +LOOP POSTPONE +LOOP [ -3 CELLS ] LITERAL add_depth +!
|
|||
|
; IMMEDIATE
|
|||
|
|
|||
|
: >R POSTPONE >R [ 1 CELLS ] LITERAL add_depth +!
|
|||
|
; IMMEDIATE
|
|||
|
|
|||
|
: R> POSTPONE R> [ -1 CELLS ] LITERAL add_depth +!
|
|||
|
; IMMEDIATE
|
|||
|
|
|||
|
\ ===
|
|||
|
|
|||
|
|
|||
|
: :: : ;
|
|||
|
|
|||
|
: : ( -- )
|
|||
|
: INIT-TEMP-NAMES
|
|||
|
;
|
|||
|
:: ; ( -- )
|
|||
|
DEL-TEMP-NAMES PREVIOUS
|
|||
|
POSTPONE ;
|
|||
|
add_depth 0! \ <20><> <20><>直<EFBFBD> <20><><EFBFBD>砩 ;)
|
|||
|
; IMMEDIATE
|
|||
|
|