UMNEWFIX

(GIN Macro)

Defined in: MACROS DTP

Used in:

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$#40000000 
 58FG ...    CLEARSTA  80516,80517,80518,80519,80520,80521,80522,80523,80524,   -
 58FH ...80525,80526,80527   
 58FK ...#SKI  FIXMEND-80528&#40000000$#40000000 
 58FL ...    CLEARSTA  80528,80529,80530,80531,80532,80533,80534,80535,80536,   -
 58FM ...80537,80538,80539   
 58FN ...#SKI  FIXMEND-80540&#40000000$#40000000 
 58FP ...    CLEARSTA  80540,80541,80542,80543,80544,80545,80546,80547,80548,   -
 58FQ ...80549,80550,80551   
 58FR ...#SKI  FIXMEND-80552&#40000000$#40000000 
 58FS ...    CLEARSTA  80552,80553,80554,80555,80556,80557,80558,80559,80560,   -
 58FT ...80561,80562,80563   
 58FW ...#SKI  FIXMEND-80564&#40000000$#40000000 
 58FX ...    CLEARSTA  80564,80565,80566,80567,80685,80569,80570,80571,80572,   -
 58FY ...80573,80574,80575   
 58F^ ...#SKI  FIXMEND-80576&#40000000$#40000000 
 58G2 ...    CLEARSTA  80576,80577,80578,80578,80580,80581,80582,80583,80584,   -
 58G3 ...80585,80586,80587   
 58G4 ...#SKI  FIXMEND-80588&#40000000$#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
  • Last modified: 17/01/2024 11:55
  • by 127.0.0.1