license

Bank memory is structure as described below

 
	HOST
	\ these must be the first dual bank varaiables defined
	'tbank @ _#bank_ram_base  ??=

	$20 CONSTANT #bank_tube_max
	
	bank_variable %bank_running         ( Set to 12345678 by slave)
	bank_variable %bank_pbase
	bank_variable %bank_offset
	bank_variable %bank_spare          
	bank_variable %bank_table_disk
	bank_variable %bank_(file_table)

	$20 _#bank_ram_base + 'tbank !
	bank_variable %bank_spare			
	bank_variable %bank_spare  

\ so the init routine can write into the correct location
 #BVP5501 [IF]
	bank_create %port_init_where
 [THEN]
         
	bank_variable %bank_init_where		( let others see where init up to)

	$40 _#bank_ram_base + 'tbank !
	\ The varibles are set i and used by ii
	bank_variable %bank_i_terminal
	bank_variable %bank_i_file
	bank_variable %bank_i_^ced
	bank_variable %bank_i_logoff
	bank_variable %bank_???
	bank_variable %bank_???
	bank_variable %bank_???
	bank_variable %bank_i_?who
	\ application
	bank_variable %bank_i_app_data
	bank_variable %bank_i_app_cmd
	bank_variable %bank_i_app_error
	bank_variable %bank_???
	bank_variable %bank_???
	bank_variable %bank_???
	bank_variable %bank_???
	bank_variable %bank_i_file

	$80 _#bank_ram_base + 'tbank !
	\ The varibles are set by ii used by i
	bank_variable %bank_ii_terminal
	bank_variable %bank_ii_file
	bank_variable %bank_ii_^ced
	bank_variable %bank_ii_logoff
	bank_variable %bank_ii_application
	bank_variable %bank_ii_?who
	bank_variable %bank_???????
	bank_variable %bank_ii_app_data
	bank_variable %bank_ii_app_cmd
	bank_variable %bank_ii_app_error
	bank_variable %bank_???
	bank_variable %bank_???
	bank_variable %bank_???
	bank_variable %bank_???
	bank_variable %bank_???


	$C0 _#bank_ram_base + 'tbank !
	bank_variable %bank_i_unit
	bank_variable %bank_ii_unit 



	$100 _#bank_ram_base + 'tbank !
	0 
	DUP	CONSTANT	#flbus_link 4+     ( for master)
	DUP CONSTANT	#flbus_source 2+   ( for master)
	DUP CONSTANT	#flbus_facility 4+ ( for slave)
	DUP CONSTANT	#flbus_count 2+    ( for slvae)
	DUP CONSTANT	#flbus_buffer 4+   ( for slave)
		CONSTANT	#flbus_length

bank_variable %bank_file_table #flbus_length 4 - bank_allot
bank_variable %bank_tube_control>  #bank_tube_max 4* bank_allot

\ The BCM522 expects this buffer to be the length of the maximum
\ ilan packet. It does give the best performance.
bank_create %bank_buffer #ilan_packet_max bank_allot