cdc:nos2.source:opl.opl871:common:comcztb
Common COMCZTB
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comcztb +++| CTEXT COMCZTB - CONVERT ZEROES TO BLANKS IN A WORD. 00002 M01S00002.comcztb +++| IF -DEF,QUAL$,1 00003 M01S00003.comcztb +++| QUAL COMCZTB 00004 M01S00004.comcztb +++| BASE D
Line S00005 Modification History | |
---|---|
M01 (Added by) | comcztb |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00005 M02S00005.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1974. 00006 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00007 M01S00006.comcztb +++| ZTB SPACE 4 00008 M01S00007.comcztb +++|*** ZTB - CONVERT ZEROES TO BLANKS IN A WORD. 00009 M01S00008.comcztb +++|* G. R. MANSFIELD. 70/12/08. 00010 M01S00009.comcztb +++|* S. R. MCPHERSON. 74/11/15. 00011 M01S00010.comcztb +++| ZTB SPACE 4 00012 M01S00011.comcztb +++|*** ZTB - CONVERTS ZERO TO BLANKS IN A WORD. 00013 M01S00012.comcztb +++|* 00014 M01S00013.comcztb +++|* ENTRY (X1) = NAME LEFT JUSTIFIED, ZERO FILL. 00015 M01S00014.comcztb +++|* (B1) = 1. 00016 M01S00015.comcztb +++|* 00017 M01S00016.comcztb +++|* EXIT (X6) = NAME SPACE FILLED. 00018 M01S00017.comcztb +++|* (X7) = FINAL CHARACTER MASK. 00019 M01S00018.comcztb +++|* 00020 M01S00019.comcztb +++|* USES X - 3, 6, 7. 00021 M01S00020.comcztb +++|* A - 3. 00022 M01S00021.comcztb +++| 00023 M01S00022.comcztb +++| 00024 M01S00023.comcztb +++| ZTB PS ENTRY/EXIT 00025 M01S00024.comcztb +++| SA3 ZTBA 00026 M01S00025.comcztb +++| BX6 X3*X1 EXTRACT UPPER BIT FROM ALL CHARACTERS 00027 M01S00026.comcztb +++| BX7 -X3*X1 00028 M01S00027.comcztb +++| IX6 X6+X3 ANY NON-ZERO CHARACTER PRODUCES CARRY 00029 M01S00028.comcztb +++| BX6 X6+X7 MERGE UPPER BITS AND CARRIES 00030 M01S00029.comcztb +++| BX7 -X3*X6 ALL NON ZERO CHARACTERS = 40B 00031 M01S00030.comcztb +++| SA3 A3+B1 00032 M01S00031.comcztb +++| BX6 X7 00033 M01S00032.comcztb +++| LX7 -5 GENERATE SPACE MASK 00034 M01S00033.comcztb +++| IX7 X6-X7 00035 M01S00034.comcztb +++| BX7 X6+X7 00036 M01S00035.comcztb +++| BX3 -X7*X3 SELECT SPACE CODES 00037 M01S00036.comcztb +++| BX6 X1+X3 MERGE ORIGINAL DATA WITH SPACES 00038 M01S00037.comcztb +++| EQ ZTB 00039 M01S00038.comcztb +++| 00040 M01S00039.comcztb +++| ZTBA CON 37373737373737373737B 00041 M01S00040.comcztb +++| CON 1H 00042 M01S00041.comcztb +++| SPACE 4 00043 M01S00042.comcztb +++| BASE * 00044 M01S00043.comcztb +++| QUAL$ IF -DEF,QUAL$ 00045 M01S00044.comcztb +++| QUAL * 00046 M01S00045.comcztb +++| ZTB EQU /COMCZTB/ZTB 00047 M01S00046.comcztb +++| QUAL$ ENDIF 00048 M01S00047.comcztb +++| ENDX
cdc/nos2.source/opl.opl871/common/comcztb.txt ยท Last modified: by 127.0.0.1