;----------------------------------------------------- ; CPU and BANKING types CPU_Z180 equ 1 ; 0 = Z80, else Z180 ROMSYS equ 0 AVRCLK equ 18432 ;[KHz] if CPU_Z180 ;----------------------------------------------------- FOSC equ AVRCLK/2 ;Oscillator frequency [KHz] PHI equ FOSC*2 ;CPU frequency (clock doubler enabled) ;----------------------------------------------------- ; Programmable Reload Timer (PRT) PRT_PRE equ 20 ;PRT prescaler ; Reload value for 10 ms Int. (0.1KHz): ; tc10ms = phi/prescale/0.1KHz = phi / (prescale/10) PRT_TC10MS equ PHI / (PRT_PRE/10) ;----------------------------------------------------- ; MMU SYS$CBAR equ 0C8h USR$CBAR equ 0F0h BANKS equ 18 ;max nr. of banks ;----------------------------------------------------- CREFSH equ 0 ;Refresh rate register (disable refresh) CWAITIO equ 3 shl IWI0 ;Max I/O Wait States, 0 Memory Wait States else ; Z80 PHI equ AVRCLK/5 ;CPU frequency [KHz] BAUDCLCK equ AVRCLK/10 ;Baudrate clock [KHz] ;BDCLK16 equ SIOAD EQU 0bch SIOAC EQU 0bdh SIOBD EQU 0beh SIOBC EQU 0bfh CTC0 EQU 0f4h CTC1 EQU 0f5h CTC2 EQU 0f6h CTC3 EQU 0f7h ; ; Init Serial I/O for console input and output (SIO-A) ; ; Baudrate clock: 1843200 Hz (Bus connector pin A17) ; ; Baudrate Divider SIO CTC ; --------------------------------- ; 115200 16 16 1 ; 57600 32 16 2 ; 38400 48 16 3 ; 19200 96 16 6 ; 9600 192 16 12 ; 4800 384 16 24 ; 2400 768 16 48 ; 1200 1536 16 96 ; 600 3072 16 192 ; 300 6144 64 92 endif ; CPU_Z180 if ROMSYS c$rom equ 0a5h ROM_EN equ 0C0h ROM_DIS equ ROMEN+1 if CPU_Z180 CWAITROM equ 2 shl MWI0 endif endif DRSTNUM equ 30h ;DDTZ Restart vector (breakpoints) mrx.fifo_len equ 256 mtx.fifo_len equ 256 ci.fifo_len equ 128 co.fifo_len equ 256 s1.rx_len equ 256 ;Serial 1 (ASCI1) buffers s1.tx_len equ 256 ; AVRINT5 equ 4Fh AVRINT6 equ 5Fh ;PMSG equ 80h ;----------------------------------------------------- ; Definition of (locical) top 2 memory pages sysram_start equ 0FE00h stacksize equ 80 isvsw_loc equ 0FEE0h ivtab equ 0ffc0h ;int vector table iv2tab equ ivtab + 2*9 ;----------------------------------------------------- o.mask equ -3 o.in_idx equ -2 o.out_idx equ -1 .lall mkbuf macro name,size if ((size & (size-1)) ne 0) or (size gt 256) .printx Error: buffer ^size must be power of 2 and in range 0..256! name&.mask equ ;wrong size error else ds 3 name:: ds size name&.mask equ low (size-1) if size ne 0 name&.end equ $-1 name&.len equ size endif endif endm ;----------------------------------------------------- inidat macro cseg ??ps.a defl $ endm inidate macro ??ps.len defl $ - ??ps.a dseg ds ??ps.len endm