Spectravideo SVI 318 Service – Technical Manual page 31

10 REM Memory bank ram s i z e t e st p rogram
Ma k e su re you ha ve 64K ram ca rd
20 REM
One ha ve BK2 1 on , t he o ther ha ve BK31 on ,
30 REM
31 REM
40
CLEAR lO, & HDOOO
SQ I
60 B2 =&HD042:B3=&HD044
70 FOR K=&HDOOO TO B3
80 READ A $:POKE K , VAL ( " &H" +A$)
90 N EXT K
1 00 DEF USR 2 =& HD0 1 1 ' T EST BK 2 1
1 1 0 DEF USR3=&HD02B ' TEST B K 31
1 20 '---- IN IT RAM AREA
1 3 0 FOR I =B 2 TO B3+ 1
1 40 POKE I , O
150 NEXT I
1 60 A=US R3 ( 0 )
1 7 0 A=USR2 ( 0 )
18 0 PR INT" BAffi< 2 1 =" ; 2 5 6 * ( PEEK( B 2 + 1 ) ) +PEEK ( B2 )
1 90 PR INT''BANK 31 =" ; 2 56* ( P EEK( B3+ 1 ) ) + P EEK( B3 )
200 STOP
2 1 0 REM --- DATA ----
2 2 0 DATA 2 1 , 00 , 00 :REM ' CHKS I Z : LD HL , O ; 0- 7 FFFH
2 3 0 DATA 7 E
250 DATA 2F
260 DATA BE
2 7 0 DATA 2 F
2 80 DATA 77
290 DATA CO
3 00 DATA 23
3 1 0 DATA 7C
3 20 DATA FE , 80
3 3 0 DATA 20 , F3
I
3 40 DATA C9
I
3 50
I
PS G , PORTB: ROHENl, ROMENO, CAP , BK32 , BKJl , BK 2 2 , BK2 1 , CART
3 6 0
I
3 70
I
380 IN PSG DATA : 90H
1
3 90 OU T PSG DATA: 8CH
I
4 00 OUT PSG LATCH : 88H
410
42 0 DATA F3
43 0 DATA 3E , OF
440 DATA 03, 88
90
45 0 DATA DB ,
460 DATA 47
470 DATA E6 , FD
480 DATA D 3 , 8C
4 90 DATA 2 1 , 00 , 00 : REM
500 DATA CD, OO, DO :REM
I
I
:REM
CPL
I
LD ( HL ) , A ; WR ITE
:REM
I
:REM CP ( HL )
:REM CPL
: REM ' LD ( HL ) , A ; SAVE BACK
: REM '
RET NZ
1
1
INC HL
:REM
I
:REM LD A , H
:REM CP 8 0H
I
:REM ' JR NZ, CHKSZ1
:REM RET
D7 D6 05
I
:REM 1CHK2 1 : D I
:REM LD A , OFH
:REM ' OU T ( 88H ) , A
I
:REM ' IN A , ( 90H )
I
:REM LD B, A
I
:REM AND 1 1 1 1 1 1 0 1 B
I
: REl-1
OUT ( 8CH) , A
I
LD HL, OOOO
CALL
3.16
( i n
; EX I T FOR HL=8000
; HL= S IZE
D4 D3 D2 D l
: PORT B
LATCH
CURRENT BANK COND
B=OLD BANK COND
BANK 2 1 ON
no me a n ing
CHKSIZ R ESULT IN HL
32K op t i on )
DO