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