ASMB,R,Q,C
      HED FMGR ERROR EXPANDER MODULE  PART OF RTE FMP 
*     NAME:   ??..
*     SOURCE: 92067-18202 
*     RELOC:  92067-16185 
*     PGMR:   G.A.A.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
*  ***************************************************************
* 
      NAM ??..,8 92067-16185 REV.2026 800313
      ENT ??..
      EXT EXEC,TMP.,WRITF,O.BUF,.ENTR,.R.E.,.E.R. 
      EXT CAM.O,IER.,BUF.,IFLG. 
      EXT FM.AB,OPEN. 
      SUP 
N     NOP 
LST   NOP 
      SPC 1 
??..  NOP           ENTRY POINT 
      JSB .ENTR     GEN PRAMS 
      DEF N 
      SPC 1 
      LDB .R.E.     GET ERROR PRAM
      ASR 16        EXTEND THE SIGN BIT 
      DIV .1000     DIVIDE
      LDA B         ERROR CODE TO A 
      LDB LST,I     GET FLAG
      ISZ LST       STEP TO 
      SZB             IF NOT SUPPLIED USE .E.R. 
      LDA LST,I        ELSE USE FIRST PRAM
      CPA .99       IF PRAM=99
      JMP ALL        THEN PRINT ALL CODES ON LIST 
* 
      CPA N99       CHECK FOR SPECIAL ERROR  *780512* 
      JMP PN99      GO PRINT IT              *780512* 
* 
      CPA N101      CHECK FOR INTERNAL
      JMP PN101     ERRORS, 
      CPA N102      CODES -101 AND -102 
      JMP PN102 
      STA N         SAVE CODE 
      ADA MOSNG     TEST FOR
      SSA             DEFINED  CODE 
      JMP UDF       TOO NEGATIVE
      LDA N 
      ADA NHLP1 
      SSA 
      JMP PRINT     OK - PRINT IT 
      ADA NHLG
      SSA 
      JMP UDF       IN   MID  CODE  GAP - UNDEFINED 
      ADA NHH 
      SSA,RSS 
      JMP UDF       TO  HIGH - UNDEFINED
      LDA N         ADJUST  N 
      ADA NHLG      FOR HIGH GROUP
      STA N         TABLE 
PRINT LDA N         GET  N
      ALS           DOUBLE
      ADA TBAD      ADD TABLE ADDRESS 
PR    LDB A,I       GET MESSAGE ADDRESS 
      STB MSAD      SET AS POINTER
      INA               GET 
      LDB A,I        MESSAGE
      STB A           LENGTH
      CMA,INA       SET FOR 
      STA N          MOVE 
      ADB .2          AND 
      STB LST          OUTPUT 
      DLD FMGR      SET FMGR
BF    DST BUF.       AT 
      LDA BUF.D       HEAD
      RSS 
      LDA A,I          OF 
      RAL,CLE,SLA,ERA   MESSAGE 
      JMP *-2            GET
      ADA .2              BUFFER ADDRESS AND
MOVE  LDB MSAD,I    MOVE
      STB A,I        MESSAGE
      INA             TO
      ISZ MSAD         THE
      ISZ N             BUFFER
      JMP MOVE
      JSB EXEC      PRINT 
      DEF FMRTN      ON 
      DEF .2          LOG 
      DEF CAM.O 
BUF.D DEF BUF.          DEVICE
      DEF LST 
FMRTN LDA IFLG.     IF INIT 
      SZA            THEN 
      JMP ??..,I      RETURN
      LDB .R.E.     IF
      STA .R.E. 
      CPB .60        60 
      JMP FM.AB       THE ABORT 
      JMP ??..,I    ELSE, RETURN
      SPC 3 
N99   DEC -99 
DN99  DEF DFN99 
DN101 DEF ER101 
DN102 DEF ER102 
PN99  LDA DN99      FETCH ADDR OF ERROR      *780512* 
      RSS 
PN101 LDA DN101 
      RSS 
PN102 LDA DN102 
      RSS 
      SPC 2 
UDF   LDA DFUDF     PICK UNDEFINED
      JMP PR        AND SEND IT.
      SPC 3 
ALL   LDA IFLG. 
      SZA 
      JMP FMRTN     LIST ALL
      LDA TMP.D 
      RSS            POSSIBLE 
      LDA A,I         ERROR 
      RAL,CLE,SLA,ERA  CODES. 
      JMP *-2       GET PARAMETER 
      ADA .3         ADDRESS
      STA LST         AND 
      JSB OPEN.        OPEN 
      DEF OPRTN         LIST
      DEF O.BUF          FILE 
TMP.D DEF TMP.
      DEF LST,I 
      DEF .0
OPRTN DLD PTRS      SET THE 
      DST CPTRS      POINTERS FOR LENGTH/BUFFER AD
WRIT  LDA CPTRS     CHECK FOR 
      RAL,CLE,ERA   UNDEFINED ERROR 
      LDA A,I       IF UNDEFINED, 
      CPA AUDN      THEN SKIP 
      JMP NEXT      PRINTING OF IT
      JSB WRITF     WRITE 
      DEF WRRTN      THE
      DEF O.BUF       MESSAGE 
      DEF .E.R.        ON 
CPTRS NOP               THE 
      NOP                LIST 
WRRTN JSB IER.            DEVICE
      DEF *+1       CHECK FOR ERRORS
NEXT  LDA CPTRS+1,I IF CURRENT LENGTH 
      SSA           NEGATIVE THEN 
      JMP FMRTN     DONE - RETURN.
      ISZ CPTRS 
      ISZ CPTRS     STEP THE
      ISZ CPTRS+1 
      ISZ CPTRS+1   BUFFER AND LENGTH POINTERS
      JMP WRIT      ELSE GO WRITE NEXT MESSAGE
      SPC 3 
.1000 DEC 1000
.99   DEC 99
N101  DEC -101
N102  DEC -102
.2    DEC 2 
.3    DEC 3 
.60   DEC 60
      SPC 1 
A     EQU 0 
B     EQU 1 
MSTN  EQU 49        MOST NEGATIVE ERROR CODE
HLOW  EQU 23        MOST POSITIVE OF LOW GROUP
LHIG  EQU 38        LOWEST OF HIGH GROUP
HHIG  EQU 79        HIGHEST OF HIGH GROUP 
      SPC 1 
MOSNG ABS MSTN         MOST NEG. CODE 
NHLP1 ABS -HLOW-1      NEG. OF LOW HIGH BOUND 
NHLG  ABS HLOW+1-LHIG  NEG. OF LOW HIGH GAP 
NHH   ABS LHIG-HHIG-1  NEG. OF HIGH SIZE. 
      SPC 1 
BFPT  NOP 
MSAD  NOP 
DFUDF DEF *+1 
      DEF UDN 
      ABS LUDN
FMGR  ASC 2,FMGR
TBAD  DEF MS00
PTRS  DEF LSHED,I 
      DEF LSHED+1 
UDN   ASC 9, ERROR NOT DEFINED
LUDN  EQU *-UDN 
LSHED DEF HEAD      THIS LIST 
      ABS LHEAD      IS IN
      DEF BLNK        THE 
      ABS LBLNK        ORDER
      DEF HD2           OF
      ABS LHD2           PRINTING 
      DEF BLNK            AND 
      ABS LBLNK            ALSO 
ER101 DEF EM101             NUMERICAL 
      ABS L101               ORDER
ER102 DEF EM102 
      ABS L102
DFN99 DEF ERM99 
      ABS LM99
      DEF ERM49 
      ABS LM49
      DEF ERM48 
      ABS LM48
      DEF ERM47 
      ABS LM47
      DEF ERM46 
      ABS LM46
AUDN  DEF UDN       -45 (RTE-LC) SWAP FILE TOO SMALL
      ABS LUDN
      DEF UDN       -44 (RTE-LC) WRONG FILE TYPE FOR SWAP 
      ABS LUDN
      DEF UDN       -43 (RTE-LC) SYSTEM DOES NOT ALLOW SWAPPING 
      ABS LUDN
      DEF UDN       -42 (RTE-LC) SWAPPING ACTIVE
      ABS LUDN
      DEF ERM41 
      ABS LM41
      DEF ERM40 
      ABS LM40
      DEF ERM39 
      ABS LM39
      DEF ERM38 
      ABS LM38
      DEF UDN       -37 (RTE-LC) ATTEMPT TO PURGE ACTIVE TYPE 6 FILE
      ABS LUDN
      DEF ERM36     -36          LOCK ERROR ON DEVICE 
      ABS LM36
      DEF ERM35 
      ABS LM35
      DEF ERM34 
      ABS LM34
      DEF ERM33 
      ABS LM33
      DEF ERM32 
      ABS LM32
      DEF UDN       -31 (RTE-M) MASTER DIRECTORY LOCK CONFLICT
      ABS LUDN
      DEF ERM30 
      ABS LM30
      DEF UDN       -29 (RTE-M) ILLEGAL DIRECTORY ON CARTRIDGE TAPE 
      ABS LUDN
      DEF UDN       -28 (RTE-M) SEGLD DETECTED CHECKSUM ERROR 
      ABS LUDN
      DEF UDN       -27 (RTE-M) MEMORY BOUNDS ERROR 
      ABS LUDN
      DEF ERM26 
      ABS LM26
      DEF ERM25 
      ABS LM25
      DEF ERM24 
      ABS LM24
      DEF ERM23 
      ABS LM23
      DEF ERM22 
      ABS LM22
      DEF ERM21 
      ABS LM21
      DEF ERM20 
      ABS LM20
      DEF ERM19 
      ABS LM19
      DEF ERM18 
      ABS LM18
      DEF ERM17 
      ABS LM17
      DEF ERM16 
      ABS LM16
      DEF ERM15 
      ABS LM15
      DEF ERM14 
      ABS LM14
      DEF ERM13 
      ABS LM13
      DEF ERM12 
      ABS LM12
      DEF ERM11 
      ABS LM11
      DEF ERM10 
      ABS LM10
      DEF ERM9
      ABS LM9 
      DEF ERM8
      ABS LM8 
      DEF ERM7
      ABS LM7 
      DEF ERM6
      ABS LM6 
      DEF ERM5
      ABS LM5 
      DEF ERM4
      ABS LM4 
      DEF ERM3
      ABS LM3 
      DEF ERM2
      ABS LM2 
      DEF ERM1
      ABS LM1 
MS00  DEF ER0 
      ABS L0
      DEF ER1 
      ABS L1
      DEF ER2 
      ABS L2
      DEF ER3 
      ABS L3
      DEF ER4 
      ABS L4
      DEF ER5 
      ABS L5
      DEF ER6 
      ABS L6
      DEF ER7 
      ABS L7
      DEF ER8 
      ABS L8
      DEF ER9 
      ABS L9
      DEF ER10
      ABS L10 
      DEF ER11
      ABS L11 
      DEF ER12
      ABS L12 
      DEF ER13
      ABS L13 
      DEF ER14
      ABS L14 
      DEF ER15
      ABS L15 
      DEF ER16
      ABS L16 
      DEF ER17
      ABS L17 
      DEF ER18
      ABS L18 
      DEF ER19
      ABS L19 
      DEF ER20
      ABS L20 
      DEF ER21
      ABS L21 
      DEF ER22
      ABS L22 
      DEF ER23
      ABS L23 
      DEF ER38
      ABS L38 
      DEF UDN 
      ABS LUDN
      DEF UDN 
      ABS LUDN
      DEF ER41
      ABS L41 
      DEF ER42
      ABS L42 
      DEF ER43
      ABS L43 
      DEF ER44
      ABS L44 
      DEF ER45
      ABS L45 
      DEF ER46
      ABS L46 
      DEF ER47
      ABS L47 
      DEF ER48
      ABS L48 
      DEF ER49
      ABS L49 
      DEF ER50
      ABS L50 
      DEF ER51
      ABS L51 
      DEF ER52
      ABS L52 
      DEF ER53
      ABS L53 
      DEF ER54
      ABS L54 
      DEF ER55
      ABS L55 
      DEF ER56
      ABS L56 
      DEF ER57
      ABS L57 
      DEF ER58
      ABS L58 
      DEF ER59
      ABS L59 
      DEF ER60
      ABS L60 
      DEF ER61
      ABS L61 
      DEF ER62
      ABS L62 
      DEF ER63
      ABS L63 
      DEF ER64
      ABS L64 
      DEF ER65
      ABS L65 
      DEF ER66
      ABS L66 
      DEF ER67
      ABS L67 
      DEF ER68
      ABS L68 
      DEF ER69
      ABS L69 
      DEF ER70
      ABS L70 
      DEF ER71
      ABS L71 
      DEF ER72
      ABS L72 
      DEF ER73
      ABS L73 
      DEF ER74
      ABS L74 
      DEF ER75
      ABS L75 
      DEF ER76
      ABS L76 
      DEF ER77
      ABS L77 
      DEF ER78
      ABS L78 
      DEF ER79
      ABS L79 
      DEF ER101     EOF RECORD
      DEC -1
.0    NOP           END OF THE LIST 
*     ERROR TABLE -CODES ARE ENTERED IN ANY ORDER.
ER0   ASC  5, 000 BREAK 
L0    EQU *-ER0 
ERM1  ASC  8, -01 DISC ERROR
LM1   EQU *-ERM1
ERM2  ASC 12, -02 DUPLICATE FILE NAME 
LM2   EQU *-ERM2
ERM3  ASC 11, -03 BACKSPACE ILLEGAL 
LM3   EQU *-ERM3
ERM4  ASC 20, -04 RECORD SIZE OF TYPE 2 FILE IS 0 OR
      ASC  5,UNDEFINED
LM4   EQU *-ERM4
ERM5  ASC 13, -05 RECORD LENGTH ILLEGAL 
LM5   EQU *-ERM5
ERM6  ASC 10, -06 FILE NOT FOUND. 
LM6   EQU *-ERM6
ERM7  ASC 19, -07 BAD FILE SECURITY CODE OR ILLEGAL 
      ASC 10, WRITE ON LU 2 OR 3
LM7   EQU *-ERM7
ERM8  ASC 16, -08 FILE OPEN OR LOCK REJECTED
LM8   EQU *-ERM8
ERM9  ASC 19, -09 ATTEMPT TO USE APOSN OR FORCE TO
      ASC  8,1 A TYPE 0 FILE
LM9   EQU *-ERM9
ERM10 ASC 13, -10 NOT ENOUGH PARAMETERS 
LM10  EQU *-ERM10 
ERM11 ASC  9, -11 DCB NOT OPEN
LM11  EQU *-ERM11 
ERM12 ASC 11, -12 EOF OR SOF ERROR
LM12  EQU *-ERM12 
ERM13 ASC  8, -13 DISC LOCKED 
LM13  EQU *-ERM13 
ERM14 ASC 10, -14 DIRECTORY FULL
LM14  EQU *-ERM14 
ERM15 ASC  9, -15 ILLEGAL NAME
LM15  EQU *-ERM15 
ERM16 ASC 14, -16 ILLEGAL TYPE OR SIZE=0
LM16  EQU *-ERM16 
ERM17 ASC 19, -17 ILLEGAL READ/WRITE ON TYPE 0 FILE 
LM17  EQU *-ERM17 
ERM18 ASC  8, -18 ILLEGAL LU
LM18  EQU *-ERM18 
ERM19 ASC 17, -19 ILLEGAL ACCESS TO SYSTEM DISC 
LM19  EQU *-ERM19 
ERM20 ASC 11, -20 ILLEGAL ACCESS LU 
LM20  EQU *-ERM20 
ERM21 ASC 14, -21 ILLEGAL DESTINATION LU
LM21  EQU *-ERM21 
ERM22 ASC 14, -22 NO AVAILABLE SPOOL LU'S 
LM22  EQU *-ERM22 
ERM23 ASC 15, -23 NO AVAILABLE SPOOL FILES
LM23  EQU *-ERM23 
ERM24 ASC 14, -24 NO MORE BATCH SWITCHES
LM24  EQU *-ERM24 
ERM25 ASC 10, -25 NO SPLCON ROOM
LM25  EQU *-ERM25 
ERM26 ASC 23, -26 QUEUE FULL OR MAX PENDING SPOOLS EXCEEDED 
LM26  EQU *-ERM26 
ERM30 ASC 17, -30 VALUE TOO LARGE FOR PARAMETER.
LM30  EQU *-ERM30 
ERM32 ASC 15, -32 DISC CARTRIDGE NOT FOUND
LM32  EQU *-ERM32 
ERM33 ASC 19, -33 NOT ENOUGH ROOM ON DISC CARTRIDGE 
LM33  EQU *-ERM33 
ERM34 ASC 13, -34 DISC ALREADY MOUNTED
LM34  EQU *-ERM34 
ERM35 ASC 12, -35 MORE THAN 63 DISCS
LM35  EQU *-ERM35 
ERM36 ASC 13, -36 LOCK ERROR ON DEVICE
LM36  EQU *-ERM36 
ERM38 ASC 16, -38 ILLEGAL SCRATCH FILE NUMBER 
LM38  EQU *-ERM38 
ERM39 ASC 22, -39 SPOOL LU NOT MAPPED TO THE SPOOL DRIVER 
LM39  EQU *-ERM39 
ERM40 ASC 12, -40 LU NOT FOUND IN SST 
LM40  EQU *-ERM40 
ERM41 ASC 10, -41 NO ROOM IN SST
LM41  EQU *-ERM41 
ERM46 ASC 15, -46 GREATER THAN 255 EXTENTS
LM46  EQU *-ERM46 
ERM47 ASC 22, -47 NO AVAILABLE SESSION LU FOR SPOOL FILE
LM47  EQU *-ERM47 
ERM48 ASC 17, -48 SPOOL NOT INITIALIZED OR SMP
      ASC 10,CANNOT BE SCHEDULED
LM48  EQU *-ERM48 
ERM49 ASC 12, -49 COPY VERIFY FAILED
LM49  EQU *-ERM49 
      SPC 1 
EM101 ASC 18,-101 ILLEGAL PARAMETER IN D.RTR CALL 
L101  EQU *-EM101 
EM102 ASC 16,-102 ILLEGAL D.RTR CALL SEQUENCE 
L102  EQU *-EM102 
ERM99 ASC 22, -99 DIRECTORY MANAGER EXEC REQUEST ABORTED
LM99  EQU *-ERM99 
ER1   ASC 14, 001 DISC ERROR-LU REPORTED
L1    EQU *-ER1 
ER2   ASC 11, 002 INITIALIZE LU 2!
L2    EQU *-ER2 
ER3   ASC 11, 003 INITIALIZE LU 3!
L3    EQU *-ER3 
ER4   ASC 18, 004 ILLEGAL RESPONSE TO 002 OR 003
L4    EQU *-ER4 
ER5   ASC 18, 005 REQUIRED TRACK NOT AVAILABLE -
      ASC 15,RELATIVE TAT POSITION REPORTED 
L5    EQU *-ER5 
ER6   ASC 10, 006 FMGR SUSPENDED
L6    EQU *-ER6 
ER7   ASC 10, 007 CHECKSUM ERROR
L7    EQU *-ER7 
ER8   ASC 11, 008 D.RTR NOT LOADED
L8    EQU *-ER8 
ER9   ASC 13, 009 ID-SEGMENT NOT FOUND
L9    EQU *-ER9 
ER10  ASC  8, 010 INPUT ERROR 
L10   EQU *-ER10
ER11  ASC 18, 011 DO OF,XXXXX,8 ON NAMED PROGRAMS 
L11   EQU *-ER11
ER12  ASC 16, 012 DUPLICATE DISC LABEL OR LU
L12   EQU *-ER12
ER13  ASC 11, 013 TR STACK OVERFLOW 
L13   EQU *-ER13
ER14  ASC 20, 014 REQUIRED ID-SEGMENT OR ID-EXTENSION 
      ASC  5, NOT FOUND 
L14   EQU *-ER14
ER15  ASC 10, 015 LS TRACK REPORT 
L15   EQU *-ER15
ER16  ASC 19, 016 INSUFFICIENT SYSTEM TRACKS FOR RP 
L16   EQU *-ER16
ER17  ASC 16, 017 ID SEGMENT NOT SET UP BY RP 
L17   EQU *-ER17
ER18  ASC 12, 018 PROGRAM NOT DORMANT 
L18   EQU *-ER18
ER19  ASC 19, 019 FILE NOT SET UP BY SP ON CURRENT
      ASC  3,SYSTEM 
L19   EQU *-ER19
ER20  ASC 11, 020 ILLEGAL TYPE 0 LU 
L20   EQU *-ER20
ER21  ASC 14, 021 ILLEGAL DISC SPECIFIED
L21   EQU *-ER21
ER22  ASC 10, 022 COPY TERMINATED 
L22   EQU *-ER22
ER23  ASC 14, 023 DUPLICATE PROGRAM NAME. 
L23   EQU *-ER23
      SPC 2 
ER38  ASC 18, 038 ATTEMPT TO REMOVE ACTIVE TYPE 6 
      ASC  3, FILE
L38   EQU *-ER38
ER41  ASC 16, 041 PROGRAM CANNOT BE A SEGMENT 
L41   EQU *-ER41
ER42  ASC 13, 042 LU CANNOT BE SWITCHED 
L42   EQU *-ER42
ER43  ASC 12, 043 LU NOT FOUND IN SST 
L43   EQU *-ER43
ER44  ASC 12, 044 NO MESSAGES WAITING 
L44   EQU *-ER44
ER45  ASC 13, 045 SESSION COMMAND ONLY
L45   EQU *-ER45
ER46  ASC 14, 046 INSUFFICIENT CAPABILITY 
L46   EQU *-ER46
ER47  ASC 12, 047 SPOOL SETUP FAILED
L47   EQU *-ER47
ER48  ASC 14, 048 GLOBAL SET OUT OF RANGE 
L48   EQU *-ER48
ER49  ASC 20, 049 CAN'T RUN RP'ED PROG. OR PARTITION
      ASC  5,TOO SMALL
L49   EQU *-ER49
ER50  ASC 13, 050 NOT ENOUGH PARAMETERS 
L50   EQU *-ER50
ER51  ASC 17, 051 ILLEGAL MASTER SECURITY CODE
L51   EQU *-ER51
ER52  ASC  8, 052 ILLEGAL LU. 
L52   EQU *-ER52
ER53  ASC 14, 053 ILLEGAL LABEL OR ILABEL 
L53   EQU *-ER53
ER54  ASC 11, 054 DISC NOT MOUNTED
L54   EQU *-ER54
ER55  ASC 11, 055 MISSING PARAMETER 
L55   EQU *-ER55
ER56  ASC  9, 056 BAD PARAMETER 
L56   EQU *-ER56
ER57  ASC 16, 057 BAD TRACK NOT IN FILE AREA
L57   EQU *-ER57
ER58  ASC 16, 058 LG AREA EMPTY OR TOO SMALL! 
L58   EQU *-ER58
ER59  ASC 16, 059 REPORTED TRACK UNAVAILABLE
L59   EQU *-ER59
ER60  ASC 19, 060 DO YOU REALLY WANT TO PURGE THIS
      ASC  9,DISC? (YES OR NO). 
L60   EQU *-ER60
ER61  ASC 18, 061 DO A "DC" AND A "MC" ON THIS CR 
L61   EQU *-ER61
ER62  ASC 12, 062 MORE THEN 63 DISCS
L62   EQU *-ER62
ER63  ASC 17, 063 EXCEEDING SESSION DISC LIMIT
L63   EQU *-ER63
ER64  ASC 19, 064 NO DISCS AVAILABLE FROM DISC POOL 
L64   EQU *-ER64
ER65  ASC 16, 065 CONFLICT IN SST DEFINITION
L65   EQU *-ER65
ER66  ASC 10, 066 NO ROOM IN SST
L66   EQU *-ER66
ER67  ASC 11, 067 PROGRAM NOT FOUND 
L67   EQU *-ER67
ER68  ASC 18, 068 LU NOT IN VARIABLE PART OF SST
L68   EQU *-ER68
ER69  ASC 11, 069 JOB LOGON FAILED
L69   EQU *-ER69
ER70  ASC 17, 070 SECTORS/TRACK VALUE TOO LARGE 
L70   EQU *-ER70
ER71  ASC 19, 071 DO "EX,SP" TO SAVE OR "EX,RP" TO
      ASC 13,RELEASE PRIVATE CARTRIDGES 
L71   EQU *-ER71
ER72  ASC 12, 072 LU NOT INTERACTIVE
L72   EQU *-ER72
ER73  ASC 11, 073 ACCOUNT NOT FOUND 
L73   EQU *-ER73
ER74  ASC 12, 074 JO COMMAND EXPECTED 
L74   EQU *-ER74
ER75  ASC 15, 075 CAN'T RESTORE TYPE 6 PGM
      ASC  8,(USER PROTECTED) 
L75   EQU *-ER75
ER76  ASC 15, 076 CAN'T RESTORE TYPE 6 PGM
      ASC  9,(GROUP PROTECTED)
L76   EQU *-ER76
ER77  ASC 15, 077 CAN'T RESTORE TYPE 6 PGM
      ASC 13,(INSUFFICIENT CAPABILITY)
L77   EQU *-ER77
ER78  ASC 15, 078 CAN'T RESTORE TYPE 6 PGM
      ASC 8,(INTERNAL ERROR)
L78   EQU *-ER78
ER79  ASC 20, 079 WARNING - RECORDS TRUNCATED TO 128
      ASC  3,WORDS
L79   EQU *-ER79
      SPC 2 
HEAD  ASC  9, FMGR ERROR CODES
LHEAD EQU *-HEAD
HD2   ASC  9, ERROR     MEANING 
LHD2  EQU *-HD2 
BLNK  ASC  1, 
LBLNK EQU *-BLNK
      ORG *         PROGRAM LENGTH
      END 
                                                                                                                                                                                                                                                            