易码技术论坛

 找回密码
 加入易码
搜索
查看: 478|回复: 1

[工具] 纯粹闲着没事儿干,发一个tc806的键值测试程序

[复制链接]
发表于 2010-12-12 15:02:20 | 显示全部楼层 |阅读模式
【程序名称】tc806的键值测试程序
【说      明】按键盘上除热键外的其他按键可以显示按键对应的asc码。
            按热键可以退出程序……
          如何运行:
              把解压后的键值.bin复制到806 U盘的program文件夹,然后在wqx上进入 系统 - 网络程序,运行 键值.bin 。

【截      图】
无!
1.JPG
挺奇怪的,上传图片时提示“无效的图片格式”,可最后还是传上来了……

[ 本帖最后由 POTO 于 2010-12-12 15:04 编辑 ]
2.JPG

键值.rar

608 Bytes, 下载次数: 226

 楼主| 发表于 2010-12-12 15:06:48 | 显示全部楼层
没啥意思,运行后按除热键外的其他按键可以显示对应的asc码。
本人所用的资料来自互联网。
代码很乱,编译器是zardoz,在砂创官网上都有。
==============
        CHIP W65C02S
        INCLUDE "st2205u.h"          ;自己对照mcu说明书写的,说明书也是在官网上下载的
LCD_SEG         .EQU    240
LCD_COM         .EQU    160 ;没用
.ORG C311H
                JMP         MAIN
MAIN
                JSR        0290H
                CLI
                .DB        1,29H,40H   ;清屏,不知道为什么要这样写
                LDA        0402H        ;键值
                JSR        A1
                JMP        TOSCR
A1
                LDX        #FFH
AL
                INX
                LDA        KEY,X
                CMP        #FFH
                BEQ        AL1
                CMP        0402H
                BNE        AL
                TXA
                ASL
                TAX
                LDA        KEYJ+1,X
                PHA
                LDA        KEYJ,X
                PHA
TOSCR
                NOP
                LDA        0402H
                ;AND        #0FH
                STA        80H
                JSR        HEXTOASC
                LDA        81H
                STA        TEXTBUF
                LDA        80H
                STA        TEXTBUF+1
                JSR        TEXTTOLCD
                JMP         ifHotKey
AL1
                RTS
ESC
                JSR        0290H
                CLI
                .DB        1,95H
                .DB        43H
                RTS             ;没用,本人太笨,不知道为什么按返回键没反应
END
LL
                JSR        ifHotKey
                JMP        MAIN
KEY
                .DB        8BH,8AH,95H,96H,86H,87H,FFH
KEYJ
                .DW        ESC-1,LL-1,LL-1,LL-1,LL-1,LL-1
TEXTTOLCD
                LDA        #2
                STA        8975H
                STA        8976H
                LDX        #<TEXTBUF
                LDY        #>TEXTBUF
                LDA        #0FH
                STA        897BH
                LDA         #FFH
                STA        897CH
                STA        897DH
                JSR        0290H
                CLI
                .DB        1,F1H
                RTI             ;显示到屏幕
                RTS
ifHotKey
                jsr 0290h
                cli
                .db 1,8dh,43h
                rts                ;检测热键
ASC:                    ;摘自立天的debug3k,汗我连hex转asc都不会写呢
                .DB "0123456789ABCDEF"
;*******HEXTOASC:HEX TO 80,RESULT:80,81.EG:80=2A THEN 81="2"80="A"
HEXTOASC
                 TXA
                PHA
                LDA 80H
                PHA
                LSR
                LSR
                LSR
                LSR
                STA 81H
                PLA
                AND #0FH
                STA 80H
                LDA 80H
                TAX
                LDA ASC,X
                STA 80H
                LDA 81H
                TAX
                LDA ASC,X
                STA 81H
                PLA
                TAX
                RTS
TEXTBUF
        .DB        "  <-键值",0
.DB "OKOKOKOK"          ;没用,方便识别

[ 本帖最后由 POTO 于 2010-12-12 15:39 编辑 ]
您需要登录后才可以回帖 登录 | 加入易码

本版积分规则

Archiver|手机版|小黑屋|EMAX Studio

GMT+8, 2024-3-29 16:33 , Processed in 0.011161 second(s), 21 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表