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 / BYE5 / B5C-DS.LBR / DSSET.AZM / DSSET.ASM
Assembly Source File  |  2000-06-30  |  896b  |  32 lines
  1. ;DSSET.ASM    May 11, 1988
  2. ;    Ultra-simple program that establishes a vector to the
  3. ;    DateStamper clock routine at 0008h.  This can subsequently
  4. ;    be "called" via an RST 1 (RST 8H in Zilog) instruction, as
  5. ;    in the B5C-DS.INS clock insert for BYE5.
  6. ;                        Bruce Morgen
  7.  
  8.     ORG    100H
  9.  
  10.     MVI    E,'D'        ; DateStamper "clue" character
  11.     MVI    C,12        ; CP/M version function number
  12.     CALL    5        ; Call BDOS Bros.
  13.     CPI    22H        ; Must be CP/M 2.2 or equivalent
  14.     JNZ    DSERR        ; Otherwise there's no DS
  15.     MOV    A,H        ; Test for returned "clue"
  16.     CPI    'D'
  17.     JZ    DSGOOD        ; Proceed if we got it
  18. DSERR:    LXI    D,DSERMSG    ; Point to error message
  19.     MVI    C,9        ; BDOS print string function #
  20.     JMP    5        ; Return via to CCP via BDOS
  21. DSERMSG:
  22.     DB    7,13,10,'Can''t find The DateStamper$'
  23. ;
  24. DSGOOD:    XCHG            ; Set up vector for an RST 1
  25.     SHLD    9
  26.     MVI    A,0C3H
  27.     STA    8
  28.     RET            ; Return quietly to CP/M
  29.  
  30.     END
  31.  
  32.