1E00                              OPT I%
1E00                    .inkey 
1E00 0A E4                        OR AH,AH
1E02 78 05                        JS newkey
1E04                    .oldkey 
1E04 EA                           DB &EA
1E05                    .oldkeyoff 
1E05 00 00                        DW 0
1E07                    .oldkeyseg 
1E07 00 00                        DW 0
1E09                              ;
1E09                    .newkey 
1E09 F7 D8                        NEG AX
1E0B E8 5A 00                     CALL mask
1E0E 1A C0                        SBB AL,AL
1E10 F5                           CMC
1E11 CB                           RETF
1E12                              ;
1E12                    .setint 
1E12 C4 1E 08 03                  LES BX,[&308]
1E16 2E 89 1E 05 1E               MOV CS:[oldkeyoff],BX
1E1B 2E 8C 06 07 1E               MOV CS:[oldkeyseg],ES
1E20 C7 06 08 03 00 1E            MOV WORD PTR [&308],inkey
1E26 8C 0E 0A 03                  MOV [&30A],CS
1E2A B8 09 35                     MOV AX,&3509
1E2D CD 21                        INT &21
1E2F 2E 89 1E 9F 1E               MOV CS:[oldintoff],BX
1E34 2E 8C 06 A1 1E               MOV CS:[oldintseg],ES
1E39 BA 81 1E                     MOV DX,newint
1E3C 8C C8                        MOV AX,CS
1E3E 8E D8                        MOV DS,AX
1E40 B8 09 25                     MOV AX,&2509
1E43 CD 21                        INT &21
1E45 CB                           RETF
1E46                              ;
1E46                    .resetint 
1E46 2E 8B 16 05 1E               MOV DX,CS:[oldkeyoff]
1E4B 2E 8B 1E 07 1E               MOV BX,CS:[oldkeyseg]
1E50 89 16 08 03                  MOV [&308],DX
1E54 89 1E 0A 03                  MOV [&30A],BX
1E58 B8 09 25                     MOV AX,&2509
1E5B 2E 8B 16 9F 1E               MOV DX,CS:[oldintoff]
1E60 2E 8E 1E A1 1E               MOV DS,CS:[oldintseg]
1E65 CD 21                        INT &21
1E67 CB                           RETF
1E68                              ;
1E68                    .mask 
1E68 8A C8                        MOV CL,AL
1E6A 80 E1 07                     AND CL,7
1E6D D0 E8                        SHR AL,1
1E6F D0 E8                        SHR AL,1
1E71 D0 E8                        SHR AL,1
1E73 8A D8                        MOV BL,AL
1E75 FE C1                        INC CL
1E77 32 FF                        XOR BH,BH
1E79 2E 8A 87 F7 1E               MOV AL,CS:[BX+bitmap]
1E7E D2 D8                        RCR AL,CL
1E80 C3                           RET
1E81                              ;
1E81                    .newint 
1E81 50                           PUSH AX
1E82 53                           PUSH BX
1E83 51                           PUSH CX
1E84 E4 60                        IN AL,&60
1E86 3C 80                        CMP AL,&80
1E88 9C                           PUSHF
1E89 24 7F                        AND AL,&7F
1E8B BB A3 1E                     MOV BX,stab
1E8E 2E D7                        XLAT CS:[stab]
1E90 E8 D5 FF                     CALL mask
1E93 9D                           POPF
1E94 D2 D0                        RCL AL,CL
1E96 2E 88 87 F7 1E               MOV CS:[BX+bitmap],AL
1E9B 59                           POP CX
1E9C 5B                           POP BX
1E9D 58                           POP AX
1E9E                    .oldint 
1E9E EA                           DB &EA
1E9F                    .oldintoff 
1E9F 00 00                        DW &00
1EA1                    .oldintseg 
1EA1 00 00                        DW &00
1EA3                              ;
1EA3                    .stab 
1EA3 00 71 31 32 12 13 
     14 35 25 16 27 28 
     18 49 5A 61 11 22 
     23 34 24 45 36 26 
     37 38 39 59 4A 02 
     42 52 33 44 54 55 
     46 47 57 58 67 19 
     01 79 62 43 53 64 
     65 56 66 29 68 69 
     51 08 48 63 41 72 
     73 74 15 75 76 17 
     77 78 21 03 0D 09 
     3A 0A 05 1A 04 7A 
     06 0B 2A 0C 6A 07            DB A$
1EF7                    .bitmap 
1EF7 00 00 00 00 00 00 
     00 00 00 00 00 00 
     00 00 00 00                  DB B$
1F07                    .end