High-Level ROM Code

start: cont loadr,loadd,loadq,loadl,clrlast,muxin

cont 0->ovflval,loadovfl,loadctr

cjump hibit0,setovfl

repeat: cont shift

cont decr

cont loadr,loadl,loadlast

cjump ctrnz,repeat

cjump lastz,halt

cont loadr

jump halt

setovfl: cont 1->ovflval,loadovfl

halt: jump halt,jobdone