mag.asm

税控收款机软件。包括底层驱动和上层的应用一起。是一个完整的税控收款机软件方案

	MOV  	DPTR,#tt0?462
	LCALL	L?0232
	LCALL	L?0275
	ADD  	A,#LOW (inv_tmp_day1+010H)
	MOV  	DPL,A
	CLR  	A
	ADDC 	A,#HIGH (inv_tmp_day1+010H)
	LCALL	L?0238
	MOV  	DPTR,#tt0?462
	LCALL	?C?LSTXDATA
	MOV  	DPTR,#tt1?461
	LCALL	L?0232
	LCALL	L?0275
	ADD  	A,#LOW (inv_tmp_day1+014H)
	MOV  	DPL,A
	CLR  	A
	ADDC 	A,#HIGH (inv_tmp_day1+014H)
	LCALL	L?0238
	MOV  	DPTR,#tt1?461
	LCALL	L?0302
	JNZ  	?C0132
?C0133:
	LCALL	L?0283
	MOV  	R0,#LOW (prn_page_buf+071H)
	MOV  	R4,#HIGH (prn_page_buf+071H)
	MOV  	R2,#HIGH (pp1)
	MOV  	R1,#LOW (pp1)
	MOV  	R7,#016H
	LCALL	L?0299
	MOV  	R2,#HIGH (prn_page_buf+092H)
	MOV  	R1,#LOW (prn_page_buf+092H)
	LCALL	L?0280
	CLR  	A
	MOV  	i?463,A
?C0135:
	MOV  	A,i?463
	MOV  	B,#0BH
	MUL  	AB
	ADD  	A,#LOW (pp1+016H)
	MOV  	R1,A
	MOV  	A,#HIGH (pp1+016H)
	ADDC 	A,B
	MOV  	R2,A
	MOV  	R3,#0FFH
	PUSH 	AR1
	MOV  	R7,i?463
	MOV  	R6,#00H
	MOV  	R4,#00H
	MOV  	R5,#024H
	LCALL	?C?IMUL
	MOV  	A,#LOW (prn_page_buf+0DAH)
	ADD  	A,R7
	MOV  	R1,A
	MOV  	A,#HIGH (prn_page_buf+0DAH)
	ADDC 	A,R6
	MOV  	R0,AR1
	MOV  	R4,A
	MOV  	R5,#01H
	POP  	AR1
	MOV  	R6,#00H
	MOV  	R7,#0BH
	LCALL	?C?COPY
	INC  	i?463
	MOV  	A,i?463
	CJNE 	A,#07H,?C0135
?C0136:
	CLR  	A
	MOV  	i?463,A
?C0138:
	LCALL	L?0303
	LCALL	L?0277
	MOV  	A,#LOW (prn_page_buf+0EAH)
	ADD  	A,R5
	MOV  	DPL,A
	MOV  	A,#HIGH (prn_page_buf+0EAH)
	ADDC 	A,R4
	MOV  	DPH,A
	MOV  	A,R7
	MOVX 	@DPTR,A
	LCALL	L?0303
	LCALL	L?0287
	MOV  	A,#LOW (prn_page_buf+0EBH)
	ADD  	A,R5
	MOV  	DPL,A
	MOV  	A,#HIGH (prn_page_buf+0EBH)
	LCALL	L?0304
	CJNE 	A,#04H,?C0138
?C0139:
	CLR  	A
	MOV  	i?463,A
?C0141:
	LCALL	L?0305
	LCALL	L?0277
	MOV  	A,#LOW (prn_page_buf+010EH)
	ADD  	A,R5
	MOV  	DPL,A
	MOV  	A,#HIGH (prn_page_buf+010EH)
	ADDC 	A,R4
	MOV  	DPH,A
	MOV  	A,R7
	MOVX 	@DPTR,A
	LCALL	L?0305
	LCALL	L?0288
	MOV  	A,#LOW (prn_page_buf+010FH)
	ADD  	A,R5
	MOV  	DPL,A
	MOV  	A,#HIGH (prn_page_buf+010FH)
	LCALL	L?0304
	CJNE 	A,#04H,?C0141
?C0142:
	MOV  	DPTR,#inv_tmp_day1+04H
	LCALL	L?0253
	MOV  	R2,#HIGH (prn_page_buf+0132H)
	MOV  	R1,#LOW (prn_page_buf+0132H)
	MOV  	R5,#0AH
	LCALL	_long_to_asc
	MOV  	DPTR,#inv_tmp_day1+06H
	LCALL	L?0253
	MOV  	R2,#HIGH (prn_page_buf+0156H)
	MOV  	R1,#LOW (prn_page_buf+0156H)
	MOV  	R5,#0AH
	LCALL	_long_to_asc
	MOV  	DPTR,#inv_tmp_day1+08H
	LCALL	L?0254
	MOV  	R2,#HIGH (prn_page_buf+017AH)
	MOV  	R1,#LOW (prn_page_buf+017AH)
	MOV  	R5,#0AH
	LCALL	_long_to_asc
	MOV  	?_long_to_asc?BYTE+04H,#01H
	MOV  	?_long_to_asc?BYTE+05H,#HIGH (tt0?462)
	MOV  	?_long_to_asc?BYTE+06H,#LOW (tt0?462)
	MOV  	R3,#01H
	MOV  	R2,#HIGH (prn_page_buf+019EH)
	MOV  	R1,#LOW (prn_page_buf+019EH)
	MOV  	R5,#0AH
	LCALL	_long_to_asc
	MOV  	?_long_to_asc?BYTE+04H,#01H
	MOV  	?_long_to_asc?BYTE+05H,#HIGH (tt1?461)
	MOV  	?_long_to_asc?BYTE+06H,#LOW (tt1?461)
	MOV  	R3,#01H
	MOV  	R2,#HIGH (prn_page_buf+01C2H)
	MOV  	R1,#LOW (prn_page_buf+01C2H)
	MOV  	R5,#0AH
	LCALL	_long_to_asc
	LCALL	L?0234
	MOV  	R2,#HIGH (prn_page_buf+021EH)
	MOV  	R1,#LOW (prn_page_buf+021EH)
	LCALL	L?0280
	MOV  	i?463,#08H
?C0144:
	MOV  	k?465,#012H
?C0147:
	LCALL	L?0240
	MOVX 	A,@DPTR
	CJNE 	A,#030H,?C0146
	LCALL	L?0240
	MOV  	A,#020H
	MOVX 	@DPTR,A
?C0149:
	INC  	k?465
	MOV  	A,k?465
	CJNE 	A,#01BH,?C0147
?C0146:
	INC  	i?463
	MOV  	A,i?463
	CJNE 	A,#0BH,?C0144
?C0145:
	MOV  	i?463,#0BH
?C0152:
	MOV  	k?465,#012H
?C0155:
	LCALL	L?0241
	MOVX 	A,@DPTR
	CJNE 	A,#030H,?C0154
	LCALL	L?0241
	MOV  	A,#020H
	MOVX 	@DPTR,A
?C0157:
	INC  	k?465
	MOV  	A,k?465
	CJNE 	A,#019H,?C0155
?C0154:
	INC  	i?463
	MOV  	A,i?463
	CJNE 	A,#0DH,?C0152
?C0153:
	MOV  	i?463,#0BH
?C0160:
	LCALL	L?0285
	MOV  	DPH,A
	MOVX 	A,@DPTR
	MOV  	R7,A
	MOV  	B,#024H
	MOV  	A,i?463
	MUL  	AB
	ADD  	A,#LOW (prn_page_buf+01CH)
	MOV  	DPL,A
	MOV  	A,B
	ADDC 	A,#HIGH (prn_page_buf+01CH)
	LCALL	L?0279
	MOVX 	A,@DPTR
	MOV  	R7,A
	LCALL	L?0285
	LCALL	L?0279
	MOV  	A,#02EH
	MOVX 	@DPTR,A
	INC  	i?463
	MOV  	A,i?463
	CJNE 	A,#0DH,?C0160
?C0161:
	LCALL	GetKey
	MOV  	n?464,keyc
	MOV  	A,n?464
	CJNE 	A,#01H,?C0163
	MOV  	R7,#014H
	LCALL	_Prn_Paper1
?C0163:
	MOV  	A,n?464
	XRL  	A,#02H
	JNZ  	?C0114
	MOV  	k?465,A
?C0165:
	LCALL	L?0249
	LCALL	L?0281
	LCALL	_DisHzLinYm
	MOV  	A,k?465
	ANL  	A,#03H
	JNZ  	?C0167
	LCALL	GetKey
?C0167:
	INC  	k?465
	MOV  	A,k?465
	CLR  	C
	SUBB 	A,#014H
	JC   	?C0165
?C0114:
	RET  	
L?0289:
	MOV  	R3,#0FFH
	MOV  	R5,#0B8H
	LCALL	_DisHzLinYm
	MOV  	R3,#0FFH
	RET  	


	RSEG  ?PR?DeclareCHK?MAG
DeclareCHK:
	USING	0

	LCALL	cls
	MOV  	R3,#0FFH
	MOV  	R2,#HIGH (?SC_124)
	MOV  	R1,#LOW (?SC_124)
	MOV  	R5,#0BAH
	LCALL	_DisHzLinYm
	MOV  	R3,#0FFH
	MOV  	R2,#HIGH (?SC_144)
	MOV  	R1,#LOW (?SC_144)
	MOV  	R5,#0BCH
	LCALL	_DisHzLinYm
;	1.打印报税电子存根,Col2
;	2.显示报税内容,Col3
	LCALL	GetKey
	MOV  	n?568,keyc
	CLR  	A
	MOV  	DPTR,#F_rs232
	MOVX 	@DPTR,A
	MOV  	R7,#07H
	LCALL	_fiscal_check_getadr
	MOV  	A,R7
	JZ   	$ + 5H
	LJMP 	?C0170
?C0169:

	LCALL	cls
	LCALL	L?0306
	MOV  	R5,#0BEH
	LCALL	_DisHzLinYm
	LCALL	L?0231
	MOV  	ii?566+03H,A
	MOV  	ii?566+02H,R6
	MOV  	ii?566+01H,R5
	MOV  	ii?566,R4
?C0171:
	MOV  	DPTR,#fiscal_ck_index+04H
	LCALL	L?0232
	MOV  	R7,A
	MOV  	R3,ii?566+03H
	MOV  	R2,ii?566+02H
	MOV  	R1,ii?566+01H
	MOV  	R0,ii?566
	SETB 	C
	LCALL	?C?ULCMP
	JC   	$ + 5H
	LJMP 	?C0170

	MOV  	R7,ii?566+03H
	MOV  	R6,ii?566+02H
	MOV  	R5,ii?566+01H
	MOV  	R4,ii?566
	LCALL	_rd_buf
	MOV  	R0,#LOW (declare_tmp_data)
	MOV  	R4,#HIGH (declare_tmp_data)
	MOV  	R7,#080H
	LCALL	L?0248
	MOV  	DPTR,#flash_temp
	MOVX 	A,@DPTR
	CJNE 	A,#0FFH,?C0174
	MOV  	A,ii?566+03H
	MOV  	R3,A
	MOV  	A,ii?566+02H
	MOV  	R2,A
	CLR  	A
	ADD  	A,ii?566+03H
	MOV  	R7,A
	CLR  	A
	ADDC 	A,ii?566+02H
	MOV  	R6,A
	MOV  	A,ii?566+01H
	ADDC 	A,#01H
	MOV  	R5,A
	CLR  	A
	ADDC 	A,ii?566
	MOV  	R4,A
	CLR  	C
	MOV  	A,R7
	SUBB 	A,R3
	MOV  	ii?566+03H,A
	MOV  	A,R6
	SUBB 	A,R2
	MOV  	ii?566+02H,A
	MOV  	A,R5
	SUBB 	A,#00H
	MOV  	ii?566+01H,A
	MOV  	A,R4
	SUBB 	A,#00H
	MOV  	ii?566,A
	SJMP 	?C0173
?C0174:
	MOV  	A,n?568
	CJNE 	A,#01H,?C0176
	MOV  	R7,#02H
	LCALL	_DailyCollectOrDeclareDuty
	MOV  	R7,#020H
	LCALL	_Prn_Paper1
	LCALL	FfLine
	LCALL	FfLine
	LCALL	FfLine
?C0176:
	MOV  	A,n?568
	XRL  	A,#02H
	JNZ  	?C0173
	MOV  	R7,#02H
	LCALL	_DailyCollectOrDeclareDuty
	LCALL	cls
	MOV  	i?567,#04H
?C0178:
	MOV  	A,i?567
	LCALL	L?0250
	MOV  	A,i?567
	LCALL	L?0282
	LCALL	_DisHzLinYm
	MOV  	A,i?567
	ANL  	A,#03H
	JNZ  	?C0181
	LCALL	GetKey
?C0181:
	MOV  	A,keyc
	XRL  	A,#01BH
	JZ   	?C0170
?C0180:
	INC  	i?567
	MOV  	A,i?567
	CLR  	C
	SUBB 	A,#01BH
	JC   	?C0178
?C0173:
	CLR  	A
	ADD  	A,ii?566+03H
	MOV  	ii?566+03H,A
	MOV  	A,ii?566+02H
	ADDC 	A,#01H
	MOV  	ii?566+02H,A
	CLR  	A
	ADDC 	A,ii?566+01H
	MOV  	ii?566+01H,A
	CLR  	A
	ADDC 	A,ii?566
	MOV  	ii?566,A
	LJMP 	?C0171
?C0170:
	RET  	


	RSEG  ?PR?InvVolCHK?MAG
InvVolCHK:
	USING	0

	MOV  	R7,#025H
	MOV  	R2,#HIGH (inv_tmp_vol1)
	MOV  	R1,#LOW (inv_tmp_vol1)
	LCALL	L?0301
	LCALL	cls
	MOV  	R2,#HIGH (?SC_183)
	MOV  	R1,#LOW (?SC_183)
	LCALL	L?0290
	MOV  	R2,#HIGH (?SC_205)
	MOV  	R1,#LOW (?SC_205)
	MOV  	R5,#0BCH
	LCALL	_DisHzLinYm
;	1.打印发票卷电子存根,Col2
	MOV  	R3,#0FFH
	MOV  	R2,#HIGH (?SC_223)
	MOV  	R1,#LOW (?SC_223)
	MOV  	R5,#0BEH
	LCALL	_DisHzLinYm
;	2.显示发票卷内容,Col3
	LCALL	GetKey
	MOV  	i?670,keyc
;	3.显示打印发票卷累计内容,Col4
	CLR  	A
	MOV  	DPTR,#F_rs232
	MOVX 	@DPTR,A
	MOV  	R7,#04H
	LCALL	_fiscal_check_getadr
	MOV  	A,R7
	JZ   	$ + 5H
	LJMP 	?C0184
?C0183:
	LCALL	cls
	LCALL	L?0306
	MOV  	R5,#0BAH
	LCALL	_DisHzLinYm
	LCALL	L?0231
	MOV  	ii?669+03H,A
	MOV  	ii?669+02H,R6
	MOV  	ii?669+01H,R5
	MOV  	ii?669,R4
?C0185:
	MOV  	DPTR,#fiscal_ck_index+04H
	LCALL	L?0232
	SETB 	C
	LCALL	L?0273
	JC   	$ + 5H
	LJMP 	?C0184

	MOV  	R7,ii?669+03H
	MOV  	R6,ii?669+02H
	MOV  	R5,ii?669+01H
	MOV  	R4,ii?669
	LCALL	_rd_buf
	MOV  	R0,#LOW (inv_tmp_vol)
	MOV  	R4,#HIGH (inv_tmp_vol)
	MOV  	R7,#026H
	LCALL	L?0248
	MOV  	DPTR,#flash_temp
	MOVX 	A,@DPTR
	CJNE 	A,#0FFH,?C0188
	MOV  	A,ii?669+03H
	MOV  	R3,A
	MOV  	A,ii?669+02H
	MOV  	R2,A
	CLR  	A
	ADD  	A,ii?669+03H
	MOV  	R7,A
	CLR  	A
	ADDC 	A,ii?669+02H
	MOV  	R6,A
	MOV  	A,ii?669+01H
	ADDC 	A,#01H
	MOV  	R5,A
	CLR  	A
	ADDC 	A,ii?669
	MOV  	R4,A
	CLR  	C
	MOV  	A,R7
	SUBB 	A,R3
	MOV  	ii?669+03H,A
	MOV  	A,R6
	SUBB 	A,R2
	MOV  	ii?669+02H,A
	MOV  	A,R5
	SUBB 	A,#00H
	MOV  	ii?669+01H,A
	MOV  	A,R4
	SUBB 	A,#00H
	MOV  	ii?669,A
	LJMP 	?C0187
?C0188:
	MOV  	A,i?670
	CJNE 	A,#01H,?C0190
	LCALL	SingleInvoiceTotal
	MOV  	R0,#LOW (prn_page_buf+024AH)
	MOV  	R4,#HIGH (prn_page_buf+024AH)
	LCALL	L?0235
	MOV  	R7,#014H
	LCALL	_Prn_Paper1
	LCALL	FfLine
	LCALL	FfLine
?C0190:
	MOV  	A,i?670
	XRL  	A,#02H
	JNZ  	?C0191
	LCALL	SingleInvoiceTotal
	MOV  	R0,#LOW (prn_page_buf+024AH)
	MOV  	R4,#HIGH (prn_page_buf+024AH)
	LCALL	L?0235
	LCALL	cls
	MOV  	k?671,#01H
?C0192:
	MOV  	A,k?671
	LCALL	L?0250
	MOV  	A,k?671
	LCALL	L?0282
	LCALL	_DisHzLinYm
	MOV  	A,k?671
	ANL  	A,#03H
	JNZ  	?C0195
	LCALL	GetKey
?C0195:
	MOV  	A,keyc
	XRL  	A,#01BH
	JNZ  	$ + 5H
	LJMP 	?C0184
?C0194:
	INC  	k?671
	MOV  	A,k?671
	CLR  	C
	SUBB 	A,#014H
	JC   	?C0192
?C0191:
	MOV  	A,i?670
	XRL  	A,#03H
	JZ   	$ + 5H
	LJMP 	?C0187
	LCALL	L?0231
	LCALL	L?0272
	JNZ  	?C0198
	MOV  	R0,#LOW (inv_tmp_vol1+01DH)
	MOV  	R4,#HIGH (inv_tmp_vol1+01DH)
	MOV  	R2,#HIGH (inv_tmp_vol+01DH)
	MOV  	R1,#LOW (inv_tmp_vol+01DH)
	LCALL	L?0286
?C0198:
	MOV  	DPTR,#inv_tmp_vol+012H
	MOVX 	A,@DPTR
	MOV  	R7,A
	MOV  	DPTR,#inv_tmp_vol1+012H
	MOVX 	A,@DPTR
	ADD  	A,R7
	MOVX 	@DPTR,A
	MOV  	DPTR,#inv_tmp_vol1+015H
	LCALL	L?0232
	MOV  	R7,A
	MOV  	DPTR,#inv_tmp_vol+015H
	LCALL	L?0239
	MOV  	DPTR,#inv_tmp_vol1+015H
	LCALL	?C?LSTXDATA
	MOV  	DPTR,#inv_tmp_vol+014H
	MOVX 	A,@DPTR
	MOV  	R7,A
	MOV  	DPTR,#inv_tmp_vol1+014H
	MOVX 	A,@DPTR
	ADD  	A,R7
	MOVX 	@DPTR,A
	MOV  	DPTR,#inv_tmp_vol+013H
	MOVX 	A,@DPTR
	MOV  	R7,A
	MOV  	DPTR,#inv_tmp_vol1+013H
	MOVX 	A,@DPTR
	ADD  	A,R7
	MOVX 	@DPTR,A
	MOV  	DPTR,#inv_tmp_vol1+019H
	LCALL	L?0232
	MOV  	R7,A
	MOV  	DPTR,#inv_tmp_vol+019H
	LCALL	L?0239
	MOV  	DPTR,#inv_tmp_vol1+019H
	LCALL	?C?LSTXDATA
	MOV  	DPTR,#fiscal_ck_index+04H
	LCALL	L?0232
	LCALL	L?0272
	JZ   	$ + 5H
	LJMP 	?C0187
	MOV  	R0,#LOW (inv_tmp_vol1+021H)
	MOV  	R4,#HIGH (inv_tmp_vol1+021H)
	MOV  	R2,#HIGH (inv_tmp_vol+021H)
	MOV  	R1,#LOW (inv_tmp_vol+021H)
	LCALL	L?0286
	MOV  	R0,#LOW (inv_tmp_vol)
	MOV  	R4,#HIGH (inv_tmp_vol)
	MOV  	R3,#01H
	MOV  	R2,#HIGH (inv_tmp_vol1)
	MOV  	R1,#LOW (inv_tmp_vol1)
	MOV  	R7,#025H
	LCALL	L?0269
	LCALL	SingleInvoiceTotal
	MOV  	DPTR,#prn_page_buf+02AH
	MOV  	A,#020H
	MOVX 	@DPTR,A
	INC  	DPTR
	MOVX 	@DPTR,A
	INC  	DPTR
	MOVX 	@DPTR,A
	INC  	DPTR
	MOVX 	@DPTR,A
	MOV  	R0,#LOW (prn_page_buf+0120H)
	MOV  	R4,#HIGH (prn_page_buf+0120H)
	MOV  	R2,#HIGH (prn_page_buf+018CH)
	MOV  	R1,#LOW (prn_page_buf+018CH)
	LCALL	L?0251
	MOV  	R0,#LOW (prn_page_buf+018CH)
	MOV  	R4,#HIGH (prn_page_buf+018CH)
	MOV  	R5,#01H
	MOV  	R3,#01H
	MOV  	R2,#HIGH (prn_page_buf+01F8H)
	MOV  	R1,#LOW (prn_page_buf+01F8H)
	LCALL	L?0252
	MOV  	R7,#06CH
	MOV  	R2,#HIGH (prn_page_buf+01D4H)
	MOV  	R1,#LOW (prn_page_buf+01D4H)
	LCALL	L?0260
	LCALL	L?0234
	LCALL	cls
	MOV  	R2,#HIGH (?SC_249)
	MOV  	R1,#LOW (?SC_249)
	LCALL	L?0290
	MOV  	R2,#HIGH (?SC_275)
	MOV  	R1,#LOW (?SC_275)
	MOV  	R5,#0BCH
	LCALL	_DisHzLinYm
;       1.打印发票卷累计电子存根,Col2
	LCALL	GetKey
;       2.显示发票卷累计内容,Col3
	MOV  	A,keyc
	XRL  	A,#02H
	JNZ  	?C0200
	LCALL	cls
	MOV  	k?671,#01H
?C0201:
	MOV  	A,k?671
	LCALL	L?0250
	MOV  	A,k?671
	ANL  	A,#03H
	MOV  	R7,A
	ADD  	A,#0B8H
	ADD  	A,R7
	MOV  	R5,A
	LCALL	_DisHzLinYm
	MOV  	A,k?671
	ANL  	A,#03H
	JNZ  	?C0203
	LCALL	GetKey
?C0203:
	INC  	k?671
	MOV  	A,k?671
	CLR  	C
	SUBB 	A,#016H
	JC   	?C0201
	SJMP 	?C0187
?C0200:
	MOV  	R7,#016H
	LCALL	_Prn_Paper1
?C0187:
	CLR  	A
	ADD  	A,ii?669+03H
	MOV  	ii?669+03H,A
	MOV  	A,ii?669+02H
	ADDC 	A,#01H
	MOV  	ii?669+02H,A
	CLR  	A
	ADDC 	A,ii?669+01H
	MOV  	ii?669+01H,A
	CLR  	A
	ADDC 	A,ii?669
	MOV  	ii?669,A
	LJMP 	?C0185
?C0184:
	RET  	
L?0290:
	MOV  	R3,#0FFH
	MOV  	R5,#0BAH
	LCALL	_DisHzLinYm
	MOV  	R3,#0FFH
	RET  	


	RSEG  ?PR?_InvoiceDisCHKandPrn?MAG
_InvoiceDisCHKandPrn:
	USING	0
	MOV  	mode?772,R7
	LCALL	cls
	MOV  	R3,#0FFH
	MOV  	R2,#HIGH (?SC_297)
	MOV  	R1,#LOW (?SC_297)
	MOV  	R5,#0BAH
	LCALL	_DisHzLinYm
	MOV  	R3,#0FFH
	MOV  	R2,#HIGH (?SC_317)
	MOV  	R1,#LOW (?SC_317)
	MOV  	R5,#0BCH
	LCALL	_DisHzLinYm
;	1.打印发票电子存根,Col2
	LCALL	GetKey
;	2.显示发票内容,Col3
	MOV  	n?775,keyc
	LCALL	cls
	CLR  	A
	MOV  	DPTR,#F_rs232
	MOVX 	@DPTR,A
	MOV  	A,mode?772
	CJNE 	A,#01H,?C0206
	MOV  	R7,#05H
	LCALL	_fiscal_check_getadr
	MOV  	A,R7
	JZ   	?C0209
	RET  	
?C0206:
	MOV  	R7,#06H
	LCALL	_fiscal_check_getadr
	MOV  	A,R7
	JZ   	$ + 5H
	LJMP 	?C0208
?C0209:
	LCALL	cls
	LCALL	L?0307
	MOV  	R5,#0BAH
	LCALL	_DisHzLinYm
	LCALL	L?0231
	MOV  	ii?773+03H,A
	MOV  	ii?773+02H,R6
	MOV  	ii?773+01H,R5
	MOV  	ii?773,R4
?C0211:
	MOV  	DPTR,#fiscal_ck_index+04H
	LCALL	L?0232
	MOV  	R7,A
	MOV  	R3,ii?773+03H
	MOV  	R2,ii?773+02H
	MOV  	R1,ii?773+01H
	MOV  	R0,ii?773
	SETB 	C
	LCALL	?C?ULCMP
	JC   	$ + 5H
	LJMP 	?C0208
	MOV  	R7,ii?773+03H
	MOV  	R6,ii?773+02H
	MOV  	R5,ii?773+01H
	MOV  	R4,ii?773
	LCALL	_rd_buf
	MOV  	R0,#LOW (inv_prn_tmp_info)
	MOV  	R4,#HIGH (inv_prn_tmp_info)
	MOV  	R5,#01H
	MOV  	R3,#01H
	MOV  	R2,#HIGH (flash_temp)
	MOV  	R1,#LOW (flash_temp)
	MOV  	R6,#01H
	MOV  	R7,#0FH
	LCALL	?C?COPY
	MOV  	DPTR,#flash_temp
	MOVX 	A,@DPTR
	CJNE 	A,#0FFH,?C0214
	MOV  	A,ii?773+03H
	MOV  	R3,A
	MOV  	A,ii?773+02H
	MOV  	R2,A
	CLR  	A
	ADD  	A,ii?773+03H
	MOV  	R7,A
	CLR  	A
	ADDC 	A,ii?773+02H
	MOV  	R6,A
	MOV  	A,ii?773+01H
	ADDC 	A,#01H
	MOV  	R5,A
	CLR  	A
	ADDC 	A,ii?773
	MOV  	R4,A
	CLR  	C
	MOV  	A,R7
	SUBB 	A,R3
	MOV  	ii?773+03H,A
	MOV  	A,R6
	SUBB 	A,R2
	MOV  	ii?773+02H,A
	MOV  	A,R5
	SUBB 	A,#00H
	MOV  	ii?773+01H,A
	MOV  	A,R4
	SUBB 	A,#00H
	MOV  	ii?773,A
	CLR  	A
	MOVX 	@DPTR,A
	SJMP 	?C0213
?C0214:
	LCALL	ElectrBackup
	MOV  	A,n?775
	CJNE 	A,#01H,?C0216
	MOV  	R7,#022H
	LCALL	_Prn_Paper1
?C0216:
	MOV  	A,n?775
	XRL  	A,#02H
	JNZ  	?C0213
	LCALL	cls
	MOV  	i?774,#04H
?C0218:
	MOV  	A,i?774
	LCALL	L?0250
	MOV  	A,i?774
	ANL  	A,#03H
	MOV  	R7,A
	ADD  	A,#0B8H
	ADD  	A,R7
	MOV  	R5,A
	LCALL	_DisHzLinYm
	MOV  	A,i?774
	ANL  	A,#03H
	JNZ  	?C0221
	LCALL	GetKey
?C0221:
	MOV  	A,keyc
	XRL  	A,#01BH
	JZ   	?C0208
?C0220:
	INC  	i?774
	MOV  	A,i?774
	CLR  	C
	SUBB 	A,#01BH
	JC   	?C0218
?C0213:
	CLR  	A
	ADD  	A,ii?773+03H
	MOV  	ii?773+03H,A
	MOV  	A,ii?773+02H
	ADDC 	A,#01H
	MOV  	ii?773+02H,A
	CLR  	A
	ADDC 	A,ii?773+01H
	MOV  	ii?773+01H,A
	CLR  	A
	ADDC 	A,ii?773
	MOV  	ii?773,A
	LJMP 	?C0211
?C0208:
	RET  	


	END