рЮАКХЖЮ 1

1 REM опнцпюллю дкъ Z80A
10 MEMORY 9000
20 CLS
30 PRINT "1 - ярхпюмхе"
40 PRINT "2 - опнцпюллхпнбюмхе"
50 PRINT "3 - времхе"
60 INPUT "ббедхре жхтпс ондопнцпюллш";L:ON  L GOTO 70, 200, 350
70 REM ярхпюмхе
80 OUT &F8F9,0:OUT &F8FB,0
90 OUT &F8F8,&20:OUT &F8F8,&20
100 FOR  W=1 TO 10:NEXT W:REM гюдепфйю 10 ля
110 FOR S=0 TO 127:REM ярюпьюъ вюярэ юдпеяю ярхпюмхъ FLESH
120 FOR M=0 TO 255:REM лкюдьюъ вюярэ юдпеяю ярхпюмхъ FLESH
130 OUT &F8F9,(S):OUT &F8FB,(M):OUT &F8F8,&A0:Z=INP (&F8F8)
140 IF Z=255 GOTO 170
150 PRINT "юдпея &";:PRINT HEX$ (S);:PRINT " ";:PRINT HEX$ (M)
160 PRINT "дюммше б ъвеийе &";:PRINT HEX$ (Z):STOP
170 NEXT M
180 NEXT S
190 OUT &F8F9,0:OUT &F8FB,0:GOTO 20
200 REM опнцпюллхпнбюмхе
210 N=10000:N1=N:REM мювюкэмши юдпея пя
220 FOR S=0 TO 127:REM ярюпьюъ вюярэ юдпеяю гюохях бн FLESH
230 FOR M=0 TO 255:REM лкюдьюъ вюярэ юдпеяю гюохях бн FLESH
240 OUT &F8F8,&40:OUT &F8F9,(S):OUT &F8FB,(M)
250 P=PEEK (N1):OUT &F8F8,(P)
260 OUT &F8F8,&C0:P1=INP (&F8F8):
270 IF P1=P GOTO 310
280 PRINT "юдпея &";:PRINT HEX$ (S);:PRINT " ";:PRINT HEX$ (M)
290 PRINT "дюммше дкъ гюохях &";:PRINT HEX$(P)
300 PRINT "дюммше б ъвеийе &";:PRINT HEX$(P1);:STOP
310 N1=N1+1
320 NEXT M
330 NEXT S
340 OUT &F8F9,0:OUT &F8FB,0:GOTO 20
350 REM времхе
360 A=10000:A1=A:REM мювюкэмши юдпея PC
370 IF S=0 TO 127:REM ярюпьюъ вюярэ юдпеяю времхъ хг  FLESH
380 IF M=0 TO 255:REM лкюдьюъ вюярэ юдпеяю времхъ хг FLESH
390 OUT &F8F9,(S):OUT &F8FB,(M)
400 Z=INP (&F8F8)
410 POKE (A1),(Z)
420 A1=A1+1
430 NEXT M
440 NEXT S
450 OUT &F8F9,0:OUT &F8FB,0:GOTO 20
Hosted by uCoz