
试试看
org 0000H
jmp Start
org 000bh
jmp TIMER0
Start:
call INIT
mov count,#20
mov dcount,#99h
mov a,dcount
anl a,#0fh
mov ge_buf,a
mov a,dcount
swap a
anl a,#0fh
mov shi_buf,a
loop:
call key_scan
jmp loop
key_scan:
jb k1,chk_tr0
call delay
jb k1,chk_tr0
clr tr0 ;
chk_tr0:
jb tr0,chk_k4
chk_k2:
jb k2,chk_k3
call delay;
jb k2,chk_k3
mov a,dcount
cjne a,#99h,not_to_99
jmp chk_k3
not_to_99:
mov a,ge_buf
cjne a,#09h,ge_not_9
mov a,shi_buf
cjne a,#09h,shi_not_9
jmp k2_end
shi_not_9:
inc shi_buf
mov ge_buf,#00h
call ge_shi_dcnt
jmp k2_end
ge_not_9:
inc ge_buf
call ge_shi_dcnt
k2_end:
call display
jnb k2,k2_end
chk_k3:
jb k3,chk_k4
call delay;
jb k3,chk_k4
call dcnt_shi_ge
mov a,ge_buf
cjne a,#00h,dec_ge
mov a,shi_buf
cjne a,#00h,dec_shi
mov dcount,#0h
jmp chk_k4
dec_ge:
dec ge_buf
call ge_shi_dcnt
jmp k3_end
dec_shi:
dec shi_buf
mov ge_buf,#09h
call ge_shi_dcnt
k3_end:
call display
jnb k3,k3_end
chk_k4:
jb k4,key_ret
call delay;
jb k4,key_ret
setb tr0
key_ret:
ret
delay:
mov r2,#20
D1:
mov r3,#100
D2:
djnz r3,D2
djnz r2,D1
ret
delay_1:
mov r2,#250
D1_1:
mov r3,#250
D2_1:
djnz r3,D2_1
djnz r2,D1_1
ret
INIT:
mov p0,#6FH ;
mov p2,#6Fh ;
mov p1,#0FFh ;
clr buz;
mov tmod,#01;
mov ie,#82h;
mov th0,#3Ch ;=(65536-50000)/256;
mov tl0,#00h ;=(65536-50000)%256;
setb tr0 ;
mov dcount,#99h ;
ret
TIMER0:
push acc
push psw
djnz count,D0
mov count,#20
call dcnt_shi_ge
mov a,ge_buf
cjne a,#00h,ge_not_0
mov a,shi_buf
cjne a,#00h,shi_not_0
jmp dcount_end
ge_not_0:
dec ge_buf
jmp not_end
shi_not_0:
dec shi_buf
mov ge_buf,#09
jmp not_end
dcount_end:
clr tr0;
jnb k1,k1_press;while(k1!=0)
mov P0,#00 ;
mov P2,#00 ;
setb buz;
call delay_1;
call delay_1;
call delay_1;
call delay_1;
mov P0,#0ffh;
mov P2,#0ffh;
clr buz;
call delay_1;
K1_press:
mov dcount,#99h;
call dcnt_shi_ge
not_end:
call display
call ge_shi_dcnt
D0:
mov th0,#3Ch
mov tl0,#0B0h
pop psw
pop acc
reti
display:
call ge_shi_dcnt
mov dptr,#duan
mov a,shi_buf
movc a,@a+dptr
mov p0,a
mov a,ge_buf
movc a,@a+dptr
mov p2,a
ret
dcnt_shi_ge:
mov a,dcount
anl a,#0fh
mov ge_buf,a
mov a,dcount
swap a
anl a,#0fh
mov shi_buf,a
ret
ge_shi_dcnt:
mov a,shi_buf
swap a
orl a,ge_buf
mov dcount,a
ret
k1 EQU P10;
k2 EQU P11;
k3 EQU P12;
k4 EQU P13;
buz EQU P30;
count EQU 20h
shi_buf EQU 21h
ge_buf EQU 22h
dcount EQU 23h
dicount EQU 24h
duan: DB 3Fh,06h,5Bh,4Fh,66h,6Dh,7Dh,07h,7Fh,6Fh,00h
END
将下面文件保存为1reg 导入并重起系统。。。
这是我电脑中的配置。。。不过会导致你当前桌面壁纸 消失。。。。
Windows Registry Editor Version 500
[HKEY_CURRENT_USER\Control Panel\Desktop]
"ActiveWndTrkTimeout"=dword:00000000
"AutoEndTasks"="1"
"CaretWidth"=dword:00000001
"CoolSwitch"="1"
"CoolSwitchColumns"="7"
"CoolSwitchRows"="3"
"CursorBlinkRate"="530"
"DragFullWindows"="0"
"DragHeight"="4"
"DragWidth"="4"
"FontSmoothing"="0"
"FontSmoothingOrientation"=dword:00000001
"FontSmoothingType"=dword:00000001
"ForegroundFlashCount"=dword:00000003
"ForegroundLockTimeout"=dword:00000000
"GridGranularity"="0"
"HungAppTimeout"="1000"
"LowPowerActive"="0"
"LowPowerTimeOut"="0"
"MenuShowDelay"="90"
"PaintDesktopVersion"=dword:00000000
"PowerOffActive"="0"
"PowerOffTimeOut"="0"
"ScreenSaverIsSecure"="1"
"ScreenSaveTimeOut"="600"
"ScreenSaveActive"="1"
"TileWallpaper"="0"
"UserPreferencesMask"=hex:b0,32,03,80
"WaitToKillAppTimeout"="1000"
"Wallpaper"="C:\\Documents and Settings\\new\\Local Settings\\Application Data\\Microsoft\\Wallpaper1bmp"
"WallpaperStyle"="2"
"OriginalWallpaper"="C:\\Documents and Settings\\new\\Local Settings\\Application Data\\Microsoft\\Wallpaper1bmp"
"WheelScrollLines"="7"
"ConvertedWallpaper"="C:\\Documents and Settings\\new\\桌面\\kitejpg"
"ConvertedWallpaper Last WriteTime"=hex:00,7c,a2,1a,59,0f,c6,01
"Pattern Upgrade"="TRUE"
"SmoothScroll"=dword:00000000
"SCRNSAVEEXE"="C:\\WINDOWS\\system32\\logonscr"
[HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics]
"BorderWidth"="0"
"CaptionFont"=hex:f3,ff,ff,ff,00,00,00,00,00,00,00,00,00,00,00,00,bc,02,00,00,\
00,00,00,01,00,00,00,00,8b,5b,53,4f,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
"CaptionHeight"="-375"
"CaptionWidth"="-270"
"IconFont"=hex:f4,ff,ff,ff,00,00,00,00,00,00,00,00,00,00,00,00,90,01,00,00,00,\
00,00,01,00,00,00,00,8b,5b,53,4f,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
"IconSpacing"="-1125"
"IconTitleWrap"="1"
"IconVerticalspacing"="-1125"
"MenuFont"=hex:f4,ff,ff,ff,00,00,00,00,00,00,00,00,00,00,00,00,90,01,00,00,00,\
00,00,01,00,00,00,00,8b,5b,53,4f,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
"MenuHeight"="-285"
"MenuWidth"="-270"
"MessageFont"=hex:f4,ff,ff,ff,00,00,00,00,00,00,00,00,00,00,00,00,90,01,00,00,\
00,00,00,01,00,00,00,00,8b,5b,53,4f,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
"ScrollHeight"="-255"
"ScrollWidth"="-255"
"Shell Icon BPP"="16"
"SmCaptionFont"=hex:f4,ff,ff,ff,00,00,00,00,00,00,00,00,00,00,00,00,bc,02,00,\
00,00,00,00,01,00,00,00,00,8b,5b,53,4f,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
"SmCaptionHeight"="-255"
"SmCaptionWidth"="-255"
"StatusFont"=hex:f4,ff,ff,ff,00,00,00,00,00,00,00,00,00,00,00,00,90,01,00,00,\
00,00,00,01,00,00,00,00,8b,5b,53,4f,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
"Shell Icon Size"="32"
"AppliedDPI"=dword:00000060
"MinAnimate"="0"
修复IE 将下面命令保存为1bat 并执行
rundll32exe advpackdll /DelNodeRunDLL32 C:\\WINNT\\System32\\dacuidll
rundll32exe advpackdll /DelNodeRunDLL32 C:\\WINNT\\Catroot\\icatalogmdb
Regsvr32 URLMONDLL /s
Regsvr32 actxprxydll /s
Regsvr32 shdocvwdll /s
regsvr32 oleaut32dll /s
regsvr32 setupwbvdll /s
regsvr32 wininetdll /s
regsvr32 comcatdll /s
regsvr32 shdoc401dll /s
regsvr32 shdoc401dll /i /s
regsvr32 asctrlsocx /s
regsvr32 oleaut32dll /s
regsvr32 shdocvwdll /I /s
regsvr32 shdocvwdll /s
regsvr32 browseuidll /s
regsvr32 browseuidll /I /s
regsvr32 msratingdll /s
regsvr32 mlangdll /s
regsvr32 hlinkdll /s
regsvr32 mshtmldll /s
regsvr32 mshtmleddll /s
regsvr32 urlmondll /s
regsvr32 pluginocx /s
regsvr32 sendmaildll /s
regsvr32 comctl32dll /i /s
regsvr32 inetcplcpl /i /s
regsvr32 mshtmldll /i /s
regsvr32 scrobjdll /s
regsvr32 mmefxeocx /s
regsvr32 proctexeocx mshtaexe /register /s
regsvr32 corpoldll /s
regsvr32 jscriptdll /s
regsvr32 msxmldll /s
regsvr32 imgutildll /s
regsvr32 thumbvwdll /s
regsvr32 cryptextdll /s
regsvr32 rsabasedll /s
regsvr32 trieditdll /s
regsvr32 dhtmledocx /s
regsvr32 insengdll /s
regsvr32 iesetupdll /i /s
regsvr32 hmmapidll /s
regsvr32 cryptdlgdll /s
regsvr32 actxprxydll /s
regsvr32 dispexdll /s
regsvr32 occachedll /s
regsvr32 occachedll /i /s
regsvr32 iepeersdll /s
regsvr32 wininetdll /i /s
regsvr32 urlmondll /i /s
regsvr32 digestdll /i /s
regsvr32 cdfviewdll /s
regsvr32 webcheckdll /s
regsvr32 mobsyncdll /s
regsvr32 pngfiltdll /s
regsvr32 licmgr10dll /s
regsvr32 icmfilterdll /s
regsvr32 hhctrlocx /s
regsvr32 inetcfgdll /s
regsvr32 trialocdll /s
regsvr32 tdcocx /s
regsvr32 MSR2CDLL /s
regsvr32 msidentdll /s
regsvr32 msieftpdll /s
regsvr32 xmsconfocx /s
regsvr32 ilsdll /s
regsvr32 msoeacctdll /s
regsvr32 wab32dll /s
regsvr32 wabimpdll /s
regsvr32 wabfinddll /s
regsvr32 oemiglibdll /s
regsvr32 directdbdll /s
regsvr32 inetcommdll /s
regsvr32 msoedll /s
regsvr32 oeimportdll /s
regsvr32 msdxmocx /s
regsvr32 dxmasfdll /s
regsvr32 laprxydll /s
regsvr32 l3codecxax /s
regsvr32 acelpdecax /s
regsvr32 mpg4ds32ax /s
regsvr32 voxmsdecax /s
regsvr32 danimdll /s
regsvr32 Daxctleocx /s
regsvr32 lmrtdll /s
regsvr32 datimedll /s
regsvr32 dxtransdll /s
regsvr32 dxtmsftdll /s
regsvr32 vgxdll /s
regsvr32 WEBPOSTDLL /s
regsvr32 WPWIZDLLDLL /s
regsvr32 POSTWPPDLL /s
regsvr32 CRSWPPDLL /s
regsvr32 FTPWPPDLL /s
regsvr32 FPWPPDLL /s
regsvr32 FLUPLOCX /s
regsvr32 wshomocx /s
regsvr32 wshextdll /s
regsvr32 vbscriptdll /s
regsvr32 scrrundll mstinitexe /setup /s
regsvr32 msnsspcdll /SspcCreateSspiReg /s
regsvr32 msapsspcdll /SspcCreateSspiReg /s
以上就是关于麻烦各位帮我这段程序翻译成汇编语言啊,实在麻烦了!着急要用的自己试了好久都不行...全部的内容,包括:麻烦各位帮我这段程序翻译成汇编语言啊,实在麻烦了!着急要用的自己试了好久都不行...、继续提问,希望大家再次帮助我,谢谢!、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)