                #==================================
#   -?r         ( --- flagpyte )  (R c --- c-1) is TOR nonzero before
decrement?ATOM_(minusaskr,-?r)
        BUMP
        pop A
        add $0 to (%esp)
        ifnonzero                               minusaskrTRUE
        decl    (%esp)
        copyb  $0 to (DSI)
                jmp A
minusaskrTRUE:
        decl    (%esp)
        copyb $255 to (DSI)
                jmp A



