Category : Files from Magazines
Archive   : TSR.ZIP
Filename : STAYI8.420

 
Output of file : STAYI8.420 contained in archive : TSR.ZIP
Inline(
{; STAYI8.413}
{;-----------}
{; Routine to Await Outstanding I/O, then post Stayres Active}
$5D { Pop Bp ; Remove Turbo Prologue}
/$5D { Pop Bp}
/$9C { Pushf}
/$2E { CS:}
/$FF/$1E/>BIOS_INT8 { Call dw [>BIOS_INT8] ; Invoke Original INT 8}
/$2E { CS:}
/$F6/$06/>STATUS/ /$74/$39 { Jz NoGo}
/$2E { CS:}
/$F6/$06/>STATUS/ /$75/$31 { Jnz NoGo}
/$2E { CS: ; Have the HotKey}
/$80/$3E/>WAITCOUNT/$00 { Cmp by [ /$75/$22 { Jnz Waiting}
{; If Not already waiting I/O, not already in use, and HotKey received}
{; see if DOS is now interruptable}
{ChkIO:}
/$06 { Push ES ; Save registers}
/$56 { Push Si}
/$50 { Push Ax}
/$2E { CS:}
/$C4/$36/>DOSSTAT1 { LES Si,[>DOSstat1] ; Fetch Dos status 1}
/$26 { ES:}
/$AC { Lodsb ; Fetch Status byte from dos}
/$2E { CS:}
/$C4/$36/>DOSSTAT2 { LES SI,[>DOSstat2] ; Add second status byte}
/$26 { ES:}
/$0A/$04 { Or Al,[SI]}
/$2E { CS:}
/$0A/$06/>INTR_FLAGS { Or Al,[ /$58 { Pop Ax}
/$5E { Pop Si}
/$07 { Pop ES}
/$74/$0E { Jz Go ; Wait for inactivity}
/$2E { CS:}
/$C6/$06/>WAITCOUNT/$10 { Mov by [ {Waiting:}
/$2E { CS:}
/$FE/$0E/>WAITCOUNT { Dec by [ /$74/$D7 { Jz ChkIO}
{NoGo:}
/$CF { IRET}
{GO: ; Enter the User's Turbo Procedure}
/$2E { CS:}
/$FF/$16/>USERPROGRAM { Call [ /$CF { IRET}
{;.......................................................................}
);


  3 Responses to “Category : Files from Magazines
Archive   : TSR.ZIP
Filename : STAYI8.420
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/