;program kompletni ovladani displeju ;jednotlive bity pro jednotlive desky matice bit 22h.1 segm7 bit 22h.2 segm16 bit 22h.3 radic bit 22h.4 bargraf bit 22h.5 org 0h jmp start org 0bh CLR TR0 jmp prerus org 30h start: mov 22h,#00h mov a,P3 anl a,#11100000b mov 23H,A ;bargraf cjne A,#00000000b,A1 call 180h jmp cyklus ;16-ti segmentovka A1: cjne A,#10000000b,A2 call 140h jmp cyklus ;radic displeje A2: cjne A,#01000000b,A3 call 260h jmp cyklus ;maticovka A3: cjne A,#00100000b,A4 call 220h jmp cyklus ;7-mi segmentovka A4: cjne A,#11000000b,start call 100h jmp cyklus ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;*********** zavedeni promenych a podprogramu pro maticovku ***** ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ xmatice: PER CODE 60535 POCETBYTE CODE 10d POCETDVOJIC CODE 13D ADRESA CODE 30H ;**************************************************************** ;******************** T A B U L K A ************************** ;**************************************************************** org 600h ;A DB 00111110B DB 01010000B DB 10010000B DB 01010000B DB 00111110B ;B DB 01101100B DB 10010010B DB 10010010B DB 10010010B DB 11111110B ;C DB 01000100B DB 10000010B DB 10000010B DB 10000010B DB 01111100B ;D DB 01111100B DB 10000010B DB 10000010B DB 10000010B DB 11111110B ;E DB 10010010B DB 10010010B DB 10010010B DB 10010010B DB 11111110B ;F DB 00000010B DB 00000010B DB 00010010B DB 00010010B DB 01111110B ;G DB 01001100B DB 10001010B DB 10000010B DB 10000010B DB 01111100B ;H DB 11111110B DB 00010000B DB 00010000B DB 00010000B DB 11111110B ;I DB 00000000B DB 00000000B DB 11111110B DB 00000000B DB 00000000B ;J DB 00111110B DB 01000010B DB 10000010B DB 10000010B DB 01000010B ;K DB 10000010B DB 01000100B DB 00101000B DB 00010000B DB 11111110B ;L DB 10000000B DB 10000000B DB 10000000B DB 10000000B DB 11111110B ;M DB 11111110B DB 01000000B DB 00100000B DB 01000000B DB 11111110B ;N DB 11111110B DB 00100000B DB 00010000B DB 00001000B DB 11111110B ;O DB 00111000B DB 01000100B DB 10000010B DB 01000100B DB 00111000B ;P DB 00001110B DB 00010010B DB 00010010B DB 00010010B DB 11111110B ;Q DB 01111010B DB 10000100B DB 10001010B DB 10000010B DB 01111100B ;R DB 10001100B DB 01010110B DB 00110010B DB 00010010B DB 11111110B ;S DB 01001100B DB 10010010B DB 10010010B DB 10010010B DB 01100100B ;T DB 00000010B DB 00000010B DB 11111110B DB 00000010B DB 00000010B ;U DB 11111100B DB 00000010B DB 00000010B DB 00000010B DB 11111100B ;V DB 11111110B DB 01000000B DB 10000000B DB 01000000B DB 11111110B ;W DB 11111100B DB 00001010B DB 00000100B DB 00001010B DB 11111100B ;X DB 11000110B DB 00101000B DB 00010000B DB 00101000B DB 11000110B ;Y DB 10000000B DB 01000000B DB 00111110B DB 01000000B DB 10000000B ;Z DB 10010110B DB 10011010B DB 10010010B DB 10110010B DB 11010010B ;********************************************************************** ;********************************************************************** org 220h MOV TMOD,#1B MOV TH0,#high PER MOV TL0,#low PER SETB EA SETB ET0 MOV R1,#adresa ;ZACATEK PAMETOVEHO PROSTORU MOV r2,#5h ;POMOCNY PRO ROTACI MOV R3,#pocetdvojic MOV R4,#5H MOV R5,#250d MOV r6,#POCETBYTE MOV r7,#11111110b MOV dptr,#600h SETB TR0 ;********************************************************************* setb matice ret ;******************************************************************** ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$ konec podprogramu pro maticovku $$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$ zavedeni promenych a podprogramu pro 7-mi segmentovku $$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ xsegm7: ;******************************************************************** ;*********************** TABULKA ******************************** ;******************************************************************** org 740h ;desitky ;0 db 10000100b ;1 db 10111110b ;2 db 11001000b ;3 db 10011000b ;4 db 10110010b ;5 db 10010001b ;6 db 10000001b ;7 db 10111100b ;8 db 10000000b ;9 db 10010000b ;0 db 10000100b ;jednotky ;0 db 00000100b ;1 db 11010111b ;2 db 10001000b ;3 db 10010001b ;4 db 01010011b ;5 db 00110001b ;6 db 00110000b ;7 db 10010111b ;8 db 00010000b ;9 db 00010001b ;******************************************************************** ;******************************************************************** ;******************************************************************** org 100h mov r5,#20d mov tmod,#00000001 mov th0,#high 15035 mov tl0,#low 15035 setb ea setb et0 setb tr0 MOV R3,#21d MOV DPTR,#740h MOV r0,#30h Zx: MOV a,#00h MOVC a,@a+DPTR MOV @r0,a INC DPTR inc r0 DJNZ r3,Zx MOV R1,#30h MOV R0,#3bh ;******************************************************************** setb segm7 ret ;jmp cyklus ;******************************************************************** ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$ konec podprogramu pro 7-mi segmentovky $$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$ zavedeni podprogramu pro radic $$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ xradic: datain bit p3.1 ;p3.1 data clk bit p3.0 ;p3.0 clk period code 00000 disp1 data 20h disp2 data 21h disp3 data 22h disp4 data 23h disp1h data 24h ;adresy dekodovanzych hornich pulbytu displeje disp2h data 25h disp3h data 26h disp4h data 27h ;******************************************************************** ;*********************** TABULKA ******************************** ;******************************************************************** org 5b0h db 00000000B ;tma db 10101111B ;A db 10101011B ;H db 11101101B ;O db 11101000B ;j db 00000000B ;tma db 00000000B ;tma db 00000000B ;tma db 00010000B ;tma db 00000000B ;tma db 00000000B ;tma db 00000000B ;tma db 00000000B ;tma db 11101101B ;toto je 0 db 00101000B ;1 db 11001110B ;2 db 01101110B ;3 db 00101011B ;4 db 01100111B ;5 db 11100111B ;6 db 00101100B ;7 db 11101111B ;8 db 01101111B ;9 db 10101111B ;A db 11100011B ;B db 11000101B ;C db 11101010B ;D db 11000111B ;E db 10000111B ;F db 10101011B ;H db 00101000B ;I db 11101000B ;j db 11000001B ;L db 11101101B ;O db 10001111B ;P db 01100111B ;S db 11101001B ;U db 00000000B ;tma db 00000000B ;tma db 00000000B ;tma db 00000000B ;tma ;******************************************************************** ;******************************************************************** org 260h startuj: mov dptr,#5b0h ;nastaveni dptr na zacatek tabulky znaku mov A,#0h mov r5,#4D ;registr segmentu mov r1,#20D ;registr stopbitu mov r2,#0h ;registr pro cteni z tabulky znaku mov r3,#41D ;registr pro zopakovani celeho behu mov r4,#2d ;registr citace mov r0,#24h ;registr pro zapis hornich pulbytu mov r6,#9d ;registr zpozdeni behu mov disp1,#0d mov disp2,#0d mov disp3,#0d mov disp4,#0d setb EA setb ET1 mov tmod,#10h mov tl1,low period mov th1,high period startbit: mov r0,#24h setb c clr clk mov datain,c setb clk nop clr clk nop ;toto je opatreni proti nezapojenemu prvnimu vystupu z Leddriveru setb clk nop clr clk vyberznaku: mov A,R2 movc A,@A+dptr INC R2 mov disp1,disp2 mov disp2,disp3 mov disp3,disp4 MOV disp4,A ;********************************************************** zaznam: clr C mov A,disp1 ;dolni pulbyte CALL segmenty mov A,disp2 CALL segmenty mov A,disp3 CALL segmenty mov A,disp4 CALL segmenty ;nyni je v accu disp4 a uz zrotovanej prace automaticky CALL segmenty mov A,disp3h ;horni pulbyte CALL segmenty mov A,disp2h CALL segmenty mov A,disp1h CALL segmenty jmp stopbit ;********************************************************************** ;**** Posila jednotlive bity prenaseneho cisla na branu p3.1 **** ;********************************************************************** segmenty: rlc A mov datain,C setb clk nop clr clk djnz r5,segmenty mov r5,#4D mov @r0,A ;zapis dekodovaneho horniho pulbytu inc r0 ret ;*************************************************************************** citac: setb tr1 jnb f0,citac ;dokud nepovolim f0 bude cyklovat clr f0 clr tr1 mov tl1,low period mov th1,high period mov r6,#9d jmp dalsi ;********************************************************************* ;*tato cast zaplacne posledni 2 bity radice a vysle 1 navic {stopbit}* ;********************************************************************* stopbit: clr datain setb clk nop clr clk djnz R1,stopbit ;zopakuje nekolikrat stopbit jmp citac dalsi: djnz R3,startbit ;dalsi cteni noveho znaku jmp startuj ;*********************************************************************** konecx: jmp konecx ;Toto je obsluzny podprogram casovace T0 org 1bh clr tr1 mov tl1,low period mov th1,high period djnz r6,navrat setb f0 navrat: reti ;******************************************************************** setb radic ret ;******************************************************************** ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$ konec podprogramu pro radic $$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$ zavedeni promenych a podprogramu pro 16 segmentovky $$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ xsegm16: perioda code 55535 ;********************************************************************* ;************* TABULKA ******************************************** ;********************************************************************* ORG 770H ;NULA DB 10010001b DB 11001011B ;JEDNA DB 00000000B DB 01001100B ;DVE DB 10001001b DB 10011011B ;TRI DB 10001000b DB 11011011B ;CTYRI DB 00011000B DB 01011000B ;PET DB 10011000b DB 11010011B ;SEST DB 10011001b DB 11010011B ;SEDM DB 10000000B DB 01001010B ;OSM DB 10011001B DB 11011011B ;DEVET DB 10011000b DB 11011011B ;A DB 10011001b DB 01011010B ;B DB 10011001b DB 10100111B ;C DB 10010001B DB 10000011B ;D DB 00001001b DB 11011001B ;E DB 10011001b DB 10010011B ;f DB 10011001B DB 00010010B ;G DB 10010001B DB 11010011B ;H DB 00011001b DB 01011000B ;I DB 01000100b DB 00000000B ;J DB 10000001B DB 11001011B ;K DB 00011001b DB 00100100B ;L DB 00010001b DB 10000001B ;M DB 00110001b DB 01001100B ;N DB 00110001b DB 01101000B ;O DB 00001001b DB 11010001B ;P DB 10011001B DB 00011010B ;Q DB 10010001b DB 11101011B ;R DB 10011001B DB 00111010B ;S DB 10011000b DB 11010011B ;T DB 11000100b DB 00000010B ;U DB 00010001b DB 11001001B ;X DB 00100010b DB 00100100B ;Y DB 00100100b DB 00000100B ;Z DB 10000010b DB 10000111B ;******************************************************************** ;******************************************************************** org 140h mov tmod,#00000001 mov th0,#high perioda mov tl0,#low perioda setb ea setb et0 ; setb rs0 setb tr0 MOV DPTR,#770H MOV R2,#100D MOV R4,#34 ;******************************************************************** setb segm16 ret ;******************************************************************** ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$ konec podprogramu pro 16-ti segmentovky $$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$ zavedeni promenych a podprogramu pro bargraf $$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ xbargraf: ;**************************************************************** ;*********************** TABULKA *********************** ;**************************************************************** ORG 700h DB 11111111b,11111111b,11111111b,1111111b,111111b,11111b,1111b,111b DB 11b,1b,0b DB 11b,1b,0b,0b,0b,0b,0b,0b DB 0b,0b,0b DB 0b,1b,11b,111b,1111b,11111b,111111b,1111111b DB 11111111b,11111111b,11111111b DB 111111b,111111b,111111b,111111b,111111b,111111b,111111b,111111b DB 111111b,10111111b,11111111b ORG 180H pomoc bit 2fh.1 pocetbyte1 equ 44 setb pomoc mov 20h,#00h mov r1,#10 mov r2,#10 mov r6,#2 ;**************************************************************** ;presu tabulky z pameti programu do pameti dat od adresy 30h ;**************************************************************** MOV R3,#pocetbyte1 MOV DPTR,#700h MOV r0,#30h ZACATEK: MOV a,#00h MOVC a,@a+DPTR MOV @r0,a INC DPTR inc r0 DJNZ r3,ZACATEK ;**************************************************************** ;nastaveni casovace ;**************************************************************** MOV TMOD,#1B MOV TH0,#high 35535 MOV TL0,#low 35535 SETB EA SETB ET0 SETB TR0 ;******************************************************************** setb bargraf ret ;******************************************************************** ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$ konec podprogramu pro bargraf $$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ cyklus: jmp cyklus org 350h prerus: jnb matice,b1 call 370h setb tr0 RETI b1: jnb segm7,b2 call 3D0H setb tr0 RETI b2: jnb segm16,b3 call 410H setb tr0 RETI b3: jnb bargraf,prerus call 470H setb tr0 RETI ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$ Preuseni matice $$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ matice_prerus: org 370h clr tr0 dale: mov a,r7 mov p0,a RL a mov r7,a djnz r2,dale3 mov r2,#5H mov R7,#11111110b Dale3: ;********************************************************************* ;posun v pameti o dva znaky dale ;********************************************************************* DJNZ R5,dale4 MOV R5,#250D MOV R6,#POCETBYTE mov r0,#adresa ZACATEK1: MOV a,#00h MOVC a,@a+DPTR MOV @r0,a INC DPTR inc r0 DJNZ r6,ZACATEK1 mov r7,#11111110b djnz r3,dale4 mov dptr,#600h mov r3,#pocetdvojic dale4: MOV P2,@r1 MOV A,R1 ADD A,#5 MOV R1,A MOV P1,@r1 MOV A,R1 SUBB A,#5 MOV R1,A INC R1 DJNZ R4,KONCI MOV R4,#5H DEC R1 DEC R1 DEC R1 DEC R1 DEC R1 konci: MOV TH0,#high PER MOV TL0,#low PER ret ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$ Preuseni matice - konec $$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$ Preuseni 7-mi segmentovky $$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ segm7_prerus: ORG 3D0H clr tr0 mov th0,#high 15035 mov tl0,#low 15035 djnz r5,konci1 mov r5,#20d ;******************************************************************** ;*********** OBSLUHA DISPLEJE POCITAJICIHO DESITKY ***************** ;******************************************************************** desitky: mov a,@r1 mov p1,a cjne r1,#3ah,jednotky mov r1,#30h ;******************************************************************** ;*********** OBSLUHA DISPLEJE POCITAJICIHO JEDNOTKY ***************** ;******************************************************************** jednotky: mov a,@r0 mov p2,a inc r0 cjne r0,#45h,konci1 mov r0,#3bh inc r1 konci1: ret ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$ Preuseni 7-mi segmentovky - konec $$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$ Preuseni 16-ti segmentovky $$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ORG 410H segm16_prerus: clr tr0 mov th0,#high perioda mov tl0,#low perioda ;**************************************************************** ;presu tabulky z pameti programu do pameti dat od adresy 30h ;**************************************************************** djnz r2,test MOV R2,#100D MOV R3,#2 MOV r0,#30h ;**************************************************************** ;**************************************************************** ;PO VYVOLANI PRERUSENI SE PRENESE ZNAK Z PAMETI PRO PRVNI DISPLEJ ;DO PAMETOVEHO MISTA OD KUD SE CTE PRO DRUHY DISPLEJ / TIM SE DOCILI ;POSUVU CISLIC /PISMEN/ Z JEDNE POZICE NA DRUHOU ; KAZDY ZNAK ZABIRA DVA BAJTY ;**************************************************************** ;**************************************************************** MOV A,30H MOV 32H,A MOV A,31H MOV 33H,A ;**************************************************************** ;**************************************************************** ;**************************************************************** ;*** PRENESE 2 BYTY Z PAMETI PROGRAMU DO PAMETI DAT *********** ;**************************************************************** ZACATEK2: MOV a,#00h MOVC a,@a+DPTR MOV @r0,a INC DPTR inc r0 DJNZ r3,ZACATEK2 MOV R3,#2 ;**************************************************************** ;**************************************************************** ;**************************************************************** ;TESTUJE ZDALI UZ BYLI ZOBRAZENY VSECHNY ZNAKY CO JSOU V PAMETI** ;**************************************************************** DJNZ R4,TEST MOV DPTR,#770h MOV R4,#34 ;**************************************************************** ;**************************************************************** ;****************************************************************** ;PERIODYCKE PREPINANI MEZI OBEMA DISPLEJI S FREKVENCI OKOLO 100 HZ ; NASE OKO TO NEREGISTRUJE A TAK JE VIDET Y\ZE OBA DISPLEJE SVITI ;**************************************************************** test: jnb f0,displej2 setb p3.2 clr p3.1 ;zapne display 1 mov p2,30h mov p1,31h clr f0 jmp navrat2 displej2: setb p3.1 clr p3.2 mov p2,32h mov p1,33h setb f0 jmp navrat2 navrat2: ret ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$ Preuseni 16-ti segmentovky - konec $$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$ Preuseni bargraf $$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ORG 470H bargraf_prerus: djnz r6,pryc mov r6,#2 clr tr0 jb pomoc,inkrementuj dekrementuj: mov a,20h dec a mov 20h,a djnz r1,pisu mov r1,#10 setb pomoc jmp pisu inkrementuj: mov a,20h inc a mov 20h,a djnz r2,pisu mov r2,#10 clr pomoc pisu: ;**************************************************************** ;obsluha brany p1 pri preruseni ;**************************************************************** mov a,#30h add a,20h mov r0,a mov a,@r0 mov p1,a ;**************************************************************** ;obsluha brany p3 pri preruseni ;**************************************************************** mov a,#3bh add a,20h mov r0,a mov a,@r0 mov p3,a ;**************************************************************** ;obsluha brany p0 pri preruseni ;**************************************************************** mov a,#46h add a,20h mov r0,a mov a,@r0 mov p0,a ;**************************************************************** ;obsluha brany p2 pri preruseni ;**************************************************************** mov a,#51h add a,20h mov r0,a mov a,@r0 mov p2,a MOV TH0,#high 35535 MOV TL0,#low 35535 pryc: ret ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$ Preuseni bargraf - konec $$$$$$$$$$$$$$$$$$$$ ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ end