;
; fix-up module for building clustered PL/I FMS interface
;
;These definitions are obtained from the global symbols section of the
;map generated by building FMS - if the values of any of these symbols
;change with a future release, this will have to be redone....
;
;Obviously, this is a bit grotesque, but I was unable to find a decent
;way to get references to absolute FMS globals resolved (function codes, error
;codes, etc). We should be able to say LIBR=FMSCLS or CLSTR=FMSCLS to build 
;against the FMS cluster library we will actually be using, but TKB won't let 
;us, giving a spurious error about memory address conflict. I tried building
;a dummy FMS library at a different address and building against that, but
;then the user program cant run unless that dummy library is loaded.
;The forms driver cant be included in the PLIFMS build because that would
;overflow the 16kb cluster window (this would actually be fine, since we
;dont need the forms driver, just its symbols - except that on overflow
;TKB doesnt generate a .TSK file). The forms driver cant be overlaid with 
;PLIFMS (.FCTR *!(PLIFMSC-PLIFMSD-libraries, FDV)) because TKB wont resolve 
;symbols across co-segments. It cant be overlaid against the library routines
;(.FCTR PLIFMSC-PLIFMSD-*!(libraries, FDV)) because then the library routines
;are accessed through the same revectoring mechanism as cluster calls, which
;garbages up the stack....
;
	.psect
	.title fmsfix

FS$SUC==1
FE$FNM==177767
F$STS ==000000
FE$FRM==177770
F$TRM ==000010
FE$FSP==177775
F$VAL ==000012
FE$ICH==177772
FE$IFN==177755
FE$IMP==177776
FE$INI==177753
FE$IOL==177774
FE$IOR==177756
FC$ALL==000020
FE$LIN==177766
FC$ANY==000022
FE$NOF==177764
FC$CLS==000006
FE$NSC==177762
FC$CSH==000000
FE$STR==177752
FC$DAT==000032
FE$UTR==177757
FC$GET==000016
FC$GSC==000034
FC$LST==000010
FC$OPN==000004
FC$PAL==000014
FC$PSC==000036
FC$PUT==000012
FC$RAL==000026
FC$RTN==000024
FC$SHO==000002
FC$SLN==000044
FC$SPF==000040
FC$SPN==000042
FC$TRM==000030
FE$ARG==177754
F$CHN ==000002
FE$DLN==177760
F$FNC ==000000
FE$DNM==177761
F$IMP ==000004
FE$DSP==177763
F$LEN ==000014
FE$FCD==177777
F$NAM ==000004
FE$FCH==177771
F$NUM ==000006
FE$FLB==177773
F$REQ ==000002
FE$FLD==177765
F$RSIZ==000006

	.end