junglejourney

changeset 54:6cf850ec6261
Moved test programs into their own directory.
author: David Boddie <david@boddie.org.uk>
date: Tue Aug 23 02:03:25 2011 +0200
parents: 0646580cfe83
children: c749e19efb14
files: TESTEXITS TESTINEQ TESTSPRITES TESTVALUES tests/TESTEXITS tests/TESTINEQ tests/TESTSPRITES tests/TESTVALUES
diffstat: 8 files changed, 106 insertions(+), 106 deletions(-) [+]
[-]

TESTEXITS 16

TESTINEQ 43

TESTSPRITES 29

TESTVALUES 18

tests/TESTEXITS 16

tests/TESTINEQ 43

tests/TESTSPRITES 29

tests/TESTVALUES 18 TESTEXITS 16 TESTINEQ 43 TESTSPRITES 29 TESTVALUES 18 tests/TESTEXITS 16 tests/TESTINEQ 43 tests/TESTSPRITES 29 tests/TESTVALUES 18
TESTEXITS 16
TESTINEQ 43
     1.1 --- a/TESTEXITS	Tue Aug 23 02:02:57 2011 +0200
     1.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.3 @@ -1,16 +0,0 @@
     1.4 -AUTO
     1.5 -OSCLI("LOAD CODE")
     1.6 -
     1.7 -MODE 3
     1.8 -FOR Y%=0 TO 10
     1.9 -FOR X%=0 TO 10
    1.10 -?&78=Y%
    1.11 -?&79=X%
    1.12 -?&70=42
    1.13 -?&71=42
    1.14 -CALL &1B5E
    1.15 -PRINT TAB(X%*6,Y%);?&70;" ";?&71
    1.16 -NEXT
    1.17 -NEXT
    1.18 -
    1.19 -PRINT

     2.1 --- a/TESTINEQ	Tue Aug 23 02:02:57 2011 +0200
     2.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     2.3 @@ -1,43 +0,0 @@
     2.4 -AUTO
     2.5 -FOR T%=0 TO 2 STEP 2
     2.6 -P%=&1900
     2.7 -[OPT T%
     2.8 -
     2.9 -LDA &70
    2.10 -SEC
    2.11 -SBC #3
    2.12 -BMI neg     ; BCC
    2.13 -
    2.14 -CMP #2
    2.15 -BMI zero_one
    2.16 -
    2.17 -LDA #0
    2.18 -STA &71
    2.19 -RTS
    2.20 -
    2.21 -.zero_one
    2.22 -LDA #1
    2.23 -STA &71
    2.24 -RTS
    2.25 -
    2.26 -.neg
    2.27 -CMP #254
    2.28 -BPL minus_two_plus
    2.29 -
    2.30 -LDA #2
    2.31 -STA &71
    2.32 -RTS
    2.33 -
    2.34 -.minus_two_plus
    2.35 -LDA #3
    2.36 -STA &71
    2.37 -RTS
    2.38 -
    2.39 -]
    2.40 -NEXT
    2.41 -
    2.42 -FOR A%=0 TO 6
    2.43 -?&70=A%
    2.44 -CALL &1900
    2.45 -PRINT ?&70-3, ?&71
    2.46 -NEXT

     3.1 --- a/TESTSPRITES	Tue Aug 23 02:02:57 2011 +0200
     3.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     3.3 @@ -1,29 +0,0 @@
     3.4 -AUTO
     3.5 -OSCLI("LOAD CODE")
     3.6 -OSCLI("LOAD CHARS")
     3.7 -
     3.8 -MODE 5
     3.9 -VDU 23,1,0;0;0;0;
    3.10 -VDU 19,2,2;0;
    3.11 -VDU 19,3,3;0;
    3.12 -
    3.13 -PRINT TAB(0,3);
    3.14 -
    3.15 -?&70=0
    3.16 -?&71=&50
    3.17 -X%=19*16
    3.18 -Y%=0
    3.19 -
    3.20 -REPEAT
    3.21 -
    3.22 -?&70=(Y%*48)
    3.23 -?&71=&50
    3.24 -?&72=X%+(Y%*4)
    3.25 -?&73=&58
    3.26 -IF Y%=0 THEN CALL &{plot0} ELSE CALL &{plot1}
    3.27 -
    3.28 -CALL &{key_input}
    3.29 -IF ?&74=1 X%=X%-8
    3.30 -IF ?&74=2 Y%=1-Y%
    3.31 -
    3.32 -UNTIL FALSE

     4.1 --- a/TESTVALUES	Tue Aug 23 02:02:57 2011 +0200
     4.2 +++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     4.3 @@ -1,18 +0,0 @@
     4.4 -AUTO
     4.5 -OSCLI("LOAD CODE")
     4.6 -?&7C=0
     4.7 -?&7D=0
     4.8 -?&7E=0
     4.9 -?&7F=0
    4.10 -CALL &19AA
    4.11 -
    4.12 -CLS
    4.13 -A%=99
    4.14 -FOR Y%=0 TO 9
    4.15 -FOR X%=0 TO 9
    4.16 -PRINT TAB(X%*3,Y%);A%?&579C
    4.17 -A%=A%-1
    4.18 -NEXT
    4.19 -NEXT
    4.20 -
    4.21 -PRINT

     5.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     5.2 +++ b/tests/TESTEXITS	Tue Aug 23 02:03:25 2011 +0200
     5.3 @@ -0,0 +1,16 @@
     5.4 +AUTO
     5.5 +OSCLI("LOAD CODE")
     5.6 +
     5.7 +MODE 3
     5.8 +FOR Y%=0 TO 10
     5.9 +FOR X%=0 TO 10
    5.10 +?&78=Y%
    5.11 +?&79=X%
    5.12 +?&70=42
    5.13 +?&71=42
    5.14 +CALL &1B5E
    5.15 +PRINT TAB(X%*6,Y%);?&70;" ";?&71
    5.16 +NEXT
    5.17 +NEXT
    5.18 +
    5.19 +PRINT

     6.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     6.2 +++ b/tests/TESTINEQ	Tue Aug 23 02:03:25 2011 +0200
     6.3 @@ -0,0 +1,43 @@
     6.4 +AUTO
     6.5 +FOR T%=0 TO 2 STEP 2
     6.6 +P%=&1900
     6.7 +[OPT T%
     6.8 +
     6.9 +LDA &70
    6.10 +SEC
    6.11 +SBC #3
    6.12 +BMI neg     ; BCC
    6.13 +
    6.14 +CMP #2
    6.15 +BMI zero_one
    6.16 +
    6.17 +LDA #0
    6.18 +STA &71
    6.19 +RTS
    6.20 +
    6.21 +.zero_one
    6.22 +LDA #1
    6.23 +STA &71
    6.24 +RTS
    6.25 +
    6.26 +.neg
    6.27 +CMP #254
    6.28 +BPL minus_two_plus
    6.29 +
    6.30 +LDA #2
    6.31 +STA &71
    6.32 +RTS
    6.33 +
    6.34 +.minus_two_plus
    6.35 +LDA #3
    6.36 +STA &71
    6.37 +RTS
    6.38 +
    6.39 +]
    6.40 +NEXT
    6.41 +
    6.42 +FOR A%=0 TO 6
    6.43 +?&70=A%
    6.44 +CALL &1900
    6.45 +PRINT ?&70-3, ?&71
    6.46 +NEXT

     7.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     7.2 +++ b/tests/TESTSPRITES	Tue Aug 23 02:03:25 2011 +0200
     7.3 @@ -0,0 +1,29 @@
     7.4 +AUTO
     7.5 +OSCLI("LOAD CODE")
     7.6 +OSCLI("LOAD CHARS")
     7.7 +
     7.8 +MODE 5
     7.9 +VDU 23,1,0;0;0;0;
    7.10 +VDU 19,2,2;0;
    7.11 +VDU 19,3,3;0;
    7.12 +
    7.13 +PRINT TAB(0,3);
    7.14 +
    7.15 +?&70=0
    7.16 +?&71=&50
    7.17 +X%=19*16
    7.18 +Y%=0
    7.19 +
    7.20 +REPEAT
    7.21 +
    7.22 +?&70=(Y%*48)
    7.23 +?&71=&50
    7.24 +?&72=X%+(Y%*4)
    7.25 +?&73=&58
    7.26 +IF Y%=0 THEN CALL &{plot0} ELSE CALL &{plot1}
    7.27 +
    7.28 +CALL &{key_input}
    7.29 +IF ?&74=1 X%=X%-8
    7.30 +IF ?&74=2 Y%=1-Y%
    7.31 +
    7.32 +UNTIL FALSE

     8.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     8.2 +++ b/tests/TESTVALUES	Tue Aug 23 02:03:25 2011 +0200
     8.3 @@ -0,0 +1,18 @@
     8.4 +AUTO
     8.5 +OSCLI("LOAD CODE")
     8.6 +?&7C=0
     8.7 +?&7D=0
     8.8 +?&7E=0
     8.9 +?&7F=0
    8.10 +CALL &19AA
    8.11 +
    8.12 +CLS
    8.13 +A%=99
    8.14 +FOR Y%=0 TO 9
    8.15 +FOR X%=0 TO 9
    8.16 +PRINT TAB(X%*3,Y%);A%?&579C
    8.17 +A%=A%-1
    8.18 +NEXT
    8.19 +NEXT
    8.20 +
    8.21 +PRINT