User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:set

Deck SET

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.set     +++|          IDENT  SET,0
00002  M00S00002.set     +++|          PERIPH J
00003  M00S00003.set     +++|          BASE   MIXED
00004  M00S00004.set     +++|          SST    LA,MA,.EST,DLYA
00005  M00S00005.set     +++|*COMMENT  SET - INITIALIZE SYSTEM.
Line S00006 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.set     +++|          TITLE  SET - INITIALIZE SYSTEM.
00009  M00S00008.set     +++|          SPACE  4
00010  M00S00009.set     +++|***       SET - INITIALIZE SYSTEM.
00011  M00S00010.set     +++|*
00012  M00S00011.set     +++|*         G. R. MANSFIELD.   70/12/13.
00013  M00S00012.set     +++|*         D. A. HIVELEY.     72/07/01.
00014  M00S00013.set     +++|*         J. L. WARDELL.     73/01/15.
00015  M00S00014.set     +++|*         P. D. HAAS.        74/07/24.
00016  M00S00015.set     +++|          SPACE  4
00017  M00S00016.set     +++|***              *SET* PERFORMS SYSTEM INITIALIZATION BY PROCESSING
00018  M00S00017.set     +++|*         TEXT DECKS ON THE DEAD START TAPE.  THE TEXT RECORDS
00019  M00S00018.set     +++|*         MAY CONSIST OF ANY NUMBER OF LOGICAL GROUPINGS WITH A
00020  M00S00019.set     +++|*         PROCESSING OVERLAY.  THE ASSEMBLY PROCESS REQUIRES 2 TEXT
00021  M00S00020.set     +++|*         RECORDS, THE FIRST CONTAINS INSTRUCTIONS FOR THE OPERATOR,
00022  M00S00021.set     +++|*         AND THE SECOND CONTAINS THE ACTUAL TEXT.  NEITHER OF THESE
00023  M00S00022.set     +++|*         RECORDS SHOULD BE LONGER THAN ONE TAPE PRU.  THE PROCESS OF
00024  M00S00023.set     +++|*         ASSEMBLY CONTINUES UNTIL THE RECORD *PP/PPR* IS READ AS
00025  M00S00024.set     +++|*         AN OVERLAY.
00026  M00S00025.set     +++|*
00027  M00S00026.set     +++|*         EXAMPLE - THE FOLLOWING RECORDS ARE PRESENT.
00028  M00S00027.set     +++|*         CMR                CENTRAL MEMORY INITIALIZER
00029  M00S00028.set     +++|*         CMRINST            INSTRUCTIONS FOR USE
00030  M00S00029.set     +++|*         CMRDECK            TEXT FOR ASSEMBLY
00031  M00S00030.set     +++|          SPACE  4,10
00032  M00S00031.set     +++|*CALL     COMPMAC
00033  M00S00032.set     +++|*CALL     COMDMAC
00034  M00S00033.set     +++|          QUAL   BIO
00035  M00S00034.set     +++|*CALL     COMSBIO
00036  M00S00035.set     +++|          QUAL   *
00037  M00S00036.set     +++|*CALL     COMSDFT
00038  M00S00037.set     +++|          LIST   X
00039  M00S00038.set     +++|*CALL     COMSDSL
00040  M00S00039.set     +++|          LIST   *
00041  M00S00040.set     +++|*CALL     COMSDST
00042  M00S00041.set     +++|*CALL     COMSESS
00043  M00S00042.set     +++|*CALL     COMSHIO
00044  M00S00043.set     +++|          QUAL   IOU
00045  M00S00044.set     +++|*CALL     COMSIOU
00046  M00S00045.set     +++|          QUAL   *
00047  M00S00046.set     +++|*CALL     COMSLSD
00048  M00S00047.set     +++|*CALL     COMSMSC
00049  M00S00048.set     +++|*CALL     COMS176
00050  M00S00049.set     +++|*CALL     COMPCHM
00051  M00S00050.set     +++|*CALL     COMSCPS
00052  M00S00051.set     +++|*CALL     COMSEJT
00053  M00S00052.set     +++|*CALL     COMSMLS
00054  M00S00053.set     +++|*CALL     COMSMMF
00055  M00S00054.set     +++|*CALL     COMSMSP
00056  M00S00055.set     +++|*CALL     COMSMST
00057  M00S00056.set     +++|          QUAL   PFM
00058  M00S00057.set     +++|*CALL     COMSPFM
00059  M00S00058.set     +++|          QUAL   *
00060  M00S00059.set     +++|*CALL     COMSPIM
00061  M00S00060.set     +++|*CALL     COMSREM
Line S00001 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00062  M01S00001.272l774 +++|          QUAL   SCR
00063  M00S00061.set     +++|*CALL     COMSSCR
Line S00002 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00064  M01S00002.272l774 +++|          QUAL   *
00065  M00S00062.set     +++|*CALL     COMSSRU
00066  M00S00063.set     +++|*CALL     COMSSSD
00067  M00S00064.set     +++|*CALL     COMSSSJ
00068  M00S00065.set     +++|*CALL     COMS1DS
00069  M00S00066.set     +++|          SPACE  4
00070  M00S00067.set     +++|          TITLE  DIRECT LOCATION ASSIGNMENTS.
00071  M00S00068.set     +++|****      DIRECT LOCATION ASSIGNMENTS.
00072  M00S00069.set     +++|
00073  M00S00070.set     +++|
00074  M00S00071.set     +++|          ORG    0
00075  M00S00072.set     +++| T0       CON    PRS-1       TRANSFER ADDRESS
00076  M00S00073.set     +++| T1       CON    0
00077  M00S00074.set     +++| T2       CON    0           *SCD* PP NUMBER ON ENTRY
00078  M00S00075.set     +++| T3       CON    0
00079  M00S00076.set     +++| T4       CON    0           DEADSTART CHANNEL ON ENTRY
00080  M00S00077.set     +++| T5       CON    0           INTERCOMMUNICATIONS CHANNEL ON ENTRY
00081  M00S00078.set     +++| T6       CON    0
00082  M00S00079.set     +++| T7       CON    77
00083  M00S00080.set     +++|
00084  M00S00081.set     +++| CM       VFD    60/0        CM WORD BUFFER
00085  M00S00082.set     +++| TA       CON    0           TABLE ADDRESS
00086  M00S00083.set     +++| NC       EQU    TA          NUMBER OF CONTROL POINTS + 1
00087  M00S00084.set     +++| ID       CON    2RAA        DEFAULT MACHINE ID
00088  M00S00085.set     +++| LD       CON    0           1/ISD FLAG, 11/MMF LINK DEVICE
00089  M00S00086.set     +++|
00090  M00S00087.set     +++| CN       VFD    60/0        CM WORD BUFFER
00091  M00S00088.set     +++| CA       CON    0,1         CENTRAL ADDRESS
00092  M00S00089.set     +++| ES       CON    /EQP/EBUT   EQUIPMENT STATUS ADDRESS
00093  M00S00090.set     +++|
00094  M00S00091.set     +++| EB       CON    0           *EBUF* POINTER
00095  M00S00092.set     +++| ET       CON    0           *TDDB* POINTER
Line S00093 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00096  M01S00093.284l847 ---| MS       CON    0           *TMSD* POINTER SET BY *SMT*
Line S00001 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00097  M01S00001.284l847 +++| MS       CON    0           *TMSD* POINTER SET BY */EQ1/SMD*
00098  M01S00002.284l847 +++|*                            *TETY* POINTER SET BY */EQ2/EQM*.
00099  M00S00094.set     +++| EQ       CON    0           EST ORDINAL
00100  M00S00095.set     +++| LA       CON    OVL         OVERLAY LOAD ADDRESS
00101  M00S00096.set     +++| RS       CON    0           RECOVERY STATUS
00102  M00S00097.set     +++| KB       CON    0           KEYBOARD BUFFER ADDRESS
00103  M00S00098.set     +++| ST       CON    0           SYNTAX TABLE ADDRESS
00104  M00S00099.set     +++|
00105  M00S00100.set     +++| DP       CON    0           DISPLAY CONTROL (IPRDECK)
00106  M00S00101.set     +++| MZ       CON    0,0         TOTAL CENTRAL MEMORY SIZE/100B
00107  M00S00102.set     +++| RM       CON    0           RECOVERY MODE
00108  M00S00103.set     +++| DI       CON    -0          TEXT DECK INDEX
00109  M00S00104.set     +++| DF       CON    0           DEADSTART FUNCTION
00110  M00S00105.set     +++| DH       CON    DC          DEADSTART CHANNEL
00111  M00S00106.set     +++|
00112  M00S00107.set     +++|*         *HO* BIT DEFINITIONS (SAME AS MABL) -
00113  M00S00108.set     +++|*
00114  M00S00109.set     +++|*         0001 - CPU0 NOT PRESENT
00115  M00S00110.set     +++|*         0002 - CPU1 NOT PRESENT
00116  M00S00111.set     +++|*         0004 - IF 865/875, 0=865, 1=875
00117  M00S00112.set     +++|*         0010 - CMU NOT PRESET
00118  M00S00113.set     +++|*         0020 - CPU0 DOES NOT HAVE A STACK
00119  M00S00114.set     +++|*         0040 - RESERVED
00120  M00S00115.set     +++|*         0100 - NOT A CYBER 170 (NO SCR PRESENT)
00121  M00S00116.set     +++|*         0200 - NOT A CYBER 70 (NO I/L REGISTER PRESENT)
00122  M00S00117.set     +++|*         0400 - NOT A CYBER 170-700
00123  M00S00118.set     +++|*         3000 - 0 IF NOT 7000-TYPE CPU
00124  M00S00119.set     +++|*              - 1 IF CYBER 76 MODEL A
00125  M00S00120.set     +++|*              - 2 IF CYBER 76 MODEL B
00126  M00S00121.set     +++|*              - 3 IF CYBER 176
00127  M00S00122.set     +++|*         4000 - NOT A CYBER 170-800
00128  M00S00123.set     +++|
00129  M00S00124.set     +++| HO       CON    0           HARDWARE OPTIONS
00130  M00S00125.set     +++|
00131  M00S00126.set     +++| AB       VFD    60/0        ASSEMBLY BUFFER
00132  M00S00127.set     +++| PD       CON    0           POSSIBLE LINK DEVICE (=5 IF EST 5 IS ESM)
00133  M00S00128.set     +++| FL       CON    0,1770      DEFAULT EXECUTION MEMORY SIZE
00134  M00S00129.set     +++|
00135  M00S00130.set     +++| DS       CON    0           DISPLAY STATUS
00136  M00S00131.set     +++| KI       CON    0           KEYBOARD INDEX
00137  M00S00132.set     +++| KM       CON    0           KEYBOARD MESSAGE
00138  M00S00133.set     +++| KA       CON    0           CHARACTER ADDRESS
00139  M00S00134.set     +++| NS       CON    0           NUMBER OF SHARED MS DEVICES
00140  M00S00135.set     +++| XC       CON    CH01        X-COORDINATE
00141  M00S00136.set     +++| YC       CON    0           Y-COORDINATE
00142  M00S00137.set     +++| AM       CON    0           ASSEMBLY MODE
00143  M00S00138.set     +++|
00144  M00S00139.set     +++| ON       CON    1           CONSTANT 1
00145  M00S00140.set     +++| HN       CON    100         CONSTANT 100
00146  M00S00141.set     +++| TH       CON    1000        CONSTANT 1000
00147  M00S00142.set     +++| TR       CON    3           CONSTANT 3
00148  M00S00143.set     +++| EN       CON    0           EXTENDED MEMORY CPU ACCESS EST ORDINAL
Line S00144 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00149  M01S00144.284l847 ---| FR       CON    4           CONSTANT 4
Line S00003 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00150  M01S00003.284l847 +++| DV       CON    TDDCL       MASS STORAGE DESCRIPTOR TABLE LENGTH
00151  M00S00145.set     +++| LE       CON    NOPE        LAST EST ORDINAL
00152  M00S00146.set     +++| ZR       VFD    60/0        ZERO WORD
00153  M00S00147.set     +++|****
00154  M00S00148.set     +++|          TITLE  ASSEMBLY CONSTANTS.
00155  M00S00149.set     +++|          SPACE  4,10
00156  M00S00150.set     +++|*         ASSEMBLY CONSTANTS.
00157  M00S00151.set     +++|
00158  M00S00152.set     +++|
00159  M00S00153.set     +++| BC       EQU    1           BUFFER PP CHANNEL
00160  M00S00154.set     +++| XPC      EQU    100         C176 EXCHANGE PACKAGE SIZE
00161  M00S00155.set     +++| MEBF     EQU    DSDL+12     MICROCODE/EI BUFFER
00162  M00S00156.set     +++|          ERRNZ  CPAS-3-MEBF
00163  M00S00157.set     +++| BBFL     EQU    CPML+PRSL   BASIC BUFFER LENGTH
00164  M00S00158.set     +++| EBFL     EQU    BBFL+5000/100  EXTENDED BUFFER LENGTH
00165  M00S00159.set     +++| EDBL     EQU    44          EXTENDED MEMORY DISPLAY BUFFER LENGTH
00166  M00S00160.set     +++| LDEQ     EQU    5           DEFAULT LINK DEVICE EQUIPMENT NUMBER
00167  M00S00161.set     +++| DBPS     EQU    2*400-3*3-2*1  PP SAVE AREA CONSTANT
Line S00001 Modification History
M01 (Added by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
00168  M01S00001.ns2557  +++| PSAL     EQU    PPFW/5      *SCI* PP RESIDENT SAVE AREA LENGTH
00169  M00S00162.set     +++| QUAL$    EQU    1
00170  M00S00163.set     +++|
00171  M00S00164.set     +++| YCPH     EQU    LN02        Y-COORDINATE - PRIMARY HEADER LINE
00172  M00S00165.set     +++| YCSH     EQU    LN04        Y-COORDINATE - SECONDARY HEADER LINE
00173  M00S00166.set     +++|          SPACE  4,10
00174  M00S00167.set     +++|*         BUFFER PP FUNCTIONS.
00175  M00S00168.set     +++|
00176  M00S00169.set     +++|
00177  M00S00170.set     +++| TBPF     BSS    0
00178  M00S00171.set     +++|          LOC    0
Line S00172 Modification History
M01 (Removed by) ns2767
Seq #  *Modification Id* Act 
----------------------------+
00179  M01S00172.ns2767  ---| RSPF     BSS    1           RESET PP
Line S00001 Modification History
M01 (Added by) ns2767
Seq #  *Modification Id* Act 
----------------------------+
00180  M01S00001.ns2767  +++| RSBF     BSS    1           RESET BUFFER PP
00181  M00S00173.set     +++| IFBF     BSS    1           INPUT FIRST BUFFER
00182  M00S00174.set     +++| ISBF     BSS    1           INPUT SECOND BUFFER
00183  M00S00175.set     +++| DDDF     BSS    1           DISPLAY BUFFER
00184  M00S00176.set     +++| UECF     BSS    1           UPDATE EQUIPMENT COUNT
00185  M00S00177.set     +++| ONLF     BSS    1           OUTPUT NEXT LINE
00186  M00S00178.set     +++| RCLF     BSS    2           REPLACE CURRENT LINE
00187  M00S00179.set     +++| ANLF     EQU    RCLF+1      ADD NEXT LINE
00188  M00S00180.set     +++| ADBF     BSS    1           ADVANCE BUFFER
00189  M00S00181.set     +++| ADDF     BSS    1           ADVANCE DISPLAY
00190  M00S00182.set     +++| RPSF     BSS    1           RESET SECOND BUFFER
00191  M00S00183.set     +++|          SPACE  4,10
00192  M00S00184.set     +++|*         MASS STORAGE DESCRIPTOR TABLE TAGS.
00193  M00S00185.set     +++|
00194  M00S00186.set     +++|
00195  M00S00187.set     +++|          BSS    0
00196  M00S00188.set     +++|          LOC    0
00197  M00S00189.set     +++| DVFA     BSS    1           FILE ALLOCATION FLAGS
00198  M00S00190.set     +++| DVNT     BSS    1           NUMBER OF TRACKS
Line S00191 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00199  M01S00191.271l716 ---| DVPR     BSS    1           10/ ,1/ SCKP DEVICE, 1/ ISD PRESET FLAG
Line S00001 Modification History
M01 (Added by) 271l716
M02 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00001.284l847 ---| DVPR     BSS    1           3/ CN,7/ 0,1/ CD, 1/ PF
Line S00004 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00201  M01S00004.284l847 +++| DVPR     BSS    1           3/ CN, 3/ C2, 1/ F2, 3/ 0,1/ CD, 1/ PF
Line S00002 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00202  M01S00002.271l716 +++|*                            CN = CONTROLLER NUMBER
Line S00005 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00203  M01S00005.284l847 +++|*                            C2 = CONTROLLER NUMBER, SECOND CHANNEL
00204  M01S00006.284l847 +++|*                            F2 = SECOND CONTROLLER NUMBER FLAG
Line S00003 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00205  M01S00003.271l716 +++|*                            CD = SYSTEM CHECKPOINT DEVICE
00206  M01S00004.271l716 +++|*                            PF = ISD PRESET FLAG
00207  M00S00192.set     +++| DVPF     BSS    2           8/ NC,8/ SM,8/ DM
00208  M00S00193.set     +++|*                            NC = NUMBER OF CATALOG TRACKS
00209  M00S00194.set     +++|*                            SM = SECONDARY MASK
00210  M00S00195.set     +++|*                            DM = DEVICE MASK
00211  M00S00196.set     +++|
00212  M00S00197.set     +++| DVNM     BSS    3           FAMILY OR PACK NAME
00213  M00S00198.set     +++| DVDN     BSS    1           DEVICE NUMBER
00214  M00S00199.set     +++| DVAP     BSS    1           APRDECK NUMBER
00215  M00S00200.set     +++|
00216  M00S00201.set     +++| DVED     BSS    1           EQUIPMENT DESCRIPTION
00217  M00S00202.set     +++| DVES     BSS    0           1000B WORD BLOCKS OF EM (2 LOCATIONS)
00218  M00S00203.set     +++| DVUN     BSS    4           UNIT LIST
Line S00007 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00219  M01S00007.284l847 +++| DVUNL    EQU    *-DVUN      LENGTH OF UNIT LIST
00220  M00S00204.set     +++|
00221  M00S00205.set     +++| DVTH     BSS    0           DEVICE THRESHOLD WORD
00222  M00S00206.set     +++| DVVF     BSS    1           VALIDATION FAILURE THRESHOLD
00223  M00S00207.set     +++| DVRA     BSS    1           RESTRICT ACTIVITY TRACK THRESHOLD
00224  M00S00208.set     +++| DVLS     BSS    1           LOW SPACE TRACK THRESHOLD
00225  M00S00209.set     +++| DVRE     BSS    1           RECOVERED ERROR THRESHOLD
00226  M00S00210.set     +++| DVUE     BSS    1           UNRECOVERED ERROR THRESHOLD
00227  M00S00211.set     +++|
Line S00008 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00228  M01S00008.284l847 +++| DVCT     BSS    1           1/  SHARED DEVICE FLAG,
00229  M01S00009.284l847 +++|*                            11/ DEFAULT NUMBER OF CATALOG TRACKS
00230  M01S00010.284l847 +++| DVAI     BSS    1           6/  CONTROLWARE LOAD, 6/ ALGORITHM INDEX
00231  M01S00011.284l847 +++| DVDI     BSS    1           6/  DRIVER INDEX, 6/ UNUSED
00232  M01S00012.284l847 +++| DVSL     BSS    1           1/  FULL TRACK FLAG,
00233  M01S00013.284l847 +++|*                            11/ SECTOR LIMIT + MAX PARTITION NO.
00234  M01S00014.284l847 +++| DVCO     BSS    1           12/ CYLINDER OFFSET FOR THIS PARTITION
00235  M01S00015.284l847 +++|
00236  M00S00212.set     +++| TDDEL    BSS    0           LENGTH OF MS DESCRIPTOR TABLE ENTRY
Line S00213 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00237  M01S00213.284l847 ---| DV       EQU    FR          CM WORD LENGTH OF TABLE
00238  M01S00214.284l847 ---|          ERRNZ  TDDCL-4     DV VALUE DEPENDS ON LENGTH OF TABLE
Line S00016 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00239  M01S00016.284l847 +++|          ERRNZ  TDDEL/5*5-TDDEL  TABLE LENGTH MUST BE MULTIPLE OF 5
00240  M00S00215.set     +++| TDDCL    EQU    TDDEL/5     CM WORD LENGTH OF TABLE
Line S00216 Modification History
M01 (Removed by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00241  M01S00216.284l847 ---|          ERRNZ  TDDEL/5*5-TDDEL  TABLE LENGTH MUST BE MULTIPLE OF 5
Line S00017 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00242  M01S00017.284l847 +++|          ERRNZ  TDDCL-5     DV VALUE DEPENDS ON LENGTH OF TABLE
Line S00001 Modification History
M01 (Added by) set81
Seq #  *Modification Id* Act 
----------------------------+
00243  M01S00001.set81   +++| .TDDB    EQU    TDDCL*ESMX+77  CM BUFFER SIZE PLUS ROUNDING FACTOR
00244  M01S00002.set81   +++| TDDBL    EQU    .TDDB/100   CM BUFFER LENGTH/100B FOR TABLE
00245  M00S00217.set     +++|          SPACE  4,10
00246  M00S00218.set     +++|*         DEFAULT MASS STORAGE ERROR THRESHOLDS.
00247  M00S00219.set     +++|
00248  M00S00220.set     +++|
00249  M00S00221.set     +++|          ORG    AB
00250  M00S00222.set     +++| AB       INDEX
00251  M00S00223.set     +++|          INDEX  DVVF-DVTH,1
00252  M00S00224.set     +++|          INDEX  DVRA-DVTH,0 TRACK COUNT / 8
00253  M00S00225.set     +++|          INDEX  DVRE-DVTH,50
00254  M00S00226.set     +++|          INDEX  DVLS-DVTH,0 TRACK COUNT / 16
00255  M00S00227.set     +++|          INDEX  DVUE-DVTH,1
00256  M00S00228.set     +++|          ORG    TBPF
Line S00001 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00257  M01S00001.274l797 +++|          SPACE  4,10
00258  M01S00002.274l797 +++|**        MACRO SUBROUTINES FOR ASSEMBLING DIRECTIVE VALUES AND NAMES.
00259  M01S00003.274l797 +++|
00260  M01S00004.274l797 +++|
00261  M01S00005.274l797 +++| AODSUB   MACRO
00262  M01S00006.274l797 +++|          LIST G
00263  M01S00007.274l797 +++| AOD      SPACE  4
00264  M01S00008.274l797 +++|**        AOD - ASSEMBLE OCTAL DIGITS.
00265  M01S00009.274l797 +++|*
00266  M01S00010.274l797 +++|*         ENTRY  (KA) = ADDRESS OF CHARACTER STRING.
00267  M01S00011.274l797 +++|*
00268  M01S00012.274l797 +++|*         EXIT   (A) = LOWER ASSEMBLY.
00269  M01S00013.274l797 +++|*                (AB - AB+4) = ASSEMBLED VALUE.
00270  M01S00014.274l797 +++|*                ERROR IF SEPARATOR NOT *,* OR *.*.
00271  M01S00015.274l797 +++|*
00272  M01S00016.274l797 +++|*         CALLS  CDR.
00273  M01S00017.274l797 +++|
00274  M01S00018.274l797 +++|
00275  M01S00019.274l797 +++| AOD1     LDD    AB+4        RETURN WITH LOWER ASSEMBLY
00276  M01S00020.274l797 +++|
00277  M01S00021.274l797 +++| AOD      SUBR               ENTRY/EXIT
00278  M01S00022.274l797 +++|          RJM    CDR
00279  M01S00023.274l797 +++|          LMN    1R,         CHECK SEPARATOR
00280  M01S00024.274l797 +++|          ZJN    AOD1        IF *,*
00281  M01S00025.274l797 +++|          LMN    1R.&1R,
00282  M01S00026.274l797 +++|          ZJN    AOD1        IF *.*
00283  M01S00027.274l797 +++|          JMP    ILL         PROCESS INCORRECT ENTRY
00284  M01S00028.274l797 +++|
00285  M01S00029.274l797 +++|          LIST   *
00286  M01S00030.274l797 +++| AODSUB   ENDM
00287  M01S00031.274l797 +++| ASDSUB   MACRO
00288  M01S00032.274l797 +++|          LIST   G
00289  M01S00033.274l797 +++| ASD      SPACE  4,10
00290  M01S00034.274l797 +++|**        ASD - ASSEMBLE DIGITS.
00291  M01S00035.274l797 +++|*
00292  M01S00036.274l797 +++|*         ENTRY  (KA) = ADDRESS OF CHARACTER STRING.
00293  M01S00037.274l797 +++|*
00294  M01S00038.274l797 +++|*         EXIT   (AB - AB+4) = ASSEMBLED DIGITS.
00295  M01S00039.274l797 +++|*                ERROR EXIT IF NO *.*.
00296  M01S00040.274l797 +++|*
00297  M01S00041.274l797 +++|*         CALLS  CDR.
00298  M01S00042.274l797 +++|
00299  M01S00043.274l797 +++|
00300  M01S00044.274l797 +++| ASD1     LDD    AB+4        RETURN WITH LOWER ASSEMBLY
00301  M01S00045.274l797 +++|
00302  M01S00046.274l797 +++| ASD      SUBR               ENTRY/EXIT
00303  M01S00047.274l797 +++|          RJM    CDR
00304  M01S00048.274l797 +++|          LMN    1R.
00305  M01S00049.274l797 +++|          ZJN    ASD1        IF *.*
00306  M01S00050.274l797 +++|          JMP    ILL         PROCESS INCORRECT ENTRY
00307  M01S00051.274l797 +++|
00308  M01S00052.274l797 +++|          LIST   *
00309  M01S00053.274l797 +++| ASDSUB   ENDM
00310  M01S00054.274l797 +++| ASNSUB   MACRO
00311  M01S00055.274l797 +++|          LIST   G
00312  M01S00056.274l797 +++| ASN      SPACE  4,10
00313  M01S00057.274l797 +++|**        ASN - ASSEMBLE NAME.
00314  M01S00058.274l797 +++|*
00315  M01S00059.274l797 +++|*         ENTRY  (A) = NUMBER OF CHARACTERS TO ASSEMBLE.
00316  M01S00060.274l797 +++|*                (KA) = ADDRESS OF CHARACTER STRING.
00317  M01S00061.274l797 +++|*
00318  M01S00062.274l797 +++|*         EXIT   (CM - CM+4) = ASSEMBLED NAME.
00319  M01S00063.274l797 +++|*                (A) = 0 IF ASSEMBLY TERMINATED ON *,* OR *.*.
00320  M01S00064.274l797 +++|*                (T0) = NUMBER OF CHARACTERS ASSEMBLED.
00321  M01S00065.274l797 +++|*
00322  M01S00066.274l797 +++|*         USES   T1, T2.
00323  M01S00067.274l797 +++|
00324  M01S00068.274l797 +++|
00325  M01S00069.274l797 +++| ASN2     AOD    T0          ADVANCE CHARACTER COUNT
00326  M01S00070.274l797 +++|          SBN    1
00327  M01S00071.274l797 +++|          SHN    21-0        FORM BUFFER ADDRESS
00328  M01S00072.274l797 +++|          ADN    CM
00329  M01S00073.274l797 +++|          STD    T1
00330  M01S00074.274l797 +++|          LMD    T1          CLEAR ADDRESS
00331  M01S00075.274l797 +++|          LMI    KA          INSERT CHARACTER
00332  M01S00076.274l797 +++|          MJN    ASN3        IF CHARACTER PACKED LOW
00333  M01S00077.274l797 +++|          SHN    6           POSITION CHARACTER HIGH
00334  M01S00078.274l797 +++| ASN3     RAI    T1          ASSEMBLE BYTE
00335  M01S00079.274l797 +++|          AOD    KA          ADVANCE CHARACTER BUFFER
00336  M01S00080.274l797 +++|          SOD    T2          DECREMENT CHARACTER COUNT
00337  M01S00081.274l797 +++|          NJN    ASN1        IF NOT END OF ASSEMBLY
00338  M01S00082.274l797 +++|          LDD    T0
00339  M01S00083.274l797 +++|
00340  M01S00084.274l797 +++| ASN      SUBR               ENTRY/EXIT
00341  M01S00085.274l797 +++|          STD    T2          SET CHARACTER COUNT
00342  M01S00086.274l797 +++|          LDN    0           CLEAR ASSEMBLY BUFFER
00343  M01S00087.274l797 +++|          STD    T0
00344  M01S00088.274l797 +++|          CRD    CM
00345  M01S00089.274l797 +++|          AOD    KA          SKIP SEPARATOR
00346  M01S00090.274l797 +++| ASN1     LDI    KA          CHECK NEXT CHARACTER
00347  M01S00091.274l797 +++|          SBN    1R9+1
00348  M01S00092.274l797 +++|          MJN    ASN2        IF ALPHANUMERIC
00349  M01S00093.274l797 +++|          SBN    1R,-1R9-1
00350  M01S00094.274l797 +++|          ZJN    ASNX        IF *,*
00351  M01S00095.274l797 +++|          SBN    1R.-1R,
00352  M01S00096.274l797 +++|          ZJN    ASNX        IF *.*
00353  M01S00097.274l797 +++|          JMP    ILL         PROCESS INCORRECT ENTRY
00354  M01S00098.274l797 +++|
00355  M01S00099.274l797 +++|          LIST   *
00356  M01S00100.274l797 +++| ASNSUB   ENDM
00357  M01S00101.274l797 +++| CDRSUB   MACRO
00358  M01S00102.274l797 +++|          LIST   G
00359  M01S00103.274l797 +++| CDR      SPACE  4,10
00360  M01S00104.274l797 +++|**        CDR - CONVERT DIGITS RIGHT ADJUSTED.
00361  M01S00105.274l797 +++|*
00362  M01S00106.274l797 +++|*         ENTRY  (KA) = ADDRESS OF CHARACTER STRING.
00363  M01S00107.274l797 +++|*
00364  M01S00108.274l797 +++|*         EXIT   (A) = SEPARATOR CHARACTER.
00365  M01S00109.274l797 +++|*                (AB - AB+4) = ASSEMBLY.
00366  M01S00110.274l797 +++|*
00367  M01S00111.274l797 +++|*         USES   T1, T2.
00368  M01S00112.274l797 +++|
00369  M01S00113.274l797 +++|
00370  M01S00114.274l797 +++| CDR4     SBN    1R -1R8
00371  M01S00115.274l797 +++|          ZJN    CDR3        IF SPACE
00372  M01S00116.274l797 +++| CDR5     LDI    KA          RETURN WITH CHARACTER
00373  M01S00117.274l797 +++|
00374  M01S00118.274l797 +++| CDR      SUBR               ENTRY/EXIT
00375  M01S00119.274l797 +++|          LDN    ZERL        CLEAR ASSEMBLY BUFFER
00376  M01S00120.274l797 +++|          CRD    AB
00377  M01S00121.274l797 +++| CDR1     LDI    KA          CHECK CHARACTER
00378  M01S00122.274l797 +++|          SBN    1R0
00379  M01S00123.274l797 +++|          MJN    CDR5        IF ALPHA
00380  M01S00124.274l797 +++|          SBN    1R8-1R0
00381  M01S00125.274l797 +++|          PJN    CDR4        IF NOT OCTAL DIGIT
00382  M01S00126.274l797 +++|          ADN    10          STORE DIGIT
00383  M01S00127.274l797 +++|          STD    T1
00384  M01S00128.274l797 +++|          LDN    AB+4        SET BYTE ADDRESS
00385  M01S00129.274l797 +++|          STD    T2
00386  M01S00130.274l797 +++| CDR2     LDI    T2          LOAD BYTE
00387  M01S00131.274l797 +++|          SHN    3
00388  M01S00132.274l797 +++|          LMD    T1          ADD NEW DIGIT
00389  M01S00133.274l797 +++|          STI    T2          STORE
00390  M01S00134.274l797 +++|          SHN    -14         SAVE OVERFLOW
00391  M01S00135.274l797 +++|          STD    T1
00392  M01S00136.274l797 +++|          SOD    T2          ADVANCE BYTE ADDRESS
00393  M01S00137.274l797 +++|          LMN    AB-1
00394  M01S00138.274l797 +++|          NJN    CDR2        IF NOT FINISHED
00395  M01S00139.274l797 +++| CDR3     AOD    KA          ADVANCE CHARACTER
00396  M01S00140.274l797 +++|          UJN    CDR1        PROCESS NEXT CHARACTER
00397  M01S00141.274l797 +++|
00398  M01S00142.274l797 +++|          LIST   *
00399  M01S00143.274l797 +++| CDRSUB   ENDM
00400  M00S00229.set     +++|          SPACE  4,10
00401  M00S00230.set     +++|**        CHKAPE - CHECK ALTERNATE PP ERROR.
00402  M00S00231.set     +++|*
00403  M00S00232.set     +++|*         CALLS *DSE* IF THE *A* REGISTER .NE. 0.
00404  M00S00233.set     +++|
00405  M00S00234.set     +++|
00406  M00S00235.set     +++| CHKAPE   MACRO
00407  M00S00236.set     +++|          LOCAL  CHK1
00408  M00S00237.set     +++|          ZJN    CHK1        IF NO ERROR RETURNED
00409  M00S00238.set     +++|          JMP    DSE         DISPLAY ERROR AND HANG
00410  M00S00239.set     +++| CHK1     BSS    0
00411  M00S00240.set     +++|          ENDM
00412  M00S00241.set     +++|          SPACE  4
00413  M00S00242.set     +++|**        JMP - THREADED JUMP.
00414  M00S00243.set     +++|*
00415  M00S00244.set     +++|*
00416  M00S00245.set     +++|*         JMP    ADDR
00417  M00S00246.set     +++|*         ENTRY  *ADDR* = JUMP ADDRESS.
00418  M00S00247.set     +++|
00419  M00S00248.set     +++|
00420  M00S00249.set     +++| JMP      MACRO  ADDR
00421  M00S00250.set     +++|          IF     -DEF,.ADDR,2
00422  M00S00251.set     +++|          NOREF  .ADDR
00423  M00S00252.set     +++| .ADDR    MAX    ADDR,*-40
00424  M00S00253.set     +++|          IFGT   .ADDR,*-40
00425  M00S00254.set     +++|          UJN    .ADDR
00426  M00S00255.set     +++| .ADDR    SET    *-1
00427  M00S00256.set     +++|          ELSE   2
00428  M00S00257.set     +++| .ADDR    SET    *
00429  M00S00258.set     +++|          LJM    ADDR
00430  M00S00259.set     +++|          ENDM
00431  M00S00260.set     +++| SCLASS   SPACE  4,15
00432  M00S00261.set     +++|**        SCLASS - DEFINE SERVICE CLASS TABLE.
00433  M00S00262.set     +++|*
00434  M00S00263.set     +++|*         SCLASS NM,MN,DF,ST,TX
00435  M00S00264.set     +++|*
00436  M00S00265.set     +++|*         ENTRY  *NM* = SERVICE CLASS NAME.
00437  M00S00266.set     +++|*                *MN* = TWO CHARACTER MNEMONIC.
00438  M00S00267.set     +++|*                *DF* = DAYFILE MESSAGE CHARACTER.
00439  M00S00268.set     +++|*                *ST* = SHORT TEXT FOR *QFTLIST*.
00440  M00S00269.set     +++|*                *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE.
00441  M00S00270.set     +++|*
00442  M00S00271.set     +++|*         NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF
00443  M00S00272.set     +++|*                THIS MACRO.
00444  M00S00273.set     +++|
00445  M00S00274.set     +++|
00446  M00S00275.set     +++|          PURGMAC  SCLASS
00447  M00S00276.set     +++|
00448  M00S00277.set     +++| SCLASS   MACRO  NM,MN,DF,ST,TX
00449  M00S00278.set     +++| .A       IFC    NE,$NM$SSSC$
00450  M00S00279.set     +++| .SCL     RMT
00451  M00S00280.set     +++|          INDEX  /SCD/NM,/SCD/MN_MK    TX
00452  M00S00281.set     +++| .SCL     RMT
00453  M00S00282.set     +++| .A       ENDIF
00454  M00S00283.set     +++| SCLASS   ENDM
00455  M00S00284.set     +++|
00456  M00S00285.set     +++|
00457  M00S00286.set     +++| SCL$     EQU    0           ONLY PROCESS CLASSES WITH JCB-S
00458  M00S00287.set     +++|          QUAL   SCD
00459  M00S00288.set     +++|*CALL     COMSSCD
00460  M00S00289.set     +++|          QUAL   *
00461  M00S00290.set     +++|
00462  M00S00291.set     +++|*         DEFINE UNQUALIFIED *COMSSCD* SYMBOLS.
00463  M00S00292.set     +++|
00464  M00S00293.set     +++| MXJC     EQU    /SCD/MXJC
00465  M00S00294.set     +++| MXSC     EQU    /SCD/MXSC
00466  M00S00295.set     +++| SUBSYST  SPACE  4,10
00467  M00S00296.set     +++|**        SUBSYST - GENERATE SUBSYSTEM TABLE.
00468  M00S00297.set     +++|*
00469  M00S00298.set     +++|*         SUBSYST  NAME,ID,PR,PP,AUTO,DEF,DCP,CP,PROC,ABT
00470  M00S00299.set     +++|*
00471  M00S00300.set     +++|*         ENTRY  *NAME* = 3 CHARACTER SUBSYSTEM NAME.
00472  M00S00301.set     +++|*                *ID* = SUBSYSTEM ID.
00473  M00S00302.set     +++|*                *DCP* = DEFAULT CONTROL POINT.
00474  M00S00303.set     +++|*                *CP* = *YES* IF A CONTROL POINT IS ALLOWED.
00475  M00S00304.set     +++|*                *DEF* = *ENABLE* IF SUBSYSTEM ENABLED BY DEFAULT.
00476  M00S00305.set     +++|
00477  M00S00306.set     +++|
00478  M00S00307.set     +++|          PURGMAC  SUBSYST
00479  M00S00308.set     +++|
00480  M00S00309.set     +++| SUBSYST  MACRO  NM,ID,PT,PP,AU,DF,DC,CP,PR,AB
00481  M00S00310.set     +++| .A       IFC    NE,$NM$CMS$
00482  M00S00311.set     +++| .SUB1    RMT                ENABLE/DISABLE CODE
00483  M00S00312.set     +++| .B       IFC    EQ,$CP$YES$
00484  M00S00313.set     +++| NM       DATA   C*NM*
00485  M00S00314.set     +++| .B       ELSE
00486  M00S00315.set     +++| NM       DATA   C*NM_.*
00487  M00S00316.set     +++| .B       ENDIF
00488  M00S00317.set     +++| .1       SET    MXSI-ID
00489  M00S00318.set     +++| .2       SET    .1/12D
00490  M00S00319.set     +++| .3       SET    4-.2        *SSSL* BYTE
00491  M00S00320.set     +++| .4       DECMIC .1-12D*.2
00492  M00S00321.set     +++| .5       SET    1S".4"      *SSSL* MASK
00493  M00S00322.set     +++|          LDK    .3*10000B+.5
00494  M00S00323.set     +++|          JMP    CSB
00495  M00S00324.set     +++| .SUB1    RMT
00496  M00S00325.set     +++|
00497  M00S00326.set     +++|*         SET UP DEFAULT *SSSL*.
00498  M00S00327.set     +++|
00499  M00S00328.set     +++| .C       IFC    EQ,$DF$ENABLE$
00500  M00S00329.set     +++| .1       SET    MXSI-ID
00501  M00S00330.set     +++| .2       SET    .1/12D
00502  M00S00331.set     +++| .3       SET    4-.2
00503  M00S00332.set     +++| .4       DECMIC .1-12D*.2
00504  M00S00333.set     +++| .5       SET    1S".4"
00505  M00S00334.set     +++| .6       DECMIC .3
00506  M00S00335.set     +++| SSSL.".6"  SET  SSSL.".6"-.5
00507  M00S00336.set     +++| .C       ENDIF
00508  M00S00337.set     +++|
00509  M00S00338.set     +++| .SUB     RMT                ENABLE/DISABLE SYNTAX
00510  M00S00339.set     +++|          INDEX  MXSI-ID,NM
00511  M00S00340.set     +++| .SUB     RMT
00512  M00S00341.set     +++| .A       ENDIF
00513  M00S00342.set     +++|
00514  M00S00343.set     +++| .D       IFC    NE,$DC$$    DEFAULT SSCT TABLE
00515  M00S00344.set     +++| .SUB2    RMT
00516  M00S00345.set     +++|          INDEX  MXSI-ID,DC
00517  M00S00346.set     +++| .SUB2    RMT
00518  M00S00347.set     +++| .D       ENDIF
00519  M00S00348.set     +++| SUBSYST  ENDM
00520  M00S00349.set     +++|          TITLE  CMR TABLE ORGANIZATION.
00521  M00S00350.set     +++|          SPACE  4,10
00522  M00S00351.set     +++|**        LIST OF *SET* GENERATED TABLES.
00523  M00S00352.set     +++|*
00524  M00S00353.set     +++|*         SYMBOLS IN THIS LIST DEFINE THE ORDER IN WHICH TABLES
00525  M00S00354.set     +++|*         IN CMR ARE ALLOCATED BY *SET*.  TABLES MUST BE
00526  M00S00355.set     +++|*         CREATED AND RECOVERED IN THE SAME SEQUENCE.
00527  M00S00356.set     +++|
00528  M00S00357.set     +++|
00529  M00S00358.set     +++|          BSS    0
00530  M00S00359.set     +++|          LOC    0
00531  M00S00360.set     +++| ESTO     BSS    1           EQUIPMENT STATUS TABLE
00532  M00S00361.set     +++| EXPO     BSS    1           C176 (AND 819) EXCHANGE PACKAGES
Line S00005 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00533  M01S00005.271l716 +++| MCTO     BSS    1           MEMORY CONTROL TABLE
00534  M00S00362.set     +++| SCDO     BSS    1           *SCD* PARAMETER TABLE
00535  M00S00363.set     +++| RPTO     BSS    1           RING PORT TABLE
00536  M00S00364.set     +++| CHTO     BSS    1           CHANNEL TABLES
00537  M00S00365.set     +++| ECBO     BSS    1           *EICB* TABLES
00538  M00S00366.set     +++| EMBO     BSS    1           ERROR MESSAGE BUFFER
00539  M00S00367.set     +++| EVTO     BSS    1           EVENT TABLE
00540  M00S00368.set     +++| SCTO     BSS    1           SUBSYSTEM CONTROL TABLES
00541  M00S00369.set     +++| SITO     BSS    1           *SECDED* ID TABLE
00542  M00S00370.set     +++| SABO     BSS    1           SYSTEM ATTRIBUTE BLOCK
Line S00371 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00543  M01S00371.271l750 ---| JCAO     BSS    1           JOB CONTROL AREA
Line S00001 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00544  M01S00001.271l750 +++| JCAO     BSS    1           JOB CONTROL BLOCK TABLE
00545  M00S00372.set     +++| MSAO     BSS    1           MASS STORAGE ALLOCATION AREA
00546  M00S00373.set     +++| ODBO     BSS    1           OPERATOR DISPLAY BUFFER
00547  M00S00374.set     +++| LDBO     BSS    1           *L* DISPLAY BUFFER
Line S00001 Modification History
M01 (Added by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
00548  M01S00001.282l826 +++| PDBO     BSS    1           PREVIEW DISPLAY BUFFER
00549  M00S00375.set     +++| DFBO     BSS    1           DAYFILE BUFFERS
Line S00001 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00550  M01S00001.253l688 +++| PSVO     BSS    1           PP SAVE AREAS
00551  M00S00376.set     +++| MSTO     BSS    1           MASS STORAGE TABLES
00552  M00S00377.set     +++| TRTO     BSS    1           TRACK RESERVATION TABLES
00553  M00S00378.set     +++| EXMO     BSS    1           EXTENDED MEMORY BUFFERS
00554  M00S00379.set     +++| INBO     BSS    1           INSTALLATION BLOCK
00555  M00S00380.set     +++| SDAO     BSS    1           STATISTICAL DATA AREA
00556  M00S00381.set     +++| FOTO     BSS    1           FAMILY ORDINAL TABLE
00557  M00S00382.set     +++| FNTO     BSS    1           FILE NAME TABLE
00558  M00S00383.set     +++| EJTO     BSS    1           EXECUTING JOB TABLE
00559  M00S00384.set     +++| QFTO     BSS    1           QUEUE FILE TABLE
00560  M00S00385.set     +++| CLTO     BSS    1           COMMON LIBRARIES TABLE
00561  M00S00386.set     +++| LIDO     BSS    1           *LID* TABLE
Line S00144 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00562  M01S00144.274l797 +++| OSTO     BSS    1           OPTICAL DISK STATUS TABLE
00563  M01S00145.274l797 +++| ORTO     BSS    1           OPTICAL DISK REQUEST TABLE
Line S00001 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00564  M01S00001.283l840 +++| BSTO     BSS    1           BUFFER STATUS TABLES
00565  M00S00387.set     +++| BDTO     BSS    1           BUFFERED DEVICE CONTROL TABLES
00566  M00S00388.set     +++|
00567  M00S00389.set     +++| TSGTE    BSS    0           END OF TABLES GENERATED BY *SET*
Line S00001 Modification History
M01 (Added by) set77
Seq #  *Modification Id* Act 
----------------------------+
00568  M01S00001.set77   +++|          ERRNZ  BDTO+1-TSGTE  BUFFERED DEVICE TABLES MUST BE LAST
00569  M00S00390.set     +++|          TITLE  MAIN PROGRAM.
00570  M00S00391.set     +++| SET      SPACE  4
00571  M00S00392.set     +++|**        SET - MAIN PROGRAM.
00572  M00S00393.set     +++|
00573  M00S00394.set     +++|
00574  M00S00395.set     +++|          ORG    TBPF
00575  M00S00396.set     +++| SET      LDN    0           LOAD TEXT DECK
00576  M00S00397.set     +++|          RJM    RTD
00577  M00S00398.set     +++|          RJM    ATD         ASSEMBLE TEXT DECK
00578  M00S00399.set     +++|          RJM    3,LA        PROCESS ASSEMBLY VALUES
00579  M00S00400.set     +++| SET1     RJM    ROV         LOAD TEXT PROCESSOR
00580  M00S00401.set     +++|          AOD    DI          ADVANCE TEXT DECK INDEX
00581  M00S00402.set     +++|          LMN    TTXCL
00582  M00S00403.set     +++|          NJN    SET         IF NOT END OF TEXT DECKS TO ASSEMBLE
Line S00404 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00583  M01S00404.271l716 ---|
Line S00006 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00584  M01S00006.271l716 +++|          RJM    ROV         SKIP *RCT*
Line S00405 Modification History
M01 (Removed by) ns2767
Seq #  *Modification Id* Act 
----------------------------+
00585  M01S00405.ns2767  ---|          LDN    RSPF        TERMINATE BUFFER PP PROGRAM
Line S00002 Modification History
M01 (Added by) ns2767
Seq #  *Modification Id* Act 
----------------------------+
00586  M01S00002.ns2767  +++|          LDN    RSBF        TERMINATE BUFFER PP PROGRAM
00587  M00S00406.set     +++|          RJM    IBF
00588  M00S00407.set     +++| SET2     RJM    ROV         LOAD *SCP*
00589  M00S00408.set     +++|          RJM    SCP         SETUP CONTROL POINTS
00590  M00S00409.set     +++|          RJM    ROV         LOAD *PPR*
00591  M00S00410.set     +++|
00592  M00S00411.set     +++|*         PP RESIDENT (PPR) NOW LOADED.
00593  M00S00412.set     +++|
00594  M00S00413.set     +++|          LDC    PPFW-1      SET START ADDRESS
00595  M00S00414.set     +++|          STM    OVL
00596  M00S00415.set     +++|          LDD    DH          SET DEADSTART CHANNEL
00597  M00S00416.set     +++|          STM    OVL+T1
00598  M00S00417.set     +++|          LDD    RS          SET RECOVERY STATUS
00599  M00S00418.set     +++|          STM    OVL+T2
00600  M00S00419.set     +++|          LDD    DF          SET DEADSTART EQUIPMENT
00601  M00S00420.set     +++|          STM    OVL+DRSW
00602  M00S00421.set     +++|          LDC    0           SET DEADSTART OPTIONS
00603  M00S00422.set     +++| DSTO     EQU    *-1
00604  M00S00423.set     +++|          STM    OVL+CM
Line S00424 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00605  M01S00424.283l840 ---|          LDC    0           SET NUMBER OF SHARED DEVICES
00606  M01S00425.283l840 ---| SETD     EQU    *-1
00607  M01S00426.283l840 ---|          STM    OVL+T7
00608  M00S00427.set     +++|          LDC    0           SET FIRST TRACK OF RMS DEADSTART FILE
00609  M00S00428.set     +++| SETE     EQU    *-1
00610  M00S00429.set     +++|          STM    OVL+DRSW+1
00611  M00S00430.set     +++|          LDC    PPFW        OUTPUT *PPR* TO PP 2
00612  M00S00431.set     +++| CC1      OAM.   OVL,2
00613  M00S00432.set     +++|          RJM    ROV
00614  M00S00433.set     +++|          LDD    T3          OUTPUT *STL* TO PP2
00615  M00S00434.set     +++| CC2      OAM.   OVL,2
00616  M00S00435.set     +++| CC3      DCN.   2
00617  M00S00436.set     +++| CC4      ACN.   0           INPUT *MTR*
00618  M00S00437.set     +++|          LCN    0
00619  M00S00438.set     +++| CC5      IAM.   0,0
00620  M00S00439.set     +++| DSTO     SPACE  4,10
00621  M00S00440.set     +++|**        DSTO - DEADSTART OPTIONS.
00622  M00S00441.set     +++|*
00623  M00S00442.set     +++|*         DSTO = 8/0,2/RA,1/A,1/G
00624  M00S00443.set     +++|*                A = 0 IF AUTOLOADING ENABLED.
00625  M00S00444.set     +++|*                  = 1 IF AUTOLOADING DISABLED.
00626  M00S00445.set     +++|*                G = 0 IF NO GRENADE AFTER CONTROLLER AUTOLOAD.
00627  M00S00446.set     +++|*                    1 IF GRENADE AFTER CONTROLLER AUTOLOAD.
00628  M00S00447.set     +++|*                RA = 0, ALLOW RECOVERY.
00629  M00S00448.set     +++|*                RA = 1, CHECKPOINT ALL DEVICES, ABORT LEVEL 3.
00630  M00S00449.set     +++|*                RA = 2 OR 3, CHECKPOINT NON-BUFFERED DEVICES,
00631  M00S00450.set     +++|*                        ABORT LEVEL 3 RECOVERY.
00632  M00S00451.set     +++|
00633  M00S00452.set     +++|
00634  M00S00453.set     +++| DSTO     EQU    DSTO        DEADSTART OPTIONS
00635  M00S00454.set     +++| TTXC     SPACE  4,10
00636  M00S00455.set     +++|**        TTXC - TABLE OF TEXT DECK COUNTS.
00637  M00S00456.set     +++|*         ENTRY = 1 WORD.
00638  M00S00457.set     +++|*
00639  M00S00458.set     +++|*T,       12/  N
Figure

011 N

00640  M00S00459.set     +++|*         N      TEXT DECK NUMBER
00641  M00S00460.set     +++|
00642  M00S00461.set     +++|
00643  M00S00462.set     +++| TTXC     BSS    0
00644  M00S00463.set     +++|          LOC    0
00645  M00S00464.set     +++| CMRD     CON    0           CMRDECK NUMBER
00646  M00S00465.set     +++| EQPD     CON    0           EQPDECK NUMBER
00647  M00S00466.set     +++| APRD     CON    0           APRDECK NUMBER
00648  M00S00467.set     +++| IPRD     CON    0           IPRDECK NUMBER
00649  M00S00468.set     +++|
00650  M00S00469.set     +++| TTXCL    BSS    0           END OF PROCESSED TEXT DECKS
00651  M00S00470.set     +++| LIBD     CON    0           LIBDECK NUMBER
00652  M00S00471.set     +++|          LOC    *O
00653  M00S00472.set     +++| DATA     SPACE  4
00654  M00S00473.set     +++|**        CONFIGURATION DATA.
00655  M00S00474.set     +++|
00656  M00S00475.set     +++|
00657  M00S00476.set     +++| .CCHN    CON    0           CONCURRENT CHANNEL/PP COUNT
00658  M00S00477.set     +++| .CPPL    CON    0           LOGICAL CONCURRENT PP STATUS
00659  M00S00478.set     +++| .CPU     CON    0,0         CPU STATUS (PHYSICAL, LOGICAL)
00660  M00S00479.set     +++| .CHN     CON    20          CHANNEL COUNT
00661  M00S00480.set     +++| .PPN     CON    0           PP COUNT
00662  M00S00481.set     +++| .PPS     CON    0,0         PPU STATUS
00663  M00S00482.set     +++| .PPL     CON    0,0         LOGICAL PP STATUS
00664  M00S00483.set     +++| .PPU     CON    10D         PP CONFIGURATION
00665  M00S00484.set     +++| .CEL     CON    0           CRITICAL ERROR LOG STATUS
00666  M00S00485.set     +++| .DSD     CON    0           DEADSTART DEVICE DATA
00667  M00S00486.set     +++| .DCS     CON    0           DISPLAY CONSOLE STATUS
00668  M00S00487.set     +++| .APP     CON    0           NEW ALTERNATE PP NUMBER
00669  M00S00488.set     +++| .MDD     CON    0           *MDD* PP NUMBER
00670  M00S00489.set     +++| .NCP     CON    11D         NUMBER OF CONTROL POINTS + 1
Line S00007 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00671  M01S00007.271l716 +++| .NPCP    CON    0           NUMBER OF PSEUDO CONTROL POINTS
00672  M00S00490.set     +++|
Line S00491 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00673  M01S00491.283l840 ---| DSFL     CON    0,0         FL ADJUSTMENT FOR DSCB
00674  M01S00492.283l840 ---| SPPC     CON    2           SYSTEM CONTROL POINT PP COUNT
Line S00001 Modification History
M01 (Added by) ns2633
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00675  M02S00001.283l840 ---| VEFL     CON    0           4000B IF *VE=* SPECIFIED
Line S00493 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00676  M01S00493.283l840 ---| VEMZ     CON    0,0         NVE CM BLOCK SIZE/100B
Line S00002 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00677  M01S00002.283l840 +++| BSPT     CON    0           BUILD *SCI* PARAMETER TABLE FLAG
Line S00494 Modification History
M01 (Removed by) ns2633
Seq #  *Modification Id* Act 
----------------------------+
00678  M01S00494.ns2633  ---| CNVZ     CON    0,0         CURRENT NVE MEMORY SIZE/100B
00679  M00S00495.set     +++| CMCC     CON    /IOU/MRRD   MAINTENANCE CHANNEL READ FUCTION
Line S00001 Modification History
M01 (Added by) 271l739
M02 (Removed by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
00680  M02S00001.ns2709  ---| IUCC     CON    /IOU/MRRD   IOU CONNECT CODE
Line S00496 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00681  M01S00496.283l840 ---| P2CC     CON    0           CPU-1 CONNECT CODE
00682  M01S00497.283l840 ---| ISPF     CON    -1          SET POSITIVE IF CYBER 810/815/825/830
00683  M00S00498.set     +++| CMDL     CON    0           MODEL NUMBER
00684  M00S00499.set     +++| C8XX     CON    1           0 = CYBER 800 TYPE MAINFRAME
00685  M00S00500.set     +++| C9LM     CON    0           1 = CYBER 990 LARGE MEMORY
Line S00002 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
00686  M01S00002.271l750 +++| DCPC     CON    0           NONZERO IF DUAL 170-STATE CPUS WITH CACHE
Line S00001 Modification History
M01 (Added by) ns2779
Seq #  *Modification Id* Act 
----------------------------+
00687  M01S00001.ns2779  +++| DCPN     CON    0           NONZERO IF *DUALCPU=N* SPECIFIED
Line S00001 Modification History
M01 (Added by) ns2730
Seq #  *Modification Id* Act 
----------------------------+
00688  M01S00001.ns2730  +++| DCPS     CON    0           NONZERO IF DUAL-NOS-CPU SELECTED IN *CIP*
Line S00003 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00689  M01S00003.283l840 +++| DLYA     CON    SBNI+4      DELAY CONSTANT FOR *COMPAPP*
00690  M01S00004.283l840 +++| DSFL     CON    0,0         FL ADJUSTMENT FOR DSCB
00691  M01S00005.283l840 +++| EMAF     CON    0           EXTENDED ADDRESS MODE FLAG
00692  M01S00006.283l840 +++|
00693  M00S00501.set     +++| EMTY     BSSZ   5           EXTENDED MEMORY TYPE
00694  M00S00502.set     +++| EMFL     EQU    EMTY+1      EXTENDED MEMORY FIELD LENGTH / *EMBS*
00695  M00S00503.set     +++| EMSC     EQU    EMTY+2      EXTENDED MEMORY SHIFT COUNT
00696  M00S00504.set     +++| UEMZ     EQU    EMTY+3      UEM SIZE/100B (2 LOCATIONS)
Line S00505 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00697  M01S00505.283l840 ---| EMAF     CON    0           EXTENDED ADDRESS MODE FLAG
Line S00007 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00698  M01S00007.283l840 +++|
00699  M01S00008.283l840 +++| ISPF     CON    -1          SET POSITIVE IF CYBER 810/815/825/830
00700  M00S00506.set     +++| LDSH     CON    0           XM SHIFT COUNT FOR LINK DEVICE
Line S00009 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00701  M01S00009.283l840 +++| MDDP     CON    0           TWO PORT MUX PORT FOR *MDD*
00702  M01S00010.283l840 +++| MSBD     CON    0           MAXIMUM SHARED BUFFERED DEVICE COUNT
00703  M01S00011.283l840 +++| MSDC     CON    0           MAXIMUM SHARED DEVICE COUNT
00704  M01S00012.283l840 +++| NSBD     CON    0           NUMBER OF SHARED BUFFERED DEVICES
00705  M01S00013.283l840 +++| PRSF     CON    0           MMF *PRESET* FLAG
00706  M01S00014.283l840 +++| P2CC     CON    0           CPU-1 CONNECT CODE
00707  M01S00015.283l840 +++| SCIP     CON    0           TWO PORT MUX PORT FOR CDC 721 CONSOLE
00708  M01S00016.283l840 +++| SPPC     CON    2           SYSTEM CONTROL POINT PP COUNT
00709  M00S00507.set     +++| UESC     CON    0           USER EXTENDED MEMORY SHIFT COUNT
Line S00508 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00710  M01S00508.283l840 ---| DLYA     CON    SBNI+4      DELAY CONSTANT FOR *COMPAPP*
Line S00002 Modification History
M01 (Added by) ns2557
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00711  M02S00002.283l840 ---| BSPT     CON    0           BUILD *SCI* PARAMETER TABLE FLAG
00712  M02S00003.283l840 ---| MDDP     CON    0           TWO PORT MUX PORT FOR *MDD*
00713  M02S00004.283l840 ---| SCIP     CON    0           TWO PORT MUX PORT FOR CDC 721 CONSOLE
Line S00017 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
00714  M01S00017.283l840 +++| VEFL     CON    0           4000B IF *VE=* SPECIFIED
00715  M01S00018.283l840 +++| VEMZ     CON    0,0         NVE CM BLOCK SIZE/100B
00716  M00S00509.set     +++|          SPACE  4,10
00717  M00S00510.set     +++|**        *DFT* ALLOCATION DATA.
00718  M00S00511.set     +++|*
00719  M00S00512.set     +++|*T,       6/ N, 6/ M, 1/ D, 1/ T, 10/ SIZE
Figure

09101112171823 SIZE T D M N

00720  M00S00513.set     +++|*         N = NUMBER OF MAINTENANCE REGISTER BUFFERS.
00721  M00S00514.set     +++|*         M = SIZE OF EACH M/R BUFFER.
00722  M00S00515.set     +++|*         D = 1, IF *DFT* WILL BE DEDICATED.
00723  M00S00516.set     +++|*         T = 1, IF MODEL 990.
00724  M00S00517.set     +++|*         SIZE = TOTAL SIZE OF M/R BUFFERS (N*M).
00725  M00S00518.set     +++|
00726  M00S00519.set     +++|
00727  M00S00520.set     +++| DFTA     VFD    6/NUMR+1,6/0
00728  M00S00521.set     +++|          VFD    1/0,1/0,10/0
Line S00001 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
00729  M01S00001.261l700 +++|
00730  M01S00002.261l700 +++| DFSZ     CON    0           SIZE OF *DFT/OS* BUFFER
Line S00003 Modification History
M01 (Added by) 261l700
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00731  M02S00003.271l716 ---| DFTV     CON    0           *DFT* VERSION (ZERO = VERSION 3)
Line S00008 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00732  M01S00008.271l716 +++|
00733  M01S00009.271l716 +++|*         *DFT* DESCRIPTOR OBTAINED FROM *CTI*.
00734  M01S00010.271l716 +++|
00735  M01S00011.271l716 +++| DFTV     CON    0           DEFAULT = *DFT* LEVEL 3, OS INITIALIZATION
00736  M01S00012.271l716 +++|*         CON    N           *DFT* VERSION (0 = VERSION 3)
00737  M01S00013.271l716 +++|*                                          (1 = VERSION 4)
00738  M01S00014.271l716 +++|*                                          (2 = VERSION 5)
00739  M00S00522.set     +++|          TITLE  SUBROUTINES.
00740  M00S00523.set     +++| IBF      SPACE  4,10
00741  M00S00524.set     +++|**        IBF - INITIATE BUFFER PP FUNCTION.
00742  M00S00525.set     +++|*
00743  M00S00526.set     +++|*         ENTRY  (A) = FUNCTION CODE.
00744  M00S00527.set     +++|*                (T5) = PARAMETER FOR FUNCTION.
00745  M00S00528.set     +++|*
00746  M00S00529.set     +++|*         EXIT   (A) = RESPONSE FROM BUFFER PP WHERE APPLICABLE.
00747  M00S00530.set     +++|
00748  M00S00531.set     +++|
00749  M00S00532.set     +++| IBF      SUBR               ENTRY/EXIT
00750  M00S00533.set     +++|          LMN    DDDF
00751  M00S00534.set     +++|          STM    AKLA        SET REFRESH STATUS
00752  M00S00535.set     +++|          LMN    DDDF
00753  M00S00536.set     +++| IBFA     ACN    BC
00754  M00S00537.set     +++|*         UJN    IBFX        (RETURN ON LEVEL 3 RECOVERY)
00755  M00S00538.set     +++|          OAN    BC          OUTPUT REQUEST
00756  M00S00539.set     +++|          FJM    *,BC        WAIT FUNCTION ACCEPT
00757  M00S00540.set     +++|          LDD    T5          OUTPUT PARAMETER
00758  M00S00541.set     +++|          OAN    BC
00759  M00S00542.set     +++|          FJM    *,BC        WAIT PARAMETER ACCEPT
00760  M00S00543.set     +++| IBFB     IAN    BC          INPUT RESPONSE
00761  M00S00544.set     +++|          UJN    IBFX        RETURN
00762  M00S00545.set     +++| IDF      SPACE  4,10
00763  M00S00546.set     +++|**        IDF - ISSUE *DIO* REQUEST.
00764  M00S00547.set     +++|*
00765  M00S00548.set     +++|*         ENTRY  (A) = FUNCTION CODE.
00766  M00S00549.set     +++|
00767  M00S00550.set     +++|
00768  M00S00551.set     +++| IDF      SUBR               ENTRY/EXIT
00769  M00S00552.set     +++|          ACN    TC
00770  M00S00553.set     +++|          OAN    TC          OUTPUT REQUEST
00771  M00S00554.set     +++|          FJM    *,TC        WAIT FUNCTION ACCEPT
00772  M00S00555.set     +++|          UJN    IDFX        RETURN
00773  M00S00556.set     +++| RTB      SPACE  4,10
00774  M00S00557.set     +++|**        RTB - READ TAPE BLOCK.
00775  M00S00558.set     +++|
00776  M00S00559.set     +++|
00777  M00S00560.set     +++| RTB      SUBR               ENTRY/EXIT
00778  M00S00561.set     +++|          LDN    RTBF        INITIATE TAPE BLOCK READ
00779  M00S00562.set     +++|          ACN    TC
00780  M00S00563.set     +++|          OAN    TC
00781  M00S00564.set     +++|          AJM    *,TC        WAIT FUNCTION ACCEPT
00782  M00S00565.set     +++|          UJN    RTBX        RETURN
00783  M00S00566.set     +++| RTD      SPACE  4,10
00784  M00S00567.set     +++|**        RTD - READ TEXT DECKS.
00785  M00S00568.set     +++|*
00786  M00S00569.set     +++|*         ENTRY  (A) = 0 TO LOAD INSTRUCTION DECK AND TEXT DECK.
00787  M00S00570.set     +++|*                     .NE. 0 TO LOAD TEXT DECK ONLY.
00788  M00S00571.set     +++|*
00789  M00S00572.set     +++|*         EXIT   TO *DSE* IF CORRECT TEXT DECK NOT FOUND.
00790  M00S00573.set     +++|*
00791  M00S00574.set     +++|*         CALLS  IBF, IDF, RTB.
00792  M00S00575.set     +++|
00793  M00S00576.set     +++|
00794  M00S00577.set     +++| RTD      SUBR               ENTRY/EXIT
00795  M00S00578.set     +++|          NJN    RTD1        IF LOADING TEXT DECK ONLY
00796  M00S00579.set     +++|          RJM    RTB
00797  M00S00580.set     +++|          LDD    DI          TRANSMIT DECK TYPE TO BUFFER PP
00798  M00S00581.set     +++|          STD    T5
00799  M00S00582.set     +++|          LDN    IFBF        LOAD INSTRUCTION DECK
00800  M00S00583.set     +++|          RJM    IBF
00801  M00S00584.set     +++| RTD1     LDN    LTDF        INITIATE SEARCH FOR TEXT DECK
00802  M00S00585.set     +++|          RJM    IDF
00803  M00S00586.set     +++|          LDM    TTXC,DI     TRANSMIT DECK NUMBER
00804  M00S00587.set     +++|          OAN    TC
00805  M00S00588.set     +++|          AJM    *,TC        WAIT SEARCH COMPLETE
00806  M00S00589.set     +++|          LDN    ISBF        LOAD TEXT DECK
00807  M00S00590.set     +++|          RJM    IBF
00808  M00S00591.set     +++|          NJN    RTDX        IF TEXT DECK FOUND
00809  M00S00592.set     +++|
00810  M00S00593.set     +++| RTD2     LDD    DI          SET TEXT DECK NAME
00811  M00S00594.set     +++|          SHN    1
00812  M00S00595.set     +++|          STD    DI
00813  M00S00596.set     +++|          LDM    RTDB,DI
00814  M00S00597.set     +++|          STM    RTDC
00815  M00S00598.set     +++|          LDM    RTDB+1,DI
00816  M00S00599.set     +++|          STM    RTDC+1
00817  M00S00600.set     +++|          LDC    RTDC
00818  M00S00601.set     +++|          LJM    DSE
00819  M00S00602.set     +++|
00820  M00S00603.set     +++| RTDB     BSS    0
00821  M00S00604.set     +++|          DATA   4RCMRD
00822  M00S00605.set     +++|          DATA   4REQPD
00823  M00S00606.set     +++|          DATA   4RAPRD
00824  M00S00607.set     +++|          DATA   4RIPRD
00825  M00S00608.set     +++|
00826  M00S00609.set     +++| RTDC     DATA   C*CMRDECK NOT ON TAPE.*
00827  M00S00610.set     +++| ROV      SPACE  4,10
00828  M00S00611.set     +++|**        ROV - READ OVERLAY.
00829  M00S00612.set     +++|*
00830  M00S00613.set     +++|*         EXIT   (T3) = BYTE COUNT FOR DATA.
00831  M00S00614.set     +++|*                (LA) = LOAD ADDRESS.
00832  M00S00615.set     +++|*
00833  M00S00616.set     +++|*         USES   T4, T6, CM - CM+4.
00834  M00S00617.set     +++|*
00835  M00S00618.set     +++|*         CALLS  IDF, RTB.
00836  M00S00619.set     +++|
00837  M00S00620.set     +++|
00838  M00S00621.set     +++| ROV      SUBR               ENTRY/EXIT
00839  M00S00622.set     +++|          ORG    ROV
00840  M00S00623.set     +++|          CON    RCM         EXIT TO *RCM* ON CM RECOVERY
00841  M00S00624.set     +++|
00842  M00S00625.set     +++| ROV1     LDN    LNOF        INITIATE OVERLAY LOAD
00843  M00S00626.set     +++|          RJM    IDF
00844  M00S00627.set     +++|          ACN    TC
00845  M00S00628.set     +++|          IAN    TC          INPUT WORD COUNT
00846  M00S00629.set     +++|          SBN    20
00847  M00S00630.set     +++|          STD    T3          SET BYTE COUNT
00848  M00S00631.set     +++|          SHN    2
00849  M00S00632.set     +++|          RAD    T3
00850  M00S00633.set     +++|          LMC    MXRL        SET EOR STATUS
00851  M00S00634.set     +++|          STD    T4
00852  M00S00635.set     +++|          LDN    20
00853  M00S00636.set     +++|          STD    T6
00854  M00S00637.set     +++| ROV2     LDN    5           SKIP *PRFX* TABLE
00855  M00S00638.set     +++|          IAM    CM,TC
00856  M00S00639.set     +++|          SOD    T6
00857  M00S00640.set     +++|          NJN    ROV2        IF NOT *6PPM* TABLE
00858  M00S00641.set     +++|          LDN    5
00859  M00S00642.set     +++|          ADD    CM+2        SET LOAD ADDRESS
00860  M00S00643.set     +++|          STD    LA
00861  M00S00644.set     +++|          LDD    LA
00862  M00S00645.set     +++| ROVB     NJN    ROV3        IF NOT PP RESIDENT
00863  M00S00646.set     +++|          LDN    PSNI
00864  M00S00647.set     +++|          STM    ROVB
00865  M00S00648.set     +++|          LDC    OVL
00866  M00S00649.set     +++| ROV3     STM    ROVC        SET LOAD ADDRESS
00867  M00S00650.set     +++|          ADC    MXRL
00868  M00S00651.set     +++|          STM    ROVD
00869  M00S00652.set     +++|          LDD    T3
00870  M00S00653.set     +++|          IAM    OVL,TC      INPUT DATA BLOCK
00871  M00S00654.set     +++| ROVC     EQU    *-1
00872  M00S00655.set     +++|          LDD    T4
00873  M00S00656.set     +++|          NJN    ROV4        IF EOR
00874  M00S00657.set     +++|          RJM    RTB         READ REMAINDER OF RECORD
00875  M00S00658.set     +++|          ACN    TC
00876  M00S00659.set     +++|          IAN    TC          INPUT WORD COUNT
00877  M00S00660.set     +++|          STD    T4
00878  M00S00661.set     +++|          ZJN    ROV4        IF EMPTY BLOCK
00879  M00S00662.set     +++|          SHN    2
00880  M00S00663.set     +++|          RAD    T4
00881  M00S00664.set     +++|          RAD    T3          ADD TO TOTAL BYTE COUNT
00882  M00S00665.set     +++|          LDD    T4          INPUT REMAINDER OF RECORD
00883  M00S00666.set     +++|          IAM    OVL+MXRL,TC
00884  M00S00667.set     +++| ROVD     EQU    *-1
00885  M00S00668.set     +++| ROV4     LJM    ROVX        RETURN
00886  M00S00669.set     +++| CLS      SPACE  4,10
00887  M00S00670.set     +++|**        CLS - CLEAR STORAGE.
00888  M00S00671.set     +++|*
00889  M00S00672.set     +++|*         ENTRY  (A) = WORD COUNT.
00890  M00S00673.set     +++|*                (CA - CA+1) = CM ADDRESS.
00891  M00S00674.set     +++|*
00892  M00S00675.set     +++|*         EXIT   (A) .NE. 0.
00893  M00S00676.set     +++|*                (CA - CA+1) ADVANCED.
00894  M00S00677.set     +++|*
00895  M00S00678.set     +++|*         USES   T1, T2.
00896  M00S00679.set     +++|
00897  M00S00680.set     +++|
00898  M00S00681.set     +++| CLS      SUBR               ENTRY/EXIT
00899  M00S00682.set     +++|          SBN    1
00900  M00S00683.set     +++|          MJN    CLSX        IF NULL WORD COUNT
00901  M00S00684.set     +++|          STD    T2
00902  M00S00685.set     +++|          SHN    -14         SET WORD COUNT
00903  M00S00686.set     +++|          STD    T1
00904  M00S00687.set     +++| CLS1     LDD    CA          CLEAR WORD
00905  M00S00688.set     +++|          SHN    14
00906  M00S00689.set     +++|          ADD    CA+1
00907  M00S00690.set     +++|          CWD    ZR
00908  M00S00691.set     +++|          AOD    CA+1        ADVANCE CENTRAL ADDRESS
00909  M00S00692.set     +++|          SHN    -14
00910  M00S00693.set     +++|          RAD    CA
00911  M00S00694.set     +++|          SOD    T2          DECREMENT
00912  M00S00695.set     +++|          PJN    CLS1        IF NO BORROW FROM NEXT BYTE
00913  M00S00696.set     +++|          AOD    T2
00914  M00S00697.set     +++|          SOD    T1
00915  M00S00698.set     +++|          PJN    CLS1        IF NOT END OF CLEAR
00916  M00S00699.set     +++|          UJN    CLSX        RETURN
00917  M00S00700.set     +++| DSE      SPACE  4,10
00918  M00S00701.set     +++|**        DSE - DISPLAY ERROR.
00919  M00S00702.set     +++|*
00920  M00S00703.set     +++|*         ENTRY  (A) BITS 13 - 00 = MESSAGE ADDRESS.
00921  M00S00704.set     +++|*                    BITS 15 - 14 = CC545 CHARACTER SIZE FLAGS.
00922  M00S00705.set     +++|*
00923  M00S00706.set     +++|*         EXIT   NO EXIT.
00924  M00S00707.set     +++|*
00925  M00S00708.set     +++|*         USES   T1, T2.
00926  M00S00709.set     +++|*
00927  M00S00710.set     +++|*         MACROS CFNC, DFIM.
00928  M00S00711.set     +++|
00929  M00S00712.set     +++|
00930  M00S00713.set     +++| DSE      SBN    1           SET MESSAGE ADDRESS
00931  M00S00714.set     +++|          STD    T1
00932  M00S00715.set     +++|          SHN    -14
00933  M00S00716.set     +++|          LMC    SLMF        SELECT LEFT SCREEN
00934  M00S00717.set     +++|          CFNC
00935  M00S00718.set     +++| DSE1     LDD    T1          SET MESSAGE ADDRESS
00936  M00S00719.set     +++|          STD    T2
00937  M00S00720.set     +++|          LDN    2           OUTPUT COORDINATES
00938  M00S00721.set     +++|          OAM    DSEA,CH
00939  M00S00722.set     +++| DSE2     AOD    T2          DISPLAY MESSAGE
00940  M00S00723.set     +++|          LDI    T2
00941  M00S00724.set     +++|          OAN    CH
00942  M00S00725.set     +++|          NJN    DSE2
00943  M00S00726.set     +++|          CFNC   THVF        TRANSFER HIDDEN TO VISIBLE
00944  M00S00727.set     +++|          LDC    SBNI+1      DELAY
00945  M00S00728.set     +++|          NJN    *-1
00946  M00S00729.set     +++|          DFIM   (UJN *)
00947  M00S00730.set     +++|          UJN    DSE1        LOOP
00948  M00S00731.set     +++|
00949  M00S00732.set     +++|
00950  M00S00733.set     +++|          DFIM   (CON LN15)
00951  M00S00734.set     +++| DSEA     CON    LN25,CH01
00952  M00S00735.set     +++|          SPACE  4,10
00953  M00S00736.set     +++|**        DISPLAY SUBROUTINES.
00954  M00S00737.set     +++|
00955  M00S00738.set     +++|
00956  M00S00739.set     +++| FNC      DSUB
00957  M00S00740.set     +++| SME      SPACE  4,10
00958  M00S00741.set     +++|**        SME - SEARCH EST FOR MASS STORAGE EQUIPMENT.
00959  M00S00742.set     +++|*
00960  M00S00743.set     +++|*         ENTRY  (EQ) = PREVIOUS EST ORDINAL.
00961  M00S00744.set     +++|*                (LE) = NUMBER OF EST ENTRIES.
00962  M00S00745.set     +++|*
00963  M00S00746.set     +++|*         EXIT   (A) = BYTE 0 OF ENTRY WITH BIT 13 IN SIGN POSITION.
00964  M00S00747.set     +++|*                    = 0 IF END OF EST.
00965  M00S00748.set     +++|*                (EQ) = CURRENT EST ORDINAL.
00966  M00S00749.set     +++|*                (AB - AB+4) = EST ENTRY.
00967  M00S00750.set     +++|*
00968  M00S00751.set     +++|*         MACROS SFA.
00969  M00S00752.set     +++|
00970  M00S00753.set     +++|
00971  M00S00754.set     +++| SME      SUBR               ENTRY/EXIT
00972  M00S00755.set     +++| SME1     AOD    EQ
00973  M00S00756.set     +++|          LMD    LE
00974  M00S00757.set     +++|          ZJN    SMEX        IF END OF EST
00975  M00S00758.set     +++|          SFA    EST,EQ
00976  M00S00759.set     +++|          CRD    AB          READ EST ENTRY
00977  M00S00760.set     +++|          LDD    AB
00978  M00S00761.set     +++|          SHN    21-13
00979  M00S00762.set     +++|          PJN    SME1        IF NOT MASS STORAGE
00980  M00S00763.set     +++|          UJN    SMEX        RETURN
00981  M00S00764.set     +++|          SPACE  4,10
00982  M00S00765.set     +++|**        COMMON DECKS.
00983  M00S00766.set     +++|
00984  M00S00767.set     +++|
00985  M00S00768.set     +++|          QUAL   GFP
00986  M00S00769.set     +++|
00987  M00S00770.set     +++| EST$     EQU    0           DEFINE *COMPGFP* ACCESS TO EST
00988  M00S00771.set     +++|*CALL     COMPGFP
00989  M00S00772.set     +++|
00990  M00S00773.set     +++|          QUAL   *
00991  M00S00774.set     +++|
00992  M00S00775.set     +++|.EST      EQU    /GFP/.EST
00993  M00S00776.set     +++|          SPACE  4,10
00994  M00S00777.set     +++|****      SYSTEM STATUS AND CONTROL WORDS.
00995  M00S00778.set     +++|          SPACE  4,10
00996  M00S00779.set     +++| .SSML    BSS    0           MULTI-LEVEL SECURITY WORD
00997  M00S00780.set     +++|          VFD    3/0         RESERVED
00998  M00S00781.set     +++|          VFD    3/0         OUTPUT QUEUE SPECIAL HANDLING LEVEL
00999  M00S00782.set     +++|          VFD    3/0         RESERVED
01000  M00S00783.set     +++|          VFD    3/0         OPERATING SYSTEM SECURITY MODE
01001  M00S00784.set     +++|          VFD    16/0        RESERVED
01002  M00S00785.set     +++|          VFD    32/-0       SYSTEM ACCESS CATEGORIES
01003  M00S00786.set     +++|          SPACE  4,10
01004  M00S00787.set     +++| .INWL    BSS    0           INTERLOCK WORD
Line S00788 Modification History
M01 (Removed by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
01005  M01S00788.ns2557  ---|          VFD    7/0         RESERVED FOR MDD
01006  M01S00789.ns2557  ---|          VFD    1/0         MDD IN DEDICATED MODE
01007  M01S00790.ns2557  ---|          VFD    1/0         MDD CENTRAL MEMORY WRITE COMMAND
01008  M01S00791.ns2557  ---|          VFD    1/0         MDD MAINTENANCE REGISTER WRITE COMMAND
01009  M01S00792.ns2557  ---|          VFD    1/0         TWO-PORT MUX CHANNEL HUNG
01010  M01S00793.ns2557  ---|          VFD    1/0         MAINTENANCE CHANNEL HUNG
Line S00005 Modification History
M01 (Added by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
01011  M01S00005.ns2557  +++|          VFD    12/0        RESERVED FOR CDC
01012  M00S00794.set     +++|
01013  M00S00795.set     +++|          VFD    12/0        RESERVED FOR CDC
01014  M00S00796.set     +++|
01015  M00S00797.set     +++|          VFD    12/0        RESERVED FOR CDC
01016  M00S00798.set     +++|
01017  M00S00799.set     +++|          VFD    6/0         ACTIVE *MREC* COUNT
01018  M00S00800.set     +++|          VFD    2/0         RESERVED FOR CDC
01019  M00S00801.set     +++|          VFD    1/1         DEADSTART JOB FLAG (JOB NOT COMPLETE)
01020  M00S00802.set     +++|          VFD    1/0         JOB SCHEDULER (DISABLED)
01021  M00S00803.set     +++|          VFD    1/1         DISABLE JOB SCHEDULING
01022  M00S00804.set     +++|          VFD    1/0         RESERVED FOR CDC
01023  M00S00805.set     +++|
01024  M00S00806.set     +++|          VFD    6/0         RESERVED FOR CDC
01025  M00S00807.set     +++|          VFD    1/0         *MCH* ERROR IN PROGRESS FLAG
01026  M00S00808.set     +++|          VFD    1/0         CHECKPOINT IN PROGRESS FLAG
01027  M00S00809.set     +++|          VFD    1/0         WALL CLOCK CHIP RESET
01028  M00S00810.set     +++|          VFD    1/0         *CPD* DROP FLAG
01029  M00S00811.set     +++|          VFD    1/0         FATAL MAINFRAME ERROR
01030  M00S00812.set     +++|          VFD    1/0         SUBSYSTEM ABORT INTERLOCK
01031  M00S00813.set     +++|          SPACE  4,10
01032  M00S00814.set     +++| .PFNL    BSS    0           PERMANENT FILE CONTROL
01033  M00S00815.set     +++|          VFD    18//PFM/DFPT  DEFAULT REMOVABLE PACK TYPE
01034  M00S00816.set     +++|          VFD    18/0        RESERVED
01035  M00S00817.set     +++|          VFD    12/0        DEFAULT FAMILY EST ORDINAL
01036  M00S00818.set     +++|          VFD    12//PFM/CPTT  CPU TRANSFER THRESHOLD FOR INDIRECT FILE
01037  M00S00819.set     +++|****
01038  M00S00820.set     +++|          TITLE  ASSEMBLE TEXT DECK.
01039  M00S00821.set     +++| ATD      SPACE  4
01040  M00S00822.set     +++|**        ATD - ASSEMBLE TEXT DECK.
01041  M00S00823.set     +++|*
01042  M00S00824.set     +++|*         ENTRY  AT *ATD3* TO FORCE DISPLAY OF TEXT DECK FOLLOWING
01043  M00S00825.set     +++|*                A POST PROCESSING ERROR.
01044  M00S00826.set     +++|
01045  M00S00827.set     +++|
01046  M00S00828.set     +++| ATD6     LDD    DS
01047  M00S00829.set     +++|          ZJN    ATD3        IF DISPLAY REQUESTED
01048  M00S00830.set     +++|
01049  M00S00831.set     +++| ATD      SUBR               ENTRY/EXIT
01050  M00S00832.set     +++| ATD1     LDN    0           CLEAR KEYBOARD ASSEMBLY
01051  M00S00833.set     +++|          STD    AM
01052  M00S00834.set     +++| ATD2     RJM    ROL         READ 1 LINE
01053  M00S00835.set     +++|          LDD    KI
01054  M00S00836.set     +++|          ZJN    ATD6        IF END OF DATA
01055  M00S00837.set     +++|          RJM    AKL         ASSEMBLE KEYBOARD LINE
01056  M00S00838.set     +++|          LDD    KM          CHECK ERROR MESSAGE
01057  M00S00839.set     +++|          ZJN    ATD2        LOOP IF NO ERROR
01058  M00S00840.set     +++|          LDN    1           SET KEYBOARD ASSEMBLY
01059  M00S00841.set     +++|          STD    AM
01060  M00S00842.set     +++|          LDN    0           FORCE TEXT DECK DISPLAY
01061  M00S00843.set     +++|          STD    DS
01062  M00S00844.set     +++|          STD    DP
01063  M00S00845.set     +++|          RJM    AKL         ASSEMBLE KEYBOARD LINE
01064  M00S00846.set     +++|          LDN    RCLF
01065  M00S00847.set     +++|          UJN    ATD5        ADD CORRECTED LINE TO PP BUFFER
01066  M00S00848.set     +++|
01067  M00S00849.set     +++|*         ENTER HERE TO FORCE DISPLAY OF TEXT DECK FOLLOWING A
01068  M00S00850.set     +++|*         POST PROCESSING ERROR.
01069  M00S00851.set     +++|
01070  M00S00852.set     +++| ATD3     LDN    2           SET KEYBOARD ASSEMBLY
01071  M00S00853.set     +++|          STD    AM
01072  M00S00854.set     +++|          LDM    1,LA        ADD *GO.*
01073  M00S00855.set     +++|          STD    T1
01074  M00S00856.set     +++|          LDC    GGO
01075  M00S00857.set     +++|          STI    T1
01076  M00S00858.set     +++| ATD4     RJM    AKL         ASSEMBLE KEYBOARD LINE
01077  M00S00859.set     +++|          LDD    KI
01078  M00S00860.set     +++|          ZJN    ATD4        IF NO ENTRY LINE
01079  M00S00861.set     +++|          LDN    ANLF        ADD NEW LINE
01080  M00S00862.set     +++| ATD5     RJM    IBF
01081  M00S00863.set     +++|          LDN    KBUFL+1     TRANSMIT KEYBOARD BUFFER
01082  M00S00864.set     +++|          OAM    KBUF,BC
01083  M00S00865.set     +++|          RJM    CKB         CLEAR KEYBOARD BUFFER
01084  M00S00866.set     +++|          LDD    AM
01085  M00S00867.set     +++|          LMN    2
01086  M00S00868.set     +++|          ZJN    ATD4        ASSEMBLE NEXT KEYBOARD LINE
01087  M00S00869.set     +++|          LJM    ATD1        PROCESS REST OF TEXT DECK
01088  M00S00870.set     +++| ILL      SPACE  4
01089  M00S00871.set     +++|**        ILL - INCORRECT ENTRY RETURN.
01090  M00S00872.set     +++|
01091  M00S00873.set     +++|
01092  M00S00874.set     +++| ILL      LDC    AKLD        MESSAGE = *INCORRECT ENTRY.*
01093  M00S00875.set     +++| ILL1     STD    KM
01094  M00S00876.set     +++|*         UJN    ERR
01095  M00S00877.set     +++| ERR      SPACE  4,10
01096  M00S00878.set     +++|**        ERR - ERROR RETURN.
01097  M00S00879.set     +++|*
01098  M00S00880.set     +++|*         ENTRY  (KM) = ADDRESS OF ERROR MESSAGE.
01099  M00S00881.set     +++|
01100  M00S00882.set     +++|
01101  M00S00883.set     +++| ERR      LDD    AM
01102  M00S00884.set     +++|          NJN    AKL1        IF ERROR NOT IN TEXT DECK
01103  M00S00885.set     +++|*         UJN    AKLX
01104  M00S00886.set     +++| KBR      SPACE  4
01105  M00S00887.set     +++|**        KBR - NORMAL KEYBOARD RETURN.
01106  M00S00888.set     +++|
01107  M00S00889.set     +++|
01108  M00S00890.set     +++| KBR      BSS    0           NORMAL RETURN FROM OVERLAY
01109  M00S00891.set     +++|*         UJN    AKLX
01110  M00S00892.set     +++| AKL      SPACE  4
01111  M00S00893.set     +++|**        AKL - ASSEMBLE KEYBOARD LINE.
01112  M00S00894.set     +++|
01113  M00S00895.set     +++|
01114  M00S00896.set     +++| AKL      SUBR               ENTRY/EXIT
01115  M00S00897.set     +++|          LDD    AM          CHECK ASSEMBLY MODE
01116  M00S00898.set     +++|          ZJN    AKL5        IF NOT KEYBOARD
01117  M00S00899.set     +++|          DFIM   (CON LDCI)
01118  M00S00900.set     +++| AKL1     UJN    AKL2        DISPLAY BUFFER
01119  M00S00901.set     +++| AKLA     CON    1
01120  M00S00902.set     +++|          ZJN    AKL3        IF NOT TIME TO REFRESH
01121  M00S00903.set     +++| AKL2     LDN    DDDF        DISPLAY BUFFER
01122  M00S00904.set     +++|          STD    KB
01123  M00S00905.set     +++|          RJM    IBF
01124  M00S00906.set     +++|*         RJM    /RCM/DRB    (DISPLAY LEVEL 3 RECOVERY OPTIONS)
01125  M00S00907.set     +++| AKLB     EQU    *-1
01126  M00S00908.set     +++| AKL3     RJM    DKB         DISPLAY KEYBOARD BUFFER
01127  M00S00909.set     +++|          RJM    KBI         CHECK KEYBOARD INPUT
01128  M00S00910.set     +++|          UJN    AKL4        NORMAL RETURN - *CR* NOT ENTERED
01129  M00S00911.set     +++|          UJN    AKL5        PROCESS *CR*
01130  M00S00912.set     +++|
01131  M00S00913.set     +++| AKL4     LDD    KI
01132  M00S00914.set     +++|          NJN    AKL1        IF LINE NOT EMPTY
01133  M00S00915.set     +++| AKL5     LDD    KI
01134  M00S00916.set     +++|          ZJN    AKLX        RETURN IF NO ENTRY
01135  M00S00917.set     +++|          LDI    LA          SET SYNTAX TABLE ADDRESS
01136  M00S00918.set     +++|          STD    ST
01137  M00S00919.set     +++|          LDC    KBUF        SET KEYBOARD BUFFER ADDRESS
01138  M00S00920.set     +++|          STD    KB
01139  M00S00921.set     +++|          STD    T3
01140  M00S00922.set     +++|          STD    KA
01141  M00S00923.set     +++|          LDI    KB
01142  M00S00924.set     +++|          LMN    1R*
01143  M00S00925.set     +++|          ZJN    AKLX        IF COMMENT LINE
01144  M00S00926.set     +++| AKLC     UJN    *+2         SEARCH FOR MATCH
Line S00146 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01145  M01S00146.274l797 +++|*         RJM    /EQP/LOV    LOAD CORRECT *EQP* OVERLAY
01146  M00S00927.set     +++|          CON    /EQP/LOV
01147  M00S00928.set     +++| AKL6     LDD    KB          RESET CHARACTER ADDRESS
01148  M00S00929.set     +++|          STD    KA
01149  M00S00930.set     +++| AKL7     AOD    ST          ADVANCE TABLE ADDRESS
01150  M00S00931.set     +++|          LDI    ST
01151  M00S00932.set     +++|          NJN    AKL8        IF NOT END OF TABLE
01152  M00S00933.set     +++|          JMP    ILL         PROCESS INCORRECT ENTRY
01153  M00S00934.set     +++|
01154  M00S00935.set     +++| AKL8     STD    T2          SET TABLE ENTRY
01155  M00S00936.set     +++| AKL9     LDI    T2          COMPARE UPPER
01156  M00S00937.set     +++|          SHN    -6
01157  M00S00938.set     +++|          ZJN    AKL10       IF COMPARE COMPLETE
01158  M00S00939.set     +++|          LMI    KA
01159  M00S00940.set     +++|          NJN    AKL6        IF NO MATCH
01160  M00S00941.set     +++|          AOD    KA
01161  M00S00942.set     +++|          LDI    T2          COMPARE LOWER
01162  M00S00943.set     +++|          LPN    77
01163  M00S00944.set     +++|          ZJN    AKL10       IF COMPARE COMPLETE
01164  M00S00945.set     +++|          LMI    KA
01165  M00S00946.set     +++|          NJN    AKL6        IF NO MATCH
01166  M00S00947.set     +++|          AOD    KA
01167  M00S00948.set     +++|          AOD    T2
01168  M00S00949.set     +++|          UJN    AKL9        CONTINUE COMPARE
01169  M00S00950.set     +++|
01170  M00S00951.set     +++| AKL10    CRD    AB          CLEAR ASSEMBLY BUFFER
01171  M00S00952.set     +++|          STD    KM          CLEAR KEYBOARD MESSAGE
01172  M00S00953.set     +++|          LDD    KA          (A) = CHARACTER ADDRESS
01173  M00S00954.set     +++|          LJM    1,T2        EXIT TO PROCESSOR
01174  M00S00955.set     +++|
01175  M00S00956.set     +++| AKLD     DATA   C*INCORRECT ENTRY.*
01176  M00S00957.set     +++| CKB      SPACE  4,10
01177  M00S00958.set     +++|**        CKB - CLEAR KEYBOARD BUFFER.
01178  M00S00959.set     +++|*
01179  M00S00960.set     +++|*         ENTRY  (KM) = KEYBOARD MESSAGE ADDRESS.
01180  M00S00961.set     +++|*
01181  M00S00962.set     +++|*         EXIT   (KI) = 0.
01182  M00S00963.set     +++|*
01183  M00S00964.set     +++|*         USES   T1.
01184  M00S00965.set     +++|
01185  M00S00966.set     +++|
01186  M00S00967.set     +++| CKB      SUBR               ENTRY/EXIT
01187  M00S00968.set     +++|          LDD    KM
01188  M00S00969.set     +++|          NJN    CKBX        RETURN IF MESSAGE SET
01189  M00S00970.set     +++|          STD    KI          CLEAR KEYBOARD INDEX
01190  M00S00971.set     +++|          STD    T1
01191  M00S00972.set     +++| CKB1     LDN    0           CLEAR BUFFER
01192  M00S00973.set     +++|          STM    KBUF,T1
01193  M00S00974.set     +++|          AOD    T1
01194  M00S00975.set     +++|          LMN    KBUFL
01195  M00S00976.set     +++|          NJN    CKB1
01196  M00S00977.set     +++|          UJN    CKBX        RETURN
01197  M00S00978.set     +++| DKB      SPACE  4,10
01198  M00S00979.set     +++|**        DKB - DISPLAY KEYBOARD BUFFER.
01199  M00S00980.set     +++|*
01200  M00S00981.set     +++|*         ENTRY  (KM) = KEYBOARD MESSAGE ADDRESS.
01201  M00S00982.set     +++|*                (KB) = KEYBOARD BUFFER REFRESH STATUS.
01202  M00S00983.set     +++|*
01203  M00S00984.set     +++|*         USES   T1, T2, YC.
01204  M00S00985.set     +++|*
01205  M00S00986.set     +++|*         MACROS CFNC, DFIM.
01206  M00S00987.set     +++|
01207  M00S00988.set     +++|
01208  M00S00989.set     +++| DKBX     DCN.   CH
01209  M00S00990.set     +++|
01210  M00S00991.set     +++|          LJM    *           ENTRY/EXIT
01211  M00S00992.set     +++| DKB      EQU    *-1
01212  M00S00993.set     +++|          LDD    KB
01213  M00S00994.set     +++|          ZJN    DKBX        IF NO KEYBOARD BUFFER REFRESH
01214  M00S00995.set     +++|          DFIM   (CON LN50),*+1
01215  M00S00996.set     +++|          LDC    LN48
01216  M00S00997.set     +++|          STD    YC
01217  M00S00998.set     +++|          CFNC   SLPF        SELECT LEFT SCREEN - PRIORITY OUTPUT
01218  M00S00999.set     +++|          LDN    2
01219  M00S01000.set     +++|          OAM.   XC,CH       OUTPUT COORDINATES
01220  M00S01001.set     +++|          LDD    KM
01221  M00S01002.set     +++|          ZJN    DKB2        IF NO MESSAGE
01222  M00S01003.set     +++|          SBN    1           SET MESSAGE ADDRESS
01223  M00S01004.set     +++|          STD    T1
01224  M00S01005.set     +++| DKB1     AOD    T1          DISPLAY MESSAGE
01225  M00S01006.set     +++|          LDI    T1
01226  M00S01007.set     +++|          OAN    CH
01227  M00S01008.set     +++|          NJN    DKB1
01228  M00S01009.set     +++| DKB2     LCN    YINC        ADJUST Y-COORDINATE
01229  M00S01010.set     +++|          RAD    YC
01230  M00S01011.set     +++|          DFIM   (CFNC EELF) ERASE TO END OF LINE
01231  M00S01012.set     +++|          DFIM   (UJN DKB3)
01232  M00S01013.set     +++|          LDN    1
01233  M00S01014.set     +++|          STD    T2
01234  M00S01015.set     +++|          LDD    KI          CHECK KEYBOARD INDEX
01235  M00S01016.set     +++|          ZJN    DKBX        IF EMPTY LINE
01236  M00S01017.set     +++|          SBN    40
01237  M00S01018.set     +++|          PJN    DKB3        IF > 32 CHARACTERS
01238  M00S01019.set     +++|          DCN.   CH
01239  M00S01020.set     +++|          CFNC   SLMF        SELECT LEFT SCREEN - MEDIUM CHARACTERS
01240  M00S01021.set     +++|          LCN    4           DECREMENT Y
01241  M00S01022.set     +++|          RAD    YC
01242  M00S01023.set     +++|          LDN    2           ADVANCE COUNT
01243  M00S01024.set     +++|          RAD    T2
01244  M00S01025.set     +++| DKB3     LDN    2           OUTPUT COORDINATES
01245  M00S01026.set     +++|          OAM    XC,CH
01246  M00S01027.set     +++|          LCN    1           SET INDEX
01247  M00S01028.set     +++|          STD    T1
01248  M00S01029.set     +++| DKB4     LDN    2           ADVANCE INDEX
01249  M00S01030.set     +++|          RAD    T1
01250  M00S01031.set     +++|          LDM    KBUF,T1     DISPLAY 2 CHARACTERS
01251  M00S01032.set     +++|          ZJN    DKB5        IF END OF KEYBOARD LINE
01252  M00S01033.set     +++|          SHN    6
01253  M00S01034.set     +++|          ADM    KBUF+1,T1
01254  M00S01035.set     +++|          OAN    CH
01255  M00S01036.set     +++|          LPN    77
01256  M00S01037.set     +++|          NJN    DKB4        LOOP
01257  M00S01038.set     +++| DKB5     CFNC   EELF        ERASE TO END OF LINE
01258  M00S01039.set     +++|          LDD    KM
01259  M00S01040.set     +++|          ZJN    DKB7        IF NO KEYBOARD MESSAGE
01260  M00S01041.set     +++|          LDD    KA          SET CHARACTER COUNT
01261  M00S01042.set     +++|          ADC    -KBUF
01262  M00S01043.set     +++|          SHN    3
01263  M00S01044.set     +++|          STD    T1
01264  M00S01045.set     +++|          LDD    KI
01265  M00S01046.set     +++|          DFIM   (CFNC BIVF) BEGIN INVERSE VIDEO
01266  M00S01047.set     +++|          SBN    40
01267  M00S01048.set     +++|          PJN    DKB6        IF > 32 CHARACTERS
01268  M00S01049.set     +++|          LDD    T1
01269  M00S01050.set     +++|          RAD    T1
01270  M00S01051.set     +++| DKB6     LDC    LN51
01271  M00S01052.set     +++|          OAN.   CH
01272  M00S01053.set     +++|          LDC    CH01
01273  M00S01054.set     +++|          RAD    T1
01274  M00S01055.set     +++|          OAN    CH
01275  M00S01056.set     +++|          DFIM   (LDI KA)
01276  M00S01057.set     +++|          LDN    1RA         DISPLAY CURSOR
01277  M00S01058.set     +++|          SHN    6
01278  M00S01059.set     +++|          OAN    CH
01279  M00S01060.set     +++|          LDD    T1
01280  M00S01061.set     +++|          DFIM   (CFNC EIVF) END INVERSE VIDEO
01281  M00S01062.set     +++|          DFIM   (UJN DKB8)
01282  M00S01063.set     +++|          OAN    CH
01283  M00S01064.set     +++|          LDN    1RI
01284  M00S01065.set     +++|          SHN    6
01285  M00S01066.set     +++|          OAN    CH
01286  M00S01067.set     +++| DKB7     SOD    T2
01287  M00S01068.set     +++|          MJN    DKB8        IF DISPLAY CYCLE COMPLETE
01288  M00S01069.set     +++|          LJM    DKB3        LOOP
01289  M00S01070.set     +++|
01290  M00S01071.set     +++| DKB8     LJM    DKBX        RETURN
01291  M00S01072.set     +++| KBI      SPACE  4,20
01292  M00S01073.set     +++|***       KBI - KEYBOARD INPUT.
01293  M00S01074.set     +++|*         ALL ENTRIES ARE DISPLAYED AT THE BOTTOM OF THE LEFT SCREEN.
01294  M00S01075.set     +++|*         AS THEY ARE ENTERED.
01295  M00S01076.set     +++|*
01296  M00S01077.set     +++|*         *CR* MUST FOLLOW ALL ENTRIES BEFORE ACTION IS TAKEN.
01297  M00S01078.set     +++|*         *BKSP* DELETES THE PREVIOUS CHARACTER TYPED.
01298  M00S01079.set     +++|*         *LEFT BLANK* DELETES THE CURRENT LINE BEING ENTERED.
01299  M00S01080.set     +++|*         *RIGHT BLANK* TOGGLES THE DISPLAY.
01300  M00S01081.set     +++|*
01301  M00S01082.set     +++|*         ABOVE THE ENTRY DISPLAY, THE FOLLOWING MESSAGE MAY
01302  M00S01083.set     +++|*         APPEAR -
01303  M00S01084.set     +++|*         *INCORRECT ENTRY.* = ENTRY IS UNRECOGNIZABLE.
01304  M00S01085.set     +++|*
01305  M00S01086.set     +++|*         EXIT   ADVANCED IF *CR* ENTERED.
01306  M00S01087.set     +++|*                (A) = (KB) = -1 IF *LEFT BLANK* OR *BKSP* ENTERED.
01307  M00S01088.set     +++|*                (KB) = CHARACTER IF DATA ADDED TO KEYBOARD BUFFER.
01308  M00S01089.set     +++|*
01309  M00S01090.set     +++|*         USES   T1.
01310  M00S01091.set     +++|*
01311  M00S01092.set     +++|*         CALLS  CKB, IBF.
01312  M00S01093.set     +++|*
01313  M00S01094.set     +++|*         MACROS CFNC, DFIM.
01314  M00S01095.set     +++|
01315  M00S01096.set     +++|
01316  M00S01097.set     +++| KBI12    AOM    AKLA        FORCE DISPLAY REFRESH
01317  M00S01098.set     +++|
01318  M00S01099.set     +++| KBI      SUBR               ENTRY/EXIT
01319  M00S01100.set     +++|          LDN    0
01320  M00S01101.set     +++|          STD    KB
01321  M00S01102.set     +++|          CFNC   SKIF        SELECT KEYBOARD INPUT
01322  M00S01103.set     +++|          IAN    CH
01323  M00S01104.set     +++|          DCN    CH
01324  M00S01105.set     +++|          DFIM   (UJN KBI1)
01325  M00S01106.set     +++|          ZJN    KBI1        IF NO INPUT
01326  M00S01107.set     +++|          LMC    60          (PRESET CR)
01327  M00S01108.set     +++| KBIA     EQU    *-1
01328  M00S01109.set     +++|          ZJN    KBIX        IF SAME INPUT
01329  M00S01110.set     +++|          LMM    KBIA        STORE NEW INPUT
01330  M00S01111.set     +++| KBI1     STM    KBIA
01331  M00S01112.set     +++|          ZJN    KBIX        RETURN IF NO INPUT
01332  M00S01113.set     +++|          SBD    HN
01333  M00S01114.set     +++|          PJN    KBI12       IF SPECIAL CHARACTER
01334  M00S01115.set     +++|          ADD    HN
01335  M00S01116.set     +++|          STD    T1
01336  M00S01117.set     +++|          LDD    KI
01337  M00S01118.set     +++|          NJN    KBI3        IF NOT FIRST CHARACTER
01338  M00S01119.set     +++|          LDD    T1
01339  M00S01120.set     +++|          LMN    61
01340  M00S01121.set     +++|          ZJN    KBIX        RETURN IF *BKSP*
01341  M00S01122.set     +++|          LMN    1R+&61
01342  M00S01123.set     +++|          NJN    KBI3        IF NOT *+*
01343  M00S01124.set     +++|          LDN    ADBF        ADVANCE BUFFER
01344  M00S01125.set     +++| KBI2     RJM    IBF
01345  M00S01126.set     +++|          JMP    KBIX        RETURN
01346  M00S01127.set     +++|
01347  M00S01128.set     +++| KBI3     LDD    T1          CHECK CHARACTER
01348  M00S01129.set     +++|          LMN    53
01349  M00S01130.set     +++|          NJN    KBI5        IF NOT *LEFT BLANK*
01350  M00S01131.set     +++|          STD    KM          CLEAR KEYBOARD MESSAGE
01351  M00S01132.set     +++|          RJM    CKB         CLEAR KEYBOARD BUFFER
01352  M00S01133.set     +++| KBI4     SOD    KB
01353  M00S01134.set     +++|          JMP    KBIX        RETURN
01354  M00S01135.set     +++|
01355  M00S01136.set     +++| KBI5     LMN    55&53
01356  M00S01137.set     +++|          NJN    KBI6        IF NOT *RIGHT BLANK*
01357  M00S01138.set     +++|          LDN    ADDF        ADVANCE DISPLAY
01358  M00S01139.set     +++|          UJN    KBI2        ISSUE BUFFER PP FUNCTION
01359  M00S01140.set     +++|
01360  M00S01141.set     +++| KBI6     LMN    60&55
01361  M00S01142.set     +++|          NJN    KBI7        IF NOT *CR*
01362  M00S01143.set     +++|          AOM    KBI         ADVANCE EXIT
01363  M00S01144.set     +++|          JMP    KBIX        RETURN
01364  M00S01145.set     +++|
01365  M00S01146.set     +++| KBI7     LMN    61&60
01366  M00S01147.set     +++|          NJN    KBI8        IF NOT *BKSP*
01367  M00S01148.set     +++|          STD    KM          CLEAR KEYBOARD MESSAGE
01368  M00S01149.set     +++|          STM    KBUF-1,KI   CLEAR PREVIOUS ENTRY
01369  M00S01150.set     +++|          SOD    KI
01370  M00S01151.set     +++|          JMP    KBI4        RETURN
01371  M00S01152.set     +++|
01372  M00S01153.set     +++| KBI8     LMN    62&61
01373  M00S01154.set     +++|          NJN    KBI9        IF NOT *SPACE*
01374  M00S01155.set     +++|          LDN    1R          SUBSTITUTE * *
01375  M00S01156.set     +++|          STD    T1
01376  M00S01157.set     +++| KBI9     LDD    KI
01377  M00S01158.set     +++|          NJN    KBI10       IF NOT FIRST CHARACTER
01378  M00S01159.set     +++|          STD    KM
01379  M00S01160.set     +++| KBI10    LMN    KBUFL
01380  M00S01161.set     +++|          ZJN    KBI11       IF BUFFER FULL
01381  M00S01162.set     +++|          LDD    T1          STORE CHARACTER
01382  M00S01163.set     +++|          STM    KBUF,KI
01383  M00S01164.set     +++|          STD    KB
01384  M00S01165.set     +++|          AOD    KI
01385  M00S01166.set     +++| KBI11    JMP    KBIX        RETURN
01386  M00S01167.set     +++| ROL      SPACE  4,10
01387  M00S01168.set     +++|**        ROL - READ ONE LINE.
01388  M00S01169.set     +++|*
01389  M00S01170.set     +++|*         EXIT   (KI) = KEYBOARD INDEX.
01390  M00S01171.set     +++|*
01391  M00S01172.set     +++|*         CALLS  CKB, IBF.
01392  M00S01173.set     +++|
01393  M00S01174.set     +++|
01394  M00S01175.set     +++| ROL1     SHN    14          UNPACK DATA
01395  M00S01176.set     +++|          STM    KBUF,KI
01396  M00S01177.set     +++|          SHN    -14
01397  M00S01178.set     +++|          STM    KBUF+1,KI
01398  M00S01179.set     +++|          LDN    2           ADVANCE BUFFER INDEX
01399  M00S01180.set     +++|          RAD    KI
01400  M00S01181.set     +++|          IAN    BC
01401  M00S01182.set     +++| ROL2     NJN    ROL1        IF NOT END OF LINE OR DATA
01402  M00S01183.set     +++|          DCN    BC
01403  M00S01184.set     +++|
01404  M00S01185.set     +++| ROL      SUBR               ENTRY/EXIT
01405  M00S01186.set     +++|          RJM    CKB         CLEAR KEYBOARD BUFFER
01406  M00S01187.set     +++|          LDN    ONLF        SELECT NEXT LINE INPUT
01407  M00S01188.set     +++|          RJM    IBF
01408  M00S01189.set     +++|          UJN    ROL2        CHECK NEXT LINE PRESENT
01409  M00S01190.set     +++| KBUF     SPACE  4
01410  M00S01191.set     +++|**        KBUF - KEYBOARD BUFFER.
01411  M00S01192.set     +++|
01412  M00S01193.set     +++|
01413  M00S01194.set     +++| KBUF     BSS    60D
01414  M00S01195.set     +++| KBUFL    EQU    *-KBUF
01415  M00S01196.set     +++|          CON    0           INSURE END OF LINE
Line S01197 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01416  M01S01197.274l797 ---|          TITLE  PROCESSING SUBROUTINES.
01417  M01S01198.274l797 ---| AOD      SPACE  4
01418  M01S01199.274l797 ---|**        AOD - ASSEMBLE OCTAL DIGITS.
01419  M01S01200.274l797 ---|*
01420  M01S01201.274l797 ---|*         ENTRY  (KA) = ADDRESS OF CHARACTER STRING.
01421  M01S01202.274l797 ---|*
01422  M01S01203.274l797 ---|*         EXIT   (A) = LOWER ASSEMBLY.
01423  M01S01204.274l797 ---|*                (AB - AB+4) = ASSEMBLED VALUE.
01424  M01S01205.274l797 ---|*                ERROR IF SEPARATOR NOT *,* OR *.*.
01425  M01S01206.274l797 ---|*
01426  M01S01207.274l797 ---|*         CALLS  CDR.
01427  M01S01208.274l797 ---|
01428  M01S01209.274l797 ---|
01429  M01S01210.274l797 ---| AOD1     LDD    AB+4        RETURN WITH LOWER ASSEMBLY
01430  M01S01211.274l797 ---|
01431  M01S01212.274l797 ---| AOD      SUBR               ENTRY/EXIT
01432  M01S01213.274l797 ---|          RJM    CDR
01433  M01S01214.274l797 ---|          LMN    1R,         CHECK SEPARATOR
01434  M01S01215.274l797 ---|          ZJN    AOD1        IF *,*
01435  M01S01216.274l797 ---|          LMN    1R.&1R,
01436  M01S01217.274l797 ---|          ZJN    AOD1        IF *.*
01437  M01S01218.274l797 ---|          JMP    ILL         PROCESS INCORRECT ENTRY
01438  M01S01219.274l797 ---| ASD      SPACE  4,10
01439  M01S01220.274l797 ---|**        ASD - ASSEMBLE DIGITS.
01440  M01S01221.274l797 ---|*
01441  M01S01222.274l797 ---|*         ENTRY  (KA) = ADDRESS OF CHARACTER STRING.
01442  M01S01223.274l797 ---|*
01443  M01S01224.274l797 ---|*         EXIT   (AB - AB+4) = ASSEMBLED DIGITS.
01444  M01S01225.274l797 ---|*                ERROR EXIT IF NO *.*.
01445  M01S01226.274l797 ---|*
01446  M01S01227.274l797 ---|*         CALLS  CDR.
01447  M01S01228.274l797 ---|
01448  M01S01229.274l797 ---|
01449  M01S01230.274l797 ---| ASD1     LDD    AB+4        RETURN WITH LOWER ASSEMBLY
01450  M01S01231.274l797 ---|
01451  M01S01232.274l797 ---| ASD      SUBR               ENTRY/EXIT
01452  M01S01233.274l797 ---|          RJM    CDR
01453  M01S01234.274l797 ---|          LMN    1R.
01454  M01S01235.274l797 ---|          ZJN    ASD1        IF *.*
01455  M01S01236.274l797 ---|          JMP    ILL         PROCESS INCORRECT ENTRY
01456  M01S01237.274l797 ---| ASN      SPACE  4,10
01457  M01S01238.274l797 ---|**        ASN - ASSEMBLE NAME.
01458  M01S01239.274l797 ---|*
01459  M01S01240.274l797 ---|*         ENTRY  (A) = NUMBER OF CHARACTERS TO ASSEMBLE.
01460  M01S01241.274l797 ---|*                (KA) = ADDRESS OF CHARACTER STRING.
01461  M01S01242.274l797 ---|*
01462  M01S01243.274l797 ---|*         EXIT   (CM - CM+4) = ASSEMBLED NAME.
01463  M01S01244.274l797 ---|*                (A) = 0 IF ASSEMBLY TERMINATED ON *,* OR *.*.
01464  M01S01245.274l797 ---|*                (T0) = NUMBER OF CHARACTERS ASSEMBLED.
01465  M01S01246.274l797 ---|*
01466  M01S01247.274l797 ---|*         USES   T1, T2.
01467  M01S01248.274l797 ---|
01468  M01S01249.274l797 ---|
01469  M01S01250.274l797 ---| ASN2     AOD    T0          ADVANCE CHARACTER COUNT
01470  M01S01251.274l797 ---|          SBN    1
01471  M01S01252.274l797 ---|          SHN    21-0        FORM BUFFER ADDRESS
01472  M01S01253.274l797 ---|          ADN    CM
01473  M01S01254.274l797 ---|          STD    T1
01474  M01S01255.274l797 ---|          LMD    T1          CLEAR ADDRESS
01475  M01S01256.274l797 ---|          LMI    KA          INSERT CHARACTER
01476  M01S01257.274l797 ---|          MJN    ASN3        IF CHARACTER PACKED LOW
01477  M01S01258.274l797 ---|          SHN    6           POSITION CHARACTER HIGH
01478  M01S01259.274l797 ---| ASN3     RAI    T1          ASSEMBLE BYTE
01479  M01S01260.274l797 ---|          AOD    KA          ADVANCE CHARACTER BUFFER
01480  M01S01261.274l797 ---|          SOD    T2          DECREMENT CHARACTER COUNT
01481  M01S01262.274l797 ---|          NJN    ASN1        LOOP TO END OF ASSEMBLY
01482  M01S01263.274l797 ---|          LDD    T0
01483  M01S01264.274l797 ---|
01484  M01S01265.274l797 ---| ASN      SUBR               ENTRY/EXIT
01485  M01S01266.274l797 ---|          STD    T2          SET CHARACTER COUNT
01486  M01S01267.274l797 ---|          LDN    0           CLEAR ASSEMBLY BUFFER
01487  M01S01268.274l797 ---|          STD    T0
01488  M01S01269.274l797 ---|          CRD    CM
01489  M01S01270.274l797 ---|          AOD    KA          SKIP SEPARATOR
01490  M01S01271.274l797 ---| ASN1     LDI    KA          CHECK NEXT CHARACTER
01491  M01S01272.274l797 ---|          SBN    1R9+1
01492  M01S01273.274l797 ---|          MJN    ASN2        IF ALPHANUMERIC
01493  M01S01274.274l797 ---|          SBN    1R,-1R9-1
01494  M01S01275.274l797 ---|          ZJN    ASNX        IF *,*
01495  M01S01276.274l797 ---|          SBN    1R.-1R,
01496  M01S01277.274l797 ---|          ZJN    ASNX        IF *.*
01497  M01S01278.274l797 ---|          JMP    ILL         PROCESS INCORRECT ENTRY
01498  M01S01279.274l797 ---| CDR      SPACE  4,10
01499  M01S01280.274l797 ---|**        CDR - CONVERT DIGITS RIGHT ADJUSTED.
01500  M01S01281.274l797 ---|*
01501  M01S01282.274l797 ---|*         ENTRY  (KA) = ADDRESS OF CHARACTER STRING.
01502  M01S01283.274l797 ---|*
01503  M01S01284.274l797 ---|*         EXIT   (A) = SEPARATOR CHARACTER.
01504  M01S01285.274l797 ---|*                (AB - AB+4) = ASSEMBLY.
01505  M01S01286.274l797 ---|*
01506  M01S01287.274l797 ---|*         USES   T1, T2.
01507  M01S01288.274l797 ---|
01508  M01S01289.274l797 ---|
01509  M01S01290.274l797 ---| CDR4     SBN    1R -1R8
01510  M01S01291.274l797 ---|          ZJN    CDR3        IF SPACE
01511  M01S01292.274l797 ---| CDR5     LDI    KA          RETURN WITH CHARACTER
01512  M01S01293.274l797 ---|
01513  M01S01294.274l797 ---| CDR      SUBR               ENTRY/EXIT
01514  M01S01295.274l797 ---|          LDN    ZERL        CLEAR ASSEMBLY BUFFER
01515  M01S01296.274l797 ---|          CRD    AB
01516  M01S01297.274l797 ---| CDR1     LDI    KA          CHECK CHARACTER
01517  M01S01298.274l797 ---|          SBN    1R0
01518  M01S01299.274l797 ---|          MJN    CDR5        IF ALPHA
01519  M01S01300.274l797 ---|          SBN    1R8-1R0
01520  M01S01301.274l797 ---|          PJN    CDR4        IF NOT OCTAL DIGIT
01521  M01S01302.274l797 ---|          ADN    10          STORE DIGIT
01522  M01S01303.274l797 ---|          STD    T1
01523  M01S01304.274l797 ---|          LDN    AB+4        SET BYTE ADDRESS
01524  M01S01305.274l797 ---|          STD    T2
01525  M01S01306.274l797 ---| CDR2     LDI    T2          LOAD BYTE
01526  M01S01307.274l797 ---|          SHN    3
01527  M01S01308.274l797 ---|          LMD    T1          ADD NEW DIGIT
01528  M01S01309.274l797 ---|          STI    T2          STORE
01529  M01S01310.274l797 ---|          SHN    -14         SAVE OVERFLOW
01530  M01S01311.274l797 ---|          STD    T1
01531  M01S01312.274l797 ---|          SOD    T2          ADVANCE BYTE ADDRESS
01532  M01S01313.274l797 ---|          LMN    AB-1
01533  M01S01314.274l797 ---|          NJN    CDR2        LOOP
01534  M01S01315.274l797 ---| CDR3     AOD    KA          ADVANCE CHARACTER
01535  M01S01316.274l797 ---|          UJN    CDR1        LOOP
Line S00147 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01536  M01S00147.274l797 +++|          TITLE  PROCESSING ROUTINES.
01537  M00S01317.set     +++| GO       SPACE  4
01538  M00S01318.set     +++|***       GO.
01539  M00S01319.set     +++|*         CONTINUE WITH LOAD.
01540  M00S01320.set     +++|
01541  M00S01321.set     +++|
01542  M00S01322.set     +++| GGO      DATA   C*GO.*
01543  M00S01323.set     +++|          AOD    DP          DISABLE *IPRDECK* DISPLAY
01544  M00S01324.set     +++| GGO0     LDD    KM
01545  M00S01325.set     +++|          NJN    NXT1        IF ERROR MESSAGE
01546  M00S01326.set     +++|          LDN    1           SET NO DISPLAY
01547  M00S01327.set     +++|          STD    DS
01548  M00S01328.set     +++| GGO1     LJM    ATDX        EXIT FROM ASSEMBLY
01549  M00S01329.set     +++| IPR      SPACE  4,10
01550  M00S01330.set     +++|***       IPR.
01551  M00S01331.set     +++|*         CONTINUE LOAD WITH NO DISPLAY UNTIL *IPRDECK*.
01552  M00S01332.set     +++|
01553  M00S01333.set     +++|
01554  M00S01334.set     +++| IPR      DATA   C*IPR.*
01555  M00S01335.set     +++|          LDN    0           SET DISPLAY FOR *IPRDECK*
01556  M00S01336.set     +++|          STD    DP
01557  M00S01337.set     +++|          UJN    GGO0        CHECK ERROR MESSAGE
01558  M00S01338.set     +++| NEXT     SPACE  4
01559  M00S01339.set     +++|***       NEXT.
01560  M00S01340.set     +++|*         CONTINUE TO NEXT ASSEMBLY.
01561  M00S01341.set     +++|
01562  M00S01342.set     +++|
01563  M00S01343.set     +++| NEXT     DATA   C*NEXT.*
01564  M00S01344.set     +++|          LDD    KM
01565  M00S01345.set     +++|          ZJN    GGO1        IF NO ERROR MESSAGE
01566  M00S01346.set     +++| NXT1     JMP    KBR         RETURN
01567  M00S01347.set     +++|          SPACE  4
01568  M00S01348.set     +++|**        OVL - OVERLAY ORIGIN.
01569  M00S01349.set     +++|*         WORD 1 OF OVERLAY = ADDRESS OF SYNTAX TABLE.
01570  M00S01350.set     +++|*         WORD 2 OF OVERLAY = ADDRESS OF SYNTAX TABLE END.
01571  M00S01351.set     +++|*
01572  M00S01352.set     +++|*         WORD 4 = ENTRY TO PROCESSOR.
01573  M00S01353.set     +++|
01574  M00S01354.set     +++|
01575  M00S01355.set     +++| OVL      BSS    0
01576  M00S01356.set     +++|          TITLE  PRESET PROGRAM.
01577  M00S01357.set     +++| PRS      SPACE  4,10
01578  M00S01358.set     +++|**        PRS - PRESET PROGRAM.
01579  M00S01359.set     +++|*
01580  M00S01360.set     +++|*         ENTRY  (T4) = DEADSTART CHANNEL.
01581  M00S01361.set     +++|*                (T5) = INTERCOMMUNICATIONS CHANNEL.
01582  M00S01362.set     +++|
01583  M00S01363.set     +++|
01584  M00S01364.set     +++| PRS      BSS    0
01585  M00S01365.set     +++|          LDN    ZERL        ZERO OUT ZERO WORD
01586  M00S01366.set     +++|          CWD    ZR
01587  M00S01367.set     +++|          RJM    CDD         CHECK DISPLAY DRIVER
01588  M00S01368.set     +++|          LDN    40          EXIT *IBF* ON INACTIVE CHANNEL
01589  M00S01369.set     +++|          RAM    IBFB
01590  M00S01370.set     +++|          LDD    T5          BUFFER PP COMMUNICTAION CHANNEL
01591  M00S01371.set     +++|          SHN    14
01592  M00S01372.set     +++|          ADC    CTTC        MODIFY CHANNEL INSTRUCTIONS
01593  M00S01373.set     +++|          RJM    MCI
01594  M00S01374.set     +++|          LDM    APPC        ALTERNATE PP LOCATION/CHANNEL
01595  M00S01375.set     +++|          LPN    77
01596  M00S01376.set     +++|          SHN    14
01597  M00S01377.set     +++|          ADC    CTAC        MODIFY ALTERNATE PP CHANNEL INSTRUCTIONS
01598  M00S01378.set     +++|          RJM    MCI
01599  M00S01379.set     +++|          LDN    DPIS        REQUEST DEADSTART PANEL
01600  M00S01380.set     +++|          RJM    IAF
01601  M00S01381.set     +++|          LDM    DBUF+DPW13  WORD 13 OF DEADSTART PANEL
01602  M00S01382.set     +++|          STD    T1
01603  M00S01383.set     +++|          LPN    77
01604  M00S01384.set     +++|          STM    TTXC+CMRD
01605  M00S01385.set     +++|          STM    TTXC+EQPD   SET DEFAULT EQPDECK NUMBER
01606  M00S01386.set     +++|          LMD    T1
01607  M00S01387.set     +++|          SHN    6+3         EXTRACT RECOVERY MODE
01608  M00S01388.set     +++|          SCN    4
01609  M00S01389.set     +++|          STD    RM
01610  M00S01390.set     +++|          SHN    3           SET DISPLAY STATUS
01611  M00S01391.set     +++|          LPN    1
01612  M00S01392.set     +++|          LMN    1
01613  M00S01393.set     +++|          STD    DS
01614  M00S01394.set     +++|          STD    DP
01615  M00S01395.set     +++|          LDM    DBUF+DPW6   WORD 6 OF DEADSTART PANEL
01616  M00S01396.set     +++|          STD    DF
01617  M00S01397.set     +++|          LDN    CPTS        REQUEST COMMON POINTER AREA
01618  M00S01398.set     +++|          RJM    IAF
01619  M00S01399.set     +++|          LDM    DBUF+CIDP+3 GET CRITICAL ERROR LOG FLAG
01620  M00S01400.set     +++|          LPN    20
01621  M00S01401.set     +++|          STM    .CEL
01622  M00S01402.set     +++|          LDD    DF          DEADSTART FUNCTION
01623  M00S01403.set     +++|          LPC    700
01624  M00S01404.set     +++|          SBK    300
01625  M00S01405.set     +++|          MJN    PRS1        IF DEADSTART FROM TAPE
01626  M00S01406.set     +++|          LDD    DF
01627  M00S01407.set     +++|          LPN    77          SET DISK DEADSTART
01628  M00S01408.set     +++|          STD    DF
Line S01409 Modification History
M01 (Removed by) ns2485a
Seq #  *Modification Id* Act 
----------------------------+
01629  M01S01409.ns2485a ---|          LDM    DBUF+OSDP+4 FIRST TRACK OF DEADSTART FILE
Line S00001 Modification History
M01 (Added by) ns2485a
Seq #  *Modification Id* Act 
----------------------------+
01630  M01S00001.ns2485a +++|          LDM    DBUF+OSRP   FIRST TRACK OF DEADSTART FILE
01631  M00S01410.set     +++|          STM    SETE
01632  M00S01411.set     +++| PRS1     LDD    T4          SET DEADSTART CHANNEL
01633  M00S01412.set     +++|          STD    DH
01634  M00S01413.set     +++|          LDM    TRCO,RM     SET RECOVERY STATUS
01635  M00S01414.set     +++|          STD    RS
01636  M00S01415.set     +++|          LPN    SYMK
01637  M00S01416.set     +++|          LMN    SYCM
01638  M00S01417.set     +++|          ZJN    PRS2        IF CM RECOVERY
01639  M00S01418.set     +++|          LDC    CPAS-1
01640  M00S01419.set     +++|          RJM    CLS
01641  M00S01420.set     +++|          LDN    MSCL        PRESERVE DEFAULT ERROR THRESHOLDS
01642  M00S01421.set     +++|          CWD    AB
01643  M00S01422.set     +++| PRS2     LDN    EMDS        REQUEST EI/MICROCODE DESCRIPTOR
01644  M00S01423.set     +++|          RJM    IAF
01645  M00S01424.set     +++|          LDM    MBUF
01646  M00S01425.set     +++|          ZJN    PRS3        IF NO DESCRIPTOR RETURNED
01647  M00S01426.set     +++|          LDM    DBUF+EINM
01648  M00S01427.set     +++|          STM    DBUF+EIDT+3 MOVE EI SPECIFICATION
01649  M00S01428.set     +++|          SOM    C8XX
01650  M00S01429.set     +++|          STM    DBUF+EIDT+4
01651  M00S01430.set     +++|          LDM    DBUF+MNLF   CLEAR MICROCODE LOADED FLAG
01652  M00S01431.set     +++|          SCN    1
01653  M00S01432.set     +++|          STM    DBUF+MNLF
01654  M00S01433.set     +++|          LDC    MEBF        SAVE MICROCODE/EI INFORMATION
01655  M00S01434.set     +++|          CWM    DBUF+MCNM,TR
Line S01435 Modification History
M01 (Removed by) ns2499
Seq #  *Modification Id* Act 
----------------------------+
01656  M01S01435.ns2499  ---| PRS3     LDN    CMDS        REQUEST CM DESCRIPTOR
Line S00001 Modification History
M01 (Added by) ns2499
Seq #  *Modification Id* Act 
----------------------------+
01657  M01S00001.ns2499  +++| PRS3     LDN    0           SELECT FIRST PROCESSOR
01658  M01S00002.ns2499  +++|          STM    MBUF
01659  M01S00003.ns2499  +++|          LDN    CPDS        REQUEST CPU DESCRIPTOR
01660  M01S00004.ns2499  +++|          RJM    IAF
01661  M01S00005.ns2499  +++|          LDM    DBUF+CPOA
01662  M01S00006.ns2499  +++|          LPN    1           SET CYBER 990 LARGE MEMORY OPTION
01663  M01S00007.ns2499  +++|          STM    C9LM
01664  M01S00008.ns2499  +++|          LDN    CMDS        REQUEST CM DESCRIPTOR
01665  M00S01436.set     +++|          RJM    IAF
01666  M00S01437.set     +++|          LDM    DBUF+LCMS   SET CM SIZE
01667  M00S01438.set     +++|          STD    MZ
01668  M00S01439.set     +++|          STD    CM+2
01669  M00S01440.set     +++|          LDM    DBUF+LCMS+1
01670  M00S01441.set     +++|          STD    MZ+1
01671  M00S01442.set     +++|          STD    CM+3
01672  M00S01443.set     +++|          LDM    DBUF+MCTC   SAVE MEMORY CONNECT CODE
01673  M00S01444.set     +++|          RAM    CMCC
Line S00002 Modification History
M01 (Added by) 271l739
M02 (Removed by) ns2709
Seq #  *Modification Id* Act 
----------------------------+
01674  M02S00002.ns2709  ---|          LDN    IUDS        REQUEST IOU DESCRIPTOR
01675  M02S00003.ns2709  ---|          RJM    IAF
01676  M02S00004.ns2709  ---|          LDM    DBUF+MCTC   SAVE IOU CONNECT CODE
01677  M02S00005.ns2709  ---|          RAM    IUCC
Line S01445 Modification History
M01 (Removed by) ns2730
Seq #  *Modification Id* Act 
----------------------------+
01678  M01S01445.ns2730  ---|          LDN    MFDS        REQUEST MAINFRAME DESCRIPTOR
01679  M01S01446.ns2730  ---|          RJM    IAF
01680  M00S01447.set     +++|          RJM    SHO         SET HARDWARE OPTIONS
Line S01448 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
01681  M01S01448.271l750 ---|          ZJP    PRS5        IF CM RECOVERY / CYBER 180
Line S00003 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
01682  M01S00003.271l750 +++|          ZJP    PRS5        IF CM RECOVERY OR CYBER 180
01683  M00S01449.set     +++|          LDM    DBUF+OPTN   SET MAINFRAME OPTIONS
01684  M00S01450.set     +++|          LPC    5700
01685  M00S01451.set     +++|          LMD    TH          INVERT CYBER 176 FLAG
01686  M00S01452.set     +++|          STD    HO
01687  M00S01453.set     +++|          LPC    1000        DUPLICATE CYBER 176 FLAG
01688  M00S01454.set     +++|          SHN    1
01689  M00S01455.set     +++|          RAD    HO
01690  M00S01456.set     +++|          LDN    0           SELECT FIRST PROCESSOR
01691  M00S01457.set     +++|          STM    MBUF
01692  M00S01458.set     +++|          LDN    CPDS        REQUEST CPU DESCRIPTOR
01693  M00S01459.set     +++|          RJM    IAF
Line S01460 Modification History
M01 (Removed by) ns2499
Seq #  *Modification Id* Act 
----------------------------+
01694  M01S01460.ns2499  ---|          LDM    DBUF+CPOA
01695  M01S01461.ns2499  ---|          LPN    1           SET CYBER 990 LARGE MEMORY OPTION
01696  M01S01462.ns2499  ---|          STM    C9LM
01697  M00S01463.set     +++|          LDM    DBUF+CPOP
01698  M00S01464.set     +++|          LPN    37          EXTRACT PROCESSOR OPTIONS
01699  M00S01465.set     +++|          RAD    HO
01700  M00S01466.set     +++|          LPN    7           SET PROCESSOR AVAILABLE STATUS
01701  M00S01467.set     +++|          STM    .CPU
01702  M00S01468.set     +++|          LPN    4
01703  M00S01469.set     +++|          ZJN    PRS4        IF CEJ / MEJ ENABLED
01704  M00S01470.set     +++|          LDC    =C*CEJ/MEJ DISABLED.*
01705  M00S01471.set     +++|          JMP    DSE         DISPLAY ERROR AND HANG
01706  M00S01472.set     +++|
01707  M00S01473.set     +++| PRS4     LDD    HO
01708  M00S01474.set     +++|          LPC    4100
01709  M00S01475.set     +++|          NJN    PRS5        IF NOT CYBER 865 / 875
Line S01476 Modification History
M01 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01710  M01S01476.272l774 ---|          LDK    FCRD+M875
Line S00003 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
01711  M01S00003.272l774 +++|          LDK    /SCR/FCRD+/SCR/M875
01712  M00S01477.set     +++|          OAN    CHSC
01713  M00S01478.set     +++|          IAN    CHSC
01714  M00S01479.set     +++|          LPN    2           SET 865/875 STATUS
01715  M00S01480.set     +++|          SHN    2-1
01716  M00S01481.set     +++|          ADC    -400
01717  M00S01482.set     +++|          RAD    HO
01718  M00S01483.set     +++| PRS5     LDD    HO          CHECK CPU STATUS
01719  M00S01484.set     +++|          LPN    3
01720  M00S01485.set     +++|          LMN    3
Line S01486 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
01721  M01S01486.271l750 ---|          NJN    PRS6        IF 170 STATE CPU(S) ON
01722  M01S01487.271l750 ---|          LDC    =C*NO CPU AVAILABLE.*
Line S00004 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
01723  M01S00004.271l750 +++|          ZJN    PRS5.1      IF NO 170 STATE CPU(S) ON
01724  M01S00005.271l750 +++|          LPN    1
01725  M01S00006.271l750 +++|          NJN    PRS6        IF CPU0 ON
01726  M01S00007.271l750 +++|          LDM    DCPC
01727  M01S00008.271l750 +++|          ZJN    PRS6        IF NOT DUAL 170-STATE CPUS WITH CACHE
01728  M01S00009.271l750 +++| PRS5.1   LDC    =C*NO CPU AVAILABLE.*
01729  M00S01488.set     +++|          JMP    DSE         DISPLAY ERROR AND HANG
01730  M00S01489.set     +++|
01731  M00S01490.set     +++| PRS6     LDN    IUDS        REQUEST IOU DESCRIPTOR
01732  M00S01491.set     +++|          RJM    IAF
01733  M00S01492.set     +++|          LDM    DBUF+PPSD   SET PP SPEED
Line S01493 Modification History
M01 (Removed by) set61
Seq #  *Modification Id* Act 
----------------------------+
01734  M01S01493.set61   ---|          STM    CM+4
Line S00001 Modification History
M01 (Added by) set61
Seq #  *Modification Id* Act 
----------------------------+
01735  M01S00001.set61   +++|          STD    CM+4
01736  M00S01494.set     +++|          RAM    IBUF+/BPP/CDPA
Line S01495 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01737  M01S01495.271l716 ---|          LDN    CMCL
Line S00015 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01738  M01S00015.271l716 +++|          LDN    CSWL        SAVE *MABL* DATA
01739  M00S01496.set     +++|          CWD    CM
01740  M00S01497.set     +++|
01741  M00S01498.set     +++|*         SET PP STATUS.
01742  M00S01499.set     +++|
01743  M00S01500.set     +++|          LDM    DBUF+LPP0   SET LOGICAL PP STATUS
01744  M00S01501.set     +++|          STM    .PPL
01745  M00S01502.set     +++|          LDM    DBUF+LPP1
01746  M00S01503.set     +++|          STM    .PPL+1
01747  M00S01504.set     +++|          LDM    DBUF+LPC1   SET LOGICALLY ON CONCURRENT PP-S
01748  M00S01505.set     +++|          STM    .CPPL
01749  M00S01506.set     +++|          LDC    6000        SET PHYSICAL PP COUNT
01750  M00S01507.set     +++|          RAM    DBUF+PPP0
01751  M00S01508.set     +++|          RJM    CSB
01752  M00S01509.set     +++|          STM    .PPN
01753  M00S01510.set     +++|          LDC    6000        CHECK UPPER BANK
01754  M00S01511.set     +++|          RAM    DBUF+PPP1
01755  M00S01512.set     +++|          RJM    CSB
01756  M00S01513.set     +++|          ZJN    PRS7        IF .LE. 10 PP-S
Line S00001 Modification History
M01 (Added by) ns2711
Seq #  *Modification Id* Act 
----------------------------+
01757  M01S00001.ns2711  +++|          LDN    10D
01758  M00S01514.set     +++|          RAM    .PPN
01759  M00S01515.set     +++|          LDN    10D         ADJUST PP CONFIGURATION
01760  M00S01516.set     +++|          RAM    .PPU
01761  M00S01517.set     +++|
01762  M00S01518.set     +++|*         SET CHANNEL STATUS.
01763  M00S01519.set     +++|
01764  M00S01520.set     +++|          LDN    34          SET CHANNEL COUNT
01765  M00S01521.set     +++|          STM    .CHN
01766  M00S01522.set     +++| PRS7     LDM    C8XX
01767  M00S01523.set     +++|          NJN    PRS8        IF NOT CYBER 800 TYPE MAINFRAME
01768  M00S01524.set     +++|          LDM    DBUF+CHP1
01769  M00S01525.set     +++|          RJM    CSB
01770  M00S01526.set     +++|          ADN    20          ADJUST CHANNEL COUNT
01771  M00S01527.set     +++|          STM    .CHN
01772  M00S01528.set     +++|          LDC    6000        SET PHYSICAL CONCURRENT CHANNEL/PP COUNT
Line S01529 Modification History
M01 (Removed by) ns2711
Seq #  *Modification Id* Act 
----------------------------+
01773  M01S01529.ns2711  ---|          RAM    DBUF+PCH1
Line S00002 Modification History
M01 (Added by) ns2711
Seq #  *Modification Id* Act 
----------------------------+
01774  M01S00002.ns2711  +++|          RAM    DBUF+PPC1
01775  M00S01530.set     +++|          RJM    CSB
01776  M00S01531.set     +++|          STM    .CCHN
01777  M00S01532.set     +++|          ZJN    PRS8        IF NO CONCURRENT CHANNELS
01778  M00S01533.set     +++|          ADN    40
01779  M00S01534.set     +++|          UJN    PRS8.1      SET MAX CHANNELS FOR FIRMWARE DISPLAY
01780  M00S01535.set     +++|
01781  M00S01536.set     +++| PRS8     LDM    .CHN        SET COUNT FOR BUFFER PP
01782  M00S01537.set     +++| PRS8.1   RAM    IBUF+/BPP/GCLA
01783  M00S01538.set     +++|
01784  M00S01539.set     +++|*         SET *MDD* STATUS.
01785  M00S01540.set     +++|
01786  M00S01541.set     +++|          LDN    CIDS        REQUEST CONSOLE DESCRIPTOR
01787  M00S01542.set     +++|          RJM    IAF
01788  M00S01543.set     +++|          LDM    MBUF
01789  M00S01544.set     +++|          ZJN    PRS9        IF NO DESCRIPTOR RETURNED
01790  M00S01545.set     +++|          LDM    DBUF+SMPP
01791  M00S01546.set     +++|          SHN    -6          SET *MDD* PP NUMBER
01792  M00S01547.set     +++|          STM    .MDD
Line S00006 Modification History
M01 (Added by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
01793  M01S00006.ns2557  +++|          LDM    DBUF+MDDF   SAVE *MDD* LOADED FLAG AND PORT
01794  M01S00007.ns2557  +++|          STM    MDDP
01795  M00S01548.set     +++| PRS9     RJM    CLK         PROCESS CTI CLOCK
Line S00004 Modification History
M01 (Added by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
01796  M01S00004.261l700 +++|          RJM    DDV         DETERMINE *DFT* VERSION
01797  M00S01549.set     +++|          LDD    DH
01798  M00S01550.set     +++|          LMN    2
01799  M00S01551.set     +++|          NJN    PRS10       IF DEADSTART NOT FROM CHANNEL 2
01800  M00S01552.set     +++|          LDN    12-2        SET CHANNEL 12 FOR *STL* LOAD
01801  M00S01553.set     +++|          RAM    CC1
01802  M00S01554.set     +++|          STM    CC2
01803  M00S01555.set     +++|          LDN    12-2
01804  M00S01556.set     +++|          RAM    CC3
01805  M00S01557.set     +++| PRS10    LDD    DH
01806  M00S01558.set     +++|          NJN    PRS11       IF DEADSTART NOT ON CHANNEL 0
01807  M00S01559.set     +++|          LDN    12-0        SET *MTR* LOAD FROM CHANNEL 12
01808  M00S01560.set     +++|          RAM    CC4
01809  M00S01561.set     +++|          LDN    12-0
01810  M00S01562.set     +++|          RAM    CC5
01811  M00S01563.set     +++| PRS11    LDD    DH
01812  M00S01564.set     +++|          LMN    BC
01813  M00S01565.set     +++|          NJN    PRS12       IF DEADSTART NOT ON BUFFER PP CHANNEL
01814  M00S01566.set     +++|          LDC    12S12+CTBC
01815  M00S01567.set     +++|          RJM    MCI         MODIFY BUFFER PP CHANNEL INSTRUCTIONS
01816  M00S01568.set     +++|
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/set.txt ยท Last modified: (external edit)