User Tools

Site Tools


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

Deck DDF Part 001

10 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
02072  M00S02045.ddf     +++|*                SECTOR, THE VARIOUS FIELDS THEREIN ARE DISPLAYED.
02073  M00S02046.ddf     +++| DSS      SPACE  4,15
02074  M00S02047.ddf     +++|**        DSS - DISPLAY SYSTEM SECTOR.
02075  M00S02048.ddf     +++|*
02076  M00S02049.ddf     +++|*         ENTRY  FROM DFD.
02077  M00S02050.ddf     +++|*                CONSOLE FUNCTIONED FOR RIGHT SCREEN.
02078  M00S02051.ddf     +++|*                (T3) = BUFFER ADDRESS.
02079  M00S02052.ddf     +++|*                (YC) = Y-COORDINATE.
02080  M00S02053.ddf     +++|*
02081  M00S02054.ddf     +++|*         EXIT   TO DRS2.
02082  M00S02055.ddf     +++|*
02083  M00S02056.ddf     +++|*         USES   AB - AB+3, YC.
02084  M00S02057.ddf     +++|*
02085  M00S02058.ddf     +++|*         CALLS  DCE, DMW, DPT.
02086  M00S02059.ddf     +++|*
02087  M00S02060.ddf     +++|*         MACROS DISPLA.
02088  M00S02061.ddf     +++|
02089  M00S02062.ddf     +++|
02090  M00S02063.ddf     +++| DSS      RSOVL  FDPLA
02091  M00S02064.ddf     +++|          LDN    0           DISPLAY FNT/FST
02092  M00S02065.ddf     +++|          STD    AB
02093  M00S02066.ddf     +++|          LDN    2
02094  M00S02067.ddf     +++|          STD    AB+1
02095  M00S02068.ddf     +++|          LDN    FNSS-BFMS
02096  M00S02069.ddf     +++|          STD    AB+2
02097  M00S02070.ddf     +++|          LDC    /DFD/TFNT
02098  M00S02071.ddf     +++|          STD    AB+3
02099  M00S02072.ddf     +++|          RJM    DMW         DISPLAY MEMORY WORDS
02100  M00S02073.ddf     +++|          LDM    DBLS
02101  M00S02074.ddf     +++|          RAD    YC
02102  M00S02075.ddf     +++|          LPC    7777
02103  M00S02076.ddf     +++|          OAN    CH+40
02104  M00S02077.ddf     +++|          DISPLA CH01,,(SYSTEM SECTOR.  UPDATED)
02105  M00S02078.ddf     +++|          LDC    DTSS+2      DISPLAY DATE AND TIME
02106  M00S02079.ddf     +++|          RJM    /DFD/DPT
02107  M00S02080.ddf     +++|
02108  M00S02081.ddf     +++|*         DISPLAY PFC ENTRY FOR DIRECT ACCESS OR FAST ATTACH FILES.
02109  M00S02082.ddf     +++|
02110  M00S02083.ddf     +++|          LDM    FNSS+4      CHECK FILE TYPE
02111  M00S02084.ddf     +++|          SHN    -6
02112  M00S02085.ddf     +++|          LMN    PMFT
02113  M00S02086.ddf     +++|          ZJN    DSS1        IF DIRECT ACCESS PERMANENT FILE
02114  M00S02087.ddf     +++|          LMN    FAFT&PMFT
02115  M00S02088.ddf     +++|          NJN    DSS2        IF NOT FAST ATTACH FILE
02116  M00S02089.ddf     +++| DSS1     LDN    CTSS-BFMS
02117  M00S02090.ddf     +++|          STD    AB+2
02118  M00S02091.ddf     +++|          RJM    /DFD/DCE    DISPLAY CATALOG ENTRY
02119  M00S02092.ddf     +++| DSS2     LJM    DRS2        RETURN
02120  M00S02093.ddf     +++|
02121  M00S02094.ddf     +++|
02122  M00S02095.ddf     +++| DIS      HERE
02123  M00S02096.ddf     +++| DPE      SPACE  4,10
02124  M00S02097.ddf     +++|***              PFC ENTRY.
02125  M00S02098.ddf     +++|*                THE CONTENTS OF ONE PERMANENT FILE CATALOG ENTRY ARE
02126  M00S02099.ddf     +++|*                DISPLAYED.  THE CENTRAL MEMORY WORD NUMBER DISPLAYED
02127  M00S02100.ddf     +++|*                IS RELATIVE TO THE BEGINNING OF THE PFC ENTRY.  THE
02128  M00S02101.ddf     +++|*                BYTE NUMBER RELATIVE TO THE BEGINNING OF THE SECTOR
02129  M00S02102.ddf     +++|*                IS DISPLAYED IN PARENTHESIS AFTER THE CM WORD NUMBER.
02130  M00S02103.ddf     +++|*                THE */* IS USED TO ADVANCE TO THE NEXT PFC ENTRY IN
02131  M00S02104.ddf     +++|*                THE SECTOR.
02132  M00S02105.ddf     +++| DPE      SPACE  4,15
02133  M00S02106.ddf     +++|**        DPE - DISPLAY PFC ENTRY.
02134  M00S02107.ddf     +++|*
02135  M00S02108.ddf     +++|*         ENTRY  FROM DFD.
02136  M00S02109.ddf     +++|*                CONSOLE FUNCTIONED FOR RIGHT SCREEN.
02137  M00S02110.ddf     +++|*                (DRSA - DRSA+4) = PROCESSOR CONTROL WORD.
02138  M00S02111.ddf     +++|*                (T3) = BUFFER ADDRESS.
02139  M00S02112.ddf     +++|*                (YC) = Y-COORDINATE.
02140  M00S02113.ddf     +++|*
02141  M00S02114.ddf     +++|*         EXIT   TO DRS2.
02142  M00S02115.ddf     +++|*
02143  M00S02116.ddf     +++|*         USES   T2, AB+2, DRSA+4.
02144  M00S02117.ddf     +++|*
02145  M00S02118.ddf     +++|*         CALLS  DCE, D2S.
02146  M00S02119.ddf     +++|*
02147  M00S02120.ddf     +++|*         MACROS DISPLA.
02148  M00S02121.ddf     +++|
02149  M00S02122.ddf     +++|
02150  M00S02123.ddf     +++| DPE      RSOVL  FDPLA
02151  M00S02124.ddf     +++|          LDM    DRSA+4      CHECK INDEX
02152  M00S02125.ddf     +++|          SHN    NWCES
02153  M00S02126.ddf     +++|          SBM    BFMS+1
02154  M00S02127.ddf     +++|          PJN    DPE1        IF NOT IN SECTOR
02155  M00S02128.ddf     +++|          ADN    NWCE-1
02156  M00S02129.ddf     +++|          MJN    DPE2        IF END OF PFC NOT IN SECTOR
02157  M00S02130.ddf     +++| DPE1     LDN    0
02158  M00S02131.ddf     +++|          STM    DRSA+4
02159  M00S02132.ddf     +++| DPE2     LCN    YINC*2
02160  M00S02133.ddf     +++|          RAD    YC
02161  M00S02134.ddf     +++|          OAN    CH+40
02162  M00S02135.ddf     +++|          DISPLA CH01,,(PFC ORDINAL = )
02163  M00S02136.ddf     +++|          LDM    DRSA+4
02164  M00S02137.ddf     +++|          ADN    1R0
02165  M00S02138.ddf     +++|          OAN    CH+40
02166  M00S02139.ddf     +++|          LDM    DRSA+4
02167  M00S02140.ddf     +++|          SHN    NWCES
02168  M00S02141.ddf     +++|          STD    T2
02169  M00S02142.ddf     +++|          SHN    2
02170  M00S02143.ddf     +++|          ADD    T2
02171  M00S02144.ddf     +++|          ADN    2
02172  M00S02145.ddf     +++|          STD    AB+2
02173  M00S02146.ddf     +++|          RJM    /DFD/DCE    DISPLAY CATALOG ENTRY
02174  M00S02147.ddf     +++|          LJM    DRS2        RETURN
02175  M00S02148.ddf     +++|
02176  M00S02149.ddf     +++|
02177  M00S02150.ddf     +++| DIS      HERE
02178  M00S02151.ddf     +++| DEI      SPACE  4,10
02179  M00S02152.ddf     +++|***              EOI SECTOR DISPLAY.
02180  M00S02153.ddf     +++|*                IF THE SECTOR CURRENTLY IN THE BUFFER IS AN EOI
02181  M00S02154.ddf     +++|*                SECTOR, THE VARIOUS FIELDS THEREIN ARE DISPLAYED.
02182  M00S02155.ddf     +++| DEI      SPACE  4,15
02183  M00S02156.ddf     +++|**        DEI - DISPLAY EOI SECTOR.
02184  M00S02157.ddf     +++|*
02185  M00S02158.ddf     +++|*         ENTRY  FROM DFD.
02186  M00S02159.ddf     +++|*                CONSOLE FUNCTIONED FOR RIGHT SCREEN.
02187  M00S02160.ddf     +++|*                (T3) = BUFFER ADDRESS.
02188  M00S02161.ddf     +++|*
02189  M00S02162.ddf     +++|*         EXIT   TO DRS2.
02190  M00S02163.ddf     +++|*
02191  M00S02164.ddf     +++|*         USES   AB - AB+3, YC.
02192  M00S02165.ddf     +++|*
02193  M00S02166.ddf     +++|*         CALLS  DMW, DPT.
02194  M00S02167.ddf     +++|*
02195  M00S02168.ddf     +++|*         MACROS DISPLA.
02196  M00S02169.ddf     +++|
02197  M00S02170.ddf     +++|
02198  M00S02171.ddf     +++| DEI      RSOVL  FDPLA
02199  M00S02172.ddf     +++|          LDN    0           DISPLAY FNT/FST
02200  M00S02173.ddf     +++|          STD    AB
02201  M00S02174.ddf     +++|          LDN    2
02202  M00S02175.ddf     +++|          STD    AB+1
02203  M00S02176.ddf     +++|          LDN    FNEI
02204  M00S02177.ddf     +++|          STD    AB+2
02205  M00S02178.ddf     +++|          LDC    /DFD/TFNT
02206  M00S02179.ddf     +++|          STD    AB+3
02207  M00S02180.ddf     +++|          RJM    DMW         DISPLAY MEMORY WORDS
02208  M00S02181.ddf     +++|          LDM    DBLS
02209  M00S02182.ddf     +++|          RAD    YC
02210  M00S02183.ddf     +++|          LPC    7777
02211  M00S02184.ddf     +++|          OAN    CH+40
02212  M00S02185.ddf     +++|          DISPLA CH01,,(EOI SECTOR.  UPDATED)
02213  M00S02186.ddf     +++|          LDC    BFMS+DTEI+2 DISPLAY DATE AND TIME
02214  M00S02187.ddf     +++|          RJM    /DFD/DPT
02215  M00S02188.ddf     +++|          LJM    DRS2        RETURN
02216  M00S02189.ddf     +++|
02217  M00S02190.ddf     +++|
02218  M00S02191.ddf     +++| DIS      HERE
02219  M00S02192.ddf     +++|          SPACE  4,10
02220  M00S02193.ddf     +++|          RSOVL              END OF RIGHT SCREEN PROCESSORS
02221  M00S02194.ddf     +++|
02222  M00S02195.ddf     +++|          QUAL   PRESET
02223  M00S02196.ddf     +++| .1       MAX    DSSL,DPEL,DEIL
02224  M00S02197.ddf     +++| .2       SET    FDPLA-RSPLA
02225  M00S02198.ddf     +++| .MRSPL   MAX    .MRSPL,.2/5+.1 MAXIMUM TOTAL OVERLAY AREA
02226  M00S02199.ddf     +++|          QUAL   *
02227  M00S02200.ddf     +++| MRSPL    EQU    /PRESET/.MRSPL  MAX RIGHT SCREEN PROCESSOR LENGTH
02228  M00S02201.ddf     +++|          SPACE  4,15
02229  M00S02202.ddf     +++|**        AUXILIARY COMMAND ROUTINES ORIGIN DEFINITION.
02230  M00S02203.ddf     +++|*
02231  M00S02204.ddf     +++|*         THIS AREA AT THE END OF THE RIGHT SCREEN PROCESSOR OVERLAY
02232  M00S02205.ddf     +++|*         AREA MAY BE USED BY COMMAND PROCESSORS FOR EXTRA SUBROUTINES.
02233  M00S02206.ddf     +++|*         BEFORE LOADING THE SUBROUTINES, THE COMMAND PROCESSOR MUST
02234  M00S02207.ddf     +++|*         FIRST SET THE DISPLAY INDEX (RS) TO *DFBN* TO SELECT THE
02235  M00S02208.ddf     +++|*         SHORTEST DISPLAY OVERLAY (*DFB*).  NOTE THAT THIS MUST BE
02236  M00S02209.ddf     +++|*         DONE BEFORE EACH CALL TO REFRESH THE DISPLAY TO OVERRIDE ANY
02237  M00S02210.ddf     +++|*         KEYBOARD REQUESTS THAT CHANGE THE RIGHT SCREEN DISPLAY.
02238  M00S02211.ddf     +++|*
02239  M00S02212.ddf     +++|*         ** THE *DFB* DISPLAY MUST NOT USE ANY SECONDARY OVERLAYS. **
02240  M00S02213.ddf     +++|
02241  M00S02214.ddf     +++|
02242  M00S02215.ddf     +++| ACRLA    EQU    RSPLA+/PRESET/DFBL*5
02243  M00S02216.ddf     +++| MACRL    EQU    MRSPL-/PRESET/DFBL    MAXIMUM LENGTH OF OVERLAY
02244  M00S02217.ddf     +++|          SPACE  4,10
02245  M00S02218.ddf     +++|**        RESIDENT OVERLAY ORIGIN DEFINITION.
02246  M00S02219.ddf     +++|*
02247  M00S02220.ddf     +++|*         THIS OVERLAY IS LOADED ONCE AND REMAINS IN THE PP.
02248  M00S02221.ddf     +++|
02249  M00S02222.ddf     +++|
02250  M00S02223.ddf     +++| RESLA    EQU    RSPLA+MRSPL*5-4  RESIDENT LOAD ADDRESS
02251  M00S02224.ddf     +++|          SPACE  4,10
02252  M00S02225.ddf     +++|          OVERFLOW  PPFW
02253  M00S02226.ddf     +++|          OVERLAY  RESLA,(RESIDENT ROUTINES.)
02254  M00S02227.ddf     +++|
02255  M00S02228.ddf     +++|          QUAL   *
02256  M00S02229.ddf     +++|          BSS    2
02257  M00S02230.ddf     +++|
02258  M00S02231.ddf     +++|          LJM    PRR         PRESET RESIDENT ROUTINES
02259  M00S02232.ddf     +++|
02260  M00S02233.ddf     +++|*         ABOVE CODE MAY BE OVERLAYED BY RIGHT SCREEN PROCESSORS.
02261  M00S02234.ddf     +++|          TITLE  KEYBOARD INPUT PROCESSING.
02262  M00S02235.ddf     +++|***       KEYBOARD INPUT.
02263  M00S02236.ddf     +++|*         IF THE CHARACTERS ARE THE FIRST ENTRY, THE FOLLOWING
02264  M00S02237.ddf     +++|*         APPLIES -
02265  M00S02238.ddf     +++|*         *+* READS THE NEXT SECTOR.  IF AT EOI OR END OF THE TRACK THE
02266  M00S02239.ddf     +++|*                CURRENT SECTOR IS REREAD.
02267  M00S02240.ddf     +++|*         *-* READS THE PREVIOUS SECTOR.  IF AT THE BEGINNING OF TRACK
02268  M00S02241.ddf     +++|*                THE CURRENT SECTOR IS REREAD.
02269  M00S02242.ddf     +++|*         *.* ADVANCES TO TRACK IN THE CONTROL BYTES AND SETS THE
02270  M00S02243.ddf     +++|*                SECTOR TO 0.  IF THE CONTROL BYTES DO NOT CONTAIN A
02271  M00S02244.ddf     +++|*                TRACK LINK, THE CURRENT SECTOR IS REREAD.
02272  M00S02245.ddf     +++|*         *,* ADVANCES TO THE NEXT TRACK IN THE TRT CHAIN.  THE SECTOR
02273  M00S02246.ddf     +++|*                NUMBER IS NOT CHANGED.  IF CURRENTLY IN THE LAST
02274  M00S02247.ddf     +++|*                TRACK IN THE CHAIN, THE CURRENT SECTOR IS REREAD.
02275  M00S02248.ddf     +++|*         *=* READS THE NEXT SECTOR AFTER EOI.  IF THE EOI IS AT THE
02276  M00S02249.ddf     +++|*                END OF AN EOI TRACK, THE CURRENT SECTOR IS REREAD.
02277  M00S02250.ddf     +++|*         *CR* SETS *REPEAT ENTRY.*
02278  M00S02251.ddf     +++|*         * * READS THE CURRENT SECTOR INTO THE BUFFER.
02279  M00S02252.ddf     +++|*         (*) HOLDS DISPLAY.
02280  M00S02253.ddf     +++|*         *8* INCREMENTS THE TRACK NUMBER BY ONE AND READS THE SECTOR.
02281  M00S02254.ddf     +++|*         *9* DECREMENTS THE TRACK NUMBER BY ONE AND READS THE SECTOR.
02282  M00S02255.ddf     +++|*         RIGHT BLANK OR TAB CHANGES THE RIGHT SCREEN DISPLAY.
02283  M00S02256.ddf     +++|*         */* ADVANCES THE ADDRESS DISPLAYED ON THE RIGHT SCREEN.
02284  M00S02257.ddf     +++|*
02285  M00S02258.ddf     +++|*         ALL COMMANDS ARE DISPLAYED ON THE BOTTOM OF THE LEFT SCREEN
02286  M00S02259.ddf     +++|*         AS THEY ARE ENTERED.
02287  M00S02260.ddf     +++|*
02288  M00S02261.ddf     +++|*         *CR* MUST FOLLOW ALL COMMANDS BEFORE ACTION IS TAKEN.
02289  M00S02262.ddf     +++|*         *BKSP* DELETES THE PREVIOUS CHARACTER TYPED.
02290  M00S02263.ddf     +++|*         LEFT BLANK OR BACKTAB DELETES THE CURRENT LINE BEING ENTERED.
02291  M00S02264.ddf     +++|*
02292  M00S02265.ddf     +++|*         COMMANDS ARE PROCESSED INTERPRETIVELY.  AFTER THE PERIOD (.)
02293  M00S02266.ddf     +++|*         ANY ALPHA-NUMERIC CHARACTERS CAN BE ENTERED, HOWEVER, THE
02294  M00S02267.ddf     +++|*         MESSAGE *FORMAT ERROR.* OR *INCORRECT PARAMETER.* WILL APPEAR
02295  M00S02268.ddf     +++|*         AFTER THE *CR* IS ENTERED IF AN ERROR IS MADE.
02296  M00S02269.ddf     +++|*
02297  M00S02270.ddf     +++|*         NOTE THAT MOST COMMANDS DO NOT CAUSE A SECTOR TO ACTUALLY
02298  M00S02271.ddf     +++|*         BE READ AND DISPLAYED.  AFTER ENTERING COMMANDS THAT CHANGE
02299  M00S02272.ddf     +++|*         THE EQUIPMENT, TRACK, OR SECTOR A SPACE MUST BE ENTERED TO
02300  M00S02273.ddf     +++|*         READ THE SECTOR.  THIS ALLOWS DATA FROM ONE SECTOR TO BE
02301  M00S02274.ddf     +++|*         READ AND WRITTEN TO ANOTHER SECTOR.
02302  M00S02275.ddf     +++|*
02303  M00S02276.ddf     +++|*         AFTER A COMMAND THAT CHANGES THE EQUIPMENT OR TRACK, THE
02304  M00S02277.ddf     +++|*         TRACK AND SECTOR NUMBERS ARE CHECKED.  IF EITHER THE TRACK
02305  M00S02278.ddf     +++|*         OR SECTOR IS ILLEGAL ON THE EQUIPMENT/TRACK, IT WILL BE SET
02306  M00S02279.ddf     +++|*         TO ZERO.
02307  M00S02280.ddf     +++|*
02308  M00S02281.ddf     +++| DKB      SPACE  4,10
02309  M00S02282.ddf     +++|**        DKB - DISPLAY KEYBOARD BUFFER.
02310  M00S02283.ddf     +++|*
02311  M00S02284.ddf     +++|*         ENTRY  (KM) = ADDRESS OF KEYBOARD MESSAGE.
02312  M00S02285.ddf     +++|*                (DK) = DISPLAY KEYBOARD CONTROL(721 ONLY).
02313  M00S02286.ddf     +++|*
02314  M00S02287.ddf     +++|*         EXIT   (A) = (DK), ZERO FOR CC545.
02315  M00S02288.ddf     +++|*
02316  M00S02289.ddf     +++|*         USES   DK, T1, YC.
02317  M00S02290.ddf     +++|*
02318  M00S02291.ddf     +++|*         MACROS CFNC, DFIM.
02319  M00S02292.ddf     +++|
02320  M00S02293.ddf     +++|
02321  M00S02294.ddf     +++| DKB      SUBR               ENTRY/EXIT
02322  M00S02295.ddf     +++|          CFNC   SLPF        SELECT LEFT PRIORITY OUTPUT
02323  M00S02296.ddf     +++|          DFIM   (CON LN51),*+1
02324  M00S02297.ddf     +++|          LDC    LN49-YINC/2 SET Y-COORDINATE
02325  M00S02298.ddf     +++|          STD    YC
02326  M00S02299.ddf     +++|          DFIM   (UJN DKB1)
02327  M00S02300.ddf     +++|
02328  M00S02301.ddf     +++|*         DISPLAY KEYBOARD BUFFER IN MEDIUM CHARACTERS ON CC545.
02329  M00S02302.ddf     +++|
02330  M00S02303.ddf     +++|          DCN    CH+40
02331  M00S02304.ddf     +++|          CFNC   SLMF        SELECT LEFT SCREEN, MEDIUM CHARACTERS
02332  M00S02305.ddf     +++|          LDN    4           SET INTENSIFICATION COUNT
02333  M00S02306.ddf     +++|          STD    DK
02334  M00S02307.ddf     +++| DKB1     LDN    2           OUTPUT COORDINATES
02335  M00S02308.ddf     +++|          OAM    XC,CH
02336  M00S02309.ddf     +++|*         LDN    0
02337  M00S02310.ddf     +++|          STD    T1
02338  M00S02311.ddf     +++| DKB2     LDM    KBUF,T1
02339  M00S02312.ddf     +++|          ZJN    DKB3        IF END OF KEYBOARD LINE
02340  M00S02313.ddf     +++|          SHN    6
02341  M00S02314.ddf     +++|          ADM    KBUF+1,T1
02342  M00S02315.ddf     +++|          OAN    CH+40
02343  M00S02316.ddf     +++|          LDN    2           ADVANCE INDEX
02344  M00S02317.ddf     +++|          RAD    T1
02345  M00S02318.ddf     +++|          SBD    KI
02346  M00S02319.ddf     +++|          MJN    DKB2        IF NOT END OF KEYBOARD LINE
02347  M00S02320.ddf     +++| DKB3     CFNC   EELF        ERASE TO END OF LINE
02348  M00S02321.ddf     +++|
02349  M00S02322.ddf     +++|*         DISPLAY KEYBOARD MESSAGE(S) IF SET.
02350  M00S02323.ddf     +++|
02351  M00S02324.ddf     +++|          LDN    2           OUTPUT ERROR MESSAGE LINE COORDINATE
02352  M00S02325.ddf     +++|          OAM    DKBA,CH
02353  M00S02326.ddf     +++|          LDD    KM
02354  M00S02327.ddf     +++|          ZJN    DKB5        IF ERROR MESSAGE NOT SET
02355  M00S02328.ddf     +++|          STD    T1          SET MESSAGE ADDRESS
02356  M00S02329.ddf     +++| DKB4     LDI    T1          DISPLAY MESSAGE
02357  M00S02330.ddf     +++|          OAN    CH+40
02358  M00S02331.ddf     +++|          LPN    77
02359  M00S02332.ddf     +++|          ZJN    DKB5        IF END OF MESSAGE
02360  M00S02333.ddf     +++|          AOD    T1
02361  M00S02334.ddf     +++|          UJN    DKB4        DISPLAY NEXT BYTE
02362  M00S02335.ddf     +++|
02363  M00S02336.ddf     +++| DKB5     LDD    SB
02364  M00S02337.ddf     +++|          NJN    DKB6        IF SYSTEM BUSY FLAG CLEAR
02365  M00S02338.ddf     +++|          DISPLA ,,(SYSTEM BUSY.)
02366  M00S02339.ddf     +++|
02367  M00S02340.ddf     +++|*         LOOP FOR PROPER INTENSIFICATION.
02368  M00S02341.ddf     +++|
02369  M00S02342.ddf     +++|          DFIM   (CFNC EELF)
02370  M00S02343.ddf     +++| DKB6     SOD    DK
02371  M00S02344.ddf     +++|          ZJN    DKB7        IF INTENSIFICATION COMPLETE
02372  M00S02345.ddf     +++|          LJM    DKB1        LOOP
02373  M00S02346.ddf     +++|
02374  M00S02347.ddf     +++| DKB7     FJM    *,CH        IF CHANNEL FULL, WAIT UNTIL EMPTY
02375  M00S02348.ddf     +++|          DCN    CH+40
02376  M00S02349.ddf     +++|          LDD    DK
02377  M00S02350.ddf     +++|          LJM    DKBX        RETURN
02378  M00S02351.ddf     +++|
02379  M00S02352.ddf     +++|*         COORDINATES FOR ERROR MESSAGE LINE.
02380  M00S02353.ddf     +++|
02381  M00S02354.ddf     +++| DKBA     CON    CH01
02382  M00S02355.ddf     +++|          DFIM   (CON LN50)
02383  M00S02356.ddf     +++|          CON    LN48+YINC/2
02384  M00S02357.ddf     +++| PKI      SPACE  4,10
02385  M00S02358.ddf     +++|**        PKI - PROCESS KEYBOARD INPUT.
02386  M00S02359.ddf     +++|*
02387  M00S02360.ddf     +++|*         EXIT   TO SPECIAL CHARACTER PROCESSOR.
02388  M00S02361.ddf     +++|*                TO FIRST CHARACTER PROCESSOR.
02389  M00S02362.ddf     +++|*                TO *BSP* IF KEYBOARD BUFFER FULL.
02390  M00S02363.ddf     +++|*                TO *IKE* IF NOT A SPECIAL CHARACTER.
02391  M00S02364.ddf     +++|*
02392  M00S02365.ddf     +++|*         USES   DK, EF, KE, KI, T1.
02393  M00S02366.ddf     +++|*
02394  M00S02367.ddf     +++|*         CALLS  BSP, DKB, IKE, SPECIAL CHARACTER PROCESSORS.
02395  M00S02368.ddf     +++|
02396  M00S02369.ddf     +++|
02397  M00S02370.ddf     +++| PKI8     STM    PKIA        STORE CHARACTER
02398  M00S02371.ddf     +++| PKI9     LDN    0
02399  M00S02372.ddf     +++|          STD    DK
02400  M00S02373.ddf     +++| PKIX     RJM    DKB         DISPLAY KEYBOARD LINE
02401  M00S02374.ddf     +++|          NJN    PKI1        IF INPUT NOT COMPLETE
02402  M00S02375.ddf     +++|
02403  M00S02376.ddf     +++|          LJM    *           ENTRY/EXIT
02404  M00S02377.ddf     +++| PKI      EQU    *-1
02405  M00S02378.ddf     +++|*PKI      SUBR               ENTRY/EXIT
02406  M00S02379.ddf     +++|          LDN    0
02407  M00S02380.ddf     +++|          STD    DK
02408  M00S02381.ddf     +++| PKI1     CFNC   SKIF        SELECT KEYBOARD INPUT
02409  M00S02382.ddf     +++|          IAN    CH+40
02410  M00S02383.ddf     +++|          DCN    CH+40
02411  M00S02384.ddf     +++|          STD    KE
02412  M00S02385.ddf     +++|          ZJN    PKI8        IF NO INPUT
02413  M00S02386.ddf     +++|          DFIM   (UJN PKI3)
02414  M00S02387.ddf     +++|          LDC    60B         PRESET TO *CR*
02415  M00S02388.ddf     +++| PKIA     EQU    *-1
02416  M00S02389.ddf     +++|          ZJN    PKI2        IF NO PREVIOUS CHARACTER
02417  M00S02390.ddf     +++|          SOM    PKIB        DECREMENT COUNTER
02418  M00S02391.ddf     +++|          NJN    PKI9        IF DELAY NOT ELAPSED
02419  M00S02392.ddf     +++|          LDN    20          SET REPEAT DELAY
02420  M00S02393.ddf     +++| PKI2     LMN    24          SET INITIAL DELAY
02421  M00S02394.ddf     +++|          STM    PKIB
02422  M00S02395.ddf     +++| PKI3     LDD    KE
02423  M00S02396.ddf     +++|          STM    PKIA
02424  M00S02397.ddf     +++|          SBN    63
02425  M00S02398.ddf     +++|          PJN    PKI9        IF ILLEGAL CHARACTER
02426  M00S02399.ddf     +++|          ADN    63-1R8
02427  M00S02400.ddf     +++|          MJN    PKI7        IF NOT SPECIAL FIRST CHARACTER
02428  M00S02401.ddf     +++|          LDD    KI
02429  M00S02402.ddf     +++|          NJN    PKI4        IF NOT FIRST CHARACTER
02430  M00S02403.ddf     +++|          LDM    PKIC-1R8,KE GET ADDRESS OF PROCESSOR
02431  M00S02404.ddf     +++|          STD    T1
02432  M00S02405.ddf     +++|          UJN    PKI5        PROCESS COMMAND
02433  M00S02406.ddf     +++|
02434  M00S02407.ddf     +++| PKI4     LDD    KE
02435  M00S02408.ddf     +++|          SBN    53
02436  M00S02409.ddf     +++|          MJN    PKI7        IF NOT SPECIAL CHARACTER
02437  M00S02410.ddf     +++|          LDM    PKID-53,KE  GET ADDRESS OF PROCESSOR
02438  M00S02411.ddf     +++|          STD    T1
02439  M00S02412.ddf     +++| PKI5     LJM    0,T1        PROCESS COMMAND
02440  M00S02413.ddf     +++|
02441  M00S02414.ddf     +++| PKI6     LDN    1R          REPLACE CODE FOR SPACE
02442  M00S02415.ddf     +++|          STD    KE
02443  M00S02416.ddf     +++| PKI7     LDN    0           CLEAR EXECUTE FLAG
02444  M00S02417.ddf     +++|          STD    EF
02445  M00S02418.ddf     +++|          LDD    KE
02446  M00S02419.ddf     +++|          STM    KBUF,KI
02447  M00S02420.ddf     +++|          AOD    DK
02448  M00S02421.ddf     +++|          AOD    KI
02449  M00S02422.ddf     +++|          LMK    KBUFL-1
02450  M00S02423.ddf     +++|          NJN    IKE         IF BUFFER NOT FULL
02451  M00S02424.ddf     +++|          LJM    BSP         DELETE LAST CHARACTER ENTERED
02452  M00S02425.ddf     +++|
02453  M00S02426.ddf     +++|
02454  M00S02427.ddf     +++| PKIB     CON    1           DELAY COUNT
02455  M00S02428.ddf     +++| PKIC     SPACE  4,10
02456  M00S02429.ddf     +++|*         TABLE OF SPECIAL FIRST CHARACTERS.
02457  M00S02430.ddf     +++|
02458  M00S02431.ddf     +++|
02459  M00S02432.ddf     +++| PKIC     BSS    0
02460  M00S02433.ddf     +++|          LOC    1R8
02461  M00S02434.ddf     +++|          CON    ITN         8 - INCREMENT TRACK NUMBER
02462  M00S02435.ddf     +++|          CON    DTN         9 - DECREMET TRACK NUMBER
02463  M00S02436.ddf     +++|          CON    AOS         + - ADVANCE ONE SECTOR
02464  M00S02437.ddf     +++|          CON    BOS         - - BACKUP ONE SECTOR
02465  M00S02438.ddf     +++|          CON    DDC         * - DROP DISPLAY CHANNEL
02466  M00S02439.ddf     +++|          CON    IRD         / - INCREMENT RIGHT DISPLAY
02467  M00S02440.ddf     +++|          CON    PKIX        (
02468  M00S02441.ddf     +++|          CON    PKIX        )
02469  M00S02442.ddf     +++|          CON    CMB         LEFT BLANK - CLEAR MESSAGE AND KEYBOARD
02470  M00S02443.ddf     +++|          CON    APE         = - ADVANCE PAST EOI
02471  M00S02444.ddf     +++|          CON    RRD         RIGHT BLANK - ROTATE RIGHT DISPLAY
02472  M00S02445.ddf     +++|          CON    AOT         , - ADVANCE ONE TRACK
02473  M00S02446.ddf     +++|          CON    ATZ         . - ADVANCE ONE TRACK AND ZERO SECTOR NO.
02474  M00S02447.ddf     +++|          CON    SRE         CR - SET REPEAT ENTRY
02475  M00S02448.ddf     +++|          CON    PKIX        BKSP
02476  M00S02449.ddf     +++|          CON    RCS         SPACE - READ CURRENT SECTOR
02477  M00S02450.ddf     +++|          LOC    *O
02478  M00S02451.ddf     +++| PKID     SPACE  4,10
02479  M00S02452.ddf     +++|*         TABLE OF SPECIAL CHARACTERS.
02480  M00S02453.ddf     +++|
02481  M00S02454.ddf     +++|
02482  M00S02455.ddf     +++| PKID     BSS    0
02483  M00S02456.ddf     +++|          LOC    53
02484  M00S02457.ddf     +++|          CON    CMB         LEFT BLANK - CLEAR MESSAGE AND KEYBOARD
02485  M00S02458.ddf     +++|          CON    PKI7        =
02486  M00S02459.ddf     +++|          CON    RRD         RIGHT BLANK - ROTATE RIGHT DISPLAY
02487  M00S02460.ddf     +++|          CON    PKI7        ,
02488  M00S02461.ddf     +++|          CON    PKI7        .
02489  M00S02462.ddf     +++|          CON    PEC         CR - PROCESS ENTERED COMMAND
02490  M00S02463.ddf     +++|          CON    BSP         BKSP - DELETE LAST CHARACTER
02491  M00S02464.ddf     +++|          CON    PKI6        SPACE
02492  M00S02465.ddf     +++|          LOC    *O
02493  M00S02466.ddf     +++| IKE      SPACE  4,15
02494  M00S02467.ddf     +++|**        IKE - INTERPRET KEYBOARD ENTRY.
02495  M00S02468.ddf     +++|*
02496  M00S02469.ddf     +++|*         ENTRY  (EF) = 0 IF INTERPRET ONLY.
02497  M00S02470.ddf     +++|*                (EF) " 0 IF EXECUTE REQUESTED.
02498  M00S02471.ddf     +++|*                (KI) = END OF BUFFER POINTER.
02499  M00S02472.ddf     +++|*                (TA) = CM FWA OF COMMAND TABLE.
02500  M00S02473.ddf     +++|*
02501  M00S02474.ddf     +++|*         EXIT   TO PKIX  IF EXECUTE NOT REQUESTED.
02502  M00S02475.ddf     +++|*                TO EMC IF FIRST CHARACTER 0 - 7.
02503  M00S02476.ddf     +++|*                TO COMMAND PROCESSOR IF EXECUTE AND COMMAND COMPLETE.
02504  M00S02477.ddf     +++|*                    (CA) = ADDRESS OF NEXT CHARACTER IN BUFFER.
02505  M00S02478.ddf     +++|*
02506  M00S02479.ddf     +++|*         USES   T1 - T3, CA, CM, KM.
02507  M00S02480.ddf     +++|*
02508  M00S02481.ddf     +++|*         CALLS  EMC, COMMAND PROCESSORS.
02509  M00S02482.ddf     +++|
02510  M00S02483.ddf     +++|
02511  M00S02484.ddf     +++| IKE      LDN    0
02512  M00S02485.ddf     +++|          STD    T1          SET TRIAL CHARACTER
02513  M00S02486.ddf     +++|          STD    CM          SET SYNTAX TABLE INDEX
02514  M00S02487.ddf     +++|          LDM    KBUF        CHECK FIRST CHARACTER
02515  M00S02488.ddf     +++|          SBN    1R0
02516  M00S02489.ddf     +++|          MJN    IKE1        IF ALPHABETIC
02517  M00S02490.ddf     +++|          SBN    8D
02518  M00S02491.ddf     +++|          PJN    IKE1        IF ABOVE 7
02519  M00S02492.ddf     +++|          LJM    EMC         PROCESS MEMORY CHANGE COMMAND
02520  M00S02493.ddf     +++|
02521  M00S02494.ddf     +++| IKE1     LDN    2           SET SYNTAX ENTRY LENGTH
02522  M00S02495.ddf     +++|          STD    T2
02523  M00S02496.ddf     +++|          LDD    RA          READ ENTRY
02524  M00S02497.ddf     +++|          ADD    TA
02525  M00S02498.ddf     +++|          SHN    6
02526  M00S02499.ddf     +++|          ADD    CM
02527  M00S02500.ddf     +++|          CRM    IKEA,T2
02528  M00S02501.ddf     +++|          LDN    2           ADVANCE INDEX FOR NEXT PASS
02529  M00S02502.ddf     +++|          RAD    CM
02530  M00S02503.ddf     +++|          LDC    IKEA        SET ENTRY POINTER
02531  M00S02504.ddf     +++|          STD    T2
02532  M00S02505.ddf     +++|          LDI    T2
02533  M00S02506.ddf     +++|          NJN    IKE2        IF NOT END OF TABLE
02534  M00S02507.ddf     +++|          LJM    IKE9        PROCESS END OF SCAN
02535  M00S02508.ddf     +++|
02536  M00S02509.ddf     +++| IKE2     LDC    KBUF        SET CHARACTER ADDRESS
02537  M00S02510.ddf     +++|          STD    CA
02538  M00S02511.ddf     +++| IKE3     LDI    T2          COMPARE UPPER
02539  M00S02512.ddf     +++|          SHN    -6
02540  M00S02513.ddf     +++|          ZJN    IKE7        IF COMPARE COMPLETE
02541  M00S02514.ddf     +++|          STD    T3
02542  M00S02515.ddf     +++|          LMI    CA
02543  M00S02516.ddf     +++|          NJN    IKE4        IF NO MATCH
02544  M00S02517.ddf     +++|          AOD    CA
02545  M00S02518.ddf     +++|          LDI    T2          COMPARE LOWER
02546  M00S02519.ddf     +++|          LPN    77
02547  M00S02520.ddf     +++|          ZJN    IKE7        IF COMPARE COMPLETE
02548  M00S02521.ddf     +++|          STD    T3
02549  M00S02522.ddf     +++|          LMI    CA
02550  M00S02523.ddf     +++|          NJN    IKE4        IF NO MATCH
02551  M00S02524.ddf     +++|          AOD    T2
02552  M00S02525.ddf     +++|          AOD    CA
02553  M00S02526.ddf     +++|          UJN    IKE3        LOOP
02554  M00S02527.ddf     +++|
02555  M00S02528.ddf     +++|*         PROCESS NO MATCH FOUND.
02556  M00S02529.ddf     +++|
02557  M00S02530.ddf     +++| IKE4     LDI    CA
02558  M00S02531.ddf     +++|          NJN    IKE5        IF DIFFERENT CHARACTER
02559  M00S02532.ddf     +++|          LDD    T1
02560  M00S02533.ddf     +++|          NJN    IKE6        IF NOT UNIQUE ENTRY
02561  M00S02534.ddf     +++|          LDD    T3          SET NEXT CHARACTER
02562  M00S02535.ddf     +++|          STD    T1
02563  M00S02536.ddf     +++| IKE5     LJM    IKE1        LOOP
02564  M00S02537.ddf     +++|
02565  M00S02538.ddf     +++| IKE6     LMD    T3
02566  M00S02539.ddf     +++|          ZJN    IKE5        IF SAME CHARACTER
02567  M00S02540.ddf     +++|          UJN    IKE10       CHECK EXECUTE FLAG
02568  M00S02541.ddf     +++|
02569  M00S02542.ddf     +++|*         PROCESS UNIQUE CHARACTER.
02570  M00S02543.ddf     +++|
02571  M00S02544.ddf     +++| IKE7     LDD    EF
02572  M00S02545.ddf     +++|          NJN    IKE8        IF EXECUTE FLAG SET
02573  M00S02546.ddf     +++|          LJM    PKIX        RETURN IF INTERPRET ONLY
02574  M00S02547.ddf     +++|
02575  M00S02548.ddf     +++|*         PROCESS COMMAND.
02576  M00S02549.ddf     +++|
02577  M00S02550.ddf     +++| IKE8     LDM    IKEA+10     SET WORD COUNT
02578  M00S02551.ddf     +++|          SHN    -6
02579  M00S02552.ddf     +++|          STD    T1
02580  M00S02553.ddf     +++|          LDM    IKEA+10     GET CM ADDRESS
02581  M00S02554.ddf     +++|          LPN    37
02582  M00S02555.ddf     +++|          SHN    6
02583  M00S02556.ddf     +++|          ADD    RA
02584  M00S02557.ddf     +++|          SHN    6
02585  M00S02558.ddf     +++|          ADM    IKEA+11
02586  M00S02559.ddf     +++|          CRM    CPLA,T1     READ COMMAND PROCESSOR
02587  M00S02560.ddf     +++|          LJM    CPLA        EXECUTE COMMAND
02588  M00S02561.ddf     +++|
02589  M00S02562.ddf     +++|*         PROCESS END OF FORMAT SCAN.
02590  M00S02563.ddf     +++|
02591  M00S02564.ddf     +++| IKE9     LDD    T1
02592  M00S02565.ddf     +++|          NJN    IKE12       IF UNIQUE CHARACTER
02593  M00S02566.ddf     +++|          STM    KBUF-1,KI   BACKSPACE POINTER
02594  M00S02567.ddf     +++|          SOD    KI
02595  M00S02568.ddf     +++| IKE10    LDD    EF
02596  M00S02569.ddf     +++|          ZJN    IKE11       IF EXECUTE FLAG NOT SET
02597  M00S02570.ddf     +++|          LDC    SREA        *REPEAT ENTRY.*
02598  M00S02571.ddf     +++|          STD    KM
02599  M00S02572.ddf     +++| IKE11    LJM    PKIX        RETURN
02600  M00S02573.ddf     +++|
02601  M00S02574.ddf     +++| IKE12    SBN    1R=
02602  M00S02575.ddf     +++|          PJN    IKE10       IF SPECIAL CHARACTER
02603  M00S02576.ddf     +++|          LDD    T1          FILL NEXT CHARACTER
02604  M00S02577.ddf     +++|          STM    KBUF,KI
02605  M00S02578.ddf     +++|          AOD    KI
02606  M00S02579.ddf     +++|          LJM    IKE         LOOP
02607  M00S02580.ddf     +++|
02608  M00S02581.ddf     +++|
02609  M00S02582.ddf     +++| IKEA     BSS    12          COMMAND SYNTAX BUFFER
02610  M00S02583.ddf     +++|          SPACE  4,10
02611  M00S02584.ddf     +++|**        EXIT ROUTINES FOR COMMAND PROCESSORS.
02612  M00S02585.ddf     +++| ERR      SPACE  4,10
02613  M00S02586.ddf     +++|**        ERR - SET ERROR MESSAGE.
02614  M00S02587.ddf     +++|
02615  M00S02588.ddf     +++|
02616  M00S02589.ddf     +++| ERR1     LDC    =C*FORMAT ERROR.*
02617  M00S02590.ddf     +++|          UJN    ERR         SET MESSAGE
02618  M00S02591.ddf     +++|
02619  M00S02592.ddf     +++| ERR2     LDC    =Z*INCORRECT PARAMETER.*
02620  M00S02593.ddf     +++|          UJN    ERR         SET MESSAGE
02621  M00S02594.ddf     +++|
02622  M00S02595.ddf     +++| ERR3     LDC    =Z*NOT FOUND.*
02623  M00S02596.ddf     +++|          UJN    ERR         SET MESSAGE
02624  M00S02597.ddf     +++|
02625  M00S02598.ddf     +++| ERR4     LDC    =Z*INCORRECT ENTRY.*
Line S00003 Modification History
M01 (Added by) ddf4
Seq #  *Modification Id* Act 
----------------------------+
02626  M01S00003.ddf4    +++|          UJN    ERR         SET MESSAGE
02627  M01S00004.ddf4    +++|
02628  M01S00005.ddf4    +++| ERR5     LDC    =Z*INCORRECT EQUIPMENT.*
02629  M00S02599.ddf     +++|
02630  M00S02600.ddf     +++| ERR      STD    KM
02631  M00S02601.ddf     +++|          UJN    RET         RETURN
02632  M00S02602.ddf     +++| IMS      SPACE  4,10
02633  M00S02603.ddf     +++|**        IMS - INITIALIZE MASS STORAGE DRIVERS AND RANDOM ACCESS.
02634  M00S02604.ddf     +++|
02635  M00S02605.ddf     +++|
02636  M00S02606.ddf     +++| IMS      RJM    CTS         CHECK TRACK AND SECTOR NUMBERS
02637  M00S02607.ddf     +++|*         UJN    RET         RETURN
02638  M00S02608.ddf     +++| RET      SPACE  4,10
02639  M00S02609.ddf     +++|**        RET - NORMAL RETURN.
02640  M00S02610.ddf     +++|
02641  M00S02611.ddf     +++|
02642  M00S02612.ddf     +++| RET      LDN    0           CLEAR INDEX
02643  M00S02613.ddf     +++| RET1     STD    T1          SET CLEARING INDEX
02644  M00S02614.ddf     +++|          LDD    KM
02645  M00S02615.ddf     +++|          NJN    RET3        IF MESSAGE SET
02646  M00S02616.ddf     +++|          LDD    T1          SET KEYBOARD INDEX
02647  M00S02617.ddf     +++|          STD    KI
02648  M00S02618.ddf     +++| RET2     LDN    0           CLEAR BUFFER
02649  M00S02619.ddf     +++|          STM    KBUF,T1
02650  M00S02620.ddf     +++|          AOD    T1
02651  M00S02621.ddf     +++|          LMC    KBUFL
02652  M00S02622.ddf     +++|          NJN    RET2        IF NOT END OF BUFFER
02653  M00S02623.ddf     +++| RET3     LDC    RCPX        RESTORE LOOP
02654  M00S02624.ddf     +++|          STM    RCPA
02655  M00S02625.ddf     +++|          STD    SB          CLEAR *SYSTEM BUSY* INDICATION
02656  M00S02626.ddf     +++|          LJM    PKIX        RETURN
02657  M00S02627.ddf     +++| SBN      SPACE  4,10
02658  M00S02628.ddf     +++|**        SBN - SET BYTE NUMBER MESSAGE.
02659  M00S02629.ddf     +++|*
02660  M00S02630.ddf     +++|*         (FN) = BYTE NUMBER.
02661  M00S02631.ddf     +++|
02662  M00S02632.ddf     +++|
02663  M00S02633.ddf     +++| SBN      LDD    FN          CONVERT NUMBER
02664  M00S02634.ddf     +++|          SHN    -6
02665  M00S02635.ddf     +++|          RJM    C2D         CONVERT TOP TWO DIGITS
02666  M00S02636.ddf     +++|          STM    SBNB
02667  M00S02637.ddf     +++|          LDD    FN
02668  M00S02638.ddf     +++|          RJM    C2D         CONVERT TWO DIGITS
02669  M00S02639.ddf     +++|          STM    SBNB+1
02670  M00S02640.ddf     +++|
02671  M00S02641.ddf     +++|*         CHECK RIGHT SCREEN PAGE.
02672  M00S02642.ddf     +++|
02673  M00S02643.ddf     +++|          LDD    RS
02674  M00S02644.ddf     +++|          SBK    DFBN
02675  M00S02645.ddf     +++|          DFIM   (ZJN SBN1)
02676  M00S02646.ddf     +++|          ZJN    SBN3        IF FIVE BYTE DISPLAY
02677  M00S02647.ddf     +++|          SBN    DLCN-DFBN
02678  M00S02648.ddf     +++|          DFIM   (MJN SBN3)
02679  M00S02649.ddf     +++|          MJN    SBN4        IF TEN BYTE OR TEXT DISPLAY
02680  M00S02650.ddf     +++|          ZJN    SBN4        IF COMMAND DISPLAY
02681  M00S02651.ddf     +++|
02682  M00S02652.ddf     +++|*         SET PAGE NUMBER FOR FOUR PAGE DISPLAY.
02683  M00S02653.ddf     +++|
02684  M00S02654.ddf     +++| SBN1     LDN    0
02685  M00S02655.ddf     +++|          STM    DRSA+4
02686  M00S02656.ddf     +++|          LDC    -2-500/4
02687  M00S02657.ddf     +++| SBN2     RAD    FN
02688  M00S02658.ddf     +++|          MJN    SBN4        IF ON CURRENT PAGE
02689  M00S02659.ddf     +++|          AOM    DRSA+4
02690  M00S02660.ddf     +++|          LDC    -500/4
02691  M00S02661.ddf     +++|          UJN    SBN2        LOOP TO CHECK NEXT PAGE
02692  M00S02662.ddf     +++|
02693  M00S02663.ddf     +++|*         SET PAGE NUMBER FOR TWO PAGE DISPLAY.
02694  M00S02664.ddf     +++|
02695  M00S02665.ddf     +++| SBN3     LDD    FN
02696  M00S02666.ddf     +++|          ADC    -242
02697  M00S02667.ddf     +++|          SHN    0-21
02698  M00S02668.ddf     +++|          LMN    1
02699  M00S02669.ddf     +++|          STM    DRSA+4
02700  M00S02670.ddf     +++| SBN4     LDC    SBNA
02701  M00S02671.ddf     +++|          LJM    SKM         DISPLAY MESSAGE
02702  M00S02672.ddf     +++|
02703  M00S02673.ddf     +++|
02704  M00S02674.ddf     +++| SBNA     DATA   H* BYTE *
02705  M00S02675.ddf     +++| SBNB     DATA   Z*NNNN.*
02706  M00S02676.ddf     +++| SCP      SPACE  4,10
02707  M00S02677.ddf     +++|**        SCP - START UP CPU PROGRAM.
02708  M00S02678.ddf     +++|*
02709  M00S02679.ddf     +++|*         ENTRY  (A) = FUNCTION NUMBER * 2 + 1.
02710  M00S02680.ddf     +++|*                (CM - CM+4) = CONTENTS OF CPU STATUS WORD.
02711  M00S02681.ddf     +++|
02712  M00S02682.ddf     +++|
02713  M00S02683.ddf     +++| SCP      STD    CM+4
02714  M00S02684.ddf     +++|          LDD    RA
02715  M00S02685.ddf     +++|          SHN    6
02716  M00S02686.ddf     +++|          ADN    D
02717  M00S02687.ddf     +++|          CWD    CM
02718  M00S02688.ddf     +++|          LJM    RET         RETURN
02719  M00S02689.ddf     +++| SKM      SPACE  4,10
02720  M00S02690.ddf     +++|**        SKM - SET KEYBOARD MESSAGE.
02721  M00S02691.ddf     +++|*
02722  M00S02692.ddf     +++|*         ENTRY  (A) = ADDRESS OF MESSAGE.
02723  M00S02693.ddf     +++|
02724  M00S02694.ddf     +++|
02725  M00S02695.ddf     +++| SKM      EQU    ERR
02726  M00S02696.ddf     +++|          SPACE  4,10
02727  M00S02697.ddf     +++|**        SPECIAL CHARACTER PROCESSORS.
02728  M00S02698.ddf     +++| AOS      SPACE  4,10
02729  M00S02699.ddf     +++|**        AOS - ADVANCE ONE SECTOR.
02730  M00S02700.ddf     +++|
02731  M00S02701.ddf     +++|
02732  M00S02702.ddf     +++| AOS      LDD    SC          CHECK SECTOR COUNT
02733  M00S02703.ddf     +++|          SBD    LS
02734  M00S02704.ddf     +++|          ZJN    AOS1        IF END OF TRACK
02735  M00S02705.ddf     +++|          LDM    BFMS
02736  M00S02706.ddf     +++|          ADM    BFMS+1
02737  M00S02707.ddf     +++|          ZJN    AOS1        IF END OF INFORMATION
02738  M00S02708.ddf     +++|          AOD    SC
02739  M00S02709.ddf     +++| AOS1     LJM    RCS         READ SECTOR
02740  M00S02710.ddf     +++| AOT      SPACE  4,10
02741  M00S02711.ddf     +++|**        AOT - ADVANCE ONE TRACK.
02742  M00S02712.ddf     +++|
02743  M00S02713.ddf     +++|
02744  M00S02714.ddf     +++| AOT      RJM    SNT         GET NEXT TRACK
02745  M00S02715.ddf     +++|          SHN    6
02746  M00S02716.ddf     +++|          PJN    AOT1        IF END OF CHAIN
02747  M00S02717.ddf     +++|          SHN    -6
02748  M00S02718.ddf     +++|          STD    TK
02749  M00S02719.ddf     +++| AOT1     UJN    ATZ2        CHECK TRACK NUMBER
02750  M00S02720.ddf     +++| APE      SPACE  4,10
02751  M00S02721.ddf     +++|**        APE - ADVANCE PAST EOI.
02752  M00S02722.ddf     +++|
02753  M00S02723.ddf     +++|
02754  M00S02724.ddf     +++| APE      LDD    SC
02755  M00S02725.ddf     +++|          SBD    LS
02756  M00S02726.ddf     +++|          ZJN    APE1        IF END OF TRACK
02757  M00S02727.ddf     +++|          AOD    SC          ADVANCE TO NEXT SECTOR
02758  M00S02728.ddf     +++|          UJN    APE2        READ SECTOR
02759  M00S02729.ddf     +++|
02760  M00S02730.ddf     +++| APE1     RJM    SNT         GET NEXT TRACK
02761  M00S02731.ddf     +++|          SHN    6
02762  M00S02732.ddf     +++|          PJN    APE2        IF EOI TRACK
02763  M00S02733.ddf     +++|          SHN    -6
02764  M00S02734.ddf     +++|          STD    TK
02765  M00S02735.ddf     +++|          LDN    0
02766  M00S02736.ddf     +++|          STD    SC
02767  M00S02737.ddf     +++| APE2     LJM    RCS         READ SECTOR
02768  M00S02738.ddf     +++| ATZ      SPACE  4,10
02769  M00S02739.ddf     +++|**        ATZ - ADVANCE ONE TRACK AND ZERO SECTOR.
02770  M00S02740.ddf     +++|
02771  M00S02741.ddf     +++|
02772  M00S02742.ddf     +++| ATZ      LDM    BFMS
02773  M00S02743.ddf     +++|          NJN    ATZ1        IF NOT EOF
02774  M00S02744.ddf     +++|          LDM    BFMS+1
02775  M00S02745.ddf     +++| ATZ1     SHN    6
02776  M00S02746.ddf     +++|          PJN    ATZ2        IF NOT CHAIN BYTE
02777  M00S02747.ddf     +++|          SHN    -6
02778  M00S02748.ddf     +++|          STD    TK          SET NEXT TRACK
02779  M00S02749.ddf     +++|          LDN    0
02780  M00S02750.ddf     +++|          STD    SC
02781  M00S02751.ddf     +++| ATZ2     RJM    CTS         CHECK SECTOR LIMIT
02782  M00S02752.ddf     +++|          LJM    RCS         READ SECTOR
02783  M00S02753.ddf     +++| BOS      SPACE  4,10
02784  M00S02754.ddf     +++|**        BOS - BACKUP ONE SECTOR.
02785  M00S02755.ddf     +++|
02786  M00S02756.ddf     +++|
02787  M00S02757.ddf     +++| BOS      LDD    SC
02788  M00S02758.ddf     +++|          ZJN    BOS1        IF BEGINNING OF TRACK
02789  M00S02759.ddf     +++|          SOD    SC
02790  M00S02760.ddf     +++| BOS1     LJM    RCS         READ SECTOR
02791  M00S02761.ddf     +++| BSP      SPACE  4,10
02792  M00S02762.ddf     +++|**        BSP - BACKSPACE KEYBOARD BUFFER.
02793  M00S02763.ddf     +++|
02794  M00S02764.ddf     +++|
02795  M00S02765.ddf     +++| BSP      SOD    KI          DECREMENT POINTER
02796  M00S02766.ddf     +++|          LDD    KM
02797  M00S02767.ddf     +++|          LMC    SREA
02798  M00S02768.ddf     +++|          ZJN    BSP1        IF *REPEAT ENTRY.*
02799  M00S02769.ddf     +++|          LDN    0
02800  M00S02770.ddf     +++|          STD    KM          CLEAR MESSAGE
02801  M00S02771.ddf     +++| BSP1     STM    KBUF,KI     CLEAR LAST CHARACTER
02802  M00S02772.ddf     +++|          LJM    RET3        RESTORE LOOP
02803  M00S02773.ddf     +++| CMB      SPACE  4,10
02804  M00S02774.ddf     +++|**        CMB - CLEAR MESSAGE AND BUFFER.
02805  M00S02775.ddf     +++|
02806  M00S02776.ddf     +++|
02807  M00S02777.ddf     +++| CMB      LDN    0           CLEAR KEYBOARD MESSAGE
02808  M00S02778.ddf     +++|          STD    KM
02809  M00S02779.ddf     +++|          STM    RDCT        CLEAR DRIVER ERROR CODE
02810  M00S02780.ddf     +++|          STD    CM          CLEAR CONTROL POINT MESSAGES
02811  M00S02781.ddf     +++|          LDD    CP
02812  M00S02782.ddf     +++|          ADN    MS1W
02813  M00S02783.ddf     +++|          CWD    CM
02814  M00S02784.ddf     +++|          ADN    MS2W-MS1W
02815  M00S02785.ddf     +++|          CWD    CM
02816  M00S02786.ddf     +++|          LJM    RET         CLEAR KEYBOARD BUFFER
02817  M00S02787.ddf     +++| DDC      SPACE  4,10
02818  M00S02788.ddf     +++|**        DDC - DROP DISPLAY CHANNEL.
02819  M00S02789.ddf     +++|
02820  M00S02790.ddf     +++|
02821  M00S02791.ddf     +++| DDC      RJM    HDC         HOLD DISPLAY CHANNEL
02822  M00S02792.ddf     +++|          RJM    CSB         CLEAR SCREEN BUFFER
02823  M00S02793.ddf     +++|          UJN    IRD1        RETURN TO *PKIX*
02824  M00S02794.ddf     +++| DTN      SPACE  4,10
02825  M00S02795.ddf     +++|**        DTN - DECREMENT TRACK NUMBER.
02826  M00S02796.ddf     +++|
02827  M00S02797.ddf     +++| DTN      SOD    TK
02828  M00S02798.ddf     +++| DTN1     LPC    3777
02829  M00S02799.ddf     +++|          ADC    4000
02830  M00S02800.ddf     +++|          STD    TK
02831  M00S02801.ddf     +++|          LJM    ATZ2        CHECK TRACK NUMBER
02832  M00S02802.ddf     +++| IRD      SPACE  4,10
02833  M00S02803.ddf     +++|**        IRD - INCREMENT RIGHT DISPLAY.
02834  M00S02804.ddf     +++|
02835  M00S02805.ddf     +++|
02836  M00S02806.ddf     +++| IRD      AOM    DRSA+4      INCREMENT DISPLAY INDEX
02837  M00S02807.ddf     +++|          LPC    777
02838  M00S02808.ddf     +++|          STM    DRSA+4
02839  M00S02809.ddf     +++| IRD1     LJM    PKIX        RETURN
02840  M00S02810.ddf     +++| ITN      SPACE  4,10
02841  M00S02811.ddf     +++|**        ITN - INCREMENT TRACK NUMBER.
02842  M00S02812.ddf     +++|
02843  M00S02813.ddf     +++|
02844  M00S02814.ddf     +++| ITN      AOD    TK
02845  M00S02815.ddf     +++|          UJN    DTN1        CHECK TRACK NUMBER
02846  M00S02816.ddf     +++| PEC      SPACE  4,10
02847  M00S02817.ddf     +++|**        PEC - PROCESS ENTERED COMMAND.
02848  M00S02818.ddf     +++|
02849  M00S02819.ddf     +++|
02850  M00S02820.ddf     +++| PEC      LDN    1           SET EXECUTE FLAG
02851  M00S02821.ddf     +++|          STD    EF
02852  M00S02822.ddf     +++|          LJM    IKE         CHECK COMMAND
02853  M00S02823.ddf     +++| RCS      SPACE  4,10
02854  M00S02824.ddf     +++|**        RCS - READ CURRENT SECTOR.
02855  M00S02825.ddf     +++|
02856  M00S02826.ddf     +++|
02857  M00S02827.ddf     +++| RCS      RJM    RSB         READ SECTOR
02858  M00S02828.ddf     +++|          LJM    RET3        RESTORE MAIN LOOP
02859  M00S02829.ddf     +++| RRD      SPACE  4,10
02860  M00S02830.ddf     +++|**        RRD - ROTATE RIGHT DISPLAY.
02861  M00S02831.ddf     +++|
02862  M00S02832.ddf     +++|
02863  M00S02833.ddf     +++| RRD      AOD    RS          INCREMENT RIGHT DISPLAY POINTER
02864  M00S02834.ddf     +++|          SBN    MXDI
02865  M00S02835.ddf     +++|          NJN    RRD1        IF LEGAL DISPLAY
02866  M00S02836.ddf     +++|          STD    RS
02867  M00S02837.ddf     +++| RRD1     UJN    IRD1        RETURN TO *PKIX*
02868  M00S02838.ddf     +++| SRE      SPACE  4,10
02869  M00S02839.ddf     +++|**        SRE - SET REPEAT ENTRY.
02870  M00S02840.ddf     +++|
02871  M00S02841.ddf     +++|
02872  M00S02842.ddf     +++| SRE      LDC    SREA
02873  M00S02843.ddf     +++|          STD    KM
02874  M00S02844.ddf     +++|          UJN    RRD1        RETURN TO *PKIX*
02875  M00S02845.ddf     +++|
02876  M00S02846.ddf     +++|
02877  M00S02847.ddf     +++| SREA     DATA   Z*REPEAT ENTRY.*
02878  M00S02848.ddf     +++|          TITLE  MEMORY CHANGES.
02879  M00S02849.ddf     +++| EMC      SPACE  4,10
02880  M00S02850.ddf     +++|***       MEMORY CHANGES.
02881  M00S02851.ddf     +++|*         XXX,YYYY.  ENTER YYYY INTO BYTE XXX.
02882  M00S02852.ddf     +++|*         XXX,DCC    ENTER CHARACTERS CC IN BYTE XXX.
02883  M00S02853.ddf     +++|*
02884  M00S02854.ddf     +++|*         IF THE COMMA *,* IS REPLACED BY A PLUS *+*, THE BYTE NUMBER
02885  M00S02855.ddf     +++|*         WILL BE INCREMENTED AFTER THE ENTRY IS PROCESSED.  THE ACTUAL
02886  M00S02856.ddf     +++|*         DATA ON THE DISK IS NOT CHANGED UNTIL THE WRITE COMMAND IS
02887  M00S02857.ddf     +++|*         ENTERED.
02888  M00S02858.ddf     +++| EMC      SPACE  4,10
02889  M00S02859.ddf     +++|**        EMC - ENTER MEMORY CHANGE.
02890  M00S02860.ddf     +++|*
02891  M00S02861.ddf     +++|*         ENTRY  (EF) = 0 IF INTERPRET ONLY.
02892  M00S02862.ddf     +++|*                (EF) " 0 IF EXECUTE REQUESTED.
02893  M00S02863.ddf     +++|*
02894  M00S02864.ddf     +++|*         USES   T1, AB+4, CM, CA, KM, RC.
02895  M00S02865.ddf     +++|*
02896  M00S02866.ddf     +++|*         CALLS  BSP, CDR, RET.
02897  M00S02867.ddf     +++|
02898  M00S02868.ddf     +++|
02899  M00S02869.ddf     +++| EMC      LDC    KBUF
02900  M00S02870.ddf     +++|          STD    CA
02901  M00S02871.ddf     +++|          RJM    CDR         CONVERT BYTE NUMBER
02902  M00S02872.ddf     +++|          ZJN    EMC2        IF NO MORE CHARACTERS
02903  M00S02873.ddf     +++|          LMN    1R+
02904  M00S02874.ddf     +++|          ZJN    EMC1        IF *+*
02905  M00S02875.ddf     +++|          LMN    1R,&1R+
02906  M00S02876.ddf     +++|          NJN    EMC3        IF ILLEGAL CHARACTER
02907  M00S02877.ddf     +++| EMC1     LDD    AB+4
02908  M00S02878.ddf     +++|          STD    RC
02909  M00S02879.ddf     +++|          ADC    -502
02910  M00S02880.ddf     +++|          PJN    EMC3        IF BYTE NUMBER TOO LARGE
02911  M00S02881.ddf     +++|          LDD    CA
02912  M00S02882.ddf     +++|          STD    CM
02913  M00S02883.ddf     +++|          AOD    CA
02914  M00S02884.ddf     +++|          LDI    CA
02915  M00S02885.ddf     +++|          LMN    1RD
02916  M00S02886.ddf     +++|          ZJN    EMC6        IF CHARACTER ENTRY
02917  M00S02887.ddf     +++|
02918  M00S02888.ddf     +++|*         ENTER OCTAL VALUE.
02919  M00S02889.ddf     +++|
02920  M00S02890.ddf     +++|          RJM    CDR         CONVERT VALUE
02921  M00S02891.ddf     +++| EMC2     ZJN    EMC4        IF NO MORE CHARACTERS
02922  M00S02892.ddf     +++|          LMN    1R.
02923  M00S02893.ddf     +++|          ZJN    EMC7        IF *.*
02924  M00S02894.ddf     +++| EMC3     LJM    BSP         DELETE ILLEGAL CHARACTER
02925  M00S02895.ddf     +++|
02926  M00S02896.ddf     +++|*         INCOMPLETE ENTRY.
02927  M00S02897.ddf     +++|
02928  M00S02898.ddf     +++| EMC4     LDD    EF
02929  M00S02899.ddf     +++|          ZJN    EMC5        IF EXECUTE NOT REQUESTED
02930  M00S02900.ddf     +++|          LDC    SREA        SET *REPEAT ENTRY.*
02931  M00S02901.ddf     +++|          STD    KM
02932  M00S02902.ddf     +++| EMC5     LJM    PKIX        RETURN
02933  M00S02903.ddf     +++|
02934  M00S02904.ddf     +++|*         ENTER DISPLAY CODE.
02935  M00S02905.ddf     +++|
02936  M00S02906.ddf     +++| EMC6     LDM    3,CA
02937  M00S02907.ddf     +++|          NJN    EMC3        IF TOO MANY CHARACTERS
02938  M00S02908.ddf     +++|          LDM    1,CA
02939  M00S02909.ddf     +++|          SHN    6
02940  M00S02910.ddf     +++|          ADM    2,CA
02941  M00S02911.ddf     +++|          STD    AB+4        VALUE
02942  M00S02912.ddf     +++|
02943  M00S02913.ddf     +++|*         ENTRY  COMPLETE.
02944  M00S02914.ddf     +++|
02945  M00S02915.ddf     +++| EMC7     LDD    EF
02946  M00S02916.ddf     +++|          ZJN    EMC5        IF EXECUTE NOT REQUESTED
02947  M00S02917.ddf     +++|          LDD    AB+4
02948  M00S02918.ddf     +++|          STM    BFMS,RC     STORE VALUE
02949  M00S02919.ddf     +++|          LDI    CM
02950  M00S02920.ddf     +++|          LMN    1R+
02951  M00S02921.ddf     +++|          ZJN    EMC8        IF *+* TYPE ENTRY
02952  M00S02922.ddf     +++|          LJM    RET         RETURN
02953  M00S02923.ddf     +++|
02954  M00S02924.ddf     +++|*         *+* ENTRY, ADVANCE ADDRESS.
02955  M00S02925.ddf     +++|
02956  M00S02926.ddf     +++| EMC8     LDD    CM
02957  M00S02927.ddf     +++|          SBN    1
02958  M00S02928.ddf     +++|          STD    T1
02959  M00S02929.ddf     +++| EMC9     AOI    T1          ADVANCE ADDRESS
02960  M00S02930.ddf     +++|          SBN    1R8
02961  M00S02931.ddf     +++|          MJN    EMC11       IF NO OVERFLOW
02962  M00S02932.ddf     +++|          LDN    1R0         RESET DIGIT
02963  M00S02933.ddf     +++|          STI    T1
02964  M00S02934.ddf     +++|          SOD    T1
02965  M00S02935.ddf     +++|          ADC    -KBUF
02966  M00S02936.ddf     +++|          PJN    EMC9        IF MORE DIGITS
02967  M00S02937.ddf     +++|          LDN    KBUFL-1
02968  M00S02938.ddf     +++|          STD    T1
02969  M00S02939.ddf     +++| EMC10    LDM    KBUF,T1     SHIFT BUFFER ONE CHARACTER RIGHT
02970  M00S02940.ddf     +++|          STM    KBUF+1,T1
02971  M00S02941.ddf     +++|          SOD    T1
02972  M00S02942.ddf     +++|          PJN    EMC10       IF MORE CHARACTERS
02973  M00S02943.ddf     +++|          LDN    1R1
02974  M00S02944.ddf     +++|          STM    KBUF        ADD LEADING 1
02975  M00S02945.ddf     +++|          AOD    CM          INCREMENT CHARACTER COUNT
02976  M00S02946.ddf     +++| EMC11    LDM    1,CM
02977  M00S02947.ddf     +++|          LMN    1RD
02978  M00S02948.ddf     +++|          NJN    EMC12       IF NOT CHARACTER ENTRY
02979  M00S02949.ddf     +++|          AOD    CM
02980  M00S02950.ddf     +++| EMC12    LDD    CM
02981  M00S02951.ddf     +++|          ADC    -KBUF+1
02982  M00S02952.ddf     +++|          LJM    RET1        CLEAR LAST PART OF ENTRY
02983  M00S02953.ddf     +++|          TITLE  SUBROUTINES.
02984  M00S02954.ddf     +++| ASD      SPACE  4,10
02985  M00S02955.ddf     +++|**        ASD - ASSEMBLE DIGITS.
02986  M00S02956.ddf     +++|*
02987  M00S02957.ddf     +++|*         ENTRY  (CA) = ADDRESS OF CHARACTER STRING.
02988  M00S02958.ddf     +++|*
02989  M00S02959.ddf     +++|*         EXIT   (AB - AB+4) = ASSEMBLY.
02990  M00S02960.ddf     +++|*                TO ERR IF NOT TERMINATED BY A *.*.
02991  M00S02961.ddf     +++|*
02992  M00S02962.ddf     +++|*         CALLS  CDR, ERR1.
02993  M00S02963.ddf     +++|
02994  M00S02964.ddf     +++|
02995  M00S02965.ddf     +++| ASD      SUBR               ENTRY/EXIT
02996  M00S02966.ddf     +++|          RJM    CDR         CONVERT DIGITS
02997  M00S02967.ddf     +++|          LMN    1R.
02998  M00S02968.ddf     +++|          ZJN    ASDX        IF PERIOD
02999  M00S02969.ddf     +++|          LJM    ERR1        *FORMAT ERROR.*
03000  M00S02970.ddf     +++| ASN      SPACE  4,10
03001  M00S02971.ddf     +++|**        ASN - ASSEMBLE NAME.
03002  M00S02972.ddf     +++|*
03003  M00S02973.ddf     +++|*         ENTRY  (CA) = ADDRESS OF CHARACTER STRING.
03004  M00S02974.ddf     +++|*
03005  M00S02975.ddf     +++|*         EXIT   (FN - FN+4) = NAME (LEFT JUSTIFIED).
03006  M00S02976.ddf     +++|*                TO ERR IF ILLEGAL CHARACTER OR MORE THAN 7 CHARACTERS.
03007  M00S02977.ddf     +++|*
03008  M00S02978.ddf     +++|*         USES   T1, T2.
03009  M00S02979.ddf     +++|*
03010  M00S02980.ddf     +++|*         CALLS  ERR2.
03011  M00S02981.ddf     +++|
03012  M00S02982.ddf     +++|
03013  M00S02983.ddf     +++| ASN3     LDD    T2          ADD CHARACTER TO NAME
03014  M00S02984.ddf     +++|          STM    FN,T1
03015  M00S02985.ddf     +++|
03016  M00S02986.ddf     +++| ASN      SUBR               ENTRY/EXIT
03017  M00S02987.ddf     +++|          LDN    ZERL
03018  M00S02988.ddf     +++|          CRD    FN
03019  M00S02989.ddf     +++|          LDN    0
03020  M00S02990.ddf     +++|          STD    T1
03021  M00S02991.ddf     +++| ASN1     LDI    CA          ASSEMBLE CHARACTERS
03022  M00S02992.ddf     +++|          ZJN    ASN2        IF END OF CHARACTER STRING
03023  M00S02993.ddf     +++|          SBN    1R.
03024  M00S02994.ddf     +++|          ZJN    ASNX        IF TERMINATOR
03025  M00S02995.ddf     +++|          LDI    CA          SAVE CHARACTER
03026  M00S02996.ddf     +++|          SHN    6
03027  M00S02997.ddf     +++|          STD    T2
03028  M00S02998.ddf     +++|          AOD    CA
03029  M00S02999.ddf     +++|          LDI    CA
03030  M00S03000.ddf     +++|          ZJN    ASN2        IF END OF CHARACTER STRING
03031  M00S03001.ddf     +++|          SBN    1R.
03032  M00S03002.ddf     +++|          ZJN    ASN3        IF TERMINATOR
03033  M00S03003.ddf     +++|          LDI    CA          ADD CHARACTERS TO NAME
03034  M00S03004.ddf     +++|          LMD    T2
03035  M00S03005.ddf     +++|          STM    FN,T1
03036  M00S03006.ddf     +++|          AOD    CA
03037  M00S03007.ddf     +++|          AOD    T1
03038  M00S03008.ddf     +++|          SBN    4
03039  M00S03009.ddf     +++|          MJN    ASN1        IF LESS THAN 7 CHARACTERS
03040  M00S03010.ddf     +++| ASN2     LJM    ERR2        *INCORRECT PARAMETER.*
03041  M00S03011.ddf     +++| CDR      SPACE  4,10
03042  M00S03012.ddf     +++|**        CDR - CONVERT DIGITS RIGHT ADJUSTED.
03043  M00S03013.ddf     +++|*
03044  M00S03014.ddf     +++|*         ENTRY  (CA) = ADDRESS OF CHARACTER STRING.
03045  M00S03015.ddf     +++|*
03046  M00S03016.ddf     +++|*         EXIT   (A) = SEPARATOR CHARACTER.
03047  M00S03017.ddf     +++|*                (AB - AB+4) = ASSEMBLY.
03048  M00S03018.ddf     +++|*                (CA) = ADDRESS OF SEPAROTOR CHARACTER.
03049  M00S03019.ddf     +++|*
03050  M00S03020.ddf     +++|*         USES   T2, T3, CA.
03051  M00S03021.ddf     +++|
03052  M00S03022.ddf     +++|
03053  M00S03023.ddf     +++| CDR      SUBR               ENTRY/EXIT
03054  M00S03024.ddf     +++|          LDN    ZERL        CLEAR ASSEMBLY AREA
03055  M00S03025.ddf     +++|          CRD    AB
03056  M00S03026.ddf     +++| CDR1     LDI    CA          LOAD CHARACTER
03057  M00S03027.ddf     +++|          SBN    1R0
03058  M00S03028.ddf     +++|          MJN    CDR2        IF ALPHA
03059  M00S03029.ddf     +++|          SBN    1R8-1R0
03060  M00S03030.ddf     +++|          MJN    CDR3        IF OCTAL DIGIT
03061  M00S03031.ddf     +++|          SBN    1R -1R8
03062  M00S03032.ddf     +++|          ZJN    CDR5        IF SPACE
03063  M00S03033.ddf     +++| CDR2     LDI    CA          LOAD CHARACTER
03064  M00S03034.ddf     +++|          UJN    CDRX        RETURN
03065  M00S03035.ddf     +++|
03066  M00S03036.ddf     +++| CDR3     ADN    1R8-1R0     STORE DIGIT
03067  M00S03037.ddf     +++|          STD    T3
03068  M00S03038.ddf     +++|          LDN    AB+4        SET BYTE ADDRESS
03069  M00S03039.ddf     +++|          STD    T2
03070  M00S03040.ddf     +++| CDR4     LDI    T2          LOAD BYTE
03071  M00S03041.ddf     +++|          SHN    3
03072  M00S03042.ddf     +++|          ADD    T3          ADD NEW DIGIT
03073  M00S03043.ddf     +++|          STI    T2          STORE
03074  M00S03044.ddf     +++|          SHN    -14         SAVE OVERFLOW
03075  M00S03045.ddf     +++|          STD    T3
03076  M00S03046.ddf     +++|          SOD    T2          ADVANCE BYTE ADDRESS
03077  M00S03047.ddf     +++|          LMN    AB-1
03078  M00S03048.ddf     +++|          NJN    CDR4        IF NOT END OF ASSEMBLY AREA
03079  M00S03049.ddf     +++| CDR5     AOD    CA          ADVANCE ADDRESS
03080  M00S03050.ddf     +++|          UJN    CDR1        LOOP
Line S00006 Modification History
M01 (Added by) ddf4
Seq #  *Modification Id* Act 
----------------------------+
03081  M01S00006.ddf4    +++| CEQ      SPACE  4,10
03082  M01S00007.ddf4    +++|**        CEQ - CHECK EQUIPMENT.
03083  M01S00008.ddf4    +++|*
03084  M01S00009.ddf4    +++|*         ENTRY  (EQ) = EQUIPMENT.
03085  M01S00010.ddf4    +++|*
03086  M01S00011.ddf4    +++|*         EXIT   TO *ERR5* IF INCORRECT EQUIPMENT.
03087  M01S00012.ddf4    +++|*
03088  M01S00013.ddf4    +++|*         USES   CM - CM+4.
03089  M01S00014.ddf4    +++|*
03090  M01S00015.ddf4    +++|*         MACROS SFA.
03091  M01S00016.ddf4    +++|
03092  M01S00017.ddf4    +++|
03093  M01S00018.ddf4    +++| CEQ      SUBR               ENTRY/EXIT
03094  M01S00019.ddf4    +++|          SFA    EST,EQ      READ EST ENTRY
03095  M01S00020.ddf4    +++|          ADK    EQDE
03096  M01S00021.ddf4    +++|          CRD    CM
03097  M01S00022.ddf4    +++|          LDD    CM+4        MST ADDRESS/10
03098  M01S00023.ddf4    +++|          SHN    3
03099  M01S00024.ddf4    +++|          ADN    DDLL
03100  M01S00025.ddf4    +++|          CRD    CM
03101  M01S00026.ddf4    +++|          LDD    CM
03102  M01S00027.ddf4    +++|          SHN    21-12
03103  M01S00028.ddf4    +++|          PJN    CEQX        IF NOT NULL EQUIPMENT
03104  M01S00029.ddf4    +++|          LJM    ERR5        *INCORRECT EQUIPMENT.*
03105  M00S03051.ddf     +++| CLB      SPACE  4,10
03106  M00S03052.ddf     +++|**        CLB - CHECK LOCK BIT.
03107  M00S03053.ddf     +++|*
03108  M00S03054.ddf     +++|*         EXIT   TO ERR IF KEYBOARD LOCKED.
03109  M00S03055.ddf     +++|*                (CM - CM+4) = *SSTL* WORD READ FROM CMR.
03110  M00S03056.ddf     +++|*
03111  M00S03057.ddf     +++|*         USES   CM - CM+4.
03112  M00S03058.ddf     +++|*
03113  M00S03059.ddf     +++|*         CALLS  ERR.
03114  M00S03060.ddf     +++|
03115  M00S03061.ddf     +++|
03116  M00S03062.ddf     +++| CLB      SUBR               ENTRY/EXIT
03117  M00S03063.ddf     +++|          LDK    SSTL        CHECK *SECURITY-UNLOCK* BIT
03118  M00S03064.ddf     +++|          CRD    CM
03119  M00S03065.ddf     +++|          LDD    CM
03120  M00S03066.ddf     +++|          SHN    21-11
03121  M00S03067.ddf     +++|          MJN    CLBX        IF UNLOCKED
03122  M00S03068.ddf     +++|          LJM    ERR4        *INCORRECT ENTRY.*
03123  M00S03069.ddf     +++| CSA      SPACE  4,10
03124  M00S03070.ddf     +++|**        CSA - COMPUTE SCRATCH AREA ADDRESS.
03125  M00S03071.ddf     +++|*
03126  M00S03072.ddf     +++|*         ENTRY  (CA) = POINTER TO NEXT CHARACTER.
03127  M00S03073.ddf     +++|*
03128  M00S03074.ddf     +++|*         EXIT   (CA) UPDATED.
03129  M00S03075.ddf     +++|*                (T2) = ADDRESS OF SCRATCH AREA.
03130  M00S03076.ddf     +++|*
03131  M00S03077.ddf     +++|*         CALLS  ERR1, ERR2.
03132  M00S03078.ddf     +++|
03133  M00S03079.ddf     +++|
03134  M00S03080.ddf     +++| CSA      SUBR               ENTRY/EXIT
03135  M00S03081.ddf     +++|          LDI    CA
03136  M00S03082.ddf     +++|          SBN    NSRA+1
03137  M00S03083.ddf     +++|          PJN    CSA1        IF ILLEGAL CHARACTER
03138  M00S03084.ddf     +++|          LDI    CA          CALCULATE ADDRESS
03139  M00S03085.ddf     +++|          SBN    1
03140  M00S03086.ddf     +++|          SHN    3
03141  M00S03087.ddf     +++|          ADI    CA
03142  M00S03088.ddf     +++|          ADC    SRA-1
03143  M00S03089.ddf     +++|          STD    T2
03144  M00S03090.ddf     +++|          AOD    CA          CHECK NEXT CHARACTER
03145  M00S03091.ddf     +++|          LDI    CA
03146  M00S03092.ddf     +++|          LMN    1R.
03147  M00S03093.ddf     +++|          ZJN    CSAX        IF LEGAL SEPARATOR
03148  M00S03094.ddf     +++|          LJM    ERR1        *FORMAT ERROR.*
03149  M00S03095.ddf     +++|
03150  M00S03096.ddf     +++| CSA1     LJM    ERR2        *INCORRECT PARAMETER.*
03151  M00S03097.ddf     +++| CSB      SPACE  4,10
03152  M00S03098.ddf     +++|**        CSB - CLEAR SCREEN BUFFER.
03153  M00S03099.ddf     +++|*
03154  M00S03100.ddf     +++|*         CLEAR SCREEN BUFFER, RESET TOP OF PAGE, AND SET *PKI*-S
03155  M00S03101.ddf     +++|*         RETURN ADDRESS TO *DDF1* WHEN THE CONSOLE TYPE IS A *CDC721*.
03156  M00S03102.ddf     +++|*
03157  M00S03103.ddf     +++|*         USES   T1.
03158  M00S03104.ddf     +++|*
03159  M00S03105.ddf     +++|*         MACROS CFNC, DFIM.
03160  M00S03106.ddf     +++|
03161  M00S03107.ddf     +++|
03162  M00S03108.ddf     +++| CSB1     LDN    CSBAL-1
03163  M00S03109.ddf     +++|          STD    T1
03164  M00S03110.ddf     +++| CSB2     LDM    CSBA,T1     ISSUE FUNCTION
03165  M00S03111.ddf     +++|          CFNC
03166  M00S03112.ddf     +++|          SOD    T1
03167  M00S03113.ddf     +++|          PJN    CSB2        IF MORE FUNCTIONS
03168  M00S03114.ddf     +++|          LDC    DDF1        SET *PKI* EXIT
03169  M00S03115.ddf     +++|          STM    PKI
03170  M00S03116.ddf     +++|
03171  M00S03117.ddf     +++| CSB      SUBR               ENTRY/EXIT
03172  M00S03118.ddf     +++|          DFIM   (UJN CSB1)
03173  M00S03119.ddf     +++|          UJN    CSBX        RETURN
03174  M00S03120.ddf     +++|
03175  M00S03121.ddf     +++|
03176  M00S03122.ddf     +++| CSBA     BSS    0           TABLE OF FUNCTION CODES IN REVERSE ORDER
03177  M00S03123.ddf     +++|          CON    CHSF        CLEAR HIDDEN SCREEN
03178  M00S03124.ddf     +++|          CON    RTPF        RESET TOP OF PAGE
03179  M00S03125.ddf     +++|          CON    SRSF        SELECT RIGHT SCREEN, SMALL CHARACTERS
03180  M00S03126.ddf     +++|          CON    RTPF        RESET TOP OF PAGE
03181  M00S03127.ddf     +++|          CON    SLSF        SELECT LEFT SCREEN, SMALL CHARACTERS
03182  M00S03128.ddf     +++| CSBAL    EQU    *-CSBA
03183  M00S03129.ddf     +++| CTR      SPACE  4,10
03184  M00S03130.ddf     +++|**        CTR - CHECK TRACK RESERVATION BIT.
03185  M00S03131.ddf     +++|*
03186  M00S03132.ddf     +++|*         EXIT   (A) .LT. 0 IF RESERVATION BIT SET.
03187  M00S03133.ddf     +++|*
03188  M00S03134.ddf     +++|*         CALLS  SNT.
03189  M00S03135.ddf     +++|
03190  M00S03136.ddf     +++|
03191  M00S03137.ddf     +++| CTR      SUBR               ENTRY/EXIT
03192  M00S03138.ddf     +++|          RJM    SNT         SET NEXT TRACK
03193  M00S03139.ddf     +++|          LDD    T1
03194  M00S03140.ddf     +++|          ADC    SHNI+22-4
03195  M00S03141.ddf     +++|          STM    CTRA
03196  M00S03142.ddf     +++|          LDD    CM+4
03197  M00S03143.ddf     +++| CTRA     SHN    **
03198  M00S03144.ddf     +++|          UJN    CTRX        RETURN
03199  M00S03145.ddf     +++| CTS      SPACE  4,10
03200  M00S03146.ddf     +++|**        CTS - CHECK TRACK AND SECTOR AND ZERO IF TOO LARGE.
03201  M00S03147.ddf     +++|*
03202  M00S03148.ddf     +++|*         ENTRY  (EQ) = EST ORDINAL.
03203  M00S03149.ddf     +++|*
03204  M00S03150.ddf     +++|*         EXIT   (A) .NE. 0, IF DEVICE IS INACCESSIBLE. (OFF OR DOWN)
03205  M00S03151.ddf     +++|*                (LS) = LAST SECTOR FOR CURRENT TRACK AND EQUIPMENT.
03206  M00S03152.ddf     +++|*                (LT) = MAXIMUM TRACK NUMBER FOR DEVICE.
03207  M00S03153.ddf     +++|*                (SC) = 0 IF IT WAS LARGER THAN THE SECTOR LIMIT.
03208  M00S03154.ddf     +++|*                (TK) = 4000 IF IT WAS LARGER THAN (LT).
03209  M00S03155.ddf     +++|*
03210  M00S03156.ddf     +++|*         USES   AB - AB+4, CM - CM+4.
03211  M00S03157.ddf     +++|
03212  M00S03158.ddf     +++|
03213  M00S03159.ddf     +++| CTS      SUBR               ENTRY/EXIT
03214  M00S03160.ddf     +++| CTSA     SETMS  IO,(AR,NS,AD,RW,DF)
03215  M00S03161.ddf     +++|*         SETMS  IO,(RR,NR,NS,AD,RW,DF)  (ERROR PROCESSING ENABLED)
03216  M00S03162.ddf     +++|          LDD    CM+4        SET FIRST WORD OF TRT
03217  M00S03163.ddf     +++|          SHN    3
03218  M00S03164.ddf     +++|          ADK    TDGL
03219  M00S03165.ddf     +++|          CRD    CM
03220  M00S03166.ddf     +++|          ADK    TRLL-TDGL
03221  M00S03167.ddf     +++|          CRD    AB
03222  M00S03168.ddf     +++|          LDD    AB+3
03223  M00S03169.ddf     +++|          LPN    77
03224  M00S03170.ddf     +++|          SHN    14
03225  M00S03171.ddf     +++|          LMD    AB+4
03226  M00S03172.ddf     +++|          SBD    TH          =4000/4
03227  M00S03173.ddf     +++|          STM    DLSA+1
03228  M00S03174.ddf     +++|          STM    SNTA+1
03229  M00S03175.ddf     +++|          SHN    -14
03230  M00S03176.ddf     +++|          LMC    ADCI
03231  M00S03177.ddf     +++|          STM    DLSA
03232  M00S03178.ddf     +++|          STM    SNTA
03233  M00S03179.ddf     +++|          LDD    CM          GET MAXIMUM TRACK
03234  M00S03180.ddf     +++|          ADC    4000-1
03235  M00S03181.ddf     +++|          STD    LT
03236  M00S03182.ddf     +++|          SBD    TK
03237  M00S03183.ddf     +++|          PJN    CTS1        IF LEGAL TRACK
03238  M00S03184.ddf     +++|          LDC    4000
03239  M00S03185.ddf     +++|          STD    TK
03240  M00S03186.ddf     +++| CTS1     LDM    SLM         CHECK SECTOR
03241  M00S03187.ddf     +++|          SBN    1
03242  M00S03188.ddf     +++|          STD    LS
03243  M00S03189.ddf     +++|          SBD    SC
03244  M00S03190.ddf     +++|          PJN    CTS2        IF LEGAL SECTOR
03245  M00S03191.ddf     +++|          LDN    0
03246  M00S03192.ddf     +++|          STD    SC
03247  M00S03193.ddf     +++| CTS2     UJP    CTSX        RETURN
03248  M00S03194.ddf     +++| DMW      SPACE  4,20
03249  M00S03195.ddf     +++|**        DMW - DISPLAY MEMORY WORDS.
03250  M00S03196.ddf     +++|*
03251  M00S03197.ddf     +++|*         ENTRY  (AB) = WORD NUMBER OF FIRST LINE TO DISPLAY.
03252  M00S03198.ddf     +++|*                (AB+1) = WORD NUMBER+1 OF LAST LINE.
03253  M00S03199.ddf     +++|*                (AB+2) = INDEX FOR FIRST BYTE TO DISPLAY.
03254  M00S03200.ddf     +++|*                (AB+3) = N TO DISPLAY KEYWORD TABLE.
03255  M00S03201.ddf     +++|*                        (N = FWA OF TABLE, 10 CHARACTERS PER ENTRY.)
03256  M00S03202.ddf     +++|*                       = 0 TO SUPPRESS KEYWORD DISPLAY.
03257  M00S03203.ddf     +++|*                (YC) = Y-COORDINATE ABOVE FIRST LINE TO BE DISPLAYED.
03258  M00S03204.ddf     +++|*
03259  M00S03205.ddf     +++|*         EXIT   (AB) = (AB+1).
03260  M00S03206.ddf     +++|*                (T3) = ADDRESS OF LAST BYTE DISPLAYED + 1.
03261  M00S03207.ddf     +++|*                (YC) = Y-COORDINATE OF LAST LINE DISPLAYED.
03262  M00S03208.ddf     +++|*
03263  M00S03209.ddf     +++|*         USES   T3, AB, AB+2, YC, RC.
03264  M00S03210.ddf     +++|*
03265  M00S03211.ddf     +++|*         CALLS  D2D, D4D, ODC.
03266  M00S03212.ddf     +++|
03267  M00S03213.ddf     +++|
03268  M00S03214.ddf     +++| DMW      SUBR               ENTRY/EXIT
03269  M00S03215.ddf     +++|          LDD    AB
03270  M00S03216.ddf     +++|          SBD    AB+1
03271  M00S03217.ddf     +++|          PJN    DMWX        IF NOTHING TO DISPLAY
03272  M00S03218.ddf     +++|          LDD    AB+3        SET TABLE ADDRESS
03273  M00S03219.ddf     +++|          STM    DMWA
03274  M00S03220.ddf     +++|          LDD    AB+2        SET BYTE ADDRESS
03275  M00S03221.ddf     +++|          ADC    BFMS
03276  M00S03222.ddf     +++|          STD    T3
03277  M00S03223.ddf     +++|
03278  M00S03224.ddf     +++|*         DISPLAY LABEL FOR WORD.
03279  M00S03225.ddf     +++|
03280  M00S03226.ddf     +++| DMW1     LCN    YINC
03281  M00S03227.ddf     +++|          RAD    YC
03282  M00S03228.ddf     +++|          OAN    CH+40       OUTPUT COORDINATES
03283  M00S03229.ddf     +++|          LDD    XC
03284  M00S03230.ddf     +++|          OAN    CH+40
03285  M00S03231.ddf     +++|          LDD    AB          DISPLAY CM WORD NUMBER
03286  M00S03232.ddf     +++|          RJM    D2D
03287  M00S03233.ddf     +++|          LDC    2R (
03288  M00S03234.ddf     +++|          OAN    CH+40
03289  M00S03235.ddf     +++|          LDD    AB+2        DISPLAY BYTE NUMBER
03290  M00S03236.ddf     +++|          RJM    D4D
03291  M00S03237.ddf     +++|          LDC    2R)
03292  M00S03238.ddf     +++|          OAN    CH+40
03293  M00S03239.ddf     +++|          LDD    AB+3
03294  M00S03240.ddf     +++|          ZJN    DMW2        IF NOT TABLE DISPLAY
03295  M00S03241.ddf     +++|          LDN    5           DISPLAY TABLE DATA
03296  M00S03242.ddf     +++|          OAM    **,CH
03297  M00S03243.ddf     +++| DMWA     EQU    *-1
03298  M00S03244.ddf     +++|          LDN    5           ADVANCE TABLE POINTER
03299  M00S03245.ddf     +++|          RAM    DMWA
03300  M00S03246.ddf     +++|
03301  M00S03247.ddf     +++|*         DISPLAY CONTENTS OF WORD.
03302  M00S03248.ddf     +++|
03303  M00S03249.ddf     +++| DMW2     LDN    0           DISPLAY 5 BYTES
03304  M00S03250.ddf     +++|          STD    RC
03305  M00S03251.ddf     +++|          OAN    CH+40
03306  M00S03252.ddf     +++| DMW3     LDN    0
03307  M00S03253.ddf     +++|          OAN    CH+40
03308  M00S03254.ddf     +++|          LDI    T3          DISPLAY CONTENTS OF BYTE
03309  M00S03255.ddf     +++|          RJM    D4D
03310  M00S03256.ddf     +++|          AOD    T3
03311  M00S03257.ddf     +++|          AOD    RC
03312  M00S03258.ddf     +++|          LMN    5
03313  M00S03259.ddf     +++|          NJN    DMW3        IF MORE BYTES
03314  M00S03260.ddf     +++|*         LDN    0           DISPLAY 5 BYTES IN DISPLAY CODE
03315  M00S03261.ddf     +++|          OAN    CH+40
03316  M00S03262.ddf     +++|          LCN    5
03317  M00S03263.ddf     +++|          RAD    T3
03318  M00S03264.ddf     +++|          LDN    5
03319  M00S03265.ddf     +++|          RJM    ODC         OUTPUT DISPLAY CODE
03320  M00S03266.ddf     +++| DMW4     LDN    5           INCREMENT BYTE ADDRESS
03321  M00S03267.ddf     +++|          RAD    AB+2
03322  M00S03268.ddf     +++|          AOD    AB          INCREMENT CM WORD NUMBER
03323  M00S03269.ddf     +++|          LMD    AB+1
03324  M00S03270.ddf     +++|          ZJN    DMW5        IF END OF DISPLAY
03325  M00S03271.ddf     +++|          LJM    DMW1        LOOP
03326  M00S03272.ddf     +++|
03327  M00S03273.ddf     +++| DMW5     LJM    DMWX        RETURN
03328  M00S03274.ddf     +++| D2D      SPACE  4,10
03329  M00S03275.ddf     +++|**        D2D - DISPLAY 2 DIGITS.
03330  M00S03276.ddf     +++|*
03331  M00S03277.ddf     +++|*         ENTRY  (A) = DIGITS RIGHT ADJUSTED.
03332  M00S03278.ddf     +++|
03333  M00S03279.ddf     +++|
03334  M00S03280.ddf     +++| D2D      SUBR               ENTRY/EXIT
03335  M00S03281.ddf     +++|          LPN    77          UNPACK DIGITS
03336  M00S03282.ddf     +++|          STD    T0
03337  M00S03283.ddf     +++|          SHN    3
03338  M00S03284.ddf     +++|          LMD    T0
03339  M00S03285.ddf     +++|          SCN    70
03340  M00S03286.ddf     +++|          ADC    2R00        CONVERT TO DISPLAY CODE
03341  M00S03287.ddf     +++|          OAN    CH+40
03342  M00S03288.ddf     +++|          UJN    D2DX        RETURN
03343  M00S03289.ddf     +++| D4D      SPACE  4,10
03344  M00S03290.ddf     +++|**        D4D - DISPLAY 4 DIGITS.
03345  M00S03291.ddf     +++|*
03346  M00S03292.ddf     +++|*         ENTRY  (A) = DIGITS RIGHT ADJUSTED.
03347  M00S03293.ddf     +++|*
03348  M00S03294.ddf     +++|*         USES   T1.
03349  M00S03295.ddf     +++|*
03350  M00S03296.ddf     +++|*         CALLS  D2D.
03351  M00S03297.ddf     +++|
03352  M00S03298.ddf     +++|
03353  M00S03299.ddf     +++| D4D      SUBR               ENTRY/EXIT
03354  M00S03300.ddf     +++|          STD    T1
03355  M00S03301.ddf     +++|          SHN    -6          DISPLAY FIRST 2 DIGITS
03356  M00S03302.ddf     +++|          RJM    D2D
03357  M00S03303.ddf     +++|          LDD    T1          DISPLAY SECOND 2 DIGITS
03358  M00S03304.ddf     +++|          RJM    D2D
03359  M00S03305.ddf     +++|          UJN    D4DX        RETURN
03360  M00S03306.ddf     +++| END      SPACE  4,10
03361  M00S03307.ddf     +++|**        END - END CPU PROGRAM.
03362  M00S03308.ddf     +++|*
03363  M00S03309.ddf     +++|*         USES   CM - CM+4.
03364  M00S03310.ddf     +++|*
03365  M00S03311.ddf     +++|*         CALLS  WCC.
03366  M00S03312.ddf     +++|
03367  M00S03313.ddf     +++|
03368  M00S03314.ddf     +++| END      SUBR               ENTRY/EXIT
03369  M00S03315.ddf     +++| ENDA     RJM    WCC         WAIT FOR CPU TO COMPLETE
03370  M00S03316.ddf     +++|*         UJN    ENDX        (*DDFILE* NOT LOADED)
03371  M00S03317.ddf     +++|          LDN    0*2+1
03372  M00S03318.ddf     +++|          STD    CM+4
03373  M00S03319.ddf     +++|          LDD    RA
03374  M00S03320.ddf     +++|          SHN    6
03375  M00S03321.ddf     +++|          ADN    D
03376  M00S03322.ddf     +++|          CWD    CM
03377  M00S03323.ddf     +++|          UJN    ENDX        RETURN
03378  M00S03324.ddf     +++| LDO      SPACE  4,20
03379  M00S03325.ddf     +++|**        LDO - LOAD OVERLAY.
03380  M00S03326.ddf     +++|*
03381  M00S03327.ddf     +++|*         ENTRY  (A) = OVERLAY CONTROL WORD INDEX.
03382  M00S03328.ddf     +++|*                      (RELATIVE TO *TCRO*)
03383  M00S03329.ddf     +++|*                (DRSB) = PREVIOUS (RS).
03384  M00S03330.ddf     +++|*                (DRSA - DRSA+4) = CURRENT OVERLAY CONTROL WORD.
03385  M00S03331.ddf     +++|*
03386  M00S03332.ddf     +++|*         EXIT   (DRSA - DRSA+4) UPDATED AS REQUIRED.
03387  M00S03333.ddf     +++|*                (DRSB) UPDATED IF DISPLAY IS BEING CHANGED.
03388  M00S03334.ddf     +++|*                (CM) = LOAD ADDRESS.
03389  M00S03335.ddf     +++|*                OVERLAY LOADED AND PRESET.
03390  M00S03336.ddf     +++|*                OLD OVERLAY CONTROL WORD WRITTEN TO CM, IF VALID,
03391  M00S03337.ddf     +++|*                TO PRESERVE DISPLAY INDEX.
03392  M00S03338.ddf     +++|*
03393  M00S03339.ddf     +++|*         USES   AB, CM - CM+4.
03394  M00S03340.ddf     +++|*
03395  M00S03341.ddf     +++|*         CALLS  MCI.
03396  M00S03342.ddf     +++|
03397  M00S03343.ddf     +++|
03398  M00S03344.ddf     +++| LDO      SUBR               ENTRY/EXIT
03399  M00S03345.ddf     +++|          STD    AB          SAVE INDEX
03400  M00S03346.ddf     +++|          LDD    RA          LOAD CONTROL WORD FOR DESIRED OVERLAY
03401  M00S03347.ddf     +++|          ADD    TA
03402  M00S03348.ddf     +++|          SHN    6
03403  M00S03349.ddf     +++|          ADC    TCRO
03404  M00S03350.ddf     +++|          ADD    AB
03405  M00S03351.ddf     +++|          CRD    CM
03406  M00S03352.ddf     +++|          LDD    CM+1        CHECK WORD COUNT
03407  M00S03353.ddf     +++|          ZJN    LDO1        IF NO LOAD REQUIRED
03408  M00S03354.ddf     +++|          LDD    CM          SET LOAD ADDRESS
03409  M00S03355.ddf     +++|          STM    LDOA
03410  M00S03356.ddf     +++|          LDD    CM+2        LOAD PROCESSOR OVERLAY
03411  M00S03357.ddf     +++|          SHN    6
03412  M00S03358.ddf     +++|          ADD    RA
03413  M00S03359.ddf     +++|          SHN    6
03414  M00S03360.ddf     +++|          ADD    CM+3
03415  M00S03361.ddf     +++|          CRM    **,CM+1
03416  M00S03362.ddf     +++| LDOA     EQU    *-1         LOAD ADDRESS
03417  M00S03363.ddf     +++| LDO1     LDD    AB
03418  M00S03364.ddf     +++|          LMD    RS
03419  M00S03365.ddf     +++|          NJP    LDOX        IF NOT A MAIN DISPLAY OVERLAY
03420  M00S03366.ddf     +++|          LDM    DRSB
03421  M00S03367.ddf     +++|          SBN    MXDI
03422  M00S03368.ddf     +++|          PJN    LDO2        IF OLD CONTROL WORD INVALID
03423  M00S03369.ddf     +++|          LDD    RA          STORE OLD CONTROL WORD
03424  M00S03370.ddf     +++|          ADD    TA
03425  M00S03371.ddf     +++|          SHN    6
03426  M00S03372.ddf     +++|          ADC    TCRO
03427  M00S03373.ddf     +++|          ADM    DRSB
03428  M00S03374.ddf     +++|          CWM    DRSA,ON
03429  M00S03375.ddf     +++| LDO2     LDD    RA          READ NEW PROCESSOR CONTROL WORD
03430  M00S03376.ddf     +++|          ADD    TA
03431  M00S03377.ddf     +++|          SHN    6
03432  M00S03378.ddf     +++|          ADC    TCRO
03433  M00S03379.ddf     +++|          ADD    RS
03434  M00S03380.ddf     +++|          CRM    DRSA,ON     (SETS PROCESSOR ENTRY ADDRESS FOR *LJM*)
03435  M00S03381.ddf     +++|          LDD    RS          UPDATE OLD ID
03436  M00S03382.ddf     +++|          STM    DRSB
03437  M00S03383.ddf     +++|          LJM    LDOX        RETURN
03438  M00S03384.ddf     +++| ODC      SPACE  4,10
03439  M00S03385.ddf     +++|**        ODC - OUTPUT DISPLAY CODE.
03440  M00S03386.ddf     +++|*
03441  M00S03387.ddf     +++|*         ENTRY  (A) = NUMBER OF BYTES TO DISPLAY.
03442  M00S03388.ddf     +++|*                (T3) = ADDRESS OF FIRST BYTE.
03443  M00S03389.ddf     +++|*                (XC) = 6000.
03444  M00S03390.ddf     +++|*
03445  M00S03391.ddf     +++|*         EXIT   (T3) = ADDRESS OF NEXT BYTE.
03446  M00S03392.ddf     +++|*
03447  M00S03393.ddf     +++|*         USES   T0, T3.
03448  M00S03394.ddf     +++|
03449  M00S03395.ddf     +++|
03450  M00S03396.ddf     +++| ODC2     LDI    T3          DISPLAY BOTH CHARACTERS
03451  M00S03397.ddf     +++| ODC3     OAN    CH+40
03452  M00S03398.ddf     +++|          AOD    T3
03453  M00S03399.ddf     +++|          SOD    T0
03454  M00S03400.ddf     +++|          NJN    ODC1        IF MORE BYTES TO DISPLAY
03455  M00S03401.ddf     +++|
03456  M00S03402.ddf     +++| ODC      SUBR               ENTRY/EXIT
03457  M00S03403.ddf     +++|          STD    T0
03458  M00S03404.ddf     +++| ODC1     LDI    T3
03459  M00S03405.ddf     +++|          SBD    XC
03460  M00S03406.ddf     +++|          MJN    ODC2        IF UPPER CHARACTER LEGAL
03461  M00S03407.ddf     +++|          LPN    77
03462  M00S03408.ddf     +++|          UJN    ODC3        DISPLAY LOWER CHARACTER ONLY
03463  M00S03409.ddf     +++| RCP      SPACE  4,10
03464  M00S03410.ddf     +++|**        RCP - RECALL COMMAND PROCESSOR IF NECESSARY.
03465  M00S03411.ddf     +++|*
03466  M00S03412.ddf     +++|*         ENTRY  (RCPA) = ADDRESS IN COMMAND PROCESSOR IF RECALLING.
03467  M00S03413.ddf     +++|*                       = RCPX IF NO RECALL NEEDED.
03468  M00S03414.ddf     +++|*
03469  M00S03415.ddf     +++|*         EXIT   (RCPA) UPDATED.
03470  M00S03416.ddf     +++|
03471  M00S03417.ddf     +++|
03472  M00S03418.ddf     +++| RCP      SUBR               ENTRY/EXIT
03473  M00S03419.ddf     +++| RCP1     LJM    RCPX        RETURN IF NO RECALL
03474  M00S03420.ddf     +++|*         LJM    COMMAND     (RECALL COMMAND PROCESSOR)
03475  M00S03421.ddf     +++| RCPA     EQU    *-1
03476  M00S03422.ddf     +++|          SOM    RCPB
03477  M00S03423.ddf     +++|          PJN    RCP1        IF RECALL COUNT NOT EXAUSTED
03478  M00S03424.ddf     +++|          DFIM   (LDN MLPS-1)
03479  M00S03425.ddf     +++|          LDN    0           RESET RECALL COUNT
03480  M00S03426.ddf     +++|          STM    RCPB
03481  M00S03427.ddf     +++|          UJN    RCPX        RETURN TO MAIN LOOP
03482  M00S03428.ddf     +++|
03483  M00S03429.ddf     +++|
03484  M00S03430.ddf     +++| RCPB     CON    0           RECALL COUNT
03485  M00S03431.ddf     +++| RSB      SPACE  4,10
03486  M00S03432.ddf     +++|**        RSB - READ SECTOR TO BUFFER.
03487  M00S03433.ddf     +++|*
03488  M00S03434.ddf     +++|*         EXIT   (A) .LT. 0 IF ERROR ON READ.
03489  M00S03435.ddf     +++|*                (A) = 0 IF NO ERROR.
03490  M00S03436.ddf     +++|*
Line S03437 Modification History
M01 (Removed by) ddf4
Seq #  *Modification Id* Act 
----------------------------+
03491  M01S03437.ddf4    ---|*         CALLS  RDS.
Line S00030 Modification History
M01 (Added by) ddf4
Seq #  *Modification Id* Act 
----------------------------+
03492  M01S00030.ddf4    +++|*         CALLS  CEQ, RDS.
03493  M00S03438.ddf     +++|*
03494  M00S03439.ddf     +++|*         MACROS ENDMS.
03495  M00S03440.ddf     +++|
03496  M00S03441.ddf     +++|
03497  M00S03442.ddf     +++| RSB      SUBR               ENTRY/EXIT
Line S00031 Modification History
M01 (Added by) ddf4
Seq #  *Modification Id* Act 
----------------------------+
03498  M01S00031.ddf4    +++|          RJM    CEQ         CHECK EQUIPMENT
03499  M00S03443.ddf     +++|          LDC    BFMS
03500  M00S03444.ddf     +++|          RJM    RDS         READ SECTOR
03501  M00S03445.ddf     +++|          MJN    RSBX        IF ERROR
03502  M00S03446.ddf     +++|          ENDMS
03503  M00S03447.ddf     +++|*         LDN    0
03504  M00S03448.ddf     +++|          STM    RDCT
03505  M00S03449.ddf     +++|          UJN    RSBX        RETURN
03506  M00S03450.ddf     +++| SNS      SPACE  4,10
03507  M00S03451.ddf     +++|**        SNS - SET NEXT SECTOR.
03508  M00S03452.ddf     +++|*
03509  M00S03453.ddf     +++|*         EXIT   (A) = 0 IF CURRENTLY AT EOI.
03510  M00S03454.ddf     +++|
03511  M00S03455.ddf     +++|
03512  M00S03456.ddf     +++| SNS1     LDM    BFMS
03513  M00S03457.ddf     +++|          NJN    SNS2        IF NOT EOF
03514  M00S03458.ddf     +++|          LDM    BFMS+1
03515  M00S03459.ddf     +++| SNS2     STD    TK
03516  M00S03460.ddf     +++|
03517  M00S03461.ddf     +++| SNS      SUBR               ENTRY/EXIT
03518  M00S03462.ddf     +++|          LDM    BFMS
03519  M00S03463.ddf     +++|          ADM    BFMS+1
03520  M00S03464.ddf     +++|          ZJN    SNSX        IF EOI
03521  M00S03465.ddf     +++|          AOD    SC
03522  M00S03466.ddf     +++|          SBD    LS
03523  M00S03467.ddf     +++|          SBN    1
03524  M00S03468.ddf     +++|          NJN    SNSX        IF NOT END OF TRACK
03525  M00S03469.ddf     +++|          STD    SC          SET SECTOR TO ZERO
03526  M00S03470.ddf     +++|          LDM    BFMS
03527  M00S03471.ddf     +++|          SHN    6
03528  M00S03472.ddf     +++|          ADM    BFMS+1
03529  M00S03473.ddf     +++|          LMC    377777
03530  M00S03474.ddf     +++|          NJN    SNS1        IF NOT SYSTEM SECTOR
03531  M00S03475.ddf     +++|          LDM    NSSS
03532  M00S03476.ddf     +++|          UJN    SNS2        ENTER TRACK FROM SYSTEM SECTOR
03533  M00S03477.ddf     +++| SPP      SPACE  4,10
03534  M00S03478.ddf     +++|**        SPP - SET PAGE PARAMETERS.
03535  M00S03479.ddf     +++|*
03536  M00S03480.ddf     +++|*         ENTRY  (DRSA+4) = PAGE INDEX.
03537  M00S03481.ddf     +++|*                (T3) = BFMS.
03538  M00S03482.ddf     +++|*
03539  M00S03483.ddf     +++|*         EXIT   (A) = NUMBER OF WORDS TO DISPLAY (PAGE SIZE).
03540  M00S03484.ddf     +++|*                (AB) = FIRST CM WORD NUMBER (PAGE INDEX * PAGE SIZE).
03541  M00S03485.ddf     +++|*
03542  M00S03486.ddf     +++|*         USES   AB.
03543  M00S03487.ddf     +++|
03544  M00S03488.ddf     +++|
03545  M00S03489.ddf     +++| SPP      SUBR               ENTRY/EXIT
03546  M00S03490.ddf     +++|          LDM    DRSA+4
03547  M00S03491.ddf     +++|          DFIM   (LPN 3)
03548  M00S03492.ddf     +++|          LPN    1           PAGE INDEX
03549  M00S03493.ddf     +++|          DFIM   (SHN 4)     * 20B, 721 PAGE SIZE
03550  M00S03494.ddf     +++|          SHN    5           * 40B, 545 PAGE SIZE
03551  M00S03495.ddf     +++|          STD    AB          = FIRST CM WORD NUMBER
03552  M00S03496.ddf     +++|          LDI    T3          SET UP NUMBER OF WORDS TO DISPLAY
03553  M00S03497.ddf     +++|          ZJN    SPPX        IF EOI SECTOR
03554  M00S03498.ddf     +++|          DFIM   (LDN 20)    721 PAGE SIZE IN CM WORDS
03555  M00S03499.ddf     +++|          LDN    40          545 PAGE SIZE IN CM WORDS
03556  M00S03500.ddf     +++|          UJN    SPPX        RETURN
03557  M00S03501.ddf     +++| WCC      SPACE  4,10
03558  M00S03502.ddf     +++|**        WCC - WAIT FOR CPU TO COMPLETE.
03559  M00S03503.ddf     +++|*
03560  M00S03504.ddf     +++|*         EXIT   (CM - CM+4) = CONTENTS OF CPU STATUS WORD.
03561  M00S03505.ddf     +++|*
03562  M00S03506.ddf     +++|*         CALLS  RCPA.
03563  M00S03507.ddf     +++|
03564  M00S03508.ddf     +++|
03565  M00S03509.ddf     +++| WCC      SUBR               ENTRY/EXIT
03566  M00S03510.ddf     +++| WCC1     RJM    RCPA        RETURN TO MAIN LOOP
03567  M00S03511.ddf     +++|          LDD    RA          READ STATUS WORD
03568  M00S03512.ddf     +++|          SHN    6
03569  M00S03513.ddf     +++|          ADN    D
03570  M00S03514.ddf     +++|          CRD    CM
03571  M00S03515.ddf     +++|          LDD    CM+4
03572  M00S03516.ddf     +++|          ZJN    WCCX        IF COMPLETE
03573  M00S03517.ddf     +++|          UJN    WCC1        LOOP
03574  M00S03518.ddf     +++|          SPACE  4,10
03575  M00S03519.ddf     +++|*         COMMON DECKS.
03576  M00S03520.ddf     +++|
03577  M00S03521.ddf     +++|
03578  M00S03522.ddf     +++|          QUAL   COMDDSP     AVOID *RDS* DEFINITION CONFLICT
03579  M00S03523.ddf     +++|*CALL     COMDDSP
03580  M00S03524.ddf     +++|          QUAL   *
03581  M00S03525.ddf     +++| RDC      EQU    /COMDDSP/RDS     REQUEST DISPLAY CHANNEL
03582  M00S03526.ddf     +++| DDS      EQU    /COMDDSP/DDS
03583  M00S03527.ddf     +++| HDC      EQU    /COMDDSP/HDC
03584  M00S03528.ddf     +++| PSS      EQU    /COMDDSP/PSS
03585  M00S03529.ddf     +++|
03586  M00S03530.ddf     +++|*CALL     COMDSYS
03587  M00S03531.ddf     +++|
03588  M00S03532.ddf     +++|*CALL     COMPC2D
03589  M00S03533.ddf     +++|
03590  M00S03534.ddf     +++|          QUAL   COMPSNT
03591  M00S03535.ddf     +++| IRA$     EQU    *
03592  M00S03536.ddf     +++|          QUAL   *
03593  M00S03537.ddf     +++|*CALL     COMPSNT
03594  M00S03538.ddf     +++|
03595  M00S03539.ddf     +++|
03596  M00S03540.ddf     +++|          TITLE  BUFFERS.
03597  M00S03541.ddf     +++| SRA      SPACE  4,10
03598  M00S03542.ddf     +++|**        SRA - SCRATCH REGISTER AREA.
03599  M00S03543.ddf     +++|*
03600  M00S03544.ddf     +++|*         9 BYTES PER ENTRY.
03601  M00S03545.ddf     +++|*                0 = EST ORDINAL.
03602  M00S03546.ddf     +++|*                1 = TRACK.
03603  M00S03547.ddf     +++|*                2 = SECTOR.
03604  M00S03548.ddf     +++|*                3 = 3/DISPLAY NUMBER,9/DISPLAY INDEX
03605  M00S03549.ddf     +++|*                4 - 8 = 10 CHARACTER COMMENT
03606  M00S03550.ddf     +++|
03607  M00S03551.ddf     +++|
03608  M00S03552.ddf     +++| SRA      BSSZ   9D*NSRA
03609  M00S03553.ddf     +++| KBUF     SPACE  4,10
03610  M00S03554.ddf     +++| KBUF     BSSZ   KBUFL       KEYBOARD BUFFER
03611  M00S03555.ddf     +++|          SPACE  4,10
03612  M00S03556.ddf     +++| DIS      HERE
03613  M00S03557.ddf     +++|          SPACE  4,10
03614  M00S03558.ddf     +++|          USE    PRESET
03615  M00S03559.ddf     +++|
03616  M00S03560.ddf     +++| BFMS     BSSN   502         SECTOR BUFFER
03617  M00S03561.ddf     +++| CPLA     BSSN   0           COMMAND PROCESSOR LOAD ADDRESS
03618  M00S03562.ddf     +++| END      BSSN
03619  M00S03563.ddf     +++|          SPACE  4,10
03620  M00S03564.ddf     +++|*         COMMON DECKS THAT DEFINE TAGS BASED ON *BFMS*.
03621  M00S03565.ddf     +++|
03622  M00S03566.ddf     +++|
03623  M00S03567.ddf     +++|          QUAL   LSD
03624  M00S03568.ddf     +++|*CALL     COMSLSD
03625  M00S03569.ddf     +++|          QUAL   *
03626  M00S03570.ddf     +++|*CALL     COMSPFM
03627  M00S03571.ddf     +++|*CALL     COMSSSE
03628  M00S03572.ddf     +++|*CALL     COMSWEI
03629  M00S03573.ddf     +++|          TITLE  PRESET PROGRAM.
03630  M00S03574.ddf     +++| PRR      SPACE  4,10
03631  M00S03575.ddf     +++|**        PRR - PRESET RESIDENT ROUTINES.
03632  M00S03576.ddf     +++|
03633  M00S03577.ddf     +++|
03634  M00S03578.ddf     +++| PRR3     LDN    10          CLEAR LAST PART OF BUFFER
03635  M00S03579.ddf     +++|          STD    T1
03636  M00S03580.ddf     +++| PRR4     LDN    0
03637  M00S03581.ddf     +++|          STM    BFMS+500,T1
03638  M00S03582.ddf     +++|          SOD    T1
03639  M00S03583.ddf     +++|          PJN    PRR4        IF MORE TO CLEAR
03640  M00S03584.ddf     +++|          LJM    RCS         READ SECTOR
03641  M00S03585.ddf     +++|          ERRNG  BFMS+500-*  CLEARING CODE OVERFLOWS END OF BUFFER
03642  M00S03586.ddf     +++|
03643  M00S03587.ddf     +++| PRR      BSS    0           ENTRY
03644  M00S03588.ddf     +++|          LDN    0           PRESET DIRECT CELLS
03645  M00S03589.ddf     +++|          STD    CR
03646  M00S03590.ddf     +++|          STD    KI
03647  M00S03591.ddf     +++|          STD    KM
03648  M00S03592.ddf     +++|          STD    DK
03649  M00S03593.ddf     +++|          STM    RSPLA
03650  M00S03594.ddf     +++|          STD    RT
03651  M00S03595.ddf     +++|          LDK    DFBN        PRESET FIVE BYTE RIGHT SCREEN DISPLAY
03652  M00S03596.ddf     +++|          STD    RS
03653  M00S03597.ddf     +++|          LDD    CP
03654  M00S03598.ddf     +++|          ADK    PFCW
03655  M00S03599.ddf     +++|          CRD    CM
03656  M00S03600.ddf     +++|          ADK    PKNW-PFCW
03657  M00S03601.ddf     +++|          CRD    PF
03658  M00S03602.ddf     +++|          LDD    CM+3
03659  M00S03603.ddf     +++|          STD    PF+4
03660  M00S03604.ddf     +++|          LDC    CH01        PRESET X-COORDINATE
03661  M00S03605.ddf     +++|          STD    XC
03662  M00S03606.ddf     +++|          STD    SB          CLEAR SYSTEM BUSY FLAG
03663  M00S03607.ddf     +++|          LDK    DSEQ        CHECK DISPLAY CONSOLE TYPE
03664  M00S03608.ddf     +++|          SFA    EST
Line S03609 Modification History
M01 (Removed by) ddf1
Seq #  *Modification Id* Act 
----------------------------+
03665  M01S03609.ddf1    ---|          ADK    EQDE
Line S00001 Modification History
M01 (Added by) ddf1
Seq #  *Modification Id* Act 
----------------------------+
03666  M01S00001.ddf1    +++|          ADK    EQAE
03667  M00S03610.ddf     +++|          CRD    CM
03668  M00S03611.ddf     +++|          LDD    CM+2
03669  M00S03612.ddf     +++|          ZJN    PRR1        IF CC545 CONSOLE
03670  M00S03613.ddf     +++|          MDIN               MODIFY DISPLAY GENERATOR
03671  M00S03614.ddf     +++| PRR1     LDN    0           CLEAR *.* IN COMMON DECKS
03672  M00S03615.ddf     +++|          STM    D6SA
03673  M00S03616.ddf     +++|          STM    D2SB        CLEAR *OAN* INSTRUCTION
03674  M00S03617.ddf     +++|          LDD    RA          PRESET CPU PROGRAM ADDRESS CONSTANTS
03675  M00S03618.ddf     +++|          SHN    6
03676  M00S03619.ddf     +++|          ADN    D-2
03677  M00S03620.ddf     +++|          CRD    CM
03678  M00S03621.ddf     +++|          LDD    CM+3
03679  M00S03622.ddf     +++|          STD    BA
03680  M00S03623.ddf     +++|          LDD    CM+4
03681  M00S03624.ddf     +++|          STD    BA+1
03682  M00S03625.ddf     +++|          LDM    DDF
03683  M00S03626.ddf     +++|          NJN    PRR2        IF *DDFILE* LOADED
03684  M00S03627.ddf     +++|          ISTORE ENDA,(UJN ENDX)
03685  M00S03628.ddf     +++| PRR2     RJM    RDC         REQUEST DISPLAY
03686  M00S03629.ddf     +++|          RJM    CSB         CLEAR SCREEN BUFFER
03687  M00S03630.ddf     +++|          LDN    ZERL        CLEAR CONTROL POINT MESSAGES
03688  M00S03631.ddf     +++|          CRD    CM
03689  M00S03632.ddf     +++|          LDD    CP
03690  M00S03633.ddf     +++|          ADN    MS1W
03691  M00S03634.ddf     +++|          CWD    CM
03692  M00S03635.ddf     +++|          ADK    MS2W-MS1W
03693  M00S03636.ddf     +++|          CWD    CM
03694  M00S03637.ddf     +++|          LDN    0           INITIALIZE DISK ADDRESS DATA
03695  M00S03638.ddf     +++|          STD    SC
03696  M00S03639.ddf     +++|          LDC    PFNL        GET DEFAULT FAMILY ORDINAL
03697  M00S03640.ddf     +++|          CRD    CM
03698  M00S03641.ddf     +++|          LDD    CM+3
03699  M00S03642.ddf     +++|          STD    EQ
03700  M00S03643.ddf     +++|          SFA    EST         GET LABEL TRACK NUMBER
03701  M00S03644.ddf     +++|          ADK    EQDE
03702  M00S03645.ddf     +++|          CRD    CM
03703  M00S03646.ddf     +++|          LDD    CM+4
03704  M00S03647.ddf     +++|          SHN    3
03705  M00S03648.ddf     +++|          ADN    ALGL
03706  M00S03649.ddf     +++|          CRD    CM
03707  M00S03650.ddf     +++|          LDD    CM+1
03708  M00S03651.ddf     +++|          STD    TK
03709  M00S03652.ddf     +++|          RJM    CTS         CHECK TRACK VALUE
03710  M00S03653.ddf     +++|          LDC    DDF1        PRESET *PKI* EXIT
03711  M00S03654.ddf     +++|          STM    PKI
03712  M00S03655.ddf     +++|          LJM    PRR3        CLEAR BUFFER AND ENTER MAIN LOOP
03713  M00S03656.ddf     +++|          SPACE  4,10
03714  M00S03657.ddf     +++|**        DUMP INSTRUCTION MODIFICATION BLOCK.
03715  M00S03658.ddf     +++|
03716  M00S03659.ddf     +++|
03717  M00S03660.ddf     +++|          DIMB
03718  M00S03661.ddf     +++|          SPACE  4,10
03719  M00S03662.ddf     +++|          OVERFLOW  RESLA
03720  M00S03663.ddf     +++|          OVERLAY /PRESET/OVL,(COMMAND PROCESSORS.)
03721  M00S03664.ddf     +++| OVL      SPACE  4,10
03722  M00S03665.ddf     +++|**        OVL - INITIALIZE OVERLAY.
03723  M00S03666.ddf     +++|*
03724  M00S03667.ddf     +++|*         LOAD NON-COMMAND OVERLAYS TO CM.
03725  M00S03668.ddf     +++|
03726  M00S03669.ddf     +++|
03727  M00S03670.ddf     +++| OVL      SUBR               ENTRY/EXIT
03728  M00S03671.ddf     +++|
03729  M00S03672.ddf     +++|*         INITIALIZE *COMPGFP* IN OVERLAY BEFORE SAVING IN CM.
03730  M00S03673.ddf     +++|
03731  M00S03674.ddf     +++|          RJM    IFP         INITIALIZE FNT PROCESSORS
03732  M00S03675.ddf     +++|
03733  M00S03676.ddf     +++|*         SAVE *TAR* OVERLAY IN CM.
03734  M00S03677.ddf     +++|
03735  M00S03678.ddf     +++|          LDN    /PRESET/TARL     SET OVERLAY LENGTH
03736  M00S03679.ddf     +++|          STD    T1
03737  M00S03680.ddf     +++|          LDD    AB+3        SAVE CM ADDRESS
03738  M00S03681.ddf     +++|          STM    /PRESET/TCRO+TARN*5+2
03739  M00S03682.ddf     +++|          LDD    AB+4
03740  M00S03683.ddf     +++|          STM    /PRESET/TCRO+TARN*5+3
03741  M00S03684.ddf     +++|          LDD    AB+3        WRITE OVERLAY TO CM
03742  M00S03685.ddf     +++|          SHN    6
03743  M00S03686.ddf     +++|          ADD    RA
03744  M00S03687.ddf     +++|          SHN    6
03745  M00S03688.ddf     +++|          ADD    AB+4
03746  M00S03689.ddf     +++|          CWM    /PRESET/TAR,T1
03747  M00S03690.ddf     +++|          LDD    T1          UPDATE CM ADDRESS
03748  M00S03691.ddf     +++|          RAD    AB+4
03749  M00S03692.ddf     +++|          SHN    -14
03750  M00S03693.ddf     +++|          RAD    AB+3
03751  M00S03694.ddf     +++|          UJN    OVLX        RETURN
03752  M00S03695.ddf     +++|          SPACE  4,10
03753  M00S03696.ddf     +++|***       THE FOLLOWING COMMANDS ARE AVAILABLE -
03754  M00S03697.ddf     +++| ARD      SPACE  4,10
03755  M00S03698.ddf     +++|***       AUTOREAD.NNNN.
03756  M00S03699.ddf     +++|*         REREAD THE SECTOR EVERY NNNN SECONDS.  IF NNNN IS NOT
03757  M00S03700.ddf     +++|*         ENTERED, ONE IS USED. AUTOREAD IS TERMINATED BY CLEARING
03758  M00S03701.ddf     +++|*         THE COMMAND WITH THE LEFT BLANK OR BACKTAB KEY.
03759  M00S03702.ddf     +++|
03760  M00S03703.ddf     +++|
03761  M00S03704.ddf     +++| ARD      COMMAND
03762  M00S03705.ddf     +++|          LDN    MLPS        SET DEFAULT COUNT
03763  M00S03706.ddf     +++|          STD    FN+1
03764  M00S03707.ddf     +++|          LDI    CA
03765  M00S03708.ddf     +++|          ZJN    ARD1        IF NO SECOND COUNT ENTERED
03766  M00S03709.ddf     +++|          RJM    ASD         ASSEMBLE COUNT
03767  M00S03710.ddf     +++|          LDD    AB+4
03768  M00S03711.ddf     +++|          SHN    5           * 40
03769  M00S03712.ddf     +++|          ERRNZ  MLPS-40     CODE ASSUMES EQUALITY SHIFT 5 = * 40
03770  M00S03713.ddf     +++|          STD    FN+1
03771  M00S03714.ddf     +++| ARD1     LDD    FN+1        SET COUNT
03772  M00S03715.ddf     +++|          STD    FN
03773  M00S03716.ddf     +++| ARD2     RJM    RCPA        RETURN TO MAIN LOOP
03774  M00S03717.ddf     +++|          SOD    FN
03775  M00S03718.ddf     +++|          PJN    ARD2        IF MORE DELAY
03776  M00S03719.ddf     +++|          RJM    RSB         READ SECTOR
03777  M00S03720.ddf     +++|          UJN    ARD1        RESET COUNT
03778  M00S03721.ddf     +++| BEI      SPACE  4,10
03779  M00S03722.ddf     +++|***       BLDEOI.
03780  M00S03723.ddf     +++|*         CREATES A EOI SECTOR IN BUFFER.
03781  M00S03724.ddf     +++|
03782  M00S03725.ddf     +++|
03783  M00S03726.ddf     +++| BEI      COMMAND
03784  M00S03727.ddf     +++|          LDC    BFMS
03785  M00S03728.ddf     +++|          STD    T3
03786  M00S03729.ddf     +++| BEI1     LDN    0
03787  M00S03730.ddf     +++|          STI    T3
03788  M00S03731.ddf     +++|          AOD    T3
03789  M00S03732.ddf     +++|          ADC    -BFMS-2-100*5
03790  M00S03733.ddf     +++|          MJN    BEI1        IF NOT END OF BUFFER
03791  M00S03734.ddf     +++|          LDC    2RDD
03792  M00S03735.ddf     +++|          STM    FNSS
03793  M00S03736.ddf     +++|          LDN    1RF
03794  M00S03737.ddf     +++|          SHN    6
03795  M00S03738.ddf     +++|          STM    FNSS+1
03796  M00S03739.ddf     +++|          LDN    PDTL        SET DATE AND TIME
03797  M00S03740.ddf     +++|          CRM    DTSS,ON
03798  M00S03741.ddf     +++|          LJM    RET         RETURN
03799  M00S03742.ddf     +++| BOT      SPACE  4,15
03800  M00S03743.ddf     +++|***       BOT.NNNN.
03801  M00S03744.ddf     +++|*         BACK UP ONE TRACK.  SEARCH THE TRT STARTING AT TRACK NNNN FOR
03802  M00S03745.ddf     +++|*         A TRACK THAT POINTS TO THE CURRENT TRACK.  IF ONE IS FOUND,
03803  M00S03746.ddf     +++|*         THE CURRENT TRACK IS SET TO THAT VALUE.  IF NO TRACK IS FOUND
03804  M00S03747.ddf     +++|*         THAT POINTS TO THE CURRENT TRACK, *INCORRECT PARAMETER.* IS
03805  M00S03748.ddf     +++|*         DISPLAYED.  IF NNNN IS NOT ENTERED, THE SEARCH STARTS AT
03806  M00S03749.ddf     +++|*         TRACK 0.
03807  M00S03750.ddf     +++|*
03808  M00S03751.ddf     +++|*         NOTE THAT THE SEQUENCE OF COMMANDS *TK.NNNN.*, *BOT.*,
03809  M00S03752.ddf     +++|*         *TK.NNNN.*, *BOT.AAAA.* (WHERE AAAA IS THE TRACK RETURNED BY
03810  M00S03753.ddf     +++|*         THE FIRST *BOT.* COMMAND + 1) CAN BE USED TO DETERMINE IF
03811  M00S03754.ddf     +++|*         TWO DIFFERENT TRACKS ARE BOTH LINKED TO TRACK NNNN.
03812  M00S03755.ddf     +++|
03813  M00S03756.ddf     +++|
03814  M00S03757.ddf     +++| BOT      COMMAND
03815  M00S03758.ddf     +++|          LDD    TK
03816  M00S03759.ddf     +++|          STD    RC
03817  M00S03760.ddf     +++|          LDI    CA
03818  M00S03761.ddf     +++|          ZJN    BOT1        IF NO TRACK ENTERED (START AT TRACK 0)
03819  M00S03762.ddf     +++|          RJM    ASD         ASSEMBLE TRACK NUMBER
03820  M00S03763.ddf     +++|          LDD    AB+4
03821  M00S03764.ddf     +++| BOT1     LPC    3777
03822  M00S03765.ddf     +++|          ADC    4000
03823  M00S03766.ddf     +++|          STD    TK          SET STARTING TRACK
03824  M00S03767.ddf     +++| BOT2     RJM    SNT         GET LINK
03825  M00S03768.ddf     +++|          LMD    RC
03826  M00S03769.ddf     +++|          ZJN    BOT3        IF LINKED TO CURRENT TRACK
03827  M00S03770.ddf     +++|          AOD    TK
03828  M00S03771.ddf     +++|          LMD    LT
03829  M00S03772.ddf     +++|          NJN    BOT2        IF MORE TRACKS TO CHECK
03830  M00S03773.ddf     +++|          LDD    RC          RESTORE CURRENT TRACK
03831  M00S03774.ddf     +++|          STD    TK
03832  M00S03775.ddf     +++|          LJM    ERR2        *INCORRECT PARAMETER.*
03833  M00S03776.ddf     +++|
03834  M00S03777.ddf     +++| BOT3     LJM    RET         RETURN
03835  M00S03778.ddf     +++| CTB      SPACE  4,10
03836  M00S03779.ddf     +++|***       CTB.
03837  M00S03780.ddf     +++|*         CLEAR THE TRACK INTERLOCK BIT FOR CURRENT TRACK AND
03838  M00S03781.ddf     +++|*         EQUIPMENT.  THE KEYBOARD MUST BE UNLOCKED TO USE THIS
03839  M00S03782.ddf     +++|*         COMMAND.
03840  M00S03783.ddf     +++|
03841  M00S03784.ddf     +++|
03842  M00S03785.ddf     +++| CTB      COMMAND
03843  M00S03786.ddf     +++|          RJM    CLB         CHECK LOCK BIT
03844  M00S03787.ddf     +++|          RJM    SNT         CHECK TRACK INTERLOCK BIT
03845  M00S03788.ddf     +++|          LDD    T1
03846  M00S03789.ddf     +++|          ADC    SHNI+22-4-4
03847  M00S03790.ddf     +++|          STM    CTBA
03848  M00S03791.ddf     +++|          LDD    CM+4
03849  M00S03792.ddf     +++| CTBA     SHN    **
03850  M00S03793.ddf     +++|          MJN    CTB1        IF TRACK INTERLOCK IS SET
03851  M00S03794.ddf     +++|          LJM    ERR4        *INCORRECT ENTRY.*
03852  M00S03795.ddf     +++|
03853  M00S03796.ddf     +++| CTB1     LDD    EQ
03854  M00S03797.ddf     +++|          STD    CM+1
03855  M00S03798.ddf     +++|          LDD    TK
03856  M00S03799.ddf     +++|          STD    CM+2
03857  M00S03800.ddf     +++|          LDN    CTIS
03858  M00S03801.ddf     +++|          STD    CM+3
03859  M00S03802.ddf     +++|          MONITOR STBM
03860  M00S03803.ddf     +++|          LJM    RET         RETURN
03861  M00S03804.ddf     +++| DEP      SPACE  4,10
03862  M00S03805.ddf     +++|***       DEP.
03863  M00S03806.ddf     +++|*         DISABLE ERROR PROCESSING FOR CALLS TO THE MASS STORAGE
03864  M00S03807.ddf     +++|*         DRIVER TO READ A SECTOR.
03865  M00S03808.ddf     +++|*         (BY DEFAULT, ERROR PROCESSING IS DISABLED.)
03866  M00S03809.ddf     +++|
03867  M00S03810.ddf     +++|
03868  M00S03811.ddf     +++| DEP      COMMAND
03869  M00S03812.ddf     +++|          LDN    DEPL-1
03870  M00S03813.ddf     +++|          STD    T1
03871  M00S03814.ddf     +++| DEP1     LDM    DEPA,T1     MOVE SETMS CODE
03872  M00S03815.ddf     +++|          STM    CTSA,T1
03873  M00S03816.ddf     +++|          SOD    T1
03874  M00S03817.ddf     +++|          PJN    DEP1        IF MOVE NOT COMPLETE
03875  M00S03818.ddf     +++|          LJM    RET         RETURN
03876  M00S03819.ddf     +++|
03877  M00S03820.ddf     +++|
03878  M00S03821.ddf     +++| DEPA     SETMS  IO,(AR,NS,AD,RW,DF)  SELECT RETURN ON ALL ERRORS
03879  M00S03822.ddf     +++| DEPL     EQU    *-DEPA      LENGTH
03880  M00S03823.ddf     +++| DIS      SPACE  4,10
03881  M00S03824.ddf     +++|***       DIS.
03882  M00S03825.ddf     +++|*         DROP DISPLAY AND CALL *DIS* TO CONTROL POINT.
03883  M00S03826.ddf     +++|
03884  M00S03827.ddf     +++|
03885  M00S03828.ddf     +++| DIS      COMMAND
03886  M00S03829.ddf     +++|          RJM    END         END CPU PROGRAM
03887  M00S03830.ddf     +++|          RJM    DDS         DROP DISPLAY
Line S03831 Modification History
M01 (Removed by) ns2618
Seq #  *Modification Id* Act 
----------------------------+
03888  M01S03831.ns2618  ---|          LDN    UJSI
03889  M01S03832.ns2618  ---|          STD    CM+4
03890  M01S03833.ns2618  ---|          LDN    SSIS        CLEAR NON-ROLLABLE STATUS
03891  M01S03834.ns2618  ---|          STD    CM+1
03892  M01S03835.ns2618  ---|          MONITOR  SJCM
03893  M00S03836.ddf     +++|          LDD    CP          SET CONTROL POINT NUMBER
03894  M00S03837.ddf     +++|          SHN    -7
03895  M00S03838.ddf     +++|          RAM    DISA+1
03896  M00S03839.ddf     +++|          LDD    IA          WRITE INPUT REGISTER
03897  M00S03840.ddf     +++|          CWM    DISA,ON
03898  M00S03841.ddf     +++|          LJM    PPR         EXIT TO PP RESIDENT
03899  M00S03842.ddf     +++|
03900  M00S03843.ddf     +++|
03901  M00S03844.ddf     +++| DISA     VFD    60/0LDIS
03902  M00S03845.ddf     +++| DRP      SPACE  4,10
03903  M00S03846.ddf     +++|***       DROP.
03904  M00S03847.ddf     +++|*         DROP DISPLAY AND PP.
03905  M00S03848.ddf     +++|
03906  M00S03849.ddf     +++|
03907  M00S03850.ddf     +++| DRP      COMMAND
03908  M00S03851.ddf     +++|          RJM    END         END CPU PROGRAM
03909  M00S03852.ddf     +++|          RJM    DDS         DROP DISPLAY
03910  M00S03853.ddf     +++|          LJM    DPP         DROP PP
03911  M00S03854.ddf     +++| DTK      SPACE  4,10
03912  M00S03855.ddf     +++|***       DTK.SSSS.
03913  M00S03856.ddf     +++|*         DROP TRACKS STARTING WITH THE CURRENT TRACK AND SET THE EOI
03914  M00S03857.ddf     +++|*         SECTOR IN THE TRT TO SSSS.
03915  M00S03858.ddf     +++|*
03916  M00S03859.ddf     +++|*         DTK.
03917  M00S03860.ddf     +++|*         DROP TRACKS TO END OF CHAIN STARTING WITH THE CURRENT TRACK.
03918  M00S03861.ddf     +++|*
03919  M00S03862.ddf     +++|*         THE KEYBOARD MUST BE UNLOCKED TO USE THIS COMMAND.
03920  M00S03863.ddf     +++|
03921  M00S03864.ddf     +++|
03922  M00S03865.ddf     +++| DTK      COMMAND
03923  M00S03866.ddf     +++|          RJM    CLB         CHECK LOCK BIT
03924  M00S03867.ddf     +++|          RJM    CTR         CHECK TRACK RESERVATION
03925  M00S03868.ddf     +++|          PJN    DTK2        IF TRACK RESERVATION BIT NOT SET
03926  M00S03869.ddf     +++|          LDD    EQ          SET EST ORDINAL
03927  M00S03870.ddf     +++|          ADC    4000        SET CHECKPOINT
03928  M00S03871.ddf     +++|          STD    CM+1
03929  M00S03872.ddf     +++|          LDD    TK
03930  M00S03873.ddf     +++|          STD    CM+2
03931  M00S03874.ddf     +++|          LDI    CA
03932  M00S03875.ddf     +++|          ZJN    DTK1        IF NO SECTOR SPECIFIED
03933  M00S03876.ddf     +++|          RJM    ASD         ASSEMBLE SECTOR NUMBER
03934  M00S03877.ddf     +++|          LDD    AB+4
03935  M00S03878.ddf     +++|          STD    CM+3
03936  M00S03879.ddf     +++|          SBD    LS
03937  M00S03880.ddf     +++|          SBN    1
03938  M00S03881.ddf     +++|          PJN    DTK2        IF ILLEGAL SECTOR
03939  M00S03882.ddf     +++|          LDD    CM+2        CLEAR SECTOR PARAMETER BIT
03940  M00S03883.ddf     +++|          LPC    3777
03941  M00S03884.ddf     +++|          STD    CM+2
03942  M00S03885.ddf     +++| DTK1     MONITOR DTKM
03943  M00S03886.ddf     +++|          LJM    RET         RETURN
03944  M00S03887.ddf     +++|
03945  M00S03888.ddf     +++| DTK2     LJM    ERR2        *INCORRECT PARAMETER.*
03946  M00S03889.ddf     +++| EEP      SPACE  4,10
03947  M00S03890.ddf     +++|***       EEP.
03948  M00S03891.ddf     +++|*         ENABLE ERROR PROCESSING FOR CALLS TO THE MASS STORAGE
03949  M00S03892.ddf     +++|*         DRIVER TO READ A SECTOR.
03950  M00S03893.ddf     +++|*         (BY DEFAULT, ERROR PROCESSING IS DISABLED.)
03951  M00S03894.ddf     +++|
03952  M00S03895.ddf     +++|
03953  M00S03896.ddf     +++| EEP      COMMAND
03954  M00S03897.ddf     +++|          LDN    EEPL-1
03955  M00S03898.ddf     +++|          STD    T1
03956  M00S03899.ddf     +++| EEP1     LDM    EEPA,T1     MOVE SETMS CODE
03957  M00S03900.ddf     +++|          STM    CTSA,T1
03958  M00S03901.ddf     +++|          SOD    T1
03959  M00S03902.ddf     +++|          PJN    EEP1        IF MOVE NOT COMPLETE
03960  M00S03903.ddf     +++|          LJM    RET         RETURN
03961  M00S03904.ddf     +++|
03962  M00S03905.ddf     +++|
03963  M00S03906.ddf     +++| EEPA     SETMS  IO,(RR,NR,NS,AD,RW,DF)  RETURN ON NOT READY/RESERVED
03964  M00S03907.ddf     +++| EEPL     EQU    *-EEPA      LENGTH
03965  M00S03908.ddf     +++|          ERRNZ  DEPL-EEPL   SETMS MACRO LENGTH CHANGE
03966  M00S03909.ddf     +++| EET      SPACE  4,10
03967  M00S03910.ddf     +++|***       EJT.NNNN.
03968  M00S03911.ddf     +++|*         ENTER DISK ADDRESS FROM EJT ORDINAL NNNN.
03969  M00S03912.ddf     +++|*         (0 .LE. NNNN .LE. LARGEST EJT ORDINAL.)  THE EQUIPMENT,
03970  M00S03913.ddf     +++|*         TRACK, AND SECTOR ARE SET TO THE BEGINNING OF THE FILE.
03971  M00S03914.ddf     +++|*         *INCORRECT PARAMETER.* IS DISPLAYED IF THE EJT ENTRY IS NOT
03972  M00S03915.ddf     +++|*         USED OR THE FILE DOES NOT HAVE ANY TRACKS ASSIGNED.
03973  M00S03916.ddf     +++|
03974  M00S03917.ddf     +++|
03975  M00S03918.ddf     +++| EET      COMMAND
03976  M00S03919.ddf     +++|          LDN    TARN
03977  M00S03920.ddf     +++|          RJM    LDO         LOAD OVERLAY
03978  M00S03921.ddf     +++|          LDN    PEJT
03979  M00S03922.ddf     +++|          RJM    /TAR/RFE    READ FST ENTRY
03980  M00S03923.ddf     +++|          LDD    FN+1
03981  M00S03924.ddf     +++|          ZJP    ERR2        IF TRACK NOT ASSIGNED
03982  M00S03925.ddf     +++|          STD    TK
03983  M00S03926.ddf     +++|          LDN    0           CLEAR SECTOR
03984  M00S03927.ddf     +++|          STD    SC
03985  M00S03928.ddf     +++|          LJM    IMS         INITIALIZE MASS STORAGE
03986  M00S03929.ddf     +++| EST      SPACE  4,10
03987  M00S03930.ddf     +++|***       EST.NN.
03988  M00S03931.ddf     +++|*         ENTER EST ORDINAL.  THE EQUIPMENT MUST BE A MASS STORAGE
03989  M00S03932.ddf     +++|*         DEVICE.
03990  M00S03933.ddf     +++|
03991  M00S03934.ddf     +++|
03992  M00S03935.ddf     +++| EST      COMMAND
03993  M00S03936.ddf     +++|          RJM    ASD         ASSEMBLE NUMBER
03994  M00S03937.ddf     +++|          LDD    AB+4
03995  M00S03938.ddf     +++|          LPC    777
03996  M00S03939.ddf     +++|          STD    AB
03997  M00S03940.ddf     +++|          SFA    EST         READ EST ENTRY
03998  M00S03941.ddf     +++|          ADK    EQDE
03999  M00S03942.ddf     +++|          CRD    CM
04000  M00S03943.ddf     +++|          LDD    CM
04001  M00S03944.ddf     +++|          SHN    6
04002  M00S03945.ddf     +++|          PJN    EST1        IF NOT MASS STORAGE
Line S00032 Modification History
M01 (Added by) ddf4
Seq #  *Modification Id* Act 
----------------------------+
04003  M01S00032.ddf4    +++|          LDD    CM+4        MST ADDRESS/10
04004  M01S00033.ddf4    +++|          SHN    3
04005  M01S00034.ddf4    +++|          ADN    DDLL
04006  M01S00035.ddf4    +++|          CRD    CM
04007  M01S00036.ddf4    +++|          LDD    CM
04008  M01S00037.ddf4    +++|          SHN    21-12
04009  M01S00038.ddf4    +++|          MJN    EST1        IF NULL EQUIPMENT
04010  M00S03946.ddf     +++|          LDD    AB
04011  M00S03947.ddf     +++|          STD    EQ
04012  M00S03948.ddf     +++|          LJM    IMS         INITIALIZE MASS STORAGE
04013  M00S03949.ddf     +++|
Line S03950 Modification History
M01 (Removed by) ddf4
Seq #  *Modification Id* Act 
----------------------------+
04014  M01S03950.ddf4    ---| EST1     LJM    ERR2        *INCORRECT PARAMETER.*
Line S00039 Modification History
M01 (Added by) ddf4
Seq #  *Modification Id* Act 
----------------------------+
04015  M01S00039.ddf4    +++| EST1     LJM    ERR5        *INCORRECT EQUIPMENT.*
04016  M00S03951.ddf     +++| EFO      SPACE  4,10
04017  M00S03952.ddf     +++|***       FAMILY.CCCCCCC.
04018  M00S03953.ddf     +++|*         USE PERMANENT FILE FAMILY *CCCCCCC*.  (THE FAMILY IS SET
04019  M00S03954.ddf     +++|*         INTERNALLY IN DDF.  *PFCW* IN THE CONTROL POINT AREA IS NOT
04020  M00S03955.ddf     +++|*         CHANGED.)  THE FAMILY IS INITIALLY SET TO THE FAMILY
04021  M00S03956.ddf     +++|*         SPECIFIED IN *PFCW*.
04022  M00S03957.ddf     +++|
04023  M00S03958.ddf     +++|
04024  M00S03959.ddf     +++| EFO      COMMAND
04025  M00S03960.ddf     +++|          RJM    ASN         ASSEMBLE NAME
04026  M00S03961.ddf     +++|          RJM    SFE         SET FAMILY EQUIPMENT
04027  M00S03962.ddf     +++|          NJN    EFO1        IF FAMILY NOT FOUND
04028  M00S03963.ddf     +++|          LDD    T2          SET FAMILY EST ORDINAL
04029  M00S03964.ddf     +++|          STD    PF+4
04030  M00S03965.ddf     +++|          LJM    RET         RETURN
04031  M00S03966.ddf     +++|
04032  M00S03967.ddf     +++| EFO1     LJM    ERR2        *INCORRECT PARAMETER.*
04033  M00S03968.ddf     +++|
04034  M00S03969.ddf     +++|
04035  M00S03970.ddf     +++|*CALL     COMPSFE
04036  M00S03971.ddf     +++| FPE      SPACE  4,25
04037  M00S03972.ddf     +++|***       FIND.
04038  M00S03973.ddf     +++|*         THE FIND COMMAND SCANS THE CATALOG TRACK STARTING AT THE
04039  M00S03974.ddf     +++|*         CURRENT POSITION SEARCHING FOR THE SPECIFIED CATALOG ENTRY.
04040  M00S03975.ddf     +++|*         THE CATALOG TRACK MUST BE READ VIA APPROPRIATE COMMANDS
04041  M00S03976.ddf     +++|*         (FAMILY, PACKNAM, UI, ETC.) BEFORE THE FIND COMMAND IS USED.
04042  M00S03977.ddf     +++|*         THE FOLLOWING OPTIONS ARE AVAILABLE.
04043  M00S03978.ddf     +++|*
04044  M00S03979.ddf     +++|*         FIND.CCCCCCC.NNNNNN.
04045  M00S03980.ddf     +++|*         SEARCH FOR PERMANENT FILE CCCCCCC WITH USER INDEX NNNNNN.
04046  M00S03981.ddf     +++|*
04047  M00S03982.ddf     +++|*         FIND.CCCCCCC..
04048  M00S03983.ddf     +++|*         SEARCH FOR PERMANENT FILE CCCCCCC WITH A ZERO USER INDEX
04049  M00S03984.ddf     +++|*         (I.E. A HOLE).
04050  M00S03985.ddf     +++|*
04051  M00S03986.ddf     +++|*         FIND.CCCCCCC.
04052  M00S03987.ddf     +++|*         SEARCH FOR PERMANENT FILE CCCCCCC.  THE USER INDEX IS
04053  M00S03988.ddf     +++|*         IGNORED.
04054  M00S03989.ddf     +++|*
04055  M00S03990.ddf     +++|*         FIND..NNNNNN.
04056  M00S03991.ddf     +++|*         SEARCH FOR A PERMANENT FILE WITH USER INDEX NNNNNN.  THE FILE
04057  M00S03992.ddf     +++|*         NAME IS IGNORED.
04058  M00S03993.ddf     +++|*
04059  M00S03994.ddf     +++|*         FIND...
04060  M00S03995.ddf     +++|*         SEARCH FOR A PERMANENT FILE WITH A ZERO USER INDEX.  THE FILE
04061  M00S03996.ddf     +++|*         NAME IS IGNORED.  (I.E. SEARCH FOR ANY HOLE.)
04062  M00S03997.ddf     +++|
04063  M00S03998.ddf     +++|
04064  M00S03999.ddf     +++| FPE      COMMAND
04065  M00S04000.ddf     +++|          RJM    ASN         GET FILE NAME
04066  M00S04001.ddf     +++|          AOD    CA
04067  M00S04002.ddf     +++|          LDI    CA
04068  M00S04003.ddf     +++|          ZJN    FPE1        IF UI NOT ENTERED
04069  M00S04004.ddf     +++|          RJM    ASD         ASSEMBLE USER INDEX
04070  M00S04005.ddf     +++|          LDD    AB+3
04071  M00S04006.ddf     +++|          LPN    37
04072  M00S04007.ddf     +++|          RAD    FN+3
04073  M00S04008.ddf     +++|          LDD    AB+4
04074  M00S04009.ddf     +++|          STD    FN+4
04075  M00S04010.ddf     +++| FPE1     LDD    RS
04076  M00S04011.ddf     +++|          LMN    DFDN
04077  M00S04012.ddf     +++|          SHN    12
04078  M00S04013.ddf     +++|          ADM    /DFD/DFDB
04079  M00S04014.ddf     +++|          LMN    DPEN
04080  M00S04015.ddf     +++|          NJN    FPE2        IF PFC DISPLAY NOT UP
04081  M00S04016.ddf     +++|          LDM    DRSA+4
04082  M00S04017.ddf     +++|          UJN    FPE3        STORE PFC ORDINAL
04083  M00S04018.ddf     +++|
04084  M00S04019.ddf     +++| FPE2     LDN    0
04085  M00S04020.ddf     +++| FPE3     STD    T3
04086  M00S04021.ddf     +++|          SHN    NWCES
04087  M00S04022.ddf     +++|          STD    T1
04088  M00S04023.ddf     +++|          SHN    2
04089  M00S04024.ddf     +++|          RAD    T1
04090  M00S04025.ddf     +++|          LDM    BFMS
04091  M00S04026.ddf     +++|          ADM    BFMS+1
04092  M00S04027.ddf     +++|          NJN    FPE4        IF EOI NOT ENCOUNTERED
04093  M00S04028.ddf     +++|          LJM    ERR3        *NOT FOUND.*
04094  M00S04029.ddf     +++|
04095  M00S04030.ddf     +++|*         COMPARE PARAMETERS WITH THE CATALOG ENTRY.
04096  M00S04031.ddf     +++|
04097  M00S04032.ddf     +++| FPE4     LDD    FN
04098  M00S04033.ddf     +++|          ZJN    FPE6        IF FILE NAME NOT SPECIFIED
04099  M00S04034.ddf     +++|          LDN    0
04100  M00S04035.ddf     +++|          STD    T2
04101  M00S04036.ddf     +++| FPE5     LDM    FN,T2       COMPARE NAME
04102  M00S04037.ddf     +++|          LMM    BFMS+2,T1
04103  M00S04038.ddf     +++|          NJN    FPE7        IF NOT A MATCH
04104  M00S04039.ddf     +++|          AOD    T1
04105  M00S04040.ddf     +++|          AOD    T2
04106  M00S04041.ddf     +++|          SBN    3
04107  M00S04042.ddf     +++|          MJN    FPE5        IF MORE CHARACTERS
04108  M00S04043.ddf     +++|          LDD    FN+3        COMPARE SEVENTH CHARACTER
04109  M00S04044.ddf     +++|          LMM    BFMS+2,T1
04110  M00S04045.ddf     +++|          SCN    77
04111  M00S04046.ddf     +++|          NJN    FPE9        IF NOT A MATCH
04112  M00S04047.ddf     +++| FPE6     LDD    T3
04113  M00S04048.ddf     +++|          SHN    NWCES
04114  M00S04049.ddf     +++|          STD    T1
04115  M00S04050.ddf     +++|          SHN    2
04116  M00S04051.ddf     +++|          RAD    T1
04117  M00S04052.ddf     +++|          LDI    CA
04118  M00S04053.ddf     +++|          NJN    FPE8        IF UI SPECIFIED
04119  M00S04054.ddf     +++|          LDM    BFMS+2+FCUI,T1
04120  M00S04055.ddf     +++|          LPN    37
04121  M00S04056.ddf     +++|          ADM    BFMS+2+FCUI+1,T1
04122  M00S04057.ddf     +++|          NJN    FPE11       IF NON-ZERO, ASSUME MATCH
04123  M00S04058.ddf     +++| FPE7     UJN    FPE9        CONTINUE SEARCH
04124  M00S04059.ddf     +++|
04125  M00S04060.ddf     +++| FPE8     LDM    BFMS+2+FCUI,T1
04126  M00S04061.ddf     +++|          LMD    FN+3
04127  M00S04062.ddf     +++|          LPN    37
04128  M00S04063.ddf     +++|          NJN    FPE9        IF UI DOES NOT MATCH
04129  M00S04064.ddf     +++|          LDM    BFMS+2+FCUI+1,T1
04130  M00S04065.ddf     +++|          LMD    FN+4
04131  M00S04066.ddf     +++|          ZJN    FPE11       IF UI MATCHES
04132  M00S04067.ddf     +++|
04133  M00S04068.ddf     +++|*         ADVANCE TO NEXT CATALOG ENTRY.
04134  M00S04069.ddf     +++|
04135  M00S04070.ddf     +++| FPE9     AOD    T3          ADVANCE BUFFER INDEX
04136  M00S04071.ddf     +++|          SHN    NWCES
04137  M00S04072.ddf     +++|          STD    T1
04138  M00S04073.ddf     +++|          SBM    BFMS+1
04139  M00S04074.ddf     +++|          PJN    FPE10       IF END OF SECTOR
04140  M00S04075.ddf     +++|          LDD    T1
04141  M00S04076.ddf     +++|          SHN    2
04142  M00S04077.ddf     +++|          RAD    T1
04143  M00S04078.ddf     +++|          LJM    FPE4        LOOP
04144  M00S04079.ddf     +++|
04145  M00S04080.ddf     +++| FPE10    RJM    SNS         SET NEXT SECTOR
04146  M00S04081.ddf     +++|          RJM    RSB         READ SECTOR
04147  M00S04082.ddf     +++|          MJN    FPE12       IF ERROR
04148  M00S04083.ddf     +++|          RJM    RCPA        RETURN TO MAIN LOOP
04149  M00S04084.ddf     +++|          LJM    FPE2        LOOP
04150  M00S04085.ddf     +++|
04151  M00S04086.ddf     +++|*         DISPLAY PFC ENTRY.
04152  M00S04087.ddf     +++|
04153  M00S04088.ddf     +++| FPE11    LDN    DFDN        SET DISPLAY
04154  M00S04089.ddf     +++|          STD    RS
04155  M00S04090.ddf     +++|          RJM    LDO         LOAD OVERLAY
04156  M00S04091.ddf     +++|          LDD    T3
04157  M00S04092.ddf     +++|          STM    DRSA+4
04158  M00S04093.ddf     +++| FPE12    LJM    RET         RETURN
04159  M00S04094.ddf     +++| FIS      SPACE  4,10
04160  M00S04095.ddf     +++|***       FINDISS.NNNNNN.
04161  M00S04096.ddf     +++|*         STARTING AT THE CURRENT POSITION, SEARCH FOR THE NEXT SYSTEM
04162  M00S04097.ddf     +++|*         SECTOR WITH USER INDEX NNNNNN ON THE CHAIN.  IF NNNNNN IS
04163  M00S04098.ddf     +++|*         NOT SPECIFIED THE USER INDEX IS NOT CHECKED AND THE NEXT
04164  M00S04099.ddf     +++|*         SYSTEM SECTOR IS DISPLAYED.  THIS COMMAND IS INTENDED TO BE
04165  M00S04100.ddf     +++|*         USED ON THE INDIRECT ACCESS PERMANENT FILE CHAIN.
04166  M00S04101.ddf     +++|
04167  M00S04102.ddf     +++|
04168  M00S04103.ddf     +++| FIS      COMMAND
04169  M00S04104.ddf     +++|          LDI    CA
04170  M00S04105.ddf     +++|          ZJN    FIS1        IF NO USER INDEX SPECIFIED
04171  M00S04106.ddf     +++|          RJM    ASD         ASSEMBLE USER INDEX
04172  M00S04107.ddf     +++|          LDD    AB+3
04173  M00S04108.ddf     +++|          STD    FN+3
04174  M00S04109.ddf     +++|          LDD    AB+4
04175  M00S04110.ddf     +++|          STD    FN+4
04176  M00S04111.ddf     +++| FIS1     RJM    SNS         ADVANCE TO NEXT SECTOR
04177  M00S04112.ddf     +++|          NJN    FIS3        IF NOT EOI
04178  M00S04113.ddf     +++|          RJM    SNT         GET NEXT TRACK
04179  M00S04114.ddf     +++|          STD    T1
04180  M00S04115.ddf     +++|          SHN    6
04181  M00S04116.ddf     +++|          MJN    FIS2        IF NOT EOI TRACK
04182  M00S04117.ddf     +++|          SHN    -6
04183  M00S04118.ddf     +++|          LMD    SC
04184  M00S04119.ddf     +++|          NJN    FIS2        IF NOT AT EOI INDICATED IN TRT
04185  M00S04120.ddf     +++|          LJM    ERR3        *NOT FOUND.*
04186  M00S04121.ddf     +++|
04187  M00S04122.ddf     +++| FIS2     AOD    SC
04188  M00S04123.ddf     +++|          SBD    LS
04189  M00S04124.ddf     +++|          SBN    1
04190  M00S04125.ddf     +++|          NJN    FIS3        IF NOT END OF TRACK
04191  M00S04126.ddf     +++|          STD    SC
04192  M00S04127.ddf     +++|          LDD    T1
04193  M00S04128.ddf     +++|          STD    TK
04194  M00S04129.ddf     +++| FIS3     RJM    RSB         READ SECTOR
04195  M00S04130.ddf     +++|          MJN    FIS5        IF ERROR
04196  M00S04131.ddf     +++|          LDM    BFMS
04197  M00S04132.ddf     +++|          SHN    6
04198  M00S04133.ddf     +++|          ADM    BFMS+1
04199  M00S04134.ddf     +++|          LMC    377777
04200  M00S04135.ddf     +++|          NJN    FIS4        IF NOT SYSTEM SECTOR
04201  M00S04136.ddf     +++|          LDI    CA
04202  M00S04137.ddf     +++|          ZJN    FIS5        IF NO UI SPECIFIED
04203  M00S04138.ddf     +++|          LDM    CTSS+3
04204  M00S04139.ddf     +++|          LMD    FN+3
04205  M00S04140.ddf     +++|          LPN    37
04206  M00S04141.ddf     +++|          NJN    FIS4        IF UI DOES NOT MATCH
04207  M00S04142.ddf     +++|          LDM    CTSS+4
04208  M00S04143.ddf     +++|          LMD    FN+4
04209  M00S04144.ddf     +++|          ZJN    FIS5        IF UI MATCHES
04210  M00S04145.ddf     +++| FIS4     RJM    RCPA        RETURN TO MAIN LOOP
04211  M00S04146.ddf     +++|          LJM    FIS1        LOOP
04212  M00S04147.ddf     +++|
04213  M00S04148.ddf     +++| FIS5     LJM    RET         RETURN
04214  M00S04149.ddf     +++| FOV      SPACE  4,10
04215  M00S04150.ddf     +++|***       FINDO.NNNN NNNN NNNN NNNN NNNN.
04216  M00S04151.ddf     +++|*         SEARCH FROM THE CURRENT POSITION FOR THE OCTAL NUMBER
04217  M00S04152.ddf     +++|*         SPECIFIED.  THE NUMBER CAN BE 1 TO 20 DIGITS AND IS RIGHT
04218  M00S04153.ddf     +++|*         JUSTIFIED IN AS MANY BYTES AS ARE NECESSARY TO HOLD THE
04219  M00S04154.ddf     +++|*         NUMBER.  THE SEARCH STARTS ON A BYTE BOUNDARY AND THE BYTE
04220  M00S04155.ddf     +++|*         NUMBER IS DISPLAYED IF THE SEARCH IS SUCCESSFUL.  IF THE
04221  M00S04156.ddf     +++|*         FIRST PART OF THE NUMBER IS FOUND AT THE END OF THE BUFFER,
04222  M00S04157.ddf     +++|*         THE SEARCH IS TERMINATED EVEN THOUGH THE ENTIRE NUMBER
04223  M00S04158.ddf     +++|*         WAS NOT FOUND.  IF THE CARRIAGE RETURN IS ENTERED AGAIN,
04224  M00S04159.ddf     +++|*         THE SEARCH CONTINUES AT THE CURRENT MATCH.
04225  M00S04160.ddf     +++|
04226  M00S04161.ddf     +++|
04227  M00S04162.ddf     +++| FOV      COMMAND
04228  M00S04163.ddf     +++|          LDD    CA          SAVE CHARACTER ADDRESS
04229  M00S04164.ddf     +++|          STD    FN+4
04230  M00S04165.ddf     +++|          LDN    0
04231  M00S04166.ddf     +++|          STD    T1
04232  M00S04167.ddf     +++| FOV1     AOD    CA          FIND SIZE OF NUMBER
04233  M00S04168.ddf     +++|          LDI    CA
04234  M00S04169.ddf     +++|          ZJN    FOV2        IF END OF STRING
04235  M00S04170.ddf     +++|          LMN    1R
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/ddf.001.txt ยท Last modified: by 127.0.0.1