Monkey by Boozoholics [web]
* ^ | | ascii sucks monkey bzh lug00ber slummy duh bra.w .qqq .V1 clr.w VB .V2 cmp.w #01,VB bne.s .V2 .qqq ; bra.w .aaaa add.l #4,ass_cg cmp.l #4*24*100,ass_cg blo.s .sda move.l #0,ass_cg .sda lea WBuf1_cg+(48*4),a0 moveq #0,d2 move.w #160-1,d0 .Aa move.w #160-1,d1 .Ab move.l (a0),d4 move.l d4,d2 lsr.l d4 and.l #$3f3f3f3f,d4 move.l d4,(a0)+ dbra d1,.Ab lea ((256-160)*4)(a0),a0 dbra d0,.Aa move.w VB2_cg,d0 and.l #$0000fffe,d0 mulu.w #(1728/8),d0 add.l #PreCalc_cg,d0 move.l d0,PrecAd_cg bsr.w PreMesh_cg bsr.w CalcKst_cg bsr.w Sort_cg ; bsr.s stats_cg bsr.w Draw1_cg bsr.w pass2_cg .nothing_to_draw .aaaa tst.w esten beq.w .estar lea Anm2_GR,a0 move.l AnmO_GR,d0 lsr.l #2,d0 mulu.l #256*256,d0 add.l d0,a0 lea WBuf1_cg+(48*4),a1 lea WBuf1_cg+(48*4),a2 move.w #(256*160)-1,d0 moveq #0,d1 .ll move.b (a0)+,d1 moveq #0,d2 moveq #0,d3 moveq #0,d4 move.b (a2)+,d2 move.b (a2)+,d3 move.b (a2)+,d4 move.b (a2)+,d4 lsr.b d3 lsr.b d4 move.b d1,d2 lsr.b d1 add.b d1,d3 add.b d1,d4 move.b d2,(a1)+ move.b d3,(a1)+ move.b d4,(a1)+ move.b d4,(a1)+ dbra d0,.ll moveq #0,d0 move.w se,d0 add.l d0,AnmO_GR cmp.l #25*4,AnmO_GR blo.s .Lss1 move.l #0,AnmO_GR .Lss1 .estar bsr.w FuxGrid_cg bsr.w CalcKst2_cg bsr.w DoGrid_cg ; tst.w $00 ; beq.w .asa tst.w pikk bne.w .ikke1 cmp.w #2900,VB2 blo.s .ikke1 bsr.w setlogo_cg .ikke1 .asa bsr.w Smuut_cg move.w VB,se_cg move.w se_cg,d0 add.w d0,VB2_cg cmp.w #25*30,VB2_cg blo.s .L1 move.w #0,VB2_cg .L1 tst.w pikk beq.w .ikke2 ; tst.w $00 ; bne.w .lk
[ back to the prod ]