(George Source)
Macros used: FIXTRA, FREEBUFF, ICT, REPLACER
2256 ...# COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 228= ...#SKI GCOMP 22?B ...( 22BG ...#SEG REPLAC 22FL ... FIXTRA AREPLACER 22JQ ...) 22MW ...#SKI GCOMP 22R2 ...#SKI 22W6 ...#MEN REPLAC [DIAG 22^= #OPT K0REPLACER=0 23DW #LIS K0REPLACER>K0KERNEL>K0ALLGEO 25CB #TRA AREPLACER 25X2 REPLACER BSP1,APF1 [DATUM 26BL REPLACER BSP2,APF2 [DATUM 26W= REPLACER BSP3,APF3 [DATUM 26YF ...#UNS JSKI25 272N ...( 274X ... REPLACER BPMCO,JBPMCO 2776 ... REPLACER JCONOUT,JJCONOUT 279* ... REPLACER JPGTGE,JJPGTGE 27?J ...) 27*W REPLACER BSTS1,AP1 27TG REPLACER BSTS4,AP4 28*6 REPLACER BSTS5,AP5 28SQ REPLACER BSTS6,AP6 29#B REPLACER BSTS7,AP7 29S2 REPLACER BSTS13,AP13 2=6C ... REPLACER BSTSEP,+BSTSEPREP,INS 2=DS ... REPLACER BSTSEPREP,BSTS10,BRN 2=R= REPLACER BSTS11,AP11 2?=W REPLACER AERR,AX1 2?QG REPLACER BSTS12,AP12 2#=6 ... REPLACER BSEN1,+BSEN1X,INS 2#PQ ... REPLACER BSEN2,+BSEN2X,INS 2*9B ... REPLACER BSEN1X,BP2D,BRN 2*P2 ... REPLACER BSEN2X,AT4J,BRN 2D76 REPLACER JSCAN,JJSCAN 2DLQ REPLACER JTRACE,JJTRACE 2F6B REPLACER JTRACEX,JJTRACEX 2FL2 [ ENTRIES FOR SEGMENT COREALL 2G5L REPLACER GFREE,HNFREE 2GK= REPLACER GDERING,ARING 2H4W REPLACER ENRING,ERING 2HJG REPLACER GCHAN,CHAN 2J46 REPLACER GUNL,GUNLOK 2JHQ REPLACER GLOCK,ALOCK 2K3B REPLACER GLOCKC,COLOCK 2K5^ ...#UNS ISFC 2K8J ...( 2K?7 ... REPLACER GFRIN,HNFRIN 2K*Q ... REPLACER GFROUT,HNFROUT 2KD* ...) 2KH2 REPLACER GCORE1,HNCORE1 2L2L REPLACER GCORE,HNCORE 2LG= REPLACER GEMS,EMSENT 2L^W REPLACER GQUEUSWAP,BSTQSWAP,BRN 2MFG REPLACER GQUEU,BSTQBLOK,BRN 2M^6 REPLACER GLINK,HGLINK,BRN 2NDQ REPLACER BCOPY,HCOPY 2NYB REPLACER BMOVE,BLKMOVE 2PD2 REPLACER CHANGE,ALTLEN 2PXL REPLACER CHANGEG,ALTG 2Q3H REPLACER COREQUSTY,GOTENUF 2Q7D REPLACER COREQUSTN,EXESIV 2Q?* # 2QC= [ ENTRIES FOR SEGMENT EVENTFN 2QWW REPLACER GMONEND,HNMON 2RBG REPLACER GEVFIN,HNEVFIN 2RW6 [ ENTRIES FOR SEGMENT CHCH 2S*Q REPLACER CHAPK,HTCHAP 2STB REPLACER CHAPDOWNK,HTCHAPDOWN 2T*2 REPLACER CHAPUPK,HTCHAPUP 2TSL REPLACER CUPPLUS,HTUP2 2W#= [ ENTRIES FOR SEGMENT COOR 2WRW REPLACER COOR1,HSOOR1 2X?G REPLACER COOR1Y,HSOOR1Y 2XR6 REPLACER COOR1X,HSOOR1X 2Y=Q REPLACER COOR2,HSOOR2 2YQB REPLACER COOR3,HSOOR3 2^=2 REPLACER COOR3Y,HSOOR3Y 2^PL REPLACER COOR3X,HSOOR3X 2^S9 ... REPLACER JRETURN3,BRN (3),INS 2^WS ... REPLACER JRETURN4,BRN (4),INS 2^^C ... REPLACER JRETURN5,BRN (5),INS 3242 ... REPLACER JRETURN6,BRN (6),INS 326K ... REPLACER JRETURN7,BRN (7),INS 329= REPLACER FPUT,HSPUT 32NW REPLACER FON,HSON 338G REPLACER FON1,HSON1 33N6 REPLACER FCHECKBIN,HSCHECKBIN 347Q REPLACER FLONGON,HSLONGON 34MB REPLACER FLONGON1,HSLONGON1 34SJ ...#SKIP JWPHASE4<1$1 34^Q ...( 3572 REPLACER FBCBIN,HSBCBIN 35LL REPLACER FBCBIN1,HSBCBIN1 35N3 ...) 35PD ...#SKIP JWPHASE4 35QT ...( 35S= ... REPLACER COOR3LW1,HSOOR3LW1 35TM ... REPLACER COOR3LW2,HSOOR3LW2 35X4 ... REPLACER COOR3LW3,HSOOR3LW3 35YF ... REPLACER COOR3LW4,HSOOR3LW4 35^W ... REPLACER CLONGOFF,HSLONGOFF 363? ...# 364N ...) 364P ...#UNS ICT 364Q ... REPLACER APGAR,APGA 364T ...#UNS ISTDP 3652 ...( 3657 ... REPLACER ATRUED,HTRUED 365# ...#SKI G4 365F ...( 365L ... REPLACER GIVPRING1,RETURNPG1 365R ... REPLACER ATRYPAGE,TRYPAGE 365Y ...) 3665 ...) 366= #SKI G4 36KW ( 375G [ ENTRIES FOR SEGMENR COREALLB G4 ONLY 379C ...#UNS G4VOPA 37*# ...#SKI 37F9 ...( 37K6 REPLACER GPTAB,HNPTAB 384Q REPLACER GFPTAB,HNFPTAB 38JB REPLACER GCHANOBJ,HNCHANOBJ 3942 REPLACER GCHANOBJX,HCHANOBJX 39HL REPLACER GOBJ,HNOBJ 3=3= REPLACER GPAG,HNPAG 3=GW REPLACER GFOBJ,HNFOBJ 3=JK ...) 3=L# ...#UNS G4VOPA 3=N3 ...( 3=PQ ... REPLACER GETPRING,RINGPGS 3=RF ... REPLACER COREKICK,KICKCORE 3=T8 ... REPLACER BKPAGE,ONEPAGE 3=WX ... REPLACER GIVPRING,RETURNPG 3=YL ...) 3?2G [ ENTRIES FOR SEGMENT PAGTABLE G4 ONLY 3?G6 REPLACER CHECK1,HXCHECK1 3?^Q REPLACER CHECK2,HXCHECK2 3#FB REPLACER CHECK3,HXCHECK3 3#^2 REPLACER CHECK4,HXDUMP 3*DL REPLACER CHECK5,HXCHECK5 3*Y= REPLACER CLEAR,HXCLEAR 3BCW REPLACER CLEAR1,HXCLEAR1 3BXG REPLACER CLEAR2,HXCLEAR2 3CC6 REPLACER HFIRST1,HXFIRST1 3CWQ REPLACER HNEXT,HXNEXT 3DBB ) 3DW2 REPLACER ASTEP11,AREAD1 3F*L REPLACER ASTEP12,AREAD2 3FT= REPLACER ASTEP13,AREAD3 3G#W REPLACER ASTEP14,AREAD4 3GSG REPLACER ASTEP15,ASAPP1 3H#6 REPLACER ASTEP16,ASAPP2 3HRQ REPLACER ASTEP17,ASAPP3 3J?B REPLACER ASTEP18,ASAPP4 3JR2 REPLACER ASTEP19,ASTAG1 3K=L REPLACER ASTEP20,ASTAG2 3KQ= REPLACER ASTEP21,ASTAG3 3L9W REPLACER ASTEP22,ASTAG4 3LPG REPLACER ASTEP23,ASKIP1 3M96 REPLACER ASTEP32,AVSKIP1 3MNQ REPLACER ASTEP34,AVSKIP2 3N8B REPLACER HSFSTACKF,ASFSTACKF 3NN2 REPLACER HSFSTACKB,ASFSTACKB 3P7L REPLACER JHUNT1,HUNT1 3PM= REPLACER JHUNT2,HUNT2 3Q6W REPLACER JHUNT3,HUNT3 3QLG REPLACER JHUNTW1,HUNTW1 3R66 REPLACER JHUNTW2,HUNTW2 3RKQ REPLACER JHUNTW3,HUNTW3 3S5B REPLACER JHUNTX1,HUNTX1 3SK2 REPLACER JHUNTX2,HUNTX2 3T4L REPLACER JHUNTX3,HUNTX3 3TJ= REPLACER JFIND1,FIND1 3W3W REPLACER JFIND2,FIND2 3WHG REPLACER JFIND3,FIND3 3X36 #DEF JMHUNT1=JHUNT1 3XGQ #DEF JMHUNT2=JHUNT2 3Y2B #DEF JMHUNT3=JHUNT3 3YG2 #DEF JMHUNTW1=JHUNTW1 3Y^L #DEF JMHUNTW2=JHUNTW2 3^F= #DEF JMHUNTW3=JHUNTW3 3^YW #DEF JMHUNTX1=JHUNTX1 42DG #DEF JMHUNTX2=JHUNTX2 42Y6 #DEF JMHUNTX3=JHUNTX3 43CQ #DEF JMFIND1=JFIND1 43XB #DEF JMFIND2=JFIND2 44C2 #DEF JMFIND3=JFIND3 44WL # REPLACERS FOR SEGMENT MESOUT 45B= REPLACER AOUT1,AAOUT1 45TW REPLACER AOUT2,AAOUT2 46*G REPLACER AOUT3,AAOUT3 46T6 REPLACER AOUT4,AAOUT4 474Y ... REPLACER BSTS2,AP2 476W ...#UNS JSKI33 477T ...( 478T ... REPLACER HCHBL,ACHBL 47=6 ... REPLACER HCHBLW,ACHBLW 47?C ...) 47?G ...#UNS FREEBUFF 47?K ...( 47?N ... REPLACER FBSTACC,FBSTACC 47?R ... REPLACER FBRVACC,FBRVACC 47?W ... REPLACER FBFCA,FBFCA 47?^ ... REPLACER FBACT,FBACT 47#4 ... REPLACER FBCPAT,FBCPAT 47#7 ... REPLACER FBAPET,FBAPET 47#= ...) 47#* ...# 47#B ...# 47#C ...# REPLACER FOR SHARED FILESTORE ENHANCEMENT 47#D ...# 47#G ...#OPT OFSHDUMMY=#17777777 47#J ... REPLACER FSHSTPARAM,FSHDUMMY [CORRECT ADDRESS PUT HERE WHEN 47#L ...# [AMENDMENT IS COMPILED!! 47#N ...# 47#Q #SKI GCOMP 47JJ ...( 47SB #DEF APATCH=37?+0? 47Y? ...#REP 100 4848 ... -1 4885 ...) 48#2 #END ^^^^ ...57037502000100000000