home *** CD-ROM | disk | FTP | other *** search
Text File | 1994-06-19 | 62.4 KB | 1,109 lines |
-
- Module: LIBRARY1.PAS
- Group: 'DGROUP' _DATA,_BSS
-
- Segment: LIBRARY1_TEXT PARA 00000ac4 bytes
- 0000 21 4e 6f L1 and +6fH[bp],cx
- 0003 74 20 je L2
- 0005 65 6e outs dx,byte ptr gs:[si]
- 0007 6f outsw
- 0008 75 67 jne L6
- 000a 68 20 6d push 6d20H
- 000d 65 6d insw
- 000f 6f outsw
- 0010 72 79 jb L8
- 0012 20 74 6f and +6fH[si],dh
- 0015 20 72 75 and +75H[bp+si],dh
- 0018 6e outsb
- 0019 20 70 72 and +72H[bx+si],dh
- 001c 6f outsw
- 001d 67 72 61 jb L7
- 0020 6d insw
- 0021 2e 55 push bp
- 0023 89 e5 mov bp,sp
- 0025 31 c0 L2 xor ax,ax
- 0027 9a 00 00 00 00 call far SYSTEM_034
- 002c 9a 00 00 00 00 call far SYSTEM_027
- 0031 3b 56 08 cmp dx,+8H[bp]
- 0034 7c 07 jl L3
- 0036 7f 28 jg L4
- 0038 3b 46 06 cmp ax,+6H[bp]
- 003b 73 23 jae L4
- 003d bf 00 00 L3 mov di,offset SYSTEM_BSS+100H
- 0040 1e push ds
- 0041 57 push di
- 0042 bf 00 00 mov di,offset L1
- 0045 0e push cs
- 0046 57 push di
- 0047 31 c0 xor ax,ax
- 0049 50 push ax
- 004a 9a 00 00 00 00 call far SYSTEM_036
- 004f 9a 00 00 00 00 call far SYSTEM_03A
- 0054 9a 00 00 00 00 call far SYSTEM_032
- 0059 31 c0 xor ax,ax
- 005b 9a 00 00 00 00 call far SYSTEM_003
- 0060 89 ec L4 mov sp,bp
- 0062 5d pop bp
- 0063 ca 04 00 retf 0004H
- 0066 00 55 89 L5 add -77H[di],dl
- 0069 e5 b8 in ax,0b8H
- 006b 01 01 add [bx+di],ax
- 006d 9a 00 00 00 00 call far SYSTEM_034
- 0072 81 ec 01 01 sub sp,0101H
- 0076 c4 7e 08 les di,dword ptr +8H[bp]
- 0079 06 push es
- 007a 57 push di
- 007b 8d be 00 ff lea di,-100H[bp]
- 007f 16 push ss
- 0080 57 push di
- 0081 b8 ff 00 L7 mov ax,00ffH
- 0084 50 push ax
- 0085 9a 00 00 00 00 call far SYSTEM_00C
- 008a 8a 86 00 ff mov al,-100H[bp]
- 008e 30 e4 xor ah,ah
- 0090 8b d0 mov dx,ax
- 0092 b8 4c 00 mov ax,004cH
- 0095 2b c2 sub ax,dx
- 0097 09 c0 or ax,ax
- 0099 79 02 jns L9
- 009b f7 d8 neg ax
- 009d 99 L9 cwd
- 009e b9 02 00 mov cx,0002H
- 00a1 f7 f9 idiv cx
- 00a3 88 86 ff fe mov -101H[bp],al
- 00a7 bf 00 00 mov di,offset L5
- 00aa 0e push cs
- 00ab 57 push di
- 00ac b0 01 mov al,01H
- 00ae 50 push ax
- 00af b0 02 mov al,02H
- 00b1 50 push ax
- 00b2 8a 46 06 mov al,+6H[bp]
- 00b5 50 push ax
- 00b6 8a 86 ff fe mov al,-101H[bp]
- 00ba 50 push ax
- 00bb b0 0a mov al,0aH
- 00bd 50 push ax
- 00be 8a 86 ff fe mov al,-101H[bp]
- 00c2 30 e4 xor ah,ah
- 00c4 d1 e0 shl ax,1
- 00c6 8b d0 mov dx,ax
- 00c8 b8 4e 00 mov ax,004eH
- 00cb 2b c2 sub ax,dx
- 00cd 50 push ax
- 00ce b0 01 mov al,01H
- 00d0 50 push ax
- 00d1 0e push cs
- 00d2 e8 00 00 call DRAW_BORDER
- 00d5 bf 00 00 mov di,offset SYSTEM_BSS+100H
- 00d8 1e push ds
- 00d9 57 push di
- 00da 8d be 00 ff lea di,-100H[bp]
- 00de 16 push ss
- 00df 57 push di
- 00e0 31 c0 xor ax,ax
- 00e2 50 push ax
- 00e3 9a 00 00 00 00 call far SYSTEM_036
- 00e8 9a 00 00 00 00 call far SYSTEM_03B
- 00ed 9a 00 00 00 00 call far SYSTEM_032
- 00f2 89 ec mov sp,bp
- 00f4 5d pop bp
- 00f5 ca 06 00 retf 0006H
- 00f8 UP_CASE:
- 00f8 55 LIBRARY1_002 push bp
- 00f9 89 e5 mov bp,sp
- 00fb b8 02 01 mov ax,0102H
- 00fe 9a 00 00 00 00 call far SYSTEM_034
- 0103 81 ec 02 01 sub sp,0102H
- 0107 c4 7e 06 les di,dword ptr +6H[bp]
- 010a 06 push es
- 010b 57 push di
- 010c 8d be 00 ff lea di,-100H[bp]
- 0110 16 push ss
- 0111 57 push di
- 0112 b8 ff 00 mov ax,00ffH
- 0115 50 push ax
- 0116 9a 00 00 00 00 call far SYSTEM_00C
- 011b 8a 86 00 ff mov al,-100H[bp]
- 011f 88 86 fe fe mov -102H[bp],al
- 0123 b0 01 mov al,01H
- 0125 3a 86 fe fe cmp al,-102H[bp]
- 0129 77 34 ja L12
- 012b 88 86 ff fe mov -101H[bp],al
- 012f eb 04 jmp L11
- 0131 fe 86 ff fe L10 inc byte ptr -101H[bp]
- 0135 8a 86 ff fe L11 mov al,-101H[bp]
- 0139 30 e4 xor ah,ah
- 013b 8b f8 mov di,ax
- 013d 8a 83 00 ff mov al,-100H[bp+di]
- 0141 50 push ax
- 0142 9a 00 00 00 00 call far SYSTEM_05A
- 0147 8a d0 mov dl,al
- 0149 8a 86 ff fe mov al,-101H[bp]
- 014d 30 e4 xor ah,ah
- 014f 8b f8 mov di,ax
- 0151 88 93 00 ff mov -100H[bp+di],dl
- 0155 8a 86 ff fe mov al,-101H[bp]
- 0159 3a 86 fe fe cmp al,-102H[bp]
- 015d 75 d2 jne L10
- 015f 8d be 00 ff L12 lea di,-100H[bp]
- 0163 16 push ss
- 0164 57 push di
- 0165 c4 7e 0a les di,dword ptr +0aH[bp]
- 0168 06 push es
- 0169 57 push di
- 016a b8 ff 00 mov ax,00ffH
- 016d 50 push ax
- 016e 9a 00 00 00 00 call far SYSTEM_00C
- 0173 89 ec mov sp,bp
- 0175 5d pop bp
- 0176 ca 04 00 retf 0004H
- 0179 HIDE_CURSOR:
- 0179 55 LIBRARY1_003 push bp
- 017a 89 e5 mov bp,sp
- 017c b8 14 00 mov ax,0014H
- 017f 9a 00 00 00 00 call far SYSTEM_034
- 0184 83 ec 14 sub sp,0014H
- 0187 c7 46 ec 00 02 mov word ptr -14H[bp],0200H
- 018c c7 46 f2 00 19 mov word ptr -0eH[bp],1900H
- 0191 31 c0 xor ax,ax
- 0193 89 46 ee mov -12H[bp],ax
- 0196 b0 10 mov al,10H
- 0198 50 push ax
- 0199 8d 7e ec lea di,-14H[bp]
- 019c 16 push ss
- 019d 57 push di
- 019e 9a 00 00 00 00 call far DOS_001
- 01a3 89 ec mov sp,bp
- 01a5 5d pop bp
- 01a6 cb retf
- 01a7 COLORMONITOR:
- 01a7 55 LIBRARY1_004 push bp
- 01a8 89 e5 mov bp,sp
- 01aa b8 01 00 mov ax,0001H
- 01ad 9a 00 00 00 00 call far SYSTEM_034
- 01b2 83 ec 01 sub sp,0001H
- 01b5 31 c0 xor ax,ax
- 01b7 50 push ax
- 01b8 bf 10 04 mov di,0410H
- 01bb 07 pop es
- 01bc 26 8a 05 mov al,es:[di]
- 01bf 24 30 and al,30H
- 01c1 3c 30 cmp al,30H
- 01c3 74 06 je L13
- 01c5 c6 46 ff 01 mov byte ptr -1H[bp],01H
- 01c9 eb 04 jmp L14
- 01cb c6 46 ff 00 L13 mov byte ptr -1H[bp],00H
- 01cf 80 3e 00 00 00 L14 cmp byte ptr MONOOVERRIDE,00H
- 01d4 74 04 je L15
- 01d6 c6 46 ff 00 mov byte ptr -1H[bp],00H
- 01da 8a 46 ff L15 mov al,-1H[bp]
- 01dd 89 ec mov sp,bp
- 01df 5d pop bp
- 01e0 cb retf
- 01e1 BEEP:
- 01e1 55 LIBRARY1_005 push bp
- 01e2 89 e5 mov bp,sp
- 01e4 31 c0 xor ax,ax
- 01e6 9a 00 00 00 00 call far SYSTEM_034
- 01eb b8 50 00 mov ax,0050H
- 01ee 50 push ax
- 01ef 9a 00 00 00 00 call far CRT_013
- 01f4 b8 05 00 mov ax,0005H
- 01f7 50 push ax
- 01f8 9a 00 00 00 00 call far CRT_012
- 01fd 9a 00 00 00 00 call far CRT_014
- 0202 89 ec mov sp,bp
- 0204 5d pop bp
- 0205 cb retf
- 0206 00 55 89 L16 add -77H[di],dl
- 0209 e5 b8 in ax,0b8H
- 020b 81 01 9a 00 add word ptr [bx+di],009aH
- 020f 00 00 add [bx+si],al
- 0211 00 81 ec 81 add -7e14H[bx+di],al
- 0215 01 c4 add sp,ax
- 0217 7e 06 jle L17
- 0219 06 push es
- 021a 57 push di
- 021b 8d be ff fe lea di,-101H[bp]
- 021f 16 L17 push ss
- 0220 57 push di
- 0221 b8 ff 00 mov ax,00ffH
- 0224 50 push ax
- 0225 9a 00 00 00 00 call far SYSTEM_00C
- 022a 8d be 7f fe lea di,-181H[bp]
- 022e 16 push ss
- 022f 57 push di
- 0230 8d be ff fe lea di,-101H[bp]
- 0234 16 push ss
- 0235 57 push di
- 0236 9a 00 00 00 00 call far SYSTEM_049
- 023b 8d be 7f fe lea di,-181H[bp]
- 023f 16 push ss
- 0240 57 push di
- 0241 b8 80 00 mov ax,0080H
- 0244 50 push ax
- 0245 9a 00 00 00 00 call far SYSTEM_04A
- 024a 8d be 7f fe lea di,-181H[bp]
- 024e 16 push ss
- 024f 57 push di
- 0250 9a 00 00 00 00 call far SYSTEM_04C
- 0255 9a 00 00 00 00 call far SYSTEM_031
- 025a 09 c0 or ax,ax
- 025c 75 12 jne L18
- 025e 8d be ff fe lea di,-101H[bp]
- 0262 16 push ss
- 0263 57 push di
- 0264 bf 00 00 mov di,offset L16
- 0267 0e push cs
- 0268 57 push di
- 0269 9a 00 00 00 00 call far SYSTEM_011
- 026e 75 04 jne L19
- 0270 b0 00 L18 mov al,00H
- 0272 eb 02 jmp L20
- 0274 b0 01 L19 mov al,01H
- 0276 88 46 ff L20 mov -1H[bp],al
- 0279 8a 46 ff mov al,-1H[bp]
- 027c 89 ec mov sp,bp
- 027e 5d pop bp
- 027f ca 04 00 retf 0004H
- 0282 SCREENSEGMENT:
- 0282 55 LIBRARY1_007 push bp
- 0283 89 e5 mov bp,sp
- 0285 b8 02 00 mov ax,0002H
- 0288 9a 00 00 00 00 call far SYSTEM_034
- 028d 83 ec 02 sub sp,0002H
- 0290 31 c0 xor ax,ax
- 0292 50 push ax
- 0293 bf 49 04 mov di,0449H
- 0296 07 pop es
- 0297 26 80 3d 07 cmp byte ptr es:[di],07H
- 029b 75 07 jne L21
- 029d c7 46 fe 00 b0 mov word ptr -2H[bp],0b000H
- 02a2 eb 05 jmp L22
- 02a4 c7 46 fe 00 b8 L21 mov word ptr -2H[bp],0b800H
- 02a9 8b 46 fe L22 mov ax,-2H[bp]
- 02ac 89 ec mov sp,bp
- 02ae 5d pop bp
- 02af cb retf
- 02b0 DRAW_BORDER:
- 02b0 55 LIBRARY1_008 push bp
- 02b1 89 e5 mov bp,sp
- 02b3 b8 ae 01 mov ax,01aeH
- 02b6 9a 00 00 00 00 call far SYSTEM_034
- 02bb 81 ec ae 01 sub sp,01aeH
- 02bf c4 7e 14 les di,dword ptr +14H[bp]
- 02c2 06 push es
- 02c3 57 push di
- 02c4 8d be 00 ff lea di,-100H[bp]
- 02c8 16 push ss
- 02c9 57 push di
- 02ca b8 ff 00 mov ax,00ffH
- 02cd 50 push ax
- 02ce 9a 00 00 00 00 call far SYSTEM_00C
- 02d3 8a 46 0e mov al,+0eH[bp]
- 02d6 88 86 fa fe mov -106H[bp],al
- 02da 80 7e 10 02 cmp byte ptr +10H[bp],02H
- 02de 76 04 jbe L23
- 02e0 c6 46 10 02 mov byte ptr +10H[bp],02H
- 02e4 8a 46 10 L23 mov al,+10H[bp]
- 02e7 30 e4 xor ah,ah
- 02e9 ba 07 00 mov dx,0007H
- 02ec f7 e2 mul dx
- 02ee 8b f8 mov di,ax
- 02f0 81 c7 00 00 add di,offset LIBRARY1_DATA
- 02f4 1e push ds
- 02f5 57 push di
- 02f6 8d be f3 fe lea di,-10dH[bp]
- 02fa 16 push ss
- 02fb 57 push di
- 02fc b8 06 00 mov ax,0006H
- 02ff 50 push ax
- 0300 9a 00 00 00 00 call far SYSTEM_00C
- 0305 8a 86 f5 fe mov al,-10bH[bp]
- 0309 88 86 fb fe mov -105H[bp],al
- 030d 8a 46 08 mov al,+8H[bp]
- 0310 30 e4 xor ah,ah
- 0312 05 02 00 add ax,0002H
- 0315 88 86 52 fe mov -1aeH[bp],al
- 0319 b0 01 mov al,01H
- 031b 3a 86 52 fe cmp al,-1aeH[bp]
- 031f 77 42 ja L26
- 0321 88 86 fe fe mov -102H[bp],al
- 0325 eb 04 jmp L25
- 0327 fe 86 fe fe L24 inc byte ptr -102H[bp]
- 032b 8a 86 fe fe L25 mov al,-102H[bp]
- 032f 30 e4 xor ah,ah
- 0331 d1 e0 shl ax,1
- 0333 88 86 ff fe mov -101H[bp],al
- 0337 8a 96 fb fe mov dl,-105H[bp]
- 033b 8a 86 ff fe mov al,-101H[bp]
- 033f fe c8 dec al
- 0341 30 e4 xor ah,ah
- 0343 8b f8 mov di,ax
- 0345 88 93 52 fe mov -1aeH[bp+di],dl
- 0349 8a 96 fa fe mov dl,-106H[bp]
- 034d 8a 86 ff fe mov al,-101H[bp]
- 0351 30 e4 xor ah,ah
- 0353 8b f8 mov di,ax
- 0355 88 93 52 fe mov -1aeH[bp+di],dl
- 0359 8a 86 fe fe mov al,-102H[bp]
- 035d 3a 86 52 fe cmp al,-1aeH[bp]
- 0361 75 c4 jne L24
- 0363 8a 86 f4 fe L26 mov al,-10cH[bp]
- 0367 88 86 53 fe mov -1adH[bp],al
- 036b 8a 96 f6 fe mov dl,-10aH[bp]
- 036f 8a 86 ff fe mov al,-101H[bp]
- 0373 30 e4 xor ah,ah
- 0375 48 dec ax
- 0376 8b f8 mov di,ax
- 0378 88 93 52 fe mov -1aeH[bp+di],dl
- 037c 8d be 00 ff lea di,-100H[bp]
- 0380 16 push ss
- 0381 57 push di
- 0382 8a 46 08 mov al,+8H[bp]
- 0385 30 e4 xor ah,ah
- 0387 40 inc ax
- 0388 50 push ax
- 0389 b8 ff 00 mov ax,00ffH
- 038c 50 push ax
- 038d 9a 00 00 00 00 call far SYSTEM_015
- 0392 8a 86 00 ff mov al,-100H[bp]
- 0396 30 e4 xor ah,ah
- 0398 8b d0 mov dx,ax
- 039a 8a 46 08 mov al,+8H[bp]
- 039d 30 e4 xor ah,ah
- 039f 2b c2 sub ax,dx
- 03a1 99 cwd
- 03a2 b9 02 00 mov cx,0002H
- 03a5 f7 f9 idiv cx
- 03a7 d1 e0 shl ax,1
- 03a9 40 inc ax
- 03aa 88 86 ff fe mov -101H[bp],al
- 03ae 8a 86 00 ff mov al,-100H[bp]
- 03b2 88 86 52 fe mov -1aeH[bp],al
- 03b6 b0 01 mov al,01H
- 03b8 3a 86 52 fe cmp al,-1aeH[bp]
- 03bc 77 38 ja L29
- 03be 88 86 fe fe mov -102H[bp],al
- 03c2 eb 04 jmp L28
- 03c4 fe 86 fe fe L27 inc byte ptr -102H[bp]
- 03c8 8a 86 fe fe L28 mov al,-102H[bp]
- 03cc 30 e4 xor ah,ah
- 03ce 8b f8 mov di,ax
- 03d0 8a 8b 00 ff mov cl,-100H[bp+di]
- 03d4 8a 86 fe fe mov al,-102H[bp]
- 03d8 30 e4 xor ah,ah
- 03da d1 e0 shl ax,1
- 03dc 8b d0 mov dx,ax
- 03de 8a 86 ff fe mov al,-101H[bp]
- 03e2 30 e4 xor ah,ah
- 03e4 03 c2 add ax,dx
- 03e6 8b f8 mov di,ax
- 03e8 88 8b 52 fe mov -1aeH[bp+di],cl
- 03ec 8a 86 fe fe mov al,-102H[bp]
- 03f0 3a 86 52 fe cmp al,-1aeH[bp]
- 03f4 75 ce jne L27
- 03f6 8a 46 0c L29 mov al,+0cH[bp]
- 03f9 30 e4 xor ah,ah
- 03fb d1 e0 shl ax,1
- 03fd 8b d8 mov bx,ax
- 03ff 8a 46 0a mov al,+0aH[bp]
- 0402 30 e4 xor ah,ah
- 0404 b9 a0 00 mov cx,00a0H
- 0407 f7 e9 imul cx
- 0409 03 c3 add ax,bx
- 040b 2d a2 00 sub ax,00a2H
- 040e 89 86 fc fe mov -104H[bp],ax
- 0412 8d be 53 fe lea di,-1adH[bp]
- 0416 16 push ss
- 0417 57 push di
- 0418 0e push cs
- 0419 e8 00 00 call LIBRARY1_007
- 041c 8b d0 mov dx,ax
- 041e 8b 86 fc fe mov ax,-104H[bp]
- 0422 89 c7 mov di,ax
- 0424 8e c2 mov es,dx
- 0426 06 push es
- 0427 57 push di
- 0428 8a 46 08 mov al,+8H[bp]
- 042b 30 e4 xor ah,ah
- 042d d1 e0 shl ax,1
- 042f 05 04 00 add ax,0004H
- 0432 50 push ax
- 0433 9a 00 00 00 00 call far SYSTEM_060
- 0438 8a 86 f7 fe mov al,-109H[bp]
- 043c 88 86 53 fe mov -1adH[bp],al
- 0440 8a 46 06 mov al,+6H[bp]
- 0443 30 e4 xor ah,ah
- 0445 8b d0 mov dx,ax
- 0447 8a 46 0a mov al,+0aH[bp]
- 044a 30 e4 xor ah,ah
- 044c 03 c2 add ax,dx
- 044e 88 86 52 fe mov -1aeH[bp],al
- 0452 8a 46 0a mov al,+0aH[bp]
- 0455 30 e4 xor ah,ah
- 0457 40 inc ax
- 0458 3a 86 52 fe cmp al,-1aeH[bp]
- 045c 77 67 ja L32
- 045e 88 86 fe fe mov -102H[bp],al
- 0462 eb 04 jmp L31
- 0464 fe 86 fe fe L30 inc byte ptr -102H[bp]
- 0468 8b 86 fc fe L31 mov ax,-104H[bp]
- 046c 05 a0 00 add ax,00a0H
- 046f 89 86 fc fe mov -104H[bp],ax
- 0473 8d be 53 fe lea di,-1adH[bp]
- 0477 16 push ss
- 0478 57 push di
- 0479 0e push cs
- 047a e8 00 00 call LIBRARY1_007
- 047d 8b d0 mov dx,ax
- 047f 8b 86 fc fe mov ax,-104H[bp]
- 0483 89 c7 mov di,ax
- 0485 8e c2 mov es,dx
- 0487 06 push es
- 0488 57 push di
- 0489 b8 02 00 mov ax,0002H
- 048c 50 push ax
- 048d 9a 00 00 00 00 call far SYSTEM_060
- 0492 8d be 53 fe lea di,-1adH[bp]
- 0496 16 push ss
- 0497 57 push di
- 0498 0e push cs
- 0499 e8 00 00 call LIBRARY1_007
- 049c 8b d0 mov dx,ax
- 049e 8a 46 08 mov al,+8H[bp]
- 04a1 30 e4 xor ah,ah
- 04a3 d1 e0 shl ax,1
- 04a5 03 86 fc fe add ax,-104H[bp]
- 04a9 05 02 00 add ax,0002H
- 04ac 89 c7 mov di,ax
- 04ae 8e c2 mov es,dx
- 04b0 06 push es
- 04b1 57 push di
- 04b2 b8 02 00 mov ax,0002H
- 04b5 50 push ax
- 04b6 9a 00 00 00 00 call far SYSTEM_060
- 04bb 8a 86 fe fe mov al,-102H[bp]
- 04bf 3a 86 52 fe cmp al,-1aeH[bp]
- 04c3 75 9f jne L30
- 04c5 8a 46 08 L32 mov al,+8H[bp]
- 04c8 30 e4 xor ah,ah
- 04ca 05 02 00 add ax,0002H
- 04cd 88 86 52 fe mov -1aeH[bp],al
- 04d1 b0 01 mov al,01H
- 04d3 3a 86 52 fe cmp al,-1aeH[bp]
- 04d7 77 42 ja L35
- 04d9 88 86 fe fe mov -102H[bp],al
- 04dd eb 04 jmp L34
- 04df fe 86 fe fe L33 inc byte ptr -102H[bp]
- 04e3 8a 86 fe fe L34 mov al,-102H[bp]
- 04e7 30 e4 xor ah,ah
- 04e9 d1 e0 shl ax,1
- 04eb 88 86 ff fe mov -101H[bp],al
- 04ef 8a 96 fb fe mov dl,-105H[bp]
- 04f3 8a 86 ff fe mov al,-101H[bp]
- 04f7 fe c8 dec al
- 04f9 30 e4 xor ah,ah
- 04fb 8b f8 mov di,ax
- 04fd 88 93 52 fe mov -1aeH[bp+di],dl
- 0501 8a 96 fa fe mov dl,-106H[bp]
- 0505 8a 86 ff fe mov al,-101H[bp]
- 0509 30 e4 xor ah,ah
- 050b 8b f8 mov di,ax
- 050d 88 93 52 fe mov -1aeH[bp+di],dl
- 0511 8a 86 fe fe mov al,-102H[bp]
- 0515 3a 86 52 fe cmp al,-1aeH[bp]
- 0519 75 c4 jne L33
- 051b 8a 86 f8 fe L35 mov al,-108H[bp]
- 051f 88 86 53 fe mov -1adH[bp],al
- 0523 8a 96 f9 fe mov dl,-107H[bp]
- 0527 8a 86 ff fe mov al,-101H[bp]
- 052b 30 e4 xor ah,ah
- 052d 48 dec ax
- 052e 8b f8 mov di,ax
- 0530 88 93 52 fe mov -1aeH[bp+di],dl
- 0534 8b 86 fc fe mov ax,-104H[bp]
- 0538 05 a0 00 add ax,00a0H
- 053b 89 86 fc fe mov -104H[bp],ax
- 053f 8d be 53 fe lea di,-1adH[bp]
- 0543 16 push ss
- 0544 57 push di
- 0545 0e push cs
- 0546 e8 00 00 call LIBRARY1_007
- 0549 8b d0 mov dx,ax
- 054b 8b 86 fc fe mov ax,-104H[bp]
- 054f 89 c7 mov di,ax
- 0551 8e c2 mov es,dx
- 0553 06 push es
- 0554 57 push di
- 0555 8a 46 08 mov al,+8H[bp]
- 0558 30 e4 xor ah,ah
- 055a d1 e0 shl ax,1
- 055c 05 04 00 add ax,0004H
- 055f 50 push ax
- 0560 9a 00 00 00 00 call far SYSTEM_060
- 0565 8a 46 0c mov al,+0cH[bp]
- 0568 30 e4 xor ah,ah
- 056a 40 inc ax
- 056b 50 push ax
- 056c 8a 46 0a mov al,+0aH[bp]
- 056f 30 e4 xor ah,ah
- 0571 40 inc ax
- 0572 50 push ax
- 0573 8a 46 08 mov al,+8H[bp]
- 0576 30 e4 xor ah,ah
- 0578 8b d0 mov dx,ax
- 057a 8a 46 0c mov al,+0cH[bp]
- 057d 30 e4 xor ah,ah
- 057f 03 c2 add ax,dx
- 0581 50 push ax
- 0582 8a 46 06 mov al,+6H[bp]
- 0585 30 e4 xor ah,ah
- 0587 8b d0 mov dx,ax
- 0589 8a 46 0a mov al,+0aH[bp]
- 058c 30 e4 xor ah,ah
- 058e 03 c2 add ax,dx
- 0590 50 push ax
- 0591 9a 00 00 00 00 call far CRT_005
- 0596 8a 46 0e mov al,+0eH[bp]
- 0599 a2 00 00 mov CRT_BSS+6H,al
- 059c 80 7e 12 01 cmp byte ptr +12H[bp],01H
- 05a0 75 05 jne L36
- 05a2 9a 00 00 00 00 call far CRT_009
- 05a7 89 ec L36 mov sp,bp
- 05a9 5d pop bp
- 05aa ca 12 00 retf 0012H
- 05ad READNFKEY:
- 05ad 55 LIBRARY1_009 push bp
- 05ae 89 e5 mov bp,sp
- 05b0 b8 02 00 mov ax,0002H
- 05b3 9a 00 00 00 00 call far SYSTEM_034
- 05b8 83 ec 02 sub sp,0002H
- 05bb 9a 00 00 00 00 call far CRT_003
- 05c0 88 46 fe mov -2H[bp],al
- 05c3 8a 46 fe mov al,-2H[bp]
- 05c6 88 46 ff mov -1H[bp],al
- 05c9 80 7e fe 00 cmp byte ptr -2H[bp],00H
- 05cd 75 08 jne L37
- 05cf 9a 00 00 00 00 call far CRT_003
- 05d4 88 46 fe mov -2H[bp],al
- 05d7 8a 46 ff L37 mov al,-1H[bp]
- 05da 89 ec mov sp,bp
- 05dc 5d pop bp
- 05dd cb retf
- 05de 13 41 6e L38 adc ax,+6eH[bx+di]
- 05e1 79 20 jns L39
- 05e3 6b 65 79 20 imul sp,+79H[di],20H
- 05e7 74 6f je L41
- 05e9 20 72 65 and +65H[bp+si],dh
- 05ec 74 75 je L43
- 05ee 72 6e jb L42
- 05f0 2e 2e seg
- 05f2 ANYKEY:
- 05f2 55 LIBRARY1_00A push bp
- 05f3 89 e5 mov bp,sp
- 05f5 b8 01 00 mov ax,0001H
- 05f8 9a 00 00 00 00 call far SYSTEM_034
- 05fd 83 ec 01 sub sp,0001H
- 0600 bf 00 00 mov di,offset SYSTEM_BSS+100H
- 0603 1e L39 push ds
- 0604 57 push di
- 0605 bf 00 00 mov di,offset L38
- 0608 0e push cs
- 0609 57 push di
- 060a 31 c0 xor ax,ax
- 060c 50 push ax
- 060d 9a 00 00 00 00 call far SYSTEM_036
- 0612 9a 00 00 00 00 call far SYSTEM_03B
- 0617 9a 00 00 00 00 call far SYSTEM_032
- 061c 0e push cs
- 061d e8 00 00 call LIBRARY1_009
- 0620 88 46 ff mov -1H[bp],al
- 0623 bf 00 00 mov di,offset SYSTEM_BSS+100H
- 0626 1e push ds
- 0627 57 push di
- 0628 b0 0d mov al,0dH
- 062a 50 push ax
- 062b 31 c0 xor ax,ax
- 062d 50 push ax
- 062e 9a 00 00 00 00 call far SYSTEM_039
- 0633 9a 00 00 00 00 call far SYSTEM_03B
- 0638 9a 00 00 00 00 call far SYSTEM_032
- 063d 9a 00 00 00 00 call far CRT_00A
- 0642 89 ec mov sp,bp
- 0644 5d pop bp
- 0645 cb retf
- 0646 01 20 L40 add [bx+si],sp
- 0648 55 LIBRARY1_00F push bp
- 0649 89 e5 mov bp,sp
- 064b b8 02 02 mov ax,0202H
- 064e 9a 00 00 00 00 call far SYSTEM_034
- 0653 81 ec 02 02 sub sp,0202H
- 0657 8b 7e 04 mov di,+4H[bp]
- 065a 36 c4 7d 08 les di,dword ptr ss:+8H[di]
- 065e 06 L42 push es
- 065f 57 push di
- 0660 8d be ff fe lea di,-101H[bp]
- 0664 16 push ss
- 0665 57 push di
- 0666 b8 ff 00 mov ax,00ffH
- 0669 50 push ax
- 066a 9a 00 00 00 00 call far SYSTEM_00C
- 066f 8b 7e 04 mov di,+4H[bp]
- 0672 36 8a 45 06 mov al,ss:+6H[di]
- 0676 88 86 fe fe mov -102H[bp],al
- 067a 8a 86 ff fe mov al,-101H[bp]
- 067e 30 e4 xor ah,ah
- 0680 40 inc ax
- 0681 3a 86 fe fe cmp al,-102H[bp]
- 0685 77 3b ja L46
- 0687 88 46 ff mov -1H[bp],al
- 068a eb 03 jmp L45
- 068c fe 46 ff L44 inc byte ptr -1H[bp]
- 068f 8d be fe fd L45 lea di,-202H[bp]
- 0693 16 push ss
- 0694 57 push di
- 0695 8d be ff fe lea di,-101H[bp]
- 0699 16 push ss
- 069a 57 push di
- 069b 9a 00 00 00 00 call far SYSTEM_00B
- 06a0 bf 00 00 mov di,offset L40
- 06a3 0e push cs
- 06a4 57 push di
- 06a5 9a 00 00 00 00 call far SYSTEM_00F
- 06aa 8d be ff fe lea di,-101H[bp]
- 06ae 16 push ss
- 06af 57 push di
- 06b0 b8 ff 00 mov ax,00ffH
- 06b3 50 push ax
- 06b4 9a 00 00 00 00 call far SYSTEM_00C
- 06b9 8a 46 ff mov al,-1H[bp]
- 06bc 3a 86 fe fe cmp al,-102H[bp]
- 06c0 75 ca jne L44
- 06c2 8b 7e 04 L46 mov di,+4H[bp]
- 06c5 36 8a 45 fb mov al,ss:-5H[di]
- 06c9 50 push ax
- 06ca 8b 7e 04 mov di,+4H[bp]
- 06cd 36 8a 45 fc mov al,ss:-4H[di]
- 06d1 50 push ax
- 06d2 9a 00 00 00 00 call far CRT_006
- 06d7 bf 00 00 mov di,offset SYSTEM_BSS+100H
- 06da 1e push ds
- 06db 57 push di
- 06dc 8d be ff fe lea di,-101H[bp]
- 06e0 16 push ss
- 06e1 57 push di
- 06e2 31 c0 xor ax,ax
- 06e4 50 push ax
- 06e5 9a 00 00 00 00 call far SYSTEM_036
- 06ea 9a 00 00 00 00 call far SYSTEM_03B
- 06ef 9a 00 00 00 00 call far SYSTEM_032
- 06f4 89 ec mov sp,bp
- 06f6 5d pop bp
- 06f7 c2 02 00 ret 0002H
- 06fa GET_STRING:
- 06fa 55 LIBRARY1_00B push bp
- 06fb 89 e5 mov bp,sp
- 06fd b8 08 02 mov ax,0208H
- 0700 9a 00 00 00 00 call far SYSTEM_034
- 0705 81 ec 08 02 sub sp,0208H
- 0709 c4 7e 08 les di,dword ptr +8H[bp]
- 070c 06 push es
- 070d 57 push di
- 070e 8d be f8 fe lea di,-108H[bp]
- 0712 16 push ss
- 0713 57 push di
- 0714 b8 ff 00 mov ax,00ffH
- 0717 50 push ax
- 0718 9a 00 00 00 00 call far SYSTEM_00C
- 071d c6 46 f8 01 mov byte ptr -8H[bp],01H
- 0721 9a 00 00 00 00 call far CRT_007
- 0726 88 46 fb mov -5H[bp],al
- 0729 9a 00 00 00 00 call far CRT_008
- 072e 88 46 fc mov -4H[bp],al
- 0731 c4 7e 08 les di,dword ptr +8H[bp]
- 0734 26 8a 05 mov al,es:[di]
- 0737 88 46 fa mov -6H[bp],al
- 073a 8a 46 fa mov al,-6H[bp]
- 073d 30 e4 xor ah,ah
- 073f 40 inc ax
- 0740 88 46 f9 mov -7H[bp],al
- 0743 c6 46 fd 01 mov byte ptr -3H[bp],01H
- 0747 c4 7e 08 L47 les di,dword ptr +8H[bp]
- 074a 26 8a 05 mov al,es:[di]
- 074d 88 46 fa mov -6H[bp],al
- 0750 80 7e f9 01 cmp byte ptr -7H[bp],01H
- 0754 73 06 jae L48
- 0756 c6 46 f9 01 mov byte ptr -7H[bp],01H
- 075a eb 11 jmp L49
- 075c 8a 46 f9 L48 mov al,-7H[bp]
- 075f 3a 46 fa cmp al,-6H[bp]
- 0762 76 09 jbe L49
- 0764 8a 46 fa mov al,-6H[bp]
- 0767 30 e4 xor ah,ah
- 0769 40 inc ax
- 076a 88 46 f9 mov -7H[bp],al
- 076d 8a 46 f9 L49 mov al,-7H[bp]
- 0770 3a 46 06 cmp al,+6H[bp]
- 0773 76 06 jbe L50
- 0775 8a 46 06 mov al,+6H[bp]
- 0778 88 46 f9 mov -7H[bp],al
- 077b 80 7e fd 00 L50 cmp byte ptr -3H[bp],00H
- 077f 74 04 je L51
- 0781 55 push bp
- 0782 e8 00 00 call LIBRARY1_00F
- 0785 8a 46 f9 L51 mov al,-7H[bp]
- 0788 30 e4 xor ah,ah
- 078a 8b d0 mov dx,ax
- 078c 8a 46 fb mov al,-5H[bp]
- 078f 30 e4 xor ah,ah
- 0791 03 c2 add ax,dx
- 0793 48 dec ax
- 0794 50 push ax
- 0795 8a 46 fc mov al,-4H[bp]
- 0798 50 push ax
- 0799 9a 00 00 00 00 call far CRT_006
- 079e 9a 00 00 00 00 call far CRT_003
- 07a3 88 46 fe mov -2H[bp],al
- 07a6 c6 46 fd 00 mov byte ptr -3H[bp],00H
- 07aa 80 7e fe 00 cmp byte ptr -2H[bp],00H
- 07ae 74 03 je L52
- 07b0 e9 87 00 jmp L62
- 07b3 9a 00 00 00 00 L52 call far CRT_003
- 07b8 88 46 fe mov -2H[bp],al
- 07bb 8a 46 fe mov al,-2H[bp]
- 07be 3c 47 cmp al,47H
- 07c0 75 06 jne L53
- 07c2 c6 46 f9 01 mov byte ptr -7H[bp],01H
- 07c6 eb 6b jmp L61
- 07c8 3c 4b L53 cmp al,4bH
- 07ca 75 05 jne L54
- 07cc fe 4e f9 dec byte ptr -7H[bp]
- 07cf eb 62 jmp L61
- 07d1 3c 4d L54 cmp al,4dH
- 07d3 75 05 jne L55
- 07d5 fe 46 f9 inc byte ptr -7H[bp]
- 07d8 eb 59 jmp L61
- 07da 3c 4f L55 cmp al,4fH
- 07dc 75 0b jne L56
- 07de 8a 46 fa mov al,-6H[bp]
- 07e1 30 e4 xor ah,ah
- 07e3 40 inc ax
- 07e4 88 46 f9 mov -7H[bp],al
- 07e7 eb 4a jmp L61
- 07e9 3c 53 L56 cmp al,53H
- 07eb 75 1a jne L57
- 07ed c6 46 fd 01 mov byte ptr -3H[bp],01H
- 07f1 c4 7e 08 les di,dword ptr +8H[bp]
- 07f4 06 push es
- 07f5 57 push di
- 07f6 8a 46 f9 mov al,-7H[bp]
- 07f9 30 e4 xor ah,ah
- 07fb 50 push ax
- 07fc b8 01 00 mov ax,0001H
- 07ff 50 push ax
- 0800 9a 00 00 00 00 call far SYSTEM_015
- 0805 eb 2c jmp L61
- 0807 3c 73 L57 cmp al,73H
- 0809 75 19 jne L60
- 080b 80 7e f9 0a cmp byte ptr -7H[bp],0aH
- 080f 76 0d jbe L58
- 0811 8a 46 f9 mov al,-7H[bp]
- 0814 30 e4 xor ah,ah
- 0816 2d 0a 00 sub ax,000aH
- 0819 88 46 f9 mov -7H[bp],al
- 081c eb 04 jmp L59
- 081e c6 46 f9 01 L58 mov byte ptr -7H[bp],01H
- 0822 eb 0f L59 jmp L61
- 0824 3c 74 L60 cmp al,74H
- 0826 75 0b jne L61
- 0828 8a 46 f9 mov al,-7H[bp]
- 082b 30 e4 xor ah,ah
- 082d 05 0a 00 add ax,000aH
- 0830 88 46 f9 mov -7H[bp],al
- 0833 c6 46 fe 00 L61 mov byte ptr -2H[bp],00H
- 0837 e9 74 01 jmp L75
- 083a 80 7e fe 1f L62 cmp byte ptr -2H[bp],1fH
- 083e 76 5e jbe L65
- 0840 c6 46 fd 01 mov byte ptr -3H[bp],01H
- 0844 80 7e f8 01 cmp byte ptr -8H[bp],01H
- 0848 75 23 jne L63
- 084a 8d be f8 fd lea di,-208H[bp]
- 084e 16 push ss
- 084f 57 push di
- 0850 8a 46 fe mov al,-2H[bp]
- 0853 50 push ax
- 0854 9a 00 00 00 00 call far SYSTEM_012
- 0859 c4 7e 08 les di,dword ptr +8H[bp]
- 085c 06 push es
- 085d 57 push di
- 085e b8 ff 00 mov ax,00ffH
- 0861 50 push ax
- 0862 9a 00 00 00 00 call far SYSTEM_00C
- 0867 c6 46 f9 02 mov byte ptr -7H[bp],02H
- 086b eb 2e jmp L64
- 086d 8a 46 fa L63 mov al,-6H[bp]
- 0870 3a 46 06 cmp al,+6H[bp]
- 0873 73 26 jae L64
- 0875 8d be f8 fd lea di,-208H[bp]
- 0879 16 push ss
- 087a 57 push di
- 087b 8a 46 fe mov al,-2H[bp]
- 087e 50 push ax
- 087f 9a 00 00 00 00 call far SYSTEM_012
- 0884 c4 7e 08 les di,dword ptr +8H[bp]
- 0887 06 push es
- 0888 57 push di
- 0889 b8 ff 00 mov ax,00ffH
- 088c 50 push ax
- 088d 8a 46 f9 mov al,-7H[bp]
- 0890 30 e4 xor ah,ah
- 0892 50 push ax
- 0893 9a 00 00 00 00 call far SYSTEM_014
- 0898 fe 46 f9 inc byte ptr -7H[bp]
- 089b e9 10 01 L64 jmp L75
- 089e c6 46 fd 01 L65 mov byte ptr -3H[bp],01H
- 08a2 8a 46 fe mov al,-2H[bp]
- 08a5 3c 07 cmp al,07H
- 08a7 75 17 jne L66
- 08a9 c4 7e 08 les di,dword ptr +8H[bp]
- 08ac 06 push es
- 08ad 57 push di
- 08ae 8a 46 f9 mov al,-7H[bp]
- 08b1 30 e4 xor ah,ah
- 08b3 50 push ax
- 08b4 b8 01 00 mov ax,0001H
- 08b7 50 push ax
- 08b8 9a 00 00 00 00 call far SYSTEM_015
- 08bd e9 ee 00 jmp L75
- 08c0 3c 08 L66 cmp al,08H
- 08c2 75 1a jne L67
- 08c4 fe 4e f9 dec byte ptr -7H[bp]
- 08c7 c4 7e 08 les di,dword ptr +8H[bp]
- 08ca 06 push es
- 08cb 57 push di
- 08cc 8a 46 f9 mov al,-7H[bp]
- 08cf 30 e4 xor ah,ah
- 08d1 50 push ax
- 08d2 b8 01 00 mov ax,0001H
- 08d5 50 push ax
- 08d6 9a 00 00 00 00 call far SYSTEM_015
- 08db e9 d0 00 jmp L75
- 08de 3c 11 L67 cmp al,11H
- 08e0 74 03 je L68
- 08e2 e9 86 00 jmp L71
- 08e5 9a 00 00 00 00 L68 call far CRT_003
- 08ea 50 push ax
- 08eb 9a 00 00 00 00 call far SYSTEM_05A
- 08f0 88 46 fe mov -2H[bp],al
- 08f3 8a 46 fe mov al,-2H[bp]
- 08f6 50 push ax
- 08f7 8d be d8 fe lea di,-128H[bp]
- 08fb 16 push ss
- 08fc 57 push di
- 08fd 9a 00 00 00 00 call far SYSTEM_028
- 0902 b0 19 mov al,19H
- 0904 50 push ax
- 0905 9a 00 00 00 00 call far SYSTEM_029
- 090a b0 59 mov al,59H
- 090c 50 push ax
- 090d 9a 00 00 00 00 call far SYSTEM_029
- 0912 9a 00 00 00 00 call far SYSTEM_018
- 0917 74 16 je L69
- 0919 c4 7e 08 les di,dword ptr +8H[bp]
- 091c 06 push es
- 091d 57 push di
- 091e 8a 46 f9 mov al,-7H[bp]
- 0921 30 e4 xor ah,ah
- 0923 50 push ax
- 0924 b8 ff 00 mov ax,00ffH
- 0927 50 push ax
- 0928 9a 00 00 00 00 call far SYSTEM_015
- 092d eb 3a jmp L70
- 092f 8a 46 fe L69 mov al,-2H[bp]
- 0932 50 push ax
- 0933 8d be b8 fe lea di,-148H[bp]
- 0937 16 push ss
- 0938 57 push di
- 0939 9a 00 00 00 00 call far SYSTEM_028
- 093e b0 0c mov al,0cH
- 0940 50 push ax
- 0941 9a 00 00 00 00 call far SYSTEM_029
- 0946 b0 4c mov al,4cH
- 0948 50 push ax
- 0949 9a 00 00 00 00 call far SYSTEM_029
- 094e 9a 00 00 00 00 call far SYSTEM_018
- 0953 74 14 je L70
- 0955 8d be f8 fe lea di,-108H[bp]
- 0959 16 push ss
- 095a 57 push di
- 095b c4 7e 08 les di,dword ptr +8H[bp]
- 095e 06 push es
- 095f 57 push di
- 0960 b8 ff 00 mov ax,00ffH
- 0963 50 push ax
- 0964 9a 00 00 00 00 call far SYSTEM_00C
- 0969 eb 43 L70 jmp L75
- 096b 3c 14 L71 cmp al,14H
- 096d 75 16 jne L72
- 096f c4 7e 08 les di,dword ptr +8H[bp]
- 0972 06 push es
- 0973 57 push di
- 0974 8a 46 f9 mov al,-7H[bp]
- 0977 30 e4 xor ah,ah
- 0979 50 push ax
- 097a b8 0a 00 mov ax,000aH
- 097d 50 push ax
- 097e 9a 00 00 00 00 call far SYSTEM_015
- 0983 eb 29 jmp L75
- 0985 3c 19 L72 cmp al,19H
- 0987 75 09 jne L73
- 0989 c4 7e 08 les di,dword ptr +8H[bp]
- 098c 26 c6 05 00 mov byte ptr es:[di],00H
- 0990 eb 1c jmp L75
- 0992 3c 15 L73 cmp al,15H
- 0994 74 04 je L74
- 0996 3c 1b cmp al,1bH
- 0998 75 14 jne L75
- 099a 8d be f8 fe L74 lea di,-108H[bp]
- 099e 16 push ss
- 099f 57 push di
- 09a0 c4 7e 08 les di,dword ptr +8H[bp]
- 09a3 06 push es
- 09a4 57 push di
- 09a5 b8 ff 00 mov ax,00ffH
- 09a8 50 push ax
- 09a9 9a 00 00 00 00 call far SYSTEM_00C
- 09ae c6 46 f8 00 L75 mov byte ptr -8H[bp],00H
- 09b2 8a 46 fe mov al,-2H[bp]
- 09b5 50 push ax
- 09b6 8d be d8 fe lea di,-128H[bp]
- 09ba 16 push ss
- 09bb 57 push di
- 09bc 9a 00 00 00 00 call far SYSTEM_028
- 09c1 b0 1b mov al,1bH
- 09c3 50 push ax
- 09c4 9a 00 00 00 00 call far SYSTEM_029
- 09c9 b0 0d mov al,0dH
- 09cb 50 push ax
- 09cc 9a 00 00 00 00 call far SYSTEM_029
- 09d1 9a 00 00 00 00 call far SYSTEM_018
- 09d6 75 03 jne L76
- 09d8 e9 6c fd jmp L47
- 09db 55 L76 push bp
- 09dc e8 00 00 call LIBRARY1_00F
- 09df 80 7e fe 1b cmp byte ptr -2H[bp],1bH
- 09e3 75 06 jne L77
- 09e5 c6 46 ff 00 mov byte ptr -1H[bp],00H
- 09e9 eb 04 jmp L78
- 09eb c6 46 ff 01 L77 mov byte ptr -1H[bp],01H
- 09ef 8a 46 ff L78 mov al,-1H[bp]
- 09f2 89 ec mov sp,bp
- 09f4 5d pop bp
- 09f5 ca 06 00 retf 0006H
- 09f8 GET_INTEGER:
- 09f8 55 LIBRARY1_00C push bp
- 09f9 89 e5 mov bp,sp
- 09fb b8 05 01 mov ax,0105H
- 09fe 9a 00 00 00 00 call far SYSTEM_034
- 0a03 81 ec 05 01 sub sp,0105H
- 0a07 9a 00 00 00 00 call far CRT_007
- 0a0c 88 46 fd mov -3H[bp],al
- 0a0f 9a 00 00 00 00 call far CRT_008
- 0a14 88 46 fe mov -2H[bp],al
- 0a17 c4 7e 08 L79 les di,dword ptr +8H[bp]
- 0a1a 26 8b 05 mov ax,es:[di]
- 0a1d 99 cwd
- 0a1e 52 push dx
- 0a1f 50 push ax
- 0a20 31 c0 xor ax,ax
- 0a22 50 push ax
- 0a23 8d be fd fe lea di,-103H[bp]
- 0a27 16 push ss
- 0a28 57 push di
- 0a29 b8 ff 00 mov ax,00ffH
- 0a2c 50 push ax
- 0a2d 9a 00 00 00 00 call far SYSTEM_061
- 0a32 8a 46 fd mov al,-3H[bp]
- 0a35 50 push ax
- 0a36 8a 46 fe mov al,-2H[bp]
- 0a39 50 push ax
- 0a3a 9a 00 00 00 00 call far CRT_006
- 0a3f 31 c0 xor ax,ax
- 0a41 89 86 fb fe mov -105H[bp],ax
- 0a45 8d be fd fe lea di,-103H[bp]
- 0a49 16 push ss
- 0a4a 57 push di
- 0a4b 8a 46 06 mov al,+6H[bp]
- 0a4e 50 push ax
- 0a4f 0e push cs
- 0a50 e8 00 00 call GET_STRING
- 0a53 08 c0 or al,al
- 0a55 74 17 je L80
- 0a57 8d be fd fe lea di,-103H[bp]
- 0a5b 16 push ss
- 0a5c 57 push di
- 0a5d 8d be fb fe lea di,-105H[bp]
- 0a61 16 push ss
- 0a62 57 push di
- 0a63 9a 00 00 00 00 call far SYSTEM_062
- 0a68 c4 7e 08 les di,dword ptr +8H[bp]
- 0a6b 26 89 05 mov es:[di],ax
- 0a6e 83 be fb fe 00 L80 cmp word ptr -105H[bp],0000H
- 0a73 75 a2 jne L79
- 0a75 8a 46 ff mov al,-1H[bp]
- 0a78 89 ec mov sp,bp
- 0a7a 5d pop bp
- 0a7b ca 06 00 retf 0006H
- 0a7e CLEAR_SCREEN:
- 0a7e 55 LIBRARY1_00D push bp
- 0a7f 89 e5 mov bp,sp
- 0a81 31 c0 xor ax,ax
- 0a83 9a 00 00 00 00 call far SYSTEM_034
- 0a88 b0 01 mov al,01H
- 0a8a 50 push ax
- 0a8b b0 01 mov al,01H
- 0a8d 50 push ax
- 0a8e b0 50 mov al,50H
- 0a90 50 push ax
- 0a91 b0 19 mov al,19H
- 0a93 50 push ax
- 0a94 9a 00 00 00 00 call far CRT_005
- 0a99 8a 46 06 mov al,+6H[bp]
- 0a9c a2 00 00 mov CRT_BSS+6H,al
- 0a9f 9a 00 00 00 00 call far CRT_009
- 0aa4 b0 01 mov al,01H
- 0aa6 50 push ax
- 0aa7 b0 18 mov al,18H
- 0aa9 50 push ax
- 0aaa 9a 00 00 00 00 call far CRT_006
- 0aaf 89 ec mov sp,bp
- 0ab1 5d pop bp
- 0ab2 ca 02 00 retf 0002H
- 0ab5 LIBRARY1_000:
- 0ab5 89 e5 LIBRARY1_INIT mov bp,sp
- 0ab7 c6 06 00 00 0e mov byte ptr LIBRARY1_BSS,0eH
- 0abc c6 06 00 00 00 mov byte ptr MONOOVERRIDE,00H
- 0ac1 89 ec mov sp,bp
- 0ac3 cb retf
-
- No disassembly errors
-
- ------------------------------------------------------------
-
- Segment: _DATA WORD 00000015 bytes
- 0000 06 20 20 20 20 20 20 06 LIBRARY1_DATA - . .
- 0008 da c4 bf b3 c0 d9 06 c9 - ........
- 0010 cd bb ba c8 bc - .....
-
- No disassembly errors
-
- ------------------------------------------------------------
-
- Segment: _BSS WORD 00000002 bytes
-
- No disassembly errors
-
- ------------------------------------------------------------
-