Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
I've been getting into sizecoding as well, I'll check out your link when I'm not at work lol
;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
;▒ 10/2018 by Boogop
;▒ Plasma in 128 bytes
;▒ FASM source
;▒
;▒ Acknowledgements:
;▒ - wally/rage for the sin generator and rbz for
;▒ the analysis thereof
;▒
;▒
;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
org 100h
use16
Start:
mov al,13h ; set mode 13
int 10h
push 0a000h ; stick video segment in es
pop es
;------- set palette ---------
xor ax,ax
mov dx, 3c9h ; who needs 3c8h!
@redup: ; red-blue palette
out dx,al
xchg al,ah
out dx,al
out dx,al
xchg al,ah
inc al
cmp al,127
jne @redup
@bluedn:
xchg al,ah
out dx,al
out dx,al
xchg al,ah
out dx,al
dec al
jnz @bluedn
mov cx,783Fh ; harmonic oscillator by wally/rage
xor si,si
sin1:
mov ax,65497
imul cx
add si,dx
add cx,si
mov [bx],ch
sar byte [bx],1
dec bx
cmp bx,16383
jne sin1
mov si,bx
@main:
xor di,di ; Reset vga position
mov cx,[p_pos1] ; stick position val into cx
@y_loop:
mov ax,255 ; magic number. imul leaves result
imul cx ; in dx:ax which will do for dx vals
mov ah,160 ; X counter. since we're using stosw
; we only have to loop 320/2 times
@x_loop:
push ax
; plasma calcs
mov bl,dl
add ax,[si+bx]
mov bl,dh
add bl,cl
add ax,[si+bx]
mov bl,cl
add ax,[si+bx]
mov bl,ch
sub bl,dl
add ax,[si+bx]
stosw
pop ax
add dx,0102h ; add movement
dec ah ; decrement the x counter
jnz @x_loop ; test for 0
add cx,0102h ; add movement
cmp di,320*200 ; use di for the y_loop counter
jb @y_loop ; test for 0
inc [p_pos1]
nop ; pad to 128 bytes lol
nop
jmp @main
p_pos1 dw 0
;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
;▒ 10/2018 by Boogop
;▒ Boring Old Fire in 159 bytes
;▒
;▒ Acknowledgements:
;▒ - raven/tektonic,preacher/traction and others for
;▒ the adc idea, really makes it look demo-y
;▒
;▒ requirements
;▒ - must have a halloween message referencing dbf
;▒ - fire must not look like suck
;▒ - text shouldn't be white
;▒ - must have appropriate exit logic
;▒
;▒
;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
org 100h
use16
; in command.com we trust
; assume ax = 0, if not we're in trouble ;)
mov al,13h ; enter classic demo world
int 10h
xchg al,ah ; al=13h,ah=0 after setting video mode. Switch those
; to get the draw string function in ah and save 2 bytes
; setting al=0 uses color attributes in bl
; draw text
mov bl,128 ; color index, we'll rotate it later
mov cl,24 ; string length
mov dx,0107h ; dl=7 dh=1 column 7 row 1
mov bp,foo
int 10h
; set palette
xor ax,ax
mov dx, 3c9h ; who needs 3c8h!
@redup: ; Set colors 0-64, ramp up red
out dx,al ; set red to value in al
xchg al,ah ; green & blue get 0
out dx,al ; the xchg commands seem unavoidable
out dx,al
xchg al,ah
inc ax ; 1 byte smaller than inc al
cmp al,64
jne @redup
@yellowdn: ; we'll add some yellow for the lols
out dx,al
out dx,al
xchg al,ah
out dx,al
xchg al,ah
dec ax
jnz @yellowdn ; don't need cmp al,0
push 0a000h ; ds:si is smaller than es:di
pop ds ; by about 6 bytes it seems (why??)
@main:
; fire
mov si,(199*320) ; bottom line, y * xres
mov cx,320 ; screen_w
@randline:
in al,40h ; the better looking prods tend to use
; rng's, but for my purposes 40h does
mov [ds:si],al ; just fine
inc si ; using the ds: prefix isn't necessary
loop @randline ; but makes things a little clearer
mov si,(320*20) ; we're moving forwards through video
; memory, some move backwards. Skip the
; first 20 lines for the text so it doesn't
@draw: ; melt
mov al,[ds:si] ; add the surrounding pixels
shl ax,2 ;
add al,[ds:si+1] ;
adc ah,0 ; if the carry flag is set, add 1 to ah
add al,[ds:si+320] ;
adc ah,0 ;
add al,[ds:si-1] ;
adc ah,0
add al,[ds:si+640] ; add the pixel 2 rows above for higher flame
adc ah,0 ; ah += 0 + cf
shr ax,3
;or ax,00111101b ; uncomment for weird effect lol
; don't let al wrap, you get lots of
jz @nozero ; noise on the screen
dec ax
@nozero:
mov [ds:si-320],al ; put the pixel back on the row below
inc si
jnz @draw ; if it's wrapped to 0 we've reached the end of the screen
inc bh
mov dx,3C8h
mov al,128 ; rotate palette index 128
out dx,al
inc dx
mov al,bh ; increment red & green together
out dx,al
out dx,al
sub al,32 ; stick blue 32 behind them for great justice
out dx,al ; we could save 2 bytes by making it white but
; that looks like crap
in al,60h ; check keypress
dec ax ; escape key = 01h, dec 01h = 0
jnz @main ; dex ax one byte smaller than dec al
; exit stuff
mov al,03h
int 10h
ret
foo db 'Halloween greets to DBF!'
We telled nobody of our demo (Panic) because we feared
that it would scare off people. The almightyFC is gonna
do a new demo, we can't win, so why compete? We thought
we could this way get a lot better compo.
; tasm [blah]
; tlink [blah]
MODEL SMALL
.STACK 200H
.386
.DATA
palindex db 0
upperstop dw 320*50
lowerstart dw 320*150
endscreen dw 320*200
Palette LABEL BYTE
i=0
REPT 42
db i/2,i,i/3
i=i+1
ENDM
i=42
REPT 42
db i/2,i,i/3
i=i-1
ENDM
REPT 52 ; make the reds a little more coppery
db i,i/2,i/3
i=i+1
ENDM
i=52
REPT 52
db i,i/2,i/3
i=i-1
ENDM
i=0
REPT 32 ; less avail for blue but that's okay
db i/2,i/3,i
i=i+1
ENDM
i=32
REPT 32
db i/2,i/3,i
i=i-1
ENDM
.CODE
Set_Palette PROC
mov ax,SEG Palette
mov ds,ax
mov si,OFFSET Palette
mov dx,3C8h
xor al,al
out dx,al
inc dx
mov cx,(256*3)
rep outsb
ret
ENDP
start:
mov ax,13h ; set mode 13
int 10h
push 0a000h ; stick video segment in es
pop es
;------- set palette ---------
call Set_Palette
; ------ main loop ----------
main:
mov di,lowerstart ; draw some lines along the bottom of the screen
lower:
mov ax,di
sub ax,lowerstart
shr ax,1
shl ax,3
stosb
cmp di,endscreen
jb lower
xor di,di
upper: ; xor the colors and draw along the top
mov ax,di
shr ax,1
shl ax,3
xor al, 11111000b
stosb
cmp di,upperstop
jb upper
; ------ rotate ----------
; michael abrash this isn't
inc palindex
mov si,OFFSET Palette
mov dx, 3C8h
mov al, palindex
out dx, al
inc dx
mov cx, (256*3)
rep outsb
in al, 60h
cmp al, 01h
jnz main
;------- exit stuff ---------
mov ax,3
int 10h
mov ah,4CH
mov al,00H
int 21H
END Start
;±±±±±±±±±±±±±±±± sin/cos ±±±±±±±±±±±±±±±±
;entry: ax=angle (0..65535)
; exit: ax=muller (-127..127)
addwcos:add ax,ds:[bx] ;optimized entry for wavesets
mov ds:[bx],ax
cos: add ax,16384
sin: mov bx,ax
mov cx,bx
and cx,1023
neg cx
add cx,1023
shr bx,10
mov ah,ds:sintable[bx]
xor al,al
imul cx
push ax
push dx
mov ah,ds:sintable[bx+1]
xor al,al
neg cx
add cx,1023
imul cx
pop bx
pop cx
add ax,cx
adc dx,bx
shrd ax,dx,11
ret
sintable LABEL BYTE ;sine table (circle is 64 units)
db 0,12,24,36,48,59,70,80,89,98,105,112,117,121,124,126,127,126
db 124,121,117,112,105,98,89,80,70,59,48,36,24,12,0,-12,-24,-36
db -48,-59,-70,-80,-89,-98,-105,-112,-117,-121,-124,-126,-127
db -126,-124,-121,-117,-112,-105,-98,-89,-80,-70,-59,-48,-36
db -24,-12,0,3,6,9,12,15,18,21,24,27,30,33,36,39,42,45,48,51,54
db 57,59,62,65,67,70
push ax
xor ah,ah
stosw
pop ax
; tasm /m2
; tlink /t
cseg segment
assume cs:cseg
org 0100h
.286
start:
mov ax,13h ; set mode 13
int 10h
push 0a000h ; stick video segment in es
pop es
mov dx,3c8h ; set color index port
xor ax,ax
out dx,al ; output color index 0
inc dx ; inc dx = 3C9h, color write port
@redup: ; Set colors 0-62, ramp up red
out dx,al ; set red to value in al
xchg al,ah ; ah is 0, so exchange it with al
out dx,al ; set green and blue = 0
out dx,al
xchg al,ah ; swap ah/al so al is again non-zero
inc al ; al +=1
cmp al,63
jne @redup
@reddn: ;set colors 63-127, ramp down red
out dx,al
xchg al,ah
out dx,al
out dx,al
xchg al,ah
dec al
jnz @reddn
@blueup: ;set colors 127-194, ramp up blue
xchg al,ah
out dx,al
out dx,al
xchg al,ah
out dx,al
inc al
cmp al,63
jne @blueup
@bluedn: ;set 194-256, ramp down blue
xchg al,ah
out dx,al
out dx,al
xchg al,ah
out dx,al
dec al
jnz @bluedn
; sin generator from argon by insomnia/matrix
; who got it from Wally/Rage, but I'm not sure
; who that was. There was a Rage demogroup
; in the amiga scene. Anyway, credit to the
; original author. My big list of sin constants
; was taking up ~200 bytes
mov cx,783Fh ; [30783]
xor si,si
sin1:
mov ax,65497
imul cx ;[2016194151]
add si,dx ; results of imul are stored in dx:ax [782C AE67, si+=30764]
add cx,si ; [783F + 782C,cx=30783+30764=61547=F06B]
mov [bx],ch ; [[bx]=F0=240]
sar byte ptr [bx],1 ; divide the value by 2, only store a byte [bx=120?]
dec bx
cmp bx,16383
jne sin1
; inc bx ; BX points to the sine/cos-values [comment by insomnia but this step isn't needed and saves a byte]
mov si,bx ; move it to SI since I need BX
main:
;------- main program ------------
xor di,di ; Reset vga position
mov cl,[p_pos1] ; stick plasma position values into ch,cl
mov ch,[p_pos2]
mov ah,200 ; 200 rows in mode 13
Y_LOOP:
push ax ; ax is also our x counter, so save
; the y vals to test later
mov dl,[p_pos3] ; the other position values in dh,dl
mov dh,[p_pos4] ; now the plasma position vals are in cx/dx
mov ah,160 ; X counter. since we're using stosw we only have to loop 320/2 times
X_LOOP:
xor al,al ; al holds the color, so clear it
; x = SinTable[p_pos1] + SinTable[p_pos2] + SinTable[p_pos3] + SinTable[p_pos4]
mov bl,dl ; mov p_pos3 into bl
add al,si[bx] ; x += Sin[p_pos3]
mov bl,dh ; mov p_pos4 into bl
add al,si[bx] ; x += Sin[p_pos4]
mov bl,cl ; mov p_pos1 into bl
add al,si[bx] ; x += Sin[p_pos1]
mov bl,ch ; mov p_pos2 into bl
add al,si[bx] ; x += Sin[p_pos2]
; push cx ; save the position vals
; mov cx,4 ; write 4 pixels at a time
; rep stosb ; put pixel cx times in es:di, advancing the screen pointer
; pop cx ; restore position vals
stosw ; stosw is smaller than that noise
add dl,2 ; add movement var to p_pos3
add dh,1 ; add movement var to p_pos4
dec ah ; decrement the x counter
jnz X_LOOP ; test for 0
add cl,2 ; add movement var to p_pos1
add ch,3 ; add movement var to p_pos2
pop ax ; restore the y counter
dec ah ; Next vertical line
jnz Y_LOOP ; test for 0
add [p_pos1],2 ; add some vals to the position vars
add [p_pos2],3 ; speed up/slow down the plasma
sub [p_pos3],1
add [p_pos4],4
jmp main ; do it all again
p_pos1 db 0
p_pos2 db 0
p_pos3 db 0
p_pos4 db 0
; SinTable db 64,63,63,63,63,63,63,63,63,63
; db 63,62,62,62,62,61,61,61,60,60
; db 60,59,59,59,58,58,57,57,56,56
; db 55,55,54,54,53,52,52,51,51,50
; db 49,49,48,47,47,46,45,44,44,43
; db 42,42,41,40,39,39,38,37,36,35
; db 35,34,33,32,32,31,30,29,28,28
; db 27,26,25,25,24,23,22,21,21,20
; db 19,19,18,17,16,16,15,14,14,13
; db 12,12,11,11,10,9,9,8,8,7
; db 7,6,6,5,5,4,4,4,3,3
; db 3,2,2,2,1,1,1,1,0,0
; db 0,0,0,0,0,0,0,0,0,0
; db 0,0,0,0,0,0,0,0,0,1
; db 1,1,1,2,2,2,3,3,3,4
; db 4,4,5,5,6,6,7,7,8,8
; db 9,9,10,11,11,12,12,13,14,14
; db 15,16,16,17,18,18,19,20,21,21
; db 22,23,24,24,25,26,27,28,28,29
; db 30,31,31,32,33,34,35,35,36,37
; db 38,38,39,40,41,41,42,43,44,44
; db 45,46,47,47,48,49,49,50,50,51
; db 52,52,53,54,54,55,55,56,56,57
; db 57,58,58,58,59,59,60,60,60,61
; db 61,61,62,62,62,62,63,63,63,63
; db 63,63,63,63,63,63
cseg ends
End Start
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
; CALCULATE SINE/COS - VALUES (Wally/Rage)
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
mov cx,783Fh ; don't ask me, I just use it..
xor si,si
plc1: mov ax,65497
imul cx
add si,dx
add cx,si
mov [bx],ch
sar byte ptr [bx],1
dec bx
cmp bx,16383
jne plc1
inc bx ; BX points to the sine/cos-values