        ( 
 SP).   ( )    ,   
 BX. .. [SP] -    , [SP+2] -   ..

   :
    DUP ( n -- n n )
        PUSH BX
    DROP ( n -- )
        POP BX
    SWAP ( n1 n2 -- n2 n1 )
        POP AX
        PUSH BX
        MOV BX, AX
     "src\stack.f".

    BP.

       SI.   
(!)           
,  ,    ,    
.     NEXT (   ) 
 :

    NEXT
        ADD SI, # 2
        JMP [SI]

     SHORT.     
 Illegal opeation -   -  SHORT ...
    
    CODE MAX  ( n1 n2 -- max[n1,n2] )
        POP AX
        CMP AX, BX
        JLE SHORT @@1
        MOV BX, AX
    @@1:
        NEXT
    END-CODE

        
.

    CODE 0!
        MOV [BX], # 0
        POP BX
        NEXT
    END-CODE

    [BX]   ,  ,  !  
   "MOV WORD [BX], # 0".
