C -------------------------------------- PROGRAM DATIME C -------------------------------------- C This program forces the user to enter C the date and time so that it may be C stored into the date and time words C of the RT-11 resident monitor. C Usually it is run once at bootstrap C time, from a startup command file. C **WARNING** THIS PROGRAM POKES AROUND C IN THE MONITOR. IT IS DESIGNED FOR USE C WITH AND ONLY WITH THE SINGLE JOB (JS) C MONITOR. DO NOT USE WITH FB OR XM. C -------------------------------------- C DATA DEFINITION C -------------------------------------- INTEGER*2 DAY !DAY OF MONTH INTEGER*2 MONTH !MONTH (0 TO 12) INTEGER*2 YEAR !YEAR (1979 TO 1982) INTEGER*2 HOUR !HOUR (0 TO 23) INTEGER*2 MINUTE !MINUTE (0 TO 59) INTEGER*2 SECOND !SECOND (0 TO 59) INTEGER*2 TIME(2) !TIME IN RT-11 INTERNAL FORMAT C -------------------------------------- $PAGE C -------------------------------------- C MAIN PROCEDURE C -------------------------------------- PROGRAM DATIME !TO FORCE RT-11 DATE AND TIME INPUT. IFLAG=0 CALL SCCA(IFLAG) !TO PREVENT THE USER FROM ABORTING INPUT-AND-STORE-THE-DATE INPUT-AND-STORE-THE-TIME CALL EXIT !TO RETURN TO RT-11 TO INPUT-AND-STORE-THE-DATE CALL DATEIN(DAY,MONTH,YEAR) CALL IPOKE(IPEEK("54)+"262,(DAY*"40)+(MONTH*"2000)+(YEAR-1972)) FIN TO INPUT-AND-STORE-THE-TIME CALL TIMEIN(HOUR,MINUTE,SECOND) CALL JTIME(HOUR,MINUTE,SECOND,30,TIME) CALL IPOKE(IPEEK("54)+"320,TIME(1)) CALL IPOKE(IPEEK("54)+"322,TIME(2)) FIN END