|
|
1.1 root 1: .syntax no_register_prefix
2:
3: .macro start
4: .text
5: .global main
6: main:
7: .endm
8:
9: .macro quit
10: jump pass
11: nop
12: .endm
13:
14: .macro pass
15: jump pass
16: nop
17: .endm
18:
19: .macro startnostack
20: start
21: .endm
22:
23: .macro fail
24: .data
25: 99:
1.1.1.2 ! root 26: .asciz " checkr3 failed\n"
1.1 root 27: .text
28: move.d 99b, $r10
29: jsr _fail
30: nop
31: .endm
32:
33: .macro checkr3 val
34: cmp.d 0x\val, $r3
35: beq 100f
36: nop
37: .data
38: 99:
1.1.1.2 ! root 39: .asciz "checkr3 failed\n"
1.1 root 40: .text
41: move.d 99b, $r10
42: jsr _fail
43: nop
44: 100:
45: .endm
46:
47: ; Test the condition codes
48: .macro test_cc N Z V C
49: .if \N
50: bpl 9f
51: nop
52: .else
53: bmi 9f
54: nop
55: .endif
56: .if \Z
57: bne 9f
58: nop
59: .else
60: beq 9f
61: nop
62: .endif
63: .if \V
64: bvc 9f
65: nop
66: .else
67: bvs 9f
68: nop
69: .endif
70: .if \C
71: bcc 9f
72: nop
73: .else
74: bcs 9f
75: nop
76: .endif
77: ba 8f
78: nop
79: 9:
80: .data
81: 99:
1.1.1.2 ! root 82: .asciz "test_move_cc failed\n"
1.1 root 83: .text
84: move.d 99b, $r10
85: jsr _fail
86: nop
87: 8:
88: .endm
89:
90:
91: .macro test_move_cc N Z V C
92: .if \N
93: bpl 9f
94: nop
95: .else
96: bmi 9f
97: nop
98: .endif
99: .if \Z
100: bne 9f
101: nop
102: .else
103: beq 9f
104: nop
105: .endif
106: ba 8f
107: nop
108: 9:
109: .data
110: 99:
1.1.1.2 ! root 111: .asciz "test_move_cc failed\n"
1.1 root 112: .text
113: move.d 99b, $r10
114: jsr _fail
115: nop
116: 8:
117: .endm
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.