Deck DSDI Part 014

70 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
17804  M01S00052.ns2647a +++|          RJ     HTS
17805  M01S00151.ns2647  +++|
17806  M01S00152.ns2647  +++| FPO      SUBR               ENTRY/EXIT
Line S00153 Modification History
M01 (Added by) ns2647
M02 (Updated by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17807  M02S00153.ns2647a ---|          SX1    X5-2
Line S00154 Modification History
M01 (Added by) ns2647
M02 (Updated by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17808  M02S00154.ns2647a ---|          ZR     X1,FPOX     IF BETWEEN REGISTER SETS
17809  M01S00155.ns2647  +++|          NZ     X5,FPO1     IF NOT FIRST LINE
17810  M01S00156.ns2647  +++|          SX6    B0+         INITIALIZE REGISTER POINTER
17811  M01S00157.ns2647  +++|          SA6    FPOA
17812  M01S00158.ns2647  +++| FPO1     SA2    FPOA
17813  M01S00159.ns2647  +++|          SX6    X2-4
Line S00160 Modification History
M01 (Added by) ns2647
M02 (Updated by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17814  M02S00160.ns2647a ---|          PL     X6,FPOX     IF END OF REGISTERS
17815  M01S00053.ns2647a +++|          ZR     X6,FPOX     IF END OF REGISTERS
17816  M01S00054.ns2647a +++|          SX1    X5-2
17817  M01S00055.ns2647a +++|          ZR     X1,FPOX     IF BETWEEN REGISTER SETS
17818  M01S00161.ns2647  +++|          SX6    X2+B1
17819  M01S00162.ns2647  +++|          SA6    A2          UPDATE POINTER
17820  M01S00163.ns2647  +++|          LX2    2
17821  M01S00164.ns2647  +++|          SA1    X2+PPOB     GET P-REGISTER
17822  M01S00165.ns2647  +++|          NG     X1,FPO1     IF NO REGISTERS PRESENT
17823  M01S00166.ns2647  +++|          LX2    -1          SET DESCRIPTOR
17824  M01S00167.ns2647  +++|          ERRNZ  FPOBE-2     CODE DEPENDS ON VALUE
17825  M01S00168.ns2647  +++|          SA2    X2+FPOB
17826  M01S00169.ns2647  +++|          SB6    12
Line S00170 Modification History
M01 (Added by) ns2647
M02 (Updated by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17827  M02S00170.ns2647a ---|          SB7    PRBF+76
17828  M01S00171.ns2647  +++|          RJ     UPS
Line S00172 Modification History
M01 (Added by) ns2647
M02 (Updated by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17829  M02S00172.ns2647a ---|          LX1    59-14       SET P-REGISTER
17830  M01S00056.ns2647a +++|          SB7    B7+3
17831  M01S00057.ns2647a +++|          SA2    CPRA+3      GET FORMAT CODE
17832  M01S00058.ns2647a +++|          SX6    2
17833  M01S00059.ns2647a +++|          ZR     X2,FPO2     IF OCTAL
17834  M01S00060.ns2647a +++|          BX2    X6*X2
17835  M01S00061.ns2647a +++|          ZR     X2,FPO3     IF HEX
17836  M01S00062.ns2647a +++| FPO2     LX1    59-14       SET P-REGISTER
17837  M01S00173.ns2647  +++|          SB6    5
Line S00174 Modification History
M01 (Added by) ns2647
M02 (Updated by) ns2647a
Seq #  *Modification Id* Act 
----------------------------+
17838  M02S00174.ns2647a ---|          SB7    B7+3
17839  M01S00175.ns2647  +++|          RJ     CTS
17840  M01S00176.ns2647  +++|          SA1    A1+B1       GET Q-REGISTER
17841  M01S00177.ns2647  +++|          LX1    59-14
17842  M01S00178.ns2647  +++|          SB6    5
17843  M01S00179.ns2647  +++|          SB7    B7+2
17844  M01S00180.ns2647  +++|          RJ     CTS
17845  M01S00181.ns2647  +++|          SA1    A1+B1       GET K-REGISTER
17846  M01S00182.ns2647  +++|          LX1    59-17
17847  M01S00183.ns2647  +++|          SB6    6
17848  M01S00184.ns2647  +++|          SB7    B7+2
17849  M01S00185.ns2647  +++|          RJ     CTS
17850  M01S00186.ns2647  +++|          SA1    A1+B1       GET A-REGISTER
17851  M01S00187.ns2647  +++|          LX1    59-17
17852  M01S00188.ns2647  +++|          SB6    6
17853  M01S00189.ns2647  +++|          SB7    B7+2
17854  M01S00190.ns2647  +++|          RJ     CTS
17855  M01S00191.ns2647  +++|          EQ     FPOX        RETURN
17856  M01S00192.ns2647  +++|
17857  M01S00193.ns2647  +++|
17858  M01S00194.ns2647  +++| FPOA     CON    0           REGISTER SET POINTER
17859  M01S00195.ns2647  +++| FPOB     DATA   C* BEFORE IDLE*
17860  M01S00196.ns2647  +++| FPOBE    EQU    *-FPOB      ENTRY LENGTH
17861  M01S00197.ns2647  +++|          DATA   C*  AFTER IDLE*
17862  M01S00198.ns2647  +++|          DATA   C*DFT BUFFER 1*
17863  M01S00199.ns2647  +++|          DATA   C*DFT BUFFER 2*
17864  M01S14341.dsdi    +++| FPP      SPACE  4,13
17865  M01S14342.dsdi    +++|**        FPP - FIND PPU PROGRAM.
17866  M01S14343.dsdi    +++|*
17867  M01S14344.dsdi    +++|*         ENTRY  X4 = PROGRAM NAME.
17868  M01S14345.dsdi    +++|*                FI = 0 IF INITIAL ENTRY.
17869  M01S14346.dsdi    +++|*                   = CURRENT SEARCH INDEX IF NOT FIRST ENTRY.
17870  M01S14347.dsdi    +++|*
17871  M01S14348.dsdi    +++|*         EXIT   X6 = PPU NUMBER.
17872  M01S14349.dsdi    +++|*                FI IS UPDATED.
17873  M01S14350.dsdi    +++|*                X1=FI=0 IF NO MORE PPS EXECUTING REQUESTED PROGRAM.
17874  M01S14351.dsdi    +++|*
17875  M01S14352.dsdi    +++|*         SAVES  X - 5.
17876  M01S14353.dsdi    +++|*                B - 1,5,6,7.
17877  M01S14354.dsdi    +++|*                A - 0,5.
17878  M01S14355.dsdi    +++|
17879  M01S14356.dsdi    +++|
17880  M01S14357.dsdi    +++| FPP      SUBR
17881  M01S14358.dsdi    +++|          SA1    NP          GET NUMBER OF PP-S
17882  M01S14359.dsdi    +++|          SA2    PC          GET PP COMMUNICATION AREA POINTER
17883  M01S14360.dsdi    +++|          SA3    IC
17884  M01S14361.dsdi    +++|          ZR     X3,FPP1     IF NOT DUMPING CPP-S
17885  M01S14362.dsdi    +++|          LX1    3
17886  M01S14363.dsdi    +++|          IX2    X1+X2       SET CPP COMMUNICATION AREA POINTER
17887  M01S14364.dsdi    +++|          SA1    C4          GET NUMBER OF CPP-S
17888  M01S14365.dsdi    +++| FPP1     LX1    3
17889  M01S14366.dsdi    +++|          SB4    X2
17890  M01S14367.dsdi    +++|          SB3    X1+B4       SET LWA+1 OF SEARCH AREA
17891  M01S14368.dsdi    +++|          MX0    18
17892  M01S14369.dsdi    +++|          SA1    FI          READ SEARCH INDEX
17893  M01S14370.dsdi    +++|          SA2    F.TCMT
17894  M01S14371.dsdi    +++|          SB2    X1
17895  M01S14372.dsdi    +++|          NZ     X1,FPP2     IF NOT INITIAL ENTRY
17896  M01S14373.dsdi    +++|          SB2    B4          PRESET SEARCH INDEX
17897  M01S14374.dsdi    +++| FPP2     GE     B2,B3,FPP3  IF END OF SEARCH
17898  M01S14375.dsdi    +++|          SA1    X2+B2
17899  M01S14376.dsdi    +++|          BX3    X1-X4
17900  M01S14377.dsdi    +++|          BX3    X0*X3
17901  M01S14378.dsdi    +++|          ZR     X3,FPP4     IF PROGRAM NAME MATCH
17902  M01S14379.dsdi    +++|          SB2    B2+10B      ADVANCE SEARCH
17903  M01S14380.dsdi    +++|          EQ     FPP2        CONTINUE SEARCH
17904  M01S14381.dsdi    +++|
17905  M01S14382.dsdi    +++| FPP3     SX6    0
17906  M01S14383.dsdi    +++|          SA6    FI          CLEAR SEARCH INDEX
17907  M01S14384.dsdi    +++|          SX1    0           SET END OF SEARCH
17908  M01S14385.dsdi    +++|          JP     FPPX        EXIT
17909  M01S14386.dsdi    +++|
17910  M01S14387.dsdi    +++| FPP4     SX6    B2+10B
17911  M01S14388.dsdi    +++|          SA6    FI          UPDATE SEARCH INDEX
17912  M01S14389.dsdi    +++|          SX6    B2-B4
17913  M01S14390.dsdi    +++|          AX6    3           SET PPU NUMBER
17914  M01S14391.dsdi    +++|          SX1    1           SET PPU FOUND
17915  M01S14392.dsdi    +++|          SX7    X6-12B
17916  M01S14393.dsdi    +++|          NG     X7,FPPX     IF NOT PPUS 20 - 31
17917  M01S14394.dsdi    +++|          SX6    X6+20B-12B  CORRECT PPU NUMBER
17918  M01S14395.dsdi    +++|          JP     FPPX        EXIT
17919  M01S00133.dsdi67  +++| FPR      SPACE  4,20
17920  M01S00134.dsdi67  +++|**        FPR - FIND PROCESSOR RECORD.
17921  M01S00135.dsdi67  +++|*
17922  M01S00136.dsdi67  +++|*         ENTRY  (X1) = THREE CHARACTER RECORD ID.
17923  M01S00137.dsdi67  +++|*                (X6) = RADIAL MCI FLAG.
17924  M01S00138.dsdi67  +++|*
17925  M01S00139.dsdi67  +++|*         EXIT   (X2) = FIRST WORD OF TABLE DIRECTORY IF FOUND.
17926  M01S00140.dsdi67  +++|*                     = 0 IF RECORD NOT FOUND.
17927  M01S00141.dsdi67  +++|*                (RI) = RANDOM INDEX.
17928  M01S00142.dsdi67  +++|*                RADIAL MCI PRINTED IF (X6) .NE. 0 ON ENTRY.
17929  M01S00143.dsdi67  +++|*
17930  M01S00144.dsdi67  +++|*         USES   X - 0, 1, 2, 3, 5, 6.
17931  M01S00145.dsdi67  +++|*                A - 1, 2, 3, 6.
17932  M01S00146.dsdi67  +++|*                B - 6, 7.
17933  M01S00147.dsdi67  +++|*
17934  M01S00148.dsdi67  +++|*         CALLS  SSB, UPS.
17935  M01S00149.dsdi67  +++|*
17936  M01S00150.dsdi67  +++|*         MACROS PRINT, SEARCH.
17937  M01S00151.dsdi67  +++|
17938  M01S00152.dsdi67  +++|
17939  M01S00153.dsdi67  +++| FPR      SUBR               ENTRY/EXIT
17940  M01S00154.dsdi67  +++|          SA6    FPRA        SAVE RADIAL MCI FLAG
17941  M01S00155.dsdi67  +++|          SA3    NR          NEXT DIRECTIVE TABLE ENTRY
17942  M01S00156.dsdi67  +++|          MX0    18
17943  M01S00157.dsdi67  +++|          ZR     X3,FPR1     IF FIRST RECORD
17944  M01S00158.dsdi67  +++|          SA2    X3          GET PREVIOUS RECORD ID
17945  M01S00159.dsdi67  +++|          BX3    X1-X2
17946  M01S00160.dsdi67  +++|          BX3    X0*X3
17947  M01S00161.dsdi67  +++|          ZR     X3,FPR2     IF RECORD ID MATCHES PREVIOUS RECORD ID
17948  M01S00162.dsdi67  +++| FPR1     SEARCH TDIR,X1,X0
17949  M01S00163.dsdi67  +++|          ZR     X2,FPRX     IF RECORD ID NOT IN DIRECTORY
17950  M01S00164.dsdi67  +++| FPR2     SA1    A2+C.TDIR   CHECK NEXT *TDIR* ENTRY
17951  M01S00165.dsdi67  +++|          BX1    X1-X2
17952  M01S00166.dsdi67  +++|          BX1    X0*X1
17953  M01S00167.dsdi67  +++|          SX6    A1
17954  M01S00168.dsdi67  +++|          ZR     X1,FPR3     IF RECORD NAMES MATCH
17955  M01S00169.dsdi67  +++|          SX6    B0
17956  M01S00170.dsdi67  +++| FPR3     SA6    NR
17957  M01S00171.dsdi67  +++|          SA3    A2+B1       SET RANDOM INDEX
17958  M01S00172.dsdi67  +++|          BX6    X3
17959  M01S00173.dsdi67  +++|          SA6    RI
17960  M01S00174.dsdi67  +++|          SA1    FPRA
17961  M01S00175.dsdi67  +++|          ZR     X1,FPRX     IF NOT TO DISPLAY THE RADIAL MCI
17962  M01S00176.dsdi67  +++|          BX5    X2          SAVE FIRST WORD OF DIRECTORY ENTRY
17963  M01S00177.dsdi67  +++|          MX0    -6          SET RADIAL MCI
17964  M01S00178.dsdi67  +++|          AX2    36
17965  M01S00179.dsdi67  +++|          BX6    -X0*X2
17966  M01S00180.dsdi67  +++|          SA6    PRBF+13
17967  M01S00181.dsdi67  +++|          PRINT  (=2C  )
17968  M01S00182.dsdi67  +++|          SB7    PRBF
17969  M01S00183.dsdi67  +++|          SA2    =13HRADIAL MCI =
17970  M01S00184.dsdi67  +++|          SB6    13
17971  M01S00185.dsdi67  +++|          RJ     UPS         UNPACK MESSAGE
17972  M01S00186.dsdi67  +++|          PRINT  CCCH,15
17973  M01S00187.dsdi67  +++|          RJ     SSB         CLEAR STRING BUFFER
17974  M01S00188.dsdi67  +++|          PRINT  (=2C  )
17975  M01S00189.dsdi67  +++|          BX2    X5          RESTORE FIRST WORD OF ENTRY
17976  M01S00190.dsdi67  +++|          EQ     FPRX        RETURN
17977  M01S00191.dsdi67  +++|
17978  M01S00192.dsdi67  +++|
17979  M01S00193.dsdi67  +++| FPRA     CON    0           RADIAL MCI FLAG
Line S14396 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
17980  M02S14396.dsdi71  ---| FPW      SPACE  4,10
17981  M01S00209.dsdi71  +++| FPW      SPACE  4,15
17982  M01S14397.dsdi    +++|**        FPW - FORMAT CONTROL POINT PARAMETER LINE.
17983  M01S14398.dsdi    +++|*
17984  M01S14399.dsdi    +++|*         ENTRY  (X1) = LINE INDEX.
17985  M01S14400.dsdi    +++|*                (CN) = CONTROL POINT NUMBER.
17986  M01S14401.dsdi    +++|*                (FW) = CONTROL POINT AREA ADDRESS.
17987  M01S14402.dsdi    +++|*                (GDBB) = DAYFILE BUFFER LENGTH.
17988  M01S14403.dsdi    +++|*                (NC) = NUMBER OF CONTROL POINTS - 1.
17989  M01S14404.dsdi    +++|*
17990  M01S14405.dsdi    +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
17991  M01S14406.dsdi    +++|*                A - 1, 2, 3, 4, 6, 7.
17992  M01S14407.dsdi    +++|*                B - 2, 3, 4, 5, 6, 7.
17993  M01S14408.dsdi    +++|*
Line S14409 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
17994  M02S14409.dsdi71  ---|*         CALLS  CNL, CTS, GDB, POM, SCM, UPS.
Line S00210 Modification History
M01 (Added by) dsdi71
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
17995  M02S00210.dsdi71a ---|*         CALLS  CNL, CTS, DMB, DOS, GCS, GDB, GEE, POM, SCM, UPS.
17996  M01S00027.dsdi71a +++|*         CALLS  CNL, CTS, DMB, DOS, GCS, GDB, GEE, GFL, POM, SCM, UPS.
17997  M01S14410.dsdi    +++|*
17998  M01S14411.dsdi    +++|*         MACROS GETCM.
17999  M01S14412.dsdi    +++|
18000  M01S14413.dsdi    +++|
18001  M01S14414.dsdi    +++| FPW      SUBR
18002  M01S14415.dsdi    +++|          SB7    PRBF+1      SET PRINT STRING ADDRESS
18003  M01S14416.dsdi    +++|          SA2    F.TCMT
18004  M01S14417.dsdi    +++|          SA3    FW
18005  M01S14418.dsdi    +++|          IX3    X2+X3
18006  M01S14419.dsdi    +++|          SB2    X3          SET CONTROL POINT AREA ADDRESS
18007  M01S14420.dsdi    +++|          SB3    X1+FPWA     SET JUMP TABLE ADDRESS
18008  M01S14421.dsdi    +++|          JP     B3          EXECUTE SELECTED PROCESSOR
18009  M01S14422.dsdi    +++|
18010  M01S14423.dsdi    +++|*         LINE 0 - USER NAME, SENSE SWITCHES.
18011  M01S14424.dsdi    +++|
18012  M01S14425.dsdi    +++| FPW1     SA2    =45HUSER NAME                     SENSE SWITCHES
18013  M01S14426.dsdi    +++|          SB6    45
18014  M01S14427.dsdi    +++|          RJ     UPS         STORE HEADING
18015  M01S14428.dsdi    +++|          SA2    B2+UIDW     READ USER NAME
18016  M01S14429.dsdi    +++|          SB6    7
18017  M01S14430.dsdi    +++|          SB7    PRBF+21
18018  M01S14431.dsdi    +++|          RJ     UPS         STORE USER NAME
18019  M01S14432.dsdi    +++|          SA1    B2+SNSW     READ SENSE SWITCHES
18020  M01S14433.dsdi    +++|          SB6    2
18021  M01S14434.dsdi    +++|          SB7    PRBF+59
18022  M01S14435.dsdi    +++|          LX1    -12
18023  M01S14436.dsdi    +++|          RJ     CTS         CONVERT SENSE SWITCHES
18024  M01S14437.dsdi    +++|          JP     FPWX        EXIT
18025  M01S14438.dsdi    +++|
18026  M01S14439.dsdi    +++|*         LINE 1 - PRIMARY FILE NAME, CCL R1.
18027  M01S14440.dsdi    +++|
18028  M01S14441.dsdi    +++| FPW2     SA2    =45HPRIMARY FILE                  CCL R1
18029  M01S14442.dsdi    +++|          SB6    45
18030  M01S14443.dsdi    +++|          RJ     UPS         STORE HEADING
18031  M01S14444.dsdi    +++|          SA1    B2+TFSW     READ PRIMARY FILE EST POINTER
18032  M01S14445.dsdi    +++|          SA2    F.TCMT
18033  M01S14446.dsdi    +++|          MX3    -12
18034  M01S14447.dsdi    +++|          AX1    36
18035  M01S14448.dsdi    +++|          BX3    -X3*X1      FST ADDRESS
18036  M01S14449.dsdi    +++|          ZR     X3,FPW3     IF NO PRIMARY FILE
18037  M01S14450.dsdi    +++|          IX1    X2+X3
18038  M01S14451.dsdi    +++|          SA2    X1-1        READ FNT
18039  M01S14452.dsdi    +++|          SB6    7
18040  M01S14453.dsdi    +++|          SB7    PRBF+21
18041  M01S14454.dsdi    +++|          RJ     UPS         SET FILE NAME
18042  M01S14455.dsdi    +++| FPW3     SA1    B2+JCRW     READ CCL REGISTERS
18043  M01S14456.dsdi    +++|          LX1    -18
Line S14457 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18044  M02S14457.dsdi71a ---|          SB6    6
18045  M01S00028.dsdi71a +++| FPW3.1   SB6    6
18046  M01S14458.dsdi    +++|          SB7    PRBF+55
18047  M01S14459.dsdi    +++|          RJ     CTS         CONVERT REGISTER
18048  M01S14460.dsdi    +++|          JP     FPWX        EXIT
18049  M01S14461.dsdi    +++|
18050  M01S14462.dsdi    +++|*         LINE 2 - ORIGIN TYPE, CCL R2.
18051  M01S14463.dsdi    +++|
18052  M01S14464.dsdi    +++| FPW4     SA2    =45HORIGIN TYPE                   CCL R2
18053  M01S14465.dsdi    +++|          SB6    45
18054  M01S14466.dsdi    +++|          RJ     UPS         STORE HEADING
18055  M01S14467.dsdi    +++|          MX0    12          PRESET ORIGIN TYPE MASK
18056  M01S14468.dsdi    +++|          SA1    B2+JOTW     GET ORIGIN TYPE
18057  M01S14469.dsdi    +++|          LX0    24
18058  M01S14470.dsdi    +++|          BX1    X0*X1
18059  M01S14471.dsdi    +++|          AX1    12
18060  M01S14472.dsdi    +++|          SA2    X1+FPWB     READ ORIGIN TYPE
18061  M01S14473.dsdi    +++|          SB6    4
18062  M01S14474.dsdi    +++|          SB7    PRBF+24
18063  M01S14475.dsdi    +++|          RJ     UPS         STORE ORIGIN TYPE
18064  M01S14476.dsdi    +++|          SA1    B2+JCRW     READ CCL REGISTERS
18065  M01S14477.dsdi    +++|          LX1    -36
Line S14478 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18066  M02S14478.dsdi71a ---|          SB6    6
Line S14479 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18067  M02S14479.dsdi71a ---|          SB7    PRBF+55
Line S14480 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18068  M02S14480.dsdi71a ---|          RJ     CTS         CONVERT REGISTER
Line S14481 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18069  M02S14481.dsdi71a ---|          JP     FPWX        EXIT
18070  M01S00029.dsdi71a +++|          JP     FPW3.1      CONVERT REGISTER
18071  M01S14482.dsdi    +++|
18072  M01S14483.dsdi    +++|*         LINE 3 - TIME USED, CCL R3.
18073  M01S14484.dsdi    +++|
18074  M01S14485.dsdi    +++| FPW5     SA2    =45HTIME USED                     CCL R3
18075  M01S14486.dsdi    +++|          SB6    45
18076  M01S14487.dsdi    +++|          RJ     UPS         STORE HEADING
18077  M01S14488.dsdi    +++|          SA1    B2+CPTW     READ CP ACCOUNTING WORD
18078  M01S14489.dsdi    +++|          SX2    1000
18079  M01S14490.dsdi    +++|          AX1    22          MILLISECONDS USED
18080  M01S14491.dsdi    +++|          IX1    X1/X2       SECONDS USED
18081  M01S14492.dsdi    +++|          LX1    -30
18082  M01S14493.dsdi    +++|          SB6    10
18083  M01S14494.dsdi    +++|          SB7    PRBF+18
18084  M01S14495.dsdi    +++|          RJ     CTS         CONVERT TIME USED
18085  M01S14496.dsdi    +++|          SA1    B2+JCRW     READ CCL REGISTERS
18086  M01S14497.dsdi    +++|          LX1    6
18087  M01S14498.dsdi    +++|          SB6    6
18088  M01S14499.dsdi    +++|          SB7    PRBF+55
18089  M01S14500.dsdi    +++|          RJ     CTS         CONVERT CCL R3
18090  M01S14501.dsdi    +++|          JP     FPWX        EXIT
18091  M01S14502.dsdi    +++|
18092  M01S14503.dsdi    +++|*         LINE 4 - TIME REMAINING, CCL ERROR FLAGS.
18093  M01S14504.dsdi    +++|
18094  M01S14505.dsdi    +++| FPW6     SA2    =45HTIME REMAINING                CCL EF
18095  M01S14506.dsdi    +++|          SB6    45
18096  M01S14507.dsdi    +++|          RJ     UPS         STORE HEADING
18097  M01S14508.dsdi    +++|          SA1    B2+CPTW     READ CP ACCOUNTING WORD
18098  M01S14509.dsdi    +++|          SX2    1000
18099  M01S14510.dsdi    +++|          AX1    22          MILLISECONDS USED
18100  M01S14511.dsdi    +++|          IX1    X1/X2       SECONDS USED
18101  M01S14512.dsdi    +++|          SA3    B2+CPLW     GET TIME LIMIT
18102  M01S14513.dsdi    +++|          SX2    1000
18103  M01S14514.dsdi    +++|          AX3    22          LIMIT IN MILLISECONDS
18104  M01S14515.dsdi    +++|          IX3    X3/X2       LIMIT IN SECONDS
18105  M01S14516.dsdi    +++|          IX1    X3-X1       SECONDS LEFT
18106  M01S14517.dsdi    +++|          LX1    -30
18107  M01S14518.dsdi    +++|          SB6    10
18108  M01S14519.dsdi    +++|          SB7    PRBF+18
18109  M01S14520.dsdi    +++|          RJ     CTS         CONVERT TIME REMAINING
18110  M01S14521.dsdi    +++|          SA1    B2+JCRW     READ CCL REGISTERS
18111  M01S14522.dsdi    +++|          SB6    2
18112  M01S14523.dsdi    +++|          SB7    PRBF+59
18113  M01S14524.dsdi    +++|          RJ     CTS         CONVERT ERROR FLAGS
18114  M01S14525.dsdi    +++|          JP     FPWX        EXIT
18115  M01S14526.dsdi    +++|
18116  M01S14527.dsdi    +++|*         LINE 5 - SUBSYSTEM ID, CPU PRIORITY.
18117  M01S14528.dsdi    +++|
18118  M01S14529.dsdi    +++| FPW7     SA2    =45HSUBSYSTEM ID                  CPU PRIORITY
18119  M01S14530.dsdi    +++|          SB6    45
Line S00211 Modification History
M01 (Added by) dsdi71
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
18120  M02S00211.271l750 ---|          SA1    B2+JCIW     READ PRIORITY WORD
18121  M01S00148.271l750 +++|          SA1    B2+JCIW     READ SUBSYSTEM ID
18122  M01S14531.dsdi    +++|          RJ     UPS         STORE HEADING
Line S14532 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18123  M02S14532.dsdi71  ---|          SA1    B2+JCIW     READ PRIORITY WORD
18124  M01S14533.dsdi    +++|          SB6    4
18125  M01S14534.dsdi    +++|          SB7    PRBF+24
18126  M01S14535.dsdi    +++|          LX1    24
Line S00212 Modification History
M01 (Added by) dsdi71
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
18127  M02S00212.271l750 ---|          MX2    5
18128  M01S00149.271l750 +++|          MX2    -58
18129  M01S14536.dsdi    +++|          RJ     CTS         CONVERT SUBSYSTEM ID
Line S14537 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
18130  M02S14537.271l750 ---|          SA1    B2+JCIW
18131  M01S00150.271l750 +++|          SA1    B2+CWQW     READ CPU PRIORITY
Line S14538 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18132  M02S14538.dsdi71  ---|          AX1    49
Line S14539 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18133  M02S14539.dsdi71  ---|          LX1    -12
Line S14540 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18134  M02S14540.dsdi71  ---|          SB6    4
18135  M01S00213.dsdi71  +++|          BX1    -X2*X1
Line S00214 Modification History
M01 (Added by) dsdi71
M02 (Updated by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
18136  M02S00214.271l750 ---|          AX1    48
18137  M01S00151.271l750 +++|          AX1    51
18138  M01S14541.dsdi    +++|          SB7    PRBF+57
Line S14542 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18139  M02S14542.dsdi71  ---|          RJ     CTS         CONVERT CPU PRIORITY
18140  M01S00215.dsdi71  +++|          SB4    4
18141  M01S00216.dsdi71  +++|          RJ     DOS         CONVERT CPU PRIORITY
18142  M01S14543.dsdi    +++|          JP     FPWX        EXIT
18143  M01S14544.dsdi    +++|
18144  M01S14545.dsdi    +++|*         LINE 6 - CPU STATUS.
18145  M01S14546.dsdi    +++|
18146  M01S14547.dsdi    +++| FPW8     SA2    =45HCPU STATUS                    SERVICE CLASS
18147  M01S14548.dsdi    +++|          SB6    45
18148  M01S00217.dsdi71  +++|          SX5    B2
18149  M01S14549.dsdi    +++|          RJ     UPS         STORE HEADING
Line S14550 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18150  M02S14550.dsdi71  ---|          SA1    FW          GET CPU STATUS OF CONTROL POINT
Line S14551 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18151  M02S14551.dsdi71  ---|          SA2    F.TCMT
Line S14552 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18152  M02S14552.dsdi71  ---|          MX0    3
Line S14553 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18153  M02S14553.dsdi71  ---|          IX1    X1+X2
Line S14554 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18154  M02S14554.dsdi71  ---|          SA1    X1+STSW
Line S14555 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18155  M02S14555.dsdi71  ---|          BX1    X0*X1
Line S14556 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18156  M02S14556.dsdi71  ---|          LX1    4           FORM STATUS*6
Line S14557 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18157  M02S14557.dsdi71  ---|          SA2    FPWD
Line S14558 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18158  M02S14558.dsdi71  ---|          SB3    X1
Line S14559 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18159  M02S14559.dsdi71  ---|          LX1    1
Line S14560 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18160  M02S14560.dsdi71  ---|          SB3    B3+X1
Line S14561 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18161  M02S14561.dsdi71  ---|          AX2    B3,X2       SHIFT SELECTED STATUS TO BITS 5-0
Line S14562 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18162  M02S14562.dsdi71  ---|          MX0    -6
Line S14563 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18163  M02S14563.dsdi71  ---|          BX6    -X0*X2
Line S14564 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18164  M02S14564.dsdi71  ---|          SA6    PRBF+27     STORE STATUS
Line S14565 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18165  M02S14565.dsdi71  ---|          SA2    F.TCMT      SET FWA EJT ENTRY
Line S14566 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18166  M02S14566.dsdi71  ---|          SA1    X2+EJTP
Line S14567 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18167  M02S14567.dsdi71  ---|          SA3    FW
Line S14568 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18168  M02S14568.dsdi71  ---|          AX1    36          FWA EJT
Line S14569 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18169  M02S14569.dsdi71  ---|          IX3    X3+X2       FWA CONTROL POINT AREA
Line S14570 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18170  M02S14570.dsdi71  ---|          SA3    X3+TFSW
Line S14571 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18171  M02S14571.dsdi71  ---|          MX0    12
Line S14572 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18172  M02S14572.dsdi71  ---|          BX3    X0*X3
Line S14573 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18173  M02S14573.dsdi71  ---|          LX3    12          EJT ORDINAL
Line S14574 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18174  M02S14574.dsdi71  ---|          SX2    EJTE
Line S14575 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18175  M02S14575.dsdi71  ---|          IX3    X3*X2
Line S14576 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18176  M02S14576.dsdi71  ---|          IX3    X1+X3
Line S14577 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18177  M02S14577.dsdi71  ---|          SX5    X3          SAVE FWA EJT ENTRY
Line S14578 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18178  M02S14578.dsdi71  ---|          RJ     PCM
Line S14579 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18179  M02S14579.dsdi71  ---|          GETCM  BUF,EJTE
18180  M01S00218.dsdi71  +++|          SB7    PRBF+27
18181  M01S00219.dsdi71  +++|          RJ     GCS         GET CPU STATUS
18182  M01S00220.dsdi71  +++|          RJ     GEE         GET EJT ENTRY
18183  M01S14580.dsdi    +++|          R=     A1,BUF+SCLE  GET SERVICE CLASS
18184  M01S14581.dsdi    +++|          MX0    6
18185  M01S14582.dsdi    +++|          BX1    X0*X1
18186  M01S14583.dsdi    +++|          LX1    6
18187  M01S14584.dsdi    +++|          R=     A2,X1+SCNT-1  READ SERVICE CLASS MEMONIC
18188  M01S14585.dsdi    +++|          SB6    4
18189  M01S14586.dsdi    +++|          SB7    PRBF+57
18190  M01S14587.dsdi    +++|          RJ     UPS         STORE SERVICE CLASS
18191  M01S14588.dsdi    +++|          EQ     FPWX        EXIT
18192  M01S14589.dsdi    +++|
18193  M01S14590.dsdi    +++|*         LINE 8 - MESSAGE 1 LINE.
18194  M01S14591.dsdi    +++|
18195  M01S14592.dsdi    +++| FPW12    SA2    =28HMESSAGE 1                 -
18196  M01S14593.dsdi    +++|          SB6    28
18197  M01S14594.dsdi    +++|          RJ     UPS         STORE HEADING
18198  M01S14595.dsdi    +++|          SA2    B2+MS1W
18199  M01S14596.dsdi    +++|          SB6    48
Line S14597 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18200  M02S14597.dsdi71  ---|          RJ     UPS         STORE MESSAGE
18201  M01S00221.dsdi71  +++|          RJ     DMB         STORE MESSAGE
18202  M01S14598.dsdi    +++|          JP     FPWX        EXIT
18203  M01S14599.dsdi    +++|
18204  M01S14600.dsdi    +++|*         LINE 9 - MESSAGE 2 LINE.
18205  M01S14601.dsdi    +++|
18206  M01S14602.dsdi    +++| FPW13    SA2    =28HMESSAGE 2                 -
18207  M01S14603.dsdi    +++|          SB6    28
18208  M01S14604.dsdi    +++|          RJ     UPS         STORE HEADING
18209  M01S14605.dsdi    +++|          SA2    B2+MS2W
18210  M01S14606.dsdi    +++|          SB6    28
Line S14607 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18211  M02S14607.dsdi71  ---|          RJ     UPS         STORE MESSAGE 2
18212  M01S00222.dsdi71  +++|          RJ     DMB         STORE MESSAGE 2
18213  M01S14608.dsdi    +++|          JP     FPWX        EXIT
18214  M01S14609.dsdi    +++|
18215  M01S14610.dsdi    +++|*         LINE 11 - CURRENT COMMAND.
18216  M01S14611.dsdi    +++|
18217  M01S14612.dsdi    +++| FPW14    SA1    CN
18218  M01S14613.dsdi    +++|          SA2    NC
18219  M01S00360.271l716 +++|          SX2    X2+B1
18220  M01S14614.dsdi    +++|          IX1    X2-X1
Line S14615 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
18221  M02S14615.271l716 ---|          NG     X1,FPWX     IF SYSTEM CONTROL POINT
18222  M01S00361.271l716 +++|          ZR     X1,FPWX     IF SYSTEM CONTROL POINT
18223  M01S14616.dsdi    +++|          SA2    =28HCURRENT COMMAND           -
18224  M01S14617.dsdi    +++|          SB6    28
18225  M01S14618.dsdi    +++|          RJ     UPS         STORE HEADING
18226  M01S14619.dsdi    +++|          RJ     CNL         CHECK NFL LENGTH
18227  M01S14620.dsdi    +++|          NG     X1,FPWX     IF INSUFFICIENT NFL SPACE
18228  M01S14621.dsdi    +++|          RJ     SCM         SELECT CENTRAL MEMORY
Line S14622 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18229  M02S14622.dsdi71a ---|          SA1    B2+FLSW     GET RA OF CONTROL POINT
Line S14623 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18230  M02S14623.dsdi71a ---|          MX0    -15
Line S14624 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18231  M02S14624.dsdi71a ---|          AX1    12
Line S14625 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18232  M02S14625.dsdi71a ---|          BX1    -X0*X1
Line S14626 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18233  M02S14626.dsdi71a ---|          LX1    6
Line S14627 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18234  M02S14627.dsdi71a ---|          SX6    CSBN        SET FWA OF COMMAND BUFFER
Line S14628 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18235  M02S14628.dsdi71a ---|          IX6    X1-X6
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  M01S14629.dsdi    +++|          SX7    B2          SAVE B2
18241  M01S14630.dsdi    +++|          MX1    -24
18242  M01S14631.dsdi    +++|          BX6    -X1*X6
18243  M01S14632.dsdi    +++|          SA6    CPRA
18244  M01S14633.dsdi    +++|          SA7    A6+B1
18245  M01S14634.dsdi    +++|          SB2    A6          POSITION DUMP FILE
18246  M01S14635.dsdi    +++|          RJ     POM
18247  M01S14636.dsdi    +++|          GETCM  BUF,110B    READ COMMAND BUFFER
18248  M01S14637.dsdi    +++|          SB7    PRBF+29     RESET PRINT STRING ADDRESS
18249  M01S14638.dsdi    +++|          SA1    CPRA
18250  M01S14639.dsdi    +++|          SB4    BUF         FWA OF BUFFER
18251  M01S14640.dsdi    +++|          SA3    A1+B1       RESTORE B2
18252  M01S14641.dsdi    +++|          SX0    X1+CSBN     RA OF CONTROL POINT
18253  M01S14642.dsdi    +++|          SB2    X3
18254  M01S14643.dsdi    +++|          SA1    B2+CSPW     READ COMMAND BUFFER INDEX
18255  M01S14644.dsdi    +++|          MX2    -12
18256  M01S14645.dsdi    +++|          AX1    12
18257  M01S14646.dsdi    +++|          BX1    -X2*X1
18258  M01S14647.dsdi    +++|          SB3    X1-CSBN
18259  M01S14648.dsdi    +++|          SB3    B4-B3       FORM CURRENT POINTER
18260  M01S14649.dsdi    +++|          EQ     B3,B4,FPWX  IF BUFFER EMTPY
18261  M01S14650.dsdi    +++| FPW15    SB3    B3-B1       POINTER TO END OF LAST LINE
18262  M01S14651.dsdi    +++|          SB5    B3          SAVE END OF LINE POINTER
18263  M01S14652.dsdi    +++|          EQ     FPW17       ENTER SEARCH LOOP
18264  M01S14653.dsdi    +++|
18265  M01S14654.dsdi    +++| FPW16    SA1    B3
18266  M01S14655.dsdi    +++|          BX1    -X2*X1
18267  M01S14656.dsdi    +++|          ZR     X1,FPW18    IF END OF PREVIOUS LINE
18268  M01S14657.dsdi    +++| FPW17    SB3    B3-1
18269  M01S14658.dsdi    +++|          GE     B3,B4,FPW16 IF NOT BEGINNING OF BUFFER
18270  M01S14659.dsdi    +++| FPW18    SX1    10
18271  M01S14660.dsdi    +++|          SX2    B5-B3       WORD COUNT FOR LINE
18272  M01S14661.dsdi    +++|          IX2    X1*X2
18273  M01S14662.dsdi    +++|          SB6    X2+         CHARACTER COUNT
18274  M01S14663.dsdi    +++|          GE     B3,B4,FPW19 IF NOT FIRST WORD OF BUFFER
18275  M01S14664.dsdi    +++|          SX6    65B         =1R_
18276  M01S14665.dsdi    +++|          SA6    B7
18277  M01S14666.dsdi    +++|          SB7    B7+B1
18278  M01S14667.dsdi    +++| FPW19    SA2    B3+1        READ FIRST WORD OF LINE
18279  M01S14668.dsdi    +++|          RJ     UPS         STORE LINE IN PRINT STRING
18280  M01S14669.dsdi    +++|          JP     FPWX        EXIT
18281  M01S14670.dsdi    +++|
18282  M01S14671.dsdi    +++|*         LINE 13 - LAST DAYFILE MESSAGE.
18283  M01S14672.dsdi    +++|
18284  M01S14673.dsdi    +++| FPW20    SA2    =28HLAST DAYFILE MESSAGE      -
18285  M01S14674.dsdi    +++|          SB6    28
18286  M01S14675.dsdi    +++|          RJ     UPS         STORE HEADING
18287  M01S14676.dsdi    +++|          SA1    CN
18288  M01S14677.dsdi    +++|          SA2    NC
18289  M01S00362.271l716 +++|          SX2    X2+B1
18290  M01S14678.dsdi    +++|          IX1    X2-X1
Line S14679 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
18291  M02S14679.271l716 ---|          NG     X1,FPW20.0  IF SYSTEM CONTROL POINT
18292  M01S00363.271l716 +++|          ZR     X1,FPW20.0  IF SYSTEM CONTROL POINT
18293  M01S14680.dsdi    +++|          RJ     CNL         CHECK NFL LENGTH
18294  M01S14681.dsdi    +++|          NG     X1,FPWX     IF INSUFFICIENT NFL SPACE
18295  M01S14682.dsdi    +++| FPW20.0  RJ     GDB         GET DAYFILE BUFFER
18296  M01S14683.dsdi    +++|          SA1    GDBD
18297  M01S14684.dsdi    +++|          NZ     X1,FPWX     IF INACCURATE DAYFILE BUFFER POINTERS
Line S14685 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi70
Seq #  *Modification Id* Act 
----------------------------+
18298  M02S14685.dsdi70  ---|          SA1    GDBA        GET POINTER ADDRESS
18299  M01S00001.dsdi70  +++|          SA1    F.TSC1      GET POINTER ADDRESS
18300  M01S14686.dsdi    +++|          SA1    X1          READ POINTER WORD
18301  M01S14687.dsdi    +++|          MX2    -12
18302  M01S14688.dsdi    +++|          BX3    -X2*X1      DETERMINE *IN* AND *FIRST* POINTERS
18303  M01S14689.dsdi    +++|          SB2    X3          RELATIVE *IN* POINTER
18304  M01S14690.dsdi    +++|          SA4    F.TSCR
18305  M01S14691.dsdi    +++|          IX3    X4+X3
18306  M01S14692.dsdi    +++|          SB6    X3-1        INITIALIZE POINTER FOR SEARCH LOOP
18307  M01S14693.dsdi    +++|          SA3    GDBB        GET BUFFER LENGTH
18308  M01S14694.dsdi    +++|          SB7    X3
18309  M01S14695.dsdi    +++|          NZ     B2,FPW20.1  IF *IN* .NE. 0
18310  M01S14696.dsdi    +++|          SB6    X4+B7       SET POINTER AT LWA OF DATA
18311  M01S14697.dsdi    +++|          SB6    B6-B1
18312  M01S14698.dsdi    +++| FPW20.1  SB3    X4          *FIRST* POINTER
18313  M01S14699.dsdi    +++|          SA1    A1+B1       DETERMINE *OUT* POINTER
18314  M01S14700.dsdi    +++|          BX3    -X2*X1
18315  M01S14701.dsdi    +++|          SX6    X3+B2       RELATIVE *IN* + *OUT*
18316  M01S14702.dsdi    +++|          IX3    X4+X3
18317  M01S14703.dsdi    +++|          SB4    X3          *OUT* POINTER
18318  M01S14704.dsdi    +++|          SA1    A1+B1       CHECK DISK ASSIGNMENT
18319  M01S14705.dsdi    +++|          AX1    12
18320  M01S14706.dsdi    +++|          IX6    X1+X6       CHECK *IN* = *OUT* = 0
18321  M01S14707.dsdi    +++|          ZR     X6,FPWX     IF BUFFER NOT USED
18322  M01S14708.dsdi    +++|          SB5    B1          INITIALIZE WORD COUNTER
18323  M01S14709.dsdi    +++|          SB2    B0          INITIALIZE TOP OF MESSAGE WORD COUNTER
18324  M01S14710.dsdi    +++|
18325  M01S14711.dsdi    +++|*         FIND THE START OF THE LAST MESSAGE.
18326  M01S14712.dsdi    +++|
18327  M01S14713.dsdi    +++| FPW20.2  NE     B6,B3,FPW20.3  IF POINTER .NE. FIRST
18328  M01S14714.dsdi    +++|          SB6    B3+B7       SET POINTER = FIRST + LIMIT
18329  M01S14715.dsdi    +++|          SB2    B5          SET TOP OF MESSAGE COUNT
18330  M01S14716.dsdi    +++| FPW20.3  SB6    B6-B1       *IN* = *IN* - 1
18331  M01S14717.dsdi    +++|          SA3    B6          CHECK FOR ZERO BYTE TERMINATOR
18332  M01S14718.dsdi    +++|          BX3    -X2*X3
18333  M01S14719.dsdi    +++|          ZR     X3,FPW20.5  IF START OF LAST MESSAGE FOUND
18334  M01S14720.dsdi    +++|          SB5    B5+B1       INCREMENT WORD COUNT
18335  M01S14721.dsdi    +++|          EQ     B6,B4,FPW20.4  IF *IN* = *OUT* BOTTOM OF MESSAGE
18336  M01S14722.dsdi    +++|          GT     B5,B7,FPWX  IF LAST MESSAGE CAN NOT BE DETECTED
18337  M01S14723.dsdi    +++|          EQ     FPW20.2     CONTINUE SEARCH FOR START OF LAST MESSAGE
18338  M01S14724.dsdi    +++|
18339  M01S14725.dsdi    +++|*         SETUP THE PRINT BUFFER WITH FIRST AND LAST PART OF THE
18340  M01S14726.dsdi    +++|*         MESSAGE IN UNPACKED FORMAT.
18341  M01S14727.dsdi    +++|
18342  M01S14728.dsdi    +++| FPW20.4  SB6    B6-B1       ADJUST POINTER TO FWA-1
18343  M01S14729.dsdi    +++| FPW20.5  SX3    B5-B2       CALCULATE WORDS IN BEGINNING OF MESSAGE
18344  M01S14730.dsdi    +++|          SX1    10
18345  M01S14731.dsdi    +++|          IX3    X1*X3       NUMBER OF CHARACTERS IN FIRST OF MESSAGE
18346  M01S14732.dsdi    +++|          SB7    PRBF+29     SET PRINT STRING ADDRESS
18347  M01S14733.dsdi    +++|          GE     B6,B3,FPW20.6  IF NOT BEGINNING OF BUFFER
18348  M01S14734.dsdi    +++|          SX6    65B         =1R_
18349  M01S14735.dsdi    +++|          SA6    B7
18350  M01S14736.dsdi    +++|          SB7    B7+B1       DESTINATION OF UNPACKED CHARACTERS
18351  M01S14737.dsdi    +++| FPW20.6  SA2    B6+B1       SOURCE OF PACKED CHARACTERS
18352  M01S14738.dsdi    +++|          SB6    X3          NUMBER OF CHARACTERS TO UNPACK
18353  M01S14739.dsdi    +++|          ZR     B6,FPW20.7  IF MESSAGE WORDS CONTIGUOUS IN LAST PART
18354  M01S14740.dsdi    +++|          RJ     UPS         STORE FIRST PART OF MESSAGE
18355  M01S14741.dsdi    +++| FPW20.7  ZR     B2,FPWX     IF MESSAGE WORDS CONTIGUOUS IN FIRST PART
18356  M01S14742.dsdi    +++|          SA2    F.TSCR      SOURCE OF PACKED CHARACTERS
18357  M01S14743.dsdi    +++|          SX3    B2          CALCULATE NUMBER OF CHARACTERS IN LAST PART
18358  M01S14744.dsdi    +++|          SA2    X2
18359  M01S14745.dsdi    +++|          IX3    X1*X3
18360  M01S14746.dsdi    +++|          SB6    X3
18361  M01S14747.dsdi    +++|          RJ     UPS         STORE LAST PART OF MESSAGE
18362  M01S14748.dsdi    +++|          EQ     FPWX        EXIT
18363  M01S14749.dsdi    +++|
18364  M01S14750.dsdi    +++|*         LINE 15 - SPECIAL ENTRY POINTS.
18365  M01S14751.dsdi    +++|
18366  M01S14752.dsdi    +++| FPW21    SA1    CN
18367  M01S14753.dsdi    +++|          SA2    NC
18368  M01S00364.271l716 +++|          SX2    X2+B1
18369  M01S14754.dsdi    +++|          IX1    X2-X1
Line S14755 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
18370  M02S14755.271l716 ---|          NG     X1,FPWX     IF SYSTEM CONTROL POINT
18371  M01S00365.271l716 +++|          ZR     X1,FPWX     IF SYSTEM CONTROL POINT
18372  M01S14756.dsdi    +++|          SA2    =28HSPECIAL ENTRY POINTS      -
18373  M01S14757.dsdi    +++|          SB6    28
18374  M01S14758.dsdi    +++|          RJ     UPS         STORE HEADING
18375  M01S14759.dsdi    +++|          SA1    B2+SEPW     READ ENTRY POINT FLAGS
18376  M01S14760.dsdi    +++|          SB3    FPWCL       SET NUMBER OF ENTRY POINTS
Line S14761 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi63
Seq #  *Modification Id* Act 
----------------------------+
18377  M02S14761.dsdi63  ---|          LX1    59-55       POSITION FIRST ENTRY POINT
18378  M01S00003.dsdi63  +++|          LX1    59-56       POSITION FIRST ENTRY POINT
18379  M01S14762.dsdi    +++| FPW22    PL     X1,FPW23    IF NO SPECIAL ENTRY POINT
18380  M01S14763.dsdi    +++|          SA2    B3+FPWC-1   READ ENTRY POINT NAME
18381  M01S14764.dsdi    +++|          SB6    5
18382  M01S14765.dsdi    +++|          RJ     UPS         STORE NAME
18383  M01S14766.dsdi    +++| FPW23    LX1    1           CHECK NEXT BIT
18384  M01S14767.dsdi    +++|          SB3    B3-B1
18385  M01S14768.dsdi    +++|          NZ     B3,FPW22    IF MORE BITS TO CHECK
18386  M01S14769.dsdi    +++|          JP     FPWX        EXIT
18387  M01S14770.dsdi    +++|
18388  M01S14771.dsdi    +++| FPWA     BSS    0           LINE PROCESSOR JUMP TABLE
18389  M01S14772.dsdi    +++|          LOC    0
18390  M01S14773.dsdi    +++|+         JP     FPW1
18391  M01S14774.dsdi    +++|+         JP     FPW2        PROCESS LINE 1
18392  M01S14775.dsdi    +++|+         JP     FPW4        PROCESS LINE 2
18393  M01S14776.dsdi    +++|+         JP     FPW5        PROCESS LINE 3
18394  M01S14777.dsdi    +++|+         JP     FPW6        PROCESS LINE 4
18395  M01S14778.dsdi    +++|+         JP     FPW7        PROCESS LINE 5
18396  M01S14779.dsdi    +++|+         JP     FPW8        PROCESS LINE 6
18397  M01S14780.dsdi    +++|+         JP     FPWX
18398  M01S14781.dsdi    +++|+         JP     FPW12
18399  M01S14782.dsdi    +++|+         JP     FPW13
18400  M01S14783.dsdi    +++|+         JP     FPWX
18401  M01S14784.dsdi    +++|+         JP     FPW14
18402  M01S14785.dsdi    +++|+         JP     FPWX
18403  M01S14786.dsdi    +++|+         JP     FPW20
18404  M01S14787.dsdi    +++|+         JP     FPWX
18405  M01S14788.dsdi    +++|+         JP     FPW21
18406  M01S14789.dsdi    +++|+         JP     FPWX
18407  M01S14790.dsdi    +++|          LOC    *O
Line S14791 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18408  M02S14791.dsdi71  ---|
Line S14792 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18409  M02S14792.dsdi71  ---| FPWD     DATA   10H   IXW BA
Line S14793 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18410  M02S14793.dsdi71  ---| FPX      SPACE  4,15
18411  M01S00223.dsdi71  +++| FPX      SPACE  4,20
18412  M01S14794.dsdi    +++|**        FPX - FIND AND PACK EXCHANGE PACKAGE.
18413  M01S14795.dsdi    +++|*
18414  M01S14796.dsdi    +++|*         ENTRY  (X2) = 0, IF REQUEST FOR FIRST CPU EXCHANGE PACKAGE.
18415  M01S14797.dsdi    +++|*                     = ADDRESS OF THE ADDRESS OF THE DIRECTORY TABLE
18416  M01S14798.dsdi    +++|*                       ENTRY FOR THE EXCHANGE PACKAGE FOR CPU1.
18417  M01S14799.dsdi    +++|*
18418  M01S14800.dsdi    +++|*         EXIT   (X1) = 0, IF CPU1 NOT PRESENT OR NOT IN C170 MODE.
18419  M01S14801.dsdi    +++|*                     = ADDRESS OF THE ADDRESS OF THE DIRECTORY TABLE
18420  M01S14802.dsdi    +++|*                       ENTRY FOR THE EXCHANGE PACKAGE FOR CPU1.
18421  M01S14803.dsdi    +++|*                EXCHANGE PACKAGE PACKED AT *BUF*.
18422  M01S14804.dsdi    +++|*                TO *ERR15* IF C170 STATE XP NOT FOUND FOR CPU0.
18423  M01S14805.dsdi    +++|*
Line S14806 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18424  M02S14806.dsdi67  ---|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
Line S14807 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18425  M02S14807.dsdi67  ---|*                A - 1, 2, 3, 6, 7.
18426  M01S00194.dsdi67  +++|*         USES   X - 1, 2, 3, 4, 6, 7.
18427  M01S00195.dsdi67  +++|*                A - 0, 1, 2, 3, 4, 6, 7.
18428  M01S14808.dsdi    +++|*                B - 2, 3.
18429  M01S14809.dsdi    +++|*
Line S14810 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18430  M02S14810.dsdi67  ---|*         CALLS  PCM.
18431  M01S00196.dsdi67  +++|*         CALLS  FPR, PCM.
18432  M01S14811.dsdi    +++|*
Line S14812 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18433  M02S14812.dsdi67  ---|*         MACROS GETCM, MOVE, SEARCH.
18434  M01S00197.dsdi67  +++|*         MACROS GETCM, MOVE.
18435  M01S14813.dsdi    +++|
18436  M01S14814.dsdi    +++|
18437  M01S14815.dsdi    +++| FPX      SUBR               ENTRY/EXIT
Line S14816 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18438  M02S14816.dsdi67  ---|          SX1    3RPXP
Line S14817 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18439  M02S14817.dsdi67  ---|          MX0    18
Line S14818 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18440  M02S14818.dsdi67  ---|          LX1    -18
18441  M01S14819.dsdi    +++|          BX6    X2
18442  M01S14820.dsdi    +++|          SA6    FPXA        SAVE CPU1(800)  ON/OFF
Line S14821 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18443  M02S14821.dsdi67  ---|          ZR     X2,FPX0     IF FIRST RECORD
Line S14822 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18444  M02S14822.dsdi67  ---|          SA2    X2
Line S14823 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18445  M02S14823.dsdi67  ---|          SA0    BUF+20B
Line S14824 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18446  M02S14824.dsdi67  ---|          SX6    A0
Line S14825 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18447  M02S14825.dsdi67  ---|          SA6    FPXB
Line S14826 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18448  M02S14826.dsdi67  ---|          JP     FPX0.1      PROCESS SECOND EXCHANGE PACKAGE
Line S14827 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18449  M02S14827.dsdi67  ---|
Line S14828 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18450  M02S14828.dsdi67  ---| FPX0     SEARCH TDIR,X1,X0
18451  M01S00198.dsdi67  +++|          SX6    B0          DO NOT DISPLAY RADIAL MCI
Line S00199 Modification History
M01 (Added by) dsdi67
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
18452  M02S00199.271l739 ---|          SA1    =3LPXP
18453  M01S00349.271l739 +++|          SA1    .PXP
18454  M01S00200.dsdi67  +++|          RJ     FPR         FIND PROCESSOR RECORD
18455  M01S14829.dsdi    +++|          ZR     X2,ERR15    IF PROCESSOR EXCHANGE PACKAGE NOT FOUND
Line S14830 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18456  M02S14830.dsdi67  ---|          SA3    =3LPXP      RECORD ID
Line S14831 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18457  M02S14831.dsdi67  ---|          SB7    C.TDIR
Line S14832 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18458  M02S14832.dsdi67  ---|          SB3    FPXA
Line S14833 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18459  M02S14833.dsdi67  ---|          RJ     CNR         CHECK NEXT RECORD
Line S14834 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18460  M02S14834.dsdi67  ---|          SA0    BUF
Line S14835 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18461  M02S14835.dsdi67  ---|          SX6    A0
Line S14836 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18462  M02S14836.dsdi67  ---|          SA6    FPXB
Line S14837 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18463  M02S14837.dsdi67  ---| FPX0.1   SA2    A2+B1
Line S14838 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18464  M02S14838.dsdi67  ---|          BX6    X2
Line S14839 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
18465  M02S14839.dsdi67  ---|          SA6    RI
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  M01S14840.dsdi    +++|          SX3    B0
18476  M01S14841.dsdi    +++|          RJ     PCM         POSITION FOR READ
18477  M01S14842.dsdi    +++|          SA4    FPXB
18478  M01S14843.dsdi    +++|          SA0    X4
18479  M01S14844.dsdi    +++|          GETCM  A0,33       READ CYBER 170-8X5 EXCHANGE PACKAGE
18480  M01S14845.dsdi    +++|          SA1    A0+B1
18481  M01S14846.dsdi    +++|          AX1    -4
18482  M01S14847.dsdi    +++|          SX1    X1-1
18483  M01S14848.dsdi    +++|          ZR     X1,FPX1     IF C170 VMID
Line S14849 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
18484  M02S14849.271l739 ---|          SA1    MI          SET FOR CM DUMP
Line S14850 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
18485  M02S14850.271l739 ---|          SA3    S2JPS       CYBER 170-8X5 JOB STATE POINTER
Line S14851 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
18486  M02S14851.271l739 ---|          BX6    X1
Line S14852 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
18487  M02S14852.271l739 ---|          AX3    3
Line S14853 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
18488  M02S14853.271l739 ---|          SA6    RI
Line S14854 Modification History
M01 (Added by) dsdi
M02 (Updated by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
18489  M02S14854.271l739 ---|          RJ     PCM         POSITION TO JOB EXCHANGE PACKAGE IN EI
18490  M01S00350.271l739 +++|          SA3    S2JPS
18491  M01S00351.271l739 +++|          RJ     CEA         POSITION TO JOB EXCHANGE PACKAGE IN *EI*
18492  M01S14855.dsdi    +++|          SA4    FPXB
18493  M01S14856.dsdi    +++|          SA0    X4
18494  M01S14857.dsdi    +++|          GETCM  A0,33       READ JOB EXCHANGE PACKAGE
18495  M01S14858.dsdi    +++|          SA1    A0+B1
18496  M01S14859.dsdi    +++|          AX1    -4
18497  M01S14860.dsdi    +++|          SX1    X1-1
18498  M01S14861.dsdi    +++|          ZR     X1,FPX1     IF C170 VMID
18499  M01S14862.dsdi    +++|          SA1    FPXB
18500  M01S14863.dsdi    +++|          SX1    X1-BUF-20B
18501  M01S14864.dsdi    +++|          NZ     X1,ERR15    IF CPU0 NOT C170 VMID
18502  M01S14865.dsdi    +++|          EQ     FPXX        CPU1 NOT C170 VMID
18503  M01S14866.dsdi    +++|
18504  M01S14867.dsdi    +++| FPX1     MOVE   5,A0+4,A0+1
18505  M01S14868.dsdi    +++|          SA1    A0+3
18506  M01S14869.dsdi    +++|          SA2    A0+B1
18507  M01S14870.dsdi    +++|          BX6    X1
18508  M01S14871.dsdi    +++|          LX7    X2
18509  M01S14872.dsdi    +++|          SA6    A0+6        STORE MA
18510  M01S14873.dsdi    +++|          AX7    32-12
18511  M01S14874.dsdi    +++|          SA7    A1          STORE MODE
18512  M01S14875.dsdi    +++|          SA1    A2-B1       CHANGE P TO A WORD ADDRESS
18513  M01S14876.dsdi    +++|          MX4    -24
18514  M01S14877.dsdi    +++|          BX2    -X4*X2      EXTRACT RA
18515  M01S14878.dsdi    +++|          AX1    3
18516  M01S14879.dsdi    +++|          IX6    X1-X2       FORM RELATIVE P
18517  M01S14880.dsdi    +++|          SA6    A1
18518  M01S14881.dsdi    +++|          SB2    B0
18519  M01S14882.dsdi    +++|          MX6    0
18520  M01S14883.dsdi    +++|          SA6    A0+7
18521  M01S14884.dsdi    +++|          SA6    A0+17
18522  M01S14885.dsdi    +++|          MX3    -18
18523  M01S14886.dsdi    +++| FPX2     SA1    A0+B2       FORM UPPER 10 WORDS OF XP
18524  M01S14887.dsdi    +++|          SA2    A1+9        GET A-REGISTER
18525  M01S14888.dsdi    +++|          BX6    -X4*X1
18526  M01S14889.dsdi    +++|          BX7    -X3*X2
18527  M01S14890.dsdi    +++|          SA2    A2+8        GET B-REGISTER
18528  M01S14891.dsdi    +++|          LX6    18
18529  M01S14892.dsdi    +++|          BX6    X6+X7
18530  M01S14893.dsdi    +++|          BX7    -X3*X2
18531  M01S14894.dsdi    +++|          LX6    18
18532  M01S14895.dsdi    +++|          BX6    X6+X7
18533  M01S14896.dsdi    +++|          SA6    A1          STORE EXCHANGE PACKAGE WORD
18534  M01S14897.dsdi    +++|          SB2    B2+B1
18535  M01S14898.dsdi    +++|          SB3    10B
18536  M01S14899.dsdi    +++|          NE     B3,B2,FPX2  IF MORE TO PACK
18537  M01S14900.dsdi    +++|          MOVE   10B,A0+25,A0+10B  MOVE X-REGISTERS
18538  M01S14901.dsdi    +++|          SA1    FPXA        GET CPU1(800) ON/OFF
18539  M01S14902.dsdi    +++|          EQ     FPXX        RETURN
18540  M01S14903.dsdi    +++|
18541  M01S14904.dsdi    +++| FPXA     CON    0           POINTER TO CPU1 EXCHANGE PACKAGE
18542  M01S14905.dsdi    +++| FPXB     CON    0           BUFFER ADDRESS POINTER
18543  M01S14906.dsdi    +++| FRV      SPACE  4,10
18544  M01S14907.dsdi    +++|**        FRV - FETCH REGISTER VALUE.
18545  M01S14908.dsdi    +++|*
18546  M01S14909.dsdi    +++|*         ENTRY  (X1) = SVA OF REGISTER.
18547  M01S14910.dsdi    +++|*
18548  M01S14911.dsdi    +++|*         EXIT   (X6) = 16/0, 12/SEG, 32/BYTE OFFSET.
18549  M01S14912.dsdi    +++|*                (X2) = 0, IF PAGE FOUND.
18550  M01S14913.dsdi    +++|*
18551  M01S14914.dsdi    +++|*         USES   X - 2, 5, 6.
18552  M01S14915.dsdi    +++|*
18553  M01S14916.dsdi    +++|*         CALLS  ISM, NXB, PSM.
18554  M01S14917.dsdi    +++|
18555  M01S14918.dsdi    +++|
18556  M01S14919.dsdi    +++| FRV      SUBR               ENTRY/EXIT
18557  M01S14920.dsdi    +++|          BX6    X1
18558  M01S14921.dsdi    +++|          RJ     PVM         POSITION VIRTUAL MEMORY
18559  M01S14922.dsdi    +++|          NZ     X2,FRVX     IF PAGE NOT FOUND
18560  M01S14923.dsdi    +++|          RJ     NXB
18561  M01S14924.dsdi    +++|          BX5    X1          EXTRACT SEGMENT NUMBER
18562  M01S14925.dsdi    +++|          RJ     NXB
18563  M01S14926.dsdi    +++|          LX5    16
18564  M01S14927.dsdi    +++|          BX5    X5+X1
18565  M01S14928.dsdi    +++|          RJ     NXB
18566  M01S14929.dsdi    +++|          LX5    16
18567  M01S14930.dsdi    +++|          BX6    X5+X1
18568  M01S14931.dsdi    +++|          SX2    0
18569  M01S14932.dsdi    +++|          JP     FRVX        RETURN
18570  M01S14933.dsdi    +++| FSC      SPACE  4,11
18571  M01S14934.dsdi    +++|**        FSC - FORMAT STATUS/CONTROL REGISTER CONTENTS.
18572  M01S14935.dsdi    +++|*
18573  M01S14936.dsdi    +++|*         ENTRY  X5 = SC16 CHARACTERS STRING ADDRESS.
18574  M01S14937.dsdi    +++|*                B3 = NUMBER OF CHARACTERS.
18575  M01S14938.dsdi    +++|*                A0 = ADDRESS OF 14 CHARACTER DESCRIPTION.
18576  M01S14939.dsdi    +++|*                SCPA = 0 IF SC36 TO BE PROCESSED(CHARACTER STRING
18577  M01S14940.dsdi    +++|*                       WILL BE FOUND AT X5+ 100).
18578  M01S14941.dsdi    +++|*
18579  M01S14942.dsdi    +++|*         USES   ALL REGISTERS.
18580  M01S14943.dsdi    +++|*
18581  M01S14944.dsdi    +++|*         CALLS  MVE=,SSB,UPS,WOF.
18582  M01S14945.dsdi    +++|
18583  M01S14946.dsdi    +++|
18584  M01S14947.dsdi    +++| FSC      SUBR
18585  M01S14948.dsdi    +++|          RJ     SSB         CLEAR PRINT STRING
18586  M01S14949.dsdi    +++|          SB2    1
18587  M01S14950.dsdi    +++|          SB7    PRBF+15
18588  M01S14951.dsdi    +++| FSC1     SA2    A0+
18589  M01S14952.dsdi    +++|          SB6    14
18590  M01S14953.dsdi    +++|          RJ     UPS
18591  M01S14954.dsdi    +++|          SB7    B7+2        SPACE TWICE
18592  M01S14955.dsdi    +++|          MOVE   B3,X5,B7
18593  M01S14956.dsdi    +++|          ZR     B2,FSC2     IF DONE WITH SC36
18594  M01S14957.dsdi    +++|          SA4    /DIRECT/SCPA
18595  M01S14958.dsdi    +++|          NZ     X4,FSC2     IF SC36 RECORD NOT FOUND
18596  M01S14959.dsdi    +++|          SB2    0
18597  M01S14960.dsdi    +++|          SX5    X5+100      SET SC36 CHARACTER STRING ADDRESS
18598  M01S14961.dsdi    +++|          SB7    PRBF+65
18599  M01S14962.dsdi    +++|          JP     FSC1        CONTINUE
18600  M01S14963.dsdi    +++|
18601  M01S14964.dsdi    +++| FSC2     PRINT  CCCH,116
18602  M01S14965.dsdi    +++|          JP     FSCX        EXIT
Line S14966 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi74
Seq #  *Modification Id* Act 
----------------------------+
18603  M02S14966.dsdi74  ---| FTR      SPACE  4,11
18604  M01S00051.dsdi74  +++| FTR      SPACE  4,15
18605  M01S14967.dsdi    +++|**        FTR - FORMAT TWO PP COMMUNICATION REGISTERS.
18606  M01S14968.dsdi    +++|*
18607  M01S14969.dsdi    +++|*         ENTRY  A5 = ADDRESS OF FIRST REGISTER WORD.
18608  M01S14970.dsdi    +++|*                X5 = FIRST REGISTER WORD.
Line S14971 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi74
Seq #  *Modification Id* Act 
----------------------------+
18609  M02S14971.dsdi74  ---|*                PPPA = CURRENT PPU NUMBER.
18610  M01S00052.dsdi74  +++|*                FW = CURRENT PPU NUMBER.
18611  M01S14972.dsdi    +++|*
18612  M01S14973.dsdi    +++|*         EXIT   A5 IS ADVANCED BY 20B.
18613  M01S14974.dsdi    +++|*
Line S14975 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi74
Seq #  *Modification Id* Act 
----------------------------+
18614  M02S14975.dsdi74  ---|*         USES   ALL REGISTERS.
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  M01S14976.dsdi    +++|*
Line S14977 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi74
Seq #  *Modification Id* Act 
----------------------------+
18619  M02S14977.dsdi74  ---|*         CALLS  FPL,WOF.
18620  M01S00056.dsdi74  +++|*         CALLS  FPL.
18621  M01S00057.dsdi74  +++|*
18622  M01S00058.dsdi74  +++|*         MACROS PRINT.
18623  M01S14978.dsdi    +++|
18624  M01S14979.dsdi    +++|
18625  M01S14980.dsdi    +++| FTR      SUBR
18626  M01S14981.dsdi    +++|          SX6    0
18627  M01S14982.dsdi    +++|          SA6    FTRA        CLEAR LINE INDEX
18628  M01S14983.dsdi    +++|          PRINT  (=2C  )
Line S14984 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi74
Seq #  *Modification Id* Act 
----------------------------+
18629  M02S14984.dsdi74  ---| FTR1     SA1    /DIRECT/PPPA
18630  M01S00059.dsdi74  +++| FTR1     SA1    FW
18631  M01S14985.dsdi    +++|          SA2    FTRA
18632  M01S14986.dsdi    +++|          SB2    X1          SET PPU NUMBER
18633  M01S14987.dsdi    +++|          SB4    X2          SET LINE INDEX
18634  M01S14988.dsdi    +++|          SB7    PRBF+7      PRINT STRING ADDRESS
18635  M01S14989.dsdi    +++|          RJ     FPL         FORMAT PPU REGISTER WORD
18636  M01S14990.dsdi    +++|          SB2    B2+1        ADVANCE PPU NUMBER
18637  M01S14991.dsdi    +++|          SA5    A5+10B      READ WORD FROM NEXT AREA
18638  M01S14992.dsdi    +++|          SA1    FTRB
18639  M01S14993.dsdi    +++|          NZ     X1,FTR2     IF ONLY 1 AREA TO PRINT
18640  M01S14994.dsdi    +++|          SB7    PRBF+65
18641  M01S14995.dsdi    +++|          RJ     FPL         FORMAT REGISTER WORD
18642  M01S14996.dsdi    +++| FTR2     PRINT  CCCH,B7-CCCH
18643  M01S14997.dsdi    +++|          SA5    A5-7        READ NEXT WORD OF FIRST REGISTER
18644  M01S14998.dsdi    +++|          SA1    FTRA
18645  M01S14999.dsdi    +++|          SX6    X1+B1
18646  M01S15000.dsdi    +++|          SA6    A1          ADVANCE LINE INDEX
18647  M01S15001.dsdi    +++|          SX6    X6-10B
18648  M01S15002.dsdi    +++|          NG     X6,FTR1     IF MORE LINES TO FORMAT
18649  M01S15003.dsdi    +++|          SA5    A5+10B      UPDATE POINTER
18650  M01S15004.dsdi    +++|          SX6    B0+         CLEAR 1 AREA FLAG
18651  M01S15005.dsdi    +++|          SA6    FTRB
18652  M01S15006.dsdi    +++|          JP     FTRX        EXIT
18653  M01S15007.dsdi    +++|
18654  M01S15008.dsdi    +++| FTRA     BSS    1           LINE INDEX
18655  M01S15009.dsdi    +++| FTRB     CON    0           PRINT ONLY 1 AREA FLAG
18656  M01S15010.dsdi    +++| FXA      SPACE  4,10
18657  M01S15011.dsdi    +++|**        FXA - FORMAT EXCHANGE AREA.
18658  M01S15012.dsdi    +++|*
18659  M01S15013.dsdi    +++|*         ENTRY  (X1)= SVA OF EXCHANGE PACKAGE.
18660  M01S15014.dsdi    +++|*                (X6)= NUMBER OF WORDS TO FORMAT.
18661  M01S15015.dsdi    +++|*
18662  M01S15016.dsdi    +++|*         EXIT   DESIRED AMOUNT OF EXCHANGE AREA PRINTED.
18663  M01S15017.dsdi    +++|*
18664  M01S15018.dsdi    +++|*         USES   A - 0, 1, 2, 3, 5, 6, 7.
18665  M01S15019.dsdi    +++|*                X - 1, 2, 3, 5, 6, 7.
18666  M01S15020.dsdi    +++|*                B - 6, 7.
18667  M01S15021.dsdi    +++|*
Line S15022 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
18668  M02S15022.dsdi62  ---|*         CALLS  CDD, HTS, NXB, RMB, SSB, UPS.
18669  M01S00036.dsdi62  +++|*         CALLS  CDD, HTS, RMB, SSB, UPS.
18670  M01S15023.dsdi    +++|*
18671  M01S15024.dsdi    +++|*         MACROS PRINT.
18672  M01S15025.dsdi    +++|
18673  M01S15026.dsdi    +++|
18674  M01S15027.dsdi    +++| FXA      SUBR               ENTRY/EXIT
18675  M01S15028.dsdi    +++|          SA6    FXAA+1      SAVE TERMINATING CONDITION
18676  M01S15029.dsdi    +++|          SX6    51          READ FULL BUFFER
18677  M01S15030.dsdi    +++|          RJ     RMB         READ MEMORY BYTES
18678  M01S15031.dsdi    +++|          SX7    0
18679  M01S15032.dsdi    +++|          SA7    FXAA
18680  M01S15033.dsdi    +++|          SA1    BUF+8       FETCH FRAME DESCRIPTOR
18681  M01S15034.dsdi    +++|          SX2    0#F0
18682  M01S15035.dsdi    +++|          SA3    FXAD        DESCRIPTOR FOR FULL PACKAGE
18683  M01S15036.dsdi    +++|          BX6    X3
18684  M01S15037.dsdi    +++|          BX7    X1*X2       EXTRACT POSSIBLE ENDING A-REGISTER
18685  M01S15038.dsdi    +++|          SA6    FXAA+2
18686  M01S15039.dsdi    +++|          ZR     X7,FXA1     IF EXCHANGE PACKAGE
18687  M01S15040.dsdi    +++|          LX7    18-4
18688  M01S15041.dsdi    +++|          IX3    X3+X7
18689  M01S15042.dsdi    +++|          LX2    4
18690  M01S15043.dsdi    +++|          BX6    X1*X2       EXTRACT STARTING X REGISTER
18691  M01S15044.dsdi    +++|          LX6    12-8
18692  M01S15045.dsdi    +++|          IX3    X6+X3
18693  M01S15046.dsdi    +++|          LX2    -8
18694  M01S15047.dsdi    +++|          BX6    X1*X2       EXTRACT ENDING X REGISTER
18695  M01S15048.dsdi    +++|          LX6    6-0
18696  M01S15049.dsdi    +++|          IX6    X6+X3
18697  M01S15050.dsdi    +++|          LX6    59-23
18698  M01S15051.dsdi    +++|          SA6    A6          SAVE STACK FRAME DESCRIPTOR
18699  M01S15052.dsdi    +++| FXA1     RJ     SSB         SPACE FILL BUFFER
18700  M01S15053.dsdi    +++|          SA1    FXAA        REGISTER TO DUMP
18701  M01S15054.dsdi    +++|          SA5    FXAB+X1     REGISTER DESCRIPTOR
18702  M01S15055.dsdi    +++|          SX2    X1
18703  M01S15056.dsdi    +++|          LX2    2
18704  M01S15057.dsdi    +++|          SA0    BUF+X2      POINTER TO REGISTER CONTENT
18705  M01S15058.dsdi    +++|          RJ     CDD         GET DECIMAL REGISTER NUMBER
18706  M01S15059.dsdi    +++|          BX2    X6
18707  M01S15060.dsdi    +++|          LX2    59-11
18708  M01S15061.dsdi    +++|          SB7    PRBF
18709  M01S15062.dsdi    +++|          SB6    2
18710  M01S15063.dsdi    +++|          RJ     UPS         PLACE REGISTER NUMBER IN OUTPUT LINE
18711  M01S15064.dsdi    +++|          MX2    -17
18712  M01S15065.dsdi    +++|          BX6    -X2*X5      EXTRACT MESSAGE ADDRESS
18713  M01S15066.dsdi    +++|          SA6    FXAC
18714  M01S15067.dsdi    +++|          AX5    17
18715  M01S15068.dsdi    +++|          BX7    -X2*X5      EXTRACT 2 CHARACTER FIELD
18716  M01S15069.dsdi    +++|          SA7    A6+B1
18717  M01S15070.dsdi    +++|          SB7    B7+2
18718  M01S15071.dsdi    +++|          SA2    X6          FETCH MESSAGE
18719  M01S15072.dsdi    +++|          NZ     X6,FXA3     IF MESSAGE SPECIFIED
18720  M01S15073.dsdi    +++|          BX2    X7          2 CHARACTER FIELD
18721  M01S15074.dsdi    +++|          LX2    59-11       LEFT JUSTIFY
18722  M01S15075.dsdi    +++|          SB7    PRBF+11
18723  M01S15076.dsdi    +++|          SB6    B1+B1
18724  M01S15077.dsdi    +++|          SX5    B6+B6
18725  M01S15078.dsdi    +++|          RJ     UPS         DISPLAY REGISTER NAME
18726  M01S15079.dsdi    +++| FXA2     SB7    B7+2        NEW POSITION IN OUTPUT LINE
18727  M01S15080.dsdi    +++|          SA1    A0
18728  M01S15081.dsdi    +++|          LX1    59-15       LEFT JUSTIFY 16 BIT DATA
18729  M01S15082.dsdi    +++|          SB6    4
18730  M01S15083.dsdi    +++|          RJ     HTS         DISPLAY 4 HEX DIGITS
18731  M01S15084.dsdi    +++|          SA0    A0+1
18732  M01S15085.dsdi    +++|          SX5    X5-1
18733  M01S15086.dsdi    +++|          NZ     X5,FXA2     IF MORE 16 BIT CHUNKS TO DISPLAY
18734  M01S15087.dsdi    +++|          EQ     FXA4        PRINT LINE
18735  M01S15088.dsdi    +++|
18736  M01S15089.dsdi    +++| FXA3     SB6    9
18737  M01S15090.dsdi    +++|          RJ     UPS         UNPACK MESSAGE TO LINE
18738  M01S15091.dsdi    +++|          SA2    FXAC+1      GET REGISTER NAME
18739  M01S15092.dsdi    +++|          SB6    B1+B1
18740  M01S15093.dsdi    +++|          SX5    B6+B6
18741  M01S15094.dsdi    +++|          ZR     X2,FXA2     IF NO REGISTER NAME
18742  M01S15095.dsdi    +++|          SB7    PRBF+25
18743  M01S15096.dsdi    +++|          LX2    59-11
18744  M01S15097.dsdi    +++|          RJ     UPS         PLACE REGISTER NAME IN LINE
18745  M01S15098.dsdi    +++|          SA1    A0
18746  M01S15099.dsdi    +++|          LX1    59-15
18747  M01S15100.dsdi    +++|          SB7    PRBF+15
18748  M01S15101.dsdi    +++|          SB6    4
18749  M01S15102.dsdi    +++|          RJ     HTS         DISPLAY 4 HEX DIGITS
18750  M01S15103.dsdi    +++|          SA5    A0+B1
18751  M01S15104.dsdi    +++|          LX5    16
18752  M01S15105.dsdi    +++|          SA1    A0+2
18753  M01S15106.dsdi    +++|          BX5    X5+X1
18754  M01S15107.dsdi    +++|          LX5    16
18755  M01S15108.dsdi    +++|          SA1    A0+3
18756  M01S15109.dsdi    +++|          BX1    X5+X1
18757  M01S15110.dsdi    +++|          LX1    59-47
18758  M01S15111.dsdi    +++|          SB7    PRBF+29
18759  M01S15112.dsdi    +++|          SB6    1
18760  M01S15113.dsdi    +++|          RJ     HTS         DISPLAY RING NUMBER
18761  M01S15114.dsdi    +++|          SB7    B7+B1
18762  M01S15115.dsdi    +++|          SB6    3
18763  M01S15116.dsdi    +++|          RJ     HTS         DISPLAY SEGMENT NUMBER
18764  M01S15117.dsdi    +++|          SB7    B7+2
18765  M01S15118.dsdi    +++|          SB6    8
18766  M01S15119.dsdi    +++|          RJ     HTS         DISPLAY ADDRESS DATA
18767  M01S15120.dsdi    +++| FXA4     PRINT  CCCH,B7-CCCH+1
18768  M01S15121.dsdi    +++|          SA1    FXAA
18769  M01S15122.dsdi    +++|          SA2    A1+B1
18770  M01S15123.dsdi    +++|          SX6    X1+B1       INCREMENT REGISTER NUMBER
18771  M01S15124.dsdi    +++|          SA6    A1
18772  M01S15125.dsdi    +++|          IX2    X1-X2
18773  M01S15126.dsdi    +++|          ZR     X2,FXAX     IF EXCHANGE PACKAGE DUMP FINISHED
18774  M01S15127.dsdi    +++|          MX2    -6
18775  M01S15128.dsdi    +++|          SA3    A2+B1
18776  M01S15129.dsdi    +++|          BX6    X3
18777  M01S15130.dsdi    +++|          LX6    6
18778  M01S15131.dsdi    +++|          BX3    -X2*X6      ENDING REGISTER NUMBER
18779  M01S15132.dsdi    +++|          IX1    X1-X3
18780  M01S15133.dsdi    +++|          NZ     X1,FXA1     IF MORE REGISTERS TO DUMP
18781  M01S15134.dsdi    +++|          LX6    6
18782  M01S15135.dsdi    +++|          SA6    A3          REPLACE DESCRIPTOR
18783  M01S15136.dsdi    +++|          BX6    -X2*X6
18784  M01S15137.dsdi    +++|          SA6    A1          SET NEW STARTING REGISTER
18785  M01S15138.dsdi    +++|          ZR     X6,FXAX     IF END OF DUMP
18786  M01S15139.dsdi    +++|          PRINT  (=2C  )
18787  M01S15140.dsdi    +++|          EQ     FXA1        DISPLAY NEXT REGISTER
18788  M01S15141.dsdi    +++|
18789  M01S15142.dsdi    +++|
18790  M01S15143.dsdi    +++| FXAA     CON    0           REGISTER NUMBER
18791  M01S15144.dsdi    +++|          CON    0           LAST REGISTER NUMBER
18792  M01S15145.dsdi    +++|          CON    0           DUMP DESCRIPTOR
18793  M01S15146.dsdi    +++|
18794  M01S15147.dsdi    +++| FXAB     BSS    0           REGISTER DESCRIPTORS
18795  M01S15148.dsdi    +++| P        RFDSC  00,(LKEY     )
18796  M01S15149.dsdi    +++| A0       RFDSC  00,(VMID/UVMI)
18797  M01S15150.dsdi    +++| A1       RFDSC  01,(FLGS/TRAP)
18798  M01S15151.dsdi    +++| A2       RFDSC  02,(USER MASK)
18799  M01S15152.dsdi    +++| A3       RFDSC  03,( MTR MASK)
18800  M01S15153.dsdi    +++| A4       RFDSC  04,(USER COND)
18801  M01S15154.dsdi    +++| A5       RFDSC  05,( MTR COND)
18802  M01S15155.dsdi    +++| A6       RFDSC  06,(KYPC/LPID)
18803  M01S15156.dsdi    +++| A7       RFDSC  07,(KYPT MASK)
18804  M01S15157.dsdi    +++| A8       RFDSC  08,(KYPT CODE)
18805  M01S15158.dsdi    +++| A9       RFDSC  09,(         )
18806  M01S15159.dsdi    +++| AA       RFDSC  0A,(INTV TIMR)
18807  M01S15160.dsdi    +++| AB       RFDSC  0B,(         )
18808  M01S15161.dsdi    +++| AC       RFDSC  0C,(BASE CONS)
18809  M01S15162.dsdi    +++| AD       RFDSC  0D,(         )
18810  M01S15163.dsdi    +++| AE       RFDSC  0E,(MODL FLGS)
18811  M01S15164.dsdi    +++| AF       RFDSC  0F,(SEGT LENG)
18812  M01S15165.dsdi    +++| X0       RFDSC  10
18813  M01S15166.dsdi    +++| X1       RFDSC  11
18814  M01S15167.dsdi    +++| X2       RFDSC  12
18815  M01S15168.dsdi    +++| X3       RFDSC  13
18816  M01S15169.dsdi    +++| X4       RFDSC  14
18817  M01S15170.dsdi    +++| X5       RFDSC  15
18818  M01S15171.dsdi    +++| X6       RFDSC  16
18819  M01S15172.dsdi    +++| X7       RFDSC  17
18820  M01S15173.dsdi    +++| X8       RFDSC  18
18821  M01S15174.dsdi    +++| X9       RFDSC  19
18822  M01S15175.dsdi    +++| XA       RFDSC  1A
18823  M01S15176.dsdi    +++| XB       RFDSC  1B
18824  M01S15177.dsdi    +++| XC       RFDSC  1C
18825  M01S15178.dsdi    +++| XD       RFDSC  1D
18826  M01S15179.dsdi    +++| XE       RFDSC  1E
18827  M01S15180.dsdi    +++| XF       RFDSC  1F
18828  M01S15181.dsdi    +++|          RFDSC  20,(TRACE REG)
18829  M01S15182.dsdi    +++| UP       RFDSC  21,(SEGMENT  )
18830  M01S15183.dsdi    +++| TP       RFDSC  22,(TBL ADDR )
18831  M01S15184.dsdi    +++| DP       RFDSC  23,(DB I/DB M)
18832  M01S15185.dsdi    +++| R1       RFDSC  24,(MAX RING )
18833  M01S15186.dsdi    +++| R2       RFDSC  25,(         )
18834  M01S15187.dsdi    +++| R3       RFDSC  26,(         )
18835  M01S15188.dsdi    +++| R4       RFDSC  27,(         )
18836  M01S15189.dsdi    +++| R5       RFDSC  28,(         )
18837  M01S15190.dsdi    +++| R6       RFDSC  29,(         )
18838  M01S15191.dsdi    +++| R7       RFDSC  2A,(         )
18839  M01S15192.dsdi    +++| R8       RFDSC  2B,(         )
18840  M01S15193.dsdi    +++| R9       RFDSC  2C,(         )
18841  M01S15194.dsdi    +++| RA       RFDSC  2D,(         )
18842  M01S15195.dsdi    +++| RB       RFDSC  2E,(         )
18843  M01S15196.dsdi    +++| RC       RFDSC  2F,(         )
18844  M01S15197.dsdi    +++| RD       RFDSC  30,(         )
18845  M01S15198.dsdi    +++| RE       RFDSC  31,(         )
18846  M01S15199.dsdi    +++| RF       RFDSC  32,(         )
18847  M01S15200.dsdi    +++|
18848  M01S15201.dsdi    +++| FXAC     CON    0           MESSAGE ADDRESS
18849  M01S15202.dsdi    +++|          CON    0           REGISTER NAME
18850  M01S15203.dsdi    +++|
18851  M01S15204.dsdi    +++| FXAD     VFD    6/16,6/17,6/32,6/33,6/51,6/0,6/1,6/17,6/17,6/0
18852  M01S15205.dsdi    +++| FXC      SPACE  4,15
18853  M01S15206.dsdi    +++|**        FXC - FORMAT EXCHANGE PACKAGE REGISTER ADDRESS CONTENTS.
18854  M01S15207.dsdi    +++|*
18855  M01S15208.dsdi    +++|*         ENTRY  (B2) = ADDRESS OF EXCHANGE PACKAGE REGISTER ADDRESS.
18856  M01S15209.dsdi    +++|*                (X5) = STRING BUFFER ADDRESS FOR CONTENTS.
18857  M01S15210.dsdi    +++|*                (FW) = ADDRESS OF CONTROL POINT AREA.
18858  M01S15211.dsdi    +++|*
18859  M01S15212.dsdi    +++|*         EXIT   REGISTER AND CONTENTS PLACED IN STRING BUFFER.
18860  M01S15213.dsdi    +++|*
18861  M01S15214.dsdi    +++|*         USES   A - 1, 2, 6.
18862  M01S15215.dsdi    +++|*                B - 6, 7.
Line S15216 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18863  M02S15216.dsdi71a ---|*                X - 0, 1, 2, 6, 7.
18864  M01S00034.dsdi71a +++|*         X - 1, 2, 6.
18865  M01S15217.dsdi    +++|*
Line S15218 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18866  M02S15218.dsdi71a ---|*         CALLS  FDW, POM, SDI.
18867  M01S00035.dsdi71a +++|*         CALLS  FDW, GFL, POM, SDI.
18868  M01S15219.dsdi    +++|*
18869  M01S15220.dsdi    +++|*         MACROS GETCM.
18870  M01S15221.dsdi    +++|
18871  M01S15222.dsdi    +++|
18872  M01S15223.dsdi    +++| FXC      SUBR               ENTRY/EXIT
Line S15224 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18873  M02S15224.dsdi71a ---|          SA2    FW          GET FIELD LENGTH AND REFERENCE ADDRESS
Line S15225 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18874  M02S15225.dsdi71a ---|          SA1    F.TCMT
Line S15226 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18875  M02S15226.dsdi71a ---|          IX2    X1+X2
Line S15227 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18876  M02S15227.dsdi71a ---|          MX0    -12
Line S15228 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18877  M02S15228.dsdi71a ---|          SA1    X2+FLSW
Line S15229 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18878  M02S15229.dsdi71a ---|          BX7    -X0*X1
Line S15230 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18879  M02S15230.dsdi71a ---|          AX1    12
Line S15231 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18880  M02S15231.dsdi71a ---|          MX0    -15
Line S15232 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18881  M02S15232.dsdi71a ---|          BX6    -X0*X1
Line S15233 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18882  M02S15233.dsdi71a ---|          LX6    6
18883  M01S00036.dsdi71a +++|          SA1    FW          GET FIELD LENGTH AND REFERENCE ADDRESS
18884  M01S00037.dsdi71a +++|          RJ     GFL
18885  M01S15234.dsdi    +++|          SA6    BA
18886  M01S15235.dsdi    +++|          SA1    B2          CHECK ADDRESS AGAINST FL
Line S15236 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71a
Seq #  *Modification Id* Act 
----------------------------+
18887  M02S15236.dsdi71a ---|          LX7    6
18888  M01S15237.dsdi    +++|          IX2    X1-X7
18889  M01S15238.dsdi    +++|          BX6    X6-X6       CLEAR VALUE
18890  M01S15239.dsdi    +++|          PL     X2,FXC1     IF ADDRESS .GE. FL
18891  M01S15240.dsdi    +++|          RJ     POM         POSITION DUMP FILE
18892  M01S15241.dsdi    +++|          GETCM              READ WORD
18893  M01S15242.dsdi    +++| FXC1     SA2    =4000005B   CONVERT REGISTER ADDRESS CONTENTS
18894  M01S15243.dsdi    +++|          SB7    X5
18895  M01S15244.dsdi    +++|          BX1    X6
18896  M01S15245.dsdi    +++|          RJ     FDW         FORMAT WORD
18897  M01S15246.dsdi    +++|          BX2    X1          SET DATA WORD
18898  M01S15247.dsdi    +++|          SB6    10
18899  M01S15248.dsdi    +++|          RJ     SDI         SET DISPLAY CODE INTERPRETATION
18900  M01S15249.dsdi    +++|          SX6    B0+         CLEAR REFERENCE ADDRESS
18901  M01S15250.dsdi    +++|          SA6    BA
18902  M01S15251.dsdi    +++|          EQ     FXCX        RETURN
Line S15252 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18903  M02S15252.dsdi71  ---| FXW      SPACE  4,14
18904  M01S00224.dsdi71  +++| FXW      SPACE  4,16
18905  M01S15253.dsdi    +++|**        FXW - FORMAT EXCHANGE PACKAGE WORD.
18906  M01S15254.dsdi    +++|*
18907  M01S15255.dsdi    +++|*         ENTRY  X1 = WORD INDEX.
18908  M01S15256.dsdi    +++|*                X5 = WORD.
18909  M01S15257.dsdi    +++|*                A5 = WORD ADDRESS.
18910  M01S15258.dsdi    +++|*                B7 = PRINT STRING ADDRESS.
18911  M01S15259.dsdi    +++|*                   = COMPLEMENT OF PRINT STRING ADDRESS IF CONTENTS
18912  M01S15260.dsdi    +++|*                     OF REGISTER ADDRESSES TO BE DISPLAYED.
18913  M01S15261.dsdi    +++|*
18914  M01S15262.dsdi    +++|*         EXIT   A5 IS ADVANCED.
18915  M01S15263.dsdi    +++|*
Line S15264 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18916  M02S15264.dsdi71  ---|*         SAVES  X - NONE.
Line S15265 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18917  M02S15265.dsdi71  ---|*                B - 1.
Line S15266 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18918  M02S15266.dsdi71  ---|*                A - 0.
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  M01S15267.dsdi    +++|*
Line S15268 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18923  M02S15268.dsdi71  ---|*         CALLS  COD, FDW, FXC, SDI, UPS.
18924  M01S00228.dsdi71  +++|*         CALLS  COD, DOS, FDW, FXC, SDI, UPS.
18925  M01S15269.dsdi    +++|
18926  M01S15270.dsdi    +++|
18927  M01S15271.dsdi    +++| FXW      SUBR
Line S15272 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18928  M02S15272.dsdi71  ---|          BX0    X1          SAVE X1
18929  M01S15273.dsdi    +++|          BX6    X6-X6
18930  M01S15274.dsdi    +++|          PL     B7,FXW1     IF CONTENTS OF ADDRESS NOT TO BE DISPLAYED
18931  M01S15275.dsdi    +++|          SB7    -B7         SET PRINT STRING ADDRESS
18932  M01S15276.dsdi    +++|          SX6    B1          SET DISPLAY CONTENTS FLAG
Line S15277 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18933  M02S15277.dsdi71  ---| FXW1     SA6    FXWH
18934  M01S00229.dsdi71  +++| FXW1     SA6    FXWE
18935  M01S15278.dsdi    +++|          SX2    X1-10B
18936  M01S15279.dsdi    +++|          PL     X2,FXW6     IF X-REGISTER
Line S15280 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18937  M02S15280.dsdi71  ---|
Line S15281 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18938  M02S15281.dsdi71  ---|*         CONVERT CONTROL REGISTER TO DISPLAY CODE.
Line S15282 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18939  M02S15282.dsdi71  ---|
Line S15283 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18940  M02S15283.dsdi71  ---|          MX3    24
Line S15284 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18941  M02S15284.dsdi71  ---|          BX1    X3*X5
Line S15285 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18942  M02S15285.dsdi71  ---|          LX1    24
Line S15286 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18943  M02S15286.dsdi71  ---|          RJ     COD
Line S15287 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18944  M02S15287.dsdi71  ---|          LX6    2*6
Line S15288 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18945  M02S15288.dsdi71  ---|          SA6    FXWB
Line S15289 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18946  M02S15289.dsdi71  ---|
Line S15290 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18947  M02S15290.dsdi71  ---|*         CONVERT A - REGISTER TO DISPLAY CODE.
Line S15291 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18948  M02S15291.dsdi71  ---|
Line S15292 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18949  M02S15292.dsdi71  ---|          MX3    18
Line S15293 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18950  M02S15293.dsdi71  ---|          LX5    24
Line S15294 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18951  M02S15294.dsdi71  ---|          BX1    X3*X5
Line S15295 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18952  M02S15295.dsdi71  ---|          LX1    18
Line S15296 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18953  M02S15296.dsdi71  ---|          BX7    X1
Line S15297 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18954  M02S15297.dsdi71  ---|          SA7    FXWF
Line S15298 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18955  M02S15298.dsdi71  ---|          RJ     COD
Line S15299 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18956  M02S15299.dsdi71  ---|          LX6    4*6
Line S15300 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18957  M02S15300.dsdi71  ---|          SA6    A6+B1
Line S15301 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18958  M02S15301.dsdi71  ---|
Line S15302 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18959  M02S15302.dsdi71  ---|*         CONVERT B - REGISTER TO DISPLAY CODE.
Line S15303 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18960  M02S15303.dsdi71  ---|
Line S15304 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18961  M02S15304.dsdi71  ---|          MX3    18
Line S15305 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18962  M02S15305.dsdi71  ---|          LX5    18
Line S15306 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18963  M02S15306.dsdi71  ---|          BX1    X3*X5
Line S15307 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18964  M02S15307.dsdi71  ---|          LX1    18
Line S15308 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18965  M02S15308.dsdi71  ---|          BX7    X1
Line S15309 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18966  M02S15309.dsdi71  ---|          SA7    FXWG
Line S15310 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18967  M02S15310.dsdi71  ---|          RJ     COD
Line S15311 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18968  M02S15311.dsdi71  ---|          LX6    4*6
Line S15312 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18969  M02S15312.dsdi71  ---|          SA6    A6+B1
Line S15313 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18970  M02S15313.dsdi71  ---|          BX1    X0          RESTORE X1
18971  M01S15314.dsdi    +++|          SB4    B7          SAVE B7
18972  M01S15315.dsdi    +++|          SA2    FXWA+X1     READ REGISTER NAME
18973  M01S15316.dsdi    +++|          SA3    CF          CHECK IF A CYBER 176
18974  M01S15317.dsdi    +++|          NZ     X3,FXW2     IF NOT CYBER 176
18975  M01S15318.dsdi    +++|          LX2    42          READ CYBER 176 REGISTER NAME
18976  M01S15319.dsdi    +++|
Line S15320 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18977  M02S15320.dsdi71  ---|*         SET CONTROL REGISTER NAME.
18978  M01S00230.dsdi71  +++|*         SET REGISTER NAMES.
18979  M01S15321.dsdi    +++|
Line S15322 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18980  M02S15322.dsdi71  ---| FXW2     SB6    3
18981  M01S00231.dsdi71  +++| FXW2     SB6    3           SET CONTROL REGISTER NAME
18982  M01S15323.dsdi    +++|          RJ     UPS
18983  M01S15324.dsdi    +++|          NZ     X3,FXW3     IF NOT A CYBER 176
18984  M01S15325.dsdi    +++|          LX2    18          SHIFT TO NEXT A REGISTER NAME
Line S15326 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18985  M02S15326.dsdi71  ---|
Line S15327 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18986  M02S15327.dsdi71  ---|*         SET A - REGISTER NAME.
Line S15328 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18987  M02S15328.dsdi71  ---|
Line S15329 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18988  M02S15329.dsdi71  ---| FXW3     SB7    B7+11
18989  M01S00232.dsdi71  +++| FXW3     SB7    B7+11       SET A-REGISTER NAME
18990  M01S15330.dsdi    +++|          SB6    2
18991  M01S15331.dsdi    +++|          RJ     UPS
Line S15332 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18992  M02S15332.dsdi71  ---|
Line S15333 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18993  M02S15333.dsdi71  ---|*         SET B - REGISTER NAME.
Line S15334 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18994  M02S15334.dsdi71  ---|
Line S15335 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
18995  M02S15335.dsdi71  ---|          SB7    B7+9
18996  M01S00233.dsdi71  +++|          SB7    B7+9        SET B-REGISTER NAME
18997  M01S15336.dsdi    +++|          SB6    2
18998  M01S15337.dsdi    +++|          RJ     UPS
18999  M01S15338.dsdi    +++|
19000  M01S15339.dsdi    +++|*         SET A AND B-REGISTER CONTENTS NAMES.
19001  M01S15340.dsdi    +++|
Line S15341 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19002  M02S15341.dsdi71  ---|          SA1    FXWH
19003  M01S00234.dsdi71  +++|          SA1    FXWE
19004  M01S15342.dsdi    +++|          ZR     X1,FXW4     IF NOT TO DISPLAY ADDRESS CONTENTS
Line S15343 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19005  M02S15343.dsdi71  ---|          SA2    FXWE
19006  M01S00235.dsdi71  +++|          SA2    FXWB
19007  M01S15344.dsdi    +++|          SB7    B7+9
19008  M01S15345.dsdi    +++|          SB6    5
19009  M01S15346.dsdi    +++|          RJ     UPS         UNPACK TO STRING BUFFER
19010  M01S15347.dsdi    +++|          SB7    B7+37
19011  M01S15348.dsdi    +++|          SB6    5
19012  M01S15349.dsdi    +++|          RJ     UPS         UNPACK TO STRING BUFFER
19013  M01S15350.dsdi    +++|
Line S15351 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19014  M02S15351.dsdi71  ---|*         SET CONTROL REGISTER.
19015  M01S00236.dsdi71  +++|*         SET REGISTERS IN STRING BUFFER.
19016  M01S15352.dsdi    +++|
19017  M01S15353.dsdi    +++| FXW4     SB7    B4+4
Line S15354 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19018  M02S15354.dsdi71  ---|          SA2    FXWB
Line S15355 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19019  M02S15355.dsdi71  ---|          SB6    8
Line S15356 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19020  M02S15356.dsdi71  ---|          RJ     UPS
Line S15357 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19021  M02S15357.dsdi71  ---|
Line S15358 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19022  M02S15358.dsdi71  ---|*         SET A - REGISTER.
Line S15359 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19023  M02S15359.dsdi71  ---|
Line S15360 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19024  M02S15360.dsdi71  ---|          SB7    B7+5
Line S15361 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19025  M02S15361.dsdi71  ---|          SA2    FXWC
Line S15362 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19026  M02S15362.dsdi71  ---|          SB6    6
Line S15363 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19027  M02S15363.dsdi71  ---|          RJ     UPS
Line S15364 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19028  M02S15364.dsdi71  ---|
Line S15365 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19029  M02S15365.dsdi71  ---|*         SET B - REGISTER.
Line S15366 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19030  M02S15366.dsdi71  ---|
Line S15367 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19031  M02S15367.dsdi71  ---|          SB7    B7+5
Line S15368 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19032  M02S15368.dsdi71  ---|          SA2    FXWD
Line S15369 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19033  M02S15369.dsdi71  ---|          SB6    6
Line S15370 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19034  M02S15370.dsdi71  ---|          RJ     UPS
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  M01S15371.dsdi    +++|
19054  M01S15372.dsdi    +++|*         FORMAT A AND B-REGISTER CONTENTS.
19055  M01S15373.dsdi    +++|
Line S15374 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19056  M02S15374.dsdi71  ---|          SA1    FXWH
19057  M01S00255.dsdi71  +++|          SA1    FXWE
19058  M01S15375.dsdi    +++|          ZR     X1,FXW5     IF NOT TO DISPLAY ADDRESS CONTENTS
Line S15376 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19059  M02S15376.dsdi71  ---|          SB2    FXWF        FORMAT A-REGISTER CONTENTS
Line S15377 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19060  M02S15377.dsdi71  ---|          SX5    PRBF+42
19061  M01S00256.dsdi71  +++|          SB2    FXWC
19062  M01S15378.dsdi    +++|          RJ     FXC
Line S15379 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19063  M02S15379.dsdi71  ---|          SB2    FXWG        FORMAT B-REGISTER CONTENTS
19064  M01S00257.dsdi71  +++|          SB2    FXWD
19065  M01S15380.dsdi    +++|          SX5    PRBF+84
19066  M01S15381.dsdi    +++|          RJ     FXC
Line S15382 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19067  M02S15382.dsdi71  ---|          SA1    FXWE        INCREMENT REGISTER NUMBERS
19068  M01S00258.dsdi71  +++|          SA1    FXWB
19069  M01S15383.dsdi    +++|          SA2    =100000000010000B
19070  M01S15384.dsdi    +++|          IX6    X1+X2
19071  M01S15385.dsdi    +++|          SA6    A1
19072  M01S15386.dsdi    +++| FXW5     SA5    A5+B1       READ NEXT WORD
19073  M01S15387.dsdi    +++|          JP     FXWX        EXIT
19074  M01S15388.dsdi    +++|
19075  M01S15389.dsdi    +++|*         FORMAT X - REGISTER.
19076  M01S15390.dsdi    +++|
Line S15391 Modification History
M01 (Added by) dsdi
M02 (Updated by) dsdi71
Seq #  *Modification Id* Act 
----------------------------+
19077  M02S15391.dsdi71  ---| FXW6     SA1    FXWE        RESET REGISTER NUMBERS
Proceed to Part 15