Product specifications

;
;
RESint: CALL INJINIT
LD A,55H
OUT (CASonOFF),a
RET
;
;
;
;Routine to set CTC interrupts going
;Routine Z if saving, NZ if loading/verifying
;
SETint: CALL IJINIT
PUSH HL
LD HL,TOGGLE
LD (IJTABLE+2),HL
LD (IJTABLE+6),HL
POP HL
LD IX,MIDVAL
LD A,0AAH
OUT (CASonOFF),A
LD C,PORT+3
LD B,0C5H ;Assume loading
LD A,(TYPE)
AND A
JR NZ,SETin1 ;Jump if A = 1 ie loading
LD C,PORT+1
LD A, (CASBAUD)
SETin1: OUT (C),B
OUT (C),A
EI
RETI ;Clear interrupts and return
;
;Init CTC and set all channels to
;disable interrupts and software reset
;
ijinit:: DI
IM 2
LD A,IJHIGH
LD I,A
LD A,IJLOW
OUT (PORT),A
KILLINT:: LD A,3
KILLO: OUT (PORT),A
OUT (PORT+1),A
OUT (PORT+2),A
OUT (PORT+3),A
RETI