.area pc1251test (REL)

.include "pc1251.h"
        
; -----------------------------------------------
; Test the new .sbasic instruction 
; -----------------------------------------------
	
.org MEM_BASVAR_Z

	.db BASVAR_STR_ESC
	.sbasic "ABCDEFG"   ; Z
	.db BASVAR_STR_ESC
	.sbasic "HIJKLMN"   ; Y
	.db BASVAR_STR_ESC
	.sbasic "OPQRSTU"   ; X
	.db BASVAR_STR_ESC
	.sbasic "VWXYZ01"   ; W
	.db BASVAR_STR_ESC
	.sbasic "2345678"   ; V
	.db BASVAR_STR_ESC
	.sbasic '9"?!#%$'   ; U
	.db BASVAR_STR_ESC
	.sbasic ',;:@&()'   ; T
	.db BASVAR_STR_ESC
	.sbasic '<>=+-*/'   ; S
	.db BASVAR_STR_ESC
	.sbasic '^.~_iyp'   ; R
	.db BASVAR_STR_ESC
	.sbasic 'sebcX X'   ; Q
