NEWFIXED
(GIN Macro)
Defined in: MACROS DTP
Used in:
- NEWFIXED.mac.txt
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