User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:pfload.005

Deck PFLOAD Part 005

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S01470 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02810  M02S01470.286l859 ---|          SX1    B5          UPDATE BLOCK WORD COUNT
Line S01471 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02811  M02S01471.286l859 ---|          IX7    X3-X1
Line S01472 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02812  M02S01472.286l859 ---|          SA7    A3
Line S01473 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02813  M02S01473.286l859 ---|          READW  X2,B6,B5    TRANSFER DATA TO WORKING BUFFER
Line S01474 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02814  M02S01474.286l859 ---|          SA1    CWRA        RESTORE WORKING BUFFER LENGTH
Line S01475 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02815  M02S01475.286l859 ---|          SB7    B7+X1
Line S01476 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02816  M02S01476.286l859 ---|          EQ     CWR1        FILL REMAINDER OF WORKING BUFFER
Line S01477 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02817  M02S01477.286l859 ---|
Line S01478 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02818  M02S01478.286l859 ---|*         SAVE WORKING BUFFER PARAMETERS.
Line S01479 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02819  M02S01479.286l859 ---|
Line S01480 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02820  M02S01480.286l859 ---| CWR3     SX6    B7          SAVE WORKING BUFFER LENGTH
Line S01481 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02821  M02S01481.286l859 ---|          SX7    B6          SAVE WORKING BUFFER ADDRESS
Line S01482 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02822  M02S01482.286l859 ---|          SA6    CWRA
Line S01483 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02823  M02S01483.286l859 ---|          SA7    A6+B1
Line S01484 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02824  M02S01484.286l859 ---|          LX3    -18
Line S01485 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02825  M02S01485.286l859 ---|          ZR     B5,CWR9     IF SECOND CONTROL WORD LEFT
Line S01486 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02826  M02S01486.286l859 ---|
Line S01487 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02827  M02S01487.286l859 ---|*         PROCESS FIRST CONTROL WORD.
Line S01488 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02828  M02S01488.286l859 ---|
Line S01489 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02829  M02S01489.286l859 ---| CWR4     SA4    CWRC
Line S01490 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02830  M02S01490.286l859 ---|          PL     X4,CWR5     IF LAST BLOCK NOT BAD
Line S01491 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02831  M02S01491.286l859 ---|          RECALL X2
Line S01492 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02832  M02S01492.286l859 ---|          SA3    X2          CLEAR ERROR STATUS
Line S01493 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02833  M02S01493.286l859 ---|          SX6    36000B
Line S01494 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02834  M02S01494.286l859 ---|          BX6    -X6*X3
Line S01495 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02835  M02S01495.286l859 ---|          SA6    A3
Line S01496 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02836  M02S01496.286l859 ---| CWR5     READW  X2,CWRB,1   READ FIRST CONTROL WORD
Line S01497 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02837  M02S01497.286l859 ---|          SA3    CWRA        RESTORE WORKING BUFFER LENGTH
Line S01498 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02838  M02S01498.286l859 ---|          SA4    A3+B1       RESTORE WORKING BUFFER ADDRESS
Line S01499 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02839  M02S01499.286l859 ---|          SB5    B7          SAVE TRANSFER COMPLETE STATUS
Line S01500 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02840  M02S01500.286l859 ---|          SB7    X3
Line S01501 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02841  M02S01501.286l859 ---|          SB6    X4
Line S01502 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02842  M02S01502.286l859 ---|          NZ     B5,CWR7     IF CONTROL WORD NOT READ
Line S01503 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02843  M02S01503.286l859 ---|          SA1    CWRB        BLOCK SIZE = BYTE COUNT / 5
Line S01504 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02844  M02S01504.286l859 ---|          SX6    5
Line S01505 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02845  M02S01505.286l859 ---|          SX3    X1
Line S01506 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02846  M02S01506.286l859 ---|          PX3    X3
Line S01507 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02847  M02S01507.286l859 ---|          PX6    X6
Line S01508 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02848  M02S01508.286l859 ---|          NX6    X6
Line S01509 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02849  M02S01509.286l859 ---|          FX7    X3/X6
Line S01510 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02850  M02S01510.286l859 ---|          UX7,B5 X7
Line S01511 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02851  M02S01511.286l859 ---|          LX7    X7,B5
Line S01512 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02852  M02S01512.286l859 ---|          MX4    1           SAVE ERROR FLAG
Line S01513 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02853  M02S01513.286l859 ---|          BX3    X4*X1
Line S01514 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02854  M02S01514.286l859 ---|          LX1    -36         GET PRU SIZE
Line S01515 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02855  M02S01515.286l859 ---|          SX6    X7+B1       ALLOW FOR SECOND CONTROL WORD
Line S01516 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02856  M02S01516.286l859 ---|          SX1    X1
Line S01517 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02857  M02S01517.286l859 ---|          IX7    X7-X1       CHECK FOR SHORT BLOCK
Line S01518 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02858  M02S01518.286l859 ---|          BX6    X3+X6
Line S01519 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02859  M02S01519.286l859 ---|          ZR     X7,CWR6     IF FULL BLOCK
Line S01520 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02860  M02S01520.286l859 ---|          LX4    18-59       SET SHORT BLOCK FLAG
Line S01521 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02861  M02S01521.286l859 ---|          BX6    X6+X4
Line S01522 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02862  M02S01522.286l859 ---| CWR6     SA4    X2+CWSW     GET OLD STATUS WORD
Line S01523 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02863  M02S01523.286l859 ---|          SA6    CWRC
Line S01524 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02864  M02S01524.286l859 ---|          SA6    A4          SAVE NEW STATUS WORD
Line S01525 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02865  M02S01525.286l859 ---|          BX6    X4-X6
Line S01526 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02866  M02S01526.286l859 ---|          PL     X6,CWR1     IF NO CHANGE IN BLOCK STATUS
Line S01527 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02867  M02S01527.286l859 ---|          BX1    X1-X1       SET TRANSFER COMPLETE STATUS
Line S01528 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02868  M02S01528.286l859 ---|          EQ     CWR11       GET ERROR STATUS
Line S01529 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02869  M02S01529.286l859 ---|
Line S01530 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02870  M02S01530.286l859 ---|*         PROCESS EOF/EOI AND FET ERROR CODE STATUS.
Line S01531 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02871  M02S01531.286l859 ---|
Line S01532 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02872  M02S01532.286l859 ---| CWR7     SX3    X1+3
Line S01533 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02873  M02S01533.286l859 ---|          ZR     X3,CWR8     IF READ ERROR
Line S01534 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02874  M02S01534.286l859 ---|          BX7    X7-X7       CLEAR ERROR STATUS
Line S01535 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
M03 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02875  M03S01535.286l859 ---|          EQ     CWRX        EXIT
Line S00553 Modification History
M01 (Added by) ns22000
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02876  M02S00553.286l859 ---|          EQ     CWRX        RETURN
Line S01536 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02877  M02S01536.286l859 ---|
Line S01537 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02878  M02S01537.286l859 ---| CWR8     BX6    X6-X6       CLEAR STATUS WORD
Line S01538 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02879  M02S01538.286l859 ---|          BX1    X1-X1
Line S01539 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02880  M02S01539.286l859 ---|          SA6    X2+CWSW
Line S01540 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
M03 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02881  M03S01540.286l859 ---|          EQ     CWRX        EXIT
Line S00554 Modification History
M01 (Added by) ns22000
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02882  M02S00554.286l859 ---|          EQ     CWRX        RETURN
Line S01541 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02883  M02S01541.286l859 ---|
Line S01542 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02884  M02S01542.286l859 ---|*         PROCESS SECOND CONTROL WORD.
Line S01543 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02885  M02S01543.286l859 ---|
Line S01544 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02886  M02S01544.286l859 ---| CWR9     SX4    X3-2
Line S01545 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02887  M02S01545.286l859 ---|          PL     X4,CWR10    IF SECOND CONTROL WORD ALREADY READ
Line S01546 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02888  M02S01546.286l859 ---|          READW  X2,CWRB,1   READ SECOND CONTROL WORD
Line S01547 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02889  M02S01547.286l859 ---|          SA3    X2+CWSW     CHECK SHORT BLOCK STATUS
Line S01548 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02890  M02S01548.286l859 ---|          LX3    -18
Line S01549 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02891  M02S01549.286l859 ---|          SX6    X3
Line S01550 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02892  M02S01550.286l859 ---|          ZR     X6,CWR4     IF NOT SHORT BLOCK
Line S01551 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02893  M02S01551.286l859 ---|          SA4    B6-B1       GET END OF RECORD LEVEL NUMBER
Line S01552 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02894  M02S01552.286l859 ---|          IX3    X3+X6
Line S01553 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02895  M02S01553.286l859 ---|          AX4    48
Line S01554 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02896  M02S01554.286l859 ---|          IX6    X3+X4       SAVE LEVEL NUMBER IN STATUS WORD
Line S01555 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02897  M02S01555.286l859 ---|          LX6    18
Line S01556 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02898  M02S01556.286l859 ---|          SA6    A3
Line S01557 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02899  M02S01557.286l859 ---| CWR10    SB5    X4-17B
Line S01558 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02900  M02S01558.286l859 ---|          SA4    CWRA        RESTORE WORKING BUFFER LENGTH
Line S01559 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02901  M02S01559.286l859 ---|          LX3    18
Line S01560 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02902  M02S01560.286l859 ---|          SA1    A4+B1       RESTORE WORKING BUFFER ADDRESS
Line S01561 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02903  M02S01561.286l859 ---|          SB7    X4
Line S01562 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02904  M02S01562.286l859 ---|          BX7    X7-X7       CLEAR ERROR STATUS
Line S01563 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02905  M02S01563.286l859 ---|          SB6    X1
Line S01564 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02906  M02S01564.286l859 ---|          NZ     B5,CWR11    IF NOT LEVEL 17B END OF RECORD
Line S01565 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02907  M02S01565.286l859 ---|          SX1    -B1         SET EOF STATUS
Line S01566 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02908  M02S01566.286l859 ---|          EQ     CWR11       SET ERROR STATUS CODE
Line S01567 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02909  M02S01567.286l859 ---|
Line S00060 Modification History
M01 (Added by) 253l688
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02910  M02S00060.286l859 ---|
Line S01568 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
M03 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02911  M03S01568.286l859 ---| CWRA     BSS    2           WORKING BUFFER PARAMETER STORAGE
Line S01569 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
M03 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02912  M03S01569.286l859 ---| CWRB     BSS    1           CONTROL WORD BUFFER
Line S00555 Modification History
M01 (Added by) ns22000
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02913  M02S00555.286l859 ---| CWRA     BSSZ   2           WORKING BUFFER PARAMETER STORAGE
Line S00556 Modification History
M01 (Added by) ns22000
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02914  M02S00556.286l859 ---| CWRB     CON    0           CONTROL WORD BUFFER
Line S01570 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02915  M02S01570.286l859 ---| CWRC     CON    0           STATUS WORD FROM LAST BLOCK
Line S01571 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02916  M02S01571.ns22000 ---| CWSW     EQU    5           CONTROL WORD STATUS WORD
Line S01572 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02917  M02S01572.ns22000 ---| DDS      SPACE  4,20
Line S00557 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
02918  M02S00557.ns2697  ---| DDS      SPACE  4,15
02919  M01S00249.ns2697  +++| DDS      SPACE  4,10
02920  M01S01573.pfload  +++|**        DDS - DELETE DATA SPACE.
02921  M01S01574.pfload  +++|*
Line S01575 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02922  M02S01575.ns22000 ---|*         ENTRY  (*CATS* *IN* POINTER) = ADDRESS OF CATALOG ENTRY.
Line S01576 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02923  M02S01576.ns22000 ---|*                (DAEQ) = DAF EQUIPMENT NUMBER.
02924  M01S00558.ns22000 +++|*         ENTRY  (*CATS* IN POINTER) = ADDRESS OF CATALOG ENTRY.
Line S00559 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
02925  M02S00559.ns2697  ---|*                (DAEQ) = DAPF EST ORDINAL.
02926  M01S01577.pfload  +++|*
02927  M01S01578.pfload  +++|*         EXIT   DATA SPACE FOR FILE DELETED.
02928  M01S01579.pfload  +++|*
02929  M01S01580.pfload  +++|*         USES   X - 1, 2, 3, 6, 7.
02930  M01S01581.pfload  +++|*                A - 1, 2, 3, 6, 7.
02931  M01S01582.pfload  +++|*
Line S01583 Modification History
M01 (Added by) pfload
M02 (Updated by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
02932  M02S01583.ns2697  ---|*         CALLS  FDB.
02933  M01S00250.ns2697  +++|*         CALLS  FDB, SFD.
02934  M01S01584.pfload  +++|
02935  M01S01585.pfload  +++|
02936  M01S01586.pfload  +++| DDS      SUBR               ENTRY/EXIT
02937  M01S01587.pfload  +++|          RJ     FDB         FLUSH DATA BUFFER
02938  M01S01588.pfload  +++|          SA3    CATS+2      CHECK FOR FILE WITH WRITE ERROR
02939  M01S01589.pfload  +++|          SA1    X3+FCUI
02940  M01S01590.pfload  +++|          SX6    X1+
02941  M01S01591.pfload  +++|          SX7    X1-IFUI
02942  M01S01592.pfload  +++|          ZR     X6,DDSX     IF WRITE ERROR ON FILE
02943  M01S01593.pfload  +++|          ZR     X7,DDSX     IF WRITE ERROR ON FILE
02944  M01S01594.pfload  +++|          SA1    X3+FCBS+FCBT*  SET FIRST TRACK AND SECTOR OF FILE
02945  M01S01595.pfload  +++|          MX3    -12
02946  M01S01596.pfload  +++|          BX6    -X3*X1
02947  M01S01597.pfload  +++|          LX3    12
02948  M01S01598.pfload  +++|          BX7    X3*X1       CLEAR FIRST TRACK OF FILE
02949  M01S01599.pfload  +++|          BX3    -X3*X1
02950  M01S01600.pfload  +++|          LX1    59-11
02951  M01S01601.pfload  +++|          ZR     X3,DDSX     IF NO FIRST TRACK
02952  M01S00251.ns2697  +++|          SA7    A1+
02953  M01S01602.pfload  +++|          PL     X1,DDS1     IF INDIRECT ACCESS FILE
Line S01603 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02954  M02S01603.ns22000 ---|          SA2    DAEQ        SET DAF EQUIPMENT
Line S00560 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
02955  M02S00560.ns2697  ---|          SA2    DAEQ        SET DAPF EQUIPMENT
Line S01604 Modification History
M01 (Added by) pfload
M02 (Updated by) 242l642
M03 (Updated by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
02956  M03S01604.ns2697  ---|          SX6    X2+4000B    SET *DROP AND FLAW TRACKS* FLAG
Line S00025 Modification History
M01 (Added by) 242l642
M02 (Updated by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
02957  M02S00025.ns2697  ---|          SX6    X2+4000B    SET *DROP TRACKS* FLAG
Line S01605 Modification History
M01 (Added by) pfload
M02 (Updated by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
02958  M02S01605.ns2697  ---| DDS1     SA7    A1
Line S01606 Modification History
M01 (Added by) pfload
M02 (Updated by) ns2697
Seq #  *Modification Id* Act 
----------------------------+
02959  M02S01606.ns2697  ---|          BX6    X3+X6       PUT PARAMETER IN FET
02960  M01S00252.ns2697  +++|          SA2    A1+FCDN-FCBT
02961  M01S00253.ns2697  +++|          MX6    -6
02962  M01S00254.ns2697  +++|          LX2    -36
02963  M01S00255.ns2697  +++|          BX2    -X6*X2      SET DEVICE NUMBER
02964  M01S00256.ns2697  +++|          MX6    -9
02965  M01S00257.ns2697  +++|          RJ     SFD         SEARCH FOR DEVICE
02966  M01S00258.ns2697  +++|          LX1    -6
02967  M01S00259.ns2697  +++|          BX6    -X6*X1      SET EST ORDINAL
02968  M01S00260.ns2697  +++|          SX6    X6+4000B    SET *DROP TRACKS* FLAG
02969  M01S00261.ns2697  +++| DDS1     BX6    X3+X6       PUT PARAMETER IN FET
02970  M01S01607.pfload  +++|          SA1    DATA        SET POSITION REQUEST IN FET
02971  M01S01608.pfload  +++|          MX3    42
02972  M01S01609.pfload  +++|          BX7    X3*X1
02973  M01S01610.pfload  +++|          SA6    DATA+FTPM
02974  M01S01611.pfload  +++|          SA7    A1
Line S01612 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02975  M02S01612.ns22000 ---|          EQ     DDSX        EXIT
Line S01613 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02976  M02S01613.ns22000 ---| DIF      SPACE  4,20
02977  M01S00561.ns22000 +++|          EQ     DDSX        RETURN
02978  M01S00562.ns22000 +++| DIF      SPACE  4,15
02979  M01S01614.pfload  +++|**        DIF - DELETE INCOMPLETE FILE.
02980  M01S01615.pfload  +++|*
02981  M01S01616.pfload  +++|*         ENTRY  (IPFF) = INCOMPLETE PERMANENT FILE FLAG.
02982  M01S01617.pfload  +++|*
02983  M01S01618.pfload  +++|*         EXIT   (IPFF) = 0.
02984  M01S00319.286l859 +++|*                (*TFST* ENTRY) = 0.
02985  M01S01619.pfload  +++|*                ANY INCOMPLETE PERMANENT FILE DELETED.
02986  M01S01620.pfload  +++|*
02987  M01S01621.pfload  +++|*         USES   X - 1, 6.
02988  M01S01622.pfload  +++|*                A - 1, 6.
02989  M01S01623.pfload  +++|*
02990  M01S01624.pfload  +++|*         CALLS  DDS, DPS.
02991  M01S01625.pfload  +++|
02992  M01S01626.pfload  +++|
02993  M01S01627.pfload  +++| DIF      SUBR               ENTRY/EXIT
02994  M01S01628.pfload  +++|          SA1    IPFF
Line S01629 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02995  M02S01629.286l859 ---|          ZR     X1,DIFX     IF NO INCOMPLETE PERMANENT FILE
02996  M01S00320.286l859 +++|          ZR     X1,DIF1     IF NO INCOMPLETE PERMANENT FILE
02997  M01S01630.pfload  +++|          RJ     DDS         DELETE DATA SPACE
02998  M01S01631.pfload  +++|          RJ     DPS         DELETE PERMIT SPACE
Line S01632 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02999  M02S01632.ns22000 ---|          BX6    X6-X6       CLEAR INCOMPLETE FILE FLAG
Line S00563 Modification History
M01 (Added by) ns22000
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03000  M02S00563.286l859 ---|          SX6    B0+         CLEAR INCOMPLETE FILE FLAG
Line S01633 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03001  M02S01633.286l859 ---|          SA6    IPFF
03002  M01S00321.286l859 +++| DIF1     SA1    CBFO
03003  M01S00322.286l859 +++|          SA1    TFST+X1
03004  M01S00323.286l859 +++|          SX6    B0
03005  M01S00324.286l859 +++|          SA6    IPFF        CLEAR INCOMPLETE FILE FLAG
03006  M01S00325.286l859 +++|          SA6    A1          CLEAR FILE STATUS
Line S01634 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03007  M02S01634.ns22000 ---|          EQ     DIFX        EXIT
Line S01635 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03008  M02S01635.ns22000 ---| DPS      SPACE  4,20
03009  M01S00564.ns22000 +++|          EQ     DIFX        RETURN
03010  M01S00565.ns22000 +++| DPS      SPACE  4,15
03011  M01S01636.pfload  +++|**        DPS - DELETE PERMIT SPACE.
03012  M01S01637.pfload  +++|*
Line S01638 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03013  M02S01638.ns22000 ---|*         ENTRY  (*CATS* *IN* POINTER) = ADDRESS OF CATALOG ENTRY.
03014  M01S00566.ns22000 +++|*         ENTRY  (*CATS* IN POINTER) = ADDRESS OF CATALOG ENTRY.
03015  M01S01639.pfload  +++|*
03016  M01S01640.pfload  +++|*         EXIT   PERMIT SPACE FOR FILE DELETED.
03017  M01S01641.pfload  +++|*                (RICT) = UPDATED TO REFLECT DELETED PERMITS.
03018  M01S01642.pfload  +++|*
03019  M01S01643.pfload  +++|*         USES   X - 1, 3, 6, 7.
03020  M01S01644.pfload  +++|*                A - 1, 3, 6, 7.
03021  M01S01645.pfload  +++|*                B - 6, 7.
03022  M01S01646.pfload  +++|*
03023  M01S01647.pfload  +++|*         CALLS  FPB, WPR.
03024  M01S00001.pfloa18 +++|*
03025  M01S00002.pfloa18 +++|*         MACROS RECALL.
03026  M01S01648.pfload  +++|
03027  M01S01649.pfload  +++|
03028  M01S01650.pfload  +++| DPS      SUBR               ENTRY/EXIT
03029  M01S01651.pfload  +++|          RJ     FPB         FLUSH PERMIT BUFFER
03030  M01S01652.pfload  +++|          SA3    CATS+2      GET PERMIT RANDOM INDEX
03031  M01S01653.pfload  +++|          SA1    X3+FCRI
03032  M01S01654.pfload  +++|          MX6    24
03033  M01S01655.pfload  +++|          BX7    X6*X1
03034  M01S01656.pfload  +++|          ZR     X7,DPSX     IF NO PERMITS
03035  M01S01657.pfload  +++|          LX7    -36
03036  M01S01658.pfload  +++|          SA1    X2          SET POSITION REQUEST IN FET
03037  M01S01659.pfload  +++|          SA7    RICT        UPDATE PERMIT RANDOM INDEX
03038  M01S01660.pfload  +++|          MX3    42
03039  M01S01661.pfload  +++|          BX6    X3*X1
03040  M01S01662.pfload  +++|          SA7    X2+FTPM     PUT RANDOM INDEX PARAMETER IN FET
03041  M01S01663.pfload  +++|          SA6    X2
03042  M01S00003.pfloa18 +++|          RECALL X2
03043  M01S01664.pfload  +++|          SX7    B1+B1       SET EOI CONTROL WORD
03044  M01S01665.pfload  +++|          SB6    LWRD        SET BUFFER ADDRESS
03045  M01S01666.pfload  +++|          LX7    54
03046  M01S01667.pfload  +++|          SB7    B1          SET BUFFER WORD COUNT
Line S01668 Modification History
M01 (Added by) pfload
M02 (Updated by) pfloa18
Seq #  *Modification Id* Act 
----------------------------+
03047  M02S01668.pfloa18 ---|          SA7    B6+
03048  M01S00004.pfloa18 +++|          SA7    B6
03049  M01S01669.pfload  +++|          RJ     WPR         WRITE EOI SECTOR
03050  M01S00005.pfloa18 +++|          RJ     FPB         FLUSH PERMIT BUFFER TO FORCE EOI WRITE
Line S01670 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03051  M02S01670.ns22000 ---|          EQ     DPSX        EXIT
03052  M01S00567.ns22000 +++|          EQ     DPSX        RETURN
03053  M01S00568.ns22000 +++| DUP      SPACE  4,15
03054  M01S00569.ns22000 +++|**        DUP - DROP UTILITY PROCESSOR.
03055  M01S00570.ns22000 +++|*
03056  M01S00571.ns22000 +++|*         ENTRY  (PAFL) = 0 IF *PFU* NOT ACTIVE.
03057  M01S00572.ns22000 +++|*                       = 1 IF *PFU* ACTIVE.
03058  M01S00573.ns22000 +++|*
03059  M01S00574.ns22000 +++|*         EXIT   (PAFL) = 0.
03060  M01S00575.ns22000 +++|*                *PFU* DROPPED IF ACTIVE.
03061  M01S00576.ns22000 +++|*                CATALOG PROCESSING COMPLETED.
03062  M01S00577.ns22000 +++|*
03063  M01S00578.ns22000 +++|*         USES   X - 1, 2, 6.
03064  M01S00579.ns22000 +++|*                A - 1, 6.
03065  M01S00580.ns22000 +++|*
03066  M01S00581.ns22000 +++|*         CALLS  FCB.
03067  M01S00582.ns22000 +++|*
03068  M01S00583.ns22000 +++|*         MACROS RECALL.
03069  M01S00584.ns22000 +++|
03070  M01S00585.ns22000 +++|
03071  M01S00586.ns22000 +++| DUP      SUBR               ENTRY/EXIT
03072  M01S00587.ns22000 +++|          SA1    PAFL
03073  M01S00588.ns22000 +++|          ZR     X1,DUPX     IF *PFU* NOT ACTIVE
03074  M01S00589.ns22000 +++|          RJ     FCB         FLUSH CATALOG BUFFER
03075  M01S00590.ns22000 +++|          RECALL DATA
03076  M01S00591.ns22000 +++|          SA1    DATA        SIGNAL *PFU* TO DROP
03077  M01S00592.ns22000 +++|          MX2    42
03078  M01S00593.ns22000 +++|          BX6    X2*X1
03079  M01S00594.ns22000 +++|          SX1    10B
03080  M01S00595.ns22000 +++|          BX6    X6+X1
03081  M01S00596.ns22000 +++|          SA6    A1
03082  M01S00597.ns22000 +++|          RECALL DATA        WAIT FOR *PFU* TO COMPLETE
03083  M01S00598.ns22000 +++|          EQ     DUPX        RETURN
03084  M01S01671.pfload  +++| DWE      SPACE  4,40
03085  M01S01672.pfload  +++|**        DWE - DATA WRITE ERROR PROCESSOR.
03086  M01S01673.pfload  +++|*
Line S01674 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03087  M02S01674.ns22000 ---|*         ENTRY  (DATA+FTPM) = *FST* ENTRY AT TIME OF ERROR.
03088  M01S00599.ns22000 +++|*         ENTRY  (DATA+FTPM) = FST ENTRY AT TIME OF ERROR.
03089  M01S01675.pfload  +++|*                WRITE ERROR DETECTED ON DATA FILE.
03090  M01S01676.pfload  +++|*
03091  M01S01677.pfload  +++|*         EXIT   (BFCA) = BAD FILE CATALOG ADDRESS.
03092  M01S01678.pfload  +++|*
03093  M01S01679.pfload  +++|*                IF A WRITE ERROR -
03094  M01S01680.pfload  +++|*                DATA FOR BAD FILE REMOVED FROM BUFFER.
03095  M01S01681.pfload  +++|*                (DATA+FTSC) = DECREMENTED BY SECTOR COUNT REMOVED FROM
03096  M01S01682.pfload  +++|*                              BUFFER.
03097  M01S01683.pfload  +++|*                FILE LENGTH IN CATALOG DECREMENTED BY THE NUMBER OF
03098  M01S01684.pfload  +++|*                SECTORS - 1 REMOVED FROM BUFFER.
03099  M01S01685.pfload  +++|*                USER INDEX OF FILE CLEARED FROM CATALOG FOR A DIRECT
03100  M01S01686.pfload  +++|*                ACCESS FILE AND SET TO A SPECIAL WRITE ERROR USER
03101  M01S01687.pfload  +++|*                INDEX FOR AN INDIRECT ACCESS FILE.
03102  M01S01688.pfload  +++|*                DATA WRITE ERROR MESSAGES ISSUED.
Line S01689 Modification History
M01 (Added by) pfload
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03103  M02S01689.242l642 ---|*                MASS STORAGE SPACE DROPPED AND BAD TRACK FLAWED FOR A
Line S01690 Modification History
M01 (Added by) pfload
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03104  M02S01690.242l642 ---|*                DIRECT ACCESS FILE.
03105  M01S00026.242l642 +++|*                MASS STORAGE SPACE DROPPED FOR A DIRECT ACCESS FILE.
03106  M01S01691.pfload  +++|*                ERROR STATUS CLEARED FROM FET.
03107  M01S01692.pfload  +++|*
03108  M01S01693.pfload  +++|*                IF A TRACK LIMIT OR ERROR IDLE -
03109  M01S01694.pfload  +++|*                DATA AND PERMITS FOR UNWRITTEN CATALOG ENTRIES ARE
03110  M01S01695.pfload  +++|*                PURGED.
03111  M01S01696.pfload  +++|*                UTILITY PROCESSOR IS DROPPED.
03112  M01S01697.pfload  +++|*                UTILITY INTERLOCK IS CLEARED.
03113  M01S01698.pfload  +++|*                TRACK LIMIT OR ERROR IDLE MESSAGES ARE ISSUED.
03114  M01S01699.pfload  +++|*                MESSAGE IDENTIFYING FIRST FILE NOT LOADED IS ISSUED.
03115  M01S01700.pfload  +++|*                EXIT TO *ABT* IS TAKEN.
03116  M01S01701.pfload  +++|*
Line S01702 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03117  M02S01702.286l859 ---|*         USES   X - 1, 2, 3, 6, 7.
03118  M01S00326.286l859 +++|*         USES   X - 1, 2, 3, 6, 7.
03119  M01S01703.pfload  +++|*                A - 1, 2, 3, 6, 7.
03120  M01S00327.286l859 +++|*                B - 2.
03121  M01S01704.pfload  +++|*
Line S01705 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03122  M02S01705.ns22000 ---|*         CALLS  PFD, SEC, SEM.
Line S00600 Modification History
M01 (Added by) ns22000
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03123  M02S00600.286l859 ---|*         CALLS  AEC, PFD, SEC, SEM.
Line S01706 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03124  M02S01706.286l859 ---|*
Line S01707 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03125  M02S01707.286l859 ---|*         MACROS EDITS.
03126  M01S00328.286l859 +++|*         CALLS  CFE, PFD, SEC, SFE.
03127  M01S01708.pfload  +++|
03128  M01S01709.pfload  +++|
03129  M01S01710.pfload  +++| DWE      SUBR               ENTRY/EXIT
03130  M01S01711.pfload  +++|          SA1    DATA        GET FET ERROR CODE
03131  M01S01712.pfload  +++|          MX2    -6
03132  M01S01713.pfload  +++|          LX1    -12
03133  M01S01714.pfload  +++|          BX6    -X2*X1
03134  M01S01715.pfload  +++|          SX2    A1          SAVE FET ADDRESS
03135  M01S01716.pfload  +++|          SX1    X6-FEWE
03136  M01S00027.242l642 +++|          ZR     X1,DWE0     IF WRITE ERROR WITH DATA TANSFERRED
03137  M01S00028.242l642 +++|          SX1    X6-FEWN     CHECK WRITE ERROR WITH NO DATA TRANSFERRED
03138  M01S01717.pfload  +++|          NZ     X1,DWE3     IF NOT WRITE ERROR
03139  M01S00329.286l859 +++| DWE0     SA1    DATA+FTPM
03140  M01S00330.286l859 +++|          MX7    -9
03141  M01S00331.286l859 +++|          LX1    12
03142  M01S00332.286l859 +++|          BX7    -X7*X1      SET EST ORDINAL
03143  M01S00333.286l859 +++|          SA7    DWEB
03144  M01S01718.pfload  +++|
Line S01719 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03145  M02S01719.286l859 ---|*         SET BAD SECTOR ADDRESS MESSAGE PARAMETERS.
Line S01720 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03146  M02S01720.286l859 ---|
Line S01721 Modification History
M01 (Added by) pfload
M02 (Updated by) 242l642
M03 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03147  M03S01721.286l859 ---|          SA1    DATA+FTPM   GET BAD TRACK AND SECTOR ADDRESS
Line S00029 Modification History
M01 (Added by) 242l642
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03148  M02S00029.286l859 ---| DWE0     SA1    DATA+FTPM   GET BAD TRACK AND SECTOR ADDRESS
Line S01722 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03149  M02S01722.286l859 ---|          MX2    -12
Line S01723 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03150  M02S01723.286l859 ---|          LX1    -12         SET BAD SECTOR
Line S01724 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03151  M02S01724.286l859 ---|          BX6    -X2*X1
Line S01725 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03152  M02S01725.286l859 ---|          LX1    -12         SET BAD TRACK
Line S01726 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03153  M02S01726.286l859 ---|          BX7    -X2*X1
Line S01727 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03154  M02S01727.286l859 ---|          LX1    -24         SET BAD EQUIPMENT
Line S01728 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03155  M02S01728.286l859 ---|          SA6    MPSC
Line S01729 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03156  M02S01729.286l859 ---|          SA7    MPTK
Line S01730 Modification History
M01 (Added by) pfload
M02 (Updated by) pfloa3
M03 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03157  M03S01730.286l859 ---|          MX2    -6
Line S00001 Modification History
M01 (Added by) pfloa3
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03158  M02S00001.286l859 ---|          MX2    -9
Line S01731 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03159  M02S01731.286l859 ---|          BX6    -X2*X1
Line S01732 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03160  M02S01732.286l859 ---|          SA6    MPEQ
Line S01733 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03161  M02S01733.286l859 ---|
Line S01734 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03162  M02S01734.286l859 ---|*         SET FILE NAME AND USER INDEX MESSAGE PARAMETERS.
03163  M01S00334.286l859 +++|*         SET BAD FILE CATALOG ADDRESS.
03164  M01S01735.pfload  +++|
03165  M01S01736.pfload  +++|          SA1    DATA+3      GET CONTROL WORD FOR BAD SECTOR
03166  M01S01737.pfload  +++|          SA2    X1
03167  M01S01738.pfload  +++|          LX2    -36         SET BAD FILE CATALOG ADDRESS
03168  M01S01739.pfload  +++|          SX6    X2
Line S01740 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03169  M02S01740.286l859 ---|          SA1    X2+FCFN+FCUI*  SET FILE NAME OF BAD FILE
Line S01741 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03170  M02S01741.286l859 ---|          MX3    42
03171  M01S01742.pfload  +++|          SA6    BFCA
Line S01743 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03172  M02S01743.286l859 ---|          BX7    X3*X1
Line S01744 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03173  M02S01744.286l859 ---|          BX6    -X3*X1      SET USER INDEX OF BAD FILE
Line S01745 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03174  M02S01745.286l859 ---|          SA7    MPFN
Line S01746 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03175  M02S01746.286l859 ---|          SA6    MPUI
Line S01747 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03176  M02S01747.286l859 ---|
Line S01748 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03177  M02S01748.286l859 ---|*         SET FILE RESIDENCY DEVICE MESSAGE PARAMETER.
Line S01749 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03178  M02S01749.286l859 ---|
Line S01750 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03179  M02S01750.286l859 ---|          SA1    X2+FCBS     CHECK FILE TYPE
Line S01751 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03180  M02S01751.286l859 ---|          SA3    CPAR+/COMSPFS/CPDN    GET MASTER DEVICE NUMBER
Line S01752 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03181  M02S01752.286l859 ---|          LX1    59-11
Line S01753 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03182  M02S01753.286l859 ---|          BX6    X3
Line S01754 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03183  M02S01754.286l859 ---|          PL     X1,DWE1     IF INDIRECT ACCESS FILE
Line S01755 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
M03 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03184  M03S01755.286l859 ---|          SA1    X2+FCEO     GET DAF RESIDENCY DEVICE
Line S00601 Modification History
M01 (Added by) ns22000
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03185  M02S00601.286l859 ---|          SA1    X2+FCDN     GET DAPF RESIDENCY DEVICE
Line S01756 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03186  M02S01756.286l859 ---|          MX3    -6
Line S01757 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03187  M02S01757.286l859 ---|          LX1    -36
Line S01758 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03188  M02S01758.286l859 ---|          BX3    -X3*X1
Line S01759 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03189  M02S01759.286l859 ---|          ZR     X3,DWE1     IF FILE RESIDENT ON MASTER DEVICE
Line S01760 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03190  M02S01760.286l859 ---|          BX6    X3          SET ALTERNATE RESIDENCE
Line S01761 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03191  M02S01761.286l859 ---| DWE1     SA6    MPDN        SAVE FILE RESIDENCY DEVICE
03192  M01S01762.pfload  +++|
03193  M01S01763.pfload  +++|*         REMOVE BAD FILE FROM BUFFER.
03194  M01S01764.pfload  +++|
03195  M01S01765.pfload  +++|          SX2    DATA        SKIP TO END OF BAD FILE
03196  M01S01766.pfload  +++|          RJ     SEC
03197  M01S01767.pfload  +++|          SA1    DATA+FTSC   ADJUST SECTOR COUNTER
03198  M01S01768.pfload  +++|          SX3    A0
03199  M01S01769.pfload  +++|          IX6    X1-X3
03200  M01S01770.pfload  +++|          SA6    A1
03201  M01S01771.pfload  +++|
03202  M01S01772.pfload  +++|*         SET CORRECT CATALOG LENGTH AND USER INDEX.
03203  M01S01773.pfload  +++|
03204  M01S01774.pfload  +++|          SA2    BFCA        ADJUST CATALOG LENGTH
03205  M01S01775.pfload  +++|          SX3    A0-B1       LEAVE BAD SECTOR WITH FILE
03206  M01S01776.pfload  +++|          SA1    X2+FCLF+FCBS*
03207  M01S01777.pfload  +++|          LX3    36
03208  M01S01778.pfload  +++|          IX6    X1-X3
03209  M01S01779.pfload  +++|          SA3    X2+FCUI
03210  M01S01780.pfload  +++|          LX1    59-11       CHECK FILE TYPE
03211  M01S01781.pfload  +++|          SA6    A1
03212  M01S01782.pfload  +++|          MX2    42          CLEAR USER INDEX
03213  M01S01783.pfload  +++|          BX7    X2*X3
Line S01784 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03214  M02S01784.ns22000 ---|          SX6    MES4        PRESET DIRECT ACCESS MESSAGE ADDRESS
Line S00602 Modification History
M01 (Added by) ns22000
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03215  M02S00602.286l859 ---|          SX6    MES4        * PFLOAD - DAPF WRITE ERROR.*
03216  M01S01785.pfload  +++|          NG     X1,DWE2     IF DIRECT ACCESS FILE
Line S01786 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03217  M02S01786.ns22000 ---|          SX1    IFUI        SET *IAF* FLAWED SECTOR CHAIN USER INDEX
Line S01787 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03218  M02S01787.ns22000 ---|          SX6    MES5        SET INDIRECT ACCESS MESSAGE ADDRESS
03219  M01S00603.ns22000 +++|          SX1    IFUI        SET *IAPF* FLAWED SECTOR CHAIN USER INDEX
Line S00604 Modification History
M01 (Added by) ns22000
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03220  M02S00604.286l859 ---|          SX6    MES5        * PFLOAD - IAPF WRITE ERROR.*
03221  M01S01788.pfload  +++|          BX7    X7+X1
Line S01789 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03222  M02S01789.286l859 ---| DWE2     SA6    DWEA
Line S01790 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03223  M02S01790.286l859 ---|          SA7    A3+
03224  M01S00335.286l859 +++| DWE2     SA7    A3+
03225  M01S01791.pfload  +++|
Line S01792 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03226  M02S01792.286l859 ---|*         ISSUE ERROR MESSAGES.
03227  M01S00336.286l859 +++|*         ISSUE ERROR MESSAGE.
03228  M01S01793.pfload  +++|
Line S01794 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03229  M02S01794.286l859 ---|          SA1    SADD        BUILD DATA WRITE ERROR MESSAGE
Line S01795 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03230  M02S01795.286l859 ---|          EDITS  X1,X6
Line S01796 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03231  M02S01796.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
Line S01797 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03232  M02S01797.286l859 ---|          SA1    DWEA        BUILD MESSAGE WITH FILE NAME
Line S01798 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03233  M02S01798.286l859 ---|          EDITS  MSFN,X1
Line S01799 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03234  M02S01799.286l859 ---|          RJ     SEM         SEND ERROR MESSAGE
03235  M01S00337.286l859 +++|          SA2    BFCA
03236  M01S00338.286l859 +++|          SA1    X2+FCUI
03237  M01S00339.286l859 +++|          SB2    ERDW        * DATA WRITE ERROR ...*
03238  M01S00340.286l859 +++|          RJ     SFE         SEND ERROR MESSAGE
03239  M01S00341.286l859 +++|          RJ     CFE         COUNT FILE SKIPPED
Line S00605 Modification History
M01 (Added by) ns22000
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03240  M02S00605.286l859 ---|          RJ     AEC         ADVANCE ERROR COUNT
03241  M01S01800.pfload  +++|
Line S01801 Modification History
M01 (Added by) pfload
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03242  M02S01801.242l642 ---|*         DROP AND FLAW DIRECT ACCESS FILE.
03243  M01S00030.242l642 +++|*         DROP DIRECT ACCESS FILE.
03244  M01S01802.pfload  +++|
03245  M01S01803.pfload  +++|          SA2    BFCA
03246  M01S01804.pfload  +++|          SA1    X2+FCBS+FCBT*
03247  M01S01805.pfload  +++|          LX1    59-11
03248  M01S01806.pfload  +++|          PL     X1,DWEX     IF INDIRECT ACCESS FILE
03249  M01S01807.pfload  +++|          MX7    -12
Line S01808 Modification History
M01 (Added by) pfload
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03250  M02S01808.242l642 ---|          SA2    MPTK        SET BAD TRACK
Line S01809 Modification History
M01 (Added by) pfload
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
03251  M02S01809.286l859 ---|          SA3    MPEQ        SET BAD EQUIPMENT
03252  M01S00342.286l859 +++|          SA3    DWEB        SET BAD EQUIPMENT
03253  M01S01810.pfload  +++|          BX6    -X7*X1      SET FIRST TRACK OF FILE
Line S01811 Modification History
M01 (Added by) pfload
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03254  M02S01811.242l642 ---|          LX2    24
Line S01812 Modification History
M01 (Added by) pfload
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03255  M02S01812.242l642 ---|          SX3    X3+4000B    SET *DROP AND FLAW TRACKS* FLAG
Line S01813 Modification History
M01 (Added by) pfload
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03256  M02S01813.242l642 ---|          LX6    12
Line S01814 Modification History
M01 (Added by) pfload
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03257  M02S01814.242l642 ---|          BX1    X2+X3
Line S01815 Modification History
M01 (Added by) pfload
M02 (Updated by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
03258  M02S01815.242l642 ---|          BX7    X6+X1
03259  M01S00031.242l642 +++|          LX6    12
03260  M01S00032.242l642 +++|          SX3    X3+4000B    SET *DROP TRACKS* FLAG
03261  M01S00033.242l642 +++|          BX7    X3+X6
03262  M01S01816.pfload  +++|          MX2    42
03263  M01S01817.pfload  +++|          SA7    DATA+FTPM   PUT POSITION PARAMETERS IN FET
03264  M01S01818.pfload  +++|          SA1    DATA        SET POSITION FUNCTION IN FET
03265  M01S01819.pfload  +++|          BX6    X2*X1
03266  M01S01820.pfload  +++|          SA6    A1
Line S01821 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03267  M02S01821.ns22000 ---|          EQ     DWEX        EXIT
03268  M01S00606.ns22000 +++|          EQ     DWEX        RETURN
03269  M01S01822.pfload  +++|
03270  M01S01823.pfload  +++|*         PROCESS TRACK LIMIT/ERROR IDLE CONDITION.
03271  M01S01824.pfload  +++|
03272  M01S01825.pfload  +++| DWE3     RJ     PFD         PROCESS FULL DEVICE
03273  M01S00343.286l859 +++|          SB2    B0          SET NO MESSAGE
Line S01826 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03274  M02S01826.ns22000 ---|          EQ     ABT         ABORT LOAD
03275  M01S00607.ns22000 +++|          EQ     ABT         ABORT
03276  M01S01827.pfload  +++|
03277  M01S00061.253l688 +++|
Line S01828 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03278  M02S01828.ns22000 ---| DWEA     BSS    1           WRITE ERROR MESSAGE ADDRESS
03279  M01S00608.ns22000 +++| DWEA     CON    0           WRITE ERROR MESSAGE ADDRESS
03280  M01S00344.286l859 +++| DWEB     CON    0           EST ORDINAL
03281  M01S00345.286l859 +++| ECL      SPACE  4,10
03282  M01S00346.286l859 +++|**        ECL - EDIT CATALOG ENTRY FOR LOAD.
03283  M01S00347.286l859 +++|*
03284  M01S00348.286l859 +++|*         ENTRY  CATALOG ENTRY IN *TCBF*.
03285  M01S00349.286l859 +++|*
03286  M01S00350.286l859 +++|*         EXIT   CATALOG ENTRY FIELDS MODIFIED AS REQUIRED.
03287  M01S00351.286l859 +++|*
03288  M01S00352.286l859 +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
03289  M01S00353.286l859 +++|*                A - 1, 2, 3, 4, 6, 7.
03290  M01S00354.286l859 +++|
03291  M01S00355.286l859 +++|
03292  M01S00356.286l859 +++| ECL      SUBR               ENTRY/EXIT
03293  M01S00357.286l859 +++|
03294  M01S00358.286l859 +++|*         PROCESS UTILITY CONTROL DATE OPTION.
03295  M01S00359.286l859 +++|
03296  M01S00360.286l859 +++|          SA1    UDAT        FETCH UTLITY CONTROL UPDATE FLAG
03297  M01S00361.286l859 +++|          ZR     X1,ECL1     IF FORCED UPDATE FLAG NOT SET
03298  M01S00362.286l859 +++|          SA2    TCBF+FCUD
03299  M01S00363.286l859 +++|          MX0    24
03300  M01S00364.286l859 +++|          BX6    X0*X2
03301  M01S00365.286l859 +++|          BX6    X6+X1       SET UTILITY CONTROL DATE
03302  M01S00366.286l859 +++|          SA6    A2+
03303  M01S00367.286l859 +++|
03304  M01S00368.286l859 +++|*         PROCESS OP=Z OPTION.
03305  M01S00369.286l859 +++|
03306  M01S00370.286l859 +++| ECL1     SA1    PFCO        FETCH *PFC ONLY* FLAG
03307  M01S00371.286l859 +++|          ZR     X1,ECL2     IF *PFC* ONLY
03308  M01S00372.286l859 +++|          SA1    CPAR+/COMSPFS/CPOP
03309  M01S00373.286l859 +++|          BX6    X6-X6
03310  M01S00374.286l859 +++|          LX1    59-46
03311  M01S00375.286l859 +++|          PL     X1,ECL2     IF *OP=Z* NOT SELECTED
03312  M01S00376.286l859 +++|          SA6    TCBF+FCAA+FCAT*0+FCAF*0  CLEAR CARTRIDGE POINTERS
03313  M01S00377.286l859 +++|          SA6    TCBF+FCTV+FCTS*0+FCTF*0  CLEAR TAPE POINTERS
03314  M01S00378.286l859 +++|          EQ     ECLX        RETURN
03315  M01S00379.286l859 +++|
03316  M01S00380.286l859 +++|*         INITIALIZE ALTERNATE STORAGE FLAGS.
03317  M01S00381.286l859 +++|
03318  M01S00382.286l859 +++| ECL2     SA1    TCBF+FCAF   CHECK ALTERNATE STORAGE INFORMATION
03319  M01S00383.286l859 +++|          SA2    TCBF+FCTF
03320  M01S00384.286l859 +++|          MX0    -59
03321  M01S00385.286l859 +++|          BX6    -X0*X1      CLEAR *AFLOK* FLAG
03322  M01S00386.286l859 +++|          BX7    -X0*X2      CLEAR *TFLOK* FLAG
03323  M01S00387.286l859 +++|          MX0    -36
03324  M01S00388.286l859 +++|          BX3    -X0*X1
03325  M01S00389.286l859 +++|          BX4    -X0*X2
03326  M01S00390.286l859 +++|          SX0    1
03327  M01S00391.286l859 +++|          LX1    59-48
03328  M01S00392.286l859 +++|          LX0    52-0
03329  M01S00393.286l859 +++|          ZR     X3,ECL3     IF NO CARTRIDGE ALTERNATE STORAGE COPY
03330  M01S00394.286l859 +++|          NG     X1,ECL3     IF CARTRIDGE COPY IS OBSOLETE
03331  M01S00395.286l859 +++|          BX6    X6+X0       SET *AFVER* FLAG
03332  M01S00396.286l859 +++| ECL3     ZR     X4,ECL4     IF NO TAPE ALTERNATE STORAGE COPY
03333  M01S00397.286l859 +++|          LX0    48-52
03334  M01S00398.286l859 +++|          BX7    X7+X0       SET *TFVER* FLAG
03335  M01S00399.286l859 +++| ECL4     SA6    TCBF+FCAF   SET CARTRIDGE ALTERNATE STORAGE FLAGS
03336  M01S00400.286l859 +++|          SA7    TCBF+FCTF   SET TAPE ALTERNATE STORAGE FLAGS
03337  M01S00401.286l859 +++|          EQ     ECLX        RETURN
Line S01829 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03338  M02S01829.253l688 ---| EDS      SPACE  4,60
Line S01830 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03339  M02S01830.253l688 ---|**        EDS - EDIT MESSAGE STRING.
Line S01831 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03340  M02S01831.253l688 ---|*
Line S01832 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03341  M02S01832.253l688 ---|*                THE EDIT STRING SUBROUTINE FORMATS A MESSAGE USING
Line S01833 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03342  M02S01833.253l688 ---|*         A MESSAGE PARAMETER SKELETON AND A MESSAGE DESCRIPTION
Line S01834 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03343  M02S01834.253l688 ---|*         STRING.  THE SKELETON CONTAINS SEARCH CHARACTERS, *$*,
Line S01835 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03344  M02S01835.253l688 ---|*         WHEREVER A STRING SUBSTITUTION IS TO BE MADE.  IF A MESSAGE
Line S01836 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03345  M02S01836.253l688 ---|*         DESCRIPTION STRING IS SPECIFIED, IT IS SUBSTITUTED INTO THE
Line S01837 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03346  M02S01837.253l688 ---|*         SKELETON AT THE FIRST SEARCH CHARACTER FOUND.  THE
Line S01838 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03347  M02S01838.253l688 ---|*         DESCRIPTION STRING MUST BE DISPLAY CODED AND IN *C* FORMAT.
Line S01839 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03348  M02S01839.253l688 ---|*         IF NO DESCRIPTION STRING IS SPECIFIED OR ONCE IT HAS BEEN
Line S01840 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03349  M02S01840.253l688 ---|*         SUBSTITUTED INTO THE SKELETON, THE SKELETON IS SCANNED FOR
Line S01841 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03350  M02S01841.253l688 ---|*         SEARCH CHARACTERS AND THE VALUES SPECIFIED ARE SUBSTITUTED
Line S01842 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03351  M02S01842.253l688 ---|*         WHEN EACH SEARCH CHARACTER IS ENCOUNTERED.  VALUES MAY BE
Line S01843 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03352  M02S01843.253l688 ---|*         DISPLAY CODED OR NUMERIC.  NUMERIC VALUES WILL BE CONVERTED
Line S01844 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03353  M02S01844.253l688 ---|*         TO DISPLAY CODE AND MUST BE SPECIFIED BY BITS 59 AND 58
Line S01845 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03354  M02S01845.253l688 ---|*         IN TABLE *TMSP*.
Line S01846 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03355  M02S01846.253l688 ---|*                THE FIRST SEARCH CHARACTER IN THE SKELETON MAY STAND
Line S01847 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03356  M02S01847.253l688 ---|*         ALONE IF IT IS REPRESENTING THE DESCRIPTION STRING.  ANY AND
Line S01848 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03357  M02S01848.253l688 ---|*         ALL OTHER SEARCH CHARACTERS MEANT FOR SUBSTITUTION MUST BE
Line S01849 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03358  M02S01849.253l688 ---|*         FOLLOWED BY 3 CHARACTERS, THE FIRST 2 BEING OCTAL DIGITS FOR
Line S01850 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03359  M02S01850.253l688 ---|*         THE BINARY VALUE OF THE PARAMETER ADDRESS LOCATION IN TABLE
Line S01851 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03360  M02S01851.253l688 ---|*         *TMSP* (THE *LOC* ADDRESS).  THE THIRD CHARACTER REPRESENTS
Line S01852 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03361  M02S01852.253l688 ---|*         A FORMATTING CONTROL FOR THE PARAMETER.  IF THE CHARACTER IS
Line S01853 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03362  M02S01853.253l688 ---|*         A DIGIT IT SPECIFIES THE NUMBER OF CHARACTERS-1 OF THE
Line S01854 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03363  M02S01854.253l688 ---|*         PARAMETER VALUE TO INSERT IN THE MESSAGE.  IF THE PARAMETER
Line S01855 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03364  M02S01855.253l688 ---|*         IS DISPLAY CODED, THE CHARACTERS ARE TAKEN STARTING WITH THE
Line S01856 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03365  M02S01856.253l688 ---|*         LEFTMOST NON-ZERO CHARACTER AND DISPLAYED WITH TRAILING
Line S01857 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03366  M02S01857.253l688 ---|*         BLANKS IF NECESSARY.  IF THE PARAMETER IS NUMERIC, THE
Line S01858 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03367  M02S01858.253l688 ---|*         CHARACTERS ARE TAKEN STARTING WITH THE LEAST SIGNIFICANT
Line S01859 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03368  M02S01859.253l688 ---|*         DIGIT (RIGHTMOST CHARACTER) AND DISPLAYED WITH LEADING
Line S01860 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03369  M02S01860.253l688 ---|*         ZEROS.  IF THE FORMATTING CONTROL CHARACTER IS A *B*, ALL
Line S01861 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03370  M02S01861.253l688 ---|*         PARAMETER VALUES ARE DISPLAYED AS 10 CHARACTERS WITH
Line S01862 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03371  M02S01862.253l688 ---|*         LEADING BLANK, RIGHT JUSTIFIED NUMERICAL VALUES AND
Line S01863 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03372  M02S01863.253l688 ---|*         TRAILING BLANK, LEFT JUSTIFIED DISPLAY CODED VALUES.  IF
Line S01864 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03373  M02S01864.253l688 ---|*         THE FORMATTING CONTROL CHARACTER IS ANY NON-DIGIT OTHER
Line S01865 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03374  M02S01865.253l688 ---|*         THAN *B*, CHARACTERS FROM THE VALUE ARE DISPLAYED STARTING
Line S01866 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03375  M02S01866.253l688 ---|*         WITH THE LEFTMOST CHARACTER AND CONTINUING ACROSS WORD
Line S01867 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03376  M02S01867.253l688 ---|*         BOUNDARIES, IF NECESSARY, UNTIL A ZERO CHARACTER IS FOUND.
Line S01868 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03377  M02S01868.253l688 ---|*         TO DISPLAY A DOLLAR SIGN IN THE MESSAGE, 2 DOLLAR SIGNS,
Line S01869 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03378  M02S01869.253l688 ---|*         *$$*, MUST BE PLACED IN THE SKELETON.
Line S01870 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03379  M02S01870.253l688 ---|*
Line S01871 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03380  M02S01871.253l688 ---|*         ENTRY  (B6) = ADDRESS OF MESSAGE PARAMETER SKELETON.
Line S01872 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03381  M02S01872.253l688 ---|*                (X6) = MESSAGE DESCRIPTION STRING ADDRESS.
Line S01873 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03382  M02S01873.253l688 ---|*                TABLE OF PARAMETERS, *TMSP*, WITH ENTRIES IN FORM -
Line S01874 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03383  M02S01874.253l688 ---|*                1/CONVERT VALUE,1/DECIMAL PARAMETER,58/VALUE ADDRESS.
Line S01875 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03384  M02S01875.253l688 ---|*
Line S01876 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03385  M02S01876.253l688 ---|*         EXIT   (X5) = ADDRESS OF FORMATTED MESSAGE IN *C* FORMAT.
Line S01877 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03386  M02S01877.253l688 ---|*
Line S01878 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03387  M02S01878.253l688 ---|*         USES   X - ALL.
Line S01879 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03388  M02S01879.253l688 ---|*                A - ALL.
Line S01880 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03389  M02S01880.253l688 ---|*                B - 2, 3, 4, 5, 6, 7.
Line S01881 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03390  M02S01881.253l688 ---|*
Line S01882 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03391  M02S01882.253l688 ---|*         CALLS  CDD, COD, DXB, ZTB.
Line S01883 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03392  M02S01883.253l688 ---|
Line S01884 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03393  M02S01884.253l688 ---|
Line S01885 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03394  M02S01885.253l688 ---|*         END MESSAGE.
Line S01886 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03395  M02S01886.253l688 ---|
Line S01887 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03396  M02S01887.253l688 ---| EDS21    SX2    B4          INSURE EVEN NUMBER OF CHARACTERS
Line S01888 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03397  M02S01888.253l688 ---|          LX2    -1
Line S01889 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03398  M02S01889.253l688 ---|          PL     X2,EDS22    IF NOT ODD NUMBER
Line S01890 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03399  M02S01890.253l688 ---|          LX7    6           ADD TRAILING BLANK
Line S01891 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03400  M02S01891.253l688 ---|          SX3    1R
Line S01892 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03401  M02S01892.253l688 ---|          SB4    B4-B1
Line S01893 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03402  M02S01893.253l688 ---|          BX7    X3+X7
Line S01894 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03403  M02S01894.253l688 ---| EDS22    SB4    B4+B4       LEFT JUSTIFY LAST WORD OF NEW MESSAGE
Line S01895 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03404  M02S01895.253l688 ---|          SB3    B4+B4
Line S01896 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03405  M02S01896.253l688 ---|          SB4    B3+B4
Line S01897 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03406  M02S01897.253l688 ---|          LX7    X7,B4
Line S01898 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03407  M02S01898.253l688 ---|          SA7    A0+
Line S01899 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03408  M02S01899.253l688 ---|          BX6    X6-X6       GUARANTEE END OF LINE
Line S01900 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03409  M02S01900.253l688 ---|          SA6    A0+B1
Line S01901 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03410  M02S01901.253l688 ---|          SX5    EDBF        SET MESSAGE ADDRESS
Line S01902 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03411  M02S01902.253l688 ---|
Line S01903 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03412  M02S01903.253l688 ---| EDS      SUBR               ENTRY/EXIT
Line S01904 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03413  M02S01904.253l688 ---|          SA6    EDSA        SAVE MESSAGE DESCRIPTION STRING ADDRESS
Line S01905 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03414  M02S01905.253l688 ---|          SA0    EDBF        SET FORMATTED MESSAGE ADDRESS
Line S01906 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03415  M02S01906.253l688 ---|          SA4    B6-B1       INITIALIZE REGISTER
Line S01907 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03416  M02S01907.253l688 ---|          SB4    10          NEW MESSAGE WORD CHARACTER COUNT
Line S01908 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03417  M02S01908.253l688 ---|          SB3    B0          OLD MESSAGE WORD CHARACTER COUNT
Line S01909 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03418  M02S01909.253l688 ---|          BX7    X7-X7       ASSEMBLY REGISTER
Line S01910 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03419  M02S01910.253l688 ---|          MX0    -6
Line S01911 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03420  M02S01911.253l688 ---|
Line S01912 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03421  M02S01912.253l688 ---|*         CHECK FOR SEARCH CHARACTERS IN MESSAGE SKELETON.
Line S01913 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03422  M02S01913.253l688 ---|
Line S01914 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03423  M02S01914.253l688 ---| EDS1     SX5    1R$         SET SEARCH CHARACTER
Line S01915 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03424  M02S01915.253l688 ---|          SB3    B3-1        DECREMENT OLD MESSAGE COUNT
Line S01916 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03425  M02S01916.253l688 ---|          PL     B3,EDS2     IF MORE CHARACTERS IN OLD WORD
Line S01917 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03426  M02S01917.253l688 ---|          SA4    A4+1        GET NEXT OLD MESSAGE WORD
Line S01918 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03427  M02S01918.253l688 ---|          SB3    9           RESET OLD MESSAGE WORD CHARACTER COUNT
Line S01919 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03428  M02S01919.253l688 ---| EDS2     LX4    6           GET NEXT CHARACTER FROM OLD MESSAGE
Line S01920 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03429  M02S01920.253l688 ---|          BX2    -X0*X4
Line S01921 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03430  M02S01921.253l688 ---|          ZR     X2,EDS21    IF END OF LINE
Line S01922 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03431  M02S01922.253l688 ---|          SB6    B0
Line S01923 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03432  M02S01923.253l688 ---|          BX3    X5-X2
Line S01924 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03433  M02S01924.253l688 ---|          NZ     X3,EDS19    IF NOT SEARCH CHARACTER
Line S01925 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03434  M02S01925.253l688 ---|
Line S01926 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03435  M02S01926.253l688 ---|*         INSERT DESCRIPTION STRING INTO MESSAGE.
Line S01927 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03436  M02S01927.253l688 ---|
Line S01928 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03437  M02S01928.253l688 ---|          SX6    B0+
Line S01929 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03438  M02S01929.253l688 ---|          SA2    EDSA
Line S01930 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03439  M02S01930.253l688 ---|          ZR     X2,EDS5     IF DESCRIPTION STRING INSERTED
Line S01931 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03440  M02S01931.253l688 ---|          SA1    X2+         GET MESSAGE DESCRIPTION WORD
Line S01932 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03441  M02S01932.253l688 ---|          SB2    10
Line S01933 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03442  M02S01933.253l688 ---|          SA6    A2+         CLEAR DESCRIPTION STRING FLAG
Line S01934 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03443  M02S01934.253l688 ---| EDS3     SB2    B2-1
Line S01935 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03444  M02S01935.253l688 ---|          PL     B2,EDS4     IF MORE CHARACTERS IN WORD
Line S01936 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03445  M02S01936.253l688 ---|          SA1    A1+1        GET NEXT WORD IN DESCRIPTION STRING
Line S01937 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03446  M02S01937.253l688 ---|          SB2    9
Line S01938 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03447  M02S01938.253l688 ---| EDS4     LX1    6           GET NEXT CHARACTER
Line S01939 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03448  M02S01939.253l688 ---|          BX2    -X0*X1
Line S01940 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03449  M02S01940.253l688 ---|          ZR     X2,EDS1     IF DESCRIPTION STRING INSERTED IN MESSAGE
Line S01941 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03450  M02S01941.253l688 ---|          SB6    -B1
Line S01942 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03451  M02S01942.253l688 ---|          EQ     EDS19       INSERT CHARACTER IN NEW MESSAGE
Line S01943 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03452  M02S01943.253l688 ---|
Line S01944 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03453  M02S01944.253l688 ---|*         EXTRACT PARAMETER DESCRIPTOR AND FORMAT CONTROL CHARACTERS.
Line S01945 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03454  M02S01945.253l688 ---|
Line S01946 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03455  M02S01946.253l688 ---| EDS5     SB3    B3-1
Line S01947 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03456  M02S01947.253l688 ---|          PL     B3,EDS6     IF MORE CHARACTERS IN OLD WORD
Line S01948 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03457  M02S01948.253l688 ---|          SA4    A4+1        GET NEXT WORD
Line S01949 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03458  M02S01949.253l688 ---|          SB3    9
Line S01950 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03459  M02S01950.253l688 ---| EDS6     LX4    6           GET NEXT CHARACTER
Line S01951 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03460  M02S01951.253l688 ---|          BX3    -X0*X4
Line S01952 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03461  M02S01952.253l688 ---|          NG     X6,EDS8     IF FORMAT CONTROL CHARACTER
Line S01953 Modification History
M01 (Added by) pfload
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
03462  M02S01953.253l688 ---|          NZ     X6,EDS7     IF SECOND DESCRIPTOR CHARACTER
Proceed to Part 6
cdc/nos2.source/opl.opl871/deck/pfload.005.txt · Last modified: by 127.0.0.1