【正文】
bled = FalseNext jStatic counter As Integer counter = counter + 1 If counter = 14 Then = True = False For i = 0 To 5 Label1(i).Caption = Next i Label1(0).Caption = P. For j = 0 To 15 Command1(j).Enabled = True Next j End IfEnd Sub Private Sub Timer3_Timer()Label1(0).Caption = Label1(1).Caption = For Index = 0 To 15 Command1(Index).Enabled = FalseNext IndexEnd Sub Private Sub Timer4_Timer()If Label1(6).Caption = Then Label1(6).Caption = P.ElseIf Label1(6).Caption = P. Then Label1(6).Caption = End IfEnd Sub Private Sub Timer5_Timer()If Label1(6).Caption = And Label1(7).Caption = Then Label1(6).Caption = : Label1(7).Caption = ElseIf Label1(6).Caption = And Label1(7).Caption = Then Label1(6).Caption = : Label1(7).Caption = End IfFor i = 0 To 15 Command3(i).Enabled = FalseNext iStatic counter1 As Integercounter1 = counter1 + 1 If counter1 = 14 Then Label1(6).Caption = P. = True = False For i = 6 To 11 Label1(i).Caption = Next i For i = 0 To 15 Command3(i).Enabled = True Next i End IfEnd Sub Private Sub Timer7_Timer()If Label1(0).Caption = 8 And Label1(1).Caption = 2 And Label1(2).Caption = 5 And Label1(3).Caption = 1 And Label1(4).Caption = And Label1(5).Caption = 1 And Label1(6).Caption = 8 And Label1(7).Caption = 2 And Label1(8).Caption = 5 And Label1(9).Caption = 1 And Label1(10).Caption = And Label1(11).Caption = 2 ThenCommand2(1).Enabled = True = FalseEnd IfEnd Sub七、總結(jié)本學(xué)期微機(jī)原理課程即將結(jié)束,關(guān)于微機(jī)課程的心得體會(huì)甚多。 BUF+5,02H BUF+3,01HMOV BUF+1,02HMOV mov dx,03f9h out dx,al MOV DX,41H MOV AL,0CH out dx,al MOV DX,43H out dx,al mov dx,03f9h mov al,4eh out dx,al mov dx,03f9h mov al,25h out dx,al call t8253 ASSUME CS:CODEfor8251: mov bh,0h jnc fkey add al,bl je nkey je key4 jmp key6key3: mov al,00h jmp disk7key: disk4: dec ah mov bl,88hal=timebh=new key cmp ah,bh mov dx,0ff21hlkeyltimenewkey call key JMP monitgood JNZ REDIKEY jmp redikey pop cx ser3: push cx JMP sererrDISP:err JZ seri2 IN AL,DX JZ WATRXD IN AL,DX OUT DX,AL MOV AL,KZ TEST AL,01H MOV DX,SECOPORT EQU 0FF23H 。 EQU 0FF22H 。 EQU 0FF21H 。 EQU 03F8HPA EQU 03F9HSEDAPORT SEGMENT 。當(dāng)1號(hào)機(jī)上按“M