ABC Tools

browser utilities

Swedish computers preservation workspace — disk convert, decode, and archive browse

Retro Preservation Workspace

Monitorn

Browse archived Monitorn möten and the ABC80 mailing list, with full-text and text-number search.

← Back to ABC Tools

Meetings · ABC800 · Thread

Kolla antal tecken i buffert

3 posts in thread

Stefan Frank <5452> · Text 4629 · w8 · inlagg

1986-08-29 07:04

Ärende: Kolla antal tecken i buffert

Finns det något bra sätt att kunna kontrollera hur många tecken det ligger i bufferten för disk eller printer? Jag skulle vilja veta hur lågt (hur många tecken) det är kvar innan bufferten skrivs ut på enheten. Går det?
- Benny Löfgren SYSOP <2615> · Text 4640 · w8 · kommentar
  
  1986-08-29 08:41
  
  Ärende: Kolla antal tecken i buffert
  
  Det kanske går att kolla på diskfiler, i så fall använd den här rutinen: (Jag har aldrig testat, men jag tror att det skulle kunna fungera!) DEF FNWhentoflushbuffer(File) LOCAL A,Ptr Ptr=PEEK2(65344) ! Pointer to first logical unit. WHILE Ptr IF PEEK(Ptr+3) AND 1 IF PEEK(Ptr+2)=File RETURN 253-PEEK(Ptr+19) ! Return bytes left in buffer if the LU is open and matches File. Ptr=PEEK2(Ptr) WEND : RETURN -1 ! Could'nt find file, i.e. file is not open! FNEND (Inga garantier, skrivet direkt från hjärtat!)
- Kristoffer Eriksson <5357> · Text 4659 · w8 · kommentar
  
  1986-08-31 05:38
  
  Ärende: Kolla antal tecken i buffert
  
  Utskriften på skrivare och V24 görs så fort det går (dvs när skrivaren inte säger stopp, och alla föregående teken är utskrivna), inte när bufferten blir full.