please fix this program, using the following method

;load $10000($called reference$)$

;loop:

; subtract $12801$ by $10000$

; if resulting number in the $10000\text{'}$s is positive or zero, increment a counter by $1$

; if resulting number in is negative, dont increment counter and do following:

; print counter

; divide reference by $10$

; start checking the matching ten's place. if reference is $1000,$ subtract $2801$ with $1000$

;Repeat this until you print out the complete number $"12801"$

here is the code for the test harness and the first subroutine

$.$orig x$3000$

; Test harness

;$-------------------------------------------------$

LD R$4,$ LOAD$\_$FILL$\_$VALUE$\_3200$ ; Load the address of the first subroutine

JSRR R$4$ ; Call the first subroutine

ADD R$0,$ R$0,$ #$1$ ; Increment the value in R$0$ by $1$

LD R$4,$ OUTPUT$\_$AS$\_$DECIMAL$\_3400$ ; Load the address of the second subroutine

JSRR R$4$ ; Call the second subroutine

HALT

; Test harness local data

;$-------------------------------------------------$

LOAD$\_$FILL$\_$VALUE$\_3200.$fill x$3200$

OUTPUT$\_$AS$\_$DECIMAL$\_3400.$fill x$3400$

$.$END

;$=================================================$

; Subroutine: LOAD$\_$FILL$\_$VALUE$\_3200$

; Parameter: None

; Postcondition: Loads a hard$-$coded value $($x$3200)$ into R$0$

; Return Value: The hard$-$coded value in R$0$

;$=================================================$

$.$ORIG x$3200$

; Load the hard$-$coded value into R$0$

LD R$0,$ FILL$\_$VALUE ; Load hard$-$coded value into R$0$

RET ; Return to caller

FILL$\_$VALUE $.$FILL x$3200$

$.$END

;$=================================================$

; Subroutine: OUTPUT$\_$AS$\_$DECIMAL$\_3400$

; Parameter: None

; Postcondition: Outputs the value in R$0$ as a decimal string

;$=================================================$