|
Título: Desactivar Disquetera o MSX-Disk Basic por Software Publicado por: manolito74 en 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. ;-) Título: Re:Desactivar Disquetera o MSX-Disk Basic por Software Publicado por: manolito74 en 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í (http://www.mediafire.com/file/2yffxr1ettxirf9/Desactivar-Disquetera_CTRL.dsk)una imagen ".DSK" con el Programa Basic "Control.BAS" y el "ONEDRIVE.COM". Gracias & Saludetes. ;-) Título: Re:Desactivar Disquetera o MSX-Disk Basic por Software Publicado por: j4mk3 en 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.
|