рЮАКХЖЮ 2

1 REM опнцпюллю дкъ IBM PC
10 R1=&H378:R2=R1+2
20 CLS
30 PRINT "1 - ярхпюмхе"
40 PRINT "2 - опнцпюллхпнбюмхе"
50 PRINT "3 - времхе"
60 INPUT "ббедхре жхтпс ондопнцпюллш";L:ON  L GOTO 70, 250, 450
70 REM ярхпюмхе
80 OUT R2,4:OUT R1,0:OUT R2,1:OUT R2,5:OUT R2,0:нUT R2,4
90 OUT R2,7:OUT R2,3:OUT R1,&H20:OUT R2,7:OUT R2,4:
100 OUT R2,7:OUT R2,3:OUT R1,&H20:OUT R2,7:OUT R2,4
110 FOR  W=1 TO 22700:NEXT W:REM гюдепфйю 10 ля
120 FOR S=0 TO 127:REM ярюпьюъ вюярэ юдпеяю ярхпюмхъ FLESH
130 FOR M=0 TO 255:REM лкюдьюъ вюярэ юдпеяю ярхпюмхъ FLESH
140 OUT R1,(S):OUT R2,1:OUT R2,5:OUT R1,(M):OUT R2,0:
150 OUT R2,4:OUT R2,7:OUT R2,3:OUT R1,&HA0:OUT R2,7:OUT R2,4
160 FOR W=1 TO 23:NEXT W: REM гюдепфйю 10 лйя
170 OUT R1,&HFF:OUT R2,7:OUT R2,&HF:Z=INP (R1): OUT R2,4
180 IF Z=255 GOTO 210
190 PRINT "юдпея &H";:PRINT HEX$ (S);:PRINT " ";:PRINT HEX$ (M)
200  PRINT "дюммше б ъвеийе &H";:PRINT HEX$ (Z):STOP
210 NEXT M
220 NEXT S
230 OUT R2,4:OUT R1,0:OUT R2,1:OUT R2,5:OUT R2,0:нUT R2,4
240 GOTO 20
250 REM опнцпюллхпнбюмхе
260 N=30000:N1=N:REM мювюкэмши юдпея оюлърх пя
270 FOR S=0 TO 127:REM ярюпьюъ вюярэ юдпеяю гюохях бн FLESH
280 FOR M=0 TO 255:REM лкюдьюъ вюярэ юдпеяю гюохях бн FLESH
290 OUT R2,7:OUT R2,3:OUT R1,&H40:OUT R2,7:OUT R2,4:
300 OUT R1,(S):OUT R2,1:OUT R2,5:OUT R1,(M):OUT R2,0:OUT R2,4
310 P=PEEK (N1):OUT R2,7:OUT R2,3:OUT R1,(P):OUT R2,7:OUT R2,4:
320 FOR W=1 TO 23:NEXT W:REM гюдепфйю 10 лйя
330 OUT R2,7:OUT R2,3:OUT R1,&HC0:OUT R2,7:OUT R2,4
340 W=1 TO 23:NEXT W: REM гюдепфйю 10 лйя
350 OUT R1,&HFF:OUT R2,7:OUT R2,&HF:P1=INP (R1):OUT R2,4
360 IF P1=P GOTO 400
370 PRINT "юдпея &H";:PRINT HEX$ (S);:PRINT " ";:PRINT HEX$ (M)
380 PRINT "дюммше дкъ гюохях &H";:PRINT HEX$(P)
390 PRINT "дюммше б ъвеийе &H";:PRINT HEX$(P1):STOP
400 N1=N1+1
410 NEXT M
420 NEXT S
430 OUT R2,4:OUT R1,0:OUT R2,1:OUT R2,5:OUT R2,0:нUT R2,4
440 GOTO 20
450 REM времхе
460 A=30000:A1=A:REM мювюкэмши юдпея PC дкъ времхъ хг FLESH 32K
470 IF S=0 TO 127:REM ярюпьюъ вюярэ юдпеяю времхъ хг  FLESH
480 IF M=0 TO 255:REM лкюдьюъ вюярэ юдпеяю времхъ хг FLESH
490 OUT R1,(S):OUT R2,1:OUT R2,5:OUT R1,(M):OUT R2,0:OUT R2,4
500 OUT R1,&HFF:OUT R2,7:OUT R2,&HF:Z=INP (R1):OUT R2,4
510 POKE (A1),(Z)
520 A1=A1+1
530 NEXT M
540 NEXT S
550 OUT R2,4:OUT R1,0:OUT R2,1:OUT R2,5:OUT R2,0:нUT R2,4
560 GOTO 20
Hosted by uCoz