-- test_pmux.balsa - A test-harness for Pmux5 import [balsa.types.basic] import [pmux1] public procedure test (output out :byte) is local type ttype is sizeof byte + 1 bits array 5 of channel inp : byte variable i : ttype begin begin i:= 1; while i <= 0x80 then inp[0] <- (i as byte); inp[1] <- (i+1 as byte); inp[2] <- (i+2 as byte); inp[3] <- (i+3 as byte); inp[4] <- (i+4 as byte); i:= (i + i as ttype) end end || PMux5Byte(inp, out) end