home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 223_02 / putlist.mac < prev    next >
Text File  |  1989-02-23  |  768b  |  44 lines
  1.  
  2. ;
  3. ;    putlist(c)
  4. ;
  5. ;    F. A. Scacchitti 8/4/84
  6. ;
  7. ;
  8. CBDOS    EQU    5    ;/* bdos entry point */
  9.  
  10. LF    EQU    10
  11. EOL    EQU    13
  12. ;
  13. ; CP/M BDOS CALLS 
  14. ;
  15.  
  16. LSTOUT    EQU    5    ;write character to list device
  17.  
  18. ;
  19. ;    Storage varibles found in ulink() or ulinq()
  20. ;
  21. EXTRN    ZZTEMP
  22. ;
  23. ;
  24. PUTLIST::
  25.     POP    B
  26.     POP    D
  27.     PUSH    D
  28.     PUSH    B
  29.     SHLD    ZZTEMP
  30.     MVI    C,LSTOUT        ; cpm(LSTOUT,c);
  31.     CALL    CBDOS        ; (mod to cbdos(fas))
  32.     LDA    ZZTEMP
  33.     CPI    EOL            ; if(c==EOL)
  34.     JNZ    PUTLS1
  35.     MVI    E,LF            ;    cpm(LSTOUT,LF);
  36.     MVI    C,LSTOUT
  37.     CALL    CBDOS        ; (mod to cbdos(fas))
  38. PUTLS1:    LHLD    ZZTEMP            ; return(c & 0377)
  39.     MVI    H,0
  40.     RET
  41.  
  42.     END
  43.  
  44.