home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol147 / settime.asm < prev    next >
Encoding:
Assembly Source File  |  1984-04-29  |  4.0 KB  |  283 lines
  1. ; DATE 10/07/83  10:48      last revision
  2. ;
  3.  
  4.     TITLE    'Sets Compupro Clock'
  5. ;
  6. ; SETTIME.ASM
  7. ; DATE 08/29/83  19:47
  8. ; by: H.M. Van Tassell, 120 Hill Hollow Rd, Watchung NJ  07060 (201)755-5372
  9. ;
  10. ; This is the standard Compupro program to set the system support clock and
  11. ; it has been modified to include the day of the week byte. This byte is used
  12. ; by some programs ie COMM7 to show the day of the week.
  13. ;
  14. ; 
  15.  
  16.         BASE     EQU     50H
  17.         CLKCMD     EQU     BASE+10
  18.         CLKDATA    EQU    BASE+11
  19.         BDOS    EQU    0005H
  20.         READ     EQU     10H
  21.         WRITE    EQU     20H
  22.         HOLD    EQU     40H
  23.         
  24.         ORG    100H    
  25.  
  26.  
  27.  
  28.         LXI    SP,STACK
  29. START        LXI    D,SIGNON 
  30.         CALL    PMSG
  31.         CALL    GETCHAR
  32.         CPI    'X' 
  33.         JZ    0000H
  34.         CPI    'S'
  35.         JZ    SETTIME
  36.         CPI    'P'
  37.         JZ    PTIME
  38.         CPI    'C'
  39.         JZ    FOREVER
  40.         LXI    D,ERROR
  41.         CALL    PMSG
  42.         JMP    START
  43.  
  44. SETTIME        CALL    GETTIME
  45.         LXI    H,DTABLE
  46.         LXI    D,ATABLE
  47.         MVI    B,14
  48.         MVI    A,HOLD
  49.         OUT    CLKCMD 
  50. SET1        DCR    B
  51.         JNZ    HERE
  52.         MVI    A,0
  53.         OUT    CLKCMD
  54.         LXI    D,TIMEIS
  55.         CALL    PMSG
  56.         CALL    RDDAY
  57.         CALL    CLKPRNT
  58.         JMP    START
  59. HERE        MOV    A,M
  60.         MOV    C,A
  61.         LDAX    D
  62.         CALL    WRTDGT
  63.         INX    H
  64.         INX    D
  65.         JMP     SET1
  66.         
  67. GETTIME        LXI    D,ASKDAY
  68.         CALL    PMSG
  69.         LXI    H,DTABLE
  70. GET3        CALL    GETCHAR
  71.         CPI    '0'
  72.         JC    GET3
  73.         CPI    '6'+1
  74.         JNC    GET3
  75.         ANI    0FH
  76.         MOV    M,A
  77.         INX    H
  78. TIME         LXI    D,ASKTIME
  79.         CALL    PMSG
  80. GET1        CALL    GETNUMB
  81.         CPI    0DH
  82.         JZ    GETDATE
  83.         ANI    0FH
  84.         MOV    M,A
  85.         INX    H
  86.         JMP    GET1
  87. GETDATE        LXI    D,ASKDATE
  88.         CALL    PMSG
  89. GET2        CALL    GETNUMB
  90.         CPI    0DH
  91.         RZ
  92.         ANI    0FH
  93.         MOV    M,A
  94.         INX    H
  95.         JMP    GET2
  96.  
  97. GETNUMB        CALL    GETCHAR
  98.         CPI    0DH 
  99.         RZ
  100.         CPI    '0'
  101.         JC    GETNUMB
  102.         CPI    '9'+1
  103.         JNC    GETNUMB
  104.         RET
  105.  
  106. WRTDGT        PUSH    PSW
  107.         ADI    HOLD
  108.         OUT    CLKCMD
  109.         CPI     5+HOLD
  110.         JNZ    WRT1
  111.         MOV    A,C
  112.         ADI    08H
  113.         JMP     WRT3
  114. WRT1        CPI    8+HOLD
  115.         JNZ    WRT2
  116.         MOV    A,C
  117.         ANI    03H
  118.         JMP    WRT3
  119. WRT2        MOV    A,C
  120. WRT3        OUT    CLKDATA
  121.         POP    PSW
  122.         ADI    WRITE+HOLD
  123.         OUT    CLKCMD
  124.         SUI    WRITE
  125.         OUT    CLKCMD
  126.         RET
  127.  
  128. RDDGT        ADI    READ
  129.         OUT    CLKCMD
  130.         CPI    05H+READ
  131.         IN    CLKDATA
  132.         RNZ
  133.         SUI    08H
  134.         RET
  135.  
  136. CLKPRNT        LXI    H,RTABLE
  137.         CALL    PRINTWO 
  138.         MVI    A,'/'
  139.         CALL     PCHAR
  140.         CALL    PRINTWO
  141.         MVI    A,'/'
  142.         CALL    PCHAR
  143.         CALL    PRINTWO
  144.         MVI    A,' '
  145.         CALL    PCHAR
  146.         MVI    A,' '
  147.         CALL    PCHAR
  148.         CALL    PRINTWO
  149.         MVI    A,':'
  150.         CALL    PCHAR
  151.         CALL    PRINTWO
  152.         MVI    A,':'
  153.         CALL    PCHAR
  154.         CALL    PRINTWO
  155.         RET
  156.  
  157. PRINTWO        MOV    A,M
  158.         CALL    RDDGT
  159.         ADI    30H
  160.         CALL    PCHAR
  161.         INX    H
  162.         MOV    A,M
  163.         CALL    RDDGT
  164.         ADI    30H
  165.         CALL     PCHAR
  166.         INX    H
  167.         RET
  168.  
  169. PTIME        LXI    D,TIMEIS
  170.         CALL    PMSG
  171.         CALL    RDDAY
  172.         CALL    CLKPRNT 
  173.         JMP    START
  174.  
  175. FOREVER        MVI    A,0AH
  176.         CALL    PCHAR
  177. FOR1        MVI    A,0DH
  178.         CALL     PCHAR
  179.         CALL    CLKPRNT 
  180.         MVI    A,0
  181.         CALL    RDDGT
  182.         MOV    B,A
  183. FOR2        MVI    A,0
  184.         CALL    RDDGT
  185.         CMP    B
  186.         JZ    FOR2
  187.         JMP    FOR1
  188.  
  189. GETCHAR        PUSH    H
  190.         MVI    C,01
  191.         CALL    BDOS
  192.         POP    H
  193.         CPI    'a'
  194.         JC    SKIP
  195.         CPI    'z'+1
  196.         JNC    SKIP
  197.         ANI    5FH
  198. SKIP        ANI    7FH
  199.         CPI    03H
  200.         JZ    0000H
  201.         RET
  202.  
  203. PCHAR        PUSH    D
  204.         MOV    E,A
  205.         MVI    C,02H
  206.         PUSH    H
  207.         CALL    BDOS
  208.         MVI    C,0BH
  209.         CALL    BDOS
  210.         POP     H
  211.         POP    D
  212.         ORA    A
  213.         CNZ    GETCHAR
  214.         RET
  215.  
  216. RDDAY    MVI    A,6        ;day of week
  217.     CALL    RDDGT
  218.     RLC            ; *2 for tbl offset
  219.     LXI    H,DTBL        ;point to day table
  220.  
  221. TBLO    MOV    E,A        ;shift factor..
  222.     MVI    D,0        ;..into de-pair.
  223.     DAD    D        ;add offset to hl-pair
  224.     MOV    E,M        ;put address into..
  225.     INX    H
  226.     MOV    D,M        ;..de-pair.  then..
  227.     CALL    PMSG        ;PRINT IT
  228.     RET
  229.  
  230. PMSG        PUSH    H
  231.         MVI    C,09H
  232.         CALL    BDOS
  233.         POP    H
  234.         RET
  235.  
  236.  
  237. SIGNON        DB    0DH,0AH,0DH,0AH,'Time and date test routines for '
  238.         DB    'System Support 1',0DH,0AH,0DH,0AH
  239.         DB    'Please type one of the following commands:',0DH,0AH
  240.         DB    'S - Set the time and date',0DH,0AH
  241.         DB    'P - Print the time and date once',0DH,0AH
  242.         DB    'C - Continuously print the time and date',0DH,0AH
  243.         DB    'X - Exit to operating system',0DH,0AH
  244.         DB    0DH,0AH,'Command: $'
  245.         
  246. ERROR        DB    0DH,0AH,'That was not one of the commands.'  
  247.         DB    0DH,0AH,'Please try again $'
  248.  
  249. ASKTIME        DB    0DH,0AH,'What is the time ? (HH:MM:SS) $'
  250.  
  251. ASKDATE        DB    0DH,0AH,'What is the date ?  (MM/DD/YY) $'
  252.  
  253. ASKDAY        DB    0DH,0AH,'Day of the week ? (Sun=0,Sat=6) $'
  254.  
  255. TIMEIS        DB    0DH,0AH,'The time and date are: $'
  256.  
  257.  
  258. DTBL    DW    SUN        ;daytable
  259.     DW    MON
  260.     DW    TUE
  261.     DW    WED
  262.     DW    THU
  263.     DW    FRI
  264.     DW    SAT
  265.  
  266. SUN    DB    'Sunday $'
  267. MON    DB    'Monday $'
  268. TUE    DB    'Tuesday $'
  269. WED    DB    'Wednesday $'
  270. THU    DB    'Thursday $'
  271. FRI    DB    'Friday $'
  272. SAT    DB    'Saturday $'
  273.  
  274.  
  275. ATABLE        DB    6,5,4,3,2,1,0,10,9,8,7,12,11
  276.  
  277. RTABLE        DB    10,9,8,7,12,11,5,4,3,2,1,0
  278.  
  279. DTABLE        DS    13
  280.  
  281.         DS    32
  282. STACK
  283.