Common COMCSFN

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comcsfn +++|          CTEXT  COMCSFN - SPACE FILL RIGHT JUSTIFIED ZEROES.
00002  M00S00002.comcsfn +++|          SPACE  4
00003  M00S00003.comcsfn +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comcsfn +++|          QUAL   COMCSFN
00005  M00S00005.comcsfn +++|          BASE   D

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1974.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comcsfn +++| SFN      SPACE  4
00009  M00S00008.comcsfn +++|***       SFN - SPACE FILL NAME.
00010  M00S00009.comcsfn +++|*         G. R. MANSFIELD.   70/12/08.
00011  M00S00010.comcsfn +++|*         S. R. MCPHERSON.   74/11/15.
00012  M00S00011.comcsfn +++| SFN      SPACE  4
00013  M00S00012.comcsfn +++|***       SFN - SPACE FILL RIGHT JUSTIFIED ZEROES.
00014  M00S00013.comcsfn +++|*
00015  M00S00014.comcsfn +++|*         ENTRY  (X1) = NAME LEFT JUSTIFIED, ZERO FILL.
00016  M00S00015.comcsfn +++|*                (B1) = 1.
00017  M00S00016.comcsfn +++|*
00018  M00S00017.comcsfn +++|*         EXIT   (X6) = NAME SPACE FILLED.
00019  M00S00018.comcsfn +++|*                (X7) = FINAL CHARACTER MASK.
00020  M00S00019.comcsfn +++|*
00021  M00S00020.comcsfn +++|*         USES   X - 3, 6, 7.
00022  M00S00021.comcsfn +++|*                A - 3.
00023  M00S00022.comcsfn +++|*                B - 2.
00024  M00S00023.comcsfn +++|
00025  M00S00024.comcsfn +++|
00026  M00S00025.comcsfn +++| SFN      PS     0           ENTRY/EXIT
00027  M00S00026.comcsfn +++|          SX7    B1
00028  M00S00027.comcsfn +++|          SA3    SFNA        =40404040404040404040B
00029  M00S00028.comcsfn +++|          IX7    X1-X7       FIND LOWEST BIT SET
00030  M00S00029.comcsfn +++|          BX6    -X7+X1
00031  M00S00030.comcsfn +++|          SB2    60-5
00032  M00S00031.comcsfn +++|          BX7    X3*X6       BUILD MASK OF NON-ZERO CHARACTERS
00033  M00S00032.comcsfn +++|          SA3    A3+B1       =10H
00034  M00S00033.comcsfn +++|          LX6    X7,B2
00035  M00S00034.comcsfn +++|          IX6    X7-X6
00036  M00S00035.comcsfn +++|          BX7    X7+X6
00037  M00S00036.comcsfn +++|          BX3    -X7*X3
00038  M00S00037.comcsfn +++|          BX6    X1+X3       MERGE ORIGINAL DATA WITH SPACES
00039  M00S00038.comcsfn +++|          EQ     SFN         RETURN
00040  M00S00039.comcsfn +++|
00041  M00S00040.comcsfn +++| SFNA     DATA   40404040404040404040B
00042  M00S00041.comcsfn +++| SFNB     DATA   10H
00043  M00S00042.comcsfn +++|          SPACE  4
00044  M00S00043.comcsfn +++|          BASE   *
00045  M00S00044.comcsfn +++| QUAL$    IF     -DEF,QUAL$
00046  M00S00045.comcsfn +++|          QUAL   *
00047  M00S00046.comcsfn +++| SFN      EQU    /COMCSFN/SFN
00048  M00S00047.comcsfn +++| QUAL$    ENDIF
00049  M00S00048.comcsfn +++|          ENDX