Karoshi MSX Community
18 de Julio de 2018, 11:01:46 am *
Bienvenido(a), Visitante. Por favor, ingresa o regístrate.

Ingresar con nombre de usuario, contraseña y duración de la sesión
Noticias:
 
   Inicio   Ayuda Buscar Ingresar Registrarse  
Páginas: [1]
  Imprimir  
Autor Tema: Desactivar Disquetera o MSX-Disk Basic por Software  (Leído 900 veces)
0 Usuarios y 1 Visitante están viendo este tema.
manolito74
Karoshi Lover
***
Mensajes: 245


« : 15 de Diciembre de 2016, 09:58:46 pm »

Hola:

Todos sabemos que pulsando CTRL o SHIFT durante el arranque podemos desconectar la segunda disquetera o el MSX-DISK Basic respectivamente, pero.... ¿Se puede hacer esto mismo por Software ejecutando alguna instrucción, llamando a alguna Subrutina de la BIOS or something like that...?

Gracias & Saludetes. ;-)
En línea
manolito74
Karoshi Lover
***
Mensajes: 245


« Respuesta #1 : 12 de Abril de 2018, 04:48:48 pm »

Hola:

Aprovecho para autoresponderme a mí mismo y compartir la solución. Lo que yo planteo puede resolverse con este Listado BASIC:

Código:
100 ' CONTROL.BAS
110 '
120 ' Simula pulsaci¢n de la Tecla CTRL
130 ' para eliminar todas las Unidades
140 ' menos la primera (A:)
150 '
160 ' por Francis N. Ouinn  (Revista: CPU MSX - Num 20)
170 '
180 IF PEEK(&HFD9F)=&HC9 THEN END
190 IF PEEK(&HF347)=1 THEN END
200 FOR I=1 TO 1000: NEXT I
210 DP=256*PEEK(&HF356)+PEEK(&HF355)
220 IF PEEK(DP+16)=3 THEN FS=512
230 HI=&HE68D-FS
240 FC=&HE7A9-FS
250 E7=&HE7-(FS/256): E6=E7-1
260 BL=256*PEEK(&HF379)+PEEK(&HF378)
270 BS=PEEK(&HF348)
280 POKE &HFD9F,&HC9
290 FOR I=0 TO 24
300 POKE HI+I,PEEK(BL+I)
310 NEXT I
320 POKE &HF1AA,0
330 POKE &HF1BD,&HAA: POKE &HF1BE,E7
340 POKE &HF1C5,0: POKE &HF1C8,1
350 POKE FC,&HFF: POKE &HFB21,1
360 POKE &HF247,0: POKE &HF347,1
370 POKE &HF349,&HA9: POKE &HF34A,E7
380 POKE &HF34D,&HAA: POKE &HF34E,&HEF
390 POKE &HF34F,&HAA: POKE &HF350,&HED
400 POKE &HF351,&HAA: POKE &HF352,&HEB
410 POKE &HF353,&HA6: POKE &HF354,E6
420 POKE &HF356,&HF1
430 IF PEEK(&HFB2C)<>BS THEN 470
440 FOR I=0 TO 2
450 POKE &HFDA0+I, PEEK(&HFB2C+I)
460 NEXT I
470 CLEAR 200,HI: CLOSE
480 POKE &HFD9F,&HF7
490 '
500 POKE &HFD09,&HF7
510 POKE &HFD0A,PEEK(&HF348)
520 POKE &HFD0B,&H22: POKE &HFD0C,&H40
530 DEFUSR=&HFD09: X=USR(0)

Otra solución posible, sería usar un Programa que se llama "ONEDRIVE.COM"  que aquí se comenta:

https://www.msx.org/news/software/en/onedrive-10

Lamentablemente dicho enlace de Descarga ya no funciona. :-(

Os comparto aquí una imagen ".DSK" con el Programa Basic "Control.BAS" y el "ONEDRIVE.COM".

Gracias & Saludetes. ;-)



En línea
j4mk3
Karoshi Maniac
****
Mensajes: 376


MSx Powa!


WWW Email
« Respuesta #2 : 03 de Mayo de 2018, 04:14:20 pm »

Muchas gracias por compartirlo. Puede ser muy útil de cara a producciones en MSX2. Que a ver si me pongo un dia a ello.
En línea

---  G Fan  ---  Galious & Gradius  & G Boys   ---
--- Play HANS' ADVENTURE, STAN, THE DREAMER & BITLOGIC ---
Páginas: [1]
  Imprimir  
 
Ir a:  

Impulsado por MySQL Impulsado por PHP Powered by SMF 1.1.21 | SMF © 2013, Simple Machines XHTML 1.0 válido! CSS válido!