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 / CPM / TURBODSG / TIME.A < prev    next >
Text File  |  2000-06-30  |  732b  |  63 lines
  1.     #TITLE    "CONTINUOUS TIME DISPLAY"
  2.     #PAGE    132,66
  3.     MODULE    "CTIME"
  4. ;
  5.     LOC    Data#
  6. ;
  7. TIME:    BYTE    "\r                                    "
  8. HOUR:    BYTE    "00:"
  9. MIN:    BYTE    "00:"
  10. SEC:    BYTE    "00$"
  11. CSEC:    BYTE    0
  12. ;
  13. MESS1:    BYTE    "\r\n\n\n$"
  14. ;
  15.     ALIGN
  16.     RES    100
  17. STACK    ==    .
  18. ;
  19.     LOC    Code#
  20. ;
  21. START:    MOV    AX,DS
  22.     MOV    SS,AX
  23.     MOV    SP,&STACK
  24.     MOV    DX,&MESS1
  25.     CALL    PRINTM
  26. LOOP:    MOV    CL,=10
  27.     INT    0XDF
  28.     CMP    CSEC,CH
  29.     JNZ    CVRT
  30.     MOV    CL,=11
  31.     INT    0XE0
  32.     OR    AL,AL
  33.     JZ    LOOP
  34.     MOV    DX,&MESS1
  35.     CALL    PRINTM
  36.     MOV    CL,=0
  37.     INT    0XE0
  38. ;
  39. CVRT:    MOV    AL,DH
  40.     CALL    DEC
  41.     MOV    WORD HOUR,AX
  42.     MOV    AL,DL
  43.     CALL    DEC
  44.     MOV    WORD MIN,AX
  45.     MOV    AL,CH
  46.     MOV    CSEC,AL
  47.     CALL    DEC
  48.     MOV    WORD SEC,AX
  49.     MOV    DX,&TIME
  50.     CALL    PRINTM
  51.     JMPS    LOOP
  52. ;
  53. DEC:    AAM
  54.     XCHG    AH,AL
  55.     OR    AX,=0X3030
  56.     RET
  57. ;
  58. PRINTM:    MOV    CL,=9
  59.     INT    0XE0
  60.     RET
  61. ;
  62.     END
  63.