\ codes for the file_server
1 CONSTANT #ilan_block
2 CONSTANT #bus_block
3 CONSTANT #bus_file ( 25Oct1996)
The packets sent from the RTI cards have to be structure for a ilan file operation as the file server sends the data directly to the master without recontruction. For this the following stuff has to be included for RTI slaves as well as when ILAN is included.
#BCM550h #BCM550j + #BVP5502 + #BVP5501 + #BVP5552 + #BVP5551 + [IF]
\ can be used as a buffer to store an abort error
#$buffer ubuffer $error
( file commands)
03 CONSTANT #read_ilan
04 CONSTANT #write_ilan
05 CONSTANT #open_ilan
06 CONSTANT #close_ilan
0FF CONSTANT #error_ilan
zero
DUP CONSTANT #ilan_disk_code 1+
DUP CONSTANT #ilan_disk_i/o_id
DUP CONSTANT #ilan_directory_name
DUP CONSTANT #ilan_error_string
CELL+
DUP CONSTANT #ilan_close_header_length
DUP CONSTANT #ilan_disk_where
DUP CONSTANT #ilan_disk_mode
CELL+
DUP CONSTANT #ilan_open_header_length
DUP CONSTANT #ilan_disk_length
CELL+
CONSTANT #ilan_disk_header_length
CREATE $lost_interest
," ILAN master didn't process request."
CREATE $strange_command
," ILAN Got read data without requesting it"
CREATE $no_buffer
," ILAN received data, but had nowhere to put it"
CREATE $wrong_file
," ILAN data returned wasn't from file requested"
CREATE $wrong_file_pointer
," ILAN data returned wasn't from where requested"
CREATE $wrong_length
," ILAN data returned was longer than requested"
CREATE $command_length_wrong
," ILAN packet didn't contain correct control data"
CREATE $?data_length
," ILAN returned data didn't contain promised data"
CREATE $unknown_command
," ILAN returned command unknown"
CREATE $no_command
," Command not implemented."
CREATE $bad_receive
," Reply came before command sent"
[THEN]