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