;  switchd   --  displays the 8 bitplanes of 'bswitch' 
;******************************************************
parms
  int windis
endparms

dest p
show p
copy bswitch >a

curs  128 128
frmt  220 220
era p
dump pc 255
and p a
save q
redu q

dest q
bit p1 8
copy q1 r1
bit p1 7
copy q1 r2
bit p1 6
copy q1 s1
bit p1 5
copy q1 s2
bit p1 4
copy q1 r3
bit p1 3
copy q1 r4
bit p1 2
copy q1 s3
bit p1 1
copy q1 s4
era p
era q
stop

