{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: NEWFIXED)}}
====== NEWFIXED ======
(GIN Macro)
**Defined in:** [[george:source:MACROS_DTP|MACROS DTP]]
**Used in:**
3DW2 ...[??? NEWFIXED SECT DIAG FGN 578 DOC
3F*L #MAC NEWFIXED [M. DRUKKER
3FT= [
3G#W [
3GSG [ **************
3H#6 [ * NEWFIXED *
3HRQ [ **************
3J?B [
3JR2 [
3JTK ...#SKI ADTPNF<1$1
3JY8 (
3K2R ! NOT ALLOWED IN THIS CONTEXT [NEWFIXED NOT ALLOWED EXTERNALLY
3K5B #EXI
3K7^ )
3K=L #ALT AHD=1
3KQ= #ALT AHDCHTAB=0
3L9W #ALT AHDDATUM=0
3M96 #ALT AHDNEWREP=0
3MNQ #ALT AHDREPLACER=0
3MYJ ...#ALT AHDPM=0
3N8B #ALT AHDBSTS=0
3NN2 #ALT AHDBSQ=0
3P7L #ALT AHDCOOR=0
3PM= #ALT AHDGSCANTRA=0
3Q6W #ALT AHDCHCH=0
3QLG #ALT AHDCOREALL=0
3R66 #SKI G4
3RKQ #ALT AHDCOREALLB=0
3S5B #ALT AHDEVENTFN=0
3SK2 #SKI G4
3T4L #ALT AHDPAGTABLE=0
3TJ= #ALT AHDSTEP=0
3W3W #ALT AHDHUNTBLOK=0
3WHG #ALT AHDMESOUT=0
3WR# ...#ALT AHDFBUFF=0
3WTX ...#UNS ISFC+ICT
3WYG ...#ALT AHDCASCODE = 0
3X36 #ALT AHDCEND=0
3XGQ #STR :,%A
3Y2B #SKI
3YG2 (
3Y^L NWFX1 %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M
3^F= #ALT AHD=0
3^YW )
42DG #STR :,%A
42Y6 NWFX1 %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M
43CQ #SKI AHDCHTAB
43XB NWFX %A,CHTAB,1
44WL #ALT ANEWFIXED=2? [SAVE CURRENT VALUE OF 2?
45B= #DEF 2?=DDATUM [RESET 2? FOR COMPILATION OF FIXED
45GN ...#SKI JUMRCCS
45M6 ...(
45RJ ...#ALT AENDCHAPS = KTAB+990
45Y2 ...#ALT BPMLEV1 = AENDCHAPS
464D ...)
468W ...#BAS AVARFCORE,AENDCHAPS [NEED WHOLE OF CHTABLE
46*G NWFX %A,DATUM
4848 ...#UNS ISFC+ICT
48#2 ... NWFX %A,CASCODE
48*Y ... NWFX %A,PM
48CW ...#SKI JSKI12
48Q? ... NWFXX %A,BSTS,867
492Q ... NWFXX %A,BSQ,867
49?= ... NWFXX %A,COOR,865
49QW NWFX %A,GSCANTRA
4==G ... NWFXX %A,CHCH,865
4=Q6 ... NWFXX %A,COREALL,865
4?9Q #SKI G4
4?PB NWFX %A,COREALLB
4#92 NWFX %A,EVENTFN
4#NL #SKI G4
4*8= NWFX %A,PAGTABLE
4*MW ... NWFXX %A,STEP,864
4B7G NWFX %A,HUNTBLOK
4BM6 NWFX %A,MESOUT
4BS# ...#UNS FREEBUFF
4B^H ... NWFXX %A,FBUFF,860
4C6Q #SKI AHDREPLACER
4CLB (
4D62 #SKI AHD-1
4DKL ... USEFILE %A.REPLAC
4F5= #SKI AHD
4FJW ... USEFILE REPLAC
4G4G )
4GJ6 #SKI AHDREPLACER-1
4GRY ...(
4H7M ... LATEST REPLAC
4HHB USEFILE
4HR8 ...)
4J32 #SKI AHDNEWREP
4JGL (
4K2= FCMENDV
4KFW NWFX %A,NEWREP,1
4K^G FCENDV
4LF6 )
4LYQ #NEW CEND
4MDB #SKI AHDCEND
4MY2 (
4NCL #SKI AHD-1
4NX= USEFILE %A.CEND
4PBW #SKI AHD
4PWG ... USEFILE CEND
4QB6 )
4QTQ #SKI AHDCEND-1
4R5J (
4RBM ... LATEST CEND
4RMR USEFILE
4S28 )
4S#L #SKI 2?>BSFIXEND$BSFIXEND [DELETE WITH AN ERROR MESSAGE IF NEW
4SS= #DEL FIXED CORE TOO LARGE [SIZE OF FIXED CORE EXCEEDS RESERVED
4T?W #CON **** FIXED CORE REPLACED ****
4THN ...#ALT GFIXCORE=1
4TRG #DEF 2?=ANEWFIXED [RESET 2? TO ITS VALUE BEFORE NEWFIXE
4W?6 ... MENDITP FIXINT,,,,,PM
4WGY ...#ALT GFIXCORE=0
4WQQ #MEN LOADERI [UPDATE LOADER'S RECORD OF FIXED CORE
4X=B #TRA JDVAR
4XQ2 +DDATUM [NEW D-ADDRESS OF CODE SEGMENTS
56N2 ...#TRA JLVAR
56NC ... +JFCT>JFCS-AENDCHAPS [NEW LENGTH OF CODE SEGMENTS
56NS ...#SKI JUMRCCS
56P9 ...(
56PL ...#TRA JCVAR
56QD ... +AENDCHAPS [NEW CORE DATUM FOR CODE SEGMENTS
56R= ...#TRA JLFIXED
56S4 ... +AENDCHAPS-J1 [NEW LENGTH OF FIXED DATA AREA
56SW ...#END
56TN ...#MEN PMSUMA [UPDATE PM'S FIXED CORE DATUM
56WG ...#TRA JPMREL
56X# ... +AENDCHAPS-DDATUM
56Y6 ...#END
56YY ...#MEN PMCHECK
56^Q ...#TRA JPMCHECKREL
572L ... +AENDCHAPS-DDATUM
573G ...)
574B #END
575J ...#UNS JUMRCCS+CASCODEND
576Q ...(
577Y ...#MEN PMDR
5796 ...#TRA JPMLEV1
57=# ... +BPMLEV1
57?G ...#END
57#N ...#MEN PMDR
57*W ...#TRA JMAXCHAP
57C4 ... +AENDCHAPS-KTAB
57D= ...#END
57FD ...)
57G3 ... PMSIZEUP
57GL ...#LIS 3
57J2 #NOR