
OP(pliteral)
.int writeCFA
OP(pliteral)
.int addressCFA
OP(gap)
OP(printhex)
OP(one)
OP(Negate)
OP(printhex)
OP(zero)
OP(Negate)
OP(printhex)
OP(bytes)
OP(one)
OP(Negate)
OP(printhex)
OP(zero)
OP(Negate)
OP(printhex)
OP(literal)
 .byte	4
 .int	5
OP(setSize)
OP(one)
OP(Negate)
OP(printhex)
OP(zero)
OP(Negate)
OP(printhex)

OP(onbits)
OP(maskbyte)
OP(Not)
OP(one)
OP(plus)
OP(printhex)
OP(onbits)
OP(one)
OP(minus)
OP(printhex)

OP(cr)
OP(tab)
OP(onbits)
OP(maskbyte)
OP(onbits)
OP(And)
OP(printhex)
OP(cr)
OP(dpdump)
OP(onbits)
OP(maskbyte)
OP(onbits)
OP(Xor)
OP(printhex)

OP(printp)
OP(printp)
OP(printp)
OP(pdrop)
OP(printp)
OP(pliteral)
.int initial_LATEST
OP(printname)
OP(cr)
OP(onbits)
OP(maskbyte)
OP(one)
OP(ushift)
OP(printhex)

OP(literal)
.byte 4
.int  5
OP(setSize)
OP(onbits)
OP(one)
OP(swap)
OP(printhex)
OP(pTOr)
OP(rpcopy)
OP(rdrop)
#OP(snug)

OP(cells)
OP(cr)
OP(ARGV)
OP(printp)
OP(USize)
OP(printp)
OP(hexdigits)
OP(printp)

OP(cr)
OP(literal)
 .byte	4
 .int	128
OP(setSize)
OP(fetch)
OP(printhex)

OP(cells)

OP(cr)
OP(dp)
OP(pdup)
OP(ARGV)
OP(ifcontentsequal)
OP(printhex)

#OP(pliteral)
#.int addressCFA
OP(ifcontentsequal)
OP(printhex)


# words, ish
OP(Latest)                              # (P &latest ) (count)
OP(pfetch)
twords:
           OP(printname)
          OP(blank)
                OP(TOlink)
                OP(pfetch)              # (P &HNC')     (R;  count )
           OP(printname)
          OP(blank)
                OP(TOlink)
                OP(pfetch)              # (P &HNC')     (R;  count )
           OP(printname)
          OP(blank)
                OP(TOlink)
                OP(pfetch)              # (P &HNC')     (R;  count )
           OP(printname)
          OP(blank)
                OP(TOlink)
                OP(pfetch)              # (P &HNC')     (R;  count )
           OP(printname)
          OP(blank)
                OP(TOlink)
                OP(pfetch)              # (P &HNC')     (R;  count )
           OP(printname)
          OP(blank)

OP(literal)
.byte 4
.int 130
OP(words)
OP(literal)
.byte 4
.int 130
OP(words)
OP(literal)
.byte 4
.int 130
OP(words)
OP(literal)
.byte 4
.int 130
OP(words)
OP(literal)
.byte 4
.int 130
OP(words)
OP(literal)
.byte 4
.int 130
OP(words)

OP(one)
OP(one)
OP(plus)
OP(dp)
OP(pfetch)
OP(onbits)
OP(store)
OP(fetch)
OP(printhex)
OP(dpdump)


OP(one)
OP(onbits)

OP(dup)
OP(printhex)
OP(printhex)
OP(printhex)


###################################
OP(cr)
OP(cells)
OP(quit)
