source: buchla-68k/alcyon/waitcr.s@ 9519422

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 436 bytes
Line 
1.globl _waitcr
2.text
3_waitcr:
4~~waitcr:
5link R14,#-6
6~c=-2
7*line 28
8move #7,(sp)
9move #2,-(sp)
10move #3,-(sp)
11jsr _trap13
12addq.l #4,sp
13*line 32
14bra L4
15L3:
16*line 33
17*line 34
18cmp #7,-2(R14)
19bne L5
20*line 34
21jsr _xtrap15
22*line 35
23L5:L4:
24*line 36
25move #2,(sp)
26move #2,-(sp)
27jsr _trap13
28addq.l #2,sp
29and #127,R0
30move R0,-2(R14)
31cmp #13,R0
32bne L3
33L2:
34*line 36
35move -2(R14),R0
36bra L1
37L1:unlk R14
38rts
39.data
Note: See TracBrowser for help on using the repository browser.