clr   a
           jbc   SAV0, go1
           setb  ABT0
go1:       jbc   SAV1, go2
           setb  ABT1
go2:       jbc   SAV2, go3
           setb  ABT2
go3:       jbc   SAV3, go4
           setb  ABT3
go4:       jbc   SAV4, go5
           setb  ABT4
go5:       jbc   SAV5, go6
           setb  ABT5
go6:       jbc   SAV6, go7
           setb  ABT6
go7:       jbc   SAV7, gone
           setb  ABT7
gone:      cpl   a
           mov   PAA, a
           mov   r7, a