home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s140 / 1.img / TESTYN.LST < prev    next >
Encoding:
File List  |  1980-01-01  |  5.1 KB  |  150 lines
  1.       testyn.lst      TESTYN v1.02(c) 1988 V Communica     Sourcer Listing v1.93     1-Jan-80  12:32 am   Page 1
  2.  
  3.   
  4.                 PAGE  59,132
  5.   
  6.                 ;██████████████████████████████████████████████████████████████████████████
  7.                 ;██                                         ██
  8.                 ;██                    TESTYN                         ██
  9.                 ;██                                         ██
  10.                 ;██      Created:   26-Mar-88                             ██
  11.                 ;██      Version:   1.02                             ██
  12.                 ;██      Passes:    5           Analysis Flags on: HQRS                 ██
  13.                 ;██      (c) 1988 V Communications                         ██
  14.                 ;██                                         ██
  15.                 ;██████████████████████████████████████████████████████████████████████████
  16.   
  17.   
  18.                 ;--------------------------------------------------------------    seg_a  ----
  19.   
  20.                 seg_a        segment    para public
  21.                         assume cs:seg_a , ds:seg_a , ss:stack_seg_b
  22.   
  23.   
  24.                 ;██████████████████████████████████████████████████████████████████████████
  25.                 ;
  26.                 ;            Program Entry Point
  27.                 ;
  28.                 ;██████████████████████████████████████████████████████████████████████████
  29.   
  30.   
  31.                 testyn        proc    far
  32.   
  33. 6F99:0000            start:
  34. 6F99:0000  EB 26                jmp    short loc_1        ; (0028)
  35. 6F99:0002  54 45 53 54 59 4E            db    'TESTYN v1.02'
  36. 6F99:0008  20 76 31 2E 30 32
  37. 6F99:000E  28 63 29 20 31 39    copyright    db    '(c) 1988 V Communications'
  38. 6F99:0014  38 38 20 56 20 43
  39. 6F99:001A  6F 6D 6D 75 6E 69
  40. 6F99:0020  63 61 74 69 6F 6E
  41. 6F99:0026  73
  42. 6F99:0027  00                    db    0
  43. 6F99:0028            loc_1:                        ;  xref 6F99:0000, 003B
  44. 6F99:0028  B4 08                mov    ah,8
  45. 6F99:002A  CD 21                int    21h            ; DOS Services  ah=function 08h
  46.                                         ;  get keybd char al, no echo
  47. 6F99:002C  0C 60                or    al,60h            ; '`'
  48. 6F99:002E  3C 79                cmp    al,79h            ; 'y'
  49. 6F99:0030  74 0B                je    loc_3            ; Jump if equal
  50. 6F99:0032  3C 6E                cmp    al,6Eh            ; 'n'
  51. 6F99:0034  74 0B                je    loc_4            ; Jump if equal
  52. 6F99:0036  9A 6FAA:0000                call    far ptr sub_1        ; (6FAA:0000)
  53. 6F99:003B  EB EB                jmp    short loc_1        ; (0028)
  54. 6F99:003D            loc_3:                        ;  xref 6F99:0030
  55. 6F99:003D  B0 01                mov    al,1
  56. 6F99:003F  EB 02                jmp    short loc_5        ; (0043)
  57. 6F99:0041            loc_4:                        ;  xref 6F99:0034
  58. 6F99:0041  32 C0                xor    al,al            ; Zero register
  59. 6F99:0043            loc_5:                        ;  xref 6F99:003F
  60.      testyn.lst      TESTYN v1.02(c) 1988 V Communica     Sourcer Listing v1.93     1-Jan-80  12:32 am   Page 2
  61.  
  62. 6F99:0043  B4 4C                mov    ah,4Ch            ; 'L'
  63. 6F99:0045  CD 21                int    21h            ; DOS Services  ah=function 4Ch
  64.                                         ;  terminate with al=return code
  65. 6F99:0047  0009[00]                db    9 dup (0)
  66.   
  67.                 testyn        endp
  68.   
  69.                 seg_a        ends
  70.   
  71.   
  72.   
  73.                 ;--------------------------------------------------------- stack_seg_b  ---
  74.   
  75.                 stack_seg_b    segment    para stack
  76.   
  77. 6F9E:0000  00C0[00]                db    192 dup (0)
  78.   
  79.                 stack_seg_b    ends
  80.   
  81.   
  82.   
  83.                 ;--------------------------------------------------------------    seg_c  ----
  84.   
  85.                 seg_c        segment    para public
  86.                         assume cs:seg_c , ds:seg_c , ss:stack_seg_b
  87.   
  88.   
  89.                 ;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  90.                 ;                   SUBROUTINE
  91.                 ;
  92.                 ;         Called from:     6F99:0036
  93.                 ;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  94.   
  95.                 sub_1        proc    far
  96. 6FAA:0000  0E                    push    cs
  97. 6FAA:0001  1F                    pop    ds
  98. 6FAA:0002  FA                    cli                ; Disable interrupts
  99. 6FAA:0003  8B 16 0038                mov    dx,data_4        ; (6FAA:0038=61h)
  100. 6FAA:0007  EC                    in    al,dx            ; port 61h, 8255 port B, read
  101. 6FAA:0008  24 FE                and    al,0FEh
  102. 6FAA:000A  8B 1E 003C                mov    bx,data_6        ; (6FAA:003C=50h)
  103. 6FAA:000E            loc_6:                        ;  xref 6FAA:0021
  104. 6FAA:000E  0C 02                or    al,2
  105. 6FAA:0010  EE                    out    dx,al            ; port 61h, 8255 B - spkr, etc
  106. 6FAA:0011  8B 0E 003A                mov    cx,data_5        ; (6FAA:003A=64h)
  107.   
  108. 6FAA:0015            locloop_7:                    ;  xref 6FAA:0015
  109. 6FAA:0015  E2 FE                loop    locloop_7        ; Loop if cx > 0
  110.   
  111. 6FAA:0017  24 FD                and    al,0FDh
  112. 6FAA:0019  EE                    out    dx,al            ; port 61h, 8255 B - spkr, etc
  113. 6FAA:001A  8B 0E 003A                mov    cx,data_5        ; (6FAA:003A=64h)
  114.   
  115. 6FAA:001E            locloop_8:                    ;  xref 6FAA:001E
  116. 6FAA:001E  E2 FE                loop    locloop_8        ; Loop if cx > 0
  117.   
  118. 6FAA:0020  4B                    dec    bx
  119.      testyn.lst      TESTYN v1.02(c) 1988 V Communica     Sourcer Listing v1.93     1-Jan-80  12:32 am   Page 3
  120.  
  121. 6FAA:0021  75 EB                jnz    loc_6            ; Jump if not zero
  122. 6FAA:0023  FB                    sti                ; Enable interrupts
  123. 6FAA:0024 .BA 002C                mov    dx,offset data_3    ; (6FAA:002C=59h)
  124. 6FAA:0027  B4 09                mov    ah,9
  125. 6FAA:0029  CD 21                int    21h            ; DOS Services  ah=function 09h
  126.                                         ;  display char string at ds:dx
  127. 6FAA:002B  CB                    retf                ; Return far
  128.                 sub_1        endp
  129.   
  130. 6FAA:002C  59 65 73 20 6F 72    data_3        db    'Yes or No ?$'        ;  xref 6FAA:0024, 0029
  131. 6FAA:0032  20 4E 6F 20 3F 24
  132. 6FAA:0038  0061            data_4        dw    61h            ;  xref 6FAA:0003
  133. 6FAA:003A  0064            data_5        dw    64h            ;  xref 6FAA:0011, 001A
  134. 6FAA:003C  0050            data_6        dw    50h            ;  xref 6FAA:000A
  135.   
  136.                 seg_c        ends
  137.   
  138.   
  139.   
  140.                         end    start
  141.      testyn.lst      TESTYN v1.02(c) 1988 V Communica     Sourcer Listing v1.93     1-Jan-80  12:32 am   Page 4
  142.  
  143.   
  144.                 ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ CROSS REFERENCE - KEY ENTRY POINTS ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  145.   
  146.                     seg:off    type       label
  147.                    ---- ----   ----   ---------------
  148.                    6F99:0000   far    start
  149.   
  150.