(George Source)
22FL # 22^= # *************** 23DW # * MARK 8.50 * 23YG # *************** 24D6 # 24XQ # 25CB # THIS FILE CONTAINS THE "DEVELOPMENT TOOLS" MACROS 25X2 ...# AND IS OWNED BY MARK DRUKKER 26BL # 26W= # 27*W ...[??? NEWFCST SECT DIAG FGN 573 DOC 27TG #MAC NEWFCST [M. DRUKKER 28*6 [ 28SQ [ 29#B [ ************* 29S2 [ * NEWFCST * 2=?L [ ************* 2=R= [ 2?=W [ 2?*F ...#SKI ADTPNF<1$1 2?D4 ( 2?GM ! NOT ALLOWED IN THIS CONTEXT [NEWFCST NOT ALLOWED EXTERNALLY 2?K= #EXI 2?MT ) 2?QG #ALT GFIXCORE=1 2#=6 #ALT AHDDATUM=0 2#PQ #ALT AHDREPLACER=0 2*9B #ALT AHDPM=0 2*P2 #ALT AHDBSTS=0 [EACH OF THESE IDENTIFIERS 2B8L #ALT AHDBSQ=0 2BN= #ALT AHDCOOR=0 2C7W #ALT AHDGSCANTRA=0 2CMG #ALT AHDCHCH=0 [IS SET TO 1 2D76 #ALT AHDCOREALL=0 2DLQ #SKI G4 2F6B #ALT AHDCOREALLB=0 2FL2 #ALT AHDEVENTFN=0 [WHEN THE CORRESPONDING SEGMENT 2G5L #SKI G4 2GK= #ALT AHDPAGTABLE=0 2H4W #ALT AHDSTEP=0 2HJG #ALT AHDHUNTBLOK=0 [HAS BEEN COMPILED 2J46 #ALT AHDMESOUT=0 2J?Y ...#ALT AHDFBUFF=0 2JBH ...#UNS ISFC+ICT 2JF6 ...#ALT AHDCASCODE =0 2JHQ #ALT AHDCEND=0 2K8J #ALT ANEWFIXED=2? [SAVE CURRENT VALUE OF 2? 2K*Q #DEF 2?=DDATUM [RESET 2? FOR COMPILATION OF FIXED 2KDP ...#SKI JUMRCCS 2KHN ...( 2KLM ...#ALT AENDCHAPS = KTAB + 990 2KPL ...#ALT BPMLEV1 = AENDCHAPS 2KSK ...) 2KXJ ...#BAS AVARFCORE,AENDCHAPS 2L2L #STR %A 2LG= MENDIT %A,%B,%C,%D,%E,%F,%G 2L^W #STR %A 2MFG #SKI 2MKC ...( 2MP# ...#SKI ADTPFC<1$1 2MT9 ... MENDITP DATUM 2MY6 ...#SKI ADTPFC 2N33 ... MENDITF DATUM 2N5Y ...) 2N8Y #LIS 3 2NDQ #NOR 2NYB ...[??? NEWFCEND SECT DIAG FGN 578 DOC 2PD2 #MAC NEWFCEND [M. DRUKKER 2PXL [ 2QC= [ 2QWW [ ************** 2RBG [ * NEWFCEND * 2RW6 [ ************** 2S*Q [ 2STB [ 2SX^ ...#SKI ADTPNF<1$1 2T2J ( 2T57 ! NOT ALLOWED IN THIS CONTEXT [NEWFCEND NOT ALLOWED EXTERNALLLY 2T7Q #EXI 2T=* ) 2TF* ...#SKI ADTPFC<1$1 2TN* ...( 2T^M ...#UNS ISFC+ICT 2W3^ ... MENDITP CASCODE 2W57 ... MENDITP PM [FOR INTEGRATION 2W6* ... MENDITP BSTS 2WJ* ... MENDITP BSQ 2X2* ... MENDITP COOR 2XD* ... MENDITP GSCANTRA 2XW* ... MENDITP CHCH 2Y#* ... MENDITP COREALL 2YQB #SKI G4 2^=2 ... MENDITP COREALLB 2^PL ... MENDITP EVENTFN 329= #SKI G4 32NW ... MENDITP PAGTABLE 338G ... MENDITP STEP 33N6 ... MENDITP HUNTBLOK 347Q ... MENDITP MESOUT 34#Y ...#UNS FREEBUFF 34G6 ... MENDITP FBUFF 34MB #SKI AHDREPLACER-1 353W ... COMPILE *,REPLAC 35DB ... MENDITP CEND 35DQ ...) 35F6 ...#SKI ADTPFC 35FG ...( 35FL ...#UNS ISFC+ICT 35FQ ... MENDITF CASCODE 35FW ... MENDITF PM [FOR DEVELOPMENT 35G= ... MENDITF BSTS 35GL ... MENDITF BSQ 35H2 ... MENDITF COOR 35HB ... MENDITF GSCANTRA 35HQ ... MENDITF CHCH 35J6 ... MENDITF COREALL 35JG ...#SKI G4 35JW ... MENDITF COREALLB 35K= ... MENDITF EVENTFN 35KL ...#SKI G4 35L2 ... MENDITF PAGTABLE 35LB ... MENDITF STEP 35LQ ... MENDITF HUNTBLOK 35M6 ... MENDITF MESOUT 35MG ...#UNS FREEBUFF 35MW ... MENDITF FBUFF 35N= ...#SKI AHDREPLACER-1 35NL ... COMPILE *,REPLAC 35P2 ... MENDITF CEND 35PB ...) 35PQ #SKI 2?>BSFIXEND$BSFIXEND [DELETE WITH AN ERROR MESSAGE IF NEW 35SW #DEL FIXED CORE TOO LARGE [SIZE OF FIXED CORE EXCEEDS RESERVED 35Y2 #CON **** FIXED CORE REPLACED **** 3636 #DEF 2?=ANEWFIXED [RESET 2? TO ITS VALUE BEFORE NEWFIXE 3646 #STR %A 364L MENDIT %A,%B,%C,%D,%E,%F,%G [PARAMETERS MUST REFER TO FIXINT 3656 #STR %A 365L #SKI 368# ...( 36?2 ...#SKI ADTPFC<1$1 36*Q ... MENDITP FIXINT,,,,,PM 36CR ...#SKI ADTPFC 36FS ... MENDITF FIXINT,,,,,PM 36HT ...) 36JT ...#ALT GFIXCORE=0 [END OF FIXED CORE 36KW #MEN LOADERI [UPDATE LOADER'S RECORD OF FIXED CORE 375G #TRA JDVAR 37K6 +DDATUM [NEW D-ADDRESS OF CODE SEGMENTS 3C2L ...#TRA JLVAR 3C32 ... +JFCT>JFCS-AENDCHAPS [NEW LENGTH OF CODE SEGMENTS 3C3B ...#SKI JUMRCCS 3C3Q ...( 3C48 ...#TRA JCVAR 3C4^ ... +AENDCHAPS [NEW CORE DATUM FOR CODE SEGMENTS 3C5Q ...#TRA JLFIXED 3C6H ... +AENDCHAPS-J1 [NEW LENGTH OF FIXED DATA AREA 3C7# ...#END 3C8W ...#MEN PMSUMA [UPDATE PM'S FIXED CORE DATUM 3C9M ...#TRA JPMREL 3C=D ... +AENDCHAPS-DDATUM 3C?9 ...#END 3C#2 ...#MEN PMCHECK 3C#R ...#TRA JPMCHECKREL 3C*J ... +AENDCHAPS-DDATUM 3CB* ...) 3CC6 #END 3CFG ...#UNS JUMRCCS + CASCODEND 3CHW ...( 3CL= ...#MEN PMDR 3CNL ...#TRA JPMLEV1 3CR2 ... +BPMLEV1 3CTB ...#END 3CXQ ...#MEN PMACT 3D26 ...#TRA JMAXCHAP 3D4G ... +AENDCHAPS-KTAB 3D6W ...#END 3D9= ...) 3D=D ... PMSIZEUP 3D?L ...#LIS 3 3DBB #NOR 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 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 58FJ ... 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 58GD ...[??? CLEARSTA SECT DIAG FGN 587 58GF ...#MAC CLEARSTA 58GG ...[ 58GH ...[ 58GJ ...[ ************** 58GK ...[ * CLEARSTA * 58GL ...[ ************* 58GM ...[ 58GN ...[ 58GP ...#STA %A,75?+1 58GQ ...#STA %B,75?+1 58GR ...#STA %C,75?+1 58GS ...#STA %D,75?+1 58GT ...#STA %E,75?+1 58GW ...#STA %F,75?+1 58GX ...#STA %G,75?+1 58GY ...#STA %H,75?+1 58G^ ...#STA %I,75?+1 58H2 ...#STA %J,75?+1 58H3 ...#STA %K,75?+1 58H4 ...#STA %L,75?+1 58H5 ...#NOR 58H6 ...[??? NWFX SECT DIAG FGN 571 DOC 58H= #MAC NWFX [M. DRUKKER 592W [ 59GG [ 5=26 [ ********** 5=FQ [ * NWFX * 5=^B [ ********** 5?F2 [ 5?YL [ 5#D= #SKI %C 5#XW #SKI 5*CG #NEW %B 5*M# ...#DEF 92?=0 [NULL VERSION 5*X6 #SKI AHD%B 5BBQ ( 5BWB #SKI AHD-1 5CB2 USEFILE %A.%B 5CTL #SKI AHD 5D*= USEFILE %B 5DSW ) 5F#G #SKI AHD%B-1 5FJ# ( 5FLX ...#SKI ADTP 5FPG ...#GEO GETGEN %A.%B 5FS6 LATEST %B 5G6H USEFILE 5GDY ) 5GT^ ... MODSENT %B,FC,%B [SET UP "MODS" ENTRY FOR THIS SEGMENT 5H?2 #NOR 5H?H ...[??? NWFXX SECT DIAG FGN 571 DOC 5H#4 ...#MAC NWFXX [M. DRUKKER 5H#K ...[ 5H*6 ...[ 5H*M ...[ *********** 5HB8 ...[ * NWFXX * 5HBP ...[ *********** 5HC= ...[ 5HCR ...[ 5HD# ...#SKI %D 5HDT ...#SKI 5HFB ...#NEW %B 5HFH ...#SKI %C 5HFN ...#DEF 92?=%C [VERSION 5HFX ...#SKI AHD%B 5HGD ...( 5HG^ ...#SKI AHD-1 5HHG ... USEFILE %A.%B%C 5HJ3 ...#SKI AHD 5HJJ ... USEFILE %B%C 5HK5 ...) 5HKL ...#SKI AHD%B-1 5HL7 ...( 5HL# ...#SKI ADTP 5HLF ...#GEO GETGEN %A.%B%C 5HLN ... LATEST %B,%C 5HM9 ... USEFILE 5HMQ ...) 5HN? ... MODSENT %B,FC,%B [SET UP "MODS" ENTRY FOR THIS SEGMENT 5HNS ...# %B%C 5HP* ...#NOR 5HQL [??? NWFX1 SECT DIAG FGN 552 DOC 5J== #MAC NWFX1 [J.T. WIFFEN 5JPW [ 5K9G [ 5KP6 [ *********** 5L8Q [ * NWFX1 * 5LNB [ *********** 5M82 [ 5MML [ 5N7= #ALT AHD%A=1 5NLW #STR %B 5P6G NWFX1 %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M 5PL6 #NOR 5Q5Q [??? NULFIX SECT DIAG FGN 552 DOC 5QKB #MAC NULFIX [J.T. WIFFEN 5R52 [ 5RJL [ 5S4= [ ************ 5SHW [ * NULFIX * 5T3G [ ************ 5TH6 [ 5W2Q [ 5WGB #STR REP,%C 5X22 #SKI 5XFL ( 5X^= ...#MEN REPLAC 5YDW #TRA %A 5YYG -1 5^D6 #END 5^XQ ...#EXI 62CB ) 62X2 #STR CH,%C 63BL #SKI 63W= ( 64*W #MEN CHTABLE 64TG #TRA KTAB+K%A 65*6 -1 65SQ #END 66#B ...#EXI 66S2 ) 67?L #STR CON,%C 67R= #SKI 68=W #MEN CONSTANT 68QG #STR FIX,%C 69=6 #SKI 69PQ #MEN FIXED 6=9B #TRA %A 6=P2 %B 6?8L #END 6?N= #NOR 6#7W [??? NEWIP SECT DIAG FGN 552 DOC 6#MG #MAC NEWIP [M.C.D. MANN 6*76 [ 6*LQ [ 6B6B [ *********** 6BL2 [ * NEWIP * 6C5L [ *********** 6CK= [ 6D4W [ 6DJG #STR %A 6F46 ( 6FHQ #SKI INSTGAPEND-INSTPARAM-INSTPARL<1$1 6G3B ( 6GH2 ! INSTALLATION PARAMETER TABLE FULL ! 6H2L #CON INSTALLATION PARAMETER TABLE FULL 6HG= #EXI 6H^W ) 6JFG #MEN FIXED 6J^6 #TRA INSTPARAM+INSTPARL 6KDQ %A %B 6KYB #ALT INSTPARL=37?+0?-INSTPARAM 6LD2 #END 6LXL ... NEWIP %C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V 6MC= ) 6MWW #NOR 6NBG ...[??? MENDIT SECT DIAG FGN 571 DOC 6NW6 ...#MAC MENDIT [M. DRUKKER 6P*Q [ 6PTB [ 6Q*2 [ ************ 6QSL [ * MENDIT * 6R#= [ ************ 6RRW [ 6S?G [ 6SR6 #DEF 31?=1? [REMEMBER THE LISTING LEVEL 6T=Q #DEF 92?=0 [INITIALISE MENDIT'S VERSION NUMBER 6TQB #STR :,%A [INCLUDE IF USER NAME NOT GIVEN 6W=2 ( 6WPL #STR *,%A 6X9= ( 6XNW #LIS %E+0 [DEFAULT LISTING LEVEL IS ZERO 6Y8G MD %A,%B,%C,%D,%E,%F,,%H [USER NAME OR "*" NOT SPECIFIED 6YN6 #LIS 31? 6^7Q #EXI 6^MB ) 7272 ) 72LL #LIS %F+0 [DEFAULT LISTING LEVEL IS ZERO 736= MD %B,%C,%D,%E,%F,%G,%A,%H [USER NAME OR "*" IS SPECIFIED 73KW #LIS 31? 745G #NOR 74K6 [??? MENDITA SECT DIAG FGN 552 DOC 754Q #MAC MENDITA [M.C.D. MANN 75JB [ 7642 [ 76HL [ ************* 773= [ * MENDITA * 77GW [ ************* 782G [ 78G6 [ 78^Q MENDIT %A,%B,%C,%D,%E,%F,%G,A 79FB #NOR 79^2 [??? MENDITP SECT DIAG FGN 552 DOC 7=DL #MAC MENDITP [M.C.D. MANN 7=Y= [ 7?CW [ 7?XG [ ************* 7#C6 [ * MENDITP * 7#WQ [ ************* 7*BB [ 7*W2 [ 7B*L MENDIT %A,%B,%C,%D,%E,%F,%G,P 7BT= #NOR 7C#W [??? MENDITMP SECT DIAG FGN 552 DOC 7CSG #MAC MENDITMP [M.C.D. MANN 7D#6 [ 7DRQ [ 7F?B [ ************** 7FR2 [ * MENDITMP * 7G=L [ ************** 7GQ= [ 7H9W [ 7HPG MENDIT %A,%B,%C,%D,%E,%F,%G,MP 7J96 #NOR 7J=C ...[??? MENDITF SECT DIAG FGN 562 DOC 7J?N ...#MAC MENDITF [M.C.D. MANN 7J#^ ...[ 7JB= ...[ 7JCH ...[ ************* 7JDS ...[ * MENDITF * 7JG5 ...[ ************* 7JHB ...[ 7JJM ...[ 7JKY ... MENDIT %A,%B,%C,%D,%E,%F,%G,F 7JM9 ...#NOR 7JXR ...[??? MD SECT DIAG FGN 579 DOC 7K8B #MAC MD [M.C.D. MANN 7KN2 [ 7L7L [ 7LM= [ ******** 7M6W [ * MD * 7MLG [ ******** 7N66 [ 7NKQ [ 7NL5 ...#SKI GFIXCORE<1$1 [NOT COMPILING FIXED CORE 7NLD ...( 7NLR ...#UNS K%A [ NON-PM SEGMENT? 7NM6 ...( 7NMF ...#SKI K%A<20-20 [FIXED CORE AT BEG OF CHAPTER TABLE 7NMS ...( 7NN7 ...#STR MESS,%A 7NNG ...( 7NNT ...! MENDIT OF FIXED CORE SEGMENT 7NP8 ...#CON MENDIT IGNORED 7NPH ...#EXI 7NPW ...) 7NQ9 ...) 7NQJ ...) 7NQX ...) 7NR= ...#UNS K%A [ NON-PM SEGMENT? 7NRK ... 7NRY ...#STR 7NS? ...( 7NSL ...#UNS L%A [IS IT A NEW SEGMENT 7NS^ ...( 7NT# ...#UNS J%A [IS IT A PM SEGMENT? 7NTM ...( 7NW2 ...#STR PM,%F 7NW* ...( 7NWN ...! PM SEGMENTS MUST HAVE A PM PARAM 7NX3 ...#CON MENDIT IGNORED 7NXB ...#EXI 7NXP ...) 7NY4 ...#STR FIXINT,%A 7NYC ...#STR 7NYQ ...( 7N^5 ...#SKI GFIXCORE<1$1 7N^D ...( 7N^R ...! CANNOT MENDIT FIXINT OUTSIDE FIXED CORE 7P26 ...#CON MENDIT IGNORED 7P2F ...#EXI 7P2S ...) 7P37 ...) 7P3G ...) 7P3T ...) 7P48 ...) 7P5B #STR PM,%F [SKIP IF COMPILING PM 7PK2 ( 7Q4L #SKI GFIXCORE [EXIT FROM THE MACRO IF 7QJ= ( [FIXED CORE IS BEING COMPILED 7R3W #SKI AHD%A [AND THIS SEGMENT HAS ALREADY 7RHG #EXI [BEEN COMPILED 7S36 ) 7SGQ ) 7T2B #ALT AMQ5=0 7TG2 #UNS L%A [SKIP IF THE SEGMENT IS NEW 7T^L #ALT AMQ5=1 [SET 0 IF THE SEGMENT IS NEW 7WF= #SKI AMQ5 [IF THE SEGMENT ISN'T NEW 7WYW ( 7XDG #SKI GFIXCORE<1$1 [AND WE'RE NOT COMPILING FIXED CORE 7XY6 #REM %A [REMEMBER THE SEGMENT'S OLD D-ADDRESS 7YCQ ) 7^C2 #DEF 30?+32=1 [WORD 31 SET 0 BY RES IF MENDIT FAILS 7^WL #NEW %A [FORGET OLD VERSION OF THE SEGMENT 82B= #STR %G 82TW COMPILE %G,%A,%B,%C,%D,%H 83*G #STR %G 83T6 #SKI 84#Q COMPILE %A,%B,%C,%D,%H 84SB #LIS %E+0 8548 ...#SKI ADTPFH<1$1 85#2 #GEO RL *CR1 85RL #SKI 30?+32]<1$1 [INCLUDE IF THE MENDIT FAILED 86?= ( 86QW #CON MENDIT IGNORED [DISPLAY "MENDIT IGNORED" 87=G #EXI [AND EXIT FROM THE MACRO 87Q6 ) 889Q #SKI AMQ5<1$1 8992 #CON NEW SEGMENT 89NL #SKI AMQ5 [SKIP COMPRESSION 8=8= ( [ IF THE SEGMENT IS NEW 8=MW #SKI GFIXCORE<1$1 [ OR COMPILING FIXED CORE 8?M6 ( 8#6Q #STR PATCH,%F [ OR IF THE SEGMENT IS PATCHED 8#LB #COM %A [TRY AND MOVE THE SEGMENT DOWN 9H8Q ) 9HNB ) 9J82 #STR PM,%F [SKIP IF COMPILING PM 9JML ( 9K7= #SKI GFIXCORE<1$1 [OR IF COMPILING FIXED CORE 9KLW ( 9L6G #SKI GPATCH [INCLUDE IF IN PATCH ENVIRONMENT 9LL6 ( 9M5Q #STR NOPATCH,%F 9MKB PATCH %A,%B [SET UP PATCH RECORD FOR SEGMENT 9N52 #STR NOPATCH,%F 9NJL #SKI 9P4= NEWCHENT %A [SET UP CHAPTER TABLE ENTRY 9PHW ) 9Q3G #SKI GPATCH-1 [INCLUDE IF NOT PATCH ENVIRONMENT 9QH6 ( 9R2Q #STR PATCH,%F 9RGB #SKI 9S22 PATCH %A,%B [SET UP PATCH RECORD FOR SEGMENT 9SFL #STR PATCH,%F 9S^= NEWCHENT %A [SET UP CHAPTER TABLE ENTRY 9TDW ) 9TYG ) 9WD6 ) 9WXQ #STR PM,%F [INCLUDE IF COMPILING PM 9XCB #SKI 9XX2 ( 9YBL PMNEWCHENT %A [SET UP PM "CHAPTER TABLE" ENTRY 9YW= PMSIZE [AND RESET MINIMUM FIXED CORE SPACE 9^*W ) 9^TG #STR PM,%F [SKIP IF COMPILING PM =2*6 ( =2SQ #SKI GFIXCORE [IF COMPILING FIXED CORE, REMEMBER =3#B #ALT AHD%A=1 [THAT THIS SEGMENT HAS BEEN COMPILED =3S2 ) =3SJ ...#STR FSTABLE,%A =3T6 ...#STR =3TN ...( =3W= ...#MEN LOADERGO =3WS ...#TRA JLTABLE [ AMEND D AND L FOR =3XB ... +LFSTABLE [FSTABLE IN LOADER =3XY ...#TRA JLTABLE+2 =3YG ... +DFSTABLE =3^4 ...#TRA JLTMCNT+1 =3^L ... +DFSTABLE+FIRS =428 ...#END =42Q ...) =43# ...#STR CDUM,%A =43W ...#STR =44D ...( =452 ...#MEN LOADERGO [AMEND DS AND LS IN LOADER =45J ...#TRA JLTABLE +1 =466 ... +LCDUM =46N ...#TRA JLTABLE+3 =47= ... +DCDUM =47S ...#END =48B ...#MEN LOADERDA =48Y ...#TRA JLUNDC =49G ... +AUNRES+DCDUM,+ARES+DCDUM =4=4 ...#END =4=L ...) =4=R ...#SKI 23? =4=Y ...( =4?5 ...#ALT 23? = 0 =4?= ...#EXI =4?C ...) =4?L ... MODSENT %A%B,%F,%A [SET UP A "MODS" RECORD =4R= #NOR =5=W [??? MODSENT SECT DIAG FGN 570 DOC =5QG #MAC MODSENT [M. DRUKKER =6=6 [ =6PQ [ =79B [ ************* =7P2 [ * MODSENT * =88L [ ************* =8N= [ =97W [ =9MG [ THIS MACRO ISSUES A "#FILE" DIRECTIVE TO CAUSE GIN TO SET UP ==76 [ A RECORD IN ONE OF THE "MODS" SEGMENTS FOR THE SEGMENT JUST ==LQ [ MENDITED =?6B [ =?7M ...#SKI 867>G3ISSUE$G3ISSUE =?8Y ...( =?=9 ...#SKI ANEWMODS<1$1 =??G ...( =?#R ...#GEO AL 8508,LDN 5 #47 =?B4 ...#GEO AL 8517,LDN 5 #47 =?C* ...#GEO AL 8526,LDN 5 #47 =?DL ...#GEO AL 3013,991 =?FX ...#ALT ANEWMODS = 1 =?H8 ...) =?JF ...) =?L2 #STR PM,%B =#5L #SKI =#K= ( =*4W #FIL %A,PM [PM SEGMENT =*JG #EXI =B46 ) =BHQ #STR LO,%B =C3B #SKI =CH2 ( =D2L #FIL %A,LO [LOADER SEGMENT =DG= #EXI =D^W ) =FFG #SKI GFIXCORE [SKIP IF NOT COMPILING FIXED CORE =F^6 ( =GDQ #FIL %A,FC [FIXED CORE SEGMENT =GYB #EXI =HD2 ) =HXL #STR FC,%B =JC= #SKI =JWW ( =KBG #FIL %A,FC [FIXED CORE SEGMENT =KW6 #EXI =L*Q ) =LTB #SKI GPATCH [INCLUDE IF IN PATCH ENVIRONMENT =M*2 ( =MSL #STR NOPATCH,%B =N#= #SKI =NRW ( =PR6 #EXI =Q=Q ) =QQB #FIL %A,PA [PATCHED CHAPTER =R=2 #EXI =RPL ) =S9= #SKI GPATCH [INCLUDE IF NOT PATCH ENVIRONMENT =SNW #SKI =T8G ( =TN6 #STR PATCH,%B =W7Q #SKI =WMB ( =X72 #FIL %A,PA [PATCHED CHAPTER =XLL #EXI =Y6= ) =YKW ) =^5G ...#FIL %A =^K6 #NOR ?24Q [??? PATCH SECT DIAG FGN 552 DOC ?2JB #MAC PATCH [J.T. WIFFEN ?342 [ ?3HL [ ?43= [ *********** ?4GW [ * PATCH * ?52G [ *********** ?5G6 [ ?5^Q [ ?6FB #UNS K%A [SKIP IF THE CHAPTER IS NEW ?6^2 ( ?7DL #MEN PATINF [UPDATE PATCH INFORMATION AREA ?7Y= #ALT ANGC=ANGC+1 [INCREMENT NO. OF CHAPTERS STORED ?8CW #TRA ANGNUM ?8XG +ANGC ?9C6 #TRA AFPOINT ?9WQ 12H%A%B [CHAPTER NAME AND VERSION NUMBER ?=BB +K%A [CHAPTER NUMBER ?=W2 #FID 1,10,L%A [LENGTH IN BITS 1 - 10 ??*L +D%A [BACKING-STORE START ADDRESS ??T= #ALT AFPOINT=AFPOINT+5 ?##W #END ?#SG ) ?*#6 #UNS K%A [INCLUDE IF THE CHAPTER IS NEW ?*RQ #SKI ?B?B ( ?BR2 NEWCHENT %A ?C=L #DEF 20?=1? [REMEMBER THE LISTING LEVEL ?CQ= #LIS 4 ?D9W # %A IS A NEW CHAPTER AND CANNOT BE PATCHED: ?DPG # IT HAS BEEN COMPILED AS A "PERMANENT" CHAPTER ?F96 #LIS 20? ?FNQ ) ?G8B ) ?GN2 ) ?H7L #NOR ?HM= [??? NEWMAC SECT DIAG FGN 555 DOC ?J6W #MAC NEWMAC [M.C.D. MANN ?JLG [ ?K66 [ ?KKQ [ ************ ?L5B [ * NEWMAC * ?LK2 [ ************ ?M4L [ ?MJ= [ ?MN7 #UNS AMACDEVSYS [PRE- MACRO HANDLING ENHANCEMENT ?MS4 #SKI ?MX^ ( ?N3W #DEF 31?=1? [REMEMBER THE LISTING LEVEL ?NHG #DEF 83?=1 [SUPPRESS "G" FLAGS ON #MACS ?P36 #LIS 0 ?PGQ NWMC %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N ?Q2B #LIS 31? [RESTORE THE LISTING LEVEL ?QG2 USEFILE %A [ASSIGN AND COMPILE THE FILE ?QSC #SKI ADTPFH<1$1 ?R6S #GEO RL *CR1 ?RF= #DEF 83?=0 [CANCEL SUPPRESSION OF "G" FLAGS ?RYW #LIS 31? ?SDG #PAG ?SFX ) ?SH# #UNS AMACDEVSYS [MACRO HANDLING ENHANCEMENT ?SJP ( ?SKG #STR :,%A [IF USER-NAME NOT SPECIFIED: ?SMD USEFILE %A(%B) [COMPILE THE NEW MACRO DEFINITION ?SPC #STR :,%A [IF USER-NAME IS SPECIFIED: ?SQ* #SKI ?SRQ USEFILE %A.%B(%C) [COMPILE THE NEW MACRO DEFINITION ?ST7 #PAG ?SWJ ) ?SY6 #NOR ?SYN ...[??? OLDMAC SECT DIAG FGN 556 DOC ?S^= #MAC OLDMAC [M.C.D. MANN ?S^S [ ?T2B [ ?T2Y [ ************ ?T3G [ * OLDMAC * ?T44 [ ************ ?T4L [ ?T58 [ ?T6W #DEF 31?=1? [REMEMBER THE LISTING LEVEL ?T7D #DEF 83?=1 [SUPPRESS "G" FLAGS ON #MACS ?T82 #LIS 0 ?T8J NWMC %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N ?T96 #LIS 31? [RESTORE THE LISTING LEVEL ?T9N USEFILE %A [ASSIGN AND COMPILE THE FILE ?T== #SKI ADTPFH<1$1 ?T=S #GEO RL *CR1 ?T?B #DEF 83?=0 [CANCEL SUPPRESSION OF "G" FLAGS ?T?Y #LIS 31? ?T#G #PAG ?TBQ #NOR ?TCQ [??? NWMC SECT DIAG FGN 552 DOC ?TXB #MAC NWMC [M.C.D. MANN ?WC2 [ ?WWL [ ?XB= [ ********** ?XTW [ * NWMC * ?Y*G [ ********** ?YT6 [ ?^#Q [ ?^SB #STR %A #2#2 ( #2RL LOSEMACR %A #3?= NWMC %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M #3QW ) #4=G #NOR #4=Q [??? REPMAC SECT DIAG FGN 555 DOC #4?2 #MAC REPMAC [M.C.D. MANN #4?= [ #4?G [ #4?Q [ ************ #4#2 [ * REPMAC * #4#= [ ************ #4#G [ #4#Q [ #4*2 #UNS AMACDEVSYS [MACRO HANDLING ENHANCEMENT #4*= ( #4*D #STR :,%A [IF USER-NAME NOT SPECIFIED: #4*L ( #4*Q LOSEMACR %A [FORGET THE EXISTING DEFINITION #4B2 USEFILE %A(%B) [AND COMPILE THE NEW DEFINITION #4B= ) #4BG #STR :,%A #4BQ #SKI [IF USER-NAME IS SPECIFIED: #4C2 ( #4C= LOSEMACR %B [FORGET THE EXISTING DEFINITION #4CG USEFILE %A.%B(%C) [AND COMPILE THE NEW DEFINITION #4CQ ) #4D2 #PAG #4D= #EXI #4DG ) #4DQ ! "REPMAC" MACRO NOT YET AVAILABLE [PRE- MACRO HANDLING ENHANCEMENT #4F2 #NOR #4F= [??? REPMACL SECT DIAG FGN 555 DOC #4FG #MAC REPMACL [M.C.D. MANN #4FQ [ #4G2 [ #4G= [ ************* #4GG [ * REPMACL * #4GQ [ ************* #4H2 [ #4H= [ #4HG #UNS AMACDEVSYS [MACRO HANDLING ENHANCEMENT #4HQ ( #4J2 #SKI ADTP<1$1 #4J= ( #4JG ! NOT ALLOWED IN THIS CONTEXT [REPMACL NOT ALLOWED EXTERNALLY #4JQ #EXI #4K2 ) #4K5 #STR :,%A [IF USER-NAME NOT SPECIFIED: #4K8 ( #4K? LOSEMACR %A [FORGET THE EXISTING DEFINITION #4KB #SKI ADTPFH #4KF #GEO REPMACL ,%A,FH [ASSIGN THE MACRO FILE ON *FH1 #4KJ #SKI ADTPFH<1$1 #4KM #GEO REPMACL ,%A [OR ON *CR1 AS APPROPRIATE #4KQ ) #4KW #STR :,%A [IF USER-NAME IS SPECIFIED: #4L2 #SKI #4L7 ( #4L# LOSEMACR %B [FORGET THE EXISTING DEFINITION #4LG #SKI ADTPFH #4LQ #GEO REPMACL %A,%B,FH [ASSIGN THE MACRO FILE ON *FH1 #4M2 #SKI ADTPFH<1$1 #4M8 #GEO REPMACL %A,%B [OR ON *CR1 AS APPROPRIATE #4MB ) #4MJ USEFILE [COMPILE THE NEW DEFINITION #4MQ #SKI ADTPFH<1$1 #4N2 #GEO RL *CR1 #4N= #PAG #4NG #EXI #4NQ ) #4P2 ! "REPMACL" MACRO NOT YET AVAILABLE [PRE- MACRO HANDLING ENHANCEMENT #4P= #NOR #4^G ...[??? REPLACER SECT DIAG FGN 570 DOC #59Q #MAC REPLACER [M. DRUKKER #5PB [ #692 [ #6NL [ ************** #78= [ * REPLACER * #7MW [ ************** #87G [ #8M6 [ #96Q #SKI GCOMP [INCLUDE FOR INITIAL COMPILATION ONLY #9LB #ALT %A=0?+37? #=62 #SKI GCOMP-1 [INCLUDE DURING A RESTORE #=KL ( #?5= #UNS %A [INCLUDE IF THE REPLACER IS NEW #?JW #SKI ##4G ( ##J6 #ALT %A=APATPT [INSERT REPLACER IN THE GAP AREA #*3Q #ALT APATPT=APATPT+1 [AND UPDATE THE START OF THE GAP #*HB #SKI APATLEN-APATPT+APATPI� #B32 ( #BGL ! PATCH SPACE IS TOO LARGE TO BE LOADED: #BT3 ...) #C7D ...) #CFW ) #DYQ #TRA %A #FDB #STR BRN,%C #FY2 #STR #GCL BRN O%B [INCLUDED IF %C IS "BRN" #GJS ...#STR INS,%C #GQ2 ...#STR #GX8 ... %B #H4B ...#STR %C #H9J ...#STR #HBW +O%B [INCLUDED IF %C ISN'T "BRN" #HWG #SKI GCOMP-1 [INCLUDE DURING A RESTORE #JB6 #TRA APATPT [RESET TO NEXT POSITION IN PATCH SPAC #JTQ #NOR #K*B [??? LABFIX SECT DIAG FGN 552 DOC #KT2 #MAC LABFIX [M.C.D. MANN #L#L [ #LS= [ #M?W [ ************ #MRG [ * LABFIX * #N?6 [ ************ #NQQ [ #P=B [ #PQ2 #DEF O%A=0?+37? #Q9L #NOR #QP= [??? TRANSFIX SECT DIAG FGN 552 DOC #R8W #MAC TRANSFIX [M.C.D. MANN #RNG [ #S86 [ #SMQ [ ************** #T7B [ * TRANSFIX * #TM2 [ ************** #W6L [ #WL= [ #X5W %A O%B #XKG #NOR #Y56 [??? FIXTRA SECT DIAG FGN 552 DOC #YJQ #MAC FIXTRA [M.C.D. MANN #^4B [ #^J2 [ *23L [ ************ *2H= [ * FIXTRA * *32W [ ************ *3GG [ *426 [ *4FQ #ALT %A=0?+37? *4^B #NOR *5F2 [??? NEWVAL SECT DIAG FGN 552 DOC *5YL #MAC NEWVAL [M.C.D. MANN *6D= [ *6XW [ *7CG [ ************ *7X6 [ * NEWVAL * *8BQ [ ************ *8WB [ *9B2 [ *9TL #STR %A [FINISH RECURSION WHEN ALL PARAMS ACC *=*= ( *=SW #ALT %A [ALTER EACH PARAMETER IN TURN *?#G NEWVAL %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T, - *?S6 %U,%V,%W,%X,%Y,%Z [AND RECURSE FOR FURTHER PARAMETERS *#?Q ) *#RB #NOR **?2 ...[??? NEWCOMP SECT DIAG FGN 562 DOC **QL #MAC NEWCOMP [M.C.D. MANN *B== [ *BPW [ *C9G [ ************* *CP6 [ * NEWCOMP * *D8Q [ ************* *DNB [ *F82 [ *FML #DEF 31?=1? [REMEMBER THE LISTING LEVEL *FSS ...#STR *,%A *G22 ...( *G7= #LIS %B+0 [DEFAULT LISTING LEVEL IS ZERO *GLW USEFILE %A [ASSIGN AND COMPILE THE FILE *H6G ...#PAG ["*" NOT SPECIFIED *J5Q #LIS 31? *JKB ...#EXI *K52 ...) *KJL ...#LIS %C+0 [DEFAULT LISTING LEVEL IS ZERO *PFL #SKI ADTP [IF THIS IS AN INTERNAL RESTORE *PQH ( [ASSIGN THE HIGHEST PUBLIC GENERATION *Q3D #SKI ADTPFH [OF THE SPECIFIED FILE *Q#* ...#GEO MENDIT *,%B,FH [USING *FH IF ADTPFH=1 *QK= #SKI ADTPFH<1$1 *R4W ...#GEO MENDIT *,%B [OR *CR OTHERWISE *RJG ... USEFILE [COMPILE THE FILE *S46 ...#PAG ["*" IS SPECIFIED *SHQ ...#LIS 31? BBLL #EXI BB^6 ) BCDQ ...! NEWCOMP PARAMETER ERROR: "*" [ERROR USE OF "*" EXTERNALLY BCYB #DEF 30?+32=0 [FAIL THE MENDIT BCYJ ...#NOR BCYQ ...[??? LATEST SECT DIAG FGN 562 DOC BCYY ...#MAC LATEST [M.C.D. MANN BC^6 ...[ BC^# ...[ BC^G ...[ ************ BC^N ...[ * LATEST * BC^W ...[ ************ BD24 ...[ BD2= ...[ BD2D ...#SKI ADTP [IF THIS IS AN INTERNAL RESTORE BD2L ...( [ASSIGN THE HIGHEST PUBLIC GENERATION BD2S ...#SKI ADTPFC<1$1 BD32 ...( BD38 ...#SKI ADTPFH [OF THE SPECIFIED FILE BD3B ...#GEO MENDITP %A,%B,FH [USING *FH IF ADTPFH=1 BD3J ...#SKI ADTPFH<1$1 BD3Q ...#GEO MENDITP %A,%B [OR *CR OTHERWISE BD3Y ...#EXI BD46 ...) BD4# ...#SKI ADTPFH [OF THE SPECIFIED FILE BD4G ...#GEO MENDITF %A,%B,FH [USING *FH IF ADTPFH=1 BD4N ...#SKI ADTPFH<1$1 BD4W ...#GEO MENDITF %A,%B [OR *CR OTHERWISE BD54 ...#EXI BD5= ...) BD5D ...! NOT ALLOWED IN THIS CONTEXT [EXTERNALLY: ERROR BD5L ...#DEF 30?+32=0 [FAIL THE MENDIT AND BD5S ...#PAU GE [HALT TO ASSIGN A DUMMY FILE BD62 ...#NOR BD68 ...[??? COMPILE SECT DIAG FGN 552 DOC BD6B ...#MAC COMPILE [M.C.D. MANN BD6J ...[ BD6Q ...[ BD6Y ...[ ************* BD76 ...[ * COMPILE * BD7# ...[ ************* BD7G ...[ BD7N ...[ BD7W ...#STR :,%A BD84 ...( BD8= ...#STR *,%A BD8D ...( BD8L ... COMP ,%A,%B,%C,%D,%E BD8S ...#EXI BD92 ...) BD98 ...) BD9B ... COMP %A,%B,%C,%D,%E,%F BD9J ...#NOR BD9Q ...[??? COMP SECT DIAG FGN 571 DOC BD9Y ...#MAC COMP [M. DRUKKER BD=6 ...[ BD=# ...[ BD=G ...[ ********** BD=N ...[ * COMP * BD=W ...[ ********** BD?4 ...[ BD?= ...[ BD?D ...#ALT K0%B=%E+0 [SET THE SEGMENT LISTING LEVEL BD?L ...#STR *,%A BD?S ...#SKI BD#2 ...( BD#8 ...#SKI ADTP [IF THIS IS AN INTERNAL RESTORE BD#B ...( [AND THE FIRST PARAMETER IS "*" BD#J ...#SKI ADTPFH [ASSIGN THE HIGHEST PUBLIC GENERATION BD#Q ...#GEO MENDIT *,%B%C,FH [OF THE SPECIFIED FILE BD#Y ...#SKI ADTPFH<1$1 [USING *FH IF ADTPFH = 1 BD*6 ...#GEO MENDIT *,%B%C [OR *CR OTHERWISE BD*# ... USEFILE [COMPILE THE FILE BD*G ...#EXI BD*N ...) BD*W ...! MENDIT PARAMETER ERROR: "*" [ERROR USE OF "*" EXTERNALLY BDB4 ...#DEF 30?+32=0 [FAIL THE MENDIT BDD2 #EXI BDXL ) BFC= #STR %F BFWW #SKI BGBG ( BGW6 #SKI ADTP [IF THIS IS A SIMPLE MENDIT... BH*Q ( BHTB #STR %A BH^S ( BJ6= #SKI ADTPFH [INTERNALLY... BJ=N #GEO MENDIT %A.%B%C(%D),,FH [ASSIGN THE FILE ON *FH1 BJC6 #SKI ADTPFH<1$1 BJHJ #GEO MENDIT %A.%B%C(%D) [OR ON *CR1 AS APPROPRIATE BJN2 ) BJSL #STR %A BK#= #SKI BKDN ( BKK6 #SKI ADTPFH BKPJ #GEO MENDIT %A%B%C(%D),,FH BKW2 #SKI ADTPFH<1$1 BL2D #GEO MENDIT %A%B%C(%D) BL6W ) BL?G ) BLR6 #SKI ADTP<1$1 BM=Q ( BMCY ...#SKI ADTPFH [ASSIGN VIA *FH1 BMK6 ...( BMQB #STR %A BN=2 ...#GEO AS *FH1,%A.%B%C(%D) [EXTERNALLY: JUST ASSIGN THE FILE BNPL #STR %A BP9= #SKI BPNW ...#GEO AS *FH1,%A%B%C(%D) BQ8G ) BQ=4 ...#SKI ADTPFH<1$1 [ASSIGN VIA *CR1 BQ?L ...( BQ*8 ...#STR %A BQBQ ...#GEO AS *CR1,%A.%B%C(%D) [EXTERNALLY: JUST ASSIGN THE FILE BQD# ...#STR %A BQFW ...#SKI BQHD ...#GEO AS *CR1,%A%B%C(%D) BQK2 ...) BQLJ ...) BQLW ...#STR %D BQM8 ...#DEF 89?=%D [GENERATION BQMG ...#STR %C BQMS ...#DEF 92?=%C [VERSION BQN6 USEFILE [AND COMPILE THE SOURCE FILE BR7Q #EXI BRMB ) BS72 #STR TAPE,%F BSLL #SKI BT6= ( [IF CALLED FROM TMENDIT BTKW #POS MT7,%B%C [POSITION THE TAPE BW5G #USE MT7 [AND COMPILE THE FILE BWK6 #EXI BX4Q ) BXJB #SKI ADTP BY42 #SKI [IN EXTERNAL RESTORES ONLY BYHL ( B^3= ! MENDIT PARAMETER ERROR: %F [ERROR ANY OTHER %F B^GW #DEF 30?+32=0 [AND FAIL THE MENDIT C22G #EXI C2G6 ) C2^Q #STR A,%F C3FB #SKI C3^2 ( [IF CALLED FROM MENDITA C44X #SKI ADTPFH C48S #GEO MENDITA %A,%B,%C,%D,FH C4#P #SKI ADTPFH<1$1 C4DL #GEO MENDITA %A,%B,%C,%D [ASSIGN LATEST ACCEPTABLE VERSION C4Y= USEFILE [AND COMPILE THE FILE C5CW #EXI C5XG ) C6C6 #STR P,%F C6WQ #SKI C7BB ( [IF CALLED FROM MENDITP C7G? #SKI ADTPFH C7L8 #GEO MENDITP %B,%C,FH C7Q5 #SKI ADTPFH<1$1 C7W2 #GEO MENDITP %B,%C [ASSIGN THE LATEST PUBLIC VERSION C8*L USEFILE [AND COMPILE THE FILE C8T= #EXI C9#W ) C9SG #STR MP,%F C=#6 #SKI C=RQ ( [IF CALLED FROM MENDITMP C=XM #SKI ADTPFH C?3J #GEO MENDITMP %B,%C,%D,FH C?7F #SKI ADTPFH<1$1 C??B #GEO MENDITMP %B,%C,%D [ASSIGN LATEST MIN PUBLIC VERSION C?R2 USEFILE [AND COMPILE THE FILE C#=L #EXI C#Q= ) C#RM ...#STR F,%F C#T4 ...#SKI C#WF ...( [IF CALLED FROM MENDITF C#XW ...#SKI ADTPFH C#^? ...#GEO MENDITF %B,%C,FH C*2N ...#SKI ADTPFH<1$1 C*45 ...#GEO MENDITF %B,%C [ASSIGN THE LATEST PUBLIC VERSION C*5G ... USEFILE [AND COMPILE THE FILE C*6X ...#EXI C*8# ...) C*9W ! MENDIT PARAMETER ERROR: %F [ERROR ANY OTHER %F C*PG #DEF 30?+32=0 [AND FAIL THE MENDIT CB96 #NOR CBNQ [??? TMENDIT SECT DIAG FGN 552 DOC CC8B #MAC TMENDIT [M.C.D. MANN CCN2 [ CD7L [ CDM= [ ************* CF6W [ * TMENDIT * CFLG [ ************* CG66 [ CGKQ [ CH5B #DEF 31?=1? [REMEMBER THE LISTING LEVEL CHK2 #STR %A [FLAG AN ERROR IF FILE NAME OMITTED CJ4L #SKI CJJ= ( CK3W ! FILE NAME OMITTED : TMENDIT IGNORED ! CKHG #LIS 31? CL36 #EXI CLGQ ) CM2B #STR :,%A CMG2 ( CM^L #STR *,%A CNF= ( CNYW #LIS %E+0 CPDG MD %A,%B,%C,%D,%E,%F,,TAPE CPY6 #LIS 31? CQCQ #EXI CQXB ) CRC2 ) CRWL ! * AND : NOT ALLOWED IN TMENDIT ! CSB= #LIS 31? CSTW #NOR CT*G ...[??? CHAPENT SECT DIAG FGN 569 DOC CTT6 #MAC CHAPENT [M. DRUKKER CW#Q [ CWSB [ CX#2 [ ************* CXRL [ * CHAPENT * CY?= [ ************* CYQW [ C^=G [ C^Q6 #SKI GCOMP [INCLUDE FOR INITIAL COMPILATION ONLY D29Q ( D2PB #DEF K%A=0? D392 -1 D3NL #EXI D48= ) D4MW #UNS K%A [INCLUDE IF THE CHAPTER IS NEW D57G #SKI D5M6 ( D64N ...#SKI AENDCHAPS -KTAB - KLTAB-1 � D6G= ...( D6XS ...! NO ROOM FOR FURTHER CHAPTERS D7*B ...#SKI KLTAB-990 D7QY ...! PLEASE USE UMNEWFIX D88G ...#ALT 23? = 1 D8L4 ...#EXI D93L ...) D9F8 ...#SKI AENDCHAPS-KTAB-KLTAB-1�<1$1 D9WX ...( D9XL ...#ALT K%A=KLTAB [DEFINE A NEW CHAPTER NUMBER D9Y* ...#ALT KLTAB=K%A+1 [AND UPDATE END OF TABLE POINTER D9^4 ...) D=2G ...) D=3Q #TRA KTAB+K%A [SET UP THE CHAPTER TABLE ENTRY D=HB +D%A/128 D?32 #FID 1 8 +L%A/4 D?=S ...#ALT 23? = 0 D?GL #NOR D#2= [??? NEWCHENT SECT DIAG FGN 552 DOC D#FW #MAC NEWCHENT [M.C.D. MANN D#^G [ D*F6 [ D*YQ [ ************** DBDB [ * NEWCHENT * DBY2 [ ************** DCCL [ DCX= [ DDBW #MEN CHTABLE DDWG CHAPENT %A DFB6 #END %B DFBQ ...#SKI 23? DFCB ...#EXI DFD4 ...#SKI G3 DFG2 ...( DFHY ...#MEN LOADEREM DFKW ...#TRA JLXCHPCT DFMS ... +KLTAB-1 DFPQ ...#END DFRN ...) DFTQ #NOR DG*B [??? NEWCHAP SECT DIAG FGN 552 DOC DGT2 #MAC NEWCHAP [M.C.D. MANN DH#L [ DHS= [ DJ?W [ ************* DJRG [ * NEWCHAP * DK?6 [ ************* DKQQ [ DL=B [ DLQ2 NEWCHENT %A,%B DM9L #NOR DMP= [??? FREEZE SECT DIAG FGN 552 DOC DN8W #MAC FREEZE [M.C.D. MANN DNNG [ DP86 [ DPMQ [ ************ DQ7B [ * FREEZE * DQM2 [ ************ DR6L [ DRL= [ DS5W ...#TID DSKG #GEO G3PDFREEZE %A,%B,%C,%D,%E DT56 #NOR DTJQ [??? FS SECT DIAG FGN 552 DOC F5BQ #MAC FS [M.C.D. MANN F5WB [ F6B2 [ F6TL [ ******** F7*= [ * FS * F7SW [ ******** F8#G [ F8S6 [ F9?Q FSFILE %A,%B,%C,%D,%E F9RB #NOR F=?2 [??? FSLOAD SECT DIAG FGN 553 DOC F=QL #MAC FSLOAD [M.C.D. MANN F?== [ F?PW [ F#9G [ ************ F#P6 [ * FSLOAD * F*8Q [ ************ F*NB [ FB82 [ FBML #MEN LOADERI FC7= #TRA K1FSLOADER FCLW #STR %A,OFF FD6G #SKI FDL6 ( FF5Q BRN K2FSLOADER FFKB #END FFLY ...#UNS FPRJW FFNG ...( FFQ4 ...#MEN BMQUEST FFRL ...#TRA K90BMQUEST FFT8 ... BRN K91BMQUEST FFWQ ...) FFY# ...#UNS FPRJW FF^W ...#SKI FG3D ...( FG52 ...#MEN BACKMAP FGJL ...#TRA K90BACKMAP FH4= ... BRN K91BACKMAP FH#4 ...) FHHW #END FJ3G #EXI FJH6 ) FK2Q #STR %A,GR FKGB #SKI FL22 ( FLFL NULL FL^= #END FMDW #MEN LOADERFS FMYG #TRA JLCOPY FND6 -1 FNXQ #TRA JLGENRES FPCB 0 FPX2 #END FPYP ...#UNS FPRJW FQ2D ...( FQ47 ...#MEN BMQUEST FQ5W ...#TRA K90BMQUEST FQ7K ...) FQ9# ...#UNS FPRJW FQ?3 ...#SKI FQ#Q ...( FQBL ...#MEN BACKMAP FQW= ...#TRA K90BACKMAP FR64 ...) FR*W NULL FRTG #END FS*6 #EXI FSSQ ) FT#B #STR %A,SAME FTS2 #SKI FW?L ( FWR= NULL FX=W #END FXQG #MEN LOADERFS FY=6 #TRA JLCOPY FYPQ -1 F^9B #TRA JLGENRES F^P2 -1 G28L #END G2=* ...#UNS FPRJW G2#4 ...( G2*R ...#MEN BMQUEST G2CG ...#TRA K90BMQUEST G2F9 ...) G2GY ...#UNS FPRJW G2JM ...#SKI G2LB ...( G2N= ...#MEN BACKMAP G37W ...#TRA K90BACKMAP G3CN ...) G3MG NULL G476 #END G4LQ #EXI G56B ) G5L2 #STR %A,COPY G65L #SKI G6K= ( G74W NULL G7JG #END G846 #MEN LOADERFS G8HQ #TRA JLFSNAMES G93B #STR %B G9H2 12H%B G=2L #TRA JLFSNAMES+3 G=G= #STR %C G=^W 12H%C G?FG #TRA JLCOPY G?^6 0 G#DQ #TRA JLGENRES G#YB 0 G*D2 #END G*FP ...#UNS FPRJW G*HD ...( G*K7 ...#MEN BMQUEST G*LW ...#TRA K90BMQUEST G*NK ...) G*Q# ...#UNS FPRJW G*S3 ...#SKI G*TQ ...( G*XL ...#MEN BACKMAP GBC= ...#TRA K90BACKMAP GBM4 ...) GBWW NULL GCBG #END GCW6 #EXI GD*Q ) GDTB ! *** FSLOAD PARAMETER ERROR : %A *** GF*2 #CON FSLOAD MACRO: PARAMETER ERROR GFSL #NOR GG#= [??? DIRENT SECT DIAG FGN 552 DOC GGRW #MAC DIRENT [M.C.D. MANN GH?G [ GHR6 [ GJ=Q [ ************ GJQB [ * DIRENT * GK=2 [ ************ GKPL [ GL9= [ GLNW #STR %A,ON GM8G #SKI GMN6 ( GN7Q #MEN DIRENT GNMB #TRA K90DIRENT GP72 NULL GPLL #END GQ6= #EXI GQKW ) GR5G #STR %A,OFF GRK6 #SKI GS4Q ( GSJB #MEN DIRENT GT42 #TRA K90DIRENT GTHL BRN K91DIRENT GW3= #END GWGW #EXI GX2G ) GXG6 ! *** DIRENT PARAMETER ERROR : %A *** GX^Q #CON DIRENT MACRO: PARAMETER ERROR GYFB #NOR GY^2 ...[??? CMENDIT SECT DIAG FGN 576 DOC G^DL #MAC CMENDIT [M.C.D. MANN G^Y= [ H2CW [ H2XG [ H3C6 [ ************* H3WQ [ * CMENDIT * H4BB [ ************* H4W2 [ H5*L [ H5T= #STR :,%A H6#W #SKI H6SG ( H7#6 #MEN %B H7RQ #ALT CMENDCH1=D%B&127+34?+L%B+30?] H8R2 #END H9=L MENDIT %A,%B,%C,%D,%E,%F,%G H9Q= #MEN %B H=9W #ALT CMENDCH2=D%B&127+34?+L%B+30?] H?96 #END H?NQ ...#SKI CMENDCH1$CMENDCH2 H#8B #CON %A.%B%C(%D) CHECKSUM WRONG H#N2 ...#SKI CMENDCH1$CMENDCH2 H*7L #SKI H*M= #CON %A.%B%C(%D) CHECKSUM OK HB6W ) HBLG #STR :,%A HC66 ( HCKQ #MEN %A HD5B #ALT CMENDCH1=D%A&127+34?+L%A+30?] HF4L #END HFJ= MENDIT %A,%B,%C,%D,%E,%F,%G HG3W #MEN %A HGHG #ALT CMENDCH2=D%A&127+34?+L%A+30?] HHGQ #END HJ2B ...#SKI CMENDCH1$CMENDCH2 HJG2 #CON %A%B(%C) CHECKSUM WRONG HJ^L ...#SKI CMENDCH1$CMENDCH2 HKF= #SKI HKYW #CON %A%B(%C) CHECKSUM OK HLDG ) HLY6 #NOR HMCQ ...[??? USEFILE SECT DIAG FGN 557 DOC HMXB #MAC USEFILE [M.C.D. MANN HNC2 [ HNWL [ HPB= [ ************* HPTW [ * USEFILE * HQ*G [ ************* HQT6 [ HR#Q [ HRSB #STR %A [IF A FILE NAME IS SPECIFIED: HS#2 ( HSRL #SKI ADTP HT?= #GEO *,TG %A(OWNE),RE [ISSUE "TG" (INTERNALLY ONLY) HTQW ...#SKI ADTPFH [ASSIGN THE FILE ON *FH1 HW=G ...#GEO AS *FH1,%A [IF ADTPFH=1 HWQ6 ...#SKI ADTPFH<1$1 [OR ON *CR1 OTHERWISE HX9Q ...#GEO AS *CR1,%A [ESPECIALLY IN ISSUED VERSIONS HXPB ) HY92 ...#SKI ADTPFH HYNL ...#USE FH1 [COMPILE THE FILE ON *FH1 H^8= ...#SKI ADTPFH<1$1 H^MW ...#USE CR1 [OR ON *CR1 AS APPROPRIATE J27G #NOR J2M6 [??? GINMOD SECT DIAG FGN 554 DOC J36Q #MAC GINMOD [M.C.D. MANN J3LB [ J462 [ J4KL [ ************ J55= [ * GINMOD * J5JW [ ************ J64G [ J6J6 [ J73Q #STR %A J7HB ( J832 USEFILE %A J8GL #EXI J92= ) J9FW ! PARAMETER OMITTED J9^G #NOR J=F6 ...[??? SAMECOMP SECT DIAG FGN 576 J=YQ ...#MAC SAMECOMP J?DB ...[ J?Y2 ...[ J#CL ...[ ******************* J#X= ...[ * SAMECOMP * J*BW ...[ ******************* J*WG ...[ JBB6 ...[ JBTQ ...#ALT 1?=31? JC*B ...#LIS 0 JCT2 ...#UNI JD#L ...#SKI 72? JDS= ...( JF?W ...#LIS 4 JFRG ... MUNS BEFORE JG?6 ...) JGQQ ... MENDIT %A,%B,%C,%D JH=B ...#DEF 1?=31? JHQ2 ...#LIS 0 JJ9L ...#UNI JJP= ...#SKI 72? JK8W ...( JKNG ...#LIS 4 JL86 ... MUNS AFTER JLMQ ...) JM7B ...#LIS 31? JMM2 ... CMENDIT %E,%F,%G,%H JN6L ...#DEF 1?=31? JNL= ...#LIS 0 JP5W ...#UNI JPKG ...#SKI 72? JQ56 ...( JQJQ ...#LIS 4 JR4B ... MUNS AFTER,C JRJ2 ...) JS3L ...#LIS 31? JSH= ...#EXI JT2W ...#NOR JTGG ... JW26 ...[??? MUNS SECT DIAG FGN 576 JWFQ ...#MAC MUNS JW^B ...[ JXF2 ...[ JXYL ...[ ************ JYD= ...[ * MUNS * JYXW ...[ ************ J^CG ...[ J^X6 ...[ K2BQ ...#LIS 0 K2WB ...#ORD K3B2 ...#INT K3TL ...XERR +72? K4*= ...XBUF 10HWARNING : K4SW ...XNUM 8H K5#G ...XBUF1 22H UNSETS %A %BMENDIT K5S6 ...XMESS 40:XBUF K6?Q ...XLNK +0 K6RB ...START K7?2 ... STO 0 XLNK K7QL ... LDX 5 XERR K8== ... LDN 1 XNUM K8PW ... CALL 2 18?+2]+9] K99G ... DISTY XMESS K9P6 ... LDX 0 XLNK K=8Q ... EXIT 0 0 K=NB ...#LIS 3 K?82 ...#JUM START K?ML ...#EXT K#7= ...#NOR ^^^^ ...716564530589