sample8js:

005 rem c128 basic sample player v0.8js
006 rem original concept by robin @ 8-bit show and tell
007 rem modified by jeffery stone (jefferystone@yahoo.com) to use "raw2play"
008 rem *** change filename in line 30 ***
009 rem
010 rem a$ must first variable for "raw2play"
020 a$="abcdefghijklmnopq":a$=a$+a$+a$+a$+a$:a$=a$+a$+a$
030 fi$="robin.raw"
040 md=175:dim v$(md):b=0 
050 bload"raw2play"
060 fast
070 dopen#1,(fi$):if ds <>0 then print"disk error: ";ds$:dclose#1:slow:stop
080 sys 4864: rem call raw2play routine 
090 rreg l:v$(b)=left$(a$,l)
100 if st=0 and b<md then b=b+1:goto 80
110 dclose#1
120 slow
130 rem * playback *
140 fast
150 forc=0tob:playv$(c):next
160 slow
:

-----

mklookuptable:

1000 rem mklookuptable - pre-calculate pc% array lookup table (using byte/25.6)
1010 print chr$(147):print"displays lookup table for byte/25.6":print
1020 print"change xxx to linenumber":print"and hit enter to save":print
1030 dim pc%(255):forx=0to255:pc%(x)=(asc(chr$(x))/25.6)+48:nextx
1040 print"xxx .asc ";chr$(34);:for r=0 to 127:print chr$(pc%(r));:nextr:print chr$(34):print
1050 print"xxx .asc ";chr$(34);:for r=128 to 255:print chr$(pc%(r));:nextr:print chr$(34):print
1060 end
:


---

raw2play.bud:

005 rem "raw2play.bud" - this ml code will read 255 bytes from logical channel #1 (opened by basic or another method)
006 rem and will save those bytes into the first variable defined in the basic program
010 rem 
015 rem i used buddy-system 128 to assemble "raw2play" ml file
020 rem to assemble:
025 rem 1.  dload"bud"
030 rem 2.  run
035 rem 3.  load"raw2play.bud",8 : or any other file you want to assemble
040 rem 4.  run 
045 rem 5.  "raw2play" ml file will be created on drive 8 (see .obj line below)
050 rem
055 rem to use:
060 rem 1.  define first variable in your basic program as a$ with 255 characters
065 rem 2.  dopen#1,"filename"
070 rem 3.  sys 4864 : reads up to 255 bytes and uses lookup table to convert to characters "0" through "9" into a$ (defined earlier)
075 rem 4.  rreg l : reads accumulator to store length of last read into variable l
080 rem 5.  left$(a$,l) : store into array string or whatever 
085 rem 6.  if st=0 then goto 3 : goto 3 to do it again until end of file (careful with possible out of memory if you don't limit) 
090 rem 7.  dclose#1
095 rem 
100 sys 4000 : default for buddy on c128
110 .org $1300 ; decimal 4864
120 .mem
130 .dis
140 .obj "@0:raw2play"
150 ; code taken and modified from:
160 ; commodore 128 machine language, part 4 
170 ; compute! issue 78 / november 1986 / page 78
180 ldy #$02
190 loop1 =*
200 lda #$2f
210 ldx #$01
220 jsr $ff74
230 sta $00f9,y
240 iny
250 cpy #$05
260 bne loop1
270 ldx #$01
280 jsr $ffc6
290 ldy #$00
300 call'ffcf =*
310 jsr $ffcf
320 tax
330 lda lookup,x
340 ldx #$fc
350 stx $02b9
360 ldx #$01
370 jsr $ff77
380 iny
390 cpy $fb
400 beq call'ffcc
410 lda $90
420 beq call'ffcf
430 call'ffcc =*
440 jsr $ffcc
450 tya
460 rts
470 lookup =*
480 ; next 2 lines created from "mklookuptable"     
490 .asc "00000000000000000000000000111111111111111111111111112222222222222222222222222333333333333333333333333334444444444444444444444444"
500 .asc "55555555555555555555555555666666666666666666666666667777777777777777777777777888888888888888888888888889999999999999999999999999"
510 .end
: