User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:6dd

Deck 6DD

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.6dd     +++|          IDENT  6DD,MSFW
00002  M01S00002.6dd     +++|          PERIPH
00003  M01S00003.6dd     +++|          BASE   MIXED
00004  M01S00004.6dd     +++|          SST
00005  M01S00005.6dd     +++|          TITLE  6DD - CONCURRENT PP MS OVERLAY LOADER.
00006  M01S00006.6dd     +++|*COMMENT  6DD - CONCURRENT PP MS OVERLAY LOADER.
Line S00007 Modification History
M01 (Added by) 6dd
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1986.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.6dd     +++| 6DD      SPACE  4,10
00010  M01S00009.6dd     +++|***       6DD - CONCURRENT PP MS OVERLAY LOADER.
00011  M01S00010.6dd     +++|*
00012  M01S00011.6dd     +++|*         S. L. BETH.        86/08/14.
00013  M01S00012.6dd     +++|          SPACE  4,20
00014  M01S00013.6dd     +++|***       *6DD* LOADS MS OVERLAYS INTO CONCURRENT PPS (CPP).  IT IS
00015  M01S00014.6dd     +++|*         EXPECTED THAT THE ONLY CPP SUBROUTINE TO CALL *6DD* WILL BE
00016  M01S00015.6dd     +++|*         THE PERIPHERAL LIBRARY LOADER (PLL) IN PP RESIDENT.  *6DD* IS
00017  M01S00016.6dd     +++|*         LOADED INTO THE DRIVER OVERLAY AREA WHEN A CPP PROGRAM ISSUES
00018  M01S00017.6dd     +++|*         A *SETMS* REQUEST FOR A 12 BIT MS OVERLAY LOAD.  6DD PROVIDES
00019  M01S00018.6dd     +++|*         THE STANDARD DRIVER ENTRY POINTS, *RDS*, *WDS*, AND *EMS*.
00020  M01S00019.6dd     +++|*
00021  M01S00020.6dd     +++|*         WHEN IT IS CALLED AT *RDS*, IT ISSUES A CALL TO *1MA* TO AID
00022  M01S00021.6dd     +++|*         THE LOAD.  *1MA* WILL READ THE DISK AND PASS THE DATA TO
00023  M01S00022.6dd     +++|*         *6DD* VIA THE MESSAGE BUFFER.
00024  M01S00023.6dd     +++|*
00025  M01S00024.6dd     +++|*         WHEN *6DD* IS CALLED AT *WDS*, IT HANGS THE *CPP*.
00026  M01S00025.6dd     +++|*
00027  M01S00026.6dd     +++|*         WHEN IT IS CALLED AT *EMS*, IT SIMPLY RETURNS TO THE CALLER.
00028  M01S00027.6dd     +++|*
00029  M01S00028.6dd     +++|          SPACE  4,10
00030  M01S00029.6dd     +++|***       ENTRY CONDITIONS.
00031  M01S00030.6dd     +++|*
00032  M01S00031.6dd     +++|*         MS RESIDENT OVERLAY.
00033  M01S00032.6dd     +++|*         (T5 - T7) = 6/ ESTO,12/  TRACK,12/  SECTOR
00034  M01S00033.6dd     +++|*
00035  M01S00034.6dd     +++|*         MS READ.  (NOT SUPPORTED)
00036  M01S00035.6dd     +++|*         (T5 - T7) = 3/0, 9/  ESTO,12/  TRACK,12/  SECTOR
00037  M01S00036.6dd     +++| COMMON   SPACE  4,10
00038  M01S00037.6dd     +++|*         COMMON DECKS.
00039  M01S00038.6dd     +++|
00040  M01S00039.6dd     +++|
00041  M01S00040.6dd     +++|*CALL     COMPMAC
00042  M01S00041.6dd     +++|*CALL     COMPIOU
00043  M01S00042.6dd     +++|*CALL     COMSMSC
00044  M01S00043.6dd     +++|*CALL     COMSMSP
00045  M01S00044.6dd     +++|          EJECT
00046  M01S00045.6dd     +++|**        ENTRY POINT TRANSFERS.
00047  M01S00046.6dd     +++|
00048  M01S00047.6dd     +++|
00049  M01S00048.6dd     +++|          ORG    MSFW
00050  M01S00049.6dd     +++|
00051  M01S00050.6dd     +++|          CON    PRS         PRESET ADDRESS
00052  M01S00051.6dd     +++|
00053  M01S00052.6dd     +++|
00054  M01S00053.6dd     +++| RDS      CON    0           ENTRY
00055  M01S00054.6dd     +++|          UJN    RDS.        ENTER DRIVER
00056  M01S00055.6dd     +++|
00057  M01S00056.6dd     +++|
00058  M01S00057.6dd     +++| WDS      CON    0           ENTRY
00059  M01S00058.6dd     +++|          UJN    WDS.        ENTER DRIVER
00060  M01S00059.6dd     +++| EMS      SPACE  4,10
00061  M01S00060.6dd     +++|**        EMS - END MASS STORAGE OPERATION.
00062  M01S00061.6dd     +++|*
00063  M01S00062.6dd     +++|*         EXIT   (A) = 0.
00064  M01S00063.6dd     +++|
00065  M01S00064.6dd     +++|
00066  M01S00065.6dd     +++| .EMS     SUBR               ENTRY/EXIT
00067  M01S00066.6dd     +++|          LDN    0
00068  M01S00067.6dd     +++|          STM    CHRV
00069  M01S00068.6dd     +++|          UJN    .EMSX       RETURN
00070  M01S00069.6dd     +++| WDS      SPACE  4,10
00071  M01S00070.6dd     +++|**        WDS - WRITE SECTOR.
00072  M01S00071.6dd     +++|*
00073  M01S00072.6dd     +++|*         *WDS* HANGS THE PP WHEN IT IS CALLED.
00074  M01S00073.6dd     +++|*
00075  M01S00074.6dd     +++|*         ENTRY  (A) = BUFFER ADDRESS FOR SECTOR.
00076  M01S00075.6dd     +++|
00077  M01S00076.6dd     +++|
00078  M01S00077.6dd     +++| WDS.     MONITOR  HNGM      HANG THE PP
00079  M01S00078.6dd     +++| WDS1     UJN    WDS.        CONTINUE HANGING
00080  M01S00079.6dd     +++| RDS      SPACE  4,10
00081  M01S00080.6dd     +++|**        RDS - READ SECTOR.
00082  M01S00081.6dd     +++|*
00083  M01S00082.6dd     +++|*         ENTRY  (LA) = BUFFER ADDRESS FOR SECTOR.
00084  M01S00083.6dd     +++|*
00085  M01S00084.6dd     +++|*         EXIT   (A) = 0 IF TRANSFER COMPLETE.
00086  M01S00085.6dd     +++|*                    .LT O, IF ERROR OCCURRED.
00087  M01S00086.6dd     +++|
00088  M01S00087.6dd     +++|
00089  M01S00088.6dd     +++| RDS.     LDD    IA
00090  M01S00089.6dd     +++|          STM    RDSB+4
00091  M01S00090.6dd     +++|          LDN    0
00092  M01S00091.6dd     +++|          STD    T4
00093  M01S00092.6dd     +++|          STD    CM+1
00094  M01S00093.6dd     +++|          LDD    T5          CLEAR RECORD TYPE DATA
00095  M01S00094.6dd     +++|          LPC    377
00096  M01S00095.6dd     +++|          STD    T5
00097  M01S00096.6dd     +++|          LDD    MA          CALL *1MA* TO ASSIST IN THE LOAD
00098  M01S00097.6dd     +++|          CWM    RDSB,ON
00099  M01S00098.6dd     +++|          STD    CM
00100  M01S00099.6dd     +++|          CWD    T4
00101  M01S00100.6dd     +++|          MONITOR  RPPM
00102  M01S00101.6dd     +++|          LDDL   LA          SET LOAD ADDRESS
00103  M01S00102.6dd     +++|          STML   RDSA
Line S00103 Modification History
M01 (Added by) 6dd
M02 (Updated by) 6dd1
Seq #  *Modification Id* Act 
----------------------------+
00104  M02S00103.6dd1    ---| RDS1     LDD    MA
00105  M01S00001.6dd1    +++| RDS1     PAUSE
00106  M01S00002.6dd1    +++|          LDD    MA
00107  M01S00104.6dd     +++|          ADN    1
00108  M01S00105.6dd     +++|          CRD    CM
00109  M01S00106.6dd     +++|          LDD    CM          CHECK FOR DATA READY
00110  M01S00107.6dd     +++|          SHN    21-13
00111  M01S00108.6dd     +++|          MJN    RDS2        IF ERROR IN LOAD
00112  M01S00109.6dd     +++|          SHN    13-12
00113  M01S00110.6dd     +++|          MJN    RDS3        IF EOR ENCOUNTERED
00114  M01S00111.6dd     +++|          ZJN    RDS1        IF DATA NOT READY
00115  M01S00112.6dd     +++|          LDD    MA          READ DATA
00116  M01S00113.6dd     +++|          ADN    2
00117  M01S00114.6dd     +++|          CRM    **,CM
00118  M01S00115.6dd     +++| RDSA     EQU    *-1
00119  M01S00116.6dd     +++|          LDD    CM          ADVANCE READ ADDRESS
00120  M01S00117.6dd     +++|          SHN    2
00121  M01S00118.6dd     +++|          ADD    CM
00122  M01S00119.6dd     +++|          RAML   RDSA
00123  M01S00120.6dd     +++|          LDN    0           INDICATE READY FOR NEXT BLOCK
00124  M01S00121.6dd     +++|          STD    CM
00125  M01S00122.6dd     +++|          LDD    MA
00126  M01S00123.6dd     +++|          ADN    1
00127  M01S00124.6dd     +++|          CWD    CM
00128  M01S00125.6dd     +++|          UJN    RDS1        LOOP FOR MORE DATA
00129  M01S00126.6dd     +++|
00130  M01S00127.6dd     +++| RDS2     LDML   RDS         SET RETURN ADDRESS
00131  M01S00128.6dd     +++|          STDL   CM
00132  M01S00129.6dd     +++|          LCN    1           SET ERROR FLAG
00133  M01S00130.6dd     +++|          LJM    0,CM        RETURN
00134  M01S00131.6dd     +++|
00135  M01S00132.6dd     +++| RDS3     LDML   RDS         SET RETURN ADDRESS
00136  M01S00133.6dd     +++|          STDL   CM
00137  M01S00134.6dd     +++|          LDN    0           INDICATE READ COMPLETE
00138  M01S00135.6dd     +++|          LJM    0,CM        RETURN
00139  M01S00136.6dd     +++|
00140  M01S00137.6dd     +++|
00141  M01S00138.6dd     +++| RDSB     VFD    18/3L1MA,6/0,12/11,24/0
00142  M01S00139.6dd     +++| PRS      SPACE  4,10
00143  M01S00140.6dd     +++|**        PRS - PRESET.
00144  M01S00141.6dd     +++|*
00145  M01S00142.6dd     +++|*         MACROS BLI.
00146  M01S00143.6dd     +++|
00147  M01S00144.6dd     +++|
00148  M01S00145.6dd     +++| PRS      LDC    PRSA        GET TABLE OF LONG INSTRUCTIONS
00149  M01S00146.6dd     +++|          STD    CM+4
00150  M01S00147.6dd     +++|          LDD    T3          PRESERVE *T3*
00151  M01S00148.6dd     +++|          STD    CM+3
00152  M01S00149.6dd     +++| PRS1     LDI    CM+4        GET NEXT INSTRUCTION ADDRESS
00153  M01S00150.6dd     +++|          ZJN    PRS2        IF END OF LIST
00154  M01S00151.6dd     +++|          STD    T3
00155  M01S00152.6dd     +++|          BLI    T3          BUILD LONG INSTRUCTION
00156  M01S00153.6dd     +++|          AOD    CM+4
00157  M01S00154.6dd     +++|          UJN    PRS1        PROCESS NEXT INSTRUCTION
00158  M01S00155.6dd     +++|
00159  M01S00156.6dd     +++| PRS2     LDD    CM+3        RESTORE *T3*
00160  M01S00157.6dd     +++|          STD    T3
00161  M01S00158.6dd     +++|          LDC    SMSX        ENSURE PRESET IS NOT RE-EXECUTED
00162  M01S00159.6dd     +++|          STM    MSFW
00163  M01S00160.6dd     +++|          LJM    SMSX        RETURN
00164  M01S00161.6dd     +++|
00165  M01S00162.6dd     +++|
00166  M01S00163.6dd     +++| PRSA     BSS    0
00167  M01S00164.6dd     +++|          LIST16
00168  M01S00165.6dd     +++|
00169  M01S00166.6dd     +++| .1       MAX    *
00170  M01S00167.6dd     +++| .1       SET    .1+4-MSFW   CHECK FOR OVERFLOW
00171  M01S00168.6dd     +++| .1       SET    .1/5
00172  M01S00169.6dd     +++| .1       SET    MSFW+.1*5
00173  M01S00170.6dd     +++| .2       SET    PPFW-5-*-5  BYTES AVAILABLE BEFORE OVERFLOW
00174  M01S00171.6dd     +++|          ERRNG  PPFW-5-.1   DRIVER OVERFLOWS INTO *PPFW*-5
00175  M01S00172.6dd     +++|          END
cdc/nos2.source/opl.opl871/deck/6dd.txt ยท Last modified: by 127.0.0.1