Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0002/maktab.sai
There is 1 other file named maktab.sai in the archive. Click here to see a list.
COMMENT    VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	HISTORY
C00003 00003	BEGIN "MAKE TABLE"
C00010 ENDMK
C;

COMMENT HISTORY
AUTHOR,SAIL,REASON
025  300300000002  ;


COMMENT 
jfr 6-11-76 KL10 opcodes
VERSION 3-3(2) 2-6-72 BY DCS BUG #GN# INCLUDE UUOS, FIX BUGS IN STARTCODE OPCODES
VERSION 3-3(1) 12-2-71 BY DCS INSTALL VERSION NUMBER

;


BEGIN "MAKE TABLE"
  DEFINE VERSIONNUMBER = "'300300000002";
 INTEGER I,J,K,L;
 DEFINE SIZE="'1000";
 DEFINE SIZE1="SIZE-'40";
REQUIRE "<><>" DELIMITERS;
IFC EQU(COMPILER!BANNER[LENGTH(SCANC(COMPILER!BANNER,"-",NULL,
	"IA"))+1 FOR 8],"TYMSHARE") THENC
   DEFINE ZOT=<"CALL","INIT","AUXCAL","CHANIO",[3]NULL,"CALLI",>; ELSEC
   DEFINE ZOT=<"CALL","INIT",[5]NULL,"CALLI",>; ENDC;
 PRELOADWITH 
   ZOT
  "OPEN","TTCALL",[3]NULL,"RENAME","IN","OUT",
  "SETSTS","STATO","GETSTS","STATZ","INBUF","OUTBUF","INPUT","OUTPUT",
  "CLOSE","RELEASE","MTAPE","UGETF","USETI","USETO","LOOKUP","ENTER",
  [5]NULL,"ADJSP",[2]NULL,
  "DFAD","DFSB","DFMP","DFDV","DADD","DSUB","DMUL","DDIV",
  "DMOVE","DMOVN","KIFIX","EXTEND","DMOVEM","DMOVNM","FIXR","FLTR",
  "UFA","DFN","FSC","IBP","ILDB","LDB","IDPB","DPB",
  "FAD","FADL","FADM","FADB","FADR","FADRI","FADRM","FADRB",
  "FSB","FSBL","FSBM","FSBB","FSBR","FSBRI","FSBRM","FSBRB",
  "FMP","FMPL","FMPM","FMPB","FMPR","FMPRI","FMPRM","FMPRB",
  "FDV","FDVL","FDVM","FDVB","FDVR","FDVRI","FDVRM","FDVRB",
  "MOVE","MOVEI","MOVEM","MOVES","MOVS","MOVSI","MOVSM","MOVSS",
  "MOVN","MOVNI","MOVNM","MOVNS","MOVM","MOVMI","MOVMM","MOVMS",
  "IMUL","IMULI","IMULM","IMULB","MUL","MULI","MULM","MULB",
  "IDIV","IDIVI","IDIVM","IDIVB","DIV","DIVI","DIVM","DIVB",
  "ASH","ROT","LSH","JFFO","ASHC","ROTC","LSHC","",
  "EXCH","BLT","AOBJP","AOBJN","JRST","JFCL","XCT","" ,
  "PUSHJ","PUSH","POP","POPJ","JSR","JSP","JSA","JRA",
  "ADD","ADDI","ADDM","ADDB","SUB","SUBI","SUBM","SUBB",
  "CAI","CAIL","CAIE","CAILE","CAIA","CAIGE","CAIN","CAIG",
  "CAM","CAML","CAME","CAMLE","CAMA","CAMGE","CAMN","CAMG",
  "JUMP","JUMPL","JUMPE","JUMPLE","JUMPA","JUMPGE","JUMPN","JUMPG",
  "SKIP","SKIPL","SKIPE","SKIPLE","SKIPA","SKIPGE","SKIPN","SKIPG",
  "AOJ","AOJL","AOJE","AOJLE","AOJA","AOJGE","AOJN","AOJG",
  "AOS","AOSL","AOSE","AOSLE","AOSA","AOSGE","AOSN","AOSG",
  "SOJ","SOJL","SOJE","SOJLE","SOJA","SOJGE","SOJN","SOJG",
  "SOS","SOSL","SOSE","SOSLE","SOSA","SOSGE","SOSN","SOSG",
  "SETZ","SETZI","SETZM","SETZB","AND","ANDI","ANDM","ANDB",
  "ANDCA","ANDCAI","ANDCAM","ANDCAB","SETM","SETMI","SETMM","SETMB",
  "ANDCM","ANDCMI","ANDCMM","ANDCMB","SETA","SETAI","SETAM","SETAB",
  "XOR","XORI","XORM","XORB","IOR","IORI","IORM","IORB",
  "ANDCB","ANDCBI","ANDCBM","ANDCBB","EQV","EQVI","EQVM","EQVB",
  "SETCA","SETCAI","SETCAM","SETCAB","ORCA","ORCAI","ORCAM","ORCAB",
  "SETCM","SETCMI","SETCMM","SETCMB","ORCM","ORCMI","ORCMM","ORCMB",
  "ORCB","ORCBI","ORCBM","ORCBB","SETO","SETOI","SETOM","SETOB",
  "HLL","HLLI","HLLM","HLLS","HRL","HRLI","HRLM","HRLS",
  "HLLZ","HLLZI","HLLZM","HLLZS","HRLZ","HRLZI","HRLZM","HRLZS",
  "HLLO","HLLOI","HLLOM","HLLOS","HRLO","HRLOI","HRLOM","HRLOS",
  "HLLE","HLLEI","HLLEM","HLLES","HRLE","HRLEI","HRLEM","HRLES",
  "HRR","HRRI","HRRM","HRRS","HLR","HLRI","HLRM","HLRS",
  "HRRZ","HRRZI","HRRZM","HRRZS","HLRZ","HLRZI","HLRZM","HLRZS",
  "HRRO","HRROI","HRROM","HRROS","HLRO","HLROI","HLROM","HLROS",
  "HRRE","HRREI","HRREM","HRRES","HLRE","HLREI","HLREM","HLRES",
  "TRN","TLN","TRNE","TLNE","TRNA","TLNA","TRNN","TLNN",
  "TDN","TSN","TDNE","TSNE","TDNA","TSNA","TDNN","TSNN",
  "TRZ","TLZ","TRZE","TLZE","TRZA","TLZA","TRZN","TLZN",
  "TDZ","TSZ","TDZE","TSZE","TDZA","TSZA","TDZN","TSZN",
  "TRC","TLC","TRCE","TLCE","TRCA","TLCA","TRCN","TLCN",
  "TDC","TSC","TDCE","TSCE","TDCA","TSCA","TDCN","TSCN",
  "TRO","TLO","TROE","TLOE","TROA","TLOA","TRON","TLON",
  "TDO","TSO","TDOE","TSOE","TDOA","TSOA","TDON","TSON",
  NULL,"DPYCLR","PPIOT","UPGIOT","UINBF","UOUTBF","FBREAD","FBWRT",
  "MAIL","PTYUUO","POINTS","UPGMVE","UPGMVM","PGIOT","CHNSTS","CLKUUO",
  "INTMSK","IMSKST","IMSKCL","INTUUO";

  STRING ARRAY INP[1:SIZE]; INTEGER ARRAY OUTP[1:SIZE];


  FOR I_1 STEP 1 UNTIL SIZE1 DO
   OUTP[I]_CVSIX(INP[I]);

 OPEN(1,"DSK",'17,0,0,0,J,J);
 ENTER(1,"2OPS2.OPS",J);
 ARRYOUT(1,OUTP[1],SIZE);
 RELEASE(1);
END "MAKE TABLE";