User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:dsd.003

Deck DSD Part 003

169 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
03936  M01S00003.dsd67   +++|          STD    T7
03937  M01S03243.dsd     +++|
03938  M01S03244.dsd     +++|*         INITIALIZE *SCD* IF DEADSTART FROM CDC721.
03939  M01S03245.dsd     +++|
03940  M01S03246.dsd     +++|          LDK    SCDP        FETCH *SCD* POINTER WORD
03941  M01S03247.dsd     +++|          CRD    CM
03942  M01S03248.dsd     +++|          LDD    CM+2
03943  M01S00001.ns2557  +++|          SHN    14
03944  M01S03249.dsd     +++|          ADD    CM+3
Line S03250 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2557
Seq #  *Modification Id* Act 
----------------------------+
03945  M02S03250.ns2557  ---|          ZJN    PRS5        IF PARAMETER TABLE UNDEFINED
03946  M01S00002.ns2557  +++|          ZJP    PRS5        IF PARAMETER TABLE UNDEFINED
03947  M01S00003.ns2557  +++|          CRD    T2
03948  M01S00004.ns2557  +++|          LDD    T2+2
03949  M01S00005.ns2557  +++|          LPN    10
03950  M01S00006.ns2557  +++|          ZJN    PRS5        IF *SCD* NOT ACTIVE
03951  M01S03251.dsd     +++|          MDIN   /PRESET/SRMT
03952  M01S03252.dsd     +++|          CCF    *,CH        SIGNAL *SCD* TO LOOK AT DISPLAY CHANNEL
03953  M01S03253.dsd     +++|          CFNC   SSIF
03954  M01S03254.dsd     +++|          LDN    2           OUTPUT PARAMETER TABLE ADDRESS
03955  M01S03255.dsd     +++|          OAM    CM+2,CH
03956  M01S03256.dsd     +++|          FJM    *,CH        WAIT TRANSMISSION COMPLETE
03957  M01S03257.dsd     +++|          DCN    CH+40
03958  M01S03258.dsd     +++|
Line S03259 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
03959  M02S03259.ns2437  ---|*         INITIALIZE KEYBOARD BUFFER.
Line S00002 Modification History
M01 (Added by) ns2437
M02 (Updated by) dsd67
Seq #  *Modification Id* Act 
----------------------------+
03960  M02S00002.dsd67   ---|*         INITIALIZE KEYBOARD BUFFER.  ALSO, CLEAR TRAILING *. * IN
Line S00003 Modification History
M01 (Added by) ns2437
M02 (Updated by) dsd67
Seq #  *Modification Id* Act 
----------------------------+
03961  M02S00003.dsd67   ---|*         DISPLAY COMMON DECKS.  THIS CODE HAS BEEN DELIBERATELY
Line S00004 Modification History
M01 (Added by) ns2437
M02 (Updated by) dsd67
Seq #  *Modification Id* Act 
----------------------------+
03962  M02S00004.dsd67   ---|*         PLACED INSIDE THIS LOOP TO PRESERVE PRECIOUS SPACE IN *DSD*.
03963  M01S00004.dsd67   +++|*         INITIALIZE KEYBOARD BUFFER.
03964  M01S03260.dsd     +++|
Line S03261 Modification History
M01 (Added by) dsd
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
03965  M02S03261.251l664 ---| PRS5     LDN    0
Line S00068 Modification History
M01 (Added by) 251l664
M02 (Updated by) dsd67
Seq #  *Modification Id* Act 
----------------------------+
03966  M02S00068.dsd67   ---| PRS5     LDN    KBUFL+2
Line S00069 Modification History
M01 (Added by) 251l664
M02 (Updated by) dsd67
Seq #  *Modification Id* Act 
----------------------------+
03967  M02S00069.dsd67   ---|          STD    T7
Line S00070 Modification History
M01 (Added by) 251l664
M02 (Updated by) dsd67
Seq #  *Modification Id* Act 
----------------------------+
03968  M02S00070.dsd67   ---| PRS5.1   LDN    0
Line S03262 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd67
Seq #  *Modification Id* Act 
----------------------------+
03969  M02S03262.dsd67   ---|          STM    KBUF,T7
03970  M01S00005.dsd67   +++| PRS5     LDN    0
03971  M01S00006.dsd67   +++|          STM    KBUF-1,T7
03972  M01S00007.dsd67   +++|          STM    /PRESET/TIKB-1,T7
03973  M01S00008.dsd67   +++|          SOD    T7
03974  M01S00009.dsd67   +++|          NJN    PRS5        IF MORE TO CLEAR
03975  M01S00010.dsd67   +++|
03976  M01S00011.dsd67   +++|*         CLEAR TRAILING *. * IN DISPLAY COMMON DECKS.
03977  M01S00012.dsd67   +++|
03978  M01S00005.ns2437  +++|          STM    D2SA
03979  M01S00006.ns2437  +++|          STM    D2ZA
03980  M01S00007.ns2437  +++|          STM    D4SB
03981  M01S00008.ns2437  +++|          STM    D6SA
Line S03263 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd67
Seq #  *Modification Id* Act 
----------------------------+
03982  M02S03263.dsd67   ---|          STM    /PRESET/TIKB,T7
Line S03264 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd67
Seq #  *Modification Id* Act 
----------------------------+
03983  M02S03264.dsd67   ---|          SOD    T7
Line S03265 Modification History
M01 (Added by) dsd
M02 (Updated by) 251l664
M03 (Updated by) dsd67
Seq #  *Modification Id* Act 
----------------------------+
03984  M03S03265.dsd67   ---|          PJN    PRS5        IF NOT CLEARED
Line S00071 Modification History
M01 (Added by) 251l664
M02 (Updated by) dsd67
Seq #  *Modification Id* Act 
----------------------------+
03985  M02S00071.dsd67   ---|          PJN    PRS5.1      IF NOT CLEARED
03986  M01S00013.dsd67   +++|          STD    AB+4        CLEAR EQUIPMENT ASSIGNMENT
03987  M01S00014.dsd67   +++|          LDN    DSEQ
03988  M01S00015.dsd67   +++|          SFA    EST
03989  M01S00016.dsd67   +++|          ADN    EQAE        UPDATE EST ENTRY
03990  M01S00017.dsd67   +++|          CWD    AB
Line S03266 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
03991  M02S03266.ns2437  ---|
Line S03267 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
03992  M02S03267.ns2437  ---|*         CLEAR TRAILING *. * IN DISPLAY COMMON DECKS.
Line S03268 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
03993  M02S03268.ns2437  ---|
Line S03269 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
03994  M02S03269.ns2437  ---|          LDN    0           SET SKIP
Line S03270 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
03995  M02S03270.ns2437  ---|          STM    D2SA
Line S03271 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
03996  M02S03271.ns2437  ---|          STM    D2ZA
Line S03272 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
03997  M02S03272.ns2437  ---|          STM    D4SB
Line S03273 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
03998  M02S03273.ns2437  ---|          STM    D6SA
03999  M01S03274.dsd     +++|
04000  M01S03275.dsd     +++|*         ENTER INITIAL COMMAND.
04001  M01S03276.dsd     +++|
04002  M01S03277.dsd     +++|          LDD    IA          READ COMMAND WORD
Line S03278 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2382
Seq #  *Modification Id* Act 
----------------------------+
04003  M02S03278.ns2382  ---|          ADN    4
04004  M01S00001.ns2382  +++|          ADN    2
04005  M01S03279.dsd     +++|          CRD    CM
04006  M01S03280.dsd     +++|          STD    T7
04007  M01S03281.dsd     +++|          LDD    CM
04008  M01S03282.dsd     +++|          ZJN    PRS8        IF NO INITIAL COMMAND
04009  M01S03283.dsd     +++|          LDC    /PRESET/TIKB SET INITIAL COMMAND TABLE
04010  M01S03284.dsd     +++|          STM    /PRESET/DLSF
04011  M01S03285.dsd     +++|          STD    T6
04012  M01S03286.dsd     +++| PRS6     LDN    CM          SET BYTE ADDRESS
04013  M01S03287.dsd     +++|          STD    T1
04014  M01S03288.dsd     +++| PRS7     LDI    T1          UNPACK BYTE
04015  M01S03289.dsd     +++|          SHN    14
04016  M01S03290.dsd     +++|          STI    T6
04017  M01S03291.dsd     +++|          SHN    -14
04018  M01S03292.dsd     +++|          STM    1,T6
04019  M01S03293.dsd     +++|          LDN    2
04020  M01S03294.dsd     +++|          RAD    T6
04021  M01S03295.dsd     +++|          AOD    T1
04022  M01S03296.dsd     +++|          LMN    CM+5
04023  M01S03297.dsd     +++|          NJN    PRS7        IF NOT END OF WORD
04024  M01S03298.dsd     +++|          AOD    T7          ADVANCE WORD
04025  M01S03299.dsd     +++|          CRD    CM
04026  M01S03300.dsd     +++|          LPN    7
04027  M01S03301.dsd     +++|          NJN    PRS6        IF NOT END OF COMMANDS
Line S03302 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2382
Seq #  *Modification Id* Act 
----------------------------+
04028  M02S03302.ns2382  ---| PRS8     LDC    /PRESET/DTEB  COPY DATE SYNTAX
04029  M01S00002.ns2382  +++| PRS8     LDK    ZERL        CLEAR MESSAGE BUFFER + 1
04030  M01S00003.ns2382  +++|          CRD    CM
04031  M01S00004.ns2382  +++|          LDD    MA
04032  M01S00005.ns2382  +++|          ADN    1
04033  M01S00006.ns2382  +++|          CWD    CM
04034  M01S00007.ns2382  +++|          LDC    /PRESET/DTEB  COPY DATE SYNTAX
04035  M01S03303.dsd     +++|          RJM    /PRESET/CSY
04036  M01S03304.dsd     +++|          LDC    /KEYBOARD/KLB  DISABLE *RIGHT BLANK* KEY
04037  M01S03305.dsd     +++|          STM    /KEYBOARD/TSCEA
04038  M01S03306.dsd     +++|          LDC    /PRESET/KCR SET *CR* PROCESSOR
04039  M01S03307.dsd     +++|          STM    /KEYBOARD/TSCEB
04040  M01S03308.dsd     +++|          LJM    /DSD/DSD    ENTER PROGRAM
04041  M01S03309.dsd     +++|
04042  M01S03310.dsd     +++|
04043  M01S03311.dsd     +++|*         TIME DELAY VALUES FOR *FTN*.  INDEXED BY PP SPEED.
04044  M01S03312.dsd     +++|
04045  M01S03313.dsd     +++| PRSA     EQU    *
04046  M01S03314.dsd     +++|          LOC    0
Line S03315 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd88
Seq #  *Modification Id* Act 
----------------------------+
04047  M02S03315.dsd88   ---|          CON    LDNI+20     1X PP SPEED
Line S03316 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd88
Seq #  *Modification Id* Act 
----------------------------+
04048  M02S03316.dsd88   ---|          CON    LDNI+40     2X PP SPEED
Line S03317 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd88
Seq #  *Modification Id* Act 
----------------------------+
04049  M02S03317.dsd88   ---|          CON    LDNI+77     4X PP SPEED
04050  M01S00005.dsd88   +++|          CON    40          1X PP SPEED
04051  M01S00006.dsd88   +++|          CON    100         2X PP SPEED
04052  M01S00007.dsd88   +++|          CON    200         4X PP SPEED
04053  M01S03318.dsd     +++|          LOC    *O
04054  M01S03319.dsd     +++|
04055  M01S03320.dsd     +++|
04056  M01S03321.dsd     +++| PRSB     BSS    0
04057  M01S03322.dsd     +++|          LOC    0
04058  M01S03323.dsd     +++|          SBN    20          1X PP SPEED
04059  M01S03324.dsd     +++|          SBN    10          2X PP SPEED
04060  M01S03325.dsd     +++|          SBN    4           4X PP SPEED
04061  M01S03326.dsd     +++|          LOC    *O
04062  M01S00011.282l826 +++| CTE      SPACE  4,10
04063  M01S00012.282l826 +++|**        CTE - COUNT TAPE EQUIPMENT.
04064  M01S00013.282l826 +++|*
04065  M01S00014.282l826 +++|*         EXIT   (LUDT) = LENGTH OF MAGNET UDT.
04066  M01S00015.282l826 +++|*
04067  M01S00016.282l826 +++|*         USES   CM - CM+4, T1 - T5.
04068  M01S00017.282l826 +++|*
04069  M01S00018.282l826 +++|*         MACROS SFA.
04070  M01S00019.282l826 +++|
04071  M01S00020.282l826 +++|
04072  M01S00021.282l826 +++| CTE      SUBR               ENTRY/EXIT
04073  M01S00022.282l826 +++|          LDK    ESTP        GET NUMBER OF EST ENTRIES
04074  M01S00023.282l826 +++|          CRD    T1
04075  M01S00024.282l826 +++|          LDN    NOPE-1      INITIALIZE EST ORDINAL
04076  M01S00025.282l826 +++|          STD    T5
04077  M01S00026.282l826 +++| CTE1     AOD    T5          ADVANCE EST ORDINAL
04078  M01S00027.282l826 +++|          LMD    T3
04079  M01S00028.282l826 +++|          ZJN    CTEX        IF ALL ENTRIES CHECKED
04080  M01S00029.282l826 +++|          SFA    EST,T5
04081  M01S00030.282l826 +++|          ADK    EQDE
04082  M01S00031.282l826 +++|          CRD    CM
04083  M01S00032.282l826 +++|          LDD    CM+3
04084  M01S00033.282l826 +++|          LMC    2RMT
04085  M01S00034.282l826 +++|          ZJN    CTE2        IF TAPE EQUIPMENT
04086  M01S00035.282l826 +++|          LMC    2RNT&2RMT
04087  M01S00036.282l826 +++|          ZJN    CTE2        IF TAPE EQUIPMENT
04088  M01S00037.282l826 +++|          LMC    2RCT&2RNT
04089  M01S00038.282l826 +++|          ZJN    CTE2        IF TAPE EQUIPMENT
04090  M01S00039.282l826 +++|          LMC    2RAT&2RCT
04091  M01S00040.282l826 +++|          NJN    CTE1        IF NOT TAPE EQUIPMENT
04092  M01S00041.282l826 +++| CTE2     LDK    /MTX/UNITL  COUNT TAPE EQUIPMENT
04093  M01S00042.282l826 +++|          RAM    LUDT
04094  M01S00043.282l826 +++|          UJN    CTE1        CHECK NEXT EQUIPMENT
04095  M01S03327.dsd     +++|          SPACE  4,10
04096  M01S03328.dsd     +++|          QUAL   *
04097  M01S03329.dsd     +++|
04098  M01S03330.dsd     +++|
04099  M01S03331.dsd     +++|*         KEYBOARD BUFFER.
04100  M01S03332.dsd     +++|
04101  M01S03333.dsd     +++|
04102  M01S03334.dsd     +++| KBUF     EQU    /DSD/PRS
04103  M01S03335.dsd     +++| KBUFL    EQU    /1DS/KBCML*5
Line S03336 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04104  M02S03336.ns2418  ---|
Line S03337 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04105  M02S03337.ns2418  ---|
Line S03338 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04106  M02S03338.ns2418  ---|*         WALL CLOCK CHIP BUFFER.
Line S03339 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04107  M02S03339.ns2418  ---|
Line S03340 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04108  M02S03340.ns2418  ---|
Line S03341 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04109  M02S03341.ns2418  ---| WBUF     EQU    KBUF+KBUFL+5
Line S03342 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04110  M02S03342.ns2418  ---|          ERRNG  /DSD/PRSA-WBUF-10
04111  M01S00005.ns2418  +++|          ERRNG  /DSD/PRSA-KBUF-KBUFL-5  *DSD* PRESET OVERFLOWS
04112  M01S03343.dsd     +++| QUAL     SPACE  4,10
04113  M01S00011.274l797 +++|          QUAL   GFP
04114  M01S00012.274l797 +++| IFP      HERE
04115  M01S03344.dsd     +++|          QUAL
Line S03345 Modification History
M01 (Added by) dsd
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04116  M02S03345.274l797 ---| IFP      HERE
04117  M01S03346.dsd     +++|
04118  M01S03347.dsd     +++|          QUAL   PRESET
04119  M01S03348.dsd     +++|          TITLE  INITIALIZATION DISPLAYS.
04120  M01S03349.dsd     +++| DTM      SPACE  4,20
04121  M01S03350.dsd     +++|***       ENTER DATE AND TIME.
04122  M01S03351.dsd     +++|*
04123  M01S03352.dsd     +++|*                IF THE DATE AND/OR TIME ENTRIES ARE NOT TO BE MADE,
04124  M01S03353.dsd     +++|*         A *CR* MAY BE TYPED AND THE CURRENT SYSTEM DATE AND TIME WILL
04125  M01S03354.dsd     +++|*         BE USED.
04126  M01S03355.dsd     +++|*
04127  M01S03356.dsd     +++|*         THE DATE MUST BE OF THE FORM *YY/MM/DD.*.  THE FOLLOWING
04128  M01S03357.dsd     +++|*         CONDITIONS APPLY -
04129  M01S03358.dsd     +++|*                00 ;YY ;99.
04130  M01S03359.dsd     +++|*                1 ;MM ;12.
04131  M01S03360.dsd     +++|*                1 ;DD ;N, WHERE N = NUMBER OF DAYS FOR MONTH MM
04132  M01S03361.dsd     +++|*
04133  M01S03362.dsd     +++|*         THE TIME MUST BE OF THE FORM *HH.MM.SS.*  THE FOLLOWING
04134  M01S03363.dsd     +++|*         CONDITIONS APPLY -
04135  M01S03364.dsd     +++|*                0 ;HH ;23
04136  M01S03365.dsd     +++|*                0 ;MM ;59
04137  M01S03366.dsd     +++|*                0 ;SS ;59
04138  M01S03367.dsd     +++|
04139  M01S03368.dsd     +++|
04140  M01S03369.dsd     +++| DTM      LDN    TIML
04141  M01S03370.dsd     +++|          CRD    TM
04142  M01S03371.dsd     +++| DTM0     LDN    DTEL
04143  M01S03372.dsd     +++|          CRD    DT
04144  M01S03373.dsd     +++| DTM1     LDN    28D
04145  M01S03374.dsd     +++|          STM    TDLM+2
04146  M01S03375.dsd     +++|          LDN    ZERL        CLEAR ASSEMBLY BUFFERS
04147  M01S03376.dsd     +++|          CRD    AB
04148  M01S03377.dsd     +++|          LDN    0           CLEAR DAY LIMIT FOR MONTH
04149  M01S03378.dsd     +++|          STD    T3
04150  M01S03379.dsd     +++|          LDD    DT          CONVERT YEAR
04151  M01S03380.dsd     +++|          LPN    77
04152  M01S03381.dsd     +++|          SHN    14
04153  M01S03382.dsd     +++|          LMD    DT+1
04154  M01S03383.dsd     +++|          SHN    -6
04155  M01S03384.dsd     +++|          RJM    CDD
04156  M01S03385.dsd     +++|          STD    T1
04157  M01S03386.dsd     +++|          LPN    3
04158  M01S03387.dsd     +++|          NJN    DTM2        IF NOT LEAP YEAR
04159  M01S03388.dsd     +++|          AOM    TDLM+2      ADVANCE FEBRUARY
04160  M01S03389.dsd     +++| DTM2     LDD    T1          ENTER YEAR
04161  M01S03390.dsd     +++|          ADC    -70D
04162  M01S03391.dsd     +++|          PJN    DTM3        IF YEAR 70-99
04163  M01S03392.dsd     +++|          ADC    100D
04164  M01S03393.dsd     +++| DTM3     SHN    6
04165  M01S03394.dsd     +++|          STD    AB+2
04166  M01S03395.dsd     +++|          LDD    DT+2        CONVERT MONTH
04167  M01S03396.dsd     +++|          RJM    CDD
04168  M01S03397.dsd     +++|          STD    T2
04169  M01S03398.dsd     +++|          RAD    AB+2        ENTER MONTH
04170  M01S03399.dsd     +++|          LDD    DT+3        CONVERT DAY
04171  M01S03400.dsd     +++|          LPN    77
04172  M01S03401.dsd     +++|          SHN    14
04173  M01S03402.dsd     +++|          LMD    DT+4
04174  M01S03403.dsd     +++|          SHN    -6
04175  M01S03404.dsd     +++|          RJM    CDD
04176  M01S03405.dsd     +++|          SHN    6
04177  M01S03406.dsd     +++|          STD    AB+3
04178  M01S03407.dsd     +++|          LDD    TM          CONVERT HOURS
04179  M01S03408.dsd     +++|          LPN    77
04180  M01S03409.dsd     +++|          SHN    14
04181  M01S03410.dsd     +++|          LMD    TM+1
04182  M01S03411.dsd     +++|          SHN    -6
04183  M01S03412.dsd     +++|          RJM    CDD
04184  M01S03413.dsd     +++|          RAD    AB+3        ENTER HOURS
04185  M01S03414.dsd     +++|          LDD    TM+2        CONVERT MINUTES
04186  M01S03415.dsd     +++|          RJM    CDD
04187  M01S03416.dsd     +++|          SHN    6           ENTER MINUTES
04188  M01S03417.dsd     +++|          STD    AB+4
04189  M01S03418.dsd     +++|          LDD    TM+3        CONVERT SECONDS
04190  M01S03419.dsd     +++|          LPN    77
04191  M01S03420.dsd     +++|          SHN    14
04192  M01S03421.dsd     +++|          LMD    TM+4
04193  M01S03422.dsd     +++|          SHN    -6
04194  M01S03423.dsd     +++|          RJM    CDD
04195  M01S03424.dsd     +++|          RAD    AB+4
04196  M01S03425.dsd     +++|          LDM    TDLM,T2     SET DAY LIMIT
04197  M01S03426.dsd     +++|          ADN    1
04198  M01S03427.dsd     +++|          STD    T3
04199  M01S03428.dsd     +++|
04200  M01S03429.dsd     +++|*         ENTER JULIAN DATE.
04201  M01S03430.dsd     +++|
04202  M01S03431.dsd     +++|          LDD    DT          SET JULIAN YEAR
04203  M01S03432.dsd     +++|          LPN    77
04204  M01S03433.dsd     +++|          STM    JDAT+2
04205  M01S03434.dsd     +++|          LDD    DT+1
04206  M01S03435.dsd     +++|          SCN    77
04207  M01S03436.dsd     +++|          ADN    1R0
04208  M01S03437.dsd     +++|          STM    JDAT+3
04209  M01S03438.dsd     +++|          LDC    2R00
04210  M01S03439.dsd     +++|          STM    JDAT+4
04211  M01S03440.dsd     +++|          LDD    AB+3        SET CURRENT DAY
04212  M01S03441.dsd     +++|          SHN    -6
04213  M01S03442.dsd     +++|          STD    T2
04214  M01S03443.dsd     +++|          LDD    AB+2        CALCULATE JULIAN DAY
04215  M01S03444.dsd     +++|          LPN    77
04216  M01S03445.dsd     +++|          STD    T1
04217  M01S03446.dsd     +++|          UJN    DTM5        CALCULATE MONTH
04218  M01S03447.dsd     +++|
04219  M01S03448.dsd     +++| DTM4     LDM    TDLM,T1     ACCUMALATE DAYS
04220  M01S03449.dsd     +++|          RAD    T2
04221  M01S03450.dsd     +++| DTM5     SOD    T1
04222  M01S03451.dsd     +++|          NJN    DTM4        IF MORE MONTHS TO PROCESS
04223  M01S03452.dsd     +++| DTM6     LDC    -100D       COUNT 100-S OF DAYS
04224  M01S03453.dsd     +++|          RAD    T2
04225  M01S03454.dsd     +++|          MJN    DTM7        IF COUNT COMPLETE
04226  M01S03455.dsd     +++|          AOM    JDAT+3
04227  M01S03456.dsd     +++|          UJN    DTM6        COUNT NEXT 100 DAYS
04228  M01S03457.dsd     +++|
04229  M01S03458.dsd     +++| DTM7     ADC    100D
04230  M01S03459.dsd     +++|          STD    T2
04231  M01S03460.dsd     +++| DTM8     LCN    10D         COUNT 10-S OF DAYS
04232  M01S03461.dsd     +++|          RAD    T2
04233  M01S03462.dsd     +++|          MJN    DTM9        IF COUNT COMPLETE
04234  M01S03463.dsd     +++|          LDD    HN
04235  M01S03464.dsd     +++|          RAM    JDAT+4
04236  M01S03465.dsd     +++|          UJN    DTM8        COUNT NEXT 10 DAYS
04237  M01S03466.dsd     +++|
04238  M01S03467.dsd     +++| DTM9     ADN    10D
04239  M01S03468.dsd     +++|          RAM    JDAT+4
04240  M01S03469.dsd     +++|          LDN    ZERL
04241  M01S03470.dsd     +++|          CRD    CM
04242  M01S03471.dsd     +++|          LDD    MA
04243  M01S03472.dsd     +++|          ADN    1
04244  M01S03473.dsd     +++|          STD    CM+2
04245  M01S03474.dsd     +++|          CWM    JDAT,ON
04246  M01S03475.dsd     +++|          CWD    AB
04247  M01S03476.dsd     +++|          ADN    1
04248  M01S03477.dsd     +++|          CWD    TM
04249  M01S03478.dsd     +++|          ADN    1
04250  M01S03479.dsd     +++|          CWD    DT
04251  M01S03480.dsd     +++|          ADN    1
04252  M01S03481.dsd     +++|          CWD    T3
Line S03482 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04253  M02S03482.253l688 ---| DTMA     LDN    0
Line S03483 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
M03 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04254  M03S03483.253l688 ---|*         LDN    UWCF
Line S00006 Modification History
M01 (Added by) ns2418
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04255  M02S00006.253l688 ---|*         LDN    UCCF        (CYBER 180)
Line S03484 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04256  M02S03484.253l688 ---|          STD    CM+4
Line S03485 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2726
Seq #  *Modification Id* Act 
----------------------------+
04257  M02S03485.ns2726  ---|          LDN    2
04258  M01S00002.ns2726  +++|          LDN    EDTS        SET SUBFUNCTION
04259  M01S03486.dsd     +++|          STD    CM+1
04260  M01S03487.dsd     +++|          MONITOR DSRM       ENTER DATE AND TIME
04261  M01S03488.dsd     +++|          LDN    0           CLEAR ENTRY MESSAGE
04262  M01S03489.dsd     +++|          STM    DLSA
04263  M01S03490.dsd     +++|          LJM    KBR         RETURN FROM KEYBOARD
04264  M01S03491.dsd     +++| DTMB     EQU    *-1
Line S03492 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04265  M02S03492.ns2418  ---|*         LJM    RWCX        (RETURN FROM WALL CLOCK READ)
04266  M01S00007.ns2418  +++|*         LJM    RDTX        (RETURN FROM CTI CLOCK READ)
04267  M01S03493.dsd     +++| TDLM     SPACE  4,20
04268  M01S03494.dsd     +++|**        TDLM - TABLE OF DAY LIMITS FOR MONTHS.
04269  M01S03495.dsd     +++|
04270  M01S03496.dsd     +++|
04271  M01S03497.dsd     +++| TDLM     EQU    *-1
04272  M01S03498.dsd     +++|          BASE   D
04273  M01S03499.dsd     +++|          LOC    1
04274  M01S03500.dsd     +++|
04275  M01S03501.dsd     +++|          CON    31
04276  M01S03502.dsd     +++|          CON    28
04277  M01S03503.dsd     +++|          CON    31
04278  M01S03504.dsd     +++|          CON    30
04279  M01S03505.dsd     +++|          CON    31
04280  M01S03506.dsd     +++|          CON    30
04281  M01S03507.dsd     +++|          CON    31
04282  M01S03508.dsd     +++|          CON    31
04283  M01S03509.dsd     +++|          CON    30
04284  M01S03510.dsd     +++|          CON    31
04285  M01S03511.dsd     +++|          CON    30
04286  M01S03512.dsd     +++|          CON    31
04287  M01S03513.dsd     +++|
04288  M01S03514.dsd     +++|          BASE   *
04289  M01S03515.dsd     +++|          LOC    *O
04290  M01S03516.dsd     +++| DTE      SPACE  4,10
04291  M01S03517.dsd     +++|**        DTE - ENTER DATE.
04292  M01S03518.dsd     +++|
04293  M01S03519.dsd     +++|
04294  M01S03520.dsd     +++| DTE      LDN    28D         SET SECOND MONTH
04295  M01S03521.dsd     +++|          STM    TDLM+2
04296  M01S03522.dsd     +++|          LDM    KBUF        CONVERT YEAR
04297  M01S03523.dsd     +++|          SHN    6
04298  M01S03524.dsd     +++|          LMM    KBUF+1
04299  M01S03525.dsd     +++|          RJM    CDD
04300  M01S00001.ns2797  +++|          STD    T1
04301  M01S00002.ns2797  +++|          ADC    -70D
04302  M01S00003.ns2797  +++|          PJN    DTE0        IF YEAR IN RANGE 1970-1999
04303  M01S00004.ns2797  +++|          ADN    -34D+70D
04304  M01S00005.ns2797  +++|          PJN    DTE2        IF BEYOND YEAR 2033 (NOT SUPPORTED)
04305  M01S00006.ns2797  +++| DTE0     LDD    T1
04306  M01S03526.dsd     +++|          LPN    3
04307  M01S03527.dsd     +++|          NJN    DTE1        IF NOT LEAP YEAR
04308  M01S03528.dsd     +++|          AOM    TDLM+2      ADVANCE SECOND MONTH
04309  M01S03529.dsd     +++| DTE1     LDM    KBUF+3      CONVERT MONTH
04310  M01S03530.dsd     +++|          SHN    6
04311  M01S03531.dsd     +++|          LMM    KBUF+4
04312  M01S03532.dsd     +++|          RJM    CDD
04313  M01S03533.dsd     +++|          STD    T2
04314  M01S03534.dsd     +++|          ZJN    DTE2        IF 0
04315  M01S03535.dsd     +++|          SBN    13D
04316  M01S03536.dsd     +++|          PJN    DTE2        IF .GT. 13
04317  M01S03537.dsd     +++|          LDM    KBUF+6      CONVERT DAY
04318  M01S03538.dsd     +++|          SHN    6
04319  M01S03539.dsd     +++|          LMM    KBUF+7
04320  M01S03540.dsd     +++|          RJM    CDD
04321  M01S03541.dsd     +++|          STD    T3
04322  M01S03542.dsd     +++|          ZJN    DTE2        IF 0
04323  M01S03543.dsd     +++|          SBN    1           CHECK DAY NUMBER
04324  M01S03544.dsd     +++|          SBM    TDLM,T2
04325  M01S03545.dsd     +++|          MJN    DTE3        IF WITHIN RANGE OF MONTH
04326  M01S03546.dsd     +++| DTE2     JMP    KIE         INCORRECT ENTRY
04327  M01S03547.dsd     +++|
04328  M01S03548.dsd     +++| DTE3     LDN    DT          ASSEMBLE DATE
04329  M01S03549.dsd     +++|          RJM    ASC
04330  M01S03550.dsd     +++|          LDN    JDAL        READ JULIAN DATE
04331  M01S03551.dsd     +++|          CRD    AB
04332  M01S03552.dsd     +++|          LDN    PDTL        READ PACKED DATE
04333  M01S03553.dsd     +++|          CRD    T1
04334  M01S03554.dsd     +++|          LDN    TIML        READ CURRENT TIME
04335  M01S03555.dsd     +++|          CRD    TM
04336  M01S03556.dsd     +++|          LDN    ZERL
04337  M01S03557.dsd     +++|          CRD    CM
04338  M01S03558.dsd     +++|          LDD    MA
04339  M01S03559.dsd     +++|          ADN    1
04340  M01S03560.dsd     +++|          STD    CM+2
04341  M01S03561.dsd     +++|          CWD    AB          WRITE JULIAN AND PACKED DATES TO BUFFER
04342  M01S03562.dsd     +++|          ADN    1
04343  M01S03563.dsd     +++|          CWD    T1
04344  M01S03564.dsd     +++|          ADN    1           WRITE TIME AND DATE TO BUFFER
04345  M01S03565.dsd     +++|          CWD    TM
04346  M01S03566.dsd     +++|          ADN    1
04347  M01S03567.dsd     +++|          CWD    DT
Line S03568 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2726
Seq #  *Modification Id* Act 
----------------------------+
04348  M02S03568.ns2726  ---|          LDN    2           SET ENTER DATE SUB-FUNCTION
04349  M01S00003.ns2726  +++|          LDN    EDTS        SET ENTER DATE SUB-FUNCTION
04350  M01S03569.dsd     +++|          STD    CM+1
04351  M01S03570.dsd     +++|          MONITOR DSRM       *DSD* MONITOR REQUEST
04352  M01S03571.dsd     +++|          LDC    DTEB        RESTORE SYNTAX
04353  M01S03572.dsd     +++|          RJM    CSY
04354  M01S03573.dsd     +++|          LDC    TIMA-1      SET TIME REQUEST
04355  M01S03574.dsd     +++|          STM    DLSA
Line S03575 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
04356  M02S03575.ns2437  ---|          LDC    TIMB        COPY TIME SYNTAX
04357  M01S00009.ns2437  +++|          ADN    TIMB-TIMA+1 COPY TIME SYNTAX
04358  M01S03576.dsd     +++|          STM    DLSC
04359  M01S03577.dsd     +++|          RJM    CSY
04360  M01S03578.dsd     +++|          JMP    KBR         RETURN
04361  M01S03579.dsd     +++|
04362  M01S03580.dsd     +++| DTEA     CON    CH01,LN19
04363  M01S03581.dsd     +++|          DATA   C*ENTER DATE - YY/MM/DD.*
04364  M01S03582.dsd     +++|
04365  M01S03583.dsd     +++|*         SYNTAX FOR DATE ENTRY.
04366  M01S03584.dsd     +++|
04367  M01S03585.dsd     +++| DTEB     BSS    0
04368  M01S03586.dsd     +++|
04369  M01S03587.dsd     +++| EDT      ENTER  (<09<09/<01<09/<03<09.)
04370  M01S03588.dsd     +++|
04371  M01S03589.dsd     +++|          CON    0
04372  M01S03590.dsd     +++|          CON    7777        SYNTAX TERMINATION
04373  M01S03591.dsd     +++| KCR      SPACE  4,10
04374  M01S03592.dsd     +++|**        KCR - SPECIAL *CR* EXIT.
04375  M01S03593.dsd     +++|
04376  M01S03594.dsd     +++|
04377  M01S03595.dsd     +++| KCR      LDN    65          SET SPECIAL *CR* INCOMPLETE INPUT
04378  M01S03596.dsd     +++|          STD    KE
04379  M01S03597.dsd     +++|          LDD    KR
04380  M01S03598.dsd     +++|          ZJN    KCR1        IF KEYBOARD NOT READY
04381  M01S03599.dsd     +++|          LJM    /KEYBOARD/KCR  PROCESS *CR*
04382  M01S03600.dsd     +++|
04383  M01S03601.dsd     +++| KCR1     LDD    KI          CHECK KEYBOARD BUFFER
04384  M01S03602.dsd     +++|          NJN    KCR2        IF DATA IN BUFFER
04385  M01S03603.dsd     +++|          LJM    DTM         COMPLETE INITIALIZATION
04386  M01S03604.dsd     +++| KCRA     EQU    *-1
Line S03605 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04387  M02S03605.ns2418  ---|*         LJM    KBR         (WALL CLOCK CHIP PRESENT)
04388  M01S00008.ns2418  +++|*         LJM    KBR         (CYBER 180)
04389  M01S03606.dsd     +++|
04390  M01S03607.dsd     +++| KCR2     JMP    KIE         INCORRECT ENTRY
Line S03608 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04391  M02S03608.ns2418  ---| RWC      SPACE  4,10
Line S03609 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04392  M02S03609.ns2418  ---|**        RWC - READ WALL CLOCK CHIP.
Line S03610 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04393  M02S03610.ns2418  ---|*
Line S03611 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04394  M02S03611.ns2418  ---|*         EXIT   (TM - TM+4) = DISPLAY CODED TIME OF DAY FROM WALL
Line S03612 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04395  M02S03612.ns2418  ---|*                              CLOCK, IF NO ERROR.
Line S03613 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04396  M02S03613.ns2418  ---|*                (DT - DT+4) = DISPLAY CODED DATE FROM WALL CLOCK,
Line S03614 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04397  M02S03614.ns2418  ---|*                              IF NO ERROR.
Line S03615 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04398  M02S03615.ns2418  ---|*                IF AN ERROR OCCURS WHILE READING THE WALL CLOCK,
Line S03616 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04399  M02S03616.ns2418  ---|*                THE UPDATE WALL CLOCK CHIP FLAG WILL BE SET AND
Line S03617 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04400  M02S03617.ns2418  ---|*                THE READING OF THE WALL CLOCK CHIP WILL BE DISABLED.
Line S03618 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04401  M02S03618.ns2418  ---|*
Line S03619 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04402  M02S03619.ns2418  ---|*         USES   T1, T2, T3, DT - DT+4, TM - TM+4.
Line S03620 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04403  M02S03620.ns2418  ---|*
Line S03621 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04404  M02S03621.ns2418  ---|*         CALLS  AMA, PMA, RMA.
Line S03622 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04405  M02S03622.ns2418  ---|
Line S03623 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04406  M02S03623.ns2418  ---|
Line S03624 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04407  M02S03624.ns2418  ---| RWC2.1   RJM    RMA         RELEASE MULTIPLEXOR ACCESS
Line S03625 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04408  M02S03625.ns2418  ---| RWC3     LDN    UWCF        SET UPDATE WALL CLOCK FLAG
Line S03626 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04409  M02S03626.ns2418  ---|          RAM    DTMA
Line S03627 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04410  M02S03627.ns2418  ---|          LDC    DFP         DISABLE READING OF WALL CLOCK
Line S03628 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04411  M02S03628.ns2418  ---|          STM    DMRA
Line S03629 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04412  M02S03629.ns2418  ---|
Line S03630 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04413  M02S03630.ns2418  ---| RWC      SUBR               ENTRY/EXIT
Line S03631 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04414  M02S03631.ns2418  ---|          AJM    RWC3,MX     IF CHANNEL ACTIVE
Line S03632 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04415  M02S03632.ns2418  ---|          RJM    PMA         PRESET MULTIPLEXER ACCESS
Line S03633 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04416  M02S03633.ns2418  ---|          LDC    MXPT        FUNCTION TWO-PORT MULTIPLEXER
Line S03634 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04417  M02S03634.ns2418  ---|          STM    SFMX
Line S03635 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04418  M02S03635.ns2418  ---|          RJM    AMA         ACQUIRE MULTIPLEXER ACCESS
Line S03636 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04419  M02S03636.ns2418  ---|          LDC    WBUF        SET POSITION TO READ DATA
Line S03637 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04420  M02S03637.ns2418  ---|          STD    T3
Line S03638 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04421  M02S03638.ns2418  ---|          AJM    RWC2.1,MX   IF CHANNEL ACTIVE
Line S03639 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04422  M02S03639.ns2418  ---|          FNC    1004,MX     FUNCTION READ WALL CLOCK
Line S03640 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04423  M02S03640.ns2418  ---|          LDN    10
Line S03641 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04424  M02S03641.ns2418  ---|          ACN    MX
Line S03642 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04425  M02S03642.ns2418  ---|          IAM    WBUF,MX
Line S03643 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04426  M02S03643.ns2418  ---|          DCN    MX+40
Line S03644 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04427  M02S03644.ns2418  ---|          RJM    RMA         RELEASE MULTIPLEXER ACCESS
Line S03645 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04428  M02S03645.ns2418  ---|          LDI    T3
Line S03646 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04429  M02S03646.ns2418  ---|          ZJN    RWC0        IF GOOD DATA READ FROM WALL CLOCK
Line S03647 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04430  M02S03647.ns2418  ---|          LJM    RWC3        PROCESS WALL CLOCK ERROR
Line S03648 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04431  M02S03648.ns2418  ---|
Line S03649 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04432  M02S03649.ns2418  ---|*         CONVERT WALL CLOCK DATE AND TIME TO DISPLAY CODE.
Line S03650 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04433  M02S03650.ns2418  ---|
Line S03651 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04434  M02S03651.ns2418  ---| RWC0     LDN    5           SET INDEX TO STORE DATE
Line S03652 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04435  M02S03652.ns2418  ---|          STD    T2
Line S03653 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04436  M02S03653.ns2418  ---| RWC1     AOD    T3          CONVERT YEARS OR HOURS
Line S03654 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04437  M02S03654.ns2418  ---|          LDI    T3
Line S03655 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04438  M02S03655.ns2418  ---|          SHN    -4
Line S03656 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04439  M02S03656.ns2418  ---|          ADC    2R 0
Line S03657 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04440  M02S03657.ns2418  ---|          STM    TM,T2
Line S03658 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04441  M02S03658.ns2418  ---|          LDI    T3
Line S03659 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04442  M02S03659.ns2418  ---|          LPN    17
Line S03660 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04443  M02S03660.ns2418  ---|          SHN    6
Line S03661 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04444  M02S03661.ns2418  ---|          ADC    2R0/
Line S03662 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04445  M02S03662.ns2418  ---| RWCA     EQU    *-1
Line S03663 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04446  M02S03663.ns2418  ---|*         ADC    2R0.
Line S03664 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04447  M02S03664.ns2418  ---|          STM    TM+1,T2
Line S03665 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04448  M02S03665.ns2418  ---|          AOD    T3          CONVERT MONTHS OR MINUTES
Line S03666 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04449  M02S03666.ns2418  ---|          LDI    T3
Line S03667 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04450  M02S03667.ns2418  ---|          SHN    -4
Line S03668 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04451  M02S03668.ns2418  ---|          SHN    6
Line S03669 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04452  M02S03669.ns2418  ---|          STD    T1
Line S03670 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04453  M02S03670.ns2418  ---|          LDI    T3
Line S03671 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04454  M02S03671.ns2418  ---|          LPN    17
Line S03672 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04455  M02S03672.ns2418  ---|          LMD    T1
Line S03673 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04456  M02S03673.ns2418  ---|          ADC    2R00
Line S03674 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04457  M02S03674.ns2418  ---|          STM    TM+2,T2
Line S03675 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04458  M02S03675.ns2418  ---|          AOD    T3          CONVERT DAYS OR SECONDS
Line S03676 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04459  M02S03676.ns2418  ---|          LDI    T3
Line S03677 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04460  M02S03677.ns2418  ---|          SHN    -4
Line S03678 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04461  M02S03678.ns2418  ---|          ADC    2R/0
Line S03679 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04462  M02S03679.ns2418  ---| RWCB     EQU    *-1
Line S03680 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04463  M02S03680.ns2418  ---|*         ADC    2R.0
Line S03681 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04464  M02S03681.ns2418  ---|          STM    TM+3,T2
Line S03682 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04465  M02S03682.ns2418  ---|          LDI    T3
Line S03683 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04466  M02S03683.ns2418  ---|          LPN    17
Line S03684 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04467  M02S03684.ns2418  ---|          SHN    6
Line S03685 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04468  M02S03685.ns2418  ---|          ADC    2R0.
Line S03686 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04469  M02S03686.ns2418  ---|          STM    TM+4,T2
Line S03687 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04470  M02S03687.ns2418  ---|          LCN    5           DETERMINE IF CONVERSION COMPLETE
Line S03688 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04471  M02S03688.ns2418  ---|          RAD    T2
Line S03689 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04472  M02S03689.ns2418  ---|          MJN    RWC2        IF TIME OF DAY PROCESSED
Line S03690 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04473  M02S03690.ns2418  ---|          LDC    3R.0.       CHANGE */* TO *.* IN CONVERSIONS
Line S03691 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04474  M02S03691.ns2418  ---|          STM    RWCA
Line S03692 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04475  M02S03692.ns2418  ---|          SHN    -6
Line S03693 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04476  M02S03693.ns2418  ---|          STM    RWCB
Line S03694 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04477  M02S03694.ns2418  ---|          LJM    RWC1        PROCESS TIME OF DAY
Line S03695 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04478  M02S03695.ns2418  ---|
Line S03696 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04479  M02S03696.ns2418  ---| RWC2     LDC    RWCX
04480  M01S00009.ns2418  +++| RDT      SPACE  4,10
04481  M01S00010.ns2418  +++|**        RDT - READ DATE AND TIME FROM CTI CLOCK.
04482  M01S00011.ns2418  +++|*
Line S00012 Modification History
M01 (Added by) ns2418
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04483  M02S00012.253l688 ---|*         EXIT   (DTMA) = *LDN UCCF*.
Line S00013 Modification History
M01 (Added by) ns2418
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04484  M02S00013.253l688 ---|*                TO *DTM* TO PROCESS DATE AND TIME.
04485  M01S00125.253l688 +++|*         EXIT   TO *DTM* TO PROCESS DATE AND TIME.
04486  M01S00014.ns2418  +++|
04487  M01S00015.ns2418  +++|
04488  M01S00016.ns2418  +++| RDT      SUBR               ENTRY/EXIT
Line S00017 Modification History
M01 (Added by) ns2418
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04489  M02S00017.253l688 ---|          LDN    UCCF        SET FLAG TO UPDATE CTI CLOCK
Line S00018 Modification History
M01 (Added by) ns2418
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04490  M02S00018.253l688 ---|          RAM    DTMA
04491  M01S00019.ns2418  +++|          LDC    RDTX        MODIFY *DTM* EXIT
04492  M01S03697.dsd     +++|          STM    DTMB
Line S03698 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04493  M02S03698.ns2418  ---|          LJM    DTM1        ENTER DATE AND TIME
Line S03699 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04494  M02S03699.ns2418  ---|
04495  M01S00020.ns2418  +++|          LJM    DTM         ENTER DATE AND TIME
04496  M01S03700.dsd     +++| TIM      SPACE  4,10
04497  M01S03701.dsd     +++|**        TIM - ENTER TIME.
04498  M01S03702.dsd     +++|
04499  M01S03703.dsd     +++|
04500  M01S03704.dsd     +++| TIM      LDM    KBUF        CONVERT HOURS
04501  M01S03705.dsd     +++|          SHN    6
04502  M01S03706.dsd     +++|          LMM    KBUF+1
04503  M01S03707.dsd     +++|          RJM    CDD
04504  M01S03708.dsd     +++|          SBN    24D
04505  M01S03709.dsd     +++|          MJN    TIM1        IF < 24
04506  M01S03710.dsd     +++|          JMP    KIE         INCORRECT ENTRY
04507  M01S03711.dsd     +++|
04508  M01S03712.dsd     +++| TIM1     LDN    TM          ASSEMBLE TIME
04509  M01S03713.dsd     +++|          RJM    ASC
04510  M01S03714.dsd     +++|          LJM    DTM0        COMPLETE DATE AND TIME ENTRY
04511  M01S03715.dsd     +++|
04512  M01S03716.dsd     +++| TIMA     CON    CH01,LN19
04513  M01S03717.dsd     +++|          DATA   C*ENTER TIME - HH.MM.SS.*
04514  M01S03718.dsd     +++|
04515  M01S03719.dsd     +++|*         SYNTAX FOR TIME.
04516  M01S03720.dsd     +++|
04517  M01S03721.dsd     +++| TIMB     BSS    0
04518  M01S03722.dsd     +++|
04519  M01S03723.dsd     +++| ETM      ENTER  (<02<09.<05<09.<05<09.)
04520  M01S03724.dsd     +++|
04521  M01S03725.dsd     +++|          CON    0
04522  M01S03726.dsd     +++|          CON    7777        SYNTAX TERMINATION
04523  M01S03727.dsd     +++| ASC      SPACE  4,10
04524  M01S03728.dsd     +++|**        ASC - ASSEMBLE CHARACTERS.
04525  M01S03729.dsd     +++|*
04526  M01S03730.dsd     +++|*         ENTRY  (A) = ADDRESS OF ASSEMBLY AREA.
04527  M01S03731.dsd     +++|*
04528  M01S03732.dsd     +++|*         USES   T1 - T3.
04529  M01S03733.dsd     +++|
04530  M01S03734.dsd     +++|
04531  M01S03735.dsd     +++| ASC      SUBR               ENTRY/EXIT
04532  M01S03736.dsd     +++|          STD    T2          SET BYTE ADDRESS
04533  M01S03737.dsd     +++|          ADN    5
04534  M01S03738.dsd     +++|          STD    T3
04535  M01S03739.dsd     +++|          LDC    KBUF-1      SET CHARACTER ADDRESS
04536  M01S03740.dsd     +++|          STD    T1
04537  M01S03741.dsd     +++|          LDN    1R
04538  M01S03742.dsd     +++| ASC1     SHN    6           STORE UPPER
04539  M01S03743.dsd     +++|          STI    T2
04540  M01S03744.dsd     +++|          AOD    T1          ADVANCE CHARACTER
04541  M01S03745.dsd     +++|          LDI    T1          ADD LOWER
04542  M01S03746.dsd     +++|          RAI    T2
04543  M01S03747.dsd     +++|          AOD    T2          ADVANCE BYTE
04544  M01S03748.dsd     +++|          LMD    T3
04545  M01S03749.dsd     +++|          ZJN    ASCX        IF WORD COMPLETE
04546  M01S03750.dsd     +++|          AOD    T1          ADVANCE CHARACTER
04547  M01S03751.dsd     +++|          LDI    T1
04548  M01S03752.dsd     +++|          UJN    ASC1        LOOP
04549  M01S03753.dsd     +++| CDD      SPACE  4,10
04550  M01S03754.dsd     +++|**        CDD - CONVERT DECIMAL DIGITS.
04551  M01S03755.dsd     +++|*
04552  M01S03756.dsd     +++|*         ENTRY  (A) = DPC DIGITS.
04553  M01S03757.dsd     +++|*
04554  M01S03758.dsd     +++|*         EXIT   (A) = CONVERSION.
04555  M01S03759.dsd     +++|*
04556  M01S03760.dsd     +++|*         USES   T0, T1.
04557  M01S03761.dsd     +++|
04558  M01S03762.dsd     +++|
04559  M01S03763.dsd     +++| CDD      SUBR               ENTRY/EXIT
04560  M01S03764.dsd     +++|          STD    T1
04561  M01S03765.dsd     +++|          SHN    -6          UPPER * 10
04562  M01S03766.dsd     +++|          LPN    77
04563  M01S03767.dsd     +++|          SBN    1R0
04564  M01S03768.dsd     +++|          SHN    1
04565  M01S03769.dsd     +++|          STD    T0
04566  M01S03770.dsd     +++|          SHN    2
04567  M01S03771.dsd     +++|          RAD    T0
04568  M01S03772.dsd     +++|          LDD    T1          ADD LOWER
04569  M01S03773.dsd     +++|          LPN    77
04570  M01S03774.dsd     +++|          SBN    1R0
04571  M01S03775.dsd     +++|          ADD    T0
04572  M01S03776.dsd     +++|          UJN    CDDX        RETURN
04573  M01S03777.dsd     +++| CSY      SPACE  4,10
04574  M01S03778.dsd     +++|**        CSY - COPY SYNTAX.
04575  M01S03779.dsd     +++|*
04576  M01S03780.dsd     +++|*         ENTRY  (A) = NEW SYNTAX TABLE ADDRESS.
04577  M01S03781.dsd     +++|*
04578  M01S00010.ns2437  +++|*         EXIT   (A) = 0.
04579  M01S00011.ns2437  +++|*
04580  M01S03782.dsd     +++|*         USES   T1, T2, T3.
04581  M01S03783.dsd     +++|
04582  M01S03784.dsd     +++|
04583  M01S03785.dsd     +++| CSY      SUBR               ENTRY/EXIT
04584  M01S03786.dsd     +++|          STD    T1          SET NEW SYNTAX ADDRESS
04585  M01S03787.dsd     +++|          LDD    HN          SET SYNTAX TABLE ADDRESS
04586  M01S03788.dsd     +++|          ERRNZ  TCEF-100    CANNOT USE DIRECT CELL *HN*
04587  M01S03789.dsd     +++|          STD    T2
04588  M01S03790.dsd     +++| CSY1     LDI    T1          CHECK NEW SYNTAX
04589  M01S03791.dsd     +++|          STD    T3
04590  M01S03792.dsd     +++|          LMC    7777
04591  M01S03793.dsd     +++|          ZJN    CSYX        IF END OF SYNTAX
04592  M01S03794.dsd     +++|          LDI    T2          INTERCHANGE SYNTAX BYTES
04593  M01S03795.dsd     +++|          STI    T1
04594  M01S03796.dsd     +++|          LDD    T3
04595  M01S03797.dsd     +++|          STI    T2
04596  M01S03798.dsd     +++|          AOD    T1          ADVANCE SYNTAX
04597  M01S03799.dsd     +++|          AOD    T2
04598  M01S03800.dsd     +++|          UJN    CSY1        LOOP
Line S00001 Modification History
M01 (Added by) dsd47
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
04599  M02S00001.251l664 ---|
Line S00002 Modification History
M01 (Added by) dsd47
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
04600  M02S00002.251l664 ---| PRSL     EQU    *           PRESET CODE EXECUTED DURING SYSTEM LOAD
04601  M01S00021.ns2418  +++| PAD      SPACE  4,10
04602  M01S00022.ns2418  +++|**        DUE TO THE WAY SCREEN ADDRESSES ARE CALCULATED, THE FOLLOWING
04603  M01S00023.ns2418  +++|*         PAD MUST BE HARDCODED.  IT SHOULD BE ADJUSTED TO BE AS SMALL
04604  M01S00024.ns2418  +++|*         AS POSSIBLE WHILE ENSURING THE *ERRPL* BELOW DOES NOT FAIL.
04605  M01S00025.ns2418  +++|
04606  M01S00026.ns2418  +++|
Line S00027 Modification History
M01 (Added by) ns2418
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04607  M02S00027.253l688 ---|          BSS    60          AVOID SELF-MODIFYING PRESET CODE
Line S00126 Modification History
M01 (Added by) 253l688
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04608  M02S00126.274l797 ---|          BSS    72          AVOID SELF-MODIFYING PRESET CODE
04609  M01S00013.274l797 +++|          BSS    110         AVOID SELF-MODIFYING PRESET CODE
04610  M01S00028.ns2418  +++|          ERRPL  .FRHT+1-*   *DSD* PRESET PAD NEEDS ADJUSTMENT
04611  M01S03801.dsd     +++| DFP      SPACE  4,10
04612  M01S03802.dsd     +++|**        DFP - DISPLAY FROM PPU CHARACTERS.
04613  M01S03803.dsd     +++|*
04614  M01S03804.dsd     +++|*         ENTRY  (A) = FUNCTION CODE.
04615  M01S03805.dsd     +++|*                (T2) = DISPLAY ADDRESS - 1.
04616  M01S03806.dsd     +++|*
04617  M01S03807.dsd     +++|*         USES   T2, T3, T4, T5.
04618  M01S03808.dsd     +++|*
04619  M01S03809.dsd     +++|*         MACROS CFNC.
04620  M01S03810.dsd     +++|
04621  M01S03811.dsd     +++|
04622  M01S03812.dsd     +++| DFP3     FJM    *,CH
04623  M01S03813.dsd     +++|          DCN    CH+40
04624  M01S03814.dsd     +++|
04625  M01S03815.dsd     +++| DFP      SUBR               ENTRY/EXIT
04626  M01S03816.dsd     +++|          CFNC
04627  M01S03817.dsd     +++|          LDM    1,T2        SAVE ORIGINAL COORDINATES
04628  M01S03818.dsd     +++|          STD    T3
04629  M01S03819.dsd     +++|          LDM    2,T2
04630  M01S03820.dsd     +++|          STD    T4
04631  M01S03821.dsd     +++| DFP1     LDN    0           SET CHARACTER COUNT
04632  M01S03822.dsd     +++|          STD    T5
04633  M01S03823.dsd     +++| DFP2     AOD    T2
04634  M01S03824.dsd     +++|          LDI    T2          DISPLAY BYTE
04635  M01S03825.dsd     +++|          OAN    CH+40
04636  M01S03826.dsd     +++|          ZJN    DFP3        IF MESSAGE COMPLETE
04637  M01S03827.dsd     +++|          AOD    T5          ADVANCE CHARACTER COUNT
04638  M01S03828.dsd     +++|          LMN    25D         CHECK FOR 50 CHARACTERS IN LINE
04639  M01S03829.dsd     +++|          NJN    DFP2        IF NOT YET 50 CHARACTERS
04640  M01S03830.dsd     +++|          LCN    12          ADVANCE Y-COORDINATE
04641  M01S03831.dsd     +++|          RAD    T4
04642  M01S03832.dsd     +++|          OAN    CH+40
04643  M01S03833.dsd     +++|          LDD    T3          OUTPUT X-COORDINATE
04644  M01S03834.dsd     +++|          OAN    CH+40
04645  M01S03835.dsd     +++|          UJN    DFP1        BEGIN NEW LINE
04646  M01S03836.dsd     +++| DMR      SPACE  4,10
04647  M01S03837.dsd     +++|**        DMR - DISPLAY MESSAGE REQUESTED.
04648  M01S03838.dsd     +++|*
04649  M01S03839.dsd     +++|*         ENTRY  (A) = FIRST MESSAGE ADDRESS - 1.
04650  M01S03840.dsd     +++|*
Line S03841 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2492
Seq #  *Modification Id* Act 
----------------------------+
04651  M02S03841.ns2492  ---|*         USES   T2.
04652  M01S00001.ns2492  +++|*         USES   T2, CM - CM+4.
04653  M01S03842.dsd     +++|*
04654  M01S03843.dsd     +++|*         CALLS  DFP, RWC.
04655  M01S03844.dsd     +++|*
04656  M01S03845.dsd     +++|*         MACROS CFNC.
04657  M01S03846.dsd     +++|
04658  M01S03847.dsd     +++|
04659  M01S03848.dsd     +++| DMR      SUBR               ENTRY/EXIT
04660  M01S03849.dsd     +++|          STD    T2
04661  M01S03850.dsd     +++|          ZJN    DMR1        IF ONLY COPYRIGHT NOTICE TO BE DISPLAYED
04662  M01S00002.ns2492  +++|          LDN    DSCL
04663  M01S00003.ns2492  +++|          CRD    CM          CHECK *MTR* ACTIVE
04664  M01S00004.ns2492  +++|          LDD    CM+2
04665  M01S00005.ns2492  +++|          ZJN    DMR1        IF INACTIVE
04666  M01S03851.dsd     +++|          LDC    SLMF        SELECT LEFT SCREEN - MEDIUM CHARACTERS
04667  M01S03852.dsd     +++|          RJM    DFP         DISPLAY MESSAGE
04668  M01S03853.dsd     +++| DMRA     EQU    *-1
Line S03854 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04669  M02S03854.ns2418  ---|*         RJM    RWC         (READ WALL CLOCK)
04670  M01S00029.ns2418  +++|*         RJM    RDT         (CYBER 180)
Line S03855 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04671  M02S03855.253l688 ---| DMR1     LDC    SLSF        SELECT LEFT SCREEN - SMALL CHARACTERS
Line S03856 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04672  M02S03856.253l688 ---|          CFNC
Line S03857 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04673  M02S03857.253l688 ---|          LDN    COPYL       DISPLAY COPYRIGHT NOTICE
Line S03858 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04674  M02S03858.253l688 ---|          OAM    COPY,CH
04675  M01S00127.253l688 +++| DMR1     LDD    LS
04676  M01S00128.253l688 +++|          NJN    DMR2        IF LEFT SCREEN DISPLAY PRESENT
04677  M01S00129.253l688 +++|          LDC    SLSF
04678  M01S00130.253l688 +++|          CFNC               SELECT LEFT SCREEN - SMALL CHARACTERS
04679  M01S00131.253l688 +++|          LDN    COPYL
04680  M01S00132.253l688 +++|          OAM    COPY,CH     DISPLAY COPYRIGHT NOTICE
04681  M01S03859.dsd     +++|          FJM    *,CH
04682  M01S03860.dsd     +++|          DCN    CH+40
Line S03861 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04683  M02S03861.253l688 ---|          CFNC   SRSF        SELECT RIGHT SCREEN - SMALL CHARACTERS
Line S03862 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04684  M02S03862.253l688 ---|          LDN    COPYL       DISPLAY COPYRIGHT NOTICE
Line S03863 Modification History
M01 (Added by) dsd
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
04685  M02S03863.253l688 ---|          OAM    COPY,CH
04686  M01S00133.253l688 +++| DMR2     CFNC   SRSF        SELECT RIGHT SCREEN - SMALL CHARACTERS
04687  M01S00134.253l688 +++|          LDN    COPYL
04688  M01S00135.253l688 +++|          OAM    COPY,CH     DISPLAY COPYRIGHT NOTICE
04689  M01S03864.dsd     +++|          FJM    *,CH
04690  M01S03865.dsd     +++|          DCN    CH+40
Line S03866 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2492
Seq #  *Modification Id* Act 
----------------------------+
04691  M02S03866.ns2492  ---|          UJN    DMRX        EXIT
04692  M01S00006.ns2492  +++|          UJP    DMRX        RETURN
04693  M01S03867.dsd     +++|          SPACE  4,10
04694  M01S03868.dsd     +++|          QUAL   COMMAND
04695  M01S03869.dsd     +++| EDT      EQU    /PRESET/DTE
04696  M01S03870.dsd     +++| ETM      EQU    /PRESET/TIM
04697  M01S03871.dsd     +++|          QUAL   *
04698  M01S03872.dsd     +++|          SPACE  4,10
04699  M01S03873.dsd     +++|**        COPY - COPYRIGHT BUFFER.
04700  M01S03874.dsd     +++|
04701  M01S03875.dsd     +++| COPY     CON    CH01,LN06
04702  M01S03876.dsd     +++|          DATA   H*NOW LOADING THE NOS SOFTWARE SYSTEM.*
04703  M01S03877.dsd     +++|          CON    CH01,LN07
Line S03878 Modification History
M01 (Added by) dsd
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
04704  M02S03878.241l630 ---|          DATA   H*COPYRIGHT CONTROL DATA  1978, 1984.*
Line S00001 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2456
Seq #  *Modification Id* Act 
----------------------------+
04705  M02S00001.ns2456  ---|          DATA   H*COPYRIGHT CONTROL DATA 1978, 1985.*
04706  M01S00001.ns2456  +++|*CALL     COPYRT
04707  M01S00002.ns2456  +++| CPRT     HERE
04708  M01S03879.dsd     +++| COPYL    EQU    *-COPY      MESSAGE LENGTH
Line S03880 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04709  M02S03880.ns2418  ---|          SPACE  4,10
Line S03881 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04710  M02S03881.ns2418  ---|**        COMMON DECKS.
Line S03882 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04711  M02S03882.ns2418  ---|
Line S03883 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04712  M02S03883.ns2418  ---|
Line S03884 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04713  M02S03884.ns2418  ---|*CALL     COMPTMA
04714  M01S03885.dsd     +++| DLS      SPACE  4,10
04715  M01S03886.dsd     +++|**        DLS - DISPLAY LOAD STATUS.
04716  M01S03887.dsd     +++|
04717  M01S03888.dsd     +++|
Line S03889 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04718  M02S03889.ns2418  ---|          ERRPL  .FRHT+1-*   IF RIGHT SCREEN START OVERFLOWS *DLS*
Line S03890 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2418
Seq #  *Modification Id* Act 
----------------------------+
04719  M02S03890.ns2418  ---|
04720  M01S03891.dsd     +++| DLS      SUBR               ENTRY/EXIT
04721  M01S03892.dsd     +++|          LDN    2
04722  M01S03893.dsd     +++|          STD    T7
04723  M01S03894.dsd     +++|          LDN    SVNL        READ VERSION
04724  M01S03895.dsd     +++|          CRM    /DSD/DLSG,T7
04725  M01S03896.dsd     +++|          DFIM   (SOD T7)
04726  M01S03897.dsd     +++|          AOD    T7          SET INTENSIFICATION
04727  M01S03898.dsd     +++| DLS1     FJM    *,CH
04728  M01S03899.dsd     +++|          DCN    CH+40
04729  M01S03900.dsd     +++|          LDC    DTEA-1      SET DATA ADDRESS
04730  M01S03901.dsd     +++| DLSA     EQU    *-1
04731  M01S03902.dsd     +++|          RJM    DMR         DISPLAY MESSAGES
04732  M01S03903.dsd     +++| DLS2     CFNC   SRMF        SELECT RIGHT SCREEN - MEDIUM CHARACTERS
04733  M01S03904.dsd     +++|          DISPLA CH01,LN13,(DEADSTART STATUS.)
04734  M01S03905.dsd     +++|          LDN    FNTP
04735  M01S03906.dsd     +++|          CRD    CM
04736  M01S03907.dsd     +++|          LDD    CM          READ SYSTEM FILE FNT
04737  M01S03908.dsd     +++|          SHN    14
04738  M01S03909.dsd     +++|          LMD    CM+1
04739  M01S03910.dsd     +++|          ERRNZ  SYFO        SYSTEM FILE ORDINAL .NE. 0
04740  M01S03911.dsd     +++|          CRD    CM
04741  M01S03912.dsd     +++|          LDD    CM+4        CHECK STATUS
04742  M01S03913.dsd     +++|          LPN    1
04743  M01S03914.dsd     +++|          NJN    DLS3        IF SYSTEM FILE BUSY
04744  M01S03915.dsd     +++|          DISPLA CH01,LN19,(COMPLETE)
04745  M01S03916.dsd     +++|          UJN    DLS4        DISPLAY SYSTEM CP MESSAGE
04746  M01S03917.dsd     +++|
04747  M01S03918.dsd     +++| DLS3     LDN    2           OUTPUT COORDINATES
04748  M01S03919.dsd     +++|          OAM    DLSD,CH
04749  M01S03920.dsd     +++|          LDC    CPAS+MS1W   DLSPLAY CP 1 MESSAGE
04750  M01S03921.dsd     +++|          RJM    DOL
04751  M01S03922.dsd     +++|          FJM    *,CH
04752  M01S03923.dsd     +++|          DCN    CH+40
04753  M01S03924.dsd     +++|          CFNC   SRSF        SELECT RIGHT SCREEN - SMALL CHARACTERS
04754  M01S03925.dsd     +++|          LDN    2           OUTPUT COODRINATES
04755  M01S03926.dsd     +++|          OAM    DLSE,CH
04756  M01S03927.dsd     +++|          LDC    CPAS+MS2W   DISPLAY CP 1 MESSAGE
04757  M01S03928.dsd     +++|          RJM    DOL
04758  M01S03929.dsd     +++| DLS4     LDN    2           OUTPUT COORDINATES
04759  M01S03930.dsd     +++|          OAM    DLSH,CH
04760  M01S03931.dsd     +++|          LDD    NC          DISPLAY SYSTEM CP MESSAGE
04761  M01S03932.dsd     +++|          SHN    7
04762  M01S03933.dsd     +++|          ADN    MS2W
04763  M01S03934.dsd     +++|          RJM    DOL
04764  M01S03935.dsd     +++|          SOD    T7
04765  M01S03936.dsd     +++| DLSB     ZJN    DLS6        IF INTENSIFICATION COMPLETE
04766  M01S03937.dsd     +++|*         PSN                WHEN *RECOVERY COMPLETE* STATUS ACCEPTED
04767  M01S03938.dsd     +++|          NJN    DLS5        IF INTENSIFICATION NOT COMPLETE
04768  M01S03939.dsd     +++|          LJM    DLS9        PROCESS INITIAL COMMAND
04769  M01S03940.dsd     +++|
04770  M01S03941.dsd     +++| DLS5     LJM    DLS1        LOOP
04771  M01S03942.dsd     +++|
04772  M01S03943.dsd     +++| DLS6     LDM    DLSA
04773  M01S03944.dsd     +++|          ZJN    DLS8        IF DATE/TIME ENTRIES PROCESSED
04774  M01S03945.dsd     +++|          LMC    DTEA-1
04775  M01S03946.dsd     +++|          NJN    DLS7        IF DATE PROCESSED
04776  M01S03947.dsd     +++|          LDN    TIML        READ TIME
04777  M01S03948.dsd     +++|          CRD    TM
04778  M01S03949.dsd     +++|          LDN    DTEL        READ DATE
04779  M01S03950.dsd     +++|          CRD    DT
04780  M01S03951.dsd     +++| DLS7     LJM    DLSX        RETURN
04781  M01S03952.dsd     +++|
Line S03953 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
04782  M02S03953.ns2393  ---| DLS8     LDC    DSCP*CPAS+SNSW  CHECK RECOVERY
Line S03954 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
04783  M02S03954.ns2393  ---|          STD    T1
Line S03955 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
04784  M02S03955.ns2393  ---|          CRD    CM
Line S03956 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
04785  M02S03956.ns2393  ---|          LDD    CM+4
Line S03957 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
04786  M02S03957.ns2393  ---|          LPN    1
Line S03958 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
04787  M02S03958.ns2393  ---|          ZJN    DLS7        IF *REC* NOT SENT *RECOVERY COMPLETE*
Line S03959 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
04788  M02S03959.ns2393  ---|          LDN    0
Line S03960 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
04789  M02S03960.ns2393  ---|          STM    DLSB        INSTRUCTION PASS
Line S03961 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
04790  M02S03961.ns2393  ---|          SOD    CM+4        ACCEPT *RECOVERY COMPLETE* STATUS
Line S03962 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
04791  M02S03962.ns2393  ---|          LDD    T1
Line S03963 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
04792  M02S03963.ns2393  ---|          CWD    CM
04793  M01S00014.ns2393  +++| DLS8     STM    DLSB        ENABLE COMMAND PROCESSING
04794  M01S00015.ns2393  +++|          LDN    DSCL
04795  M01S00016.ns2393  +++|          CRD    CM          SET DATE/TIME ENTERED
04796  M01S00017.ns2393  +++|          STD    CM+1
04797  M01S00018.ns2393  +++|          CWD    CM          STORE DATE/TIME STATUS FOR *REC*
04798  M01S03964.dsd     +++|
04799  M01S03965.dsd     +++|*         RESTORE SYNTAX.
04800  M01S03966.dsd     +++|
04801  M01S03967.dsd     +++|          LDC    DTEB
04802  M01S03968.dsd     +++| DLSC     EQU    *-1
04803  M01S03969.dsd     +++|          RJM    CSY
04804  M01S00012.ns2437  +++|
04805  M01S00013.ns2437  +++|*         CLEAR OVERLAY INDICATORS.
04806  M01S00014.ns2437  +++|
04807  M01S00015.ns2437  +++|*         LDN    0
04808  M01S00016.ns2437  +++|          STM    .FCOM+1-5
04809  M01S00017.ns2437  +++|          STM    .FLFT+1
04810  M01S00018.ns2437  +++|          STM    .FRHT+1
04811  M01S03970.dsd     +++|          LDC    /KEYBOARD/KCR RESTORE *CR* PROCESSOR
04812  M01S03971.dsd     +++|          STM    /KEYBOARD/TSCEB
04813  M01S03972.dsd     +++|          LDC    /KEYBOARD/KRB  RESTORE *RIGHT BLANK* KEY
04814  M01S03973.dsd     +++|          STM    /KEYBOARD/TSCEA
Line S03974 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
04815  M02S03974.ns2437  ---|
Line S03975 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
04816  M02S03975.ns2437  ---|*         CLEAR OVERLAY INDICATORS.
Line S03976 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
04817  M02S03976.ns2437  ---|
Line S03977 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd51
M03 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
04818  M03S03977.ns2437  ---|          LDN    0
Line S03978 Modification History
M01 (Added by) dsd
M02 (Updated by) dsd51
M03 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
04819  M03S03978.ns2437  ---|          STM    .FCOM+1
Line S00001 Modification History
M01 (Added by) dsd51
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
04820  M02S00001.ns2437  ---|          LDN    0           CLEAR OVERLAY NAMES
Line S00002 Modification History
M01 (Added by) dsd51
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
04821  M02S00002.ns2437  ---|          STM    .FCOM+1-5
Line S03979 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
04822  M02S03979.ns2437  ---|          STM    .FLFT+1
Line S03980 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2437
Seq #  *Modification Id* Act 
----------------------------+
04823  M02S03980.ns2437  ---|          STM    .FRHT+1
Line S00003 Modification History
M01 (Added by) dsd47
M02 (Updated by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
04824  M02S00003.251l664 ---|          ERRPL  .FRHT+1-PRSL  OVERFLOW INTO EXECUTED CODE
04825  M01S00019.ns2393  +++| DRS      UJN    DLS9        PROCESS INITIAL COMMAND
04826  M01S00020.ns2393  +++|
04827  M01S00021.ns2393  +++|*         ENABLE RIGHT SCREEN AND *1DS* PROCESSING.
04828  M01S00022.ns2393  +++|
04829  M01S00023.ns2393  +++|          LDC    LOV         ENABLE RIGHT SCREEN OVERLAY LOAD
04830  M01S00024.ns2393  +++|          STM    /DSD/LDOA
04831  M01S00025.ns2393  +++|          LDC    *           ENABLE *1DS* CALLS
04832  M01S00026.ns2393  +++|          ORG    *-1
04833  M01S00027.ns2393  +++|          LOC    /KEYBOARD/C1DA
04834  M01S00028.ns2393  +++|          ZJN    /KEYBOARD/C1D2  IF BUFFER INTERLOCK NOT NEEDED
04835  M01S00029.ns2393  +++|          LOC    *O
04836  M01S00030.ns2393  +++|          STM    /KEYBOARD/C1DA
04837  M01S00031.ns2393  +++|          UJN    DLS13       ENTER INCOMPLETE *CR*
04838  M01S03981.dsd     +++|
04839  M01S03982.dsd     +++|*         ENTER INITIAL COMMAND.
04840  M01S03983.dsd     +++|
04841  M01S03984.dsd     +++| DLS9     LDD    KE
Line S03985 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
04842  M02S03985.ns2393  ---|          NJN    DLS13       IF PRESET ENTRY MADE
04843  M01S00032.ns2393  +++|          NJN    DLS14       IF PRESET ENTRY MADE
04844  M01S03986.dsd     +++|          STM    /KEYBOARD/KBIA  CLEAR SYNTAX SKIP FLAG
04845  M01S03987.dsd     +++|          LDC    DLSF        SET COMMAND ADDRESS
04846  M01S03988.dsd     +++|          STD    T1
04847  M01S03989.dsd     +++|          LDI    T1
04848  M01S03990.dsd     +++|          NJN    DLS10       IF COMMAND NOT COMPLETE
04849  M01S03991.dsd     +++|          AOD    T1          SET DISPLAY ENTRY
04850  M01S03992.dsd     +++|          LDI    T1
Line S03993 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
04851  M02S03993.ns2393  ---|          ZJN    DLS13       IF DISPLAYS SET
04852  M01S00033.ns2393  +++|          ZJN    DLS14       IF DISPLAYS SET
04853  M01S03994.dsd     +++| DLS10    STD    T2          SET CHARACTER ADDRESS
04854  M01S03995.dsd     +++|          LDI    T2          ENTER CHARACTER
04855  M01S03996.dsd     +++|          STD    KE
04856  M01S03997.dsd     +++|          ZJN    DLS12       IF END OF CHARACTER STRING
04857  M01S03998.dsd     +++|          LMN    1R
04858  M01S03999.dsd     +++|          NJN    DLS11       IF NOT * *
04859  M01S04000.dsd     +++|          LDN    62          ENTER *SPACE*
04860  M01S04001.dsd     +++|          STD    KE
04861  M01S04002.dsd     +++| DLS11    AOI    T1          ADVANCE CHARACTER STRING
Line S04003 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
04862  M02S04003.ns2393  ---|          UJN    DLS13       RETURN
04863  M01S00034.ns2393  +++|          UJN    DLS14       RETURN
04864  M01S04004.dsd     +++|
04865  M01S04005.dsd     +++| DLS12    STI    T1          CLEAR CHARACTER STRING POINTER
Line S04006 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
04866  M02S04006.ns2393  ---|          LDN    63          ENTER *INCOMPLETE CR*
Line S04007 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
04867  M02S04007.ns2393  ---|          STD    KE
Line S04008 Modification History
M01 (Added by) dsd
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
04868  M02S04008.ns2393  ---| DLS13    LJM    DLSX        RETURN
04869  M01S00035.ns2393  +++| DLS13    LDN    63          ENTER INCOMPLETE *CR*
04870  M01S00036.ns2393  +++|          STD    KE
04871  M01S00037.ns2393  +++| DLS14    LJM    DLSX        RETURN
04872  M01S04009.dsd     +++|
04873  M01S04010.dsd     +++| DLSD     CON    CH01,LN19
04874  M01S04011.dsd     +++| DLSE     CON    CH01,LN24
04875  M01S04012.dsd     +++|
04876  M01S04013.dsd     +++| DLSF     CON    0,DLSG
04877  M01S04014.dsd     +++|
04878  M01S04015.dsd     +++| DLSG     CON    ILSP
04879  M01S04016.dsd     +++|          CON    IRSP
04880  M01S04017.dsd     +++|          CON    1R.
04881  M01S04018.dsd     +++|          CON    0
04882  M01S04019.dsd     +++|
04883  M01S04020.dsd     +++| DLSH     CON    CH01,LN26
04884  M01S04021.dsd     +++|          SPACE  4,10
04885  M01S04022.dsd     +++|**        TIKB - INITIAL KEYBOARD BUFFER IMAGE.
04886  M01S04023.dsd     +++|
04887  M01S04024.dsd     +++|
04888  M01S04025.dsd     +++| TIKB     BSS    0
04889  M01S04026.dsd     +++|          SPACE  4,10
04890  M01S04027.dsd     +++|**        DUMP INSTRUCTION MODIFICATION BLOCK.
04891  M01S04028.dsd     +++|
04892  M01S04029.dsd     +++|
04893  M01S04030.dsd     +++|          DIMB
04894  M01S04031.dsd     +++|
04895  M01S04032.dsd     +++|          IFLT   *-TIKB,KBUFL+2,1
04896  M01S04033.dsd     +++|          BSS    KBUFL+2-*+TIKB
04897  M01S04034.dsd     +++|          SPACE  4,10
04898  M01S04035.dsd     +++| DIS      HERE
04899  M01S04036.dsd     +++|          ERRNG  7772-*      IF OVERFLOW FROM D/S TAPE
04900  M01S04037.dsd     +++|          QUAL   *
04901  M01S04038.dsd     +++|          TITLE  DISPLAY OVERLAY MACROS.
Line S04039 Modification History
M01 (Added by) dsd
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
04902  M02S04039.261l700 ---| DISPLAY  SPACE  4,10
04903  M01S00045.261l700 +++| DISPLAY  SPACE  4,25
04904  M01S04040.dsd     +++|***       DISPLAY - BEGIN DISPLAY OVERLAY.
04905  M01S04041.dsd     +++|*
04906  M01S04042.dsd     +++|*         DISPLAY GENERATES THE LINKAGE CONSTANTS FOR DISPLAY OVERLAYS.
04907  M01S04043.dsd     +++|*
Line S04044 Modification History
M01 (Added by) dsd
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04908  M02S04044.242l642 ---|*         DISPLAY  (SUBTITLE),PAGE,CMR
Line S00021 Modification History
M01 (Added by) 242l642
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
04909  M02S00021.261l700 ---|*         DISPLAY  (SUBTITLE),PAGE,C
Line S00046 Modification History
M01 (Added by) 261l700
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04910  M02S00046.274l797 ---|* EOD     DISPLAY  (SUBTITLE),PAGE,C
04911  M01S00014.274l797 +++|*         DISPLAY  (SUBTITLE),PAGE,C
04912  M01S04045.dsd     +++|*
Line S04046 Modification History
M01 (Added by) dsd
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
04913  M02S04046.261l700 ---|*         ENTRY  (SUBTITLE) = TEXT OF SUBTITLE.
Line S00047 Modification History
M01 (Added by) 261l700
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04914  M02S00047.274l797 ---|*         ENTRY  EOD = END OF DISPLAY OVERLAYS, IF NOT NULL.
Line S00048 Modification History
M01 (Added by) 261l700
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04915  M02S00048.274l797 ---|*                (SUBTITLE) = TEXT OF SUBTITLE.
04916  M01S00015.274l797 +++|*         ENTRY  (SUBTITLE) = TEXT OF SUBTITLE.
04917  M01S04047.dsd     +++|*                PAGE = ADDRESS OF PAGING ROUTINE.
04918  M01S04048.dsd     +++|*                       IF NULL, *KBIX* IS USED.
Line S04049 Modification History
M01 (Added by) dsd
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04919  M02S04049.242l642 ---|*                CMR = FORCE OVERLAY TO BE CM RESIDENT, IF NON-BLANK.
Line S04050 Modification History
M01 (Added by) dsd
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04920  M02S04050.242l642 ---|*
04921  M01S00022.242l642 +++|*                C = CMR - FORCE OVERLAY TO BE CM RESIDENT.
04922  M01S00023.242l642 +++|*                  = RPL - FORCE OVERLAY TO BEGINNING OF RPL.
04923  M01S04051.dsd     +++|*         EXIT   (M.) = 2 CHARACTER MICRO FOR OVERLAY NAME.
Line S04052 Modification History
M01 (Added by) dsd
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04924  M02S04052.274l797 ---|*                (L.D) = MAXIMUM DISPLAY OVERLAY LENGTH.
04925  M01S04053.dsd     +++|*
04926  M01S04054.dsd     +++|*         NOTE   ALL DISPLAY OVERLAYS HAVE THE FOLLOWING FORMAT.
04927  M01S04055.dsd     +++|*                WORDS 0-4   DISK LINKAGE BYTES.
04928  M01S04056.dsd     +++|*                WORD  5     RELOCATION TABLE POINTER.
04929  M01S04057.dsd     +++|*                WORDS 6-7   *LJM* TO PAGING CODE.
04930  M01S04058.dsd     +++|*                            *LJM* TO *KBIX* IF NO PAGING IMPLEMENTED.
04931  M01S04059.dsd     +++|*                WORDS 10-11 *SUBR* ENTRY POINT OF OVERLAY.
04932  M01S04060.dsd     +++|*
04933  M01S04061.dsd     +++|*                WORDS 2-5 MAY BE USED AS SCRATCH AREAS BY THE
04934  M01S04062.dsd     +++|*                OVERLAY.  FOR EXAMPLE,  STM  5,LA     LDM  3,LA.
04935  M01S04063.dsd     +++|
04936  M01S04064.dsd     +++|
04937  M01S04065.dsd     +++|**        DEFINE OVERLAY ENTRY POINT SYMBOLS.
04938  M01S04066.dsd     +++|
04939  M01S04067.dsd     +++|
04940  M01S04068.dsd     +++|          QUAL
04941  M01S04069.dsd     +++| DOEP     EQU    11          DISPLAY OVERLAY ENTRY POINT
04942  M01S04070.dsd     +++| DOPG     EQU    6           DISPLAY OVERLAY PAGING ENTRY POINT
04943  M01S04071.dsd     +++|          QUAL   *
04944  M01S04072.dsd     +++|
04945  M01S04073.dsd     +++|
Line S04074 Modification History
M01 (Added by) dsd
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
04946  M02S04074.242l642 ---|          MACRO  DISPLAY,A,SUBTITLE,PAGE,CMR
Line S00024 Modification History
M01 (Added by) 242l642
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
04947  M02S00024.261l700 ---|          MACRO  DISPLAY,A,SUBTITLE,PAGE,C
Line S00049 Modification History
M01 (Added by) 261l700
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04948  M02S00049.274l797 ---|          MACRO  DISPLAY,E,SUBTITLE,PAGE,C
Line S00050 Modification History
M01 (Added by) 261l700
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04949  M02S00050.274l797 ---| .A       IFC    NE,/"M."//  IF THERE WAS A PREVIOUS DISPLAY OVERLAY
04950  M01S00016.274l797 +++| DISPLAY  MACRO  SUBTITLE,PAGE,C
04951  M01S00017.274l797 +++| .B       IFC    EQ,/C//
04952  M01S00018.274l797 +++|          OVLN
04953  M01S00019.274l797 +++| .B       ENDIF
04954  M01S00020.274l797 +++| .B       IFC    EQ,/C/CMR/
04955  M01S00021.274l797 +++|          OVLC
04956  M01S00022.274l797 +++| .B       ENDIF
04957  M01S00023.274l797 +++| .B       IFC    EQ,/C/RPL/
04958  M01S00024.274l797 +++|          OVLF
04959  M01S00025.274l797 +++| .B       ENDIF
04960  M01S00026.274l797 +++|          TTL    DSD/9"N." - SUBTITLE
04961  M01S00027.274l797 +++|          TITLE
04962  M01S00028.274l797 +++|          IDENT  9"M.",5     SUBTITLE
04963  M01S00029.274l797 +++|*COMMENT  DSD - SUBTITLE
Line S00030 Modification History
M01 (Added by) 274l797
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
04964  M02S00030.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
04965  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
04966  M01S00031.274l797 +++|          ORG    5
04967  M01S00032.274l797 +++| L.D      MAX    L.D,L.
04968  M01S00033.274l797 +++|          QUAL   DSD"M."
04969  M01S00034.274l797 +++| RLO$     CON    .REL
04970  M01S00035.274l797 +++| .B       IFC    NE,/PAGE//  IF PAGING ROUTINE DEFINED
04971  M01S00036.274l797 +++|          LJM    PAGE        EXECUTE PAGING ROUTINE
04972  M01S00037.274l797 +++| .B       ELSE
04973  M01S00038.274l797 +++|          LJM.   /KEYBOARD/KBIX  EXIT
04974  M01S00039.274l797 +++| .B       ENDIF
04975  M01S00040.274l797 +++|          ENDM
04976  M01S00041.274l797 +++| DSPEND   SPACE  4,15
04977  M01S00042.274l797 +++|***       DSPEND - END DISPLAY OVERLAY.
04978  M01S00043.274l797 +++|*
04979  M01S00044.274l797 +++|*         DSPEND TERMINATES A DISPLAY OVERLAY, AND CHECKS FOR OVERFLOW.
04980  M01S00045.274l797 +++|*
04981  M01S00044.282l826 +++|*         THE INSTRUCTION RELOCATION TABLE MUST BE ASSEMBLED FIRST SO
04982  M01S00045.282l826 +++|*         THAT IT CAN BE OVERLAYED AFTER THE DISPLAY IS LOADED.
04983  M01S00046.282l826 +++|*
04984  M01S00046.274l797 +++|*         DSPEND EOD
04985  M01S00047.274l797 +++|*
04986  M01S00048.274l797 +++|*         ENTRY  EOD = INDICATES END OF DISPLAY OVERLAYS, IF NOT NULL.
04987  M01S00049.274l797 +++|*
04988  M01S00050.274l797 +++|*         EXIT   (L.NAME) = LENGTH OF OVERLAY (*NAME* IS OVERLAY NAME).
04989  M01S00051.274l797 +++|*                (L.D) = LENGTH OF LONGEST DISPLAY OVERLAY SO FAR.
04990  M01S00047.282l826 +++|*                (.REL) = INSRUCTION RELOCATION TABLE FWA.
04991  M01S00048.282l826 +++|*                (.RELE) = INSTRUCTION RELOCATION TABLE LWA+1.
04992  M01S00052.274l797 +++|
04993  M01S00053.274l797 +++|
04994  M01S00054.274l797 +++| DSPEND   MACRO  E
04995  M01S00049.282l826 +++| .REL     BSS    0
04996  M01S00050.282l826 +++| REL      HERE               INSTRUCTION RELOCATION TABLE
04997  M01S00051.282l826 +++|          CON    0
04998  M01S00052.282l826 +++| .EREL    BSS    0           END OF RELOCATION TABLE
04999  M01S00051.261l700 +++|          HERE
05000  M01S00052.261l700 +++| DIS      HERE
Line S00053 Modification History
M01 (Added by) 261l700
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05001  M02S00053.282l826 ---|          NOREF  .REL
Line S00054 Modification History
M01 (Added by) 261l700
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05002  M02S00054.282l826 ---| .REL     BSS    0
Line S00055 Modification History
M01 (Added by) 261l700
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05003  M02S00055.282l826 ---| REL      HERE
Line S00056 Modification History
M01 (Added by) 261l700
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
05004  M02S00056.282l826 ---|          CON    0
05005  M01S04075.dsd     +++|          QUAL
Line S04076 Modification History
M01 (Added by) dsd
M02 (Updated by) 261l700
Seq #  *Modification Id* Act 
----------------------------+
05006  M02S04076.261l700 ---| .A       IFC    EQ,*A**
05007  M01S00057.261l700 +++|          USE    END         FORCE /LITERALS*/
05008  M01S00058.261l700 +++|          BSS    0
05009  M01S00059.261l700 +++| .A       IFPL   M.          IF NOT *TEXT* OVERLAY
05010  M01S00060.261l700 +++| L.       SET    *
05011  M01S00061.261l700 +++|          QUAL   LENGTH
Line S00062 Modification History
M01 (Added by) 261l700
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05012  M02S00062.274l797 ---| L.9"M."  EQU    *
05013  M01S00055.274l797 +++|          LIST   M
05014  M01S00056.274l797 +++|
05015  M01S00057.274l797 +++| L.9"M."  EQU    *           LENGTH OF OVERLAY
05016  M01S00058.274l797 +++|          ERRNG  .LDIS-L.9"M."  BYTES UNTIL LONGEST DISPLAY OVERLAY
05017  M01S00059.274l797 +++|          ERRNG  .LDMX-.INSP-L.9"M."  BYTES UNTIL MAXIMUM OVERLAY SIZE
05018  M01S00060.274l797 +++|
05019  M01S00061.274l797 +++|          LIST   *
05020  M01S00063.261l700 +++|          QUAL   *
05021  M01S00064.261l700 +++| .A       ENDIF
Line S00065 Modification History
M01 (Added by) 261l700
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05022  M02S00065.274l797 ---|          QUAL
Line S00066 Modification History
M01 (Added by) 261l700
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05023  M02S00066.274l797 ---| .A       IFC    NE,/E//     IF END OF DISPLAY OVERLAYS
05024  M01S00062.274l797 +++| .B       IFC    NE,/E//     IF END OF DISPLAY OVERLAYS
05025  M01S00067.261l700 +++| L.D      SET    L.D+4
05026  M01S00068.261l700 +++| L.D      SET    L.D/5*5
05027  M01S00069.261l700 +++|          ERRNG  L.D-L.      *L.D* IS WRONG WHEN LARGEST OVL IS LAST
05028  M01S00070.261l700 +++| L.       SET    0
Line S00071 Modification History
M01 (Added by) 261l700
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05029  M02S00071.274l797 ---| .A       ELSE               IF START OF NEW DISPLAY
Line S04077 Modification History
M01 (Added by) dsd
M02 (Updated by) 242l642
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05030  M03S04077.274l797 ---| .B       IFC    EQ,/CMR//
Line S00025 Modification History
M01 (Added by) 242l642
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05031  M02S00025.274l797 ---| .B       IFC    EQ,/C//
Line S04078 Modification History
M01 (Added by) dsd
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05032  M02S04078.274l797 ---|          OVLN
Line S04079 Modification History
M01 (Added by) dsd
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
05033  M02S04079.242l642 ---| .B       ELSE
05034  M01S00026.242l642 +++| .B       ENDIF
Line S00027 Modification History
M01 (Added by) 242l642
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05035  M02S00027.274l797 ---| .B       IFC    EQ,/C/CMR/
Line S04080 Modification History
M01 (Added by) dsd
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05036  M02S04080.274l797 ---|          OVLC
Line S04081 Modification History
M01 (Added by) dsd
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05037  M02S04081.274l797 ---| .B       ENDIF
Line S00028 Modification History
M01 (Added by) 242l642
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05038  M02S00028.274l797 ---| .B       IFC    EQ,/C/RPL/
Line S00029 Modification History
M01 (Added by) 242l642
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05039  M02S00029.274l797 ---|          OVLF
Line S00030 Modification History
M01 (Added by) 242l642
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05040  M02S00030.274l797 ---| .B       ENDIF
Line S04082 Modification History
M01 (Added by) dsd
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05041  M02S04082.274l797 ---|          TTL    DSD/9"N." - SUBTITLE
Line S04083 Modification History
M01 (Added by) dsd
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05042  M02S04083.274l797 ---|          TITLE
Line S04084 Modification History
M01 (Added by) dsd
M02 (Updated by) 261l700
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05043  M03S04084.274l797 ---| .A       ENDIF
Line S04085 Modification History
M01 (Added by) dsd
M02 (Updated by) 261l700
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05044  M03S04085.274l797 ---|          IFC    NE,*"M."**
Line S04086 Modification History
M01 (Added by) dsd
M02 (Updated by) 261l700
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05045  M03S04086.274l797 ---|          QUAL   DSD"N."
Line S04087 Modification History
M01 (Added by) dsd
M02 (Updated by) 261l700
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05046  M03S04087.274l797 ---|          HERE
Line S04088 Modification History
M01 (Added by) dsd
M02 (Updated by) 261l700
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05047  M03S04088.274l797 ---| DIS      HERE
Line S04089 Modification History
M01 (Added by) dsd
M02 (Updated by) 261l700
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05048  M03S04089.274l797 ---|          QUAL   DSD"M."
Line S04090 Modification History
M01 (Added by) dsd
M02 (Updated by) 261l700
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05049  M03S04090.274l797 ---|          NOREF  .REL
Line S04091 Modification History
M01 (Added by) dsd
M02 (Updated by) 261l700
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05050  M03S04091.274l797 ---| .REL     BSS    0
Line S04092 Modification History
M01 (Added by) dsd
M02 (Updated by) 261l700
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05051  M03S04092.274l797 ---| REL      HERE
Line S04093 Modification History
M01 (Added by) dsd
M02 (Updated by) 261l700
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05052  M03S04093.274l797 ---|          CON    0
Line S04094 Modification History
M01 (Added by) dsd
M02 (Updated by) 261l700
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05053  M03S04094.274l797 ---|          QUAL
Line S04095 Modification History
M01 (Added by) dsd
M02 (Updated by) 261l700
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05054  M03S04095.274l797 ---|          USE    END         FORCE /LITERALS*/
Line S00136 Modification History
M01 (Added by) 253l688
M02 (Updated by) 261l700
M03 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
05055  M03S00136.274l797 ---|          IFC    LT,/"M."/T/,1  IF NOT *TEXT* OVERLAY
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/dsd.003.txt ยท Last modified: by 127.0.0.1