home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG051.ARK / FLD1.DAT < prev    next >
Text File  |  1984-04-29  |  5KB  |  99 lines
  1. 1.  IF FLUB IS CORRECT, OUTPUT CONSISTS ONLY OF NUMBERED LINES.
  2. 2.  FIRST TWO LINES RELY ON READ NEXT *, WRITE NEXT * AND VAL * = 1 + 0
  3.     TO ** FAILED.
  4.     TO ** IF FLG * = * FAILS ON EQUAL.
  5.     TO ** IF FLG * = * TRANSFERS ON UNEQUAL.
  6.     TO ** IF FLG * NE * FAILS ON UNEQUAL.
  7.     TO ** IF FLG * NE * TRANSFERS ON EQUAL.
  8.     TO ** IF VAL * = * FAILS ON EQUAL.
  9.     TO ** IF VAL * = * TRANSFERS ON UNEQUAL.
  10.     TO ** IF VAL * NE * FAILS ON UNEQUAL.
  11.     TO ** IF VAL * NE * TRANSFERS ON EQUAL.
  12.     TO ** IF PTR * = * FAILS ON EQUAL.
  13.     TO ** IF PTR * = * TRANSFERS ON UNEQUAL.
  14.     TO ** IF PTR * NE * FAILS ON UNEQUAL.
  15.     TO ** IF PTR * NE * TRANSFERS ON EQUAL.
  16.     TO ** IF PTR * GE * FAILS ON GREATER.
  17.     TO ** IF PTR * GE * FAILS ON EQUAL.
  18.     TO ** IF PTR * GE * TRANSFERS ON LESS.
  19.     FLG * = * FAILS.
  20.     VAL * = PTR * FAILS.
  21.     PTR * = VAL * FAILS.
  22.     VAL * = PTR * CHANGED PTR FIELD.
  23.     VAL * = PTR * CHANGED FLG FIELD.
  24.     PTR * = VAL * CHANGED VAL FIELD.
  25.     PTR * = VAL * CHANGED FLG FIELD.
  26.     FLG * = * CHANGEDTMTR FIELD.
  27.     FLG * = * CHANGED VAL FIELD.
  28. 3.  BASIC CONDITIONALS AND ASSIGNMENTS (VAL TO PTR, PTR TO VAL AND FLG
  29. 4.  TO FLG) HAVE BEEN CHECKED WITH POSITIVE OPERANDS.
  30.     VAL * = * + * FAILS FOR ALL +.
  31.     VAL * = * + * CHANGED FLG FIELD  ALL +.
  32.     VAL * = * + * CHANGED PTR FIELD  ALL+.
  33. 5.  THE NEXT TWO CARD NUMBERS TEST VAL * = CHAR AND CHAR = VAL *.
  34. 6.  0 X X X X X X X X X ARE THE CONTENTS OF VAL 0 - VAL 9.
  35. 7.  X X X X ARE THE CONTENTS OF PTR 0 - PTR 3.
  36.     VAL * = * - * FAILS  ALL +.
  37.     VAL * = * - * CHANGED FLG FIELD  ALL+.
  38.     VAL * = * - * CHANGED PTR FIELD  ALL+.
  39.     VAL * = * - * FAILS RES. - OR VAL * = * + * FAILS OP1 -.
  40.     VAL * = * - * CHANGED FLG FIELD  RESULT -.
  41.     VAL * = * - * CHANGED PTR FIELD  RESULT -.
  42.     VAL * = * + * FAILS  OP1 - OP2 + RESULT -.
  43.     VAL * = * + * FAILS  OP1 - OP2 -.
  44.     VAL * = * - * FAILS  OP1 - OP2 +.
  45.     VAL * = * - * FAILS  OP1+ OP2-.
  46.     PTR * = * + * FAILS  ALL +.
  47.     PTR * = * + * CHANGED FLG FIELD.
  48.     PTR * = * + * CHANGED VAL FIELD.
  49.     PTR * = * - * FAILS ALL +.
  50.     PTR * = * - * CHANGED FLG FIELD ALL +.
  51.     PTR * = * - * CHANGED VAL FIELD  ALL +.
  52.     PTR * = * - * FAILS  RES. - OR PTR * = * + * FAILS OP 1 -.
  53.     PTR * = * - * CHANGED FLG FIELD  RESULT -.
  54.     PTR * = * - * CHANGED VAL FIELD  RESULT -.
  55.     PTR * = * + * FAILS  OP1 - OP2 + RESULT -.
  56.     PTR * = * + * FAILS  OP1 - OP2 -.
  57.     PTR * = * - * FAILS  OP1 - OP2 +.
  58.     PTR * = * - * FAILS  OP1 + OP2 -.
  59.     VAL * = PTR * FAILS ON -.
  60.     VAL * = PTR * CHANGED FLG ON -.
  61.     VAL * = PTR * CHANGED PTR ON -.
  62.     PTR * = VAL * FAILS ON -.
  63.     PTR * = VAL * CHANGED FLG ON -.
  64.     PTR * = VAL * CHANGED VAL ON -.
  65.     PTR * = * * * FAILS BOTH +.
  66.     PTR * = * * * CHANGED FLG FIELD  BOTH +.
  67.     PTR * = * * * CHANGED VAL FIELD  BOTH +.
  68.     PTR * = * * * FAILS BOTH -.
  69.     PTR * = * * * FAILS  OP1 - OP2 +.
  70.     PTR * = * * * CHANGED FLG FIELD  OP1 - OP2 +.
  71.     PTR * = * * * CHANGED VAL FIELD  OP1 - OP2 +.
  72.     PTR * = * * * FAILS  OP1 + OP2 -.
  73.     PTR * = * / * FAILS  BOTH + INTEGRAL RESULT.
  74.     PTR * = * / * CHANGED FLG FIELD  BOTH + INTEGRAL RESULT.
  75.     PTR * = * / * CHANGED VAL FIELD  BOTH + INTEGRAL RESULT.
  76.     PTR * = * / * FAILS  BOTH - INTEGRAL RESULT.
  77.     PTR * = * / * FAILS  OP1 - OP2 + INTEGRAL RESULT.
  78.     PTR * = * / * CHANGED FLG FIELD  OP1 - OP2 + INTEGRAL RESULT.
  79.     PTR * = * / * CHANGED VAL FIELD  OP1 - OP2 +.
  80.     PTR * = * / * FAILS OP1 + OP2 - INTEGRAL RESULT.
  81.     PTR * = * / * FAILS  BOTH + NON-INTEGRAL QUOTIENT.
  82.     PTR * = * / * CHANGED FLG FIELD BOTH + NON-INTEGRAL QUOTIENT.
  83.     PTR * = * / * CHANGED VAL FIELD  BOTH +  NON-INTEGRAL QUOTIENT.
  84.     PTR * = * / * FAILS  OP1 + OP2 - NON-INTEGRAL QUOTIENT.
  85.     PTR * = * / * CHANGED FLG FIELD  OP1 + OP2 - NON-INTEGRAL QUOTIENT.
  86.     PTR * = * / * CHANGED VAL FIELD  OP1 + OP2 - NON-INTEGRAL QUOTIENT.
  87.     TO ** IF VAL * = * TRANSFERS ON OP1 = -OP2.
  88.     TO ** IF VAL * NE * FAILS ON UNEQUAL, OPPOSITE SIGN.
  89.     TO ** IF PTR * = * TRANSFERS ON OP1 = -OP2.
  90.     TO ** IF PTR * NE * FAILS ON UNEQUAL, OPPOSITE SIGN.
  91.     TO ** IF PTR * GE * FAILS ON OP1 + OP2 -  ABS OP1 GT ABS OP2.
  92.     TO ** IF PTR * GE * TRANSFERS ON OP1 - OP2 + ABS OP1 GT ABS OP2.
  93.     TO ** IF PTR * GE * FAILS ON OP1 - OP2 - OP1 GT OP2.
  94.     TO ** IF PTR * GE * TRANSFERS ON OP1 - OP2 - OP2 GT OP1.
  95. 8.  FURTHER CONDITIONAL AND REGISTER ARITHMETIC CHECKING IS COMPLETE.
  96. 9.  IF LINE 10 IS MISSING AND 9 DUPLICATED, TO ** BY * FAILED.
  97. 10. IF LINE 11 IS MISSING, RETURN BY * FAILED.
  98. 11. CHECK OF TO AND RETURN COMPLETED.
  99.