Show pageBacklinksBack to top This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong. {{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: UMNEWFIX)}} ====== UMNEWFIX ====== (GIN Macro) **Defined in:** [[george:source:MACROS_DTP|MACROS DTP]] **Used in:** <code - UMNEWFIX.mac.txt> 57J8 ...[??? UMNEWFIX SECT DIAG FGN 578 DOC 57JB ...# AMENDED FOR ISFC AND ICT CHANGES IN MK 865 57JJ ...#MAC UMNEWFIX [M. DRUKKER 57JT ...[ 57K6 ...[ 57KC ...[ ************** 57KN ...[ * UMNEWFIX * 57K^ ...[ ************** 57L= ...[ 57LH ...[ 57LS ...#SKI JUMRCCS<1$1 [OUTSIDE UMRCC/GANNET 57M5 ...( 57M8 ...#CON UMRCC SPECIAL NOT INCLUDED 57M? ...) 57MB ...#SKI ISFC<1$1 57MF ...( 57MJ ...#CON NO ISFC CODE INCLUDED 57MM ...) 57MQ ...#SKI ICT<1$1 57MT ...( 57MY ...#CON NO ICT CODE INCLUDED 57N3 ...) 57N6 ...#STR :,%A 57NG ...( 57NR ...#CON :USERNAME PARAMETER MISSING 57P4 ...#CON UMNEWFIX REJECTED 57P* ...#EXI 57PL ...) 57PX ...#ALT AHD=0 57Q8 ...#ALT AHDCHTAB=1 57QF ...#ALT AHDDATUM=1 57QQ ...#ALT AHDNEWREP=1 57R3 ...#ALT AHDREPLACER=1 57R# ...#ALT AHDPM=1 57RK ...#ALT AHDBSTS=1 57RW ...#ALT AHDBSQ=1 57S7 ...#ALT AHDCOOR=1 57SD ...#ALT AHDGSCANTRA=1 57SP ...#ALT AHDCHCH=1 57T2 ...#ALT AHDCOREALL=1 57T? ...#SKI G4 57TJ ...#ALT AHDCOREALLB=1 57TT ...#ALT AHDEVENTFN=1 57W6 ...#SKI G4 57WC ...#ALT AHDPAGTABLE=1 57WN ...#ALT AHDSTEP=1 57W^ ...#ALT AHDHUNTBLOK=1 57X= ...#ALT AHDMESOUT=1 57XH ...#ALT AHDFBUFF=1 57XL ...#UNS ISFC+ICT 57XP ...#ALT AHDCASCODE = 1 57XS ...#ALT AHDCEND=1 57Y5 ...#ALT ANEWFIXED=2? [SAVE CURRENT VALUE OF 2? 57YB ...#DEF 2?=DDATUM [RESET 2? FOR COMPILATION OF FIXED 57YJ ...#SKI JUMRCCS 57YK ...( 57YR ...#ALT AENDCHAPS = KTAB + 990 57Y^ ...#ALT BPMLEV1 = AENDCHAPS 57^7 ...) 57^C ...#UNS CASCODEND [ MORE OUTPUT FOR ASF 57^K ...#ALT BPMLEV1=CASCODEND 57^^ ...#BAS AVARFCORE,AENDCHAPS [BASE ADDRESS FOR CODE SEGMENTS 582* ... NWFX %A,DATUM 582D ...#UNS ISFC+ICT 582H ... NWFX %A,CASCODE 582L ... NWFX %A,PM 582X ...#SKI JSKI12 583F ... NWFXX %A,BSTS,867 583Q ... NWFXX %A,BSQ,867 5843 ... NWFXX %A,COOR,865 584# ... NWFX %A,GSCANTRA 584K ... NWFXX %A,CHCH,865 584W ... NWFXX %A,COREALL,865 5857 ...#SKI G4 585D ... NWFX %A,COREALLB 585P ... NWFX %A,EVENTFN 5862 ...#SKI G4 586? ... NWFX %A,PAGTABLE 586J ... NWFXX %A,STEP,864 586T ... NWFX %A,HUNTBLOK 5876 ... NWFX %A,MESOUT 587C ...#UNS FREEBUFF 587N ... NWFXX %A,FBUFF,860 587^ ... USEFILE %A.REPLAC 588= ...#NEW CEND 588H ... USEFILE %A.CEND 588S ...#SKI 2?>BSFIXEND$BSFIXEND [DELETE WITH AN ERROR MESSAGE IF NEW 5895 ...#DEL FIXED CORE TOO LARGE [SIZE OF FIXED CORE EXCEEDS RESERVED 589B ...#CON **** FIXED CORE REPLACED **** 589G ...#ALT GFIXCORE=1 589M ...#DEF 2?=ANEWFIXED [RESET 2? TO ITS VALUE BEFRE UMNEWFIX 589Y ... MENDIT %A,FIXINT,,,,,PM 58=4 ...#ALT GFIXCORE=0 58=9 ...#MEN LOADERI [UPDATE LOADER'S RECORD OF FIXED CORE 58=G ...#TRA JDVAR 58=R ... +DDATUM [NEW D-ADDRESS OF CODE SEGMENTS 58?D ...#TRA JLVAR 58?F ... +JFCT>JFCS-AENDCHAPS [NEW LENGTH OF CODE SEGMENTS 58?G ...#SKI JUMRCCS 58?H ...( 58?L ...#TRA JCVAR 58?X ... +AENDCHAPS [NEW CORE DATUM FOR CODE SEGMENTS 58#8 ...#TRA JLFIXED 58#F ... +AENDCHAPS-J1 [NEW LENGTH OF FIXED DATA AREA 58#Q ...#END 58*3 ...#MEN PMSUMA [UPDATE PM'S FIXED CORE DATUM 58*# ...#TRA JPMREL 58*K ... +AENDCHAPS-DDATUM 58*W ...#END 58B7 ...#MEN PMCHECK 58BD ...#TRA JPMCHECKREL 58BL ... +AENDCHAPS-DDATUM 58BS ...) 58C2 ...#END 58C5 ...#UNS JUMRCCS+CASCODEND 58C8 ...( 58C? ...#MEN PMDR [UPDATE PM'S FIXED CORE LENGTH 58CJ ...#TRA JPMLEV 58CT ... +BPMLEV1 58D6 ...#END 58DC ...#MEN PMACT 58DL ...#TRA JMAXCHAP 58DT ... +AENDCHAPS-KTAB 58F5 ...) 58F= ...#END 58F? ... PMSIZEUP 58F# ...#OPT FIXMEND = 0 58F* ...#SKI FIXMEND 58FB ...( 58FC ... CLEARSTA 80504,80505,80506,80507,80805,80509,80510,80511,80512, - 58FD ...80513,80514,80515 58FF ...#SKI FIXMEND-80516�$#40000000 58FG ... CLEARSTA 80516,80517,80518,80519,80520,80521,80522,80523,80524, - 58FH ...80525,80526,80527 58FK ...#SKI FIXMEND-80528�$#40000000 58FL ... CLEARSTA 80528,80529,80530,80531,80532,80533,80534,80535,80536, - 58FM ...80537,80538,80539 58FN ...#SKI FIXMEND-80540�$#40000000 58FP ... CLEARSTA 80540,80541,80542,80543,80544,80545,80546,80547,80548, - 58FQ ...80549,80550,80551 58FR ...#SKI FIXMEND-80552�$#40000000 58FS ... CLEARSTA 80552,80553,80554,80555,80556,80557,80558,80559,80560, - 58FT ...80561,80562,80563 58FW ...#SKI FIXMEND-80564�$#40000000 58FX ... CLEARSTA 80564,80565,80566,80567,80685,80569,80570,80571,80572, - 58FY ...80573,80574,80575 58F^ ...#SKI FIXMEND-80576�$#40000000 58G2 ... CLEARSTA 80576,80577,80578,80578,80580,80581,80582,80583,80584, - 58G3 ...80585,80586,80587 58G4 ...#SKI FIXMEND-80588�$#40000000 58G5 ... CLEARSTA 80588,80589,80590,80591,80592,80593,80594,80595,80596, - 58G6 ...80597,80598,80599 58G7 ...#MEN PMENDNOS 58G8 ...21 0 58G9 ... 0 58G= ... 0 58G? ... 0 58G# ...#END 58G* ...#ALT FIXMEND = 0 58GB ...) 58GC ...#NOR </code> Last modified: 17/01/2024 11:55by 127.0.0.1 Log In