how to get ANSI.INC to work on serial port 2

[longpole001]

yep that seems to work , but how would i rewrite the macro to allow for the port to be a variable parameter , so both port 1, 2 etc would be supported ?

black         con "0"   system    ' ALL color names ARE case sensitive
red           con "1"   system
green         con "2"   system
yellow        con "3"   system
blue          con "4"   system
magenta       con "5"   system
cyan          con "6"   system
white         con "7"   system

dark          con "0"   system
light         con "1"   system

tch           var byte  system    ' Temporary Character

goto OverANSI


asm
      
ANSIstart
    HSEROUT2?C	27
    HSEROUT2?C	"["
    return

TermColor macro  FGLD, FGCL, BGCL
    L?CALL        ANSIstart
    HSEROUT2?C	FGLD
    HSEROUT2?C	";"
    HSEROUT2?C	"3"
    HSEROUT2?C	FGCL
    HSEROUT2?C	";"
    HSEROUT2?C	"4"
    HSEROUT2?C	BGCL
    HSEROUT2?C	"m"
    endm
    
ForColor macro FGColor
    L?CALL        ANSIstart
    HSEROUT2?C	"3"
    HSEROUT2?C	FGColor
    HSEROUT2?C	"m"
    endm

BackColor macro BGColor
    L?CALL        ANSIstart
    HSEROUT2?C	"4"
    HSEROUT2?C	BGColor
    HSEROUT2?C	"m"
    endm

DHSEROUT?B macro Bin
        MOVE?BA Bin
        L?CALL  HSEROUT
    endm

SendFormat 
    L?CALL        ANSIstart
    DHSEROUT?B   tch
    HSEROUT2?C	"m"
    return

Normal macro
    MOVE?CB     "0",tch
    L?CALL        SendFormat
    endm

Bold macro
    MOVE?CB     "1",tch
    L?CALL        SendFormat
    endm

Dim macro
    MOVE?CB     "2",tch
    L?CALL        SendFormat
    endm

Italic macro
    MOVE?CB     "3",tch
    L?CALL        SendFormat
    endm

UnderScore macro
    MOVE?CB     "4",tch
    L?CALL        SendFormat
    endm

Blink macro
    MOVE?CB     "5",tch
    L?CALL        SendFormat
    endm

Negative macro
    MOVE?CB     "7",tch
    L?CALL        SendFormat
    endm

CurUp macro
    L?CALL        ANSIstart
    HSEROUT2?C	"A"
    endm
    
CurDown macro
    L?CALL        ANSIstart
    HSEROUT2?C	"B"
    endm
    
CurRight macro
    L?CALL        ANSIstart
    HSEROUT2?C	"C"
    endm
  
CurLeft macro
    L?CALL        ANSIstart
    HSEROUT2?C	"D"
    endm
    
CurHome macro
    L?CALL        ANSIstart
    HSEROUT2?C	    "H"
    endm

CurMove macro Row, Col   ;[H = Home, [24;80H = Row 24, Column 80
    L?CALL        ANSIstart
    HSEROUT2COUNT?C	2
	HSEROUT2NUM?C	Row
	HSEROUT2DEC?	
    HSEROUT2?C	    ";"
    HSEROUT2COUNT?C	2
	HSEROUT2NUM?C	Col
	HSEROUT2DEC?	
    HSEROUT2?C	    "H"
    endm
  
ClearScr macro
    L?CALL        ANSIstart
    HSEROUT2?C	    "2"
    HSEROUT2?C	    "J"
    endm
  
ClearLine macro
    HSEROUT2?C	    13
    L?CALL        ANSIstart
    HSEROUT2?C	    "K"
    endm

ClearUp macro
    L?CALL        ANSIstart
    HSEROUT2?C	    "1"
    HSEROUT2?C	    "J"
    endm
    
ClearDown macro
    L?CALL        ANSIstart
    HSEROUT2?C	    "0"
    HSEROUT2?C	    "J"
    endm
    
RequestCurPos macro
    L?CALL        ANSIstart
    HSEROUT2?C	    "6"
    HSEROUT2?C	    "n"
    endm

endasm


OverANSI:

[richard]

#define use_port2

#IFDEF use_port2
HSEROUT2?C 27
#else
HSEROUT?C 27
#endif