Remove need for CONST.TXT

Author: bkrug

ARRYLOAD.TXT

@@ -7,14 +7,13 @@
 * automatically.
 
 FILES  DATA FILEN1,FILEN2,FILEN3,FILEN4
-       DATA FILEN5,FILEN6,LSTEND
+       DATA FILEN5,LSTEND
 PDATAE
 FILEN1 TEXT 'DSK2.ARRYTST.O'
 FILEN2 TEXT 'DSK2.TESTUTIL.O'
 FILEN3 TEXT 'DSK2.ARRAY.O'
 FILEN4 TEXT 'DSK2.MEMBUF.O'
 FILEN5 TEXT 'DSK2.VAR.O'
-FILEN6 TEXT 'DSK2.CONST.O'
 LSTEND TEXT ' '
        EVEN
 

CONST.TXT

@@ -1,5 +1,5 @@
-       DEF  BUFINT,BUFALC,BUFCPY
-       DEF  BUFREE
+       DEF  BUFINT,BUFALC,BUFCPY,BUFREE
+       DEF  BLKUSE
 * This library of routines stores
 * chunks in a way that is inspired by
 * but different from the C language's
@@ -39,7 +39,7 @@ BUFADR BSS  >2
 BUFEND BSS  >2
 
 * Mask to set or reset the "used" bit.
-FMASK  DATA >8000
+BLKUSE DATA >8000
 
 * 
 * **** BUFINT ****
@@ -130,9 +130,9 @@ BUFALC DATA STRWS,BUFALC+4
 * greater.
        MOV  @BUFADR,R3
 SET1   MOV  *R3,R4
-       CZC  @FMASK,R4
+       CZC  @BLKUSE,R4
        JEQ  SET2
-       SZC  @FMASK,R4
+       SZC  @BLKUSE,R4
 SET3   A    R4,R3
        C    R3,@BUFEND
        JL   SET1
@@ -152,7 +152,7 @@ SET2   BL   @TRYMRG
 * Save a copy of its address.
        MOV  R3,R1
 * Mark the chunk as used
-       SOC  @FMASK,*R3
+       SOC  @BLKUSE,*R3
 * If the chunk is large enough to split,
 * do so.
 * Note that it is not possible for R4-R0
@@ -190,7 +190,7 @@ BUFREE DATA STRWS,BUFREE+4
 * before the string address.
        DECT R3
 * Mark the block free
-       SZC  @FMASK,*R3
+       SZC  @BLKUSE,*R3
 * Merge this newly freed chunk with 
 * the following chunk if it is free.
        BL   @TRYMRG
@@ -223,7 +223,7 @@ TMRG1  A    R4,R5
        C    R5,R1
        JHE  TMGR2
        MOV  *R5,R4
-       CZC  @FMASK,R4
+       CZC  @BLKUSE,R4
        JEQ  TMRG1
 * Calculate new offset
 TMGR2  MOV  R5,R4