.TITLE CTCHKI .IDENT /V01/ .ENABLE LC ; ; This module forms part of the suite of Time Routines returning the ; current date in one of the following forms, or converting one form to ; another. ; Form I - Hours, Minutes, Seconds & Tenths of a Second ; Form A - ASCII HH:MM:SS.S ; Form D - Integer*4 seconds since midnight ; ; Author: V01 15-Jul-80 Phil Stephensen-Payne ; ; Calling Sequence: ; ; This module is only called from MACRO-11 to check a type-I time ; ; CALL CTCHKI from MACRO-11 with ; R5 = 0 ; R1 = Address of TIMTBL ; ; Where: ; TIMTBL = 4-byte array holding Hour, Minute, Second & Tenths ; ; Errors returned: ; ; C-bit Clear if the time was valid ; Set if an invalid input time was specified ; ; External references: ; ; None ; ; CTCHKI:: CMPB (R1),#23. ; Hour outside range? BHI ERR ; If HI yes - error CMPB 1(R1),#59. ; Minute outside range? BHI ERR ; If HI yes - error CMPB 2(R1),#59. ; Second outside range? BHI ERR ; If HI yes - error CMPB 3(R1),#9. ; Tenths outside range? BHI ERR ; If HI yes - error CLC ; Time OK RETURN ; ERR: SEC ; Time Bad RETURN ; .END