Trailing-Edge
-
PDP-10 Archives
-
decuslib10-06
-
43,50362/io160.scm
There are no other files named io160.scm in the archive.
File 1) DSK:IO.MAC created: 1842 18-AUG-1975
File 2) DSK:IO5.MAC created: 1716 27-MAR-1975
1)1 UNIVER IO - IOLIB UNIVERSAL PARAMETER FILE
1) SUBTTL Rob Cook Jun 75 v:5A
1) SEARCH C ;IO depends on C.MAC
1) .DIREC .NOBIN ;don't want a binary file
1) COMMENT ;
1) IO contains symbol definitions and macro definitions for use with
1) the IOLIB library of useful subroutines for MACRO-10 programmers.
1) ;
1) ; Version numbers for IO
1) VMAJOR=5 ;major version number
1) VMINOR=1 ;minor release number
1) VEDIT=160 ;latest edit number
1) VCODE=2 ;home grown at LaTrobe University
1) $$IO==BYTE (3)VCODE (9)VMA JOR (6)VMINOR (18)VEDIT
1) PURGE VMAJOR, VMINOR, VEDIT, VCODE
1)2 SUBTTL REVISION HISTORY
1) COMMENT !
1) Revisions making up version 5A of IO
1) 154 alter definition of VTEXT$ macro to get round a bug
1) introduced by MACRO v:50
1) 155 reformat prologue and epilogue to tidy it up, to take advantage
1) of some new features of MACRO v:50, and to make IO a
1) UNIVERSAL program only.
1) 156 add new symbols for the $query/$prompt system
1) 157 fix BEGIN$ macro so that $$ALLC and $$DALC are INTERNALs
1) 160 fix BEGIN$ macro so that it passes -1 to $BEGCC if CCL start
1) and want to use name of program for TMP file. Edit 216 to
1) IOLIB fixes $BEGCC.
1) !
1)3 COMMENT !
****
2)1 SUBTTL IOLIB PARAMETERS AND MACROS
2) IFNDEF %.C,<XLIST>
2) VCODE==2 ;HOMEGROWN
2) VMAJOR==5 ;MAJOR VERSION
2) VMINOR==0 ;MINOR VERSION
2) VEDIT==153 ;EDIT NUMBER
2) ;DEFINE %.C TO LIST FILE
2) ;DEFINE %.C==-1 TO ASSEMBLE IO IN BOTH PASSES
2) ;DEFINE %.C==-2 TO ALSO INCLUDE END STATEMENT
2) ;DEFINE %.C==-3 TO MAKE IO A UNIVERSAL FILE
2) ;DETERMINE IF SPECIAL ASSEMBLY NEEDED
2) IF1,<%..C==1 ;ALWAYS ASSEMBLE PASS1
2) IFDEF %.C,<IFE %.C+2,<TITLE IO -- LISTING OF IO.MAC (IOLIB PARAMETER FILE)>
2) IFE %.C+3,<UNIVERSAL IO -- IOLIB PARAMETER UNIVERSAL SYMBOL TABLE
2) IFNDEF %%C,<SEARCH C>
2) PASS2>>>
2) IF2,<IFNDEF %.C,<%.C==0
2) IFDEF $$IOL,<%.C==-1>> ;SUPPLY VALUE IF USER DIDN'T
2) %..C==%.C ;USE USER'S VALUE FOR PASS2>
2) LIST
2) SALL ;CLEAN EXPANSION LISTINGS
2) IFE %..C,<TAPE> ;SKIP REST IF NO ASSEMBLY NEEDED
2) $$IOMJ==VMAJOR
2) $$IO==<BYTE (3)VCODE (9)VMAJOR (6)VMINOR (18)VEDIT>
2) PURGE VCODE,VMAJOR,VMINOR,VEDIT
File 1) DSK:IO.MAC created: 1842 18-AUG-1975
File 2) DSK:IO5.MAC created: 1716 27-MAR-1975
2)2 SUBTTL REVISION HISTORY
2) COMMENT !
**************
1)14 SUBTTL QUERY/PRMPT SYMBOLS
1) ; VECTOR OF 1BIT FLAGS PASSED TO QUERY/PRMPT IN SECOND ARGUMENT.
1) QC$DFL==1B0 ;CALLER SUPPLIES DEFAULT
1) QC$RNG==1B1 ;CALER SUPPLIES RANGE
1) QC$MIN==1B2 ;CALLER SUPPLIED RANGE INCLUDES MINIMUM
1) QC$LRG==1B3 ;MAX. AND MIN. ARE WHOLE WORD VALUES
1) QC$EOL==1B4 ;TERMINATOR MUST BE ENDLINE
1) QC$SPC==1B5 ;WANT SPACE AFTER PROMPT CHARACTER
1) QC$TYP==77B17 ;6 BIT TYP CODE (AS EC$TYP)
1)15 SUBTTL SWITCH TABLE INDEX NAMES
****
2)13 SUBTTL SWITCH TABLE INDEX NAMES
**************
1)25 $$ALLC==:$CRGET## ;;[157] static memory management
1) $$DALC==:$CRREL##> ;[157] STATIC CORE ALLOCATION
1) IFN FT$DBG,<EXTERN $DEBUG> ;LOAD PATCH AREA
****
2)23 $$ALLC==$CRGET##
2) $$DALC==$CRREL##> ;STATIC CORE ALLOCATION
2) IFN FT$DBG,<EXTERN $DEBUG> ;LOAD PATCH AREA
**************
1)25 MOVNI T1,1 ;;[124][160] flag want to use program name>
1) IFE FT$CCL,<
****
2)23 HLRZ T1,.SGNAM ;;[124] USE PROGRAM NAME AS TEMPCORE FILENAME>
2) IFE FT$CCL,<
**************
1)27 DEFINE VT$$(VMJ,VMI,VED,VCD),<
1) DEFINE ..NUM(..N),<
****
2)25 DEFINE VTEXT$(VMJ,VMI,VED,VCD),<
2) DEFINE ..NUM(..N),<
**************
1)27 PURGE ..NUM,..ABC,..CHR,..WRD,..DEP,..T,..M>;VT$$
1) VT$$ \$VMAJ,$VMIN,\$VEDT,\$VCOD
1) PURGE VT$$>
1)28 SUBTTL MACROS TO AID ASSEMBLY
****
2)25 PURGE ..NUM,..ABC,..CHR,..WRD,..DEP,..T,..M>;VERSION
2) VTEXT$ \$VMAJ,$VMIN,\$VEDT,\$VCOD>
2)26 SUBTTL MACROS TO AID ASSEMBLY
**************
1)38 END
****
2)36 IFDEF %.C,<IFLE %.C+2,<
2) IF2,<PURGE %.C,%..C>
2) END>> ;BIND OFF TO GET CLEAN LISTING
**************