Conference heron::euro_swas_ai

126.0. "RISC LISP ON ITS WAY" by HERON::KANE () Thu Aug 10 1989 09:56

From:	AIPERS::YOUNG        "AI PERSONNEL SYSTEMS/COMPENSATION"  9-AUG-1989 16:42:23.82
To:	OPERATOR
CC:	
Subj:	MESSAGE FOR AITC DISTRIBUTION

		**** THIS MESSAGE IS FROM STEPHEN SAVIGNANO  ****


The LISP development group is pleased to announce that at approximately
3:30 on August 9, the first LISP function was successfully compiled
(using the new optimizing compiler, POLO) and EXECUTED on the
DECstation 3100 (MIPS) RISC processor.  

This is a significant milestone for the DEC LISP V1.0 project.  The
next major milestone is to get a complete READ-EVAL-PRINT loop running.
Congratulations to everyone involved.

-------------------------------------------------------------------------------

Compiled at 15:14:11 on Wednesday, 9 August 1989 by PIAZZA      

Starting compilation of file FIB.LSP

(DEFUN %SP-COLDLOAD-SYSTEM ()
  (F 10) 
  (F 20) 
  NIL)

00000 00000000        sll $0,$0,0
00004 00000000        sll $0,$0,0
00008 FC000003        .entry 0,0,3
0000C 26F7FFF0        addiu $cs,$cs,-16
00010 000F40C0        sll $8,$nargs,3
00014 AEE80010        sw $8,16($cs)
00018 AEF60004        sw $func,4($cs)
0001C 38000001        nop
00020 8EF10004        lw $arg1,4($cs)
00024 38000001        nop
00028 AEFF0000        sw $ret,0($cs)
0002C 38000001        nop
00030 340F0001        ori $nargs,$0,1
00034 34100050        ori $arg0,$0,80
00038 8E310010        lw $arg1,16($arg1)
0003C 38000001        nop
00040 8E33FFF2        lw $temp3,-14($arg1)
00044 8E36FFF6        lw $func,-10($arg1)
00048 38000003        nop            ;align for return point
0004C 0260F809        jalr $ret,$temp3
00050 380000A2        .return 0,20,2
00054 8EF10004        lw $arg1,4($cs)
00058 38000001        nop
0005C 340F0001        ori $nargs,$0,1
00060 341000A0        ori $arg0,$0,160
00064 8E310014        lw $arg1,20($arg1)
00068 38000001        nop
0006C 8E33FFF2        lw $temp3,-14($arg1)
00070 8E36FFF6        lw $func,-10($arg1)
00074 0260F809        jalr $ret,$temp3
00078 380000F2        .return 0,30,2
0007C 8EF10000        lw $arg1,0($cs)
00080 38000001        nop
00084 001E8020        add $arg0,$0,$nil
00088 26F70010        addiu $cs,$cs,16
0008C 02200008        jr $arg1
00090 8EF60004        lw $func,4($cs)
%SP-COLDLOAD-SYSTEM compiled.

(DEFUN F (X) 
  (IF (EQ X 2) 
      1 
      (IF (EQ X 1) 
	  1 
	 (+& (F (-& X 1)) 
	     (F (-& X 2))))))

00000 00000000        sll $0,$0,0
00004 00000000        sll $0,$0,0
00008 FC000003        .entry 0,0,3
0000C 26F7FFE4        addiu $cs,$cs,-28
00010 000F40C0        sll $8,$nargs,3
00014 AEE80010        sw $8,16($cs)
00018 AEF60004        sw $func,4($cs)
0001C 38000001        nop
00020 AEFF0000        sw $ret,0($cs)
00024 38000001        nop
00028 AEF00018        sw $arg0,24($cs)
0002C 38000001        nop
00030 8EF00018        lw $arg0,24($cs)
00034 38000001        nop
00038 34110010        ori $arg1,$0,16
0003C 12110003        beq $arg0,$arg1,0x4C
00040 38000001        nop
00044 10000033        beq $0,$0,0x114
00048 38000001        nop
0004C 8EF10000        lw $arg1,0($cs)
00050 38000001        nop
00054 34100008        ori $arg0,$0,8
00058 26F7001C        addiu $cs,$cs,28
0005C 02200008        jr $arg1
00060 8EF60004        lw $func,4($cs)
00064 8EF20018        lw $arg2,24($cs)
00068 38000001        nop
0006C 8EF10004        lw $arg1,4($cs)
00070 38000001        nop
00074 34130008        ori $temp3,$0,8
00078 02538022        sub $arg0,$arg2,$temp3
0007C 340F0001        ori $nargs,$0,1
00080 8E310010        lw $arg1,16($arg1)
00084 38000001        nop
00088 8E33FFF2        lw $temp3,-14($arg1)
0008C 8E36FFF6        lw $func,-10($arg1)
00090 38000003        nop            ;align for return point
00094 0260F809        jalr $ret,$temp3
00098 38000132        .return 0,38,2
0009C 8EF20018        lw $arg2,24($cs)
000A0 38000001        nop
000A4 8EF10004        lw $arg1,4($cs)
000A8 38000001        nop
000AC AEF00014        sw $arg0,20($cs)
000B0 38000001        nop
000B4 34130010        ori $temp3,$0,16
000B8 02538022        sub $arg0,$arg2,$temp3
000BC 340F0001        ori $nargs,$0,1
000C0 8E310014        lw $arg1,20($arg1)
000C4 38000001        nop
000C8 8E33FFF2        lw $temp3,-14($arg1)
000CC 8E36FFF6        lw $func,-10($arg1)
000D0 38000003        nop            ;align for return point
000D4 0260F809        jalr $ret,$temp3
000D8 380001B2        .return 0,54,2
000DC 8EF20014        lw $arg2,20($cs)
000E0 38000001        nop
000E4 8EF10000        lw $arg1,0($cs)
000E8 38000001        nop
000EC 02508020        add $arg0,$arg2,$arg0
000F0 26F7001C        addiu $cs,$cs,28
000F4 02200008        jr $arg1
000F8 8EF60004        lw $func,4($cs)
000FC 8EF10000        lw $arg1,0($cs)
00100 38000001        nop
00104 34100008        ori $arg0,$0,8
00108 26F7001C        addiu $cs,$cs,28
0010C 02200008        jr $arg1
00110 8EF60004        lw $func,4($cs)
00114 8EF00018        lw $arg0,24($cs)
00118 38000001        nop
0011C 34110008        ori $arg1,$0,8
00120 1211FFF6        beq $arg0,$arg1,0xFC
00124 38000001        nop
00128 1000FFCE        beq $0,$0,0x64
0012C 38000001        nop
F compiled.

Finished compilation of file FIB.LSP
0 Errors, 0 Warnings