Kamis, 17 Februari 2011
$mod51 baris equ p0 dta bit p2.0 mrst bit p2.2 clock bit p2.4 jkl equ 24 start: mov p0,#127 mov dptr,#ud1 call upi call fl call lr mov dptr,#BINA call dni call fl call lr mov dptr,#wyt call rs mov dptr,#tbl call lr mov dptr,#ud1 call fl call upo mov dptr,#ud1 call dni call fl call lr mov dptr,#ud1 call upi call upo mov dptr,#bina call lr mov dptr,#ud1 call dno call dni call fl call lr jmp start ;geser kiri lr: lr3: mov r7,#20 lr2: call rst mov r6,#0 lr1: mov a,R6 movc a,@a+dptr cjne a,#255,ljt ret ljt: mov baris,a call tunda mov baris,#127 call clk inc r6 cjne r6,#jkl,lr1 djnz r7,lr2 inc dptr jmp lr3 ;geser kanan rs: mov b,#0ffh masih: inc b mov a,b movc a,@a+dptr cjne a,#255,masih rl3: mov r7,#20 rl2: call rst mov r6,#0 rl1: mov a,r6 add a,b movc a,@a+dptr mov Baris,a call tunda mov Baris,#127 call clk inc r6 cjne r6,#jkl,rl1 djnz r7,rl2 djnz b,rl3 ret ;flash fl: mov r5,#7 fl3: mov r7,#50 fl2: call rst mov r6,#0 fl1: mov a,r6 movc a,@a+dptr mov Baris,a call tunda mov Baris,#127 call clk inc r6 cjne r6,#jkl,fl1 djnz r7,fl2 mov r4,#50 fl4: mov r3,#jkl fl5: call tunda djnz r3,fl5 djnz r4,fl4 djnz r5,fl3 ret ;up in upi: mov r4,#255 mov r5,#0 up4: inc r5 mov a,r4 clr c rlc a mov r4,a mov r7,#40 up3: mov baris,#127 call rst mov r6,#0 up2: mov a,r6 movc a,@a+dptr setb acc.7 mov b,r5 up1: rl a djnz b,up1 orl a,r4 mov Baris,a call tunda mov Baris,#127 call clk inc r6 cjne r6,#jkl,up2 djnz r7,up3 cjne r5,#8,up4 ret ;up out upo: mov r4,#0 mov r5,#0 uo4: inc r5 mov r7,#40 uo3: mov baris,#127 call rst mov r6,#0 uo2: mov a,r6 movc a,@a+dptr rr a mov b,r5 uo1: rl a djnz b,uo1 orl a,r4 mov baris,a call tunda mov baris,#127 call clk inc r6 cjne r6,#jkl,uo2 djnz r7,uo3 mov a,r4 setb c rlc a mov r4,a cjne r5,#8,uo4 ret ;down in dni: mov r4,#255 mov r5,#0 dn4: inc r5 mov a,r4 clr c rrc a mov r4,a mov r7,#40 dn3: mov baris,#127 call rst mov r6,#0 dn2: mov a,r6 movc a,@a+dptr setb acc.7 mov b,r5 dn1: rr a djnz b,dn1 orl a,r4 mov baris,a call tunda mov baris,#127 call clk inc r6 cjne r6,#jkl,dn2 djnz r7,dn3 cjne r5,#8,dn4 ret ;down out dno: mov r4,#0 mov r5,#0 do4: inc r5 mov r7,#40 do3: mov baris,#127 call rst mov r6,#0 do2: mov a,r6 movc a,@a+dptr setb acc.7 mov b,r5 do1: rr a djnz b,do1 orl a,r4 mov baris,A call tunda mov baris,#127 call clk inc r6 cjne r6,#jkl,do2 djnz r7,do3 mov a,r4 setb c rrc a mov r4,a cjne r5,#8,do4 ret sdata: SETB dta call clk clr dta ret rst: clr mrst nop setb p2.2 call sdata ret clk: setb clock nop clr clock ret tunda: push b mov b,#45 djnz b,$ pop b ret ;smk = 3 chr ud1: db 127,127,127,127,89,54,54,54,77,127,0,125,115,125,0,127,0,119,107,98,62,127 db 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,255 tlr: db 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127 db 0,125,123,119,0,95,43,43,43,7,123,123,64,59,59,95,43,43,43,7,127,65,063,127 ;BINA = 4 chr BINA: db 127,0,54,54,54,73,127,127,62,0,62,127,127,0,125,123,119,0,127 db 1,118,118,118,1,127,127,127,127,127,127,127,127,127,127,127,255 ;WIYATA = 6 chr wyt: db 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, db 64,63,71,63,64,127,127,62,0,62,127,127,120,199,15,119,120,127 db 1,118,118,118,1,127,126,126,0,126,126,127,1,118,118,118,1,127 db 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, db 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,255 ;smk binawiyata karangmalang sragen Alamat:jln.Abimanyu No.18 Taman Asri Sr = 80 chr tbl: db 127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127,127, db 89,54,54,54,77,127,0,125,115,125,0,127,0,119,107,93,62,127, db 127,127,127,127,127,127,0,54,54,54,73,127,127,59,2,63,127,127 db 3,119,123,123,7,127,95,43,43,43,7,127,67,63,79,63,67,127 db 127,59,2,63,127,127,123,119,15,119,123,127,95,43,43,43,7,127 db 123,123,64,59,59,127,95,43,43,43,7,127,127,127,127,127,127,127 db 0,119,107,93,62,127,95,43,43,43,7,127,3,119,123,123,119,127 db 95, 43, 43, 43, 7, 127, 3, 119, 123, 123 ,7, 127, 119, 43, 43, 43, 67, 127 db 3, 123, 3, 123, 7, 127, 95, 43, 43, 43, 7, 127, 127, 62, 0, 63, 127, 127 db 95, 43, 43, 43, 7, 127, 3, 119, 123, 123, 7, 127, 119, 43, 43, 43, 67, 127 db 127, 127, 127, 127, 127, 127, 89, 54, 54, 54, 77, 127, 3, 119, 123, 123, 119, 127 db 95, 43, 43, 43, 7, 127, 119, 43, 43, 43, 67, 127, 71, 43, 43, 43, 103, 127 db 3, 119, 123, 123, 7, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127 db 127, 127, 127, 127, 127, 127, 127,127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127 db 127, 127, 127, 127, 127, 127, 127,127, 127, 127, 127, 127, 1, 118, 118, 118, 1, 127 db 127, 62, 0, 63, 127, 127, 95, 43, 43, 43, 7, 127, 3, 123, 3, 123, 7, 127 db 95, 43, 43, 43, 7, 127, 123, 123, 64, 59, 59, 127, 127, 73, 73, 127, 127, 127 db 95, 63, 62, 62, 64, 127, 127, 62, 0, 63, 127, 127, 3, 119, 123, 123, 7, 127 db 127, 31, 31, 127, 127, 127, 1, 118, 118, 118, 1, 127, 0, 59, 59, 59, 71, 127 db 127, 59, 2, 63, 127, 127, 3, 123, 3, 123, 7, 127, 95, 43, 43, 43, 7, 127 db 3, 119, 123, 123, 7, 127, 123, 119, 15, 119, 123, 127, 67, 63, 63, 95, 3, 127 db 127, 127, 127, 127, 127, 127, 0, 125, 123, 119, 0, 127, 71, 59, 59, 59, 71, 127 db 127, 31, 31, 127, 127, 127, 127, 61, 0, 63, 127, 127, 73, 54, 54, 54, 73, 127 db 127, 127, 127, 127, 127, 127, 126, 126, 0, 126, 126, 127, 95, 43, 43, 43, 7, 127 db 3, 123, 3, 123, 7, 127, 95, 43, 43, 43, 7, 127, 3, 119, 123, 123, 7, 127 db 127, 127, 127, 127, 127, 127, 1, 118, 118, 118, 1, 127, 55, 43, 43, 43, 91, 127 db 3, 119, 123, 123, 119, 127, 127, 59, 2, 63, 127, 127, 127, 127, 127, 127, 127, 127 db 89, 54, 54, 54, 77, 127, 3, 119, 123, 123, 119, 127, db 95, 43, 43, 43, 7, 127, 119, 43, 43, 43, 67, 127, 71, 43, 43, 43, 103, 127 db 3, 119, 123, 123, 7, 127, 127, 127, 127, 127, 127, 127, 56, 58, 58, 58, 70, 127 db 126, 14, 118, 122, 124, 127, 61, 30, 46, 54, 57, 127, 61, 30, 46, 54, 57, 127 db 127, 61, 0, 63, 127, 127, 127, 127, 127, 127, 127, 127, 126, 126, 0, 126, 126, 127 db 71, 43, 43, 43, 103, 127, 127, 62, 0, 63, 127, 127, 3, 107, 107, 107, 119, 127 db 127, 31, 31, 127, 127, 127, 99, 93, 62, 127, 127, 127, 65, 62, 62, 62, 65, 127 db 61, 30, 46, 54, 57, 127, 126, 14, 118, 122, 124, 127, 127, 61, 0, 63, 127, 127 db 127, 127, 62, 93, 99, 127, 73, 54, 54, 54, 73, 127, 89, 54, 54, 54, 65, 127 db 127, 61, 0, 63, 127, 127, 73, 54, 54, 54, 73, 127, 127, 61, 0, 63, 127, 127 db 73, 54, 54, 54, 73, 127, 127, 127, 127, 127, 127, 127, 127, 0, 54, 54, 54, 62, 127 db 119, 119, 119, 119, 119, 127, 3, 123, 3, 123, 7, 127, 95, 43, 43, 43, 7, 127 db 127, 59, 2, 63, 127, 127, 127, 62, 0, 63, 127, 127, 127, 73, 73, 127, 127, 127 db 55, 43, 43, 43, 91, 127, 3, 123, 3, 123, 7, 127, 0, 111, 87, 59, 127, 127 db 0, 59, 59, 59, 71, 127, 67, 63, 79, 63, 67, 127, 63, 63, 63, 63, 63, 127 db 55, 43, 43, 43, 91, 127, 3, 119, 123, 123, 119, 127, 119, 43, 43, 43, 67, 127 db 65, 62, 34, 42, 33, 127, 123, 119, 15, 119, 123, 127, 95, 43, 43, 43, 7, 127 db 0, 119, 123, 123, 7, 127, 71, 59, 59, 59, 71, 127, 71, 59, 59, 59, 71, 127 db 127, 31, 31, 127, 127, 127, 71, 59, 59, 59, 59, 127, 71, 59, 59, 59, 71, 127 db 3, 123, 3, 123, 7, 127, 127, 127, 127, 127, 127, 127, 64, 63, 71, 63, 64, 127 db 71, 43, 43, 43, 103, 127, 0, 59, 59, 59, 71, 127, 55, 43, 43, 43, 91, 127 db 127, 59, 2, 63, 127, 127, 123, 123, 64, 59, 59, 127, 71, 43, 43, 43, 103, 127 db 127, 73, 73, 127, 127, 127, 127, 127, 127, 127, 127, 127, 0, 119, 123, 123, 7, 127 db 123, 123, 64, 59, 59, 127, 123, 123, 64, 59, 59, 127, 3, 107, 107,107, 119, 127 db 127, 73, 73, 127, 127, 127, 95, 111, 119, 33, 125, 127, 95, 111, 119, 123, 125, 127 db 55, 43, 43, 43, 91, 127, 3, 123, 3, 123, 7, 127, 0, 111, 87, 59, 127, 127 db 0, 59, 59, 59, 71, 127, 127, 59, 2, 63, 127, 127, 3, 119, 123, 123, 7, 127 db 95, 43, 43, 43, 7, 127, 67, 63, 79, 63, 67, 127 db 127, 59, 2, 63, 127, 127, 123, 119, 15, 119, 123, 127, 95, 43, 43, 43, 7, 127 db 123, 123, 64, 59, 59, 123, 95, 43, 43, 43, 7, 127, 127, 31, 31, 127, 127, 127 db 55, 43, 43, 43, 91, 127, 71, 59, 59, 59, 59, 127, 0, 119, 123, 123, 7, 127 db 127, 31, 31, 127, 127, 127, 127, 59, 2, 63, 127, 127, 71, 59, 59, 59, 0, 127 db 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 127, 255 end
