source: buchla-68k/alcyon/rscript.s@ 861ab45

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

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 828 bytes
RevLine 
[7bf3856]1.globl _endflg
2.globl _script0
3.data
4_script0:
5*line 14
6.dc.l L1
7.dc.l $0
8.globl _rscript
9.text
10_rscript:
11~~rscript:
12~p=-4
13~p=8
14link R14,#-6
15~rc=-2
16*line 34
17jsr _sqinit
18*line 35
19clr -2(R14)
20*line 37
21bra L5
22L4:
23*line 38
24*line 39
25*line 39
26move.l 8(R14),R8
27move.l (R8),(sp)
28jsr _sqscan
29add.l #4,8(R14)
30tst R0
31bne L6
32*line 40
33*line 41
34move #-1,-2(R14)
35bra L3
36*line 42
37*line 43
38*line 44
39L6:
40*line 45
41*line 45
42tst _endflg
43beq L7
44*line 46
45*line 47
46move #1,-2(R14)
47bra L3
48*line 48
49*line 49
50L7:L5:
51*line 50
52move.l 8(R14),R8
53tst.l (R8)
54bne L4
55L3:
56*line 52
57move -2(R14),R0
58bra L2
59L2:unlk R14
60rts
61.data
62L1:.dc.b $21,$71,$75,$69,$65,$74,$20,$21,$6E,$6F,$72,$6D,$61,$6C,$20,$21,$73,$63,$6F,$72,$65,$3D,$30,$20,$21,$77,$65,$69,$67,$68
63.dc.b $74,$3D,$36,$30,$20,$21,$65,$6E,$64,$0
Note: See TracBrowser for help on using the repository browser.