;================================
;      GLQ-ID Server For 89C52
;      FIRST  UPDATE 2002.11.29(use 89c55)
;      SECOND UPDATE 2003.01.03(use 89c55)
;      THIRD  UPDATE 2003.01.06(use 89c55)
; (1)添加加密功能
; (2)添加靠卡后若尚未消費，不能在其他POS上二次靠卡，否則顯示出錯"ERR 000"
; (3)添加每到0時0分0秒，將持卡人信息區的預留字節標志清0，防止意外情況發生。
; (4)存款機有出錯信息，由POS改程序送消費流過來修正
; (5)調用w_sale子過程中處理預留字節
; (6)管理器發送正確或錯誤應答時分開處理
; (7)管理器收到標志為03的消費流時不保存直接返回
; (8)增添讀,寫8區信用額度區,將信用額度發送至POS處理-(2003.11.29)
; (9)POS脫機下載個人信息時管理器發送信用額度和尾指針字節
; (10)脫機數據和聯機數據均以管理器時間為準--------(2003.01.03)
; (11)上傳數據時接收流類型最高位為0：聯機數據/為1：脫機數據
; (12)上傳數據時以接收流類型字節的第6位作為是否已讀取的標志
; (13)增添POS下載數據前請求校時，管理器發送時間---（2003.01.06）
;*******ID售飯系統江陰利港電廠V8.0版本*********

;================================
	org 0000h
;************************************
;       Adress   Define
;************************************
	d_374   equ     8000h

	w_2051  equ     0a000h          ;Write 2051 Control
	r_2051  equ     0a000h          ;Read 2051 Control

	rsec    equ 	0c000h          ;DS12887 Second Address
	rmin    equ     0c002h          ;DS12887 Second Address
	rhor    equ     0c004h          ;DS12887 Second Address
	rwek    equ     0c006h          ;DS12887 Second Address
	rday    equ     0c007h          ;DS12887 Second Address
	rmon    equ     0c008h          ;DS12887 Second Address
	ryer    equ     0c009h          ;DS12887 Second Address

	r18a    equ     0c00ah          ;DS12887 Control A Address
	r18b    equ     0c00bh          ;DS12887 Control B Address
	r18c    equ     0c00ch          ;DS12887 Control C Adress
	r18d    equ     0c00dh          ;DS12887 Control D Address

	;-------------------
	d_run_yer   equ     0c070h      ;Run Year Address
	d_run_mon   equ     0c071h      ;Run Month Address
	d_run_day   equ     0c072h      ;Run Day Address

	d_idsc      equ     0c010h      ;UserID && CradSC Copy
	;
	d_record    equ     1000h       ;the Last Sale/Save Record Bakup Address
	d_comm      equ     2700h       ;Pos Test Comm S/F Store Address
	d_pos_in    equ     0100h       ;Pos In Port Address
	d_pos_menu  equ     0400h       ;Pos Current Menu Send Address
					;1Byte/Pos:MenuNumber

	;
	adr_offset  equ     3000h       ;Address Offset
	;
	area_offset equ     3020h       ;Area Address Offset

;************************************
;       Bit     Define
;************************************
	;-------------------
	;r887    equ     0b2h           ;DS12887 /IRQ

	bp      equ     0b3h
	led     equ     0b4h
	b_chk   equ     0b5h            ;Battery Error
	;-------------------
	f_rx    equ     00h             ;Receive End
	f_tx    equ     01h             ;Transmit End
	f_ri    equ     02h             ;Receive Interrupt

	f_day   equ     03h             ;New Date

	f_s00   equ     04h             ;No.0 Function Transmit
	f_s16   equ     05h             ;No.0 Function 16

	f_ecs   equ     06h             ;Error CheckSum
	f_upt   equ     07h             ;Second Update

	f_wck   equ     08h             ;PC Requst Special Pos Clock
	f_win   equ     09h             ;PC Requst Special Pos UserID&&CardSC

	bit_c   equ     0ah

	f_ini   equ     0bh             ;Initi Succ
	f_new   equ     0ch             ;New Day

	f_bat   equ     0dh             ;Battery Bad Flag

        f_none  equ     0eh
;----------------------------------
        f_bit	equ	0fh		;加密功能中用到該標志位
        f_sme	equ     10h		;若為管理卡或掛失卡，該標志置位


;----------------------------------

;*************************************
;       Regist  Define
;*************************************
	dyer    equ     08h
	dmon    equ     09h
	dday    equ     0ah
	dwek    equ     0bh
	dhor    equ     0ch
	dmin    equ     0dh
	dsec    equ     0eh

	dcoun   equ     0fh
	;
	r_mod   equ     10h
	ricon   equ     11h             ;Receive Count
	rir0    equ     12h             ;Receive Data Address
	;richk   equ     13h             ;Receive CheckSum
	;
	ticon   equ     11h             ;Transmit Count
	tir0    equ     12h             ;Transmit Data Address
	tichk   equ     13h             ;Transmit CheckSum
	;
	region  equ     14h             ;Area
	repeat  equ     15h
	rtchk   equ     16h             ;CheckSum
	shn     equ     17h             ;Port
	;
	r_nme   equ     18h
	subsq   equ     19h             ;Sub-squence
	r_win   equ     1ah             ;PosName Regist
	r_s00   equ     1bh             ;No.0 Function

	id_limit equ    1ch             ;Identity Limit

	close   equ     1dh             ;Pos Power Off
	idsc    equ     1eh             ;UserID && CardSC
	uptim   equ     1fh             ;UpdateTime

	;
	rc374   equ     23h             ;Record Offset
		  ;----------------------------------------
		  ; D7  D6  D5  D4   D3   D2   D1   D0
		  ; **  **  **  **  A18  A17  A16  A15
		  ;-----------------------------------------
	h_adr   equ     24h             ;High-Adress
	l_adr   equ     25h             ;Low-Adress

	max_h   equ     26h             ;Record Total
	max_l   equ     27h

	beg_h   equ     28h             ;Begin Point
	beg_l   equ     29h

	end_h   equ     2ah             ;End Point
	end_l   equ     2bh

	reclen  equ     2ch             ;Record Length

	;
	r_374   equ     2dh
		  ;----------------------------------------
		  ; D7  D6  D5  D4   D3   D2   D1   D0
		  ; **  **  **  **  A18  A17  A16  A15
		  ;-----------------------------------------
	rec_h   equ     2eh             ;Record Number
	rec_l   equ     2fh

	rcdpl   equ     30h             ;dpl copy
	rcdph   equ     31h             ;dph copy

	menu    equ     32h             ;Pos Menu

	r_err   equ     33h             ;Error

	r_ecs   equ     34h             ;CheckSum Err

	credit	equ	35h		;信用等級字節

	f16cnt  equ     36h
	;----------------------------------------modify
	dat_h	equ	37h		;整數高位字節
	dat_l	equ	38h		;整數低位字節

	sdph	equ	39H		;dptr復制字節
	sdpl	equ	3aH

	rr_374	equ	3bH		;r_374復制字節
	;----------------------------------------modify
	r_sp    equ     3ch

	b_buf   equ     58h             ;Backup Buffer
	;
	r_buf   equ     88h             ;Receive Buffer (2051)
	t_buf   equ     88h             ;Send Buffer (2051)

	t_dat   equ     89h             ;=r_buf+1: 31Byte=89h--0a7h
	t_dt1   equ     0a8h            ;32Byte=0a8h--0c7h


	tibuf   equ     0c8h            ;TI Buffer
	tihed   equ     0cbh            ;TI Head
	tidat   equ     0d1h            ;TI Data

	ribuf   equ     0cbh            ;RI buffer
	ridat   equ     0d1h            ;RI Data

;********************************
;      special regist
;********************************

	th2	equ	0cdh
	tl2	equ	0cch
	rcap2h	equ	0cbh
	rcap2l	equ	0cah
	t2con	equ	0c8h


;********************************
;       Const   Define
;********************************
	postab  equ     1               ;Pos Table
	acctab  equ     2               ;Accounts Table
	recetab equ     3               ;Receive Table
	limitab equ     4               ;Identity Limit Table
	statutab equ    5               ;Status Table
	menutab equ     6               ;Menu Table
;---------------------------------------------------------
	areatab	equ	7		;area table
	credtab	equ	8
;---------------------------------------------------------
	hedlen  equ     11              ;RegionHead Record Length

	ratfunc equ     17

	dti_h   equ     80h             ;34.4ms
	dti_l   equ     0

	dt1_h   equ     0               ;65ms
	dt1_l   equ     0

	over    equ     16              ;Address Over
	cserr   equ     17              ;CheckError

;****************************
	ljmp    main


	org     0003h             ;int0
	ljmp    timer


	org     000bh             ;t0
	mov r_mod,#0
	clr f_ri
	clr tr0
	reti


	org     0013h             ;int1
	ljmp    main


	org     001bh             ;t1
	ljmp    m_t1


	org     0023h
	;-------------------------------------------------------------
	; Frame=Head+Command+Repeat+ChipS+Region+Record(2)+Data(16)+CheckS
	;           +Command+Repeat+ChipS+Region+Record(2)+Data(16)+CheckS
	;       Head=ECh+ECh+ECh
	;       Command=ComNum*16+SubFrameSquence
	;               ComNum=0: format
	;                      1: Read Record
	;                      2: Write Record
	;                      3: OK Answer
	;                      4: Error Answer
	;       Repeat=ErrType*16+RepCount
	;-------------------------------------------------------
	push acc        ;2
	push psw        ;2
	push 00h
	push 01h
	push 02h
	push 03h
	push 04h
	push 05h
	push 06h
	push 07h
	      ;2

	jbc ri,r_recv   ;2  =8

	jbc ti,r_send

	ljmp d_reti


	;--------------
	;  Transmit
	;--------------

r_send: mov a,ticon
	jnz r_se00

	clr tr0
	setb f_tx

	ljmp d_reti


r_se00: mov r0,tir0
	mov a,@r0
	mov sbuf,a
	inc tir0
	dec ticon
	ljmp d_reti


	;------------------
	; Receive
	;------------------

r_recv: mov r0,sbuf        ;2
	clr tr0            ;2
	jb f_tx,r_re0      ;2

	jbc ti,r_send

	ljmp d_reti

	;
r_re0:  push dph          ;2
	push dpl          ;2

	mov a,r_mod       ;1
	rl a              ;1

	mov dptr,#ritab   ;2
	jmp @a+dptr       ;2

ritab:  sjmp r_md00       ;2   =18
	sjmp r_md00
	sjmp r_md00
	sjmp r_md30


	;-----------------
	; Asys Head
	;-----------------

r_md00: mov a,r0               ;1
	cjne a,#0ech,r_md01    ;2

	setb f_ri

	mov rir0,#ribuf
	mov ricon,#46
	inc r_mod

	sjmp r_md20


r_md01: mov r_mod,#0
	clr f_ri

	sjmp d_iret

	;--------------
	;  Data
	;--------------

r_md30: mov a,r0            ;1
	mov r0,rir0         ;2
	mov @r0,a           ;1
	inc rir0            ;1
	djnz ricon,r_md20   ;2  =7


	clr f_ri            ;2
	setb f_rx           ;2
	clr f_tx            ;2
	mov r_mod,#0        ;2
	sjmp d_iret         ;2  =10


r_md20: mov th0,#dti_h      ;2
	mov tl0,#dti_l      ;2
	setb tr0            ;2  =6

d_iret: pop dpl             ;2
	pop dph             ;2  =4

d_reti: pop 07h
	pop 06h
	pop 05h
	pop 04h
	pop 03h
	pop 02h
	pop 01h
	pop 00h        ;2
	pop psw        ;2
	pop acc
	       ;2
	reti           ;2  =8


;****************************
;****************************
;****************************
main:   mov sp,#r_sp

	mov th2,#0ffh           ;115200 57600 38400 28800 19200 9600=BPS
	mov tl2,#0eeh           ;ff:fd  ff:fa ff:f7 ff:f4 ff:ee ff:dc

	mov rcap2h,#0ffh
	mov rcap2l,#0eeh

	mov t2con,#00110100b    ;tf2 exf2 rclk tclk exen2 tr2 c/t2 cp/rl2
	mov scon,#01010000b     ;sm0 sm1 sm2 ren tb8 rb8 ti ri

	;------

	mov tmod,#11h
	mov tcon,#00000001b     ;TF1 TR1 TF0 TR0 IE1 IT1 IE0 IT0


	mov ip,#00010000b       ; *   *  pt2  ps pt1 px1 pt0 px0
	mov ie,#00011011b       ; ea  *  et2  es et1 ex1 et0 ex0


	lcall ini_t1

	setb ea                ;eanbl interrupt

	mov r_mod,#0
	clr f_rx
	clr f_tx
	clr f_ri

	clr f_day

	clr f_ecs
	clr f_bit

	clr f_s00
	clr f_s16

	clr f_wck
	clr f_win

	clr f_ini
	clr f_sme

	clr bit_c
	;
	mov dsec,#60
	;
	mov dptr,#w_2051        ;Init 2051
	mov a,#0ffh
	movx @dptr,a


	;--------------------
	; Test   Ram
	;--------------------
	lcall verfity_ram
	jnb bit_c,t_clk

	mov repeat,#2
	ljmp error


 t_clk: ;---------------------
	; Reset D12887 && Test
	;---------------------
	mov dptr,#r18a
	mov a,#00100000b             ;UIP DV2 DV1 DV0 RS3 RS2 RS1 RS0
	movx @dptr,a

	mov dptr,#r18b
	mov a,#00010110b             ;SET PIE AIE UIE SQWE DM 24/12 DSE
	movx @dptr,a

	mov dptr,#r18d
	movx a,@dptr

	mov dptr,#r18c
	movx a,@dptr

	mov b,dsec

	mov r2,#10
	lcall sleep

	mov a,dsec
	cjne a,b,mmain

	mov repeat,#3
	ljmp error



 mmain: clr bp
	clr led

	mov r2,#4
	lcall sleep

	setb bp

	mov r2,#8
	lcall sleep


	lcall inial


	mov repeat,#0
	mov region,#0fh

	mov uptim,#0
	mov close,#0
	mov idsc,#0

	mov f16cnt,#0

	lcall go_off

	lcall comp_date

	setb f_tx

	setb f_upt
	clr f_bat


 loop:  jb f_ecs,er_chk

	lcall rd2051             ;Read 2051

	jb f_rx,rece_d

 m_887: jb f_ini,loop

	jnb f_day,lop2		;每到00時,f_day置位

	clr f_day

	lcall clr_count		;在這里添加清預留字節功能


 lop2:  jnb f_bat,lop3

	mov a,dsec
	anl a,#0fh
	jnz lop3                  ;16S

	clr bp

	mov r2,#2
	lcall sleep

	setb bp


 lop3:  jnb f_upt,loop

	clr f_upt

	lcall update
	sjmp loop


	;----------------
	;----------------
er_chk: clr f_tx

	clr ea

	mov dptr,#w_2051
	mov a,#0ffh
	movx @dptr,a
	;
	ljmp errcs



;===================================
;       Dispose Receive Data
;===================================
rece_d: clr f_rx

	mov a,#23
	add a,#ribuf
	mov r1,a

	mov r0,#ribuf
	mov r2,#23
	mov r3,#0

re_d1:  mov a,@r0
	mov b,@r1
	cjne a,b,re_d3

	add a,r3
	mov r3,a

	inc r0
	inc r1
	djnz r2,re_d1

	dec r0
	mov a,@r0
	add a,@r0
	mov b,r3
	cjne a,b,re_d3

	sjmp receok


re_d3:  setb f_tx
	ljmp m_887


receok: mov r0,#ribuf

	mov a,@r0
	anl a,#0fh

	mov subsq,a

	jz d_deal

	mov a,@r0

	swap a
	anl a,#0fh

	cjne a,#2,d_deal

	mov a,subsq

	dec a
	anl a,#3

	swap a

	add a,#b_buf
	mov r1,a

	mov r0,#ridat

	mov r2,#16
	lcall copy_s

	mov r_err,#0
	lcall ok_ans

	ljmp m_887



d_deal: ;------------------
	; Receive Data Deal
	;------------------
	mov a,@r0
	swap a
	anl a,#0fh
	cjne a,#0,dl_01		;（A）≠0，轉dl_01
				;(A)=0,格式化管理器命令


dl_00:  inc r0

	cjne @r0,#0,dl_08		;repeat
	inc r0


	cjne @r0,#0,dl_08		;chips
	inc r0

	cjne @r0,#0,dl_08		;region
	inc r0

	cjne @r0,#0,dl_08		;record(h)
	inc r0

	cjne @r0,#0,dl_08		;record(l)

					;5字節均等于0

	lcall format

	mov subsq,#0
	mov r_err,#0
	lcall ok_ans
	ljmp m_887


dl_01:  cjne a,#1,dl_03

	lcall read
	ljmp m_887


dl_03:  cjne a,#2,dl_06

	lcall write
	ljmp m_887


dl_06:  cjne a,#3,dl_08

	lcall answer
	setb f_tx
	ljmp m_887


dl_08:  setb f_tx
	ljmp m_887


;****************************
;       Error Alrm
;****************************
error:  mov r5,repeat

 err00: clr bp
	clr led
	;
	mov r2,#1
	lcall sleep
	;
	setb bp
	setb led

	mov r2,#1
	lcall sleep

	djnz r5,err00
	;
	mov r2,#30
	lcall sleep

	sjmp error


;*************************************
;       Record CheckSum Error Alrm
;*************************************
errcs:  mov r5,r_ecs

 ercs0: clr bp
	clr led
	;
	mov r2,#1
	lcall sleep
	;
	setb bp
	setb led

	mov r2,#1
	lcall sleep

	djnz r5,ercs0
	;
	mov r2,#4
	lcall sleep
	;
	clr bp
	clr led

	mov r2,#3
	lcall sleep

	setb bp
	setb led
	;

	mov r2,#30
	lcall sleep

	sjmp errcs



;****************************
;****************************
;       Read Record
;****************************
read:   inc r0
	inc r0

	mov a,@r0

	anl a,#7
	mov b,a

	rl a
	add a,b

	mov dptr,#rd_tab
	jmp @a+dptr

rd_tab: ljmp r_chipin
	ljmp r_date_time
	ljmp r_pos_date
	ljmp r_pos_idsc
	ljmp card_server
	ljmp special_read
	ljmp second_read

read_end:
	setb f_tx
	ret



second_read:
	;------------------------------
	; Special Read Second Region
	;-------------------------------
	inc r0
	mov a,@r0
	anl a,#0fh
	cjne a,#2,read_end

	mov region,a
	lcall quhead
	;
	inc r0
	mov rec_h,@r0
	inc r0
	mov rec_l,@r0

	mov a,rec_h
	cjne a,max_h,s_read1

	mov a,rec_l
	cjne a,max_l,s_read1

s_read1: jc s_read5

	mov r0,#tihed

	mov @r0,#20h
	inc r0

	mov @r0,#0
	;
	mov r0,#tidat

	dec r0
	dec r0

	mov @r0,#0ffh
	inc r0

	mov @r0,#0ffh
	inc r0

	mov @r0,#over
	inc r0

	lcall chktis

	mov ticon,#49
	mov tir0,#tibuf
	setb ti
	ret



s_read5: lcall get_ar
	;
	mov r2,#7
	lcall n_dptr

	mov r2,#12

	mov r0,#tidat

s_read7: movx a,@dptr
	mov @r0,a

	lcall indptr
	inc r0

	djnz r2,s_read7
	;
	mov r1,#tihed
	mov @r1,#20h
	inc r1
	mov @r1,#0
	;
	lcall chktis

	mov ticon,#49
	mov tir0,#tibuf
	setb ti
	ret




	;-------------------
	;  ChipIn Read
	;-------------------
r_chipin:
	inc r0
	mov a,@r0
	;
	anl a,#0fh
	mov region,a

	rl a
	add a,region

	mov dptr,#rcitb
	jmp @a+dptr

rcitb:  ljmp r_area0
	ljmp r_area1
	ljmp r_area1         	 ;=r_area2
	ljmp r_area3
	ljmp r_area4
	ljmp r_area5
	ljmp r_area4          	;=r_area6
	ljmp r_area7		;read 7 qu(new)
	ljmp r_area8		;read 8 qu(new)

r_area9: setb f_tx
	ret


r_area0: ;-------------------
	;  Read Region 0
	;-------------------
	mov a,#00000000b
	mov dptr,#d_374
	movx @dptr,a
	mov r_374,a

	inc r0
	inc r0
	mov a,@r0
	jnz rarea03

	mov dptr,#adr_offset
	mov r0,#b_buf

	mov r2,#32
	mov reclen,#33