mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-17 14:12:58 +00:00
47 lines
669 B
Plaintext
47 lines
669 B
Plaintext
Test 1:
|
|
5 FOR J=1 to 1000: NEXT J
|
|
10 PRINT CHR$(7)
|
|
20 FOR I=16384 to 20479
|
|
30 POKE 20480,PEEK(I)
|
|
40 NEXT I
|
|
100 PRINT CHR$(7)
|
|
|
|
Time (linapple2) 38s
|
|
|
|
All one one line
|
|
|
|
5 FOR J=1 to 1000: NEXT J
|
|
10 PRINT CHR$(7)
|
|
20 FOR I=16384 to 20479
|
|
30 POKE 20480,PEEK(I)
|
|
40 NEXT I
|
|
100 PRINT CHR$(7)
|
|
|
|
Time (linapple2) 37s
|
|
|
|
Assembly language:
|
|
|
|
PTR EQU $06
|
|
|
|
lda #0
|
|
sta PTR
|
|
lda #$40
|
|
sta PTR+1
|
|
|
|
ldx #8
|
|
ldy #0
|
|
copy_loop:
|
|
lda (PTR),y
|
|
sta $5000
|
|
iny
|
|
bne copy_loop
|
|
dex
|
|
bne copy_loop
|
|
|
|
rts
|
|
|
|
Runs more or less instantaenously
|
|
|
|
|
|
|