Xem mẫu
- Luaän vaên toát nghieäp
PHUÏ LUÏC
Heä thoáng baùo giôø töï ñoäng
- Luaän vaên toát nghieäp
Chöông trình MAIN
Muïc ñích : khôûi ñoäng heä thoáng, töï ñoäng baùo hieäu. Khi caàn, xoùa Hottime,
Skiptime vaø ñieàu khieån maïch baùo hieäu.
Ngoõ vaøo : thôøi gian thöïc, baûng Restime, Hottime, Skiptime
Ngoõ ra : Hottime hay/vaø Skiptime bò xoùa. Maïch baùo hieäu hoaït ñoäng
Caùc thanh ghi söû duïng : IX, AF, BC, DE, HL
Chöông trình con söû duïng : DISPLAY
ORG 0000H
DI
LD SP,17FFH
LD A,00000000B
LD (2001H),A
LD A,00100101B
LD (2001H),A
XOR A
LD (3000H),A
LD B,08h
LD HL,0FFFH
SET0: INC HL
LD (HL),A
DEC B
JR NZ,SET0
LD A,02H
LD (1004H),A
LD A,0FEH
LD B,36H
SETF: I NC HL
LD (HL),A
DEC B
JR NZ,SETF
LD HL,1050H
LD A,(1004H)
LD (HL),A
LD A,(1005H)
INC HL
LD (HL),A
LD A,(1006H)
INC HL
LD (HL),A
LD A,(1007H)
INC HL
LD (HL),A
CALL DISPLAY
IM 0
EI
LD HL,1005H
LD D,(HL)
Heä thoáng baùo giôø töï ñoäng
- Luaän vaên toát nghieäp
INC HL
LD E ,(HL)
JR FIRST
MINWT: LD A,(1006H)
CP E
JR Z ,MINWT
LD E ,A
LD A,(1005H)
LD D,A
FIRST: LD C,01H
LD B,00H
LD IX,1005H
NEXT: INC B
INC IX
INC IX
INC IX
LD A,(IX+0)
CP 0FFH
JR Z ,MINWT
CP 0FEH
JR NZ,COMP
LD C,00H
LD B,00H
LD IX,0F9DH
JR NEXT
COMP: CP D
JR NZ,NEXT
LD A,(IX+1)
CP E
JR NZ,NEXT
DI
PUSH DE
PUSH BC
LD B,00H
LD HL,1026H
NEXTS: INC B
INC HL
INC HL
LD A,(HL)
CP 0FEH
JR Z ,COMPD
CP D
JR NZ,NEXTS
INC HL
LD A,(HL)
DEC HL
CP E
JR NZ,NEXTS
LD A,(1002H)
DEC A
LD (1002H),A
INC A
Heä thoáng baùo giôø töï ñoäng
- Luaän vaên toát nghieäp
SUB B
ADD A,A
INC A
INC A
LD C,A
LD B,00H
LD D,H
LD E ,L
INC HL
INC HL
LDIR
EXITM: EI
POP BC
BIT 0,C
JR Z ,RESTART
LD HL,1001H
LD A,(HL)
DEC (HL)
SUB B
LD B,A
ADD A,A
ADD A,B
INC A
INC A
LD C,A
LD B,00H
PUSH IX
POP HL
LD D,H
LD E ,L
INC HL
INC HL
INC HL
LDIR
RESTART: POP DE
JP MINWT
COMPD: LD A,(1004H)
SCF
CCF
CP 07H
JR C,BELL
BIT 0,C
JR Z ,EXITM
BELL: LD D,(IX+2)
LD B,09H
LD HL,3000H
LD A,(1007H)
LD E ,A
RING: LD A,(1007H)
CP E
JR Z ,RING
LD E ,A
Heä thoáng baùo giôø töï ñoäng
- Luaän vaên toát nghieäp
LD (HL),D
SLA D
DEC B
JP Z ,EXITM
JP RING
Chöông trình RTP (Real Time Program)
Muïc ñích : ñaùp öùng ngaét NMI taïo thôøi gian thöïc
Ngoõ vaøo : thöù, giôø, phuùt, giaây, DPMASK
Ngoõ ra : thöù, giôø, phuùt, giaây ñöôïc caäp nhaät, hieån thò thöù, giôø, phuùt, giaây
Caùc thanh ghi söû duïng : AF, BC, HL
Caùc chöông trình con söû duïng : DISPLAY
ORG 0066H
RTP: PUSH AF
PUSH BC
PUSH DE
PUSH HL
LD HL,1007H
LD A,(HL)
INC A
CP 3CH
JR NZ,UPDATE
LD (HL),00H
DEC HL
LD A,(HL)
INC A
CP 3CH
JR NZ,UPDATE
LD (HL),00H
DEC HL
LD A,(HL)
INC A
CP 18H
JR NZ,UPDATE
LD (HL),00H
DEC HL
LD A,(HL)
INC A
CP 09H
JR NZ,UPDATE
LD A,02H
UPDATE: LD (HL),A
LD A,(1000H)
BIT 0,A
JR NZ,EXIT
Heä thoáng baùo giôø töï ñoäng
- Luaän vaên toát nghieäp
LD HL,1004H
LD A,(HL)
LD (1050H),A
INC HL
LD A,(HL)
LD (1051H),A
INC HL
LD A,(HL)
LD (1052H),A
INC HL
LD A,(HL)
LD (1053H),A
CALL DISPLAY
EXIT: POP HL
POP DE
POP BC
POP AF
RETN
Chöông trình SETTIME.
Muïc ñích : ñieàu chænh thôøi gian thöïc
Ngoõ vaøo : baøn phím vaø thöù, giôø, phuùt hieän taïi
Ngoõ ra : - Maïch hieån thò seõ hieån thò thöù, giôø, phuùt ñang thay ñoåi
- Thöù, giôø, phuùt thöïc ñöôïc ghi vaøo boä nhôù
Caùc thanh ghi söû duïng :AF, BC, DE, HL
Caùc chöông trìng con söû duïng : DISPLAY, KEYPRO
ORG 0008H
SETTIME: PUSH AF
PUSH BC
PUSH DE
PUSH HL
LD A,10010000B
LD (2001H),A
LD HL,2000H
LD (HL),01101101B
LD (HL),01111001B
LD (HL),01111000B
LD (HL),01111000B
LD (HL),00000110B
LD (HL),01010100B
LD (HL),01111001B
LD BC,0FFFFH
REPT: XOR A
DEC BC
CP B
JR NZ,REPT
LD HL,1007H
Heä thoáng baùo giôø töï ñoäng
- Luaän vaên toát nghieäp
LD (HL),00H
DEC HL
LD C,(HL)
DEC HL
LD B,(HL)
DEC HL
LD D,(HL)
CALL KEYPRO
LD HL,1050H
LD A,(1004H)
LD (HL),A
INC HL
LD A,(1005H)
LD (HL),A
INC HL
LD A,(1006H)
LD (HL),A
INC HL
LD A,(1007H)
LD (HL),A
CALL DISPLAY
POP HL
POP DE
POP BC
POP AF
EI
RETI
Chöông trình Hottime.
Muïc ñích : thöïc hieän chöùc naêng veà Hottime : Xem, Xoùa, Ñaët
Ngoõ vaøo : baûng Hottime vaø caùc phím ñöôïc aán
Ngoõ ra : Hottime trong baûng coù theå bò xoùa, coù theå coù Hottime môùi ñöôïc ñaët.
Hieån thò nhöõng thoâng tin caàn thieát veà thôøi gian vaø baùo loãi
Caùc thanh ghi söû duïng : A, BC, DE, HL, IY
Caùc chöông trình con söû duïng : DISPLAY, ERROR, KEYPRO
ORG 0018H
HOTTIME: PUSH AF
PUSH BC
PUSH DE
PUSH HL
LD HL,1000H
LD (HL),01H
LD A,10010000B
LD (2001H),A
LD HL,2000H
Heä thoáng baùo giôø töï ñoäng
- Luaän vaên toát nghieäp
LD (HL),01110100B
LD (HL),00111111B
LD (HL),01111000B
LD (HL),01111000B
LD (HL),00000110B
LD (HL),01010100B
LD (HL),01111001B
LD BC,0FFFFH
REPH: XOR A
DEC BC
CP B
JR NZ,REPH
VIEW0: LD IY,1008H
LD D,01H
VIEW: XOR A
LD (1050H),A
LD (1053H),A
LD A,(IY+0)
LD (1051H),A
LD B,(IY+1)
LD HL,1052H
LD (HL),B
CALL DISPLAY
WT: LD BC,0D07H
WAIT: XOR A
DEC BC
CP B
JR NZ,WAIT
LD A,(4000H)
KEY1: CP 0FDH
JR NZ,KEY2
LD A,(1001H)
CP 00H
JR Z ,WT
CP D
JR Z ,WT
INC D
INC IY
INC IY
INC IY
JP VIEW
KEY2: CP 0FBH
JR NZ,KEY3
LD A,01
CP D
JR Z ,WT
DEC D
DEC IY
DEC IY
DEC IY
JP VIEW
KEY3: CP 0EFH
Heä thoáng baùo giôø töï ñoäng
- Luaän vaên toát nghieäp
JR NZ,KEY4
LD HL,1001H
LD A,(HL)
CP 0H
JR NZ,DEL
CALL ERROR
JP VIEW0
DEL: DEC (HL)
SUB D
LD B,A
ADD A,A
ADD A,B
INC A
INC A
LD C,A
LD B,00H
PUSH IY
POP HL
LD D,H
LD E ,L
INC HL
INC HL
INC HL
LDIR
JP VIEW0
KEY4: CP 0FEH
JR NZ,KEY5
LD A,(1001H)
CP 0AH
JR NZ,SET
CALL ERROR
JP VIEW0
SET: LD B,A
ADD A,A
ADD A,B
LD BC,1008H
LD H,00H
LD L ,A
ADD HL,BC
LD BC,0000H
CALL KEYPRO
INC HL
LD (HL),0B7H
LD HL,1001H
INC (HL)
JP VIEW
KEY5: CP 0F7H
JP NZ,VIEW
EXITH: LD A,10010000B
LD (2001H),A
XOR A
LD HL,2000H
Heä thoáng baùo giôø töï ñoäng
- Luaän vaên toát nghieäp
LD (HL),A
LD (HL),A
LD (HL),A
LD (HL),A
LD (HL),A
LD (HL),A
LD (HL),A
LD (HL),A
LD BC,138BH
REPH1: XOR A
DEC BC
CP B
JR NZ,REPH1S
LD HL,1000H
LD (HL),L
LD HL,1050H
LD A,(1004H)
LD (HL),A
INC HL
LD A,(1005H)
LD (HL),A
INC HL
LD A,(1006H)
LD (HL),A
INC HL
LD A,(1007H)
LD (HL),A
CALL DISPLAY
POP HL
POP DE
POP BC
POP AF
EI
RETI
Chöông trình SKIPTIME.
Muïc ñích : Thöïc hieän chöùc naêng veà Skiptime : Xem, Xoùa, Ñaët
Ngoõ vaøo : Baûng Skiptime vaø caùc phím ñöôïc aán
Ngoõ ra : Skiptime trong baûng coù theå bò xoùa, coù theå coù Skiptime môùi ñöôïc ñaët.
Hieån thò nhöõng thoâng tin caàn thieát veà thôøi gian vaø baùo loãi
Caùc thanh ghi söû duïng : A, BC, DE, HL, IY
Caùc chöông trình con söû duïng : DISPLAY, KEYPRO, ERROR
ORG 0028H
SKIPTIME: PUSH AF
PUSH BC
PUSH DE
Heä thoáng baùo giôø töï ñoäng
nguon tai.lieu . vn