User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:ddf.002

Deck DDF Part 002

10 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
04236  M00S04171.ddf     +++|          NJN    FOV1        IF NOT BLANK CHARACTER
04237  M00S04172.ddf     +++|          AOD    T1          COUNT BLANKS
04238  M00S04173.ddf     +++|          UJN    FOV1        CHECK NEXT CHARACTER
04239  M00S04174.ddf     +++|
04240  M00S04175.ddf     +++| FOV2     SOD    CA          SET BYTE COUNT
04241  M00S04176.ddf     +++|          SBD    FN+4
04242  M00S04177.ddf     +++|          SBD    T1
04243  M00S04178.ddf     +++|          ADN    3
04244  M00S04179.ddf     +++|          SHN    -2
04245  M00S04180.ddf     +++|          STD    FN+3
04246  M00S04181.ddf     +++| FOV3     LDD    FN+4        CONVERT NUMBER
04247  M00S04182.ddf     +++|          STD    CA
04248  M00S04183.ddf     +++|          RJM    ASD         ASSEMBLE DIGITS
04249  M00S04184.ddf     +++|          LDD    KM          CHECK KEYBOARD MESSAGE
04250  M00S04185.ddf     +++|          LMC    SBNA
04251  M00S04186.ddf     +++|          NJN    FOV4        IF NOT MESSAGE FROM FINDO
04252  M00S04187.ddf     +++|          STD    KM
04253  M00S04188.ddf     +++|          LJM    FOV9        CONTINUE SEARCH
04254  M00S04189.ddf     +++|
04255  M00S04190.ddf     +++| FOV4     LDM    BFMS
04256  M00S04191.ddf     +++|          ZJN    FOV5        IF EOF
04257  M00S04192.ddf     +++|          LDM    BFMS+1
04258  M00S04193.ddf     +++| FOV5     ZJN    FOV10       IF ZERO LENGTH SECTOR
04259  M00S04194.ddf     +++|          SHN    2           SET BYTE COUNT
04260  M00S04195.ddf     +++|          ADM    BFMS+1
04261  M00S04196.ddf     +++|          ADN    2
04262  M00S04197.ddf     +++|          STD    FN+2
04263  M00S04198.ddf     +++|          LDN    2           SET STARTING POSITION
04264  M00S04199.ddf     +++|          STD    FN
04265  M00S04200.ddf     +++|          STD    FN+1
04266  M00S04201.ddf     +++| FOV6     LDN    5           SET BEGINNING OF SEARCH
04267  M00S04202.ddf     +++|          SBD    FN+3
04268  M00S04203.ddf     +++|          STD    T3
04269  M00S04204.ddf     +++| FOV7     LDM    BFMS,FN+1   COMPARE BYTES
04270  M00S04205.ddf     +++|          LMM    AB,T3
04271  M00S04206.ddf     +++|          NJN    FOV9        IF NOT A MATCH
04272  M00S04207.ddf     +++|          AOD    T3
04273  M00S04208.ddf     +++|          LMN    5
04274  M00S04209.ddf     +++|          ZJN    FOV8        IF SEARCH COMPLETE
04275  M00S04210.ddf     +++|          AOD    FN+1
04276  M00S04211.ddf     +++|          LMD    FN+2
04277  M00S04212.ddf     +++|          NJN    FOV7        IF NOT END OF SECTOR
04278  M00S04213.ddf     +++| FOV8     LJM    SBN         DISPLAY BYTE NUMBER
04279  M00S04214.ddf     +++|
04280  M00S04215.ddf     +++| FOV9     AOD    FN
04281  M00S04216.ddf     +++|          STD    FN+1
04282  M00S04217.ddf     +++|          LMD    FN+2
04283  M00S04218.ddf     +++|          NJN    FOV6        IF NOT END OF SECTOR
04284  M00S04219.ddf     +++| FOV10    RJM    RCPA        RETURN TO MAIN LOOP
04285  M00S04220.ddf     +++|          RJM    SNS         READ NEXT SECTOR
04286  M00S04221.ddf     +++|          ZJN    FOV11       IF EOI
04287  M00S04222.ddf     +++|          RJM    RSB         READ SECTOR
04288  M00S04223.ddf     +++|          MJN    FOV12       IF ERROR
04289  M00S04224.ddf     +++|          LJM    FOV3        LOOP
04290  M00S04225.ddf     +++|
04291  M00S04226.ddf     +++| FOV11    LJM    ERR3        *NOT FOUND.*
04292  M00S04227.ddf     +++|
04293  M00S04228.ddf     +++| FOV12    LJM    RET         RETURN
04294  M00S04229.ddf     +++| FST      SPACE  4,10
04295  M00S04230.ddf     +++|***       FINDS.CCCCCCC
04296  M00S04231.ddf     +++|*         SEARCH FROM THE CURRENT POSITION FOR THE STRING OF CHARACTERS
04297  M00S04232.ddf     +++|*         CCCCCCC.  IF THE FIRST PART OF THE STRING MATCHES THE
04298  M00S04233.ddf     +++|*         END OF THE BUFFER, THE SEARCH IS TERMINATED EVEN THOUGH THE
04299  M00S04234.ddf     +++|*         ENTIRE STRING WAS NOT FOUND.  THE BYTE NUMBER OF THE BEGIN-
04300  M00S04235.ddf     +++|*         ING OF THE STRING IS DISPLAYED.  IF THE CARRIAGE RETURN IS
04301  M00S04236.ddf     +++|*         ENTERED, THE SEARCH IS BEGUN AGAIN AT THAT POINT.
04302  M00S04237.ddf     +++|
04303  M00S04238.ddf     +++|
04304  M00S04239.ddf     +++| FST      COMMAND
04305  M00S04240.ddf     +++|          LDI    CA
04306  M00S04241.ddf     +++|          NJN    FST1        IF CHARACTER STRING ENTERED
04307  M00S04242.ddf     +++|          LJM    ERR2        *INCORRECT PARAMETER.*
04308  M00S04243.ddf     +++|
04309  M00S04244.ddf     +++| FST1     LDD    KM          CHECK KEYBOARD MESSAGE
04310  M00S04245.ddf     +++|          LMC    SBNA
04311  M00S04246.ddf     +++|          NJN    FST2        IF NOT MESSAGE FROM FINDS
04312  M00S04247.ddf     +++|          STD    KM
04313  M00S04248.ddf     +++|          LDN    1
04314  M00S04249.ddf     +++|          STD    T2
04315  M00S04250.ddf     +++|          LJM    FST9        CONTINUE SEARCH AT NEXT BYTE
04316  M00S04251.ddf     +++|
04317  M00S04252.ddf     +++| FST2     LDM    BFMS
04318  M00S04253.ddf     +++|          ZJN    FST3        IF EOF
04319  M00S04254.ddf     +++|          LDM    BFMS+1
04320  M00S04255.ddf     +++|          NJN    FST4        IF NOT ZERO LENGTH SECTOR
04321  M00S04256.ddf     +++| FST3     LJM    FST10       ADVANCE TO NEXT SECTOR
04322  M00S04257.ddf     +++|
04323  M00S04258.ddf     +++| FST4     SHN    2           SET BYTE COUNT
04324  M00S04259.ddf     +++|          ADM    BFMS+1
04325  M00S04260.ddf     +++|          ADN    2
04326  M00S04261.ddf     +++|          STD    FN+2
04327  M00S04262.ddf     +++|          LDN    2           SET STARTING BYTE NUMBER
04328  M00S04263.ddf     +++|          STD    FN
04329  M00S04264.ddf     +++|          STD    FN+1
04330  M00S04265.ddf     +++|          LDD    CA          SET BEGINNING OF STRING
04331  M00S04266.ddf     +++|          STD    T3
04332  M00S04267.ddf     +++| FST5     LDN    2           SET FIRST/SECOND HALF OF BYTE FLAG
04333  M00S04268.ddf     +++|          STD    T2
04334  M00S04269.ddf     +++| FST6     LDM    BFMS,FN+1   CHECK FIRST CHARACTER OF BYTE
04335  M00S04270.ddf     +++|          SHN    -6
04336  M00S04271.ddf     +++|          LMI    T3
04337  M00S04272.ddf     +++|          NJN    FST9        IF CHARACTERS DONT MATCH
04338  M00S04273.ddf     +++|          AOD    T3
04339  M00S04274.ddf     +++| FST7     LDI    T3          CHECK SECOND CHARACTER OF BYTE
04340  M00S04275.ddf     +++|          ZJN    FST8        IF SEARCH COMPLETE
04341  M00S04276.ddf     +++|          LMM    BFMS,FN+1
04342  M00S04277.ddf     +++|          LPN    77
04343  M00S04278.ddf     +++|          NJN    FST9        IF CHARACTERS DONT MATCH
04344  M00S04279.ddf     +++|          AOD    T3
04345  M00S04280.ddf     +++|          LDI    T3
04346  M00S04281.ddf     +++|          ZJN    FST8        IF SEARCH COMPLETE
04347  M00S04282.ddf     +++|          AOD    FN+1        ADVANCE TO NEXT 2 CHARACTERS
04348  M00S04283.ddf     +++|          LMD    FN+2
04349  M00S04284.ddf     +++|          NJN    FST6        IF NOT END OF SECTOR
04350  M00S04285.ddf     +++| FST8     LJM    SBN         DISPLAY BYTE NUMBER
04351  M00S04286.ddf     +++|
04352  M00S04287.ddf     +++| FST9     LDD    CA          RESET POINTERS
04353  M00S04288.ddf     +++|          STD    T3
04354  M00S04289.ddf     +++|          LDD    FN
04355  M00S04290.ddf     +++|          STD    FN+1
04356  M00S04291.ddf     +++|          SOD    T2
04357  M00S04292.ddf     +++|          NJN    FST7        IF STARTED WITH FIRST CHARACTER OF BYTE
04358  M00S04293.ddf     +++|          AOD    FN          ADVANCE SEARCH TO START WITH NEXT BYTE
04359  M00S04294.ddf     +++|          STD    FN+1
04360  M00S04295.ddf     +++|          LMD    FN+2
04361  M00S04296.ddf     +++|          NJN    FST5        IF NOT END OF SECTOR
04362  M00S04297.ddf     +++| FST10    RJM    RCPA        RETURN TO MAIN LOOP
04363  M00S04298.ddf     +++|          RJM    SNS         SET NEXT SECTOR
04364  M00S04299.ddf     +++|          ZJN    FST11       IF EOI
04365  M00S04300.ddf     +++|          RJM    RSB         READ SECTOR
04366  M00S04301.ddf     +++|          MJN    FST12       IF ERROR
04367  M00S04302.ddf     +++|          LJM    FST2        SEARCH NEW SECTOR
04368  M00S04303.ddf     +++|
04369  M00S04304.ddf     +++| FST11    LJM    ERR3        *NOT FOUND.*
04370  M00S04305.ddf     +++|
04371  M00S04306.ddf     +++| FST12    LJM    RET         RETURN
04372  M00S04307.ddf     +++| FSS      SPACE  4,10
04373  M00S04308.ddf     +++|***       FINDSS.NNNNNN.
04374  M00S04309.ddf     +++|*         STARTING FROM THE CURRENT TRACK AND SEARCHING TO THE END
04375  M00S04310.ddf     +++|*         OF THE TRT, FIND AND DISPLAY THE NEXT SYSTEM SECTOR WITH
04376  M00S04311.ddf     +++|*         USER INDEX NNNNNN.  IF NNNNNN IS NOT SPECIFIED, THE USER
04377  M00S04312.ddf     +++|*         INDEX IS NOT CHECKED.
04378  M00S04313.ddf     +++|
04379  M00S04314.ddf     +++|
04380  M00S04315.ddf     +++| FSS      COMMAND
04381  M00S04316.ddf     +++|          LDN    0
04382  M00S04317.ddf     +++|          STD    SC
04383  M00S04318.ddf     +++|          LDI    CA
04384  M00S04319.ddf     +++|          ZJN    FSS1        IF UI NOT ENTERED
04385  M00S04320.ddf     +++|          RJM    ASD         ASSEMBLE USER INDEX
04386  M00S04321.ddf     +++|          LDD    AB+3
04387  M00S04322.ddf     +++|          STD    FN+3
04388  M00S04323.ddf     +++|          LDD    AB+4
04389  M00S04324.ddf     +++|          STD    FN+4
04390  M00S04325.ddf     +++| FSS1     AOD    TK          ADVANCE TO NEXT TRACK
04391  M00S04326.ddf     +++|          LMD    LT
04392  M00S04327.ddf     +++|          NJN    FSS2        IF NOT END OF TRT
04393  M00S04328.ddf     +++|          SOD    TK
04394  M00S04329.ddf     +++|          LJM    ERR3        *NOT FOUND.*
04395  M00S04330.ddf     +++|
04396  M00S04331.ddf     +++| FSS2     RJM    SNT         CHECK FOR FLAWED TRACK
04397  M00S04332.ddf     +++|          LMC    3777
04398  M00S04333.ddf     +++|          ZJN    FSS1        IF FLAWED TRACK
04399  M00S04334.ddf     +++|          RJM    RSB         READ SECTOR
04400  M00S04335.ddf     +++|          MJN    FSS4        IF ERROR
04401  M00S04336.ddf     +++|          LDM    BFMS
04402  M00S04337.ddf     +++|          SHN    6
04403  M00S04338.ddf     +++|          ADM    BFMS+1
04404  M00S04339.ddf     +++|          LMC    377777
04405  M00S04340.ddf     +++|          NJN    FSS3        IF NOT SYSTEM SECTOR
04406  M00S04341.ddf     +++|          LDI    CA
04407  M00S04342.ddf     +++|          ZJN    FSS4        IF NO UI SPECIFIED
04408  M00S04343.ddf     +++|          LDM    FNSS+4      CHECK FILE TYPE
04409  M00S04344.ddf     +++|          SHN    -6
04410  M00S04345.ddf     +++|          LMN    PMFT
04411  M00S04346.ddf     +++|          NJN    FSS3        IF NOT PERMANENT FILE SYSTEM SECTOR
04412  M00S04347.ddf     +++|          LDM    CTSS+3
04413  M00S04348.ddf     +++|          LMD    FN+3
04414  M00S04349.ddf     +++|          LPN    37
04415  M00S04350.ddf     +++|          NJN    FSS3        IF UI DOES NOT MATCH
04416  M00S04351.ddf     +++|          LDM    CTSS+4
04417  M00S04352.ddf     +++|          LMD    FN+4
04418  M00S04353.ddf     +++|          ZJN    FSS4        IF UI MATCHES
04419  M00S04354.ddf     +++| FSS3     RJM    RCPA        RETURN TO MAIN LOOP
04420  M00S04355.ddf     +++|          LJM    FSS1        LOOP
04421  M00S04356.ddf     +++|
04422  M00S04357.ddf     +++| FSS4     LJM    RET         RETURN
04423  M00S04358.ddf     +++| EFB      SPACE  4,10
04424  M00S04359.ddf     +++|***       FNT.NNNN.
04425  M00S04360.ddf     +++|*         ENTER DISK ADDRESS FROM GLOBAL FNT ORDINAL NNNN.
04426  M00S04361.ddf     +++|*         (0 .LE. NNNN .LE. LARGEST FNT ORDINAL.)  THE EQUIPMENT,
04427  M00S04362.ddf     +++|*         TRACK, AND SECTOR ARE SET TO THE BEGINNING OF THE FILE.
04428  M00S04363.ddf     +++|*         *INCORRECT PARAMETER.* IS DISPLAYED IF THE FNT ENTRY IS NOT
04429  M00S04364.ddf     +++|*         USED OR THE FILE DOES NOT HAVE ANY TRACKS ASSIGNED.
04430  M00S04365.ddf     +++|
04431  M00S04366.ddf     +++|
04432  M00S04367.ddf     +++| EFB      COMMAND
04433  M00S04368.ddf     +++|          LDN    TARN
04434  M00S04369.ddf     +++|          RJM    LDO         LOAD OVERLAY
04435  M00S04370.ddf     +++|          LDN    PFNT
04436  M00S04371.ddf     +++|          RJM    /TAR/RFE    READ FST ENTRY
04437  M00S04372.ddf     +++|          LDD    FN+1
04438  M00S04373.ddf     +++|          ZJP    ERR2        IF TRACK NOT ASSIGNED
04439  M00S04374.ddf     +++|          STD    TK          TRACK
04440  M00S04375.ddf     +++|          LDN    0
04441  M00S04376.ddf     +++|          STD    SC          SECTOR
04442  M00S04377.ddf     +++|          LJM    IMS         INITIALIZE MASS STORAGE
04443  M00S04378.ddf     +++| EFL      SPACE  4,10
04444  M00S04379.ddf     +++|***       FNTL.NNNN.
04445  M00S04380.ddf     +++|*         ENTER DISK ADDRESS FROM LOCAL FNT ORDINAL NNNN.
04446  M00S04381.ddf     +++|*         (0 .LE. NNNN .LE. LARGEST FNT ORDINAL.)  THE EQUIPMENT,
04447  M00S04382.ddf     +++|*         TRACK, AND SECTOR ARE SET TO THE BEGINNING OF THE FILE.
04448  M00S04383.ddf     +++|*         *INCORRECT PARAMETER.* IS DISPLAYED IF THE FNT ENTRY IS NOT
04449  M00S04384.ddf     +++|*         USED OR THE FILE DOES NOT HAVE ANY TRACKS ASSIGNED.
04450  M00S04385.ddf     +++|
04451  M00S04386.ddf     +++|
04452  M00S04387.ddf     +++| EFL      COMMAND
04453  M00S04388.ddf     +++|          LDN    TARN
04454  M00S04389.ddf     +++|          RJM    LDO         LOAD OVERLAY
04455  M00S04390.ddf     +++|          LDN    PNFL
04456  M00S04391.ddf     +++|          RJM    /TAR/RFE    READ FST ENTRY
04457  M00S04392.ddf     +++|          LDD    FN+1
04458  M00S04393.ddf     +++|          ZJP    ERR2        IF TRACK NOT ASSIGNED
04459  M00S04394.ddf     +++|          STD    TK
04460  M00S04395.ddf     +++|          LDN    0           CLEAR SECTOR
04461  M00S04396.ddf     +++|          STD    SC
04462  M00S04397.ddf     +++|          LJM    IMS         INITIALIZE MASS STORAGE
04463  M00S04398.ddf     +++| EFC      SPACE  4,10
04464  M00S04399.ddf     +++|***       FNTLC.NNNN.
04465  M00S04400.ddf     +++|*         ENTER DISK ADDRESS FROM LOCAL FNT ORDINAL NNNN.
04466  M00S04401.ddf     +++|*         (0 .LE. NNNN .LE. LARGEST FNT ORDINAL.)  THE EQUIPMENT,
04467  M00S04402.ddf     +++|*         TRACK, AND SECTOR ARE SET TO THE CURRENT POSITION OF THE
04468  M00S04403.ddf     +++|*         FILE.  *INCORRECT PARAMETER.* IS DISPLAYED IF THE FNT ENTRY
04469  M00S04404.ddf     +++|*         IS NOT USED OR THE FILE DOES NOT HAVE ANY TRACKS ASSIGNED.
04470  M00S04405.ddf     +++|
04471  M00S04406.ddf     +++|
04472  M00S04407.ddf     +++| EFC      COMMAND
04473  M00S04408.ddf     +++|          LDN    TARN
04474  M00S04409.ddf     +++|          RJM    LDO         LOAD OVERLAY
04475  M00S04410.ddf     +++|          LDN    PNFL
04476  M00S04411.ddf     +++|          RJM    /TAR/RFE    READ FST ENTRY
04477  M00S04412.ddf     +++|          LDD    T3          CHECK FILE TYPE
04478  M00S04413.ddf     +++|          CRD    CM
04479  M00S04414.ddf     +++|          LDD    FN+2        SET TRACK
04480  M00S04415.ddf     +++|          ZJN    EFC2        IF NO CURRENT TRACK
04481  M00S04416.ddf     +++|          STD    TK
04482  M00S04417.ddf     +++|          LDD    FN+3        SET SECTOR
04483  M00S04418.ddf     +++|          STD    SC
04484  M00S04419.ddf     +++|          UJN    EFC3        INITIALIZE MASS STORAGE
04485  M00S04420.ddf     +++|
04486  M00S04421.ddf     +++| EFC2     STD    SC          SET SECTOR
04487  M00S04422.ddf     +++|          LDD    FN+1        SET TRACK
04488  M00S04423.ddf     +++|          STD    TK
04489  M00S04424.ddf     +++| EFC3     LJM    IMS         INITIALIZE MASS STORAGE
04490  M00S04425.ddf     +++| GTT      SPACE  4,10
04491  M00S04426.ddf     +++|***       GETTRT.NNNN.
04492  M00S04427.ddf     +++|*         THIS COMMAND IS INTENDED TO BE USED ON THE LABEL TRACK.  THE
04493  M00S04428.ddf     +++|*         EQUIPMENT AND TRACK MUST BE SET FOR THE LABEL TRACK BEFORE
04494  M00S04429.ddf     +++|*         THE COMMAND IS USED.  GETTRT READS THE SECTOR THAT CONTAINS
04495  M00S04430.ddf     +++|*         THE CHECKPOINTED TRT INFORMATION FOR TRACK NNNN AND DISPLAYS
04496  M00S04431.ddf     +++|*         THE BYTE NUMBER WITHIN THE SECTOR FOR THAT TRACK.
04497  M00S04432.ddf     +++|
04498  M00S04433.ddf     +++|
04499  M00S04434.ddf     +++| GTT      COMMAND
04500  M00S04435.ddf     +++|          RJM    ASD         GET TRACK NUMBER
04501  M00S04436.ddf     +++|          LDD    AB+4        GET BYTE NUMBER WITHIN CM WORD
04502  M00S04437.ddf     +++|          LPC    3777
04503  M00S04438.ddf     +++|          STD    AB+4
04504  M00S04439.ddf     +++|          LPN    3
04505  M00S04440.ddf     +++|          STD    AB+3
04506  M00S04441.ddf     +++|          LDD    AB+4        GET CM WORD NUMBER
04507  M00S04442.ddf     +++|          SHN    -2
04508  M00S04443.ddf     +++|          STD    AB+2
04509  M00S04444.ddf     +++|          SHN    -6          SET SECTOR NUMBER
04510  M00S04445.ddf     +++|          STD    SC
04511  M00S04446.ddf     +++|          SHN    6
04512  M00S04447.ddf     +++|          STD    AB+1
04513  M00S04448.ddf     +++|          AOD    SC
04514  M00S04449.ddf     +++|          LDD    AB+2        GET CM WORD NUMBER WITH SECTOR
04515  M00S04450.ddf     +++|          SBD    AB+1
04516  M00S04451.ddf     +++|          STD    AB
04517  M00S04452.ddf     +++|          SHN    2           CALCULATE BYTE NUMBER
04518  M00S04453.ddf     +++|          ADD    AB
04519  M00S04454.ddf     +++|          ADD    AB+3
04520  M00S04455.ddf     +++|          ADN    2
04521  M00S04456.ddf     +++|          STD    FN
04522  M00S04457.ddf     +++|          RJM    RSB         READ SECTOR
04523  M00S04458.ddf     +++|          LJM    SBN         DISPLAY BYTE NUMBER
04524  M00S04459.ddf     +++| HOL      SPACE  4,10
04525  M00S04460.ddf     +++|***       HOLD.
04526  M00S04461.ddf     +++|*         DROP DISPLAY AND WAIT FOR OPERATOR ASSIGNMENT.  RESERVED
04527  M00S04462.ddf     +++|*         CHANNEL IS NOT DROPPED.
04528  M00S04463.ddf     +++|
04529  M00S04464.ddf     +++|
04530  M00S04465.ddf     +++| HOL      COMMAND
04531  M00S04466.ddf     +++|          RJM    DDS         DROP DISPLAY
04532  M00S04467.ddf     +++|          LDD    MA          SAVE DISK DATA
04533  M00S04468.ddf     +++|          CWD    T3
04534  M00S04469.ddf     +++|          RJM    RDC         REQUEST DISPLAY
04535  M00S04470.ddf     +++|          RJM    CSB         CLEAR SCREEN BUFFER
04536  M00S04471.ddf     +++|          LDD    MA          RESTORE DISK DATA
04537  M00S04472.ddf     +++|          CRD    T3
04538  M00S04473.ddf     +++|          LJM    IMS         INITIALIZE MASS STORAGE
04539  M00S04474.ddf     +++| EIT      SPACE  4,10
04540  M00S04475.ddf     +++|***       QFT.NNNN.
04541  M00S04476.ddf     +++|*         ENTER DISK ADDRESS FROM QFT ORDINAL NNNN.
04542  M00S04477.ddf     +++|*         (0 .LE. NNNN .LE. LARGEST QFT ORDINAL.)  THE EQUIPMENT,
04543  M00S04478.ddf     +++|*         TRACK, AND SECTOR ARE SET TO THE BEGINNING OF THE FILE.
04544  M00S04479.ddf     +++|*         *INCORRECT PARAMETER.* IS DISPLAYED IF THE QFT ENTRY IS NOT
04545  M00S04480.ddf     +++|*         USED OR THE FILE DOES NOT HAVE ANY TRACKS ASSIGNED.
04546  M00S04481.ddf     +++|
04547  M00S04482.ddf     +++|
04548  M00S04483.ddf     +++| EIT      COMMAND
04549  M00S04484.ddf     +++|          LDN    TARN
04550  M00S04485.ddf     +++|          RJM    LDO         LOAD OVERLAY
04551  M00S04486.ddf     +++|          LDN    PQFT
04552  M00S04487.ddf     +++|          RJM    /TAR/RFE    READ FST ENTRY
04553  M00S04488.ddf     +++|          LDD    FN+1
04554  M00S04489.ddf     +++|          ZJP    ERR2        IF TRACK NOT ASSIGNED
04555  M00S04490.ddf     +++|          STD    TK
04556  M00S04491.ddf     +++|          LDN    0           CLEAR SECTOR
04557  M00S04492.ddf     +++|          STD    SC
04558  M00S04493.ddf     +++|          LJM    IMS         INITIALIZE MASS STORAGE
04559  M00S04494.ddf     +++| LSA      SPACE  4,10
04560  M00S04495.ddf     +++|***       LOAD.C.
04561  M00S04496.ddf     +++|*         RELOAD THE EQUIPMENT, TRACK, AND SECTOR FROM SCRATCH AREA
04562  M00S04497.ddf     +++|*         C.  C IS A SINGLE ALPHABETIC CHARACTER (LEGAL CHARACTERS ARE
04563  M00S04498.ddf     +++|*         DISPLAYED ON THE LEFT SCREEN).  (REFER TO THE STORE COMMAND.)
04564  M00S04499.ddf     +++|
04565  M00S04500.ddf     +++|
04566  M00S04501.ddf     +++| LSA      COMMAND
04567  M00S04502.ddf     +++|          RJM    CSA         GET ADDRESS OF SCRATCH AREA
04568  M00S04503.ddf     +++|          LDI    T2
04569  M00S04504.ddf     +++|          ZJN    LSA1        IF STORE NOT DONE
04570  M00S04505.ddf     +++|          STD    EQ
04571  M00S04506.ddf     +++|          LDM    1,T2
04572  M00S04507.ddf     +++|          STD    TK
04573  M00S04508.ddf     +++|          LDM    2,T2
04574  M00S04509.ddf     +++|          STD    SC
04575  M00S04510.ddf     +++|          LDM    3,T2        SET DISPLAY
04576  M00S04511.ddf     +++|          SHN    -11
04577  M00S04512.ddf     +++|          STD    RS
04578  M00S04513.ddf     +++|          RJM    LDO         LOAD OVERLAY
04579  M00S04514.ddf     +++|          LDM    3,T2
04580  M00S04515.ddf     +++|          LPC    777
04581  M00S04516.ddf     +++|          STM    DRSA+4
04582  M00S04517.ddf     +++|          LJM    IMS         INITIALIZE MASS STORAGE
04583  M00S04518.ddf     +++|
04584  M00S04519.ddf     +++| LSA1     LJM    ERR2        *INCORRECT PARAMETER.*
04585  M00S04520.ddf     +++| EPN      SPACE  4,10
04586  M00S04521.ddf     +++|***       PACKNAM.CCCCCCC.
04587  M00S04522.ddf     +++|*         USE PERMANENT FILE PACK CCCCCCC.  (THE PACK NAME IS SET
04588  M00S04523.ddf     +++|*         INTERNALLY IN DDF.  *PKNW* IN THE CONTROL POINT AREA IS NOT
04589  M00S04524.ddf     +++|*         CHANGED.)  THE PACK NAME IS INITIALLY SET TO THE NAME IN
04590  M00S04525.ddf     +++|*         *PKNW*.
04591  M00S04526.ddf     +++|
04592  M00S04527.ddf     +++|
04593  M00S04528.ddf     +++| EPN      COMMAND
04594  M00S04529.ddf     +++|          RJM    ASN         GET NAME
04595  M00S04530.ddf     +++|          LDD    FN          SAVE NAME
04596  M00S04531.ddf     +++|          STD    PF
04597  M00S04532.ddf     +++|          LDD    FN+1
04598  M00S04533.ddf     +++|          STD    PF+1
04599  M00S04534.ddf     +++|          LDD    FN+2
04600  M00S04535.ddf     +++|          STD    PF+2
04601  M00S04536.ddf     +++|          LDD    PF+3
04602  M00S04537.ddf     +++|          LPN    77
04603  M00S04538.ddf     +++|          LMD    FN+3
04604  M00S04539.ddf     +++|          STD    PF+3
04605  M00S04540.ddf     +++|          LJM    RET         RETURN
04606  M00S04541.ddf     +++| PRD      SPACE  4,10
04607  M00S04542.ddf     +++|***       PREAD.
04608  M00S04543.ddf     +++|*         READ THE CURRENT SECTOR USING THE *READ PROTECTED SECTOR*
04609  M00S04544.ddf     +++|*         FUNCTION.  THIS COMMAND REPLACES THE SPACE KEY WHEN READING
04610  M00S04545.ddf     +++|*         PROTECTED SECTORS.  SPECIAL KEYS LIKE *+* AND *-* CANNOT
04611  M00S04546.ddf     +++|*         BE USED TO READ PROTECTED SECTORS. THE KEYBOARD MUST BE
04612  M00S04547.ddf     +++|*         UNLOCKED TO USE THIS COMMAND.
04613  M00S04548.ddf     +++|
04614  M00S04549.ddf     +++|
04615  M00S04550.ddf     +++| PRD      COMMAND
04616  M00S04551.ddf     +++|          RJM    CLB         CHECK LOCK BIT
Line S00040 Modification History
M01 (Added by) ddf4
Seq #  *Modification Id* Act 
----------------------------+
04617  M01S00040.ddf4    +++|          RJM    CEQ         CHECK EQUIPMENT
04618  M00S04552.ddf     +++|          LDD    TK          SAVE TRACK AND SECTOR
04619  M00S04553.ddf     +++|          STD    FN
04620  M00S04554.ddf     +++|          LDD    SC
04621  M00S04555.ddf     +++|          STD    FN+1
04622  M00S04556.ddf     +++|          LDD    EQ          SET EQUIPMENT
04623  M00S04557.ddf     +++|          ADC    1000
04624  M00S04558.ddf     +++|          STM    PRDB
04625  M00S04559.ddf     +++|          EXECUTE  0PI,PRDB+1  SET UP DRIVER FOR PROTECTED SECTORS
04626  M00S04560.ddf     +++|          LDD    FN          RESET TRACK AND SECTOR
04627  M00S04561.ddf     +++|          STD    TK
04628  M00S04562.ddf     +++|          LDD    FN+1
04629  M00S04563.ddf     +++|          STD    SC
04630  M00S04564.ddf     +++|          LDM    KBUF+1
04631  M00S04565.ddf     +++|          LMN    1RW
04632  M00S04566.ddf     +++|          NJN    PRD1        IF NOT *PWRITE* COMMAND
04633  M00S04567.ddf     +++|          LDC    WDS
04634  M00S04568.ddf     +++|          STM    PRDA
04635  M00S04569.ddf     +++| PRD1     LDC    BFMS        READ/WRITE SECTOR
04636  M00S04570.ddf     +++|          RJM    RDS
04637  M00S04571.ddf     +++| PRDA     EQU    *-1
04638  M00S04572.ddf     +++|*         RJM    WDS         (*PWRITE* COMMAND)
04639  M00S04573.ddf     +++|          MJN    PRD2        IF ERROR
04640  M00S04574.ddf     +++|          ENDMS
04641  M00S04575.ddf     +++|*         LDN    0
04642  M00S04576.ddf     +++|          STM    RDCT
04643  M00S04577.ddf     +++| PRD2     LDM    RDCT        RELOAD DRIVER
04644  M00S04578.ddf     +++|          STD    FN
04645  M00S04579.ddf     +++|          LDD    T6
04646  M00S04580.ddf     +++|          STD    FN+1
04647  M00S04581.ddf     +++|          RJM    CTS
04648  M00S04582.ddf     +++|          LDD    FN
04649  M00S04583.ddf     +++|          STM    RDCT
04650  M00S04584.ddf     +++|          LDD    FN+1
04651  M00S04585.ddf     +++|          STD    T6
04652  M00S04586.ddf     +++|          LJM    RET         RETURN
04653  M00S04587.ddf     +++|
04654  M00S04588.ddf     +++|
04655  M00S04589.ddf     +++| PRDB     BSS    0           *0PI* LOAD ADDRESS
04656  M00S04590.ddf     +++|          ERRNG  7777-PRDB-1-ZPXL  *0PI* OVERFLOWS PP MEMORY
04657  M00S04591.ddf     +++| PTK      SPACE  4,10
04658  M00S04592.ddf     +++|***       PTK.NNNN.
04659  M00S04593.ddf     +++|*         ENTER PROTECTED TRACK.  THIS COMMAND WORKS THE SAME AS THE
04660  M00S04594.ddf     +++|*         TK. COMMAND EXCEPT THE NUMBER ENTERED IS NOT CHECKED AND THE
04661  M00S04595.ddf     +++|*         KEYBOARD MUST BE UNLOCKED.
04662  M00S04596.ddf     +++|
04663  M00S04597.ddf     +++|
04664  M00S04598.ddf     +++| PTK      COMMAND
04665  M00S04599.ddf     +++|          RJM    CLB         CHECK LOCK BIT
04666  M00S04600.ddf     +++|          RJM    ASD         ASSEMBLE TRACK NUMBER
04667  M00S04601.ddf     +++|          LDD    AB+4
04668  M00S04602.ddf     +++|          LPC    3777
04669  M00S04603.ddf     +++|          LMC    4000
04670  M00S04604.ddf     +++|          STD    TK
04671  M00S04605.ddf     +++|          LJM    RET         RETURN
04672  M00S04606.ddf     +++| PWT      SPACE  4,10
04673  M00S04607.ddf     +++|***       PWRITE.
04674  M00S04608.ddf     +++|*         WRITE THE CURRENT SECTOR USING THE *WRITE PROTECTED SECTOR*
04675  M00S04609.ddf     +++|*         FUNCTION.  THIS COMMAND SHOULD BE USED INSTEAD OF THE *WRITE*
04676  M00S04610.ddf     +++|*         COMMAND WHEN WRITING PROTECTED SECTORS.
04677  M00S04611.ddf     +++|
04678  M00S04612.ddf     +++|
04679  M00S04613.ddf     +++|          QUAL   PRESET
04680  M00S04614.ddf     +++| PWT      EQU    PRD
04681  M00S04615.ddf     +++| PWTL     EQU    PRDL
04682  M00S04616.ddf     +++|          QUAL   *
04683  M00S04617.ddf     +++| ERA      SPACE  4,20
04684  M00S04618.ddf     +++|***       RANDOM.NNNN.RRRR.
04685  M00S04619.ddf     +++|*         SET TRACK AND SECTOR FOR RANDOM ADDRESS RRRR WITH FIRST TRACK
04686  M00S04620.ddf     +++|*         NNNN.  *INCORRECT PARAMETER.* IS DISPLAYED IF THE RANDOM
04687  M00S04621.ddf     +++|*         ADDRESS IS NOT ON THE TRACK.
04688  M00S04622.ddf     +++|*
04689  M00S04623.ddf     +++|*
04690  M00S04624.ddf     +++|*         RANDOM..RRRR.
04691  M00S04625.ddf     +++|*         SET TRACK AND SECTOR FOR RANDOM ADDRESS RRRR USING THE
04692  M00S04626.ddf     +++|*         CURRENT TRACK AS THE FIRST TRACK.  *INCORRECT PARAMETER.* IS
04693  M00S04627.ddf     +++|*         DISPLAYED IF THE RANDOM ADDRESS IS NOT ON THE CHAIN.
04694  M00S04628.ddf     +++|*
04695  M00S04629.ddf     +++|*
04696  M00S04630.ddf     +++|*         RANDOM.C.RRRR.
04697  M00S04631.ddf     +++|*         SET TRACK AND SECTOR FOR RANDOM ADDRESS RRRR USING THE TRACK
04698  M00S04632.ddf     +++|*         SPECIFIED BY SCRATCH REGISTER C AS THE FIRST TRACK.
04699  M00S04633.ddf     +++|*         *INCORRECT PARAMETER.* IS DISPLAYED IF THE RANDOM ADDRESS IS
04700  M00S04634.ddf     +++|*         NOT ON THE CHAIN.
04701  M00S04635.ddf     +++|
04702  M00S04636.ddf     +++|
04703  M00S04637.ddf     +++| ERA      COMMAND
04704  M00S04638.ddf     +++|          LDD    TK          SAVE CURRENT TRACK
04705  M00S04639.ddf     +++|          STD    RC
04706  M00S04640.ddf     +++|          LDI    CA
04707  M00S04641.ddf     +++|          LMN    1R.
04708  M00S04642.ddf     +++|          ZJN    ERA3        IF TRACK NUMBER NOT ENTERED
04709  M00S04643.ddf     +++|          LDI    CA
04710  M00S04644.ddf     +++|          SBN    NSRA+1
04711  M00S04645.ddf     +++|          PJN    ERA1        IF NOT A SCRATCH AREA
04712  M00S04646.ddf     +++|          RJM    CSA         COMPUTE SCRATCH AREA ADDRESS
04713  M00S04647.ddf     +++|          LDM    1,T2        SET TRACK FROM SCRATCH AREA
04714  M00S04648.ddf     +++|          UJN    ERA2        STORE TRACK
04715  M00S04649.ddf     +++|
04716  M00S04650.ddf     +++| ERA1     RJM    ASD         GET FIRST TRACK
04717  M00S04651.ddf     +++|          LDD    AB+4
04718  M00S04652.ddf     +++| ERA2     STD    TK
04719  M00S04653.ddf     +++| ERA3     AOD    CA
04720  M00S04654.ddf     +++|          RJM    CDR         GET RANDOM ADDRESS
04721  M00S04655.ddf     +++|          LMN    1R.
04722  M00S04656.ddf     +++|          NJN    ERA4        IF FORMAT ERROR
04723  M00S04657.ddf     +++|          RJM    CRA         CHECK RANDOM ADDRESS
04724  M00S04658.ddf     +++|          MJN    ERA5        IF NOT ON CHAIN
04725  M00S04659.ddf     +++|          LJM    RET         RETURN
04726  M00S04660.ddf     +++|
04727  M00S04661.ddf     +++| ERA4     LDD    RC          RESET TRACK
04728  M00S04662.ddf     +++|          STD    TK
04729  M00S04663.ddf     +++|          LJM    ERR1        *FORMAT ERROR.*
04730  M00S04664.ddf     +++|
04731  M00S04665.ddf     +++| ERA5     LDD    RC          RESET TRACK
04732  M00S04666.ddf     +++|          STD    TK
04733  M00S04667.ddf     +++|          LJM    ERR2        *INCORRECT PARAMETER.*
04734  M00S04668.ddf     +++|
04735  M00S04669.ddf     +++|
04736  M00S04670.ddf     +++|*CALL     COMPCRA
04737  M00S04671.ddf     +++| ESC      SPACE  4,10
04738  M00S04672.ddf     +++|***       SC.NNNN.
04739  M00S04673.ddf     +++|*         ENTER SECTOR NUMBER.  *INCORRECT PARAMETER.* IS DISPLAYED IF
04740  M00S04674.ddf     +++|*         THE SECTOR NUMBER IS TOO LARGE.
04741  M00S04675.ddf     +++|
04742  M00S04676.ddf     +++|
04743  M00S04677.ddf     +++| ESC      COMMAND
04744  M00S04678.ddf     +++|          RJM    ASD         ASSEMBLE NUMBER
04745  M00S04679.ddf     +++|          LDD    LS
04746  M00S04680.ddf     +++|          SBD    AB+4
04747  M00S04681.ddf     +++|          MJN    ESC1        IF ILLEGAL SECTOR
04748  M00S04682.ddf     +++|          LDD    AB+4
04749  M00S04683.ddf     +++|          STD    SC
04750  M00S04684.ddf     +++|          LJM    RET         RETURN
04751  M00S04685.ddf     +++|
04752  M00S04686.ddf     +++| ESC1     LJM    ERR2        *INCORRECT PARAMETER.*
04753  M00S04687.ddf     +++| ELS      SPACE  4,10
04754  M00S04688.ddf     +++|***       SC.*.
04755  M00S04689.ddf     +++|*         ENTER THE NUMBER OF THE LAST SECTOR ON THE TRACK INTO THE
04756  M00S04690.ddf     +++|*         SECTOR NUMBER.
04757  M00S04691.ddf     +++|
04758  M00S04692.ddf     +++|
04759  M00S04693.ddf     +++| ELS      COMMAND
04760  M00S04694.ddf     +++|          LDD    LS          SET LAST SECTOR
04761  M00S04695.ddf     +++|          STD    SC
04762  M00S04696.ddf     +++|          LJM    RET         RETURN
04763  M00S04697.ddf     +++| SCN      SPACE  4,15
04764  M00S04698.ddf     +++|***       SCAN.
04765  M00S04699.ddf     +++|*         SCAN FROM THE CURRENT POSITION UNTIL THE END OF INFORMATION
04766  M00S04700.ddf     +++|*         CONTROL BYTES ARE ENCOUNTERED.  THE SCAN STOPS IF, AT SOME
04767  M00S04701.ddf     +++|*         POINT, THE CONTROL BYTES ARE INCORRECT OR THE TRACK IS NOT
04768  M00S04702.ddf     +++|*         RESERVED.
04769  M00S04703.ddf     +++|*
04770  M00S04704.ddf     +++|*
04771  M00S04705.ddf     +++|*         SCAN.*.
04772  M00S04706.ddf     +++|*         SCAN FROM THE CURRENT POSITION UNTIL THE END OF INFORMATION
04773  M00S04707.ddf     +++|*         INDICATED IN THE TRT IS REACHED.  THIS IS INTENDED TO BE USED
04774  M00S04708.ddf     +++|*         FOR THE INDIRECT ACCESS PERMANENT FILE CHAIN.  NOTE - WHEN
04775  M00S04709.ddf     +++|*         *PFM* DELINKS A TRACK IN THE MIDDLE OF THE CHAIN, IT DOES NOT
04776  M00S04710.ddf     +++|*         UPDATE THE TRACK POINTER IN THE PRECEEDING TRACK.  THIS WILL
04777  M00S04711.ddf     +++|*         CAUSE SCAN TO STOP AT THIS POINT AND DISPLAY AN ERROR.
04778  M00S04712.ddf     +++|
04779  M00S04713.ddf     +++|
04780  M00S04714.ddf     +++| SCN      COMMAND
04781  M00S04715.ddf     +++| SCN1     RJM    RCPA        RETURN TO MAIN LOOP
04782  M00S04716.ddf     +++|          RJM    SNT         CHECK TRT
04783  M00S04717.ddf     +++|          LDN    0           SET ERROR MESSAGE NUMBER
04784  M00S04718.ddf     +++|          STD    T3
04785  M00S04719.ddf     +++|          LDM    BFMS
04786  M00S04720.ddf     +++|          SHN    6
04787  M00S04721.ddf     +++|          ADM    BFMS+1
04788  M00S04722.ddf     +++|          LMC    377777
04789  M00S04723.ddf     +++|          NJN    SCN2        IF NOT SYSTEM SECTOR
04790  M00S04724.ddf     +++|          AOD    T3
04791  M00S04725.ddf     +++|          LDM    NSSS
04792  M00S04726.ddf     +++|          UJN    SCN3        CHECK SYSTEM SECTOR POINTER
04793  M00S04727.ddf     +++|
04794  M00S04728.ddf     +++| SCN2     LDM    BFMS
04795  M00S04729.ddf     +++|          NJN    SCN3        IF NOT EOF
04796  M00S04730.ddf     +++|          LDM    BFMS+1
04797  M00S04731.ddf     +++|          NJN    SCN3        IF NOT EOI
04798  M00S04732.ddf     +++|          LJM    SCN9        CHECK EOI PROCESSING
04799  M00S04733.ddf     +++|
04800  M00S04734.ddf     +++| SCN3     SHN    6
04801  M00S04735.ddf     +++|          PJN    SCN4        IF NOT A TRACK LINK BYTE
04802  M00S04736.ddf     +++|          SHN    -6
04803  M00S04737.ddf     +++|          LMM    CM,T1
04804  M00S04738.ddf     +++|          NJN    SCN8        IF LINKAGE BYTES DONT MATCH TRT
04805  M00S04739.ddf     +++|          LDN    2           SET ERROR MESSAGE NUMBER
04806  M00S04740.ddf     +++|          STD    T3
04807  M00S04741.ddf     +++|          LDD    SC
04808  M00S04742.ddf     +++|          LMD    LS
04809  M00S04743.ddf     +++|          NJN    SCN8        IF TRACK LINK NOT IN LAST SECTOR
04810  M00S04744.ddf     +++|          UJN    SCN5        CHECK WORD COUNT
04811  M00S04745.ddf     +++|
04812  M00S04746.ddf     +++| SCN4     SHN    -6
04813  M00S04747.ddf     +++|          SBN    1
04814  M00S04748.ddf     +++|          LMD    SC
04815  M00S04749.ddf     +++|          NJN    SCN8        IF NEXT SECTOR .NE. CURRENT SECTOR+1
04816  M00S04750.ddf     +++| SCN5     LDN    3           SET MESSAGE NUMBER
04817  M00S04751.ddf     +++|          STD    T3
04818  M00S04752.ddf     +++|          LDM    BFMS        CHECK WORD COUNT
04819  M00S04753.ddf     +++|          ZJN    SCN6        IF EOF
04820  M00S04754.ddf     +++|          LDD    HN
04821  M00S04755.ddf     +++|          SBM    BFMS+1
04822  M00S04756.ddf     +++|          MJN    SCN8        IF BAD WORD COUNT
04823  M00S04757.ddf     +++| SCN6     AOD    T3
04824  M00S04758.ddf     +++|          RJM    CTR         CHECK TRACK RESERVATION
04825  M00S04759.ddf     +++|          PJN    SCN8        IF TRACK NOT RESERVED
04826  M00S04760.ddf     +++|          RJM    SNS         ADVANCE TO NEXT SECTOR
04827  M00S04761.ddf     +++| SCN7     RJM    RSB         READ SECTOR
04828  M00S04762.ddf     +++|          MJN    SCN11       IF ERROR
04829  M00S04763.ddf     +++|          LJM    SCN1        LOOP
04830  M00S04764.ddf     +++|
04831  M00S04765.ddf     +++| SCN8     LDM    SCNA,T3     GET MESSAGE
04832  M00S04766.ddf     +++|          LJM    SKM         SET KEYBOARD MESSAGE
04833  M00S04767.ddf     +++|
04834  M00S04768.ddf     +++| SCN9     LDI    CA
04835  M00S04769.ddf     +++|          ZJN    SCN11       IF NOT SCAN TO TRT EOI
04836  M00S04770.ddf     +++|          RJM    SNT         SET NEXT TRACK
04837  M00S04771.ddf     +++|          STD    T1
04838  M00S04772.ddf     +++|          SHN    6
04839  M00S04773.ddf     +++|          MJN    SCN10       IF NOT EOI TRACK
04840  M00S04774.ddf     +++|          SHN    -6
04841  M00S04775.ddf     +++|          LMD    SC
04842  M00S04776.ddf     +++|          ZJN    SCN11       IF AT EOI INDICATED IN TRT
04843  M00S04777.ddf     +++| SCN10    AOD    SC          ADVANCE TO NEXT SECTOR
04844  M00S04778.ddf     +++|          SBD    LS
04845  M00S04779.ddf     +++|          SBN    1
04846  M00S04780.ddf     +++|          NJN    SCN7        IF NOT END OF TRACK
04847  M00S04781.ddf     +++|          STD    SC
04848  M00S04782.ddf     +++|          LDD    T1
04849  M00S04783.ddf     +++|          STD    TK
04850  M00S04784.ddf     +++|          UJN    SCN7        READ NEXT SECTOR
04851  M00S04785.ddf     +++|
04852  M00S04786.ddf     +++| SCN11    LJM    RET         RETURN
04853  M00S04787.ddf     +++|
04854  M00S04788.ddf     +++|
04855  M00S04789.ddf     +++| SCNA     CON    SCNB,SCNC,SCND,SCNE,SCNF
04856  M00S04790.ddf     +++| SCNB     DATA   Z*LINKAGE BYTE BAD.*
04857  M00S04791.ddf     +++| SCNC     DATA   Z*SYSTEM SECTOR LINKAGE BYTE BAD.*
04858  M00S04792.ddf     +++| SCND     DATA   Z*TRACK LINK IN WRONG SECTOR.*
04859  M00S04793.ddf     +++| SCNE     DATA   Z*WORD COUNT TOO BIG.*
04860  M00S04794.ddf     +++| SCNF     DATA   Z*TRACK NOT RESERVED.*
04861  M00S04795.ddf     +++| SPF      SPACE  4,10
04862  M00S04796.ddf     +++|***       SHOWPF.
04863  M00S04797.ddf     +++|*         DISPLAY THE PERMANENT FILE WHOSE CATALOG ENTRY IS CURRENTLY
04864  M00S04798.ddf     +++|*         DISPLAYED.  THE *PFC* DISPLAY MUST BE ON THE RIGHT SCREEN TO
04865  M00S04799.ddf     +++|*         USE THIS COMMAND.  THE DEVICE, TRACK, AND SECTOR FROM THE
04866  M00S04800.ddf     +++|*         PFC CURRENTLY DISPLAYED ARE USED TO DISPLAY THE FILE.  IF THE
04867  M00S04801.ddf     +++|*         DEVICE IS NOT PRESENT, *INCORRECT PARAMETER* IS DISPLAYED.
04868  M00S04802.ddf     +++|
04869  M00S04803.ddf     +++|
04870  M00S04804.ddf     +++| SPF      COMMAND
04871  M00S04805.ddf     +++|          LDD    RS          CHECK CURRENT DISPLAY
04872  M00S04806.ddf     +++|          LMN    DFDN
04873  M00S04807.ddf     +++|          SHN    12
04874  M00S04808.ddf     +++|          ADM    /DFD/DFDB
04875  M00S04809.ddf     +++|          LMN    DPEN
04876  M00S04810.ddf     +++|          NJP    ERR4        IF PFC DISPLAY NOT UP
04877  M00S04811.ddf     +++|          LDM    DRSA+4      COMPUTE PFC ADDRESS
04878  M00S04812.ddf     +++|          SHN    NWCES
04879  M00S04813.ddf     +++|          STD    FN
04880  M00S04814.ddf     +++|          SHN    2
04881  M00S04815.ddf     +++|          RAD    FN
04882  M00S04816.ddf     +++|          LDM    BFMS+2+FCDN,FN  DETERMINE EQUIPMENT FILE IS ON
04883  M00S04817.ddf     +++|          LPN    77
04884  M00S04818.ddf     +++|          ZJN    SPF2        IF FILE IS ON MASTER DEVICE
04885  M00S04819.ddf     +++|          STD    CM
04886  M00S04820.ddf     +++|          LDD    MA          SAVE CURRENT DIRECT CELLS
04887  M00S04821.ddf     +++|          ADN    4
04888  M00S04822.ddf     +++|          CWD    T3 - T7
04889  M00S04823.ddf     +++|          ADN    1
04890  M00S04824.ddf     +++|          CWD    CM+3 - CM+7
04891  M00S04825.ddf     +++|          LDD    T5          SEARCH FOR DEVICE
04892  M00S04826.ddf     +++|          RJM    SDN
04893  M00S04827.ddf     +++|          PJN    SPF1        IF DEVICE FOUND
04894  M00S04828.ddf     +++|          ADN    1
04895  M00S04829.ddf     +++|          ZJN    SPF4        IF DEVICE NOT FOUND
04896  M00S04830.ddf     +++| SPF1     LDD    MA          RESTORE DIRECT CELLS USED BY *COMPSDN*
04897  M00S04831.ddf     +++|          ADN    4+1
04898  M00S04832.ddf     +++|          CRD    CM+3
04899  M00S04833.ddf     +++| SPF2     LDM    BFMS+2+FCBT,FN  SET TRACK
04900  M00S04834.ddf     +++|          STD    T6
04901  M00S04835.ddf     +++|          LDM    BFMS+2+FCBS,FN  SET SECTOR
04902  M00S04836.ddf     +++|          STD    T7
04903  M00S04837.ddf     +++|          SHN    21-13
04904  M00S04838.ddf     +++|          PJN    SPF3        IF INDIRECT ACCESS FILE
04905  M00S04839.ddf     +++|          LDN    0
04906  M00S04840.ddf     +++|          STD    T7
04907  M00S04841.ddf     +++| SPF3     LJM    IMS         INITIALIZE MASS STORAGE
04908  M00S04842.ddf     +++|
04909  M00S04843.ddf     +++| SPF4     LDD    MA          RESTORE PREVIOUS VALUES TO DIRECT CELLS
04910  M00S04844.ddf     +++|          ADN    4
04911  M00S04845.ddf     +++|          CRD    T3
04912  M00S04846.ddf     +++|          ADN    1
04913  M00S04847.ddf     +++|          CRD    CM+3
04914  M00S04848.ddf     +++|          LJM    ERR2        *INCORRECT PARAMETER*
04915  M00S04849.ddf     +++|
04916  M00S04850.ddf     +++|
04917  M00S04851.ddf     +++|*CALL     COMPSDN
04918  M00S04852.ddf     +++| SKE      SPACE  4,10
04919  M00S04853.ddf     +++|***       SKIPEI.
04920  M00S04854.ddf     +++|*         SET TRACK AND SECTOR TO EOI BASED ON CURRENT POSITION AND
04921  M00S04855.ddf     +++|*         INFORMATION IN THE TRT.  THE NUMBER OF SECTORS SKIPPED IS
04922  M00S04856.ddf     +++|*         DISPLAYED ON THE LEFT SCREEN.
04923  M00S04857.ddf     +++|
04924  M00S04858.ddf     +++|
04925  M00S04859.ddf     +++| SKE      COMMAND
04926  M00S04860.ddf     +++|          RJM    SEI         SEARCH FOR EOI
04927  M00S04861.ddf     +++|          LDD    T2          SET UP MESSAGE
04928  M00S04862.ddf     +++|          SHN    -6
04929  M00S04863.ddf     +++|          RJM    C2D         CONVERT TWO DIGITS
04930  M00S04864.ddf     +++|          STM    SKEB
04931  M00S04865.ddf     +++|          LDD    T2
04932  M00S04866.ddf     +++|          RJM    C2D         CONVERT TWO DIGITS
04933  M00S04867.ddf     +++|          STM    SKEB+1
04934  M00S04868.ddf     +++|          LDD    T3
04935  M00S04869.ddf     +++|          SHN    -6
04936  M00S04870.ddf     +++|          RJM    C2D         CONVERT TWO DIGITS
04937  M00S04871.ddf     +++|          STM    SKEB+2
04938  M00S04872.ddf     +++|          LDD    T3
04939  M00S04873.ddf     +++|          RJM    C2D         CONVERT TWO DIGITS
04940  M00S04874.ddf     +++|          STM    SKEB+3
04941  M00S04875.ddf     +++|          LDC    SKEA
04942  M00S04876.ddf     +++|          LJM    SKM         SET KEYBOARD MESSAGE
04943  M00S04877.ddf     +++|
04944  M00S04878.ddf     +++|
04945  M00S04879.ddf     +++| SKEA     DATA   H* LENGTH = *
04946  M00S04880.ddf     +++| SKEB     DATA   Z*NNNNNNNNB.*
04947  M00S04881.ddf     +++|
04948  M00S04882.ddf     +++|
04949  M00S04883.ddf     +++|*CALL     COMPSEI
04950  M00S04884.ddf     +++| SKF      SPACE  4,10
04951  M00S04885.ddf     +++|***       SKIPF.
04952  M00S04886.ddf     +++|*         READ THE FILE STARTING AT THE CURRENT POSITION UNTIL AN EOF
04953  M00S04887.ddf     +++|*         IS ENCOUNTERED.
04954  M00S04888.ddf     +++|
04955  M00S04889.ddf     +++|
04956  M00S04890.ddf     +++| SKF      COMMAND
04957  M00S04891.ddf     +++| SKF1     RJM    SNS         ADVANCE TO THE NEXT SECTOR
04958  M00S04892.ddf     +++|          RJM    RSB         READ SECTOR
04959  M00S04893.ddf     +++|          MJN    SKF2        IF ERROR
04960  M00S04894.ddf     +++|          RJM    RCPA        RETURN TO MAIN LOOP
04961  M00S04895.ddf     +++|          LDM    BFMS
04962  M00S04896.ddf     +++|          ADM    BFMS+1
04963  M00S04897.ddf     +++|          ZJN    SKF3        IF EOI
04964  M00S04898.ddf     +++|          LDM    BFMS
04965  M00S04899.ddf     +++|          NJN    SKF1        IF NOT EOF
04966  M00S04900.ddf     +++| SKF2     LJM    RET         RETURN
04967  M00S04901.ddf     +++|
04968  M00S04902.ddf     +++| SKF3     LJM    ERR3        *NOT FOUND.*
04969  M00S04903.ddf     +++| SKR      SPACE  4,10
04970  M00S04904.ddf     +++|***       SKIPR.
04971  M00S04905.ddf     +++|*         READ THE FILE STARTING AT THE CURRENT POSITION UNTIL AN EOR
04972  M00S04906.ddf     +++|*         OR EOF IS ENCOUNTERED.
04973  M00S04907.ddf     +++|
04974  M00S04908.ddf     +++|
04975  M00S04909.ddf     +++| SKR      COMMAND
04976  M00S04910.ddf     +++| SKR1     RJM    SNS         ADVANCE TO THE NEXT SECTOR
04977  M00S04911.ddf     +++|          RJM    RSB         READ SECTOR
04978  M00S04912.ddf     +++|          MJN    SKR2        IF ERROR
04979  M00S04913.ddf     +++|          RJM    RCPA        RETURN TO MAIN LOOP
04980  M00S04914.ddf     +++|          LDM    BFMS
04981  M00S04915.ddf     +++|          ADM    BFMS+1
04982  M00S04916.ddf     +++|          ZJN    SKR3        IF EOI
04983  M00S04917.ddf     +++|          LDM    BFMS
04984  M00S04918.ddf     +++|          ZJN    SKR2        IF EOF
04985  M00S04919.ddf     +++|          LDM    BFMS+1
04986  M00S04920.ddf     +++|          SHN    -6
04987  M00S04921.ddf     +++|          NJN    SKR1        IF NOT SHORT PRU
04988  M00S04922.ddf     +++| SKR2     LJM    RET         RETURN
04989  M00S04923.ddf     +++|
04990  M00S04924.ddf     +++| SKR3     LJM    ERR3        *NOT FOUND.*
04991  M00S04925.ddf     +++| STB      SPACE  4,10
04992  M00S04926.ddf     +++|***       STB.
04993  M00S04927.ddf     +++|*         SET THE TRACK INTERLOCK BIT FOR THE CURRENT TRACK.  THE
04994  M00S04928.ddf     +++|*         KEYBOARD MUST BE UNLOCKED TO USE THIS COMMAND.
04995  M00S04929.ddf     +++|
04996  M00S04930.ddf     +++|
04997  M00S04931.ddf     +++| STB      COMMAND
04998  M00S04932.ddf     +++|          RJM    CLB         CHECK LOCK BIT
04999  M00S04933.ddf     +++| STB1     RJM    CTR         CHECK TRACK RESERVATION
05000  M00S04934.ddf     +++|          MJN    STB2        IF TRACK IS RESERVED
05001  M00S04935.ddf     +++|          LJM    ERR4        *INCORRECT ENTRY.*
05002  M00S04936.ddf     +++|
05003  M00S04937.ddf     +++| STB2     LDD    EQ
05004  M00S04938.ddf     +++|          STD    CM+1
05005  M00S04939.ddf     +++|          LDD    TK
05006  M00S04940.ddf     +++|          STD    CM+2
05007  M00S04941.ddf     +++|          LDN    STIS
05008  M00S04942.ddf     +++|          STD    CM+3
05009  M00S04943.ddf     +++|          MONITOR STBM
05010  M00S04944.ddf     +++|          LDD    CM+1
05011  M00S04945.ddf     +++|          ZJN    STB3        IF REQUEST HONORED
05012  M00S04946.ddf     +++|          LDN    0
05013  M00S04947.ddf     +++|          STD    SB
05014  M00S04948.ddf     +++|          RJM    RCPA        RETURN TO MAIN LOOP
05015  M00S04949.ddf     +++|          UJN    STB1        LOOP
05016  M00S04950.ddf     +++|
05017  M00S04951.ddf     +++| STB3     LJM    RET         RETURN
05018  M00S04952.ddf     +++| SSA      SPACE  4,10
05019  M00S04953.ddf     +++|***       STORE.C.COMMENT
05020  M00S04954.ddf     +++|*         STORE THE CURRENT EQUIPMENT, TRACK, AND SECTOR INTO SCRATCH
05021  M00S04955.ddf     +++|*         AREA C.  C IS A SINGLE ALPHABETIC CHARACTER (LEGAL CHARACTERS
05022  M00S04956.ddf     +++|*         ARE DISPLAYED ON THE LEFT SCREEN).  THE COMMENT IS COPIED TO
05023  M00S04957.ddf     +++|*         THE SCRATCH AREA AND DISPLAYED ON THE LEFT SCREEN.  THE
05024  M00S04958.ddf     +++|*         COMMENT IS FOR CONVENIENCE ONLY AND IS TRUNCATED TO 10
05025  M00S04959.ddf     +++|*         CHARACTERS.  THE EQUIPMENT, TRACK, AND SECTOR CAN BE RELOADED
05026  M00S04960.ddf     +++|*         FROM THE SCRATCH AREA WITH THE *LOAD* COMMAND.
05027  M00S04961.ddf     +++|
05028  M00S04962.ddf     +++|
05029  M00S04963.ddf     +++| SSA      COMMAND
05030  M00S04964.ddf     +++|          RJM    CSA         GET ADDRESS OF SCRATCH AREA
05031  M00S04965.ddf     +++|          LDD    EQ          SAVE EQUIPMENT
05032  M00S04966.ddf     +++|          STI    T2
05033  M00S04967.ddf     +++|          AOD    T2
05034  M00S04968.ddf     +++|          LDD    TK          SAVE TRACK
05035  M00S04969.ddf     +++|          STI    T2
05036  M00S04970.ddf     +++|          AOD    T2
05037  M00S04971.ddf     +++|          LDD    SC          SAVE SECTOR
05038  M00S04972.ddf     +++|          STI    T2
05039  M00S04973.ddf     +++|          AOD    T2
05040  M00S04974.ddf     +++|          LDD    RS          SAVE DISPLAY INFORMATION
05041  M00S04975.ddf     +++|          SHN    11
05042  M00S04976.ddf     +++|          ADM    DRSA+4
05043  M00S04977.ddf     +++|          STI    T2
05044  M00S04978.ddf     +++|          AOD    T2
05045  M00S04979.ddf     +++|          LDN    4           COPY COMMENT
05046  M00S04980.ddf     +++|          STD    T1
05047  M00S04981.ddf     +++|          AOD    CA
05048  M00S04982.ddf     +++| SSA1     LDI    CA
05049  M00S04983.ddf     +++|          SHN    6
05050  M00S04984.ddf     +++|          ADM    1,CA
05051  M00S04985.ddf     +++|          STI    T2
05052  M00S04986.ddf     +++|          LDN    2
05053  M00S04987.ddf     +++|          RAD    CA
05054  M00S04988.ddf     +++|          AOD    T2
05055  M00S04989.ddf     +++|          SOD    T1
05056  M00S04990.ddf     +++|          PJN    SSA1        IF MORE BYTES
05057  M00S04991.ddf     +++|          LJM    RET         RETURN
05058  M00S04992.ddf     +++| ETK      SPACE  4,10
05059  M00S04993.ddf     +++|***       TK.NNNN.
05060  M00S04994.ddf     +++|*         ENTER TRACK NUMBER.  *INCORRECT PARAMETER.* IS DISPLAYED IF
05061  M00S04995.ddf     +++|*         THE NUMBER IS TOO LARGE.
05062  M00S04996.ddf     +++|
05063  M00S04997.ddf     +++|
05064  M00S04998.ddf     +++| ETK      COMMAND
05065  M00S04999.ddf     +++|          RJM    ASD         ASSEMBLE NUMBER
05066  M00S05000.ddf     +++|          LDD    AB+4
05067  M00S05001.ddf     +++|          LPC    3777
05068  M00S05002.ddf     +++|          ADC    4000
05069  M00S05003.ddf     +++|          STD    T2
05070  M00S05004.ddf     +++|          SBD    LT
05071  M00S05005.ddf     +++|          SBN    1
05072  M00S05006.ddf     +++|          PJN    ETK1        IF ILLEGAL TRACK
05073  M00S05007.ddf     +++|          LDD    T2
05074  M00S05008.ddf     +++|          STD    TK
05075  M00S05009.ddf     +++|          LJM    RET         RETURN
05076  M00S05010.ddf     +++|
05077  M00S05011.ddf     +++| ETK1     LJM    ERR2        *INCORRECT PARAMETER.*
05078  M00S05012.ddf     +++| SCT      SPACE  4,10
05079  M00S05013.ddf     +++|***       UI.NNNNNN.
05080  M00S05014.ddf     +++|*         SET EQUIPMENT AND TRACK FOR THE CATALOG ENTRIES FOR USER
05081  M00S05015.ddf     +++|*         INDEX NNNNNN (NNNNNN .LE. 377777).  *INCORRECT PARAMETER.* IS
05082  M00S05016.ddf     +++|*         DISPLAYED IF THE CATALOG IS NOT FOUND (THIS MAY BE THE RESULT
05083  M00S05017.ddf     +++|*         OF ENTERING THE WRONG FAMILY OR PACK NAME.)  IF THE FAMILY
05084  M00S05018.ddf     +++|*         OR PACK NAME ARE CHANGED (AFTER ENTERING THE *UI* COMMAND),
05085  M00S05019.ddf     +++|*         THE *UI* COMMAND MUST BE REENTERED.
05086  M00S05020.ddf     +++|
05087  M00S05021.ddf     +++|
05088  M00S05022.ddf     +++| SCT      COMMAND
05089  M00S05023.ddf     +++|          RJM    ASD         GET USER INDEX
05090  M00S05024.ddf     +++|          LDD    MA          SAVE CURRENT ENTRIES
05091  M00S05025.ddf     +++|          ADN    5
05092  M00S05026.ddf     +++|          CWD    T3
05093  M00S05027.ddf     +++|          LDN    PF
05094  M00S05028.ddf     +++|          RJM    SCA         SET CATALOG ADDRESS
05095  M00S05029.ddf     +++|          PJN    SCT1        IF DEVICE FOUND AND ACCESSIBLE
05096  M00S05030.ddf     +++|          ADN    1
05097  M00S05031.ddf     +++|          NJN    SCT2        IF NOT FOUND
05098  M00S05032.ddf     +++| SCT1     LDN    DFDN
05099  M00S05033.ddf     +++|          STD    RS
05100  M00S05034.ddf     +++|          RJM    LDO         LOAD OVERLAY
05101  M00S05035.ddf     +++|          LDN    0           SET SECTOR
05102  M00S05036.ddf     +++|          STD    SC
05103  M00S05037.ddf     +++|          STM    DRSA+4      SET DISPLAY INDEX
05104  M00S05038.ddf     +++|          LJM    IMS         INITIALIZE MASS STORAGE
05105  M00S05039.ddf     +++|
05106  M00S05040.ddf     +++| SCT2     LDD    MA          RESTORE PREVIOUS ENTRIES
05107  M00S05041.ddf     +++|          ADN    5
05108  M00S05042.ddf     +++|          CRD    T3
05109  M00S05043.ddf     +++|          LJM    ERR2        *INCORRECT PARAMETER.*
05110  M00S05044.ddf     +++|
05111  M00S05045.ddf     +++|
05112  M00S05046.ddf     +++|*CALL     COMPSCA
05113  M00S05047.ddf     +++| WRT      SPACE  4,10
05114  M00S05048.ddf     +++|***       WRITE.
05115  M00S05049.ddf     +++|*         WRITE THE CONTENTS OF THE BUFFER TO THE SECTOR CURRENTLY
05116  M00S05050.ddf     +++|*         INDICATED.  IF THE KEYBOARD IS NOT UNLOCKED, *INCORRECT
05117  M00S05051.ddf     +++|*         ENTRY.* IS DISPLAYED.
05118  M00S05052.ddf     +++|
05119  M00S05053.ddf     +++|
05120  M00S05054.ddf     +++| WRT      COMMAND
05121  M00S05055.ddf     +++|          RJM    CLB         CHECK FOR LOCKED KEYBOARD
Line S00041 Modification History
M01 (Added by) ddf4
Seq #  *Modification Id* Act 
----------------------------+
05122  M01S00041.ddf4    +++|          RJM    CEQ         CHECK EQUIPMENT
05123  M00S05056.ddf     +++|          LDC    BFMS+WLSF
05124  M00S05057.ddf     +++|          RJM    WDS         WRITE DATA
05125  M00S05058.ddf     +++|          ENDMS
05126  M00S05059.ddf     +++|          LJM    RET         RETURN
05127  M00S05060.ddf     +++|          SPACE  4,10
05128  M00S05061.ddf     +++|          COMMAND
05129  M00S05062.ddf     +++| TAR      SPACE  4,10
05130  M00S05063.ddf     +++|**        TAR - TABLE ACCESS ROUTINES.
05131  M00S05064.ddf     +++|*
05132  M00S05065.ddf     +++|*         THIS CM RESIDENT OVERLAY CONTAINS THE SUBROUTINES REQUIRED
05133  M00S05066.ddf     +++|*         FOR COMMANDS *EJT.*, *FNT.*, *FNTL.*, *FNTLC.*, AND *QFT.*
05134  M00S05067.ddf     +++|*         TO ACCESS THE CMR/NFL TABLES INVOLVED TO READ A FST ENTRY.
05135  M00S05068.ddf     +++|*
05136  M00S05069.ddf     +++|*         THEY ARE LOADED AT THE END OF THE COMMAND OVERLAY.
05137  M00S05070.ddf     +++|
05138  M00S05071.ddf     +++|
05139  M00S05072.ddf     +++|          QUAL   PRESET
05140  M00S05073.ddf     +++| .1       MAX    EETL,EFBL,EFLL,EFCL,EITL
05141  M00S05074.ddf     +++|          QUAL   *
05142  M00S05075.ddf     +++|          QUAL
05143  M00S05076.ddf     +++| TARLA    EQU    CPLA+/PRESET/.1*5     TAR OVERLAY LOAD ADDRESS
05144  M00S05077.ddf     +++|          QUAL   *
05145  M00S05078.ddf     +++| TAR      ACROVL TARLA
05146  M00S05079.ddf     +++| CFA      SPACE 4,10
05147  M00S05080.ddf     +++|**        CFA - CALCULATE FNT ADDRESS.
05148  M00S05081.ddf     +++|*
05149  M00S05082.ddf     +++|*         ENTRY  (CA) = ADDRESS OF CHARACTER STRING.
05150  M00S05083.ddf     +++|*
05151  M00S05084.ddf     +++|*         EXIT   (T3) = LOCAL FNT POINTER.
05152  M00S05085.ddf     +++|*
05153  M00S05086.ddf     +++|*         USES   CM - CM+4.
05154  M00S05087.ddf     +++|*
05155  M00S05088.ddf     +++|*         CALL   ASD.
05156  M00S05089.ddf     +++|
05157  M00S05090.ddf     +++|
05158  M00S05091.ddf     +++| CFA      SUBR               ENTRY/EXIT
05159  M00S05092.ddf     +++|          RJM    ASD         GET FNT ORDINAL
05160  M00S05093.ddf     +++|          LDN    LENF        COMPUTE FNT NFL ADDRESS (FNTN+NNNN*LENF)
05161  M00S05094.ddf     +++|          STD    T0
05162  M00S05095.ddf     +++|          LDC    FNTN
05163  M00S05096.ddf     +++|          STD    T3
05164  M00S05097.ddf     +++| CFA1     LDD    AB+4
05165  M00S05098.ddf     +++|          RAD    T3
05166  M00S05099.ddf     +++|          SHN    -14
05167  M00S05100.ddf     +++|          NJN    CFA2        IF OVERFLOW
05168  M00S05101.ddf     +++|          SOD    T0
05169  M00S05102.ddf     +++|          NJN    CFA1        IF MULTIPLY BY LENF INCOMPLETE
05170  M00S05103.ddf     +++|          LDD    CP
05171  M00S05104.ddf     +++|          ADN    FLSW        GET NFL/100B
05172  M00S05105.ddf     +++|          CRD    CM
05173  M00S05106.ddf     +++|          LDD    CM          FORM LWA+1 OF LOCAL FNT AREA
05174  M00S05107.ddf     +++|          SHN    6
05175  M00S05108.ddf     +++|          ADN    1
05176  M00S05109.ddf     +++|          STD    CM+1
05177  M00S05110.ddf     +++|          LDD    T3
05178  M00S05111.ddf     +++|          SBD    CM+1
05179  M00S05112.ddf     +++|          MJN    CFAX        IF LEGAL ORDINAL
05180  M00S05113.ddf     +++| CFA2     LJM    ERR2        *INCORRECT PARAMETER.*
05181  M00S05114.ddf     +++| CTO      SPACE  4,15
05182  M00S05115.ddf     +++|**        CTO - CHECK TABLE ORDINAL.
05183  M00S05116.ddf     +++|*
05184  M00S05117.ddf     +++|*         ENTRY  (A)  = MANAGED TABLE IDENTIFICATION CODE.
05185  M00S05118.ddf     +++|*                (CA) = ADDRESS OF CHARACTER STRING.
05186  M00S05119.ddf     +++|*
05187  M00S05120.ddf     +++|*         EXIT   (T3) = TABLE ORDINAL.
05188  M00S05121.ddf     +++|*                (T1) = MANAGED TABLE IDENTIFICATION CODE.
05189  M00S05122.ddf     +++|*
05190  M00S05123.ddf     +++|*         USES   CM - CM+4.
05191  M00S05124.ddf     +++|*
05192  M00S05125.ddf     +++|*         CALLS  ASD.
05193  M00S05126.ddf     +++|
05194  M00S05127.ddf     +++|
05195  M00S05128.ddf     +++| CTO      SUBR               ENTRY/EXIT
05196  M00S05129.ddf     +++|          STD    T1
05197  M00S05130.ddf     +++|          RJM    ASD         ASSEMBLE TABLE ORDINAL
05198  M00S05131.ddf     +++|          LDM    TMTP,T1     READ POINTER WORD
05199  M00S05132.ddf     +++|          CRD    CM
05200  M00S05133.ddf     +++|          LDD    AB+4        CHECK VALID ORDINAL
05201  M00S05134.ddf     +++|          STD    T3
05202  M00S05135.ddf     +++|          SBD    CM+2
05203  M00S05136.ddf     +++|          MJN    CTOX        IF LEGAL ORDINAL
05204  M00S05137.ddf     +++|          LJM    ERR2        *INCORRECT PARAMETER.*
05205  M00S05138.ddf     +++| RFE      SPACE  4,15
05206  M00S05139.ddf     +++|**        RFE - READ FST ENTRY.
05207  M00S05140.ddf     +++|*
05208  M00S05141.ddf     +++|*         ENTRY  (A)  = MANAGED TABLE IDENTIFICATION CODE.
05209  M00S05142.ddf     +++|*                (CA) = ADDRESS OF CHARACTER STRING.
05210  M00S05143.ddf     +++|*
05211  M00S05144.ddf     +++|*         EXIT   (FN - FN+4) = FST ENTRY.
05212  M00S05145.ddf     +++|*                (T3) = FNT ADDRESS.
05213  M00S05146.ddf     +++|*                (EQ) = EST ORDINAL.
05214  M00S05147.ddf     +++|*
05215  M00S05148.ddf     +++|*         USES   CM - CM+4.
05216  M00S05149.ddf     +++|*
05217  M00S05150.ddf     +++|*         CALLS  CFA, CTO, .EJT, .FNT, .QFT.
05218  M00S05151.ddf     +++|*
05219  M00S05152.ddf     +++|*         MACROS NFA, SFA.
05220  M00S05153.ddf     +++|
05221  M00S05154.ddf     +++|
05222  M00S05155.ddf     +++| RFE4     LDD    FN          SET EST ORDINAL
05223  M00S05156.ddf     +++|          STD    EQ
05224  M00S05157.ddf     +++|
05225  M00S05158.ddf     +++| RFE      SUBR               ENTRY/EXIT
05226  M00S05159.ddf     +++|          LMK    PNFL
05227  M00S05160.ddf     +++|          NJN    RFE1        IF NOT LOCAL FNT
05228  M00S05161.ddf     +++|          STD    T1
05229  M00S05162.ddf     +++|          RJM    CFA         CALCULATE FNT ADDRESS
05230  M00S05163.ddf     +++|          NFA    T3,R
05231  M00S05164.ddf     +++|          UJN    RFE2        READ TABLE ENTRY
05232  M00S05165.ddf     +++|
05233  M00S05166.ddf     +++| RFE1     LMK    PNFL
05234  M00S05167.ddf     +++|          RJM    CTO         CHECK TABLE ORDINAL
05235  M00S05168.ddf     +++|          LDM    TMTA,T1
05236  M00S05169.ddf     +++|          STD    CM
05237  M00S05170.ddf     +++|          LDD    T3          GET ADDRESS OF SPECIFIED ENTRY
05238  M00S05171.ddf     +++|          RJM    0,CM
05239  M00S05172.ddf     +++| RFE2     ADM    TFSI,T1
05240  M00S05173.ddf     +++|          CRD    FN          READ FST ENTRY
05241  M00S05174.ddf     +++|          LDD    FN+1
05242  M00S05175.ddf     +++|          ZJN    RFE3        IF EMPTY FILE
05243  M00S05176.ddf     +++|          SFA    EST,FN
05244  M00S05177.ddf     +++|          ADK    EQDE
05245  M00S05178.ddf     +++|          CRD    CM          READ EST ENTRY
05246  M00S05179.ddf     +++|          LDD    CM
05247  M00S05180.ddf     +++|          SHN    21-13
05248  M00S05181.ddf     +++|          MJN    RFE4        IF MASS STORAGE
05249  M00S05182.ddf     +++| RFE3     LJM    ERR2        *INCORRECT PARAMETER.*
05250  M00S05183.ddf     +++|
05251  M00S05184.ddf     +++|
05252  M00S05185.ddf     +++| TFSI     INDEX              LIST OF INDICES TO FST ENTRY
05253  M00S05186.ddf     +++|          INDEX  PNFL,FSTL
05254  M00S05187.ddf     +++|          INDEX  PFNT,FSTG
05255  M00S05188.ddf     +++|          INDEX  PQFT,ENTQ
05256  M00S05189.ddf     +++|          INDEX  PEJT,SCHE
05257  M00S05190.ddf     +++|          INDEX  PEJT+1
05258  M00S05191.ddf     +++|
05259  M00S05192.ddf     +++|
05260  M00S05193.ddf     +++| TMTA     INDEX              LIST OF MANAGED TABLE ACCESS ROUTINES
05261  M00S05194.ddf     +++|          INDEX  PFNT,.FNT
05262  M00S05195.ddf     +++|          INDEX  PQFT,.QFT
05263  M00S05196.ddf     +++|          INDEX  PEJT,.EJT
05264  M00S05197.ddf     +++|          INDEX  PEJT+1
05265  M00S05198.ddf     +++|
05266  M00S05199.ddf     +++|
05267  M00S05200.ddf     +++| TMTP     INDEX              LIST OF MANAGED TABLE POINTER ADDRESSES
05268  M00S05201.ddf     +++|          INDEX  PFNT,FNTP
05269  M00S05202.ddf     +++|          INDEX  PQFT,QFTP
05270  M00S05203.ddf     +++|          INDEX  PEJT,EJTP
05271  M00S05204.ddf     +++|          INDEX  PEJT+1
05272  M00S05205.ddf     +++|
05273  M00S05206.ddf     +++|
05274  M00S05207.ddf     +++| QUAL$    EQU    0           SELECT UNQUALIFIED ASSEMBLY OF COMPGFP
05275  M00S05208.ddf     +++| EJT$     EQU    0           DEFINE *COMPGFP* ACCESS TO EJT
05276  M00S05209.ddf     +++| FNT$     EQU    0           DEFINE *COMPGFP* ACCESS TO FNT
05277  M00S05210.ddf     +++| QFT$     EQU    0           DEFINE *COMPGFP* ACCESS TO QFT
05278  M00S05211.ddf     +++| IFP$     EQU    0           GENERATE *IFP* REMOTE CODE
05279  M00S05212.ddf     +++| .OFFS    SET    *O-*L
05280  M00S05213.ddf     +++|*CALL     COMPGFP
05281  M00S05214.ddf     +++|          SPACE  4,10
05282  M00S05215.ddf     +++|          ACROVL
05283  M00S05216.ddf     +++|          ERRNG  EPFW-TARLA-/PRESET/TARL*5  *TAR* OVERFLOWS ERROR PROC.
05284  M00S05217.ddf     +++|
05285  M00S05218.ddf     +++|*         SINCE THE IFP CODE FOR COMPGFP IS EXECUTED DURING PRESET,
05286  M00S05219.ddf     +++|*         THE LOCATIONS TO BE PRESET MUST BE REFERENCE VIA THE ORIGIN
05287  M00S05220.ddf     +++|*         COUNTER, RATHER THAN THE LOCATION COUNTER (WHICH WAS USED TO
05288  M00S05221.ddf     +++|*         DEFINE THE SYMBOLS *EJTB*, *FNTB*, AND *QFT*).
05289  M00S05222.ddf     +++|*         TO ACCOMPLISH THIS, THE PRESET CODE IS ASSEMBLED USEING A
05290  M00S05223.ddf     +++|*         DIFFERENT QUALIFIER.  THIS NECESSITATES REDEFINING THE
05291  M00S05224.ddf     +++|*         ASSEMBLY OPTION TAGS AS WELL.
05292  M00S05225.ddf     +++|
05293  M00S05226.ddf     +++|          USE    PRESET
05294  M00S05227.ddf     +++| QUAL$    EQU    0           SELECT UNQUALIFIED ASSEMBLY OF COMPGFP
05295  M00S05228.ddf     +++| EJT$     EQU    0           DEFINE *COMPGFP* ACCESS TO EJT
05296  M00S05229.ddf     +++| EJTB     EQU    /TAR/EJTB+/TAR/.OFFS
05297  M00S05230.ddf     +++| FNT$     EQU    0           DEFINE *COMPGFP* ACCESS TO FNT
05298  M00S05231.ddf     +++| FNTB     EQU    /TAR/FNTB+/TAR/.OFFS
05299  M00S05232.ddf     +++| QFT$     EQU    0           DEFINE *COMPGFP* ACCESS TO QFT
05300  M00S05233.ddf     +++| QFTB     EQU    /TAR/QFTB+/TAR/.OFFS
05301  M00S05234.ddf     +++| IFP$     EQU    0           GENERATE *IFP* REMOTE CODE
05302  M00S05235.ddf     +++| IFP      HERE               ASSEMBLE *IFP* REMOTE CODE HERE
05303  M00S05236.ddf     +++|          USE    *
05304  M00S05237.ddf     +++|          SPACE  4,10
05305  M00S05238.ddf     +++|          OVERFLOW  /PRESET/OVL
05306  M00S05239.ddf     +++|          QUAL   *           RESUME UNQUALIFIED DEFINITIONS
05307  M00S05240.ddf     +++|          OVERLAY /PRESET/OVL,(LISTING FILE COMMAND PROCESSORS.)
05308  M00S05241.ddf     +++| OVL      SUBR               ENTRY/EXIT
05309  M00S05242.ddf     +++|          UJN    OVLX        RETURN
05310  M00S05243.ddf     +++|          SPACE  4,10
05311  M00S05244.ddf     +++|***       THE FOLLOWING COMMANDS ARE USED TO PRINT THE CONTENTS OF THE
05312  M00S05245.ddf     +++|*         DISK SECTOR AND MANIPULATE THE LISTING FILE.
05313  M00S05246.ddf     +++| CLF      SPACE  4,10
05314  M00S05247.ddf     +++|***       LISTING.CCCCCCC.
05315  M00S05248.ddf     +++|*         SET THE LISTING FILE NAME TO CCCCCCC.  THE LISTING FILE IS
05316  M00S05249.ddf     +++|*         ORIGINALLY *OUTPUT*.
05317  M00S05250.ddf     +++|
05318  M00S05251.ddf     +++|
05319  M00S05252.ddf     +++| CLF      COMMAND
05320  M00S05253.ddf     +++|          RJM    WCC         WAIT FOR PREVIOUS REQUEST TO COMPLETE
05321  M00S05254.ddf     +++|          RJM    ASN         GET NAME
05322  M00S05255.ddf     +++|          LDD    BA
05323  M00S05256.ddf     +++|          SHN    6
05324  M00S05257.ddf     +++|          ADD    RA
05325  M00S05258.ddf     +++|          SHN    6
05326  M00S05259.ddf     +++|          ADD    BA+1
05327  M00S05260.ddf     +++|          CWD    FN          WRITE NAME TO BUFFER
05328  M00S05261.ddf     +++|          LDN    2*2+1
05329  M00S05262.ddf     +++|          LJM    SCP         START CPU
05330  M00S05263.ddf     +++| OUT      SPACE  4,10
05331  M00S05264.ddf     +++|***       OUT.
05332  M00S05265.ddf     +++|*         RELEASE THE LISTING FILE TO THE OUTPUT QUEUE.
05333  M00S05266.ddf     +++|
05334  M00S05267.ddf     +++|
05335  M00S05268.ddf     +++| OUT      COMMAND
05336  M00S05269.ddf     +++|          RJM    WCC         WAIT FOR PREVIOUS REQUEST TO COMPLETE
05337  M00S05270.ddf     +++|          LDN    3*2+1
05338  M00S05271.ddf     +++|          LJM    SCP         START CPU
05339  M00S05272.ddf     +++| PRT      SPACE  4,10
05340  M00S05273.ddf     +++|***       PRINT.
05341  M00S05274.ddf     +++|*         PRINT THE CURRENT EQUIPMENT, TRACK, SECTOR, TRT INFORMATION,
05342  M00S05275.ddf     +++|*         AND THE CONTENTS OF THE SECTOR.
05343  M00S05276.ddf     +++|*
05344  M00S05277.ddf     +++|*
05345  M00S05278.ddf     +++|*         PRINT.NNNN.
05346  M00S05279.ddf     +++|*         PRINT THE NEXT NNNN (MUST BE AN OCTAL NUMBER) SECTORS START-
05347  M00S05280.ddf     +++|*         ING WITH THE CURRENT SECTOR.  PRINTING WILL STOP AT EOI IF
05348  M00S05281.ddf     +++|*         ENCOUNTERED BEFORE NNNN SECTORS HAVE BEEN PRINTED.  ONE PAGE
05349  M00S05282.ddf     +++|*         OF OUTPUT IS PRODUCED FOR EACH SECTOR PRINTED.
05350  M00S05283.ddf     +++|
05351  M00S05284.ddf     +++|
05352  M00S05285.ddf     +++| PRT      COMMAND
05353  M00S05286.ddf     +++|          LDI    CA
05354  M00S05287.ddf     +++|          ZJN    PRT1        IF NUMBER NOT ENTERED
05355  M00S05288.ddf     +++|          RJM    ASD         CONVERT NUMBER
05356  M00S05289.ddf     +++|          LDD    AB+4
05357  M00S05290.ddf     +++|          SBN    1
05358  M00S05291.ddf     +++| PRT1     STD    FN          SAVE COUNT
05359  M00S05292.ddf     +++| PRT2     RJM    WCC         WAIT FOR PREVIOUS REQUEST TO COMPLETE
05360  M00S05293.ddf     +++|          RJM    SNT         GET CONTENTS OF TRT
05361  M00S05294.ddf     +++|          STD    AB
05362  M00S05295.ddf     +++|          LDD    CM+4
05363  M00S05296.ddf     +++|          STD    AB+1
05364  M00S05297.ddf     +++|          LDM    DLSA
05365  M00S05298.ddf     +++|          STD    AB+3
05366  M00S05299.ddf     +++|          LDM    DLSA+1
05367  M00S05300.ddf     +++|          STD    AB+4
05368  M00S05301.ddf     +++|          LDD    TK
05369  M00S05302.ddf     +++|          SHN    -2
05370  M00S05303.ddf     +++|          RAD    AB+4
05371  M00S05304.ddf     +++|          SHN    -14
05372  M00S05305.ddf     +++|          RAD    AB+3
05373  M00S05306.ddf     +++|          LDM    BFMS
05374  M00S05307.ddf     +++|          STD    T5+3        (=CM)
05375  M00S05308.ddf     +++|          LDM    BFMS+1
05376  M00S05309.ddf     +++|          STD    T5+4        (=CM+1)
05377  M00S05310.ddf     +++|          LDD    BA
05378  M00S05311.ddf     +++|          SHN    6
05379  M00S05312.ddf     +++|          ADD    RA
05380  M00S05313.ddf     +++|          SHN    6
05381  M00S05314.ddf     +++|          ADD    BA+1
05382  M00S05315.ddf     +++|          CWD    T5          WRITE OUT EQUIPMENT AND CONTROL BYTES
05383  M00S05316.ddf     +++|          ADN    1
05384  M00S05317.ddf     +++|          CWD    AB
05385  M00S05318.ddf     +++|          ADN    1
05386  M00S05319.ddf     +++|          CWM    BFMS+2,HN   WRITE OUT CONTENTS OF BUFFER
05387  M00S05320.ddf     +++|          RJM    WCC         RESET (CM - CM+4)
05388  M00S05321.ddf     +++|          SOD    FN          DECREMENT COUNT
05389  M00S05322.ddf     +++|          MJN    PRT3        IF DONE
05390  M00S05323.ddf     +++|          RJM    SNS         SET NEXT SECTOR
05391  M00S05324.ddf     +++|          ZJN    PRT3        IF AT EOI
05392  M00S05325.ddf     +++|          LDN    1*2+1       SET FUNCTION CODE
05393  M00S05326.ddf     +++|          STD    CM+4
05394  M00S05327.ddf     +++|          LDD    RA
05395  M00S05328.ddf     +++|          SHN    6
05396  M00S05329.ddf     +++|          ADN    D
05397  M00S05330.ddf     +++|          CWD    CM
05398  M00S05331.ddf     +++|          RJM    RSB         READ NEXT SECTOR
05399  M00S05332.ddf     +++|          MJN    PRT4        IF ERROR
05400  M00S05333.ddf     +++|          LJM    PRT2        LOOP
05401  M00S05334.ddf     +++|
05402  M00S05335.ddf     +++| PRT3     LDN    1*2+1
05403  M00S05336.ddf     +++|          LJM    SCP         START CPU
05404  M00S05337.ddf     +++|
05405  M00S05338.ddf     +++| PRT4     LJM    RET         RETURN
05406  M00S05339.ddf     +++| RET      SPACE  4,10
05407  M00S05340.ddf     +++|***       RETURN.
05408  M00S05341.ddf     +++|*         RETURN THE LISTING FILE.
05409  M00S05342.ddf     +++|
05410  M00S05343.ddf     +++|
05411  M00S05344.ddf     +++| RET      COMMAND
05412  M00S05345.ddf     +++|          RJM    WCC         WAIT FOR PREVIOUS REQUEST TO COMPLETE
05413  M00S05346.ddf     +++|          LDN    6*2+1
05414  M00S05347.ddf     +++|          LJM    SCP         START CPU
05415  M00S05348.ddf     +++| REW      SPACE  4,10
05416  M00S05349.ddf     +++|***       REWIND.
05417  M00S05350.ddf     +++|*         REWIND THE LISTING FILE.
05418  M00S05351.ddf     +++|
05419  M00S05352.ddf     +++|
05420  M00S05353.ddf     +++| REW      COMMAND
05421  M00S05354.ddf     +++|          RJM    WCC         WAIT FOR PREVIOUS REQUEST TO COMPLETE
05422  M00S05355.ddf     +++|          LDN    4*2+1
05423  M00S05356.ddf     +++|          LJM    SCP         START CPU
05424  M00S05357.ddf     +++| SID      SPACE  4,10
05425  M00S05358.ddf     +++|***       SETID.NN.
05426  M00S05359.ddf     +++|*         SET THE ID FOR THE OUTPUT FILE TO NN.
05427  M00S05360.ddf     +++|
05428  M00S05361.ddf     +++|
05429  M00S05362.ddf     +++| SID      COMMAND
05430  M00S05363.ddf     +++|          RJM    WCC         WAIT FOR PREVIOUS REQUEST TO COMPLETE
05431  M00S05364.ddf     +++|          RJM    ASD         CONVERT ID
05432  M00S05365.ddf     +++|          LDD    BA
05433  M00S05366.ddf     +++|          SHN    6
05434  M00S05367.ddf     +++|          ADD    RA
05435  M00S05368.ddf     +++|          SHN    6
05436  M00S05369.ddf     +++|          ADD    BA+1
05437  M00S05370.ddf     +++|          CWD    AB
05438  M00S05371.ddf     +++|          LDN    7*2+1
05439  M00S05372.ddf     +++|          LJM    SCP         START CPU
05440  M00S05373.ddf     +++| SKL      SPACE  4,10
05441  M00S05374.ddf     +++|***       SKIPL.
05442  M00S05375.ddf     +++|*         POSITION TO THE END OF THE LISTING FILE.
05443  M00S05376.ddf     +++|
05444  M00S05377.ddf     +++|
05445  M00S05378.ddf     +++| SKL      COMMAND
05446  M00S05379.ddf     +++|          RJM    WCC         WAIT FOR PREVIOUS REQUEST TO COMPLETE
05447  M00S05380.ddf     +++|          LDN    5*2+1
05448  M00S05381.ddf     +++|          LJM    SCP         START CPU
05449  M00S05382.ddf     +++|          SPACE  4,10
05450  M00S05383.ddf     +++|          COMMAND
05451  M00S05384.ddf     +++|          SPACE  4,10
05452  M00S05385.ddf     +++|          OVERFLOW  /PRESET/OVL
05453  M00S05386.ddf     +++|          QUAL   *
05454  M00S05387.ddf     +++|          OVERLAY /PRESET/OVL,(LABEL/TRT RECONSTRUCTION PROCESSORS.)
05455  M00S05388.ddf     +++| OVL      SPACE  4,10
05456  M00S05389.ddf     +++|**        PRESET THE OVERLAY BY LOADING THE AUXILIARY COMMAND
05457  M00S05390.ddf     +++|*         PROCESSOR SUBROUTINES TO CM.
05458  M00S05391.ddf     +++|
05459  M00S05392.ddf     +++|
05460  M00S05393.ddf     +++| OVL      SUBR               ENTRY/EXIT
05461  M00S05394.ddf     +++|          LDN    /PRESET/LRRL  SET OVERLAY LENGTH
05462  M00S05395.ddf     +++|          STD    T1
05463  M00S05396.ddf     +++|          LDD    AB+3        SAVE CM ADDRESS
05464  M00S05397.ddf     +++|          STM    /PRESET/TCRO+LRRN*5+2
05465  M00S05398.ddf     +++|          LDD    AB+4
05466  M00S05399.ddf     +++|          STM    /PRESET/TCRO+LRRN*5+3
05467  M00S05400.ddf     +++|          LDD    AB+3        WRITE OVERLAY TO CM
05468  M00S05401.ddf     +++|          SHN    6
05469  M00S05402.ddf     +++|          ADD    RA
05470  M00S05403.ddf     +++|          SHN    6
05471  M00S05404.ddf     +++|          ADD    AB+4
05472  M00S05405.ddf     +++|          CWM    /PRESET/LRR,T1
05473  M00S05406.ddf     +++|          LDD    T1          UPDATE CM ADDRESS
05474  M00S05407.ddf     +++|          RAD    AB+4
05475  M00S05408.ddf     +++|          SHN    -14
05476  M00S05409.ddf     +++|          RAD    AB+3
05477  M00S05410.ddf     +++|          UJN    OVLX        EXIT
05478  M00S05411.ddf     +++|          SPACE  4,10
05479  M00S05412.ddf     +++|***       THE FOLLOWING COMMANDS CAN BE USED TO RECONSTRUCT THE LABEL
05480  M00S05413.ddf     +++|*         AND TRT OF A DEVICE THAT HAS LOST THEM.  THE COMMANDS WILL
05481  M00S05414.ddf     +++|*         NOT NECESSARILY RECOVER THE DEVICE CORRECTLY.  THE COMMANDS
05482  M00S05415.ddf     +++|*         (IN APPROXIMATE ORDER OF USE) ARE -
05483  M00S05416.ddf     +++|*
05484  M00S05417.ddf     +++|*           BEGINR  - BEGIN RECOVERY BY INITIALIZING TABLES;
05485  M00S05418.ddf     +++|*           RECOVER - SCAN DEVICE TO FIND FILES;
05486  M00S05419.ddf     +++|*           BLDTRT  - CHECK FOR LINKAGE ERRORS AND BUILD A SECTOR OF
05487  M00S05420.ddf     +++|*                     THE TRT FOR THE LABEL TRACK.
05488  M00S05421.ddf     +++|*           NEXTAT  - FIND AND READ NEXT AVAILABLE TRACK.
05489  M00S05422.ddf     +++|*                     (A TRACK WITH NO LINKAGE IN THE RECOVERY TABLES.)
05490  M00S05423.ddf     +++|*           NEXTSS  - FIND AND READ NEXT TRACK IN THE RECOVERY TABLE
05491  M00S05424.ddf     +++|*                     THAT BEGINS WITH A SYSTEM SECTOR.
05492  M00S05425.ddf     +++|*           SETTRT  - MODIFY POINTERS FOR RECOVER COMMAND.
05493  M00S05426.ddf     +++|*           SETRW   - MODIFY RECOVERY DATA FOR A TRACK.
05494  M00S05427.ddf     +++|*           BLDSL   - CREATE LABEL SECTOR FOR DEVICE.
05495  M00S05428.ddf     +++|*
05496  M00S05429.ddf     +++|*         THESE COMMANDS USE A RECOVERY TABLE IN CM TO KEEP TRACK OF
05497  M00S05430.ddf     +++|*         LINKAGES.  THE TABLE IS INITIALIZED BY THE *BEGINR.* COMMAND.
05498  M00S05431.ddf     +++|*         THE OTHER COMMANDS USE OR MODIFY THE DATA IN THE TABLE TO
05499  M00S05432.ddf     +++|*         EFFECT DEVICE RECOVERY.  THE TABLE IS FORMATTED AS FOLLOWS.
05500  M00S05433.ddf     +++|*
05501  M00S05434.ddf     +++|*
05502  M00S05435.ddf     +++|*T,MST    IMAGE OF MST FOR DEVICE. (MSTL WORDS LONG)
Figure MST

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "", "bits": IMAGE OF MST FOR DEVICE. (MSTL WORDS LONG), "type": 1 }
]


 is invalid.

Please check your syntax and try again.

05503  M00S05436.ddf     +++|*
05504  M00S05437.ddf     +++|*
05505  M00S05438.ddf     +++|*T,SSDW   *FNSS* WORD FROM SYSTEM SECTOR OF CURRENT CHAIN.
Figure SSDW

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "", "bits": *FNSS* WORD FROM SYSTEM SECTOR OF CURRENT CHAIN., "type": 1 }
]


 is invalid.

Please check your syntax and try again.

05506  M00S05439.ddf     +++|*         *FTSS* WORD.
05507  M00S05440.ddf     +++|*         *DTSS* WORD.                 (THREE WORDS FOR FNSS....DTSS)
05508  M00S05441.ddf     +++|*
05509  M00S05442.ddf     +++|*
05510  M00S05443.ddf     +++|*T,RCPW   12/FT, 12/PT, 12/SC, 24/UNUSED         (RECOVER POINTERS)
Figure RCPW

0232429UNUSED (RECOVER POINTERS)SC303536474859SCPTFT

05511  M00S05444.ddf     +++|*
05512  M00S05445.ddf     +++|*                FT - FIRST TRACK OF CURRENT CHAIN.
05513  M00S05446.ddf     +++|*                PT - PREVIOUS TRACK IN CHAIN.
05514  M00S05447.ddf     +++|*                SC - CURRENT SECTOR FOR EOI SEARCH AFTER ERROR.
05515  M00S05448.ddf     +++|*
05516  M00S05449.ddf     +++|*
05517  M00S05450.ddf     +++|*T,ICPW   12/FT, 12/PT, 36/UNUSED      (INDIRECT CHAIN POINTERS)
Figure ICPW

029UNUSED (INDIRECT CHAIN POINTERS)303536474859UNUSED (INDIRECT CHAIN POINTERS)PTFT

05518  M00S05451.ddf     +++|*
05519  M00S05452.ddf     +++|*                FT - FIRST TRACK OF INDIRECT CHAIN IN *BLDIC* COMMAND.
05520  M00S05453.ddf     +++|*                PT - PREVIOUS TRACK OF INDIRECT CHAIN.
05521  M00S05454.ddf     +++|*
05522  M00S05455.ddf     +++|*
05523  M00S05456.ddf     +++|*T,BSPW   12/TT, 12/SC, 12/FT, 12/NF, 12/TL  (BUILD POINTERS)
Figure BSPW

01112232429TL (BUILD POINTERS)NFFT303536474859FTSCTT

05524  M00S05457.ddf     +++|*
05525  M00S05458.ddf     +++|*                TT - DESTINATION TRACK FOR WRITING TRT.
05526  M00S05459.ddf     +++|*                SC - SECTOR FOR CURRENT PIECE OF TRT.
05527  M00S05460.ddf     +++|*                FT - FIRST TRACK FOR CURRENT PIECE OF TRT.
05528  M00S05461.ddf     +++|*                NF - DAF FILE COUNT.
05529  M00S05462.ddf     +++|*                TL - TRT LENGTH FROM MST.
05530  M00S05463.ddf     +++|*
05531  M00S05464.ddf     +++|*
05532  M00S05465.ddf     +++|*         TWO RESERVED WORDS FOLLOW.
05533  M00S05466.ddf     +++|*
05534  M00S05467.ddf     +++|*
05535  M00S05468.ddf     +++|*T,TRCT   BEGINNING OF TRACK RECOVERY TABLE.
Figure TRCT

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "", "bits": BEGINNING OF TRACK RECOVERY TABLE., "type": 1 }
]


 is invalid.

Please check your syntax and try again.

05536  M00S05469.ddf     +++|*                (MSTL+10 WORD FROM BEGINNING OF MST AREA.)
05537  M00S05470.ddf     +++|*                (ONE WORD PER TRACK AS FOLLOWS)
05538  M00S05471.ddf     +++|*
05539  M00S05472.ddf     +++|*T        6/TY, 1/RE, 1/SS, 1/FL, 1/, 2/EI, 12/FT, 12/PT, 12/NT, 12/LC
Figure

01112232429LCNTPT303536474849505152535459PTFTEIFLSSRETY

05540  M00S05473.ddf     +++|*
05541  M00S05474.ddf     +++|*                TY - FILE TYPE FROM SYSTEM SECTOR.
05542  M00S05475.ddf     +++|*                RE - READ ERROR DETECTED IN TRACK.
05543  M00S05476.ddf     +++|*                SS - SYSTEM SECTOR IN TRACK AT OTHER THAN SECTOR ZERO.
05544  M00S05477.ddf     +++|*                FL - FLAWED TRACK INDICATOR.
05545  M00S05478.ddf     +++|*                EI - EOI STATUS FOR TRACK.
05546  M00S05479.ddf     +++|*                     =0 - NO EOI.
05547  M00S05480.ddf     +++|*                     =1 - NORMAL EOI IN TRACK.
05548  M00S05481.ddf     +++|*                     =2 - EOI, WRITTEN BY IMS.
05549  M00S05482.ddf     +++|*                FT - FIRST TRACK OF CHAIN LINKED TO THIS TRACK.
05550  M00S05483.ddf     +++|*                PT - FIRST TRACK ENCOUNTERED LINKED TO THIS ONE.
05551  M00S05484.ddf     +++|*                     ((PT) = CURRENT TRACK IF START OF FILE)
05552  M00S05485.ddf     +++|*                NT - NEXT TRACK OR EOI SECTOR NUMBER.
05553  M00S05486.ddf     +++|*                LC - LINKAGE COUNT. (NUMBER OF TRACKS LINKED
05554  M00S05487.ddf     +++|*                     TO THIS TRACK.)
05555  M00S05488.ddf     +++|          SPACE  4,10
05556  M00S05489.ddf     +++|**        LINKAGE RECOVERY DEFINITIONS.
05557  M00S05490.ddf     +++|*
05558  M00S05491.ddf     +++|*         THE FOLLOWING SYMBOLS ARE USED TO REFERENCE THE
05559  M00S05492.ddf     +++|*         CM RECOVERY TABLES.
05560  M00S05493.ddf     +++|
05561  M00S05494.ddf     +++|
05562  M00S05495.ddf     +++|          QUAL
05563  M00S05496.ddf     +++| SSDW     EQU    MSTL+0      SYSTEM SECTOR DATA WORDS
05564  M00S05497.ddf     +++| RCPW     EQU    MSTL+3      RECOVERY POINTER WORD
05565  M00S05498.ddf     +++| ICPW     EQU    MSTL+4      INDIRECT CHAIN RECOVERY POINTER WORD
05566  M00S05499.ddf     +++| BSPW     EQU    MSTL+5      BUILD SECTOR POINTER WORD
05567  M00S05500.ddf     +++|*                MSTL+6      SPARE
05568  M00S05501.ddf     +++|*                MSTL+7      SPARE
05569  M00S05502.ddf     +++| TRCT     EQU    MSTL+10     TRACK RECOVERY TABLE
05570  M00S05503.ddf     +++|
05571  M00S05504.ddf     +++| CRAL     EQU    TRCT+4077   CM RECOVERY AREA LENGTH
05572  M00S05505.ddf     +++|          QUAL   *
05573  M00S05506.ddf     +++|          SPACE  4,10
05574  M00S05507.ddf     +++|**        DIRECT CELL USAGE CONVENTIONS.
05575  M00S05508.ddf     +++|*
05576  M00S05509.ddf     +++|*         (FN - FN+4) = RECOVERY POINTERS.
05577  M00S05510.ddf     +++|*                     = (RCPW) FOR BEGINR, NEXXTAT, NEXTSS, RECOVER.
05578  M00S05511.ddf     +++|*                     = (ICPW) FOR BLDIC.  (NOT YET IMPLEMENTED)
05579  M00S05512.ddf     +++|*                     = (BSPW) FOR BLDSL, BLDTRT.
05580  M00S05513.ddf     +++|*         (AB - AB+4) = RECOVERY WORD FOR CURRENT TRACK.
05581  M00S05514.ddf     +++| BTR      SPACE  4,10
05582  M00S05515.ddf     +++|***       BEGINR.
05583  M00S05516.ddf     +++|*         BEGIN TRACK RECOVERY FOR THE CURRENT SELECTED EQUIPMENT BY
05584  M00S05517.ddf     +++|*         RESERVING AND CLEARING THE CM RECOVERY TABLES.
05585  M00S05518.ddf     +++|*         THE EQUIPMENT TO BE RECOVERED MUST BE REMOVABLE AND UNLOADED.
05586  M00S05519.ddf     +++|*         THE MST IN CMR FOR THE SELECTED EQUIPMENT IS USED TO
05587  M00S05520.ddf     +++|*         INITIALIZE THE MST FOR THE LABEL TRACK BUILT BY THE RECOVERY
05588  M00S05521.ddf     +++|*         COMMANDS.  BE SURE THE EQUIPMENT MNEMONIC IN THE *E,M*
05589  M00S05522.ddf     +++|*         DISPLAY MATCHES THE PACK TO BE RECOVERED.  IF THIS COMMAND IS
05590  M00S05523.ddf     +++|*         USED AGAIN, RECOVERY IS RESTARTED FOR THE CURRENT EQUIPMENT.
05591  M00S05524.ddf     +++|
05592  M00S05525.ddf     +++|
05593  M00S05526.ddf     +++| BTR      COMMAND
05594  M00S05527.ddf     +++|          LDD    RT
05595  M00S05528.ddf     +++|          NJN    BTR2        IF NOT FIRST USE OF *BEGINR.*
05596  M00S05529.ddf     +++|          LDD    FL          REQUEST STORAGE FOR TABLE
05597  M00S05530.ddf     +++|          STD    RT          SAVE TABLE ADDRESS
05598  M00S05531.ddf     +++|          ADN    CRAL/100B
05599  M00S05532.ddf     +++|          STD    AB
05600  M00S05533.ddf     +++|          LDD    CP
05601  M00S05534.ddf     +++|          ADN    MS1W
05602  M00S05535.ddf     +++|          CWM    BTRA,TR     * WAITING FOR MEMORY.*
05603  M00S05536.ddf     +++| BTR1     LDN    ZERL        REQUEST STORAGE FOR RECOVERY TABLE
05604  M00S05537.ddf     +++|          CRD    CM
05605  M00S05538.ddf     +++|          LDD    AB
05606  M00S05539.ddf     +++|          STD    CM+1
05607  M00S05540.ddf     +++|          MONITOR  RSTM
05608  M00S05541.ddf     +++|          RJM    PSS         PAUSE
05609  M00S05542.ddf     +++|          LDD    AB
05610  M00S05543.ddf     +++|          LMD    FL
05611  M00S05544.ddf     +++|          NJN    BTR1        IF MEMORY NOT OBTAINED
05612  M00S05545.ddf     +++| BTR2     LDN    DFBN        SET DEFAULT DISPLAY AND LOAD SUBROUTINES
05613  M00S05546.ddf     +++|          STD    RS
05614  M00S05547.ddf     +++|          LDN    LRRN        OVERLAY CONTROL WORD INDEX
05615  M00S05548.ddf     +++|          RJM    LDO         LOAD OVERLAY
05616  M00S05549.ddf     +++|          SFA    EST,EQ      READ EST ENTRY
05617  M00S05550.ddf     +++|          ADK    EQDE
05618  M00S05551.ddf     +++|          CRD    CM
05619  M00S05552.ddf     +++|          LDN    MSTL        SET UP MST SKELTON FOR RECOVERY
05620  M00S05553.ddf     +++|          STD    T1
05621  M00S05554.ddf     +++|          LDD    CM+4        GET MST ADDRESS
05622  M00S05555.ddf     +++|          SHN    3
05623  M00S05556.ddf     +++|          CRM    EPFW,T1
05624  M00S05557.ddf     +++|          RJM    MST         SET MST AREA
05625  M00S05558.ddf     +++|          LDD    RA          WRITE MST TO RECOVERY TABLE
05626  M00S05559.ddf     +++|          ADD    RT
05627  M00S05560.ddf     +++|          SHN    6
05628  M00S05561.ddf     +++|          CWM    EPFW,T1
05629  M00S05562.ddf     +++|          LDN    ZERL
05630  M00S05563.ddf     +++|          CRD    AB          CLEAR RECOVERY WORDS
05631  M00S05564.ddf     +++|          CRD    FN
05632  M00S05565.ddf     +++|          LDD    CP          CLEAR MESSAGE
05633  M00S05566.ddf     +++|          ADN    MS1W
05634  M00S05567.ddf     +++|          CWD    FN
05635  M00S05568.ddf     +++| BTR3     LDD    RA          CLEAR RECOVERY TABLE
05636  M00S05569.ddf     +++|          ADD    RT
05637  M00S05570.ddf     +++|          SHN    6
05638  M00S05571.ddf     +++|          ADD    T1
05639  M00S05572.ddf     +++|          CWD    FN
05640  M00S05573.ddf     +++|          AOD    T1
05641  M00S05574.ddf     +++|          ADC    -CRAL
05642  M00S05575.ddf     +++|          MJN    BTR3        IF MORE TO CLEAR
05643  M00S05576.ddf     +++|          LDC    4000-1      SET INITIAL TRACK
05644  M00S05577.ddf     +++|          STD    FN
05645  M00S05578.ddf     +++|          RJM    /LRR/SRP    SAVE RECOVERY POINTERS
05646  M00S05579.ddf     +++|          AOD    FN          READ FIRST SECTOR
05647  M00S05580.ddf     +++|          STD    TK
05648  M00S05581.ddf     +++|          LDN    0
05649  M00S05582.ddf     +++|          STD    SC
05650  M00S05583.ddf     +++|          RJM    RSB         READ SECTOR TO BUFFER
05651  M00S05584.ddf     +++|          LJM    RET         RETURN
05652  M00S05585.ddf     +++|
05653  M00S05586.ddf     +++|
05654  M00S05587.ddf     +++| BTRA     DATA   C* WAITING FOR MEMORY.*
05655  M00S05588.ddf     +++| MST      SPACE  4,10
05656  M00S05589.ddf     +++|**        MST - SET MST RECOVERY TABLE.
05657  M00S05590.ddf     +++|*
05658  M00S05591.ddf     +++|*         ENTRY  (EPFW - EPFW+MSTL) = MST IMAGE.
05659  M00S05592.ddf     +++|*
05660  M00S05593.ddf     +++|*         EXIT   MST SET FOR RECOVERY OPERATIONS.
05661  M00S05594.ddf     +++|*
05662  M00S05595.ddf     +++|*         USES   T3.
05663  M00S05596.ddf     +++|
05664  M00S05597.ddf     +++|
05665  M00S05598.ddf     +++| MST      SUBR               ENTRY/EXIT
05666  M00S05599.ddf     +++|          LDC    EPFW+ALGL*5
05667  M00S05600.ddf     +++|          STD    T3
05668  M00S05601.ddf     +++|          LDC    /LSD/FLTK
05669  M00S05602.ddf     +++|          STM    1,T3
05670  M00S05603.ddf     +++|          LDN    0
05671  M00S05604.ddf     +++|          STI    T3          CLEAR INDIRECT POINTER
05672  M00S05605.ddf     +++|          STM    2,T3        CLEAR PERMITS POINTER
05673  M00S05606.ddf     +++|          STM    3,T3        CLEAR CATALOG TRACK COUNT
05674  M00S05607.ddf     +++|          STM    4,T3        CLEAR *DAT* POINTER
05675  M00S05608.ddf     +++| .1       SET    STLL-ALGL
05676  M00S05609.ddf     +++|          LDN    .1*5
05677  M00S05610.ddf     +++|          RAD    T3
05678  M00S05611.ddf     +++|          LDN    2
05679  M00S05612.ddf     +++|          STI    T3          CLEAR INITIALIZE REQUESTS
05680  M00S05613.ddf     +++|          LDN    0
05681  M00S05614.ddf     +++|          STM    1,T3        CLEAR ERROR STATUS
05682  M00S05615.ddf     +++|          STM    3,T3        CLEAR DAF USER COUNT
05683  M00S05616.ddf     +++|          LJM    MSTX        RETURN
05684  M00S05617.ddf     +++| BLS      SPACE  4,20
05685  M00S05618.ddf     +++|***       BLDSL.
05686  M00S05619.ddf     +++|*         BUILDS A LABEL SECTOR IMAGE IN THE DATA BUFFER FROM DATA
05687  M00S05620.ddf     +++|*         IN THE CM RECOVERY TABLE.  ONCE THE OTHER RECOVERY COMMANDS
05688  M00S05621.ddf     +++|*         HAVE COMPLETED, THE MEMORY CHANGE COMMANDS CAN FILL IN ANY
05689  M00S05622.ddf     +++|*         MISSING DATA.  THE BUFFER CAN THEN BE WRITTEN TO DISK WITH
05690  M00S05623.ddf     +++|*         THE WRITE COMMAND.
05691  M00S05624.ddf     +++|*
05692  M00S05625.ddf     +++|*         NOTE - IF THIS COMMAND IS USED AFTER THE *RECOVER* COMMAND
05693  M00S05626.ddf     +++|*         COMPLETES, THE MST IN THE DATA BUFFER WILL SHOW THE
05694  M00S05627.ddf     +++|*         POINTERS TO THE FIRST TRACK OF THE PERMIT DATA AND INDIRECT
05695  M00S05628.ddf     +++|*         PF CHAIN.  SINCE THE *RECOVER* COMMAND IS UNABLE TO FIND THE
05696  M00S05629.ddf     +++|*         CATALOG TRACK CHAIN, THESE POINTERS ARE HELPFUL IN LOCATING
05697  M00S05630.ddf     +++|*         THE CATALOG TRACK CHAIN, WHICH IS ALLOCATED BY *IMS*
05698  M00S05631.ddf     +++|*         IMMEDIATELY PRECEEDING THESE TWO TRACKS.  THIS ONLY APPLIES
05699  M00S05632.ddf     +++|*         TO THE INITIAL CATALOG TRACKS.  OVERFLOW TRACKS ARE LINKED
05700  M00S05633.ddf     +++|*         THRU THE LAST SECTOR OF ONE OF THE INITIAL TRACKS.
05701  M00S05634.ddf     +++|
05702  M00S05635.ddf     +++|
05703  M00S05636.ddf     +++| BLS      COMMAND
05704  M00S05637.ddf     +++|          LDD    RT
05705  M00S05638.ddf     +++|          NJN    BLS1        IF RECOVERY TABLES NOT PRESENT
05706  M00S05639.ddf     +++|          LJM    ERR4        *INCORRECT COMMAND.*
05707  M00S05640.ddf     +++|
05708  M00S05641.ddf     +++| BLS1     LDN    DFBN        SET DEFAULT DISPLAY AND LOAD SUBROUTINES
05709  M00S05642.ddf     +++|          STD    RS
05710  M00S05643.ddf     +++|          LDN    LRRN        OVERLAY CONTROL WORD INDEX
05711  M00S05644.ddf     +++|          RJM    LDO         LOAD OVERLAY
05712  M00S05645.ddf     +++|          LDC    3777        SET LINKAGE FOR SYSTEM SECTOR
05713  M00S05646.ddf     +++|          STM    BFMS
05714  M00S05647.ddf     +++|          LDN    77
05715  M00S05648.ddf     +++|          STM    BFMS+1
05716  M00S05649.ddf     +++| BLS2     LDN    ZERL        CLEAR SECTOR BUFFER
05717  M00S05650.ddf     +++|          CRM    FNSS,ON
05718  M00S05651.ddf     +++| BLSA     EQU    *-1
05719  M00S05652.ddf     +++|          LDN    5           ADVANCE BUFFER ADDRESS
05720  M00S05653.ddf     +++|          RAM    BLSA
05721  M00S05654.ddf     +++|          LMC    BFMS+2+100*5
05722  M00S05655.ddf     +++|          NJN    BLS2        IF CLEAR INCOMPLETE
05723  M00S05656.ddf     +++|          LDN    2
05724  M00S05657.ddf     +++|          STD    T1
05725  M00S05658.ddf     +++| BLS3     LDM    BLSB,T1     SET FILE NAME = *LABEL*
05726  M00S05659.ddf     +++|          STM    FNSS,T1
05727  M00S05660.ddf     +++|          SOD    T1
05728  M00S05661.ddf     +++|          PJN    BLS3        IF COPY INCOMPLETE
05729  M00S05662.ddf     +++|          LDC    SYFT*1S6    SET FILE TYPE
05730  M00S05663.ddf     +++|          STM    FNSS+4
05731  M00S05664.ddf     +++|          LDD    EQ          SET EQUIPMENT ORDINAL
05732  M00S05665.ddf     +++|          STM    FTSS-1
05733  M00S05666.ddf     +++|          LDN    PDTL        SET DATE AND TIME
05734  M00S05667.ddf     +++|          CRM    DTSS,ON
05735  M00S05668.ddf     +++|          LDN    1
05736  M00S05669.ddf     +++|          STM    NSSS        SET NEXT SECTOR
05737  M00S05670.ddf     +++|          STM    DTSS        SET FLAG
05738  M00S05671.ddf     +++|          STM    /LSD/LLSS   SET LABEL LEVEL
05739  M00S05672.ddf     +++|          SFA    EST,EQ      READ EST ENTRY
05740  M00S05673.ddf     +++|          ADK    EQDE
05741  M00S05674.ddf     +++|          CRD    CM
05742  M00S05675.ddf     +++|          LDD    CM+3        SET EQUIPMENT MNEMONIC
05743  M00S05676.ddf     +++|          STM    /LSD/E4SS
05744  M00S05677.ddf     +++|          LDN    MSTL        READ MST FROM RECOVERY AREA
05745  M00S05678.ddf     +++|          STD    T1
05746  M00S05679.ddf     +++|          LDD    RA
05747  M00S05680.ddf     +++|          ADD    RT
05748  M00S05681.ddf     +++|          SHN    6
05749  M00S05682.ddf     +++|          CRM    /LSD/N4SS,T1
05750  M00S05683.ddf     +++|          LDM    /LSD/N4SS+ALGL*5+1  SET LABEL TRACK AND SECTOR
05751  M00S05684.ddf     +++|          STD    TK
05752  M00S05685.ddf     +++|          STM    FTSS
05753  M00S05686.ddf     +++|          LDN    0
05754  M00S05687.ddf     +++|          STD    SC
05755  M00S05688.ddf     +++|          LJM    RET         RETURN
05756  M00S05689.ddf     +++|
05757  M00S05690.ddf     +++|
05758  M00S05691.ddf     +++| BLSB     DATA   Z*LABEL*
05759  M00S05692.ddf     +++| BRS      SPACE  4,10
05760  M00S05693.ddf     +++|***       BLDSTRT.
05761  M00S05694.ddf     +++|*         BUILD NEXT SECTOR OF TRT DATA FOR LABEL TRACK.  AFTER LAST
05762  M00S05695.ddf     +++|*         SECTOR IS BUILT, THE POINTERS ARE RESET FOR THE FIRST SECTOR
05763  M00S05696.ddf     +++|*         AGAIN.  TRACK AND SECTOR ARE SET FOR *WRITE* COMMAND.
05764  M00S05697.ddf     +++|*
05765  M00S05698.ddf     +++|*         BLDSTRT.N.
05766  M00S05699.ddf     +++|*         BUILD SECTOR *N* OF TRT DATA FOR LABEL TRACK.  (N .GE. 1)
05767  M00S05700.ddf     +++|*
05768  M00S05701.ddf     +++|*         NOTE   IT WILL BE NECESSARY TO MANUALLY GENERATE THE EOI
05769  M00S05702.ddf     +++|*                SECTOR FOR THE LABEL TRACK.
05770  M00S05703.ddf     +++|
05771  M00S05704.ddf     +++|
05772  M00S05705.ddf     +++| BRS      COMMAND
05773  M00S05706.ddf     +++|          LDD    RT
05774  M00S05707.ddf     +++|          NJN    BRS1        IF TABLES NOT ALLOCATED
05775  M00S05708.ddf     +++|          LJM    ERR4        *INCORRECT ENTRY.*
05776  M00S05709.ddf     +++|
05777  M00S05710.ddf     +++| BRS1     LDN    DFBN        SET DEFAULT DISPLAY AND LOAD SUBROUTINES
05778  M00S05711.ddf     +++|          STD    RS
05779  M00S05712.ddf     +++|          LDN    LRRN        OVERLAY CONTROL WORD INDEX
05780  M00S05713.ddf     +++|          RJM    LDO         LOAD OVERLAY
05781  M00S05714.ddf     +++|          LDN    BSPW-RCPW   SET POINTER INDEX
05782  M00S05715.ddf     +++|          RAM    /LRR/RRPA
05783  M00S05716.ddf     +++|          STM    /LRR/SRPA
05784  M00S05717.ddf     +++|          RJM    /LRR/RRP    RESTORE RECOVERY POINTERS
05785  M00S05718.ddf     +++|          LDD    FN
05786  M00S05719.ddf     +++|          NJN    BRS2        IF NOT INITIAL ENTRY
05787  M00S05720.ddf     +++|          STD    FN+1
05788  M00S05721.ddf     +++|          LDD    RA          GET LABEL TRACK FROM MST
05789  M00S05722.ddf     +++|          ADD    RT
05790  M00S05723.ddf     +++|          SHN    6
05791  M00S05724.ddf     +++|          ADN    ALGL
05792  M00S05725.ddf     +++|          CRD    CM
05793  M00S05726.ddf     +++|          LDD    CM+1
05794  M00S05727.ddf     +++|          STD    FN
05795  M00S05728.ddf     +++| BRS2     LDI    CA          CHECK PARAMETER
05796  M00S05729.ddf     +++|          ZJN    BRS3        IF NO SECTOR SPECIFIED
05797  M00S05730.ddf     +++|          SBN    1R1
05798  M00S05731.ddf     +++|          MJN    BRS4        IF ILLEGAL SECTOR NUMBER
05799  M00S05732.ddf     +++|          STD    FN+1
05800  M00S05733.ddf     +++| BRS3     AOD    FN+1        ADVANCE SECTOR
05801  M00S05734.ddf     +++|          SBN    1
05802  M00S05735.ddf     +++|          SHN    10          (400B  TK/PRU)
05803  M00S05736.ddf     +++|          ADC    4000
05804  M00S05737.ddf     +++|          STD    FN+2        SET STARTING TRACK
05805  M00S05738.ddf     +++|          SBD    LT
05806  M00S05739.ddf     +++|          MJN    BRS5        IF LEGAL SECTOR
05807  M00S05740.ddf     +++| BRS4     LJM    ERR2        *INCORRECT PARAMETER*
05808  M00S05741.ddf     +++|
05809  M00S05742.ddf     +++|*         CHECK ALL TRACKS FOR ERRORS.
05810  M00S05743.ddf     +++|
05811  M00S05744.ddf     +++| BRS5     RJM    CLE         CHECK FOR LINKAGE ERRORS
05812  M00S05745.ddf     +++|          RJM    BTS         BUILD TRT SECTOR
05813  M00S05746.ddf     +++|          LDM    BFMS+1
05814  M00S05747.ddf     +++|          LMC    100
05815  M00S05748.ddf     +++|          ZJN    BRS8        IF SECTOR FULL, NOT END OF TRT
05816  M00S05749.ddf     +++|
05817  M00S05750.ddf     +++|*         COMPLETE LAST SECTOR OF TRT.
05818  M00S05751.ddf     +++|
05819  M00S05752.ddf     +++|          LDD    TK
05820  M00S05753.ddf     +++|          LPN    3
05821  M00S05754.ddf     +++|          ZJN    BRS7        IF LAST WORD FULL
05822  M00S05755.ddf     +++| BRS6     LDC    3777        SET UNUSABLE TRACKS AS FLAWED
05823  M00S05756.ddf     +++|          STI    T3
05824  M00S05757.ddf     +++|          AOD    T3
05825  M00S05758.ddf     +++|          LDD    RC
05826  M00S05759.ddf     +++|          SHN    1
05827  M00S05760.ddf     +++|          LMN    1
05828  M00S05761.ddf     +++|          STD    RC
05829  M00S05762.ddf     +++|          AOD    TK
05830  M00S05763.ddf     +++|          LPN    3
05831  M00S05764.ddf     +++|          NJN    BRS6        IF NOT END OF WORD
05832  M00S05765.ddf     +++|          LDD    RC          SAVE TRACK STATUS BYTE
05833  M00S05766.ddf     +++|          STI    T3
05834  M00S05767.ddf     +++|          AOD    T3
05835  M00S05768.ddf     +++|          AOM    BFMS+1      INCREMENT SECTOR WORD COUNT
05836  M00S05769.ddf     +++| BRS7     LDN    0           CLEAR REMAINDER OF LAST SECTOR
05837  M00S05770.ddf     +++|          STI    T3
05838  M00S05771.ddf     +++|          AOD    T3
05839  M00S05772.ddf     +++|          ADC    -BFMS-2-100*5
05840  M00S05773.ddf     +++|          MJN    BRS7        IF NOT END OF SECTOR
05841  M00S05774.ddf     +++|          LDN    0           RESET POINTER TO START OVER
05842  M00S05775.ddf     +++|          STD    FN
05843  M00S05776.ddf     +++|
05844  M00S05777.ddf     +++|*         SET POINTERS AND RETURN.
05845  M00S05778.ddf     +++|
05846  M00S05779.ddf     +++| BRS8     LDD    TK          SAVE NEXT TRACK
05847  M00S05780.ddf     +++|          STD    FN+2
05848  M00S05781.ddf     +++|          LDD    FN          SET DESTINATION ADDRESS
05849  M00S05782.ddf     +++|          STD    TK
05850  M00S05783.ddf     +++|          LDD    FN+1        SET SECTOR
05851  M00S05784.ddf     +++|          STD    SC
05852  M00S05785.ddf     +++|          LDD    RA          SAVE POINTERS
05853  M00S05786.ddf     +++|          ADD    RT
05854  M00S05787.ddf     +++|          SHN    6
05855  M00S05788.ddf     +++|          ADN    BSPW
05856  M00S05789.ddf     +++|          CWD    FN
05857  M00S05790.ddf     +++|          LJM    RET         RETURN
05858  M00S05791.ddf     +++| BTS      SPACE  4,10
05859  M00S05792.ddf     +++|**        BTS - BUILD TRT SECTOR.
05860  M00S05793.ddf     +++|*
05861  M00S05794.ddf     +++|*         BUILD A SECTOR OF TRT FROM RECOVERY TABLE.
05862  M00S05795.ddf     +++|
05863  M00S05796.ddf     +++|
05864  M00S05797.ddf     +++| BTS      SUBR               ENTRY/EXIT
05865  M00S05798.ddf     +++|          LDD    FN+1        SET LINK
05866  M00S05799.ddf     +++|          ADN    1
05867  M00S05800.ddf     +++|          STM    BFMS
05868  M00S05801.ddf     +++|          LDN    0
05869  M00S05802.ddf     +++|          STD    RC
05870  M00S05803.ddf     +++|          STM    BFMS+1
05871  M00S05804.ddf     +++|          LDC    BFMS+2
05872  M00S05805.ddf     +++|          STD    T3
05873  M00S05806.ddf     +++|          LDD    FN+2
05874  M00S05807.ddf     +++|          STD    TK
05875  M00S05808.ddf     +++|
05876  M00S05809.ddf     +++|*         BUILD TRT FROM RECOVERY TABLE.
05877  M00S05810.ddf     +++|
05878  M00S05811.ddf     +++| BTS1     RJM    /LRR/STA    SET TABLE ADDRESS
05879  M00S05812.ddf     +++|          CRD    AB          READ TRACK RECOVERY WORD
05880  M00S05813.ddf     +++|          LDD    AB
05881  M00S05814.ddf     +++|          LPN    10
05882  M00S05815.ddf     +++|          ZJN    BTS2        IF NOT FLAWED TRACK
05883  M00S05816.ddf     +++|          LDC    3777        SET FLAWED TRACK
05884  M00S05817.ddf     +++|          STI    T3
05885  M00S05818.ddf     +++|          UJN    BTS4        SET STATUS
05886  M00S05819.ddf     +++|
05887  M00S05820.ddf     +++| BTS2     LDD    AB+3
05888  M00S05821.ddf     +++|          STI    T3
05889  M00S05822.ddf     +++|          LDD    AB
05890  M00S05823.ddf     +++|          SCN    77
05891  M00S05824.ddf     +++|          ZJN    BTS3        IF NOT FIRST TRACK OF FILE
05892  M00S05825.ddf     +++|          LDC    401
05893  M00S05826.ddf     +++|          UJN    BTS5        SET TRACK STATUS
05894  M00S05827.ddf     +++|
05895  M00S05828.ddf     +++| BTS3     LDD    AB+3
05896  M00S05829.ddf     +++|          ZJN    BTS5        IF TRACK NOT LINKED
05897  M00S05830.ddf     +++| BTS4     LDN    1           SET TRACK STATUS
05898  M00S05831.ddf     +++| BTS5     SHN    21          MERGE STATUS
05899  M00S05832.ddf     +++|          LMD    RC
05900  M00S05833.ddf     +++|          SHN    1
05901  M00S05834.ddf     +++|          STD    RC
05902  M00S05835.ddf     +++|          AOD    T3          ADVANCE TRACK POINTERS
05903  M00S05836.ddf     +++|          AOD    TK
05904  M00S05837.ddf     +++|          LPN    3
05905  M00S05838.ddf     +++|          NJN    BTS6        IF TRT WORD NOT COMPLETE
05906  M00S05839.ddf     +++|          LDD    RC          STORE TRACK STATUS BYTE
05907  M00S05840.ddf     +++|          STI    T3
05908  M00S05841.ddf     +++|          AOD    T3
05909  M00S05842.ddf     +++|          LDN    0
05910  M00S05843.ddf     +++|          STD    RC
05911  M00S05844.ddf     +++|          AOM    BFMS+1      INCREMENT SECTOR WORD COUNT
05912  M00S05845.ddf     +++|          LMC    100
05913  M00S05846.ddf     +++|          ZJN    BTS7        IF SECTOR FULL
05914  M00S05847.ddf     +++| BTS6     LDD    TK
05915  M00S05848.ddf     +++|          LMD    LT
05916  M00S05849.ddf     +++|          ZJN    BTS7        IF END OF TRT
05917  M00S05850.ddf     +++|          LJM    BTS1        PROCESS NEXT ENTRY
05918  M00S05851.ddf     +++|
05919  M00S05852.ddf     +++| BTS7     LJM    BTSX        RETURN
05920  M00S05853.ddf     +++| CLE      SPACE  4,10
05921  M00S05854.ddf     +++|**        CLE - CHECK FOR LINKAGE ERRORS.
05922  M00S05855.ddf     +++|*
05923  M00S05856.ddf     +++|*         VERIFY THAT ALL TRACKS RESERVED HAVE UNIQUE LINKAGE.
05924  M00S05857.ddf     +++|
05925  M00S05858.ddf     +++|
05926  M00S05859.ddf     +++| CLE      SUBR               ENTRY/EXIT
05927  M00S05860.ddf     +++|          LDC    4000
05928  M00S05861.ddf     +++|          STD    TK
05929  M00S05862.ddf     +++| CLE1     RJM    /LRR/STA    SET TABLE ADDRESS
05930  M00S05863.ddf     +++|          CRD    AB          READ TRACK RECOVERY WORD
05931  M00S05864.ddf     +++|          LDD    AB
05932  M00S05865.ddf     +++|          LPN    64
05933  M00S05866.ddf     +++|          NJN    CLE2        IF ERRORS
05934  M00S05867.ddf     +++|          LDD    AB+4
05935  M00S05868.ddf     +++|          SBN    2
05936  M00S05869.ddf     +++|          MJN    CLE3        IF LINKAGE UNIQUE
05937  M00S05870.ddf     +++| CLE2     LDC    CLEA        *ERROR IN TRACK STATUS.*
05938  M00S05871.ddf     +++|          LJM    ERR         OUTPUT MESSAGE
05939  M00S05872.ddf     +++|
05940  M00S05873.ddf     +++| CLE3     AOD    TK
05941  M00S05874.ddf     +++|          SBD    LT
05942  M00S05875.ddf     +++|          MJN    CLE1        IF ALL TRACKS NOT CHECKED
05943  M00S05876.ddf     +++|          UJN    CLEX        RETURN - NO ERRORS
05944  M00S05877.ddf     +++|
05945  M00S05878.ddf     +++|
05946  M00S05879.ddf     +++| CLEA     DATA   Z*ERROR IN TRACK STATUS.*
05947  M00S05880.ddf     +++| NAT      SPACE  4,10
05948  M00S05881.ddf     +++|***       NEXTAT.
05949  M00S05882.ddf     +++|*         LOCATES THE NEXT AVAILABLE TRACK ON THE CURRENT EQUIPMENT,
05950  M00S05883.ddf     +++|*         AND READS THE FIRST SECTOR OF THE TRACK.  THE SEARCH BEGINS
05951  M00S05884.ddf     +++|*         AT THE DISPLAYED TRACK POINTER+1.  BY RESETTING THE TRACK
05952  M00S05885.ddf     +++|*         POINTER TO TRACK ZERO, AND USING THIS COMMAND, UNRESERVED
05953  M00S05886.ddf     +++|*         TRACKS CAN BE FOUND AND CHECKED FOR BEING PART OF THE
05954  M00S05887.ddf     +++|*         CATALOG TRACK CHAIN OR INDIRECT FILE CHAIN.
05955  M00S05888.ddf     +++|
05956  M00S05889.ddf     +++|
05957  M00S05890.ddf     +++| NAT      COMMAND
05958  M00S05891.ddf     +++|          LDD    RT
05959  M00S05892.ddf     +++|          NJN    NAT1        IF TABLES ALLOCATED
05960  M00S05893.ddf     +++|          LJM    ERR4        *INCORRECT ENTRY.*
05961  M00S05894.ddf     +++|
05962  M00S05895.ddf     +++| NAT1     LDN    DFBN        SET DEFAULT DISPLAY AND LOAD SUBROUTINES
05963  M00S05896.ddf     +++|          STD    RS
05964  M00S05897.ddf     +++|          LDN    LRRN        OVERLAY CONTROL WORD INDEX
05965  M00S05898.ddf     +++|          RJM    LDO         LOAD OVERLAY
05966  M00S05899.ddf     +++|          RJM    /LRR/RRP    RESTORE RECOVERY POINTERS
05967  M00S05900.ddf     +++|          UJN    NAT3        ENTER LOOP
05968  M00S05901.ddf     +++|
05969  M00S05902.ddf     +++| NAT2     RJM    /LRR/STA    SET TABLE ADDRESS
05970  M00S05903.ddf     +++|          CRD    AB          READ TRACK RECOVERY WORD
05971  M00S05904.ddf     +++|          LDD    AB+1        CHECK FOR LINK
05972  M00S05905.ddf     +++|          ZJN    NAT4        IF TRACK AVAILABLE
05973  M00S05906.ddf     +++| NAT3     AOD    FN
05974  M00S05907.ddf     +++|          STD    TK
05975  M00S05908.ddf     +++|          SBD    LT
05976  M00S05909.ddf     +++|          MJN    NAT2        IF NOT END OF DEVICE
05977  M00S05910.ddf     +++|          SOD    TK
05978  M00S05911.ddf     +++|          LDC    NATA        *END OF EQUIPMENT.*
05979  M00S05912.ddf     +++|          LJM    ERR         OUTPUT MESSAGE
05980  M00S05913.ddf     +++|
05981  M00S05914.ddf     +++| NAT4     STD    SC
05982  M00S05915.ddf     +++|          RJM    /LRR/SRP    SAVE UPDATED RECOVERY POINTERS
05983  M00S05916.ddf     +++|          RJM    RSB         READ SECTOR TO BUFFER
05984  M00S05917.ddf     +++|          LJM    RET         RETURN
05985  M00S05918.ddf     +++|
05986  M00S05919.ddf     +++|
05987  M00S05920.ddf     +++| NATA     DATA   Z*END OF EQUIPMENT.*
05988  M00S05921.ddf     +++| NSS      SPACE  4,10
05989  M00S05922.ddf     +++|***       NEXTSS.
05990  M00S05923.ddf     +++|*         LOCATES THE NEXT TRACK IN THE RECOVERY TABLE THAT BEGINS
05991  M00S05924.ddf     +++|*         WITH A SYSTEM SECTOR.  THE SEARCH BEGINS AT THE DISPLAYED
05992  M00S05925.ddf     +++|*         TRACK POINTER+1.
05993  M00S05926.ddf     +++|
05994  M00S05927.ddf     +++|
05995  M00S05928.ddf     +++| NSS      COMMAND
05996  M00S05929.ddf     +++|          LDD    RT
05997  M00S05930.ddf     +++|          NJN    NSS1        IF TABLES ALLOCATED
05998  M00S05931.ddf     +++|          LJM    ERR4        *INCORRECT ENTRY.*
05999  M00S05932.ddf     +++|
06000  M00S05933.ddf     +++| NSS1     LDN    DFBN        SET DEFAULT DISPLAY AND LOAD GUBROUTINES
06001  M00S05934.ddf     +++|          STD    RS
06002  M00S05935.ddf     +++|          LDN    LRRN        OVERLAY CONTROL WORD INDEX
06003  M00S05936.ddf     +++|          RJM    LDO         LOAD OVERLAY
06004  M00S05937.ddf     +++|          RJM    /LRR/RRP    RESTORE RECOVERY POINTERS
06005  M00S05938.ddf     +++|          UJN    NSS3        ENTER LOOP
06006  M00S05939.ddf     +++|
06007  M00S05940.ddf     +++| NSS2     RJM    /LRR/STA    SET TABLE ADDRESS
06008  M00S05941.ddf     +++|          CRD    AB          READ TRACK RECOVERY WORD
06009  M00S05942.ddf     +++|          LDD    AB          CHECK FOR SYSTEM SECTOR
06010  M00S05943.ddf     +++|          SCN    77
06011  M00S05944.ddf     +++|          NJN    NSS4        IF SYSTEM SECTOR (FIRST TRACK)
06012  M00S05945.ddf     +++| NSS3     AOD    FN
06013  M00S05946.ddf     +++|          STD    TK
06014  M00S05947.ddf     +++|          SBD    LT
06015  M00S05948.ddf     +++|          MJN    NSS2        IF NOT END OF DEVICE
06016  M00S05949.ddf     +++|          SOD    TK
06017  M00S05950.ddf     +++|          LDC    NSSA        *END OF EQUIPMENT.*
06018  M00S05951.ddf     +++|          LJM    ERR         OUTPUT MESSAGE
06019  M00S05952.ddf     +++|
06020  M00S05953.ddf     +++| NSS4     LDN    0
06021  M00S05954.ddf     +++|          STD    SC
06022  M00S05955.ddf     +++|          RJM    /LRR/SRP    SAVE UPDATED RECOVERY POINTERS
06023  M00S05956.ddf     +++|          RJM    RSB         READ SECTOR TO BUFFER
06024  M00S05957.ddf     +++|          LJM    RET         RETURN
06025  M00S05958.ddf     +++|
06026  M00S05959.ddf     +++|
06027  M00S05960.ddf     +++| NSSA     DATA   Z*END OF EQUIPMENT.*
06028  M00S05961.ddf     +++| REC      SPACE  4,15
06029  M00S05962.ddf     +++|***       RECOVER.
06030  M00S05963.ddf     +++|*         RECOVER TRACKS STARTING AT FIRST TRACK OF DEVICE.  IF THIS
06031  M00S05964.ddf     +++|*         COMMAND IS USED MORE THAN ONCE SINCE A *BEGINR* COMMAND, IT
06032  M00S05965.ddf     +++|*         CONTINUES RECOVERY BY FINDING THE NEXT SYSTEM SECTOR TRACK.
06033  M00S05966.ddf     +++|*
06034  M00S05967.ddf     +++|*         RECOVER.X.         (X = ANY CHARACTER.)
06035  M00S05968.ddf     +++|*         CONTINUE RECOVERY BY SCANNING FROM CURRENT POSITION TO EOI.
06036  M00S05969.ddf     +++|*
06037  M00S05970.ddf     +++|*         RECOVERY DATA IS ADDED TO THE TABLE BY SEARCHING FOR TRACKS
06038  M00S05971.ddf     +++|*         THAT BEGIN WITH A SYSTEM SECTOR, AND FOLLOWING THE LINKAGE
06039  M00S05972.ddf     +++|*         TO EOI.  ERRORS AND ANOMOLYS ARE FLAGGED.  THE INDIRECT CHAIN
06040  M00S05973.ddf     +++|*         IS NOT TRACED.  THE DISPLAY IS DROPPED UNTIL AN ERROR
06041  M00S05974.ddf     +++|*         OCCURS, OR UNTIL THE SEARCH COMPLETES.  IT IS THEN
06042  M00S05975.ddf     +++|*         REQUESTED AGAIN AS IF A *HOLD* COMMAND HAD BEEN USED.
06043  M00S05976.ddf     +++|
06044  M00S05977.ddf     +++|
06045  M00S05978.ddf     +++| REC      COMMAND
06046  M00S05979.ddf     +++|          LDD    RT
06047  M00S05980.ddf     +++|          NJN    REC1        IF TABLES ALLOCATED.
06048  M00S05981.ddf     +++|          LJM    ERR4        *INCORRECT COMMAND.*
06049  M00S05982.ddf     +++|
06050  M00S05983.ddf     +++| REC1     LDN    DFBN        SET DEFAULT DISPLAY AND LOAD SUBROUTINES
06051  M00S05984.ddf     +++|          STD    RS
06052  M00S05985.ddf     +++|          LDN    LRRN        OVERLAY CONTROL WORD INDEX
06053  M00S05986.ddf     +++|          RJM    LDO         LOAD OVERLAY
06054  M00S05987.ddf     +++|          RJM    /LRR/RRP    RESTORE RECOVERY POINTERS
06055  M00S05988.ddf     +++|          LDI    CA          CHECK MODE
06056  M00S05989.ddf     +++|          ZJN    REC2        IF NO ENTRY SPECIFIED
06057  M00S05990.ddf     +++|          RJM    DDS         DROP DISPLAY
06058  M00S05991.ddf     +++|          AOD    FN+2        ADVANCE TO NEXT SECTOR
06059  M00S05992.ddf     +++|          STD    SC
06060  M00S05993.ddf     +++|          LJM    REC5        CONTINUE FROM NEXT SECTOR.
06061  M00S05994.ddf     +++|
06062  M00S05995.ddf     +++| REC2     RJM    DDS         DROP DISPLAY
06063  M00S05996.ddf     +++|
06064  M00S05997.ddf     +++|*         ENTER HERE TO CHECK NEXT TRACK FOR SYSTEM SECTOR.
06065  M00S05998.ddf     +++|
06066  M00S05999.ddf     +++| REC3     AOD    FN          SET TRACK AND SECTOR
06067  M00S06000.ddf     +++|          STD    FN+1
06068  M00S06001.ddf     +++|          STD    TK
06069  M00S06002.ddf     +++|          LMD    LT
06070  M00S06003.ddf     +++|          NJN    REC4        IF NOT END OF EQUIPMENT
06071  M00S06004.ddf     +++|          SOD    TK
06072  M00S06005.ddf     +++|          SOD    FN
06073  M00S06006.ddf     +++|          LDC    RECB        *END OF EQUIPMENT.*
06074  M00S06007.ddf     +++|          LJM    REC14       REPORT ERROR
06075  M00S06008.ddf     +++|
06076  M00S06009.ddf     +++| REC4     LDN    0
06077  M00S06010.ddf     +++|          STD    SC
06078  M00S06011.ddf     +++|          RJM    /LRR/STA    SET TABLE ADDRESS
06079  M00S06012.ddf     +++|          CRD    AB          READ TRACK RECOVERY WORD
06080  M00S06013.ddf     +++|          LDD    AB+1
06081  M00S06014.ddf     +++|          NJN    REC3        IF TRACK LINKED
06082  M00S06015.ddf     +++|          RJM    RSB         READ SECTOR TO BUFFER
06083  M00S06016.ddf     +++|          MJP    REC13       IF ERROR
06084  M00S06017.ddf     +++|          LDM    BFMS        CHECK FOR SYSTEM SECTOR
06085  M00S06018.ddf     +++|          SHN    6
06086  M00S06019.ddf     +++|          ADM    BFMS+1
06087  M00S06020.ddf     +++|          ZJN    REC6        IF EOI AT (SC) = 0
06088  M00S06021.ddf     +++|          LMC    377777
06089  M00S06022.ddf     +++|          NJN    REC3        IF NOT SYSTEM SECTOR
06090  M00S06023.ddf     +++|          RJM    /LRR/CSS    CHECK SYSTEM SECTOR
06091  M00S06024.ddf     +++|          ZJN    REC7        IF NO CHAIN RECOVERY
06092  M00S06025.ddf     +++|
06093  M00S06026.ddf     +++|*         ENTER HERE TO SCAN FROM CURRENT POSITION TO EOI.
06094  M00S06027.ddf     +++|
06095  M00S06028.ddf     +++| REC5     RJM    /LRR/SRP    SAVE RECOVERY POINTERS
06096  M00S06029.ddf     +++|          RJM    /LRR/WSM    WRITE STATUS MESSAGE
06097  M00S06030.ddf     +++|          RJM    PSS         PAUSE FOR SYSTEM
06098  M00S06031.ddf     +++|          RJM    /LRR/RRP    RESTORE RECOVERY POINTERS
06099  M00S06032.ddf     +++|          RJM    SNS         SET NEXT SECTOR
06100  M00S06033.ddf     +++|          NJN    REC8        IF NOT EOI
06101  M00S06034.ddf     +++|
06102  M00S06035.ddf     +++|*         CHECK EOI SECTOR.
06103  M00S06036.ddf     +++|
06104  M00S06037.ddf     +++| REC6     RJM    /LRR/CEI    CHECK EOI
06105  M00S06038.ddf     +++|          RJM    /LRR/STA    SET TABLE ADDRESS
06106  M00S06039.ddf     +++|          CWD    AB          SAVE TRACK RECOVERY WORD
06107  M00S06040.ddf     +++| REC7     LJM    REC3        LOOP TO FIND NEXT FILE
06108  M00S06041.ddf     +++|
06109  M00S06042.ddf     +++| REC8     LDD    SC
06110  M00S06043.ddf     +++|          ZJN    REC10       IF NEW TRACK
06111  M00S06044.ddf     +++|          RJM    RSB         READ SECTOR TO BUFFER
06112  M00S06045.ddf     +++|          MJP    REC13       IF ERROR
06113  M00S06046.ddf     +++|          LDM    BFMS        CHECK FOR SYSTEM SECTOR IN TRACK
06114  M00S06047.ddf     +++|          SHN    6
06115  M00S06048.ddf     +++|          ADM    BFMS+1
06116  M00S06049.ddf     +++|          LMC    377777
06117  M00S06050.ddf     +++|          NJP    REC5        IF NOT SYSTEM SECTOR
06118  M00S06051.ddf     +++|          LDD    AB          SET SYSTEM-SECTOR-IN-TRACK STATUS
06119  M00S06052.ddf     +++|          SCN    20
06120  M00S06053.ddf     +++|          LMN    20
06121  M00S06054.ddf     +++|          STD    AB
06122  M00S06055.ddf     +++|          LDC    RECC        *SYSTEM SECTOR IN TRACK.*
06123  M00S06056.ddf     +++|          LJM    REC14       PROCESS ERROR
06124  M00S06057.ddf     +++|
06125  M00S06058.ddf     +++|*         ADVANCE TO NEXT TRACK.
06126  M00S06059.ddf     +++|
06127  M00S06060.ddf     +++| REC10    LDD    TK          SET FORWARD LINK
06128  M00S06061.ddf     +++|          STD    AB+3
06129  M00S06062.ddf     +++|          LDD    FN+1        RESET TRACK
06130  M00S06063.ddf     +++|          STD    TK
06131  M00S06064.ddf     +++|          RJM    /LRR/STA    SET TABLE ADDRESS
06132  M00S06065.ddf     +++|          CWD    AB          SAVE TRACK RECOVERY WORD
06133  M00S06066.ddf     +++|          LDD    AB+3        SET NEW TRACK
06134  M00S06067.ddf     +++|          STD    TK
06135  M00S06068.ddf     +++|          RJM    /LRR/STA    SET TABLE ADDRESS
06136  M00S06069.ddf     +++|          CRD    AB          READ TRACK RECOVERY WORD
06137  M00S06070.ddf     +++|          AOD    AB+4
06138  M00S06071.ddf     +++|          LDD    AB+1
06139  M00S06072.ddf     +++|          NJN    REC12       IF TRACK ALREADY LINKED
06140  M00S06073.ddf     +++|          RJM    RSB         READ SECTOR TO BUFFER
06141  M00S06074.ddf     +++|          MJP    REC13       IF ERROR
06142  M00S06075.ddf     +++|          LDM    BFMS        CHECK FOR BEGINNING OF ANOTHER FILE
06143  M00S06076.ddf     +++|          SHN    6
06144  M00S06077.ddf     +++|          ADM    BFMS+1
06145  M00S06078.ddf     +++|          LMC    377777
06146  M00S06079.ddf     +++|          ZJN    REC12       IF SYSTEM SECTOR
06147  M00S06080.ddf     +++|          LDD    FN          SET REVERSE LINKS
06148  M00S06081.ddf     +++|          STD    AB+1
06149  M00S06082.ddf     +++|          LDD    FN+1
06150  M00S06083.ddf     +++|          STD    AB+2
06151  M00S06084.ddf     +++|          LDD    TK
06152  M00S06085.ddf     +++|          STD    FN+1
06153  M00S06086.ddf     +++|          LJM    REC5        LOOP
06154  M00S06087.ddf     +++|
06155  M00S06088.ddf     +++|*         TRACK TO BE LINKED IS ALREADY IN USE.
06156  M00S06089.ddf     +++|
06157  M00S06090.ddf     +++| REC12    LDC    RECD        *NEXT TRACK IN USE.*
06158  M00S06091.ddf     +++|          UJN    REC14       PROCESS ERROR
06159  M00S06092.ddf     +++|
06160  M00S06093.ddf     +++|*         PROCESS READ ERROR IN TRACK.
06161  M00S06094.ddf     +++|
06162  M00S06095.ddf     +++| REC13    LDD    AB          SET ERROR STATUS
06163  M00S06096.ddf     +++|          SCN    40
06164  M00S06097.ddf     +++|          LMN    40
06165  M00S06098.ddf     +++|          STD    AB
06166  M00S06099.ddf     +++|          LDN    0
06167  M00S06100.ddf     +++|
06168  M00S06101.ddf     +++|*         TERMINATE PROCESSING.
06169  M00S06102.ddf     +++|
06170  M00S06103.ddf     +++| REC14    STD    T3          SAVE MESSAGE ADDRESS
06171  M00S06104.ddf     +++|          LDD    SC          SAVE CURRENT SECTOR
06172  M00S06105.ddf     +++|          STD    FN+2
06173  M00S06106.ddf     +++|          RJM    /LRR/SRP    SAVE RECOVERY POINTERS
06174  M00S06107.ddf     +++|          RJM    /LRR/RDM    RESUME DISPLAY MODE
06175  M00S06108.ddf     +++|          LDD    T3
06176  M00S06109.ddf     +++|          LJM    ERR         REPORT ERROR
06177  M00S06110.ddf     +++|
06178  M00S06111.ddf     +++|
06179  M00S06112.ddf     +++| RECB     DATA   Z*END OF EQUIPMENT.*
06180  M00S06113.ddf     +++| RECC     DATA   Z*SYSTEM SECTOR IN TRACK.*
06181  M00S06114.ddf     +++| RECD     DATA   Z*NEXT TRACK IN USE.*
06182  M00S06115.ddf     +++| SRW      SPACE  4,10
06183  M00S06116.ddf     +++|***       SETRW.B.NNNN.
06184  M00S06117.ddf     +++|*         CHANGE BYTE *B* OF CURRENT TRACK RECOVERY WORD TO *NNNN*.
06185  M00S06118.ddf     +++|
06186  M00S06119.ddf     +++|
06187  M00S06120.ddf     +++| SRW      COMMAND
06188  M00S06121.ddf     +++|          LDD    RT
06189  M00S06122.ddf     +++|          NJN    SRW1        IF TABLES ALLOCATED
06190  M00S06123.ddf     +++|          LJM    ERR4        *INCORRECT ENTRY.*
06191  M00S06124.ddf     +++|
06192  M00S06125.ddf     +++| SRW1     LDN    DFBN        SET DEFAULT DISPLAY AND LOAD SUBROUTINES
06193  M00S06126.ddf     +++|          STD    RS
06194  M00S06127.ddf     +++|          LDN    LRRN        OVERLAY CONTROL WORD INDEX
06195  M00S06128.ddf     +++|          RJM    LDO         LOAD OVERLAY
06196  M00S06129.ddf     +++|          RJM    /LRR/STA    SET TABLE ADDRESS
06197  M00S06130.ddf     +++|          CRD    CM          READ TRACK RECOVERY WORD
06198  M00S06131.ddf     +++|          RJM    ASD         GET BYTE NUMBER
06199  M00S06132.ddf     +++|          LDD    AB+4
06200  M00S06133.ddf     +++|          STD    RC
06201  M00S06134.ddf     +++|          SBN    5
06202  M00S06135.ddf     +++|          PJN    SRW2        IF OUT OF RANGE
06203  M00S06136.ddf     +++|          AOD    CA          ADVANCE CHARACTER ADDRESS
06204  M00S06137.ddf     +++|          RJM    ASD         ASSEMBLE NEW VALUE
06205  M00S06138.ddf     +++|          LDD    AB+4
06206  M00S06139.ddf     +++|          STM    CM,RC
06207  M00S06140.ddf     +++|          RJM    /LRR/STA    SET TABLE ADDRESS
06208  M00S06141.ddf     +++|          CWD    CM          SAVE TRACK RECOVERY WORD
06209  M00S06142.ddf     +++|          LJM    RET         RETURN
06210  M00S06143.ddf     +++|
06211  M00S06144.ddf     +++| SRW2     LJM    ERR2        *INCORRECT PARAMETER.*
06212  M00S06145.ddf     +++| STP      SPACE  4,10
06213  M00S06146.ddf     +++|***       SETTP.NNNN.
06214  M00S06147.ddf     +++|*         SETS RECOVERY TRACK POINTER FOR *RECOVER.*, *NEXTAT.*,
06215  M00S06148.ddf     +++|*         *NEXTSS.*, AND *SETRW.*  COMMANDS TO *NNNN*.
06216  M00S06149.ddf     +++|
06217  M00S06150.ddf     +++|
06218  M00S06151.ddf     +++| STP      COMMAND
06219  M00S06152.ddf     +++|          LDD    RT
06220  M00S06153.ddf     +++|          NJN    STP1        IF TABLES ALLOCATED
06221  M00S06154.ddf     +++|          LJM    ERR4        *INCORRECT ENTRY.*
06222  M00S06155.ddf     +++|
06223  M00S06156.ddf     +++| STP1     ADD    RA          READ POINTER WORD
06224  M00S06157.ddf     +++|          SHN    6
06225  M00S06158.ddf     +++|          ADN    RCPW
06226  M00S06159.ddf     +++|          CRD    CM
06227  M00S06160.ddf     +++|          RJM    ASD         ASSEMBLE VALUE
06228  M00S06161.ddf     +++|          LDD    AB+4
06229  M00S06162.ddf     +++|          LPC    3777
06230  M00S06163.ddf     +++|          LMC    4000
06231  M00S06164.ddf     +++|          STD    CM
06232  M00S06165.ddf     +++|          STD    TK
06233  M00S06166.ddf     +++|          LDD    RA          SAVE UPDATED POINTER WORD
06234  M00S06167.ddf     +++|          ADD    RT
06235  M00S06168.ddf     +++|          SHN    6
06236  M00S06169.ddf     +++|          ADN    RCPW
06237  M00S06170.ddf     +++|          CWD    CM
06238  M00S06171.ddf     +++|          LDN    0
06239  M00S06172.ddf     +++|          STD    SC
06240  M00S06173.ddf     +++|          RJM    RSB         READ SECTOR TO BUFFER
06241  M00S06174.ddf     +++|          LJM    RET         RETURN
06242  M00S06175.ddf     +++|          SPACE  4,10
06243  M00S06176.ddf     +++|          COMMAND            TERMINATE COMMANDS
06244  M00S06177.ddf     +++| LRR      SPACE  4,10
06245  M00S06178.ddf     +++|**        LRR - LABEL/TRT RECONSTRUCTION SUBROUTINES.
06246  M00S06179.ddf     +++|*
06247  M00S06180.ddf     +++|*         THE FOLLOWING ROUTINES ARE SAVED IN CENTRAL TO BE LOADED
06248  M00S06181.ddf     +++|*         AT THE END OF THE RIGHT SCREEN PROCESSOR AREA AS NEEDED.
06249  M00S06182.ddf     +++|
06250  M00S06183.ddf     +++|
06251  M00S06184.ddf     +++| LRR      ACROVL ACRLA
06252  M00S06185.ddf     +++| CEI      SPACE  4,15
06253  M00S06186.ddf     +++|**        CEI - CHECK EOI SECTOR.
06254  M00S06187.ddf     +++|*
06255  M00S06188.ddf     +++|*         ENTRY  (AB - AB+4) = TRACK RECOVERY WORD.
06256  M00S06189.ddf     +++|*                (FN - FN+4) = RECOVERY POINTERS.
06257  M00S06190.ddf     +++|*
06258  M00S06191.ddf     +++|*         EXIT   (A) = 0  IF INDIRECT CHAIN.
06259  M00S06192.ddf     +++|*                RECOVERY POINTERS UPDATED.
06260  M00S06193.ddf     +++|*
06261  M00S06194.ddf     +++|*         USES   T1, CM - CM+4.
06262  M00S06195.ddf     +++|*
06263  M00S06196.ddf     +++|*         CALLS  STA.
06264  M00S06197.ddf     +++|
06265  M00S06198.ddf     +++|
06266  M00S06199.ddf     +++| CEI      SUBR               ENTRY/EXIT
06267  M00S06200.ddf     +++|          LDD    SC
06268  M00S06201.ddf     +++|          STD    AB+3
06269  M00S06202.ddf     +++|          AOD    AB          SET EOI STATUS
06270  M00S06203.ddf     +++|          LDD    SC
06271  M00S06204.ddf     +++|          LMN    LS
06272  M00S06205.ddf     +++|          ZJN    CEIX        IF AT END OF TRACK
06273  M00S06206.ddf     +++|          AOD    SC
06274  M00S06207.ddf     +++|          RJM    RSB         READ SECTOR TO BUFFER
06275  M00S06208.ddf     +++|          ZJN    CEI1        IF NO READ ERROR
06276  M00S06209.ddf     +++|          RJM    SRP         SAVE RECOVERY POINTERS
06277  M00S06210.ddf     +++|          RJM    /LRR/RDM    RESUME DISPLAY MODE
06278  M00S06211.ddf     +++|          LJM    RET         RETURN
06279  M00S06212.ddf     +++|
06280  M00S06213.ddf     +++| CEI1     LDN    2
06281  M00S06214.ddf     +++|          STD    T1
06282  M00S06215.ddf     +++|          SOD    SC
06283  M00S06216.ddf     +++|          LDM    BFMS
06284  M00S06217.ddf     +++|          ADM    BFMS+1
06285  M00S06218.ddf     +++|          NJN    CEI3        IF NOT ANOTHER EOI SECTOR
06286  M00S06219.ddf     +++| CEI2     LDM    BFMS+FNEI,T1  CHECK FOR FILENAME *IMS*
06287  M00S06220.ddf     +++|          LMM    CEIB,T1
06288  M00S06221.ddf     +++|          NJN    CEI3        IF NOT CATALOG/PERMIT/DATA TRACK
06289  M00S06222.ddf     +++|          SOD    T1
06290  M00S06223.ddf     +++|          PJN    CEI2        IF CHECK NOT COMPLETE
06291  M00S06224.ddf     +++|          AOD    AB          SET IMS EOI STATUS
06292  M00S06225.ddf     +++| CEI3     LDN    0           FORCE EOI STATUS FOR *SNS*
06293  M00S06226.ddf     +++|          STM    BFMS
06294  M00S06227.ddf     +++|          STM    BFMS+1
06295  M00S06228.ddf     +++|          LJM    CEIX        RETURN
06296  M00S06229.ddf     +++|
06297  M00S06230.ddf     +++|
06298  M00S06231.ddf     +++| CEIB     DATA   Z*IMS*
06299  M00S06232.ddf     +++| CSS      SPACE  4,15
06300  M00S06233.ddf     +++|**        CSS - CHECK SYSTEM SECTOR.
06301  M00S06234.ddf     +++|*
06302  M00S06235.ddf     +++|*         ENTRY  (AB - AB+4) = TRACK RECOVERY WORD.
06303  M00S06236.ddf     +++|*                (FN - FN+4) = RECOVERY POINTERS.
06304  M00S06237.ddf     +++|*
06305  M00S06238.ddf     +++|*         EXIT   (A) = 0  IF INDIRECT CHAIN.
06306  M00S06239.ddf     +++|*                RECOVERY POINTERS UPDATED.
06307  M00S06240.ddf     +++|*
06308  M00S06241.ddf     +++|*         USES   T1, CM - CM+4.
06309  M00S06242.ddf     +++|*
06310  M00S06243.ddf     +++|*         CALLS  STA, ERR.
06311  M00S06244.ddf     +++|
06312  M00S06245.ddf     +++|
06313  M00S06246.ddf     +++| CSS      SUBR               ENTRY/EXIT
06314  M00S06247.ddf     +++|          LDD    RA          READ MST RECOVERY AREA
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/ddf.002.txt ยท Last modified: by 127.0.0.1