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 / SUSPEND.MAC < prev    next >
Text File  |  2000-06-30  |  1KB  |  96 lines
  1.     title    "suspend slave program"
  2. ;
  3. ;    (c) 1985 S. Kluger. All Rights Reserved.
  4. ;
  5. ;    Suspends slave
  6. ;
  7. cr    equ    0dh
  8. lf    equ    0ah
  9. tfunc    equ    50h
  10. jconv    equ    10958
  11. ;
  12. .z80
  13. .request syslib
  14. ;
  15.     dseg
  16. ;
  17. @dcfld::db    '00/00/00 at ',0
  18. id:    db    '.tShell.'
  19. offset:    db    0
  20. ;
  21. ;
  22.     cseg
  23. ;
  24. start:    ld    de,80h
  25.     ld    hl,id
  26.     ld    bc,8
  27.     ldir
  28.     ld    bc,41
  29.     ld    l,0
  30.     call    tfunc
  31.     or    a
  32.     jp    z,fatal
  33.     ld    (offset),a
  34.     call    print##
  35.     cr,lf
  36.     'Current time: ',0
  37.     ld    c,10
  38.     call    tfunc
  39.     push    hl
  40.     call    time
  41.     call    print##
  42.     cr,lf
  43.     'Suspend till: ',0
  44.     ld    hl,5dh
  45.     call    eval10##
  46.     push    af
  47.     ld    hl,6dh
  48.     call    eval10##
  49.     pop    af
  50.     ld    d,a
  51.     pop    hl
  52.     ld    bc,0
  53.     ld    (80h),hl
  54.     ld    (82h),de
  55.     call    time
  56.     ld    bc,41
  57.     ld    a,(offset)
  58.     add    a,17
  59.     ld    l,a
  60.     call    tfunc
  61.     call    print##
  62.     cr,lf,lf,7,0
  63.     rst    0
  64. ;
  65. time:    push    bc
  66.     push    de
  67.     ld    de,-jconv
  68.     add    hl,de
  69.     call    @dcvrt##
  70.     ld    hl,@dcfld
  71.     call    pstr##
  72.     pop    de
  73.     ld    a,d
  74.     call    ..10
  75.     ld    a,':'
  76.     call    cout##
  77.     ld    a,e
  78.     call    ..10
  79.     ld    a,':'
  80.     call    cout##
  81.     pop    bc
  82.     ld    a,b
  83. ..10:    cp    10
  84.     jr    nc,..10.
  85.     push    af
  86.     ld    a,'0'
  87.     call    cout##
  88.     pop    af
  89. ..10.:    jp    pafdc##
  90. ;
  91. fatal:    call    print##
  92.     cr,lf,lf,7
  93.     'ERROR: tShell not installed',cr,lf,lf,0
  94.     rst    0
  95.     end
  96.