SETTIT - TCU-100 SET ROUTINES MACRO V03.02B20-NOV-78 15:20:26 TABLE OF CONTENTS 1- 4 Program Description 2- 1 Globals and Definitions 3- 1 TCU-100 Set Procedure (Both Entries) SETTIT - TCU-100 SET ROUTINES MACRO V03.02B20-NOV-78 15:20:26 PAGE 1 1 .TITLE SETTIT - TCU-100 SET ROUTINES 2 .IDENT /V02.00/ 3 .ENABL LC 4 .SBTTL Program Description 5 ; 6 ; Macro subroutines to set TCU-100 clock. 7 ; 8 ; Called from FORTRAN by: 9 ; 10 ; CALL MONDAY(ARG) 11 ; 12 ; CALL HORMIN(ARG) 13 ; 14 ; where ARG is built to satisfy the 15 ; TCU-100 register format for month and day 16 ; and for hour and minute. Seconds are 17 ; always set to zero by this process. 18 ; 19 ; 20 ; J. R. Cutler 21 ; Space Physics Research Laboratory 22 ; University of Michigan 23 ; Ann Arbor, Michigan 48105 24 ; 25 ; Under NASA contracts NAS5-25002, NAS5-25031, and NAS5-24296 SETTIT - TCU-100 SET ROUTINES MACRO V03.02B20-NOV-78 15:20:26 PAGE 2 GLOBALS AND DEFINITIONS 1 .SBTTL Globals and Definitions 2 ; 3 ; 4 ; You MUST define this for your system! 5 ; 6 170770 TCUBAS =170770 ; address strapped on TCU-100 7 ; 8 ; 9 ; 10 ; TCU-100 Register Definitions 11 ; 12 170770 MODAY =TCUBAS 13 170772 HRMIN =TCUBAS+2 14 170774 SECONDS =TCUBAS+4 15 170776 STATUS =TCUBAS+6 16 ; 17 ; Entry Points 18 ; 19 .GLOBL MONDAY,HORMIN,TCUBAS SETTIT - TCU-100 SET ROUTINES MACRO V03.02B20-NOV-78 15:20:26 PAGE 3 TCU-100 SET PROCEDURE (BOTH ENTRIES) 1 .SBTTL TCU-100 Set Procedure (Both Entries) 2 .ENABL LSB 3 4 000000 012701 170770 MONDAY: MOV #MODAY,R1 ; month and day address 5 000004 000402 BR 1$ 6 7 000006 012701 170772 HORMIN: MOV #HRMIN,R1 ; Hour and minute register 8 9 000012 012500 1$: MOV (R5)+,R0 ; I'm ignoring argument count 10 000014 011500 MOV (R5),R0 ; R0 now has pointer to ARG 11 000016 011000 MOV (R0),R0 ; Now R0 has ARG 12 000020 062700 040100 ADD #40100,R0 ; Add set enable constant 13 000024 010011 MOV R0,(R1) ; Initiate the set 14 15 000026 105737 170776 2$: TSTB @#STATUS ; Check for done 16 000032 100375 BPL 2$ ; Not done yet 17 18 000034 000207 RTS PC ; Back to call 19 20 .DSABL LSB 21 22 000001 .END SETTIT - TCU-100 SET ROUTINES MACRO V03.02B20-NOV-78 15:20:26 PAGE 3-1 SYMBOL TABLE HORMIN 000006RG MODAY = 170770 SECOND= 170774 STATUS= 170776 TCUBAS= 170770 G HRMIN = 170772 MONDAY 000000RG . ABS. 000000 000 000036 001 ERRORS DETECTED: 0 VIRTUAL MEMORY USED: 283 WORDS ( 2 PAGES) DYNAMIC MEMORY AVAILABLE FOR 74 PAGES ,DK:SETTIT=DK:SETTIT/C SETTIT - TCU-100 SET ROUTINES MACRO V03.02B20-NOV-78 15:20:26 PAGE S-1 CROSS REFERENCE TABLE (CREF V01-08 ) HORMIN 2-19 3-7# HRMIN 2-13# 3-7 MODAY 2-12# 3-4 MONDAY 2-19 3-4# SECOND 2-14# STATUS 2-15# 3-15 TCUBAS 2-6# 2-12 2-13 2-14 2-15 2-19