home *** CD-ROM | disk | FTP | other *** search
Text File | 1994-06-19 | 80.8 KB | 1,425 lines |
-
- Module: TSUNTE.PAS
- Group: 'DGROUP' _DATA,_BSS
-
- Segment: TSUNTE_TEXT PARA 00000e34 bytes
- 0000 CURSOFF:
- 0000 55 TSUNTE_001 push bp
- 0001 89 e5 mov bp,sp
- 0003 b8 14 00 mov ax,0014H
- 0006 9a 00 00 00 00 call far SYSTEM_034
- 000b 83 ec 14 sub sp,0014H
- 000e 8d 7e ec lea di,-14H[bp]
- 0011 16 push ss
- 0012 57 push di
- 0013 b8 14 00 mov ax,0014H
- 0016 50 push ax
- 0017 b0 00 mov al,00H
- 0019 50 push ax
- 001a 9a 00 00 00 00 call far SYSTEM_05C
- 001f c6 46 ed 03 mov byte ptr -13H[bp],03H
- 0023 c6 46 ef 00 mov byte ptr -11H[bp],00H
- 0027 b0 10 mov al,10H
- 0029 50 push ax
- 002a 8d 7e ec lea di,-14H[bp]
- 002d 16 push ss
- 002e 57 push di
- 002f 9a 00 00 00 00 call far DOS_001
- 0034 c6 46 ed 01 mov byte ptr -13H[bp],01H
- 0038 8a 46 f1 mov al,-0fH[bp]
- 003b 0c 20 or al,20H
- 003d 88 46 f1 mov -0fH[bp],al
- 0040 b0 10 mov al,10H
- 0042 50 push ax
- 0043 8d 7e ec lea di,-14H[bp]
- 0046 16 push ss
- 0047 57 push di
- 0048 9a 00 00 00 00 call far DOS_001
- 004d 89 ec mov sp,bp
- 004f 5d pop bp
- 0050 cb retf
- 0051 CURSON:
- 0051 55 TSUNTE_002 push bp
- 0052 89 e5 mov bp,sp
- 0054 b8 14 00 mov ax,0014H
- 0057 9a 00 00 00 00 call far SYSTEM_034
- 005c 83 ec 14 sub sp,0014H
- 005f 8d 7e ec lea di,-14H[bp]
- 0062 16 push ss
- 0063 57 push di
- 0064 b8 14 00 mov ax,0014H
- 0067 50 push ax
- 0068 b0 00 mov al,00H
- 006a 50 push ax
- 006b 9a 00 00 00 00 call far SYSTEM_05C
- 0070 c6 46 ed 03 mov byte ptr -13H[bp],03H
- 0074 c6 46 ef 00 mov byte ptr -11H[bp],00H
- 0078 b0 10 mov al,10H
- 007a 50 push ax
- 007b 8d 7e ec lea di,-14H[bp]
- 007e 16 push ss
- 007f 57 push di
- 0080 9a 00 00 00 00 call far DOS_001
- 0085 c6 46 ed 01 mov byte ptr -13H[bp],01H
- 0089 8a 46 f1 mov al,-0fH[bp]
- 008c 24 df and al,0dfH
- 008e 88 46 f1 mov -0fH[bp],al
- 0091 b0 10 mov al,10H
- 0093 50 push ax
- 0094 8d 7e ec lea di,-14H[bp]
- 0097 16 push ss
- 0098 57 push di
- 0099 9a 00 00 00 00 call far DOS_001
- 009e 89 ec mov sp,bp
- 00a0 5d pop bp
- 00a1 cb retf
- 00a2 CURSOR:
- 00a2 55 TSUNTE_003 push bp
- 00a3 89 e5 mov bp,sp
- 00a5 b8 14 00 mov ax,0014H
- 00a8 9a 00 00 00 00 call far SYSTEM_034
- 00ad 83 ec 14 sub sp,0014H
- 00b0 8d 7e ec lea di,-14H[bp]
- 00b3 16 push ss
- 00b4 57 push di
- 00b5 b8 14 00 mov ax,0014H
- 00b8 50 push ax
- 00b9 b0 00 mov al,00H
- 00bb 50 push ax
- 00bc 9a 00 00 00 00 call far SYSTEM_05C
- 00c1 c6 46 ed 01 mov byte ptr -13H[bp],01H
- 00c5 8a 46 06 mov al,+6H[bp]
- 00c8 88 46 f0 mov -10H[bp],al
- 00cb 8a 46 08 mov al,+8H[bp]
- 00ce 24 df and al,0dfH
- 00d0 88 46 f1 mov -0fH[bp],al
- 00d3 b0 10 mov al,10H
- 00d5 50 push ax
- 00d6 8d 7e ec lea di,-14H[bp]
- 00d9 16 push ss
- 00da 57 push di
- 00db 9a 00 00 00 00 call far DOS_001
- 00e0 89 ec mov sp,bp
- 00e2 5d pop bp
- 00e3 ca 04 00 retf 0004H
- 00e6 CLB:
- 00e6 55 TSUNTE_006 push bp
- 00e7 89 e5 mov bp,sp
- 00e9 b8 14 00 mov ax,0014H
- 00ec 9a 00 00 00 00 call far SYSTEM_034
- 00f1 83 ec 14 sub sp,0014H
- 00f4 8d 7e ec lea di,-14H[bp]
- 00f7 16 push ss
- 00f8 57 push di
- 00f9 b8 14 00 mov ax,0014H
- 00fc 50 push ax
- 00fd b0 00 mov al,00H
- 00ff 50 push ax
- 0100 9a 00 00 00 00 call far SYSTEM_05C
- 0105 c7 46 ec 00 0c mov word ptr -14H[bp],0c00H
- 010a b0 21 mov al,21H
- 010c 50 push ax
- 010d 8d 7e ec lea di,-14H[bp]
- 0110 16 push ss
- 0111 57 push di
- 0112 9a 00 00 00 00 call far DOS_001
- 0117 89 ec mov sp,bp
- 0119 5d pop bp
- 011a cb retf
- 011b MONOFN:
- 011b 55 TSUNTE_005 push bp
- 011c 89 e5 mov bp,sp
- 011e b8 15 00 mov ax,0015H
- 0121 9a 00 00 00 00 call far SYSTEM_034
- 0126 83 ec 15 sub sp,0015H
- 0129 8d 7e eb lea di,-15H[bp]
- 012c 16 push ss
- 012d 57 push di
- 012e b8 14 00 mov ax,0014H
- 0131 50 push ax
- 0132 b0 00 mov al,00H
- 0134 50 push ax
- 0135 9a 00 00 00 00 call far SYSTEM_05C
- 013a c6 46 ec 0f mov byte ptr -14H[bp],0fH
- 013e 80 7e eb 07 cmp byte ptr -15H[bp],07H
- 0142 75 06 jne L1
- 0144 c6 46 ff 01 mov byte ptr -1H[bp],01H
- 0148 eb 04 jmp L2
- 014a c6 46 ff 00 L1 mov byte ptr -1H[bp],00H
- 014e 8a 46 ff L2 mov al,-1H[bp]
- 0151 89 ec mov sp,bp
- 0153 5d pop bp
- 0154 cb retf
- 0155 55 TSUNTE_01C push bp
- 0156 89 e5 mov bp,sp
- 0158 b8 06 00 mov ax,0006H
- 015b 9a 00 00 00 00 call far SYSTEM_034
- 0160 83 ec 06 sub sp,0006H
- 0163 8b 46 04 mov ax,+4H[bp]
- 0166 8b 5e 06 mov bx,+6H[bp]
- 0169 8b 56 08 mov dx,+8H[bp]
- 016c 31 c9 xor cx,cx
- 016e 31 f6 xor si,si
- 0170 31 ff xor di,di
- 0172 9a 00 00 00 00 call far SYSTEM_072
- 0177 75 0f jne L3
- 0179 c7 46 04 81 00 mov word ptr +4H[bp],0081H
- 017e c7 46 06 00 00 mov word ptr +6H[bp],0000H
- 0183 c7 46 08 00 00 mov word ptr +8H[bp],0000H
- 0188 8b 46 0a L3 mov ax,+0aH[bp]
- 018b 8b 5e 0c mov bx,+0cH[bp]
- 018e 8b 56 0e mov dx,+0eH[bp]
- 0191 8b 4e 04 mov cx,+4H[bp]
- 0194 8b 76 06 mov si,+6H[bp]
- 0197 8b 7e 08 mov di,+8H[bp]
- 019a 9a 00 00 00 00 call far SYSTEM_071
- 019f 9a 00 00 00 00 call far SYSTEM_07B
- 01a4 89 46 fa mov -6H[bp],ax
- 01a7 89 5e fc mov -4H[bp],bx
- 01aa 89 56 fe mov -2H[bp],dx
- 01ad 8b 46 fa mov ax,-6H[bp]
- 01b0 8b 5e fc mov bx,-4H[bp]
- 01b3 8b 56 fe mov dx,-2H[bp]
- 01b6 89 ec mov sp,bp
- 01b8 5d pop bp
- 01b9 c2 0c 00 ret 000cH
- 01bc 55 TSUNTE_01D push bp
- 01bd 89 e5 mov bp,sp
- 01bf b8 06 00 mov ax,0006H
- 01c2 9a 00 00 00 00 call far SYSTEM_034
- 01c7 83 ec 06 sub sp,0006H
- 01ca ff 76 0e push +0eH[bp]
- 01cd ff 76 0c push +0cH[bp]
- 01d0 ff 76 0a push +0aH[bp]
- 01d3 ff 76 08 push +8H[bp]
- 01d6 ff 76 06 push +6H[bp]
- 01d9 ff 76 04 push +4H[bp]
- 01dc e8 00 00 call TSUNTE_01C
- 01df 8b 4e 04 mov cx,+4H[bp]
- 01e2 8b 76 06 mov si,+6H[bp]
- 01e5 8b 7e 08 mov di,+8H[bp]
- 01e8 9a 00 00 00 00 call far SYSTEM_070
- 01ed 52 push dx
- 01ee 53 push bx
- 01ef 50 push ax
- 01f0 8b 46 0a mov ax,+0aH[bp]
- 01f3 8b 5e 0c mov bx,+0cH[bp]
- 01f6 8b 56 0e mov dx,+0eH[bp]
- 01f9 59 pop cx
- 01fa 5e pop si
- 01fb 5f pop di
- 01fc 9a 00 00 00 00 call far SYSTEM_06F
- 0201 9a 00 00 00 00 call far SYSTEM_07B
- 0206 89 46 fa mov -6H[bp],ax
- 0209 89 5e fc mov -4H[bp],bx
- 020c 89 56 fe mov -2H[bp],dx
- 020f 8b 46 fa mov ax,-6H[bp]
- 0212 8b 5e fc mov bx,-4H[bp]
- 0215 8b 56 fe mov dx,-2H[bp]
- 0218 89 ec mov sp,bp
- 021a 5d pop bp
- 021b c2 0c 00 ret 000cH
- 021e ZELLERFN:
- 021e 55 TSUNTE_01A push bp
- 021f 89 e5 mov bp,sp
- 0221 b8 2b 02 mov ax,022bH
- 0224 9a 00 00 00 00 call far SYSTEM_034
- 0229 81 ec 2b 02 sub sp,022bH
- 022d 8b 46 0a mov ax,+0aH[bp]
- 0230 31 d2 xor dx,dx
- 0232 9a 00 00 00 00 call far SYSTEM_073
- 0237 89 46 dc mov -24H[bp],ax
- 023a 89 5e de mov -22H[bp],bx
- 023d 89 56 e0 mov -20H[bp],dx
- 0240 8b 46 08 mov ax,+8H[bp]
- 0243 31 d2 xor dx,dx
- 0245 9a 00 00 00 00 call far SYSTEM_073
- 024a 89 46 e2 mov -1eH[bp],ax
- 024d 89 5e e4 mov -1cH[bp],bx
- 0250 89 56 e6 mov -1aH[bp],dx
- 0253 8b 46 06 mov ax,+6H[bp]
- 0256 31 d2 xor dx,dx
- 0258 9a 00 00 00 00 call far SYSTEM_073
- 025d 89 46 e8 mov -18H[bp],ax
- 0260 89 5e ea mov -16H[bp],bx
- 0263 89 56 ec mov -14H[bp],dx
- 0266 8b 46 e8 mov ax,-18H[bp]
- 0269 8b 5e ea mov bx,-16H[bp]
- 026c 8b 56 ec mov dx,-14H[bp]
- 026f b9 89 00 mov cx,0089H
- 0272 31 f6 xor si,si
- 0274 bf 00 48 mov di,4800H
- 0277 9a 00 00 00 00 call far SYSTEM_071
- 027c 9a 00 00 00 00 call far SYSTEM_07B
- 0281 52 push dx
- 0282 53 push bx
- 0283 50 push ax
- 0284 8b 46 e8 mov ax,-18H[bp]
- 0287 8b 5e ea mov bx,-16H[bp]
- 028a 8b 56 ec mov dx,-14H[bp]
- 028d b9 87 00 mov cx,0087H
- 0290 31 f6 xor si,si
- 0292 bf 00 48 mov di,4800H
- 0295 9a 00 00 00 00 call far SYSTEM_071
- 029a 9a 00 00 00 00 call far SYSTEM_07B
- 029f 52 push dx
- 02a0 53 push bx
- 02a1 50 push ax
- 02a2 8b 46 e8 mov ax,-18H[bp]
- 02a5 8b 5e ea mov bx,-16H[bp]
- 02a8 8b 56 ec mov dx,-14H[bp]
- 02ab b9 83 00 mov cx,0083H
- 02ae 31 f6 xor si,si
- 02b0 31 ff xor di,di
- 02b2 9a 00 00 00 00 call far SYSTEM_071
- 02b7 9a 00 00 00 00 call far SYSTEM_07B
- 02bc 52 push dx
- 02bd 53 push bx
- 02be 50 push ax
- 02bf 8b 46 e8 mov ax,-18H[bp]
- 02c2 8b 5e ea mov bx,-16H[bp]
- 02c5 8b 56 ec mov dx,-14H[bp]
- 02c8 b9 89 00 mov cx,0089H
- 02cb 31 f6 xor si,si
- 02cd bf 80 36 mov di,3680H
- 02d0 9a 00 00 00 00 call far SYSTEM_070
- 02d5 59 pop cx
- 02d6 5e pop si
- 02d7 5f pop di
- 02d8 9a 00 00 00 00 call far SYSTEM_06E
- 02dd 59 pop cx
- 02de 5e pop si
- 02df 5f pop di
- 02e0 9a 00 00 00 00 call far SYSTEM_06F
- 02e5 59 pop cx
- 02e6 5e pop si
- 02e7 5f pop di
- 02e8 9a 00 00 00 00 call far SYSTEM_06E
- 02ed 89 46 ee mov -12H[bp],ax
- 02f0 89 5e f0 mov -10H[bp],bx
- 02f3 89 56 f2 mov -0eH[bp],dx
- 02f6 b8 82 00 mov ax,0082H
- 02f9 31 db xor bx,bx
- 02fb ba 00 40 mov dx,4000H
- 02fe 8b 4e e2 mov cx,-1eH[bp]
- 0301 8b 76 e4 mov si,-1cH[bp]
- 0304 8b 7e e6 mov di,-1aH[bp]
- 0307 9a 00 00 00 00 call far SYSTEM_070
- 030c b9 82 00 mov cx,0082H
- 030f 31 f6 xor si,si
- 0311 31 ff xor di,di
- 0313 9a 00 00 00 00 call far SYSTEM_06F
- 0318 9a 00 00 00 00 call far SYSTEM_074
- 031d 89 46 da mov -26H[bp],ax
- 0320 8d be d5 fd lea di,-22bH[bp]
- 0324 16 push ss
- 0325 57 push di
- 0326 bf 00 00 mov di,offset TSUNTE_DATA
- 0329 1e push ds
- 032a 57 push di
- 032b ff 76 da push -26H[bp]
- 032e b8 03 00 mov ax,0003H
- 0331 50 push ax
- 0332 9a 00 00 00 00 call far SYSTEM_00E
- 0337 8d be da fe lea di,-126H[bp]
- 033b 16 push ss
- 033c 57 push di
- 033d b8 ff 00 mov ax,00ffH
- 0340 50 push ax
- 0341 9a 00 00 00 00 call far SYSTEM_00C
- 0346 8d be da fe lea di,-126H[bp]
- 034a 16 push ss
- 034b 57 push di
- 034c 8d 7e da lea di,-26H[bp]
- 034f 16 push ss
- 0350 57 push di
- 0351 9a 00 00 00 00 call far SYSTEM_07A
- 0356 89 46 f4 mov -0cH[bp],ax
- 0359 89 5e f6 mov -0aH[bp],bx
- 035c 89 56 f8 mov -8H[bp],dx
- 035f 8b 46 ee mov ax,-12H[bp]
- 0362 8b 5e f0 mov bx,-10H[bp]
- 0365 8b 56 f2 mov dx,-0eH[bp]
- 0368 8b 4e dc mov cx,-24H[bp]
- 036b 8b 76 de mov si,-22H[bp]
- 036e 8b 7e e0 mov di,-20H[bp]
- 0371 9a 00 00 00 00 call far SYSTEM_06E
- 0376 8b 4e f4 mov cx,-0cH[bp]
- 0379 8b 76 f6 mov si,-0aH[bp]
- 037c 8b 7e f8 mov di,-8H[bp]
- 037f 9a 00 00 00 00 call far SYSTEM_06E
- 0384 89 46 ee mov -12H[bp],ax
- 0387 89 5e f0 mov -10H[bp],bx
- 038a 89 56 f2 mov -0eH[bp],dx
- 038d ff 76 ec push -14H[bp]
- 0390 ff 76 ea push -16H[bp]
- 0393 ff 76 e8 push -18H[bp]
- 0396 b8 83 00 mov ax,0083H
- 0399 31 db xor bx,bx
- 039b 31 d2 xor dx,dx
- 039d 52 push dx
- 039e 53 push bx
- 039f 50 push ax
- 03a0 e8 00 00 call TSUNTE_01D
- 03a3 31 c9 xor cx,cx
- 03a5 31 f6 xor si,si
- 03a7 31 ff xor di,di
- 03a9 9a 00 00 00 00 call far SYSTEM_072
- 03ae 74 04 je L4
- 03b0 b0 00 mov al,00H
- 03b2 eb 02 jmp L5
- 03b4 b0 01 L4 mov al,01H
- 03b6 88 86 d6 fe L5 mov -12aH[bp],al
- 03ba ff 76 ec push -14H[bp]
- 03bd ff 76 ea push -16H[bp]
- 03c0 ff 76 e8 push -18H[bp]
- 03c3 b8 87 00 mov ax,0087H
- 03c6 31 db xor bx,bx
- 03c8 ba 00 48 mov dx,4800H
- 03cb 52 push dx
- 03cc 53 push bx
- 03cd 50 push ax
- 03ce e8 00 00 call TSUNTE_01D
- 03d1 31 c9 xor cx,cx
- 03d3 31 f6 xor si,si
- 03d5 31 ff xor di,di
- 03d7 9a 00 00 00 00 call far SYSTEM_072
- 03dc 75 04 jne L6
- 03de b0 00 mov al,00H
- 03e0 eb 02 jmp L7
- 03e2 b0 01 L6 mov al,01H
- 03e4 88 86 d7 fe L7 mov -129H[bp],al
- 03e8 ff 76 ec push -14H[bp]
- 03eb ff 76 ea push -16H[bp]
- 03ee ff 76 e8 push -18H[bp]
- 03f1 b8 89 00 mov ax,0089H
- 03f4 31 db xor bx,bx
- 03f6 ba 00 48 mov dx,4800H
- 03f9 52 push dx
- 03fa 53 push bx
- 03fb 50 push ax
- 03fc e8 00 00 call TSUNTE_01D
- 03ff 31 c9 xor cx,cx
- 0401 31 f6 xor si,si
- 0403 31 ff xor di,di
- 0405 9a 00 00 00 00 call far SYSTEM_072
- 040a 74 04 je L8
- 040c b0 00 mov al,00H
- 040e eb 02 jmp L9
- 0410 b0 01 L8 mov al,01H
- 0412 88 86 d8 fe L9 mov -128H[bp],al
- 0416 8b 46 e2 mov ax,-1eH[bp]
- 0419 8b 5e e4 mov bx,-1cH[bp]
- 041c 8b 56 e6 mov dx,-1aH[bp]
- 041f b9 82 00 mov cx,0082H
- 0422 31 f6 xor si,si
- 0424 bf 00 40 mov di,4000H
- 0427 9a 00 00 00 00 call far SYSTEM_072
- 042c 72 04 jb L10
- 042e b0 00 mov al,00H
- 0430 eb 02 jmp L11
- 0432 b0 01 L10 mov al,01H
- 0434 88 86 d9 fe L11 mov -127H[bp],al
- 0438 80 be d6 fe 00 cmp byte ptr -12aH[bp],00H
- 043d 74 07 je L12
- 043f 80 be d7 fe 00 cmp byte ptr -129H[bp],00H
- 0444 75 07 jne L13
- 0446 80 be d8 fe 00 L12 cmp byte ptr -128H[bp],00H
- 044b 74 07 je L14
- 044d 80 be d9 fe 00 L13 cmp byte ptr -127H[bp],00H
- 0452 75 04 jne L15
- 0454 b0 00 L14 mov al,00H
- 0456 eb 02 jmp L16
- 0458 b0 01 L15 mov al,01H
- 045a 88 86 d5 fe L16 mov -12bH[bp],al
- 045e 80 be d5 fe 00 cmp byte ptr -12bH[bp],00H
- 0463 74 1e je L17
- 0465 8b 46 ee mov ax,-12H[bp]
- 0468 8b 5e f0 mov bx,-10H[bp]
- 046b 8b 56 f2 mov dx,-0eH[bp]
- 046e b9 81 00 mov cx,0081H
- 0471 31 f6 xor si,si
- 0473 31 ff xor di,di
- 0475 9a 00 00 00 00 call far SYSTEM_06F
- 047a 89 46 ee mov -12H[bp],ax
- 047d 89 5e f0 mov -10H[bp],bx
- 0480 89 56 f2 mov -0eH[bp],dx
- 0483 8b 46 ee L17 mov ax,-12H[bp]
- 0486 8b 5e f0 mov bx,-10H[bp]
- 0489 8b 56 f2 mov dx,-0eH[bp]
- 048c b9 81 00 mov cx,0081H
- 048f 31 f6 xor si,si
- 0491 31 ff xor di,di
- 0493 9a 00 00 00 00 call far SYSTEM_06F
- 0498 89 46 fa mov -6H[bp],ax
- 049b 89 5e fc mov -4H[bp],bx
- 049e 89 56 fe mov -2H[bp],dx
- 04a1 8b 46 fa mov ax,-6H[bp]
- 04a4 8b 5e fc mov bx,-4H[bp]
- 04a7 8b 56 fe mov dx,-2H[bp]
- 04aa 89 ec mov sp,bp
- 04ac 5d pop bp
- 04ad ca 06 00 retf 0006H
- 04b0 WKDAYFN:
- 04b0 55 TSUNTE_016 push bp
- 04b1 89 e5 mov bp,sp
- 04b3 b8 07 00 mov ax,0007H
- 04b6 9a 00 00 00 00 call far SYSTEM_034
- 04bb 83 ec 07 sub sp,0007H
- 04be ff 76 0a push +0aH[bp]
- 04c1 ff 76 08 push +8H[bp]
- 04c4 ff 76 06 push +6H[bp]
- 04c7 0e push cs
- 04c8 e8 00 00 call TSUNTE_01A
- 04cb 89 46 f9 mov -7H[bp],ax
- 04ce 89 5e fb mov -5H[bp],bx
- 04d1 89 56 fd mov -3H[bp],dx
- 04d4 8b 46 f9 mov ax,-7H[bp]
- 04d7 8b 5e fb mov bx,-5H[bp]
- 04da 8b 56 fd mov dx,-3H[bp]
- 04dd b9 83 00 mov cx,0083H
- 04e0 31 f6 xor si,si
- 04e2 bf 00 60 mov di,6000H
- 04e5 9a 00 00 00 00 call far SYSTEM_071
- 04ea 9a 00 00 00 00 call far SYSTEM_07B
- 04ef b9 83 00 mov cx,0083H
- 04f2 31 f6 xor si,si
- 04f4 bf 00 60 mov di,6000H
- 04f7 9a 00 00 00 00 call far SYSTEM_070
- 04fc 52 push dx
- 04fd 53 push bx
- 04fe 50 push ax
- 04ff 8b 46 f9 mov ax,-7H[bp]
- 0502 8b 5e fb mov bx,-5H[bp]
- 0505 8b 56 fd mov dx,-3H[bp]
- 0508 59 pop cx
- 0509 5e pop si
- 050a 5f pop di
- 050b 9a 00 00 00 00 call far SYSTEM_06F
- 0510 89 46 f9 mov -7H[bp],ax
- 0513 89 5e fb mov -5H[bp],bx
- 0516 89 56 fd mov -3H[bp],dx
- 0519 8b 46 f9 mov ax,-7H[bp]
- 051c 8b 5e fb mov bx,-5H[bp]
- 051f 8b 56 fd mov dx,-3H[bp]
- 0522 9a 00 00 00 00 call far SYSTEM_074
- 0527 88 46 ff mov -1H[bp],al
- 052a 8a 46 ff mov al,-1H[bp]
- 052d 89 ec mov sp,bp
- 052f 5d pop bp
- 0530 ca 06 00 retf 0006H
- 0533 WEEKNRFN:
- 0533 55 TSUNTE_019 push bp
- 0534 89 e5 mov bp,sp
- 0536 b8 10 00 mov ax,0010H
- 0539 9a 00 00 00 00 call far SYSTEM_034
- 053e 83 ec 10 sub sp,0010H
- 0541 b8 01 00 mov ax,0001H
- 0544 50 push ax
- 0545 b8 01 00 mov ax,0001H
- 0548 50 push ax
- 0549 ff 76 08 push +8H[bp]
- 054c 0e push cs
- 054d e8 00 00 call TSUNTE_01A
- 0550 52 push dx
- 0551 53 push bx
- 0552 50 push ax
- 0553 ff 76 0c push +0cH[bp]
- 0556 ff 76 0a push +0aH[bp]
- 0559 ff 76 08 push +8H[bp]
- 055c 0e push cs
- 055d e8 00 00 call TSUNTE_01A
- 0560 59 pop cx
- 0561 5e pop si
- 0562 5f pop di
- 0563 9a 00 00 00 00 call far SYSTEM_06F
- 0568 b9 81 00 mov cx,0081H
- 056b 31 f6 xor si,si
- 056d 31 ff xor di,di
- 056f 9a 00 00 00 00 call far SYSTEM_06E
- 0574 89 46 f0 mov -10H[bp],ax
- 0577 89 5e f2 mov -0eH[bp],bx
- 057a 89 56 f4 mov -0cH[bp],dx
- 057d 8b 46 f0 mov ax,-10H[bp]
- 0580 8b 5e f2 mov bx,-0eH[bp]
- 0583 8b 56 f4 mov dx,-0cH[bp]
- 0586 9a 00 00 00 00 call far SYSTEM_075
- 058b 89 46 f8 mov -8H[bp],ax
- 058e b8 01 00 mov ax,0001H
- 0591 50 push ax
- 0592 b8 01 00 mov ax,0001H
- 0595 50 push ax
- 0596 ff 76 08 push +8H[bp]
- 0599 0e push cs
- 059a e8 00 00 call TSUNTE_016
- 059d 30 e4 xor ah,ah
- 059f 89 46 fa mov -6H[bp],ax
- 05a2 b8 1f 00 mov ax,001fH
- 05a5 50 push ax
- 05a6 b8 0c 00 mov ax,000cH
- 05a9 50 push ax
- 05aa ff 76 08 push +8H[bp]
- 05ad 0e push cs
- 05ae e8 00 00 call TSUNTE_016
- 05b1 30 e4 xor ah,ah
- 05b3 89 46 fc mov -4H[bp],ax
- 05b6 8b 46 fa mov ax,-6H[bp]
- 05b9 05 05 00 add ax,0005H
- 05bc 89 46 f6 mov -0aH[bp],ax
- 05bf 80 7e 06 00 cmp byte ptr +6H[bp],00H
- 05c3 74 03 je L18
- 05c5 ff 46 f6 inc word ptr -0aH[bp]
- 05c8 83 7e fa 04 L18 cmp word ptr -6H[bp],0004H
- 05cc 76 09 jbe L19
- 05ce 8b 46 f6 mov ax,-0aH[bp]
- 05d1 2d 07 00 sub ax,0007H
- 05d4 89 46 f6 mov -0aH[bp],ax
- 05d7 8b 46 f8 L19 mov ax,-8H[bp]
- 05da 03 46 f6 add ax,-0aH[bp]
- 05dd 31 d2 xor dx,dx
- 05df b9 07 00 mov cx,0007H
- 05e2 f7 f1 div cx
- 05e4 89 46 f6 mov -0aH[bp],ax
- 05e7 8b 46 f6 mov ax,-0aH[bp]
- 05ea 3d 00 00 cmp ax,0000H
- 05ed 75 14 jne L22
- 05ef 83 7e fa 05 cmp word ptr -6H[bp],0005H
- 05f3 75 07 jne L20
- 05f5 c7 46 f6 35 00 mov word ptr -0aH[bp],0035H
- 05fa eb 05 jmp L21
- 05fc c7 46 f6 34 00 L20 mov word ptr -0aH[bp],0034H
- 0601 eb 10 L21 jmp L23
- 0603 3d 35 00 L22 cmp ax,0035H
- 0606 75 0b jne L23
- 0608 83 7e fc 04 cmp word ptr -4H[bp],0004H
- 060c 73 05 jae L23
- 060e c7 46 f6 01 00 mov word ptr -0aH[bp],0001H
- 0613 8b 46 f6 L23 mov ax,-0aH[bp]
- 0616 89 46 fe mov -2H[bp],ax
- 0619 8b 46 fe mov ax,-2H[bp]
- 061c 89 ec mov sp,bp
- 061e 5d pop bp
- 061f ca 08 00 retf 0008H
- 0622 55 TSUNTE_01E push bp
- 0623 89 e5 mov bp,sp
- 0625 b8 08 00 mov ax,0008H
- 0628 9a 00 00 00 00 call far SYSTEM_034
- 062d 83 ec 08 sub sp,0008H
- 0630 8b 46 06 mov ax,+6H[bp]
- 0633 40 inc ax
- 0634 89 46 06 mov +6H[bp],ax
- 0637 8b 46 06 mov ax,+6H[bp]
- 063a 31 d2 xor dx,dx
- 063c 9a 00 00 00 00 call far SYSTEM_073
- 0641 b9 84 00 mov cx,0084H
- 0644 31 f6 xor si,si
- 0646 bf 00 40 mov di,4000H
- 0649 9a 00 00 00 00 call far SYSTEM_072
- 064e 76 10 jbe L24
- 0650 8b 46 04 mov ax,+4H[bp]
- 0653 40 inc ax
- 0654 89 46 04 mov +4H[bp],ax
- 0657 8b 46 06 mov ax,+6H[bp]
- 065a 2d 0c 00 sub ax,000cH
- 065d 89 46 06 mov +6H[bp],ax
- 0660 b8 01 00 L24 mov ax,0001H
- 0663 50 push ax
- 0664 ff 76 06 push +6H[bp]
- 0667 ff 76 04 push +4H[bp]
- 066a 0e push cs
- 066b e8 00 00 call TSUNTE_01A
- 066e b9 81 00 mov cx,0081H
- 0671 31 f6 xor si,si
- 0673 31 ff xor di,di
- 0675 9a 00 00 00 00 call far SYSTEM_06F
- 067a 89 46 f8 mov -8H[bp],ax
- 067d 89 5e fa mov -6H[bp],bx
- 0680 89 56 fc mov -4H[bp],dx
- 0683 8b 46 f8 mov ax,-8H[bp]
- 0686 8b 5e fa mov bx,-6H[bp]
- 0689 8b 56 fc mov dx,-4H[bp]
- 068c b9 83 00 mov cx,0083H
- 068f 31 f6 xor si,si
- 0691 bf 00 60 mov di,6000H
- 0694 9a 00 00 00 00 call far SYSTEM_071
- 0699 9a 00 00 00 00 call far SYSTEM_07B
- 069e b9 83 00 mov cx,0083H
- 06a1 31 f6 xor si,si
- 06a3 bf 00 60 mov di,6000H
- 06a6 9a 00 00 00 00 call far SYSTEM_070
- 06ab 52 push dx
- 06ac 53 push bx
- 06ad 50 push ax
- 06ae 8b 46 f8 mov ax,-8H[bp]
- 06b1 8b 5e fa mov bx,-6H[bp]
- 06b4 8b 56 fc mov dx,-4H[bp]
- 06b7 59 pop cx
- 06b8 5e pop si
- 06b9 5f pop di
- 06ba 9a 00 00 00 00 call far SYSTEM_06F
- 06bf 89 46 f8 mov -8H[bp],ax
- 06c2 89 5e fa mov -6H[bp],bx
- 06c5 89 56 fc mov -4H[bp],dx
- 06c8 8b 46 f8 mov ax,-8H[bp]
- 06cb 8b 5e fa mov bx,-6H[bp]
- 06ce 8b 56 fc mov dx,-4H[bp]
- 06d1 9a 00 00 00 00 call far SYSTEM_074
- 06d6 89 46 fe mov -2H[bp],ax
- 06d9 8b 46 fe mov ax,-2H[bp]
- 06dc 89 ec mov sp,bp
- 06de 5d pop bp
- 06df c2 04 00 ret 0004H
- 06e2 LASTDMFN:
- 06e2 55 TSUNTE_017 push bp
- 06e3 89 e5 mov bp,sp
- 06e5 b8 08 00 mov ax,0008H
- 06e8 9a 00 00 00 00 call far SYSTEM_034
- 06ed 83 ec 08 sub sp,0008H
- 06f0 ff 76 08 push +8H[bp]
- 06f3 ff 76 06 push +6H[bp]
- 06f6 e8 00 00 call TSUNTE_01E
- 06f9 89 46 fa mov -6H[bp],ax
- 06fc c7 46 fc 1b 00 mov word ptr -4H[bp],001bH
- 0701 8b 46 fc L25 mov ax,-4H[bp]
- 0704 40 inc ax
- 0705 89 46 fc mov -4H[bp],ax
- 0708 8b 46 fc mov ax,-4H[bp]
- 070b 89 46 f8 mov -8H[bp],ax
- 070e ff 76 f8 push -8H[bp]
- 0711 ff 76 08 push +8H[bp]
- 0714 ff 76 06 push +6H[bp]
- 0717 0e push cs
- 0718 e8 00 00 call TSUNTE_016
- 071b 30 e4 xor ah,ah
- 071d 3b 46 fa cmp ax,-6H[bp]
- 0720 74 06 je L26
- 0722 83 7e fa 20 cmp word ptr -6H[bp],0020H
- 0726 75 d9 jne L25
- 0728 8b 46 fc L26 mov ax,-4H[bp]
- 072b 89 46 fe mov -2H[bp],ax
- 072e 8b 46 fe mov ax,-2H[bp]
- 0731 89 ec mov sp,bp
- 0733 5d pop bp
- 0734 ca 04 00 retf 0004H
- 0737 DATEOKFN:
- 0737 55 TSUNTE_018 push bp
- 0738 89 e5 mov bp,sp
- 073a b8 01 00 mov ax,0001H
- 073d 9a 00 00 00 00 call far SYSTEM_034
- 0742 83 ec 01 sub sp,0001H
- 0745 c6 46 ff 01 mov byte ptr -1H[bp],01H
- 0749 81 7e 06 d9 06 cmp word ptr +6H[bp],06d9H
- 074e 73 06 jae L27
- 0750 c6 46 ff 00 mov byte ptr -1H[bp],00H
- 0754 eb 3a jmp L31
- 0756 83 7e 08 01 L27 cmp word ptr +8H[bp],0001H
- 075a 72 06 jb L28
- 075c 83 7e 08 0c cmp word ptr +8H[bp],000cH
- 0760 76 06 jbe L29
- 0762 c6 46 ff 00 L28 mov byte ptr -1H[bp],00H
- 0766 eb 28 jmp L31
- 0768 83 7e 0a 01 L29 cmp word ptr +0aH[bp],0001H
- 076c 72 1e jb L30
- 076e ff 76 08 push +8H[bp]
- 0771 ff 76 06 push +6H[bp]
- 0774 0e push cs
- 0775 e8 00 00 call LASTDMFN
- 0778 99 cwd
- 0779 8b c8 mov cx,ax
- 077b 8b da mov bx,dx
- 077d 8b 46 0a mov ax,+0aH[bp]
- 0780 31 d2 xor dx,dx
- 0782 3b d3 cmp dx,bx
- 0784 7f 06 jg L30
- 0786 7c 08 jl L31
- 0788 3b c1 cmp ax,cx
- 078a 76 04 jbe L31
- 078c c6 46 ff 00 L30 mov byte ptr -1H[bp],00H
- 0790 8a 46 ff L31 mov al,-1H[bp]
- 0793 89 ec mov sp,bp
- 0795 5d pop bp
- 0796 ca 06 00 retf 0006H
- 0799 55 TSUNTE_01F push bp
- 079a 89 e5 mov bp,sp
- 079c b8 15 00 mov ax,0015H
- 079f 9a 00 00 00 00 call far SYSTEM_034
- 07a4 83 ec 15 sub sp,0015H
- 07a7 8d 7e eb lea di,-15H[bp]
- 07aa 16 push ss
- 07ab 57 push di
- 07ac b8 14 00 mov ax,0014H
- 07af 50 push ax
- 07b0 b0 00 mov al,00H
- 07b2 50 push ax
- 07b3 9a 00 00 00 00 call far SYSTEM_05C
- 07b8 c7 46 eb 00 02 mov word ptr -15H[bp],0200H
- 07bd b0 16 mov al,16H
- 07bf 50 push ax
- 07c0 8d 7e eb lea di,-15H[bp]
- 07c3 16 push ss
- 07c4 57 push di
- 07c5 9a 00 00 00 00 call far DOS_001
- 07ca 8a 46 eb mov al,-15H[bp]
- 07cd 88 46 ff mov -1H[bp],al
- 07d0 8a 46 ff mov al,-1H[bp]
- 07d3 89 ec mov sp,bp
- 07d5 5d pop bp
- 07d6 c3 ret
- 07d7 CAPSONFN:
- 07d7 55 TSUNTE_007 push bp
- 07d8 89 e5 mov bp,sp
- 07da b8 01 00 mov ax,0001H
- 07dd 9a 00 00 00 00 call far SYSTEM_034
- 07e2 83 ec 01 sub sp,0001H
- 07e5 e8 00 00 call TSUNTE_01F
- 07e8 24 40 and al,40H
- 07ea 08 c0 or al,al
- 07ec 76 06 jbe L32
- 07ee c6 46 ff 01 mov byte ptr -1H[bp],01H
- 07f2 eb 04 jmp L33
- 07f4 c6 46 ff 00 L32 mov byte ptr -1H[bp],00H
- 07f8 8a 46 ff L33 mov al,-1H[bp]
- 07fb 89 ec mov sp,bp
- 07fd 5d pop bp
- 07fe cb retf
- 07ff NUMLONFN:
- 07ff 55 TSUNTE_008 push bp
- 0800 89 e5 mov bp,sp
- 0802 b8 01 00 mov ax,0001H
- 0805 9a 00 00 00 00 call far SYSTEM_034
- 080a 83 ec 01 sub sp,0001H
- 080d e8 00 00 call TSUNTE_01F
- 0810 24 20 and al,20H
- 0812 08 c0 or al,al
- 0814 76 06 jbe L34
- 0816 c6 46 ff 01 mov byte ptr -1H[bp],01H
- 081a eb 04 jmp L35
- 081c c6 46 ff 00 L34 mov byte ptr -1H[bp],00H
- 0820 8a 46 ff L35 mov al,-1H[bp]
- 0823 89 ec mov sp,bp
- 0825 5d pop bp
- 0826 cb retf
- 0827 SCRLONFN:
- 0827 55 TSUNTE_009 push bp
- 0828 89 e5 mov bp,sp
- 082a b8 01 00 mov ax,0001H
- 082d 9a 00 00 00 00 call far SYSTEM_034
- 0832 83 ec 01 sub sp,0001H
- 0835 e8 00 00 call TSUNTE_01F
- 0838 24 10 and al,10H
- 083a 08 c0 or al,al
- 083c 76 06 jbe L36
- 083e c6 46 ff 01 mov byte ptr -1H[bp],01H
- 0842 eb 04 jmp L37
- 0844 c6 46 ff 00 L36 mov byte ptr -1H[bp],00H
- 0848 8a 46 ff L37 mov al,-1H[bp]
- 084b 89 ec mov sp,bp
- 084d 5d pop bp
- 084e cb retf
- 084f CAPS:
- 084f 55 TSUNTE_00A push bp
- 0850 89 e5 mov bp,sp
- 0852 b8 14 00 mov ax,0014H
- 0855 9a 00 00 00 00 call far SYSTEM_034
- 085a 83 ec 14 sub sp,0014H
- 085d 8d 7e ec lea di,-14H[bp]
- 0860 16 push ss
- 0861 57 push di
- 0862 b8 14 00 mov ax,0014H
- 0865 50 push ax
- 0866 b0 00 mov al,00H
- 0868 50 push ax
- 0869 9a 00 00 00 00 call far SYSTEM_05C
- 086e 80 7e 06 00 cmp byte ptr +6H[bp],00H
- 0872 74 16 je L38
- 0874 be 40 00 mov si,0040H
- 0877 8e c6 mov es,si
- 0879 26 a0 17 00 mov al,es:[00000017H]
- 087d 0c 40 or al,40H
- 087f be 40 00 mov si,0040H
- 0882 8e c6 mov es,si
- 0884 26 a2 17 00 mov es:[00000017H],al
- 0888 eb 14 jmp L39
- 088a be 40 00 L38 mov si,0040H
- 088d 8e c6 mov es,si
- 088f 26 a0 17 00 mov al,es:[00000017H]
- 0893 24 bf and al,0bfH
- 0895 be 40 00 mov si,0040H
- 0898 8e c6 mov es,si
- 089a 26 a2 17 00 mov es:[00000017H],al
- 089e c6 46 ed 01 L39 mov byte ptr -13H[bp],01H
- 08a2 b0 16 mov al,16H
- 08a4 50 push ax
- 08a5 8d 7e ec lea di,-14H[bp]
- 08a8 16 push ss
- 08a9 57 push di
- 08aa 9a 00 00 00 00 call far DOS_001
- 08af 89 ec mov sp,bp
- 08b1 5d pop bp
- 08b2 ca 02 00 retf 0002H
- 08b5 NUMLOCK:
- 08b5 55 TSUNTE_00B push bp
- 08b6 89 e5 mov bp,sp
- 08b8 b8 14 00 mov ax,0014H
- 08bb 9a 00 00 00 00 call far SYSTEM_034
- 08c0 83 ec 14 sub sp,0014H
- 08c3 8d 7e ec lea di,-14H[bp]
- 08c6 16 push ss
- 08c7 57 push di
- 08c8 b8 14 00 mov ax,0014H
- 08cb 50 push ax
- 08cc b0 00 mov al,00H
- 08ce 50 push ax
- 08cf 9a 00 00 00 00 call far SYSTEM_05C
- 08d4 80 7e 06 00 cmp byte ptr +6H[bp],00H
- 08d8 74 16 je L40
- 08da be 40 00 mov si,0040H
- 08dd 8e c6 mov es,si
- 08df 26 a0 17 00 mov al,es:[00000017H]
- 08e3 0c 20 or al,20H
- 08e5 be 40 00 mov si,0040H
- 08e8 8e c6 mov es,si
- 08ea 26 a2 17 00 mov es:[00000017H],al
- 08ee eb 14 jmp L41
- 08f0 be 40 00 L40 mov si,0040H
- 08f3 8e c6 mov es,si
- 08f5 26 a0 17 00 mov al,es:[00000017H]
- 08f9 24 df and al,0dfH
- 08fb be 40 00 mov si,0040H
- 08fe 8e c6 mov es,si
- 0900 26 a2 17 00 mov es:[00000017H],al
- 0904 c6 46 ed 01 L41 mov byte ptr -13H[bp],01H
- 0908 b0 16 mov al,16H
- 090a 50 push ax
- 090b 8d 7e ec lea di,-14H[bp]
- 090e 16 push ss
- 090f 57 push di
- 0910 9a 00 00 00 00 call far DOS_001
- 0915 89 ec mov sp,bp
- 0917 5d pop bp
- 0918 ca 02 00 retf 0002H
- 091b SCRLOCK:
- 091b 55 TSUNTE_00C push bp
- 091c 89 e5 mov bp,sp
- 091e b8 14 00 mov ax,0014H
- 0921 9a 00 00 00 00 call far SYSTEM_034
- 0926 83 ec 14 sub sp,0014H
- 0929 8d 7e ec lea di,-14H[bp]
- 092c 16 push ss
- 092d 57 push di
- 092e b8 14 00 mov ax,0014H
- 0931 50 push ax
- 0932 b0 00 mov al,00H
- 0934 50 push ax
- 0935 9a 00 00 00 00 call far SYSTEM_05C
- 093a 80 7e 06 00 cmp byte ptr +6H[bp],00H
- 093e 74 16 je L42
- 0940 be 40 00 mov si,0040H
- 0943 8e c6 mov es,si
- 0945 26 a0 17 00 mov al,es:[00000017H]
- 0949 0c 10 or al,10H
- 094b be 40 00 mov si,0040H
- 094e 8e c6 mov es,si
- 0950 26 a2 17 00 mov es:[00000017H],al
- 0954 eb 14 jmp L43
- 0956 be 40 00 L42 mov si,0040H
- 0959 8e c6 mov es,si
- 095b 26 a0 17 00 mov al,es:[00000017H]
- 095f 24 ef and al,0efH
- 0961 be 40 00 mov si,0040H
- 0964 8e c6 mov es,si
- 0966 26 a2 17 00 mov es:[00000017H],al
- 096a c6 46 ed 01 L43 mov byte ptr -13H[bp],01H
- 096e b0 16 mov al,16H
- 0970 50 push ax
- 0971 8d 7e ec lea di,-14H[bp]
- 0974 16 push ss
- 0975 57 push di
- 0976 9a 00 00 00 00 call far DOS_001
- 097b 89 ec mov sp,bp
- 097d 5d pop bp
- 097e ca 02 00 retf 0002H
- 0981 FSIZEFN:
- 0981 55 TSUNTE_00E push bp
- 0982 89 e5 mov bp,sp
- 0984 b8 85 01 mov ax,0185H
- 0987 9a 00 00 00 00 call far SYSTEM_034
- 098c 81 ec 85 01 sub sp,0185H
- 0990 c4 7e 06 les di,dword ptr +6H[bp]
- 0993 06 push es
- 0994 57 push di
- 0995 8d be fc fe lea di,-104H[bp]
- 0999 16 push ss
- 099a 57 push di
- 099b b8 ff 00 mov ax,00ffH
- 099e 50 push ax
- 099f 9a 00 00 00 00 call far SYSTEM_00C
- 09a4 a0 00 00 mov al,SYSTEM_BSS+236H
- 09a7 88 86 7b fe mov -185H[bp],al
- 09ab c6 06 00 00 00 mov byte ptr SYSTEM_BSS+236H,00H
- 09b0 8d be 7c fe lea di,-184H[bp]
- 09b4 16 push ss
- 09b5 57 push di
- 09b6 8d be fc fe lea di,-104H[bp]
- 09ba 16 push ss
- 09bb 57 push di
- 09bc 9a 00 00 00 00 call far SYSTEM_049
- 09c1 8d be 7c fe lea di,-184H[bp]
- 09c5 16 push ss
- 09c6 57 push di
- 09c7 b8 01 00 mov ax,0001H
- 09ca 50 push ax
- 09cb 9a 00 00 00 00 call far SYSTEM_04A
- 09d0 9a 00 00 00 00 call far SYSTEM_031
- 09d5 09 c0 or ax,ax
- 09d7 74 13 je L44
- 09d9 c7 46 fc ff ff mov word ptr -4H[bp],0ffffH
- 09de c7 46 fe ff ff mov word ptr -2H[bp],0ffffH
- 09e3 8a 86 7b fe mov al,-185H[bp]
- 09e7 a2 00 00 mov SYSTEM_BSS+236H,al
- 09ea eb 2d jmp L45
- 09ec 8d be 7c fe L44 lea di,-184H[bp]
- 09f0 16 push ss
- 09f1 57 push di
- 09f2 9a 00 00 00 00 call far SYSTEM_057
- 09f7 9a 00 00 00 00 call far SYSTEM_032
- 09fc 89 46 fc mov -4H[bp],ax
- 09ff 89 56 fe mov -2H[bp],dx
- 0a02 8d be 7c fe lea di,-184H[bp]
- 0a06 16 push ss
- 0a07 57 push di
- 0a08 9a 00 00 00 00 call far SYSTEM_04C
- 0a0d 9a 00 00 00 00 call far SYSTEM_032
- 0a12 8a 86 7b fe mov al,-185H[bp]
- 0a16 a2 00 00 mov SYSTEM_BSS+236H,al
- 0a19 8b 46 fc L45 mov ax,-4H[bp]
- 0a1c 8b 56 fe mov dx,-2H[bp]
- 0a1f 89 ec mov sp,bp
- 0a21 5d pop bp
- 0a22 ca 04 00 retf 0004H
- 0a25 FSIZE2FN:
- 0a25 55 TSUNTE_00F push bp
- 0a26 89 e5 mov bp,sp
- 0a28 b8 2f 01 mov ax,012fH
- 0a2b 9a 00 00 00 00 call far SYSTEM_034
- 0a30 81 ec 2f 01 sub sp,012fH
- 0a34 c4 7e 06 les di,dword ptr +6H[bp]
- 0a37 06 push es
- 0a38 57 push di
- 0a39 8d be fc fe lea di,-104H[bp]
- 0a3d 16 push ss
- 0a3e 57 push di
- 0a3f b8 ff 00 mov ax,00ffH
- 0a42 50 push ax
- 0a43 9a 00 00 00 00 call far SYSTEM_00C
- 0a48 c7 46 fc ff ff mov word ptr -4H[bp],0ffffH
- 0a4d c7 46 fe ff ff mov word ptr -2H[bp],0ffffH
- 0a52 8d be fc fe lea di,-104H[bp]
- 0a56 16 push ss
- 0a57 57 push di
- 0a58 b8 3f 00 mov ax,003fH
- 0a5b 50 push ax
- 0a5c 8d be d1 fe lea di,-12fH[bp]
- 0a60 16 push ss
- 0a61 57 push di
- 0a62 9a 00 00 00 00 call far DOS_00D
- 0a67 83 3e 00 00 00 cmp word ptr DOS_BSS,0000H
- 0a6c 74 02 je L46
- 0a6e eb 20 jmp L47
- 0a70 8a 86 e6 fe L46 mov al,-11aH[bp]
- 0a74 24 08 and al,08H
- 0a76 08 c0 or al,al
- 0a78 75 16 jne L47
- 0a7a 8a 86 e6 fe mov al,-11aH[bp]
- 0a7e 24 10 and al,10H
- 0a80 08 c0 or al,al
- 0a82 75 0c jne L47
- 0a84 c4 86 eb fe les ax,dword ptr -115H[bp]
- 0a88 8c c2 mov dx,es
- 0a8a 89 46 fc mov -4H[bp],ax
- 0a8d 89 56 fe mov -2H[bp],dx
- 0a90 8b 46 fc L47 mov ax,-4H[bp]
- 0a93 8b 56 fe mov dx,-2H[bp]
- 0a96 89 ec mov sp,bp
- 0a98 5d pop bp
- 0a99 ca 04 00 retf 0004H
- 0a9c CLUSIZFN:
- 0a9c 55 TSUNTE_010 push bp
- 0a9d 89 e5 mov bp,sp
- 0a9f b8 18 00 mov ax,0018H
- 0aa2 9a 00 00 00 00 call far SYSTEM_034
- 0aa7 83 ec 18 sub sp,0018H
- 0aaa 8d 7e e8 lea di,-18H[bp]
- 0aad 16 push ss
- 0aae 57 push di
- 0aaf b8 14 00 mov ax,0014H
- 0ab2 50 push ax
- 0ab3 b0 00 mov al,00H
- 0ab5 50 push ax
- 0ab6 9a 00 00 00 00 call far SYSTEM_05C
- 0abb c7 46 e8 00 36 mov word ptr -18H[bp],3600H
- 0ac0 8a 46 06 mov al,+6H[bp]
- 0ac3 50 push ax
- 0ac4 9a 00 00 00 00 call far SYSTEM_05A
- 0ac9 30 e4 xor ah,ah
- 0acb 2d 40 00 sub ax,0040H
- 0ace 89 46 ee mov -12H[bp],ax
- 0ad1 8d 7e e8 lea di,-18H[bp]
- 0ad4 16 push ss
- 0ad5 57 push di
- 0ad6 9a 00 00 00 00 call far DOS_002
- 0adb 83 7e e8 ff cmp word ptr -18H[bp],0ffffH
- 0adf 75 0c jne L48
- 0ae1 c7 46 fc ff ff mov word ptr -4H[bp],0ffffH
- 0ae6 c7 46 fe ff ff mov word ptr -2H[bp],0ffffH
- 0aeb eb 0e jmp L49
- 0aed 8b 46 ec L48 mov ax,-14H[bp]
- 0af0 f7 66 e8 mul word ptr -18H[bp]
- 0af3 31 d2 xor dx,dx
- 0af5 89 46 fc mov -4H[bp],ax
- 0af8 89 56 fe mov -2H[bp],dx
- 0afb 8b 46 fc L49 mov ax,-4H[bp]
- 0afe 8b 56 fe mov dx,-2H[bp]
- 0b01 89 ec mov sp,bp
- 0b03 5d pop bp
- 0b04 ca 02 00 retf 0002H
- 0b07 FEXISTFN:
- 0b07 55 TSUNTE_00D push bp
- 0b08 89 e5 mov bp,sp
- 0b0a b8 84 01 mov ax,0184H
- 0b0d 9a 00 00 00 00 call far SYSTEM_034
- 0b12 81 ec 84 01 sub sp,0184H
- 0b16 c4 7e 06 les di,dword ptr +6H[bp]
- 0b19 06 push es
- 0b1a 57 push di
- 0b1b 8d be ff fe lea di,-101H[bp]
- 0b1f 16 push ss
- 0b20 57 push di
- 0b21 b8 ff 00 mov ax,00ffH
- 0b24 50 push ax
- 0b25 9a 00 00 00 00 call far SYSTEM_00C
- 0b2a a0 00 00 mov al,SYSTEM_BSS+236H
- 0b2d 88 86 7c fe mov -184H[bp],al
- 0b31 c6 06 00 00 00 mov byte ptr SYSTEM_BSS+236H,00H
- 0b36 8d be 7f fe lea di,-181H[bp]
- 0b3a 16 push ss
- 0b3b 57 push di
- 0b3c 8d be ff fe lea di,-101H[bp]
- 0b40 16 push ss
- 0b41 57 push di
- 0b42 9a 00 00 00 00 call far SYSTEM_049
- 0b47 8d be 7f fe lea di,-181H[bp]
- 0b4b 16 push ss
- 0b4c 57 push di
- 0b4d b8 80 00 mov ax,0080H
- 0b50 50 push ax
- 0b51 9a 00 00 00 00 call far SYSTEM_04A
- 0b56 9a 00 00 00 00 call far SYSTEM_031
- 0b5b 89 86 7d fe mov -183H[bp],ax
- 0b5f 83 be 7d fe 00 cmp word ptr -183H[bp],0000H
- 0b64 74 04 je L50
- 0b66 b0 00 mov al,00H
- 0b68 eb 02 jmp L51
- 0b6a b0 01 L50 mov al,01H
- 0b6c 88 46 ff L51 mov -1H[bp],al
- 0b6f 83 be 7d fe 00 cmp word ptr -183H[bp],0000H
- 0b74 75 10 jne L52
- 0b76 8d be 7f fe lea di,-181H[bp]
- 0b7a 16 push ss
- 0b7b 57 push di
- 0b7c 9a 00 00 00 00 call far SYSTEM_04C
- 0b81 9a 00 00 00 00 call far SYSTEM_032
- 0b86 8a 86 7c fe L52 mov al,-184H[bp]
- 0b8a a2 00 00 mov SYSTEM_BSS+236H,al
- 0b8d 8a 46 ff mov al,-1H[bp]
- 0b90 89 ec mov sp,bp
- 0b92 5d pop bp
- 0b93 ca 04 00 retf 0004H
- 0b96 RDOFILFN:
- 0b96 55 TSUNTE_013 push bp
- 0b97 89 e5 mov bp,sp
- 0b99 b8 2c 01 mov ax,012cH
- 0b9c 9a 00 00 00 00 call far SYSTEM_034
- 0ba1 81 ec 2c 01 sub sp,012cH
- 0ba5 c4 7e 06 les di,dword ptr +6H[bp]
- 0ba8 06 push es
- 0ba9 57 push di
- 0baa 8d be ff fe lea di,-101H[bp]
- 0bae 16 push ss
- 0baf 57 push di
- 0bb0 b8 ff 00 mov ax,00ffH
- 0bb3 50 push ax
- 0bb4 9a 00 00 00 00 call far SYSTEM_00C
- 0bb9 c6 46 ff 00 mov byte ptr -1H[bp],00H
- 0bbd 8d be ff fe lea di,-101H[bp]
- 0bc1 16 push ss
- 0bc2 57 push di
- 0bc3 b8 3f 00 mov ax,003fH
- 0bc6 50 push ax
- 0bc7 8d be d4 fe lea di,-12cH[bp]
- 0bcb 16 push ss
- 0bcc 57 push di
- 0bcd 9a 00 00 00 00 call far DOS_00D
- 0bd2 83 3e 00 00 00 L53 cmp word ptr DOS_BSS,0000H
- 0bd7 75 2f jne L55
- 0bd9 8a 86 e9 fe mov al,-117H[bp]
- 0bdd 24 08 and al,08H
- 0bdf 08 c0 or al,al
- 0be1 75 18 jne L54
- 0be3 8a 86 e9 fe mov al,-117H[bp]
- 0be7 24 10 and al,10H
- 0be9 08 c0 or al,al
- 0beb 75 0e jne L54
- 0bed 8a 86 e9 fe mov al,-117H[bp]
- 0bf1 24 01 and al,01H
- 0bf3 08 c0 or al,al
- 0bf5 74 04 je L54
- 0bf7 c6 46 ff 01 mov byte ptr -1H[bp],01H
- 0bfb 8d be d4 fe L54 lea di,-12cH[bp]
- 0bff 16 push ss
- 0c00 57 push di
- 0c01 9a 00 00 00 00 call far DOS_00E
- 0c06 eb ca jmp L53
- 0c08 8a 46 ff L55 mov al,-1H[bp]
- 0c0b 89 ec mov sp,bp
- 0c0d 5d pop bp
- 0c0e ca 04 00 retf 0004H
- 0c11 HIDFILFN:
- 0c11 55 TSUNTE_012 push bp
- 0c12 89 e5 mov bp,sp
- 0c14 b8 2c 01 mov ax,012cH
- 0c17 9a 00 00 00 00 call far SYSTEM_034
- 0c1c 81 ec 2c 01 sub sp,012cH
- 0c20 c4 7e 06 les di,dword ptr +6H[bp]
- 0c23 06 push es
- 0c24 57 push di
- 0c25 8d be ff fe lea di,-101H[bp]
- 0c29 16 push ss
- 0c2a 57 push di
- 0c2b b8 ff 00 mov ax,00ffH
- 0c2e 50 push ax
- 0c2f 9a 00 00 00 00 call far SYSTEM_00C
- 0c34 c6 46 ff 00 mov byte ptr -1H[bp],00H
- 0c38 8d be ff fe lea di,-101H[bp]
- 0c3c 16 push ss
- 0c3d 57 push di
- 0c3e b8 3f 00 mov ax,003fH
- 0c41 50 push ax
- 0c42 8d be d4 fe lea di,-12cH[bp]
- 0c46 16 push ss
- 0c47 57 push di
- 0c48 9a 00 00 00 00 call far DOS_00D
- 0c4d 83 3e 00 00 00 L56 cmp word ptr DOS_BSS,0000H
- 0c52 75 2f jne L58
- 0c54 8a 86 e9 fe mov al,-117H[bp]
- 0c58 24 08 and al,08H
- 0c5a 08 c0 or al,al
- 0c5c 75 18 jne L57
- 0c5e 8a 86 e9 fe mov al,-117H[bp]
- 0c62 24 10 and al,10H
- 0c64 08 c0 or al,al
- 0c66 75 0e jne L57
- 0c68 8a 86 e9 fe mov al,-117H[bp]
- 0c6c 24 02 and al,02H
- 0c6e 08 c0 or al,al
- 0c70 74 04 je L57
- 0c72 c6 46 ff 01 mov byte ptr -1H[bp],01H
- 0c76 8d be d4 fe L57 lea di,-12cH[bp]
- 0c7a 16 push ss
- 0c7b 57 push di
- 0c7c 9a 00 00 00 00 call far DOS_00E
- 0c81 eb ca jmp L56
- 0c83 8a 46 ff L58 mov al,-1H[bp]
- 0c86 89 ec mov sp,bp
- 0c88 5d pop bp
- 0c89 ca 04 00 retf 0004H
- 0c8c SYSFILFN:
- 0c8c 55 TSUNTE_014 push bp
- 0c8d 89 e5 mov bp,sp
- 0c8f b8 2c 01 mov ax,012cH
- 0c92 9a 00 00 00 00 call far SYSTEM_034
- 0c97 81 ec 2c 01 sub sp,012cH
- 0c9b c4 7e 06 les di,dword ptr +6H[bp]
- 0c9e 06 push es
- 0c9f 57 push di
- 0ca0 8d be ff fe lea di,-101H[bp]
- 0ca4 16 push ss
- 0ca5 57 push di
- 0ca6 b8 ff 00 mov ax,00ffH
- 0ca9 50 push ax
- 0caa 9a 00 00 00 00 call far SYSTEM_00C
- 0caf c6 46 ff 00 mov byte ptr -1H[bp],00H
- 0cb3 8d be ff fe lea di,-101H[bp]
- 0cb7 16 push ss
- 0cb8 57 push di
- 0cb9 b8 3f 00 mov ax,003fH
- 0cbc 50 push ax
- 0cbd 8d be d4 fe lea di,-12cH[bp]
- 0cc1 16 push ss
- 0cc2 57 push di
- 0cc3 9a 00 00 00 00 call far DOS_00D
- 0cc8 83 3e 00 00 00 L59 cmp word ptr DOS_BSS,0000H
- 0ccd 75 2f jne L61
- 0ccf 8a 86 e9 fe mov al,-117H[bp]
- 0cd3 24 08 and al,08H
- 0cd5 08 c0 or al,al
- 0cd7 75 18 jne L60
- 0cd9 8a 86 e9 fe mov al,-117H[bp]
- 0cdd 24 10 and al,10H
- 0cdf 08 c0 or al,al
- 0ce1 75 0e jne L60
- 0ce3 8a 86 e9 fe mov al,-117H[bp]
- 0ce7 24 04 and al,04H
- 0ce9 08 c0 or al,al
- 0ceb 74 04 je L60
- 0ced c6 46 ff 01 mov byte ptr -1H[bp],01H
- 0cf1 8d be d4 fe L60 lea di,-12cH[bp]
- 0cf5 16 push ss
- 0cf6 57 push di
- 0cf7 9a 00 00 00 00 call far DOS_00E
- 0cfc eb ca jmp L59
- 0cfe 8a 46 ff L61 mov al,-1H[bp]
- 0d01 89 ec mov sp,bp
- 0d03 5d pop bp
- 0d04 ca 04 00 retf 0004H
- 0d07 ARCFILFN:
- 0d07 55 TSUNTE_011 push bp
- 0d08 89 e5 mov bp,sp
- 0d0a b8 2c 01 mov ax,012cH
- 0d0d 9a 00 00 00 00 call far SYSTEM_034
- 0d12 81 ec 2c 01 sub sp,012cH
- 0d16 c4 7e 06 les di,dword ptr +6H[bp]
- 0d19 06 push es
- 0d1a 57 push di
- 0d1b 8d be ff fe lea di,-101H[bp]
- 0d1f 16 push ss
- 0d20 57 push di
- 0d21 b8 ff 00 mov ax,00ffH
- 0d24 50 push ax
- 0d25 9a 00 00 00 00 call far SYSTEM_00C
- 0d2a c6 46 ff 00 mov byte ptr -1H[bp],00H
- 0d2e 8d be ff fe lea di,-101H[bp]
- 0d32 16 push ss
- 0d33 57 push di
- 0d34 b8 3f 00 mov ax,003fH
- 0d37 50 push ax
- 0d38 8d be d4 fe lea di,-12cH[bp]
- 0d3c 16 push ss
- 0d3d 57 push di
- 0d3e 9a 00 00 00 00 call far DOS_00D
- 0d43 83 3e 00 00 00 L62 cmp word ptr DOS_BSS,0000H
- 0d48 75 2f jne L64
- 0d4a 8a 86 e9 fe mov al,-117H[bp]
- 0d4e 24 08 and al,08H
- 0d50 08 c0 or al,al
- 0d52 75 18 jne L63
- 0d54 8a 86 e9 fe mov al,-117H[bp]
- 0d58 24 10 and al,10H
- 0d5a 08 c0 or al,al
- 0d5c 75 0e jne L63
- 0d5e 8a 86 e9 fe mov al,-117H[bp]
- 0d62 24 20 and al,20H
- 0d64 08 c0 or al,al
- 0d66 74 04 je L63
- 0d68 c6 46 ff 01 mov byte ptr -1H[bp],01H
- 0d6c 8d be d4 fe L63 lea di,-12cH[bp]
- 0d70 16 push ss
- 0d71 57 push di
- 0d72 9a 00 00 00 00 call far DOS_00E
- 0d77 eb ca jmp L62
- 0d79 8a 46 ff L64 mov al,-1H[bp]
- 0d7c 89 ec mov sp,bp
- 0d7e 5d pop bp
- 0d7f ca 04 00 retf 0004H
- 0d82 DEFDRVFN:
- 0d82 55 TSUNTE_015 push bp
- 0d83 89 e5 mov bp,sp
- 0d85 b8 02 01 mov ax,0102H
- 0d88 9a 00 00 00 00 call far SYSTEM_034
- 0d8d 81 ec 02 01 sub sp,0102H
- 0d91 a0 00 00 mov al,SYSTEM_BSS+236H
- 0d94 88 46 fe mov -2H[bp],al
- 0d97 c6 06 00 00 00 mov byte ptr SYSTEM_BSS+236H,00H
- 0d9c b0 00 mov al,00H
- 0d9e 50 push ax
- 0d9f 8d be fe fe lea di,-102H[bp]
- 0da3 16 push ss
- 0da4 57 push di
- 0da5 b8 ff 00 mov ax,00ffH
- 0da8 50 push ax
- 0da9 9a 00 00 00 00 call far SYSTEM_065
- 0dae 8a 86 ff fe mov al,-101H[bp]
- 0db2 88 46 ff mov -1H[bp],al
- 0db5 8a 46 fe mov al,-2H[bp]
- 0db8 a2 00 00 mov SYSTEM_BSS+236H,al
- 0dbb 8a 46 ff mov al,-1H[bp]
- 0dbe 89 ec mov sp,bp
- 0dc0 5d pop bp
- 0dc1 cb retf
- 0dc2 CMDLNFN:
- 0dc2 55 TSUNTE_01B push bp
- 0dc3 89 e5 mov bp,sp
- 0dc5 b8 04 00 mov ax,0004H
- 0dc8 9a 00 00 00 00 call far SYSTEM_034
- 0dcd 83 ec 04 sub sp,0004H
- 0dd0 b8 80 00 mov ax,0080H
- 0dd3 8b 16 00 00 mov dx,SYSTEM_BSS+200H
- 0dd7 89 46 fc mov -4H[bp],ax
- 0dda 89 56 fe mov -2H[bp],dx
- 0ddd c4 7e fc les di,dword ptr -4H[bp]
- 0de0 06 push es
- 0de1 57 push di
- 0de2 c4 7e 06 les di,dword ptr +6H[bp]
- 0de5 06 push es
- 0de6 57 push di
- 0de7 b8 ff 00 mov ax,00ffH
- 0dea 50 push ax
- 0deb 9a 00 00 00 00 call far SYSTEM_00C
- 0df0 89 ec mov sp,bp
- 0df2 5d pop bp
- 0df3 cb retf
- 0df4 BORDER:
- 0df4 55 TSUNTE_004 push bp
- 0df5 89 e5 mov bp,sp
- 0df7 b8 14 00 mov ax,0014H
- 0dfa 9a 00 00 00 00 call far SYSTEM_034
- 0dff 83 ec 14 sub sp,0014H
- 0e02 8d 7e ec lea di,-14H[bp]
- 0e05 16 push ss
- 0e06 57 push di
- 0e07 b8 14 00 mov ax,0014H
- 0e0a 50 push ax
- 0e0b b0 00 mov al,00H
- 0e0d 50 push ax
- 0e0e 9a 00 00 00 00 call far SYSTEM_05C
- 0e13 c6 46 ed 0b mov byte ptr -13H[bp],0bH
- 0e17 c6 46 ef 00 mov byte ptr -11H[bp],00H
- 0e1b 8a 46 06 mov al,+6H[bp]
- 0e1e 88 46 ee mov -12H[bp],al
- 0e21 b0 10 mov al,10H
- 0e23 50 push ax
- 0e24 8d 7e ec lea di,-14H[bp]
- 0e27 16 push ss
- 0e28 57 push di
- 0e29 9a 00 00 00 00 call far DOS_001
- 0e2e 89 ec mov sp,bp
- 0e30 5d pop bp
- 0e31 ca 02 00 retf 0002H
-
- No disassembly errors
-
- ------------------------------------------------------------
-
- Segment: _DATA WORD 00000100 bytes
- 0000 24 30 30 30 30 33 31 30 TSUNTE_DATA - $0000310
- 0008 35 39 30 39 30 31 32 30 - 59090120
- 0010 31 35 31 31 38 31 32 31 - 15118121
- 0018 32 32 34 33 32 37 33 33 - 22432733
- 0020 30 34 33 33 34 00 00 00 - 04334...
- 0028 00 00 00 00 00 00 00 00 - ........
- --- Above line repeats 26 time(s) ---
-
- No disassembly errors
-
- ------------------------------------------------------------
-