//
//*********************************************************
// 4200E to AHL - Handler
//*********************************************************
// load into modul3
#define print_fifo_old_data	// printout the deleted data if buffer is full
//
#include "gdcglob.txt"
//
#define debug_l1
#define debug_input
#define debug_output
//
//*********************************************************
// LOCAL
//*********************************************************
// Counters
#define cnt_ret 	2
//
//*********************************************************
// local parameter
//*********************************************************
// counter
// used counter 14
//	counter 15 from os
//
#define my_led_rt               led_rt_m3
#define my_led_gn               led_gn_m3
#define led_start_gn            "11110000111100001111000011110000"
#define led_start_rt            "11110000n"
//*********************************************************
//
	setbaud 1,9600,8,n,1
	setp	0x7f02,0x02
	mode_reco
//
// INIT
//
//        setl    11,2
	call	init_b0
	call	init_b1
	call	init_b2
	call	init_b3
	call	init_b4
	call	init_b5
        movd    led_start_gn,my_led_gn,0
        movd    led_start_rt,my_led_rt,0
//
	compd	"init ",s14,195
	jz	skip_init
//		 4	 5
//		 234567890123
	movd	"000000201100",s14,242
	call	dbs_tln_init
skip_init:
	movd	"init ",s14,195
	movd	"000 ",input_state
	movd	"000 ",old_state
	movd	"                    ",param_1
	movd	"                    >/n",param_2
//
	setrts	off
	sett	10
	wait	tf_sign
        movd    " 4200eAHL V3.2 (4200ah32.DW3) by J. Hoerhager AOCE/n",wstr_m37,0
	out	wstr_m37,0,c4
//
//*****************************************************
//
error_main:
	setp	0x7f02,0x02
	mode_reco
        movd    " 4200eAHL V3.2 Modul 3 Ready/n",wstr_m37,100
	out	wstr_m37,100,c4
//
// ********************************************************
//
main:
	sett	100
//
main_1:
//        setl    11,1
	setrts	on
	wait	ans_sign,tf_sign,im_sign
	case	ans_sign,test_im_sign
//
//*************************************
// message from modul 1 via buffer "input_b_m1"
//
//        setl    11,2
	readb	wstr_m3,0,input_b_m1
	jnz	process_ticket		// if buffer is empty wait
	readb	wstr_m3,0,input_b_ahl	// message from AHL
	jnz	process_ahl
	readb	wstr_m3,0,mess_b	// message to send
	jnz	mess_send
	jmp	main_1
//*************************************
// sending mess to channel
//
mess_send:
	wrs	wstr_m3,0,150
	movd	"/l/n",wstr_m3,0
	wrs	wstr_m3,0,10

	jmp	main_send_sig
//*************************************
// process message from AHL
//
process_ahl:
#ifdef debug_input
	out	wstr_m3,0,c4
#endif
	compd	"1",ahl_in_print
	jnz	ahl_in1
	movd	" RdB:    /n",print_str,0
	movs	wstr_m3,0,print_str,5,100
	writeb	print_str,0,mess_b
	sendsig ans_sign,c3
ahl_in1:
	compd	"I",wstr_m3,0
	jz	ahl_interogation
	compd	"A",wstr_m3,0
	jz	ahl_incheck
	compd	"M",wstr_m3,0
	jz	ahl_modifikation
	compd	"D",wstr_m3,0
	jz	ahl_outcheck
	movd	"R     INV  J/n",wstr_m37,0
	movs	wstr_m3,1,wstr_m37,1,5
	compd	"1",ahl_in_print
	jnz	ahl_in2
	movd	"WrB:    /n",print_str,0
	movs	wstr_m37,0,print_str,5,100
	writeb	print_str,0,mess_b
	sendsig ans_sign,c3
ahl_in2:
	writeb	wstr_m37,0,reply_b
	sendsig ans_sign,c2	//signal to AHL
	jmp	main_send_sig
//
process_ticket:
#ifdef debug_input
	out	wstr_m3,0,c4
#endif
	compd	"1",dhs2_out
	jnz	dhs_out1
	movd	"    /n",print_str,0
	movs	wstr_m3,0,print_str,0,160
	compd	"1",protokoll
	jnz	test_p2
	movs	print_str,123,print_str,106,16
	movd	"/n",print_str,122
	jmp	proto_end
test_p2:
proto_end:
	writeb	print_str,0,mess_b
	sendsig ans_sign,c3
dhs_out1:
//
	compd	"/n",wstr_m3,0          // only cr
	jz     main_send_sig
//
	jr	input_state
	jmp	state_0 	//common
	jmp	state_1 	//ticket
	jmp	state_2
	jmp	state_3
	jmp	state_4
	jmp	state_5
	jmp	state_6
	jmp	state_7
	jmp	state_8
	jmp	state_9
	jmp	state_10	// ticket line 1
	jmp	state_11	// ticket line 2
	jmp	state_12	// ticket line 3
	jmp	state_13	// ticket line 4
	jmp	state_14	// ticket line 5
	jmp	state_15	// ticket line 6
	jmp	state_16	// ticket line 7 ... 17 (checkin ticket)
	jmp	state_17	// Ticket line for telefonzelle
	jmp	state_18
	jmp	state_19
	jmp	state_20	// ticket line 7 ... 12 (checkout ticket)

//
state_0:
#ifdef debug_l1
	movd	" State_0_modul_3/n",wstr_m37,200
	out	wstr_m37,200,c4
#endif
	movd	"000 ",input_state
	compd	"-----",wstr_m3,0
	jz	head_line1
//
	compd	"^L/n",wstr_m3,0
	jz	main_send_sig
//
//***********************************************
// Release 3.1
//***********************************************
//
	compd	" ????? A???? -->",wstr_m3,0
	jz	smdr_r31_out
	compd	" ????? A???? |->",wstr_m3,0
	jz	smdr_r31_out
	compd	" ????? A???? CS?",wstr_m3,0
	jz	smdr_r31_out
//
	compd	" ????? A???? <--",wstr_m3,0
	jz	smdr_r31_in
	compd	" ????? A???? <-|",wstr_m3,0
	jz	smdr_r31_in
//
	compd	" ????? A????     ZI",wstr_m3,0
	jz	termin_r31
//
        compd   " ????? A????     RO",wstr_m3,0
	jz	termin_r31
//
        compd   " ????? A????     CH",wstr_m3,0
	jz	termin_r31
//
        compd   " ????? A????     CA",wstr_m3,0
	jz	termin_r31
//
	compd	" ????? A????    ",wstr_m3,0
	jz	room_r31_state
//
//*********************************************************
	jmp	main_send_sig
//
//*********************************************************
//
state_1:
state_2:
state_3:
state_4:
state_5:
state_6:
state_7:
state_8:
state_9:
state_18:
state_19:
	jmp	main_send_sig
//
//*********************************************************
// terminruf R31
//
termin_r31:
	call	r31terminruf
	jmp	main_send_sig
//
//*********************************************************
// Zimmerstatus
room_r31_state:
	call	t_zusatzkosten
	jz	smdr_r31_out
//
// Dataentry
//
	call	r31data_entry
	jmp	main_send_sig
//
//*********************************************************
// headline 1 test which headline
//
head_line1:
	compd	"---/n",wstr_m3,58
	jnz	main_send_sig
//
//*************************************
// first line or last line of a ticket
//
#ifdef debug_l1
	movd	" State_010_modul_3/n",wstr_m37,200
	out	wstr_m37,200,c4
#endif
	movd	"010 ",input_state      // next state line 2
	movd	"                                                                              /n",dhs2_save,0
	movd	"                                                                              /n",dhs2_save,70
main_send_sig:
	sendsig ans_sign,c3
	jmp	main
//*********************************************************
// state 10 ticketoutput
// line customer
//
state_10:
	compd	"  |/n",wstr_m3,58
	jnz	state_0
	movd	"011 ",input_state
	jmp	main_send_sig
//*************************************
// ticket line with date
//
state_11:
	compd	"  |/n",wstr_m3,58
	jnz	state_0
//
	movd	"012 ",input_state
        call    t_ti_save_time
//
	movd	"01",check_month
        call    t_ti_jan
        jz      main_send_sig
//
	movd	"02",check_month
        call    t_ti_feb
	jz	main_send_sig
//
	movd	"03",check_month
        call    t_ti_maerz
	jz	main_send_sig
//
	movd	"04",check_month
        call    t_ti_april
	jz	main_send_sig
//
	movd	"05",check_month
        call    t_ti_mai
	jz	main_send_sig
//
	movd	"06",check_month
        call    t_ti_juni
	jz	main_send_sig
//
	movd	"07",check_month
        call    t_ti_juli
	jz	main_send_sig
//
	movd	"08",check_month
        call    t_ti_august
	jz	main_send_sig
//
	movd	"09",check_month
        call    t_ti_september
	jz	main_send_sig
//
	movd	"10",check_month
        call    t_ti_oktober
	jz	main_send_sig
//
	movd	"11",check_month
        call    t_ti_november
	jz	main_send_sig
//
	movd	"12",check_month
        call    t_ti_dezember
	jz	main_send_sig
//
	jmp	main_send_sig
//*************************************
// ticket line empty line
//
state_12:
	compd	"  |/n",wstr_m3,58
	jnz	state_0
	movd	"013 ",input_state
	jmp	main_send_sig
//*************************************
// ticket line NAME
//
state_13:
	compd	"  |/n",wstr_m3,58
	jnz	state_0
        call    t_ti_name
	jnz	test_st_17		// test for Telefonzelle
//
	movs	ticket_parameter,check_name,l_name
//
	movd	"014 ",input_state
	jmp	main_send_sig
//
test_st_17:
        call    t_ti_cabin_set
	jnz	state_0
	movd	"017 ",input_state
	jmp	main_send_sig
//
state_17:
	compd	"---/n",wstr_m3,58
	jnz	main_send_sig
	movd	"000 ",input_state
	jmp	main_send_sig
//
//*************************************
// ticket line Zimmernummer
// save extension number
//
state_14:
	compd	"  |/n",wstr_m3,58
	jnz	state_0
        call    t_ti_room_number
	jnz	state_0
	//
	movs	ticket_parameter,check_ext,l_extension
	//
	movd	"015",input_state
	jmp	main_send_sig
//*************************************
// ticket line Sprache if checkin
//	    or Anzahl if checkout
//	    or Vorkasse if checkout
//	    or Leerzeile same state
//
state_15:
	compd	"  |/n",wstr_m3,58
	jnz	state_0
//
        call    t_ti_language
	jnz	test_checkout
	//
	movs	ticket_parameter,check_language,l_language
	//
	movd	"016",input_state
	jmp	main_send_sig
//
test_checkout:
        call    t_ti_deposit
	jnz	test_anzahl
// same state
	movs	ticket_parameter,check_vorkasse,l_vorkasse
	jmp	main_send_sig
//
test_anzahl:
        call    t_ti_calls              // "| Anzahl der Gespr„che"
	jnz	test_empty_line
	//
	movs	ticket_parameter,check_calls,l_calls
	//
	movd	"020 ",input_state
	jmp	main_send_sig
//*************************************
test_empty_line:
	compd	"| ?   ",wstr_m3,0
	jz     sk_e10_state
	compd	"! ?   ",wstr_m3,0
	jnz	state_0
sk_e10_state:
// same state
	jmp	main_send_sig
//
//*************************************
// ticket checkin for extension stored in extension number
// wait for ticket last line
//
state_16:
	compd	"---/n",wstr_m3,58
	jz	state_16skip
//
        call    t_ti_password
	jnz	st16_n1
	//
	movs	ticket_parameter,check_password,l_password
	//
	jmp	main_send_sig
st16_n1:
        call    t_ti_ddi_number
	jnz	st16_n2
	//
	movs	ticket_parameter,check_ddi,l_ddi
	//
	jmp	main_send_sig
st16_n2:
        call    t_ti_calls
	jnz	st16_n3
	//
	movs	ticket_parameter,check_calls,l_calls
	//
	jmp	main_send_sig
st16_n3:
        call    t_ti_dnd
	jnz	st16_n4
	//
	movs	ticket_parameter,check_dnd,l_dnd
	//
	jmp	main_send_sig
st16_n4:
        call    t_ti_message
	jnz	st16_n5
	//
	movs	ticket_parameter,check_mess,l_mess
	//
	jmp	main_send_sig
st16_n5:
        call    t_ti_deposit
	jnz	st16_n6
	//
	movs	ticket_parameter,check_vorkasse,l_vorkasse
	//
	jmp	main_send_sig
st16_n6:
        call    t_ti_costs
	jnz	st16_n7
	//
	movs	ticket_parameter,check_costs,l_costs
	//
	jmp	main_send_sig
st16_n7:
        call    t_ti_external_calls
	jnz	st16_n8
	//
	movs	ticket_parameter,check_amtsge,l_amtsge
	//
	jmp	main_send_sig
st16_n8:
	jmp	main_send_sig
state_16skip:
//
//***********************************************
//***********************************************
// CHECKIN TICKET
//***********************************************
//***********************************************
//
// search extension number in dbs
//
	movs	check_ext,param_1,5
	call	to_left
	movs	param_2,dbs_search_str,5
	call	find_ext
	jnz	else_inotfound
//
// extension found
	compd	"I",dbs_str,_ext_state
	jnz	else_iextstate
//
	call	send_m_mess
	jmp	eif_iextstate
//
else_iextstate:
	call	send_a_mess
	movd	"I",dbs_str,_ext_state
	acall	write_dbs
//
eif_iextstate:
//
	jmp	eif_onotfound
//
else_inotfound:
	call	find_free
	jnz	skip_idef
	movd	"     I /n",dbs_str,0
	movs	check_ext,param_1,5
	call	to_left
	movs	param_2,dbs_str,0,5
	acall	write_dbs
skip_idef:
	call	send_a_mess
//
eif_inotfound:
	movd	"000 ",input_state
	jmp	main_send_sig
//
//*********************************************************
//*********************************************************
// Checkout ticket
//
// open dbs 2 tln data
// save status checkout
// calulate cost_colsed and clear cost_open
// print smdr records
// unlink tln_top and link free_pool_last
// until all records are printed
//
state_20:
// first wait for end of ticket
//
	compd	"---/n",wstr_m3,58
	jz	state_20skip
        call    t_ti_total_costs
	jnz	st20_n1
	//
	movs	ticket_parameter,check_ges_cost,l_ges_cost
	jmp	main_send_sig
st20_n1:
        call    t_ti_debit
	jnz	st20_n2
	//
	movs	ticket_parameter,check_soll_cost,l_soll_cost
	jmp	main_send_sig
st20_n2:
        call    t_ti_credit
	jnz	st20_n3
	//
	movs	ticket_parameter,check_guth_cost,l_guth_cost
	jmp	main_send_sig
st20_n3:
	jmp	main_send_sig
state_20skip:
//
//***********************************************
//***********************************************
// CHECKOUT TICKET
//***********************************************
//***********************************************
//
// search extension number in dbs
//
	movs	check_ext,param_1,5
	call	to_left
	movs	param_2,dbs_search_str,5
	call	find_ext
	jnz	else_onotfound
//
// extension found
//   test substate
	compd	"T",dbs_str,_ext_flag
	jnz	else_osub_t
//
	call	send_t_mess
	movd	" ",dbs_str,_ext_flag
	acall	write_dbs
	jmp	eif_osub_t
//
else_osub_t:
	compd	"I",dbs_str,_ext_state
	jnz	else_oextstate
//
	call	send_t_mess
	call	send_d_mess
	movd	"O",dbs_str,_ext_state
	acall	write_dbs
	jmp	eif_oextstate
//
else_oextstate:
	call	send_t_mess
	call	send_d_mess
	movd	"O",dbs_str,_ext_state
	acall	write_dbs
//
eif_oextstate:
//
eif_osub_t:
//
	jmp	eif_onotfound
//
else_onotfound:
	call	find_free
	jnz	skip_odef
	movd	"     O /n",dbs_str,0
	movs	check_ext,param_1,5
	call	to_left
	movs	param_2,dbs_str,0,5
	acall	write_dbs
skip_odef:
	call	send_t_mess
	call	send_d_mess
//
eif_onotfound:
	movd	"000 ",input_state
	jmp	main_send_sig
//
//
//*********************************************************
send_t_mess:
	movd	"Tnnnnnccccsssssssssdddddddddbbbbbbbbb/n",wstr_m37,0
	movs	check_ext,param_1,5
	call	to_right
	movs	param_r5,wstr_m37,_tel_account_ext,5
	movs	check_calls,param_1,4
	call	to_right
	movs	param_r4,wstr_m37,_tel_account_ncomm,4
	movs	check_costs,param_1,9
	call	up_to_space
	movs	param_2,wstr_m37,_tel_account_cost,9
	movs	check_vorkasse,param_1,9
	call	up_to_space
	movs	param_2,wstr_m37,_tel_account_deposit,9
	compd	"0",check_soll_cost
	jnz	open_soll
	movs	check_guth_cost,param_1,9
	call	up_to_space
	movs	param_2,wstr_m37,_tel_account_balance,9
	jmp	send_buffer
//
open_soll:
	movs	check_soll_cost,param_1,9
	call	up_to_space
	movd	"-",wstr_m37,_tel_account_balance
	movs	param_2,wstr_m37,_tel_account_balance1,8
//
//***********************************************
//
send_buffer:
	buffst			//
	jnz	send_1_b
	movd	"Delete FIFO:  /n",print_str,0
	buffrd	print_str,13
#ifdef print_fifo_old_data
	compd	"1",print_fifo_old
	jnz	fifo_old1
	writeb	print_str,0,mess_b
	sendsig ans_sign,c3
fifo_old1:
	out	print_str,0,c4
#endif
	jmp	send_buffer	// test once more if datarecord is to short
send_1_b:
	compd	"1",ahl_out_print
	jnz	ahl_out1
	movd	"WrB:    /n",print_str,0
	movs	wstr_m37,0,print_str,5,100
	writeb	print_str,0,mess_b
	sendsig ans_sign,c3
ahl_out1:
//
	buffwr	wstr_m37,0
//	  buffst
	out	wstr_m37,0,c4
	ret
//
//*********************************************************
send_d_mess:
	movd	"Dnnnnn/n",wstr_m37,0
	movs	check_ext,param_1,5
	call	to_right
	movs	param_r5,wstr_m37,_tel_account_ext,5
	jmp	send_buffer
//
//*********************************************************
send_a_mess:
//		       M		     Vgru    do
	movd	"Annnnn nnnnnnnnnnnnnnnnnnnnl    pppp  dddddddddm     d/n",wstr_m37,0
	movs	check_ext,param_1,5
	call	to_right
	movs	param_r5,wstr_m37,_arrive_ext,5
	movs	check_name,wstr_m37,_arrive_name,20
//
	movd	"1",wstr_m37,_arrive_language
	compd	"Deu",check_language
	jz	lang_end
	movd	"2",wstr_m37,_arrive_language
	compd	"Eng",check_language
	jz	lang_end
	movd	"3",wstr_m37,_arrive_language
	compd	"Fr",check_language
	jz	lang_end
	movd	"4",wstr_m37,_arrive_language
	compd	"It",check_language
	jz	lang_end
	movd	" ",wstr_m37,_arrive_language
lang_end:
//
	movs	check_password,wstr_m37,_arrive_password,4
	movs	check_vorkasse,param_1,9
	call	up_to_space
	movs	param_2,wstr_m37,_arrive_deposit,9
//
	movd	"0",wstr_m37,_arrive_dnd
	compd	"aus",check_dnd
	jz	dnd_end
	movd	"1",wstr_m37,_arrive_dnd
	compd	"ein",check_dnd
	jz	dnd_end
	movd	" ",wstr_m37,_arrive_dnd
dnd_end:
//
	movd	"0",wstr_m37,_arrive_mess
	compd	"nein",check_mess
	jz	mess_end
	movd	"1",wstr_m37,_arrive_mess
	compd	"ja",check_mess
	jz	mess_end
	movd	" ",wstr_m37,_arrive_mess
mess_end:
//
	jmp	send_buffer
//
//*********************************************************
send_m_mess:
//			   1111111111222222222233333333334444444444555555
//		 01234567890123456789012345678901234567890123456789012345
//		 .12345M12345678901234567890lvgggccccppfffffffffmrrrrrd
//		       M		     Vgru    do
	movd	"Mnnnnn nnnnnnnnnnnnnnnnnnnnl    pppp  dddddddddm     d/n",wstr_m37,0
	movs	check_ext,param_1,5
	call	to_right
	movs	param_r5,wstr_m37,_arrive_ext,5
	movs	check_name,wstr_m37,_arrive_name,20
//
	movd	"1",wstr_m37,_arrive_language
	compd	"Deu",check_language
	jz	lang_mend
	movd	"2",wstr_m37,_arrive_language
	compd	"Eng",check_language
	jz	lang_mend
	movd	"3",wstr_m37,_arrive_language
	compd	"Fr",check_language
	jz	lang_mend
	movd	"4",wstr_m37,_arrive_language
	compd	"It",check_language
	jz	lang_mend
	movd	" ",wstr_m37,_arrive_language
lang_mend:
//
	movs	check_password,wstr_m37,_arrive_password,4
	movs	check_vorkasse,param_1,9
	call	up_to_space
	movs	param_2,wstr_m37,_arrive_deposit,9
//
	movd	"0",wstr_m37,_arrive_dnd
	compd	"aus",check_dnd
	jz	dnd_mend
	movd	"1",wstr_m37,_arrive_dnd
	compd	"ein",check_dnd
	jz	dnd_mend
	movd	" ",wstr_m37,_arrive_dnd
dnd_mend:
//
	movd	"0",wstr_m37,_arrive_mess
	compd	"nein",check_mess
	jz	mess_mend
	movd	"1",wstr_m37,_arrive_mess
	compd	"ja",check_mess
	jz	mess_mend
	movd	" ",wstr_m37,_arrive_mess
mess_mend:
//
	jmp	send_buffer
//
//*********************************************************
//*********************************************************
// SMDR RECO
//*********************************************************
//
smdr_r31_out:
	call	r31outgoing_call
	jmp	main_send_sig
//*********************************************************
// SMDR RECO
//*********************************************************
//
smdr_r31_in:
	call	r31incomming_call
	jmp	main_send_sig
//*********************************************************
//*********************************************************
//
//*******************************************************************
// Terminruf
//
r31terminruf:
        compd de_termin_prog,r31_dhs2_extern
	jz    r31wakeup_w
        compd gb_termin_prog,r31_dhs2_extern
	jz    r31wakeup_w
        compd fr_termin_prog,r31_dhs2_extern
	jz    r31wakeup_w
        compd it_termin_prog,r31_dhs2_extern
	jz    r31wakeup_w
//
        compd de_termin_clear,r31_dhs2_extern
	jz    r31wakeup_q
        compd gb_termin_clear,r31_dhs2_extern
	jz    r31wakeup_q
        compd fr_termin_clear,r31_dhs2_extern
	jz    r31wakeup_q
        compd it_termin_clear,r31_dhs2_extern
	jz    r31wakeup_q
//
        compd de_termin_noanswer,r31_dhs2_extern
	jz    r31wakeup_n
        compd gb_termin_noanswer,r31_dhs2_extern
	jz    r31wakeup_n
        compd fr_termin_noanswer,r31_dhs2_extern
	jz    r31wakeup_n
        compd it_termin_noanswer,r31_dhs2_extern
	jz    r31wakeup_n
//
        compd de_termin_answer,r31_dhs2_extern
	jz    r31wakeup_a
        compd gb_termin_answer,r31_dhs2_extern
	jz    r31wakeup_a
        compd fr_termin_answer,r31_dhs2_extern
	jz    r31wakeup_a
        compd it_termin_answer,r31_dhs2_extern
	jz    r31wakeup_a
	ret
//
//#########################################################
//
r31ext_replace:
	replace "A ",r31_dhs2_extension,5
	movs	r31_dhs2_extension,param_1,5
	call	to_right
	movs	param_r5,wstr_m37,_wakeup_ext,5
	ret
//
//
r31wakeup_a:
// wakeup answer
//	"P     W  c                     /n"
	movd  wakeup_def,wstr_m37,0
	call  r31ext_replace
	movd  "A",wstr_m37,_wakeup_cause

// **************************
// transfer answertime
//
	movs  r31_dhs2_time_hour,wstr_m37,_wakeup_acti_hour,2
	movs  r31_dhs2_time_min,wstr_m37,_wakeup_acti_minute,2
	movs  r31_dhs2_date_day,wstr_m37,_wakeup_acti_day,2
	movs  r31_dhs2_date_month,wstr_m37,_wakeup_acti_month,2
	movs  r31_dhs2_date_year,wstr_m37,_wakeup_acti_year,2
//
	jmp	send_buffer
//
//#########################################################
// wakeup not answered
//
r31wakeup_n:
//	"P     W  c                     /n"
	movd  wakeup_def,wstr_m37,0
	call  r31ext_replace
	movd  "N",wstr_m37,_wakeup_cause
	compd	"F",r31_dhs2_wakeup_cause       // extension no answer free
	jz	skip_busy_noanswer
        compd   "F",r31_dhs2_wakeup_causef5     // extension no answer free
	jz	skip_busy_noanswer
        compd   "L",r31_dhs2_wakeup_causel1     // extension no answer free
	jz	skip_busy_noanswer
        compd   "L",r31_dhs2_wakeup_causel3     // extension no answer free
	jz	skip_busy_noanswer
	movd	"B",wstr_m37,_wakeup_cause      //extension no answer busy
skip_busy_noanswer:
// **************************
// transfer no answertime
//
	movs  r31_dhs2_time_hour,wstr_m37,_wakeup_acti_hour,2
	movs  r31_dhs2_time_min,wstr_m37,_wakeup_acti_minute,2
	movs  r31_dhs2_date_day,wstr_m37,_wakeup_acti_day,2
	movs  r31_dhs2_date_month,wstr_m37,_wakeup_acti_month,2
	movs  r31_dhs2_date_year,wstr_m37,_wakeup_acti_year,2
//
	jmp	send_buffer
//
//#########################################################
// wakeup programmed
//
r31wakeup_w:
//	"P     W  c                     /n"
	movd  wakeup_def,wstr_m37,0
	call  r31ext_replace
	movd  "P",wstr_m37,_wakeup_cause
// **************************
// transfer programming time
//
	movs  r31_dhs2_time_hour,wstr_m37,_wakeup_acti_hour,2
	movs  r31_dhs2_time_min,wstr_m37,_wakeup_acti_minute,2
	movs  r31_dhs2_date_day,wstr_m37,_wakeup_acti_day,2
	movs  r31_dhs2_date_month,wstr_m37,_wakeup_acti_month,2
	movs  r31_dhs2_date_year,wstr_m37,_wakeup_acti_year,2

//	transfer wakeuptime

	movs  r31_dhs2_durat_hour,wstr_m37,_wakeup_time_hour,2
	movs  r31_dhs2_durat_min,wstr_m37,_wakeup_time_minute,2
//
	jmp	send_buffer
//
//
//#########################################################
// wakeup cancellation
//
r31wakeup_q:
//	"P     W  c                     /n"
	movd  wakeup_def,wstr_m37,0
	call  r31ext_replace
	movd  "C",wstr_m37,_wakeup_cause
// **************************
// transfer cancellation time
//
	movs  r31_dhs2_time_hour,wstr_m37,_wakeup_acti_hour,2
	movs  r31_dhs2_time_min,wstr_m37,_wakeup_acti_minute,2
	movs  r31_dhs2_date_day,wstr_m37,_wakeup_acti_day,2
	movs  r31_dhs2_date_month,wstr_m37,_wakeup_acti_month,2
	movs  r31_dhs2_date_year,wstr_m37,_wakeup_acti_year,2
//
	jmp	send_buffer
//
//*******************************************************************
// Data_entry
//
r31data_entry:
	compd	"0",roomstate_mess
	jz	r31_do_data_entry
	compd	"1",roomstate_mess
	jz	rstate_t1
rstate_t2:
	movd	"C          /n",wstr_m37,0
	call	r31ext_replace
	movs	r31_dhs2_room_state_num,wstr_m37,6,3
	movs	r31_dhs2_room_state,wstr_m37,10,1
	replace "- ",wstr_m37,6,4
//
	jmp	send_buffer
//
rstate_t1:
	movd	"C          /n",wstr_m37,0
	call  r31ext_replace
	movs  r31_dhs2_room_state,wstr_m37,6,4
	replace "- ",wstr_m37,6,4
//
	jmp	send_buffer
//
r31_do_data_entry:
//	"P      4200                    /n"
	movd  datatransfer_def,wstr_m37,0
	call  r31ext_replace
	movs  r31_dhs2_room_state,wstr_m37,_data_data,4
	replace "- ",wstr_m37,_data_data,4
//
	jmp	send_buffer
//
//*******************************************************************
//*******************************************************************
//
// outgoing call
//
r31outgoing_call:
// **********************************************
// translate extensionnumber
//
	movd	smdr_def,wstr_m37,0
	call	r31ext_replace
//
// **********************************************
// transfer extern number
//
	movs  r31_dhs2_extern,wstr_m37,_smdr_extern,20
	replace ". ",wstr_m37,_smdr_extern,20
	replace "- ",wstr_m37,_smdr_extern,20
//
// **********************************************
// transfer costs
//
	compd	"0",sw_unit_cost
	jz	out_cost
//
	movd	"        ",wstr_m37,_smdr_pulse
	movd	"        ",calc_p1
	movs	r31_dhs2_units,calc_p1,4
	movd	"0 ",calc_p2
	acall	add
	movs	calc_erg,wstr_m37,_smdr_pulse,8
	jmp	out_sw_end
out_cost:
	movs	r31_dhs2_cost,wstr_m37,_smdr_cost,8
out_sw_end:
//
// **********************************************
// transfer time
//
	movs  r31_dhs2_time_hour,wstr_m37,_smdr_hour,2
	movs  r31_dhs2_time_min,wstr_m37,_smdr_minute,2
//
// **********************************************
// transfer date
//
	movs  r31_dhs2_date_day,wstr_m37,_smdr_day,2
	movs  r31_dhs2_date_month,wstr_m37,_smdr_month,2
	movs  r31_dhs2_date_year,wstr_m37,_smdr_year,2
//
// **********************************************
// transfer the duration of an outgoing call
//
	movs	r31_dhs2_durat_sec,wstr_m37,_smdr_dur_sec,2
	movd	"        ",calc_p1
	movs	r31_dhs2_durat_hour,calc_p1,2
	movd	"60 ",calc_p2
	acall	mul
	movs	calc_erg,calc_p2,8
	movs	r31_dhs2_durat_min,calc_p1,2
	acall	add
//	  acall   cut_lz
	movs	calc_erg_3dg,wstr_m37,_smdr_duration,3
	compd	"00000???",calc_erg
	jz	smdr_dur_end
	movd	"999999",wstr_m37,_smdr_duration
smdr_dur_end:
//
// **********************************************
// Translate trunknumber
//
// Analog trunk:	00-35	> 00-35 .. C
// ISDN T0:		N0-N7	> 40-47 .. C
// ISDN T2:		Pn:	> 50-59 .. C
// ISDN T0:		T0-T7	> 60-67 .. C
//
	movs	r31_dhs2_line_2dg,wstr_m37,_smdr_trunk_2dg,2
	compd	"0",business_flag               //flag_11
	jz	skip_business
	compd	"....",r31_dhs2_project_number  //dhs2_in,106
	jz	skip_business
	movs	r31_dhs2_project_number,wstr_m37,_smdr_trunk,4
	replace ".0",wstr_m37,_smdr_trunk,4
skip_business:
//
// **********************************************
// Transfer the transfer-marker only
// bcause the DHS2 did not support a transfered extension-number
// in any way (from or to).
//
// **********************************************
// AHL-RECO is now complete
// terminate the roco and write it to the buffer
//
	jmp	send_buffer
//
// **********************************************
// Incoming calls
//
r31incomming_call:
// **********************************************
// translate extensionnumber
//
	movd	smdr_def,wstr_m37,0
	call	r31ext_replace
	movd	"4",wstr_m37,_smdr_call_type
//
// **********************************************
// transfer extern number
//
	movs  r31_dhs2_extern,wstr_m37,_smdr_extern,20
	replace ". ",wstr_m37,_smdr_extern,20
	replace "- ",wstr_m37,_smdr_extern,20
//
// **********************************************
// transfer costs
//
	movs	r31_dhs2_cost,wstr_m37,_smdr_cost,8
//
// **********************************************
// transfer time
//
	movs  r31_dhs2_time_hour,wstr_m37,_smdr_hour,2
	movs  r31_dhs2_time_min,wstr_m37,_smdr_minute,2
//
// **********************************************
// transfer date
//
	movs  r31_dhs2_date_day,wstr_m37,_smdr_day,2
	movs  r31_dhs2_date_month,wstr_m37,_smdr_month,2
	movs  r31_dhs2_date_year,wstr_m37,_smdr_year,2
//
// **********************************************
// transfer the duration of an outgoing call
//
	movs	r31_dhs2_durat_sec,wstr_m37,_smdr_dur_sec,2
	movd	"        ",calc_p1
	movs	r31_dhs2_durat_hour,calc_p1,2
	movd	"60 ",calc_p2
	acall	mul
	movs	calc_erg,calc_p2,8
	movs	r31_dhs2_durat_min,calc_p1,2
	acall	add
	acall	cut_lz
	movs	calc_erg_3dg,wstr_m37,_smdr_duration,3
	compd	"     ???",calc_erg
	jz	smdr_indur_end
	movd	"999999",wstr_m37,_smdr_duration
smdr_indur_end:
//
// **********************************************
// Translate trunknumber
//
// Analog trunk:	00-35	> 00-35 .. C
// ISDN T0:		N0-N7	> 40-47 .. C
// ISDN T2:		Pn:	> 50-59 .. C
// ISDN T0:		T0-T7	> 60-67 .. C
//
	movs	r31_dhs2_line_2dg,wstr_m37,_smdr_trunk_2dg,2
//
// **********************************************
// Transfer the transfer-marker only
// bcause the DHS2 did not support a transfered extension-number
// in any way (from or to).
//
// **********************************************
// AHL-RECO is now complete
// terminate the roco and write it to the buffer
//
	jmp	send_buffer
//
// **********************************************
// **********************************************
//
test_im_sign:
	case	im_sign,test_tf_sign
//        setl    11,2
//
// command from channel 4
//
	in	wstr_m37,100
	movd	"Okay wait/n",wstr_m37,0
	out	wstr_m37,0,c4
//************************************
//
// init commands
//
	compd	"init default",wstr_m37,100
	jz	go_init_def
	compd	"init ext_dbs",wstr_m37,100
	jz	go_init_tln
	compd	"init buffers",wstr_m37,100
	jz	go_buff_init
//
// display commands
//
	compd	"disp ext_dbs",wstr_m37,100
	jz	go_tln_display
	compd	"disp config",wstr_m37,100
	jz	go_cfg_display
//
	movd	" command not found/n",wstr_m37,100
	out	wstr_m37,100,c4
//
//******************************************************
main_message:
	movd	" 4200eAHL V2.0 Modul 3 Ready/n",wstr_m37,100
	anss	wstr_m37,100
	jmp	main
//
// *****************************************************
test_tf_sign:
//        setl    11,2
	jmp	main
//******************************************************
//
//			   11111111112222222222333333
//		 012345678901234567890123456789012345
//
// init the dbs for extensions
// init the dbs for dataelements
// init all the buffers
//
//
go_buff_init:
	call	init_b0
	call	init_b1
	call	init_b2
	call	init_b3
	call	init_b4
	jmp	main_message
//
go_init_tln:
	call	dbs_tln_init
	jmp	main_message
//
go_init_def:
	movd	"noin",s14,195
	jmp	main_message
go_tln_display:
	call	tln_display
	jmp	main_message
//
go_cfg_display:
	call	cfg_display
	jmp	main_message
//
//***********************************************
// z_ret
z_ret:
	setc	cnt_ret,1
	decc	cnt_ret
	ret
//***********************************************
// NZ_ret
nz_ret:
	setc	cnt_ret,0
	decc	cnt_ret
	ret
//***********************************************
//
//************************************************
// Buffer 0 init
// Aufruf:	 call	 Init_b0
//
init_b0:
	setp	0XD300,badr_0_high	//beginn adresse high
	setp	0XD301,0x00		//beginn adresse low
//
	setp	0Xd302,lbuff_0_high	//bufferlaenge high
	setp	0XD303,0x00		//bufferlaenge low
//
	setp	0Xd304,lbuff_0_high	//anzahl bytes free high
	setp	0XD305,0x00		//anzahl bytes free low
//
	setp	0Xd306,badr_0_high	//input zeiger high
	setp	0XD307,0x00		//input zeiger low
//
	setp	0Xd308,lbuff_0_high	//input laenge bis bufferende high
	setp	0XD309,0x00		//input laenge bis bufferende low
//
	setp	0Xd30A,badr_0_high	//output zeiger high
	setp	0XD30B,0x00		//output zeiger low
//
	setp	0Xd30C,lbuff_0_high	//output laenge bis bufferende high
	setp	0XD30D,0x00		//output laenge bis bufferende low
//
	setp	0XD30E,modnum_0 	//modulnummer falls in modulmem
//
	ret
//
//************************************************
// Buffer 1 init
//
// Aufruf:	 call	 Init_b1
//
init_b1:
	setp	0Xd310,badr_1_high	//beginn adresse high
	setp	0Xd311,0x00		//beginn adresse low
//
	setp	0Xd312,lbuff_1_high	//bufferlaenge high
	setp	0Xd313,0x00		//bufferlaenge low
//
	setp	0Xd314,lbuff_1_high	//anzahl bytes free high
	setp	0Xd315,0x00		//anzahl bytes free low
//
	setp	0Xd316,badr_1_high	//input zeiger high
	setp	0Xd317,0x00		//input zeiger low
//
	setp	0Xd318,lbuff_1_high	//input laenge bis bufferende high
	setp	0Xd319,0x00		//input laenge bis bufferende low
//
	setp	0Xd31A,badr_1_high	//output zeiger high
	setp	0Xd31B,0x00		//output zeiger low
//
	setp	0Xd31C,lbuff_1_high	//output laenge bis bufferende high
	setp	0Xd31D,0x00		//output laenge bis bufferende low
//
	setp	0Xd31E,modnum_1 	//modulnummer falls in modulmem
//
	ret
//
//************************************************
// Buffer 2 init
//
// Aufruf:	 call	 Init_b2
//
init_b2:
	setp	0Xd320,badr_2_high	//beginn adresse high
	setp	0Xd321,0x00		//beginn adresse low
//
	setp	0Xd322,lbuff_2_high	//bufferlaenge high
	setp	0Xd323,0x00		//bufferlaenge low
//
	setp	0Xd324,lbuff_2_high	//anzahl bytes free high
	setp	0Xd325,0x00		//anzahl bytes free low
//
	setp	0Xd326,badr_2_high	//input zeiger high
	setp	0Xd327,0x00		//input zeiger low
//
	setp	0Xd328,lbuff_2_high	//input laenge bis bufferende high
	setp	0Xd329,0x00		//input laenge bis bufferende low
//
	setp	0Xd32A,badr_2_high	//output zeiger high
	setp	0Xd32B,0x00		//output zeiger low
//
	setp	0Xd32C,lbuff_2_high	//output laenge bis bufferende high
	setp	0Xd32D,0x00		//output laenge bis bufferende low
//
	setp	0Xd32E,modnum_2 	//modulnummer falls in modulmem
//
	ret
//
//************************************************
// Buffer 3 init
//
// Aufruf:	 call	 Init_b3
//
init_b3:
	setp	0Xd330,badr_3_high	//beginn adresse high
	setp	0Xd331,0x00		//beginn adresse low
//
	setp	0Xd332,lbuff_3_high	//bufferlaenge high
	setp	0Xd333,0x00		//bufferlaenge low
//
	setp	0Xd334,lbuff_3_high	//anzahl bytes free high
	setp	0Xd335,0x00		//anzahl bytes free low
//
	setp	0Xd336,badr_3_high	//input zeiger high
	setp	0Xd337,0x00		//input zeiger low
//
	setp	0Xd338,lbuff_3_high	//input laenge bis bufferende high
	setp	0Xd339,0x00		//input laenge bis bufferende low
//
	setp	0Xd33A,badr_3_high	//output zeiger high
	setp	0Xd33B,0x00		//output zeiger low
//
	setp	0Xd33C,lbuff_3_high	//output laenge bis bufferende high
	setp	0Xd33D,0x00		//output laenge bis bufferende low
//
	setp	0Xd33E,modnum_3 	//modulnummer falls in modulmem
//
	ret
//
//************************************************
// Buffer 4 init
//
// Aufruf:	 call	 Init_b4
//
init_b4:
	setp	0Xd340,badr_4_high	//beginn adresse high
	setp	0Xd341,0x00		//beginn adresse low
//
	setp	0Xd342,lbuff_4_high	//bufferlaenge high
	setp	0Xd343,0x00		//bufferlaenge low
//
	setp	0Xd344,lbuff_4_high	//anzahl bytes free high
	setp	0Xd345,0x00		//anzahl bytes free low
//
	setp	0Xd346,badr_4_high	//input zeiger high
	setp	0Xd347,0x00		//input zeiger low
//
	setp	0Xd348,lbuff_4_high	//input laenge bis bufferende high
	setp	0Xd349,0x00		//input laenge bis bufferende low
//
	setp	0Xd34A,badr_4_high	//output zeiger high
	setp	0Xd34B,0x00		//output zeiger low
//
	setp	0Xd34C,lbuff_4_high	//output laenge bis bufferende high
	setp	0Xd34D,0x00		//output laenge bis bufferende low
//
	setp	0Xd34E,modnum_4 	//modulnummer falls in modulmem
//
	ret
//
//************************************************
// Buffer 5 init
//
// Aufruf:	 call	 Init_b5
//
init_b5:
	setp	0Xd350,badr_5_high	//beginn adresse high
	setp	0Xd351,0x00		//beginn adresse low
//
	setp	0Xd352,lbuff_5_high	//bufferlaenge high
	setp	0Xd353,0x00		//bufferlaenge low
//
	setp	0Xd354,lbuff_5_high	//anzahl bytes free high
	setp	0Xd355,0x00		//anzahl bytes free low
//
	setp	0Xd356,badr_5_high	//input zeiger high
	setp	0Xd357,0x00		//input zeiger low
//
	setp	0Xd358,lbuff_5_high	//input laenge bis bufferende high
	setp	0Xd359,0x00		//input laenge bis bufferende low
//
	setp	0Xd35A,badr_5_high	//output zeiger high
	setp	0Xd35B,0x00		//output zeiger low
//
	setp	0Xd35C,lbuff_5_high	//output laenge bis bufferende high
	setp	0Xd35D,0x00		//output laenge bis bufferende low
//
	setp	0Xd35E,modnum_5 	//modulnummer falls in modulmem
//
	ret
//
/*
//************************************************
// Buffer 6 init
//
// Aufruf:	 call	 Init_b6
//
init_b6:
	setp	0Xd360,badr_6_high	//beginn adresse high
	setp	0Xd361,0x00		//beginn adresse low
//
	setp	0Xd362,lbuff_6_high	//bufferlaenge high
	setp	0Xd363,0x00		//bufferlaenge low
//
	setp	0Xd364,lbuff_6_high	//anzahl bytes free high
	setp	0Xd365,0x00		//anzahl bytes free low
//
	setp	0Xd366,badr_6_high	//input zeiger high
	setp	0Xd367,0x00		//input zeiger low
//
	setp	0Xd368,lbuff_6_high	//input laenge bis bufferende high
	setp	0Xd369,0x00		//input laenge bis bufferende low
//
	setp	0Xd36A,badr_6_high	//output zeiger high
	setp	0Xd36B,0x00		//output zeiger low
//
	setp	0Xd36C,lbuff_6_high	//output laenge bis bufferende high
	setp	0Xd36D,0x00		//output laenge bis bufferende low
//
	setp	0Xd36E,modnum_6 	//modulnummer falls in modulmem
//
	ret
//
*/
//***********************************************************************
// configuration display
//
cfg_display:
	ret
//***********************************************
// display the TLN dbs
//
tln_display:
	movd	"3 ",dbs_para
	acall	pfirst_dbs
	movd	" Extension table /n",wstr_m37,0
	out	wstr_m37,0,c4
	movd	"                 /n",dbs_str,0
//
tln_ldisplay:
	acall	read_dbs
	compd	"     ",dbs_str,_ext_num
	jz	tln_skipdisplay
	compd	"    D",dbs_str,_ext_num
	jz	tln_skipdisplay
	movd	"/n",dbs_str,_ext_cr
	out	dbs_str,0,c4
tln_skipdisplay:
	acall	pnext_dbs
	jz	tln_ldisplay
//
tln_edisplay:
	movd	" END OF TABLE/n",wstr_m37,0
	out    wstr_m37,0,c4
//
	ret
//*********************************************************
// TLN-DBS:
// in modul 3
// begin	0x7000	(28672)
// recos	150
// elements	4
// element0	extension-number l=5		offset 0
// element1	ext_state l=1			offset 5
// element2	sub_state l=1			offset 6
// element3	endofline l=1			offset 7
//						offset 87
dbs_tln_init:
	movd	"3 28672 150 4 5 1 1 1  ",s15,100
	acall	open_dbs
	movd	"       /n",s14,0
	acall	init_dbs
	acall	pfirst_dbs
//
	ret
//***********************************************
// find extension number in dbs 3 element 0
// input: dbs_search_string: extensionnumber to find
//
find_ext:
	movd	"3 0  ",dbs_para
	acall	pfirst_dbs
	acall	find_dbs
	jnz	nz_ret
	acall	read_dbs
	jmp z_ret
//
//***********************************************
// find free record
// input: -
// output: dbs aktueller record is free
//
find_free:
	movd	"3 0  ",dbs_para
	movd	"    ?",dbs_search_str
	acall	pfirst_dbs
	acall	find_dbs
	ret
//
//***********************************************
// to_right	input: param_1 string to justify to right
//		output: param_2 justified string
//			param_1 cleared
//		lenght: 20 char
//     using: counter 10,11,12
//
to_right:
//		 01234567890123456789
	movd	"                    >/n",param_2
//	out	param_1,c4
	setc	12,20	//number of char
	setc	10,219	//source
	setc	11,239	//destination
lto_right:
	compd	" ",s14,c10
	jnz	mto_right
	decc	10
	decc	12
	jnz	lto_right
//		 01234567890123456789
	movd	"                    ",param_1
//	  out	  param_1,c4
	ret
//
mto_right:
	movs	s14,c10,s14,c11,1
	decc	10
	decc	11
	decc	12
	jnz	mto_right
//		 01234567890123456789
	movd	"                    ",param_1
//	  out	  param_1,c4
	ret
//***********************************************
// to_left     input: param_1 string to justify to left
//		output: param_2 justified string
//			param_1 cleared
//		lenght: 20 char
//     using: counter 10,11,12
//
to_left:
//		 01234567890123456789
	movd	"                    >/n",param_2
	setc	12,20	//number of char
	setc	10,200	//source
	setc	11,220	//destination
lto_left:
	compd	" ",s14,c10
	jnz	mto_left
	incc	10
	decc	12
	jnz	lto_left
//		 01234567890123456789
	movd	"                    ",param_1
	ret
//
mto_left:
	movs	s14,c10,s14,c11,1
	incc	10
	incc	11
	decc	12
	jnz	mto_left
//		 01234567890123456789
	movd	"                    ",param_1
	ret
//***********************************************
// up_to_space	input: param_1 string to move to parameter 2
//			until space or 20 chars
//			leading spaces are not moved
//		output: param_2 transfered string
//			param_1 cleared
//		lenght: 20 char
//     using: counter 10,11,12
//
up_to_space:
//		 01234567890123456789
	movd	"                    >/n",param_2
	setc	12,20	//number of char
	setc	10,200	//source
	setc	11,220	//destination
lup_to_space:
	compd	" ",s14,c10
	jnz	mup_to_space
	incc	10
	decc	12
	jnz	lup_to_space
//		 01234567890123456789
	movd	"                    ",param_1
	ret
//
mup_to_space:
	movs	s14,c10,s14,c11,1
	incc	10
	incc	11
	decc	12
	jz	eup_to_space
	compd	" ",s14,c10
	jnz	mup_to_space
eup_to_space:
//		 01234567890123456789
	movd	"                    ",param_1
	ret
//
//***********************************************
// Messages from PC
//
ahl_interogation:
	movs	wstr_m3,_arrive_ext,param_1,5
	call	to_left
	movs	param_2,dbs_search_str,5
	call	find_ext
	jnz	no_ext_intero
	compd	"I",dbs_str,_ext_state
	jnz	no_in_intero
	movs	param_2,wstr_m3,_arrive_ext,5
	movd	"T",dbs_str,_ext_flag
	acall	write_dbs
	writeb	wstr_m3,0,m0_in 	// send to m0
	sendsig ans_sign,c0
	call	c0_wait_answer
	jz	err_reply
//	  readb   wstr_m37,0,m0_out
//
send_reply:
	writeb	wstr_m37,0,reply_b
	out	wstr_m37,0,c4
	sendsig ans_sign,c2	//signal to AHL
	jmp	main_send_sig
//
no_in_intero:
	movd	"RnnnnnINV RA/n",wstr_m37,0
	movs	wstr_m3,_arrive_ext,wstr_m37,_arrive_ext,5
	jmp	send_reply
//
no_ext_intero:
	movd	"RnnnnnINV RG/n",wstr_m37,0
	movs	wstr_m3,_arrive_ext,wstr_m37,_arrive_ext,5
	jmp	send_reply
//
err_reply:
	movd	"RerrorINV EE/n",wstr_m37,0
	jmp	send_reply
//
//***********************************************
//
ahl_incheck:
	movs	wstr_m3,_arrive_ext,param_1,5
	call	to_left
	movs	param_2,dbs_search_str,5
	call	find_ext
	jnz	no_ext_arrive
	compd	"I",dbs_str,_ext_state
//	  jz	  no_in_arrive
//
	movs	param_2,wstr_m3,_arrive_ext,5
	writeb	wstr_m3,0,m0_in 	// send to m0
	sendsig ans_sign,c0
	call	c0_wait_answer
	jz	err_reply
//	  readb   wstr_m37,0,m0_out
//
	movs	wstr_m3,_arrive_ext,param_1,5
	call	to_left
	movs	param_2,dbs_search_str,5
	call	find_ext
//
	compd	"INV ",wstr_m37,_reply_password
	jnz	in_arrive_save
	compd	"U",wstr_m37,_reply_status2
	jnz	testin_s
	movd	"G",wstr_m37,_reply_status2
	movd	"    D",dbs_str,0
	acall	write_dbs
	jmp	send_reply
//
testin_s:
	compd	"S",wstr_m37,_reply_status2
	jnz	testin_a
	movd	"G",wstr_m37,_reply_status2
	movd	"S",dbs_str,_ext_state
	acall	write_dbs
	jmp	send_reply
//
testin_a:
	movd	"A",wstr_m37,_reply_status2
	movd	"I",dbs_str,_ext_state
	acall	write_dbs
	jmp	send_reply
//
in_arrive_save:
	movd	"I",dbs_str,_ext_state
	acall	write_dbs
	jmp	send_reply
//
no_in_arrive:
	movd	"RnnnnnINV JA/n",wstr_m37,0
	movs	wstr_m3,_arrive_ext,wstr_m37,_arrive_ext,5
	jmp	send_reply
//
no_ext_arrive:
	movs	param_2,wstr_m3,_arrive_ext,5
	writeb	wstr_m3,0,m0_in 	// send to m0
	sendsig ans_sign,c0
	call	c0_wait_answer
	jz	err_reply
//	  readb   wstr_m37,0,m0_out
//
	movs	wstr_m3,_arrive_ext,param_1,5
	call	to_left
	movs	param_2,dbs_search_str,5
	call	find_ext
//
	compd	"INV ",wstr_m37,_reply_password
	jnz	sin_arrive_save
//
	compd	"U",wstr_m37,_reply_status2
	jnz	stestin_s
	movd	"G",wstr_m37,_reply_status2
	jmp	send_reply
//
stestin_s:
	compd	"S",wstr_m37,_reply_status2
	jnz	stestin_a
	movd	"G",wstr_m37,_reply_status2
//
	call	find_free
	jnz	send_reply
	movs	wstr_m37,_arrive_ext,param_1,5
	call	to_left
	movs	param_2,dbs_str,_ext_num,5
	movd	"S /n",dbs_str,_ext_state
	acall	write_dbs
	jmp	send_reply
//
stestin_a:
	movd	"A",wstr_m37,_reply_status2
//
sin_arrive_save:
	call	find_free
	jnz	send_reply
	movs	wstr_m37,_arrive_ext,param_1,5
	call	to_left
	movs	param_2,dbs_str,_ext_num,5
	movd	"I /n",dbs_str,_ext_state
	acall	write_dbs
	jmp	send_reply
//
//***********************************************
//
ahl_modifikation:
	movs	wstr_m3,_arrive_ext,param_1,5
	call	to_left
	movs	param_2,dbs_search_str,5
	call	find_ext
	jnz	no_ext_modify
	compd	"I",dbs_str,_ext_state
//	  jnz	  no_in_modify
//
	movs	param_2,wstr_m3,_arrive_ext,5
	writeb	wstr_m3,0,m0_in 	// send to m0
	sendsig ans_sign,c0
	call	c0_wait_answer
	jz	err_reply
//	  readb   wstr_m37,0,m0_out
//
	movs	wstr_m3,_arrive_ext,param_1,5
	call	to_left
	movs	param_2,dbs_search_str,5
	call	find_ext
//
	compd	"INV ",wstr_m37,_reply_password
	jnz	in_modify_save
	compd	"U",wstr_m37,_reply_status2
	jnz	testmodif_s
	movd	"G",wstr_m37,_reply_status2
	movd	"    D",dbs_str,0
	acall	write_dbs
	jmp	send_reply
//
testmodif_s:
	compd	"S",wstr_m37,_reply_status2
	jnz	testmodif_a
	movd	"G",wstr_m37,_reply_status2
	movd	"S",dbs_str,_ext_state
	acall	write_dbs
	jmp	send_reply
//
testmodif_a:
	movd	"A",wstr_m37,_reply_status2
	movd	"O",dbs_str,_ext_state
	acall	write_dbs
	jmp	send_reply
//
in_modify_save:
	jmp	send_reply
//
no_in_modify:
	compd	"O",dbs_str,_ext_state
	jnz	modify_glob_err
	movd	"RnnnnnINV NA/n",wstr_m37,0
	movs	wstr_m3,_arrive_ext,wstr_m37,_arrive_ext,5
	jmp	send_reply
//
modify_glob_err:
	movd	"RnnnnnINV NG/n",wstr_m37,0
	movs	wstr_m3,_arrive_ext,wstr_m37,_arrive_ext,5
	jmp	send_reply
//
no_ext_modify:
	movs	param_2,wstr_m3,_arrive_ext,5
	writeb	wstr_m3,0,m0_in 	// send to m0
	sendsig ans_sign,c0
	call	c0_wait_answer
	jz	err_reply
//	  readb   wstr_m37,0,m0_out
//
//	  movd	  "RnnnnnINV NG/n",wstr_m37,0
//	  movs	  wstr_m3,_arrive_ext,wstr_m37,_arrive_ext,5
	jmp	send_reply
//
//***********************************************
//
ahl_outcheck:
	movs	wstr_m3,_arrive_ext,param_1,5
	call	to_left
	movs	param_2,dbs_search_str,5
	call	find_ext
	jnz	no_ext_outcheck
//
	movs	param_2,wstr_m3,_arrive_ext,5
	writeb	wstr_m3,0,m0_in 	// send to m0
	sendsig ans_sign,c0
	call	c0_wait_answer
	jz	err_reply
//	  readb   wstr_m37,0,m0_out
//
	movs	wstr_m3,_arrive_ext,param_1,5
	call	to_left
	movs	param_2,dbs_search_str,5
	call	find_ext
//
	compd	"INV ",wstr_m37,_reply_password
	jnz	outcheck_save
	compd	"U",wstr_m37,_reply_status2
	jnz	testout_s
	movd	"G",wstr_m37,_reply_status2
	movd	"    D",dbs_str,0
	acall	write_dbs
	jmp	send_reply
//
testout_s:
	compd	"S",wstr_m37,_reply_status2
	jnz	testout_a
	movd	"G",wstr_m37,_reply_status2
	movd	"S",dbs_str,_ext_state
	acall	write_dbs
	jmp	send_reply
//
testout_a:
	movd	"A",wstr_m37,_reply_status2
	movd	"O",dbs_str,_ext_state
	acall	write_dbs
	jmp	send_reply
//
outcheck_save:
	movd	"O",dbs_str,_ext_state
	acall	write_dbs
	jmp	send_reply
//
no_ext_outcheck:
	movs	param_2,wstr_m3,_arrive_ext,5
	writeb	wstr_m3,0,m0_in 	// send to m0
	sendsig ans_sign,c0
	call	c0_wait_answer
	jz	err_reply
//	  readb   wstr_m37,0,m0_out
//
	movs	wstr_m3,_arrive_ext,param_1,5
	call	to_left
	movs	param_2,dbs_search_str,5
	call	find_ext
//
	compd	"INV ",wstr_m37,_reply_password
	jnz	sin_outcheck_save
//
	compd	"U",wstr_m37,_reply_status2
	jnz	stestout_s
	movd	"G",wstr_m37,_reply_status2
	jmp	send_reply
//
stestout_s:
	compd	"S",wstr_m37,_reply_status2
	jnz	stestout_a
	movd	"G",wstr_m37,_reply_status2
//
	call	find_free
	jnz	send_reply
	movs	wstr_m37,_arrive_ext,param_1,5
	call	to_left
	movs	param_2,dbs_str,_ext_num,5
	movd	"S /n",dbs_str,_ext_state
	acall	write_dbs
	jmp	send_reply
//
stestout_a:
	movd	"A",wstr_m37,_reply_status2
//
sin_outcheck_save:
	call	find_free
	jnz	send_reply
	movs	wstr_m37,_arrive_ext,param_1,5
	call	to_left
	movs	param_2,dbs_str,_ext_num,5
	movd	"O /n",dbs_str,_ext_state
	acall	write_dbs
	jmp	send_reply
//
//***********************************************
// wait answer from channel 0
//
c0_wait_answer:
	sett	250
	wait	ans_sign,tf_sign
	case	ans_sign,test_c0tf_sign
	readb	wstr_m37,0,m0_out
	jz	c0_wait_answer
	ret
test_c0tf_sign:
	case	tf_sign,c0_wait_answer
c1_wait_answer:
	sett	250
	wait	ans_sign,tf_sign
	case	ans_sign,test_c1tf_sign
	readb	wstr_m37,0,m0_out
	jz	c1_wait_answer
	ret
test_c1tf_sign:
	case	tf_sign,c1_wait_answer
c2_wait_answer:
	sett	250
	wait	ans_sign,tf_sign
	case	ans_sign,test_c2tf_sign
	readb	wstr_m37,0,m0_out
	jz	c2_wait_answer
	ret
test_c2tf_sign:
	case	tf_sign,c2_wait_answer
	jmp	z_ret
//
//*********************************************************
//
t_ti_name:
	compd	gb_ti_name,wstr_m3,0
	jz	t_ti_exit
//
	compd	fr_ti_name,wstr_m3,0
	jz	t_ti_exit
//
	compd	de_ti_name,wstr_m3,0
	jz	t_ti_exit
//
	compd	it_ti_name,wstr_m3,0
	jz	t_ti_exit
//
t_ti_exit:
	ret
//
//***********************************************
//
t_ti_cabin_set:
	compd	gb_ti_cabin_set,wstr_m3,0
	jz	t_ti_exit
//
	compd	fr_ti_cabin_set,wstr_m3,0
	jz	t_ti_exit
//
	compd	de_ti_cabin_set,wstr_m3,0
	jz	t_ti_exit
//
	compd	it_ti_cabin_set,wstr_m3,0
	jz	t_ti_exit
//
	ret
//
//***********************************************
//
t_ti_room_number:
	compd	gb_ti_room,wstr_m3,0
        jz      t_ti_exit
//
        compd   fr_ti_room,wstr_m3,0
        jz      t_ti_exit
//
	compd	de_ti_room,wstr_m3,0
        jz      t_ti_exit
//
        compd   it_ti_room,wstr_m3,0
        jz      t_ti_exit
//
        ret
//
//***********************************************
//
t_ti_language:
	compd	gb_ti_language,wstr_m3,0
	jz	t_ti_exit
//
        compd   fr_ti_language,wstr_m3,0
	jz	t_ti_exit
//
	compd	de_ti_language,wstr_m3,0
	jz	t_ti_exit
//
	compd	it_ti_language,wstr_m3,0
	jz	t_ti_exit
//
	ret
//
//***********************************************
//
t_ti_deposit:
	compd	gb_ti_deposit,wstr_m3,0
	jz	t_ti_exit
//
	compd	fr_ti_deposit,wstr_m3,0
	jz	t_ti_exit
//
	compd	de_ti_deposit,wstr_m3,0
	jz	t_ti_exit
//
	compd	it_ti_deposit,wstr_m3,0
	jz	t_ti_exit
//
	ret
//
//***********************************************
//
t_ti_calls:
	compd	gb_ti_number,wstr_m3,0
	jz	t_ti_exit
//
	compd	fr_ti_number,wstr_m3,0
	jz	t_ti_exit
//
	compd	de_ti_number,wstr_m3,0
	jz	t_ti_exit
//
	compd	it_ti_number,wstr_m3,0
	jz	t_ti_exit
//
	ret
//***********************************************
//
t_ti_password:
        compd   gb_ti_password,wstr_m3,0
	jz	t_ti_exit
//
        compd   fr_ti_password,wstr_m3,0
	jz	t_ti_exit
//
        compd   de_ti_password,wstr_m3,0
	jz	t_ti_exit
//
        compd   it_ti_password,wstr_m3,0
	jz	t_ti_exit
//
	ret
//***********************************************
//
t_ti_ddi_number:
        compd   gb_ti_ddi_number,wstr_m3,0
	jz	t_ti_exit
//
        compd   fr_ti_ddi_number,wstr_m3,0
	jz	t_ti_exit
//
        compd   de_ti_ddi_number,wstr_m3,0
	jz	t_ti_exit
//
        compd   it_ti_ddi_number,wstr_m3,0
	jz	t_ti_exit
//
	ret
//***********************************************
//
t_ti_dnd:
        compd   gb_ti_dnd,wstr_m3,0
	jz	t_ti_exit
//
        compd   fr_ti_dnd,wstr_m3,0
	jz	t_ti_exit
//
        compd   de_ti_dnd,wstr_m3,0
	jz	t_ti_exit
//
        compd   it_ti_dnd,wstr_m3,0
	jz	t_ti_exit
//
	ret
//***********************************************
//
t_ti_message:
        compd   gb_ti_message,wstr_m3,0
	jz	t_ti_exit
//
        compd   fr_ti_message,wstr_m3,0
	jz	t_ti_exit
//
        compd   de_ti_message,wstr_m3,0
	jz	t_ti_exit
//
        compd   it_ti_message,wstr_m3,0
	jz	t_ti_exit
//
	ret
//***********************************************
//
t_ti_costs:
        compd   gb_ti_costs,wstr_m3,0
	jz	t_ti_exit
//
        compd   fr_ti_costs,wstr_m3,0
	jz	t_ti_exit
//
        compd   de_ti_costs,wstr_m3,0
	jz	t_ti_exit
//
        compd   it_ti_costs,wstr_m3,0
	jz	t_ti_exit
//
	ret
//***********************************************
//
t_ti_external_calls:
        compd   gb_ti_external_calls,wstr_m3,0
	jz	t_ti_exit
//
        compd   fr_ti_external_calls,wstr_m3,0
	jz	t_ti_exit
//
        compd   de_ti_external_calls,wstr_m3,0
	jz	t_ti_exit
//
        compd   it_ti_external_calls,wstr_m3,0
	jz	t_ti_exit
//
	ret
//***********************************************
//
t_ti_total_costs:
        compd   gb_ti_total_costs,wstr_m3,0
	jz	t_ti_exit
//
        compd   fr_ti_total_costs,wstr_m3,0
	jz	t_ti_exit
//
        compd   de_ti_total_costs,wstr_m3,0
	jz	t_ti_exit
//
        compd   it_ti_total_costs,wstr_m3,0
	jz	t_ti_exit
//
	ret
//***********************************************
//
t_ti_debit:
        compd   gb_ti_debit,wstr_m3,0
	jz	t_ti_exit
//
        compd   fr_ti_debit,wstr_m3,0
	jz	t_ti_exit
//
        compd   de_ti_debit,wstr_m3,0
	jz	t_ti_exit
//
        compd   it_ti_debit,wstr_m3,0
	jz	t_ti_exit
//
	ret
//***********************************************
//
t_ti_credit:
        compd   gb_ti_credit,wstr_m3,0
	jz	t_ti_exit
//
        compd   fr_ti_credit,wstr_m3,0
	jz	t_ti_exit
//
        compd   de_ti_credit,wstr_m3,0
	jz	t_ti_exit
//
        compd   it_ti_credit,wstr_m3,0
	jz	t_ti_exit
//
	ret
//***********************************************
//
t_ti_jan:
        compd   gb_ti_januar,wstr_m3,6
        jz      t_ti_exit
//
        compd   fr_ti_januar,wstr_m3,6
        jz      t_ti_exit
//
        compd   de_ti_januar,wstr_m3,6
        jz      t_ti_exit
//
        compd   it_ti_januar,wstr_m3,6
        jz      t_ti_exit
//
//***********************************************
//
t_ti_feb:
        compd   gb_ti_februar,wstr_m3,6
        jz      t_ti_exit
//
        compd   fr_ti_februar,wstr_m3,6
        jz      t_ti_exit
//
        compd   de_ti_februar,wstr_m3,6
        jz      t_ti_exit
//
        compd   it_ti_februar,wstr_m3,6
        jz      t_ti_exit
//
//***********************************************
//
t_ti_maerz:
        compd   gb_ti_maerz,wstr_m3,6
        jz      t_ti_exit
//
        compd   fr_ti_maerz,wstr_m3,6
        jz      t_ti_exit
//
        compd   de_ti_maerz,wstr_m3,6
        jz      t_ti_exit
//
        compd   it_ti_maerz,wstr_m3,6
        jz      t_ti_exit
//
//***********************************************
//
t_ti_april:
        compd   gb_ti_april,wstr_m3,6
        jz      t_ti_exit
//
        compd   fr_ti_april,wstr_m3,6
        jz      t_ti_exit
//
        compd   de_ti_april,wstr_m3,6
        jz      t_ti_exit
//
        compd   it_ti_april,wstr_m3,6
        jz      t_ti_exit
//
//***********************************************
//
t_ti_mai:
        compd   gb_ti_mai,wstr_m3,6
        jz      t_ti_exit
//
        compd   fr_ti_mai,wstr_m3,6
        jz      t_ti_exit
//
        compd   de_ti_mai,wstr_m3,6
        jz      t_ti_exit
//
        compd   it_ti_mai,wstr_m3,6
        jz      t_ti_exit
//
//***********************************************
//
t_ti_juni:
        compd   gb_ti_juni,wstr_m3,6
        jz      t_ti_exit
//
        compd   fr_ti_juni,wstr_m3,6
        jz      t_ti_exit
//
        compd   de_ti_juni,wstr_m3,6
        jz      t_ti_exit
//
        compd   it_ti_juni,wstr_m3,6
        jz      t_ti_exit
//
//***********************************************
//
t_ti_juli:
        compd   gb_ti_juli,wstr_m3,6
        jz      t_ti_exit
//
        compd   fr_ti_juli,wstr_m3,6
        jz      t_ti_exit
//
        compd   de_ti_juli,wstr_m3,6
        jz      t_ti_exit
//
        compd   it_ti_juli,wstr_m3,6
        jz      t_ti_exit
//
//***********************************************
//
t_ti_august:
        compd   gb_ti_august,wstr_m3,6
        jz      t_ti_exit
//
        compd   fr_ti_august,wstr_m3,6
        jz      t_ti_exit
//
        compd   de_ti_august,wstr_m3,6
        jz      t_ti_exit
//
        compd   it_ti_august,wstr_m3,6
        jz      t_ti_exit
//
//***********************************************
//
t_ti_september:
        compd   gb_ti_september,wstr_m3,6
        jz      t_ti_exit
//
        compd   fr_ti_september,wstr_m3,6
        jz      t_ti_exit
//
        compd   de_ti_september,wstr_m3,6
        jz      t_ti_exit
//
        compd   it_ti_september,wstr_m3,6
        jz      t_ti_exit
//
//***********************************************
//
t_ti_oktober:
        compd   gb_ti_oktober,wstr_m3,6
        jz      t_ti_exit
//
        compd   fr_ti_oktober,wstr_m3,6
        jz      t_ti_exit
//
        compd   de_ti_oktober,wstr_m3,6
        jz      t_ti_exit
//
        compd   it_ti_oktober,wstr_m3,6
        jz      t_ti_exit
//
//***********************************************
//
t_ti_november:
        compd   gb_ti_november,wstr_m3,6
        jz      t_ti_exit
//
        compd   fr_ti_november,wstr_m3,6
        jz      t_ti_exit
//
        compd   de_ti_november,wstr_m3,6
        jz      t_ti_exit
//
        compd   it_ti_november,wstr_m3,6
        jz      t_ti_exit
//
//***********************************************
//
t_ti_dezember:
        compd   gb_ti_dezember,wstr_m3,6
        jz      t_ti_exit
//
        compd   fr_ti_dezember,wstr_m3,6
        jz      t_ti_exit
//
        compd   de_ti_dezember,wstr_m3,6
        jz      t_ti_exit
//
        compd   it_ti_dezember,wstr_m3,6
        jz      t_ti_exit
//
//***********************************************
//
t_ti_save_time:
//
        compd   " ",wstr_m3,15
        jz      save_en_time
        movs    wstr_m3,23,check_hour,2
	movs	wstr_m3,26,check_min,2
	movs	wstr_m3,10,check_day,2
	movs	wstr_m3,15,check_year,4
        ret
save_en_time:
        movs    wstr_m3,24,check_hour,2
        movs    wstr_m3,27,check_min,2
	movs	wstr_m3,10,check_day,2
        movs    wstr_m3,16,check_year,4
        ret
//
//*********************************************************
//
t_zusatzkosten:
	compd	"Zusatzkosten",r31_dhs2_extern
	jz	e_t_lang
//
e_t_lang:
	ret
//***********************************************

//***********************************************
zzz:
end