Previous File Previous Page Single Page Next Page Next File

* F4$IOS-B - DEC 12 2006 - VERSION 1 PAGE 1

0001 * F4$IOS-B - DEC 12 2006 - VERSION 1 0002 * 0003 * FORTRAN COMPILER IO SELECTOR 0004 * 0005 * WHEN THE COMPILER IS STARTED, REGISTER A SPECIFIES THE DEVICES 0006 * TO BE USED FOR SOURCE INPUT, OBJECT OUTPUT AND FOR LISTING OUTPUT. 0007 * THE IOS SELECTOR HONORS THIS SELECTION BY ACTIVATING THE SELECTED 0008 * DEVICES FOR THESE TASKS. 0009 * 0010 * THE FOLOWING OPTIONS ARE SUPPORTED: 0011 * 0012 * A[ 8-10] SOURCE INPUT DEVICE (1=TTY 2=CR 3=HSR 4=MAGTAPE-UNIT 1) 0013 * A[11-13] LISTING DEVICE (0=SUP 1=TTY 2=LP 4=MAGTAPE-UNIT 2) 0014 * A[14-16] OBJECT OUTPUT DEVICE (0=SUP 1=PTP 2=TTY 4=MAGTAPE-UNIT 2) 0015 * THE LISTED DEVICE ALLOCATION IS SET BY F4IOS 0016 * THIS VERSION OF F4IOS DOES NOT, WITHOUT MODIFICATION, SUPPORT OTHER 0017 * DEVICES FOR THE SPECIFIED TASKS. 0018 * THIS ALSO MEANS THAT TAPE UNIT 2 CAN EITHER BE USED FOR 0019 * OBJECT OUTPUT OR FOR LISTING OUTPUT 0020 * 0021 * IN CASE NO DEVICE SELECTION IS SPECIFIED IN REGISTER A, A DEFAULT 0022 * SELECTION IS MADE BY F4IOS: 0023 * - SOURCE INPUT 3=HSR 0024 * - LISTING OUTPUT 1=TTY 0025 * - OBJECT OUTPUT 1=PTP 0026 * 0027 * F4IOS LINKS, TO SUPPORT THE SPECIFIED IO, THE DRIVERS FOR THESE DEVICES. 0028 * HOWEVER, IF FOR INSTANCE NO MAGTAPE IS AVAILABLE IN A PARTICULAR 0029 * INSTALLATION, THE MAGTAPE DRIVER CAN BE REPLACED BY A DUMMY DRIVER. 0030 * THE COMPILER FOOTPRINT IN MEMORY BECOMES SMALLER THEN. DO NOT LINK 0031 * THE MAGTAPE DRIVER IN THAT CASE. THE F4$DUM MODULE RESOLVES THE CALLS 0032 * TO THE MAGTAPE DRIVER AND MUST BE THAT LAST MODULE TO BE LINKED. 0033 * 0034 * HONEYWELL X16 16 BIT COMPUTER SOFTWARE 0035 * 0036 * PROGRAM LENGTH: 415 WORDS 0037 * 0038 * THIS SOURCE IS RECREATED FROM THE EXISTING SLST FILE: 0039 * - SLST-FRTN.IMG (WHICH ORIGINATES FROM HONEYWELL) 0040 * 0041 * THE SOURCE IS RECREATED BY: THEO ENGEL (THEO.ENGEL@HETNET.NL) 0042 * 0043 * SUBR F4$INT,F4IN IO INITIALISATION ROUTINE 0044 * SUBR F4$IN,F4SI GENERAL SOURCE INPUT ROUTINE 0045 * SUBR F4$OUT,F4OO GENERAL OBJECT OUTPUT ROUTINE 0046 * SUBR F4$SYM,F4LO GENERAL LISTING OUTPUT ROUTINE 0047 * SUBR F4$END,F4EN END COMPILATION 0048 * 0049 * SUBR F4$DUI,IL1 DUMMY SOURCE INPUT DRIVER 0050 * SUBR F4$DUO,OL4 DUMMY OBJECT OUTPUT DRIVER
Previous File Previous Page Single Page Next Page Next File