-; Various functions: init, (RAM) disk, mmc, timer
+; Hardware initialisation, disk, mmc, timer, DRAM test
;
; Copyright (C) 2010 Sprite_tm
-; Copyright (C) 2010 Leo C.
+; Copyright (C) 2010-2013 Leo C.
;
; This file is part of avrcpm.
;
; - Setup Ports
- ldi temp,(1<<PUD) ;disable pullups
- outm8 P_PUD,temp
- out PORTD,_255 ;all pins high
+; ldi temp,(1<<PUD) ;disable pullups
+; outm8 P_PUD,temp
+ out PORTD,_255 ;all pins high (enables pullup on input ports)
out PORTB,_255
out PORTC,_255
out DDRD,_255 ; all outputs
cpc zh,temp2
brne clr_l
-
; Init clock/timer system
; Init timer 1 as 1 ms system clock tick.
rcall uart_init
-;Init timer2. Refresh-call should happen every (8ms/512)=312 cycles.
+;Init timer2. Refresh-call should happen every (8ms/512) cycles.
ldi temp,REFR_CNT*2 ; 2 cycles per int
outm8 OCR2A,temp
sei
+#if I2C_SUPPORT
+ rcall i2c_init ; Init I2C master
+ rcall rtc_get
+#endif
+
.if BOOTWAIT
ldi temp,10
rcall printstr
.db 13,13,"CPM on an AVR, v"
db_version VMAJOR, VMINOR
+ printstring " r" SVN_REVSTR " " TESTSTR
.if MEMTEST
printnewline
;re-read RAM
ldiw x,0
- clr temp3
+ clr temp3 ;Error counter
ramtestr:
mem_read
+
+; ori temp,0x04 ;simulate error
+; andi temp,0xF7
+
mov temp2,xh
eor temp2,xl
cp temp,temp2
breq ramtestrok
- push temp
- cpi temp3,0 ;if first error
- brne ramtest2
- inc temp3
- ldi temp,10 ;newline
- rcall uartPutc
-ramtest2:
- ldi temp,13 ;return
- rcall uartPutc
- pop temp
- rcall printhex
- ldi temp,'<'
- rcall uartPutc
+ tst temp3
+ brne ramtestr1
+ printnewline
+ printstring "Addr xx yy "
+ramtestr1:
+ printnewline
+ mov zl,temp
+ movw temp,x
+ rcall printhexw
+ rcall printspace
mov temp,xh
eor temp,xl
+ mov temp2,temp
rcall printhex
- ldi temp,'@'
- rcall uartPutc
- movw temp,x
- rcall printhexw
+ rcall printspace
+ mov temp,zl
+ rcall printhex
+ rcall printspace
+ mov temp,temp2
+ eor temp,zl
+ and temp,temp2
+ rcall printxbits
+ rcall printspace
+ mov temp,temp2
+ eor temp,zl
+ com temp2
+ and temp,temp2
+ rcall printxbits
+
+ inc temp3
+ cpi temp3,16 ;
+ brsh ramtestrex
ramtestrok:
adiw xl,1
brcc ramtestr
+ramtestrex:
+ tst temp3 ;any errors?
+ breq ramtestend
+
+ printstring " System halted!"
+halted_loop:
+ rjmp halted_loop ;keep AVR in an endless loop
+
+ramtestend:
.endif
.if MEMFILL
ldiw x,0
+ ldi temp,MEMFILL_VAL
ramfillw:
- ldi temp,MEMFILL_VAL
rcall dram_write_pp
brcc ramfillw
.endif
printnewline
printstring "Partinit done."
- ldi temp,0
- rcall dsk_img_type ;parameter for boot disk image.
+; Init (de)blocking buffer
- lcall dsk_inval_hostbuf ;init (de)blocking buffer
+ lcall dsk_inval_hostbuf
; Read first sector of first CP/M partition (ipl)
ldiw x,IPLADDR
stsw dmaadr,x
- lcall dsk_read
+ ldi temp,1<<READ_FUNC
+ lcall dskDoIt
; lift off
ljmp z80_init
+printspace:
+ push temp
+ ldi temp,' '
+ rcall uartputc
+ pop temp
+ ret
+
+printxbits:
+ push temp2
+ push temp3
+ mov temp2,temp
+ ldi temp3,8
+prntxb0:
+ ldi temp,'-'
+ lsl temp2
+ brcc prntxb1
+ ldi temp,'X'
+prntxb1:
+ rcall uartPutc
+ dec temp3
+ brne prntxb0
+ pop temp3
+ pop temp2
+ ret
+
+
+
+