Notice: SSI.php was unable to load a session! This may cause problems with logout and other functions - please make sure SSI.php is included before *anything* else in all your scripts! in /home/tiplus/www/forum/SSI.php on line 180
This is the assembly stack application !
Post useful routines here (written by you or anybody else).

Posting a routine give you points that you can spend by voting for others routines :
Now some rules :

Code routines

; Do a scrolling animation using the byte given as parameter
; Input : a (byte to repeat)
; destroy bc, hl and the other things destroyed by FASTCOPY
SCROLL_BYTE_EFFECT:
ld b, 64
ld hl, plotsscreen

sbe_loop:
push bc
ld b, 12

sbe_loop2:
ld (hl), a
inc hl
djnz sbe_loop2

push af
push hl
call FASTCOPY
pop hl
pop af
pop bc
djnz sbe_loop

ret

PUT_BYTE:
ld hl, plotsscreen
ld (hl), 11001111b

ret


; Fill all screen (no scrolling)
; Input : a (byte to repeat)
; destroy bc, hl and the other things destroyed by FASTCOPY
FILL_BYTE_EFFECT:
ld b, 64
ld hl, plotsscreen

fbe_loop:
push bc
ld b, 12

fbe_loop2:
ld (hl), a
inc hl
djnz fbe_loop2

pop bc
djnz fbe_loop

call FASTCOPY
ret


SCROLL_BYTE_EFFECT_BLACK:
ld a,11111111b
call SCROLL_BYTE_EFFECT
ret


SCROLL_BYTE_EFFECT_WHITE:
ld a,00000000b
call SCROLL_BYTE_EFFECT
ret

SCROLL_BYTE_EFFECT_BLACK_THEN_WHITE:
call SCROLL_BYTE_EFFECT_BLACK
call SCROLL_BYTE_EFFECT_WHITE
ret
1 votesPlease log in to propose another solution or vote for this routine

Post your routine

You must log in to post routines