SWITCHES
(GIN Macro)
Defined in: MACROS SJ
Used in: SJOPEN863
- SWITCHES.mac.txt
2TG8 ...[ 2TMB ...[ 2TSL ...[??? SWITCHES SECT FILE FGN 24 DOC 2^PL #MAC SWITCHES 2^RT ...[ SWITCHES 2^W4 ...[THIS MACRO GENERATES A SWITCH LIST :- BRN LABEL 2^Y? ...[%A SWITCH BASE 322G ...[%B,%C ETC ARE THE IDENTIFIERS USED TO GENERATE A LABEL OF FORM %BL 324P ...[THE SWITCH IS OBEYED BY SMO ING ITS BASE 326Y ...[NB MACRO CORRUPTS 19?+0 329= #OPT MSWITCHES=0 32NW #SKI MSWITCHES$1 338G ( 33N6 #FRE MSWITCHES 347Q #DEF MSWITCHES=1 34MB #DEF 19?+0=0 3572 ) 35LL #STR %B 366= ( 36KW #DEF 0?=%A+%B 375G #DEF 19?+0=19?+0]>%B 37K6 BRN %BL 384Q SWITCHES %A,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V 38JB ) 3942 #STR %B 39HL #SKI 3=3= ( 3=GW #FRE MSWITCHES 3?2G #DEF 0?=19?+0]+%A+1 3?G6 ) 3?^Q #NOR