Common COMCSOE

1 Modification

Source

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