Retro1.org codex

*DECK OTIME 
          IDENT  OTIME
          ENTRY  OTIME
          SST 
*#
*1DC  OTIME 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        OTIME               J. J. LYON          75/09/02 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        THIS ROUTINE IS RESPONSIBLE FOR READING THE REAL-TIME-CLOCK. 
* 
*     3. METHOD USED. 
*          -RTIME- COMPASS MACRO
* 
*     4. ENTRY PARAMETERS.
*          A1 = OUTPUT PARAMETER
* 
*     5. EXIT PARAMETERS. 
*          A1 = FWA OF LOCATION TO STORE CLOCK READING
* 
*     6. COMDECKS CALLED.  NONE 
* 
*     7. ROUTINES CALLED. 
*          RTIME             COMPASS MACRO
* 
*     8. DAYFILE MESSAGES.  NONE
* 
*#
 SAVEA1   BSSZ   1
 NEWTIME  BSSZ   1
*********************************************************************** 
 OTIME    BSSZ   1           ENTRY/EXIT 
          SX7    A1 
          SA7    SAVEA1 
          RTIME  NEWTIME
          SA1    SAVEA1 
          SA2    X1          X2 = ADDR OF PARAM 
          SA3    NEWTIME
          BX7    X3 
          SA7    X2 
          JP     OTIME
          END