GMS82524 Datasheet, PDF (79/93 Pages) Hynix Semiconductor – 8-BIT SINGLE-CHIP MICROCONTROLLERS

HYUNDAI MicroElectronics
;***********************************************************************
;
DSPLY:
LDM
STROBE_PORT,#03H ;Segment All Turn Off
NOT1
STROBE.2
;Toggle strobe0
NOT1
STROBE.3
;Toggle strobe1
IF
STROBE.3 = 1
ldy
DIGIT1
ELSE
ldy
DIGIT10
ENDIF
;Test if R23 is high.
LDA
!FONT+Y
STA
SEG_PORT
;Segment Data output
LDA
STROBE
STA
STROBE_PORT
;Current Digit Turn On
RET
;Quit
;
;***********************************************
; Subject: Set falg at every 500ms
*
;***********************************************
; Entry:
None
*
; Return: 500ms flag (F_500ms)
*
;***********************************************
;
Make_500msFalg:
INC
TMR_500MS
;count up every 2ms
LDA
TMR_500MS
IF
A == #250
;Compare 0.5S
ldm
TMR_500MS,#0
;clear 0.5sec. counter
set1
F_500ms
;set 0.5sec. flag
ENDIF
RET
;
;**************************************************************************
;
7-SEGMENT PATTERN DATA
*
;
_a_
*
;
f | g |b
*
;
|---|
*
;
e |___|c
*
;
d .h
*
;**************************************************************************
;
Segment:
hgfe dcba
To be displayed Digit Number
FONT
DB
0011_1111B
;
0
DB
0000_0110B
;
1
DB
0101_1011B
;
2
DB
0100_1111B
;
3
DB
0110_0110B
;
4
DB
0110_1101B
;
5
DB
0111_1100B
;
6
DB
0000_0111B
;
7
DB
0111_1111B
;
8
DB
0110_0111B
;
9
;
;**************************************************************************
;
NOT_USED:
nop
;Discard Unexpected Interrupts
reti
;
END
;Notice Program End
GMS82512/16/24
FEB. 2000 Ver 1.00
vi