Quá trình hình thành giáo trình thiết kế và thi công hệ thống chấm điểm và tạo khung reset hệ thống trong toàn mạch p8 docx

Luận văn tốt nghiệp
Hệ thống báo giờ tự động








PHỤ LỤC













Luận văn tốt nghiệp
Hệ thống báo giờ tự động


Chương trình MAIN
Mục đích : khởi động hệ thống, tự động báo hiệu. Khi cần, xóa Hottime,
Skiptime và điều khiển mạch báo hiệu.

Ngõ vào : thời gian thực, bảng Restime, Hottime, Skiptime
Ngõ ra : Hottime hay/và Skiptime bò xóa. Mạch báo hiệu hoạt động
Các thanh ghi sử dụng : IX, AF, BC, DE, HL
Chương trình con sử dụ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: INC 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)
Luận văn tốt nghiệp
Hệ thống báo giờ tự động


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
Luận văn tốt nghiệp
Hệ thống báo giờ tự động


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
Luận văn tốt nghiệp
Hệ thống báo giờ tự động


LD (HL),D
SLA D
DEC B
JP Z,EXITM
JP RING


Chương trình RTP (Real Time Program)
Mục đích : đáp ứng ngắt NMI tạo thời gian thực
Ngõ vào : thứ, giờ, phút, giây, DPMASK
Ngõ ra : thứ, giờ, phút, giây được cập nhật, hiển thò thứ, giờ, phút, giây
Các thanh ghi sử dụng : AF, BC, HL
Các chương trình con sử dụ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
Luận văn tốt nghiệp
Hệ thống báo giờ tự động

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.
Mục đích : điều chỉnh thời gian thực
Ngõ vào : bàn phím và thứ, giờ, phút hiện tại
Ngõ ra : - Mạch hiển thò sẽ hiển thò thứ, giờ, phút đang thay đổi
- Thứ, giờ, phút thực được ghi vào bộ nhớ
Các thanh ghi sử dụng :AF, BC, DE, HL
Các chương trìng con sử dụ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
Luận văn tốt nghiệp
Hệ thống báo giờ tự động


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.
Mục đích : thực hiện chức năng về Hottime : Xem, Xóa, Đặt
Ngõ vào : bảng Hottime và các phím được ấn
Ngõ ra : Hottime trong bảng có thể bò xóa, có thể có Hottime mới được đặt.
Hiển thò những thông tin cần thiết về thời gian và báo lỗi
Các thanh ghi sử dụng : A, BC, DE, HL, IY
Các chương trình con sử dụ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
Luận văn tốt nghiệp
Hệ thống báo giờ tự động


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
Luận văn tốt nghiệp
Hệ thống báo giờ tự động


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
Luận văn tốt nghiệp
Hệ thống báo giờ tự động


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.
Mục đích : Thực hiện chức năng về Skiptime : Xem, Xóa, Đặt
Ngõ vào : Bảng Skiptime và các phím được ấn
Ngõ ra : Skiptime trong bảng có thể bò xóa, có thể có Skiptime mới được đặt.
Hiển thò những thông tin cần thiết về thời gian và báo lỗi
Các thanh ghi sử dụng : A, BC, DE, HL, IY
Các chương trình con sử dụng : DISPLAY, KEYPRO, ERROR

ORG 0028H
SKIPTIME: PUSH AF
PUSH BC
PUSH DE