þþ‡ X;LIST #D:AUTOBAS.SRCX;X;for creating AUTORUN.SYS(X;2X;MAC65 source code with<#X;conversions to Atari AssemblerA X;EditorFX;P X;Equates:Z†HATABSd „TEMPËnX;x@;;or anywhere‚X;ŒX;Modify the Handler table–„MAIN $>$;;search from END¥X; of tableª…ELOOPQ†HATABS9´R> E;;for 'E:' handler¾ F†CHANGEÈ0Ò0Ü0æ I…ELOOPð†CHANGE;the table addressú2&„EDEX;;save HATABS locQ†HATABS9;;and E: vector P„TEMP"Q>4†NEWTAB;;or NEWTAB&$FF, P†HATABS962@ Q†HATABS9J P„TEMPTQ>5†NEWTAB;;or NEWTAB/256^ P†HATABS9h"X;now transfer ROM table to RAMr%>| '„YSAV†…XLOOPQ@„TEMP7 P†NEWTAB8š3¤)>;;16 BYTES®D…XLOOP;;branch if <16¸"X;now setup new getbyte routineÂQ>4†NEWGETÇ;or (NEWGET-1)&$FFÌ P‡GETBYTEÖQ>5†NEWGETÛ;or (NEWGET-1)/256àP‡GETBYTEê:ôX;Handler table spaceþ †NEWTAB„OPEN ;;see Atari OS…CLOSE ;;Manual,‡GETBYTE ;;DeRe Atari, or& ‡PUTBYTE ;;Mappng the Atari0 †STATUS :‡SPECIAL D„JUMP ==N =;;16th byteS;& insuranceX „YSAV b „EDEX lX;uX;Our new GETBYTE routinev †NEWGET€ %„YSAVŠQ†CMDLIN8;;get 1 char”R>›;;if C/R then donež F„DONE¨#„YSAV;;indx next char²%>;;tell O.S. OK¼:Æ„DONEÐ5;;save C/RÚA;;save X registerä5î$„EDEX;;find 'E:' entryøQ„TEMP;;in HATABSP†HATABS9;;replace our ;routine 2;;with the real ;vector Q„TEMP  P†HATABS9*7;;restore X reg4>>7;;restore C/R to AH%>;;set status OKR:\X;f†CMDLIN;passed to BASICp$ A‚? A="=A‘Loading... MYPROGA="z" A…:RUN A="=AŒD:myprog.basA="„ ›;; C/R!!ŽX;˜X;set to execute when loaded¢â¬ „MAIN