Common COMKZFN

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comkzfn +++|          CTEXT  COMKZFN - ZERO FILL NAME.
00002  M00S00002.comkzfn +++| COMKZFN  SPACE  4
00003  M00S00003.comkzfn +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comkzfn +++|          QUAL   COMKZFN
00005  M00S00005.comkzfn +++|

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comkzfn +++| COMKZFN  SPACE  4,10
00009  M00S00008.comkzfn +++|***       ZFN -  ZERO FILL NAME.
00010  M00S00009.comkzfn +++|*         W. E. MARTIN.      05/15/77.
00011  M00S00010.comkzfn +++|          BASE   D
00012  M00S00011.comkzfn +++|          SPACE  4,10
00013  M00S00012.comkzfn +++|***       COMKZFN - ZERO FILL A WORD.
00014  M00S00013.comkzfn +++|*
00015  M00S00014.comkzfn +++|*         ZERO FILL NAME REMOVES TRAILING BLANKS FROM A WORDWHICH
00016  M00S00015.comkzfn +++|*         MIGHT COUNTAIN EITHER ZERO OR BLANK FILL.
00017  M00S00016.comkzfn +++|*
00018  M00S00017.comkzfn +++|*         ENTRY  (X1) = NAME, LEFT-JUSTIFIED.
00019  M00S00018.comkzfn +++|*
00020  M00S00019.comkzfn +++|*         EXIT   (X1) = NAME, ZERO FILLED.
00021  M00S00020.comkzfn +++|*
00022  M00S00021.comkzfn +++|*         USES   X - 1, 2, 3, 4, 6.
00023  M00S00022.comkzfn +++|*
00024  M00S00023.comkzfn +++|
00025  M00S00024.comkzfn +++|
00026  M00S00025.comkzfn +++| ZFN      SUBR               ENTRY/EXIT
00027  M00S00026.comkzfn +++|          MX2    -6
00028  M00S00027.comkzfn +++|          SX4    1R
00029  M00S00028.comkzfn +++|          MX6    50
00030  M00S00029.comkzfn +++| ZFN1     ZR     X6,ZFNX     IF LAST PASS THROUGH LOOP - (X6) = -0
00031  M00S00030.comkzfn +++|          LX1    6
00032  M00S00031.comkzfn +++|          BX3    -X2*X1
00033  M00S00032.comkzfn +++|          AX6    1           SHIFT TRIP COUNTER
00034  M00S00033.comkzfn +++|          BX3    X4-X3
00035  M00S00034.comkzfn +++|          NZ     X3,ZFN1     IF NON-BLANK CHARACTER
00036  M00S00035.comkzfn +++|          BX1    X2*X1       REMOVE BLANK CHARACTER
00037  M00S00036.comkzfn +++|          EQ     ZFN1        CONTINUE PROCESSING
00038  M00S00037.comkzfn +++|
00039  M00S00038.comkzfn +++|          BASE   *
00040  M00S00039.comkzfn +++| QUAL$    IF     -DEF,QUAL$
00041  M00S00040.comkzfn +++|          QUAL   *
00042  M00S00041.comkzfn +++| ZFN      EQU    /COMKZFN/ZFN
00043  M00S00042.comkzfn +++| QUAL$    ENDIF
00044  M00S00043.comkzfn +++|          ENDX