TEST FOR DP INTEGER FUNCTIONS
'LIBRARY' "LB:[1,1]CORALK.LIB"
'LIBRARY' "LB:[1,1]FLOATK.LIB"
'LIBRARY' "LY:[200,201]CNLA3K.LIB"
'LIBRARY' "LY:[200,201]CNLI5K.LIB"
'BEGIN'
  'INTEGER' JHI,JLO,KHI,KLO,LHI,LLO,I; 'FLOATING' X;
  'PROCEDURE' REPORT;
  WRITEF2(", V= %I3, FLOERRORCODE= %N*N",V,FLOERRORCODE);
REPEAT:
  JHI:=READRADIX(16); JLO:=READRADIX(16); KHI:=READRADIX(16); KLO:=READRADIX(16);
  X:=READFLO; I:=READNUMBER;
  WRITEF5("J: %X4%X4, K: %X4%X4, I: %N*N",JHI,JLO,KHI,KLO,I);
  WRITETEXT("FLOAT: "); WRITEFLO(JFLOAT(JHI),10,1); REPORT;
  WRITEF1("J->I: %N",IJCVT(JHI)); REPORT;
  WRITEF1("SIGN: %N",JSIGN(JHI)); REPORT;
  WRITEF1("COMPARE: %N*N",JCMP(JHI,KHI));
  JADD(LHI,JHI,KHI); WRITEF2("ADD: %X4%X4",LHI,LLO); REPORT;
  JSUB(LHI,JHI,KHI); WRITEF2("SUBTRACT: %X4%X4",LHI,LLO); REPORT;
  JMUL(LHI,JHI,KHI); WRITEF2("MULTIPLY: %X4%X4",LHI,LLO); REPORT;
  JDIV(LHI,JHI,KHI); WRITEF2("DIVIDE: %X4%X4",LHI,LLO); REPORT;
  JFIX(LHI,X); WRITEF2("FIX: %X4%X4",LHI,LLO); REPORT;
  JICVT(JHI,I); WRITEF2("I->J: %X4%X4",JHI,JLO); REPORT;
  'GOTO' REPEAT;
'END'
'FINISH'