home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1996 February
/
PCWK0296.iso
/
sharewar
/
dos
/
program
/
tdsk22sr
/
tdsk.asm
< prev
Wrap
Assembly Source File
|
1995-05-13
|
156KB
|
3,465 lines
;┌───────────────────────────────────────────────────────────────────┐
;│ │
;│ ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▄ │
;│ ▀▀▒▒█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ │
;│ ▒▒█ ▒▒▄ ▒▒▄ ▒▒▒▒▄ ▒▒▒▒▄ ▒▒▄ ▒▒▒▒▄ ▒▒▒▒▒▒▄ ▒▒▄ ▒▒▄ │
;│ ▒▒█ ▒▒█ ▒▒█ ▒▒█▀▒▒▄ ▒▒█▀▒▒▄ ▒▒▄▀▒▒▄ ▒▒█▀▒▒▄ ▒▒█▀▀▀▀ ▒▒█ ▒▒█▀ │
;│ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒█▒▒█▀ │
;│ ▒▒█ ▒▒█ ▒▒█ ▒▒▒▒▄▀▀ ▒▒▒▒▄▀▀ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒▒▒▒▒▄ ▒▒▒▒█▀ │
;│ ▒▒█ ▒▒█ ▒▒█ ▒▒█▀▒▒▄ ▒▒█▀▒▒▄ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▀▀▀▒▒█ ▒▒█▒▒▄ │
;│ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒█ ▒▒▄ ▒▒█ ▒▒█ ▒▒▄ │
;│ ▒▒█ ▒▒▒▒▒▒▒▄ ▒▒█ ▒▒█ ▒▒▒▒▄▀▀ ▀▒▒▄▀▀ ▒▒▒▒▒█▀ ▒▒▒▒▒▒█ ▒▒█ ▒▒▄ │
;│ ▀▀ ▀▀▀▀▀▀▀ ▀▀ ▀▀ ▀▀▀▀ ▀▀ ▀▀▀▀▀ ▀▀▀▀▀▀ ▀▀ ▀▀ │
;│ │
;│ ░░▒▒▓▓██▓▓▒▒░░ Versión 2.2 ░░▒▒▓▓██▓▓▒▒░░ │
;│ │
;│ │
;│ CONTROLADOR DE DISCO VIRTUAL PARA SISTEMAS DOS Y WINDOWS 3 │
;│ │
;│ * * * Programa de Dominio Público * * * │
;│ │
;│ (C) 1992-1995 Ciriaco García de Celis. │
;│ Grupo Universitario de Informática. Facultad de Ciencias. │
;│ Apartado 6062 - Valladolid (España) │
;│ │
;│ Internet Email: ciri@gui.uva.es │
;│ FidoNet: 2:341/21.8 │
;│ │
;│ Mensajes en alemán cortesía de Axel Christoph Frinke │
;│ Internet Email: acfrinke@uni-bonn.de │
;│ │
;└───────────────────────────────────────────────────────────────────┘
; Aviso: Este programa contiene instrucciones exclusivas de los
; procesadores 386 y superiores. Debe ser ensamblado como
; fichero EXE, de la siguiente manera, para asegurar la
; compatibilidad con los procesadores 8086 y 286:
;
; - Con TASM 2.0:
; TASM tdsk /m3
; TLINK tdsk
;
; - Con MASM 6.0 (versiones anteriores de MASM generarían
; un disco virtual que requeriría un 386 o superior,
; además habría que mover las directivas que controlan
; el tipo de procesador y colocarlas con «peligro»):
;
; ML /Zm tdsk.asm
;
; o alternativamente:
;
; ML /c /Zm tdsk.asm
; TLINK tdsk
;
; La ventaja de TLINK frente a LINK es que el fichero
; ejecutable ocupa 2 Kbytes menos en disco (a la tabla
; ubicada al final del programa se le asigna memoria
; en la cabecera del fichero EXE y no ocupando disco).
;
; IMPORTANTE: Cualquier cambio realizado en el programa debe ser
; documentado, indicando claramente en el listado y
; en el fichero DOC quién lo ha realizado.
; ------------ Macros de propósito general
XPUSH MACRO regmem ; apilar lista de registros
IRP rm, <regmem>
PUSH rm
ENDM
ENDM
XPOP MACRO regmem ; desapilar lista de registros
IRP rm, <regmem>
POP rm
ENDM
ENDM
; ------------ Estructuras de datos
cab_PETICION STRUC ; parte inicial común a todos
tamano DB ? ; los comandos de la cabecera
unidad DB ? ; de petición
orden DB ?
estado DW ?
dos_info DB 8 DUP (?)
cab_PETICION ENDS
cab_INIT_BBPB STRUC ; para comandos INIT/BUILD_BPB
DB (TYPE cab_PETICION) DUP (?)
num_discos DB ? ; número de unidades definidas
fin_resid_desp DW ? ; área que quedará residente
fin_resid_segm DW ?
bpb_cmd_desp DW ? ; línea de órdenes del CONFIG
bpb_cmd_segm DW ? ; y puntero al BPB
nuevo_disco DB ? ; (DOS 3+) (0-A:, 1-B:,...)
cab_INIT_BBPB ENDS
cab_MEDIACHECK STRUC ; estructura para MEDIA CHECK
DB (TYPE cab_PETICION) DUP (?)
media_descrip DB ? ; descriptor de medio
cambio DB ? ; 1: no cambiado, 0FFh:sí, 0:?
cab_MEDIACHECK ENDS
cab_READ_WRITE STRUC
DB (TYPE cab_PETICION) DUP (?)
DB ? ; descriptor de medio
transfer_desp DW ? ; dirección de transferencia
transfer_segm DW ?
transfer_sect DW ? ; nº de sectores a transferir
transfer_sini DW ? ; primer sector a transferir
cab_READ_WRITE ENDS
; ************ Disco virtual: inicio del área residente.
_PRINCIPAL SEGMENT
ASSUME CS:_PRINCIPAL, DS:_PRINCIPAL
DD -1 ; encadenamiento con otros drivers
tipo_drive DW 0800h ; palabra de atributo:
; bit 15 a 0: dispositivo de bloques
; bit 14 a 0: sin control IOCTL
; bit 13 a 0: formato IBM
; bit 11 a 1: soportados Open/Close
; y Remove (DOS 3.0+)
DW estrategia ; rutina de estrategia
DW interrupcion ; rutina de interrupción
DB 1 ; número de unidades
; ------------ Variables y tablas de datos globales fijas. Estas
; variables no serán movidas de sitio en otras versiones
; de TURBODSK, con objeto de facilitar un control externo
; del disco virtual por parte de otros programas. Todo lo
; que está dentro del «área a actualizar» será copiado
; sobre el TURBODSK residente al redefinir el disco, para
; inicializar todas las variables precisas.
cs_tdsk DW ? ; Segmento de TDSK. Con QEMM-386, los drivers
; pueden ser relocalizados en memoria superior
; de tal manera que parte de la cabecera queda
; en memoria convencional, con el dispositivo
; completo en la memoria superior, en la que es
; ejecutado. Tras la instalación, QEMM copia en
; memoria convencional los primeros 18 bytes de
; la cabecera, entre los que está esta palabra,
; actualizándola. Pese a que la cadena de
; dispositivos del sistema pasa por la memoria
; convencional en este caso, esta variable nos
; permite conocer la dirección REAL en memoria
; superior (o en cualquier otra) de TURBODSK,
; que así es compatible con el LOADHI de QEMM.
id_tdsk DB "TDS22" ; esto es TURBODSK 2.2 y no otro
; controlador de dispositivo
num_ordenes DB 10h ; nº de órdenes soportadas
i_tdsk_ctrl EQU $ ; inicio del área a actualizar
tipo_soporte DB 0FFh ; 0: disco no formateado
; 1: se emplea memoria XMS 2.0+
; 2: " " " EMS 3.2+
; 3: " " " convencional
; 0FFh: aún no ejecutada INIT
cambiado DB ? ; al formatear el disco virtual se pone
; a 0FFh (para indicar cambio de disco)
mem_handle DW ? ; para memoria EMS/XMS; si se utiliza
; memoria convencional, apunta al
; segmento donde empieza el disco
tdsk_psp DW ? ; segmento del PSP residente si se
; utiliza memoria convencional
ems_pagina0 DW ? ; segmento de página EMS (si se emplea)
ems_paginai DW ? ; segmento alternativo
ems_pagni DB ? ; nº de página física alternativa
xms_driver LABEL DWORD ; dirección del controlador XMS, en el
xms_desp DW ? ; caso de emplear memoria XMS.
xms_segm DW ?
cpu386 DB OFF ; a ON si 386 ó superior
f_tdsk_ctrl EQU $ ; final del área a actualizar
letra_unidad DB ? ; letra ASCII del disco ('C', 'D',...)
bpb_ptr DW bpb ; puntero al BPB del disco
rutina_larga DB OFF ; a ON si reservado espacio en
; memoria para la larga rutina de
; gestión de memoria EMS.
; ------------ Variables internas de TURBODSK; su ubicación podría
; cambiar en futuras versiones del programa.
pcab_peticion LABEL DWORD ; puntero a la cabecera de petición
pcab_pet_desp DW 0
pcab_pet_segm DW 0
p_rutinas LABEL WORD ; tabla de rutinas del controlador
DW init
DW media_check
DW build_bpb
DW ioctl_input
DW read
DW read_nowait
DW input_status
DW input_flush
DW write
DW write_verify
DW output_status
DW output_flush
DW ioctl_output
DW open ; DOS 3.0+
DW close ; DOS 3.0+
DW remove ; DOS 3.0+
media EQU 0FAh ; byte descriptor de medio utilizado por
; TURBODSK. No es 0F8h como en los discos
; virtuales del sistema ya que TURBODSK
; no es un dispositivo fijo. Este byte no
; es empleado por los discos estándar del
; dos y al ser mayor de 0F7h no provoca
; mensajes extraños con antiguos CHKDSKs.
bpb LABEL BYTE ; Estos valores del BPB son arbitrarios:
bytes_sector DW 512 ; se inicializarán si se define el disco
sect_cluster DB 1 ; al instalar desde el CONFIG; en caso
sect_reserv DW 1 ; contrario, como son correctos, el DOS
num_fats DB 1 ; no tendrá problemas para realizar sus
entradas_raiz DW 128 ; cálculos internos iniciales al instalar
num_sect DW 128 ; el driver. En concreto, el tamaño de
media_byte DB media ; sector influye de manera directa en el
sectores_fat DW 4 ; tamaño de los buffers de disco del DOS.
fin_bpb EQU $
; ------------ Rutina de estrategia del disco virtual.
estrategia PROC FAR
MOV CS:pcab_pet_desp,BX
MOV CS:pcab_pet_segm,ES
RET
estrategia ENDP
; ------------ Rutina de interrupción del disco virtual. TURBODSK,
; al igual que RAMDRIVE o VDISK, no define una pila
; interna. Es responsabilidad del DOS que ésta tenga el
; tamaño adecuado (con el disco en memoria XMS, el
; controlador XMS puede requerir hasta 256 bytes de
; pila). TURBODSK no consume más de 64 bytes de pila en
; ningún momento, y sólo alrededor de 48 antes de llamar
; al controlador XMS cuando se emplea esta memoria.
interrupcion PROC FAR
XPUSH <AX,BX,CX,DX,SI,DI,BP,DS,ES>
LDS BX,CS:pcab_peticion
MOV AL,[BX].orden ; AL = orden
MOV AH,0 ; AX = orden
CMP AL,CS:num_ordenes
JB orden_ok ; orden soportada
MOV AL,3 ; " desconocida (IOCTL INPUT)
orden_ok: CMP CS:tipo_soporte,AH
JNE no_test_fmt ; tipo_soporte distinto de 0
MOV AX,8102h ; disco no formateado: error
JMP exit_interr
no_test_fmt: SHL AX,1 ; orden = orden * 2
MOV SI,AX
XPUSH <BX,DS>
XOR BP,BP
MOV AX,100h
CALL CS:[SI+OFFSET p_rutinas] ; ejecutar orden
XPOP <DS,BX>
AND AH,AH
JNS exit_interr ; no hubo error (bit 15 = 0)
CMP AL,3
JE exit_interr ; error de orden desconocida
MOV [BX].transfer_sect,0 ; otro: movidos 0 sectores
exit_interr: MOV [BX].estado,AX
XPOP <ES,DS,BP,DI,SI,DX,CX,BX,AX>
RET
interrupcion ENDP
; ------------ Las rutinas que controlan el dispositivo devuelven AX
; con la palabra de estado. Pueden cambiar todos los
; registros (de 16 bits), incluídos los de segmento. A la
; entrada, BP=0 y AX=100h.
media_check: MOV AL,CS:cambiado ; condición de «disco cambiado»
MOV CS:cambiado,AH ; de momento ya no cambiará más
MOV [BX].cambio,AL
read_nowait: ; conjunto de órdenes con
input_status: ; tratamiento idéntico
input_flush:
output_status:
output_flush:
ioctl_output:
open:
close:
retorno_ok: RET ; no hay error, ignorar orden
build_bpb: MOV [BX].bpb_cmd_desp,OFFSET bpb
MOV [BX].bpb_cmd_segm,CS
JMP retorno_ok
ioctl_input: MOV AX,8103h ; orden no soportada
RET
remove: MOV AH,3 ; fin de función, indicar
RET ; «controlador ocupado»
nueva_int19 PROC ; Interceptar reinicialización
.286
PUSHA
XPUSH <DS,ES> ; Esto es una interrupción
XOR AX,AX
MOV ES,AX
CMP AL,CS:tipo_soporte ; ¿Disco formateado?
JE no_lib ; no
MOV CS:tipo_soporte,AL ; sí: anularlo
CALL procesa_io ; CF=1: liberar memoria EMS/XMS
no_lib: LEA SI,ant19off
MOV DI,64h ; desplazamiento de INT 19h
PUSH CS
POP DS
CLI
MOVSW
MOVSW
XPOP <ES,DS>
POPA
DB 0EAh ; código de JMP FAR SEG:OFF
ant19off DW ?
ant19seg DW ?
.8086
nueva_int19 ENDP
read: INC BP ; indicar lectura (BP=1)
write: ; escritura (BP=0)
write_verify:
init_io PROC ; preparar registros E/S
LES DI,DWORD PTR [BX].transfer_desp ; * direc. ES:DI
LDS AX,DWORD PTR [BX].transfer_sect ; nº sectores AX
MOV BX,DS ; 1º sector ¡DS indefinido!
io_proc: MOV SI,CS:bytes_sector
ADD AX,BX
JNC io_ok? ; último sector < 65536
io_no_ok: MOV AX,8108h ; «sector no encontrado»
RET
io_ok?: CMP AX,CS:num_sect
JA io_no_ok ; sector final ¡fuera!
SUB AX,BX
MUL SI ; DX(CF):AX = tamaño bloque
RCR AX,1 ; CF:AX/2 -> AX = palabras
MOV CX,DI
NEG CX ; 10000h-CX: CF=1 si CX<>0
CMC ; CF:CX bytes hasta fin de
RCR CX,1 ; segmento = (10000h-DI)/2
CMP AX,CX
JAE io_cx_ok
MOV CX,AX ; * tamaño: CX palabras
io_cx_ok: JCXZ io_no_ok ; CX=0 si DI=0FFFFh (fatal)
MOV AX,BX ; sector inicial
MUL SI ; * desplazamiento en DX:AX
CLC ; ¡no reinicializando!
init_io ENDP
; ------------ Area residente dependiente del tipo de memoria empleada
; por el disco. La rutina instalada por defecto es la más
; larga de todas, para «dejar hueco» donde copiar encima
; las otras si se va a utilizar otro tipo de memoria. Si
; se modifican las rutinas, convendría medirlas por si
; acaso la de memoria EMS deja de ser la más larga...
procesa_io EQU $
; ---- La rutina de gestión de memoria EMS transfiere
; bloques de hasta 16Kb de una vez. Intenta mapear
; en la página física 0: si no puede, debido a un
; solapamiento con el buffer de transferencia del
; programa principal (si está también en memoria
; EMS), utiliza otra página alternativa que dista
; al menos 32 Kb absolutos de la 0. Para dilucidar
; si hay solapamiento, se compara la distancia
; entre direcciones origen y destino antes de la
; transferencia: si es mayor de 401h párrafos
; (16400 bytes, 16 para redondeo) no hay problema.
; Ante un solapamiento se procede a restaurar el
; contexto de las páginas mapeadas, antes y
; después de la transferencia, para poder acceder
; a la memoria expandida donde está el buffer del
; programa principal.
procesa_ems PROC
JNC no_emslib
MOV DH,45h ; sistema reinicializando:
CALL llama_EMM ; liberar memoria EMS
RET
no_emslib: MOV SI,DX ; preservar DX
MOV DH,47h
CALL llama_EMM ; DH=47h -> salvar contexto EMS
MOV DX,SI ; recuperar DX
MOV BX,4000h ; tamaño de página (16 Kb)
DIV BX ; AX = 1ª página EMS a mapear
MOV SI,DX ; offset relativo en 1ª página
procesa_pag: PUSH CX ; **
MOV BX,DI
MOV CL,4
SHR BX,CL ; bytes del offset -> párrafos
MOV CX,ES
ADD BX,CX ; AX = segmento de datos
MOV CX,CS:ems_pagina0
MOV DS,CX
XOR DL,DL ; intentar emplear página 0
SUB BX,CX
JNC rpos
NEG BX ; valor absoluto
rpos: CMP BX,401h ; distancia respecto página EMS
JAE no_conflicto ; más de 16 Kb: no solapamiento
CALL copia_contexto ; está CX apilado
MOV DS,CS:ems_paginai
MOV DL,CS:ems_pagni ; usar página alternativa
OR BP,8000h ; indicar su uso
no_conflicto: POP CX ; * pila totalmente equilibrada
MOV BX,AX
MOV DH,44h ; DL = 0 ó 2 (página física)
CALL llama_EMM ; DH = 44h -> mapear página EMS
XPUSH <CX,SI> ; ++
SUB SI,4000h
NEG SI ; SI = 4000h - SI: «resto»
SHR SI,1 ; bytes -> palabras
CMP CX,SI
JB cx_ok ; no ocupada toda la página
MOV CX,SI
cx_ok: POP SI ; + SI=desplazamiento relativo
CLD
POP BX ; + palabras restantes
SUB BX,CX ; descontar las que se moverán
PUSH BX ; * volver a apilar el viejo CX
CALL coloca_regs
CMP CS:cpu386,ON ; ¿386 o superior?
JNE trans_16bit
.386
PUSHAD
SHR CX,1 ; nº palabras de 32 bit a mover
JCXZ transferido ; evitar desgracia
XOR EAX,EAX ; asegurar no violación
DEC AX ; de segmento-64K
AND ECX,EAX ; EAX = 0FFFFh
AND ESI,EAX
AND EDI,EAX
REP MOVSD ; transferencia ultrarrápida
transferido: POPAD ; POPAD falla en muchos 386
.8086
NOP ; arreglar fallo de POPAD
ADD CX,CX
ADD DI,CX ; simular cambio normal de DI
ADD SI,CX ; y de SI
JMP fin_trans
trans_16bit: REP MOVSW ; mover palabras de 16 bit
fin_trans: CALL coloca_regs
AND BP,BP ; ¿se usó página alternativa?
JNS ahorra_ms
CALL copia_contexto ; está CX apilado
AND BP,1 ; de momento, no se usará más
ahorra_ms: POP CX ; **
JCXZ fin_leer ; no quedan más palabras
INC AX ; próxima página EMS
XOR SI,SI ; ahora desde inicio página EMS
JMP procesa_pag
fin_leer: MOV DH,48h
CALL llama_EMM ; DH=47h restaurar contexto EMS
MOV AX,100h ; no hubo problemas
RET
procesa_ems ENDP
; ---- ¡Cuidado!: esta rutina debe ser invocada siempre
; con la pila (SP) tal y como estaba al principio
; del procedimiento «procesa_ems», y utilizando
; siempre CALL, para que en el caso de que haya
; errores retorne correctamente al nivel anterior
; (nivel previo a «procesa_ems»). Se corrompe DX
; y, si hay error, AX también (devuelve 810Ch).
llama_EMM PROC
XPUSH <AX,BX,CX,BP>
MOV AX,DX ; función en AX
llama_denuevo: MOV DX,CS:mem_handle ; handle EMS
XPUSH <AX,BX>
INT 67h ; llamar al EMM
MOV CL,AH
XPOP <BX,AX>
AND CL,CL
JZ llama_ok ; además, ZF = 1
CMP CL,82h
JE llama_denuevo ; intentarlo hasta que funcione
llama_ok: XPOP <BP,CX,BX,AX>
JNE ret_atras
RET
ret_atras: POP AX ; sacar dirección de retorno
MOV AX,810Ch ; error de «anomalía general»
RET ; retornar dos niveles atrás
llama_EMM ENDP
; ---- ¡Cuidado!: esta rutina debe ser invocada siempre
; con CX (y sólo CX) apilado: recarga CX desde la
; pila y corrompe BX dejando aún en la pila CX.
copia_contexto PROC
XPOP <BX,CX> ; equilibrar pila a llama_EMM
MOV DH,48h
CALL llama_EMM ; restaurar contexto EMS
MOV DH,47h
CALL llama_EMM ; preservarlo de nuevo
PUSH CX
JMP BX ; más rápido que PUSH BX/RET
copia_contexto ENDP
coloca_regs PROC ; ¿invertir sentido?
TEST BP,1
JNZ colocados
XCHG SI,DI ; escritura: invertir sentido
XPUSH <DS,ES>
XPOP <DS,ES>
colocados: RET
coloca_regs ENDP
tam_proc_ems EQU $-OFFSET procesa_ems ; tamaño de esta rutina
; <<< Fin del código residente del disco virtual >>>
; ************ Instalación (invocada desde CONFIG.SYS).
init PROC
MOV CS:modo,CONFIG ; ejecutando desde CONFIG
CALL obtDosVer ; obtener versión del DOS
LEA AX,retorno_ok
MOV CS:p_rutinas,AX ; anular rutina INIT
INC CS:tipo_soporte ; 0: disco no formateado
MOV CS:cs_tdsk,CS ; inicializar esa variable
CMP CS:dosver,300h ; ¿DOS inferior al 3.0?
JAE dos_ok ; DOS 3.0+
AND CS:tipo_drive,0F7FFh ; ajustar atributos
MOV CS:num_ordenes,0Dh ; y número de órdenes
dos_ok: MOV SI,[BX].bpb_cmd_desp
MOV ES,[BX].bpb_cmd_segm ; ES:SI -> parámetros
MOV [BX].num_discos,1 ; una unidad de disco
LEA AX,bpb_ptr
MOV [BX].bpb_cmd_desp,AX
MOV [BX].bpb_cmd_segm,CS ; inicializado puntero BPB
CALL desvia_int19 ; controlar INT 19h
CALL inic_letra ; obtener letra de unidad
MOV BX,CS
MOV DS,BX ; DS: -> _PRINCIPAL
MOV BX,SI ; ES:BX -> parámetros
CALL salta_nombre ; buscar inicio parámetros
CALL procesar_param ; procesar parámetros
PUSH DS ;
POP ES ; ES: -> _PRINCIPAL
CMP param_h,ON
JE fin_instalar ; piden ayuda
CALL max_sector ; obtener mayor sector
MOV BX,param_tsect
CMP BX,AX ; ¿el nuestro es mayor?
JBE sect_def_ok ; no
MOV bytes_sector,BX ; sí: ajustar BPB
sect_def_ok: CALL errores_config
TEST lista_err,ERROR0+ERROR1
JNZ fin_instalar ; algún error importante
CMP param_tdisco,0 ; ¿se define disco ahora?
JE fin_instalar ; no: no hay más que hacer
CALL mem_info ; evaluar memoria del PC
CMP tdisco,0 ; ¿se reservará memoria?
JE fin_instalar ; no: no hay más que hacer
CALL mem_reserva ; reservar memoria
JC fin_instalar ; fallo al reservarla
CALL test_CPU ; detectar 386 ó superior
CALL adaptar_param ; adaptar parámetros disco
CALL preparar_BPB ; BPB del nuevo disco
CALL prep_driver ; preparar el driver
CALL formatear_tdsk ; inic. BOOT, FAT y ROOT
fin_instalar: CALL info_disco ; informar sobre el disco
CMP tipo_soporte,2
JE res_largo ; se utiliza memoria EMS
CMP param_a,ON
JE res_largo ; se indicó /A
CALL eval_xms
CALL eval_ems
CMP ems_kb,0
JE res_corto ; no hay memoria EMS
CMP xms_kb,0
JNE res_corto ; la hay, pero también XMS
res_largo: MOV AX,tam_proc_ems
MOV rutina_larga,ON ; dejar sitio a rutina EMS
JMP bytes_res_ok
res_corto: MOV AX,tam_proc_xms ; dejar sitio a XMS/conv.
MOV BX,tam_proc_con
CMP AX,BX
JAE bytes_res_ok
XCHG AX,BX
bytes_res_ok: LDS BX,CS:pcab_peticion
ADD AX,OFFSET procesa_io
MOV [BX].fin_resid_desp,AX ; reservar memoria para
MOV [BX].fin_resid_segm,CS ; las rutinas a usar
MOV AX,100h ; instalación siempre Ok.
RET
init ENDP
; ------------ Redefinición (invocada desde el AUTOEXEC.BAT o el DOS).
main PROC FAR
MOV CS:modo,AUTOEXEC ; ejecutando desde el DOS
CALL obtDosVer ; obtener versión del DOS
CALL gestionar_ram ; gestión de memoria
MOV AX,_PRINCIPAL ; programa de un segmento
MOV DS,AX ; DS: -> _PRINCIPAL
MOV BX,81h ; ES:BX línea de órdenes
CALL procesar_param ; procesar parámetros
CMP param_h,ON
JE exit_instalar ; piden ayuda
PUSH DS
POP ES ; ES: --> _PRINCIPAL
CALL errores_Dos
TEST err_grave,0FFFFh
JNZ exit_instalar ; algún error grave
MOV ES,segm_tdsk ; ES: --> disco residente
CMP param_a,ON
JNE cabria_ems
CMP ES:rutina_larga,ON
JE cabria_ems ; cabe la rutina EMS
OR lista_err,ERROR2
cabria_ems: TEST lista_err,ERROR0+ERROR2 ; ¿error sintaxis ó EMS?
JNZ exit_instalar ; sí: no modificar disco
CMP param_tdiscof,ON
JNE exit_instalar ; no indicado nuevo tamaño
CMP ES:tipo_soporte,0
JE cont_instalar ; no estaba formateado aún
CALL desinstala ; liberar memoria ocupada
cont_instalar: CALL mem_info ; evaluar memoria del PC
CMP tdisco,0 ; ¿se reservará memoria?
JE exit_instalar ; no: no hay más que hacer
CALL mem_reserva ; reservar memoria
JC exit_instalar ; fallo reservando memoria
CALL test_CPU ; detectar 386 ó superior
CALL adaptar_param ; adaptar parámetros disco
CALL preparar_BPB ; BPB del nuevo disco
CALL relocalizar ; autoreubicación de TDSK
CALL prep_driver ; preparar el driver
CALL formatear_tdsk ; BOOT, FAT y ROOT
exit_instalar: CALL info_disco ; informar sobre el disco
CMP tipo_soporte,3 ; ¿memoria convencional?
JNE fin_no_res ; no usada
CALL renombrar_mcb ; cambiar nombre del MCB
MOV DX,6 ; usada: 96 bytes de PSP
MOV AX,3100h
INT 21h ; terminar residente
fin_no_res: CALL set_errorlevel ; preparar ERRORLEVEL
MOV AH,4Ch
INT 21h ; final normal
main ENDP
; ------------ Inicializar la variable con la versión del DOS
obtDosVer PROC
XPUSH <AX,BX,CX,DX>
MOV AH,30h
INT 21h
XCHG AH,AL
MOV CS:dosver,AX
XPOP <DX,CX,BX,AX>
RET
obtDosVer ENDP
; ------------ Determinar segmento del PSP, último segmento de memoria
; y liberar espacio de entorno. Se modifica también el
; bloque de memoria de TDSK reduciéndolo a 96 bytes: esto
; provoca la creación de un bloque de control de memoria
; en el offset 96 del PSP, lo cual no es peligroso. El
; objetivo de esta maniobra es poder asignar memoria al
; disco después (sólo si hace falta memoria convencional)
; usando los servicios estándar del DOS.
gestionar_ram PROC
MOV CS:segm_psp,DS ; indicar segmento del PSP
MOV AX,DS:[2] ; segmento más alto
MOV CS:top_ram,AX ; indicar tope de memoria
PUSH ES
MOV ES,DS:[2Ch] ; segmento del entorno
MOV AH,49h
INT 21h ; liberar área de entorno
POP ES ; ES: -> PSP
MOV BX,6
MOV AH,4Ah ; hacer creer al DOS que
INT 21h ; TDSK ocupa sólo 96 bytes
RET
gestionar_ram ENDP
; ------------ Leer los parámetros de la línea de comandos (ES:BX).
; Se inicializan las correspondientes variables. En caso
; de error, se dejan a cero las variables y se acumula en
; «lista_err» un ERROR0 (error de sintaxis).
procesar_param PROC
CALL busca_param ; saltar delimitadores
JC fin_param ; no hay más parámetros
CALL param_barra ; gestionar parámetro tipo "/A"
JC procesar_param ; era parámetro tipo "/A"
MOV param_tdisco,AX ; es numérico: tamaño del disco
MOV param_tdiscof,ON ; parámetro de tamaño indicado
p_param2: CALL busca_param
JC fin_param
CALL param_barra
JC p_param2
MOV param_tsect,AX ; tamaño de sector
p_param3: CALL busca_param
JC fin_param
CALL param_barra
JC p_param3
MOV param_tdir,AX ; entradas al directorio
p_param4: CALL busca_param
JC fin_param
CALL param_barra
JC p_param4
MOV param_tcluster,AX ; tamaño de cluster
p_param5: CALL busca_param
JC fin_param
CALL param_barra ; últimas opciones posibles
JC p_param5
fin_param: CALL validacion ; validación de parámetros
RET
procesar_param ENDP
param_barra PROC
CMP AX,"e/" ; ¿indicado /E?
JNE p_exp1?
MOV param_e,ON
JMP p_barra_exit
p_exp1?: CMP AX,"a/" ; ¿indicado /A?
JNE p_exp2?
p_exp: MOV param_a,ON
JMP p_barra_exit
p_exp2?: CMP AX,"x/" ; /A y /X son equivalentes
JE p_exp
CMP AX,"c/" ; ¿indicado /C?
JNE p_ayuda?
MOV param_c,ON
JMP p_barra_exit
p_ayuda?: CMP AX,"h/" ; ¿indicado /H?
JNE p_exit?
p_ayuda: MOV param_h,ON
JMP p_barra_exit
p_exit?: CMP AX,"?/" ; /H y /? son equivalentes
JE p_ayuda
CMP AX,"m/" ; ¿indicado /M?
JNE param_id?
MOV param_m,ON
JMP p_barra_exit
param_id?: CMP AX,"i/" ; ¿indicado /I= o /I:?
JNE param_fats?
ADD BX,3
CMP BYTE PTR ES:[BX-1],'='
JE p_id_ok
CMP BYTE PTR ES:[BX-1],':'
JNE param_b_mal
p_id_ok: CALL obt_num ; leer código telefónico
MOV param_i,ON
MOV codigo_tfno,AX
SUB BX,2
JMP p_barra_exit
param_fats?: CMP AX,"f/" ; ¿indicado /F= o /F:?
JNE param_unidad?
ADD BX,3
CMP BYTE PTR ES:[BX-1],'='
JE p_f_ok
CMP BYTE PTR ES:[BX-1],':'
JNE param_b_mal
p_f_ok: CALL obt_num ; leer número de FATs
MOV param_f,AX
SUB BX,2
JMP p_barra_exit
param_unidad?: CMP AH,':' ; ¿parámetro de unidad?
JNE param_num?
AND AL,255-32 ; poner en mayúsculas
MOV param_unidad,AL
JMP p_barra_exit
param_num?: CMP AL,'/'
JNE param_num ; puede ser número
param_b_mal: OR lista_err,ERROR0
param_num: CALL obt_num ; es parámetro numérico: leerlo
CLC ; no es parámetro barrado
RET
p_barra_exit: ADD BX,2 ; saltar este parámetro
STC ; es parámetro barrado
RET
param_barra ENDP
validacion PROC
MOV AX,0FFFFh
CMP AX,param_tdisco ; ¿números correctos?
JE sintax_err
CMP AX,param_tsect
JE sintax_err
CMP AX,param_tdir
JE sintax_err
CMP AX,param_tcluster
JE sintax_err
CMP param_tdisco,0
JE valida_tsect ; no indicado tamaño (o 0)
CMP param_tdisco,8
JB sintax_err
CMP param_tdisco,65534
JA sintax_err
valida_tsect: MOV AX,param_tsect
CMP AX,0
JE valida_tclus ; no indicado tamaño de sector
CMP AX,32
JE valida_tclus
CMP AX,64
JE valida_tclus
CMP AX,128
JE valida_tclus
CMP AX,256
JE valida_tclus
CMP AX,512
JE valida_tclus
CMP AX,1024
JE valida_tclus
CMP AX,2048
JNE sintax_err
valida_tclus: CMP param_tcluster,256
JAE sintax_err ; debe estar entre 0..255
CMP param_f,1
JB pf_a1 ; /F=1 ó /F=2 exclusivamente
CMP param_f,2 ; si no, forzarlo y perdonar
JBE fin_validar
MOV param_f,2
JMP fin_validar
pf_a1: MOV param_f,1
JMP fin_validar
sintax_err: MOV param_tdiscof,OFF ; no definir disco ahora
XOR AX,AX
MOV param_tdisco,AX
MOV param_tsect,AX
MOV param_tdir,AX
MOV param_tcluster,AX
OR lista_err,ERROR0 ; aviso de error de sintaxis
fin_validar: RET
validacion ENDP
salta_nombre PROC ; saltar nombre del driver en
MOV AL,ES:[BX] ; línea de órdenes del CONFIG
INC BX
CMP AL,' '
JE fin_nombre
CMP AL,9
JE fin_nombre
CMP AL,0Dh
JE fin_nombre
CMP AL,0Ah
JE fin_nombre
AND AL,AL
JZ fin_nombre ; necesario para DOS 2.x
JMP salta_nombre
fin_nombre: DEC BX
RET
salta_nombre ENDP
busca_param PROC ; saltar delimitadores
DEC BX
p_delimit: INC BX
MOV AX,ES:[BX]
CMP AL,' '
JE p_delimit ; espacio en blanco
CMP AL,9
JE p_delimit ; tabulador
CMP AL,13
JE p_final ; CR ó LF indican el final
CMP AL,10
JE p_final
OR AX," " ; poner en minúsculas
CLC
RET
p_final: STC ; se acabaron los parámetros
RET
busca_param ENDP
obt_num PROC ; leer número: devolver 65535
XPUSH <CX,DX,SI> ; si hay error
XOR AX,AX ; número en proceso de creación
otro_digito: MOV CL,ES:[BX]
CMP CL,'0'
JB no_digito
CMP CL,'9'
JBE digito_ok
no_digito: CMP CL,' ' ; posibles delimitadores...
JE fin_num
CMP CL,9
JE fin_num
CMP CL,13
JE fin_num
CMP CL,10
JE fin_num
CMP CL,'/'
JE fin_num
JMP num_incorr
digito_ok: XOR DX,DX
MOV SI,10
MUL SI ; AX = AX * 10
JC num_incorr
XOR CH,CH
SUB CL,'0'
ADD AX,CX ; AX = AX + dato
JC num_incorr
INC BX
JMP otro_digito
num_incorr: MOV AX,65535 ; indicar valor incorrecto
fin_num: XPOP <SI,DX,CX>
RET
obt_num ENDP
; ------------ Detectar errores que se pueden producir sólo en la
; línea de comandos.
errores_Dos PROC
PUSH ES
CMP dosver,200h ; necesario DOS 2.x+
JAE existe_tdsk?
OR err_grave,ERROR0 ; error de DOS incorrecto
JMP fin_err_Dos
existe_tdsk?: CALL reside_tdsk? ; ¿instalado TURBODSK?
CMP segm_tdsk,0
JNE busca_unidad ; ya instalado
OR err_grave,ERROR1 ; error: TURBODSK no instalado
JMP fin_err_Dos
busca_unidad: MOV ES,segm_tdsk ; ES: -> disco virtual
CMP param_unidad,0
JE disco_defecto ; no se indicó letra de unidad
CALL obtener_segm ; segmento del TDSK indicado
JC fin_err_Dos ; fallo (no es unidad TDSK)
disco_defecto: CALL max_sector ; obtener mayor sector
MOV BX,param_tsect
CMP BX,AX
JBE fin_err_Dos ; tamaño de sector correcto
OR lista_err,ERROR3 ; el tamaño no definible ahora
MOV param_tsect,0 ; ignorar tamaño indicado
fin_err_Dos: CALL test32Mb
CALL testWin
POP ES
RET
errores_Dos ENDP
; ------------ Detectar errores que se pueden producir sólo desde
; el CONFIG.SYS
errores_config PROC
CMP param_unidad,0
JE no_unidad
OR lista_err,ERROR1
no_unidad: CMP param_c,ON
JNE fin_err_con
OR lista_err,ERROR1
fin_err_con: CALL test32Mb
RET
errores_config ENDP
; ------------ Preparar valor de ERRORLEVEL para el retorno.
set_errorlevel PROC
MOV AL,255
TEST err_grave,ERROR1 ; ¿TDSK no instalado?
JNZ fin_cod_ok
DEC AL
TEST err_grave,ERROR2 ; ¿unidad incorrecta?
JNZ fin_cod_ok
DEC AL
TEST err_grave,ERROR3 ; ¿dentro de Windows?
JNZ fin_cod_ok
DEC AL
TEST lista_err,ERROR0 ; error de sintaxis
JNZ fin_cod_ok
CMP param_h,ON ; ayuda: handle desconocido
JE fin_cod_ok
MOV AL,BYTE PTR ES:mem_handle ; handle XMS/EMS
CMP ES:tipo_soporte,0
JNE fin_cod_ok
MOV AL,0 ; disco no formateado
fin_cod_ok: RET
set_errorlevel ENDP
; ------------ Obtener mayor tamaño de sector definido en el sistema.
max_sector PROC
XPUSH <BX,ES>
MOV AH,52h
INT 21h ; Get List of Lists
ADD BX,10h
CMP CS:dosver,30Ah
JAE psect_ok
INC BX ; DOS anterior al 3.1
psect_ok: MOV AX,ES:[BX] ; mayor tamaño de sector
XPOP <ES,BX> ; definido por cualquier disp.
RET
max_sector ENDP
; ------------ Si el disco es de más de 32 Mb, comprobar si el sector
; es de al menos 1024 bytes.
test32Mb PROC
CMP param_tdisco,32768
JBE fin32mb
CMP param_tsect,1024
JAE fin32mb
OR lista_err,ERROR15 ; sector de menos de 1024
MOV param_tdisco,32768 ; evitar fallo posterior
fin32mb: RET
test32Mb ENDP
; ------------ Desde Windows, no se permite redefinir el disco.
testWin PROC
CMP param_tdiscof,ON
JNE fin_testWin ; no redefinido el disco
CMP dosver,300h
JB fin_testWin ; no buscar Windows en DOS 2.x
MOV AX,1600h
INT 2Fh
AND AL,AL ; ¿Windows en modo extendido?
JZ noWinEnh
CMP AL,80h ; ¿Windows en modo extendido?
JE noWinEnh
siWin: OR err_grave,ERROR3 ; estamos dentro de Windows
JMP fin_testWin
noWinEnh: MOV AX,4680h
INT 2Fh
AND AX,AX
JZ siWin ; Windows en modo real/estándar
fin_testWin: RET
testWin ENDP
; ------------ Verificar la presencia en memoria de TURBODSK. Se
; inicializa «segm_tdsk» y «letra_unidad» indicando dónde
; reside el primer dispositivo TURBODSK de todos los que
; puede haber instalados. La letra de la unidad se halla
; del propio TDSK residente, para evitar conflictos con
; programas que manipulan ilegalmente la lista de
; unidades, del tipo de Stacker o Smartdrive.
reside_tdsk? PROC
XPUSH <AX, SI>
CALL lista_discos
LEA SI,area_trabajo-4
busca_final: ADD SI,4
CMP WORD PTR [SI],0
JNE busca_final ; ir al final de la tabla
busca_tdsk: SUB SI,4
CMP SI,OFFSET area_trabajo
JB fin_busca ; no reside (segm_tdsk = 0)
CMP BYTE PTR [SI+3],1
JNE busca_tdsk
MOV AX,[SI] ; encontrada unidad TURBODSK
MOV segm_tdsk,AX
PUSH DS
MOV DS,AX
MOV AL,letra_unidad ; con esta letra de unidad
POP DS
MOV letra_unidad,AL
fin_busca: XPOP <SI, AX>
RET
reside_tdsk? ENDP
; ------------ Obtener el segmento de la unidad TURBODSK indicada, si
; existe, accediendo a una tabla de dispositivos que se
; crea. A la salida, CF=1 si esa unidad no es TURBODSK.
obtener_segm PROC
CALL lista_discos
LEA SI,area_trabajo-4
busca_ultimo: ADD SI,4
CMP WORD PTR [SI],0
JNE busca_ultimo ; realmente, el primero
recorre_dsks: SUB SI,4
CMP SI,OFFSET area_trabajo
JB tdsk_no_hay
CMP BYTE PTR [SI+3],1
JNE recorre_dsks
PUSH DS
MOV DS,[SI]
MOV AL,letra_unidad ; unidad del TDSK residente
POP DS
CMP AL,param_unidad ; disco TDSK: ¿es el buscado?
JNE recorre_dsks
MOV letra_unidad,AL ; inicializar letra de unidad
MOV AX,[SI]
MOV segm_tdsk,AX ; inicializar segmento
MOV ES,AX
CLC
RET
tdsk_no_hay: OR err_grave,ERROR2 ; unidad indicada no es TDSK
STC
RET
obtener_segm ENDP
; ------------ Colocar nuevo gestor de INT 19h al instalar TDSK desde
; el CONFIG.SYS. En algunos entornos multitarea basados
; en el modo virtual-86 del 386 y superiores, si no se
; libera la memoria EMS/XMS tras una cancelación de la
; tarea virtual, ésta queda permanentemente ocupada hasta
; un reset «frío» del sistema, sin poder ser aprovechada
; por los demás procesos. La INT 19h se ejecuta cuando la
; tarea en curso va a ser inminentemente cancelada por el
; sistema, y TURBODSK la intercepta para poder liberar la
; memoria EMS/XMS en el último instante. La rutina que
; controla INT 19h contiene código de 286, por lo que se
; chequea la presencia de este procesador.
desvia_int19 PROC
XPUSH <BX,DS,ES>
MOV BX,CS
MOV DS,BX
CALL test_CPU
CMP cpu286,ON
JNE fin_desvia19 ; no es 286 ó superior
MOV AX,3519h
INT 21h ; ES:BX anterior INT 19h
MOV ant19off,BX
MOV ant19seg,ES
LEA DX,nueva_int19
MOV AX,2519h
INT 21h ; nueva rutina de control
fin_desvia19: XPOP <ES,DS,BX>
RET
desvia_int19 ENDP
; ------------ Obtener la letra de la unidad de disco definida. Esta
; rutina se invoca sólo desde CONFIG.SYS con DS:BX
; apuntando a la cabecera de petición de la orden INIT.
inic_letra PROC
XPUSH <AX,BX,SI,DS>
MOV AL,[BX].nuevo_disco ; unidad en DOS 3.0+
ADD AL,'A'
PUSH CS
POP DS ; DS -> _PRINCIPAL
CMP dosver,300h
JAE letra_ok
CALL lista_discos ; hallar unidad en DOS 2.x
LEA SI,area_trabajo
XOR AL,AL ; cuenta de discos
cuenta_discos: ADD AL,[SI+2]
ADD SI,4
CMP WORD PTR [SI],0
JNE cuenta_discos
ADD AL,'A'
letra_ok: MOV letra_unidad,AL ; guardar letra de unidad
XPOP <DS,SI,BX,AX>
RET
inic_letra ENDP
; ------------ Crear una lista de todos los dispositivos de bloque
; del sistema. La lista tiene una entrada de 4 bytes
; para cada dispositivo: los dos primeros indican el
; segmento en que reside, el siguiente el número de
; unidades que controla y el último vale 1 ó 0 para
; indicar si es una unidad TDSK o no. El final de la
; lista lo señaliza un segmento igual a 0.
lista_discos PROC
XPUSH <AX,BX,CX,DX,SI,DI,ES>
MOV AH,52h ; "Get list of lists"
INT 21h ; obtener puntero en ES:BX
MOV CX,17h ; supuesto DOS 2.x
CMP dosver,300h
JB pdisp_ok
MOV CX,28h ; supuesto DOS 3.0x
CMP dosver,30Ah
JB pdisp_ok
MOV CX,22h ; versiones del DOS superiores
pdisp_ok: ADD BX,CX
LEA DI,area_trabajo-4 ; tabla de dispositivos-4
disp_otro: ADD DI,4
disp_skip: LES BX,ES:[BX] ; siguiente dispositivo
CMP BX,-1
JE disp_fin
TEST BYTE PTR ES:[BX+5],80h
JNZ disp_skip ; es dispositivo de caracteres
MOV CL,ES:[BX+10] ; es de bloques
MOV [DI],ES ; anotar dirección
MOV [DI+2],CL
MOV BYTE PTR [DI+3],0 ; de momento, no es TDSK
PUSH DI
LEA SI,id_tdsk ; identificación de TURBODSK
MOV DI,SI
MOV CX,5
CLD
REP CMPSB ; ¿es TURBODSK?
POP DI
JNE disp_otro ; es de bloques, pero no TDSK
MOV AX,ES:cs_tdsk ; segmento real de TDSK
MOV [DI],AX ; corregir dirección en tabla
INC BYTE PTR [DI+3] ; indicar dispositivo TDSK
JMP disp_otro ; buscar hasta completar tabla
disp_fin: MOV WORD PTR [DI],0 ; final de la lista
XPOP <ES,DI,SI,DX,CX,BX,AX>
RET
lista_discos ENDP
; ------------ Liberar la memoria ocupada por un TURBODSK residente.
desinstala PROC
MOV DX,ES:mem_handle
MOV AL,ES:tipo_soporte
DEC AL
JZ libera_ext ; liberar memoria extendida
DEC AL
JZ libera_exp ; liberar memoria expandida
PUSH ES
MOV ES,DX
MOV AH,49h ; liberar memoria convencional:
INT 21h
POP ES
PUSH ES
PUSHF ; condición de error
MOV ES,ES:tdsk_psp ; liberar PSP residente
MOV AH,49h
INT 21h
PUSHF
CMP dosver,31Eh
JA mcb_ok ; DOS 3.31+: el MCB es correcto
MOV AX,ES
DEC AX
MOV ES,AX
MOV DI,8
MOV CX,DI
CLD
MOV AL,' '
REP STOSB ; hasta DOS 3.30 borrar nombre
mcb_ok: POPF
JNC lib_con_ok? ; liberado correctamente
POPF
POP ES
STC ; ha habido fallo
JMP desinstalado
lib_con_ok?: POPF ; recuperar condición de error
POP ES
JMP desinstalado
libera_ext: MOV AH,0Ah
CALL ES:xms_driver
CMP AX,1
JE desinstalado ; éxito al liberar memoria XMS
STC
JMP desinstalado ; fallo
libera_exp: MOV AH,45h
INT 67h
CMP AH,0
JE desinstalado
CMP AH,82h ; ¿EMM ocupado?
JE libera_exp
STC ; fallo al liberar memoria EMS
desinstalado: MOV ES:tipo_soporte,0 ; disco «no formateado»
JNC desins_ok
OR lista_err,ERROR14 ; fallo al liberar memoria
STC
desins_ok: RET
desinstala ENDP
; ------------ Determinar la configuración del sistema: tipos de
; memoria y cantidad de la misma. Se indica en «tdisco»
; un valor 0 si no se define ahora el disco, sea cual sea
; el motivo del fallo, y se actualiza la variable que
; indica los mensajes de error y advertencia a imprimir.
mem_info PROC
MOV tdisco,0 ; ley de Murphy
CALL eval_xms ; inicializar «xms_kb»
CALL eval_ems ; inicializar «ems_kb»
CALL eval_con ; inicializar «con_kb»
MOV AX,param_tdisco ; cantidad de memoria necesaria
CMP param_a,ON
JNE no_ems ; no solicitan memoria EMS
MOV BX,ems_kb ; solicitan memoria EMS...
AND BX,BX
JNZ usara_ems
OR lista_err,ERROR7 ; no hay memoria EMS disponible
JMP mem_infoado
usara_ems: CMP AX,BX
JBE usar_ems ; piden algo razonable
MOV AX,BX
OR lista_err,ERROR4 ; rebajado el tamaño
usar_ems: MOV tdisco,AX
MOV tipo_soporte,2 ; indicar memoria expandida
JMP mem_infoado
no_ems: CMP param_e,ON
JNE no_xms ; no solicitan memoria XMS
MOV BX,xms_kb ; solicitan memoria XMS...
AND BX,BX
JNZ usara_xms
OR lista_err,ERROR6 ; no hay memoria XMS disponible
JMP mem_infoado
usara_xms: CMP AX,BX
JBE usar_xms ; piden algo razonable
MOV AX,BX
OR lista_err,ERROR4 ; rebajado el tamaño
usar_xms: MOV tdisco,AX
MOV tipo_soporte,1 ; indicar memoria extendida
JMP mem_infoado
no_xms: CMP param_c,ON
JNE no_con ; no solicitan memoria conv.
forzar_con: MOV BX,con_kb ; solicitan memoria conv. ...
AND BX,BX
JNZ usara_con
OR lista_err,ERROR10 ; no hay memoria conv. libre
JMP mem_infoado
usara_con: CMP AX,BX
JBE usar_con ; piden algo razonable
MOV AX,BX
OR lista_err,ERROR4 ; rebajado el tamaño
usar_con: MOV tdisco,AX
MOV tipo_soporte,3 ; indicar memoria convencional
JMP mem_infoado
no_con: CMP AX,xms_kb ; no indicado tipo de memoria
JBE usar_xms ; intentar emplear memoria XMS
CMP ES:rutina_larga,ON
JE valdria_ems
MOV BX,xms_kb
CMP BX,0 ; imposible usar EMS
JNE usara_xms ; queda algo de XMS
JMP usar_con?
valdria_ems: MOV BX,ems_kb
CMP AX,BX
JA nv_ems
JMP usar_ems ; emplear memoria EMS
nv_ems: MOV BX,ems_kb
OR BX,xms_kb
JZ usar_con? ; no hay un ápice de XMS ni EMS
OR lista_err,ERROR4 ; rebajado el tamaño solicitado
MOV AX,xms_kb
CMP AX,ems_kb
JAE usar_xms ; hay más o igual XMS que EMS
MOV AX,ems_kb
JMP usar_ems ; hay algo de EMS (más que XMS)
usar_con?: CMP modo,AUTOEXEC
JE forzar_con ; sólo se puede usar mem. conv.
OR lista_err,ERROR5 ; ho hay memoria EMS ni XMS
mem_infoado: RET
mem_info ENDP
; ---- Calcular memoria extendida disponible
eval_xms PROC
PUSH ES
MOV AX,352Fh
INT 21h ; dirección de INT 2Fh en ES:BX
MOV AX,ES
AND AX,AX
JZ xms_ok ; apunta a 0000:XXXX (DOS 2.x)
MOV AX,4300h
INT 2Fh
CMP AL,80h ; ¿hay controlador XMS?
JNE xms_ok
MOV AX,4310h ; obtener su dirección
INT 2Fh
MOV xms_segm,ES
MOV xms_desp,BX
MOV AH,8
CALL xms_driver ; preguntar memoria libre
AND AX,AX
JNZ xms_kb_ok ; no hubo fallo
CMP BL,0A0h
JE xms_kb_ok ; asignada ya toda la memoria
TEST BL,80h
JZ xms_kb_ok ; no hay memoria XMS disponible
OR lista_err,ERROR8 ; fallo real del controlador
xms_kb_ok: CMP AX,8 ; mayor bloque XMS disponible
JB xms_ok
MOV xms_kb,AX ; mínimo necesario: 8 Kb
xms_ok: POP ES
RET
eval_xms ENDP
; ---- Calcular memoria expandida disponible. Si la
; versión del EMM es 4.0 o superior, las páginas
; de memoria expandida pueden no ser contiguas:
; buscar una que diste 32 Kb de la página 0.
eval_ems PROC
PUSH ES
MOV AX,3567h
INT 21h ; vector de INT 67h en ES:BX
MOV DI,10
LEA SI,emm_id
MOV CX,8
CLD
REP CMPSB ; ¿instalado controlador EMS?
JE ems_existe
JMP ems_ok
ems_existe: MOV CX,8000h ; nº de intentos prudente
emm_llama: MOV AH,40h
INT 67h
AND AH,AH
JZ emm_responde
CMP AH,82h
LOOPE emm_llama
emm_fatal: OR lista_err,ERROR9 ; fallo del EMM
JMP ems_ok
emm_responde: MOV AH,41h
INT 67h
AND AH,AH
JZ emm_pag_ok
CMP AH,82h
JE emm_responde ; reintentar (EMM ocupado)
JMP emm_fatal
emm_pag_ok: MOV ems_pagina0,BX ; inicializar página EMS
ADD BX,0C00h
MOV ems_paginai,BX
MOV ems_pagni,3 ; página alternativa: la 3
MOV AH,46h
INT 67h ; obtener versión del EMM
CMP AL,40h
JB emm_obt_kb ; versión anterior a la 4.0
MOV ems4,ON
emm_obt_pag: XPUSH <ES,DS>
POP ES
MOV AX,5800h ; obtener dirección de páginas
LEA DI,area_trabajo
INT 67h
POP ES
AND AH,AH
JZ emm_pags_ok
CMP AH,82h
JE emm_obt_pag
JMP emm_fatal
emm_pags_ok: XOR DX,DX
CALL emm_busca_pag ; buscar página 0
JC emm_fatal
MOV ems_pagina0,BX
ems_busca_i: INC DX ; buscar la siguiente
CMP DX,5 ; la 5ª y siguientes no valen
JE emm_fatal ; ├──────┤
CALL emm_busca_pag ; │ │
JC emm_fatal ; ┌> ┌>├──────┤<-- pág i
MOV ems_paginai,BX ;0C00h│ 32 │ │ │
MOV ems_pagni,DL ; pá │ Kb │ ├──────┤
SUB BX,ems_pagina0 ; rra │ │ │ │
JNC bxpositivo ; fos │ └>├──────┤
NEG BX ; │ │ │
bxpositivo: CMP BX,0C00h ; └> ├──────┤<-- pág 0
JB ems_busca_i ; no distan 32 Kb: buscar otra
emm_obt_kb: MOV AH,42h
INT 67h
AND AH,AH
JZ emm_kb_ok
CMP AH,82h
JE emm_obt_kb
JMP emm_fatal
emm_kb_ok: MOV CL,4
SHL BX,CL ; páginas EMS disponibles
MOV ems_kb,BX ; Kb EMS disponibles (0,16,...)
ems_ok: POP ES
RET
eval_ems ENDP
emm_busca_pag PROC ; buscar página nº DX (EMS 4.0)
LEA SI,area_trabajo
PUSH CX
emm_otra_pag: LODSW
MOV BX,AX ; BX = segmento de la página
LODSW ; AX = nº de la página
CMP AX,DX
JE hallada_pag
LOOP emm_otra_pag
STC
hallada_pag: POP CX
RET
emm_busca_pag ENDP
; ---- Calcular el tamaño del mayor bloque de memoria
; convencional disponible. Como mínimo se dejarán
; unos 128 Kb libres en él, para que el usuario
; pueda volver a ejecutar TDSK y el DOS tenga algo
; de memoria libre. A la mitad de esos 128Kb (para
; evitar solapamientos) es donde TURBODSK se
; autorelocalizará antes de formatear el disco.
eval_con PROC
CMP modo,AUTOEXEC ; ¿se ejecuta desde el DOS?
JNE conv_ok ; no, desde el config
MOV AH,48h
MOV BX,0FFFFh ; pedir 1 Mb al DOS (fallará)
INT 21h
MOV DX,BX ; tamaño del mayor bloque
MOV CL,6
SHR BX,CL ; BX = Kb del mayor bloque
SUB BX,128 ; restar 128 Kb
JC conv_ok ; no quedan ni 128 Kb
CMP BX,8
JB conv_ok ; no quedan siquiera 8 Kb
MOV con_kb,BX
MOV BX,DX ; tamaño del mayor bloque
MOV AH,48h
PUSH BX
INT 21h ; localizarlo (AX=segmento)
POP BX
XPUSH <ES,AX> ; preservar ES y segmento (AX)
ADD AX,BX ; añadir longitud
SUB AX,1024/16*64 ; restar 64 Kb
MOV segm_reubicar,AX ; segmento de autoreubicación
POP ES ; recuperar segmento del bloque
MOV AH,49h
INT 21h ; liberarlo
POP ES ; recuperar ES
conv_ok: RET
eval_con ENDP
; ------------ Reservar la memoria llamando al gestor que la controla.
; Con memoria XMS y existiendo un controlador EMS 4.0+ se
; comprueba si el handle XMS provoca la creacción de otro
; en EMS (caso de QEMM386 y otros emuladores de EMS) y en
; ese caso se le renombra, para mejorar la información de
; los programas de diagnóstico.
mem_reserva PROC
MOV AL,tipo_soporte ; tipo de memoria empleada
DEC AL
JZ mem_r_xms ; 1: memoria extendida XMS
DEC AL
JZ mem_r_ems ; 2: memoria expandida EMS
MOV CL,6
MOV BX,tdisco ; 3: memoria convencional
SHL BX,CL
MOV AH,48h
INT 21h
MOV mem_handle,AX ; segmento del disco virtual
MOV BX,segm_psp
MOV tdsk_psp,BX ; inicializar esta variable
RET
mem_r_xms: CMP ems4,ON
JNE skip_lst_hndl
LEA BX,area_trabajo
CALL lista_handles ; EMS 4.0+: listado de handles
skip_lst_hndl: MOV AH,9
MOV DX,tdisco
CALL xms_driver ; pedir memoria XMS
AND AX,AX
JNZ mem_rda_xms
OR lista_err,ERROR8 ; fallo del controlador XMS
STC ; indicar error
mem_rda_xms: MOV mem_handle,DX
PUSHF ; preservar condición de error
CMP ems4,ON
JNE skip_ren_hndl
CALL ren_handle ; en EMS 4.0+ renombrar handle
skip_ren_hndl: POPF
RET
mem_r_ems: MOV BX,tdisco
ADD BX,15
AND BL,11110000b ; redondear para arriba
MOV tdisco,BX
MOV CL,4
SHR BX,CL ; Kb -> nº páginas de 16 Kb
MOV AH,43h
INT 67h ; pedir memoria EMS
AND AH,AH
JZ mem_rda_ems
OR lista_err,ERROR9 ; fallo del controlador EMS
STC ; indicar error
RET
mem_rda_ems: MOV mem_handle,DX
CMP ems4,ON
JNE nhandle_ok
CALL nombrar_hndl ; en EMS 4.0+ nombrar handle
nhandle_ok: CLC
RET
mem_reserva ENDP
ren_handle PROC ; detectar el handle EMS ligado
XPUSH <ES,DS> ; al handle XMS y renombrarlo
POP ES
LEA BX,area_trabajo[512]
CALL lista_handles ; crear nueva lista de handles
LEA SI,area_trabajo
LEA DI,area_trabajo[512]
MOV CX,256
CLD
REP CMPSW ; comparar con vieja lista
JE ren_hnld_fin
MOV DX,[DI-2] ; handle nuevo
CALL nombrar_hndl
ren_hnld_fin: POP ES
RET
ren_handle ENDP
lista_handles PROC ; crear en DS:BX una lista con
MOV CX,256 ; los 256 posibles handles
XOR DX,DX ; activos indicando los usados
listar_h: MOV AX,5300h
LEA DI,area_trabajo[tam_a_trabajo-8] ; zona no usada
XPUSH <BX,CX,DX>
INT 67h
XPOP <DX,CX,BX>
CMP AH,0
JE handle_usado
MOV WORD PTR [BX],0 ; error (handle no usado)
JMP lista_h
handle_usado: MOV [BX],DX ; anotar número de handle
lista_h: ADD BX,2
INC DX
LOOP listar_h
RET
lista_handles ENDP
nombrar_hndl PROC ; nombrar handle (EMS 4.0+)
MOV AX,5301h
LEA SI,nombre_tdsk
MOV BL,letra_unidad
MOV [SI+5],BL
INT 67h ; dar nombre al handle
RET
nombrar_hndl ENDP
; ------------ Detectar 286 y 386 o superior.
test_CPU PROC
PUSHF
POP AX
OR AH,70h ; intentar activar bit 12, 13 ó 14
PUSH AX ; del registro de estado
POPF
PUSHF
POP AX
AND AH,0F0h
CMP AH,0F0h
JE fin_test_CPU ; es 8086 o similar
MOV cpu286,ON ; es 286 o superior
AND AH,70h ; 286 pone bits 12, 13 y 14 a cero
JZ fin_test_CPU ; es 286
MOV cpu386,ON ; 386 o superior
fin_test_CPU: RET
test_CPU ENDP
; ------------ Definir valores por defecto y adaptar los parámetros
; indicados por el usuario a la realidad. Esta rutina
; inicializa el futuro sector 0 del disco. No se permite
; que el usuario indique un directorio que ocupe más de
; medio disco. Para determinar el tipo de FAT se halla el
; nº de sectores libres del disco (llamémoslo nsect),
; descontanto el sector de arranque y el directorio raiz;
; y se aplica la siguiente fórmula, que devuelve el nº de
; cluster más alto del disco al considerar también la
; ocupación de la futura FAT (12 bits = 1,5 bytes):
;
; nsect * tamsect 2 * nsect * tamsect
; ------------------ + 1 = --------------------- + 1
; tamcluster + 1,5 2 * tamcluster + 3
;
; Al resultado se le suma 1, ya que los clusters se
; numeran a partir de 2, para calcular el cluster de nº
; más alto del disco. Si ese número es 4086 o más habrá
; de utilizarse una FAT de 16 bits, recalculándose la
; fórmula anterior sustituyendo 1,5 por 2 y 3 por 4. Al
; final, una vez determinado el tipo de FAT habrá de
; calcularse con exactitud el número de cluster más alto,
; ya que hay casos críticos en que una FAT12 no sirve
; pero al aplicar una FAT16 el número de clusters baja de
; nuevo de 4085 (debido al mayor consumo de disco de la
; FAT16) resultado de ello la asignación de una FAT12,
; pese a que se reserva espacio para la de 16. Hay que
; considerar además el caso de que el disco tenga 2 FAT.
adaptar_param PROC
MOV AX,tdisco ; en Kb
MOV BX,AX ; entradas de directorio propuestas
MOV CL,1 ; sectores por cluster propuestos
CMP AX,128 ; ¿disco de 128 Kb o menos?
JBE prop_ok
MOV BX,128
CMP AX,512 ; ¿disco de 512 Kb o menos?
JBE prop_ok
MOV BX,256
CMP AX,2042 ; ¿disco de casi 2 Mb o menos?
JBE prop_ok
MOV CL,2 ; evitar FAT16
CMP AX,4084 ; ¿disco de casi 4 Mb o menos?
JBE prop_ok
MOV CL,4 ; evitar FAT16 hasta 8 Mb
MOV BX,384
CMP AX,16384 ; ¿disco de menos de 16 Mb?
JB prop_ok
MOV BX,512
prop_ok: CMP dosver,300h
JAE prop_valido
CMP AX,4084*2 ; en DOS 2.xx evitar FAT16
JB prop_valido
MOV CL,8
CMP AX,4084*4
JB prop_valido
MOV CL,16
CMP AX,4084*8
JB prop_valido
MOV CL,32
prop_valido: MOV tdir,BX
MOV tcluster,CL ; inicializar valores recomendados
MOV DX,1024 ; AX = tamaño del disco en Kb
MUL DX ; DX:AX = bytes totales del disco
MOV CX,param_tsect
AND CX,CX
JNZ tsect_def ; se ha definido tamaño de sector
tsect_rec: MOV CX,tsect ; tamaño por defecto
tsect_def: CALL divCX
JNC nsect_ok ; menos de 65536 sectores: correcto
OR lista_err,ERROR11
JMP tsect_rec ; asumir por defecto y recalcular
nsect_ok: MOV tsect,CX
MOV numsect,AX
MOV BX,AX
SHR BX,1 ; BX = 1/2 del nº total de sectores
MOV CX,param_tdir
AND CX,CX
JNZ tdir_def ; se ha definido nº entradas
tdir_rec: MOV CX,tdir ; nº por defecto
tdir_def: MOV AX,tsect
XOR DX,DX
MOV SI,32 ; 32 bytes = tamaño entrada direct.
DIV SI ; AX nº entradas direct. por sector
XCHG AX,CX
XOR DX,DX ; DX:AX = nº de entradas
DIV CX ; CX = entradas en cada sector
AND DX,DX ; AX = nº sectores del ROOT
JZ dir_ok?
INC AX ; redondear tamaño de ROOT
dir_ok?: CMP AX,BX ; BX = 1/2 nº sectores del disco
JB dir_ok
OR lista_err,ERROR12 ; directorio excesivo
JMP tdir_rec ; directorio por defecto
dir_ok: MOV sdir,AX
MUL tsect
MOV CX,32
CALL divCX
MOV tdir,AX ; optimizar tamaño de directorio
MOV AX,512
XOR DX,DX
DIV tsect ; 512 / tamaño de sector
MOV BL,tcluster
XOR BH,BH
MUL BX ; ajustar tamaño de cluster
AND AL,AL
JZ propclus_ok
MOV tcluster,AL
propclus_ok: MOV BX,param_tcluster
AND BX,BX
JNZ tcluster_def ; se ha definido tamaño de cluster
tcluster_rec: MOV BL,tcluster ; tamaño por defecto
XOR BH,BH
tcluster_def: SHL BX,1
CMP BX,numsect ; ¿cabe seguro un cluster?
JB tcluster_ok
tcluster_mal: OR lista_err,ERROR13 ; tamaño de cluster incorrecto
JMP tcluster_rec
tcluster_ok: SHR BX,1
MOV AX,tsect
MUL BX ; DX:AX = tamaño de cluster
JC tcluster_mal
CMP AX,31*1024
JA tcluster_mal ; cluster de más de 31 Kb
MOV tcluster,BL ; sectores por cluster
MOV tamcluster,AX ; tamaño de cluster
MOV CX,param_f ; considerar número de FATs
MOV nfats,CL
MOV SI,3
MOV CX,param_f
SHL SI,CL
SHR SI,1
CALL eval_clust ; obtener nº más alto de cluster
CMP AX,4086
JAE fat16 ; el nº más alto supera 4085
MOV CX,3
MUL CX ; clusters * 3
SHR DX,1
RCR AX,1 ; clusters * 3 / 2 = clusters * 1,5
JMP calc_sfat
fat16: MOV SI,4
MOV CX,param_f ; considerar número de FATs
SHL SI,CL
SHR SI,1
CALL eval_clust
SHL AX,1
RCL DX,1 ; clusters * 2
calc_sfat: DIV tsect ; AX = nº sectores de FAT aprox.
AND DX,DX
JZ fat_ok
INC AX ; redondeo
fat_ok: MOV sfat,AX
MOV AX,numsect ; nº total de sectores
DEC AX ; descontar BOOT
SUB AX,sdir ; descontar ROOT
SUB AX,sfat ; descontar FAT
MOV CL,tcluster
XOR CH,CH
XOR DX,DX
DIV CX ; AX = número real de clusters
INC AX ; se numeran desde 2
MOV ultclus,AX
RET
adaptar_param ENDP
eval_clust PROC ; obtener el nº más alto de cluster
MOV AX,numsect
DEC AX ; restar BOOT
SUB AX,sdir ; restar ROOT
MUL tsect ; DX:AX = nsect * tamsect
SHL AX,1
RCL DX,1 ; DX:AX = nsect * tamsect * 2
MOV CX,tamcluster
SHL CX,1
ADD CX,SI ; CX = 2 * tamcluster + SI
DIV CX
INC AX ; los clusters se numeran desde 2
AND DX,DX ; ¿sobra un «cacho» de cluster?
JZ clust_eval ; redondear: ¡es preferible que
INC AX ; sobre un poco de FAT a que falte!
clust_eval: XOR DX,DX ; resultado en DX:AX
RET
eval_clust ENDP
; ------------ Preparar el BPB del disco virtual según los parámetros
; y forzar que el DOS lo lea indicando cambio de disco.
preparar_BPB PROC
MOV AX,tsect
MOV bytes_sector,AX
MOV AL,tcluster
MOV sect_cluster,AL
MOV AX,tdir
MOV entradas_raiz,AX
MOV AX,numsect
MOV num_sect,AX
MOV AL,nfats
MOV num_fats,AL
MOV AX,sfat
MOV sectores_fat,AX
MOV cambiado,0FFh ; ha habido «cambio» de disco
RET
preparar_BPB ENDP
; ------------ Preparar el disco para operar. ES apunta al disco al
; entrar. Se procederá a copiar la rutina necesaria en
; función del tipo de memoria que gestiona el disco.
; Después, se copiarán las variables que gestionan TDSK
; sobre la copia residente, así como el nuevo BPB.
prep_driver PROC
MOV AL,tipo_soporte
LEA SI,procesa_xms
MOV CX,tam_proc_xms
DEC AL
JZ prep_mem ; instalar rutina XMS
LEA SI,procesa_ems
MOV CX,tam_proc_ems
DEC AL
JZ prep_mem ; instalar rutina EMS
LEA SI,procesa_con
MOV CX,tam_proc_con ; instalar rutina memoria conv.
prep_mem: LEA DI,procesa_io
CLD
XPUSH <SI,DI,CX>
REP MOVSB ; instalar rutina en el disco
XPOP <CX,DI,SI>
XPUSH <ES,DS>
POP ES
REP MOVSB ; y en el propio TDSK.EXE (para
POP ES ; usarla después al formatear)
LEA CX,f_tdsk_ctrl
LEA SI,i_tdsk_ctrl
SUB CX,SI
MOV DI,SI
REP MOVSB ; actualizar variables
LEA CX,fin_bpb
LEA SI,bpb
SUB CX,SI
MOV DI,SI
REP MOVSB ; actualizar BPB
RET
prep_driver ENDP
; ------------ Autorelocalización de TDSK.EXE
; Es necesario si se reserva memoria convencional para el
; disco virtual. El motivo es evitar que al inicializar
; la BOOT, la FAT y el ROOT al inicio del disco, si éste
; está justo encima de TDSK, TDSK se autodestruya. Por
; ello, TDSK se autocopiará en la mitad de los 128 Kb del
; mayor bloque de memoria libre, nunca utilizados por el
; disco (aunque este bloque no haya sido reservado, ¡como
; está libre!). Finalmente pasará a correr en ese nuevo
; destino. Se copia TODO, pila incluida. La copia se hace
; en «segm_reubicar» que apunta a la mitad de esos 128 Kb
; con objeto de evitar solapamientos origen/destino (TDSK
; ocupa sólo alrededor de 16 Kb en memoria).
relocalizar PROC
CMP tipo_soporte,3
JE procede_reloc ; usada memoria convencional
RET
procede_reloc: PUSH ES ; * preservar ES
MOV ES,segm_reubicar ; segmento de reubicación
XOR SI,SI
XOR DI,DI
MOV BX,SS ; final de TURBODSK (pila)
MOV CX,DS ; inicio de _PRINCIPAL
SUB BX,CX ; tamaño de TDSK en párrafos
MOV CL,4
SHL BX,CL ; ahora en bytes
ADD BX,tam_pila+16 ; 16 por si acaso
MOV CX,BX ; CX = bytes a relocalizar
CLD
REP MOVSB ; auto-copiaje arriba
MOV AX,ES
MOV DS,AX ; nuevo segmento de datos
POP ES ; * restaurar ES
MOV BX,CS
SUB AX,BX ; ES - CS --> cuantía del salto
MOV BX,SS
ADD BX,AX
MOV SS,BX ; actualizar segmento de pila
POP AX ; dirección de retorno cercano
PUSH DS ; segmento de «retorno»
PUSH AX ; offset
RETF ; retorno cargando CS:
relocalizar ENDP
; ------------ Inicializar la BOOT, FAT y ROOT del disco virtual.
; En versiones del DOS anteriores a la 3.3, el sistema
; inexplicablemente hace caso omiso del cambio de disco
; (¿?), por lo que hay que avisarle ¡dos veces!, con el
; correspondiente doble cambio del byte descriptor de
; medio, para que se tome en serio el cambio de disco.
; Por fortuna desde el DOS 3.3 ya no es preciso hacer
; esta extraña maniobra. Para que el DOS acceda al disco,
; se le pregunta simplemente el espacio libre del mismo.
formatear_tdsk PROC
PUSH ES ; *
PUSH DS
POP ES
LEA SI,sector_cero
LEA DI,area_trabajo
MOV CX,128
CLD
REP MOVSB ; primeros 128 bytes del BOOT
XOR AX,AX
MOV CX,tam_a_trabajo-128
REP STOSB ; a 0 resto del área de trabajo
LEA DI,area_trabajo
ADD DI,tsect
MOV [DI-2],0AA55h ; marca de sector válido
CALL escribe_sectAX ; escribir sector BOOT (AX=0)
LEA DI,area_trabajo
MOV CX,tsect
REP STOSB ; borrar area de trabajo
MOV AX,sfat
MOV CX,param_f ; considerar número de FATs
SHL AX,CL
SHR AX,1
ADD AX,sdir ; AX = sectores fat + dir. raiz
ini_fat: CMP AX,1
JE pfat
CALL escribe_sectAX ; inicializar directorio raiz
DEC AX ; y últimos sectores de la FAT
JMP ini_fat
pfat: LEA DI,area_trabajo
MOV BYTE PTR [DI],media
MOV AX,0FFFFh ; inicializar 3 bytes FAT...
MOV DS:[DI+1],AX
CMP ultclus,4086 ; ¿menos de 4085 clusters?
JB pfat_ok
MOV DS:[DI+3],AL ; inicializar 4º byte FAT
pfat_ok: MOV AX,1
CALL escribe_sectAX ; primer sector FAT preparado
CALL fecha_hora
LEA SI,dir_raiz
MOV [SI+22],AX ; hora actual
MOV [SI+24],DX ; fecha actual
LEA DI,area_trabajo
MOV CX,32
REP MOVSB
MOV AX,sfat
MOV CX,param_f ; considerar número de FATs
SHL AX,CL
SHR AX,1
INC AX
CALL escribe_sectAX ; primer sector raiz preparado
POP ES ; *
CMP dosver,31Eh
JAE formateado ; DOS 3.3+
NOT ES:media_byte ; cambiar descriptor de medio
MOV AH,36h ; «obtener espacio libre»
MOV DL,ES:letra_unidad
SUB DL,'A'-1 ; unidad de disco virtual
PUSH DX
INT 21h ; primer acceso al disco
POP DX
NOT ES:media_byte ; restaurar descriptor de medio
MOV ES:cambiado,0FFh ; nuevo «cambio» de disco
MOV AH,36h
INT 21h ; acceder otra vez al disco
formateado: RET
formatear_tdsk ENDP
; ---- Escribir el sector nº AX del disco virtual. No
; se utiliza INT 26h (imposible desde el CONFIG).
escribe_sectAX PROC
PUSHF ; preservar bit DF
XPUSH <AX,BX,CX,DX,SI,DI,BP,DS,ES>
XOR BP,BP ; indicar escritura
LEA DI,area_trabajo ; ES:DI buffer
MOV BX,AX ; número de sector
MOV AX,1 ; 1 sector
CALL io_proc ; acceder al disco directamente
XPOP <ES,DS,BP,DI,SI,DX,CX,BX,AX>
POPF
RET
escribe_sectAX ENDP
; ---- Obtener fecha y hora del sistema en DX y AX
fecha_hora PROC
MOV AH,2Ah
INT 21h ; obtener fecha del sistema
MOV AL,32
MUL DH ; AX = mes * 32
SUB CX,1980
SHL CL,1 ; (año-1980)*2
ADD AH,CL ; sumar (año-1980)*512
MOV CL,DL ; CX = dia (CH=0)
ADD AX,CX
PUSH AX ; * guardar fecha
MOV AH,2Ch
INT 21h ; obtener hora del sistema
MOV AL,32
MUL CL ; AX = minutos*32
MOV CL,3
SHL CH,CL
XOR CL,CL ; CX = hora*2048
ADD AX,CX
SHR DH,1 ; segundos/2
ADD AL,DH
ADC AH,0
POP DX ; * recuperar fecha
RET
fecha_hora ENDP
; ------------ Cambiar el nombre al bloque de control de memoria para
; mejorar la información del comando MEM del sistema si
; el disco se define en memoria convencional/superior.
renombrar_mcb PROC
PUSH ES
MOV AL,letra_unidad
MOV BYTE PTR nombre_tdsk+5,AL
MOV BYTE PTR nombre_tdsk+4,'('
MOV BYTE PTR nombre_tdsk+6,')'
MOV AX,segm_psp
DEC AX
MOV ES,AX
LEA SI,nombre_tdsk
MOV DI,8
MOV CX,DI
CLD
REP MOVSB
POP ES
RET
renombrar_mcb ENDP
; ------------ Informar sobre el disco virtual instalado.
info_disco PROC
CALL InitMultiPrint
LEA DX,ayuda_txt ; ayuda en español
CMP param_h,ON ; ¿solicitud de ayuda?
JNE cont_info ; no
JMP info_exit
cont_info: TEST err_grave,0FFFFh
JZ info_no_fatal
LEA DX,err_grave_gen ; texto de encabezamiento
CALL imprimir ; imprimir errores graves:
LEA DX,e0
TEST err_grave,ERROR0
JZ otro_fallo ; no es error de DOS incorrecto
CALL imprimir
MOV SP,tam_pila
PUSH segm_psp ; en DOS 1.x hay que terminar
XOR AX,AX ; con CS = PSP
PUSH AX
RETF ; ejecutar INT 20h de PSP:0
otro_fallo: LEA DX,e1
TEST err_grave,ERROR1
JNZ info_g
LEA DX,e2
TEST err_grave,ERROR2
JNZ info_g
LEA DX,e3
info_g: JMP info_exit
info_no_fatal: CMP ES:tipo_soporte,0 ; error no fatal
JNE info_reporte
LEA DX,info_ins ; disco no formateado
CALL imprimir
CALL impr_unidad
LEA DX,info_ins2
CMP lista_err,0
JE info_exit ; sin mensajes de advertencia
CALL imprimir ; ... o con ellos
JMP info_err
info_reporte: CALL pr_info ; disco formateado
CMP lista_err,0
JE info_ret ; sin mensajes de advertencia
LEA DX,cab_adv_txt ; ... o con ellos
CALL imprimir ; cabecera de advertencias
info_err: MOV AX,lista_err
LEA BX,tabla_mens-2 ; tabla de mensajes
MOV CX,16 ; 16 posibles mensajes
busca_err: ADD BX,2
SHR AX,1
JC informa
mas_mens: LOOP busca_err ; no se produce ese error
JMP info_ret
informa: LEA DX,mens_cabec ; inicio común a los mensajes
CALL imprimir
MOV DX,[BX] ; dirección de ese mensaje
CALL imprimir
JMP mas_mens ; acabar con todos
info_exit: CALL imprimir
info_ret: RET
info_disco ENDP
pr_info PROC
LEA DX,info_txt
CALL imprimir
CALL impr_unidad
LEA DX,inf_tsect
CALL imprimir
MOV AX,ES:bytes_sector
XOR DX,DX
MOV CL,5
CALL print_32
LEA DX,inf_tdir
CALL imprimir
MOV AX,ES:entradas_raiz
XOR DX,DX
MOV CL,5
CALL print_32
LEA DX,inf_tdisco
CALL imprimir
MOV AX,ES:num_sect
MUL ES:bytes_sector
MOV BX,1024
DIV BX
MOV CL,5
CALL print_32
LEA DX,inf_tcluster
CALL imprimir
MOV AL,ES:sect_cluster
XOR AH,AH
XOR DX,DX
MOV CL,5
CALL print_32
LEA DX,inf_mem
CALL imprimir
MOV AL,ES:tipo_soporte
LEA DX,inf_mem_xms
DEC AL
JZ mem_ifdo ; memoria XMS
LEA DX,inf_mem_ems
DEC AL
JZ mem_ifdo ; memoria EMS
LEA DX,inf_mem_con
CMP ES:mem_handle,0A000h
JB mem_ifdo ; memoria convencional
LEA DX,inf_mem_sup ; memoria superior
mem_ifdo: CALL imprimir
LEA DX,inf_nclusters
CALL imprimir
MOV AX,ES:entradas_raiz
MOV BX,32
MUL BX ; bytes ocupados por directorio
DIV ES:bytes_sector ; AX = sectores del directorio
ADD AX,ES:sect_reserv
ADD AX,ES:sectores_fat
SUB AX,ES:num_sect
NEG AX ; AX = sectores libres
XOR DX,DX
MOV BL,ES:sect_cluster
XOR BH,BH
DIV BX ; AX = nº de clusters
XOR DX,DX
MOV CL,5
CALL print_32
LEA DX,inf_tfat
CALL imprimir
LEA DX,inf_tfat12
CMP AX,4085 ; ¿FAT12?
JB ifat_ok
LEA DX,inf_tfat16
ifat_ok: CALL imprimir
LEA DX,inf_final
CALL imprimir
RET
pr_info ENDP
; --- Imprimir letra de unidad en AL.
impr_unidad PROC
XPUSH <AX, DX>
MOV AL,letra_unidad
MOV AH,0
MOV WORD PTR area_trabajo,AX
LEA DX,area_trabajo
CALL imprimir
XPOP <DX, AX>
RET
impr_unidad ENDP
; --- Imprimir un nº decimal de 32 bits en DXAX formateado por CL.
;
; Entradas:
; Si bit 4 = 1 --> se imprimirán signos separadores de millar
; bits 0-3 = nº total de dígitos (incluyendo separadores de
; millar y parte fraccional)
; bits 5-7 = nº de dígitos de la parte fraccional (cuantos
; dígitos de DXAX, empezando por la derecha,
; se consideran parte fraccional, e irán precedidos
; del correspondiente separador)
;
; Salidas: nº impreso, ningún registro modificado.
;
; * Ejemplo, si DXAX=9384320 y CL=010 1 1011
; se imprimirá ( '_' representa un espacio en blanco ): __93.843,20
print_32 PROC
PUSH DS
PUSH ES
PUSH CS
PUSH CS
POP DS
POP ES
PUSH AX ; preservar todos los registros
PUSH BX
PUSH CX
PUSH DX
PUSH SI
PUSH DI
PUSHF
MOV formato_pr32,CL ; byte del formato de impresión elegido
MOV CX,idioma_seps
separ_pr32: MOV millares_pr32,CH ; separador de millares
MOV fracc_pr32,CL ; separador parte fraccional
MOV BX,OFFSET tabla_pr32
MOV CX,10
digit_pr32: PUSH CX
PUSH AX
PUSH DX
XOR DI,DI
MOV SI,1 ; DISI = 1
DEC CX ; CX - 1
JCXZ hecho_pr32
factor_pr32: SAL SI,1
RCL DI,1 ; DISI * 2
MOV DX,DI
MOV AX,SI
SAL SI,1
RCL DI,1
SAL SI,1
RCL DI,1 ; DISI * 8
ADD SI,AX
ADC DI,DX ; DISI = DISI*8 + DISI*2 = DISI*10
LOOP factor_pr32 ; DISI = DISI*10*10* ... (CX-1 veces)
hecho_pr32: POP DX ; luego DISI = 10 elevado a (CX-1)
POP AX ; CX se recuperará más tarde
MOV CL,0FFh
rep_sub_pr32: INC CL
SUB AX,SI
SBB DX,DI ; DXAX = DXAX - DISI
JNC rep_sub_pr32 ; restar el factor cuanto se pueda
ADD AX,SI ; subsanar el desbordamiento:
ADC DX,DI ; DXAX = DXAX + DISI
ADD CL,'0' ; pasar binario a ASCII
MOV [BX],CL
POP CX ; CX se recupera ahora
INC BX
LOOP digit_pr32 ; próximo dígito del número
STD ; transferencias (MOVS) hacia atrás
DEC BX ; BX apunta al último dígito
MOV final_pr32,BX ; último dígito
MOV ent_frac_pr32,BX ; frontera parte entera/fraccional
MOV CL,5
MOV AL,formato_pr32
SHR AL,CL ; AL = nº de decimales
AND AL,AL
JZ no_frac_pr32 ; ninguno
MOV CL,AL
XOR CH,CH
MOV SI,final_pr32
MOV DI,SI
INC DI
REP MOVSB ; correr cadena arriba (hacer hueco)
INC final_pr32
MOV AL,fracc_pr32
MOV [DI],AL ; poner separador de parte fraccional
MOV ent_frac_pr32,SI ; indicar nueva frontera
no_frac_pr32: MOV AL,formato_pr32
TEST AL,16 ; interpretar el formato especificado
JZ poner_pr32 ; imprimir como tal
entera_pr32: MOV CX,final_pr32 ; añadir separadores de millar
SUB CX,ent_frac_pr32
ADD CX,3
MOV SI,final_pr32
MOV DI,SI
INC DI
REP MOVSB ; correr cadena arriba (hacer hueco)
MOV AL,millares_pr32
MOV [DI],AL ; poner separador de millares
INC final_pr32
MOV ent_frac_pr32,SI ; usar esta variable como puntero
SUB SI,OFFSET tabla_pr32
CMP SI,3
JAE entera_pr32 ; próximo separador
poner_pr32: MOV BX,final_pr32
MOV BYTE PTR [BX+1],0 ; delimitador de fin de cadena
MOV BX,OFFSET tabla_pr32
MOV principio_pr32,BX ; inicio de cadena
limpiar_pr32: MOV AL,[BX]
CMP AL,'0'
JE blanco_pr32 ; cero a la izda --> poner " "
CMP AL,millares_pr32 ; separador millares a la izda
JE blanco_pr32
CMP AL,fracc_pr32
JNE acabar_pr32
MOV BYTE PTR [BX-1],'0' ; reponer 0 antes de la coma
DEC principio_pr32
acabar_pr32: MOV AL,formato_pr32 ; imprimir
AND AL,00001111b
XOR AH,AH
MOV DX,final_pr32
SUB DX,AX
INC DX ; DX = offset 'principio'
AND AX,AX
JNZ format_pr32 ; longitud especificada por el usuario
MOV DX,principio_pr32 ; longitud obtenida del número
format_pr32: CALL imprimir
POPF ; restaurar todos los registros
POP DI
POP SI
POP DX
POP CX
POP BX
POP AX
POP ES
POP DS
RET ; salida del procedimiento
blanco_pr32: MOV BYTE PTR [BX],' ' ; sustituir 0 ó separador de millares
INC BX ; a la izda. por espacio en blanco
INC principio_pr32
CMP BX,final_pr32
JB limpiar_pr32
MOV DX,BX ; es el número 0.000.000.00X
JMP SHORT acabar_pr32 ; imprimir
formato_pr32 DB 0
DB 5 DUP (' ') ; espacios en blanco para cubrir la
; mayor plantilla que pueda ser espe-
; cificada en el formato
tabla_pr32 DT 0 ; reservar 14 bytes (nº más ., más ASCIIZ)
DW 0,0 ; aquí se solapa un buffer de 32 bytes
millares_pr32 DB '.' ; separador de millares
fracc_pr32 DB ',' ; " parte fraccional
final_pr32 DW 0 ; offset al último byte a imprimir
principio_pr32 DW 0 ; " " primer " " "
ent_frac_pr32 DW 0 ; offset a la frontera entero-fracc.
DT 0 ; $ - tabla_pr32 = 32 bytes usados por
; INT 21h al principio de print_32
print_32 ENDP
; ------------ Dividir DX:AX / CX sin desbordamientos (cociente: AX,
; resto: DX). Si el cociente excede los 16 bits, CF = 1
; y todos los registros intactos.
divCX PROC
XPUSH <BX,SI,CX,AX,DX>
MOV SI,32
XOR BX,BX
divmas: SHL AX,1
RCL DX,1
RCL BX,1
CMP BX,CX
JB dividido ; "no cabe"
SUB BX,CX
INC AL ; 1 al cociente
dividido: DEC SI
JNZ divmas
AND DX,DX
JZ div_ok
XPOP <DX,AX> ; error
STC
JMP div_fin
div_ok: MOV DX,BX ; resto en DX y cociente en AX
ADD SP,4 ; «sacar» sin sacar DX y AX
CLC
div_fin: XPOP <CX,SI,BX> ; recuperar CX, SI y BX
RET
divCX ENDP
; ------------ Impresión en color o monocroma (esta última
; redireccionable). Desde el CONFIG.SYS se imprime en
; monocromo para no llamar la atención, a menos que
; indiquen /M, al contrario que desde el DOS.
imprimir PROC
PUSH AX
MOV AL,param_m
CMP modo,CONFIG ; ¿en CONFIG.SYS?
JNE m_ok ; no
XOR AL,ON ; sí: /M opera al revés
m_ok: MOV pr_mono,AL
CALL print
POP AX
RET
imprimir ENDP
; ------------ Imprimir cadena en DS:DX delimitada por un 0 ó un 255.
; Si acaba en 0, se imprime como tal; en caso contrario,
; se supone que el mensaje es multilingüe y los diversos
; idiomas (1, 2, ... N) separan sus cadenas por sucesivos
; códigos 255. El carácter de control 127 realiza una
; pausa hasta que se pulsa una tecla.
print PROC
XPUSH <AX, BX, CX, DX, SI, DI, ES>
CMP idioma,0
JNE pr_decidir
PUSH DX ; *
MOV AH,30h
INT 21h
XCHG AH,AL
MOV CX,AX ; CX = versión del DOS
CMP param_i,ON
MOV AX,codigo_tfno
MOV BX,1234h
JNE pr_busca_cod ; parámetro /I=cod no indicado
MOV BX,AX
MOV AL,0FFh
CMP BX,255
JAE pr_cod ; código mayor o igual de 255
MOV AL,BL ; código menor de 255
pr_cod: CMP CX,200h
JAE pr_cod_tfno ; DOS >= 2.X
pr_busca_cod: CMP CX,200h
MOV AX,1 ; inglés para DOS < 2.X
JB pr_habla_ax
MOV AL,0
pr_cod_tfno: LEA DX,area_trabajo
MOV AH,38h
XPUSH <BX, CX>
INT 21h ; obtener información del pais
XPOP <CX, AX>
JC pr_habla_ax ; fallo en la función
CMP CX,20Bh
JE pr_habla_ax ; DOS 2.11: AX cód. telefónico
CMP CX,300h
MOV AX,1
JB pr_habla_ax ; 2.x excepto 2.11: mala suerte
MOV AX,BX
LEA BX,area_trabajo
MOV CH,[BX+7] ; separador de millares
MOV CL,[BX+9] ; separador de decimales
MOV idioma_seps,CX
pr_habla_ax: LEA BX,info_paises-2
MOV CX,1 ; supuesto idioma 1
pr_busca_idi: ADD BX,2
MOV DX,[BX]
CMP AX,DX
JE pr_habla_ese
AND DX,DX
JNZ pr_busca_idi
INC CX ; será otro idioma
CMP [BX+2],DX
JNE pr_busca_idi ; no es fin de la tabla
pr_habla_ese: MOV idioma,CL
POP DX ; *
pr_decidir: MOV CL,idioma
MOV CH,0 ; nº de idioma a usar (1..N)
MOV BX,DX
pr_busca_msg: MOV DX,BX
DEC BX
pr_busca_ter: INC BX
CMP BYTE PTR [BX],0
JE pr_usar_ese ; acaba en 0: no buscar más
CMP BYTE PTR [BX],255
JNE pr_busca_ter
INC BX
LOOP pr_busca_msg ; acaba en 255 pero no es ese
pr_usar_ese: MOV BX,DX
DEC BX
pr_cad_lon: INC BX
CMP BYTE PTR [BX],0
JE prlong_ok
CMP BYTE PTR [BX],127 ; carácter de pausa
JE prpausa
CMP BYTE PTR [BX],255
JNE pr_cad_lon ; calcular longitud
JMP prlong_ok
prpausa: PUSH BX
MOV CX,BX
SUB CX,DX
CALL pr_cad ; imprimir hasta el código 127
pr_limpbuf: MOV AH,1
INT 16h
JZ pr_notec
MOV AH,0
INT 16h ; limpiar buffer del teclado
JMP pr_limpbuf
pr_notec: MOV AH,0
INT 16h ; esperar tecla
POP BX
INC BX
MOV DX,BX
CMP AL,27 ; ¿tecla ESC?
STC
JE pr_ret
JMP pr_cad_lon ; imprimir el resto
prlong_ok: MOV CX,BX
SUB CX,DX
CALL pr_cad ; terminar impresión
CLC
pr_ret: XPOP <ES, DI, SI, DX, CX, BX, AX> ; CF=1 si se pulsó ESC
RET
pr_cad: ; MOV AH,40h
; MOV BX,1
; INT 21h ; imprimir con el DOS
MOV SI,DX
LEA DI,area_trabajo
PUSH DS
POP ES ; por si acaso
CLD
REP MOVSB
MOV [DI],CL ; ASCIIZ
LEA DX,area_trabajo
CALL MultiPrint ; imprimir en color
RET
print ENDP
; ------------ Impresión en pantalla, en color o monocromo, usando el
; BIOS o el DOS respectivamente. Antes deberá ejecutarse
; InitMultiPrint para inicializar. Al hacer scroll se
; intenta respetar el posible color global de fondo.
; Con «pr_mono» en ON se solicita imprimir en monocromo.
;
; - El texto a imprimir es apuntado por DS:DX.
; - Códigos de control soportados:
;
; 0 -> final de cadena
; 1 -> el siguiente carácter indica el color (BIOS)
; 2 -> el siguiente carácter indica el nº de veces que
; se imprimirá el que viene detrás
; 3 -> avanzar cursor a la derecha
; 10 -> retorno de carro y salto de línea estilo UNIX
MultiPrint PROC
XPUSH <AX,BX,CX,DX,SI,DI,BP,DS,ES>
PUSH DS
POP ES
PUSH CS
POP DS
LEA AX,pr_AL_dos
CMP pr_mono,ON
JE pr_rut_ok
LEA AX,pr_AL_bios
pr_rut_ok: MOV pr_rut,AX ; instalar rutina de impresión
MOV BX,DX
pr_otro: MOV AL,ES:[BX]
PUSH BX
CMP AL,' '
JAE pr_ASCII ; no es un código de control
AND AL,AL
JZ pr_exit ; código de control 0: final
CMP AL,1
JE pr_setcolor ; código de control 1: color
CMP AL,2
JE pr_setveces ; código de control 2: repetir
pr_ASCII: CALL pr_rut
POP BX
INC BX
JMP pr_otro
pr_setcolor: MOV AL,ES:[BX+1]
MOV pr_color,AL ; actualizar color
POP BX
ADD BX,2
JMP pr_otro
pr_setveces: MOV AL,ES:[BX+1]
MOV pr_veces,AL ; actualizar repeticiones
POP BX
ADD BX,2
JMP pr_otro
pr_exit: XPOP <BX,ES,DS,BP,DI,SI,DX,CX,BX,AX>
RET
MultiPrint ENDP
pr_AL_bios PROC ; imprimir en color usando BIOS
PUSH AX
MOV AH,3
MOV BH,pr_pagina
INT 10h ; DX = coordenadas del cursor
POP AX
CMP AL,3
JE pr_derecha ; código de control 3: avanzar
CMP AL,10
JE pr_crlf ; código de control 10: CR & LF
MOV AH,9
MOV BH,pr_pagina
MOV BL,pr_color
MOV CL,pr_veces
XOR CH,CH
PUSH DX
INT 10h ; imprimir carácter
POP DX
pr_derecha: ADD DL,pr_veces
MOV pr_veces,1
CMP DL,pr_maxX
JBE pr_av
pr_crlf: XOR DL,DL ; volver al inicio de línea
INC DH ; salto a la siguiente
CMP DH,pr_maxY
JBE pr_av
DEC DH
PUSH DX ; es preciso hacer scroll
MOV AX,601h
MOV BH,pr_colorb ; color por defecto
XOR CX,CX
MOV DL,pr_maxX
MOV DH,pr_maxY
INT 10h ; hacer scroll usando BIOS
POP DX
pr_av: MOV BH,pr_pagina
MOV AH,2
INT 10h ; posicionar cursor
RET ; retorno del procedimiento
pr_AL_bios ENDP
pr_AL_dos PROC ; imprimir usando DOS
CMP AL,3
JNE pr_no_der
MOV AL,' ' ; código de control 3: avanzar
pr_no_der: CMP AL,10
JNE pr_dos
MOV AL,13 ; código de control 10: CR & LF
CALL pr_dos ; llamada "recursiva"
MOV AL,10
pr_dos: MOV CL,pr_veces
XOR CH,CH
MOV pr_veces,1
MOV DL,AL
pr_chr: XPUSH <DX,CX>
MOV AH,2
INT 21h ; imprimir carácter
XPOP <CX,DX>
LOOP pr_chr
RET
pr_AL_dos ENDP
InitMultiPrint PROC
XPUSH <AX,BX,CX,DX,BP,DS,ES>
PUSH CS
POP DS
MOV pr_veces,1
MOV pr_color,15 ; valores por defecto
MOV pr_mono,OFF
pr_i_80?: MOV AH,0Fh
INT 10h
CMP AH,80 ; ¿80 ó más columnas?
JAE pr_i_video_ok ; así es
MOV AX,3
INT 10h ; forzar modo de 80 columnas
JMP pr_i_80?
pr_i_video_ok: MOV pr_maxX,AH ; inicializar máxima coord. X
MOV pr_pagina,BH ; inicializar página activa
MOV AX,40h
MOV ES,AX ; ES: -> variables del BIOS
MOV AL,ES:[84h] ; variable de nº líneas - 1
CMP AL,24 ; ¿el BIOS define la variable?
JB pr_i_maxy_ok ; no
MOV pr_maxY,AL ; inicializar máxima coord. Y
pr_i_maxy_ok: MOV AH,8 ; (BH = página)
INT 10h ; obtener color por defecto
MOV pr_colorb,AH
XPOP <ES,DS,BP,DX,CX,BX,AX>
RET
InitMultiPrint ENDP
pr_pagina DB 0 ; página de visualización activa
pr_veces DB 1 ; veces que se imprime cada carácter
pr_color DB 15 ; color BIOS para imprimir
pr_colorb DB ? ; color por defecto en pantalla
pr_maxX DB 80 ; máxima coordenada X en pantalla
pr_maxY DB 24 ; máxima coordenada Y en pantalla
pr_mono DB OFF ; a ON si imprimir en monocromo
pr_rut DW ? ; apunta a pr_AL_bios / pr_AL_dos
; ------------ Rutina de gestión de memoria XMS. Se copiará sobre
; la de memoria EMS si se utiliza memoria XMS.
; En esta rutina se emplea la pila para pasar los
; parámetros al controlador XMS.
procesa_xms PROC
MOV DS,CS:mem_handle
JNC no_xmslib
.286 ; rutina ejecutada desde 286+
PUSHA ; sistema reinicializando:
MOV AH,0Dh
CALL llama_XMS ; desbloquear EMB (prudente)
MOV AH,0Ah
CALL llama_XMS ; liberar EMB
POPA
.8086
RET
no_xmslib: DEC BP ; leer/escribir en el disco
JNZ xms_escribe
PUSH ES
PUSH DI ; segmento:offset destino
PUSH BP ; handle destino (BP=0)
xms_escribe: PUSH DX
PUSH AX ; desplazamiento DX:AX
PUSH DS ; handle fuente/destino
JZ xms_general
INC BP ; hacer BP = 0
PUSH ES
PUSH DI ; segmento:offset fuente
PUSH BP ; handle fuente (BP=0)
xms_general: SHL CX,1 ; palabras -> bytes
RCL BP,1 ; BP era 0
PUSH BP ; tamaño bloque (parte alta)
PUSH CX ; tamaño bloque (parte baja)
MOV SI,SP
PUSH SS
POP DS ; DS:SI apuntando a la pila
MOV AH,0Bh ; función para mover EMB
CALL llama_XMS ; mover EMB (DS no importa)
ADD SP,16 ; equilibrar pila
CMP AL,1 ; ¿falló el controlador?
JE xms_proc_ok
MOV AX,0C81h ; anomalía general
xms_proc_ok: XCHG AH,AL ; colocar resultado
RET
procesa_xms ENDP
llama_XMS PROC
MOV DX,DS ; handle en DS (si utilizado)
CALL CS:xms_driver ; ejecutar función XMS
RET
llama_XMS ENDP
tam_proc_xms EQU $-OFFSET procesa_xms ; tamaño de esta rutina
; ------------ Rutina de gestión de memoria convencional. Se copiará
; sobre la de memoria EMS si se utiliza memoria conv.
procesa_con PROC
JC con_exit ; sistema inicializándose
MOV BX,16 ; bytes por párrafo
DIV BX ; AX = segmento, DX = offset
ADD AX,CS:mem_handle ; segmento de inicio datos
MOV DS,AX
MOV SI,DX ; DS:SI inicio de datos
DEC BP ; y ES:DI destino del buffer
JZ con_general ; es lectura
XCHG SI,DI ; escritura: intercambiar
XPUSH <DS,ES>
XPOP <DS,ES>
con_general: CLD
CMP CS:cpu386,ON
JE con_tr32bit
REP MOVSW
JMP con_tr_fin
con_tr32bit: SHR CX,1 ; nº palabras de 32 bit a mover
JCXZ con_trdo ; evitar desgracia
.386
PUSHAD
XOR EAX,EAX ; asegurar no violación
DEC AX ; de segmento-64K
AND ECX,EAX ; EAX = 0FFFFh
AND ESI,EAX
AND EDI,EAX
REP MOVSD ; transferencia ultrarrápida
con_trdo: POPAD ; POPAD falla en muchos 386
NOP ; arreglar fallo de POPAD
.8086
con_tr_fin: MOV AX,100h ; todo fue bien, por supuesto
con_exit: RET
procesa_con ENDP
tam_proc_con EQU $-OFFSET procesa_con ; tamaño de esta rutina
; ************ Datos no residentes para la instalación
ON EQU 1 ; constantes booleanas
OFF EQU 0
CONFIG EQU 1 ; TURBODSK ejecutado desde el CONFIG
AUTOEXEC EQU 2 ; TURBODSK se ejecuta desde el DOS
emm_id DB "EMMXXXX0" ; identificación del controlador EMS
nombre_tdsk DB "TDSK U: " ; para nombrar handle EMS y el MCB
modo DB ? ; CONFIG/AUTOEXEC
dosver DW ? ; versión del DOS
top_ram DW 0 ; segmento más alto de la RAM
segm_psp DW 0 ; segmento del PSP
segm_tdsk DW 0 ; segmento donde reside TURBODSK
segm_reubicar DW 0 ; segmento donde reubicar TURBODSK
ems4 DB OFF ; a ON si EMS versión 4.0+
cpu286 DB OFF ; a ON si 286 ó superior
idioma DB 0 ; selecciona el número de idioma (1..N)
idioma_seps DW ",." ; separadores de millares/decimales
param_unidad DB 0 ; letra de unidad (si indicada)
param_tdiscof DB OFF ; a ON si se define tamaño de disco
param_tdisco DW 0 ; tamaño de disco (si se define)
param_tsect DW 0 ; tamaño de sector (si se define)
param_tdir DW 0 ; número de entradas (si se define)
param_tcluster DW 0 ; tamaño de cluster (si se define)
param_a DB OFF ; a ON si indicado parámetro /A o /X
param_e DB OFF ; a ON si indicado parámetro /E
param_c DB OFF ; a ON si indicado parámetro /C
param_h DB OFF ; a ON si indicado parámetro /? o /H
param_m DB OFF ; a ON si indicado parámetro /M
param_i DB OFF ; Y ON si indicado parámetro /I
param_f DW 1 ; nº de FATs (1-2): parámetro /F=
codigo_tfno DW ? ; valor de /I= si se indica
tdisco DW ? ; tamaño de disco (Kb)
ultclus DW ? ; número más alto de cluster
tamcluster DW ? ; tamaño de cluster (bytes)
sdir DW ? ; sectores para directorio raiz
xms_kb DW 0 ; Kb de memoria XMS libres
ems_kb DW 0 ; Kb de memoria EMS libres
con_kb DW 0 ; Kb de memoria convencional libres
sector_cero LABEL BYTE
JMP SHORT botar
NOP
DB "TDSK 2.2" ; identificación del sistema
tsect DW 512 ; tamaño de sector por defecto
tcluster DB ? ; sectores por cluster
DW 1 ; sectores reservados
nfats DB ? ; número de FAT's
tdir DW ? ; número de entradas al dir. raiz
numsect DW ? ; nº sectores del disco (<=32Mb)
DB media ; descriptor de medio
sfat DW ? ; sectores por FAT
DW 1, 1 ; sectores por pista / cabezas
DD 0 ; sectores ocultos
DD 0 ; nº total de sectores (si > 32Mb)
DB 7 DUP (0) ; 7 bytes reservados
botar: DB 0EAh ; código de JMP FAR...
DW 0,0FFFFh ; ...FFFF:0000 (programa BOOT)
DB "(C)1992 CiriSOFT"; resto de primeros 64 bytes
DB ". Grupo Universi"
DB "tario de Informá"
DB "tica (GUI) - Val"
DB "ladolid (España)"; resto de primeros 128 bytes
dir_raiz DB "TURBODSK "; Directorio raiz: primera entrada
DB 8 ; etiqueta de volúmen
DB 10 DUP (0) ; reservado
DW ? ; hora (inicializado al formatear)
DW ? ; fecha
DW 0,0,0 ; últimos bytes (hasta 32)
; ------------ Areas de datos para información del disco virtual
; --- Código telefónico de países de habla
; hispana (mucha o poca).
info_paises DW 54 ; Argentina
DW 591 ; Bolivia
DW 57 ; Colombia
DW 506 ; Costa Rica
DW 56 ; Chile
DW 593 ; Ecuador
DW 503 ; El Salvador
DW 34 ; España
DW 63 ; Filipinas
DW 502 ; Guatemala
DW 504 ; Honduras
DW 212 ; Marruecos
DW 52 ; México
DW 505 ; Nicaragua
DW 507 ; Panamá
DW 595 ; Paraguay
DW 51 ; Perú
DW 80 ; Puerto Rico
DW 508 ; República Dominicana
DW 598 ; Uruguay
DW 58 ; Venezuela
DW 3 ; Latinoamérica
DW 0 ; fin de la información
; --- Código telefónico de países de habla alemana.
DW 41 ; Switzerland
DW 43 ; Austria
DW 49 ; Germany
DW 0 ; fin de la información
DW 0 ; no más idiomas
; ------------ Mensaje de no formateado
info_ins DB 10,1,10,"TURBODSK 2.2 - Unidad ",255
DB 10,1,10,"TURBODSK 2.2 - Laufwerk ",255
DB 10,1,10,"TURBODSK 2.2 - Drive ",0
info_ins2 DB ": sin formatear.",10,1,14,255
DB ": nicht formatiert.",10,1,14,255
DB ": unformatted.",10,1,14,0
; ------------ Cuadro de información
colA EQU 11+1*16 ; color del recuadro y los mensajes
colB EQU 15+1*16 ; color de los parámetros de operación del disco
colC EQU 15+0*16 ; color de lo que rodea a la ventana
colD EQU 10+1*16 ; color de «TURBODSK»
info_txt DB 10,2,12,3,1,colA,"┌",2,27,"─┬",2,25,"─┐",1,colC
DB 10,2,12,3,1,colA,"│ ",1,colD,"TURBODSK 2.2",1,colA
DB " - Unidad ",1,colB
DB 255
DB 10,2,10,3,1,colA,"┌",2,28,"─┬",2,28,"─┐",1,colC
DB 10,2,10,3,1,colA,"│ ",1,colD,"TURBODSK 2.2",1,colA
DB " - Laufwerk ",1,colB
DB 255
DB 10,2,12,3,1,colA,"┌",2,26,"─┬",2,25,"─┐",1,colC
DB 10,2,12,3,1,colA,"│ ",1,colD,"TURBODSK 2.2",1,colA
DB " - Drive ",1,colB
DB 0
inf_tsect DB ":",1,colA," │ Tamaño de sector:",1,colB," ",255
DB ":",1,colA," │ Sektorgröße:",2,8," ",1,colB," ",255
DB ":",1,colA," │ Sector size:",2,5," ",1,colB," ",0
inf_tdir DB " ",1,colA,"│",1,colC,10,2,12,3
DB 1,colA,"├",2,27,"─┤ Nº entradas raiz:",1,colB," "
DB 255
DB " ",1,colA,"│",1,colC,10,2,10,3
DB 1,colA,"├",2,28,"─┤ Verzeichniseinträge:",1,colB, " "
DB 255
DB " ",1,colA,"│",1,colC,10,2,12,3
DB 1,colA,"├",2,26,"─┤ Root entries:",2,4," ",1,colB," "
DB 0
inf_tdisco DB " ",1,colA,"│",1,colC,10
DB 2,12,3,1,colA,"│ Tamaño: ",1,colB," "
DB 255
DB " ",1,colA,"│",1,colC,10
DB 2,10,3,1,colA,"│ Größe:",2,10," ",1,colB," "
DB 255
DB " ",1,colA,"│",1,colC,10
DB 2,12,3,1,colA,"│ Size:",2,4," ",1,colB," "
DB 0
inf_tcluster DB " Kbytes ",1,colA,"│ Sectores/cluster:",1,colB," "
DB 255
DB " KB ",1,colA,"│ Sektoren/Cluster:",2,3," ",1,colB," "
DB 255
DB " Kbytes ",1,colA,"│ Sectors/cluster: ",1,colB," "
DB 0
inf_mem DB " ",1,colA,"│",1,colC,10
DB 2,12,3,1,colA,"│ Memoria: ",1,colB
DB 255
DB " ",1,colA,"│",1,colC,10
DB 2,10,3,1,colA,"│ Speicher: ",1,colB
DB 255
DB " ",1,colA,"│",1,colC,10
DB 2,12,3,1,colA,"│ Memory: ",1,colB
DB 0
inf_nclusters DB " ",1,colA,"│",1,colB," ",255
DB " ",1,colA,"│",1,colB," ",255
DB 1,colA,"│",1,colB," ",0
inf_tfat DB 1,colA," clusters (",1,colB,"FAT",255
DB 1,colA," Cluster (",1,colB,"FAT",255
DB 1,colA," clusters (",1,colB,"FAT",0
inf_tfat12 DB "12",0
inf_tfat16 DB "16",0
inf_final DB 1,colA,") ",1,colA,"│",1,colC,10,2,12,3
DB 1,colA,"└",2,27,"─┴",2,25,"─┘",1,colC,10
DB 255
DB 1,colA,")",2,5," ",1,colA,"│",1,colC,10
DB 2,10,3,1,colA,"└",2,28,"─┴",2,28,"─┘",1,colC,10
DB 255
DB 1,colA,") ",1,colA,"│",1,colC,10,2,12,3
DB 1,colA,"└",2,26,"─┴",2,25,"─┘",1,colC,10
DB 0
inf_mem_xms DB "Extendida (XMS)",255
DB "Erweitert (XMS)",255
DB "Extended (XMS) ",0
inf_mem_ems DB "Expandida (EMS)",255
DB "Expansion (EMS)",255
DB "Expanded (EMS) ",0
inf_mem_sup DB " Superior (UMB) ",255
DB "Oberer Sp. (UMB)",255
DB " Upper (UMB) ",0
inf_mem_con DB " Convencional ",255
DB " Konventionell",255
DB " Conventional ",0
; ------------ Errores «leves»
ERROR0 EQU 1
ERROR1 EQU 2
ERROR2 EQU 4
ERROR3 EQU 8 ; TURBODSK es muy flexible y se instala
ERROR4 EQU 16 ; casi de cualquier forma, aunque a
ERROR5 EQU 32 ; veces no se reserve memoria y sea
ERROR6 EQU 64 ; necesario volver a ejecutarlo después
ERROR7 EQU 128 ; desde el DOS para «formatearlo».
ERROR8 EQU 256
ERROR9 EQU 512
ERROR10 EQU 1024
ERROR11 EQU 2048
ERROR12 EQU 4096
ERROR13 EQU 8192
ERROR14 EQU 16384
ERROR15 EQU 32768
lista_err DW 0 ; palabra que indica los mensajes a imprimir
mens_cabec DB 2,8,3,0
tabla_mens DW m0,m1,m2,m3,m4,m5,m6,m7
DW m8,m9,m10,m11,m12,m13,m14,m15
cab_adv_txt DB 10,2,8,3,1,12
DB "Advertencias y/o errores de TURBODSK:",2,27," ",10,1,10
DB 255
DB 10,2,8,3,1,12
DB "Warnungen und Fehlermeldungen von TURBODSK:",2,27," ",10,1,10
DB 255
DB 10,2,8,3,1,12
DB "Warnings and errors of TURBODSK:",2,32," ",10,1,10
DB 0
m0 DB "- Error de sintaxis o parámetro fuera de rango. No se define el",10,2,8,3
DB " disco virtual ahora o no se modifica el que estaba definido. ",10
DB 255
DB "- Syntaxfehler oder ungültiger Parameter. Die RAM-Disk ist zur ",10,2,8,3
DB " Zeit nicht definiert bzw. wurde nicht modifiziert.",10
DB 255
DB "- Syntax error and/or parameter out of range. The Ramdisk is not",10,2,8,3
DB " defined now or the previous one is not modified.",2,14," ",10
DB 0
m1 DB "- El parámetro /C o la letra de unidad sólo han de emplearse",2,4," ",10,2,8,3
DB " desde la línea de comandos o el AUTOEXEC (les ignoraré).",2,6," ",10
DB 255
DB "- Parameter /C und Laufwerksbuchstaben können nur bei Aufrufen ",2,4," ",10,2,8,3
DB " von TURBODSK in der AUTOEXEC verwendet werden. ",2,6," ",10
DB 255
DB "- The /C parameter and the driver letter only can be used when ",10,2,8,3
DB " executing TURBODSK in command line or AUTOEXEC (now, ignored).",10
DB 0
m2 DB "- Para poder emplear memoria expandida hay que incluir la opción",10,2,8,3
DB " /A en CONFIG.SYS, con objeto de dejar espacio para las rutinas",10,2,8,3
DB " de control EMS: la memoria ocupada crecerá de 432 a 608 bytes.",10
DB 255
DB "- Zur Verwendung von EMS müssen Sie Option /A in CONFIG.SYS ",10,2,8,3
DB " setzen, um Speicher für die EMS-Unterstützung zu reservieren. ",10,2,8,3
DB " Dadurch erhöht sich der Speicherbedarf von 432 auf 608 Bytes. ",10
DB 255
DB "- In order to use expanded memory you must include the /A option",10,2,8,3
DB " in CONFIG.SYS, needed to reserve too space for the EMS support",10,2,8,3
DB " routines: the memory used will increase from 432 to 608 bytes.",10
DB 0
m3 DB "- El tamaño de sector es mayor que el definido en cualquier otro",10,2,8,3
DB " controlador de dispositivo: indíquese ese tamaño en CONFIG.SYS",10,2,8,3
DB " para que el DOS ajuste sus buffers (¡más consumo de memoria!).",10
DB 255
DB "- Die Sektorengröße ist größer als in allen anderen Treibern; ",10,2,8,3
DB " Sie müssen die Sektorgröße in CONFIG.SYS festlegen, da DOS die",10,2,8,3
DB " Puffergröße anpassen muß (höherer Speicherverbrauch) ",10
DB 255
DB "- Sector size is greater than any other defined by any device",10,2,8,3
DB " driver loaded: you must indicate the sector size in CONFIG.SYS",10,2,8,3
DB " because DOS need adjust buffers length (more memory spent!). ",10
DB 0
m4 DB "- La cantidad de memoria solicitada no existe, se ha rebajado. ",10
DB 255
DB "- Die gewünschte Speichergröße existiert nicht und wurde reduziert.",10
DB 255
DB "- The amount of memory requested does not exist: size reduced. ",10
DB 0
m5 DB "- No hay memoria XMS/EMS disponible: no la reservo; ejecute TDSK",10,2,8,3
DB " de nuevo desde el DOS para utilizar memoria convencional.",2,5," ",10
DB 255
DB "- Kein XMS/EMS verfügbar: Führen Sie TDSK nochmals von der ",10,2,8,3
DB " Kommandozeile aus und benutzen Sie konventionellen Speicher. ",2,5," ",10
DB 255
DB "- There is not XMS/EMS memory available: execute TDSK again from",10,2,8,3
DB " DOS command line or AUTOEXEC and use conventional memory.",2,5," ",10
DB 0
m6 DB "- No existe memoria XMS: pruebe a indicar EMS en su lugar (/A) ",10
DB 255
DB "- Kein XMS verfügbar: Versuchen Sie, EMS zu verwenden (/A). ",10
DB 255
DB "- There is not XMS memory available: try to request EMS (/A). ",10
DB 0
m7 DB "- No existe memoria EMS: pruebe a indicar XMS en su lugar (/E) ",10
DB 255
DB "- Kein EMS verfügbar: Versuchen Sie, XMS zu verwenden (/E). ",10
DB 255
DB "- There is not EMS memory available: try to request XMS (/E). ",10
DB 0
m8 DB "- Fallo del controlador XMS: imposible usar memoria extendida. ",10
DB 255
DB "- Fehler des XMS-Managers: Verwendung von XMS unmöglich. ",10
DB 255
DB "- XMS controller failure: imposible to use extended memory.",2,5," ",10
DB 0
m9 DB "- Fallo del controlador EMS: imposible usar memoria expandida. ",10
DB 255
DB "- Fehler des EMS-Managers: Verwendung von EMS unmöglich. ",10
DB 255
DB "- EMS controller failure: imposible to use expanded memory.",2,5," ",10
DB 0
m10 DB "- No existe suficiente memoria convencional para TURBODSK.",2,6," ",10
DB 255
DB "- Nicht genügend konventioneller Speicher für TURBODSK verfügbar.",2,6," ",10
DB 255
DB "- There is not sufficient conventional memory for TURBODSK.",2,5," ",10
DB 0
m11 DB "- Tamaño de sector incorrecto: lo establezco por defecto.",2,7," ",10
DB 255
DB "- Ungültige Sektorengröße angegeben, Vorgabewert wird verwendet.",2,7," ",10
DB 255
DB "- Incorrect sector size indicated: default values assumed.",2,6," ",10
DB 0
m12 DB "- Número de entradas incorrecto: lo establezco por defecto.",2,5," ",10
DB 255
DB "- Ungültige Anz. von Verzeichnisanträgen, Vorgabewert wird verwendet.",2,5," ",10
DB 255
DB "- Incorrect number of root entries: default value assumed.",2,6," ",10
DB 0
m13 DB "- Tamaño de cluster incorrecto: lo establezco por defecto.",2,6," ",10
DB 255
DB "- Ungültige Clustergröße angegeben, Vorgabewert wird verwendet.",2,6," ",10
DB 255
DB "- Incorrect cluster size indicated: default value assumed.",2,6," ",10
DB 0
m14 DB "- FATAL: fallo al liberar la memoria que ocupaba el disco.",2,6," ",10
DB 255
DB "- ACHTUNG: Freigabe des belegten Speichers gescheitert.",2,6," ",10
DB 255
DB "- FATAL: imposible to free memory alocated by TURBODSK.",2,9," ",10
DB 0
m15 DB "- Para discos de más de 32 Mb, hace falta un tamaño de sector de",10,2,8,3
DB " al menos 1024 bytes.",2,42," ",10
DB 255
DB "- Laufwerke mit mehr als 32 MB erfordern eine Sektorgröße",10,2,8,3
DB " von mindestens 1024 Bytes.",2,42," ",10
DB 255
DB "- In drives over 32 Mb, sector size must be at least 1024 bytes.",10
DB 0
; ------------ Errores «graves» (se imprime sólo el más importante)
err_grave DW 0 ; tipo de error grave a imprimir
err_grave_gen DB 10,1,10,"TURBODSK 2.2",10,1,12,0
e0 DB " - Este disco virtual requiere DOS 2.0 o superior.",10,255
DB " - Diese RAM-Disk erfordert mindestens DOS 2.0.",10,255
DB " - This Ram Disk needs at least DOS 2.0 or above.",10,0
e1 DB " - Instale primero TURBODSK desde CONFIG.SYS (con DEVICE).",10
DB " - Puede solicitar ayuda con TDSK /?",10
DB 255
DB " - Sie müssen zuerst TURBODSK von der CONFIG.SYS aus installieren",10
DB " (mit DEVICE). Hilfe erhalten Sie durch Eingabe von TDSK /?",10
DB 255
DB " - You must install first TURBODSK from CONFIG.SYS (using DEVICE).",10
DB " - Help is available with TDSK /?",10
DB 0
e2 DB " - La unidad indicada no es un dispositivo TURBODSK 2.2",10,255
DB " - Angegebener Laufwerksbuchstabe bezeichnet keinen Treiber von TURBODSK.", 10,255
DB " - Drive letter indicated does not is a TURBODSK 2.2 device.",10,0
e3 DB " - No pueden modificarse las características de operación de",10
DB " TURBODSK dentro de WINDOWS. Configúrelo con anterioridad.",10
DB 255
DB " - TURBODSK kann nicht innerhalb einer WINDOWS-Sitzung modifiziert werden.",10
DB " Sie müssen die Einstellungen vorher durchführen.",10
DB 255
DB " - Operational characteristics of disk can not be altered inside",10,2,4
DB " a WINDOWS session. You must configure TURBODSK before.",10
DB 0
; ------------ Ayuda
colorA EQU 15+4*16+128 ; color de «TURBODSK»
colorAm EQU 14+1*16 ; color del marco de fondo de «TURBODSK»
colorB EQU 13+1*16 ; color de la fecha
colorC EQU 10+1*16 ; color de sintaxis y parámetros
colorD EQU 15+1*16 ; color principal del texto
colorDm EQU 11+1*16 ; color del marco de fondo
colorDmx EQU 11+0*16 ; color de la esquina del marco
colorE EQU 11+1*16 ; color del nombre del autor
colorF EQU 14+1*16 ; color para llamar la atención
colorG EQU 12+1*16 ; color para la dirección de mail
colorH EQU 9+1*16 ; color para mensaje de dominio público
ayuda_txt LABEL BYTE
DB 10,3,1,colorDm," ",1,colorA," TURBODSK 2.2 ",1,colorAm,"▄"
DB 1,colorB,2,52," 30/4/95 ",1,colorDmx,"▄",10
DB 3,1,colorE," ",1,colorAm,2,14,"▀",1,colorE
DB " (C) 1995 Ciriaco García de Celis. ",1,colorG
DB "(Mail: ciri@gui.uva.es).",1,colorDm,"█",10
DB 3,1,colorE," (C) Grupo Universitario de Informática. "
DB "Apartado 6062, Valladolid (España). ",1,colorDm,"█",10
DB 3,1,colorH,2,18," ","* * * Programa de Dominio Público * * *"
DB 2,18," ",1,colorDm,"█",10
DB 3,1,colorD," Bienvenido al disco virtual ",1,colorF,"más rápido"
DB 1,colorD,", con soporte de memoria EMS, XMS y ",1,colorDm,"█",10
DB 3,1,colorD," convencional; redimensionable, fácil de usar. En DOS "
DB "5 ocupa 432-608 bytes. ",1,colorDm,"█",10
DB 3,1,colorC,2,77," ",1,colorDm,"█",10
DB 3,1,colorC," DEVICE=TDSK.EXE [tamaño [tsector "
DB "[nfich [scluster]]]] [/E] [/A|X] [/C] [/M] ",1,colorDm,"█",10
DB 3,1,colorC,2,77," ",1,colorDm,"█",10
DB 3,1,colorD," ",1,colorF,"■",1,colorD," El tamaño debe de estar en "
DB "el rango 8 - 65534 Kb; son válidos sectores de ",1,colorDm
DB "█",10
DB 3,1,colorD," 32 a 2048 bytes (en potencias de dos, aunque algún "
DB "sistema sólo los soporta ",1,colorDm,"█",10
DB 3,1,colorD," de 128 a 512). El número de ficheros del directorio "
DB "raiz debe estar entre 1 ",1,colorDm,"█",10
DB 3,1,colorD," y 65534 y el de sectores por cluster entre 1 y 255 ("
DB "en algún sistema han de ",1,colorDm,"█",10
DB 3,1,colorD," ser potencia de dos). Según el tamaño se ajustará "
DB "lo demás automáticamente. ",1,colorDm,"█",10
DB 3,1,colorD," ",1,colorF,"■",1,colorD," Se puede indicar ",1,colorC
DB "/E",1,colorD," para emplear memoria extendida XMS, y ",1,colorC
DB "/A",1,colorD," o ",1,colorC,"/X",1,colorD," para la ",1,colorDm
DB "█",10
DB 3,1,colorD," expandida EMS; aunque por defecto, TURBODSK utilizará"
DB " automáticamente estas ",1,colorDm,"█",10
DB 3,1,colorD," memorias si puede. Con la opción ",1,colorC,"/C"
DB 1,colorD," se pide el uso de memoria convencional. ",1,colorDm
DB "█",10
DB 3,1,colorD,32,1,colorF,"■",1,colorD," Tras ser instalado, se puede"
DB " ejecutar desde el DOS para cambiar el tamaño ",1,colorDm
DB "█",10
DB 3,1,colorD," del disco (perdiéndose los datos almacenados): con "
DB "un tamaño 0 se anula el ",1,colorDm,"█",10
DB 3,1,colorD," disco por completo, liberándose la memoria. "
DB "Utilizando memoria convencional ",1,colorDm,"█",10
DB 3,1,colorD," es ",1,colorF,"MUY",1,colorD," conveniente anular el "
DB "disco previo antes de modificar su tamaño. Con ",1,colorDm
DB "█",10
DB 3,1,colorD," más de un disco presente se pueden distinguir "
DB "indicando la letra de unidad. ",1,colorDm,"█",10
DB 3,1,1*16,"▄",1,colorDm,2,76,"▄█",10
DB 255
DB 10,3,1,colorDm," ",1,colorA," TURBODSK 2.2 ",1,colorAm,"▄"
DB 1,colorB,2,53," 30/4/95 ",1,colorDmx,"▄",10
DB 3,1,colorE," ",1,colorAm,2,14,"▀",1,colorE
DB " (C) 1995 Ciriaco García de Celis. ",1,colorG
DB "(Mail: ciri@gui.uva.es). ",1,colorDm,"█",10
DB 3,1,colorE," (C) Grupo Universitario de Informática. "
DB "Apartado 6062, Valladolid (Spanien). ",1,colorDm,"█",10
DB 3,1,colorC,2,78," ",1,colorDm,"█",10
DB 3,1,colorD," Willkommen bei der ",1,colorF,"schnelleren"
DB 1,colorD," RAM-Disk, die auch EMS-, XMS- und konven- ",1,colorDm,"█",10
DB 3,1,colorD," tionellen Speicher unterstützt; größenverstellbar,"
DB " einfache Bedienung wie ",1,colorDm,"█",10
DB 3,1,colorD," bei DOS-RAM-Disks, erfordert maximal 608 Bytes. "
DB 1,colorH," Das Programm ist Freeware!. ",1,colorDm,"█",10
DB 3,1,colorC,2,78," ",1,colorDm,"█",10
DB 3,1,colorC," DEVICE=TDSK.EXE [Größe [Sekt. [Dateien [Cluster]]]]"
DB " [/E] [/A|X] [/C] [/M] ",1,colorDm,"█",10
DB 3,1,colorC,2,78," ",1,colorDm,"█",10
DB 3,1,colorD," ",1,colorF,"■",1,colorD," Zulässig für Größe: 8-65534 KB;"
DB " zulässig für Sektoren: 32-2048 Bytes (2er- ",1,colorDm,"█",10
DB 3,1,colorD," Potenz), obwohl einige DOS-Versionen nur 128,"
DB " 256 und 512 unterstützen. ",1,colorDm,"█",10
DB 3,1,colorD, " Zulässige Anzahl der Verzeichniseinträge: "
DB "1-65534, Sektoren/Cluster: 1-255 ",1,colorDm,"█",10
DB 3,1,colorD," (einige Systeme erforden 2er-Potenzen)."
DB " Nur die Größenangabe ist notwendig. ",1,colorDm,"█",10
DB 3,1,colorD," ",1,colorF,"■",1,colorD," Bei ",1,colorC, "/E",1,colorD
DB " wird XMS, bei ",1,colorC, "/A",1,colorD," oder ",1,colorC,"/X",1,colorD
DB " wird EMS, und bei ",1,colorC, "/C",1,colorD," wird konventioneller ",1,colorDm
DB "█",10,3,1,colorD, " Speicher benutzt. Normalerweise versucht TURBODSK,"
DB " XMS oder EMS zu benutzen. ",1,colorDm,"█",10
DB 3,1,colorD,32,1,colorF,"■",1,colorD," Nach der Installation in"
DB " CONFIG.SYS sollte TURBODSK später nochmal ausge- ",1,colorDm,"█",10
DB 3,1,colorD," führt werden, um die Größe zu ändern (den"
DB " Speicherverbrauch); dadurch wird ",1,colorDm,"█",10
DB 3,1,colorD," der Inhalt der RAM-Disk gelöscht. Durch Größe 0 wird"
DB " die RAM-Disk komplett ",1,colorDm,"█",10
DB 3,1,colorD," gelöscht, bei Verwendung von konventionellem Speicher"
DB " kann eine Annulierung ",1,colorDm,"█",10
DB 3,1,colorF," VOR",1,colorD," der Größenveränderung sinnvoll sein. Wenn mehrere"
DB " TURBODSK's installiert ",1,colorDm,"█",10
DB 3,1,colorD," sind, können diese durch ihren Laufwerksbuchstaben"
DB " angesteuert werden. ",2,6," ",1,colorDm,"█",10
DB 3,1,1*16,"▄",1,colorDm,2,77,"▄█",10
DB 255
DB 10,3,1,colorDm," ",1,colorA," TURBODSK 2.2 ",1,colorAm,"▄"
DB 1,colorB,2,52," 4/30/95 ",1,colorDmx,"▄",10
DB 3,1,colorE," ",1,colorAm,2,14,"▀",1,colorE
DB " (C) 1995 Ciriaco Garcia de Celis. ",1,colorG
DB "(Mail: ciri@gui.uva.es).",1,colorDm,"█",10
DB 3,1,colorE," (C) Grupo Universitario de Informática. "
DB "Apartado 6062, Valladolid (Spain). ",1,colorDm,"█",10
DB 3,1,colorC,2,77," ",1,colorDm,"█",10
DB 3,1,colorD," Welcome to the ",1,colorF,"faster",1,colorD
DB " RAM disk!, which includes support of both EMS, XMS "
DB 1,colorDm,"█",10
DB 3,1,colorD," and conventional memory. Full resizeable, easy to "
DB "use like DOS RAM disks, ",1,colorDm,"█",10
DB 3,1,colorD," in DOS 5.0 it takes only about 432-608 bytes. "
DB 1,colorH,"This program is freeware!.",2,4," ",1,colorDm,"█",10
DB 3,1,colorC,2,77," ",1,colorDm,"█",10
DB 3,1,colorC," DEVICE=TDSK.EXE [size [s_sector [files [s_cluster]]]]"
DB " [/E] [/A|X] [/C] [/M] ",1,colorDm,"█",10
DB 3,1,colorC,2,77," ",1,colorDm,"█",10
DB 3,1,colorD," ",1,colorF,"■",1,colorD," Size must be in the range "
DB "8 - 65534 Kb; are valid sectors from 32 to 2048 ",1,colorDm
DB "█",10
DB 3,1,colorD," bytes (in power of 2), though some DOS versions only "
DB "support 128, 256 & 512 ",1,colorDm,"█",10
DB 3,1,colorD," bytes. Files of root may be 1 to 65534 and sectors "
DB "by cluster can vary from ",1,colorDm,"█",10
DB 3,1,colorD," 1 to 255 (some systems need a power of 2). Only the "
DB "size is necessary.",2,6," ",1,colorDm,"█",10
DB 3,1,colorD," ",1,colorF,"■",1,colorC," /E",1,colorD," force the "
DB "use of XMS memory, ",1,colorC,"/A",1,colorD," and ",1,colorC
DB "/X",1,colorD," indicates the use of EMS memory ",1,colorDm
DB "█",10
DB 3,1,colorD," and ",1,colorC,"/C",1,colorD," the conventional. By "
DB "default, TURBODSK try to use XMS or EMS memory. ",1,colorDm
DB "█",10
DB 3,1,colorD," ",1,colorF,"■",1,colorD," After been installed in "
DB "CONFIG.SYS, TURBODSK must be executed in AUTOEXEC ",1,colorDm
DB "█",10
DB 3,1,colorD," or command line in order to vary the disk size (the "
DB "amount of memory used); ",1,colorDm,"█",10
DB 3,1,colorD," this operation erase the disk contents. A size 0 "
DB "can be used to complitely ",1,colorDm,"█",10
DB 3,1,colorD," anulation of the disk freezen the memory: when using "
DB "conventional memory it ",1,colorDm,"█",10
DB 3,1,colorD," is useful to annulate the disk ",1,colorF,"BEFORE"
DB 1,colorD," resizing. When more than one TURBODSK ",1,colorDm
DB "█",10
DB 3,1,colorD," is installed, they can be identified using in "
DB "adition the drive letter.",2,5," ",1,colorDm,"█",10
DB 3,1,1*16,"▄",1,colorDm,2,76,"▄█",10
DB 0
tam_a_trabajo EQU 4096 ; tamaño del mayor sector soportado
; por TURBODSK o del mayor texto
; a imprimir
area_trabajo EQU $
DB tam_a_trabajo DUP (?)
_PRINCIPAL ENDS
tam_pila EQU 2048 ; 2 Kb de pila son suficientes
_PILA SEGMENT STACK 'STACK'
DB tam_pila DUP (?)
_PILA ENDS
END main
