COM Radio Entities

The following example shows the BGL file format of COM radio entities.

;DATABASE HEADER ********************************************************
dw0001;00 world set number (not saved to file list)
.
ddCOM_DATA;74 COM RADIO DATA
COM_DATA:
rel_base=com_data
LATBAND_REL2800h,2A00h,com_2800;289c Everett Payne
;28cc Port Angeles
LATBAND_REL2600h,2800h,com_2600;27d2 Olympia
LATBAND_REL2200h,2400h,com_2200;237d Chicago Meigs
;236c Chicago Midway
LATBAND_REL2000h,2200h,com_2000;21f3 Champaign Willard
;2034 Concord Buchanan
LATBAND_REL1E00h,2000h,com_1e00;1ff7 Oakland Intl.
;1faf San Jose Intl.
;1f2c Fresno Air TerminalLATBAND_REL1C00h,1E00h,com_1c00;1cc6 Los Angeles Intl.
;1c8e John Wayne Orange County
;1cd8 Santa Monica
;1d03 Van Nuys
LATBAND_REL1A00h,1C00h,com_1a00;1bc0 San Diego Lindbergh
EOL

COM_2000:
;Champaign Willard
ATIS2485h,end_201,21h,0f0fdh,0c1h,03baah,80,04,14+rght,22,32+left
db'Champaign Willard Airport - ',133,'Echo'
db130,128,139,137,132
db138,136,134,135,140
db'you have Echo',0
end_201label word
;Concord Buchanan
ATIS2470h,end_202,20h,034deh,0a9h,03519h,80,01+left,14+rght,19+rght,32+left
db'Concord Buchanan - ',133,'Golf'
db130,128,139,137,132
db138,136,134,135,140
db'you have Golf',0
end_202label word
EOL

;UNIVERSAL ENTITY OPCODES ***********************************************
EOLmacro
db0
endm

LATBAND_RELmacrolatmin,latmax,band_addr
db21
dwlatmin;;lat min (inclusive) 512M units
dwlatmax;;lat max (exclusive)
ddband_addr-rel_base;;32-bit rel_base relative ptr
endm

;COM DATABASE ***********************************************************
;NAV ENTITY OPCODE DEFINITIONS -
;OpFormatDefinition
;-----------------------------------------------------------------
;4ATIS
ATIS macro freq,op_end,lathi,latlo,lonhi,lonlo,rng,rw1,rw2,rw3,rw4
localop_base
op_basedb4;;opcode
dwfreq;;bcd frequency
dwlatlo;;N (2M units)
dblathi
dwlonlo;;W (24-bit pseudo)
dblonhi
dbrng;;range in 2048M units (approx 2 KM)
dwop_end-op_base;;ATIS entity size in bytes
dbrw1,rw2,rw3,rw4;;runways for n,s,e,w winds
endm

leftequ01000000b
rghtequ10000000b
cntrequ11000000b
;************************************************************
;Text expressions
;Referenced by character codes >127
;t128=128, t129=129, etc.
;************************************************************
token_expressionsPVOIDt128,t129,t130,t131,t132,t133,t134,t135,t136,t137
wndinxPVOIDt138,t139,t140,t141,t142,t143,t144,t145,t146,t147,t148
align1;all of these messages need to be packed together
t128db' weather - ',0
t129db' observation ',0
t130db' '
tokzuldb'12:00 zulu ',0
t131db0
t132db' Temperature '
toktmpdb'75  '
toktmptdb'f - ',0

t133db' Information ',0
t134db' Landing and departing runway '
tokrundb'31'
toklrcdb'l - ',0
t135db' Advise controller ',0
t136db' Altimeter '
tokpresdb'      - ',0
t137db' Visibility '
tokvisdb' 10 mi  - ',0
t138db' Winds '
tokwdrdb'330 at '
tokwvldb' 27 - ',0
t138cdb' Winds calm -',0
t138vdb' Winds light and variable -',0
t139db100 dup (0)
t140db' on initial contact ',0
t141db0
t142db0
align4
;version 4.00 tokens
t143db'Microsoft Flight Simulator',0
t144db' requesting ',0
t145db'clearance ',0
t146db', you are cleared ',0
t147db'... ',0
squawklabel word
t148db'7777 ',0;transponder squawk code