Skip to content

Instantly share code, notes, and snippets.

@morganwilde

morganwilde/mk.html

Created March 23, 2014 20:25
Show Gist options
  • Save morganwilde/9729325 to your computer and use it in GitHub Desktop.
Save morganwilde/9729325 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
mk.html
<html>
<body>
<div>
MSDOS
<span style='color:#308080;'>2</span>.
<span style='color:#308080;'>0</span>
<span style='color:#308080;'>0</span>
Function Library for Lattice C
</div>
<div> <!-- What is this?! -->
</div>
<div>
subttl <span style='color:#008c00; '>-</span>
</div>
<div>
<span style='color:#595979; '>;;</span>
</div>
<div>
<span style='color:#595979; '>;;FUNCTION: Sets and returns switch char-</span>
</div>
<!-- Everything below has to look like the stuff above -->
<div><span style='color:#595979; '>;; acter and device availability.
</span></div>
<div><span style='color:#595979; '>;;
</span></div>
<div><span style='color:#595979; '>;;
</span></div>
<div><span style='color:#595979; '>;;CALL:
</span></div>
<div><span style='color:#595979; '>;;
</span></div>
<div><span style='color:#595979; '>;; ret= _charop(al,dl)
</span></div>
<div><span style='color:#595979; '>;; int ret; DL return value,
</span></div>
<div><span style='color:#595979; '>;; int al; charoper function
</span></div>
<div><span style='color:#595979; '>;; int dl; charoper data
</span></div>
<div><span style='color:#595979; '>;;
</span></div>
<div><span style='color:#595979; '>;;RETURN:
</span></div>
<div><span style='color:#595979; '>;; See the DOS docs for details.
</span></div>
<div><span style='color:#595979; '>;;_charop(0,0) returns the ASCII switch char,
</span></div>
<div><span style='color:#595979; '>;;_charop(1,'-') sets the switch to -,
</span></div>
<div><span style='color:#595979; '>;;_charop(2,0) returns device availability,
</span></div>
<div><span style='color:#595979; '>;;_charop(3,i) sets device availability.
</span></div>
<div><span style='color:#595979; '>;;
</span></div>
<div><span style='color:#595979; '>;;
</span></div>
<div><span style='color:#595979; '>;;DESCRIPTION:
</span></div>
<div><span style='color:#595979; '>;;
</span></div>
<div><span style='color:#595979; '>;;EXAMPLE:
</span></div>
<div><span style='color:#595979; '>;;
</span></div>
<div><span style='color:#595979; '>;;
</span></div>
<div><span style='color:#595979; '>;;CAUTIONS:
</span></div>
<div><span style='color:#595979; '>;;
</span></div>
<div><span style='color:#595979; '>;;
</span></div>
<div><span style='color:#595979; '>;;ASSUMPTIONS:
</span></div>
<div><span style='color:#595979; '>;;
</span></div>
<div><span style='color:#595979; '>;;LONG 32 bits (4 bytes)
</span></div>
<div><span style='color:#595979; '>;;INT 16 bits (2 bytes)
</span></div>
<div><span style='color:#595979; '>;;CHAR 8 bits (1 byte)
</span></div>
<div><span style='color:#595979; '>;;
</span></div>
<div>page
</div>
<div>pgroup group prog
</div>
<div>prog segment byte public 'prog'
</div>
<div>assume <span style='color:#200080; '>cs</span><span style='color:#008c00; '>:</span>pgroup<span style='color:#008c00; '>,</span><span style='color:#200080; '>ds</span><span style='color:#008c00; '>:</span>pgroup
</div>
<div><span style='color:#e34adc; '>asda:
</span></div>
<div>public _charop
</div>
<div>
</div>
<div>_charop proc near
</div>
<div> <span style='color:#200080; font-weight:bold; '>push</span> <span style='color:#200080; '>bp</span> <span style='color:#595979; '>;;asdasf
</span></div>
<div> <span style='color:#200080; font-weight:bold; '>mov</span> <span style='color:#200080; '>bp</span><span style='color:#008c00; '>,</span><span style='color:#200080; '>sp</span>
</div>
<div> <span style='color:#200080; font-weight:bold; '>mov</span> <span style='color:#200080; '>al</span><span style='color:#008c00; '>,</span><span style='color:#008c00; '>[</span><span style='color:#200080; '>bp</span><span style='color:#008c00; '>+</span><span style='color:#308080; '>4</span><span style='color:#008c00; '>]</span>
</div>
<div> <span style='color:#200080; font-weight:bold; '>mov</span> <span style='color:#200080; '>dl</span><span style='color:#008c00; '>,</span><span style='color:#008c00; '>[</span><span style='color:#200080; '>bp</span><span style='color:#008c00; '>+</span><span style='color:#308080; '>6</span><span style='color:#008c00; '>]</span>
</div>
<div> <span style='color:#200080; font-weight:bold; '>mov</span> <span style='color:#200080; '>ah</span><span style='color:#008c00; '>,</span><span style='color:#308080; '>5</span><span style='color:#308080; '>5</span>
</div>
<div> <span style='color:#200080; font-weight:bold; '>int</span> <span style='color:#308080; '>3</span><span style='color:#308080; '>3</span>
</div>
<div> <span style='color:#200080; font-weight:bold; '>mov</span> <span style='color:#200080; '>al</span><span style='color:#008c00; '>,</span><span style='color:#200080; '>dl</span>
</div>
<div> <span style='color:#200080; font-weight:bold; '>mov</span> <span style='color:#200080; '>ah</span><span style='color:#008c00; '>,</span><span style='color:#308080; '>0</span>
</div>
<div> <span style='color:#200080; font-weight:bold; '>pop</span> <span style='color:#200080; '>bp</span>
</div>
<div> <span style='color:#200080; font-weight:bold; '>ret</span>
</div>
<div> <span style='color:#200080; font-weight:bold; '>push</span> <span style='color:#200080; '>bp</span>
</div>
<div>_charop endp
</div>
<div>
</div>
<div>prog ends
</div>
<div>
</div>
<div> end
</div>
</body>
</html>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment