CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C FILE NAME UBAB:[361,15]RADCOM.CPY C C THIS COPYTEXT DEFINES RADCOM PART OF SPECOM C C C *********************************************************** C THIS COMMON AREA IS USED FOR THE DATA-STRUCTURES THAT HOLDS C A PICTURE THE TOTAL STATUS OF THE RADIO-SYSTEM. C The pascal definitions is described in [375,10]PRTKLTYP.PAS C ------------------- C CRADCO:: C INTEGER &RADPT(74) C C .REPT 15. PABX extended from 1 -> 3 C HBN 851017 C .WORD 0 A-PORT POINTER INTEGER &APNT EQUIVALENCE(&RADPT(1),&APNT) C C .WORD 0 B-PORT POINTER 1 INTEGER &B1PNT EQUIVALENCE(&RADPT(2),&B1PNT) C C .WORD 0 B-PORT POINTER 2 INTEGER &B2PNT EQUIVALENCE(&RADPT(3),&B2PNT) C C .WORD 0 PORT TYPE INTEGER &PTYP EQUIVALENCE(&RADPT(4),&PTYP) C C .WORD 0 PORT NUMBER INTEGER &PNUM EQUIVALENCE(&RADPT(5),&PNUM) C C .WORD 0 NOT USED INTEGER &DUM EQUIVALENCE(&RADPT(6),&DUM) C C .BLKW 4. A-PORT DATA INTEGER &APDAT(4) EQUIVALENCE(&RADPT(7),&APDAT(1)) C C .BLKW 64. B-PORT DATA (15.) INTEGER &BPDAT(64) EQUIVALENCE(&RADPT(11),&BPDAT(1)) C C .ENDR C