![(please configure the [header_logo] section in trac.ini)](http://bob.lopatic.de/chrome/site/logo.png){kind=logo}
source:
buchla-68k/alcyon/rscript.s@
0170798
| Last change on this file since 0170798 was 7bf3856, checked in by , 8 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.
