src/ioini.mac

   1 ;SOME MACROS FOR DEFINING CONFIGURATION\r
   2 \r
   3 DEFINE NAME (A)\r
   4 <DEFINE NAME1\r
   5 <CONFIG:  ASCIZ /A/\r
   6 INTERNAL CONFIG\r
   7 >\r
   8 XP A,0\r
   9 SUBTTL A CONFIGURATION\r
  10 >\r
  11 \r
  12 DEFINE DATE (A)\r
  13 <DEFINE DATE1\r
  14 <SYSDAT:  ASCIZ /A/\r
  15 INTERNAL SYSDAT\r
  16 >>\r
  17 \r
  18 DEFINE VERSION (A,B)\r
  19 <DEFINE VERS1\r
  20 <SYSNUM:  XWD ^D'A,^D'B\r
  21 XP SYSMOD,^D'A\r
  22 XP SYSVER,^D'B\r
  23 INTERNAL SYSNUM\r
  24 >>\r
  25 \r
  26 DEFINE CUSPTAPE (A)\r
  27 <DEFINE CUSP1\r
  28 <SYSTAP:  SIXBIT /A/\r
  29 INTERNAL SYSTAP\r
  30 >>\r
  31 \r
  32 DEFINE ACPDL (J,CHJN,CHJPDN)\r
  33 <         CH'J'N=CHJN\r
  34  CH'J'PDN=CHJPDN\r
  35 >\r
  36 \f\r