-
Notifications
You must be signed in to change notification settings - Fork 82
/
xtest
53 lines (53 loc) · 806 Bytes
/
xtest
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
.LIB CROSSOVER
PTR = $10
.PAGE 'TEST ROUTINES'
.SKI 2
MAIN SEI ;DISABLE INTS
LDA #2 ;EXECUTE IN SEG 2
JSR GARBG
.BYTE 0,0 ;RETURN TO MONITOR
;
GARBG STA E6509 ; GONE!
LDA #<IRQ ;STORE IRQ VECTOR
STA $FFFE
LDA #>IRQ
STA $FFFF
LDA #0
STA PTR
LDA #$20
STA PTR+1
CLI
;
LDY #0
LDX #1
STX I6509
LDA #$20
LOOP1 STA (PTR)Y
INY
BNE LOOP1
INC PTR+1
LDA PTR+1
CMP #$30
BCC LOOP1
;
OMSG LDX #0
LOOP2 LDA MSG,X
BEQ DONE
JSR BSOUT
INX
BNE LOOP2
DONE LDA #$0F
.BYTE 0,0 ;RETURN
.SKI 3
MSG .BYTE 'THREE BLIND MICE',0
.SKI 3
BSOUT JSR RSAVE ;SAVE MACHINE STATE
LDA #$D2 ;ADDR (LO)
LDX #$FF ;ADDR (HI)
LDY #$0F ;SEGNO
JSR XOVER
LDA XI6509 ;RESTORE I6509
STA I6509
JMP RLOAD ;RESTORE RETURN VALUES...
;
.END