📄 demo_69p25.asm
字号:
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2025:
;----------------------------------A-3
DIS203:
CJNE4 AUTORH,03H,DIS204 ;IF AUTORH NOT EQU 03H THEN GOTO DIS204
CJNE4 AUTORL,01H,DIS2031 ;IF AUTORL NOT EQU 01H THEN GOTO DIS2031
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,02H
CALL BCD_R3 ;DISPLAY "200G"
LDI DISR2,00H
CALL BCD_R2 ;200 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2031:
CJNE4 AUTORL,02H,DIS2032 ;IF AUTORL NOT EQU 02H THEN GOTO DIS2032
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,04H
CALL BCD_R3 ;DISPLAY "400G"
LDI DISR2,00H
CALL BCD_R2 ;400 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2032:
CJNE4 AUTORL,03H,DIS2033 ;IF AUTORL NOT EQU 03H THEN GOTO DIS2033
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,06H
CALL BCD_R3 ;DISPLAY "600G"
LDI DISR2,00H
CALL BCD_R2 ;600 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2033:
CJNE4 AUTORL,04H,DIS2034 ;IF AUTORL NOT EQU 04H THEN GOTO DIS2034
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,08H
CALL BCD_R3 ;DISPLAY "800G"
LDI DISR2,00H
CALL BCD_R2 ;800 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2034:
;----------------------------------------A-4
DIS204:
CJNE4 AUTORH,04H,DIS205 ;IF AUTORH NOT EQU 04H THEN GOTO DIS205
CJNE4 AUTORL,01H,DIS2041 ;IF AUTORL NOT EQU 01H THEN GOTO DIS2041
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,0AH
CALL BCD_R3 ;DISPLAY "50G"
LDI DISR2,05H
CALL BCD_R2 ;50 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2041:
CJNE4 AUTORL,02H,DIS2042 ;IF AUTORL NOT EQU 02H THEN GOTO DIS2042
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,01H
CALL BCD_R3
LDI DISR2,00H
CALL BCD_R2 ;100 g
LDI DISR1,00H
CALL BCD_R1 ;DISPLAY "100G"
CALL DOT_OFF
JMP DIS299
DIS2042:
CJNE4 AUTORL,03H,DIS2043 ;IF AUTORL NOT EQU 03H THEN GOTO DIS2043
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,01H
CALL BCD_R3 ;DISPLAY "150G"
LDI DISR2,05H
CALL BCD_R2 ;150 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2043:
CJNE4 AUTORL,04H,DIS2044 ;IF AUTORL NOT EQU 04H THEN GOTO DIS2044
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,02H
CALL BCD_R3 ;DISPLAY "200G"
LDI DISR2,00H
CALL BCD_R2 ;200 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2044:
;----------------------------------------A-5
DIS205:
CJNE4 AUTORH,05H,DIS206 ;IF AUTORH NOT EQU 05H THEN GOTO DIS206
CJNE4 AUTORL,01H,DIS2051 ;IF AUTORL NOT EQU 01H THEN GOTO DIS2051
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,01H
CALL BCD_R3 ;DISPLAY "100G"
LDI DISR2,00H
CALL BCD_R2 ;100 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2051:
CJNE4 AUTORL,02H,DIS2052 ;IF AUTORL NOT EQU 02H THEN GOTO DIS2052
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,02H
CALL BCD_R3 ;DISPLAY "200G"
LDI DISR2,00H
CALL BCD_R2 ;200 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2052:
CJNE4 AUTORL,03H,DIS2053 ;IF AUTORL NOT EQU 03H THEN GOTO DIS2053
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,03H
CALL BCD_R3 ;DISPLAY "300G"
LDI DISR2,00H
CALL BCD_R2 ;300 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2053:
CJNE4 AUTORL,04H,DIS2054 ;IF AUTORL NOT EQU 04H THEN GOTO DIS2054
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,04H
CALL BCD_R3 ;DISPLAY "400G"
LDI DISR2,00H
CALL BCD_R2 ;400 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2054:
CJNE4 AUTORL,05H,DIS2055 ;IF AUTORL NOT EQU 05H THEN GOTO DIS2055
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,05H
CALL BCD_R3 ;DISPLAY "500G"
LDI DISR2,00H
CALL BCD_R2 ;500 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2055:
;-----------------------------------------A-6
DIS206:
CJNE4 AUTORH,06H,DIS207 ;IF AUTORH NOT EQU 06H THEN GOTO DIS207
CJNE4 AUTORL,01H,DIS2061 ;IF AUTORL NOT EQU 01H THEN GOTO DIS2061
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,01H
CALL BCD_R3 ;DISPLAY "100G"
LDI DISR2,00H
CALL BCD_R2 ;100 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2061:
CJNE4 AUTORL,02H,DIS2062 ;IF AUTORL NOT EQU 02H THEN GOTO DIS2062
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,02H
CALL BCD_R3 ;DISPLAY "200G"
LDI DISR2,00H
CALL BCD_R2 ;200 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2062:
;------------------------------------------------------A-7
DIS207:
CJNE4 AUTORH,07H,DIS208 ;IF AUTORH NOT EQU 07H THEN GOTO DIS208
DIS207_ST:
CJNE4 AUTORL,01H,DIS2071 ;IF AUTORL NOT EQU 01H THEN GOTO DIS2071
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,01H
CALL BCD_R3 ;DISPLAY "150G"
LDI DISR2,05H
CALL BCD_R2 ;150 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2071:
CJNE4 AUTORL,02H,DIS2072 ;IF AUTORL NOT EQU 02H THEN GOTO DIS2072
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,02H
CALL BCD_R3 ;DISPLAY "250G"
LDI DISR2,05H
CALL BCD_R2 ;250 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2072:
CJNE4 AUTORL,03H,DIS2073 ;IF AUTORL NOT EQU 03H THEN GOTO DIS2073
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,03H
CALL BCD_R3 ;DISPLAY "350G"
LDI DISR2,05H
CALL BCD_R2 ;350 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2073:
CJNE4 AUTORL,04H,DIS2074 ;IF AUTORL NOT EQU 04H THEN GOTO DIS2074
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,04H
CALL BCD_R3 ;DISPLAY "400G"
LDI DISR2,00H
CALL BCD_R2 ;400 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2074:
CJNE4 AUTORL,05H,DIS2075 ;IF AUTORL NOT EQU 05H THEN GOTO DIS2075
LDI DISR4,0AH
CALL BCD_R4
LDI DISR3,04H
CALL BCD_R3 ;DISPLAY "450G"
LDI DISR2,05H
CALL BCD_R2 ;450 g
LDI DISR1,00H
CALL BCD_R1
CALL DOT_OFF
JMP DIS299
DIS2075:
JMP DIS299
;-----------------------------------------A-8
DIS208:
CJNE4 AUTORH,08H,DIS209 ;IF AUTORL NOT EQU 08H THEN GOTO DIS209
JMP DIS207_ST
DIS209:
DIS299:
JMP DIS8
;-------------------------------------------------------DEF1
DIS3:
CJE4 JETR,00H,DIS4
LDI WK0,0001B
EOR MK_DIS,B0
BA0 DIS_DOWN_COUNTER
LDA MK_INCDEC,B0
BA0 DIS30A
BA1 DIS30B
LDI DISR4,00H
CJB4 JETR,0AH,DIS31
LDI DISR4,01H
LDA JETR,B0
STA WK1,B0
SBIM WK1,0AH ;DISPLAY DEF WEIGHT
STA DISR3,B0
JMP DIS32
DIS30A:
CALL SYMBOL_B1G
JMP DIS399
DIS30B:
CALL SYMBOL_SAL
JMP DIS399
;------------------------------
DIS31:
LDA JETR,B0
STA DISR3,B0
DIS32:
LDI DISR2,00H
LDI DISR1,00H
CALL BCD_R4
CALL BCD_R3
CALL BCD_R2
CALL BCD_R1
CALL DOT_OFF
DIS399:
JMP DIS8
;----------------------------------------------------LITTLE
DIS4:
LDI WK0,0001B
EOR MK_LIT,B0
BA0 DIS5
LDI WK0,1001B
STA LEDR1H,B1
LDI WK0,1101B
ANDM LEDR1L,B1
LDI WK0,1100B
ORM LEDR1L,B1
LDI WK0,1001B
STA LEDR2H,B1
LDI WK0,0001B ;LITTLE boy LOCK display
ANDM LEDR2L,B1
LDI WK0,1001B
STA LEDR4H,B1
LDI WK0,0001B
ANDM LEDR4L,B1
LDI WK0,1111B
STA LEDR5H,B1
LDI WK0,0001B
ANDM LEDR5L,B1
CALL DOT_OFF
JMP DIS8
;---------------------------------------------------- display "0:00"
DIS5:
LDI DISR4,00H
CALL BCD_R4
LDI DISR3,00H
CALL BCD_R3
LDI DISR2,00H
CALL BCD_R2
LDI DISR1,00H
CALL BCD_R1
CALL DOT_ON
JMP DIS8
;===================================
; subrutine
;====================================XIAO SHU DIAN SHAN
DOT_FLASH:
LDA MK01H,B0
BA3 DOT_ON
DOT_OFF:
LDI WK0,1001B
ANDM LEDR3L,B1
RTNI
DOT_ON:
LDI WK0,0110B ;display ":"
ORM LEDR3L,B1
RTNI
;==================================DISPLAY "P"
SYMBOL_P:
LDI WK0,0011B
STA LEDR1H,B1
LDI WK0,1110B
ORM LEDR1L,B1
RTNI
;=================================DISPLAY "-"
SYMBOL_HENG:
LDI WK0,00H
STA LEDR4H,B1
LDI WK0,0011B
ANDM LEDR4L,B1
LDI WK0,0010B
ORM LEDR4L,B1
RTNI
;================================DISPLAY "C"
SYMBOL_C:
LDI WK0,1001B
STA LEDR2H,B1
LDI WK0,1100B
ORM LEDR2L,B1
LDI WK0,1101B
ANDM LEDR2L,B1
RTNI
;=======================================DISPLAY "B1G"
SYMBOL_B1G:
LDI WK0,00H
STA LEDR1H,B1
LDI WK0,0001B
ANDM LEDR1L,B1
LDI WK0,1100B
STA LEDR2H,B1
LDI WK0,1110B
ORM LEDR2L,B1
CALL DOT_OFF
LDI WK0,0110B
STA LEDR4H,B1
LDI WK0,0001B
ANDM LEDR4L,B1
LDI WK0,1101B
STA LEDR5H,B1
LDI WK0,1100B
ORM LEDR5L,B1
LDI WK0,1101B
ANDM LEDR5L,B1
RTNI
;=======================================DISPLAY "SAL"
SYMBOL_SAL:
LDI WK0,00H
STA LEDR1H,B1
LDI WK0,0001B
ANDM LEDR1L,B1
LDI WK0,1101B
STA LEDR2H,B1
LDI WK0,0110B
ORM LEDR2L,B1
LDI WK0,0111B
ANDM LEDR2L,B1
CALL DOT_OFF
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -