;COPYRIGHT GENERAL SCIENTIFIC CORPORATION ;ROCKVILLE, MD. ; ;THIS SOFTWARE MAY BE FREELY DISTRIBUTED BY DECUS FOR NON-COMMERCIAL PURPOSES ;SUBJECT TO GSC COPYRIGHT AND DECUS REGULATIONS. ; .TITLE RT-11 DATE ROUTINE .GLOBL CVT10 .MCALL .DATE ; ; ; This routine gets the date from RT-11 and ; converts it to an ASCII string ; ; DASH = '- ;A DASH, WHAT ELSE ; ; DATE:: .DATE ;MOVE DATE TO R0 MOV R0,R2 ;MAKE COPY OF DATE BIC #^C37,R2 ;MASK OFF YEAR ADD #72.,R2 ;ADD BIAS TO YEAR ASR R0 ASR R0 ;PUT MONTH ON BYTE BOUNDARY MOV R0,R1 ;COPY IT SWAB R1 ;PUT MONTH IN LOW BYTE BIC #^C37,R1 ;MASK OFF MONTH ASR R0 ASR R0 ASR R0 ;PUT DAY ON BYTE BOUNDARY BIC #^C37,R0 ;MASK OFF DAY MOV R1,MONTH ;GIVE MONTH TO CALLING PROGRAM MOV R0,DAY ;GIVE DAY TO CALLING PROGRAM MOV R2,YEAR ;GIVE YEAR TO CALLING PROGRAM ; ; .SBTTL CONVERT TO ASCII ; ; MOV 2(R5),R1 ;GET STORAGE LOCATION MOV DAY,R3 ;GET THE MONTH CALL CVT10 ;CONVERT TO ASCII MOV MONTH,R3 ;GET MONTH DEC R3 ;MINUS ONE ASL R3 ;TIMES 2 ASL R3 ;TIMES 2 ADD #MTAB,R3 ;GET ADDRESS OF TABLE MOV (R3)+,(R1)+ ;DO THE MONTH MOV (R3)+,(R1)+ ;AND THE REST MOVB #DASH,(R1)+ ;PUT IN A DASH MOV YEAR,R3 ;GET THE MONTH CALL CVT10 ;CONVERT TO ASCII RETURN .PAGE .SBTTL BUFFERS ; ; MONTH: .WORD 0 DAY: .WORD 0 YEAR: .WORD 0 .EVEN MTAB: .ASCII /-JAN/ .ASCII /-FEB/ .ASCII /-MAR/ .ASCII /-APR/ .ASCII /-MAY/ .ASCII /-JUN/ .ASCII /-JUL/ .ASCII /-AUG/ .ASCII /-SEP/ .ASCII /-OCT/ .ASCII /-NOV/ .ASCII /-DEC/ .END