!Basic Test Program for Sprint II



INCLUDE "6502.POD"



SETUP

   POD 6502



ADDRESS SPACE INFORMATION

   RAM @ 0000-07FF		! PROGRAM RAM - 2102 DRAM

   ROM @ 2000-27FF SIG B0FC	! TRACK ROM - 6290

   ROM @ 2800-2FFF SIG A197	! TRACK ROM - 6291

   ROM @ 3000-37FF SIG 092C	! PROGRAM ROM - 6404

   ROM @ 3800-3FFF SIG EB50	! PROGRAM ROM -6405



PROGRAM TITLE



   DPY-SPRINT2 TEST PROGRAM

   Aux SPRINT2 TEST PROGRAM



REG8 = 60

EXECUTE PAUSE

EXECUTE MENU 



PROGRAM MENU



0: LABEL 0

   DPY-MENU 1=RAM 2=ROM /1

   Aux MENU 1=RAM 2=ROM

   IF REG1 = 1 GOTO 1

   IF REG1 = 2 GOTO 2

   

   GOTO 0

1: LABEL 1

   EXECUTE PROGRAM RAMTEST

   GOTO 0

2: LABEL 2

   EXECUTE PROGRAM ROMTEST

   GOTO 0



PROGRAM RAMTEST



   DPY-TESTING PROGRAM RAM @ R2 P2 #

   Aux TESTING PROGRAM RAM @ R2 P2

   RAM SHORT @ 0000-03FF



   DPY-RAM TESTING COMPLETE #

   Aux RAM TESTING COMPLETE



PROGRAM ROMTEST



0: LABEL 0

   DPY-ROM VERSION 1 OR 2? /1

   Aux ROM VERSION 1 OR 2?

   IF REG1 = 1 GOTO 1

   IF REG1 = 2 GOTO 2

   GOTO 0



1: LABEL 1

   DPY-TESTING TRACK ROM 6290 @ A1 #

   Aux TESTING TRACK ROM 6290 @ A1

   ROM TEST @ 2000-27FF SIG B0FC



   DPY-TESTING TRACK ROM 6291 @ C1 #

   Aux TESTING TRACK ROM 6291 @ C1

   ROM TEST @ 2800-2FFF SIG A197



   DPY-TESTING PROGRAM ROM 6404 @ D1 #

   Aux TESTING PROGRAM ROM 6404 @ D1

   ROM TEST @ 3000-37FF SIG 092C



   DPY-TESTING PROGRAM ROM 6405 @ E1 #

   Aux TESTING PROGRAM ROM 6405 @ E1

   ROM TEST @ 3800-3FFF  SIG EB50



DPY-ROM TEST COMPLETE #

Aux ROM TEST COMPLETE



2: LABEL 7

   DPY-TESTING TRACK ROM 6290 @ A1 #

   Aux TESTING TRACK ROM 6290 @ A1

   ROM TEST @ 2000-27FF SIG B0FC



   DPY-TESTING TRACK ROM 6291 @ C1 #

   Aux TESTING TRACK ROM 6291 @ C1

   ROM TEST @ 2800-2FFF SIG A197



   DPY-TESTING PROGRAM ROM 6404 @ D1 #

   Aux TESTING PROGRAM ROM 6404 @ D1

   ROM TEST @ 3000-37FF SIG 092C



   DPY-TESTING PROGRAM ROM 6405 @ E1 #

   Aux TESTING PROGRAM ROM 6405 @ E1

   ROM TEST @ 3800-3FFF  SIG EB50





   DPY-ROM TEST COMPLETE #

   Aux ROM TEST COMPLETE





!!!!!! Pause Routine !!!!!!!!!!!!!!!



PROGRAM PAUSE



REG2 = REG8

	DLOOP:

	DEC REG2

	IF REG2 > 0 GOTO DLOOP