diff options
Diffstat (limited to 'qt/md/m88k_b.s')
-rw-r--r-- | qt/md/m88k_b.s | 117 |
1 files changed, 0 insertions, 117 deletions
diff --git a/qt/md/m88k_b.s b/qt/md/m88k_b.s deleted file mode 100644 index 1926e6ae8..000000000 --- a/qt/md/m88k_b.s +++ /dev/null @@ -1,117 +0,0 @@ -/* - * QuickThreads -- Threads-building toolkit. - * Copyright (c) 1993 by David Keppel - * - * Permission to use, copy, modify and distribute this software and - * its documentation for any purpose and without fee is hereby - * granted, provided that the above copyright notice and this notice - * appear in all copies. This software is provided as a - * proof-of-concept and for demonstration purposes; there is no - * representation about the suitability of this software for any - * purpose. - */ - - .text - .globl _b_call_reg - .globl _b_call_imm - .globl _b_add - .globl _b_load - -_b_null: - jmp r1 - -_b_call_reg: - subu r31, r31,8 /* Alloc ret pc save space. */ - st r1, r31,32 /* Save ret pc. */ - or.u r3, r0,hi16(_b_null) /* Put call addr in a reg. */ - or r3, r3,lo16(_b_null) - jsr r3 -L0: - jsr r3 - jsr r3 - jsr r3 - jsr.n r3 - subu r2, r2,5 /* Decrement #of iter to go. */ - bcnd.n gt0,r2,L0 - jsr r3 - - ld r1, r31,32 - jmp r1 - - -_b_call_imm: - subu r31, r31,8 /* Alloc ret pc save space. */ - st r1, r31,32 /* Save ret pc. */ - bsr _b_null -L1: - bsr _b_null - bsr _b_null - bsr _b_null - bsr.n _b_null - subu r2, r2,5 /* Decrement #of iter to go. */ - bcnd.n gt0,r2,L1 - bsr _b_null - - ld r1, r31,32 - jmp r1 - -_b_add: - add r0, r3,r4 -L2: - add r3, r4,r5 - add r4, r5,r6 - add r5, r6,r7 - add r8, r9,r0 - add r0, r3,r4 - add r3, r4,r5 - add r4, r5,r6 - add r5, r6,r7 - add r8, r9,r0 - - add r0, r3,r4 - add r3, r4,r5 - add r4, r5,r6 - add r5, r6,r7 - add r8, r9,r0 - add r0, r3,r4 - add r3, r4,r5 - add r4, r5,r6 - add r5, r6,r7 - add r8, r9,r0 - - subu r2, r2,20 /* Decrement #of iter to go. */ - bcnd.n gt0,r2,L2 - add r0, r3,r4 - - jmp r1 - - -_b_load: - ld r0, r31,0 -L3: - ld r3, r31,4 - ld r4, r31,8 - ld r5, r31,12 - ld r6, r31,16 - ld r0, r31,0 - ld r3, r31,4 - ld r4, r31,8 - ld r5, r31,12 - ld r6, r31,16 - - ld r0, r31,0 - ld r3, r31,4 - ld r4, r31,8 - ld r5, r31,12 - ld r6, r31,16 - ld r0, r31,0 - ld r3, r31,4 - ld r4, r31,8 - ld r5, r31,12 - ld r6, r31,16 - - subu r2, r2,20 /* Decrement #of iter to go. */ - bcnd.n gt0,r2,L3 - ld r0, r31,0 - - jmp r1 |