File r30/mkred1.mic from the latest check-in

.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: