-


         

MODE


, 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