Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.begin +++| IDENT BEGIN
00002 M01S00002.begin +++| ENTRY BEGIN
00003 M01S00003.begin +++| SYSCOM B1
| Line S00004 Modification History |
M01 (Added by) | begin |
M02 (Updated by) | ns2440 |
Seq # *Modification Id* Act
----------------------------+
00004 M02S00004.ns2440 ---| BEGIN TITLE TRANSFER PRIMARY COMMUNICATION BLOCK.
| Line S00005 Modification History |
M01 (Added by) | begin |
M02 (Updated by) | ns2440 |
Seq # *Modification Id* Act
----------------------------+
00005 M02S00005.ns2440 ---|*COMMENT TRANSFER PRIMARY COMMUNICATION BLOCK.
00006 M01S00001.ns2440 +++| TITLE BEGIN - TRANSFER PRIMARY COMMUNICATION BLOCK.
00007 M01S00002.ns2440 +++|*COMMENT BEGIN - TRANSFER PRIMARY C.B.
| Line S00006 Modification History |
M01 (Added by) | begin |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00008 M02S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1979.
00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00010 M01S00007.begin +++| SPACE 4
00011 M01S00008.begin +++|***** BEGIN - TRANSFER PRIMARY COMMUNICATION BLOCK.
00012 M01S00009.begin +++|*
00013 M01S00010.begin +++|* W.E. MARTIN. 79/03/30.
00014 M01S00011.begin +++| SPACE 4
00015 M01S00012.begin +++|* COMMOM TEXT.
00016 M01S00013.begin +++|
00017 M01S00014.begin +++|
00018 M01S00015.begin +++|*CALL COMCMAC
00019 M01S00016.begin +++|*CALL COMKMAC
00020 M01S00017.begin +++|*CALL COMSPRD
00021 M01S00018.begin +++| BEGIN SPACE 4,30
00022 M01S00019.begin +++|*** BEGIN - TRANSFER PRIMARY COMMUNICATION BLOCK.
00023 M01S00020.begin +++|*
00024 M01S00021.begin +++|* *BEGIN* ALLOWS A TASK TO SPECIFY THE FWA OF IT-S
00025 M01S00022.begin +++|* COMMUNICATION BLOCK AREA AND REBY FREE THE RESTRICTION ON THE
00026 M01S00023.begin +++|* THE IMPLEMENTATION LANGUAGE TO RESERVE THE FIRST WORD ADDRESS
00027 M01S00024.begin +++|* OF THE LOAD FOR THE TRANSACTION EXECUTIVE. DUE TO THE EXTRA
00028 M01S00025.begin +++|* OVERHEAD INCURRED WHEN THIS OPERATION IS EXECUTED, BEGIN
00029 M01S00026.begin +++|* IS NOT SUGGESTED FOR GENERAL USE EXCEPT IN THOSE CASES
00030 M01S00027.begin +++|* WHERE IT MUST BE USED TO ALLOW A PROGRAMMING LANGUAGE TO
00031 M01S00028.begin +++|* INTERFACE TO THE TRANSACTION SUB-SYSTEM. ALSO, THE *BEGIN*
00032 M01S00029.begin +++|* FUNCTION MUST BE ISSUED AFTER EACH *CALLRTN* IN ORDER
00033 M01S00030.begin +++|* TO OBTAIN THE RESULTS OF THE CALLED TASK.
00034 M01S00031.begin +++|*
00035 M01S00032.begin +++|* CALL FORMAT -
00036 M01S00033.begin +++|*
00037 M01S00034.begin +++|* FORTRAN EXTENDED - CALL BEGIN ( ADDR )
00038 M01S00035.begin +++|*
00039 M01S00036.begin +++|* COBOL - ENTER BEGIN USING ADDR.
00040 M01S00037.begin +++|*
00041 M01S00038.begin +++|* WHERE - ADDR = FIRST WORD ARDDRESS OF AN ARRAY OR DATA ITEM
00042 M01S00039.begin +++|* TO WHICH THE PRIMARY TERMINAL COMMUNICATION
00043 M01S00040.begin +++|* BLOCK IS TO BE DELIVERED.
00044 M01S00041.begin +++|*
00045 M01S00042.begin +++|*
00046 M01S00043.begin +++|* USES A - 1, 2, 6.
00047 M01S00044.begin +++|* X - 0, 1, 2, 6.
00048 M01S00045.begin +++|* B - 1.
00049 M01S00046.begin +++|*
00050 M01S00047.begin +++|* MACROS ARGERR, BEGIN.
00051 M01S00048.begin +++|
00052 M01S00049.begin +++|
00053 M01S00050.begin +++| VFD 42/0LBEGIN,18/BEGIN
00054 M01S00051.begin +++|
00055 M01S00052.begin +++| BEGIN SUBR ENTRY/EXIT
00056 M01S00053.begin +++| SB1 1
00057 M01S00054.begin +++| ZR X1,BGN1 IF NO ARGUMENTS - ABORT TASK
00058 M01S00055.begin +++| SX1 X1
00059 M01S00056.begin +++|
00060 M01S00057.begin +++|* ISSUE BEGIN REQUEST.
00061 M01S00058.begin +++|
00062 M01S00059.begin +++| BEGIN X1
00063 M01S00060.begin +++| EQ BEGINX RETURN
00064 M01S00061.begin +++|
00065 M01S00062.begin +++|* PROCESS ARGUMENT ERROR.
00066 M01S00063.begin +++|
00067 M01S00064.begin +++| BGN1 SA1 BEGIN READ CALLING ADDRESS
00068 M01S00065.begin +++| MX0 30
00069 M01S00066.begin +++| LX1 30
00070 M01S00067.begin +++| SA2 X1-1 READ CALLING LINE NUMBER
00071 M01S00068.begin +++| BX6 -X0*X2
00072 M01S00069.begin +++| SA6 BGNA
00073 M01S00070.begin +++| ARGERR A6 EXIT TO EXECUTIVE
00074 M01S00071.begin +++|
00075 M01S00072.begin +++| BGNA BSS 1 STORAGE FOR ARGERR PARAMETER
00076 M01S00073.begin +++| SPACE 4
00077 M01S00074.begin +++| END