User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:dsdi.012

Deck DSDI Part 012

70 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
18013  M00S14426.dsdi    +++|          SB6    45
18014  M00S14427.dsdi    +++|          RJ     UPS         STORE HEADING
18015  M00S14428.dsdi    +++|          SA2    B2+UIDW     READ USER NAME
18016  M00S14429.dsdi    +++|          SB6    7
18017  M00S14430.dsdi    +++|          SB7    PRBF+21
18018  M00S14431.dsdi    +++|          RJ     UPS         STORE USER NAME
18019  M00S14432.dsdi    +++|          SA1    B2+SNSW     READ SENSE SWITCHES
18020  M00S14433.dsdi    +++|          SB6    2
18021  M00S14434.dsdi    +++|          SB7    PRBF+59
18022  M00S14435.dsdi    +++|          LX1    -12
18023  M00S14436.dsdi    +++|          RJ     CTS         CONVERT SENSE SWITCHES
18024  M00S14437.dsdi    +++|          JP     FPWX        EXIT
18025  M00S14438.dsdi    +++|
18026  M00S14439.dsdi    +++|*         LINE 1 - PRIMARY FILE NAME, CCL R1.
18027  M00S14440.dsdi    +++|
18028  M00S14441.dsdi    +++| FPW2     SA2    =45HPRIMARY FILE                  CCL R1
18029  M00S14442.dsdi    +++|          SB6    45
18030  M00S14443.dsdi    +++|          RJ     UPS         STORE HEADING
18031  M00S14444.dsdi    +++|          SA1    B2+TFSW     READ PRIMARY FILE EST POINTER
18032  M00S14445.dsdi    +++|          SA2    F.TCMT
18033  M00S14446.dsdi    +++|          MX3    -12
18034  M00S14447.dsdi    +++|          AX1    36
18035  M00S14448.dsdi    +++|          BX3    -X3*X1      FST ADDRESS
18036  M00S14449.dsdi    +++|          ZR     X3,FPW3     IF NO PRIMARY FILE
18037  M00S14450.dsdi    +++|          IX1    X2+X3
18038  M00S14451.dsdi    +++|          SA2    X1-1        READ FNT
18039  M00S14452.dsdi    +++|          SB6    7
18040  M00S14453.dsdi    +++|          SB7    PRBF+21
18041  M00S14454.dsdi    +++|          RJ     UPS         SET FILE NAME
18042  M00S14455.dsdi    +++| FPW3     SA1    B2+JCRW     READ CCL REGISTERS
18043  M00S14456.dsdi    +++|          LX1    -18
Line S14457 Modification History
M01 (Removed by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18044  M01S14457.dsdi71a ---|          SB6    6
Line S00028 Modification History
M01 (Added by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18045  M01S00028.dsdi71a +++| FPW3.1   SB6    6
18046  M00S14458.dsdi    +++|          SB7    PRBF+55
18047  M00S14459.dsdi    +++|          RJ     CTS         CONVERT REGISTER
18048  M00S14460.dsdi    +++|          JP     FPWX        EXIT
18049  M00S14461.dsdi    +++|
18050  M00S14462.dsdi    +++|*         LINE 2 - ORIGIN TYPE, CCL R2.
18051  M00S14463.dsdi    +++|
18052  M00S14464.dsdi    +++| FPW4     SA2    =45HORIGIN TYPE                   CCL R2
18053  M00S14465.dsdi    +++|          SB6    45
18054  M00S14466.dsdi    +++|          RJ     UPS         STORE HEADING
18055  M00S14467.dsdi    +++|          MX0    12          PRESET ORIGIN TYPE MASK
18056  M00S14468.dsdi    +++|          SA1    B2+JOTW     GET ORIGIN TYPE
18057  M00S14469.dsdi    +++|          LX0    24
18058  M00S14470.dsdi    +++|          BX1    X0*X1
18059  M00S14471.dsdi    +++|          AX1    12
18060  M00S14472.dsdi    +++|          SA2    X1+FPWB     READ ORIGIN TYPE
18061  M00S14473.dsdi    +++|          SB6    4
18062  M00S14474.dsdi    +++|          SB7    PRBF+24
18063  M00S14475.dsdi    +++|          RJ     UPS         STORE ORIGIN TYPE
18064  M00S14476.dsdi    +++|          SA1    B2+JCRW     READ CCL REGISTERS
18065  M00S14477.dsdi    +++|          LX1    -36
Line S14478 Modification History
M01 (Removed by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18066  M01S14478.dsdi71a ---|          SB6    6
18067  M01S14479.dsdi71a ---|          SB7    PRBF+55
18068  M01S14480.dsdi71a ---|          RJ     CTS         CONVERT REGISTER
18069  M01S14481.dsdi71a ---|          JP     FPWX        EXIT
Line S00029 Modification History
M01 (Added by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18070  M01S00029.dsdi71a +++|          JP     FPW3.1      CONVERT REGISTER
18071  M00S14482.dsdi    +++|
18072  M00S14483.dsdi    +++|*         LINE 3 - TIME USED, CCL R3.
18073  M00S14484.dsdi    +++|
18074  M00S14485.dsdi    +++| FPW5     SA2    =45HTIME USED                     CCL R3
18075  M00S14486.dsdi    +++|          SB6    45
18076  M00S14487.dsdi    +++|          RJ     UPS         STORE HEADING
18077  M00S14488.dsdi    +++|          SA1    B2+CPTW     READ CP ACCOUNTING WORD
18078  M00S14489.dsdi    +++|          SX2    1000
18079  M00S14490.dsdi    +++|          AX1    22          MILLISECONDS USED
18080  M00S14491.dsdi    +++|          IX1    X1/X2       SECONDS USED
18081  M00S14492.dsdi    +++|          LX1    -30
18082  M00S14493.dsdi    +++|          SB6    10
18083  M00S14494.dsdi    +++|          SB7    PRBF+18
18084  M00S14495.dsdi    +++|          RJ     CTS         CONVERT TIME USED
18085  M00S14496.dsdi    +++|          SA1    B2+JCRW     READ CCL REGISTERS
18086  M00S14497.dsdi    +++|          LX1    6
18087  M00S14498.dsdi    +++|          SB6    6
18088  M00S14499.dsdi    +++|          SB7    PRBF+55
18089  M00S14500.dsdi    +++|          RJ     CTS         CONVERT CCL R3
18090  M00S14501.dsdi    +++|          JP     FPWX        EXIT
18091  M00S14502.dsdi    +++|
18092  M00S14503.dsdi    +++|*         LINE 4 - TIME REMAINING, CCL ERROR FLAGS.
18093  M00S14504.dsdi    +++|
18094  M00S14505.dsdi    +++| FPW6     SA2    =45HTIME REMAINING                CCL EF
18095  M00S14506.dsdi    +++|          SB6    45
18096  M00S14507.dsdi    +++|          RJ     UPS         STORE HEADING
18097  M00S14508.dsdi    +++|          SA1    B2+CPTW     READ CP ACCOUNTING WORD
18098  M00S14509.dsdi    +++|          SX2    1000
18099  M00S14510.dsdi    +++|          AX1    22          MILLISECONDS USED
18100  M00S14511.dsdi    +++|          IX1    X1/X2       SECONDS USED
18101  M00S14512.dsdi    +++|          SA3    B2+CPLW     GET TIME LIMIT
18102  M00S14513.dsdi    +++|          SX2    1000
18103  M00S14514.dsdi    +++|          AX3    22          LIMIT IN MILLISECONDS
18104  M00S14515.dsdi    +++|          IX3    X3/X2       LIMIT IN SECONDS
18105  M00S14516.dsdi    +++|          IX1    X3-X1       SECONDS LEFT
18106  M00S14517.dsdi    +++|          LX1    -30
18107  M00S14518.dsdi    +++|          SB6    10
18108  M00S14519.dsdi    +++|          SB7    PRBF+18
18109  M00S14520.dsdi    +++|          RJ     CTS         CONVERT TIME REMAINING
18110  M00S14521.dsdi    +++|          SA1    B2+JCRW     READ CCL REGISTERS
18111  M00S14522.dsdi    +++|          SB6    2
18112  M00S14523.dsdi    +++|          SB7    PRBF+59
18113  M00S14524.dsdi    +++|          RJ     CTS         CONVERT ERROR FLAGS
18114  M00S14525.dsdi    +++|          JP     FPWX        EXIT
18115  M00S14526.dsdi    +++|
18116  M00S14527.dsdi    +++|*         LINE 5 - SUBSYSTEM ID, CPU PRIORITY.
18117  M00S14528.dsdi    +++|
18118  M00S14529.dsdi    +++| FPW7     SA2    =45HSUBSYSTEM ID                  CPU PRIORITY
18119  M00S14530.dsdi    +++|          SB6    45
Line S00211 Modification History
M01 (Added by) dsdi71
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
18120  M02S00211.271l750 ---|          SA1    B2+JCIW     READ PRIORITY WORD
Line S00148 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
18121  M01S00148.271l750 +++|          SA1    B2+JCIW     READ SUBSYSTEM ID
18122  M00S14531.dsdi    +++|          RJ     UPS         STORE HEADING
Line S14532 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18123  M01S14532.dsdi71  ---|          SA1    B2+JCIW     READ PRIORITY WORD
18124  M00S14533.dsdi    +++|          SB6    4
18125  M00S14534.dsdi    +++|          SB7    PRBF+24
18126  M00S14535.dsdi    +++|          LX1    24
Line S00212 Modification History
M01 (Added by) dsdi71
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
18127  M02S00212.271l750 ---|          MX2    5
Line S00149 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
18128  M01S00149.271l750 +++|          MX2    -58
18129  M00S14536.dsdi    +++|          RJ     CTS         CONVERT SUBSYSTEM ID
Line S14537 Modification History
M01 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
18130  M01S14537.271l750 ---|          SA1    B2+JCIW
Line S00150 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
18131  M01S00150.271l750 +++|          SA1    B2+CWQW     READ CPU PRIORITY
Line S14538 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18132  M01S14538.dsdi71  ---|          AX1    49
18133  M01S14539.dsdi71  ---|          LX1    -12
18134  M01S14540.dsdi71  ---|          SB6    4
Line S00213 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18135  M01S00213.dsdi71  +++|          BX1    -X2*X1
Line S00214 Modification History
M01 (Added by) dsdi71
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
18136  M02S00214.271l750 ---|          AX1    48
Line S00151 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
18137  M01S00151.271l750 +++|          AX1    51
18138  M00S14541.dsdi    +++|          SB7    PRBF+57
Line S14542 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18139  M01S14542.dsdi71  ---|          RJ     CTS         CONVERT CPU PRIORITY
Line S00215 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18140  M01S00215.dsdi71  +++|          SB4    4
18141  M01S00216.dsdi71  +++|          RJ     DOS         CONVERT CPU PRIORITY
18142  M00S14543.dsdi    +++|          JP     FPWX        EXIT
18143  M00S14544.dsdi    +++|
18144  M00S14545.dsdi    +++|*         LINE 6 - CPU STATUS.
18145  M00S14546.dsdi    +++|
18146  M00S14547.dsdi    +++| FPW8     SA2    =45HCPU STATUS                    SERVICE CLASS
18147  M00S14548.dsdi    +++|          SB6    45
Line S00217 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18148  M01S00217.dsdi71  +++|          SX5    B2
18149  M00S14549.dsdi    +++|          RJ     UPS         STORE HEADING
Line S14550 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18150  M01S14550.dsdi71  ---|          SA1    FW          GET CPU STATUS OF CONTROL POINT
18151  M01S14551.dsdi71  ---|          SA2    F.TCMT
18152  M01S14552.dsdi71  ---|          MX0    3
18153  M01S14553.dsdi71  ---|          IX1    X1+X2
18154  M01S14554.dsdi71  ---|          SA1    X1+STSW
18155  M01S14555.dsdi71  ---|          BX1    X0*X1
18156  M01S14556.dsdi71  ---|          LX1    4           FORM STATUS*6
18157  M01S14557.dsdi71  ---|          SA2    FPWD
18158  M01S14558.dsdi71  ---|          SB3    X1
18159  M01S14559.dsdi71  ---|          LX1    1
18160  M01S14560.dsdi71  ---|          SB3    B3+X1
18161  M01S14561.dsdi71  ---|          AX2    B3,X2       SHIFT SELECTED STATUS TO BITS 5-0
18162  M01S14562.dsdi71  ---|          MX0    -6
18163  M01S14563.dsdi71  ---|          BX6    -X0*X2
18164  M01S14564.dsdi71  ---|          SA6    PRBF+27     STORE STATUS
18165  M01S14565.dsdi71  ---|          SA2    F.TCMT      SET FWA EJT ENTRY
18166  M01S14566.dsdi71  ---|          SA1    X2+EJTP
18167  M01S14567.dsdi71  ---|          SA3    FW
18168  M01S14568.dsdi71  ---|          AX1    36          FWA EJT
18169  M01S14569.dsdi71  ---|          IX3    X3+X2       FWA CONTROL POINT AREA
18170  M01S14570.dsdi71  ---|          SA3    X3+TFSW
18171  M01S14571.dsdi71  ---|          MX0    12
18172  M01S14572.dsdi71  ---|          BX3    X0*X3
18173  M01S14573.dsdi71  ---|          LX3    12          EJT ORDINAL
18174  M01S14574.dsdi71  ---|          SX2    EJTE
18175  M01S14575.dsdi71  ---|          IX3    X3*X2
18176  M01S14576.dsdi71  ---|          IX3    X1+X3
18177  M01S14577.dsdi71  ---|          SX5    X3          SAVE FWA EJT ENTRY
18178  M01S14578.dsdi71  ---|          RJ     PCM
18179  M01S14579.dsdi71  ---|          GETCM  BUF,EJTE
Line S00218 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18180  M01S00218.dsdi71  +++|          SB7    PRBF+27
18181  M01S00219.dsdi71  +++|          RJ     GCS         GET CPU STATUS
18182  M01S00220.dsdi71  +++|          RJ     GEE         GET EJT ENTRY
18183  M00S14580.dsdi    +++|          R=     A1,BUF+SCLE  GET SERVICE CLASS
18184  M00S14581.dsdi    +++|          MX0    6
18185  M00S14582.dsdi    +++|          BX1    X0*X1
18186  M00S14583.dsdi    +++|          LX1    6
18187  M00S14584.dsdi    +++|          R=     A2,X1+SCNT-1  READ SERVICE CLASS MEMONIC
18188  M00S14585.dsdi    +++|          SB6    4
18189  M00S14586.dsdi    +++|          SB7    PRBF+57
18190  M00S14587.dsdi    +++|          RJ     UPS         STORE SERVICE CLASS
18191  M00S14588.dsdi    +++|          EQ     FPWX        EXIT
18192  M00S14589.dsdi    +++|
18193  M00S14590.dsdi    +++|*         LINE 8 - MESSAGE 1 LINE.
18194  M00S14591.dsdi    +++|
18195  M00S14592.dsdi    +++| FPW12    SA2    =28HMESSAGE 1                 -
18196  M00S14593.dsdi    +++|          SB6    28
18197  M00S14594.dsdi    +++|          RJ     UPS         STORE HEADING
18198  M00S14595.dsdi    +++|          SA2    B2+MS1W
18199  M00S14596.dsdi    +++|          SB6    48
Line S14597 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18200  M01S14597.dsdi71  ---|          RJ     UPS         STORE MESSAGE
Line S00221 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18201  M01S00221.dsdi71  +++|          RJ     DMB         STORE MESSAGE
18202  M00S14598.dsdi    +++|          JP     FPWX        EXIT
18203  M00S14599.dsdi    +++|
18204  M00S14600.dsdi    +++|*         LINE 9 - MESSAGE 2 LINE.
18205  M00S14601.dsdi    +++|
18206  M00S14602.dsdi    +++| FPW13    SA2    =28HMESSAGE 2                 -
18207  M00S14603.dsdi    +++|          SB6    28
18208  M00S14604.dsdi    +++|          RJ     UPS         STORE HEADING
18209  M00S14605.dsdi    +++|          SA2    B2+MS2W
18210  M00S14606.dsdi    +++|          SB6    28
Line S14607 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18211  M01S14607.dsdi71  ---|          RJ     UPS         STORE MESSAGE 2
Line S00222 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18212  M01S00222.dsdi71  +++|          RJ     DMB         STORE MESSAGE 2
18213  M00S14608.dsdi    +++|          JP     FPWX        EXIT
18214  M00S14609.dsdi    +++|
18215  M00S14610.dsdi    +++|*         LINE 11 - CURRENT COMMAND.
18216  M00S14611.dsdi    +++|
18217  M00S14612.dsdi    +++| FPW14    SA1    CN
18218  M00S14613.dsdi    +++|          SA2    NC
Line S00360 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
18219  M01S00360.271l716 +++|          SX2    X2+B1
18220  M00S14614.dsdi    +++|          IX1    X2-X1
Line S14615 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
18221  M01S14615.271l716 ---|          NG     X1,FPWX     IF SYSTEM CONTROL POINT
Line S00361 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
18222  M01S00361.271l716 +++|          ZR     X1,FPWX     IF SYSTEM CONTROL POINT
18223  M00S14616.dsdi    +++|          SA2    =28HCURRENT COMMAND           -
18224  M00S14617.dsdi    +++|          SB6    28
18225  M00S14618.dsdi    +++|          RJ     UPS         STORE HEADING
18226  M00S14619.dsdi    +++|          RJ     CNL         CHECK NFL LENGTH
18227  M00S14620.dsdi    +++|          NG     X1,FPWX     IF INSUFFICIENT NFL SPACE
18228  M00S14621.dsdi    +++|          RJ     SCM         SELECT CENTRAL MEMORY
Line S14622 Modification History
M01 (Removed by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18229  M01S14622.dsdi71a ---|          SA1    B2+FLSW     GET RA OF CONTROL POINT
18230  M01S14623.dsdi71a ---|          MX0    -15
18231  M01S14624.dsdi71a ---|          AX1    12
18232  M01S14625.dsdi71a ---|          BX1    -X0*X1
18233  M01S14626.dsdi71a ---|          LX1    6
18234  M01S14627.dsdi71a ---|          SX6    CSBN        SET FWA OF COMMAND BUFFER
18235  M01S14628.dsdi71a ---|          IX6    X1-X6
Line S00030 Modification History
M01 (Added by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18236  M01S00030.dsdi71a +++|          SA1    FW
18237  M01S00031.dsdi71a +++|          RJ     GFL         GET RA OF CONTROL POINT
18238  M01S00032.dsdi71a +++|          SX1    CSBN        SET FWA OF COMMAND BUFFER
18239  M01S00033.dsdi71a +++|          IX6    X6-X1
18240  M00S14629.dsdi    +++|          SX7    B2          SAVE B2
18241  M00S14630.dsdi    +++|          MX1    -24
18242  M00S14631.dsdi    +++|          BX6    -X1*X6
18243  M00S14632.dsdi    +++|          SA6    CPRA
18244  M00S14633.dsdi    +++|          SA7    A6+B1
18245  M00S14634.dsdi    +++|          SB2    A6          POSITION DUMP FILE
18246  M00S14635.dsdi    +++|          RJ     POM
18247  M00S14636.dsdi    +++|          GETCM  BUF,110B    READ COMMAND BUFFER
18248  M00S14637.dsdi    +++|          SB7    PRBF+29     RESET PRINT STRING ADDRESS
18249  M00S14638.dsdi    +++|          SA1    CPRA
18250  M00S14639.dsdi    +++|          SB4    BUF         FWA OF BUFFER
18251  M00S14640.dsdi    +++|          SA3    A1+B1       RESTORE B2
18252  M00S14641.dsdi    +++|          SX0    X1+CSBN     RA OF CONTROL POINT
18253  M00S14642.dsdi    +++|          SB2    X3
18254  M00S14643.dsdi    +++|          SA1    B2+CSPW     READ COMMAND BUFFER INDEX
18255  M00S14644.dsdi    +++|          MX2    -12
18256  M00S14645.dsdi    +++|          AX1    12
18257  M00S14646.dsdi    +++|          BX1    -X2*X1
18258  M00S14647.dsdi    +++|          SB3    X1-CSBN
18259  M00S14648.dsdi    +++|          SB3    B4-B3       FORM CURRENT POINTER
18260  M00S14649.dsdi    +++|          EQ     B3,B4,FPWX  IF BUFFER EMTPY
18261  M00S14650.dsdi    +++| FPW15    SB3    B3-B1       POINTER TO END OF LAST LINE
18262  M00S14651.dsdi    +++|          SB5    B3          SAVE END OF LINE POINTER
18263  M00S14652.dsdi    +++|          EQ     FPW17       ENTER SEARCH LOOP
18264  M00S14653.dsdi    +++|
18265  M00S14654.dsdi    +++| FPW16    SA1    B3
18266  M00S14655.dsdi    +++|          BX1    -X2*X1
18267  M00S14656.dsdi    +++|          ZR     X1,FPW18    IF END OF PREVIOUS LINE
18268  M00S14657.dsdi    +++| FPW17    SB3    B3-1
18269  M00S14658.dsdi    +++|          GE     B3,B4,FPW16 IF NOT BEGINNING OF BUFFER
18270  M00S14659.dsdi    +++| FPW18    SX1    10
18271  M00S14660.dsdi    +++|          SX2    B5-B3       WORD COUNT FOR LINE
18272  M00S14661.dsdi    +++|          IX2    X1*X2
18273  M00S14662.dsdi    +++|          SB6    X2+         CHARACTER COUNT
18274  M00S14663.dsdi    +++|          GE     B3,B4,FPW19 IF NOT FIRST WORD OF BUFFER
18275  M00S14664.dsdi    +++|          SX6    65B         =1R_
18276  M00S14665.dsdi    +++|          SA6    B7
18277  M00S14666.dsdi    +++|          SB7    B7+B1
18278  M00S14667.dsdi    +++| FPW19    SA2    B3+1        READ FIRST WORD OF LINE
18279  M00S14668.dsdi    +++|          RJ     UPS         STORE LINE IN PRINT STRING
18280  M00S14669.dsdi    +++|          JP     FPWX        EXIT
18281  M00S14670.dsdi    +++|
18282  M00S14671.dsdi    +++|*         LINE 13 - LAST DAYFILE MESSAGE.
18283  M00S14672.dsdi    +++|
18284  M00S14673.dsdi    +++| FPW20    SA2    =28HLAST DAYFILE MESSAGE      -
18285  M00S14674.dsdi    +++|          SB6    28
18286  M00S14675.dsdi    +++|          RJ     UPS         STORE HEADING
18287  M00S14676.dsdi    +++|          SA1    CN
18288  M00S14677.dsdi    +++|          SA2    NC
Line S00362 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
18289  M01S00362.271l716 +++|          SX2    X2+B1
18290  M00S14678.dsdi    +++|          IX1    X2-X1
Line S14679 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
18291  M01S14679.271l716 ---|          NG     X1,FPW20.0  IF SYSTEM CONTROL POINT
Line S00363 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
18292  M01S00363.271l716 +++|          ZR     X1,FPW20.0  IF SYSTEM CONTROL POINT
18293  M00S14680.dsdi    +++|          RJ     CNL         CHECK NFL LENGTH
18294  M00S14681.dsdi    +++|          NG     X1,FPWX     IF INSUFFICIENT NFL SPACE
18295  M00S14682.dsdi    +++| FPW20.0  RJ     GDB         GET DAYFILE BUFFER
18296  M00S14683.dsdi    +++|          SA1    GDBD
18297  M00S14684.dsdi    +++|          NZ     X1,FPWX     IF INACCURATE DAYFILE BUFFER POINTERS
Line S14685 Modification History
M01 (Removed by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
18298  M01S14685.dsdi70  ---|          SA1    GDBA        GET POINTER ADDRESS
Line S00001 Modification History
M01 (Added by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
18299  M01S00001.dsdi70  +++|          SA1    F.TSC1      GET POINTER ADDRESS
18300  M00S14686.dsdi    +++|          SA1    X1          READ POINTER WORD
18301  M00S14687.dsdi    +++|          MX2    -12
18302  M00S14688.dsdi    +++|          BX3    -X2*X1      DETERMINE *IN* AND *FIRST* POINTERS
18303  M00S14689.dsdi    +++|          SB2    X3          RELATIVE *IN* POINTER
18304  M00S14690.dsdi    +++|          SA4    F.TSCR
18305  M00S14691.dsdi    +++|          IX3    X4+X3
18306  M00S14692.dsdi    +++|          SB6    X3-1        INITIALIZE POINTER FOR SEARCH LOOP
18307  M00S14693.dsdi    +++|          SA3    GDBB        GET BUFFER LENGTH
18308  M00S14694.dsdi    +++|          SB7    X3
18309  M00S14695.dsdi    +++|          NZ     B2,FPW20.1  IF *IN* .NE. 0
18310  M00S14696.dsdi    +++|          SB6    X4+B7       SET POINTER AT LWA OF DATA
18311  M00S14697.dsdi    +++|          SB6    B6-B1
18312  M00S14698.dsdi    +++| FPW20.1  SB3    X4          *FIRST* POINTER
18313  M00S14699.dsdi    +++|          SA1    A1+B1       DETERMINE *OUT* POINTER
18314  M00S14700.dsdi    +++|          BX3    -X2*X1
18315  M00S14701.dsdi    +++|          SX6    X3+B2       RELATIVE *IN* + *OUT*
18316  M00S14702.dsdi    +++|          IX3    X4+X3
18317  M00S14703.dsdi    +++|          SB4    X3          *OUT* POINTER
18318  M00S14704.dsdi    +++|          SA1    A1+B1       CHECK DISK ASSIGNMENT
18319  M00S14705.dsdi    +++|          AX1    12
18320  M00S14706.dsdi    +++|          IX6    X1+X6       CHECK *IN* = *OUT* = 0
18321  M00S14707.dsdi    +++|          ZR     X6,FPWX     IF BUFFER NOT USED
18322  M00S14708.dsdi    +++|          SB5    B1          INITIALIZE WORD COUNTER
18323  M00S14709.dsdi    +++|          SB2    B0          INITIALIZE TOP OF MESSAGE WORD COUNTER
18324  M00S14710.dsdi    +++|
18325  M00S14711.dsdi    +++|*         FIND THE START OF THE LAST MESSAGE.
18326  M00S14712.dsdi    +++|
18327  M00S14713.dsdi    +++| FPW20.2  NE     B6,B3,FPW20.3  IF POINTER .NE. FIRST
18328  M00S14714.dsdi    +++|          SB6    B3+B7       SET POINTER = FIRST + LIMIT
18329  M00S14715.dsdi    +++|          SB2    B5          SET TOP OF MESSAGE COUNT
18330  M00S14716.dsdi    +++| FPW20.3  SB6    B6-B1       *IN* = *IN* - 1
18331  M00S14717.dsdi    +++|          SA3    B6          CHECK FOR ZERO BYTE TERMINATOR
18332  M00S14718.dsdi    +++|          BX3    -X2*X3
18333  M00S14719.dsdi    +++|          ZR     X3,FPW20.5  IF START OF LAST MESSAGE FOUND
18334  M00S14720.dsdi    +++|          SB5    B5+B1       INCREMENT WORD COUNT
18335  M00S14721.dsdi    +++|          EQ     B6,B4,FPW20.4  IF *IN* = *OUT* BOTTOM OF MESSAGE
18336  M00S14722.dsdi    +++|          GT     B5,B7,FPWX  IF LAST MESSAGE CAN NOT BE DETECTED
18337  M00S14723.dsdi    +++|          EQ     FPW20.2     CONTINUE SEARCH FOR START OF LAST MESSAGE
18338  M00S14724.dsdi    +++|
18339  M00S14725.dsdi    +++|*         SETUP THE PRINT BUFFER WITH FIRST AND LAST PART OF THE
18340  M00S14726.dsdi    +++|*         MESSAGE IN UNPACKED FORMAT.
18341  M00S14727.dsdi    +++|
18342  M00S14728.dsdi    +++| FPW20.4  SB6    B6-B1       ADJUST POINTER TO FWA-1
18343  M00S14729.dsdi    +++| FPW20.5  SX3    B5-B2       CALCULATE WORDS IN BEGINNING OF MESSAGE
18344  M00S14730.dsdi    +++|          SX1    10
18345  M00S14731.dsdi    +++|          IX3    X1*X3       NUMBER OF CHARACTERS IN FIRST OF MESSAGE
18346  M00S14732.dsdi    +++|          SB7    PRBF+29     SET PRINT STRING ADDRESS
18347  M00S14733.dsdi    +++|          GE     B6,B3,FPW20.6  IF NOT BEGINNING OF BUFFER
18348  M00S14734.dsdi    +++|          SX6    65B         =1R_
18349  M00S14735.dsdi    +++|          SA6    B7
18350  M00S14736.dsdi    +++|          SB7    B7+B1       DESTINATION OF UNPACKED CHARACTERS
18351  M00S14737.dsdi    +++| FPW20.6  SA2    B6+B1       SOURCE OF PACKED CHARACTERS
18352  M00S14738.dsdi    +++|          SB6    X3          NUMBER OF CHARACTERS TO UNPACK
18353  M00S14739.dsdi    +++|          ZR     B6,FPW20.7  IF MESSAGE WORDS CONTIGUOUS IN LAST PART
18354  M00S14740.dsdi    +++|          RJ     UPS         STORE FIRST PART OF MESSAGE
18355  M00S14741.dsdi    +++| FPW20.7  ZR     B2,FPWX     IF MESSAGE WORDS CONTIGUOUS IN FIRST PART
18356  M00S14742.dsdi    +++|          SA2    F.TSCR      SOURCE OF PACKED CHARACTERS
18357  M00S14743.dsdi    +++|          SX3    B2          CALCULATE NUMBER OF CHARACTERS IN LAST PART
18358  M00S14744.dsdi    +++|          SA2    X2
18359  M00S14745.dsdi    +++|          IX3    X1*X3
18360  M00S14746.dsdi    +++|          SB6    X3
18361  M00S14747.dsdi    +++|          RJ     UPS         STORE LAST PART OF MESSAGE
18362  M00S14748.dsdi    +++|          EQ     FPWX        EXIT
18363  M00S14749.dsdi    +++|
18364  M00S14750.dsdi    +++|*         LINE 15 - SPECIAL ENTRY POINTS.
18365  M00S14751.dsdi    +++|
18366  M00S14752.dsdi    +++| FPW21    SA1    CN
18367  M00S14753.dsdi    +++|          SA2    NC
Line S00364 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
18368  M01S00364.271l716 +++|          SX2    X2+B1
18369  M00S14754.dsdi    +++|          IX1    X2-X1
Line S14755 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
18370  M01S14755.271l716 ---|          NG     X1,FPWX     IF SYSTEM CONTROL POINT
Line S00365 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
18371  M01S00365.271l716 +++|          ZR     X1,FPWX     IF SYSTEM CONTROL POINT
18372  M00S14756.dsdi    +++|          SA2    =28HSPECIAL ENTRY POINTS      -
18373  M00S14757.dsdi    +++|          SB6    28
18374  M00S14758.dsdi    +++|          RJ     UPS         STORE HEADING
18375  M00S14759.dsdi    +++|          SA1    B2+SEPW     READ ENTRY POINT FLAGS
18376  M00S14760.dsdi    +++|          SB3    FPWCL       SET NUMBER OF ENTRY POINTS
Line S14761 Modification History
M01 (Removed by) dsdi63
Seq #  *Modification Id* Act 
----------------------------+
18377  M01S14761.dsdi63  ---|          LX1    59-55       POSITION FIRST ENTRY POINT
Line S00003 Modification History
M01 (Added by) dsdi63
Seq #  *Modification Id* Act 
----------------------------+
18378  M01S00003.dsdi63  +++|          LX1    59-56       POSITION FIRST ENTRY POINT
18379  M00S14762.dsdi    +++| FPW22    PL     X1,FPW23    IF NO SPECIAL ENTRY POINT
18380  M00S14763.dsdi    +++|          SA2    B3+FPWC-1   READ ENTRY POINT NAME
18381  M00S14764.dsdi    +++|          SB6    5
18382  M00S14765.dsdi    +++|          RJ     UPS         STORE NAME
18383  M00S14766.dsdi    +++| FPW23    LX1    1           CHECK NEXT BIT
18384  M00S14767.dsdi    +++|          SB3    B3-B1
18385  M00S14768.dsdi    +++|          NZ     B3,FPW22    IF MORE BITS TO CHECK
18386  M00S14769.dsdi    +++|          JP     FPWX        EXIT
18387  M00S14770.dsdi    +++|
18388  M00S14771.dsdi    +++| FPWA     BSS    0           LINE PROCESSOR JUMP TABLE
18389  M00S14772.dsdi    +++|          LOC    0
18390  M00S14773.dsdi    +++|+         JP     FPW1
18391  M00S14774.dsdi    +++|+         JP     FPW2        PROCESS LINE 1
18392  M00S14775.dsdi    +++|+         JP     FPW4        PROCESS LINE 2
18393  M00S14776.dsdi    +++|+         JP     FPW5        PROCESS LINE 3
18394  M00S14777.dsdi    +++|+         JP     FPW6        PROCESS LINE 4
18395  M00S14778.dsdi    +++|+         JP     FPW7        PROCESS LINE 5
18396  M00S14779.dsdi    +++|+         JP     FPW8        PROCESS LINE 6
18397  M00S14780.dsdi    +++|+         JP     FPWX
18398  M00S14781.dsdi    +++|+         JP     FPW12
18399  M00S14782.dsdi    +++|+         JP     FPW13
18400  M00S14783.dsdi    +++|+         JP     FPWX
18401  M00S14784.dsdi    +++|+         JP     FPW14
18402  M00S14785.dsdi    +++|+         JP     FPWX
18403  M00S14786.dsdi    +++|+         JP     FPW20
18404  M00S14787.dsdi    +++|+         JP     FPWX
18405  M00S14788.dsdi    +++|+         JP     FPW21
18406  M00S14789.dsdi    +++|+         JP     FPWX
18407  M00S14790.dsdi    +++|          LOC    *O
Line S14791 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18408  M01S14791.dsdi71  ---|
18409  M01S14792.dsdi71  ---| FPWD     DATA   10H   IXW BA
18410  M01S14793.dsdi71  ---| FPX      SPACE  4,15
Line S00223 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18411  M01S00223.dsdi71  +++| FPX      SPACE  4,20
18412  M00S14794.dsdi    +++|**        FPX - FIND AND PACK EXCHANGE PACKAGE.
18413  M00S14795.dsdi    +++|*
18414  M00S14796.dsdi    +++|*         ENTRY  (X2) = 0, IF REQUEST FOR FIRST CPU EXCHANGE PACKAGE.
18415  M00S14797.dsdi    +++|*                     = ADDRESS OF THE ADDRESS OF THE DIRECTORY TABLE
18416  M00S14798.dsdi    +++|*                       ENTRY FOR THE EXCHANGE PACKAGE FOR CPU1.
18417  M00S14799.dsdi    +++|*
18418  M00S14800.dsdi    +++|*         EXIT   (X1) = 0, IF CPU1 NOT PRESENT OR NOT IN C170 MODE.
18419  M00S14801.dsdi    +++|*                     = ADDRESS OF THE ADDRESS OF THE DIRECTORY TABLE
18420  M00S14802.dsdi    +++|*                       ENTRY FOR THE EXCHANGE PACKAGE FOR CPU1.
18421  M00S14803.dsdi    +++|*                EXCHANGE PACKAGE PACKED AT *BUF*.
18422  M00S14804.dsdi    +++|*                TO *ERR15* IF C170 STATE XP NOT FOUND FOR CPU0.
18423  M00S14805.dsdi    +++|*
Line S14806 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18424  M01S14806.dsdi67  ---|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
18425  M01S14807.dsdi67  ---|*                A - 1, 2, 3, 6, 7.
Line S00194 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18426  M01S00194.dsdi67  +++|*         USES   X - 1, 2, 3, 4, 6, 7.
18427  M01S00195.dsdi67  +++|*                A - 0, 1, 2, 3, 4, 6, 7.
18428  M00S14808.dsdi    +++|*                B - 2, 3.
18429  M00S14809.dsdi    +++|*
Line S14810 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18430  M01S14810.dsdi67  ---|*         CALLS  PCM.
Line S00196 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18431  M01S00196.dsdi67  +++|*         CALLS  FPR, PCM.
18432  M00S14811.dsdi    +++|*
Line S14812 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18433  M01S14812.dsdi67  ---|*         MACROS GETCM, MOVE, SEARCH.
Line S00197 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18434  M01S00197.dsdi67  +++|*         MACROS GETCM, MOVE.
18435  M00S14813.dsdi    +++|
18436  M00S14814.dsdi    +++|
18437  M00S14815.dsdi    +++| FPX      SUBR               ENTRY/EXIT
Line S14816 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18438  M01S14816.dsdi67  ---|          SX1    3RPXP
18439  M01S14817.dsdi67  ---|          MX0    18
18440  M01S14818.dsdi67  ---|          LX1    -18
18441  M00S14819.dsdi    +++|          BX6    X2
18442  M00S14820.dsdi    +++|          SA6    FPXA        SAVE CPU1(800)  ON/OFF
Line S14821 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18443  M01S14821.dsdi67  ---|          ZR     X2,FPX0     IF FIRST RECORD
18444  M01S14822.dsdi67  ---|          SA2    X2
18445  M01S14823.dsdi67  ---|          SA0    BUF+20B
18446  M01S14824.dsdi67  ---|          SX6    A0
18447  M01S14825.dsdi67  ---|          SA6    FPXB
18448  M01S14826.dsdi67  ---|          JP     FPX0.1      PROCESS SECOND EXCHANGE PACKAGE
18449  M01S14827.dsdi67  ---|
18450  M01S14828.dsdi67  ---| FPX0     SEARCH TDIR,X1,X0
Line S00198 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18451  M01S00198.dsdi67  +++|          SX6    B0          DO NOT DISPLAY RADIAL MCI
Line S00199 Modification History
M01 (Added by) dsdi67
M02 (Removed by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
18452  M02S00199.271l739 ---|          SA1    =3LPXP
Line S00349 Modification History
M01 (Added by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
18453  M01S00349.271l739 +++|          SA1    .PXP
Line S00200 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18454  M01S00200.dsdi67  +++|          RJ     FPR         FIND PROCESSOR RECORD
18455  M00S14829.dsdi    +++|          ZR     X2,ERR15    IF PROCESSOR EXCHANGE PACKAGE NOT FOUND
Line S14830 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18456  M01S14830.dsdi67  ---|          SA3    =3LPXP      RECORD ID
18457  M01S14831.dsdi67  ---|          SB7    C.TDIR
18458  M01S14832.dsdi67  ---|          SB3    FPXA
18459  M01S14833.dsdi67  ---|          RJ     CNR         CHECK NEXT RECORD
18460  M01S14834.dsdi67  ---|          SA0    BUF
18461  M01S14835.dsdi67  ---|          SX6    A0
18462  M01S14836.dsdi67  ---|          SA6    FPXB
18463  M01S14837.dsdi67  ---| FPX0.1   SA2    A2+B1
18464  M01S14838.dsdi67  ---|          BX6    X2
18465  M01S14839.dsdi67  ---|          SA6    RI
Line S00201 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18466  M01S00201.dsdi67  +++|          SA1    FPXA
18467  M01S00202.dsdi67  +++|          SX6    BUF+20B
18468  M01S00203.dsdi67  +++|          NZ     X1,FPX0     IF NOT FIRST RECORD
18469  M01S00204.dsdi67  +++|          SA2    NR          SAVE CPU1 RECORD POINTER
18470  M01S00205.dsdi67  +++|          BX6    X2
18471  M01S00206.dsdi67  +++|          SA6    A1
18472  M01S00207.dsdi67  +++|          SX6    BUF
18473  M01S00208.dsdi67  +++| FPX0     SA6    A1+B1       SET BUFFER POINTER
18474  M01S00209.dsdi67  +++|          ERRNZ  FPXB-FPXA-1
18475  M00S14840.dsdi    +++|          SX3    B0
18476  M00S14841.dsdi    +++|          RJ     PCM         POSITION FOR READ
18477  M00S14842.dsdi    +++|          SA4    FPXB
18478  M00S14843.dsdi    +++|          SA0    X4
18479  M00S14844.dsdi    +++|          GETCM  A0,33       READ CYBER 170-8X5 EXCHANGE PACKAGE
18480  M00S14845.dsdi    +++|          SA1    A0+B1
18481  M00S14846.dsdi    +++|          AX1    -4
18482  M00S14847.dsdi    +++|          SX1    X1-1
18483  M00S14848.dsdi    +++|          ZR     X1,FPX1     IF C170 VMID
Line S14849 Modification History
M01 (Removed by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
18484  M01S14849.271l739 ---|          SA1    MI          SET FOR CM DUMP
18485  M01S14850.271l739 ---|          SA3    S2JPS       CYBER 170-8X5 JOB STATE POINTER
18486  M01S14851.271l739 ---|          BX6    X1
18487  M01S14852.271l739 ---|          AX3    3
18488  M01S14853.271l739 ---|          SA6    RI
18489  M01S14854.271l739 ---|          RJ     PCM         POSITION TO JOB EXCHANGE PACKAGE IN EI
Line S00350 Modification History
M01 (Added by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
18490  M01S00350.271l739 +++|          SA3    S2JPS
18491  M01S00351.271l739 +++|          RJ     CEA         POSITION TO JOB EXCHANGE PACKAGE IN *EI*
18492  M00S14855.dsdi    +++|          SA4    FPXB
18493  M00S14856.dsdi    +++|          SA0    X4
18494  M00S14857.dsdi    +++|          GETCM  A0,33       READ JOB EXCHANGE PACKAGE
18495  M00S14858.dsdi    +++|          SA1    A0+B1
18496  M00S14859.dsdi    +++|          AX1    -4
18497  M00S14860.dsdi    +++|          SX1    X1-1
18498  M00S14861.dsdi    +++|          ZR     X1,FPX1     IF C170 VMID
18499  M00S14862.dsdi    +++|          SA1    FPXB
18500  M00S14863.dsdi    +++|          SX1    X1-BUF-20B
18501  M00S14864.dsdi    +++|          NZ     X1,ERR15    IF CPU0 NOT C170 VMID
18502  M00S14865.dsdi    +++|          EQ     FPXX        CPU1 NOT C170 VMID
18503  M00S14866.dsdi    +++|
18504  M00S14867.dsdi    +++| FPX1     MOVE   5,A0+4,A0+1
18505  M00S14868.dsdi    +++|          SA1    A0+3
18506  M00S14869.dsdi    +++|          SA2    A0+B1
18507  M00S14870.dsdi    +++|          BX6    X1
18508  M00S14871.dsdi    +++|          LX7    X2
18509  M00S14872.dsdi    +++|          SA6    A0+6        STORE MA
18510  M00S14873.dsdi    +++|          AX7    32-12
18511  M00S14874.dsdi    +++|          SA7    A1          STORE MODE
18512  M00S14875.dsdi    +++|          SA1    A2-B1       CHANGE P TO A WORD ADDRESS
18513  M00S14876.dsdi    +++|          MX4    -24
18514  M00S14877.dsdi    +++|          BX2    -X4*X2      EXTRACT RA
18515  M00S14878.dsdi    +++|          AX1    3
18516  M00S14879.dsdi    +++|          IX6    X1-X2       FORM RELATIVE P
18517  M00S14880.dsdi    +++|          SA6    A1
18518  M00S14881.dsdi    +++|          SB2    B0
18519  M00S14882.dsdi    +++|          MX6    0
18520  M00S14883.dsdi    +++|          SA6    A0+7
18521  M00S14884.dsdi    +++|          SA6    A0+17
18522  M00S14885.dsdi    +++|          MX3    -18
18523  M00S14886.dsdi    +++| FPX2     SA1    A0+B2       FORM UPPER 10 WORDS OF XP
18524  M00S14887.dsdi    +++|          SA2    A1+9        GET A-REGISTER
18525  M00S14888.dsdi    +++|          BX6    -X4*X1
18526  M00S14889.dsdi    +++|          BX7    -X3*X2
18527  M00S14890.dsdi    +++|          SA2    A2+8        GET B-REGISTER
18528  M00S14891.dsdi    +++|          LX6    18
18529  M00S14892.dsdi    +++|          BX6    X6+X7
18530  M00S14893.dsdi    +++|          BX7    -X3*X2
18531  M00S14894.dsdi    +++|          LX6    18
18532  M00S14895.dsdi    +++|          BX6    X6+X7
18533  M00S14896.dsdi    +++|          SA6    A1          STORE EXCHANGE PACKAGE WORD
18534  M00S14897.dsdi    +++|          SB2    B2+B1
18535  M00S14898.dsdi    +++|          SB3    10B
18536  M00S14899.dsdi    +++|          NE     B3,B2,FPX2  IF MORE TO PACK
18537  M00S14900.dsdi    +++|          MOVE   10B,A0+25,A0+10B  MOVE X-REGISTERS
18538  M00S14901.dsdi    +++|          SA1    FPXA        GET CPU1(800) ON/OFF
18539  M00S14902.dsdi    +++|          EQ     FPXX        RETURN
18540  M00S14903.dsdi    +++|
18541  M00S14904.dsdi    +++| FPXA     CON    0           POINTER TO CPU1 EXCHANGE PACKAGE
18542  M00S14905.dsdi    +++| FPXB     CON    0           BUFFER ADDRESS POINTER
18543  M00S14906.dsdi    +++| FRV      SPACE  4,10
18544  M00S14907.dsdi    +++|**        FRV - FETCH REGISTER VALUE.
18545  M00S14908.dsdi    +++|*
18546  M00S14909.dsdi    +++|*         ENTRY  (X1) = SVA OF REGISTER.
18547  M00S14910.dsdi    +++|*
18548  M00S14911.dsdi    +++|*         EXIT   (X6) = 16/0, 12/SEG, 32/BYTE OFFSET.
18549  M00S14912.dsdi    +++|*                (X2) = 0, IF PAGE FOUND.
18550  M00S14913.dsdi    +++|*
18551  M00S14914.dsdi    +++|*         USES   X - 2, 5, 6.
18552  M00S14915.dsdi    +++|*
18553  M00S14916.dsdi    +++|*         CALLS  ISM, NXB, PSM.
18554  M00S14917.dsdi    +++|
18555  M00S14918.dsdi    +++|
18556  M00S14919.dsdi    +++| FRV      SUBR               ENTRY/EXIT
18557  M00S14920.dsdi    +++|          BX6    X1
18558  M00S14921.dsdi    +++|          RJ     PVM         POSITION VIRTUAL MEMORY
18559  M00S14922.dsdi    +++|          NZ     X2,FRVX     IF PAGE NOT FOUND
18560  M00S14923.dsdi    +++|          RJ     NXB
18561  M00S14924.dsdi    +++|          BX5    X1          EXTRACT SEGMENT NUMBER
18562  M00S14925.dsdi    +++|          RJ     NXB
18563  M00S14926.dsdi    +++|          LX5    16
18564  M00S14927.dsdi    +++|          BX5    X5+X1
18565  M00S14928.dsdi    +++|          RJ     NXB
18566  M00S14929.dsdi    +++|          LX5    16
18567  M00S14930.dsdi    +++|          BX6    X5+X1
18568  M00S14931.dsdi    +++|          SX2    0
18569  M00S14932.dsdi    +++|          JP     FRVX        RETURN
18570  M00S14933.dsdi    +++| FSC      SPACE  4,11
18571  M00S14934.dsdi    +++|**        FSC - FORMAT STATUS/CONTROL REGISTER CONTENTS.
18572  M00S14935.dsdi    +++|*
18573  M00S14936.dsdi    +++|*         ENTRY  X5 = SC16 CHARACTERS STRING ADDRESS.
18574  M00S14937.dsdi    +++|*                B3 = NUMBER OF CHARACTERS.
18575  M00S14938.dsdi    +++|*                A0 = ADDRESS OF 14 CHARACTER DESCRIPTION.
18576  M00S14939.dsdi    +++|*                SCPA = 0 IF SC36 TO BE PROCESSED(CHARACTER STRING
18577  M00S14940.dsdi    +++|*                       WILL BE FOUND AT X5+ 100).
18578  M00S14941.dsdi    +++|*
18579  M00S14942.dsdi    +++|*         USES   ALL REGISTERS.
18580  M00S14943.dsdi    +++|*
18581  M00S14944.dsdi    +++|*         CALLS  MVE=,SSB,UPS,WOF.
18582  M00S14945.dsdi    +++|
18583  M00S14946.dsdi    +++|
18584  M00S14947.dsdi    +++| FSC      SUBR
18585  M00S14948.dsdi    +++|          RJ     SSB         CLEAR PRINT STRING
18586  M00S14949.dsdi    +++|          SB2    1
18587  M00S14950.dsdi    +++|          SB7    PRBF+15
18588  M00S14951.dsdi    +++| FSC1     SA2    A0+
18589  M00S14952.dsdi    +++|          SB6    14
18590  M00S14953.dsdi    +++|          RJ     UPS
18591  M00S14954.dsdi    +++|          SB7    B7+2        SPACE TWICE
18592  M00S14955.dsdi    +++|          MOVE   B3,X5,B7
18593  M00S14956.dsdi    +++|          ZR     B2,FSC2     IF DONE WITH SC36
18594  M00S14957.dsdi    +++|          SA4    /DIRECT/SCPA
18595  M00S14958.dsdi    +++|          NZ     X4,FSC2     IF SC36 RECORD NOT FOUND
18596  M00S14959.dsdi    +++|          SB2    0
18597  M00S14960.dsdi    +++|          SX5    X5+100      SET SC36 CHARACTER STRING ADDRESS
18598  M00S14961.dsdi    +++|          SB7    PRBF+65
18599  M00S14962.dsdi    +++|          JP     FSC1        CONTINUE
18600  M00S14963.dsdi    +++|
18601  M00S14964.dsdi    +++| FSC2     PRINT  CCCH,116
18602  M00S14965.dsdi    +++|          JP     FSCX        EXIT
Line S14966 Modification History
M01 (Removed by) dsdi74
Seq #  *Modification Id* Act 
----------------------------+
18603  M01S14966.dsdi74  ---| FTR      SPACE  4,11
Line S00051 Modification History
M01 (Added by) dsdi74
Seq #  *Modification Id* Act 
----------------------------+
18604  M01S00051.dsdi74  +++| FTR      SPACE  4,15
18605  M00S14967.dsdi    +++|**        FTR - FORMAT TWO PP COMMUNICATION REGISTERS.
18606  M00S14968.dsdi    +++|*
18607  M00S14969.dsdi    +++|*         ENTRY  A5 = ADDRESS OF FIRST REGISTER WORD.
18608  M00S14970.dsdi    +++|*                X5 = FIRST REGISTER WORD.
Line S14971 Modification History
M01 (Removed by) dsdi74
Seq #  *Modification Id* Act 
----------------------------+
18609  M01S14971.dsdi74  ---|*                PPPA = CURRENT PPU NUMBER.
Line S00052 Modification History
M01 (Added by) dsdi74
Seq #  *Modification Id* Act 
----------------------------+
18610  M01S00052.dsdi74  +++|*                FW = CURRENT PPU NUMBER.
18611  M00S14972.dsdi    +++|*
18612  M00S14973.dsdi    +++|*         EXIT   A5 IS ADVANCED BY 20B.
18613  M00S14974.dsdi    +++|*
Line S14975 Modification History
M01 (Removed by) dsdi74
Seq #  *Modification Id* Act 
----------------------------+
18614  M01S14975.dsdi74  ---|*         USES   ALL REGISTERS.
Line S00053 Modification History
M01 (Added by) dsdi74
Seq #  *Modification Id* Act 
----------------------------+
18615  M01S00053.dsdi74  +++|*         USES   X - 1, 2, 5, 6.
18616  M01S00054.dsdi74  +++|*                A - 1, 2, 5, 6.
18617  M01S00055.dsdi74  +++|*                B - 2, 4, 7.
18618  M00S14976.dsdi    +++|*
Line S14977 Modification History
M01 (Removed by) dsdi74
Seq #  *Modification Id* Act 
----------------------------+
18619  M01S14977.dsdi74  ---|*         CALLS  FPL,WOF.
Line S00056 Modification History
M01 (Added by) dsdi74
Seq #  *Modification Id* Act 
----------------------------+
18620  M01S00056.dsdi74  +++|*         CALLS  FPL.
18621  M01S00057.dsdi74  +++|*
18622  M01S00058.dsdi74  +++|*         MACROS PRINT.
18623  M00S14978.dsdi    +++|
18624  M00S14979.dsdi    +++|
18625  M00S14980.dsdi    +++| FTR      SUBR
18626  M00S14981.dsdi    +++|          SX6    0
18627  M00S14982.dsdi    +++|          SA6    FTRA        CLEAR LINE INDEX
18628  M00S14983.dsdi    +++|          PRINT  (=2C  )
Line S14984 Modification History
M01 (Removed by) dsdi74
Seq #  *Modification Id* Act 
----------------------------+
18629  M01S14984.dsdi74  ---| FTR1     SA1    /DIRECT/PPPA
Line S00059 Modification History
M01 (Added by) dsdi74
Seq #  *Modification Id* Act 
----------------------------+
18630  M01S00059.dsdi74  +++| FTR1     SA1    FW
18631  M00S14985.dsdi    +++|          SA2    FTRA
18632  M00S14986.dsdi    +++|          SB2    X1          SET PPU NUMBER
18633  M00S14987.dsdi    +++|          SB4    X2          SET LINE INDEX
18634  M00S14988.dsdi    +++|          SB7    PRBF+7      PRINT STRING ADDRESS
18635  M00S14989.dsdi    +++|          RJ     FPL         FORMAT PPU REGISTER WORD
18636  M00S14990.dsdi    +++|          SB2    B2+1        ADVANCE PPU NUMBER
18637  M00S14991.dsdi    +++|          SA5    A5+10B      READ WORD FROM NEXT AREA
18638  M00S14992.dsdi    +++|          SA1    FTRB
18639  M00S14993.dsdi    +++|          NZ     X1,FTR2     IF ONLY 1 AREA TO PRINT
18640  M00S14994.dsdi    +++|          SB7    PRBF+65
18641  M00S14995.dsdi    +++|          RJ     FPL         FORMAT REGISTER WORD
18642  M00S14996.dsdi    +++| FTR2     PRINT  CCCH,B7-CCCH
18643  M00S14997.dsdi    +++|          SA5    A5-7        READ NEXT WORD OF FIRST REGISTER
18644  M00S14998.dsdi    +++|          SA1    FTRA
18645  M00S14999.dsdi    +++|          SX6    X1+B1
18646  M00S15000.dsdi    +++|          SA6    A1          ADVANCE LINE INDEX
18647  M00S15001.dsdi    +++|          SX6    X6-10B
18648  M00S15002.dsdi    +++|          NG     X6,FTR1     IF MORE LINES TO FORMAT
18649  M00S15003.dsdi    +++|          SA5    A5+10B      UPDATE POINTER
18650  M00S15004.dsdi    +++|          SX6    B0+         CLEAR 1 AREA FLAG
18651  M00S15005.dsdi    +++|          SA6    FTRB
18652  M00S15006.dsdi    +++|          JP     FTRX        EXIT
18653  M00S15007.dsdi    +++|
18654  M00S15008.dsdi    +++| FTRA     BSS    1           LINE INDEX
18655  M00S15009.dsdi    +++| FTRB     CON    0           PRINT ONLY 1 AREA FLAG
18656  M00S15010.dsdi    +++| FXA      SPACE  4,10
18657  M00S15011.dsdi    +++|**        FXA - FORMAT EXCHANGE AREA.
18658  M00S15012.dsdi    +++|*
18659  M00S15013.dsdi    +++|*         ENTRY  (X1)= SVA OF EXCHANGE PACKAGE.
18660  M00S15014.dsdi    +++|*                (X6)= NUMBER OF WORDS TO FORMAT.
18661  M00S15015.dsdi    +++|*
18662  M00S15016.dsdi    +++|*         EXIT   DESIRED AMOUNT OF EXCHANGE AREA PRINTED.
18663  M00S15017.dsdi    +++|*
18664  M00S15018.dsdi    +++|*         USES   A - 0, 1, 2, 3, 5, 6, 7.
18665  M00S15019.dsdi    +++|*                X - 1, 2, 3, 5, 6, 7.
18666  M00S15020.dsdi    +++|*                B - 6, 7.
18667  M00S15021.dsdi    +++|*
Line S15022 Modification History
M01 (Removed by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
18668  M01S15022.dsdi62  ---|*         CALLS  CDD, HTS, NXB, RMB, SSB, UPS.
Line S00036 Modification History
M01 (Added by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
18669  M01S00036.dsdi62  +++|*         CALLS  CDD, HTS, RMB, SSB, UPS.
18670  M00S15023.dsdi    +++|*
18671  M00S15024.dsdi    +++|*         MACROS PRINT.
18672  M00S15025.dsdi    +++|
18673  M00S15026.dsdi    +++|
18674  M00S15027.dsdi    +++| FXA      SUBR               ENTRY/EXIT
18675  M00S15028.dsdi    +++|          SA6    FXAA+1      SAVE TERMINATING CONDITION
18676  M00S15029.dsdi    +++|          SX6    51          READ FULL BUFFER
18677  M00S15030.dsdi    +++|          RJ     RMB         READ MEMORY BYTES
18678  M00S15031.dsdi    +++|          SX7    0
18679  M00S15032.dsdi    +++|          SA7    FXAA
18680  M00S15033.dsdi    +++|          SA1    BUF+8       FETCH FRAME DESCRIPTOR
18681  M00S15034.dsdi    +++|          SX2    0#F0
18682  M00S15035.dsdi    +++|          SA3    FXAD        DESCRIPTOR FOR FULL PACKAGE
18683  M00S15036.dsdi    +++|          BX6    X3
18684  M00S15037.dsdi    +++|          BX7    X1*X2       EXTRACT POSSIBLE ENDING A-REGISTER
18685  M00S15038.dsdi    +++|          SA6    FXAA+2
18686  M00S15039.dsdi    +++|          ZR     X7,FXA1     IF EXCHANGE PACKAGE
18687  M00S15040.dsdi    +++|          LX7    18-4
18688  M00S15041.dsdi    +++|          IX3    X3+X7
18689  M00S15042.dsdi    +++|          LX2    4
18690  M00S15043.dsdi    +++|          BX6    X1*X2       EXTRACT STARTING X REGISTER
18691  M00S15044.dsdi    +++|          LX6    12-8
18692  M00S15045.dsdi    +++|          IX3    X6+X3
18693  M00S15046.dsdi    +++|          LX2    -8
18694  M00S15047.dsdi    +++|          BX6    X1*X2       EXTRACT ENDING X REGISTER
18695  M00S15048.dsdi    +++|          LX6    6-0
18696  M00S15049.dsdi    +++|          IX6    X6+X3
18697  M00S15050.dsdi    +++|          LX6    59-23
18698  M00S15051.dsdi    +++|          SA6    A6          SAVE STACK FRAME DESCRIPTOR
18699  M00S15052.dsdi    +++| FXA1     RJ     SSB         SPACE FILL BUFFER
18700  M00S15053.dsdi    +++|          SA1    FXAA        REGISTER TO DUMP
18701  M00S15054.dsdi    +++|          SA5    FXAB+X1     REGISTER DESCRIPTOR
18702  M00S15055.dsdi    +++|          SX2    X1
18703  M00S15056.dsdi    +++|          LX2    2
18704  M00S15057.dsdi    +++|          SA0    BUF+X2      POINTER TO REGISTER CONTENT
18705  M00S15058.dsdi    +++|          RJ     CDD         GET DECIMAL REGISTER NUMBER
18706  M00S15059.dsdi    +++|          BX2    X6
18707  M00S15060.dsdi    +++|          LX2    59-11
18708  M00S15061.dsdi    +++|          SB7    PRBF
18709  M00S15062.dsdi    +++|          SB6    2
18710  M00S15063.dsdi    +++|          RJ     UPS         PLACE REGISTER NUMBER IN OUTPUT LINE
18711  M00S15064.dsdi    +++|          MX2    -17
18712  M00S15065.dsdi    +++|          BX6    -X2*X5      EXTRACT MESSAGE ADDRESS
18713  M00S15066.dsdi    +++|          SA6    FXAC
18714  M00S15067.dsdi    +++|          AX5    17
18715  M00S15068.dsdi    +++|          BX7    -X2*X5      EXTRACT 2 CHARACTER FIELD
18716  M00S15069.dsdi    +++|          SA7    A6+B1
18717  M00S15070.dsdi    +++|          SB7    B7+2
18718  M00S15071.dsdi    +++|          SA2    X6          FETCH MESSAGE
18719  M00S15072.dsdi    +++|          NZ     X6,FXA3     IF MESSAGE SPECIFIED
18720  M00S15073.dsdi    +++|          BX2    X7          2 CHARACTER FIELD
18721  M00S15074.dsdi    +++|          LX2    59-11       LEFT JUSTIFY
18722  M00S15075.dsdi    +++|          SB7    PRBF+11
18723  M00S15076.dsdi    +++|          SB6    B1+B1
18724  M00S15077.dsdi    +++|          SX5    B6+B6
18725  M00S15078.dsdi    +++|          RJ     UPS         DISPLAY REGISTER NAME
18726  M00S15079.dsdi    +++| FXA2     SB7    B7+2        NEW POSITION IN OUTPUT LINE
18727  M00S15080.dsdi    +++|          SA1    A0
18728  M00S15081.dsdi    +++|          LX1    59-15       LEFT JUSTIFY 16 BIT DATA
18729  M00S15082.dsdi    +++|          SB6    4
18730  M00S15083.dsdi    +++|          RJ     HTS         DISPLAY 4 HEX DIGITS
18731  M00S15084.dsdi    +++|          SA0    A0+1
18732  M00S15085.dsdi    +++|          SX5    X5-1
18733  M00S15086.dsdi    +++|          NZ     X5,FXA2     IF MORE 16 BIT CHUNKS TO DISPLAY
18734  M00S15087.dsdi    +++|          EQ     FXA4        PRINT LINE
18735  M00S15088.dsdi    +++|
18736  M00S15089.dsdi    +++| FXA3     SB6    9
18737  M00S15090.dsdi    +++|          RJ     UPS         UNPACK MESSAGE TO LINE
18738  M00S15091.dsdi    +++|          SA2    FXAC+1      GET REGISTER NAME
18739  M00S15092.dsdi    +++|          SB6    B1+B1
18740  M00S15093.dsdi    +++|          SX5    B6+B6
18741  M00S15094.dsdi    +++|          ZR     X2,FXA2     IF NO REGISTER NAME
18742  M00S15095.dsdi    +++|          SB7    PRBF+25
18743  M00S15096.dsdi    +++|          LX2    59-11
18744  M00S15097.dsdi    +++|          RJ     UPS         PLACE REGISTER NAME IN LINE
18745  M00S15098.dsdi    +++|          SA1    A0
18746  M00S15099.dsdi    +++|          LX1    59-15
18747  M00S15100.dsdi    +++|          SB7    PRBF+15
18748  M00S15101.dsdi    +++|          SB6    4
18749  M00S15102.dsdi    +++|          RJ     HTS         DISPLAY 4 HEX DIGITS
18750  M00S15103.dsdi    +++|          SA5    A0+B1
18751  M00S15104.dsdi    +++|          LX5    16
18752  M00S15105.dsdi    +++|          SA1    A0+2
18753  M00S15106.dsdi    +++|          BX5    X5+X1
18754  M00S15107.dsdi    +++|          LX5    16
18755  M00S15108.dsdi    +++|          SA1    A0+3
18756  M00S15109.dsdi    +++|          BX1    X5+X1
18757  M00S15110.dsdi    +++|          LX1    59-47
18758  M00S15111.dsdi    +++|          SB7    PRBF+29
18759  M00S15112.dsdi    +++|          SB6    1
18760  M00S15113.dsdi    +++|          RJ     HTS         DISPLAY RING NUMBER
18761  M00S15114.dsdi    +++|          SB7    B7+B1
18762  M00S15115.dsdi    +++|          SB6    3
18763  M00S15116.dsdi    +++|          RJ     HTS         DISPLAY SEGMENT NUMBER
18764  M00S15117.dsdi    +++|          SB7    B7+2
18765  M00S15118.dsdi    +++|          SB6    8
18766  M00S15119.dsdi    +++|          RJ     HTS         DISPLAY ADDRESS DATA
18767  M00S15120.dsdi    +++| FXA4     PRINT  CCCH,B7-CCCH+1
18768  M00S15121.dsdi    +++|          SA1    FXAA
18769  M00S15122.dsdi    +++|          SA2    A1+B1
18770  M00S15123.dsdi    +++|          SX6    X1+B1       INCREMENT REGISTER NUMBER
18771  M00S15124.dsdi    +++|          SA6    A1
18772  M00S15125.dsdi    +++|          IX2    X1-X2
18773  M00S15126.dsdi    +++|          ZR     X2,FXAX     IF EXCHANGE PACKAGE DUMP FINISHED
18774  M00S15127.dsdi    +++|          MX2    -6
18775  M00S15128.dsdi    +++|          SA3    A2+B1
18776  M00S15129.dsdi    +++|          BX6    X3
18777  M00S15130.dsdi    +++|          LX6    6
18778  M00S15131.dsdi    +++|          BX3    -X2*X6      ENDING REGISTER NUMBER
18779  M00S15132.dsdi    +++|          IX1    X1-X3
18780  M00S15133.dsdi    +++|          NZ     X1,FXA1     IF MORE REGISTERS TO DUMP
18781  M00S15134.dsdi    +++|          LX6    6
18782  M00S15135.dsdi    +++|          SA6    A3          REPLACE DESCRIPTOR
18783  M00S15136.dsdi    +++|          BX6    -X2*X6
18784  M00S15137.dsdi    +++|          SA6    A1          SET NEW STARTING REGISTER
18785  M00S15138.dsdi    +++|          ZR     X6,FXAX     IF END OF DUMP
18786  M00S15139.dsdi    +++|          PRINT  (=2C  )
18787  M00S15140.dsdi    +++|          EQ     FXA1        DISPLAY NEXT REGISTER
18788  M00S15141.dsdi    +++|
18789  M00S15142.dsdi    +++|
18790  M00S15143.dsdi    +++| FXAA     CON    0           REGISTER NUMBER
18791  M00S15144.dsdi    +++|          CON    0           LAST REGISTER NUMBER
18792  M00S15145.dsdi    +++|          CON    0           DUMP DESCRIPTOR
18793  M00S15146.dsdi    +++|
18794  M00S15147.dsdi    +++| FXAB     BSS    0           REGISTER DESCRIPTORS
18795  M00S15148.dsdi    +++| P        RFDSC  00,(LKEY     )
18796  M00S15149.dsdi    +++| A0       RFDSC  00,(VMID/UVMI)
18797  M00S15150.dsdi    +++| A1       RFDSC  01,(FLGS/TRAP)
18798  M00S15151.dsdi    +++| A2       RFDSC  02,(USER MASK)
18799  M00S15152.dsdi    +++| A3       RFDSC  03,( MTR MASK)
18800  M00S15153.dsdi    +++| A4       RFDSC  04,(USER COND)
18801  M00S15154.dsdi    +++| A5       RFDSC  05,( MTR COND)
18802  M00S15155.dsdi    +++| A6       RFDSC  06,(KYPC/LPID)
18803  M00S15156.dsdi    +++| A7       RFDSC  07,(KYPT MASK)
18804  M00S15157.dsdi    +++| A8       RFDSC  08,(KYPT CODE)
18805  M00S15158.dsdi    +++| A9       RFDSC  09,(         )
18806  M00S15159.dsdi    +++| AA       RFDSC  0A,(INTV TIMR)
18807  M00S15160.dsdi    +++| AB       RFDSC  0B,(         )
18808  M00S15161.dsdi    +++| AC       RFDSC  0C,(BASE CONS)
18809  M00S15162.dsdi    +++| AD       RFDSC  0D,(         )
18810  M00S15163.dsdi    +++| AE       RFDSC  0E,(MODL FLGS)
18811  M00S15164.dsdi    +++| AF       RFDSC  0F,(SEGT LENG)
18812  M00S15165.dsdi    +++| X0       RFDSC  10
18813  M00S15166.dsdi    +++| X1       RFDSC  11
18814  M00S15167.dsdi    +++| X2       RFDSC  12
18815  M00S15168.dsdi    +++| X3       RFDSC  13
18816  M00S15169.dsdi    +++| X4       RFDSC  14
18817  M00S15170.dsdi    +++| X5       RFDSC  15
18818  M00S15171.dsdi    +++| X6       RFDSC  16
18819  M00S15172.dsdi    +++| X7       RFDSC  17
18820  M00S15173.dsdi    +++| X8       RFDSC  18
18821  M00S15174.dsdi    +++| X9       RFDSC  19
18822  M00S15175.dsdi    +++| XA       RFDSC  1A
18823  M00S15176.dsdi    +++| XB       RFDSC  1B
18824  M00S15177.dsdi    +++| XC       RFDSC  1C
18825  M00S15178.dsdi    +++| XD       RFDSC  1D
18826  M00S15179.dsdi    +++| XE       RFDSC  1E
18827  M00S15180.dsdi    +++| XF       RFDSC  1F
18828  M00S15181.dsdi    +++|          RFDSC  20,(TRACE REG)
18829  M00S15182.dsdi    +++| UP       RFDSC  21,(SEGMENT  )
18830  M00S15183.dsdi    +++| TP       RFDSC  22,(TBL ADDR )
18831  M00S15184.dsdi    +++| DP       RFDSC  23,(DB I/DB M)
18832  M00S15185.dsdi    +++| R1       RFDSC  24,(MAX RING )
18833  M00S15186.dsdi    +++| R2       RFDSC  25,(         )
18834  M00S15187.dsdi    +++| R3       RFDSC  26,(         )
18835  M00S15188.dsdi    +++| R4       RFDSC  27,(         )
18836  M00S15189.dsdi    +++| R5       RFDSC  28,(         )
18837  M00S15190.dsdi    +++| R6       RFDSC  29,(         )
18838  M00S15191.dsdi    +++| R7       RFDSC  2A,(         )
18839  M00S15192.dsdi    +++| R8       RFDSC  2B,(         )
18840  M00S15193.dsdi    +++| R9       RFDSC  2C,(         )
18841  M00S15194.dsdi    +++| RA       RFDSC  2D,(         )
18842  M00S15195.dsdi    +++| RB       RFDSC  2E,(         )
18843  M00S15196.dsdi    +++| RC       RFDSC  2F,(         )
18844  M00S15197.dsdi    +++| RD       RFDSC  30,(         )
18845  M00S15198.dsdi    +++| RE       RFDSC  31,(         )
18846  M00S15199.dsdi    +++| RF       RFDSC  32,(         )
18847  M00S15200.dsdi    +++|
18848  M00S15201.dsdi    +++| FXAC     CON    0           MESSAGE ADDRESS
18849  M00S15202.dsdi    +++|          CON    0           REGISTER NAME
18850  M00S15203.dsdi    +++|
18851  M00S15204.dsdi    +++| FXAD     VFD    6/16,6/17,6/32,6/33,6/51,6/0,6/1,6/17,6/17,6/0
18852  M00S15205.dsdi    +++| FXC      SPACE  4,15
18853  M00S15206.dsdi    +++|**        FXC - FORMAT EXCHANGE PACKAGE REGISTER ADDRESS CONTENTS.
18854  M00S15207.dsdi    +++|*
18855  M00S15208.dsdi    +++|*         ENTRY  (B2) = ADDRESS OF EXCHANGE PACKAGE REGISTER ADDRESS.
18856  M00S15209.dsdi    +++|*                (X5) = STRING BUFFER ADDRESS FOR CONTENTS.
18857  M00S15210.dsdi    +++|*                (FW) = ADDRESS OF CONTROL POINT AREA.
18858  M00S15211.dsdi    +++|*
18859  M00S15212.dsdi    +++|*         EXIT   REGISTER AND CONTENTS PLACED IN STRING BUFFER.
18860  M00S15213.dsdi    +++|*
18861  M00S15214.dsdi    +++|*         USES   A - 1, 2, 6.
18862  M00S15215.dsdi    +++|*                B - 6, 7.
Line S15216 Modification History
M01 (Removed by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18863  M01S15216.dsdi71a ---|*                X - 0, 1, 2, 6, 7.
Line S00034 Modification History
M01 (Added by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18864  M01S00034.dsdi71a +++|*         X - 1, 2, 6.
18865  M00S15217.dsdi    +++|*
Line S15218 Modification History
M01 (Removed by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18866  M01S15218.dsdi71a ---|*         CALLS  FDW, POM, SDI.
Line S00035 Modification History
M01 (Added by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18867  M01S00035.dsdi71a +++|*         CALLS  FDW, GFL, POM, SDI.
18868  M00S15219.dsdi    +++|*
18869  M00S15220.dsdi    +++|*         MACROS GETCM.
18870  M00S15221.dsdi    +++|
18871  M00S15222.dsdi    +++|
18872  M00S15223.dsdi    +++| FXC      SUBR               ENTRY/EXIT
Line S15224 Modification History
M01 (Removed by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18873  M01S15224.dsdi71a ---|          SA2    FW          GET FIELD LENGTH AND REFERENCE ADDRESS
18874  M01S15225.dsdi71a ---|          SA1    F.TCMT
18875  M01S15226.dsdi71a ---|          IX2    X1+X2
18876  M01S15227.dsdi71a ---|          MX0    -12
18877  M01S15228.dsdi71a ---|          SA1    X2+FLSW
18878  M01S15229.dsdi71a ---|          BX7    -X0*X1
18879  M01S15230.dsdi71a ---|          AX1    12
18880  M01S15231.dsdi71a ---|          MX0    -15
18881  M01S15232.dsdi71a ---|          BX6    -X0*X1
18882  M01S15233.dsdi71a ---|          LX6    6
Line S00036 Modification History
M01 (Added by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18883  M01S00036.dsdi71a +++|          SA1    FW          GET FIELD LENGTH AND REFERENCE ADDRESS
18884  M01S00037.dsdi71a +++|          RJ     GFL
18885  M00S15234.dsdi    +++|          SA6    BA
18886  M00S15235.dsdi    +++|          SA1    B2          CHECK ADDRESS AGAINST FL
Line S15236 Modification History
M01 (Removed by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18887  M01S15236.dsdi71a ---|          LX7    6
18888  M00S15237.dsdi    +++|          IX2    X1-X7
18889  M00S15238.dsdi    +++|          BX6    X6-X6       CLEAR VALUE
18890  M00S15239.dsdi    +++|          PL     X2,FXC1     IF ADDRESS .GE. FL
18891  M00S15240.dsdi    +++|          RJ     POM         POSITION DUMP FILE
18892  M00S15241.dsdi    +++|          GETCM              READ WORD
18893  M00S15242.dsdi    +++| FXC1     SA2    =4000005B   CONVERT REGISTER ADDRESS CONTENTS
18894  M00S15243.dsdi    +++|          SB7    X5
18895  M00S15244.dsdi    +++|          BX1    X6
18896  M00S15245.dsdi    +++|          RJ     FDW         FORMAT WORD
18897  M00S15246.dsdi    +++|          BX2    X1          SET DATA WORD
18898  M00S15247.dsdi    +++|          SB6    10
18899  M00S15248.dsdi    +++|          RJ     SDI         SET DISPLAY CODE INTERPRETATION
18900  M00S15249.dsdi    +++|          SX6    B0+         CLEAR REFERENCE ADDRESS
18901  M00S15250.dsdi    +++|          SA6    BA
18902  M00S15251.dsdi    +++|          EQ     FXCX        RETURN
Line S15252 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18903  M01S15252.dsdi71  ---| FXW      SPACE  4,14
Line S00224 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18904  M01S00224.dsdi71  +++| FXW      SPACE  4,16
18905  M00S15253.dsdi    +++|**        FXW - FORMAT EXCHANGE PACKAGE WORD.
18906  M00S15254.dsdi    +++|*
18907  M00S15255.dsdi    +++|*         ENTRY  X1 = WORD INDEX.
18908  M00S15256.dsdi    +++|*                X5 = WORD.
18909  M00S15257.dsdi    +++|*                A5 = WORD ADDRESS.
18910  M00S15258.dsdi    +++|*                B7 = PRINT STRING ADDRESS.
18911  M00S15259.dsdi    +++|*                   = COMPLEMENT OF PRINT STRING ADDRESS IF CONTENTS
18912  M00S15260.dsdi    +++|*                     OF REGISTER ADDRESSES TO BE DISPLAYED.
18913  M00S15261.dsdi    +++|*
18914  M00S15262.dsdi    +++|*         EXIT   A5 IS ADVANCED.
18915  M00S15263.dsdi    +++|*
Line S15264 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18916  M01S15264.dsdi71  ---|*         SAVES  X - NONE.
18917  M01S15265.dsdi71  ---|*                B - 1.
18918  M01S15266.dsdi71  ---|*                A - 0.
Line S00225 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18919  M01S00225.dsdi71  +++|*         USES   X - 0, 1, 2, 3, 5, 6.
18920  M01S00226.dsdi71  +++|*                A - 1, 2, 3, 5, 6, 7.
18921  M01S00227.dsdi71  +++|*                B - 2, 4, 6, 7.
18922  M00S15267.dsdi    +++|*
Line S15268 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18923  M01S15268.dsdi71  ---|*         CALLS  COD, FDW, FXC, SDI, UPS.
Line S00228 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18924  M01S00228.dsdi71  +++|*         CALLS  COD, DOS, FDW, FXC, SDI, UPS.
18925  M00S15269.dsdi    +++|
18926  M00S15270.dsdi    +++|
18927  M00S15271.dsdi    +++| FXW      SUBR
Line S15272 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18928  M01S15272.dsdi71  ---|          BX0    X1          SAVE X1
18929  M00S15273.dsdi    +++|          BX6    X6-X6
18930  M00S15274.dsdi    +++|          PL     B7,FXW1     IF CONTENTS OF ADDRESS NOT TO BE DISPLAYED
18931  M00S15275.dsdi    +++|          SB7    -B7         SET PRINT STRING ADDRESS
18932  M00S15276.dsdi    +++|          SX6    B1          SET DISPLAY CONTENTS FLAG
Line S15277 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18933  M01S15277.dsdi71  ---| FXW1     SA6    FXWH
Line S00229 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18934  M01S00229.dsdi71  +++| FXW1     SA6    FXWE
18935  M00S15278.dsdi    +++|          SX2    X1-10B
18936  M00S15279.dsdi    +++|          PL     X2,FXW6     IF X-REGISTER
Line S15280 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18937  M01S15280.dsdi71  ---|
18938  M01S15281.dsdi71  ---|*         CONVERT CONTROL REGISTER TO DISPLAY CODE.
18939  M01S15282.dsdi71  ---|
18940  M01S15283.dsdi71  ---|          MX3    24
18941  M01S15284.dsdi71  ---|          BX1    X3*X5
18942  M01S15285.dsdi71  ---|          LX1    24
18943  M01S15286.dsdi71  ---|          RJ     COD
18944  M01S15287.dsdi71  ---|          LX6    2*6
18945  M01S15288.dsdi71  ---|          SA6    FXWB
18946  M01S15289.dsdi71  ---|
18947  M01S15290.dsdi71  ---|*         CONVERT A - REGISTER TO DISPLAY CODE.
18948  M01S15291.dsdi71  ---|
18949  M01S15292.dsdi71  ---|          MX3    18
18950  M01S15293.dsdi71  ---|          LX5    24
18951  M01S15294.dsdi71  ---|          BX1    X3*X5
18952  M01S15295.dsdi71  ---|          LX1    18
18953  M01S15296.dsdi71  ---|          BX7    X1
18954  M01S15297.dsdi71  ---|          SA7    FXWF
18955  M01S15298.dsdi71  ---|          RJ     COD
18956  M01S15299.dsdi71  ---|          LX6    4*6
18957  M01S15300.dsdi71  ---|          SA6    A6+B1
18958  M01S15301.dsdi71  ---|
18959  M01S15302.dsdi71  ---|*         CONVERT B - REGISTER TO DISPLAY CODE.
18960  M01S15303.dsdi71  ---|
18961  M01S15304.dsdi71  ---|          MX3    18
18962  M01S15305.dsdi71  ---|          LX5    18
18963  M01S15306.dsdi71  ---|          BX1    X3*X5
18964  M01S15307.dsdi71  ---|          LX1    18
18965  M01S15308.dsdi71  ---|          BX7    X1
18966  M01S15309.dsdi71  ---|          SA7    FXWG
18967  M01S15310.dsdi71  ---|          RJ     COD
18968  M01S15311.dsdi71  ---|          LX6    4*6
18969  M01S15312.dsdi71  ---|          SA6    A6+B1
18970  M01S15313.dsdi71  ---|          BX1    X0          RESTORE X1
18971  M00S15314.dsdi    +++|          SB4    B7          SAVE B7
18972  M00S15315.dsdi    +++|          SA2    FXWA+X1     READ REGISTER NAME
18973  M00S15316.dsdi    +++|          SA3    CF          CHECK IF A CYBER 176
18974  M00S15317.dsdi    +++|          NZ     X3,FXW2     IF NOT CYBER 176
18975  M00S15318.dsdi    +++|          LX2    42          READ CYBER 176 REGISTER NAME
18976  M00S15319.dsdi    +++|
Line S15320 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18977  M01S15320.dsdi71  ---|*         SET CONTROL REGISTER NAME.
Line S00230 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18978  M01S00230.dsdi71  +++|*         SET REGISTER NAMES.
18979  M00S15321.dsdi    +++|
Line S15322 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18980  M01S15322.dsdi71  ---| FXW2     SB6    3
Line S00231 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18981  M01S00231.dsdi71  +++| FXW2     SB6    3           SET CONTROL REGISTER NAME
18982  M00S15323.dsdi    +++|          RJ     UPS
18983  M00S15324.dsdi    +++|          NZ     X3,FXW3     IF NOT A CYBER 176
18984  M00S15325.dsdi    +++|          LX2    18          SHIFT TO NEXT A REGISTER NAME
Line S15326 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18985  M01S15326.dsdi71  ---|
18986  M01S15327.dsdi71  ---|*         SET A - REGISTER NAME.
18987  M01S15328.dsdi71  ---|
18988  M01S15329.dsdi71  ---| FXW3     SB7    B7+11
Line S00232 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18989  M01S00232.dsdi71  +++| FXW3     SB7    B7+11       SET A-REGISTER NAME
18990  M00S15330.dsdi    +++|          SB6    2
18991  M00S15331.dsdi    +++|          RJ     UPS
Line S15332 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18992  M01S15332.dsdi71  ---|
18993  M01S15333.dsdi71  ---|*         SET B - REGISTER NAME.
18994  M01S15334.dsdi71  ---|
18995  M01S15335.dsdi71  ---|          SB7    B7+9
Line S00233 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18996  M01S00233.dsdi71  +++|          SB7    B7+9        SET B-REGISTER NAME
18997  M00S15336.dsdi    +++|          SB6    2
18998  M00S15337.dsdi    +++|          RJ     UPS
18999  M00S15338.dsdi    +++|
19000  M00S15339.dsdi    +++|*         SET A AND B-REGISTER CONTENTS NAMES.
19001  M00S15340.dsdi    +++|
Line S15341 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19002  M01S15341.dsdi71  ---|          SA1    FXWH
Line S00234 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19003  M01S00234.dsdi71  +++|          SA1    FXWE
19004  M00S15342.dsdi    +++|          ZR     X1,FXW4     IF NOT TO DISPLAY ADDRESS CONTENTS
Line S15343 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19005  M01S15343.dsdi71  ---|          SA2    FXWE
Line S00235 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19006  M01S00235.dsdi71  +++|          SA2    FXWB
19007  M00S15344.dsdi    +++|          SB7    B7+9
19008  M00S15345.dsdi    +++|          SB6    5
19009  M00S15346.dsdi    +++|          RJ     UPS         UNPACK TO STRING BUFFER
19010  M00S15347.dsdi    +++|          SB7    B7+37
19011  M00S15348.dsdi    +++|          SB6    5
19012  M00S15349.dsdi    +++|          RJ     UPS         UNPACK TO STRING BUFFER
19013  M00S15350.dsdi    +++|
Line S15351 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19014  M01S15351.dsdi71  ---|*         SET CONTROL REGISTER.
Line S00236 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19015  M01S00236.dsdi71  +++|*         SET REGISTERS IN STRING BUFFER.
19016  M00S15352.dsdi    +++|
19017  M00S15353.dsdi    +++| FXW4     SB7    B4+4
Line S15354 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19018  M01S15354.dsdi71  ---|          SA2    FXWB
19019  M01S15355.dsdi71  ---|          SB6    8
19020  M01S15356.dsdi71  ---|          RJ     UPS
19021  M01S15357.dsdi71  ---|
19022  M01S15358.dsdi71  ---|*         SET A - REGISTER.
19023  M01S15359.dsdi71  ---|
19024  M01S15360.dsdi71  ---|          SB7    B7+5
19025  M01S15361.dsdi71  ---|          SA2    FXWC
19026  M01S15362.dsdi71  ---|          SB6    6
19027  M01S15363.dsdi71  ---|          RJ     UPS
19028  M01S15364.dsdi71  ---|
19029  M01S15365.dsdi71  ---|*         SET B - REGISTER.
19030  M01S15366.dsdi71  ---|
19031  M01S15367.dsdi71  ---|          SB7    B7+5
19032  M01S15368.dsdi71  ---|          SA2    FXWD
19033  M01S15369.dsdi71  ---|          SB6    6
19034  M01S15370.dsdi71  ---|          RJ     UPS
Line S00237 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19035  M01S00237.dsdi71  +++|          BX1    X5
19036  M01S00238.dsdi71  +++|          LX1    24          SET CONTROL REGISTER
19037  M01S00239.dsdi71  +++|          SB4    8
19038  M01S00240.dsdi71  +++|          RJ     DOS
19039  M01S00241.dsdi71  +++|          MX0    -18
19040  M01S00242.dsdi71  +++|          BX7    -X0*X5
19041  M01S00243.dsdi71  +++|          SA7    FXWD        SAVE B-REGISTER
19042  M01S00244.dsdi71  +++|          BX1    X5
19043  M01S00245.dsdi71  +++|          LX1    -18         SET A-REGISTER
19044  M01S00246.dsdi71  +++|          BX7    -X0*X1
19045  M01S00247.dsdi71  +++|          SA7    A7-B1       SAVE A-REGISTER
19046  M01S00248.dsdi71  +++|          SB7    B7+3
19047  M01S00249.dsdi71  +++|          SB4    6
19048  M01S00250.dsdi71  +++|          RJ     DOS
19049  M01S00251.dsdi71  +++|          BX1    X5          SET B-REGISTER
19050  M01S00252.dsdi71  +++|          SB7    B7+3
19051  M01S00253.dsdi71  +++|          SX5    PRBF+42
19052  M01S00254.dsdi71  +++|          RJ     DOS
19053  M00S15371.dsdi    +++|
19054  M00S15372.dsdi    +++|*         FORMAT A AND B-REGISTER CONTENTS.
19055  M00S15373.dsdi    +++|
Line S15374 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19056  M01S15374.dsdi71  ---|          SA1    FXWH
Line S00255 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19057  M01S00255.dsdi71  +++|          SA1    FXWE
19058  M00S15375.dsdi    +++|          ZR     X1,FXW5     IF NOT TO DISPLAY ADDRESS CONTENTS
Line S15376 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19059  M01S15376.dsdi71  ---|          SB2    FXWF        FORMAT A-REGISTER CONTENTS
19060  M01S15377.dsdi71  ---|          SX5    PRBF+42
Line S00256 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19061  M01S00256.dsdi71  +++|          SB2    FXWC
19062  M00S15378.dsdi    +++|          RJ     FXC
Line S15379 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19063  M01S15379.dsdi71  ---|          SB2    FXWG        FORMAT B-REGISTER CONTENTS
Line S00257 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19064  M01S00257.dsdi71  +++|          SB2    FXWD
19065  M00S15380.dsdi    +++|          SX5    PRBF+84
19066  M00S15381.dsdi    +++|          RJ     FXC
Line S15382 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19067  M01S15382.dsdi71  ---|          SA1    FXWE        INCREMENT REGISTER NUMBERS
Line S00258 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19068  M01S00258.dsdi71  +++|          SA1    FXWB
19069  M00S15383.dsdi    +++|          SA2    =100000000010000B
19070  M00S15384.dsdi    +++|          IX6    X1+X2
19071  M00S15385.dsdi    +++|          SA6    A1
19072  M00S15386.dsdi    +++| FXW5     SA5    A5+B1       READ NEXT WORD
19073  M00S15387.dsdi    +++|          JP     FXWX        EXIT
19074  M00S15388.dsdi    +++|
19075  M00S15389.dsdi    +++|*         FORMAT X - REGISTER.
19076  M00S15390.dsdi    +++|
Line S15391 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19077  M01S15391.dsdi71  ---| FXW6     SA1    FXWE        RESET REGISTER NUMBERS
Line S00259 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19078  M01S00259.dsdi71  +++| FXW6     SA3    FXWB        RESET REGISTER NUMBER
19079  M00S15392.dsdi    +++|          SA2    =10H(A0)=(B0)=
19080  M00S15393.dsdi    +++|          BX6    X2
Line S15394 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19081  M01S15394.dsdi71  ---|          SA6    A1
19082  M01S15395.dsdi71  ---|          SA2    FXWA+X0     READ REGISTER NAME
Line S00260 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19083  M01S00260.dsdi71  +++|          SA6    A3
19084  M01S00261.dsdi71  +++|          SA2    FXWA+X1     READ REGISTER NAME
19085  M00S15396.dsdi    +++|          BX1    X5          SET DATA WORD
19086  M00S15397.dsdi    +++|          MX0    -18         SAVE ADDRESS
19087  M00S15398.dsdi    +++|          BX6    -X0*X5
Line S15399 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19088  M01S15399.dsdi71  ---|          SA6    FXWF
Line S00262 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19089  M01S00262.dsdi71  +++|          SA6    FXWC
19090  M00S15400.dsdi    +++|          SB6    4
19091  M00S15401.dsdi    +++|          RJ     UPS         STORE REGISTER NAME
Line S15402 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19092  M01S15402.dsdi71  ---|          SA3    FXWH
Line S00263 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19093  M01S00263.dsdi71  +++|          SA3    FXWE
19094  M00S15403.dsdi    +++|          ZR     X3,FXW7     IF NOT TO DISPLAY ADDRESS CONTENTS
19095  M00S15404.dsdi    +++|          SB4    B7+         SAVE STRING BUFFER ADDRESS
19096  M00S15405.dsdi    +++|          SB6    5
19097  M00S15406.dsdi    +++|          SB7    B4+37
19098  M00S15407.dsdi    +++|          RJ     UPS         UNPACK TO STRING BUFFER
19099  M00S15408.dsdi    +++|          SB7    B4+
19100  M00S15409.dsdi    +++| FXW7     SA2    =4000005B
19101  M00S15410.dsdi    +++|          RJ     FDW         CONVERT REGISTER WORD
19102  M00S15411.dsdi    +++|          BX2    X1          SET DATA WORD
19103  M00S15412.dsdi    +++|          SB6    10
19104  M00S15413.dsdi    +++|          RJ     SDI         SET DISPLAY CODE INTERPRETATION
Line S15414 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19105  M01S15414.dsdi71  ---|          SA1    FXWH
Line S00264 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19106  M01S00264.dsdi71  +++|          SA1    FXWE
19107  M00S15415.dsdi    +++|          ZR     X1,FXW5     IF NOT TO DISPLAY ADDRESS CONTENTS
Line S15416 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19108  M01S15416.dsdi71  ---|          SB2    FXWF        FORMAT X-REGISTER CONTENTS
Line S00265 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19109  M01S00265.dsdi71  +++|          SB2    FXWC        FORMAT X - REGISTER CONTENTS
19110  M00S15417.dsdi    +++|          SX5    B7+7
19111  M00S15418.dsdi    +++|          RJ     FXC
19112  M00S15419.dsdi    +++|          EQ     FXW5        EXIT
19113  M00S15420.dsdi    +++|
19114  M00S15421.dsdi    +++| FXWA     BSS    0           REGISTER NAMES
19115  M00S15422.dsdi    +++|          DATA   10LP  A0B0P
19116  M00S15423.dsdi    +++|          DATA   10LRA A1B1RA
19117  M00S15424.dsdi    +++|          DATA   10LFL A2B2FL
19118  M00S15425.dsdi    +++|          DATA   10LEM A3B3PSD
19119  M00S15426.dsdi    +++|          DATA   10LRAEA4B4RAE
19120  M00S15427.dsdi    +++|          DATA   10LFLEA5B5FLE
19121  M00S15428.dsdi    +++|          DATA   10LMA A6B6MA
19122  M00S15429.dsdi    +++|          DATA   10L   A7B7EEA
19123  M00S15430.dsdi    +++|          DATA   10LX0  (X0)=
19124  M00S15431.dsdi    +++|          DATA   10LX1  (X1)=
19125  M00S15432.dsdi    +++|          DATA   10LX2  (X2)=
19126  M00S15433.dsdi    +++|          DATA   10LX3  (X3)=
19127  M00S15434.dsdi    +++|          DATA   10LX4  (X4)=
19128  M00S15435.dsdi    +++|          DATA   10LX5  (X5)=
19129  M00S15436.dsdi    +++|          DATA   10LX6  (X6)=
19130  M00S15437.dsdi    +++|          DATA   10LX7  (X7)=
Line S15438 Modification History
M01 (Removed by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19131  M01S15438.dsdi71  ---| FXWB     BSS    1           CONTROL REGISTER
19132  M01S15439.dsdi71  ---| FXWC     BSS    1           A - REGISTER
19133  M01S15440.dsdi71  ---| FXWD     BSS    1           B - REGISTER
19134  M01S15441.dsdi71  ---| FXWE     DATA   10L(A0)=(B0)=  REGISTER CONTENTS NAMES
19135  M01S15442.dsdi71  ---| FXWF     CON    0           BINARY A-REGISTER ADDRESS
19136  M01S15443.dsdi71  ---| FXWG     CON    0           BINARY B-REGISTER ADDRESS
19137  M01S15444.dsdi71  ---| FXWH     CON    0           DISPLAY REGISTER ADDRESS CONTENTS FLAG
19138  M01S15445.dsdi71  ---| GAT      SPACE  4,10
Line S00266 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19139  M01S00266.dsdi71  +++| FXWB     DATA   10L(A0)=(B0)=  REGISTER CONTENTS NAMES
19140  M01S00267.dsdi71  +++| FXWC     CON    0           BINARY A-REGISTER ADDRESS
19141  M01S00268.dsdi71  +++| FXWD     CON    0           BINARY B-REGISTER ADDRESS
19142  M01S00269.dsdi71  +++| FXWE     CON    0           DISPLAY REGISTER ADDRESS CONTENTS FLAG
19143  M01S00270.dsdi71  +++| GAT      SPACE  4,28
19144  M00S15446.dsdi    +++|**        GAT - GET ADDRESS TOKEN.
19145  M00S15447.dsdi    +++|*
19146  M00S15448.dsdi    +++|*         ENTRY  (GATA) = 0 IF PREVIOUS SEPARATOR WAS #.
19147  M00S15449.dsdi    +++|*
19148  M00S15450.dsdi    +++|*         EXIT   (B6) = 0 IF NO TOKEN OBTAINED.
19149  M00S15451.dsdi    +++|*                IF (B6) .NE. 0
19150  M00S15452.dsdi    +++|*                   (X4) = TOKEN TYPE FLAG.
19151  M00S15453.dsdi    +++|*                   IF (X4) = 0, TOKEN IS A HEX NUMBER.
19152  M00S15454.dsdi    +++|*                      (X1) = CHARACTER REPRESENTATION OF TOKEN.
19153  M00S15455.dsdi    +++|*                      (X6) = BINARY REPRESENTATION OF HEX NUMBER.
19154  M00S15456.dsdi    +++|*                   IF (X4) .LT. 0, TOKEN IS AN XP SYMBOL.
19155  M00S15457.dsdi    +++|*                      (X1) = (X6) = ACTUAL RMA VALUE.
19156  M00S15458.dsdi    +++|*                      (X2) = REGISTER LIST ENTRY POSITIONED WITH
19157  M00S15459.dsdi    +++|*                             *P.RMA* IN BIT 59.
19158  M00S15460.dsdi    +++|*                      (A1) = ADDRESS IN *DSDI* OF ACTUAL VALUE IN X1.
19159  M00S15461.dsdi    +++|*                   IF (X4) .GT. 0, TOKEN NOT AN XP SYMBOL, BUT IS
19160  M00S15462.dsdi    +++|*                                   PROBABLY A REGISTER SYMBOL.
19161  M00S15463.dsdi    +++|*                      (X1) = CHARACTER REPRESENTATION OF TOKEN.
19162  M00S15464.dsdi    +++|*                      (X2) = REGISTER LIST ENTRY POSITIONED WITH
19163  M00S15465.dsdi    +++|*                             *P.RMA* IN BIT 59.
19164  M00S15466.dsdi    +++|*                      (X6) = ADDRESS WITH *DSDI* WHERE REGISTER
19165  M00S15467.dsdi    +++|*                             CAN BE FOUND.
19166  M00S15468.dsdi    +++|*
19167  M00S15469.dsdi    +++|*         USES   X - 1, 2, 3, 4, 6, 7.
19168  M00S15470.dsdi    +++|*                A - 1, 3, 4, 6.
19169  M00S15471.dsdi    +++|*                B - 6.
19170  M00S15472.dsdi    +++|*
19171  M00S15473.dsdi    +++|*         CALLS  ASX.
19172  M00S15474.dsdi    +++|
19173  M00S15475.dsdi    +++|
19174  M00S15476.dsdi    +++| GAT      SUBR               ENTRY/EXIT
19175  M00S15477.dsdi    +++|          MX6    0
19176  M00S15478.dsdi    +++|          SB6    B0
19177  M00S15479.dsdi    +++|          SA4    GATA        CHECK TERMINATOR
19178  M00S15480.dsdi    +++|          NZ     X4,GATX     IF INCORRECT TERMINATOR
19179  M00S15481.dsdi    +++|          RJ     ASX         GET HEX NUMBER
19180  M00S15482.dsdi    +++|          SA3    CH          CHECK TERMINATOR
19181  M00S15483.dsdi    +++|          MX2    1           SET NUMBER FLAG
19182  M00S15484.dsdi    +++|          SA3    X3
19183  M00S15485.dsdi    +++|          SA1    ASXA        FETCH IDENTIFIER
19184  M00S15486.dsdi    +++|          SX7    X3-1R#
19185  M00S15487.dsdi    +++|          SA7    GATA        *#* FLAG
19186  M00S15488.dsdi    +++|          CX3    X1
19187  M00S15489.dsdi    +++|          SB6    X3
19188  M00S15490.dsdi    +++|          ZR     B6,GATX     IF NULL TOKEN
19189  M00S15491.dsdi    +++|          ZR     X4,GATX     IF VALID HEX NUMBER
19190  M00S15492.dsdi    +++|          SA4    A7+B1
19191  M00S15493.dsdi    +++|          ERRNZ  GATA+1-GATB CODE ASSUMES VALUE
19192  M00S15494.dsdi    +++|          BX6    X1
19193  M00S15495.dsdi    +++|          SA6    GATC        SAVE SEARCH TERMINATOR
19194  M00S15496.dsdi    +++| GAT1     BX7    X4-X1       COMPARE ENTRIES
19195  M00S15497.dsdi    +++|          SX2    X4
19196  M00S15498.dsdi    +++|          AX7    -24
19197  M00S15499.dsdi    +++|          AX4    18
19198  M00S15500.dsdi    +++|          SX6    X4
19199  M00S15501.dsdi    +++|          SA4    A4+B1       FETCH NEXT LIST ENTRY
19200  M00S15502.dsdi    +++|          NZ     X7,GAT1     IF ENTRY NOT YET FOUND
19201  M00S15503.dsdi    +++|          ZR     X2,ERR6     IF ENTRY IS INCORRECT
19202  M00S15504.dsdi    +++|          LX2    59-P.RMA
19203  M00S15505.dsdi    +++|          BX4    X2
19204  M00S15506.dsdi    +++|          LX4    59-P.XCH-59+P.RMA
19205  M00S15507.dsdi    +++|          PL     X4,GATX     IF NOT AN EXCHANGE PACKAGE SYMBOL
19206  M00S15508.dsdi    +++|          SA1    X6
19207  M00S15509.dsdi    +++|          BX6    X1          FETCH ACTUAL RMA VALUE
19208  M00S15510.dsdi    +++|          JP     GATX        RETURN
19209  M00S15511.dsdi    +++|
19210  M00S15512.dsdi    +++| GATA     CON    0
19211  M00S15513.dsdi    +++|
19212  M00S15514.dsdi    +++| GATB     BSS    0           SYMBOL TABLE
19213  M00S15515.dsdi    +++|
19214  M00S15516.dsdi    +++| P.XCH    EQU    0           XCH FLAG BIT
19215  M00S15517.dsdi    +++| V.XCH    EQU    1S0
19216  M00S15518.dsdi    +++| P.REG    EQU    1           REGISTER FLAG BIT
19217  M00S15519.dsdi    +++| V.REG    EQU    1S1
19218  M00S15520.dsdi    +++| P.RMA    EQU    3           RMA FLAG BIT
19219  M00S15521.dsdi    +++| V.RMA    EQU    1S3
19220  M00S15522.dsdi    +++|
19221  M00S15523.dsdi    +++|          VFD    24/0LPVA,18/S2PVA,18/V.REG
19222  M00S15524.dsdi    +++|
19223  M00S15525.dsdi    +++|          VFD    24/0LP,18/2/2+BUF,18/V.REG
19224  M00S15526.dsdi    +++|          VFD    24/0LRN1,18/298/2+BUF,18/V.REG
19225  M00S15527.dsdi    +++|          VFD    24/0LRN2,18/306/2+BUF,18/V.REG
19226  M00S15528.dsdi    +++|          VFD    24/0LRN3,18/314/2+BUF,18/V.REG
19227  M00S15529.dsdi    +++|          VFD    24/0LRN4,18/322/2+BUF,18/V.REG
19228  M00S15530.dsdi    +++|          VFD    24/0LRN5,18/330/2+BUF,18/V.REG
19229  M00S15531.dsdi    +++|          VFD    24/0LRN6,18/338/2+BUF,18/V.REG
19230  M00S15532.dsdi    +++|          VFD    24/0LRN7,18/346/2+BUF,18/V.REG
19231  M00S15533.dsdi    +++|          VFD    24/0LRN8,18/354/2+BUF,18/V.REG
19232  M00S15534.dsdi    +++|          VFD    24/0LRN9,18/362/2+BUF,18/V.REG
19233  M00S15535.dsdi    +++|          VFD    24/0LRN10,18/370/2+BUF,18/V.REG
19234  M00S15536.dsdi    +++|          VFD    24/0LRN11,18/378/2+BUF,18/V.REG
19235  M00S15537.dsdi    +++|          VFD    24/0LRN12,18/386/2+BUF,18/V.REG
19236  M00S15538.dsdi    +++|          VFD    24/0LRN13,18/394/2+BUF,18/V.REG
19237  M00S15539.dsdi    +++|          VFD    24/0LRN14,18/402/2+BUF,18/V.REG
19238  M00S15540.dsdi    +++|          VFD    24/0LRN15,18/410/2+BUF,18/V.REG
19239  M00S15541.dsdi    +++|          VFD    24/0LRA0,18/10/2+BUF,18/V.REG
19240  M00S15542.dsdi    +++|          VFD    24/0LRA1,18/18/2+BUF,18/V.REG
19241  M00S15543.dsdi    +++|          VFD    24/0LRA2,18/26/2+BUF,18/V.REG
19242  M00S15544.dsdi    +++|          VFD    24/0LRA3,18/34/2+BUF,18/V.REG
19243  M00S15545.dsdi    +++|          VFD    24/0LRA4,18/24/2+BUF,18/V.REG
19244  M00S15546.dsdi    +++|          VFD    24/0LRA5,18/50/2+BUF,18/V.REG
19245  M00S15547.dsdi    +++|          VFD    24/0LRA6,18/58/2+BUF,18/V.REG
19246  M00S15548.dsdi    +++|          VFD    24/0LRA7,18/66/2+BUF,18/V.REG
19247  M00S15549.dsdi    +++|          VFD    24/0LRA8,18/74/2+BUF,18/V.REG
19248  M00S15550.dsdi    +++|          VFD    24/0LRA9,18/82/2+BUF,18/V.REG
19249  M00S15551.dsdi    +++|          VFD    24/0LRAA,18/90/2+BUF,18/V.REG
19250  M00S15552.dsdi    +++|          VFD    24/0LRAB,18/98/2+BUF,18/V.REG
19251  M00S15553.dsdi    +++|          VFD    24/0LRAC,18/106/2+BUF,18/V.REG
19252  M00S15554.dsdi    +++|          VFD    24/0LRAD,18/114/2+BUF,18/V.REG
19253  M00S15555.dsdi    +++|          VFD    24/0LRAE,18/122/2+BUF,18/V.REG
19254  M00S15556.dsdi    +++|          VFD    24/0LRAF,18/130/2+BUF,18/V.REG
19255  M00S15557.dsdi    +++|          VFD    24/0LUTP,18/274/2+BUF,18/V.REG
19256  M00S15558.dsdi    +++|          VFD    24/0LTP,18/282/2+BUF,18/V.REG
19257  M00S15559.dsdi    +++|
19258  M00S15560.dsdi    +++|          VFD    24/0LMPS,18/S2MPS,18/V.RMA+V.XCH
19259  M00S15561.dsdi    +++|          VFD    24/0LJPS,18/S2JPS,18/V.RMA+V.XCH
19260  M00S15562.dsdi    +++|          VFD    24/0LRMA,18/S2RMA,18/V.RMA+V.XCH
19261  M00S15563.dsdi    +++|          VFD    24/0LPXP,18/0,18/V.XCH
19262  M00S15564.dsdi    +++|
19263  M00S15565.dsdi    +++| GATC     CON    0           END OF TABLE
Line S00271 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19264  M01S00271.dsdi71  +++| GCS      SPACE  4,10
19265  M01S00272.dsdi71  +++|**        GCS - GET CPU STATUS.
19266  M01S00273.dsdi71  +++|*
19267  M01S00274.dsdi71  +++|*         ENTRY  (X5) = FWA OF CPA IN *TCMT*.
19268  M01S00275.dsdi71  +++|*                (B7) = STRING BUFFER POINTER.
19269  M01S00276.dsdi71  +++|*
19270  M01S00277.dsdi71  +++|*         EXIT   CPU PRIORITY PLACED IN STRING BUFFER.
19271  M01S00278.dsdi71  +++|*
19272  M01S00279.dsdi71  +++|*         USES   X - 0, 1, 2, 6.
19273  M01S00280.dsdi71  +++|*                A - 1, 2, 6.
19274  M01S00281.dsdi71  +++|*                B - 3.
19275  M01S00282.dsdi71  +++|
19276  M01S00283.dsdi71  +++|
19277  M01S00284.dsdi71  +++| GCS      SUBR               ENTRY/EXIT
19278  M01S00285.dsdi71  +++|          MX0    3
19279  M01S00286.dsdi71  +++|          SA1    X5+STSW
19280  M01S00287.dsdi71  +++|          BX1    X0*X1
19281  M01S00288.dsdi71  +++|          LX1    4           FORM STATUS*6
19282  M01S00289.dsdi71  +++|          SA2    GCSA
19283  M01S00290.dsdi71  +++|          SB3    X1
19284  M01S00291.dsdi71  +++|          LX1    1
19285  M01S00292.dsdi71  +++|          SB3    B3+X1
19286  M01S00293.dsdi71  +++|          AX2    B3,X2       SHIFT SELECTED STATUS TO BITS 5-0
19287  M01S00294.dsdi71  +++|          MX0    -6
19288  M01S00295.dsdi71  +++|          BX6    -X0*X2
19289  M01S00296.dsdi71  +++|          SA6    B7          SET IN STRING BUFFER
19290  M01S00297.dsdi71  +++|          EQ     GCSX        RETURN
19291  M01S00298.dsdi71  +++|
19292  M01S00299.dsdi71  +++|
19293  M01S00300.dsdi71  +++| GCSA     DATA   10H   IXW BA
Line S00200 Modification History
M01 (Added by) ns2647
Seq #  *Modification Id* Act 
----------------------------+
19294  M01S00200.ns2647  +++| GDA      SPACE  4,10
19295  M01S00201.ns2647  +++|**        GDA - GET DFT/OS BUFFER FWA (DFT CONTROL WORD).
19296  M01S00202.ns2647  +++|*
19297  M01S00203.ns2647  +++|*         EXIT   (X3) = DFT CONTROL WORD ADDRESS WITHIN BUFFER.
19298  M01S00204.ns2647  +++|*                     = 0 IF DFT/OS BUFFER NOT FOUND.
19299  M01S00205.ns2647  +++|*                (X6) = DFT CONTROL WORD ADDRESS.
19300  M01S00206.ns2647  +++|*
19301  M01S00207.ns2647  +++|*         USES   X - 0, 1, 3.
19302  M01S00208.ns2647  +++|*                A - 1, 3.
19303  M01S00209.ns2647  +++|*
19304  M01S00210.ns2647  +++|*         CALLS  DRA.
19305  M01S00211.ns2647  +++|
19306  M01S00212.ns2647  +++|
19307  M01S00213.ns2647  +++| GDA      SUBR               ENTRY/EXIT
19308  M01S00214.ns2647  +++|          SA1    F.TCMT
19309  M01S00215.ns2647  +++|          SA3    X1+EIBP     POINTER TO *EICB*
19310  M01S00216.ns2647  +++|          MX0    -32
19311  M01S00217.ns2647  +++|          BX3    -X0*X3
19312  M01S00218.ns2647  +++|          ZR     X3,GDAX     IF NO *EICB*
19313  M01S00219.ns2647  +++|          IX3    X1+X3       GET DFT/OS POINTER
19314  M01S00220.ns2647  +++|          SA3    X3+/VE/DSCM+3
19315  M01S00221.ns2647  +++|          ZR     X3,GDAX     IF NO DFT/OS BUFFER
19316  M01S00222.ns2647  +++|          RJ     DRA         GET ADDRESS OF DFT CONTROL WORD
19317  M01S00223.ns2647  +++|          IX3    X1+X6
19318  M01S00224.ns2647  +++|          EQ     GDAX        RETURN
19319  M00S15566.dsdi    +++| GDB      SPACE  4,14
19320  M00S15567.dsdi    +++|**        GDB - GET DAYFILE BUFFER.
19321  M00S15568.dsdi    +++|*
19322  M00S15569.dsdi    +++|*         ENTRY  (CN) = CONTROL POINT NUMBER.
19323  M00S15570.dsdi    +++|*                     = 0, IF SYSTEM DAYFILE.
19324  M00S15571.dsdi    +++|*                     = -1, IF ACCOUNTING DAYFILE.
19325  M00S15572.dsdi    +++|*                     = -2, IF ERRLOG DAYFILE.
19326  M00S15573.dsdi    +++|*                     = -3, IF BML DAYFILE.
Line S00366 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
19327  M01S00366.271l716 +++|*                (OP) = PCPA FWA OFFSET (0 IF DUMPING CONTROL POINTS).
19328  M00S15574.dsdi    +++|*
Line S15575 Modification History
M01 (Removed by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
19329  M01S15575.dsdi70  ---|*         EXIT   DAYFILE BUFFER STORED IN TABLE *TSCR*.
19330  M01S15576.dsdi70  ---|*                (GDBA) = ADDRESS OF DAYFILE BUFFER POINTERS.
19331  M01S15577.dsdi70  ---|*                (GDBB) = DAYFILE BUFFER LENGTH.
Line S00002 Modification History
M01 (Added by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
19332  M01S00002.dsdi70  +++|*         EXIT   (GDBB) = DAYFILE BUFFER LENGTH.
19333  M00S15578.dsdi    +++|*                (GDBC) = MEMORY ADDRESS OF POINTERS.
19334  M00S15579.dsdi    +++|*                (GDBD) = NONZERO, IF DAYFILE BUFFER POINTERS EXTEND
19335  M00S15580.dsdi    +++|*                                  BEYOND MACHINE FL.
Line S00003 Modification History
M01 (Added by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
19336  M01S00003.dsdi70  +++|*                DAYFILE BUFFER POINTERS STORED IN TABLE *TSC1*
19337  M01S00004.dsdi70  +++|*                DAYFILE BUFFER STORED IN TABLE *TSCR*.
19338  M00S15581.dsdi    +++|*
19339  M00S15582.dsdi    +++|*         USES   X - 0, 1, 2, 3, 4, 6.
19340  M00S15583.dsdi    +++|*                A - 0, 1, 2, 3, 4, 6, 7.
19341  M00S15584.dsdi    +++|*                B - 2, 5.
19342  M00S15585.dsdi    +++|*
Line S15586 Modification History
M01 (Removed by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19343  M01S15586.dsdi71a ---|*         CALLS  CNL, PCM, SCM.
Line S00038 Modification History
M01 (Added by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19344  M01S00038.dsdi71a +++|*         CALLS  CNL, GFL, PCM, SCM.
19345  M00S15587.dsdi    +++|*
Line S15588 Modification History
M01 (Removed by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19346  M01S15588.dsdi71a ---|*         MACROS ALLOC, GETCM.
Line S00039 Modification History
M01 (Added by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19347  M01S00039.dsdi71a +++|*         MACROS ALLOC, GETCM, PRINT.
19348  M00S15589.dsdi    +++|
19349  M00S15590.dsdi    +++|
19350  M00S15591.dsdi    +++| GDB5     SX6    B1          SET POINTERS AS INACCURATE
19351  M00S15592.dsdi    +++|          SA6    GDBD
19352  M00S15593.dsdi    +++|          PRINT  (=2C  )
19353  M00S15594.dsdi    +++|          PRINT  (=C+ *********WARNING -  INACCURATE DAYFILE BUFFER POIN
19354  M00S15595.dsdi    +++|,TERS+)
19355  M00S15596.dsdi    +++|          PRINT  (=2C  )
19356  M00S15597.dsdi    +++| GDB6     SX1    B0          INDICATE SUFFICIENT NFL SPACE
19357  M00S15598.dsdi    +++|
19358  M00S15599.dsdi    +++| GDB      SUBR               ENTRY/EXIT
19359  M00S15600.dsdi    +++|          SX6    0
19360  M00S15601.dsdi    +++|          SA6    GDBD        PRESET POINTERS AS ACCURATE
19361  M00S15602.dsdi    +++|          SA1    L.TSC1      GET TABLE LENGTH
19362  M00S15603.dsdi    +++|          SX3    3           LENGTH OF DAYFILE POINTERS
19363  M00S15604.dsdi    +++|          IX1    X3-X1       CHANGE IN LENGTH
19364  M00S15605.dsdi    +++|          SB2    A0          SAVE (A0)
19365  M00S15606.dsdi    +++|          ALLOC  TSC1,X1
19366  M00S15607.dsdi    +++|          SA0    B2          RESTORE (A0)
19367  M00S15608.dsdi    +++|          SA4    CN          CONTROL POINT NUMBER
19368  M00S15609.dsdi    +++|          SA1    NC
19369  M00S15610.dsdi    +++|          NG     X4,GDB1     IF ACCOUNTING, ERRLOG OR BML DAYFILE
19370  M00S15611.dsdi    +++|          ZR     X4,GDB2     IF SYSTEM DAYFILE
19371  M00S15612.dsdi    +++|          SX2    X1+B1
19372  M00S15613.dsdi    +++|          BX3    X2-X4
19373  M00S15614.dsdi    +++|          NZ     X3,GDB4     IF NOT SYSTEM CONTROL POINT
19374  M00S15615.dsdi    +++|          SX4    B0
19375  M00S15616.dsdi    +++|          EQ     GDB2        PROCESS SYSTEM DAYFILE POINTERS
19376  M00S15617.dsdi    +++|
19377  M00S15618.dsdi    +++| GDB1     BX4    -X4
19378  M00S15619.dsdi    +++| GDB2     SA1    F.TCMT
19379  M00S15620.dsdi    +++|          SB5    X1          TCMT BASE ADDRESS
19380  M00S15621.dsdi    +++|          SA3    B5+DFPP     LOW CORE DAYFILE BUFFER POINTERS POINTER
19381  M00S15622.dsdi    +++|          LX3    24
19382  M00S15623.dsdi    +++|          SX3    X3
19383  M00S15624.dsdi    +++|          SX2    3           CALCULATE POINTER OFFSET
19384  M00S15625.dsdi    +++|          IX4    X4*X2
19385  M00S15626.dsdi    +++|          IX6    X3+X4       ADDRESS OF DAYFILE BUFFER POINTERS
19386  M00S15627.dsdi    +++|          SA6    GDBC
19387  M00S15628.dsdi    +++|          SX1    B5+X6       GET ABSOLUTE ADDRESS OF POINTERS
19388  M00S15629.dsdi    +++|          SA2    F.TSC1      MOVE POINTER WORDS TO TSC1
19389  M00S15630.dsdi    +++|          SA1    X1
19390  M00S15631.dsdi    +++|          BX6    X1
19391  M00S15632.dsdi    +++|          SA6    X2
19392  M00S15633.dsdi    +++|          SA1    A1+B1
19393  M00S15634.dsdi    +++|          BX6    X1
19394  M00S15635.dsdi    +++|          SA6    A6+B1
19395  M00S15636.dsdi    +++|          SA1    A1+B1
19396  M00S15637.dsdi    +++|          BX6    X1
19397  M00S15638.dsdi    +++|          SA6    A6+B1
19398  M00S15639.dsdi    +++| GDB3     MX1    -12
19399  M00S15640.dsdi    +++|          SA3    F.TSC1      SET FWA OF POINTERS
Line S15641 Modification History
M01 (Removed by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
19400  M01S15641.dsdi70  ---|          BX6    X3
19401  M01S15642.dsdi70  ---|          SA6    GDBA
19402  M00S15643.dsdi    +++|          SA3    X3
19403  M00S15644.dsdi    +++|          SA2    A3+B1       GET DAYFILE BUFFER LENGTH
19404  M00S15645.dsdi    +++|          AX2    24
19405  M00S15646.dsdi    +++|          BX6    -X1*X2
19406  M00S15647.dsdi    +++|          MX2    -24
19407  M00S15648.dsdi    +++|          SA6    GDBB        SAVE BUFFER LENGTH
19408  M00S15649.dsdi    +++|          SA1    F.TCMT      GET MACHINE FL
19409  M00S15650.dsdi    +++|          SA1    X1+MABL
19410  M00S15651.dsdi    +++|          AX1    12
19411  M00S15652.dsdi    +++|          BX1    -X2*X1
19412  M00S15653.dsdi    +++|          LX1    6
19413  M00S15654.dsdi    +++|          AX3    36          GET BUFFER FWA
19414  M00S15655.dsdi    +++|          IX2    X3-X1
19415  M00S15656.dsdi    +++|          IX2    X2+X6
19416  M00S15657.dsdi    +++|          PL     X2,GDB5     IF BUFFER LWA+1 BEYOND MACHINE FL
19417  M00S15658.dsdi    +++|          ZR     X6,GDBX     IF NO BUFFER
19418  M00S15659.dsdi    +++|          RJ     SCM         SELECT CM RECORD
19419  M00S15660.dsdi    +++|          SA7    RI
19420  M00S15661.dsdi    +++|          RJ     PCM         POSITION 60 BIT MEMORY
19421  M00S15662.dsdi    +++|
19422  M00S15663.dsdi    +++|*         ALLOCATE BUFFER SPACE AND READ THE DAYFILE BUFFER.
19423  M00S15664.dsdi    +++|
19424  M00S15665.dsdi    +++|          SA3    GDBB        GET BUFFER LENGTH
19425  M00S15666.dsdi    +++|          SA1    L.TSCR
19426  M00S15667.dsdi    +++|          IX1    X3-X1
19427  M00S15668.dsdi    +++|          SB2    A0+         SAVE A0
19428  M00S15669.dsdi    +++|          ALLOC  TSCR,X1     ALLOCATE SCRATCH TABLE SPACE
19429  M00S15670.dsdi    +++|          SA0    B2          RESTORE A0
19430  M00S15671.dsdi    +++|          GETCM  X2,X3       READ BUFFER TO TABLE
19431  M00S15672.dsdi    +++|          EQ     GDB6        INDICATE SUFFICIENT NFL SPACE
19432  M00S15673.dsdi    +++|
19433  M00S15674.dsdi    +++| GDB4     RJ     CNL         CHECK NFL LENGTH
19434  M00S15675.dsdi    +++|          NG     X1,GDBX     IF INSUFFICIENT NFL SPACE
Line S15676 Modification History
M01 (Removed by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19435  M01S15676.dsdi71a ---|          SA1    F.TCMT      FORM CONTROL POINT AREA ADDRESS
Line S00040 Modification History
M01 (Added by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19436  M01S00040.dsdi71a +++|          SA2    OP          ADD PCPA OFFSET
19437  M00S15677.dsdi    +++|          LX4    7
Line S15678 Modification History
M01 (Removed by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19438  M01S15678.dsdi71a ---|          MX0    -15
Line S00367 Modification History
M01 (Added by) 271l716
M02 (Removed by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19439  M02S00367.dsdi71a ---|          SA2    OP          ADD PCPA OFFSET
Line S15679 Modification History
M01 (Removed by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19440  M01S15679.dsdi71a ---|          IX4    X1+X4
Line S00368 Modification History
M01 (Added by) 271l716
M02 (Removed by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19441  M02S00368.dsdi71a ---|          IX4    X4+X2
Line S15680 Modification History
M01 (Removed by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19442  M01S15680.dsdi71a ---|          SX4    X4+FLSW     GET CONTROL POINT RA/100
19443  M01S15681.dsdi71a ---|          SA2    X4
19444  M01S15682.dsdi71a ---|          AX2    12
19445  M01S15683.dsdi71a ---|          BX6    -X0*X2
Line S00041 Modification History
M01 (Added by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19446  M01S00041.dsdi71a +++|          IX1    X4+X2
19447  M01S00042.dsdi71a +++|          RJ     GFL         GET CONTROL POINT RA
19448  M00S15684.dsdi    +++|          SX3    DAPN
Line S15685 Modification History
M01 (Removed by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19449  M01S15685.dsdi71a ---|          LX6    6
19450  M00S15686.dsdi    +++|          IX3    X6-X3       ABSOLUTE ADDRESS OF POINTER WORDS
19451  M00S15687.dsdi    +++|          BX6    X3
19452  M00S15688.dsdi    +++|          SA6    GDBC
19453  M00S15689.dsdi    +++|          RJ     SCM         SELECT CM RECORD
19454  M00S15690.dsdi    +++|          SA7    RI
19455  M00S15691.dsdi    +++|          RJ     PCM         POSITION TO CM RECORD
19456  M00S15692.dsdi    +++|          SA2    F.TSC1      READ POINTER WORDS TO TSC1
19457  M00S15693.dsdi    +++|          GETCM  X2,3
19458  M00S15694.dsdi    +++|          SA1    GDBC        FORM ABSOLUTE VALUE FOR *FIRST*
19459  M00S15695.dsdi    +++|          SX0    DAYN-DAPN
19460  M00S15696.dsdi    +++|          SA2    F.TSC1
19461  M00S15697.dsdi    +++|          IX6    X1-X0
19462  M00S15698.dsdi    +++|          SA1    X2
19463  M00S15699.dsdi    +++|          LX6    36
19464  M00S15700.dsdi    +++|          BX6    X1+X6
19465  M00S15701.dsdi    +++|          SA6    A1
19466  M00S15702.dsdi    +++|          EQ     GDB3        READ DAYFILE BUFFER
19467  M00S15703.dsdi    +++|
Line S15704 Modification History
M01 (Removed by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
19468  M01S15704.dsdi70  ---| GDBA     BSS    1           ADDRESS OF DAYFILE BUFFER POINTERS
Line S00005 Modification History
M01 (Added by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
19469  M01S00005.dsdi70  +++|
19470  M00S15705.dsdi    +++| GDBB     BSS    1           DAYFILE BUFFER LENGTH
19471  M00S15706.dsdi    +++| GDBC     BSS    1           MEMORY ADDRESS OF POINTERS
19472  M00S15707.dsdi    +++| GDBD     BSS    1           INACCURATE BUFFER POINTERS FLAG
Line S00301 Modification History
M01 (Added by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19473  M01S00301.dsdi71  +++| GEE      SPACE  4,15
19474  M01S00302.dsdi71  +++|**        GEE - GET EJT ENTRY.
19475  M01S00303.dsdi71  +++|*
19476  M01S00304.dsdi71  +++|*         ENTRY  (FW) = CPA FWA.
19477  M01S00305.dsdi71  +++|*                (RI) = CM RANDOM INDEX.
19478  M01S00306.dsdi71  +++|*
19479  M01S00307.dsdi71  +++|*         EXIT   (X1) = 0 IF CONTROL POINT NOT ACTIVE.
19480  M01S00308.dsdi71  +++|*                (X5) = FWA OF EJT ENTRY IF ACTIVE.
19481  M01S00309.dsdi71  +++|*                EJT ENTRY STORED AT *BUF* IF ACTIVE.
19482  M01S00310.dsdi71  +++|*
19483  M01S00311.dsdi71  +++|*         USES   X - 0, 1, 2, 3, 4, 5, 6.
19484  M01S00312.dsdi71  +++|*                A - 1, 2, 3, 4.
19485  M01S00313.dsdi71  +++|*
19486  M01S00314.dsdi71  +++|*         CALLS  PCM.
19487  M01S00315.dsdi71  +++|*
19488  M01S00316.dsdi71  +++|*         MACROS GETCM.
19489  M01S00317.dsdi71  +++|
19490  M01S00318.dsdi71  +++|
19491  M01S00319.dsdi71  +++| GEE2     SX1    0           SET INACTIVE CP
19492  M01S00320.dsdi71  +++|
19493  M01S00321.dsdi71  +++| GEE      SUBR               ENTRY/EXIT
19494  M01S00322.dsdi71  +++|          SA2    F.TCMT      SET FWA EJT ENTRY
19495  M01S00323.dsdi71  +++|          SA1    X2+EJTP
19496  M01S00324.dsdi71  +++|          SA4    FW
19497  M01S00325.dsdi71  +++|          AX1    36          FWA EJT
19498  M01S00326.dsdi71  +++|          IX3    X4+X2       FWA CONTROL POINT AREA
19499  M01S00327.dsdi71  +++|          SA3    X3+TFSW
19500  M01S00328.dsdi71  +++|          MX0    12
19501  M01S00329.dsdi71  +++|          BX6    X0*X3
19502  M01S00330.dsdi71  +++|          SX3    EJTE
19503  M01S00331.dsdi71  +++|          NZ     X6,GEE1     IF ACTIVE CP
19504  M01S00332.dsdi71  +++|          SA2    NC          CHECK FOR SYSTEM CP
19505  M01S00333.dsdi71  +++|          SX2    X2+1
19506  M01S00334.dsdi71  +++|          LX2    7
19507  M01S00335.dsdi71  +++|          IX2    X2-X4
19508  M01S00336.dsdi71  +++|          NZ     X2,GEE2     IF INACTIVE CP
19509  M01S00337.dsdi71  +++| GEE1     LX6    12
19510  M01S00338.dsdi71  +++|          SA6    GEEA        SAVE EJT ORDINAL
19511  M01S00339.dsdi71  +++|          IX3    X6*X3
19512  M01S00340.dsdi71  +++|          IX3    X1+X3
19513  M01S00341.dsdi71  +++|          SX5    X3          SAVE FWA EJT ENTRY
19514  M01S00342.dsdi71  +++|          RJ     PCM         POSITION TO EJT ENTRY
19515  M01S00343.dsdi71  +++|          GETCM  BUF,EJTE
19516  M01S00344.dsdi71  +++|          SX1    1           SET EJT ENTRY FOUND
19517  M01S00345.dsdi71  +++|          EQ     GEEX        RETURN
19518  M01S00346.dsdi71  +++|
19519  M01S00347.dsdi71  +++|
19520  M01S00348.dsdi71  +++| GEEA     CON    0           EJT ORDINAL
Line S00043 Modification History
M01 (Added by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19521  M01S00043.dsdi71a +++| GFL      SPACE  4,15
19522  M01S00044.dsdi71a +++|**        GFL - GET FL AND RA.
19523  M01S00045.dsdi71a +++|*
19524  M01S00046.dsdi71a +++|*         ENTRY  (X1) = RELATIVE CPA/PCPA ADDRESS.
19525  M01S00047.dsdi71a +++|*
19526  M01S00048.dsdi71a +++|*         EXIT   (X1) = (X1)+(F.TCMT).
19527  M01S00049.dsdi71a +++|*                (X2) = *FLSW* WORD OF CPA/PCPA, RIGHT SHIFTED 12 BITS.
19528  M01S00050.dsdi71a +++|*                (X6) = RA.
19529  M01S00051.dsdi71a +++|*                (X7) = FL.
19530  M01S00052.dsdi71a +++|*
Line S00053 Modification History
M01 (Added by) dsdi71a
M02 (Removed by) dsdi89
Seq #  *Modification Id* Act 
----------------------------+
19531  M02S00053.dsdi89  ---|*         USES   X - 0, 1, 2, 6, 7.
Line S00128 Modification History
M01 (Added by) dsdi89
Seq #  *Modification Id* Act 
----------------------------+
19532  M01S00128.dsdi89  +++|*         USES   X - 1, 2, 6, 7.
Line S00054 Modification History
M01 (Added by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19533  M01S00054.dsdi71a +++|*                A - 2.
19534  M01S00055.dsdi71a +++|
19535  M01S00056.dsdi71a +++|
19536  M01S00057.dsdi71a +++| GFL      SUBR               ENTRY/EXIT
19537  M01S00058.dsdi71a +++|          SA2    F.TCMT
19538  M01S00059.dsdi71a +++|          IX1    X1+X2
Line S00060 Modification History
M01 (Added by) dsdi71a
M02 (Removed by) dsdi89
Seq #  *Modification Id* Act 
----------------------------+
19539  M02S00060.dsdi89  ---|          MX0    -12
Line S00129 Modification History
M01 (Added by) dsdi89
Seq #  *Modification Id* Act 
----------------------------+
19540  M01S00129.dsdi89  +++|          MX7    -12
Line S00061 Modification History
M01 (Added by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19541  M01S00061.dsdi71a +++|          SA2    X1+FLSW
Line S00062 Modification History
M01 (Added by) dsdi71a
M02 (Removed by) dsdi89
Seq #  *Modification Id* Act 
----------------------------+
19542  M02S00062.dsdi89  ---|          BX7    -X0*X2      FL/100B
Line S00130 Modification History
M01 (Added by) dsdi89
Seq #  *Modification Id* Act 
----------------------------+
19543  M01S00130.dsdi89  +++|          BX7    -X7*X2      FL/100B
Line S00063 Modification History
M01 (Added by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19544  M01S00063.dsdi71a +++|          AX2    12
Line S00064 Modification History
M01 (Added by) dsdi71a
M02 (Removed by) dsdi89
Seq #  *Modification Id* Act 
----------------------------+
19545  M02S00064.dsdi89  ---|          MX0    -15
19546  M02S00065.dsdi89  ---|          BX6    -X0*X2      RA/100B
Line S00131 Modification History
M01 (Added by) dsdi89
Seq #  *Modification Id* Act 
----------------------------+
19547  M01S00131.dsdi89  +++|          MX6    -15
19548  M01S00132.dsdi89  +++|          BX6    -X6*X2      RA/100B
Line S00066 Modification History
M01 (Added by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
19549  M01S00066.dsdi71a +++|          LX6    6           RA
19550  M01S00067.dsdi71a +++|          LX7    6           FL
19551  M01S00068.dsdi71a +++|          EQ     GFLX        RETURN
19552  M00S15708.dsdi    +++| GHA      SPACE  4,10
19553  M00S15709.dsdi    +++|**        GHA - GET HARDWARE ADDRESS.
19554  M00S15710.dsdi    +++|*
19555  M00S15711.dsdi    +++|*         ENTRY  INPUT LINE OF FORM -
19556  M00S15712.dsdi    +++|*                NNNNN.  -  REAL MEMORY ADDRESS.
19557  M00S15713.dsdi    +++|*                ASID#NNNNNNNN.  -  SYSTEM VIRTUAL ADDRESS.
19558  M00S15714.dsdi    +++|*                SEG#NNNNNNNN#EXCH.  -  PVA.
19559  M00S15715.dsdi    +++|*                REG#EXCH.   -  PVA FROM EXCHANGE PACKAGE.
19560  M00S15716.dsdi    +++|*                NNNNNNNN#REG#EXCH.  -  SPECIFIC BYTE OFFSET.
19561  M00S15717.dsdi    +++|*
19562  M00S15718.dsdi    +++|*         EXIT   (X6) = REAL MEMORY ADDRESS/SVA.
19563  M00S15719.dsdi    +++|*                (B6) = 0, IF NO ADDRESS DECODED.
19564  M00S15720.dsdi    +++|*
19565  M00S15721.dsdi    +++|*         CALLS  ASX, FRV, GXA, LTE.
19566  M00S15722.dsdi    +++|
19567  M00S15723.dsdi    +++|
19568  M00S15724.dsdi    +++| GHA      SUBR               ENTRY/EXIT
19569  M00S15725.dsdi    +++|          SA1    CHAR
19570  M00S15726.dsdi    +++|          SX2    100B
19571  M00S15727.dsdi    +++| GHA1     SA1    A1+B1       FLAG THE *+* AND *-* CHARACTERS
19572  M00S15728.dsdi    +++|          SB6    X1-1R+
19573  M00S15729.dsdi    +++|          BX6    X2+X1
19574  M00S15730.dsdi    +++|          NG     B6,GHA1     IF NOT A SEPARATOR
19575  M00S15731.dsdi    +++|          SX1    X1-1R.
19576  M00S15732.dsdi    +++|          ZR     X1,GHA2     IF LINE TERMINATOR
19577  M00S15733.dsdi    +++|          GT     B6,B1,GHA1  IF NOT A *+* OR *-*
19578  M00S15734.dsdi    +++|          SA6    A1
19579  M00S15735.dsdi    +++|          JP     GHA1        CHECK NEXT CHARACTER
19580  M00S15736.dsdi    +++|
19581  M00S15737.dsdi    +++| GHA2     SX6    0
19582  M00S15738.dsdi    +++|          SA6    GATA        CLEAR GAT FLAG
19583  M00S15739.dsdi    +++|          RJ     GAT         GET ADDRESS TOKEN
19584  M00S15740.dsdi    +++|          ZR     B6,GHA5     IF NO TOKEN
19585  M00S15741.dsdi    +++|          MX7    -32
19586  M00S15742.dsdi    +++|          SA7    GHAA        SET FLAG
19587  M00S15743.dsdi    +++|          PL     X2,GHA6     IF NOT A RMA SYMBOL OR A NUMBER
19588  M00S15744.dsdi    +++|          SA6    A7
19589  M00S15745.dsdi    +++|          RJ     GAT         GET TOKEN
19590  M00S15746.dsdi    +++|          ZR     B6,GHA4     IF ONLY RMA OR NUMBER
Proceed to Part 13
cdc/nos2.source/opl.opl871/deck/dsdi.012.txt ยท Last modified: (external edit)