home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / EXTRA-ST / CPM-80-E / CPM-0.2 / CPM-0 / cpm-0.2 / z80-sources / mylib / biosio.mac < prev    next >
Encoding:
Text File  |  1994-06-06  |  768 b   |  41 lines
  1. ;************************************************************************
  2. ;*        BIOS Character-I/O Subroutinen                *
  3. ;************************************************************************
  4.  
  5.         .z80            ;
  6.         entry _biosin, _biosout, _biossts
  7. saveohl        macro            ;
  8.           push bc        ;
  9.           push de        ;
  10.           push ix        ;
  11.           push iy        ;
  12.         endm            ;
  13.  
  14. restore        macro            ;
  15.           pop iy        ;
  16.           pop ix        ;
  17.           pop de        ;
  18.           pop bc        ;
  19.           pop hl        ;
  20.         endm            ;
  21.  
  22. _biosin:    push hl            ;
  23.         ld l,9            ; CONIN
  24.         jr bioscall        ;
  25.  
  26. _biossts:    push hl            ;
  27.         ld l,6            ; CONST
  28.         jr bioscall        ;
  29.  
  30. _biosout:    push hl            ;
  31.         ld l,12            ; CONOUT
  32.  
  33. bioscall:    saveohl            ;
  34.         ld c,a            ; falls CONOUT
  35.         call _bioscall##    ;
  36.         or a            ; falls CONST
  37.         restore            ;
  38.         ret            ;
  39.  
  40.         end            ;
  41.