A
;       This is file FCON200.PCH
;
;       Use it only on FCONSOLE.DEV version 2.00
;
;       To use it: DEBUG FCONSOLE.DEV <FCON200.PCH 
;
;       When this command is given, this file will be echoed to your screen.
;       Under DOS 2, the debugger may give error messages for the lines
;       starting with semicolons.  This is OK!  Errors for other lines are not!
 
A
;       Patch A 11/02/86:
;               Chg letter in scroll recall status.
 
A0FA9
DB 'A'
 
A
;       Patch A (Part 1) 11/02/86:
;               Fix Compaq scrn mode initialization table #.
;               Symptoms:
;                       Screen comes up with 8 pixel rows 
;                       per char instead of 14.
 
A81D0
ES: MOV BYTE [15C8],AL
ES: MOV BYTE [1518],AL
RET
 
AA019
CALL 81D0
NOP
 
A
;       Patch A (Part 2) 11/02/86:
;               Fix to not find "Compaq" on non-"Compaq".
;               Symptoms:
;                       Screen display comes up distorted.
 
A81D9
MOV DX,SI
MOV SI,F0A4
MOV AX,DX
AND AL,BF
CMP AX,SI
RET
 
A9FE1
CALL 81D9
JNZ A023
 
A
;       Patch A (Part 3) 11/02/86:
;               Fix LF at FF,FF to roll to 0,FF.
;               Symptoms:
;                       Screen writing does not appear on screen.
 
A35F9
JZ 3614
CMP DH,[1ED6]
JB 3644
JBE 361D
CMP DH,[1514]
JAE 3614
MOV AX,[DI+2354]
ADD AX,[1516]
JMP 3398
 
A3618
DEC DH
JMP 338E
 
A
;       Patch A (Part 4) 11/02/86:
;               Fix so changing FANSI-CRTTABLE resets page base to zero.
;               Symptoms:
;                       Alt-Ctrl-LessThan/Alt-Ctrl-GreaterThan 
;                       cause old data to appear.
 
A81E5
CALL 6DDE
JMP 665C
 
A616C
CALL 81E5
 
A
;       Patch A (Part 5) 11/02/86:
;               Fix FANSI-QUICK to use 16KB at most.
;               Fix to have at least one page for each display.
 
A81EB
CMP BYTE [DI+1BA4],0
JNZ 81FB
MOV AX,2000
CMP SI,AX
JBE 81FB
MOV SI,AX
AND SI,SI
JNZ 8202
MOV SI,0800
MOV [DI+23C6],SI
RET
 
AA0BC
CALL 81EB
NOP
 
A
;       Patch B 11/07/86:
;               Chg letter in scroll recall status.
 
A0FA9
DB 'B'
 
A
;       Patch B (Part 1) 11/07/86:
;               Fix CGA cursor shape routine for slow blinking cursor.
;
 
A8207
MOV AX,CX
AND AX,1F1F
MOV DH,08
RET
 
A6B88
CALL 8207
NOP
CMP AL,DH
JA 6B94
CMP AH,DH
JBE 6B96
MOV DH,0E
 
A
;       Patch B (Part 2) 11/07/86:
;               Fix palette setting routine to use mono colors only 
;                       for FANSI-NOCOLOR.
 
A820F
CMP BYTE [1541],0
JZ 8223
MOV DL,AL
AND AL,7
JZ 821E
MOV AL,7
AND DL,F8
OR AL,DL
JMP 8478
 
A84B3
CALL 820F
 
A
;       Patch B (Part 3) 11/07/86:
;               Requires Patch A (Part 1)
;               Fix Compaq external monitor scrn mode initialization table #.
;               Symptoms:
;                       Using external monitor on Compaq causes 
;                       distorted screen.
 
A8226
CMP DX,SI
JNZ 81D0
RET
 
A9FFD
MOV AX,CS
;       Watch out for bug in Compaq debugger: 
;       It does not assemble following instruction correctly!
;               MOV ES,AX 
;       Use     DB 8E,C0        instead
DB 8E,C0
 
AA019
ES: MOV [15C0],AL
CALL 8226
NOP
 
A
;       Patch B (Part 4) 11/07/86:
;               Fix /R=nn to not clobber 0000:0002.
;               Symptoms:
;                       NMI interrupt handler may fail and cause hanging.
 
A31A6
MOV AX,DS
MOV ES,AX
MOV CX,0004
MOV DI,1616
MOV SI,00DE
REPZ
MOVSW
CALL 312D
 
A
;       Patch B (Part 5) 11/07/86:
;               Fix BIOS print screen flag saved in alternate printer.
 
A7F91
MOV AX,0040
MOV ES,AX
JZ 7F9A
MOV AH,FF
 
A
;       Patch B (Part 6) 11/07/86:
;               Fix FANSI-TIMEKEYS.
;               Symptoms:
;                       FANSI-TIMEKEYS always acts reset.
 
A01AC
DW 2AF5
 
A
;       Patch B (Part 7) 11/07/86:
;               Fix scroll lock/num lock hanging problems 
;                       caused by some computers' incompatible INT 15 
;                       handlers which left interrupts off.
;                       May have caused problems with serial/modem programs.
        
A822B
MOV AL,02
STC
INT 15
STI
RET
 
A517F
CALL 822D
 
A4C43
MOV AH,91
CALL 822B
 
A5BDA
MOV AH,90
CALL 822B
 
A4F0C
JNZ 4F1B
 
A4F1A
STI
RET
 
A4F28
JMP 4F18
 
A
;       Patch C 11/26/86:
;               Chg letter in scroll recall status.
 
A0FA9
DB 'C'
 
A
;       Patch C (Part 1) 11/26/86:
;               Fix IL/DL/RI/SD/SU to clear one line region.
;               Symptoms:
;                       Some one line regions do not erase properly.
 
A3505
CALL 342F
MOV AH,DH
DEC DH
DEC DL
 
A
;       Patch C (Part 2) 11/26/86:
;               Fix so setting FANSI-CRTTABLE does not unhide cursor.
;               Symptoms:
;                       Alt-Ctrl-LessThan/Alt-Ctrl-GreaterThan
;                       change cursor shape and cause it to show.
 
A8232
MOV DI,[234E]
JMP [DI+230E]
 
A6181
CALL 8232
 
A
;       Patch C (Part 3) 11/26/86:
;               Fix EMS recall allocation to be zero when no room left.
;               Symptoms:
;                       Setting FANSI-RECALL when no EMS space is left
;                       causes it to think 6555 lines are allocated.
 
A3065
XOR DX,DX
AND BX,BX
JZ 3074
DEC BX
JNZ 305D
NOP
NOP
NOP
NOP
NOP
NOP
 
A
;       Patch C (Part 4) 11/26/86:
;               Fix key repeat rate to work in local modes
;               when FANSI-SUPERKEY is reset
 
A823A
CLI
CALL [1768]
STI
JNZ 8245
CALL 4B28
RET
 
A810F
CALL 823A
 
A
;       Patch C (Part 5) 11/26/86:
;               Fix border on EGD in modes 13 and 14 when EGDBORDER is reset.
;               Symptoms:
;                       Border does not show in modes 13 and 14.
 
A8987
CMP AH,0E
 
A
;       Patch C (Part 6) 11/26/86:
;               Chg so that setting screen display mode sets Gsets to default.
;               Symptoms:
;                       Cannot use MODE CO80 to clear alternate charsets.
 
A8246
CALL 2AFD 
JMP 29C7
 
A61DC
CALL 8246
 
A2D15
CALL 8246
 
A
;       Patch C (Part 7) 11/26/86:
;               Fix so that total scan lines are used even when
;                       fonts are automatically loaded at mode change time.
 
A824C
DW 0000
MOV [23C2],AX
MOV [814C],AX
RET
 
A87AA
CALL 824E
 
A8787
MOV [814C],AX
 
A891E
MOV AX,[814C]
 
A
;       Patch C (Part 8) 11/26/86:
;               Fix so that Compaq color table is CRTTABLE 0, not 1.
;               Symptoms:
;                       Alt-Ctrl-GreaterThan/Alt-Ctrl-LessThan work backwards.
 
AA007
JBE A00B
 
A
;       Patch C (Part 9) 11/26/86:
;               Fix to not include device name as parameters when
;                       path includes minus sign
;               Symptoms:
;                       Strange character sets in graphics modes.
 
A8255
JCXZ 8259
MOV BL,0A
CALL 9D27
JZ 8259
RET
 
A9D4B
RET
NOP
 
A9D19
MOV BX,0010
CALL 9D27
JNZ 9D59
CALL 8255
JMP 9D4D
NOP
 
A825F
ES: LES SI,[SI+0012]
MOV DI,SI
CALL 9CFF
CMP AL,0D
JZ 8277
INC SI
CMP AL,5C
JZ 8263
CMP AL,2E
JZ 8263
JMP 8265
MOV SI,DI
RET
 
A9D60
CALL 825F
NOP
 
A
;       Patch D 12/13/86:
;               Chg letter in scroll recall status.
 
A0FA9
DB 'D'
 
A
;       Patch D (Part 1) 12/13/86:
;               Fix FANSI-CLICKREP to not repeat shift/lock clicks.
 
A516D
JMP 517B
MOV AL,[155F]
OR [1B76],AL
JMP 46B7
NOP
NOP
 
A4C40
CALL 516F
 
A
;       Patch D (Part 2) 12/13/86:
;               Fix FANSI-RECALL set to zero causing hanging.
 
A827A
MOV [151A],AX
MOV [1B8E],AL
RET
 
A3158
CALL 827A
 
A
;       Patch D (Part 3) 12/13/86:
;               Fix so lock status lights on 386 work.
;               Symptoms:
;                       Locking lights did not light.
 
A8281
PUSH CX
MOV CX,0077
CALL [24A2]
POP CX
RET
 
A8293
CALL 8281
TEST BYTE [1738],30
RET
 
A7DFD
MOV CX,0064
CALL 8293
NOP
NOP
 
A
;       Patch D (Part 4) 12/13/86:
;               Fix enhanced mode scroll of nonleft justified area.
;               Symptoms:
;                       Freelance screens messed up.
 
A829C
ADD AL,CL
ADC AH,0
RET
 
A8D83
CALL 829C
NOP
 
A
;       Patch D (Part 5) 12/13/86:
;               Fix number of mode F&10 pages when FANSI-DBLROWS is set.
;               Symptoms:
;                       Freelance screens messed up.
 
A82A2
CMP BYTE [1511],1
JNZ 82AE
CMP BYTE [23D5],0
RET     
 
A5F03
CALL 82A2
NOP
NOP
 
A
;       Patch D (Part 6) 12/13/86:
;               Fix to preserve AX across INT 10H, AH=13H.
;               Symptoms:
;                       Freelance screens messed up.
 
A82AF
PUSH AX
JMP 640E
 
A82B3
POP CX
POP BX
POP AX
RET
 
A1454
DW 81AF
 
A14F6
DW 81AF
 
A1550
DW 81AF
 
A15AA
DW 81AF
 
A8438
DW 81AF
 
A6499
JMP 82B3
 
A641D
MOV ES,[BP+10]
 
A
;       Patch D (Part 7) 12/13/86:
;               Fix so that does not examine next line when no parameters.
;               Symptoms:
;                       Extra parameters read from next line in CONFIG.SYS.
 
A82B7
CALL 9CFF
CMP AL,0D
JZ 82C0
CMP AL,0A
RET
 
A8265
CALL 82B7
NOP
NOP
 
A9D64
CALL 82B7
NOP
NOP
 
A9D74
CALL 82B7
NOP
NOP
 
A
;       Patch D (Part 8) 12/13/86:
;               Fix to not hang waiting for vertical retrace on autoswitch EGAs.
;               Symptoms:
;                       Hanging with screen blank.
 
A82C1
MOV AL,[836C]
AND AL,AL
JZ 82CD
IN AL,DX
AND AL,08
JZ 82C8
RET
NOP
 
A8494
NOP
CALL 82C1
CLI
IN AL,DX
 
A
;       Patch D (Part 9) 12/13/86:
;               Fix KPNM to be effective.
;               Symptoms:
;                       KPNM does not work.
 
A3E99
JMP 3E93
 
A
;       Patch E 12/26/86:
;               Chg letter in scroll recall status.
 
A0FA9
DB 'E'
 
A
;       Patch E (Part 1) 12/26/86:
;               Fix assignment of extended keycodes in macros
;               to correctly allocate memory required.
;               Symptoms:
;                       Mostly hanging but sometimes strange macros.
 
A42FE
AND AX,AX
 
A
;       Patch E (Part 2) 12/26/86:
;               Fix to use exact same length as IBM EGA for graphics modes.
;               Symptoms:
;                       Freelance screens messed up.
 
A0FFD
DW 4000
DW 4000
DW 4000
DW 0002
DW 4000
DW 4000
DW 4000
DW 1000
DW 1000
DW 2000
DW 4000
DW 8000
DW 8000
DW 8000
DW 8000
 
A8640
JMP 865B
 
A
;F8642 L19 90
 
A830F
CMP BYTE [23D5],0
JNZ 831C
MOV AX,[15A8]
JMP 2A1D
MOV AX,[23B8]
JMP 2A2A
 
A2A1A
JMP 830F
 
A
;       Patch E (Part 3) 12/26/86:
;               Chg to reduce stack requirements in timer interrupt.
;                   Reduce problems with multiple resident programs.
;                   Only use if you experience automatic exits from 1-2-3!
;               NOTE: 
;                   BECAUSE THIS IS *NOT* A BUG IN FANSI-CONSOLE,
;                   THIS PATCH IS A *COMMENT* HERE.
;                   TO REALLY APPLY THIS PATCH, 
;                   YOU MUST USE THE FILE 123V200.PCH 
;                   OR REMOVE THE SEMICOLONS HERE!
 
A82CF
;DW 0
 
A82D1
;MOV AX,SS
;MOV DX,SP
;MOV DI,CS
;CLI
;CMP AX,DI
;JZ 82E9
;CS: CMP BYTE [81CF],0
;JNZ 82E9
;MOV SS,DI
;MOV SP,21FE
;CS: PUSH [81CF]
;CS: MOV BYTE [81CF],1
;STI
;PUSHF
;CS: CALL FAR [24B8]
;JMP 8047
 
A82FE
;POP DS
;POP AX
;CLI
;CS: POP [81CF]
;MOV SS,AX
;MOV SP,DX
;STI
;POP DI
;POP DX
;POP AX
;IRET
 
A8041
;PUSH AX
;PUSH DX
;PUSH DI
;JMP 82D1
 
A8147
;JMP 82FE
 
A
;       Patch E (Part 4) 12/26/86:
;               Fix INT 10H, AH=0EH, and AH=13H
;               to calculate correct base in enhanced modes.
;               Symptoms:
;                       Freelance screens messed up.
 
A9092
CALL 8E3B
 
A
;       Patch E (Part 5) 12/26/86:
;               Fix INT 10H, AH=13H to use correct reg for string type.
;               Symptoms:
;                       Freelance screens messed up.
 
A642B
XCHG AL,BH
 
A
;       Patch F 12/31/86:
;               Chg letter in scroll recall status.
 
A0FA9
DB 'F'
 
A
;       Patch F (Part 1) 12/31/86:
;       Requires patch D (Part 8):
;               Fix to not miss other interrupts while chging palettes on EGAs.
;               Symptoms:
;                       Serial/communications program misses incoming chars.
 
A82CD
RET
NOP
 
A8495
CALL 82C1
CLI
IN AL,DX
 
A
;       Patch F (Part 2) 12/31/86:
;       Requires patch E (Part 2):
;               Fix patch E part 2 to not do strange things on non-EGAs.
 
A
;F8642 L19 90
 
A830F
CMP BYTE [23D5],0
JNZ 831C
MOV AX,[15A8]
JMP 2A1D
MOV AX,[23B8]
JMP 2A2A
 
A2A1A
JMP 830F
 
A
;       Patch G 01/18/87:
;               Chg letter in scroll recall status.
 
A0FA9
DB 'G'
 
A
;       Patch G (Part 1) 01/18/87:
;               Fix INT 10 AH=10,AL=1,for EGA's to not clobber SI.
;               Symptoms:
;                       Strange behavior
 
A8322
AND AL,20
ROR AL,1
RET
 
A8327
POP SI
JMP 848B
 
A8A7E
CALL 8322
PUSH SI
 
A8A9A
JMP 8327
 
A
;       Patch G (Part 2) 01/18/87:
;               Fix INT 10, AH=11,AL=30,BH=0 to return INT 1F, not 1D.
;               Symptoms:
;                       Complaints about no EGA.
 
A610E
ES: LES BP,[007C]
 
A
;       Patch G (Part 3) 01/18/87:
;               Fix so that keystrokes are not missed on high speed ATs.
;               (Removes part of Patch D Part 3).
;
;       Patch G (Part 4) 01/18/87:
;               Fix so we do not violate assumption that INT 16s do
;               happen during INT 10s.
;               (They will anyway, but not because of us!)      
;               (Wordperfect Tutor, XRAY)
;               Symptoms:
;                       Hanging when keys are pressed
 
A7DC7
MOV CX,1000
IN AL,64
AND AL,02
 
A828B
PUSH SI
CALL 5BA0
STI
POP SI
RET
NOP
 
A5CDE
NOP
CALL 828B
 
A
;       Patch H 03/23/87:
;               Chg letter in scroll recall status.
 
A0FA9
DB 'H'
 
A
;       Patch H (Part 1) 03/23/87:
;               Fix so that printing highlighted lines works when
;                       FANSI-SAVEATTR is reset.
;               Symptoms:
;                       Only every other character gets printed.
 
A832B
ES: LODSB
ES: CMP BYTE [6],0
JZ 8336
INC SI
RET
 
A5608
CALL 832B
 
A
;       Patch H (Part 2) 03/23/87:
;               Fix mode limiting to allow mono to be used inspite of 
;                       equipment flag setting.
;               (Periscope/Codeview on two screens should now work).
;               (MODE MONO should now work).
 
A5D6C
JNZ 5D74
AND DL,08
OR DL,07
NOP
 
A5D81
XOR DI,DI
MOV AL,DH
AND AL,07
CMP AL,07
JE 5D8E
MOV DI,0002
MOV AL,DH
CMP AL,07
JBE 5DAB
CMP AL,12
JA 5DA3
CMP AL,10
JA 5DAB
CMP BYTE [1BA4+DI],00
JNZ 5DAB
MOV DH,07
AND DI,DI
JZ 5DAB
MOV DH,03
MOV AL,DH
NOP
 
A
;       Patch H (Part 3) 03/23/87:
;               Fix to initialize correctly with DOS 3.3 instead of 
;                       not linking in FCON device.
;               (FANSISET/FLAYOUT/DEJAVU can now "find" FANSI-CONSOLE)
;       See also Patch I (Part 4)!
 
A0100
DW 001C
 
A9AFC
JMP 9B11
 
A
;F9AFE L13 90   
 
A
;       Patch H (Part 4) 03/23/87:
;               Add support for F11 and F12.
 
A0710
DW 4BEF,4BEF,4BEF
 
A08B0
DW 4BEF,4BEF,4BEF
 
A0AB8
DB '/',56
DW 8500,8600 
 
A0B88
DB '/',56
DW 8700,8800 
 
A0C5A
DW 8900,8A00 
 
A0D2A
DW 8B00,8C00 
 
A0DF8
DB '/',56
DW 8500,8600 
 
A0594
DB 58
 
A
;       Patch H (Part 5) 03/23/87:
;               Chg for bug in AST keyboards.
;               (Cursor keys generate numerics)
 
A8337
CLI
OR BYTE [1738],20
RET
 
A833E
DB 0
MOV BYTE [823E],01
RET
 
A8346
AND AH,AH
JNS 834F
MOV BYTE [823E],00
MOV AL,AH
AND AL,7F
RET
 
A8354
CMP BYTE [823E],00
JZ 835D
AND AL,DC
TEST AL,03
JZ 8363
NOT AL
RET
 
A5239
CALL 8346
NOP
 
A529C
JNZ 52A3
CALL 8337
JMP 52A6
CALL 833F
 
A4DBB
CALL 8354
NOP
NOP
NOP
 
A4D70
CALL 8354
NOP
NOP
NOP
 
A
;       Patch H (Part 6) 03/23/87:
;               Fix test to find old Hercules Mono Cards and some poor clones.
;               Replaced by Patch I (Part 1)
 
A
;       Patch I 04/04/87:
;               Chg letter in scroll recall status.
 
A0FA9
DB 'I'
 
A
;       Patch I (Part 1) 04/04/87:
;       Replaces Patch H (Part 6)
;               Fix Patch H part 6 to not hang on some non-Herc mono cards.
 
AA056
XOR AX,AX
CALL 814A
MOV CX,0002
MOV DX,03BA
MOV DI,[1CC8]
INC DI
CMP DI,[1CC8]
JS A089
IN AL,DX
ROL AL,1
JNC A066
CMP DI,[1CC8]
JS A089
IN AL,DX
ROL AL,1
JC A071
LOOP A066
MOV BYTE [23D7],1
ADD DL,05
XOR AL,AL
OUT DX,AL
 
AA0E1
JMP A0EB
 
A
;FA0E3 L8 90
 
A
;       Patch I (Part 2) 04/04/87:
;       Requires Patch H (Part 2)
;               Fix patch H part 2 mode limiting to not causing hanging.
 
A5D6C
JNZ 5D74
AND DL,08
OR DL,07
 
A
;       Patch I (Part 3) 04/04/87:
;       Requires Patch E (Part 2)
;               Fix to not use "internal modes" B & C on EGA 
;               for loading charsets.  (Smudge chars)
 
A8642
CALL 846F
MOV DL,CE
MOV AX,0005
CALL 846F
MOV AX,0406
JMP 846F
 
A8632
MOV DX,03C4
MOV AX,0402
CALL 846F
MOV AX,0704
JMP 8642
 
A
;       Patch I (Part 4) 05/29/87:
;       Requires Patch H (Part 3):
;               Fix to initialize correctly with DOS 3.3 so that it 
;                       may be loaded after another device driver.
 
A9B61
MOV AX,[14FA]
LES DI,[1CCE]
ES: MOV WORD PTR [DI+0E],0000
INC AX
CALL 9AFE
 
A9AFE
ES: MOV [DI+10],AX
RET
 
A8364
;       Next patch address.
;       Last patch address plus 1 = 83D0.
 
A8653
;       EGA-only patch space.
;       Last patch address plus 1 = 865B.
;       Requires Patch E (Part 2)
 
A9B03
;       Init-only patch space.
;       Last patch address plus 1 = 9B11.
;       Requires Patch H (Part 3)
 
AA0E3
;       Init-only patch space.
;       Last patch address plus 1 = A0EB.
;       Requires Patch H (Part 6)
 
W
Q