Common COMCSOE

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comcsoe +++|          CTEXT  COMCSOE - SET OPTICAL DISK EXTENSION BUFFER ADDRESS.

Line S00002 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00002  M01S00002.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1992.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00003  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00004  M00S00003.comcsoe +++| SOE      SPACE  4
00005  M00S00004.comcsoe +++|          IF     -DEF,QUAL$,1
00006  M00S00005.comcsoe +++|          QUAL   COMCSOE
00007  M00S00006.comcsoe +++|          BASE   D
00008  M00S00007.comcsoe +++| SOE      SPACE  4
00009  M00S00008.comcsoe +++|***       SOE - SET OPTICAL DISK EXTENSION BUFFER ADDRESS.
00010  M00S00009.comcsoe +++|*         J. M. CYCHOSZ.     90/09/27.
00011  M00S00010.comcsoe +++| SOE      SPACE  4
00012  M00S00011.comcsoe +++|***              SOE SETS THE OPTICAL DISK EXTENSION BUFFER POINTER
00013  M00S00012.comcsoe +++|*         IN THE FET IF THE FILE IS RESIDENT ON OPTICAL DISK.
00014  M00S00013.comcsoe +++|*
00015  M00S00014.comcsoe +++|*
00016  M00S00015.comcsoe +++|*         ENTRY  (X2) = ADDRESS OF FET.
00017  M00S00016.comcsoe +++|*                (X3) = OPTICAL DISK EXTENSION BUFFER POINTER DATA.
00018  M00S00017.comcsoe +++|*                     = 6/ LEN, 18/ FWA OF BUFFER.
00019  M00S00018.comcsoe +++|*
00020  M00S00019.comcsoe +++|*         EXIT   (X1) = 0 IF FILE IS ASSIGNED TO OPTICAL DISK.
00021  M00S00020.comcsoe +++|*                (X2) = ADDRESS OF FET.
00022  M00S00021.comcsoe +++|*
00023  M00S00022.comcsoe +++|*         USES   X - 1, 2, 6, 7.
00024  M00S00023.comcsoe +++|*                A - 1, 6.
00025  M00S00024.comcsoe +++|*                B - 7.
00026  M00S00025.comcsoe +++|*
00027  M00S00026.comcsoe +++|*         MACROS FILINFO.
00028  M00S00027.comcsoe +++|
00029  M00S00028.comcsoe +++|
00030  M00S00029.comcsoe +++| SOE      SUBR               ENTRY/EXIT
00031  M00S00030.comcsoe +++|          SA1    X2          GET FILE NAME
00032  M00S00031.comcsoe +++|          SB7    X2          SAVE FET ADDRESS
00033  M00S00032.comcsoe +++|          MX6    42
00034  M00S00033.comcsoe +++|          BX6    X1*X6
00035  M00S00034.comcsoe +++|          SX7    50001B
00036  M00S00035.comcsoe +++|          BX6    X6+X7       MERGE FILE NAME/LENGTH/COMPLETE BIT
00037  M00S00036.comcsoe +++|          SA6    SOEA        SET FILE NAME IN PARAMETER BLOCK
00038  M00S00037.comcsoe +++|          FILINFO A6         GET FILE INFORMATION
00039  M00S00038.comcsoe +++|          SA1    SOEA+1      GET DEVICE TYPE
00040  M00S00039.comcsoe +++|          SX2    B7          RESTORE FET ADDRESS
00041  M00S00040.comcsoe +++|          AX1    48
00042  M00S00041.comcsoe +++|          SX1    X1-2ROD     OPTICAL DISK DEVICE TYPE
00043  M00S00042.comcsoe +++|          NZ     X1,SOEX     RETURN, IF NOT OPTICAL DISK
00044  M00S00043.comcsoe +++|          BX6    X3          SET POINTER WORD
00045  M00S00044.comcsoe +++|          SA6    X2+11B
00046  M00S00045.comcsoe +++|          EQ     SOEX        RETURN
00047  M00S00046.comcsoe +++|
00048  M00S00047.comcsoe +++| SOEA     BSSZ   5           *FILINFO* PARAMETER BLOCK
00049  M00S00048.comcsoe +++|          SPACE  4
00050  M00S00049.comcsoe +++|          BASE   *
00051  M00S00050.comcsoe +++|          IF     -DEF,QUAL$,2
00052  M00S00051.comcsoe +++|          QUAL   *
00053  M00S00052.comcsoe +++| SOE      EQU    /COMCSOE/SOE
00054  M00S00053.comcsoe +++|          ENDX