.TITLE FCSFDB force common area FCSCA1,FCSCA2,FCSCA3 to contain some values .ENABL LC .MCALL FDOF$L,FSRSZ$ FDOF$L .PSECT FCSCA1,RW,D,GBL,REL,OVR F.C.S.:: ; global to force this to load at TKB time ; the global attaches to CA1 so DDT finds ; FCSCA? series commons INI: .BLKW 1 .PSECT FCSCA2,RW,D,GBL,REL,OVR FDB20: .BLKB S.FDB FDB21: .BLKB S.FDB FDB22: .BLKB S.FDB FDB23: .BLKB S.FDB FDB24: .BLKB S.FDB FDB25: .BLKB S.FDB FDB26: .BLKB S.FDB FDB27: .BLKB S.FDB FDB28: .BLKB S.FDB FDB29: .BLKB S.FDB FDB30: .BLKB S.FDB FDB31: .BLKB S.FDB FDB32: .BLKB S.FDB FDB33: .BLKB S.FDB .PSECT FCSCA3,RW,D,GBL,REL,OVR JUNK: .BLKW 1 FDBA20: .WORD FDB20 FDBA21: .WORD FDB21 FDBA22: .WORD FDB22 FDBA23: .WORD FDB23 FDBA24: .WORD FDB24 FDBA25: .WORD FDB25 FDBA26: .WORD FDB26 FDBA27: .WORD FDB27 FDBA28: .WORD FDB28 FDBA29: .WORD FDB29 FDBA30: .WORD FDB30 FDBA31: .WORD FDB31 FDBA32: .WORD FDB32 FDBA33: .WORD FDB33 FSRSZ$ 14. .END