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@bc<cE+2demopbK@77MC0<,~2UY""@Rda@A-HzJfIC RQQ>aFE,>Re" 9AHA8I QKf`E,8<`vaxv<N0<aaafRd4,G NuJ<Dg2aI4FBCQNu,0 de}lkjihgfe fE+2 TinyChess.spdft; 256 bytes chessboard zoomer ; stingray/scarab, 01-Jun-2011 PLANES_CB = 1 PLwdt_CB = 44 PLhgt_CB = 300 PLsize_CB = PLwdt_CB*PLhgt_CB MaxSquare_CB = 256 ; should not be changed!!! TEST = 0 SECTION CODE,CODE_c IFNE TEST INCLUDE SOURCES:Intros/Bootintros/startup.i MAIN bra.w CHESS256 ENDC ChessCount_CB CHESS256 lea $dff006,a6 INIT_CB lea Buf_CB(pc),a1 move.w #$2c07,d0 ;FFFE,d0 ; first wait moveq #0,d7 .loop move.w d0,(a1)+ ; Cop WAIT subq.w #2,(a1)+ move.l #$00e0dg70000,(a1)+ ; Cop BPL0PTRH move.l #$00e20000,(a1)+ ; Cop BPL0PTRL add.w #$0100,d0 ;add.l #$01000000,d0 ;dbf d7,.loop addq.b #1,d7 bcc.b .loop ; a1.l: chessboard ; d7.l: 0 bsr.b BuildChess_CB lea COPPERLIST(pc),a0 move.l a0,$80-6(a6) LOOP IFNE TEST bsr WaitRaster bsr WaitRasterEnd ELSE tst.b (a6) bne.b LOOP ENDC ******************************************* *** CHESSBOARD_CB *** ******************************************* ; Creates the chessboard as a copper-modh?dulation effect with entries for each ; line. DoChess ;IFNE TEST ;lea ChessCount_CB(pc),a0 ;ENDC ;addq.w #1,(a0) ; a0: ptr to cmdline ;and.w #$ff,(a0) lea Buf_CB+6(pc),a4 ; manage CL buffer_CB lea Chess_CB(pc),a1 ; "chessboard" addq.w #1,(a1) ; a0: ptr to cmdline and.w #$ff,(a1) ;move.w #200-1,d0 ; PAL ;moveq #0,d0 ; "auto-fixes" itself ; create all even squares from 2nd row move.w (a1),d7 ; Chess_CB-size ! bsr.b BuildChess_CB\.getoff ; -> a3 lea MaxSdi\Dquare_CB*PLwdt_CB(a3),a2 .loop move.w (a1),d7 .yo addq.b #1,d0 bcs.b .out move.l a3,d1 move.w d1,4(a4) swap d1 move.w d1,(a4) lea 12(a4),a4 ; 3 longwords dbf d7,.yo .out exg a2,a3 bne.b .loop IFNE TEST btst #6,$bfe001 bne.b LOOP rts ELSE bra.b LOOP ENDC ******************************************* *** Prepare Chessboard *** ******************************************* BuildChess_CB lea PLwdt_CB*MaxSquare_CB(a1),a2 move.w #PLwdt_CB*8,d4 ; clipping valudjꕋe moveq #1,d3 ; direction bsr.b .do moveq #0,d4 ; clipping value moveq #-1,d3 ; direction .do ;moveq #0,d7 .loop0 move.w d7,d6 lsr.w #1,d6 move.w #(PLwdt_CB*8)/2,d0 ; screen middle bsr.b .draw2 .again bsr.b .draw bsr.b .draw bne.b .again .out addq.b #1,d7 bcc.b .loop0 .getoff move.w d7,d2 mulu #PLwdt_CB,d2 lea (a1,d2.w),a3 rts .draw exg a1,a2 move.w d7,d6 .draw2 .loop2 cmp.w d4,d0 beq.b .out1 move.w d0,d1 bsr.b .getoff lsr.w #3,d1 move.w d0,d2 not.dk(w d2 bset d2,(a3,d1.w) add.w d3,d0 dbf d6,.loop2 .out1 rts ; 92, 82, 78 PRINTT PRINTT "Init Chess:" PRINTV *-BuildChess_CB PRINTT ******************************************* *** Copperlist *** ******************************************* COPPERLIST ;dc.w $100,$0200 ; no dma ;dc.w $96,$20 ; no sprites dc.w $9a,$7fff dc.w $08e,$2c81 ; Window start dc.w $090,$fec1 ; Window stop dc.w $092,$30 ; Data fetch start = xx1/2-8.5 dc.w $094,$d8 ; Data fetch stop = PdldLwdt*4-8+DDstart dc.w $108,$00 ; Mod 1 odd ;dc.w $104,$00 ; Bplcon2 ;dc.w $102,$00 ; Bplcon1 ;p1 dc.w $e0,0,$e2,0 dc.w $100,$1200 ; Bplcon0 dc.w $180,$888 ; %000 $749 dc.w $182,$ccc ; %001 $F8B IFNE TEST Buf_CB dcb.l 3*256 Chess_CB ds.b (2*MaxSquare_CB+1)*PLwdt_CB ELSE Buf_CB Chess_CB = Buf_CB+(3*256*4) ENDC ; 334, 314, 296, 280, 264, 256 \o/ (visual artefacts tho!) ; completely new approach: ; 266, 258, 256 PRINTT PRINTT "INTRO SIZE" PRINTV (*-CHESS25dyy6)+36 PRINTT mn@onE+2 TinyChess.txtpmoi _ _ _ _ _ __ ____ ______\ S C A R A B /______ ____ __ _ _ _ ____/\ _ ____/\ _ ______/\ _ ___/\ _ ______/\ _ ___/\ .____/ _ //____ _ //____ .__ \\ ___ \\ .__ \\ __. _)____ _ __|_ \__ \/ \ \/ \ __/ \ / _/___ __/ \ | \ __ /_/ /______________/_________/_| \_\ \_| \_ ________//_/_ yop |________/ \_______/|________/ mw" is back with a small just for fun production TinyChess - a 256 bytes chessboard zoomer Here's my contribution to the recently started "tiny OCS intros" craze. I coded it just for fun today at work and then spent quite some hours when I came back home to kill the last bytes to make it 256 bytes. This is a real 256 byter, i.e. the header (32+4 bytes) is included in these 256 bytes. Since this is a 256 byte intro there was not much room for anyH\CGb~{uxrdmqE+2AmigaDBE+2E#5rUsB\ JTpst]A^t =T EDIT-BACKUPrs -*^df0:demo uwv_devspvwۤwsystem-configurationuvp+y||x|ni`@ " ,EpsonX[CBM_MPS-1250]P BxyB\spyzu>z;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 pm] "clean" code so please only start it from a clean boot. The intro will happily trash your memory and won't allow you to quit back to DOS, you have been warned. Source is included in the archive. Released on Jun-1, 2011. Cheers, StingRay/Scarab GREETS: LOONIES, IRIS, MAWI, PLUSH, NUANCE, SCOOPEX, POTION DEKADENCE, SPACEBALLS, EPHIDRENA, TBL, MANKIND, OXYRON, CREST, PADUA, EXTEND :) AND ALL FORGOTTEN ONES _ _ _ __ ____ _______ _______ ____ m< 3__ _ _ _ / E.VIL N.EVER D.IES \