cdc:nos2.source:opl.opl871:common:comcsfn
Common COMCSFN
1 Modification
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comcsfn +++| CTEXT COMCSFN - SPACE FILL RIGHT JUSTIFIED ZEROES. 00002 M01S00002.comcsfn +++| SPACE 4 00003 M01S00003.comcsfn +++| IF -DEF,QUAL$,1 00004 M01S00004.comcsfn +++| QUAL COMCSFN 00005 M01S00005.comcsfn +++| BASE D
Line S00006 Modification History | |
---|---|
M01 (Added by) | comcsfn |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1974. 00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.comcsfn +++| SFN SPACE 4 00009 M01S00008.comcsfn +++|*** SFN - SPACE FILL NAME. 00010 M01S00009.comcsfn +++|* G. R. MANSFIELD. 70/12/08. 00011 M01S00010.comcsfn +++|* S. R. MCPHERSON. 74/11/15. 00012 M01S00011.comcsfn +++| SFN SPACE 4 00013 M01S00012.comcsfn +++|*** SFN - SPACE FILL RIGHT JUSTIFIED ZEROES. 00014 M01S00013.comcsfn +++|* 00015 M01S00014.comcsfn +++|* ENTRY (X1) = NAME LEFT JUSTIFIED, ZERO FILL. 00016 M01S00015.comcsfn +++|* (B1) = 1. 00017 M01S00016.comcsfn +++|* 00018 M01S00017.comcsfn +++|* EXIT (X6) = NAME SPACE FILLED. 00019 M01S00018.comcsfn +++|* (X7) = FINAL CHARACTER MASK. 00020 M01S00019.comcsfn +++|* 00021 M01S00020.comcsfn +++|* USES X - 3, 6, 7. 00022 M01S00021.comcsfn +++|* A - 3. 00023 M01S00022.comcsfn +++|* B - 2. 00024 M01S00023.comcsfn +++| 00025 M01S00024.comcsfn +++| 00026 M01S00025.comcsfn +++| SFN PS 0 ENTRY/EXIT 00027 M01S00026.comcsfn +++| SX7 B1 00028 M01S00027.comcsfn +++| SA3 SFNA =40404040404040404040B 00029 M01S00028.comcsfn +++| IX7 X1-X7 FIND LOWEST BIT SET 00030 M01S00029.comcsfn +++| BX6 -X7+X1 00031 M01S00030.comcsfn +++| SB2 60-5 00032 M01S00031.comcsfn +++| BX7 X3*X6 BUILD MASK OF NON-ZERO CHARACTERS 00033 M01S00032.comcsfn +++| SA3 A3+B1 =10H 00034 M01S00033.comcsfn +++| LX6 X7,B2 00035 M01S00034.comcsfn +++| IX6 X7-X6 00036 M01S00035.comcsfn +++| BX7 X7+X6 00037 M01S00036.comcsfn +++| BX3 -X7*X3 00038 M01S00037.comcsfn +++| BX6 X1+X3 MERGE ORIGINAL DATA WITH SPACES 00039 M01S00038.comcsfn +++| EQ SFN RETURN 00040 M01S00039.comcsfn +++| 00041 M01S00040.comcsfn +++| SFNA DATA 40404040404040404040B 00042 M01S00041.comcsfn +++| SFNB DATA 10H 00043 M01S00042.comcsfn +++| SPACE 4 00044 M01S00043.comcsfn +++| BASE * 00045 M01S00044.comcsfn +++| QUAL$ IF -DEF,QUAL$ 00046 M01S00045.comcsfn +++| QUAL * 00047 M01S00046.comcsfn +++| SFN EQU /COMCSFN/SFN 00048 M01S00047.comcsfn +++| QUAL$ ENDIF 00049 M01S00048.comcsfn +++| ENDX
cdc/nos2.source/opl.opl871/common/comcsfn.txt ยท Last modified: by 127.0.0.1