Tyto stránky již nejsou udržovány. Obsah je postupně přesouván/aktualizován na adrese chytrosti.marrek.cz.
1/1
Na této stránce jsou k dispozici zdrojové soubory, které jsem vytvářel při výkladu během výuky. Nejsou to ukázkové a bezchybné zdrojové soubory. Ba naopak, jsou to pracovní neučesané verze, které vznikaly interaktivně ve výuce, často s cílem ukázat, že "takto se to nemá".
1 mov DPTR, #segment
2 mov R0, #0
3 zac:
4 call zobraz
5 call del800
6 inc R0
7 jmp zac
8
9
10 zobraz:
11 mov A,R0
12 movc A,@A+DPTR
13 mov P2, A
14 RET
15
16 XRL
17
18 segment:
19 db 11000000b ; 0
20 db 11111001b ; 1
21 db 10100100b ; 2
22 db 10110000b ; 3
23 db 10011001b ; 4
24 db 10010010b ; 5
25 db 10000010b ; 6
26 db 11111000b ; 7
27 db 10000000b ; 8
28 db 10010000b ; 9
29
30 include delay.inc
31
32 END