home *** CD-ROM | disk | FTP | other *** search
Text File | 1994-06-19 | 72.9 KB | 1,295 lines |
-
- Module: TSUNTH.PAS
- Group: 'DGROUP' _DATA,_BSS
-
- Segment: TSUNTH_TEXT PARA 00000c0a bytes
- 0000 GRTABLFN:
- 0000 55 TSUNTH_001 push bp
- 0001 89 e5 mov bp,sp
- 0003 b8 08 00 mov ax,0008H
- 0006 9a 00 00 00 00 call far SYSTEM_034
- 000b 83 ec 08 sub sp,0008H
- 000e 31 c0 xor ax,ax
- 0010 50 push ax
- 0011 bf 7c 00 mov di,007cH
- 0014 07 pop es
- 0015 26 8b 05 mov ax,es:[di]
- 0018 89 46 fb mov -5H[bp],ax
- 001b 31 c0 xor ax,ax
- 001d 50 push ax
- 001e bf 7e 00 mov di,007eH
- 0021 07 pop es
- 0022 26 8b 05 mov ax,es:[di]
- 0025 89 46 fd mov -3H[bp],ax
- 0028 c6 46 ff 01 mov byte ptr -1H[bp],01H
- 002c c7 46 f8 1f 00 mov word ptr -8H[bp],001fH
- 0031 c6 46 fa 01 mov byte ptr -6H[bp],01H
- 0035 eb 03 jmp L2
- 0037 fe 46 fa L1 inc byte ptr -6H[bp]
- 003a 8b 46 fd L2 mov ax,-3H[bp]
- 003d 50 push ax
- 003e 8b 46 f8 mov ax,-8H[bp]
- 0041 99 cwd
- 0042 8b c8 mov cx,ax
- 0044 8b da mov bx,dx
- 0046 8b 46 fb mov ax,-5H[bp]
- 0049 31 d2 xor dx,dx
- 004b 03 c1 add ax,cx
- 004d 13 d3 adc dx,bx
- 004f 8b c8 mov cx,ax
- 0051 8b da mov bx,dx
- 0053 8a 46 fa mov al,-6H[bp]
- 0056 30 e4 xor ah,ah
- 0058 31 d2 xor dx,dx
- 005a 03 c1 add ax,cx
- 005c 13 d3 adc dx,bx
- 005e 8b f8 mov di,ax
- 0060 07 pop es
- 0061 26 8a 15 mov dl,es:[di]
- 0064 8a 46 fa mov al,-6H[bp]
- 0067 30 e4 xor ah,ah
- 0069 8b f8 mov di,ax
- 006b 8a 85 00 00 mov al,TSUNTH_DATA-1H[di]
- 006f 3a c2 cmp al,dl
- 0071 74 06 je L3
- 0073 c6 46 ff 00 mov byte ptr -1H[bp],00H
- 0077 eb 06 jmp L4
- 0079 80 7e fa 08 L3 cmp byte ptr -6H[bp],08H
- 007d 75 b8 jne L1
- 007f 8a 46 ff L4 mov al,-1H[bp]
- 0082 89 ec mov sp,bp
- 0084 5d pop bp
- 0085 cb retf
- 0086 MATHCOFN:
- 0086 55 TSUNTH_005 push bp
- 0087 89 e5 mov bp,sp
- 0089 b8 17 00 mov ax,0017H
- 008c 9a 00 00 00 00 call far SYSTEM_034
- 0091 83 ec 17 sub sp,0017H
- 0094 8d 7e eb lea di,-15H[bp]
- 0097 16 push ss
- 0098 57 push di
- 0099 b8 14 00 mov ax,0014H
- 009c 50 push ax
- 009d b0 00 mov al,00H
- 009f 50 push ax
- 00a0 9a 00 00 00 00 call far SYSTEM_05C
- 00a5 b0 11 mov al,11H
- 00a7 50 push ax
- 00a8 8d 7e eb lea di,-15H[bp]
- 00ab 16 push ss
- 00ac 57 push di
- 00ad 9a 00 00 00 00 call far DOS_001
- 00b2 8b 46 eb mov ax,-15H[bp]
- 00b5 89 46 e9 mov -17H[bp],ax
- 00b8 8b 46 e9 mov ax,-17H[bp]
- 00bb d1 e8 shr ax,1
- 00bd 25 01 00 and ax,0001H
- 00c0 3d 01 00 cmp ax,0001H
- 00c3 74 04 je L5
- 00c5 b0 00 mov al,00H
- 00c7 eb 02 jmp L6
- 00c9 b0 01 L5 mov al,01H
- 00cb 88 46 ff L6 mov -1H[bp],al
- 00ce 8a 46 ff mov al,-1H[bp]
- 00d1 89 ec mov sp,bp
- 00d3 5d pop bp
- 00d4 cb retf
- 00d5 RS232FN:
- 00d5 55 TSUNTH_006 push bp
- 00d6 89 e5 mov bp,sp
- 00d8 b8 17 00 mov ax,0017H
- 00db 9a 00 00 00 00 call far SYSTEM_034
- 00e0 83 ec 17 sub sp,0017H
- 00e3 8d 7e eb lea di,-15H[bp]
- 00e6 16 push ss
- 00e7 57 push di
- 00e8 b8 14 00 mov ax,0014H
- 00eb 50 push ax
- 00ec b0 00 mov al,00H
- 00ee 50 push ax
- 00ef 9a 00 00 00 00 call far SYSTEM_05C
- 00f4 b0 11 mov al,11H
- 00f6 50 push ax
- 00f7 8d 7e eb lea di,-15H[bp]
- 00fa 16 push ss
- 00fb 57 push di
- 00fc 9a 00 00 00 00 call far DOS_001
- 0101 8b 46 eb mov ax,-15H[bp]
- 0104 89 46 e9 mov -17H[bp],ax
- 0107 8b 46 e9 mov ax,-17H[bp]
- 010a b9 09 00 mov cx,0009H
- 010d d3 e8 shr ax,cl
- 010f 25 07 00 and ax,0007H
- 0112 88 46 ff mov -1H[bp],al
- 0115 8a 46 ff mov al,-1H[bp]
- 0118 89 ec mov sp,bp
- 011a 5d pop bp
- 011b cb retf
- 011c PARPORFN:
- 011c 55 TSUNTH_007 push bp
- 011d 89 e5 mov bp,sp
- 011f b8 17 00 mov ax,0017H
- 0122 9a 00 00 00 00 call far SYSTEM_034
- 0127 83 ec 17 sub sp,0017H
- 012a 8d 7e eb lea di,-15H[bp]
- 012d 16 push ss
- 012e 57 push di
- 012f b8 14 00 mov ax,0014H
- 0132 50 push ax
- 0133 b0 00 mov al,00H
- 0135 50 push ax
- 0136 9a 00 00 00 00 call far SYSTEM_05C
- 013b b0 11 mov al,11H
- 013d 50 push ax
- 013e 8d 7e eb lea di,-15H[bp]
- 0141 16 push ss
- 0142 57 push di
- 0143 9a 00 00 00 00 call far DOS_001
- 0148 8b 46 eb mov ax,-15H[bp]
- 014b 89 46 e9 mov -17H[bp],ax
- 014e 8b 46 e9 mov ax,-17H[bp]
- 0151 b9 0e 00 mov cx,000eH
- 0154 d3 e8 shr ax,cl
- 0156 25 03 00 and ax,0003H
- 0159 88 46 ff mov -1H[bp],al
- 015c 8a 46 ff mov al,-1H[bp]
- 015f 89 ec mov sp,bp
- 0161 5d pop bp
- 0162 cb retf
- 0163 COUNTRFN:
- 0163 55 TSUNTH_002 push bp
- 0164 89 e5 mov bp,sp
- 0166 b8 16 00 mov ax,0016H
- 0169 9a 00 00 00 00 call far SYSTEM_034
- 016e 83 ec 16 sub sp,0016H
- 0171 31 c0 xor ax,ax
- 0173 89 46 fe mov -2H[bp],ax
- 0176 8d 7e ea lea di,-16H[bp]
- 0179 16 push ss
- 017a 57 push di
- 017b b8 14 00 mov ax,0014H
- 017e 50 push ax
- 017f b0 00 mov al,00H
- 0181 50 push ax
- 0182 9a 00 00 00 00 call far SYSTEM_05C
- 0187 c7 46 ea 00 38 mov word ptr -16H[bp],3800H
- 018c b0 21 mov al,21H
- 018e 50 push ax
- 018f 8d 7e ea lea di,-16H[bp]
- 0192 16 push ss
- 0193 57 push di
- 0194 9a 00 00 00 00 call far DOS_001
- 0199 8b 46 fc mov ax,-4H[bp]
- 019c 25 01 00 and ax,0001H
- 019f 09 c0 or ax,ax
- 01a1 76 02 jbe L7
- 01a3 eb 11 jmp L9
- 01a5 9a 00 00 00 00 L7 call far TSUNT45_001
- 01aa 3c 03 cmp al,03H
- 01ac 73 02 jae L8
- 01ae eb 06 jmp L9
- 01b0 8b 46 ec L8 mov ax,-14H[bp]
- 01b3 89 46 fe mov -2H[bp],ax
- 01b6 8b 46 fe L9 mov ax,-2H[bp]
- 01b9 89 ec mov sp,bp
- 01bb 5d pop bp
- 01bc cb retf
- 01bd ISMOUSFN:
- 01bd 55 TSUNTH_008 push bp
- 01be 89 e5 mov bp,sp
- 01c0 b8 19 00 mov ax,0019H
- 01c3 9a 00 00 00 00 call far SYSTEM_034
- 01c8 83 ec 19 sub sp,0019H
- 01cb b0 33 mov al,33H
- 01cd 50 push ax
- 01ce 8d 7e e7 lea di,-19H[bp]
- 01d1 16 push ss
- 01d2 57 push di
- 01d3 9a 00 00 00 00 call far DOS_011
- 01d8 8b 46 e7 mov ax,-19H[bp]
- 01db 0b 46 e9 or ax,-17H[bp]
- 01de 75 06 jne L10
- 01e0 c6 46 ff 00 mov byte ptr -1H[bp],00H
- 01e4 eb 2e jmp L12
- 01e6 8d 7e eb L10 lea di,-15H[bp]
- 01e9 16 push ss
- 01ea 57 push di
- 01eb b8 14 00 mov ax,0014H
- 01ee 50 push ax
- 01ef b0 00 mov al,00H
- 01f1 50 push ax
- 01f2 9a 00 00 00 00 call far SYSTEM_05C
- 01f7 b0 33 mov al,33H
- 01f9 50 push ax
- 01fa 8d 7e eb lea di,-15H[bp]
- 01fd 16 push ss
- 01fe 57 push di
- 01ff 9a 00 00 00 00 call far DOS_001
- 0204 83 7e eb 00 cmp word ptr -15H[bp],0000H
- 0208 75 06 jne L11
- 020a c6 46 ff 00 mov byte ptr -1H[bp],00H
- 020e eb 04 jmp L12
- 0210 c6 46 ff 01 L11 mov byte ptr -1H[bp],01H
- 0214 8a 46 ff L12 mov al,-1H[bp]
- 0217 89 ec mov sp,bp
- 0219 5d pop bp
- 021a cb retf
- 021b MOUSTAFN:
- 021b 55 TSUNTH_009 push bp
- 021c 89 e5 mov bp,sp
- 021e b8 19 00 mov ax,0019H
- 0221 9a 00 00 00 00 call far SYSTEM_034
- 0226 83 ec 19 sub sp,0019H
- 0229 b0 33 mov al,33H
- 022b 50 push ax
- 022c 8d 7e e7 lea di,-19H[bp]
- 022f 16 push ss
- 0230 57 push di
- 0231 9a 00 00 00 00 call far DOS_011
- 0236 8b 46 e7 mov ax,-19H[bp]
- 0239 0b 46 e9 or ax,-17H[bp]
- 023c 75 06 jne L13
- 023e c6 46 ff 04 mov byte ptr -1H[bp],04H
- 0242 eb 52 jmp L19
- 0244 8d 7e eb L13 lea di,-15H[bp]
- 0247 16 push ss
- 0248 57 push di
- 0249 b8 14 00 mov ax,0014H
- 024c 50 push ax
- 024d b0 00 mov al,00H
- 024f 50 push ax
- 0250 9a 00 00 00 00 call far SYSTEM_05C
- 0255 b0 33 mov al,33H
- 0257 50 push ax
- 0258 8d 7e eb lea di,-15H[bp]
- 025b 16 push ss
- 025c 57 push di
- 025d 9a 00 00 00 00 call far DOS_001
- 0262 83 7e eb ff cmp word ptr -15H[bp],0ffffH
- 0266 75 2a jne L18
- 0268 83 7e ed 00 cmp word ptr -13H[bp],0000H
- 026c 75 06 jne L14
- 026e c6 46 ff 01 mov byte ptr -1H[bp],01H
- 0272 eb 1c jmp L17
- 0274 83 7e ed 02 L14 cmp word ptr -13H[bp],0002H
- 0278 75 06 jne L15
- 027a c6 46 ff 02 mov byte ptr -1H[bp],02H
- 027e eb 10 jmp L17
- 0280 83 7e ed 03 L15 cmp word ptr -13H[bp],0003H
- 0284 75 06 jne L16
- 0286 c6 46 ff 03 mov byte ptr -1H[bp],03H
- 028a eb 04 jmp L17
- 028c c6 46 ff 04 L16 mov byte ptr -1H[bp],04H
- 0290 eb 04 L17 jmp L19
- 0292 c6 46 ff 00 L18 mov byte ptr -1H[bp],00H
- 0296 8a 46 ff L19 mov al,-1H[bp]
- 0299 89 ec mov sp,bp
- 029b 5d pop bp
- 029c cb retf
- 029d 55 TSUNTH_012 push bp
- 029e 89 e5 mov bp,sp
- 02a0 b8 01 00 mov ax,0001H
- 02a3 9a 00 00 00 00 call far SYSTEM_034
- 02a8 83 ec 01 sub sp,0001H
- 02ab 9c pushf
- 02ac 51 push cx
- 02ad 52 push dx
- 02ae 57 push di
- 02af 56 push si
- 02b0 06 push es
- 02b1 33 c0 xor ax,ax
- 02b3 50 push ax
- 02b4 9d popf
- 02b5 9c pushf
- 02b6 58 pop ax
- 02b7 25 00 f0 and ax,0f000H
- 02ba 3d 00 f0 cmp ax,0f000H
- 02bd 74 13 je L20
- 02bf b2 06 mov dl,06H
- 02c1 b8 00 70 mov ax,7000H
- 02c4 50 push ax
- 02c5 9d popf
- 02c6 9c pushf
- 02c7 58 pop ax
- 02c8 25 00 70 and ax,7000H
- 02cb 74 36 je L23
- 02cd fe c2 inc dl
- 02cf eb 32 jmp L23
- 02d1 90 nop
- 02d2 b2 04 L20 mov dl,04H
- 02d4 b0 ff mov al,0ffH
- 02d6 b1 21 mov cl,21H
- 02d8 d2 e8 shr al,cl
- 02da 75 12 jne L21
- 02dc b2 02 mov dl,02H
- 02de fb sti
- 02df be 00 00 mov si,0000H
- 02e2 b9 ff ff mov cx,0ffffH
- 02e5 f3 26 ac repe lods byte ptr es:[si]
- 02e8 0b c9 or cx,cx
- 02ea 74 02 je L21
- 02ec b2 00 mov dl,00H
- 02ee 0e L21 push cs
- 02ef 07 pop es
- 02f0 fd std
- 02f1 b0 fb mov al,0fbH
- 02f3 b9 03 00 mov cx,0003H
- 02f6 e8 16 00 call L24
- 02f9 fa L22 cli
- 02fa f3 aa repe stosb
- 02fc fc cld
- 02fd 90 nop
- 02fe 90 nop
- 02ff 90 nop
- 0300 42 inc dx
- 0301 90 nop
- 0302 fb sti
- 0303 88 56 ff L23 mov -1H[bp],dl
- 0306 07 pop es
- 0307 5e pop si
- 0308 5f pop di
- 0309 5a pop dx
- 030a 59 pop cx
- 030b 9d popf
- 030c eb 07 jmp L25
- 030e 90 nop
- 030f 5f L24 pop di
- 0310 83 c7 09 add di,0009H
- 0313 eb e4 jmp L22
- 0315 8a 46 ff L25 mov al,-1H[bp]
- 0318 89 ec mov sp,bp
- 031a 5d pop bp
- 031b c2 02 00 ret 0002H
- 031e 04 38 L26 add al,38H
- 0320 30 38 xor [bx+si],bh
- 0322 38 04 cmp [si],al
- 0324 38 30 cmp [bx+si],dh
- 0326 38 36 03 56 cmp [00005603H],dh
- 032a 32 30 xor dh,[bx+si]
- 032c 03 56 33 L29 add dx,+33H[bp]
- 032f 30 05 xor [di],al
- 0331 38 30 cmp [bx+si],dh
- 0333 31 38 xor [bx+si],di
- 0335 38 05 cmp [di],al
- 0337 38 30 cmp [bx+si],dh
- 0339 31 38 xor [bx+si],di
- 033b 36 05 38 30 add ax,3038H
- 033f 32 38 xor bh,[bx+si]
- 0341 36 0e push cs
- 0343 38 30 cmp [bx+si],dh
- 0345 33 38 xor di,[bx+si]
- 0347 36 20 6f 72 and ss:+72H[bx],ch
- 034b 20 38 and [bx+si],bh
- 034d 30 34 xor [si],dh
- 034f 38 36 05 65 cmp [00006505H],dh
- 0353 72 72 jb L39
- 0355 6f outsw
- 0356 72 55 jb L37
- 0358 89 e5 mov bp,sp
- 035a 31 c0 xor ax,ax
- 035c 9a 00 00 00 00 call far SYSTEM_034
- 0361 55 push bp
- 0362 e8 00 00 call TSUNTH_012
- 0365 30 e4 xor ah,ah
- 0367 3d 00 00 cmp ax,0000H
- 036a 75 16 jne L35
- 036c bf 00 00 mov di,offset L26
- 036f 0e push cs
- 0370 57 push di
- 0371 c4 7e 06 les di,dword ptr +6H[bp]
- 0374 06 push es
- 0375 57 push di
- 0376 b8 ff 00 mov ax,00ffH
- 0379 50 push ax
- 037a 9a 00 00 00 00 call far SYSTEM_00C
- 037f e9 cb 00 jmp L45
- 0382 3d 01 00 L35 cmp ax,0001H
- 0385 75 16 jne L36
- 0387 bf 00 00 mov di,offset L27
- 038a 0e push cs
- 038b 57 push di
- 038c c4 7e 06 les di,dword ptr +6H[bp]
- 038f 06 push es
- 0390 57 push di
- 0391 b8 ff 00 mov ax,00ffH
- 0394 50 push ax
- 0395 9a 00 00 00 00 call far SYSTEM_00C
- 039a e9 b0 00 jmp L45
- 039d 3d 02 00 L36 cmp ax,0002H
- 03a0 75 16 jne L38
- 03a2 bf 00 00 mov di,offset L28
- 03a5 0e push cs
- 03a6 57 push di
- 03a7 c4 7e 06 les di,dword ptr +6H[bp]
- 03aa 06 push es
- 03ab 57 push di
- 03ac b8 ff 00 mov ax,00ffH
- 03af 50 push ax
- 03b0 9a 00 00 00 00 call far SYSTEM_00C
- 03b5 e9 95 00 jmp L45
- 03b8 3d 03 00 L38 cmp ax,0003H
- 03bb 75 15 jne L40
- 03bd bf 00 00 mov di,offset L29
- 03c0 0e push cs
- 03c1 57 push di
- 03c2 c4 7e 06 les di,dword ptr +6H[bp]
- 03c5 06 push es
- 03c6 57 push di
- 03c7 b8 ff 00 L39 mov ax,00ffH
- 03ca 50 push ax
- 03cb 9a 00 00 00 00 call far SYSTEM_00C
- 03d0 eb 7b jmp L45
- 03d2 3d 04 00 L40 cmp ax,0004H
- 03d5 75 15 jne L41
- 03d7 bf 00 00 mov di,offset L30
- 03da 0e push cs
- 03db 57 push di
- 03dc c4 7e 06 les di,dword ptr +6H[bp]
- 03df 06 push es
- 03e0 57 push di
- 03e1 b8 ff 00 mov ax,00ffH
- 03e4 50 push ax
- 03e5 9a 00 00 00 00 call far SYSTEM_00C
- 03ea eb 61 jmp L45
- 03ec 3d 05 00 L41 cmp ax,0005H
- 03ef 75 15 jne L42
- 03f1 bf 00 00 mov di,offset L31
- 03f4 0e push cs
- 03f5 57 push di
- 03f6 c4 7e 06 les di,dword ptr +6H[bp]
- 03f9 06 push es
- 03fa 57 push di
- 03fb b8 ff 00 mov ax,00ffH
- 03fe 50 push ax
- 03ff 9a 00 00 00 00 call far SYSTEM_00C
- 0404 eb 47 jmp L45
- 0406 3d 06 00 L42 cmp ax,0006H
- 0409 75 15 jne L43
- 040b bf 00 00 mov di,offset L32
- 040e 0e push cs
- 040f 57 push di
- 0410 c4 7e 06 les di,dword ptr +6H[bp]
- 0413 06 push es
- 0414 57 push di
- 0415 b8 ff 00 mov ax,00ffH
- 0418 50 push ax
- 0419 9a 00 00 00 00 call far SYSTEM_00C
- 041e eb 2d jmp L45
- 0420 3d 07 00 L43 cmp ax,0007H
- 0423 75 15 jne L44
- 0425 bf 00 00 mov di,offset L33
- 0428 0e push cs
- 0429 57 push di
- 042a c4 7e 06 les di,dword ptr +6H[bp]
- 042d 06 push es
- 042e 57 push di
- 042f b8 ff 00 mov ax,00ffH
- 0432 50 push ax
- 0433 9a 00 00 00 00 call far SYSTEM_00C
- 0438 eb 13 jmp L45
- 043a bf 00 00 L44 mov di,offset L34
- 043d 0e push cs
- 043e 57 push di
- 043f c4 7e 06 les di,dword ptr +6H[bp]
- 0442 06 push es
- 0443 57 push di
- 0444 b8 ff 00 mov ax,00ffH
- 0447 50 push ax
- 0448 9a 00 00 00 00 call far SYSTEM_00C
- 044d 89 ec L45 mov sp,bp
- 044f 5d pop bp
- 0450 cb retf
- 0451 08 4e 6f L46 or +6fH[bp],cl
- 0454 74 4b je L49
- 0456 6e outsb
- 0457 6f outsw
- 0458 77 6e ja L51
- 045a ROMDTEFN:
- 045a 55 TSUNTH_00B push bp
- 045b 89 e5 mov bp,sp
- 045d b8 22 01 mov ax,0122H
- 0460 9a 00 00 00 00 call far SYSTEM_034
- 0465 81 ec 22 01 sub sp,0122H
- 0469 c6 46 ff 00 mov byte ptr -1H[bp],00H
- 046d c6 46 fe 00 mov byte ptr -2H[bp],00H
- 0471 eb 03 jmp L48
- 0473 fe 46 fe L47 inc byte ptr -2H[bp]
- 0476 b8 00 f0 L48 mov ax,0f000H
- 0479 50 push ax
- 047a 8a 46 fe mov al,-2H[bp]
- 047d 30 e4 xor ah,ah
- 047f 05 f5 ff add ax,0fff5H
- 0482 8b f8 mov di,ax
- 0484 07 pop es
- 0485 26 8a 15 mov dl,es:[di]
- 0488 8a 46 fe mov al,-2H[bp]
- 048b 30 e4 xor ah,ah
- 048d 40 inc ax
- 048e 8b f8 mov di,ax
- 0490 88 93 fe fe mov -102H[bp+di],dl
- 0494 8a 46 fe mov al,-2H[bp]
- 0497 30 e4 xor ah,ah
- 0499 40 inc ax
- 049a 8b f8 mov di,ax
- 049c 8a 83 fe fe mov al,-102H[bp+di]
- 04a0 50 push ax
- 04a1 8d be de fe L49 lea di,-122H[bp]
- 04a5 16 push ss
- 04a6 57 push di
- 04a7 9a 00 00 00 00 call far SYSTEM_028
- 04ac b0 30 mov al,30H
- 04ae 50 push ax
- 04af b0 39 mov al,39H
- 04b1 50 push ax
- 04b2 9a 00 00 00 00 call far SYSTEM_02A
- 04b7 9a 00 00 00 00 call far SYSTEM_018
- 04bc 74 09 je L50
- 04be 8a 46 ff mov al,-1H[bp]
- 04c1 30 e4 xor ah,ah
- 04c3 40 inc ax
- 04c4 88 46 ff mov -1H[bp],al
- 04c7 80 7e fe 07 L50 cmp byte ptr -2H[bp],07H
- 04cb 75 a6 jne L47
- 04cd 80 7e ff 06 cmp byte ptr -1H[bp],06H
- 04d1 75 07 jne L52
- 04d3 c6 86 fe fe 08 mov byte ptr -102H[bp],08H
- 04d8 eb 14 jmp L53
- 04da bf 00 00 L52 mov di,offset L46
- 04dd 0e push cs
- 04de 57 push di
- 04df 8d be fe fe lea di,-102H[bp]
- 04e3 16 push ss
- 04e4 57 push di
- 04e5 b8 ff 00 mov ax,00ffH
- 04e8 50 push ax
- 04e9 9a 00 00 00 00 call far SYSTEM_00C
- 04ee 8d be fe fe L53 lea di,-102H[bp]
- 04f2 16 push ss
- 04f3 57 push di
- 04f4 c4 7e 06 les di,dword ptr +6H[bp]
- 04f7 06 push es
- 04f8 57 push di
- 04f9 b8 ff 00 mov ax,00ffH
- 04fc 50 push ax
- 04fd 9a 00 00 00 00 call far SYSTEM_00C
- 0502 89 ec mov sp,bp
- 0504 5d pop bp
- 0505 cb retf
- 0506 ISENHAFN:
- 0506 55 TSUNTH_00C push bp
- 0507 89 e5 mov bp,sp
- 0509 b8 01 00 mov ax,0001H
- 050c 9a 00 00 00 00 call far SYSTEM_034
- 0511 83 ec 01 sub sp,0001H
- 0514 be 40 00 mov si,0040H
- 0517 8e c6 mov es,si
- 0519 26 a0 96 00 mov al,es:[00000096H]
- 051d 30 e4 xor ah,ah
- 051f b9 04 00 mov cx,0004H
- 0522 d3 e8 shr ax,cl
- 0524 25 01 00 and ax,0001H
- 0527 3d 01 00 cmp ax,0001H
- 052a 74 04 je L54
- 052c b0 00 mov al,00H
- 052e eb 02 jmp L55
- 0530 b0 01 L54 mov al,01H
- 0532 88 46 ff L55 mov -1H[bp],al
- 0535 8a 46 ff mov al,-1H[bp]
- 0538 89 ec mov sp,bp
- 053a 5d pop bp
- 053b cb retf
- 053c LASTDRFN:
- 053c 55 TSUNTH_00D push bp
- 053d 89 e5 mov bp,sp
- 053f b8 1b 00 mov ax,001bH
- 0542 9a 00 00 00 00 call far SYSTEM_034
- 0547 83 ec 1b sub sp,001bH
- 054a 8d 7e eb lea di,-15H[bp]
- 054d 16 push ss
- 054e 57 push di
- 054f b8 14 00 mov ax,0014H
- 0552 50 push ax
- 0553 b0 00 mov al,00H
- 0555 50 push ax
- 0556 9a 00 00 00 00 call far SYSTEM_05C
- 055b c6 46 ec 52 mov byte ptr -14H[bp],52H
- 055f 8d 7e eb lea di,-15H[bp]
- 0562 16 push ss
- 0563 57 push di
- 0564 9a 00 00 00 00 call far DOS_002
- 0569 8b 46 ed mov ax,-13H[bp]
- 056c 8b 56 fb mov dx,-5H[bp]
- 056f 89 c7 mov di,ax
- 0571 8e c2 mov es,dx
- 0573 26 c4 05 les ax,dword ptr es:[di]
- 0576 8c c2 mov dx,es
- 0578 89 46 e7 mov -19H[bp],ax
- 057b 89 56 e9 mov -17H[bp],dx
- 057e c6 46 e5 00 mov byte ptr -1bH[bp],00H
- 0582 c6 46 ff 41 mov byte ptr -1H[bp],41H
- 0586 c4 7e e7 L56 les di,dword ptr -19H[bp]
- 0589 26 8a 05 mov al,es:[di]
- 058c 30 e4 xor ah,ah
- 058e 05 41 00 add ax,0041H
- 0591 88 46 ff mov -1H[bp],al
- 0594 fe 46 e5 inc byte ptr -1bH[bp]
- 0597 c4 7e e7 les di,dword ptr -19H[bp]
- 059a 26 c4 45 18 les ax,dword ptr es:+18H[di]
- 059e 8c c2 mov dx,es
- 05a0 89 46 e7 mov -19H[bp],ax
- 05a3 89 56 e9 mov -17H[bp],dx
- 05a6 8a 46 e5 mov al,-1bH[bp]
- 05a9 3a 46 e6 cmp al,-1aH[bp]
- 05ac 77 0a ja L57
- 05ae c4 7e e7 les di,dword ptr -19H[bp]
- 05b1 89 f8 mov ax,di
- 05b3 3d ff ff cmp ax,0ffffH
- 05b6 75 ce jne L56
- 05b8 8a 46 ff L57 mov al,-1H[bp]
- 05bb 89 ec mov sp,bp
- 05bd 5d pop bp
- 05be cb retf
- 05bf INTERLFN:
- 05bf 55 TSUNTH_00E push bp
- 05c0 89 e5 mov bp,sp
- 05c2 b8 1b 00 mov ax,001bH
- 05c5 9a 00 00 00 00 call far SYSTEM_034
- 05ca 83 ec 1b sub sp,001bH
- 05cd 8d 7e eb lea di,-15H[bp]
- 05d0 16 push ss
- 05d1 57 push di
- 05d2 b8 14 00 mov ax,0014H
- 05d5 50 push ax
- 05d6 b0 00 mov al,00H
- 05d8 50 push ax
- 05d9 9a 00 00 00 00 call far SYSTEM_05C
- 05de c6 46 ec 52 mov byte ptr -14H[bp],52H
- 05e2 8d 7e eb lea di,-15H[bp]
- 05e5 16 push ss
- 05e6 57 push di
- 05e7 9a 00 00 00 00 call far DOS_002
- 05ec 8b 46 ed mov ax,-13H[bp]
- 05ef 8b 56 fb mov dx,-5H[bp]
- 05f2 89 c7 mov di,ax
- 05f4 8e c2 mov es,dx
- 05f6 26 c4 05 les ax,dword ptr es:[di]
- 05f9 8c c2 mov dx,es
- 05fb 89 46 e7 mov -19H[bp],ax
- 05fe 89 56 e9 mov -17H[bp],dx
- 0601 c6 46 ff 00 mov byte ptr -1H[bp],00H
- 0605 8a 46 06 mov al,+6H[bp]
- 0608 50 push ax
- 0609 9a 00 00 00 00 call far SYSTEM_05A
- 060e 88 46 06 mov +6H[bp],al
- 0611 80 7e 06 41 cmp byte ptr +6H[bp],41H
- 0615 72 06 jb L58
- 0617 80 7e 06 5a cmp byte ptr +6H[bp],5aH
- 061b 76 02 jbe L59
- 061d eb 3d L58 jmp L61
- 061f 8a 46 06 L59 mov al,+6H[bp]
- 0622 30 e4 xor ah,ah
- 0624 2d 41 00 sub ax,0041H
- 0627 88 46 e6 mov -1aH[bp],al
- 062a c6 46 e5 00 mov byte ptr -1bH[bp],00H
- 062e c4 7e e7 L60 les di,dword ptr -19H[bp]
- 0631 26 8a 45 04 mov al,es:+4H[di]
- 0635 88 46 ff mov -1H[bp],al
- 0638 fe 46 e5 inc byte ptr -1bH[bp]
- 063b c4 7e e7 les di,dword ptr -19H[bp]
- 063e 26 c4 45 18 les ax,dword ptr es:+18H[di]
- 0642 8c c2 mov dx,es
- 0644 89 46 e7 mov -19H[bp],ax
- 0647 89 56 e9 mov -17H[bp],dx
- 064a 8a 46 e5 mov al,-1bH[bp]
- 064d 3a 46 e6 cmp al,-1aH[bp]
- 0650 77 0a ja L61
- 0652 c4 7e e7 les di,dword ptr -19H[bp]
- 0655 89 f8 mov ax,di
- 0657 3d ff ff cmp ax,0ffffH
- 065a 75 d2 jne L60
- 065c 8a 46 ff L61 mov al,-1H[bp]
- 065f 89 ec mov sp,bp
- 0661 5d pop bp
- 0662 ca 02 00 retf 0002H
- 0665 FATSFN:
- 0665 55 TSUNTH_00F push bp
- 0666 89 e5 mov bp,sp
- 0668 b8 1b 00 mov ax,001bH
- 066b 9a 00 00 00 00 call far SYSTEM_034
- 0670 83 ec 1b sub sp,001bH
- 0673 8d 7e eb lea di,-15H[bp]
- 0676 16 push ss
- 0677 57 push di
- 0678 b8 14 00 mov ax,0014H
- 067b 50 push ax
- 067c b0 00 mov al,00H
- 067e 50 push ax
- 067f 9a 00 00 00 00 call far SYSTEM_05C
- 0684 c6 46 ec 52 mov byte ptr -14H[bp],52H
- 0688 8d 7e eb lea di,-15H[bp]
- 068b 16 push ss
- 068c 57 push di
- 068d 9a 00 00 00 00 call far DOS_002
- 0692 8b 46 ed mov ax,-13H[bp]
- 0695 8b 56 fb mov dx,-5H[bp]
- 0698 89 c7 mov di,ax
- 069a 8e c2 mov es,dx
- 069c 26 c4 05 les ax,dword ptr es:[di]
- 069f 8c c2 mov dx,es
- 06a1 89 46 e7 mov -19H[bp],ax
- 06a4 89 56 e9 mov -17H[bp],dx
- 06a7 c6 46 ff 00 mov byte ptr -1H[bp],00H
- 06ab 8a 46 06 mov al,+6H[bp]
- 06ae 50 push ax
- 06af 9a 00 00 00 00 call far SYSTEM_05A
- 06b4 88 46 06 mov +6H[bp],al
- 06b7 80 7e 06 41 cmp byte ptr +6H[bp],41H
- 06bb 72 06 jb L62
- 06bd 80 7e 06 5a cmp byte ptr +6H[bp],5aH
- 06c1 76 02 jbe L63
- 06c3 eb 3d L62 jmp L65
- 06c5 8a 46 06 L63 mov al,+6H[bp]
- 06c8 30 e4 xor ah,ah
- 06ca 2d 41 00 sub ax,0041H
- 06cd 88 46 e6 mov -1aH[bp],al
- 06d0 c6 46 e5 00 mov byte ptr -1bH[bp],00H
- 06d4 c4 7e e7 L64 les di,dword ptr -19H[bp]
- 06d7 26 8a 45 08 mov al,es:+8H[di]
- 06db 88 46 ff mov -1H[bp],al
- 06de fe 46 e5 inc byte ptr -1bH[bp]
- 06e1 c4 7e e7 les di,dword ptr -19H[bp]
- 06e4 26 c4 45 18 les ax,dword ptr es:+18H[di]
- 06e8 8c c2 mov dx,es
- 06ea 89 46 e7 mov -19H[bp],ax
- 06ed 89 56 e9 mov -17H[bp],dx
- 06f0 8a 46 e5 mov al,-1bH[bp]
- 06f3 3a 46 e6 cmp al,-1aH[bp]
- 06f6 77 0a ja L65
- 06f8 c4 7e e7 les di,dword ptr -19H[bp]
- 06fb 89 f8 mov ax,di
- 06fd 3d ff ff cmp ax,0ffffH
- 0700 75 d2 jne L64
- 0702 8a 46 ff L65 mov al,-1H[bp]
- 0705 89 ec mov sp,bp
- 0707 5d pop bp
- 0708 ca 02 00 retf 0002H
- 070b Z2ASCFN:
- 070b 55 TSUNTH_011 push bp
- 070c 89 e5 mov bp,sp
- 070e b8 02 04 mov ax,0402H
- 0711 9a 00 00 00 00 call far SYSTEM_034
- 0716 81 ec 02 04 sub sp,0402H
- 071a c4 7e 06 les di,dword ptr +6H[bp]
- 071d 06 push es
- 071e 57 push di
- 071f 8d be 00 ff lea di,-100H[bp]
- 0723 16 push ss
- 0724 57 push di
- 0725 b8 ff 00 mov ax,00ffH
- 0728 50 push ax
- 0729 9a 00 00 00 00 call far SYSTEM_00C
- 072e c6 86 ff fd 00 mov byte ptr -201H[bp],00H
- 0733 8a 86 00 ff mov al,-100H[bp]
- 0737 88 86 fe fd mov -202H[bp],al
- 073b b0 01 mov al,01H
- 073d 3a 86 fe fd cmp al,-202H[bp]
- 0741 77 78 ja L70
- 0743 88 86 ff fe mov -101H[bp],al
- 0747 eb 04 jmp L67
- 0749 fe 86 ff fe L66 inc byte ptr -101H[bp]
- 074d 8a 86 ff fe L67 mov al,-101H[bp]
- 0751 30 e4 xor ah,ah
- 0753 8b f8 mov di,ax
- 0755 80 bb 00 ff 00 cmp byte ptr -100H[bp+di],00H
- 075a 76 3f jbe L68
- 075c 8d be fe fb lea di,-402H[bp]
- 0760 16 push ss
- 0761 57 push di
- 0762 8d be ff fd lea di,-201H[bp]
- 0766 16 push ss
- 0767 57 push di
- 0768 9a 00 00 00 00 call far SYSTEM_00B
- 076d 8d be fe fc lea di,-302H[bp]
- 0771 16 push ss
- 0772 57 push di
- 0773 8a 86 ff fe mov al,-101H[bp]
- 0777 30 e4 xor ah,ah
- 0779 8b f8 mov di,ax
- 077b 8a 83 00 ff mov al,-100H[bp+di]
- 077f 50 push ax
- 0780 9a 00 00 00 00 call far SYSTEM_012
- 0785 9a 00 00 00 00 call far SYSTEM_00F
- 078a 8d be ff fd lea di,-201H[bp]
- 078e 16 push ss
- 078f 57 push di
- 0790 b8 ff 00 mov ax,00ffH
- 0793 50 push ax
- 0794 9a 00 00 00 00 call far SYSTEM_00C
- 0799 eb 16 jmp L69
- 079b 8d be ff fd L68 lea di,-201H[bp]
- 079f 16 push ss
- 07a0 57 push di
- 07a1 c4 7e 0a les di,dword ptr +0aH[bp]
- 07a4 06 push es
- 07a5 57 push di
- 07a6 b8 ff 00 mov ax,00ffH
- 07a9 50 push ax
- 07aa 9a 00 00 00 00 call far SYSTEM_00C
- 07af eb 1e jmp L71
- 07b1 8a 86 ff fe L69 mov al,-101H[bp]
- 07b5 3a 86 fe fd cmp al,-202H[bp]
- 07b9 75 8e jne L66
- 07bb 8d be ff fd L70 lea di,-201H[bp]
- 07bf 16 push ss
- 07c0 57 push di
- 07c1 c4 7e 0a les di,dword ptr +0aH[bp]
- 07c4 06 push es
- 07c5 57 push di
- 07c6 b8 ff 00 mov ax,00ffH
- 07c9 50 push ax
- 07ca 9a 00 00 00 00 call far SYSTEM_00C
- 07cf 89 ec L71 mov sp,bp
- 07d1 5d pop bp
- 07d2 ca 04 00 retf 0004H
- 07d5 08 58 58 L72 or +58H[bx+si],bl
- 07d8 2a 58 58 sub bl,+58H[bx+si]
- 07db 2a 58 58 sub bl,+58H[bx+si]
- 07de 02 4d 4d L73 add cl,+4dH[di]
- 07e1 02 44 44 L74 add al,+44H[si]
- 07e4 02 59 59 L75 add bl,+59H[bx+di]
- 07e7 DATEFMFN:
- 07e7 55 TSUNTH_003 push bp
- 07e8 89 e5 mov bp,sp
- 07ea b8 37 03 mov ax,0337H
- 07ed 9a 00 00 00 00 call far SYSTEM_034
- 07f2 81 ec 37 03 sub sp,0337H
- 07f6 bf 00 00 mov di,offset L72
- 07f9 0e push cs
- 07fa 57 push di
- 07fb c4 7e 06 les di,dword ptr +6H[bp]
- 07fe 06 push es
- 07ff 57 push di
- 0800 b8 ff 00 mov ax,00ffH
- 0803 50 push ax
- 0804 9a 00 00 00 00 call far SYSTEM_00C
- 0809 9a 00 00 00 00 call far TSUNT45_001
- 080e 86 c4 xchg al,ah
- 0810 3d 00 03 cmp ax,0300H
- 0813 73 03 jae L76
- 0815 e9 9b 01 jmp L82
- 0818 8d 7e ec L76 lea di,-14H[bp]
- 081b 16 push ss
- 081c 57 push di
- 081d b8 14 00 mov ax,0014H
- 0820 50 push ax
- 0821 b0 00 mov al,00H
- 0823 50 push ax
- 0824 9a 00 00 00 00 call far SYSTEM_05C
- 0829 c7 46 ec 00 38 mov word ptr -14H[bp],3800H
- 082e 8c d0 mov ax,ss
- 0830 89 46 fa mov -6H[bp],ax
- 0833 8d 46 ca lea ax,-36H[bp]
- 0836 89 46 f2 mov -0eH[bp],ax
- 0839 8d 7e ec lea di,-14H[bp]
- 083c 16 push ss
- 083d 57 push di
- 083e 9a 00 00 00 00 call far DOS_002
- 0843 8b 46 fe mov ax,-2H[bp]
- 0846 25 01 00 and ax,0001H
- 0849 09 c0 or ax,ax
- 084b 76 03 jbe L77
- 084d e9 63 01 jmp L82
- 0850 c6 86 ca fe 00 L77 mov byte ptr -136H[bp],00H
- 0855 c6 86 c9 fe 0b mov byte ptr -137H[bp],0bH
- 085a eb 04 jmp L79
- 085c fe 86 c9 fe L78 inc byte ptr -137H[bp]
- 0860 8d be c9 fc L79 lea di,-337H[bp]
- 0864 16 push ss
- 0865 57 push di
- 0866 8d be ca fe lea di,-136H[bp]
- 086a 16 push ss
- 086b 57 push di
- 086c 9a 00 00 00 00 call far SYSTEM_00B
- 0871 8d be c9 fd lea di,-237H[bp]
- 0875 16 push ss
- 0876 57 push di
- 0877 8a 86 c9 fe mov al,-137H[bp]
- 087b 30 e4 xor ah,ah
- 087d 8b f8 mov di,ax
- 087f 8a 43 ca mov al,-36H[bp+di]
- 0882 50 push ax
- 0883 9a 00 00 00 00 call far SYSTEM_012
- 0888 9a 00 00 00 00 call far SYSTEM_00F
- 088d 8d be ca fe lea di,-136H[bp]
- 0891 16 push ss
- 0892 57 push di
- 0893 b8 ff 00 mov ax,00ffH
- 0896 50 push ax
- 0897 9a 00 00 00 00 call far SYSTEM_00C
- 089c 80 be c9 fe 0c cmp byte ptr -137H[bp],0cH
- 08a1 75 b9 jne L78
- 08a3 8d be c9 fd lea di,-237H[bp]
- 08a7 16 push ss
- 08a8 57 push di
- 08a9 8d be ca fe lea di,-136H[bp]
- 08ad 16 push ss
- 08ae 57 push di
- 08af 0e push cs
- 08b0 e8 00 00 call TSUNTH_011
- 08b3 8d be ca fe lea di,-136H[bp]
- 08b7 16 push ss
- 08b8 57 push di
- 08b9 b8 ff 00 mov ax,00ffH
- 08bc 50 push ax
- 08bd 9a 00 00 00 00 call far SYSTEM_00C
- 08c2 8a 46 ca mov al,-36H[bp]
- 08c5 30 e4 xor ah,ah
- 08c7 3d 00 00 cmp ax,0000H
- 08ca 75 4b jne L80
- 08cc 8d be c9 fd lea di,-237H[bp]
- 08d0 16 push ss
- 08d1 57 push di
- 08d2 bf 00 00 mov di,offset L73
- 08d5 0e push cs
- 08d6 57 push di
- 08d7 9a 00 00 00 00 call far SYSTEM_00B
- 08dc 8d be ca fe lea di,-136H[bp]
- 08e0 16 push ss
- 08e1 57 push di
- 08e2 9a 00 00 00 00 call far SYSTEM_00F
- 08e7 bf 00 00 mov di,offset L74
- 08ea 0e push cs
- 08eb 57 push di
- 08ec 9a 00 00 00 00 call far SYSTEM_00F
- 08f1 8d be ca fe lea di,-136H[bp]
- 08f5 16 push ss
- 08f6 57 push di
- 08f7 9a 00 00 00 00 call far SYSTEM_00F
- 08fc bf 00 00 mov di,offset L75
- 08ff 0e push cs
- 0900 57 push di
- 0901 9a 00 00 00 00 call far SYSTEM_00F
- 0906 c4 7e 06 les di,dword ptr +6H[bp]
- 0909 06 push es
- 090a 57 push di
- 090b b8 ff 00 mov ax,00ffH
- 090e 50 push ax
- 090f 9a 00 00 00 00 call far SYSTEM_00C
- 0914 e9 9c 00 jmp L82
- 0917 3d 01 00 L80 cmp ax,0001H
- 091a 75 4a jne L81
- 091c 8d be c9 fd lea di,-237H[bp]
- 0920 16 push ss
- 0921 57 push di
- 0922 bf 00 00 mov di,offset L74
- 0925 0e push cs
- 0926 57 push di
- 0927 9a 00 00 00 00 call far SYSTEM_00B
- 092c 8d be ca fe lea di,-136H[bp]
- 0930 16 push ss
- 0931 57 push di
- 0932 9a 00 00 00 00 call far SYSTEM_00F
- 0937 bf 00 00 mov di,offset L73
- 093a 0e push cs
- 093b 57 push di
- 093c 9a 00 00 00 00 call far SYSTEM_00F
- 0941 8d be ca fe lea di,-136H[bp]
- 0945 16 push ss
- 0946 57 push di
- 0947 9a 00 00 00 00 call far SYSTEM_00F
- 094c bf 00 00 mov di,offset L75
- 094f 0e push cs
- 0950 57 push di
- 0951 9a 00 00 00 00 call far SYSTEM_00F
- 0956 c4 7e 06 les di,dword ptr +6H[bp]
- 0959 06 push es
- 095a 57 push di
- 095b b8 ff 00 mov ax,00ffH
- 095e 50 push ax
- 095f 9a 00 00 00 00 call far SYSTEM_00C
- 0964 eb 4d jmp L82
- 0966 3d 02 00 L81 cmp ax,0002H
- 0969 75 48 jne L82
- 096b 8d be c9 fd lea di,-237H[bp]
- 096f 16 push ss
- 0970 57 push di
- 0971 bf 00 00 mov di,offset L75
- 0974 0e push cs
- 0975 57 push di
- 0976 9a 00 00 00 00 call far SYSTEM_00B
- 097b 8d be ca fe lea di,-136H[bp]
- 097f 16 push ss
- 0980 57 push di
- 0981 9a 00 00 00 00 call far SYSTEM_00F
- 0986 bf 00 00 mov di,offset L73
- 0989 0e push cs
- 098a 57 push di
- 098b 9a 00 00 00 00 call far SYSTEM_00F
- 0990 8d be ca fe lea di,-136H[bp]
- 0994 16 push ss
- 0995 57 push di
- 0996 9a 00 00 00 00 call far SYSTEM_00F
- 099b bf 00 00 mov di,offset L74
- 099e 0e push cs
- 099f 57 push di
- 09a0 9a 00 00 00 00 call far SYSTEM_00F
- 09a5 c4 7e 06 les di,dword ptr +6H[bp]
- 09a8 06 push es
- 09a9 57 push di
- 09aa b8 ff 00 mov ax,00ffH
- 09ad 50 push ax
- 09ae 9a 00 00 00 00 call far SYSTEM_00C
- 09b3 89 ec L82 mov sp,bp
- 09b5 5d pop bp
- 09b6 cb retf
- 09b7 03 30 L83 add si,[bx+si]
- 09b9 30 68 07 xor +7H[bx+si],ch
- 09bc 32 34 xor dh,[si]
- 09be 2d 68 6f sub ax,6f68H
- 09c1 75 72 jne L90
- 09c3 07 L85 pop es
- 09c4 31 32 xor [bp+si],si
- 09c6 2d 68 6f sub ax,6f68H
- 09c9 75 72 jne L91
- 09cb 03 20 L86 add sp,[bx+si]
- 09cd 48 dec ax
- 09ce 48 dec ax
- 09cf 02 4d 4d L87 add cl,+4dH[di]
- 09d2 02 53 53 L88 add dl,+53H[bp+di]
- 09d5 TIMEFMFN:
- 09d5 55 TSUNTH_004 push bp
- 09d6 89 e5 mov bp,sp
- 09d8 b8 37 04 mov ax,0437H
- 09db 9a 00 00 00 00 call far SYSTEM_034
- 09e0 81 ec 37 04 sub sp,0437H
- 09e4 bf 00 00 mov di,offset L83
- 09e7 0e push cs
- 09e8 57 push di
- 09e9 c4 7e 06 les di,dword ptr +6H[bp]
- 09ec 06 push es
- 09ed 57 push di
- 09ee b8 ff 00 mov ax,00ffH
- 09f1 50 push ax
- 09f2 9a 00 00 00 00 call far SYSTEM_00C
- 09f7 9a 00 00 00 00 call far TSUNT45_001
- 09fc 86 c4 xchg al,ah
- 09fe 3d 00 03 cmp ax,0300H
- 0a01 73 03 jae L89
- 0a03 e9 45 01 jmp L97
- 0a06 8d 7e ec L89 lea di,-14H[bp]
- 0a09 16 push ss
- 0a0a 57 push di
- 0a0b b8 14 00 mov ax,0014H
- 0a0e 50 push ax
- 0a0f b0 00 mov al,00H
- 0a11 50 push ax
- 0a12 9a 00 00 00 00 call far SYSTEM_05C
- 0a17 c7 46 ec 00 38 mov word ptr -14H[bp],3800H
- 0a1c 8c d0 mov ax,ss
- 0a1e 89 46 fa mov -6H[bp],ax
- 0a21 8d 46 ca lea ax,-36H[bp]
- 0a24 89 46 f2 mov -0eH[bp],ax
- 0a27 8d 7e ec lea di,-14H[bp]
- 0a2a 16 push ss
- 0a2b 57 push di
- 0a2c 9a 00 00 00 00 call far DOS_002
- 0a31 8b 46 fe mov ax,-2H[bp]
- 0a34 25 01 00 and ax,0001H
- 0a37 09 c0 or ax,ax
- 0a39 76 03 jbe L92
- 0a3b e9 0d 01 jmp L97
- 0a3e 8a 46 db L92 mov al,-25H[bp]
- 0a41 24 01 and al,01H
- 0a43 3c 01 cmp al,01H
- 0a45 75 16 jne L93
- 0a47 bf 00 00 mov di,offset L84
- 0a4a 0e push cs
- 0a4b 57 push di
- 0a4c 8d be ca fd lea di,-236H[bp]
- 0a50 16 push ss
- 0a51 57 push di
- 0a52 b8 ff 00 mov ax,00ffH
- 0a55 50 push ax
- 0a56 9a 00 00 00 00 call far SYSTEM_00C
- 0a5b eb 14 jmp L94
- 0a5d bf 00 00 L93 mov di,offset L85
- 0a60 0e push cs
- 0a61 57 push di
- 0a62 8d be ca fd lea di,-236H[bp]
- 0a66 16 push ss
- 0a67 57 push di
- 0a68 b8 ff 00 mov ax,00ffH
- 0a6b 50 push ax
- 0a6c 9a 00 00 00 00 call far SYSTEM_00C
- 0a71 c6 86 ca fe 00 L94 mov byte ptr -136H[bp],00H
- 0a76 c6 86 c9 fd 0d mov byte ptr -237H[bp],0dH
- 0a7b eb 04 jmp L96
- 0a7d fe 86 c9 fd L95 inc byte ptr -237H[bp]
- 0a81 8d be c9 fb L96 lea di,-437H[bp]
- 0a85 16 push ss
- 0a86 57 push di
- 0a87 8d be ca fe lea di,-136H[bp]
- 0a8b 16 push ss
- 0a8c 57 push di
- 0a8d 9a 00 00 00 00 call far SYSTEM_00B
- 0a92 8d be c9 fc lea di,-337H[bp]
- 0a96 16 push ss
- 0a97 57 push di
- 0a98 8a 86 c9 fd mov al,-237H[bp]
- 0a9c 30 e4 xor ah,ah
- 0a9e 8b f8 mov di,ax
- 0aa0 8a 43 ca mov al,-36H[bp+di]
- 0aa3 50 push ax
- 0aa4 9a 00 00 00 00 call far SYSTEM_012
- 0aa9 9a 00 00 00 00 call far SYSTEM_00F
- 0aae 8d be ca fe lea di,-136H[bp]
- 0ab2 16 push ss
- 0ab3 57 push di
- 0ab4 b8 ff 00 mov ax,00ffH
- 0ab7 50 push ax
- 0ab8 9a 00 00 00 00 call far SYSTEM_00C
- 0abd 80 be c9 fd 0e cmp byte ptr -237H[bp],0eH
- 0ac2 75 b9 jne L95
- 0ac4 8d be c9 fc lea di,-337H[bp]
- 0ac8 16 push ss
- 0ac9 57 push di
- 0aca 8d be ca fe lea di,-136H[bp]
- 0ace 16 push ss
- 0acf 57 push di
- 0ad0 0e push cs
- 0ad1 e8 00 00 call TSUNTH_011
- 0ad4 8d be ca fe lea di,-136H[bp]
- 0ad8 16 push ss
- 0ad9 57 push di
- 0ada b8 ff 00 mov ax,00ffH
- 0add 50 push ax
- 0ade 9a 00 00 00 00 call far SYSTEM_00C
- 0ae3 8d be c9 fc lea di,-337H[bp]
- 0ae7 16 push ss
- 0ae8 57 push di
- 0ae9 8d be ca fd lea di,-236H[bp]
- 0aed 16 push ss
- 0aee 57 push di
- 0aef 9a 00 00 00 00 call far SYSTEM_00B
- 0af4 bf 00 00 mov di,offset L86
- 0af7 0e push cs
- 0af8 57 push di
- 0af9 9a 00 00 00 00 call far SYSTEM_00F
- 0afe 8d be ca fe lea di,-136H[bp]
- 0b02 16 push ss
- 0b03 57 push di
- 0b04 9a 00 00 00 00 call far SYSTEM_00F
- 0b09 bf 00 00 mov di,offset L87
- 0b0c 0e push cs
- 0b0d 57 push di
- 0b0e 9a 00 00 00 00 call far SYSTEM_00F
- 0b13 8d be ca fe lea di,-136H[bp]
- 0b17 16 push ss
- 0b18 57 push di
- 0b19 9a 00 00 00 00 call far SYSTEM_00F
- 0b1e bf 00 00 mov di,offset L88
- 0b21 0e push cs
- 0b22 57 push di
- 0b23 9a 00 00 00 00 call far SYSTEM_00F
- 0b28 8d be ca fd lea di,-236H[bp]
- 0b2c 16 push ss
- 0b2d 57 push di
- 0b2e b8 ff 00 mov ax,00ffH
- 0b31 50 push ax
- 0b32 9a 00 00 00 00 call far SYSTEM_00C
- 0b37 8d be ca fd lea di,-236H[bp]
- 0b3b 16 push ss
- 0b3c 57 push di
- 0b3d c4 7e 06 les di,dword ptr +6H[bp]
- 0b40 06 push es
- 0b41 57 push di
- 0b42 b8 ff 00 mov ax,00ffH
- 0b45 50 push ax
- 0b46 9a 00 00 00 00 call far SYSTEM_00C
- 0b4b 89 ec L97 mov sp,bp
- 0b4d 5d pop bp
- 0b4e cb retf
- 0b4f NRCYLFN:
- 0b4f 55 TSUNTH_010 push bp
- 0b50 89 e5 mov bp,sp
- 0b52 b8 3b 00 mov ax,003bH
- 0b55 9a 00 00 00 00 call far SYSTEM_034
- 0b5a 83 ec 3b sub sp,003bH
- 0b5d c6 46 ff 00 mov byte ptr -1H[bp],00H
- 0b61 9a 00 00 00 00 call far TSUNT45_001
- 0b66 86 c4 xchg al,ah
- 0b68 3d 14 03 cmp ax,0314H
- 0b6b 73 03 jae L98
- 0b6d e9 91 00 jmp L102
- 0b70 9a 00 00 00 00 L98 call far TSUNT45_001
- 0b75 86 c4 xchg al,ah
- 0b77 3d 00 04 cmp ax,0400H
- 0b7a 72 03 jb L99
- 0b7c e9 82 00 jmp L102
- 0b7f 8d 7e eb L99 lea di,-15H[bp]
- 0b82 16 push ss
- 0b83 57 push di
- 0b84 b8 14 00 mov ax,0014H
- 0b87 50 push ax
- 0b88 b0 00 mov al,00H
- 0b8a 50 push ax
- 0b8b 9a 00 00 00 00 call far SYSTEM_05C
- 0b90 c6 46 ec 44 mov byte ptr -14H[bp],44H
- 0b94 c6 46 eb 0d mov byte ptr -15H[bp],0dH
- 0b98 8a 46 06 mov al,+6H[bp]
- 0b9b 50 push ax
- 0b9c 9a 00 00 00 00 call far SYSTEM_05A
- 0ba1 88 46 06 mov +6H[bp],al
- 0ba4 8a 46 06 mov al,+6H[bp]
- 0ba7 50 push ax
- 0ba8 8d 7e c5 lea di,-3bH[bp]
- 0bab 16 push ss
- 0bac 57 push di
- 0bad 9a 00 00 00 00 call far SYSTEM_028
- 0bb2 b0 41 mov al,41H
- 0bb4 50 push ax
- 0bb5 b0 5a mov al,5aH
- 0bb7 50 push ax
- 0bb8 9a 00 00 00 00 call far SYSTEM_02A
- 0bbd 9a 00 00 00 00 call far SYSTEM_018
- 0bc2 75 02 jne L100
- 0bc4 eb 3b jmp L102
- 0bc6 8a 46 06 L100 mov al,+6H[bp]
- 0bc9 30 e4 xor ah,ah
- 0bcb 2d 41 00 sub ax,0041H
- 0bce 40 inc ax
- 0bcf 88 46 ed mov -13H[bp],al
- 0bd2 c6 46 f0 08 mov byte ptr -10H[bp],08H
- 0bd6 c6 46 ef 60 mov byte ptr -11H[bp],60H
- 0bda 8c d0 mov ax,ss
- 0bdc 89 46 f9 mov -7H[bp],ax
- 0bdf 8d 46 e5 lea ax,-1bH[bp]
- 0be2 89 46 f1 mov -0fH[bp],ax
- 0be5 8d 7e eb lea di,-15H[bp]
- 0be8 16 push ss
- 0be9 57 push di
- 0bea 9a 00 00 00 00 call far DOS_002
- 0bef 8b 46 fd mov ax,-3H[bp]
- 0bf2 25 01 00 and ax,0001H
- 0bf5 09 c0 or ax,ax
- 0bf7 76 02 jbe L101
- 0bf9 eb 06 jmp L102
- 0bfb 8a 46 e9 L101 mov al,-17H[bp]
- 0bfe 88 46 ff mov -1H[bp],al
- 0c01 8a 46 ff L102 mov al,-1H[bp]
- 0c04 89 ec mov sp,bp
- 0c06 5d pop bp
- 0c07 ca 02 00 retf 0002H
-
- No disassembly errors
-
- ------------------------------------------------------------
-
- Segment: _DATA WORD 00000008 bytes
- 0000 66 00 3c 06 3e 66 3f 00 TSUNTH_DATA - f.<.>f?.
-
- No disassembly errors
-
- ------------------------------------------------------------
-