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