source:
buchla-68k/alcyon/rscript.s@
4810254
Last change on this file since 4810254 was 7bf3856, checked in by , 7 years ago | |
---|---|
|
|
File size: 828 bytes |
Line | |
---|---|
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 |
14 | link R14,#-6 |
15 | ~rc=-2 |
16 | *line 34 |
17 | jsr _sqinit |
18 | *line 35 |
19 | clr -2(R14) |
20 | *line 37 |
21 | bra L5 |
22 | L4: |
23 | *line 38 |
24 | *line 39 |
25 | *line 39 |
26 | move.l 8(R14),R8 |
27 | move.l (R8),(sp) |
28 | jsr _sqscan |
29 | add.l #4,8(R14) |
30 | tst R0 |
31 | bne L6 |
32 | *line 40 |
33 | *line 41 |
34 | move #-1,-2(R14) |
35 | bra L3 |
36 | *line 42 |
37 | *line 43 |
38 | *line 44 |
39 | L6: |
40 | *line 45 |
41 | *line 45 |
42 | tst _endflg |
43 | beq L7 |
44 | *line 46 |
45 | *line 47 |
46 | move #1,-2(R14) |
47 | bra L3 |
48 | *line 48 |
49 | *line 49 |
50 | L7:L5: |
51 | *line 50 |
52 | move.l 8(R14),R8 |
53 | tst.l (R8) |
54 | bne L4 |
55 | L3: |
56 | *line 52 |
57 | move -2(R14),R0 |
58 | bra L2 |
59 | L2:unlk R14 |
60 | rts |
61 | .data |
62 | L1:.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.