PDP-10 Archive: mcb/vnp36/blockh.req from TOPS-20_V6.1_DECnetSrc

Trailing-Edge - PDP-10 Archives - TOPS-20_V6.1_DECnetSrc_7-23-85 - mcb/vnp36/blockh.req
There are 4 other files named blockh.req in the archive. Click here to see a list.
!                    COPYRIGHT (c) 1980, 1981, 1982
!                    DIGITAL EQUIPMENT CORPORATION
!                        Maynard, Massachusetts
!
!     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.


!
! THIS FILE, BLOCKH.REQ, CONTAINS THE DEFINITIONS USED TO
!  SUPPORT DEFINING THE STORAGE BLOCKS USED BY THE TASK BUILDER.
!

COMPILETIME
    DATA_L_WORD = (0),
    DATA_L_BIT = (0),
    DATA_L_FNX = (0);

MACRO
    DATA_L_EQUAL (WRD, BITX) =
!
! SET 'LOCATION COUNTER'.
!
 %ASSIGN (DATA_L_WORD,WRD)
 %ASSIGN (DATA_L_BIT,BITX) %,
    DATA_L_INC (WRD, BITX) =
!
! INCREMENT 'LOCATION COUNTER'.
!
 %ASSIGN (DATA_L_WORD,DATA_L_WORD+(WRD))
 %ASSIGN (DATA_L_BIT,DATA_L_BIT+(BITX))
 %IF ((DATA_L_BIT) GEQ %BPVAL) %THEN
  %ASSIGN (DATA_L_WORD,DATA_L_WORD+(DATA_L_BIT/%BPVAL))
  %ASSIGN (DATA_L_BIT,DATA_L_BIT MOD %BPVAL)
 %FI %,
    DATA_L_WB =
!
! FORCE A WORD BOUNDRY
!
 %IF (DATA_L_BIT NEQ 0) %THEN
  %ASSIGN (DATA_L_WORD,DATA_L_WORD+1)
  %ASSIGN (DATA_L_BIT,0)
 %FI %,
    DATA_L_HWB =
!
! FORCE AN ADDRESS BOUNDRY (HALF WORD)
!
 %IF ((DATA_L_BIT MOD %BPADDR) NEQ 0) %THEN
  DATA_L_INC(0,(%BPADDR - (DATA_L_BIT MOD %BPADDR)))
 %FI %;

!
! TOP-LEVEL MACROS USED TO RESERVE SPACE IN THE BLOCKS
!

MACRO
    SBLOCK (SNAME, BLOCK_TYPE) =
!
! START DEFINING A BLOCK
!
 LITERAL %NAME(SNAME,'_TYP') = BLOCK_TYPE;
 MACRO DATA_L_NAME = %UNQUOTE SNAME %QUOTE % ;
 DATA_L_EQUAL(0,0)
 %ASSIGN (DATA_L_FNX,0)
 MACRO APPMAC (STRNAM) =

 FIELD %NAME(SNAME,'_FLD') = SET
 %QUOTE % ; 
%,
    EBLOCK (SNAME) =
!
! END THE BLOCK DEFINITION
!
 MACRO APPMACE (STRNAM) =
   TES;
 %QUOTE %  ;
 DATA_L_WB !FORCE TO WORD BOUNDRY
 LITERAL %NAME(SNAME,'_LEN') = DATA_L_WORD;
!
! NOW DEFINE THE FIELD SET
!
  APPMAC (SNAME)
 %IF (DATA_L_FNX GTR 0) %THEN APPMAC0 %FI
 %IF (DATA_L_FNX GTR 1) %THEN APPMAC1 %FI
 %IF (DATA_L_FNX GTR 2) %THEN APPMAC2 %FI
 %IF (DATA_L_FNX GTR 3) %THEN APPMAC3 %FI
 %IF (DATA_L_FNX GTR 4) %THEN APPMAC4 %FI
 %IF (DATA_L_FNX GTR 5) %THEN APPMAC5 %FI
 %IF (DATA_L_FNX GTR 6) %THEN APPMAC6 %FI
 %IF (DATA_L_FNX GTR 7) %THEN APPMAC7 %FI
 %IF (DATA_L_FNX GTR 8) %THEN APPMAC8 %FI
 %IF (DATA_L_FNX GTR 9) %THEN APPMAC9 %FI
 %IF (DATA_L_FNX GTR 10) %THEN APPMAC10 %FI
 %IF (DATA_L_FNX GTR 11) %THEN APPMAC11 %FI
 %IF (DATA_L_FNX GTR 12) %THEN APPMAC12 %FI
 %IF (DATA_L_FNX GTR 13) %THEN APPMAC13 %FI
 %IF (DATA_L_FNX GTR 14) %THEN APPMAC14 %FI
 %IF (DATA_L_FNX GTR 15) %THEN APPMAC15 %FI
 %IF (DATA_L_FNX GTR 16) %THEN APPMAC16 %FI
 %IF (DATA_L_FNX GTR 17) %THEN APPMAC17 %FI
 %IF (DATA_L_FNX GTR 18) %THEN APPMAC18 %FI
 %IF (DATA_L_FNX GTR 19) %THEN APPMAC19 %FI
 %IF (DATA_L_FNX GTR 20) %THEN APPMAC20 %FI
 %IF (DATA_L_FNX GTR 21) %THEN APPMAC21 %FI
 %IF (DATA_L_FNX GTR 22) %THEN APPMAC22 %FI
 %IF (DATA_L_FNX GTR 23) %THEN APPMAC23 %FI
 %IF (DATA_L_FNX GTR 24) %THEN APPMAC24 %FI
 %IF (DATA_L_FNX GTR 25) %THEN APPMAC25 %FI
 %IF (DATA_L_FNX GTR 26) %THEN APPMAC26 %FI
 %IF (DATA_L_FNX GTR 27) %THEN APPMAC27 %FI
 %IF (DATA_L_FNX GTR 28) %THEN APPMAC28 %FI
 %IF (DATA_L_FNX GTR 29) %THEN APPMAC29 %FI
 %IF (DATA_L_FNX GTR 30) %THEN APPMAC30 %FI
 %IF (DATA_L_FNX GTR 31) %THEN APPMAC31 %FI
 %IF (DATA_L_FNX GTR 32) %THEN APPMAC32 %FI
 %IF (DATA_L_FNX GTR 33) %THEN APPMAC33 %FI
 %IF (DATA_L_FNX GTR 34) %THEN APPMAC34 %FI
 %IF (DATA_L_FNX GTR 35) %THEN APPMAC35 %FI
 %IF (DATA_L_FNX GTR 36) %THEN APPMAC36 %FI
 %IF (DATA_L_FNX GTR 37) %THEN APPMAC37 %FI
 %IF (DATA_L_FNX GTR 38) %THEN APPMAC38 %FI
 %IF (DATA_L_FNX GTR 39) %THEN APPMAC39 %FI
 %IF (DATA_L_FNX GTR 40) %THEN APPMAC40 %FI
 %IF (DATA_L_FNX GTR 41) %THEN APPMAC41 %FI
 %IF (DATA_L_FNX GTR 42) %THEN APPMAC42 %FI
 %IF (DATA_L_FNX GTR 43) %THEN APPMAC43 %FI
 %IF (DATA_L_FNX GTR 44) %THEN APPMAC44 %FI
 %IF (DATA_L_FNX GTR 45) %THEN APPMAC45 %FI
 %IF (DATA_L_FNX GTR 46) %THEN APPMAC46 %FI
 %IF (DATA_L_FNX GTR 47) %THEN APPMAC47 %FI
 %IF (DATA_L_FNX GTR 48) %THEN APPMAC48 %FI
 %IF (DATA_L_FNX GTR 49) %THEN APPMAC49 %FI
 %IF (DATA_L_FNX GTR 50) %THEN APPMAC50 %FI
 %IF (DATA_L_FNX GTR 51) %THEN APPMAC51 %FI
 %IF (DATA_L_FNX GTR 52) %THEN APPMAC52 %FI
 %IF (DATA_L_FNX GTR 53) %THEN APPMAC53 %FI
 %IF (DATA_L_FNX GTR 54) %THEN APPMAC54 %FI
 %IF (DATA_L_FNX GTR 55) %THEN APPMAC55 %FI
 %IF (DATA_L_FNX GTR 56) %THEN APPMAC56 %FI
 %IF (DATA_L_FNX GTR 57) %THEN APPMAC57 %FI
 %IF (DATA_L_FNX GTR 58) %THEN APPMAC58 %FI
 %IF (DATA_L_FNX GTR 59) %THEN APPMAC59 %FI
 %IF (DATA_L_FNX GTR 60) %THEN APPMAC60 %FI
 %IF (DATA_L_FNX GTR 61) %THEN APPMAC61 %FI
 %IF (DATA_L_FNX GTR 62) %THEN APPMAC62 %FI
 %IF (DATA_L_FNX GTR 63) %THEN APPMAC63 %FI
%IF (DATA_L_FNX GTR 64) %THEN APPMAC64 %FI
%IF (DATA_L_FNX GTR 65) %THEN APPMAC65 %FI
%IF (DATA_L_FNX GTR 66) %THEN APPMAC66 %FI
%IF (DATA_L_FNX GTR 67) %THEN APPMAC67 %FI
%IF (DATA_L_FNX GTR 68) %THEN APPMAC68 %FI
%IF (DATA_L_FNX GTR 69) %THEN APPMAC69 %FI
%IF (DATA_L_FNX GTR 70) %THEN APPMAC70 %FI
%IF (DATA_L_FNX GTR 71) %THEN APPMAC71 %FI
%IF (DATA_L_FNX GTR 72) %THEN APPMAC72 %FI
%IF (DATA_L_FNX GTR 73) %THEN APPMAC73 %FI
%IF (DATA_L_FNX GTR 74) %THEN APPMAC74 %FI
%IF (DATA_L_FNX GTR 75) %THEN APPMAC75 %FI
%IF (DATA_L_FNX GTR 76) %THEN APPMAC76 %FI
%IF (DATA_L_FNX GTR 77) %THEN APPMAC77 %FI
%IF (DATA_L_FNX GTR 78) %THEN APPMAC78 %FI
%IF (DATA_L_FNX GTR 79) %THEN APPMAC79 %FI
%IF (DATA_L_FNX GTR 80) %THEN APPMAC80 %FI
%IF (DATA_L_FNX GTR 81) %THEN APPMAC81 %FI
%IF (DATA_L_FNX GTR 82) %THEN APPMAC82 %FI
%IF (DATA_L_FNX GTR 83) %THEN APPMAC83 %FI
%IF (DATA_L_FNX GTR 84) %THEN APPMAC84 %FI
%IF (DATA_L_FNX GTR 85) %THEN APPMAC85 %FI
%IF (DATA_L_FNX GTR 86) %THEN APPMAC86 %FI
%IF (DATA_L_FNX GTR 87) %THEN APPMAC87 %FI
%IF (DATA_L_FNX GTR 88) %THEN APPMAC88 %FI
%IF (DATA_L_FNX GTR 89) %THEN APPMAC89 %FI
%IF (DATA_L_FNX GTR 90) %THEN APPMAC90 %FI
%IF (DATA_L_FNX GTR 91) %THEN APPMAC91 %FI
%IF (DATA_L_FNX GTR 92) %THEN APPMAC92 %FI
%IF (DATA_L_FNX GTR 93) %THEN APPMAC93 %FI
%IF (DATA_L_FNX GTR 94) %THEN APPMAC94 %FI
%IF (DATA_L_FNX GTR 95) %THEN APPMAC95 %FI
%IF (DATA_L_FNX GTR 96) %THEN APPMAC96 %FI
%IF (DATA_L_FNX GTR 97) %THEN APPMAC97 %FI
%IF (DATA_L_FNX GTR 98) %THEN APPMAC98 %FI
%IF (DATA_L_FNX GTR 99) %THEN APPMAC99 %FI
 %IF (DATA_L_FNX GTR 100) %THEN APPMAC100 %FI
 %IF (DATA_L_FNX GTR 101) %THEN APPMAC101 %FI
 %IF (DATA_L_FNX GTR 102) %THEN APPMAC102 %FI
 %IF (DATA_L_FNX GTR 103) %THEN APPMAC103 %FI
 %IF (DATA_L_FNX GTR 104) %THEN APPMAC104 %FI
 %IF (DATA_L_FNX GTR 105) %THEN APPMAC105 %FI
 %IF (DATA_L_FNX GTR 106) %THEN APPMAC106 %FI
 %IF (DATA_L_FNX GTR 107) %THEN APPMAC107 %FI
 %IF (DATA_L_FNX GTR 108) %THEN APPMAC108 %FI
 %IF (DATA_L_FNX GTR 109) %THEN APPMAC109 %FI
 %IF (DATA_L_FNX GTR 110) %THEN APPMAC110 %FI
 %IF (DATA_L_FNX GTR 111) %THEN APPMAC111 %FI
 %IF (DATA_L_FNX GTR 112) %THEN APPMAC112 %FI
 %IF (DATA_L_FNX GTR 113) %THEN APPMAC113 %FI
 %IF (DATA_L_FNX GTR 114) %THEN APPMAC114 %FI
 %IF (DATA_L_FNX GTR 115) %THEN APPMAC115 %FI
 %IF (DATA_L_FNX GTR 116) %THEN APPMAC116 %FI
 %IF (DATA_L_FNX GTR 117) %THEN APPMAC117 %FI
 %IF (DATA_L_FNX GTR 118) %THEN APPMAC118 %FI
 %IF (DATA_L_FNX GTR 119) %THEN APPMAC119 %FI
 %IF (DATA_L_FNX GTR 120) %THEN APPMAC120 %FI
 %IF (DATA_L_FNX GTR 121) %THEN APPMAC121 %FI
 %IF (DATA_L_FNX GTR 122) %THEN APPMAC122 %FI
 %IF (DATA_L_FNX GTR 123) %THEN APPMAC123 %FI
 %IF (DATA_L_FNX GTR 124) %THEN APPMAC124 %FI
 %IF (DATA_L_FNX GTR 125) %THEN APPMAC125 %FI
 %IF (DATA_L_FNX GTR 126) %THEN APPMAC126 %FI
 %IF (DATA_L_FNX GTR 127) %THEN APPMAC127 %FI
 %IF (DATA_L_FNX GTR 128) %THEN APPMAC128 %FI
 %IF (DATA_L_FNX GTR 129) %THEN APPMAC129 %FI
 %IF (DATA_L_FNX GTR 130) %THEN APPMAC130 %FI
 %IF (DATA_L_FNX GTR 131) %THEN APPMAC131 %FI
 %IF (DATA_L_FNX GTR 132) %THEN APPMAC132 %FI
 %IF (DATA_L_FNX GTR 133) %THEN APPMAC133 %FI
 %IF (DATA_L_FNX GTR 134) %THEN APPMAC134 %FI
 %IF (DATA_L_FNX GTR 135) %THEN APPMAC135 %FI
 %IF (DATA_L_FNX GTR 136) %THEN APPMAC136 %FI
 %IF (DATA_L_FNX GTR 137) %THEN APPMAC137 %FI
 %IF (DATA_L_FNX GTR 138) %THEN APPMAC138 %FI
 %IF (DATA_L_FNX GTR 139) %THEN APPMAC139 %FI
 %IF (DATA_L_FNX GTR 140) %THEN APPMAC140 %FI
 %IF (DATA_L_FNX GTR 141) %THEN APPMAC141 %FI
 %IF (DATA_L_FNX GTR 142) %THEN APPMAC142 %FI
 %IF (DATA_L_FNX GTR 143) %THEN APPMAC143 %FI
 %IF (DATA_L_FNX GTR 144) %THEN APPMAC144 %FI
 %IF (DATA_L_FNX GTR 145) %THEN APPMAC145 %FI
 %IF (DATA_L_FNX GTR 146) %THEN APPMAC146 %FI
 %IF (DATA_L_FNX GTR 147) %THEN APPMAC147 %FI
 %IF (DATA_L_FNX GTR 148) %THEN APPMAC148 %FI
 %IF (DATA_L_FNX GTR 149) %THEN APPMAC149 %FI
 %IF (DATA_L_FNX GTR 150) %THEN APPMAC150 %FI
 %IF (DATA_L_FNX GTR 151) %THEN APPMAC151 %FI
 %IF (DATA_L_FNX GTR 152) %THEN APPMAC152 %FI
 %IF (DATA_L_FNX GTR 153) %THEN APPMAC153 %FI
 %IF (DATA_L_FNX GTR 154) %THEN APPMAC154 %FI
 %IF (DATA_L_FNX GTR 155) %THEN APPMAC155 %FI
 %IF (DATA_L_FNX GTR 156) %THEN APPMAC156 %FI
 %IF (DATA_L_FNX GTR 157) %THEN APPMAC157 %FI
 %IF (DATA_L_FNX GTR 158) %THEN APPMAC158 %FI
 %IF (DATA_L_FNX GTR 159) %THEN APPMAC159 %FI
 %IF (DATA_L_FNX GTR 160) %THEN APPMAC160 %FI
 %IF (DATA_L_FNX GTR 161) %THEN APPMAC161 %FI
 %IF (DATA_L_FNX GTR 162) %THEN APPMAC162 %FI
 %IF (DATA_L_FNX GTR 163) %THEN APPMAC163 %FI
%IF (DATA_L_FNX GTR 164) %THEN APPMAC164 %FI
%IF (DATA_L_FNX GTR 165) %THEN APPMAC165 %FI
%IF (DATA_L_FNX GTR 166) %THEN APPMAC166 %FI
%IF (DATA_L_FNX GTR 167) %THEN APPMAC167 %FI
%IF (DATA_L_FNX GTR 168) %THEN APPMAC168 %FI
%IF (DATA_L_FNX GTR 169) %THEN APPMAC169 %FI
%IF (DATA_L_FNX GTR 170) %THEN APPMAC170 %FI
%IF (DATA_L_FNX GTR 171) %THEN APPMAC171 %FI
%IF (DATA_L_FNX GTR 172) %THEN APPMAC172 %FI
%IF (DATA_L_FNX GTR 173) %THEN APPMAC173 %FI
%IF (DATA_L_FNX GTR 174) %THEN APPMAC174 %FI
%IF (DATA_L_FNX GTR 175) %THEN APPMAC175 %FI
%IF (DATA_L_FNX GTR 176) %THEN APPMAC176 %FI
%IF (DATA_L_FNX GTR 177) %THEN APPMAC177 %FI
%IF (DATA_L_FNX GTR 178) %THEN APPMAC178 %FI
%IF (DATA_L_FNX GTR 179) %THEN APPMAC179 %FI
%IF (DATA_L_FNX GTR 180) %THEN APPMAC180 %FI
%IF (DATA_L_FNX GTR 181) %THEN APPMAC181 %FI
%IF (DATA_L_FNX GTR 182) %THEN APPMAC182 %FI
%IF (DATA_L_FNX GTR 183) %THEN APPMAC183 %FI
%IF (DATA_L_FNX GTR 184) %THEN APPMAC184 %FI
%IF (DATA_L_FNX GTR 185) %THEN APPMAC185 %FI
%IF (DATA_L_FNX GTR 186) %THEN APPMAC186 %FI
%IF (DATA_L_FNX GTR 187) %THEN APPMAC187 %FI
%IF (DATA_L_FNX GTR 188) %THEN APPMAC188 %FI
%IF (DATA_L_FNX GTR 189) %THEN APPMAC189 %FI
%IF (DATA_L_FNX GTR 190) %THEN APPMAC190 %FI
%IF (DATA_L_FNX GTR 191) %THEN APPMAC191 %FI
%IF (DATA_L_FNX GTR 192) %THEN APPMAC192 %FI
%IF (DATA_L_FNX GTR 193) %THEN APPMAC193 %FI
%IF (DATA_L_FNX GTR 194) %THEN APPMAC194 %FI
%IF (DATA_L_FNX GTR 195) %THEN APPMAC195 %FI
%IF (DATA_L_FNX GTR 196) %THEN APPMAC196 %FI
%IF (DATA_L_FNX GTR 197) %THEN APPMAC197 %FI
%IF (DATA_L_FNX GTR 198) %THEN APPMAC198 %FI
%IF (DATA_L_FNX GTR 199) %THEN APPMAC199 %FI
 %IF (DATA_L_FNX GTR 200) %THEN APPMAC200 %FI
 %IF (DATA_L_FNX GTR 201) %THEN APPMAC201 %FI
 %IF (DATA_L_FNX GTR 202) %THEN APPMAC202 %FI
 %IF (DATA_L_FNX GTR 203) %THEN APPMAC203 %FI
 %IF (DATA_L_FNX GTR 204) %THEN APPMAC204 %FI
 %IF (DATA_L_FNX GTR 205) %THEN APPMAC205 %FI
 %IF (DATA_L_FNX GTR 206) %THEN APPMAC206 %FI
 %IF (DATA_L_FNX GTR 207) %THEN APPMAC207 %FI
 %IF (DATA_L_FNX GTR 208) %THEN APPMAC208 %FI
 %IF (DATA_L_FNX GTR 209) %THEN APPMAC209 %FI
 %IF (DATA_L_FNX GTR 210) %THEN APPMAC210 %FI
 %IF (DATA_L_FNX GTR 211) %THEN APPMAC211 %FI
 %IF (DATA_L_FNX GTR 212) %THEN APPMAC212 %FI
 %IF (DATA_L_FNX GTR 213) %THEN APPMAC213 %FI
 %IF (DATA_L_FNX GTR 214) %THEN APPMAC214 %FI
 %IF (DATA_L_FNX GTR 215) %THEN APPMAC215 %FI
 %IF (DATA_L_FNX GTR 216) %THEN APPMAC216 %FI
 %IF (DATA_L_FNX GTR 217) %THEN APPMAC217 %FI
 %IF (DATA_L_FNX GTR 218) %THEN APPMAC218 %FI
 %IF (DATA_L_FNX GTR 219) %THEN APPMAC219 %FI
 %IF (DATA_L_FNX GTR 220) %THEN APPMAC220 %FI
 %IF (DATA_L_FNX GTR 221) %THEN APPMAC221 %FI
 %IF (DATA_L_FNX GTR 222) %THEN APPMAC222 %FI
 %IF (DATA_L_FNX GTR 223) %THEN APPMAC223 %FI
 %IF (DATA_L_FNX GTR 224) %THEN APPMAC224 %FI
 %IF (DATA_L_FNX GTR 225) %THEN APPMAC225 %FI
 %IF (DATA_L_FNX GTR 226) %THEN APPMAC226 %FI
 %IF (DATA_L_FNX GTR 227) %THEN APPMAC227 %FI
 %IF (DATA_L_FNX GTR 228) %THEN APPMAC228 %FI
 %IF (DATA_L_FNX GTR 229) %THEN APPMAC229 %FI
 %IF (DATA_L_FNX GTR 230) %THEN APPMAC230 %FI
 %IF (DATA_L_FNX GTR 231) %THEN APPMAC231 %FI
 %IF (DATA_L_FNX GTR 232) %THEN APPMAC232 %FI
 %IF (DATA_L_FNX GTR 233) %THEN APPMAC233 %FI
 %IF (DATA_L_FNX GTR 234) %THEN APPMAC234 %FI
 %IF (DATA_L_FNX GTR 235) %THEN APPMAC235 %FI
 %IF (DATA_L_FNX GTR 236) %THEN APPMAC236 %FI
 %IF (DATA_L_FNX GTR 237) %THEN APPMAC237 %FI
 %IF (DATA_L_FNX GTR 238) %THEN APPMAC238 %FI
 %IF (DATA_L_FNX GTR 239) %THEN APPMAC239 %FI
 %IF (DATA_L_FNX GTR 240) %THEN APPMAC240 %FI
 %IF (DATA_L_FNX GTR 241) %THEN APPMAC241 %FI
 %IF (DATA_L_FNX GTR 242) %THEN APPMAC242 %FI
 %IF (DATA_L_FNX GTR 243) %THEN APPMAC243 %FI
 %IF (DATA_L_FNX GTR 244) %THEN APPMAC244 %FI
 %IF (DATA_L_FNX GTR 245) %THEN APPMAC245 %FI
 %IF (DATA_L_FNX GTR 246) %THEN APPMAC246 %FI
 %IF (DATA_L_FNX GTR 247) %THEN APPMAC247 %FI
 %IF (DATA_L_FNX GTR 248) %THEN APPMAC248 %FI
 %IF (DATA_L_FNX GTR 249) %THEN APPMAC249 %FI
 %IF (DATA_L_FNX GTR 250) %THEN APPMAC250 %FI
 %IF (DATA_L_FNX GTR 251) %THEN APPMAC251 %FI
 %IF (DATA_L_FNX GTR 252) %THEN APPMAC252 %FI
 %IF (DATA_L_FNX GTR 253) %THEN APPMAC253 %FI
 %IF (DATA_L_FNX GTR 254) %THEN APPMAC254 %FI
 %IF (DATA_L_FNX GTR 255) %THEN APPMAC255 %FI
 %IF (DATA_L_FNX GTR 256) %THEN APPMAC256 %FI
 %IF (DATA_L_FNX GTR 257) %THEN APPMAC257 %FI
 %IF (DATA_L_FNX GTR 258) %THEN APPMAC258 %FI
 %IF (DATA_L_FNX GTR 259) %THEN APPMAC259 %FI
 %IF (DATA_L_FNX GTR 260) %THEN APPMAC260 %FI
 %IF (DATA_L_FNX GTR 261) %THEN APPMAC261 %FI
 %IF (DATA_L_FNX GTR 262) %THEN APPMAC262 %FI
 %IF (DATA_L_FNX GTR 263) %THEN APPMAC263 %FI
%IF (DATA_L_FNX GTR 264) %THEN APPMAC264 %FI
%IF (DATA_L_FNX GTR 265) %THEN APPMAC265 %FI
%IF (DATA_L_FNX GTR 266) %THEN APPMAC266 %FI
%IF (DATA_L_FNX GTR 267) %THEN APPMAC267 %FI
%IF (DATA_L_FNX GTR 268) %THEN APPMAC268 %FI
%IF (DATA_L_FNX GTR 269) %THEN APPMAC269 %FI
%IF (DATA_L_FNX GTR 270) %THEN APPMAC270 %FI
%IF (DATA_L_FNX GTR 271) %THEN APPMAC271 %FI
%IF (DATA_L_FNX GTR 272) %THEN APPMAC272 %FI
%IF (DATA_L_FNX GTR 273) %THEN APPMAC273 %FI
%IF (DATA_L_FNX GTR 274) %THEN APPMAC274 %FI
%IF (DATA_L_FNX GTR 275) %THEN APPMAC275 %FI
%IF (DATA_L_FNX GTR 276) %THEN APPMAC276 %FI
%IF (DATA_L_FNX GTR 277) %THEN APPMAC277 %FI
%IF (DATA_L_FNX GTR 278) %THEN APPMAC278 %FI
%IF (DATA_L_FNX GTR 279) %THEN APPMAC279 %FI
%IF (DATA_L_FNX GTR 280) %THEN APPMAC280 %FI
%IF (DATA_L_FNX GTR 281) %THEN APPMAC281 %FI
%IF (DATA_L_FNX GTR 282) %THEN APPMAC282 %FI
%IF (DATA_L_FNX GTR 283) %THEN APPMAC283 %FI
%IF (DATA_L_FNX GTR 284) %THEN APPMAC284 %FI
%IF (DATA_L_FNX GTR 285) %THEN APPMAC285 %FI
%IF (DATA_L_FNX GTR 286) %THEN APPMAC286 %FI
%IF (DATA_L_FNX GTR 287) %THEN APPMAC287 %FI
%IF (DATA_L_FNX GTR 288) %THEN APPMAC288 %FI
%IF (DATA_L_FNX GTR 289) %THEN APPMAC289 %FI
%IF (DATA_L_FNX GTR 290) %THEN APPMAC290 %FI
%IF (DATA_L_FNX GTR 291) %THEN APPMAC291 %FI
%IF (DATA_L_FNX GTR 292) %THEN APPMAC292 %FI
%IF (DATA_L_FNX GTR 293) %THEN APPMAC293 %FI
%IF (DATA_L_FNX GTR 294) %THEN APPMAC294 %FI
%IF (DATA_L_FNX GTR 295) %THEN APPMAC295 %FI
%IF (DATA_L_FNX GTR 296) %THEN APPMAC296 %FI
%IF (DATA_L_FNX GTR 297) %THEN APPMAC297 %FI
%IF (DATA_L_FNX GTR 298) %THEN APPMAC298 %FI
%IF (DATA_L_FNX GTR 299) %THEN APPMAC299 %FI
  APPMACE (SNAME)
  UNDECLARE %QUOTE %QUOTE APPMAC;
 %IF (DATA_L_FNX GTR 0) %THEN UNDECLARE %QUOTE %QUOTE APPMAC0; %FI
 %IF (DATA_L_FNX GTR 1) %THEN UNDECLARE %QUOTE %QUOTE APPMAC1; %FI
 %IF (DATA_L_FNX GTR 2) %THEN UNDECLARE %QUOTE %QUOTE APPMAC2; %FI
 %IF (DATA_L_FNX GTR 3) %THEN UNDECLARE %QUOTE %QUOTE APPMAC3; %FI
 %IF (DATA_L_FNX GTR 4) %THEN UNDECLARE %QUOTE %QUOTE APPMAC4; %FI
 %IF (DATA_L_FNX GTR 5) %THEN UNDECLARE %QUOTE %QUOTE APPMAC5; %FI
 %IF (DATA_L_FNX GTR 6) %THEN UNDECLARE %QUOTE %QUOTE APPMAC6; %FI
 %IF (DATA_L_FNX GTR 7) %THEN UNDECLARE %QUOTE %QUOTE APPMAC7; %FI
 %IF (DATA_L_FNX GTR 8) %THEN UNDECLARE %QUOTE %QUOTE APPMAC8; %FI
 %IF (DATA_L_FNX GTR 9) %THEN UNDECLARE %QUOTE %QUOTE APPMAC9; %FI
 %IF (DATA_L_FNX GTR 10) %THEN UNDECLARE %QUOTE %QUOTE APPMAC10; %FI
 %IF (DATA_L_FNX GTR 11) %THEN UNDECLARE %QUOTE %QUOTE APPMAC11; %FI
 %IF (DATA_L_FNX GTR 12) %THEN UNDECLARE %QUOTE %QUOTE APPMAC12; %FI
 %IF (DATA_L_FNX GTR 13) %THEN UNDECLARE %QUOTE %QUOTE APPMAC13; %FI
 %IF (DATA_L_FNX GTR 14) %THEN UNDECLARE %QUOTE %QUOTE APPMAC14; %FI
 %IF (DATA_L_FNX GTR 15) %THEN UNDECLARE %QUOTE %QUOTE APPMAC15; %FI
 %IF (DATA_L_FNX GTR 16) %THEN UNDECLARE %QUOTE %QUOTE APPMAC16; %FI
 %IF (DATA_L_FNX GTR 17) %THEN UNDECLARE %QUOTE %QUOTE APPMAC17; %FI
 %IF (DATA_L_FNX GTR 18) %THEN UNDECLARE %QUOTE %QUOTE APPMAC18; %FI
 %IF (DATA_L_FNX GTR 19) %THEN UNDECLARE %QUOTE %QUOTE APPMAC19; %FI
 %IF (DATA_L_FNX GTR 20) %THEN UNDECLARE %QUOTE %QUOTE APPMAC20; %FI
 %IF (DATA_L_FNX GTR 21) %THEN UNDECLARE %QUOTE %QUOTE APPMAC21; %FI
 %IF (DATA_L_FNX GTR 22) %THEN UNDECLARE %QUOTE %QUOTE APPMAC22; %FI
 %IF (DATA_L_FNX GTR 23) %THEN UNDECLARE %QUOTE %QUOTE APPMAC23; %FI
 %IF (DATA_L_FNX GTR 24) %THEN UNDECLARE %QUOTE %QUOTE APPMAC24; %FI
 %IF (DATA_L_FNX GTR 25) %THEN UNDECLARE %QUOTE %QUOTE APPMAC25; %FI
 %IF (DATA_L_FNX GTR 26) %THEN UNDECLARE %QUOTE %QUOTE APPMAC26; %FI
 %IF (DATA_L_FNX GTR 27) %THEN UNDECLARE %QUOTE %QUOTE APPMAC27; %FI
 %IF (DATA_L_FNX GTR 28) %THEN UNDECLARE %QUOTE %QUOTE APPMAC28; %FI
 %IF (DATA_L_FNX GTR 29) %THEN UNDECLARE %QUOTE %QUOTE APPMAC29; %FI
 %IF (DATA_L_FNX GTR 30) %THEN UNDECLARE %QUOTE %QUOTE APPMAC30; %FI
 %IF (DATA_L_FNX GTR 31) %THEN UNDECLARE %QUOTE %QUOTE APPMAC31; %FI
 %IF (DATA_L_FNX GTR 32) %THEN UNDECLARE %QUOTE %QUOTE APPMAC32; %FI
 %IF (DATA_L_FNX GTR 33) %THEN UNDECLARE %QUOTE %QUOTE APPMAC33; %FI
 %IF (DATA_L_FNX GTR 34) %THEN UNDECLARE %QUOTE %QUOTE APPMAC34; %FI
 %IF (DATA_L_FNX GTR 35) %THEN UNDECLARE %QUOTE %QUOTE APPMAC35; %FI
 %IF (DATA_L_FNX GTR 36) %THEN UNDECLARE %QUOTE %QUOTE APPMAC36; %FI
 %IF (DATA_L_FNX GTR 37) %THEN UNDECLARE %QUOTE %QUOTE APPMAC37; %FI
 %IF (DATA_L_FNX GTR 38) %THEN UNDECLARE %QUOTE %QUOTE APPMAC38; %FI
 %IF (DATA_L_FNX GTR 39) %THEN UNDECLARE %QUOTE %QUOTE APPMAC39; %FI
 %IF (DATA_L_FNX GTR 40) %THEN UNDECLARE %QUOTE %QUOTE APPMAC40; %FI
 %IF (DATA_L_FNX GTR 41) %THEN UNDECLARE %QUOTE %QUOTE APPMAC41; %FI
 %IF (DATA_L_FNX GTR 42) %THEN UNDECLARE %QUOTE %QUOTE APPMAC42; %FI
 %IF (DATA_L_FNX GTR 43) %THEN UNDECLARE %QUOTE %QUOTE APPMAC43; %FI
 %IF (DATA_L_FNX GTR 44) %THEN UNDECLARE %QUOTE %QUOTE APPMAC44; %FI
 %IF (DATA_L_FNX GTR 45) %THEN UNDECLARE %QUOTE %QUOTE APPMAC45; %FI
 %IF (DATA_L_FNX GTR 46) %THEN UNDECLARE %QUOTE %QUOTE APPMAC46; %FI
 %IF (DATA_L_FNX GTR 47) %THEN UNDECLARE %QUOTE %QUOTE APPMAC47; %FI
 %IF (DATA_L_FNX GTR 48) %THEN UNDECLARE %QUOTE %QUOTE APPMAC48; %FI
 %IF (DATA_L_FNX GTR 49) %THEN UNDECLARE %QUOTE %QUOTE APPMAC49; %FI
 %IF (DATA_L_FNX GTR 50) %THEN UNDECLARE %QUOTE %QUOTE APPMAC50; %FI
 %IF (DATA_L_FNX GTR 51) %THEN UNDECLARE %QUOTE %QUOTE APPMAC51; %FI
 %IF (DATA_L_FNX GTR 52) %THEN UNDECLARE %QUOTE %QUOTE APPMAC52; %FI
 %IF (DATA_L_FNX GTR 53) %THEN UNDECLARE %QUOTE %QUOTE APPMAC53; %FI
 %IF (DATA_L_FNX GTR 54) %THEN UNDECLARE %QUOTE %QUOTE APPMAC54; %FI
 %IF (DATA_L_FNX GTR 55) %THEN UNDECLARE %QUOTE %QUOTE APPMAC55; %FI
 %IF (DATA_L_FNX GTR 56) %THEN UNDECLARE %QUOTE %QUOTE APPMAC56; %FI
 %IF (DATA_L_FNX GTR 57) %THEN UNDECLARE %QUOTE %QUOTE APPMAC57; %FI
 %IF (DATA_L_FNX GTR 58) %THEN UNDECLARE %QUOTE %QUOTE APPMAC58; %FI
 %IF (DATA_L_FNX GTR 59) %THEN UNDECLARE %QUOTE %QUOTE APPMAC59; %FI
 %IF (DATA_L_FNX GTR 60) %THEN UNDECLARE %QUOTE %QUOTE APPMAC60; %FI
 %IF (DATA_L_FNX GTR 61) %THEN UNDECLARE %QUOTE %QUOTE APPMAC61; %FI
 %IF (DATA_L_FNX GTR 62) %THEN UNDECLARE %QUOTE %QUOTE APPMAC62; %FI
 %IF (DATA_L_FNX GTR 63) %THEN UNDECLARE %QUOTE %QUOTE APPMAC63; %FI
 %IF (DATA_L_FNX GTR 64) %THEN UNDECLARE %QUOTE %QUOTE APPMAC64; %FI
 %IF (DATA_L_FNX GTR 65) %THEN UNDECLARE %QUOTE %QUOTE APPMAC65; %FI
 %IF (DATA_L_FNX GTR 66) %THEN UNDECLARE %QUOTE %QUOTE APPMAC66; %FI
 %IF (DATA_L_FNX GTR 67) %THEN UNDECLARE %QUOTE %QUOTE APPMAC67; %FI
 %IF (DATA_L_FNX GTR 68) %THEN UNDECLARE %QUOTE %QUOTE APPMAC68; %FI
 %IF (DATA_L_FNX GTR 69) %THEN UNDECLARE %QUOTE %QUOTE APPMAC69; %FI
 %IF (DATA_L_FNX GTR 70) %THEN UNDECLARE %QUOTE %QUOTE APPMAC70; %FI
 %IF (DATA_L_FNX GTR 71) %THEN UNDECLARE %QUOTE %QUOTE APPMAC71; %FI
 %IF (DATA_L_FNX GTR 72) %THEN UNDECLARE %QUOTE %QUOTE APPMAC72; %FI
 %IF (DATA_L_FNX GTR 73) %THEN UNDECLARE %QUOTE %QUOTE APPMAC73; %FI
 %IF (DATA_L_FNX GTR 74) %THEN UNDECLARE %QUOTE %QUOTE APPMAC74; %FI
 %IF (DATA_L_FNX GTR 75) %THEN UNDECLARE %QUOTE %QUOTE APPMAC75; %FI
 %IF (DATA_L_FNX GTR 76) %THEN UNDECLARE %QUOTE %QUOTE APPMAC76; %FI
 %IF (DATA_L_FNX GTR 77) %THEN UNDECLARE %QUOTE %QUOTE APPMAC77; %FI
 %IF (DATA_L_FNX GTR 78) %THEN UNDECLARE %QUOTE %QUOTE APPMAC78; %FI
 %IF (DATA_L_FNX GTR 79) %THEN UNDECLARE %QUOTE %QUOTE APPMAC79; %FI
 %IF (DATA_L_FNX GTR 80) %THEN UNDECLARE %QUOTE %QUOTE APPMAC80; %FI
 %IF (DATA_L_FNX GTR 81) %THEN UNDECLARE %QUOTE %QUOTE APPMAC81; %FI
 %IF (DATA_L_FNX GTR 82) %THEN UNDECLARE %QUOTE %QUOTE APPMAC82; %FI
 %IF (DATA_L_FNX GTR 83) %THEN UNDECLARE %QUOTE %QUOTE APPMAC83; %FI
 %IF (DATA_L_FNX GTR 84) %THEN UNDECLARE %QUOTE %QUOTE APPMAC84; %FI
 %IF (DATA_L_FNX GTR 85) %THEN UNDECLARE %QUOTE %QUOTE APPMAC85; %FI
 %IF (DATA_L_FNX GTR 86) %THEN UNDECLARE %QUOTE %QUOTE APPMAC86; %FI
 %IF (DATA_L_FNX GTR 87) %THEN UNDECLARE %QUOTE %QUOTE APPMAC87; %FI
 %IF (DATA_L_FNX GTR 88) %THEN UNDECLARE %QUOTE %QUOTE APPMAC88; %FI
 %IF (DATA_L_FNX GTR 89) %THEN UNDECLARE %QUOTE %QUOTE APPMAC89; %FI
 %IF (DATA_L_FNX GTR 90) %THEN UNDECLARE %QUOTE %QUOTE APPMAC90; %FI
 %IF (DATA_L_FNX GTR 91) %THEN UNDECLARE %QUOTE %QUOTE APPMAC91; %FI
 %IF (DATA_L_FNX GTR 92) %THEN UNDECLARE %QUOTE %QUOTE APPMAC92; %FI
 %IF (DATA_L_FNX GTR 93) %THEN UNDECLARE %QUOTE %QUOTE APPMAC93; %FI
 %IF (DATA_L_FNX GTR 94) %THEN UNDECLARE %QUOTE %QUOTE APPMAC94; %FI
 %IF (DATA_L_FNX GTR 95) %THEN UNDECLARE %QUOTE %QUOTE APPMAC95; %FI
 %IF (DATA_L_FNX GTR 96) %THEN UNDECLARE %QUOTE %QUOTE APPMAC96; %FI
 %IF (DATA_L_FNX GTR 97) %THEN UNDECLARE %QUOTE %QUOTE APPMAC97; %FI
 %IF (DATA_L_FNX GTR 98) %THEN UNDECLARE %QUOTE %QUOTE APPMAC98; %FI
 %IF (DATA_L_FNX GTR 99) %THEN UNDECLARE %QUOTE %QUOTE APPMAC99; %FI
 %IF (DATA_L_FNX GTR 100) %THEN UNDECLARE %QUOTE %QUOTE APPMAC100; %FI
 %IF (DATA_L_FNX GTR 101) %THEN UNDECLARE %QUOTE %QUOTE APPMAC101; %FI
 %IF (DATA_L_FNX GTR 102) %THEN UNDECLARE %QUOTE %QUOTE APPMAC102; %FI
 %IF (DATA_L_FNX GTR 103) %THEN UNDECLARE %QUOTE %QUOTE APPMAC103; %FI
 %IF (DATA_L_FNX GTR 104) %THEN UNDECLARE %QUOTE %QUOTE APPMAC104; %FI
 %IF (DATA_L_FNX GTR 105) %THEN UNDECLARE %QUOTE %QUOTE APPMAC105; %FI
 %IF (DATA_L_FNX GTR 106) %THEN UNDECLARE %QUOTE %QUOTE APPMAC106; %FI
 %IF (DATA_L_FNX GTR 107) %THEN UNDECLARE %QUOTE %QUOTE APPMAC107; %FI
 %IF (DATA_L_FNX GTR 108) %THEN UNDECLARE %QUOTE %QUOTE APPMAC108; %FI
 %IF (DATA_L_FNX GTR 109) %THEN UNDECLARE %QUOTE %QUOTE APPMAC109; %FI
 %IF (DATA_L_FNX GTR 110) %THEN UNDECLARE %QUOTE %QUOTE APPMAC110; %FI
 %IF (DATA_L_FNX GTR 111) %THEN UNDECLARE %QUOTE %QUOTE APPMAC111; %FI
 %IF (DATA_L_FNX GTR 112) %THEN UNDECLARE %QUOTE %QUOTE APPMAC112; %FI
 %IF (DATA_L_FNX GTR 113) %THEN UNDECLARE %QUOTE %QUOTE APPMAC113; %FI
 %IF (DATA_L_FNX GTR 114) %THEN UNDECLARE %QUOTE %QUOTE APPMAC114; %FI
 %IF (DATA_L_FNX GTR 115) %THEN UNDECLARE %QUOTE %QUOTE APPMAC115; %FI
 %IF (DATA_L_FNX GTR 116) %THEN UNDECLARE %QUOTE %QUOTE APPMAC116; %FI
 %IF (DATA_L_FNX GTR 117) %THEN UNDECLARE %QUOTE %QUOTE APPMAC117; %FI
 %IF (DATA_L_FNX GTR 118) %THEN UNDECLARE %QUOTE %QUOTE APPMAC118; %FI
 %IF (DATA_L_FNX GTR 119) %THEN UNDECLARE %QUOTE %QUOTE APPMAC119; %FI
 %IF (DATA_L_FNX GTR 120) %THEN UNDECLARE %QUOTE %QUOTE APPMAC120; %FI
 %IF (DATA_L_FNX GTR 121) %THEN UNDECLARE %QUOTE %QUOTE APPMAC121; %FI
 %IF (DATA_L_FNX GTR 122) %THEN UNDECLARE %QUOTE %QUOTE APPMAC122; %FI
 %IF (DATA_L_FNX GTR 123) %THEN UNDECLARE %QUOTE %QUOTE APPMAC123; %FI
 %IF (DATA_L_FNX GTR 124) %THEN UNDECLARE %QUOTE %QUOTE APPMAC124; %FI
 %IF (DATA_L_FNX GTR 125) %THEN UNDECLARE %QUOTE %QUOTE APPMAC125; %FI
 %IF (DATA_L_FNX GTR 126) %THEN UNDECLARE %QUOTE %QUOTE APPMAC126; %FI
 %IF (DATA_L_FNX GTR 127) %THEN UNDECLARE %QUOTE %QUOTE APPMAC127; %FI
 %IF (DATA_L_FNX GTR 128) %THEN UNDECLARE %QUOTE %QUOTE APPMAC128; %FI
 %IF (DATA_L_FNX GTR 129) %THEN UNDECLARE %QUOTE %QUOTE APPMAC129; %FI
 %IF (DATA_L_FNX GTR 130) %THEN UNDECLARE %QUOTE %QUOTE APPMAC130; %FI
 %IF (DATA_L_FNX GTR 131) %THEN UNDECLARE %QUOTE %QUOTE APPMAC131; %FI
 %IF (DATA_L_FNX GTR 132) %THEN UNDECLARE %QUOTE %QUOTE APPMAC132; %FI
 %IF (DATA_L_FNX GTR 133) %THEN UNDECLARE %QUOTE %QUOTE APPMAC133; %FI
 %IF (DATA_L_FNX GTR 134) %THEN UNDECLARE %QUOTE %QUOTE APPMAC134; %FI
 %IF (DATA_L_FNX GTR 135) %THEN UNDECLARE %QUOTE %QUOTE APPMAC135; %FI
 %IF (DATA_L_FNX GTR 136) %THEN UNDECLARE %QUOTE %QUOTE APPMAC136; %FI
 %IF (DATA_L_FNX GTR 137) %THEN UNDECLARE %QUOTE %QUOTE APPMAC137; %FI
 %IF (DATA_L_FNX GTR 138) %THEN UNDECLARE %QUOTE %QUOTE APPMAC138; %FI
 %IF (DATA_L_FNX GTR 139) %THEN UNDECLARE %QUOTE %QUOTE APPMAC139; %FI
 %IF (DATA_L_FNX GTR 140) %THEN UNDECLARE %QUOTE %QUOTE APPMAC140; %FI
 %IF (DATA_L_FNX GTR 141) %THEN UNDECLARE %QUOTE %QUOTE APPMAC141; %FI
 %IF (DATA_L_FNX GTR 142) %THEN UNDECLARE %QUOTE %QUOTE APPMAC142; %FI
 %IF (DATA_L_FNX GTR 143) %THEN UNDECLARE %QUOTE %QUOTE APPMAC143; %FI
 %IF (DATA_L_FNX GTR 144) %THEN UNDECLARE %QUOTE %QUOTE APPMAC144; %FI
 %IF (DATA_L_FNX GTR 145) %THEN UNDECLARE %QUOTE %QUOTE APPMAC145; %FI
 %IF (DATA_L_FNX GTR 146) %THEN UNDECLARE %QUOTE %QUOTE APPMAC146; %FI
 %IF (DATA_L_FNX GTR 147) %THEN UNDECLARE %QUOTE %QUOTE APPMAC147; %FI
 %IF (DATA_L_FNX GTR 148) %THEN UNDECLARE %QUOTE %QUOTE APPMAC148; %FI
 %IF (DATA_L_FNX GTR 149) %THEN UNDECLARE %QUOTE %QUOTE APPMAC149; %FI
 %IF (DATA_L_FNX GTR 150) %THEN UNDECLARE %QUOTE %QUOTE APPMAC150; %FI
 %IF (DATA_L_FNX GTR 151) %THEN UNDECLARE %QUOTE %QUOTE APPMAC151; %FI
 %IF (DATA_L_FNX GTR 152) %THEN UNDECLARE %QUOTE %QUOTE APPMAC152; %FI
 %IF (DATA_L_FNX GTR 153) %THEN UNDECLARE %QUOTE %QUOTE APPMAC153; %FI
 %IF (DATA_L_FNX GTR 154) %THEN UNDECLARE %QUOTE %QUOTE APPMAC154; %FI
 %IF (DATA_L_FNX GTR 155) %THEN UNDECLARE %QUOTE %QUOTE APPMAC155; %FI
 %IF (DATA_L_FNX GTR 156) %THEN UNDECLARE %QUOTE %QUOTE APPMAC156; %FI
 %IF (DATA_L_FNX GTR 157) %THEN UNDECLARE %QUOTE %QUOTE APPMAC157; %FI
 %IF (DATA_L_FNX GTR 158) %THEN UNDECLARE %QUOTE %QUOTE APPMAC158; %FI
 %IF (DATA_L_FNX GTR 159) %THEN UNDECLARE %QUOTE %QUOTE APPMAC159; %FI
 %IF (DATA_L_FNX GTR 160) %THEN UNDECLARE %QUOTE %QUOTE APPMAC160; %FI
 %IF (DATA_L_FNX GTR 161) %THEN UNDECLARE %QUOTE %QUOTE APPMAC161; %FI
 %IF (DATA_L_FNX GTR 162) %THEN UNDECLARE %QUOTE %QUOTE APPMAC162; %FI
 %IF (DATA_L_FNX GTR 163) %THEN UNDECLARE %QUOTE %QUOTE APPMAC163; %FI
 %IF (DATA_L_FNX GTR 164) %THEN UNDECLARE %QUOTE %QUOTE APPMAC164; %FI
 %IF (DATA_L_FNX GTR 165) %THEN UNDECLARE %QUOTE %QUOTE APPMAC165; %FI
 %IF (DATA_L_FNX GTR 166) %THEN UNDECLARE %QUOTE %QUOTE APPMAC166; %FI
 %IF (DATA_L_FNX GTR 167) %THEN UNDECLARE %QUOTE %QUOTE APPMAC167; %FI
 %IF (DATA_L_FNX GTR 168) %THEN UNDECLARE %QUOTE %QUOTE APPMAC168; %FI
 %IF (DATA_L_FNX GTR 169) %THEN UNDECLARE %QUOTE %QUOTE APPMAC169; %FI
 %IF (DATA_L_FNX GTR 170) %THEN UNDECLARE %QUOTE %QUOTE APPMAC170; %FI
 %IF (DATA_L_FNX GTR 171) %THEN UNDECLARE %QUOTE %QUOTE APPMAC171; %FI
 %IF (DATA_L_FNX GTR 172) %THEN UNDECLARE %QUOTE %QUOTE APPMAC172; %FI
 %IF (DATA_L_FNX GTR 173) %THEN UNDECLARE %QUOTE %QUOTE APPMAC173; %FI
 %IF (DATA_L_FNX GTR 174) %THEN UNDECLARE %QUOTE %QUOTE APPMAC174; %FI
 %IF (DATA_L_FNX GTR 175) %THEN UNDECLARE %QUOTE %QUOTE APPMAC175; %FI
 %IF (DATA_L_FNX GTR 176) %THEN UNDECLARE %QUOTE %QUOTE APPMAC176; %FI
 %IF (DATA_L_FNX GTR 177) %THEN UNDECLARE %QUOTE %QUOTE APPMAC177; %FI
 %IF (DATA_L_FNX GTR 178) %THEN UNDECLARE %QUOTE %QUOTE APPMAC178; %FI
 %IF (DATA_L_FNX GTR 179) %THEN UNDECLARE %QUOTE %QUOTE APPMAC179; %FI
 %IF (DATA_L_FNX GTR 180) %THEN UNDECLARE %QUOTE %QUOTE APPMAC180; %FI
 %IF (DATA_L_FNX GTR 181) %THEN UNDECLARE %QUOTE %QUOTE APPMAC181; %FI
 %IF (DATA_L_FNX GTR 182) %THEN UNDECLARE %QUOTE %QUOTE APPMAC182; %FI
 %IF (DATA_L_FNX GTR 183) %THEN UNDECLARE %QUOTE %QUOTE APPMAC183; %FI
 %IF (DATA_L_FNX GTR 184) %THEN UNDECLARE %QUOTE %QUOTE APPMAC184; %FI
 %IF (DATA_L_FNX GTR 185) %THEN UNDECLARE %QUOTE %QUOTE APPMAC185; %FI
 %IF (DATA_L_FNX GTR 186) %THEN UNDECLARE %QUOTE %QUOTE APPMAC186; %FI
 %IF (DATA_L_FNX GTR 187) %THEN UNDECLARE %QUOTE %QUOTE APPMAC187; %FI
 %IF (DATA_L_FNX GTR 188) %THEN UNDECLARE %QUOTE %QUOTE APPMAC188; %FI
 %IF (DATA_L_FNX GTR 189) %THEN UNDECLARE %QUOTE %QUOTE APPMAC189; %FI
 %IF (DATA_L_FNX GTR 190) %THEN UNDECLARE %QUOTE %QUOTE APPMAC190; %FI
 %IF (DATA_L_FNX GTR 191) %THEN UNDECLARE %QUOTE %QUOTE APPMAC191; %FI
 %IF (DATA_L_FNX GTR 192) %THEN UNDECLARE %QUOTE %QUOTE APPMAC192; %FI
 %IF (DATA_L_FNX GTR 193) %THEN UNDECLARE %QUOTE %QUOTE APPMAC193; %FI
 %IF (DATA_L_FNX GTR 194) %THEN UNDECLARE %QUOTE %QUOTE APPMAC194; %FI
 %IF (DATA_L_FNX GTR 195) %THEN UNDECLARE %QUOTE %QUOTE APPMAC195; %FI
 %IF (DATA_L_FNX GTR 196) %THEN UNDECLARE %QUOTE %QUOTE APPMAC196; %FI
 %IF (DATA_L_FNX GTR 197) %THEN UNDECLARE %QUOTE %QUOTE APPMAC197; %FI
 %IF (DATA_L_FNX GTR 198) %THEN UNDECLARE %QUOTE %QUOTE APPMAC198; %FI
 %IF (DATA_L_FNX GTR 199) %THEN UNDECLARE %QUOTE %QUOTE APPMAC199; %FI
 %IF (DATA_L_FNX GTR 200) %THEN UNDECLARE %QUOTE %QUOTE APPMAC200; %FI
 %IF (DATA_L_FNX GTR 201) %THEN UNDECLARE %QUOTE %QUOTE APPMAC201; %FI
 %IF (DATA_L_FNX GTR 202) %THEN UNDECLARE %QUOTE %QUOTE APPMAC202; %FI
 %IF (DATA_L_FNX GTR 203) %THEN UNDECLARE %QUOTE %QUOTE APPMAC203; %FI
 %IF (DATA_L_FNX GTR 204) %THEN UNDECLARE %QUOTE %QUOTE APPMAC204; %FI
 %IF (DATA_L_FNX GTR 205) %THEN UNDECLARE %QUOTE %QUOTE APPMAC205; %FI
 %IF (DATA_L_FNX GTR 206) %THEN UNDECLARE %QUOTE %QUOTE APPMAC206; %FI
 %IF (DATA_L_FNX GTR 207) %THEN UNDECLARE %QUOTE %QUOTE APPMAC207; %FI
 %IF (DATA_L_FNX GTR 208) %THEN UNDECLARE %QUOTE %QUOTE APPMAC208; %FI
 %IF (DATA_L_FNX GTR 209) %THEN UNDECLARE %QUOTE %QUOTE APPMAC209; %FI
 %IF (DATA_L_FNX GTR 210) %THEN UNDECLARE %QUOTE %QUOTE APPMAC210; %FI
 %IF (DATA_L_FNX GTR 211) %THEN UNDECLARE %QUOTE %QUOTE APPMAC211; %FI
 %IF (DATA_L_FNX GTR 212) %THEN UNDECLARE %QUOTE %QUOTE APPMAC212; %FI
 %IF (DATA_L_FNX GTR 213) %THEN UNDECLARE %QUOTE %QUOTE APPMAC213; %FI
 %IF (DATA_L_FNX GTR 214) %THEN UNDECLARE %QUOTE %QUOTE APPMAC214; %FI
 %IF (DATA_L_FNX GTR 215) %THEN UNDECLARE %QUOTE %QUOTE APPMAC215; %FI
 %IF (DATA_L_FNX GTR 216) %THEN UNDECLARE %QUOTE %QUOTE APPMAC216; %FI
 %IF (DATA_L_FNX GTR 217) %THEN UNDECLARE %QUOTE %QUOTE APPMAC217; %FI
 %IF (DATA_L_FNX GTR 218) %THEN UNDECLARE %QUOTE %QUOTE APPMAC218; %FI
 %IF (DATA_L_FNX GTR 219) %THEN UNDECLARE %QUOTE %QUOTE APPMAC219; %FI
 %IF (DATA_L_FNX GTR 220) %THEN UNDECLARE %QUOTE %QUOTE APPMAC220; %FI
 %IF (DATA_L_FNX GTR 221) %THEN UNDECLARE %QUOTE %QUOTE APPMAC221; %FI
 %IF (DATA_L_FNX GTR 222) %THEN UNDECLARE %QUOTE %QUOTE APPMAC222; %FI
 %IF (DATA_L_FNX GTR 223) %THEN UNDECLARE %QUOTE %QUOTE APPMAC223; %FI
 %IF (DATA_L_FNX GTR 224) %THEN UNDECLARE %QUOTE %QUOTE APPMAC224; %FI
 %IF (DATA_L_FNX GTR 225) %THEN UNDECLARE %QUOTE %QUOTE APPMAC225; %FI
 %IF (DATA_L_FNX GTR 226) %THEN UNDECLARE %QUOTE %QUOTE APPMAC226; %FI
 %IF (DATA_L_FNX GTR 227) %THEN UNDECLARE %QUOTE %QUOTE APPMAC227; %FI
 %IF (DATA_L_FNX GTR 228) %THEN UNDECLARE %QUOTE %QUOTE APPMAC228; %FI
 %IF (DATA_L_FNX GTR 229) %THEN UNDECLARE %QUOTE %QUOTE APPMAC229; %FI
 %IF (DATA_L_FNX GTR 230) %THEN UNDECLARE %QUOTE %QUOTE APPMAC230; %FI
 %IF (DATA_L_FNX GTR 231) %THEN UNDECLARE %QUOTE %QUOTE APPMAC231; %FI
 %IF (DATA_L_FNX GTR 232) %THEN UNDECLARE %QUOTE %QUOTE APPMAC232; %FI
 %IF (DATA_L_FNX GTR 233) %THEN UNDECLARE %QUOTE %QUOTE APPMAC233; %FI
 %IF (DATA_L_FNX GTR 234) %THEN UNDECLARE %QUOTE %QUOTE APPMAC234; %FI
 %IF (DATA_L_FNX GTR 235) %THEN UNDECLARE %QUOTE %QUOTE APPMAC235; %FI
 %IF (DATA_L_FNX GTR 236) %THEN UNDECLARE %QUOTE %QUOTE APPMAC236; %FI
 %IF (DATA_L_FNX GTR 237) %THEN UNDECLARE %QUOTE %QUOTE APPMAC237; %FI
 %IF (DATA_L_FNX GTR 238) %THEN UNDECLARE %QUOTE %QUOTE APPMAC238; %FI
 %IF (DATA_L_FNX GTR 239) %THEN UNDECLARE %QUOTE %QUOTE APPMAC239; %FI
 %IF (DATA_L_FNX GTR 240) %THEN UNDECLARE %QUOTE %QUOTE APPMAC240; %FI
 %IF (DATA_L_FNX GTR 241) %THEN UNDECLARE %QUOTE %QUOTE APPMAC241; %FI
 %IF (DATA_L_FNX GTR 242) %THEN UNDECLARE %QUOTE %QUOTE APPMAC242; %FI
 %IF (DATA_L_FNX GTR 243) %THEN UNDECLARE %QUOTE %QUOTE APPMAC243; %FI
 %IF (DATA_L_FNX GTR 244) %THEN UNDECLARE %QUOTE %QUOTE APPMAC244; %FI
 %IF (DATA_L_FNX GTR 245) %THEN UNDECLARE %QUOTE %QUOTE APPMAC245; %FI
 %IF (DATA_L_FNX GTR 246) %THEN UNDECLARE %QUOTE %QUOTE APPMAC246; %FI
 %IF (DATA_L_FNX GTR 247) %THEN UNDECLARE %QUOTE %QUOTE APPMAC247; %FI
 %IF (DATA_L_FNX GTR 248) %THEN UNDECLARE %QUOTE %QUOTE APPMAC248; %FI
 %IF (DATA_L_FNX GTR 249) %THEN UNDECLARE %QUOTE %QUOTE APPMAC249; %FI
 %IF (DATA_L_FNX GTR 250) %THEN UNDECLARE %QUOTE %QUOTE APPMAC250; %FI
 %IF (DATA_L_FNX GTR 251) %THEN UNDECLARE %QUOTE %QUOTE APPMAC251; %FI
 %IF (DATA_L_FNX GTR 252) %THEN UNDECLARE %QUOTE %QUOTE APPMAC252; %FI
 %IF (DATA_L_FNX GTR 253) %THEN UNDECLARE %QUOTE %QUOTE APPMAC253; %FI
 %IF (DATA_L_FNX GTR 254) %THEN UNDECLARE %QUOTE %QUOTE APPMAC254; %FI
 %IF (DATA_L_FNX GTR 255) %THEN UNDECLARE %QUOTE %QUOTE APPMAC255; %FI
 %IF (DATA_L_FNX GTR 256) %THEN UNDECLARE %QUOTE %QUOTE APPMAC256; %FI
 %IF (DATA_L_FNX GTR 257) %THEN UNDECLARE %QUOTE %QUOTE APPMAC257; %FI
 %IF (DATA_L_FNX GTR 258) %THEN UNDECLARE %QUOTE %QUOTE APPMAC258; %FI
 %IF (DATA_L_FNX GTR 259) %THEN UNDECLARE %QUOTE %QUOTE APPMAC259; %FI
 %IF (DATA_L_FNX GTR 260) %THEN UNDECLARE %QUOTE %QUOTE APPMAC260; %FI
 %IF (DATA_L_FNX GTR 261) %THEN UNDECLARE %QUOTE %QUOTE APPMAC261; %FI
 %IF (DATA_L_FNX GTR 262) %THEN UNDECLARE %QUOTE %QUOTE APPMAC262; %FI
 %IF (DATA_L_FNX GTR 263) %THEN UNDECLARE %QUOTE %QUOTE APPMAC263; %FI
 %IF (DATA_L_FNX GTR 264) %THEN UNDECLARE %QUOTE %QUOTE APPMAC264; %FI
 %IF (DATA_L_FNX GTR 265) %THEN UNDECLARE %QUOTE %QUOTE APPMAC265; %FI
 %IF (DATA_L_FNX GTR 266) %THEN UNDECLARE %QUOTE %QUOTE APPMAC266; %FI
 %IF (DATA_L_FNX GTR 267) %THEN UNDECLARE %QUOTE %QUOTE APPMAC267; %FI
 %IF (DATA_L_FNX GTR 268) %THEN UNDECLARE %QUOTE %QUOTE APPMAC268; %FI
 %IF (DATA_L_FNX GTR 269) %THEN UNDECLARE %QUOTE %QUOTE APPMAC269; %FI
 %IF (DATA_L_FNX GTR 270) %THEN UNDECLARE %QUOTE %QUOTE APPMAC270; %FI
 %IF (DATA_L_FNX GTR 271) %THEN UNDECLARE %QUOTE %QUOTE APPMAC271; %FI
 %IF (DATA_L_FNX GTR 272) %THEN UNDECLARE %QUOTE %QUOTE APPMAC272; %FI
 %IF (DATA_L_FNX GTR 273) %THEN UNDECLARE %QUOTE %QUOTE APPMAC273; %FI
 %IF (DATA_L_FNX GTR 274) %THEN UNDECLARE %QUOTE %QUOTE APPMAC274; %FI
 %IF (DATA_L_FNX GTR 275) %THEN UNDECLARE %QUOTE %QUOTE APPMAC275; %FI
 %IF (DATA_L_FNX GTR 276) %THEN UNDECLARE %QUOTE %QUOTE APPMAC276; %FI
 %IF (DATA_L_FNX GTR 277) %THEN UNDECLARE %QUOTE %QUOTE APPMAC277; %FI
 %IF (DATA_L_FNX GTR 278) %THEN UNDECLARE %QUOTE %QUOTE APPMAC278; %FI
 %IF (DATA_L_FNX GTR 279) %THEN UNDECLARE %QUOTE %QUOTE APPMAC279; %FI
 %IF (DATA_L_FNX GTR 280) %THEN UNDECLARE %QUOTE %QUOTE APPMAC280; %FI
 %IF (DATA_L_FNX GTR 281) %THEN UNDECLARE %QUOTE %QUOTE APPMAC281; %FI
 %IF (DATA_L_FNX GTR 282) %THEN UNDECLARE %QUOTE %QUOTE APPMAC282; %FI
 %IF (DATA_L_FNX GTR 283) %THEN UNDECLARE %QUOTE %QUOTE APPMAC283; %FI
 %IF (DATA_L_FNX GTR 284) %THEN UNDECLARE %QUOTE %QUOTE APPMAC284; %FI
 %IF (DATA_L_FNX GTR 285) %THEN UNDECLARE %QUOTE %QUOTE APPMAC285; %FI
 %IF (DATA_L_FNX GTR 286) %THEN UNDECLARE %QUOTE %QUOTE APPMAC286; %FI
 %IF (DATA_L_FNX GTR 287) %THEN UNDECLARE %QUOTE %QUOTE APPMAC287; %FI
 %IF (DATA_L_FNX GTR 288) %THEN UNDECLARE %QUOTE %QUOTE APPMAC288; %FI
 %IF (DATA_L_FNX GTR 289) %THEN UNDECLARE %QUOTE %QUOTE APPMAC289; %FI
 %IF (DATA_L_FNX GTR 290) %THEN UNDECLARE %QUOTE %QUOTE APPMAC290; %FI
 %IF (DATA_L_FNX GTR 291) %THEN UNDECLARE %QUOTE %QUOTE APPMAC291; %FI
 %IF (DATA_L_FNX GTR 292) %THEN UNDECLARE %QUOTE %QUOTE APPMAC292; %FI
 %IF (DATA_L_FNX GTR 293) %THEN UNDECLARE %QUOTE %QUOTE APPMAC293; %FI
 %IF (DATA_L_FNX GTR 294) %THEN UNDECLARE %QUOTE %QUOTE APPMAC294; %FI
 %IF (DATA_L_FNX GTR 295) %THEN UNDECLARE %QUOTE %QUOTE APPMAC295; %FI
 %IF (DATA_L_FNX GTR 296) %THEN UNDECLARE %QUOTE %QUOTE APPMAC296; %FI
 %IF (DATA_L_FNX GTR 297) %THEN UNDECLARE %QUOTE %QUOTE APPMAC297; %FI
 %IF (DATA_L_FNX GTR 298) %THEN UNDECLARE %QUOTE %QUOTE APPMAC298; %FI
 %IF (DATA_L_FNX GTR 299) %THEN UNDECLARE %QUOTE %QUOTE APPMAC299; %FI
  UNDECLARE %QUOTE %QUOTE APPMACE;
  UNDECLARE %QUOTE %QUOTE APPMACE;
  UNDECLARE %QUOTE %QUOTE DATA_L_NAME;
!
 MACRO %NAME(SNAME,'_BLOCK') = BLOCK[
   %NAME(SNAME,'_LEN')]
   FIELD (%NAME(SNAME,'_FLD'))
 %QUOTE % ;
 %IF (%NAME(SNAME,'_LEN') GTR MAX_BLK_LEN)
   %THEN %ERROR (SNAME,' IS TOO LONG') %FI
%,
    ABLOCK (LOCN, LEN_IN_BITS, BOUNDRY) =
!
! RESERVE SOME SPACE IN A BLOCK
!
 %IF (BOUNDRY EQL 2) %THEN DATA_L_WB %FI
 %IF (BOUNDRY EQL 1) %THEN DATA_L_HWB %FI

  MACRO %NAME('APPMAC',%NUMBER(DATA_L_FNX)) =
 %IF (%QUOTE %UNQUOTE DATA_L_FNX NEQ 0) %THEN , %FI
 LOCN = [%QUOTE %UNQUOTE DATA_L_WORD,
         %QUOTE %UNQUOTE DATA_L_BIT,
    %IF (((LEN_IN_BITS) + %QUOTE %UNQUOTE DATA_L_BIT)
      LEQ %BPVAL) %THEN (LEN_IN_BITS) %ELSE 0 %FI ,
         0]
 %QUOTE % ;
 DATA_L_INC(0,(LEN_IN_BITS))
 %ASSIGN(DATA_L_FNX,DATA_L_FNX+1)
%;

!
! MACRO TO PUT BLOCK HEADER IN THE FRONT OF EACH BLOCK
!

MACRO
    HEADER (SNAME) =
 ABLOCK(%NAME(SNAME,'_TYPE'),%NBITSU(MAX_BLK_TYPE),2)
 ABLOCK(%NAME(SNAME,'_LENGTH'),%NBITSU(MAX_BLK_LEN),1)
%;

!
! DEFINE PARAMETERS WHICH WILL CHANGE IF NEW BLOCKS ARE ADDED
!  OR OLD ONES ARE CHANGED.
!
LITERAL
    MAX_BLK_TYPE = 20,
    MAX_BLK_LEN = 255;
!