home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG042.ARK / TIME.ASM < prev    next >
Assembly Source File  |  1984-04-29  |  3KB  |  178 lines
  1. ;    THIS PROGRAM WILL READ AND DISPLAY THE
  2. ;    TIME AND DATE FROM A COMPU/TIME BOARD
  3. ;    UNDER THE CP/M OPERATING SYSTEM
  4. ; 
  5. ; 
  6.     ORG    100H
  7. ; 
  8. ;    SET UP THE NEW STACK
  9. ; 
  10.     LXI    H,0
  11.     DAD    SP
  12.     SHLD    OLDSP
  13.     LXI    SP,STACK
  14. ; 
  15. ;    ASSIGNMENTS
  16. ; 
  17. ENTRY:    EQU    5    ; CP/M ENTRY
  18. CR:    EQU    0DH    ; CARRIAGE RETURN
  19. LF:    EQU    0AH    ; LINE FEED
  20. ACONT:    EQU    25H    ; PORT A CONTROL
  21. ADATA:    EQU    24H    ; PORT A DATA
  22. BCONT:    EQU    27H    ; PORT B CONTROL
  23. BDATA:    EQU    26H    ; PORT B DATA
  24. ; 
  25. ;    DISPLAY TIME AND DATE
  26. ; 
  27.     LXI    D,MON
  28.     CALL    DATE
  29.     LXI    D,HOUR
  30.     CALL    TIME
  31.     LXI    D,PDATE
  32.     MVI    C,9
  33.     CALL    ENTRY
  34. ; 
  35. ;    RETURN TO CP/M THROUGH CCP
  36. ; 
  37. RETCPM:    LHLD    OLDSP    ; GET CCP'S STACK
  38.     SPHL
  39.     RET
  40. ; 
  41. ;    READ A DIGIT ROUTINE
  42. ; 
  43. RDIGIT:    MOV    A,D    ; SELECT DIGIT
  44.     OUT    ADATA
  45.     IN    ADATA    ; RESET INTERRUPT
  46. DWAIT:    IN    ACONT    ; TEST FOR DIGIT PRESENT
  47.     ANI    80H    ; IS IT THERE?
  48.     JZ    DWAIT    ; NO, THEN LOOP
  49.     IN    ADATA    ; READ A DIGIT
  50.     ANI    0FH    ; MASK ZONE
  51.     ORI    30H    ; SET ASCII
  52.     RET
  53. ; 
  54. ;    READ FOUR DIGITS ROUTINE
  55. ; 
  56. READ4:    MVI    D,0    ; SELECT FIRST DIGIT
  57. NEXT:    CALL    RDIGIT    ; DELAY ONE DIGIT SCAN
  58.     CALL    RSDIG    ; READ AND STORE DIGIT
  59.     MOV    A,D
  60.     CPI    20H    ; TEST IF TWO DIGITS DONE
  61.     JNZ    SKIP
  62.     MOV    A,C
  63.     CPI    0    ; DATE
  64.     JNZ    COLON    ; IT'S FOR TIME
  65.     MVI    A,'/'    ; IT'S FOR DATE
  66.     JMP    DOIT
  67. COLON:    MVI    A,':'
  68. DOIT:    CALL    SDIGIT
  69. SKIP:    MOV    A,D    ; TEST FOR ALL DONE
  70.     CPI    40H
  71.     RZ
  72.     JMP    NEXT    ; GET ANOTHER DIGIT
  73. ; 
  74. ;    STORE A DIGIT ROUTINE
  75. ; 
  76. SDIGIT:    MOV    M,A
  77.     INX    H
  78.     RET
  79. ; 
  80. ;    READ DATE ROUTINE
  81. ; 
  82. DATE:    CALL    BOARD    ; IS THERE A BOARD
  83.     JZ    NOBOARD    ; NOPE
  84.     CALL    CLKINT
  85.     XCHG
  86.     MVI    A,0    ; SET DATE DISPLAY MODE
  87.     OUT    BDATA
  88.     MVI    C,0    ; TELL READ4 THIS IS DATE
  89.     CALL    READ4
  90.     MVI    A,'/'
  91.     CALL    SDIGIT
  92.     MVI    A,'7'    ; SET TENS OF YEARS
  93.     CALL    SDIGIT
  94.     MVI    A,'9'    ; SET UNITS OF YEARS
  95.     CALL    SDIGIT
  96.     RET
  97. ; 
  98. ;    READ THE TIME
  99. ; 
  100. TIME:    CALL    BOARD    ; CHECK IF BOARD THERE
  101.     JZ    NOBOARD
  102.     CALL    CLKINT
  103.     XCHG
  104.     MVI    A,40H    ; SET TIME DISPLAY MODE
  105.     OUT    BDATA
  106.     MVI    C,1    ; TELL READ4 THIS IS TIME
  107.     CALL    READ4
  108.     MVI    A,':'
  109.     CALL    SDIGIT
  110.     CALL    RSDIG
  111. ; 
  112. ;    READ AND STORE A DIGIT
  113. ; 
  114. RSDIG:    CALL    RDIGIT
  115.     CALL    SDIGIT
  116.     MOV    A,D
  117.     ADI    10H
  118.     MOV    D,A
  119.     RET
  120. ; 
  121. ;    NO BOARD IN THE SYSTEM
  122. ; 
  123. NOBOARD: XCHG
  124.     MVI    A,0
  125.     CALL    SDIGIT
  126.     CALL    SDIGIT
  127.     CALL    SDIGIT
  128.     CALL    SDIGIT
  129.     CALL    SDIGIT
  130.     CALL    SDIGIT
  131.     CALL    SDIGIT
  132.     CALL    SDIGIT
  133.     RET
  134. ; 
  135. ;    SEE IF BOARD PRESENT
  136. ; 
  137. BOARD:    IN    ADATA
  138.     CPI    0FFH
  139.     RET
  140. ; 
  141. ;    INITIALIZE CLOCK/CALENDAR PORT
  142. ; 
  143. CLKINT:    MVI    A,70H
  144.     OUT    ADATA
  145.     MVI    A,77H
  146.     OUT    BDATA
  147.     MVI    A,14H
  148.     OUT    ACONT
  149.     MVI    A,04
  150.     OUT    BCONT
  151.     RET
  152. ; 
  153. ;    STORAGE AREA
  154. ; 
  155. PDATE:    DB    CR,LF,'DATE  '
  156. MON:    DB    'XX'
  157.     DS    1
  158. DAT:    DB    'XX'
  159.     DS    3
  160. DPTIME: DB    '  TIME  '
  161. HOUR:    DB    'XX'
  162.     DS    1
  163. MIN:    DB    'XX'
  164.     DS    1
  165. SEC:    DB    'XX'
  166.     DB    CR,LF,'$'
  167. TBUFF:    DB    13,0
  168. MONI:    DS    2
  169.     DS    1
  170.     DS    2
  171.     DS    1
  172. HOURI:    DS    2
  173.     DS    1
  174.     DS    2
  175. OLDSP:    DS    2
  176.     DS    100H
  177. STACK:    DB    0
  178.