|
|
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: ! 26: .asciz " checkr3 failed" ! 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: ! 39: .asciz "checkr3 failed" ! 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: ! 82: .asciz "test_move_cc failed" ! 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: ! 111: .asciz "test_move_cc failed" ! 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.