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 / ZSYS / SIMTEL20 / SYSLIB / SLIB1.LBR / SBOUT.Z80 < prev    next >
Text File  |  2000-06-30  |  512b  |  29 lines
  1. ;
  2. ; SYSLIB Module Name:  BOUT
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  3.6
  5. ; Module Version Number:  1.1
  6.  
  7.     public    bout
  8. BDOS    EQU    5
  9.  
  10. ;
  11. ;  OUTPUT CHAR IN A VIA BDOS CALL
  12. ;    AFFECT NO REGS
  13. ;
  14. BOUT:
  15.     PUSH    HL    ; SAVE REGS
  16.     PUSH    DE
  17.     PUSH    BC
  18.     PUSH    AF
  19.     LD    C,2    ; PUT CHAR
  20.     LD    E,A    ; CHAR IN E
  21.     CALL    BDOS
  22.     POP    AF    ; RESTORE REGS
  23.     POP    BC
  24.     POP    DE
  25.     POP    HL
  26.     RET
  27.  
  28.     END
  29.