TIME6 [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: TIME6)}}
====== TIME6 ======
(George Source)

**Macros used:** [[george:macro:CJOBLOCK|CJOBLOCK]], [[george:macro:COMERR|COMERR]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:PARAPASS|PARAPASS]], [[george:macro:PARSPLIT|PARSPLIT]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:TESTREP|TESTREP]]

<code - TIME6.txt>22FL    #LIS  K0TIME>K0ALLGEO>K0GREATGEO>K0COMMAND  
22^=    #SEG  TIME6                        [RUTH HEAP   
23DW                   8HTIME   
23YG          SEGENTRY K1TIME,SENTRY1   
24D6    #   
24XQ    #           THIS SEGMENT IMPLEMENTS THE TIME COMMAND, WHICH ACCEPTS A TI
25CB    #           GIVEN IN MINUTES OR SECONDS AS THE TIME LIMIT OF THE CURRENT
25X2    #           OBJECT PROGRAM .
26BL    #   
26W=    MINCON         4HMINS   
27*W    SECON          4HSECS   
27TG    SIXTY          +60  
28*6    MILLESEC       +1000
28SQ    #   
29#B    SENTRY1 
29S2          PARAPASS  
2=?L          PARSPLIT 4
2=R=          TESTREP  FORMAT,XDEAD 
2?=W          TESTREPN OK,NOTIM 
2?QG    #SKI  G3MARK<5-5
2#=6          LDX   6  EXEC2(2)            [LOAD CONVERTED TIME 
2#PQ    #SKI  G3MARK>4-4
2*9B          LDX   6  ACOMMUNE1(2) 
2*P2          BZE   4  MSCNV               [J NOT SECS OR MINS  
2B8L          TXU   4  SECON(1)            [TEST FOR 'SECS' 
2BN=          BCC      MSCNV               [BRANCH IF IS
2C7W          TXU   4  MINCON(1)           [TEST FOR 'MINS' 
2CMG          BCS      XFORM               [ERROR IF NOT
2D76          MPY   6  SIXTY(1)            [CONVERT TIME TO SECONDS 
2DLQ          STO   7  6
2F6B    MSCNV MPY   6  MILLESEC(1)         [CONVERT TIME TO MILLESECONDS IN X6 &
2FL2          CJOBLOCK 3                   [FIND JOB BLK
2G5L          STO   6  APROGTIME(3) 
2GK=          STO   7  APROGTIME+1(3)      [STORE PROGRAM TIME  
2H4W    XDEAD ENDCOM
2HJG    #   
2J46    #              ERROR REPORTS
2JHQ    NOTIM   
2K3B          COMERR   JPARMIS,JTI         [TIME PARAMETER MISSING  
2KH2    XFORM   
2L2L          COMERR   APFERR              [PARAMETER FORMAT ERROR  
2LG=          MENDAREA 10,GAPTIME   
2L^W    #END
^^^^ ...01463177000100000000
</code>