CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C FILE NAME UBAB:[361,15]OPRCOM.CPY C C THIS COPYTEXT DEFINES OPRCOM PART OF SPECOM C C C C ********************************************************** C THIS COMMON AREA IS USED THE VDU'S AND THE PSEUDO OPERATORS C TO SEND MESSAGES TO THE REAR-FRONT PROTOKOL WHEN REQUESTING C ACCESS TO THE RADIOSYSTEM. C The pascal definitions is described in [361,10]OPRPNT.PAS C ------------------ C COPRCO:: C INTEGER &OPRPT(21) C C C .REPT 9. 5 VDU'S C 1 MISS WATCH C 3 PSEUDO-OPR. C C .WORD 0 FLAG (IN USE) INTEGER &FLAG EQUIVALENCE(&OPRPT(1),&FLAG) C C .WORD 0 CALL TYPE INTEGER &CTYPE EQUIVALENCE(&OPRPT(2),&CTYPE) C C .WORD 0 KEYBOARD TYPE INTEGER &KTYPE EQUIVALENCE(&OPRPT(3),&KTYPE) C C .WORD 0 CHANNELS TO BE USED INTEGER &CHANN EQUIVALENCE(&OPRPT(4),&CHANN) C C .BLKW 16. FOR CAR NUMBERS INTEGER &CARS(16) EQUIVALENCE(&OPRPT(5),&CARS(1)) C C .WORD 0 NEXT FUNC INTEGER &NXFUN EQUIVALENCE(&OPRPT(21),&NXFUN) C C .ENDR C