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