{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: REPLAC)}}
====== REPLAC ======
(George Source)
**Macros used:** [[george:macro:FIXTRA|FIXTRA]], [[george:macro:FREEBUFF|FREEBUFF]], [[george:macro:ICT|ICT]], [[george:macro:REPLACER|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