📄 daa.asm
字号:
;STA GYJ_ys2
;---------------------------------------
GLBH2: BRSET 6,FDAN3,CCC
LDA TEMP_TO ;KKKKKKKK
ADD EP04
CMP TEMP_ZH
BHS CCCC_1
LDA GZDY
CMP #0
BNE DDD
; BRSET 7,FGZDY,DDD
LDA GZDY
ORA #$2F
STA GZDY
;;BSET 0,GZDY
JMP DDD
CCCC_1: LDA TEMP_TO
ADD EP04
CMP TEMP_ZH
BHI CCC_2
JMP DDD
CCC_2: BRCLR 7,K_YD,DDD
BSET 3,K_QQ
LDA GZDY
AND #$D0
STA GZDY
;BCLR 0,GZDY
JMP DDD
CCC: LDA TEMP_ZH
ADD EP04
CMP TEMP_TO
BLO CCC_3
LDA TEMP_ZH
ADD EP04
CMP TEMP_TO
BLS DDD
BRCLR 7,K_YD,DDD
BSET 3,K_QQ
LDA GZDY
AND #$D0
STA GZDY
;BCLR 0,GZDY
JMP DDD
CCC_3: LDA GZDY
CMP #0
BNE DDD
;BRSET 7,FGZDY,DDD
LDA GZDY
ORA #$2F
STA GZDY
; BSET 0,GZDY
;--------------------------
DDD: brset 4,k1_165,EEE
BRSET 1,FGZDY,DDD_A
LDA EP06 ;KKKKKKKKKKK
ADD #!100
CMP TEMP_PQ1
BLO DDD_0
BRCLR 7,K_YD,DDD_A
BSET 3,K_QQ
LDA GZDY
AND #$D8
STA GZDY
JMP DDD_A
DDD_0: LDA GZDY
CMP #0
BNE DDD_A
LDA GZDY
ORA #$27
STA GZDY
;BSET 0,GZDY
;------------------------------
DDD_A: brset 4,k1_165,EEE
BRSET 2,FGZDY,EEE
LDA EP06
ADD #!100
CMP TEMP_PQ2
BLO DDD_1
BRCLR 7,K_YD,EEE
BSET 3,K_QQ
LDA GZDY
AND #$D7
STA GZDY
JMP DDD_B
DDD_1:
LDA GZDY
CMP #0
BNE EEE
LDA GZDY
ORA #$28
STA GZDY
;BSET 0,GZDY
DDD_B: ;LDA EP06
;ADD #!100
;CMP TEMP_PQ2
;BLO DDD_2
;JMP EEE
DDD_2: ;BSET 0,GZDY
;--------------------------------
EEE: BRCLR 6,K2_165,FFF
LDA GZDY
CMP #0
BNE FFF_1
LDA GZDY
ORA #$2A
STA GZDY
;LDA #!0
;STA KYJ_YS1
;LDA #!0
;STA KYJ_YS2
;JSR G_SEC_YJ2
;JSR G_WFJ
;;BSET 0,GZDY
RTS
FFF: BRCLR 7,K_YD,FFF_1
BSET 3,K_QQ
LDA GZDY
AND #$D5
STA GZDY
;;BCLR 0,GZDY
FFF_1: rts
;------------------内存清除-----------------------------------------
CLRRAM:
LDX #$60
CLRLOP: STA COPCTL
CLR ,X
AIX #!1
CPHX #$230 ;RESERVED FOR STACK POINT
BLO CLRLOP
RTS
;----------165 SHIFT SUBROUTINE-----------------------------------
;SH165_LD EQU 4;B4
;SH165_CLK EQU 5;B5
;SH165_QH EQU 6;B6
;REGISTER RAM K1_165 SAVE SHIFT IN DATA
; RAM K2_165
;CNT_165
;----------------------------------------------
SHIFT_165:sta copctl
CLRH
CLRX
BCLR SH165_CLK,PTD ;CLOCK REEADY FOR RAISE EDGE
NOP
BSET SH165_LD,PTD
NOP
BCLR SH165_LD,PTD ;LOAD
NOP
NOP
BSET SH165_LD,PTD ;LOAD FINISHED
;
MOV #!16,CNT_165
CLR K1_165_BUF
CLR K2_165_BUF
SH165_0:CLC
LDA K1_165_BUF
ROLA
STA K1_165_BUF
LDA K2_165_BUF
ROLA
STA K2_165_BUF
BRSET SH165_QH,PTD,SH165_1
NOP
BCLR 0,K1_165_BUF
JMP SH165_2
SH165_1:NOP
BSET 0,K1_165_BUF
SH165_2 BSET SH165_CLK,PTD ;CLOCK
NOP
BCLR SH165_CLK,PTD
LDA CNT_165
DEC CNT_165
LDA CNT_165
CMP #0
BNE SH165_0
LDA K1_165_BUF
CMP K1_165_DAT
BNE SH165_4
LDA K2_165_BUF
CMP K2_165_DAT
BNE SH165_4
; LDX K165_N
; INCX
; STX K165_N
; CPX #4
; BLS SH165_3
; CLRX
; STX K165_N
LDA K1_165_BUF
STA K1_165
LDA K2_165_BUF
STA K2_165
SH165_3:RTS
SH165_4: LDA K1_165_BUF
STA K1_165_DAT
LDA K2_165_BUF
STA K2_165_DAT
LDA #!0
STA K165_N
RTS
; ******************************************
judge_165: sta copctl
BRSET 3,K1_165,JUD_1
BRSET 2,K1_165,JUD_2
BRSET 1,K1_165,JUD_3
BRSET 0,K1_165,JUD_4
LDA #!15
STA ADDR
BCLR 7,FDAN3
JMP JUD_TUI
JUD_4: LDA #!14
STA ADDR
BCLR 7,FDAN3
JMP JUD_TUI
JUD_3: BRSET 0,K1_165,JUD_31
LDA #!13
STA ADDR
BCLR 7,FDAN3
JMP JUD_TUI
JUD_31: LDA #!12
STA ADDR
BCLR 7,FDAN3
JMP JUD_TUI
JUD_2: BRSET 1,K1_165,JUD_21
BRSET 0,K1_165,JUD_22
LDA #!11
STA ADDR
BCLR 7,FDAN3
JMP JUD_TUI
JUD_22: LDA #!10
STA ADDR
BCLR 7,FDAN3
JMP JUD_TUI
JUD_21: BRSET 0,K1_165,JUD_23
LDA #!9
STA ADDR
BCLR 7,FDAN3
JMP JUD_TUI
JUD_23: LDA #!8
STA ADDR
BCLR 7,FDAN3
JMP JUD_TUI
JUD_1: BRSET 2,K1_165,JUD_11
BRSET 1,K1_165,JUD_12
BRSET 0,K1_165,JUD_13
LDA #!7
STA addr
BCLR 7,FDAN3
JMP JUD_TUI
JUD_13: LDA #!6
STA addr
BCLR 7,FDAN3
jmp JUD_TUI
JUD_12: BRSET 0,K1_165,JUD_122
LDA #!5
STA ADDR
BCLR 7,FDAN3
JMP JUD_TUI
JUD_122: LDA #!4
STA ADDR
BCLR 7,FDAN3
JMP JUD_TUI
JUD_11: BRSET 1,K1_165,JUD_125
BRSET 0,K1_165,JUD_131
LDA #!3
STA ADDR
BCLR 7,FDAN3
JMP JUD_TUI
JUD_131: LDA #!2
STA ADDR
BCLR 7,FDAN3
JMP JUD_TUI
JUD_125: BRSET 0,K1_165,JUD_121
LDA #!1
STA ADDR
BCLR 7,FDAN3
JMP JUD_TUI
JUD_121: LDA #!0
STA ADDR
BSET 7,FDAN3
JUD_TUI:
BRSET 0,K2_165,IN_0
BCLR 6,K22_165
JMP IN_1
IN_0: BSET 6,K22_165
IN_1: BRSET 1,K2_165,IN_2
BCLR 5,K22_165
JMP IN_3
IN_2: BSET 5,K22_165
IN_3: BRSET 2,K2_165,IN_4
BCLR 2,K22_165
JMP IN_5
IN_4: BSET 2,K22_165
IN_5: BRSET 3,K2_165,IN_6
BCLR 1,K22_165
JMP IN_7
IN_6: BSET 1,K22_165
IN_7: BRSET 4,K2_165,IN_8
BCLR 4,K22_165
JMP IN_9
IN_8: BSET 4,K22_165
IN_9: BRSET 5,K2_165,IN_10
BCLR 3,K22_165
JMP IN_11
IN_10: BSET 3,K22_165
IN_11: BRSET 6,K2_165,IN_12
BCLR 7,K22_165
JMP IN_13
IN_12: BSET 7,K22_165
IN_13: BRSET 7,K2_165,IN_14
BCLR 0,K22_165
JMP IN_15
IN_14: BSET 0,K22_165
IN_15: RTS
ERROR: sta copctl
LDA GZDY
AND #$F0
CMP #$10
BEQ K_HF1
CMP #$20
BEQ BK_HF1
CMP #$30
BEQ ZJ
bclr 7,fdan2
RTS
BK_HF1: bset 7,fdan2
JMP BK_HF
K_HF1: bset 7,fdan2
JMP K_HF
ZJ: bset 7,fdan2
LDA GZDY
CMP #$30 ;tx WWW
BNE ZJ_0
; BSET 0,FDAN2
LDA #!0
STA KYJ_YS1
LDA #!0
STA KYJ_YS2
JSR GSR_FS
JSR G_FST_YJ1
JSR G_WFJ
JSR G_STF
JSR GLR_SB
RTS
ZJ_0: CMP #$31 ;zh
BNE ZJ_1
; BSET 0,FDAN2
LDA #!0
STA KYJ_YS1
LDA #!0
STA KYJ_YS2
JSR GSR_FS
JSR G_FST_YJ1
JSR G_WFJ
JSR G_STF
JSR GLR_SB
RTS
ZJ_1: CMP #$32 ;toz
BNE ZJ_2
; BSET 0,FDAN2
LDA #!0
STA kYJ_YS1
STA kYJ_YS2
JSR GSR_FS
JSR G_FST_YJ1
JSR G_WFJ
JSR G_STF
JSR GLR_SB
RTS
ZJ_2: CMP #$35
BNE ZJ_3
BCLR 7,PTA ;;; SB jc
BCLR 0,OUT1
; BSET 0,FDAN2
lda #!0
sta kyj_ys1
sta kyj_ys2
JSR GSR_FS
JSR G_FST_YJ1
JSR G_WFJ
JSR G_STF
JSR GLR_SB
RTS
ZJ_3: CMP #$37
BNE ZJ_4 ; xx
; BSET 0,FDAN2
LDA #!0
STA KYJ_YS1
LDA #!0
STA KYJ_YS2
JSR GSR_FS
JSR G_FST_YJ1
JSR G_WFJ
JSR G_STF
JSR GLR_SB
ZJ_4: RTS
K_HF: LDA GZDY
CMP #$11
BNE K_HF_0 ; GGGGGGGGGG
BSET 3,FGZDY
RTS
K_HF_0: CMP #$12
BNE K_HF_1 ;GGGGGGGGGGGGGGG
RTS
K_HF_1: CMP #$13 ;wwwwwwwww
BNE K_HF_2
RTS
K_HF_2: CMP #$14
BNE K_HF_3
BCLR 4,K_QQ ; GGGGGGGGGGGG
BCLR 4,PTA
BCLR 2,OUT1
LDA #!3
STA GYJ_ys1
BCLR COM_WORKING,FDAN
RTS
K_HF_3: CMP #$15
BNE K_HF_4
BCLR 5,K_QQ
BCLR 3,PTA ; GGGGGGGGGGG
BCLR 5,OUT1
LDA #!3
STA GYJ_ys2
BCLR COM_WORKING,FDAN
RTS
K_HF_4: CMP #$16
BNE K_HF_5
RTS
K_HF_5: CMP #$17 ; lfd
BNE K_HF_6
LDA #!0 ;GGGGGGGGGGGGGG
STA KYJ_YS1
LDA #!0
STA KYJ_YS2
JSR G_SEC_YJ2
BCLR COM_WORKING,FDAN
RTS
K_HF_6: CMP #$18 ;fcw
BNE K_HF_7
BCLR 1,PTA ;电加热
BCLR 7,OUT1
LDA #!0
STA KYJ_YS1
LDA #!0
STA KYJ_YS2
JSR G_SEC_YJ2
JSR G_WFJ
RTS
K_HF_7: CMP #$19 ; te
BNE K_HF_8
BSET 2,FDAN1 ;GGGGGGGGGG
BSET 5,FGZDY
RTS
K_HF_8: CMP #$1A ;xian s
BNE K_HF_9
K_HF_9: RTS
BK_HF: LDA GZDY
CMP #$21 ; PH1
BNE BK_HF_0
BCLR 1,PTA ;电加热
BCLR 7,OUT1
BCLR 4,K_QQ ;GGGGGGG
BCLR 4,PTA
BCLR 2,OUT1
LDA #!3
STA GYJ_ys1
BCLR COM_WORKING,FDAN
RTS
BK_HF_0: CMP #$22
BNE BK_HF_1 ;GGGGGG
BCLR 1,PTA ;电加热
BCLR 7,OUT1
BCLR 5,K_QQ
BCLR 3,PTA ;PH2
BCLR 5,OUT1
LDA #!3
STA GYJ_ys2
BCLR COM_WORKING,FDAN
RTS
BK_HF_1: CMP #$23 ;PH3
BNE BK_HF_2
RTS
BK_HF_2: CMP #$24 ;PL1
BNE BK_HF_3
BCLR 4,K_QQ ;GGGGGGGGG
BCLR 4,PTA
BCLR 2,OUT1
LDA #!3
STA GYJ_ys1
BCLR COM_WORKING,FDAN
BCLR 1,PTA ;电加热
BCLR 7,OUT1
RTS
BK_HF_3: CMP #$25
BNE BK_HF_4 ;PL2
BCLR 5,K_QQ
BCLR 3,PTA ;GGGGGGGGGGGG
BCLR 5,OUT1
LDA #!3
STA GYJ_ys2
BCLR COM_WORKING,FDAN
BCLR 1,PTA ;电加热
BCLR 7,OUT1
RTS
BK_HF_4: CMP #$26
BNE BK_HF_5 ;pl3
RTS
BK_HF_5: CMP #$27 ; pq1
BNE BK_HF_6
RTS
BK_HF_6: CMP #$28 ; pq2
BNE BK_HF_7
RTS
BK_HF_7: CMP #$29 ;pq3
BNE BK_HF_8
RTS
BK_HF_8: CMP #$2A
BNE BK_HF_9 ; GGGGGGGGGGGGGG
;BSET 0,FDAN2
lda #!0
sta kyj_ys1
sta kyj_ys2
JSR GSR_FS
JSR G_FST_YJ1
JSR G_WFJ
JSR G_STF
JSR GLR_SB
RTS
BK_HF_9: CMP #$2B ;xx
BNE BK_HF_10
;BSET 0,FDAN2 ;GGGGGGGGGGG
lda #!0
sta kyj_ys1
sta kyj_ys2
JSR GSR_FS
JSR G_FST_YJ1
JSR G_WFJ
JSR G_STF
JSR GLR_SB
RTS
BK_HF_10: CMP #$2C ;toz
BNE BK_HF_11
;BSET 0,FDAN2 ; GGGGGGGGGGG
lda #!0
sta kyj_ys1
sta kyj_ys2
JSR GSR_FS
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -