+COMMON_SIZE equ 4*1024 ;Common Area size in bytes\r
+ ;must be multiple of 4K\r
+\r
+if (COMMON_SIZE mod 1000h) \r
+ .printx COMMON_SIZE not multiple of 4K!\r
+ end ;stop assembly\r
+endif\r
+\r
+CSK equ COMMON_SIZE/1000h ;\r
+CA equ 10h - CSK ;common area start\r
+BA equ 0 ;banked area start\r
+\r
+SYS$CBR equ 0\r
+SYS$CBAR equ CA<<4 + CA ;CBAR in system mode\r
+USR$CBAR equ CA<<4 + BA ;CBAR in user mode (CP/M)\r