; $ALOG OBJECT TO MACRO CONVERSION V01.1 13-AUG-86 16:24 .TITLE $ALOG ; .IDENT /F40002/ .PSECT OTS$I ,I,LCL,RW,CON ac0=%0 ac1=%1 ac2=%2 ac3=%3 .ENABL LSB ALOG10:: MOV (PC),R4 BR 6$ ALOG:: CLR R4 6$: SETF SETI MOV #126$,R0 LDF @2(R5),AC2 CFCC BLE 116$ STEXP AC2,R1 LDCIF R1,AC3 MULF (R0)+,AC3 LDEXP #0,AC2 LDF R2,AC1 SUBF (R0),AC2 ADDF (R0)+,AC1 DIVF R1,AC2 LDF R2,AC1 MULF R1,AC1 MOV #3,R1 LDF (R0)+,AC0 62$: MULF R1,AC0 DEC R1 ADDF (R0)+,AC0 BGT 62$ MULF R2,AC0 ADDF (R0)+,AC0 ADDF R3,AC0 TST R4 BEQ 106$ MULF (R0)+,AC0 106$: STF AC0,-(SP) MOV (SP)+,R0 MOV (SP)+,R1 114$: RTS PC 116$: TRAP 323 CLR R0 CLR R1 BR 114$ 126$: .word 040061,071030 ;these are actually floating point .word 040065,002363 ;variables, but the disassembler does .word 037632,014525 ;not know about floating point .word 037714,120036 .word 040052,125332 .word 040400,000000 .word 137661,071030 .word 037736,055731 .DSABL LSB .END