#160

... by Denes House The Phantom Zone Into the Archives Superman #5, by Neil Ottenstein Section 7: The Phantom Zone (cont) Super Friends Brave and the Bold #160, by Joe Crowe The Girl Friend and the Pal Lois Lane #96 and #129, by Jon B. Knutson TELEscopic VISION: Superman on the Small Screen Episode Reviews #3-21: "Through a Glass, Darkly", by Shane Furlong Section 8: TELEscopic VISION (cont) Episode Reviews (cont) #3-22: "Big Girls Don't Fly", by Marta Olson A Love That Risks Nothing Is Worth Nothing Season Three, by Zoomway Section 9: Coming Attractions STAFF: ------ Jeffery D. Sykes, Editor-in-Chief Arthur E. LaMarche, Executive Coordinator of Revie ...

... Action Comics #671, by Mark Lamutt Manuscripts of Steel Superman: Speeding Bullets, by Denes House The Phantom Zone Super Friends Brave and the Bold #160, by Joe Crowe Section 6: The Phantom Zone (cont) Into the Archives Superman #4, by Neil Ottenstein The Girl Friend and the Pal Lois Lane #96 and #129, by Jon B. Knutson Section 7: TELEscopic VISION: Superman on the Small Screen "You Ruined My Life, Superman!" by Zoomway Episode Reviews #3-02: "Ordinary People", by Leigh Raglan Section 8: TELEscopic VISION (cont) Episode Reviews (cont) #3-20: "It's A Small World After All", by Joe Jones The Mailbag Section 9: Coming Attractions STAFF: ------ Jef ...

... u 25 May 1989) Re: Short Boil OK (Dr. T. Andrews) lagering (uiucdcs!att!iwtio!korz) Introduction and a Few Questions (Jim Somerville) HOMEBREW Digest #160 (Fri 26 May 1989) another cheap shot at Sham Adams (Dick Dunn) Re: [Aluminum Boiling Vessels] (Dr. T. Andrews) Batch #17, and Excessive Bitterness (Dr. T. Andrews) HB DIG #'s 155 and 158 Reinheitsgebeer, etc. (florianb) Re: Homebrew Digest #157 (May 23, 1989) (Crawford.WBST129) Stronger Beer, Better Yeast, Real Music, Boston, Rodenbach (pri=9 Marc San Soucie ms 019-890 x76723) HOMEBREW Digest #161 (Sat 27 May 1989) Re: Homebrew Digest #160 (May 26, 1989) (Darryl Richman) Aluminium vs. Ename ...

... ------------------------------------------ ======================================================================= VOLUME 17, NUMBER 5 May 2017 ISSUE #160 ======================================================================= Welcome to the latest edition of Fascination, the Unofficial Cirque du Soleil Newsletter. While it goes without saying that a good portion of the news for this edition of Fascination focuses on VOLTA's premiere, there's plenty of other news to read about, including a number of Cirque shows celebrating birthdays and anniversaries throughout the month of April. Alas, only a few made a note in celebration online. KOOZA was one ...

... ng with the 1987 tournée of Le Cirque du Soleil (better known today as Le Cirque Réinventé) and continuing onward in the following manner... o) Issue #160, MAY 2017 – Le Cirque Réinventé, Part 1 (1987) o) Issue #161, JUN 2017 – Le Cirque Réinventé, Part 2 (1988) o) Issue #162, JUL 2017 – Le Cirque Réinventé, Part 3 (1989) o) Issue #163, AUG 2017 - Nouvelle Expérience, Part 1 (1990) o) Issue #164, SEP 2017 - Nouvelle Expérience, Part 2 (1991) o) Issue #165, OCT 2017 - Saltimbanco, Part 1 (1992) o) Issue #166, NOV 2017 - Saltimbanco, Part 2 (1993) o) Issue #167, DEC 2017 - Alegría, Part 1 (1994) o) Issue #168, JAN 2018 - Alegría, Part 2 (1995) o) I ...

... 0 instead of the more obvious MOVE.L #DATA,A0. Simple, LEA is faster. Also, I use MOVEQ wherever possible. And I used LEA 160(A1),A1 instead of ADD.W #160,A1. Faster again. But the real trick is in the DBRA. If you take a clockcycle sheet, you will see that DBRA takes 10 cycles if the branch is taken and 12 if it isn't. So that makes 15*10+12=162 cycles. Plus the 320 cycles of the other instructions, the whole loop will take 482 cycles. Imagine loosing the DBRA and the LEA instruction, saving 18 cycles per loop. Just repeat the MOVE.W (A0)+,(A1) 16 times! Of course, we need the scanline displacement of 160 bytes in A1. So we use MOVE.W (A0)+, ...

... 1(A2) movep.l D0,161(A2) addq.w #8,A2 bra D7,SETPIXEL . . . 3. scrolling the chunkybuffer lea CHUNKYBUFFER,A3 lea CHUNKYBUFFER,A4 addq.l #1,A4 move.w #16000-1,D4 SCROLLLOOP: move.b (A4)+,(A3)+ dbra D4,SCROLLLOOP 4. repeat step 2 until space is pressed The whole thing runs at about 8.5 fps on a plain ST - which is as I think quite fast for a fullscreen fine-scroller (imagine how you would code this with planar graphics X(. but keep in mind this demo is very basic and not optimized, 'cause I wanted to keep it simple. Last remarks Some words on optimizing....one way to optimize this algo a little bit is to preshift every color up 2 bits (I mean ...

... ((C2PTEMPLATEEND-C2PTEMPLATE)),D7 GENCOPYTEMPLATE: MOVE.B (A1)+,(A0)+ SUBQ.W #1,D7 BNE.S GENCOPYTEMPLATE MOVE.W D4,(C2PTEMP1-C2PTEMPLATE)+2(A2) ADD.W #160,D4 MOVE.W D4,(C2PTEMP2-C2PTEMPLATE)+2(A2) ADDQ.W #1,D0 CMP.W #SIZEX,D0 BNE.S GENXLOOP ADD.W #320,D3 ;add to y 2 lines because of ; the pixel double... DBRA D2,GENYLOOP ;our rout needs a last a rts !;-) ;without it this is not really funny... MOVE.W #$4E75,(A0)+ RTS ***************************************************************************** GENTAB: LEA TEXTURETAB,A6 LEA TAB1,A0 LEA TAB2,A1 LEA TAB3,A2 LEA TAB4,A3 MOVE.W #0,D3 GENLOOP1: MOVE.W #0,D4 GENLOOP2: MOVE.W #0,D5 GENLOOP3: MOVE.W #0,D6 ...

... fset1,a0 ; change these two to move the blobs. add.l blob_offset2,a1 ; move.l screen,a2 lea.l blob_palette,a3 ; the TCpalette described above. move.w #160*100-1,d7 blobloop move.w (a0)+,d0 ; get contribution from blob1 add.w (a1)+,d0 ; add the contribution from blob2 .. [here is the place to add more add.w if you want more than two blobs] move.w (a3,d0.w*2),(a3)+ ; use the lookuptable (palette) to ; find correct color and set the ; pixel. dbra d7,blobloop jmp mainloop section data blob_data incbin blobpic.bin ; the blobdata As you can see, we go thru the screen, plotting every pixel, this means we don't have to clear the screen. There are two ...

... or? bne not_v sub.w #8,8(a0) go right! tst.w 8(a0) to small? bge not_v add.w #8,8(a0) go back not_v cmp.b #$50,$fffffc02 cursor down? bne not_n add.l #160*4,10(a0) go down cmp.l #max_y*160*4,10(a0) bottom? ble not_n sub.l #160*4,10(a0) go back not_n cmp.b #$48,$fffffc02 cursor up? bne not_u sub.l #160*4,10(a0) go up tst.l 10(a0) top? bge not_u add.l #160*4,10(a0) go back not_u cmp.b #2,$fffffc02 1? bne not_1 lea $ffff8240.w,a0 load pal movem.l pal,d0-d7 movem.l d0-d7,(a0) not_1 cmp.b #3,$fffffc02 2? bne not_2 lea $ffff8240.w,a0 load pal2 movem.l pal2,d0-d7 movem.l d0-d7,(a0) not_2 cmp.b #4,$fffffc02 3? bne not_3 lea $ffff8240.w,a0 load pal3 movem ...