þþäX;ASM,#-,#D:PLAYER.OBJ X;SAVE#D:PLAYER.M65EIF(!X;The Antic Sampling Processor2"X;Programmed By Steven Lashower<"X;Revision 4-06-89 Version 1.0F"X;(C) 1989 ArgoSoft ProductionsPX;(C) 1989 ANTIC PublishingZ%X;SAMPLE PLAYER ROUTINES FOR BASICd&X;A=USR(1536,Rate,Strt,End,Col,Bms)nX;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†COLORS7š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