cdc:nos2.source:opl.opl871:deck:taro
Deck TARO
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.taro +++| IDENT TARO 00002 M00S00002.taro +++| ENTRY TARO 00003 M00S00003.taro +++| SYSCOM B1
| Line S00004 Modification History | |
|---|---|
M01 (Removed by) | ns2440 |
Seq # *Modification Id* Act ----------------------------+ 00004 M01S00004.ns2440 ---| COMMENT 72/08/31. TERMINAL ARGUMENT OPERATIONS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2440 |
Seq # *Modification Id* Act ----------------------------+ 00005 M01S00001.ns2440 +++| TITLE TARO - TERMINAL ARGUMENT OPERATIONS. 00006 M01S00002.ns2440 +++|*COMMENT TARO - TERMINAL ARGUMENT OPERATIONS.
| Line S00005 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00005.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | ns2440 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00006.ns2440 ---| TITLE TARO - TERMINAL ARGUMENT OPERATIONS. 00010 M00S00007.taro +++| SPACE 4 00011 M00S00008.taro +++|***** TARO - TERMINAL ARGUMENT OPERATIONS. 00012 M00S00009.taro +++|* 00013 M00S00010.taro +++|* J. C. BOHNHOFF. 72/08/31. 00014 M00S00011.taro +++|* W. E. MARTIN. 78/09/30. 00015 M00S00012.taro +++| SPACE 4 00016 M00S00013.taro +++|* COMMON TEXTS. 00017 M00S00014.taro +++| 00018 M00S00015.taro +++| 00019 M00S00016.taro +++|*CALL COMCMAC 00020 M00S00017.taro +++|*CALL COMKMAC 00021 M00S00018.taro +++|*CALL COMSPRD 00022 M00S00019.taro +++| SPACE 4,45 00023 M00S00020.taro +++|*** TARO - TERMINAL ARGUMENT OPERATIONS. 00024 M00S00021.taro +++|* 00025 M00S00022.taro +++|* ENTRY FORMAT - 00026 M00S00023.taro +++|* 00027 M00S00024.taro +++|* FORTRAN EXTENDED - 00028 M00S00025.taro +++|* 00029 M00S00026.taro +++|* CALL TARO ( VALUE, MASK, TERM, RETURN ) 00030 M00S00027.taro +++|* 00031 M00S00028.taro +++|* COBOL - 00032 M00S00029.taro +++|* 00033 M00S00030.taro +++|* ENTER TARO USING VALUE, MASK, TERM, RETURN. 00034 M00S00031.taro +++|* 00035 M00S00032.taro +++|* WHERE - (VALUE) = A 24 BIT VALUE TO BE USED TO ALTER TERMINAL 00036 M00S00033.taro +++|* USER ARGUMENT AREA. 00037 M00S00034.taro +++|* 00038 M00S00035.taro +++|* MASK - A VALUE TAKEN AS A BINARY MASK - ONLY THE 00039 M00S00036.taro +++|* LOWEST 24 BITS ARE USED. 00040 M00S00037.taro +++|* 00041 M00S00038.taro +++|* TERM - THE NAME OF THE TERMINAL FOR WHICH THE 00042 M00S00039.taro +++|* OPERATION IS TO BE DONE. IF ABSENT OR ZERO, IT IS 00043 M00S00040.taro +++|* IS ASSUMNED THE TERMINAL THAT ORIGINED THE CALLING 00044 M00S00041.taro +++|* TRANSACTION, AND THE NAME MAY BE 1 - 7 CHARACTERS, 00045 M00S00042.taro +++|* LEFT JUSTIFIED BINARY ZERO FILLED, OR LEFT-JUSTIFIED 00046 M00S00043.taro +++|* BLANK FILLED. 00047 M00S00044.taro +++|* 00048 M00S00045.taro +++|* RETURN - LOCATION IN WHICH TO PLACE THE RESULTANT 00049 M00S00046.taro +++|* USER ARGUMENT BITS. THIS VALUE IS ALSO RETURNED 00050 M00S00047.taro +++|* AS THE VALUE OF A FORTRAN FUNCTION. (OPTIONAL). 00051 M00S00048.taro +++|* 00052 M00S00049.taro +++|* NOTES - 00053 M00S00050.taro +++|* 00054 M00S00051.taro +++|* THE *USER ARGUMENT* AREA (24 BITS IN EACH TERMINAL TABLE 00055 M00S00052.taro +++|* ENTRY) IS OPERATED UPON AS FOLLOWS - 00056 M00S00053.taro +++|* 00057 M00S00054.taro +++|* RETURN = USER ARG = (USER ARG .AND. MASK) .XOR. VALUE. 00058 M00S00055.taro +++|* 00059 M00S00056.taro +++|* SEE *TAF* LISTING FOR FORMAT OF TERMINAL-TABLE ENTRIES. 00060 M00S00057.taro +++|* 00061 M00S00058.taro +++|* USES A - 1, 2, 3, 5, 6, 7. 00062 M00S00059.taro +++|* X - ALL. 00063 M00S00060.taro +++|* B - 1. 00064 M00S00061.taro +++|* CALLS ZFN. 00065 M00S00062.taro +++|* 00066 M00S00063.taro +++|* MACROS TARO. 00067 M00S00064.taro +++| 00068 M00S00065.taro +++| 00069 M00S00066.taro +++| VFD 42/0LTARO,18/TARO 00070 M00S00067.taro +++| 00071 M00S00068.taro +++| TAR3 SA1 TARB RESTORE (A0) 00072 M00S00069.taro +++| SA0 X1+ 00073 M00S00070.taro +++| 00074 M00S00071.taro +++| TARO SUBR ENTRY/EXIT 00075 M00S00072.taro +++| SX6 A0 SAVE (A0) 00076 M00S00073.taro +++| SA2 X1 READ VALUE 00077 M00S00074.taro +++| SA6 TARB 00078 M00S00075.taro +++| SB1 1 00079 M00S00076.taro +++| SA3 A1+B1 READ MASK ADDRESS 00080 M00S00077.taro +++| BX5 X5-X5 ASSUME NO RETURN 00081 M00S00078.taro +++| SA4 A1+2 READ TERMINAL NAME ADDRESS 00082 M00S00079.taro +++| MX0 -24 00083 M00S00080.taro +++| SA3 X3 READ MASK 00084 M00S00081.taro +++| ZR X4,TAR1 IF NO TERMINAL NAME OR RETURN ADDRESS 00085 M00S00082.taro +++| SA5 A4+1 RETURN ADDRESS 00086 M00S00083.taro +++| SA4 X4 READ TERMINAL NAME 00087 M00S00084.taro +++| UX6 X4 00088 M00S00085.taro +++| NZ X6,TAR1 IF NOT DEFAULT ORIGINATING TERMINAL 00089 M00S00086.taro +++| BX4 X4-X4 00090 M00S00087.taro +++| TAR1 MX6 42 00091 M00S00088.taro +++| BX2 -X0*X2 (X2) = VALUE 00092 M00S00089.taro +++| BX4 X6*X4 (X4) = TERMINAL NAME 00093 M00S00090.taro +++| LX2 30 POSITION VALUE 00094 M00S00091.taro +++| BX5 -X6*X5 (X5) = RETURN 00095 M00S00092.taro +++| BX3 -X0*X3 (X3) = MASK 00096 M00S00093.taro +++| BX7 X2+X3 (X7) = VALUE AND MASK 00097 M00S00094.taro +++| BX1 X4 00098 M00S00095.taro +++| SA7 TARA+1 00099 M00S00096.taro +++| ZR X4,TAR2 IF ORIGINATING TERMINAL 00100 M00S00097.taro +++| RJ ZFN ZERO FILL NAME 00101 M00S00098.taro +++| TAR2 IX6 X1+X5 (X6) = TERMINAL NAME AND RETURN ADDRESS 00102 M00S00099.taro +++| SA6 TARA STORE ARGUMENT WORD 00103 M00S00100.taro +++| TARO A6 ISSUE REQUEST TO EXECUTIVE 00104 M00S00101.taro +++| ZR X5,TAR3 IF NO RETURN VALUES DESIRED 00105 M00S00102.taro +++| SA1 X5 READ RETURN VALUE 00106 M00S00103.taro +++| BX6 X1 (X6) = FUNCTION RETURN 00107 M00S00104.taro +++| EQ TAR3 RESTORE (A0) AND RETURN 00108 M00S00105.taro +++| 00109 M00S00106.taro +++| TARA CON 0 STORAGE FOR *TARO* ARGUMENTS 00110 M00S00107.taro +++| CON 0 00111 M00S00108.taro +++| TARB CON 0 STORAGE FOR (A0) 00112 M00S00109.taro +++| SPACE 4 00113 M00S00110.taro +++|* COMMON DECK. 00114 M00S00111.taro +++| 00115 M00S00112.taro +++|*CALL COMKZFN 00116 M00S00113.taro +++| SPACE 4 00117 M00S00114.taro +++| END
cdc/nos2.source/opl.opl871/deck/taro.txt · Last modified: (external edit)