
Сообщение от
Manwe
Так напиши нормально. В твоих же интересах.
- - - Добавлено - - -
Типа такого что ли?
Код:
CLR 16384.
CALL StartTimer
LOOP0: MOV #16384.,R1
MOV #8192.,R0
LOOP1: INC (R1)+
SOB R0,LOOP1
JMP LOOP0
Interrupt: MOV 16384.,R0
CALL PRINT
Сразу могу сказать, что INC (R1)+ выполняется 32 такта на БК 0010 3 МГц, это означает 93750 операции в секунду. Хоть с байтами, хоть со словами.
типа такого. но словами не очень
надо бы байтами
Код:
DEVICE ZXSPECTRUM128
org #7f7f
push hl
push af
ld hl,counter
dec (hl)
jp z,end_program
pop af
pop hl
ei
ret
defs #8000-$
defs #101,#7f7f
counter db 0
beginning
di
ld a,#80
ld i,a
im 2
ld hl,#c000
ld a,51
ld (counter),a
xor a
beg0
ld (hl),a
inc hl
cp h
jp nz,beg0
ei
halt
loop0
ld hl,#c000
loop1
inc (hl)
inc hl
cp h
jp nz,loop1
jp loop0
end_program
ld a,(#c000)
di
halt
SAVESNA "qsave.sna",beginning
LABELSLIST "D:\_work\Dropbox\unreal\user.l"
у меня получается 8 заливок за секунду
сколько на реальном БК?