Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comcsoe +++| CTEXT COMCSOE - SET OPTICAL DISK EXTENSION BUFFER ADDRESS.
| Line S00002 Modification History |
M01 (Added by) | comcsoe |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00002 M02S00002.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1992.
00003 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00004 M01S00003.comcsoe +++| SOE SPACE 4
00005 M01S00004.comcsoe +++| IF -DEF,QUAL$,1
00006 M01S00005.comcsoe +++| QUAL COMCSOE
00007 M01S00006.comcsoe +++| BASE D
00008 M01S00007.comcsoe +++| SOE SPACE 4
00009 M01S00008.comcsoe +++|*** SOE - SET OPTICAL DISK EXTENSION BUFFER ADDRESS.
00010 M01S00009.comcsoe +++|* J. M. CYCHOSZ. 90/09/27.
00011 M01S00010.comcsoe +++| SOE SPACE 4
00012 M01S00011.comcsoe +++|*** SOE SETS THE OPTICAL DISK EXTENSION BUFFER POINTER
00013 M01S00012.comcsoe +++|* IN THE FET IF THE FILE IS RESIDENT ON OPTICAL DISK.
00014 M01S00013.comcsoe +++|*
00015 M01S00014.comcsoe +++|*
00016 M01S00015.comcsoe +++|* ENTRY (X2) = ADDRESS OF FET.
00017 M01S00016.comcsoe +++|* (X3) = OPTICAL DISK EXTENSION BUFFER POINTER DATA.
00018 M01S00017.comcsoe +++|* = 6/ LEN, 18/ FWA OF BUFFER.
00019 M01S00018.comcsoe +++|*
00020 M01S00019.comcsoe +++|* EXIT (X1) = 0 IF FILE IS ASSIGNED TO OPTICAL DISK.
00021 M01S00020.comcsoe +++|* (X2) = ADDRESS OF FET.
00022 M01S00021.comcsoe +++|*
00023 M01S00022.comcsoe +++|* USES X - 1, 2, 6, 7.
00024 M01S00023.comcsoe +++|* A - 1, 6.
00025 M01S00024.comcsoe +++|* B - 7.
00026 M01S00025.comcsoe +++|*
00027 M01S00026.comcsoe +++|* MACROS FILINFO.
00028 M01S00027.comcsoe +++|
00029 M01S00028.comcsoe +++|
00030 M01S00029.comcsoe +++| SOE SUBR ENTRY/EXIT
00031 M01S00030.comcsoe +++| SA1 X2 GET FILE NAME
00032 M01S00031.comcsoe +++| SB7 X2 SAVE FET ADDRESS
00033 M01S00032.comcsoe +++| MX6 42
00034 M01S00033.comcsoe +++| BX6 X1*X6
00035 M01S00034.comcsoe +++| SX7 50001B
00036 M01S00035.comcsoe +++| BX6 X6+X7 MERGE FILE NAME/LENGTH/COMPLETE BIT
00037 M01S00036.comcsoe +++| SA6 SOEA SET FILE NAME IN PARAMETER BLOCK
00038 M01S00037.comcsoe +++| FILINFO A6 GET FILE INFORMATION
00039 M01S00038.comcsoe +++| SA1 SOEA+1 GET DEVICE TYPE
00040 M01S00039.comcsoe +++| SX2 B7 RESTORE FET ADDRESS
00041 M01S00040.comcsoe +++| AX1 48
00042 M01S00041.comcsoe +++| SX1 X1-2ROD OPTICAL DISK DEVICE TYPE
00043 M01S00042.comcsoe +++| NZ X1,SOEX RETURN, IF NOT OPTICAL DISK
00044 M01S00043.comcsoe +++| BX6 X3 SET POINTER WORD
00045 M01S00044.comcsoe +++| SA6 X2+11B
00046 M01S00045.comcsoe +++| EQ SOEX RETURN
00047 M01S00046.comcsoe +++|
00048 M01S00047.comcsoe +++| SOEA BSSZ 5 *FILINFO* PARAMETER BLOCK
00049 M01S00048.comcsoe +++| SPACE 4
00050 M01S00049.comcsoe +++| BASE *
00051 M01S00050.comcsoe +++| IF -DEF,QUAL$,2
00052 M01S00051.comcsoe +++| QUAL *
00053 M01S00052.comcsoe +++| SOE EQU /COMCSOE/SOE
00054 M01S00053.comcsoe +++| ENDX