23 lines
486 B
Text
23 lines
486 B
Text
link bitint # for int2bit
|
|
|
|
procedure main()
|
|
bitdemo(255,2)
|
|
bitdemo(-15,3)
|
|
end
|
|
|
|
procedure bitdemo(i,i2)
|
|
write()
|
|
demowrite("i",i)
|
|
demowrite("i2",i2)
|
|
demowrite("complement i",icom(i))
|
|
demowrite("i or i2",ior(i,i2))
|
|
demowrite("i and i2",iand(i,i2))
|
|
demowrite("i xor i2",ixor(i,i2))
|
|
demowrite("i shift " || i2,ishift(i,i2))
|
|
demowrite("i shift -" || i2,ishift(i,-i2))
|
|
return
|
|
end
|
|
|
|
procedure demowrite(vs,v)
|
|
return write(vs, ": ", v, " = ", int2bit(v),"b")
|
|
end
|