Please need a help with AN_1219 .

ro_ok_bo · ‎09-15-2009

I need to use a 32/16bit unsigned Divide in assembler with the mc9s08aw32 or MC9S08GB60 .

Unfortunately I am a Beginner .

I have copied and editated the unsigned divide in this mode :

; export symbols
            XDEF Entry, main
            ; we use export 'Entry' as symbol. This allows us to
            ; reference 'Entry' either in the linker .prm file
            ; or from C/C++ later on

XREF __SEG_END_SSTACK ; symbol defined by the linker for the end of the stack

; include derivative specific macros
INCLUDE 'mc9s08aw32.inc'

; variable/data section
MY_ZEROPAGE: SECTION SHORT ; Insert here your data definition

INTACC1 RMB 4 ;32-bit integer accumulator #1
INTACC2 RMB 4 ;32-bit integer accumulator #2
SPVAL RMB 2 ;storage for stack pointer value

; code section
MyCode:     SECTION
main:

Entry:

; Insert your code here

;*******Assegnazione Valori test.

          MOV      #$01,INTACC1
          MOV      #$F4,INTACC1+1
          MOV      #$F4,INTACC1+2

          MOV      #$01,INTACC2
          MOV      #$F4,INTACC2+1

;*******Assegnazione Valori test.

START     LDHX    #$450 ;load H:X with upper RAM boundary + 1
          TXS     ;move stack pointer to upper RAM boundary
          CLRH     ;clear H:X

          JSR     UDVD32 ;call 32 x 16 multiply routine

BRA * ;end of main routine

;********************************************************************************
;* 32 x 16 Unsigned Divide
;*
;* This routine takes the 32-bit dividend stored in INTACC1:INTACC1+3
;* and divides it by the 16-bit divisor stored in INTACC2:INTACC2+1.
;* The quotient replaces the dividend and the remainder replaces the divisor.
;*
UDVD32 EQU *

DIVIDEND EQU INTACC1+2
DIVISOR   EQU INTACC2
QUOTIENT EQU INTACC1
REMAINDER EQU INTACC1
;*
          PSHH        ;save h-reg value
          PSHA        ;save accumulator
          PSHX        ;save x-reg value
          AIS       #-3 ;reserve three bytes of temp storage
          LDA      #!32 ;
          STA      3,SP ;loop counter for number of shifts
          LDA      DIVISOR ;get divisor MSB
          STA      1,SP ;put divisor MSB in working storage
          LDA      DIVISOR+1 ;get divisor LSB
          STA      2,SP ;put divisor LSB in working storage
;*
;* Shift all four bytes of dividend 16 bits to the right and clear
;* both bytes of the temporary remainder location
;*
          MOV      DIVIDEND+1,DIVIDEND+3 ;shift dividend LSB
          MOV      DIVIDEND,DIVIDEND+2 ;shift 2nd byte of dividend
          MOV      DIVIDEND-1,DIVIDEND+1 ;shift 3rd byte of dividend
          MOV      DIVIDEND-2,DIVIDEND ;shift dividend MSB
          CLR      REMAINDER ;zero remainder MSB
          CLR      REMAINDER+1 ;zero remainder LSB
;*
;* Shift each byte of dividend and remainder one bit to the left
;*
SHFTLP    LDA      REMAINDER ;get remainder MSB
          ROLA                ;shift remainder MSB into carry
          ROL      DIVIDEND+3 ;shift dividend LSB
          ROL      DIVIDEND+2 ;shift 2nd byte of dividend
          ROL      DIVIDEND+1      ;shift 3rd byte of dividend
          ROL      DIVIDEND      ;shift dividend MSB
          ROL      REMAINDER+1 ;shift remainder LSB
          ROL      REMAINDER ;shift remainder MSB
;*
;* Subtract both bytes of the divisor from the remainder
;*
          LDA      REMAINDER+1      ;get remainder LSB
          SUB      2,SP ;          subtract divisor LSB from remainder LSB
          STA      REMAINDER+1 ;     store new remainder LSB
          LDA      REMAINDER ;     get remainder MSB
          SBC      1,SP ;subtract divisor MSB from remainder MSB
          STA      REMAINDER ;store new remainder MSB
          LDA      DIVIDEND+3 ;get low byte of dividend/quotient
          SBC      #0 ;dividend low bit holds subtract carry
          STA      DIVIDEND+3 ;store low byte of dividend/quotient
;*
;* Check dividend/quotient LSB. If clear, set LSB of quotient to indicate
;* successful subraction, else add both bytes of divisor back to remainder
;*
          BRCLR      0,DIVIDEND+3,SETLSB ;check for a carry from subtraction
                                    ;and add divisor to remainder if set
          LDA      REMAINDER+1 ;get remainder LSB
          ADD      2,SP ;add divisor LSB to remainder LSB
          STA      REMAINDER+1 ;store remainder LSB
          LDA      REMAINDER ;get remainder MSB
          ADC      1,SP ;add divisor MSB to remainder MSB
          STA      REMAINDER ;store remainder MSB
          LDA      DIVIDEND+3 ;get low byte of dividend
          ADC      #0 ;add carry to low bit of dividend
          STA      DIVIDEND+3 ;store low byte of dividend
          BRA      DECRMT ;do next shift and subtract
SETLSB    BSET      0,DIVIDEND+3 ;set LSB of quotient to indicate successive subtraction
DECRMT    DBNZ      3,SP,SHFTLP ;decrement loop counter and do next shift
;*
;* Move 32-bit dividend into INTACC1:INTACC1+3 and put 16-bit
;* remainder in INTACC2:INTACC2+1
;*
          LDA      REMAINDER ;get remainder MSB
          STA      1,SP ;temporarily store remainder MSB
          LDA      REMAINDER+1 ;get remainder LSB
          STA      2,SP ;temporarily store remainder LSB
          MOV      DIVIDEND,QUOTIENT ;
          MOV      DIVIDEND+1,QUOTIENT+1 ;shift all four bytes of quotient
          MOV      DIVIDEND+2,QUOTIENT+2 ; 16 bits to the left
          MOV      DIVIDEND+3,QUOTIENT+3 ;
          LDA      1,SP ;get final remainder MSB
          STA      INTACC2 ;store final remainder MSB
          LDA      2,SP ;get final remainder LSB
          STA      INTACC2+1 ;store final remainder LSB
;*
;* Deallocate local storage, restore register values, and return from
;* subroutine
;*
          AIS      #3      ;deallocate temporary storage
          PULX           ;restore x-reg value
          PULA           ;restore accumulator value
          PULH           ;restore h-reg value
          RTS

;******FINE_SUB************************************

I use CW_6.0 and when i try to use MAKE ; it show mi this message of warning :