#160

... ---------------------------------------- http://www.CirqueFascination.com ------------------------------------------------------------ ======================================================================= 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 Fascin ...

... sharing these discoveries here in the pages of Fascination through a series of collections, beginning 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 ...

... (A0)+,(A1) 12 LEA 160(A1),A1 8 DBRA D0,loop RTS A few remarks. As you can see, I use LEA DATA(PC),A0 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 instructio ...

... ) moveq #0,D0 move.w (A0)+,D0 lsl.w #4,D0 or.w (A0)+,D0 lsl.l #2,D0 move.l 0(A1,D0.l),D0 movep.l D0,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 wit ...

... W D3,D4 ;add y ; write screen pos to the template function MOVEA.L A0,A2 LEA C2PTEMPLATE,A1 MOVE.W #((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 ...

... on text mainloop lea.l blob_data,a0 ; our blobpicture, 160*100 pixels big move.l a0,a1 add.l blob_offset1,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 ; f ...

... cmp.w #320*4*6,8(a0) to big? ble not_h sub.w #8,8(a0) go back not_h cmp.b #$4d,$fffffc02 right cursor? 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? bn ...

... .W #3,D3 ;OVER 3 DIMS ? 008FBE: 6224 276 BHI ERR58 ;IF NOT 277 ; 278 ; DEFAULT DIMENSION THE STRING ARRAY TO DIMENSIONS 279 ; OF 10 EACH, WITH AN ELEMENT LENGTH OF 16 CHARS. 280 ; 008FC0: 7800 281 MOVEQ #0,D4 ;CLR 32 BITS 008FC2: 383C0640 282 MOVE.W #1600,D4 ;DIM 2 ? 008FC6: 0C430002 283 CMPI.W #2,D3 ;CHK DIM 008FCA: 670C 284 BEQ LDSTRA3 ;IF 2 008FCC: 6206 285 BHI LDSTRA2 ;IF 3 286 ; 008FCE: 383C00A0 287 MOVE.W #160,D4 ;DIM 1 008FD2: 6004 288 BRA LDSTRA3 ;CONTINUE 289 ; 008FD4: 383C3E80 290 LDSTRA2 ...

... Novell 3.x) users. In order to do that we'll use the following two functions: --------N-21E3--SF41------------------------- INT 21 - Novell NetWare - BINDERY SERVICES - ADD BINDERY OBJECT TO SET AH = E3h subfn 41h DS:SI -> request buffer (see #1604) ES:DI -> reply buffer (see #1602) Return: AL = status (see #1603) Desc: add the specified object to an object's group property (Table 1603) Values for NetWare function status: 00h successful 96h server out of memory E9h member already exist ...