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)VMAJOR (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, 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, 2) IFE %.C+3, 2) PASS2>>> 2) IF2,> ;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, ;SKIP REST IF NO ASSEMBLY NEEDED 2) $$IOMJ==VMAJOR 2) $$IO== 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, ;LOAD PATCH AREA **** 2)23 $$ALLC==$CRGET## 2) $$DALC==$CRREL##> ;STATIC CORE ALLOCATION 2) IFN FT$DBG, ;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, 2) END>> ;BIND OFF TO GET CLEAN LISTING **************