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