From 10047f60434a6f8bd4964b8b789d1f0a17e195b6 Mon Sep 17 00:00:00 2001 From: alpine9000 Date: Sat, 26 Mar 2016 21:14:05 +1100 Subject: [PATCH] Semi working text rendering --- 024.simple_text/Makefile | 2 +- 024.simple_text/README.md | 20 +--- 024.simple_text/disk.s | 27 ----- 024.simple_text/font.png | Bin 7829 -> 0 bytes 024.simple_text/module.s | 21 ---- 024.simple_text/trackloader.s | 203 ---------------------------------- 6 files changed, 6 insertions(+), 267 deletions(-) delete mode 100644 024.simple_text/disk.s delete mode 100644 024.simple_text/font.png delete mode 100644 024.simple_text/module.s delete mode 100644 024.simple_text/trackloader.s diff --git a/024.simple_text/Makefile b/024.simple_text/Makefile index fb3ea20..e885d10 100644 --- a/024.simple_text/Makefile +++ b/024.simple_text/Makefile @@ -5,7 +5,7 @@ BASE_ADDRESS=4000 # if you change this you must also change link.script.x # note: this must be high enough not to conflict with MFMbufE BOOTBLOCK_ASM=alpine_bootblock.s -OBJS=out/init.o out/utils.o out/trackloader.o out/image.o out/disk.o out/blittext.o out/cpu.o out/blit.o +OBJS=out/init.o out/utils.o out/image.o out/blittext.o out/cpu.o out/blit.o IMAGES=font.png IMAGEDATA=$(addprefix out/, $(IMAGES:.png=.bin)) diff --git a/024.simple_text/README.md b/024.simple_text/README.md index aacc3ee..d269e73 100644 --- a/024.simple_text/README.md +++ b/024.simple_text/README.md @@ -1,19 +1,9 @@ -photo slideshow -=============== +simple text +=========== -The main theme of this demo is trackloading data whilst the application is running. - -We cram a DD floppy full of image and music data, then load and display each image in turn whilst playing a P61 module. - -There are quite a few new things in here: - - * We use a [modified bootloader](alpine_bootloader.s) that reads the size of the main program from the disk before trackloading it. - * Photon's trackloader is also now copied into the main program so it can be used to load subsequent data. - * We use multiple sections and a [linker script](link.script.x) to help with organising data on the ADF image. The linker script is not technically required, however I wanted to see what I could do with vlink and linker scripts. - * We switched to the [doynamite68k](https://github.com/AxisOxy/Planet-Rocklobster/tree/master/tools/doynamite68k) compressor/decompressor. The compressed file are larger than those generated by Shinkler, however the decompressor is a lot faster. - * P61 is configured to use CIA mode. +Work in progress try it ------ - * [Download disk image](bin/slideshow.adf?raw=true) - * Run in SAE + * [Download disk image](bin/simple_text.adf?raw=true) + * Run in SAE diff --git a/024.simple_text/disk.s b/024.simple_text/disk.s deleted file mode 100644 index b763365..0000000 --- a/024.simple_text/disk.s +++ /dev/null @@ -1,27 +0,0 @@ - xdef LoadDiskData - -LoadDiskData: - ;; a0 - destination address - ;; a1 - start address - ;; d0 - size - movem.l d0-a6,-(sp) - lea $dff002,a6 ; LoadMFMB uses this custom base addr - - move.l d0,d1 - - move.l a1,d0 - move.l #startCode,d2 - sub.l d2,d0 ; offset from start of this module - lsr.l #6,d0 ; bytes -> sectors - lsr.l #3,d0 - add.l #2,d0 ; offset for bootblock - - - add.l #512,d1 - lsr.l #6,d1 ; bytes -> sectors - lsr.l #3,d1 - neg.w d1 - jsr LoadMFMB ; load the data! - - movem.l (sp)+,d0-a6 - rts diff --git a/024.simple_text/font.png b/024.simple_text/font.png deleted file mode 100644 index 67f0b5448f1a2c8932a65e8d5083e39b3c448c59..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 7829 zcmW+*2Q-`C`%i?>idB14{dS=>YR{HZRTQ;XP}Gc7q*hW|d$pC?qgA8Cs1aKbTd1}| zZ82*TB?$fJ_kYiM&$;)W=RV`}zR$g%``oyvhPq6b`7Q$h04BXh+9m)1P?P!s7{Jt# zuKucC0DzXsT}$h!o|cx#Q-7GNyO#?9pqP|oX7@tCj6=O8z)kGhh^g1TH-V)ZO#d;x zH@{a{*Bm)JEANBSlb^b}{`_cXBx7JiQMTp0(CFdQFzJnK4qOKYA#(FC%d~pk-So@< zP5lzNsa{8pdb*xayqT#Yo9W(MGv~4sM#|mI3*BjQ+ofA?`f7Xhc^f;Orx^X*fhYYGjmy0#caFUwiVO#U)%GG(Dm`65o^)%BnhHq?5M)pplRo1 z`PcV7Ih{c`jGXnsfeI})uGuDQzt8{7+cfWBZDm6)YbX@1O*w6aKROEc&sW<16Shu@ zMoH3BzI^-;#fgiGjV#o;f3!xtsF``p3gY$PThWWW^X@aV&D|wC@8b1QeF(S0FJXPI z%~PaF!9VTV1b;-86}a3uG0A93vT0-U#JFdKJ1jr!jeI#WvYn~+65Y)VshGCQ29_YU z=QlOM^IVfJ%A%OTG8||Q-gt*XS8o0_tm=VsT_(P>z3an8f4@W2N#jV}?dLJ-uerYQ zQIadTe!A?Jzp-^@*NBi%pwYO_D{|#`)Tq6T-cg#L4Dc#EUe(~}y}&p2=ewtqkG&q+ zt11xATN7nXinAZiD%G_VK>x|!eqw7nQ6a(H@K$W-))}2$8>QEw#`cedf^h?pH@Deh zD}q^S($ zF10V-@f8km=sofv@mbG@a>02pZhugo6^}*5yf}rp{JZ2AjU8nUZa^5E9~e&}QRvMx zuKc@sYJ$wp!mA}`w(WP!fpKRwG=~NkW@gX+_$Bh=G z!mH^Z2WMZ3#YOAsqC}Kgy#&_|MA|5 zuS)(lDr;jswv^{>|C8hwrZH3A*8Ft4bB8I1*)lCG>^66FbIu^xc8&e5vpdA(Isi%l zf$S6W;TavIpQBSGMNfU3?i5UW6vnvl>v-#^<5VUj;{4a28C*ccnk1rLK_$0iem9Vy zuKBMV;Fc5#EXWTtdkVdP0RVhjdfNA&g#fqh68vWyn4jz%{)=qFJffi|EHYlxeEr?y zI_E=Tjb*B*;Iv-k1$lpI{@(?q`QrR|URWdYV!5xX3C12N^eU*;P&%KxYAnn>cYB}` zGtywBGSW$+NCco(74vMDl#+W!pNp+c#;oOSF89d`XiXgm%);~5iiE571vF|UXW<4T zju0>w8w|eaO9_i5kB|;T#xnB12&U+7dKvA93?KO?_jzfJ1`fFK4Xw>{MfN6Nn4{!&YtM!DN0fR@DzlS!otbOFb{9v zws%-je3@`?c@2GXOi=Q`=TEfld?ve+0w`9IWF$~(?<2A*1shqiA*LJ_22i7Y>pa1F zNbrofH#%wIR7VV8ZXWd&3t!Hl0usU$OjW+hLyno%iAJ)BCS1}8NE}z`@myR-YlQ!& zt`sqaCN>;=0OUZUxMqKB&51Porz|ti$yF+JG1q+eu{J#jir}&2!u~+Q1bytCJ52Z|i|dYZ zmK6E&-4bU<6&z>rOb1A0E+j0Rr5g22$Xv;FQB;HPr?tD?$iC(2fk021^Q&V0kul5D ziw5%WXh=x-vi(qZ&2lqNWKAEw+$`|X%Wd^B`DQXsk)2x|y1)ea?r=t?l=Hz#1>{~+ z;duo{Y0z}!-Dd?*9j%9G0;;?P5m7*?>OlalZ~A>QwdpGfV#Rve&@Vut8XzH!{%MDv z`9xN1hb@$ria-?7i>UkM0f3*W?+On9)WIvVKSVA!W7XX9rJ|VydCsYEn~!GFOO2}& zzyk%#To$EGZAnm}iV8!XbEsKeqkZ}fDNXG?+iVl z1%}DIcBATQmrk{Uh$7~#ljx~E8OFKVmf1+=%|D1W9?19Wq!G5V$&UVS_v@$)3O z#GslvD^~y2UyfGe`$O%>yY9kJunT~Or%swyKYp%sf$k3d_t&y}6sMCgX6DGtLbSf| z^1?T6g?s>hTI-hm6d|(*t~skX?PFnp#-%3(m>gEn?V__^IiLL~el;|Q1o+H!nQSSd z>(~8eFka9~?qfK(^(fwA=H#)4nkXVaCu8K%80kvOjRk)BId<8+QK^M`i{*9=)8Cfn z3=2F)TIOGhcdw{{*Xs+F)OX-KrQ7LKlou;oM#t;iw7xZ3-v(NGeAtv{IuS}B6N--_ z3oCX&65GXHHqd%d&?RW8*OZfN;yf2%s~$PE0FPMxn-=O>RY!PLV-Xfwqc$Om5Dc=Ax4BU_aDe6? zEh0zX59u&=mqUJryDK~f9Szbtqw3q*D zfO@QY8=J6iR*HgmovY|whnX?mDgk@HVDC!|3&O=^X@QGLyDXxOO|sRVqkpx(Vk$+u zWKh?4E4DZ3d?&8wct6GOHYAysFQG}|=Re6FUiEEziRc~~&wtjyqSdiC3hlqqpbjhW z)k}R6D60;ukyeWR4FqrW-Jw;|)GytDrAc*CM`@% z{tNT)X}VKxp8j3LFNx-FVZZQoCx);KyA#P!`753{*M=kOttpCEo?V1HT`J!L3$De_ z);_b(qtBBj;?xwIb#=C%&%1^dMdJJ(1BWL|W3%ZqHXu+ILQ`DbyPbcGIWL!7(BeNF ztGkHf<@Pgk$`cA6eMf>c44Z{mJ4@+1^&lh=BOj4@Yus5^sn2-=I z8X)87`%zlXDuboE!(%h3phddW*y7DY3mg3(x=t>?pAOY!uT(qNz21PoDVGd{^| zQUQwzUryh~^`?8}@S6&+PqlH|oWsy)nHAnp&g_qomcYZ?Jbs;61`u11W|W?@epupE z%2blCK-35l_9Bit0RPKVW+}eOp&T!k{bkYSYmcIo&>;uu}6k)oPB*~`aq2aMc z5QxFDYSNpq9T~2l*c`z*SMHbH~0*V8_zJ9oBA7$XIPwT#IR%8!_09y<6 z5bHylv}~o0rTC9LW0UVXdhMNUy0~64YtS+O$gJR(U}$^DgHy6=iNt?l0KeDeK>&mb z1@(+%S^qE^GUzm*y&H`++5~fE5eC_aJ8`qF>lf z?EPBRe?mpe!MUnN(lJ4u9+)^Mx*+Skfa`aN( z`z9oqk5g883mB1cTRwhk;Ho_ym=P;5AvM0L-{VPD=IJn)>CH@&f&N^&#t%|F?Dzv< znQ!Qs0MYIxT!ws;X8rqp!j~!>J~oM>ga*v*hn@tZmyQ9!(sunMl!5up*_ZJlUp9*! ze2-=r^J?t)n?x09eL(|{YEqEvF|#!J*WdP{TJ9}%w_|4a*~m}(=IRE5j0JLk^0iNe z#VI6t4+sa$^CAEdYapYKG5|-i*9_!_ta^UtZYB~i_fuR1E#=!?h<2>Ne|$VnbwT=g z06@F$yriZ1o5G*^@0^;TFTZI9i};x5_s@Dc>PvJ+>^autx4h_qeDC!UD6~ zwgA&u#w?9~BZ(lgRpOF549Nxp*3fa>_sK!S;nM*gh2;HEghG%ckE^n382sPCz5#vx z+j{v?fswg3;s~*+lZ7Tk>*H&uB2eE)%${)`gx=OBija3!*tFYU*jf9NOBku}E!X|? zfVD_Oe)gjSQj>>9txA44o!eC+(;j4Z!u3m(4tLyKr4~j!CD^p?<%?~%z1@E4D9?{9 zw7%RwFCFxEU+v5LvOVZ*)$KFfLbCFIsm!HL1KYrEXCKmDuq#<$w3q_C+flGz5x*)w zxbNOcJXEChtzKx*CY)VK{%_n5jNmF`J+O(t^P%1 zXz-K0x)JK<$?f)uwo%w%KPENVkfS@31=y?K+CHAt4?sgdAAJt0w=KV@Z^Yo2Vni@6 zz1Zj0fN*u2?gDb)HaVTobBm)2XXHL2rriyt+p7(99x1 zS;FZVF#e4lTzl}l76WwsXbWhe!ch-re3n-uxtG*?bKE$KKWX9{DSmn|Gn|QLeR7ds z-iyiEd+zm}(Mc|{xzq43`6byXKZ`tGuaYnkL`eoqDkez8gT$4p=4`W&zz1qQ2?W!u zcYBgc>p^DOn4A5w4Rq?>iEe76YiS{3>SFS3wp`M$lzeRajF7OcDH>O0hQRcQ`4LiT zNUwc?^OT&8+D~oU9R^^a2NVbLzx=bT)etTDHn+?V=Y}h0c=W^?$GT|3w9lq!rn1>{ z$b28xCe+kM7}m6DM~$!ky; z4`MeT&8v4>Vyf;LdE;64=Z{DD^2#?==2+b)z5Ltirkk;&u?8uO2|R5AyaZ81ubpbs z{=Fu-hR+;uoB+P9+mLXh4@Gs<+G&`BktU-kyM$%r4+SlMMSffE0E|v*O89ICuluW8 z7X#4QiofzcsM~Wp)VE^k??F1@lGgT*c&l5e3gcu?CAU>-vOwVpEVO$EhMp`*gm&GO zm#y~gYsxDn`r`hhiU*laRukh16E+{o*3RXMXn{}Vw4$I5U>^P9Jx0lfaA^QQX}kJH-#km|5%X>JCID>Tvl=BZ9AsC+BApjEVT|W z(}Xx;+?a|GYG7`^sQtT+9}ZSMBqas)xFnksi@#qdH@B4KhLRr7cso_z5ANog)^DKp>@u9GS@A!~ii zzqMD@NxO3}C~Cc*{=u>*O*(%`P$^HzNZn@KlXLAFcS(R2z$m!jokrK{9MVxY`En25 zy-O~1yVPAb`S&U8pj&sL#|Q3(8_y`e(2jeU$W_mgUzwTm5#2a8(F#wpkGvPgiiHYV zsfm3;aoTOM$3&T_+#Q_--)*{sngJJ_X-NYSdpo%qvCPbh)naOx`7T~#9%l0k-s8PuYnR=lx`~PBzSx8;i0xgA5zmh3 z3BKYph6mC26nU;XKWAGm)MNCKaC&-T?#FD*t1Lfo{ylD0XKm~gEb zJ+*Sut$_b8!}3(>-9B^^k=Qtb)->>Jb{Xm-a8LujXElvx4 zT@C^3880L9$&X(qwP<`m@>q*m&R7_%J_?{5r2gaj5thjIvqo_IJLSki4*S5G`Y#!x zlddtRRV$9Q37B^q;~V6w=-fDUvyYRG$Z|a0l|Oq|#0PEOOgJ9I4^g(8b^owWWWTYf zym2Z>^Ws-wE`RX7iPBsYO;w|{fca6@E02bHIFn8SPgYp<`96rIv6}Hk_rV*5ORmJq zmN)B`xWQFJQx zH}O2pt2??O?_IdNA>-`TxAHf(B4rWzG&iO$DL#t89})@TmBQ>zSG54|4}YGC!29NB z!3nPZm-dVe(S*TdlehX@aUv-*oqb9SN$j(*&)16H=0} z|IU8Q2=IkGbfg{&zp#T8eF5~3Zf98THSjr)cRb}PhENsor8bId|LO>BEx)iKX;O$m z%#qxRKCmv4mJ`4zH1bq6UoOdNe|#CaEdUAuY4vtb zegrZU-0g^M&jgACv*KizYBPn3LZzzz=Hp73oZt`7>r*q8KNB9DU-eQD*x^hpZy$cY za-ky;3AUxJz78P78q*xSHK@43dq69Fo69U59%7$RrY z;JOr7a;}>XpqzhXxy+c{8DZP^HQr|P%f$v>b@T3kM&uzyfvsh~C7woS-pyNDOFR4e z?@=Q!2OyW7^(G~3ow%0Bk8Qrbdi!>8D+~F~W=g!36K)cPv|xa`*QR{G$s(Jg zOM#M(6M7|%jhN9y)un^l;INUXPzkWTD5Ctsd-5V;xTb%m=6IOLa~+5V)HlUK-GC)7FRX#rggJy9srNB zsW*xjVa5xTztf7ZPSBlV3>-MCoawl-q#?@tND?8GNGh!1vS6t&c9w~WuIiyy>x#)*x%iVRw!14-k3^iM0be;H(x3H03Wo_5G|8@?c?83NEOMzHsLHqcS# zO=n2RUlv%TGo=H6I~UN7MrLmOWz|T@$W)9Bm1Nb75=3A$L057gEZ|4uCa*b)BJ}v+ zp}ZlcEp1W3#2CQbZ_Kk&(TK7sxS2F7wtOm`MFMx%!3g$sJsUs_wK^q?0gE*nu>hXN z6l7orgXF`RCH@7Y8dAUCynL2cBBn!WZo#EbQyF;8!}5b=1=&iA|4cpH)k)2Hq3Jvr z(aFLy*`xUw`24`K!o#UI=!?o3iXesQ18h_hMP_D+ftCUTc>YaR?}8Ur-&QXnu@X@8%l8DO6)qw05yc-Qp2 zPj8yh5Ow4htM*g<8(W#cSYcUY=yPxu4G*tkb&m^x$c<6ZJjz8@0*I1(Dvlu@vVeV0 zQq;I5HAAJiYzyLs0l2&V!3Z=Cn@Sa_))rj724dA10QX{~q^=<_9H1O10D=HAfx2m8 zF`7*1-ETe9^DU>jWmAs8qEDi)Gp%8!jJVOay4p(Jh{u3YO>IIcM3eF<2;8W{`;<{+ zjz+f(?@hlyG&_%ZR>FnFutq6U%ZB}<*bh{DQvZ5in8ji`xKu1#;*ht1MKq$X73zO8 zi{nO<^|h5pv2}nefw2oG;2mwi{`7#n|27n=2e>4n?W>zTvW6h%?gCjSW%o!OssF5_ zdw?}iX?w_qxZU9!W^SJTUPLC~iZpAd?KJ3oc--h2X#i0MFbQdu4tp221i|h0Rsw5L zzyRQLfTHFwEfPCJSFJJ>9U8$=Fi0ObfhCA4Y}?-ynp#^jz*l( zdmG{n4Xf?|1NMn2RL!F>f)XnWWTp#i4E%6y05lNufw0nAr=f=85nKA8%C=e>_Be+p z3TX$4X4AB)RxL7lvD{jBETj*~+2r6FscO@r)FpOaFhQa@H1%3J_-<+Y+fQM7e{{GU z+hz~^P4qk9B?i9>UrrvzjtRf6V3iefy%D`tM3&OMv0?v5GOQDO2i(;GB*bD1E2T-H z7e#vwX^xx_oa2HuFj31<;#$aN!Z=Go93DU`6%_eweUDJ`iLn>DKu;^xc^zxxK&=2r zi&1H4%6Fgl99?eRVxL;6yWzr@w!XeueSZ4MLh9E1){)h>w+EC#`l`=+W8XaF|ilqH?Tgi=;8l1T<~ui);5tOK%#{- z0H`|S!=>K(N6?4%N5?y=C1gYGy0HhtJQ6JO9}l^kssb+lsAlOItC}lKu#_(f>G@Bo zqP9--f0b-r9^Z4}&u$_NatNSQD%DTu+}tM_YLQx*8i5L}BQN!;qm|ku9dV^o?9N7Q> diff --git a/024.simple_text/module.s b/024.simple_text/module.s deleted file mode 100644 index fd10212..0000000 --- a/024.simple_text/module.s +++ /dev/null @@ -1,21 +0,0 @@ - xdef LoadModule - -LoadModule: - movem.l d0-a6,-(sp) - lea bitplanes1,a0 - lea compressedModule,a1 - move.l #endCompressedModule,d0 - sub.l #compressedModule,d0 - ;; a0 - destination address - ;; a1 - start address - ;; d0 - size - jsr LoadDiskData - - ;; a0 - input buffer to be decompressed. Must be 16-bit aligned! - ;; a1 - output buffer. Points to the end of the data at exit - lea bitplanes1,a0 - lea Module,a1 - jsr Depack - - movem.l (sp)+,d0-a6 - rts \ No newline at end of file diff --git a/024.simple_text/trackloader.s b/024.simple_text/trackloader.s deleted file mode 100644 index 92cf07a..0000000 --- a/024.simple_text/trackloader.s +++ /dev/null @@ -1,203 +0,0 @@ -*** MFMLoader.S by Photon *** ;requires a6=$dff002 - - xdef LoadMFMB - -MFMsync equ $4489 ;AmigaDOS standard sync marker. -MFMlen equ 12980 ;Legacy trackdata read length in bytes - -ShortWt:MACRO ;CPU-independent nop;nop replacement - tst.w (a6) - ENDM - -MFMcyl: dc.w 0 -MFMhead: dc.w 0 -MFMdrv: dc.w 0 -MFMchk: dc.l 0 - -LoadMFMB: ;loadsectors.a0=dst,d0=startsec.W,d1=nrsecs.W(-=Step0) - MOVEM.L D0-D7/A0-A6,-(SP) - lea $bfd100,a4 - bsr MotorOn - tst.w d1 ;if neg length,then Step0 first - bpl.s .NoSt0 - neg.w d1 -.St0: btst #4,$f01(a4) ;head on cyl 0? - beq.s .Rdy0 - bsr.s StepOut - bra.s .St0 -.Rdy0: lea MFMcyl(PC),a1 - clr.w (a1) -.NoSt0: and.l #$ffff,d0 - divu #22,d0 ;startcyl - sub.w MFMcyl(PC),d0 ;delta-step - beq.s .StRdy - bmi.s .StOut - subq.w #1,d0 -.StIn: bsr.s StepIn - dbf d0,.StIn - bra.s .StRdy - not.w d0 ;=neg+sub#1 -.StOut: bsr.s StepOut - dbf d0,.StIn -.StRdy: swap d0 ;startsec within cyl - cmp.w #11,d0 - blt.s .Head0 - sub.w #11,d0 - bra.s .Head1 -.Head0: bset #2,(a4) - lea MFMhead(PC),a1 - clr.w (a1) - bsr LoadTrak ;read track+decode - beq.s .End -.Head1: bclr #2,(a4) ;Head 1 - lea MFMhead(PC),a1 - move.w #1,(a1) - bsr LoadTrak ;read track+decode - beq.s .End - bsr.s StepIn ;1 cyl forward - bra.s .Head0 -.End: bsr.s MotorOff - MOVEM.L (SP)+,D0-D7/A0-A6 - RTS - -StepOut: - bset #1,(a4) - lea MFMcyl(PC),a1 - subq.w #1,(a1) - ShortWt - bclr #0,(a4) - ShortWt - bset #0,(a4) - bsr.s StepWt - RTS - -StepIn: - bclr #1,(a4) - lea MFMcyl(PC),a1 - addq.w #1,(a1) - ShortWt - bclr #0,(a4) - ShortWt - bset #0,(a4) - bsr.s StepWt - RTS - -StepWt: - moveq #67,d6 ;wait >3 ms -LeaveLine: -.loop1: move.b 6-2(a6),d7 -.loop2: cmp.b 6-2(a6),d7 - beq.s .loop2 - dbf d6,.loop1 - RTS - -MotorOn: - move.w MFMdrv(PC),d7 - addq.w #3,d7 - or.b #$78,(a4) - bset d7,(a4) - ShortWt - bclr #7,(a4) ;turns motor on - ShortWt - bclr d7,(a4) - ShortWt -.DiskR: btst #5,$f01(a4) ;wait until motor running - bne.s .DiskR - RTS - -MotorOff: - move.w MFMdrv(PC),d7 - addq.w #3,d7 - bset d7,(a4) - ShortWt - bset #7,(a4) - ShortWt - bclr d7,(a4) - RTS - -LoadTrak: ;loadtrack+decode.a0=dst,d0=secoffs,d1=secsleft - MOVE.W D0,-(SP) - MOVE.W D1,-(SP) - lea MFMbuf,a1 - move.w #2,$9c-2(a6) ;Clr Req - move.l a1,$20-2(a6) - move.w #$8210,$96-2(a6) ;DskEna - move.w #MFMsync,$7e-2(a6) - move.w #$9500,$9e-2(a6) - move.w #$4000,$24-2(a6) - move.w #$8000+MFMlen/2,$24-2(a6);DskLen(12980)+DmaEn - move.w #$8000+MFMlen/2,$24-2(a6);start reading MFMdata -.Wrdy: - btst #1,$1f-2(a6) ;wait until data read - beq.s .Wrdy - move.w d0,d2 - add.w d1,d2 ;highest sec# (d0=lowest) - cmp.w #11,d2 - ble.s .NoOvr - moveq #11,d2 -.NoOvr: sub.w d0,d2 ;nrsecs - move.l #$55555555,d3 ;and-const - move.w d2,d1 - subq.w #1,d1 ;loopctr -.FindS: cmp.w #MFMsync,(a1)+ ;search for a sync word - bne.s .FindS - cmp.b (a1),d3 ;search for 0-nibble - bne.s .FindS - move.l (a1)+,d4 ;decode fmtbyte/trk#,sec#,eow# - move.l (a1)+,d5 - and.w d3,d4 - and.w d3,d5 - add.w d4,d4 - or.w d5,d4 - lsr.w #8,d4 ;sec# - sub.w d0,d4 ;do we want this sec? - bmi.s .Skip - cmp.w d2,d4 - blt.s .DeCode -.Skip: lea 48+1024(a1),a1 ;nope - bra.s .FindS -.DeCode:lea 40(a1),a1 ;found a sec,skip unnecessary data - move.l a1,d6 - lea MFMchk(PC),a1 - clr.l (a1) - move.l d6,a1 - move.l (a1)+,d6 ;decode data chksum.L - move.l (a1)+,d5 - and.l d3,d6 - and.l d3,d5 - add.l d6,d6 - or.l d5,d6 ;chksum - lea 512(a1),a2 - add.w d4,d4 ;x512 - lsl.w #8,d4 - lea (a0,d4.w),a3 ;dest addr for this sec - moveq #127,d7 -.DClup: move.l (a1)+,d4 - move.l (a2)+,d5 - and.l d3,d4 - and.l d3,d5 - eor.l d4,d6 ;EOR with checksum - eor.l d5,d6 ;EOR with checksum - add.l d4,d4 - or.l d5,d4 - move.l d4,(a3)+ - dbf d7,.DClup ;chksum should now be 0 if correct - lea MFMchk(PC),a1 - or.l d6,(a1) ;or with track total chksum - move.l a2,a1 - dbf d1,.FindS ;decode next sec - MOVE.W (SP)+,D1 - MOVE.W (SP)+,D0 - move.l MFMchk(PC),d3 ;track total chksum OK? - bne LoadTrak ;no,retry - moveq #0,d0 ;set to start of track - move.w d2,d3 - add.w d3,d3 - lsl.w #8,d3 - add.w d3,a0 - sub.w d2,d1 ;sub #secs loaded - RTS - -;MFMbuf is placed here after bootblock end, $3c0.w or so when copied. -MFMbuf: - dcb.b MFMlen