| Last change
 on this file since 4b63bf3 was             7bf3856, checked in by Thomas Lopatic <thomas@…>, 8 years ago | 
        
          | 
Added Alcyon C reference output.
 | 
        
          | 
              
Property                 mode
 set to                 100644 | 
        
          | File size:
            1.5 KB | 
      
      
| Rev | Line |  | 
|---|
| [7bf3856] | 1 | .globl _ebflag | 
|---|
|  | 2 | .globl _ebuf | 
|---|
|  | 3 | .globl _curfet | 
|---|
|  | 4 | .globl _cfetp | 
|---|
|  | 5 | .globl _infetp | 
|---|
|  | 6 | .globl _cxval | 
|---|
|  | 7 | .globl _cyval | 
|---|
|  | 8 | .globl _astat | 
|---|
|  | 9 | .globl _cursbox | 
|---|
|  | 10 | .globl _hitbox | 
|---|
|  | 11 | .globl _hitcx | 
|---|
|  | 12 | .globl _hitcy | 
|---|
|  | 13 | .globl _csbp | 
|---|
|  | 14 | .globl _curboxp | 
|---|
|  | 15 | .globl _whatbox | 
|---|
|  | 16 | .text | 
|---|
|  | 17 | _whatbox: | 
|---|
|  | 18 | ~~whatbox: | 
|---|
|  | 19 | link R14,#0 | 
|---|
|  | 20 | movem.l R7-R7/R13-R13,-(sp) | 
|---|
|  | 21 | ~sb=R13 | 
|---|
|  | 22 | *line 42 | 
|---|
|  | 23 | move.l _csbp,R13 | 
|---|
|  | 24 | *line 43 | 
|---|
|  | 25 | move #-1,_hitbox | 
|---|
|  | 26 | *line 51 | 
|---|
|  | 27 | *line 52 | 
|---|
|  | 28 | move.l R13,R0 | 
|---|
|  | 29 | bne L2 | 
|---|
|  | 30 | *line 52 | 
|---|
|  | 31 | clr R0 | 
|---|
|  | 32 | bra L1 | 
|---|
|  | 33 | *line 53 | 
|---|
|  | 34 | L2: | 
|---|
|  | 35 | *line 54 | 
|---|
|  | 36 | bra L5 | 
|---|
|  | 37 | L4: | 
|---|
|  | 38 | *line 55 | 
|---|
|  | 39 | *line 56 | 
|---|
|  | 40 | add #1,_hitbox | 
|---|
|  | 41 | *line 57 | 
|---|
|  | 42 | *line 58 | 
|---|
|  | 43 | *line 59 | 
|---|
|  | 44 | *line 60 | 
|---|
|  | 45 | *line 61 | 
|---|
|  | 46 | move (R13),R0 | 
|---|
|  | 47 | cmp _cxval,R0 | 
|---|
|  | 48 | bgt L6 | 
|---|
|  | 49 | move 4(R13),R0 | 
|---|
|  | 50 | cmp _cxval,R0 | 
|---|
|  | 51 | blt L6 | 
|---|
|  | 52 | move 2(R13),R0 | 
|---|
|  | 53 | cmp _cyval,R0 | 
|---|
|  | 54 | bgt L6 | 
|---|
|  | 55 | move 6(R13),R0 | 
|---|
|  | 56 | cmp _cyval,R0 | 
|---|
|  | 57 | blt L6 | 
|---|
|  | 58 | *line 62 | 
|---|
|  | 59 | *line 63 | 
|---|
|  | 60 | move _cxval,_hitcx | 
|---|
|  | 61 | *line 64 | 
|---|
|  | 62 | move _cyval,_hitcy | 
|---|
|  | 63 | *line 65 | 
|---|
|  | 64 | move.l R13,_curboxp | 
|---|
|  | 65 | *line 66 | 
|---|
|  | 66 | *line 71 | 
|---|
|  | 67 | *line 72 | 
|---|
|  | 68 | *line 73 | 
|---|
|  | 69 | move #1,R0 | 
|---|
|  | 70 | bra L1 | 
|---|
|  | 71 | *line 74 | 
|---|
|  | 72 | *line 75 | 
|---|
|  | 73 | L6: | 
|---|
|  | 74 | *line 76 | 
|---|
|  | 75 | add.l #14,R13 | 
|---|
|  | 76 | L5: | 
|---|
|  | 77 | *line 77 | 
|---|
|  | 78 | tst.l 10(R13) | 
|---|
|  | 79 | bne L4 | 
|---|
|  | 80 | L3: | 
|---|
|  | 81 | *line 84 | 
|---|
|  | 82 | move #-1,_hitbox | 
|---|
|  | 83 | *line 85 | 
|---|
|  | 84 | clr R0 | 
|---|
|  | 85 | bra L1 | 
|---|
|  | 86 | L1:tst.l (sp)+ | 
|---|
|  | 87 | movem.l (sp)+,R13-R13 | 
|---|
|  | 88 | unlk R14 | 
|---|
|  | 89 | rts | 
|---|
|  | 90 | .globl _select | 
|---|
|  | 91 | .text | 
|---|
|  | 92 | _select: | 
|---|
|  | 93 | ~~select: | 
|---|
|  | 94 | link R14,#-4 | 
|---|
|  | 95 | *line 99 | 
|---|
|  | 96 | *line 99 | 
|---|
|  | 97 | tst _astat | 
|---|
|  | 98 | beq L8 | 
|---|
|  | 99 | *line 100 | 
|---|
|  | 100 | *line 104 | 
|---|
|  | 101 | *line 105 | 
|---|
|  | 102 | *line 106 | 
|---|
|  | 103 | *line 106 | 
|---|
|  | 104 | jsr _whatbox | 
|---|
|  | 105 | tst R0 | 
|---|
|  | 106 | beq L9 | 
|---|
|  | 107 | *line 107 | 
|---|
|  | 108 | *line 112 | 
|---|
|  | 109 | *line 113 | 
|---|
|  | 110 | *line 114 | 
|---|
|  | 111 | move.l _curboxp,R8 | 
|---|
|  | 112 | move 8(R8),-(sp) | 
|---|
|  | 113 | move.l _curboxp,R8 | 
|---|
|  | 114 | move.l 10(R8),R8 | 
|---|
|  | 115 | jsr (R8) | 
|---|
|  | 116 | addq.l #2,sp | 
|---|
|  | 117 | *line 115 | 
|---|
|  | 118 | move _hitbox,_cursbox | 
|---|
|  | 119 | *line 116 | 
|---|
|  | 120 | bra L10 | 
|---|
|  | 121 | L9: | 
|---|
|  | 122 | *line 117 | 
|---|
|  | 123 | *line 118 | 
|---|
|  | 124 | *line 122 | 
|---|
|  | 125 | *line 123 | 
|---|
|  | 126 | L10: | 
|---|
|  | 127 | *line 124 | 
|---|
|  | 128 | *line 125 | 
|---|
|  | 129 | L8:L7:unlk R14 | 
|---|
|  | 130 | rts | 
|---|
|  | 131 | .data | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.