7 22?Q ...#SEG CHINERR867 4 22KH ...# 16 22PD ...# COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 22T* ...# 7 22_= #LIS K0CHINERR 7 23DW 8HCHINERR 4 23YG # 4 24D6 # 12 24XQ SEGENTRY K1CHINERR,QK1CHINERR 12 25CB SEGENTRY K2CHINERR,QK2CHINERR 12 25X2 SEGENTRY K3CHINERR,QK3CHINERR 12 26BL SEGENTRY K4CHINERR,QK4CHINERR 12 26W= SEGENTRY K5CHINERR,QK5CHINERR 12 278M ... SEGENTRY K7CHINERR,QK7CHINERR 16 279G ... SEGENTRY K8CHINERR,QK8CHINERR [REDUNDANT 16 27=* ... SEGENTRY K9CHINERR,QK9CHINERR [REDUNDANT 16 27?8 ... SEGENTRY K10CHINERR,QK10CHINERR [REDUNDANT 16 27#3 ... SEGENTRY K11CHINERR,QK11CHINERR [REDUNDANT 16 27#W ... SEGENTRY K12CHINERR,QK12CHINERR [REDUNDANT 4 27*W # 4 27TG # 4 28SQ # 15 29#B # TABLE FOR SORTING OUT OPEN ERRORS 21 29S2 # EACH ENTRY IS 3 WORDS,(1) MASK FOR ERROR MARKER IN EMARK 20 2=?L # (2) MESS ) TO BE USED IF ERROR 20 2=R= # (3) REPLY) MARKER(1) IS PRESENT 14 2?=W # TABLE HAS A ZERO TERMINATOR 4 2?QG # 16 2#=6 TAB +ANONL,+0,+6 [UNIT NOT ONLINE 16 2#PQ +ARITE,+0,#440:0 [WRITE FAIL ETC 15 2*9B +AINUSE,+2,+1 [NAME IN USE 16 2*P2 +ANOROOM,+2,+0 [NO ROOM (CREATE) 16 2B8L +ANFOUND,+1,+1 [FILE NOT FOUND 15 2BN= +AFAIL,+0,#440:0 [READ FAIL 15 2C7W +0 [TERMINATOR 4 2CMG # 4 2D76 # 21 2DLQ # TABLE OF COMMAND ERRORS,ACCESSED USING MESS AS MODIFIER 13 2F6B # (APPLIES TO OPEN ONLY) 4 2FL2 # 20 2G5L TCER +EWNOTFX [NOT FOUND :MESS=0 20 2GK= +EWNOTFX [NOT FOUND :MESS=1 20 2H4W -1 [NOT APPLICABLE TO OPEN :MESS=2 20 2HJG +EWNOTRX [NOT SUFFICIENTLY TRUSTED:MESS=3 20 2J46 +EWLOCKX [S-TRUSTED LOCKOUT :MESS=4 20 2JHQ +EWGEOX [OPEN TO GEORGE :MESS=5 20 2K3B +EWRPX [RP NOT EXPIRED :MESS=6 9 2KH2 +EWTWITX 20 2L_W +ENTIN27 [NO S-TRUSTEDS ON SHARED SPINDLES 19 2MFG +ENTIN29 [INTEGRITY DUE TO IPB FAIL 18 2N6# ... +EWTRAPSX [EXOFILE - TRAPS CLOSED 20 2N=P ... +EWRARE [EXOFILE ENTRY Z DOES NOT EXIST 18 2N#8 ... +EWEXIS [EXOFILE Z ALREADY EXISTS 19 2N*M ... +EWCDOP [EXOFILE Z CANNOT BE OPENED 9 2NCY ...TEWINTEG +EWINTEG 4 2NDQ # 4 2NYB # 19 2PD2 # TABLE OF MESSAGES FOR PERI CASE,ACCESSED AS ABOVE 4 2PXL # 4 2QC= TMES 20 2QWW -1 [NOT APPLICABLE :MESS=0 20 2RBG +EWNOTF [NOT FOUND :MESS=1 20 2RW6 +EWCR [NOT CREATED :MESS=2 20 2S*Q +EWNOTR [NOT SUFFICIENTLY TRUSTED:MESS=3 20 2STB +EWLOCK [S-TRUSTED LOCKOUT :MESS=4 20 2T*2 +EWGEO [OPEN TO GEORGE :MESS=5 20 2TSL +EWRP [RP NOT EXPIRED :MESS=6 9 2W#= +EWTWIT 9 2XR6 +ENTIN26 9 2Y=Q +ENTIN28 15 2YXJ ... +EWTRAPS [TRAPS CLOSED 20 2_3_ ... +EWRARITY [EXOFILE ENTRY Z DOES NOT EXIST 18 2_5D ... +EWEXIST [EXOFILE Z ALREADY EXISTS 19 2_6X ... +EWCDOPP [EXOFILE Z CANNOT BE OPENED 17 2_98 ... +EWINTEGX [EXOFILE Z IS IN USE 4 2_9= ...# 5 2_9# ...XUNLOCK 8 2_9B ... SBX 7 FX1 7 2_9D ... UNLOCKSU 1 10 2_9G ... MHUNTW 3,EWDAS,GEXD 8 2_9J ... ADX 7 FX1 7 2_9L ... EXIT 7 0 4 2_9N ...# 4 2_=2 # 20 2_=J ...# THIS SUBROUTINE IS CALLED WHEN THERE HAS BEEN AN ITEGRITY CODE 20 2_?6 ...# CHECK FAILURE AND DEALS WITH SUPPRESION OF THE WAIT FOR A FILE 18 2_?N ...# TO BE AVAILABLE IF THE COMMAND INCLUDED 'REPLY' OR THE 12 2_#= ...# OPEN MODE INCLUDED MODE #4000 4 2_#S ...# 6 2_*B ...SCHECKWAIT 10 2_*Y ... MHUNTW 2,EWDAS,GEXD 20 2_BG ... LDXC 0 GIVEX(2) [SEPARATE ACTION FOR COMMANDS AND 20 2_C4 ... BCC SPERI [OPEN MODE PERI - JIF PERI CASE 4 2_CL ...# 19 2_D8 ... MHUNTW 2,EWDAS,EXOF [FIND /EXOF IN ACTIVITY CHAIN 9 2_DQ ... LDX 0 EXMARK(2) 21 2_F# ... ANDN 0 BREPQUAL [CHECK IF REPLY QUALIFIER SPECIFIED 20 2_FW ... BZE 0 (7) [JIF TO WAIT IF NOT REPLY CASE 4 2_GD ...# 5 2_H2 ...ZNOWAIT 20 2_HJ ... LDN 7 2 [OBJECT PROGRAM REPLY AND MESSAGE 17 2_J6 ... LDN 6 TEWINTEG-TCER [CODES FOR THIS ERROR 19 2_JN ... BRN ZERROR [AND JOIN STANDARD ERROR PATH 4 2_K= ...# 5 2_KS ...SPERI 19 2_LB ... FPCACA 2,FX2 [FIND THE APET FROM THE CPAT 20 2_LY ... LDX 0 EVENT4(2) [AND CHECK THE ORIGINAL MODE WORD 16 2_MG ... ANDN 0 #4000 [FROM THE PROGRAM 20 2_N4 ... BNZ 0 ZNOWAIT [CAUSE EVENT IF MODE #4000 GIVEN 17 2_NL ... EXIT 7 0 [ELSE GO BACK TO WAIT 4 2_PL # 4 329= # 4 32NW # 21 338G # ZOPEN - ERROR REPORTED BY EXOPEN.MARKER FOR ERROR IS 18 33N6 # IN EMARK OF GEXD (SEE TAB).UNIT IS RELEASED. 4 347Q # 6 34MB QK1CHINERR 5 3572 ZOPEN 21 35LL EXMESS ALL [OUTPUT MESSAGES,INCLUDING SUPPRESSED 10 366= MHUNTW 3,EWDAS,GEXD 9 36KW LDN 0 ABREAK 9 375G ANDX 0 EMARK(3) 15 37K6 BNZ 0 ZERB [J IF BREAKIN 9 37P* ... LDN 0 APLINKF 9 37QQ ... ANDX 0 EMARK(3) 19 37S7 ... BZE 0 RNY [J IF NOT PROCESSOR LINK FAIL 10 37TJ ... MHUNTW 2,EWDAS,EXOF 21 37W_ ... LDN 4 0 [MKR TO DISTIGUISH WAITING FOR FILE 20 37YB ... BRN ZIFX [GO TO WAIT FOR IPB OR DEDICATE 4 37_R ...RNY 15 384Q ADN 1 TAB [SEARCH TABLE 8 38JB RNX LDX 0 0(1) 18 3942 BNZ 0 ROK [J UNLESS END OF TABLE 20 39HL GEOERR 1,SDEXREP [IF ERROR CODE IN EMARK UNKNOWN 9 3=3= ROK ANDX 0 EMARK(3) 19 3=GW BNZ 0 RFND [J IF THIS ERROR CODE PRESENT 18 3?2G ADN 1 3 [ELSE GO TO LOOK FOR NEXT 8 3?G6 BRN RNX 20 3?_Q RFND LDX 6 1(1) [PICK UP MESS AND REPLY VALUES 16 3#FB LDX 7 2(1) [FOR THIS ERROR 19 3#_2 BRN XCM [GO TO GENERAL ERROR ROUTINE 4 3*DL # 4 3*Y= # 21 3BCW # ZFAIL - TRANSFER FAIL ON REWRITING FI&P.EXOF CONTAINS 20 3BXG # NEW GENERATION NUMBER,UNIT IS LOCKED,EXOF HAS BEEN 19 3CC6 # CHAINED INTO CCB CHAIN,SO MAY HAVE TO BE FREED. 4 3CWQ # 6 3DBB QK2CHINERR 5 3DW2 ZFAIL 7 3F*L LDX 3 5 9 3FT= TESTMOVE 6,MFLE 18 3G#W MHUNTW 3,EWDAS,EXOF [FIND EXOF IF NECESSARY 18 3GSG MFLE MFINDEXOF 1,4 [FIND EXOF IN CCB CHAIN 9 3J?B LDX 0 COPEN(1) 18 3JR2 LDN 6 0 [SET FAIL REPLY AND MESS 8 3K=L LDCT 7 #440 18 3KQ= BNZ 0 ZERROR [J IF FILE ALREADY OPEN 16 3L9W FREECORE 1 [ELSE FREE EXOF 4 3LPG # 4 3M96 # 21 3MNQ # ZERROR - GENERAL ENTRY FOR A FAILED CHECK.MESS AND 17 3N8B # REPLY CODES ARE IN X6,X7.UNIT IS LOCKED. 4 3NN2 # 6 3P7L QK3CHINERR 5 3PM= ZERROR 10 3Q6W MHUNTW 2,EWDAS,EXOF 9 3QLG LDX 5 ASUSN(2) 18 3R66 UNLOCKSU 5 [UNLOCK AND RELEASE UNIT 7 3RKQ RELST 5 17 3SCN ... EXMESS ALL [OUTPUT ANY MESSAGES 10 3SK2 MHUNTW 3,EWDAS,GEXD 4 3T4L # 12 3TJ= # COMMON ERROR ROUTINE 4 3W3W # 4 3WHG XCM 9 3X36 LDX 0 GIVEX(3) 16 3XGQ BPZ 0 PER [J IF PERI,ELSE 17 3XMD ... LDX 5 6 [GET MESS MODIFIER 19 3XP2 ... SBN 5 12 [IS MESS VALUE=12 IE EWINS 14 3XQJ ... BNZ 5 NEWINS [J IF NOT 19 3XS6 ... CALL 5 PFILE [PUTS (CSN,FILEN(FGN)) AS %A 10 3XTN ... MHUNTW 3,EWDAS,GEXD 19 3XX= ...NEWINS [AND DOESNT INCLUDE REVGEN 14 3Y2B LDX 4 EOPMODE(3) [COMMAND, 8 3YG2 SBN 4 #1200 15 3Y_L FREECORE 3 [FREE BLOCKS 10 3_F= MFREE EWDAS,EXOF 15 3_YW BNZ 4 ZOP [J IF OPEN 21 42DG COMERR EWCRX [COMERR NOT CREATED IF CREATE MODE 7 42Y6 ZOP SMO 6 21 43CQ LDX 5 TCER(1) [IF OPEN,GET COMERR FROM TABLE USING 21 43XB COMERRX 5 [MESS AS MODIFIER,AND REPORT ERROR 14 44C2 [ PERI CASE, 21 44WL PER BZE 6 TNOM [JUMP IF NO MESSAGE REQUIRED (MESS=0) 8 45B= CALL 5 PFILE 7 45TW SMO 6 19 46*G LDX 5 TMES(1) [PICK UP MESSAGE IDENTIFIER 17 46T6 MONOUTX 5 [AND OUTPUT MESSAGE 10 47#Q TNOM MHUNTW 3,EWDAS,GEXD 9 47SB LDX 4 EXCHNL(3) 15 48#2 LDX 5 CNR(3) [C.A ADDRESS 7 48RL FREECORE 3 15 49?= MFREE EWDAS,EXOF [FREE BLOCKS 17 49QW BPZ 7 NFL [FORM PERIPHERAL NAME 7 4==G ...XPAR LDCT 6 6 17 4=Q6 ... ADX 6 4 [DEVICE AND CHANNEL 16 4?9Q ... OUTPACK 6,1,PERINAME,XPAR [*DA FAIL MESSAGE 15 4F5= NFL ADN 5 1 [REPLY WORD 16 4FJW GETWORD 5,5,WRITE [OBTAIN ADDRESS 9 4G4G TESTREPNOT OK,RV 14 4GJ6 LDCT 6 #400 [SET B0=1 17 4H3Q ORX 6 7 [X6 CONTAINS REPLY 7 4HHB SMO 5 15 4J32 STO 6 0 [SET REPLY 7 4JGL WORDFIN 15 4QTQ BNG 7 XIL [J IF FAIL 17 4R*B RUNPROG [ELSE RESTART PROGRAM 14 4RT2 XIL ILLEGAL PERFAIL [IF FAIL 4 4S#L [ 16 4SS= RV GEOERR 1,SDERV [RV ON REPLY WORD 4 4T?W # 4 4TRG # 4 4W?6 # 4 4WQQ # 4 4X=B # 4 4XQ2 # 21 4Y9L # ZINTEG - INTEGRITY CODE FAILURE.X1 POINTS TO EXOF IN 13 4YP= # CCB CHAIN.UNIT IS LOCKED 4 4_8W # 4 4_NG # 6 5286 QK4CHINERR 18 52MQ MFINDEXOF 1,7 [FIND EXOF IN CCB CHAIN 9 537B LDCH 5 FIP+5(1) 7 53M2 SRL 5 4 7 546L SBN 5 2 8 54L= FPCACA 2,FX2 10 555W ZNX LDX 2 ACTRING(2) 9 55KG SBN 2 ACTRING 9 5656 LDCH 0 ATYPE(2) 9 56JQ SBN 0 AOLPT/64 8 574B BNZ 0 ZOK 9 57J2 LDX 0 ATMARK(2) 7 583L SBN 0 1 8 58H= BNZ 0 ZNX 9 592W TXU 7 EXNUM(2) 8 59GG BCS ZNX 8 5=26 BNG 5 ZFL 9 5=FQ LDX 0 EXMODE(2) 8 5=_B SBN 0 #200 8 5?F2 BNZ 0 ZFL 8 5?YL BZE 5 ZNX 8 5#D= BZE 6 ZNX 7 5#XW ZFL LDN 6 7 7 5*CG LDN 7 2 9 5*X6 BRN ZERROR 4 5BBQ ZOK 21 5BHY ... CALL 7 SCHECKWAIT [CHECK IF TO WAIT - ONLY RETURNS IF 16 5BP6 ...# [WAIT IS REQUIRED 19 5BWB MHUNTW 2,EWDAS,EXOF [AND ONE IN ACTIVITY CHAIN 5 5CB2 ZINTEG 8 5CTL LDCT 0 #40 21 5D*= ORS 0 EXMARK(1) [SET WAITING MARKER IN EXOF IN CCB CH 4 5DSW ZIF 19 5F4M ... LDN 4 1 [MKR: WAITING FOR FILE CASE 16 5F7= ...ZIFX [IPB FAIL ENTRY 9 5F#G STOZ BACK2(2) 9 5FS6 STOZ COPEN(2) 16 5G?Q LDN 0 #7777 [RESET OUR EXOF 9 5GRB ANDS 0 EXMARK(2) 16 5H?2 LDX 7 ASUSN(2) [SAVE SERIAL NR 16 5HKB ... BZE 4 XTWT [J IF IPB FAIL 18 5HXS ... LONGSET EDFDCLS,XCLNG [SET WAITING STYLE 15 5J== UNLOCKSU 7 [UNLOCK AND 15 5JPW RELST 7 [RELEASE UNIT 17 5K9G EXMESS [PUT OUT ANY MESSAGES 19 5KP6 CALL 5 PFILE [OUTPUT FILENAME PARAMETER 21 5P6G LONGSTOP ZERB,,EWFIW [PUT OUT WAITING...AND WAIT FOR CLOSU 18 5PL6 OUTPARAM 5,FIP+5,EWDAS,EXOF [OUTPUT PARAMETER AGAIN 19 5Q5Q MONOUT EWFIF [AND NOW AVAILABLE MESSAGE 15 5QKB ACROSS EXOPEN,2 [OPEN FILE 4 5R52 # 18 5RJL XCLNG GEOERR 1,SDCLANG [CLONG FIELDS NOT CLEAR 4 5S4= # 6 5TH6 QK5CHINERR 4 5TM3 ...# 20 5TQY ... CALL 7 SCHECKWAIT [CHECK IF WE ARE TO WAIT FOR FILE 20 5TWT ...# [ROUTINE RETURNS IF WAIT REQUIRED 10 5W2Q MHUNTW 2,EWDAS,EXOF 8 5WGB BRN ZIF 15 5WW5 ...# NOW WAIT FOR IPB OR UNIT TO BE DEDICATED 4 5X22 ...# 19 5X5X ...XTWT TWAIT 7,ZERB [WAIT BUT TO ZERB IF BREAKIN 9 5X9S ... ACROSS EXOPEN,2 4 5XFL # 12 5X_= # ZERB - BREAKIN 4 5YDW # 4 5YYG ZERB 10 5_D6 MFREE EWDAS,EXOF 15 5_XQ MHUNTW 1,EWDAS,GEXD [FREE BLOCKS 9 62CB LDX 3 GIVEX(1) 7 62X2 FREECORE 1 15 63BL BPZ 3 ZBP [J IF PERI 18 63W= COMBRKIN [REPORT COMMAND BREAKIN 4 64*W [ 17 64TG ZBP STEPBACK [STEP BACK PROGRAM 18 65*6 PROGBRKIN [REPORT PROGRAM BREAKIN 4 65SQ # 4 66#B # 4 66S2 # 19 67?L # SUBROUTINE PFILE - OUTPUTS FILENAME PARAMETER 9 67R= # LINK=X5 16 68=W # USES ALL ACCUMULATORS EXCEPT X6,X7 13 68QG # ON EXIT,X1=FX1,X2=FX2, 16 69=6 # X5 CONTAINS CHARACTER COUNT 21 69PQ # PARAMETER IS ASSEMBLED STARTING AT FIP+5 OF EXOF BLOCK; 21 6=9B # ALL WORDS FROM FIP+5-FIP+14 ARE OVERWRITTEN,OTHER WORDS 11 6=P2 # ARE UNCHANGED. 21 6?8L # PARAMETER FORMAT:- (CSN,FILENAME(GEN)) ;IF BUNIT IS NOT 21 6?N= # SET CSN AND COMMA AND OUTER BRACKETS ARE OMITTED.CSN IS 20 6#7W # 6 OCTALS.FILENAME HAS TRAILING SPACES REMOVED.GEN IS 21 6#MG # DECIMAL,LEADING ZEROS OMITTED.IF BHIGH IS SET,GEN AND ITS 20 6*76 # BRACKETS ARE OMITTED.IF BANY IS SET,GEN IS (4096). 4 6*LQ # 18 6B6B PANY 4H4096 [GENERATION NR FOR BANY 18 6BL2 PTTH +10000 [DIVISOR FOR CONVERSION 4 6C5L # 4 6CK= # 5 6D4W PFILE 10 6DJG MHUNTW 3,EWDAS,EXOF 16 6F46 SBX 5 FX1 [RELATIVISE LINK 14 6FHQ STO 5 FIP+14(3) [AND SAVE 20 6G3B LDN 2 FIP+5(3) [POINTER FOR PLACING CHARACTERS 9 6GH2 LDX 0 EXMARK(3) 8 6H2L ANDN 0 BSERL 19 6HG= BZE 0 PNS [J IF SERIAL NR NOT SPECIFIED 8 6H_W LDN 0 #30 13 6JFG DCH 0 0(2) [ ( 7 6J_6 BCHX 2 / 7 6KDQ LDN 4 6 9 6KYB LDX 0 ASUSN(3) 7 6LD2 SLL 0 3 7 6LXL PSER SLC 0 6 20 6MC= DCH 0 0(2) [CONVERT SERIAL NR TO 6 OCTITS 7 6MWW BCHX 2 / 7 6NBG SRL 0 3 8 6NW6 BCT 4 PSER 8 6P*Q LDN 0 #34 14 6PTB DCH 0 0(2) [ COMMA 7 6Q*2 BCHX 2 / 19 6QSL PNS LDN 1 FIP(3) [FIND LENGTH OF FILENAME,LESS 16 6R#= LDN 4 12 [TRAILING SPACES 15 6RRW PNF LDCH 0 0(1) [NEXT CHAR 7 6S?G BCHX 1 / 8 6SR6 SBN 0 #20 15 6T=Q BZE 0 PSP [J IF SPACE 17 6TQB NGX 5 4 [ELSE REMEMBER COUNT 8 6W=2 PSP BCT 4 PNF 18 6WPL ADN 5 13 [X5=COUNT FOR FILENAME 9 6X9= LDN 1 FIP(3) 7 6XNW SMO 5 21 6Y8G MVCH 1 0 [MOVE FILENAME TO CURRENT POSITION 9 6YN6 LDX 0 EXMARK(3) 8 6_7Q ANDN 0 BHIGH 20 6_MB BNZ 0 PNG [J IF GENERATION NR NOT SPECIFIED 20 7272 ADN 5 3 [3 ON COUNT FOR () AND LAST DIGIT 8 72LL LDN 0 #30 13 736= DCH 0 0(2) [ ( 7 73KW BCHX 2 / 9 745G LDX 0 EXMARK(3) 8 74K6 ANDN 0 BANY 19 754Q BZE 0 PSG [J IF SPECIFIED GENERATION 14 75JB SMO FX1 [ANY GEN, 8 7642 LDN 1 PANY 17 76HL MVCH 1 4 [MOVE IN GEN =4096 20 773= ADN 5 3 [UPDATE COUNT FOR FIRST 3 DIGITS 8 77GW BRN PEG 4 782G PSG 9 78G6 #SKI K6CHINERR>199-199 4 78_Q ( 9 79FB LDX 0 EXMARK(3) 16 79_2 ANDN 0 BSPEC [SHOULD BE BSPEC 8 7=DL BNZ 0 PSGOK 9 7=Y= GEOERR 1,SDGMARK 5 7?CW PSGOK 4 7?XG ) 14 7#C6 STO 7 FIP+13(3) [SAVE X7 9 7#WQ LDX 7 FIP+4(3) 16 7*BB SRL 7 12 [GENERATION NR 7 7*W2 LDN 0 0 8 7B*L SMO FX1 8 7BT= DVD 7 PTTH 17 7C#W LDN 1 0 [CONVERT TO DECIMAL 7 7CSG ADN 0 1 17 7D#6 LDN 7 3 [FOR FIRST 3 CHARS, 17 7DRQ MODE 1 [SET ZERO-SUPPRESION 14 7F?B PGNX CBD 0 0(2) [CONVERT 8 7FR2 LDCH 4 0(2) 8 7G=L SBN 4 #20 18 7GQ= BZE 4 PGZ [J IF SPACE TO IGNORE IT 18 7H9W ADN 5 1 [ELSE ADD 1 TO CHAR COUNT 16 7HPG BCHX 2 / [AND STEP POINTER 13 7J96 PGZ BCT 7 PGNX [NEXT 18 7JNQ MODE 0 [MODE ZEROS FOR LAST CHAR 15 7K8B CBD 0 0(2) [CONVERT IT 7 7KN2 BCHX 2 / 15 7L7L LDX 7 FIP+13(3) [RESTORE X7 8 7LM= PEG LDN 0 #31 13 7M6W DCH 0 0(2) [ ) 7 7MLG BCHX 2 / 9 7N66 PNG LDX 0 EXMARK(3) 8 7NKQ ANDN 0 BSERL 21 7P5B BZE 0 PNSA [J IF SERIAL NR NOT SPECIFIED,ELSE 19 7PK2 ADN 5 9 [ADD 9 FOR (,),COMMA AND CSN 8 7Q4L LDN 0 #31 13 7QJ= DCH 0 0(2) [ ) 9 7R3W PNSA LDX 4 FIP+14(3) 17 7RHG OUTPARAM 5,FIP+5,EWDAS,EXOF [PUT OUT PARAMETER 16 7S36 ADX 4 FX1 [RELOCATE LINK 18 7SGQ EXIT 4 0 [EXIT WITH COUNT IN X5 4 7T2B # 4 7T4H ...# 18 7T5= ...# ENTRY POINT TO OUTPUT CSN LOCAL NAME & GEN 16 7T5_ ...# NO AND FINALLY THE MESSAGE, BUT NO FRILLS 4 7T6N ...# 6 7T7C ...QK7CHINERR 19 7T86 ... STO 6 AWORK1(2) [PRESERVE MESSAGE IDENTIFIER 10 7T8T ... MHUNTW 3,EWDAS,EXOF 9 7T9J ... LDX 7 FIP+4(3) 14 7T=? ... SRL 7 12 [GEN NO 9 7T?2 ... LDN 0 ASUSN(3) 7 7T?P ... LDN 1 3 20 7T#D ... MOVE 0 4 [SUSN & NAME MOVED TO X3,4,5,6 9 7T*7 ... OUTPACK 3,1,CSN 10 7T*W ... OUTPACK 4,3,LOCNAME 10 7TBK ... OUTPACK 7,1,GENNUM 9 7TC# ... MONOUTX AWORK1(2) 5 7TD3 ... UP 4 7TDR ...# 6 7TDX ...QK8CHINERR 9 7TH3 ... GEOERR 1,K8CHIN 4 7TK7 ...# 6 7TK? ...QK9CHINERR 9 7TLC ... GEOERR 1,K9CHIN 4 7TMH ...# 6 7TMM ...QK10CHINERR 9 7TN9 ... GEOERR 1,K10CHIN 4 7TNR ...# 6 7TNX ...QK11CHINERR 9 7TPF ... GEOERR 1,K11CHIN 4 7TQ3 ...# 6 7TR3 ...QK12CHINERR 9 7TSP ... GEOERR 1,K12CHIN 4 7TWC ...# 10 7T_L MENDAREA 30,K99CHINERR 4 7WF= # 4 7WYW #END 8 ____ ...22355555000200000000