Bin As Variable

[Eyal]

if someone know if it possible to use with variable in bin command
SEROUT2.........BIN16 VOLT
I NEED
SEROUT2.........BINx VOLT

Eyal

[Darrel Taylor]

Hi Eyal,

Can't do it the easy way, but this should do the trick.

; ----[Send X number of binary digits]----------
ASM
SER_BINx  macro  Port, Pin, Mode, Value, X
	SEROUT2DPIN?T	Port, Pin
	SEROUT2MODE?C	Mode
	SEROUT2PACE?C	000h
	SEROUT2COUNT?B	X
	SEROUT2NUM?W	Value
	SEROUT2BIN?
    endm	
ENDASM

; ----[Force PBP to include the macro's]---(doesn't use any code space)-----
@ ifdef AddSEROUTcode
   SEROUT2  PORTB.0,396,[BIN16 R0, REP " "\R0.lowbyte] 
@ endif
; ----------------------------------------------

SOpin     VAR  PORTB.0
Volt      VAR  WORD
BINcount  VAR  BYTE

Volt = 115

FOR BINcount = 16 to 1 step -1
    @  SER_BINx  _SOpin, 396, _Volt, _BINcount
    SEROUT2 SOpin, 396,[13,10]    
NEXT BINcount

; should send
0000000001110011
000000001110011
00000001110011
0000001110011
000001110011
00001110011
0001110011
001110011
01110011
1110011
110011
10011
0011
011
11
1