!Basic Test Program for wARP WARP

INCLUDE "8080.POD"

SETUP
   POD 8080

ADDRESS SPACE INFORMATION
   RAM @ 0000-07FF	! PROGRAM RAM - 2114 SRAM
   RAM @ 2000-2FFF	! VECTOR RAM -2114 SRAM

PROGRAM TITLE

   DPY-wARP WARP TEST PROGRAM
   Aux WARP WARP TEST PROGRAM

REG8 = 60
EXECUTE PAUSE
EXECUTE MENU 

PROGRAM MENU

0: LABEL 0
   DPY-MENU 1=RAM 2=ROM 3=XX /1
   Aux MENU 1=RAM 2=ROM 3=XX
   IF REG1 = 1 GOTO 1
   IF REG1 = 2 GOTO 2
   IF REG1 = 3 GOTO 3
   
   GOTO 0
1: LABEL 1
   EXECUTE PROGRAM RAMTEST
   GOTO 0
2: LABEL 2
   EXECUTE PROGRAM ROMTEST
   GOTO 0
3: LABEL 3
   EXECUTE PROGRAM XXTEST
   GOTO 0


PROGRAM RAMTEST

   DPY-TESTING PROGRAM RAM @ R2 P2 #
   Aux TESTING PROGRAM RAM @ R2 P2
   RAM SHORT @ 0000-03FF

   DPY-TESTING PROGRAM RAM @ R4 P4 #
   Aux TESTING PROGRAM RAM @ R4 P4
   RAM SHORT @ 0400-07FF

   DPY-TESTING VECTOR RAM @ J3 J4 #
   Aux TESTING VECTOR RAM @ J3 J4
   RAM SHORT @ 2000-23FF
   
   DPY-TESTING VECTOR RAM @ K3 K4 #
   Aux TESTING VECTOR RAM @ K3 K4
   RAM SHORT @ 2400-27FF

   DPY-TESTING VECTOR RAM @ L3 L4 #
   Aux TESTING VECTOR RAM @ L3 L4
   RAM SHORT @ 2800-2BFF
   
   DPY-TESTING VECTOR RAM @ M3 M4 #
   Aux TESTING VECTOR RAM @ M3 M4
   RAM SHORT @ 2C00-2FFF

   DPY-RAM TESTING COMPLETE #
   Aux RAM TESTING COMPLETE

PROGRAM ROMTEST

0: LABEL 0
   DPY-ROM VERSION 1 - 2 or 3? /1
   Aux ROM VERSION 1 - 2 or 3?
   IF REG1 = 1 GOTO 1
   IF REG1 = 2 GOTO 2
   IF REG1 = 2 GOTO 3
   GOTO 0

1: LABEL 1
   DPY-TESTING ROM G9601 @ 2R #
   Aux TESTING ROM G9601 @ 2R
   ROM TEST @ 0000-0FFF SIG 2834

   DPY-TESTING ROM G9602 @ 2M #
   Aux TESTING ROM G9602 @ 2M
   ROM TEST @ 1000-1FFF SIG E722

   DPY-TESTING ROM G9603 @ 1P #
   Aux TESTING ROM G9603 @ 1P
   ROM TEST @ 2000-2FFF SIG 82CB

   DPY-TESTING ROM G9613 @ 1T #
   Aux TESTING ROM G9613 @ 1T
   ROM TEST @ 3000-37FF SIG 900B

   DPY-TESTING ROM G9611 @ 4C #
   Aux TESTING ROM G9611 @ 4C
   ROM TEST @ 4800-4FFF SIG 3008

   DPY-ROM TEST COMPLETE #
   Aux ROM TEST COMPLETE

2: LABEL 2
   DPY-TESTING ROM G9601 @ 2R #
   Aux TESTING ROM G9601 @ 2R
   ROM TEST @ 0000-0FFF SIG 2834

   DPY-TESTING ROM G9602 @ 2M #
   Aux TESTING ROM G9602 @ 2M
   ROM TEST @ 1000-1FFF SIG E722

   DPY-TESTING ROM G9603 @ 1P #
   Aux TESTING ROM G9603 @ 1P
   ROM TEST @ 2000-2FFF SIG 82CB

   DPY-TESTING ROM G9613 @ 1T #
   Aux TESTING ROM G9613 @ 1T
   ROM TEST @ 3000-37FF SIG 900B

   DPY-TESTING ROM G9611 @ 4C #
   Aux TESTING ROM G9611 @ 4C
   ROM TEST @ 4800-4FFF SIG 3008

   DPY-ROM TEST COMPLETE #
   Aux ROM TEST COMPLETE

3: LABEL 3
   DPY-TESTING ROM G9601 @ 2R #
   Aux TESTING ROM G9601 @ 2R
   ROM TEST @ 0000-0FFF SIG 2834

   DPY-TESTING ROM G9602 @ 2M #
   Aux TESTING ROM G9602 @ 2M
   ROM TEST @ 1000-1FFF SIG E722

   DPY-TESTING ROM G9603 @ 1P #
   Aux TESTING ROM G9603 @ 1P
   ROM TEST @ 2000-2FFF SIG 82CB

   DPY-TESTING ROM G9613 @ 1T #
   Aux TESTING ROM G9613 @ 1T
   ROM TEST @ 3000-37FF SIG 900B

   DPY-TESTING ROM G9611 @ 4C #
   Aux TESTING ROM G9611 @ 4C
   ROM TEST @ 4800-4FFF SIG 3008

   DPY-ROM TEST COMPLETE #
   Aux ROM TEST COMPLETE

PROGRAM xxTEST

   DPY-DEVELOPING CONT
   STOP
   WRITE @ 2000 = 40
   WRITE @ 2001 = 80
   WRITE @ 2002 = 00
   WRITE @ 2003 = 70
   WRITE @ 2004 = 00
   WRITE @ 2005 = 1E
   WRITE @ 2006 = 00
   WRITE @ 2007 = 60
   WRITE @ 2008 = FF
   WRITE @ 2009 = 60
   WRITE @ 200A = FF
   WRITE @ 200B = 03
   WRITE @ 200C = FF
   WRITE @ 200D = 03
   WRITE @ 200E = 00
   WRITE @ 200F = 62
   WRITE @ 2010 = 40
   WRITE @ 2011 = 80
   WRITE @ 2012 = 80
   WRITE @ 2013 = 00
   WRITE @ 2014 = 00
   WRITE @ 2015 = 00
   WRITE @ 2016 = 01
   WRITE @ 2017 = 1F
   WRITE @ 2018 = 00
   WRITE @ 2019 = 40
   WRITE @ 201A = 80
   WRITE @ 201B = 00
   WRITE @ 201C = 80
   WRITE @ 201D = 1F
   WRITE @ 201E = 00
   WRITE @ 201F = 00
   WRITE @ 2020 = FF
   WRITE @ 2021 = 40
   WRITE @ 2022 = 00
   WRITE @ 2023 = E0
   
   DPY-CONFIRM PLUS PATTERN. CONT#
   Aux CONFIRM PLUS PATTERN. CONT
   DPY-+=EXIT%1#
0: LABEL 0
   WRITE @ 3000 = 00
   IF REG1 = 25 GOTO 2
   GOTO 0
2: LABEL 2
   DPY-##


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

PROGRAM PAUSE

REG2 = REG8
	DLOOP:
	DEC REG2
	IF REG2 > 0 GOTO DLOOP