Power-Programmierung

home *** CD-ROM | disk | FTP | other *** search

/ Power-Programmierung / CD1.mdf / pascal / library / dos / multtsk / tasks / tasks.dis < prev next >

Wrap

Text File | 1994-06-19 | 26.3 KB | 468 lines

Module: TASKS.PAS Group: 'DGROUP' _DATA,_BSS Segment: TASKS_TEXT PARA 0000049d bytes 0000 ADD_TASK: 0000 55 TASKS_001 push bp 0001 89 e5 mov bp,sp 0003 b8 05 00 mov ax,0005H 0006 9a 00 00 00 00 call far SYSTEM_034 000b 83 ec 05 sub sp,0005H 000e 80 3e 00 00 64 cmp byte ptr L47,64H 0013 76 06 jbe L1 0015 c6 46 ff 01 mov byte ptr -1H[bp],01H 0019 eb 61 jmp L2 001b a0 00 00 L1 mov al,L47 001e 30 e4 xor ah,ah 0020 8b f8 mov di,ax 0022 d1 e7 shl di,1 0024 d1 e7 shl di,1 0026 81 c7 00 00 add di,offset TASKS_BSS-4H 002a 1e push ds 002b 57 push di 002c b8 08 00 mov ax,0008H 002f 50 push ax 0030 9a 00 00 00 00 call far SYSTEM_022 0035 a0 00 00 mov al,L47 0038 30 e4 xor ah,ah 003a 8b f8 mov di,ax 003c d1 e7 shl di,1 003e d1 e7 shl di,1 0040 c4 bd 00 00 les di,dword ptr TASKS_BSS-4H[di] 0044 89 7e fb mov -5H[bp],di 0047 8c 46 fd mov -3H[bp],es 004a c4 46 08 les ax,dword ptr +8H[bp] 004d 8c c2 mov dx,es 004f c4 7e fb les di,dword ptr -5H[bp] 0052 26 89 05 mov es:[di],ax 0055 26 89 55 02 mov es:+2H[di],dx 0059 c4 46 0c les ax,dword ptr +0cH[bp] 005c 8c c2 mov dx,es 005e c4 7e fb les di,dword ptr -5H[bp] 0061 26 89 45 04 mov es:+4H[di],ax 0065 26 89 55 06 mov es:+6H[di],dx 0069 c6 46 ff 00 mov byte ptr -1H[bp],00H 006d a0 00 00 mov al,L47 0070 88 46 06 mov +6H[bp],al 0073 a0 00 00 mov al,L47 0076 30 e4 xor ah,ah 0078 40 inc ax 0079 a2 00 00 mov L47,al 007c 8a 46 ff L2 mov al,-1H[bp] 007f 89 ec mov sp,bp 0081 5d pop bp 0082 ca 0a 00 retf 000aH 0085 ADD_TASK_NUMBER: 0085 55 TASKS_002 push bp 0086 89 e5 mov bp,sp 0088 b8 05 00 mov ax,0005H 008b 9a 00 00 00 00 call far SYSTEM_034 0090 83 ec 05 sub sp,0005H 0093 80 7e 0e 64 cmp byte ptr +0eH[bp],64H 0097 77 24 ja L3 0099 80 7e 0e 01 cmp byte ptr +0eH[bp],01H 009d 72 1e jb L3 009f 8a 46 0e mov al,+0eH[bp] 00a2 3a 06 00 00 cmp al,L47 00a6 73 15 jae L3 00a8 8a 46 0e mov al,+0eH[bp] 00ab 30 e4 xor ah,ah 00ad 8b f8 mov di,ax 00af d1 e7 shl di,1 00b1 d1 e7 shl di,1 00b3 8b 85 00 00 mov ax,TASKS_BSS-4H[di] 00b7 0b 85 00 00 or ax,TASKS_BSS-2H[di] 00bb 74 06 je L4 00bd c6 46 ff 03 L3 mov byte ptr -1H[bp],03H 00c1 eb 52 jmp L5 00c3 8a 46 0e L4 mov al,+0eH[bp] 00c6 30 e4 xor ah,ah 00c8 8b f8 mov di,ax 00ca d1 e7 shl di,1 00cc d1 e7 shl di,1 00ce 81 c7 00 00 add di,offset TASKS_BSS-4H 00d2 1e push ds 00d3 57 push di 00d4 b8 08 00 mov ax,0008H 00d7 50 push ax 00d8 9a 00 00 00 00 call far SYSTEM_022 00dd 8a 46 0e mov al,+0eH[bp] 00e0 30 e4 xor ah,ah 00e2 8b f8 mov di,ax 00e4 d1 e7 shl di,1 00e6 d1 e7 shl di,1 00e8 c4 bd 00 00 les di,dword ptr TASKS_BSS-4H[di] 00ec 89 7e fb mov -5H[bp],di 00ef 8c 46 fd mov -3H[bp],es 00f2 c4 46 06 les ax,dword ptr +6H[bp] 00f5 8c c2 mov dx,es 00f7 c4 7e fb les di,dword ptr -5H[bp] 00fa 26 89 05 mov es:[di],ax 00fd 26 89 55 02 mov es:+2H[di],dx 0101 c4 46 0a les ax,dword ptr +0aH[bp] 0104 8c c2 mov dx,es 0106 c4 7e fb les di,dword ptr -5H[bp] 0109 26 89 45 04 mov es:+4H[di],ax 010d 26 89 55 06 mov es:+6H[di],dx 0111 c6 46 ff 00 mov byte ptr -1H[bp],00H 0115 8a 46 ff L5 mov al,-1H[bp] 0118 89 ec mov sp,bp 011a 5d pop bp 011b ca 0a 00 retf 000aH 011e SPACE_LEFT: 011e 55 TASKS_003 push bp 011f 89 e5 mov bp,sp 0121 b8 01 00 mov ax,0001H 0124 9a 00 00 00 00 call far SYSTEM_034 0129 83 ec 01 sub sp,0001H 012c a0 00 00 mov al,L47 012f 30 e4 xor ah,ah 0131 8b d0 mov dx,ax 0133 b8 64 00 mov ax,0064H 0136 2b c2 sub ax,dx 0138 40 inc ax 0139 88 46 ff mov -1H[bp],al 013c 8a 46 ff mov al,-1H[bp] 013f 89 ec mov sp,bp 0141 5d pop bp 0142 cb retf 0143 FIRST_SPACE: 0143 55 TASKS_004 push bp 0144 89 e5 mov bp,sp 0146 b8 02 00 mov ax,0002H 0149 9a 00 00 00 00 call far SYSTEM_034 014e 83 ec 02 sub sp,0002H 0151 80 3e 00 00 64 cmp byte ptr L47,64H 0156 76 06 jbe L6 0158 c6 46 ff 00 mov byte ptr -1H[bp],00H 015c eb 3b jmp L10 015e a0 00 00 L6 mov al,L47 0161 88 46 fe mov -2H[bp],al 0164 b0 01 mov al,01H 0166 3a 46 fe cmp al,-2H[bp] 0169 77 2e ja L10 016b a2 00 00 mov L51,al 016e eb 04 jmp L8 0170 fe 06 00 00 L7 inc byte ptr L51 0174 a0 00 00 L8 mov al,L51 0177 30 e4 xor ah,ah 0179 8b f8 mov di,ax 017b d1 e7 shl di,1 017d d1 e7 shl di,1 017f 8b 85 00 00 mov ax,TASKS_BSS-4H[di] 0183 0b 85 00 00 or ax,TASKS_BSS-2H[di] 0187 75 08 jne L9 0189 a0 00 00 mov al,L51 018c 88 46 ff mov -1H[bp],al 018f eb 08 jmp L10 0191 a0 00 00 L9 mov al,L51 0194 3a 46 fe cmp al,-2H[bp] 0197 75 d7 jne L7 0199 8a 46 ff L10 mov al,-1H[bp] 019c 89 ec mov sp,bp 019e 5d pop bp 019f cb retf 01a0 DELETE_TASK: 01a0 55 TASKS_005 push bp 01a1 89 e5 mov bp,sp 01a3 b8 01 00 mov ax,0001H 01a6 9a 00 00 00 00 call far SYSTEM_034 01ab 83 ec 01 sub sp,0001H 01ae 83 7e 08 00 cmp word ptr +8H[bp],0000H 01b2 7c 16 jl L12 01b4 7f 06 jg L11 01b6 83 7e 06 00 cmp word ptr +6H[bp],0000H 01ba 72 0e jb L12 01bc 83 7e 08 00 L11 cmp word ptr +8H[bp],0000H 01c0 7f 08 jg L12 01c2 7c 0c jl L13 01c4 83 7e 06 64 cmp word ptr +6H[bp],0064H 01c8 76 06 jbe L13 01ca c6 46 ff 03 L12 mov byte ptr -1H[bp],03H 01ce eb 42 jmp L15 01d0 8b 7e 06 L13 mov di,+6H[bp] 01d3 d1 e7 shl di,1 01d5 d1 e7 shl di,1 01d7 8b 85 00 00 mov ax,TASKS_BSS-4H[di] 01db 0b 85 00 00 or ax,TASKS_BSS-2H[di] 01df 75 06 jne L14 01e1 c6 46 ff 04 mov byte ptr -1H[bp],04H 01e5 eb 2b jmp L15 01e7 8b 7e 06 L14 mov di,+6H[bp] 01ea d1 e7 shl di,1 01ec d1 e7 shl di,1 01ee 81 c7 00 00 add di,offset TASKS_BSS-4H 01f2 1e push ds 01f3 57 push di 01f4 b8 08 00 mov ax,0008H 01f7 50 push ax 01f8 9a 00 00 00 00 call far SYSTEM_023 01fd 8b 7e 06 mov di,+6H[bp] 0200 d1 e7 shl di,1 0202 d1 e7 shl di,1 0204 31 c0 xor ax,ax 0206 89 85 00 00 mov TASKS_BSS-4H[di],ax 020a 89 85 00 00 mov TASKS_BSS-2H[di],ax 020e c6 46 ff 00 mov byte ptr -1H[bp],00H 0212 8a 46 ff L15 mov al,-1H[bp] 0215 89 ec mov sp,bp 0217 5d pop bp 0218 ca 04 00 retf 0004H 021b CHANGE_SCHEDULE: 021b 55 TASKS_006 push bp 021c 89 e5 mov bp,sp 021e b8 05 00 mov ax,0005H 0221 9a 00 00 00 00 call far SYSTEM_034 0226 83 ec 05 sub sp,0005H 0229 80 7e 0a 00 cmp byte ptr +0aH[bp],00H 022d 72 0f jb L16 022f 80 7e 0a 64 cmp byte ptr +0aH[bp],64H 0233 77 09 ja L16 0235 8a 46 0a mov al,+0aH[bp] 0238 3a 06 00 00 cmp al,L47 023c 72 06 jb L17 023e c6 46 ff 03 L16 mov byte ptr -1H[bp],03H 0242 eb 44 jmp L19 0244 8a 46 0a L17 mov al,+0aH[bp] 0247 30 e4 xor ah,ah 0249 8b f8 mov di,ax 024b d1 e7 shl di,1 024d d1 e7 shl di,1 024f 8b 85 00 00 mov ax,TASKS_BSS-4H[di] 0253 0b 85 00 00 or ax,TASKS_BSS-2H[di] 0257 75 06 jne L18 0259 c6 46 ff 04 mov byte ptr -1H[bp],04H 025d eb 29 jmp L19 025f 8a 46 0a L18 mov al,+0aH[bp] 0262 30 e4 xor ah,ah 0264 8b f8 mov di,ax 0266 d1 e7 shl di,1 0268 d1 e7 shl di,1 026a c4 bd 00 00 les di,dword ptr TASKS_BSS-4H[di] 026e 89 7e fb mov -5H[bp],di 0271 8c 46 fd mov -3H[bp],es 0274 c4 46 06 les ax,dword ptr +6H[bp] 0277 8c c2 mov dx,es 0279 c4 7e fb les di,dword ptr -5H[bp] 027c 26 89 45 04 mov es:+4H[di],ax 0280 26 89 55 06 mov es:+6H[di],dx 0284 c6 46 ff 00 mov byte ptr -1H[bp],00H 0288 8a 46 ff L19 mov al,-1H[bp] 028b 89 ec mov sp,bp 028d 5d pop bp 028e ca 06 00 retf 0006H 0291 SET_CRITERIA: 0291 55 TASKS_007 push bp 0292 89 e5 mov bp,sp 0294 31 c0 xor ax,ax 0296 9a 00 00 00 00 call far SYSTEM_034 029b 8a 46 06 mov al,+6H[bp] 029e a2 00 00 mov L50,al 02a1 89 ec mov sp,bp 02a3 5d pop bp 02a4 ca 02 00 retf 0002H 02a7 55 TASKS_00A push bp 02a8 89 e5 mov bp,sp 02aa b8 01 00 mov ax,0001H 02ad 9a 00 00 00 00 call far SYSTEM_034 02b2 83 ec 01 sub sp,0001H 02b5 a0 00 00 mov al,L50 02b8 3c 00 cmp al,00H 02ba 75 22 jne L22 02bc c4 46 08 les ax,dword ptr +8H[bp] 02bf 8c c2 mov dx,es 02c1 c4 4e 04 les cx,dword ptr +4H[bp] 02c4 8c c3 mov bx,es 02c6 9a 00 00 00 00 call far SYSTEM_006 02cb 89 c8 mov ax,cx 02cd 89 da mov dx,bx 02cf 09 d0 or ax,dx 02d1 74 04 je L20 02d3 b0 00 mov al,00H 02d5 eb 02 jmp L21 02d7 b0 01 L20 mov al,01H 02d9 88 46 ff L21 mov -1H[bp],al 02dc eb 5c jmp L34 02de 3c 01 L22 cmp al,01H 02e0 75 1a jne L26 02e2 c4 46 08 les ax,dword ptr +8H[bp] 02e5 8c c2 mov dx,es 02e7 3b 56 06 cmp dx,+6H[bp] 02ea 75 05 jne L23 02ec 3b 46 04 cmp ax,+4H[bp] 02ef 74 04 je L24 02f1 b0 00 L23 mov al,00H 02f3 eb 02 jmp L25 02f5 b0 01 L24 mov al,01H 02f7 88 46 ff L25 mov -1H[bp],al 02fa eb 3e jmp L34 02fc 3c 02 L26 cmp al,02H 02fe 75 1c jne L30 0300 c4 46 08 les ax,dword ptr +8H[bp] 0303 8c c2 mov dx,es 0305 3b 56 06 cmp dx,+6H[bp] 0308 7f 0b jg L28 030a 7c 05 jl L27 030c 3b 46 04 cmp ax,+4H[bp] 030f 77 04 ja L28 0311 b0 00 L27 mov al,00H 0313 eb 02 jmp L29 0315 b0 01 L28 mov al,01H 0317 88 46 ff L29 mov -1H[bp],al 031a eb 1e jmp L34 031c 3c 03 L30 cmp al,03H 031e 75 1a jne L34 0320 c4 46 08 les ax,dword ptr +8H[bp] 0323 8c c2 mov dx,es 0325 3b 56 06 cmp dx,+6H[bp] 0328 7c 0b jl L32 032a 7f 05 jg L31 032c 3b 46 04 cmp ax,+4H[bp] 032f 72 04 jb L32 0331 b0 00 L31 mov al,00H 0333 eb 02 jmp L33 0335 b0 01 L32 mov al,01H 0337 88 46 ff L33 mov -1H[bp],al 033a 8a 46 ff L34 mov al,-1H[bp] 033d 89 ec mov sp,bp 033f 5d pop bp 0340 c2 08 00 ret 0008H 0343 RUN_TASKS: 0343 55 TASKS_008 push bp 0344 89 e5 mov bp,sp 0346 b8 06 00 mov ax,0006H 0349 9a 00 00 00 00 call far SYSTEM_034 034e 83 ec 06 sub sp,0006H 0351 80 3e 00 00 01 cmp byte ptr L47,01H 0356 77 07 ja L35 0358 c6 46 ff 02 mov byte ptr -1H[bp],02H 035c e9 80 00 jmp L40 035f a0 00 00 L35 mov al,L47 0362 30 e4 xor ah,ah 0364 48 dec ax 0365 88 46 fe mov -2H[bp],al 0368 b0 01 mov al,01H 036a 3a 46 fe cmp al,-2H[bp] 036d 77 6c ja L39 036f a2 00 00 mov L51,al 0372 eb 04 jmp L37 0374 fe 06 00 00 L36 inc byte ptr L51 0378 a0 00 00 L37 mov al,L51 037b 30 e4 xor ah,ah 037d 8b f8 mov di,ax 037f d1 e7 shl di,1 0381 d1 e7 shl di,1 0383 8b 85 00 00 mov ax,TASKS_BSS-4H[di] 0387 0b 85 00 00 or ax,TASKS_BSS-2H[di] 038b 74 46 je L38 038d a0 00 00 mov al,L51 0390 30 e4 xor ah,ah 0392 8b f8 mov di,ax 0394 d1 e7 shl di,1 0396 d1 e7 shl di,1 0398 c4 bd 00 00 les di,dword ptr TASKS_BSS-4H[di] 039c 89 7e fa mov -6H[bp],di 039f 8c 46 fc mov -4H[bp],es 03a2 c4 7e fa les di,dword ptr -6H[bp] 03a5 26 c4 05 les ax,dword ptr es:[di] 03a8 8c c2 mov dx,es 03aa a3 00 00 mov L48,ax 03ad 89 16 00 00 mov L49,dx 03b1 ff 76 08 push +8H[bp] 03b4 ff 76 06 push +6H[bp] 03b7 c4 7e fa les di,dword ptr -6H[bp] 03ba 26 ff 75 06 push es:+6H[di] 03be 26 ff 75 04 push es:+4H[di] 03c2 e8 00 00 call TASKS_00A 03c5 08 c0 or al,al 03c7 74 0a je L38 03c9 ff 76 08 push +8H[bp] 03cc ff 76 06 push +6H[bp] 03cf ff 1e 00 00 call dword ptr L48 03d3 a0 00 00 L38 mov al,L51 03d6 3a 46 fe cmp al,-2H[bp] 03d9 75 99 jne L36 03db c6 46 ff 00 L39 mov byte ptr -1H[bp],00H 03df 8a 46 ff L40 mov al,-1H[bp] 03e2 89 ec mov sp,bp 03e4 5d pop bp 03e5 ca 04 00 retf 0004H 03e8 RUN_TASK_NUMBER: 03e8 55 TASKS_009 push bp 03e9 89 e5 mov bp,sp 03eb b8 05 00 mov ax,0005H 03ee 9a 00 00 00 00 call far SYSTEM_034 03f3 83 ec 05 sub sp,0005H 03f6 80 7e 06 00 cmp byte ptr +6H[bp],00H 03fa 72 0f jb L41 03fc 80 7e 06 64 cmp byte ptr +6H[bp],64H 0400 77 09 ja L41 0402 8a 46 06 mov al,+6H[bp] 0405 3a 06 00 00 cmp al,L47 0409 72 06 jb L42 040b c6 46 ff 03 L41 mov byte ptr -1H[bp],03H 040f eb 4d jmp L44 0411 8a 46 06 L42 mov al,+6H[bp] 0414 30 e4 xor ah,ah 0416 8b f8 mov di,ax 0418 d1 e7 shl di,1 041a d1 e7 shl di,1 041c 8b 85 00 00 mov ax,TASKS_BSS-4H[di] 0420 0b 85 00 00 or ax,TASKS_BSS-2H[di] 0424 75 06 jne L43 0426 c6 46 ff 04 mov byte ptr -1H[bp],04H 042a eb 32 jmp L44 042c a0 00 00 L43 mov al,L51 042f 30 e4 xor ah,ah 0431 8b f8 mov di,ax 0433 d1 e7 shl di,1 0435 d1 e7 shl di,1 0437 c4 bd 00 00 les di,dword ptr TASKS_BSS-4H[di] 043b 89 7e fb mov -5H[bp],di 043e 8c 46 fd mov -3H[bp],es 0441 c4 7e fb les di,dword ptr -5H[bp] 0444 26 c4 05 les ax,dword ptr es:[di] 0447 8c c2 mov dx,es 0449 a3 00 00 mov L48,ax 044c 89 16 00 00 mov L49,dx 0450 31 c0 xor ax,ax 0452 31 d2 xor dx,dx 0454 52 push dx 0455 50 push ax 0456 ff 1e 00 00 call dword ptr L48 045a c6 46 ff 00 mov byte ptr -1H[bp],00H 045e 8a 46 ff L44 mov al,-1H[bp] 0461 89 ec mov sp,bp 0463 5d pop bp 0464 ca 02 00 retf 0002H 0467 TASKS_000: 0467 89 e5 TASKS_INIT mov bp,sp 0469 c6 06 00 00 01 mov byte ptr L47,01H 046e c6 06 00 00 00 mov byte ptr L50,00H 0473 c6 06 00 00 01 mov byte ptr L51,01H 0478 eb 04 jmp L46 047a fe 06 00 00 L45 inc byte ptr L51 047e a0 00 00 L46 mov al,L51 0481 30 e4 xor ah,ah 0483 8b f8 mov di,ax 0485 d1 e7 shl di,1 0487 d1 e7 shl di,1 0489 31 c0 xor ax,ax 048b 89 85 00 00 mov TASKS_BSS-4H[di],ax 048f 89 85 00 00 mov TASKS_BSS-2H[di],ax 0493 80 3e 00 00 64 cmp byte ptr L51,64H 0498 75 e0 jne L45 049a 89 ec mov sp,bp 049c cb retf No disassembly errors ------------------------------------------------------------ Segment: _BSS WORD 00000197 bytes No disassembly errors ------------------------------------------------------------