          IDENT  DSA6032                                                 R123_OS        1
          TITLE  DSA$PACK 60 TO 32                                       R123_OS        2
          SPACE  4,10                                                    R123_OS        3
          EXT    PARSV,ZSMRRET,ZSMRENT                                   R123_OS        4
          SPACE  4,10                                                    R123_OS        5
*         P60TO32 - PACK 60 BIT WORDS INTO 32 BIT ARRAY WORDS.           R123_OS        6
*                                                                        R123_OS        7
*         BUFFER OF 60-BIT-PACKED-WORDS ARE UNPACKED INTO                R123_OS        8
*         AN ARRAY OF 32 BITS RIGHT JUSTIFIED IN 60-BIT-WORDS.           R123_OS        9
*                                                                        R123_OS       10
*         ENTRY  - FROM CYBIL CODE WITH PARAMETERS                       R123_OS       11
*                  P60P0 = NUMBER OF 60 BIT WORDS - MUST BE MOD 16(10)   R123_OS       12
*                  P60P1 = INPUT BUFFER ADDRESS,                         R123_OS       13
*                  P60P2 = OUTPUT ARRAY ADDRESS - 1.                     R123_OS       14
*                                                                        R123_OS       15
*         EXIT   - INPUT BUFFER REPACKED INTO OUTPUT ARRAY.              R123_OS       16
*                                                                        R123_OS       17
          ENTRY  P60TO32                                                 R123_OS       18
 P60P0    EQU    0           PARAMETER 0 ADDRESS IN PARSV AREA           R123_OS       19
 P60P1    EQU    1           DITTO FOR PARAMETER ONE                     R123_OS       20
 P60P2    EQU    2           DITTO FOR PARAMETER TWO                     R123_OS       21
*                                                                        R123_OS       22
 P60TO32  BSS    0                                                       R123_OS       23
          RJ     ZSMRENT     SAVE CYBIL ENVNMNT AND PARAMETERS           R123_OS       24
 P60.ENT  BSS    0           LOAD PARAMETERS                             R123_OS       25
          SA1    PARSV+P60P0                                             R123_OS       26
          SB2    X1          NUMBER OF WORDS                             R123_OS       27
          SA1    PARSV+P60P1                                             R123_OS       28
          SB3    X1          60-WORD BUFFER ADDRESS                      R123_OS       29
          SA1    PARSV+P60P2                                             R123_OS       30
          SB4    X1+1        32-BIT ARRAY ADDRESS                        R123_OS       31
          SB5    B0          ZERO INTO B5                                R123_OS       32
 P60.00   BSS    0                                                       R123_OS       33
          SA2    B3                                                      R123_OS       34
          SA3    B3+1                                                    R123_OS       35
          SA4    B3+2                                                    R123_OS       36
          SA5    B3+3        LOAD NEXT 4 BUFFER WRDS INTO X2 - X5        R123_OS       37
          MX0    -32                                                     R123_OS       38
*                                                                        R123_OS       39
          BX6    X2                                                      R123_OS       40
          AX6    28                                                      R123_OS       41
          BX6    -X0*X6                                                  R123_OS       42
          SA6    B4          SAVE W0,U32                                 R123_OS       43
*                                                                        R123_OS       44
          MX1    -28                                                     R123_OS       45
          BX2    -X1*X2                                                  R123_OS       46
          LX2    4                                                       R123_OS       47
          BX7    X3                                                      R123_OS       48
          AX7    56                                                      R123_OS       49
          MX1    -4                                                      R123_OS       50
          BX7    -X1*X7                                                  R123_OS       51
          BX7    X7+X2                                                   R123_OS       52
          SA7    B4+1        SAVE W0L28,W1U4                             R123_OS       53
*                                                                        R123_OS       54
          BX6    X3                                                      R123_OS       55
          AX6    24                                                      R123_OS       56
          BX6    -X0*X6                                                  R123_OS       57
          SA6    B4+2        SAVE W1M32                                  R123_OS       58
*                                                                        R123_OS       59
          MX1    -24                                                     R123_OS       60
          BX3    -X1*X3                                                  R123_OS       61
          LX3    8                                                       R123_OS       62
          BX7    X4                                                      R123_OS       63
          AX7    52                                                      R123_OS       64
          MX1    -8                                                      R123_OS       65
          BX7    -X1*X7                                                  R123_OS       66
          BX7    X7+X3                                                   R123_OS       67
          SA7    B4+3        SAVE W1L24,W2U8                             R123_OS       68
*                                                                        R123_OS       69
          BX6    X4                                                      R123_OS       70
          AX6    20                                                      R123_OS       71
          BX6    -X0*X6                                                  R123_OS       72
          SA6    B4+4        SAVE W2M32                                  R123_OS       73
*                                                                        R123_OS       74
          MX1    -20                                                     R123_OS       75
          BX4    -X1*X4                                                  R123_OS       76
          LX4    12                                                      R123_OS       77
          BX6    X5                                                      R123_OS       78
          AX6    48                                                      R123_OS       79
          MX1    -12                                                     R123_OS       80
          BX6    -X1*X6                                                  R123_OS       81
          BX6    X6+X4                                                   R123_OS       82
          SA6    B4+5        SAVE W2L20,W3U12                            R123_OS       83
*                                                                        R123_OS       84
          BX7    X5                                                      R123_OS       85
          AX7    16                                                      R123_OS       86
          BX7    -X0*X7                                                  R123_OS       87
          SA7    B4+6        SAVE W3M32                                  R123_OS       88
*                                                                        R123_OS       89
          MX1    -16                                                     R123_OS       90
          BX0    -X1*X5                                                  R123_OS       91
          LX0    16          POSITION W3L16                              R123_OS       92
*                                                                        R123_OS       93
          SA2    B3+4                                                    R123_OS       94
          SA3    B3+5                                                    R123_OS       95
          SA4    B3+6                                                    R123_OS       96
          SA5    B3+7        LOAD NEXT 4 BUFFER WORDS INTO X2 - X5       R123_OS       97
*                                                                        R123_OS       98
          BX6    X2                                                      R123_OS       99
          AX6    44                                                      R123_OS      100
          MX1    -16                                                     R123_OS      101
          BX6    -X1*X6                                                  R123_OS      102
          BX6    X6+X0                                                   R123_OS      103
          SA6    B4+7        SAVE W3L16,W4U16                            R123_OS      104
*                                                                        R123_OS      105
          MX0    -32                                                     R123_OS      106
          BX7    X2                                                      R123_OS      107
          AX7    12                                                      R123_OS      108
          BX7    -X0*X7                                                  R123_OS      109
          SA7    B4+8        SAVE W4M32                                  R123_OS      110
*                                                                        R123_OS      111
          MX1    -12                                                     R123_OS      112
          BX2    -X1*X2                                                  R123_OS      113
          LX2    20                                                      R123_OS      114
          BX7    X3                                                      R123_OS      115
          AX7    40                                                      R123_OS      116
          MX1    -20                                                     R123_OS      117
          BX7    -X1*X7                                                  R123_OS      118
          BX7    X7+X2                                                   R123_OS      119
          SA7    B4+9        SAVE W4L12,W5U20                            R123_OS      120
*                                                                        R123_OS      121
          BX6    X3                                                      R123_OS      122
          AX6    8                                                       R123_OS      123
          BX6    -X0*X6                                                  R123_OS      124
          SA6    B4+10D      SAVE W5M32                                  R123_OS      125
*                                                                        R123_OS      126
          MX1    -8                                                      R123_OS      127
          BX3    -X1*X3                                                  R123_OS      128
          LX3    24                                                      R123_OS      129
          BX7    X4                                                      R123_OS      130
          AX7    36                                                      R123_OS      131
          MX1    -24                                                     R123_OS      132
          BX7    -X1*X7                                                  R123_OS      133
          BX7    X7+X3                                                   R123_OS      134
          SA7    B4+11D      SAVE W5L8,W6U24                             R123_OS      135
*                                                                        R123_OS      136
          BX6    X4                                                      R123_OS      137
          AX6    4                                                       R123_OS      138
          BX6    -X0*X6                                                  R123_OS      139
          SA6    B4+12D      SAVE W6M32                                  R123_OS      140
*                                                                        R123_OS      141
          MX1    -4                                                      R123_OS      142
          BX4    -X1*X4                                                  R123_OS      143
          LX4    28                                                      R123_OS      144
          BX7    X5                                                      R123_OS      145
          AX7    32                                                      R123_OS      146
          MX1    -28                                                     R123_OS      147
          BX7    -X1*X7                                                  R123_OS      148
          BX7    X7+X4                                                   R123_OS      149
          SA7    B4+13D      SAVE W6L4,W7U28                             R123_OS      150
*                                                                        R123_OS      151
          BX6    X5                                                      R123_OS      152
          BX6    -X0*X6                                                  R123_OS      153
          SA6    B4+14D      SAVE W5L32                                  R123_OS      154
*                                                                        R123_OS      155
          SB4    B4+15D      STEP B4 TO NEXT ARRAY BLOCK                 R123_OS      156
          SB3    B3+8        STEP B3 TO NEXT BUFFER BLOCK                R123_OS      157
          SB2    B2-8        DECREMENT B2 BY BUFFER BLOCK COUNT          R123_OS      158
          NE     B0,B2,P60.00  MORE BUFFER WORDS TO UNPACK               R123_OS      159
 P60.EXI  BSS    0                                                       R123_OS      160
          JP     ZSMRRET     RESTORE ISWL ENVIRONMENT AND RETURN         R123_OS      161
                                                                         R123_OS      162
          END                                                            R123_OS      163
