4.1 – 华枫

本文最后更新于 657 天前，其中的信息可能已经有所发展或是发生改变。

     ORG 0000H
     AJMP MAIN
     ORG  0050H
MAIN:MOV R0,#0   ;显示缓冲区
     MOV DPTR,#TAB    
     CLR P2.0
LOOP:JB P3.0,KEY1   ;查询按键引脚
     ACALL DELAY10MS    ;延时
     JB P3.0,KEY1        ;读
     JNB P3.0,$        ;等待按键释放
     MOV R0,#1
     AJMP DISPLAY

KEY1:JB P3.1,KEY2
     ACALL DELAY10MS
     JB P3.1,KEY2
     JNB P3.1,$   
     MOV R0,#2
     AJMP DISPLAY

KEY2:JB P3.2,KEY3
     ACALL DELAY10MS
     JB P3.2,KEY3
     JNB P3.2,$   
     MOV R0,#3
     AJMP DISPLAY
     
KEY3:JB P3.3,DISPLAY
     ACALL DELAY10MS
     JB P3.3,DISPLAY
     JNB P3.3,$   
     MOV R0,#4
     AJMP DISPLAY               
     
DISPLAY:MOV A,R0
        MOVC A,@A+DPTR
        MOV P0,A
        AJMP LOOP
DELAY10MS:MOV R7,#50
       L1:MOV R6,#100
          DJNZ R6,$
          DJNZ R7,L1
          RET
 TAB:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
     END

candy bonanza

Macintosh Safari

2 月前

2026-2-10 21:11:32

Candy Bonanza no Brapub? Vicio total! Doce e cheio de chances de ganhar. Já viciei! Veja aqui: candy bonanza

w388 w388bet.live

Macintosh Safari

2 月前

2026-2-10 21:11:15

The live games on w388 w388bet.live are pretty sweet. The dealers are cool and it really feels like you’re right there. Gotta check it out yourself for sure, if you’re into that. Check out the live action using this: w388 w388bet.live

poker baazi

Macintosh Safari

2 月前

2026-2-10 21:10:59

Hear ‘poker baazi’ is where the action is. Gonna check it out, see if I can win some real cash. Fingers crossed! poker baazi

发送评论编辑评论

评论

发送评论 编辑评论

发送评论编辑评论