TITLE FKRESET - ASSEMBLER PROGRAM TO RESET FUNCTION KEYS IN DOS 2.0
;
;
;               VERSION 1.0 04/27/83
;
;
CSEG    SEGMENT PARA PUBLIC 'CODE'
        ORG     100H                    ;MAKE IT A .COM FILE
START   PROC    FAR
        ASSUME CS:CSEG,DS:CSEG,ES:NOTHING
        PUSH    CS                      ;MOVE THE WORKAREA ADDRESS INTO DS
        POP     DS
        MOV     DX,OFFSET MESSAGE       ;TEL'EM THE KEYS ARE RESET
        MOV     AH,9                    ;FUNCTION 9 IS PRINT STRING
        INT     21H                     ;CALL DOS TO DO IT
        MOV     DX,OFFSET F10           ;RESET F10 KEY
        MOV     AH,9                    ;FUNCTION 9 IS PRINT STRING
        INT     21H                     ;CALL DOS TO DO IT
        MOV     DX,OFFSET F9            ;RESET F9 KEY
        MOV     AH,9                    ;FUNCTION 9 IS PRINT STRING
        INT     21H                     ;CALL DOS TO DO IT
        MOV     DX,OFFSET F8            ;RESET F8 KEY
        MOV     AH,9                    ;FUNCTION 9 IS PRINT STRING
        INT     21H                     ;CALL DOS TO DO IT
        MOV     DX,OFFSET F7            ;RESET F7 KEY
        MOV     AH,9                    ;FUNCTION 9 IS PRINT STRING
        INT     21H                     ;CALL DOS TO DO IT
        MOV     DX,OFFSET F6            ;RESET F6 KEY
        MOV     AH,9                    ;FUNCTION 9 IS PRINT STRING
        INT     21H                     ;CALL DOS TO DO IT
        MOV     DX,OFFSET F5            ;R
        MOV     AH,9                    ;FUNCTION 9 IS PRINT STRING
        INT     21H                     ;CALL DOS TO DO IT
        MOV     DX,OFFSET F4            ;RESET F4 KEY
        MOV     AH,9                    ;FUNCTION 9 IS PRINT STRING
        INT     21H                     ;CALL DOS TO DO IT
        MOV     DX,OFFSET F3            ;RESET F3 KEY
        MOV     AH,9                    ;FUNCTION 9
        INT     21H                     ;CALL DOS TO DO IT
        MOV     DX,OFFSET F2            ;RESET F2 KEY
        MOV     AH,9                    ;FUNTION 9 IS PRINT STRING
        INT     21H                     ;CALL DOS TO DO IT
        MOV     DX,OFFSET F1            ;RESET F1 KEY
        MOV     AH,9                    ;FUNCTION 9 IS PRINT STRING
        INT     21H                     ;CALL DOS TO DO IT
        MOV     DX,OFFSET UP8           ;RESET UP-ARROW (8)KEY
        MOV     AH,9                    ;FUNCTION 9 IS PRINT STRING
        INT     21H                     ;CALL DOS TO DO IT
        MOV     DX,OFFSET PGUP          ;RESET PGUP(9) KEY
        MOV     AH,9                    ;FUNCTION 9 IS PRINT STRING
        INT     21H                     ;CALL DOS TO DO IT
        MOV     DX,OFFSET ENDK          ;RESET END(1) KEY
        MOV     AH,9                    ;FUNCTION 9 IS PRINT STRING
        INT     21H                     ;CALL DOS TO DO IT
        MOV     DX,OFFSET DN2           ;RESET DOWN-ARROW(2) KEY
        MOV     AH,9                    ;FUNCTION 9 IS PRINT STRING
        INT     21H                     ;CALL DOS TO DO IT
EXIT:   INT     20H                     ;EXIT TO DOS
;
;       NOW LET'S GET THE NECESSARY STRINGS TO DO THE RESET
;
MESSAGE DB      ' The Function Keys have been reset.$'
F10     DB      27,'[0;68;0;68p$'       ; No trick to reseting the
F9      DB      27,'[0;67;0;67p$'       ; keys; just set them to
F8      DB      27,'[0;66;0;66p$'       ; themselves! NOTE: Do NOT
F7      DB      27,'[0;65;0;65p$'       ; set the keys to NULL, i.e.,
F6      DB      27,'[0;64;0;64p$'       ;    27,'[0;xxp$'  (xx is key)
F5      DB      27,'[0;63;0;63p$'       ; This will cause the system
F4      DB      27,'[0;62;0;62p$'       ; to crash.
F3      DB      27,'[0;61;0;61p$'
F2      DB      27,'[0;60;0;60p$'
F1      DB      27,'[0;59;0;59p$'
UP8     DB      27,'[0;72;0;72p$'
PGUP    DB      27,'[0;73;0;73p$'
ENDK    DB      27,'[0;79;0;79p$'
DN2     DB      27,'[0;80;0;80p$'
START   ENDP
;
;
CSEG    ENDS
        END     START