home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Set of Apple II Hard Drive Images
/
eric.hdv
/
OBJTEST
/
TESTPLAN1.txt
< prev
next >
Wrap
Text File
|
2020-08-13
|
4KB
|
124 lines
*** OBJECT TESTPLAN: INTRFACE
=============================
; METHODS:
;
; Change slot to n 'S' <byte for slot # 0-7>
; Initialize interface 'I'
; Transmit byte(s) now 'X' <#bytes> <bytes>
;
; Initialize timer 'Z'
; Set tempo 'T' <hi-byte> <lo-byte>
; Activate Timer 'A'
; Deactivate Timer 'D'
; Set up Interrupt handler 'H' <obj #>
; Kill Interrupt Handler 'K'
;
;
; INTERNAL DATA MAINTAINED BY OBJECT:
;
MIDISLOT DFB $20 ;DEFAULT=SLOT 2
TIMERH DFB $08
TIMERL DFB $88
;
MSGLEN DFB $00
MSGCTR DFB $00
INTHOBJ DFB $01
PULSMSG ASC 'P'
ALINMSG ASC 'A'
DFB >INTHAND,<INTHAND,$00
DEINMSG ASC 'D'
INTNUMSV DFB $00
;
TESTS:
=====
S,4 : MIDISLOT CHANGES TO $40
S,2 : MIDISLOT CHANGES BACK TO 2
I : INTERFACE INITIALIZED
X 2 C0 09 : PROGRAM CHANGES TO #9 (LOOK AT MSGLEN,MSGCTR)
X 9 90 40 40 90 43 40 : CHORD E,G HEARD
Z : TIMER INITIALIZED
T 11 22 : TEMPO CHANGES TO 11 22 (LOOK AT TIMERH,L)
(LOAD IN TESTCLICK OBJECT)
H 1 : INTERRUPT HOOK ESTABLISHED AND ALLOCATED
(CHECK PRODOS INTERRUPT VECTORS @ BF80 BEFORE & AFTER)
A : CLICKS HEARD IN BACKGROUND
T 10 00 : FREQUENCY CHANGES
D : CLICKS STOP
K : INTERRUPT HOOK DEALLOCATED (CHECK BF80)
(RELOCATE & RETEST)
*** OBJECT TESTPLAN: INTERRUPT
;==========================================
; METHODS:
;
; Allocate the interrupt: 'A' <ADRS LO><ADRS HI><RETURNS INT#>
; Deallocate the interrupt: 'D' <INT#>
;
;==========================================
; INTERNAL DATA MAINTAINED BY OBJECT:
;
ALLOCPRM DFB $02 ;PARM AREA FOR ALLOC INTERRUPT
ALINTNUM DFB $00 ;INTERRUPT NUMBER
ALLADRSL DFB $00 ;LOW BYTE OF INTERRUPT HANDLER ADRS
ALLADRSH DFB $00 ;HI BYTE OF INTERRUPT HANDLER ADRS
;
DEALPRM DFB $01 ;PARM AREA FOR DEALLOC INTERRUPT
DEINTNUM DFB $00
;
PULSEMSG ASC 'P'
;
MLI1 JSR MLI
DFB $41
MLI1ADRL DFB $00
MLI1ADRH DFB $00
CLV
BVC MLI1X
;
MLI2 JSR MLI
DFB $40
MLI2ADRL DFB $00
MLI2ADRH DFB $00
CLV
BVC MLI2X
;
;==========================================
TESTS:
A 03 00 : ALLOCATES INT #1 (RETURNS 1)
A 20 75 : ALLOCATES INT #2
A 30 00 : ALLOCATES INT #3
A 40 00 : ALLOCATES INT #4
A 50 00 : ABENDS - MLI CODE = $25
D 2 : DEALLOCATES #2
D 5 : ABENDS - MLI CODE = $53
D 2 : NO EFFECT ( DEALLOCATES 2 AGAIN)
D 3 : DEALLOCATES #3
D 4 : DEALLOCATES #4
*** OBJECT TESTPLAN: AUXQUEUE
;==========================================
; METHODS:
; 'E' <BYTE> = ENQUE BYTE
; 'D' <BYTE> = DEQUEUE INTO BYTE
;
;==========================================
;------------INTERNAL DATA MAINTAINED BY OBJECT
;
QINSREG DFB $00
QOUTREG DFB $00 ;OUTPUT DATA REGISTER
;
QBEGIN DFB $00,$08 ;AUX MEM BEGIN OF QUEUE
QEND DFB $00,$C0 ;AUX MEM END OF QUEUE + 1
QSTAT DFB $00 ;QUEUE STATUS: 0=EMPTY, FF=FULL, 1=IN USE
QHEAD DFB $00,$08 ;HEAD POINTER
QTAIL DFB $00,$08 ;TAIL POINTER
;
TESTS:
-----
E 10 : HEAD = 801
D : TAIL = 801, RETURNS 10
D : RETURN CODE 254 - QUEUE EMPTY
(DO 50000 ENQUES) : RETURN CODE 255 - QUEUE FULL