📄 in.asm
字号:
DATT26SUB:
LDP #7
LACL DATT26
SUB ADD_SUB
SACL DATT26
SUB DAT24
BCND INARN,GEQ
LACL DAT24
SACL DATT26
RET
DATT27SUB:
LDP #7
LACL DATT27
SUB ADD_SUB
SACL DATT27
SUB DAT24
BCND INARN,GEQ
LACL DAT24
SACL DATT27
RET
DATT28SUB:
LDP #7
LACL DATT28
SUB ADD_SUB
SACL DATT28
SUB DAT24
BCND INARN,GEQ
LACL DAT24
SACL DATT28
RET
DATT29SUB:
LDP #7
LACL DATT29
SUB ADD_SUB
SACL DATT29
SUB DAT24
BCND INARN,GEQ
LACL DAT24
SACL DATT29
RET
DATT30SUB:
LDP #7
BIT CT,15-15
BCND INAR,TC
LACL DATT30
SUB #1
SACL DATT30
BCND INARN,GT
SPLK #0,DATT30
RET
DATT31SUB:
LDP #7
LACL DATT31
SUB #10
SACL DATT31
BCND INARN,GT
SPLK #10,DATT31
RET
DATT32SUB:
LDP #7
LACL DATT32
SUB #10
SACL DATT32
BCND INARN,GT
SPLK #10,DATT32
RET
DATT33SUB:
LDP #7
LACL DATT33
SUB DATT31
SACL DATT33
SUB #5000
BCND INARN,GEQ
SPLK #5000,DATT33
RET
DATT34SUB:
LDP #7
LACL DATT34
SUB DATT32
SACL DATT34
SUB #10000
BCND INARN,GT
SPLK #10000,DATT34
RET
DATT35SUB:
LDP #7
LACL DATT35
SUB #10
SACL DATT35
SUB #50
BCND INARN,GT
SPLK #50,DATT35
RET
DATT36SUB:
LDP #7
LACL DATT36
SUB #1
SACL DATT36
SUB #100
BCND INARN,GT
SPLK #100,DATT36
RET
DATT37SUB:
LDP #7
LACL DATT37
SUB #1
SACL DATT37
BCND INARN,GT
SPLK #1,DATT37
RET
DATT38SUB:
LDP #7
LACL DATT38
SUB #2
SACL DATT38
SUB #160
BCND INARN,GEQ
SPLK #160,DATT38
RET
DATT39SUB:
LDP #7
LACL DATT39
SUB #1
SACL DATT39
BCND INARN,GT
SPLK #1,DATT39
RET
DATT40SUB:
LDP #7
LACL DATT40
SUB #100
SACL DATT40
SUB #5000
BCND INARN,GT
SPLK #5000,DATT40
RET
DATT41SUB:
LDP #7
LACL DATT41
SUB #10
SACL DATT41
SUB #500
BCND INARN,GT
SPLK #500,DATT41
RET
DATT42SUB:
LDP #7
LACL DATT42
SUB #10
SACL DATT42
SUB #500
BCND INARN,GT
SPLK #500,DATT42
RET
DATT43SUB:
LDP #7
LACL DATT43
SUB #10
SACL DATT43
SUB #500
BCND INARN,GT
SPLK #500,DATT43
RET
DATT44SUB:
LDP #7
LACL DATT44
SUB #10
SACL DATT44
SUB #500
BCND INARN,GT
SPLK #500,DATT44
RET
DATT45SUB:
LDP #7
LACL DATT45
SUB #1
SACL DATT45
SUB #250
BCND INARN,GT
SPLK #250,DATT45
RET
DATT46SUB:
LDP #7
LACL DATT46
SUB #1
SACL DATT46
BCND INARN,GT
SPLK #0,DATT46
RET
DATT47SUB:
LDP #7
LACL CT
BCND INAR,NEQ
LACL DATT47
SUB #1
SACL DATT47
BCND INARN,GT
SPLK #0,DATT47
RET
DATT4SUB:
LDP #7
LACL DATT4
SUB #1
SACL DATT4
BCND INARN,GT
SPLK #0,DATT4
B INARN
INKADD:
LDP #6
LACL INK
ADD #1
SACL INK
SUB #9
BCND INARN,LEQ
LDP #7
LACL DA20
SUB #999
BCND INKADD0,EQ
LDP #6
SPLK #9,INK
B INARN
INKADD0:
LDP #6
LACL INK
SUB #18
BCND INARN,LEQ
LDP #7
LACL DA21
SUB #1999
BCND INKADD1,EQ
LDP #6
SPLK #18,INK
B INARN
INKADD1:
LDP #6
LACL INK
SUB #60
BCND INARN,LEQ
SPLK #60,INK
B INARN
ADDDATT4:
LDP #7
LACL DATT4
ADD #1
SACL DATT4
SUB #19
BCND INARN,LT
SPLK #19,DATT4
RET
INKSUB:
LDP #6
LACL INK
SUB #1
SACL INK
BCND INARN,GT
SPLK #0,INK
B INARN
INPA0:
LDP #7
LACL #0
SACL DAT7
LDP #225
LACL PADATDIR
AND #0C0H ;#0C0H
LDP #6
SACL INPAC
SUB #0C0H ;#0C0H
BCND INPAR0,NEQ
SPLK #0C0H,INPAA ;#0C0H
SPLK #0,INPAB
SPLK #0,RUNDLTIME
RET
INPAR0:
LDP #6
LACL INPAC
SUB INPAA
BCND INPA1,EQ
LACL INPAC
SACL INPAA
B IND09
INPA1: LDP #6
LACL INPAB
SUB #10
BCND INAR,GT
BIT INPAA,15-6 ;15-6
BCND INAR,NTC
LACL INPAB
ADD #1
SACL INPAB
SUB #10
BCND IND09,GT
RET
***************RUN**********************
IND09:
LDP #6
BIT INPAA,15-7
BCND IND0A,TC
LDP #6
BIT S2,15-15
BCND CLRC_S2,TC
LDP #7
LACL DATT47
BCND IND0A,EQ
BIT CT,15-15
BCND stop_,TC ;CLEARFM
LDP #6
LACL RUNDLTIME
ADD #1
SACL RUNDLTIME
SUB #2
RETC LT
RUN:
LDP #6
BIT S2,15-15
BCND RUN_END,TC
LDP #7
BIT CT,15-15
BCND RUN_END,TC ;CLEARFM
; CALL SS0
; CALL WUWEI ;
; CALL STARTSET
LDP #7
LACL #0
SACL DAT5
SACL DAT3
LDP #7
LACL CT
OR #08000H
SACL CT
LDP #6
LACL CTT0
OR #08000H
SACL CTT0
splk #0,COUNT12
SPLK #0,IN13
SPLK #200,FMDAT2
;CALL I2C_W_INT
RUN_END:
RET
CLRC_S2:
LDP #234
BIT COMCONB,15-8
BCND STOP_1,NTC
SPLK #08200H,COMCONB
STOP_1:
LDP #6
SPLK #0,S2
SPLK #40,FMDAT2
RET
************STOP*****************
stop_:
LDP #6
SPLK #0,S2
SPLK #0,IN6
SPLK #50,FMDAT2
STOP:
LDP #7
BIT CT,15-15
BCND STOP_END,NTC
; LDP #4
; SPLK #0,LCD_ERR
; LDP #5
; SPLK #0,LCD_CN
LDP #7
LACL #0
SACL CT
LDP #6
SPLK #55,IN13
SPLK #0,CTT0
SPLK #0,COUNT3
SPLK #0,COUNT5
;CALL OFFOUT
STOP_END:
RET
INDAT7:
LDP #7
LACL DAT8
SUB #22334
BCND ENDDAT7,EQ
LACL DAT7
ADD #1
SACL DAT7
SUB #30
BCND INAR,LT
SPLK #22334,DAT8
; LDP #5
; SPLK #0,LCD_CN
LDP #6
LACL INNK
SUB #6
BCND INDAT70,EQ
SPLK #0,INK
SPLK #0,INNK
SPLK #25,INKK
SPLK #100,FMDAT2
RET
INDAT70:
SPLK #7,INNK
SPLK #100,FMDAT2
RET
ENDDAT7:
LDP #6
LACL INKK
SUB #24
BCND ENDDAT70,NEQ
SPLK #300,FMDAT2
SPLK #50,INK
SPLK #1,INNK
SPLK #0,INKK
; LDP #5
; SPLK #0,LCD_CN
; SPLK #0,LCD_DASX
LDP #7
SPLK #0,DAT8
SPLK #1000,DA20 ;清除密码989
SPLK #2000,DA21 ;清除密码1875
RET
ENDDAT70:
LDP #6
LACL INNK
SUB #9
BCND INAR,NEQ
SPLK #300,FMDAT2
SPLK #6,INNK
LDP #7
SPLK #0,DAT0_ERR
SPLK #0,DAT8
RET
IND0A:
LDP #6
BIT INPAA,15-6 ;15-6
BCND INAR,TC
SPLK #40,FMDAT2
LDP #7
LACL DAT8
SUB #22334
BCND INNK_ADD,EQ
LDP #6
LACL INNK
ADD #1
SACL INNK
SUB #6
BCND IND0A_END,LEQ
SPLK #1,INNK
RET
IND0A_END:
SPLK #0,IN17
RET
INNK_ADD:
LDP #6
LACL INNK
SUB #7
BCND INNK_0,LT
LACL INNK
ADD #1
SACL INNK
SUB #9
BCND INNK_ADD0,LEQ
SPLK #7,INNK
INNK_ADD0:
RET
INNK_0:
LDP #6
LACL INKK
ADD #1
SACL INKK
SUB #25
BCND INNK_0_END,LEQ
SPLK #24,INKK
INNK_0_END:
RET
INAR1:
LDP #7
;CALL PWM
RET
INARN:
LDP #0
LACL #1234 ; 写24LC16B
SACL WRITEDAT
LDP #6
SPLK #40,FMDAT2
INAR:
RET
******************************************************************************
DATTADDX:
.word DATT47ADD,DATT12ADD,DATT13ADD,DATT14ADD,DATT15ADD,DATT16ADD,DATT17ADD,DATT18ADD,DATT19ADD, DA20ADD,DATT22ADD
.word DATT23ADD,DATT24ADD,DATT25ADD,DATT26ADD,DATT27ADD,DATT28ADD,DATT29ADD, DA21ADD, DATT5ADD, DATT6ADD
.word DATT7ADD, DATT8ADD, DATT9ADD,DATT10ADD,ADDEND ,DATT11ADD,DATT20ADD,DATT30ADD,DATT31ADD,DATT32ADD
.word DATT33ADD,DATT34ADD,DATT35ADD,DATT36ADD,DATT37ADD,DATT38ADD,DATT39ADD,DATT40ADD,DATT41ADD,DATT42ADD
.word DATT43ADD,DATT44ADD,DATT45ADD,DATT46ADD,ADDEND ,DATT21ADD,ADDEND ,ADDEND ,ADDEND ,ADDEND
.word ADDEND,ADDEND,ADDEND,ADDEND,ADDEND,ADDEND,ADDEND,ADDEND,ADDEND,ADDEND,ADDEND,ADDEND,ADDEND,ADDEND
DATTSUBX:
.word DATT47SUB,DATT12SUB,DATT13SUB,DATT14SUB,DATT15SUB,DATT16SUB,DATT17SUB,DATT18SUB,DATT19SUB, DA20SUB,DATT22SUB
.word DATT23SUB,DATT24SUB,DATT25SUB,DATT26SUB,DATT27SUB,DATT28SUB,DATT29SUB, DA21SUB, DATT5SUB, DATT6SUB
.word DATT7SUB, DATT8SUB, DATT9SUB,DATT10SUB,SUBEND ,DATT11SUB,DATT20SUB,DATT30SUB,DATT31SUB,DATT32SUB
.word DATT33SUB,DATT34SUB,DATT35SUB,DATT36SUB,DATT37SUB,DATT38SUB,DATT39SUB,DATT40SUB,DATT41SUB,DATT42SUB
.word DATT43SUB,DATT44SUB,DATT45SUB,DATT46SUB,SUBEND ,DATT21SUB,SUBEND ,SUBEND ,SUBEND ,SUBEND
.word SUBEND,SUBEND,SUBEND,SUBEND,SUBEND,SUBEND,SUBEND,SUBEND,SUBEND,SUBEND,SUBEND,SUBEND,SUBEND,SUBEND
******************************************************************************
.end⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -