main.asm

calculator code ,use toshibaor nec LSI

S_SHD		equ	0x04	
S_SHP		equ	0x05		;' #'
S_TL		equ	0x06		;' T'
S_TLGT		equ	0x07		;TL G+
S_STAPL		equ	0x07
S_ST		equ	0x08		;' S'
S_MUL		equ	0x09		;' X'
S_DIV		equ	0x0a		;' '+waru
S_EQU		equ	0x0b		;' ='
S_AST		equ	0x0c		;' *'
S_AVR		equ	0x0c		;' *'
S_CLR		equ	0x0d		;'c '
S_MTL		equ	0x0e		;'MT'
S_MST		equ	0x0f		;'MS'
S_MPL		equ	0x10		;'M+'
S_MMI		equ	0x11		;'M-'
S_M2TL		equ	0x12		;'MIIT'
S_M2ST		equ	0x13		;'MIIS'
S_M2PL		equ	0x14		;'MII+'
S_M2MI		equ	0x15		;'MII-'
S_PER_K		equ	0x16		;' %'  for function key(in box)
S_PRDS		equ	0x17		;'-%'
S_PRAD		equ	0x18		;'+%'
S_DLTA_K	equ	0x19		;delta+' ' for function key(in box)
S_PRDL		equ	0x1a		;delta+'%'
S_DLAS		equ	0x1b		;delta+'*'
S_PRMU		equ	0x1c		;' %'
S_MKUP		equ	0x1d		;'MU'
;S_RVS		equ	0x1e		;' '+up/down allow
S_EUAS		equ	0x1e		;'Euro *'	V3.14

S_MTH		equ	0x1f		;M	V3.13
S_ROOT		equ	0x20		;'R '
S_TAX		equ	0x21		;'TX%'
;S_PRN		equ	0x22		;' S'
S_PAY		equ	0x22		;P	V3.13
S_EUR		equ	0x23		;'K '(fcR)
;S_EUM		equ	0x24		;'K-'
S_EUROS		equ	0x24		;'Euro'
S_EUEQ		equ	0x25		;'Euro ='
S_COST		equ	0x26		;'C '
S_SELL		equ	0x27		;' S'
S_MARG		equ	0x28		;'M%'
S_TAXA		equ	0x29		;' T'
S_ICG		equ	0x2a		;'G '
S_G		equ	0x2a
S_ICM		equ	0x2b		;' M '
S_M		equ	0x2b
;V4.02S_LCL		equ	0x2c		;home+waru	1450TE V1.01
;V4.02S_LCAS		equ	0x2d		;home+*		1450TE V1.01
;V4.02S_FC		equ	0x2e		;euro+ x	1450TE V1.01
;V4.02S_FCAS		equ	0x2f		;euro+*		1450TE V1.01
S_DLTA		equ	0x2c;V4.020x30		;delta+' '
S_PER		equ	0x2d;V4.020x31		;delta+' '
;S_EQU_A	equ	;0x32		;
S_CPAY		equ	0x2e;V4.020x32		;P*	V3.13
S_TXPL		equ	0x2f;V4.020x33		;TX+
S_TXMI		equ	0x30;V4.020x34		;TX-
S_TLMGT		equ	0x31;V4.020x35		;TL M+
S_TX1PL		equ	0x32;V4.020x36		;TX1+
S_TX1MI		equ	0x33;V4.020x37		;TX1-
S_TX2PL		equ	0x34;V4.020x38		;TX2+
S_TX2MI		equ	0x35;V4.020x39		;TX2-
S_TAX1		equ	0x36;V4.020x3a		;T1%
S_TAX2		equ	0x37;V4.020x3b		;T2%
;V4.02S_GPM		equ	0x3c		;GPM(MU)
;V4.02S_GS		equ	0x3d
;V4.02S_GT		equ	0x3d		;GT
;V4.02S_GPL		equ	0x3e		;G+  for sigama=% when TA mode	V2.11


S_STAMN		equ	0x55
S_STAS		equ	0x56
S_STASTA	equ	0x57


;V3.00S_GS		equ	0x0f		;G dia	GT subtotal
;V3.00S_GT		equ	0x10		;G *	GT total
;V3.00S_PRM		equ	0x11		;- %	percent minus
;V3.00S_PRP		equ	0x12		;+ %	percent plus
;V3.00S_DLP		equ	0x13		;d +	delta plus(for tax+)
;V3.00S_DLM		equ	0x14		;d -	delta plus(for tax-)
;V3.00S_AM		equ	0x15		;A M	time print
;V3.00S_PM		equ	0x16		;P M	time print
;V3.00S_CST		equ	0xb7;0x17		;C *	cost price
;V3.00S_SEL		equ	0x26;0x18		;S *	selling price
;V3.00S_MAR		equ	0xa1;0x19		;M %	margine %
;V3.00S_MU		equ	0xa2;0x1a		;M _	mark up
;V3.00S_MUD		equ	0x57;0x1b		;d *	delta of mark up
;V3.00S_SET		equ	0x27;0x1d		;_ *	for rate,time set(* only)
;V3.00S_SHD		equ	0x22;0x1c		;_ _	for #/D print(space)
;V3.00S_TLG		equ	0x93;0x0a		;G +	total key with GT position
;==============================================================================
;V3.00S_FED		equ	0x00		;fh+' '
;V3.00S_PWR		equ	0x17		;'C*'
;V3.00S_PLS		equ	0x01		;' +'
;V3.00S_MIN		equ	0x02		;' -'
;V3.00S_SPC		equ	0x00		;'  '
;V3.00S_SHP		equ	0x26		;' <>'
;V3.00S_TL		equ	0x22		;' *'
;V3.00S_TLGT		equ	0x3c		;'*+'
;V3.00S_TLMGT		equ	0x3d		;'*+'
;V3.00S_ST		equ	0x08		;' <>'
;V3.00S_MUL		equ	0x03		;' X'
;V3.00S_DIV		equ	0x04		;' /'
;V3.00S_EQU		equ	0x05		;' ='
;V3.00S_AST		equ	0x22		;' *'
;V3.00S_CLR		equ	0x07		;'c '
;V3.00S_MTL		equ	0x0e		;'M*'
;V3.00S_MST		equ	0x0d		;'M<>'
;V3.00S_MPL		equ	0x0b		;'M+'
;V3.00S_MMI		equ	0x0c		;'M-'
;V3.00S_M2TL		equ	0x10		;'G*'
;V3.00S_STASTA	equ	0x77	;'**' 
;V3.00S_M2ST		equ	0x0f		;'G<>'
;V3.00S_STAS		equ	0x76	;'*S'
;V3.00S_M2PL		equ	0x3e		;'G+'
;V3.00S_STAPL		equ	0x73	;'*+' 
;V3.00S_PLSTA		equ	0x37	;'+*'
;V3.00S_M2MI		equ	0x3f		;'G-'
;V3.00S_STAMN		equ	0x70	;'*-' 
;V3.00S_M2TLV		equ	0x97		;'G*'
;V3.00S_M2STV		equ	0x96		;'G<>'
;V3.00S_M2PLV		equ	0x3e		;'G+'
;V3.00S_M2MIV		equ	0x3f		;'G-'
;V3.00S_PER		equ	0x06		;' %'
;V3.00S_STAPER	equ	0x71		;'*%'
;V3.00S_PRDS		equ	0x01		;'-%'
;V3.00S_PRAD		equ	0x31		;'+%'
;V3.00S_DLTAL		equ	0x82		;delta+' '
;V3.00S_DLTA		equ	0x28		;' "+delta V1.26
;V3.00S_PRDL		equ	0x81		;delta+'%'
;V3.00S_DLAS		equ	0x87		;delta+'*'
;V3.00S_PRMU		equ	0x21		;' %'
;V3.00S_MKUP		equ	0xa2		;'M '
;V3.00S_RVS		equ	0x22		;'  '
;V3.00S_AVR		equ	0x27		;' *'
;V3.00S_ROOT		equ	0x22		;'  '
;V3.00S_TAX		equ	0x12		;'% '
;V3.00S_PRN		equ	0x62		;'<> '
;V3.00S_EUR		equ	0x22		;'  '
;V3.00S_EUEQ		equ	0xc2		;'= '
;V3.00S_COST		equ	0x2b		;' C'
;V3.00S_SELL		equ	0x26		;' <>'
;V3.00S_M		equ	0x2a		;' M'
;V3.00S_MARG		equ	0xa1		;'M%'
;V3.00S_PERMARG	equ	0x1a		;'%M'
;V3.00S_TAXA		equ	0x27		;' *'
;V3.00S_ICG		equ	0x29		;' G'
;V3.00S_ICGV		equ	0x29		;' G'
;V3.00S_ICM		equ	0x2a		;' M'
;V3.00S_ASM		equ	0x7a		;'*M'
;V3.00S_ASC		equ	0x7b		;'*C'
;V3.00S_ASDL		equ	0x78		;'*'+delta
;V3.00S_MIPL		equ	0x03		;'-+'	
;V3.00S_MIMI		equ	0x00		;'--'
;V3.00S_MIST		equ	0x06		;'-S'
;V3.00S_MITL		equ	0x07		;'-T'
;V3.00S_EUROS		equ	0x29		;' euro'
;V3.00S_G		equ	0x9f		;'G '
;V3.00S_GPL		equ	0x93		;'G+'
;V3.00S_GAST		equ	0x97		;'G*'
;==============================================================================
P_SPC	equ	0x20	;for print " "
;-----------------------------------------------------------
;interrupt enable flag set:

EF4		equ	4;(EIRL).4 /INT0
EF5		equ	5;(EIRL).5 INTTC1
EF6		equ	6;(EIRL).6 INT1
EF7		equ	7;(EIRL).7 INTTBT
EF8		equ	0;(EIRH).0 INTTC3
EF9		equ	1;(EIRH).1 INTSIO(High speed SIO interrupt)
EF10		equ	2;(EIRH).2 INTTC4
EF11		equ	3;(EIRH).3 INT3
EF12		equ	4;(EIRH).4 INT4
EF13		equ	5;(EIRH).5 INTTC2
EF14		equ	6;(EIRH).6 /INT5
EF15		equ	7;(EIRH).7 INTADC or INT2
;interrupt request flag set:
IL2		equ	2;(ILL).2 INTSWI 
IL3		equ	3;(ILL).3 INTATRAP
IL4		equ	4;(ILL).4 /INT0
IL5		equ	5;(ILL).5 INTTC1
IL6		equ	6;(ILL).6 INT1
IL7		equ	7;(ILL).7 INTTB
IL8		equ	0;(ILH).0 INTTC3
IL9		equ	1;(ILH).1 INTSIO
IL10		equ	2;(ILH).2 INTTC4
IL11		equ	3;(ILH).3 INT3
IL12		equ	4;(ILH).4 INT4
IL13		equ	5;(ILH).5 INTTC2
IL14		equ	6;(ILH).6 /INT5
IL15		equ	7;(ILH).7 INTADC or /INT2
;	DBR_LCD_RATE		equ	(0x0f33<<4)+5	;LCD DBR matrix point for "RATE"
;	DBR_LCD1235_RATE	equ	(0x0f33<<4)+3	;LCD DBR matrix point for "RATE"
;	DBR_LCD1297_RATE	equ	(0x0f33<<4)+4	;LCD DBR matrix point for "RATE"
;	DBR_LCD120_RATE		equ	(0x0f33<<4)+4	;LCD DBR matrix point for "RATE"
;	DBR_LCD1297_GT		equ	(0x0f32<<4)+2	;LCD DBR matrix point for "GT"
;	;LCD_PRN		equ	(0x0f31<<4)+3	;LCD DBR matrix point for "PRINT"
;	;LCD_FIN		equ	(0x0f30<<4)+3	;LCD DEB matrix point for "FIN"

AUTOOFFTIME	equ	31250;1500
	$list

	public	start,function_end,tenkey_end,no_operation,init_io,resume,shp_sgn_end
	public	sys_error,resume,function_end9,function_end_0,functionnoclearftenkey,ic_display
	extern	euro_country_set
	extern	key_get,init_keybuf,acc_total,enter_stop,ce_key ;check_slftst,init_rtc
	extern	tenkey,dp_key,gt_key,cec_key,acc_plus,acc_minus,acc_subtl
	extern	acc_total,sharp_subtl,equal_key,percent_key,perplus_key,multi_key,divide_key
	extern	markup_key,delta_percent,sign_change,back_space,sharp_date
	extern	mem_minus,mem_plus,mem_subtl,mem_total,mem2_minus,mem2_plus,mem2_subtl,mem2_total
	extern	cost_key,sell_key,margin_key 
	extern	tax_plus,tax_minus,tax2_plus,tax2_minus
	extern	lcd_disable,lcd_enable,tax_save,tax_recall,all_clear,work_clear,work_clear_acc,kychk_clcsm;v3.00 rtc_key,
	extern	spc_disp,update_md,wk_prn_2L
	extern	euro_key,local_key,rate_key 
	extern	init_rate_dispaly,keychk_amortize;,what_print_head
	extern	square_root,item_key,mdsw_update,initial_mdsw_update,fix_euro_to_ten,check_slftst
	extern	keep_ten_6dig
ROM	section	code abs=0xa000

MD_TIM	equ	20	;this already defined in key scan sub

;===============================================================================
;		Initialize
;===============================================================================
start:						;reset or turn on power switch
		ld	sp,RAM_BOT		;stack pointer initial
		ld	(WDTCR2),0x4e		;WDT counter reset
		ld	(WDTCR1),0y00110000	;WDT disable
		ld	(WDTCR2),0xb1		;WDT disable code
		ldw	(SYSCR1),0y1000000000000000
;				   ||
;                                  ||__turn off sub clock
;                                  |__turn on main clock 8MHz
		call	init_io			;IO initialize
;RAM clear...............................................
		ld	hl,RAM_TOP		;\
		ld	a,0			;|
ram_clr0:					;|
		ld	(hl),a			;|
		inc	hl			;|
		cmp	hl,RAM_BOT		;/
		j	le,ram_clr0		;

;V3.00		ld	(YEAR),0x05	;\
;V3.00		ld	(MON),0x01	;|
;V3.00		ld	(DAY),0x01	;|;initialize Time base timer for RTC
		j	init_hw_wk	
resume:
;RAM clear except RTC,TAX rate ..........................
		ld	hl,RAM_TOP	;\
		ld	a,0		;|
ram_clr1:				;|clear RAM from RAM_TOP-->WO_CLR
		ld	(hl),a		;|
ram_clr2:
		inc	hl		;|
		cmp	hl,MDSW		; mdsw-->dp_pos no clear
		j	lt,ram_clr3	;
		cmp	hl,DP_POS	;
		j	le,ram_clr2	;
ram_clr3:				;
		cmp	hl,W1_CLR	;/
		j	lt,ram_clr1			;
;-------------------------------------------------------------
		and	(FLG_ICON),0y00101100		;just keep ICOM_M and ICOM_GT and F_ICPM flag only 
		call	gt_clear		;V1.30
	ld	wa,ICON_GT
	clr	(ICON_GT>>4).a
		call	mem1_clear	;V1.39d
	ld	wa,ICON_M
	clr	(ICON_M>>4).a
init_hw_wk:
;V3.00		ld	(T_Y20),0x20	;V1.32
	ld	wa,F_DOFF
	set	(F_DOFF>>4).a
pwr_wait:
	ld	wa,IO_PF
	test	(IO_PF>>4).a		;bit -reverse-> jump status
	j	f,pwr_wait		;if jump status is 0 -> branch
		nop			;V2.06 mode switch will be initialed in subroutine "initial_mdsw_update"
		nop			;V2.06 
		nop
	ld	wa,IO_PF
	test	(IO_PF>>4).a		;bit -reverse-> jump status
	j	f,pwr_wait		;if jump status is 0 -> branch
		call	all_clear		;h/w initialize, work area clear, interrupt enable
		call	model_select		;select printer model, logic model
;---------------------------------------------------------------
;V3.00		@BBS	(RTC_INIT,pwr_wait_z)	;V1.46
;V3.00		call	init_rtc		;V1.45
pwr_wait_z:					;V1.45
;---------------------------------------------------------------
		di
		call	initial_mdsw_update	;V1.30;V1.27
		ei
		ld	(MDCHK),0			;V1.20
		call	mdsw_update			;V1.20
;V4.13		@BBS	(SW_OFF_RT,init_hw_wk9)		;if OFF?  yes -> no initial print
	ld	wa,SW_NP_RT
	test	(SW_NP_RT>>4).a		;bit -reverse-> jump status
	j	f,pwr_wait_1		;if jump status is 0 -> branch
;V3.00		@BBC	(F_WAKE,pwr_wait_0)	;V1.17
;V3.00		call	feed_1
	ld	wa,F_INIREQ
	set	(F_INIREQ>>4).a
	ld	wa,M_5514T
	test	(M_5514T>>4).a		;bit -reverse-> jump status
	j	f,pwr_wait_0		;if jump status is 0 -> branch
	ld	wa,F_INIREQ
	clr	(F_INIREQ>>4).a
		call	prn_init	;V3.00
pwr_wait_0:					;V1.17
	ld	wa,P_ERR
	test	(P_ERR>>4).a		;bit -reverse-> jump status
	j	t,pwr_wait_1		;if jump status is 1 -> branch
		call	prn_init			;printer initialize
pwr_wait_1:
;//test		call	check_slftst
		call	rate_init_check	
	ld	wa,RATE_INI
	test	(RATE_INI>>4).a		;bit -reverse-> jump status
	j	f,pwr_wait_2		;if jump status is 0 -> branch
	ld	wa,SW_NP_RT
	test	(SW_NP_RT>>4).a		;bit -reverse-> jump status
	j	f,init_hw_wk9		;if jump status is 0 -> branch
		ld	(PRE_KEY),K_CEC		;
	ld	wa,M_5514T
	test	(M_5514T>>4).a		;bit -reverse-> jump status
	j	f,init_hw_wk9		;if jump status is 0 -> branch
		call	wkup_print		;print 'C'

		call	feed_1
		jp	init_hw_wk9		;
pwr_wait_2:					;
		call	rate_init_flag_print	; out print to indicate all rate initialed
init_hw_wk9:
	ld	wa,IO_MT
	test	(IO_MT>>4).a		;bit -reverse-> jump status
	j	f,init_hw_wk9		;if jump status is 0 -> branch
		call	eeprom_check		;to check EEPROM initialed?
		j	cc,no_init_eeprom	;EEPROM initialed?
		call	ee_rate_init		;write check code into (EE_TEST)
no_init_eeprom:
		call	init_keybuf		;clear key counter,pointer
	ld	wa,RATE_INI
	test	(RATE_INI>>4).a		;bit -reverse-> jump status
	j	t,init_hw_wk90		;if jump status is 1 -> branch
		call	ee_rate_init		;yes, initial
	ld	wa,EP_FAIL
	test	(EP_FAIL>>4).a		;bit -reverse-> jump status
	j	f,init_hw_wk90		;if jump status is 0 -> branch
		call	init_rate_dispaly	;display "r-cc"
wait_key_in:				
		call	wait_50ms	
wait_key_in_1:				
		call	check_mdsw	;to check slide
		cmp	(KEY_CT),0	
		j	z,wait_key_in_1	
		call	all_clear	
		call	init_all_rate	
		j	feed_key_end	
init_hw_wk90:

		call	init_keybuf		;clear key counter,pointer
		call	init_all_rate		
;V4.13		@BBS	(SW_OFF_RT,main_loop)	;OFF position?  yes -> does not display for avoid display flash in OFF mode
		j	feed_key_end		;'0' display and go to main loop


;===============================================================================
;	Main routine(wait for key entry and jump to each function)
;===============================================================================
main_loop:
;V4.11		@BBS	(F_WAKE,enter_stop)	;jump to auto off function
		call	check_mdsw		;check OFF,NP,RATE key movement
		j	cs,function_end9
		ld	a,(KEY_CT)		;Any key in?
		j	z,main_loop		; no-> loop

;V4.04		ld	wa,AUTOOFFTIME		
;V4.04		ld	(AUTO_OFF_TIM),wa	
		call	update_md		;MDFLG update from MDFLG_RT
;V2.03main_loop_ignore_dp_update:		
;V4.11		@BBS	(F_OFF,no_operation)		;if OFF mode?  yes->ignore key entry
		call	key_get				;reg.a <- key code
		j	cc,no_operation			;illegal key code?  yes-> ignore
	ld	wa,P_ERR
	test	(P_ERR>>4).a		;bit -reverse-> jump status
	j	f,error_recov		;if jump status is 0 -> branch
		call	check_perexe_flag_clearornot
		cmp	(KEYIN),K_IC	
		j	eq,not_ic_key	
	ld	wa,IC_PROG
	test	(IC_PROG>>4).a		;bit -reverse-> jump status
	j	t,relate_to_icx		;if jump status is 1 -> branch
		cmp	(KEYIN),K_PLS		
		j	eq,relate_to_ic		
		cmp	(KEYIN),K_MIN		
		j	eq,relate_to_ic		
		cmp	(KEYIN),K_CEC		
		j	eq,relate_to_ic		
		cmp	(KEYIN),K_CE		
		j	eq,relate_to_ic		
	ld	wa,IC_PROG
	clr	(IC_PROG>>4).a

relate_to_ic:				
		ld	hl,TENKEY	
		call	edit_disp	
		call	disp_to_dbr	
relate_to_icx:
	ld	wa,F_ICPN
	clr	(F_ICPN>>4).a
;V4.13		@CLB	(F_ICDSP)