Display 2 WORDs as a 32bit integer

[richard]

A few tweaks to scrounge some resources back

    Test     var byte[3] SYSTEM
    Dividend   var byte[6] SYSTEM
    Remainder  var byte[3] SYSTEM      ; 24 bit remainder from 1000000 division
    Shift  var byte[6] SYSTEM
    Counter  VAR BYTE  SYSTEM
    Hours     VAR WORD[2]    ; 32-bit 
    HoursH    VAR Hours(1)
    HoursL    Var Hours(0)
    QUOTL     VAR WORD EXT       ; top 5 digits
    Result    Var Word           ;  middle 10,000;s  single digit 
    Remains Var Word             ; bottom 4 digits
    i var byte
goto overasm
 Asm
QUOTL=Dividend 
PutMulResult?D macro Din
    MOVE?BB   Din, R2
    MOVE?BB   Din + 1 , R2 + 1
    MOVE?BB   Din + 2, R0
    MOVE?BB   Din + 3, R0 + 1
    RST?RP
  endm
PutDIV?D macro Din
    MOVE?BB   Din, Dividend 
    MOVE?BB   Din + 1 , Dividend  + 1
    MOVE?BB   Din + 2, Dividend   + 2
    MOVE?BB   Din + 3, Dividend  + 3
    MOVE?CB   0 ,   Dividend  + 4
    MOVE?CB   0 ,   Dividend  + 5
    RST?RP
  endm 
PutSH?D macro Din
    MOVE?BB   Din, Shift
    MOVE?BB   Din + 1 , Shift  + 1
    MOVE?BB   Din + 2, Shift   + 2
    MOVE?BB   Din + 3, Shift  + 3
    MOVE?CB   0 ,   Shift  + 4
    MOVE?CB   0 ,   Shift  + 5
    RST?RP
  endm   
Put24?D macro Din
    MOVE?BB   Din, R2
    MOVE?BB   Din + 1 , R2 + 1
    MOVE?BB   Din + 2, R0
    MOVE?CB   0, R0 + 1
    RST?RP
  endm  
  
EndAsm    
'    Remainder[3]=0  


overasm:
    HoursL=$fff0
    HoursH=$7fff
    latd=18
    debug "ready",13,10
    pause 1000
   






MainLoop:
    gosub AddHourTenth
    Gosub ShowHourMeter
goto MainLoop    ;============================================================






AddHourTenth:
    HoursL = HoursL + 1
    IF HoursL = 0 then HoursH = HoursH + 1
return




ShowHourMeter:
    Test[0]=$a0       ;divisor 100000
    Test[1]=$86
    Test[2]=1  
    
;@   PutDIV?D  _Hours
@   PutSH?D  _Hours    ; take a shortcut and load shift regs directly  
    CALL  Div4824U      ;divide by 100000
    debug  ,13,10
;@   PutMulResult?D  Remainder
@   Put24?D  Remainder     ; only do a 24 bit load since answer is never bigger than that
    Result = DIV32 10000
    Remains = R2
    debug DEC QUOTL, Dec1 Result, ".",DEC4 Remains ,13,10
    pause 1000
return   


;**************************************************************************
;Div4824U
;Inputs:
;    Dividend - Dividend:6    (0 - least significant!)
;    Divisor     - Test:3    (0 - least significant!)
;Temporary:
;    Counter     - Count
;    Shift     - Shift:6
;Output:
;    Quotient - Dividend:6    (0 - least significant!)
;    Remainder- Rem:3    (0 - least significant!)
;
;Adaptation of 24x24 division by Tony Nixon with corrections
;by Frank Finster 3/15/2005.
;Code adapted by Andy Lee
;01-Sep-2006    Original version
;**************************************************************************


Div4824U:
asm
;---------------------------------------------------
; SUBROUTINE - 48 by 24 BIT DIVISION
    movlw 48
    movwf Counter
    ;movff Dividend+0, Shift+0
    ;movff Dividend+1, Shift+1
    ;movff Dividend+2, Shift+2
    ;movff Dividend+3, Shift+3
    ;movff Dividend+4, Shift+4
    ;movff Dividend+5, Shift+5
    clrf Dividend+0
    clrf Dividend+1
    clrf Dividend+2
    clrf Dividend+3
    clrf Dividend+4
    clrf Dividend+5
    clrf Remainder+2
    clrf Remainder+1
    clrf Remainder+0
dloop
    bcf STATUS, C
    rlcf Shift+0
    rlcf Shift+1
    rlcf Shift+2
    rlcf Shift+3
    rlcf Shift+4
    rlcf Shift+5
    rlcf Remainder+0
    rlcf Remainder+1
    rlcf Remainder+2
    movf Test+2, w
    subwf Remainder+2, w
    btfss STATUS, Z
    bra nochk
    movf Test+1,w
    subwf Remainder+1,w
    btfss STATUS, Z
    bra nochk
    movf Test+0,w
    subwf Remainder+0,w
nochk
    btfss STATUS, C
    bra nogo
    movf Test+0,w
    subwf Remainder+0
    btfsc STATUS, C
    bra    nodec_remainM
    decf Remainder+1, f
    movf Remainder+1, w
    xorlw 0xff
    btfsc STATUS, Z
    decf Remainder+2, f
nodec_remainM
    movf Test+1, w
    subwf Remainder+1, f
    btfss STATUS, C
        decf Remainder+2, f
    movf Test+2, w
    subwf Remainder+2, f
    bsf STATUS, C
nogo
    rlcf Dividend+0
    rlcf Dividend+1
    rlcf Dividend+2
    rlcf Dividend+3
    rlcf Dividend+4
    rlcf Dividend+5
    decfsz Counter, f
    goto dloop
    return
 endasm