projects / avrcpm.git / blame
| Commit | Line | Data |
|---|---|---|
| 50302378 L |
1 | ; CP/M IPL for avrcpm\r |
| 2 | ;\r | |
| 3 | ; Copyright (C) 2010 Sprite_tm\r | |
| 4 | ;\r | |
| 5 | ; This program is free software: you can redistribute it and/or modify\r | |
| 6 | ; it under the terms of the GNU General Public License as published by\r | |
| 7 | ; the Free Software Foundation, either version 3 of the License, or\r | |
| 8 | ; (at your option) any later version.\r | |
| 9 | ;\r | |
| 10 | ; This program is distributed in the hope that it will be useful,\r | |
| 11 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of\r | |
| 12 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r | |
| 13 | ; GNU General Public License for more details.\r | |
| 14 | ;\r | |
| 15 | ; You should have received a copy of the GNU General Public License\r | |
| 16 | ; along with this program. If not, see <http://www.gnu.org/licenses/>.\r | |
| 17 | ;\r | |
| 18 | ; $Id$\r | |
| 19 | ;\r | |
| 20 | \r | |
| 5482d75f L |
21 | ; IPL for the CP/M-emu in an AVR. Loads CPM (CCP+BDOS+BIOS) from the 'disk'.\r |
| 22 | ; Loads nsects (51) locical CPM sectors, starting from track 0 sector 2.\r | |
| 50302378 L |
23 | \r |
| 24 | maclib CFGACPM.LIB\r | |
| 25 | \r | |
| 26 | nsects equ 26*2 - 1 ;cold start sector count\r | |
| 27 | \r | |
| fc67ef42 L |
28 | cr equ 0dh\r |
| 29 | lf equ 0ah\r | |
| 30 | \r | |
| 50302378 L |
31 | .z80\r |
| 32 | aseg\r | |
| 33 | org 100h\r | |
| 34 | .phase 2000h\r | |
| 35 | \r | |
| 36 | ld sp,2000h\r | |
| 37 | ld hl,msgipl\r | |
| 38 | call prmsg\r | |
| 39 | \r | |
| 50302378 | 40 | ld hl,ccp\r |
| 5482d75f L |
41 | ld de,128\r |
| 42 | ld c,1 ;sector 1\r | |
| 43 | ld b,nsects\r | |
| 44 | xor a\r | |
| 45 | out (16),a ;track 0\r | |
| 46 | out (17),a ;\r | |
| 50302378 | 47 | loadloop:\r |
| 5482d75f | 48 | ld a,c ;sector (base-0)\r |
| 50302378 L |
49 | out (18),a\r |
| 50 | ld a,l ;dma L\r | |
| 51 | out (20),a\r | |
| 52 | ld a,h ;dma H\r | |
| 53 | out (21),a\r | |
| 54 | ld a,1 shl READ_FUNC\r | |
| 55 | out (22),a\r | |
| 56 | \r | |
| 5482d75f L |
57 | add hl,de\r |
| 58 | inc c\r | |
| 50302378 L |
59 | dec b\r |
| 60 | jp nz,loadloop\r | |
| 61 | \r | |
| 62 | jp bios\r | |
| 63 | \r | |
| 64 | prmsg:\r | |
| 65 | ld a,(hl)\r | |
| 66 | or a\r | |
| 67 | ret z\r | |
| fc67ef42 | 68 | out (UARTDR),a\r |
| 50302378 L |
69 | inc hl\r |
| 70 | jp prmsg\r | |
| 71 | \r | |
| 72 | msgipl: db cr,lf\r | |
| 73 | db "ipl"\r | |
| 74 | db 0\r | |
| 75 | \r | |
| 76 | end\r | |
| 77 | \r |