.TITLE POWII ; .MACRO I,J,K ;K = I**J FOR I,J,K INTEGERS .GLOBL .POWII,.CALL .MCALL .TLQ K: .BLKW 1 J: .BLKW 1 I: .BLKW 1 .POWII: MOV R0,-(SP) MOV R1,-(SP) TST J BEQ EQ BGT GT .TLQ JMP .CALL EQ: MOV #1,K ;ANY NUMBER TO THE ZERO POWER IS 1 (EVEN 0**0) ! BR RET GT: MOV #1,R1 LOOP: MUL I,R1 BCC NOOVFL .TLQ JMP .CALL NOOVFL: DEC J BGT LOOP MOV R1,K RET: MOV (SP)+,R1 MOV (SP)+,R0 RETURN .END