PDP-10 Archive: 10,7/tkb36/blockh.req from BB-X117B-SB

Trailing-Edge - PDP-10 Archives - BB-X117B-SB_1986 - 10,7/tkb36/blockh.req
There are 4 other files named blockh.req in the archive. Click here to see a list.
!COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1980,1981,1982,1986. ALL RIGHTS RESERVED.
!
!
!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;
!