;
 MACRO	_CALC_DEVICE_ENTRY tbl_addr
	LD	C,A
	ADD	A,A
	ADD	A,C
	LD	C,A
	LD	B,0
	LD	HL,tbl_addr
	ADD	HL,BC		
 ENDM
; 

;
 MACRO	SET_PAGE_X new_page
	IF OLD_SET_BANK
	 LD	A,new_page
	 CALL	BANK

	ELSE
	 LD	A,(BANKTBL+new_page)
	 LD	B,A
	 LD	C,SLOT3
	 IN	A,(SLOT3)
	 OUT	(C),B
	ENDIF
 ENDM
;

;
 MACRO _mSavePath
	IF SAVE_PATH_MACRO
	 PUSH	HL
	 LD	HL,BACK_CUR_PATH
	 EX	(SP),HL
	 CALL	SAVE_CUR_PATH
	ENDIF
 ENDM
 MACRO _mRestorePath
 	IF SAVE_PATH_MACRO
	 CALL	BACK_CUR_PATH
	ENDIF
 ENDM
 MACRO _mRestorStackAfterRestorePath
 	IF SAVE_PATH_MACRO
	 POP     HL                      ;CLEAR STACK "BACK_CUR_PATH"
	ENDIF
 ENDM
;

; 
 MACRO  _mDSS_Version
        DB      'DSS_'
        db      '0'+VERS
        db      '.'
        db      MODF/10+'0'
        db      MODF-(MODF/10)*10+'0'
 ENDM
;

;
 MACRO C_OSTYPE
  IF      OSTYPE = DP

        C_OSNAME
        DB      "-DP [",#30+REVISION,']',0

   ELSEIF OSTYPE = BETA

        C_OSNAME
        DB	'-BETA [',#30+REVISION,']',0

   ELSEIF OSTYPE = RC

        C_OSNAME
        DB	'-RC [',#30+REVISION,']',0

   ELSEIF OSTYPE = RELEASE

        C_OSRELEASE
        ;DB	"-RELEASE",0

   ELSE

        C_OSNAME
        DB      "-UNKNOWN",0

  ENDIF
 ENDM
;

;
 MACRO  C_OSNAME
        DB "ESTEX",0
 ENDM
;

;
 MACRO  C_OSRELEASE
        DB "Estex DSS",0
 ENDM
;