78: UC TestFlip(UC c)
    79: {
    80: UC r,i=8;WH(i--){r*=2;r|=c&1;c/=2;}RT r;
C:0x006E    7D08     MOV      R5,#0x08
C:0x0070    AC05     MOV      R4,0x05
C:0x0072    1D       DEC      R5
C:0x0073    EC       MOV      A,R4
C:0x0074    600F     JZ       C:0085
C:0x0076    EE       MOV      A,R6
C:0x0077    25E0     ADD      A,ACC(0xE0)
C:0x0079    FE       MOV      R6,A
C:0x007A    EF       MOV      A,R7
C:0x007B    5401     ANL      A,#0x01
C:0x007D    4206     ORL      0x06,A
C:0x007F    EF       MOV      A,R7
C:0x0080    C3       CLR      C
C:0x0081    13       RRC      A
C:0x0082    FF       MOV      R7,A
C:0x0083    80EB     SJMP     C:0070
C:0x0085    AF06     MOV      R7,0x06
    81: }
C:0x0087    22       RET