Product specifications

CASPORT EQU 3+OFFSET

SNDPTI EQU 3+OFFSET

DRIVE EQU 5+OFFSET

SNDPT0 EQU 6+OFFSET

SENSE2 EQU 6+OFFSET

PORT EQU 8+OFFSET

CASonOF EQU 1FH

DELAY EQU 1500

;

;********** VARIABLES THAT YOU WILL NEED **********

;

CASBAUD: DB 40H

MIDVAL: DB 0B0H

TYPE: DS 1

;

;IJHIGH/IJLOW POINTERS TO START OF CASSET ROUTINE

:(IE THE I/O POINT CASSET)

;USED BY CTC CHIP AND MUST BE ON AN 8 BYTE BOUNDARY

; *******

;

IJHIGH EQU (HIGH BYTE)

IJLOW EQU (LOW BYTE)

;

;*********************************************************************************

;

;**********START OF CASSETTE INTERFACE***********

;

;Interrupt routine – toggles carry flag

;

TOGGLE: CCF

RETI

;

BLIP:

EX AF, AF’

XOR OFH

OUT (SNDPTO),A ;makes a noise

EX AF,AF’

IN A,(SNDPTI)

RET

;

INBIT::

CALL BLIP

XOR A ;Carry flag cleared