home *** CD-ROM | disk | FTP | other *** search
Text File | 1994-06-19 | 104.8 KB | 1,840 lines |
-
- Module: GENERAL.PAS
- Group: 'DGROUP' _DATA,_BSS
-
- Segment: GENERAL_TEXT PARA 000011f3 bytes
- 0000 55 GENERAL_01B push bp
- 0001 89 e5 mov bp,sp
- 0003 31 c0 xor ax,ax
- 0005 9a 00 00 00 00 call far SYSTEM_034
- 000a 80 7e 04 00 cmp byte ptr +4H[bp],00H
- 000e 74 07 je L1
- 0010 80 3e 00 00 00 cmp byte ptr GENERAL_DATA,00H
- 0015 74 0d je L2
- 0017 80 7e 04 00 L1 cmp byte ptr +4H[bp],00H
- 001b 75 38 jne L5
- 001d 80 3e 00 00 00 cmp byte ptr GENERAL_DATA,00H
- 0022 74 31 je L5
- 0024 80 3e 00 00 00 L2 cmp byte ptr GENERAL_DATA,00H
- 0029 74 04 je L3
- 002b b0 00 mov al,00H
- 002d eb 02 jmp L4
- 002f b0 01 L3 mov al,01H
- 0031 a2 00 00 L4 mov GENERAL_DATA,al
- 0034 be 40 00 mov si,0040H
- 0037 8e c6 mov es,si
- 0039 26 a0 65 00 mov al,es:[00000065H]
- 003d 34 20 xor al,20H
- 003f be 40 00 mov si,0040H
- 0042 8e c6 mov es,si
- 0044 26 a2 65 00 mov es:[00000065H],al
- 0048 be 40 00 mov si,0040H
- 004b 8e c6 mov es,si
- 004d 26 a0 65 00 mov al,es:[00000065H]
- 0051 ba d8 03 mov dx,03d8H
- 0054 ee out dx,al
- 0055 89 ec L5 mov sp,bp
- 0057 5d pop bp
- 0058 c2 02 00 ret 0002H
- 005b COLOR:
- 005b 55 GENERAL_001 push bp
- 005c 89 e5 mov bp,sp
- 005e 31 c0 xor ax,ax
- 0060 9a 00 00 00 00 call far SYSTEM_034
- 0065 83 3e 00 00 07 cmp word ptr CRT_BSS+4H,0007H
- 006a 75 78 jne L11
- 006c 80 7e 0a 00 cmp byte ptr +0aH[bp],00H
- 0070 74 12 je L6
- 0072 b0 00 mov al,00H
- 0074 50 push ax
- 0075 9a 00 00 00 00 call far CRT_00D
- 007a b0 07 mov al,07H
- 007c 50 push ax
- 007d 9a 00 00 00 00 call far CRT_00E
- 0082 eb 5e jmp L10
- 0084 80 7e 06 00 L6 cmp byte ptr +6H[bp],00H
- 0088 74 18 je L7
- 008a 80 7e 08 00 cmp byte ptr +8H[bp],00H
- 008e 74 12 je L7
- 0090 b0 19 mov al,19H
- 0092 50 push ax
- 0093 9a 00 00 00 00 call far CRT_00D
- 0098 b0 00 mov al,00H
- 009a 50 push ax
- 009b 9a 00 00 00 00 call far CRT_00E
- 00a0 eb 40 jmp L10
- 00a2 80 7e 06 00 L7 cmp byte ptr +6H[bp],00H
- 00a6 74 12 je L8
- 00a8 b0 09 mov al,09H
- 00aa 50 push ax
- 00ab 9a 00 00 00 00 call far CRT_00D
- 00b0 b0 00 mov al,00H
- 00b2 50 push ax
- 00b3 9a 00 00 00 00 call far CRT_00E
- 00b8 eb 28 jmp L10
- 00ba 80 7e 08 00 L8 cmp byte ptr +8H[bp],00H
- 00be 74 12 je L9
- 00c0 b0 1d mov al,1dH
- 00c2 50 push ax
- 00c3 9a 00 00 00 00 call far CRT_00D
- 00c8 b0 00 mov al,00H
- 00ca 50 push ax
- 00cb 9a 00 00 00 00 call far CRT_00E
- 00d0 eb 10 jmp L10
- 00d2 b0 07 L9 mov al,07H
- 00d4 50 push ax
- 00d5 9a 00 00 00 00 call far CRT_00D
- 00da b0 00 mov al,00H
- 00dc 50 push ax
- 00dd 9a 00 00 00 00 call far CRT_00E
- 00e2 eb 19 L10 jmp L12
- 00e4 8a 46 08 L11 mov al,+8H[bp]
- 00e7 50 push ax
- 00e8 e8 00 00 call GENERAL_01B
- 00eb 8a 46 0e mov al,+0eH[bp]
- 00ee 50 push ax
- 00ef 9a 00 00 00 00 call far CRT_00D
- 00f4 8a 46 0c mov al,+0cH[bp]
- 00f7 50 push ax
- 00f8 9a 00 00 00 00 call far CRT_00E
- 00fd 89 ec L12 mov sp,bp
- 00ff 5d pop bp
- 0100 ca 0a 00 retf 000aH
- 0103 CURSORON:
- 0103 55 GENERAL_002 push bp
- 0104 89 e5 mov bp,sp
- 0106 b8 14 00 mov ax,0014H
- 0109 9a 00 00 00 00 call far SYSTEM_034
- 010e 83 ec 14 sub sp,0014H
- 0111 80 7e 06 00 cmp byte ptr +6H[bp],00H
- 0115 74 1b je L15
- 0117 31 c0 xor ax,ax
- 0119 50 push ax
- 011a bf 49 04 mov di,0449H
- 011d 07 pop es
- 011e 26 80 3d 07 cmp byte ptr es:[di],07H
- 0122 75 07 jne L13
- 0124 c7 46 f0 0d 0c mov word ptr -10H[bp],0c0dH
- 0129 eb 05 jmp L14
- 012b c7 46 f0 07 06 L13 mov word ptr -10H[bp],0607H
- 0130 eb 05 L14 jmp L16
- 0132 c7 46 f0 00 20 L15 mov word ptr -10H[bp],2000H
- 0137 c7 46 ec 00 01 L16 mov word ptr -14H[bp],0100H
- 013c b0 10 mov al,10H
- 013e 50 push ax
- 013f 8d 7e ec lea di,-14H[bp]
- 0142 16 push ss
- 0143 57 push di
- 0144 9a 00 00 00 00 call far DOS_001
- 0149 89 ec mov sp,bp
- 014b 5d pop bp
- 014c ca 02 00 retf 0002H
- 014f UPPER:
- 014f 55 GENERAL_003 push bp
- 0150 89 e5 mov bp,sp
- 0152 b8 04 00 mov ax,0004H
- 0155 9a 00 00 00 00 call far SYSTEM_034
- 015a 83 ec 04 sub sp,0004H
- 015d c4 7e 06 les di,dword ptr +6H[bp]
- 0160 26 8a 05 mov al,es:[di]
- 0163 30 e4 xor ah,ah
- 0165 89 46 fc mov -4H[bp],ax
- 0168 b8 01 00 mov ax,0001H
- 016b 3b 46 fc cmp ax,-4H[bp]
- 016e 7f 2e jg L19
- 0170 89 46 fe mov -2H[bp],ax
- 0173 eb 03 jmp L18
- 0175 ff 46 fe L17 inc word ptr -2H[bp]
- 0178 8b 46 fe L18 mov ax,-2H[bp]
- 017b c4 7e 06 les di,dword ptr +6H[bp]
- 017e 03 f8 add di,ax
- 0180 26 8a 05 mov al,es:[di]
- 0183 50 push ax
- 0184 9a 00 00 00 00 call far SYSTEM_05A
- 0189 8a d0 mov dl,al
- 018b 8b 46 fe mov ax,-2H[bp]
- 018e c4 7e 06 les di,dword ptr +6H[bp]
- 0191 03 f8 add di,ax
- 0193 26 88 15 mov es:[di],dl
- 0196 8b 46 fe mov ax,-2H[bp]
- 0199 3b 46 fc cmp ax,-4H[bp]
- 019c 75 d7 jne L17
- 019e 89 ec L19 mov sp,bp
- 01a0 5d pop bp
- 01a1 ca 04 00 retf 0004H
- 01a4 BOX:
- 01a4 55 GENERAL_004 push bp
- 01a5 89 e5 mov bp,sp
- 01a7 b8 0a 00 mov ax,000aH
- 01aa 9a 00 00 00 00 call far SYSTEM_034
- 01af 83 ec 0a sub sp,000aH
- 01b2 80 7e 0e 00 cmp byte ptr +0eH[bp],00H
- 01b6 74 1a je L20
- 01b8 c6 46 fa c9 mov byte ptr -6H[bp],0c9H
- 01bc c6 46 fb bb mov byte ptr -5H[bp],0bbH
- 01c0 c6 46 fc c8 mov byte ptr -4H[bp],0c8H
- 01c4 c6 46 fd bc mov byte ptr -3H[bp],0bcH
- 01c8 c6 46 fe cd mov byte ptr -2H[bp],0cdH
- 01cc c6 46 ff ba mov byte ptr -1H[bp],0baH
- 01d0 eb 18 jmp L21
- 01d2 c6 46 fa da L20 mov byte ptr -6H[bp],0daH
- 01d6 c6 46 fb bf mov byte ptr -5H[bp],0bfH
- 01da c6 46 fc c0 mov byte ptr -4H[bp],0c0H
- 01de c6 46 fd d9 mov byte ptr -3H[bp],0d9H
- 01e2 c6 46 fe c4 mov byte ptr -2H[bp],0c4H
- 01e6 c6 46 ff b3 mov byte ptr -1H[bp],0b3H
- 01ea 8a 46 06 L21 mov al,+6H[bp]
- 01ed 30 e4 xor ah,ah
- 01ef 48 dec ax
- 01f0 88 46 06 mov +6H[bp],al
- 01f3 8a 46 0c mov al,+0cH[bp]
- 01f6 50 push ax
- 01f7 8a 46 0a mov al,+0aH[bp]
- 01fa 50 push ax
- 01fb 9a 00 00 00 00 call far CRT_006
- 0200 bf 00 00 mov di,offset SYSTEM_BSS+100H
- 0203 1e push ds
- 0204 57 push di
- 0205 8a 46 fa mov al,-6H[bp]
- 0208 50 push ax
- 0209 31 c0 xor ax,ax
- 020b 50 push ax
- 020c 9a 00 00 00 00 call far SYSTEM_039
- 0211 9a 00 00 00 00 call far SYSTEM_03B
- 0216 9a 00 00 00 00 call far SYSTEM_032
- 021b 8a 46 0c mov al,+0cH[bp]
- 021e 30 e4 xor ah,ah
- 0220 8b d0 mov dx,ax
- 0222 8a 46 08 mov al,+8H[bp]
- 0225 30 e4 xor ah,ah
- 0227 2b c2 sub ax,dx
- 0229 48 dec ax
- 022a 88 46 f9 mov -7H[bp],al
- 022d 8a 46 f9 mov al,-7H[bp]
- 0230 88 46 f6 mov -0aH[bp],al
- 0233 b0 01 mov al,01H
- 0235 3a 46 f6 cmp al,-0aH[bp]
- 0238 77 2b ja L24
- 023a 88 46 f7 mov -9H[bp],al
- 023d eb 03 jmp L23
- 023f fe 46 f7 L22 inc byte ptr -9H[bp]
- 0242 bf 00 00 L23 mov di,offset SYSTEM_BSS+100H
- 0245 1e push ds
- 0246 57 push di
- 0247 8a 46 fe mov al,-2H[bp]
- 024a 50 push ax
- 024b 31 c0 xor ax,ax
- 024d 50 push ax
- 024e 9a 00 00 00 00 call far SYSTEM_039
- 0253 9a 00 00 00 00 call far SYSTEM_03B
- 0258 9a 00 00 00 00 call far SYSTEM_032
- 025d 8a 46 f7 mov al,-9H[bp]
- 0260 3a 46 f6 cmp al,-0aH[bp]
- 0263 75 da jne L22
- 0265 bf 00 00 L24 mov di,offset SYSTEM_BSS+100H
- 0268 1e push ds
- 0269 57 push di
- 026a 8a 46 fb mov al,-5H[bp]
- 026d 50 push ax
- 026e 31 c0 xor ax,ax
- 0270 50 push ax
- 0271 9a 00 00 00 00 call far SYSTEM_039
- 0276 9a 00 00 00 00 call far SYSTEM_03B
- 027b 9a 00 00 00 00 call far SYSTEM_032
- 0280 8a 46 06 mov al,+6H[bp]
- 0283 30 e4 xor ah,ah
- 0285 48 dec ax
- 0286 88 46 f6 mov -0aH[bp],al
- 0289 8a 46 0a mov al,+0aH[bp]
- 028c 30 e4 xor ah,ah
- 028e 40 inc ax
- 028f 3a 46 f6 cmp al,-0aH[bp]
- 0292 77 60 ja L27
- 0294 88 46 f8 mov -8H[bp],al
- 0297 eb 03 jmp L26
- 0299 fe 46 f8 L25 inc byte ptr -8H[bp]
- 029c 8a 46 08 L26 mov al,+8H[bp]
- 029f 50 push ax
- 02a0 8a 46 f8 mov al,-8H[bp]
- 02a3 50 push ax
- 02a4 9a 00 00 00 00 call far CRT_006
- 02a9 bf 00 00 mov di,offset SYSTEM_BSS+100H
- 02ac 1e push ds
- 02ad 57 push di
- 02ae 8a 46 ff mov al,-1H[bp]
- 02b1 50 push ax
- 02b2 31 c0 xor ax,ax
- 02b4 50 push ax
- 02b5 9a 00 00 00 00 call far SYSTEM_039
- 02ba 9a 00 00 00 00 call far SYSTEM_03B
- 02bf 9a 00 00 00 00 call far SYSTEM_032
- 02c4 8a 46 0c mov al,+0cH[bp]
- 02c7 50 push ax
- 02c8 8a 46 f8 mov al,-8H[bp]
- 02cb 50 push ax
- 02cc 9a 00 00 00 00 call far CRT_006
- 02d1 bf 00 00 mov di,offset SYSTEM_BSS+100H
- 02d4 1e push ds
- 02d5 57 push di
- 02d6 8a 46 ff mov al,-1H[bp]
- 02d9 50 push ax
- 02da 31 c0 xor ax,ax
- 02dc 50 push ax
- 02dd 9a 00 00 00 00 call far SYSTEM_039
- 02e2 9a 00 00 00 00 call far SYSTEM_03B
- 02e7 9a 00 00 00 00 call far SYSTEM_032
- 02ec 8a 46 f8 mov al,-8H[bp]
- 02ef 3a 46 f6 cmp al,-0aH[bp]
- 02f2 75 a5 jne L25
- 02f4 8a 46 0c L27 mov al,+0cH[bp]
- 02f7 50 push ax
- 02f8 8a 46 06 mov al,+6H[bp]
- 02fb 50 push ax
- 02fc 9a 00 00 00 00 call far CRT_006
- 0301 bf 00 00 mov di,offset SYSTEM_BSS+100H
- 0304 1e push ds
- 0305 57 push di
- 0306 8a 46 fc mov al,-4H[bp]
- 0309 50 push ax
- 030a 31 c0 xor ax,ax
- 030c 50 push ax
- 030d 9a 00 00 00 00 call far SYSTEM_039
- 0312 9a 00 00 00 00 call far SYSTEM_03B
- 0317 9a 00 00 00 00 call far SYSTEM_032
- 031c 8a 46 f9 mov al,-7H[bp]
- 031f 88 46 f6 mov -0aH[bp],al
- 0322 b0 01 mov al,01H
- 0324 3a 46 f6 cmp al,-0aH[bp]
- 0327 77 2b ja L30
- 0329 88 46 f7 mov -9H[bp],al
- 032c eb 03 jmp L29
- 032e fe 46 f7 L28 inc byte ptr -9H[bp]
- 0331 bf 00 00 L29 mov di,offset SYSTEM_BSS+100H
- 0334 1e push ds
- 0335 57 push di
- 0336 8a 46 fe mov al,-2H[bp]
- 0339 50 push ax
- 033a 31 c0 xor ax,ax
- 033c 50 push ax
- 033d 9a 00 00 00 00 call far SYSTEM_039
- 0342 9a 00 00 00 00 call far SYSTEM_03B
- 0347 9a 00 00 00 00 call far SYSTEM_032
- 034c 8a 46 f7 mov al,-9H[bp]
- 034f 3a 46 f6 cmp al,-0aH[bp]
- 0352 75 da jne L28
- 0354 bf 00 00 L30 mov di,offset SYSTEM_BSS+100H
- 0357 1e push ds
- 0358 57 push di
- 0359 8a 46 fd mov al,-3H[bp]
- 035c 50 push ax
- 035d 31 c0 xor ax,ax
- 035f 50 push ax
- 0360 9a 00 00 00 00 call far SYSTEM_039
- 0365 9a 00 00 00 00 call far SYSTEM_03B
- 036a 9a 00 00 00 00 call far SYSTEM_032
- 036f 9a 00 00 00 00 call far CRT_007
- 0374 50 push ax
- 0375 9a 00 00 00 00 call far CRT_008
- 037a 30 e4 xor ah,ah
- 037c 2d 02 00 sub ax,0002H
- 037f 50 push ax
- 0380 9a 00 00 00 00 call far CRT_006
- 0385 9a 00 00 00 00 call far CRT_00B
- 038a bf 00 00 mov di,offset SYSTEM_BSS+100H
- 038d 1e push ds
- 038e 57 push di
- 038f 8a 46 ff mov al,-1H[bp]
- 0392 50 push ax
- 0393 31 c0 xor ax,ax
- 0395 50 push ax
- 0396 9a 00 00 00 00 call far SYSTEM_039
- 039b 9a 00 00 00 00 call far SYSTEM_03B
- 03a0 9a 00 00 00 00 call far SYSTEM_032
- 03a5 8a 46 08 mov al,+8H[bp]
- 03a8 50 push ax
- 03a9 9a 00 00 00 00 call far CRT_008
- 03ae 50 push ax
- 03af 9a 00 00 00 00 call far CRT_006
- 03b4 bf 00 00 mov di,offset SYSTEM_BSS+100H
- 03b7 1e push ds
- 03b8 57 push di
- 03b9 8a 46 ff mov al,-1H[bp]
- 03bc 50 push ax
- 03bd 31 c0 xor ax,ax
- 03bf 50 push ax
- 03c0 9a 00 00 00 00 call far SYSTEM_039
- 03c5 9a 00 00 00 00 call far SYSTEM_03B
- 03ca 9a 00 00 00 00 call far SYSTEM_032
- 03cf 89 ec mov sp,bp
- 03d1 5d pop bp
- 03d2 ca 0a 00 retf 000aH
- 03d5 TRIM:
- 03d5 55 GENERAL_005 push bp
- 03d6 89 e5 mov bp,sp
- 03d8 b8 03 00 mov ax,0003H
- 03db 9a 00 00 00 00 call far SYSTEM_034
- 03e0 83 ec 03 sub sp,0003H
- 03e3 c4 7e 06 les di,dword ptr +6H[bp]
- 03e6 26 8a 05 mov al,es:[di]
- 03e9 30 e4 xor ah,ah
- 03eb 89 46 fe mov -2H[bp],ax
- 03ee c6 46 fd 01 mov byte ptr -3H[bp],01H
- 03f2 83 7e fe 00 L31 cmp word ptr -2H[bp],0000H
- 03f6 7e 23 jle L34
- 03f8 80 7e fd 00 cmp byte ptr -3H[bp],00H
- 03fc 74 1d je L34
- 03fe 8b 46 fe mov ax,-2H[bp]
- 0401 c4 7e 06 les di,dword ptr +6H[bp]
- 0404 03 f8 add di,ax
- 0406 26 80 3d 20 cmp byte ptr es:[di],20H
- 040a 75 09 jne L32
- 040c 8b 46 fe mov ax,-2H[bp]
- 040f 48 dec ax
- 0410 89 46 fe mov -2H[bp],ax
- 0413 eb 04 jmp L33
- 0415 c6 46 fd 00 L32 mov byte ptr -3H[bp],00H
- 0419 eb d7 L33 jmp L31
- 041b 8a 46 fe L34 mov al,-2H[bp]
- 041e c4 7e 06 les di,dword ptr +6H[bp]
- 0421 26 88 05 mov es:[di],al
- 0424 89 ec mov sp,bp
- 0426 5d pop bp
- 0427 ca 04 00 retf 0004H
- 042a BEEP:
- 042a 55 GENERAL_006 push bp
- 042b 89 e5 mov bp,sp
- 042d 31 c0 xor ax,ax
- 042f 9a 00 00 00 00 call far SYSTEM_034
- 0434 b8 f4 01 mov ax,01f4H
- 0437 50 push ax
- 0438 9a 00 00 00 00 call far CRT_013
- 043d b8 c8 00 mov ax,00c8H
- 0440 50 push ax
- 0441 9a 00 00 00 00 call far CRT_012
- 0446 9a 00 00 00 00 call far CRT_014
- 044b 89 ec mov sp,bp
- 044d 5d pop bp
- 044e cb retf
- 044f CENTER:
- 044f 55 GENERAL_007 push bp
- 0450 89 e5 mov bp,sp
- 0452 b8 53 00 mov ax,0053H
- 0455 9a 00 00 00 00 call far SYSTEM_034
- 045a 83 ec 53 sub sp,0053H
- 045d c4 7e 06 les di,dword ptr +6H[bp]
- 0460 06 push es
- 0461 57 push di
- 0462 8d 7e af lea di,-51H[bp]
- 0465 16 push ss
- 0466 57 push di
- 0467 b8 50 00 mov ax,0050H
- 046a 50 push ax
- 046b 9a 00 00 00 00 call far SYSTEM_00C
- 0470 8a 46 af mov al,-51H[bp]
- 0473 30 e4 xor ah,ah
- 0475 99 cwd
- 0476 b9 02 00 mov cx,0002H
- 0479 f7 f9 idiv cx
- 047b 8b d0 mov dx,ax
- 047d b8 28 00 mov ax,0028H
- 0480 2b c2 sub ax,dx
- 0482 89 46 ad mov -53H[bp],ax
- 0485 8a 46 ad mov al,-53H[bp]
- 0488 50 push ax
- 0489 8a 46 0a mov al,+0aH[bp]
- 048c 50 push ax
- 048d 9a 00 00 00 00 call far CRT_006
- 0492 bf 00 00 mov di,offset SYSTEM_BSS+100H
- 0495 1e push ds
- 0496 57 push di
- 0497 8d 7e af lea di,-51H[bp]
- 049a 16 push ss
- 049b 57 push di
- 049c 31 c0 xor ax,ax
- 049e 50 push ax
- 049f 9a 00 00 00 00 call far SYSTEM_036
- 04a4 9a 00 00 00 00 call far SYSTEM_03B
- 04a9 9a 00 00 00 00 call far SYSTEM_032
- 04ae 89 ec mov sp,bp
- 04b0 5d pop bp
- 04b1 ca 06 00 retf 0006H
- 04b4 02 20 L35 add ah,[bx+si]
- 04b6 20 02 and [bp+si],al
- 04b8 2c 20 sub al,20H
- 04ba WRITEDATE:
- 04ba 55 GENERAL_008 push bp
- 04bb 89 e5 mov bp,sp
- 04bd b8 08 00 mov ax,0008H
- 04c0 9a 00 00 00 00 call far SYSTEM_034
- 04c5 83 ec 08 sub sp,0008H
- 04c8 8a 46 08 mov al,+8H[bp]
- 04cb 50 push ax
- 04cc 8a 46 06 mov al,+6H[bp]
- 04cf 50 push ax
- 04d0 9a 00 00 00 00 call far CRT_006
- 04d5 8d 7e f8 lea di,-8H[bp]
- 04d8 16 push ss
- 04d9 57 push di
- 04da 8d 7e fa lea di,-6H[bp]
- 04dd 16 push ss
- 04de 57 push di
- 04df 8d 7e fc lea di,-4H[bp]
- 04e2 16 push ss
- 04e3 57 push di
- 04e4 8d 7e fe lea di,-2H[bp]
- 04e7 16 push ss
- 04e8 57 push di
- 04e9 9a 00 00 00 00 call far DOS_003
- 04ee 80 7e 0a 00 cmp byte ptr +0aH[bp],00H
- 04f2 74 34 je L37
- 04f4 bf 00 00 mov di,offset SYSTEM_BSS+100H
- 04f7 1e push ds
- 04f8 57 push di
- 04f9 8b 46 fe mov ax,-2H[bp]
- 04fc ba 0a 00 mov dx,000aH
- 04ff f7 e2 mul dx
- 0501 8b f8 mov di,ax
- 0503 81 c7 00 00 add di,offset L119
- 0507 1e push ds
- 0508 57 push di
- 0509 31 c0 xor ax,ax
- 050b 50 push ax
- 050c 9a 00 00 00 00 call far SYSTEM_036
- 0511 bf 00 00 mov di,offset L35
- 0514 0e push cs
- 0515 57 push di
- 0516 31 c0 xor ax,ax
- 0518 50 push ax
- 0519 9a 00 00 00 00 call far SYSTEM_036
- 051e 9a 00 00 00 00 call far SYSTEM_03B
- 0523 9a 00 00 00 00 call far SYSTEM_032
- 0528 bf 00 00 L37 mov di,offset SYSTEM_BSS+100H
- 052b 1e push ds
- 052c 57 push di
- 052d 8b 46 fa mov ax,-6H[bp]
- 0530 ba 0a 00 mov dx,000aH
- 0533 f7 e2 mul dx
- 0535 8b f8 mov di,ax
- 0537 81 c7 00 00 add di,offset L120
- 053b 1e push ds
- 053c 57 push di
- 053d 31 c0 xor ax,ax
- 053f 50 push ax
- 0540 9a 00 00 00 00 call far SYSTEM_036
- 0545 b0 20 mov al,20H
- 0547 50 push ax
- 0548 31 c0 xor ax,ax
- 054a 50 push ax
- 054b 9a 00 00 00 00 call far SYSTEM_039
- 0550 8b 46 fc mov ax,-4H[bp]
- 0553 31 d2 xor dx,dx
- 0555 52 push dx
- 0556 50 push ax
- 0557 31 c0 xor ax,ax
- 0559 50 push ax
- 055a 9a 00 00 00 00 call far SYSTEM_037
- 055f bf 00 00 mov di,offset L36
- 0562 0e push cs
- 0563 57 push di
- 0564 31 c0 xor ax,ax
- 0566 50 push ax
- 0567 9a 00 00 00 00 call far SYSTEM_036
- 056c 8b 46 f8 mov ax,-8H[bp]
- 056f 31 d2 xor dx,dx
- 0571 52 push dx
- 0572 50 push ax
- 0573 31 c0 xor ax,ax
- 0575 50 push ax
- 0576 9a 00 00 00 00 call far SYSTEM_037
- 057b 9a 00 00 00 00 call far SYSTEM_03B
- 0580 9a 00 00 00 00 call far SYSTEM_032
- 0585 89 ec mov sp,bp
- 0587 5d pop bp
- 0588 ca 06 00 retf 0006H
- 058b 02 41 4d L38 add al,+4dH[bx+di]
- 058e 02 50 4d L39 add dl,+4dH[bx+si]
- 0591 WRITETIME:
- 0591 55 GENERAL_009 push bp
- 0592 89 e5 mov bp,sp
- 0594 b8 09 00 mov ax,0009H
- 0597 9a 00 00 00 00 call far SYSTEM_034
- 059c 83 ec 09 sub sp,0009H
- 059f 8a 46 08 mov al,+8H[bp]
- 05a2 50 push ax
- 05a3 8a 46 06 mov al,+6H[bp]
- 05a6 50 push ax
- 05a7 9a 00 00 00 00 call far CRT_006
- 05ac 8d 7e f8 lea di,-8H[bp]
- 05af 16 push ss
- 05b0 57 push di
- 05b1 8d 7e fa lea di,-6H[bp]
- 05b4 16 push ss
- 05b5 57 push di
- 05b6 8d 7e fc lea di,-4H[bp]
- 05b9 16 push ss
- 05ba 57 push di
- 05bb 8d 7e fe lea di,-2H[bp]
- 05be 16 push ss
- 05bf 57 push di
- 05c0 9a 00 00 00 00 call far DOS_005
- 05c5 83 7e f8 0c cmp word ptr -8H[bp],000cH
- 05c9 76 0f jbe L40
- 05cb 8b 46 f8 mov ax,-8H[bp]
- 05ce 2d 0c 00 sub ax,000cH
- 05d1 89 46 f8 mov -8H[bp],ax
- 05d4 c6 46 f7 00 mov byte ptr -9H[bp],00H
- 05d8 eb 25 jmp L43
- 05da 83 7e f8 00 L40 cmp word ptr -8H[bp],0000H
- 05de 75 0f jne L41
- 05e0 8b 46 f8 mov ax,-8H[bp]
- 05e3 05 0c 00 add ax,000cH
- 05e6 89 46 f8 mov -8H[bp],ax
- 05e9 c6 46 f7 01 mov byte ptr -9H[bp],01H
- 05ed eb 10 jmp L43
- 05ef 83 7e f8 0c L41 cmp word ptr -8H[bp],000cH
- 05f3 75 06 jne L42
- 05f5 c6 46 f7 00 mov byte ptr -9H[bp],00H
- 05f9 eb 04 jmp L43
- 05fb c6 46 f7 01 L42 mov byte ptr -9H[bp],01H
- 05ff bf 00 00 L43 mov di,offset SYSTEM_BSS+100H
- 0602 1e push ds
- 0603 57 push di
- 0604 8b 46 f8 mov ax,-8H[bp]
- 0607 31 d2 xor dx,dx
- 0609 52 push dx
- 060a 50 push ax
- 060b 31 c0 xor ax,ax
- 060d 50 push ax
- 060e 9a 00 00 00 00 call far SYSTEM_037
- 0613 b0 3a mov al,3aH
- 0615 50 push ax
- 0616 31 c0 xor ax,ax
- 0618 50 push ax
- 0619 9a 00 00 00 00 call far SYSTEM_039
- 061e 8b 46 fa mov ax,-6H[bp]
- 0621 31 d2 xor dx,dx
- 0623 52 push dx
- 0624 50 push ax
- 0625 31 c0 xor ax,ax
- 0627 50 push ax
- 0628 9a 00 00 00 00 call far SYSTEM_037
- 062d b0 20 mov al,20H
- 062f 50 push ax
- 0630 31 c0 xor ax,ax
- 0632 50 push ax
- 0633 9a 00 00 00 00 call far SYSTEM_039
- 0638 9a 00 00 00 00 call far SYSTEM_03B
- 063d 9a 00 00 00 00 call far SYSTEM_032
- 0642 80 7e f7 00 cmp byte ptr -9H[bp],00H
- 0646 74 1e je L44
- 0648 bf 00 00 mov di,offset SYSTEM_BSS+100H
- 064b 1e push ds
- 064c 57 push di
- 064d bf 00 00 mov di,offset L38
- 0650 0e push cs
- 0651 57 push di
- 0652 31 c0 xor ax,ax
- 0654 50 push ax
- 0655 9a 00 00 00 00 call far SYSTEM_036
- 065a 9a 00 00 00 00 call far SYSTEM_03B
- 065f 9a 00 00 00 00 call far SYSTEM_032
- 0664 eb 1c jmp L45
- 0666 bf 00 00 L44 mov di,offset SYSTEM_BSS+100H
- 0669 1e push ds
- 066a 57 push di
- 066b bf 00 00 mov di,offset L39
- 066e 0e push cs
- 066f 57 push di
- 0670 31 c0 xor ax,ax
- 0672 50 push ax
- 0673 9a 00 00 00 00 call far SYSTEM_036
- 0678 9a 00 00 00 00 call far SYSTEM_03B
- 067d 9a 00 00 00 00 call far SYSTEM_032
- 0682 89 ec L45 mov sp,bp
- 0684 5d pop bp
- 0685 ca 04 00 retf 0004H
- 0688 SYSOPER:
- 0688 55 GENERAL_00A push bp
- 0689 89 e5 mov bp,sp
- 068b 31 c0 xor ax,ax
- 068d 9a 00 00 00 00 call far SYSTEM_034
- 0692 8a 46 0a mov al,+0aH[bp]
- 0695 a2 00 00 mov CRT_BSS,al
- 0698 8a 46 06 mov al,+6H[bp]
- 069b a2 00 00 mov CRT_BSS+3H,al
- 069e 80 7e 08 00 cmp byte ptr +8H[bp],00H
- 06a2 74 18 je L46
- 06a4 b8 50 00 mov ax,0050H
- 06a7 50 push ax
- 06a8 31 ff xor di,di
- 06aa 07 pop es
- 06ab 26 8a 05 mov al,es:[di]
- 06ae 34 01 xor al,01H
- 06b0 8a d0 mov dl,al
- 06b2 b8 50 00 mov ax,0050H
- 06b5 50 push ax
- 06b6 31 ff xor di,di
- 06b8 07 pop es
- 06b9 26 88 15 mov es:[di],dl
- 06bc 89 ec L46 mov sp,bp
- 06be 5d pop bp
- 06bf ca 06 00 retf 0006H
- 06c2 LINEFEED:
- 06c2 55 GENERAL_00B push bp
- 06c3 89 e5 mov bp,sp
- 06c5 b8 02 00 mov ax,0002H
- 06c8 9a 00 00 00 00 call far SYSTEM_034
- 06cd 83 ec 02 sub sp,0002H
- 06d0 8b 46 06 mov ax,+6H[bp]
- 06d3 89 46 fe mov -2H[bp],ax
- 06d6 b8 01 00 mov ax,0001H
- 06d9 3b 46 fe cmp ax,-2H[bp]
- 06dc 7f 2a jg L49
- 06de 89 46 06 mov +6H[bp],ax
- 06e1 eb 03 jmp L48
- 06e3 ff 46 06 L47 inc word ptr +6H[bp]
- 06e6 bf 00 00 L48 mov di,offset PRINTER_BSS
- 06e9 1e push ds
- 06ea 57 push di
- 06eb b0 0a mov al,0aH
- 06ed 50 push ax
- 06ee 31 c0 xor ax,ax
- 06f0 50 push ax
- 06f1 9a 00 00 00 00 call far SYSTEM_039
- 06f6 9a 00 00 00 00 call far SYSTEM_03B
- 06fb 9a 00 00 00 00 call far SYSTEM_032
- 0700 8b 46 06 mov ax,+6H[bp]
- 0703 3b 46 fe cmp ax,-2H[bp]
- 0706 75 db jne L47
- 0708 89 ec L49 mov sp,bp
- 070a 5d pop bp
- 070b ca 02 00 retf 0002H
- 070e FORMFEED:
- 070e 55 GENERAL_00C push bp
- 070f 89 e5 mov bp,sp
- 0711 31 c0 xor ax,ax
- 0713 9a 00 00 00 00 call far SYSTEM_034
- 0718 bf 00 00 mov di,offset PRINTER_BSS
- 071b 1e push ds
- 071c 57 push di
- 071d b0 0c mov al,0cH
- 071f 50 push ax
- 0720 31 c0 xor ax,ax
- 0722 50 push ax
- 0723 9a 00 00 00 00 call far SYSTEM_039
- 0728 9a 00 00 00 00 call far SYSTEM_03B
- 072d 9a 00 00 00 00 call far SYSTEM_032
- 0732 89 ec mov sp,bp
- 0734 5d pop bp
- 0735 cb retf
- 0736 SETPAGELEN:
- 0736 55 GENERAL_00D push bp
- 0737 89 e5 mov bp,sp
- 0739 31 c0 xor ax,ax
- 073b 9a 00 00 00 00 call far SYSTEM_034
- 0740 bf 00 00 mov di,offset PRINTER_BSS
- 0743 1e push ds
- 0744 57 push di
- 0745 b0 1b mov al,1bH
- 0747 50 push ax
- 0748 31 c0 xor ax,ax
- 074a 50 push ax
- 074b 9a 00 00 00 00 call far SYSTEM_039
- 0750 b0 43 mov al,43H
- 0752 50 push ax
- 0753 31 c0 xor ax,ax
- 0755 50 push ax
- 0756 9a 00 00 00 00 call far SYSTEM_039
- 075b 8b 46 06 mov ax,+6H[bp]
- 075e 99 cwd
- 075f 52 push dx
- 0760 50 push ax
- 0761 31 c0 xor ax,ax
- 0763 50 push ax
- 0764 9a 00 00 00 00 call far SYSTEM_037
- 0769 9a 00 00 00 00 call far SYSTEM_03B
- 076e 9a 00 00 00 00 call far SYSTEM_032
- 0773 89 ec mov sp,bp
- 0775 5d pop bp
- 0776 ca 02 00 retf 0002H
- 0779 NEARLQ:
- 0779 55 GENERAL_00E push bp
- 077a 89 e5 mov bp,sp
- 077c 31 c0 xor ax,ax
- 077e 9a 00 00 00 00 call far SYSTEM_034
- 0783 80 7e 06 00 cmp byte ptr +6H[bp],00H
- 0787 74 36 je L50
- 0789 bf 00 00 mov di,offset PRINTER_BSS
- 078c 1e push ds
- 078d 57 push di
- 078e b0 1b mov al,1bH
- 0790 50 push ax
- 0791 31 c0 xor ax,ax
- 0793 50 push ax
- 0794 9a 00 00 00 00 call far SYSTEM_039
- 0799 b0 78 mov al,78H
- 079b 50 push ax
- 079c 31 c0 xor ax,ax
- 079e 50 push ax
- 079f 9a 00 00 00 00 call far SYSTEM_039
- 07a4 b8 01 00 mov ax,0001H
- 07a7 31 d2 xor dx,dx
- 07a9 52 push dx
- 07aa 50 push ax
- 07ab 31 c0 xor ax,ax
- 07ad 50 push ax
- 07ae 9a 00 00 00 00 call far SYSTEM_037
- 07b3 9a 00 00 00 00 call far SYSTEM_03B
- 07b8 9a 00 00 00 00 call far SYSTEM_032
- 07bd eb 33 jmp L51
- 07bf bf 00 00 L50 mov di,offset PRINTER_BSS
- 07c2 1e push ds
- 07c3 57 push di
- 07c4 b0 1b mov al,1bH
- 07c6 50 push ax
- 07c7 31 c0 xor ax,ax
- 07c9 50 push ax
- 07ca 9a 00 00 00 00 call far SYSTEM_039
- 07cf b0 78 mov al,78H
- 07d1 50 push ax
- 07d2 31 c0 xor ax,ax
- 07d4 50 push ax
- 07d5 9a 00 00 00 00 call far SYSTEM_039
- 07da 31 c0 xor ax,ax
- 07dc 31 d2 xor dx,dx
- 07de 52 push dx
- 07df 50 push ax
- 07e0 31 c0 xor ax,ax
- 07e2 50 push ax
- 07e3 9a 00 00 00 00 call far SYSTEM_037
- 07e8 9a 00 00 00 00 call far SYSTEM_03B
- 07ed 9a 00 00 00 00 call far SYSTEM_032
- 07f2 89 ec L51 mov sp,bp
- 07f4 5d pop bp
- 07f5 ca 02 00 retf 0002H
- 07f8 CONDENSED:
- 07f8 55 GENERAL_00F push bp
- 07f9 89 e5 mov bp,sp
- 07fb 31 c0 xor ax,ax
- 07fd 9a 00 00 00 00 call far SYSTEM_034
- 0802 80 7e 06 00 cmp byte ptr +6H[bp],00H
- 0806 74 27 je L52
- 0808 bf 00 00 mov di,offset PRINTER_BSS
- 080b 1e push ds
- 080c 57 push di
- 080d b0 1b mov al,1bH
- 080f 50 push ax
- 0810 31 c0 xor ax,ax
- 0812 50 push ax
- 0813 9a 00 00 00 00 call far SYSTEM_039
- 0818 b0 0f mov al,0fH
- 081a 50 push ax
- 081b 31 c0 xor ax,ax
- 081d 50 push ax
- 081e 9a 00 00 00 00 call far SYSTEM_039
- 0823 9a 00 00 00 00 call far SYSTEM_03B
- 0828 9a 00 00 00 00 call far SYSTEM_032
- 082d eb 1a jmp L53
- 082f bf 00 00 L52 mov di,offset PRINTER_BSS
- 0832 1e push ds
- 0833 57 push di
- 0834 b0 12 mov al,12H
- 0836 50 push ax
- 0837 31 c0 xor ax,ax
- 0839 50 push ax
- 083a 9a 00 00 00 00 call far SYSTEM_039
- 083f 9a 00 00 00 00 call far SYSTEM_03B
- 0844 9a 00 00 00 00 call far SYSTEM_032
- 0849 89 ec L53 mov sp,bp
- 084b 5d pop bp
- 084c ca 02 00 retf 0002H
- 084f UNDERLINE:
- 084f 55 GENERAL_010 push bp
- 0850 89 e5 mov bp,sp
- 0852 31 c0 xor ax,ax
- 0854 9a 00 00 00 00 call far SYSTEM_034
- 0859 80 7e 06 00 cmp byte ptr +6H[bp],00H
- 085d 74 36 je L54
- 085f bf 00 00 mov di,offset PRINTER_BSS
- 0862 1e push ds
- 0863 57 push di
- 0864 b0 1b mov al,1bH
- 0866 50 push ax
- 0867 31 c0 xor ax,ax
- 0869 50 push ax
- 086a 9a 00 00 00 00 call far SYSTEM_039
- 086f b0 2d mov al,2dH
- 0871 50 push ax
- 0872 31 c0 xor ax,ax
- 0874 50 push ax
- 0875 9a 00 00 00 00 call far SYSTEM_039
- 087a b8 01 00 mov ax,0001H
- 087d 31 d2 xor dx,dx
- 087f 52 push dx
- 0880 50 push ax
- 0881 31 c0 xor ax,ax
- 0883 50 push ax
- 0884 9a 00 00 00 00 call far SYSTEM_037
- 0889 9a 00 00 00 00 call far SYSTEM_03B
- 088e 9a 00 00 00 00 call far SYSTEM_032
- 0893 eb 33 jmp L55
- 0895 bf 00 00 L54 mov di,offset PRINTER_BSS
- 0898 1e push ds
- 0899 57 push di
- 089a b0 1b mov al,1bH
- 089c 50 push ax
- 089d 31 c0 xor ax,ax
- 089f 50 push ax
- 08a0 9a 00 00 00 00 call far SYSTEM_039
- 08a5 b0 2d mov al,2dH
- 08a7 50 push ax
- 08a8 31 c0 xor ax,ax
- 08aa 50 push ax
- 08ab 9a 00 00 00 00 call far SYSTEM_039
- 08b0 31 c0 xor ax,ax
- 08b2 31 d2 xor dx,dx
- 08b4 52 push dx
- 08b5 50 push ax
- 08b6 31 c0 xor ax,ax
- 08b8 50 push ax
- 08b9 9a 00 00 00 00 call far SYSTEM_037
- 08be 9a 00 00 00 00 call far SYSTEM_03B
- 08c3 9a 00 00 00 00 call far SYSTEM_032
- 08c8 89 ec L55 mov sp,bp
- 08ca 5d pop bp
- 08cb ca 02 00 retf 0002H
- 08ce PRINTERON:
- 08ce 55 GENERAL_011 push bp
- 08cf 89 e5 mov bp,sp
- 08d1 b8 15 00 mov ax,0015H
- 08d4 9a 00 00 00 00 call far SYSTEM_034
- 08d9 83 ec 15 sub sp,0015H
- 08dc c6 46 ec 02 mov byte ptr -14H[bp],02H
- 08e0 31 c0 xor ax,ax
- 08e2 89 46 f1 mov -0fH[bp],ax
- 08e5 b0 17 mov al,17H
- 08e7 50 push ax
- 08e8 8d 7e eb lea di,-15H[bp]
- 08eb 16 push ss
- 08ec 57 push di
- 08ed 9a 00 00 00 00 call far DOS_001
- 08f2 8a 46 ec mov al,-14H[bp]
- 08f5 24 10 and al,10H
- 08f7 08 c0 or al,al
- 08f9 74 15 je L58
- 08fb 8a 46 ec mov al,-14H[bp]
- 08fe 24 80 and al,80H
- 0900 08 c0 or al,al
- 0902 74 06 je L56
- 0904 c6 46 ff 01 mov byte ptr -1H[bp],01H
- 0908 eb 04 jmp L57
- 090a c6 46 ff 00 L56 mov byte ptr -1H[bp],00H
- 090e eb 04 L57 jmp L59
- 0910 c6 46 ff 00 L58 mov byte ptr -1H[bp],00H
- 0914 8a 46 ff L59 mov al,-1H[bp]
- 0917 89 ec mov sp,bp
- 0919 5d pop bp
- 091a cb retf
- 091b 55 GENERAL_01C push bp
- 091c 89 e5 mov bp,sp
- 091e b8 04 00 mov ax,0004H
- 0921 9a 00 00 00 00 call far SYSTEM_034
- 0926 83 ec 04 sub sp,0004H
- 0929 8b 7e 04 mov di,+4H[bp]
- 092c 36 8b 45 f8 mov ax,ss:-8H[di]
- 0930 48 dec ax
- 0931 8b 7e 04 mov di,+4H[bp]
- 0934 36 89 45 fa mov ss:-6H[di],ax
- 0938 8b 7e 04 mov di,+4H[bp]
- 093b 36 8b 45 08 mov ax,ss:+8H[di]
- 093f 89 46 fc mov -4H[bp],ax
- 0942 8b 7e 04 mov di,+4H[bp]
- 0945 36 8b 45 0c mov ax,ss:+0cH[di]
- 0949 3b 46 fc cmp ax,-4H[bp]
- 094c 7e 03 jle L60
- 094e e9 ec 00 jmp L65
- 0951 89 46 fe L60 mov -2H[bp],ax
- 0954 eb 03 jmp L62
- 0956 ff 46 fe L61 inc word ptr -2H[bp]
- 0959 8b 7e 04 L62 mov di,+4H[bp]
- 095c 36 8b 45 f4 mov ax,ss:-0cH[di]
- 0960 31 d2 xor dx,dx
- 0962 8b c8 mov cx,ax
- 0964 8b da mov bx,dx
- 0966 8b 46 fe mov ax,-2H[bp]
- 0969 48 dec ax
- 096a 99 cwd
- 096b 9a 00 00 00 00 call far SYSTEM_005
- 0970 8b 7e 04 mov di,+4H[bp]
- 0973 36 89 45 fc mov ss:-4H[di],ax
- 0977 8b 7e 04 mov di,+4H[bp]
- 097a 36 8b 45 fc mov ax,ss:-4H[di]
- 097e 8b 7e 04 mov di,+4H[bp]
- 0981 36 03 45 fa add ax,ss:-6H[di]
- 0985 d1 e0 shl ax,1
- 0987 8b 7e 04 mov di,+4H[bp]
- 098a 36 89 45 f2 mov ss:-0eH[di],ax
- 098e 8b 46 08 mov ax,+8H[bp]
- 0991 99 cwd
- 0992 8b c8 mov cx,ax
- 0994 8b da mov bx,dx
- 0996 8b 7e 04 mov di,+4H[bp]
- 0999 36 8b 45 f8 mov ax,ss:-8H[di]
- 099d 31 d2 xor dx,dx
- 099f 3b d3 cmp dx,bx
- 09a1 75 1a jne L63
- 09a3 3b c1 cmp ax,cx
- 09a5 75 16 jne L63
- 09a7 8b 7e 04 mov di,+4H[bp]
- 09aa 36 8b 45 f0 mov ax,ss:-10H[di]
- 09ae 50 push ax
- 09af 8b 7e 04 mov di,+4H[bp]
- 09b2 36 8b 7d f2 mov di,ss:-0eH[di]
- 09b6 07 pop es
- 09b7 26 c6 05 20 mov byte ptr es:[di],20H
- 09bb eb 75 jmp L64
- 09bd 8b 7e 04 L63 mov di,+4H[bp]
- 09c0 36 8b 45 f0 mov ax,ss:-10H[di]
- 09c4 50 push ax
- 09c5 8b 46 06 mov ax,+6H[bp]
- 09c8 99 cwd
- 09c9 8b c8 mov cx,ax
- 09cb 8b da mov bx,dx
- 09cd 8b 7e 04 mov di,+4H[bp]
- 09d0 36 8b 45 f2 mov ax,ss:-0eH[di]
- 09d4 31 d2 xor dx,dx
- 09d6 03 c1 add ax,cx
- 09d8 13 d3 adc dx,bx
- 09da 8b f8 mov di,ax
- 09dc 07 pop es
- 09dd 26 8a 15 mov dl,es:[di]
- 09e0 8b 7e 04 mov di,+4H[bp]
- 09e3 36 8b 45 f0 mov ax,ss:-10H[di]
- 09e7 50 push ax
- 09e8 8b 7e 04 mov di,+4H[bp]
- 09eb 36 8b 7d f2 mov di,ss:-0eH[di]
- 09ef 07 pop es
- 09f0 26 88 15 mov es:[di],dl
- 09f3 8b 7e 04 mov di,+4H[bp]
- 09f6 36 8b 45 f0 mov ax,ss:-10H[di]
- 09fa 50 push ax
- 09fb 8b 46 06 mov ax,+6H[bp]
- 09fe 99 cwd
- 09ff 8b c8 mov cx,ax
- 0a01 8b da mov bx,dx
- 0a03 8b 7e 04 mov di,+4H[bp]
- 0a06 36 8b 45 f2 mov ax,ss:-0eH[di]
- 0a0a 31 d2 xor dx,dx
- 0a0c 03 c1 add ax,cx
- 0a0e 13 d3 adc dx,bx
- 0a10 05 01 00 add ax,0001H
- 0a13 83 d2 00 adc dx,0000H
- 0a16 8b f8 mov di,ax
- 0a18 07 pop es
- 0a19 26 8a 15 mov dl,es:[di]
- 0a1c 8b 7e 04 mov di,+4H[bp]
- 0a1f 36 8b 45 f0 mov ax,ss:-10H[di]
- 0a23 50 push ax
- 0a24 8b 7e 04 mov di,+4H[bp]
- 0a27 36 8b 45 f2 mov ax,ss:-0eH[di]
- 0a2b 40 inc ax
- 0a2c 8b f8 mov di,ax
- 0a2e 07 pop es
- 0a2f 26 88 15 mov es:[di],dl
- 0a32 8b 46 fe L64 mov ax,-2H[bp]
- 0a35 3b 46 fc cmp ax,-4H[bp]
- 0a38 74 03 je L65
- 0a3a e9 19 ff jmp L61
- 0a3d 89 ec L65 mov sp,bp
- 0a3f 5d pop bp
- 0a40 c2 06 00 ret 0006H
- 0a43 55 GENERAL_01D push bp
- 0a44 89 e5 mov bp,sp
- 0a46 b8 04 00 mov ax,0004H
- 0a49 9a 00 00 00 00 call far SYSTEM_034
- 0a4e 83 ec 04 sub sp,0004H
- 0a51 8b 7e 04 mov di,+4H[bp]
- 0a54 36 8b 45 fe mov ax,ss:-2H[di]
- 0a58 48 dec ax
- 0a59 8b 7e 04 mov di,+4H[bp]
- 0a5c 36 f7 65 f4 mul word ptr ss:-0cH[di]
- 0a60 8b 7e 04 mov di,+4H[bp]
- 0a63 36 89 45 fc mov ss:-4H[di],ax
- 0a67 8b 7e 04 mov di,+4H[bp]
- 0a6a 36 8b 45 0a mov ax,ss:+0aH[di]
- 0a6e 89 46 fc mov -4H[bp],ax
- 0a71 8b 7e 04 mov di,+4H[bp]
- 0a74 36 8b 45 0e mov ax,ss:+0eH[di]
- 0a78 3b 46 fc cmp ax,-4H[bp]
- 0a7b 7e 03 jle L66
- 0a7d e9 d9 00 jmp L71
- 0a80 89 46 fe L66 mov -2H[bp],ax
- 0a83 eb 03 jmp L68
- 0a85 ff 46 fe L67 inc word ptr -2H[bp]
- 0a88 8b 46 fe L68 mov ax,-2H[bp]
- 0a8b 48 dec ax
- 0a8c 8b 7e 04 mov di,+4H[bp]
- 0a8f 36 89 45 fa mov ss:-6H[di],ax
- 0a93 8b 7e 04 mov di,+4H[bp]
- 0a96 36 8b 45 fc mov ax,ss:-4H[di]
- 0a9a 8b 7e 04 mov di,+4H[bp]
- 0a9d 36 03 45 fa add ax,ss:-6H[di]
- 0aa1 d1 e0 shl ax,1
- 0aa3 8b 7e 04 mov di,+4H[bp]
- 0aa6 36 89 45 f2 mov ss:-0eH[di],ax
- 0aaa 8b 46 08 mov ax,+8H[bp]
- 0aad 99 cwd
- 0aae 8b c8 mov cx,ax
- 0ab0 8b da mov bx,dx
- 0ab2 8b 7e 04 mov di,+4H[bp]
- 0ab5 36 8b 45 fe mov ax,ss:-2H[di]
- 0ab9 31 d2 xor dx,dx
- 0abb 3b d3 cmp dx,bx
- 0abd 75 1a jne L69
- 0abf 3b c1 cmp ax,cx
- 0ac1 75 16 jne L69
- 0ac3 8b 7e 04 mov di,+4H[bp]
- 0ac6 36 8b 45 f0 mov ax,ss:-10H[di]
- 0aca 50 push ax
- 0acb 8b 7e 04 mov di,+4H[bp]
- 0ace 36 8b 7d f2 mov di,ss:-0eH[di]
- 0ad2 07 pop es
- 0ad3 26 c6 05 20 mov byte ptr es:[di],20H
- 0ad7 eb 75 jmp L70
- 0ad9 8b 7e 04 L69 mov di,+4H[bp]
- 0adc 36 8b 45 f0 mov ax,ss:-10H[di]
- 0ae0 50 push ax
- 0ae1 8b 46 06 mov ax,+6H[bp]
- 0ae4 99 cwd
- 0ae5 8b c8 mov cx,ax
- 0ae7 8b da mov bx,dx
- 0ae9 8b 7e 04 mov di,+4H[bp]
- 0aec 36 8b 45 f2 mov ax,ss:-0eH[di]
- 0af0 31 d2 xor dx,dx
- 0af2 03 c1 add ax,cx
- 0af4 13 d3 adc dx,bx
- 0af6 8b f8 mov di,ax
- 0af8 07 pop es
- 0af9 26 8a 15 mov dl,es:[di]
- 0afc 8b 7e 04 mov di,+4H[bp]
- 0aff 36 8b 45 f0 mov ax,ss:-10H[di]
- 0b03 50 push ax
- 0b04 8b 7e 04 mov di,+4H[bp]
- 0b07 36 8b 7d f2 mov di,ss:-0eH[di]
- 0b0b 07 pop es
- 0b0c 26 88 15 mov es:[di],dl
- 0b0f 8b 7e 04 mov di,+4H[bp]
- 0b12 36 8b 45 f0 mov ax,ss:-10H[di]
- 0b16 50 push ax
- 0b17 8b 46 06 mov ax,+6H[bp]
- 0b1a 99 cwd
- 0b1b 8b c8 mov cx,ax
- 0b1d 8b da mov bx,dx
- 0b1f 8b 7e 04 mov di,+4H[bp]
- 0b22 36 8b 45 f2 mov ax,ss:-0eH[di]
- 0b26 31 d2 xor dx,dx
- 0b28 03 c1 add ax,cx
- 0b2a 13 d3 adc dx,bx
- 0b2c 05 01 00 add ax,0001H
- 0b2f 83 d2 00 adc dx,0000H
- 0b32 8b f8 mov di,ax
- 0b34 07 pop es
- 0b35 26 8a 15 mov dl,es:[di]
- 0b38 8b 7e 04 mov di,+4H[bp]
- 0b3b 36 8b 45 f0 mov ax,ss:-10H[di]
- 0b3f 50 push ax
- 0b40 8b 7e 04 mov di,+4H[bp]
- 0b43 36 8b 45 f2 mov ax,ss:-0eH[di]
- 0b47 40 inc ax
- 0b48 8b f8 mov di,ax
- 0b4a 07 pop es
- 0b4b 26 88 15 mov es:[di],dl
- 0b4e 8b 46 fe L70 mov ax,-2H[bp]
- 0b51 3b 46 fc cmp ax,-4H[bp]
- 0b54 74 03 je L71
- 0b56 e9 2c ff jmp L67
- 0b59 89 ec L71 mov sp,bp
- 0b5b 5d pop bp
- 0b5c c2 06 00 ret 0006H
- 0b5f SCROLL:
- 0b5f 55 GENERAL_012 push bp
- 0b60 89 e5 mov bp,sp
- 0b62 b8 12 00 mov ax,0012H
- 0b65 9a 00 00 00 00 call far SYSTEM_034
- 0b6a 83 ec 12 sub sp,0012H
- 0b6d 31 c0 xor ax,ax
- 0b6f 50 push ax
- 0b70 bf 49 04 mov di,0449H
- 0b73 07 pop es
- 0b74 26 80 3d 07 cmp byte ptr es:[di],07H
- 0b78 75 07 jne L72
- 0b7a c7 46 f0 00 b0 mov word ptr -10H[bp],0b000H
- 0b7f eb 05 jmp L73
- 0b81 c7 46 f0 00 b8 L72 mov word ptr -10H[bp],0b800H
- 0b86 31 c0 L73 xor ax,ax
- 0b88 50 push ax
- 0b89 bf 4a 04 mov di,044aH
- 0b8c 07 pop es
- 0b8d 26 8a 05 mov al,es:[di]
- 0b90 30 e4 xor ah,ah
- 0b92 89 46 f4 mov -0cH[bp],ax
- 0b95 8b 46 f4 mov ax,-0cH[bp]
- 0b98 d1 e0 shl ax,1
- 0b9a 89 46 f6 mov -0aH[bp],ax
- 0b9d 8b 46 06 mov ax,+6H[bp]
- 0ba0 3d 00 00 cmp ax,0000H
- 0ba3 75 2c jne L77
- 0ba5 8b 46 0a mov ax,+0aH[bp]
- 0ba8 89 46 ee mov -12H[bp],ax
- 0bab 8b 46 0e mov ax,+0eH[bp]
- 0bae 3b 46 ee cmp ax,-12H[bp]
- 0bb1 77 1b ja L76
- 0bb3 89 46 f8 mov -8H[bp],ax
- 0bb6 eb 03 jmp L75
- 0bb8 ff 46 f8 L74 inc word ptr -8H[bp]
- 0bbb ff 76 0a L75 push +0aH[bp]
- 0bbe b8 02 00 mov ax,0002H
- 0bc1 50 push ax
- 0bc2 55 push bp
- 0bc3 e8 00 00 call GENERAL_01C
- 0bc6 8b 46 f8 mov ax,-8H[bp]
- 0bc9 3b 46 ee cmp ax,-12H[bp]
- 0bcc 75 ea jne L74
- 0bce e9 99 00 L76 jmp L88
- 0bd1 3d 01 00 L77 cmp ax,0001H
- 0bd4 75 2b jne L81
- 0bd6 8b 46 0e mov ax,+0eH[bp]
- 0bd9 89 46 ee mov -12H[bp],ax
- 0bdc 8b 46 0a mov ax,+0aH[bp]
- 0bdf 3b 46 ee cmp ax,-12H[bp]
- 0be2 72 1b jb L80
- 0be4 89 46 f8 mov -8H[bp],ax
- 0be7 eb 03 jmp L79
- 0be9 ff 4e f8 L78 dec word ptr -8H[bp]
- 0bec ff 76 0e L79 push +0eH[bp]
- 0bef b8 fe ff mov ax,0fffeH
- 0bf2 50 push ax
- 0bf3 55 push bp
- 0bf4 e8 00 00 call GENERAL_01C
- 0bf7 8b 46 f8 mov ax,-8H[bp]
- 0bfa 3b 46 ee cmp ax,-12H[bp]
- 0bfd 75 ea jne L78
- 0bff eb 69 L80 jmp L88
- 0c01 3d 02 00 L81 cmp ax,0002H
- 0c04 75 2a jne L85
- 0c06 8b 46 08 mov ax,+8H[bp]
- 0c09 89 46 ee mov -12H[bp],ax
- 0c0c 8b 46 0c mov ax,+0cH[bp]
- 0c0f 3b 46 ee cmp ax,-12H[bp]
- 0c12 77 1a ja L84
- 0c14 89 46 fe mov -2H[bp],ax
- 0c17 eb 03 jmp L83
- 0c19 ff 46 fe L82 inc word ptr -2H[bp]
- 0c1c ff 76 08 L83 push +8H[bp]
- 0c1f ff 76 f6 push -0aH[bp]
- 0c22 55 push bp
- 0c23 e8 00 00 call GENERAL_01D
- 0c26 8b 46 fe mov ax,-2H[bp]
- 0c29 3b 46 ee cmp ax,-12H[bp]
- 0c2c 75 eb jne L82
- 0c2e eb 3a L84 jmp L88
- 0c30 3d 03 00 L85 cmp ax,0003H
- 0c33 75 35 jne L88
- 0c35 8b 46 0c mov ax,+0cH[bp]
- 0c38 89 46 ee mov -12H[bp],ax
- 0c3b 8b 46 08 mov ax,+8H[bp]
- 0c3e 3b 46 ee cmp ax,-12H[bp]
- 0c41 72 27 jb L88
- 0c43 89 46 fe mov -2H[bp],ax
- 0c46 eb 03 jmp L87
- 0c48 ff 4e fe L86 dec word ptr -2H[bp]
- 0c4b ff 76 0c L87 push +0cH[bp]
- 0c4e 8b 46 f6 mov ax,-0aH[bp]
- 0c51 31 d2 xor dx,dx
- 0c53 f7 d0 not ax
- 0c55 f7 d2 not dx
- 0c57 05 01 00 add ax,0001H
- 0c5a 83 d2 00 adc dx,0000H
- 0c5d 50 push ax
- 0c5e 55 push bp
- 0c5f e8 00 00 call GENERAL_01D
- 0c62 8b 46 fe mov ax,-2H[bp]
- 0c65 3b 46 ee cmp ax,-12H[bp]
- 0c68 75 de jne L86
- 0c6a 89 ec L88 mov sp,bp
- 0c6c 5d pop bp
- 0c6d ca 0a 00 retf 000aH
- 0c70 LEFTTRIM:
- 0c70 55 GENERAL_013 push bp
- 0c71 89 e5 mov bp,sp
- 0c73 b8 01 00 mov ax,0001H
- 0c76 9a 00 00 00 00 call far SYSTEM_034
- 0c7b 83 ec 01 sub sp,0001H
- 0c7e c6 46 ff 00 mov byte ptr -1H[bp],00H
- 0c82 8a 46 ff L89 mov al,-1H[bp]
- 0c85 30 e4 xor ah,ah
- 0c87 40 inc ax
- 0c88 c4 7e 06 les di,dword ptr +6H[bp]
- 0c8b 03 f8 add di,ax
- 0c8d 26 80 3d 20 cmp byte ptr es:[di],20H
- 0c91 75 0b jne L90
- 0c93 8a 46 ff mov al,-1H[bp]
- 0c96 30 e4 xor ah,ah
- 0c98 40 inc ax
- 0c99 88 46 ff mov -1H[bp],al
- 0c9c eb e4 jmp L89
- 0c9e 80 7e ff 00 L90 cmp byte ptr -1H[bp],00H
- 0ca2 76 14 jbe L91
- 0ca4 c4 7e 06 les di,dword ptr +6H[bp]
- 0ca7 06 push es
- 0ca8 57 push di
- 0ca9 b8 01 00 mov ax,0001H
- 0cac 50 push ax
- 0cad 8a 46 ff mov al,-1H[bp]
- 0cb0 30 e4 xor ah,ah
- 0cb2 50 push ax
- 0cb3 9a 00 00 00 00 call far SYSTEM_015
- 0cb8 89 ec L91 mov sp,bp
- 0cba 5d pop bp
- 0cbb ca 04 00 retf 0004H
- 0cbe 01 20 L92 add [bx+si],sp
- 0cc0 SPACE:
- 0cc0 55 GENERAL_014 push bp
- 0cc1 89 e5 mov bp,sp
- 0cc3 b8 53 01 mov ax,0153H
- 0cc6 9a 00 00 00 00 call far SYSTEM_034
- 0ccb 81 ec 53 01 sub sp,0153H
- 0ccf c6 46 ae 00 mov byte ptr -52H[bp],00H
- 0cd3 8a 46 06 mov al,+6H[bp]
- 0cd6 88 46 ad mov -53H[bp],al
- 0cd9 b0 01 mov al,01H
- 0cdb 3a 46 ad cmp al,-53H[bp]
- 0cde 77 38 ja L95
- 0ce0 88 46 ff mov -1H[bp],al
- 0ce3 eb 03 jmp L94
- 0ce5 fe 46 ff L93 inc byte ptr -1H[bp]
- 0ce8 8d be ad fe L94 lea di,-153H[bp]
- 0cec 16 push ss
- 0ced 57 push di
- 0cee 8d 7e ae lea di,-52H[bp]
- 0cf1 16 push ss
- 0cf2 57 push di
- 0cf3 9a 00 00 00 00 call far SYSTEM_00B
- 0cf8 bf 00 00 mov di,offset L92
- 0cfb 0e push cs
- 0cfc 57 push di
- 0cfd 9a 00 00 00 00 call far SYSTEM_00F
- 0d02 8d 7e ae lea di,-52H[bp]
- 0d05 16 push ss
- 0d06 57 push di
- 0d07 b8 50 00 mov ax,0050H
- 0d0a 50 push ax
- 0d0b 9a 00 00 00 00 call far SYSTEM_00C
- 0d10 8a 46 ff mov al,-1H[bp]
- 0d13 3a 46 ad cmp al,-53H[bp]
- 0d16 75 cd jne L93
- 0d18 8d 7e ae L95 lea di,-52H[bp]
- 0d1b 16 push ss
- 0d1c 57 push di
- 0d1d c4 7e 08 les di,dword ptr +8H[bp]
- 0d20 06 push es
- 0d21 57 push di
- 0d22 b8 50 00 mov ax,0050H
- 0d25 50 push ax
- 0d26 9a 00 00 00 00 call far SYSTEM_00C
- 0d2b 89 ec mov sp,bp
- 0d2d 5d pop bp
- 0d2e ca 02 00 retf 0002H
- 0d31 JULIAN:
- 0d31 55 GENERAL_015 push bp
- 0d32 89 e5 mov bp,sp
- 0d34 b8 0c 00 mov ax,000cH
- 0d37 9a 00 00 00 00 call far SYSTEM_034
- 0d3c 83 ec 0c sub sp,000cH
- 0d3f 83 7e 0a 00 cmp word ptr +0aH[bp],0000H
- 0d43 7c 18 jl L96
- 0d45 80 7e 08 01 cmp byte ptr +8H[bp],01H
- 0d49 72 12 jb L96
- 0d4b 80 7e 08 0c cmp byte ptr +8H[bp],0cH
- 0d4f 77 0c ja L96
- 0d51 80 7e 06 01 cmp byte ptr +6H[bp],01H
- 0d55 72 06 jb L96
- 0d57 80 7e 06 1f cmp byte ptr +6H[bp],1fH
- 0d5b 76 11 jbe L97
- 0d5d c7 46 fa 81 00 L96 mov word ptr -6H[bp],0081H
- 0d62 c7 46 fc 00 00 mov word ptr -4H[bp],0000H
- 0d67 c7 46 fe 00 80 mov word ptr -2H[bp],8000H
- 0d6c eb 0f jmp L98
- 0d6e 83 7e 0a 64 L97 cmp word ptr +0aH[bp],0064H
- 0d72 7d 09 jge L98
- 0d74 8b 46 0a mov ax,+0aH[bp]
- 0d77 05 6c 07 add ax,076cH
- 0d7a 89 46 0a mov +0aH[bp],ax
- 0d7d 8a 46 08 L98 mov al,+8H[bp]
- 0d80 30 e4 xor ah,ah
- 0d82 31 d2 xor dx,dx
- 0d84 9a 00 00 00 00 call far SYSTEM_073
- 0d89 b9 84 00 mov cx,0084H
- 0d8c 31 f6 xor si,si
- 0d8e bf 00 60 mov di,6000H
- 0d91 9a 00 00 00 00 call far SYSTEM_06F
- 0d96 b9 84 00 mov cx,0084H
- 0d99 31 f6 xor si,si
- 0d9b bf 00 40 mov di,4000H
- 0d9e 9a 00 00 00 00 call far SYSTEM_071
- 0da3 9a 00 00 00 00 call far SYSTEM_07B
- 0da8 89 46 f4 mov -0cH[bp],ax
- 0dab 89 5e f6 mov -0aH[bp],bx
- 0dae 89 56 f8 mov -8H[bp],dx
- 0db1 8b 46 0a mov ax,+0aH[bp]
- 0db4 99 cwd
- 0db5 9a 00 00 00 00 call far SYSTEM_073
- 0dba b9 8d 00 mov cx,008dH
- 0dbd 31 f6 xor si,si
- 0dbf bf 20 19 mov di,1920H
- 0dc2 9a 00 00 00 00 call far SYSTEM_06E
- 0dc7 8b 4e f4 mov cx,-0cH[bp]
- 0dca 8b 76 f6 mov si,-0aH[bp]
- 0dcd 8b 7e f8 mov di,-8H[bp]
- 0dd0 9a 00 00 00 00 call far SYSTEM_06E
- 0dd5 b9 87 00 mov cx,0087H
- 0dd8 31 f6 xor si,si
- 0dda bf 00 48 mov di,4800H
- 0ddd 9a 00 00 00 00 call far SYSTEM_071
- 0de2 9a 00 00 00 00 call far SYSTEM_07B
- 0de7 b9 82 00 mov cx,0082H
- 0dea 31 f6 xor si,si
- 0dec bf 00 40 mov di,4000H
- 0def 9a 00 00 00 00 call far SYSTEM_070
- 0df4 b9 83 00 mov cx,0083H
- 0df7 31 f6 xor si,si
- 0df9 31 ff xor di,di
- 0dfb 9a 00 00 00 00 call far SYSTEM_071
- 0e00 9a 00 00 00 00 call far SYSTEM_07B
- 0e05 52 push dx
- 0e06 53 push bx
- 0e07 50 push ax
- 0e08 8b 46 f4 mov ax,-0cH[bp]
- 0e0b 8b 5e f6 mov bx,-0aH[bp]
- 0e0e 8b 56 f8 mov dx,-8H[bp]
- 0e11 b9 84 00 mov cx,0084H
- 0e14 31 f6 xor si,si
- 0e16 bf 00 40 mov di,4000H
- 0e19 9a 00 00 00 00 call far SYSTEM_070
- 0e1e 52 push dx
- 0e1f 53 push bx
- 0e20 50 push ax
- 0e21 8a 46 08 mov al,+8H[bp]
- 0e24 30 e4 xor ah,ah
- 0e26 31 d2 xor dx,dx
- 0e28 9a 00 00 00 00 call far SYSTEM_073
- 0e2d b9 82 00 mov cx,0082H
- 0e30 31 f6 xor si,si
- 0e32 31 ff xor di,di
- 0e34 9a 00 00 00 00 call far SYSTEM_06F
- 0e39 59 pop cx
- 0e3a 5e pop si
- 0e3b 5f pop di
- 0e3c 9a 00 00 00 00 call far SYSTEM_06F
- 0e41 b9 89 00 mov cx,0089H
- 0e44 31 f6 xor si,si
- 0e46 bf 80 37 mov di,3780H
- 0e49 9a 00 00 00 00 call far SYSTEM_070
- 0e4e b9 84 00 mov cx,0084H
- 0e51 31 f6 xor si,si
- 0e53 bf 00 40 mov di,4000H
- 0e56 9a 00 00 00 00 call far SYSTEM_071
- 0e5b 9a 00 00 00 00 call far SYSTEM_07B
- 0e60 52 push dx
- 0e61 53 push bx
- 0e62 50 push ax
- 0e63 8b 46 0a mov ax,+0aH[bp]
- 0e66 99 cwd
- 0e67 9a 00 00 00 00 call far SYSTEM_073
- 0e6c b9 8d 00 mov cx,008dH
- 0e6f 31 f6 xor si,si
- 0e71 bf 00 16 mov di,1600H
- 0e74 9a 00 00 00 00 call far SYSTEM_06E
- 0e79 8b 4e f4 mov cx,-0cH[bp]
- 0e7c 8b 76 f6 mov si,-0aH[bp]
- 0e7f 8b 7e f8 mov di,-8H[bp]
- 0e82 9a 00 00 00 00 call far SYSTEM_06E
- 0e87 b9 8b 00 mov cx,008bH
- 0e8a 31 f6 xor si,si
- 0e8c bf a0 36 mov di,36a0H
- 0e8f 9a 00 00 00 00 call far SYSTEM_070
- 0e94 b9 83 00 mov cx,0083H
- 0e97 31 f6 xor si,si
- 0e99 31 ff xor di,di
- 0e9b 9a 00 00 00 00 call far SYSTEM_071
- 0ea0 9a 00 00 00 00 call far SYSTEM_07B
- 0ea5 52 push dx
- 0ea6 53 push bx
- 0ea7 50 push ax
- 0ea8 8a 46 06 mov al,+6H[bp]
- 0eab 30 e4 xor ah,ah
- 0ead 31 d2 xor dx,dx
- 0eaf 9a 00 00 00 00 call far SYSTEM_073
- 0eb4 b9 8f 00 mov cx,008fH
- 0eb7 31 f6 xor si,si
- 0eb9 bf 96 7a mov di,7a96H
- 0ebc 9a 00 00 00 00 call far SYSTEM_06F
- 0ec1 59 pop cx
- 0ec2 5e pop si
- 0ec3 5f pop di
- 0ec4 9a 00 00 00 00 call far SYSTEM_06E
- 0ec9 59 pop cx
- 0eca 5e pop si
- 0ecb 5f pop di
- 0ecc 9a 00 00 00 00 call far SYSTEM_06E
- 0ed1 59 pop cx
- 0ed2 5e pop si
- 0ed3 5f pop di
- 0ed4 9a 00 00 00 00 call far SYSTEM_06F
- 0ed9 89 46 fa mov -6H[bp],ax
- 0edc 89 5e fc mov -4H[bp],bx
- 0edf 89 56 fe mov -2H[bp],dx
- 0ee2 8b 46 fa mov ax,-6H[bp]
- 0ee5 8b 5e fc mov bx,-4H[bp]
- 0ee8 8b 56 fe mov dx,-2H[bp]
- 0eeb 89 ec mov sp,bp
- 0eed 5d pop bp
- 0eee ca 06 00 retf 0006H
- 0ef1 REMOVESPACES:
- 0ef1 55 GENERAL_016 push bp
- 0ef2 89 e5 mov bp,sp
- 0ef4 b8 01 00 mov ax,0001H
- 0ef7 9a 00 00 00 00 call far SYSTEM_034
- 0efc 83 ec 01 sub sp,0001H
- 0eff c6 46 ff 01 mov byte ptr -1H[bp],01H
- 0f03 8a 46 ff L99 mov al,-1H[bp]
- 0f06 c4 7e 06 les di,dword ptr +6H[bp]
- 0f09 26 3a 05 cmp al,es:[di]
- 0f0c 77 31 ja L102
- 0f0e 8a 46 ff mov al,-1H[bp]
- 0f11 30 e4 xor ah,ah
- 0f13 c4 7e 06 les di,dword ptr +6H[bp]
- 0f16 03 f8 add di,ax
- 0f18 26 80 3d 20 cmp byte ptr es:[di],20H
- 0f1c 75 16 jne L100
- 0f1e c4 7e 06 les di,dword ptr +6H[bp]
- 0f21 06 push es
- 0f22 57 push di
- 0f23 8a 46 ff mov al,-1H[bp]
- 0f26 30 e4 xor ah,ah
- 0f28 50 push ax
- 0f29 b8 01 00 mov ax,0001H
- 0f2c 50 push ax
- 0f2d 9a 00 00 00 00 call far SYSTEM_015
- 0f32 eb 09 jmp L101
- 0f34 8a 46 ff L100 mov al,-1H[bp]
- 0f37 30 e4 xor ah,ah
- 0f39 40 inc ax
- 0f3a 88 46 ff mov -1H[bp],al
- 0f3d eb c4 L101 jmp L99
- 0f3f 89 ec L102 mov sp,bp
- 0f41 5d pop bp
- 0f42 ca 04 00 retf 0004H
- 0f45 FUNCKEY:
- 0f45 55 GENERAL_017 push bp
- 0f46 89 e5 mov bp,sp
- 0f48 b8 01 00 mov ax,0001H
- 0f4b 9a 00 00 00 00 call far SYSTEM_034
- 0f50 83 ec 01 sub sp,0001H
- 0f53 c4 7e 06 les di,dword ptr +6H[bp]
- 0f56 26 80 3d 00 cmp byte ptr es:[di],00H
- 0f5a 75 11 jne L103
- 0f5c 9a 00 00 00 00 call far CRT_003
- 0f61 c4 7e 06 les di,dword ptr +6H[bp]
- 0f64 26 88 05 mov es:[di],al
- 0f67 c6 46 ff 01 mov byte ptr -1H[bp],01H
- 0f6b eb 04 jmp L104
- 0f6d c6 46 ff 00 L103 mov byte ptr -1H[bp],00H
- 0f71 8a 46 ff L104 mov al,-1H[bp]
- 0f74 89 ec mov sp,bp
- 0f76 5d pop bp
- 0f77 ca 04 00 retf 0004H
- 0f7a PADSPACES:
- 0f7a 55 GENERAL_018 push bp
- 0f7b 89 e5 mov bp,sp
- 0f7d b8 01 02 mov ax,0201H
- 0f80 9a 00 00 00 00 call far SYSTEM_034
- 0f85 81 ec 01 02 sub sp,0201H
- 0f89 c4 7e 08 les di,dword ptr +8H[bp]
- 0f8c 26 8a 05 mov al,es:[di]
- 0f8f 30 e4 xor ah,ah
- 0f91 8b d0 mov dx,ax
- 0f93 8b 46 06 mov ax,+6H[bp]
- 0f96 2b c2 sub ax,dx
- 0f98 88 46 ff mov -1H[bp],al
- 0f9b 80 7e ff 00 cmp byte ptr -1H[bp],00H
- 0f9f 76 31 jbe L105
- 0fa1 8d be ff fd lea di,-201H[bp]
- 0fa5 16 push ss
- 0fa6 57 push di
- 0fa7 c4 7e 08 les di,dword ptr +8H[bp]
- 0faa 06 push es
- 0fab 57 push di
- 0fac 9a 00 00 00 00 call far SYSTEM_00B
- 0fb1 8d be ff fe lea di,-101H[bp]
- 0fb5 16 push ss
- 0fb6 57 push di
- 0fb7 8a 46 ff mov al,-1H[bp]
- 0fba 50 push ax
- 0fbb 0e push cs
- 0fbc e8 00 00 call GENERAL_014
- 0fbf 9a 00 00 00 00 call far SYSTEM_00F
- 0fc4 c4 7e 08 les di,dword ptr +8H[bp]
- 0fc7 06 push es
- 0fc8 57 push di
- 0fc9 b8 50 00 mov ax,0050H
- 0fcc 50 push ax
- 0fcd 9a 00 00 00 00 call far SYSTEM_00C
- 0fd2 89 ec L105 mov sp,bp
- 0fd4 5d pop bp
- 0fd5 ca 06 00 retf 0006H
- 0fd8 VALIDDATE:
- 0fd8 55 GENERAL_019 push bp
- 0fd9 89 e5 mov bp,sp
- 0fdb b8 1b 02 mov ax,021bH
- 0fde 9a 00 00 00 00 call far SYSTEM_034
- 0fe3 81 ec 1b 02 sub sp,021bH
- 0fe7 c4 7e 06 les di,dword ptr +6H[bp]
- 0fea 06 push es
- 0feb 57 push di
- 0fec 8d 7e f6 lea di,-0aH[bp]
- 0fef 16 push ss
- 0ff0 57 push di
- 0ff1 b8 08 00 mov ax,0008H
- 0ff4 50 push ax
- 0ff5 9a 00 00 00 00 call far SYSTEM_00C
- 0ffa 80 7e f9 2f cmp byte ptr -7H[bp],2fH
- 0ffe 75 06 jne L106
- 1000 80 7e fc 2f cmp byte ptr -4H[bp],2fH
- 1004 74 07 je L107
- 1006 c6 46 ff 00 L106 mov byte ptr -1H[bp],00H
- 100a e9 8b 01 jmp L116
- 100d 8d be e5 fe L107 lea di,-11bH[bp]
- 1011 16 push ss
- 1012 57 push di
- 1013 8a 46 f7 mov al,-9H[bp]
- 1016 50 push ax
- 1017 9a 00 00 00 00 call far SYSTEM_012
- 101c 8d be e5 fd lea di,-21bH[bp]
- 1020 16 push ss
- 1021 57 push di
- 1022 8a 46 f8 mov al,-8H[bp]
- 1025 50 push ax
- 1026 9a 00 00 00 00 call far SYSTEM_012
- 102b 9a 00 00 00 00 call far SYSTEM_00F
- 1030 8d 7e e7 lea di,-19H[bp]
- 1033 16 push ss
- 1034 57 push di
- 1035 b8 02 00 mov ax,0002H
- 1038 50 push ax
- 1039 9a 00 00 00 00 call far SYSTEM_00C
- 103e 8d be e5 fe lea di,-11bH[bp]
- 1042 16 push ss
- 1043 57 push di
- 1044 8a 46 fa mov al,-6H[bp]
- 1047 50 push ax
- 1048 9a 00 00 00 00 call far SYSTEM_012
- 104d 8d be e5 fd lea di,-21bH[bp]
- 1051 16 push ss
- 1052 57 push di
- 1053 8a 46 fb mov al,-5H[bp]
- 1056 50 push ax
- 1057 9a 00 00 00 00 call far SYSTEM_012
- 105c 9a 00 00 00 00 call far SYSTEM_00F
- 1061 8d 7e ea lea di,-16H[bp]
- 1064 16 push ss
- 1065 57 push di
- 1066 b8 02 00 mov ax,0002H
- 1069 50 push ax
- 106a 9a 00 00 00 00 call far SYSTEM_00C
- 106f 8d be e5 fe lea di,-11bH[bp]
- 1073 16 push ss
- 1074 57 push di
- 1075 8a 46 fd mov al,-3H[bp]
- 1078 50 push ax
- 1079 9a 00 00 00 00 call far SYSTEM_012
- 107e 8d be e5 fd lea di,-21bH[bp]
- 1082 16 push ss
- 1083 57 push di
- 1084 8a 46 fe mov al,-2H[bp]
- 1087 50 push ax
- 1088 9a 00 00 00 00 call far SYSTEM_012
- 108d 9a 00 00 00 00 call far SYSTEM_00F
- 1092 8d 7e ed lea di,-13H[bp]
- 1095 16 push ss
- 1096 57 push di
- 1097 b8 02 00 mov ax,0002H
- 109a 50 push ax
- 109b 9a 00 00 00 00 call far SYSTEM_00C
- 10a0 8d 7e e7 lea di,-19H[bp]
- 10a3 16 push ss
- 10a4 57 push di
- 10a5 8d 7e e5 lea di,-1bH[bp]
- 10a8 16 push ss
- 10a9 57 push di
- 10aa 9a 00 00 00 00 call far SYSTEM_062
- 10af 89 46 f0 mov -10H[bp],ax
- 10b2 83 7e e5 00 cmp word ptr -1bH[bp],0000H
- 10b6 74 07 je L108
- 10b8 c6 46 ff 00 mov byte ptr -1H[bp],00H
- 10bc e9 d9 00 jmp L116
- 10bf 8d 7e ea L108 lea di,-16H[bp]
- 10c2 16 push ss
- 10c3 57 push di
- 10c4 8d 7e e5 lea di,-1bH[bp]
- 10c7 16 push ss
- 10c8 57 push di
- 10c9 9a 00 00 00 00 call far SYSTEM_062
- 10ce 89 46 f2 mov -0eH[bp],ax
- 10d1 83 7e e5 00 cmp word ptr -1bH[bp],0000H
- 10d5 74 07 je L109
- 10d7 c6 46 ff 00 mov byte ptr -1H[bp],00H
- 10db e9 ba 00 jmp L116
- 10de 8d 7e ed L109 lea di,-13H[bp]
- 10e1 16 push ss
- 10e2 57 push di
- 10e3 8d 7e e5 lea di,-1bH[bp]
- 10e6 16 push ss
- 10e7 57 push di
- 10e8 9a 00 00 00 00 call far SYSTEM_062
- 10ed 89 46 f4 mov -0cH[bp],ax
- 10f0 83 7e e5 00 cmp word ptr -1bH[bp],0000H
- 10f4 74 07 je L110
- 10f6 c6 46 ff 00 mov byte ptr -1H[bp],00H
- 10fa e9 9b 00 jmp L116
- 10fd 83 7e f0 02 L110 cmp word ptr -10H[bp],0002H
- 1101 75 20 jne L111
- 1103 83 7e f2 1d cmp word ptr -0eH[bp],001dH
- 1107 75 1a jne L111
- 1109 8b 46 f4 mov ax,-0cH[bp]
- 110c 99 cwd
- 110d b9 04 00 mov cx,0004H
- 1110 f7 f9 idiv cx
- 1112 92 xchg ax,dx
- 1113 09 c0 or ax,ax
- 1115 74 0c je L111
- 1117 83 7e f4 00 cmp word ptr -0cH[bp],0000H
- 111b 74 06 je L111
- 111d c6 46 ff 00 mov byte ptr -1H[bp],00H
- 1121 eb 75 jmp L116
- 1123 83 7e f0 01 L111 cmp word ptr -10H[bp],0001H
- 1127 7c 12 jl L112
- 1129 83 7e f0 0c cmp word ptr -10H[bp],000cH
- 112d 7f 0c jg L112
- 112f 83 7e f2 1f cmp word ptr -0eH[bp],001fH
- 1133 7f 06 jg L112
- 1135 83 7e f2 01 cmp word ptr -0eH[bp],0001H
- 1139 7d 06 jge L113
- 113b c6 46 ff 00 L112 mov byte ptr -1H[bp],00H
- 113f eb 57 jmp L116
- 1141 83 7e f2 1d L113 cmp word ptr -0eH[bp],001dH
- 1145 7e 0c jle L114
- 1147 83 7e f0 02 cmp word ptr -10H[bp],0002H
- 114b 75 06 jne L114
- 114d c6 46 ff 00 mov byte ptr -1H[bp],00H
- 1151 eb 45 jmp L116
- 1153 83 7e f2 1f L114 cmp word ptr -0eH[bp],001fH
- 1157 75 3b jne L115
- 1159 8a 46 f0 mov al,-10H[bp]
- 115c 50 push ax
- 115d 8d 7e c5 lea di,-3bH[bp]
- 1160 16 push ss
- 1161 57 push di
- 1162 9a 00 00 00 00 call far SYSTEM_028
- 1167 b0 04 mov al,04H
- 1169 50 push ax
- 116a 9a 00 00 00 00 call far SYSTEM_029
- 116f b0 06 mov al,06H
- 1171 50 push ax
- 1172 9a 00 00 00 00 call far SYSTEM_029
- 1177 b0 09 mov al,09H
- 1179 50 push ax
- 117a 9a 00 00 00 00 call far SYSTEM_029
- 117f b0 0b mov al,0bH
- 1181 50 push ax
- 1182 9a 00 00 00 00 call far SYSTEM_029
- 1187 9a 00 00 00 00 call far SYSTEM_018
- 118c 74 06 je L115
- 118e c6 46 ff 00 mov byte ptr -1H[bp],00H
- 1192 eb 04 jmp L116
- 1194 c6 46 ff 01 L115 mov byte ptr -1H[bp],01H
- 1198 8a 46 ff L116 mov al,-1H[bp]
- 119b 89 ec mov sp,bp
- 119d 5d pop bp
- 119e ca 04 00 retf 0004H
- 11a1 VALIDNUMBER:
- 11a1 55 GENERAL_01A push bp
- 11a2 89 e5 mov bp,sp
- 11a4 b8 5a 00 mov ax,005aH
- 11a7 9a 00 00 00 00 call far SYSTEM_034
- 11ac 83 ec 5a sub sp,005aH
- 11af c4 7e 06 les di,dword ptr +6H[bp]
- 11b2 06 push es
- 11b3 57 push di
- 11b4 8d 7e ae lea di,-52H[bp]
- 11b7 16 push ss
- 11b8 57 push di
- 11b9 b8 50 00 mov ax,0050H
- 11bc 50 push ax
- 11bd 9a 00 00 00 00 call far SYSTEM_00C
- 11c2 8d 7e ae lea di,-52H[bp]
- 11c5 16 push ss
- 11c6 57 push di
- 11c7 8d 7e a6 lea di,-5aH[bp]
- 11ca 16 push ss
- 11cb 57 push di
- 11cc 9a 00 00 00 00 call far SYSTEM_07A
- 11d1 89 46 a8 mov -58H[bp],ax
- 11d4 89 5e aa mov -56H[bp],bx
- 11d7 89 56 ac mov -54H[bp],dx
- 11da 83 7e a6 00 cmp word ptr -5aH[bp],0000H
- 11de 74 06 je L117
- 11e0 c6 46 ff 00 mov byte ptr -1H[bp],00H
- 11e4 eb 04 jmp L118
- 11e6 c6 46 ff 01 L117 mov byte ptr -1H[bp],01H
- 11ea 8a 46 ff L118 mov al,-1H[bp]
- 11ed 89 ec mov sp,bp
- 11ef 5d pop bp
- 11f0 ca 04 00 retf 0004H
-
- No disassembly errors
-
- ------------------------------------------------------------
-
- Segment: _DATA WORD 000000bf bytes
- 0000 01 GENERAL_DATA - .
- 0001 06 53 75 6e 64 61 79 00 L119 - .Sunday.
- 0009 00 00 06 4d 6f 6e 64 61 - ...Monda
- 0011 79 00 00 00 07 54 75 65 - y....Tue
- 0019 73 64 61 79 00 00 09 57 - sday...W
- 0021 65 64 6e 65 73 64 61 79 - ednesday
- 0029 08 54 68 75 72 73 64 61 - .Thursda
- 0031 79 00 06 46 72 69 64 61 - y..Frida
- 0039 79 00 00 00 - y...
- 003d 08 53 61 74 75 72 64 61 L120 - .Saturda
- 0045 79 00 07 4a 61 6e 75 61 - y..Janua
- 004d 72 79 00 00 08 46 65 62 - ry...Feb
- 0055 72 75 61 72 79 00 05 4d - ruary..M
- 005d 61 72 63 68 00 00 00 00 - arch....
- 0065 05 41 70 72 69 6c 00 00 - .April..
- 006d 00 00 03 4d 61 79 00 00 - ...May..
- 0075 00 00 00 00 04 4a 75 6e - .....Jun
- 007d 65 00 00 00 00 00 04 4a - e......J
- 0085 75 6c 79 00 00 00 00 00 - uly.....
- 008d 06 41 75 67 75 73 74 00 - .August.
- 0095 00 00 09 53 65 70 74 65 - ...Septe
- 009d 6d 62 65 72 07 4f 63 74 - mber.Oct
- 00a5 6f 62 65 72 00 00 08 4e - ober...N
- 00ad 6f 76 65 6d 62 65 72 00 - ovember.
- 00b5 08 44 65 63 65 6d 62 65 - .Decembe
- 00bd 72 00 - r.
-
- No disassembly errors
-
- ------------------------------------------------------------
-