JOYTemplate for Footer group  hXTHkIz k phlI Y%z kZ-KiZ-K N"զI` {x R< N"զI` {x R<L$ЦIz yx UL$ЦIz xx UL$ЦIz x UL$ЦIz ~x UL$ЦIz }x UL$ЦIz |x UL$ЦIz sx UL$ЦIz rx UModern ++Y"ټKۺ[X۹:ѩںRj}[Yq˫˻"wDd9r99̷ܻۛYgͻںۻɫۻʘ٩۫٘ xScript 1: 0x R<  BDRIVEAUTOBOOTx xScript 1: 0x R<  &KPage===  GeoffBuckeridge,69Bredon,Yate,Bristol,BS174TD,Tel.0454318015 xScript 1: 0x R< P pBDRIVEAUTOBOOT(cont)x xScript 1: 0x R<  &KPage===  GeoffBuckeridge,69Bredon,Yate,Bristol,BS174TD,Tel.0454318015x xScript 1: 0x R< Thisprogramisfor8512usersonlyasitinvolvestheuseoftheseconddrive. =&WeallknowthatifthereisaPROFILE.SUBfileonthediskindriveAitwill  automaticallybeSubmittedafterCP/Mhasloaded.ThepurposeofAUTOB.COMistoprovidethesamefacilityondriveB. 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.SUBfileontheBdrive. Thisprogramwaswritteninassemblersoastomakeitascompactaspossible.  <%ThecompleteannotatedassemblerlistingisshowninFig2.butIsuggestyou # typeinthelistinginFig1.andcallitAUTOB.HEXandthenuseHEXCOM.COMtocreatetheAUTOB.COMfile.P xScript 1: 0x R< Rememberthebootdiskshouldcontainatleastthefollowingfiles:T ,J14CPM3.EMSW ,SUBMIT.COMP ,AUTOB.COMY ,DIR.COM\ ,PROFILE.SUB ZCAlso,HEXCOMdoesreportanyerrorsitfindsinthe.HEXfilebutit'smucheasierjusttocheckanddoublecheckthatitistypedincorrectly.Figure1.L:10010000E50E2D1EFFCD05000E0DCD05000E0E1EB9M:1001100001CD05000E18CD0500E50E11115F01CDD2L:100120000500F50E2D1E00CD0500F1E1CB4D20029EL:10013000E1C9FE04300E216B01CD5201E10E2F1EECM:10014000FFCD0500217F01CD5201E10E2F1EFFCD15M:100150000500017F0023037E02FE00C25501C90293K:1001600050524F46494C452053554200423A214196K:100170003A5355424D49542050524F46494C450040a:09018000423A21413A444952007F:00000001FF p xScript 1: 0x R< Figure2.x0100=ORG100H;Important(startofTPA)<010040100E5PUSHHL01010E2DLDC,45;SETBDOSERRORMODE01031EFFLDE,255;returnerrormode0105CD0500CALL5;callBDOS010801080E0DLDC,13;RESETDISKSYSTEMH010ACD0500CALL5010D|010D0E0ELDC,14;SELECTDISK010F1E01LDE,1;driveBH0111CD0500CALL5`011401140E18LDC,24;RETURNLOGINVECTORH0116CD0500CALL50119E5PUSHHL;saveit011A011A0E11LDC,17;SEARCHFORFIRSTx011C115F01LDDE,FCB;occuranceiffileinFCBH011FCD0500CALL5|0122F5PUSHAF;saveresult p xScript 1: 0x R< 01230E2DLDC,45;RESETERRORMODE,01251E00LDE,0;todefaultmodeH0127CD0500CALL5012AP012AF1POPAF;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;copyFOUNDtoDMA0139CD5201CALLDMACPYH013CE1POPHL013D0E2FLDC,47;CHAINTOPROGRAM013F1EFFLDE,255;submitb:profile.subH0141CD0500CALL501440144217F01NO.PROLDHL,NOT.FND-1;copyNOT.FNDtoDMA0147CD5201CALLDMACPYH014AE1POPHL ` xScript 1: 0x R< 014B0E2FLDC,47;CHAINTOPROGRAM014D1EFFLDE,255;b:dirH014FCD0500CALL5 0152x0152017F00DMACPYLDBC,7FH;copycommandlinetoDMAH015523LOOPINCHLH015603INCBC|01577ELDA,(HL);fromsource@015802LD(BC),A;todestination0159FE00CP0;zeroterminatesline015BC25501JPNZ,LOOP015EC9RET015F015F02FCBDEFB2X016050524F46DEFB'PROFILESUB'H016B00DEFB0`016C016C423A2141FOUNDDEFB'B:!A:SUBMITPROFILE'H017F00DEFB001800180423A2141NOT.FNDDEFB'B:!A:DIR'H018800DEFB0`0189 0189=END