8.1.31.8. CURRENT

section id="fig-forth-1802.current" xreflabel="CURRENT"

        DB 087h,"CURREN",0D4h ; CURRENT
DW CNTX-10
CRNT:   DW USER
        DW 00022h