TAL assumes no responsibility for the use or reliability / of its software on equipment that is not supplied by DIGITAL. / /*************************************************************** /SETUP PUTS DEMCATE II INTO SETUP MODE /Assembly instructions /PAL SETUP/L /SA SYS SETUP;200=3501 *0 0260 /VERSION B0 HLT /TRAP INTERRUPTS CLKSET=6130 /SET CLOD (-174 /MOVE 174 LOCATIONS JMS I (MOVIT CDF 20 /FROM FIELD 2 BLK66U /STARTING AT SECOND HALF OF BLOCK 66 CDF 20 /TO FIELD 2 MONIT /BEGINNING AT 7600 //DISMISS USR FROM CORE CDF 30 /SET DATA FIELD TO CURRENT FIELD CIF 10 /SET INSTRUCTION FIELD TO USR FIELD JMS I LCKUSR /DISMISS USR USROUT //RESTORE THE DATE AND BATCH WORDS TAD SAVDAT /GET THE SAVED DATE WORD CDF 10 DCA I DATEWD /PUT IT WHERE IT BELONGS TAD SAVBAT /GET THE SAVED BATCH WORD CDF 0 DCA I BCHIND /PUT IT BACK TOO //NOW EXIT TO NEW MONITOR CIF CDF 0 /BE SURE TO EXIT TO FIELD 0 JMP I (MONIT /MONITOR LOCATION SAVDAT, 0 /DATE SAVE LOCATION SAVBAT, 0 /BATCH INDICATOR SAVE LOCATION $$$ /END OF PROGRAM