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 / CLKROM.ASM < prev    next >
Assembly Source File  |  1984-04-29  |  2KB  |  129 lines
  1. ;    THIS PROGRAM WILL READ AND DISPLAY THE
  2. ;    TIME AND DATE FROM A COMPU/TIME BOARD
  3. ; 
  4. ;    ASSIGNMENTS
  5. ; 
  6. CR:    EQU    0DH    ; CARRIAGE RETURN
  7. LF:    EQU    0AH    ; LINE FEED
  8. ACONT:    EQU    25H    ; PORT A CONTROL
  9. ADATA:    EQU    24H    ; PORT A DATA
  10. BCONT:    EQU    27H    ; PORT B CONTROL
  11. BDATA:    EQU    26H    ; PORT B DATA
  12. ; 
  13. ;    ENTRY VECTORS
  14. ; 
  15.     JMP    DATE    ; GET THE DATE
  16.     JMP    TIME    ; GET THE TIME
  17. ; 
  18. ;    READ A DIGIT ROUTINE
  19. ; 
  20. RDIGIT:    MOV    A,D    ; SELECT DIGIT
  21.     OUT    ADATA
  22.     IN    ADATA    ; RESET INTERRUPT
  23. DWAIT:    IN    ACONT    ; TEST FOR DIGIT PRESENT
  24.     ANI    80H    ; IS IT THERE?
  25.     JZ    DWAIT    ; NO, THEN LOOP
  26.     IN    ADATA    ; READ A DIGIT
  27.     ANI    0FH    ; MASK ZONE
  28.     ORI    30H    ; SET ASCII
  29.     RET
  30. ; 
  31. ;    READ FOUR DIGITS ROUTINE
  32. ; 
  33. READ4:    MVI    D,0    ; SELECT FIRST DIGIT
  34. NEXT:    CALL    RDIGIT    ; DELAY ONE DIGIT SCAN
  35.     CALL    RSDIG    ; READ AND STORE DIGIT
  36.     MOV    A,D
  37.     CPI    20H    ; TEST IF TWO DIGITS DONE
  38.     JNZ    SKIP
  39.     MOV    A,C
  40.     CPI    0    ; DATE
  41.     JNZ    COLON    ; IT'S FOR TIME
  42.     MVI    A,'/'    ; IT'S FOR DATE
  43.     JMP    DOIT
  44. COLON:    MVI    A,':'
  45. DOIT:    CALL    SDIGIT
  46. SKIP:    MOV    A,D    ; TEST FOR ALL DONE
  47.     CPI    40H
  48.     RZ
  49.     JMP    NEXT    ; GET ANOTHER DIGIT
  50. ; 
  51. ;    STORE A DIGIT ROUTINE
  52. ; 
  53. SDIGIT:    MOV    M,A
  54.     INX    H
  55.     RET
  56. ; 
  57. ;    READ DATE ROUTINE
  58. ; 
  59. DATE:    CALL    BOARD    ; IS THERE A BOARD
  60.     JZ    NOBOARD    ; NOPE
  61.     CALL    CLKINT
  62.     XCHG
  63.     MVI    A,0    ; SET DATE DISPLAY MODE
  64.     OUT    BDATA
  65.     MVI    C,0    ; TELL READ4 THIS IS DATE
  66.     CALL    READ4
  67.     MVI    A,'/'
  68.     CALL    SDIGIT
  69.     MVI    A,'7'    ; SET TENS OF YEARS
  70.     CALL    SDIGIT
  71.     MVI    A,'9'    ; SET UNITS OF YEARS
  72.     CALL    SDIGIT
  73.     RET
  74. ; 
  75. ;    READ THE TIME
  76. ; 
  77. TIME:    CALL    BOARD    ; CHECK IF BOARD THERE
  78.     JZ    NOBOARD
  79.     CALL    CLKINT
  80.     XCHG
  81.     MVI    A,40H    ; SET TIME DISPLAY MODE
  82.     OUT    BDATA
  83.     MVI    C,1    ; TELL READ4 THIS IS TIME
  84.     CALL    READ4
  85.     MVI    A,':'
  86.     CALL    SDIGIT
  87.     CALL    RSDIG
  88. ; 
  89. ;    READ AND STORE A DIGIT
  90. ; 
  91. RSDIG:    CALL    RDIGIT
  92.     CALL    SDIGIT
  93.     MOV    A,D
  94.     ADI    10H
  95.     MOV    D,A
  96.     RET
  97. ; 
  98. ;    NO BOARD IN THE SYSTEM
  99. ; 
  100. NOBOARD: XCHG
  101.     MVI    A,0
  102.     CALL    SDIGIT
  103.     CALL    SDIGIT
  104.     CALL    SDIGIT
  105.     CALL    SDIGIT
  106.     CALL    SDIGIT
  107.     CALL    SDIGIT
  108.     CALL    SDIGIT
  109.     CALL    SDIGIT
  110.     RET
  111. ; 
  112. ;    SEE IF BOARD PRESENT
  113. ; 
  114. BOARD:    IN    ADATA
  115.     CPI    0FFH
  116.     RET
  117. ; 
  118. ;    INITIALIZE CLOCK/CALENDAR PORT
  119. ; 
  120. CLKINT:    MVI    A,70H
  121.     OUT    ADATA
  122.     MVI    A,77H
  123.     OUT    BDATA
  124.     MVI    A,14H
  125.     OUT    ACONT
  126.     MVI    A,04
  127.     OUT    BCONT
  128.     RET
  129.