开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编译器/解释器 > 查看源码
asm.imp
资源名称：pascal2c.tar.Z　[点击查看]
上传用户：upcnvip
上传日期：2007-01-06
资源大小：474k
文件大小：1k
源码类别：

编译器/解释器

开发平台：

C/C++

asm.imp：源码内容
  3. {IncludeFrom=asm <p2c/asm.h>}
  6. {*VarStrings=1} {*ExportSymbol=asm_%s}
  9. module asm;
  10. import sysglobals;
  11. export
  12. type
  13. stringmax = string[255];
  14.  procedure moveleft (anyvar s,d: integer; z:integer);
  15.  procedure moveright(anyvar s,d: integer; z:integer);
  16.  procedure fastmove (       s,d: anyptr;  z:integer);
  17.  procedure newbytes(var p: anyptr;        z:integer);
  18.  procedure powerup;
  19.  procedure errmsg;
  20.  procedure findroms;
  21.  procedure f_pwr_on;
  22.  procedure flpyread(sector: integer;  anyvar buffer: integer);
  23.  procedure flpy_wrt(sector: integer;  anyvar buffer: integer);
  24.  procedure flpymread(sector_count, sector: integer;  anyvar buffer: integer);
  25.  procedure flpymwrite(sector_count, sector: integer;  anyvar buffer: integer);
  26.  procedure flpyinit(ptr: anyptr; i: shortint);
  27.  procedure setintlevel(level: integer);
  28.  function  intlevel:  integer;
  29.  procedure newwords(var p: anyptr; wordsize: integer);
  30.  procedure userprogram (execloc,initsp: integer);
  31.  procedure sappend(var dest: string;src:stringmax);
  32.  function iand(a,b: integer): integer;
  33.  function ior (a,b: integer): integer;
  34.  procedure ci_switch;
  35.  procedure initvects;
  36.  procedure cpymsg(msg: string255);
  37.  function memavail:integer;
  38.  function ticker:integer;
  39.  procedure cache_on;
  40.  procedure cache_off;
  41.  procedure icache_off;
  42.  procedure icache_on;
  43.  procedure flush_icache;
  46. end.