User Tools

Site Tools


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

Deck DSD Part 015

169 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
20131  M01S11920.253l688 ---|          STM    AB,T5
20132  M01S11921.253l688 ---| ENM5     LDD    T6          STORE WORD
Line S00821 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20133  M01S00821.253l688 +++|          CRD    CM
20134  M01S00822.253l688 +++|          LDD    AB+3        CHANGE BYTE
20135  M01S00823.253l688 +++|          LPN    7
20136  M01S00824.253l688 +++|          LMD    T4
20137  M00S11922.dsd     +++|          SHN    14
Line S11923 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20138  M01S11923.253l688 ---|          LMD    T7
20139  M01S11924.253l688 ---|          CWD    AB
20140  M01S11925.253l688 ---|          JMP    KBR         RETURN
Line S00825 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20141  M01S00825.253l688 +++|          LMD    AB+4
20142  M01S00826.253l688 +++|          MJN    ENM8        IF BYTE CHANGE
20143  M01S00827.253l688 +++| ENMA     SHN    -3-3* PARCEL
20144  M01S00828.253l688 +++|          STD    AB+3
20145  M01S00829.253l688 +++|          LDI    T5
20146  M01S00830.253l688 +++|          LPC    770000
20147  M01S00831.253l688 +++| ENMB     EQU    *-1
20148  M01S00832.253l688 +++|          LMD    AB+3
20149  M01S00833.253l688 +++|          STI    T5
20150  M01S00834.253l688 +++|          AOD    T5
20151  M01S00835.253l688 +++|          LDD    AB+4
20152  M01S00836.253l688 +++| ENMC     SHN    11-3* PARCEL
20153  M01S00837.253l688 +++|          LMI    T5
20154  M01S00838.253l688 +++|          LPC    777000
20155  M01S00839.253l688 +++| ENMD     EQU    *-1
20156  M01S00840.253l688 +++|          LMI    T5
20157  M01S00841.253l688 +++| ENM8     STI    T5          SET BYTE
20158  M01S00842.253l688 +++|          LDD    T6
20159  M01S00843.253l688 +++|          SHN    14
20160  M01S00844.253l688 +++|          LMD    T7          STORE WORD
20161  M01S00845.253l688 +++|          CWD    CM
20162  M01S00846.253l688 +++|          JMP    KBR         RETURN
20163  M01S00847.253l688 +++|
20164  M01S00848.253l688 +++|
20165  M01S00849.253l688 +++| ENMF     CON    7777,777,77,7
20166  M00S11926.dsd     +++| GCA      SPACE  4,10
20167  M00S11927.dsd     +++|**        GCA - GET CM DISPLAY ADDRESS.
20168  M00S11928.dsd     +++|*
20169  M00S11929.dsd     +++|*         ENTRY  (LS) = LEFT DISPLAY INDEX.
20170  M00S11930.dsd     +++|*
20171  M00S11931.dsd     +++|*         EXIT   (CP) = CP AREA ADDRESS.
20172  M00S11932.dsd     +++|*                     = 0, IF SYSTEM.
20173  M00S11933.dsd     +++|*                (CM - CM+1) = 9/ , 15/ RA/100B.
20174  M00S11934.dsd     +++|*                (CM+2 - CM+3) = 9/ , 15/ FL/100B.
20175  M00S11935.dsd     +++|*                (CM+4) = NFL/100B, IF DISPLAY ASSIGNED TO JSN.
20176  M00S11936.dsd     +++|*
Line S11937 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20177  M01S11937.253l688 ---|*         USES   CP, T3, T6, T7, CM - CM+4.
20178  M01S11938.253l688 ---|*
20179  M01S11939.253l688 ---|*         CALLS  GCP.
Line S00850 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20180  M01S00850.253l688 +++|*         USES   CP, T2, T6, T7, CM - CM+4.
20181  M01S00851.253l688 +++|*
20182  M01S00852.253l688 +++|*         CALLS  GCP, SJT.
20183  M00S11940.dsd     +++|
20184  M00S11941.dsd     +++|
Line S11942 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20185  M01S11942.253l688 ---| GCA2     AOD    T3          SET FWA OF JSN
20186  M01S11943.253l688 ---|          RJM    GCP         GET CPA ADDRESS
Line S00853 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20187  M01S00853.253l688 +++| GCA2     AOD    T2          GET CPA ADDRESS
20188  M01S00854.253l688 +++|          RJM    GCP
20189  M00S11944.dsd     +++|          ZJN    GCA3        IF NO JSN
20190  M00S11945.dsd     +++|          ADN    FLSW
20191  M00S11946.dsd     +++|          CRD    T6
20192  M00S11947.dsd     +++|          LDD    CM+2        MOVE FL/100B
20193  M00S11948.dsd     +++|          STD    CM+3
20194  M00S11949.dsd     +++|          LDN    0
20195  M00S11950.dsd     +++|          STD    CM+2
20196  M00S11951.dsd     +++|          LDD    T6          MOVE NFL/100B
20197  M00S11952.dsd     +++|          STD    CM+4
20198  M00S11953.dsd     +++|          UJN    GCAX        RETURN
20199  M00S11954.dsd     +++|
20200  M00S11955.dsd     +++| GCA3     STD    CP          SET SYSTEM CP
20201  M00S11956.dsd     +++|          LDC    MABL        GET CM/100B
20202  M00S11957.dsd     +++|          CRD    CM
20203  M00S11958.dsd     +++|          LDN    0           SET SYSTEM RA
20204  M00S11959.dsd     +++|          STD    CM
20205  M00S11960.dsd     +++|          STD    CM+1
20206  M00S11961.dsd     +++|
20207  M00S11962.dsd     +++| GCA      SUBR               ENTRY/EXIT
Line S11963 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20208  M01S11963.253l688 ---|          LDC    /DSD/TJAZ
20209  M01S11964.253l688 ---|          STD    T3
20210  M01S11965.253l688 ---| GCA1     LDI    T3          CHECK DISPLAY NAME
20211  M01S11966.253l688 ---|          LMD    LS
20212  M01S11967.253l688 ---|          ZJN    GCA2        IF DISPLAY NAME FOUND
20213  M01S11968.253l688 ---|          LDN    /DSD/TJAZE  GET NEXT TABLE ENTRY
20214  M01S11969.253l688 ---|          RAD    T3
20215  M01S11970.253l688 ---|          LMC    /DSD/TJAZL
20216  M01S11971.253l688 ---|          NJN    GCA1        IF NOT END OF TABLE
20217  M01S11972.253l688 ---|          JMP    KIE         *INCORRECT ENTRY*
Line S00855 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20218  M01S00855.253l688 +++|          LDD    LS          SEARCH JSN TABLE
20219  M01S00856.253l688 +++|          RJM    SJT
20220  M01S00857.253l688 +++|          NJN    GCA2        IF DISPLAY FOUND
20221  M01S00858.253l688 +++| GCA1     JMP    KIE         PROCESS INCORRECT ENTRY
20222  M00S11973.dsd     +++| GCP      SPACE  4,10
20223  M00S11974.dsd     +++|**        GCP - GET CPA ADDRESS.
20224  M00S11975.dsd     +++|*
20225  M00S11976.dsd     +++|*         ENTRY  (A) = JSN ADDRESS IN *TJAZ* TABLE.
20226  M00S11977.dsd     +++|*
20227  M00S11978.dsd     +++|*         EXIT   (A) = CPA ADDRESS OF JOB WITH DISPLAY-S JSN.
20228  M00S11979.dsd     +++|*                    = 0, IF NO JSN ASSOCIATED WITH DISPLAY.
20229  M00S11980.dsd     +++|*                (CN) = CP NUMBER.
20230  M00S11981.dsd     +++|*                (CP) = CPA ADDRESS, IF JSN DISPLAY.
20231  M00S11982.dsd     +++|*
20232  M00S11983.dsd     +++|*         USES   CN, CP, T3, AB - AB+4, CM - CM+4.
20233  M00S11984.dsd     +++|*
20234  M00S11985.dsd     +++|*         CALLS  GEE, IEE.
20235  M00S11986.dsd     +++|*
20236  M00S11987.dsd     +++|*         MACROS SFA.
20237  M00S11988.dsd     +++|
20238  M00S11989.dsd     +++|
20239  M00S11990.dsd     +++| GCP      SUBR               ENTRY/EXIT
20240  M00S11991.dsd     +++|          STD    T3
20241  M00S11992.dsd     +++|          LDI    T3
20242  M00S11993.dsd     +++|          ZJN    GCPX        IF JSN NOT PRESENT
20243  M00S11994.dsd     +++|          LDD    T3          SET FWA OF JSN TO FIND
20244  M00S11995.dsd     +++|          RJM    GEE         SEARCH EJT
Line S00001 Modification History
M01 (Added by) dsd83
Seq #  *Modification Id* Act 
----------------------------+
20245  M01S00001.dsd83   +++|          ZJN    GCPX        IF JSN = *SYS*
Line S11996 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20246  M01S11996.253l688 ---|          ZJN    GCP2        IF EJT ENTRY FOUND
Line S00859 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20247  M01S00859.253l688 +++|          PJN    GCP2        IF EJT ENTRY FOUND
20248  M00S11997.dsd     +++| GCP1     JMP    KIE         *INCORRECT ENTRY*
20249  M00S11998.dsd     +++|
Line S11999 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20250  M01S11999.253l688 ---| GCP2     LDD    T3          INTERLOCK EJT ENTRY
20251  M01S12000.253l688 ---|          RJM    IEE
20252  M01S12001.253l688 ---|          MJN    GCP1        IF NOT INTERLOCKED
20253  M01S12002.253l688 ---|          SFA    EJT,EI      CALCULATE EJT ENTRY ADDRESS
20254  M01S12003.253l688 ---|          ERRNZ  JSNE        NOT FIRST WORD OF EJT ENTRY
20255  M01S12004.253l688 ---|          CRD    CM          GET JOB STATUS
Line S00860 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20256  M01S00860.253l688 +++| GCP2     RJM    IEE         INTERLOCK EJT ENTRY
20257  M01S00861.253l688 +++|          MJN    GCP1        IF INTERLOCK UNAVAILABLE
20258  M01S00862.253l688 +++|          SFA    EJT
20259  M01S00863.253l688 +++|          ADK    JSNE        GET JOB STATUS
20260  M01S00864.253l688 +++|          CRD    CM
20261  M00S12005.dsd     +++|          ADN    SCHE        GET CP NUMBER
20262  M00S12006.dsd     +++|          CRD    AB
20263  M00S12007.dsd     +++|          LDD    CM+4
20264  M00S12008.dsd     +++|          LPN    76
20265  M00S12009.dsd     +++|          LMN    EXJS*2
20266  M00S12010.dsd     +++|          NJN    GCP1        IF JOB NOT AT CP
20267  M00S12011.dsd     +++|          LDD    AB+3        SET CPA ADDRESS
20268  M00S12012.dsd     +++|          LPN    37
20269  M00S12013.dsd     +++|          STD    CN
20270  M00S12014.dsd     +++|          SHN    7
20271  M00S12015.dsd     +++|          STD    CP
20272  M00S12016.dsd     +++|          UJN    GCPX        RETURN
Line S00701 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
20273  M01S00701.274l797 +++|          SPACE  4,10
20274  M01S00702.274l797 +++|          CMDEND
Line S12017 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
20275  M01S12017.251l664 ---|          COMMAND (CENTRAL MEMORY CHANGES.)
Line S00953 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
20276  M01S00953.251l664 +++|          COMMAND  (CENTRAL MEMORY CHANGES - MULTIPLE.)
20277  M00S12018.dsd     +++| EMR      SPACE  4,10
20278  M00S12019.dsd     +++|***       XXXXXXX+YYY.
20279  M00S12020.dsd     +++|*         XXXXXXX-YYY - YYY.
20280  M00S12021.dsd     +++|*         XXXXXXX+Y,ZZZZ.
20281  M00S12022.dsd     +++|*         XXXXXXX-Y,ZZZZ.
20282  M00S12023.dsd     +++|*
20283  M00S12024.dsd     +++|*         ENTER YYY - YYY IN MEMORY LOCATION XXXXXXX.
20284  M00S12025.dsd     +++|*         ENTER ZZZZ IN BYTE Y OF MEMORY LOCATION XXXXXXX.
20285  M00S12026.dsd     +++|*
20286  M00S12027.dsd     +++|*         0 .LE. XXXXXXX .LE. 7,777,777B.
20287  M00S12028.dsd     +++|*         0 .LE. Y .LE. 4.
20288  M00S12029.dsd     +++|
20289  M00S12030.dsd     +++|
20290  M00S12031.dsd     +++|          ENTRY  EMR
20291  M00S12032.dsd     +++|          RJM    ASA         ASSEMBLE ADDRESS
20292  M00S12033.dsd     +++|          RJM    ASD         ASSEMBLE ENTRY
20293  M00S12034.dsd     +++|          SBN    1R.
20294  M00S12035.dsd     +++|          ZJN    EMR1        IF *.*
20295  M00S12036.dsd     +++|          LDD    AB+4        SAVE BYTE NUMBER
20296  M00S12037.dsd     +++|          STD    T4
20297  M00S12038.dsd     +++|          AOD    CA          ASSEMBLE ENTRY
20298  M00S12039.dsd     +++|          RJM    ASD
20299  M00S12040.dsd     +++|          LDD    AB+4        SAVE ENTRY
20300  M00S12041.dsd     +++|          STD    T1
20301  M00S12042.dsd     +++|          LDD    T6          READ WORD
20302  M00S12043.dsd     +++|          SHN    14
20303  M00S12044.dsd     +++|          LMD    T7
20304  M00S12045.dsd     +++|          CRD    AB
20305  M00S12046.dsd     +++|          LDD    T1          STORE BYTE
20306  M00S12047.dsd     +++|          STM    AB,T4
20307  M00S12048.dsd     +++| EMR1     LDD    T6          STORE WORD
20308  M00S12049.dsd     +++|          SHN    14
20309  M00S12050.dsd     +++|          LMD    T7
20310  M00S12051.dsd     +++|          CWD    AB
20311  M00S12052.dsd     +++|*         UJN    ADV         ADVANCE ADDRESS
20312  M00S12053.dsd     +++| ADV      SPACE  4,10
20313  M00S12054.dsd     +++|**        ADV - ADVANCE/DECREMENT ADDRESS.
20314  M00S12055.dsd     +++|*
20315  M00S12056.dsd     +++|*         ENTRY  (T5) = SEPARATOR CHARACTER ADDRESS.
20316  M00S12057.dsd     +++|*
20317  M00S12058.dsd     +++|*         USES   KI, T1, T2, T5.
20318  M00S12059.dsd     +++|*
20319  M00S12060.dsd     +++|*         CALLS  C1D.
20320  M00S12061.dsd     +++|
20321  M00S12062.dsd     +++|
20322  M00S12063.dsd     +++| ADV      LDD    T5          SET SEPARATOR CHARACTER ADDRESS
20323  M00S12064.dsd     +++|          STM    ADVA
20324  M00S12065.dsd     +++|          LDN    0           CHECK COMMAND LOGGING
20325  M00S12066.dsd     +++|          RJM    C1D
20326  M00S12067.dsd     +++|          LDC    *
20327  M00S12068.dsd     +++| ADVA     EQU    *-1         (SEPARATOR CHARACTER ADDRESS)
20328  M00S12069.dsd     +++|          STD    T5
20329  M00S12070.dsd     +++|          STD    T1
20330  M00S12071.dsd     +++|          LDI    T5          CHECK SEPARATOR
20331  M00S12072.dsd     +++|          SBN    1R+
20332  M00S12073.dsd     +++|          ZJN    ADV3        IF *+*
20333  M00S12074.dsd     +++|          SBN    1R--1R+
20334  M00S12075.dsd     +++|          NJN    ADV1        IF NOT *-*
20335  M00S12076.dsd     +++|          LJM    ADV8        PROCESS *-*
20336  M00S12077.dsd     +++|
20337  M00S12078.dsd     +++| ADV1     JMP    KBR         RETURN
20338  M00S12079.dsd     +++|
20339  M00S12080.dsd     +++| ADV2     AOI    T5          ADVANCE ENTRY
20340  M00S12081.dsd     +++|          SBN    1R8
20341  M00S12082.dsd     +++|          MJN    ADV6        IF NO OVERFLOW
20342  M00S12083.dsd     +++|          SOI    T5
20343  M00S12084.dsd     +++|          LMN    1R.
20344  M00S12085.dsd     +++|          ZJN    ADV4        IF *.*
20345  M00S12086.dsd     +++|          LDN    1R0         RESET DIGIT
20346  M00S12087.dsd     +++|          STI    T5
20347  M00S12088.dsd     +++| ADV3     SOD    T5
20348  M00S12089.dsd     +++|          ADC    -KBUF
20349  M00S12090.dsd     +++|          PJN    ADV2        IF NOT PAST START OF BUFFER
20350  M00S12091.dsd     +++| ADV4     LDC    KBUF+KBUFL-1
20351  M00S12092.dsd     +++|          STD    T2
20352  M00S12093.dsd     +++| ADV5     LDI    T2          MOVE CONTENTS OF BUFFER
20353  M00S12094.dsd     +++|          STM    1,T2
20354  M00S12095.dsd     +++|          SOD    T2
20355  M00S12096.dsd     +++|          SBD    T5
20356  M00S12097.dsd     +++|          NJN    ADV5        IF BUFFER NOT MOVED
20357  M00S12098.dsd     +++|          LDN    1R1         SET FIRST CHARACTER OF BUFFER
20358  M00S12099.dsd     +++|          STM    1,T2
20359  M00S12100.dsd     +++|          AOD    KI          INCREMENT KEYBOARD INDEX
20360  M00S12101.dsd     +++|          AOD    T1          SKIP PREVIOUS CHARACTER
20361  M00S12102.dsd     +++| ADV6     UJN    ADV9        SET CHARACTER INDEX
20362  M00S12103.dsd     +++|
20363  M00S12104.dsd     +++| ADV7     SOI    T5          DECREMENT ENTRY
20364  M00S12105.dsd     +++|          SBN    1R0
20365  M00S12106.dsd     +++|          PJN    ADV9        IF NO UNDERFLOW
20366  M00S12107.dsd     +++|          LDN    1R7         RESET DIGIT
20367  M00S12108.dsd     +++|          STI    T5
20368  M00S12109.dsd     +++| ADV8     SOD    T5
20369  M00S12110.dsd     +++|          ADC    -KBUF
20370  M00S12111.dsd     +++|          PJN    ADV7        IF NOT PAST START OF BUFFER
20371  M00S12112.dsd     +++| ADV9     AOD    T1          SKIP SEPARATOR
20372  M00S12113.dsd     +++|          LDI    T1          CHECK NEXT CHARACTER
20373  M00S12114.dsd     +++|          SBN    1RD
20374  M00S12115.dsd     +++|          NJN    ADV10       IF NOT *D*
20375  M00S12116.dsd     +++|          AOD    T1          SKIP *D*
20376  M00S12117.dsd     +++| ADV10    LDD    T1          RETURN TO PARTIAL CLEAR
20377  M00S12118.dsd     +++|          ADC    -KBUF
20378  M00S12119.dsd     +++|          LJM    KPC         RETURN TO PARTIAL CLEAR
20379  M00S12120.dsd     +++| ASA      SPACE  4,10
20380  M00S12121.dsd     +++|**        ASA - ASSEMBLE ADDRESS.
20381  M00S12122.dsd     +++|*
20382  M00S12123.dsd     +++|*         ENTRY  (CA) = CHARACTER ADDRESS.
20383  M00S12124.dsd     +++|*
20384  M00S12125.dsd     +++|*         EXIT   (T5) = SEPARATOR CHARACTER INDEX.
20385  M00S12126.dsd     +++|*                (T6 - T7) = ADDRESS.
20386  M00S12127.dsd     +++|*
20387  M00S12128.dsd     +++|*         USES   CA, CM, CM+1, CM+2, CM+3, T5, T6, T7.
20388  M00S12129.dsd     +++|*
20389  M00S12130.dsd     +++|*         CALLS  ASD, GCA.
20390  M00S12131.dsd     +++|
20391  M00S12132.dsd     +++|
20392  M00S12133.dsd     +++| ASA      SUBR               ENTRY/EXIT
20393  M00S12134.dsd     +++|          RJM    GCA         GET CM ADDRESS
20394  M00S12135.dsd     +++|          LDD    CM          CONVERT RA/100B TO RA
20395  M00S12136.dsd     +++|          SHN    6
20396  M00S12137.dsd     +++|          STD    CM
20397  M00S12138.dsd     +++|          LDD    CM+1
20398  M00S12139.dsd     +++|          SHN    6
20399  M00S12140.dsd     +++|          STD    CM+1
20400  M00S12141.dsd     +++|          SHN    -14
20401  M00S12142.dsd     +++|          RAD    CM
20402  M00S12143.dsd     +++|          RJM    ASD         ASSEMBLE ADDRESS
20403  M00S12144.dsd     +++|          LDD    AB+3
20404  M00S12145.dsd     +++|          LPC    7000
20405  M00S12146.dsd     +++|          ADD    AB+2
20406  M00S12147.dsd     +++|          ADD    AB+1
20407  M00S12148.dsd     +++|          ADD    AB
20408  M00S12149.dsd     +++|          NJN    ASA1        IF .GT. 21 BITS
20409  M00S12150.dsd     +++|          LDD    AB+3        COMPARE ENTERED CM LOCATION WITH FL
20410  M00S12151.dsd     +++|          STD    T6
20411  M00S12152.dsd     +++|          LDD    AB+4
20412  M00S12153.dsd     +++|          STD    T7
20413  M00S12154.dsd     +++|          SHN    -6
20414  M00S12155.dsd     +++|          SHN    14
20415  M00S12156.dsd     +++|          LMD    T6
20416  M00S12157.dsd     +++|          SHN    6
20417  M00S12158.dsd     +++|          SBD    CM+3
20418  M00S12159.dsd     +++|          SHN    6
20419  M00S12160.dsd     +++|          SBD    CM+2
20420  M00S12161.dsd     +++|          SHN    14
20421  M00S12162.dsd     +++|          MJN    ASA2        IF ADDRESS .LE. FL
20422  M00S12163.dsd     +++| ASA1     JMP    KIE         *INCORRECT ENTRY*
20423  M00S12164.dsd     +++|
20424  M00S12165.dsd     +++| ASA2     LDD    CM+1
20425  M00S12166.dsd     +++|          RAD    T7
20426  M00S12167.dsd     +++|          SHN    -14
20427  M00S12168.dsd     +++|          ADD    CM
20428  M00S12169.dsd     +++|          ADD    T6
20429  M00S12170.dsd     +++|          STD    T6
20430  M00S12171.dsd     +++|          LDM.   CMEI
20431  M00S12172.dsd     +++|          ZJN    ASA3        IF NOT CME
20432  M00S12173.dsd     +++|          LDD    T6          SET (R) = UPPER 9 ADDRESS BITS
20433  M00S12174.dsd     +++|          SHN    6
20434  M00S12175.dsd     +++|          STD    CM+3
20435  M00S12176.dsd     +++|          SHN    6
20436  M00S12177.dsd     +++|          STD    CM+2
20437  M00S12178.dsd     +++|          LRD    CM+2
20438  M00S12179.dsd     +++|
20439  M00S12180.dsd     +++|*         SET (T6 - T7) = LOWER 12 ADDRESS BITS + 400,000B.
20440  M00S12181.dsd     +++|
20441  M00S12182.dsd     +++|          LDN    40
20442  M00S12183.dsd     +++|          STD    T6
20443  M00S12184.dsd     +++| ASA3     LDD    CA          SET SEPARATOR ADDRESS
20444  M00S12185.dsd     +++|          STD    T5
20445  M00S12186.dsd     +++|          AOD    CA          SKIP SEPARATOR
20446  M00S12187.dsd     +++|          LJM    ASAX        EXIT
20447  M00S12188.dsd     +++| GCA      SPACE  4,10
20448  M00S12189.dsd     +++|**        GCA - GET CM DISPLAY ADDRESS.
20449  M00S12190.dsd     +++|*
20450  M00S12191.dsd     +++|*         ENTRY  (LS) = LEFT DISPLAY INDEX.
20451  M00S12192.dsd     +++|*
20452  M00S12193.dsd     +++|*         EXIT   (CP) = CP AREA ADDRESS.
20453  M00S12194.dsd     +++|*                     = 0, IF SYSTEM.
20454  M00S12195.dsd     +++|*                (CM - CM+1) = 9/ , 15/ RA/100B.
20455  M00S12196.dsd     +++|*                (CM+2 - CM+3) = 9/ , 15/ FL/100B.
20456  M00S12197.dsd     +++|*
Line S12198 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20457  M01S12198.253l688 ---|*         USES   CP, T3, T6, T7, CM - CM+4.
Line S00865 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20458  M01S00865.253l688 +++|*         USES   CP, T2, T6, T7, CM - CM+4.
20459  M01S00866.253l688 +++|*
20460  M01S00867.253l688 +++|*         CALLS  SJT.
20461  M00S12199.dsd     +++|
20462  M00S12200.dsd     +++|
Line S12201 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20463  M01S12201.253l688 ---| GCA      SUBR               ENTRY/EXIT
20464  M01S12202.253l688 ---|          LDC    /DSD/TJAZ
20465  M01S12203.253l688 ---|          STD    T3
20466  M01S12204.253l688 ---| GCA1     LDI    T3          CHECK DISPLAY NAME
20467  M01S12205.253l688 ---|          LMD    LS
20468  M01S12206.253l688 ---|          ZJN    GCA3        IF DISPLAY NAME FOUND
20469  M01S12207.253l688 ---|          LDN    /DSD/TJAZE  GET NEXT TABLE ENTRY
20470  M01S12208.253l688 ---|          RAD    T3
20471  M01S12209.253l688 ---|          LMC    /DSD/TJAZL
20472  M01S12210.253l688 ---|          NJN    GCA1        IF NOT END OF TABLE
20473  M01S12211.253l688 ---| GCA2     JMP    KIE         *INCORRECT ENTRY*
20474  M01S12212.253l688 ---|
20475  M01S12213.253l688 ---| GCA3     AOD    T3          SET FWA OF JSN
20476  M01S12214.253l688 ---|          LDI    T3
20477  M01S12215.253l688 ---|          NJN    GCA4        IF JSN PRESENT
Line S00868 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20478  M01S00868.253l688 +++| GCA3     AOD    T2          SET FWA OF JSN
20479  M01S00869.253l688 +++|          LDI    T2
20480  M01S00870.253l688 +++|          NJN    GCA2        IF JSN PRESENT
Line S12216 Modification History
M01 (Removed by) dsd83
Seq #  *Modification Id* Act 
----------------------------+
20481  M01S12216.dsd83   ---|          STD    CP          SET SYSTEM CP
Line S00002 Modification History
M01 (Added by) dsd83
Seq #  *Modification Id* Act 
----------------------------+
20482  M01S00002.dsd83   +++| GCA3.1   STD    CP          SET SYSTEM CP
20483  M00S12217.dsd     +++|          LDC    MABL        GET CM/100B
20484  M00S12218.dsd     +++|          CRD    CM
20485  M00S12219.dsd     +++|          LDN    0           SET SYSTEM RA
20486  M00S12220.dsd     +++|          STD    CM
20487  M00S12221.dsd     +++|          STD    CM+1
Line S12222 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20488  M01S12222.253l688 ---|          UJN    GCAX        RETURN
20489  M01S12223.253l688 ---|
20490  M01S12224.253l688 ---| GCA4     LDD    T3          SET FWA OF JSN TO FIND
20491  M01S12225.253l688 ---|          RJM    GEE         SEARCH EJT
20492  M01S12226.253l688 ---|          NJN    GCA2        IF EJT ENTRY NOT FOUND
20493  M01S12227.253l688 ---|          LDD    T3          INTERLOCK EJT ENTRY
20494  M01S12228.253l688 ---|          RJM    IEE
20495  M01S12229.253l688 ---|          MJN    GCA2        IF NOT INTERLOCKED
20496  M01S12230.253l688 ---|          SFA    EJT,EI      CALCULATE EJT ENTRY ADDRESS
20497  M01S12231.253l688 ---|          ERRNZ  JSNE        NOT FIRST WORD OF EJT ENTRY
20498  M01S12232.253l688 ---|          CRD    CM          GET JOB STATUS
Line S00871 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20499  M01S00871.253l688 +++|
20500  M01S00872.253l688 +++| GCA      SUBR               ENTRY/EXIT
20501  M01S00873.253l688 +++|          LDD    LS          SEARCH JSN TABLE
20502  M01S00874.253l688 +++|          RJM    SJT
20503  M01S00875.253l688 +++|          NJN    GCA3        IF DISPLAY FOUND
20504  M01S00876.253l688 +++| GCA1     JMP    KIE         PROCESS INCORRECT ENTRY
20505  M01S00877.253l688 +++|
20506  M01S00878.253l688 +++| GCA2     LDD    T2          SEARCH EJT
20507  M01S00879.253l688 +++|          RJM    GEE
Line S00003 Modification History
M01 (Added by) dsd83
Seq #  *Modification Id* Act 
----------------------------+
20508  M01S00003.dsd83   +++|          ZJN    GCA3.1      IF JSN = *SYS*
Line S00880 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20509  M01S00880.253l688 +++|          MJN    GCA1        IF EJT ENTRY NOT FOUND
20510  M01S00881.253l688 +++|          RJM    IEE         INTERLOCK EJT ENTRY
20511  M01S00882.253l688 +++|          MJN    GCA1        IF INTERLOCK UNAVAILABLE
20512  M01S00883.253l688 +++|          SFA    EJT
20513  M01S00884.253l688 +++|          ADK    JSNE        GET JOB STATUS
20514  M01S00885.253l688 +++|          CRD    CM
20515  M00S12233.dsd     +++|          ADN    SCHE        GET CP NUMBER
20516  M00S12234.dsd     +++|          CRD    AB
20517  M00S12235.dsd     +++|          LDD    CM+4
20518  M00S12236.dsd     +++|          LPN    76
20519  M00S12237.dsd     +++|          LMN    EXJS*2
Line S12238 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20520  M01S12238.253l688 ---|          NJN    GCA2        IF JOB NOT AT CP
Line S00886 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20521  M01S00886.253l688 +++|          NJN    GCA1        IF JOB NOT AT CP
20522  M00S12239.dsd     +++|          LDD    AB+3        SET CPA ADDRESS
20523  M00S12240.dsd     +++|          LPN    37
20524  M00S12241.dsd     +++|          STD    CN
20525  M00S12242.dsd     +++|          SHN    7
20526  M00S12243.dsd     +++|          STD    CP
20527  M00S12244.dsd     +++|          ADN    FLSW
20528  M00S12245.dsd     +++|          CRD    T6
20529  M00S12246.dsd     +++|          LDD    CM+2        MOVE FL/100B
20530  M00S12247.dsd     +++|          STD    CM+3
20531  M00S12248.dsd     +++|          LDN    0
20532  M00S12249.dsd     +++|          STD    CM+2
20533  M00S12250.dsd     +++|          LJM    GCAX        RETURN
Line S00703 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
20534  M01S00703.274l797 +++|          SPACE  4,10
20535  M01S00704.274l797 +++|          CMDEND
Line S12251 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
20536  M01S12251.251l664 ---|          COMMAND  (CENTRAL MEMORY CHANGES.)
Line S00954 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
20537  M01S00954.251l664 +++|          COMMAND  (CENTRAL MEMORY CHANGES - DISPLAY CODE.)
20538  M00S12252.dsd     +++| EMD      SPACE  4,10
20539  M00S12253.dsd     +++|***       XXXXXXX+DCCC - CCC.
20540  M00S12254.dsd     +++|*         XXXXXX-DCCC - CCC.
20541  M00S12255.dsd     +++|*
20542  M00S12256.dsd     +++|*         0 .LE. XXXXXXX .LE. 7,777,777B.
20543  M00S12257.dsd     +++|*
20544  M00S12258.dsd     +++|***       XXXXXXX,DCCC - CCC
20545  M00S12259.dsd     +++|*
20546  M00S12260.dsd     +++|*         ENTER MEMORY LOCATION XXXXXXX WITH DISPLAY CODE CHARACTERS
20547  M00S12261.dsd     +++|*         CCC - CCC.  ENTRY WILL BE LEFT-JUSTIFIED.
20548  M00S12262.dsd     +++|
20549  M00S12263.dsd     +++|
20550  M00S12264.dsd     +++|          ENTRY  EMD
20551  M00S12265.dsd     +++|          RJM    ASA         ASSEMBLE ADDRESS
20552  M00S12266.dsd     +++|          AOD    CA          SKIP *D*
20553  M00S12267.dsd     +++|          LDN    ZERL        CLEAR ASSEMBLY
20554  M00S12268.dsd     +++|          CRD    AB
20555  M00S12269.dsd     +++|          LDN    AB          SET BYTE ADDRESS
20556  M00S12270.dsd     +++|          STD    T1
20557  M00S12271.dsd     +++| EMD1     LDI    CA          STORE UPPER
20558  M00S12272.dsd     +++|          ZJN    EMD2        IF END OF BUFFER
20559  M00S12273.dsd     +++|          SHN    6
20560  M00S12274.dsd     +++|          STI    T1
20561  M00S12275.dsd     +++|          AOD    CA          ADVANCE CHARACTER
20562  M00S12276.dsd     +++|          LDI    CA          STORE LOWER
20563  M00S12277.dsd     +++|          ZJN    EMD2        IF END OF BUFFER
20564  M00S12278.dsd     +++|          RAI    T1
20565  M00S12279.dsd     +++|          AOD    CA          ADVANCE CHARACTER
20566  M00S12280.dsd     +++|          AOD    T1          ADVANCE BYTE
20567  M00S12281.dsd     +++|          LMN    AB+5
20568  M00S12282.dsd     +++|          NJN    EMD1        IF NOT END OF WORD
20569  M00S12283.dsd     +++| EMD2     LDD    T6          STORE WORD
20570  M00S12284.dsd     +++|          SHN    14
20571  M00S12285.dsd     +++|          ADD    T7
20572  M00S12286.dsd     +++|          CWD    AB
20573  M00S12287.dsd     +++|*         UJN    ADV         ADVANCE ADDRESS
20574  M00S12288.dsd     +++| ADV      SPACE  4,10
20575  M00S12289.dsd     +++|**        ADV - ADVANCE/DECREMENT ADDRESS.
20576  M00S12290.dsd     +++|*
20577  M00S12291.dsd     +++|*         ENTRY  (T5) = SEPARATOR CHARACTER ADDRESS.
20578  M00S12292.dsd     +++|*
20579  M00S12293.dsd     +++|*         USES   KI, T1, T2, T5.
20580  M00S12294.dsd     +++|*
20581  M00S12295.dsd     +++|*         CALLS  C1D.
20582  M00S12296.dsd     +++|
20583  M00S12297.dsd     +++|
20584  M00S12298.dsd     +++| ADV      LDD    T5          SET SEPARATOR CHARACTER ADDRESS
20585  M00S12299.dsd     +++|          STM    ADVA
20586  M00S12300.dsd     +++|          LDN    0           CHECK COMMAND LOGGING
20587  M00S12301.dsd     +++|          RJM    C1D
20588  M00S12302.dsd     +++|          LDC    *
20589  M00S12303.dsd     +++| ADVA     EQU    *-1         (SEPARATOR CHARACTER ADDRESS)
20590  M00S12304.dsd     +++|          STD    T5
20591  M00S12305.dsd     +++|          STD    T1
20592  M00S12306.dsd     +++|          LDI    T5          CHECK SEPARATOR
20593  M00S12307.dsd     +++|          SBN    1R+
20594  M00S12308.dsd     +++|          ZJN    ADV3        IF *+*
20595  M00S12309.dsd     +++|          SBN    1R--1R+
20596  M00S12310.dsd     +++|          NJN    ADV1        IF NOT *-*
20597  M00S12311.dsd     +++|          LJM    ADV8        PROCESS *-*
20598  M00S12312.dsd     +++|
20599  M00S12313.dsd     +++| ADV1     JMP    KBR         RETURN
20600  M00S12314.dsd     +++|
20601  M00S12315.dsd     +++| ADV2     AOI    T5          ADVANCE ENTRY
20602  M00S12316.dsd     +++|          SBN    1R8
20603  M00S12317.dsd     +++|          MJN    ADV6        IF NO OVERFLOW
20604  M00S12318.dsd     +++|          SOI    T5
20605  M00S12319.dsd     +++|          LMN    1R.
20606  M00S12320.dsd     +++|          ZJN    ADV4        IF *.*
20607  M00S12321.dsd     +++|          LDN    1R0         RESET DIGIT
20608  M00S12322.dsd     +++|          STI    T5
20609  M00S12323.dsd     +++| ADV3     SOD    T5
20610  M00S12324.dsd     +++|          ADC    -KBUF
20611  M00S12325.dsd     +++|          PJN    ADV2        IF NOT PAST START OF BUFFER
20612  M00S12326.dsd     +++| ADV4     LDC    KBUF+KBUFL-1
20613  M00S12327.dsd     +++|          STD    T2
20614  M00S12328.dsd     +++| ADV5     LDI    T2          MOVE CONTENTS OF BUFFER
20615  M00S12329.dsd     +++|          STM    1,T2
20616  M00S12330.dsd     +++|          SOD    T2
20617  M00S12331.dsd     +++|          SBD    T5
20618  M00S12332.dsd     +++|          NJN    ADV5        IF BUFFER NOT MOVED
20619  M00S12333.dsd     +++|          LDN    1R1         SET FIRST CHARACTER OF BUFFER
20620  M00S12334.dsd     +++|          STM    1,T2
20621  M00S12335.dsd     +++|          AOD    KI          INCREMENT KEYBOARD INDEX
20622  M00S12336.dsd     +++|          AOD    T1          SKIP PREVIOUS CHARACTER
20623  M00S12337.dsd     +++| ADV6     UJN    ADV9        SET CHARACTER INDEX
20624  M00S12338.dsd     +++|
20625  M00S12339.dsd     +++| ADV7     SOI    T5          DECREMENT ENTRY
20626  M00S12340.dsd     +++|          SBN    1R0
20627  M00S12341.dsd     +++|          PJN    ADV9        IF NO UNDERFLOW
20628  M00S12342.dsd     +++|          LDN    1R7         RESET DIGIT
20629  M00S12343.dsd     +++|          STI    T5
20630  M00S12344.dsd     +++| ADV8     SOD    T5
20631  M00S12345.dsd     +++|          ADC    -KBUF
20632  M00S12346.dsd     +++|          PJN    ADV7        IF NOT PAST START OF BUFFER
20633  M00S12347.dsd     +++| ADV9     AOD    T1          SKIP SEPARATOR
20634  M00S12348.dsd     +++|          LDI    T1          CHECK NEXT CHARACTER
20635  M00S12349.dsd     +++|          SBN    1RD
20636  M00S12350.dsd     +++|          NJN    ADV10       IF NOT *D*
20637  M00S12351.dsd     +++|          AOD    T1          SKIP *D*
20638  M00S12352.dsd     +++| ADV10    LDD    T1          RETURN TO PARTIAL CLEAR
20639  M00S12353.dsd     +++|          ADC    -KBUF
20640  M00S12354.dsd     +++|          LJM    KPC         RETURN TO PARTIAL CLEAR
20641  M00S12355.dsd     +++| ASA      SPACE  4,10
20642  M00S12356.dsd     +++|**        ASA - ASSEMBLE ADDRESS.
20643  M00S12357.dsd     +++|*
20644  M00S12358.dsd     +++|*         ENTRY  (CA) = CHARACTER ADDRESS.
20645  M00S12359.dsd     +++|*
20646  M00S12360.dsd     +++|*         EXIT   (T5) = SEPARATOR CHARACTER INDEX.
20647  M00S12361.dsd     +++|*                (T6 - T7) = ADDRESS.
20648  M00S12362.dsd     +++|*
20649  M00S12363.dsd     +++|*         USES   CA, CM, CM+1, CM+2, CM+3, T5, T6, T7.
20650  M00S12364.dsd     +++|*
20651  M00S12365.dsd     +++|*         CALLS  ASD, GCA.
20652  M00S12366.dsd     +++|
20653  M00S12367.dsd     +++|
20654  M00S12368.dsd     +++| ASA      SUBR               ENTRY/EXIT
20655  M00S12369.dsd     +++|          RJM    GCA         GET CM ADDRESS
20656  M00S12370.dsd     +++|          LDD    CM          CONVERT RA/100B TO RA
20657  M00S12371.dsd     +++|          SHN    6
20658  M00S12372.dsd     +++|          STD    CM
20659  M00S12373.dsd     +++|          LDD    CM+1
20660  M00S12374.dsd     +++|          SHN    6
20661  M00S12375.dsd     +++|          STD    CM+1
20662  M00S12376.dsd     +++|          SHN    -14
20663  M00S12377.dsd     +++|          RAD    CM
20664  M00S12378.dsd     +++|          RJM    ASD         ASSEMBLE ADDRESS
20665  M00S12379.dsd     +++|          LDD    AB+3
20666  M00S12380.dsd     +++|          LPC    7000
20667  M00S12381.dsd     +++|          ADD    AB+2
20668  M00S12382.dsd     +++|          ADD    AB+1
20669  M00S12383.dsd     +++|          ADD    AB
20670  M00S12384.dsd     +++|          NJN    ASA1        IF .GT. 21 BITS
20671  M00S12385.dsd     +++|          LDD    AB+3        COMPARE ENTERED CM LOCATION WITH FL
20672  M00S12386.dsd     +++|          STD    T6
20673  M00S12387.dsd     +++|          LDD    AB+4
20674  M00S12388.dsd     +++|          STD    T7
20675  M00S12389.dsd     +++|          SHN    -6
20676  M00S12390.dsd     +++|          SHN    14
20677  M00S12391.dsd     +++|          LMD    T6
20678  M00S12392.dsd     +++|          SHN    6
20679  M00S12393.dsd     +++|          SBD    CM+3
20680  M00S12394.dsd     +++|          SHN    6
20681  M00S12395.dsd     +++|          SBD    CM+2
20682  M00S12396.dsd     +++|          SHN    14
20683  M00S12397.dsd     +++|          MJN    ASA2        IF ADDRESS .LE. FL
20684  M00S12398.dsd     +++| ASA1     JMP    KIE         *INCORRECT ENTRY*
20685  M00S12399.dsd     +++|
20686  M00S12400.dsd     +++| ASA2     LDD    CM+1
20687  M00S12401.dsd     +++|          RAD    T7
20688  M00S12402.dsd     +++|          SHN    -14
20689  M00S12403.dsd     +++|          ADD    CM
20690  M00S12404.dsd     +++|          ADD    T6
20691  M00S12405.dsd     +++|          STD    T6
20692  M00S12406.dsd     +++|          LDM.   CMEI
20693  M00S12407.dsd     +++|          ZJN    ASA3        IF NOT CME
20694  M00S12408.dsd     +++|          LDD    T6          SET (R) = UPPER 9 ADDRESS BITS
20695  M00S12409.dsd     +++|          SHN    6
20696  M00S12410.dsd     +++|          STD    CM+3
20697  M00S12411.dsd     +++|          SHN    6
20698  M00S12412.dsd     +++|          STD    CM+2
20699  M00S12413.dsd     +++|          LRD    CM+2
20700  M00S12414.dsd     +++|
20701  M00S12415.dsd     +++|*         SET (T6 - T7) = LOWER 12 ADDRESS BITS + 400,000B.
20702  M00S12416.dsd     +++|
20703  M00S12417.dsd     +++|          LDN    40
20704  M00S12418.dsd     +++|          STD    T6
20705  M00S12419.dsd     +++| ASA3     LDD    CA          SET SEPARATOR ADDRESS
20706  M00S12420.dsd     +++|          STD    T5
20707  M00S12421.dsd     +++|          AOD    CA          SKIP SEPARATOR
20708  M00S12422.dsd     +++|          LJM    ASAX        EXIT
20709  M00S12423.dsd     +++| GCA      SPACE  4,10
20710  M00S12424.dsd     +++|**        GCA - GET CM DISPLAY ADDRESS.
20711  M00S12425.dsd     +++|*
20712  M00S12426.dsd     +++|*         ENTRY  (LS) = LEFT DISPLAY INDEX.
20713  M00S12427.dsd     +++|*
20714  M00S12428.dsd     +++|*         EXIT   (CP) = CP AREA ADDRESS.
20715  M00S12429.dsd     +++|*                     = 0, IF SYSTEM.
20716  M00S12430.dsd     +++|*                (CM - CM+1) = 9/ , 15/ RA/100B.
20717  M00S12431.dsd     +++|*                (CM+2 - CM+3) = 9/ , 15/ FL/100B.
20718  M00S12432.dsd     +++|*
Line S12433 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20719  M01S12433.253l688 ---|*         USES   CP, T3, T6, T7, CM - CM+4.
Line S00887 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20720  M01S00887.253l688 +++|*         USES   CP, T2, T6, T7, CM - CM+4.
20721  M01S00888.253l688 +++|*
20722  M01S00889.253l688 +++|*         CALLS  SJT.
20723  M00S12434.dsd     +++|
20724  M00S12435.dsd     +++|
Line S12436 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20725  M01S12436.253l688 ---| GCA      SUBR               ENTRY/EXIT
20726  M01S12437.253l688 ---|          LDC    /DSD/TJAZ
20727  M01S12438.253l688 ---|          STD    T3
20728  M01S12439.253l688 ---| GCA1     LDI    T3          CHECK DISPLAY NAME
20729  M01S12440.253l688 ---|          LMD    LS
20730  M01S12441.253l688 ---|          ZJN    GCA3        IF DISPLAY NAME FOUND
20731  M01S12442.253l688 ---|          LDN    /DSD/TJAZE  GET NEXT TABLE ENTRY
20732  M01S12443.253l688 ---|          RAD    T3
20733  M01S12444.253l688 ---|          LMC    /DSD/TJAZL
20734  M01S12445.253l688 ---|          NJN    GCA1        IF NOT END OF TABLE
20735  M01S12446.253l688 ---| GCA2     JMP    KIE         *INCORRECT ENTRY*
20736  M01S12447.253l688 ---|
20737  M01S12448.253l688 ---| GCA3     AOD    T3          SET FWA OF JSN
20738  M01S12449.253l688 ---|          LDI    T3
20739  M01S12450.253l688 ---|          NJN    GCA4        IF JSN PRESENT
Line S00890 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20740  M01S00890.253l688 +++| GCA3     AOD    T2          SET FWA OF JSN
20741  M01S00891.253l688 +++|          LDI    T2
20742  M01S00892.253l688 +++|          NJN    GCA2        IF JSN PRESENT
Line S12451 Modification History
M01 (Removed by) dsd83
Seq #  *Modification Id* Act 
----------------------------+
20743  M01S12451.dsd83   ---|          STD    CP          SET SYSTEM CP
Line S00004 Modification History
M01 (Added by) dsd83
Seq #  *Modification Id* Act 
----------------------------+
20744  M01S00004.dsd83   +++| GCA3.1   STD    CP          SET SYSTEM CP
20745  M00S12452.dsd     +++|          LDC    MABL        GET CM/100B
20746  M00S12453.dsd     +++|          CRD    CM
20747  M00S12454.dsd     +++|          LDN    0           SET SYSTEM RA
20748  M00S12455.dsd     +++|          STD    CM
20749  M00S12456.dsd     +++|          STD    CM+1
Line S12457 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20750  M01S12457.253l688 ---|          UJN    GCAX        RETURN
20751  M01S12458.253l688 ---|
20752  M01S12459.253l688 ---| GCA4     LDD    T3          SET FWA OF JSN TO FIND
20753  M01S12460.253l688 ---|          RJM    GEE         SEARCH EJT
20754  M01S12461.253l688 ---|          NJN    GCA2        IF EJT ENTRY NOT FOUND
20755  M01S12462.253l688 ---|          LDD    T3          INTERLOCK EJT ENTRY
20756  M01S12463.253l688 ---|          RJM    IEE
20757  M01S12464.253l688 ---|          MJN    GCA2        IF NOT INTERLOCKED
20758  M01S12465.253l688 ---|          SFA    EJT,EI      CALCULATE EJT ENTRY ADDRESS
20759  M01S12466.253l688 ---|          ERRNZ  JSNE        NOT FIRST WORD OF EJT ENTRY
20760  M01S12467.253l688 ---|          CRD    CM          GET JOB STATUS
Line S00893 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20761  M01S00893.253l688 +++|
20762  M01S00894.253l688 +++| GCA      SUBR               ENTRY/EXIT
20763  M01S00895.253l688 +++|          LDD    LS          SEARCH JSN TABLE
20764  M01S00896.253l688 +++|          RJM    SJT
20765  M01S00897.253l688 +++|          NJN    GCA3        IF DISPLAY FOUND
20766  M01S00898.253l688 +++| GCA1     JMP    KIE         PROCESS INCORRECT ENTRY
20767  M01S00899.253l688 +++|
20768  M01S00900.253l688 +++| GCA2     LDD    T2          SEARCH EJT
20769  M01S00901.253l688 +++|          RJM    GEE
Line S00005 Modification History
M01 (Added by) dsd83
Seq #  *Modification Id* Act 
----------------------------+
20770  M01S00005.dsd83   +++|          ZJN    GCA3.1      IF JSN = *SYS*
Line S00902 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20771  M01S00902.253l688 +++|          MJN    GCA1        IF EJT ENTRY NOT FOUND
20772  M01S00903.253l688 +++|          RJM    IEE         INTERLOCK EJT ENTRY
20773  M01S00904.253l688 +++|          MJN    GCA1        IF INTERLOCK UNAVAILABLE
20774  M01S00905.253l688 +++|          SFA    EJT
20775  M01S00906.253l688 +++|          ADK    JSNE        GET JOB STATUS
20776  M01S00907.253l688 +++|          CRD    CM
20777  M00S12468.dsd     +++|          ADN    SCHE        GET CP NUMBER
20778  M00S12469.dsd     +++|          CRD    AB
20779  M00S12470.dsd     +++|          LDD    CM+4
20780  M00S12471.dsd     +++|          LPN    76
20781  M00S12472.dsd     +++|          LMN    EXJS*2
Line S12473 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20782  M01S12473.253l688 ---|          NJN    GCA2        IF JOB NOT AT CP
Line S00908 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
20783  M01S00908.253l688 +++|          NJN    GCA1        IF JOB NOT AT CP
20784  M00S12474.dsd     +++|          LDD    AB+3        SET CPA ADDRESS
20785  M00S12475.dsd     +++|          LPN    37
20786  M00S12476.dsd     +++|          STD    CN
20787  M00S12477.dsd     +++|          SHN    7
20788  M00S12478.dsd     +++|          STD    CP
20789  M00S12479.dsd     +++|          ADN    FLSW
20790  M00S12480.dsd     +++|          CRD    T6
20791  M00S12481.dsd     +++|          LDD    CM+2        MOVE FL/100B
20792  M00S12482.dsd     +++|          STD    CM+3
20793  M00S12483.dsd     +++|          LDN    0
20794  M00S12484.dsd     +++|          STD    CM+2
20795  M00S12485.dsd     +++|          LJM    GCAX        RETURN
Line S00705 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
20796  M01S00705.274l797 +++|          SPACE  4,10
20797  M01S00706.274l797 +++|          CMDEND
Line S12486 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
20798  M01S12486.251l664 ---|          COMMAND (ECS MEMORY CHANGES.)
Line S00955 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
20799  M01S00955.251l664 +++|          COMMAND  (EXTENDED MEMORY CHANGES.)
Line S12487 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
20800  M01S12487.252l678 ---| EEC      SPACE  4,10
20801  M01S12488.252l678 ---|***              ALL ECS MEMORY COMMANDS MAY HAVE *+* OR *-* IN PLACE
20802  M01S12489.252l678 ---|*         OF THE *,*.  THESE FORMS WILL ADVANCE/DECREMENT THE ECS
20803  M01S12490.252l678 ---|*         MEMORY ADDRESS.
20804  M00S12491.dsd     +++| EEC      SPACE  4,10
20805  M00S12492.dsd     +++|***       EXXXXXXX,YYY - YYY.
20806  M00S12493.dsd     +++|*         EXXXXXXX,Y,ZZZZ.
20807  M00S12494.dsd     +++|*
20808  M00S12495.dsd     +++|*         ENTER YYY - YYY INTO EXTENDED MEMORY LOCATION XXXXXXX.
20809  M00S12496.dsd     +++|*         ENTER ZZZZ INTO BYTE Y OF EXTENDED MEMORY LOCATION XXXXXXX.
20810  M00S12497.dsd     +++|*         0 .LE. Y .LE. 4.
Line S00205 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
20811  M01S00205.252l678 +++|
20812  M01S00206.252l678 +++|
20813  M01S00207.252l678 +++|***       EXXXXXXX,DCCC-CCC
20814  M01S00208.252l678 +++|*
20815  M01S00209.252l678 +++|*         ENTER DISPLAY CODE CHARACTERS CCC-CCC IN EXTENDED MEMORY
20816  M01S00210.252l678 +++|*         LOCATION XXXXXXX.  ENTRY WILL BE LEFT JUSTIFIED.
20817  M01S00211.252l678 +++|
20818  M01S00212.252l678 +++|
20819  M01S00213.252l678 +++|***       ALL EXTENDED MEMORY COMMANDS MAY HAVE *+* OR *-* IN PLACE OF
20820  M01S00214.252l678 +++|*         THE *,*.  THIS FORM WILL ADVANCE/DECREMENT THE EM ADDRESS.
20821  M01S00215.252l678 +++|*
20822  M01S00216.252l678 +++|*         PROGRAMMING NOTE - THIS OVERLAY MAKES DIRECT REFERENCES TO
20823  M01S00217.252l678 +++|*           *EMRA* AND *EMFL* IN THE *M* DISPLAY LEFT-SCREEN BUFFER.
20824  M01S00218.252l678 +++|*           THEREFORE, THE CHECK FOR THE *M*-DISPLAY ON THE LEFT
20825  M01S00219.252l678 +++|*           SCREEN MUST NOT BE REMOVED.
20826  M00S12498.dsd     +++|
20827  M00S12499.dsd     +++|
20828  M00S12500.dsd     +++|          ENTRY  EEC
Line S12501 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
20829  M01S12501.252l678 ---|          RJM    ASR         ASSEMBLE ADDRESS AND READ ECS
20830  M01S12502.252l678 ---|          RJM    ASD         ASSEMBLE DIGITS
Line S00220 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
20831  M01S00220.252l678 +++|          RJM    ASR         ASSEMBLE ADDRESS AND READ EXTENDED MEMORY
20832  M01S00221.252l678 +++|          LDI    CA
20833  M01S00222.252l678 +++|          LMN    1RD
20834  M01S00223.252l678 +++|          NJN    EEC2        IF NOT DISPLAY CODE
20835  M01S00224.252l678 +++|          AOD    CA          SKIP *D*
20836  M01S00225.252l678 +++|          LDN    AB          SET BYTE ADDRESS
20837  M01S00226.252l678 +++|          STD    T1
20838  M01S00227.252l678 +++| EEC1     LDI    CA
20839  M01S00228.252l678 +++|          SHN    6
20840  M01S00229.252l678 +++|          STI    T1
20841  M01S00230.252l678 +++|          AOD    CA          ADVANCE CHARACTER
20842  M01S00231.252l678 +++|          LDI    CA
20843  M01S00232.252l678 +++|          RAI    T1
20844  M01S00233.252l678 +++|          AOD    CA          ADVANCE CHARACTER
20845  M01S00234.252l678 +++|          AOD    T1          ADVANCE BYTE
20846  M01S00235.252l678 +++|          LMN    AB+5
20847  M01S00236.252l678 +++|          ZJN    EEC3        IF 10 CHARACTERS PROCESSED
20848  M01S00237.252l678 +++|          UJN    EEC1        PROCESS NEXT CHARACTER
20849  M01S00238.252l678 +++|
20850  M01S00239.252l678 +++| EEC2     RJM    ASD         ASSEMBLE DIGITS
20851  M00S12503.dsd     +++|          SBN    1R.
Line S12504 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
20852  M01S12504.252l678 ---|          ZJN    EEC1        IF NOT BYTE COMMAND
Line S00240 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
20853  M01S00240.252l678 +++|          ZJN    EEC3        IF NOT BYTE COMMAND
20854  M00S12505.dsd     +++|          LDD    AB+4
20855  M00S12506.dsd     +++|          STD    T4          SAVE BYTE NUMBER
20856  M00S12507.dsd     +++|          AOD    CA
20857  M00S12508.dsd     +++|          RJM    ASD         ASSEMBLE ENTRY
20858  M00S12509.dsd     +++|          LDD    AB+4
20859  M00S12510.dsd     +++|          STD    T3          SAVE ENTRY
20860  M00S12511.dsd     +++|          LDD    MA          FETCH EXTENDED MEMORY WORD
20861  M00S12512.dsd     +++|          ADN    1
20862  M00S12513.dsd     +++|          CRD    AB
20863  M00S12514.dsd     +++|          LDD    T3
20864  M00S12515.dsd     +++|          STM    AB,T4       STORE BYTE
Line S12516 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
20865  M01S12516.252l678 ---| EEC1     LDD    MA          SET LIST ADDRESS
Line S00241 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
20866  M01S00241.252l678 +++| EEC3     LDD    MA          SET LIST ADDRESS
20867  M00S12517.dsd     +++|          STD    CM+2
20868  M00S12518.dsd     +++|          ADN    1           STORE WORD FOR EXTENDED MEMORY TRANSFER
20869  M00S12519.dsd     +++|          CWD    AB
20870  M00S12520.dsd     +++|          LDD    HN          SET NUMBER OF LIST ENTRIES = 1
20871  M00S12521.dsd     +++|          STD    CM+1
20872  M00S12522.dsd     +++|          LDD    T6
20873  M00S12523.dsd     +++|          STD    CM+3
20874  M00S12524.dsd     +++|          MONITOR ECSM       WRITE EXTENDED MEMORY WORD
20875  M00S12525.dsd     +++|*         UJN    ADV         ADVANCE ADDRESS
20876  M00S12526.dsd     +++| ADV      SPACE  4,10
20877  M00S12527.dsd     +++|**        ADV - ADVANCE/DECREMENT ADDRESS.
20878  M00S12528.dsd     +++|*
20879  M00S12529.dsd     +++|*         ENTRY  (SH) = CHARACTER POSITION OF ADDRESS.
20880  M00S12530.dsd     +++|*                (SH+1) = SEPARATOR ADDRESS.
20881  M00S12531.dsd     +++|*
20882  M00S12532.dsd     +++|*         USES   T1, T5.
20883  M00S12533.dsd     +++|*
20884  M00S12534.dsd     +++|*         CALLS C1D.
20885  M00S12535.dsd     +++|
20886  M00S12536.dsd     +++|
20887  M00S12537.dsd     +++| ADV      LDN    0           CHECK COMMAND LOGGING
20888  M00S12538.dsd     +++|          RJM    C1D
20889  M00S12539.dsd     +++|          LDD    SH+1
20890  M00S12540.dsd     +++|          STD    T5
20891  M00S12541.dsd     +++|          STD    T1
20892  M00S12542.dsd     +++|          LDI    T5          CHECK SEPARATOR
20893  M00S12543.dsd     +++|          SBN    1R+
20894  M00S12544.dsd     +++|          ZJN    ADV2        IF *+*
20895  M00S12545.dsd     +++|          SBN    1R--1R+
20896  M00S12546.dsd     +++|          ZJN    ADV6        IF *-*
20897  M00S12547.dsd     +++|          JMP    KBR         RETURN
20898  M00S12548.dsd     +++|
20899  M00S12549.dsd     +++| ADV1     AOI    T5          ADVANCE ENTRY
20900  M00S12550.dsd     +++|          SBN    1R8
20901  M00S12551.dsd     +++|          MJN    ADV4        IF NO OVERFLOW
20902  M00S12552.dsd     +++|          LDN    1R0         RESET DIGIT
20903  M00S12553.dsd     +++|          STI    T5
20904  M00S12554.dsd     +++| ADV2     SOD    T5
20905  M00S12555.dsd     +++|          ADC    -KBUF-1
20906  M00S12556.dsd     +++|          PJN    ADV1        IF NOT PAST START OF BUFFER
20907  M00S12557.dsd     +++|          LDN    KBUFL-2
20908  M00S12558.dsd     +++|          STD    T5
20909  M00S12559.dsd     +++| ADV3     LDM    KBUF+1,T5   MOVE CONTENTS OF BUFFER
20910  M00S12560.dsd     +++|          STM    KBUF+2,T5
20911  M00S12561.dsd     +++|          SOD    T5
20912  M00S12562.dsd     +++|          PJN    ADV3        IF BUFFER NOT MOVED
20913  M00S12563.dsd     +++|          LDN    1R1         SET FIRST CHARACTER OF ADDRESS
20914  M00S12564.dsd     +++|          STM    KBUF+1
20915  M00S12565.dsd     +++|          AOD    KI          INCREMENT KEYBOARD INDEX
20916  M00S12566.dsd     +++|          AOD    T1          SKIP PREVIOUS CHARACTER
20917  M00S12567.dsd     +++| ADV4     UJN    ADV7        CHECK NEXT CHARACTER
20918  M00S12568.dsd     +++|
20919  M00S12569.dsd     +++| ADV5     SOI    T5          DECREMENT ENTRY
20920  M00S12570.dsd     +++|          SBN    1R0
20921  M00S12571.dsd     +++|          PJN    ADV7        IF NO UNDERFLOW
20922  M00S12572.dsd     +++|          LDN    1R7         RESET DIGIT
20923  M00S12573.dsd     +++|          STI    T5
20924  M00S12574.dsd     +++| ADV6     SOD    T5
20925  M00S12575.dsd     +++|          ADC    -KBUF-1
20926  M00S12576.dsd     +++|          PJN    ADV5        IF NOT PAST START OF BUFFER
20927  M00S12577.dsd     +++| ADV7     AOD    T1          SKIP SEPARATOR
20928  M00S12578.dsd     +++|          LDI    T1          CHECK NEXT CHARACTER
20929  M00S12579.dsd     +++|          SBN    1RD
20930  M00S12580.dsd     +++|          NJN    ADV8        IF NOT *D*
20931  M00S12581.dsd     +++|          AOD    T1          SKIP *D*
20932  M00S12582.dsd     +++| ADV8     LDD    T1
20933  M00S12583.dsd     +++|          ADC    -KBUF
20934  M00S12584.dsd     +++|          LJM    KPC         RETURN TO PARTIAL CLEAR
20935  M00S12585.dsd     +++| ASR      SPACE  4,10
Line S12586 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
20936  M01S12586.252l678 ---|**        ASR - ASSEMBLE ADDRESS AND READ ECS.
Line S00242 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
20937  M01S00242.252l678 +++|**        ASR - ASSEMBLE ADDRESS AND READ EXTENDED MEMORY.
20938  M00S12587.dsd     +++|*
20939  M00S12588.dsd     +++|*         ENTRY  (CA) = CHARACTER ADDRESS.
20940  M00S12589.dsd     +++|*
20941  M00S12590.dsd     +++|*         EXIT   (CA) = ADVANCED CHARACTER ADDRESS.
20942  M00S12591.dsd     +++|*                (SH+1) = SEPARATOR ADDRESS
20943  M00S12592.dsd     +++|*                (T6) = *ECSM* WRITE LIST SUBFUNCTION CODE.
20944  M00S12593.dsd     +++|*                (MB) = LIST ENTRY FOR EXTENDED MEMORY TRANSFER.
20945  M00S12594.dsd     +++|*
20946  M00S12595.dsd     +++|*         USES   CA, SH+1, T6, AB - AB+4, CM - CM+4, SR - SR+4.
20947  M00S12596.dsd     +++|*
Line S12597 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
20948  M01S12597.252l678 ---|*         CALLS  ASD, GCP.
Line S00243 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
20949  M01S00243.252l678 +++|*         CALLS  ASD.
20950  M00S12598.dsd     +++|*
20951  M00S12599.dsd     +++|*         MACROS MONITOR.
20952  M00S12600.dsd     +++|
20953  M00S12601.dsd     +++|
20954  M00S12602.dsd     +++| ASR      SUBR
20955  M00S12603.dsd     +++|          LDD    LS          CHECK LEFT SCREEN DISPLAY
20956  M00S12604.dsd     +++|          LMN    1RM
Line S12605 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
20957  M01S12605.252l678 ---|          ZJN    ASR1        IF *M*
20958  M01S12606.252l678 ---|          JMP    KIE         *INCORRECT ENTRY*
Line S00244 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
20959  M01S00244.252l678 +++|          ZJN    ASR2        IF *M*
20960  M01S00245.252l678 +++| ASR1     JMP    KIE         *INCORRECT ENTRY*
20961  M00S12607.dsd     +++|
Line S12608 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
20962  M01S12608.252l678 ---| ASR1     LDC    /DSD/TJMM+1
20963  M01S12609.252l678 ---|          RJM    GCP         GET CPA ADDRESS
20964  M01S12610.252l678 ---|          ZJN    ASR2        IF NO JSN
20965  M01S12611.252l678 ---|          ADN    ECSW
20966  M01S12612.252l678 ---|          CRD    CM
20967  M01S12613.252l678 ---|          UJN    ASR3        CONTINUE
20968  M01S12614.252l678 ---|
20969  M01S12615.252l678 ---| ASR2     STD    CM+3        SET SYSTEM CP RA
20970  M01S12616.252l678 ---| ASR3     RJM    ASD         ASSEMBLE ADDRESS
20971  M01S12617.252l678 ---|          LDD    CM+3        ADD RAE TO EXTENDED MEMORY ADDRESS
20972  M01S12618.252l678 ---|          LPN    7
20973  M01S12619.252l678 ---|          SHN    11
20974  M01S12620.252l678 ---|          RAD    AB+4
20975  M01S12621.252l678 ---|          SHN    -14
20976  M01S12622.252l678 ---|          RAD    AB+3
20977  M01S12623.252l678 ---|          LDD    CM+3
20978  M01S12624.252l678 ---|          SHN    -3
20979  M01S12625.252l678 ---|          RAD    AB+3
20980  M01S12626.252l678 ---|          LDC    EDBP
Line S00246 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
20981  M01S00246.252l678 +++| ASR2     RJM    ASD         ASSEMBLE ADDRESS
20982  M01S00247.252l678 +++|          LDM    .FLFT+EMFL
20983  M01S00248.252l678 +++|          SBD    AB+3
20984  M01S00249.252l678 +++|          MJN    ASR1        IF ADDRESS .GT. FLE
20985  M01S00250.252l678 +++|          NJN    ASR3        IF LEGAL ADDRESS
20986  M01S00251.252l678 +++|          LDD    AB+4
20987  M01S00252.252l678 +++|          SBM    .FLFT+EMFL+1
20988  M01S00253.252l678 +++|          PJN    ASR1        IF ADDRESS .GE. FLE
20989  M01S00254.252l678 +++| ASR3     LDK    EDBP
20990  M00S12627.dsd     +++|          CRD    SR
20991  M00S12628.dsd     +++|          LDD    SR
Line S12629 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
20992  M01S12629.252l678 ---|          SHN    14
20993  M01S12630.252l678 ---|          LMD    SR+1
20994  M01S12631.252l678 ---|          ZJN    ASR4        IF EXTENDED MEMORY UNDEFINED
20995  M01S12632.252l678 ---|          LDN    MEFL        READ MACHINE EXTENDED MEMORY SIZE/1000
20996  M01S12633.252l678 ---|          CRD    SR
20997  M01S12634.252l678 ---|          LDD    CM+3
20998  M01S12635.252l678 ---|          ZJN    ASR3.1      IF ABSOLUTE EXTENDED MEMORY ADDRESS
20999  M01S12636.252l678 ---|          LDD    NC          VALIDATE USER EXTENDED MEMORY ADDRESS
21000  M01S12637.252l678 ---|          SHN    7
21001  M01S12638.252l678 ---|          ADN    ECSW
21002  M01S12639.252l678 ---|          CRD    SR
21003  M01S12640.252l678 ---|          LDD    SR+4
21004  M01S12641.252l678 ---|          RAD    SR+3        LWA+1 OF USER EXTENDED MEMORY / 1000B
21005  M01S12642.252l678 ---|          LDN    2           INDICATE READ FROM USER ECS
21006  M01S12643.252l678 ---| ASR3.1   ADN    /CPS/PELS*10  SET *ECSM* READ LIST SUBFUNCTION
Line S00255 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
21007  M01S00255.252l678 +++|          ADD    SR+1
21008  M01S00256.252l678 +++|          ZJN    ASR1        IF EXTENDED MEMORY UNDEFINED
21009  M01S00257.252l678 +++|          LDM    .FLFT+EMRA
21010  M01S00258.252l678 +++|          ADM    .FLFT+EMRA+1
21011  M01S00259.252l678 +++|          ZJN    ASR4        IF ABSOLUTE EXTENDED MEMORY ADDRESS
21012  M01S00260.252l678 +++|          LDM    .FLFT+EMRA+1  ADD RAE TO EXTENDED MEMORY ADDRESS
21013  M01S00261.252l678 +++|          RAD    AB+4
21014  M01S00262.252l678 +++|          SHN    -14
21015  M01S00263.252l678 +++|          ADM    .FLFT+EMRA
21016  M01S00264.252l678 +++|          RAD    AB+3
21017  M01S00265.252l678 +++|          LDN    2           INDICATE READ FROM USER EM
21018  M01S00266.252l678 +++| ASR4     ADN    /CPS/PELS*10  SET *ECSM* READ LIST SUBFUNCTION
21019  M00S12644.dsd     +++|          SHN    6
21020  M00S12645.dsd     +++|          STD    CM+3
21021  M00S12646.dsd     +++|          ADC    400         SAVE *ECSM* WRITE LIST SUBFUNCTION
21022  M00S12647.dsd     +++|          STD    T6
Line S00956 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
21023  M02S00956.252l678 ---|          LDD    SR+3
21024  M02S00957.252l678 ---|          ZJN    ASR5        IF NO CPU COUPLER FOR EXTENDED MEMORY
Line S12648 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
21025  M01S12648.252l678 ---|          LDM    EMMM
21026  M01S12649.252l678 ---|          SHN    21-13
21027  M01S12650.252l678 ---|          MJN    ASR5        IF IN ESM MODE
21028  M01S12651.252l678 ---|          LDD    SR+3
21029  M01S12652.252l678 ---|          SHN    -3          GET UPPER 12 BITS
21030  M01S12653.252l678 ---|          SBD    AB+3
21031  M01S12654.252l678 ---|          ZJN    ASR4.1      IF FURTHER TEST NEEDED
21032  M01S12655.252l678 ---|          PJN    ASR5        IF LEGAL ADDRESS
21033  M01S12656.252l678 ---| ASR4     JMP    KIE         *INCORRECT ENTRY*
21034  M01S12657.252l678 ---|
21035  M01S12658.252l678 ---| ASR4.1   LDD    SR+3
21036  M01S12659.252l678 ---|          LPN    7
21037  M01S12660.252l678 ---|          SHN    11          GET LOWER 12 BITS
21038  M01S12661.252l678 ---|          SBD    AB+4
21039  M01S12662.252l678 ---|          MJN    ASR4        IF INCORRECT ADDRESS
21040  M01S12663.252l678 ---|          ZJN    ASR4        IF INCORRECT ADDRESS
21041  M01S12664.252l678 ---| ASR5     LDD    HN          SET NUMBER OF WORDS TO READ = 1
Line S00267 Modification History
M01 (Added by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
21042  M01S00267.252l678 +++|          LDD    HN          SET NUMBER OF WORDS TO READ = 1
21043  M00S12665.dsd     +++|          STD    AB+1
21044  M00S12666.dsd     +++|          STD    CM+1        SET NUMBER OF LIST ENTRIES = 1
21045  M00S12667.dsd     +++|          LDD    MA          WRITE LIST ENTRY
21046  M00S12668.dsd     +++|          CWD    AB
21047  M00S12669.dsd     +++|          STD    CM+2        SET LIST ADDRESS
21048  M00S12670.dsd     +++|          MONITOR ECSM       READ EXTENDED MEMORY WORD
21049  M00S12671.dsd     +++|          LDD    MA          RESET LIST ENTRY FOR WRITE
21050  M00S12672.dsd     +++|          CWD    AB
21051  M00S12673.dsd     +++|          LDD    CA          SET SEPARATOR ADDRESS
21052  M00S12674.dsd     +++|          STD    SH+1
21053  M00S12675.dsd     +++|          AOD    CA          SKIP SEPERATOR
21054  M00S12676.dsd     +++|          LJM    ASRX        RETURN
Line S12677 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
21055  M01S12677.252l678 ---| GCP      SPACE  4,10
21056  M01S12678.252l678 ---|**        GCP - GET CPA ADDRESS.
21057  M01S12679.252l678 ---|*
21058  M01S12680.252l678 ---|*         ENTRY  (A) = JSN ADDRESS IN *TJAZ* TABLE.
21059  M01S12681.252l678 ---|*
21060  M01S12682.252l678 ---|*         EXIT   (A) = CPA ADDRESS OF JOB WITH DISPLAY-S JSN.
21061  M01S12683.252l678 ---|*                    = 0, IF NO JSN ASSOCIATED WITH DISPLAY.
21062  M01S12684.252l678 ---|*                (CN) = CP NUMBER.
21063  M01S12685.252l678 ---|*                (CP) = CPA ADDRESS, IF JSN DISPLAY.
21064  M01S12686.252l678 ---|*
21065  M01S12687.252l678 ---|*         USES   CN, CP, T3, AB - AB+4, CM - CM+4.
21066  M01S12688.252l678 ---|*
21067  M01S12689.252l678 ---|*         CALLS  GEE, IEE.
21068  M01S12690.252l678 ---|*
21069  M01S12691.252l678 ---|*         MACROS SFA.
21070  M01S12692.252l678 ---|
21071  M01S12693.252l678 ---|
21072  M01S12694.252l678 ---| GCP      SUBR               ENTRY/EXIT
21073  M01S12695.252l678 ---|          STD    T3
21074  M01S12696.252l678 ---|          LDI    T3
21075  M01S12697.252l678 ---|          ZJN    GCPX        IF JSN NOT PRESENT
21076  M01S12698.252l678 ---|          LDD    T3          SET FWA OF JSN TO FIND
21077  M01S12699.252l678 ---|          RJM    GEE         SEARCH EJT
21078  M01S12700.252l678 ---|          ZJN    GCP2        IF EJT ENTRY FOUND
21079  M01S12701.252l678 ---| GCP1     JMP    KIE         *INCORRECT ENTRY*
21080  M01S12702.252l678 ---|
21081  M01S12703.252l678 ---| GCP2     LDD    T3          INTERLOCK EJT ENTRY
21082  M01S12704.252l678 ---|          RJM    IEE
21083  M01S12705.252l678 ---|          MJN    GCP1        IF NOT INTERLOCKED
21084  M01S12706.252l678 ---|          SFA    EJT,EI      CALCULATE EJT ENTRY ADDRESS
21085  M01S12707.252l678 ---|          ERRNZ  JSNE        NOT FIRST WORD OF EJT ENTRY
21086  M01S12708.252l678 ---|          CRD    CM          GET JOB STATUS
21087  M01S12709.252l678 ---|          ADN    SCHE        GET CP NUMBER
21088  M01S12710.252l678 ---|          CRD    AB
21089  M01S12711.252l678 ---|          LDD    CM+4
21090  M01S12712.252l678 ---|          LPN    76
21091  M01S12713.252l678 ---|          LMN    EXJS*2
21092  M01S12714.252l678 ---|          NJN    GCP1        IF JOB NOT AT CP
21093  M01S12715.252l678 ---|          LDD    AB+3        SET CPA ADDRESS
21094  M01S12716.252l678 ---|          LPN    37
21095  M01S12717.252l678 ---|          STD    CN
21096  M01S12718.252l678 ---|          SHN    7
21097  M01S12719.252l678 ---|          STD    CP
21098  M01S12720.252l678 ---|          UJN    GCPX        RETURN
Line S12721 Modification History
M01 (Removed by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
21099  M02S12721.252l678 ---|          COMMAND  (ECS MEMORY CHANGES.)
Line S00958 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
21100  M02S00958.252l678 ---|          COMMAND  (EXTENDED MEMORY CHANGES - DISPLAY CODE.)
Line S12722 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
21101  M01S12722.252l678 ---| EED      SPACE  4,10
21102  M01S12723.252l678 ---|***       EXXXXXXX,DCCC-CCC
Line S12724 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
21103  M02S12724.252l678 ---|
Line S00671 Modification History
M01 (Added by) 242l642
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
21104  M02S00671.252l678 ---|*
Line S12725 Modification History
M01 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
21105  M01S12725.252l678 ---|*         ENTER DISPLAY CODE CHARACTERS CCC-CCC IN ECS MEMORY LOCATION
21106  M01S12726.252l678 ---|*         XXXXXXX.  ENTRY WILL BE LEFT JUSTIFIED.
21107  M01S12727.252l678 ---|
21108  M01S12728.252l678 ---|
21109  M01S12729.252l678 ---|          ENTRY  EED
21110  M01S12730.252l678 ---|          RJM    ASR         ASSEMBLE ADDRESS
21111  M01S12731.252l678 ---|          AOD    CA          SKIP *D*
21112  M01S12732.252l678 ---|          LDN    AB          SET BYTE ADDRESS
21113  M01S12733.252l678 ---|          STD    T1
21114  M01S12734.252l678 ---| EED1     LDI    CA
21115  M01S12735.252l678 ---|          SHN    6
21116  M01S12736.252l678 ---|          STI    T1
21117  M01S12737.252l678 ---|          AOD    CA          ADVANCE CHARACTER
21118  M01S12738.252l678 ---|          LDI    CA
21119  M01S12739.252l678 ---|          RAI    T1
21120  M01S12740.252l678 ---|          AOD    CA          ADVANCE CHARACTER
21121  M01S12741.252l678 ---|          AOD    T1          ADVANCE BYTE
21122  M01S12742.252l678 ---|          LMN    AB+5
21123  M01S12743.252l678 ---|          NJN    EED1        IF NOT 10 CHARACTERS
21124  M01S12744.252l678 ---|          LDD    MA          SET LIST ADDRESS
21125  M01S12745.252l678 ---|          STD    CM+2
21126  M01S12746.252l678 ---|          ADN    1           STORE WORD FOR EXTENDED MEMORY TRANSFER
21127  M01S12747.252l678 ---|          CWD    AB
21128  M01S12748.252l678 ---|          LDD    HN          SET NUMBER OF LIST ENTRIES = 1
21129  M01S12749.252l678 ---|          STD    CM+1
21130  M01S12750.252l678 ---|          LDD    T6
21131  M01S12751.252l678 ---|          STD    CM+3
21132  M01S12752.252l678 ---|          MONITOR ECSM       WRITE EXTENDED MEMORY WORD
21133  M01S12753.252l678 ---|*         UJN    ADV         ADVANCE ADDRESS
21134  M01S12754.252l678 ---| ADV      SPACE  4,10
21135  M01S12755.252l678 ---|**        ADV - ADVANCE/DECREMENT ADDRESS.
21136  M01S12756.252l678 ---|*
21137  M01S12757.252l678 ---|*         ENTRY  (SH) = CHARACTER POSITION OF ADDRESS.
21138  M01S12758.252l678 ---|*                (SH+1) = SEPARATOR ADDRESS.
21139  M01S12759.252l678 ---|*
21140  M01S12760.252l678 ---|*         USES   T1, T5.
21141  M01S12761.252l678 ---|*
21142  M01S12762.252l678 ---|*         CALLS C1D.
21143  M01S12763.252l678 ---|
21144  M01S12764.252l678 ---|
21145  M01S12765.252l678 ---| ADV      LDN    0           CHECK COMMAND LOGGING
21146  M01S12766.252l678 ---|          RJM    C1D
21147  M01S12767.252l678 ---|          LDD    SH+1
21148  M01S12768.252l678 ---|          STD    T5
21149  M01S12769.252l678 ---|          STD    T1
21150  M01S12770.252l678 ---|          LDI    T5          CHECK SEPARATOR
21151  M01S12771.252l678 ---|          SBN    1R+
21152  M01S12772.252l678 ---|          ZJN    ADV2        IF *+*
21153  M01S12773.252l678 ---|          SBN    1R--1R+
21154  M01S12774.252l678 ---|          ZJN    ADV6        IF *-*
21155  M01S12775.252l678 ---|          JMP    KBR         RETURN
21156  M01S12776.252l678 ---|
21157  M01S12777.252l678 ---| ADV1     AOI    T5          ADVANCE ENTRY
21158  M01S12778.252l678 ---|          SBN    1R8
21159  M01S12779.252l678 ---|          MJN    ADV4        IF NO OVERFLOW
21160  M01S12780.252l678 ---|          LDN    1R0         RESET DIGIT
21161  M01S12781.252l678 ---|          STI    T5
21162  M01S12782.252l678 ---| ADV2     SOD    T5
21163  M01S12783.252l678 ---|          ADC    -KBUF-1
21164  M01S12784.252l678 ---|          PJN    ADV1        IF NOT PAST START OF BUFFER
21165  M01S12785.252l678 ---|          LDN    KBUFL-2
21166  M01S12786.252l678 ---|          STD    T5
21167  M01S12787.252l678 ---| ADV3     LDM    KBUF+1,T5   MOVE CONTENTS OF BUFFER
21168  M01S12788.252l678 ---|          STM    KBUF+2,T5
21169  M01S12789.252l678 ---|          SOD    T5
21170  M01S12790.252l678 ---|          PJN    ADV3        IF BUFFER NOT MOVED
21171  M01S12791.252l678 ---|          LDN    1R1         SET FIRST CHARACTER OF ADDRESS
21172  M01S12792.252l678 ---|          STM    KBUF+1
21173  M01S12793.252l678 ---|          AOD    KI          INCREMENT KEYBOARD INDEX
21174  M01S12794.252l678 ---|          AOD    T1          SKIP PREVIOUS CHARACTER
21175  M01S12795.252l678 ---| ADV4     UJN    ADV7        CHECK NEXT CHARACTER
21176  M01S12796.252l678 ---|
21177  M01S12797.252l678 ---| ADV5     SOI    T5          DECREMENT ENTRY
21178  M01S12798.252l678 ---|          SBN    1R0
21179  M01S12799.252l678 ---|          PJN    ADV7        IF NO UNDERFLOW
21180  M01S12800.252l678 ---|          LDN    1R7         RESET DIGIT
21181  M01S12801.252l678 ---|          STI    T5
21182  M01S12802.252l678 ---| ADV6     SOD    T5
21183  M01S12803.252l678 ---|          ADC    -KBUF-1
21184  M01S12804.252l678 ---|          PJN    ADV5        IF NOT PAST START OF BUFFER
21185  M01S12805.252l678 ---| ADV7     AOD    T1          SKIP SEPARATOR
21186  M01S12806.252l678 ---|          LDI    T1          CHECK NEXT CHARACTER
21187  M01S12807.252l678 ---|          SBN    1RD
21188  M01S12808.252l678 ---|          NJN    ADV8        IF NOT *D*
21189  M01S12809.252l678 ---|          AOD    T1          SKIP *D*
21190  M01S12810.252l678 ---| ADV8     LDD    T1
21191  M01S12811.252l678 ---|          ADC    -KBUF
21192  M01S12812.252l678 ---|          LJM    KPC         RETURN TO PARTIAL CLEAR
21193  M01S12813.252l678 ---| ASR      SPACE  4,10
21194  M01S12814.252l678 ---|**        ASR - ASSEMBLE ADDRESS AND READ ECS.
21195  M01S12815.252l678 ---|*
21196  M01S12816.252l678 ---|*         ENTRY  (CA) = CHARACTER ADDRESS.
21197  M01S12817.252l678 ---|*
21198  M01S12818.252l678 ---|*         EXIT   (CA) = ADVANCED CHARACTER ADDRESS.
21199  M01S12819.252l678 ---|*                (SH+1) = SEPARATOR ADDRESS
21200  M01S12820.252l678 ---|*                (T6) = *ECSM* WRITE LIST SUBFUNCTION CODE.
21201  M01S12821.252l678 ---|*                (MB) = LIST ENTRY FOR EXTENDED MEMORY TRANSFER.
21202  M01S12822.252l678 ---|*
21203  M01S12823.252l678 ---|*         USES   CA, SH+1, T6, AB - AB+4, CM - CM+4, SR - SR+4.
21204  M01S12824.252l678 ---|*
21205  M01S12825.252l678 ---|*         CALLS  ASD, GCP.
21206  M01S12826.252l678 ---|*
21207  M01S12827.252l678 ---|*         MACROS MONITOR.
21208  M01S12828.252l678 ---|
21209  M01S12829.252l678 ---|
21210  M01S12830.252l678 ---| ASR      SUBR
21211  M01S12831.252l678 ---|          LDD    LS          CHECK LEFT SCREEN DISPLAY
21212  M01S12832.252l678 ---|          LMN    1RM
21213  M01S12833.252l678 ---|          ZJN    ASR1        IF *M*
21214  M01S12834.252l678 ---|          JMP    KIE         *INCORRECT ENTRY*
21215  M01S12835.252l678 ---|
21216  M01S12836.252l678 ---| ASR1     LDC    /DSD/TJMM+1
21217  M01S12837.252l678 ---|          RJM    GCP         GET CPA ADDRESS
21218  M01S12838.252l678 ---|          ZJN    ASR2        IF NO JSN
21219  M01S12839.252l678 ---|          ADN    ECSW
21220  M01S12840.252l678 ---|          CRD    CM
21221  M01S12841.252l678 ---|          UJN    ASR3        CONTINUE
21222  M01S12842.252l678 ---|
21223  M01S12843.252l678 ---| ASR2     STD    CM+3        SET SYSTEM CP RA
21224  M01S12844.252l678 ---| ASR3     RJM    ASD         ASSEMBLE ADDRESS
21225  M01S12845.252l678 ---|          LDD    CM+3        ADD RAE TO EXTENDED MEMORY ADDRESS
21226  M01S12846.252l678 ---|          LPN    7
21227  M01S12847.252l678 ---|          SHN    11+UESF
21228  M01S12848.252l678 ---|          RAD    AB+4
21229  M01S12849.252l678 ---|          SHN    -14
21230  M01S12850.252l678 ---|          RAD    AB+3
21231  M01S12851.252l678 ---|          LDD    CM+3
21232  M01S12852.252l678 ---|          SHN    -3
21233  M01S12853.252l678 ---|          RAD    AB+3
21234  M01S12854.252l678 ---|          LDC    EDBP
21235  M01S12855.252l678 ---|          CRD    SR
21236  M01S12856.252l678 ---|          LDD    SR
21237  M01S12857.252l678 ---|          SHN    14
21238  M01S12858.252l678 ---|          LMD    SR+1
21239  M01S12859.252l678 ---|          ZJN    ASR4        IF EXTENDED MEMORY UNDEFINED
21240  M01S12860.252l678 ---|          LDN    MEFL        READ MACHINE EXTENDED MEMORY SIZE/1000
21241  M01S12861.252l678 ---|          CRD    SR
21242  M01S12862.252l678 ---|          LDD    CM+3
21243  M01S12863.252l678 ---|          ZJN    ASR3.1      IF ABSOLUTE EXTENDED MEMORY ADDRESS
21244  M01S12864.252l678 ---|          LDD    NC          VALIDATE USER EXTENDED MEMORY ADDRESS
21245  M01S12865.252l678 ---|          SHN    7
21246  M01S12866.252l678 ---|          ADN    ECSW
21247  M01S12867.252l678 ---|          CRD    SR
21248  M01S12868.252l678 ---|          LDD    SR+4
21249  M01S12869.252l678 ---|          RAD    SR+3        LWA+1 OF USER ECS FL/*UEBS*
21250  M01S12870.252l678 ---|          LDN    2           INDICATE READ FROM USER ECS
21251  M01S12871.252l678 ---| ASR3.1   ADN    /CPS/PELS*10  SET *ECSM* READ LIST SUBFUNCTION
21252  M01S12872.252l678 ---|          SHN    6
21253  M01S12873.252l678 ---|          STD    CM+3
21254  M01S12874.252l678 ---|          ADC    400         SAVE *ECSM* WRITE LIST SUBFUNCTION
21255  M01S12875.252l678 ---|          STD    T6
21256  M01S12876.252l678 ---|          LDD    SR+3
21257  M01S12877.252l678 ---|          SHN    -3          GET UPPER 12 BITS
21258  M01S12878.252l678 ---|          SBD    AB+3
21259  M01S12879.252l678 ---|          MJN    ASR4        IF INCORRECT ADDRESS
21260  M01S12880.252l678 ---|          NJN    ASR5        IF LEGAL ADDRESS
21261  M01S12881.252l678 ---|          LDD    SR+3
21262  M01S12882.252l678 ---|          LPN    7
21263  M01S12883.252l678 ---|          SHN    11          GET LOWER 12 BITS
21264  M01S12884.252l678 ---|          SBD    AB+4
21265  M01S12885.252l678 ---|          MJN    ASR4        IF INCORRECT ADDRESS
21266  M01S12886.252l678 ---|          NJN    ASR5        IF LEGAL ADDRESS
21267  M01S12887.252l678 ---| ASR4     JMP    KIE         *INCORRECT ENTRY*
21268  M01S12888.252l678 ---|
21269  M01S12889.252l678 ---| ASR5     LDD    HN          SET NUMBER OF WORDS TO READ = 1
21270  M01S12890.252l678 ---|          STD    AB+1
21271  M01S12891.252l678 ---|          STD    CM+1        SET NUMBER OF LIST ENTRIES = 1
21272  M01S12892.252l678 ---|          LDD    MA          WRITE LIST ENTRY
21273  M01S12893.252l678 ---|          CWD    AB
21274  M01S12894.252l678 ---|          STD    CM+2        SET LIST ADDRESS
21275  M01S12895.252l678 ---|          MONITOR ECSM       READ EXTENDED MEMORY WORD
21276  M01S12896.252l678 ---|          LDD    MA          RESET LIST ENTRY FOR WRITE
21277  M01S12897.252l678 ---|          CWD    AB
21278  M01S12898.252l678 ---|          LDD    CA          SET SEPARATOR ADDRESS
21279  M01S12899.252l678 ---|          STD    SH+1
21280  M01S12900.252l678 ---|          AOD    CA          SKIP SEPERATOR
21281  M01S12901.252l678 ---|          LJM    ASRX        RETURN
21282  M01S12902.252l678 ---| GCP      SPACE  4,10
21283  M01S12903.252l678 ---|**        GCP - GET CPA ADDRESS.
21284  M01S12904.252l678 ---|*
21285  M01S12905.252l678 ---|*         ENTRY  (A) = JSN ADDRESS IN *TJAZ* TABLE.
21286  M01S12906.252l678 ---|*
21287  M01S12907.252l678 ---|*         EXIT   (A) = CPA ADDRESS OF JOB WITH DISPLAY-S JSN.
21288  M01S12908.252l678 ---|*                    = 0, IF NO JSN ASSOCIATED WITH DISPLAY.
21289  M01S12909.252l678 ---|*                (CN) = CP NUMBER.
21290  M01S12910.252l678 ---|*                (CP) = CPA ADDRESS, IF JSN DISPLAY.
21291  M01S12911.252l678 ---|*
21292  M01S12912.252l678 ---|*         USES   CN, CP, T3, AB - AB+4, CM - CM+4.
21293  M01S12913.252l678 ---|*
21294  M01S12914.252l678 ---|*         CALLS  GEE, IEE.
21295  M01S12915.252l678 ---|*
21296  M01S12916.252l678 ---|*         MACROS SFA.
21297  M01S12917.252l678 ---|
21298  M01S12918.252l678 ---|
21299  M01S12919.252l678 ---| GCP      SUBR               ENTRY/EXIT
21300  M01S12920.252l678 ---|          STD    T3
21301  M01S12921.252l678 ---|          LDI    T3
21302  M01S12922.252l678 ---|          ZJN    GCPX        IF JSN NOT PRESENT
21303  M01S12923.252l678 ---|          LDD    T3          SET FWA OF JSN TO FIND
21304  M01S12924.252l678 ---|          RJM    GEE         SEARCH EJT
21305  M01S12925.252l678 ---|          ZJN    GCP2        IF EJT ENTRY FOUND
21306  M01S12926.252l678 ---| GCP1     JMP    KIE         *INCORRECT ENTRY*
21307  M01S12927.252l678 ---|
21308  M01S12928.252l678 ---| GCP2     LDD    T3          INTERLOCK EJT ENTRY
21309  M01S12929.252l678 ---|          RJM    IEE
21310  M01S12930.252l678 ---|          MJN    GCP1        IF NOT INTERLOCKED
21311  M01S12931.252l678 ---|          SFA    EJT,EI      CALCULATE EJT ENTRY ADDRESS
21312  M01S12932.252l678 ---|          ERRNZ  JSNE        NOT FIRST WORD OF EJT ENTRY
21313  M01S12933.252l678 ---|          CRD    CM          GET JOB STATUS
21314  M01S12934.252l678 ---|          ADN    SCHE        GET CP NUMBER
21315  M01S12935.252l678 ---|          CRD    AB
21316  M01S12936.252l678 ---|          LDD    CM+4
21317  M01S12937.252l678 ---|          LPN    76
21318  M01S12938.252l678 ---|          LMN    EXJS*2
21319  M01S12939.252l678 ---|          NJN    GCP1        IF JOB NOT AT CP
21320  M01S12940.252l678 ---|          LDD    AB+3        SET CPA ADDRESS
21321  M01S12941.252l678 ---|          LPN    37
21322  M01S12942.252l678 ---|          STD    CN
21323  M01S12943.252l678 ---|          SHN    7
21324  M01S12944.252l678 ---|          STD    CP
21325  M01S12945.252l678 ---|          UJN    GCPX        RETURN
Line S12946 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21326  M01S12946.274l797 ---| LDC      SPACE  4,10
Line S00707 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21327  M01S00707.274l797 +++|          SPACE  4,10
21328  M01S00708.274l797 +++|          CMDEND
21329  M00S12947.dsd     +++|          COMMAND  (CHANNEL COMMANDS.),CMR
21330  M00S12948.dsd     +++| LDC      SPACE  4,10
21331  M00S12949.dsd     +++|***       LDC,XXXX.
21332  M00S12950.dsd     +++|*
21333  M00S12951.dsd     +++|*         LOAD CHANNEL A REGISTER WITH XXXX.
21334  M00S12952.dsd     +++|
21335  M00S12953.dsd     +++|
21336  M00S12954.dsd     +++|          ENTRY  LDC
21337  M00S12955.dsd     +++|          RJM    ASD         ASSEMBLE DIGITS
21338  M00S12956.dsd     +++|          LDD    AB+4        ENTER A REGISTER
21339  M00S12957.dsd     +++|          STD    AR
21340  M00S12958.dsd     +++|          JMP    KBR         RETURN
21341  M00S12959.dsd     +++| DCH      SPACE  4,10
21342  M00S12960.dsd     +++|***       DCH,XX.
21343  M00S12961.dsd     +++|*
21344  M00S12962.dsd     +++|*         DROP CHANNEL XX.
21345  M00S12963.dsd     +++|
21346  M00S12964.dsd     +++|
21347  M00S12965.dsd     +++|          ENTRY  DCH
21348  M00S12966.dsd     +++|          RJM    PSC         PRESET CHANNELS
21349  M00S12967.dsd     +++|          LDD    AB+4        DROP CHANNEL
21350  M00S12968.dsd     +++|          STD    CM+1
21351  M00S12969.dsd     +++|          MONITOR DCHM
21352  M00S12970.dsd     +++|          JMP    KBR         RETURN
21353  M00S12971.dsd     +++| DCN      SPACE  4,10
21354  M00S12972.dsd     +++|***       DCN,XX.
21355  M00S12973.dsd     +++|*
21356  M00S12974.dsd     +++|*         DISCONNECT CHANNEL XX.
21357  M00S12975.dsd     +++|
21358  M00S12976.dsd     +++|
21359  M00S12977.dsd     +++|          ENTRY  DCN
21360  M00S12978.dsd     +++|          RJM    PSC         PRESET CHANNELS
21361  M00S12979.dsd     +++| DCN1     IJM    KMS,**      IF CHANNEL INACTIVE
21362  M00S12980.dsd     +++| DCN2     DCN    40          DEACTIVATE CHANNEL
21363  M00S12981.dsd     +++|          JMP    KBR         RETURN
21364  M00S12982.dsd     +++| FCN      SPACE  4,10
21365  M00S12983.dsd     +++|***       FCN,XX.
21366  M00S12984.dsd     +++|*         FCN,XX,YYYY.
21367  M00S12985.dsd     +++|*
21368  M00S12986.dsd     +++|*         FUNCTION CHANNEL XX WITH ZERO.
21369  M00S12987.dsd     +++|*         FUNCTION CHANNEL XX WITH YYYY.
21370  M00S12988.dsd     +++|
21371  M00S12989.dsd     +++|
21372  M00S12990.dsd     +++|          ENTRY  FCN
21373  M00S12991.dsd     +++|          RJM    PSC         PRESET CHANNELS
21374  M00S12992.dsd     +++|          AOD    CA          ASSEMBLE FUNCTION
21375  M00S12993.dsd     +++|          RJM    ASD
21376  M00S12994.dsd     +++|          LDN    0           SET NO MESSAGE
21377  M00S12995.dsd     +++| FCN1     AJM    KMS,**      IF CHANNEL ACTIVE
21378  M00S12996.dsd     +++|          LDD    AB+4        SET FUNCTION
21379  M00S12997.dsd     +++|          STM    FCNA
21380  M00S12998.dsd     +++| FCN2     FNC    *,40        FUNCTION CHANNEL
21381  M00S12999.dsd     +++| FCNA     EQU    *-1
21382  M00S13000.dsd     +++|          JMP    KBR         RETURN
21383  M00S13001.dsd     +++| ACN      SPACE  4,10
21384  M00S13002.dsd     +++|***       ACN,XX.
21385  M00S13003.dsd     +++|*
21386  M00S13004.dsd     +++|*         ACTIVATE CHANNEL XX.
21387  M00S13005.dsd     +++|
21388  M00S13006.dsd     +++|
21389  M00S13007.dsd     +++|          ENTRY  ACN
21390  M00S13008.dsd     +++|          RJM    PSC         PRESET CHANNELS
21391  M00S13009.dsd     +++| ACN1     AJM    KMS,**      IF CHANNEL ACTIVE
21392  M00S13010.dsd     +++| ACN2     ACN    40          ACTIVATE CHANNEL
21393  M00S13011.dsd     +++|          JMP    KBR         RETURN
21394  M00S13012.dsd     +++| IAN      SPACE  4,10
21395  M00S13013.dsd     +++|***       IAN,XX.
21396  M00S13014.dsd     +++|*
21397  M00S13015.dsd     +++|*         INPUT TO CHANNEL *A* REGISTER FROM CHANNEL XX.
21398  M00S13016.dsd     +++|
21399  M00S13017.dsd     +++|
21400  M00S13018.dsd     +++|          ENTRY  IAN
21401  M00S13019.dsd     +++|          RJM    PSC         PRESET CHANNELS
21402  M00S13020.dsd     +++| IAN1     EJM    KMS,**      IF CHANNEL EMPTY
21403  M00S13021.dsd     +++| IAN2     IJM    KMS,**      IF CHANNEL INACTIVE
21404  M00S13022.dsd     +++| IAN3     IAN    40          INPUT TO *A*
21405  M00S13023.dsd     +++|          STD    AR
21406  M00S13024.dsd     +++|          JMP    KBR         RETURN
21407  M00S13025.dsd     +++| OAN      SPACE  4,10
21408  M00S13026.dsd     +++|***       OAN,XX.
21409  M00S13027.dsd     +++|*
21410  M00S13028.dsd     +++|*         OUTPUT FROM CHANNEL *A* REGISTER TO CHANNEL XX.
21411  M00S13029.dsd     +++|
21412  M00S13030.dsd     +++|
21413  M00S13031.dsd     +++|          ENTRY  OAN
21414  M00S13032.dsd     +++|          RJM    PSC         PRESET CHANNELS
21415  M00S13033.dsd     +++| OAN1     FJM    KMS,**      IF CHANNEL FULL
21416  M00S13034.dsd     +++| OAN2     IJM    KMS,**      IF CHANNEL INACTIVE
21417  M00S13035.dsd     +++|          LDD    AR          OUTPUT FROM *A*
21418  M00S13036.dsd     +++| OAN3     OAN    40
21419  M00S13037.dsd     +++|          JMP    KBR         RETURN
21420  M00S13038.dsd     +++| MCH      SPACE  4,10
21421  M00S13039.dsd     +++|***       MCH,XX.
21422  M00S13040.dsd     +++|*
21423  M00S13041.dsd     +++|*         MASTER CLEAR CHANNEL XX.
21424  M00S13042.dsd     +++|
21425  M00S13043.dsd     +++|
21426  M00S13044.dsd     +++|          ENTRY  MCH
21427  M00S13045.dsd     +++|          RJM    PSC         PRESET CHANNELS
21428  M00S13046.dsd     +++| MCH1     AJM    KMS,**      IF CHANNEL ACTIVE
21429  M00S13047.dsd     +++| MCH2     FNC    2000,40     SELECT 6681
21430  M00S13048.dsd     +++|          LDN    77          DELAY
21431  M00S13049.dsd     +++|          SBN    1
21432  M00S13050.dsd     +++|          NJN    *-1         IF MORE DELAY
21433  M00S13051.dsd     +++| MCH3     AJM    KBR,**      IF CHANNEL IS ACTIVE, ABORT
21434  M00S13052.dsd     +++| MCH4     FNC    1700,40     MASTER CLEAR
21435  M00S13053.dsd     +++|          JMP    KBR         RETURN
21436  M00S13054.dsd     +++| CFR      SPACE  4,10
21437  M00S13055.dsd     +++|***       CFR,XX.
21438  M00S13056.dsd     +++|*
21439  M00S13057.dsd     +++|*         CLEAR EXTENDED MEMORY FLAG REGISTER BIT XX.
21440  M00S13058.dsd     +++|
21441  M00S13059.dsd     +++|
21442  M00S13060.dsd     +++|          ENTRY  CFR
21443  M00S13061.dsd     +++|          LDN    CFRS        CLEAR FUNCTION
21444  M00S13062.dsd     +++|          UJN    SFR1        CLEAR BIT
21445  M00S13063.dsd     +++| SFR      SPACE  4,10
21446  M00S13064.dsd     +++|***       SFR,XX.
21447  M00S13065.dsd     +++|*
21448  M00S13066.dsd     +++|*         SET EXTENDED MEMORY FLAG REGISTER BIT XX.
21449  M00S13067.dsd     +++|
21450  M00S13068.dsd     +++|
21451  M00S13069.dsd     +++|          ENTRY  SFR
21452  M00S13070.dsd     +++|          LDN    SFRS        SET FUNCTION
21453  M00S13071.dsd     +++| SFR1     SHN    11          SAVE FLAG REGISTER FUNCTION
21454  M00S13072.dsd     +++|          STD    T4
21455  M00S13073.dsd     +++|          RJM    ASD         ASSEMBLE DIGITS
21456  M00S13074.dsd     +++|          LDC    MMFL
21457  M00S13075.dsd     +++|          CRD    CM
21458  M00S13076.dsd     +++|          LDD    CM+4
21459  M00S13077.dsd     +++|          ZJN    SFR2        IF NOT IN SHARED MODE
21460  M00S13078.dsd     +++|          LDD    AB
21461  M00S13079.dsd     +++|          ADD    AB+1
21462  M00S13080.dsd     +++|          ADD    AB+2
21463  M00S13081.dsd     +++|          ADD    AB+3
21464  M00S13082.dsd     +++|          NJN    SFR2        IF BIT NUMBER TOO LARGE
21465  M00S13083.dsd     +++|          LDD    AB+4
21466  M00S13084.dsd     +++|          SBN    22          CHECK BIT NUMBER TOO LARGE
21467  M00S13085.dsd     +++|          PJN    SFR2        IF BIT NUMBER GREATER THAN 17D
21468  M00S13086.dsd     +++|          LDD    AB+4
21469  M00S13087.dsd     +++|          SHN    6
21470  M00S13088.dsd     +++|          STD    CM+1
21471  M00S13089.dsd     +++|          LDD    T4
21472  M00S13090.dsd     +++|          STD    CM+3
Line S13091 Modification History
M01 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
21473  M01S13091.273l780 ---|          LDD    NC          SET SYSTEM CONTROL POINT
21474  M01S13092.273l780 ---|          STD    CN
21475  M00S13093.dsd     +++|          MONITOR  ECSM
21476  M00S13094.dsd     +++|          JMP    KBR         RETURN
21477  M00S13095.dsd     +++|
21478  M00S13096.dsd     +++| SFR2     JMP    KIE         INCORRECT ENTRY
21479  M00S13097.dsd     +++| PSC      SPACE  4,15
21480  M00S13098.dsd     +++|**        PSC - PRESET CHANNELS.
21481  M00S13099.dsd     +++|*
21482  M00S13100.dsd     +++|*         ENTRY  (CA) = CHARACTER INDEX.
21483  M00S13101.dsd     +++|*                ALL CHANNEL COMMANDS ARE CONSIDERED TO HAVE THREE
21484  M00S13102.dsd     +++|*                CHARACTER NAMES.
21485  M00S13103.dsd     +++|*
21486  M00S13104.dsd     +++|*         EXIT   CHANNEL INSTRUCTIONS MODIFIED.
21487  M00S13105.dsd     +++|*                (A) = 0.
21488  M00S13106.dsd     +++|*
21489  M00S13107.dsd     +++|*         USES   T1, T2.
21490  M00S13108.dsd     +++|*
21491  M00S13109.dsd     +++|*         CALLS  ASD.
21492  M00S13110.dsd     +++|
21493  M00S13111.dsd     +++|
21494  M00S13112.dsd     +++| PSC      SUBR               ENTRY/EXIT
21495  M00S13113.dsd     +++|          RJM    ASD         ASSEMBLE CHANNEL
21496  M00S13114.dsd     +++|          LDD    AB+4        CHECK CHANNEL
21497  M00S13115.dsd     +++|          SBN    40
21498  M00S13116.dsd     +++|          PJN    PSC2        IF NOT LEGAL CHANNEL
21499  M00S13117.dsd     +++|          LDC    TILC-1      SET INCORRECT CHANNEL TABLE
21500  M00S13118.dsd     +++|          STD    T1
21501  M00S13119.dsd     +++|          LDC    TPSC-1      SET PRESET CHANNEL TABLE
21502  M00S13120.dsd     +++|          STD    T2
21503  M00S13121.dsd     +++| PSC1     AOD    T1          ADVANCE TABLE
21504  M00S13122.dsd     +++|          LDI    T1
21505  M00S13123.dsd     +++|          ZJN    PSC3        IF END OF TABLE
21506  M00S13124.dsd     +++|          LMD    AB+4        COMPARE CHANNELS
21507  M00S13125.dsd     +++|          NJN    PSC1        IF NO MATCH
21508  M00S13126.dsd     +++| PSC2     JMP    KIE         INCORRECT ENTRY
21509  M00S13127.dsd     +++|
21510  M00S13128.dsd     +++| PSC3     AOD    T2          ADVANCE CHANNEL TABLE
21511  M00S13129.dsd     +++|          LDI    T2
21512  M00S13130.dsd     +++|          ZJN    PSCX        IF END OF TABLE
21513  M00S13131.dsd     +++|          STD    T1          MODIFY CHANNEL COMMANDS
21514  M00S13132.dsd     +++|          LDI    T1
21515  M00S13133.dsd     +++|          SCN    37
21516  M00S13134.dsd     +++|          LMD    AB+4
21517  M00S13135.dsd     +++|          STI    T1
21518  M00S13136.dsd     +++|          UJN    PSC3        LOOP
21519  M00S13137.dsd     +++| TILC     SPACE  4,10
21520  M00S13138.dsd     +++|**        TILC - TABLE OF INCORRECT CHANNELS.
21521  M00S13139.dsd     +++|
21522  M00S13140.dsd     +++|
21523  M00S13141.dsd     +++| TILC     BSS    0
21524  M00S13142.dsd     +++|          CON    CH          DISPLAY CHANNEL
21525  M00S13143.dsd     +++|          CON    CHMX        CYBER 170-8X5 TWO PORT MUX CHANNEL
21526  M00S13144.dsd     +++|          CON    CHMR        CYBER 170-8X5 MAINTENANCE CHANNEL
21527  M00S13145.dsd     +++|          CON    0           END OF TABLE
21528  M00S13146.dsd     +++| TPSC     SPACE  4,10
21529  M00S13147.dsd     +++|**        TPSC - TABLE OF CHANNEL INSTRUCTIONS.
21530  M00S13148.dsd     +++|
21531  M00S13149.dsd     +++|
21532  M00S13150.dsd     +++| TPSC     BSS    0
21533  M00S13151.dsd     +++|          CON    DCN1
21534  M00S13152.dsd     +++|          CON    DCN2
21535  M00S13153.dsd     +++|          CON    FCN1
21536  M00S13154.dsd     +++|          CON    FCN2
21537  M00S13155.dsd     +++|          CON    ACN1
21538  M00S13156.dsd     +++|          CON    ACN2
21539  M00S13157.dsd     +++|          CON    IAN1
21540  M00S13158.dsd     +++|          CON    IAN2
21541  M00S13159.dsd     +++|          CON    IAN3
21542  M00S13160.dsd     +++|          CON    OAN1
21543  M00S13161.dsd     +++|          CON    OAN2
21544  M00S13162.dsd     +++|          CON    OAN3
21545  M00S13163.dsd     +++|          CON    MCH1
21546  M00S13164.dsd     +++|          CON    MCH2
21547  M00S13165.dsd     +++|          CON    MCH3
21548  M00S13166.dsd     +++|          CON    MCH4
21549  M00S13167.dsd     +++|          CON    0           END OF TABLE
Line S00709 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21550  M01S00709.274l797 +++|          SPACE  4,10
21551  M01S00710.274l797 +++|          CMDEND
21552  M00S13168.dsd     +++|          COMMAND (K AND L DISPLAY PROCESSING.)
21553  M00S13169.dsd     +++| ECB      SPACE  4,10
21554  M00S13170.dsd     +++|***       K.CCC-CCC
21555  M00S13171.dsd     +++|*
21556  M00S13172.dsd     +++|*         ENTER CHARACTERS CCC-CCC IN CPU BUFFER FOR CONTROL ON
21557  M00S13173.dsd     +++|*         *K* DISPLAY.
21558  M00S13174.dsd     +++| ECB      SPACE  4,10
21559  M00S13175.dsd     +++|          ENTRY  ECB
21560  M00S13176.dsd     +++|          LDD    KI          GET KEYBOARD BUFFER INDEX
21561  M00S13177.dsd     +++|          SBN    53D
21562  M00S13178.dsd     +++|          MJN    ECB1        IF .LE. 50 CHARACTERS ENTERED
21563  M00S13179.dsd     +++|          LDC    ECBA        *LINE TOO LONG*
21564  M00S13180.dsd     +++|          LJM    KMS         REPORT ERROR
21565  M00S13181.dsd     +++|
21566  M00S13182.dsd     +++| ECB1     LDM    KBUF        SET DISPLAY INDEX
21567  M00S13183.dsd     +++|          STD    T1
Line S00001 Modification History
M01 (Added by) dsd117
Seq #  *Modification Id* Act 
----------------------------+
21568  M01S00001.dsd117  +++|          LDD    LS
21569  M01S00002.dsd117  +++|          LMN    1RK
21570  M01S00003.dsd117  +++|          NJN    ECB2        IF K DISPLAY NOT UP
21571  M00S13184.dsd     +++|          LDC    /DSD/TJKK+1
21572  M00S13185.dsd     +++|          RJM    SJS         SEARCH FOR JSN IN EJT
21573  M00S13186.dsd     +++|          MJN    ECB2        IF JOB NOT AT CP OR NO JSN ASSIGNED
21574  M00S13187.dsd     +++|          LDD    CP
21575  M00S13188.dsd     +++|          ADC    DBAW        READ DISPLAY POINTER
21576  M00S13189.dsd     +++|          CRD    CM
21577  M00S13190.dsd     +++|          LDD    CM          CHECK ADDRESS
21578  M00S13191.dsd     +++|          SHN    21-10
21579  M00S13192.dsd     +++|          PJN    ECB1.1      IF NOT SECURE K-DISPLAY
21580  M00S13193.dsd     +++|          LDN    0
21581  M00S13194.dsd     +++|          STM    /KEYBOARD/LKBA  CLEAR LOGGING FOR SECURE K-DISPLAY
21582  M00S13195.dsd     +++| ECB1.1   LDD    CM          CHECK ADDRESS
21583  M00S13196.dsd     +++|          LPN    77
21584  M00S13197.dsd     +++|          SHN    14
21585  M00S13198.dsd     +++|          LMD    CM+1
21586  M00S13199.dsd     +++|          NJN    ECB3        IF BUFFER DEFINED
21587  M00S13200.dsd     +++| ECB2     JMP    KIE         *INCORRECT ENTRY*
21588  M00S13201.dsd     +++|
21589  M00S13202.dsd     +++| ECB3     LDN    ZERL
21590  M00S13203.dsd     +++|          CRD    AB
21591  M00S13204.dsd     +++|          LDI    CA
21592  M00S13205.dsd     +++|          NJN    ECB4        IF FIRST CHARACTER NOT NULL
21593  M00S13206.dsd     +++|          LDN    1R          GUARANTEE AT LEAST 1 CHARACTER
21594  M00S13207.dsd     +++|          STI    CA
21595  M00S13208.dsd     +++| ECB4     LDD    CA          SAVE KEYBOARD OFFSET
21596  M00S13209.dsd     +++|          ADC    -KBUF
21597  M00S13210.dsd     +++|          SHN    6
21598  M00S13211.dsd     +++|          STD    AB+4
21599  M00S13212.dsd     +++|          LDN    2           SET KEYBOARD PARTIAL CLEAR INDEX
21600  M00S13213.dsd     +++|          STM    /KEYBOARD/KBCA
21601  M00S13214.dsd     +++|          LDD    CP          SET CP NUMBER
21602  M00S13215.dsd     +++|          SHN    -7
21603  M00S13216.dsd     +++|          RAD    AB+4
21604  M00S13217.dsd     +++|          LDC    /1DS/LOCK+/1DS/ECBF
21605  M00S13218.dsd     +++|          STD    AB+2
21606  M00S13219.dsd     +++|          LMC    /1DS/CMOV   SET CP MOVE
21607  M00S13220.dsd     +++|          JMP    KAR         CALL *1DS*
21608  M00S13221.dsd     +++|
21609  M00S13222.dsd     +++|
21610  M00S13223.dsd     +++| ECBA     DATA   C*LINE TOO LONG*
21611  M00S13224.dsd     +++| ELB      SPACE  4,10
21612  M00S13225.dsd     +++|***       L.CCC-CCC
21613  M00S13226.dsd     +++|*
21614  M00S13227.dsd     +++|*         ENTER CHARACTERS CCC-CCC IN CMR *L* DISPLAY BUFFER.
21615  M00S13228.dsd     +++|
21616  M00S13229.dsd     +++|
21617  M00S13230.dsd     +++|          ENTRY  ELB
Line S00004 Modification History
M01 (Added by) dsd117
Seq #  *Modification Id* Act 
----------------------------+
21618  M01S00004.dsd117  +++|          LDD    LS
21619  M01S00005.dsd117  +++|          LMN    1RL
21620  M01S00006.dsd117  +++|          NJP    ECB2        IF L DISPLAY NOT UP
21621  M00S13231.dsd     +++|          LDN    LCOM        COMMAND BUFFER LENGTH
21622  M00S13232.dsd     +++|          SHN    2
21623  M00S13233.dsd     +++|          ADN    LCOM+3
21624  M00S13234.dsd     +++|          STD    T1          STORE MAXIMUM NUMBER OF CHARACTERS
21625  M00S13235.dsd     +++|          LDD    KI          GET KEYBOARD BUFFER INDEX
21626  M00S13236.dsd     +++|          SBD    T1
21627  M00S13237.dsd     +++|          MJN    ELB1        IF NUMBER OF CHARACTERS .LE. LIMIT
21628  M00S13238.dsd     +++|          LDC    ECBA        *LINE TOO LONG*
21629  M00S13239.dsd     +++|          JMP    KMS         REPORT ERROR
21630  M00S13240.dsd     +++|
21631  M00S13241.dsd     +++|*         CHECK FOR INCORRECT ENTRY.
21632  M00S13242.dsd     +++|
21633  M00S13243.dsd     +++| ELB1     LDM    /COMDSYS/SYSC  READ *L* DISPLAY CONTROL WORD
21634  M00S13244.dsd     +++|          LPN    77
21635  M00S13245.dsd     +++|          STD    CM+3
21636  M00S13246.dsd     +++|          SHN    14
21637  M00S13247.dsd     +++|          LMM    /COMDSYS/SYSC+1
21638  M00S13248.dsd     +++|          STD    CM+4
21639  M00S13249.dsd     +++|          CRD    T1
21640  M00S13250.dsd     +++|          LDD    T1
21641  M00S13251.dsd     +++|          ADD    T2
21642  M00S13252.dsd     +++|          NJN    ELB2        IF JSN .NE. 0
21643  M00S13253.dsd     +++|          LDC    ELBB        *L DISPLAY NOT ASSIGNED*
21644  M00S13254.dsd     +++|          JMP    KMS         KEYBOARD ERROR MESSAGE RETURN
21645  M00S13255.dsd     +++|
21646  M00S13256.dsd     +++|*         CHECK IF COMMAND AVAILABLE.
21647  M00S13257.dsd     +++|
21648  M00S13258.dsd     +++| ELB2     LDD    T5
21649  M00S13259.dsd     +++|          SHN    21-5
21650  M00S13260.dsd     +++|          PJN    ELB3        IF COMMAND NOT AVAILABLE
21651  M00S13261.dsd     +++|          LDC    ELBC        *SYSTEM BUSY*
21652  M00S13262.dsd     +++|          JMP    KMS         KEYBOARD ERROR MESSAGE RETURN
21653  M00S13263.dsd     +++|
21654  M00S13264.dsd     +++|*         TRANSFER DATA TO CMR BUFFER.
21655  M00S13265.dsd     +++|
21656  M00S13266.dsd     +++| ELB3     LDN    LCOM        STORE MAXIMUM NUMBER OF WORDS
21657  M00S13267.dsd     +++|          STD    T6
21658  M00S13268.dsd     +++|          LDD    CM+3        WRITE WORDS TO CMR BUFFER
21659  M00S13269.dsd     +++|          SHN    14
21660  M00S13270.dsd     +++|          LMD    CM+4
21661  M00S13271.dsd     +++|          ADN    1
21662  M00S13272.dsd     +++|          CWM    KBUF+2,T6
21663  M00S13273.dsd     +++|
21664  M00S13274.dsd     +++|*         SET *L* DISPLAY STATUS TO REFLECT INPUT AVAILABLE.
21665  M00S13275.dsd     +++|
21666  M00S13276.dsd     +++|          LDD    T1          VERIFY *JSN* .NE. 0
21667  M00S13277.dsd     +++|          STM    ELBA+3
21668  M00S13278.dsd     +++|          LDD    T2
21669  M00S13279.dsd     +++|          STM    ELBA+4
21670  M00S13280.dsd     +++|          LDN    0
21671  M00S13281.dsd     +++|          STD    CM+2
21672  M00S13282.dsd     +++|          LDN    3
21673  M00S13283.dsd     +++|          STD    CM+1        STORE WORD COUNT OF OPTIONS
21674  M00S13284.dsd     +++|          LDD    MA
21675  M00S13285.dsd     +++|          CWM    ELBA,CM+1
21676  M00S13286.dsd     +++|          MONITOR  UTEM      SET BITS
21677  M00S13287.dsd     +++|          LDD    CM+1
21678  M00S13288.dsd     +++|          ZJN    ELB4        IF VERIFICATION PASSED
21679  M00S13289.dsd     +++|          LJM    ELB1        CHECK FOR INCORRECT ENTRY
21680  M00S13290.dsd     +++|
21681  M00S13291.dsd     +++|*         INDICATE *L* DISPLAY INPUT AVAILABLE.
21682  M00S13292.dsd     +++|
21683  M00S13293.dsd     +++| ELB4     LDN    ZERL        ISSUE *L* DISPLAY INPUT EVENT
21684  M00S13294.dsd     +++|          CRD    CM
21685  M00S13295.dsd     +++|          LDN    LINE
21686  M00S13296.dsd     +++|          STD    CM+4
21687  M00S13297.dsd     +++|          MONITOR EATM
21688  M00S13298.dsd     +++|
21689  M00S13299.dsd     +++|*         ENABLE THE NEXT *L.* PROMPT.
21690  M00S13300.dsd     +++|
21691  M00S13301.dsd     +++|          LDC    .FLFT
21692  M00S13302.dsd     +++|          STD    T1
21693  M00S13303.dsd     +++|          LDD    LS
21694  M00S13304.dsd     +++|          LMN    1RL
21695  M00S13305.dsd     +++|          ZJN    ELB5        IF *L* DISPLAY IS ON THE LEFT SCREEN
21696  M00S13306.dsd     +++|          LDC    .FRHT
21697  M00S13307.dsd     +++|          STD    T1
21698  M00S13308.dsd     +++|          LDD    RS
21699  M00S13309.dsd     +++|          LMN    1RL
21700  M00S13310.dsd     +++|          NJN    ELB6        IF *L* DISPLAY IS NOT ON THE RIGHT SCREEN
21701  M00S13311.dsd     +++| ELB5     STM    DSLA,T1
21702  M00S13312.dsd     +++| ELB6     JMP    KBR         KEYBOARD PROCESSOR
21703  M00S13313.dsd     +++|
21704  M00S13314.dsd     +++|
21705  M00S13315.dsd     +++|*         *UTEM* MONITOR FUNCTION BUFFER.
21706  M00S13316.dsd     +++|
21707  M00S13317.dsd     +++| ELBA     VFD    1/1,5/0,6/24D,6/36D,6/0  VERIFY *JSN* .NE. 0
21708  M00S13318.dsd     +++|          CON    0,0,0
21709  M00S13319.dsd     +++|          VFD    1/1,5/0,6/1,6/5,6/0  VERIFY COMMAND NOT ENTERED
21710  M00S13320.dsd     +++|          CON    0,0,0
21711  M00S13321.dsd     +++|          VFD    1/0,5/0,6/2,6/4,6/0  COMMAND ENTERED/NO INPUT REQUEST
21712  M00S13322.dsd     +++|          CON    0,0,2
21713  M00S13323.dsd     +++| ELBB     DATA   C*L DISPLAY NOT ASSIGNED*
21714  M00S13324.dsd     +++|
21715  M00S13325.dsd     +++| ELBC     DATA   C*SYSTEM BUSY*
Line S00711 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
21716  M01S00711.274l797 +++|          SPACE  4,10
21717  M01S00712.274l797 +++|          CMDEND
Line S00638 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21718  M01S00638.271l716 +++|          COMMAND  (EJT REQUESTS - PART 1.)
21719  M01S00639.271l716 +++| ECP      SPACE  4,10
21720  M01S00640.271l716 +++|***       ENPR,XXXX,NN.
21721  M01S00641.271l716 +++|*         ENPR,XXXX,*.
21722  M01S00642.271l716 +++|*
21723  M01S00643.271l716 +++|*         SET CPU PRIORITY NN ON JOB WITH JSN = XXXX.
Line S00644 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
21724  M02S00644.ns2731  ---|*         IF NN = *, USE LOWEST FIXED CPU PRIORITY.
Line S00001 Modification History
M01 (Added by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
21725  M01S00001.ns2731  +++|*         IF NN = *, SET CPU PRIORITY FROM SERVICE CLASS VALUE.
Line S00645 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21726  M01S00645.271l716 +++|*         JOB WITH JSN = XXXX CANNOT BE A SUBSYSTEM.
21727  M01S00646.271l716 +++|
21728  M01S00647.271l716 +++|
21729  M01S00648.271l716 +++|          ENTRY  ECP
Line S00649 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21730  M02S00649.ns2684  ---|          RJM    PJS         PROCESS JSN
21731  M02S00650.ns2684  ---|          LDD    AB+1
21732  M02S00651.ns2684  ---|          STM    IEEB+4      SAVE JSN FOR *UTEM* CALL
21733  M02S00652.ns2684  ---|          LDD    AB
21734  M02S00653.ns2684  ---|          STM    IEEB+3
21735  M02S00654.ns2684  ---|          LDD    T3          SAVE EJT ORDINAL
21736  M02S00655.ns2684  ---|          STM    IEEA
Line S00001 Modification History
M01 (Added by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21737  M01S00001.ns2684  +++|          RJM    ASN         ASSEMBLE JSN
21738  M01S00002.ns2684  +++|          LDD    AB+2
21739  M01S00003.ns2684  +++|          NJN    ECP1        IF JSN .GT. 4 CHARACTERS
21740  M01S00004.ns2684  +++|          LDD    AB+1
21741  M01S00005.ns2684  +++|          LPN    77
21742  M01S00006.ns2684  +++|          NJN    ECP0        IF JSN .EQ. 4 CHARACTERS
21743  M01S00007.ns2684  +++|          LDN    1R
21744  M01S00008.ns2684  +++|          RAD    AB+1
21745  M01S00009.ns2684  +++| ECP0     LDN    AB          GET EJT ENTRY
21746  M01S00010.ns2684  +++|          RJM    GEE
21747  M01S00011.ns2684  +++|          MJN    ECP1        IF EJT ENTRY NOT FOUND
21748  M01S00012.ns2684  +++|          ZJN    ECP1        IF SYSTEM CP
21749  M01S00013.ns2684  +++|          STD    T7          SAVE EJT ORDINAL
Line S00656 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21750  M01S00656.271l716 +++|          SFA    EJT         GET SERVICE CLASS
21751  M01S00657.271l716 +++|          ADN    SCLE
21752  M01S00658.271l716 +++|          CRD    SR
21753  M01S00659.271l716 +++|          LDD    SR          CHECK SERVICE CLASS
21754  M01S00660.271l716 +++|          SHN    -6
21755  M01S00661.271l716 +++|          LMN    SSSC
21756  M01S00662.271l716 +++|          NJN    ECP2        IF NOT SUBSYSTEM
21757  M01S00663.271l716 +++| ECP1     JMP    KIE         *INCORRECT ENTRY*
21758  M01S00664.271l716 +++|
Line S00665 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21759  M02S00665.ns2684  ---| ECP2     AOD    CA          SKIP SEPARATOR
Line S00014 Modification History
M01 (Added by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21760  M01S00014.ns2684  +++| ECP2     LDD    AB          SAVE JSN FOR *1DS* CALL
21761  M01S00015.ns2684  +++|          STD    SP+3
21762  M01S00016.ns2684  +++|          LDD    AB+1
21763  M01S00017.ns2684  +++|          STD    SP+4
21764  M01S00018.ns2684  +++|          AOD    CA          SKIP SEPARATOR
Line S00666 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21765  M01S00666.271l716 +++|          LDI    CA
21766  M01S00667.271l716 +++|          LMN    1R*
21767  M01S00668.271l716 +++|          NJN    ECP3        IF NEXT CHARACTER NOT ASTERISK
Line S00669 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
21768  M02S00669.ns2731  ---|          LDN    LFCS
Line S00002 Modification History
M01 (Added by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
21769  M01S00002.ns2731  +++|          LDN    0           INDICATE SET SERVICE CLASS PRIORITY
Line S00019 Modification History
M01 (Added by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21770  M01S00019.ns2684  +++|          STD    AB+4
Line S00670 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
21771  M02S00670.ns2731  ---|          UJN    ECP4        SET LOWEST FIXED CPU PRIORITY
Line S00003 Modification History
M01 (Added by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
21772  M01S00003.ns2731  +++|          UJN    ECP4        SET *1DS* CALL
Line S00671 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21773  M01S00671.271l716 +++|
21774  M01S00672.271l716 +++| ECP3     RJM    ASD         ASSEMBLE CPU PRIORITY
21775  M01S00673.271l716 +++|          LDD    AB+4
Line S00674 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21776  M02S00674.ns2684  ---| ECP4     STM    ECPB        VALIDATE PRIORITY
21777  M02S00675.ns2684  ---|          SBN    LJCS
Line S00020 Modification History
M01 (Added by) ns2684
M02 (Removed by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
21778  M02S00020.ns2731  ---| ECP4     SBN    LJCS
Line S00004 Modification History
M01 (Added by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
21779  M01S00004.ns2731  +++|          SBN    LJCS
Line S00676 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21780  M01S00676.271l716 +++|          MJN    ECP1        IF BELOW LOWER LIMIT
Line S00677 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
21781  M02S00677.ns2731  ---|          SBN    LSCS+1-LJCS
Line S00005 Modification History
M01 (Added by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
21782  M01S00005.ns2731  +++|          SBN    LSCS-LJCS
Line S00678 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21783  M01S00678.271l716 +++|          PJN    ECP1        IF REQUESTED PRIORITY TOO LARGE
Line S00679 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21784  M02S00679.ns2684  ---|          LDC    RTCL
21785  M02S00680.ns2684  ---|          CRD    CM          GET REAL TIME CLOCK VALUES
21786  M02S00681.ns2684  ---|          LDD    CM+4
21787  M02S00682.ns2684  ---|          STM    ECPA        SET CURRENT MILLISECOND COUNTER
21788  M02S00683.ns2684  ---| ECP5     RJM    IEE
21789  M02S00684.ns2684  ---|          ZJN    ECP8        IF EJT ENTRY INTERLOCKED
21790  M02S00685.ns2684  ---|          LDC    RTCL
21791  M02S00686.ns2684  ---|          CRD    CM
21792  M02S00687.ns2684  ---|          LDC    0           CHECK TIMEOUT
21793  M02S00688.ns2684  ---| ECPA     EQU    *-1
21794  M02S00689.ns2684  ---|          SBD    CM+4
21795  M02S00690.ns2684  ---|          MJN    ECP6        IF NOT ROLLOVER
21796  M02S00691.ns2684  ---|          SBK    10000
21797  M02S00692.ns2684  ---| ECP6     ADC    500D
21798  M02S00693.ns2684  ---|          PJN    ECP7        IF NOT TIMED OUT
21799  M02S00694.ns2684  ---|          LDC    =C*EJT ENTRY BUSY.*
21800  M02S00695.ns2684  ---|          JMP    KMS
21801  M02S00696.ns2684  ---|
21802  M02S00697.ns2684  ---| ECP7     LDC    ECP5        SET REENTRY ADDRESS
21803  M02S00698.ns2684  ---|          STM    /KEYBOARD/KCRB
21804  M02S00699.ns2684  ---|          LJM    /KEYBOARD/KBIX  RETURN
21805  M02S00700.ns2684  ---|
21806  M02S00701.ns2684  ---| ECP8     LDD    T3          SET EJT ORDINAL FOR *1DS*
21807  M02S00702.ns2684  ---|          STD    SP+3
21808  M02S00703.ns2684  ---|          SFA    EJT         READ EJT ENTRY
21809  M02S00704.ns2684  ---|          ADK    JSNE
21810  M02S00705.ns2684  ---|          CRD    AB
21811  M02S00706.ns2684  ---|          ADN    SCHE-JSNE   GET SCHEDULING DATA
21812  M02S00707.ns2684  ---|          CRD    CM
21813  M02S00708.ns2684  ---|          LDC    0           SET CPU PRIORITY FOR *1DS*
21814  M02S00709.ns2684  ---| ECPB     EQU    *-1
21815  M02S00710.ns2684  ---|          STD    SP+4
21816  M02S00711.ns2684  ---|          LDD    AB+4        UNPACK STATUS BYTE
21817  M02S00712.ns2684  ---|          SHN    -1
21818  M02S00713.ns2684  ---|          LPN    37          EXTRACT STATUS
21819  M02S00714.ns2684  ---|          STD    T1
21820  M02S00715.ns2684  ---|          LDM    TPRP,T1     SET PROCESSOR ADDRESS
21821  M02S00716.ns2684  ---|          STD    T1
21822  M02S00717.ns2684  ---|          LDN    0
21823  M02S00718.ns2684  ---|          LJM    0,T1        EXIT TO PROCESSOR
21824  M02S00719.ns2684  ---|
21825  M02S00720.ns2684  ---| ECP10    LDD    CM+3        SET CP NUMBER IN *1DS* CALL
21826  M02S00721.ns2684  ---|          STD    AB+4
21827  M02S00722.ns2684  ---|          LDC    /1DS/CMOV   SELECT MOVE TO CP
21828  M02S00723.ns2684  ---| ECP11    LMC    /1DS/LOCK+/1DS/ECPF
Line S00021 Modification History
M01 (Added by) ns2684
M02 (Removed by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
21829  M02S00021.ns2731  ---|          LDD    T7          SET EJT ORDINAL FOR *1DS*
Line S00006 Modification History
M01 (Added by) ns2731
Seq #  *Modification Id* Act 
----------------------------+
21830  M01S00006.ns2731  +++| ECP4     LDD    T7          SET EJT ORDINAL FOR *1DS*
Line S00022 Modification History
M01 (Added by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21831  M01S00022.ns2684  +++|          STD    AB+3
21832  M01S00023.ns2684  +++|          LDC    /1DS/LOCK+/1DS/ECPF
Line S00724 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21833  M01S00724.271l716 +++|          RJM    C1D         PROCESS FUNCTION
Line S00725 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21834  M02S00725.ns2684  ---|          LDC    ECP12
Line S00024 Modification History
M01 (Added by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21835  M01S00024.ns2684  +++|          LDC    ECP5
Line S00726 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21836  M01S00726.271l716 +++|          STM    /KEYBOARD/KCRB  SET REENTRY ADDRESS
Line S00727 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21837  M02S00727.ns2684  ---| ECP12    LDC    /1DS/DSDL
Line S00025 Modification History
M01 (Added by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21838  M01S00025.ns2684  +++| ECP5     LDC    /1DS/DSDL
Line S00728 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21839  M01S00728.271l716 +++|          CRD    CM          CHECK IF *1DS* COMPLETE
Line S00026 Modification History
M01 (Added by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21840  M01S00026.ns2684  +++|          ADN    1           CHECK RESULTS
21841  M01S00027.ns2684  +++|          CRD    AB
Line S00729 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
21842  M01S00729.271l716 +++|          LDD    CM
21843  M01S00730.271l716 +++|          NJP    CLP1        IF NOT COMPLETE
Line S00731 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2684
Seq #  *Modification Id* Act 
----------------------------+
21844  M02S00731.ns2684  ---|          LDC    /1DS/DSDL+1
21845  M02S00732.ns2684  ---|          CRD    CM          CHECK RESULTS
21846  M02S00733.ns2684  ---|          LDD    CM
21847  M02S00734.ns2684  ---|          NJN    ECP13       IF MS ERROR ON ROLLOUT DEVICE
21848  M02S00735.ns2684  ---|          JMP    KBR         RETURN
21849  M02S00736.ns2684  ---|
21850  M02S00737.ns2684  ---| ECP13    LDC    =C*CANNOT ACCESS ROLLOUT DEVICE.*
21851  M02S00738.ns2684  ---|          JMP    KMS
21852  M02S00739.ns2684  ---| IEE      SPACE  4,10
21853  M02S00740.ns2684  ---|**        IEE - INTERLOCK EJT ENTRY.
21854  M02S00741.ns2684  ---|*
21855  M02S00742.ns2684  ---|*         EXIT   (A) = 0 IF ENTRY INTERLOCKED.
21856  M02S00743.ns2684  ---|*                (T3) = EJT ORDINAL.
21857  M02S00744.ns2684  ---|*
21858  M02S00745.ns2684  ---|*         USES   CM - CM+4.
21859  M02S00746.ns2684  ---|*
21860  M02S00747.ns2684  ---|*         MACROS MONITOR, SFA.
21861  M02S00748.ns2684  ---|
21862  M02S00749.ns2684  ---|
21863  M02S00750.ns2684  ---| IEE1     ADN    2           SET EXIT CONDITION
21864  M02S00751.ns2684  ---|
21865  M02S00752.ns2684  ---| IEE      SUBR               ENTRY/EXIT
21866  M02S00753.ns2684  ---|          LDC    0
21867  M02S00754.ns2684  ---| IEEA     EQU    *-1
21868  M02S00755.ns2684  ---|          STD    T3          GET ADDRESS OF EJT ENTRY
21869  M02S00756.ns2684  ---|          SFA    EJT
21870  M02S00757.ns2684  ---|          STD    CM+4        SET ADDRESS IN REQUEST
21871  M02S00758.ns2684  ---|          SHN    -14
21872  M02S00759.ns2684  ---|          STD    CM+3
21873  M02S00760.ns2684  ---|          LDN    4S3+1       INTERLOCK FLAG + WORD COUNT
21874  M02S00761.ns2684  ---|          STD    CM+1
21875  M02S00762.ns2684  ---|          LDN    0           CLEAR UNUSED BYTE
21876  M02S00763.ns2684  ---|          STD    CM+2
21877  M02S00764.ns2684  ---|          LDD    MA          STORE PARAMETER WORD
21878  M02S00765.ns2684  ---|          CWM    IEEB,ON
21879  M02S00766.ns2684  ---|          MONITOR  UTEM      ATTEMPT INTERLOCK
21880  M02S00767.ns2684  ---|          LDD    CM+1
Proceed to Part 16
cdc/nos2.source/opl.opl871/deck/dsd.015.txt ยท Last modified: by 127.0.0.1