         PROC  P,2                                                      SG$00010
SG$CVTHX NAME                                                           SG$00020
//       GBL   &P(2)                                                    SG$00030
//C0     JSET  0                                                        SG$00040
//C1     JSET  &P(1)./16                                                SG$00050
//       IF    (&C1 LT 16)LAB10                                         SG$00060
//C0     JSET  &C1./16                                                  SG$00070
//LAB10  NOP                                                            SG$00080
//C22    JSET  &C1.*16                                                  SG$00090
//C22    JSET  &P(1).-&C22                                              SG$00100
//C2     JSET  &C22                                                     SG$00110
//C11    JSET  &C0.*16                                                  SG$00120
//C11    JSET  &C1.-&C11                                                SG$00130
//C1     JSET  &C11                                                     SG$00140
//       IF    (&C11 LT 10)LAB30                                        SG$00150
//C1     JSET  F                                                        SG$00160
//       IF    (&C11 GT 14)LAB30                                        SG$00170
//C1     JSET  E                                                        SG$00180
//       IF    (&C11 GT 13)LAB30                                        SG$00190
//C1     JSET  D                                                        SG$00200
//       IF    (&C11 GT 12)LAB30                                        SG$00210
//C1     JSET  C                                                        SG$00220
//       IF    (&C11 GT 11)LAB30                                        SG$00230
//C1     JSET  B                                                        SG$00240
//       IF    (&C11 GT 10)LAB30                                        SG$00250
//C1     JSET  A                                                        SG$00260
//LAB30  IF    (&C22 LT 10)LAB40                                        SG$00270
//C2     JSET  F                                                        SG$00280
//       IF    (&C22 GT 14)LAB40                                        SG$00290
//C2     JSET  E                                                        SG$00300
//       IF    (&C22 GT 13)LAB40                                        SG$00310
//C2     JSET  D                                                        SG$00320
//       IF    (&C22 GT 12)LAB40                                        SG$00330
//C2     JSET  C                                                        SG$00340
//       IF    (&C22 GT 11)LAB40                                        SG$00350
//C2     JSET  B                                                        SG$00360
//       IF    (&C22 GT 10)LAB40                                        SG$00370
//C2     JSET  A                                                        SG$00380
//LAB40  NOP                                                            SG$00390
//&P(2)  JSET  &C0.&C1.&C2                                              SG$00400
         END                                                            SG$00410
