Retrieving 32bit Multiply Result

[Darrel Taylor]

That makes things a bit easier ...

big_number  VAR WORD[2]   ; 32-bit variable 


ASM  
;---[load a 32-bit constant into a 32-bit variable]-----------------
MOVE?CN  macro Cin, Nout
    MOVE?CW  Cin & 0xFFFF, Nout     ; Low Word
    MOVE?CW  (Cin >> 16), Nout + 2  ; High Word
  endm
ENDASM


;-------------------------------------------------------------------
@  MOVE?CN  1000000, big_number

WHILE (big_number[1] > 0) OR (big_number[0] > 0)
    Read record
    HSEROUT [record]
    
    big_number[0] = big_number[0] - 1
    IF big_number[0] = $ffff THEN big_number[1] = big_number[1] - 1
WEND

[Nicmus]

Thank you Darrel,
I knew it can be done. I just did not know how, and your example turns few lights on in my brain.
I will give it a shot after work, today, and post the results.
Thanks again,

Nick

[Nicmus]

Hi Darrel,

I have a PBP copy installed on my work computer so I tried your code in a simple program to send out numbers (if I understood you correctly) from Big_number to 0.

I am using:
MCS 2.3.0.0
PBP 2.47
MPASM 5.03

This is the small program I’m trying to compile but I get a warning and an error:

INCLUDE "modedefs.bas"
DEFINE OSC 16
DEFINE LOADER_USED 1
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 20h
DEFINE HSER_BAUD 4800
DEFINE HSER_CLROERR 1

big_number VAR WORD[2] ; 32-bit variable

ADCON1=6
CMCON=7

main:

@ MOVE?CN 1000000, big_number
WHILE (big_number[1] > 0) OR (big_number[0] > 0)
HSEROUT [#big_number[1],#big_number[0]]
big_number[0] = big_number[0] - 1
IF big_number[0] = $ffff THEN big_number[1] = big_number[1] - 1
WEND
pause 5000
goto main
ASM
;---[load a 32-bit constant into a 32-bit variable]-----------------
MOVE?CN macro Cin, Nout
MOVE?CW Cin & 0xFFFF, Nout ; Low Word
MOVE?CW (Cin >> 16), Nout + 2 ; High Word
endm
ENDASM
End


The messages I get are:

Warning[207] c:\big_num.asm 99: Found label after column 1.(MOVE?CN)
Error[108] c:\big_num.asm : Illegal character (1)

Any idea?

Regards,

Nick

[skimask]

Put the macro in the source code BEFORE the actual usage.

INCLUDE "modedefs.bas"
DEFINE OSC 16
DEFINE LOADER_USED 1
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 20h
DEFINE HSER_BAUD 4800
DEFINE HSER_CLROERR 1
big_number VAR WORD[2] ; 32-bit variable
ADCON1=6
CMCON=7
goto main
ASM
;---[load a 32-bit constant into a 32-bit variable]-----------------
MOVE?CN macro Cin, Nout
MOVE?CW Cin & 0xFFFF, Nout ; Low Word
MOVE?CW (Cin >> 16), Nout + 2 ; High Word
endm
ENDASM
main:
@ MOVE?CN 1000000, big_number
WHILE (big_number[1] > 0) OR (big_number[0] > 0)
HSEROUT [#big_number[1],#big_number[0]]
big_number[0] = big_number[0] - 1
IF big_number[0] = $ffff THEN big_number[1] = big_number[1] - 1
WEND
pause 5000
goto main
End
[/code]

[Nicmus]

Hi Skimask,

I tried that first but I got 12 errors:

Error[113] c:\pbp\pbppicbasic14.lib428 : Symbol not previously defined (big_number).
Should I do any changes in pbppicbasic14.lib?
Thanks,

Nick

[mister_e]

edit this line

@ MOVE?CN 1000000, big_number

to

@ MOVE?CN 1000000, _big_number

[Darrel Taylor]

OOps!

Thanks Steve.