POP     LD      R1,EMPTY      ; EMPTY <-- -3FFF
        ADD     R2,R6,R1      ; Compare stack 
        BRz     UNDERFLOW     ; pointer with 3FFF
        LDR     R0,R6,#0
        ADD     R6,R6,#-1
        RET 
EMPTY   .FILL   xC001