{"id":1431,"date":"2014-01-13T23:42:24","date_gmt":"2014-01-13T21:42:24","guid":{"rendered":"https:\/\/zz-indigo.mavipet.sk\/?p=1431"},"modified":"2019-10-29T18:04:52","modified_gmt":"2019-10-29T18:04:52","slug":"c_brain-prvy-program","status":"publish","type":"post","link":"https:\/\/zz-indigo.mavipet.sk\/?p=1431","title":{"rendered":"C_brain prv\u00fd program!"},"content":{"rendered":"

Tak kone\u010dne som vyladil logiku C_brain-u. A u\u017e mi tam mak\u00e1 prv\u00fd program. Nerob\u00ed ni\u010d horibiln\u00e9 na portoch VIA A a B po\u010d\u00edta on 0x00 do 0xFF a dokola. Ale kone\u010dne mi to neprepisuje EEPROM.<\/p>\n

<\/p>\n

Program\u010dek je ve\u013emi jednoduch\u00fd:<\/p>\n

; CRASM code; license GPL v 3.0\r\n; autor: Marek Blasko\r\ncpu 6502\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ; Select 6502 CPU\r\noutput hex\u00a0\u00a0\u00a0\u00a0\u00a0 ; select output format to intelhex\r\n; io adresses\r\nprb = $D000\u00a0\u00a0\u00a0\u00a0 ; Port register B\r\npra = $D001\u00a0\u00a0\u00a0\u00a0 ; Port register A\r\nddrb = $D002\u00a0\u00a0\u00a0 ; Data direction register B\r\nddra = $D003\u00a0\u00a0\u00a0 ; Data direction register A\r\nt1_lo = $D004\u00a0\u00a0 ; Timer 1, low byte\r\nt1_hi = $D005\u00a0\u00a0 ; Timer 1, high byte\r\nt1l_lo = $D006\u00a0 ; Timer 1 latch, low byte\r\nt1l_hi = $D007\u00a0 ; Timer 1 latch, high byte\r\nt2_lo = $D008\u00a0\u00a0 ; Timer 2, low byte\r\nt2_hi = $D009\u00a0\u00a0 ; Timer 2, high byte\r\nsr = $D00A\u00a0\u00a0\u00a0\u00a0\u00a0 ; Shift register\r\nacr = $D00B\u00a0\u00a0\u00a0\u00a0 ; Auxiliary control register\r\npcr = $D00C\u00a0\u00a0\u00a0\u00a0 ; Peripheral control register\r\nifr = $D00D\u00a0\u00a0\u00a0\u00a0 ; Interrupt flag register\r\nier = $D00E\u00a0\u00a0\u00a0\u00a0 ; Interrupt enable register\r\npra2 = $D00F\u00a0\u00a0\u00a0 ; Port register A w\/o handshake\r\n\r\n* = $E000\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ; ROM start\r\ncode\r\nbegin\u00a0\u00a0 lda #$FF\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ; nastavyme VIA porty ako vystup\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 sta ddrb\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 sta ddra\r\naj\u00a0\u00a0\u00a0\u00a0\u00a0 lda #$00\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ; vynulujeme si pocitada\r\nyj\u00a0\u00a0\u00a0\u00a0\u00a0 ldy #$00\r\nxj\u00a0\u00a0\u00a0\u00a0\u00a0 ldx #$00\r\nzj\u00a0\u00a0\u00a0\u00a0\u00a0 inx\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 bne zj\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 iny\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 bne xj\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 adc #$01\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 sta prb\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 sta pra\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 bne yj\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 jmp aj\r\ncode\r\n; settings IRQ\/RES\/NMI vectors\r\n* = $FFFA\r\nNMIVEC\u00a0\u00a0 dw\u00a0 begin\u00a0 ; Make the NMI vector point to NMI ISR if you have one.\r\nRESVEC\u00a0\u00a0 dw\u00a0 begin\u00a0 ; Make the reset vector point to the reset routine.\r\nIRQVEC\u00a0\u00a0 dw\u00a0 begin\u00a0 ; Make the IRQ vector point to the timer counter ISR.<\/pre>\n
E\u0161te mal\u00e9 video z v\u00fdstupom programu. 7 segmentovka bola pou\u017eit\u00e1 preto \u017ee nem\u00e1m \u00e1 pou\u017eite\u013en\u00fdch LED di\u00f3d.<\/p>\n