-



         

6. - 15


, 0 MODE 1 MODE , .

, . , - 40 80.

:

: 40-/ 40 # ! 0 MODE ; : 40- 40 # ! 1 MODE ; : 80-/ 80 # ! 2 MODE ; : 80- 80 # ! 3 MODE ;

, :

: -! ( # ) MODE # ! ; : 40-/ 40 0 -! ; : 40- 40 1 -! ; : 80-/ 80 2 -! ; : 80- 80 3 -! ;

, , , , , `` :

: / ( #) DUP # ! 20 / 2- MODE ; : ( #) DUP # ! 20 / 2- 1+ MODE ;

:

40 / 40 80 / 80

.

. , :

: -! ( # ?) SWAP DUP # ! 20 / 2- + MODE ; : / ( # -- ) 0 -! ; : ( # -- ) 1 -! ;

, . , , . .

. , . :

0 CONSTANT 1 CONSTANT 2 CONSTANT 3 CONSTANT 4 CONSTANT 5 CONSTANT 6 CONSTANT 7 CONSTANT 8 CONSTANT - 9 CONSTANT - 10 CONSTANT - 11 CONSTANT - 12 CONSTANT - 13 CONSTANT - 14 CONSTANT - 15 CONSTANT