source: buchla-68k/alcyon/infield.s@ 0170798

Last change on this file since 0170798 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 806 bytes
Line 
1.globl _ebflag
2.globl _ebuf
3.globl _curfet
4.globl _cfetp
5.globl _infetp
6.globl _stcrow
7.globl _stccol
8.globl _infield
9.text
10_infield:
11~~infield:
12~row=R7
13~col=R6
14~fetp=R13
15link R14,#0
16movem.l R5-R7/R13-R13,-(sp)
17*line 26
18move 8(R14),R7
19*line 26
20move 10(R14),R6
21*line 26
22move.l 12(R14),R13
23*line 26
24clr.l _infetp
25*line 28
26*line 29
27move.l R13,R0
28bne L2
29*line 29
30clr R0
31bra L1
32*line 30
33L2:
34*line 31
35bra L5
36L4:
37*line 32
38*line 33
39*line 34
40*line 35
41cmp (R13),R7
42bne L6
43cmp 2(R13),R6
44blt L6
45cmp 4(R13),R6
46bgt L6
47*line 36
48*line 37
49move.l R13,_infetp
50*line 38
51move #1,R0
52bra L1
53*line 39
54*line 40
55L6:
56*line 41
57add.l #24,R13
58L5:
59*line 42
60tst.l 16(R13)
61bne L4
62L3:
63*line 44
64clr R0
65bra L1
66L1:tst.l (sp)+
67movem.l (sp)+,R6-R7/R13-R13
68unlk R14
69rts
70.data
Note: See TracBrowser for help on using the repository browser.