Уважаемые владельцы реальных БК-0010-01, выполните в Бейсике такую программку:
Код:
10 DATA &O010046,&O012700
20 DATA &O000520,&O010020
30 DATA &O016715,&O000004
40 DATA &O012600,&O000207
100 RESTORE
110 FOR I%=&O500 TO &O516 STEP 2
120 READ A%
130 POKE I%,A%
140 NEXT I%
150 DEF USR0=&O500
160 A%=USR0(0%)
170 PRINT OCT$(A%)
Хотелось бы узнать, какой результат получается - 520 или 522.
Сама программка:
Код:
000500: MOV R0,-(SP)
000502: MOV #520,R0
000506: MOV R0,(R0)+
000510: MOV 520,@R5
000514: MOV (SP)+,R0
000516: RETURN
000520: .BLKW 1