Trailing-Edge
-
PDP-10 Archives
-
BB-J939D-BM
-
binary/ezio20.b36
There are 3 other files named ezio20.b36 in the archive. Click here to see a list.
MODULE EZIO20 ( ! Provides basic file I/O to BLISS-36 programs
! running on TOPS-20
ENVIRONMENT (BLISS36C_OTS) ,
LINKAGE (BLISS36C) ,
IDENT = '7'
) =
!<BLF/MACRO>
!<BLF/UPPERCASE_KEY>
!<BLF/LOWERCASE_USER>
!<BLF/WIDTH:80>
BEGIN
!
! COPYRIGHT (c) 1978 BY
! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
! INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
! OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
! TRANSFERRED.
!
! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
! CORPORATION.
!
! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
!
!++
! Functional Description:
! This module declares the routines to Open, Close, Read and
! write files. The functionality provided is very basic and is intended
! only to be transportable and easy to use.
! Its counterparts on other Operating Systems are EZIO10 (TOPS-10),
! EZIO11 (RMS-11), EZIO32 (RMS-32), and EZIOFC (FCS-11).
! This module has a counter part (EZIO20) that runs under BLS36C in
! the field. This module is setup for the BLS36C calling sequence, and uses
! the BLISS-36 compiler BUILTIN JSYS. It is very dependent upon the BLISS-36
! compiler (it won't compile under BLS36C).
!
! Environment: User mode
!
! Author: Bruce Dawson, Creation Date: 16-Nov-77
!
! Modified by:
! Who, date - resultant version
! edit - explaination
! Bruce Dawson, November 21, 1977 - still version 1
! 1 - Problems when outputting a string of length 0. FILOUT affected.
! 2 - FILIN: Cleaned up ACx usage after RDTTY.
! Bruce Dawson, 30-June-78 - version 1A
! 3 - Declarations: SUCCESS changed from -1 to 1
! Bruce Dawson, 5-July-78
! 4 - FILIN: Stand-alone LF messing things up. Created the RETURN_SIZE
! macro.
! 5 - FILIN: RDTTY breaks on first character instead of waiting for next
! (possibly editing) character. Gave it 3 characters minimum.
! 6 - FILIN: If the last line of the file did not have CRLF after it,
! then it was not properly returned. It is now.
! 7 - Module Prolog, FILOPN, FILIN, FILOUT. Added (for 2nd time) the
! MAXCHANS parameter.
!--
!
! Table of Contents:
!
FORWARD ROUTINE
filopn, ! Opens a file on a channel.
filcls, ! Closes a file opened on a channel.
filin, ! Reads from a channel.
filout; ! Writes onto a channel.
!
! Macros:
!
MACRO
fld$who =
0, 18, 18, 0 %, ! Who failed.
fld$cod =
0, 0, 18, 0 %, ! ERROR CODE.
fld$lh =
0, 18, 18, 0 %,
fld$rh =
0, 0, 18, 0 %,
fld$of_bsz =
0, 30, 6, 0 %, ! Byte size
fld$of_mod =
0, 26, 3, 0 %, ! Data mode.
fld$of_rd =
0, 16, 1, 0 %, ! Read access
fld$of_wr =
0, 15, 1, 0 %, ! Write access
fld$of_ex =
0, 14, 1, 0 %, ! Execute access
fld$of_app =
0, 13, 1, 0 %, ! Append access
fld$gj_sht =
0, 18, 1, 0 %,
fld$gj_new =
0, 34, 1, 0 %,
fld$gj_fou =
0, 35, 1, 0 %,
fld$gj_old =
0, 33, 1, 0 %,
fld$rd_bel =
0, 32, 1, 0 %, ! Break at EOL
fld$gs_eof =
0, 27, 1, 0 %, ! Read past EOF.
fld$rd_btm =
0, 23, 1, 0 %; ! Break character terminated input.
MACRO ! CROCKS
jsys_crock (typ, fun, a1, a2, a3, a4) =
BEGIN
REGISTER
rac1 = 1,
rac2 = 2,
rac3 = 3,
rac4 = 4;
BUILTIN
jsys;
LOCAL
val;
%IF NOT %NULL (a1)
%THEN
rac1 = .a1;
%FI
%IF NOT %NULL (a2)
%THEN
rac2 = .a2;
%FI
%IF NOT %NULL (a3)
%THEN
rac3 = .a3;
%FI
%IF NOT %NULL (a4)
%THEN
rac4 = .a4;
%FI
val = jsys (typ, fun, rac1, rac2, rac3, rac4);
%IF NOT %NULL (a1)
%THEN
%IF %DECLARED (a1)
%THEN
a1 = .rac1;
%FI
%FI
%IF NOT %NULL (a2)
%THEN
%IF %DECLARED (a2)
%THEN
a2 = .rac2;
%FI
%FI
%IF NOT %NULL (a3)
%THEN
%IF %DECLARED (a3)
%THEN
a3 = .rac3;
%FI
%FI
%IF NOT %NULL (a4)
%THEN
%IF %DECLARED (a4)
%THEN
a4 = .rac4;
%FI
%FI
.val
END %;
!
! Equated Symbols:
!
LITERAL
maxchans = 3, ! Maximum number of channels (biased at 0)
success = 1, ! Return to call successfully completed.
failure = 0, ! Return to caller after an error.
myspacesize = 1000; ! Number of bytes in my buffer
LITERAL ! JSYS definitions
gtjfn = %O'20', ! Get a JFN
openf = %O'21', ! Open a file
closf = %O'22', ! Close a JFN
gtsts = %O'24', ! Get JFN status
rdtty = %O'523', ! Read from TTY
sin = %O'52', ! String input.
sout = %O'53', ! String output
psout = %O'76'; ! String output to TTY:
!
! OWN storage
!
OWN
chan_tab : VECTOR [maxchans] INITIAL(REP maxchans OF (0)),
! Table of JFNs for each channel opened.
error : BLOCK [1], ! Has error on a JSYS failure. Not of use yet,
crlf : VECTOR [CH$ALLOCATION (2)] INITIAL(%CHAR (%O'15', %O'12')),
! A string with CRLF in it.
space : VECTOR [CH$ALLOCATION(myspacesize)]; ! Workspace.
GLOBAL ROUTINE filopn (channel, num_chars, filespec, direction) =
! Open a file
!++
! Functional Description:
! This routine Opens a file for either Input or Output on the
! specified channel. If it fails (syntax error in file name, non-
! existant file on input, etc...), the routine returns 0 (False).
! Otherwise it returns a nonzero value.
!
! Formal Parameters:
! CHANNEL: A number between -1 and 2. Subsequent I/O to the file
! must specify this channel number. (-1 means the TTY:)
! NUM_CHARS: The number of ASCII bytes in the filename.
! FILESPEC: A BLISS-36 character pointer pointing to the first
! character of the filename.
! DIRECTION: If 1 then the file will be opened for WRITE access.
! Otherwise it will be opened for reading.
!
! Implicit Inputs:
! CHAN_TAB: Contains the JFN for the respective channel.
!
! Implicit Outputs:
! CHAN_TAB: If a file was successfully opened, then contains the
! JFN for that file on this channel.
! ERROR: If any JSYS fails, then this contains the failing JSYS
! and the error returned by the JSYS.
!
! Completion Codes:
! 0 = Could not open file.
! #0 = File opened.
!
! Side effects:
! OWN variable SPACE is used to hold the filespec in ASCIZ
! format.
!--
BEGIN
LOCAL
ac1 : BLOCK [1], ! Parameter for JSYS
ac2 : BLOCK [1]; ! Parameter for JSYS
IF .channel GTR maxchans - 1
THEN RETURN failure;
IF .channel EQL -1
THEN ! TTY I/O always works, therefore always return
RETURN success;
IF .chan_tab [.channel] NEQ 0
THEN ! Channel already opened.
BEGIN
error = 0; ! Indicate "nonsense call" error.
RETURN failure; ! Chastise caller.
END;
CH$MOVE (.num_chars, .filespec, CH$PTR (space));
! Move caller's filespec to my work space
CH$WCHAR (0, CH$PLUS (CH$PTR (space), .num_chars)); ! Make it ASCIZ
ac1 = 0; ! Clear AC1 first
ac1 [fld$gj_sht] = 1; ! Short form for defaulting
IF .direction EQL 1 ! Writing
THEN
BEGIN
ac1 [fld$gj_fou] = 1; ! New generation number
ac1 [fld$gj_new] = 1;
END
ELSE
BEGIN
ac1 [fld$gj_old] = 1;
END;
ac2 = CH$PTR (space);
IF jsys_crock (1, gtjfn, ac1, ac2)
THEN
chan_tab [.channel] = .ac1 [fld$rh]
! Set channel to open on successful monitor return
ELSE
BEGIN ! JSYS failed.
error [fld$who] = gtjfn;
error [fld$cod] = .ac1;
RETURN failure; ! Tell caller.
END;
ac1 = .chan_tab [.channel]; ! Get JFN.
ac2 = 0;
ac2 [fld$of_bsz] = 7; ! Byte size is 7 bits for ASCII
ac2 [fld$of_mod] = 0; ! Mode is zero for text file.
! Set proper bits for reading or writing.
IF .direction EQL 1
THEN
ac2 [fld$of_wr] = 1
ELSE
ac2 [fld$of_rd] = 1;
IF jsys_crock (1, openf, ac1, ac2)
THEN
RETURN success ! OPENF worked. Channel is now available for use.
ELSE
BEGIN ! OPENF failed.
error [fld$who] = openf;
error [fld$cod] = .ac1;
RETURN failure; ! Tell user.
END;
END;
GLOBAL ROUTINE filcls (channel) =
! Close the file on the specified channel.
!++
! Functional Description:
! This routine closes the file opened on the specified channel.
!
! Formal Parameters:
! CHANNEL: A number between -1 and 2 specifing the channel to close.
!
! Implicit Inputs:
! CHAN_TAB: If the respective entry for the channel already has a
! zero, then this indicates that the channel has already been
! closed (or never opened). An error return is given to tell
! the user that the call was nonsense.
!
! Implicit Outputs:
! CHAN_TAB: The respective entry for the channel is made zero to
! indicate the channel is closed.
! ERROR: If an error was encountered, then this is changed to indicate
! who caused the error, and what the error was.
!
! Completion Codes:
! 0 = Nonsense call or JSYS failure.
! #0 = Successful return.
!
! Side effects: None
!--
!
BEGIN
LOCAL
ac1 : BLOCK [1]; ! Parameter for JSYS
IF .channel GTR maxchans - 1
THEN RETURN failure;
IF .channel EQL -1
THEN
RETURN success; ! Don't worry about TTY:
IF .chan_tab [.channel] EQL 0
THEN
BEGIN ! Nonsense call.
error = 0; ! Inform caller of such.
RETURN failure;
END;
ac1 = .chan_tab [.channel]; ! Get JFN
IF NOT jsys_crock (1, closf, ac1)
THEN
BEGIN ! CLOSF JSYS failed.
error [fld$who] = closf; ! Indicate which JSYS failed;
error [fld$cod] = .ac1; ! And save error code
RETURN failure; ! Inform caller.
END;
chan_tab [.channel] = 0;
RETURN success;
END;
GLOBAL ROUTINE filin (channel, bufsiz, pointer) =
! Read from the channel.
!++
! Functional Description:
! This routine reads data from the specified channel and
! deposits it in the specified string. Data transfer stops if
! CRLF is encountered or if the string is filled.
! Returns the number of characters transefered to the string,
! (0 characters means a null line), or -1 for EOF.
! The CRLF is trimmed from the returned string. Line numbers are
! ignored (won't appear in the string).
!
! Formal Parameters:
! CHANNEL: A number between -1 and 2 specifiing the channel from
! which to read from.
! BUFSIZ: The maximum number of characters to transfer to the string.
! POINTER: A BLISS-36 character pointer pointing to the string to
! which data is to be transfered.
!
! Implicit Inputs:
! CHAN_TAB: Used to determine the JFN for the respective channel.
!
! Implicit Outputs:
! ERROR: If an error occurs, then ERROR si changed to indicate who
! caused the error and what the error was.
!
! Condition Codes:
! Routine Value:
! -1 if EOF encountered.
! -2 if an error happened.
! >=0 if data was successfully transfered.
!
! Side Effects: None
!--
BEGIN
LOCAL
ac1 : BLOCK [1], ! Parameter for JSYS
ac2 : BLOCK [1], ! Parameter for JSYS
ac3 : BLOCK [1], ! Parameter for JSYS
ac4 : BLOCK [1]; ! Parameter for JSYS
LOCAL
len, ! Number of characters left in buffer
updptr; ! Updated string pointer from SIN
MACRO
return_size = ! Return the size of the string
IF CH$RCHAR (CH$PLUS (.updptr, -2)) LEQ %O'15'
AND CH$RCHAR (CH$PLUS (.updptr, -2)) GEQ %O'13'
! See if line terminator or full buffer
THEN
RETURN MAX (.bufsiz - .len - 2, 0)
! Effectively remove CRLF by returning shorter length
ELSE
IF .len EQL 0
THEN RETURN .bufsiz ! Full buffer
! WARNING*** This MUST be the last line of the macro, and can't have a ";"
ELSE RETURN .bufsiz - .len - 1 ! Everything up to LF
%;
IF .channel GTR maxchans - 1
THEN RETURN failure;
IF .channel EQL -1
THEN ! Read from TTY:
BEGIN
ac1 = CH$PTR (space); ! Point to buffer
ac2 = 0;
ac2 [fld$rd_bel] = 1; ! Set Break On End Of Line
ac2 [fld$rh] = MAX (.bufsiz+2, myspacesize); ! Set max size of string
ac3 = 0; ! No prompting
IF jsys_crock (1, rdtty, ac1, ac2, ac3)
! Use RDTTY so user can edit input.
THEN
BEGIN
!
! Return length of input string.
!
ROUTINE acutalsize (len, updptr, bufsiz) =
return_size;
LOCAL
len;
len = acutalsize (.ac2[fld$rh], .ac1, myspacesize);
CH$MOVE (.len, CH$PTR (space), .pointer);
RETURN .len;
END
ELSE
BEGIN ! RDTTY Failed.
error [fld$who] = rdtty;
error [fld$cod] = .ac1;
RETURN -2; ! Inform caller.
END;
END;
!
! Got here if NOT reading from TTY:.
!
ac1 = .chan_tab [.channel]; ! Get JFN
ac2 = .pointer; ! Get input buffer pointer.
ac3 = .bufsiz; ! Get max. buffer size
ac4 = %O'12'; ! Break on <LF>
IF jsys_crock (-1, sin, ac1, ac2, ac3, ac4)
THEN
BEGIN
len = .AC3;
updptr = .AC2;
return_size;
END
ELSE
BEGIN ! SIN JSYS failed, find out why.
len = .ac3; ! Preserve returned length of string
error [fld$who] = sin; ! Preset who failed.
error [fld$cod] = .ac1; ! Preset why it failed.
ac1 = .chan_tab [.channel]; ! Get JFN
ac2 = 0;
jsys_crock (0, gtsts, ac1, ac2);
! See what monitor thinks of file.
IF .ac2 [fld$gs_eof]
THEN
IF .len EQL .bufsiz ! See if nothing actually read
THEN RETURN -1
ELSE return_size + 1
ELSE RETURN -2; ! Indicate error occurred.
END;
END;
GLOBAL ROUTINE filout (channel, num_chars, pointer) =
! Write data on a channel.
!++
! Functional Description:
! This routine writes data from the specified string to the
! specified channel. A CRLF is appended to the data after output.
! Will return an error (zero) if NUM_CHARS is less than zero,
! or if a JSYS failed.
!
! Formal Parameters:
! CHANNEL: A number between -1 and 2 that specifies the channel which
! output is to occur on.
! NUM_CHARS: The number of characters in the string.
! POINTER: A BLISS-36 character pointer pointing to the string
! from which data is transfered.
!
! Implicit Inputs:
! CHAN_TAB: Used to determine the JFN for the channel.
!
! Implicit Outputs:
! ERROR: If an error occurs, then this will contain who caused the
! error, and the error code.
!
! Completion Codes:
! 0 = Error occured.
! #0 = Data transfer completed without errors.
!
! Side Effects: None
!--
BEGIN
LOCAL
ac1 : BLOCK [1], ! Parameter to JSYS
ac2 : BLOCK [1], ! Parameter to JSYS
ac3 : BLOCK [1], ! Parameter to JSYS
ac4 : BLOCK [1]; ! Parameter to JSYS
IF .channel GTR maxchans - 1
THEN RETURN failure;
IF .num_chars LSS 0 ! Nonsense call check.
THEN
RETURN failure; ! Chastise caller.
IF .channel EQL -1
THEN
BEGIN ! Use PSOUT for TTY.
IF .num_chars GTR 0
THEN
BEGIN
CH$MOVE (.num_chars, .pointer, CH$PTR (space));
! Move his string to my work space
CH$WCHAR (%O'15', CH$PLUS (CH$PTR (space), .num_chars));
! Append CR
CH$WCHAR (%O'12', CH$PLUS (CH$PTR (space), .num_chars + 1));
! And LF
CH$WCHAR (0, CH$PLUS (CH$PTR (space), .num_chars + 2));
! Make the whole thing ASCIZ.
ac1 = CH$PTR (space); ! Set up for monitor call.
END
ELSE
ac1 = CH$PTR (crlf);
IF NOT jsys_crock (-1, psout, ac1)
THEN
BEGIN ! Failed for some reason
error [fld$cod] = psout; ! Record who failed.
error [fld$who] = .ac1; ! Record why.
RETURN failure; ! Inform caller
END
ELSE
RETURN success; ! Done, return to caller.
END;
!
! Got here if NOT writing to TTY:.
!
IF .num_chars GTR 0
THEN
BEGIN
ac1 = .chan_tab [.channel]; ! Get JFN
ac2 = .pointer; ! Get string pointer
ac3 = -.num_chars; ! Get negative number chars in string
ac4 = 0; ! Don't break output.
IF NOT jsys_crock (-1, sout, ac1, ac2, ac3, ac4)
THEN
BEGIN ! Indicate error
error [fld$who] = sout;
error [fld$cod] = .ac1;
RETURN failure;
END;
END;
ac1 = .chan_tab [.channel];
ac2 = CH$PTR (crlf);
ac3 = -2;
ac4 = 0;
IF jsys_crock (-1, sout, ac1, ac2, ac3, ac4)
THEN
RETURN success;
!
! Got here if an error occured above.
!
error [fld$who] = sout;
error [fld$cod] = .ac1;
RETURN failure;
END;
END
ELUDOM