1. - - 7


5

( 09.09.86 BRANCH ?BRANCH (LOOP/ (+LOOP/ ) CODE BRANCH M: BRANCH# RI 0 (, RI RFORTH LH, RI RMASK NR, RNEXT BR, CODE ?BRANCH RW1 POP, RW1 RW1 LTR, BRANCH# BZ, RI RTWO AR, RNEXT BR, CODE (LOOP) RW1 1 LA, 1 =F B, CODE (+LOOP) RW1 POP, 1 =H 0 RFIRST LH, 0 RSECOND SH, 0 RMASK NR, 0 RW1 AR, RW1 RFIRST AH, RW1 RFIRST STH, 0 RMASK CLR, BRANCH# BNH, RRET 6 (, 0 RRET LA, RI RTWO AR, RNEXT BR, END-CODE

6

( 09.09.86 KEY CR EMIT TYPE (EXPECT/ RBLK WBLK ) ( ) CODE KEY ( ->C ) END-CODE CODE CR ( -> ) END-CODE CODE EMIT ( C-> ) END-CODE CODE TYPE ( A,N-> N ) END-CODE CODE (EXPECT) ( A,N1->A,N2 N1 / / ; N2 - ) END-CODE CODE RBLK ( A,N-> N ) END-CODE CODE WBLK ( A,N-> N ) END-CODE

7

( 09.09.86 ) 64 CONSTANT BL ( ) 1024 CONSTANT B/BUF ( ) &LENG CONSTANT WIDTH ( ) 0 CONSTANT 0 ( ) VARIABLE USE ( ) VARIABLE PREV ( ) VARIABLE S0 ( ) VARIABLE R0 ( ) VARIABLE FENCE ( "FORGET") VARIABLE CONTEXT ( - ) VARIABLE CURRENT ( - )

8

( 09.09.86 - ) VARIABLE OFFSET ( ) VARIABLE BASE ( ) VARIABLE STATE ( ) VARIABLE DPL ( ) VARIABLE CSP ( ) VARIABLE HLD ( "PAD") VARIABLE BLK ( ) VARIABLE >IN ( ) VARIABLE SPAN ( , "EXPECT") VARIABLE #TIB ( , "TIB") VARIABLE SCR ( , "LIST")