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 / T.ASM < prev    next >
Assembly Source File  |  1984-04-29  |  2KB  |  79 lines
  1. ;**********************************************************************
  2. ;*                                                                    *
  3. ;* 11/30/1979                                                         *
  4. ;**********************************************************************
  5. ;
  6. ENTRY   EQU     05H
  7. CR      EQU     0DH
  8. LF      EQU     0AH
  9. ;        
  10.         ORG     0100H
  11. ;
  12.         LXI     H,0
  13.         DAD     SP
  14.         SHLD    OLDSP
  15.         LXI     SP,STACK
  16. ;
  17.         LXI     H,LABEL1+6 
  18.         MVI     A,0
  19.         CALL    GETDIG
  20.         MVI     A,1
  21.         CALL    GETDIG
  22.         INX     H
  23.         MVI     A,2
  24.         CALL    GETDIG
  25.         MVI     A,3
  26.         CALL    GETDIG
  27.         INX     H
  28.         MVI     A,4
  29.         CALL    GETDIG
  30.         MVI     A,5
  31.         CALL    GETDIG
  32.         LXI     H,LABEL1+21
  33.         MVI     A,8
  34.         OUT     0C0H
  35.         CALL    DELAY
  36.         IN      0C0H
  37.         ANI     0FH
  38.         ADI     48
  39.         CPI     63
  40.         CZ      SET1
  41.         MOV     M,A
  42.         MVI     A,9
  43.         CALL    GETDIG
  44.         INX     H
  45.         MVI     A,10
  46.         CALL    GETDIG
  47.         MVI     A,11
  48.         CALL    GETDIG
  49.         LXI     H,LABEL1
  50. ;
  51.         LXI     D,LABEL1
  52.         MVI     C,9 
  53.         CALL    ENTRY
  54.         LHLD    OLDSP
  55.         SPHL
  56.         RET
  57. ;
  58. SET1    MVI     A,20H
  59.         RET      
  60. GETDIG  OUT     0C0H
  61.         CALL    DELAY
  62.         IN      0C0H
  63.         ANI     0FH
  64.         ADI     48
  65.         INX     H
  66.         MOV     M,A
  67.         RET
  68. DELAY   LXI     D,02FFH
  69. WAIT1   DCR     E
  70.         JNZ     WAIT1
  71.         DCR     D
  72.         JNZ     WAIT1
  73.         RET
  74. LABEL1  DB      CR,LF,'TIME HH:MM:SS DATE MM/DD/1980',CR,LF,'$'
  75.         DS      29
  76. OLDSP   DS      2
  77.         DS      100H
  78. STACK   DB      0
  79.