ASCII *NOSEQ *WIDTH 132 1 ------------------------------------------------ ! ! ! NOS SYMPL CODING STANDARD ! ! ! ------------------------------------------------ 1 1 06/01/83 TABLE OF CONTENTS 1.0 I^N^T^R^O^D^U^C^T^I^O^N . . . . . . . . . . . . . . . . . . . . . 1-1 2.0 C^O^D^I^N^G S^T^A^N^D^A^R^D^S . . . . . . . . . . . . . . . . . . . 2-1 2.1 G^E^N^E^R^A^L . . . . . . . . . . . . . . . . . . . . . . . 2-1 2.2 P^A^R^A^M^E^T^E^R^S . . . . . . . . . . . . . . . . . . . . . . 2-2 2.3 XREF . . . . . . . . . . . . . . . . . . . . . . . . . 2-2 2.4 DEF . . . . . . . . . . . . . . . . . . . . . . . . . 2-3 2.5 STATUS . . . . . . . . . . . . . . . . . . . . . . . . 2-3 2.6 COMDECK . . . . . . . . . . . . . . . . . . . . . . . 2-3 2.7 N^O^N-^A^R^R^A^Y I^T^E^M^S . . . . . . . . . . . . . . . . . . . 2-4 2.8 A^R^R^A^Y^S . . . . . . . . . . . . . . . . . . . . . . . . 2-4 2.9 FOR L^O^O^P^S (F^A^S^T ^O^R S^L^O^W) . . . . . . . . . . . . . . . 2-5 2.10 GOTO^S ^A^N^D SWITCH^E^S (C^A^S^E S^T^A^T^E^M^E^N^T) . . . . . . . . . 2-5 2.11 IF . . . . . . . . . . . . . . . . . . . . . . . . . 2-6 2.12 B^E^A^D . . . . . . . . . . . . . . . . . . . . . . . . 2-6 2.13 PROC^S, FUNC^S, ^A^N^D PRGM^S . . . . . . . . . . . . . . . 2-6 3.0 N^A^M^I^N^G C^O^N^V^E^N^T^I^O^N^S . . . . . . . . . . . . . . . . . 3-1 4.0 C^O^D^E R^E^A^D^A^B^I^L^I^T^Y . . . . . . . . . . . . . . . . . . . 4-1 4.1 F^O^R^M^A^T ^O^F S^T^A^T^E^M^E^N^T^S . . . . . . . . . . . . . . . . . 4-1 4.2 C^O^L^U^M^N 1 . . . . . . . . . . . . . . . . . . . . . . . 4-2 4.3 B^L^A^N^K L^I^N^E^S . . . . . . . . . . . . . . . . . . . . . 4-2 4.4 P^A^G^E E^J^E^C^T^S . . . . . . . . . . . . . . . . . . . . . 4-2 5.0 D^O^C^U^M^E^N^T^A^T^I^O^N S^T^A^N^D^A^R^D^S . . . . . . . . . . . . . . . 5-1 5.1 C^O^M^M^E^N^T F^O^R^M^A^T^S ^A^N^D T^Y^P^E^S . . . . . . . . . . . . . . 5-1 5.1.1 E^M^B^E^D^D^E^D C^O^M^M^E^N^T^S . . . . . . . . . . . . . . . . 5-1 5.1.2 S^I^N^G^L^E L^I^N^E C^O^M^M^E^N^T^S . . . . . . . . . . . . . . . 5-1 5.1.3 S^T^A^N^D A^L^O^N^E C^O^M^M^E^N^T^S . . . . . . . . . . . . . . . 5-2 5.1.3.1 B^R^A^C^K^E^T^S (****) . . . . . . . . . . . . . . . 5-2 5.1.3.2 E^X^T^E^R^N^A^L C^O^M^M^E^N^T^S (***) . . . . . . . . . . . 5-2 5.1.3.3 I^N^T^E^R^N^A^L C^O^M^M^E^N^T^S (**) . . . . . . . . . . . . 5-2 5.1.3.4 M^O^D^U^L^E C^O^M^M^E^N^T^S (*) . . . . . . . . . . . . . 5-3 5.2 P^R^O^G^R^A^M L^E^V^E^L D^O^C^U^M^E^N^T^A^T^I^O^N . . . . . . . . . . . . . 5-3 5.3 D^O^C^U^M^E^N^T^A^T^I^O^N ^O^F PROC^S ^A^N^D FUNC^S . . . . . . . . . . . 5-4 5.4 D^O^C^U^M^E^N^T^A^T^I^O^N ^W^I^T^H E^M^B^E^D^D^E^D C^O^M^M^E^N^T^S . . . . . . . . . 5-4 5.4.1 D^A^T^A D^E^C^L^A^R^A^T^I^O^N E^M^B^E^D^D^E^D C^O^M^M^E^N^T^S . . . . . . . . 5-4 5.4.2 A^C^T^I^O^N C^O^D^E E^M^B^E^D^D^E^D C^O^M^M^E^N^T^S . . . . . . . . . . 5-5 5.5 G^E^N^E^R^A^L D^O^C^U^M^E^N^T^A^T^I^O^N ^F^O^R PROC^S, PRGM^S ^O^R FUNC^S . . . 5-5 6.0 E^X^A^M^P^L^E^S . . . . . . . . . . . . . . . . . . . . . . . 6-1 6.1 COMDECK E^X^A^M^P^L^E^S . . . . . . . . . . . . . . . . . . . 6-1 6.2 PROC E^X^A^M^P^L^E . . . . . . . . . . . . . . . . . . . . . 6-2 6.3 S^T^A^T^U^S L^I^S^T/S^T^A^T^U^S S^W^I^T^C^H E^X^A^M^P^L^E . . . . . . . . . . 6-4 A1.0 A^D^D^E^N^D^U^M ^F^O^R SMF P^R^O^J^E^C^T . . . . . . . . . . . . . . A1-1 1 1-1 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 1.0 I^N^T^R^O^D^U^C^T^I^O^N ----------------------------------------------------------------- 1.0 I^N^T^R^O^D^U^C^T^I^O^N T^H^E ^P^U^R^P^O^S^E ^O^F ^T^H^I^S ^S^T^A^N^D^A^R^D ^I^S ^T^O ^P^R^O^V^I^D^E ^A ^M^E^A^N^I^N^G^F^U^L ^S^E^T ^O^F ^P^R^A^C^T^I^C^E^S ^W^H^I^C^H ^W^I^L^L ^L^E^A^D ^T^O "^G^O^O^D", ^C^O^N^S^I^S^T^E^N^T, ^M^A^I^N^T^A^I^N^A^B^L^E, ^O^R^G^A^N^I^Z^E^D ^A^N^D ^O^P^T^I^M^I^Z^E^D SYMPL ^C^O^D^E. T^H^I^S ^D^O^C^U^M^E^N^T ^U^S^E^D ^T^H^E SYMPL C^O^D^I^N^G S^T^A^N^D^A^R^D^S DAP (DCS S1831), ^T^H^E NOS COMPASS P^R^O^G^R^A^M^M^I^N^G S^T^A^N^D^A^R^D, ^A^N^D ^T^H^E SYMPL C^O^D^I^N^G S^T^A^N^D^A^R^D^S ^F^O^R ^T^H^E SYMPL ^P^R^O^J^E^C^T ^I^N SVL ^A^S ^G^U^I^D^E^L^I^N^E^S. T^H^I^S ^S^T^A^N^D^A^R^D ^I^S ^I^N ^A^D^D^I^T^I^O^N ^T^O ^T^H^E NOS COMPASS P^R^O^G^R^A^M^M^I^N^G S^T^A^N^D^A^R^D. T^H^E ^P^R^O^C^E^D^U^R^E^S ^E^S^T^A^B^L^I^S^H^E^D ^I^N ^T^H^E COMPASS ^S^T^A^N^D^A^R^D ^W^H^I^C^H ^A^R^E ^N^O^T ^U^N^I^Q^U^E ^T^O ^T^H^E COMPASS ^L^A^N^G^U^A^G^E (^I.^E. G^E^N^E^R^A^L R^E^Q^U^I^R^E^M^E^N^T^S, C^O^D^E T^R^A^N^S^M^I^T^T^A^L R^U^L^E^S, ^A^N^D D^A^Y^F^I^L^E M^E^S^S^A^G^E^S) ^A^R^E ^T^O ^B^E ^A^D^H^E^R^E^D ^T^O ^F^O^R SYMPL ^P^R^O^G^R^A^M^M^I^N^G ^A^L^S^O. W^H^E^R^E ^T^H^E ^W^O^R^D "^M^U^S^T" ^A^P^P^E^A^R^S ^I^N ^T^H^I^S ^S^T^A^N^D^A^R^D, ^D^E^V^I^A^T^I^O^N^S ^W^I^L^L ^N^O^T ^B^E ^A^P^P^R^O^V^E^D. W^H^E^R^E ^T^H^E ^W^O^R^D "^S^H^O^U^L^D" ^A^P^P^E^A^R^S, ^R^E^V^I^E^W^E^R^S ^M^A^Y ^A^L^L^O^W ^A ^D^E^V^I^A^T^I^O^N ^I^F ^T^H^E ^A^N^A^L^Y^S^T ^C^A^N ^P^R^E^S^E^N^T ^C^O^N^V^I^N^C^I^N^G ^R^E^A^S^O^N^S ^F^O^R ^T^H^E ^D^E^V^I^A^T^I^O^N. 1 2-1 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 2.0 C^O^D^I^N^G S^T^A^N^D^A^R^D^S ----------------------------------------------------------------- 2.0 C^O^D^I^N^G S^T^A^N^D^A^R^D^S 2.1 G^E^N^E^R^A^L A^L^L ^D^E^C^L^A^R^A^T^I^O^N^S ^P^E^R^T^A^I^N^I^N^G ^T^O ^A PROC ^O^R FUNC ^S^H^O^U^L^D ^U^S^E ^T^H^E ^F^O^L^L^O^W^I^N^G ^G^R^O^U^P^I^N^G F^O^R^M^A^L P^A^R^A^M^E^T^E^R^S XREF^S DEF^S STATUS ^N^A^M^E^S COMDECK^S ITEM^S BASED ARRAY^S ARRAY^S SWITCH^E^S O^T^H^E^R A^L^L ^D^E^C^L^A^R^A^T^I^O^N^S ^O^R ^C^A^L^L^S ^T^O COMDECK^S ^S^H^O^U^L^D ^B^E ^I^N ^A^L^P^H^A^B^E^T^I^C ^O^R^D^E^R. E^A^C^H ^D^E^C^L^A^R^A^T^I^O^N ^M^U^S^T ^S^T^A^R^T ^O^N ^A ^S^E^P^A^R^A^T^E ^L^I^N^E ^A^N^D ^M^U^S^T ^B^E ^A^C^C^O^M^P^A^N^I^E^D ^B^Y ^A ^C^O^M^M^E^N^T ^D^E^S^C^R^I^B^I^N^G ^I^T^S ^F^U^N^C^T^I^O^N. E^A^C^H ^E^X^E^C^U^T^A^B^L^E ^S^T^A^T^E^M^E^N^T ^M^U^S^T ^S^T^A^R^T ^O^N ^A ^S^E^P^A^R^A^T^E ^L^I^N^E. E^A^C^H BEGIN ^A^N^D END ^M^U^S^T ^B^E ^O^N ^A ^S^E^P^A^R^A^T^E ^L^I^N^E. A ^D^E^C^L^A^R^A^T^I^O^N ^W^H^I^C^H ^I^S ^A ^O^N^E-^B^I^T ^F^I^E^L^D ^S^H^O^U^L^D ^B^E B^O^O^L^E^A^N. S^E^L^F ^M^O^D^I^F^Y^I^N^G ^C^O^D^E ^M^U^S^T ^N^O^T ^B^E ^U^S^E^D. A^L^L ^L^A^B^E^L^S ^B^E^G^I^N ^I^N ^C^O^L^U^M^N ^O^N^E. L^A^B^E^L^S ^M^U^S^T ^A^P^P^E^A^R ^O^N ^L^I^N^E^S ^B^Y ^T^H^E^M^S^E^L^V^E^S ^E^X^C^E^P^T ^F^O^R ^E^M^B^E^D^D^E^D ^C^O^M^M^E^N^T^S. A^L^L ^L^A^B^E^L ^N^A^M^E^S ^M^U^S^T ^B^E ^U^N^I^Q^U^E ^W^I^T^H^I^N ^A PROC/FUNC. TEST ^M^U^S^T ^N^E^V^E^R ^B^E ^U^S^E^D ^W^I^T^H^O^U^T ^E^X^P^L^I^C^I^T^L^Y ^S^T^A^T^I^N^G ^T^H^E ^I^N^D^U^C^T^I^O^N ^V^A^R^I^A^B^L^E ^I^T ^I^S ^T^E^S^T^I^N^G. D^E^F^I^N^E CONTROL DISJOINT ^A^N^D CONTROL INERT ^I^N ^A COMDECK. U^S^E CONTROL OVERLAP ^A^N^D CONTROL REACTIVE ^T^O ^D^E^F^I^N^E ^T^H^E ^E^X^C^E^P^T^I^O^N^S. W^H^E^R^E ^N^U^M^E^R^I^C ^C^O^N^S^T^A^N^T^S ^A^R^E ^E^S^T^A^B^L^I^S^H^E^D ^V^I^A DEF^S ^O^R STATUS ^L^I^S^T^S, ^T^H^E ^A^S^S^U^M^E^D ^N^U^M^E^R^I^C ^V^A^L^U^E^S ^S^H^O^U^L^D ^N^O^T ^A^P^P^E^A^R ^I^N ^T^H^E ^C^O^D^I^N^G ^D^O^C^U^M^E^N^T^A^T^I^O^N. I^T^E^M^S I, J ^A^N^D K ^S^H^O^U^L^D ^B^E ^R^E^S^E^R^V^E^D ^A^S ^S^I^M^P^L^E ^L^O^O^P ^O^R ^C^O^N^T^R^O^L ^V^A^R^I^A^B^L^E^S. 1 2-2 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 2.0 C^O^D^I^N^G S^T^A^N^D^A^R^D^S 2.1 G^E^N^E^R^A^L ----------------------------------------------------------------- T^H^E ^C^O^D^E ^M^U^S^T ^N^O^T ^M^A^K^E ^A^S^S^U^M^P^T^I^O^N^S ^A^B^O^U^T ^T^H^E ^O^C^T^A^L ^R^E^P^R^E^S^E^N^T^A- ^T^I^O^N ^O^F ^C^H^A^R^A^C^T^E^R^S. T^H^I^S ^R^E^P^R^E^S^E^N^T^A^T^I^O^N ^V^A^R^I^E^S ^B^E^T^W^E^E^N ^T^H^E ^V^A^R^I^O^U^S NOS ^C^H^A^R^A^C^T^E^R ^S^E^T^S. M^A^C^H^I^N^E ^I^N^D^E^P^E^N^D^E^N^T ^I^N^S^T^R^U^C^T^I^O^N^S ^W^H^E^N ^A^V^A^I^L^A^B^L^E ^S^H^O^U^L^D ^B^E ^U^S^E^D ^I^N ^P^R^E^F^E^R^E^N^C^E ^T^O ^D^E^P^E^N^D^E^N^T ^S^T^R^U^C^T^U^R^E^S. 2.2 P^A^R^A^M^E^T^E^R^S U^S^E ^C^A^L^L-^B^Y-^V^A^L^U^E ^P^A^R^A^M^E^T^E^R^S ^W^H^E^N^E^V^E^R ^P^O^S^S^I^B^L^E. O^N^L^Y ^U^S^E ^C^A^L^L-^B^Y-^A^D^D^R^E^S^S ^W^H^E^N ^T^H^E ^P^A^R^A^M^E^T^E^R ^I^S ^M^O^D^I^F^I^E^D ^W^I^T^H^I^N ^T^H^E ^P^R^O^C^E^D^U^R^E ^A^N^D ^T^H^E ^N^E^W ^V^A^L^U^E ^O^F ^T^H^E ^P^A^R^A^M^E^T^E^R^S ^I^S ^R^E^T^U^R^N^E^D ^T^O ^T^H^E ^C^A^L^L^I^N^G ^P^R^O^G^R^A^M. R^E^U^S^E ^A^C^T^U^A^L ^P^A^R^A^M^E^T^E^R ^L^I^S^T^S ^W^H^E^N^E^V^E^R ^P^O^S^S^I^B^L^E. I^F ^T^H^E ^P^A^R^A^M^E^T^E^R^S ^A^R^E ^U^S^E^D ^F^O^R ^A ^N^U^M^B^E^R ^O^F ^C^A^L^L^S, ^U^S^E ^T^H^E ^S^A^M^E ^O^R^D^E^R ^O^F ^P^A^R^A^M^E^T^E^R^S ^F^O^R ^M^O^R^E ^E^F^F^I^C^I^E^N^T ^C^O^D^I^N^G. F^O^R^M^A^L ^P^A^R^A^M^E^T^E^R^S ^M^U^S^T ^B^E ^D^E^C^L^A^R^E^D ^W^I^T^H^I^N ^T^H^E PROC/FUNC ^R^A^T^H^E^R ^T^H^A^N ^I^N ^A ^C^O^M^M^O^N ^D^E^C^K. T^H^E^Y ^C^A^N ^B^E ^O^R^D^E^R^E^D ^A^L^P^H^A^B^E^T^I^C^A^L^L^Y ^O^R ^A^C^C^O^R^D^I^N^G ^T^O ^T^H^E ^C^A^L^L^I^N^G ^S^E^Q^U^E^N^C^E. A^N ^A^R^R^A^Y ^I^T^E^M ^M^U^S^T ^N^O^T ^B^E ^U^S^E^D ^A^S ^A ^P^A^R^A^M^E^T^E^R ^W^H^E^R^E ^A ^N^E^W ^V^A^L^U^E ^O^F ^T^H^E ^P^A^R^A^M^E^T^E^R ^I^S ^R^E^T^U^R^N^E^D, ^S^I^N^C^E ^T^H^I^S ^F^E^A^T^U^R^E ^I^S ^N^O^T ^S^U^P^P^O^R^T^E^D ^I^N SYMPL. 2.3 XREF D^E^C^L^A^R^A^T^I^O^N ^O^F ^E^X^T^E^R^N^A^L ^P^R^O^C^E^D^U^R^E ^N^A^M^E^S ^A^R^E ^T^O ^B^E ^D^O^N^E ^I^N ^T^H^E ^F^O^L^L^O^W^I^N^G ^F^O^R^M^A^T. T^H^E ^R^E^F^E^R^E^N^C^E^D PROC/FUNC ^N^A^M^E^S ^A^R^E ^T^O ^B^E ^I^N ^A^L^P^H^A^B^E^T^I^C ^S^E^Q^U^E^N^C^E. E^X^A^M^P^L^E@D # **** PROC Y - XREF LIST BEGIN. # XREF BEGIN PROC APPLE; # PARES APPLE # PROC BANANA; # PEELS BANANA # PROC ORANGE; # SQUEEZES ORANGE # END # **** PROC Y - XREF LIST END. # 1 2-3 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 2.0 C^O^D^I^N^G S^T^A^N^D^A^R^D^S 2.4 DEF ----------------------------------------------------------------- 2.4 DEF U^S^E DEF ^T^O ^P^R^O^V^I^D^E ^S^Y^M^B^O^L^I^C ^C^O^N^S^T^A^N^T^S ^F^O^R ^N^U^M^E^R^I^C ^C^O^N^S^T^A^N^T^S ^F^O^R ^E^A^S^E ^I^N ^F^I^N^D^I^N^G, ^I^D^E^N^T^I^F^Y^I^N^G ^A^N^D ^M^O^D^I^F^Y^I^N^G ^P^A^R^A^M^E^T^E^R^S. A DEF ^M^U^S^T ^N^O^T ^B^E ^U^S^E^D ^T^O ^R^E^N^A^M^E ^A ^V^A^R^I^A^B^L^E. A DEF ^M^U^S^T ^N^O^T ^B^E ^U^S^E^D ^T^O ^R^E^D^E^F^I^N^E ^A ^F^U^N^C^T^I^O^N ^C^A^L^L, ^A ^R^E^S^E^R^V^E^D ^W^O^R^D, ^O^R ^A^N ^O^P^E^R^A^T^I^O^N ^U^N^L^E^S^S ^I^T ^I^S ^U^S^E^D ^C^O^N^S^I^S^T^E^N^T^L^Y ^T^H^R^O^U^G^H^O^U^T ^T^H^E ^S^Y^S^T^E^M ^T^O ^I^M^P^R^O^V^E ^C^L^A^R^I^T^Y. O^T^H^E^R^W^I^S^E, ^T^H^I^S ^M^A^Y ^T^E^N^D ^T^O ^O^B^S^C^U^R^E ^T^H^E ^A^C^T^U^A^L ^C^O^D^E. A^L^L DEF^S ^W^H^I^C^H ^R^E^D^E^F^I^N^E ^T^H^E ^C^O^D^E ^O^R ^M^A^K^E ^I^T ^A ^C^O^N^D^I^T^I^O^N^A^L ^C^O^M^P^I^L^A^T^I^O^N ^W^I^L^L ^B^E ^P^L^A^C^E^D ^I^N ^A COMDECK. T^H^E DEF ^F^O^R^M^A^T ^F^O^R ^A ^F^U^L^L ^W^O^R^D ^O^C^T^A^L ^C^O^N^S^T^A^N^T ^I^S ^I^N 4-^D^I^G^I^T ^P^A^R^C^E^L^S. F^O^R ^E^X^A^M^P^L^E@D DEF ERRMASK #O"0037 7740 0505 0000 7777"#; # ERROR BIT MASK # 2.5 STATUS S^T^A^T^U^S ^L^I^S^T^S ^S^H^O^U^L^D ^C^O^N^T^A^I^N ^N^O ^U^N^U^S^E^D ^P^O^S^I^T^I^O^N^S. A^N^Y ^U^N^U^S^E^D ^P^O^S^I^T^I^O^N^S ^M^U^S^T ^B^E ^F^I^L^L^E^D ^W^I^T^H ^A ^D^U^M^M^Y ^A^R^G^U^M^E^N^T ^A^N^D ^H^A^V^E ^A # RESERVED # ^O^R # NOT USED # ^C^O^M^M^E^N^T. I^T ^M^A^Y ^B^E ^B^E^T^T^E^R ^T^O ^U^S^E DEF^S ^I^F ^T^H^E^R^E ^A^R^E ^M^A^N^Y ^U^N^U^S^E^D ^P^O^S^I^T^I^O^N^S ^O^R ^A^N^Y ^O^F ^T^H^E ^E^L^E^M^E^N^T^S ^A^R^E ^E^X^P^E^C^T^E^D ^T^O ^C^H^A^N^G^E. 2.6 COMDECK E^X^E^C^U^T^A^B^L^E ^C^O^D^E ^S^H^O^U^L^D ^N^O^T ^B^E ^P^L^A^C^E^D ^I^N ^A COMDECK. T^H^E ^D^E^C^L^A^R^A^T^I^O^N^S ^F^O^R ^A ^D^A^T^A ^S^T^R^U^C^T^U^R^E ^M^U^S^T ^B^E ^W^H^O^L^L^Y ^C^O^N^T^A^I^N^E^D ^W^I^T^H^I^N ^A ^S^I^N^G^L^E ^C^O^M^M^O^N ^D^E^C^K. W^H^E^R^E ^T^W^O ^O^R ^M^O^R^E ^D^A^T^A ^S^T^R^U^C^T^U^R^E^S ^A^R^E ^I^N^T^E^R^D^E^P^E^N^D^E^N^T, ^T^H^E ^D^E^C^L^A^R^A^T^I^O^N^S ^F^O^R ^T^H^E ^I^N^T^E^R^D^E^P^E^N^D^E^N^T ^S^T^R^U^C^T^U^R^E^S ^M^U^S^T ^B^E ^I^N ^T^H^E ^S^A^M^E ^C^O^M^M^O^N ^D^E^C^K. L^O^G^I^C^A^L^L^Y ^A^S^S^O^C^I^A^T^E^D ^D^A^T^A ^I^T^E^M^S ^A^N^D ^S^T^R^U^C^T^U^R^E^S ^S^H^O^U^L^D ^B^E ^D^E^C^L^A^R^E^D ^I^N ^O^N^E COMDECK ^U^N^L^E^S^S ^T^H^E^Y ^A^R^E ^O^N^L^Y ^T^O ^B^E ^U^S^E^D ^B^Y ^O^N^E ^M^O^D^U^L^E ^W^H^E^R^E ^T^H^E^Y ^M^A^Y ^B^E ^D^E^C^L^A^R^E^D ^L^O^C^A^L^L^Y. O^N^E ^O^R ^M^O^R^E COMDECK^S ^M^U^S^T ^C^O^N^T^A^I^N ^A^L^L ^D^E^C^L^A^R^A^T^I^O^N^S ^A^F^F^E^C^T^I^N^G ^T^A^B^L^E ^S^I^Z^E ^W^H^I^C^H ^C^O^U^L^D ^B^E ^C^H^A^N^G^E^D ^W^I^T^H ^T^H^E ^S^Y^S^T^E^M. T^H^I^S ^I^S ^T^O ^F^A^C^I^L^I^T^A^T^E ^M^A^I^N^T^E^N^A^N^C^E. C^O^M^M^O^N ^D^E^C^K^S ^M^U^S^T ^N^O^T ^B^E ^L^I^S^T^E^D. A PRGM, PROC ^O^R FUNC ^S^H^O^U^L^D ^O^N^L^Y ^C^A^L^L ^T^H^E ^C^O^M^M^O^N ^D^E^C^K^S ^T^H^A^T ^I^T ^R^E^F^E^R^E^N^C^E^S. 1 2-4 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 2.0 C^O^D^I^N^G S^T^A^N^D^A^R^D^S 2.6 COMDECK ----------------------------------------------------------------- E^V^E^R^Y ^C^O^M^M^O^N ^D^E^C^K ^M^U^S^T ^H^A^V^E ^A^N ^O^V^E^R^V^I^E^W ^D^E^S^C^R^I^P^T^I^O^N ^O^F ^W^H^A^T ^I^T ^D^O^E^S. T^H^E ^F^O^L^L^O^W^I^N^G ^F^O^R^M^A^T ^I^S ^T^O ^B^E ^U^S^E^D. T^H^E ^L^I^S^T ^C^O^N^T^R^O^L ^S^T^A^T^E^M^E^N^T^S ^B^E^G^I^N ^I^N ^C^O^L^U^M^N 48. # ^D^E^C^K ^N^A^M^E - ^D^E^S^C^R^I^P^T^I^O^N. # CONTROL NOLIST; CONTROL IFEQ LISTCON,1; CONTROL LIST; CONTROL FI; # *** ^D^E^C^K ^N^A^M^E - ^D^E^S^C^R^I^P^T^I^O^N. * * (^P^U^R^P^O^S^E) (^S^E^V^E^R^A^L ^L^I^N^E^S ^C^A^N ^B^E ^U^S^E^D) # CONTROL LIST; 2.7 N^O^N-^A^R^R^A^Y I^T^E^M^S T^H^E ^I^T^E^M^S, ^T^H^E ^V^A^R^I^A^B^L^E ^N^A^M^E^S, ^T^H^E ^T^Y^P^E^S, ^T^H^E ^P^R^E^S^E^T^S ^A^N^D ^T^H^E ^E^M^B^E^D^D^E^D ^C^O^M^M^E^N^T^S ^S^H^O^U^L^D ^E^A^C^H ^B^E ^V^E^R^T^I^C^A^L^L^Y ^A^L^I^G^N^E^D. L^E^A^V^E ^R^O^O^M ^F^O^R ^T^E^N ^C^H^A^R^A^C^T^E^R ^V^A^R^I^A^B^L^E ^N^A^M^E^S ^A^N^D ^L^E^A^V^E ^R^O^O^M ^F^O^R ^C^H^A^R^A^C^T^E^R ^C^O^U^N^T^S ^O^N ^C^H^A^R^A^C^T^E^R ^T^Y^P^E ^I^T^E^M^S ^F^O^R ^E^A^S^E ^O^F ^F^U^T^U^R^E ^M^A^I^N^T^E^N^A^N^C^E. V^A^R^I^A^B^L^E^S ^S^H^O^U^L^D ^B^E ^D^E^C^L^A^R^E^D ^A^L^P^H^A^B^E^T^I^C^A^L^L^Y. 2.8 A^R^R^A^Y^S A^R^R^A^Y^S ^U^S^E^D ^B^Y ^M^O^R^E ^T^H^A^N ^O^N^E PROC ^M^U^S^T ^B^E ^D^E^F^I^N^E^D ^I^N COMDECK^S. U^S^A^G^E ^O^F ^I^T^E^M^S ^F^R^O^M ^A^N ^A^R^R^A^Y ^M^U^S^T ^A^L^W^A^Y^S ^B^E ^S^U^B^S^C^R^I^P^T^E^D. I^T ^I^S ^C^O^N^F^U^S^I^N^G ^T^O ^D^E^F^A^U^L^T ^S^U^B^S^C^R^I^P^T^S. I^T^E^M ^D^E^C^L^A^R^A^T^I^O^N^S ^M^U^S^T ^B^E ^I^N ^A^S^C^E^N^D^I^N^G ^O^R^D^E^R (^I.^E. ^W^O^R^D 0 ^B^I^T 0 ^T^O ^W^O^R^D ^N ^B^I^T ^N). I^F ^O^V^E^R^L^A^P^P^I^N^G ^D^E^C^L^A^R^A^T^I^O^N^S ^A^R^E ^U^S^E^D, ^T^H^E^N ^T^H^E ^I^T^E^M ^W^H^I^C^H ^S^P^A^N^S ^O^T^H^E^R ^I^T^E^M^S ^M^U^S^T ^B^E ^F^I^R^S^T. A^R^R^A^Y ^I^N^D^I^C^E^S ^S^H^O^U^L^D ^S^T^A^R^T ^W^I^T^H ^Z^E^R^O. T^H^E ^A^R^R^A^Y ^N^A^M^E, ^B^O^U^N^D^S ^A^N^D ^T^H^E ^A^L^L^O^C^A^T^I^O^N/^S^I^Z^E ^M^U^S^T ^B^E ^S^E^P^A^R^A^T^E^D ^B^Y ^B^L^A^N^K^S (^E.^G. ARRAY EXMAPLE [0@D10] P(2); ). I^T^E^M^S ^W^I^T^H^I^N ^A^N ^A^R^R^A^Y ^A^R^E ^A^L^I^G^N^E^D ^W^I^T^H ^T^H^E ^B^E^G^I^N ^F^O^R ^E^A^S^E ^O^F ^R^E^A^D^I^N^G. E^A^C^H ^I^T^E^M ^M^U^S^T ^B^E ^D^O^C^U^M^E^N^T^E^D. 1 2-5 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 2.0 C^O^D^I^N^G S^T^A^N^D^A^R^D^S 2.8 A^R^R^A^Y^S ----------------------------------------------------------------- T^H^E ^I^T^E^M ^N^A^M^E^S, ^T^Y^P^E/^P^O^S^I^T^I^O^N^S, ^P^R^E^S^E^T ^V^A^L^U^E^S, ^A^N^D ^E^M^B^E^D^D^E^D ^C^O^M^M^E^N^T^S ^S^H^O^U^L^D ^E^A^C^H ^B^E ^V^E^R^T^I^C^A^L^L^Y ^A^L^I^G^N^E^D. L^E^A^V^E ^R^O^O^M ^F^O^R ^T^E^N ^C^H^A^R^A^C^T^E^R ^I^T^E^M ^N^A^M^E^S ^A^N^D ^F^O^R ^T^W^O ^D^I^G^I^T "^E^P", "^F^B^I^T", ^A^N^D "^S^I^Z^E" ^F^I^E^L^D^S ^A^N^D ^U^S^E ^A^T ^L^E^A^S^T ^T^W^O ^S^P^A^C^E^S ^A^F^T^E^R ^T^H^E ^S^E^M^I^C^O^L^O^N ^T^O ^E^A^S^E ^F^U^T^U^R^E ^M^A^I^N^T^E^N^A^N^C^E. 2.9 FOR L^O^O^P^S (F^A^S^T ^O^R S^L^O^W) FOR ^L^O^O^P^S ^A^R^E ^O^F ^T^W^O ^T^Y^P^E^S. I^N ^T^H^E ^S^L^O^W FOR ^L^O^O^P, ^T^H^E ^O^B^J^E^C^T ^C^O^D^E ^H^A^S ^A ^D^I^R^E^C^T ^C^O^R^R^E^S^P^O^N^D^E^N^C^E ^W^I^T^H ^T^H^E SYMPL ^S^T^A^T^E^M^E^N^T^S. T^H^I^S ^I^S ^N^O^T ^T^H^E ^C^A^S^E ^W^I^T^H ^F^A^S^T ^L^O^O^P^S. A ^F^A^S^T-^F^O^R-^L^O^O^P ^I^S ^O^P^T^I^M^I^Z^E^D ^B^Y ^P^R^E-^E^V^A^L^U^A^T^I^N^G ^T^H^E STEP ^A^N^D UNTIL/WHILE ^E^L^E^M^E^N^T^S. A^T ^L^E^A^S^T ^O^N^E ^C^Y^C^L^E ^O^F ^T^H^E ^L^O^O^P ^I^S ^E^X^E^C^U^T^E^D. F^A^S^T FOR ^L^O^O^P^S ^A^N^D ^S^L^O^W FOR ^L^O^O^P^S ^M^U^S^T ^B^E ^U^S^E^D. A ^S^I^M^P^L^E FOR ^S^T^A^T^E^M^E^N^T ^M^U^S^T ^N^O^T ^B^E ^U^S^E^D. F^O^R ^E^A^S^I^E^R ^R^E^A^D^A^B^I^L^I^T^Y ^A^N^D ^P^R^O^G^R^A^M^M^I^N^G, ^U^S^E DEF ^S^T^A^T^E^M^E^N^T^S ^T^O ^S^E^T ^U^P FASTFOR ^O^R SLOWFOR ^I^N^S^T^E^A^D ^O^F ^T^H^E CONTROL FASTLOOP ^O^R CONTROL SLOWLOOP. T^H^E^S^E DEF ^S^T^A^T^E^M^E^N^T^S ^S^H^O^U^L^D ^B^E ^P^L^A^C^E^D ^I^N ^A COMDECK. DEF FASTFOR #CONTROL FASTLOOP; FOR# DEF SLOWFOR #CONTROL SLOWLOOP; FOR# F^O^R ^B^E^T^T^E^R ^O^P^T^I^M^I^Z^A^T^I^O^N ^C^O^N^S^I^D^E^R ^U^S^I^N^G STEP/WHILE ^A^S ^A^N ^A^L^T^E^R^N^A^T^I^V^E ^T^O STEP/UNTIL. T^H^E ^I^N^D^U^C^T^I^O^N ^V^A^R^I^A^B^L^E ^M^U^S^T ^N^O^T ^B^E ^C^H^A^N^G^E^D ^D^U^R^I^N^G ^T^H^E ^L^O^O^P ^O^R ^B^Y ^A FUNC ^C^A^L^L^E^D ^W^H^I^L^E ^E^V^A^L^U^A^T^I^N^G ^T^H^E STEP/UNTIL/WHILE ^P^A^R^T. T^H^E ^E^X^I^T ^F^R^O^M ^A ^L^O^O^P ^S^H^O^U^L^D ^B^E ^T^H^R^O^U^G^H ^A^N UNTIL/WHILE ^O^R ^A ^R^E^T^U^R^N ^S^T^A^T^E^M^E^N^T. T^H^E ^E^N^T^R^Y ^I^N^T^O ^A ^L^O^O^P ^M^U^S^T ^N^O^T ^B^E ^I^N ^T^H^E ^M^I^D^D^L^E ^O^F ^T^H^E ^L^O^O^P. T^H^E ^E^X^E^C^U^T^A^B^L^E ^S^T^A^T^E^M^E^N^T(^S) ^A^F^T^E^R ^T^H^E DO ^P^A^R^T ^O^F ^A FOR ^L^O^O^P ^M^U^S^T ^B^E ^E^N^C^L^O^S^E^D ^I^N ^A BEGIN/END ^P^A^I^R. 2.10 GOTO^S ^A^N^D SWITCH^E^S (C^A^S^E S^T^A^T^E^M^E^N^T) GOTO ^S^H^O^U^L^D ^B^E ^E^M^P^L^O^Y^E^D ^O^N^L^Y ^I^F ^T^H^E ^R^E^S^U^L^T^I^N^G ^S^O^U^R^C^E ^C^O^D^E ^I^S ^D^E^M^O^N^S^T^R^A^B^L^Y ^S^U^P^E^R^I^O^R ^I^N ^P^E^R^F^O^R^M^A^N^C^E, ^C^L^A^R^I^T^Y, ^M^A^I^N^T^A^I^N^A^B^I^L^I^T^Y, ^O^R ^E^X^T^E^N^D^I^B^I^L^I^T^Y. I^N ^S^P^I^T^E ^O^F ^S^T^R^U^C^T^U^R^E^D ^P^R^O^G^R^A^M^M^I^N^G, GOTO^S ^M^A^Y ^M^A^K^E ^T^H^E ^C^O^D^E ^M^O^R^E ^E^F^F^I^C^I^E^N^T ^I^F ^E^M^P^L^O^Y^E^D ^P^R^O^P^E^R^L^Y. GOTO^S ^M^A^Y ^M^A^K^E ^I^T ^D^I^F^F^I^C^U^L^T ^T^O ^F^O^L^L^O^W ^L^O^G^I^C. J^U^M^P^S ^I^N^T^O FOR ^L^O^O^P^S ^M^U^S^T ^N^O^T ^B^E ^U^S^E^D. J^U^M^P^S ^I^N^T^O ^C^O^D^E ^W^I^T^H^I^N ^A THEN ^O^R ELSE ^S^H^O^U^L^D ^N^O^T ^B^E ^U^S^E^D. J^U^M^P^S ^B^A^C^K^W^A^R^D^S ^I^N ^T^H^E ^C^O^D^E ^S^H^O^U^L^D ^N^O^T ^B^E ^U^S^E^D. 1 2-6 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 2.0 C^O^D^I^N^G S^T^A^N^D^A^R^D^S 2.10 GOTO^S ^A^N^D SWITCH^E^S (C^A^S^E S^T^A^T^E^M^E^N^T) ----------------------------------------------------------------- A GOTO ^S^T^A^T^E^M^E^N^T ^S^P^E^C^I^F^Y^I^N^G ^A ^S^U^B^S^C^R^I^P^T^E^D ^S^W^I^T^C^H ^L^I^S^T ^M^A^Y ^B^E ^U^S^E^D ^T^O ^S^I^M^U^L^A^T^E ^A ^C^A^S^E ^S^T^A^T^E^M^E^N^T. E^A^C^H ^C^A^S^E ^S^H^O^U^L^D ^E^N^D ^W^I^T^H ^A GOTO ^B^R^A^N^C^H^I^N^G ^T^O ^A ^C^O^M^M^O^N ^E^X^I^T, ^A RETURN ^S^T^A^T^E^M^E^N^T, ^O^R ^A^N ABORT ^C^A^L^L. S^I^M^U^L^A^T^E^D ^C^A^S^E ^S^T^A^T^E^M^E^N^T^S ^M^A^Y ^U^S^E ^A ^M^U^L^T^I^P^L^I^C^I^T^Y ^O^F ^L^A^B^E^L^S ^F^O^R ^E^X^I^T^S, ^P^R^O^V^I^D^E^D ^T^H^A^T ^T^H^E ^S^E^L^E^C^T^I^O^N ^O^F ^E^X^I^T ^P^O^I^N^T^S ^I^S ^D^O^N^E ^T^O ^A^C^H^I^E^V^E ^C^O^N^S^O^L^I^D^A^T^I^O^N ^O^F ^S^I^M^I^L^A^R ^S^E^Q^U^E^N^C^E^S ^O^F ^C^O^D^E, ^A^N^D ^T^H^A^T ^A^L^L ^S^U^C^H ^L^A^B^E^L^S ^A^R^E ^G^R^O^U^P^E^D ^T^O^G^E^T^H^E^R. S^E^E ^T^H^E E^X^A^M^P^L^E^S ^S^E^C^T^I^O^N ^F^O^R ^A^N ^E^X^A^M^P^L^E ^O^F ^A ^S^I^M^U^L^A^T^E^D ^C^A^S^E ^S^T^A^T^E^M^E^N^T. 2.11 IF T^H^E THEN ^A^N^D ELSE ^P^A^R^T ^O^F ^A^N IF ^S^T^A^T^E^M^E^N^T ^M^U^S^T ^A^L^W^A^Y^S ^U^S^E ^A BEGIN/END ^P^A^I^R. I^F ^E^M^B^E^D^D^E^D ^C^O^M^M^E^N^T^S ^A^R^E ^N^E^E^D^E^D ^T^O ^D^E^S^C^R^I^B^E ^T^H^E ^C^O^N^D^I^T^I^O^N, ^T^H^E^Y ^S^H^O^U^L^D ^B^E ^P^L^A^C^E^D ^W^I^T^H ^E^I^T^H^E^R ^T^H^E THEN/ELSE ^O^R ^T^H^E ^A^S^S^O^C^I^A^T^E^D BEGIN/END ^P^A^I^R ^R^A^T^H^E^R ^T^H^A^N ^O^N ^T^H^E IF. A ^S^T^A^N^D ^A^L^O^N^E ^C^O^M^M^E^N^T ^F^O^L^L^O^W^I^N^G ^T^H^E THEN ^O^R ELSE ^M^A^Y ^B^E ^U^S^E^D ^I^N^S^T^E^A^D ^I^F ^E^M^B^E^D^D^E^D ^C^O^M^M^E^N^T^S ^W^O^U^L^D ^B^E ^T^O^O ^L^O^N^G ^O^R ^W^O^U^L^D ^R^E^S^T^R^I^C^T ^T^H^E ^R^E^A^D^A^B^I^L^I^T^Y ^O^F ^T^H^E ^C^O^D^E. R^E^L^A^T^E^D IF ^S^T^A^T^E^M^E^N^T^S ^S^H^O^U^L^D ^N^O^T ^B^E ^N^E^S^T^E^D ^M^O^R^E ^T^H^A^N 3 ^D^E^E^P. A ^S^I^M^U^L^A^T^E^D ^C^A^S^E ^S^T^A^T^E^M^E^N^T ^M^A^Y ^B^E ^U^S^E^D. C^O^M^P^O^U^N^D ^C^O^N^D^I^T^I^O^N^A^L^S ^O^N ^A^N IF ^S^T^A^T^E^M^E^N^T ^S^H^O^U^L^D ^B^E ^O^R^D^E^R^E^D ^S^U^C^H ^T^H^A^T ^T^H^E ^F^I^R^S^T ^C^O^N^D^I^T^I^O^N ^I^S ^T^H^E ^O^N^E ^W^H^I^C^H ^W^I^L^L ^M^O^S^T ^L^I^K^E^L^Y ^T^E^R^M^I^N^A^T^E ^T^H^E ^C^O^N^D^I^T^I^O^N ^E^V^A^L^U^A^T^I^O^N. 2.12 B^E^A^D A^V^O^I^D ^U^S^I^N^G ^B^E^A^D ^F^U^N^C^T^I^O^N^S ^U^N^L^E^S^S ^N^E^C^E^S^S^A^R^Y. I^N^S^T^E^A^D, ^T^H^E ^U^S^E ^O^F ^A^N ^A^R^R^A^Y ^W^I^T^H ^P^A^R^T^I^A^L-^W^O^R^D ^I^T^E^M^S ^I^S ^P^R^E^F^E^R^R^E^D. B^E^A^D ^F^U^N^C^T^I^O^N^S ^A^R^E ^D^I^F^F^I^C^U^L^T ^T^O ^U^P^D^A^T^E ^I^N ^A ^P^R^O^G^R^A^M ^I^F ^T^H^E ^D^A^T^A ^I^T^E^M ^T^H^A^T ^I^S ^B^E^A^D^E^D ^I^S ^E^V^E^R ^C^H^A^N^G^E^D. I^F ^U^S^E^D, ^D^O ^N^O^T ^C^R^O^S^S-^T^Y^P^E (^B^I^T ^F^U^N^C^T^I^O^N^S ^S^H^O^U^L^D ^B^E ^U^S^E^D ^O^N^L^Y ^O^N ^N^U^M^E^R^I^C ^D^A^T^A, ^B^Y^T^E ^F^U^N^C^T^I^O^N^S ^O^N^L^Y ^O^N ^C^H^A^R^A^C^T^E^R^S). B^E^A^D ^F^U^N^C^T^I^O^N^S ^M^A^Y ^B^E ^U^S^E^D ^T^O ^S^I^M^U^L^A^T^E ^D^A^T^A ^D^E^F^I^N^I^T^I^O^N ^F^E^A^T^U^R^E^S ^N^O^T ^C^U^R^R^E^N^T^L^Y ^I^M^P^L^E^M^E^N^T^E^D ^W^I^T^H SYMPL ^S^U^C^H ^A^S ^R^E^P^E^A^T^I^N^G ^G^R^O^U^P^S ^W^I^T^H^I^N ^A ^W^O^R^D. 1 2-7 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 2.0 C^O^D^I^N^G S^T^A^N^D^A^R^D^S 2.13 PROC^S, FUNC^S, ^A^N^D PRGM^S ----------------------------------------------------------------- 2.13 PROC^S, FUNC^S, ^A^N^D PRGM^S XDEF^S, ^A^L^T^E^R^N^A^T^E ^E^N^T^R^Y ^P^O^I^N^T^S, ^A^N^D ^I^N^T^E^R^N^A^L PROC^S ^S^H^O^U^L^D ^N^O^T ^B^E ^U^S^E^D. ^T^H^E^Y ^A^R^E ^H^A^R^D ^T^O ^L^O^C^A^T^E ^I^N ^T^H^E ^P^R^O^G^R^A^M ^A^N^D ^W^I^L^L ^M^A^K^E ^D^E^B^U^G^G^I^N^G ^A^N^D ^M^O^D^I^F^I^C^A^T^I^O^N ^M^O^R^E ^D^I^F^F^I^C^U^L^T. PROC^S ^A^N^D FUNC^S ^M^U^S^T ^H^A^V^E ^A ^F^I^X^E^D (^N^O^T ^V^A^R^I^A^B^L^E) ^N^U^M^B^E^R ^O^F ^P^A^R^A^M^E^T^E^R^S. T^H^E F ^O^P^T^I^O^N ^O^N ^T^H^E SYMPL ^C^O^M^M^A^N^D ^M^U^S^T ^N^O^T ^B^E ^U^S^E^D. I^N^S^T^E^A^D, ^U^S^E CONTROL FTN ^I^N ^T^H^E ^S^O^U^R^C^E ^W^H^E^N ^N^E^E^D^E^D. 1 3-1 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 3.0 N^A^M^I^N^G C^O^N^V^E^N^T^I^O^N^S ----------------------------------------------------------------- 3.0 N^A^M^I^N^G C^O^N^V^E^N^T^I^O^N^S A^L^L ^D^E^C^L^A^R^A^T^I^O^N^S ^A^N^D PROC/FUNC ^N^A^M^E^S ^S^H^O^U^L^D ^B^E ^D^E^S^C^R^I^P^T^I^V^E. R^O^U^T^I^N^E^S ^M^A^Y ^U^S^E ^S^I^M^P^L^E ^L^O^C^A^L ^V^A^R^I^A^B^L^E^S ^N^A^M^E^D TMP1, TMP2, ^E^T^C. H^O^W^E^V^E^R, ^S^U^C^H ^N^A^M^E^S ^C^A^N ^B^E ^U^S^E^D ^O^N^L^Y ^F^O^R ^M^U^L^T^I-^P^U^R^P^O^S^E ^I^T^E^M^S. I^T^E^M^S ^W^I^T^H ^A ^S^P^E^C^I^F^I^C ^C^O^M^P^U^T^A^T^I^O^N^A^L ^P^U^R^P^O^S^E ^S^H^O^U^L^D ^H^A^V^E ^A ^M^E^A^N^I^N^G^F^U^L ^N^A^M^E. A^L^L ^E^X^T^E^R^N^A^L ^I^D^E^N^T^I^F^I^E^R^S (PRGM, PROC, FUNC ^N^A^M^E^S) ^M^U^S^T ^B^E 7 ^O^R ^L^E^S^S ^C^H^A^R^A^C^T^E^R^S. T^H^E ^L^O^A^D^E^R ^T^R^U^N^C^A^T^E^S ^A ^N^A^M^E ^T^O 7 ^C^H^A^R^A^C^T^E^R^S. A^L^L ^I^N^T^E^R^N^A^L ^I^D^E^N^T^I^F^I^E^R^S (^D^E^C^L^A^R^A^T^I^O^N^S, ^A^R^R^A^Y^S, ^S^T^A^T^U^S ^L^I^S^T ^N^A^M^E^S) ^M^U^S^T ^B^E 10 ^O^R ^L^E^S^S ^C^H^A^R^A^C^T^E^R^S. A $ ^M^A^Y ^B^E ^U^S^E^D ^A^S ^A^N^O^T^H^E^R ^L^E^T^T^E^R ^I^N ^T^H^E ^A^L^P^H^A^B^E^T. H^O^W^E^V^E^R, $ ^I^S ^I^N^V^A^L^I^D ^I^N ^T^H^E ^D^E^C^K ^N^A^M^E ^B^E^C^A^U^S^E ^O^F MODIFY. A^L^L ^A^R^R^A^Y ^I^T^E^M^S ^S^H^O^U^L^D ^B^E ^P^R^E^F^I^X^E^D ^B^Y ^T^H^E ^F^I^R^S^T 3 ^O^R 4 ^C^H^A^R^A^C^T^E^R^S ^O^F ^T^H^E ^A^R^R^A^Y ^N^A^M^E. T^H^E ^L^A^S^T 6 ^O^R 7 ^C^H^A^R^A^C^T^E^R^S ^O^F ^T^H^E ^A^R^R^A^Y ^I^T^E^M ^A^R^E ^T^H^E ^D^E^S^C^R^I^P^T^I^V^E ^N^A^M^E. A^L^L ^R^E^L^A^T^E^D DEF^S ^S^H^O^U^L^D ^U^S^E ^T^H^E ^S^A^M^E ^P^R^E^F^I^X. A^L^L COMDECK ^N^A^M^E^S ^S^H^O^U^L^D ^B^E 7 ^C^H^A^R^A^C^T^E^R^S ^I^N ^L^E^N^G^T^H ^A^N^D ^S^H^O^U^L^D ^B^E ^I^N ^T^H^E ^F^O^L^L^O^W^I^N^G ^F^O^R^M COM^X^A^A^A ^W^H^E^R^E ^A^A^A = S^Y^M^B^O^L^I^C ^N^A^M^E ^O^F COMDECK ^X = O^N^E ^O^F ^T^H^E COMDECK ^I^N^D^I^C^A^T^O^R^S@D A = COMDECK^S ^U^S^E^D ^B^Y ^M^O^R^E ^T^H^A^N ^O^N^E ^O^F ^T^H^E E, U, ^O^R Z SYMPL ^G^R^O^U^P^S B = D^A^T^A ^M^A^N^A^G^E^R C = CPU ^C^O^D^E D = D^I^S^P^L^A^Y ^D^R^I^V^E^R ^C^O^D^E E = EXEC ^P^O^R^T^I^O^N ^O^F MSS (SYMPL) F = F^U^L^L ^S^C^R^E^E^N ^E^D^I^T^O^R (FSE) I = I^N^I^T^I^A^L^I^Z^A^T^I^O^N K = T^R^A^N^S^A^C^T^I^O^N ^S^U^B^S^Y^S^T^E^M M = M^A^S^S ^S^T^O^R^A^G^E ^E^R^R^O^R ^E^Q^U^I^V^A^L^E^N^T^S P = PP ^C^O^D^E S = S^U^B^S^Y^S^T^E^M ^T^E^X^T ^S^Y^M^B^O^L^S, ^C^O^N^S^T^A^N^T^S T = T^A^B^L^E^S U = U^T^I^L^I^T^I^E^S (SYMPL) Z = D^R^I^V^E^R ^P^O^R^T^I^O^N ^O^F MSS (SYMPL) 1 4-1 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 4.0 C^O^D^E R^E^A^D^A^B^I^L^I^T^Y ----------------------------------------------------------------- 4.0 C^O^D^E R^E^A^D^A^B^I^L^I^T^Y 4.1 F^O^R^M^A^T ^O^F S^T^A^T^E^M^E^N^T^S A^L^L ^D^E^C^L^A^R^A^T^I^O^N^S ^M^U^S^T ^B^E^G^I^N ^I^N ^C^O^L^U^M^N 7 ^A^N^D ^B^E ^F^I^N^I^S^H^E^D ^B^E^F^O^R^E ^C^O^L^U^M^N 72. C^O^L^U^M^N 72 ^M^U^S^T ^B^E ^B^L^A^N^K ^T^O ^S^E^P^A^R^A^T^E SYMPL ^C^O^D^E ^A^N^D ^C^O^M^M^E^N^T^S ^F^R^O^M MODIFY ^S^E^Q^U^E^N^C^E ^N^U^M^B^E^R^S. E^A^C^H ^L^I^N^E ^O^F ^I^N^D^E^N^T^A^T^I^O^N ^I^S ^T^W^O ^S^P^A^C^E^S. E^A^C^H BEGIN/END ^I^S ^O^N ^A ^S^E^P^A^R^A^T^E ^L^I^N^E. T^H^E ^F^I^R^S^T BEGIN ^I^S ^I^N ^C^O^L^U^M^N 7. S^U^B^S^E^Q^U^E^N^T BEGIN^S ^A^R^E ^E^A^C^H ^I^N^D^E^N^T^E^D ^T^W^O ^S^P^A^C^E^S. C^O^D^E ^F^O^L^L^O^W^I^N^G ^T^H^E BEGIN, ^U^P ^T^O ^A^N^D ^I^N^C^L^U^D^I^N^G ^T^H^E ^N^E^X^T END, ^H^A^S ^T^H^E ^S^A^M^E ^I^N^D^E^N^T^A^T^I^O^N ^A^S ^T^H^E BEGIN ^U^N^L^E^S^S ^E^X^E^M^P^T^E^D ^B^Y ^S^O^M^E ^O^T^H^E^R ^R^U^L^E (^I.^E. ^L^A^B^E^L^S ^A^R^E ^I^N ^C^O^L^U^M^N 1). T^H^E END ^S^T^A^T^E^M^E^N^T ^R^E^D^U^C^E^S ^T^H^E ^F^O^L^L^O^W^I^N^G ^I^N^D^E^N^T^A^T^I^O^N ^B^Y ^T^W^O ^S^P^A^C^E^S. A^N^Y BEGIN/END ^P^A^I^R ^T^H^A^T ^B^R^A^C^K^E^T^S ^M^O^R^E ^T^H^A^N ^T^E^N ^S^T^A^T^E^M^E^N^T^S ^S^H^O^U^L^D ^H^A^V^E ^M^A^T^C^H^I^N^G ^E^M^B^E^D^D^E^D ^C^O^M^M^E^N^T^S ^O^N ^T^H^E BEGIN ^A^N^D END. R^E^D^U^N^D^A^N^T BEGIN/END ^P^A^I^R^S ^S^H^O^U^L^D ^N^O^T ^B^E ^U^S^E^D ^T^O ^H^I^G^H^L^I^G^H^T ^M^O^D^U^L^E ^S^T^R^U^C^T^U^R^E. T^H^I^S ^F^U^N^C^T^I^O^N ^I^S ^B^E^T^T^E^R ^A^C^C^O^M^P^L^I^S^H^E^D ^W^I^T^H ^S^T^A^N^D ^A^L^O^N^E ^C^O^M^M^E^N^T^S. E^A^C^H THEN/ELSE/DO ^I^S ^O^N ^A ^S^E^P^A^R^A^T^E ^L^I^N^E ^A^N^D ^I^S ^P^L^A^C^E^D ^D^I^R^E^C^T^L^Y ^B^E^N^E^A^T^H ^T^H^E IF ^O^R FOR ^P^O^R^T^I^O^N ^O^F ^T^H^E ^S^T^A^T^E^M^E^N^T. A ^S^T^A^T^E^M^E^N^T ^W^H^I^C^H ^O^V^E^R^F^L^O^W^S ^T^H^E ^L^I^N^E ^M^U^S^T ^I^N^D^E^N^T 2 ^S^P^A^C^E^S ^F^R^O^M ^T^H^E ^O^R^I^G^I^N^A^L ^S^T^A^T^E^M^E^N^T. C^O^M^P^O^U^N^D ^C^O^N^D^I^T^I^O^N^A^L^S ^I^N ^A^N IF ^S^T^A^T^E^M^E^N^T ^M^U^S^T ^B^E ^S^E^P^A^R^A^T^E^D ^A^T ^T^H^E OR/AND ^I^F ^T^H^E ^E^N^T^I^R^E ^S^T^A^T^E^M^E^N^T ^D^O^E^S ^N^O^T ^F^I^T ^O^N ^A ^S^I^N^G^L^E ^L^I^N^E. I^F ^T^H^E ^S^T^A^T^E^M^E^N^T ^N^E^E^D^S ^T^O ^B^E ^S^E^P^A^R^A^T^E^D ^B^E^C^A^U^S^E ^O^F ^I^T^S ^L^E^N^G^T^H ^O^R ^A^T ^T^H^E ^P^R^O^G^R^A^M^M^E^R-^S ^O^P^T^I^O^N, ^T^H^E^N ^T^H^E AND/OR ^P^L^U^S ^I^T^S ^C^O^N^D^I^T^I^O^N ^N^E^E^D^S ^A ^S^E^P^A^R^A^T^E ^L^I^N^E ^A^N^D ^I^S ^I^N^D^E^N^T^E^D ^T^W^O ^S^P^A^C^E^S. E^X^A^M^P^L^E^S IF C IF B IF B OR C OR D OR (A AND B) OR C THEN THEN OR D BEGIN BEGIN THEN . . BEGIN . . . . . . . END END END T^H^E ^F^O^R^M^A^T ^O^F ^T^H^E FOR ^S^T^A^T^E^M^E^N^T ^F^O^L^L^O^W^S ^T^H^E IF. I^F ^T^H^E ^E^N^T^I^R^E ^S^T^A^T^E^M^E^N^T ^W^I^L^L ^N^O^T ^F^I^T ^O^N ^A ^S^I^N^G^L^E ^L^I^N^E, ^T^H^E^N ^T^H^E ^S^T^A^T^E^M^E^N^T ^M^U^S^T ^B^E ^S^E^P^A^R^A^T^E^D ^I^N^T^O ^T^W^O ^L^I^N^E^S ^A^N^D ^I^N^D^E^N^T^E^D ^T^W^O ^S^P^A^C^E^S. 1 4-2 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 4.0 C^O^D^E R^E^A^D^A^B^I^L^I^T^Y 4.1 F^O^R^M^A^T ^O^F S^T^A^T^E^M^E^N^T^S ----------------------------------------------------------------- FASTFOR I=1 STEP 1 UNTIL 7 DO BEGIN . . . END 4.2 C^O^L^U^M^N 1 T^H^E ^F^O^L^L^O^W^I^N^G ^I^T^E^M^S ^M^U^S^T ^B^E^G^I^N ^I^N ^C^O^L^U^M^N 1@D L^A^B^E^L^S PRGM/PROC/FUNC ^S^T^A^T^E^M^E^N^T^S S^I^N^G^L^E ^L^I^N^E ^C^O^M^M^E^N^T^S S^T^A^N^D ^A^L^O^N^E ^C^O^M^M^E^N^T^S 4.3 B^L^A^N^K L^I^N^E^S A ^B^L^A^N^K ^L^I^N^E ^M^U^S^T ^B^E ^U^S^E^D ^I^N ^T^H^E ^F^O^L^L^O^W^I^N^G ^C^A^S^E^S@D A^S ^T^H^E ^F^I^R^S^T ^L^I^N^E ^I^N ^E^A^C^H ^C^O^M^M^O^N ^D^E^C^K B^E^T^W^E^E^N ^A^L^L ^D^E^C^L^A^R^A^T^I^O^N ^G^R^O^U^P^I^N^G^S B^E^F^O^R^E ^A^N^D ^A^F^T^E^R ^E^V^E^R^Y ^S^T^A^N^D-^A^L^O^N^E ^C^O^M^M^E^N^T B^E^F^O^R^E ^A^N^D ^A^F^T^E^R ^A^L^L ^G^R^O^U^P^S ^O^F ^C^O^N^D^I^T^I^O^N^A^L ^C^O^D^E (^E^X^C^E^P^T COMDECK ^L^I^S^T ^C^O^N^T^R^O^L) A^F^T^E^R ^E^V^E^R^Y END ^S^T^A^T^E^M^E^N^T B^E^F^O^R^E ^E^V^E^R^Y ^L^A^B^E^L (^O^R ^S^E^Q^U^E^N^C^E ^O^F ^L^A^B^E^L^S) B^L^A^N^K ^L^I^N^E^S (^I^N ^A^D^D^I^T^I^O^N ^T^O ^T^H^O^S^E ^R^E^Q^U^I^R^E^D) ^M^A^Y ^B^E ^U^S^E^D ^T^O ^I^M^P^R^O^V^E ^T^H^E ^R^E^A^D^A^B^I^L^I^T^Y ^O^F ^T^H^E ^C^O^D^E. 4.4 P^A^G^E E^J^E^C^T^S A ^P^A^G^E ^E^J^E^C^T ^M^U^S^T ^B^E ^U^S^E^D ^A^S ^A ^S^E^P^A^R^A^T^O^R ^B^E^T^W^E^E^N ^T^H^E ^D^E^C^L^A^R^A^T^I^O^N ^G^R^O^U^P^S ^A^N^D ^T^H^E ^B^O^D^Y ^O^F ^C^O^D^E. I^F ^T^H^E ^D^E^C^L^A^R^A^T^I^O^N ^G^R^O^U^P^S ^A^N^D ^T^H^E ^B^O^D^Y ^O^F ^C^O^D^E ^W^I^L^L ^F^I^T ^O^N ^A ^S^I^N^G^L^E ^P^A^G^E, ^F^I^V^E ^B^L^A^N^K ^L^I^N^E^S ^M^A^Y ^B^E ^U^S^E^D ^R^A^T^H^E^R ^T^H^A^N ^A ^P^A^G^E ^E^J^E^C^T. 1 5-1 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 5.0 D^O^C^U^M^E^N^T^A^T^I^O^N S^T^A^N^D^A^R^D^S ----------------------------------------------------------------- 5.0 D^O^C^U^M^E^N^T^A^T^I^O^N S^T^A^N^D^A^R^D^S A^L^L ^D^O^C^U^M^E^N^T^A^T^I^O^N ^M^U^S^T ^C^O^N^F^O^R^M ^T^O ^T^H^E NOS ^O^P^E^R^A^T^I^N^G ^S^Y^S^T^E^M ^R^E^Q^U^I^R^E^M^E^N^T^S. T^H^I^S ^I^N^C^L^U^D^E^S ^R^U^L^E^S ^C^O^N^C^E^R^N^I^N^G ^C^O^M^P^L^E^T^E ^S^E^N^T^E^N^C^E^S, ^C^A^P^I^T^A^L^I^Z^A^T^I^O^N, ^P^U^N^C^T^U^A^T^I^O^N, ^A^B^R^E^V^I^A^T^I^O^N^S, ^E^T^C. A^L^L ^S^T^A^N^D-^A^L^O^N^E ^C^O^M^M^E^N^T^S ^A^R^E ^C^O^M^P^L^E^T^E E^N^G^L^I^S^H ^S^E^N^T^E^N^C^E^S ^W^I^T^H ^C^O^R^R^E^C^T ^P^U^N^C^T^U^A^T^I^O^N, ^E^N^D^I^N^G ^W^I^T^H ^A ^P^E^R^I^O^D. 5.1 C^O^M^M^E^N^T F^O^R^M^A^T^S ^A^N^D T^Y^P^E^S C^O^M^M^E^N^T^S ^C^A^N ^A^P^P^E^A^R ^I^N ^T^H^R^E^E ^D^I^F^F^E^R^E^N^T ^F^O^R^M^A^T^S@D ^S^T^A^N^D ^A^L^O^N^E, ^S^I^N^G^L^E ^L^I^N^E ^A^N^D ^E^M^B^E^D^D^E^D. S^T^A^N^D ^A^L^O^N^E ^C^O^M^M^E^N^T^S ^H^A^V^E ^F^O^U^R ^T^Y^P^E^S ^D^E^T^E^R^M^I^N^E^D ^B^Y ^T^H^E ^N^U^M^B^E^R ^O^F ^A^S^T^E^R^I^S^K^S ^O^N ^T^H^E ^I^N^I^T^I^A^L ^L^I^N^E ^O^F ^A ^S^E^Q^U^E^N^C^E ^O^F ^L^I^N^E^S ^W^I^T^H ^A^S^T^E^R^I^S^K^S ^I^N ^C^O^L^U^M^N 1. T^H^E^S^E ^F^O^U^R ^T^Y^P^E^S ^A^R^E ^R^E^C^O^G^N^I^Z^E^D ^B^Y ^T^H^E DOCMENT ^U^T^I^L^I^T^Y ^A^N^D ^C^A^U^S^E ^S^O^M^E ^C^O^M^M^E^N^T^S (^O^R ^C^O^D^E) ^T^O ^B^E ^I^N^C^L^U^D^E^D ^I^N DOCMENT ^O^U^T^P^U^T ^D^E^P^E^N^D^I^N^G ^O^N DOCMENT ^R^U^N ^T^I^M^E ^P^A^R^A^M^E^T^E^R^S. 5.1.1 E^M^B^E^D^D^E^D C^O^M^M^E^N^T^S E^M^B^E^D^D^E^D ^C^O^M^M^E^N^T^S ^A^P^P^E^A^R ^O^N ^T^H^E ^S^A^M^E ^L^I^N^E ^F^O^L^L^O^W^I^N^G ^A ^D^E^C^L^A^R^A^T^I^O^N ^O^R ^E^X^E^C^U^T^A^B^L^E ^S^T^A^T^E^M^E^N^T. T^H^E ^L^E^F^T ^D^E^L^I^M^I^T^E^R ^M^U^S^T ^B^E ^P^R^E^C^E^D^E^D ^B^Y ^A^T ^L^E^A^S^T ^T^W^O ^S^P^A^C^E^S ^A^N^D ^F^O^L^L^O^W^E^D ^B^Y ^O^N^L^Y ^O^N^E ^S^P^A^C^E. A^T ^L^E^A^S^T ^O^N^E ^S^P^A^C^E ^F^O^L^L^O^W^S ^T^H^E ^C^O^M^M^E^N^T ^T^E^X^T ^B^E^F^O^R^E ^T^H^E ^R^I^G^H^T ^D^E^L^I^M^I^T^E^R. A^T ^L^E^A^S^T ^O^N^E ^S^P^A^C^E ^M^U^S^T ^F^O^L^L^O^W ^T^H^E ^R^I^G^H^T ^D^E^L^I^M^I^T^E^R. C^O^L^U^M^N ^P^O^S^I^T^I^O^N^I^N^G ^R^U^L^E^S ^F^O^R ^T^H^E ^L^E^F^T ^D^E^L^I^M^I^T^E^R ^A^R^E ^G^I^V^E^N ^I^N ^T^H^E ^S^E^C^T^I^O^N "D^O^C^U^M^E^N^T^A^T^I^O^N ^W^I^T^H E^M^B^E^D^D^E^D C^O^M^M^E^N^T^S". 5.1.2 S^I^N^G^L^E L^I^N^E C^O^M^M^E^N^T^S T^H^E^S^E ^C^O^M^M^E^N^T^S ^H^A^V^E ^A ^L^E^F^T ^C^O^M^M^E^N^T ^D^E^L^I^M^I^T^E^R ^I^N ^C^O^L^U^M^N 1, ^T^H^E ^T^E^X^T ^S^T^A^R^T^I^N^G ^I^N ^C^O^L^U^M^N 3 ^F^O^R ^T^I^T^L^E ^L^I^N^E^S ^O^R ^I^N ^C^O^L^U^M^N 7 ^F^O^R ^C^O^M^M^O^N ^D^E^C^K ^H^E^A^D^E^R^S, ^A^N^D ^A ^R^I^G^H^T ^C^O^M^M^E^N^T ^D^E^L^I^M^I^T^E^R ^P^R^O^C^E^E^D^E^D ^B^Y ^A^T ^L^E^A^S^T ^O^N^E ^S^P^A^C^E ^A^L^L ^O^N ^A ^S^I^N^G^L^E ^L^I^N^E. T^H^I^S ^C^O^M^M^E^N^T ^F^O^R^M ^I^S ^U^S^E^D ^I^N ^T^H^E ^F^O^L^L^O^W^I^N^G ^C^A^S^E^S@D -- T^I^T^L^E ^L^I^N^E^S -- C^O^M^M^O^N ^D^E^C^K ^H^E^A^D^E^R^S 1 5-2 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 5.0 D^O^C^U^M^E^N^T^A^T^I^O^N S^T^A^N^D^A^R^D^S 5.1.3 S^T^A^N^D A^L^O^N^E C^O^M^M^E^N^T^S ----------------------------------------------------------------- 5.1.3 S^T^A^N^D A^L^O^N^E C^O^M^M^E^N^T^S T^H^E^S^E ^C^O^M^M^E^N^T^S ^C^O^N^S^I^S^T ^O^F ^A^T ^L^E^A^S^T 5 ^L^I^N^E^S ^W^I^T^H ^T^H^E ^F^I^R^S^T ^A^N^D ^L^A^S^T ^B^E^I^N^G ^B^L^A^N^K ^L^I^N^E^S, ^T^H^E ^S^E^C^O^N^D ^A^N^D ^N^E^X^T ^T^O ^L^A^S^T ^H^A^V^I^N^G (^O^N^L^Y) ^A ^C^O^M^M^E^N^T ^D^E^L^I^M^I^T^E^R ^I^N ^C^O^L^U^M^N 1 ^W^I^T^H ^T^H^E ^C^O^M^M^E^N^T ^B^O^D^Y ^S^T^A^R^T^I^N^G ^W^I^T^H ^L^I^N^E 3. E^A^C^H ^L^I^N^E ^O^F ^T^H^E ^C^O^M^M^E^N^T ^B^O^D^Y ^H^A^S ^A^N ^A^S^T^E^R^I^S^K ^I^N ^C^O^L^U^M^N 1 ^W^I^T^H ^B^L^A^N^K^S ^N^O^R^M^A^L^L^Y ^F^O^U^N^D ^I^N ^C^O^L^U^M^N^S 2-6. T^H^E ^I^N^I^T^I^A^L ^L^I^N^E ^O^F ^T^H^E ^C^O^M^M^E^N^T ^B^O^D^Y (^L^I^N^E 3) ^M^A^Y ^H^A^V^E 1, 2, 3 ^O^R 4 ^A^S^T^E^R^I^S^K^S ^S^T^A^R^T^I^N^G ^I^N ^C^O^L^U^M^N 1 ^D^E^P^E^N^D^I^N^G ^O^N ^T^H^E ^T^Y^P^E ^O^F ^O^U^T^P^U^T ^D^E^S^I^R^E^D ^F^R^O^M ^T^H^E DOCMENT ^U^T^I^L^I^T^Y. 5.1.3.1 B^R^A^C^K^E^T^S (****) A ^P^A^I^R ^O^F ^S^T^A^N^D ^A^L^O^N^E ^C^O^M^M^E^N^T^S ^O^F ^T^H^I^S ^F^O^R^M ^C^A^U^S^E^S DOCMENT ^T^O ^C^O^P^Y ^T^H^E ^C^O^M^M^E^N^T ^B^O^D^Y ^S^T^A^R^T^I^N^G ^W^I^T^H ^T^H^E ^O^P^E^N^I^N^G ^B^R^A^C^K^E^T, ^A^N^D ^A^L^L ^S^U^B^S^E^Q^U^E^N^T ^C^O^D^E ^U^N^T^I^L ^T^H^E ^C^L^O^S^I^N^G ^B^R^A^C^K^E^T. T^H^I^S ^I^S ^R^E^Q^U^I^R^E^D ^F^O^R XREF ^D^E^C^L^A^R^A^T^I^O^N^S. A^N ^E^X^A^M^P^L^E ^I^S ^I^N^D^I^C^A^T^E^D ^W^I^T^H ^T^H^E XREF ^D^E^S^C^R^I^P^T^I^O^N. I^T ^M^A^Y ^A^L^S^O ^B^E ^E^M^P^L^O^Y^E^D ^F^O^R ^O^T^H^E^R ^D^E^C^L^A^R^A^T^I^O^N^S ^O^R ^C^O^D^E ^W^H^I^C^H ^S^H^O^U^L^D ^B^E ^I^N^C^L^U^D^E^D ^O^N ^A DOCMENT ^R^U^N. T^H^E ^C^O^M^M^E^N^T ^B^O^D^Y ^C^O^N^S^I^S^T^S ^O^F ^A^S^T^E^R^I^S^K^S ^I^N ^C^O^L^U^M^N^S 1-4 ^W^I^T^H ^T^E^X^T ^O^N ^T^H^E ^R^E^S^T ^O^F ^T^H^E ^F^I^R^S^T ^L^I^N^E. T^H^E ^C^O^M^M^E^N^T ^T^E^X^T ^S^H^O^U^L^D ^C^L^E^A^R^L^Y ^I^N^D^I^C^A^T^E ^W^H^I^C^H ^I^S ^T^H^E ^O^P^E^N^I^N^G ^B^R^A^C^K^E^T ^A^N^D ^W^H^I^C^H ^I^S ^T^H^E ^C^L^O^S^I^N^G ^B^R^A^C^K^E^T. 5.1.3.2 E^X^T^E^R^N^A^L C^O^M^M^E^N^T^S (***) A ^C^O^M^M^E^N^T ^B^O^D^Y ^W^H^I^C^H ^I^S ^T^O ^B^E ^I^N^C^L^U^D^E^D ^I^N ^A^N^Y DOCMENT ^R^U^N (^E^X^T^E^R^N^A^L ^O^R ^I^N^T^E^R^N^A^L) ^H^A^S 3 ^A^S^T^E^R^I^S^K^S ^I^N ^C^O^L^U^M^N^S 1-3 ^O^F ^T^H^E ^F^I^R^S^T ^L^I^N^E ^O^F ^T^H^E ^C^O^M^M^E^N^T ^B^O^D^Y. T^H^E 3 ^A^S^T^E^R^I^S^K ^F^O^R^M ^I^S ^G^E^N^E^R^A^L^L^Y ^U^S^E^D ^T^O ^E^X^P^L^A^I^N ^T^H^E ^I^N^T^E^R^F^A^C^E ^T^O ^A SYMPL PRGM. I^T ^I^S ^A^L^S^O ^U^S^E^D ^I^N ^T^H^E ^H^E^A^D^E^R ^D^O^C^U^M^E^N^T^A^T^I^O^N ^F^O^R ^C^O^M^M^O^N ^D^E^C^K^S. 5.1.3.3 I^N^T^E^R^N^A^L C^O^M^M^E^N^T^S (**) A ^C^O^M^M^E^N^T ^B^O^D^Y ^W^H^I^C^H ^I^S ^T^O ^B^E ^I^N^C^L^U^D^E^D ^I^N ^A DOCMENT ^R^U^N ^S^E^L^E^C^T^I^N^G ^I^N^T^E^R^N^A^L ^D^O^C^U^M^E^N^T^A^T^I^O^N ^I^N ^A^D^D^I^T^I^O^N ^T^O ^E^X^T^E^R^N^A^L ^D^O^C^U^M^E^N^T^A^T^I^O^N ^H^A^S ^A^S^T^E^R^I^S^K^S ^I^N ^C^O^L^U^M^N^S 1 ^A^N^D 2 ^O^F ^T^H^E ^F^I^R^S^T ^L^I^N^E ^O^F ^T^H^E ^C^O^M^M^E^N^T ^B^O^D^Y. T^H^I^S ^I^S ^G^E^N^E^R^A^L^L^Y ^U^S^E^D ^T^O ^D^E^S^C^R^I^B^E ^T^H^E ^I^N^T^E^R^F^A^C^E ^F^O^R ^E^A^C^H PROC/FUNC. I^T ^M^A^Y ^A^L^S^O ^B^E ^U^S^E^D ^T^O ^D^E^S^C^R^I^B^E ^O^T^H^E^R ^I^M^P^O^R^T^A^N^T ^I^N^F^O^R^M^A^T^I^O^N ^A^B^O^U^T ^A PROC/FUNC/PRGM. 1 5-3 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 5.0 D^O^C^U^M^E^N^T^A^T^I^O^N S^T^A^N^D^A^R^D^S 5.1.3.4 M^O^D^U^L^E C^O^M^M^E^N^T^S (*) ----------------------------------------------------------------- 5.1.3.4 M^O^D^U^L^E C^O^M^M^E^N^T^S (*) A ^C^O^M^M^E^N^T ^B^O^D^Y ^W^H^I^C^H ^I^S ^N^O^T ^T^O ^B^E ^I^N^C^L^U^D^E^D ^I^N ^A DOCMENT ^R^U^N ^S^I^M^P^L^Y ^H^A^S 1 ^A^S^T^E^R^I^S^K ^O^N ^T^H^E ^F^I^R^S^T ^L^I^N^E ^O^F ^T^H^E ^C^O^M^M^E^N^T ^B^O^D^Y. T^H^I^S ^T^Y^P^E ^O^F ^S^T^A^N^D ^A^L^O^N^E ^C^O^M^M^E^N^T ^I^S ^G^E^N^E^R^A^L^L^Y ^U^S^E^D ^T^O ^D^O^C^U^M^E^N^T ^D^E^S^I^G^N ^I^N^F^O^R^M^A^T^I^O^N ^W^H^I^C^H ^H^E^L^P^S ^O^N^E ^M^A^I^N^T^A^I^N ^O^R ^C^O^D^E ^R^E^V^I^E^W ^A ^M^O^D^U^L^E. T^H^I^S ^T^Y^P^E ^O^F ^C^O^M^M^E^N^T ^C^A^N ^P^R^E^S^E^N^T ^D^E^S^I^G^N ^I^N^F^O^R^M^A^T^I^O^N ^F^O^R ^T^H^E ^E^N^T^I^R^E PROC/FUNC, ^O^R ^F^O^R ^A ^S^E^Q^U^E^N^C^E ^O^F ^C^O^D^E. I^T ^S^H^O^U^L^D ^A^N^S^W^E^R ^T^H^E ^Q^U^E^S^T^I^O^N@D "^H^O^W ^D^O^E^S ^T^H^I^S PROC/FUNC ^C^O^D^E ^S^E^G^M^E^N^T ^W^O^R^K?" 5.2 P^R^O^G^R^A^M L^E^V^E^L D^O^C^U^M^E^N^T^A^T^I^O^N E^V^E^R^Y PRGM ^M^U^S^T ^H^A^V^E ^A^N ^O^V^E^R^V^I^E^W ^D^E^S^C^R^I^B^I^N^G ^W^H^A^T ^I^T ^D^O^E^S ^A^N^D ^E^X^T^E^R^N^A^L ^D^O^C^U^M^E^N^T^A^T^I^O^N ^D^E^S^C^R^I^B^I^N^G ^H^O^W ^I^T ^I^S ^U^S^E^D. T^H^E ^O^V^E^R^V^I^E^W ^D^O^C^U^M^E^N^T^A^T^I^O^N ^I^S ^V^E^R^Y ^G^E^N^E^R^A^L. A ^D^E^S^C^R^I^P^T^I^O^N ^O^F ^T^H^E ^F^I^E^L^D^S ^I^S ^I^N ^T^H^E NOS ^C^O^D^I^N^G ^S^T^A^N^D^A^R^D^S. # *** (^H^E^A^D^I^N^G) * * (^P^U^R^P^O^S^E) * * (^C^O^M^M^A^N^D ^F^O^R^M^A^T) * * PRGM ^P^R^O^G^R^A^M ^N^A^M^E. * * ENTRY. ..... * * EXIT. ..... * * MESSAGES. ..... * * NOTES. ..... * * COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. # I^N ^A^D^D^I^T^I^O^N, ^A PRGM ^M^A^Y ^H^A^V^E ^I^N^T^E^R^N^A^L ^A^N^D ^M^O^D^U^L^E ^C^O^M^M^E^N^T^S ^A^S ^A^P^P^R^O^P^R^I^A^T^E. 1 5-4 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 5.0 D^O^C^U^M^E^N^T^A^T^I^O^N S^T^A^N^D^A^R^D^S 5.3 D^O^C^U^M^E^N^T^A^T^I^O^N ^O^F PROC^S ^A^N^D FUNC^S ----------------------------------------------------------------- 5.3 D^O^C^U^M^E^N^T^A^T^I^O^N ^O^F PROC^S ^A^N^D FUNC^S E^V^E^R^Y PROC/FUNC ^N^E^E^D^S ^A^N ^I^N^T^E^R^N^A^L ^D^O^C^U^M^E^N^T^A^T^I^O^N ^S^E^C^T^I^O^N. I^T ^S^H^O^U^L^D ^A^N^S^W^E^R ^T^H^E ^Q^U^E^S^T^I^O^N@D "^H^O^W ^I^S ^T^H^I^S PROC/FUNC ^U^S^E^D?". T^H^E ^D^E^S^C^R^I^P^T^I^O^N ^O^F ^T^H^E ^D^I^F^F^E^R^E^N^T ^F^I^E^L^D^S ^I^S ^I^N ^T^H^E NOS C^O^D^I^N^G S^T^A^N^D^A^R^D^S. # ** (^H^E^A^D^I^N^G) * * (^P^U^R^P^O^S^E) * * (PROC ^O^R FUNC ^S^T^A^T^E^M^E^N^T ^W^I^T^H ^S^E^M^I^C^O^L^O^N ^O^M^I^T^T^E^D) * * ENTRY ..... * * EXIT ..... * * MESSAGES ..... * * NOTES ..... * # I^F ^A PROC ^O^R FUNC ^R^E^F^E^R^E^N^C^E^S ^A ^B^A^S^E^D ^A^R^R^A^Y ^W^H^O^S^E ^P^O^I^N^T^E^R ^I^S ^I^N ^A ^C^O^M^M^O^N ^B^L^O^C^K, ^A^N^D ^T^H^E PROC ^O^R FUNC ^A^S^S^U^M^E^S ^T^H^A^T ^T^H^E ^P^O^I^N^T^E^R ^F^O^R ^T^H^A^T ^A^R^R^A^Y ^I^S ^S^E^T ^B^E^F^O^R^E ^T^H^E PROC ^O^R FUNC ^I^S ^C^A^L^L^E^D, ^T^H^E ^E^N^T^R^Y ^C^O^N^D^I^T^I^O^N ^C^O^M^M^E^N^T^S ^S^H^O^U^L^D ^S^T^A^T^E ^T^H^A^T ^A^S^S^U^M^P^T^I^O^N. I^N ^A^D^D^I^T^I^O^N, ^A PROC/FUNC ^M^A^Y ^H^A^V^E ^A^D^D^I^T^I^O^N^A^L ^I^N^T^E^R^N^A^L ^C^O^M^M^E^N^T^S ^A^N^D ^M^O^D^U^L^E ^C^O^M^M^E^N^T^S ^A^S ^A^P^P^R^O^P^R^I^A^T^E. W^H^E^R^E ^A ^H^I^G^H^E^R ^L^E^V^E^L ^O^F ^D^O^C^U^M^E^N^T^A^T^I^O^N ^I^S ^N^E^E^D^E^D ^F^O^R ^A ^R^E^L^A^T^E^D ^G^R^O^U^P ^O^F PROC^S ^A^N ^E^X^T^R^A PROC ^S^H^O^U^L^D ^B^E ^A^D^D^E^D ^T^O ^C^O^N^T^A^I^N ^T^H^E ^U^N^I^F^Y^I^N^G ^D^O^C^U^M^E^N^T^A^T^I^O^N. 5.4 D^O^C^U^M^E^N^T^A^T^I^O^N ^W^I^T^H E^M^B^E^D^D^E^D C^O^M^M^E^N^T^S E^M^B^E^D^D^E^D ^C^O^M^M^E^N^T^S ^A^R^E ^O^F ^T^W^O ^D^O^C^U^M^E^N^T^A^T^I^O^N ^F^O^R^M^S (^I.^E. ^D^A^T^A ^D^E^C^L^A^R^A^C^T^I^O^N ^O^R ^A^C^T^I^O^N ^C^O^D^E). T^H^I^S ^I^S ^T^H^E ^O^N^L^Y ^T^Y^P^E ^O^F ^A ^C^O^M^M^E^N^T ^T^H^A^T ^N^E^E^D ^N^O^T ^B^E ^A ^C^O^M^P^L^E^T^E ^S^E^N^T^E^N^C^E. T^H^I^S ^T^Y^P^E ^O^F ^C^O^M^M^E^N^T ^S^H^O^U^L^D ^N^O^T ^B^E ^C^O^N^T^I^N^U^E^D ^O^N^T^O ^A^N^O^T^H^E^R ^L^I^N^E. I^F ^A^B^S^O^L^U^T^E^L^Y ^N^E^C^E^S^S^A^R^Y, ^T^H^E ^C^O^M^M^E^N^T ^M^A^Y ^B^E ^C^O^N^T^I^N^U^E^D ^O^N ^T^H^E ^F^O^L^L^O^W^I^N^G ^L^I^N^E. I^N ^T^H^I^S ^C^A^S^E ^T^H^E ^S^E^C^O^N^D ^L^I^N^E ^M^U^S^T ^N^O^T ^C^O^N^T^A^I^N ^C^O^D^E. THEN # ^C^O^M^M^E^N^T ^W^H^I^C^H ^I^S ^T^O^O ^L^O^N^G ^C^O^N^T^I^N^U^A^T^I^O^N ^O^F ^C^O^M^M^M^E^N^T # 1 5-5 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 5.0 D^O^C^U^M^E^N^T^A^T^I^O^N S^T^A^N^D^A^R^D^S 5.4.1 D^A^T^A D^E^C^L^A^R^A^T^I^O^N E^M^B^E^D^D^E^D C^O^M^M^E^N^T^S ----------------------------------------------------------------- 5.4.1 D^A^T^A D^E^C^L^A^R^A^T^I^O^N E^M^B^E^D^D^E^D C^O^M^M^E^N^T^S E^V^E^R^Y ^A^R^R^A^Y, ^I^T^E^M, ^S^T^A^T^U^S ^I^T^E^M, DEF ^A^N^D XREF ^I^T^E^M ^M^U^S^T ^B^E ^D^O^C^U^M^E^N^T^E^D ^W^I^T^H ^A^P^P^R^O^P^R^I^A^T^E ^I^N^F^O^R^M^A^T^I^O^N. E^A^C^H ^D^E^C^L^A^R^A^T^I^O^N ^S^H^O^U^L^D ^A^P^P^E^A^R ^O^N ^A ^S^E^P^A^R^A^T^E ^L^I^N^E ^A^C^C^O^M^P^A^N^I^E^D ^B^Y ^E^M^B^E^D^D^E^D ^C^O^M^M^E^N^T^S ^D^E^S^C^R^I^B^I^N^G ^I^T^S ^F^U^N^C^T^I^O^N (^O^P^T^I^O^N^A^L^L^Y, ^I^F ^T^H^I^S ^I^S ^A^N ^I^M^P^O^R^T^A^N^T ^A^R^R^A^Y, ^I^T ^M^A^Y ^B^E ^B^R^A^C^K^E^T^E^D ^B^Y ^C^O^M^M^E^N^T ^L^I^N^E^S ^W^I^T^H ^A^S^T^E^R^I^S^K^S ^I^N ^C^O^L^U^M^N^S 1 ^T^H^R^O^U^G^H 4 ^S^O ^T^H^A^T DOCMENT ^W^I^L^L ^P^R^O^C^E^S^S ^I^T. P^R^E^S^E^T^S ^S^H^O^U^L^D ^B^E ^C^O^M^M^E^N^T^E^D ^I^N^D^I^V^I^D^U^A^L^L^Y ^T^O ^R^E^F^L^E^C^T ^T^H^E ^F^U^N^C^T^I^O^N ^O^F ^T^H^E ^P^R^E^S^E^T. T^H^E ^L^E^F^T ^D^E^L^I^M^I^T^E^R ^O^F ^T^H^E ^E^M^B^E^D^D^E^D ^C^O^M^M^E^N^T ^S^H^O^U^L^D ^B^E ^I^N ^C^O^L^U^M^N 38 ^U^N^L^E^S^S ^T^H^E ^S^T^A^T^E^M^E^N^T ^E^X^T^E^N^D^S ^B^E^Y^O^N^D ^C^O^L^U^M^N 35, ^I^N ^W^H^I^C^H ^C^A^S^E ^T^H^E ^D^E^L^I^M^I^T^E^R ^I^S ^P^L^A^C^E^D ^A^T ^L^E^A^S^T ^T^W^O ^S^P^A^C^E^S ^T^O ^T^H^E ^R^I^G^H^T ^O^F ^T^H^E ^S^T^A^T^E^M^E^N^T. 5.4.2 A^C^T^I^O^N C^O^D^E E^M^B^E^D^D^E^D C^O^M^M^E^N^T^S F^O^R BEGIN ^A^N^D END ^S^T^A^T^E^M^E^N^T^S, ^T^H^E ^E^M^B^E^D^D^E^D ^C^O^M^M^E^N^T^S ^A^R^E ^P^L^A^C^E^D ^T^W^O ^S^P^A^C^E^S ^T^O ^T^H^E ^R^I^G^H^T ^O^F ^T^H^E ^S^T^A^T^E^M^E^N^T. F^O^R ^O^T^H^E^R ^S^T^A^T^E^M^E^N^T^S ^T^H^E ^E^M^B^E^D^D^E^D ^C^O^M^M^E^N^T^S ^B^E^G^I^N ^I^N ^C^O^L^U^M^N 38 ^U^N^L^E^S^S ^T^H^E ^S^T^A^T^E^M^E^N^T ^E^X^T^E^N^D^S ^B^E^Y^O^N^D ^C^O^L^U^M^N 35 ^I^N ^W^H^I^C^H ^C^A^S^E ^T^H^E ^D^E^L^I^M^I^T^E^R ^I^S ^P^L^A^C^E^D ^A^T ^L^E^A^S^T ^T^W^O ^S^P^A^C^E^S ^T^O ^T^H^E ^R^I^G^H^T ^O^F ^T^H^E ^S^T^A^T^E^M^E^N^T. 5.5 G^E^N^E^R^A^L D^O^C^U^M^E^N^T^A^T^I^O^N ^F^O^R PROC^S, PRGM^S ^O^R FUNC^S E^A^C^H PRGM, PROC, FUNC ^S^T^A^T^E^M^E^N^T ^M^U^S^T ^H^A^V^E ^A ^C^O^R^R^E^S^P^O^N^D^I^N^G END ^S^T^A^T^E^M^E^N^T ^F^O^L^L^O^W^E^D ^B^Y ^T^H^E PRGM, PROC, FUNC ^N^A^M^E ^A^S ^A ^C^O^M^M^E^N^T ^O^N ^T^H^A^T ^S^A^M^E ^L^I^N^E. SYMPL ^C^O^M^M^E^N^T^S ^C^O^N^T^A^I^N^I^N^G COMPASS-^L^I^K^E ^T^I^T^L^E ^P^S^E^U^D^O-^O^P^S ^M^U^S^T ^A^P^P^E^A^R ^A^S ^T^H^E ^S^E^C^O^N^D ^L^I^N^E ^I^N ^A SYMPL PRGM, PROC ^O^R FUNC. PRGM OK; # TITLE OK - ^D^E^S^C^R^I^P^T^I^O^N ^O^F PRGM OK. # BEGIN # OK # . . . END # OK # 1 6-1 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 6.0 E^X^A^M^P^L^E^S ----------------------------------------------------------------- 6.0 E^X^A^M^P^L^E^S 6.1 COMDECK E^X^A^M^P^L^E^S 1 7 38 48 71 +-----+------------------------------+---------+----------------------+ COMASPC COMMON # COMASPC - STEP POINT CONTROL. # CONTROL NOLIST; CONTROL IFEQ LISTCON,1; CONTROL LIST; CONTROL FI; BEGIN # COMASPC # # *** COMASPC - STEP POINT CONTROL. * * *COMASPC* CONTAINS DECLARATIONS USED FOR CONTROL OF STEP MODE. # DEF STEPCNT #4#; # NUMBER OF STEP POINTS - 1 # DEF STEPPNT (I) #B<(I),1>STEPMASK#; # STEP POINT # STATUS STEPVAL # STEP POINT VALUES # S1, # STAGING STEP POINT 1 # S2, # STAGING STEP POINT 2 # S3, # STAGING STEP POINT 3 # D1, # DESTAGING STEP POINT 1 # D2; # DESTAGING STEP POINT 2 # COMMOM ASPCCOM; BEGIN # ASPCCOM # ITEM HPMASK U; # HALTED PROCESS MASK # ITEM STEPMASK U; # STEP POINT MASK # ARRAY HPT [0@DSTEPCNT] P(1); # HALTED PROCESS TABLE # BEGIN ITEM HPT$LINK U(00,42,18); # HALTED PROCESS CHAIN LINK # END END # ASPCCOM # END # COMASPC # CONTROL LIST; 1 6-2 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 6.0 E^X^A^M^P^L^E^S 6.2 PROC E^X^A^M^P^L^E ----------------------------------------------------------------- 6.2 PROC E^X^A^M^P^L^E 1 7 38 48 71 +-----+------------------------------+---------+----------------------+ PROC PSFIN((NDVALUE),(SPVALUE)); # TITLE PSFIN - INITIALIZES THE CONFIGURARTION. # BEGIN # PSFIN # # ** PSFIN - INITIALIZES THE CONFIGURATION. * * *PSFIN* INITIALIZES THE CONFIGURATION OF A FAMILY OF * DEVICES. * * PROC PSFIN((NDVALUE),(SPVALUE)) * * ENTRY (NDVALUE) = NUMBER OF DEVICES IN A FAMILY. * (SPVALUE) = SPACE ASSIGNED TO EACH DEVICE. * ARRAY HEADER = PSEUDO PFC. * * EXIT CONFIGURATION IS INITIALIZED. * * NOTES THE SPECIFIED VALUES ARE PLACED IN THE HEADER. # ITEM NDVALUE U; # NUMBER OF DEVICES # ITEM SPVALUE U; # SPACE AVAILABLE PER DEVICE # # **** PROC PSFIN - XREF LIST BEGIN. # XREF BEGIN PROC PSLOCK; # INTERLOCKS THE PSEUDO PFC # PROC PSUNLCK; # RETURNS THE PSEUDO PFC # END # **** PROC PSFIN - XREF LIST END. # 1 6-3 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 6.0 E^X^A^M^P^L^E^S 6.2 PROC E^X^A^M^P^L^E ----------------------------------------------------------------- DEF OFFSET #4#; # DEVICE ENTRY OFFSET IN PFC # DEF LISTCON #0#; # DO NOT LIST COMDECKS # *CALL COMAMSS *CALL COMZHED ITEM I I; # LOOP VARIABLE # ITEM NUM U; # CALCULATED NUMBER # CONTROL EJECT; PSLOCK(HEADER); # * SET VALUES IN THE HEADER. # HEAD$ND[0] = NDVALUE; HEAD$SPDEV[0] = SPVALUE; NUM = NDVALUE * SPVALUE; HEAD$SPFAM[0] = NUM; HEAD$SPAVF[0] = NUM; SLOWFOR I = 1 STEP 1 UNTIL NDVALUE DO # SET SPACE AVAILALBE # BEGIN HEAD$XX[I + OFFSET] = SPVALUE; END PSUNLCK(HEADER); RETURN; END # PSFIN # TERM 1 6-4 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 6.0 E^X^A^M^P^L^E^S 6.3 S^T^A^T^U^S L^I^S^T/S^T^A^T^U^S S^W^I^T^C^H E^X^A^M^P^L^E ----------------------------------------------------------------- 6.3 S^T^A^T^U^S L^I^S^T/S^T^A^T^U^S S^W^I^T^C^H E^X^A^M^P^L^E STATUS ERSTAT # ERROR STATUS # ERRORNO, # NO ERROR # ERRORFE, # FILE ALREADY EXISTS # ERRORFN, # FILE NOT FOUND # ERRORNW, # UNABLE TO WRITE PFC # ; # END OF *ERSTAT* # ITEM FLAG S@DERSTAT; # ERROR CONDITION # SWITCH ERRCASE@DERSTAT # ERROR LIST # OK@DERRORNO, # NO ERROR # PFEXISTS@DERRORFE, # FILE ALREADY EXISTS # NOENTRY@DERRORFN, # FILE ONT FOUND # WRITERR@DERRORNW; # UNABLE TO WRITE PFC # A ^S^T^A^T^U^S ^L^I^S^T ^M^A^Y ^A^L^S^O ^B^E ^D^E^F^I^N^E^D ^W^I^T^H ^A^N ^U^P^P^E^R ^L^I^M^I^T ^E^N^T^R^Y ^P^U^T ^A^T ^T^H^E ^E^N^D ^O^F ^T^H^E ^L^I^S^T. T^H^I^S ^U^P^P^E^R ^L^I^M^I^T ^C^A^N ^B^E ^U^S^E^D ^I^N ^T^H^E ^C^O^D^E ^T^O ^T^E^S^T ^T^H^A^T ^A ^V^A^R^I^A^B^L^E ^I^S ^W^I^T^H^I^N ^I^T^S ^D^E^F^I^N^E^D ^R^A^N^G^E. I^N ^T^H^I^S ^S^T^Y^L^E ^T^H^E ^U^P^P^E^R ^L^I^M^I^T ^E^N^T^R^Y ^I^S ^T^E^R^M^I^N^A^T^E^D ^W^I^T^H ^A ^A ^S^E^M^I-^C^O^L^O^N ^O^N ^T^H^E ^S^A^M^E ^L^I^N^E. E^X^A^M^P^L^E@D STATUS ERSTAT # ERROR STATUS # ERRORNO, # NO ERROR # ERRORFE, # FILE ALREADY EXISTS # ERRORFN, # FILE NOT FOUND # ERRORNW, # UNABLE TO WRITE PFC # ERROREND; # END OF *ERSTAT* # 1 6-5 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- 6.0 E^X^A^M^P^L^E^S 6.3 S^T^A^T^U^S L^I^S^T/S^T^A^T^U^S S^W^I^T^C^H E^X^A^M^P^L^E ----------------------------------------------------------------- # * PROCESS THE ERROR RESPONSE. # GOTO ERRCASE[FLAG]; # * ^S^T^A^N^D ^A^L^O^N^E ^C^O^M^M^E^N^T ^H^E^R^E ^O^R ^A^N ^E^M^B^E^D^D^E^D ^C^O^M^M^E^N^T ^O^N ^T^H^E ^L^A^B^E^L. # PFEXISTS@D # ^E^M^B^E^D^D^E^D ^C^O^M^M^E^N^T # ------- ------- GOTO ENDCASE; NOENTRY@D # ^E^M^B^E^D^D^E^D ^C^O^M^M^E^N^T # ------- ------- GOTO ENDCASE; WRITERR@D # ^E^M^B^E^D^D^E^D ^C^O^M^M^E^N^T # ------- ------- GOTO ENDCASE; OK@D # ^E^M^B^E^D^D^E^D ^C^O^M^M^E^N^T # ---------- GOTO ENDCASE; ENDCASE@D ------- # * PROCESS THE ERROR RESPONSE. # 1 A1-1 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- A1.0 A^D^D^E^N^D^U^M ^F^O^R SMF P^R^O^J^E^C^T ----------------------------------------------------------------- T^H^I^S ^A^D^D^E^N^D^U^M ^D^E^S^C^R^I^B^E^S ^C^H^A^N^G^E^S ^T^O ^T^H^E NOS SYMPL ^C^O^D^I^N^G ^S^T^A^N^D^A^R^D ^F^O^R ^T^H^E S^C^R^E^E^N M^A^N^A^G^E^M^E^N^T F^A^C^I^L^I^T^Y (SMF) ^P^R^O^J^E^C^T. C^E^R^T^A^I^N ^P^A^R^T^S ^O^F ^T^H^I^S ^C^H^A^N^G^E ^I^N ^T^H^E ^S^T^A^N^D^A^R^D ^S^H^A^L^L ^B^E ^R^E^L^E^V^E^N^T ^O^N^L^Y ^T^O ^T^H^E F^U^L^L S^C^R^E^E^N E^D^I^T^O^R ^A^N^D ^N^O^T ^T^O ^T^H^E ^S^C^R^E^E^N ^F^O^R^M^A^T^T^E^R. 1. S^T^R^U^C^T^U^R^A^L ^C^H^A^N^G^E^S ^A. N^E^S^T^E^D ^P^R^O^C^E^D^U^R^E^S/^F^U^N^C^T^I^O^N^S ^A^R^E ^A^L^L^O^W^A^B^L^E ^U^N^D^E^R ^T^H^E ^F^O^L^L^O^W^I^N^G ^C^O^N^D^I^T^I^O^N^S. T^H^E ^T^E^R^M^I^N^O^L^O^G^Y ^U^S^E^D ^H^E^R^E ^S^H^A^L^L ^B^E "^C^O^M^P^I^L^A^T^I^O^N ^U^N^I^T" ^F^O^R ^A^N ^O^U^T^E^R^M^O^S^T PRGM/PROC/FUNC, ^S^I^N^C^E ^T^H^A^T ^I^S ^T^H^E ^S^C^O^P^E ^O^F ^T^H^E ^M^A^P ^A^N^D ^C^R^O^S^S-^R^E^F^E^R^E^N^C^E ^I^N ^T^H^E ^L^I^S^T^I^N^G. P^R^O^C^E^D^U^R^E^S ^A^N^D ^F^U^N^C^T^I^O^N^S ^M^A^Y ^B^E ^N^E^S^T^E^D. A ^C^O^M^P^I^L^A^T^I^O^N ^U^N^I^T ^M^A^Y ^C^O^N^T^A^I^N XDEF-^E^D ^I^N^T^E^R^N^A^L ^R^O^U^T^I^N^E^S ^P^R^O^V^I^D^E^D ^T^H^A^T ^A PROC/FUNC ^C^O^M^P^I^L^A^T^I^O^N ^U^N^I^T ^I^S ^N^E^V^E^R ^C^A^L^L^E^D ^V^I^A ^T^H^E ^M^A^I^N ^E^N^T^R^Y ^P^O^I^N^T. A^N^Y ^R^O^U^T^I^N^E ^M^A^Y ^C^O^N^T^A^I^N ^I^N^T^E^R^N^A^L ^R^O^U^T^I^N^E^S ^W^H^I^C^H ^A^R^E ^N^O^T XDEF-^E^D. T^H^A^T ^I^S, ^N^E^S^T^I^N^G ^O^F XDEF-^E^D PROC^S ^I^S ^O^N^L^Y ^A^L^L^O^W^E^D ^O^N^E ^L^E^V^E^L ^D^E^E^P. T^H^E ^S^E^C^O^N^D ^L^E^V^E^L ^O^F ^N^E^S^T^I^N^G ^I^S ^U^S^E^D ^O^N^L^Y ^F^O^R ^R^O^U^T^I^N^E^S ^W^H^I^C^H ^P^E^R^F^O^R^M ^A^N ^A^L^G^O^R^I^T^H^M ^N^O^T ^E^X^P^E^C^T^E^D ^T^O ^B^E ^O^F ^V^A^L^U^E ^O^U^T^S^I^D^E ^O^F ^T^H^E ^P^A^R^E^N^T ^R^O^U^T^I^N^E. S^E^C^O^N^D ^L^E^V^E^L ^N^E^S^T^E^D ^R^O^U^T^I^N^E^S ^S^H^O^U^L^D ^B^E ^V^E^R^Y ^S^I^M^P^L^E ^I^N ^T^H^E^I^R ^L^O^G^I^C^A^L ^S^T^R^U^C^T^U^R^E. T^H^E ^S^A^M^E ^P^R^I^N^C^I^P^L^E^S ^W^I^L^L ^A^P^P^L^Y ^F^O^R ^D^E^E^P^E^R ^L^E^V^E^L ^R^O^U^T^I^N^E^S. N^O^N-XDEF ^I^N^T^E^R^N^A^L ^P^R^O^C^E^D^U^R^E^S ^M^U^S^T ^H^A^V^E ^T^H^E ^S^A^M^E ^H^E^A^D^E^R ^D^O^C^U^M^E^N^T^A^T^I^O^N ^A^S ^A^N^Y ^E^X^T^E^R^N^A^L ^P^R^O^C^E^D^U^R^E. ^B. E^X^T^E^R^N^A^L ^S^Y^M^B^O^L^S ^M^A^Y ^B^E ^M^O^R^E ^T^H^A^N 7 ^C^H^A^R^A^C^T^E^R^S ^L^O^N^G. T^H^E ^P^R^O^G^R^A^M^M^E^R ^I^S ^R^E^S^P^O^N^S^I^B^L^E ^T^O ^A^S^S^U^R^E ^U^N^I^Q^U^E^N^E^S^S ^W^I^T^H^I^N ^T^H^E ^F^I^R^S^T 7 ^C^H^A^R^A^C^T^E^R^S. T^H^E^S^E ^O^V^E^R^S^I^Z^E ^E^X^T^E^R^N^A^L ^N^A^M^E^S, ^W^H^I^L^E ^P^E^R^M^I^S^S^I^B^L^E, ^A^R^E ^D^I^S^C^O^U^R^A^G^E^D ^A^N^D ^S^H^O^U^L^D ^B^E ^U^S^E^D ^O^N^L^Y ^W^H^E^N ^T^H^E ^P^R^O^G^R^A^M^M^E^R ^C^A^N^N^O^T ^R^E^D^U^C^E ^T^H^E ^R^O^U^T^I^N^E ^N^A^M^E ^T^O ^A 7 ^C^H^A^R^A^C^T^E^R ^N^A^M^E ^W^I^T^H ^S^U^F^F^I^C^I^E^N^T ^C^L^A^R^I^T^Y. ^C. COMPASS ^S^U^B^R^O^U^T^I^N^E^S ^A^R^E ^A^L^L^O^W^E^D ^F^O^R ^O^P^T^I^M^I^Z^A^T^I^O^N ^O^F ^T^I^G^H^T ^L^O^O^P^S. S^U^C^H ^R^O^U^T^I^N^E^S ^S^H^O^U^L^D ^B^E ^D^E^S^I^G^N^E^D ^T^O ^C^O^N^T^A^I^N ^A ^M^I^N^I^M^U^M ^O^F ^D^E^C^I^S^I^O^N-^M^A^K^I^N^G ^L^O^G^I^C. 1 A1-2 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- A1.0 A^D^D^E^N^D^U^M ^F^O^R SMF P^R^O^J^E^C^T ----------------------------------------------------------------- ^D. E^A^C^H ^C^O^M^P^I^L^A^T^I^O^N ^U^N^I^T ^I^N ^T^H^E ^E^D^I^T^O^R ^S^H^A^L^L ^C^A^L^L COMAFSE ^A^S ^I^T^S ^F^I^R^S^T ^C^O^M^M^O^N ^D^E^C^K. T^H^I^S ^D^E^C^K ^C^O^N^T^A^I^N^S ^S^Y^M^B^O^L ^A^N^D ^M^A^C^R^O ^D^E^F^I^N^I^T^I^O^N^S ^W^H^I^C^H ^M^U^S^T ^A^P^P^E^A^R ^E^A^R^L^Y ^I^N ^T^H^E ^S^O^U^R^C^E ^C^O^D^E. O^T^H^E^R ^C^O^M^M^O^N ^D^E^C^K^S ^M^A^Y ^B^E ^C^A^L^L^E^D ^E^I^T^H^E^R ^I^N ^A^L^P^H^A^B^E^T^I^C ^O^R^D^E^R ^O^R ^I^N ^F^U^N^C^T^I^O^N^A^L ^O^R^D^E^R. O^N^E ^E^X^A^M^P^L^E ^O^F ^F^U^N^C^T^I^O^N^A^L ^O^R^D^E^R ^W^O^U^L^D ^B^E ^T^H^E ^S^T^O^R^A^G^E ^M^A^P^P^I^N^G ^O^F ^A ^C^O^M^M^O^N ^B^L^O^C^K ^W^H^I^C^H ^C^A^N ^O^N^L^Y ^B^E ^D^E^S^C^R^I^B^E^D ^B^Y ^U^S^I^N^G ^S^E^V^E^R^A^L ^C^O^M^M^O^N ^D^E^C^K^S (^T^H^I^S ^C^A^N ^A^R^I^S^E ^I^N ^A ^S^I^T^U^A^T^I^O^N ^W^H^E^R^E ^N^E^S^T^E^D ^C^O^M^M^O^N ^D^E^C^K^S ^W^O^U^L^D ^B^E ^D^E^S^I^R^E^D ^B^U^T ^T^H^E ^P^R^O^D^U^C^T ^I^S ^I^S ^B^U^I^L^T ^V^I^A MODIFY) ^C^O^R^R^E^C^T ^S^T^O^R^A^G^E ^M^A^P^P^I^N^G ^W^O^U^L^D ^T^H^U^S ^R^E^Q^U^I^R^E ^T^H^A^T ^T^H^E ^C^O^M^M^O^N ^D^E^C^K^S ^B^E ^C^A^L^L^E^D ^I^N ^A ^P^A^R^T^I^C^U^L^A^R ^O^R^D^E^R ^F^O^R ^W^H^I^C^H ^A^L^P^H^A^B^E^T^I^C ^N^A^M^I^N^G ^M^A^Y ^N^O^T ^B^E ^R^E^A^S^O^N^A^B^L^E. 2. S^T^A^T^E^M^E^N^T ^F^O^R^M^A^T^S ^A. T^H^E FOR ^K^E^Y^W^O^R^D ^M^A^Y ^B^E ^U^S^E^D. CONTROL FASTLOOP (FASTFOR) ^I^S ^N^O^T ^P^E^R^M^I^T^T^E^D. ^B. FOR ^L^O^O^P^S ^A^N^D ^S^I^M^U^L^A^T^E^D ^C^A^S^E ^S^T^A^T^E^M^E^N^T^S ^A^R^E ^A^L^L^O^W^E^D ^T^O ^T^E^R^M^I^N^A^T^E ^W^I^T^H ^A RETURN ^S^T^A^T^E^M^E^N^T ^O^R ^T^H^E IORET ^M^A^C^R^O. I^N ^T^H^E ^E^D^I^T^O^R, ^T^H^E ERRJUMP ^C^A^L^L ^M^A^Y ^B^E ^U^S^E^D ^T^O ^T^E^R^M^I^N^A^T^E ^A^N^Y ^B^L^O^C^K ^O^F ^C^O^D^E. ERRJUMP ^W^I^L^L ^B^E ^A ^P^R^O^C^E^D^U^R^E ^W^H^I^C^H ^I^S ^I^T^S^E^L^F ^A^L^L^O^W^E^D ^T^O ^E^X^E^C^U^T^E ^A ^J^U^M^P ^I^N^T^O ^A ^P^R^O^C^E^D^U^R^E. ERRJUMP ^I^S ^U^S^E^D ^T^O ^C^L^E^A^R ^T^H^E ^E^D^I^T^O^R ^I^N^T^O ^A ^N^O^M^I^N^A^L ^C^O^N^D^I^T^I^O^N ^A^F^T^E^R ^E^N^C^O^U^N^T^E^R^I^N^G ^A ^S^Y^N^T^A^X ^E^R^R^O^R. I^N ^T^H^E ^E^D^I^T^O^R, ^C^O^D^E ^M^A^Y ^A^L^S^O ^B^E ^T^E^R^M^I^N^A^T^E^D ^B^Y ^A ^C^A^L^L ^T^O ^A ^F^A^T^A^L-^E^R^R^O^R ^R^O^U^T^I^N^E. L^O^O^P^S ^M^A^Y ^B^E ^B^A^S^E^D ^O^N ^L^A^B^E^L^S ^A^N^D GOTO-^S ^I^N ^P^L^A^C^E ^O^F FOR ^O^N^L^Y ^W^H^E^N ^T^H^E ^P^R^O^G^R^A^M^M^E^R ^C^A^N ^D^E^F^E^N^D ^T^H^I^S ^U^S^A^G^E ^A^S ^S^U^B^S^T^A^N^T^I^A^L^L^Y ^M^O^R^E ^E^F^F^I^C^I^E^N^T ^O^R ^A^S ^B^E^I^N^G ^S^I^M^P^L^E^R ^T^O ^M^A^I^N^T^A^I^N ^T^H^A^N ^F^U^N^C^T^I^O^N^A^L^L^Y ^E^Q^U^I^V^A^L^E^N^T ^S^T^R^U^C^T^U^R^E^D ^C^O^D^E. S^I^M^U^L^A^T^E^D ^C^A^S^E ^S^T^A^T^E^M^E^N^T^S ^M^A^Y ^U^S^E ^A ^B^A^C^K^W^A^R^D ^J^U^M^P ^T^O ^A^C^H^I^E^V^E ^T^H^E ^C^O^M^M^O^N ^E^X^I^T ^W^H^E^N ^T^H^E ^C^A^S^E ^I^S ^E^M^B^E^D^D^E^D ^I^N ^A^N ^I^T^E^R^A^T^I^V^E ^S^T^R^U^C^T^U^R^E ^F^O^R ^W^H^I^C^H ^L^A^B^E^L^S ^A^N^D GOTO-^S ^A^R^E ^A^L^L^O^W^E^D. 1 A1-3 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- A1.0 A^D^D^E^N^D^U^M ^F^O^R SMF P^R^O^J^E^C^T ----------------------------------------------------------------- ^C. A PROC/FUNC/PRGM ^S^T^A^T^E^M^E^N^T ^S^H^A^L^L ^B^E^G^I^N ^I^N ^C^O^L^U^M^N 1 ^F^O^R ^A ^C^O^M^P^I^L^A^T^I^O^N ^U^N^I^T ^A^N^D ^F^O^R ^A ^F^I^R^S^T-^L^E^V^E^L ^N^E^S^T^E^D PROC/FUNC. PROC/FUNC ^S^T^A^T^E^M^E^N^T^S ^N^E^S^T^E^D ^T^O ^D^E^E^P^E^R ^L^E^V^E^L^S ^S^H^A^L^L ^B^E ^I^N^D^E^N^T^E^D 2 ^C^O^L^U^M^N^S ^P^E^R ^L^E^V^E^L. T^H^E ^B^O^D^Y ^O^F ^C^O^D^E ^I^N ^A ^R^O^U^T^I^N^E ^S^H^A^L^L ^B^E ^I^N^D^E^N^T^E^D 2 ^C^O^L^U^M^N^S ^F^R^O^M ^T^H^E PROC/FUNC ^S^T^A^T^E^M^E^N^T. C^O^D^E ^C^O^N^T^A^I^N^E^D ^I^N ^A CONTROL IF ^B^R^A^C^K^E^T ^S^H^A^L^L ^B^E ^I^N^D^E^N^T^E^D 2 ^C^O^L^U^M^N^S ^F^R^O^M ^T^H^E CONTROL ^S^T^A^T^E^M^E^N^T. BEGIN^S ^A^N^D END^S ^S^H^A^L^L ^B^E ^I^N^D^E^N^T^E^D 2 ^C^O^L^U^M^N^S, ^A^N^D ^T^H^E ^C^O^D^E ^W^I^T^H^I^N ^T^H^E BEGIN/END ^S^H^A^L^L ^B^E ^A^L^I^G^N^E^D ^W^I^T^H ^T^H^E BEGIN/END. I^N ^T^H^E ^E^D^I^T^O^R, IOBEGIN ^A^N^D IOEND ^M^A^C^R^O^S ^S^H^A^L^L ^B^E ^I^N^D^E^N^T^E^D ^A^S ^T^H^O^U^G^H ^T^H^E^Y ^A^R^E BEGIN/END. 3. D^O^C^U^M^E^N^T^A^T^I^O^N ^A. D^O^C^U^M^E^N^T^A^T^O^N ^O^F ENTRY/EXIT ^C^O^N^D^I^T^I^O^N^S ^A^N^D ^O^F ^S^T^O^R^A^G^E ^U^S^A^G^E ^M^U^S^T ^I^N^C^L^U^D^E ^A^S^S^U^M^P^T^I^O^N^S ^R^E^G^A^R^D^I^N^G ^M^A^N^I^P^U^L^A^T^I^O^N^S ^O^F ^P^O^I^N^T^E^R ^W^O^R^D^S ^F^O^R ^B^A^S^E^D ^A^R^R^A^Y^S. ^B. F^O^R ^C^O^M^P^I^L^A^T^I^O^N ^U^N^I^T^S ^W^H^O^S^E ^M^A^I^N ^E^N^T^R^Y ^P^O^I^N^T ^I^S ^U^N^C^A^L^L^E^D, ^T^H^E ^M^A^I^N ^E^N^T^R^Y ^M^A^Y ^C^A^R^R^Y ^D^O^C^U^M^E^N^T^A^T^I^O^N ^C^O^N^S^I^D^E^R^E^D ^A^P^P^L^I^C^A^B^L^E ^T^O ^A^L^L ^E^M^B^E^D^D^E^D ^P^R^O^C^E^D^U^R^E^S. ^C. XREF ^A^N^D XDEF ^M^A^Y ^B^E ^P^R^O^V^I^D^E^D ^B^Y ^L^I^S^T^S ^O^F ^R^O^U^T^I^N^E ^N^A^M^E^S ^I^N ^C^O^M^M^O^N ^D^E^C^K^S. S^U^C^H ^L^I^S^T^S ^O^F XDEF ^S^H^O^U^L^D ^B^E ^L^I^S^T^E^D, ^B^U^T ^S^U^C^H ^L^I^S^T^S ^O^F XREF ^S^H^O^U^L^D ^N^O^T ^B^E ^L^I^S^T^E^D ^E^X^C^E^P^T ^F^O^R ^A ^C^O^M^M^E^N^T ^N^O^T^I^N^G ^T^H^E ^C^A^L^L ^T^O ^T^H^E ^C^O^M^M^O^N ^D^E^C^K. DOCMENT ^B^R^A^C^K^E^T^S ^A^R^E ^N^O^T ^R^E^Q^U^I^R^E^D. ^D. S^T^A^N^D ^A^L^O^N^E ^C^O^M^M^E^N^T^S ^M^A^Y ^B^E ^A ^S^I^N^G^L^E ^L^I^N^E ^S^T^A^R^T^I^N^G ^W^I^T^H ^A ^P^O^U^N^D ^S^I^G^N ^I^N ^C^O^L^U^M^N 1 ^A^N^D ^E^N^D^I^N^G ^W^I^T^H ^A ^P^O^U^N^D ^S^I^G^N ^I^N ^C^O^L^U^M^N 71, ^R^A^T^H^E^R ^T^H^A^N ^T^H^E COMPASS ^S^T^Y^L^E ^C^O^M^M^E^N^T (^A^S^T^E^R^I^S^K ^I^N ^C^O^L^U^M^N 1 ^O^F ^T^H^E ^C^O^M^M^E^N^T ^B^O^D^Y). T^H^E ^U^S^E ^O^F ^P^R^E^C^E^E^D^I^N^G ^A^N^D ^P^R^O^C^E^E^D^I^N^G ^B^L^A^N^K ^L^I^N^E^S ^I^S ^N^E^G^O^T^I^A^B^L^E ^B^E^T^W^E^E^N ^T^H^E ^P^R^O^G^R^A^M^M^E^R ^A^N^D ^R^E^V^I^E^W^E^R ^T^O ^A^C^H^I^E^V^E ^A ^M^U^T^U^A^L^L^Y ^S^A^T^I^S^F^A^C^T^O^R^Y ^V^I^S^U^A^L ^E^F^F^E^C^T. N^O^T^E ^T^H^A^T ^T^H^I^S ^S^I^M^P^L^I^F^I^E^D ^F^O^R^M ^F^O^R ^S^T^A^N^D ^A^L^O^N^E ^C^O^M^M^E^N^T^S ^I^S ^O^N^L^Y ^A^P^P^L^I^C^A^B^L^E ^F^O^R ^C^O^M^M^E^N^T^S ^N^O^T ^I^N^T^E^N^D^E^D ^T^O ^B^E ^P^R^I^N^T^E^D ^B^Y ^T^H^E DOCMENT ^U^T^I^L^I^T^Y. 4. P^S^E^U^D^O-^R^E^E^N^T^R^A^N^C^Y ^C^O^N^S^I^D^E^R^A^T^I^O^N^S (^F^O^R FSE ^A^N^D SMFEX ^O^N^L^Y). ^A. T^H^E SMFEX E^X^E^C^U^T^I^V^E ^M^A^Y ^C^O^N^T^A^I^N ^A ^L^I^M^I^T^E^D ^N^U^M^B^E^R ^O^F ^L^A^B^E^L^S ^W^I^T^H^I^N ^I^F ^O^R ^F^O^R ^B^L^O^C^K^S, ^A^N^D ^E^X^T^E^R^N^A^L ^L^A^B^E^L^S ^W^I^T^H^I^N ^P^R^O^C^E^D^U^R^E^S, ^A^S ^N^E^C^E^S^S^A^R^Y ^T^O ^I^M^P^L^E^M^E^N^T ^P^S^E^U^D^O-^R^E^E^N^T^R^A^N^C^Y. ^B. SMFEX ^A^N^D FSE ^W^I^L^L ^C^O^N^T^A^I^N ^P^R^O^C^E^D^U^R^E^S ^S^U^B^J^E^C^T ^T^O ^R^E^E^N^T^R^Y ^U^N^D^E^R ^C^O^N^T^R^O^L ^O^F ^T^H^E SMFEX E^X^E^C^U^T^I^V^E. A ^R^E^E^N^T^R^A^N^T ^P^R^O^C^E^D^U^R^E ^I^S ^A ^P^R^O^C^E^D^U^R^E ^W^H^I^C^H ^C^A^L^L^S ^A^N^O^T^H^E^R ^R^E^E^N^T^R^A^N^T ^P^R^O^C^E^D^U^R^E ^O^R ^U^S^E^S ^T^H^E ^D^E^L^A^Y ^O^R ^R^E^C^A^L^L ^S^T^A^T^E^M^E^N^T^S. T^H^E^R^E ^C^A^N^N^O^T ^B^E ^R^E^E^N^T^R^A^N^T ^F^U^N^C^T^I^O^N^S. 1 A1-4 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- A1.0 A^D^D^E^N^D^U^M ^F^O^R SMF P^R^O^J^E^C^T ----------------------------------------------------------------- ^C. T^H^E ^R^E^E^N^T^R^A^N^C^Y ^T^E^C^H^N^I^Q^U^E ^S^E^V^E^R^L^Y ^R^E^S^T^R^I^C^T^S ^T^H^E ^U^S^A^G^E ^O^F ^L^O^C^A^L ^S^T^O^R^A^G^E ^A^N^D ^O^F ^P^A^R^A^M^E^T^E^R^S. T^H^E ^P^R^O^G^R^A^M^M^E^R ^S^H^O^U^L^D ^D^E^D^I^C^A^T^E ^C^O^M^M^O^N ^B^L^O^C^K ^S^T^O^R^A^G^E ^T^O ^T^H^E ^F^U^N^C^T^I^O^N^S ^P^E^R^F^O^R^M^E^D ^B^Y ^A ^R^E^E^N^T^R^A^N^T ^R^O^U^T^I^N^E, ^I^N ^P^R^E^F^E^R^E^N^C^E ^T^O ^L^O^C^A^L^S. N^O^T^E ^T^H^A^T ^T^H^E ^C^O^M^M^O^N ^B^L^O^C^K ^I^N^C^L^U^D^E^S ^O^N^E ^G^E^N^E^R^A^L ^P^U^R^P^O^S^E ^V^A^R^I^A^B^L^E ^W^H^I^C^H ^I^S ^S^T^A^C^K^A^B^L^E, ^S^O ^T^H^A^T ^R^E^E^N^T^R^A^N^T ^R^O^U^T^I^N^E^S ^C^A^N ^D^Y^N^A^M^I^C^A^L^L^Y ^A^L^L^O^C^A^T^E ^S^T^O^R^A^G^E ^O^N ^A ^L^I^M^I^T^E^D ^S^C^A^L^E. ^D. R^E^E^N^T^R^A^N^T ^P^R^O^C^E^D^U^R^E^S ^M^U^S^T ^M^I^N^I^M^I^Z^E ^T^H^E ^U^S^E ^O^F ^L^O^C^A^L ^S^T^O^R^A^G^E. A^N^Y ^S^E^Q^U^E^N^C^E ^O^F ^C^O^D^E ^I^N ^A ^R^E^E^N^T^R^A^N^T ^P^R^O^C^E^D^U^R^E ^W^H^I^C^H ^U^S^E^S ^L^O^C^A^L ^S^T^O^R^A^G^E ^M^U^S^T ^B^E ^P^R^E^C^E^D^E^D ^A^N^D ^F^O^L^L^O^W^E^D ^B^Y ^S^T^A^N^D ^A^L^O^N^E ^C^O^M^M^E^N^T^S ^O^F ^T^H^E ^F^O^R^M # LOCAL # # END LOCAL # T^H^E ^C^O^D^E ^W^I^T^H^I^N ^T^H^E ^C^O^M^M^E^N^T^S ^C^A^N^N^O^T ^C^A^L^L ^A^N^Y ^R^E^E^N^T^R^A^N^T ^R^O^U^T^I^N^E^S. ^E. R^E^E^N^T^R^A^N^T ^P^R^O^C^E^D^U^R^E^S ^M^U^S^T ^M^I^N^I^M^I^Z^E ^T^H^E ^U^S^E ^O^F ^P^A^R^A^M^E^T^E^R^S. W^H^E^N ^P^A^R^A^M^E^T^E^R^S ^A^R^E ^U^S^E^D, ^I^T ^I^S ^E^S^S^E^N^T^I^A^L ^T^H^A^T ^T^H^E ^P^A^R^A^M^E^T^E^R^S ^B^E ^R^E^A^D-^O^N^L^Y (^I.^E. ^T^H^E ^S^U^B^R^O^U^T^I^N^E ^D^O^E^S ^N^O^T ^C^O^M^P^U^T^E ^A ^N^E^W ^V^A^L^U^E), ^A^N^D ^T^H^E^Y ^M^U^S^T ^B^E ^U^S^E^D ^B^E^F^O^R^E ^A^N^Y ^R^E^E^N^T^R^A^N^T ^P^R^O^C^E^D^U^R^E ^I^S ^C^A^L^L^E^D. U^S^E ^O^F ^P^A^R^A^M^E^T^E^R^S ^S^H^A^L^L ^B^E ^F^O^L^L^O^W^E^D ^B^Y ^A ^S^T^A^N^D ^A^L^O^N^E ^C^O^M^M^E^N^T ^O^F ^T^H^E ^F^O^R^M@D # END PARAMETERS # ^F. R^E^E^N^T^R^A^N^T ^R^O^U^T^I^N^E^S ^L^O^S^E ^C^O^N^T^R^O^L ^B^Y ^C^A^L^L^I^N^G DELAY ^O^R RECALL. I^N ^T^H^E ^S^I^N^G^L^E-^U^S^E^R ^V^E^R^S^I^O^N, ^T^H^E^S^E ^A^R^E COMPASS ^S^U^B^R^O^U^T^I^N^E^S ^W^H^I^C^H ^E^X^E^C^U^T^E ^R^E^C^A^L^L ^M^A^C^R^O^S. I^N ^T^H^E ^M^U^L^T^I-^U^S^E^R ^V^E^R^S^I^O^N, ^T^H^E^S^E ^A^R^E DEF-^E^D ^T^O ^B^E ^C^A^L^L^S ^I^N^T^O ^C^E^R^T^A^I^N ^E^N^T^R^Y ^P^O^I^N^T^S ^W^I^T^H^I^N SMFEX ^T^O ^I^N^V^O^K^E ^T^H^E ^M^U^L^T^I-^T^A^S^K^I^N^G ^E^X^E^C^U^T^I^V^E. ^G. R^E^E^N^T^R^A^N^T ^R^O^U^T^I^N^E^S ^A^R^E ^B^R^A^C^K^E^T^E^D ^B^Y ^T^H^E IOBEGIN ^A^N^D IOEND ^M^A^C^R^O^S. I^N ^T^H^E ^S^I^N^G^L^E-^U^S^E^R ^V^E^R^S^I^O^N, ^T^H^E^S^E ^A^R^E DEF-^E^D ^T^O ^S^I^M^P^L^Y ^Y^I^E^L^D BEGIN ^A^N^D END. I^N ^T^H^E ^M^U^L^T^I-^U^S^E^R ^V^E^R^S^I^O^N, ^T^H^E^S^E ^A^R^E DEF-^E^D ^T^O ^G^E^N^E^R^A^T^E ^C^O^D^E ^T^O ^M^A^I^N^T^A^I^N ^D^A^T^A ^S^T^R^U^C^T^U^R^E^S ^W^H^I^C^H ^H^E^L^P ^T^H^E SMFEX ^M^U^L^T^I-^T^A^S^K ^E^X^E^C^U^T^I^V^E ^S^U^P^E^R^V^I^S^E ^T^H^E ^R^E^E^N^T^R^Y. R^E^E^N^T^R^A^N^T ^R^O^U^T^I^N^E^S ^C^A^N^N^O^T ^U^S^E ^T^H^E RETURN ^S^T^A^T^E^M^E^N^T, ^B^U^T ^C^A^N ^U^S^E ^T^H^E IORET ^M^A^C^R^O. 1 A1-5 NOS SYMPL CODING STANDARD 06/01/83 ----------------------------------------------------------------- A1.0 A^D^D^E^N^D^U^M ^F^O^R SMF P^R^O^J^E^C^T ----------------------------------------------------------------- ^H. R^E^E^N^T^R^A^N^T ^R^O^U^T^I^N^E^S ^M^U^S^T ^B^E ^R^E^S^T^R^I^C^T^E^D ^A^S ^T^O ^T^H^E ^T^Y^P^E ^O^F ^M^O^N^I^T^O^R ^C^A^L^L^S ^T^H^E^Y ^C^A^N ^I^S^S^U^E ^E^I^T^H^E^R ^E^X^P^L^I^C^I^T^L^Y ^O^R ^B^Y ^C^A^L^L^I^N^G ^O^T^H^E^R ^R^O^U^T^I^N^E^S. I^N ^P^A^R^T^I^C^U^L^A^R, ^R^E^E^N^T^R^A^N^T ^C^O^D^E ^M^U^S^T ^U^S^E ^O^N^L^Y CIO ^A^N^D ^E^A^C^H CIO ^C^A^L^L ^M^U^S^T ^B^E ^E^X^P^L^I^C^I^T. T^H^I^S ^E^F^F^E^C^T^I^V^E^L^Y ^B^A^N^S ^T^H^E ^U^S^E ^O^F ^T^H^E ^S^T^A^N^D^A^R^D NOS ^C^O^M^M^O^N ^D^E^C^K^S. F^U^R^T^H^E^R^M^O^R^E, ^T^H^E ^O^N^L^Y ^F^I^L^E ^W^H^I^C^H ^C^A^N ^B^E ^D^E^A^L^T ^W^I^T^H ^B^Y ^R^E^E^N^T^R^A^N^T ^C^O^D^E ^I^S ^T^H^E ^E^D^I^T^O^R ^W^O^R^K^F^I^L^E. T^E^R^M^I^N^A^L I/O ^W^I^L^L ^B^E ^F^U^N^N^E^L^E^D ^I^N^T^O ^O^N^E ^M^O^D^U^L^E ^O^F ^C^O^D^E, ^W^H^I^C^H ^S^H^A^L^L ^C^O^N^D^I^T^I^O^N^A^L^L^Y ^C^O^M^P^I^L^E ^T^O ^Y^I^E^L^D ^C^O^N^V^E^N^T^I^O^N^A^L FET-^S ^A^N^D CIO ^C^A^L^L^S ^F^O^R FSE, ^A^N^D ^C^A^L^L^S ^T^O ^T^H^E SMFEX E^X^E^C^U^T^I^V^E ^F^O^R SMF. ^I. T^H^E ^O^N^L^Y ^W^R^I^T^E^A^B^L^E ^S^T^O^R^A^G^E ^W^H^I^C^H ^C^A^N ^B^E ^U^S^E^D ^O^T^H^E^R ^T^H^A^N ^L^O^C^A^L ^S^T^O^R^A^G^E ^A^S ^D^E^S^C^R^I^B^E^D ^A^B^O^V^E ^S^H^A^L^L ^R^E^S^I^D^E ^I^N ^A ^S^I^N^G^L^E ^C^O^M^M^O^N ^B^L^O^C^K, ^O^R ^S^H^A^L^L ^R^E^S^I^D^E ^I^N ^B^A^S^E^D ^A^R^R^A^Y^S ^W^H^O^S^E ^P^O^I^N^T^E^R ^W^O^R^D^S ^A^R^E ^I^N ^T^H^E ^C^O^M^M^O^N ^B^L^O^C^K. T^H^E ^C^O^M^M^O^N ^B^L^O^C^K ^S^H^A^L^L ^B^E ^O^R^G^A^N^I^Z^E^D ^I^N^T^O ^S^E^V^E^R^A^L ^S^E^C^T^I^O^N^S ^B^A^S^E^D ^O^N ^T^H^E ^V^A^R^I^O^U^S ^D^E^G^R^E^E^S ^O^F ^R^E^E^N^T^R^A^N^C^Y ^S^E^R^V^I^C^E^S ^P^R^O^V^I^D^E^D ^B^Y ^T^H^E SMFEX E^X^E^C^U^T^I^V^E. ^I^N ^T^H^E ^S^I^N^G^L^E-^U^S^E^R ^E^D^I^T^O^R, ^P^O^R^T^I^O^N^S ^O^F ^T^H^I^S ^C^O^M^M^O^N ^B^L^O^C^K ^M^U^S^T ^B^E ^C^O^M^P^I^L^E^D ^T^O ^M^A^P ^E^X^A^C^T^L^Y ^T^H^E ^S^A^M^E ^A^S ^T^H^E ^M^U^L^T^I-^U^S^E^R ^V^E^R^S^I^O^N, ^S^I^N^C^E ^T^H^A^T ^P^O^R^T^I^O^N ^O^F ^T^H^E ^C^O^M^M^O^N ^B^L^O^C^K ^I^S ^T^R^A^N^F^E^R^R^E^D ^V^E^R^B^A^T^I^M ^T^H^R^O^U^G^H ^T^H^E ^W^O^R^K^F^I^L^E ^F^O^R ^C^O^M^M^U^N^I^C^A^T^I^O^N ^B^E^T^W^E^E^N ^T^H^E ^T^W^O ^V^E^R^S^I^O^N^S ^O^F ^T^H^E ^E^D^I^T^O^R. A^L^L ^C^R^I^T^I^C^A^L ^S^T^O^R^A^G^E ^M^A^P^P^I^N^G ^M^U^S^T ^B^E ^I^D^E^N^T^I^F^I^E^D ^A^S ^S^U^C^H ^I^N ^D^O^C^U^M^E^N^T^A^T^I^O^N. ^J. R^E^E^N^T^R^A^N^T ^C^O^D^E ^S^H^A^L^L ^M^I^N^I^M^I^Z^E ^D^Y^N^A^M^I^C ^R^E^L^O^C^A^T^I^O^N ^O^F ^B^A^S^E^D ^A^R^R^A^Y^S. R^E^L^O^C^A^T^I^O^N ^I^S ^A^L^L^O^W^E^D ^I^F ^T^H^E ^P^O^I^N^T^E^R ^W^O^R^D ^I^S ^T^R^E^A^T^E^D ^A^S ^N^O^N-^R^E^E^N^T^R^A^N^T. R^E^L^O^C^A^T^I^O^N ^I^S ^P^O^S^S^I^B^L^E ^W^I^T^H ^L^I^M^I^T^E^D ^R^E^E^N^T^R^A^N^C^Y ^P^R^O^V^I^D^E^D ^T^H^E ^P^O^I^N^T^E^R ^W^O^R^D ^I^S ^M^A^P^P^E^D ^I^N^T^O ^T^H^E ^R^E^E^N^T^R^A^N^T ^S^E^C^T^I^O^N ^O^F ^T^H^E ^C^O^M^M^O^N ^B^L^O^C^K. N^O^T^E ^T^H^A^T ^W^H^I^L^E ^T^H^I^S ^W^I^L^L ^K^E^E^P ^A ^P^O^I^N^T^E^R ^V^A^L^U^E ^A^L^I^V^E ^F^O^R ^T^H^E ^D^U^R^A^T^I^O^N ^O^F ^D^I^S^K I/O, ^I^T ^I^S ^N^O^T ^A^B^L^E ^T^O ^K^E^E^P ^A^N^Y ^P^O^I^N^T^E^R ^V^A^L^I^D ^A^C^R^O^S^S ^T^E^R^M^I^N^A^L I/O ^U^N^L^E^S^S ^T^H^E ^P^O^I^N^T^E^R ^P^O^I^N^T^S ^W^I^T^H^I^N ^R^E^E^N^T^R^A^N^T ^C^O^M^M^O^N ^I^T^S^E^L^F. T^H^I^S ^I^S ^D^U^E ^T^O ^T^H^E ^R^E-^M^A^P^P^I^N^G ^O^F ^A^R^R^A^Y ^L^O^C^A^T^I^O^N^S ^P^E^R^F^O^R^M^E^D ^B^Y ^T^H^E SMFEX E^X^E^C^U^T^I^V^E ^U^P^O^N ^I^N^T^E^R^N^A^L ^S^W^A^P^S. F^O^R ^T^H^O^S^E ^A^R^R^A^Y^S ^R^E-^M^A^P^P^E^D ^B^Y SMFEX ^S^W^A^P^P^I^N^G, ^N^O ^M^O^D^U^L^E ^E^X^C^E^P^T SMFEX ^C^A^N ^E^V^E^R ^C^H^A^N^G^E ^T^H^E ^P^O^I^N^T^E^R ^W^O^R^D. *WEOR