User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:dsdi.017

Deck DSDI Part 017

70 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
26291  M00S21328.dsdi    +++|*
26292  M00S21329.dsdi    +++|*         CALLS  COD.
26293  M00S21330.dsdi    +++|
26294  M00S21331.dsdi    +++|
26295  M00S21332.dsdi    +++| SRA      SUBR
26296  M00S21333.dsdi    +++|          SA6    BA          SET NEW REFERENCE ADDRESS
26297  M00S21334.dsdi    +++|          SA1    =10000000B
26298  M00S21335.dsdi    +++|          IX1    X1+X6       GUARANTEE LEADING ZEROS
26299  M00S21336.dsdi    +++|          RJ     COD         CONVERT TO DISPLAY CODE
26300  M00S21337.dsdi    +++|          MX0    42
26301  M00S21338.dsdi    +++|          SA1    =3R
26302  M00S21339.dsdi    +++|          LX4    6           DISCARD LEADING DIGIT
26303  M00S21340.dsdi    +++|          BX6    X0*X4       EXTRACT RA
26304  M00S21341.dsdi    +++|          BX6    X1+X6       SPACEFILL
26305  M00S21342.dsdi    +++|          LX6    -6
26306  M00S21343.dsdi    +++|          SA6    SBTL        STORE IN SUBTITLE
26307  M00S21344.dsdi    +++|          JP     SRAX        EXIT
26308  M00S21345.dsdi    +++| SRD      SPACE  4,16
26309  M00S21346.dsdi    +++|**        SRD - SUPPRESS REPEATED DATA.
26310  M00S21347.dsdi    +++|*
26311  M00S21348.dsdi    +++|*         ENTRY  B5 = NUMBER OF WORDS TO CHECK, MAXIMUM = 20B.
26312  M00S21349.dsdi    +++|*                X1 = DATA ADDRESS.
26313  M00S21350.dsdi    +++|*                SRDA = MINUS, IF FIRST CALL.
26314  M00S21351.dsdi    +++|*                     = ZERO, PRINT DASHES IF REPEAT SENSED.
26315  M00S21352.dsdi    +++|*                     = NON-ZERO IF DASHES HAVE BEEN PRINTED,
26316  M00S21353.dsdi    +++|*                            EXIT IF REPEAT SENSED.
26317  M00S21354.dsdi    +++|*
26318  M00S21355.dsdi    +++|*         EXIT   X1.NE.0 IF REPEAT SENSED.
26319  M00S21356.dsdi    +++|*
26320  M00S21357.dsdi    +++|*         SAVES  X - NONE.
26321  M00S21358.dsdi    +++|*                B - 1.
26322  M00S21359.dsdi    +++|*                A - 0.
26323  M00S21360.dsdi    +++|*
26324  M00S21361.dsdi    +++|*         CALLS  MVE=,WOF.
26325  M00S21362.dsdi    +++|
26326  M00S21363.dsdi    +++|
26327  M00S21364.dsdi    +++| SRD      SUBR
26328  M00S21365.dsdi    +++|          SA3    SRDA
26329  M00S21366.dsdi    +++|          NG     X3,SRD3     IF FIRST CALL
26330  M00S21367.dsdi    +++|
26331  M00S21368.dsdi    +++|*         COMPARE DATA WITH DATA FROM LAST CALL.
26332  M00S21369.dsdi    +++|
26333  M00S21370.dsdi    +++|          SB2    0
26334  M00S21371.dsdi    +++| SRD1     SA2    X1+B2       READ DATA WORD
26335  M00S21372.dsdi    +++|          SA3    SRDB+B2
26336  M00S21373.dsdi    +++|          BX3    X2-X3
26337  M00S21374.dsdi    +++|          ZR     X3,SRD2     IF DATA IS SAME OR IS LOGICAL OPPOSITE
26338  M00S21375.dsdi    +++|          JP     SRD3
26339  M00S21376.dsdi    +++|
26340  M00S21377.dsdi    +++| SRD2     NG     X3,SRD3     IF DATA IS LOGICAL OPPOSITE
26341  M00S21378.dsdi    +++|          SB2    B2+1
26342  M00S21379.dsdi    +++|          NE     B2,B5,SRD1  IF MORE DATA TO CHECK
26343  M00S21380.dsdi    +++|
26344  M00S21381.dsdi    +++|*         PROCESS REPEATED DATA.
26345  M00S21382.dsdi    +++|
26346  M00S21383.dsdi    +++|          SA2    SRDA
26347  M00S21384.dsdi    +++|          SX1    B1
26348  M00S21385.dsdi    +++|          NZ     X2,SRDX     IF DASHES ALREADY PRINTED
26349  M00S21386.dsdi    +++|          SX6    B1
26350  M00S21387.dsdi    +++|          SA6    A2+         SET REPEAT IN PROCESS FLAG
26351  M00S21388.dsdi    +++|          PRINT  SRDC        PRINT DASHES
26352  M00S21389.dsdi    +++|          SX1    B1          SET REPEAT PROCESSED
26353  M00S21390.dsdi    +++|          JP     SRDX        EXIT
26354  M00S21391.dsdi    +++|
26355  M00S21392.dsdi    +++|*         SAVE CURRENT BLOCK TO COMPARE WITH NEXT.
26356  M00S21393.dsdi    +++|
26357  M00S21394.dsdi    +++| SRD3     MX6    0
26358  M00S21395.dsdi    +++|          SA6    SRDA        CLEAR REPEAT FLAG
26359  M00S21396.dsdi    +++|          BX2    X1          SET DATA ADDRESS
26360  M00S21397.dsdi    +++|          MOVE   B5,X2,SRDB
26361  M00S21398.dsdi    +++|          SX1    0           SET NO REPEAT SENSED
26362  M00S21399.dsdi    +++|          JP     SRDX        EXIT
26363  M00S21400.dsdi    +++|
26364  M00S21401.dsdi    +++| SRDA     BSS    1           REPEAT PROCESSING FLAG
26365  M00S21402.dsdi    +++| SRDB     BSS    20B         PREVIOUS DATA BLOCK BUFFER
26366  M00S21403.dsdi    +++| SRDC     DATA   50H -------------------------------------------------
26367  M00S21404.dsdi    +++|          DATA   50H--------------------------------------------------
26368  M00S21405.dsdi    +++|          DATA   36C------------------------------------
26369  M00S21406.dsdi    +++| SSB      SPACE  4,7
26370  M00S21407.dsdi    +++|**        SSB - SPACEFILL STRING BUFFER.
26371  M00S21408.dsdi    +++|*
Line S21409 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26372  M01S21409.dsdi78  ---|*         USES   X - 6.
26373  M01S21410.dsdi78  ---|*                B - 6,7.
26374  M01S21411.dsdi78  ---|*                A - 6.
Line S00074 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26375  M01S00074.dsdi78  +++|*         USES   B - 6, 7.
26376  M00S21412.dsdi    +++|*
26377  M00S21413.dsdi    +++|*         CALLS  SBL.
26378  M00S21414.dsdi    +++|
26379  M00S21415.dsdi    +++|
26380  M00S21416.dsdi    +++| SSB      SUBR
26381  M00S21417.dsdi    +++|          SB6    136
26382  M00S21418.dsdi    +++|          SB7    PRBF
26383  M00S21419.dsdi    +++|          RJ     SBL         STORE BLANKS
26384  M00S21420.dsdi    +++|          JP     SSBX        EXIT
Line S21421 Modification History
M01 (Removed by) dsdi72
Seq #  *Modification Id* Act 
----------------------------+
26385  M01S21421.dsdi72  ---| STA      SPACE  4,10
26386  M01S21422.dsdi72  ---|**        STA - SET TABLE ADDRESSES.
26387  M01S21423.dsdi72  ---|*
26388  M01S21424.dsdi72  ---|*         ENTRY  (X5) = TABLE DESCRIPTION ADDRESS.
26389  M01S21425.dsdi72  ---|*                (X7) = TABLE ENTRY LENGTH.
26390  M01S21426.dsdi72  ---|*                (B4) = POINTER TO LOW CORE TABLE TO BE DUMPED.
26391  M01S21427.dsdi72  ---|*
26392  M01S21428.dsdi72  ---|*         EXIT   (X4) = 0, TO READ FROM DUMP FILE.
26393  M01S21429.dsdi72  ---|*                (X6) = FWA OF TABLE.
26394  M01S21430.dsdi72  ---|*                (X7) = LWA+1 OF TABLE.
26395  M01S21431.dsdi72  ---|*                (B3) = 1, TO SET *D* FORMAT.
26396  M01S21432.dsdi72  ---|*
26397  M01S21433.dsdi72  ---|*         USES   X - 0, 1, 2, 4, 6, 7.
26398  M01S21434.dsdi72  ---|*                A - 1, 2.
26399  M01S21435.dsdi72  ---|*                B - 3.
26400  M01S21436.dsdi72  ---|*
26401  M01S21437.dsdi72  ---|*         CALLS  DTB.
26402  M01S21438.dsdi72  ---|
26403  M01S21439.dsdi72  ---|
26404  M01S21440.dsdi72  ---| STA      SUBR               ENTRY/EXIT
26405  M01S21441.dsdi72  ---|          SA1    F.TCMT
26406  M01S21442.dsdi72  ---|          SA2    X1+B4       SET TABLE POINTER
26407  M01S21443.dsdi72  ---|          LX2    24
26408  M01S21444.dsdi72  ---|          SX6    X2          FWA OF TABLE
26409  M01S21445.dsdi72  ---|          LX2    12
26410  M01S21446.dsdi72  ---|          MX0    -12
26411  M01S21447.dsdi72  ---|          BX2    -X0*X2      MAXIMUM NUMBER OF TABLE ENTRIES
26412  M01S21448.dsdi72  ---|          IX7    X2*X7
26413  M01S21449.dsdi72  ---|          IX7    X6+X7       LWA+1 OF TABLE
26414  M01S21450.dsdi72  ---|          SB3    B1          SET *D* FORMAT
26415  M01S21451.dsdi72  ---|          SX4    B0          SET READ FROM DUMP FILE
26416  M01S21452.dsdi72  ---|          RJ     DTB         DUMP TABLE
26417  M01S21453.dsdi72  ---|          EQ     STAX        RETURN
26418  M00S21454.dsdi    +++| SVA      SPACE  4,10
26419  M00S21455.dsdi    +++|**        SVA - GET ASID FROM SEGMENT TABLE OF XP.
26420  M00S21456.dsdi    +++|*
26421  M00S21457.dsdi    +++|*         ENTRY  ((B2)+0) = PVA.
26422  M00S21458.dsdi    +++|*                ((B2)+1) = EXCHANGE PACKAGE ADDRESS.
26423  M00S21459.dsdi    +++|*
26424  M00S21460.dsdi    +++|*         EXIT   (X6) = SVA.
26425  M00S21461.dsdi    +++|*                (X1) = SVA.
26426  M00S21462.dsdi    +++|*
26427  M00S21463.dsdi    +++|*         USES   A - 1, 2, 6.
26428  M00S21464.dsdi    +++|*                X - 1, 2, 6, 7.
26429  M00S21465.dsdi    +++|*                B - 2.
26430  M00S21466.dsdi    +++|*
26431  M00S21467.dsdi    +++|*         CALLS  NXB, PVM.
26432  M00S21468.dsdi    +++|
26433  M00S21469.dsdi    +++|
26434  M00S21470.dsdi    +++| SVA      SUBR               ENTRY/EXIT
26435  M00S21471.dsdi    +++|          SA1    B2          GET SEGMENT NUMBER
26436  M00S21472.dsdi    +++|          SA2    B2+B1       GET EXCH PACKAGE ADDRESS
26437  M00S21473.dsdi    +++|          MX6    -32
26438  M00S21474.dsdi    +++|          BX7    -X6*X2
26439  M00S21475.dsdi    +++|          BX6    -X6*X1
26440  M00S21476.dsdi    +++|          SA6    SVAA        SAVE BYTE OFFSET
26441  M00S21477.dsdi    +++|          AX2    32
26442  M00S21478.dsdi    +++|          AX1    32
26443  M00S21479.dsdi    +++|          IX6    X2-X1
26444  M00S21480.dsdi    +++|          NG     X6,ERR44    IF BAD SEGMENT NUMBER
26445  M00S21481.dsdi    +++|          LX1    3
26446  M00S21482.dsdi    +++|          IX6    X7+X1       RMA OF SEGMENT DESCRIPTOR
26447  M00S21483.dsdi    +++|          RJ     PVM         POSITION VIRTUAL MEMORY
Line S00522 Modification History
M01 (Added by) 271l739
Seq #  *Modification Id* Act 
----------------------------+
26448  M01S00522.271l739 +++|          NZ     X2,ERR30    IF PAGE NOT FOUND
26449  M00S21484.dsdi    +++|          RJ     NXB         GET NEXT BYTE
26450  M00S21485.dsdi    +++|          BX6    X1
26451  M00S21486.dsdi    +++|          SA6    STSDE       SEGMENT TABLE DESCRIPTOR ENTRY
26452  M00S21487.dsdi    +++|          LX1    59-15
26453  M00S21488.dsdi    +++|          PL     X1,ERR44    IF VALID BIT NOT SET FOR SEGMENT
26454  M00S21489.dsdi    +++|          RJ     NXB         GET ASID
26455  M00S21490.dsdi    +++|          SA2    SVAA        GET BYTE OFFSET
26456  M00S21491.dsdi    +++|          ZR     X1,ERR44    IF ASID IS ZERO
26457  M00S21492.dsdi    +++|          LX1    32
26458  M00S21493.dsdi    +++|          BX6    X1+X2       FORM SVA
26459  M00S21494.dsdi    +++|          BX1    X6
26460  M00S21495.dsdi    +++|          JP     SVAX        RETURN
26461  M00S21496.dsdi    +++|
26462  M00S21497.dsdi    +++| SVAA     DATA   0           BYTE OFFSET
26463  M00S21498.dsdi    +++| SXH      SPACE  4,14
26464  M00S21499.dsdi    +++|**        SXH - SET PPU XP HEADING IN PRINT STRING.
26465  M00S21500.dsdi    +++|*
Line S21501 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26466  M01S21501.dsdi78  ---|*         ENTRY  B7 = PRINT STRING ADDRESS.
26467  M01S21502.dsdi78  ---|*                PP = NUMBER OF LAST PPU PROCESSED.
26468  M01S21503.dsdi78  ---|*                CPRA = CURRENT XP ADDRESS.
Line S00075 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26469  M01S00075.dsdi78  +++|*         ENTRY  (B7) = PRINT STRING ADDRESS.
26470  M01S00076.dsdi78  +++|*                (PP) = NUMBER OF LAST PP PROCESSED.
26471  M01S00077.dsdi78  +++|*                (CPRA) = CURRENT XP ADDRESS.
26472  M00S21504.dsdi    +++|*
Line S21505 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26473  M01S21505.dsdi78  ---|*         EXIT   X1 = 0 IF NO MORE TO PROCESS.
26474  M01S21506.dsdi78  ---|*                PP,CPRA AND B7 ARE UPDATED.
Line S00078 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26475  M01S00078.dsdi78  +++|*         EXIT   (X1) = 0 IF NO MORE TO PROCESS.
26476  M01S00079.dsdi78  +++|*                PP, CPRA, AND B7 ARE UPDATED.
26477  M00S21507.dsdi    +++|*
Line S21508 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26478  M01S21508.dsdi78  ---|*         SAVES  X - 5.
26479  M01S21509.dsdi78  ---|*                B - 1.
26480  M01S21510.dsdi78  ---|*                A - 5.
Line S00080 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26481  M01S00080.dsdi78  +++|*         USES   X - 1, 2, 3, 4, 6, 7.
26482  M01S00081.dsdi78  +++|*                A - 1, 2, 4, 6, 7.
26483  M01S00082.dsdi78  +++|*                B - 6, 7.
26484  M00S21511.dsdi    +++|*
Line S21512 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26485  M01S21512.dsdi78  ---|*         CALLS  BPN,CTS,SBL,UPS.
Line S00083 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26486  M01S00083.dsdi78  +++|*         CALLS  BPN, CTS, SBL, UPS.
26487  M00S21513.dsdi    +++|
26488  M00S21514.dsdi    +++|
26489  M00S21515.dsdi    +++| SXH      SUBR
26490  M00S21516.dsdi    +++|          SA1    PP
26491  M00S21517.dsdi    +++|          SA2    AC
26492  M00S21518.dsdi    +++|          BX3    X2
26493  M00S21519.dsdi    +++|          SA4    C4
26494  M00S21520.dsdi    +++|          IX2    X2+X4       ADD CPP-S
26495  M00S21521.dsdi    +++|          SX6    X1+B1       ADVANCE PPU NUMBER
26496  M00S21522.dsdi    +++|          IX1    X6-X2
26497  M00S21523.dsdi    +++|          ZR     X1,SXHX     IF NO MORE TO PROCESS
26498  M00S21524.dsdi    +++|          SX4    X6+         SAVE PPU NUMBER
26499  M00S21525.dsdi    +++|          SX7    X6-10
26500  M00S21526.dsdi    +++|          NG     X7,SXH4     IF NOT UPPER 10 PPUS
26501  M00S21527.dsdi    +++|          SX3    X3-11
26502  M00S21528.dsdi    +++|          PL     X3,SXH1     IF 20 PPU SYSTEM
26503  M00S21529.dsdi    +++|          SX6    X6+10       ADJUST FOR 10 PPU SYSTEM
26504  M00S21530.dsdi    +++|          EQ     SXH2        PROCESS *CPP-S*
26505  M00S21531.dsdi    +++|
26506  M00S21532.dsdi    +++| SXH1     SX7    X7-12B
26507  M00S21533.dsdi    +++|          NG     X7,SXH3     IF NOT A *CPP*
26508  M00S21534.dsdi    +++| SXH2     SX7    1
Line S21535 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26509  M01S21535.dsdi78  ---|          SA7    /DIRECT/PPTB
Line S00084 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26510  M01S00084.dsdi78  +++|          SA7    IC
26511  M00S21536.dsdi    +++|          SX6    X6-20-6     ADJUST FOR *CPP-S*
26512  M00S21537.dsdi    +++| SXH3     SX6    X6+6        ADJUST FOR PP 20 - 30
26513  M00S21538.dsdi    +++| SXH4     SA6    A1+         UPDATE PPU NUMBER
26514  M00S21539.dsdi    +++|          RJ     BPN         BUILD PPU NAME
26515  M00S21540.dsdi    +++|          SX6    X4+         RESET PPU NUMBER
26516  M00S21541.dsdi    +++|          SA6    PP
26517  M00S21542.dsdi    +++|          SA1    CPRA
26518  M00S21543.dsdi    +++|          SB6    5
26519  M00S21544.dsdi    +++|          SX6    X1+21B
26520  M00S21545.dsdi    +++|          SA6    A1          UPDATE XP ADDRESS
26521  M00S21546.dsdi    +++|          LX1    -15
26522  M00S21547.dsdi    +++|          RJ     CTS         CONVERT XP ADDRESS
26523  M00S21548.dsdi    +++|          SX6    1R
26524  M00S21549.dsdi    +++|          SX7    1R-
26525  M00S21550.dsdi    +++|          SA6    B7
26526  M00S21551.dsdi    +++|          SB7    B7+B1
26527  M00S21552.dsdi    +++|          SA7    B7
26528  M00S21553.dsdi    +++|          SB7    B7+B1
26529  M00S21554.dsdi    +++|          SA6    B7
26530  M00S21555.dsdi    +++|          SB7    B7+B1
26531  M00S21556.dsdi    +++|          SA2    BPNA+1      READ PP NAME
26532  M00S21557.dsdi    +++|          SB6    5
26533  M00S21558.dsdi    +++|          RJ     UPS
26534  M00S21559.dsdi    +++|          SA2    =10H XP
26535  M00S21560.dsdi    +++|          SB6    3
26536  M00S21561.dsdi    +++|          RJ     UPS
26537  M00S21562.dsdi    +++|          SB6    32
26538  M00S21563.dsdi    +++|          RJ     SBL
26539  M00S21564.dsdi    +++|          SX1    1
26540  M00S21565.dsdi    +++|          JP     SXHX        EXIT
26541  M00S21566.dsdi    +++| TOV      SPACE  4,14
26542  M00S21567.dsdi    +++|**        TOV - PROCESS MANAGED TABLE OVERFLOW.
26543  M00S21568.dsdi    +++|*
Line S21569 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26544  M01S21569.dsdi78  ---|*         ENTRY  B5 = -(NUMBER OF WORDS NEEDED).
26545  M01S21570.dsdi78  ---|*                B6 = RETURN ADDRESS.
26546  M01S21571.dsdi78  ---|*                FM = CURRENT FIELD LENGTH.
26547  M01S21572.dsdi78  ---|*                F.TEND = CURRENT END OF TABLE SPACE.
Line S00085 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26548  M01S00085.dsdi78  +++|*         ENTRY  (B5) = -(NUMBER OF WORDS NEEDED).
26549  M01S00086.dsdi78  +++|*                (B6) = RETURN ADDRESS.
26550  M01S00087.dsdi78  +++|*                (FM) = CURRENT FIELD LENGTH.
26551  M01S00088.dsdi78  +++|*                (F.TEND) = CURRENT END OF TABLE SPACE.
26552  M00S21573.dsdi    +++|*
26553  M00S21574.dsdi    +++|*         EXIT   FM, F.TEND ARE UPDATED.
26554  M00S21575.dsdi    +++|*
Line S21576 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26555  M01S21576.dsdi78  ---|*         SAVES  X - NONE.
26556  M01S21577.dsdi78  ---|*                B - 1.
26557  M01S21578.dsdi78  ---|*                A - 0.
Line S00089 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26558  M01S00089.dsdi78  +++|*         USES   X - 0, 1, 6, 7.
26559  M01S00090.dsdi78  +++|*                A - 1, 6, 7.
26560  M00S21579.dsdi    +++|*
Line S21580 Modification History
M01 (Removed by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26561  M01S21580.dsdi78  ---|*         CALLS  SYS=.
Line S00091 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26562  M01S00091.dsdi78  +++|*         MACROS MEMORY.
26563  M00S21581.dsdi    +++|
26564  M00S21582.dsdi    +++|
26565  M00S21583.dsdi    +++| TOV      SX6    -B5         NUMBER OF WORDS NEEDED
26566  M00S21584.dsdi    +++|          SX6    X6+1010B    ROUND UP TO NEXT 1000 WORDS
26567  M00S21585.dsdi    +++|          MX0    -9
26568  M00S21586.dsdi    +++|          BX6    X0*X6
26569  M00S21587.dsdi    +++|          SA1    FM          READ CURRENT FIELD LENGTH
26570  M00S21588.dsdi    +++|          IX7    X1+X6
26571  M00S21589.dsdi    +++|          ZR     X6,ERR19    IF (B5) DESTROYED
26572  M00S21590.dsdi    +++|          SX6    X7-10B
26573  M00S21591.dsdi    +++|          SA7    A1          UPDATE CURRENT FIELD LENGTH
26574  M00S21592.dsdi    +++|          LX7    30
26575  M00S21593.dsdi    +++|          SA6    F.TEND      UPDATE END OF TABLE SPACE POINTER
26576  M00S21594.dsdi    +++|          SA7    TOVA        SET RFL REQUEST WORD
26577  M00S21595.dsdi    +++|          MEMORY CM,TOVA,R
26578  M00S21596.dsdi    +++|          JP     B6          RETURN TO TABLE ALLOCATOR
Line S00092 Modification History
M01 (Added by) dsdi78
Seq #  *Modification Id* Act 
----------------------------+
26579  M01S00092.dsdi78  +++|
26580  M00S21597.dsdi    +++|
26581  M00S21598.dsdi    +++| TOVA     BSS    1           RFL PARAMETER
Line S21599 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26582  M01S21599.dsdi67  ---| TPF      SPACE  4,10
Line S00310 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26583  M01S00310.dsdi67  +++| TPF      SPACE  4,15
26584  M00S21600.dsdi    +++|**        TPF - CYBER 180-990 PROCESSOR FILE.
26585  M00S21601.dsdi    +++|*
26586  M00S21602.dsdi    +++|*         ENTRY  ONLY IF ON A CYBER 180-990.
26587  M00S21603.dsdi    +++|*
26588  M00S21604.dsdi    +++|*         EXIT   DIRECTIVE PRORF PROCESSED; RECORDS PRF, PRG, AND
26589  M00S21605.dsdi    +++|*                PRH DISPLAYED.
Line S00037 Modification History
M01 (Added by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26590  M01S00037.dsdi62  +++|*
Line S00038 Modification History
M01 (Added by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26591  M02S00038.dsdi67  ---|*         USES   X - 0, 1, 2, 3, 6.
26592  M02S00039.dsdi67  ---|*                A - 1, 2, 3, 6.
Line S00311 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26593  M01S00311.dsdi67  +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
26594  M01S00312.dsdi67  +++|*                A - 0, 1, 2, 3, 5, 6, 7.
Line S00040 Modification History
M01 (Added by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26595  M01S00040.dsdi62  +++|*                B - 3, 6, 7.
26596  M01S00041.dsdi62  +++|*
Line S00042 Modification History
M01 (Added by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26597  M02S00042.dsdi67  ---|*         CALLS  CDD, CEP, CNR, DHR, HTS, LDC, PDF, SSB, UPS.
Line S00313 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26598  M01S00313.dsdi67  +++|*         CALLS  CDD, CEP, DHR, FBP, FPR, HTS, LDC, NXB, SSB, UPS.
Line S00043 Modification History
M01 (Added by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26599  M01S00043.dsdi62  +++|*
Line S00044 Modification History
M01 (Added by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26600  M02S00044.dsdi67  ---|*         MACROS PRINT, SEARCH.
Line S00314 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26601  M01S00314.dsdi67  +++|*         MACROS PRINT.
26602  M00S21606.dsdi    +++|
26603  M00S21607.dsdi    +++|
Line S00315 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26604  M01S00315.dsdi67  +++| TPF17    SA1    NR
26605  M01S00316.dsdi67  +++|          NZ     X1,TPF1     IF MORE RECORDS TO DISPLAY
26606  M01S00317.dsdi67  +++|
26607  M00S21608.dsdi    +++| TPF      SUBR               ENTRY/EXIT
26608  M00S21609.dsdi    +++|          RJ     CEP         CHECK FOR EXTRANEOUS PARAMETERS
26609  M00S21610.dsdi    +++| TPF1     RJ     LDC         LIST DIRECTIVE CARD
Line S21611 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26610  M01S21611.dsdi67  ---|          SA1    =3LPRF
26611  M01S21612.dsdi67  ---|          SA3    TPFA        NEXT DIRECTIVE TABLE ENTRY
Line S00318 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26612  M01S00318.dsdi67  +++|          SA5    TPFA        INITIALIZE RECORD TABLE POINTER
26613  M01S00319.dsdi67  +++|          SX6    1           DISPLAY RADIAL MCI
26614  M01S00320.dsdi67  +++|
26615  M01S00321.dsdi67  +++|*         GET NEXT RECORD.
26616  M01S00322.dsdi67  +++|
26617  M01S00323.dsdi67  +++| TPF2     SA1    A5          SET/CLEAR RECORD POINTER
26618  M00S21613.dsdi    +++|          MX0    18
Line S21614 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26619  M01S21614.dsdi67  ---|          SA2    X3
26620  M01S21615.dsdi67  ---|          NZ     X3,TPF2     IF NOT FIRST RECORD
26621  M01S21616.dsdi67  ---|          SEARCH TDIR,X1,X0
Line S00324 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26622  M01S00324.dsdi67  +++|          BX7    X1
26623  M01S00325.dsdi67  +++|          SA7    NR
26624  M01S00326.dsdi67  +++|          SA1    A5+TPFE-TPFA  GET RECORD ID
26625  M01S00327.dsdi67  +++|          BX1    X0*X1
26626  M01S00328.dsdi67  +++|          RJ     FPR         FIND PROCESSOR RECORD
26627  M00S21617.dsdi    +++|          ZR     X2,ERR14    IF RECORD ID NOT IN DIRECTORY
Line S21618 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26628  M01S21618.dsdi67  ---| TPF2     SA3    =3LPRF      RECORD ID
26629  M01S21619.dsdi67  ---|          SB7    C.TDIR      TABLE ENTRY LENGTH
26630  M01S21620.dsdi67  ---|          SB3    TPFA        NEXT TABLE ENTRY
26631  M01S21621.dsdi67  ---|          RJ     CNR         CHECK NEXT RECORD
26632  M01S21622.dsdi67  ---|          MX0    -6          SAVE RADIAL MCI
26633  M01S21623.dsdi67  ---|          AX2    36
26634  M01S21624.dsdi67  ---|          BX6    -X0*X2
26635  M01S21625.dsdi67  ---|          SA6    PRBF+13
26636  M01S21626.dsdi67  ---|          SA2    A2+B1       SET RANDOM INDEX
26637  M01S21627.dsdi67  ---|          BX6    X2
26638  M01S21628.dsdi67  ---|          SA6    RI
26639  M01S21629.dsdi67  ---|
26640  M01S21630.dsdi67  ---|*         POSITION DUMP FILE.
26641  M01S21631.dsdi67  ---|
Line S00329 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26642  M01S00329.dsdi67  +++|          SA1    NR          SAVE POINTER TO SECOND RECORD
26643  M01S00330.dsdi67  +++|          BX6    X1
26644  M01S00331.dsdi67  +++|          SA6    A5
26645  M01S00332.dsdi67  +++|          SA5    A5+B1       ADVANCE RECORD POINTER
26646  M00S21632.dsdi    +++|          SX3    B0
Line S21633 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26647  M01S21633.dsdi67  ---|          RJ     PDF
26648  M01S21634.dsdi67  ---|          MX6    0           INITIALIZE WORD COUNT FOR NXB
26649  M01S21635.dsdi67  ---|          SA6    NXBA
26650  M01S21636.dsdi67  ---|          SA6    A6+B1
26651  M01S21637.dsdi67  ---|
26652  M01S21638.dsdi67  ---|*         PRINT  *RADIAL MCI = N*.
26653  M01S21639.dsdi67  ---|
26654  M01S21640.dsdi67  ---|          PRINT  (=2C  )
26655  M01S21641.dsdi67  ---|          SB7    PRBF
26656  M01S21642.dsdi67  ---|          SA2    =13HRADIAL MCI =
26657  M01S21643.dsdi67  ---|          SB6    13
26658  M01S21644.dsdi67  ---|          RJ     UPS         UNPACK REGISTER
26659  M01S21645.dsdi67  ---|          PRINT  CCCH,15
Line S00333 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26660  M01S00333.dsdi67  +++|          RJ     FBP         POSITION DUMP FILE
26661  M00S21646.dsdi    +++|          PRINT  (=2C  )
Line S21647 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26662  M01S21647.dsdi67  ---|
26663  M01S21648.dsdi67  ---|*         PRINT FIRST HEADER.
26664  M01S21649.dsdi67  ---|
Line S00334 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26665  M01S00334.dsdi67  +++|          SA1    A5+TPFE-1-TPFA
26666  M00S21650.dsdi    +++|          RJ     SSB         SPACE FILL STRING BUFFER
Line S21651 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26667  M01S21651.dsdi67  ---|          PRINT  (=C* IDU CURRENT INSTRUCTION REGISTER*)
Line S00335 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26668  M01S00335.dsdi67  +++|          SB3    X1
26669  M01S00336.dsdi67  +++|          JP     B3          PROCESS RECORD
26670  M00S21652.dsdi    +++|
Line S21653 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26671  M01S21653.dsdi67  ---|*         DISPLAY FIRST 8 WORDS OF PRF RECORD.
Line S00337 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26672  M01S00337.dsdi67  +++|*         PROCESS *PRF* RECORD.
26673  M00S21654.dsdi    +++|
Line S00338 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26674  M01S00338.dsdi67  +++| TPF3     PRINT  (=C* IDU CURRENT INSTRUCTION REGISTER*)
26675  M00S21655.dsdi    +++|          SX6    -8
Line S21656 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26676  M01S21656.dsdi67  ---|          SA6    TPFA+1
26677  M01S21657.dsdi67  ---| TPF3     SB7    PRBF+5
26678  M01S21658.dsdi67  ---|          SB6    B1
26679  M01S21659.dsdi67  ---|          SA1    TPFA+1
26680  M01S21660.dsdi67  ---|          SX1    X1+8
26681  M01S21661.dsdi67  ---|          LX1    59-3
26682  M01S21662.dsdi67  ---|          RJ     HTS         DISPLAY REGISTER NUMBER
Line S21663 Modification History
M01 (Removed by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26683  M02S21663.dsdi67  ---|          SX5    4
Line S21664 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26684  M01S21664.dsdi67  ---|          SB7    B7+3
Line S00339 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26685  M01S00339.dsdi67  +++|          SA6    FW
26686  M01S00340.dsdi67  +++| TPF4     SX6    X6+8+1R0    DISPLAY REGISTER NUMBER
26687  M01S00341.dsdi67  +++|          SA6    PRBF+5
26688  M01S00342.dsdi67  +++|          SB7    PRBF+9
Line S21665 Modification History
M01 (Removed by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26689  M01S21665.dsdi62  ---| TPF4     SA0    B7+2
26690  M01S21666.dsdi62  ---|          RJ     NXB         GET NEXT 16 BITS OF REGISTER FILE
26691  M01S21667.dsdi62  ---|          SB7    A0
26692  M01S21668.dsdi62  ---|          SB6    4
26693  M01S21669.dsdi62  ---|          LX1    59-15
26694  M01S21670.dsdi62  ---|          RJ     HTS         DISPLAY FOUR HEX DIGITS
26695  M01S21671.dsdi62  ---|          SX5    X5-1
26696  M01S21672.dsdi62  ---|          NZ     X5,TPF4     IF NOT THROUGH READING WORD
26697  M01S21673.dsdi62  ---|          PRINT  CCCH,B7-CCCH+1
Line S00045 Modification History
M01 (Added by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26698  M01S00045.dsdi62  +++|          RJ     DHR         DISPLAY REGISTER
Line S21674 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26699  M01S21674.dsdi67  ---|          SA1    TPFA+1
26700  M01S21675.dsdi67  ---|          SX6    X1+1
Line S00343 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26701  M01S00343.dsdi67  +++|          SA1    FW          INCREMENT REGISTER NUMBER
26702  M01S00344.dsdi67  +++|          SX6    X1+B1
26703  M00S21676.dsdi    +++|          SA6    A1
Line S21677 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26704  M01S21677.dsdi67  ---|          NG     X6,TPF3     IF NOT THROUGH WITH FIRST SEVEN WORDS
Line S00345 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26705  M01S00345.dsdi67  +++|          NZ     X6,TPF4     IF NOT THROUGH WITH FIRST SEVEN WORDS
26706  M00S21678.dsdi    +++|
26707  M00S21679.dsdi    +++|*         PRINT NEXT HEADER.
26708  M00S21680.dsdi    +++|
26709  M00S21681.dsdi    +++|          RJ     SSB
26710  M00S21682.dsdi    +++|          PRINT  (=2C  )
26711  M00S21683.dsdi    +++|          PRINT  (=C* EXECUTING WORDS OF SOFT CONTROL MEMORIES*)
26712  M00S21684.dsdi    +++|
26713  M00S21685.dsdi    +++|*         PRINT NEXT 13 WORDS FROM PRF FILE.
26714  M00S21686.dsdi    +++|
Line S21687 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26715  M01S21687.dsdi67  ---|          SX6    -13
26716  M01S21688.dsdi67  ---|          SA6    TPFA+1
26717  M01S21689.dsdi67  ---| TPF5     SA1    TPFA+1
26718  M01S21690.dsdi67  ---|          SA2    TPFB+X1+13  GET DESCRIPTOR
26719  M01S21691.dsdi67  ---|          ZR     X2,TPF7     IF AT END OF TABLE
26720  M01S21692.dsdi67  ---|          MX0    -17
26721  M01S21693.dsdi67  ---|          BX2    -X0*X2
26722  M01S21694.dsdi67  ---|          SA2    X2
Line S00346 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26723  M01S00346.dsdi67  +++| TPF5     SA1    FW
26724  M01S00347.dsdi67  +++|          SX6    X1+B1
26725  M01S00348.dsdi67  +++|          SA6    A1
26726  M01S00349.dsdi67  +++|          SA2    TPFB+X1     GET DESCRIPTOR
26727  M01S00350.dsdi67  +++|          ZR     X2,TPF6     IF AT END OF TABLE
26728  M00S21695.dsdi    +++|          SB7    PRBF
Line S21696 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26729  M01S21696.dsdi67  ---|          SB6    7
Line S00351 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26730  M01S00351.dsdi67  +++|          SB6    7+2
26731  M00S21697.dsdi    +++|          RJ     UPS
Line S21698 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26732  M01S21698.dsdi67  ---|          SA1    TPFA+1
26733  M01S21699.dsdi67  ---|          SX6    X1+1
26734  M01S21700.dsdi67  ---|          SA6    A1
Line S21701 Modification History
M01 (Removed by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26735  M02S21701.dsdi67  ---|          SX5    4
Line S21702 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26736  M01S21702.dsdi67  ---|          SB7    B7+2
Line S21703 Modification History
M01 (Removed by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26737  M01S21703.dsdi62  ---| TPF6     SA0    B7+2
26738  M01S21704.dsdi62  ---|          RJ     NXB
26739  M01S21705.dsdi62  ---|          SB7    A0
26740  M01S21706.dsdi62  ---|          SB6    4
26741  M01S21707.dsdi62  ---|          LX1    59-15
26742  M01S21708.dsdi62  ---|          RJ     HTS
26743  M01S21709.dsdi62  ---|          SX5    X5-1
26744  M01S21710.dsdi62  ---|          NZ     X5,TPF6     IF MORE REGISTER DATA TO DISPLAY
26745  M01S21711.dsdi62  ---|          PRINT  CCCH,B7-CCCH+1
Line S00046 Modification History
M01 (Added by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26746  M01S00046.dsdi62  +++|          RJ     DHR         DISPLAY REGISTER
26747  M00S21712.dsdi    +++|          JP     TPF5        CHECK NEXT WORD
26748  M00S21713.dsdi    +++|
26749  M00S21714.dsdi    +++|*         PRINT NEXT HEADER.
26750  M00S21715.dsdi    +++|
Line S21716 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26751  M01S21716.dsdi67  ---| TPF7     RJ     SSB
Line S00352 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26752  M01S00352.dsdi67  +++| TPF6     RJ     SSB
26753  M00S21717.dsdi    +++|          PRINT  (=2C  )
26754  M00S21718.dsdi    +++|          PRINT  (=C* ERROR INFORMATION TABLE *)
26755  M00S21719.dsdi    +++|
26756  M00S21720.dsdi    +++|*         PRINT NEXT 16 WORDS FROM PRF FILE.
26757  M00S21721.dsdi    +++|
Line S21722 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26758  M01S21722.dsdi67  ---|          SX6    -16
26759  M01S21723.dsdi67  ---|          SA6    TPFA+1
Line S00353 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26760  M01S00353.dsdi67  +++|          SA0    16
26761  M01S00354.dsdi67  +++| TPF7     SX6    A0
26762  M01S00355.dsdi67  +++|          BX6    -X6
26763  M01S00356.dsdi67  +++|          SA6    FW
26764  M00S21724.dsdi    +++| TPF8     SB7    PRBF+4
26765  M00S21725.dsdi    +++|          SB6    2
Line S21726 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26766  M01S21726.dsdi67  ---|          SA1    TPFA+1
26767  M01S21727.dsdi67  ---|          SX1    X1+16
Line S00357 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26768  M01S00357.dsdi67  +++|          SX1    A0
26769  M01S00358.dsdi67  +++|          IX1    X1+X6
26770  M00S21728.dsdi    +++|          RJ     CDD
26771  M00S21729.dsdi    +++|          BX2    X6
26772  M00S21730.dsdi    +++|          LX2    59-11
26773  M00S21731.dsdi    +++|          RJ     UPS
Line S21732 Modification History
M01 (Removed by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26774  M01S21732.dsdi62  ---|          SX5    4
26775  M00S21733.dsdi    +++|          SB7    B7+3
Line S21734 Modification History
M01 (Removed by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26776  M01S21734.dsdi62  ---| TPF9     SA0    B7+2
26777  M01S21735.dsdi62  ---|          RJ     NXB
26778  M01S21736.dsdi62  ---|          SB7    A0
26779  M01S21737.dsdi62  ---|          SB6    4
26780  M01S21738.dsdi62  ---|          LX1    59-15
26781  M01S21739.dsdi62  ---|          RJ     HTS
26782  M01S21740.dsdi62  ---|          SX5    X5-1
26783  M01S21741.dsdi62  ---|          NZ     X5,TPF9     IF MORE REGISTER DATA TO DISPLAY
26784  M01S21742.dsdi62  ---|          PRINT  CCCH,B7-CCCH+1
Line S00047 Modification History
M01 (Added by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26785  M01S00047.dsdi62  +++|          RJ     DHR         DISPLAY REGISTER
Line S21743 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26786  M01S21743.dsdi67  ---|          SA1    TPFA+1
26787  M01S21744.dsdi67  ---|          SX6    X1+1
Line S00359 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26788  M01S00359.dsdi67  +++|          SA1    FW
26789  M01S00360.dsdi67  +++|          SX6    X1+B1
26790  M00S21745.dsdi    +++|          SA6    A1
26791  M00S21746.dsdi    +++|          NG     X6,TPF8     IF MORE WORDS TO DISPLAY
Line S21747 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26792  M01S21747.dsdi67  ---|          SA1    TPFA        NEXT TABLE ENTRY
26793  M01S21748.dsdi67  ---|          NZ     X1,TPF1     IF MORE RECORDS
Line S00361 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26794  M01S00361.dsdi67  +++|          EQ     TPF2        GET NEXT RECORD
26795  M00S21749.dsdi    +++|
Line S21750 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26796  M01S21750.dsdi67  ---|*         LOCATE PROCESSOR INSTRUCTION BUFFER STACK (*PIS*) RECORD.
Line S00362 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26797  M01S00362.dsdi67  +++|*         PROCESS INSTRUCTION BUFFER STACK (*PIS*) RECORD.
26798  M00S21751.dsdi    +++|
Line S21752 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26799  M01S21752.dsdi67  ---| TPF10    SA1    =3LPIS
26800  M01S21753.dsdi67  ---|          SA3    TPFA        NEXT DIRECTORY TABLE ENTRY POINTER
26801  M01S21754.dsdi67  ---|          MX0    18
26802  M01S21755.dsdi67  ---|          SA2    X3
26803  M01S21756.dsdi67  ---|          NZ     X3,TPF11    IF FIRST RECORD
26804  M01S21757.dsdi67  ---|          SEARCH TDIR,X1,X0
26805  M01S21758.dsdi67  ---|          ZR     X2,ERR14    IF RECORD ID NOT IN DIRECTORY
26806  M01S21759.dsdi67  ---| TPF11    SA3    =3LPIS
26807  M01S21760.dsdi67  ---|          SB7    C.TDIR
26808  M01S21761.dsdi67  ---|          SB3    TPFA
26809  M01S21762.dsdi67  ---|          RJ     CNR         CHECK NEXT RECORD
26810  M01S21763.dsdi67  ---|          SA2    A2+B1       SET RANDOM INDEX
26811  M01S21764.dsdi67  ---|          BX6    X2
26812  M01S21765.dsdi67  ---|          SA6    RI
26813  M01S21766.dsdi67  ---|
26814  M01S21767.dsdi67  ---|*         POSITION DUMP FILE AND PRINT HEADER.
26815  M01S21768.dsdi67  ---|
26816  M01S21769.dsdi67  ---|          SX3    B0
26817  M01S21770.dsdi67  ---|          RJ     PDF
26818  M01S21771.dsdi67  ---|          MX6    0
26819  M01S21772.dsdi67  ---|          SA6    NXBA
26820  M01S21773.dsdi67  ---|          SA6    A6+B1
26821  M01S21774.dsdi67  ---|          RJ     SSB
26822  M01S21775.dsdi67  ---|          PRINT  (=2C  )
26823  M01S21776.dsdi67  ---|          PRINT  (=C* INSTRUCTION BUFFER STACK*)
26824  M01S21777.dsdi67  ---|
26825  M01S21778.dsdi67  ---|*         PRINT INSTRUCTION BUFFER STACK
26826  M01S21779.dsdi67  ---|
26827  M01S21780.dsdi67  ---|          SX6    -64
26828  M01S21781.dsdi67  ---|          SA6    TPFA+1
26829  M01S21782.dsdi67  ---| TPF12    SB7    PRBF+4
26830  M01S21783.dsdi67  ---|          SB6    2
26831  M01S21784.dsdi67  ---|          SA1    TPFA+1
26832  M01S21785.dsdi67  ---|          SX1    X1+64
26833  M01S21786.dsdi67  ---|          RJ     CDD
26834  M01S21787.dsdi67  ---|          BX2    X6
26835  M01S21788.dsdi67  ---|          LX2    59-11
26836  M01S21789.dsdi67  ---|          RJ     UPS
Line S21790 Modification History
M01 (Removed by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26837  M02S21790.dsdi67  ---|          SX5    4
Line S21791 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26838  M01S21791.dsdi67  ---|          SB7    B7+3
Line S21792 Modification History
M01 (Removed by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26839  M02S21792.dsdi67  ---| TPF13    SA0    B7+2
26840  M02S21793.dsdi67  ---|          RJ     NXB
26841  M02S21794.dsdi67  ---|          SB7    A0
26842  M02S21795.dsdi67  ---|          SB6    4
26843  M02S21796.dsdi67  ---|          LX1    59-15
26844  M02S21797.dsdi67  ---|          RJ     HTS
26845  M02S21798.dsdi67  ---|          SX5    X5-1
26846  M02S21799.dsdi67  ---|          NZ     X5,TPF13    IF MORE REGISTER DATA TO DISPLAY
26847  M02S21800.dsdi67  ---|          PRINT  CCCH,B7-CCCH+1
Line S00048 Modification History
M01 (Added by) dsdi62
M02 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26848  M02S00048.dsdi67  ---|          RJ     DHR         DISPLAY REGISTER
Line S21801 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26849  M01S21801.dsdi67  ---|          SA1    TPFA+1
26850  M01S21802.dsdi67  ---|          SX6    X1+1
26851  M01S21803.dsdi67  ---|          SA6    A1
26852  M01S21804.dsdi67  ---|          NG     X6,TPF12    IF MORE DATA IN INSTRUCTION BUFFER STACK
26853  M01S21805.dsdi67  ---|          SA1    TPFA        NEXT TABLE ENTRY
26854  M01S21806.dsdi67  ---|          NZ     X1,TPF10    IF MORE RECORDS
Line S00363 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26855  M01S00363.dsdi67  +++| TPF9     PRINT  (=C* INSTRUCTION BUFFER STACK*)
26856  M01S00364.dsdi67  +++|          SA0    64
26857  M01S00365.dsdi67  +++|          EQ     TPF7        DISPLAY RECORD
26858  M00S21807.dsdi    +++|
Line S21808 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26859  M01S21808.dsdi67  ---|*         LOCATE PROCESSOR REGISTER UNIT (*PRG*) RECORD.
Line S00366 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26860  M01S00366.dsdi67  +++|*         PROCESS PROCESSOR REGISTER UNIT (*PRG*) RECORD.
26861  M00S21809.dsdi    +++|
Line S21810 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26862  M01S21810.dsdi67  ---| TPF14    SA1    =3LPRG
26863  M01S21811.dsdi67  ---|          SA3    TPFA        NEXT DIRECTORY TABLE ENTRY POINTER
26864  M01S21812.dsdi67  ---|          MX0    18
26865  M01S21813.dsdi67  ---|          SA2    X3
26866  M01S21814.dsdi67  ---|          NZ     X3,TPF15    IF FIRST RECORD
26867  M01S21815.dsdi67  ---|          SEARCH TDIR,X1,X0
26868  M01S21816.dsdi67  ---|          ZR     X2,ERR14    IF RECORD ID NOT IN DIRECTORY
26869  M01S21817.dsdi67  ---| TPF15    SA3    =3LPRG      RECORD ID
26870  M01S21818.dsdi67  ---|          SB7    C.TDIR
26871  M01S21819.dsdi67  ---|          SB3    TPFA        NEXT TABLE ENTRY
26872  M01S21820.dsdi67  ---|          RJ     CNR         CHECK NEXT RECORD
26873  M01S21821.dsdi67  ---|          SA2    A2+B1       SET RANDOM INDEX
26874  M01S21822.dsdi67  ---|          BX6    X2
26875  M01S21823.dsdi67  ---|          SA6    RI
26876  M01S21824.dsdi67  ---|
26877  M01S21825.dsdi67  ---|*         POSITION DUMP FILE AND PRINT HEADER.
26878  M01S21826.dsdi67  ---|
26879  M01S21827.dsdi67  ---|          SX3    B0
26880  M01S21828.dsdi67  ---|          RJ     PDF
26881  M01S21829.dsdi67  ---|          MX6    0           INITIALIZE WORD COUNT FOR BUFFER
26882  M01S21830.dsdi67  ---|          SA6    NXBA
26883  M01S21831.dsdi67  ---|          SA6    A6+B1
26884  M01S21832.dsdi67  ---|          RJ     SSB         SPACE FILL STRING BUFFER
26885  M01S21833.dsdi67  ---|          PRINT  (=2C  )
26886  M01S21834.dsdi67  ---|          PRINT  (=C* REGISTER UNIT*)
26887  M01S21835.dsdi67  ---|
26888  M01S21836.dsdi67  ---|*         PRINT PROCESSOR REGISTER UNIT.
26889  M01S21837.dsdi67  ---|
Line S00367 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26890  M01S00367.dsdi67  +++| TPF10    PRINT  (=C* REGISTER UNIT*)
26891  M00S21838.dsdi    +++|          SX6    B0
Line S21839 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26892  M01S21839.dsdi67  ---|          SA6    TPFA+1      TPFC TABLE POINTER
26893  M01S21840.dsdi67  ---|          SA0    A6+B1       LAST DIGIT OF REGISTER NUMBER (HEX)
26894  M01S21841.dsdi67  ---| TPF16    SA1    TPFA+2      GET LAST DIGIT
26895  M01S21842.dsdi67  ---|          SX1    X1-16
26896  M01S21843.dsdi67  ---|          NZ     X1,TPF17    IF LAST DIGIT .LE. F (HEX)
26897  M01S21844.dsdi67  ---|          SA2    TPFA+1
26898  M01S21845.dsdi67  ---|          SA1    TPFC+X2+1   GET NEXT TABLE ENTRY
26899  M01S21846.dsdi67  ---|          ZR     X1,TPF19    IF END OF TABLE
26900  M01S21847.dsdi67  ---|          SX6    X2+1        INCREMENT TABLE POINTER
26901  M01S21848.dsdi67  ---|          SA6    A2
26902  M01S21849.dsdi67  ---|          SB3    X6
26903  M01S21850.dsdi67  ---|          SX6    8           RESET LAST DIGIT
26904  M01S21851.dsdi67  ---|          SA6    A2+1
26905  M01S21852.dsdi67  ---|          SB6    2
26906  M01S21853.dsdi67  ---|          NE     B3,B6,TPF17  IF TABLE POINTER=2 RESET DIGIT TO 0
26907  M01S21854.dsdi67  ---|          SX6    0
26908  M01S21855.dsdi67  ---|          SA6    TPFA+2
26909  M01S21856.dsdi67  ---| TPF17    SA3    TPFA+1
26910  M01S21857.dsdi67  ---|          SA2    TPFC+X3     GET DESCRIPTOR
26911  M01S21858.dsdi67  ---|          MX0    -17
26912  M01S21859.dsdi67  ---|          BX2    -X0*X2
26913  M01S21860.dsdi67  ---|          SA2    X2
Line S00368 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26914  M01S00368.dsdi67  +++|          SA6    FW          INITIALIZE DIGIT
26915  M01S00369.dsdi67  +++|          SA6    A6+B1       INITIALIZE DESCRIPTOR SHIFT COUNT
Line S00010 Modification History
M01 (Added by) dsdi74a
Seq #  *Modification Id* Act 
----------------------------+
26916  M01S00010.dsdi74a +++|          ERRNZ  LW-FW-1     CODE REQUIRES CONTIGUOUS WORDS
Line S00370 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26917  M01S00370.dsdi67  +++| TPF11    SA1    LW          GET SHIFT COUNT
26918  M01S00371.dsdi67  +++|          SA2    TPFC        GET DESCRIPTOR
26919  M01S00372.dsdi67  +++|          SB3    X1
26920  M01S00373.dsdi67  +++|          LX2    B3          POSITION DESCRIPTOR
26921  M01S00374.dsdi67  +++|          SB6    B1+B1
26922  M01S00375.dsdi67  +++|          SA1    A1-B1       GET DIGIT
26923  M00S21861.dsdi    +++|          SB7    PRBF+3
Line S21862 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26924  M01S21862.dsdi67  ---|          SB6    2
26925  M00S21863.dsdi    +++|          RJ     UPS
Line S21864 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26926  M01S21864.dsdi67  ---|          SA1    TPFA+2      LAST DIGIT OF REGISTER NUMBER
26927  M00S21865.dsdi    +++|          LX1    59-3
26928  M00S21866.dsdi    +++|          SB6    B1
Line S21867 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26929  M01S21867.dsdi67  ---|          SB7    PRBF+5
26930  M00S21868.dsdi    +++|          RJ     HTS
Line S21869 Modification History
M01 (Removed by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26931  M01S21869.dsdi62  ---|          SX5    4
26932  M00S21870.dsdi    +++|          SB7    B7+3
Line S21871 Modification History
M01 (Removed by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26933  M01S21871.dsdi62  ---| TPF18    SA0    B7+2
26934  M01S21872.dsdi62  ---|          RJ     NXB
26935  M01S21873.dsdi62  ---|          SB7    A0
26936  M01S21874.dsdi62  ---|          SB6    4
26937  M01S21875.dsdi62  ---|          LX1    59-15
26938  M01S21876.dsdi62  ---|          RJ     HTS
26939  M01S21877.dsdi62  ---|          SX5    X5-1
26940  M01S21878.dsdi62  ---|          NZ     X5,TPF18    IF MORE REGISTER DATA TO DISPLAY
26941  M01S21879.dsdi62  ---|          PRINT  CCCH,B7-CCCH+1
Line S00049 Modification History
M01 (Added by) dsdi62
Seq #  *Modification Id* Act 
----------------------------+
26942  M01S00049.dsdi62  +++|          RJ     DHR         DISPLAY REGISTER
Line S21880 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26943  M01S21880.dsdi67  ---|          SA1    TPFA+2      INCREMENT LAST DIGIT
26944  M01S21881.dsdi67  ---|          SX6    X1+1
Line S00376 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26945  M01S00376.dsdi67  +++|          SA1    FW          INCREMENT DIGIT
26946  M01S00377.dsdi67  +++|          SX6    X1+B1
26947  M00S21882.dsdi    +++|          SA6    A1
Line S21883 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26948  M01S21883.dsdi67  ---|          JP     TPF16       CHECK NEXT WORD
26949  M01S21884.dsdi67  ---|
26950  M01S21885.dsdi67  ---| TPF19    SA1    TPFA        NEXT DIRECTORY TABLE ENTRY POINTER
26951  M01S21886.dsdi67  ---|          NZ     X1,TPF14    IF MORE RECORDS TO PROCESS
Line S00378 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26952  M01S00378.dsdi67  +++|          SX7    X6-16
26953  M01S00379.dsdi67  +++|          NZ     X7,TPF11    IF LAST DIGIT .LE. F (HEX)
26954  M01S00380.dsdi67  +++|          SA1    A1+B1       INCREMENT SHIFT COUNT
Line S00011 Modification History
M01 (Added by) dsdi74a
Seq #  *Modification Id* Act 
----------------------------+
26955  M01S00011.dsdi74a +++|          ERRNZ  LW-FW-1     CODE REQUIRES CONTIGUOUS WORDS
Line S00381 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26956  M01S00381.dsdi67  +++|          SX6    X1+12
26957  M01S00382.dsdi67  +++|          SA6    A1
26958  M01S00383.dsdi67  +++|          SX6    X6-48
26959  M01S00384.dsdi67  +++|          ZR     X6,TPF2     IF END OF REGISTERS
26960  M01S00385.dsdi67  +++|          SX2    X6+24
26961  M01S00386.dsdi67  +++|          SX6    8           SET FIRST DIGIT FOR *SA* OR *SX* REGISTERS
26962  M01S00387.dsdi67  +++|          SA6    FW
26963  M01S00388.dsdi67  +++|          NZ     X2,TPF11    IF NOT *X* REGISTERS NEXT
26964  M01S00389.dsdi67  +++|          SA7    A6
26965  M01S00390.dsdi67  +++|          JP     TPF11       CHECK NEXT WORD
26966  M00S21887.dsdi    +++|
Line S21888 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26967  M01S21888.dsdi67  ---|*         LOCATE PROCESSOR HISTORY FILE (*PRH*) RECORD.
Line S00391 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26968  M01S00391.dsdi67  +++|*         PROCESS PROCESSOR HISTORY FILE (*PRH*) RECORD.
26969  M00S21889.dsdi    +++|
Line S21890 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26970  M01S21890.dsdi67  ---| TPF20    SA1    =3LPRH
26971  M01S21891.dsdi67  ---|          SA3    TPFA        NEXT DIRECTORY TABLE ENTRY POINTER (PRH)
26972  M01S21892.dsdi67  ---|          MX0    18
26973  M01S21893.dsdi67  ---|          SA2    X3
26974  M01S21894.dsdi67  ---|          NZ     X3,TPF21    IF FIRST RECORD
26975  M01S21895.dsdi67  ---|          SEARCH TDIR,X1,X0
26976  M01S21896.dsdi67  ---|          ZR     X2,ERR14    IF RECORD ID NOT IN DIRECTORY
26977  M01S21897.dsdi67  ---| TPF21    SA3    =3LPRH
26978  M01S21898.dsdi67  ---|          SB7    C.TDIR
26979  M01S21899.dsdi67  ---|          SB3    TPFA
26980  M01S21900.dsdi67  ---|          RJ     CNR         CHECK NEXT RECORD
26981  M01S21901.dsdi67  ---|          SA2    A2+B1       SET RANDOM INDEX
26982  M01S21902.dsdi67  ---|          BX6    X2
26983  M01S21903.dsdi67  ---|          SA6    RI
26984  M01S21904.dsdi67  ---|
26985  M01S21905.dsdi67  ---|*         POSITION DUMP FILE AND PRINT HEADER.
26986  M01S21906.dsdi67  ---|
26987  M01S21907.dsdi67  ---|          SX3    0
26988  M01S21908.dsdi67  ---|          RJ     PDF
26989  M01S21909.dsdi67  ---|          MX6    0           INITIALIZE WORD COUNT FOR BUFFER
26990  M01S21910.dsdi67  ---|          SA6    NXBA
26991  M01S21911.dsdi67  ---|          SA6    A6+B1
26992  M01S21912.dsdi67  ---|          RJ     SSB
26993  M01S21913.dsdi67  ---|          PRINT  (=2C  )
26994  M01S21914.dsdi67  ---|          PRINT  (=C* HISTORY FILE*)
26995  M01S21915.dsdi67  ---|
26996  M01S21916.dsdi67  ---|*         PRINT PROCESSOR HISTORY FILE.
26997  M01S21917.dsdi67  ---|
Line S00392 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
26998  M01S00392.dsdi67  +++| TPF12    PRINT  (=C* HISTORY FILE*)
26999  M00S21918.dsdi    +++|          SX6    B0
Line S21919 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27000  M01S21919.dsdi67  ---|          SA6    TPFA+2      REGISTER NUMBER
Line S00393 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27001  M01S00393.dsdi67  +++|          SA6    LW          REGISTER NUMBER
27002  M00S21920.dsdi    +++|          SA6    A6-B1       TABLE POINTER
Line S21921 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27003  M01S21921.dsdi67  ---| TPF22    SA2    A6
27004  M01S21922.dsdi67  ---|          SX3    2
27005  M01S21923.dsdi67  ---|          IX3    X3-X2
27006  M01S21924.dsdi67  ---|          PL     X3,TPF23    IF TABLE POINTER .LE. 2, GO ON
27007  M01S21925.dsdi67  ---|          SA2    TPFA+2      REGISTER NUMBER
Line S00394 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27008  M01S00394.dsdi67  +++| TPF13    SA2    FW
27009  M01S00395.dsdi67  +++|          SX7    X2-3
27010  M01S00396.dsdi67  +++|          NZ     X7,TPF15    IF NOT END OF REGISTER
27011  M01S00397.dsdi67  +++|          SA2    A2+B1       REGISTER NUMBER
Line S00012 Modification History
M01 (Added by) dsdi74a
Seq #  *Modification Id* Act 
----------------------------+
27012  M01S00012.dsdi74a +++|          ERRNZ  LW-FW-1     CODE REQUIRES CONTIGUOUS WORDS
Line S00398 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27013  M01S00398.dsdi67  +++|          SX6    X2+B1       INCREMENT REGISTER NUMBER
27014  M00S21926.dsdi    +++|          SX3    X2-15
Line S21927 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27015  M01S21927.dsdi67  ---|          ZR     X3,TPF26    IF END OF TABLE
27016  M01S21928.dsdi67  ---|          SX6    X2+B1       INCREMENT REGISTER NUMBER
27017  M01S21929.dsdi67  ---|          SA6    TPFA+2
27018  M01S21930.dsdi67  ---|          SX6    B0          RESET TABLE POINTER
27019  M01S21931.dsdi67  ---|          SA6    TPFA+1
Line S00399 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27020  M01S00399.dsdi67  +++|          ZR     X3,TPF17    IF END OF TABLE
27021  M01S00400.dsdi67  +++|          SA6    A2
27022  M01S00401.dsdi67  +++|          SA7    A6-B1       RESET TABLE POINTER
27023  M00S21932.dsdi    +++|          SB6    6
Line S21933 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27024  M01S21933.dsdi67  ---| TPF22.1  RJ     NXB         SKIP 6*16 BITS OF ZEROS
Line S00402 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27025  M01S00402.dsdi67  +++| TPF14    RJ     NXB         SKIP 6*16 BITS OF ZEROS
27026  M00S21934.dsdi    +++|          SB6    B6-B1
Line S21935 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27027  M01S21935.dsdi67  ---|          NZ     B6,TPF22.1  IF NOT THROUGH SKIPPING
27028  M01S21936.dsdi67  ---| TPF23    SA1    TPFA+2      REGISTER NUMBER
Line S00403 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27029  M01S00403.dsdi67  +++|          NZ     B6,TPF14    IF NOT THROUGH SKIPPING
27030  M01S00404.dsdi67  +++| TPF15    SA1    LW          REGISTER NUMBER
27031  M00S21937.dsdi    +++|          SB7    PRBF
27032  M00S21938.dsdi    +++|          SB6    B1
27033  M00S21939.dsdi    +++|          LX1    59-3
27034  M00S21940.dsdi    +++|          RJ     HTS         HEX TO STRING
Line S21941 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27035  M01S21941.dsdi67  ---|          SA1    TPFA+1      TABLE POINTER
Line S00405 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27036  M01S00405.dsdi67  +++|          SA1    FW          TABLE POINTER
27037  M00S21942.dsdi    +++|          SA2    TPFD+X1
Line S21943 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27038  M01S21943.dsdi67  ---|          MX0    -17         GET DESCRIPTOR
27039  M01S21944.dsdi67  ---|          BX2    -X0*X2
27040  M01S21945.dsdi67  ---|          SA2    X2
Line S00406 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27041  M01S00406.dsdi67  +++|          SX6    X1+B1       INCREMENT POINTER
27042  M01S00407.dsdi67  +++|          SA6    A1
27043  M00S21946.dsdi    +++|          SB7    PRBF+3
Line S21947 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27044  M01S21947.dsdi67  ---|          SB6    5
Line S00408 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27045  M01S00408.dsdi67  +++|          SB6    5+2
27046  M00S21948.dsdi    +++|          RJ     UPS
Line S21949 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27047  M01S21949.dsdi67  ---|          SB7    B7+2
27048  M00S21950.dsdi    +++|          SX5    3
Line S21951 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27049  M01S21951.dsdi67  ---|          NZ     X1,TPF25    IF *A* OR *P* REGISTER PART OF *HF* ENTRY
Line S00409 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27050  M01S00409.dsdi67  +++|          NZ     X1,TPF16    IF *A* OR *P* REGISTER
27051  M00S21952.dsdi    +++|          SX5    4
Line S21953 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27052  M01S21953.dsdi67  ---| TPF25    SA0    B7+2
Line S00410 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27053  M01S00410.dsdi67  +++| TPF16    SB7    B7+2
27054  M00S21954.dsdi    +++|          RJ     NXB
Line S21955 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27055  M01S21955.dsdi67  ---|          SB7    A0
27056  M00S21956.dsdi    +++|          SB6    4
27057  M00S21957.dsdi    +++|          LX1    59-15
Line S00411 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27058  M01S00411.dsdi67  +++|          SX5    X5-1
27059  M00S21958.dsdi    +++|          RJ     HTS
Line S21959 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27060  M01S21959.dsdi67  ---|          SX5    X5-1
27061  M01S21960.dsdi67  ---|          NZ     X5,TPF25    IF MORE REGISTER DATA TO DISPLAY
Line S00412 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27062  M01S00412.dsdi67  +++|          NZ     X5,TPF16    IF MORE REGISTER DATA TO DISPLAY
27063  M00S21961.dsdi    +++|          PRINT  CCCH,B7-CCCH+1
Line S21962 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27064  M01S21962.dsdi67  ---|          SA1    TPFA+1      INCREMENT TABLE POINTER
27065  M01S21963.dsdi67  ---|          SX6    X1+B1
27066  M01S21964.dsdi67  ---|          SA6    A1
27067  M01S21965.dsdi67  ---|          JP     TPF22       READ NEXT WORD IN TABLE
Line S00413 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27068  M01S00413.dsdi67  +++|          JP     TPF13       READ NEXT WORD IN TABLE
27069  M00S21966.dsdi    +++|
Line S21967 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27070  M01S21967.dsdi67  ---| TPF26    SA1    TPFA        NEXT DIRECTORY TABLE ENTRY POINTER
27071  M01S21968.dsdi67  ---|          NZ     X1,TPF20    IF MORE RECORDS TO DISPLAY
27072  M01S21969.dsdi67  ---|          EQ     TPFX        RETURN
27073  M01S21970.dsdi67  ---|
27074  M01S21971.dsdi67  ---| TPFA     CON    0           NEXT DIRECTORY TABLE ENTRY POINTER (PRF)
27075  M01S21972.dsdi67  ---|          CON    0           LOOP COUNTERS
27076  M01S21973.dsdi67  ---|          CON    0
27077  M01S21974.dsdi67  ---| TPFB     BSS    0
27078  M01S21975.dsdi67  ---|          SXREG     SSMR,(ACU M2 )
27079  M01S21976.dsdi67  ---|          SXREG   SSMR+1,(ACU M3 )
27080  M01S21977.dsdi67  ---|          SXREG   SSMR+2,(ACU M4 )
27081  M01S21978.dsdi67  ---|          SXREG   SSMR+3,(BDP    )
27082  M01S21979.dsdi67  ---|          SXREG   SSMR+4,(       )
27083  M01S21980.dsdi67  ---|          SXREG   SSMR+5,(EPN SCM)
27084  M01S21981.dsdi67  ---|          SXREG   SSMR+6,(EPN ETM)
27085  M01S21982.dsdi67  ---|          SXREG   SSMR+7,(IDU CS )
27086  M01S21983.dsdi67  ---|          SXREG   SSMR+8,(       )
27087  M01S21984.dsdi67  ---|          SXREG   SSMR+9,(INU MAP)
27088  M01S21985.dsdi67  ---|          SXREG  SSMR+10,(INU IBS)
27089  M01S21986.dsdi67  ---|          SXREG  SSMR+11,(LSU    )
27090  M01S21987.dsdi67  ---|          SXREG  SSMR+12,(SVA BN )
Line S00414 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27091  M01S00414.dsdi67  +++|
27092  M01S00415.dsdi67  +++| TPFA     CON    0           SECOND *PRF* POINTER
27093  M01S00416.dsdi67  +++|          CON    0           SECOND *PIS* POINTER
27094  M01S00417.dsdi67  +++|          CON    0           SECOND *PRG* POINTER
27095  M01S00418.dsdi67  +++|          CON    0           SECOND *PRH* POINTER
27096  M01S00419.dsdi67  +++| TPFB     DATA   C*ACU M2 *
27097  M01S00420.dsdi67  +++|          DATA   C*ACU M3 *
27098  M01S00421.dsdi67  +++|          DATA   C*ACU M4 *
27099  M01S00422.dsdi67  +++|          DATA   C*BDP    *
27100  M01S00423.dsdi67  +++|          DATA   C*       *
27101  M01S00424.dsdi67  +++|          DATA   C*EPN SCM*
27102  M01S00425.dsdi67  +++|          DATA   C*EPN ETM*
27103  M01S00426.dsdi67  +++|          DATA   C*IDU CS *
27104  M01S00427.dsdi67  +++|          DATA   C*       *
27105  M01S00428.dsdi67  +++|          DATA   C*INU MAP*
27106  M01S00429.dsdi67  +++|          DATA   C*INU IBS*
27107  M01S00430.dsdi67  +++|          DATA   C*LSU    *
27108  M01S00431.dsdi67  +++|          DATA   C*SVA BN *
27109  M00S21988.dsdi    +++|          CON    0
Line S21989 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27110  M01S21989.dsdi67  ---| TPFC     BSS    0
27111  M01S21990.dsdi67  ---|          SXREG     SSMR,( A)
27112  M01S21991.dsdi67  ---|          SXREG   SSMR+1,(SA)
27113  M01S21992.dsdi67  ---|          SXREG   SSMR+2,( X)
27114  M01S21993.dsdi67  ---|          SXREG   SSMR+3,(SX)
27115  M01S21994.dsdi67  ---|          CON    0
27116  M01S21995.dsdi67  ---| TPFD     BSS    0
27117  M01S21996.dsdi67  ---|          SXREG     SSMR,(X-REG)
27118  M01S21997.dsdi67  ---|          SXREG   SSMR+1,(A-REG)
27119  M01S21998.dsdi67  ---|          SXREG   SSMR+2,(P, N )
Line S00432 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27120  M01S00432.dsdi67  +++| TPFC     DATA   C* ASA XSX*
27121  M01S00433.dsdi67  +++| TPFD     DATA   C*X-REG*
27122  M01S00434.dsdi67  +++|          DATA   C*A-REG*
27123  M01S00435.dsdi67  +++|          DATA   C*P, N *
27124  M00S21999.dsdi    +++|          CON    0
Line S22000 Modification History
M01 (Removed by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27125  M01S22000.dsdi67  ---| TRT      SPACE  4,7
Line S00436 Modification History
M01 (Added by) dsdi67
Seq #  *Modification Id* Act 
----------------------------+
27126  M01S00436.dsdi67  +++| TPFE     VFD    18/3LPRF,24/0,18/TPF3
27127  M01S00437.dsdi67  +++|          VFD    18/3LPIS,24/0,18/TPF9
27128  M01S00438.dsdi67  +++|          VFD    18/3LPRG,24/0,18/TPF10
27129  M01S00439.dsdi67  +++|          VFD    18/3LPRH,24/0,18/TPF12
27130  M01S00440.dsdi67  +++| TRT      SPACE  4,15
27131  M00S22001.dsdi    +++|**        TRT - DUMP TRACK RESERVATION TABLE.
27132  M00S22002.dsdi    +++|*
27133  M00S22003.dsdi    +++|*         ENTRY  (BUF) = MST WORDS.
27134  M00S22004.dsdi    +++|*
27135  M00S22005.dsdi    +++|*         EXIT   BUF CONTAINS MST AND TRT.
27136  M00S22006.dsdi    +++|*
27137  M00S22007.dsdi    +++|*         USES   X - 1, 2, 3, 6, 7.
27138  M00S22008.dsdi    +++|*                A - 1, 2, 6, 7.
27139  M00S22009.dsdi    +++|*                B - 2, 5, 6, 7.
27140  M00S22010.dsdi    +++|*
27141  M00S22011.dsdi    +++|*         CALLS  CTS, FDW, POM, P4F, SDI, SRD, SSB.
27142  M00S22012.dsdi    +++|*
27143  M00S22013.dsdi    +++|*         MACROS GETCM, PRINT.
27144  M00S22014.dsdi    +++|
27145  M00S22015.dsdi    +++|
27146  M00S22016.dsdi    +++| TRT      SUBR
27147  M00S22017.dsdi    +++|          PRINT  (=2C  )
27148  M00S22018.dsdi    +++|          PRINT  (=C*          TRACK RESERVATION TABLE*)
27149  M00S22019.dsdi    +++|          PRINT  (=2C  )
27150  M00S22020.dsdi    +++|          SA1    BUF+TRLL    SET FWA OF TRT
27151  M00S22021.dsdi    +++|          SX6    X1
27152  M00S22022.dsdi    +++|          SA6    CPRA
27153  M00S22023.dsdi    +++|          SA6    FW
27154  M00S22024.dsdi    +++|          SB2    A6
27155  M00S22025.dsdi    +++|          RJ     POM         POSITION TO TRT
27156  M00S22026.dsdi    +++|          SA1    BUF+TDGL    SET TRT LENGTH
27157  M00S22027.dsdi    +++|          MX7    -12
27158  M00S22028.dsdi    +++|          AX1    24
27159  M00S22029.dsdi    +++|          BX7    -X7*X1
27160  M00S22030.dsdi    +++|          SA7    LW          SET TRT LWA+1
27161  M00S22031.dsdi    +++|          GETCM  BUF+MSTXL,X7  READ TRT INTO *BUF*
27162  M00S22032.dsdi    +++|          MX7    1
27163  M00S22033.dsdi    +++|          SA7    SRDA        PRESET FIRST CALL TO *SRD*
27164  M00S22034.dsdi    +++|          SX6    B0
27165  M00S22035.dsdi    +++|          SA6    TRTA        CLEAR LINK ORDINAL
27166  M00S22036.dsdi    +++|          SA6    TRTB        CLEAR DATA WORD ORDINAL
27167  M00S22037.dsdi    +++|          SA6    SRDC+7      STOP DASHES AFTER 70 CHARACTERS
27168  M00S22038.dsdi    +++|          RJ     SSB         CLEAR PRINT STRING
27169  M00S22039.dsdi    +++| TRT1     SA1    TRTB        SET DATA ADDRESS
27170  M00S22040.dsdi    +++|          SX1    X1+BUF+MSTXL
27171  M00S22041.dsdi    +++|          SB5    1           SET WORD COUNT
27172  M00S22042.dsdi    +++|          RJ     SRD         SENSE REPEAT DATA
27173  M00S22043.dsdi    +++|          NZ     X1,TRT2     IF REPEAT SENSED
27174  M00S22044.dsdi    +++|          SA1    FW          GET TRT ADDRESS
27175  M00S22045.dsdi    +++|          SA2    TRTB
27176  M00S22046.dsdi    +++|          IX1    X1+X2
27177  M00S22047.dsdi    +++|          LX1    -18
27178  M00S22048.dsdi    +++|          SB6    6
27179  M00S22049.dsdi    +++|          SB7    PRBF
27180  M00S22050.dsdi    +++|          RJ     CTS         CONVERT TRT ADDRESS
27181  M00S22051.dsdi    +++|          SB7    B7+B1
27182  M00S22052.dsdi    +++|          SX6    1R+
27183  M00S22053.dsdi    +++|          SA6    B7
27184  M00S22054.dsdi    +++|          SB7    B7+B1
27185  M00S22055.dsdi    +++|          SA1    TRTA        LINK ORDINAL
27186  M00S22056.dsdi    +++|          LX1    -12
27187  M00S22057.dsdi    +++|          SB6    4
27188  M00S22058.dsdi    +++|          RJ     CTS         CONVERT LINK ORDINAL
27189  M00S22059.dsdi    +++|          SB7    B7+2
27190  M00S22060.dsdi    +++|          SA2    =4000005B
27191  M00S22061.dsdi    +++|          SA1    TRTB        READ TRT DATA WORD
27192  M00S22062.dsdi    +++|          SA1    X1+BUF+MSTXL
27193  M00S22063.dsdi    +++|          RJ     FDW         FORMAT DATA WORD
27194  M00S22064.dsdi    +++|          SB7    B7+B1
27195  M00S22065.dsdi    +++|          LX1    -12
27196  M00S22066.dsdi    +++|          RJ     P4F         LIST FIRST TRACK DIRECT FILE FLAGS
27197  M00S22067.dsdi    +++|          SB7    B7+1
27198  M00S22068.dsdi    +++|          RJ     P4F         LIST INTERLOCK FLAGS
27199  M00S22069.dsdi    +++|          SB7    B7+1
27200  M00S22070.dsdi    +++|          RJ     P4F         LIST RESERVATION FLAGS
27201  M00S22071.dsdi    +++|          SA2    TRTB        RE-READ DATA WORD
27202  M00S22072.dsdi    +++|          SA2    X2+BUF+MSTXL
27203  M00S22073.dsdi    +++|          SB7    B7+2
27204  M00S22074.dsdi    +++|          SB6    10
27205  M00S22075.dsdi    +++|          RJ     SDI         SET DISPLAY CODE INTERPRETATION
27206  M00S22076.dsdi    +++|          PRINT  CCCH,B7-CCCH
27207  M00S22077.dsdi    +++| TRT2     SA1    TRTA
27208  M00S22078.dsdi    +++|          SX6    X1+4
27209  M00S22079.dsdi    +++|          SA6    A1+         UPDATE TRACK ORDINAL
27210  M00S22080.dsdi    +++|          SA1    TRTB
27211  M00S22081.dsdi    +++|          SX6    X1+B1
27212  M00S22082.dsdi    +++|          SA6    A1+         UPDATE TRT ADDRESS
27213  M00S22083.dsdi    +++|          SA2    LW
27214  M00S22084.dsdi    +++|          IX3    X6-X2
27215  M00S22085.dsdi    +++|          NG     X3,TRT1     IF MORE TO DUMP
27216  M00S22086.dsdi    +++|          SA1    SRDC+1
27217  M00S22087.dsdi    +++|          BX6    X1
27218  M00S22088.dsdi    +++|          SA6    SRDC+7      PRESET DASHES FOR 136 CHARACTERS
27219  M00S22089.dsdi    +++|          JP     TRTX        EXIT
27220  M00S22090.dsdi    +++|
27221  M00S22091.dsdi    +++| TRTA     BSS    1           TRACK LINK ORDINAL
27222  M00S22092.dsdi    +++| TRTB     BSS    1           TRT DATA WORD ORDINAL
27223  M00S22093.dsdi    +++| UCS      SPACE  4,15
27224  M00S22094.dsdi    +++|**        UCS - UNPACK CHARACTER STRING.
27225  M00S22095.dsdi    +++|*         STRING IS DELIMITED BY 00 CHARACTER.
27226  M00S22096.dsdi    +++|*
27227  M00S22097.dsdi    +++|*         ENTRY  (A2) = FWA OF PACKED DATA.
27228  M00S22098.dsdi    +++|*                (X2) = FIRST WORD OF PACKED DATA.
27229  M00S22099.dsdi    +++|*                (B7) = FWA OF STRING BUFFER.
27230  M00S22100.dsdi    +++|*
27231  M00S22101.dsdi    +++|*         EXIT   (A2) = UPDATED.
27232  M00S22102.dsdi    +++|*                (B7) = UPDATED.
27233  M00S22103.dsdi    +++|*
27234  M00S22104.dsdi    +++|*         USES   X - 0, 2, 6.
27235  M00S22105.dsdi    +++|*                B - 5, 7.
27236  M00S22106.dsdi    +++|*                A - 2, 6.
27237  M00S22107.dsdi    +++|
27238  M00S22108.dsdi    +++|
27239  M00S22109.dsdi    +++| UCS      SUBR               ENTRY/EXIT
27240  M00S22110.dsdi    +++| UCS1     SX0    77B         CHARACTER MASK
27241  M00S22111.dsdi    +++|          SB5    10          CHARACTER COUNT
27242  M00S22112.dsdi    +++| UCS2     LX2    6
27243  M00S22113.dsdi    +++|          BX6    X0*X2
27244  M00S22114.dsdi    +++|          ZR     X6,UCSX     IF DELIMITER
27245  M00S22115.dsdi    +++|          SB5    B5-B1
27246  M00S22116.dsdi    +++|          SA6    B7          STORE CHARACTER
27247  M00S22117.dsdi    +++|          SB7    B7+B1       ADVANCE OUTPUT STRING POINTER
27248  M00S22118.dsdi    +++|          NZ     B5,UCS2     IF MORE CHARACTERS IN THIS WORD
27249  M00S22119.dsdi    +++|          SA2    A2+1        READ NEXT WORD OF PACKED DATA
27250  M00S22120.dsdi    +++|          EQ     UCS1        CONTINUE UNPACKING CHARACTER STRING
27251  M00S22121.dsdi    +++| UPS      SPACE  4,13
27252  M00S22122.dsdi    +++|**        UPS - UNPACK CHARACTERS TO STRING BUFFER.
27253  M00S22123.dsdi    +++|*         COLONS ARE REPLACED WITH SPACES.
27254  M00S22124.dsdi    +++|*
27255  M00S22125.dsdi    +++|*         ENTRY  A2 = FWA OF PACKED BUFFER.
27256  M00S22126.dsdi    +++|*                X2 = FIRST WORD OF PACKED DATA.
27257  M00S22127.dsdi    +++|*                B6 = NUMBER OF CHARACTERS TO UNPACK.
27258  M00S22128.dsdi    +++|*                B7 = FWA OF STRING BUFFER.
27259  M00S22129.dsdi    +++|*
27260  M00S22130.dsdi    +++|*         EXIT   A2 AND B7 ARE UPDATED.
27261  M00S22131.dsdi    +++|*
27262  M00S22132.dsdi    +++|*         USES   X - 0,2,6.
27263  M00S22133.dsdi    +++|*                B - 5,6,7.
27264  M00S22134.dsdi    +++|*                A - 2,6.
27265  M00S22135.dsdi    +++|
27266  M00S22136.dsdi    +++|
27267  M00S22137.dsdi    +++| UPS      SUBR
27268  M00S22138.dsdi    +++| UPS1     SX0    77B         CHARACTER MASK
27269  M00S22139.dsdi    +++|          SB5    10          CHARACTER COUNTER
27270  M00S22140.dsdi    +++| UPS2     LX2    6
27271  M00S22141.dsdi    +++|          BX6    X0*X2
27272  M00S22142.dsdi    +++|          SB6    B6-B1       DECREASE COUNT
27273  M00S22143.dsdi    +++|          SB5    B5-B1
27274  M00S22144.dsdi    +++|          NZ     X6,UPS3     IF NOT COLON CODE
27275  M00S22145.dsdi    +++|          SX6    1R          REPLACE COLON WITH SPACE
27276  M00S22146.dsdi    +++| UPS3     SA6    B7          STORE CHARACTER
27277  M00S22147.dsdi    +++|          SB7    B7+B1       ADVANCE OUTPUT STRING POINTER
27278  M00S22148.dsdi    +++|          ZR     B6,UPSX     IF NO MORE CHARACTERS TO UNPACK
27279  M00S22149.dsdi    +++|          NZ     B5,UPS2     IF MORE CHARACTERS IN THIS WORD
27280  M00S22150.dsdi    +++|          SA2    A2+1        READ NEXT WORD OF PACKED DATA
27281  M00S22151.dsdi    +++|          EQ     UPS1        CONTINUE
27282  M00S22152.dsdi    +++| UPW      SPACE  4,15
27283  M00S22153.dsdi    +++|**        UPW - UNPACK 60 BIT WORDS FROM 64 BIT WORDS.
27284  M00S22154.dsdi    +++|*
27285  M00S22155.dsdi    +++|*         ENTRY  FILE POSITIONED AT NEXT 16 WORD BLOCK.
27286  M00S22156.dsdi    +++|*
27287  M00S22157.dsdi    +++|*         EXIT   UBUF FILLED WITH 60 BIT WORDS.
27288  M00S22158.dsdi    +++|*                (X1) = FILE STATUS.
27289  M00S22159.dsdi    +++|*
27290  M00S22160.dsdi    +++|*         USES   X - 2, 3, 6, 7.
27291  M00S22161.dsdi    +++|*                A - 3, 6.
27292  M00S22162.dsdi    +++|*                B - 2.
27293  M00S22163.dsdi    +++|*
27294  M00S22164.dsdi    +++|*         MACROS READW.
27295  M00S22165.dsdi    +++|
27296  M00S22166.dsdi    +++|
27297  M00S22167.dsdi    +++| UPW      SUBR               ENTRY/EXIT
27298  M00S22168.dsdi    +++|          READW  S,UBUF,16
27299  M00S22169.dsdi    +++|          SB2    B0
27300  M00S22170.dsdi    +++|          MX2    4
27301  M00S22171.dsdi    +++|          SA3    UBUF
27302  M00S22172.dsdi    +++| UPW1     BX6    -X2*X3
27303  M00S22173.dsdi    +++|          SA3    A3+B1       GET SECOND PART OF WORD
27304  M00S22174.dsdi    +++|          BX7    X2*X3
27305  M00S22175.dsdi    +++|          BX6    X6+X7       FORM 60-BIT WORD
27306  M00S22176.dsdi    +++|          SB2    B2+4
27307  M00S22177.dsdi    +++|          LX6    B2
27308  M00S22178.dsdi    +++|          SA6    A3
27309  M00S22179.dsdi    +++|          ZR     X2,UPWX     IF BLOCK UNPACKED
27310  M00S22180.dsdi    +++|          AX2    4
27311  M00S22181.dsdi    +++|          EQ     UPW1        EXTRACT NEXT 60-BIT WORD
27312  M00S22182.dsdi    +++| VOL      SPACE  4,10
27313  M00S22183.dsdi    +++|**        VOL - CHECK RECORD FOR TAPE VOLUME HEADER.
27314  M00S22184.dsdi    +++|*
27315  M00S22185.dsdi    +++|*         ENTRY  FROM *DRT*.
27316  M00S22186.dsdi    +++|*
27317  M00S22187.dsdi    +++|*         EXIT   TO *OTH* IF NOT FIRST RECORD.
27318  M00S22188.dsdi    +++|*                TO ERR46 IF FIRST RECORD.
27319  M00S22189.dsdi    +++|
27320  M00S22190.dsdi    +++| VOL      BSS    0
27321  M00S22191.dsdi    +++|          SA1    L.TDIR
27322  M00S22192.dsdi    +++|          NZ     X1,OTH      IF NOT FIRST RECORD
27323  M00S22193.dsdi    +++|          EQ     ERR46       DISPLAY MESSAGE AND ABORT
27324  M00S22194.dsdi    +++| WBS      SPACE  4,15
27325  M00S22195.dsdi    +++|**        WBS - WRITE BLOCK TO FILE *S*.
27326  M00S22196.dsdi    +++|*
27327  M00S22197.dsdi    +++|*         ENTRY  (BWCS) = NUMBER OF WORDS TO WRITE.
27328  M00S22198.dsdi    +++|*
27329  M00S22199.dsdi    +++|*         EXIT   (RWCS) = UPDATED.
27330  M00S22200.dsdi    +++|*
27331  M00S22201.dsdi    +++|*         USES   A - 1, 5, 6.
27332  M00S22202.dsdi    +++|*                X - 1, 5, 6.
27333  M00S22203.dsdi    +++|*
27334  M00S22204.dsdi    +++|*         MACROS WRITEW.
27335  M00S22205.dsdi    +++|
27336  M00S22206.dsdi    +++|
27337  M00S22207.dsdi    +++| WBS      SUBR               ENTRY/EXIT
27338  M00S22208.dsdi    +++|          SA5    BWCS        WORD COUNT
27339  M00S22209.dsdi    +++|          WRITEW S,BUF,X5    WRITE BLOCK
27340  M00S22210.dsdi    +++|          SA1    RWCS        UPDATE RECORD SIZE
27341  M00S22211.dsdi    +++|          IX6    X1+X5
27342  M00S22212.dsdi    +++|          SA6    A1
27343  M00S22213.dsdi    +++|          EQ     WBSX        RETURN
27344  M00S22214.dsdi    +++|
27345  M00S22215.dsdi    +++|
27346  M00S22216.dsdi    +++| BWCS     CON    0           BLOCK WORD COUNT
27347  M00S22217.dsdi    +++| RWCS     CON    0           RECORD WORD COUNT
27348  M00S22218.dsdi    +++| WOF      SPACE  4,12
27349  M00S22219.dsdi    +++|**        WOF - WRITE LINE TO OUTPUT.
27350  M00S22220.dsdi    +++|*
27351  M00S22221.dsdi    +++|*         ENTRY  X1 = FWA OF LINE.
27352  M00S22222.dsdi    +++|*                X2 = WORD COUNT IF LINE IS IN *S* FORMAT.
27353  M00S22223.dsdi    +++|*                   = 0 IF LINE IS IN *C* FORMAT.
27354  M00S22224.dsdi    +++|*                CCCH = CARRIAGE CONTROL CHARACTER RIGHT JUSTIFIED.
27355  M00S22225.dsdi    +++|*
27356  M00S22226.dsdi    +++|*         SAVES  X - 0,5.
27357  M00S22227.dsdi    +++|*                B - NONE.
27358  M00S22228.dsdi    +++|*                A - 0,5.
27359  M00S22229.dsdi    +++|*
27360  M00S22230.dsdi    +++|*         CALLS  CDD.
27361  M00S22231.dsdi    +++|*
27362  M00S22232.dsdi    +++|*         MACROS CLOCK, WRITEC, WRITES, WRITEW.
27363  M00S22233.dsdi    +++|
27364  M00S22234.dsdi    +++|
27365  M00S22235.dsdi    +++| WOF      SUBR
27366  M00S22236.dsdi    +++|          SA3    TF          CHECK FOR TERMINAL OUTPUT
27367  M00S22237.dsdi    +++|          ZR     X3,WOF1     IF NOT TO TERMINAL
27368  M00S22238.dsdi    +++|          ZR     X2,WOF3     IF *C* FORMAT
27369  M00S22239.dsdi    +++|          SB7    X2          CHARACTER COUNT
27370  M00S22240.dsdi    +++|          SA2    OF
27371  M00S22241.dsdi    +++|          WRITES X2,X1,B7
27372  M00S22242.dsdi    +++|          SX6    1R
27373  M00S22243.dsdi    +++|          SA6    CCCH
27374  M00S22244.dsdi    +++|          EQ     WOFX        RETURN
27375  M00S22245.dsdi    +++|
27376  M00S22246.dsdi    +++| WOF1     SA3    LC          ADVANCE LINE COUNT
27377  M00S22247.dsdi    +++|          SX6    X3+B1
27378  M00S22248.dsdi    +++|          SA6    A3
27379  M00S22249.dsdi    +++|          SA4    PD          NUMBER OF LINES PER PAGE
27380  M00S22250.dsdi    +++|          IX7    X3-X4
27381  M00S22251.dsdi    +++|          NG     X7,WOF2     IF BOTTOM OF PAGE NOT REACHED
27382  M00S22252.dsdi    +++|          BX6    X1          SAVE REQUEST
27383  M00S22253.dsdi    +++|          LX7    X2
27384  M00S22254.dsdi    +++|          SA6    WOFA
27385  M00S22255.dsdi    +++|          SA7    A6+1
27386  M00S22256.dsdi    +++|          SA1    PN          ADVANCE PAGE NUMBER
27387  M00S22257.dsdi    +++|          SX6    B1          RESET LINE COUNT
27388  M00S22258.dsdi    +++|          SX7    X1+B1
27389  M00S22259.dsdi    +++|          SA6    A3
27390  M00S22260.dsdi    +++|          SA7    A1
27391  M00S22261.dsdi    +++|          RJ     CDD         CONVERT PAGE NUMBER
27392  M00S22262.dsdi    +++|          MX1    -12
27393  M00S22263.dsdi    +++|          LX6    4*6         STORE PAGE NUMBER
27394  M00S22264.dsdi    +++|          BX6    X1*X6
27395  M00S22265.dsdi    +++|          SA6    PAGE
27396  M00S22266.dsdi    +++|          CLOCK  TIMM
27397  M00S22267.dsdi    +++|          SA2    OF
27398  M00S22268.dsdi    +++|          WRITEW X2,TITL,TITLL
27399  M00S22269.dsdi    +++|          WRITEW X2,SBTL,SBTLL
27400  M00S22270.dsdi    +++|          SA1    WOFA        RESTORE REQUEST
27401  M00S22271.dsdi    +++|          SA2    A1+1
27402  M00S22272.dsdi    +++| WOF2     NZ     X2,WOF4     IF *S* FORMAT
27403  M00S22273.dsdi    +++|          SA2    CCCH        CARRIAGE CONTROL CHARACTER
27404  M00S22274.dsdi    +++|          SA3    X1          READ FIRST WORD OF OUTPUT LINE
27405  M00S22275.dsdi    +++|          MX4    6
27406  M00S22276.dsdi    +++|          BX6    -X4*X3
27407  M00S22277.dsdi    +++|          LX2    -6
27408  M00S22278.dsdi    +++|          BX6    X6+X2       MERGE CARRIAGE CONTROL CHARACTER
27409  M00S22279.dsdi    +++|          SA6    X1+         UPDATE OUTPUT LINE
27410  M00S22280.dsdi    +++| WOF3     SA2    OF
27411  M00S22281.dsdi    +++|          WRITEC X2,X1
27412  M00S22282.dsdi    +++|          JP     WOFX        EXIT
27413  M00S22283.dsdi    +++|
27414  M00S22284.dsdi    +++| WOF4     SB7    X2
27415  M00S22285.dsdi    +++|          SA2    OF
27416  M00S22286.dsdi    +++|          WRITES X2,X1,B7
27417  M00S22287.dsdi    +++|          JP     WOFX        EXIT
27418  M00S22288.dsdi    +++|
27419  M00S22289.dsdi    +++| WOFA     DATA   0,0
27420  M00S22290.dsdi    +++| XPH      SPACE  4,13
27421  M00S22291.dsdi    +++|**        XPH - SET XP DIRECTIVE HEADER.
27422  M00S22292.dsdi    +++|*
27423  M00S22293.dsdi    +++|*         ENTRY  X5 = CURRENT CPU DIRECTORY WORD.
27424  M00S22294.dsdi    +++|*                A5 = ADDRESS OF CURRENT CPU DIRECTORY WORD.
27425  M00S22295.dsdi    +++|*                A0 = ADDRESS OF WHERE TO STORE EXCHANGE PACKAGE.
27426  M00S22296.dsdi    +++|*                B7 = PRINT STRING ADDRESS.
27427  M00S22297.dsdi    +++|*
27428  M00S22298.dsdi    +++|*         EXIT   X6 = CPU ON/OFF FLAG.
27429  M00S22299.dsdi    +++|*                A5 IS UPDATED TO RANDOM INDEX WORD.
27430  M00S22300.dsdi    +++|*
27431  M00S22301.dsdi    +++|*         USES   ALL REGISTERS.
27432  M00S22302.dsdi    +++|*
27433  M00S22303.dsdi    +++|*         CALLS  PDF,RDW=,UPS.
27434  M00S22304.dsdi    +++|
27435  M00S22305.dsdi    +++|
27436  M00S22306.dsdi    +++| XPH      SUBR
27437  M00S22307.dsdi    +++|          SA2    =21HHARDWARE REGISTERS -
27438  M00S22308.dsdi    +++|          SB6    21
27439  M00S22309.dsdi    +++|          RJ     UPS
27440  M00S22310.dsdi    +++|          SX6    X5
27441  M00S22311.dsdi    +++|          SA5    A5+B1
27442  M00S22312.dsdi    +++|          ZR     X6,XPH1     IF CPU IS ON
27443  M00S22313.dsdi    +++|          SA2    =3HOFF
27444  M00S22314.dsdi    +++|          SB6    3
27445  M00S22315.dsdi    +++|          RJ     UPS
27446  M00S22316.dsdi    +++|          JP     XPH2
27447  M00S22317.dsdi    +++|
27448  M00S22318.dsdi    +++| XPH1     SA2    =2HON
27449  M00S22319.dsdi    +++|          SB6    2
27450  M00S22320.dsdi    +++|          RJ     UPS
27451  M00S22321.dsdi    +++|          BX6    X5
27452  M00S22322.dsdi    +++|          SX3    B1
27453  M00S22323.dsdi    +++|          SA6    RI
27454  M00S22324.dsdi    +++|          RJ     PDF         POSITION TO EXCHANGE PACKAGE
27455  M00S22325.dsdi    +++|          READW  S,A0,20B
27456  M00S22326.dsdi    +++| XPH2     SA1    A5-B1
27457  M00S22327.dsdi    +++|          SX6    X1          SET CPU ON/OFF
27458  M00S22328.dsdi    +++|          JP     XPHX        EXIT
27459  M00S22329.dsdi    +++|          TITLE  TABLES.
27460  M00S22330.dsdi    +++| TLPP     SPACE  4,10
27461  M00S22331.dsdi    +++|**        TLPP - TABLE OF LOGICAL PP NUMBERS.
27462  M00S22332.dsdi    +++|*
27463  M00S22333.dsdi    +++|*         ONE WORD ENTRY FOR EACH PP CONTAINING THE CURRENT LOGICAL
27464  M00S22334.dsdi    +++|*         PP NUMBER FOR THAT PP.
27465  M00S22335.dsdi    +++|
27466  M00S22336.dsdi    +++|
27467  M00S22337.dsdi    +++| TLPP     CON    0           PP00
27468  M00S22338.dsdi    +++|          CON    1           PP01
27469  M00S22339.dsdi    +++|          CON    2           PP02
27470  M00S22340.dsdi    +++|          CON    3           PP03
27471  M00S22341.dsdi    +++|          CON    4           PP04
27472  M00S22342.dsdi    +++|          CON    5           PP05
27473  M00S22343.dsdi    +++|          CON    6           PP06
27474  M00S22344.dsdi    +++|          CON    7           PP07
27475  M00S22345.dsdi    +++|          CON    10B         PP10
27476  M00S22346.dsdi    +++|          CON    11B         PP11
27477  M00S22347.dsdi    +++|          CON    20B         PP20
27478  M00S22348.dsdi    +++|          CON    21B         PP21
27479  M00S22349.dsdi    +++|          CON    22B         PP22
27480  M00S22350.dsdi    +++|          CON    23B         PP23
27481  M00S22351.dsdi    +++|          CON    24B         PP24
27482  M00S22352.dsdi    +++|          CON    25B         PP25
27483  M00S22353.dsdi    +++|          CON    26B         PP26
27484  M00S22354.dsdi    +++|          CON    27B         PP27
27485  M00S22355.dsdi    +++|          CON    30B         PP30
27486  M00S22356.dsdi    +++|          CON    31B         PP31
27487  M00S22357.dsdi    +++|          SPACE  4
27488  M00S22358.dsdi    +++|          USE    END         FORCE LITERALS
27489  M00S22359.dsdi    +++|          IDENT
27490  M00S22360.dsdi    +++|          SEG
27491  M00S22361.dsdi    +++| END      BSS    0           END OF PROGRAM BINARY
27492  M00S22362.dsdi    +++|          TITLE  BUFFERS AND TABLE SPACE.
27493  M00S22363.dsdi    +++| BUFFERS  SPACE  4
27494  M00S22364.dsdi    +++|**        MISCELLANEOUS WORKING BUFFERS.
27495  M00S22365.dsdi    +++|
27496  M00S22366.dsdi    +++|
27497  M00S22367.dsdi    +++| BUF      BSS    1002B       BINARY WORKING BUFFER
27498  M00S22368.dsdi    +++| BUFL     EQU    *-BUF
27499  M00S22369.dsdi    +++|
27500  M00S22370.dsdi    +++| USBB     BSS    0           STRING BUFFER
27501  M00S22371.dsdi    +++| CHAR     BSS    81          DIRECTIVE CARD STRING BUFFER
27502  M00S22372.dsdi    +++|
27503  M00S22373.dsdi    +++| PBUF     BSS    10000B/5+1  PPU DATA BUFFER
27504  M00S22374.dsdi    +++| PBUFL    EQU    *-PBUF
27505  M00S22375.dsdi    +++|
27506  M00S22376.dsdi    +++| IUBUFL1  EQU    0#1000*16/60+4  4K PRINT BUFFER LENGTH
27507  M00S22377.dsdi    +++| IUBUFL2  EQU    0#2000*16/60+2  8K PRINT BUFFER LENGTH
27508  M00S22378.dsdi    +++| IUBUFL3  EQU    0#10600*16/60+2
27509  M00S22379.dsdi    +++| IUBUFL4  EQU    0#4000*16/60+2  16K PRINT BUFFER LENGTH
27510  M00S22380.dsdi    +++|
Line S22381 Modification History
M01 (Removed by) dsdi56
Seq #  *Modification Id* Act 
----------------------------+
27511  M01S22381.dsdi56  ---| MRBF     EQU    PBUF        MAINTENANCE REGISTER BUFFER
Line S00309 Modification History
M01 (Added by) dsdi56
M02 (Removed by) dsdi68
Seq #  *Modification Id* Act 
----------------------------+
27512  M02S00309.dsdi68  ---| PSAV     EQU    PBUF+IUBUFL2  PP SAVE AREA BUFFER
27513  M02S00310.dsdi68  ---| MRBF     EQU    PSAV+PPSA   MAINTENANCE REGISTER BUFFER
Line S22382 Modification History
M01 (Removed by) dsdi68
Seq #  *Modification Id* Act 
----------------------------+
27514  M01S22382.dsdi68  ---|          BSS    IUBUFL3-PBUFL
Line S00050 Modification History
M01 (Added by) dsdi68
Seq #  *Modification Id* Act 
----------------------------+
27515  M01S00050.dsdi68  +++|          BSS    IUBUFL2-PBUFL
27516  M01S00051.dsdi68  +++| MRBF     BSS    8
27517  M01S00052.dsdi68  +++| PSAV     BSS    PPSA
27518  M00S22383.dsdi    +++|
27519  M00S22384.dsdi    +++| CCCH     BSS    1           CARRIAGE CONTROL CHARACTER
27520  M00S22385.dsdi    +++| PRBF     BSS    136         OUTPUT PRINT STRING BUFFER
27521  M00S22386.dsdi    +++|
27522  M00S22387.dsdi    +++| SSBF     BSS    0           SUBSYSTEM LOW CORE WORKING BUFFER
Line S22388 Modification History
M01 (Removed by) dsdi55
Seq #  *Modification Id* Act 
----------------------------+
27523  M01S22388.dsdi55  ---| SSBFL    MAX    /BIO/BUFR+1,/MTX/UQUE+1,/REM/TXORG+1
Line S00094 Modification History
M01 (Added by) dsdi55
Seq #  *Modification Id* Act 
----------------------------+
27524  M01S00094.dsdi55  +++| SSBFL    MAX    /BIO/BUFR+1,/MTX/TVSP+1,/REM/TXORG+1
27525  M00S22389.dsdi    +++|          BSS    SSBFL
27526  M00S22390.dsdi    +++|
27527  M00S22391.dsdi    +++| UBUF     BSS    16          UNPACK BUFFER
27528  M00S22392.dsdi    +++|          SPACE  4
27529  M00S22393.dsdi    +++|**        FILE BUFFERS AND TABLE SPACE.
27530  M00S22394.dsdi    +++|
27531  M00S22395.dsdi    +++|
27532  M00S22396.dsdi    +++| IBUF     BSS    IBUFL       DIRECTIVE INPUT FILE BUFFER
27533  M00S22397.dsdi    +++| JBUF     BSS    JBUFL       ALTERNATE INPUT FILE BUFFER
27534  M00S22398.dsdi    +++| OBUF     BSS    OBUFL       LIST OUTPUT FILE BUFFER
27535  M00S22399.dsdi    +++| ABUF     BSS    ABUFL       ALTERNATE OUTPUT FILE BUFFER
27536  M00S22400.dsdi    +++| FBUF     BSS    FBUFL       DUMP INPUT FILE BUFFER
27537  M00S22401.dsdi    +++| SBUF     BSS    SBUFL       BINARY SCRATCH FILE BUFFER
27538  M00S22402.dsdi    +++| BBUF     BSS    BBUFL       BML MAINTENANCE REGISTER FILE BUFFER
27539  M00S22403.dsdi    +++|
27540  M00S22404.dsdi    +++| MEML     BSS    TMIN+10B    MANAGED TABLE SPACE
27541  M00S22405.dsdi    +++| MFL=     BSS    0           MINIMUM FL NEEDED FOR EXECUTION
27542  M00S22406.dsdi    +++|
27543  M00S22407.dsdi    +++|          ORG    END
27544  M00S22408.dsdi    +++|          SPACE  4
27545  M00S22409.dsdi    +++|          END
cdc/nos2.source/opl.opl871/deck/dsdi.017.txt ยท Last modified: by 127.0.0.1