*DECK C$BT2AE 
          IDENT  C$BT2AE
          TITLE  C$BT2AE - MOVE BOOLEAN BIT TO AN-EDITED
**        C$BT2AE - MOVE BOOLEAN BIT TO AN-EDITED 
* 
*         INPUT 
*                B3 - SOURCE ADDRESS
*                B4 - SOURCE OFFSET 
*                B5 - DESTINATION DESCRIPTOR ADDRESS
*                B7 - SOURCE LENGTH BITS
*         METHOD - CONVERT THE BIT ITEM TO DISPLAY IN A TEMPORARY 
*                LOCATION AND EDIT THE DISPLAY ITEM 
          ENTRY  C.BT2AE
 C.BT2AE  DATA   0
          SX7    B5 
          SA7    DDESC
          SX7    B7 
          SA7    SRCLEN 
          SB2    60 
          LT     B2,B7,BT2AE1      LONG SOURCE
          SB5    B3 
          SB6    B4 
          SX1    B7 
          SB3    TEMP 
          EQ     BT2AE2 
*      ALLOCATE TEMPORARY BLOCK 
 BT2AE1   SX7    B3 
          SA7    SRCADDR
          SX7    B4 
          SA7    SRCOFFS
          SB5    PTR         POINTER ADDRESS
          SB6    B7          BLOCK LENGTH 
          SB7    B0          FIXED LENGTH 
          RJ     =XC.GETBK
          SA1    PTR
          SB3    X1 
          SA2    SRCADDR
          SB5    X2 
          SA2    SRCOFFS
          SB6    X2 
          SA1    SRCLEN 
 BT2AE2   SB4    B0          DESTINATION OFFSET 
          MX0    0           NOT JUSTIFIED
          BX2    X1          DESTINATION LENGTH 
          RJ     =XC.BT2AN   MOVE BIT ITEM TO DISPLAY TEMP
          SA2    PTR
          SA1    TEMP 
          ZR     X2,BT2AE3
          SA1    X2 
 BT2AE3   SA2    DDESC
          SB3    X2 
          SB4    A1 
          SA2    SRCLEN 
          RJ     =XC.EDIT    EDIT THE DISPLAY ITEM
          SA1    PTR
          ZR     X1,C.BT2AE  NO BLOCK ALLOCATED 
          SB7    A1 
          RJ     =XC.FREBK   RETURN BLOCK 
          EQ     C.BT2AE
 PTR      DATA   0
 SRCLEN   BSS    1
 SRCADDR  BSS    1
 TEMP     BSS    10 
 DDESC    BSS    1
 SRCOFFS  BSS    1
          END 
