Retro1.org codex

*DECK DAYTIME 
          IDENT  DAYTIME
*#
*1DC  DAYTIME 
*     1. PROC NAME        AUTHOR       DATE 
*        DAYTIME          A.BEN-ARTZI  82/07/14 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        RETURN THE TIME
*     3. METHOD USED
*        CALL  *CLOCK*  MACRO 
* 
*     4. PARAMETERS 
*        (X1) IS THE ADDRESS TO RETURN TIME 
*#
          ENTRY  DAYTIME
DAYTIME   BSS    1
          SA1    A1 
          SA2    X1 
          CLOCK  TEMP 
          SA3    TEMP 
          BX7    X3 
          SA7    A2 
          EQ     DAYTIME
TEMP      BSSZ   1
          END