ICL9LPEHMTM MODULE
 
*    MUST BE COMPILED WITH PLT = XNB
 
 
&LWVDT EQU X'30000000'
&NUMOFTEXTS AWORD
 
 DATA
NUMROWMARK W
MESS1000 W 1000
MESS1001 W 1001
MESS1002 W 1002
MESS1003 W 1003
MESS1004 W 1004
MESS1005 W 1005
MESS1006 W 1006
MESS1007 W 1007
MESS1008 W 1008
MESS1009 W 1009
MESS1010 W 1010
MESS1011 W 1011
MESS1012 W 1012
MESS1013 W 1013
MESS1014 W 1014
MESS1015 W 1015
MESS1016 W 1016
MESS1017 W 1017
MESS1018 W 1018
MESS1019 W 1019
MESS1060 W 1060
MESS1061 W 1061
MESS1062 W 1062
MESS1063 W 1063
MESS1064 W 1064
MESS1065 W 1065
MESS1066 W 1066
MESS1067 W 1067
MESS1068 W 1068
MESS1100 W 1100
MESS1200 W 1200
MESS1300 W 1300
MESS1301 W 1301
MESS1302 W 1302
MESS1303 W 1303
MESS1304 W 1304
MESS1305 W 1305
MESS1400 W 1400
MESS1401 W 1401
MESS1402 W 1402
MESS1403 W 1403
MESS1404 W 1404
MESS1405 W 1405
MESS1406 W 1406
MESS1407 W 1407
MESS1408 W 1408
MESS1409 W 1409
MESS1410 W 1410
MESS1411 W 1411
MESS1412 W 1412
MESS1413 W 1413
MESS1414 W 1414
MESS1415 W 1415
MESS1416 W 1416
MESS1500 W 1500
 
 SET &NUMOFTEXTS,((&'D - 4) SR 2)
 
TEXTSMARK W
TEXT1000 B C'INTERRUPT ERROR:'                             
TEXT1001 B C' ERROR:'                                      
TEXT1002 B C'LIBRARY ERROR:'                               
TEXT1003 B C',GROUP'                                       
TEXT1004 B C'DESCRIPTION:'                                 
TEXT1005 B C'LOCATION:'                                    
TEXT1006 B C'LINE'                                         
TEXT1007 B C'BYTE DISPLACEMENT'                            
TEXT1008 B C'          IN'                                 
TEXT1009 B C'PROCEDURE'                                    
TEXT1010 B C'FUNCTION'                                     
TEXT1011 B C'          OF'                                 
TEXT1012 B C'PROGRAM'                                      
TEXT1013 B C'COMPILED ON'                                  
TEXT1014 B C'AT'                                           
TEXT1015 B C'PASCAL'                                       
TEXT1016 B C'MODULE'                                       
TEXT1017 B C'MAIN PROGRAM BLOCK'                           
TEXT1018 B C'CODE AREA'                                    
TEXT1019 B C'PASCAL SUPPORT SOFTWARE ERROR:'               
TEXT1060 B C'FAILURE DURING PASCAL COMPILATION'            
TEXT1061 B C'CONTINGENCY TYPE'                             
TEXT1062 B C'SUBTYPE'                                      
TEXT1063 B C'PASCAL SUPPORT SOFTWARE ERROR'                
TEXT1064 B C'PASCAL ERROR'                                 
TEXT1065 B C'MODULE'                                       
TEXT1066 B C'IIN'                                          
TEXT1067 B C'BYTE OFFSET'                                  
TEXT1068 B C'ACTIVE PROCEDURES :'                          
TEXT1100 B C'VALUE OUT OF RANGE OF ORDINAL TYPE'           
TEXT1200 B C'NO LABEL FOR VALUE OF "CASE" STATEMENT SELECT'
- C'OR EXPRESSION'
TEXT1300 B C'"NEW" - INVALID OR CORRUPT CALL'              
TEXT1301 B C'"NEW" - NOT ENOUGH SPACE ON HEAP'             
TEXT1302 B C'"DISPOSE" - INVALID POINTER VALUE'            
TEXT1303 B C'"DISPOSE" - INCORRECT POINTER AND/OR VARIANT '
- C'VALUES'
TEXT1304 B C'"DISPOSE" - INCORRECT POINTER VALUE OR HEAP C'
- C'ORRUPT'
TEXT1305 B C'"DISPOSE" - INCORRECT POINTER VALUE OR HEAP C'
- C'ORRUPT'
TEXT1400 B C'FILE NOT ASSIGNED OR ASSIGNED WITH INCORRECT '
- C'ACCESS'
TEXT1401 B C'"RESET"/"REWRITE" NOT ALLOWED ON STANDARD FIL'
- C'ES "INPUT"/"OUTPUT"'
TEXT1402 B C'COMPONENT ELEMENTS OF NON-TEXT FILE ARE LARGE'
- C'R THAN FILE DESCRIPTION ALLOWS'
TEXT1403 B C'"RESET"/"GET"(NON-TEXT) - ELEMENT OF INCORREC'
- C'T SIZE'
TEXT1404 B C'"PUT" (NON-TEXT) - FILE IS FULL'              
TEXT1405 B C'ATTEMPT TO INPUT WHEN FILE NOT OPEN FOR INPUT'
TEXT1406 B C'ATTEMPT TO INPUT WHEN "EOF" IS TRUE'          
TEXT1407 B C'ATTEMPT TO OUTPUT WHEN FILE NOT OPEN FOR OUTP'
- C'UT'
TEXT1408 B C'FIELD WIDTH NON-POSITIVE FOR CHARACTER "WRITE'
- C'"'
TEXT1409 B C'FIELD WIDTH NON-POSITIVE FOR STRING "WRITE"'  
TEXT1410 B C'FIELD WIDTH NON-POSITIVE FOR INTEGER "WRITE"' 
TEXT1411 B C'"EOF" ENCOUNTERED DURING INTEGER "READ"'      
TEXT1412 B C'INVALID CHARACTER FOR FIRST DIGIT OF INTEGER '
- C'"READ"'
TEXT1413 B C'"READ(LN)" - INTEGER VALUE OUT OF RANGE'      
TEXT1414 B C'INVALID CHARACTER ENCOUNTERED DURING REAL "RE'
- C'AD"'
TEXT1415 B C'"READ(LN)" - REAL VALUE OUT OF RANGE'         
TEXT1416 B C'"WRITE(LN)"/"PUT" (TEXT) - FILE IS FULL'      
TEXT1500 B C'PASCAL SYSTEM FAILURE - INVALID SUPPORT CALL' 
 
 CHAPTER
ICL9LPEHMTM PROC
 PARAMS
MESSNO W
 LOCAL
INDEX W
 CODE
 
 LD D'NUMROWMARK
 INCA 4
 LDB &NUMOFTEXTS
 
 LB 0
LOOP
 LSS.MD
 ICP MESSNO
 JE FOUND
 CPIB (&NUMOFTEXTS - 1)
 JL LOOP
 
 LSD -1
 EXIT
FOUND
 STB INDEX
 STXN.B
 ADB ((P'TEXTSMARK SL 2) + 8)
 LDA.B
 LDTB (&LWVDT + &NUMOFTEXTS)
 
 LSD.D INDEX
 EXIT
 END