{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS DTP)}}
====== MACROS DTP ======
(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