TRUE  EQU 1
CONSTANT EQU 100
PERVERTED EQU 0
IDEAL
P286N
MODEL TINY
CODESEG
STARTUPCODE
SMART
    MOV AX , CS
    ADD AH , 010H
    MOV DS , AX
    MOV ES , AX
    XOR AX , AX
    MOV CX , 0FFFFH
    MOV DI , CX
;   SHR CX , 1
    REP STOSB
    MOV AH , 0A0H
    MOV DS , AX
    MOVAX , 00013H
    INT 010H
    XOR AL , AL
    MOV CX , 0C0H *  3
    MOV DX , 03C8H
    OUT DX , AL
    INC DX
    REP OUTSB
@@1:
    OUT DX , AL
;   OUTSB
;   OUSB
    ROR AL , 1
    OUT DX , AL
    ROL AL , 1
;   OUT DX , AL
    OUTSB
    INC AL
    CMP AL , 040H
    JNZ @@1
    XOR CX , CX
    MOV DI , CX
    DEC CX
    MOV AL , CL
    MOV CX , CONSTANT
    CLD
    mov di , 199*320+64
@@2:STOSB
    sub DI , 100*320
    stosb
    add di , 100*320
    LOOP @@2
@@3:CMP BH , 0FAH
    JAE @@4
    MOV AL , [ BX  ]
    CMP AL , 0C0H
    JB @@4
    DEC AL
    MOV [ BX - 1  ] , AL
    MOV [ BX + 1  ] , AL
;   MOV [ BX - 321  ] , AL
    MOV [ BX - 320  ] , AL
    MOV [ BX - 319  ] , AL
;   MOV [ BX - 641  ] , AL
;   MOV [ BX - 640  ] , AL
    MOV [ BX - 639  ] , AL
IF PERVERTED
    MOV [ BX + 321  ] , AL
    MOV [ BX + 320  ] , AL
    MOV [ BX + 319  ] , AL
    MOV [ BX + 641  ] , AL
    MOV [ BX + 640  ] , AL
    MOV [ BX + 639  ] , AL
ENDIF
@@4 : MOV AL , [  BYTE ES : BX ]
    OR    [ BX ] ,  AL
    ADD BX , DX
    INC DX
    OR BX , BX
    JNZ @@3
    IN AL , 060H
    CMP AL , 080H
    JA @@3
    MOV AL , 003H
    INT 010H
    RETN
END