微机原理实验编程

编程实现16+32微机原理实验~

objectMainextendsApp{
varreverse_pairs = 0//逆序数
defmsort[T](cmp:(T, T) => Boolean)(l:List[T]):List[T] = {
defmerge(l1:List[T], l2:List[T]):List[T]=(l1, l2)match{
case(Nil, _) => l2
case(_, Nil) => l1
case(x::left1, y::left2) =>
if(cmp(x, y))
x::merge(left1, l2)
else{
reverse_pairs += l1.length
y::merge(l1, left2)
}
}
valn = l.length / 2
if(n == 0)
return l
else{
val(l1, l2) = l.splitAt(n)
merge(msort(cmp)(l1), msort(cmp)(l2))
}
}
println(msort((x:Int, y:Int) => x<y)(List(5, 4, 3, 2, 7,6 )))
println(reverse_pairs)
}

太简单了，我教你，咋不早说，点击满意答案显示详解

　　给一个类似的设计程序你可以参考一下，修改相应端口的设置。

　　详细设计：
　　编写汇编程序通过8255A控制四个方向交通灯的状态，具体假设设计状态如下：
　　1、首先初始状态0为东西南北都关灯。
　　2、然后经过一段时间后转为状态1东西绿灯通车，南北红灯。
　　3、过一段时间转为状态2，东西绿灯闪几次转亮黄灯，延时几秒，南北路口的仍然亮红灯。
　　4、再转状态3，南北绿灯通车，东西红灯。
　　5、过一段时间转状态4，南北绿灯闪几次转亮黄灯，延时几秒，东西仍然红灯。
　　6、最后返回至状态1继续循环。

　　说明：（1）实际上黄灯的闪烁由两个状态组成，例如南北红灯同时东西黄灯亮与南北红灯同时东西黄灯灭这两个状态的组成。所以端口一共有七组状态。
　　东西方向：PA0红灯；PA1黄灯；PA3绿灯；
　　南北方向：PA4红灯；PA5黄灯；PA6绿灯；

　　（2）双色LED是由一个红灯LED管芯和一个绿色LED管芯封装在一起，公用负端。当红色端加高电平，绿色正端加低电平，红灯亮；当红色端加低电平，绿色正端加高电干，绿灯亮；两端都加高电平时，黄灯亮。

　　源程序代码
　　DATA SEGMENT
　　TIME1 EQO 10
　　TIME2 EQO 600
　　OUT_CODE DB 14H,5 DUP(12H,10H),41H,5 DUP(21H,01H),0
　　DATA ENDS
　　CODE SEGMENT
　　ASSUME CS:CODE,DS:DATA
　　START: MOV AX,DATA
　　MOV DS,AX
　　MOV DX,307H ;控制字端口地址送DX
　　MOV AL,80H ;送方式字
　　OUT DX,AL
　　MOV DX,304H ;端口A的输出端送DX
　　LPPO0: LEA SI. OUT_CODE ;数据段
　　LPPO1:MOV AL,[SI]
　　AND AL,AL ；CF置零
　　JZ LOOP0
　　OUT DX,AL
　　INC SI
　　MOV CX,TIME1 ；短延时
　　TEST AL,44H ；测码字为14H或41H?
　　JZ DELAY1 ；均非
　　MOV CX,TIME2 ；长延时
　　DELAY1:PUSH CX ;延时程序
　　PUSH AX
　　MOV CX,0040H
　　A1: MOV AX,056CH
　　A2: DEC AX
　　JNZ A2
　　LOOP A1
　　POP AX
　　POP CX
　　LOOP DELAY1
　　MOV AH,0BH ；检测是否有键盘输入
　　INT 21H
　　AND AL,AL
　　JZ LOOP1
　　XOR AL,AL ；关灯退出
　　OUT DX,AL
　　MOV AH,4CH ；返回DOS系统
　　INT 21H
　　CODE ENDS
　　END START

　　程序运行结果

　　初始状态为东西南北全都为关灯。经过一段时间后，东西方向交通灯变绿，南北仍然为红灯。再一段时间后，东西黄灯开始闪烁，闪5次，南北仍为红灯。接着东西红灯亮，同时南北方向变成绿灯。同样，一段时间后，南北黄灯闪5次，东西为红灯。接着回到东西绿灯，南北红灯，如此往复循环。

---

伊金霍洛旗18471359292： 微机原理实验.怎么编程？
姬耍小儿： int() {int x,y,z,w;x = 5;y = 6;z = 7;w = x + y + z; } mov ax,5; mov bx,6; add bx,ax; mov ax,7; add bx,ax; 值在bx里.int AddNum() { int x,y,z,w; x = 5; y = 6; z = 7; w = x + y + z; } 忘了加函数名.

伊金霍洛旗18471359292： 微机原理编程:数组中的数按从大到小的顺序排列 - ？
姬耍小儿： START: MOV SI ,OFFSET BLOCK MOV DI,OFFSET PLUS_DATA MOV BX,OFFSET MINUS_DATA MOV CX,COUNT GOON:LODS BLOCK TEST AL,80H JNZ MIUS STOSB JMP AGAIN MIUS:XCHG BX,DI STOSB XCHG BX,DI AGAIN:DEC CX JNZ GOON HLT

伊金霍洛旗18471359292： 微机原理 编写程序段,或补充完成完整程序 - ？
姬耍小儿： 1、用寄存器BX和位移量COUNT的寄存器相对寻址方式,把存储器中的一个字与AX寄存器之内容相加,并把结果保存在存储器单元中.解:ADD AX , [BX+COUNT] MOV [BX+COUNT] , AX2、将AX寄存器的内容减去CX寄存器的内容,并把结...

伊金霍洛旗18471359292： 求微机原理编程,要有注释 - ？
姬耍小儿： STACK1 SEGMENT STACK;堆栈段可以不要DW 64 DUP(?) STACK1 ENDSCODE SEGMENTASSUME CS:CODE START: MOV DI,3000H ;设数据区首址MOV CL,[DI] ;送数据个数XOR CH,CH ;CH 清0MOV BL,CH ;BL 清0INC DI ;...

伊金霍洛旗18471359292： 编写微机原理试验程序测量电机转数？
姬耍小儿： http://wenku.baidu.com/view/75cdd97da26925c52cc5bf77.html

伊金霍洛旗18471359292： 微机原理编程,从1加到100~~~求答案 ？
姬耍小儿： CODE SEGMNT ASSUME CS: CODESTART MOV BL , 1 XOR AL , ALAGAIN CMP BL , 100 JA DONE ADD AL , BL INC BL JMP AGAINDONE: MOV AH , 4CH INT 21HCODE ENDS END START

伊金霍洛旗18471359292： 微机原理 数码转换编程实验？
姬耍小儿： DATA SEGMENT STR1 DB 31H,41H,32H,42H DATA ENDS CODE SEGMENT ASSUME CS:CODE,DS:DATA START: MOV AX,DATA MOV DS,AX ;初始化DS LEA SI,STR1 XOR BX,BX MOV CL,4 MOV CH,4 ASSEMBLE: SHL BX,CL MOV ...

伊金霍洛旗18471359292： 微机原理8255编程 - ？
姬耍小儿： ;;8255硬件连接及软件设置: ;;B口方式0输入,PB0~PB3分别连接K1~K4; ;;A口方式0输出,PA0~PA3外接驱动电路控制灯的4种动作; ;;驱动电路,可由74LS06、ULN2003作反相电流放大驱动继电器或固体继电器组成; ;;C口闲置; ...

伊金霍洛旗18471359292： 微机原理实验求任意10数中最大值和最小值并输出 - ？
姬耍小儿： int max,min; max=a[0];min=a[0]; for(int i=1;i<10;i++) { if(a[i]>max) {max=a[i];maxp=i} if(a[i]<min) min=a[i];minp=i;} } cout<<＂maxp=＂<<maxp<<endl; cout<<＂minp=＂<<minp<<endl;

伊金霍洛旗18471359292： 微机原理编程题 10个数大小排序 - ？
姬耍小儿： 以前做的实验 可以参考下有一个10个字节的有符号数组,编程实验使该数组的元素按照从小到大的次序排列. data segment ;定义数据段 data1 db 32h,02h,01h,04h,0f1h,0f2h,0ffh,0fdh,0fah,79h count equ $-data1 data endscode segment...