home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol263 / vlib1.lbr / VID5.Z80 < prev    next >
Encoding:
Text File  |  1986-03-23  |  896 b   |  41 lines
  1. ;
  2. ; VLIB Module Name:  VID5
  3. ; Author:  Richard Conn
  4. ; VLIB  Version Number:  1.1
  5. ; Module Version Number:  1.1
  6. ;
  7.     public    tinit
  8.  
  9.     ext    vidptr,vidout,vidskp
  10. ;
  11. ; Initialize Terminal
  12. ;    Affect No Registers
  13. ;
  14. tinit:
  15.     push    hl        ;save regs
  16.     push    de
  17.     push    af
  18.     ld    hl,(vidptr)    ;pt to environment
  19.     ld    a,(hl)        ;no terminal?
  20.     cp    ' '+1
  21.     jp    c,done
  22.     ld    de,17h        ;pt to cls string
  23.     add    hl,de
  24.     ld    d,0        ;no delay
  25.     call    vidskp        ;skip over CL string
  26.     call    vidskp        ;skip over CM string
  27.     call    vidskp        ;skip over CE string
  28.     call    vidskp        ;skip over SO string
  29.     call    vidskp        ;skip over SE string
  30.     ld    a,(hl)        ;get first char of TI string
  31.     or    a        ;if no string, error
  32.     jp    z,done
  33.     call    vidout        ;output string with delay
  34. done:
  35.     pop    af        ;done
  36.     pop    de
  37.     pop    hl
  38.     ret
  39.  
  40.     end
  41.