10 CLEAR 28900
20 REM ----- Change File Name
30 LET n$= "
bootm"
40 REM
50 REM ------ Load program n$
60 LET a=29000
70 LET c=9: GO SUB 160
80 FOR i=1 TO LEN (n$)
90 POKE a,CODE n$(i)
100 LET a=a+1
110 NEXT i
120 LET c=3: GO SUB 160
130 RANDOMIZE USR 29000
140 STOP
150 REM ----------------------------
160 FOR i=0 TO c
170 READ d
180 POKE a,d
190 LET a=a+1
200 NEXT i
210 RETURN
220 REM Code ASM
230 DATA 217,229,1,0,0,58,246,92,207,
139,0,255 ,217,201
(вместо 139 должно быть 205)
139,0,255 Похоже, что опечатка
139 dec =
8B hex
а
8B похожа на
CD т.е. CALL (при написании на бумажном носителе)
REM ASM
EXX
PUSH HL
LD BC, 0000#
LD A,(5CF6#)
RST 8
CALL FF00#
EXX
RET
[свернуть]