home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol202 / vid5.mac < prev    next >
Encoding:
Text File  |  1984-12-19  |  776 b   |  43 lines
  1. ;
  2. ; VLIB Module Name:  VID5
  3. ; Author:  Richard Conn
  4. ; VLIB  Version Number:  1.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    TINIT
  8. ; Module External References:
  9. ;    VIDPTR    VIDOUT    VIDSKP
  10. ;
  11.     ext    vidptr,vidout,vidskp
  12. ;
  13. ; Initialize Terminal
  14. ;    Affect No Registers
  15. ;
  16. tinit::
  17.     push    h    ;save regs
  18.     push    d
  19.     push    psw
  20.     lhld    vidptr    ;pt to environment
  21.     mov    a,m    ;no terminal?
  22.     cpi    ' '+1
  23.     jc    done
  24.     lxi    d,17h    ;pt to cls string
  25.     dad    d
  26.     mvi    d,0    ;no delay
  27.     call    vidskp    ;skip over CL string
  28.     call    vidskp    ;skip over CM string
  29.     call    vidskp    ;skip over CE string
  30.     call    vidskp    ;skip over SO string
  31.     call    vidskp    ;skip over SE string
  32.     mov    a,m    ;get first char of TI string
  33.     ora    a    ;if no string, error
  34.     jz    done
  35.     call    vidout    ;output string with delay
  36. done:
  37.     pop    psw    ;done
  38.     pop    d
  39.     pop    h
  40.     ret
  41.  
  42.     end
  43.