JOVIAL


JOVIAL is a high-level programming language similar to ALGOL, specialized for developing embedded systems. It was a major system programming language through the 1960s and 70s.

History

JOVIAL was developed as a new "high-order" programming language starting in 1959 by a team at System Development Corporation headed by Jules Schwartz to compose software for the electronics of military aircraft.
The name JOVIAL is an acronym for Jules' Own Version of the International Algebraic Language; International Algorithmic Language was a name proposed originally for ALGOL 58. According to Schwartz, the language was originally called OVIAL, but this was opposed for various reasons. JOVIAL was then suggested, with no meaning attached to the J. Somewhat jokingly it was suggested that the language be named after Schwartz, since he was the meeting chairperson, and this unofficial name stuck.
During the 1960s, JOVIAL was a part of the US Military L-project series, particularly the ITT 465L Strategic Air Command Control System, due to a lack of real-time computing programming languages available. Some 95 percent of the SACCS project, managed by International Telephone & Telegraph with software mainly written by SDC, was written in JOVIAL. The software project took two years and fewer than 1,400 programmer years, less than half of the equivalent time in the SAGE L-project.
During the late 1970s and early 1980s, the United States Air Force adopted a standardized central processing unit, the MIL-STD-1750A, and subsequent JOVIAL programs were built for that processor. Several commercial vendors provided compilers and related programming tools to build JOVIAL for processors such as the MIL-STD-1750A, including Advanced Computer Techniques, TLD Systems, Proprietary Software Systems, and others.
JOVIAL was standardized during 1973 with MIL-STD-1589 and was revised during 1984 with MIL-STD-1589C. It is still used much to update and maintain software on older military vehicles and aircraft. There are three dialects in common use: J3, J3B-2, and J73.
, JOVIAL is no longer maintained and distributed by the USAF JOVIAL Program Office. Software formerly distributed by the JPO is still available through commercial resources at Software Engineering Associates, Inc., as are other combinations of host/target processors including Windows, Linux, Mac OS X on PowerPC, SPARC, VAX, 1750A, PowerPC, TI-9989, Zilog Z800x, Motorola 680x0, and IBM System 360, System 370, and System z. Further, DDC-I, which acquired parts of Advanced Computer Techniques, also lists JOVIAL compilers and related tools as of 2020.
Most software implemented in JOVIAL is mission critical, and maintenance is growing more difficult. In December 2014, it was reported that software derived from JOVIAL code produced in the 1960s was involved in a major failure of the United Kingdom's air traffic control infrastructure, and that the agency that uses it, NATS Holdings, was having to train its IT staff in JOVIAL so they could maintain this software, which was not scheduled for replacement until 2016.

Influence

Languages influenced by JOVIAL include CORAL, SYMPL, Space Programming Language, and to some extent CMS-2. An interactive subset of JOVIAL called TINT, similar to JOSS was developed in the 1960s.

Features

JOVIAL includes features not found in standard ALGOL, such as records, arrays of records, and inline assembly language.

Applications

Notable systems using embedded JOVIAL software include:
The following example is taken from ''Computer Programming Manual for the JOVIAL Language.

PROC RETRIEVE;
BEGIN
ITEM CODE U;
ITEM VALUE F;
VALUE = -99999.;
FOR I:0 BY 1 WHILE I<1000;
IF CODE = TABCODE;
BEGIN
VALUE = TABVALUE;
EXIT;
END
END

This example defines a procedure named RETRIEVE which takes an unsigned integer input argument CODE and a floating-point output argument VALUE. It searches the 1000-element array TABCODE for an entry that matches CODE, and then sets the floating-point variable VALUE to the element of array TABVALUE having the same matching array index. If no matching element is found, VALUE is set to −99999.0.