SUBROUTINE SHOW_STATUS (FULL_STATUS) C C This subroutine is used to display the various VAXNET parmeters. C IMPLICIT INTEGER (A-Z) LOGICAL FULL_STATUS CHARACTER*(*) SS, DS PARAMETER (SS = CHAR(13)//CHAR(10)) ! Single space. PARAMETER (DS = SS//SS) ! Double space. CALL WRITE_USER(SS//'VAXNET Status Report:'//DS) CALL SHOW_LOGFILE() ! Show the log file. CALL SHOW_REMOTE_PORT() ! Show the remote port. CALL SHOW_INTERRUPT() ! Show the interrupt character. CALL SHOW_BREAK() ! Show the break character. CALL SHOW_SYSTEM_TYPE() ! Show the system type. CALL SHOW_LOCAL_ECHO() ! Show the local echo. CALL SHOW_REMOTE_SPEED() ! Show the remote speed. CALL SHOW_MODEM_TYPE() ! Show the modem type. IF (FULL_STATUS) THEN CALL SHOW_PROTOCOL() ! Show the protocol. CALL SHOW_FILE_TYPE() ! Show the file type. CALL SHOW_RETRY_LIMIT() ! Show the retry limit. CALL SHOW_TIMEOUT_COUNT() ! Show the read timeout count. CALL SHOW_DATA_BITS() ! Show the number of bits. CALL SHOW_DECHO() ! Show the dump echo status. CALL SHOW_WATCH() ! Show the watch file status. CALL SHOW_DISPLAY() ! Show the display parmeters. CALL SHOW_REFORMAT() ! Show the reformat settings. CALL SHOW_DEBUG() ! Show the debug mode. CALL SHOW_DEBUG_INFO() ! Show the debug information. CALL SHOW_TYPEAHEAD_LIMIT() ! Show the typeahead limit. CALL WRITE_USER (SS) ! Single spacing. ENDIF RETURN END SUBROUTINE SHOW_ROUTINES C C Show various VAXNET parameters. C INCLUDE 'COM.INC/NOLIST' CHARACTER DUMMY*2 ENTRY SHOW_LOGFILE C C First display the log file (if any). C CALL WRITE_USER('Log file name: ') IF (LOGFILE) THEN CALL WRITE_USER(LOG_FILE(1:LOGFILE_SIZE)//SS) ELSE CALL WRITE_USER('None'//SS) ENDIF C C Now display if local logging is enabled. C IF (LOGFILE) THEN CALL WRITE_USER ('Local logging: ') CALL SHOW_STATE (LOG_LOCAL) ENDIF RETURN ENTRY SHOW_REMOTE_PORT C C Display the remote port. C CALL WRITE_USER('Remote port: '// 1 REMOTE_DEVICE(1:REMOTE_SIZE)//SS) RETURN ENTRY SHOW_BREAK C C Display the break character (if enabled). C IF (BREAK_IS_ENABLED) THEN DUMMY(1:1) = CHAR(BREAK_CHAR(1)) DUMMY(2:2) = CHAR(32) IF (BREAK_CHAR(1) .LT. 32) THEN DUMMY(1:1) = '^' DUMMY(2:2) = CHAR(BREAK_CHAR(1)+64) ENDIF CALL WRITE_USER ('Break character: '//DUMMY//SS) ENDIF RETURN ENTRY SHOW_INTERRUPT C C Display the interrupt character. C DUMMY(1:1) = CHAR(INTERRUPT_CHAR(1)) DUMMY(2:2) = CHAR(32) IF (INTERRUPT_CHAR(1) .LT. 32) THEN DUMMY(1:1) = '^' DUMMY(2:2) = CHAR(INTERRUPT_CHAR(1)+64) ENDIF CALL WRITE_USER('Interrupt char: '//DUMMY//SS) RETURN ENTRY SHOW_SYSTEM_TYPE C C Display the system type. C CALL WRITE_USER('System type: '//SYSTEM_TYPE(1:SYSTEM_SIZE)//SS) RETURN ENTRY SHOW_LOCAL_ECHO C C Display local echo flag if enabled. C CALL WRITE_USER ('Local echo: ') CALL SHOW_STATE (LOCAL_ECHO) RETURN ENTRY SHOW_REMOTE_SPEED C C Display the remote baud rate. C CALL WRITE_USER('Remote speed: '//REMOTE_BAUD(1:SPEED_SIZE)//SS) RETURN ENTRY SHOW_MODEM_TYPE C C If using autodial modem, display the modem type. C IF (AUTODIAL) THEN CALL WRITE_USER('Modem type: ' 1 //MODEM_TYPE(1:MODEM_SIZE)//SS) ENDIF C C Display the phone number (if any). C IF (PHONE_SIZE .GT. 0) THEN CALL WRITE_USER('Phone number: ' 1 //PHONE_NUMBER(1:PHONE_SIZE)//SS) ENDIF RETURN ENTRY SHOW_DECHO C C Show the dump echo flag. C CALL WRITE_USER ('Dump echo: ') CALL SHOW_STATE (DUMP_ECHO) RETURN ENTRY SHOW_WATCH C C Show the watch files flag. C CALL WRITE_USER ('Watch files: ') CALL SHOW_STATE (WATCH_FILES) RETURN ENTRY SHOW_DISPLAY C C Show the display records flag. C CALL WRITE_USER ('Display screen: ') CALL SHOW_STATE (DISPLAY_SCREEN) IF (DISPLAY_SCREEN) THEN CALL SYS$FAO ('Display record: !UL!/', 1 SIZE, SCRATCH, %VAL(DISPLAY_RECORD)) CALL WRITE_USER (SCRATCH(1:SIZE)) ENDIF RETURN ENTRY SHOW_PROTOCOL C C Show the current protocol. C CALL WRITE_USER ('Protocol type: ') IF (PROTOCOL .EQ. KERMIT) THEN CALL WRITE_USER ('KERMIT'//SS) ELSEIF (PROTOCOL .EQ. VAXNET) THEN CALL WRITE_USER ('VAXNET'//SS) ELSEIF (PROTOCOL .EQ. XMODEM) THEN CALL WRITE_USER ('XMODEM'//SS) ELSE CALL WRITE_USER ('Unknown'//SS) ENDIF RETURN ENTRY SHOW_FILE_TYPE C C Show the current file type. C CALL WRITE_USER ('File type: ') IF (FILE_TYPE .EQ. ASCII) THEN CALL WRITE_USER ('ASCII'//SS) ELSEIF (FILE_TYPE .EQ. BINARY) THEN CALL WRITE_USER ('BINARY'//SS) ELSEIF (FILE_TYPE .EQ. BLOCK) THEN CALL WRITE_USER ('BLOCK'//SS) ELSE CALL WRITE_USER ('Unknown'//SS) ENDIF RETURN ENTRY SHOW_RETRY_LIMIT C C Display the retry limit. C CALL SYS$FAO ('Retry limit: !UL!/', 1 SIZE, SCRATCH, %VAL(RETRY_LIMIT)) CALL WRITE_USER (SCRATCH(1:SIZE)) RETURN ENTRY SHOW_TIMEOUT_COUNT C C Display the read timeout count. C CALL SYS$FAO ('Timeout count: !UL!/', 1 SIZE, SCRATCH, %VAL(TIMEOUT_COUNT)) CALL WRITE_USER (SCRATCH(1:SIZE)) RETURN ENTRY SHOW_DATA_BITS C C Display number of data bits. C CALL WRITE_USER ('Number of bits: ') IF (EIGHT_BIT) THEN CALL WRITE_USER ('8'//SS) ELSE CALL WRITE_USER ('7'//SS) ENDIF RETURN ENTRY SHOW_REFORMAT C C Show the current reformat settings. C CALL WRITE_USER ('Auto reformat: ') CALL SHOW_STATE (AUTO_REF) IF (AUTO_REF) THEN CALL WRITE_USER ('Reformat wait: ') CALL SHOW_STATE (REF_WAIT) ENDIF RETURN ENTRY SHOW_DEBUG C C If debugging is enabled, output some more information. C CALL WRITE_USER ('Debug mode: ') CALL SHOW_STATE (DEBUG_MODE) RETURN ENTRY SHOW_DEBUG_INFO C C First output the maximum local typeahead count. C IF (DEBUG_MODE) THEN CALL SYS$FAO ('Local count: !UW!/', 1 SIZE, SCRATCH, %VAL(LMAX_TYPEAHEAD)) CALL WRITE_USER (SCRATCH(1:SIZE)) C C Now output the maximum remote typeahead count. C CALL SYS$FAO ('Remote count: !UW!/', 1 SIZE, SCRATCH, %VAL(MAX_TYPEAHEAD)) CALL WRITE_USER (SCRATCH(1:SIZE)) ENDIF RETURN ENTRY SHOW_TYPEAHEAD_LIMIT C C Display the remote typeahead limit. C CALL SYS$FAO ('Typeahead limit: !UL!/', 1 SIZE, SCRATCH, %VAL(TYPEAHEAD_LIMIT)) CALL WRITE_USER (SCRATCH(1:SIZE)) RETURN END SUBROUTINE SHOW_STATE (STATE) C C This routine is used to show the current state of a flag. C LOGICAL STATE CHARACTER*(*) SS PARAMETER (SS = CHAR(13)//CHAR(10)) ! Single spacing. IF (STATE) THEN CALL WRITE_USER('Enabled'//SS) ELSE CALL WRITE_USER('Disabled'//SS) ENDIF RETURN END