MFCATS
(GIN Macro)
Defined in: MACROS MSYS
Used in:
- MFCATS.mac.txt
7H^# ...[??? MFCATS SECT CENT FGN 56 DOC 7J96 # 7JNQ # 7K8B # HERE FOLLOWS MFCATS **** MFCATS 7KN2 # IT IS USED TO SET AND CHECK THE CATEGORY 7L7L # WORD OF A MESSAGE PART. 7LM= # PARAMETERS ARE CATEGORY NAMES 7M6W # 7MLG #MAC MFCATS 7N66 #SKI 24?<1$1 [SKIP IF NOT FIRST TIME THROUGH 7NKQ ( 7P5B #DEF 24?=34?+0?]�^#10000000 7PK2 #DEF 20?=33? [CURRENT ERROR COUNT 7Q4L #STR %A 7QJ= CATMASK %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S- 7R3W ,%T,%U,%V,%W,%X,%Y,%Z 7RHG #SKI 33?-20? [SKIP UNLESS ERROR IN CATMASK 7S36 MFERROR 5 7SGQ ( 7TG2 #DEF 0?=0?-1 7TKX ...#STR %A 7TPS ...#SKI 7TTP ... 34?+0?]^MHLS 7T^L #DEF 20?=34?+0?] 7WF= #DEF 24?=20?�^24? [ADD PA IF NECESSARY 7WYW #DEF 20?=24?𘚠^#77677777&20? [SUPPRESS SYSREQ IF CLEAR IN OLD 7XDG #DEF 20?=20?� 7XY6 +24?�^20? [RESET CATS APPLYING CONSTRAINTS 7YCQ #EXI 7YXB ) 7^C2 ) 7^WL #SKI ALTMESS+2 [SKIP IF ERROR DETECTED 82B= ( 82TW #DEF 20?=33? [CURRENT ERROR COUNT 83*G #SKI 23?<1$1 83T6 #STR %A 84#Q CATMASK %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S- 84SB ,%T,%U,%V,%W,%X,%Y,%Z 85#2 #SKI 33?-20? [SKIP UNLESS ERROR IN CATMASK 85RL MFERROR 5 86?= ( 87Q6 #DEF 0?=0?-1 87T= ...#SKI 23?<1$1 87YB ...#STR %A 883G ...#SKI 886L ... 34?+0?]^MHLS 889Q #DEF 20?=34?+0?] 88PB #SKI 20?𘚠 8992 MFERROR 6 [SYSREQ NOT ALLOWED IN MULTI-PART 89NL ( 8=8= +20?�^24? [ADD MANDATORY BITS 8=MW #EXI 8?7G ) 8?M6 ) 8#6Q ) 8#LB #SKI [SKIP FOLLOWING CODE IF ERROR FOUND 8*62 #NOR