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 
----------------------------+
04118  M01S04053.ddf     +++|          NJN    FPE8        IF UI SPECIFIED
04119  M01S04054.ddf     +++|          LDM    BFMS+2+FCUI,T1
04120  M01S04055.ddf     +++|          LPN    37
04121  M01S04056.ddf     +++|          ADM    BFMS+2+FCUI+1,T1
04122  M01S04057.ddf     +++|          NJN    FPE11       IF NON-ZERO, ASSUME MATCH
04123  M01S04058.ddf     +++| FPE7     UJN    FPE9        CONTINUE SEARCH
04124  M01S04059.ddf     +++|
04125  M01S04060.ddf     +++| FPE8     LDM    BFMS+2+FCUI,T1
04126  M01S04061.ddf     +++|          LMD    FN+3
04127  M01S04062.ddf     +++|          LPN    37
04128  M01S04063.ddf     +++|          NJN    FPE9        IF UI DOES NOT MATCH
04129  M01S04064.ddf     +++|          LDM    BFMS+2+FCUI+1,T1
04130  M01S04065.ddf     +++|          LMD    FN+4
04131  M01S04066.ddf     +++|          ZJN    FPE11       IF UI MATCHES
04132  M01S04067.ddf     +++|
04133  M01S04068.ddf     +++|*         ADVANCE TO NEXT CATALOG ENTRY.
04134  M01S04069.ddf     +++|
04135  M01S04070.ddf     +++| FPE9     AOD    T3          ADVANCE BUFFER INDEX
04136  M01S04071.ddf     +++|          SHN    NWCES
04137  M01S04072.ddf     +++|          STD    T1
04138  M01S04073.ddf     +++|          SBM    BFMS+1
04139  M01S04074.ddf     +++|          PJN    FPE10       IF END OF SECTOR
04140  M01S04075.ddf     +++|          LDD    T1
04141  M01S04076.ddf     +++|          SHN    2
04142  M01S04077.ddf     +++|          RAD    T1
04143  M01S04078.ddf     +++|          LJM    FPE4        LOOP
04144  M01S04079.ddf     +++|
04145  M01S04080.ddf     +++| FPE10    RJM    SNS         SET NEXT SECTOR
04146  M01S04081.ddf     +++|          RJM    RSB         READ SECTOR
04147  M01S04082.ddf     +++|          MJN    FPE12       IF ERROR
04148  M01S04083.ddf     +++|          RJM    RCPA        RETURN TO MAIN LOOP
04149  M01S04084.ddf     +++|          LJM    FPE2        LOOP
04150  M01S04085.ddf     +++|
04151  M01S04086.ddf     +++|*         DISPLAY PFC ENTRY.
04152  M01S04087.ddf     +++|
04153  M01S04088.ddf     +++| FPE11    LDN    DFDN        SET DISPLAY
04154  M01S04089.ddf     +++|          STD    RS
04155  M01S04090.ddf     +++|          RJM    LDO         LOAD OVERLAY
04156  M01S04091.ddf     +++|          LDD    T3
04157  M01S04092.ddf     +++|          STM    DRSA+4
04158  M01S04093.ddf     +++| FPE12    LJM    RET         RETURN
04159  M01S04094.ddf     +++| FIS      SPACE  4,10
04160  M01S04095.ddf     +++|***       FINDISS.NNNNNN.
04161  M01S04096.ddf     +++|*         STARTING AT THE CURRENT POSITION, SEARCH FOR THE NEXT SYSTEM
04162  M01S04097.ddf     +++|*         SECTOR WITH USER INDEX NNNNNN ON THE CHAIN.  IF NNNNNN IS
04163  M01S04098.ddf     +++|*         NOT SPECIFIED THE USER INDEX IS NOT CHECKED AND THE NEXT
04164  M01S04099.ddf     +++|*         SYSTEM SECTOR IS DISPLAYED.  THIS COMMAND IS INTENDED TO BE
04165  M01S04100.ddf     +++|*         USED ON THE INDIRECT ACCESS PERMANENT FILE CHAIN.
04166  M01S04101.ddf     +++|
04167  M01S04102.ddf     +++|
04168  M01S04103.ddf     +++| FIS      COMMAND
04169  M01S04104.ddf     +++|          LDI    CA
04170  M01S04105.ddf     +++|          ZJN    FIS1        IF NO USER INDEX SPECIFIED
04171  M01S04106.ddf     +++|          RJM    ASD         ASSEMBLE USER INDEX
04172  M01S04107.ddf     +++|          LDD    AB+3
04173  M01S04108.ddf     +++|          STD    FN+3
04174  M01S04109.ddf     +++|          LDD    AB+4
04175  M01S04110.ddf     +++|          STD    FN+4
04176  M01S04111.ddf     +++| FIS1     RJM    SNS         ADVANCE TO NEXT SECTOR
04177  M01S04112.ddf     +++|          NJN    FIS3        IF NOT EOI
04178  M01S04113.ddf     +++|          RJM    SNT         GET NEXT TRACK
04179  M01S04114.ddf     +++|          STD    T1
04180  M01S04115.ddf     +++|          SHN    6
04181  M01S04116.ddf     +++|          MJN    FIS2        IF NOT EOI TRACK
04182  M01S04117.ddf     +++|          SHN    -6
04183  M01S04118.ddf     +++|          LMD    SC
04184  M01S04119.ddf     +++|          NJN    FIS2        IF NOT AT EOI INDICATED IN TRT
04185  M01S04120.ddf     +++|          LJM    ERR3        *NOT FOUND.*
04186  M01S04121.ddf     +++|
04187  M01S04122.ddf     +++| FIS2     AOD    SC
04188  M01S04123.ddf     +++|          SBD    LS
04189  M01S04124.ddf     +++|          SBN    1
04190  M01S04125.ddf     +++|          NJN    FIS3        IF NOT END OF TRACK
04191  M01S04126.ddf     +++|          STD    SC
04192  M01S04127.ddf     +++|          LDD    T1
04193  M01S04128.ddf     +++|          STD    TK
04194  M01S04129.ddf     +++| FIS3     RJM    RSB         READ SECTOR
04195  M01S04130.ddf     +++|          MJN    FIS5        IF ERROR
04196  M01S04131.ddf     +++|          LDM    BFMS
04197  M01S04132.ddf     +++|          SHN    6
04198  M01S04133.ddf     +++|          ADM    BFMS+1
04199  M01S04134.ddf     +++|          LMC    377777
04200  M01S04135.ddf     +++|          NJN    FIS4        IF NOT SYSTEM SECTOR
04201  M01S04136.ddf     +++|          LDI    CA
04202  M01S04137.ddf     +++|          ZJN    FIS5        IF NO UI SPECIFIED
04203  M01S04138.ddf     +++|          LDM    CTSS+3
04204  M01S04139.ddf     +++|          LMD    FN+3
04205  M01S04140.ddf     +++|          LPN    37
04206  M01S04141.ddf     +++|          NJN    FIS4        IF UI DOES NOT MATCH
04207  M01S04142.ddf     +++|          LDM    CTSS+4
04208  M01S04143.ddf     +++|          LMD    FN+4
04209  M01S04144.ddf     +++|          ZJN    FIS5        IF UI MATCHES
04210  M01S04145.ddf     +++| FIS4     RJM    RCPA        RETURN TO MAIN LOOP
04211  M01S04146.ddf     +++|          LJM    FIS1        LOOP
04212  M01S04147.ddf     +++|
04213  M01S04148.ddf     +++| FIS5     LJM    RET         RETURN
04214  M01S04149.ddf     +++| FOV      SPACE  4,10
04215  M01S04150.ddf     +++|***       FINDO.NNNN NNNN NNNN NNNN NNNN.
04216  M01S04151.ddf     +++|*         SEARCH FROM THE CURRENT POSITION FOR THE OCTAL NUMBER
04217  M01S04152.ddf     +++|*         SPECIFIED.  THE NUMBER CAN BE 1 TO 20 DIGITS AND IS RIGHT
04218  M01S04153.ddf     +++|*         JUSTIFIED IN AS MANY BYTES AS ARE NECESSARY TO HOLD THE
04219  M01S04154.ddf     +++|*         NUMBER.  THE SEARCH STARTS ON A BYTE BOUNDARY AND THE BYTE
04220  M01S04155.ddf     +++|*         NUMBER IS DISPLAYED IF THE SEARCH IS SUCCESSFUL.  IF THE
04221  M01S04156.ddf     +++|*         FIRST PART OF THE NUMBER IS FOUND AT THE END OF THE BUFFER,
04222  M01S04157.ddf     +++|*         THE SEARCH IS TERMINATED EVEN THOUGH THE ENTIRE NUMBER
04223  M01S04158.ddf     +++|*         WAS NOT FOUND.  IF THE CARRIAGE RETURN IS ENTERED AGAIN,
04224  M01S04159.ddf     +++|*         THE SEARCH CONTINUES AT THE CURRENT MATCH.
04225  M01S04160.ddf     +++|
04226  M01S04161.ddf     +++|
04227  M01S04162.ddf     +++| FOV      COMMAND
04228  M01S04163.ddf     +++|          LDD    CA          SAVE CHARACTER ADDRESS
04229  M01S04164.ddf     +++|          STD    FN+4
04230  M01S04165.ddf     +++|          LDN    0
04231  M01S04166.ddf     +++|          STD    T1
04232  M01S04167.ddf     +++| FOV1     AOD    CA          FIND SIZE OF NUMBER
04233  M01S04168.ddf     +++|          LDI    CA
04234  M01S04169.ddf     +++|          ZJN    FOV2        IF END OF STRING
04235  M01S04170.ddf     +++|          LMN    1R
04236  M01S04171.ddf     +++|          NJN    FOV1        IF NOT BLANK CHARACTER
04237  M01S04172.ddf     +++|          AOD    T1          COUNT BLANKS
04238  M01S04173.ddf     +++|          UJN    FOV1        CHECK NEXT CHARACTER
04239  M01S04174.ddf     +++|
04240  M01S04175.ddf     +++| FOV2     SOD    CA          SET BYTE COUNT
04241  M01S04176.ddf     +++|          SBD    FN+4
04242  M01S04177.ddf     +++|          SBD    T1
04243  M01S04178.ddf     +++|          ADN    3
04244  M01S04179.ddf     +++|          SHN    -2
04245  M01S04180.ddf     +++|          STD    FN+3
04246  M01S04181.ddf     +++| FOV3     LDD    FN+4        CONVERT NUMBER
04247  M01S04182.ddf     +++|          STD    CA
04248  M01S04183.ddf     +++|          RJM    ASD         ASSEMBLE DIGITS
04249  M01S04184.ddf     +++|          LDD    KM          CHECK KEYBOARD MESSAGE
04250  M01S04185.ddf     +++|          LMC    SBNA
04251  M01S04186.ddf     +++|          NJN    FOV4        IF NOT MESSAGE FROM FINDO
04252  M01S04187.ddf     +++|          STD    KM
04253  M01S04188.ddf     +++|          LJM    FOV9        CONTINUE SEARCH
04254  M01S04189.ddf     +++|
04255  M01S04190.ddf     +++| FOV4     LDM    BFMS
04256  M01S04191.ddf     +++|          ZJN    FOV5        IF EOF
04257  M01S04192.ddf     +++|          LDM    BFMS+1
04258  M01S04193.ddf     +++| FOV5     ZJN    FOV10       IF ZERO LENGTH SECTOR
04259  M01S04194.ddf     +++|          SHN    2           SET BYTE COUNT
04260  M01S04195.ddf     +++|          ADM    BFMS+1
04261  M01S04196.ddf     +++|          ADN    2
04262  M01S04197.ddf     +++|          STD    FN+2
04263  M01S04198.ddf     +++|          LDN    2           SET STARTING POSITION
04264  M01S04199.ddf     +++|          STD    FN
04265  M01S04200.ddf     +++|          STD    FN+1
04266  M01S04201.ddf     +++| FOV6     LDN    5           SET BEGINNING OF SEARCH
04267  M01S04202.ddf     +++|          SBD    FN+3
04268  M01S04203.ddf     +++|          STD    T3
04269  M01S04204.ddf     +++| FOV7     LDM    BFMS,FN+1   COMPARE BYTES
04270  M01S04205.ddf     +++|          LMM    AB,T3
04271  M01S04206.ddf     +++|          NJN    FOV9        IF NOT A MATCH
04272  M01S04207.ddf     +++|          AOD    T3
04273  M01S04208.ddf     +++|          LMN    5
04274  M01S04209.ddf     +++|          ZJN    FOV8        IF SEARCH COMPLETE
04275  M01S04210.ddf     +++|          AOD    FN+1
04276  M01S04211.ddf     +++|          LMD    FN+2
04277  M01S04212.ddf     +++|          NJN    FOV7        IF NOT END OF SECTOR
04278  M01S04213.ddf     +++| FOV8     LJM    SBN         DISPLAY BYTE NUMBER
04279  M01S04214.ddf     +++|
04280  M01S04215.ddf     +++| FOV9     AOD    FN
04281  M01S04216.ddf     +++|          STD    FN+1
04282  M01S04217.ddf     +++|          LMD    FN+2
04283  M01S04218.ddf     +++|          NJN    FOV6        IF NOT END OF SECTOR
04284  M01S04219.ddf     +++| FOV10    RJM    RCPA        RETURN TO MAIN LOOP
04285  M01S04220.ddf     +++|          RJM    SNS         READ NEXT SECTOR
04286  M01S04221.ddf     +++|          ZJN    FOV11       IF EOI
04287  M01S04222.ddf     +++|          RJM    RSB         READ SECTOR
04288  M01S04223.ddf     +++|          MJN    FOV12       IF ERROR
04289  M01S04224.ddf     +++|          LJM    FOV3        LOOP
04290  M01S04225.ddf     +++|
04291  M01S04226.ddf     +++| FOV11    LJM    ERR3        *NOT FOUND.*
04292  M01S04227.ddf     +++|
04293  M01S04228.ddf     +++| FOV12    LJM    RET         RETURN
04294  M01S04229.ddf     +++| FST      SPACE  4,10
04295  M01S04230.ddf     +++|***       FINDS.CCCCCCC
04296  M01S04231.ddf     +++|*         SEARCH FROM THE CURRENT POSITION FOR THE STRING OF CHARACTERS
04297  M01S04232.ddf     +++|*         CCCCCCC.  IF THE FIRST PART OF THE STRING MATCHES THE
04298  M01S04233.ddf     +++|*         END OF THE BUFFER, THE SEARCH IS TERMINATED EVEN THOUGH THE
04299  M01S04234.ddf     +++|*         ENTIRE STRING WAS NOT FOUND.  THE BYTE NUMBER OF THE BEGIN-
04300  M01S04235.ddf     +++|*         ING OF THE STRING IS DISPLAYED.  IF THE CARRIAGE RETURN IS
04301  M01S04236.ddf     +++|*         ENTERED, THE SEARCH IS BEGUN AGAIN AT THAT POINT.
04302  M01S04237.ddf     +++|
04303  M01S04238.ddf     +++|
04304  M01S04239.ddf     +++| FST      COMMAND
04305  M01S04240.ddf     +++|          LDI    CA
04306  M01S04241.ddf     +++|          NJN    FST1        IF CHARACTER STRING ENTERED
04307  M01S04242.ddf     +++|          LJM    ERR2        *INCORRECT PARAMETER.*
04308  M01S04243.ddf     +++|
04309  M01S04244.ddf     +++| FST1     LDD    KM          CHECK KEYBOARD MESSAGE
04310  M01S04245.ddf     +++|          LMC    SBNA
04311  M01S04246.ddf     +++|          NJN    FST2        IF NOT MESSAGE FROM FINDS
04312  M01S04247.ddf     +++|          STD    KM
04313  M01S04248.ddf     +++|          LDN    1
04314  M01S04249.ddf     +++|          STD    T2
04315  M01S04250.ddf     +++|          LJM    FST9        CONTINUE SEARCH AT NEXT BYTE
04316  M01S04251.ddf     +++|
04317  M01S04252.ddf     +++| FST2     LDM    BFMS
04318  M01S04253.ddf     +++|          ZJN    FST3        IF EOF
04319  M01S04254.ddf     +++|          LDM    BFMS+1
04320  M01S04255.ddf     +++|          NJN    FST4        IF NOT ZERO LENGTH SECTOR
04321  M01S04256.ddf     +++| FST3     LJM    FST10       ADVANCE TO NEXT SECTOR
04322  M01S04257.ddf     +++|
04323  M01S04258.ddf     +++| FST4     SHN    2           SET BYTE COUNT
04324  M01S04259.ddf     +++|          ADM    BFMS+1
04325  M01S04260.ddf     +++|          ADN    2
04326  M01S04261.ddf     +++|          STD    FN+2
04327  M01S04262.ddf     +++|          LDN    2           SET STARTING BYTE NUMBER
04328  M01S04263.ddf     +++|          STD    FN
04329  M01S04264.ddf     +++|          STD    FN+1
04330  M01S04265.ddf     +++|          LDD    CA          SET BEGINNING OF STRING
04331  M01S04266.ddf     +++|          STD    T3
04332  M01S04267.ddf     +++| FST5     LDN    2           SET FIRST/SECOND HALF OF BYTE FLAG
04333  M01S04268.ddf     +++|          STD    T2
04334  M01S04269.ddf     +++| FST6     LDM    BFMS,FN+1   CHECK FIRST CHARACTER OF BYTE
04335  M01S04270.ddf     +++|          SHN    -6
04336  M01S04271.ddf     +++|          LMI    T3
04337  M01S04272.ddf     +++|          NJN    FST9        IF CHARACTERS DONT MATCH
04338  M01S04273.ddf     +++|          AOD    T3
04339  M01S04274.ddf     +++| FST7     LDI    T3          CHECK SECOND CHARACTER OF BYTE
04340  M01S04275.ddf     +++|          ZJN    FST8        IF SEARCH COMPLETE
04341  M01S04276.ddf     +++|          LMM    BFMS,FN+1
04342  M01S04277.ddf     +++|          LPN    77
04343  M01S04278.ddf     +++|          NJN    FST9        IF CHARACTERS DONT MATCH
04344  M01S04279.ddf     +++|          AOD    T3
04345  M01S04280.ddf     +++|          LDI    T3
04346  M01S04281.ddf     +++|          ZJN    FST8        IF SEARCH COMPLETE
04347  M01S04282.ddf     +++|          AOD    FN+1        ADVANCE TO NEXT 2 CHARACTERS
04348  M01S04283.ddf     +++|          LMD    FN+2
04349  M01S04284.ddf     +++|          NJN    FST6        IF NOT END OF SECTOR
04350  M01S04285.ddf     +++| FST8     LJM    SBN         DISPLAY BYTE NUMBER
04351  M01S04286.ddf     +++|
04352  M01S04287.ddf     +++| FST9     LDD    CA          RESET POINTERS
04353  M01S04288.ddf     +++|          STD    T3
04354  M01S04289.ddf     +++|          LDD    FN
04355  M01S04290.ddf     +++|          STD    FN+1
04356  M01S04291.ddf     +++|          SOD    T2
04357  M01S04292.ddf     +++|          NJN    FST7        IF STARTED WITH FIRST CHARACTER OF BYTE
04358  M01S04293.ddf     +++|          AOD    FN          ADVANCE SEARCH TO START WITH NEXT BYTE
04359  M01S04294.ddf     +++|          STD    FN+1
04360  M01S04295.ddf     +++|          LMD    FN+2
04361  M01S04296.ddf     +++|          NJN    FST5        IF NOT END OF SECTOR
04362  M01S04297.ddf     +++| FST10    RJM    RCPA        RETURN TO MAIN LOOP
04363  M01S04298.ddf     +++|          RJM    SNS         SET NEXT SECTOR
04364  M01S04299.ddf     +++|          ZJN    FST11       IF EOI
04365  M01S04300.ddf     +++|          RJM    RSB         READ SECTOR
04366  M01S04301.ddf     +++|          MJN    FST12       IF ERROR
04367  M01S04302.ddf     +++|          LJM    FST2        SEARCH NEW SECTOR
04368  M01S04303.ddf     +++|
04369  M01S04304.ddf     +++| FST11    LJM    ERR3        *NOT FOUND.*
04370  M01S04305.ddf     +++|
04371  M01S04306.ddf     +++| FST12    LJM    RET         RETURN
04372  M01S04307.ddf     +++| FSS      SPACE  4,10
04373  M01S04308.ddf     +++|***       FINDSS.NNNNNN.
04374  M01S04309.ddf     +++|*         STARTING FROM THE CURRENT TRACK AND SEARCHING TO THE END
04375  M01S04310.ddf     +++|*         OF THE TRT, FIND AND DISPLAY THE NEXT SYSTEM SECTOR WITH
04376  M01S04311.ddf     +++|*         USER INDEX NNNNNN.  IF NNNNNN IS NOT SPECIFIED, THE USER
04377  M01S04312.ddf     +++|*         INDEX IS NOT CHECKED.
04378  M01S04313.ddf     +++|
04379  M01S04314.ddf     +++|
04380  M01S04315.ddf     +++| FSS      COMMAND
04381  M01S04316.ddf     +++|          LDN    0
04382  M01S04317.ddf     +++|          STD    SC
04383  M01S04318.ddf     +++|          LDI    CA
04384  M01S04319.ddf     +++|          ZJN    FSS1        IF UI NOT ENTERED
04385  M01S04320.ddf     +++|          RJM    ASD         ASSEMBLE USER INDEX
04386  M01S04321.ddf     +++|          LDD    AB+3
04387  M01S04322.ddf     +++|          STD    FN+3
04388  M01S04323.ddf     +++|          LDD    AB+4
04389  M01S04324.ddf     +++|          STD    FN+4
04390  M01S04325.ddf     +++| FSS1     AOD    TK          ADVANCE TO NEXT TRACK
04391  M01S04326.ddf     +++|          LMD    LT
04392  M01S04327.ddf     +++|          NJN    FSS2        IF NOT END OF TRT
04393  M01S04328.ddf     +++|          SOD    TK
04394  M01S04329.ddf     +++|          LJM    ERR3        *NOT FOUND.*
04395  M01S04330.ddf     +++|
04396  M01S04331.ddf     +++| FSS2     RJM    SNT         CHECK FOR FLAWED TRACK
04397  M01S04332.ddf     +++|          LMC    3777
04398  M01S04333.ddf     +++|          ZJN    FSS1        IF FLAWED TRACK
04399  M01S04334.ddf     +++|          RJM    RSB         READ SECTOR
04400  M01S04335.ddf     +++|          MJN    FSS4        IF ERROR
04401  M01S04336.ddf     +++|          LDM    BFMS
04402  M01S04337.ddf     +++|          SHN    6
04403  M01S04338.ddf     +++|          ADM    BFMS+1
04404  M01S04339.ddf     +++|          LMC    377777
04405  M01S04340.ddf     +++|          NJN    FSS3        IF NOT SYSTEM SECTOR
04406  M01S04341.ddf     +++|          LDI    CA
04407  M01S04342.ddf     +++|          ZJN    FSS4        IF NO UI SPECIFIED
04408  M01S04343.ddf     +++|          LDM    FNSS+4      CHECK FILE TYPE
04409  M01S04344.ddf     +++|          SHN    -6
04410  M01S04345.ddf     +++|          LMN    PMFT
04411  M01S04346.ddf     +++|          NJN    FSS3        IF NOT PERMANENT FILE SYSTEM SECTOR
04412  M01S04347.ddf     +++|          LDM    CTSS+3
04413  M01S04348.ddf     +++|          LMD    FN+3
04414  M01S04349.ddf     +++|          LPN    37
04415  M01S04350.ddf     +++|          NJN    FSS3        IF UI DOES NOT MATCH
04416  M01S04351.ddf     +++|          LDM    CTSS+4
04417  M01S04352.ddf     +++|          LMD    FN+4
04418  M01S04353.ddf     +++|          ZJN    FSS4        IF UI MATCHES
04419  M01S04354.ddf     +++| FSS3     RJM    RCPA        RETURN TO MAIN LOOP
04420  M01S04355.ddf     +++|          LJM    FSS1        LOOP
04421  M01S04356.ddf     +++|
04422  M01S04357.ddf     +++| FSS4     LJM    RET         RETURN
04423  M01S04358.ddf     +++| EFB      SPACE  4,10
04424  M01S04359.ddf     +++|***       FNT.NNNN.
04425  M01S04360.ddf     +++|*         ENTER DISK ADDRESS FROM GLOBAL FNT ORDINAL NNNN.
04426  M01S04361.ddf     +++|*         (0 .LE. NNNN .LE. LARGEST FNT ORDINAL.)  THE EQUIPMENT,
04427  M01S04362.ddf     +++|*         TRACK, AND SECTOR ARE SET TO THE BEGINNING OF THE FILE.
04428  M01S04363.ddf     +++|*         *INCORRECT PARAMETER.* IS DISPLAYED IF THE FNT ENTRY IS NOT
04429  M01S04364.ddf     +++|*         USED OR THE FILE DOES NOT HAVE ANY TRACKS ASSIGNED.
04430  M01S04365.ddf     +++|
04431  M01S04366.ddf     +++|
04432  M01S04367.ddf     +++| EFB      COMMAND
04433  M01S04368.ddf     +++|          LDN    TARN
04434  M01S04369.ddf     +++|          RJM    LDO         LOAD OVERLAY
04435  M01S04370.ddf     +++|          LDN    PFNT
04436  M01S04371.ddf     +++|          RJM    /TAR/RFE    READ FST ENTRY
04437  M01S04372.ddf     +++|          LDD    FN+1
04438  M01S04373.ddf     +++|          ZJP    ERR2        IF TRACK NOT ASSIGNED
04439  M01S04374.ddf     +++|          STD    TK          TRACK
04440  M01S04375.ddf     +++|          LDN    0
04441  M01S04376.ddf     +++|          STD    SC          SECTOR
04442  M01S04377.ddf     +++|          LJM    IMS         INITIALIZE MASS STORAGE
04443  M01S04378.ddf     +++| EFL      SPACE  4,10
04444  M01S04379.ddf     +++|***       FNTL.NNNN.
04445  M01S04380.ddf     +++|*         ENTER DISK ADDRESS FROM LOCAL FNT ORDINAL NNNN.
04446  M01S04381.ddf     +++|*         (0 .LE. NNNN .LE. LARGEST FNT ORDINAL.)  THE EQUIPMENT,
04447  M01S04382.ddf     +++|*         TRACK, AND SECTOR ARE SET TO THE BEGINNING OF THE FILE.
04448  M01S04383.ddf     +++|*         *INCORRECT PARAMETER.* IS DISPLAYED IF THE FNT ENTRY IS NOT
04449  M01S04384.ddf     +++|*         USED OR THE FILE DOES NOT HAVE ANY TRACKS ASSIGNED.
04450  M01S04385.ddf     +++|
04451  M01S04386.ddf     +++|
04452  M01S04387.ddf     +++| EFL      COMMAND
04453  M01S04388.ddf     +++|          LDN    TARN
04454  M01S04389.ddf     +++|          RJM    LDO         LOAD OVERLAY
04455  M01S04390.ddf     +++|          LDN    PNFL
04456  M01S04391.ddf     +++|          RJM    /TAR/RFE    READ FST ENTRY
04457  M01S04392.ddf     +++|          LDD    FN+1
04458  M01S04393.ddf     +++|          ZJP    ERR2        IF TRACK NOT ASSIGNED
04459  M01S04394.ddf     +++|          STD    TK
04460  M01S04395.ddf     +++|          LDN    0           CLEAR SECTOR
04461  M01S04396.ddf     +++|          STD    SC
04462  M01S04397.ddf     +++|          LJM    IMS         INITIALIZE MASS STORAGE
04463  M01S04398.ddf     +++| EFC      SPACE  4,10
04464  M01S04399.ddf     +++|***       FNTLC.NNNN.
04465  M01S04400.ddf     +++|*         ENTER DISK ADDRESS FROM LOCAL FNT ORDINAL NNNN.
04466  M01S04401.ddf     +++|*         (0 .LE. NNNN .LE. LARGEST FNT ORDINAL.)  THE EQUIPMENT,
04467  M01S04402.ddf     +++|*         TRACK, AND SECTOR ARE SET TO THE CURRENT POSITION OF THE
04468  M01S04403.ddf     +++|*         FILE.  *INCORRECT PARAMETER.* IS DISPLAYED IF THE FNT ENTRY
04469  M01S04404.ddf     +++|*         IS NOT USED OR THE FILE DOES NOT HAVE ANY TRACKS ASSIGNED.
04470  M01S04405.ddf     +++|
04471  M01S04406.ddf     +++|
04472  M01S04407.ddf     +++| EFC      COMMAND
04473  M01S04408.ddf     +++|          LDN    TARN
04474  M01S04409.ddf     +++|          RJM    LDO         LOAD OVERLAY
04475  M01S04410.ddf     +++|          LDN    PNFL
04476  M01S04411.ddf     +++|          RJM    /TAR/RFE    READ FST ENTRY
04477  M01S04412.ddf     +++|          LDD    T3          CHECK FILE TYPE
04478  M01S04413.ddf     +++|          CRD    CM
04479  M01S04414.ddf     +++|          LDD    FN+2        SET TRACK
04480  M01S04415.ddf     +++|          ZJN    EFC2        IF NO CURRENT TRACK
04481  M01S04416.ddf     +++|          STD    TK
04482  M01S04417.ddf     +++|          LDD    FN+3        SET SECTOR
04483  M01S04418.ddf     +++|          STD    SC
04484  M01S04419.ddf     +++|          UJN    EFC3        INITIALIZE MASS STORAGE
04485  M01S04420.ddf     +++|
04486  M01S04421.ddf     +++| EFC2     STD    SC          SET SECTOR
04487  M01S04422.ddf     +++|          LDD    FN+1        SET TRACK
04488  M01S04423.ddf     +++|          STD    TK
04489  M01S04424.ddf     +++| EFC3     LJM    IMS         INITIALIZE MASS STORAGE
04490  M01S04425.ddf     +++| GTT      SPACE  4,10
04491  M01S04426.ddf     +++|***       GETTRT.NNNN.
04492  M01S04427.ddf     +++|*         THIS COMMAND IS INTENDED TO BE USED ON THE LABEL TRACK.  THE
04493  M01S04428.ddf     +++|*         EQUIPMENT AND TRACK MUST BE SET FOR THE LABEL TRACK BEFORE
04494  M01S04429.ddf     +++|*         THE COMMAND IS USED.  GETTRT READS THE SECTOR THAT CONTAINS
04495  M01S04430.ddf     +++|*         THE CHECKPOINTED TRT INFORMATION FOR TRACK NNNN AND DISPLAYS
04496  M01S04431.ddf     +++|*         THE BYTE NUMBER WITHIN THE SECTOR FOR THAT TRACK.
04497  M01S04432.ddf     +++|
04498  M01S04433.ddf     +++|
04499  M01S04434.ddf     +++| GTT      COMMAND
04500  M01S04435.ddf     +++|          RJM    ASD         GET TRACK NUMBER
04501  M01S04436.ddf     +++|          LDD    AB+4        GET BYTE NUMBER WITHIN CM WORD
04502  M01S04437.ddf     +++|          LPC    3777
04503  M01S04438.ddf     +++|          STD    AB+4
04504  M01S04439.ddf     +++|          LPN    3
04505  M01S04440.ddf     +++|          STD    AB+3
04506  M01S04441.ddf     +++|          LDD    AB+4        GET CM WORD NUMBER
04507  M01S04442.ddf     +++|          SHN    -2
04508  M01S04443.ddf     +++|          STD    AB+2
04509  M01S04444.ddf     +++|          SHN    -6          SET SECTOR NUMBER
04510  M01S04445.ddf     +++|          STD    SC
04511  M01S04446.ddf     +++|          SHN    6
04512  M01S04447.ddf     +++|          STD    AB+1
04513  M01S04448.ddf     +++|          AOD    SC
04514  M01S04449.ddf     +++|          LDD    AB+2        GET CM WORD NUMBER WITH SECTOR
04515  M01S04450.ddf     +++|          SBD    AB+1
04516  M01S04451.ddf     +++|          STD    AB
04517  M01S04452.ddf     +++|          SHN    2           CALCULATE BYTE NUMBER
04518  M01S04453.ddf     +++|          ADD    AB
04519  M01S04454.ddf     +++|          ADD    AB+3
04520  M01S04455.ddf     +++|          ADN    2
04521  M01S04456.ddf     +++|          STD    FN
04522  M01S04457.ddf     +++|          RJM    RSB         READ SECTOR
04523  M01S04458.ddf     +++|          LJM    SBN         DISPLAY BYTE NUMBER
04524  M01S04459.ddf     +++| HOL      SPACE  4,10
04525  M01S04460.ddf     +++|***       HOLD.
04526  M01S04461.ddf     +++|*         DROP DISPLAY AND WAIT FOR OPERATOR ASSIGNMENT.  RESERVED
04527  M01S04462.ddf     +++|*         CHANNEL IS NOT DROPPED.
04528  M01S04463.ddf     +++|
04529  M01S04464.ddf     +++|
04530  M01S04465.ddf     +++| HOL      COMMAND
04531  M01S04466.ddf     +++|          RJM    DDS         DROP DISPLAY
04532  M01S04467.ddf     +++|          LDD    MA          SAVE DISK DATA
04533  M01S04468.ddf     +++|          CWD    T3
04534  M01S04469.ddf     +++|          RJM    RDC         REQUEST DISPLAY
04535  M01S04470.ddf     +++|          RJM    CSB         CLEAR SCREEN BUFFER
04536  M01S04471.ddf     +++|          LDD    MA          RESTORE DISK DATA
04537  M01S04472.ddf     +++|          CRD    T3
04538  M01S04473.ddf     +++|          LJM    IMS         INITIALIZE MASS STORAGE
04539  M01S04474.ddf     +++| EIT      SPACE  4,10
04540  M01S04475.ddf     +++|***       QFT.NNNN.
04541  M01S04476.ddf     +++|*         ENTER DISK ADDRESS FROM QFT ORDINAL NNNN.
04542  M01S04477.ddf     +++|*         (0 .LE. NNNN .LE. LARGEST QFT ORDINAL.)  THE EQUIPMENT,
04543  M01S04478.ddf     +++|*         TRACK, AND SECTOR ARE SET TO THE BEGINNING OF THE FILE.
04544  M01S04479.ddf     +++|*         *INCORRECT PARAMETER.* IS DISPLAYED IF THE QFT ENTRY IS NOT
04545  M01S04480.ddf     +++|*         USED OR THE FILE DOES NOT HAVE ANY TRACKS ASSIGNED.
04546  M01S04481.ddf     +++|
04547  M01S04482.ddf     +++|
04548  M01S04483.ddf     +++| EIT      COMMAND
04549  M01S04484.ddf     +++|          LDN    TARN
04550  M01S04485.ddf     +++|          RJM    LDO         LOAD OVERLAY
04551  M01S04486.ddf     +++|          LDN    PQFT
04552  M01S04487.ddf     +++|          RJM    /TAR/RFE    READ FST ENTRY
04553  M01S04488.ddf     +++|          LDD    FN+1
04554  M01S04489.ddf     +++|          ZJP    ERR2        IF TRACK NOT ASSIGNED
04555  M01S04490.ddf     +++|          STD    TK
04556  M01S04491.ddf     +++|          LDN    0           CLEAR SECTOR
04557  M01S04492.ddf     +++|          STD    SC
04558  M01S04493.ddf     +++|          LJM    IMS         INITIALIZE MASS STORAGE
04559  M01S04494.ddf     +++| LSA      SPACE  4,10
04560  M01S04495.ddf     +++|***       LOAD.C.
04561  M01S04496.ddf     +++|*         RELOAD THE EQUIPMENT, TRACK, AND SECTOR FROM SCRATCH AREA
04562  M01S04497.ddf     +++|*         C.  C IS A SINGLE ALPHABETIC CHARACTER (LEGAL CHARACTERS ARE
04563  M01S04498.ddf     +++|*         DISPLAYED ON THE LEFT SCREEN).  (REFER TO THE STORE COMMAND.)
04564  M01S04499.ddf     +++|
04565  M01S04500.ddf     +++|
04566  M01S04501.ddf     +++| LSA      COMMAND
04567  M01S04502.ddf     +++|          RJM    CSA         GET ADDRESS OF SCRATCH AREA
04568  M01S04503.ddf     +++|          LDI    T2
04569  M01S04504.ddf     +++|          ZJN    LSA1        IF STORE NOT DONE
04570  M01S04505.ddf     +++|          STD    EQ
04571  M01S04506.ddf     +++|          LDM    1,T2
04572  M01S04507.ddf     +++|          STD    TK
04573  M01S04508.ddf     +++|          LDM    2,T2
04574  M01S04509.ddf     +++|          STD    SC
04575  M01S04510.ddf     +++|          LDM    3,T2        SET DISPLAY
04576  M01S04511.ddf     +++|          SHN    -11
04577  M01S04512.ddf     +++|          STD    RS
04578  M01S04513.ddf     +++|          RJM    LDO         LOAD OVERLAY
04579  M01S04514.ddf     +++|          LDM    3,T2
04580  M01S04515.ddf     +++|          LPC    777
04581  M01S04516.ddf     +++|          STM    DRSA+4
04582  M01S04517.ddf     +++|          LJM    IMS         INITIALIZE MASS STORAGE
04583  M01S04518.ddf     +++|
04584  M01S04519.ddf     +++| LSA1     LJM    ERR2        *INCORRECT PARAMETER.*
04585  M01S04520.ddf     +++| EPN      SPACE  4,10
04586  M01S04521.ddf     +++|***       PACKNAM.CCCCCCC.
04587  M01S04522.ddf     +++|*         USE PERMANENT FILE PACK CCCCCCC.  (THE PACK NAME IS SET
04588  M01S04523.ddf     +++|*         INTERNALLY IN DDF.  *PKNW* IN THE CONTROL POINT AREA IS NOT
04589  M01S04524.ddf     +++|*         CHANGED.)  THE PACK NAME IS INITIALLY SET TO THE NAME IN
04590  M01S04525.ddf     +++|*         *PKNW*.
04591  M01S04526.ddf     +++|
04592  M01S04527.ddf     +++|
04593  M01S04528.ddf     +++| EPN      COMMAND
04594  M01S04529.ddf     +++|          RJM    ASN         GET NAME
04595  M01S04530.ddf     +++|          LDD    FN          SAVE NAME
04596  M01S04531.ddf     +++|          STD    PF
04597  M01S04532.ddf     +++|          LDD    FN+1
04598  M01S04533.ddf     +++|          STD    PF+1
04599  M01S04534.ddf     +++|          LDD    FN+2
04600  M01S04535.ddf     +++|          STD    PF+2
04601  M01S04536.ddf     +++|          LDD    PF+3
04602  M01S04537.ddf     +++|          LPN    77
04603  M01S04538.ddf     +++|          LMD    FN+3
04604  M01S04539.ddf     +++|          STD    PF+3
04605  M01S04540.ddf     +++|          LJM    RET         RETURN
04606  M01S04541.ddf     +++| PRD      SPACE  4,10
04607  M01S04542.ddf     +++|***       PREAD.
04608  M01S04543.ddf     +++|*         READ THE CURRENT SECTOR USING THE *READ PROTECTED SECTOR*
04609  M01S04544.ddf     +++|*         FUNCTION.  THIS COMMAND REPLACES THE SPACE KEY WHEN READING
04610  M01S04545.ddf     +++|*         PROTECTED SECTORS.  SPECIAL KEYS LIKE *+* AND *-* CANNOT
04611  M01S04546.ddf     +++|*         BE USED TO READ PROTECTED SECTORS. THE KEYBOARD MUST BE
04612  M01S04547.ddf     +++|*         UNLOCKED TO USE THIS COMMAND.
04613  M01S04548.ddf     +++|
04614  M01S04549.ddf     +++|
04615  M01S04550.ddf     +++| PRD      COMMAND
04616  M01S04551.ddf     +++|          RJM    CLB         CHECK LOCK BIT
04617  M01S00040.ddf4    +++|          RJM    CEQ         CHECK EQUIPMENT
04618  M01S04552.ddf     +++|          LDD    TK          SAVE TRACK AND SECTOR
04619  M01S04553.ddf     +++|          STD    FN
04620  M01S04554.ddf     +++|          LDD    SC
04621  M01S04555.ddf     +++|          STD    FN+1
04622  M01S04556.ddf     +++|          LDD    EQ          SET EQUIPMENT
04623  M01S04557.ddf     +++|          ADC    1000
04624  M01S04558.ddf     +++|          STM    PRDB
04625  M01S04559.ddf     +++|          EXECUTE  0PI,PRDB+1  SET UP DRIVER FOR PROTECTED SECTORS
04626  M01S04560.ddf     +++|          LDD    FN          RESET TRACK AND SECTOR
04627  M01S04561.ddf     +++|          STD    TK
04628  M01S04562.ddf     +++|          LDD    FN+1
04629  M01S04563.ddf     +++|          STD    SC
04630  M01S04564.ddf     +++|          LDM    KBUF+1
04631  M01S04565.ddf     +++|          LMN    1RW
04632  M01S04566.ddf     +++|          NJN    PRD1        IF NOT *PWRITE* COMMAND
04633  M01S04567.ddf     +++|          LDC    WDS
04634  M01S04568.ddf     +++|          STM    PRDA
04635  M01S04569.ddf     +++| PRD1     LDC    BFMS        READ/WRITE SECTOR
04636  M01S04570.ddf     +++|          RJM    RDS
04637  M01S04571.ddf     +++| PRDA     EQU    *-1
04638  M01S04572.ddf     +++|*         RJM    WDS         (*PWRITE* COMMAND)
04639  M01S04573.ddf     +++|          MJN    PRD2        IF ERROR
04640  M01S04574.ddf     +++|          ENDMS
04641  M01S04575.ddf     +++|*         LDN    0
04642  M01S04576.ddf     +++|          STM    RDCT
04643  M01S04577.ddf     +++| PRD2     LDM    RDCT        RELOAD DRIVER
04644  M01S04578.ddf     +++|          STD    FN
04645  M01S04579.ddf     +++|          LDD    T6
04646  M01S04580.ddf     +++|          STD    FN+1
04647  M01S04581.ddf     +++|          RJM    CTS
04648  M01S04582.ddf     +++|          LDD    FN
04649  M01S04583.ddf     +++|          STM    RDCT
04650  M01S04584.ddf     +++|          LDD    FN+1
04651  M01S04585.ddf     +++|          STD    T6
04652  M01S04586.ddf     +++|          LJM    RET         RETURN
04653  M01S04587.ddf     +++|
04654  M01S04588.ddf     +++|
04655  M01S04589.ddf     +++| PRDB     BSS    0           *0PI* LOAD ADDRESS
04656  M01S04590.ddf     +++|          ERRNG  7777-PRDB-1-ZPXL  *0PI* OVERFLOWS PP MEMORY
04657  M01S04591.ddf     +++| PTK      SPACE  4,10
04658  M01S04592.ddf     +++|***       PTK.NNNN.
04659  M01S04593.ddf     +++|*         ENTER PROTECTED TRACK.  THIS COMMAND WORKS THE SAME AS THE
04660  M01S04594.ddf     +++|*         TK. COMMAND EXCEPT THE NUMBER ENTERED IS NOT CHECKED AND THE
04661  M01S04595.ddf     +++|*         KEYBOARD MUST BE UNLOCKED.
04662  M01S04596.ddf     +++|
04663  M01S04597.ddf     +++|
04664  M01S04598.ddf     +++| PTK      COMMAND
04665  M01S04599.ddf     +++|          RJM    CLB         CHECK LOCK BIT
04666  M01S04600.ddf     +++|          RJM    ASD         ASSEMBLE TRACK NUMBER
04667  M01S04601.ddf     +++|          LDD    AB+4
04668  M01S04602.ddf     +++|          LPC    3777
04669  M01S04603.ddf     +++|          LMC    4000
04670  M01S04604.ddf     +++|          STD    TK
04671  M01S04605.ddf     +++|          LJM    RET         RETURN
04672  M01S04606.ddf     +++| PWT      SPACE  4,10
04673  M01S04607.ddf     +++|***       PWRITE.
04674  M01S04608.ddf     +++|*         WRITE THE CURRENT SECTOR USING THE *WRITE PROTECTED SECTOR*
04675  M01S04609.ddf     +++|*         FUNCTION.  THIS COMMAND SHOULD BE USED INSTEAD OF THE *WRITE*
04676  M01S04610.ddf     +++|*         COMMAND WHEN WRITING PROTECTED SECTORS.
04677  M01S04611.ddf     +++|
04678  M01S04612.ddf     +++|
04679  M01S04613.ddf     +++|          QUAL   PRESET
04680  M01S04614.ddf     +++| PWT      EQU    PRD
04681  M01S04615.ddf     +++| PWTL     EQU    PRDL
04682  M01S04616.ddf     +++|          QUAL   *
04683  M01S04617.ddf     +++| ERA      SPACE  4,20
04684  M01S04618.ddf     +++|***       RANDOM.NNNN.RRRR.
04685  M01S04619.ddf     +++|*         SET TRACK AND SECTOR FOR RANDOM ADDRESS RRRR WITH FIRST TRACK
04686  M01S04620.ddf     +++|*         NNNN.  *INCORRECT PARAMETER.* IS DISPLAYED IF THE RANDOM
04687  M01S04621.ddf     +++|*         ADDRESS IS NOT ON THE TRACK.
04688  M01S04622.ddf     +++|*
04689  M01S04623.ddf     +++|*
04690  M01S04624.ddf     +++|*         RANDOM..RRRR.
04691  M01S04625.ddf     +++|*         SET TRACK AND SECTOR FOR RANDOM ADDRESS RRRR USING THE
04692  M01S04626.ddf     +++|*         CURRENT TRACK AS THE FIRST TRACK.  *INCORRECT PARAMETER.* IS
04693  M01S04627.ddf     +++|*         DISPLAYED IF THE RANDOM ADDRESS IS NOT ON THE CHAIN.
04694  M01S04628.ddf     +++|*
04695  M01S04629.ddf     +++|*
04696  M01S04630.ddf     +++|*         RANDOM.C.RRRR.
04697  M01S04631.ddf     +++|*         SET TRACK AND SECTOR FOR RANDOM ADDRESS RRRR USING THE TRACK
04698  M01S04632.ddf     +++|*         SPECIFIED BY SCRATCH REGISTER C AS THE FIRST TRACK.
04699  M01S04633.ddf     +++|*         *INCORRECT PARAMETER.* IS DISPLAYED IF THE RANDOM ADDRESS IS
04700  M01S04634.ddf     +++|*         NOT ON THE CHAIN.
04701  M01S04635.ddf     +++|
04702  M01S04636.ddf     +++|
04703  M01S04637.ddf     +++| ERA      COMMAND
04704  M01S04638.ddf     +++|          LDD    TK          SAVE CURRENT TRACK
04705  M01S04639.ddf     +++|          STD    RC
04706  M01S04640.ddf     +++|          LDI    CA
04707  M01S04641.ddf     +++|          LMN    1R.
04708  M01S04642.ddf     +++|          ZJN    ERA3        IF TRACK NUMBER NOT ENTERED
04709  M01S04643.ddf     +++|          LDI    CA
04710  M01S04644.ddf     +++|          SBN    NSRA+1
04711  M01S04645.ddf     +++|          PJN    ERA1        IF NOT A SCRATCH AREA
04712  M01S04646.ddf     +++|          RJM    CSA         COMPUTE SCRATCH AREA ADDRESS
04713  M01S04647.ddf     +++|          LDM    1,T2        SET TRACK FROM SCRATCH AREA
04714  M01S04648.ddf     +++|          UJN    ERA2        STORE TRACK
04715  M01S04649.ddf     +++|
04716  M01S04650.ddf     +++| ERA1     RJM    ASD         GET FIRST TRACK
04717  M01S04651.ddf     +++|          LDD    AB+4
04718  M01S04652.ddf     +++| ERA2     STD    TK
04719  M01S04653.ddf     +++| ERA3     AOD    CA
04720  M01S04654.ddf     +++|          RJM    CDR         GET RANDOM ADDRESS
04721  M01S04655.ddf     +++|          LMN    1R.
04722  M01S04656.ddf     +++|          NJN    ERA4        IF FORMAT ERROR
04723  M01S04657.ddf     +++|          RJM    CRA         CHECK RANDOM ADDRESS
04724  M01S04658.ddf     +++|          MJN    ERA5        IF NOT ON CHAIN
04725  M01S04659.ddf     +++|          LJM    RET         RETURN
04726  M01S04660.ddf     +++|
04727  M01S04661.ddf     +++| ERA4     LDD    RC          RESET TRACK
04728  M01S04662.ddf     +++|          STD    TK
04729  M01S04663.ddf     +++|          LJM    ERR1        *FORMAT ERROR.*
04730  M01S04664.ddf     +++|
04731  M01S04665.ddf     +++| ERA5     LDD    RC          RESET TRACK
04732  M01S04666.ddf     +++|          STD    TK
04733  M01S04667.ddf     +++|          LJM    ERR2        *INCORRECT PARAMETER.*
04734  M01S04668.ddf     +++|
04735  M01S04669.ddf     +++|
04736  M01S04670.ddf     +++|*CALL     COMPCRA
04737  M01S04671.ddf     +++| ESC      SPACE  4,10
04738  M01S04672.ddf     +++|***       SC.NNNN.
04739  M01S04673.ddf     +++|*         ENTER SECTOR NUMBER.  *INCORRECT PARAMETER.* IS DISPLAYED IF
04740  M01S04674.ddf     +++|*         THE SECTOR NUMBER IS TOO LARGE.
04741  M01S04675.ddf     +++|
04742  M01S04676.ddf     +++|
04743  M01S04677.ddf     +++| ESC      COMMAND
04744  M01S04678.ddf     +++|          RJM    ASD         ASSEMBLE NUMBER
04745  M01S04679.ddf     +++|          LDD    LS
04746  M01S04680.ddf     +++|          SBD    AB+4
04747  M01S04681.ddf     +++|          MJN    ESC1        IF ILLEGAL SECTOR
04748  M01S04682.ddf     +++|          LDD    AB+4
04749  M01S04683.ddf     +++|          STD    SC
04750  M01S04684.ddf     +++|          LJM    RET         RETURN
04751  M01S04685.ddf     +++|
04752  M01S04686.ddf     +++| ESC1     LJM    ERR2        *INCORRECT PARAMETER.*
04753  M01S04687.ddf     +++| ELS      SPACE  4,10
04754  M01S04688.ddf     +++|***       SC.*.
04755  M01S04689.ddf     +++|*         ENTER THE NUMBER OF THE LAST SECTOR ON THE TRACK INTO THE
04756  M01S04690.ddf     +++|*         SECTOR NUMBER.
04757  M01S04691.ddf     +++|
04758  M01S04692.ddf     +++|
04759  M01S04693.ddf     +++| ELS      COMMAND
04760  M01S04694.ddf     +++|          LDD    LS          SET LAST SECTOR
04761  M01S04695.ddf     +++|          STD    SC
04762  M01S04696.ddf     +++|          LJM    RET         RETURN
04763  M01S04697.ddf     +++| SCN      SPACE  4,15
04764  M01S04698.ddf     +++|***       SCAN.
04765  M01S04699.ddf     +++|*         SCAN FROM THE CURRENT POSITION UNTIL THE END OF INFORMATION
04766  M01S04700.ddf     +++|*         CONTROL BYTES ARE ENCOUNTERED.  THE SCAN STOPS IF, AT SOME
04767  M01S04701.ddf     +++|*         POINT, THE CONTROL BYTES ARE INCORRECT OR THE TRACK IS NOT
04768  M01S04702.ddf     +++|*         RESERVED.
04769  M01S04703.ddf     +++|*
04770  M01S04704.ddf     +++|*
04771  M01S04705.ddf     +++|*         SCAN.*.
04772  M01S04706.ddf     +++|*         SCAN FROM THE CURRENT POSITION UNTIL THE END OF INFORMATION
04773  M01S04707.ddf     +++|*         INDICATED IN THE TRT IS REACHED.  THIS IS INTENDED TO BE USED
04774  M01S04708.ddf     +++|*         FOR THE INDIRECT ACCESS PERMANENT FILE CHAIN.  NOTE - WHEN
04775  M01S04709.ddf     +++|*         *PFM* DELINKS A TRACK IN THE MIDDLE OF THE CHAIN, IT DOES NOT
04776  M01S04710.ddf     +++|*         UPDATE THE TRACK POINTER IN THE PRECEEDING TRACK.  THIS WILL
04777  M01S04711.ddf     +++|*         CAUSE SCAN TO STOP AT THIS POINT AND DISPLAY AN ERROR.
04778  M01S04712.ddf     +++|
04779  M01S04713.ddf     +++|
04780  M01S04714.ddf     +++| SCN      COMMAND
04781  M01S04715.ddf     +++| SCN1     RJM    RCPA        RETURN TO MAIN LOOP
04782  M01S04716.ddf     +++|          RJM    SNT         CHECK TRT
04783  M01S04717.ddf     +++|          LDN    0           SET ERROR MESSAGE NUMBER
04784  M01S04718.ddf     +++|          STD    T3
04785  M01S04719.ddf     +++|          LDM    BFMS
04786  M01S04720.ddf     +++|          SHN    6
04787  M01S04721.ddf     +++|          ADM    BFMS+1
04788  M01S04722.ddf     +++|          LMC    377777
04789  M01S04723.ddf     +++|          NJN    SCN2        IF NOT SYSTEM SECTOR
04790  M01S04724.ddf     +++|          AOD    T3
04791  M01S04725.ddf     +++|          LDM    NSSS
04792  M01S04726.ddf     +++|          UJN    SCN3        CHECK SYSTEM SECTOR POINTER
04793  M01S04727.ddf     +++|
04794  M01S04728.ddf     +++| SCN2     LDM    BFMS
04795  M01S04729.ddf     +++|          NJN    SCN3        IF NOT EOF
04796  M01S04730.ddf     +++|          LDM    BFMS+1
04797  M01S04731.ddf     +++|          NJN    SCN3        IF NOT EOI
04798  M01S04732.ddf     +++|          LJM    SCN9        CHECK EOI PROCESSING
04799  M01S04733.ddf     +++|
04800  M01S04734.ddf     +++| SCN3     SHN    6
04801  M01S04735.ddf     +++|          PJN    SCN4        IF NOT A TRACK LINK BYTE
04802  M01S04736.ddf     +++|          SHN    -6
04803  M01S04737.ddf     +++|          LMM    CM,T1
04804  M01S04738.ddf     +++|          NJN    SCN8        IF LINKAGE BYTES DONT MATCH TRT
04805  M01S04739.ddf     +++|          LDN    2           SET ERROR MESSAGE NUMBER
04806  M01S04740.ddf     +++|          STD    T3
04807  M01S04741.ddf     +++|          LDD    SC
04808  M01S04742.ddf     +++|          LMD    LS
04809  M01S04743.ddf     +++|          NJN    SCN8        IF TRACK LINK NOT IN LAST SECTOR
04810  M01S04744.ddf     +++|          UJN    SCN5        CHECK WORD COUNT
04811  M01S04745.ddf     +++|
04812  M01S04746.ddf     +++| SCN4     SHN    -6
04813  M01S04747.ddf     +++|          SBN    1
04814  M01S04748.ddf     +++|          LMD    SC
04815  M01S04749.ddf     +++|          NJN    SCN8        IF NEXT SECTOR .NE. CURRENT SECTOR+1
04816  M01S04750.ddf     +++| SCN5     LDN    3           SET MESSAGE NUMBER
04817  M01S04751.ddf     +++|          STD    T3
04818  M01S04752.ddf     +++|          LDM    BFMS        CHECK WORD COUNT
04819  M01S04753.ddf     +++|          ZJN    SCN6        IF EOF
04820  M01S04754.ddf     +++|          LDD    HN
04821  M01S04755.ddf     +++|          SBM    BFMS+1
04822  M01S04756.ddf     +++|          MJN    SCN8        IF BAD WORD COUNT
04823  M01S04757.ddf     +++| SCN6     AOD    T3
04824  M01S04758.ddf     +++|          RJM    CTR         CHECK TRACK RESERVATION
04825  M01S04759.ddf     +++|          PJN    SCN8        IF TRACK NOT RESERVED
04826  M01S04760.ddf     +++|          RJM    SNS         ADVANCE TO NEXT SECTOR
04827  M01S04761.ddf     +++| SCN7     RJM    RSB         READ SECTOR
04828  M01S04762.ddf     +++|          MJN    SCN11       IF ERROR
04829  M01S04763.ddf     +++|          LJM    SCN1        LOOP
04830  M01S04764.ddf     +++|
04831  M01S04765.ddf     +++| SCN8     LDM    SCNA,T3     GET MESSAGE
04832  M01S04766.ddf     +++|          LJM    SKM         SET KEYBOARD MESSAGE
04833  M01S04767.ddf     +++|
04834  M01S04768.ddf     +++| SCN9     LDI    CA
04835  M01S04769.ddf     +++|          ZJN    SCN11       IF NOT SCAN TO TRT EOI
04836  M01S04770.ddf     +++|          RJM    SNT         SET NEXT TRACK
04837  M01S04771.ddf     +++|          STD    T1
04838  M01S04772.ddf     +++|          SHN    6
04839  M01S04773.ddf     +++|          MJN    SCN10       IF NOT EOI TRACK
04840  M01S04774.ddf     +++|          SHN    -6
04841  M01S04775.ddf     +++|          LMD    SC
04842  M01S04776.ddf     +++|          ZJN    SCN11       IF AT EOI INDICATED IN TRT
04843  M01S04777.ddf     +++| SCN10    AOD    SC          ADVANCE TO NEXT SECTOR
04844  M01S04778.ddf     +++|          SBD    LS
04845  M01S04779.ddf     +++|          SBN    1
04846  M01S04780.ddf     +++|          NJN    SCN7        IF NOT END OF TRACK
04847  M01S04781.ddf     +++|          STD    SC
04848  M01S04782.ddf     +++|          LDD    T1
04849  M01S04783.ddf     +++|          STD    TK
04850  M01S04784.ddf     +++|          UJN    SCN7        READ NEXT SECTOR
04851  M01S04785.ddf     +++|
04852  M01S04786.ddf     +++| SCN11    LJM    RET         RETURN
04853  M01S04787.ddf     +++|
04854  M01S04788.ddf     +++|
04855  M01S04789.ddf     +++| SCNA     CON    SCNB,SCNC,SCND,SCNE,SCNF
04856  M01S04790.ddf     +++| SCNB     DATA   Z*LINKAGE BYTE BAD.*
04857  M01S04791.ddf     +++| SCNC     DATA   Z*SYSTEM SECTOR LINKAGE BYTE BAD.*
04858  M01S04792.ddf     +++| SCND     DATA   Z*TRACK LINK IN WRONG SECTOR.*
04859  M01S04793.ddf     +++| SCNE     DATA   Z*WORD COUNT TOO BIG.*
04860  M01S04794.ddf     +++| SCNF     DATA   Z*TRACK NOT RESERVED.*
04861  M01S04795.ddf     +++| SPF      SPACE  4,10
04862  M01S04796.ddf     +++|***       SHOWPF.
04863  M01S04797.ddf     +++|*         DISPLAY THE PERMANENT FILE WHOSE CATALOG ENTRY IS CURRENTLY
04864  M01S04798.ddf     +++|*         DISPLAYED.  THE *PFC* DISPLAY MUST BE ON THE RIGHT SCREEN TO
04865  M01S04799.ddf     +++|*         USE THIS COMMAND.  THE DEVICE, TRACK, AND SECTOR FROM THE
04866  M01S04800.ddf     +++|*         PFC CURRENTLY DISPLAYED ARE USED TO DISPLAY THE FILE.  IF THE
04867  M01S04801.ddf     +++|*         DEVICE IS NOT PRESENT, *INCORRECT PARAMETER* IS DISPLAYED.
04868  M01S04802.ddf     +++|
04869  M01S04803.ddf     +++|
04870  M01S04804.ddf     +++| SPF      COMMAND
04871  M01S04805.ddf     +++|          LDD    RS          CHECK CURRENT DISPLAY
04872  M01S04806.ddf     +++|          LMN    DFDN
04873  M01S04807.ddf     +++|          SHN    12
04874  M01S04808.ddf     +++|          ADM    /DFD/DFDB
04875  M01S04809.ddf     +++|          LMN    DPEN
04876  M01S04810.ddf     +++|          NJP    ERR4        IF PFC DISPLAY NOT UP
04877  M01S04811.ddf     +++|          LDM    DRSA+4      COMPUTE PFC ADDRESS
04878  M01S04812.ddf     +++|          SHN    NWCES
04879  M01S04813.ddf     +++|          STD    FN
04880  M01S04814.ddf     +++|          SHN    2
04881  M01S04815.ddf     +++|          RAD    FN
04882  M01S04816.ddf     +++|          LDM    BFMS+2+FCDN,FN  DETERMINE EQUIPMENT FILE IS ON
04883  M01S04817.ddf     +++|          LPN    77
04884  M01S04818.ddf     +++|          ZJN    SPF2        IF FILE IS ON MASTER DEVICE
04885  M01S04819.ddf     +++|          STD    CM
04886  M01S04820.ddf     +++|          LDD    MA          SAVE CURRENT DIRECT CELLS
04887  M01S04821.ddf     +++|          ADN    4
04888  M01S04822.ddf     +++|          CWD    T3 - T7
04889  M01S04823.ddf     +++|          ADN    1
04890  M01S04824.ddf     +++|          CWD    CM+3 - CM+7
04891  M01S04825.ddf     +++|          LDD    T5          SEARCH FOR DEVICE
04892  M01S04826.ddf     +++|          RJM    SDN
04893  M01S04827.ddf     +++|          PJN    SPF1        IF DEVICE FOUND
04894  M01S04828.ddf     +++|          ADN    1
04895  M01S04829.ddf     +++|          ZJN    SPF4        IF DEVICE NOT FOUND
04896  M01S04830.ddf     +++| SPF1     LDD    MA          RESTORE DIRECT CELLS USED BY *COMPSDN*
04897  M01S04831.ddf     +++|          ADN    4+1
04898  M01S04832.ddf     +++|          CRD    CM+3
04899  M01S04833.ddf     +++| SPF2     LDM    BFMS+2+FCBT,FN  SET TRACK
04900  M01S04834.ddf     +++|          STD    T6
04901  M01S04835.ddf     +++|          LDM    BFMS+2+FCBS,FN  SET SECTOR
04902  M01S04836.ddf     +++|          STD    T7
04903  M01S04837.ddf     +++|          SHN    21-13
04904  M01S04838.ddf     +++|          PJN    SPF3        IF INDIRECT ACCESS FILE
04905  M01S04839.ddf     +++|          LDN    0
04906  M01S04840.ddf     +++|          STD    T7
04907  M01S04841.ddf     +++| SPF3     LJM    IMS         INITIALIZE MASS STORAGE
04908  M01S04842.ddf     +++|
04909  M01S04843.ddf     +++| SPF4     LDD    MA          RESTORE PREVIOUS VALUES TO DIRECT CELLS
04910  M01S04844.ddf     +++|          ADN    4
04911  M01S04845.ddf     +++|          CRD    T3
04912  M01S04846.ddf     +++|          ADN    1
04913  M01S04847.ddf     +++|          CRD    CM+3
04914  M01S04848.ddf     +++|          LJM    ERR2        *INCORRECT PARAMETER*
04915  M01S04849.ddf     +++|
04916  M01S04850.ddf     +++|
04917  M01S04851.ddf     +++|*CALL     COMPSDN
04918  M01S04852.ddf     +++| SKE      SPACE  4,10
04919  M01S04853.ddf     +++|***       SKIPEI.
04920  M01S04854.ddf     +++|*         SET TRACK AND SECTOR TO EOI BASED ON CURRENT POSITION AND
04921  M01S04855.ddf     +++|*         INFORMATION IN THE TRT.  THE NUMBER OF SECTORS SKIPPED IS
04922  M01S04856.ddf     +++|*         DISPLAYED ON THE LEFT SCREEN.
04923  M01S04857.ddf     +++|
04924  M01S04858.ddf     +++|
04925  M01S04859.ddf     +++| SKE      COMMAND
04926  M01S04860.ddf     +++|          RJM    SEI         SEARCH FOR EOI
04927  M01S04861.ddf     +++|          LDD    T2          SET UP MESSAGE
04928  M01S04862.ddf     +++|          SHN    -6
04929  M01S04863.ddf     +++|          RJM    C2D         CONVERT TWO DIGITS
04930  M01S04864.ddf     +++|          STM    SKEB
04931  M01S04865.ddf     +++|          LDD    T2
04932  M01S04866.ddf     +++|          RJM    C2D         CONVERT TWO DIGITS
04933  M01S04867.ddf     +++|          STM    SKEB+1
04934  M01S04868.ddf     +++|          LDD    T3
04935  M01S04869.ddf     +++|          SHN    -6
04936  M01S04870.ddf     +++|          RJM    C2D         CONVERT TWO DIGITS
04937  M01S04871.ddf     +++|          STM    SKEB+2
04938  M01S04872.ddf     +++|          LDD    T3
04939  M01S04873.ddf     +++|          RJM    C2D         CONVERT TWO DIGITS
04940  M01S04874.ddf     +++|          STM    SKEB+3
04941  M01S04875.ddf     +++|          LDC    SKEA
04942  M01S04876.ddf     +++|          LJM    SKM         SET KEYBOARD MESSAGE
04943  M01S04877.ddf     +++|
04944  M01S04878.ddf     +++|
04945  M01S04879.ddf     +++| SKEA     DATA   H* LENGTH = *
04946  M01S04880.ddf     +++| SKEB     DATA   Z*NNNNNNNNB.*
04947  M01S04881.ddf     +++|
04948  M01S04882.ddf     +++|
04949  M01S04883.ddf     +++|*CALL     COMPSEI
04950  M01S04884.ddf     +++| SKF      SPACE  4,10
04951  M01S04885.ddf     +++|***       SKIPF.
04952  M01S04886.ddf     +++|*         READ THE FILE STARTING AT THE CURRENT POSITION UNTIL AN EOF
04953  M01S04887.ddf     +++|*         IS ENCOUNTERED.
04954  M01S04888.ddf     +++|
04955  M01S04889.ddf     +++|
04956  M01S04890.ddf     +++| SKF      COMMAND
04957  M01S04891.ddf     +++| SKF1     RJM    SNS         ADVANCE TO THE NEXT SECTOR
04958  M01S04892.ddf     +++|          RJM    RSB         READ SECTOR
04959  M01S04893.ddf     +++|          MJN    SKF2        IF ERROR
04960  M01S04894.ddf     +++|          RJM    RCPA        RETURN TO MAIN LOOP
04961  M01S04895.ddf     +++|          LDM    BFMS
04962  M01S04896.ddf     +++|          ADM    BFMS+1
04963  M01S04897.ddf     +++|          ZJN    SKF3        IF EOI
04964  M01S04898.ddf     +++|          LDM    BFMS
04965  M01S04899.ddf     +++|          NJN    SKF1        IF NOT EOF
04966  M01S04900.ddf     +++| SKF2     LJM    RET         RETURN
04967  M01S04901.ddf     +++|
04968  M01S04902.ddf     +++| SKF3     LJM    ERR3        *NOT FOUND.*
04969  M01S04903.ddf     +++| SKR      SPACE  4,10
04970  M01S04904.ddf     +++|***       SKIPR.
04971  M01S04905.ddf     +++|*         READ THE FILE STARTING AT THE CURRENT POSITION UNTIL AN EOR
04972  M01S04906.ddf     +++|*         OR EOF IS ENCOUNTERED.
04973  M01S04907.ddf     +++|
04974  M01S04908.ddf     +++|
04975  M01S04909.ddf     +++| SKR      COMMAND
04976  M01S04910.ddf     +++| SKR1     RJM    SNS         ADVANCE TO THE NEXT SECTOR
04977  M01S04911.ddf     +++|          RJM    RSB         READ SECTOR
04978  M01S04912.ddf     +++|          MJN    SKR2        IF ERROR
04979  M01S04913.ddf     +++|          RJM    RCPA        RETURN TO MAIN LOOP
04980  M01S04914.ddf     +++|          LDM    BFMS
04981  M01S04915.ddf     +++|          ADM    BFMS+1
04982  M01S04916.ddf     +++|          ZJN    SKR3        IF EOI
04983  M01S04917.ddf     +++|          LDM    BFMS
04984  M01S04918.ddf     +++|          ZJN    SKR2        IF EOF
04985  M01S04919.ddf     +++|          LDM    BFMS+1
04986  M01S04920.ddf     +++|          SHN    -6
04987  M01S04921.ddf     +++|          NJN    SKR1        IF NOT SHORT PRU
04988  M01S04922.ddf     +++| SKR2     LJM    RET         RETURN
04989  M01S04923.ddf     +++|
04990  M01S04924.ddf     +++| SKR3     LJM    ERR3        *NOT FOUND.*
04991  M01S04925.ddf     +++| STB      SPACE  4,10
04992  M01S04926.ddf     +++|***       STB.
04993  M01S04927.ddf     +++|*         SET THE TRACK INTERLOCK BIT FOR THE CURRENT TRACK.  THE
04994  M01S04928.ddf     +++|*         KEYBOARD MUST BE UNLOCKED TO USE THIS COMMAND.
04995  M01S04929.ddf     +++|
04996  M01S04930.ddf     +++|
04997  M01S04931.ddf     +++| STB      COMMAND
04998  M01S04932.ddf     +++|          RJM    CLB         CHECK LOCK BIT
04999  M01S04933.ddf     +++| STB1     RJM    CTR         CHECK TRACK RESERVATION
05000  M01S04934.ddf     +++|          MJN    STB2        IF TRACK IS RESERVED
05001  M01S04935.ddf     +++|          LJM    ERR4        *INCORRECT ENTRY.*
05002  M01S04936.ddf     +++|
05003  M01S04937.ddf     +++| STB2     LDD    EQ
05004  M01S04938.ddf     +++|          STD    CM+1
05005  M01S04939.ddf     +++|          LDD    TK
05006  M01S04940.ddf     +++|          STD    CM+2
05007  M01S04941.ddf     +++|          LDN    STIS
05008  M01S04942.ddf     +++|          STD    CM+3
05009  M01S04943.ddf     +++|          MONITOR STBM
05010  M01S04944.ddf     +++|          LDD    CM+1
05011  M01S04945.ddf     +++|          ZJN    STB3        IF REQUEST HONORED
05012  M01S04946.ddf     +++|          LDN    0
05013  M01S04947.ddf     +++|          STD    SB
05014  M01S04948.ddf     +++|          RJM    RCPA        RETURN TO MAIN LOOP
05015  M01S04949.ddf     +++|          UJN    STB1        LOOP
05016  M01S04950.ddf     +++|
05017  M01S04951.ddf     +++| STB3     LJM    RET         RETURN
05018  M01S04952.ddf     +++| SSA      SPACE  4,10
05019  M01S04953.ddf     +++|***       STORE.C.COMMENT
05020  M01S04954.ddf     +++|*         STORE THE CURRENT EQUIPMENT, TRACK, AND SECTOR INTO SCRATCH
05021  M01S04955.ddf     +++|*         AREA C.  C IS A SINGLE ALPHABETIC CHARACTER (LEGAL CHARACTERS
05022  M01S04956.ddf     +++|*         ARE DISPLAYED ON THE LEFT SCREEN).  THE COMMENT IS COPIED TO
05023  M01S04957.ddf     +++|*         THE SCRATCH AREA AND DISPLAYED ON THE LEFT SCREEN.  THE
05024  M01S04958.ddf     +++|*         COMMENT IS FOR CONVENIENCE ONLY AND IS TRUNCATED TO 10
05025  M01S04959.ddf     +++|*         CHARACTERS.  THE EQUIPMENT, TRACK, AND SECTOR CAN BE RELOADED
05026  M01S04960.ddf     +++|*         FROM THE SCRATCH AREA WITH THE *LOAD* COMMAND.
05027  M01S04961.ddf     +++|
05028  M01S04962.ddf     +++|
05029  M01S04963.ddf     +++| SSA      COMMAND
05030  M01S04964.ddf     +++|          RJM    CSA         GET ADDRESS OF SCRATCH AREA
05031  M01S04965.ddf     +++|          LDD    EQ          SAVE EQUIPMENT
05032  M01S04966.ddf     +++|          STI    T2
05033  M01S04967.ddf     +++|          AOD    T2
05034  M01S04968.ddf     +++|          LDD    TK          SAVE TRACK
05035  M01S04969.ddf     +++|          STI    T2
05036  M01S04970.ddf     +++|          AOD    T2
05037  M01S04971.ddf     +++|          LDD    SC          SAVE SECTOR
05038  M01S04972.ddf     +++|          STI    T2
05039  M01S04973.ddf     +++|          AOD    T2
05040  M01S04974.ddf     +++|          LDD    RS          SAVE DISPLAY INFORMATION
05041  M01S04975.ddf     +++|          SHN    11
05042  M01S04976.ddf     +++|          ADM    DRSA+4
05043  M01S04977.ddf     +++|          STI    T2
05044  M01S04978.ddf     +++|          AOD    T2
05045  M01S04979.ddf     +++|          LDN    4           COPY COMMENT
05046  M01S04980.ddf     +++|          STD    T1
05047  M01S04981.ddf     +++|          AOD    CA
05048  M01S04982.ddf     +++| SSA1     LDI    CA
05049  M01S04983.ddf     +++|          SHN    6
05050  M01S04984.ddf     +++|          ADM    1,CA
05051  M01S04985.ddf     +++|          STI    T2
05052  M01S04986.ddf     +++|          LDN    2
05053  M01S04987.ddf     +++|          RAD    CA
05054  M01S04988.ddf     +++|          AOD    T2
05055  M01S04989.ddf     +++|          SOD    T1
05056  M01S04990.ddf     +++|          PJN    SSA1        IF MORE BYTES
05057  M01S04991.ddf     +++|          LJM    RET         RETURN
05058  M01S04992.ddf     +++| ETK      SPACE  4,10
05059  M01S04993.ddf     +++|***       TK.NNNN.
05060  M01S04994.ddf     +++|*         ENTER TRACK NUMBER.  *INCORRECT PARAMETER.* IS DISPLAYED IF
05061  M01S04995.ddf     +++|*         THE NUMBER IS TOO LARGE.
05062  M01S04996.ddf     +++|
05063  M01S04997.ddf     +++|
05064  M01S04998.ddf     +++| ETK      COMMAND
05065  M01S04999.ddf     +++|          RJM    ASD         ASSEMBLE NUMBER
05066  M01S05000.ddf     +++|          LDD    AB+4
05067  M01S05001.ddf     +++|          LPC    3777
05068  M01S05002.ddf     +++|          ADC    4000
05069  M01S05003.ddf     +++|          STD    T2
05070  M01S05004.ddf     +++|          SBD    LT
05071  M01S05005.ddf     +++|          SBN    1
05072  M01S05006.ddf     +++|          PJN    ETK1        IF ILLEGAL TRACK
05073  M01S05007.ddf     +++|          LDD    T2
05074  M01S05008.ddf     +++|          STD    TK
05075  M01S05009.ddf     +++|          LJM    RET         RETURN
05076  M01S05010.ddf     +++|
05077  M01S05011.ddf     +++| ETK1     LJM    ERR2        *INCORRECT PARAMETER.*
05078  M01S05012.ddf     +++| SCT      SPACE  4,10
05079  M01S05013.ddf     +++|***       UI.NNNNNN.
05080  M01S05014.ddf     +++|*         SET EQUIPMENT AND TRACK FOR THE CATALOG ENTRIES FOR USER
05081  M01S05015.ddf     +++|*         INDEX NNNNNN (NNNNNN .LE. 377777).  *INCORRECT PARAMETER.* IS
05082  M01S05016.ddf     +++|*         DISPLAYED IF THE CATALOG IS NOT FOUND (THIS MAY BE THE RESULT
05083  M01S05017.ddf     +++|*         OF ENTERING THE WRONG FAMILY OR PACK NAME.)  IF THE FAMILY
05084  M01S05018.ddf     +++|*         OR PACK NAME ARE CHANGED (AFTER ENTERING THE *UI* COMMAND),
05085  M01S05019.ddf     +++|*         THE *UI* COMMAND MUST BE REENTERED.
05086  M01S05020.ddf     +++|
05087  M01S05021.ddf     +++|
05088  M01S05022.ddf     +++| SCT      COMMAND
05089  M01S05023.ddf     +++|          RJM    ASD         GET USER INDEX
05090  M01S05024.ddf     +++|          LDD    MA          SAVE CURRENT ENTRIES
05091  M01S05025.ddf     +++|          ADN    5
05092  M01S05026.ddf     +++|          CWD    T3
05093  M01S05027.ddf     +++|          LDN    PF
05094  M01S05028.ddf     +++|          RJM    SCA         SET CATALOG ADDRESS
05095  M01S05029.ddf     +++|          PJN    SCT1        IF DEVICE FOUND AND ACCESSIBLE
05096  M01S05030.ddf     +++|          ADN    1
05097  M01S05031.ddf     +++|          NJN    SCT2        IF NOT FOUND
05098  M01S05032.ddf     +++| SCT1     LDN    DFDN
05099  M01S05033.ddf     +++|          STD    RS
05100  M01S05034.ddf     +++|          RJM    LDO         LOAD OVERLAY
05101  M01S05035.ddf     +++|          LDN    0           SET SECTOR
05102  M01S05036.ddf     +++|          STD    SC
05103  M01S05037.ddf     +++|          STM    DRSA+4      SET DISPLAY INDEX
05104  M01S05038.ddf     +++|          LJM    IMS         INITIALIZE MASS STORAGE
05105  M01S05039.ddf     +++|
05106  M01S05040.ddf     +++| SCT2     LDD    MA          RESTORE PREVIOUS ENTRIES
05107  M01S05041.ddf     +++|          ADN    5
05108  M01S05042.ddf     +++|          CRD    T3
05109  M01S05043.ddf     +++|          LJM    ERR2        *INCORRECT PARAMETER.*
05110  M01S05044.ddf     +++|
05111  M01S05045.ddf     +++|
05112  M01S05046.ddf     +++|*CALL     COMPSCA
05113  M01S05047.ddf     +++| WRT      SPACE  4,10
05114  M01S05048.ddf     +++|***       WRITE.
05115  M01S05049.ddf     +++|*         WRITE THE CONTENTS OF THE BUFFER TO THE SECTOR CURRENTLY
05116  M01S05050.ddf     +++|*         INDICATED.  IF THE KEYBOARD IS NOT UNLOCKED, *INCORRECT
05117  M01S05051.ddf     +++|*         ENTRY.* IS DISPLAYED.
05118  M01S05052.ddf     +++|
05119  M01S05053.ddf     +++|
05120  M01S05054.ddf     +++| WRT      COMMAND
05121  M01S05055.ddf     +++|          RJM    CLB         CHECK FOR LOCKED KEYBOARD
05122  M01S00041.ddf4    +++|          RJM    CEQ         CHECK EQUIPMENT
05123  M01S05056.ddf     +++|          LDC    BFMS+WLSF
05124  M01S05057.ddf     +++|          RJM    WDS         WRITE DATA
05125  M01S05058.ddf     +++|          ENDMS
05126  M01S05059.ddf     +++|          LJM    RET         RETURN
05127  M01S05060.ddf     +++|          SPACE  4,10
05128  M01S05061.ddf     +++|          COMMAND
05129  M01S05062.ddf     +++| TAR      SPACE  4,10
05130  M01S05063.ddf     +++|**        TAR - TABLE ACCESS ROUTINES.
05131  M01S05064.ddf     +++|*
05132  M01S05065.ddf     +++|*         THIS CM RESIDENT OVERLAY CONTAINS THE SUBROUTINES REQUIRED
05133  M01S05066.ddf     +++|*         FOR COMMANDS *EJT.*, *FNT.*, *FNTL.*, *FNTLC.*, AND *QFT.*
05134  M01S05067.ddf     +++|*         TO ACCESS THE CMR/NFL TABLES INVOLVED TO READ A FST ENTRY.
05135  M01S05068.ddf     +++|*
05136  M01S05069.ddf     +++|*         THEY ARE LOADED AT THE END OF THE COMMAND OVERLAY.
05137  M01S05070.ddf     +++|
05138  M01S05071.ddf     +++|
05139  M01S05072.ddf     +++|          QUAL   PRESET
05140  M01S05073.ddf     +++| .1       MAX    EETL,EFBL,EFLL,EFCL,EITL
05141  M01S05074.ddf     +++|          QUAL   *
05142  M01S05075.ddf     +++|          QUAL
05143  M01S05076.ddf     +++| TARLA    EQU    CPLA+/PRESET/.1*5     TAR OVERLAY LOAD ADDRESS
05144  M01S05077.ddf     +++|          QUAL   *
05145  M01S05078.ddf     +++| TAR      ACROVL TARLA
05146  M01S05079.ddf     +++| CFA      SPACE 4,10
05147  M01S05080.ddf     +++|**        CFA - CALCULATE FNT ADDRESS.
05148  M01S05081.ddf     +++|*
05149  M01S05082.ddf     +++|*         ENTRY  (CA) = ADDRESS OF CHARACTER STRING.
05150  M01S05083.ddf     +++|*
05151  M01S05084.ddf     +++|*         EXIT   (T3) = LOCAL FNT POINTER.
05152  M01S05085.ddf     +++|*
05153  M01S05086.ddf     +++|*         USES   CM - CM+4.
05154  M01S05087.ddf     +++|*
05155  M01S05088.ddf     +++|*         CALL   ASD.
05156  M01S05089.ddf     +++|
05157  M01S05090.ddf     +++|
05158  M01S05091.ddf     +++| CFA      SUBR               ENTRY/EXIT
05159  M01S05092.ddf     +++|          RJM    ASD         GET FNT ORDINAL
05160  M01S05093.ddf     +++|          LDN    LENF        COMPUTE FNT NFL ADDRESS (FNTN+NNNN*LENF)
05161  M01S05094.ddf     +++|          STD    T0
05162  M01S05095.ddf     +++|          LDC    FNTN
05163  M01S05096.ddf     +++|          STD    T3
05164  M01S05097.ddf     +++| CFA1     LDD    AB+4
05165  M01S05098.ddf     +++|          RAD    T3
05166  M01S05099.ddf     +++|          SHN    -14
05167  M01S05100.ddf     +++|          NJN    CFA2        IF OVERFLOW
05168  M01S05101.ddf     +++|          SOD    T0
05169  M01S05102.ddf     +++|          NJN    CFA1        IF MULTIPLY BY LENF INCOMPLETE
05170  M01S05103.ddf     +++|          LDD    CP
05171  M01S05104.ddf     +++|          ADN    FLSW        GET NFL/100B
05172  M01S05105.ddf     +++|          CRD    CM
05173  M01S05106.ddf     +++|          LDD    CM          FORM LWA+1 OF LOCAL FNT AREA
05174  M01S05107.ddf     +++|          SHN    6
05175  M01S05108.ddf     +++|          ADN    1
05176  M01S05109.ddf     +++|          STD    CM+1
05177  M01S05110.ddf     +++|          LDD    T3
05178  M01S05111.ddf     +++|          SBD    CM+1
05179  M01S05112.ddf     +++|          MJN    CFAX        IF LEGAL ORDINAL
05180  M01S05113.ddf     +++| CFA2     LJM    ERR2        *INCORRECT PARAMETER.*
05181  M01S05114.ddf     +++| CTO      SPACE  4,15
05182  M01S05115.ddf     +++|**        CTO - CHECK TABLE ORDINAL.
05183  M01S05116.ddf     +++|*
05184  M01S05117.ddf     +++|*         ENTRY  (A)  = MANAGED TABLE IDENTIFICATION CODE.
05185  M01S05118.ddf     +++|*                (CA) = ADDRESS OF CHARACTER STRING.
05186  M01S05119.ddf     +++|*
05187  M01S05120.ddf     +++|*         EXIT   (T3) = TABLE ORDINAL.
05188  M01S05121.ddf     +++|*                (T1) = MANAGED TABLE IDENTIFICATION CODE.
05189  M01S05122.ddf     +++|*
05190  M01S05123.ddf     +++|*         USES   CM - CM+4.
05191  M01S05124.ddf     +++|*
05192  M01S05125.ddf     +++|*         CALLS  ASD.
05193  M01S05126.ddf     +++|
05194  M01S05127.ddf     +++|
05195  M01S05128.ddf     +++| CTO      SUBR               ENTRY/EXIT
05196  M01S05129.ddf     +++|          STD    T1
05197  M01S05130.ddf     +++|          RJM    ASD         ASSEMBLE TABLE ORDINAL
05198  M01S05131.ddf     +++|          LDM    TMTP,T1     READ POINTER WORD
05199  M01S05132.ddf     +++|          CRD    CM
05200  M01S05133.ddf     +++|          LDD    AB+4        CHECK VALID ORDINAL
05201  M01S05134.ddf     +++|          STD    T3
05202  M01S05135.ddf     +++|          SBD    CM+2
05203  M01S05136.ddf     +++|          MJN    CTOX        IF LEGAL ORDINAL
05204  M01S05137.ddf     +++|          LJM    ERR2        *INCORRECT PARAMETER.*
05205  M01S05138.ddf     +++| RFE      SPACE  4,15
05206  M01S05139.ddf     +++|**        RFE - READ FST ENTRY.
05207  M01S05140.ddf     +++|*
05208  M01S05141.ddf     +++|*         ENTRY  (A)  = MANAGED TABLE IDENTIFICATION CODE.
05209  M01S05142.ddf     +++|*                (CA) = ADDRESS OF CHARACTER STRING.
05210  M01S05143.ddf     +++|*
05211  M01S05144.ddf     +++|*         EXIT   (FN - FN+4) = FST ENTRY.
05212  M01S05145.ddf     +++|*                (T3) = FNT ADDRESS.
05213  M01S05146.ddf     +++|*                (EQ) = EST ORDINAL.
05214  M01S05147.ddf     +++|*
05215  M01S05148.ddf     +++|*         USES   CM - CM+4.
05216  M01S05149.ddf     +++|*
05217  M01S05150.ddf     +++|*         CALLS  CFA, CTO, .EJT, .FNT, .QFT.
05218  M01S05151.ddf     +++|*
05219  M01S05152.ddf     +++|*         MACROS NFA, SFA.
05220  M01S05153.ddf     +++|
05221  M01S05154.ddf     +++|
05222  M01S05155.ddf     +++| RFE4     LDD    FN          SET EST ORDINAL
05223  M01S05156.ddf     +++|          STD    EQ
05224  M01S05157.ddf     +++|
05225  M01S05158.ddf     +++| RFE      SUBR               ENTRY/EXIT
05226  M01S05159.ddf     +++|          LMK    PNFL
05227  M01S05160.ddf     +++|          NJN    RFE1        IF NOT LOCAL FNT
05228  M01S05161.ddf     +++|          STD    T1
05229  M01S05162.ddf     +++|          RJM    CFA         CALCULATE FNT ADDRESS
05230  M01S05163.ddf     +++|          NFA    T3,R
05231  M01S05164.ddf     +++|          UJN    RFE2        READ TABLE ENTRY
05232  M01S05165.ddf     +++|
05233  M01S05166.ddf     +++| RFE1     LMK    PNFL
05234  M01S05167.ddf     +++|          RJM    CTO         CHECK TABLE ORDINAL
05235  M01S05168.ddf     +++|          LDM    TMTA,T1
05236  M01S05169.ddf     +++|          STD    CM
05237  M01S05170.ddf     +++|          LDD    T3          GET ADDRESS OF SPECIFIED ENTRY
05238  M01S05171.ddf     +++|          RJM    0,CM
05239  M01S05172.ddf     +++| RFE2     ADM    TFSI,T1
05240  M01S05173.ddf     +++|          CRD    FN          READ FST ENTRY
05241  M01S05174.ddf     +++|          LDD    FN+1
05242  M01S05175.ddf     +++|          ZJN    RFE3        IF EMPTY FILE
05243  M01S05176.ddf     +++|          SFA    EST,FN
05244  M01S05177.ddf     +++|          ADK    EQDE
05245  M01S05178.ddf     +++|          CRD    CM          READ EST ENTRY
05246  M01S05179.ddf     +++|          LDD    CM
05247  M01S05180.ddf     +++|          SHN    21-13
05248  M01S05181.ddf     +++|          MJN    RFE4        IF MASS STORAGE
05249  M01S05182.ddf     +++| RFE3     LJM    ERR2        *INCORRECT PARAMETER.*
05250  M01S05183.ddf     +++|
05251  M01S05184.ddf     +++|
05252  M01S05185.ddf     +++| TFSI     INDEX              LIST OF INDICES TO FST ENTRY
05253  M01S05186.ddf     +++|          INDEX  PNFL,FSTL
05254  M01S05187.ddf     +++|          INDEX  PFNT,FSTG
05255  M01S05188.ddf     +++|          INDEX  PQFT,ENTQ
05256  M01S05189.ddf     +++|          INDEX  PEJT,SCHE
05257  M01S05190.ddf     +++|          INDEX  PEJT+1
05258  M01S05191.ddf     +++|
05259  M01S05192.ddf     +++|
05260  M01S05193.ddf     +++| TMTA     INDEX              LIST OF MANAGED TABLE ACCESS ROUTINES
05261  M01S05194.ddf     +++|          INDEX  PFNT,.FNT
05262  M01S05195.ddf     +++|          INDEX  PQFT,.QFT
05263  M01S05196.ddf     +++|          INDEX  PEJT,.EJT
05264  M01S05197.ddf     +++|          INDEX  PEJT+1
05265  M01S05198.ddf     +++|
05266  M01S05199.ddf     +++|
05267  M01S05200.ddf     +++| TMTP     INDEX              LIST OF MANAGED TABLE POINTER ADDRESSES
05268  M01S05201.ddf     +++|          INDEX  PFNT,FNTP
05269  M01S05202.ddf     +++|          INDEX  PQFT,QFTP
05270  M01S05203.ddf     +++|          INDEX  PEJT,EJTP
05271  M01S05204.ddf     +++|          INDEX  PEJT+1
05272  M01S05205.ddf     +++|
05273  M01S05206.ddf     +++|
05274  M01S05207.ddf     +++| QUAL$    EQU    0           SELECT UNQUALIFIED ASSEMBLY OF COMPGFP
05275  M01S05208.ddf     +++| EJT$     EQU    0           DEFINE *COMPGFP* ACCESS TO EJT
05276  M01S05209.ddf     +++| FNT$     EQU    0           DEFINE *COMPGFP* ACCESS TO FNT
05277  M01S05210.ddf     +++| QFT$     EQU    0           DEFINE *COMPGFP* ACCESS TO QFT
05278  M01S05211.ddf     +++| IFP$     EQU    0           GENERATE *IFP* REMOTE CODE
05279  M01S05212.ddf     +++| .OFFS    SET    *O-*L
05280  M01S05213.ddf     +++|*CALL     COMPGFP
05281  M01S05214.ddf     +++|          SPACE  4,10
05282  M01S05215.ddf     +++|          ACROVL
05283  M01S05216.ddf     +++|          ERRNG  EPFW-TARLA-/PRESET/TARL*5  *TAR* OVERFLOWS ERROR PROC.
05284  M01S05217.ddf     +++|
05285  M01S05218.ddf     +++|*         SINCE THE IFP CODE FOR COMPGFP IS EXECUTED DURING PRESET,
05286  M01S05219.ddf     +++|*         THE LOCATIONS TO BE PRESET MUST BE REFERENCE VIA THE ORIGIN
05287  M01S05220.ddf     +++|*         COUNTER, RATHER THAN THE LOCATION COUNTER (WHICH WAS USED TO
05288  M01S05221.ddf     +++|*         DEFINE THE SYMBOLS *EJTB*, *FNTB*, AND *QFT*).
05289  M01S05222.ddf     +++|*         TO ACCOMPLISH THIS, THE PRESET CODE IS ASSEMBLED USEING A
05290  M01S05223.ddf     +++|*         DIFFERENT QUALIFIER.  THIS NECESSITATES REDEFINING THE
05291  M01S05224.ddf     +++|*         ASSEMBLY OPTION TAGS AS WELL.
05292  M01S05225.ddf     +++|
05293  M01S05226.ddf     +++|          USE    PRESET
05294  M01S05227.ddf     +++| QUAL$    EQU    0           SELECT UNQUALIFIED ASSEMBLY OF COMPGFP
05295  M01S05228.ddf     +++| EJT$     EQU    0           DEFINE *COMPGFP* ACCESS TO EJT
05296  M01S05229.ddf     +++| EJTB     EQU    /TAR/EJTB+/TAR/.OFFS
05297  M01S05230.ddf     +++| FNT$     EQU    0           DEFINE *COMPGFP* ACCESS TO FNT
05298  M01S05231.ddf     +++| FNTB     EQU    /TAR/FNTB+/TAR/.OFFS
05299  M01S05232.ddf     +++| QFT$     EQU    0           DEFINE *COMPGFP* ACCESS TO QFT
05300  M01S05233.ddf     +++| QFTB     EQU    /TAR/QFTB+/TAR/.OFFS
05301  M01S05234.ddf     +++| IFP$     EQU    0           GENERATE *IFP* REMOTE CODE
05302  M01S05235.ddf     +++| IFP      HERE               ASSEMBLE *IFP* REMOTE CODE HERE
05303  M01S05236.ddf     +++|          USE    *
05304  M01S05237.ddf     +++|          SPACE  4,10
05305  M01S05238.ddf     +++|          OVERFLOW  /PRESET/OVL
05306  M01S05239.ddf     +++|          QUAL   *           RESUME UNQUALIFIED DEFINITIONS
05307  M01S05240.ddf     +++|          OVERLAY /PRESET/OVL,(LISTING FILE COMMAND PROCESSORS.)
05308  M01S05241.ddf     +++| OVL      SUBR               ENTRY/EXIT
05309  M01S05242.ddf     +++|          UJN    OVLX        RETURN
05310  M01S05243.ddf     +++|          SPACE  4,10
05311  M01S05244.ddf     +++|***       THE FOLLOWING COMMANDS ARE USED TO PRINT THE CONTENTS OF THE
05312  M01S05245.ddf     +++|*         DISK SECTOR AND MANIPULATE THE LISTING FILE.
05313  M01S05246.ddf     +++| CLF      SPACE  4,10
05314  M01S05247.ddf     +++|***       LISTING.CCCCCCC.
05315  M01S05248.ddf     +++|*         SET THE LISTING FILE NAME TO CCCCCCC.  THE LISTING FILE IS
05316  M01S05249.ddf     +++|*         ORIGINALLY *OUTPUT*.
05317  M01S05250.ddf     +++|
05318  M01S05251.ddf     +++|
05319  M01S05252.ddf     +++| CLF      COMMAND
05320  M01S05253.ddf     +++|          RJM    WCC         WAIT FOR PREVIOUS REQUEST TO COMPLETE
05321  M01S05254.ddf     +++|          RJM    ASN         GET NAME
05322  M01S05255.ddf     +++|          LDD    BA
05323  M01S05256.ddf     +++|          SHN    6
05324  M01S05257.ddf     +++|          ADD    RA
05325  M01S05258.ddf     +++|          SHN    6
05326  M01S05259.ddf     +++|          ADD    BA+1
05327  M01S05260.ddf     +++|          CWD    FN          WRITE NAME TO BUFFER
05328  M01S05261.ddf     +++|          LDN    2*2+1
05329  M01S05262.ddf     +++|          LJM    SCP         START CPU
05330  M01S05263.ddf     +++| OUT      SPACE  4,10
05331  M01S05264.ddf     +++|***       OUT.
05332  M01S05265.ddf     +++|*         RELEASE THE LISTING FILE TO THE OUTPUT QUEUE.
05333  M01S05266.ddf     +++|
05334  M01S05267.ddf     +++|
05335  M01S05268.ddf     +++| OUT      COMMAND
05336  M01S05269.ddf     +++|          RJM    WCC         WAIT FOR PREVIOUS REQUEST TO COMPLETE
05337  M01S05270.ddf     +++|          LDN    3*2+1
05338  M01S05271.ddf     +++|          LJM    SCP         START CPU
05339  M01S05272.ddf     +++| PRT      SPACE  4,10
05340  M01S05273.ddf     +++|***       PRINT.
05341  M01S05274.ddf     +++|*         PRINT THE CURRENT EQUIPMENT, TRACK, SECTOR, TRT INFORMATION,
05342  M01S05275.ddf     +++|*         AND THE CONTENTS OF THE SECTOR.
05343  M01S05276.ddf     +++|*
05344  M01S05277.ddf     +++|*
05345  M01S05278.ddf     +++|*         PRINT.NNNN.
05346  M01S05279.ddf     +++|*         PRINT THE NEXT NNNN (MUST BE AN OCTAL NUMBER) SECTORS START-
05347  M01S05280.ddf     +++|*         ING WITH THE CURRENT SECTOR.  PRINTING WILL STOP AT EOI IF
05348  M01S05281.ddf     +++|*         ENCOUNTERED BEFORE NNNN SECTORS HAVE BEEN PRINTED.  ONE PAGE
05349  M01S05282.ddf     +++|*         OF OUTPUT IS PRODUCED FOR EACH SECTOR PRINTED.
05350  M01S05283.ddf     +++|
05351  M01S05284.ddf     +++|
05352  M01S05285.ddf     +++| PRT      COMMAND
05353  M01S05286.ddf     +++|          LDI    CA
05354  M01S05287.ddf     +++|          ZJN    PRT1        IF NUMBER NOT ENTERED
05355  M01S05288.ddf     +++|          RJM    ASD         CONVERT NUMBER
05356  M01S05289.ddf     +++|          LDD    AB+4
05357  M01S05290.ddf     +++|          SBN    1
05358  M01S05291.ddf     +++| PRT1     STD    FN          SAVE COUNT
05359  M01S05292.ddf     +++| PRT2     RJM    WCC         WAIT FOR PREVIOUS REQUEST TO COMPLETE
05360  M01S05293.ddf     +++|          RJM    SNT         GET CONTENTS OF TRT
05361  M01S05294.ddf     +++|          STD    AB
05362  M01S05295.ddf     +++|          LDD    CM+4
05363  M01S05296.ddf     +++|          STD    AB+1
05364  M01S05297.ddf     +++|          LDM    DLSA
05365  M01S05298.ddf     +++|          STD    AB+3
05366  M01S05299.ddf     +++|          LDM    DLSA+1
05367  M01S05300.ddf     +++|          STD    AB+4
05368  M01S05301.ddf     +++|          LDD    TK
05369  M01S05302.ddf     +++|          SHN    -2
05370  M01S05303.ddf     +++|          RAD    AB+4
05371  M01S05304.ddf     +++|          SHN    -14
05372  M01S05305.ddf     +++|          RAD    AB+3
05373  M01S05306.ddf     +++|          LDM    BFMS
05374  M01S05307.ddf     +++|          STD    T5+3        (=CM)
05375  M01S05308.ddf     +++|          LDM    BFMS+1
05376  M01S05309.ddf     +++|          STD    T5+4        (=CM+1)
05377  M01S05310.ddf     +++|          LDD    BA
05378  M01S05311.ddf     +++|          SHN    6
05379  M01S05312.ddf     +++|          ADD    RA
05380  M01S05313.ddf     +++|          SHN    6
05381  M01S05314.ddf     +++|          ADD    BA+1
05382  M01S05315.ddf     +++|          CWD    T5          WRITE OUT EQUIPMENT AND CONTROL BYTES
05383  M01S05316.ddf     +++|          ADN    1
05384  M01S05317.ddf     +++|          CWD    AB
05385  M01S05318.ddf     +++|          ADN    1
05386  M01S05319.ddf     +++|          CWM    BFMS+2,HN   WRITE OUT CONTENTS OF BUFFER
05387  M01S05320.ddf     +++|          RJM    WCC         RESET (CM - CM+4)
05388  M01S05321.ddf     +++|          SOD    FN          DECREMENT COUNT
05389  M01S05322.ddf     +++|          MJN    PRT3        IF DONE
05390  M01S05323.ddf     +++|          RJM    SNS         SET NEXT SECTOR
05391  M01S05324.ddf     +++|          ZJN    PRT3        IF AT EOI
05392  M01S05325.ddf     +++|          LDN    1*2+1       SET FUNCTION CODE
05393  M01S05326.ddf     +++|          STD    CM+4
05394  M01S05327.ddf     +++|          LDD    RA
05395  M01S05328.ddf     +++|          SHN    6
05396  M01S05329.ddf     +++|          ADN    D
05397  M01S05330.ddf     +++|          CWD    CM
05398  M01S05331.ddf     +++|          RJM    RSB         READ NEXT SECTOR
05399  M01S05332.ddf     +++|          MJN    PRT4        IF ERROR
05400  M01S05333.ddf     +++|          LJM    PRT2        LOOP
05401  M01S05334.ddf     +++|
05402  M01S05335.ddf     +++| PRT3     LDN    1*2+1
05403  M01S05336.ddf     +++|          LJM    SCP         START CPU
05404  M01S05337.ddf     +++|
05405  M01S05338.ddf     +++| PRT4     LJM    RET         RETURN
05406  M01S05339.ddf     +++| RET      SPACE  4,10
05407  M01S05340.ddf     +++|***       RETURN.
05408  M01S05341.ddf     +++|*         RETURN THE LISTING FILE.
05409  M01S05342.ddf     +++|
05410  M01S05343.ddf     +++|
05411  M01S05344.ddf     +++| RET      COMMAND
05412  M01S05345.ddf     +++|          RJM    WCC         WAIT FOR PREVIOUS REQUEST TO COMPLETE
05413  M01S05346.ddf     +++|          LDN    6*2+1
05414  M01S05347.ddf     +++|          LJM    SCP         START CPU
05415  M01S05348.ddf     +++| REW      SPACE  4,10
05416  M01S05349.ddf     +++|***       REWIND.
05417  M01S05350.ddf     +++|*         REWIND THE LISTING FILE.
05418  M01S05351.ddf     +++|
05419  M01S05352.ddf     +++|
05420  M01S05353.ddf     +++| REW      COMMAND
05421  M01S05354.ddf     +++|          RJM    WCC         WAIT FOR PREVIOUS REQUEST TO COMPLETE
05422  M01S05355.ddf     +++|          LDN    4*2+1
05423  M01S05356.ddf     +++|          LJM    SCP         START CPU
05424  M01S05357.ddf     +++| SID      SPACE  4,10
05425  M01S05358.ddf     +++|***       SETID.NN.
05426  M01S05359.ddf     +++|*         SET THE ID FOR THE OUTPUT FILE TO NN.
05427  M01S05360.ddf     +++|
05428  M01S05361.ddf     +++|
05429  M01S05362.ddf     +++| SID      COMMAND
05430  M01S05363.ddf     +++|          RJM    WCC         WAIT FOR PREVIOUS REQUEST TO COMPLETE
05431  M01S05364.ddf     +++|          RJM    ASD         CONVERT ID
05432  M01S05365.ddf     +++|          LDD    BA
05433  M01S05366.ddf     +++|          SHN    6
05434  M01S05367.ddf     +++|          ADD    RA
05435  M01S05368.ddf     +++|          SHN    6
05436  M01S05369.ddf     +++|          ADD    BA+1
05437  M01S05370.ddf     +++|          CWD    AB
05438  M01S05371.ddf     +++|          LDN    7*2+1
05439  M01S05372.ddf     +++|          LJM    SCP         START CPU
05440  M01S05373.ddf     +++| SKL      SPACE  4,10
05441  M01S05374.ddf     +++|***       SKIPL.
05442  M01S05375.ddf     +++|*         POSITION TO THE END OF THE LISTING FILE.
05443  M01S05376.ddf     +++|
05444  M01S05377.ddf     +++|
05445  M01S05378.ddf     +++| SKL      COMMAND
05446  M01S05379.ddf     +++|          RJM    WCC         WAIT FOR PREVIOUS REQUEST TO COMPLETE
05447  M01S05380.ddf     +++|          LDN    5*2+1
05448  M01S05381.ddf     +++|          LJM    SCP         START CPU
05449  M01S05382.ddf     +++|          SPACE  4,10
05450  M01S05383.ddf     +++|          COMMAND
05451  M01S05384.ddf     +++|          SPACE  4,10
05452  M01S05385.ddf     +++|          OVERFLOW  /PRESET/OVL
05453  M01S05386.ddf     +++|          QUAL   *
05454  M01S05387.ddf     +++|          OVERLAY /PRESET/OVL,(LABEL/TRT RECONSTRUCTION PROCESSORS.)
05455  M01S05388.ddf     +++| OVL      SPACE  4,10
05456  M01S05389.ddf     +++|**        PRESET THE OVERLAY BY LOADING THE AUXILIARY COMMAND
05457  M01S05390.ddf     +++|*         PROCESSOR SUBROUTINES TO CM.
05458  M01S05391.ddf     +++|
05459  M01S05392.ddf     +++|
05460  M01S05393.ddf     +++| OVL      SUBR               ENTRY/EXIT
05461  M01S05394.ddf     +++|          LDN    /PRESET/LRRL  SET OVERLAY LENGTH
05462  M01S05395.ddf     +++|          STD    T1
05463  M01S05396.ddf     +++|          LDD    AB+3        SAVE CM ADDRESS
05464  M01S05397.ddf     +++|          STM    /PRESET/TCRO+LRRN*5+2
05465  M01S05398.ddf     +++|          LDD    AB+4
05466  M01S05399.ddf     +++|          STM    /PRESET/TCRO+LRRN*5+3
05467  M01S05400.ddf     +++|          LDD    AB+3        WRITE OVERLAY TO CM
05468  M01S05401.ddf     +++|          SHN    6
05469  M01S05402.ddf     +++|          ADD    RA
05470  M01S05403.ddf     +++|          SHN    6
05471  M01S05404.ddf     +++|          ADD    AB+4
05472  M01S05405.ddf     +++|          CWM    /PRESET/LRR,T1
05473  M01S05406.ddf     +++|          LDD    T1          UPDATE CM ADDRESS
05474  M01S05407.ddf     +++|          RAD    AB+4
05475  M01S05408.ddf     +++|          SHN    -14
05476  M01S05409.ddf     +++|          RAD    AB+3
05477  M01S05410.ddf     +++|          UJN    OVLX        EXIT
05478  M01S05411.ddf     +++|          SPACE  4,10
05479  M01S05412.ddf     +++|***       THE FOLLOWING COMMANDS CAN BE USED TO RECONSTRUCT THE LABEL
05480  M01S05413.ddf     +++|*         AND TRT OF A DEVICE THAT HAS LOST THEM.  THE COMMANDS WILL
05481  M01S05414.ddf     +++|*         NOT NECESSARILY RECOVER THE DEVICE CORRECTLY.  THE COMMANDS
05482  M01S05415.ddf     +++|*         (IN APPROXIMATE ORDER OF USE) ARE -
05483  M01S05416.ddf     +++|*
05484  M01S05417.ddf     +++|*           BEGINR  - BEGIN RECOVERY BY INITIALIZING TABLES;
05485  M01S05418.ddf     +++|*           RECOVER - SCAN DEVICE TO FIND FILES;
05486  M01S05419.ddf     +++|*           BLDTRT  - CHECK FOR LINKAGE ERRORS AND BUILD A SECTOR OF
05487  M01S05420.ddf     +++|*                     THE TRT FOR THE LABEL TRACK.
05488  M01S05421.ddf     +++|*           NEXTAT  - FIND AND READ NEXT AVAILABLE TRACK.
05489  M01S05422.ddf     +++|*                     (A TRACK WITH NO LINKAGE IN THE RECOVERY TABLES.)
05490  M01S05423.ddf     +++|*           NEXTSS  - FIND AND READ NEXT TRACK IN THE RECOVERY TABLE
05491  M01S05424.ddf     +++|*                     THAT BEGINS WITH A SYSTEM SECTOR.
05492  M01S05425.ddf     +++|*           SETTRT  - MODIFY POINTERS FOR RECOVER COMMAND.
05493  M01S05426.ddf     +++|*           SETRW   - MODIFY RECOVERY DATA FOR A TRACK.
05494  M01S05427.ddf     +++|*           BLDSL   - CREATE LABEL SECTOR FOR DEVICE.
05495  M01S05428.ddf     +++|*
05496  M01S05429.ddf     +++|*         THESE COMMANDS USE A RECOVERY TABLE IN CM TO KEEP TRACK OF
05497  M01S05430.ddf     +++|*         LINKAGES.  THE TABLE IS INITIALIZED BY THE *BEGINR.* COMMAND.
05498  M01S05431.ddf     +++|*         THE OTHER COMMANDS USE OR MODIFY THE DATA IN THE TABLE TO
05499  M01S05432.ddf     +++|*         EFFECT DEVICE RECOVERY.  THE TABLE IS FORMATTED AS FOLLOWS.
05500  M01S05433.ddf     +++|*
05501  M01S05434.ddf     +++|*
05502  M01S05435.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  M01S05436.ddf     +++|*
05504  M01S05437.ddf     +++|*
05505  M01S05438.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  M01S05439.ddf     +++|*         *FTSS* WORD.
05507  M01S05440.ddf     +++|*         *DTSS* WORD.                 (THREE WORDS FOR FNSS....DTSS)
05508  M01S05441.ddf     +++|*
05509  M01S05442.ddf     +++|*
05510  M01S05443.ddf     +++|*T,RCPW   12/FT, 12/PT, 12/SC, 24/UNUSED         (RECOVER POINTERS)
Figure RCPW

0232429UNUSED (RECOVER POINTERS)SC303536474859SCPTFT

05511  M01S05444.ddf     +++|*
05512  M01S05445.ddf     +++|*                FT - FIRST TRACK OF CURRENT CHAIN.
05513  M01S05446.ddf     +++|*                PT - PREVIOUS TRACK IN CHAIN.
05514  M01S05447.ddf     +++|*                SC - CURRENT SECTOR FOR EOI SEARCH AFTER ERROR.
05515  M01S05448.ddf     +++|*
05516  M01S05449.ddf     +++|*
05517  M01S05450.ddf     +++|*T,ICPW   12/FT, 12/PT, 36/UNUSED      (INDIRECT CHAIN POINTERS)
Figure ICPW

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

05518  M01S05451.ddf     +++|*
05519  M01S05452.ddf     +++|*                FT - FIRST TRACK OF INDIRECT CHAIN IN *BLDIC* COMMAND.
05520  M01S05453.ddf     +++|*                PT - PREVIOUS TRACK OF INDIRECT CHAIN.
05521  M01S05454.ddf     +++|*
05522  M01S05455.ddf     +++|*
05523  M01S05456.ddf     +++|*T,BSPW   12/TT, 12/SC, 12/FT, 12/NF, 12/TL  (BUILD POINTERS)
Figure BSPW

01112232429TL (BUILD POINTERS)NFFT303536474859FTSCTT

05524  M01S05457.ddf     +++|*
05525  M01S05458.ddf     +++|*                TT - DESTINATION TRACK FOR WRITING TRT.
05526  M01S05459.ddf     +++|*                SC - SECTOR FOR CURRENT PIECE OF TRT.
05527  M01S05460.ddf     +++|*                FT - FIRST TRACK FOR CURRENT PIECE OF TRT.
05528  M01S05461.ddf     +++|*                NF - DAF FILE COUNT.
05529  M01S05462.ddf     +++|*                TL - TRT LENGTH FROM MST.
05530  M01S05463.ddf     +++|*
05531  M01S05464.ddf     +++|*
05532  M01S05465.ddf     +++|*         TWO RESERVED WORDS FOLLOW.
05533  M01S05466.ddf     +++|*
05534  M01S05467.ddf     +++|*
05535  M01S05468.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  M01S05469.ddf     +++|*                (MSTL+10 WORD FROM BEGINNING OF MST AREA.)
05537  M01S05470.ddf     +++|*                (ONE WORD PER TRACK AS FOLLOWS)
05538  M01S05471.ddf     +++|*
05539  M01S05472.ddf     +++|*T        6/TY, 1/RE, 1/SS, 1/FL, 1/, 2/EI, 12/FT, 12/PT, 12/NT, 12/LC
Figure

01112232429LCNTPT303536474849505152535459PTFTEIFLSSRETY

05540  M01S05473.ddf     +++|*
05541  M01S05474.ddf     +++|*                TY - FILE TYPE FROM SYSTEM SECTOR.
05542  M01S05475.ddf     +++|*                RE - READ ERROR DETECTED IN TRACK.
05543  M01S05476.ddf     +++|*                SS - SYSTEM SECTOR IN TRACK AT OTHER THAN SECTOR ZERO.
05544  M01S05477.ddf     +++|*                FL - FLAWED TRACK INDICATOR.
05545  M01S05478.ddf     +++|*                EI - EOI STATUS FOR TRACK.
05546  M01S05479.ddf     +++|*                     =0 - NO EOI.
05547  M01S05480.ddf     +++|*                     =1 - NORMAL EOI IN TRACK.
05548  M01S05481.ddf     +++|*                     =2 - EOI, WRITTEN BY IMS.
05549  M01S05482.ddf     +++|*                FT - FIRST TRACK OF CHAIN LINKED TO THIS TRACK.
05550  M01S05483.ddf     +++|*                PT - FIRST TRACK ENCOUNTERED LINKED TO THIS ONE.
05551  M01S05484.ddf     +++|*                     ((PT) = CURRENT TRACK IF START OF FILE)
05552  M01S05485.ddf     +++|*                NT - NEXT TRACK OR EOI SECTOR NUMBER.
05553  M01S05486.ddf     +++|*                LC - LINKAGE COUNT. (NUMBER OF TRACKS LINKED
05554  M01S05487.ddf     +++|*                     TO THIS TRACK.)
05555  M01S05488.ddf     +++|          SPACE  4,10
05556  M01S05489.ddf     +++|**        LINKAGE RECOVERY DEFINITIONS.
05557  M01S05490.ddf     +++|*
05558  M01S05491.ddf     +++|*         THE FOLLOWING SYMBOLS ARE USED TO REFERENCE THE
05559  M01S05492.ddf     +++|*         CM RECOVERY TABLES.
05560  M01S05493.ddf     +++|
05561  M01S05494.ddf     +++|
05562  M01S05495.ddf     +++|          QUAL
05563  M01S05496.ddf     +++| SSDW     EQU    MSTL+0      SYSTEM SECTOR DATA WORDS
05564  M01S05497.ddf     +++| RCPW     EQU    MSTL+3      RECOVERY POINTER WORD
05565  M01S05498.ddf     +++| ICPW     EQU    MSTL+4      INDIRECT CHAIN RECOVERY POINTER WORD
05566  M01S05499.ddf     +++| BSPW     EQU    MSTL+5      BUILD SECTOR POINTER WORD
05567  M01S05500.ddf     +++|*                MSTL+6      SPARE
05568  M01S05501.ddf     +++|*                MSTL+7      SPARE
05569  M01S05502.ddf     +++| TRCT     EQU    MSTL+10     TRACK RECOVERY TABLE
05570  M01S05503.ddf     +++|
05571  M01S05504.ddf     +++| CRAL     EQU    TRCT+4077   CM RECOVERY AREA LENGTH
05572  M01S05505.ddf     +++|          QUAL   *
05573  M01S05506.ddf     +++|          SPACE  4,10
05574  M01S05507.ddf     +++|**        DIRECT CELL USAGE CONVENTIONS.
05575  M01S05508.ddf     +++|*
05576  M01S05509.ddf     +++|*         (FN - FN+4) = RECOVERY POINTERS.
05577  M01S05510.ddf     +++|*                     = (RCPW) FOR BEGINR, NEXXTAT, NEXTSS, RECOVER.
05578  M01S05511.ddf     +++|*                     = (ICPW) FOR BLDIC.  (NOT YET IMPLEMENTED)
05579  M01S05512.ddf     +++|*                     = (BSPW) FOR BLDSL, BLDTRT.
05580  M01S05513.ddf     +++|*         (AB - AB+4) = RECOVERY WORD FOR CURRENT TRACK.
05581  M01S05514.ddf     +++| BTR      SPACE  4,10
05582  M01S05515.ddf     +++|***       BEGINR.
05583  M01S05516.ddf     +++|*         BEGIN TRACK RECOVERY FOR THE CURRENT SELECTED EQUIPMENT BY
05584  M01S05517.ddf     +++|*         RESERVING AND CLEARING THE CM RECOVERY TABLES.
05585  M01S05518.ddf     +++|*         THE EQUIPMENT TO BE RECOVERED MUST BE REMOVABLE AND UNLOADED.
05586  M01S05519.ddf     +++|*         THE MST IN CMR FOR THE SELECTED EQUIPMENT IS USED TO
05587  M01S05520.ddf     +++|*         INITIALIZE THE MST FOR THE LABEL TRACK BUILT BY THE RECOVERY
05588  M01S05521.ddf     +++|*         COMMANDS.  BE SURE THE EQUIPMENT MNEMONIC IN THE *E,M*
05589  M01S05522.ddf     +++|*         DISPLAY MATCHES THE PACK TO BE RECOVERED.  IF THIS COMMAND IS
05590  M01S05523.ddf     +++|*         USED AGAIN, RECOVERY IS RESTARTED FOR THE CURRENT EQUIPMENT.
05591  M01S05524.ddf     +++|
05592  M01S05525.ddf     +++|
05593  M01S05526.ddf     +++| BTR      COMMAND
05594  M01S05527.ddf     +++|          LDD    RT
05595  M01S05528.ddf     +++|          NJN    BTR2        IF NOT FIRST USE OF *BEGINR.*
05596  M01S05529.ddf     +++|          LDD    FL          REQUEST STORAGE FOR TABLE
05597  M01S05530.ddf     +++|          STD    RT          SAVE TABLE ADDRESS
05598  M01S05531.ddf     +++|          ADN    CRAL/100B
05599  M01S05532.ddf     +++|          STD    AB
05600  M01S05533.ddf     +++|          LDD    CP
05601  M01S05534.ddf     +++|          ADN    MS1W
05602  M01S05535.ddf     +++|          CWM    BTRA,TR     * WAITING FOR MEMORY.*
05603  M01S05536.ddf     +++| BTR1     LDN    ZERL        REQUEST STORAGE FOR RECOVERY TABLE
05604  M01S05537.ddf     +++|          CRD    CM
05605  M01S05538.ddf     +++|          LDD    AB
05606  M01S05539.ddf     +++|          STD    CM+1
05607  M01S05540.ddf     +++|          MONITOR  RSTM
05608  M01S05541.ddf     +++|          RJM    PSS         PAUSE
05609  M01S05542.ddf     +++|          LDD    AB
05610  M01S05543.ddf     +++|          LMD    FL
05611  M01S05544.ddf     +++|          NJN    BTR1        IF MEMORY NOT OBTAINED
05612  M01S05545.ddf     +++| BTR2     LDN    DFBN        SET DEFAULT DISPLAY AND LOAD SUBROUTINES
05613  M01S05546.ddf     +++|          STD    RS
05614  M01S05547.ddf     +++|          LDN    LRRN        OVERLAY CONTROL WORD INDEX
05615  M01S05548.ddf     +++|          RJM    LDO         LOAD OVERLAY
05616  M01S05549.ddf     +++|          SFA    EST,EQ      READ EST ENTRY
05617  M01S05550.ddf     +++|          ADK    EQDE
05618  M01S05551.ddf     +++|          CRD    CM
05619  M01S05552.ddf     +++|          LDN    MSTL        SET UP MST SKELTON FOR RECOVERY
05620  M01S05553.ddf     +++|          STD    T1
05621  M01S05554.ddf     +++|          LDD    CM+4        GET MST ADDRESS
05622  M01S05555.ddf     +++|          SHN    3
05623  M01S05556.ddf     +++|          CRM    EPFW,T1
05624  M01S05557.ddf     +++|          RJM    MST         SET MST AREA
05625  M01S05558.ddf     +++|          LDD    RA          WRITE MST TO RECOVERY TABLE
05626  M01S05559.ddf     +++|          ADD    RT
05627  M01S05560.ddf     +++|          SHN    6
05628  M01S05561.ddf     +++|          CWM    EPFW,T1
05629  M01S05562.ddf     +++|          LDN    ZERL
05630  M01S05563.ddf     +++|          CRD    AB          CLEAR RECOVERY WORDS
05631  M01S05564.ddf     +++|          CRD    FN
05632  M01S05565.ddf     +++|          LDD    CP          CLEAR MESSAGE
05633  M01S05566.ddf     +++|          ADN    MS1W
05634  M01S05567.ddf     +++|          CWD    FN
05635  M01S05568.ddf     +++| BTR3     LDD    RA          CLEAR RECOVERY TABLE
05636  M01S05569.ddf     +++|          ADD    RT
05637  M01S05570.ddf     +++|          SHN    6
05638  M01S05571.ddf     +++|          ADD    T1
05639  M01S05572.ddf     +++|          CWD    FN
05640  M01S05573.ddf     +++|          AOD    T1
05641  M01S05574.ddf     +++|          ADC    -CRAL
05642  M01S05575.ddf     +++|          MJN    BTR3        IF MORE TO CLEAR
05643  M01S05576.ddf     +++|          LDC    4000-1      SET INITIAL TRACK
05644  M01S05577.ddf     +++|          STD    FN
05645  M01S05578.ddf     +++|          RJM    /LRR/SRP    SAVE RECOVERY POINTERS
05646  M01S05579.ddf     +++|          AOD    FN          READ FIRST SECTOR
05647  M01S05580.ddf     +++|          STD    TK
05648  M01S05581.ddf     +++|          LDN    0
05649  M01S05582.ddf     +++|          STD    SC
05650  M01S05583.ddf     +++|          RJM    RSB         READ SECTOR TO BUFFER
05651  M01S05584.ddf     +++|          LJM    RET         RETURN
05652  M01S05585.ddf     +++|
05653  M01S05586.ddf     +++|
05654  M01S05587.ddf     +++| BTRA     DATA   C* WAITING FOR MEMORY.*
05655  M01S05588.ddf     +++| MST      SPACE  4,10
05656  M01S05589.ddf     +++|**        MST - SET MST RECOVERY TABLE.
05657  M01S05590.ddf     +++|*
05658  M01S05591.ddf     +++|*         ENTRY  (EPFW - EPFW+MSTL) = MST IMAGE.
05659  M01S05592.ddf     +++|*
05660  M01S05593.ddf     +++|*         EXIT   MST SET FOR RECOVERY OPERATIONS.
05661  M01S05594.ddf     +++|*
05662  M01S05595.ddf     +++|*         USES   T3.
05663  M01S05596.ddf     +++|
05664  M01S05597.ddf     +++|
05665  M01S05598.ddf     +++| MST      SUBR               ENTRY/EXIT
05666  M01S05599.ddf     +++|          LDC    EPFW+ALGL*5
05667  M01S05600.ddf     +++|          STD    T3
05668  M01S05601.ddf     +++|          LDC    /LSD/FLTK
05669  M01S05602.ddf     +++|          STM    1,T3
05670  M01S05603.ddf     +++|          LDN    0
05671  M01S05604.ddf     +++|          STI    T3          CLEAR INDIRECT POINTER
05672  M01S05605.ddf     +++|          STM    2,T3        CLEAR PERMITS POINTER
05673  M01S05606.ddf     +++|          STM    3,T3        CLEAR CATALOG TRACK COUNT
05674  M01S05607.ddf     +++|          STM    4,T3        CLEAR *DAT* POINTER
05675  M01S05608.ddf     +++| .1       SET    STLL-ALGL
05676  M01S05609.ddf     +++|          LDN    .1*5
05677  M01S05610.ddf     +++|          RAD    T3
05678  M01S05611.ddf     +++|          LDN    2
05679  M01S05612.ddf     +++|          STI    T3          CLEAR INITIALIZE REQUESTS
05680  M01S05613.ddf     +++|          LDN    0
05681  M01S05614.ddf     +++|          STM    1,T3        CLEAR ERROR STATUS
05682  M01S05615.ddf     +++|          STM    3,T3        CLEAR DAF USER COUNT
05683  M01S05616.ddf     +++|          LJM    MSTX        RETURN
05684  M01S05617.ddf     +++| BLS      SPACE  4,20
05685  M01S05618.ddf     +++|***       BLDSL.
05686  M01S05619.ddf     +++|*         BUILDS A LABEL SECTOR IMAGE IN THE DATA BUFFER FROM DATA
05687  M01S05620.ddf     +++|*         IN THE CM RECOVERY TABLE.  ONCE THE OTHER RECOVERY COMMANDS
05688  M01S05621.ddf     +++|*         HAVE COMPLETED, THE MEMORY CHANGE COMMANDS CAN FILL IN ANY
05689  M01S05622.ddf     +++|*         MISSING DATA.  THE BUFFER CAN THEN BE WRITTEN TO DISK WITH
05690  M01S05623.ddf     +++|*         THE WRITE COMMAND.
05691  M01S05624.ddf     +++|*
05692  M01S05625.ddf     +++|*         NOTE - IF THIS COMMAND IS USED AFTER THE *RECOVER* COMMAND
05693  M01S05626.ddf     +++|*         COMPLETES, THE MST IN THE DATA BUFFER WILL SHOW THE
05694  M01S05627.ddf     +++|*         POINTERS TO THE FIRST TRACK OF THE PERMIT DATA AND INDIRECT
05695  M01S05628.ddf     +++|*         PF CHAIN.  SINCE THE *RECOVER* COMMAND IS UNABLE TO FIND THE
05696  M01S05629.ddf     +++|*         CATALOG TRACK CHAIN, THESE POINTERS ARE HELPFUL IN LOCATING
05697  M01S05630.ddf     +++|*         THE CATALOG TRACK CHAIN, WHICH IS ALLOCATED BY *IMS*
05698  M01S05631.ddf     +++|*         IMMEDIATELY PRECEEDING THESE TWO TRACKS.  THIS ONLY APPLIES
05699  M01S05632.ddf     +++|*         TO THE INITIAL CATALOG TRACKS.  OVERFLOW TRACKS ARE LINKED
05700  M01S05633.ddf     +++|*         THRU THE LAST SECTOR OF ONE OF THE INITIAL TRACKS.
05701  M01S05634.ddf     +++|
05702  M01S05635.ddf     +++|
05703  M01S05636.ddf     +++| BLS      COMMAND
05704  M01S05637.ddf     +++|          LDD    RT
05705  M01S05638.ddf     +++|          NJN    BLS1        IF RECOVERY TABLES NOT PRESENT
05706  M01S05639.ddf     +++|          LJM    ERR4        *INCORRECT COMMAND.*
05707  M01S05640.ddf     +++|
05708  M01S05641.ddf     +++| BLS1     LDN    DFBN        SET DEFAULT DISPLAY AND LOAD SUBROUTINES
05709  M01S05642.ddf     +++|          STD    RS
05710  M01S05643.ddf     +++|          LDN    LRRN        OVERLAY CONTROL WORD INDEX
05711  M01S05644.ddf     +++|          RJM    LDO         LOAD OVERLAY
05712  M01S05645.ddf     +++|          LDC    3777        SET LINKAGE FOR SYSTEM SECTOR
05713  M01S05646.ddf     +++|          STM    BFMS
05714  M01S05647.ddf     +++|          LDN    77
05715  M01S05648.ddf     +++|          STM    BFMS+1
05716  M01S05649.ddf     +++| BLS2     LDN    ZERL        CLEAR SECTOR BUFFER
05717  M01S05650.ddf     +++|          CRM    FNSS,ON
05718  M01S05651.ddf     +++| BLSA     EQU    *-1
05719  M01S05652.ddf     +++|          LDN    5           ADVANCE BUFFER ADDRESS
05720  M01S05653.ddf     +++|          RAM    BLSA
05721  M01S05654.ddf     +++|          LMC    BFMS+2+100*5
05722  M01S05655.ddf     +++|          NJN    BLS2        IF CLEAR INCOMPLETE
05723  M01S05656.ddf     +++|          LDN    2
05724  M01S05657.ddf     +++|          STD    T1
05725  M01S05658.ddf     +++| BLS3     LDM    BLSB,T1     SET FILE NAME = *LABEL*
05726  M01S05659.ddf     +++|          STM    FNSS,T1
05727  M01S05660.ddf     +++|          SOD    T1
05728  M01S05661.ddf     +++|          PJN    BLS3        IF COPY INCOMPLETE
05729  M01S05662.ddf     +++|          LDC    SYFT*1S6    SET FILE TYPE
05730  M01S05663.ddf     +++|          STM    FNSS+4
05731  M01S05664.ddf     +++|          LDD    EQ          SET EQUIPMENT ORDINAL
05732  M01S05665.ddf     +++|          STM    FTSS-1
05733  M01S05666.ddf     +++|          LDN    PDTL        SET DATE AND TIME
05734  M01S05667.ddf     +++|          CRM    DTSS,ON
05735  M01S05668.ddf     +++|          LDN    1
05736  M01S05669.ddf     +++|          STM    NSSS        SET NEXT SECTOR
05737  M01S05670.ddf     +++|          STM    DTSS        SET FLAG
05738  M01S05671.ddf     +++|          STM    /LSD/LLSS   SET LABEL LEVEL
05739  M01S05672.ddf     +++|          SFA    EST,EQ      READ EST ENTRY
05740  M01S05673.ddf     +++|          ADK    EQDE
05741  M01S05674.ddf     +++|          CRD    CM
05742  M01S05675.ddf     +++|          LDD    CM+3        SET EQUIPMENT MNEMONIC
05743  M01S05676.ddf     +++|          STM    /LSD/E4SS
05744  M01S05677.ddf     +++|          LDN    MSTL        READ MST FROM RECOVERY AREA
05745  M01S05678.ddf     +++|          STD    T1
05746  M01S05679.ddf     +++|          LDD    RA
05747  M01S05680.ddf     +++|          ADD    RT
05748  M01S05681.ddf     +++|          SHN    6
05749  M01S05682.ddf     +++|          CRM    /LSD/N4SS,T1
05750  M01S05683.ddf     +++|          LDM    /LSD/N4SS+ALGL*5+1  SET LABEL TRACK AND SECTOR
05751  M01S05684.ddf     +++|          STD    TK
05752  M01S05685.ddf     +++|          STM    FTSS
05753  M01S05686.ddf     +++|          LDN    0
05754  M01S05687.ddf     +++|          STD    SC
05755  M01S05688.ddf     +++|          LJM    RET         RETURN
05756  M01S05689.ddf     +++|
05757  M01S05690.ddf     +++|
05758  M01S05691.ddf     +++| BLSB     DATA   Z*LABEL*
05759  M01S05692.ddf     +++| BRS      SPACE  4,10
05760  M01S05693.ddf     +++|***       BLDSTRT.
05761  M01S05694.ddf     +++|*         BUILD NEXT SECTOR OF TRT DATA FOR LABEL TRACK.  AFTER LAST
05762  M01S05695.ddf     +++|*         SECTOR IS BUILT, THE POINTERS ARE RESET FOR THE FIRST SECTOR
05763  M01S05696.ddf     +++|*         AGAIN.  TRACK AND SECTOR ARE SET FOR *WRITE* COMMAND.
05764  M01S05697.ddf     +++|*
05765  M01S05698.ddf     +++|*         BLDSTRT.N.
05766  M01S05699.ddf     +++|*         BUILD SECTOR *N* OF TRT DATA FOR LABEL TRACK.  (N .GE. 1)
05767  M01S05700.ddf     +++|*
05768  M01S05701.ddf     +++|*         NOTE   IT WILL BE NECESSARY TO MANUALLY GENERATE THE EOI
05769  M01S05702.ddf     +++|*                SECTOR FOR THE LABEL TRACK.
05770  M01S05703.ddf     +++|
05771  M01S05704.ddf     +++|
05772  M01S05705.ddf     +++| BRS      COMMAND
05773  M01S05706.ddf     +++|          LDD    RT
05774  M01S05707.ddf     +++|          NJN    BRS1        IF TABLES NOT ALLOCATED
05775  M01S05708.ddf     +++|          LJM    ERR4        *INCORRECT ENTRY.*
05776  M01S05709.ddf     +++|
05777  M01S05710.ddf     +++| BRS1     LDN    DFBN        SET DEFAULT DISPLAY AND LOAD SUBROUTINES
05778  M01S05711.ddf     +++|          STD    RS
05779  M01S05712.ddf     +++|          LDN    LRRN        OVERLAY CONTROL WORD INDEX
05780  M01S05713.ddf     +++|          RJM    LDO         LOAD OVERLAY
05781  M01S05714.ddf     +++|          LDN    BSPW-RCPW   SET POINTER INDEX
05782  M01S05715.ddf     +++|          RAM    /LRR/RRPA
05783  M01S05716.ddf     +++|          STM    /LRR/SRPA
05784  M01S05717.ddf     +++|          RJM    /LRR/RRP    RESTORE RECOVERY POINTERS
05785  M01S05718.ddf     +++|          LDD    FN
05786  M01S05719.ddf     +++|          NJN    BRS2        IF NOT INITIAL ENTRY
05787  M01S05720.ddf     +++|          STD    FN+1
05788  M01S05721.ddf     +++|          LDD    RA          GET LABEL TRACK FROM MST
05789  M01S05722.ddf     +++|          ADD    RT
05790  M01S05723.ddf     +++|          SHN    6
05791  M01S05724.ddf     +++|          ADN    ALGL
05792  M01S05725.ddf     +++|          CRD    CM
05793  M01S05726.ddf     +++|          LDD    CM+1
05794  M01S05727.ddf     +++|          STD    FN
05795  M01S05728.ddf     +++| BRS2     LDI    CA          CHECK PARAMETER
05796  M01S05729.ddf     +++|          ZJN    BRS3        IF NO SECTOR SPECIFIED
05797  M01S05730.ddf     +++|          SBN    1R1
05798  M01S05731.ddf     +++|          MJN    BRS4        IF ILLEGAL SECTOR NUMBER
05799  M01S05732.ddf     +++|          STD    FN+1
05800  M01S05733.ddf     +++| BRS3     AOD    FN+1        ADVANCE SECTOR
05801  M01S05734.ddf     +++|          SBN    1
05802  M01S05735.ddf     +++|          SHN    10          (400B  TK/PRU)
05803  M01S05736.ddf     +++|          ADC    4000
05804  M01S05737.ddf     +++|          STD    FN+2        SET STARTING TRACK
05805  M01S05738.ddf     +++|          SBD    LT
05806  M01S05739.ddf     +++|          MJN    BRS5        IF LEGAL SECTOR
05807  M01S05740.ddf     +++| BRS4     LJM    ERR2        *INCORRECT PARAMETER*
05808  M01S05741.ddf     +++|
05809  M01S05742.ddf     +++|*         CHECK ALL TRACKS FOR ERRORS.
05810  M01S05743.ddf     +++|
05811  M01S05744.ddf     +++| BRS5     RJM    CLE         CHECK FOR LINKAGE ERRORS
05812  M01S05745.ddf     +++|          RJM    BTS         BUILD TRT SECTOR
05813  M01S05746.ddf     +++|          LDM    BFMS+1
05814  M01S05747.ddf     +++|          LMC    100
05815  M01S05748.ddf     +++|          ZJN    BRS8        IF SECTOR FULL, NOT END OF TRT
05816  M01S05749.ddf     +++|
05817  M01S05750.ddf     +++|*         COMPLETE LAST SECTOR OF TRT.
05818  M01S05751.ddf     +++|
05819  M01S05752.ddf     +++|          LDD    TK
05820  M01S05753.ddf     +++|          LPN    3
05821  M01S05754.ddf     +++|          ZJN    BRS7        IF LAST WORD FULL
05822  M01S05755.ddf     +++| BRS6     LDC    3777        SET UNUSABLE TRACKS AS FLAWED
05823  M01S05756.ddf     +++|          STI    T3
05824  M01S05757.ddf     +++|          AOD    T3
05825  M01S05758.ddf     +++|          LDD    RC
05826  M01S05759.ddf     +++|          SHN    1
05827  M01S05760.ddf     +++|          LMN    1
05828  M01S05761.ddf     +++|          STD    RC
05829  M01S05762.ddf     +++|          AOD    TK
05830  M01S05763.ddf     +++|          LPN    3
05831  M01S05764.ddf     +++|          NJN    BRS6        IF NOT END OF WORD
05832  M01S05765.ddf     +++|          LDD    RC          SAVE TRACK STATUS BYTE
05833  M01S05766.ddf     +++|          STI    T3
05834  M01S05767.ddf     +++|          AOD    T3
05835  M01S05768.ddf     +++|          AOM    BFMS+1      INCREMENT SECTOR WORD COUNT
05836  M01S05769.ddf     +++| BRS7     LDN    0           CLEAR REMAINDER OF LAST SECTOR
05837  M01S05770.ddf     +++|          STI    T3
05838  M01S05771.ddf     +++|          AOD    T3
05839  M01S05772.ddf     +++|          ADC    -BFMS-2-100*5
05840  M01S05773.ddf     +++|          MJN    BRS7        IF NOT END OF SECTOR
05841  M01S05774.ddf     +++|          LDN    0           RESET POINTER TO START OVER
05842  M01S05775.ddf     +++|          STD    FN
05843  M01S05776.ddf     +++|
05844  M01S05777.ddf     +++|*         SET POINTERS AND RETURN.
05845  M01S05778.ddf     +++|
05846  M01S05779.ddf     +++| BRS8     LDD    TK          SAVE NEXT TRACK
05847  M01S05780.ddf     +++|          STD    FN+2
05848  M01S05781.ddf     +++|          LDD    FN          SET DESTINATION ADDRESS
05849  M01S05782.ddf     +++|          STD    TK
05850  M01S05783.ddf     +++|          LDD    FN+1        SET SECTOR
05851  M01S05784.ddf     +++|          STD    SC
05852  M01S05785.ddf     +++|          LDD    RA          SAVE POINTERS
05853  M01S05786.ddf     +++|          ADD    RT
05854  M01S05787.ddf     +++|          SHN    6
05855  M01S05788.ddf     +++|          ADN    BSPW
05856  M01S05789.ddf     +++|          CWD    FN
05857  M01S05790.ddf     +++|          LJM    RET         RETURN
05858  M01S05791.ddf     +++| BTS      SPACE  4,10
05859  M01S05792.ddf     +++|**        BTS - BUILD TRT SECTOR.
05860  M01S05793.ddf     +++|*
05861  M01S05794.ddf     +++|*         BUILD A SECTOR OF TRT FROM RECOVERY TABLE.
05862  M01S05795.ddf     +++|
05863  M01S05796.ddf     +++|
05864  M01S05797.ddf     +++| BTS      SUBR               ENTRY/EXIT
05865  M01S05798.ddf     +++|          LDD    FN+1        SET LINK
05866  M01S05799.ddf     +++|          ADN    1
05867  M01S05800.ddf     +++|          STM    BFMS
05868  M01S05801.ddf     +++|          LDN    0
05869  M01S05802.ddf     +++|          STD    RC
05870  M01S05803.ddf     +++|          STM    BFMS+1
05871  M01S05804.ddf     +++|          LDC    BFMS+2
05872  M01S05805.ddf     +++|          STD    T3
05873  M01S05806.ddf     +++|          LDD    FN+2
05874  M01S05807.ddf     +++|          STD    TK
05875  M01S05808.ddf     +++|
05876  M01S05809.ddf     +++|*         BUILD TRT FROM RECOVERY TABLE.
05877  M01S05810.ddf     +++|
05878  M01S05811.ddf     +++| BTS1     RJM    /LRR/STA    SET TABLE ADDRESS
05879  M01S05812.ddf     +++|          CRD    AB          READ TRACK RECOVERY WORD
05880  M01S05813.ddf     +++|          LDD    AB
05881  M01S05814.ddf     +++|          LPN    10
05882  M01S05815.ddf     +++|          ZJN    BTS2        IF NOT FLAWED TRACK
05883  M01S05816.ddf     +++|          LDC    3777        SET FLAWED TRACK
05884  M01S05817.ddf     +++|          STI    T3
05885  M01S05818.ddf     +++|          UJN    BTS4        SET STATUS
05886  M01S05819.ddf     +++|
05887  M01S05820.ddf     +++| BTS2     LDD    AB+3
05888  M01S05821.ddf     +++|          STI    T3
05889  M01S05822.ddf     +++|          LDD    AB
05890  M01S05823.ddf     +++|          SCN    77
05891  M01S05824.ddf     +++|          ZJN    BTS3        IF NOT FIRST TRACK OF FILE
05892  M01S05825.ddf     +++|          LDC    401
05893  M01S05826.ddf     +++|          UJN    BTS5        SET TRACK STATUS
05894  M01S05827.ddf     +++|
05895  M01S05828.ddf     +++| BTS3     LDD    AB+3
05896  M01S05829.ddf     +++|          ZJN    BTS5        IF TRACK NOT LINKED
05897  M01S05830.ddf     +++| BTS4     LDN    1           SET TRACK STATUS
05898  M01S05831.ddf     +++| BTS5     SHN    21          MERGE STATUS
05899  M01S05832.ddf     +++|          LMD    RC
05900  M01S05833.ddf     +++|          SHN    1
05901  M01S05834.ddf     +++|          STD    RC
05902  M01S05835.ddf     +++|          AOD    T3          ADVANCE TRACK POINTERS
05903  M01S05836.ddf     +++|          AOD    TK
05904  M01S05837.ddf     +++|          LPN    3
05905  M01S05838.ddf     +++|          NJN    BTS6        IF TRT WORD NOT COMPLETE
05906  M01S05839.ddf     +++|          LDD    RC          STORE TRACK STATUS BYTE
05907  M01S05840.ddf     +++|          STI    T3
05908  M01S05841.ddf     +++|          AOD    T3
05909  M01S05842.ddf     +++|          LDN    0
05910  M01S05843.ddf     +++|          STD    RC
05911  M01S05844.ddf     +++|          AOM    BFMS+1      INCREMENT SECTOR WORD COUNT
05912  M01S05845.ddf     +++|          LMC    100
05913  M01S05846.ddf     +++|          ZJN    BTS7        IF SECTOR FULL
05914  M01S05847.ddf     +++| BTS6     LDD    TK
05915  M01S05848.ddf     +++|          LMD    LT
05916  M01S05849.ddf     +++|          ZJN    BTS7        IF END OF TRT
05917  M01S05850.ddf     +++|          LJM    BTS1        PROCESS NEXT ENTRY
05918  M01S05851.ddf     +++|
05919  M01S05852.ddf     +++| BTS7     LJM    BTSX        RETURN
05920  M01S05853.ddf     +++| CLE      SPACE  4,10
05921  M01S05854.ddf     +++|**        CLE - CHECK FOR LINKAGE ERRORS.
05922  M01S05855.ddf     +++|*
05923  M01S05856.ddf     +++|*         VERIFY THAT ALL TRACKS RESERVED HAVE UNIQUE LINKAGE.
05924  M01S05857.ddf     +++|
05925  M01S05858.ddf     +++|
05926  M01S05859.ddf     +++| CLE      SUBR               ENTRY/EXIT
05927  M01S05860.ddf     +++|          LDC    4000
05928  M01S05861.ddf     +++|          STD    TK
05929  M01S05862.ddf     +++| CLE1     RJM    /LRR/STA    SET TABLE ADDRESS
05930  M01S05863.ddf     +++|          CRD    AB          READ TRACK RECOVERY WORD
05931  M01S05864.ddf     +++|          LDD    AB
05932  M01S05865.ddf     +++|          LPN    64
05933  M01S05866.ddf     +++|          NJN    CLE2        IF ERRORS
05934  M01S05867.ddf     +++|          LDD    AB+4
05935  M01S05868.ddf     +++|          SBN    2
05936  M01S05869.ddf     +++|          MJN    CLE3        IF LINKAGE UNIQUE
05937  M01S05870.ddf     +++| CLE2     LDC    CLEA        *ERROR IN TRACK STATUS.*
05938  M01S05871.ddf     +++|          LJM    ERR         OUTPUT MESSAGE
05939  M01S05872.ddf     +++|
05940  M01S05873.ddf     +++| CLE3     AOD    TK
05941  M01S05874.ddf     +++|          SBD    LT
05942  M01S05875.ddf     +++|          MJN    CLE1        IF ALL TRACKS NOT CHECKED
05943  M01S05876.ddf     +++|          UJN    CLEX        RETURN - NO ERRORS
05944  M01S05877.ddf     +++|
05945  M01S05878.ddf     +++|
05946  M01S05879.ddf     +++| CLEA     DATA   Z*ERROR IN TRACK STATUS.*
05947  M01S05880.ddf     +++| NAT      SPACE  4,10
05948  M01S05881.ddf     +++|***       NEXTAT.
05949  M01S05882.ddf     +++|*         LOCATES THE NEXT AVAILABLE TRACK ON THE CURRENT EQUIPMENT,
05950  M01S05883.ddf     +++|*         AND READS THE FIRST SECTOR OF THE TRACK.  THE SEARCH BEGINS
05951  M01S05884.ddf     +++|*         AT THE DISPLAYED TRACK POINTER+1.  BY RESETTING THE TRACK
05952  M01S05885.ddf     +++|*         POINTER TO TRACK ZERO, AND USING THIS COMMAND, UNRESERVED
05953  M01S05886.ddf     +++|*         TRACKS CAN BE FOUND AND CHECKED FOR BEING PART OF THE
05954  M01S05887.ddf     +++|*         CATALOG TRACK CHAIN OR INDIRECT FILE CHAIN.
05955  M01S05888.ddf     +++|
05956  M01S05889.ddf     +++|
05957  M01S05890.ddf     +++| NAT      COMMAND
05958  M01S05891.ddf     +++|          LDD    RT
05959  M01S05892.ddf     +++|          NJN    NAT1        IF TABLES ALLOCATED
05960  M01S05893.ddf     +++|          LJM    ERR4        *INCORRECT ENTRY.*
05961  M01S05894.ddf     +++|
05962  M01S05895.ddf     +++| NAT1     LDN    DFBN        SET DEFAULT DISPLAY AND LOAD SUBROUTINES
05963  M01S05896.ddf     +++|          STD    RS
05964  M01S05897.ddf     +++|          LDN    LRRN        OVERLAY CONTROL WORD INDEX
05965  M01S05898.ddf     +++|          RJM    LDO         LOAD OVERLAY
05966  M01S05899.ddf     +++|          RJM    /LRR/RRP    RESTORE RECOVERY POINTERS
05967  M01S05900.ddf     +++|          UJN    NAT3        ENTER LOOP
05968  M01S05901.ddf     +++|
05969  M01S05902.ddf     +++| NAT2     RJM    /LRR/STA    SET TABLE ADDRESS
05970  M01S05903.ddf     +++|          CRD    AB          READ TRACK RECOVERY WORD
05971  M01S05904.ddf     +++|          LDD    AB+1        CHECK FOR LINK
05972  M01S05905.ddf     +++|          ZJN    NAT4        IF TRACK AVAILABLE
05973  M01S05906.ddf     +++| NAT3     AOD    FN
05974  M01S05907.ddf     +++|          STD    TK
05975  M01S05908.ddf     +++|          SBD    LT
05976  M01S05909.ddf     +++|          MJN    NAT2        IF NOT END OF DEVICE
05977  M01S05910.ddf     +++|          SOD    TK
05978  M01S05911.ddf     +++|          LDC    NATA        *END OF EQUIPMENT.*
05979  M01S05912.ddf     +++|          LJM    ERR         OUTPUT MESSAGE
05980  M01S05913.ddf     +++|
05981  M01S05914.ddf     +++| NAT4     STD    SC
05982  M01S05915.ddf     +++|          RJM    /LRR/SRP    SAVE UPDATED RECOVERY POINTERS
05983  M01S05916.ddf     +++|          RJM    RSB         READ SECTOR TO BUFFER
05984  M01S05917.ddf     +++|          LJM    RET         RETURN
05985  M01S05918.ddf     +++|
05986  M01S05919.ddf     +++|
05987  M01S05920.ddf     +++| NATA     DATA   Z*END OF EQUIPMENT.*
05988  M01S05921.ddf     +++| NSS      SPACE  4,10
05989  M01S05922.ddf     +++|***       NEXTSS.
05990  M01S05923.ddf     +++|*         LOCATES THE NEXT TRACK IN THE RECOVERY TABLE THAT BEGINS
05991  M01S05924.ddf     +++|*         WITH A SYSTEM SECTOR.  THE SEARCH BEGINS AT THE DISPLAYED
05992  M01S05925.ddf     +++|*         TRACK POINTER+1.
05993  M01S05926.ddf     +++|
05994  M01S05927.ddf     +++|
05995  M01S05928.ddf     +++| NSS      COMMAND
05996  M01S05929.ddf     +++|          LDD    RT
05997  M01S05930.ddf     +++|          NJN    NSS1        IF TABLES ALLOCATED
05998  M01S05931.ddf     +++|          LJM    ERR4        *INCORRECT ENTRY.*
05999  M01S05932.ddf     +++|
06000  M01S05933.ddf     +++| NSS1     LDN    DFBN        SET DEFAULT DISPLAY AND LOAD GUBROUTINES
06001  M01S05934.ddf     +++|          STD    RS
06002  M01S05935.ddf     +++|          LDN    LRRN        OVERLAY CONTROL WORD INDEX
06003  M01S05936.ddf     +++|          RJM    LDO         LOAD OVERLAY
06004  M01S05937.ddf     +++|          RJM    /LRR/RRP    RESTORE RECOVERY POINTERS
06005  M01S05938.ddf     +++|          UJN    NSS3        ENTER LOOP
06006  M01S05939.ddf     +++|
06007  M01S05940.ddf     +++| NSS2     RJM    /LRR/STA    SET TABLE ADDRESS
06008  M01S05941.ddf     +++|          CRD    AB          READ TRACK RECOVERY WORD
06009  M01S05942.ddf     +++|          LDD    AB          CHECK FOR SYSTEM SECTOR
06010  M01S05943.ddf     +++|          SCN    77
06011  M01S05944.ddf     +++|          NJN    NSS4        IF SYSTEM SECTOR (FIRST TRACK)
06012  M01S05945.ddf     +++| NSS3     AOD    FN
06013  M01S05946.ddf     +++|          STD    TK
06014  M01S05947.ddf     +++|          SBD    LT
06015  M01S05948.ddf     +++|          MJN    NSS2        IF NOT END OF DEVICE
06016  M01S05949.ddf     +++|          SOD    TK
06017  M01S05950.ddf     +++|          LDC    NSSA        *END OF EQUIPMENT.*
06018  M01S05951.ddf     +++|          LJM    ERR         OUTPUT MESSAGE
06019  M01S05952.ddf     +++|
06020  M01S05953.ddf     +++| NSS4     LDN    0
06021  M01S05954.ddf     +++|          STD    SC
06022  M01S05955.ddf     +++|          RJM    /LRR/SRP    SAVE UPDATED RECOVERY POINTERS
06023  M01S05956.ddf     +++|          RJM    RSB         READ SECTOR TO BUFFER
06024  M01S05957.ddf     +++|          LJM    RET         RETURN
06025  M01S05958.ddf     +++|
06026  M01S05959.ddf     +++|
06027  M01S05960.ddf     +++| NSSA     DATA   Z*END OF EQUIPMENT.*
06028  M01S05961.ddf     +++| REC      SPACE  4,15
06029  M01S05962.ddf     +++|***       RECOVER.
06030  M01S05963.ddf     +++|*         RECOVER TRACKS STARTING AT FIRST TRACK OF DEVICE.  IF THIS
06031  M01S05964.ddf     +++|*         COMMAND IS USED MORE THAN ONCE SINCE A *BEGINR* COMMAND, IT
06032  M01S05965.ddf     +++|*         CONTINUES RECOVERY BY FINDING THE NEXT SYSTEM SECTOR TRACK.
06033  M01S05966.ddf     +++|*
06034  M01S05967.ddf     +++|*         RECOVER.X.         (X = ANY CHARACTER.)
06035  M01S05968.ddf     +++|*         CONTINUE RECOVERY BY SCANNING FROM CURRENT POSITION TO EOI.
06036  M01S05969.ddf     +++|*
06037  M01S05970.ddf     +++|*         RECOVERY DATA IS ADDED TO THE TABLE BY SEARCHING FOR TRACKS
06038  M01S05971.ddf     +++|*         THAT BEGIN WITH A SYSTEM SECTOR, AND FOLLOWING THE LINKAGE
06039  M01S05972.ddf     +++|*         TO EOI.  ERRORS AND ANOMOLYS ARE FLAGGED.  THE INDIRECT CHAIN
06040  M01S05973.ddf     +++|*         IS NOT TRACED.  THE DISPLAY IS DROPPED UNTIL AN ERROR
06041  M01S05974.ddf     +++|*         OCCURS, OR UNTIL THE SEARCH COMPLETES.  IT IS THEN
06042  M01S05975.ddf     +++|*         REQUESTED AGAIN AS IF A *HOLD* COMMAND HAD BEEN USED.
06043  M01S05976.ddf     +++|
06044  M01S05977.ddf     +++|
06045  M01S05978.ddf     +++| REC      COMMAND
06046  M01S05979.ddf     +++|          LDD    RT
06047  M01S05980.ddf     +++|          NJN    REC1        IF TABLES ALLOCATED.
06048  M01S05981.ddf     +++|          LJM    ERR4        *INCORRECT COMMAND.*
06049  M01S05982.ddf     +++|
06050  M01S05983.ddf     +++| REC1     LDN    DFBN        SET DEFAULT DISPLAY AND LOAD SUBROUTINES
06051  M01S05984.ddf     +++|          STD    RS
06052  M01S05985.ddf     +++|          LDN    LRRN        OVERLAY CONTROL WORD INDEX
06053  M01S05986.ddf     +++|          RJM    LDO         LOAD OVERLAY
06054  M01S05987.ddf     +++|          RJM    /LRR/RRP    RESTORE RECOVERY POINTERS
06055  M01S05988.ddf     +++|          LDI    CA          CHECK MODE
06056  M01S05989.ddf     +++|          ZJN    REC2        IF NO ENTRY SPECIFIED
06057  M01S05990.ddf     +++|          RJM    DDS         DROP DISPLAY
06058  M01S05991.ddf     +++|          AOD    FN+2        ADVANCE TO NEXT SECTOR
06059  M01S05992.ddf     +++|          STD    SC
06060  M01S05993.ddf     +++|          LJM    REC5        CONTINUE FROM NEXT SECTOR.
06061  M01S05994.ddf     +++|
06062  M01S05995.ddf     +++| REC2     RJM    DDS         DROP DISPLAY
06063  M01S05996.ddf     +++|
06064  M01S05997.ddf     +++|*         ENTER HERE TO CHECK NEXT TRACK FOR SYSTEM SECTOR.
06065  M01S05998.ddf     +++|
06066  M01S05999.ddf     +++| REC3     AOD    FN          SET TRACK AND SECTOR
06067  M01S06000.ddf     +++|          STD    FN+1
06068  M01S06001.ddf     +++|          STD    TK
06069  M01S06002.ddf     +++|          LMD    LT
06070  M01S06003.ddf     +++|          NJN    REC4        IF NOT END OF EQUIPMENT
06071  M01S06004.ddf     +++|          SOD    TK
06072  M01S06005.ddf     +++|          SOD    FN
06073  M01S06006.ddf     +++|          LDC    RECB        *END OF EQUIPMENT.*
06074  M01S06007.ddf     +++|          LJM    REC14       REPORT ERROR
06075  M01S06008.ddf     +++|
06076  M01S06009.ddf     +++| REC4     LDN    0
06077  M01S06010.ddf     +++|          STD    SC
06078  M01S06011.ddf     +++|          RJM    /LRR/STA    SET TABLE ADDRESS
06079  M01S06012.ddf     +++|          CRD    AB          READ TRACK RECOVERY WORD
06080  M01S06013.ddf     +++|          LDD    AB+1
06081  M01S06014.ddf     +++|          NJN    REC3        IF TRACK LINKED
06082  M01S06015.ddf     +++|          RJM    RSB         READ SECTOR TO BUFFER
06083  M01S06016.ddf     +++|          MJP    REC13       IF ERROR
06084  M01S06017.ddf     +++|          LDM    BFMS        CHECK FOR SYSTEM SECTOR
06085  M01S06018.ddf     +++|          SHN    6
06086  M01S06019.ddf     +++|          ADM    BFMS+1
06087  M01S06020.ddf     +++|          ZJN    REC6        IF EOI AT (SC) = 0
06088  M01S06021.ddf     +++|          LMC    377777
06089  M01S06022.ddf     +++|          NJN    REC3        IF NOT SYSTEM SECTOR
06090  M01S06023.ddf     +++|          RJM    /LRR/CSS    CHECK SYSTEM SECTOR
06091  M01S06024.ddf     +++|          ZJN    REC7        IF NO CHAIN RECOVERY
06092  M01S06025.ddf     +++|
06093  M01S06026.ddf     +++|*         ENTER HERE TO SCAN FROM CURRENT POSITION TO EOI.
06094  M01S06027.ddf     +++|
06095  M01S06028.ddf     +++| REC5     RJM    /LRR/SRP    SAVE RECOVERY POINTERS
06096  M01S06029.ddf     +++|          RJM    /LRR/WSM    WRITE STATUS MESSAGE
06097  M01S06030.ddf     +++|          RJM    PSS         PAUSE FOR SYSTEM
06098  M01S06031.ddf     +++|          RJM    /LRR/RRP    RESTORE RECOVERY POINTERS
06099  M01S06032.ddf     +++|          RJM    SNS         SET NEXT SECTOR
06100  M01S06033.ddf     +++|          NJN    REC8        IF NOT EOI
06101  M01S06034.ddf     +++|
06102  M01S06035.ddf     +++|*         CHECK EOI SECTOR.
06103  M01S06036.ddf     +++|
06104  M01S06037.ddf     +++| REC6     RJM    /LRR/CEI    CHECK EOI
06105  M01S06038.ddf     +++|          RJM    /LRR/STA    SET TABLE ADDRESS
06106  M01S06039.ddf     +++|          CWD    AB          SAVE TRACK RECOVERY WORD
06107  M01S06040.ddf     +++| REC7     LJM    REC3        LOOP TO FIND NEXT FILE
06108  M01S06041.ddf     +++|
06109  M01S06042.ddf     +++| REC8     LDD    SC
06110  M01S06043.ddf     +++|          ZJN    REC10       IF NEW TRACK
06111  M01S06044.ddf     +++|          RJM    RSB         READ SECTOR TO BUFFER
06112  M01S06045.ddf     +++|          MJP    REC13       IF ERROR
06113  M01S06046.ddf     +++|          LDM    BFMS        CHECK FOR SYSTEM SECTOR IN TRACK
06114  M01S06047.ddf     +++|          SHN    6
06115  M01S06048.ddf     +++|          ADM    BFMS+1
06116  M01S06049.ddf     +++|          LMC    377777
06117  M01S06050.ddf     +++|          NJP    REC5        IF NOT SYSTEM SECTOR
06118  M01S06051.ddf     +++|          LDD    AB          SET SYSTEM-SECTOR-IN-TRACK STATUS
06119  M01S06052.ddf     +++|          SCN    20
06120  M01S06053.ddf     +++|          LMN    20
06121  M01S06054.ddf     +++|          STD    AB
06122  M01S06055.ddf     +++|          LDC    RECC        *SYSTEM SECTOR IN TRACK.*
06123  M01S06056.ddf     +++|          LJM    REC14       PROCESS ERROR
06124  M01S06057.ddf     +++|
06125  M01S06058.ddf     +++|*         ADVANCE TO NEXT TRACK.
06126  M01S06059.ddf     +++|
06127  M01S06060.ddf     +++| REC10    LDD    TK          SET FORWARD LINK
06128  M01S06061.ddf     +++|          STD    AB+3
06129  M01S06062.ddf     +++|          LDD    FN+1        RESET TRACK
06130  M01S06063.ddf     +++|          STD    TK
06131  M01S06064.ddf     +++|          RJM    /LRR/STA    SET TABLE ADDRESS
06132  M01S06065.ddf     +++|          CWD    AB          SAVE TRACK RECOVERY WORD
06133  M01S06066.ddf     +++|          LDD    AB+3        SET NEW TRACK
06134  M01S06067.ddf     +++|          STD    TK
06135  M01S06068.ddf     +++|          RJM    /LRR/STA    SET TABLE ADDRESS
06136  M01S06069.ddf     +++|          CRD    AB          READ TRACK RECOVERY WORD
06137  M01S06070.ddf     +++|          AOD    AB+4
06138  M01S06071.ddf     +++|          LDD    AB+1
06139  M01S06072.ddf     +++|          NJN    REC12       IF TRACK ALREADY LINKED
06140  M01S06073.ddf     +++|          RJM    RSB         READ SECTOR TO BUFFER
06141  M01S06074.ddf     +++|          MJP    REC13       IF ERROR
06142  M01S06075.ddf     +++|          LDM    BFMS        CHECK FOR BEGINNING OF ANOTHER FILE
06143  M01S06076.ddf     +++|          SHN    6
06144  M01S06077.ddf     +++|          ADM    BFMS+1
06145  M01S06078.ddf     +++|          LMC    377777
06146  M01S06079.ddf     +++|          ZJN    REC12       IF SYSTEM SECTOR
06147  M01S06080.ddf     +++|          LDD    FN          SET REVERSE LINKS
06148  M01S06081.ddf     +++|          STD    AB+1
06149  M01S06082.ddf     +++|          LDD    FN+1
06150  M01S06083.ddf     +++|          STD    AB+2
06151  M01S06084.ddf     +++|          LDD    TK
06152  M01S06085.ddf     +++|          STD    FN+1
06153  M01S06086.ddf     +++|          LJM    REC5        LOOP
06154  M01S06087.ddf     +++|
06155  M01S06088.ddf     +++|*         TRACK TO BE LINKED IS ALREADY IN USE.
06156  M01S06089.ddf     +++|
06157  M01S06090.ddf     +++| REC12    LDC    RECD        *NEXT TRACK IN USE.*
06158  M01S06091.ddf     +++|          UJN    REC14       PROCESS ERROR
06159  M01S06092.ddf     +++|
06160  M01S06093.ddf     +++|*         PROCESS READ ERROR IN TRACK.
06161  M01S06094.ddf     +++|
06162  M01S06095.ddf     +++| REC13    LDD    AB          SET ERROR STATUS
06163  M01S06096.ddf     +++|          SCN    40
06164  M01S06097.ddf     +++|          LMN    40
06165  M01S06098.ddf     +++|          STD    AB
06166  M01S06099.ddf     +++|          LDN    0
06167  M01S06100.ddf     +++|
06168  M01S06101.ddf     +++|*         TERMINATE PROCESSING.
06169  M01S06102.ddf     +++|
06170  M01S06103.ddf     +++| REC14    STD    T3          SAVE MESSAGE ADDRESS
06171  M01S06104.ddf     +++|          LDD    SC          SAVE CURRENT SECTOR
06172  M01S06105.ddf     +++|          STD    FN+2
06173  M01S06106.ddf     +++|          RJM    /LRR/SRP    SAVE RECOVERY POINTERS
06174  M01S06107.ddf     +++|          RJM    /LRR/RDM    RESUME DISPLAY MODE
06175  M01S06108.ddf     +++|          LDD    T3
06176  M01S06109.ddf     +++|          LJM    ERR         REPORT ERROR
06177  M01S06110.ddf     +++|
06178  M01S06111.ddf     +++|
06179  M01S06112.ddf     +++| RECB     DATA   Z*END OF EQUIPMENT.*
06180  M01S06113.ddf     +++| RECC     DATA   Z*SYSTEM SECTOR IN TRACK.*
06181  M01S06114.ddf     +++| RECD     DATA   Z*NEXT TRACK IN USE.*
06182  M01S06115.ddf     +++| SRW      SPACE  4,10
06183  M01S06116.ddf     +++|***       SETRW.B.NNNN.
06184  M01S06117.ddf     +++|*         CHANGE BYTE *B* OF CURRENT TRACK RECOVERY WORD TO *NNNN*.
06185  M01S06118.ddf     +++|
06186  M01S06119.ddf     +++|
06187  M01S06120.ddf     +++| SRW      COMMAND
06188  M01S06121.ddf     +++|          LDD    RT
06189  M01S06122.ddf     +++|          NJN    SRW1        IF TABLES ALLOCATED
06190  M01S06123.ddf     +++|          LJM    ERR4        *INCORRECT ENTRY.*
06191  M01S06124.ddf     +++|
06192  M01S06125.ddf     +++| SRW1     LDN    DFBN        SET DEFAULT DISPLAY AND LOAD SUBROUTINES
06193  M01S06126.ddf     +++|          STD    RS
06194  M01S06127.ddf     +++|          LDN    LRRN        OVERLAY CONTROL WORD INDEX
06195  M01S06128.ddf     +++|          RJM    LDO         LOAD OVERLAY
06196  M01S06129.ddf     +++|          RJM    /LRR/STA    SET TABLE ADDRESS
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/ddf.002.txt · Last modified: by 127.0.0.1