1. - - 6


1

( 09.09.86 - ) DECIMAL ( ) 128 CONSTANT &IFLAG ( "IMMEDIATE") 32 CONSTANT &SFLAG ( "SMUDGE") 31 CONSTANT &LENG ( ) &SFLAG 256 * 64 + CONSTANT &DWORD ( ) ( RFORTH) START-CODE *, RFORTH USING, ( ) M: NEXT 14 0 (, RI RFORTH LH, RI RTWO AR, M: NEXT1 14 RMASK NR, 15 0 (, 14 RFORTH LH, 15 RMASK NR, 15 RFORTH AR, 14 RTWO AR, 15 BR,

2

( 09.09.86 ) CONST MSG M: MSG# 0 H, ( MSG) CONST FIRST M: FIRST# 0 H, ( ) CONST LIMIT M: LIMIT# 0 H, ( ) CONST TIB M: TIB# 0 H, ( TIB) 4 ALIGN M: LENGMASK 255 &IFLAG - S>D F, ( IMMEDIATE) M: LENG1MSK 255 &IFLAG - &SFLAG - S>D F, ( IMMD SMDG) M: LENG2MSK &LENG S>D F, ( ) 8 ALIGN M: TEMP 16 ALLOT ( )

3

( 09.09.86 ) M: DOES# RI RPUSH, RI 4 (, 15 LA, RI RFORTH SR, A: CREATE# RW1 14 LR, ( PFA ) M: PUSHRW1 RSTACK RTWO SR, ( RW1) M: PUTRW1 RW1 PUT, RNEXT BR, ( ) M: 2POP RSTACK RTWO AR, ( ) M: POP RSTACK RTWO AR, RNEXT BR, ( ) M: POPPUT1 RSTACK RTWO AR, ( ) RW1 PUT, RNEXT BR, ( RW1) M: 2PUSHRW1 RSTACK RTWO SR, ( ) M: PUSH2RW1 RSTACK RTWO SR, ( ) M: 2PUTRW1 RW1 TEMP ST, ( ) FIRST (, 4 ), TEMP MVC, RNEXT BR, M: 2POPPUT1 RSTACK RTWO AR, RSTACK RTWO AR, 2PUTRW1 B,

4

( 09.09.86 : .14) M: LHRW12 RW1 SECOND LH, RW2 PULL, 14 BR, M: LRW1 TEMP (, 4 ), FIRST MVC, RW1 TEMP L, 14 BR, M: LRW12 TEMP (, 8 ), FIRST MVC, RW1 TEMP 4 +(, L, RW2 TEMP L, 14 BR, M: GOTO 14 0 (, 0 14 LH, NEXT1 B, M: IPUSH RI PUSH, RW2 RW2 SR, RW2 0 (, RI RFORTH IC, RI 2 (, RI RW2 LA, 14 BR, CODE EXIT M: EXIT# RI RPOP, RI RMASK NR, RNEXT BR, END-CODE M: ERCOND8 14 GOTO BAL, ] ABORT8 [