{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: PMREPLAC84)}}
====== PMREPLAC84 ======
(George Source)


<code - PMREPLAC84.txt>22#C    #OPT  K0PMREPLAC=0  
22LS    #LIS  K0PMREPLAC>K0POST>K0ALLGEO
22^=    #   
23DW    #   
23YG    #BAS  ABC,FXINPRIN+1
24D6    #   
24XQ ...#SEG    PMREPLAC                [ KAREL KOSKUBA - DIAG RAY BARNES  +
25CB    #   
25X2    #   
26BL    #            THIS SEGMENT CONTAINS REPLACERS FOR PM SEGMENTS:   
26W=    #   
27*W    #                        PMDR   
27TG    #                        PMFSB  
28*6    #   
28SQ    #             IT ALSO CONTAINS CERTAIN COMMONLY USED UNIVERSAL  
29#B    #             LOCATIONS USED BY ROUTINES AND SEGMENTS   
29S2    #             THROUGHOUT POSTMORTEM 
2=?L    #   
2=R=    #   
2?=W    #   
2?QG    JPMFSBAS                            [ USED BY PMDR  
2#=6    FPRLIN         +FFPRLIN 
2#PQ    FPRRCD         +FFPRRCD 
2*9B    JGETFCB1       +JJGETFCB1   
2*P2    JGETFCB        +JJGETFCB
2BN=    JPMDRBAS                            [ USED BY PMDR  
2C7W    JPMSEG         +JJPMSEG 
2CMG    JGNO1          +JJGNO1  
2D76    JGNO2          +JJGNO2  
2DLQ    JDECN          +JJDECN  
2F6B    JDECP          +JJDECP  
2FL2    JDECS          +JJDECS  
2G5L    JDECDEC        +JJDECDEC
2GK=    JOCT           +JJOCT   
2H4W    JCHA           +JJCHA   
2HJG    JCON4          +JJCON4  
2J46    JCON1          +JJCON1  
2JHQ    JUP            +JJUP
2K3B    JPRINT         +JJPRINT 
2KH2    JPRINT1        +JJPRINT1
2L2L    JPRINT2        +JJPRINT2
2LG=    JPRINTX        +JJPRINTX
2L^W    JBSNUM         +JJBSNUM 
2M9N ...JSUBSREAD     +JJSUBSREAD   
2MFG    JBSADDSWAP     +JJBSADDSWAP 
2M^6    JBSADDGEO      +JJBSADDGEO  
2NDQ    JCTWIN         +JJCTWIN 
2NYB    JSEGREAD       +JJSEGREAD   
2PD2    JSEGREAD2      +JJSEGREAD2  
2PXL    JOZ            +JDBASE.3
2QC=    JLPMOD         +JDBASE+1
2QWW    JPMOD          +JDBASE.3
2RBG    JPLACEND                            [ USED BY PMDR  
2RW6    JLPREC  
2S*Q    #GAP  K53-K50   
2STB    #   
2T*2    JLINKA         +0   
2TSL    JXLINK  
2W#=    JLINKB           +0 
2WRW    JLINKC           +0 
2X?G    JLINK0           +0 
2XR6    JLINK1           +0 
2Y=Q    JLINK2           +0 
2YQB    JLINK3           +0 
2^=2    JLINK4           +0 
2^PL    JLINK5           +0 
329=    JLINK7           +0 
32NW    JWLINK            +0
338G    #GAP  6 
33?5 ...#SKI G3 
33*N ...(   
33D? ...JRECBLK        +JJRECBLK           [TWO REPLACERS FOR RECALL FIE
33GW ...JZDECANT       +JJZDECANT          [ENHANCEMENT 
33KF ...)   
33N6    #   
347Q    #END
34MB    #   
3572    #OVE
35LL    #   
^^^^ ...44131411000500000000
</code>