From b78fbe5ac4caba1a10af3c156ce04ec2bf4cf760 Mon Sep 17 00:00:00 2001 From: Steven Hugg Date: Tue, 28 Jul 2020 15:06:49 -0500 Subject: [PATCH] atari800xl.mame platform, Alterra ROMs --- doc/notes.txt | 11 + index.html | 1 + mame/cfg/a5200.cfg | 41 + mame/cfg/a800xl.cfg | 45 + mame/roms/a800xl.zip | Bin 0 -> 11026 bytes presets/atari8-5200/{hello.a => hello.dasm} | 2 +- .../atari8-5200/{hellopm.a => hellopm.dasm} | 2 +- presets/atari8-800xl/atari.inc | 1426 +++++++++++++++++ presets/atari8-800xl/hello.dasm | 79 + presets/atari8-800xl/helloconio.c | 15 + presets/atari8-800xl/hellodlist.c | 89 + presets/atari8-800xl/hellopm.dasm | 192 +++ presets/atari8-800xl/siegegame.c | 243 +++ src/common/baseplatform.ts | 47 +- src/ide/views.ts | 1 + src/platform/atari8.ts | 74 +- src/worker/workermain.ts | 7 +- 17 files changed, 2216 insertions(+), 59 deletions(-) create mode 100644 mame/cfg/a5200.cfg create mode 100644 mame/cfg/a800xl.cfg create mode 100644 mame/roms/a800xl.zip rename presets/atari8-5200/{hello.a => hello.dasm} (98%) rename presets/atari8-5200/{hellopm.a => hellopm.dasm} (99%) create mode 100644 presets/atari8-800xl/atari.inc create mode 100644 presets/atari8-800xl/hello.dasm create mode 100644 presets/atari8-800xl/helloconio.c create mode 100644 presets/atari8-800xl/hellodlist.c create mode 100644 presets/atari8-800xl/hellopm.dasm create mode 100644 presets/atari8-800xl/siegegame.c diff --git a/doc/notes.txt b/doc/notes.txt index dc7d8aa7..e8a4dec4 100644 --- a/doc/notes.txt +++ b/doc/notes.txt @@ -199,6 +199,7 @@ TODO: - don't include start/end line on platforms w/o raster timing - memory map shows subroutine symbol even after RTS - BIOS symbols +- show current tool for file @@ -484,6 +485,16 @@ class M6502_T { @bus(16) address : Bus<16>; } +Optimizations +- ordered/delayed assignments +- skip unused exprs +- opcode -> fn table +- bus protocols -> functions +- state -> lookup tables or switch statements +- vec[] -> bitmask +- multiclock execution? + + STATE REWIND diff --git a/index.html b/index.html index e1358f4f..7469d28a 100644 --- a/index.html +++ b/index.html @@ -218,6 +218,7 @@ if (window.location.host.endsWith('8bitworkshop.com')) {
  • NES (MAME)
  • ColecoVision (MAME)
  • Atari 5200 (MAME)
    • +
  • Atari 800XL (MAME)
  • diff --git a/mame/cfg/a5200.cfg b/mame/cfg/a5200.cfg new file mode 100644 index 00000000..4bdd511b --- /dev/null +++ b/mame/cfg/a5200.cfg @@ -0,0 +1,41 @@ + + + + + + + + KEYCODE_UP + + + + + KEYCODE_DOWN + + + + + KEYCODE_LEFT + + + + + KEYCODE_RIGHT + + + + + KEYCODE_Z + + + + + KEYCODE_X + + + + + + + + diff --git a/mame/cfg/a800xl.cfg b/mame/cfg/a800xl.cfg new file mode 100644 index 00000000..451579e9 --- /dev/null +++ b/mame/cfg/a800xl.cfg @@ -0,0 +1,45 @@ + + + + + + + + KEYCODE_UP + + + + + KEYCODE_DOWN + + + + + KEYCODE_LEFT + + + + + KEYCODE_RIGHT + + + + + KEYCODE_Z + + + + + KEYCODE_X + + + + + + + + + + + + diff --git a/mame/roms/a800xl.zip b/mame/roms/a800xl.zip new file mode 100644 index 0000000000000000000000000000000000000000..b569f365dbea959fc6a0b4cb1e39eb81fc696ca3 GIT binary patch literal 11026 zcmZ{qV{j!v)2L%?xUsWIHg-;&jg1rA+}O75jqPM(+qP}<#CGn!b?bihT}{`prn_f; zOjXa!BQFgJg#iWu1_yTU`7XZ$fN0F31_J{V00Tn=BLFk9WoKsN;xuG%u(eiEh6jVB zjr^hapX}_000s{A1`Y=HPa6#E!qe9aU8U)HGV3RBey;dEE|&_Dv`PI3gyEtP2&EYh!*B=ip{R&QIA z`FJb~Mjrh~yz6CQ%jH{_w=Ms6cNhO7dlt{}hUYZb(|funB?p{2tI>6TIcnmJ`YNgi z9jn+--fUk@P#F>6R3{dGd4Rd9=)7(?W{)S?Vc(=0cO2#lsvGdblS>mhwF(a7{zlU@6C09>g#w-hj%G}tl+J%gexlfc0~GC8=VAb3fX z$&YzVxz~21&Ylf!vZHuZftv#zR|YT|8ky_~35Y=Xy<=l!_XKQldUDGgkvP@Xp5YNY zs#211@R|`hB+IlfV=W*Jj6^w->n*vp?E~};Ck?l-Xs7Se_rFl9w}~*m)A3_b4zrD- z91RfEEGci`4QEQB8|rY>A1U3EMIb#Rd*AZs`PNEKLuaXfxANGOKfiJH@jEE zB?l-#yn>91pqtD^Dj|sX+>_oC?;Rw~O^cTwbJCN$El@v=%w;j#qz*m)rOqo9FHS)g z3-r*n?Ca>FLwA&};XX;uK}0j1oz3x_LKw;N-!z^TRQcm?c`YnY^3cB z3%A2+`)N^KVJ$j#QRRN#`F^tI&KBKx*QFhBIE9d={<)Pj%CHM;OpAt3`zC9UD@@@u zLYJeasL6-&SG#9J)ar-vLN?i?gBgW^20P%?*StW zKzZ^^IiH-20h+hi*3Z23+X*qVNWQ+|1Rt+}m*5Gsc>$um{c*q~Vh&h?v;|<&l80&8 zUwYZaunHYuSj@#(ET;V@ltl`V>J6FbDvv3eQaS;K)|f^vP;?+JH4He+@atsszs3cS zUgQX_@iX_av|Yfhj7r!uV_*X%k2&ed4P?b7HKzmwW#lnFL^7!Jx|Elg9%M}f)W4Bc zfMVTv>?YIa8jtOwo6)OzW4jRz6_3^En$yex{{rv0Y@E=U5R7^*6UcjMq>?oik6<$1kxuBU zVE*0UIKCw-gSqcgjn(Uha?k`(9N1_$c)1KwY{O_?=K~Axed>N`)*cWgEbHfm3_qdh z3VqAIm8@Z(7%7nss0>+HlXOnhzQTDvGl7Bc!x6LS?R3XzfNlEAkid0KBHuTE|J9G$ z2L0mV>El0^WAIJf0;k*0U}+T_)f=;nhL%>Q$k)S0Gdn(xhPRyrt~mo4dOtMLx%}$Q2$0Zp!*1i=p2L`F{2VH__gx=wU%su7LK=(XM%Q-PvIhmn}yFg zh-k!=(HO2<0_oP8>{a&T7evM^(hFH*8V=gIdJhIuu<_^7f{+U10Jn(kjyBdJuc4q) z*nRAYYY_4Zt)VZAZ7#~Aw!i@i4C%Xkrn_JvzaXet^mQFRZ{+=<47L!0Pp^^R-ZDV^ zk<<>X5KkScHca>P42*`C*I(sJ$YKXvht!840>?+Nkm622{|ovKF4IC4GKO^+ON1a7 zH8+fCf(#lH%Sy|1nJkd2=*OUy0L9(FIz>8gu7*akCO7?F6fR_55RSPukSGJ6K4O=gktyj(Ji{KW?1ZQ6Ysvr^jU{g zSl>{n_9A{5`v_6x~;eOxx%o3S;;$mQwr`80_MZ|N}(BGvtptYk#fe5Y^ z{AG>7w8Y%+hM|#e$zGa%t01+*(4r?(V@e$B)*&b)nlg1YXE!4*O+!g7y&pGl!z>M- z%<)F>!34cYLZfdQevPhuczh{vHQ|oq*m~o6qJnFr%ZE%#GDfZylFxNY&}dI=yW#lp z0l&#+!gHz?7uP0MtN;jKAl_>Nk=`-bWKS#AwE8GBH7#B*84EOPvQDtx$67z*btH7p zK=sNN%+P&5ES_}F(A%(58ntyj;%73J&^US*2A)Ox?TDK8FxNuDLKvV zmf9=b;xVKK-#xMnB6o`u>CyFKi&r@&+_{s{rCC<9ELWBb!y$?ovx(xW>nk*7ZvQrM z0_MAT=er<(Ra+b{EYlSX5{{4m*~7l1VnlCdWCTWVY*N@v2ld%tyZ&V}SM#w_!?Iyy zM8Z@{C7E&c;Dbw2PH8CiyeG@|^DHbb7Q`!8Q&fVLa`YO79i65dNnynC(q2*|}&J~J~`in5`&Bz@M_yxZsqX@FYVTk=I@ViI% z`+^0(sTR2Og;Cv-*SzyZc=v|j2mf?6etYZj&4X-wckS8!`(%spg@OmNMSSNd_N9N@ zJb$Vm?(0J(6Q(1|VADh20u#lhmYzN5Y;4*84Aoq%L7ct$a$dd8`Hm9P_`cnEnFDZq z{1ql9@-=Q=8irJN9Q4~m0Ri8zz0AX+`uR%n{u7tQqEx_(0rC8d zsj-Y|mFNkLw1Z948vU6jwPzT)eUh>dXQOSWR-?ooG=-aY{!JE1!;Z=f z$WI<(T*>>Bn4W8{bVGXsP&rO?KZvjrqV{{@xA8khYmq; zO7pb@;u!a+noltGCG906a(Yx>R0!=Qsm|YS1stYgr_Qt32b^}Mb;@0N-@n_j-pWMC zHJxu-?-Y7g!e9A(-Z@q_Cl689C(u%W@oLsfTM}Hr8bmXHFZp13s_YAG?Q-G|jhK7d zwmG5=%qCFS}s-`Kk9B~TY;>fN(hs-G9 zDl{wPI7dMzQCM4rD6*DVa;vhnB?Hw~dbN5$9u3l*6rzyRP`S{4!1L+v#MfZ^}_P8|gRn_`l*ltck`}wlguhv6)KbY6XXv za(wY?qM*?f_>_RqwWPE5r>g7CR)D}LBU|artTrmpXbtMYu6qrFbMnYC?&zp)ywf>K zRF|zLBRZBAHqWYRt%?Q>OcH0UvjNknMt#lV2GRY=$)qXWh5Kt~@~U^Gtl;s#NYf)L zmiwCU)>MUx8CEmiVgl`@Z1@0hZaXF1p3eK~cS_TFL?_eOf*IHQd4+mv)Mnv*mVsy( z-H8n7&nc#z0_!g~EZ4x5v*kr#17`gW%*&mb7=F~?{~Fq@;hTe)!z@}rO2 zW4vp4v-I9haw%dyrTC*TS9^%ej`zFfJKWKHKmC1_?LcmoMj8r$({2qQCv;I#-tB&~ zR~0#T=~uE$=VNVY+6@EQSPJu+{UP!CquzQz!Y3pO%iG75KLunCT21WggkQ&6BPw_N2NS%}Pk`E0$U z5%}h_rdRB(MymHcU#H|P$Y+^@I?DDB?D-P3%Uv{NJA4}kybd{guuiZe2`9P%vK1xx z+w<9yYNcHF7vm@0cGi(n6w?ao`(IIZr?Ji>rJhXjH!T+qGPv@sZB~vY(4o&^O>X^C zLtJVYM4Bu@+pusK?wjC8d)F4q*|xI<|6ku_wg2>GFJT|9EdDcyc`wo`W zN7oeCxi-jNqn7c^y8`mOVbrhg4%_zc>_XS-)vYA2`wly+Ri&w>be7d?@#&jOkw-emZIml7A8-P~%$hEk~)eqP9(HpDj+Sr8&l_e68 zAzszHN2067)4~%bCF4C2s}GXvffQ8clMoOxP@_F}!!cmX)zk#;wd zbJ+@H4%;ji4__5QJ3@WLtueFwtz~u}ZDe~Rx-yhigq^A3G>c9yQz+N;Y?t-&ob!F^W_zwWrhNzr|hebq$69YbzC7a0} z#tEaS&!&nPyY60E8|YNyOOwA$Sq(!)zzOr6tX-0hSU(*-RVmP$nVwWgwg z_*tK?fTzOfZr2WP1I@jvpX+6;*jl$4p4dO5Vl*2+=7F01kxqEouNfP_(1yr~aXpE7 zTTRxtcwrdRY#(RMfT=F`r@UI%t_RSpIl9Z&P#-}$z;tRMnyiURUBP}{+vy|pa;n?Q zQ4#t5?qmCF`|4|^BR?M+9cdslfuc7UkJ@g18QVUxt1GN>F+C#U-xVycv8&5jcx<4B zN=jICP)>?gahoh5xTd~K2Q2~Qx3n3w_c@N5UVX3Z5?eLvn!CXmdzgJqWiZ6)y(s%Pqbw&7<(ot z62$O%wwJ?Lc5#Cp&vqH$+y@QP&v?)beK_r3TJf+{?R@YGeVAncMTS-$uT^-iRg5!e z$hl|%HGZk9|MS2Tb+6U0&Gm5-)chsAis*`hr-1~2DKo0|&-gihEOmekn?Pz6*OzpP@u4hko>Drr&|g!p z4LD`KSOn105Emn&?X}f#(#BH*Uz75WbrAI?W{!pTF!+l)_D)Ol>G$z~fR9=h6HK8k zhKiF@S8kbRmJXPuvF>PmYex`9PWl1P^`ClgJbABhUC zREhT21@de3P;y}U1&Dc)Ww7&4dWgOvWi4T3Fn9e zgg8v@V+k1&@>0M}dGWsilk88BnH7eRB$4be6G-<02bIT}HK|~z^j!%Psi>5lCW@r* zjw;n_-S65_vU1m~? zU1;e3_IimCSD8BjDISxL0|A-+8}5iM$<9u?p)4srt^E#a4>F};Cq80DNw>N^NwErw zWM*1tU?$}-3Mis+pPD|Q{k;;g@k=gdCIh(f!Xn%csPU07P^LkG+KA*L%blwV;eY)~ zmtRHJS%4m|T$wQqVFX58F`d}V%R%L)OT1$CVWg&-Xkaw~js7Tb$JQJMKA~q51GK=M z`khoPNMh(ILu=5EE6#w%A^;sXd~YwKWi{11E}m7J@HcUO@bs_52cct18-Qr+DOw!1 zf{)k|)W!{l^_5giiA>@{hT|O7B_Sg4s1c8*NV(cyup*(Skl>|lI4!e!EaQ&{h+F6x${ z=QA{E^)q-(W=lA1$pFD5YpsNMS9@%E0GE=$huc85E4La@{zC$Td@ctC6o}h%T2q%L940jLF5LadN*fG-#Yu96N zgW;_iE4U-Bz4HRcL9UA@w|gXN!?Isf@yH)BTlAnJCeIu)omWiDcwhZ1vZ_6auXU0x zW=z~TiV+c;8K=TXS4cP`VzBQ>k}3awNZ$O=`nMRjYQSbhH{2q?86Qk(Z$9Znhr10v z$`USl#H(hHcWLxrO*eCE!j8WOVWIX--oI9LmkE7?#FZo)xS@DG?bpw{Nj$AOc&2#4 z+w|{3FSPcCRi#y9^-(0iM6WCk3k~_56^1ETgOeL4JN8lLRoK>)0m}cQ>Ne zbOk>*C2ef=X5dK?=L3dw_)E2NMwBTS4z?aO?o-9W2%T!)@D77ahl(Tve-1?hFP|w=(-OzYz*DAUsIZ8_#2#%tYR1zY zsx0V!QN%_id48-X(#l9JvlBy4;Eay48Od)+PDr>4H^uL9@nXWee0@v%1jX}`an**l zm__(}29R59L!avgS*D_-+o$=z?)+qkEEWJYzpBxozbBYu@AOE7=s1v` zv))jT_>MN%?)MAJ#@Sc8C1)^Bq|>x^j`CvF73=MZ%3e}5=|Q>VjjrpO{?UtaR{rH4 z>acYTAH~bpz!fKDq|?N-c3mKeB3i2h!=c=j4qBU}px9EC8$?|f5F}IHjx*YDe~N&` zJ6iKYpzSwwp*9q?+G_x4=nrzkXqam)0#penFZEKjijz+uL;&d%NZq0Cu2s>>c>a&x zFh!OR--jm0%K?&>Spc)&vcT)aWk6z>92}e-7MU*dot>lrZ zy(`kT3EK;y?j1GN7l(XmLPbjhm^4yg4A9nXY6;W6r9R())MhOQ$5xHLD zv>XE-b;_3RYJM7DoI4)6-0B=UqK3S&Qc5k7Q#-{!)`*oxM{_;GaY1DTwepRvd6)LQ z!6i4NUot>4T|X++Av^t5#OT3k--EmrAn!}UCUNjI0F&|J__OO@gAa{=NL;8)G8iqF zn1`-?AeBW$4e7H0-vR*^nYy=l{a(LVrAxq|=k3)<06d#o@_6Zxo<3MQ{_8s&Ld>V; za(U7U=k#u8<&AZoN*A7=ZAm7+v3*q~Q#3+`SHC)!b^gumHa5xKTQRdDi7kt~N-w!_ zrwt*crMi}>>vDx06^B%8W-*vSMV6#l5rQMuc-XTR)rH)tZN0V~67mKWD}N&^HKrZR z6PDW=#|5tD`9sI`aMEI=(z0OMb%v4XF`$esl1&?1l<~s~(=5%azLau^#S<2Jkq+4r zGPH|;^MHu6P-GUsAdRPr!uO0yKDkSjS2(^QBo%SUGD^Kke&Bf&&v=965Y-&1xOZAM zzSK>HmW_vG;BsZslOfWX|Ab69cE2ISZ@0=_5jLAfgwC7NaC*unUcsDlnkMeIL8d;Z z3c`fs3==xk<5wmWz1${yx;n)F-lFq)?TK(_q`)V3ykGm|BR2eM2#?H%vB z`|(4DH@!nqPoR5Etb5~k+P7)?BxLX*NamMsPQe;~HW3Pcv*QgYU!6W+S0;Eq_d;q~ zJdve~wWf5AzM=jec5htM87ZH?geXQaaLle6dSi;oygZ6T{$c&nf~J(iX;Yg(Xxf{X zfwOC2E~ay4^15BcW5In$J0U!td^m$pU!P)fB?zx{^y`nMZ>h2CByl(AJfT=Cn*oNb ztIf*JfmRwFRY$@o9swQ^5#EVPS0D>h;lKD;A;ipRqS9P6v`=$$02&WTaXUVKuoK3- z@!&(W6DIlx^AH}ADDE)D@0-(~N^#BVsieMmIN?+TF(s@9MO!b^^bN1MPqIR+HGA@jZ#OViV4G`znV&o$TA>)+3BFokq=! z31MCDyrS8!zv*b~or%D&y z?yB#)#~lIxTNHOfTZi<)q)8}KHP7{Mc{{%v@!Pj#b~ublT}-uCqaV9xtzt6#c8x7@ zTfUg7QCJO^!l~KYdMa*^2$89@>S5Cr82VewI@1W1m&Dh~uoZ%HoA$kBLI#2NKR(*a zb4yOBb4%h8A;;pWJ-*mpvq-?17ikRwBySdJ5C3|Dc1FJgO+`u&%JtQqvs)C49|`-w zLwzIuoW$O3(7Zzo1U}v(MWY2oK8xrQl-{;wm)Z9qN%TVHN;jbU6_)IxIl!3~k#O{7 z!T`XoDEl8Rp`z*JoYm7S(!9g{o3TicFc1G74y07)G}Z|QlM|44@>{vX3HICI##s_9 z|G9hqr$zKL=ZCrP;;SalNA-tTAUvb&w6vUd0sHoohTMZxa9#F!2~vNJ;SLNF$#)Q8 z&!^fUCwDzc+>-PM)T%TJ3OLd0HcWY)<6ECPQEsfxcy9R{p$aHv{Yt%gL)QjY@sqbs zW8$}?Fqh#}N@&e6*qGhnj2@!qlb({e$;?9_^6NX>3g8!}$G7AXIY?JM#lk1E6N#@I zyiT8!aFm-%6lO#S`H4J)(4N5-J{(Ize(fxDsv41_){LuMyZWB@ts{vHZ`@Fk}LOo;$toZmf!15Au91}Xj8Zb&){ z(^w1F5)+c=+tbW>gr2 zL!E|O_vzmp--hO*9)ZQo5L?~7@A=*--d_lee9fR%fgY#QKCAV;5#eP1Fl1*ezKu9o z8C5b}t&a$+znU+nG1-B(kA4u7I~1I;+q7%9^3fOYk6iYcmMQX*tvWFTOi=Z>^K@ZCzd5cu$88 zLTPAa_F%KIygxG{?;^sl>M9IJn~IoTN9hE`Xn@wUg-Q}LDme080wie0w8*VGtpBPq2CaR2FZQ{*R_ zfy;zc2TCoYlyv&)cr~@u29XzXr{_0U>p{})p2}OK$}@;8?9W`UXUlc+TE~vx+n#w0(^6jV!k_P}OTX>Joj zRHTkqVLGmOy>61&dlX+GuUrYZjzBc`&Gk3{CxWB5+|#3j3f>7n)=5C#%l?S0K1lti zJi;eI7#Uqhu~LSwdQ_)(G%69stJA>$g{hLj!qY5 z69$>(52IwyNkPUKH) z2Vt~5ttlw#zC0qf#4QirbojZt1leDFRbIq^`>T*gO@1O$74r!C&`I+O#%tV@*w9>^ zR>e#N^J3ar!0xc}StO}O&A5oaLs`8}tBiA1K0<@Zo6ld}U4=5ob=7BX;Z{WTJ`XFV zV3#Ki5KNgvL`vYW@}XukQW-`53O)ZGRH0dUU3qKxUNCIU!P5VX_MHqn?-pJob z!V&$lI?D?c+A%_v)#yf-5r}AU)e$v+j|Yc*<(%Hejzl|7l}3pCH3d){Wg@}o;{!V# zb_zOhD6AFN&edwB_lU(5ri!+v=p=9zQW&ndWTixsi5_;`s#G(ZRE{F{AUv*Uk|Pq0cap^@Hn#=9Mwlcs}J^iO(P*WCUY`wrIaex z@AO9VS2F%9uKXw8;taW&SpZW4ELn%XiXvfwy&}0fqTC?E^dmod8Katg9_2x;l41%< zuI({1y=^|QNxPVog|7f2Y>^XZc8Yt#J-kB4D`s+BI8N%$LAh@GRfc$RjbX$A5O!igB|>QFO<$1`Q&RVbk6B~%i<+< zL+Q`npd5#CwCo|{h#w(+! zgWnd{&GCeN7#z|d?irmjuDw5WA%Crp^>sFC0qs98vat>szGSDn-!$ZUzM?3%z9JYY zUX(fnE$1kJQm?8^f&#P)M#M(y1#v0V#6~Nu-cjCH?P&TXy(vsv)uXXJowGnm^G_&^ zVei1Cb+FgE(08d1mSo%8NBu8PDF}|RR-)SuH^j%Jlv=V){Gl2UqR}?F07VZ{2^hQY zB&6)|ohwl9YU6q@y94*GnKQ?k+gIcIR{J>9y?F!hc4_Q!#C^P`vChG5trf}Mec$IT zJKh;gU5aoXvp7XKZS66X?%qA$dT=a9@A&)hQse!;X*dgoCkv(0!=dc%(Y$$s+2nTm zM32syFZpP~g~4mDGc#!%JxkKHE8)}PFh5E>lZRO6M!(_)vjlL|BzYq{-@-eKZreF3 z$(6O@RX^W4>>lYj5^hE@#Wi+HaIpY%b3K2CqD(Y6E;r~D1kuId6};#zeffS=@(Zn_ z5T9&0Kl6jh{}c3n3znA>q zE$;tgRsUK1ZyWe$@&B=Sd1+{v|9FS^Cx!oNAsR3+EHGs`MMY6rWlc$Wc~KF1W+4Ex JC^IYj{{Rftcwhhk literal 0 HcmV?d00001 diff --git a/presets/atari8-5200/hello.a b/presets/atari8-5200/hello.dasm similarity index 98% rename from presets/atari8-5200/hello.a rename to presets/atari8-5200/hello.dasm index f72a1485..86083e64 100644 --- a/presets/atari8-5200/hello.a +++ b/presets/atari8-5200/hello.dasm @@ -1,6 +1,6 @@ ; Atari 5200 "Hello World" sample code -; Written by Daniel Boris (dboris@comcast.net) +; Written by Daniel Boris (danlb_2000@yahoo.com) ; ; Assemble with DASM ; diff --git a/presets/atari8-5200/hellopm.a b/presets/atari8-5200/hellopm.dasm similarity index 99% rename from presets/atari8-5200/hellopm.a rename to presets/atari8-5200/hellopm.dasm index 8653f50e..98609176 100644 --- a/presets/atari8-5200/hellopm.a +++ b/presets/atari8-5200/hellopm.dasm @@ -1,6 +1,6 @@ ; Atari 5200 "Hello World" sample code -; Written by Daniel Boris (dboris@comcast.net) +; Written by Daniel Boris (danlb_2000@yahoo.com) ; ; Assemble with DASM ; diff --git a/presets/atari8-800xl/atari.inc b/presets/atari8-800xl/atari.inc new file mode 100644 index 00000000..d569f01e --- /dev/null +++ b/presets/atari8-800xl/atari.inc @@ -0,0 +1,1426 @@ +;------------------------------------------------------------------------- +; Atari System Equates +; by Freddy Offenga, Christian Groessler, and Christian Krueger +; +; References: +; - Atari 400/800 OS rev.B source code, Atari 1979 +; - Atari OS manual - XL addendum +; - Atari XL/XE rev.2 source code, Atari 1984 +; - Mapping the Atari - revised edition, Ian Chadwick 1985 +; - SpartaDOS-X User Guide (Aug-8-2016) +; +; ##old## old OS rev.B label - moved or deleted +; ##1200xl## new label introduced in 1200XL OS (rev.10/11) +; ##rev2## new label introduced in XL/XE OS rev.2 +;------------------------------------------------------------------------- + +;------------------------------------------------------------------------- +; Configuration Equates +;------------------------------------------------------------------------- + +MAXDEV = 33 ;offset to last possible entry of HATABS +IOCBSZ = 16 ;length of IOCB + +SEIOCB = 0*IOCBSZ ;##rev2## screen editor IOCB index +MAXIOC = 8*IOCBSZ ;first invalid IOCB index + +DSCTSZ = 128 ;##rev2## disk sector size + +LEDGE = 2 ;left edge +REDGE = 39 ;right edge + +INIML = $0700 ;##rev2## initial MEMLO + +ICSORG = $CC00 ;##rev2## international character set origin +DCSORG = $E000 ;##rev2## domestic character set origin + +; IOCB Command Code Equates + +OPEN = $03 ;open +GETREC = $05 ;get record +GETCHR = $07 ;get character(s) +PUTREC = $09 ;put record +PUTCHR = $0B ;put character(s) +CLOSE = $0C ;close +STATIS = $0D ;status +SPECIL = $0E ;special + +; DOS IOCB command codes + +RENAME = $20 ;rename disk file +DELETE = $21 ;delete disk file +LOCKFL = $23 ;lock file (set to read-only) +UNLOCK = $24 ;unlock file +POINT = $25 ;point sector +NOTE = $26 ;note sector +GETFL = $27 ;get file length +CHDIR_MYDOS = $29 ;change directory (MyDOS) +MKDIR = $2A ;make directory (MyDOS/SpartaDOS) +RMDIR = $2B ;remove directory (SpartaDOS) +CHDIR_SPDOS = $2C ;change directory (SpartaDOS) +FORMAT = $FE ;format + +GETCWD = $30 ;get current directory (MyDOS/SpartaDOS) + +; Special Entry Command Equates +; DOS Commands +; Command line table, Index values for (DOSVEC),Y -- COMTAB +; Compatible with OS/A+, DOS XL and SpartaDOS + +COMTAB = 0 ;DOS entry jump vector +ZCRNAME = 3 ;file name crunch routine jump vector +BUFOFF = 10 ;next parameter buffer offset +COMFNAM = 33 ;destination buffer for crunch routine +LBUF = 63 ;command line input buffer + +; Screen IOCB Commands + +DRAWLN = $11 ;draw line +FILLIN = $12 ;draw line with right fill + +; ICAX1 Auxiliary Byte 1 Equates + +APPEND = $01 ;open write append (D:) +DIRECT = $02 ;open for directory access (D:) +OPNIN = $04 ;open for input (all devices) +OPNOT = $08 ;open for output (all devices) +MXDMOD = $10 ;open for mixed mode (E:, S:) +INSCLR = $20 ;open for input without clearing screen + +; Device Code Equates + +CASSET = 'C ;cassette +DISK = 'D ;disk +SCREDT = 'E ;screen editor +KBD = 'K ;keyboard +PRINTR = 'P ;printer +DISPLY = 'S ;screen display + +; SIO Command Code Equates + +SIO_FORMAT = $21 ;format disk (default density) +SIO_FORMATS = $22 ;1050: format medium density +SIO_CONFIG = $44 ;configure drive +SIO_CONFIGSF = $4B ;slow/fast configure drive?? +SIO_RDPERCOM = $4E ;read PERCOM block (XF551) +SIO_WRPERCOM = $4F ;write PERCOM block (XF551) +SIO_WRITE = $50 ;write sector +SIO_READ = $52 ;read sector +SIO_STAT = $53 ;get status information +SIO_VERIFY = $56 ;verify sector +SIO_WRITEV = $57 ;write sector with verify +SIO_WRITETRK = $60 ;write track (Speedy) +SIO_READTRK = $62 ;read track (Speedy) + +; SIO Status Code (DSTATS) +; Input: data direction +; Bit #7 - W (write operation) +; #6 - R (read operation) +; Output: status code +; $01 (001) -- OPERATION COMPLETE (NO ERRORS) +; $8A (138) -- DEVICE TIMEOUT (DOESN'T RESPOND) +; $8B (139) -- DEVICE NAK +; $8C (140) -- SERIAL BUS INPUT FRAMING ERROR +; $8E (142) -- SERIAL BUS DATA FRAME OVERRUN ERROR +; $8F (143) -- SERIAL BUS DATA FRAME CHECKSUM ERROR +; $90 (144) -- DEVICE DONE ERROR + +; Character and Key Code Equates + +CLS = $7D ;##rev2## clear screen +EOL = $9B ;end of line (RETURN) + +HELP = $11 ;##1200xl## key code for HELP +CNTLF1 = $83 ;##1200xl## key code for CTRL-F1 +CNTLF2 = $84 ;##1200xl## key code for CTRL-F2 +CNTLF3 = $93 ;##1200xl## key code for CTRL-F3 +CNTLF4 = $94 ;##1200xl## key code for CTRL-F4 +CNTL1 = $9F ;##1200xl## key code for CTRL-1 + +; Status Code Equates + +SUCCES = 1 ;($01) succesful operation + +BRKABT = 128 ;($80) BREAK key abort +PRVOPN = 129 ;($81) IOCB already open error +NONDEV = 130 ;($82) nonexistent device error +WRONLY = 131 ;($83) IOCB opened for write only error +NVALID = 132 ;($84) invalid command error +NOTOPN = 133 ;($85) device/file not open error +BADIOC = 134 ;($86) invalid IOCB index error +RDONLY = 135 ;($87) IOCB opened for read only error +EOFERR = 136 ;($88) end of file error +TRNRCD = 137 ;($89) truncated record error +TIMOUT = 138 ;($8A) peripheral device timeout error +DNACK = 139 ;($8B) device does not acknowledge command +FRMERR = 140 ;($8C) serial bus framing error +CRSROR = 141 ;($8D) cursor overrange error +OVRRUN = 142 ;($8E) serial bus data overrun error +CHKERR = 143 ;($8F) serial bus checksum error +DERROR = 144 ;($90) device done (operation incomplete) +BADMOD = 145 ;($91) bad screen mode number error +FNCNOT = 146 ;($92) function not implemented in handler +SCRMEM = 147 ;($93) insufficient memory for screen mode + +DSKFMT = 148 ;($94) SpartaDOS: unrecognized disk format +INCVER = 149 ;($95) SpartaDOS: disk was made with incompat. version +DIRNFD = 150 ;($96) SpartaDOS: directory not found +FEXIST = 151 ;($97) SpartaDOS: file exists +NOTBIN = 152 ;($98) SpartaDOS: file not binary +LSYMND = 154 ;($9A) SDX: loader symbol not defined +BADPRM = 156 ;($9C) SDX: bad parameter +OUTOFM = 158 ;($9E) SDX: out of memory +INVDEV = 160 ;($A0) invalid device number +TMOF = 161 ;($A1) too many open files +DSKFLL = 162 ;($A2) disk full +FATLIO = 163 ;($A3) fatal I/O error +FNMSMT = 164 ;($A4) internal file number mismatch +INVFNM = 165 ;($A5) invalid file name +PDLERR = 166 ;($A6) point data length error +EPERM = 167 ;($A7) permission denied +DINVCM = 168 ;($A8) command invalid for disk +DIRFLL = 169 ;($A9) directory full +FNTFND = 170 ;($AA) file not found +PNTINV = 171 ;($AB) point invalid +BADDSK = 173 ;($AD) bad disk +INCFMT = 176 ;($B0) DOS 3: incompatible file system +XNTBIN = 180 ;($B4) XDOS: file not binary + +; DCB Device Bus Equates + +DISKID = $31 ;##rev2## disk bus ID +PDEVN = $40 ;##rev2## printer bus ID +CASET = $60 ;##rev2## cassette bus ID + +; Bus Command Equates + +FOMAT = '! ;##rev2## format command +PUTSEC = 'P ;##rev2## put sector command +READ = 'R ;##rev2## read command +STATC = 'S ;##rev2## status command +WRITE = 'W ;##rev2## write command + +; Command Auxiliary Byte Equates + +DOUBLE = 'D ;##rev2## print 20 characters double width +NORMAL = 'N ;##rev2## print 40 characters normally +PLOT = 'P ;##rev2## plot +SIDWAY = 'S ;##rev2## print 16 characters sideways + +; Bus Response Equates + +ACK = 'A ;##rev2## device acknowledged +COMPLT = 'C ;##rev2## device succesfully completed operation +ERROR = 'E ;##rev2## device incurred error +NACK = 'N ;##rev2## device did not understand + +; Floating Point Miscellaneous Equates + +FPREC = 6 ;precision + +FMPREC = FPREC-1 ;##rev2## length of mantissa + +; Cassette Record Type Equates + +HDR = $FB ;##rev2## header +DTA = $FC ;##rev2## data record +DT1 = $FA ;##rev2## last data record +EOT = $FE ;##rev2## end of tape (file) + +TONE1 = 2 ;##rev2## record +TONE2 = 1 ;##rev2## playback + +; Cassette Timing Equates + +WLEADN = 1152 ;##rev2## NTSC 19.2 second WRITE file leader +RLEADN = 576 ;##rev2## NTSC 9.6 second READ file leader +WIRGLN = 180 ;##rev2## NTSC 3.0 second WRITE IRG +RIRGLN = 120 ;##rev2## NTSC 2.0 second READ IRG +WSIRGN = 15 ;##rev2## NTSC 0.25 second WRITE short IRG +RSIRGN = 10 ;##rev2## NTSC 0.16 second READ short IRG +BEEPNN = 30 ;##rev2## NTSC 0.5 second beep duration +BEEPFN = 10 ;##rev2## NTSC 0.16 seconrd beep duration + +WLEADP = 960 ;##rev2## PAL 19.2 second WRITE file leader +RLEADP = 480 ;##rev2## PAL 9.6 second READ file leader +WIRGLP = 150 ;##rev2## PAL 3.0 second WRITE IRG +RIRGLP = 100 ;##rev2## PAL 2.0 second READ IRG +WSIRGP = 13 ;##rev2## PAL 0.25 second WRITE short IRG +RSIRGP = 8 ;##rev2## PAL 0.16 second READ short IRG +BEEPNP = 25 ;##rev2## PAL 0.5 second beep duration +BEEPFP = 8 ;##rev2## PAL 0.16 seconrd beep duration + +WIRGHI = 0 ;##rev2## high WRITE IRG +RIRGHI = 0 ;##rev2## high READ IRG + +; Power-up Validation Byte Value Equates + +PUPVL1 = $5C ;##rev2## power-up validation value 1 +PUPVL2 = $93 ;##rev2## power-up validation value 2 +PUPVL3 = $25 ;##rev2## power-up validation value 3 + +; Relocating Loader Miscellaneous Equates + +DATAER = 156 ;##rev2## end of record appears before END +MEMERR = 157 ;##rev2## memory insufficient for load error + +; Miscellaneous Equates + +IOCFRE = $FF ;IOCB free indication + +B19200 = $0028 ;##rev2## 19200 baud POKEY counter value +B00600 = $05CC ;##rev2## 600 baud POKEY counter value + +HITONE = $05 ;##rev2## FSK high freq. POKEY counter value +LOTONE = $07 ;##rev2## FSK low freq. POKEY counter value + +NCOMLO = $34 ;##rev2## PIA lower NOT COMMAND line command +NCOMHI = $3C ;##rev2## PIA raise NOT COMMAND line command + +MOTRGO = $34 ;##rev2## PIA cassette motor ON command +MOTRST = $3C ;##rev2## PIA cassette motor OFF command + +NODAT = $00 ;##rev2## SIO immediate operation +GETDAT = $40 ;##rev2## SIO read data frame +PUTDAT = $80 ;##rev2## SIO write data frame + +CRETRI = 13 ;##rev2## number of command frame retries +DRETRI = 1 ;##rev2## number of device retries +CTIM = 2 ;##rev2## command frame ACK timeout + +NBUFSZ = 40 ;##rev2## print normal buffer size +DBUFSZ = 20 ;##rev2## print double buffer size +SBUFSZ = 29 ;##rev2## print sideways buffer size + +;------------------------------------------------------------------------- +; Page Zero Address Equates +;------------------------------------------------------------------------- + +LINZBS = $00 ;LINBUG RAM (WILL BE REPLACED BY MONITOR RAM) +LNFLG = $00 ;##1200xl## 1-byte LNBUG flag (0 = not LNBUG) +NGFLAG = $01 ;##1200xl## 1-byte memory status (0 = failure) + +; Not Cleared + +CASINI = $02 ;CASSETTE INIT LOCATION +RAMLO = $04 ;RAM POINTER FOR MEMORY TEST +TRAMSZ = $06 ;TEMPORARY REGISTER FOR RAM SIZE +;TSTDAT = $07 ;##old## RAM TEST DATA REGISTER +CMCMD = $07 ;##rev2## 1-byte command communications + +; Cleared upon Coldstart only + +WARMST = $08 ;WARM START FLAG +BOOTQ = $09 ;SUCCESSFUL BOOT FLAG +DOSVEC = $0A ;DISK SOFTWARE START VECTOR +DOSINI = $0C ;DISK SOFTWARE INIT ADDRESS +APPMHI = $0E ;APPLICATIONS MEMORY HI LIMIT + +; Cleared upon Coldstart or Warmstart + +INTZBS = $10 ;INTERRUPT HANDLER + +POKMSK = $10 ;SYSTEM MASK FOR POKEY IRQ ENABLE (shadow of IRQEN) +BRKKEY = $11 ;BREAK KEY FLAG +RTCLOK = $12 ;REAL TIME CLOCK (IN 16 MSEC UNITS> +BUFADR = $15 ;INDIRECT BUFFER ADDRESS REGISTER +ICCOMT = $17 ;COMMAND FOR VECTOR +DSKFMS = $18 ;DISK FILE MANAGER POINTER +DSKUTL = $1A ;DISK UTILITIES POINTER +ABUFPT = $1C ;##1200xl## 4-byte ACMI buffer pointer area + +;PTIMOT = $1C ;##old## PRINTER TIME OUT REGISTER +;PBPNT = $1D ;##old## PRINT BUFFER POINTER +;PBUFSZ = $1E ;##old## PRINT BUFFER SIZE +;PTEMP = $1F ;##old## TEMPORARY REGISTER + +ZIOCB = $20 ;ZERO PAGE I/O CONTROL BLOCK +IOCBAS = $20 ;16-byte page zero IOCB +ICHIDZ = $20 ;HANDLER INDEX NUMBER (FF = IOCB FREE) +ICDNOZ = $21 ;DEVICE NUMBER (DRIVE NUMBER) +ICCOMZ = $22 ;COMMAND CODE +ICSTAZ = $23 ;STATUS OF LAST IOCB ACTION +ICBALZ = $24 ;BUFFER ADDRESS LOW BYTE +ICBAHZ = $25 ;1-byte high buffer address +ICPTLZ = $26 ;PUT BYTE ROUTINE ADDRESS -1 +ICPTHZ = $27 ;1-byte high PUT-BYTE routine address +ICBLLZ = $28 ;BUFFER LENGTH LOW BYTE +ICBLHZ = $29 ;1-byte high buffer length +ICAX1Z = $2A ;AUXILIARY INFORMATION FIRST BYTE +ICAX2Z = $2B ;1-byte second auxiliary information +ICSPRZ = $2C ;4-byte spares + +ENTVEC = $2C ;##rev2## 2-byte (not used) +ICIDNO = $2E ;IOCB NUMBER X 16 +CIOCHR = $2F ;CHARACTER BYTE FOR CURRENT OPERATION + +STATUS = $30 ;INTERNAL STATUS STORAGE +CHKSUM = $31 ;CHECKSUM (SINGLE BYTE SUM WITH CARRY) +BUFRLO = $32 ;POINTER TO DATA BUFFER (LO BYTE) +BUFRHI = $33 ;POINTER TO DATA BUFFER (HI BYTE) +BFENLO = $34 ;NEXT BYTE PAST END OF THE DATA BUFFER LO +BFENHI = $35 ;NEXT BYTE PAST END OF THE DATA BUFFER HI +;CRETRY = $36 ;##old## NUMBER OF COMMAND FRAME RETRIES +;DRETRY = $37 ;##old## NUMBER OF DEVICE RETRIES +LTEMP = $36 ;##1200xl## 2-byte loader temporary +BUFRFL = $38 ;DATA BUFFER FULL FLAG +RECVDN = $39 ;RECEIVE DONE FLAG +XMTDON = $3A ;TRANSMISSION DONE FLAG +CHKSNT = $3B ;CHECKSUM SENT FLAG +NOCKSM = $3C ;NO CHECKSUM FOLLOWS DATA FLAG +BPTR = $3D ;1-byte cassette buffer pointer +FTYPE = $3E ;1-byte cassette IRG type +FEOF = $3F ;1-byte cassette EOF flag (0 = quiet) +FREQ = $40 ;1-byte cassette beep counter +SOUNDR = $41 ;NOISY I/0 FLAG. (ZERO IS QUIET) + +CRITIC = $42 ;DEFINES CRITICAL SECTION (CRITICAL IF NON-Z) + +FMSZPG = $43 ;DISK FILE MANAGER SYSTEM ZERO PAGE + +;CKEY = $4A ;##old## FLAG SET WHEN GAME START PRESSED +ZCHAIN = $4A ;##1200xl## 2-byte handler linkage chain pointer +;CASSBT = $4B ;##old## CASSETTE BOOT FLAG +DSTAT = $4C ;DISPLAY STATUS +ATRACT = $4D ;ATRACT FLAG +DRKMSK = $4E ;DARK ATRACT MASK +COLRSH = $4F ;ATRACT COLOR SHIFTER (EOR'ED WITH PLAYFIELD + + +TMPCHR = $50 ;1-byte temporary character +HOLD1 = $51 ;1-byte temporary +LMARGN = $52 ;left margin (normally 2, cc65 C startup code sets it to 0) +RMARGN = $53 ;right margin (normally 39 if no XEP80 is used) +ROWCRS = $54 ;1-byte cursor row +COLCRS = $55 ;2-byte cursor column +DINDEX = $57 ;1-byte display mode +SAVMSC = $58 ;2-byte saved memory scan counter +OLDROW = $5A ;1-byte prior row +OLDCOL = $5B ;2-byte prior column +OLDCHR = $5D ;DATA UNDER CURSOR +OLDADR = $5E ;2-byte saved cursor memory address +FKDEF = $60 ;##1200xl## 2-byte function key definition table +;NEWROW = $60 ;##old## POINT DRAW GOES TO +;NEWCOL = $61 ;##old## +PALNTS = $62 ;##1200xl## 1-byte PAL/NTSC indicator (0 = NTSC) +LOGCOL = $63 ;POINTS AT COLUMN IN LOGICAL LINE +ADRESS = $64 ;2-byte temporary address + +MLTTMP = $66 ;1-byte temporary +OPNTMP = $66 ;FIRST BYTE IS USED IN OPEN AS TEMP +TOADR = $66 ;##rev2## 2-byte destination address + +SAVADR = $68 ;2-byte saved address +FRMADR = $68 ;##rev2## 2-byte source address + +RAMTOP = $6A ;RAM SIZE DEFINED BY POWER ON LOGIC +BUFCNT = $6B ;BUFFER COUNT +BUFSTR = $6C ;EDITOR GETCH POINTER +BITMSK = $6E ;BIT MASK +SHFAMT = $6F ;1-byte shift amount for pixel justifucation +ROWAC = $70 ;2-byte draw working row +COLAC = $72 ;2-byte draw working column +ENDPT = $74 ;2-byte end point +DELTAR = $76 ;1-byte row difference +DELTAC = $77 ;2-byte column difference +KEYDEF = $79 ;##1200xl## 2-byte key definition table address +;ROWINC = $79 ;##old## +;COLINC = $7A ;##old## +SWPFLG = $7B ;NON-0 1F TXT AND REGULAR RAM IS SWAPPED +HOLDCH = $7C ;CH IS MOVED HERE IN KGETCH BEFORE CNTL & SH +INSDAT = $7D ;1-byte temporary +COUNTR = $7E ;2-byte draw iteration count + +; Floating Point Package Page Zero Address Equates + +FR0 = $D4 ;6-byte register 0 +FR0M = $D5 ;##rev2## 5-byte register 0 mantissa +QTEMP = $D9 ;##rev2## 1-byte temporary + +FRE = $DA ;6-byte (internal) register E + +FR1 = $E0 ;FP REG1 +FR1M = $E1 ;##rev2## 5-byte register 1 mantissa + +FR2 = $E6 ;6-byte (internal) register 2 + +FRX = $EC ;1-byte temporary + +EEXP = $ED ;VALUE OF E + +FRSIGN = $EE ;##rev2## 1-byte floating point sign +NSIGN = $EE ;SIGN OF # + +PLYCNT = $EF ;##rev2## 1-byte polynomial degree +ESIGN = $EF ;SIGN OF EXPONENT + +SGNFLG = $F0 ;##rev2## 1-byte sign flag +FCHRFLG = $F0 ;1ST CHAR FLAG + +XFMFLG = $F1 ;##rev2## 1-byte transform flag +DIGRT = $F1 ;# OF DIGITS RIGHT OF DECIMAL + +CIX = $F2 ;CURRENT INPUT INDEX +INBUFF = $F3 ;POINTS TO USER'S LINE INPUT BUFFER + +ZTEMP1 = $F5 ;2-byte temporary +ZTEMP4 = $F7 ;2-byte temporary +ZTEMP3 = $F9 ;2-byte temporary + +;DEGFLG = $FB ;##old## same as RADFLG +;RADFLG = $FB ;##old## 0=RADIANS, 6=DEGREES + +FLPTR = $FC ;2-byte floating point number pointer +FPTR2 = $FE ;2-byte floating point number pointer + +;------------------------------------------------------------------------- +; Page Two Address Equates +;------------------------------------------------------------------------- + +INTABS = $0200 ;INTERRUPT RAM + +VDSLST = $0200 ;DISPLAY LIST NMI VECTOR +VPRCED = $0202 ;PROCEED LINE IRQ VECTOR +VINTER = $0204 ;INTERRUPT LINE IRQ VECTOR +VBREAK = $0206 ;SOFTWARE BREAK (00) INSTRUCTION IRQ VECTOR +VKEYBD = $0208 ;POKEY KEYBOARD IRQ VECTOR +VSERIN = $020A ;POKEY SERIAL INPUT READY IRQ +VSEROR = $020C ;POKEY SERIAL OUTPUT READY IRQ +VSEROC = $020E ;POKEY SERIAL OUTPUT COMPLETE IRQ +VTIMR1 = $0210 ;POKEY TIMER 1 IRQ +VTIMR2 = $0212 ;POKEY TIMER 2 IRQ +VTIMR4 = $0214 ;POKEY TIMER 4 IRQ +VIMIRQ = $0216 ;IMMEDIATE IRQ VECTOR +CDTMV1 = $0218 ;COUNT DOWN TIMER 1 +CDTMV2 = $021A ;COUNT DOWN TIMER 2 +CDTMV3 = $021C ;COUNT DOWN TIMER 3 +CDTMV4 = $021E ;COUNT DOWN TIMER 4 +CDTMV5 = $0220 ;COUNT DOWN TIMER 5 +VVBLKI = $0222 ;IMMEDIATE VERTICAL BLANK NMI VECTOR +VVBLKD = $0224 ;DEFERRED VERTICAL BLANK NMI VECTOR +CDTMA1 = $0226 ;COUNT DOWN TIMER 1 JSR ADDRESS +CDTMA2 = $0228 ;COUNT DOWN TIMER 2 JSR ADDRESS +CDTMF3 = $022A ;COUNT DOWN TIMER 3 FLAG +SRTIMR = $022B ;SOFTWARE REPEAT TIMER +CDTMF4 = $022C ;COUNT DOWN TIMER 4 FLAG +INTEMP = $022D ;IAN'S TEMP +CDTMF5 = $022E ;COUNT DOWN TIMER FLAG 5 +SDMCTL = $022F ;SAVE DMACTL REGISTER +SDLSTL = $0230 ;SAVE DISPLAY LIST LOW BYTE +SDLSTH = $0231 ;SAVE DISPLAY LIST HI BYTE +SSKCTL = $0232 ;SKCTL REGISTER RAM +LCOUNT = $0233 ;##1200xl## 1-byte relocating loader record +LPENH = $0234 ;LIGHT PEN HORIZONTAL VALUE +LPENV = $0235 ;LIGHT PEN VERTICAL VALUE +BRKKY = $0236 ;BREAK KEY VECTOR +;RELADR = $0238 ;##1200xl## 2-byte relocatable loader address +VPIRQ = $0238 ;##rev2## 2-byte parallel device IRQ vector +CDEVIC = $023A ;COMMAND FRAME BUFFER - DEVICE +CCOMND = $023B ;COMMAND +CAUX1 = $023C ;COMMAND AUX BYTE 1 +CAUX2 = $023D ;COMMAND AUX BYTE 2 + +TEMP = $023E ;TEMPORARY RAM CELL + +ERRFLG = $023F ;ERROR FLAG - ANY DEVICE ERROR EXCEPT TIME OUT + +DFLAGS = $0240 ;DISK FLAGS FROM SECTOR ONE +DBSECT = $0241 ;NUMBER OF DISK BOOT SECTORS +BOOTAD = $0242 ;ADDRESS WHERE DISK BOOT LOADER WILL BE PUT +COLDST = $0244 ;COLDSTART FLAG (1=IN MIDDLE OF COLDSTART> +RECLEN = $0245 ;##1200xl## 1-byte relocating loader record length +DSKTIM = $0246 ;DISK TIME OUT REGISTER +;LINBUF = $0247 ;##old## CHAR LINE BUFFER +PDVMSK = $0247 ;##rev2## 1-byte parallel device selection mask +SHPDVS = $0248 ;##rev2## 1-byte PDVS (parallel device select) +PDIMSK = $0249 ;##rev2## 1-byte parallel device IRQ selection +RELADR = $024A ;##rev2## 2-byte relocating loader relative adr. +PPTMPA = $024C ;##rev2## 1-byte parallel device handler temporary +PPTMPX = $024D ;##rev2## 1-byte parallel device handler temporary + +CHSALT = $026B ;##1200xl## 1-byte character set alternate +VSFLAG = $026C ;##1200xl## 1-byte fine vertical scroll count +KEYDIS = $026D ;##1200xl## 1-byte keyboard disable +FINE = $026E ;##1200xl## 1-byte fine scrolling mode +GPRIOR = $026F ;GLOBAL PRIORITY CELL + +PADDL0 = $0270 ;1-byte potentiometer 0 +PADDL1 = $0271 ;1-byte potentiometer 1 +PADDL2 = $0272 ;1-byte potentiometer 2 +PADDL3 = $0273 ;1-byte potentiometer 3 +PADDL4 = $0274 ;1-byte potentiometer 4 +PADDL5 = $0275 ;1-byte potentiometer 5 +PADDL6 = $0276 ;1-byte potentiometer 6 +PADDL7 = $0277 ;1-byte potentiometer 7 + +STICK0 = $0278 ;1-byte joystick 0 +STICK1 = $0279 ;1-byte joystick 1 +STICK2 = $027A ;1-byte joystick 2 +STICK3 = $027B ;1-byte joystick 3 + +PTRIG0 = $027C ;1-byte paddle trigger 0 +PTRIG1 = $027D ;1-byte paddle trigger 1 +PTRIG2 = $027E ;1-byte paddle trigger 2 +PTRIG3 = $027F ;1-byte paddle trigger 3 +PTRIG4 = $0280 ;1-byte paddle trigger 4 +PTRIG5 = $0281 ;1-byte paddle trigger 5 +PTRIG6 = $0281 ;1-byte paddle trigger 6 +PTRIG7 = $0283 ;1-byte paddle trigger 7 + +STRIG0 = $0284 ;1-byte joystick trigger 0 +STRIG1 = $0285 ;1-byte joystick trigger 1 +STRIG2 = $0286 ;1-byte joystick trigger 2 +STRIG3 = $0287 ;1-byte joystick trigger 3 + +;CSTAT = $0288 ;##old## cassette status register +HIBYTE = $0288 ;##1200xl## 1-byte relocating loader high byte +WMODE = $0289 ;1-byte cassette WRITE mode +BLIM = $028A ;1-byte cassette buffer limit +IMASK = $028B ;##rev2## (not used) +JVECK = $028C ;2-byte jump vector or temporary +NEWADR = $028E ;##1200xl## 2-byte relocating address +TXTROW = $0290 ;TEXT ROWCRS +TXTCOL = $0291 ;TEXT COLCRS +TINDEX = $0293 ;TEXT INDEX +TXTMSC = $0294 ;FOOLS CONVRT INTO NEW MSC +TXTOLD = $0296 ;OLDROW & OLDCOL FOR TEXT (AND THEN SOME) +;TMPX1 = $029C ;##old## 1-byte temporary register +CRETRY = $029C ;##1200xl## 1-byte number of command frame retries +HOLD3 = $029D ;1-byte temporary +SUBTMP = $029E ;1-byte temporary +HOLD2 = $029F ;1-byte (not used) +DMASK = $02A0 ;1-byte display (pixel location) mask +TMPLBT = $02A1 ;1-byte (not used) +ESCFLG = $02A2 ;ESCAPE FLAG +TABMAP = $02A3 ;15-byte (120 bit) tab stop bit map +LOGMAP = $02B2 ;LOGICAL LINE START BIT MAP +INVFLG = $02B6 ;INVERSE VIDEO FLAG (TOGGLED BY ATARI KEY) +FILFLG = $02B7 ;RIGHT FILL FLAG FOR DRAW +TMPROW = $02B8 ;1-byte temporary row +TMPCOL = $02B9 ;2-byte temporary column +SCRFLG = $02BB ;SET IF SCROLL OCCURS +HOLD4 = $02BC ;TEMP CELL USED IN DRAW ONLY +;HOLD5 = $02BD ;##old## DITTO +DRETRY = $02BD ;##1200xl## 1-byte number of device retries +SHFLOK = $02BE ;1-byte shift/control lock flags +BOTSCR = $02BF ;BOTTOM OF SCREEN 24 NORM 4 SPLIT + +PCOLR0 = $02C0 ;1-byte player-missile 0 color/luminance +PCOLR1 = $02C1 ;1-byte player-missile 1 color/luminance +PCOLR2 = $02C2 ;1-byte player-missile 2 color/luminance +PCOLR3 = $02C3 ;1-byte player-missile 3 color/luminance + +COLOR0 = $02C4 ;1-byte playfield 0 color/luminance +COLOR1 = $02C5 ;1-byte playfield 1 color/luminance +COLOR2 = $02C6 ;1-byte playfield 2 color/luminance +COLOR3 = $02C7 ;1-byte playfield 3 color/luminance + +COLOR4 = $02C8 ;1-byte background color/luminance + +PARMBL = $02C9 ;##rev2## 6-byte relocating loader parameter +RUNADR = $02C9 ;##1200xl## 2-byte run address +HIUSED = $02CB ;##1200xl## 2-byte highest non-zero page address +ZHIUSE = $02CD ;##1200xl## 2-byte highest zero page address + +OLDPAR = $02CF ;##rev2## 6-byte relocating loader parameter +GBYTEA = $02CF ;##1200xl## 2-byte GET-BYTE routine address +LOADAD = $02D1 ;##1200xl## 2-byte non-zero page load address +ZLOADA = $02D3 ;##1200xl## 2-byte zero page load address + +DSCTLN = $02D5 ;##1200xl## 2-byte disk sector length +ACMISR = $02D7 ;##1200xl## 2-byte ACMI interrupt service routine +KRPDEL = $02D9 ;##1200xl## 1-byte auto-repeat delay +KEYREP = $02DA ;##1200xl## 1-byte auto-repeat rate +NOCLIK = $02DB ;##1200xl## 1-byte key click disable +HELPFG = $02DC ;##1200xl## 1-byte HELP key flag (0 = no HELP) +DMASAV = $02DD ;##1200xl## 1-byte SDMCTL save/restore +PBPNT = $02DE ;##1200xl## 1-byte printer buffer pointer +PBUFSZ = $02DF ;##1200xl## 1-byte printer buffer size + +GLBABS = $02E0 ;4-byte global variables for non-DOS users +RUNAD = $02E0 ;##map## 2-byte binary file run address +INITAD = $02E2 ;##map## 2-byte binary file initialization address + +RAMSIZ = $02E4 ;RAM SIZE (HI BYTE ONLY) +MEMTOP = $02E5 ;TOP OF AVAILABLE USER MEMORY +MEMLO = $02E7 ;BOTTOM OF AVAILABLE USER MEMORY +HNDLOD = $02E9 ;##1200xl## 1-byte user load flag +DVSTAT = $02EA ;STATUS BUFFER +CBAUDL = $02EE ;1-byte low cassette baud rate +CBAUDH = $02EF ;1-byte high cassette baud rate +CRSINH = $02F0 ;CURSOR INHIBIT (00 = CURSOR ON) +KEYDEL = $02F1 ;KEY DELAY +CH1 = $02F2 ;1-byte prior keyboard character +CHACT = $02F3 ;CHACTL REGISTER RAM +CHBAS = $02F4 ;CHBAS REGISTER RAM + +NEWROW = $02F5 ;##1200xl## 1-byte draw destination row +NEWCOL = $02F6 ;##1200xl## 2-byte draw destination column +ROWINC = $02F8 ;##1200xl## 1-byte draw row increment +COLINC = $02F9 ;##1200xl## 1-byte draw column increment + +CHAR = $02FA ;1-byte internal character +ATACHR = $02FB ;ATASCII CHARACTER +CH = $02FC ;GLOBAL VARIABLE FOR KEYBOARD +FILDAT = $02FD ;RIGHT FILL DATA +DSPFLG = $02FE ;DISPLAY FLAG DISPLAY CNTLS IF NON-ZERO +SSFLAG = $02FF ;START/STOP FLAG FOR PAGING (CNTL 1). CLEARE + +;------------------------------------------------------------------------- +; Page Three Address Equates +;------------------------------------------------------------------------- + +DCB = $0300 ;DEVICE CONTROL BLOCK +DDEVIC = $0300 ;PERIPHERAL UNIT 1 BUS I.D. NUMBER +DUNIT = $0301 ;UNIT NUMBER +DCOMND = $0302 ;BUS COMMAND +DSTATS = $0303 ;COMMAND TYPE/STATUS RETURN +DBUFLO = $0304 ;1-byte low data buffer address +DBUFHI = $0305 ;1-byte high data buffer address +DTIMLO = $0306 ;DEVICE TIME OUT IN 1 SECOND UNITS +DUNUSE = $0307 ;UNUSED BYTE +DBYTLO = $0308 ;1-byte low number of bytes to transfer +DBYTHI = $0309 ;1-byte high number of bytes to transfer +DAUX1 = $030A ;1-byte first command auxiliary +DAUX2 = $030B ;1-byte second command auxiliary + +TIMER1 = $030C ;INITIAL TIMER VALUE +;ADDCOR = $030E ;##old## ADDITION CORRECTION +JMPERS = $030E ;##1200xl## 1-byte jumper options +CASFLG = $030F ;CASSETTE MODE WHEN SET +TIMER2 = $0310 ;2-byte final baud rate timer value +TEMP1 = $0312 ;TEMPORARY STORAGE REGISTER +;TEMP2 = $0314 ;##old## TEMPORARY STORAGE REGISTER +TEMP2 = $0313 ;##1200xl## 1-byte temporary +PTIMOT = $0314 ;##1200xl## 1-byte printer timeout +TEMP3 = $0315 ;TEMPORARY STORAGE REGISTER +SAVIO = $0316 ;SAVE SERIAL IN DATA PORT +TIMFLG = $0317 ;TIME OUT FLAG FOR BAUD RATE CORRECTION +STACKP = $0318 ;SIO STACK POINTER SAVE CELL +TSTAT = $0319 ;TEMPORARY STATUS HOLDER + +HATABS = $031A ;35-byte handler address table (was 38 bytes) +PUPBT1 = $033D ;##1200xl## 1-byte power-up validation byte 1 +PUPBT2 = $033E ;##1200xl## 1-byte power-up validation byte 2 +PUPBT3 = $033F ;##1200xl## 1-byte power-up validation byte 3 + +IOCB = $0340 ;I/O CONTROL BLOCKS +ICHID = $0340 ;HANDLER INDEX NUMBER (FF=IOCB FREE) +ICDNO = $0341 ;DEVICE NUMBER (DRIVE NUMBER) +ICCOM = $0342 ;COMMAND CODE +ICSTA = $0343 ;STATUS OF LAST IOCB ACTION +ICBAL = $0344 ;1-byte low buffer address +ICBAH = $0345 ;1-byte high buffer address +ICPTL = $0346 ;1-byte low PUT-BYTE routine address - 1 +ICPTH = $0347 ;1-byte high PUT-BYTE routine address - 1 +ICBLL = $0348 ;1-byte low buffer length +ICBLH = $0349 ;1-byte high buffer length +ICAX1 = $034A ;1-byte first auxiliary information +ICAX2 = $034B ;1-byte second auxiliary information +ICAX3 = $034C ;1-byte third auxiliary information +ICAX4 = $034D ;1-byte fourth auxiliary information +ICAX5 = $034E ;1-byte fifth auxiliary information +ICSPR = $034F ;SPARE BYTE + +PRNBUF = $03C0 ;PRINTER BUFFER +SUPERF = $03E8 ;##1200xl## 1-byte editor super function flag +CKEY = $03E9 ;##1200xl## 1-byte cassette boot request flag +CASSBT = $03EA ;##1200xl## 1-byte cassette boot flag +CARTCK = $03EB ;##1200xl## 1-byte cartridge equivalence check +DERRF = $03EC ;##rev2## 1-byte screen OPEN error flag + +; Remainder of Page Three Not Cleared upon Reset + +ACMVAR = $03ED ;##1200xl## 11 bytes reserved for ACMI +BASICF = $03F8 ;##rev2## 1-byte BASIC switch flag +MINTLK = $03F9 ;##1200xl## 1-byte ACMI module interlock +GINTLK = $03FA ;##1200xl## 1-byte cartridge interlock +CHLINK = $03FB ;##1200xl## 2-byte loaded handler chain link +CASBUF = $03FD ;CASSETTE BUFFER + +;------------------------------------------------------------------------- +; Page Four/Five Address Equates +;------------------------------------------------------------------------- + +; USER AREA STARTS HERE AND GOES TO END OF PAGE FIVE +USAREA = $0480 ;128 bytes reserved for application + +LBPR1 = $057E ;LBUFF PREFIX 1 +LBPR2 = $057F ;LBUFF PREFIX 2 +LBUFF = $0580 ;128-byte line buffer + +PLYARG = $05E0 ;6-byte floating point polynomial argument +FPSCR = $05E6 ;6-byte floating point temporary +FPSCR1 = $05EC ;6-byte floating point temporary + +;LBFEND = $05FF ;##old## END OF LBUFF + + +DOS = $0700 + +;------------------------------------------------------------------------- +; SpartaDOS-X Definitions +;------------------------------------------------------------------------- + +SDX_FLAG = DOS ; 'S' for SpartaDOS +SDX_VERSION = $0701 ; SD version (e.g. $32 = 3.2, $40 = 4.0) + ; address $0702 contains sub-version, e.g. + ; 8 in case of SDX 4.48 +SDX_KERNEL = $0703 ; SDX kernel entry point +SDX_BLOCK_IO = $0706 ; block I/O entry point +SDX_MISC = $0709 ; "misc" entry point +SDX_DEVICE = $0761 +SDX_DATE = $077B ; day, month, year (3 bytes) +SDX_TIME = $077E ; hour, min, sec (3 bytes) +SDX_DATESET = $0781 +SDX_PATH = $07A0 ; 64 bytes +SDX_IFSYMBOL = $07EB ; only valid on SDX 4.40 or newer +SDX_S_LOOKUP = SDX_IFSYMBOL ; alternative name for SDX_IFSYMBOL + +; values for SDX_DEVICE + +SDX_CLK_DEV = $10 ; clock device + +; clock device functions + +SDX_KD_GETTD = 100 ; get time and date +SDX_KD_SETTD = 101 ; set time and date + +;------------------------------------------------------------------------- +; Cartridge Address Equates +;------------------------------------------------------------------------- + +CARTCS = $BFFA ;##rev2## 2-byte cartridge coldstart address +CART = $BFFC ;##rev2## 1-byte cartridge present indicator + ;0=Cart Exists +CARTFG = $BFFD ;##rev2## 1-byte cartridge flags + ;D7 0=Not a Diagnostic Cart + ; 1=Is a Diagnostic cart and control is + ; given to cart before any OS is init. + ;D2 0=Init but Do not Start Cart + ; 1=Init and Start Cart + ;D0 0=Do not boot disk + ; 1=Boot Disk +CARTAD = $BFFE ;##rev2## 2-byte cartridge start vector + +;------------------------------------------------------------------------- +; CTIA/GTIA Address Equates +;------------------------------------------------------------------------- + +GTIA = $D000 ;CTIA/GTIA area + +;------------------------------------------------------------------------- +; PBI Address Equates +;------------------------------------------------------------------------- + +PBI = $D100 ;##rev2## parallel bus interface area + +; Read Addresses + +PDVI = $D1FF ;##rev2## parallel device IRQ status + +; Write Addresses + +PDVS = $D1FF ;##rev2## parallel device select + +;------------------------------------------------------------------------- +; POKEY Address Equates +;------------------------------------------------------------------------- + +POKEY = $D200 ;POKEY area + +; POKEY KBCODE Values + +KEY_NONE = $FF + +KEY_0 = $32 +KEY_1 = $1F +KEY_2 = $1E +KEY_3 = $1A +KEY_4 = $18 +KEY_5 = $1D +KEY_6 = $1B +KEY_7 = $33 +KEY_8 = $35 +KEY_9 = $30 + +KEY_A = $3F +KEY_B = $15 +KEY_C = $12 +KEY_D = $3A +KEY_E = $2A +KEY_F = $38 +KEY_G = $3D +KEY_H = $39 +KEY_I = $0D +KEY_J = $01 +KEY_K = $05 +KEY_L = $00 +KEY_M = $25 +KEY_N = $23 +KEY_O = $08 +KEY_P = $0A +KEY_Q = $2F +KEY_R = $28 +KEY_S = $3E +KEY_T = $2D +KEY_U = $0B +KEY_V = $10 +KEY_W = $2E +KEY_X = $16 +KEY_Y = $2B +KEY_Z = $17 + +KEY_COMMA = $20 +KEY_PERIOD = $22 +KEY_SLASH = $26 +KEY_SEMICOLON = $02 +KEY_PLUS = $06 +KEY_ASTERISK = $07 +KEY_DASH = $0E +KEY_EQUALS = $0F +KEY_LESSTHAN = $36 +KEY_GREATERTHAN = $37 + +KEY_ESC = $1C +KEY_TAB = $2C +KEY_SPACE = $21 +KEY_RETURN = $0C +KEY_DELETE = $34 +KEY_CAPS = $3C +KEY_INVERSE = $27 +KEY_HELP = $11 + +KEY_F1 = $03 +KEY_F2 = $04 +KEY_F3 = $13 +KEY_F4 = $14 + +KEY_SHIFT = $40 +KEY_CTRL = $80 + +; Composed keys + +KEY_EXCLAMATIONMARK = KEY_1 | KEY_SHIFT +KEY_QUOTE = KEY_2 | KEY_SHIFT +KEY_HASH = KEY_3 | KEY_SHIFT +KEY_DOLLAR = KEY_4 | KEY_SHIFT +KEY_PERCENT = KEY_5 | KEY_SHIFT +KEY_AMPERSAND = KEY_6 | KEY_SHIFT +KEY_APOSTROPHE = KEY_7 | KEY_SHIFT +KEY_AT = KEY_8 | KEY_SHIFT +KEY_OPENINGPARAN = KEY_9 | KEY_SHIFT +KEY_CLOSINGPARAN = KEY_0 | KEY_SHIFT +KEY_UNDERLINE = KEY_DASH | KEY_SHIFT +KEY_BAR = KEY_EQUALS | KEY_SHIFT +KEY_COLON = KEY_SEMICOLON | KEY_SHIFT +KEY_BACKSLASH = KEY_PLUS | KEY_SHIFT +KEY_CIRCUMFLEX = KEY_ASTERISK | KEY_SHIFT +KEY_OPENINGBRACKET = KEY_COMMA | KEY_SHIFT +KEY_CLOSINGBRACKET = KEY_PERIOD | KEY_SHIFT +KEY_QUESTIONMARK = KEY_SLASH | KEY_SHIFT +KEY_CLEAR = KEY_LESSTHAN | KEY_SHIFT +KEY_INSERT = KEY_GREATERTHAN | KEY_SHIFT + +KEY_UP = KEY_UNDERLINE | KEY_CTRL +KEY_DOWN = KEY_EQUALS | KEY_CTRL +KEY_LEFT = KEY_PLUS | KEY_CTRL +KEY_RIGHT = KEY_ASTERISK | KEY_CTRL + +;------------------------------------------------------------------------- +; ANTIC Address Equates +;------------------------------------------------------------------------- + +ANTIC = $D400 ;ANTIC area + +; PBI RAM Address Equates + +PBIRAM = $D600 ;##rev2## parallel bus interface RAM area + +; Parallel Device Address Equates + +PDID1 = $D803 ;##rev2## parallel device ID 1 +PDIDV = $D805 ;##rev2## parallel device I/O vector +PDIRQV = $D808 ;##rev2## parallel device IRQ vector +PDID2 = $D80B ;##rev2## parallel device ID 2 +PDVV = $D80D ;##rev2## parallel device vector table + +;------------------------------------------------------------------------- +; PIA Address Equates +;------------------------------------------------------------------------- + +PIA = $D300 ;PIA area + +PORTA = $D300 ;port A direction register or jacks one/two +PORTB = $D301 ;port B direction register or memory management + +PACTL = $D302 ;port A control +PBCTL = $D303 ;port B control + +;------------------------------------------------------------------------- +; Floating Point Package Address Equates +;------------------------------------------------------------------------- + +AFP = $D800 ;convert ASCII to floating point +FASC = $D8E6 ;convert floating point to ASCII +IFP = $D9AA ;convert integer to floating point +FPI = $D9D2 ;convert floating point to integer +ZFR0 = $DA44 ;zero FR0 +ZF1 = $DA46 ;zero floating point number +FSUB = $DA60 ;subtract floating point numbers +FADD = $DA66 ;add floating point numbers +FMUL = $DADB ;multiply floating point numbers +FDIV = $DB28 ;divide floating point numbers +PLYEVL = $DD40 ;evaluate floating point polynomial +FLD0R = $DD89 ;load floating point number +FLD0P = $DD8D ;load floating point number +FLD1R = $DD98 ;load floating point number +PLD1P = $DD9C ;load floating point number +FST0R = $DDA7 ;store floating point number +FST0P = $DDAB ;store floating point number +FMOVE = $DDB6 ;move floating point number +LOG = $DECD ;calculate floating point logarithm +LOG10 = $DED1 ;calculate floating point base 10 logarithm +EXP = $DDC0 ;calculate floating point exponential +EXP10 = $DDCC ;calculate floating point base 10 exponential + +;------------------------------------------------------------------------- +; Device Handler Vector Table Address Equates +;------------------------------------------------------------------------- + +EDITRV = $E400 ;editor handler vector table +SCRENV = $E410 ;screen handler vector table +KEYBDV = $E420 ;keyboard handler vector table +PRINTV = $E430 ;printer handler vector table +CASETV = $E440 ;cassette handler vector table + +;------------------------------------------------------------------------- +; Jump Vector Address Equates +;------------------------------------------------------------------------- + +DISKIV = $E450 ;vector to initialize DIO +DSKINV = $E453 ;vector to DIO +;IF __ATARIXL__ +;.ifndef SHRAM_HANDLERS +;.import CIO_handler, SIO_handler, SETVBV_handler +;.endif +;.define CIOV CIO_handler +;.define SIOV SIO_handler +;.define SETVBV SETVBV_handler +;CIOV_org = $E456 ;vector to CIO +;SIOV_org = $E459 ;vector to SIO +;SETVBV_org = $E45C ;vector to set VBLANK parameters +;.else +;CIOV = $E456 ;vector to CIO +;SIOV = $E459 ;vector to SIO +;SETVBV = $E45C ;vector to set VBLANK parameters +; aliases in order not to have to sprinkle common code with .ifdefs +;CIOV_org = CIOV +;SIOV_org = SIOV +;SETVBV_org = SETVBV +;.endif +SYSVBV = $E45F ;vector to process immediate VBLANK +XITVBV = $E462 ;vector to process deferred VBLANK +SIOINV = $E465 ;vector to initialize SIO +SENDEV = $E468 ;vector to enable SEND +INTINV = $E46B ;vector to initialize interrupt handler +CIOINV = $E46E ;vector to initialize CIO +BLKBDV = $E471 ;vector to power-up display +WARMSV = $E474 ;vector to warmstart +COLDSV = $E477 ;vector to coldstart +RBLOKV = $E47A ;vector to read cassette block +CSOPIV = $E47D ;vector to open cassette for input +VCTABL = $E480 ;RAM vector initial value table +PUPDIV = $E480 ;##rev2## vector to power-up display +SLFTSV = $E483 ;##rev2## vector to self-test +PHENTV = $E486 ;##rev2## vector to enter peripheral handler +PHUNLV = $E489 ;##rev2## vector to unlink peripheral handler +PHINIV = $E48C ;##rev2## vector to initialize peripheral handler +GPDVV = $E48F ;##rev2## generic parallel device handler vector + +; NOTE: OS rom self-test labels are not included in this file + +;------------------------------------------------------------------------- +; Some misc. stuff from the 400/800 rev.B source +;------------------------------------------------------------------------- + +; THE FOLLOWING ARE IN BASIC CARTRIDGE: +SIN = $BD81 ;FR0 <- SIN (FR0) DEGFLG (0=RAD,6=DEG) CARRY +COS = $BD73 ;FR0 <- COS (FR0) CARRY +ATAN = $BE43 ;FR0 <- ATAN(FR0) CARRY +SQR = $BEB1 ;FR0 <- ROOT(FR0) CARRY + +RADON = 0 ;INDICATES RADIANS +DEGON = 6 ;INDICATES DEGREES + +ASCZER = '0 ;ASCII ZERO +COLON = $3A ;ASCII COLON +CR = $9B ;SYSTEM EOL (CARRIAGE RETURN) + +;------------------------------------------------------------------------- +; 6502 +;------------------------------------------------------------------------- + +NMIVEC = $FFFA +RESVEC = $FFFC +IRQVEC = $FFFE + +;------------------------------------------------------------------------- +; BASIC +;------------------------------------------------------------------------- + +LOMEM = $80 ;2-byte low memory pointer +VNTP = $82 ;2-byte variable name table address +VNTD = $84 ;2-byte variable name table end + 1 +VVTP = $86 ;2-byte variable value table +STMTAB = $88 ;2-byte statement table address +STMCUR = $8A ;2-byte current statement pointer +STARP = $8C ;2-byte string and array table pointer +RUNSTK = $8E ;2-byte runtime stack address +BMEMTOP = $90 ;2-byte top of memory pointer +STOPLN = $BA ;2-byte stopped line number +ERRSAVE = $C3 ;1-byte error code +PTABW = $C9 ;1-byte tab width + +;------------------------------------------------------------------------- +; ATASCII CHARACTER DEFS +;------------------------------------------------------------------------- + +ATCLR = $7D ;CLEAR SCREEN CHARACTER +ATRUB = $7E ;BACK SPACE (RUBOUT) +ATTAB = $7F ;TAB +ATEOL = $9B ;END-OF-LINE +ATDELL = $9C ;delete line +ATINSL = $9D ;insert line +ATCTAB = $9E ;clear TAB +ATSTAB = $9F ;set TAB +ATBEL = $FD ;CONSOLE BELL +ATDEL = $FE ;delete char. +ATINS = $FF ;insert char. +ATURW = $1C ;UP-ARROW +ATDRW = $1D ;DOWN-ARROW +ATLRW = $1E ;LEFT-ARROW +ATRRW = $1F ;RIGHT-ARROW +ATESC = $1B ;ESCAPE + +;------------------------------------------------------------------------- +; OFFSETS INTO SECTSIZETAB (DIO functions) +;------------------------------------------------------------------------- + +sst_flag = 0 ; length 1 +sst_sectsize = 1 ; 2 +sst_driveno = 3 ; 1 (drive #) +sst_size = 4 ; size of one entry + ; if changed, adapt diopncls.s + +;------------------------------------------------------------------------- +; OFFSETS INTO dio_phys_pos +;------------------------------------------------------------------------- + +diopp_head = 0 ; head +diopp_track = 1 ; track / cylinder +diopp_sector = 3 ; sector +diopp_size = 5 ; size of structure + +;------------------------------------------------------------------------- +; VALUES for dos_type +;------------------------------------------------------------------------- + +SPARTADOS = 0 +REALDOS = 1 +BWDOS = 2 +OSADOS = 3 ; OS/A+ +XDOS = 4 +ATARIDOS = 5 +MYDOS = 6 +NODOS = 255 +; The DOSes with dos_type below or equal MAX_DOS_WITH_CMDLINE do support +; command line arguments. +MAX_DOS_WITH_CMDLINE = XDOS + +;------------------------------------------------------------------------- +; XDOS defines (version 2.4, taken from xdos24.pdf) +;------------------------------------------------------------------------- + +XOPT = $070B ; XDOS options +XCAR = $070C ; XDOS cartridge address (+ $70D) +XPAT = $086F ; XDOS bugfix and patch number +XVER = $0870 ; XDOS version number +XFILE = $087D ; XDOS filename buffer +XLINE = $0880 ; XDOS DUP input line +XGLIN = $0871 ; get line +XSKIP = $0874 ; skip parameter +;.ifdef __ATARIXL__ +;.ifndef SHRAM_HANDLERS +;.import XMOVE_handler +;.endif +;.define XMOVE XMOVE_handler +;XMOVE_org = $0877 ; move filename +;.else +;XMOVE = $0877 ; move filename +;.endif +XGNUM = $087A ; get number + +;------------------------------------------------------------------------- +; End of atari.inc +;------------------------------------------------------------------------- + +;------------------------------------------------------------------------- +; ANTIC Address Equates +;------------------------------------------------------------------------- + +; Read Addresses + +VCOUNT = ANTIC + $0B ;vertical line counter +PENH = ANTIC + $0C ;light pen horizontal position +PENV = ANTIC + $0D ;light pen vertical position +NMIST = ANTIC + $0F ;NMI interrupt status + +; Write Addresses + +DMACTL = ANTIC + $00 ;DMA control +CHACTL = ANTIC + $01 ;character control +DLISTL = ANTIC + $02 ;low display list address +DLISTH = ANTIC + $03 ;high display list address +HSCROL = ANTIC + $04 ;horizontal scroll +VSCROL = ANTIC + $05 ;vertical scroll +PMBASE = ANTIC + $07 ;player-missile base address +CHBASE = ANTIC + $09 ;character base address +WSYNC = ANTIC + $0A ;wait for HBLANK synchronization +NMIEN = ANTIC + $0E ;NMI enable +NMIRES = ANTIC + $0F ;NMI interrupt reset + + +;------------------------------------------------------------------------- +; Antic opcodes +;------------------------------------------------------------------------- + +; usage example: +; +; ScreenDL: +; .byte DL_BLK8 +; .byte DL_BLK8 +; .byte DL_CHR40x8x1 | DL_LMS | DL_DLI +; .word ScreenAlignment +; .byte DL_BLK1 | DL_DLI +; .byte DL_MAP320x1x1 | DL_LMS +; .word Screen +; +; .repeat 99 +; .byte DL_MAP320x1x1 +; .endrepeat +; .byte DL_MAP320x1x1 | DL_LMS +; .word Screen + 40 * 100 ; 100 lines a 40 byte, 'Screen' has to be aligned correctly! +; .repeat 92 +; .byte DL_MAP320x1x1 +; .endrepeat +; +; .byte DL_JVB + +; absolute instructions (non mode lines) + +DL_JMP = 1 +DL_JVB = 65 + +; DL_BLKn display n empty lines (just background) + +DL_BLK1 = 0 +DL_BLK2 = 16 +DL_BLK3 = 32 +DL_BLK4 = 48 +DL_BLK5 = 64 +DL_BLK6 = 80 +DL_BLK7 = 96 +DL_BLK8 = 112 + +; absolute instructions (mode lines) + +DL_CHR40x8x1 = 2 ; monochrome, 40 character & 8 scanlines per mode line (GR. 0) +DL_CHR40x10x1 = 3 ; monochrome, 40 character & 10 scanlines per mode line +DL_CHR40x8x4 = 4 ; colour, 40 character & 8 scanlines per mode line (GR. 12) +DL_CHR40x16x4 = 5 ; colour, 40 character & 16 scanlines per mode line (GR. 13) +DL_CHR20x8x2 = 6 ; colour (duochrome per character), 20 character & 8 scanlines per mode line (GR. 1) +DL_CHR20x16x2 = 7 ; colour (duochrome per character), 20 character & 16 scanlines per mode line (GR. 2) + +DL_MAP40x8x4 = 8 ; colour, 40 pixel & 8 scanlines per mode line (GR. 3) +DL_MAP80x4x2 = 9 ; 'duochrome', 80 pixel & 4 scanlines per mode line (GR.4) +DL_MAP80x4x4 = 10 ; colour, 80 pixel & 4 scanlines per mode line (GR.5) +DL_MAP160x2x2 = 11 ; 'duochrome', 160 pixel & 2 scanlines per mode line (GR.6) +DL_MAP160x1x2 = 12 ; 'duochrome', 160 pixel & 1 scanline per mode line (GR.14) +DL_MAP160x2x4 = 13 ; 4 colours, 160 pixel & 2 scanlines per mode line (GR.7) +DL_MAP160x1x4 = 14 ; 4 colours, 160 pixel & 1 scanline per mode line (GR.15) +DL_MAP320x1x1 = 15 ; monochrome, 320 pixel & 1 scanline per mode line (GR.8) + +; modifiers on mode lines... + +DL_HSCROL = 16 +DL_VSCROL = 32 +DL_LMS = 64 + +; general modifier... + +DL_DLI = 128 + +;------------------------------------------------------------------------- +; CTIA/GTIA Address Equates +;------------------------------------------------------------------------- + +; Read/Write Addresses + +CONSOL = GTIA + $1F ;console switches and speaker control + +; Read Addresses + +M0PF = GTIA + $00 ;missile 0 and playfield collision +M1PF = GTIA + $01 ;missile 1 and playfield collision +M2PF = GTIA + $02 ;missile 2 and playfield collision +M3PF = GTIA + $03 ;missile 3 and playfield collision + +P0PF = GTIA + $04 ;player 0 and playfield collision +P1PF = GTIA + $05 ;player 1 and playfield collision +P2PF = GTIA + $06 ;player 2 and playfield collision +P3PF = GTIA + $07 ;player 3 and playfield collision + +M0PL = GTIA + $08 ;missile 0 and player collision +M1PL = GTIA + $09 ;missile 1 and player collision +M2PL = GTIA + $0A ;missile 2 and player collision +M3PL = GTIA + $0B ;missile 3 and player collision + +P0PL = GTIA + $0C ;player 0 and player collision +P1PL = GTIA + $0D ;player 1 and player collision +P2PL = GTIA + $0E ;player 2 and player collision +P3PL = GTIA + $0F ;player 3 and player collision + +TRIG0 = GTIA + $10 ;joystick trigger 0 +TRIG1 = GTIA + $11 ;joystick trigger 1 + +TRIG2 = GTIA + $12 ;cartridge interlock +TRIG3 = GTIA + $13 ;ACMI module interlock + +PAL = GTIA + $14 ;##rev2## PAL/NTSC indicator + +; Write Addresses + +HPOSP0 = GTIA + $00 ;player 0 horizontal position +HPOSP1 = GTIA + $01 ;player 1 horizontal position +HPOSP2 = GTIA + $02 ;player 2 horizontal position +HPOSP3 = GTIA + $03 ;player 3 horizontal position + +HPOSM0 = GTIA + $04 ;missile 0 horizontal position +HPOSM1 = GTIA + $05 ;missile 1 horizontal position +HPOSM2 = GTIA + $06 ;missile 2 horizontal position +HPOSM3 = GTIA + $07 ;missile 3 horizontal position + +SIZEP0 = GTIA + $08 ;player 0 size +SIZEP1 = GTIA + $09 ;player 1 size +SIZEP2 = GTIA + $0A ;player 2 size +SIZEP3 = GTIA + $0B ;player 3 size + +SIZEM = GTIA + $0C ;missile sizes + +GRAFP0 = GTIA + $0D ;player 0 graphics +GRAFP1 = GTIA + $0E ;player 1 graphics +GRAFP2 = GTIA + $0F ;player 2 graphics +GRAFP3 = GTIA + $10 ;player 3 graphics + +GRAFM = GTIA + $11 ;missile graphics + +COLPM0 = GTIA + $12 ;player-missile 0 color/luminance +COLPM1 = GTIA + $13 ;player-missile 1 color/luminance +COLPM2 = GTIA + $14 ;player-missile 2 color/luminance +COLPM3 = GTIA + $15 ;player-missile 3 color/luminance + +COLPF0 = GTIA + $16 ;playfield 0 color/luminance +COLPF1 = GTIA + $17 ;playfield 1 color/luminance +COLPF2 = GTIA + $18 ;playfield 2 color/luminance +COLPF3 = GTIA + $19 ;playfield 3 color/luminance + +COLBK = GTIA + $1A ;background color/luminance + +PRIOR = GTIA + $1B ;priority select +VDELAY = GTIA + $1C ;vertical delay +GRACTL = GTIA + $1D ;graphic control +HITCLR = GTIA + $1E ;collision clear + + +; Hue values + +HUE_GREY = 0 +HUE_GOLD = 1 +HUE_GOLDORANGE = 2 +HUE_REDORANGE = 3 +HUE_ORANGE = 4 +HUE_MAGENTA = 5 +HUE_PURPLE = 6 +HUE_BLUE = 7 +HUE_BLUE2 = 8 +HUE_CYAN = 9 +HUE_BLUEGREEN = 10 +HUE_BLUEGREEN2 = 11 +HUE_GREEN = 12 +HUE_YELLOWGREEN = 13 +HUE_YELLOW = 14 +HUE_YELLOWRED = 15 + +; Color defines, similar to c64 colors (untested) + +GTIA_COLOR_BLACK = (HUE_GREY << 4) +GTIA_COLOR_WHITE = (HUE_GREY << 4 | 7 << 1) +GTIA_COLOR_RED = (HUE_REDORANGE << 4 | 1 << 1) +GTIA_COLOR_CYAN = (HUE_CYAN << 4 | 3 << 1) +GTIA_COLOR_VIOLET = (HUE_PURPLE << 4 | 4 << 1) +GTIA_COLOR_GREEN = (HUE_GREEN << 4 | 2 << 1) +GTIA_COLOR_BLUE = (HUE_BLUE << 4 | 2 << 1) +GTIA_COLOR_YELLOW = (HUE_YELLOW << 4 | 7 << 1) +GTIA_COLOR_ORANGE = (HUE_ORANGE << 4 | 5 << 1) +GTIA_COLOR_BROWN = (HUE_YELLOW << 4 | 2 << 1) +GTIA_COLOR_LIGHTRED = (HUE_REDORANGE << 4 | 6 << 1) +GTIA_COLOR_GRAY1 = (HUE_GREY << 4 | 2 << 1) +GTIA_COLOR_GRAY2 = (HUE_GREY << 4 | 3 << 1) +GTIA_COLOR_LIGHTGREEN = (HUE_GREEN << 4 | 6 << 1) +GTIA_COLOR_LIGHTBLUE = (HUE_BLUE << 4 | 6 << 1) +GTIA_COLOR_GRAY3 = (HUE_GREY << 4 | 5 << 1) + +;------------------------------------------------------------------------- +; POKEY Address Equates +;------------------------------------------------------------------------- + +; Read Addresses + +POT0 = POKEY + $00 ;potentiometer 0 +POT1 = POKEY + $01 ;potentiometer 1 +POT2 = POKEY + $02 ;potentiometer 2 +POT3 = POKEY + $03 ;potentiometer 3 +POT4 = POKEY + $04 ;potentiometer 4 +POT5 = POKEY + $05 ;potentiometer 5 +POT6 = POKEY + $06 ;potentiometer 6 +POT7 = POKEY + $07 ;potentiometer 7 + +ALLPOT = POKEY + $08 ;potentiometer port status +KBCODE = POKEY + $09 ;keyboard code +RANDOM = POKEY + $0A ;random number generator +SERIN = POKEY + $0D ;serial port input +IRQST = POKEY + $0E ;IRQ interrupt status +SKSTAT = POKEY + $0F ;serial port and keyboard status + +; Write Addresses + +AUDF1 = POKEY + $00 ;channel 1 audio frequency +AUDC1 = POKEY + $01 ;channel 1 audio control + +AUDF2 = POKEY + $02 ;channel 2 audio frequency +AUDC2 = POKEY + $03 ;channel 2 audio control + +AUDF3 = POKEY + $04 ;channel 3 audio frequency +AUDC3 = POKEY + $05 ;channel 3 audio control + +AUDF4 = POKEY + $06 ;channel 4 audio frequency +AUDC4 = POKEY + $07 ;channel 4 audio control + +AUDCTL = POKEY + $08 ;audio control +STIMER = POKEY + $09 ;start timers +SKRES = POKEY + $0A ;reset SKSTAT status +POTGO = POKEY + $0B ;start potentiometer scan sequence +SEROUT = POKEY + $0D ;serial port output +IRQEN = POKEY + $0E ;IRQ interrupt enable +SKCTL = POKEY + $0F ;serial port and keyboard control diff --git a/presets/atari8-800xl/hello.dasm b/presets/atari8-800xl/hello.dasm new file mode 100644 index 00000000..18499cb4 --- /dev/null +++ b/presets/atari8-800xl/hello.dasm @@ -0,0 +1,79 @@ +; Atari "Hello World" sample code +; Written by Daniel Boris (dboris@comcast.net) +; Modified by Steven Hugg @8bitworkshop +; Assemble with DASM +; + + processor 6502 + + include "atari.inc" + + org $a000 ;Start of left cartridge area +Start + ldx #(dlistend-dlist) +dlloop ;Create Display List + lda dlist,x ;Get byte + sta $1000,x ;Copy to RAM + dex ;next byte + bpl dlloop + + lda #$06 + sta CHACTL ;Set Character Control + lda #$84 ;Set color PF2 + sta COLOR0+2 + sta COLOR0+4 ; bakground + lda #$0F ;Set color PF1 + sta COLOR0+1 + lda #$3f + sta COLOR0+0 + lda #$58 + sta COLOR0+3 + lda #$00 ;Set Display list pointer + sta SDLSTL ;Shadow DLISTL + lda #$10 + sta SDLSTH ;Shadow DLISTH + lda #$e0 ;Set Charcter Set Base + sta CHBAS + lda #$22 ;Enable DMA + sta SDMCTL ;Shadow DMACTL + +print + ldy #$00 + cld +prloop + lda text1,y ;Get character + beq wait + cmp #$60 + bcs lower + sec + sbc #$20 ;Convert to ATASCII +lower + sta $1800,y ;Store in video memory + iny ;Next character + bne prloop +wait + nop + jmp wait + + ;Display list data (starts at $1000) +dlist .byte $70,$70,$70 ;24 blank scanlines + .byte $42,$00,$18,$02 ;mode 2 @ $1800 + .byte $43,$00,$18,$02 ;mode 3 @ $1800 + .byte $44,$00,$18,$02 ;mode 4 @ $1800 + .byte $45,$00,$18,$02 ;mode 5 @ $1800 + .byte $46,$00,$18,$06 ;mode 6 @ $1800 + .byte $47,$00,$18,$06 ;mode 7 @ $1800 + .byte $41,$00,$10 ;JMP -> $1000 +dlistend + + ;Text data +text1 .byte "Hello World! " + .byte $a1,$a2,$a3 + .byte 0 + + ;Cartridge footer + org CARTCS + .word Start ; cold start address + .byte $00 ; 0 == cart exists + .byte $04 ; boot cartridge + .word Start ; start diff --git a/presets/atari8-800xl/helloconio.c b/presets/atari8-800xl/helloconio.c new file mode 100644 index 00000000..6d95b4a1 --- /dev/null +++ b/presets/atari8-800xl/helloconio.c @@ -0,0 +1,15 @@ + +#include +#include + +void main() { + clrscr(); + // position the cursor, output text + gotoxy(0,1); + cputs("Hello Atari 8-bit World!\r\n\r\nPlease type a key...\r\n"); + // read from the console + // cartridge ROMs do not exit, so loop forever + while (1) { + cprintf("You typed character code %d!\r\n", cgetc()); + } +} diff --git a/presets/atari8-800xl/hellodlist.c b/presets/atari8-800xl/hellodlist.c new file mode 100644 index 00000000..4368ca91 --- /dev/null +++ b/presets/atari8-800xl/hellodlist.c @@ -0,0 +1,89 @@ +/* +This example demonstrates setting up a ANTIC display list in C. +We have two lines of text on the top, two lines on the bottom, +and a bitmap in the middle. +*/ +#include +#include +#include +#include +#include + +// shadow registers for the 5200 +// TODO: use OS struct +#define SDLIST (*(unsigned int*) 0x230) // Display list start shadow +#define SDMCTL (*(unsigned char*)0x22f) // Antic DMA control shadow + +// screen RAM structure definition +typedef struct ScreenMemoryDef { + char topStatusLine[2][40]; + char bottomStatusLine[4][40]; + char bitmap[80][40]; +} ScreenMemoryDef; + +// screen RAM variable +ScreenMemoryDef screen; + +// display list definition +const void displayList = { + DL_BLK8, // 8 blank scanlines + DL_BLK8, // 8 blank scanlines + // top status line (2 lines) + DL_LMS(DL_CHR40x8x1), //Load Memory Scan (next two bytes must be the LSB/MSB of the data to load) + screen.topStatusLine, // address of frame buffer + DL_CHR40x10x1, // second line of text + // 80x2 lines of 160x2x4 bitmap + DL_LMS(DL_MAP160x2x4), // first line of bitmap + screen.bitmap, // bitmap address + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, DL_MAP160x2x4, + // bottom status line (4 lines) + DL_LMS(DL_CHR40x8x1), //Load Memory Scan (next two bytes must be the LSB/MSB of the data to load) + screen.bottomStatusLine, + DL_CHR40x8x1, DL_CHR40x8x1, DL_CHR40x8x1, // next 3 lines of text + // wait for vertical blank + DL_JVB, + // restart display list + DL_JMP, + &displayList +}; + +void main(void) { + unsigned int i; + + SDMCTL = 0; // turn off ANTIC + SDLIST = (unsigned int) &displayList; // set display list + SDMCTL = 0x22; // turn on ANTIC + + // set screen memory + for(i=0; i<40; ++i) { + screen.topStatusLine[0][i] = i; + screen.topStatusLine[1][i] = i>>1; + screen.bottomStatusLine[0][i] = i; + screen.bottomStatusLine[1][i] = i>>1; + screen.bottomStatusLine[2][i] = i<<1; + screen.bottomStatusLine[3][i] = i<<2; + } + memset(screen.bitmap, 0x13, sizeof(screen.bitmap)); + // infinite loop + while(1) { + } +} diff --git a/presets/atari8-800xl/hellopm.dasm b/presets/atari8-800xl/hellopm.dasm new file mode 100644 index 00000000..fbd71af9 --- /dev/null +++ b/presets/atari8-800xl/hellopm.dasm @@ -0,0 +1,192 @@ + +; Atari 5200 "Hello World" sample code +; Written by Daniel Boris (danlb_2000@yahoo.com) +; Modified by Steven Hugg @8bitworkshop +; Assemble with DASM +; + + processor 6502 + + include "atari.inc" + +;*************** Variable *********************** +line equ $20 ;Current DLI line +pm0pos equ $21 ;Current pos of P0 + +;*************** Start of Code ******************* + + org $a000 ;Start of cartridge area +Start + +;************* Setup display list ******************* + + ldx #$21 ;Number of bytes in list +dlloop ;Copy display list to RAM + lda dlist,x ;Get byte + sta $1000,x ;Copy to RAM + dex ;next byte + bpl dlloop + +;************* Setup hardware registers ************* + + lda #$22 ;Set color PF0 + sta COLOR0 + lda #$0F ;Set color PF1 + sta COLOR1 + lda #$84 ;Set color PF2 + sta COLOR2 + lda #$00 ;Set Display list pointer + sta SDLSTL + lda #$10 + sta SDLSTH + lda #$f8 ;Set Charcter Set Base + sta CHBAS + lda #$22 ;Enable DMA + sta SDMCTL + ; load display list interrupt address + lda #dli + sta VDSLST+1 + ; activate display list interrupt and vertical blank interrupt + lda #$C0 + sta NMIEN + +;************ Draw display graphics ******************* + + ldy #$02 ;Draw bars on screen + lda #$18 ;Screen memory starts at $1800 + sta $81 + lda #$00 + sta $80 + ldx #$18 +crloop5 + lda #$FF ;Bar 4 pixels wide of color 3 + sta ($80),y ;Store data + iny + iny ;Skip 4 pixels + lda #$55 ;Bar 4 pixels wide of color 1 + sta ($80),y ;Store data + iny + iny ;Skip 4 pixels + lda #$AA ;Bar 4 pixels wide of color 2 + sta ($80),y ;Store data + tya + clc + adc #$06 ;Move pointer to next line + tay + dex ;Next line + bne crloop5 ;Branch if not done + +;************* Setup Player/Missile registers *************** + + lda #$3A ;Enable DMA (single line resolution/ + sta SDMCTL ;normal background) + lda #$20 ;Set PM base address ($200) + sta PMBASE + lda #$03 ;Enable players and missiles + sta GRACTL + lda #$16 ;Color of player 0 + sta PCOLR0 + ldy #$00 + lda #$02 ;Size of player 0 + sta SIZEP0 + lda #$01 ;Give players priority over playfield + sta GPRIOR + + +;************ Copy player data to RAM ******************************** + +pmloop1 + lda pm1,y ;Get data + sta $2430,y ;Write it into RAM + sta $24C0,y + iny + cpy #$08 ;Copy 8 bytes + bne pmloop1 + +;************ Move player ******************************************** + + ldx #$20 ;Starting position of player +mvloop1 + jsr waitvb ;Wait for a vertical bank + lda #$00 ;Reset line counter + sta line + stx HPOSP0 ;Set position of player + stx pm0pos ;Save position for DLI + inx + cpx #$C0 ;Check for end of move + bne mvloop1 ;If not keep moving right + lda #$04 ;Give playfield priority player + sta GPRIOR + +mvloop2 + jsr waitvb ;Wait for a vertical blank + lda #$00 ;Reset line counter + sta line + stx HPOSP0 ;Set position of player + stx pm0pos ;Save position for DLI + dex + cpx #$30 ;Check for end of move + bne mvloop2 ;If not keep moving left + lda #$01 ;Give player priority over playfield + sta GPRIOR + jmp mvloop1 ;Continue looping + +;************ Wait for vertical blank ************************ + +waitvb + lda RTCLOK+2 ;Read timer (this is incremented during VB) +waitvb2 + cmp RTCLOK+2 ;Did it change? + beq waitvb2 ;If not keep waiting + rts + +;************ Display list interrupt ************************ + +dli + pha ;Save A + inc line ;Increment the line counter + lda line ;Past the fifth DLI? + cmp #$05 + bne done ;If not then exit DLI + lda pm0pos ;Get player 0 position + eor #$FF ;Invert it + sta HPOSP0 ;Set player 0 position + lda #$0F ;Change player color + sta COLPM0 ; + ; Note: Player color is changed in hardware register not the shadow + ; register so it takes effect immediatly. +done + pla ;Restore A + rti ;Done + +;************* Display list data **************************** +; starts at $1000 + +dlist .byte $70,$70,$70 ;24 blank scanlines + .byte $48,$00,$18 ;Mode 8 and Load memory scan $1800 + .byte $88,$88,$88,$88,$88,$88,$88 ;23 more line of mode 8 + .byte $88,$88,$88,$88,$88,$88,$88,$88,$88,$88,$88,$88,$88 + .byte $88,$88,$88 + .byte $41,$00,$10 ;Jump back to start at $1000 + +;************* Player shape ********************************* + +pm1 .byte %00111100 + .byte %01000010 + .byte %10100101 + .byte %10000001 + .byte %10100101 + .byte %10011001 + .byte %01000010 + .byte %00111100 + +;************** Cart reset vector ************************** + + ;Cartridge footer + org CARTCS + .word Start ; cold start address + .byte $00 ; 0 == cart exists + .byte $04 ; boot cartridge + .word Start ; start diff --git a/presets/atari8-800xl/siegegame.c b/presets/atari8-800xl/siegegame.c new file mode 100644 index 00000000..0b367c8d --- /dev/null +++ b/presets/atari8-800xl/siegegame.c @@ -0,0 +1,243 @@ +/* +Text-based version of a Blockade-style game. +For more information, see "Making Arcade Games in C". +*/ + +#include +#include +#include +#include +#include +#include + +#define COLS 40 +#define ROWS 24 + +typedef unsigned char byte; +typedef signed char sbyte; +typedef unsigned short word; + +// pointer to screen memory +// TODO: use OS.savmsc +static byte** SAVMSC = (byte**) 0x58; + +byte getchar(byte x, byte y) { + return (*SAVMSC)[x+y*COLS]; // lookup value @ cursor address +} + +void delay(byte count) { + while (count--) { + word i; + for (i=0; i<400; i++) ; + } +} + +////////// GAME DATA + +typedef struct { + byte x; + byte y; + byte dir; + word score; + char head_attr; + char tail_attr; + int collided:1; + int human:1; +} Player; + +Player players[2]; + +byte credits = 0; +byte frames_per_move; +byte gameover; + +#define START_SPEED 12 +#define MAX_SPEED 5 +#define MAX_SCORE 7 + +/////////// + +const char BOX_CHARS[8] = { '+', '+', '+', '+', + '-', '-', '!', '!'}; + +void draw_box(byte x, byte y, byte x2, byte y2, const char* chars) { + byte x1 = x; + cputcxy(x, y, chars[2]); + cputcxy(x2, y, chars[3]); + cputcxy(x, y2, chars[0]); + cputcxy(x2, y2, chars[1]); + while (++x < x2) { + cputcxy(x, y, chars[5]); + cputcxy(x, y2, chars[4]); + } + while (++y < y2) { + cputcxy(x1, y, chars[6]); + cputcxy(x2, y, chars[7]); + } +} + +void draw_playfield() { + draw_box(0,1,COLS-1,ROWS-1,BOX_CHARS); + cputsxy( 0, 0, "Plyr1:"); + cputsxy(10, 0, "Plyr2:"); + cputcxy( 7, 0, players[0].score+'0'); + cputcxy(17, 0, players[1].score+'0'); +} + +typedef enum { D_RIGHT, D_DOWN, D_LEFT, D_UP } dir_t; +const sbyte DIR_X[4] = { 1, 0, -1, 0 }; +const sbyte DIR_Y[4] = { 0, 1, 0, -1 }; + +void init_game() { + memset(players, 0, sizeof(players)); + players[0].head_attr = '1'; + players[1].head_attr = '2'; + players[0].tail_attr = '#'; + players[1].tail_attr = '*'; + frames_per_move = START_SPEED; +} + +void reset_players() { + players[0].x = players[0].y = 5; + players[0].dir = D_RIGHT; + players[1].x = COLS-6; + players[1].y = ROWS-6; + players[1].dir = D_LEFT; + players[0].collided = players[1].collided = 0; +} + +void draw_player(Player* p) { + cputcxy(p->x, p->y, p->head_attr); +} + +void move_player(Player* p) { + cputcxy(p->x, p->y, p->tail_attr); + p->x += DIR_X[p->dir]; + p->y += DIR_Y[p->dir]; + if ((getchar(p->x, p->y) & 0x7f) != 0) + p->collided = 1; + draw_player(p); +} + +void human_control(Player* p) { + byte dir = 0xff; + char joy; + if (!p->human) return; + joy = joy_read(0); + if (JOY_UP(joy)) dir = D_UP; + if (JOY_LEFT(joy)) dir = D_LEFT; + if (JOY_RIGHT(joy)) dir = D_RIGHT; + if (JOY_DOWN(joy)) dir = D_DOWN; + // don't let the player reverse direction + if (dir < 0x80 && dir != (p->dir ^ 2)) { + p->dir = dir; + } +} + +byte ai_try_dir(Player* p, dir_t dir, byte shift) { + byte x,y; + dir &= 3; + x = p->x + (DIR_X[dir] << shift); + y = p->y + (DIR_Y[dir] << shift); + if (x < COLS && y < ROWS && (getchar(x, y) & 0x7f) == 0) { + p->dir = dir; + return 1; + } else { + return 0; + } +} + +void ai_control(Player* p) { + dir_t dir; + if (p->human) return; + dir = p->dir; + if (!ai_try_dir(p, dir, 0)) { + ai_try_dir(p, dir+1, 0); + ai_try_dir(p, dir-1, 0); + } else { + ai_try_dir(p, dir-1, 0) && ai_try_dir(p, dir-1, 1+(rand() & 3)); + ai_try_dir(p, dir+1, 0) && ai_try_dir(p, dir+1, 1+(rand() & 3)); + ai_try_dir(p, dir, rand() & 3); + } +} + +void flash_colliders() { + byte i; + // flash players that collided + for (i=0; i<56; i++) { + delay(2); + revers(players[0].collided && (i&1)); + draw_player(&players[0]); + revers(players[1].collided && (i&1)); + draw_player(&players[1]); + } + //revers(0); +} + +void make_move() { + byte i; + for (i=0; i MAX_SPEED) frames_per_move--; + // game over? + if (players[0].score != players[1].score) { + if (players[0].score >= MAX_SCORE) + declare_winner(0); + else if (players[1].score >= MAX_SCORE) + declare_winner(1); + } +} + +void play_game() { + gameover = 0; + init_game(); + players[0].human = 1; + while (!gameover) { + play_round(); + } +} + +void main() { + joy_install (joy_static_stddrv); + play_game(); +} diff --git a/src/common/baseplatform.ts b/src/common/baseplatform.ts index fc27bc42..53f7af1e 100644 --- a/src/common/baseplatform.ts +++ b/src/common/baseplatform.ts @@ -645,7 +645,7 @@ export abstract class BaseMAMEPlatform { romdata : Uint8Array; video; running = false; - console_vars : {[varname:string]:string[]} = {}; + console_vars : {[varname:string]:string} = {}; console_varname : string; initluavars : boolean = false; luadebugscript : string; @@ -698,17 +698,9 @@ export abstract class BaseMAMEPlatform { bufferConsoleOutput(s) { if (typeof s !== 'string') return; if (s.startsWith(">>>")) { - this.console_varname = s.length > 3 ? s.slice(3) : null; - if (this.console_varname) this.console_vars[this.console_varname] = []; - } else if (this.console_varname) { - this.console_vars[this.console_varname].push(s); - if (this.console_varname == 'debug_stopped') { - var debugSaveState = this.preserveState(); - this.pause(); - if (this.onBreakpointHit) { - this.onBreakpointHit(debugSaveState); - } - } + console.log(s); + var toks = s.split(' ', 3); + this.console_vars[toks[1]] = toks[2]; } else { console.log(s); } @@ -850,6 +842,22 @@ export abstract class BaseMAMEPlatform { } } + initlua() { + if (!this.initluavars) { + this.luacall(this.luadebugscript); + this.luacall('mamedbg.init()') + this.initluavars = true; + } + } + + // DEBUGGING SUPPORT +/* + readAddress(a) { + this.initlua(); + this.luacall('print(">>> mem8 " .. mem:read_u8(' + a + '))'); + return parseInt(this.console_vars.mem8); + } + preserveState() { var state = {c:{}}; for (var k in this.console_vars) { @@ -862,26 +870,11 @@ export abstract class BaseMAMEPlatform { return state; } - initlua() { - if (!this.initluavars) { - this.luacall(this.luadebugscript); - this.luacall('mamedbg.init()') - this.initluavars = true; - } - } - - // DEBUGGING SUPPORT -/* saveState() { this.luareset(); this.luacall('mamedbg.printstate()'); return this.preserveState(); } - readAddress(a) { - this.initlua(); - this.luacall('print(">>>v"); print(mem:read_u8(' + a + '))'); - return parseInt(this.console_vars.v[0]); - } clearDebug() { this.onBreakpointHit = null; } diff --git a/src/ide/views.ts b/src/ide/views.ts index 1d250014..49153612 100644 --- a/src/ide/views.ts +++ b/src/ide/views.ts @@ -895,6 +895,7 @@ export class MemoryMapView implements ProjectView { //var container = $('
    ').append(row); //this.maindiv.append(container); segdiv.click(() => { + // TODO: what if memory browser does not exist? var memview = projectWindows.createOrShow('#memory') as MemoryView; memview.scrollToAddress(seg.start); }); diff --git a/src/platform/atari8.ts b/src/platform/atari8.ts index c9207688..87c9b2dd 100644 --- a/src/platform/atari8.ts +++ b/src/platform/atari8.ts @@ -8,8 +8,8 @@ import { MasterAudio, POKEYDeviceChannel, newPOKEYAudio } from "../common/audio" declare var jt; // for 6502 var Atari8_PRESETS = [ - {id:'hello.a', name:'Hello World (ASM)'}, - {id:'hellopm.a', name:'Hello Sprites (ASM)'}, + {id:'hello.dasm', name:'Hello World (ASM)'}, + {id:'hellopm.dasm', name:'Hello Sprites (ASM)'}, {id:'helloconio.c', name:'Text Mode (C)'}, {id:'siegegame.c', name:'Siege Game (C)'}, {id:'hellodlist.c', name:'Display List (C)'}, @@ -779,30 +779,47 @@ for (var i=0; i<256; i++) { /// MAME support abstract class Atari8MAMEPlatform extends BaseMAMEPlatform { - loadROM(title, data) { - this.loadROMFile(data); - this.loadRegion(":cartleft:cart:rom", data); - } getPresets() { return Atari8_PRESETS; } getToolForFilename = getToolForFilename_6502; - getDefaultExtension() { return ".c"; }; + getOpcodeMetadata = getOpcodeMetadata_6502; + getDefaultExtension() { return ".asm"; }; } class Atari800MAMEPlatform extends Atari8MAMEPlatform implements Platform { - start() { - this.startModule(this.mainElement, { - jsfile:'mameatari400.js', - biosfile:'a400.zip', // TODO: load multiple files - //cfgfile:'atari5200.cfg', - driver:'a400', - width:336*2, - height:225*2, - romfn:'/emulator/cart.rom', - romsize:0x2000, - preInit:function(_self) { - }, - }); + loadROM(title, data) { + if (!this.started) { + this.startModule(this.mainElement, { + jsfile:'mameatari400.js', + biosfile:'a800xl.zip', + cfgfile:'a800xl.cfg', + driver:'a800xl', + width:336*2, + height:225*2, + romfn:'/emulator/cart.rom', + romdata:new Uint8Array(data), + romsize:0x2000, + preInit:function(_self) { + }, + }); + } else { + this.loadROMFile(data); + this.loadRegion(":cartleft:cart:rom", data); + } } + start() { + } + getMemoryMap = function() { return { main:[ + {name:'RAM',start:0x0,size:0x10000,type:'ram'}, + {name:'Left Cartridge ROM',start:0xa000,size:0x2000,type:'rom'}, + {name:'GTIA',start:0xd000,size:0x20,type:'io'}, + {name:'POKEY',start:0xd200,size:0x10,type:'io'}, + {name:'PIA',start:0xd300,size:0x04,type:'io'}, + {name:'ANTIC',start:0xd400,size:0x10,type:'io'}, + {name:'Cartridge Control Line',start:0xd600,size:0x100,type:'io'}, + {name:'ROM',start:0xd800,size:0x800,type:'rom'}, + {name:'ATARI Character Set',start:0xe000,size:0x400,type:'rom'}, + {name:'ROM',start:0xe400,size:0x1c00,type:'rom'}, + ] } }; } class Atari5200MAMEPlatform extends Atari8MAMEPlatform implements Platform { @@ -811,7 +828,7 @@ class Atari5200MAMEPlatform extends Atari8MAMEPlatform implements Platform { this.startModule(this.mainElement, { jsfile:'mameatari400.js', biosfile:'a5200/5200.rom', - //cfgfile:'atari5200.cfg', + cfgfile:'a5200.cfg', driver:'a5200', width:336*2, height:225*2, @@ -828,10 +845,15 @@ class Atari5200MAMEPlatform extends Atari8MAMEPlatform implements Platform { } start() { } - getPresets() { return Atari8_PRESETS; } - getToolForFilename = getToolForFilename_6502; - getOpcodeMetadata = getOpcodeMetadata_6502; - getDefaultExtension() { return ".asm"; }; + getMemoryMap = function() { return { main:[ + {name:'RAM',start:0x0,size:0x4000,type:'ram'}, + {name:'Cartridge ROM',start:0x4000,size:0x8000,type:'rom'}, + {name:'GTIA',start:0xc000,size:0x20,type:'io'}, + {name:'ANTIC',start:0xd400,size:0x10,type:'io'}, + {name:'POKEY',start:0xe800,size:0x10,type:'io'}, + {name:'ATARI Character Set',start:0xf800,size:0x400,type:'rom'}, + {name:'ROM',start:0xfc00,size:0x400,type:'rom'}, + ] } }; } /// @@ -863,5 +885,5 @@ a58lHiUcJQkD/Lj8svyh/gL9svxI5gzQBBkiJhkj9SUfJR8lHiUBI/0x/QD8`; PLATFORMS['atari8-800'] = _Atari800Platform; PLATFORMS['atari8-5200'] = _Atari5200Platform; -PLATFORMS['atari8-800.mame'] = Atari800MAMEPlatform; +PLATFORMS['atari8-800xl.mame'] = Atari800MAMEPlatform; PLATFORMS['atari8-5200.mame'] = Atari5200MAMEPlatform; diff --git a/src/worker/workermain.ts b/src/worker/workermain.ts index 0a461337..45effa45 100644 --- a/src/worker/workermain.ts +++ b/src/worker/workermain.ts @@ -198,16 +198,15 @@ var PLATFORM_PARAMS = { cfgfile: 'apple2.cfg', libargs: ['apple2.lib'], }, - 'atari8-800': { + 'atari8-800xl': { define: ['__ATARI__'], cfgfile: 'atari-cart.cfg', - libargs: ['atari.lib'], + libargs: ['atari.lib', '-D', '__CARTFLAGS__=4'], }, 'atari8-5200': { define: ['__ATARI5200__'], cfgfile: 'atari5200.cfg', - libargs: ['atari5200.lib', - '-D', '__CARTFLAGS__=255'], + libargs: ['atari5200.lib', '-D', '__CARTFLAGS__=255'], }, 'verilog': { },