// DATE 270915
// NOHALT
*
*** RUN MAINT.
*
// LOAD $MAINT,F1
// RUN
// COPY FROM-READER,TO-F1,RETAIN-R,LIBRARY-S,NAME-@HLT
       MACRO
       @HLT  &EXP-N
.*
.*     5703-XM1 HALT EQUATES.
.*
       TEXT
       PRINT OFF
       AIF   (&EXP EQ 'Y').ON          PRINT ON REQUESTED ?
       AIF   (&EXP EQ 'N').OFF         PRINT OFF REQUESTED ?
.ERR   MNOTE 00,'INVALID MACRO OPTION SPECIFIED.'
       AGO   .MEND
.ON    ANOP
       PRINT ON
.OFF   ANOP
       TITLE '@HLTEQ - HALT INDICATOR EQUATES'  
**********************************************************************
*      THESE EQUATES, WHEN USED WITH THE HPL INSTRUCTION AS A TWO    *
*      ADDRESS CONSTANT REPLACING THE Q AND R FIELDS, WILL CAUSE THE *
*      CORRESPONDING HALT INDICATORS TO BE LIT.                      *
**********************************************************************
       SPACE 1      
@HKBER EQU   X'2040'                   KEYBOARD PARITY ERROR SOFT HALT
*                                      * CODE ' B  1    '
@HPRER EQU   X'0070'                   MATRIX PRINTER ERROR SOFT HALT
*                                      * CODE '    123  '
@HDTRD EQU   X'1040'                   DATA RECORDER ERROR SOFT HALT
*                                      * CODE '  C 1    '
@HDTRJ EQU   X'1010'                   DATA RECORDER TRANSPORT JAM
*                                      * CODE '  C   3  '
@HDNRY EQU   X'1008'                   DATA RECORDER NOT READY 
*                                      * CODE '  C    4 '
@HERPG EQU   X'087C'                   HARD HALT AFTER ERROR MESSAGE
*                                      * CODE '   D12345'
@HLOGE EQU   X'1844'                   HARD DISK ERROR WHILE LOGGING
*                                      * AN I/O ERROR
*                                      * CODE '  CD1   5'
@HUNSF EQU   X'1850'                   HARD DISK UNSAFE ERROR
*                                      * CODE '  CD1 3  '
@HIPLE EQU   X'006C'                   HARD HALT WHEN NO SYSTEM PGM
*                                      * FILE FOUND ON IPL'D DISK
*                                      * CODE '    12 45'
@HCEPK EQU   X'003C'                   HARD HALT FOR CE PACK       
*                                      * CODE '     2345'
@HCOPY EQU   X'081C'                   HARD HALT ON TERMINATION OF 
*                                      * COPY DISK FUNCTION
*                                      * CODE '   D  345'
@HFEHT EQU   X'0804'                   HARD HALT ON ZUTMON 'H' OPTION
*                                      * CODE '   D    5'
@HCOPS EQU   X'001C'                   SOFT HALT ON INTERMEDIATE COPY
*                                      * DISK FUNCTION
*                                      * CODE '      345'
*
***    HARD I/O ERROR HALTS
*
@HDRV1 EQU   X'7840'                   HARD ERROR ON DRIVE 1
*                                      * CODE 'ABCD1    '
@HDRV2 EQU   X'7844'                   HARD ERROR ON DRIVE 2
*                                      * CODE 'ABCD1   5'
@HKBHE EQU   X'7848'                   HARD KEYBOARD ERROR
*                                      * CODE 'ABCD1  4 '
@HPRHE EQU   X'784C'                   HARD PRINTER ERROR
*                                      * CODE 'ABCD1  45'
@HDRHE EQU   X'7854'                   HARD DATA RECORDER ERROR
*                                      * CODE 'ABCD1 3 5'
@HCRHE EQU   X'7858'                   HARD CRT ERROR
*                                      * CODE 'ABCD1 34 '
*      END OF HALT EQUATES
.*     END OF MACRO; RESTORE PRINT ON.
.MEND  ANOP
       PRINT ON
       MEND
// CEND
// END
*
// READER CONSOLE