麻烦各位帮我这段程序翻译成汇编语言啊,实在麻烦了!着急要用的自己试了好久都不行...

麻烦各位帮我这段程序翻译成汇编语言啊,实在麻烦了!着急要用的自己试了好久都不行...,第1张

试试看

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

以上就是关于麻烦各位帮我这段程序翻译成汇编语言啊,实在麻烦了!着急要用的自己试了好久都不行...全部的内容,包括:麻烦各位帮我这段程序翻译成汇编语言啊,实在麻烦了!着急要用的自己试了好久都不行...、继续提问,希望大家再次帮助我,谢谢!、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/zz/9615181.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-04-30
下一篇2023-04-30

发表评论

登录后才能评论

评论列表(0条)

    保存