���X;ASM,#-,#D:PLAYER.OBJ X;SAVE#D:PLAYER.M65EI F(!X;The Antic Sampling Processor2"X;Programmed By Steven Lashower<"X;Revision 4-06-89 Version 1.0F"X;(C) 1989 ArgoSoft ProductionsP X;(C) 1989 ANTIC PublishingZ%X;SAMPLE PLAYER ROUTINES FOR BASICd&X;A=USR(1536,Rate,Strt,End,Col,Bms)n X;Where: R=Sample Play Speedx#X; S=Start Addrs of Sample�#X; E=End Address of Sample�$X; C=Color Disp(1=On 0=Off)�$X; B=Back-Mskng(1=On 0=Off)�X;�X;--------------�X;System Equates�X;--------------� � �SPEED� �CURMEM� �X;-------------------�X;Sample Play RoutineX;------------------- �BEGIN77;;DISCARD HI"7, P�SPEED67@ P�MEMSTRJ7;;DISCARD LOT7^ P�MEMENDh7;;DISCARD LOr7;;DISCARD HI|7� P�COLORS�7�7� P�BMSKNG�7�7�P���NOTESCQ>� P�CURMEM� Q�MEMSTR�P�CURMEM� �PBQ>�P��PB0Q�BMSKNGF�PB1 Q�MEMEND&P�CURMEM0Q>: P�CURMEMD�PB1$�SPEEDN F�PB19X �DEL;;Delay...b �PB19%>lQ@�CURMEM7;;Get datav>� %�BMSKNG� H�PB20�W?�W?�W?�W?� �PB20M>;;Get left nibble�L>;;Noise only...�P�;;Echo to speaker�R>� %�COLORS�P�8�A %�BMSKNG F�PB21W? W?*W?4W?> !�PB22H �PB21M>RL>\�PB22$�SPEEDfF�PB3p �DEL;;Get delay...z �PB3P�;;Echo to speaker� %�COLORS�P�8�Q ТR>� F�FINI��D4Q�BMSKNG�F�D5� "�CURMEM� Q�CURMEM�R>��H�PB1�$�CURMEM� (�MEMSTR F�FINI"�CURMEM!�PB1$�D5#�CURMEM.F�D518H�PB0B�D51#�CURMEML$�CURMEMV (�MEMEND` F�FINIjH�PB1t �FINIQ>@~P�;;Restore VBIs�Q>";;and screen DMA�PԜQ>��PҰ:��DEL0�H�DEL�:� �COLORS;;Colors On/Off� �BMSKNG;;B-Masking " "��MEMSTR;;Memory Start��MEMEND;;Memory End
Back to previous page