First commit 09/12/1994

2021-09-03 17:43:05 +02:00
commit 89a9bade50
18 changed files with 6079 additions and 0 deletions
--- a/L_PCX.ASM
+++ b/L_PCX.ASM
@ -0,0 +1,72 @@
+
+_TEXT           SEGMENT BYTE PUBLIC 'CODE'
+
+        ASSUME  CS:_TEXT
+
+                PUBLIC  _VUELCA_PANTALLA
+
+_VUELCA_PANTALLA        PROC    NEAR
+                PUSH    BP
+                MOV     BP,SP
+                PUSH    AX
+                PUSH    BX
+                PUSH    CX
+                PUSH    DI
+                PUSH    DS
+                PUSH    DX
+                PUSH    ES
+                PUSH    SI
+
+                LDS     SI,[BP+4]
+                MOV     AX,0A000h
+                MOV     ES,AX
+                MOV     DI,0
+
+                MOV     AH,00010001b
+                MOV     DX,480
+                CLD
+
+SIG_LINEA:      MOV     BX,4
+
+SON_4_PLANOS:   PUSH    AX
+                PUSH    DX
+                MOV     DX,3C4H         ;MASCARA DE PLANOS
+                MOV     AL,2
+                OUT     DX,AX
+                POP     DX
+                POP     AX
+
+                MOV     CX,80
+LINEA:          MOV     AL,ES:[DI]
+                MOVSB
+                CMP     SI,0
+                JNZ     MISMO_SEG
+                MOV     BP,DS
+                ADD     BP,1000h
+                MOV     DS,BP
+MISMO_SEG:      LOOP    LINEA
+                SUB     DI,80
+                ROL     AH,1
+                DEC     BX
+                JNZ     SON_4_PLANOS
+                ADD     DI,80
+                DEC     DX
+                JNZ     SIG_LINEA
+
+                POP     SI
+                POP     ES
+                POP     DX
+                POP     DS
+                POP     DI
+                POP     CX
+                POP     BX
+                POP     AX
+                POP     BP
+                RET
+_VUELCA_PANTALLA        ENDP
+
+_TEXT           ENDS
+
+                END
+
+