File r30/mkred1.mic artifact e17b3830f5 part of check-in trunk

.AS DSK: SYS:
.R LISP 70
*Y
*7000
100000
600
600
475
*(SETQ FISLSIZE 1500)
*(LOAD RLISP REND ALG1 ALG2 REND2 ENTRY)
*(EXCISE)
*(QUIT)
.SA REDUCE
.DEAS SYS: