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