Power.asm

[AbbasCodex]

the power.asm is wrong
.MODEL SMALL
.DATA
BASE DW ?
POW DB ?
NL1 DB 0AH,0DH,'ENTER BASE: ','$'
NL2 DB 0AH,0DH,'ENTER POWER: ','$'
RESULT DB 6 DUP('$')

.CODE
MAIN PROC

MOV AX,@DATA
MOV DS,AX

CALL ENTER_BASE
CALL ENTER_POWER

MOV AX, BASE
MOV BX, POW
CALL POWER

MOV AH, 09H     ; Print result
LEA DX, RESULT
INT 21H

MOV AH,4CH      ; Exit program
INT 21H

ENTER_BASE:
LEA DX, NL1 ; Display prompt
MOV AH, 09H
INT 21H

CALL READ_NUMBER ; Read base
MOV BASE, AX
RET

ENTER_POWER:
LEA DX, NL2 ; Display prompt
MOV AH, 09H
INT 21H

CALL READ_NUMBER ; Read power
MOV POW, AL
RET

READ_NUMBER:
XOR AX, AX ; Clear AX
MOV CX, 10 ; Multiplier
READ_LOOP:
MOV AH, 01H ; Read a character
INT 21H

CMP AL, 0DH     ; Check for Enter key
JE DONE_READ    ; If Enter, finish reading

SUB AL, 30H     ; Convert ASCII to digit
MUL CX          ; Multiply current number by 10
ADD AX, DX      ; Add new digit
MOV DX, AX      ; Store result

JMP READ_LOOP   ; Repeat

DONE_READ:
RET

POWER PROC
MOV CX, POW ; Move power to CX
MOV DX, 0 ; Clear DX (result)
MOV AX, 1 ; Set AX to 1 (base case)

POWER_LOOP:
TEST CX, 1 ; Check if power is odd
JZ EVEN_POWER ; If not odd, skip

MUL BX          ; Multiply result by base
DEC CX          ; Decrement power

EVEN_POWER:
SHR CX, 1 ; Divide power by 2
JZ POWER_DONE ; If power is zero, finish

MUL BX          ; Multiply base by itself
JMP POWER_LOOP  ; Repeat

POWER_DONE:
MOV AX, DX ; Move result to AX
RET
POWER ENDP

MAIN ENDP
END MAIN