10 EXEC &H6C00
20 ALL
30 *PROTOTYPE SAMPLER INTO 128K SRAM*
40 @DDR EQU 56
50 @OFF EQU 60
60 @ACT EQU 44
70 @EXTMSR EQU 1
80 @READ EQU 2
90 @WRIT EQU 6
100 @EXTLSR EQU 8
110 @OUT EQU 255
120 @OUTB EQU 15
130 @IOA EQU $34
140 @CRA EQU $35
150 @IOB EQU $36
160 @CRB EQU $37
170 @REC JSR $89AA
180 JSR $8E51
190 PSHS B
200 JSR $89AA
210 JSR $8E83
220 PSHS X
230 JSR $89AA
240 JSR $8E83
250 PSHS X
260 LDB #$FF
270 TFR B,DP
280 LDA #@DDR
290 STA >@CRB
300 STA >@CRA
310 LDA #@OUTB
320 STA >@IOB
330 LDA #@OFF
340 STA >@CRB
350 CLR >@IOB
360 LDA #@OUT
370 STA >@IOA
380 LDA #@ACT
390 STA >@CRA
400 CLR >$39
410 CLR >$38
420 LDA #47
430 STA >$39
440 ORCC #$50
450 LDA >$38
460 @LOOP1 LDA #@EXTMSR
470 STA >@IOB
480 LDD 2,S
490 CMPD ,S
500 BHI @END
510 STA >@IOA
520 LDA >@IOA
530 LDA #@EXTLSR
540 STA >@IOB
550 STB >@IOA
560 LDA >@IOA
570 LDA #@WRIT
580 STA >@IOB
590 CLRB
600 @LOOP2 TST >$39
610 BPL @LOOP2
620 LDA >$38
630 STA >@IOA
640 LDA >@IOA
650 LDA 4,S
660 @SPLOT DECA
670 BNE @SPLOT
680 DECB
690 BNE @LOOP2
700 INC 3,S
710 BNE @LOOP1
720 INC 2,S
730 BRA @LOOP1
740 @END CLRB
750 TFR B,DP
760 LEAS 5,S
770 RTS
780 @PLAY JSR $89AA
790 JSR $8E51
800 PSHS B
810 JSR $89AA
820 JSR $8E83
830 PSHS X
840 JSR $89AA
850 JSR $8E83
860 PSHS X
870 CLRB
880 JSR $BD41
890 LDB #$FF
900 TFR B,DP
910 LDA #@DDR
920 STA >@CRB
930 LDA #@OUTB
940 STA >@IOB
950 LDA #@OFF
960 STA >@CRB
970 CLR >@IOB
980 LDA >$23
990 ORA #8
1000 STA >$23
1010 ORCC #$50
1020 @LOOP3 LDA #@DDR
1030 STA >@CRA
1040 LDA #@OUT
1050 STA >@IOA
1060 LDA #@ACT
1070 STA >@CRA
1080 LDA #@EXTMSR
1090 STA >@IOB
1100 LDD 2,S
1110 CMPD ,S
1130 BHS @ENDPLAY
1140 STA >@IOA
1150 LDA >@IOA
1160 LDA #@EXTLSR
1170 STA >@IOB
1180 STB >@IOA
1190 LDA >@IOA
1200 LDA #@DDR
1210 STA >@CRA
1220 CLR >@IOA
1230 LDA #@ACT
1240 STA >@CRA
1250 LDA #@READ
1260 STA >@IOB
1270 CLRB
1280 @LOOP4 LDA >@IOA
1290 STA >$20
1300 LDA 4,S
1310 @SPLAT DECA
1320 BNE @SPLAT
1330 DECB
1335 NOP
1340 BNE @LOOP4
1350 INC 3,S
1360 BNE @LOOP3
1370 INC 2,S
1380 BRA @LOOP3
1390 @ENDPLAY CLRB
1400 TFR B,DP
1410 LEAS 5,S
1420 RTS
1430 END @REC