User Tools

Site Tools


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