Category : Pascal Source Code
Archive   : SPOOL100.ZIP
Filename : SPOOLER.TPU
 ~ ö  ¬ G  d, ç ³ Ú 6\ ï YSPOOLER -Õ ç YSYSTEM aéç YDOS ñ Õ P
MAX_ENTRY_LENæ ß ? PMAX_SPOOLER_ENTRYæ ß Õ PMIN_DOS_VERSIONæ ß PSPOOLER_INSTALLEDæ ß ÿ PSPOOLER_NOT_INSTALLEDæ ß PSPOOLER_CANNOT_BE_INSTALLEDæ ß P
QUEUE_FULLæ ß Q ENTRYTYPEãÍ ? æ ß @ ß ÓÍ Q QUEUETYPEÍ æ ß ãÍ Í R
SPOOLERRESULT Ö ß S
SPOOLERSTATUS H
Ö ß SSUBMITFILES Ç
ãÍ Í SCANCELFILES G
ãÍ SCANCELALLFILES
S LISTQUEUE Ú
Í ~ ö Â ¬ r Ù £ Â d, ç ³ Rh| ß Ú\
PNULß ÚPMAX_ASCIIZ_LENæ ß @ 6Q
ASCIIZTYPEÎÍ @ æ ß @ ß ¾Í ¬QASCIIZQUEUETYPEÍ æ ß ÎÍ ñÍ ïQSUBMITPACKETTYPE%Í -7 M 7 R LEVELCODE M¶ ß RFILESTRINGADDR ~ ß QCSETtÍ ß RREGS î R HEAPFSAVE ~ ß SINITIALIZEREGISTERS Ï
GS CARRYFLAG û
þ ß S
STR_TO_ASCIIZ 5
ãÍ ÎÍ dQ RSTRTPÀÿãÍ RASCIIZ ÎÍ ?RI¿ÿ¶ ß S
ASCIIZ_TO_STR $ ¢
ÎÍ ãÍ Ñ¬ RASCIIZÀÿrÎÍ RSTRTP rãÍ ¿RI¿ÿr¶ ß SLAST (
¶ ß ß tÍ , : RSþþß ß RCÞþßtÍ RIÝþ߶ ß RPÜþ߶ ß S
SUBMITFILE , z
ãÍ ´ R
FILESTRINGÀÿRãÍ R SUBMITPACKETºÿR%Í RASCIIZzÿRÎÍ 9" Ñ RWILDCSTRINGÀÿ\ãÍ RQUEUE \Í éR
SEARCHINFOÿ\Ìî ûRDIRDÿ\tî R
FILESTRINGÿ\ãÍ RIÿ\¶ ß |i Q RWILDCSTRINGÀÿãÍ RASCIIZÿÎÍ RSSTATUS~ÿÖ ß SHEAPFUNC0 À
Æ ß Ö ß Ê RDIM Ö ß ö RQUEUE ÚÍ RASCIIZüÿÚ Í
Í äRIûÿÚ¶ ß ` ( 8 @ H X 0 P "
d v ( ) = Y ` L p h x p <