From fb997fec6dfa94f9b9f5ef25aa6e41a084514301 Mon Sep 17 00:00:00 2001 From: Bobbi Webber-Manners Date: Sun, 24 Oct 2021 17:02:12 -0400 Subject: [PATCH] Reworked ROM menu to use sideways ROM loading. --- applecorn.po | Bin 819200 -> 819200 bytes auxmem.init.s | 4 +- auxmem.misc.s | 97 ++++++++++++++++++++++++++++++++++++++++++++++++- mainmem.ldr.s | 8 ++-- mainmem.menu.s | 74 +------------------------------------ 5 files changed, 104 insertions(+), 79 deletions(-) diff --git a/applecorn.po b/applecorn.po index 22c6b883f93a90e0d48bea52627bbdf446342c81..5ebb4e8773c644ca8533b88422f64311ff08c095 100644 GIT binary patch delta 8255 zcmaJm33wDm)_vrt1Onk662MYH5{?i+V~pXL954e-GMPyy5z%ds)e&`ZcmJPt{r}%I z$Yc@IA*{F!Zg9tO<4;FBJ9r0;3?PsR0VfHENeJd3m&pum$f_HZ`CrY1L*4J6?sUI; z_3G6-s@{9m5yeHKxX4)?GJZO>IGHM#OOK<(PHH&;-g`ZyH#`hcs6XiM0KTf##Q z6`o4NKcp#m+I=pZrB`-ITX|)^`L-oWrfsS6C)+ZG zvcY&;dNLk&OtDCVtdcHWWsT+15Uac=X{?eaeZ%68tV2?$tAwJZ5Le~PF}Hr63~(GXB}NOij_-($oj_m8tqRN(+sN zsTIGorN<#>DE@&L*=P{mm#P;J6FzPp&yrIYq8ayo3QY92C0Nyyc}jj%>VAd*90+?^ zZ%geZ&n3NBl}i?)yIH9?O+LI3CC?brGij64;?tI-<)>{*`>!>*>~(!tHOl_}?Whx128VhnxnvQFDYSohd(Y8ho;u3@ zQKkJ{8+_$K1r0D^k0a;pn&{ExH|+m9!<_m%kA=aT0Y__>M4(9_r1 zk-meZ&wE>+a#Ctc!_;BQ!{1%Gl<{CS@vwB72h8z0UR}n-kFDq}S;{C2q-D&R#x(hb z#b|eOk_ms9gTu@ifWaJGo1;)t8LzO?eqPZ_uM_BRgvHUn@+0#eBJ*C7h1qCgMsVn* z95UKz#;@i{B^e|90?1_ivDvu=@3WLfs3jS0#`9Z|QuVB~D+6fVjJ6oC^55=7Qwo>y zT4eQdeqS2fTO)o`tY@JImu5JZ;As};LUmV$q-VwV@a)_XDWZuKU)`oXbSW#ucJlgB zY$h*CY&5{zD%MdHXmy#F{zTO2;-wutuFZ3<0tErNk01*H`x?>n$X;FvmpXannAA<$ zu1?+&S<=Znrz;d*mshea6F-&bjFw*Fi+7U#nj+rGh)lAezRXJp`O0mX`}O(2I55=? zJ~-&bz@Uvk8I(r`9N{ZpBm;0Jb-32amxj4HO(*Kr4|(ZxUj2xdj*~e~xp?P%@uChX zltDcbT>AMi@O6E@dhkYb8#LvA-G`? z&jE~s@h}dmxS2OVq(VfLCSD8+N;2%6{ha!;3vMaGrMB>|QtCziRa$N3UuFJ-m5@u_ zO74Q2YJElY){VlStQ^rZQBF)oGYda4a0?Ciu#tN|51#n_JOenbG^WDZmgO1i$OgYg zsC8^S0#R~zf=>)q0gM({&^H#d00Uv8O;DnwS9oP?z~Ao~oniPm;U_pks$J}>iM7$+ zk8I)NMmKgwxM>Z|F&aak)N_S~@_V&N)y3Kp)g!EJA)c7;)Ik8oqQP(@4(D4vp}P73|Q$nTXvK!JHeJ6W6MsmYBw+cPYTk7`*_19)yvCeDJXF< z=$J$dAKU;iCY8tp(a%AFI3#fp=Tn~1!N7h58!gUw^{U0~*TM#hSgmjS;Tb1SFvY_tCKb0pQ)bfR>wggR0N+i^`moYbHRB4kGx(7$^!ISr>)CfE>#d&$* za-_?}bN7rOrV%b*-ZrPon&MelvY{|k919@=B`e`xfY~5lE_%<6iSQ?D@U$C@-k1Nj z6itl+)YM<1X8jTs_fr(}$r`zLHj1O)mlrHU8Iu`P8R#%~57Z4eR4AiO@>6kWPI!n3 z3ffSUTo#9>(N707njBeC9R}#?aFZ>)x0k@F0LwjbXfFK{A(Wt00BR;UcT5^=u?PtOV7WLvLwGo|YZ{Q}Qgz>2GI zicIU#+(IB~B&38W8i=L@iJ}Qn6;95WZ_TjABdV7%`=2$}idTh7m~E1ssiS0R4w{g+ z+3cVO02NtHv-_Sk2dX~cYp3e~$v9_JQ7nEgr*wjg)*`C>3{206VM-R>o>NmJwg~PN zXP7&&6bdh$U?_IvyhE`yb&eeQ+c_xlHwkdmG27Ddn>m7#0EYo{;E0i?us_4WY2zl2 z97Q0W!%5;64o(aK9637O7`yow{9egfb_X2YHWret16xKYi?x)pXJRd7F%~#IC77Fs z@n#FzOPX|*^u$=2)$6&iY-23iWhjoFW7SxTMw*aDKeULW9SL?b9f<54nso)Ue z?0x=RaEiD1I)n-W>x3I%vH-5To~wCCV zV#$frxKbTCvc`{? zJZ~kMUD(MBfddERqGNFEh=j9;0Pr@5`4Y)eCFCfwi&skzOM7^A_hIQ(Uj6f7=`Xzc z%3(<+Da=(2EN&)jK-7o<7Iig&SFJtpI`whjb+VC%)k9GZ|7#$iM9B>+5f||yEb67O z_-GqI zk8k^r&eGMbv?Zy?!sRh4mNzy@LEH4gR}oyW6ar%v*xos zXCFTMW;AKThyR)(4ST?)d!gU6^t`v@BRZ|IiG-k zXjHIgomY? zic#zm=;=F$ACYAa-9^uk4{<1FLjO6*rzDQz2KnW<-4GInD}smbdm|6tdg7I0C|jYyCC;@FTjpH z%~VuBDG#qfc;O%G(VVzVKp-gJfl`jyz_gSwedjn+rLULvF;x%LORq8S)HB*$ju2cd zug*eqqaUb;T$7+4VNM@oO7Cga%SC{tm&)&Ep;`2!@|RgCLD$`go`bzz-XMjT${VFn zC{tW|m>1i~-D!*U8Z)G;xWiNj=QOhj>_=-%KDD%4?RZ3Sc!i zrLA%=*T%X9z>RBim%?jpQ-C4RO02xzgmiR>oSlOv$-7JlMYATgu1N~pqn>V(!uP0W zWX*(P!!8Bo8wX?)$hdz;L~pstCN%yhJenl5M|CmM=skf+1B%3d@7}9Tam*oOCPQHr zkie9ULS-=rg+$dgf%~M>P3lobIwSASLA&&IP0s)i7Xy+#1ARvroqDF}8R$RC2+eB^ zpz1UOj%l|#wi979f8m=6@_I9hoxZ94c@Mq!`C&mhZg1vJ^k-XErkT#t?3!ANv#=1GkKbgd70uz7gv}wGsQy}_37!E7K>PY zG1r*OWs1ixW@K7&&Djr$u8Zl}riWag%LTb8?lH?(+y`HA+uOLaZ3bnf{UScmZxy%) zTX9OaBMX|pzpQC^L3fFdDZau0^59^N`%dS-cHn8qV857(z1*gDV_2ZPv>gQ}l^=ENCtg|=*eXc{cvCxW?uX$4 zW2l3^_%?T&2Pyxsw}Mb`R5Bp^No!mw3&{vVQk2f)b0o^^c{GzAl#6&|zUQ$^%3R20 z_9^&Rm+(`UAp7r$*W4b@C?$iWIP)bAGMQPv&ZGHve%-&L*7F@CD-L>M+F|9)z?tMV z#j%x0l`g-L2VQ?X58WBFsU4*H8PVyRM5*B;{qp5Jgy~Wu(j;_n5UTlbJYBvkAI%>@ z2AmfIdcri3)S0yP8}Y^`e@6*7X}9M?jH(MT2+%(E3)*B=^Lc%~3iTVG_loZTeB9Hw zIi9n(;p6?4KHoc6d_l|$_BQT#f0288t?d+6{f;LB6dP;8-1pSpbIMU;M>u@I@hqW| z=NF(mMolL&#efAIi)2$i1cIjv(3~+r#R7d(;LC8JV_hDKl#dmlsUvEq$ejgfHk~4m zdI;S&#nHZ>qM^XB8dkv%%k2`Ptyq@xA3_V(y4wxaHSGqp{Dsb!I$wZG4LmQwGo~Z1 zBe`Q`$3q=Y!rvb|iaK_8yaCsT9mhJp?C^G6>loAdMhEU(+-c}s+xc{0++PFFlbsEn zFMQPY5c-lXoY!UMv$oIc$}D(kUY9XzMfOg>WM=8tWERis;vPD=hA5BV1NMt9~b!G z5)^Vc&Fp8G{Van|${#&~?xwTkmPb%RVM;fYq>jhzmqAoDOiYY|-L6E~MF;@^*(oK0 z8}N|Gg0N6ondNqLF;rSjK!8`hrf`XJ>bHAfB5Pg1{BW6rI zMv5MgVpg{&DiGSNT7go?E$(rEqvW?9h3{>#-Hsn{OIMs{Jk-q9-!uR71GE1JrgvvN z>mhd0#yN(dTZ<$kx-^!{>QcnF2LFE5C}Kd2?+4ZWM< z=2$-#nz7gOmgc6drB`OQnOOXApTi$#owq@rEuai~zx=d-;>M5b^W1}*dhH>*HKBa? z@7Em54>P_*SG&Ea*lDhN=le{8+!35xo|z2GWJ$c4<#!8gIvBI%|S_x<^IH35QHwQ zNAu<&PiC56E`58F7TCW z%}*D~#A7&87B-;OvyvLE_&7|~XoK^(`V<3&va5W+fCuXXIIHK~WbUBs*?@}aNcoY+ zP|oPD`*#MyWBgeBoqXsqltoXIBQ}D$rpZ|w;lBeLdY@&L!jEf0yL1Aax8PU>Hve|` z@{ks1XkNP$J~M6gNaiN1e#K?LCveUKoz-CbNu7lGmax}WRn z=fVd7PFmyRJ{sWK>p9;5H)`nsmp#Dk>f?^|$?G3S^TO`->3xU2^66ir#qfXs*XSZE SDzZitStEb+O3AUrGx54($k#!jYAE}`<~JP=L^SEvNiIq+6cSBTy~kw0nMSSDU_ENAe6 z2-=|g{iuVZbdxr`uA|%k`fJ@J3Acx|ydFUZ7jDrNZlMdeFoj!!3b(*ee{f4k(8mRt ziFjM0j3+PhV9qEDPAU$+mmo``o|6;A5Ki9ZqznY&yaSPkA+`2+IoG~SuC*_hU$L){ zDZ5F=_QW_mrb<31-eBZJ@pC4nOdMe3I8i0T>kQtQ@v#`}DW-H{kjM3!$0fZSi)I%j z8jDTF(j+7PpWKp#PO2i=sOqu*yDs4iMbFvel@QLp%t7ss7tO{KW}}K~_Q%7t@HsC2 z4qv({+)~0gaV96b0EqYJx|aYi@p1|9Mgebswy#i3M!QK#G`f|gwy{Miox00SYuGTP(2$a`5A_DF>b(1WAG$}2)lpvVej0^Lgc7NEF-NK>pS-L%VM;RPo3@$unrcm*rr<=!ewX9Okt)ZL!wudlDoktMch#Rh>3HAeIDDo5 zM&IZC9RrT4(}#v?1}ErRcgcuZ-egx_kL~qpTpAzZFP13je#y|WcBI# z#+v=^0|Y}__ArVn78tG_fGCYMr)lQ5KHM z6~~!}Nol}1ye!MT1>c`t5~_?dduiX#1xhh8;(cbo_0sCX0Cf63BXh{ec;~BndHx$F zrp8J29?en1Dn8ADQCE#{y~xM_DjsikFT?L-xfdw+nMEU0ARNH^vWHm;Cz|-|9!Ii}6^%*zQQ1#Ve=`)@)Y}_6f5^ zAlYcKv0IaEUconJry7i3vACBwDLC>AQr+_c>`NN^@pA+GgDQuG8x}tlBymZa82XjN z=GiCRT7+h-tj<*@G+P3}#XZgjy6^?d6bL+68__0H>OTet-S6GzvS=QWw)P=zuRGX5 zDOAZYtuSKh3)21-XxvnhDk)md$vV*psufKf{wUW?%hWLDRcYHSWJnX&bK)98t8N|8 zS`3}jPebRSIOV6DpXbD%a>@qIpU;UKIAtT}U(1ObIhYFHz=dz*R9YTN8FJhvIZwh% zks+%nlh8Yv!Lh-X+x!CH)YAmuqzF%)T8j+ zUnnJ?`-@Il%SkURL6Q24cZC~)6D-4mJS4rh1WhkUNMR3Ja8fG!XfC|*qq!C^Pf1j{ zttH(z+L-|s3{_4rF$lKL-ih@qEjAvsqB-n}4uVKXbsme*l?`6c;f>h-cA)4sa5hasA z0kmvnKT7$b)b2Sh53}zuL!7vUaD0JqT=hMUQ9uQ<&YKQYGI;rE;id?_MG@bk!MBux zSWumN6zR@S1!%a5Q&Zxg?>BOU&Dd1Gi4$W}4N46I;sUUSDObD z8bD&=vJ6|D0*My<7>uG9$8*IKxS~jo-IxpFmFS2SpW$Sd1S^PCB@C-yschy%45_aBBGtZK< zaOs|yeuoiPNFX^rMNZ?y0>S_UN+$(-lcYl&g7S?Fq=3WtRF*qN*_!PgQbS0e7H<3> zdjz}>mI^y=3mA~d9Swp!Nd$R{oc-#b+-CE?rTgR2loSZ4IRQHjo5?-Ta?eqJffJcN z<>#Cj)JIGg+(+!D?-P+n*+zbOw&AmWQzKUZEPb|) zAX~D&V3AJ~`n^`@tW6U-yt%%OVt$%%Nlp+}1VoSfK0h(w6){Yx$F(+1r9*YDeA3V^ z9-5eCB)@UFB)vunHLlkRwBkdnFIw)g0HI3>t#X!d3ChBI6y!!4vwC3!Y(Flr{Ya8L zrV^452m`~?jU+a0y@z5TC2M(_5}E_LP&_xKN0*_AdNaZHlTd%(fW()&v7z_)9(GVR_oE+kZKBH*V*oa+sL`X=-lXnf% z+b<<7M-#&VH1Wrv89xR^e;-6Aq)XeDqiEfJseCy~n(#_yDR4e#7gQ3r880o&l%9=7 zvqN6Zgpzz`rc@e@ChMLdau~)#ef%1LD~dAhiCtZ!A74=<6|6vWb%h#6h!R*P9bbW_ z>#j=b3dAO4tWtE0_c7n176#%;_9}&8;<^`O8*_=Q#2Is7B1^a(Frl27pG`<{Ra zAr)6jzfC}M3IHjO;1Q$h|16C;ALTX!d zz5#(L9}!DR&e9ciWT&pFRZn~=e!Gc8}Fb`P?9(s zjpGKaPyzxdtU|}U@r6|@0fDYVcLIR4`~E`|gTGr4-MI^cYmEjY_r2R|2Yy8F^;IjT!o72S0XZFTD)>@IRta;;kyZM3mXj(z zU~L}617t#0#jV*e^LAFV@`oJo*tfIPt57<-M=Opjl?)-JF3lE3IuAIk_&3=lqwwl% zf>b#O6}y2C#J7&YI7lO|14O+M6$ijDK7B3hA`~#SLN8f{VA(wjdclf6#{Lm<9PiK! zG7$_yjQz&;959N%=noL_NZ-KU?#A(8xM|1Xipt#!~|Hjdr9l}5y zq-Y2Ar+5R1?-&B1BySR$GGcp5Gg6`am0r123KDOM}m=@kE8UBYyEpDx;Ek~?C8d?G~$tUatQ7l z!kt6#l?36+-r^!C>FnRhg8h~w6fgB}{|@Hh7cJ{pN+>TIucdgOs$HQ4>i$24Bp5Qlr}pHHAi zCD5`d*k||IAQK~YzO*0}8CHJNAYgV zvo|Pv>A6!qaS^)Iy=9Ftx1b`_*&BI9ro;9c4!P%`M^1y?85(G^eEiPbdz-L;s}aBpg{ zH_AF(Q7^9%KcdA$wCoT;6+KP(328iwrp=qw6xbmcb`Y+Y%5*8PSWU<3c($ua%=C!4 z9x>Y^j`XnYjUdiXSu|BwB-vRseL>M#a9|4-nru@555vk+>hd7OH%=$cLyPOgH|c$Kv^vchgkP1sX=qNw;yTD;^OVE%$tt>J=B4FQP&%5UTPnq- zqZzuNNL)IaXSmXUwnB6$s~2C*ENc*VLdD~WwmC(qKOK#iPNgF~?d-fWh=_L80b<2J z>H?T~P9rIXGD$J?aj{P4qI8Cj;MKW)enFXfa=VcdL=ke`xamNSjRowY&o+8ADcj&l5Il&jXv{acT4_^vBuW z^P6G9Lj!x8VeT+(P>!G94D&~5zWE6YNI%(vBU^3GP$@qfji;TvNgH)P-q`w*Pq+J} zL0&%MXlAQ=GO`{wWt!$uu*i8!!x;%U1{+{BKjA#7LBc({k}&y}hgE}i z^@4W@RC@RVd+q}0-LTVHC8<_4VXDrzfY=beQ+z;)JokZ4%;!F!MY#15i@P)=Jxvx= zl75u#P11~)a25*FZItF@q5CICwmQZTBKtjWe8TLA_?j%W1-!)~5w+03#&5IGlx1Tt zB_?^sUP?-_lD9R5GYkK`m~1thg%2+p6BEr@S;EH`vs1EJv*5XyWX{UAW~>$}E+%GV zuJ#<3&SatJb(x>B?|;T_YhmkJEOL_LBChJO@od~Byrjdq5{55aRaHEZbv? z|3;1X0rxjM@Wc)P7oOUFS{@PyXlI{;#+Qb0*d_SNAnW3u8=%?Ems!JSJDrOpJ_|*S zFW=2>Y)#Q?b*%jeSf}iWbDH!SnCCI=oPgf(*&bM}jg*i+t&BkOKF1~C32t2$gg?3z zUBW)vK2h$erzI5q*G7)FG-rpp(yEU4tgMJV=Hj=10?Gm zqlt`{LVN^)@M zA$mEu61&+;<3V(Q4tB7Dy!4&3UiJw5OyeXY2%sIo+6ME{bVqGmJ??hdZ*2oO!6S zBgxE~v(1GIJJVKzS$8b#Obj&1c|u-$MrQVFPqnYgNy!%Wc38}8=FqYZlQAnLQLuEb zG_QuYInk0Kq;w9YWn>A@bXYR7vXirff^{83g&o^Fp|+*o>4=@b>PF0GK0Q8nwZ^A{ zq35Y%pdWD)UV&f4IUdkd4Ors~(@-vXjqdaKUss8LPV9K6!veGR9(WB}%6cq2EnzAH zht$S@+2NzV?0lz#*AB2ZTn(!6nZDv3L)g#(7m9BHa>M&uwGXZ#5wL)q{cDaZaQ1y+ zJfNt9GJFMjz)j<5 zyZd1%fg%6v=sh&OhoSLNY0*>YLETDe^;2lxb4xm)Dt7XYtH7$F7h=O9Hprn40Rjf} z9F!c&cKb*egX;(g6i~N}Ni={s5eE7Uh0YG5)6X^V4&T=>2>c>0%P4@!p6zjt*Fx1~ zQXs*u(>i?NTHLd#d2#_8+vx&v;5;$SgJ15l5 z?4H&g4bMz?lDdBQd{MX2-g6hYt>^bWFZ5(}@90UpwzNB;+YHZ#4ZmubqAg9;-p72` ze0Nv;=iY>~v%A-JdAe$}$J_O7*Hmft8kDr;iB9{?L#sROgJu21yyX8B_N#GtP1mOA z*|v}PW_-=}uIkms}hP@u8DE zz7|y|ak!nK6@TsC^DMbMIX%V2^xQRF7)jspD01}O%LCN3_*c?{`Div;*ibeUI|Cw5 zPClCZ(830oD)YnrBHA5XHWX$Xe2L#3I|?7|F5exicTgp?V-nw@b5ic{_;->k9~pEX zXe`q>M7o@hR?b-1V8cg%dV?Ll1t`zbP)d8sdM&uWPJ`Ke@5iw&DSa&}g4}gsEm}3Q zvuCFk1Y<_y0V!@BO4m)4URei9nkb!Eho;}Zrt1YpF8HV>xZS|R#SZRopy@9MuMYU= z!U10Tay?o)q1)#wqG85XZp(X)rk!I+gia(0;y$U^h9(!RcKFH3c+?Mv1AZ*$4>wz_ z8P>-zW%eigKOKV%TLxSc)M zPWtfc>|xt_*q~nMFJ9|s|Jlo4u46y#Wy6;CvTQF~)XjeK*A0;D;{2Syu~*vg3|g3f zqkHfq9Z&2 diff --git a/auxmem.init.s b/auxmem.init.s index 1c7c2cb..cb8427f 100644 --- a/auxmem.init.s +++ b/auxmem.init.s @@ -7,7 +7,7 @@ * BBC Micro 'virtual machine' in Apple //e aux memory *********************************************************** -MAXROM EQU $00 ; Only one sideways ROM +MAXROM EQU $00 ; Just one ROM ZP1 EQU $90 ; $90-$9f are spare Econet space ; so safe to use @@ -125,6 +125,8 @@ MOSHIGH SEI DEX BPL :INITPG2 + JSR INITROMS ; Initialize sideways ROM table + JSR KBDINIT ; Returns A=startup MODE JSR VDUINIT ; Initialise VDU driver JSR PRHELLO diff --git a/auxmem.misc.s b/auxmem.misc.s index 21465be..3f36f8f 100644 --- a/auxmem.misc.s +++ b/auxmem.misc.s @@ -327,15 +327,108 @@ RDROM LDA $F4 * X=ROM to select * All registers must be preserved ROMSELECT CPX $F4 - BNE :ROMSELOK ; Already selected + BEQ :ROMSELOK ; Already selected * Insert code here for faking sideways ROMs by loading or otherwise * fetching code to $8000. All registers must be preserved. - + PHA + PHX + PHY + TXA + ASL A + TAX + LDA ROMTAB,X ; LSB of pointer to name + STA OSFILECB+0 + LDA ROMTAB+1,X ; MSB of pointer to name + STA OSFILECB+1 + STZ OSFILECB+2 ; Dest address $8000 + LDA #$80 + STA OSFILECB+3 + LDX #OSFILECB + LDA #$FF ; Means 'LOAD' + JSR OSFILE + PLY + PLX + PLA STX $F4 ; Set Current ROM number :ROMSELOK EVENT RTS +BASICROM ASC 'BASIC2.ROM' + DB $0D,$00 + +COMALROM ASC 'COMAL.ROM' + DB $0D,$00 + +LISPROM ASC 'LISP501.ROM' + DB $0D,$00 + +FORTHROM ASC 'FORTH103.ROM' + DB $0D,$00 + +PROLOGROM ASC 'MPROLOG310.ROM' + DB $0D,$00 + +BCPLROM ASC 'BCPL7.0.ROM' + DB $0D,$00 + +PASCROM1 ASC 'USERROM2.ROM' + DB $0D,$00 + +PASCROM2 ASC 'USERROM1.ROM' + DB $0D,$00 + +* Initialize ROMTAB according to user selection in menu +INITROMS STA $C002 ; Read main mem + LDA USERSEL + STA $C003 ; Read aux mem + ASL ; x2 + CLC + ADC #ROMS + ADC #$00 + STA OSLPTR+1 + LDY #$00 + LDA (OSLPTR),Y + STA ROMTAB+0 + INY + LDA (OSLPTR),Y + STA ROMTAB+1 + LDA #$FF + STA $F4 ; Force ROM to load + RTS + +* Active sideways ROMs +ROMTAB DW $0000 ; ROM0 + DW $0000 ; ROM1 + DW $0000 ; ROM2 + DW $0000 ; ROM3 + DW $0000 ; ROM4 + DW $0000 ; ROM5 + DW $0000 ; ROM6 + DW $0000 ; ROM7 + DW $0000 ; ROM8 + DW $0000 ; ROM9 + DW $0000 ; ROMA + DW $0000 ; ROMB + DW $0000 ; ROMC + DW $0000 ; ROMD + DW $0000 ; ROME + DW $0000 ; ROMF + +* ROM filenames in same order as in the menu +* ROMMENU copies these to ROMTAB upon user selection +ROMS DW BASICROM + DW COMALROM + DW LISPROM + DW FORTHROM + DW PROLOGROM + DW BCPLROM + DW PASCROM1 + DW PASCROM2 + *EVENT LDA #OSEVENM * JMP PRSTR diff --git a/mainmem.ldr.s b/mainmem.ldr.s index fa3f477..49fd71f 100644 --- a/mainmem.ldr.s +++ b/mainmem.ldr.s @@ -17,10 +17,10 @@ START JSR CROUT TRB $C035 JSR ROMMENU - LDA #>AUXADDR ; Address in aux - LDX #AUXADDR ; Address in aux +* LDX #