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 :
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 :
- Posting a routine give you 1 reputation point
- Getting a vote gives 2 reputation points to the author of the routine
- The title acts as a Tag, so you can propose another solution to one problem (Click propose another solution).
Now some rules :
- You can post routines which are not created by you, no problem, simply don't say it's yours and if possible add initial author as a first line comment.
- When it's possible, give a complete program (with includes, .org etc...)
Most FamousHello worldRLE decompressionSimple scroll animation effectCompare strings24-bits operationsIonFastCopy
Code routines
;-----> Copy the gbuf to the screen (fast)
;Input: nothing
;Output: graph buffer is copied to the screen
fastCopy:
di
ld a,$80
out ($10),a
ld hl,gbuf-12-(-(12*64)+1)
ld a,$20
ld c,a
inc hl
dec hl
fastCopyAgain:
ld b,64
inc c
ld de,-(12*64)+1
out ($10),a
add hl,de
ld de,10
fastCopyLoop:
add hl,de
inc hl
inc hl
inc de
ld a,(hl)
out ($11),a
dec de
djnz fastCopyLoop
ld a,c
cp $2B+1
jr nz,fastCopyAgain
ret
;Input: nothing
;Output: graph buffer is copied to the screen
fastCopy:
di
ld a,$80
out ($10),a
ld hl,gbuf-12-(-(12*64)+1)
ld a,$20
ld c,a
inc hl
dec hl
fastCopyAgain:
ld b,64
inc c
ld de,-(12*64)+1
out ($10),a
add hl,de
ld de,10
fastCopyLoop:
add hl,de
inc hl
inc hl
inc de
ld a,(hl)
out ($11),a
dec de
djnz fastCopyLoop
ld a,c
cp $2B+1
jr nz,fastCopyAgain
ret
1 votesPlease log in to propose another solution or vote for this routine