projects / z180-stamp.git / blame
| Commit | Line | Data |
|---|---|---|
| a16ba2b0 L |
1 | \r |
| 2 | \r | |
| 3 | FOSC equ 18432 ;Oscillator frequency [KHz]\r | |
| 4 | PHI equ FOSC/2 ;CPU frequency \r | |
| 5 | \r | |
| 6 | ;-----------------------------------------------------\r | |
| 7 | ; Programmable Reload Timer (PRT)\r | |
| 8 | \r | |
| 9 | PRT_PRE equ 20 ;PRT prescaler\r | |
| 10 | \r | |
| 11 | ; Reload value for 10 ms Int. (0.1KHz):\r | |
| 12 | ; tc10ms = phi/prescale/0.1KHz = phi / (prescale/10)\r | |
| 13 | \r | |
| 14 | PRT_TC10MS equ PHI / (PRT_PRE/10)\r | |
| 15 | \r | |
| 16 | ;-----------------------------------------------------\r | |
| 17 | ; MMU\r | |
| 18 | \r | |
| 19 | SYS$CBAR equ 0C8h\r | |
| 20 | USR$CBAR equ 0F0h\r | |
| 21 | \r | |
| 22 | \r | |
| 23 | BANKS equ 18 ;max nr. of banks\r | |
| 24 | \r | |
| 25 | ;-----------------------------------------------------\r | |
| 26 | \r | |
| 27 | CREFSH equ 0 ;Refresh rate register (disable refresh)\r | |
| 28 | CWAITIO equ 3 shl IWI0 ;Max I/O Wait States, 0 Memory Wait States\r | |
| 29 | \r | |
| 30 | \r | |
| 31 | ROMSYS equ 0\r | |
| 32 | \r | |
| 33 | if ROMSYS\r | |
| 34 | c$rom equ 0a5h\r | |
| 35 | ROM_EN equ 0C0h\r | |
| 36 | ROM_DIS equ ROMEN+1\r | |
| 37 | CWAITROM equ 2 shl MWI0\r | |
| 38 | endif\r | |
| 39 | \r | |
| 40 | \r | |
| 41 | DRSTNUM equ 30h ;DDTZ Restart vector (breakpoints)\r | |
| 42 | \r | |
| 43 | \r | |
| 44 | msg_fb_len equ 256\r | |
| 45 | rx.buf_len equ 20h\r | |
| 46 | tx.buf_len equ 80h\r | |
| 47 | rx.buf_len equ 20h\r | |
| 48 | tx.buf_len equ 80h\r | |
| 49 | \r | |
| 50 | \r | |
| 51 | s1.rx_len equ 256 ;Serial 1 (ASCI1) buffers\r | |
| 52 | s1.tx_len equ 256 ;\r | |
| 53 | \r | |
| 54 | PMSG equ 80h\r | |
| 55 | \r | |
| 56 | ;-----------------------------------------------------\r | |
| 57 | ; Definition of (locical) top 2 memory pages \r | |
| 58 | \r | |
| 59 | sysram_start equ 0FE00h\r | |
| 60 | stacksize equ 80\r | |
| 61 | \r | |
| 62 | isvsw_loc equ 0FEE0h\r | |
| 63 | \r | |
| 64 | ivtab equ 0ffc0h ;int vector table\r | |
| 65 | iv2tab equ ivtab + 2*9\r | |
| 66 | \r | |
| 67 | \r | |
| 68 | \r | |
| 69 | ;-----------------------------------------------------\r | |
| 70 | \r | |
| 71 | \r | |
| 72 | o.mask equ -3\r | |
| 73 | o.in_idx equ -2\r | |
| 74 | o.out_idx equ -1\r | |
| 75 | \r | |
| 76 | .lall\r | |
| 77 | \r | |
| 78 | mkbuf macro name,size\r | |
| 79 | if ((size & (size-1)) ne 0) or (size gt 256)\r | |
| 80 | .printx Error: buffer ^size must be power of 2 and in range 0..256!\r | |
| 81 | name&.mask equ ;wrong size error\r | |
| 82 | else\r | |
| 83 | ds 3 \r | |
| 84 | name:: ds size\r | |
| 85 | name&.mask equ low (size-1)\r | |
| 86 | if size ne 0\r | |
| 87 | name&.end equ $-1\r | |
| 88 | name&.len equ size\r | |
| 89 | endif\r | |
| 90 | endif\r | |
| 91 | endm\r | |
| 92 | \r | |
| 93 | ;-----------------------------------------------------\r | |
| 94 | \r | |
| 95 | inidat macro \r | |
| 96 | cseg\r | |
| 97 | ??ps.a defl $ \r | |
| 98 | endm\r | |
| 99 | \r | |
| 100 | inidate macro\r | |
| 101 | ??ps.len defl $ - ??ps.a\r | |
| 102 | dseg\r | |
| 103 | ds ??ps.len\r | |
| 104 | endm\r | |
| 105 | \r |