COMMUNITY SECTION ☺︎
Extended Braillegen Spider Oil Explorer
- currently available as a starting point
- available if you have your own client 
- hidden in the depths of the cyberspace Wave CPU Sprite Renderer Image Encoder
Wave CPU Image Renderer: Source| #c0 0000 A7F4 5ECB 0600 | - colormap |
| #c1 0838 0840 08b8 08c0 | - starting address (0800 0808 0880 0888 left) |
| #c2 0003 0003 0003 0003 | - colormap mask (0b11) |
| #c3 0100 0100 0100 0100 | - line address increment (256, two lines of 128x64) |
| #c4 0001 0000 0000 0000 | - 1 | 0 | 0 | 0 (x increment) |
| #c5 0041 0000 0000 0000 | - image data start |
| #c6 0064 0000 0000 0000 | - program start |
| # === header code === | |
| mov c6.x, r7.x | # r1 - program start |
| # === main code === | |
| # == main loop start == | |
| swizzle r7.xyzx | # :W restart |
| mov c1.xyzw, r2.xyzw | # r2 - current draw line addr |
| mov c5.xyzw, r3.xyzw | # r3 - current image data addr |
| lsr.w r4, 15 | # r4 - clear line counter |
| # == line loop start == | |
| swizzle r7.xyxw | # :Z lines |
| load [r3.x]+, r0.xyzw | # r0 - image data addres, increment for the next iteration |
| mov r2.xyzw, r1.xyzw | # r1 - current pixel target address |
| # == pixel loop start == | |
| swizzle r7.xxzw | # :Y pixels |
| mov r0.xyzw, r5.xyzw | # r5 - pixel data |
| and c2, r5 | # apply mask - get color indexes |
| load [r5.xyzw], r6.xyzw | # r6 - color data [freeing r5] |
| store r6.xyzw, [r1.xyzw]+ | # draw and increment pixel target address [freeing r6] |
| rol.w r0, 2 | # rotate shift image data to the next pixel |
| # linebreak test | |
| mov r1.xyzw, r6.xyzw | # r6 - test result |
| subrev.w r6, r2 | # subtract line start address from current pixel address |
| lsr.w r6, 3 | # right-shift difference (1000 -> 0001, less -> 0000) |
| mov c4.yzw, r6.yzw | # zero-out yzw, x holds either 1 or 0 |
| add.w r6, r7 | # jump over if test is true [freeing r6] |
| swizzle r7.yyzw | # jump to :Y => next pixel |
| # == pixel loop end == | |
| add.w c3, r2 | # increment line addr |
| add.w c4, r4 | # increment line counter |
| # restart test | |
| mov r4.xyzw, r6.xyzw | # r6 - test result |
| lsr.w r6, 3 | # right-shift counter (1000 -> 0001, less -> 0000) |
| add.w r6, r7 | # jump over if test is true [freeing r6] |
| swizzle r7.zyzw | # jump to :Z => next line |
| # == line loop end == | |
| swizzle r7.wyzw | # jump to :W => restart |
| # == main loop end |
NP COMPUTRONICS AUTUMN CAMP 1986