(George Source)
Macros used: CLINK, FIXTRA, PMLIST, PMLISTC, PMREP, PMREPCON
22FL # 22^= #OPT K0PMTABLEH=0 23DW #LIS K0PMTABLEH>K0ALLTYPES>K0POST>K0ALLGEO 23YG # 24D6 #SEG PMTABLEH [DICK RUSBRIDGE 24XQ # 25CB # THIS SEGMENT CONTAINS TABLES OF IDENTIFIER MNEMONICS AND AN 25X2 # INDICATOR TO SHOW HOW EACH IDENTIFIER SHOULD BE CONVERTED 26BL 26W= ... FIXTRA JH5 [AOLPT BLOCK 27*W PMLIST ACC3,0,ACC4,0,ACC5,0,ACC6,0,ACC7,0,CHADD,2 27TG PMLISTC BCHAN,2,ACNUM,2,EXEC1,0,EXEC2,0,EXEC3,0,ACTCH,2,CLNG1,0 28*6 PMLISTC CLNG2,0,JOBNO,2 28SQ #SKI GENIE<1$1 29#B ( 29S2 PMLISTC CA1,0,CA2,0,CA3,2,CA4,3,CA5,0 2=?L #SKI CP51<1$1 2=R= PMLISTC FCA1,2,FCA2,0,FCA3,2,FCA4,2,FCA5,0 2?=W ) 2?QG #SKI CP51 2#=6 PMLISTC EVNT1,2,EVNT2,2,EVNT3,2 2#PQ PMLISTC AWRK1,0,AWRK2,0,AWRK3,0,AWRK4,0 2*9B PMLISTC ACOM1,0,ACOM2,0,ACOM3,0,ACOM4,0,ACOM5,0,ACOM6,0 2*P2 #SKI CLINK<1$1 2B8L PMLISTC ALNK1,3,ALNK2,0 2BN= #SKI CLINK 2C7W PMLISTC ALNK1,4 2CMG #SKI CNEWRING 2D76 ( 2DLQ PMLISTC JOBRG,2,+,2,ACTRG,2,+,2,ALKRG,2,+,2,FLERG,2 2F6B PMLISTC FLBRG,2,+,2,BA1,0,BA2,0,BA3,0,BA4,0,BA5,0 2FL2 PMLISTC BWKRG,2,+,2 2G5L ) 2GK= #SKI GENIE 2H4W ( 2HJG PMLISTC CPPTR,2,CPRW1,0,CPRW2,0,CPRSW,0 2J46 PMLISTC EVNT4,0,AVNT1,2,AVNT2,2,AVNT3,2,AVNT4,0 2JHQ #SKI G4 2K3B PMLISTC EVNT5,0,EVNT6,0,AVNT5,0,AVNT6,0 2KH2 PMLISTC BFSTA,0,ACOUN,2,FRECH,0,APETA,2,GIVE,0,ATMAR,2 2L2L ) 2LG= #SKI ALWMK7 2L^W PMLISTC CLNG3,0 2MFG #SKI HIPRI 2M^6 PMLISTC ACRIT,0,ATUSE,2 2NDQ #SKI G4<AUTPAM 2NYB PMLISTC HLCK1,0,HLCK2,0 2PD2 2PXL ... FIXTRA JH6 [AMOP/IPBIN #7201 2QC= [AMOP/IPBOUT #7202 2QWW PMLIST ACC3,0,ACC4,0,ACC5,0,ACC6,0,ACC7,0,CHADD,2 2RBG PMLISTC BCHAN,2,ACNUM,2,EXEC1,0,EXEC2,0,EXEC3,0,ACTCH,2,CLNG1,0 2RW6 PMLISTC CLNG2,0,JOBNO,2 2S*Q #SKI GENIE<1$1 2STB ( 2T*2 PMLISTC CA1,0,CA2,0,CA3,2,CA4,3,CA5,0 2TSL #SKI CP51<1$1 2W#= PMLISTC FCA1,2,FCA2,0,FCA3,2,FCA4,2,FCA5,0 2WRW ) 2X?G PMLISTC AWRK1,0,AWRK2,0,AWRK3,0,AWRK4,0 2XR6 PMLISTC ACOM1,0,ACOM2,0,ACOM3,0,ACOM4,0,ACOM5,0,ACOM6,0 2Y=Q #SKI CP51 2YQB PMLISTC ACOM7,0,ACOM8,0,ACOM9,0 2^=2 #SKI CLINK<1$1 2^PL PMLISTC ALNK1,3,ALNK2,0 329= #SKI CLINK 32NW PMLISTC ALNK1,4 338G #SKI CNEWRING 33N6 ( 347Q PMLISTC IPBRG,2,+,2,ACTRG,2,+,2,ALKRG,2,+,2,FLERG,2 34MB PMLISTC FLBRG,2,+,2,BA1,0,BA2,0,BA3,0,BA4,0,BA5,0 3572 PMLISTC BWKRG,2,+,2 35LL ) 366= #SKI GENIE 36KW PMLISTC CPPTR,2,CPRW1,0,CPRW2,0,CPRSW,0 375G #SKI ALWMK7 37K6 PMLISTC CLNG3,0 384Q #SKI HIPRI 38JB PMLISTC ACRIT,0,ATUSE,2 3942 #SKI FD 39HL ( 3=3= ... FIXTRA JH7 [ FI/FERUS #4514 3=GW PMLIST FRSRH,2,FRSNM,2 3?2G PMREPCON +,1 3?G6 ... FIXTRA JH8 [ FILE/FINCPROC #4434 3?^Q PMLIST FPCRH,2,FNOBS,2 3#FB ... PMLISTC FPRVL,2,INCRV,2,FPTRD,2,IUNFN,2,IBTCH,2,ILIST,2 3#^2 ) 3#^R ... 3*2J ... 3*3* ... FIXTRA JH1 [ IPCD/IPCGLW #1505 3*46 ... [ IPCD/IPCGLR #1504 3*4X ... PMLIST A1,2,+,2,+,2,IGREP,0,IGGUN,2 3*5N ... PMLISTC IGNAM,1,+,1,+,1,IGDET,0 3*6F ... 3*7= ... FIXTRA JH2 [ IPCD/ENQUIRY #1503 3*83 ... PMREP A1,1,+,1,+,1,+,1,+,1,+,0 3*8S ... 3*9K ... FIXTRA JH3 [ IPCD/ATASK #1501 3*=B ... PMLIST A1,0,+,2 3*?7 ... 3*?Y ... FIXTRA JH4 [ IPCD/IPSTACK #1502 3*#P ... PMREP IPTR1,2,IPTR2,2,ISTAR,2,ILINK,0,IST1,0,IST2,0 3**G ... PMREPCON ITIMC,2,IAST,2,ILEN,2,IAST2,2,ILEN2,2,IREP,2 3*B? ... PMREPCON ITRIP,2,IALT,1,IMEL,2 3*C4 ... 3*CT ... 3*DL 3*Y= #END ^^^^ ...05330476000800000000