home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / HISOFTPASCAL2,0-3.DMS / in.adf / Units / AmigaDOS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-20  |  54.8 KB  |  3,302 lines
  1. unit AmigaDOS;
  2.  
  3. INTERFACE
  4. uses Exec, Timer, Utility;
  5.  
  6.  
  7. type
  8.     BPTR = longint;
  9.     BSTR = longint;
  10.     pDateStamp = ^tDateStamp;
  11.     tDateStamp = record
  12.         ds_Days: longint;
  13.         ds_Minute: longint;
  14.         ds_Tick: longint;
  15.         end;
  16.  
  17.     pRootNode = ^tRootNode;
  18.     tRootNode = record
  19.         rn_TaskArray: BPTR;
  20.         rn_ConsoleSegment: BPTR;
  21.         rn_Time: tDateStamp;
  22.         rn_RestartSeg: longint;
  23.         rn_Info: BPTR;
  24.         rn_FileHandlerSegment: BPTR;
  25.         rn_CliList: tMinList;
  26.         rn_BootProc: pMsgPort;
  27.         rn_ShellSegment: BPTR;
  28.         rn_Flags: longint;
  29.         end;
  30.  
  31.     pDosPacket = ^tDosPacket;
  32.     tDosPacket = record
  33.         dp_Link: pMessage;
  34.         dp_Port: pMsgPort;
  35.         case integer of
  36.         0: (
  37.         dp_Action: longint;
  38.         dp_Status: longint;
  39.         dp_Status2: longint;
  40.         dp_BufAddr: longint;
  41.         );
  42.         1: (
  43.         dp_Type: longint;
  44.         dp_Res1: longint;
  45.         dp_Res2: longint;
  46.         dp_Arg1: longint;
  47.         dp_Arg2: longint;
  48.         dp_Arg3: longint;
  49.         dp_Arg4: longint;
  50.         dp_Arg5: longint;
  51.         dp_Arg6: longint;
  52.         dp_Arg7: longint;
  53.         );
  54.         end;
  55.  
  56.     pStandardPacket = ^tStandardPacket;
  57.     tStandardPacket = record
  58.         sp_Msg: tMessage;
  59.         sp_Pkt: tDosPacket;
  60.         end;
  61.  
  62.     pErrorString = ^tErrorString;
  63.     pDosLibrary = ^tDosLibrary;
  64.     tDosLibrary = record
  65.         dl_lib: tLibrary;
  66.         dl_Root: pRootNode;
  67.         dl_GV: pointer;
  68.         dl_A2: longint;
  69.         dl_A5: longint;
  70.         dl_A6: longint;
  71.         dl_Errors: pErrorString;
  72.         dl_TimeReq: ptimerequest;
  73.         dl_UtilityBase: pLibrary;
  74.         dl_IntuitionBase: pLibrary;
  75.         end;
  76.  
  77.     pAssignList = ^tAssignList;
  78.     tAssignList = record
  79.         al_Next: pAssignList;
  80.         al_Lock: BPTR;
  81.         end;
  82.  
  83.     pSegment = ^tSegment;
  84.     tSegment = record
  85.         seg_Next: BPTR;
  86.         seg_UC: longint;
  87.         seg_Seg: BPTR;
  88.         seg_Name: array [0..3] of byte;
  89.         end;
  90.  
  91.     pProcess = ^tProcess;
  92.     tProcess = record
  93.         pr_Task: tTask;
  94.         pr_MsgPort: tMsgPort;
  95.         pr_Pad: integer;
  96.         pr_SegList: BPTR;
  97.         pr_StackSize: longint;
  98.         pr_GlobVec: pointer;
  99.         pr_TaskNum: longint;
  100.         pr_StackBase: BPTR;
  101.         pr_Result2: longint;
  102.         pr_CurrentDir: BPTR;
  103.         pr_CIS: BPTR;
  104.         pr_COS: BPTR;
  105.         pr_ConsoleTask: pointer;
  106.         pr_FileSystemTask: pointer;
  107.         pr_CLI: BPTR;
  108.         pr_ReturnAddr: pointer;
  109.         pr_PktWait: pointer;
  110.         pr_WindowPtr: pointer;
  111.         pr_HomeDir: BPTR;
  112.         pr_Flags: longint;
  113.         pr_ExitCode: pointer;
  114.         pr_ExitData: longint;
  115.         pr_Arguments: pbyte;
  116.         pr_LocalVars: tMinList;
  117.         pr_ShellPrivate: long;
  118.         pr_CES: BPTR;
  119.         end;
  120.  
  121.     pNotifyRequest = ^tNotifyRequest;
  122.     pNotifyMessage = ^tNotifyMessage;
  123.     tNotifyMessage = record
  124.         nm_ExecMessage: tMessage;
  125.         nm_Class: long;
  126.         nm_Code: word;
  127.         nm_NReq: pNotifyRequest;
  128.         nm_DoNotTouch: long;
  129.         nm_DoNotTouch2: long;
  130.         end;
  131.  
  132.     pFileSysStartupMsg = ^tFileSysStartupMsg;
  133.     tFileSysStartupMsg = record
  134.         fssm_Unit: long;
  135.         fssm_Device: BSTR;
  136.         fssm_Environ: BPTR;
  137.         fssm_Flags: long;
  138.         end;
  139.  
  140.     pExAllData = ^tExAllData;
  141.     tExAllData = record
  142.         ed_Next: pExAllData;
  143.         ed_Name: pbyte;
  144.         ed_Type: longint;
  145.         ed_Size: long;
  146.         ed_Prot: long;
  147.         ed_Days: long;
  148.         ed_Mins: long;
  149.         ed_Ticks: long;
  150.         ed_Comment: pbyte;
  151.         end;
  152.  
  153.     pCSource = ^tCSource;
  154.     tCSource = record
  155.         CS_Buffer: pbyte;
  156.         CS_Length: longint;
  157.         CS_CurChr: longint;
  158.         end;
  159.  
  160.     pRDArgs = ^tRDArgs;
  161.     tRDArgs = record
  162.         RDA_Source: tCSource;
  163.         RDA_DAList: longint;
  164.         RDA_Buffer: pbyte;
  165.         RDA_BufSiz: longint;
  166.         RDA_ExtHelp: pbyte;
  167.         RDA_Flags: longint;
  168.         end;
  169.  
  170.     tErrorString = record
  171.         estr_Nums: plongint;
  172.         estr_Strings: pbyte;
  173.         end;
  174.  
  175.     pAChain = ^tAChain;
  176.     pFileInfoBlock = ^tFileInfoBlock;
  177.     tFileInfoBlock = record
  178.         fib_DiskKey: longint;
  179.         fib_DirEntryType: longint;
  180.         fib_FileName: array [0..107] of byte;
  181.         fib_Protection: longint;
  182.         fib_EntryType: longint;
  183.         fib_Size: longint;
  184.         fib_NumBlocks: longint;
  185.         fib_Date: tDateStamp;
  186.         fib_Comment: array [0..79] of byte;
  187.         fib_Reserved: array [0..35] of byte;
  188.         end;
  189.  
  190.     tAChain = record
  191.         an_Child: pAChain;
  192.         an_Parent: pAChain;
  193.         an_Lock: BPTR;
  194.         an_Info: tFileInfoBlock;
  195.         an_Flags: shortint;
  196.         an_String: array [0..0] of byte;
  197.         end;
  198.  
  199.     pFileHandle = ^tFileHandle;
  200.     tFileHandle = record
  201.         fh_Link: pMessage;
  202.         fh_Port: pMsgPort;
  203.         fh_Type: pMsgPort;
  204.         fh_Buf: longint;
  205.         fh_Pos: longint;
  206.         fh_End: longint;
  207.         fh_Func1: longint;
  208.         fh_Func2: longint;
  209.         fh_Func3: longint;
  210.         fh_Arg1: longint;
  211.         fh_Arg2: longint;
  212.         end;
  213.  
  214.     tNotifyRequest = record
  215.         nr_Name: pbyte;
  216.         nr_FullName: pbyte;
  217.         nr_UserData: long;
  218.         nr_Flags: long;
  219.         case integer of
  220.         0: (
  221.         nr_Msg: record
  222.         nr_Port: pMsgPort;
  223.         end;
  224.         );
  225.         1: (
  226.         nr_Signal: record
  227.         nr_Task: pTask;
  228.         nr_SignalNum: byte;
  229.         nr_pad: array [0..2] of byte;
  230.         end;
  231.         nr_Reserved: array [0..3] of long;
  232.         nr_MsgCount: long;
  233.         nr_Handler: pMsgPort;
  234.         );
  235.         end;
  236.  
  237.     pInfoData = ^tInfoData;
  238.     tInfoData = record
  239.         id_NumSoftErrors: longint;
  240.         id_UnitNumber: longint;
  241.         id_DiskState: longint;
  242.         id_NumBlocks: longint;
  243.         id_NumBlocksUsed: longint;
  244.         id_BytesPerBlock: longint;
  245.         id_DiskType: longint;
  246.         id_VolumeNode: BPTR;
  247.         id_InUse: longint;
  248.         end;
  249.  
  250.     pFileLock = ^tFileLock;
  251.     tFileLock = record
  252.         fl_Link: BPTR;
  253.         fl_Key: longint;
  254.         fl_Access: longint;
  255.         fl_Task: pMsgPort;
  256.         fl_Volume: BPTR;
  257.         end;
  258.  
  259.     pDeviceNode = ^tDeviceNode;
  260.     tDeviceNode = record
  261.         dn_Next: BPTR;
  262.         dn_Type: long;
  263.         dn_Task: pMsgPort;
  264.         dn_Lock: BPTR;
  265.         dn_Handler: BSTR;
  266.         dn_StackSize: long;
  267.         dn_Priority: longint;
  268.         dn_Startup: BPTR;
  269.         dn_SegList: BPTR;
  270.         dn_GlobalVec: BPTR;
  271.         dn_Name: BSTR;
  272.         end;
  273.  
  274.     pDateTime = ^tDateTime;
  275.     tDateTime = record
  276.         dat_Stamp: tDateStamp;
  277.         dat_Format: byte;
  278.         dat_Flags: byte;
  279.         dat_StrDay: pbyte;
  280.         dat_StrDate: pbyte;
  281.         dat_StrTime: pbyte;
  282.         end;
  283.  
  284.     pDevInfo = ^tDevInfo;
  285.     tDevInfo = record
  286.         dvi_Next: BPTR;
  287.         dvi_Type: longint;
  288.         dvi_Task: pointer;
  289.         dvi_Lock: BPTR;
  290.         dvi_Handler: BSTR;
  291.         dvi_StackSize: longint;
  292.         dvi_Priority: longint;
  293.         dvi_Startup: longint;
  294.         dvi_SegList: BPTR;
  295.         dvi_GlobVec: BPTR;
  296.         dvi_Name: BSTR;
  297.         end;
  298.  
  299.     pLocalVar = ^tLocalVar;
  300.     tLocalVar = record
  301.         lv_Node: tNode;
  302.         lv_Flags: word;
  303.         lv_Value: pbyte;
  304.         lv_Len: long;
  305.         end;
  306.  
  307.     pDosInfo = ^tDosInfo;
  308.     tDosInfo = record
  309.         case integer of
  310.         0: (
  311.         di_ResList: BPTR;
  312.         );
  313.         1: (
  314.         di_McName: BPTR;
  315.         di_DevInfo: BPTR;
  316.         di_Devices: BPTR;
  317.         di_Handlers: BPTR;
  318.         di_NetHand: pointer;
  319.         di_DevLock: tSignalSemaphore;
  320.         di_EntryLock: tSignalSemaphore;
  321.         di_DeleteLock: tSignalSemaphore;
  322.         );
  323.         end;
  324.  
  325.     pDosEnvec = ^tDosEnvec;
  326.     tDosEnvec = record
  327.         de_TableSize: long;
  328.         de_SizeBlock: long;
  329.         de_SecOrg: long;
  330.         de_Surfaces: long;
  331.         de_SectorPerBlock: long;
  332.         de_BlocksPerTrack: long;
  333.         de_Reserved: long;
  334.         de_PreAlloc: long;
  335.         de_Interleave: long;
  336.         de_LowCyl: long;
  337.         de_HighCyl: long;
  338.         de_NumBuffers: long;
  339.         de_BufMemType: long;
  340.         de_MaxTransfer: long;
  341.         de_Mask: long;
  342.         de_BootPri: longint;
  343.         de_DosType: long;
  344.         de_Baud: long;
  345.         de_Control: long;
  346.         de_BootBlocks: long;
  347.         end;
  348.  
  349.     pDosList = ^tDosList;
  350.     pDevProc = ^tDevProc;
  351.     tDevProc = record
  352.         dvp_Port: pMsgPort;
  353.         dvp_Lock: BPTR;
  354.         dvp_Flags: long;
  355.         dvp_DevNode: pDosList;
  356.         end;
  357.  
  358.     ppMsgPort = ^pMsgPort;
  359.     pCliProcList = ^tCliProcList;
  360.     tCliProcList = record
  361.         cpl_Node: tMinNode;
  362.         cpl_First: longint;
  363.         cpl_Array: ppMsgPort;
  364.         end;
  365.  
  366.     pCommandLineInterface = ^tCommandLineInterface;
  367.     tCommandLineInterface = record
  368.         cli_Result2: longint;
  369.         cli_SetName: BSTR;
  370.         cli_CommandDir: BPTR;
  371.         cli_ReturnCode: longint;
  372.         cli_CommandName: BSTR;
  373.         cli_FailLevel: longint;
  374.         cli_Prompt: BSTR;
  375.         cli_StandardInput: BPTR;
  376.         cli_CurrentInput: BPTR;
  377.         cli_CommandFile: BSTR;
  378.         cli_Interactive: longint;
  379.         cli_Background: longint;
  380.         cli_CurrentOutput: BPTR;
  381.         cli_DefaultStack: longint;
  382.         cli_StandardOutput: BPTR;
  383.         cli_Module: BPTR;
  384.         end;
  385.  
  386.     pAnchorPath = ^tAnchorPath;
  387.     tAnchorPath = record
  388.         case integer of
  389.         0: (
  390.         ap_First: pAChain;
  391.         ap_Last: pAChain;
  392.         );
  393.         1: (
  394.         ap_Base: pAChain;
  395.         ap_Current: pAChain;
  396.         ap_BreakBits: longint;
  397.         ap_FoundBreak: longint;
  398.         ap_Flags: shortint;
  399.         ap_Reserved: shortint;
  400.         ap_Strlen: integer;
  401.         ap_Info: tFileInfoBlock;
  402.         ap_Buf: array [0..0] of byte;
  403.         );
  404.         end;
  405.  
  406.     pRecordLock = ^tRecordLock;
  407.     tRecordLock = record
  408.         rec_FH: BPTR;
  409.         rec_Offset: long;
  410.         rec_Length: long;
  411.         rec_Mode: long;
  412.         end;
  413.  
  414.     pDeviceList = ^tDeviceList;
  415.     tDeviceList = record
  416.         dl_Next: BPTR;
  417.         dl_Type: longint;
  418.         dl_Task: pMsgPort;
  419.         dl_Lock: BPTR;
  420.         dl_VolumeDate: tDateStamp;
  421.         dl_LockList: BPTR;
  422.         dl_DiskType: longint;
  423.         dl_unused: longint;
  424.         dl_Name: BSTR;
  425.         end;
  426.  
  427.     pExAllControl = ^tExAllControl;
  428.     tExAllControl = record
  429.         eac_Entries: long;
  430.         eac_LastKey: long;
  431.         eac_MatchString: pbyte;
  432.         eac_MatchFunc: pHook;
  433.         end;
  434.  
  435.     tDosList = record
  436.         dol_Next: BPTR;
  437.         dol_Type: longint;
  438.         dol_Task: pMsgPort;
  439.         dol_Lock: BPTR;
  440.         case integer of
  441.         0: (
  442.         dol_handler: record
  443.         dol_Handler: BSTR;
  444.         dol_StackSize: longint;
  445.         dol_Priority: longint;
  446.         dol_Startup: long;
  447.         dol_SegList: BPTR;
  448.         dol_GlobVec: BPTR;
  449.         end;
  450.         );
  451.         1: (
  452.         dol_volume: record
  453.         dol_VolumeDate: tDateStamp;
  454.         dol_LockList: BPTR;
  455.         dol_DiskType: longint;
  456.         end;
  457.         );
  458.         2: (
  459.         dol_assign: record
  460.         dol_AssignName: pbyte;
  461.         dol_List: pAssignList;
  462.         end;
  463.         dol_Name: BSTR;
  464.         );
  465.         end;
  466.  
  467.  
  468.  
  469. const
  470.     ACTION_LOCATE_OBJECT = 8;
  471.     ACTION_RENAME_OBJECT = $11;
  472.     RNB_PRIVATE1 = 1;
  473.     LDB_ENTRY = 5;
  474.     MODE_NEWFILE = $3EE;
  475.     FIBF_DELETE = 1;
  476.     NP_Output = $800003ED;
  477.     DE_SIZEBLOCK = 1;
  478.     NRF_NOTIFY_INITIAL = $10;
  479.     DDF_Single = $10;
  480.     APB_FollowHLinks = 7;
  481.     P_ANY = $80;
  482.     ACTION_SET_PROTECT = $15;
  483.     CMD_INTERNAL = $FFFFFFFE;
  484.     SIGBREAKB_CTRL_C = $C;
  485.     RNF_PRIVATE1 = 2;
  486.     LDF_ENTRY = $20;
  487.     ACCESS_READ = $FFFFFFFE;
  488.     ID_KICKSTART_DISK = $FB49434B;
  489.     SIGBREAKB_CTRL_D = $D;
  490.     DDB_PatternBit = 0;
  491.     PRB_FREEARGS = 5;
  492.     RDAB_NOPROMPT = 2;
  493.     ERROR_LINE_TOO_LONG = $78;
  494.     ERROR_OBJECT_TOO_LARGE = $CF;
  495.     SIGBREAKB_CTRL_E = $E;
  496.     CHANGE_LOCK = 0;
  497.     LINK_SOFT = 1;
  498.     P_REPBEG = $89;
  499.     DLT_DIRECTORY = 1;
  500.     SIGBREAKB_CTRL_F = $F;
  501.     DTB_SUBST = 0;
  502.     APF_FollowHLinks = $80;
  503.     EXT_REF8 = $84;
  504.     ERROR_NO_FREE_STORE = $67;
  505.     ERROR_DIR_NOT_FOUND = $CC;
  506.     SIGBREAKF_CTRL_C = $1000;
  507.     NP_Priority = $800003F5;
  508.     SIGBREAKF_CTRL_D = $2000;
  509.     DDF_PatternBit = 1;
  510.     PRF_FREEARGS = $20;
  511.     RDAF_NOPROMPT = 4;
  512.     ID_MSDOS_DISK = $FD534400;
  513.     SIGBREAKF_CTRL_E = $4000;
  514.     APB_NOMEMERR = 4;
  515.     DDB_Completed = 2;
  516.     ACTION_READ_LINK = $400;
  517.     NRB_WAIT_REPLY = 3;
  518.     ERROR_BAD_STREAM_NAME = $CE;
  519.     SIGBREAKF_CTRL_F = $8000;
  520.     DTF_SUBST = 1;
  521.     ACTION_GET_BLOCK = 2;
  522.     ACTION_FREE_LOCK = $F;
  523.     DLT_LATE = 3;
  524.     DE_BAUD = $11;
  525.     MAX_MULTIARGS = $80;
  526.     P_NOT = $85;
  527.     ACTION_MAKE_LINK = $3FD;
  528.     LDB_DEVICES = 2;
  529.     ID_NO_DISK_PRESENT = $FFFFFFFF;
  530.     ERROR_UNMATCHED_QUOTES = $77;
  531.     ED_DATE = 5;
  532.     NR_HANDLER_FLAGS = $FFFF0000;
  533.     LV_ALIAS = 1;
  534.     DOSNAME = 'dos.library';
  535.     ERROR_INVALID_RESIDENT_LIBRARY = $7A;
  536.     APF_NOMEMERR = $10;
  537.     DDF_Completed = 4;
  538.     ACTION_FINDOUTPUT = $3EE;
  539.     HUNK_END = $3F2;
  540.     HUNK_LIB = $3FA;
  541.     NRF_WAIT_REPLY = 8;
  542.     ACCESS_WRITE = $FFFFFFFF;
  543.     P_REPEND = $8A;
  544.     ACTION_SAME_LOCK = $28;
  545.     ERROR_TOO_MANY_ARGS = $76;
  546.     LDF_DEVICES = 4;
  547.     ED_NAME = 1;
  548.     BYTESPERLONG = 4;
  549.     ITEM_UNQUOTED = 1;
  550.     ACTION_READ = $52;
  551.     ACTION_TIMER = $1E;
  552.     RUN_SYSTEM = $FFFFFFFE;
  553.     OFFSET_BEGINING = $FFFFFFFF;
  554.     ERROR_LOCK_TIMEOUT = $F2;
  555.     ACTION_EVENT = 6;
  556.     ACTION_FLUSH = $1B;
  557.     ACTION_FINDINPUT = $3ED;
  558.     HUNK_UNIT = $3E7;
  559.     ERROR_OBJECT_WRONG_TYPE = $D4;
  560.     P_SINGLE = $81;
  561.     ACTION_WAIT_CHAR = $14;
  562.     NRB_SEND_MESSAGE = 0;
  563.     ID_INTER_FFS_DISK = $44F5303;
  564.     PRB_FREECLI = 2;
  565.     LDF_ALL = $1C;
  566.     REPORT_STREAM = 0;
  567.     DE_NUMHEADS = 3;
  568.     ERROR_OBJECT_NOT_FOUND = $CD;
  569.     RETURN_OK = 0;
  570.     HUNK_HEADER = $3F3;
  571.     SHARED_LOCK = $FFFFFFFE;
  572.     ACTION_DISK_INFO = $19;
  573.     ADO_Dummy = $800007D0;
  574.     NRF_SEND_MESSAGE = 1;
  575.     ERROR_REQUIRED_ARG_MISSING = $74;
  576.     ERROR_UNLOCK_ERROR = $F3;
  577.     ITEM_NOTHING = 0;
  578.     ACTION_PARENT_FH = $407;
  579.     NP_HomeDir = $800003F8;
  580.     ADO_FH_Mode = $800007D1;
  581.     ADO_PromptLen = $800007D5;
  582.     P_NOTEND = $86;
  583.     PRF_FREECLI = 4;
  584.     DE_BLKSPERTRACK = 5;
  585.     HUNK_RELOC8 = $3EE;
  586.     P_ORSTART = $82;
  587.     ACTION_WRITE = $57;
  588.     DE_MASK = $E;
  589.     ID_INTER_DOS_DISK = $44F5302;
  590.     ERROR_BAD_NUMBER = $73;
  591.     NP_Cli = $800003FA;
  592.     NP_CommandName = $800003FC;
  593.     ERROR_NOT_IMPLEMENTED = $EC;
  594.     DOS_FIB = 2;
  595.     EXAMINE_BIT = 2;
  596.     ACTION_SEEK = $3F0;
  597.     DE_RESERVEDBLKS = 6;
  598.     ERROR_NO_DISK = $E2;
  599.     RNB_WILDSTAR = $18;
  600.     REPORT_INSERT = 4;
  601.     GVB_DONT_NULL_TERM = $B;
  602.     FIBB_SCRIPT = 6;
  603.     ERROR_FILE_NOT_OBJECT = $79;
  604.     DOS_FILEHANDLE = 0;
  605.     APB_DIDDIR = 3;
  606.     HUNK_BSS = $3EB;
  607.     NP_ExitData = $80000401;
  608.     DOS_EXALLCONTROL = 1;
  609.     NP_Name = $800003F4;
  610.     NP_ExitCode = $80000400;
  611.     BITSPERLONG = $20;
  612.     ACTION_INFO = $1A;
  613.     LDB_ASSIGNS = 4;
  614.     LDB_DELETE = 6;
  615.     REPORT_VOLUME = 3;
  616.     NOTIFY_CLASS = $40000000;
  617.     RNF_WILDSTAR = $1000000;
  618.     NP_Synchronous = $800003FF;
  619.     GVF_DONT_NULL_TERM = $800;
  620.     TICKS_PER_SECOND = $32;
  621.     FIBF_SCRIPT = $40;
  622.     ERROR_DISK_WRITE_PROTECTED = $D6;
  623.     ERROR_READ_PROTECTED = $E0;
  624.     APF_DIDDIR = 8;
  625.     DOS_CLI = 4;
  626.     BITSPERBYTE = 8;
  627.     ERROR_TASK_TABLE_FULL = $69;
  628.     LDF_ASSIGNS = $10;
  629.     LDF_DELETE = $40;
  630.     ERROR_BUFFER_OVERFLOW = $12F;
  631.     ERROR_BREAK = $130;
  632.     ACTION_CHANGE_MODE = $404;
  633.     EXT_DEF = 1;
  634.     ERROR_IS_SOFT_LINK = $E9;
  635.     ACTION_CURRENT_VOLUME = 7;
  636.     EXT_DEXT32 = $85;
  637.     ID_UNREADABLE_DISK = $2414400;
  638.     DVPB_ASSIGN = 1;
  639.     HUNK_EXT = $3EF;
  640.     ID_NOT_REALLY_DOS = $FE444F53;
  641.     LOCK_SAME_VOLUME = 1;
  642.     PRB_FREESEGLIST = 0;
  643.     PRB_FREECURRDIR = 1;
  644.     EXT_DEXT16 = $86;
  645.     APB_ITSWILD = 1;
  646.     HUNK_OVERLAY = $3F5;
  647.     ED_SIZE = 3;
  648.     NOTIFY_CODE = $1234;
  649.     P_CLASS = $88;
  650.     ACTION_DIE = 5;
  651.     ACTION_DISK_CHANGE = $21;
  652.     DVPF_ASSIGN = 2;
  653.     ST_LINKFILE = $FFFFFFFC;
  654.     ST_PIPEFILE = $FFFFFFFB;
  655.     NP_Path = $800003FB;
  656.     DOSTRUE = $FFFFFFFF;
  657.     ID_FFS_DISK = $44F5301;
  658.     ERROR_WRITE_PROTECTED = $DF;
  659.     LOCK_DIFFERENT = $FFFFFFFF;
  660.     PRF_FREESEGLIST = 1;
  661.     PRF_FREECURRDIR = 2;
  662.     ACTION_DISK_TYPE = $20;
  663.     ST_FILE = $FFFFFFFD;
  664.     EXT_SYMB = 0;
  665.     EXT_ABS = 2;
  666.     REC_SHARED = 2;
  667.     ERROR_ACTION_NOT_KNOWN = $D1;
  668.     ERROR_COMMENT_TOO_BIG = $DC;
  669.     APF_ITSWILD = 2;
  670.     P_OREND = $84;
  671.     COMPLEX_BIT = 1;
  672.     NP_NotifyOnDeath = $800003FE;
  673.     ACTION_SET_DATE = $22;
  674.     DVPB_UNLOCK = 0;
  675.     ABORT_DISK_ERROR = $128;
  676.     FIBB_READ = 3;
  677.     ERROR_OBJECT_LINKED = $EA;
  678.     ERROR_NOT_EXECUTABLE = $131;
  679.     DLT_DEVICE = 0;
  680.     P_ORNEXT = $83;
  681.     ACTION_END = $3EF;
  682.     HUNK_DREL8 = $3F9;
  683.     ED_TYPE = 2;
  684.     NRB_SEND_SIGNAL = 1;
  685.     ERROR_LOCK_COLLISION = $F1;
  686.     APB_DOWILD = 0;
  687.     ACTION_INHIBIT = $1F;
  688.     ACTION_IS_FILESYSTEM = $403;
  689.     RETURN_FAIL = $14;
  690.     DVPF_UNLOCK = 1;
  691.     FIBF_READ = 8;
  692.     ID_DOS_DISK = $44F5300;
  693.     LDB_VOLUMES = 3;
  694.     EXT_REF32 = $81;
  695.     DE_UPPERCYL = $A;
  696.     CHANGE_FH = 1;
  697.     NRF_SEND_SIGNAL = 2;
  698.     APF_DOWILD = 1;
  699.     DLT_PRIVATE = $FFFFFFFF;
  700.     EXT_REF16 = $83;
  701.     REC_EXCLUSIVE_IMMED = 1;
  702.     ERROR_DISK_NOT_VALIDATED = $D5;
  703.     ACTION_SET_FILE_SIZE = $3FE;
  704.     DLT_NONBINDING = 4;
  705.     HUNK_BREAK = $3F6;
  706.     SYS_Asynch = $80000023;
  707.     NP_StackSize = $800003F3;
  708.     RDAB_STDIN = 0;
  709.     ITEM_QUOTED = 2;
  710.     ACTION_REMOVE_NOTIFY = $1002;
  711.     LDF_VOLUMES = 8;
  712.     ED_COMMENT = 6;
  713.     MODE_READWRITE = $3EC;
  714.     ERROR_INVALID_COMPONENT_NAME = $D2;
  715.     DDB_AllBit = 3;
  716.     HUNK_DEBUG = $3F1;
  717.     SYS_UserShell = $80000024;
  718.     NP_FreeSeglist = $800003EA;
  719.     GVB_GLOBAL_ONLY = 8;
  720.     OFFSET_END = 1;
  721.     FIBB_WRITE = 2;
  722.     FORMAT_CDN = 3;
  723.     MININT = $80000000;
  724.     ACTION_EXAMINE_ALL = $409;
  725.     DE_PREFAC = 7;
  726.     RDAF_STDIN = 1;
  727.     RETURN_ERROR = $A;
  728.     ACTION_EXAMINE_NEXT = $18;
  729.     ACTION_FREE_RECORD = $7D9;
  730.     REPORT_LOCK = 2;
  731.     MAXINT = $7FFFFFFF;
  732.     ERROR_NO_DEFAULT_DIR = $C9;
  733.     DDF_AllBit = 8;
  734.     ACTION_NIL = 0;
  735.     ACTION_WRITE_PROTECT = $3FF;
  736.     RUN_SYSTEM_ASYNCH = $FFFFFFFD;
  737.     ADO_CommFileLen = $800007D4;
  738.     GVF_GLOBAL_ONLY = $100;
  739.     FIBF_WRITE = 4;
  740.     ERROR_SEEK_ERROR = $DB;
  741.     ACTION_RENAME_DISK = 9;
  742.     ADO_CommNameLen = $800007D3;
  743.     APB_DirChanged = 6;
  744.     ACTION_COPY_DIR = $13;
  745.     RUN_EXECUTE = $FFFFFFFF;
  746.     ACTION_SCREEN_MODE = $3E2;
  747.     ACTION_FH_FROM_LOCK = $402;
  748.     ERROR_NO_MORE_ENTRIES = $E8;
  749.     EXT_RES = 3;
  750.     NP_CloseError = $800003F1;
  751.     DE_MAXTRANSFER = $D;
  752.     ID_VALIDATING = $51;
  753.     SYS_Dummy = $80000020;
  754.     NP_ConsoleTask = $800003F6;
  755.     NP_CopyVars = $800003F9;
  756.     ITEM_EQUAL = $FFFFFFFE;
  757.     APF_DirChanged = $40;
  758.     ACTION_LOCK_RECORD = $7D8;
  759.     CMD_DISABLED = $FFFFFC19;
  760.     HUNK_SYMBOL = $3F0;
  761.     NP_CurrentDir = $800003F2;
  762.     NP_Error = $800003F0;
  763.     DE_BOOTPRI = $F;
  764.     NRB_MAGIC = $1F;
  765.     LVB_IGNORE = 7;
  766.     DOS_RDARGS = 5;
  767.     ACTION_FINDUPDATE = $3EC;
  768.     APB_DODIR = 2;
  769.     REPORT_TASK = 1;
  770.     SYS_Input = $80000021;
  771.     NP_Dummy = $800003E8;
  772.     DE_CONTROL = $12;
  773.     ACTION_MORE_CACHE = $12;
  774.     HUNK_RELOC32 = $3EC;
  775.     NP_CloseInput = $800003EE;
  776.     ST_SOFTLINK = 3;
  777.     NRF_MAGIC = $80000000;
  778.     LVF_IGNORE = $80;
  779.     ERROR_RENAME_ACROSS_DEVICES = $D7;
  780.     ERROR_TOO_MANY_LEVELS = $D9;
  781.     HUNK_RELOC16 = $3ED;
  782.     ADO_DirLen = $800007D2;
  783.     DE_SECSPERBLK = 4;
  784.     ERROR_BAD_TEMPLATE = $72;
  785.     ERROR_DEVICE_NOT_MOUNTED = $DA;
  786.     APF_DODIR = 4;
  787.     HUNK_INDEX = $3FB;
  788.     NP_Input = $800003EC;
  789.     DE_INTERLEAVE = 8;
  790.     FORMAT_DOS = 0;
  791.     FORMAT_MAX = 3;
  792.     SYS_CustomShell = $80000025;
  793.     NP_Seglist = $800003E9;
  794.     FIBB_ARCHIVE = 4;
  795.     NP_Entry = $800003EB;
  796.     DE_SECORG = 2;
  797.     DE_DOSTYPE = $10;
  798.     DE_BOOTBLOCKS = $13;
  799.     EXCLUSIVE_LOCK = $FFFFFFFF;
  800.     LINK_HARD = 0;
  801.     FORMAT_USA = 2;
  802.     APB_DODOT = 5;
  803.     ERROR_DISK_FULL = $DD;
  804.     RETURN_WARN = 5;
  805.     LOCK_SAME_HANDLER = 1;
  806.     ACTION_EXAMINE_OBJECT = $17;
  807.     FIBB_PURE = 5;
  808.     FIBF_ARCHIVE = $10;
  809.     LOCK_SAME = 0;
  810.     FORMAT_INT = 1;
  811.     ST_LINKDIR = 4;
  812.     DTB_FUTURE = 1;
  813.     ST_ROOT = 1;
  814.     HUNK_DATA = $3EA;
  815.     ID_VALIDATED = $52;
  816.     APF_DODOT = $20;
  817.     DDB_ExaminedBit = 1;
  818.     HUNK_CODE = $3E9;
  819.     ERROR_KEY_NEEDS_ARG = $75;
  820.     ERROR_BAD_HUNK = $EB;
  821.     P_NOTCLASS = $87;
  822.     PRB_CLOSEOUTPUT = 4;
  823.     ACTION_CREATE_DIR = $16;
  824.     FIBF_PURE = $20;
  825.     ERROR_RECORD_NOT_LOCKED = $F0;
  826.     ACTION_SET_MAP = 4;
  827.     LDB_READ = 0;
  828.     NP_WindowPtr = $800003F7;
  829.     ERROR_DELETE_PROTECTED = $DE;
  830.     ITEM_ERROR = $FFFFFFFF;
  831.     DTF_FUTURE = 2;
  832.     ACTION_EXAMINE_FH = $40A;
  833.     CMD_SYSTEM = $FFFFFFFF;
  834.     DDF_ExaminedBit = 2;
  835.     EXT_COMMON = $82;
  836.     LV_VAR = 0;
  837.     OFFSET_CURRENT = 0;
  838.     ERROR_INVALID_LOCK = $D3;
  839.     PRB_CLOSEINPUT = 3;
  840.     PRF_CLOSEOUTPUT = $10;
  841.     ACTION_READ_RETURN = $3E9;
  842.     ABORT_BUSY = $120;
  843.     DOSFALSE = 0;
  844.     DLT_VOLUME = 2;
  845.     LDF_READ = 1;
  846.     HUNK_NAME = $3E8;
  847.     DE_NUMBUFFERS = $B;
  848.     RDAB_NOALLOC = 1;
  849.     GVB_LOCAL_ONLY = 9;
  850.     ERROR_OBJECT_EXISTS = $CB;
  851.     ACTION_FORMAT = $3FC;
  852.     DE_MEMBUFTYPE = $C;
  853.     DE_BUFMEMTYPE = $C;
  854.     GVB_BINARY_VAR = $A;
  855.     ACTION_SET_COMMENT = $1C;
  856.     ACTION_PARENT = $1D;
  857.     ACTION_CHANGE_SIGNAL = $3E3;
  858.     MODE_OLDFILE = $3ED;
  859.     PRF_CLOSEINPUT = 8;
  860.     ERROR_OBJECT_IN_USE = $CA;
  861.     DOS_STDPKT = 3;
  862.     NP_Arguments = $800003FD;
  863.     RDAF_NOALLOC = 2;
  864.     GVF_LOCAL_ONLY = $200;
  865.     FIBB_EXECUTE = 1;
  866.     ERROR_DIRECTORY_NOT_EMPTY = $D8;
  867.     GVF_BINARY_VAR = $400;
  868.     ERROR_NOT_A_DOS_DISK = $E1;
  869.     ACTION_STARTUP = 0;
  870.     LDB_WRITE = 1;
  871.     HUNK_DREL32 = $3F7;
  872.     ID_WRITE_PROTECTED = $50;
  873.     EXT_DEXT8 = $87;
  874.     OFFSET_BEGINNING = $FFFFFFFF;
  875.     ACTION_DELETE_OBJECT = $10;
  876.     HUNK_DREL16 = $3F8;
  877.     FIBF_EXECUTE = 2;
  878.     LEN_DATSTRING = $10;
  879.     P_STOP = $8B;
  880.     ACTION_WRITE_RETURN = $3EA;
  881.     ST_USERDIR = 2;
  882.     MAX_TEMPLATE_ITEMS = $64;
  883.     FIBB_DELETE = 0;
  884.     ACTION_COPY_DIR_FH = $406;
  885.     ACTION_ADD_NOTIFY = $1001;
  886.     LDF_WRITE = 2;
  887.     SYS_Output = $80000022;
  888.     ED_PROTECTION = 4;
  889.     NRB_NOTIFY_INITIAL = 4;
  890.     FAULT_MAX = $52;
  891.     DDB_Single = 4;
  892.     NP_CloseOutput = $800003EF;
  893.     DE_TABLESIZE = 0;
  894.     ACTION_SERIALIZE_DISK = $1068;
  895.     DE_LOWCYL = 9;
  896.     REC_EXCLUSIVE = 0;
  897.     REC_SHARED_IMMED = 3;
  898.  
  899.  
  900. function Open
  901.         (name: STRPTR;
  902.         accessMode: longint): BPTR;
  903.  
  904. function Close_ (file_: BPTR): boolean;
  905. function Read_
  906.         (file_: BPTR;
  907.         buffer: pointer;
  908.         length: longint): longint;
  909.  
  910. function Write_
  911.         (file_: BPTR;
  912.         buffer: pointer;
  913.         length: longint): longint;
  914.  
  915. function Input_: BPTR;
  916. function Output_: BPTR;
  917. function Seek_
  918.         (file_: BPTR;
  919.         position: longint;
  920.         offset: longint): longint;
  921.  
  922. function DeleteFile (name: STRPTR): boolean;
  923. function Rename_
  924.         (oldName: STRPTR;
  925.         newName: STRPTR): boolean;
  926.  
  927. function Lock
  928.         (name: STRPTR;
  929.         type_: longint): BPTR;
  930.  
  931. procedure UnLock (lock: BPTR);
  932. function DupLock (lock: BPTR): BPTR;
  933. function Examine
  934.         (lock: BPTR;
  935.         fileInfoBlock: pFileInfoBlock): boolean;
  936.  
  937. function ExNext
  938.         (lock: BPTR;
  939.         fileInfoBlock: pFileInfoBlock): boolean;
  940.  
  941. function Info
  942.         (lock: BPTR;
  943.         parameterBlock: pInfoData): boolean;
  944.  
  945. function CreateDir (name: STRPTR): BPTR;
  946. function CurrentDir (lock: BPTR): BPTR;
  947. function IoErr: longint;
  948. function CreateProc
  949.         (name: STRPTR;
  950.         pri: longint;
  951.         segList: BPTR;
  952.         stackSize: longint): pMsgPort;
  953.  
  954. procedure Exit_ (returnCode: longint);
  955. function LoadSeg (name: STRPTR): BPTR;
  956. function UnLoadSeg (seglist: BPTR): boolean;
  957. function DeviceProc (name: STRPTR): pMsgPort;
  958. function SetComment
  959.         (name: STRPTR;
  960.         comment: STRPTR): boolean;
  961.  
  962. function SetProtection
  963.         (name: STRPTR;
  964.         protect: longint): boolean;
  965.  
  966. function DateStamp (date: pDateStamp): pDateStamp;
  967. procedure Delay_ (timeout: long);
  968. function WaitForChar
  969.         (file_: BPTR;
  970.         timeout: longint): boolean;
  971.  
  972. function ParentDir (lock: BPTR): BPTR;
  973. function IsInteractive (file_: BPTR): boolean;
  974. function Execute
  975.         (string_: STRPTR;
  976.         file_: BPTR;
  977.         file2: BPTR): boolean;
  978.  
  979. function AllocDosObject
  980.         (type_: long;
  981.         tags: pTagItem): pointer;
  982.  
  983. procedure FreeDosObject
  984.         (type_: long;
  985.         ptr: pointer);
  986.  
  987. function DoPkt
  988.         (port: pMsgPort;
  989.         action: longint;
  990.         arg1: longint;
  991.         arg2: longint;
  992.         arg3: longint;
  993.         arg4: longint;
  994.         arg5: longint): longint;
  995.  
  996. procedure SendPkt
  997.         (dp: pDosPacket;
  998.         port: pMsgPort;
  999.         replyport: pMsgPort);
  1000.  
  1001. function WaitPkt: pDosPacket;
  1002. procedure ReplyPkt
  1003.         (dp: pDosPacket;
  1004.         res1: longint;
  1005.         res2: longint);
  1006.  
  1007. procedure AbortPkt
  1008.         (port: pMsgPort;
  1009.         pkt: pDosPacket);
  1010.  
  1011. function LockRecord
  1012.         (fh: BPTR;
  1013.         offset: long;
  1014.         length: long;
  1015.         mode: long;
  1016.         timeout: long): long;
  1017.  
  1018. function LockRecords
  1019.         (recArray: pRecordLock;
  1020.         timeout: long): boolean;
  1021.  
  1022. function UnLockRecord
  1023.         (fh: BPTR;
  1024.         offset: long;
  1025.         length: long): boolean;
  1026.  
  1027. function UnLockRecords (recArray: pRecordLock): boolean;
  1028. function SelectInput (fh: BPTR): BPTR;
  1029. function SelectOutput (fh: BPTR): BPTR;
  1030. function FGetC (fh: BPTR): longint;
  1031. function FPutC
  1032.         (fh: BPTR;
  1033.         ch: byte): longint;
  1034.  
  1035. function UnGetC
  1036.         (fh: BPTR;
  1037.         character: longint): longint;
  1038.  
  1039. function FRead
  1040.         (fh: BPTR;
  1041.         block: STRPTR;
  1042.         blocklen: long;
  1043.         number: long): longint;
  1044.  
  1045. function FWrite
  1046.         (fh: BPTR;
  1047.         block: STRPTR;
  1048.         blocklen: long;
  1049.         number: long): longint;
  1050.  
  1051. function FGets
  1052.         (fh: BPTR;
  1053.         buf: STRPTR;
  1054.         buflen: long): STRPTR;
  1055.  
  1056. function FPuts
  1057.         (fh: BPTR;
  1058.         str: STRPTR): longint;
  1059.  
  1060. function VFWritef
  1061.         (fh: BPTR;
  1062.         format: STRPTR;
  1063.         argarray: plongint): longint;
  1064.  
  1065. function VFPrintf
  1066.         (fh: BPTR;
  1067.         format: STRPTR;
  1068.         argarray: plongint): longint;
  1069.  
  1070. function Flush (fh: BPTR): boolean;
  1071. function SetVBuf
  1072.         (fh: BPTR;
  1073.         buff: STRPTR;
  1074.         type_: longint;
  1075.         size: longint): longint;
  1076.  
  1077. function DupLockFromFH (fh: BPTR): BPTR;
  1078. function OpenFromLock (lock: BPTR): BPTR;
  1079. function ParentOfFH (fh: BPTR): BPTR;
  1080. function ExamineFH
  1081.         (fh: BPTR;
  1082.         fib: pFileInfoBlock): boolean;
  1083.  
  1084. function SetFileDate
  1085.         (name: STRPTR;
  1086.         date: pDateStamp): boolean;
  1087.  
  1088. function NameFromLock
  1089.         (lock: BPTR;
  1090.         buffer: STRPTR;
  1091.         len: longint): boolean;
  1092.  
  1093. function NameFromFH
  1094.         (fh: BPTR;
  1095.         buffer: STRPTR;
  1096.         len: longint): boolean;
  1097.  
  1098. function SplitName
  1099.         (name: STRPTR;
  1100.         seperator: byte;
  1101.         buf: STRPTR;
  1102.         oldpos: integer;
  1103.         size: longint): integer;
  1104.  
  1105. function SameLock
  1106.         (lock1: BPTR;
  1107.         lock2: BPTR): longint;
  1108.  
  1109. function SetMode
  1110.         (fh: BPTR;
  1111.         mode: longint): boolean;
  1112.  
  1113. function ExAll
  1114.         (lock: BPTR;
  1115.         buffer: STRPTR;
  1116.         size: longint;
  1117.         data: longint;
  1118.         control: pExAllControl): boolean;
  1119.  
  1120. function ReadLink
  1121.         (port: pMsgPort;
  1122.         lock: BPTR;
  1123.         path: STRPTR;
  1124.         buffer: STRPTR;
  1125.         size: long): boolean;
  1126.  
  1127. function MakeLink
  1128.         (name: STRPTR;
  1129.         dest: longint;
  1130.         soft: longint): boolean;
  1131.  
  1132. function ChangeMode
  1133.         (type_: long;
  1134.         fh: BPTR;
  1135.         newmode: long): boolean;
  1136.  
  1137. function SetFileSize
  1138.         (fh: BPTR;
  1139.         pos: longint;
  1140.         mode: longint): longint;
  1141.  
  1142. function SetIoErr (result: longint): longint;
  1143. function Fault
  1144.         (code: longint;
  1145.         header: STRPTR;
  1146.         buffer: STRPTR;
  1147.         len: longint): boolean;
  1148.  
  1149. function PrintFault
  1150.         (code: longint;
  1151.         header: STRPTR): boolean;
  1152.  
  1153. function ErrorReport
  1154.         (code: longint;
  1155.         type_: longint;
  1156.         arg1: long;
  1157.         device: pMsgPort): boolean;
  1158.  
  1159. function Cli: pCommandLineInterface;
  1160. function CreateNewProc (tags: pTagItem): pProcess;
  1161. function RunCommand
  1162.         (seg: BPTR;
  1163.         stack: long;
  1164.         paramptr: STRPTR;
  1165.         paramlen: long): longint;
  1166.  
  1167. function GetConsoleTask: pMsgPort;
  1168. function SetConsoleTask (task: pMsgPort): pMsgPort;
  1169. function GetFileSysTask: pMsgPort;
  1170. function SetFileSysTask (task: pMsgPort): pMsgPort;
  1171. function GetArgStr: STRPTR;
  1172. function SetArgStr (string_: STRPTR): STRPTR;
  1173. function FindCliProc (num: longint): pProcess;
  1174. function MaxCli: longint;
  1175. function SetCurrentDirName (name: STRPTR): boolean;
  1176. function GetCurrentDirName
  1177.         (buf: STRPTR;
  1178.         len: longint): boolean;
  1179.  
  1180. function SetProgramName (name: STRPTR): boolean;
  1181. function GetProgramName
  1182.         (buf: STRPTR;
  1183.         len: longint): boolean;
  1184.  
  1185. function SetPrompt (name: STRPTR): boolean;
  1186. function GetPrompt
  1187.         (buf: STRPTR;
  1188.         len: longint): boolean;
  1189.  
  1190. function SetProgramDir (lock: BPTR): BPTR;
  1191. function GetProgramDir: BPTR;
  1192. function SystemTagList
  1193.         (command: STRPTR;
  1194.         tags: pTagItem): longint;
  1195.  
  1196. function AssignLock
  1197.         (name: STRPTR;
  1198.         lock: BPTR): boolean;
  1199.  
  1200. function AssignLate
  1201.         (name: STRPTR;
  1202.         path: STRPTR): boolean;
  1203.  
  1204. function AssignPath
  1205.         (name: STRPTR;
  1206.         path: STRPTR): boolean;
  1207.  
  1208. function AssignAdd
  1209.         (name: STRPTR;
  1210.         lock: BPTR): boolean;
  1211.  
  1212. function RemAssignList
  1213.         (name: STRPTR;
  1214.         lock: BPTR): boolean;
  1215.  
  1216. function GetDeviceProc
  1217.         (name: STRPTR;
  1218.         dp: pDevProc): pDevProc;
  1219.  
  1220. procedure FreeDeviceProc (dp: pDevProc);
  1221. function LockDosList (flags: long): pDosList;
  1222. procedure UnLockDosList (flags: long);
  1223. function AttemptLockDosList (flags: long): pDosList;
  1224. function RemDosEntry (dlist: pDosList): boolean;
  1225. function AddDosEntry (dlist: pDosList): boolean;
  1226. function FindDosEntry
  1227.         (dlist: pDosList;
  1228.         name: STRPTR;
  1229.         flags: long): pDosList;
  1230.  
  1231. function NextDosEntry
  1232.         (dlist: pDosList;
  1233.         flags: long): pDosList;
  1234.  
  1235. function MakeDosEntry
  1236.         (name: STRPTR;
  1237.         type_: longint): pDosList;
  1238.  
  1239. procedure FreeDosEntry (dlist: pDosList);
  1240. function IsFileSystem (name: STRPTR): boolean;
  1241. function Format
  1242.         (filesystem: STRPTR;
  1243.         volumename: STRPTR;
  1244.         dostype: long): boolean;
  1245.  
  1246. function Relabel
  1247.         (drive: STRPTR;
  1248.         newname: STRPTR): boolean;
  1249.  
  1250. function Inhibit
  1251.         (name: STRPTR;
  1252.         onoff: longint): boolean;
  1253.  
  1254. function AddBuffers
  1255.         (name: STRPTR;
  1256.         number: longint): boolean;
  1257.  
  1258. function CompareDates
  1259.         (date1: pDateStamp;
  1260.         date2: pDateStamp): longint;
  1261.  
  1262. function DateToStr (datetime: pDateTime): boolean;
  1263. function StrToDate (datetime: pDateTime): boolean;
  1264. function InternalLoadSeg
  1265.         (fh: BPTR;
  1266.         table: BPTR;
  1267.         funcarray: plongint;
  1268.         stack: plongint): BPTR;
  1269.  
  1270. function InternalUnLoadSeg
  1271.         (seglist: BPTR;
  1272.         freefunc: pointer): boolean;
  1273.  
  1274. function NewLoadSeg
  1275.         (file_: STRPTR;
  1276.         tags: pTagItem): BPTR;
  1277.  
  1278. function AddSegment
  1279.         (name: STRPTR;
  1280.         seg: BPTR;
  1281.         system: longint): boolean;
  1282.  
  1283. function FindSegment
  1284.         (name: STRPTR;
  1285.         seg: pSegment;
  1286.         system: longint): pSegment;
  1287.  
  1288. function RemSegment (seg: pSegment): boolean;
  1289. function CheckSignal (mask: long): long;
  1290. function ReadArgs
  1291.         (template: STRPTR;
  1292.         array_: plongint;
  1293.         args: pRDArgs): pRDArgs;
  1294.  
  1295. function FindArg
  1296.         (keyword: STRPTR;
  1297.         template: STRPTR): longint;
  1298.  
  1299. function ReadItem
  1300.         (name: STRPTR;
  1301.         maxchars: longint;
  1302.         cSource: pCSource): longint;
  1303.  
  1304. function StrToLong
  1305.         (string_: STRPTR;
  1306.         value: plongint): longint;
  1307.  
  1308. function MatchFirst
  1309.         (pat: STRPTR;
  1310.         anchor: pAnchorPath): longint;
  1311.  
  1312. function MatchNext (anchor: pAnchorPath): longint;
  1313. procedure MatchEnd (anchor: pAnchorPath);
  1314. function ParsePattern
  1315.         (pat: STRPTR;
  1316.         buf: STRPTR;
  1317.         buflen: longint): longint;
  1318.  
  1319. function MatchPattern
  1320.         (pat: STRPTR;
  1321.         str: STRPTR): boolean;
  1322.  
  1323. procedure FreeArgs (args: pRDArgs);
  1324. function FilePart (path: STRPTR): STRPTR;
  1325. function PathPart (path: STRPTR): STRPTR;
  1326. function AddPart
  1327.         (dirname: STRPTR;
  1328.         filename: STRPTR;
  1329.         size: long): boolean;
  1330.  
  1331. function StartNotify (notify: pNotifyRequest): boolean;
  1332. procedure EndNotify (notify: pNotifyRequest);
  1333. function SetVar
  1334.         (name: STRPTR;
  1335.         buffer: STRPTR;
  1336.         size: longint;
  1337.         flags: long): boolean;
  1338.  
  1339. function GetVar
  1340.         (name: STRPTR;
  1341.         buffer: STRPTR;
  1342.         size: longint;
  1343.         flags: long): longint;
  1344.  
  1345. function DeleteVar
  1346.         (name: STRPTR;
  1347.         flags: long): boolean;
  1348.  
  1349. function FindVar
  1350.         (name: STRPTR;
  1351.         type_: long): pLocalVar;
  1352.  
  1353. function CliInitNewcli (dp: pDosPacket): longint;
  1354. function CliInitRun (dp: pDosPacket): longint;
  1355. function WriteChars
  1356.         (buf: STRPTR;
  1357.         buflen: longint): longint;
  1358.  
  1359. function PutStr (str: STRPTR): longint;
  1360. function VPrintf
  1361.         (format: STRPTR;
  1362.         argarray: plongint): longint;
  1363.  
  1364. function ParsePatternNoCase
  1365.         (pat: STRPTR;
  1366.         buf: STRPTR;
  1367.         buflen: longint): longint;
  1368.  
  1369. function MatchPatternNoCase
  1370.         (pat: STRPTR;
  1371.         str: STRPTR): boolean;
  1372.  
  1373. function SameDevice
  1374.         (lock1: BPTR;
  1375.         lock2: BPTR): boolean;
  1376.  
  1377.  
  1378.  
  1379. function BADDR (bval: BPTR): pointer;
  1380. inline
  1381.     $201F,        { move.l (sp)+,d0    }
  1382.     $E580,        { asl.l  #2,d0        }
  1383.     $2E80;        { move.l d0,(sp)    }
  1384.  
  1385. function MKBADDR (addr: pointer): BPTR;
  1386. inline
  1387.     $201F,        { move.l (sp)+,d0    }
  1388.     $E480,        { asr.l  #2,d0        }
  1389.     $2E80;        { move.l d0,(sp)    }
  1390.  
  1391.  
  1392. IMPLEMENTATION
  1393. function Open; xassembler;
  1394. asm
  1395.     move.l    a6,-(sp)
  1396.     lea        8(sp),a6
  1397.     move.l    (a6)+,d2
  1398.     move.l    (a6)+,d1
  1399.     move.l    DOSBase,a6
  1400.     jsr        -$1E(a6)
  1401.     move.l    d0,$10(sp)
  1402.     move.l    (sp)+,a6
  1403. end;
  1404.  
  1405. function Close_; xassembler;
  1406. asm
  1407.     move.l    a6,-(sp)
  1408.     move.l    8(sp),d1
  1409.     move.l    DOSBase,a6
  1410.     jsr        -$24(a6)
  1411.     tst.l    d0
  1412.     sne        d0
  1413.     neg.b    d0
  1414.     move.b    d0,$C(sp)
  1415.     move.l    (sp)+,a6
  1416. end;
  1417.  
  1418. function Read_; xassembler;
  1419. asm
  1420.     movem.l    d3/a6,-(sp)
  1421.     lea        $C(sp),a6
  1422.     move.l    (a6)+,d3
  1423.     move.l    (a6)+,d2
  1424.     move.l    (a6)+,d1
  1425.     move.l    DOSBase,a6
  1426.     jsr        -$2A(a6)
  1427.     move.l    d0,$18(sp)
  1428.     movem.l    (sp)+,d3/a6
  1429. end;
  1430.  
  1431. function Write_; xassembler;
  1432. asm
  1433.     movem.l    d3/a6,-(sp)
  1434.     lea        $C(sp),a6
  1435.     move.l    (a6)+,d3
  1436.     move.l    (a6)+,d2
  1437.     move.l    (a6)+,d1
  1438.     move.l    DOSBase,a6
  1439.     jsr        -$30(a6)
  1440.     move.l    d0,$18(sp)
  1441.     movem.l    (sp)+,d3/a6
  1442. end;
  1443.  
  1444. function Input_; xassembler;
  1445. asm
  1446.     movem.l    d3/a6,-(sp)
  1447.     move.l    DOSBase,a6
  1448.     jsr        -$36(a6)
  1449.     move.l    d0,$C(sp)
  1450.     movem.l    (sp)+,d3/a6
  1451. end;
  1452.  
  1453. function Output_; xassembler;
  1454. asm
  1455.     movem.l    d3/a6,-(sp)
  1456.     move.l    DOSBase,a6
  1457.     jsr        -$3C(a6)
  1458.     move.l    d0,$C(sp)
  1459.     movem.l    (sp)+,d3/a6
  1460. end;
  1461.  
  1462. function Seek_; xassembler;
  1463. asm
  1464.     movem.l    d3/a6,-(sp)
  1465.     lea        $C(sp),a6
  1466.     move.l    (a6)+,d3
  1467.     move.l    (a6)+,d2
  1468.     move.l    (a6)+,d1
  1469.     move.l    DOSBase,a6
  1470.     jsr        -$42(a6)
  1471.     move.l    d0,$18(sp)
  1472.     movem.l    (sp)+,d3/a6
  1473. end;
  1474.  
  1475. function DeleteFile; xassembler;
  1476. asm
  1477.     move.l    a6,-(sp)
  1478.     move.l    8(sp),d1
  1479.     move.l    DOSBase,a6
  1480.     jsr        -$48(a6)
  1481.     tst.l    d0
  1482.     sne        d0
  1483.     neg.b    d0
  1484.     move.b    d0,$C(sp)
  1485.     move.l    (sp)+,a6
  1486. end;
  1487.  
  1488. function Rename_; xassembler;
  1489. asm
  1490.     move.l    a6,-(sp)
  1491.     lea        8(sp),a6
  1492.     move.l    (a6)+,d2
  1493.     move.l    (a6)+,d1
  1494.     move.l    DOSBase,a6
  1495.     jsr        -$4E(a6)
  1496.     tst.l    d0
  1497.     sne        d0
  1498.     neg.b    d0
  1499.     move.b    d0,$10(sp)
  1500.     move.l    (sp)+,a6
  1501. end;
  1502.  
  1503. function Lock; xassembler;
  1504. asm
  1505.     move.l    a6,-(sp)
  1506.     lea        8(sp),a6
  1507.     move.l    (a6)+,d2
  1508.     move.l    (a6)+,d1
  1509.     move.l    DOSBase,a6
  1510.     jsr        -$54(a6)
  1511.     move.l    d0,$10(sp)
  1512.     move.l    (sp)+,a6
  1513. end;
  1514.  
  1515. procedure UnLock; xassembler;
  1516. asm
  1517.     move.l    a6,-(sp)
  1518.     move.l    8(sp),d1
  1519.     move.l    DOSBase,a6
  1520.     jsr        -$5A(a6)
  1521.     move.l    (sp)+,a6
  1522. end;
  1523.  
  1524. function DupLock; xassembler;
  1525. asm
  1526.     move.l    a6,-(sp)
  1527.     move.l    8(sp),d1
  1528.     move.l    DOSBase,a6
  1529.     jsr        -$60(a6)
  1530.     move.l    d0,$C(sp)
  1531.     move.l    (sp)+,a6
  1532. end;
  1533.  
  1534. function Examine; xassembler;
  1535. asm
  1536.     move.l    a6,-(sp)
  1537.     lea        8(sp),a6
  1538.     move.l    (a6)+,d2
  1539.     move.l    (a6)+,d1
  1540.     move.l    DOSBase,a6
  1541.     jsr        -$66(a6)
  1542.     tst.l    d0
  1543.     sne        d0
  1544.     neg.b    d0
  1545.     move.b    d0,$10(sp)
  1546.     move.l    (sp)+,a6
  1547. end;
  1548.  
  1549. function ExNext; xassembler;
  1550. asm
  1551.     move.l    a6,-(sp)
  1552.     lea        8(sp),a6
  1553.     move.l    (a6)+,d2
  1554.     move.l    (a6)+,d1
  1555.     move.l    DOSBase,a6
  1556.     jsr        -$6C(a6)
  1557.     tst.l    d0
  1558.     sne        d0
  1559.     neg.b    d0
  1560.     move.b    d0,$10(sp)
  1561.     move.l    (sp)+,a6
  1562. end;
  1563.  
  1564. function Info; xassembler;
  1565. asm
  1566.     move.l    a6,-(sp)
  1567.     lea        8(sp),a6
  1568.     move.l    (a6)+,d2
  1569.     move.l    (a6)+,d1
  1570.     move.l    DOSBase,a6
  1571.     jsr        -$72(a6)
  1572.     tst.l    d0
  1573.     sne        d0
  1574.     neg.b    d0
  1575.     move.b    d0,$10(sp)
  1576.     move.l    (sp)+,a6
  1577. end;
  1578.  
  1579. function CreateDir; xassembler;
  1580. asm
  1581.     move.l    a6,-(sp)
  1582.     move.l    8(sp),d1
  1583.     move.l    DOSBase,a6
  1584.     jsr        -$78(a6)
  1585.     move.l    d0,$C(sp)
  1586.     move.l    (sp)+,a6
  1587. end;
  1588.  
  1589. function CurrentDir; xassembler;
  1590. asm
  1591.     move.l    a6,-(sp)
  1592.     move.l    8(sp),d1
  1593.     move.l    DOSBase,a6
  1594.     jsr        -$7E(a6)
  1595.     move.l    d0,$C(sp)
  1596.     move.l    (sp)+,a6
  1597. end;
  1598.  
  1599. function IoErr; xassembler;
  1600. asm
  1601.     move.l    a6,-(sp)
  1602.     move.l    DOSBase,a6
  1603.     jsr        -$84(a6)
  1604.     move.l    d0,8(sp)
  1605.     move.l    (sp)+,a6
  1606. end;
  1607.  
  1608. function CreateProc; xassembler;
  1609. asm
  1610.     movem.l    d3-d4/a6,-(sp)
  1611.     lea        $10(sp),a6
  1612.     move.l    (a6)+,d4
  1613.     move.l    (a6)+,d3
  1614.     move.l    (a6)+,d2
  1615.     move.l    (a6)+,d1
  1616.     move.l    DOSBase,a6
  1617.     jsr        -$8A(a6)
  1618.     move.l    d0,$20(sp)
  1619.     movem.l    (sp)+,d3-d4/a6
  1620. end;
  1621.  
  1622. procedure Exit_; xassembler;
  1623. asm
  1624.     move.l    a6,-(sp)
  1625.     move.l    8(sp),d1
  1626.     move.l    DOSBase,a6
  1627.     jsr        -$90(a6)
  1628.     move.l    (sp)+,a6
  1629. end;
  1630.  
  1631. function LoadSeg; xassembler;
  1632. asm
  1633.     move.l    a6,-(sp)
  1634.     move.l    8(sp),d1
  1635.     move.l    DOSBase,a6
  1636.     jsr        -$96(a6)
  1637.     move.l    d0,$C(sp)
  1638.     move.l    (sp)+,a6
  1639. end;
  1640.  
  1641. function UnLoadSeg; xassembler;
  1642. asm
  1643.     move.l    a6,-(sp)
  1644.     move.l    8(sp),d1
  1645.     move.l    DOSBase,a6
  1646.     jsr        -$9C(a6)
  1647.     tst.l    d0
  1648.     sne        d0
  1649.     neg.b    d0
  1650.     move.b    d0,$C(sp)
  1651.     move.l    (sp)+,a6
  1652. end;
  1653.  
  1654. function DeviceProc; xassembler;
  1655. asm
  1656.     move.l    a6,-(sp)
  1657.     move.l    8(sp),d1
  1658.     move.l    DOSBase,a6
  1659.     jsr        -$AE(a6)
  1660.     move.l    d0,$C(sp)
  1661.     move.l    (sp)+,a6
  1662. end;
  1663.  
  1664. function SetComment; xassembler;
  1665. asm
  1666.     move.l    a6,-(sp)
  1667.     lea        8(sp),a6
  1668.     move.l    (a6)+,d2
  1669.     move.l    (a6)+,d1
  1670.     move.l    DOSBase,a6
  1671.     jsr        -$B4(a6)
  1672.     tst.l    d0
  1673.     sne        d0
  1674.     neg.b    d0
  1675.     move.b    d0,$10(sp)
  1676.     move.l    (sp)+,a6
  1677. end;
  1678.  
  1679. function SetProtection; xassembler;
  1680. asm
  1681.     move.l    a6,-(sp)
  1682.     lea        8(sp),a6
  1683.     move.l    (a6)+,d2
  1684.     move.l    (a6)+,d1
  1685.     move.l    DOSBase,a6
  1686.     jsr        -$BA(a6)
  1687.     tst.l    d0
  1688.     sne        d0
  1689.     neg.b    d0
  1690.     move.b    d0,$10(sp)
  1691.     move.l    (sp)+,a6
  1692. end;
  1693.  
  1694. function DateStamp; xassembler;
  1695. asm
  1696.     move.l    a6,-(sp)
  1697.     move.l    8(sp),d1
  1698.     move.l    DOSBase,a6
  1699.     jsr        -$C0(a6)
  1700.     move.l    d0,$C(sp)
  1701.     move.l    (sp)+,a6
  1702. end;
  1703.  
  1704. procedure Delay_; xassembler;
  1705. asm
  1706.     move.l    a6,-(sp)
  1707.     move.l    8(sp),d1
  1708.     move.l    DOSBase,a6
  1709.     jsr        -$C6(a6)
  1710.     move.l    (sp)+,a6
  1711. end;
  1712.  
  1713. function WaitForChar; xassembler;
  1714. asm
  1715.     move.l    a6,-(sp)
  1716.     lea        8(sp),a6
  1717.     move.l    (a6)+,d2
  1718.     move.l    (a6)+,d1
  1719.     move.l    DOSBase,a6
  1720.     jsr        -$CC(a6)
  1721.     tst.l    d0
  1722.     sne        d0
  1723.     neg.b    d0
  1724.     move.b    d0,$10(sp)
  1725.     move.l    (sp)+,a6
  1726. end;
  1727.  
  1728. function ParentDir; xassembler;
  1729. asm
  1730.     move.l    a6,-(sp)
  1731.     move.l    8(sp),d1
  1732.     move.l    DOSBase,a6
  1733.     jsr        -$D2(a6)
  1734.     move.l    d0,$C(sp)
  1735.     move.l    (sp)+,a6
  1736. end;
  1737.  
  1738. function IsInteractive; xassembler;
  1739. asm
  1740.     move.l    a6,-(sp)
  1741.     move.l    8(sp),d1
  1742.     move.l    DOSBase,a6
  1743.     jsr        -$D8(a6)
  1744.     tst.l    d0
  1745.     sne        d0
  1746.     neg.b    d0
  1747.     move.b    d0,$C(sp)
  1748.     move.l    (sp)+,a6
  1749. end;
  1750.  
  1751. function Execute; xassembler;
  1752. asm
  1753.     movem.l    d3/a6,-(sp)
  1754.     lea        $C(sp),a6
  1755.     move.l    (a6)+,d3
  1756.     move.l    (a6)+,d2
  1757.     move.l    (a6)+,d1
  1758.     move.l    DOSBase,a6
  1759.     jsr        -$DE(a6)
  1760.     tst.l    d0
  1761.     sne        d0
  1762.     neg.b    d0
  1763.     move.b    d0,$18(sp)
  1764.     movem.l    (sp)+,d3/a6
  1765. end;
  1766.  
  1767. function AllocDosObject; xassembler;
  1768. asm
  1769.     move.l    a6,-(sp)
  1770.     lea        8(sp),a6
  1771.     move.l    (a6)+,d2
  1772.     move.l    (a6)+,d1
  1773.     move.l    DOSBase,a6
  1774.     jsr        -$E4(a6)
  1775.     move.l    d0,$10(sp)
  1776.     move.l    (sp)+,a6
  1777. end;
  1778.  
  1779. procedure FreeDosObject; xassembler;
  1780. asm
  1781.     move.l    a6,-(sp)
  1782.     lea        8(sp),a6
  1783.     move.l    (a6)+,d2
  1784.     move.l    (a6)+,d1
  1785.     move.l    DOSBase,a6
  1786.     jsr        -$EA(a6)
  1787.     move.l    (sp)+,a6
  1788. end;
  1789.  
  1790. function DoPkt; xassembler;
  1791. asm
  1792.     movem.l    d3-d7/a6,-(sp)
  1793.     lea        $1C(sp),a6
  1794.     move.l    (a6)+,d7
  1795.     move.l    (a6)+,d6
  1796.     move.l    (a6)+,d5
  1797.     move.l    (a6)+,d4
  1798.     move.l    (a6)+,d3
  1799.     move.l    (a6)+,d2
  1800.     move.l    (a6)+,d1
  1801.     move.l    DOSBase,a6
  1802.     jsr        -$F0(a6)
  1803.     move.l    d0,$38(sp)
  1804.     movem.l    (sp)+,d3-d7/a6
  1805. end;
  1806.  
  1807. procedure SendPkt; xassembler;
  1808. asm
  1809.     movem.l    d3/a6,-(sp)
  1810.     lea        $C(sp),a6
  1811.     move.l    (a6)+,d3
  1812.     move.l    (a6)+,d2
  1813.     move.l    (a6)+,d1
  1814.     move.l    DOSBase,a6
  1815.     jsr        -$F6(a6)
  1816.     movem.l    (sp)+,d3/a6
  1817. end;
  1818.  
  1819. function WaitPkt; xassembler;
  1820. asm
  1821.     movem.l    d3/a6,-(sp)
  1822.     move.l    DOSBase,a6
  1823.     jsr        -$FC(a6)
  1824.     move.l    d0,$C(sp)
  1825.     movem.l    (sp)+,d3/a6
  1826. end;
  1827.  
  1828. procedure ReplyPkt; xassembler;
  1829. asm
  1830.     movem.l    d3/a6,-(sp)
  1831.     lea        $C(sp),a6
  1832.     move.l    (a6)+,d3
  1833.     move.l    (a6)+,d2
  1834.     move.l    (a6)+,d1
  1835.     move.l    DOSBase,a6
  1836.     jsr        -$102(a6)
  1837.     movem.l    (sp)+,d3/a6
  1838. end;
  1839.  
  1840. procedure AbortPkt; xassembler;
  1841. asm
  1842.     move.l    a6,-(sp)
  1843.     lea        8(sp),a6
  1844.     move.l    (a6)+,d2
  1845.     move.l    (a6)+,d1
  1846.     move.l    DOSBase,a6
  1847.     jsr        -$108(a6)
  1848.     move.l    (sp)+,a6
  1849. end;
  1850.  
  1851. function LockRecord; xassembler;
  1852. asm
  1853.     movem.l    d3-d5/a6,-(sp)
  1854.     lea        $14(sp),a6
  1855.     move.l    (a6)+,d5
  1856.     move.l    (a6)+,d4
  1857.     move.l    (a6)+,d3
  1858.     move.l    (a6)+,d2
  1859.     move.l    (a6)+,d1
  1860.     move.l    DOSBase,a6
  1861.     jsr        -$10E(a6)
  1862.     move.l    d0,$28(sp)
  1863.     movem.l    (sp)+,d3-d5/a6
  1864. end;
  1865.  
  1866. function LockRecords; xassembler;
  1867. asm
  1868.     move.l    a6,-(sp)
  1869.     lea        8(sp),a6
  1870.     move.l    (a6)+,d2
  1871.     move.l    (a6)+,d1
  1872.     move.l    DOSBase,a6
  1873.     jsr        -$114(a6)
  1874.     tst.l    d0
  1875.     sne        d0
  1876.     neg.b    d0
  1877.     move.b    d0,$10(sp)
  1878.     move.l    (sp)+,a6
  1879. end;
  1880.  
  1881. function UnLockRecord; xassembler;
  1882. asm
  1883.     movem.l    d3/a6,-(sp)
  1884.     lea        $C(sp),a6
  1885.     move.l    (a6)+,d3
  1886.     move.l    (a6)+,d2
  1887.     move.l    (a6)+,d1
  1888.     move.l    DOSBase,a6
  1889.     jsr        -$11A(a6)
  1890.     tst.l    d0
  1891.     sne        d0
  1892.     neg.b    d0
  1893.     move.b    d0,$18(sp)
  1894.     movem.l    (sp)+,d3/a6
  1895. end;
  1896.  
  1897. function UnLockRecords; xassembler;
  1898. asm
  1899.     move.l    a6,-(sp)
  1900.     move.l    8(sp),d1
  1901.     move.l    DOSBase,a6
  1902.     jsr        -$120(a6)
  1903.     tst.l    d0
  1904.     sne        d0
  1905.     neg.b    d0
  1906.     move.b    d0,$C(sp)
  1907.     move.l    (sp)+,a6
  1908. end;
  1909.  
  1910. function SelectInput; xassembler;
  1911. asm
  1912.     move.l    a6,-(sp)
  1913.     move.l    8(sp),d1
  1914.     move.l    DOSBase,a6
  1915.     jsr        -$126(a6)
  1916.     move.l    d0,$C(sp)
  1917.     move.l    (sp)+,a6
  1918. end;
  1919.  
  1920. function SelectOutput; xassembler;
  1921. asm
  1922.     move.l    a6,-(sp)
  1923.     move.l    8(sp),d1
  1924.     move.l    DOSBase,a6
  1925.     jsr        -$12C(a6)
  1926.     move.l    d0,$C(sp)
  1927.     move.l    (sp)+,a6
  1928. end;
  1929.  
  1930. function FGetC; xassembler;
  1931. asm
  1932.     move.l    a6,-(sp)
  1933.     move.l    8(sp),d1
  1934.     move.l    DOSBase,a6
  1935.     jsr        -$132(a6)
  1936.     move.l    d0,$C(sp)
  1937.     move.l    (sp)+,a6
  1938. end;
  1939.  
  1940. function FPutC; xassembler;
  1941. asm
  1942.     move.l    a6,-(sp)
  1943.     move.b    8(sp),d2
  1944.     move.l    $A(sp),d1
  1945.     move.l    DOSBase,a6
  1946.     jsr        -$138(a6)
  1947.     move.l    d0,$E(sp)
  1948.     move.l    (sp)+,a6
  1949. end;
  1950.  
  1951. function UnGetC; xassembler;
  1952. asm
  1953.     move.l    a6,-(sp)
  1954.     lea        8(sp),a6
  1955.     move.l    (a6)+,d2
  1956.     move.l    (a6)+,d1
  1957.     move.l    DOSBase,a6
  1958.     jsr        -$13E(a6)
  1959.     move.l    d0,$10(sp)
  1960.     move.l    (sp)+,a6
  1961. end;
  1962.  
  1963. function FRead; xassembler;
  1964. asm
  1965.     movem.l    d3-d4/a6,-(sp)
  1966.     lea        $10(sp),a6
  1967.     move.l    (a6)+,d4
  1968.     move.l    (a6)+,d3
  1969.     move.l    (a6)+,d2
  1970.     move.l    (a6)+,d1
  1971.     move.l    DOSBase,a6
  1972.     jsr        -$144(a6)
  1973.     move.l    d0,$20(sp)
  1974.     movem.l    (sp)+,d3-d4/a6
  1975. end;
  1976.  
  1977. function FWrite; xassembler;
  1978. asm
  1979.     movem.l    d3-d4/a6,-(sp)
  1980.     lea        $10(sp),a6
  1981.     move.l    (a6)+,d4
  1982.     move.l    (a6)+,d3
  1983.     move.l    (a6)+,d2
  1984.     move.l    (a6)+,d1
  1985.     move.l    DOSBase,a6
  1986.     jsr        -$14A(a6)
  1987.     move.l    d0,$20(sp)
  1988.     movem.l    (sp)+,d3-d4/a6
  1989. end;
  1990.  
  1991. function FGets; xassembler;
  1992. asm
  1993.     movem.l    d3/a6,-(sp)
  1994.     lea        $C(sp),a6
  1995.     move.l    (a6)+,d3
  1996.     move.l    (a6)+,d2
  1997.     move.l    (a6)+,d1
  1998.     move.l    DOSBase,a6
  1999.     jsr        -$150(a6)
  2000.     move.l    d0,$18(sp)
  2001.     movem.l    (sp)+,d3/a6
  2002. end;
  2003.  
  2004. function FPuts; xassembler;
  2005. asm
  2006.     move.l    a6,-(sp)
  2007.     lea        8(sp),a6
  2008.     move.l    (a6)+,d2
  2009.     move.l    (a6)+,d1
  2010.     move.l    DOSBase,a6
  2011.     jsr        -$156(a6)
  2012.     move.l    d0,$10(sp)
  2013.     move.l    (sp)+,a6
  2014. end;
  2015.  
  2016. function VFWritef; xassembler;
  2017. asm
  2018.     movem.l    d3/a6,-(sp)
  2019.     lea        $C(sp),a6
  2020.     move.l    (a6)+,d3
  2021.     move.l    (a6)+,d2
  2022.     move.l    (a6)+,d1
  2023.     move.l    DOSBase,a6
  2024.     jsr        -$15C(a6)
  2025.     move.l    d0,$18(sp)
  2026.     movem.l    (sp)+,d3/a6
  2027. end;
  2028.  
  2029. function VFPrintf; xassembler;
  2030. asm
  2031.     movem.l    d3/a6,-(sp)
  2032.     lea        $C(sp),a6
  2033.     move.l    (a6)+,d3
  2034.     move.l    (a6)+,d2
  2035.     move.l    (a6)+,d1
  2036.     move.l    DOSBase,a6
  2037.     jsr        -$162(a6)
  2038.     move.l    d0,$18(sp)
  2039.     movem.l    (sp)+,d3/a6
  2040. end;
  2041.  
  2042. function Flush; xassembler;
  2043. asm
  2044.     move.l    a6,-(sp)
  2045.     move.l    8(sp),d1
  2046.     move.l    DOSBase,a6
  2047.     jsr        -$168(a6)
  2048.     tst.l    d0
  2049.     sne        d0
  2050.     neg.b    d0
  2051.     move.b    d0,$C(sp)
  2052.     move.l    (sp)+,a6
  2053. end;
  2054.  
  2055. function SetVBuf; xassembler;
  2056. asm
  2057.     movem.l    d3-d4/a6,-(sp)
  2058.     lea        $10(sp),a6
  2059.     move.l    (a6)+,d4
  2060.     move.l    (a6)+,d3
  2061.     move.l    (a6)+,d2
  2062.     move.l    (a6)+,d1
  2063.     move.l    DOSBase,a6
  2064.     jsr        -$16E(a6)
  2065.     move.l    d0,$20(sp)
  2066.     movem.l    (sp)+,d3-d4/a6
  2067. end;
  2068.  
  2069. function DupLockFromFH; xassembler;
  2070. asm
  2071.     move.l    a6,-(sp)
  2072.     move.l    8(sp),d1
  2073.     move.l    DOSBase,a6
  2074.     jsr        -$174(a6)
  2075.     move.l    d0,$C(sp)
  2076.     move.l    (sp)+,a6
  2077. end;
  2078.  
  2079. function OpenFromLock; xassembler;
  2080. asm
  2081.     move.l    a6,-(sp)
  2082.     move.l    8(sp),d1
  2083.     move.l    DOSBase,a6
  2084.     jsr        -$17A(a6)
  2085.     move.l    d0,$C(sp)
  2086.     move.l    (sp)+,a6
  2087. end;
  2088.  
  2089. function ParentOfFH; xassembler;
  2090. asm
  2091.     move.l    a6,-(sp)
  2092.     move.l    8(sp),d1
  2093.     move.l    DOSBase,a6
  2094.     jsr        -$180(a6)
  2095.     move.l    d0,$C(sp)
  2096.     move.l    (sp)+,a6
  2097. end;
  2098.  
  2099. function ExamineFH; xassembler;
  2100. asm
  2101.     move.l    a6,-(sp)
  2102.     lea        8(sp),a6
  2103.     move.l    (a6)+,d2
  2104.     move.l    (a6)+,d1
  2105.     move.l    DOSBase,a6
  2106.     jsr        -$186(a6)
  2107.     tst.l    d0
  2108.     sne        d0
  2109.     neg.b    d0
  2110.     move.b    d0,$10(sp)
  2111.     move.l    (sp)+,a6
  2112. end;
  2113.  
  2114. function SetFileDate; xassembler;
  2115. asm
  2116.     move.l    a6,-(sp)
  2117.     lea        8(sp),a6
  2118.     move.l    (a6)+,d2
  2119.     move.l    (a6)+,d1
  2120.     move.l    DOSBase,a6
  2121.     jsr        -$18C(a6)
  2122.     tst.l    d0
  2123.     sne        d0
  2124.     neg.b    d0
  2125.     move.b    d0,$10(sp)
  2126.     move.l    (sp)+,a6
  2127. end;
  2128.  
  2129. function NameFromLock; xassembler;
  2130. asm
  2131.     movem.l    d3/a6,-(sp)
  2132.     lea        $C(sp),a6
  2133.     move.l    (a6)+,d3
  2134.     move.l    (a6)+,d2
  2135.     move.l    (a6)+,d1
  2136.     move.l    DOSBase,a6
  2137.     jsr        -$192(a6)
  2138.     tst.l    d0
  2139.     sne        d0
  2140.     neg.b    d0
  2141.     move.b    d0,$18(sp)
  2142.     movem.l    (sp)+,d3/a6
  2143. end;
  2144.  
  2145. function NameFromFH; xassembler;
  2146. asm
  2147.     movem.l    d3/a6,-(sp)
  2148.     lea        $C(sp),a6
  2149.     move.l    (a6)+,d3
  2150.     move.l    (a6)+,d2
  2151.     move.l    (a6)+,d1
  2152.     move.l    DOSBase,a6
  2153.     jsr        -$198(a6)
  2154.     tst.l    d0
  2155.     sne        d0
  2156.     neg.b    d0
  2157.     move.b    d0,$18(sp)
  2158.     movem.l    (sp)+,d3/a6
  2159. end;
  2160.  
  2161. function SplitName; xassembler;
  2162. asm
  2163.     movem.l    d3-d5/a6,-(sp)
  2164.     lea        $14(sp),a6
  2165.     move.l    (a6)+,d5
  2166.     move.w    (a6)+,d4
  2167.     move.l    (a6)+,d3
  2168.     move.b    (a6)+,d2
  2169.     addq.l    #1,a6
  2170.     move.l    (a6)+,d1
  2171.     move.l    DOSBase,a6
  2172.     jsr        -$19E(a6)
  2173.     move.w    d0,$24(sp)
  2174.     movem.l    (sp)+,d3-d5/a6
  2175. end;
  2176.  
  2177. function SameLock; xassembler;
  2178. asm
  2179.     move.l    a6,-(sp)
  2180.     lea        8(sp),a6
  2181.     move.l    (a6)+,d2
  2182.     move.l    (a6)+,d1
  2183.     move.l    DOSBase,a6
  2184.     jsr        -$1A4(a6)
  2185.     move.l    d0,$10(sp)
  2186.     move.l    (sp)+,a6
  2187. end;
  2188.  
  2189. function SetMode; xassembler;
  2190. asm
  2191.     move.l    a6,-(sp)
  2192.     lea        8(sp),a6
  2193.     move.l    (a6)+,d2
  2194.     move.l    (a6)+,d1
  2195.     move.l    DOSBase,a6
  2196.     jsr        -$1AA(a6)
  2197.     tst.l    d0
  2198.     sne        d0
  2199.     neg.b    d0
  2200.     move.b    d0,$10(sp)
  2201.     move.l    (sp)+,a6
  2202. end;
  2203.  
  2204. function ExAll; xassembler;
  2205. asm
  2206.     movem.l    d3-d5/a6,-(sp)
  2207.     lea        $14(sp),a6
  2208.     move.l    (a6)+,d5
  2209.     move.l    (a6)+,d4
  2210.     move.l    (a6)+,d3
  2211.     move.l    (a6)+,d2
  2212.     move.l    (a6)+,d1
  2213.     move.l    DOSBase,a6
  2214.     jsr        -$1B0(a6)
  2215.     tst.l    d0
  2216.     sne        d0
  2217.     neg.b    d0
  2218.     move.b    d0,$28(sp)
  2219.     movem.l    (sp)+,d3-d5/a6
  2220. end;
  2221.  
  2222. function ReadLink; xassembler;
  2223. asm
  2224.     movem.l    d3-d5/a6,-(sp)
  2225.     lea        $14(sp),a6
  2226.     move.l    (a6)+,d5
  2227.     move.l    (a6)+,d4
  2228.     move.l    (a6)+,d3
  2229.     move.l    (a6)+,d2
  2230.     move.l    (a6)+,d1
  2231.     move.l    DOSBase,a6
  2232.     jsr        -$1B6(a6)
  2233.     tst.l    d0
  2234.     sne        d0
  2235.     neg.b    d0
  2236.     move.b    d0,$28(sp)
  2237.     movem.l    (sp)+,d3-d5/a6
  2238. end;
  2239.  
  2240. function MakeLink; xassembler;
  2241. asm
  2242.     movem.l    d3/a6,-(sp)
  2243.     lea        $C(sp),a6
  2244.     move.l    (a6)+,d3
  2245.     move.l    (a6)+,d2
  2246.     move.l    (a6)+,d1
  2247.     move.l    DOSBase,a6
  2248.     jsr        -$1BC(a6)
  2249.     tst.l    d0
  2250.     sne        d0
  2251.     neg.b    d0
  2252.     move.b    d0,$18(sp)
  2253.     movem.l    (sp)+,d3/a6
  2254. end;
  2255.  
  2256. function ChangeMode; xassembler;
  2257. asm
  2258.     movem.l    d3/a6,-(sp)
  2259.     lea        $C(sp),a6
  2260.     move.l    (a6)+,d3
  2261.     move.l    (a6)+,d2
  2262.     move.l    (a6)+,d1
  2263.     move.l    DOSBase,a6
  2264.     jsr        -$1C2(a6)
  2265.     tst.l    d0
  2266.     sne        d0
  2267.     neg.b    d0
  2268.     move.b    d0,$18(sp)
  2269.     movem.l    (sp)+,d3/a6
  2270. end;
  2271.  
  2272. function SetFileSize; xassembler;
  2273. asm
  2274.     movem.l    d3/a6,-(sp)
  2275.     lea        $C(sp),a6
  2276.     move.l    (a6)+,d3
  2277.     move.l    (a6)+,d2
  2278.     move.l    (a6)+,d1
  2279.     move.l    DOSBase,a6
  2280.     jsr        -$1C8(a6)
  2281.     move.l    d0,$18(sp)
  2282.     movem.l    (sp)+,d3/a6
  2283. end;
  2284.  
  2285. function SetIoErr; xassembler;
  2286. asm
  2287.     move.l    a6,-(sp)
  2288.     move.l    8(sp),d1
  2289.     move.l    DOSBase,a6
  2290.     jsr        -$1CE(a6)
  2291.     move.l    d0,$C(sp)
  2292.     move.l    (sp)+,a6
  2293. end;
  2294.  
  2295. function Fault; xassembler;
  2296. asm
  2297.     movem.l    d3-d4/a6,-(sp)
  2298.     lea        $10(sp),a6
  2299.     move.l    (a6)+,d4
  2300.     move.l    (a6)+,d3
  2301.     move.l    (a6)+,d2
  2302.     move.l    (a6)+,d1
  2303.     move.l    DOSBase,a6
  2304.     jsr        -$1D4(a6)
  2305.     tst.l    d0
  2306.     sne        d0
  2307.     neg.b    d0
  2308.     move.b    d0,$20(sp)
  2309.     movem.l    (sp)+,d3-d4/a6
  2310. end;
  2311.  
  2312. function PrintFault; xassembler;
  2313. asm
  2314.     move.l    a6,-(sp)
  2315.     lea        8(sp),a6
  2316.     move.l    (a6)+,d2
  2317.     move.l    (a6)+,d1
  2318.     move.l    DOSBase,a6
  2319.     jsr        -$1DA(a6)
  2320.     tst.l    d0
  2321.     sne        d0
  2322.     neg.b    d0
  2323.     move.b    d0,$10(sp)
  2324.     move.l    (sp)+,a6
  2325. end;
  2326.  
  2327. function ErrorReport; xassembler;
  2328. asm
  2329.     movem.l    d3-d4/a6,-(sp)
  2330.     lea        $10(sp),a6
  2331.     move.l    (a6)+,d4
  2332.     move.l    (a6)+,d3
  2333.     move.l    (a6)+,d2
  2334.     move.l    (a6)+,d1
  2335.     move.l    DOSBase,a6
  2336.     jsr        -$1E0(a6)
  2337.     tst.l    d0
  2338.     sne        d0
  2339.     neg.b    d0
  2340.     move.b    d0,$20(sp)
  2341.     movem.l    (sp)+,d3-d4/a6
  2342. end;
  2343.  
  2344. function Cli; xassembler;
  2345. asm
  2346.     movem.l    d3-d4/a6,-(sp)
  2347.     move.l    DOSBase,a6
  2348.     jsr        -$1EC(a6)
  2349.     move.l    d0,$10(sp)
  2350.     movem.l    (sp)+,d3-d4/a6
  2351. end;
  2352.  
  2353. function CreateNewProc; xassembler;
  2354. asm
  2355.     move.l    a6,-(sp)
  2356.     move.l    8(sp),d1
  2357.     move.l    DOSBase,a6
  2358.     jsr        -$1F2(a6)
  2359.     move.l    d0,$C(sp)
  2360.     move.l    (sp)+,a6
  2361. end;
  2362.  
  2363. function RunCommand; xassembler;
  2364. asm
  2365.     movem.l    d3-d4/a6,-(sp)
  2366.     lea        $10(sp),a6
  2367.     move.l    (a6)+,d4
  2368.     move.l    (a6)+,d3
  2369.     move.l    (a6)+,d2
  2370.     move.l    (a6)+,d1
  2371.     move.l    DOSBase,a6
  2372.     jsr        -$1F8(a6)
  2373.     move.l    d0,$20(sp)
  2374.     movem.l    (sp)+,d3-d4/a6
  2375. end;
  2376.  
  2377. function GetConsoleTask; xassembler;
  2378. asm
  2379.     movem.l    d3-d4/a6,-(sp)
  2380.     move.l    DOSBase,a6
  2381.     jsr        -$1FE(a6)
  2382.     move.l    d0,$10(sp)
  2383.     movem.l    (sp)+,d3-d4/a6
  2384. end;
  2385.  
  2386. function SetConsoleTask; xassembler;
  2387. asm
  2388.     move.l    a6,-(sp)
  2389.     move.l    8(sp),d1
  2390.     move.l    DOSBase,a6
  2391.     jsr        -$204(a6)
  2392.     move.l    d0,$C(sp)
  2393.     move.l    (sp)+,a6
  2394. end;
  2395.  
  2396. function GetFileSysTask; xassembler;
  2397. asm
  2398.     move.l    a6,-(sp)
  2399.     move.l    DOSBase,a6
  2400.     jsr        -$20A(a6)
  2401.     move.l    d0,8(sp)
  2402.     move.l    (sp)+,a6
  2403. end;
  2404.  
  2405. function SetFileSysTask; xassembler;
  2406. asm
  2407.     move.l    a6,-(sp)
  2408.     move.l    8(sp),d1
  2409.     move.l    DOSBase,a6
  2410.     jsr        -$210(a6)
  2411.     move.l    d0,$C(sp)
  2412.     move.l    (sp)+,a6
  2413. end;
  2414.  
  2415. function GetArgStr; xassembler;
  2416. asm
  2417.     move.l    a6,-(sp)
  2418.     move.l    DOSBase,a6
  2419.     jsr        -$216(a6)
  2420.     move.l    d0,8(sp)
  2421.     move.l    (sp)+,a6
  2422. end;
  2423.  
  2424. function SetArgStr; xassembler;
  2425. asm
  2426.     move.l    a6,-(sp)
  2427.     move.l    8(sp),d1
  2428.     move.l    DOSBase,a6
  2429.     jsr        -$21C(a6)
  2430.     move.l    d0,$C(sp)
  2431.     move.l    (sp)+,a6
  2432. end;
  2433.  
  2434. function FindCliProc; xassembler;
  2435. asm
  2436.     move.l    a6,-(sp)
  2437.     move.l    8(sp),d1
  2438.     move.l    DOSBase,a6
  2439.     jsr        -$222(a6)
  2440.     move.l    d0,$C(sp)
  2441.     move.l    (sp)+,a6
  2442. end;
  2443.  
  2444. function MaxCli; xassembler;
  2445. asm
  2446.     move.l    a6,-(sp)
  2447.     move.l    DOSBase,a6
  2448.     jsr        -$228(a6)
  2449.     move.l    d0,8(sp)
  2450.     move.l    (sp)+,a6
  2451. end;
  2452.  
  2453. function SetCurrentDirName; xassembler;
  2454. asm
  2455.     move.l    a6,-(sp)
  2456.     move.l    8(sp),d1
  2457.     move.l    DOSBase,a6
  2458.     jsr        -$22E(a6)
  2459.     tst.l    d0
  2460.     sne        d0
  2461.     neg.b    d0
  2462.     move.b    d0,$C(sp)
  2463.     move.l    (sp)+,a6
  2464. end;
  2465.  
  2466. function GetCurrentDirName; xassembler;
  2467. asm
  2468.     move.l    a6,-(sp)
  2469.     lea        8(sp),a6
  2470.     move.l    (a6)+,d2
  2471.     move.l    (a6)+,d1
  2472.     move.l    DOSBase,a6
  2473.     jsr        -$234(a6)
  2474.     tst.l    d0
  2475.     sne        d0
  2476.     neg.b    d0
  2477.     move.b    d0,$10(sp)
  2478.     move.l    (sp)+,a6
  2479. end;
  2480.  
  2481. function SetProgramName; xassembler;
  2482. asm
  2483.     move.l    a6,-(sp)
  2484.     move.l    8(sp),d1
  2485.     move.l    DOSBase,a6
  2486.     jsr        -$23A(a6)
  2487.     tst.l    d0
  2488.     sne        d0
  2489.     neg.b    d0
  2490.     move.b    d0,$C(sp)
  2491.     move.l    (sp)+,a6
  2492. end;
  2493.  
  2494. function GetProgramName; xassembler;
  2495. asm
  2496.     move.l    a6,-(sp)
  2497.     lea        8(sp),a6
  2498.     move.l    (a6)+,d2
  2499.     move.l    (a6)+,d1
  2500.     move.l    DOSBase,a6
  2501.     jsr        -$240(a6)
  2502.     tst.l    d0
  2503.     sne        d0
  2504.     neg.b    d0
  2505.     move.b    d0,$10(sp)
  2506.     move.l    (sp)+,a6
  2507. end;
  2508.  
  2509. function SetPrompt; xassembler;
  2510. asm
  2511.     move.l    a6,-(sp)
  2512.     move.l    8(sp),d1
  2513.     move.l    DOSBase,a6
  2514.     jsr        -$246(a6)
  2515.     tst.l    d0
  2516.     sne        d0
  2517.     neg.b    d0
  2518.     move.b    d0,$C(sp)
  2519.     move.l    (sp)+,a6
  2520. end;
  2521.  
  2522. function GetPrompt; xassembler;
  2523. asm
  2524.     move.l    a6,-(sp)
  2525.     lea        8(sp),a6
  2526.     move.l    (a6)+,d2
  2527.     move.l    (a6)+,d1
  2528.     move.l    DOSBase,a6
  2529.     jsr        -$24C(a6)
  2530.     tst.l    d0
  2531.     sne        d0
  2532.     neg.b    d0
  2533.     move.b    d0,$10(sp)
  2534.     move.l    (sp)+,a6
  2535. end;
  2536.  
  2537. function SetProgramDir; xassembler;
  2538. asm
  2539.     move.l    a6,-(sp)
  2540.     move.l    8(sp),d1
  2541.     move.l    DOSBase,a6
  2542.     jsr        -$252(a6)
  2543.     move.l    d0,$C(sp)
  2544.     move.l    (sp)+,a6
  2545. end;
  2546.  
  2547. function GetProgramDir; xassembler;
  2548. asm
  2549.     move.l    a6,-(sp)
  2550.     move.l    DOSBase,a6
  2551.     jsr        -$258(a6)
  2552.     move.l    d0,8(sp)
  2553.     move.l    (sp)+,a6
  2554. end;
  2555.  
  2556. function SystemTagList; xassembler;
  2557. asm
  2558.     move.l    a6,-(sp)
  2559.     lea        8(sp),a6
  2560.     move.l    (a6)+,d2
  2561.     move.l    (a6)+,d1
  2562.     move.l    DOSBase,a6
  2563.     jsr        -$25E(a6)
  2564.     move.l    d0,$10(sp)
  2565.     move.l    (sp)+,a6
  2566. end;
  2567.  
  2568. function AssignLock; xassembler;
  2569. asm
  2570.     move.l    a6,-(sp)
  2571.     lea        8(sp),a6
  2572.     move.l    (a6)+,d2
  2573.     move.l    (a6)+,d1
  2574.     move.l    DOSBase,a6
  2575.     jsr        -$264(a6)
  2576.     tst.l    d0
  2577.     sne        d0
  2578.     neg.b    d0
  2579.     move.b    d0,$10(sp)
  2580.     move.l    (sp)+,a6
  2581. end;
  2582.  
  2583. function AssignLate; xassembler;
  2584. asm
  2585.     move.l    a6,-(sp)
  2586.     lea        8(sp),a6
  2587.     move.l    (a6)+,d2
  2588.     move.l    (a6)+,d1
  2589.     move.l    DOSBase,a6
  2590.     jsr        -$26A(a6)
  2591.     tst.l    d0
  2592.     sne        d0
  2593.     neg.b    d0
  2594.     move.b    d0,$10(sp)
  2595.     move.l    (sp)+,a6
  2596. end;
  2597.  
  2598. function AssignPath; xassembler;
  2599. asm
  2600.     move.l    a6,-(sp)
  2601.     lea        8(sp),a6
  2602.     move.l    (a6)+,d2
  2603.     move.l    (a6)+,d1
  2604.     move.l    DOSBase,a6
  2605.     jsr        -$270(a6)
  2606.     tst.l    d0
  2607.     sne        d0
  2608.     neg.b    d0
  2609.     move.b    d0,$10(sp)
  2610.     move.l    (sp)+,a6
  2611. end;
  2612.  
  2613. function AssignAdd; xassembler;
  2614. asm
  2615.     move.l    a6,-(sp)
  2616.     lea        8(sp),a6
  2617.     move.l    (a6)+,d2
  2618.     move.l    (a6)+,d1
  2619.     move.l    DOSBase,a6
  2620.     jsr        -$276(a6)
  2621.     tst.l    d0
  2622.     sne        d0
  2623.     neg.b    d0
  2624.     move.b    d0,$10(sp)
  2625.     move.l    (sp)+,a6
  2626. end;
  2627.  
  2628. function RemAssignList; xassembler;
  2629. asm
  2630.     move.l    a6,-(sp)
  2631.     lea        8(sp),a6
  2632.     move.l    (a6)+,d2
  2633.     move.l    (a6)+,d1
  2634.     move.l    DOSBase,a6
  2635.     jsr        -$27C(a6)
  2636.     tst.l    d0
  2637.     sne        d0
  2638.     neg.b    d0
  2639.     move.b    d0,$10(sp)
  2640.     move.l    (sp)+,a6
  2641. end;
  2642.  
  2643. function GetDeviceProc; xassembler;
  2644. asm
  2645.     move.l    a6,-(sp)
  2646.     lea        8(sp),a6
  2647.     move.l    (a6)+,d2
  2648.     move.l    (a6)+,d1
  2649.     move.l    DOSBase,a6
  2650.     jsr        -$282(a6)
  2651.     move.l    d0,$10(sp)
  2652.     move.l    (sp)+,a6
  2653. end;
  2654.  
  2655. procedure FreeDeviceProc; xassembler;
  2656. asm
  2657.     move.l    a6,-(sp)
  2658.     move.l    8(sp),d1
  2659.     move.l    DOSBase,a6
  2660.     jsr        -$288(a6)
  2661.     move.l    (sp)+,a6
  2662. end;
  2663.  
  2664. function LockDosList; xassembler;
  2665. asm
  2666.     move.l    a6,-(sp)
  2667.     move.l    8(sp),d1
  2668.     move.l    DOSBase,a6
  2669.     jsr        -$28E(a6)
  2670.     move.l    d0,$C(sp)
  2671.     move.l    (sp)+,a6
  2672. end;
  2673.  
  2674. procedure UnLockDosList; xassembler;
  2675. asm
  2676.     move.l    a6,-(sp)
  2677.     move.l    8(sp),d1
  2678.     move.l    DOSBase,a6
  2679.     jsr        -$294(a6)
  2680.     move.l    (sp)+,a6
  2681. end;
  2682.  
  2683. function AttemptLockDosList; xassembler;
  2684. asm
  2685.     move.l    a6,-(sp)
  2686.     move.l    8(sp),d1
  2687.     move.l    DOSBase,a6
  2688.     jsr        -$29A(a6)
  2689.     move.l    d0,$C(sp)
  2690.     move.l    (sp)+,a6
  2691. end;
  2692.  
  2693. function RemDosEntry; xassembler;
  2694. asm
  2695.     move.l    a6,-(sp)
  2696.     move.l    8(sp),d1
  2697.     move.l    DOSBase,a6
  2698.     jsr        -$2A0(a6)
  2699.     tst.l    d0
  2700.     sne        d0
  2701.     neg.b    d0
  2702.     move.b    d0,$C(sp)
  2703.     move.l    (sp)+,a6
  2704. end;
  2705.  
  2706. function AddDosEntry; xassembler;
  2707. asm
  2708.     move.l    a6,-(sp)
  2709.     move.l    8(sp),d1
  2710.     move.l    DOSBase,a6
  2711.     jsr        -$2A6(a6)
  2712.     tst.l    d0
  2713.     sne        d0
  2714.     neg.b    d0
  2715.     move.b    d0,$C(sp)
  2716.     move.l    (sp)+,a6
  2717. end;
  2718.  
  2719. function FindDosEntry; xassembler;
  2720. asm
  2721.     movem.l    d3/a6,-(sp)
  2722.     lea        $C(sp),a6
  2723.     move.l    (a6)+,d3
  2724.     move.l    (a6)+,d2
  2725.     move.l    (a6)+,d1
  2726.     move.l    DOSBase,a6
  2727.     jsr        -$2AC(a6)
  2728.     move.l    d0,$18(sp)
  2729.     movem.l    (sp)+,d3/a6
  2730. end;
  2731.  
  2732. function NextDosEntry; xassembler;
  2733. asm
  2734.     move.l    a6,-(sp)
  2735.     lea        8(sp),a6
  2736.     move.l    (a6)+,d2
  2737.     move.l    (a6)+,d1
  2738.     move.l    DOSBase,a6
  2739.     jsr        -$2B2(a6)
  2740.     move.l    d0,$10(sp)
  2741.     move.l    (sp)+,a6
  2742. end;
  2743.  
  2744. function MakeDosEntry; xassembler;
  2745. asm
  2746.     move.l    a6,-(sp)
  2747.     lea        8(sp),a6
  2748.     move.l    (a6)+,d2
  2749.     move.l    (a6)+,d1
  2750.     move.l    DOSBase,a6
  2751.     jsr        -$2B8(a6)
  2752.     move.l    d0,$10(sp)
  2753.     move.l    (sp)+,a6
  2754. end;
  2755.  
  2756. procedure FreeDosEntry; xassembler;
  2757. asm
  2758.     move.l    a6,-(sp)
  2759.     move.l    8(sp),d1
  2760.     move.l    DOSBase,a6
  2761.     jsr        -$2BE(a6)
  2762.     move.l    (sp)+,a6
  2763. end;
  2764.  
  2765. function IsFileSystem; xassembler;
  2766. asm
  2767.     move.l    a6,-(sp)
  2768.     move.l    8(sp),d1
  2769.     move.l    DOSBase,a6
  2770.     jsr        -$2C4(a6)
  2771.     tst.l    d0
  2772.     sne        d0
  2773.     neg.b    d0
  2774.     move.b    d0,$C(sp)
  2775.     move.l    (sp)+,a6
  2776. end;
  2777.  
  2778. function Format; xassembler;
  2779. asm
  2780.     movem.l    d3/a6,-(sp)
  2781.     lea        $C(sp),a6
  2782.     move.l    (a6)+,d3
  2783.     move.l    (a6)+,d2
  2784.     move.l    (a6)+,d1
  2785.     move.l    DOSBase,a6
  2786.     jsr        -$2CA(a6)
  2787.     tst.l    d0
  2788.     sne        d0
  2789.     neg.b    d0
  2790.     move.b    d0,$18(sp)
  2791.     movem.l    (sp)+,d3/a6
  2792. end;
  2793.  
  2794. function Relabel; xassembler;
  2795. asm
  2796.     move.l    a6,-(sp)
  2797.     lea        8(sp),a6
  2798.     move.l    (a6)+,d2
  2799.     move.l    (a6)+,d1
  2800.     move.l    DOSBase,a6
  2801.     jsr        -$2D0(a6)
  2802.     tst.l    d0
  2803.     sne        d0
  2804.     neg.b    d0
  2805.     move.b    d0,$10(sp)
  2806.     move.l    (sp)+,a6
  2807. end;
  2808.  
  2809. function Inhibit; xassembler;
  2810. asm
  2811.     move.l    a6,-(sp)
  2812.     lea        8(sp),a6
  2813.     move.l    (a6)+,d2
  2814.     move.l    (a6)+,d1
  2815.     move.l    DOSBase,a6
  2816.     jsr        -$2D6(a6)
  2817.     tst.l    d0
  2818.     sne        d0
  2819.     neg.b    d0
  2820.     move.b    d0,$10(sp)
  2821.     move.l    (sp)+,a6
  2822. end;
  2823.  
  2824. function AddBuffers; xassembler;
  2825. asm
  2826.     move.l    a6,-(sp)
  2827.     lea        8(sp),a6
  2828.     move.l    (a6)+,d2
  2829.     move.l    (a6)+,d1
  2830.     move.l    DOSBase,a6
  2831.     jsr        -$2DC(a6)
  2832.     tst.l    d0
  2833.     sne        d0
  2834.     neg.b    d0
  2835.     move.b    d0,$10(sp)
  2836.     move.l    (sp)+,a6
  2837. end;
  2838.  
  2839. function CompareDates; xassembler;
  2840. asm
  2841.     move.l    a6,-(sp)
  2842.     lea        8(sp),a6
  2843.     move.l    (a6)+,d2
  2844.     move.l    (a6)+,d1
  2845.     move.l    DOSBase,a6
  2846.     jsr        -$2E2(a6)
  2847.     move.l    d0,$10(sp)
  2848.     move.l    (sp)+,a6
  2849. end;
  2850.  
  2851. function DateToStr; xassembler;
  2852. asm
  2853.     move.l    a6,-(sp)
  2854.     move.l    8(sp),d1
  2855.     move.l    DOSBase,a6
  2856.     jsr        -$2E8(a6)
  2857.     tst.l    d0
  2858.     sne        d0
  2859.     neg.b    d0
  2860.     move.b    d0,$C(sp)
  2861.     move.l    (sp)+,a6
  2862. end;
  2863.  
  2864. function StrToDate; xassembler;
  2865. asm
  2866.     move.l    a6,-(sp)
  2867.     move.l    8(sp),d1
  2868.     move.l    DOSBase,a6
  2869.     jsr        -$2EE(a6)
  2870.     tst.l    d0
  2871.     sne        d0
  2872.     neg.b    d0
  2873.     move.b    d0,$C(sp)
  2874.     move.l    (sp)+,a6
  2875. end;
  2876.  
  2877. function InternalLoadSeg; xassembler;
  2878. asm
  2879.     movem.l    a2/a6,-(sp)
  2880.     lea        $C(sp),a6
  2881.     move.l    (a6)+,a2
  2882.     move.l    (a6)+,a1
  2883.     move.l    (a6)+,a0
  2884.     move.l    (a6)+,d0
  2885.     move.l    DOSBase,a6
  2886.     jsr        -$2F4(a6)
  2887.     move.l    d0,$1C(sp)
  2888.     movem.l    (sp)+,a2/a6
  2889. end;
  2890.  
  2891. function InternalUnLoadSeg; xassembler;
  2892. asm
  2893.     move.l    a6,-(sp)
  2894.     lea        8(sp),a6
  2895.     move.l    (a6)+,a1
  2896.     move.l    (a6)+,d1
  2897.     move.l    DOSBase,a6
  2898.     jsr        -$2FA(a6)
  2899.     tst.l    d0
  2900.     sne        d0
  2901.     neg.b    d0
  2902.     move.b    d0,$10(sp)
  2903.     move.l    (sp)+,a6
  2904. end;
  2905.  
  2906. function NewLoadSeg; xassembler;
  2907. asm
  2908.     move.l    a6,-(sp)
  2909.     lea        8(sp),a6
  2910.     move.l    (a6)+,d2
  2911.     move.l    (a6)+,d1
  2912.     move.l    DOSBase,a6
  2913.     jsr        -$300(a6)
  2914.     move.l    d0,$10(sp)
  2915.     move.l    (sp)+,a6
  2916. end;
  2917.  
  2918. function AddSegment; xassembler;
  2919. asm
  2920.     movem.l    d3/a6,-(sp)
  2921.     lea        $C(sp),a6
  2922.     move.l    (a6)+,d3
  2923.     move.l    (a6)+,d2
  2924.     move.l    (a6)+,d1
  2925.     move.l    DOSBase,a6
  2926.     jsr        -$306(a6)
  2927.     tst.l    d0
  2928.     sne        d0
  2929.     neg.b    d0
  2930.     move.b    d0,$18(sp)
  2931.     movem.l    (sp)+,d3/a6
  2932. end;
  2933.  
  2934. function FindSegment; xassembler;
  2935. asm
  2936.     movem.l    d3/a6,-(sp)
  2937.     lea        $C(sp),a6
  2938.     move.l    (a6)+,d3
  2939.     move.l    (a6)+,d2
  2940.     move.l    (a6)+,d1
  2941.     move.l    DOSBase,a6
  2942.     jsr        -$30C(a6)
  2943.     move.l    d0,$18(sp)
  2944.     movem.l    (sp)+,d3/a6
  2945. end;
  2946.  
  2947. function RemSegment; xassembler;
  2948. asm
  2949.     move.l    a6,-(sp)
  2950.     move.l    8(sp),d1
  2951.     move.l    DOSBase,a6
  2952.     jsr        -$312(a6)
  2953.     tst.l    d0
  2954.     sne        d0
  2955.     neg.b    d0
  2956.     move.b    d0,$C(sp)
  2957.     move.l    (sp)+,a6
  2958. end;
  2959.  
  2960. function CheckSignal; xassembler;
  2961. asm
  2962.     move.l    a6,-(sp)
  2963.     move.l    8(sp),d1
  2964.     move.l    DOSBase,a6
  2965.     jsr        -$318(a6)
  2966.     move.l    d0,$C(sp)
  2967.     move.l    (sp)+,a6
  2968. end;
  2969.  
  2970. function ReadArgs; xassembler;
  2971. asm
  2972.     movem.l    d3/a6,-(sp)
  2973.     lea        $C(sp),a6
  2974.     move.l    (a6)+,d3
  2975.     move.l    (a6)+,d2
  2976.     move.l    (a6)+,d1
  2977.     move.l    DOSBase,a6
  2978.     jsr        -$31E(a6)
  2979.     move.l    d0,$18(sp)
  2980.     movem.l    (sp)+,d3/a6
  2981. end;
  2982.  
  2983. function FindArg; xassembler;
  2984. asm
  2985.     move.l    a6,-(sp)
  2986.     lea        8(sp),a6
  2987.     move.l    (a6)+,d2
  2988.     move.l    (a6)+,d1
  2989.     move.l    DOSBase,a6
  2990.     jsr        -$324(a6)
  2991.     move.l    d0,$10(sp)
  2992.     move.l    (sp)+,a6
  2993. end;
  2994.  
  2995. function ReadItem; xassembler;
  2996. asm
  2997.     movem.l    d3/a6,-(sp)
  2998.     lea        $C(sp),a6
  2999.     move.l    (a6)+,d3
  3000.     move.l    (a6)+,d2
  3001.     move.l    (a6)+,d1
  3002.     move.l    DOSBase,a6
  3003.     jsr        -$32A(a6)
  3004.     move.l    d0,$18(sp)
  3005.     movem.l    (sp)+,d3/a6
  3006. end;
  3007.  
  3008. function StrToLong; xassembler;
  3009. asm
  3010.     move.l    a6,-(sp)
  3011.     lea        8(sp),a6
  3012.     move.l    (a6)+,d2
  3013.     move.l    (a6)+,d1
  3014.     move.l    DOSBase,a6
  3015.     jsr        -$330(a6)
  3016.     move.l    d0,$10(sp)
  3017.     move.l    (sp)+,a6
  3018. end;
  3019.  
  3020. function MatchFirst; xassembler;
  3021. asm
  3022.     move.l    a6,-(sp)
  3023.     lea        8(sp),a6
  3024.     move.l    (a6)+,d2
  3025.     move.l    (a6)+,d1
  3026.     move.l    DOSBase,a6
  3027.     jsr        -$336(a6)
  3028.     move.l    d0,$10(sp)
  3029.     move.l    (sp)+,a6
  3030. end;
  3031.  
  3032. function MatchNext; xassembler;
  3033. asm
  3034.     move.l    a6,-(sp)
  3035.     move.l    8(sp),d1
  3036.     move.l    DOSBase,a6
  3037.     jsr        -$33C(a6)
  3038.     move.l    d0,$C(sp)
  3039.     move.l    (sp)+,a6
  3040. end;
  3041.  
  3042. procedure MatchEnd; xassembler;
  3043. asm
  3044.     move.l    a6,-(sp)
  3045.     move.l    8(sp),d1
  3046.     move.l    DOSBase,a6
  3047.     jsr        -$342(a6)
  3048.     move.l    (sp)+,a6
  3049. end;
  3050.  
  3051. function ParsePattern; xassembler;
  3052. asm
  3053.     movem.l    d3/a6,-(sp)
  3054.     lea        $C(sp),a6
  3055.     move.l    (a6)+,d3
  3056.     move.l    (a6)+,d2
  3057.     move.l    (a6)+,d1
  3058.     move.l    DOSBase,a6
  3059.     jsr        -$348(a6)
  3060.     move.l    d0,$18(sp)
  3061.     movem.l    (sp)+,d3/a6
  3062. end;
  3063.  
  3064. function MatchPattern; xassembler;
  3065. asm
  3066.     move.l    a6,-(sp)
  3067.     lea        8(sp),a6
  3068.     move.l    (a6)+,d2
  3069.     move.l    (a6)+,d1
  3070.     move.l    DOSBase,a6
  3071.     jsr        -$34E(a6)
  3072.     tst.l    d0
  3073.     sne        d0
  3074.     neg.b    d0
  3075.     move.b    d0,$10(sp)
  3076.     move.l    (sp)+,a6
  3077. end;
  3078.  
  3079. procedure FreeArgs; xassembler;
  3080. asm
  3081.     move.l    a6,-(sp)
  3082.     move.l    8(sp),d1
  3083.     move.l    DOSBase,a6
  3084.     jsr        -$35A(a6)
  3085.     move.l    (sp)+,a6
  3086. end;
  3087.  
  3088. function FilePart; xassembler;
  3089. asm
  3090.     move.l    a6,-(sp)
  3091.     move.l    8(sp),d1
  3092.     move.l    DOSBase,a6
  3093.     jsr        -$366(a6)
  3094.     move.l    d0,$C(sp)
  3095.     move.l    (sp)+,a6
  3096. end;
  3097.  
  3098. function PathPart; xassembler;
  3099. asm
  3100.     move.l    a6,-(sp)
  3101.     move.l    8(sp),d1
  3102.     move.l    DOSBase,a6
  3103.     jsr        -$36C(a6)
  3104.     move.l    d0,$C(sp)
  3105.     move.l    (sp)+,a6
  3106. end;
  3107.  
  3108. function AddPart; xassembler;
  3109. asm
  3110.     movem.l    d3/a6,-(sp)
  3111.     lea        $C(sp),a6
  3112.     move.l    (a6)+,d3
  3113.     move.l    (a6)+,d2
  3114.     move.l    (a6)+,d1
  3115.     move.l    DOSBase,a6
  3116.     jsr        -$372(a6)
  3117.     tst.l    d0
  3118.     sne        d0
  3119.     neg.b    d0
  3120.     move.b    d0,$18(sp)
  3121.     movem.l    (sp)+,d3/a6
  3122. end;
  3123.  
  3124. function StartNotify; xassembler;
  3125. asm
  3126.     move.l    a6,-(sp)
  3127.     move.l    8(sp),d1
  3128.     move.l    DOSBase,a6
  3129.     jsr        -$378(a6)
  3130.     tst.l    d0
  3131.     sne        d0
  3132.     neg.b    d0
  3133.     move.b    d0,$C(sp)
  3134.     move.l    (sp)+,a6
  3135. end;
  3136.  
  3137. procedure EndNotify; xassembler;
  3138. asm
  3139.     move.l    a6,-(sp)
  3140.     move.l    8(sp),d1
  3141.     move.l    DOSBase,a6
  3142.     jsr        -$37E(a6)
  3143.     move.l    (sp)+,a6
  3144. end;
  3145.  
  3146. function SetVar; xassembler;
  3147. asm
  3148.     movem.l    d3-d4/a6,-(sp)
  3149.     lea        $10(sp),a6
  3150.     move.l    (a6)+,d4
  3151.     move.l    (a6)+,d3
  3152.     move.l    (a6)+,d2
  3153.     move.l    (a6)+,d1
  3154.     move.l    DOSBase,a6
  3155.     jsr        -$384(a6)
  3156.     tst.l    d0
  3157.     sne        d0
  3158.     neg.b    d0
  3159.     move.b    d0,$20(sp)
  3160.     movem.l    (sp)+,d3-d4/a6
  3161. end;
  3162.  
  3163. function GetVar; xassembler;
  3164. asm
  3165.     movem.l    d3-d4/a6,-(sp)
  3166.     lea        $10(sp),a6
  3167.     move.l    (a6)+,d4
  3168.     move.l    (a6)+,d3
  3169.     move.l    (a6)+,d2
  3170.     move.l    (a6)+,d1
  3171.     move.l    DOSBase,a6
  3172.     jsr        -$38A(a6)
  3173.     move.l    d0,$20(sp)
  3174.     movem.l    (sp)+,d3-d4/a6
  3175. end;
  3176.  
  3177. function DeleteVar; xassembler;
  3178. asm
  3179.     move.l    a6,-(sp)
  3180.     lea        8(sp),a6
  3181.     move.l    (a6)+,d2
  3182.     move.l    (a6)+,d1
  3183.     move.l    DOSBase,a6
  3184.     jsr        -$390(a6)
  3185.     tst.l    d0
  3186.     sne        d0
  3187.     neg.b    d0
  3188.     move.b    d0,$10(sp)
  3189.     move.l    (sp)+,a6
  3190. end;
  3191.  
  3192. function FindVar; xassembler;
  3193. asm
  3194.     move.l    a6,-(sp)
  3195.     lea        8(sp),a6
  3196.     move.l    (a6)+,d2
  3197.     move.l    (a6)+,d1
  3198.     move.l    DOSBase,a6
  3199.     jsr        -$396(a6)
  3200.     move.l    d0,$10(sp)
  3201.     move.l    (sp)+,a6
  3202. end;
  3203.  
  3204. function CliInitNewcli; xassembler;
  3205. asm
  3206.     move.l    a6,-(sp)
  3207.     move.l    8(sp),a0
  3208.     move.l    DOSBase,a6
  3209.     jsr        -$3A2(a6)
  3210.     move.l    d0,$C(sp)
  3211.     move.l    (sp)+,a6
  3212. end;
  3213.  
  3214. function CliInitRun; xassembler;
  3215. asm
  3216.     move.l    a6,-(sp)
  3217.     move.l    8(sp),a0
  3218.     move.l    DOSBase,a6
  3219.     jsr        -$3A8(a6)
  3220.     move.l    d0,$C(sp)
  3221.     move.l    (sp)+,a6
  3222. end;
  3223.  
  3224. function WriteChars; xassembler;
  3225. asm
  3226.     move.l    a6,-(sp)
  3227.     lea        8(sp),a6
  3228.     move.l    (a6)+,d2
  3229.     move.l    (a6)+,d1
  3230.     move.l    DOSBase,a6
  3231.     jsr        -$3AE(a6)
  3232.     move.l    d0,$10(sp)
  3233.     move.l    (sp)+,a6
  3234. end;
  3235.  
  3236. function PutStr; xassembler;
  3237. asm
  3238.     move.l    a6,-(sp)
  3239.     move.l    8(sp),d1
  3240.     move.l    DOSBase,a6
  3241.     jsr        -$3B4(a6)
  3242.     move.l    d0,$C(sp)
  3243.     move.l    (sp)+,a6
  3244. end;
  3245.  
  3246. function VPrintf; xassembler;
  3247. asm
  3248.     move.l    a6,-(sp)
  3249.     lea        8(sp),a6
  3250.     move.l    (a6)+,d2
  3251.     move.l    (a6)+,d1
  3252.     move.l    DOSBase,a6
  3253.     jsr        -$3BA(a6)
  3254.     move.l    d0,$10(sp)
  3255.     move.l    (sp)+,a6
  3256. end;
  3257.  
  3258. function ParsePatternNoCase; xassembler;
  3259. asm
  3260.     movem.l    d3/a6,-(sp)
  3261.     lea        $C(sp),a6
  3262.     move.l    (a6)+,d3
  3263.     move.l    (a6)+,d2
  3264.     move.l    (a6)+,d1
  3265.     move.l    DOSBase,a6
  3266.     jsr        -$3C6(a6)
  3267.     move.l    d0,$18(sp)
  3268.     movem.l    (sp)+,d3/a6
  3269. end;
  3270.  
  3271. function MatchPatternNoCase; xassembler;
  3272. asm
  3273.     move.l    a6,-(sp)
  3274.     lea        8(sp),a6
  3275.     move.l    (a6)+,d2
  3276.     move.l    (a6)+,d1
  3277.     move.l    DOSBase,a6
  3278.     jsr        -$3CC(a6)
  3279.     tst.l    d0
  3280.     sne        d0
  3281.     neg.b    d0
  3282.     move.b    d0,$10(sp)
  3283.     move.l    (sp)+,a6
  3284. end;
  3285.  
  3286. function SameDevice; xassembler;
  3287. asm
  3288.     move.l    a6,-(sp)
  3289.     lea        8(sp),a6
  3290.     move.l    (a6)+,d2
  3291.     move.l    (a6)+,d1
  3292.     move.l    DOSBase,a6
  3293.     jsr        -$3D8(a6)
  3294.     tst.l    d0
  3295.     sne        d0
  3296.     neg.b    d0
  3297.     move.b    d0,$10(sp)
  3298.     move.l    (sp)+,a6
  3299. end;
  3300.  
  3301. end.
  3302.