home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol202 / vid8.mac < prev    next >
Encoding:
Text File  |  1984-12-19  |  580 b   |  34 lines
  1. ;
  2. ; VLIB Module Name:  VID8
  3. ; Author:  Richard Conn
  4. ; VLIB  Version Number:  1.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    VIDOUT
  8. ; Module External References:
  9. ;    COUT    VIDELAY
  10. ;
  11.     ext    cout,videlay
  12.  
  13. ;
  14. ;  VIDOUT - Output video string pted to by HL
  15. ;    Output also a delay contained in the D register
  16. ;
  17. vidout::
  18.     mov    a,m    ;get next char
  19.     ora    a    ;done if zero
  20.     jz    vid2
  21.     inx    h    ;pt to next
  22.     cpi    '\'    ;literal value?
  23.     jnz    vid1
  24.     mov    a,m    ;get literal char
  25.     inx    h    ;pt to after it
  26. vid1:
  27.     call    cout    ;output char
  28.     jmp    vidout
  29. vid2:
  30.     mov    a,d    ;output delay
  31.     jmp    videlay    ;output delay
  32.  
  33.     end
  34.