re-organize

push
2026-06-16 15:59:24 +00:00 · 2022-08-21 04:07:57 -05:00
parent 74dbd37f30
commit 4b9382ddbc
1392 changed files with 607600 additions and 607600 deletions
@@ -0,0 +1,59 @@
+SEG_A   segment byte public
+        assume cs:seg_a,ds:seg_a
+        org 100h
+
+MULTIPLEXOR proc far
+start:
+        jmp BEGIN
+MULTIPLEXOR endp
+
+; Subroutine work on the DOS Int2Fh (Multiplexor)
+; It stay rezident and calling  Old Int2Fh, if don't call FnBAh.
+; Functions (ah=BAh):           ³   Return:
+; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
+;        al=0                   ³   al=0ffh, bl=READ_ON
+;        al=1                   ³   bl=READ_ON=1
+;        al=2                   ³   bl=READ_ON=0
+;        al=3                   ³   Calling WRITE; bl=READ_ON=1
+
+ADM     proc
+        cmp ah,byte ptr cs:ADM_INT
+        je ADM_WORK
+            db 0eah
+INT2F_JUMP  db 0,0,0b2h,89h
+ADM_WORK:
+        cmp al,0
+        jne ADM_WORK1
+        mov al,0ffh
+        IRET
+ADM_WORK1:
+        push dx
+        push ax
+        mov dl,al
+        mov ah,2
+        int 21h
+        pop ax
+        pop dx
+        IRET
+ADM     endp
+
+ADM_INT   db 93h
+
+REZIDENT:
+BEGIN:
+                               ; Init interrupt vectors
+        mov ax,352fh
+        int 21h
+        mov word ptr cs:INT2F_JUMP,bx
+        mov word ptr cs:INT2F_JUMP+2,es
+        mov al,2fh
+        mov dx,offset ADM
+        mov ah,25h
+        int 21h
+        mov ah,093h
+        mov al,'*'
+        int 2fh
+        mov dx,offset REZIDENT
+        int 27h
+SEG_A   ends
+        end    start