Most, hogy a végrehajtási idők méréséről beszélünk.
Körülbelül 1/50 másodperc múlva mérhetjük az időt, a 39-es változót használva, RANDOM_IRQ.
Kíváncsi voltam, hogyan gyorsabb lenne elválasztani a 16 bites szám 2 bájtját?
----------------------
Talking about measuring execution times.
We can approximately measure time with 1/50th of seconds, using the variable 39, RANDOM_IRQ.
I wonder, how would it be faster to separate the 2 byte of a 16-bit number?
100 PROGRAM EXTRACT L AND H FROM HL
110 !
120 SET STATUS OFF
130 TEXT 40
140 PRINT AT 1,1:"Please enter an 8 bit number(0-65535):"
150 PRINT AT 2,1:CHR$(25)
160 PRINT CHR$(25)
170 PRINT CHR$(25)
180 PRINT CHR$(25)
190 PRINT CHR$(25)
200 PRINT CHR$(25)
210 !
220 INPUT AT 2,1,IF MISSING 150:W$
230 IF W$="" THEN GOTO 150 ! false input
240 LET W=VAL(W$)
250 IF STR$(W)<>W$ THEN GOTO 150 ! no strings
260 IF W>65535 OR W<0 THEN GOTO 150 ! out of range
270 PRINT
280 !
290 ! WORD$ command mode
300 !
310 SET 39,0:LET A$=WORD$(W):LET L=ORD(A$(1:1)):LET H=ORD(A$(2:2)):ASK 39 T
320 !
330 PRINT W,"L=";L,"H=";H,LTRIM$(STR$(T));"/50 of sec."
340 !
350 ! Arithmetic mode
360 !
370 SET 39,0:LET L=REM(W,256):LET H=(W-L)/256:ASK 39 T
380 !
390 PRINT W,"L=";L,"H=";H,LTRIM$(STR$(T));"/50 of sec."
400 !
410 PRINT :PRINT "press a key for a new try"
420 IF INKEY$="" THEN GOTO 420
430 GOTO 150
Azt hiszem, törölhetjük a 230-as vonalat. És mindezeket a nyomtatási parancsokat vezérlőkódként helyezzük el egy karakterláncba
----------------------
I think that we can eraae line 230. And put all these Print commands as control codes inside a string.