// DATE 301015
// NOHALT
*
*** RUN MAINT.
*
// LOAD $MAINT,F1
// RUN
// COPY FROM-READER,TO-F1,RETAIN-R,LIBRARY-S,NAME-$HPL
       MACRO                                                            
&LABEL $HPL  &CODE-
.********************************************************************** 
.*                                                                    * 
.*TITLE: HALT PROGRAM LEVEL.                                          * 
.*                                                                    * 
.*STATUS: RELEASE 1                                                   * 
.*                                                                    * 
.*FUNCTION/OPERATION:                                                 * 
.*   THIS MACRO WILL CREATE AN INLINE HPL INSTRUCTION.                * 
.*                                                                    * 
.*INPUT: MACRO USES THE KEYWORD PARAMETERS AS FOLLOWS:                * 
.*   CODE  - SPECIFIES THE HALT CODE.                                 * 
.*                                                                    * 
.*OUTPUT:                                                             * 
.*   HPL INSTRUCTION.                                                 * 
.*                                                                    * 
.*NOTES: THIS MACRO IS NEEDED TO BYPASS A CODE OVERLAY ERROR MESSAGE  *
.*   DURING LINK EDIT OF THE 5703-XM1 SOURCE CODE.                    *
.*     HPL   *-*,*-*                                                  * 
.*     ORG   *-2         <-- CAUSES AN 'P 20 ERROR MESSAGE.           *
.*     DC    AL2(HLTCDE)                                              *
.*                                                                    *
.*   THE FOLLOWING SOLUTIONS GIVE AN ASSEMBLER ERROR MESSAGE:         *
.*     HPL   AL2(HLTCDE)                                              *
.*     HPL   XL2'HLTCDE'                                              * 
.*                                                                    * 
.*HISTORY: 30/10/15 INITIAL VERSION.                                  * 
.*                                                                    * 
.********************************************************************** 
       TEXT
       AIF   (T'&LABEL EQ 'O').NOLBL   . ADVANCE IF NO LABEL.
&LABEL EQU   *                         
.*
.NOLBL ANOP                                                             
       AIF   (T'&CODE NE 'O').CDEOK    . FUNC PARM SPECIFIED ?          
       MNOTE 08,'NO CODE PARAMETER SPECIFIED'                
.CDEOK ANOP
       DC    XL1'F0'                   INLINE HPL INSTRUCTION
       DC    AL2(&CODE)                HALT CODE
.MEND  MEND                                                             
// CEND
// END
*
// READER CONSOLE