15 22FL ...#SEG LOADERBU86 [M.C.D. MANN 18 22J9 ...# ######################################################## 4 22LS ...# 16 22PC ...# (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 22S2 ...# 18 22WK ...# ######################################################### 12 22_= #LIS K0LOADER>K0LOADERMT>K0ALLGEO 4 23DW # 11 23YG # THIS SEGMENT CONTAINS THE 20 24D6 # ALTERS TO GEORGE & MEND AREA FOR MT ALLOCATOR/LOADER. 19 24XQ # IT NEED NOT IMMEDIATELY PRECEDE THE SEGMENT LENDMT. 4 25CB # 19 25X2 # FSDESC TABLES & JLREST/JLBUFF BUFFERS NOW IN FIXED CORE 10 26BL # VIA LOADERMT. 4 26W= # 4 27*W # 4 27TG # 17 2QC= # MT LOADER COMES HERE ON RECEIPT OF ME(ND) COMMAND 19 2QWW # VALID COMMAND CAUSES TWO WDS TO BE ADDED TO JLRAT 12 2RBG # WD0 DRUM ADDRESS 10 2RW6 # WD1 WORD 9 2S8H ...JLME LDX 3 AJLRAT(2) 8 2SGY ... LDX 0 0(3) 8 2STB SBN 0 50 16 2T*2 BPZ 0 JLWRC [TOO MANY ALTERS 9 2TSL CALL 0 JLPOINT 8 2W8* ... LDX 6 0(3) 20 2WD7 ... ADX 6 AJLRAT(2) [CURRENT ADDRESS IN ALTER TABLE 8 2WM_ ... ADN 6 1 7 2WXR ... LDX 3 6 18 2X?G CALL 0 MECONV [CONVERT & STORE D-ADDR 8 2XR6 LDCH 0 0(1) 8 2Y=Q SBN 0 #34 18 2YQB BNZ 0 JLWRC [NOT COMMA TERMINATING 7 2_=2 BCHX 1 / 17 2_PL CALL 0 MECONV [CONVERT & STORE WD 8 329= LDCH 0 0(1) 8 32NW SBN 0 #20 18 338G BNZ 0 JLWRC [NOT SPACE TERMINATING 7 33N6 LDN 0 2 9 342H ... LDX 3 AJLRAT(2) 16 34#Y ... ADS 0 0(3) [UPDATE POINTER 8 34MB BRN JLXOK 4 3572 # 4 35LL # 5 366= MECONV 8 36KW LDCH 4 0(1) 13 375G SBN 4 #32 [* ? 14 37K6 BNZ 4 ME1 [DECIMAL 16 384Q BCHX 1 / [OCTAL CONVERSION 7 38JB LDN 7 0 7 3942 LDN 5 9 8 39HL ME3 LDCH 4 0(1) 9 3=3= TXL 4 OCT8(2) 8 3=GW BCC ME2 7 3?2G BCHX 1 / 7 3?G6 SLL 7 3 7 3?_Q ORX 7 4 8 3#FB BCT 5 ME3 8 3#_2 BRN JLWRC 4 3*DL # 17 3*Y= ME1 LDN 5 8 [DECIMAL CONVERSION 7 3BCW LDN 6 0 7 3BXG LDN 7 0 8 3CC6 ME6 CDB 6 0(1) 8 3CWQ BCS ME2 7 3DBB BCHX 1 / 8 3DW2 BCT 5 ME6 8 3F*L BRN JLWRC 4 3FT= # 18 3G#W ME2 STO 7 0(3) [STORE RESULT IN TABLE 7 3GSG ADN 3 1 7 3H#6 EXIT 0 0 4 3HRQ # 4 3J?B # 7 3MNQ #SKI K6LOADERMT 4 3N8B ( 17 3NN2 # ALSO CONTAINED HEREIN ARE ANY TESTING ROUTINES. 4 3P7L # 21 3PM= # THE AL COMMAND ALLOWS THE LOADER/COMMAND TO BE MENDED AT RUN TIME. 12 3Q6W # COMMAND FORMAT IS ... 19 3QLG ...# 'AL ADDRESS,WORD' BOTH IN PLAIN UNDATUMISED OCTAL 16 3R66 ...# E.G. AL 7241,3 (*77241 _ LDX 0 3) 4 3RKQ # 9 3S5B JLAL CALL 0 JLPOINT 7 3SK2 LDN 3 0 8 3T4L TAL2 LDCH 4 0(1) 9 3TJ= TXL 4 OCT8(2) 8 3W3W BCC TAL1 7 3WHG SLL 3 3 7 3X36 ADX 3 4 7 3XGQ BCHX 1 / 8 3Y2B BRN TAL2 8 3YG2 TAL1 SBN 4 #34 8 3Y_L BNZ 4 JLWRC 7 3_F= LDN 5 0 7 3_YW TAL4 BCHX 1 / 8 42DG LDCH 4 0(1) 9 42Y6 TXL 4 OCT8(2) 8 43CQ BCC TAL3 7 43XB SLL 5 3 7 44C2 ADX 5 4 8 44WL BRN TAL4 8 45B= TAL3 SBN 4 #20 8 45TW BNZ 4 JLWRC 7 46*G SMO 2 8 46T6 TAL5 STO 5 0(3) 8 47#Q BRN JLXOK 4 47SB # 19 48#2 # THIS ROUTINE PRINTS A WORD OF LOADER/ALLOCATOR AT RUN TIME 12 48RL # COMMAND FORMAT IS ... 17 497* ...# 'PR ADDRESS' IN PLAIN UNDATUMISED OCTAL 11 49H4 ...# E.G. PR 3241 4 49WR ...# 9 4==G JLPR CALL 0 JLPOINT 7 4=Q6 LDN 3 0 8 4?9Q PR2 LDCH 4 0(1) 9 4?PB TXL 4 OCT8(2) 8 4#92 BCC PR1 7 4#NL SLL 3 3 7 4*8= ADX 3 4 7 4*MW BCHX 1 / 8 4B7G BRN PR2 8 4BM6 PR1 SBN 4 #20 8 4C6Q BNZ 4 JLWRC 7 4CLB SMO 2 8 4D62 PR3 LDX 4 0(3) 10 4DKL ... LDN 1 OPRINT+2(2) 7 4F5= LDN 5 8 7 4FJW PR4 LDN 3 0 7 4G4G SLL 34 3 8 4GJ6 DCH 3 0(1) 7 4H3Q BCHX 1 / 8 4HHB BCT 5 PR4 9 4J32 ... LDN 1 OPRINT(2) 9 4JGL BRN JLTURN 4 4K2= # 20 4KFW #SKI 77?<515$515 [SKIP LABEL IF GIN515 OR LATER 4 4K_G OCT8 8 4LF6 +8 4 4MDB # 4 4MY2 ) 4 4SS= # 4 4T6L ...# 9 4T?W # *** MEND AREA *** 4 4TRG # 6 4W?6 ...K7LOADERMT 18 4WQQ ...#GAP 383-0? [MEND AREA FOR OVERLAY 21 4X=B # [LEAVE SPACE FOR METAFORM & LENDMT 4 4_NG # 4 5286 #END 6 ____ ...170173670001