JOYTemplate for Footer group ” ÿÿh�íX�TH¶k…òI”z ¶kÐ pÐhlÂìŠI” Y÷%Á³Ðz ¶kZ-–K¥Òi´Z-–K Nä"Õ¦I…` ¶{x„ R< Nä"Õ¦I…` ¶{x„ R<Lï$ЦI”z ¶yx ULï$ЦI”z ¶xx ULï$ЦI”z ¶x ULï$ЦI”z ¶~x ULï$ЦI”z ¶}x ULï$ЦI”z ¶|x ULï$ЦI”z ¶sx ULï$ЦI”z ¶rx UModern €+¶¹+Yº²‚»»»»»"»›Ù¼»»KºÛº¹¼»í»[XÛ¹šš™:†Ñ©ª©˜Úº˜R¹½j–’¹‰ˆ¹™Ë}×[Y™qË«‹Ë»»»»ÝÝÝÝÝ"wD“d›9›r›£¹9š9ºšÌÜ»­îÛ›‰Ì·š›®Y–g»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»Í»»»´Úº™»«Û»¨‰‰ˆ©š¨¸™™»—‹˜¸‰ëÉ«¬�»Û»»ºº½œÊ˜‰¸Ù©©½™Û«ÛÙ˜Œ€ x€Script 1: 0x„ R< È ˜ BDRIVEAUTOBOOTx€ x€Script 1: 0x„ R< È &KPage===«  GeoffBuckeridge,69Bredon,Yate,Bristol,BS174TD,Tel.0454318015ð€ x€Script 1: 0x„ R< ÈP˜ pBDRIVEAUTOBOOT(cont)x�€ x€Script 1: 0x„ R< È &KPage===«  GeoffBuckeridge,69Bredon,Yate,Bristol,BS174TD,Tel.0454318015�x€ x€Script 1: 0x„ R< È Thisprogramisfor8512usersonlyasitinvolvestheuseoftheseconddrive. =&WeallknowthatifthereisaPROFILE.SUBfileonthediskindriveAitwill  automaticallybeSubmittedafterCP/Mhasloaded.ThepurposeofAUTOB.COMisÕtoprovidethesamefacilityondriveB.  ToachievethisyoumustfirstcreateaPROFILE.SUBfileonthebootdisk,the`lastcommandofwhichisAUTOB.  P9OnceAUTOBisinvokedacheckwillbemadetoseeifthereisadiskinthe  driveB.Ifthereisnot,itwillstopattheApromptasnormal.Butifthere isoneanditcontainsaPROFILE.SUBfile,thiswillbeexecuted.Ifthereisn't.suchafile,adirectoryofBwillappearinstead.  Ifyouarelikeme,andalwaysbootfromthesameCP/Mbootdisk,whichhasan autoexecfiletosetupthefilesearchorderandtheprinter.Thenyouinsert  <%oneofmanydoubledensitydisksintheseconddrive,dependingonwhattask ʳyouneedtoperform.YoumayhaveBformatdiskssetupforBasic  programming,Assemblerprogramming,DTP,Gamesetc..Itwilloftenbenecessary T=tocopysomefilestotheMdrive,orcarryoutparticularcommandsorrun  :#certainprograms.ThesecommandscannowbesetupinthePROFILE.SUBfile“ontheBdrive.  Thisprogramwaswritteninassemblersoastomakeitascompactaspossible.  <%ThecompleteannotatedassemblerlistingisshowninFig2.butIsuggestyou # typeinthelistinginFig1.andcallitAUTOB.HEXandthenuseHEXCOM.COMtoÌcreatetheAUTOB.COMfile. �P€ x€Script 1: 0x„ R< ÈêRememberthebootdiskshouldcontainatleastthefollowingfiles: T ,J14CPM3.EMSW ,SUBMIT.COMP ,AUTOB.COMY ,DIR.COM\ ,PROFILE.SUB  ZCAlso,HEXCOMdoesreportanyerrorsitfindsinthe.HEXfilebutit'smuchãeasierjusttocheckanddoublecheckthatitistypedincorrectly.  Figure1. L:10010000E50E2D1EFFCD05000E0DCD05000E0E1EB9M:1001100001CD05000E18CD0500E50E11115F01CDD2L:100120000500F50E2D1E00CD0500F1E1CB4D20029EL:10013000E1C9FE04300E216B01CD5201E10E2F1EECM:10014000FFCD0500217F01CD5201E10E2F1EFFCD15M:100150000500017F0023037E02FE00C25501C90293K:1001600050524F46494C452053554200423A214196K:100170003A5355424D49542050524F46494C450040a:09018000423A21413A444952007FÍ:00000001FF  �p€ x€Script 1: 0x„ R< ÈØFigure2. x0100=ORG100H;Important(startofTPA)<010040100E5PUSHHLÜ01010E2DLDC,45;SETBDOSERRORMODE01031EFFLDE,255;returnerrormode¤0105CD0500CALL5;callBDOSÀ010801080E0DLDC,13;RESETDISKSYSTEMH010ACD0500CALL5À010D|010D0E0ELDC,14;SELECTDISKÌ010F1E01LDE,1;driveBH0111CD0500CALL5`0114Ü01140E18LDC,24;RETURNLOGINVECTORH0116CD0500CALL5Ì0119E5PUSHHL;saveitÀ011A011A0E11LDC,17;SEARCHFORFIRSTx011C115F01LDDE,FCB;occuranceiffileinFCBH011FCD0500CALL5|0122F5PUSHAF;saveresult  �p€ x€Script 1: 0x„ R< È01230E2DLDC,45;RESETERRORMODE,01251E00LDE,0;todefaultmodeH0127CD0500CALL5À012AP012AF1POPAF;profile.subfound(result)h012BE1POPHL;loginvector@012CCB4DBIT1,L;driveBfound?012E2002JRNZ,B.DRV;YES?<0130H0130E1POPHL0131C9RET;NO?`0132p0132FE04B.DRVCP4<0134300EJRNC,NO.PRO;if>3profile.subnotfound`01360136216B01LDHL,FOUND-1;copyFOUNDtoDMAä0139CD5201CALLDMACPYH013CE1POPHL013D0E2FLDC,47;CHAINTOPROGRAMÈ013F1EFFLDE,255;submitb:profile.subH0141CD0500CALL5À0144Ü0144217F01NO.PROLDHL,NOT.FND-1;copyNOT.FNDtoDMAä0147CD5201CALLDMACPYH014AE1POPHL  �`€ x€Script 1: 0x„ R< È014B0E2FLDC,47;CHAINTOPROGRAMô014D1EFFLDE,255;b:dirH014FCD0500CALL5 0152x0152017F00DMACPYLDBC,7FH;copycommandlinetoDMAH015523LOOPINCHLH015603INCBC|01577ELDA,(HL);fromsource@015802LD(BC),A;todestinationÈ0159FE00CP0;zeroterminateslineø015BC25501JPNZ,LOOP„015EC9RETÀ015Fà015F02FCBDEFB2X016050524F46DEFB'PROFILESUB'H016B00DEFB0`016C¸016C423A2141FOUNDDEFB'B:!A:SUBMITPROFILE'H017F00DEFB0À0180”0180423A2141NOT.FNDDEFB'B:!A:DIR'H018800DEFB0`0189 0189=END