Common COMKZFN

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comkzfn +++|          CTEXT  COMKZFN - ZERO FILL NAME.
00002  M01S00002.comkzfn +++| COMKZFN  SPACE  4
00003  M01S00003.comkzfn +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comkzfn +++|          QUAL   COMKZFN
00005  M01S00005.comkzfn +++|

Line S00006 Modification History
`M01` (Added by)	`comkzfn`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1977.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comkzfn +++| COMKZFN  SPACE  4,10
00009  M01S00008.comkzfn +++|***       ZFN -  ZERO FILL NAME.
00010  M01S00009.comkzfn +++|*         W. E. MARTIN.      05/15/77.
00011  M01S00010.comkzfn +++|          BASE   D
00012  M01S00011.comkzfn +++|          SPACE  4,10
00013  M01S00012.comkzfn +++|***       COMKZFN - ZERO FILL A WORD.
00014  M01S00013.comkzfn +++|*
00015  M01S00014.comkzfn +++|*         ZERO FILL NAME REMOVES TRAILING BLANKS FROM A WORDWHICH
00016  M01S00015.comkzfn +++|*         MIGHT COUNTAIN EITHER ZERO OR BLANK FILL.
00017  M01S00016.comkzfn +++|*
00018  M01S00017.comkzfn +++|*         ENTRY  (X1) = NAME, LEFT-JUSTIFIED.
00019  M01S00018.comkzfn +++|*
00020  M01S00019.comkzfn +++|*         EXIT   (X1) = NAME, ZERO FILLED.
00021  M01S00020.comkzfn +++|*
00022  M01S00021.comkzfn +++|*         USES   X - 1, 2, 3, 4, 6.
00023  M01S00022.comkzfn +++|*
00024  M01S00023.comkzfn +++|
00025  M01S00024.comkzfn +++|
00026  M01S00025.comkzfn +++| ZFN      SUBR               ENTRY/EXIT
00027  M01S00026.comkzfn +++|          MX2    -6
00028  M01S00027.comkzfn +++|          SX4    1R
00029  M01S00028.comkzfn +++|          MX6    50
00030  M01S00029.comkzfn +++| ZFN1     ZR     X6,ZFNX     IF LAST PASS THROUGH LOOP - (X6) = -0
00031  M01S00030.comkzfn +++|          LX1    6
00032  M01S00031.comkzfn +++|          BX3    -X2*X1
00033  M01S00032.comkzfn +++|          AX6    1           SHIFT TRIP COUNTER
00034  M01S00033.comkzfn +++|          BX3    X4-X3
00035  M01S00034.comkzfn +++|          NZ     X3,ZFN1     IF NON-BLANK CHARACTER
00036  M01S00035.comkzfn +++|          BX1    X2*X1       REMOVE BLANK CHARACTER
00037  M01S00036.comkzfn +++|          EQ     ZFN1        CONTINUE PROCESSING
00038  M01S00037.comkzfn +++|
00039  M01S00038.comkzfn +++|          BASE   *
00040  M01S00039.comkzfn +++| QUAL$    IF     -DEF,QUAL$
00041  M01S00040.comkzfn +++|          QUAL   *
00042  M01S00041.comkzfn +++| ZFN      EQU    /COMKZFN/ZFN
00043  M01S00042.comkzfn +++| QUAL$    ENDIF
00044  M01S00043.comkzfn +++|          ENDX