home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0000 - 0009 / ibm0000-0009 / ibm0003.tar / ibm0003 / SRCR215.ZIP / TESTYN.LST < prev    next >
Encoding:
File List  |  1989-11-27  |  5.1 KB  |  150 lines
  1.       testyn.lst      TESTYN v1.02(c) 1988 V Communica     Sourcer Listing v2.15    27-Nov-89   7:37 pm   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 Options 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. 79FD:0000            start:
  34. 79FD:0000  EB 26                jmp    short loc_1        ; (0028)
  35. 79FD:0002  54 45 53 54 59 4E            db    'TESTYN v1.02'
  36. 79FD:0008  20 76 31 2E 30 32
  37. 79FD:000E  28 63 29 20 31 39    copyright    db    '(c) 1988 V Communications'
  38. 79FD:0014  38 38 20 56 20 43
  39. 79FD:001A  6F 6D 6D 75 6E 69
  40. 79FD:0020  63 61 74 69 6F 6E
  41. 79FD:0026  73
  42. 79FD:0027  00                    db    0
  43. 79FD:0028            loc_1:                        ;  xref 79FD:0000, 003B
  44. 79FD:0028  B4 08                mov    ah,8
  45. 79FD:002A  CD 21                int    21h            ; DOS Services  ah=function 08h
  46.                                         ;  get keybd char al, no echo
  47. 79FD:002C  0C 60                or    al,60h            ; '`'
  48. 79FD:002E  3C 79                cmp    al,79h            ; 'y'
  49. 79FD:0030  74 0B                je    loc_3            ; Jump if equal
  50. 79FD:0032  3C 6E                cmp    al,6Eh            ; 'n'
  51. 79FD:0034  74 0B                je    loc_4            ; Jump if equal
  52. 79FD:0036  9A 7A0E:0000                call    far ptr sub_1        ; (7A0E:0000)
  53. 79FD:003B  EB EB                jmp    short loc_1        ; (0028)
  54. 79FD:003D            loc_3:                        ;  xref 79FD:0030
  55. 79FD:003D  B0 01                mov    al,1
  56. 79FD:003F  EB 02                jmp    short loc_5        ; (0043)
  57. 79FD:0041            loc_4:                        ;  xref 79FD:0034
  58. 79FD:0041  32 C0                xor    al,al            ; Zero register
  59. 79FD:0043            loc_5:                        ;  xref 79FD:003F
  60.      testyn.lst      TESTYN v1.02(c) 1988 V Communica     Sourcer Listing v2.15    27-Nov-89   7:37 pm   Page 2
  61.  
  62. 79FD:0043  B4 4C                mov    ah,4Ch            ; 'L'
  63. 79FD:0045  CD 21                int    21h            ; DOS Services  ah=function 4Ch
  64.                                         ;  terminate with al=return code
  65. 79FD: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. 7A02: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:     79FD:0036
  93.                 ;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  94.   
  95.                 sub_1        proc    far
  96. 7A0E:0000  0E                    push    cs
  97. 7A0E:0001  1F                    pop    ds
  98. 7A0E:0002  FA                    cli                ; Disable interrupts
  99. 7A0E:0003  8B 16 0038                mov    dx,data_5        ; (7A0E:0038=61h)
  100. 7A0E:0007  EC                    in    al,dx            ; port 61h, 8255 port B, read
  101. 7A0E:0008  24 FE                and    al,0FEh
  102. 7A0E:000A  8B 1E 003C                mov    bx,data_7        ; (7A0E:003C=50h)
  103. 7A0E:000E            loc_6:                        ;  xref 7A0E:0021
  104. 7A0E:000E  0C 02                or    al,2
  105. 7A0E:0010  EE                    out    dx,al            ; port 61h, 8255 B - spkr, etc
  106. 7A0E:0011  8B 0E 003A                mov    cx,data_6        ; (7A0E:003A=64h)
  107.   
  108. 7A0E:0015            locloop_7:                    ;  xref 7A0E:0015
  109. 7A0E:0015  E2 FE                loop    locloop_7        ; Loop if cx > 0
  110.   
  111. 7A0E:0017  24 FD                and    al,0FDh
  112. 7A0E:0019  EE                    out    dx,al            ; port 61h, 8255 B - spkr, etc
  113. 7A0E:001A  8B 0E 003A                mov    cx,data_6        ; (7A0E:003A=64h)
  114.   
  115. 7A0E:001E            locloop_8:                    ;  xref 7A0E:001E
  116. 7A0E:001E  E2 FE                loop    locloop_8        ; Loop if cx > 0
  117.   
  118. 7A0E:0020  4B                    dec    bx
  119.      testyn.lst      TESTYN v1.02(c) 1988 V Communica     Sourcer Listing v2.15    27-Nov-89   7:37 pm   Page 3
  120.  
  121. 7A0E:0021  75 EB                jnz    loc_6            ; Jump if not zero
  122. 7A0E:0023  FB                    sti                ; Enable interrupts
  123. 7A0E:0024 .BA 002C                mov    dx,offset data_4    ; (7A0E:002C=59h)
  124. 7A0E:0027  B4 09                mov    ah,9
  125. 7A0E:0029  CD 21                int    21h            ; DOS Services  ah=function 09h
  126.                                         ;  display char string at ds:dx
  127. 7A0E:002B  CB                    retf                ; Return far
  128.                 sub_1        endp
  129.   
  130. 7A0E:002C  59 65 73 20 6F 72    data_4        db    'Yes or No ?$'        ;  xref 7A0E:0024, 0029
  131. 7A0E:0032  20 4E 6F 20 3F 24
  132. 7A0E:0038  0061            data_5        dw    61h            ;  xref 7A0E:0003
  133. 7A0E:003A  0064            data_6        dw    64h            ;  xref 7A0E:0011, 001A
  134. 7A0E:003C  0050            data_7        dw    50h            ;  xref 7A0E:000A
  135.   
  136.                 seg_c        ends
  137.   
  138.   
  139.   
  140.                         end    start
  141.      testyn.lst      TESTYN v1.02(c) 1988 V Communica     Sourcer Listing v2.15    27-Nov-89   7:37 pm   Page 4
  142.  
  143.   
  144.                 ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ CROSS REFERENCE - KEY ENTRY POINTS ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  145.   
  146.                     seg:off    type       label
  147.                    ---- ----   ----   ---------------
  148.                    79FD:0000   far    start
  149.   
  150.