home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / ASSEMBLY / APL2EM.ZIP / CASSETTE.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-03-30  |  2.8 KB  |  110 lines
  1.     Page    58,132
  2.     Title    CASSETTE.ASM    Apple Emulator Cassette Routine
  3. ;******************************************************************************
  4. ;
  5. ;   Name:    CASSETTE.ASM    Apple Emulator Cassette Routines
  6. ;
  7. ;   Group:    Emulator
  8. ;
  9. ;   Revision:    1.00
  10. ;
  11. ;   Date:    January 30, 1988
  12. ;
  13. ;   Author:    Randy W. Spurlock
  14. ;
  15. ;******************************************************************************
  16. ;
  17. ;  Module Functional Description:
  18. ;
  19. ;        This module contains all the code for the Apple cassette
  20. ;    routines.
  21. ;
  22. ;******************************************************************************
  23. ;
  24. ;  Changes:
  25. ;
  26. ;    DATE     REVISION                DESCRIPTION
  27. ;  --------   --------    -------------------------------------------------------
  28. ;   1/30/88    1.00    Original
  29. ;
  30. ;******************************************************************************
  31.     Page
  32. ;
  33. ;  Public Declarations
  34. ;
  35.     Public    Cassette_Toggle     ; Toggle cassette output routine
  36.     Public    Cassette_Input        ; Cassette input routine
  37. ;
  38. ;  External Declarations
  39. ;
  40. ;    extrn                ;                 (    )
  41. ;
  42. ;  LOCAL Equates
  43. ;
  44. ;        Equ            ;
  45. ;
  46. ;  Define any include files needed
  47. ;
  48.     Include     Macros.inc    ; Include the macro definitions
  49.     Include     Equates.inc    ; Include the equate definitions
  50.     .286c                ; Include 80286 instructions
  51.     Page
  52. ;
  53. ;  Define the emulator code segment
  54. ;
  55. Emulate Segment Word Public 'EMULATE'   ; Emulator code segment
  56.     Assume    cs:Emulate, ds:Nothing, es:Nothing
  57.     Subttl    Cassette_Toggle Toggle Cassette Output Routine
  58.     Page    +
  59. ;******************************************************************************
  60. ;
  61. ;    Cassette_Toggle()
  62. ;
  63. ;
  64. ;        Return to the caller
  65. ;
  66. ;    Registers on Entry:
  67. ;
  68. ;        None
  69. ;
  70. ;    Registers on Exit:
  71. ;
  72. ;        None
  73. ;
  74. ;******************************************************************************
  75.         Even            ; Force procedure to even address
  76. Cassette_Toggle Proc    Near        ; Toggle cassette output procedure
  77.  
  78.     ret                ; Return to the caller
  79. Cassette_Toggle Endp            ; End of the Cassette_Output procedure
  80.     Subttl    Cassette_Input    Cassette Input Routine
  81.     Page    +
  82. ;******************************************************************************
  83. ;
  84. ;    Cassette_Input()
  85. ;
  86. ;
  87. ;        Return to the caller
  88. ;
  89. ;    Registers on Entry:
  90. ;
  91. ;        None
  92. ;
  93. ;    Registers on Exit:
  94. ;
  95. ;        None
  96. ;
  97. ;******************************************************************************
  98.         Even            ; Force procedure to even address
  99. Cassette_Input    Proc    Near        ; Cassette input procedure
  100.  
  101.     ret                ; Return to the caller
  102. Cassette_Input    Endp            ; End of the Cassette_Input procedure
  103. ;******************************************************************************
  104. ;
  105. ;    Define the end of the Emulator Code Segment
  106. ;
  107. ;******************************************************************************
  108. Emulate Ends
  109.     End                ; End of the Cassette module
  110.