Table of Contents

GENROUTE Source

References

Source Listing

GENROUTE.MACRO.txt
  1. MACRO 00001000
  2. &LABEL GENROUTE &PARM1,&PARM2 00002000
  3. LCLC &DEST,&NEXT 00003000
  4. &DEST SETC ' ' 00004000
  5. &NEXT SETC ' ' 00005000
  6. AIF (T'&PARM1 EQ 'O').NOID 00006000
  7. &DEST SETC '&PARM1' 00007000
  8. AIF (T'&PARM2 EQ 'O').NOID 00008000
  9. &NEXT SETC '&PARM2' 00009000
  10. .NOID ANOP 00010000
  11. &LABEL DC 0F'0',CL8'&DEST',CL8'&NEXT' DESTINATION, NEXT LINK 00011000
  12. SPACE 00012000
  13. MEND 00013000