mirror of
https://github.com/mauiaaron/apple2.git
synced 2024-11-04 18:04:40 +00:00
Remove unused test files
This commit is contained in:
Aaron Culliney
parent
3ba0f43dc5
commit
b37c94f404
@ -1,33 +0,0 @@
|
||||
REM Script can be loaded from apple2ix from debugger console with "LOAD path/to/thisfile"
|
||||
REM
|
||||
REM Tests program execution across the main/aux memory RAMRD boundary (C003 enables aux, C002 enables main)
|
||||
REM * 1E00 is the test script that will place a $96 result at 1FFF (in main)
|
||||
REM * 1E80 calls AUXMOVE (C311) to load the 1E00 page to auxmem
|
||||
REM
|
||||
|
||||
CALL-151
|
||||
!
|
||||
1E00: NOP
|
||||
STA $C003
|
||||
LDA #$96
|
||||
STA $1FFF
|
||||
STA $C002
|
||||
RTS
|
||||
1E80: LDA #$00
|
||||
STA $3C
|
||||
LDA #$1E
|
||||
STA $3D
|
||||
LDA #$FF
|
||||
STA $3E
|
||||
LDA #$1E
|
||||
STA $3F
|
||||
LDA #$00
|
||||
STA $42
|
||||
LDA #$1E
|
||||
STA $43
|
||||
SEC
|
||||
JSR $C311
|
||||
RTS
|
||||
|
||||
1E80G
|
||||
1E00G
|
||||
@ -1,15 +0,0 @@
|
||||
10 REM
|
||||
20 REM SINEWAVE HIRES TEST
|
||||
30 REM
|
||||
|
||||
35 REM FOR EMULATOR : DEADC0DE.ORG/apple2
|
||||
|
||||
40 HGR
|
||||
50 IF PEEK(7986)<>127 THEN POKE -16302,0 : REM SET NOMIXED
|
||||
60 FOR X = 0 TO 279
|
||||
70 HCOLOR = 3
|
||||
80 Y = 80 + SIN(15*(X-K)/279) * 40
|
||||
90 HPLOT X,Y
|
||||
100 NEXT X
|
||||
110 POKE 7987,255
|
||||
|
||||
@ -1,67 +0,0 @@
|
||||
10 REM
|
||||
20 REM HIRES80 SINEWAVES
|
||||
30 REM
|
||||
40 REM BY JIM SATHER --- 6/21/84
|
||||
50 REM
|
||||
|
||||
70 REM
|
||||
80 REM FOR EMULATOR : DEADC0DE.ORG/apple2
|
||||
90 REM
|
||||
|
||||
110 REM
|
||||
120 REM INITIALIZE
|
||||
130 REM
|
||||
140 STR80 = -16383 : COL80 = -16371 : NOMIX = -16302 : MBD = -16300
|
||||
150 AUX = -16299 : FRCTXT = -16290 : HCLEER = 768
|
||||
|
||||
170 HGR : POKE STR80,0 : POKE NOMIX,0 : POKE COL80,0
|
||||
180 POKE FRCTXT,0 : HCOLOR=3
|
||||
190 REM MOVE "LDA #$20, JMP $F3EA" TO HCLEER
|
||||
200 POKE HCLEER,169 : POKE HCLEER+1,32 : POKE HCLEER+2,76
|
||||
210 POKE HCLEER+3,234 : POKE HCLEER+4,243
|
||||
220 POKE AUX,0 : CALL HCLEER : REM CLEAR AUX
|
||||
230 HPLOT 140,0 TO 140,26 : HPLOT 140,167 TO 140,191 : REM DRAW VERT LINE
|
||||
240 POKE MBD,0 : HPLOT 139,0 TO 139,26 : HPLOT 139,167 TO 139,191
|
||||
|
||||
260 REM
|
||||
270 REM GENERATE 140 X 192 SINEWAVES
|
||||
280 REM
|
||||
290 FOR C = 1 TO 15 : CLR = C : GOSUB 600 : REM FOR COLOR = 1 TO 15; GET BINARY
|
||||
300 FOR H0 = 0 TO 276 STEP 4 : REM LEFT SCREEN; 1 OF 4 POINTS
|
||||
310 FOR HPART = 0 TO 2 : REM PLOT V FOR H, H+1.3, H+2.7 TO SMOOTH OUT
|
||||
320 V=24.5 + C*9 - 32 * SIN((H0 + 1.333333 * HPART) * .0224399)
|
||||
330 IF C(1) THEN H = H0 : GOSUB 500 : REM BLUE DOT
|
||||
340 IF C(2) THEN H = H0+1 : GOSUB 500 : REM BLUE-GREEN DOT
|
||||
350 IF C(3) THEN H = H0+2 : GOSUB 500 : REM BROWN DOT
|
||||
360 IF C(0) THEN H = H0+3 : GOSUB 500 : REM MAGENTA DOT
|
||||
370 NEXT HPART : NEXT H0
|
||||
|
||||
380 REM
|
||||
390 REM GENERATE 560X192 SINEWAVES
|
||||
400 REM
|
||||
410 REM SIN(2*PI*H/280) ; RIGHT SIDE
|
||||
420 FOR H0 = 280 TO 556 : V = 24.5 + C*9 - 32*SIN(H0 * .0224399)
|
||||
430 PRT4% = (H0/4 - INT(H0/4)) * 4 + .5 : REM PRT4% = H0 MOD 4
|
||||
440 IF PRT4%=0 AND C(1) OR PRT4%=1 AND C(2) OR PRT4%=2 AND C(3) OR PRT4%=3 AND C(0) THEN H = H0 : GOSUB 500 : REM PLOT POSITION+0
|
||||
450 IF PRT4%=0 AND C(2) OR PRT4%=1 AND C(3) OR PRT4%=2 AND C(0) OR PRT4%=3 AND C(1) THEN H = H0+1 : GOSUB 500 : REM PLOT POSITION+0
|
||||
460 IF PRT4%=0 AND C(3) OR PRT4%=1 AND C(0) OR PRT4%=2 AND C(1) OR PRT4%=3 AND C(2) THEN H = H0+2 : GOSUB 500 : REM PLOT POSITION+0
|
||||
470 IF PRT4%=0 AND C(0) OR PRT4%=1 AND C(1) OR PRT4%=2 AND C(2) OR PRT4%=3 AND C(3) THEN H = H0+3 : GOSUB 500 : REM PLOT POSITION+0
|
||||
480 NEXT H0 : NEXT C : END
|
||||
|
||||
500 REM
|
||||
510 REM PLOT H,V (H=0-559, V=0-191)
|
||||
520 REM
|
||||
530 MOD14 = INT(H)/14 : MOD14% = MOD14
|
||||
540 PART14% = 14 * (MOD14 - MOD14%) + .5
|
||||
550 POKE AUX,0 : IF PART14% > 6 THEN POKE MBD,0 : PART14% = PART14% - 7
|
||||
560 HPLOT MOD14% * 7 + PART14%,V
|
||||
570 RETURN
|
||||
|
||||
590 REM
|
||||
600 REM CONVERT CLR FROM DECIMAL TO HEX
|
||||
610 REM
|
||||
620 CLR% = CLR : FOR A = 0 TO 3
|
||||
630 C(A) = 1 : CLR = CLR% / 2 : CLR% = CLR% /2
|
||||
640 IF CLR=CLR% THEN C(A) = 0
|
||||
650 NEXT : RETURN
|
||||
|
||||
@ -1,33 +0,0 @@
|
||||
10 REM
|
||||
20 REM HIRES80 Picture Test
|
||||
30 REM
|
||||
|
||||
40 REM
|
||||
50 REM FOR EMULATOR : DEADC0DE.ORG/apple2
|
||||
70 REM
|
||||
|
||||
90 REM
|
||||
100 REM INITIALIZE
|
||||
110 REM
|
||||
120 STR80 = -16383 : COL80 = -16371 : NOMIX = -16302 : MBD = -16300
|
||||
130 AUX = -16299 : FRCTXT = -16290 : HCLEER = 768
|
||||
|
||||
150 HGR : POKE STR80,0 : POKE NOMIX,0 : POKE COL80,0
|
||||
160 POKE FRCTXT,0 : HCOLOR=3
|
||||
170 REM MOVE "LDA #$20, JMP $F3EA" TO HCLEER
|
||||
180 POKE HCLEER,169 : POKE HCLEER+1,32 : POKE HCLEER+2,76
|
||||
190 POKE HCLEER+3,234 : POKE HCLEER+4,243
|
||||
200 POKE AUX,0 : CALL HCLEER : REM CLEAR AUX
|
||||
|
||||
220 HPLOT 140,0 TO 140,26 : HPLOT 140,167 TO 140,191 : REM DRAW VERT LINE
|
||||
230 POKE MBD,0 : HPLOT 139,0 TO 139,26 : HPLOT 139,167 TO 139,191
|
||||
|
||||
250 REM
|
||||
260 REM LOAD DHIRES PICTURE
|
||||
270 REM
|
||||
280 PRINT CHR$(4)"BLOAD MEMMOVE.OBJ,A$1E80"
|
||||
290 PRINT CHR$(4)"BLOAD AH_1,A$2000"
|
||||
300 CALL 7808
|
||||
310 POKE 7987,255 : REM PING TEST
|
||||
320 PRINT CHR$(4)"BLOAD AH_0,A$2000"
|
||||
330 POKE 7987,255 : REM PING TEST
|
||||
@ -1,22 +0,0 @@
|
||||
10 REM
|
||||
20 REM HGR MOIRE
|
||||
30 REM
|
||||
|
||||
35 REM FOR EMULATOR : DEADC0DE.ORG/apple2
|
||||
|
||||
40 HGR
|
||||
45 IF PEEK(7986)<>127 THEN POKE -16302,0 : REM SET NOMIXED
|
||||
50 FOR Y = 0 TO 190 STEP 2
|
||||
60 HCOLOR = 4 : REM BLACK
|
||||
70 HPLOT 0,191-Y TO 279,Y
|
||||
80 HCOLOR = 7 : REM WHITE
|
||||
90 HPLOT 0,190-Y TO 279,Y+1
|
||||
100 NEXT Y
|
||||
110 FOR X = 0 TO 278 STEP 3
|
||||
120 HCOLOR = 4
|
||||
130 HPLOT 279-X,0 TO X,191
|
||||
140 HCOLOR = 7
|
||||
150 HPLOT 278-X,0 TO X+1,191
|
||||
160 NEXT X
|
||||
170 POKE 7987,255
|
||||
|
||||
@ -1,15 +0,0 @@
|
||||
10 REM
|
||||
20 REM SINEWAVE LORES TEST
|
||||
30 REM
|
||||
|
||||
35 REM FOR EMULATOR : DEADC0DE.ORG/apple2
|
||||
|
||||
40 GR
|
||||
50 IF PEEK(7986)<>127 THEN POKE -16302,0 : REM SET NOMIXED
|
||||
60 FOR X = 0 TO 39
|
||||
70 COLOR = 3
|
||||
80 Y = 20 + SIN(45*(X-K)/279) * 18
|
||||
90 PLOT X,Y
|
||||
100 NEXT X
|
||||
110 POKE 7987,255
|
||||
|
||||
@ -1,42 +0,0 @@
|
||||
10 REM
|
||||
20 REM LORES80 CONCENTRIC CIRCLES
|
||||
30 REM
|
||||
40 REM BY JIM SATHER --- 6/21/84
|
||||
50 REM
|
||||
|
||||
70 REM
|
||||
80 REM FOR EMULATOR : DEADC0DE.ORG/apple2
|
||||
90 REM
|
||||
|
||||
110 REM
|
||||
120 REM INITIALIZE
|
||||
130 REM
|
||||
140 STR80 = -16383 : COL80 = -16371 : NOMIX = -16302 : MBD = -16300
|
||||
150 AUX = -16299 : FRCTXT = -16290 : LCLEER = -1998 : CLR = 48
|
||||
|
||||
170 GR : POKE STR80,0 : POKE NOMIX,0 : POKE COL80,0 : POKE FRCTXT,0
|
||||
180 POKE AUX,0 : CALL LCLEER : POKE MBD,0 : CALL LCLEER : REM CLEAR SCREEN
|
||||
|
||||
200 REM
|
||||
210 REM COLOR / CIRCLE COMPUTATIONS
|
||||
220 REM
|
||||
230 PTS = 208 : REM NUMBER OF ANGLES SAMPLED
|
||||
240 FOR ANGLE = 0 TO PTS-1
|
||||
250 A1 = 6.2831852 * ANGLE / PTS : SI = SIN(A1) : CO = COS(A1)
|
||||
260 FOR C = 0 TO 7 : COLOR = C : IF ANGLE > PTS/2 THEN COLOR = C+8
|
||||
270 IF C = 0 THEN COLOR = 15
|
||||
280 R = 24 - C*3 : V = 24 - SI * R : H = 40 + CO * R * 1.36 : GOSUB 330
|
||||
290 NEXT C : NEXT ANGLE
|
||||
295 POKE 7987,255
|
||||
300 GOTO 300
|
||||
|
||||
320 REM
|
||||
330 REM PLOT H,V (H = 0-79, V = 0-47)
|
||||
340 REM
|
||||
350 H2 = INT(H) / 2
|
||||
360 IF H2 - INT(H2) THEN POKE MBD,0 : PLOT H2,V : GOTO 400
|
||||
370 POKE AUX,0 : CSAV = PEEK(CLR) : C2 = CSAV / 2 : C2% = C2
|
||||
380 IF C2 - C2% THEN C2% = C2% + 128
|
||||
390 POKE CLR,C2% : PLOT H2,V : POKE CLR,CSAV
|
||||
400 RETURN
|
||||
|
||||
Loading…
Reference in New Issue
Block a user