daniellemacey 0 Newbie Poster

Hi, I'm not sure how to add two-digit input and three-digit output capacity to the program attached.

; Filename SubTest3.asm

; This program is designed to demonstrate the use of subroutines in
; programming. 
; This file is phase 3 and introduces a multiply subroutine.
; Current support subroutines include : PMPTOUT, MULT, ATOI, ITOA

        .ORIG   x3000       ; load the program here

; Request factor1 from the user
; To be retrieved from R0 according to convention

        AND     R0,R0,#0

; Call prompt subroutine and output PROMPT1

        LEA R3,PROMPT1
        JSR PMPTOUT

        TRAP    x20     ; Use GETC to retrieve user character entry into R0
        TRAP    x21     ; Echo the entered factor

; Convert factor1 to an integer
; Use R2 to convert ASCII factor1 to an integer, store in R4 when done

        AND R2,R2,#0    ; Clear R2
        ADD R2,R0,#0    ; Load R2 with the ASCII value of factor1
        JSR ATOI
        ADD R4,R4,R2

        LD  R0,NewLine  ; Go to a clean line for the next input
        TRAP    x21

; Request factor2 from user
; To be retrieved from R0 according to convention

        AND R0,R0,#0

; Call prompt subroutine and output PROMPT2

        LEA R3,PROMPT2
        JSR PMPTOUT

        TRAP    x20     ; Use GETC to retrieve user character entry into R0
        TRAP    x21     ; Echo the entered factor

; Convert factor2 to an integer
; Use R2 to convert ASCII factor2 to an integer, store in R5 when done

        AND R2,R2,#0    ; Clear R2
        ADD R2,R0,#0    ; Load R2 with the ASCII value of factor1
        JSR ATOI
        ADD R5,R5,R2

        LD  R0,NewLine  ; Go to a clean line for the next input
        TRAP    x21

; Perform multiplication with MULT subroutine
; Registers R4 and R5 correctly contain two integer factors here.
; R6 contains the integer product.

        JSR MULT

; Use prompt writing subroutine to announce result

        LEA R3,RESULT
        JSR PMPTOUT

; product to the display
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        TRAP x25        ; HALT the processor
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
PMPTOUT     ST  R7,SaveR7
        AND     R0,R0,#0
        ADD     R0,R3,R0
        TRAP    x22     ; Call PUTS
        LD  R7,SaveR7
        RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Multiply subroutine
; Expects factor1 in R4 and factor2 in R5
; Returns the product in R6

MULT        AND R6,R6,#0    ; Clear R6 to hold result of multiplication
AGAIN       ADD R6,R6,R4
        ADD R5,R5,#-1   
        BRp AGAIN
        RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Subroutine to convert ASCII character to an integer
; This routine uses R2 as a holding register for the correction
ATOI        ST  R3,SaveR3
        AND R3,R3,#0    ; Clear R3
        LD  R3,ASCII    ; Load ASCII correction into R3
        NOT R3,R3       ; Form 1s complement
        ADD R3,R3,#1    ; Form 2s complement
        ADD R2,R2,R3    ; ACSII correction, R2 now contains integer for
                    ; math operations
        LD  R3,SaveR3
        RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
ITOA        ST  R3,SaveR3
        AND R0,R0,#0    ; Clear R0 for product display
        ADD R0,R6,R0    ; Load product integer into R0
        AND R3,R3,#0    ; Clear R3 to ready ASCII correction 
        LD  R3,ASCII    ; Load ASCII correction into R3
        ADD R0,R0,R3    ; Make integer an ASCII character for output
        LD  R3,SaveR3
        RET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; MEMORY AREA

NewLine     .FILL       x000A
ASCII       .FILL       x0030
SaveR7      .FILL       x0000
SaveR3      .FILL       x0000
PROMPT1     .STRINGZ    "Enter the first factor\n"
PROMPT2     .STRINGZ    "Enter the second factor\n"
RESULT      .STRINGZ    "The product of the factors is :\n"

        .END
; End of 
Be a part of the DaniWeb community

We're a friendly, industry-focused community of 1.21 million developers, IT pros, digital marketers, and technology enthusiasts learning and sharing knowledge.