AUTOCODER RUN THRU OUTPUT SYSRU S0020 JOB 1401 - 1311 MONITOR SYSTEM RUN SYSRU S003 CTL 211 0PPP11 07792 SYSRU S0040 DIOCS SYSRU S0050IODEVICES DISK SYSRU S006 DISKDRIVES 0 SYSRU S007 DIOCSORG 876 SYSRU S0080PROCESTYPE RANDOM SYSRU S0100RDLIN DISK SYSRU S0110RECTYPE UNBLOCKED SYSRU S0120DLABDEF CHECK SYSRU S0125FEATURES DIRECT SYSRU S0130 DTF SYSRU SYSRU S0140FILETYPE DISK,INPUT,RANDOM SYSRU S0150IOAREAS BUILD SYSRU S0160NSECTORS 3 SYSRU S0170TRACKFORM SECTOR SYSRU S0180SIZEREC 270 SYSRU S0190NAT0PACK 0 SYSRU S0200UPDATE YES SYSRU S0210FILESTART 000000 SYSRU S0220FILEND 019999 SYSRU S0230CHECKLABEL ALL SYSRU S1005 SKIPN SYSRU S1006OVLAY EQU 7792 SYSRU S101 MAIN ORG 1 SYSRU S102 CARDIN DA 1X80,G SYSRU S103 DCW 001 SYSRU S104 ONE 1 SYSRU S105 LOZNG @)@ SYSRU S106 ORG 201 SYSRU S107 PRINT DA 1X132 SYSRU S108 GMARK EQU ONE-4 SYSRU S109 HOLD DCW #2 SYSRU S110 COUNT 00 SYSRU S111 ******************************************************************* SYSRU S112 ********************* COMMON PRINT ROUTINE ************************ SYSRU S113 ******************************************************************* SYSRU S114 AA140 SBR AA180&3 SYSRU S115 W SYSRU S116 CS PRINT&131 SYSRU S117 CS SYSRU S118 AA180 B 0 SYSRU S119 ******************************************************************* SYSRU S120 ********************** COMMON GET ROUTINE ************************* SYSRU S121 ******************************************************************* SYSRU S122 AA220 SBR AA240&3 SYSRU S123 GET SYSRU SYSRU S124 AA240 B 0 SYSRU S125 ******************************************************************* SYSRU S126 ********************** COMMON PUT ROUTINE ************************* SYSRU S127 ******************************************************************* SYSRU S128 AA280 SBR AA300&3 SYSRU S129 PUT ,SYSRU SYSRU S130 AA300 B 0 SYSRU S131 NOP SYSRU S132 BUILD DA 1X10,C SYSRU S133 1,1 SYSRU S134 DA 1X270,G,C SYSRU S201 1,1 SYSRU S202 BLANK DCW #11 SYSRU S203 PRGNM DCW #5 SYSRU S204 KEX1 DCW @006@ SYSRU S205 ******************************************************************* SYSRU S206 ************************* LOAD ROUTINE **************************** SYSRU S207 ******************************************************************* SYSRU S208 AB080 SBR AB160&3 SYSRU S209 COMMA SW CARDIN,CARDIN&3 SYSRU S210 SBR AB170&3,CARDIN&6 SYSRU S211 AB110 MLC CARDIN&2,AB190&3 SYSRU S212 MLC LOZNG SYSRU S213 MLC CARDIN&2 SYSRU S214 S ONE,CARDIN&4 SYSRU S215 MA SYSRU S216 AB160 BM 0,CARDIN&4 SYSRU S217 AB170 MLC 0,HOLD SYSRU S218 MLC HOLD-1,0 SYSRU S219 AB190 CW 0 SYSRU S220 MA ONE-1,AB170&3 SYSRU S221 BCE *&5,HOLD-1,= Q. WORD SEPARATOR SYSRU S222 B AB110 SYSRU S223 S HOLD-1 SYSRU S224 BCE AB190&4,HOLD,= Q. WORD SEPARATOR SYSRU S225 MLC COMMA,AB190 SYSRU S2255 B AB170 SYSRU S2265 SKIPN SYSRU S227 ORG MAIN SYSRU S301 ******************************************************************* SYSRU S302 ***************** TEST FOR TYPE OF SYSTEMS RUN ******************** SYSRU S303 ******************************************************************* SYSRU S3040BA040 MLC @SYSRU@,IOCRD5&24 REPLACE RDLIN CHECK SYSRU S3050 MLC @L@,SYSRU&16 CHANGE DTF TO LOAD MODE SYSRU S306 RDLIND,SYSRU SYSRU S3070 MLC @MONITOR SYSTEM RUN@,PRINT&26 SYSRU S308 B AA140 SYSRU S3090 CC L SYSRU S3100 MLC @CONTROL CARD - @,PRINT&23 SYSRU S311 MRCM 1,PRINT&24 SYSRU S313 B AA140 SYSRU S3140 CC L SYSRU S3150 C @CREA@,SYSRU&48 TEST FOR CREATE RUN SYSRU S3160 BU BF080 SYSRU S317 JOB 1401 - 1311 MONITOR SYSTEM RUN - ADD MONITOR ROUTINE SYSRU S320 ******************************************************************* SYSRU S321 ********************* LOAD MONITOR ON DISK ************************ SYSRU S322 ******************************************************************* SYSRU S4040 MLC @E@,BC160&7 SYSRU S4050 SBR BC160&3,*&5 SYSRU S406 B BC060-8 SYSRU S407 MLC @003@,BUILD&204 SYSRU S408 MLC SYSRU&34 SYSRU S409 A *-6,BUILD&201 SYSRU S4100 MLC @G@,BC160&7 SYSRU S4110 SBR BC160&3,BC180 SYSRU S4120 MLC SYSRU&34,SYSRU&12 SYSRU S4130 A @10@,SYSRU&12 SYSRU S414 B AA280 PUT ROUTINE SYSRU S5010* SYSRU S5020* COMMENT - LOAD CALL ROUTINE ON DISK SYSRU S5030* SYSRU S5040 S COUNT SYSRU S505 S X1&1 SYSRU S5060BC060 CS CARDIN&79 SYSRU S507 R SYSRU S508 SBR CARDIN&2,BUILD&10&X1 INITIALIZE FOR LOAD SYSRU S509 C CARDIN&79,CDSEQ TEST SEQUENCE SYSRU S5100 BH BF110 SYSRU S5110 SW CARDIN&3 SYSRU S5120 A CARDIN&4,X1 SYSRU S513 B AB080 SYSRU S5140 A *-6,COUNT SYSRU S5150 MLC CARDIN&79,CDSEQ SYSRU S5160BC160 BCE BC180,COUNT,G SYSRU S5170 B BC060 SYSRU S518 BC180 MLC @003@,BUILD&277 SYSRU S5200 MLC SYSRU&34 MOVE PATCH ADDRESS SYSRU S5210 MLC @003@ MOVE SECTOR COUNT SYSRU S5220 MLC SYSRU&34 MOVE PH2 ADDRESS SYSRU S523 A @7@,BUILD&274 SYSRU S524 A @4@,BUILD&265 SYSRU S525 MLC @001@,BUILD&216 SYSRU S6010 MLC SYSRU&34 SYSRU S602 A @13@,BUILD&213 SYSRU S6030 MLC SYSRU&34,SYSRU&12 SYSRU S6040 MLC @0@,IOCADR SYSRU S6050 A *-6,SYSRU&12 SYSRU S606 B AA280 PUT ROUTINE SYSRU S6070* SYSRU S6080* COMMENT - LOAD CLEAR STORAGE AND LOADER ON DISK SYSRU S6090* SYSRU S6100 MLC *&1,BC160&7 SYSRU S6110 SBR BC160&3,*&5 SYSRU S612 B BC060-8 SYSRU S6130 MLC @003@,BUILD&91 SYSRU S6140 MLC SYSRU&34 SYSRU S6150 A *-6,BUILD&88 SYSRU S6160 A @3@,SYSRU&12 SYSRU S617 B AA280 PUT ROUTINE SYSRU S6180* SYSRU S6190* COMMENT - LOAD PATCH ROUTINE ON DISK SYSRU S6200* SYSRU S6210 MLC @E@,BC160&7 SYSRU S6213 CS BUILD&279 SYSRU S6216 CS SYSRU S6220 SBR BC160&3,*&5 SYSRU S623 B BC060-8 SYSRU S624 MLC @003@,BUILD&227 SYSRU S6250 MLC SYSRU&34 SYSRU S701 A *-6,BUILD&224 SYSRU S7020 A @3@,SYSRU&12 SYSRU S703 B AA280 PUT ROUTINE SYSRU S7040* SYSRU S7050* COMMENT - LOAD MONITOR HEADER ON DISK SYSRU S7060* SYSRU S7070 CS BUILD&279 SYSRU S7080 CS SYSRU S7090 CS SYSRU S710 MLCWAGMARK,BUILD&100 CHANGE I/O AREA TO 90 CHARS SYSRU S7110 MLC ONE,SYSRU&15 CHANGE NO. SECTORS IN DTF SYSRU S7120 MLC @090@,SYSRU&26 CHANGE NO. CHARS. IN DTF SYSRU S7130 MLCWA@00@,BUILD&28 SYSRU S7140 MLCWA@1311 MONITOR VER @ SYSRU S7150 MLCWASYSRU&34,BUILD&55 SYSRU S7160 MLCWA@00@ SYSRU S7170 MLCWASYSRU&34 SYSRU S7180 MLCWASYSRU&40 MOVE UPPER LIMIT SYSRU S7190 MLCWASYSRU&34 MOVE LOWER LIMIT SYSRU S7200 A @13@,BUILD&47 SYSRU S7210 A @12@,BUILD&55 SYSRU S7220 SW SYSRU&76 SYSRU S7230 A SYSRU&78,BUILD&55 LAST MONITOR INDEX SECTOR SYSRU S7240 MLCWABUILD&55,BUILD&61 SYSRU S7250 A ONE,BUILD&61 SYSRU S8010 MLC SYSRU&34,SYSRU&12 SYSRU S802 B AA280 PUT ROUTINE SYSRU S8030 MLC BUILD&55,SYSRU&12 SYSRU S8040 CS BUILD&99 SYSRU S8050 MLC BLANKS#4 SYSRU S8060 MLCWA@99@,BUILD&99 SYSRU S807 B AA280 PUT ROUTINE SYSRU S8080BF080 CS CARDIN&79 SYSRU S8090 SW CARDIN SYSRU S810 B OVLAY LOAD NEXT PROGRAM PHASE SYSRU S8110BF110 MLC @SEQUENCE ERROR LOADING MONITOR@,PRINT&38 SYSRU S8120 CC A SYSRU S813 B AA140 SYSRU S8140 H SYSRU S8150 DC 8 SEQUENCE CHECK SYSRU S816 B BC060-8 SYSRU S8170CDSEQ DCW @001DOMSY@ SYSRU S8180 EX BA040 SYSRU S9005 JOB 1401 - 1311 MONITOR SYSTEM RUN - MAINTENANCE ROUTINE SYSRU S901 ******************************************************************* SYSRU S902 *********************** SET UP SYSTEM RUN ************************* SYSRU S903 ******************************************************************* SYSRU S904 ORG PRINT SYSRU S905 CA050 MLCWAGMARK,BUILD&100 SYSRU S906 MLCWAGMARK,BUILD&201 SYSRU S9080 MLC ONE,SYSRU&15 SYSRU S9090 MLC @090@,SYSRU&26 SYSRU S9100 MLC SYSRU&34,IOCADR-1 SYSRU S911 B AA220 GET ROUTINE SYSRU S9120 MLC BUILD&61,NXTPRO SYSRU S9130 CHAIN5 SYSRU S9131 CS CA140,PRINT&98 OVERLAY SYSRU S9132 LTORG* SYSRU S9134* * * * * * * * * * OVERLAY RDLIN ROUTINE * * * * * * * * * * * * * SYSRU S9135 ORG IOCHT1 SYSRU S9140CA140 CS CARDIN&79 SYSRU S915 R SYSRU S9160CA160 SW CARDIN SYSRU S917 MLC @CONTROL CARD -@,PRINT&22 SYSRU S9180 MRCM CARDIN,PRINT&24 SYSRU S919 B AA140 SYSRU S9200 CC L SYSRU S9210 C @ENT@,CARDIN&2 SYSRU S922 BE CB120 SYSRU S9230 C @DEL@,CARDIN&2 SYSRU S924 BE CO040 SYSRU S?010 C @END@,CARDIN&2 SYSRU S?020 BE CI120 SYSRU S?030 MLC @CTL CD ERROR@,PRINT&20 SYSRU S?04 B AA140 SYSRU S?050 CC 1 SYSRU S?060 H SYSRU S?070 DC 5 CONTROL CARD ERROR SYSRU S?080 B CA140 SYSRU S?09 ******************************************************************* SYSRU S?10 ************************* ENTER ROUTINE *************************** SYSRU S?11 ******************************************************************* SYSRU S?12 CB120 MLC CARDIN&19,PRGNM SYSRU SA050 CS BUILD&200 SYSRU SA06 SW BUILD&117 SYSRU SA070 MLC NXTPRO,STTADR#6 SYSRU SA08 S X2&1 SYSRU SA090 SW SYSRU&74 SYSRU SA100 MLC SYSRU&74,X2 SYSRU SA11 CC110 CS BUILD&99 SYSRU SA12 SW BUILD&16 SYSRU SA13 S X1&1 SYSRU SA140CC140 CS CARDIN&79 SYSRU SA15 R SYSRU SA16 C CARDIN&79,CLEAR1 SYSRU SA17 BE CC140 SYSRU SA18 C CARDIN&79,@ C2@ SYSRU SA19 BE CC140 SYSRU SA20 C CARDIN&79,@BOOTLD01@ SYSRU SA21 BE CC140 SYSRU SA22 C CARDIN&77,@LOADER@ SYSRU SA23 BE CC140 SYSRU SB030 C CARDIN&79,PRGNM SYSRU SB040 BU CH240 SYSRU SB05 C CARDIN&2,KEX1 TEST FOR EXECUTE CARD SYSRU SB06 BE CK140 SYSRU SB07 MLC CARDIN&2,ADRSV1 SAVE CORE ADDRESS SYSRU SB110 SW CARDIN&3 SYSRU SB120 SBR CARDIN&2,BUILD&17&X1 INITIALIZE FOR LOAD SYSRU SB130 A CARDIN&4,X1 ADD NO. OF CHARS. TO X1 SYSRU SB140CD140 C X1,CARDIN&4 Q. FIRST CARD OF SECTOR LOAD SYSRU SB150 BU CD210 SYSRU SB160 MLC ADRSV1,BUILD&15 SYSRU SB17 MLC ADRSV1#3,ADRSV2#3 SYSRU SB180 MA X1,ADRSV2 ADD NO. OF CHARS TO CORE ADR SYSRU SB19 B AB080 SYSRU SB200 B CC140 RETURN FROM LOAD SYSRU SB210CD210 C ADRSV1,ADRSV2 Q. CONSECUTIVE LOAD SYSRU SB220 BU CG060 SYSRU SB230 A CARDIN&4,ADRSV1 SYSRU SB240 C @083@,X1 Q. LOAD AREA FULL SYSRU SB250 BH CE070 SYSRU SC01 B AB080 SYSRU SC020 MLC ADRSV1,ADRSV2 SYSRU SC030 B CC140 SYSRU SC04 ******************************************************************* SYSRU SC05 ********************* WRITE ADJUST ROUTINE ************************ SYSRU SC06 ******************************************************************* SYSRU SC070CE070 S @083@,X1 SYSRU SC080 MLZS *-4,X1 SYSRU SC090 S X1,CARDIN&4 SYSRU SC100 MLZS *-4,CARDIN&4 SYSRU SC11 B AB080 SYSRU SC120 MLC X1,CARDIN&4 SYSRU SC130 SBR X1,83 SYSRU SC140 MA @I9H@,ADTBL&X2 SYSRU SC150 B CF090 SYSRU SC160 MA @002@,ADTBL&X2 SYSRU SC170 SBR CARDIN&2,BUILD&17 SYSRU SC18 SBR AB160&3,CC140 SYSRU SC190 MLC CARDIN&4,X1 SYSRU SC200 MLC ADRSV1,ADRSV2 SYSRU SC21 MLC BUILD&15 SYSRU SC220 CS BUILD&99 SYSRU SC23 SW BUILD&16 SYSRU SC240 MLC ADRSV1,BUILD&15 SYSRU SC25 MA ONE-1,BUILD&15 SYSRU SD01 B AB110 SYSRU SE03 ******************************************************************* SYSRU SE04 ********************* NON-CONTINUOUS LOAD ************************* SYSRU SE05 ******************************************************************* SYSRU SE060CG060 S CARDIN&4,X1 SYSRU SE070 MLZS *-4,X1 SYSRU SE080 MA @I9H@,ADTBL&X2 SYSRU SE090 B CF090 SYSRU SE100 MA @002@,ADTBL&X2 SYSRU SE11 S X1&1 SYSRU SE120 CS BUILD&99 SYSRU SE13 SW BUILD&16 SYSRU SE140 MLC CARDIN&4,X1 SYSRU SE15 SBR CARDIN&2,BUILD&17 SYSRU SE160 B CD140 SYSRU SE17 SUBGM DCW @;@ SEMI-COLON--SUBST. GMARK SYSRU SE18 COUNT1 DCW &0 SYSRU SE19 COMPT #6 SYSRU SD02 ORG MAIN SYSRU SD06 ******************************************************************* SYSRU SD07 ************************* WRITE ROUTINE *************************** SYSRU SD08 ******************************************************************* SYSRU SD09 CF090 SBR AA300&3 SYSRU SD100 C UPPER,NXTPRO Q. MONITOR FILE AREA FULL SYSRU SD110 BH CG200 SYSRU SD120 MLC NXTPRO,SYSRU&12 SET UP FOR PUT SYSRU SD130 MLC ADTBL&X2,BUILD&12 MOVE ADDRESS OF HLDCTL&1 SYSRU SD140 MA X1,BUILD&12 LAST POSITION USED IN BUILD SYSRU SD15 MA @I9I@,X1 DECREMENT BY ONE SYSRU SD170 MA X1,BUILD&15 SYSRU SD18 S X1&1 SYSRU SD190CF190 BCE CF230,BUILD&10&X1," Q. GROUP MARK SYSRU SD200CF200 A ONE,X1 SYSRU SD210 BCE CF250,X1-1,9 SYSRU SD220 B CF190 SYSRU SD230CF230 MLC SUBGM,BUILD&10&X1 SYSRU SD240 B CF200 SYSRU SD25 CF250 A ONE,NXTPRO SYSRU SD26 SBR X1,0 SYSRU SE01 B AA280&4 PUT ROUTINE SYSRU SE17 ******************************************************************* SYSRU SE18 ****************** MONITOR FILE AREA EXCEEDED ********************* SYSRU SE19 ******************************************************************* SYSRU SE20 CG200 MLC KEXCED,PRINT&33 SYSRU SE205 MLC SYSRU SE21 B AA140 SYSRU SE220 CC 1 SYSRU SE230 H FILE AREA EXCEEDED SYSRU SE240 DC @E@ SYSRU SE250 B *-5 SYSRU SF00 SKIPN SYSRU SF01 ******************************************************************* SYSRU SF02 ****************** SET WORD MARKS - DA EXECUTE ******************** SYSRU SF03 ******************************************************************* SYSRU SF035CARD EQU CARDIN&70 SYSRU SF04 CH040 C X1,@000@ SYSRU SF041 MA @I9H@,ADTBL&X2 SYSRU SF042 BU CF090 SYSRU SF043 MA @002@,ADTBL&X2 SYSRU SF044 SBR X3,CARDIN&7 SYSRU SF044 CS BUILD&99 SYSRU SF044 SW BUILD&16 SYSRU SF045CH045 C 0&X3,@=B@ SYSRU SF046 BE CH050 SYSRU SF047 A ONE-1,X3 SYSRU SF048 C X3,&CARD SYSRU SF049 BU CH045 SYSRU SF05 CH050 MLC ADTBL&X2,3&X3 SYSRU SF055 MA @I6F@,3&X3 SYSRU SF060CH060 SBR CARDIN&2,BUILD&118 INITIALIZE LOAD SYSRU SF07 MLC *&9,BUILD&117 MOVE A # TO INDICATE EXECUTE SYSRU SF08 MLC ADTBL&X2 SYSRU SF090 MLC ADTBL&X2 SYSRU SF100 MA @062@,BUILD&116 SYSRU SF110 MA @062@,BUILD&113 SYSRU SF12 B AB080 SYSRU SF130 SBR SYSRU&22,BUILD&101 CHANGE I/O AREA ADDRESS SYSRU SF135 SW BUILD&111,BUILD&117 SYSRU SF140 C UPPER,NXTPRO SYSRU SF150 BH CG200 SYSRU SF160 MLC NXTPRO,SYSRU&12 SYSRU SF17 SBR AA300&3,*&5 SYSRU SF180 B CF250 SYSRU SF190 SBR SYSRU&22,BUILD SYSRU SF200CH200 B CC140 SYSRU SF21 SKIPN SYSRU SF210******************************************************************* SYSRU SF22 *************************** LOAD END ****************************** SYSRU SF23 ******************************************************************* SYSRU SF240CH240 C X1,@000@ SYSRU SF250 BU CF090 SYSRU SG010 A @11@,POS SYSRU SG020 C POS,@88@ SYSRU SG030 BL CK020 SYSRU SG040CI040 MLC NXTMON,IOCADR-1 SYSRU SG05 B AA220 GET ROUTINE SYSRU SG06 MLC POS,X1 SYSRU SG07 MLCWASTTADR,BUILD&9&X1 SYSRU SG080 MLCWAPRGNM SYSRU SG09 B AA280 PUT ROUTINE SYSRU SG100 C CARDIN&2,@END@ SYSRU SG110 BU CA160 SYSRU SG113******************************************************************* SYSRU SG114*********************** END CARD ROUTINE ************************** SYSRU SG115******************************************************************* SYSRU SG120CI120 MLC SYSRU&34,IOCADR-1 SYSRU SG13 B AA220 GET ROUTINE SYSRU SG140 MLC NXTPRO,BUILD&61 SYSRU SG150 CHAIN4 SYSRU SG160 A ONE,BUILD&28 INCREASE VERSION NUMBER SYSRU SG17 B AA280 PUT ROUTINE SYSRU SG180 CC 1 SYSRU SG19 MLC @** MONITOR MAP **@,PRINT&31 SYSRU SG20 B AA140 SYSRU SG210 CC L SYSRU SG22 MLC BUILD&29,PRINT&34 SYSRU SG230 MLC SYSRU SG24 B AA140 SYSRU SG250 CC K SYSRU SH01 MLC KLIMIT,PRINT&29 SYSRU SH015 MLC SYSRU SH020 MLC BUILD&35,PRINT&36 SYSRU SH03 B AA140 SYSRU SH040 CC K SYSRU SH05 MLC KLIMIT,PRINT&29 SYSRU SH055 MLC @UPPER@ SYSRU SH060 MLC BUILD&41,PRINT&36 SYSRU SH07 B AA140 SYSRU SH080 CC K SYSRU SH09 MLC KINDEX,PRINT&29 SYSRU SH095 MLC SYSRU SH100 MLC BUILD&47,PRINT&36 SYSRU SH11 B AA140 SYSRU SH120 CC K SYSRU SH13 MLC KINDEX,PRINT&29 SYSRU SH135 MLC @LAST@ SYSRU SH140 MLC BUILD&55,PRINT&36 SYSRU SH15 B AA140 SYSRU SH160 CC K SYSRU SH17 MLC @NEXT PROGRAM SECTOR@,PRINT&29 SYSRU SH180 MLC BUILD&61,PRINT&36 SYSRU SH19 B AA140 SYSRU SH200 CC L SYSRU SH21 MLC @END SYSTEM RUN@,PRINT&31 SYSRU SH22 B AA140 SYSRU SH230 CC 1 SYSRU SH24 NOP 999 SYSRU SH25 H END OF SYSTEMS RUN SYSRU SH255 B *-8 SYSRU SH26 SKIPN SYSRU SI010* SYSRU SI020CK020 A ONE,NXTMON SYSRU SI030 C NXTMON,LASTMI SYSRU SI04 BL *&12 SYSRU SI050 MLC @11@,POS SYSRU SI060 B CI040 SYSRU SI07 MLC KEXCED,PRINT&33 SYSRU SI075 MLC @INDEX@ SYSRU SI08 B AA140 SYSRU SI090 CC 1 SYSRU SI100 H SYSRU SI110 DC @#@ SYSRU SI115 B *-5 SYSRU SI121 SKIPN SYSRU SI125******************************************************************* SYSRU SI13 ********************** EXECUTE CARD FORMAT ************************ SYSRU SI135******************************************************************* SYSRU SI14 CK140 C CARDIN&4,@08@ Q. EXECUTE/END/XFR INSTRCTN SYSRU SI15 BU CM050 SYSRU SI160CK160 C X1,@000@ SYSRU SI170 MA @I9H@,ADTBL&X2 SYSRU SI180 BU CF090 SYSRU SI190 MA @002@,ADTBL&X2 SYSRU SI195 CS BUILD&99 SYSRU SI196 SW BUILD&16 SYSRU SI200 MLC CARDIN&9,BRADD#3 SYSRU SI210 MLC SUBCD,CARDIN&76 SYSRU SI220 MLC @62@,CARDIN&4 SYSRU SI230 MA ADTBL&X2,CARDIN&9 X SYSRU SI240 MLC BRADD,CARDIN&12 * SYSRU SI250 MA ADTBL&X2,CARDIN&17 * SYSRU SJ010 MA ADTBL&X2,CARDIN&20 * SYSRU SJ02 MA ADTBL&X2,CARDIN&25 * SYSRU SJ030 MA ADTBL&X2,CARDIN&28 * SYSRU SJ040 MA ADTBL&X2,CARDIN&33 * BUILD SYSRU SJ050 MA ADTBL&X2,CARDIN&39 * SYSRU SJ060 MA ADTBL&X2,CARDIN&42 * EXECUTE SYSRU SJ070 MA ADTBL&X2,CARDIN&47 * SYSRU SJ080 MA ADTBL&X2,CARDIN&50 * SECTOR SYSRU SJ090 MA ADTBL&X2,CARDIN&55 * SYSRU SJ100 MA ADTBL&X2,CARDIN&60 * SYSRU SJ110 MA ADTBL&X2,CARDIN&63 * SYSRU SJ120 MA ADTBL&X2,CARDIN&68 * SYSRU SJ130 MA ADTBL&X2,CARDIN&71 * SYSRU SJ140 MA ADTBL&X2,CARDIN&76 X SYSRU SJ150 SBR CH200&3,*&5 SYSRU SJ16 B CH060 SYSRU SJ170 SBR CH200&3,CC140 SYSRU SJ180 B CC110 SYSRU SJ190* SYSRU SK042* SYSRU SK045* COMMENT - CLEAR DA AREA EXECUTE SYSRU SK047* SYSRU SK05 CM050 C CARDIN&4,@55@ Q. DA CLEAR SYSRU SK06 BU CH040 NO--DA SET WORD MARK SYSRU SK07 C X1,@000@ Q. DATA TO BE WRITTEN SYSRU SK08 MA @I9H@,ADTBL&X2 SYSRU SK09 BU CF090 YES SYSRU SK10 MA @002@,ADTBL&X2 SYSRU SK105 CS BUILD&99 SYSRU SK106 SW BUILD&16 SYSRU SK11 MA @I9C@,ADTBL&X2 SYSRU SK12 MA ADTBL&X2,CARDIN&14 SYSRU SK13 MA ADTBL&X2,CARDIN&22 SYSRU SK14 MA ADTBL&X2,CARDIN&36 SYSRU SK15 MA ADTBL&X2,CARDIN&39 SYSRU SK16 MA ADTBL&X2,CARDIN&44 SYSRU SK17 MA ADTBL&X2,CARDIN&47 SYSRU SK18 MA ADTBL&X2,CARDIN&52 SYSRU SK19 MA @007@,ADTBL&X2 SYSRU SK20 MLC ADTBL&X2,CARDIN&31 SYSRU SK21 MA @I6F@,CARDIN&31 SYSRU SK22 B CH060 SYSRU SL100 SKIPN SYSRU SM01 ******************************************************************* SYSRU SM02 ************************* DELETE ROUTINE ************************** SYSRU SM03 ******************************************************************* SYSRU SM04 CO040 MLC LOWER,IOCADR-1 SYSRU SM05 A @13@,IOCADR-1 SYSRU SM06 CO060 SBR SYSRU&22,BUILD SYSRU SM07 B AA220 READ MONITOR INDEX SYSRU SM08 S X3&1 SYSRU SM10 SW CARDIN&15 SYSRU SM11 CO110 C BUILD&14&X3,CARDIN&19 SYSRU SM12 BE CP020 SYSRU SM13 SBR X3,11&X3 SYSRU SM15 BCE *&5,X3,8 SYSRU SM16 B CO110 SYSRU SM17 BCE *&12,BUILD&99,9 SYSRU SM18 A *-6,IOCADR-1 SYSRU SM19 B CO060 SYSRU SM20 * PROGRAM NOT IN LIBRARY SYSRU SM21 MLC @NOT IN LIBRARY@,PRINT&22 SYSRU SM22 B AA140 SYSRU SM23 CC 1 SYSRU SM24 .7 SYSRU SM25 B CA140 SYSRU SN01 * DELETE PROGRAM IDENT AND DISK ADDRESS FROM MONITOR INDEX SYSRU SN02 CP020 MLC BUILD&20&X3,DELSV SYSRU SN03 MRCM BUILD,BUILD&101 SYSRU SN04 SBR X1,0&X3 SET X1 EQUAL TO X3 SYSRU SN05 SBR X3,11&X3 SYSRU SN054 S @11@,POS SYSRU SN055 MLZS *-4,POS SYSRU SN056 BCE *&5,POS,0 SYSRU SN057 B *&8 SYSRU SN058 MLC @88@,POS SYSRU SN06 BCE CP220,X3,8 Q. READ NECESSARY SYSRU SN07 BCE *&12,BUILD&20&X3, Q. LAST PROGRAM OF INDEX SYSRU SN08 MLC BUILD&20&X3,DELSV1 SYSRU SN09 B *&8 SYSRU SN10 MLC NXTPRO,DELSV1 SYSRU SN11 MLC DELSV1,COMPT SYSRU SN12 S DELSV,COMPT SYSRU SN13 BCE *&5,BUILD&20&X3, SYSRU SN131 B *&8 SYSRU SN132 MLC DELSV,DELSV1 SYSRU SN135* SHIFT MONITOR INDEX SYSRU SN14 CP140 BCE CP290,BUILD&20&X3, Q. NO INDEX ENTRY SYSRU SN145 MLCWABUILD&20&X3,BUILD&121&X1 SYSRU SN15 MLCWA SYSRU SN16 CP160 SBR X1,11&X1 SYSRU SN17 BCE CQ020,X1,8 Q. WRITE NECESSARY SYSRU SN18 CP180 SBR X3,11&X3 SYSRU SN19 BCE CP220,X3,8 Q. READ NECESSARY SYSRU SN20 B CP140 SYSRU SN21 * READ NEXT INDEX SECTOR SYSRU SN22 CP220 SBR AA240&3 SYSRU SN23 BCE CQ070,BUILD&99,9 Q. LAST INDEX SECTOR SYSRU SN24 SBR SYSRU&22,BUILD SYSRU SN25 S X3&1 SYSRU SN26 A *-6,IOCADR-1 SYSRU SN27 B AA220&4 SYSRU SN28 * BLANK INDEX ENTRY FOUND SYSRU SN29 CP290 MLCWABLANK,BUILD&121&X1 SYSRU SN30 SW BUILD&116&X1 SYSRU SN31 B CP160 SYSRU SO01 * WRITE UPDATED INDEX SECTOR SYSRU SO02 CQ020 S X1&1 SYSRU SO025 SBR SYSRU&22,BUILD&101 SYSRU SO03 S ONE,IOCADR-1 SYSRU SO035 MLZS *-4,IOCADR-1 SYSRU SO036 MLC IOCADR-1,SYSRU&12 SYSRU SO04 B AA280 WRITE UPDATED INDEX SYSRU SO045 A *-6,IOCADR-1 SYSRU SO05 B CP180 SYSRU SO06 * LAST INDEX ENTRY PROCESSED SYSRU SO07 CQ070 MLCWABLANK,BUILD&121&X1 SYSRU SO075 SW BUILD&116&X1 SYSRU SO08 MLC @99@,BUILD&200 SYSRU SO09 SBR CQ070-1,*&5 SYSRU SO10 B CQ020 SYSRU SO14 * DELETE PROGRAM FROM DISK AND SHIFT OTHER PROGRAMS DOWN SYSRU SO15 CQ150 SBR SYSRU&22,BUILD SYSRU SO155 SBR CQ070-1,CP180 SYSRU SO16 CQ160 MLC DELSV1,IOCADR-1 SYSRU SO17 B AA220 READ PROGRAM SECTOR SYSRU SO18 MLC DELSV,SYSRU&12 SYSRU SO19 B AA280 WRITE PROGRAM SECTOR SYSRU SO20 CS BUILD&99 SYSRU SO21 MLC BLANK-6 SYSRU SO22 MLC DELSV1,SYSRU&12 SYSRU SO23 B AA280 BLANK OUT SHIFTED SECTOR SYSRU SO24 C DELSV1,NXTPRO SYSRU SO25 BE CR040 SYSRU SP01 A ONE,DELSV SYSRU SP02 A ONE,DELSV1 SYSRU SP03 B CQ160 SYSRU SP04 CR040 S COMPT,NXTPRO SYSRU SP05 MLZS *-4,NXTPRO SYSRU SP06 B CA140 SYSRU SQ01 LOWER DCW #6 SYSRU SQ02 UPPER #6 SYSRU SQ03 NXTMON #6 SYSRU SQ04 POS #2 SYSRU SQ05 LASTMI #6 SYSRU SQ06 NXTPRO #6 SYSRU SQ13 ADTBL @G09@ 4K SYSRU SQ14 @G0Z@ 8K SYSRU SQ15 @G0R@ 12K SYSRU SQ16 @G0I@ 16K SYSRU SQ18 DCW @=HI8A000=HI4BI7H=C228268=B032/=HI4BI9B=M228268@ SYSRU SQ19 SUBCD DC @=)082=L277000=M289280=B237@ SYSRU SQ20 DELSV DCW #6 SYSRU SQ21 DELSV1 #6 SYSRU SQ24 @LOWER@ SYSRU SQ25 KLIMIT @ MONITOR LIMIT@ SYSRU SQ26 @NEXT@ SYSRU SQ27 KINDEX @ MONITOR INDEX@ SYSRU SQ28 @FILE@ SYSRU SQ29 KEXCED @ AREA EXCEEDED@ SYSRU SQ30 CLEAR1 DCW @ C1@ SYSRU S9999 END CA050 SYSRU