��� X;ASM,#-,#D:PLAYER.OBJ X;SAVE#D:PLAYER.M65 EI 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