DOS\pHQ(OB,xCOpNhJg,@)n&A"C( N @*h">(&/0<@2<N)@g~ l2< 'p Q$HC2< Q4<z9909EEvraRCBQ6<rarCBQ6<ra\CBQ6<raFSCBQ A ,"(H@0XHH@0XHHA0XHHA0,|?.?.-|=|-J=|Bn"lA~(rpg8 fr@` f@`$I&M@ p(QRA`<<=| 9g0.g=| Q-|=_=_-lBn,_Jg l0<@2<N"N,xNbPL,xCfd|oNJg @ hpNupNuJEf8`x0@@0@H@0000Nutopaz.fontgraphics.library" f" ,x,8 Where Amiga Memories Live On AMIGA DB  https://amigadb.net --- YOUR PORTAL TO AMIGA HISTORY --- ! Press mouse to boot !p@b ckjihgfedc<E+demopbd3L#:pC,xNJg>#6p'C,xNJg,#" @ h CBM8fx*H ("y"A,xN\ -"y"A,xN\ m g ,y"NdC ,xN.,y6N"$<&<,y6N`0<rt&<,y"Nj#& @#*A.BX"y"A *G,xN\+@"y"A h,xN\+@,y6N"$<&<,y6N.zpNu,y6N"$<&<&,y6N.zp NuWPA8 & WPL8 patches installed. WPA8 & WPL8 patches removed. be< JI need graphics.library at least v39. dos.librarygraphics.library$VER: PatchWPA8 1.0 (22.8.95) by Pawel Hernik 6BN`lx 6RjLCBM8Jy.fRy.H J"i$ziC$I /@@&|(|L,D8HD08,E:HE2:,F<HF4<,G>HG6>,G*F, . ̀΂. $ ΁ă$ & ĀƁ艀"銄"& " Ɔ‡菌"鋆"., " †" , …bf9(̇, . ̄΅荈"鎌". * ΀ʁ艀"鏎" fA"z*|3333,|UUUU "($(&(, . ̀΂䊀. $ ΁ă䋂$&ĀƁ≀#@Ԃ#B&"Ɔ‡⏌#Fփ#C ("( $(&(, . ̀΂䊀. $ ΁ă䋂$&ĀƁ≀#@Ԃ#B&"Ɔ‡⏌#Fփ" f z"o0pr(/z$/&/<,y"NSy.L? NuH?A/J"i zi@RB?BA?CRC/C BB?BEz0/@@ oCd&|(|Jy.bg;JfRy.L,D8HD08,E:HE2:,F<HF4<,G>HG6>,G*F, . ̀΂. $ ΁ă$ & ĀƁ艀"銄"& " Ɔ‡菌"鋆"., " †" , …̇, . ̄΅荈"鎌". * ΀ʁ艀"鏎" fp0/ѯAN"zD*|3333,|UUUU "($(&(, . ̀΂䊀. $ ΁ă䋂$&ĀƁ≀#@Ԃ#B&"Ɔ‡⏌#Fփ#C ("( $(&(, . ̀΂䊀. $ ΁ă䋂$&ĀƁ≀#@Ԃ#B&"Ɔ‡⏌#Fbh3Lփ" f zJ"o0pr8/z$/6/<,y"NSy.RoSojL? / Nubi?bj=bk;b Zdlm}LmE+ StartMidge{pl4oSetPatch QUIET Set WPARETURN `PatchWPA8/PatchWPA8` If "$WPARETURN" EQ "WPA8 & WPL8 patches removed." ;run PatchWPA8 second time, 'cause we've just removed it! PatchWPA8/PatchWPA8 >NIL: EndIf Unset WPARETURN Midge noouE+Midge_En.readmepnz;B\startup-sequencexy;3)df0:c/border on df0:c/climaxx -c -t df0:boot.txt df0:demo {|n}|B\boot.txtp{}U Where Amiga Memories Live On __ _____ (__) / _ \ _____ __ _________ / /_\ \ / \| |/ ___\__ \ / | \ Y Y \ / /_/ > __ \_ \____|__ /__|_| /__\___ (____ / {;Z \/ \/ /_____/ \/DB https://AmigaDB.net --- YOUR PORTAL TO AMIGA HISTORY --- ~hB\cp7B\cls~m-] ?g $<Lv`$<Mv,yC@pN*@N"N"MNbpNudos.library Parameters are not required  7tB\border~󫔿HzHHI&TNJg,$! !N. n (gB" & @I<(X/BrQ >D@ Ư!RC":c4@g=3sUE_(ր`J`J7BkpS ЃaZ,o>܄U!H mp9Q>h@9*k7QGB G dmTQ ҫۮ[$E[5:!{a+Pă[Oҥ`*t4e$#> OJo"=@a1ܩ)7-$Ĥ@Z*1'ػ;/=I8 B[_`F<Brp;(uT{Ch9>6- F9X@#~lTNa"2S|w1 yd Qd=qh3a'1p@4Ґ $a*GB*1 p0p$0pI(40k 49@oyfMg\Al1 FF43xL3< <&͆o iac%yΆ>rJFOfLf90Mh1@ɋ|  IcE9BNo8ÙeQΆmq 'N8 SԹ[)tļ2@n䅽FxI)ɨ!Ii|%|HDR)Hћl:A9AІ@ZJ B\htype~ ,`mmNUH720|&P~Cp$,KN$@ J gprAQA"M$v,JN+@JfN|"$N&`N+@ <rHA,KNT+@Jf,JN|"$N&`nr @1|!| m+A+A+HgR mHHHg@phfp+@`pnfp+@`(HH+@A"C$ ,JNF`zJgzJgSJjAn~+H`zA+m~+HJfd"m Y+H+I gPB"$-,JNJg*N|.ptЀf~+mAB"C$ NF`~Jf"m i"(,JN m+@"$<N+@-N|."-NJf m+HA"C$ NF` -g8Jf2"$<N+@JfN|.+mA"C$ NF`Z -g"N "- Ja.Jg "-,JN"-,JNBJf"-NJgN|.ptЀf~"-,JN` -g"A$,JNF`Jgm "t,JN& 0f~`~ -g",JN -g",JN"m,KNN"-,JN"J,KNb`0|"P ipz!@ LLN]Nudos.libraryFROM/A/M,TO/K,OPT/K,HEX/S,NUMBER/S$VER: type 37.2 (21.1.91) Option '%lc' ignored Type can't do both HEX and NUMBER 2 No files to type TYPE can't open %s 0123456789ABCDEF%04lx: %s %5ld %sNUH72.,&Hp*+@",KN+@Rg2JfJf p m,zN8A`\9fNuRaC  gfBA"$<A,zhN+@g"tvN"-tvN+@ g,r,xN:+@g"-$-&- ,z N mB0"-,z NJg(Aca maAXa"m - ,xN.Nu m"h. iX (g"|0) 2) i,zN,zNNuJxgNur < ,xN: @(@C0< QNAp0RB RԈJfR RԈ 0fC,xNhr&Ё @"PrA 3@H@2B97A!xNuH瀀AHpR(T( V(X( Q9L3 Nsgraphics.library"<,xx N(N:JfNu  gSNu zg" -ff ( gJ(f NupNu"$vRJf,z0NAC!IC!I,xN+@pN+@C#mx;|"m) fJ iCg>EL" C8#A #AE#Jr#AE| #@(NAN+m -N -Nu1mCLIMax v1.0 0m33mby RIFF RAFF of UNITED FORCES 0mUsage: CLIMax [options] Options... -f Fullsize, -b Borderless, -c Clear window, -a Add21k, -t Type text, -s CLI Stars -n No Fastmem, -w Wait for mouse d-'0 p pn7F8 by Pawe Hernik). Intro needs OS 3.0. In this archive you can find two versions of my intro: MidgeCompo - exactly 256 bytes, but without any exit from it and Midge - one with exit and freeing resources, but it is longer than 256 bytes. I also included scripts to run simultaneously SetPatch, PatchWPA8 and intros then (one script for one version). Enjoy :-) (I know, it is slow...) ޫ' $E+ PatchWPA8.docp<` DESCRIPTION: PatchWPA8 replaces WritePixelArray8() and WritePixelLine8() functions of graphics.library with a highly optimised chunky-to-plannar routines. In most cases on 8bit screen it gives acceleration up to 3.5 times. REQUIREMENTS: OS3.0+ (temporary bitmap is allocated via AllocBitMap) CPU 68020 or better NOTE: Don't use it with gfx boards! BENCHMARKS: Original Patched Converting 640x480x8 screen 10 times: PAL:Hyyires Laced 22.23s 7.16s (1) (3.1x faster) DBLPAL:Hires NoFlicker 43.68s 12.10s (3.6x faster) Real applications: VT - JPEG 640x480x24 42.03s 38.12s VT - JPEG 640x480x8 13.03s 9.23s Flick opt ROM 2.8fps 4.2fps (2) CyberShow and CyberTVPlayer are faster about 2-2.5 times (visually) All times are measured by SpySystem3 on 68030@25Mhz. Testing program with a source is included in this archive. (1) Yes! It's tGrue :( Write access to Chip memory is almost 3 times slower in doublescan modes (8bit) than in 15kHz PAL or NTSC so WPA8 and WPL8 are slower, too. (2) It's done just for a test so DON'T use ROM option anymore because Flick has own very fast (state of the art) c2p routines. NOTE: Many programs (f.e. FastJPEG, FastView) use own fast c2p routines with direct access to screen (system unfriendly but faster) so this patch will not speed up anythinAg. USAGE: PatchWPA8 can be started ONLY from CLI. It works like a switch. No arguments are supported. AUTHOR: PatchWPA8 was developed in Devpac assembler on A4030/882/10MB/850MB/CDROM. C2P routines are based on several sources in Aminet and highly changed by me for system usage. All comments or bug reports send to: Pawel Hernik Nowowiejska 24/3 25-532 Kielce POLAND tel. (041)27012 E-mail: spi-ph@srv1.tu.kir\elce.pl DISTRIBUTION: PatchWPA8 is FREEWARE. You may use and copy this program freely but all files must be copied in an unmodified state preferably in LhA or LZX archive. Use it on your own risk. If you use PatchWPA8 send me a postcard or message via e-mail. BUGS: - I can't write directly into RastPort's BitMap (it is system unfriendly!) so data is blitted via BltBitMapRastPort. In original function (by Commodore) c2p routine took ~z80% of all time but now it's only ~30% and slow blitter is real bottle neck :( If anyone has idea how to do it system friendly but without using blitter let me know about it. Direct write to BitMaps gives acceleration over 8 times (!). - Patched routine doesn't damage source chunky in A2 (Is it really a bug? :) ) - Patch ignores TmpRastPort in A1 and own bitmap is used (because I need 8bit interleaved bitmap aligned to 32bit). It makes problem/{ds when some tasks use WPA8 and/or WPL8 simultaneously. I used very primitive semaphore mechanism to avoid conflicts - it isn't system friendly but WORKS! - Chunky data must have less than 2048 pixels/line (look above) - Only 8bit c2p is optimised but it works well for 7bit and less but acceleration isn't as big as in 8bit. It's still faster than original routines. HISTORY: 1.0 - first release I% eE+ TestWPA8.Sp#N4*** WritePixelArray8 test *** opt c+,d+ include system.gs * incdir dh2:include/ include dos/dos.i include dos/dos_lib.i include exec/exec_lib.i include intuition/intuition.i include intuition/intuition_lib.i include graphics/graphics_lib.i ;------------------------------------------------------- section test,code start: move.l sp,oldstack bsr gfxopen bsr intuiopen sub.l a0,a0 lea screentaglist(pc),a1 CALLINT OpenScreenTagList move.l d0,screen tst.l d0 beq errB 6or move.l #640,d0 move.l #1,d1 move.l #8,d2 move.l #BMF_INTERLEAVED|BMF_DISPLAYABLE,d3 sub.l a0,a0 CALLGRAF AllocBitMap move.l d0,bmap tst.l d0 beq.s error lea tmprp,a1 CALLGRAF InitRastPort lea tmprp,a1 move.l bmap(pc),rp_BitMap(a1) clr.w cnt loop: bsr line bsr WPA8 addq.w #1,cnt cmp.w #10,cnt blt.s loop error: move.l screen(pc),a0 move.l a0,d0 beq.s .nocl CALLINT CloseScreen .nocl: move.l bmap(pc),a0 move.l a0,d0 beq.s .nof CALLGRAF FreeBitMap .nof: moCve.l oldstack(pc),sp moveq #0,d0 rts ;------------------------------------------ gfxopen: lea gfxname(pc),a1 moveq #0,d0 CALLEXEC OpenLibrary move.l d0,_GfxBase tst.l d0 beq error rts intuiopen: lea intuiname(pc),a1 moveq #39,d0 CALLEXEC OpenLibrary move.l d0,_IntuitionBase tst.l d0 beq error rts dc.b '$VER: TestWPA8 1.0 (23.8.95) by Pawel Hernik',0 intuiname: INTNAME gfxname: GRAFNAME even _IntuitionBase dc.l 0 _GfxBase dc.l 0 oldstack: dc.l 0 screen: dc.l /HT0 cnt: dc.w 0 bmap: dc.l 0 tmprp: dcb.b rp_SIZEOF*2 screentaglist: dc.l SA_Width,640, SA_Height,480, SA_Depth,8 dc.l SA_DisplayID,$8004 dc.l SA_Colors32,cols dc.l SA_Quiet,-1 dc.l SA_Overscan,0 dc.l SA_Interleaved,-1 dc.l TAG_END cols: dc.w 11,0 dc.l $00000000,$00000000,$00000000 dc.l $ff000000,$ff000000,$ff000000 dc.l $00000000,$ff000000,$ff000000 dc.l $ff000000,$ff000000,$00000000 dc.l $00000000,$ff000000,$00000000 dc.l $ff000000,$00000000,$ff000000 dc.l $ff000003_F0,$00000000,$00000000 dc.l $00000000,$33000000,$ff000000 dc.l $ff000000,$7f000000,$00000000 dc.l $ff000000,$ff000000,$00000000 dc.l $ff000000,$00000000,$7f000000 dc.l 0 ;------------------------------------------ line: lea chunky,a0 move.w cnt(pc),d0 addq.w #1,d0 move.w d0,d1 lsl.w #5,d0 add.w d0,a0 move.w #480-1,d2 .loop: move.b d1,(a0) add.w #640,a0 dbra d2,.loop rts ;-------------------------------------- WPA8: move.l screen(pc),a6 lea sc_RastPort(a6),a0 lea t:umprp(pc),a1 lea chunky,a2 moveq #0,d0 moveq #0,d1 move.w #639,d2 move.w #479,d3 CALLGRAF WritePixelArray8 rts ;--------------------------------------------------------- section chunky,bss chunky: ds.l 640*480/4 KSE+TestWPA8p.^g,#NaaΑC,yFN#RJgj <"<$<&<,yJNj#XJg:C\,yJN:C\#zByVaxaRyV y Vm z g ,yFN z g ,yJNd.zpNuCup,xN#JJgNuCGp',xN#FJgNu$VER: TestWPA8 1.0 (23.8.95) by Pawel Hernikintuition.librarygraphics.library&Ϗ#$%2Ch84B 3A0:ZR@2H4<QNu,z:ATCNIL: EndIf Unset WPARETURN MidgeCompo &E+2 Midge.lhapX!>-lh5-.X+$ Midge\MidgeZbĠy 8TpMOtDρ `  al&`%QX JpGM{a"qS\ st4N7&wθa/Jm9`yDe ]W+4jtxMْ;NzI NWZ5Ir FZuJsc?u. L$Hio{OZB\9neTiĦ%0!63k6G=@&_NM{ RAAX -hxOH&u/kIzF.ލ坖FLӿ<_iH|ޭS1עjb2s+f-lh5-=!^$Midge\Midge_Pl.readmebkz֒7}̍QKc1@!,m[;IēxSlbVuӺaB/ ,iu?PӹàiekqQZ9^xRp{?Tۯ8. kY~x?hnx{zTl5v8-".r [6`A8͋0>sc+:cU{ukn]"lA:} @Ռ$V=&,ov WS59p>.qK8҄: Di?ooµ|} E,qU<9~1v\D:]@U9E|*Y/LD|$L^He 궭*16g=~"p X\ގ@ +wt]q}}GN;- 0kjL&+I%P&-lh5-W]y$Midge\MidgeCompoJZbĠ~E `jQ =AE`Dp8 X,-nY%$5=t{"4|5H hɰZɂz?,PO?H[\Hyέ&JϳAysV*^'m+tͷ8v`קRaZ2BDnJ `O=Յ^R]Q1 \r6 _iuQw]T8:큝gz\q/-lh5-E<aMidge\PatchWPA8\PatchWPA8Z0sVuKqh|ml%s7k@P2m6m̌L <s#hA3BCLԵ0~''RnL'{He qA4@]]Ϻ-&]*l%&So9* #R`QgphVNHȫmO=}<*9%n^Iz!4 y!TOt-4jVj3yDv*M /Zf NN+p~C"1Eہ}?x\bx9bXo~hU9797 /a|왑ahҕ'2VϹ(O1Q{Q"s7Ӣ_ͨ'6"}vXQc ZkTVb37^zrzR i\׀\H0ZjskT"\e 1`_;wFy#<ג!]` Fb&^ga]_h|74y[ BbSf*Fśy\}6n43 MIW `~PTAN(Pf+}*mA3b&|.AU?d}SȂsUlXTUEQTUEQю4ezoD=pkZq3-lh5-$ cMidge\PatchWPA8\Pat`chWPA8.docsum9_`_hzpI7/ Bn41\6I;6!=XɣVLX"ЇI/F LM3"DS^W$Qʪ|]Q#! D[eTekbpҏVf%NaF]n_XQB! ]N;\Nu(hWA_֧dbSAptI"fKtaUI9bv. bƜ&~Xj}VYrgobtRJ\px) w);:= Z$\c,K⩩:ihf l>>X4/;T"jv_tpK]׭޿o<r.m{TrZ8_sfv+ A2f_eI,Ew_r8[mqatJEti)o/ھn\ ]˼mf2ӟ#Gg-ig\bkI(J6 A}Cj`<$LXWvoCԖbRł[<* $⨒jJ'Jb5J,G4=eKzwTP3dy9eUR)YƓ=VU̾"\lvg(s F=B+46і\"ߐW ;PR 'h 0i±gp{ЄcQWDUro P7'"diR(q^=:DZ"砅/glI4oA/#V0ғoGs?Vfl k6B/JL` ,a*RLT}0<|+jzXNs-\.Hu.+fޓ Sٖ1MmT3O*3L˦wxR jg;p^ "S,.[89~1$w$`C!q9v= DHDxFڍbs5qж$BS1x+㏙|WI˿\}}c/ID3Yz6Fs}sSULYN-ELAbNOO@//x4캊trxdM~@ D{18=Yd#7l ~  Mm[?2gB /'[վ<95 梛oTCz PIB|)t];t{a&$HQ1.5b5VġnI zs/ILco m9Q0/)  ('3؎C X:uZ d:}-~؉~qHy+9v!⺅.Ek%ngᅪmd=<|*4[3B^E& dGF fF/F TSV2K=rOTE ]MK=i`2pp$P2 :j"t28-F'wY?)W87 ^ h_PEH@'}F9jY݅4ϛbC$(; :z|GREG#>Jw'U@;]I w'd~f[ƃK!ox1b{>5qrQ+M, 4}u2Vk2eUQ[QXh0ap}.({-0\v_8ܢu6uCʼtIB)q̵'~϶Bxƞ^TxRhXQȮ"\62T 9ӭ쥇#^ҚRwYO='W }DU Z8%C}Hd"ZBȢGePjeSWoiF>rE8Ħ͌b)k,G]BfWɏ&YlE>/O۔M/Ձ ?z@{6~1J9Ϲj篽rMNcq ~_2\Ey9b4h@V!;U}~Pr&᪌T=W7Pɖܡë 3lEIF>n+wB,-ENwW/͝._h B_7QAvo8g4EȡaoIHvఏ7iE2dEu_ľGˀ![FAZ Hyrg6?[я~׿>_Q $, ת{5jKfgbZYuI 3W16^n^@m 5 X>ڰ-%%[V wj35{Ɖ] c^BnN{z*D - ]BUj7&q-lh5-$@Midge\StartMidge\R٥<1\A02+)r09eth$3Iv.:@$C|=}Ĵ)3dqNS&z&SI*Y@L#ϹFyv&ͨ.ў8sXe@qG&<`,~cT[-b*ݑ;+-lh5-$@Midge\StartMidgeCompoPZ٥<ʔDn \; I7e&R,;ED4ݠg%TH #6F@9Fyn&.4鵋cѽ85+_߸AŪt}ϝ]i ܊E+2 MidgeCompop7A!Hp | QXf,xpN*@pN,@CN(@C,MN:prtvNjA EGp>