![(please configure the [header_logo] section in trac.ini)](http://bob.lopatic.de/chrome/site/logo.png){kind=logo}
source:
buchla-68k/alcyon/croot.s@
6099cac
| Last change on this file since 6099cac was 7bf3856, checked in by , 7 years ago | |
|---|---|
|
|
| File size: 871 bytes | |
| Line | |
|---|---|
| 1 | .globl _errno |
| 2 | .globl __clsall |
| 3 | .comm __clsall,4 |
| 4 | .bss |
| 5 | L1:.ds.b 2 |
| 6 | .text |
| 7 | .bss |
| 8 | L2:.ds.b 120 |
| 9 | .text |
| 10 | .globl _exit |
| 11 | .text |
| 12 | _exit: |
| 13 | ~~exit: |
| 14 | ~code=8 |
| 15 | link R14,#-4 |
| 16 | *line 54 |
| 17 | move.l __clsall,R8 |
| 18 | jsr (R8) |
| 19 | *line 55 |
| 20 | move 8(R14),(sp) |
| 21 | jsr _xtrap15 |
| 22 | L3:unlk R14 |
| 23 | rts |
| 24 | .globl _Croot |
| 25 | .text |
| 26 | _Croot: |
| 27 | ~~Croot: |
| 28 | ~cp=R13 |
| 29 | link R14,#0 |
| 30 | movem.l R6-R7/R12-R13,-(sp) |
| 31 | ~fname=R12 |
| 32 | ~k=R7 |
| 33 | *line 97 |
| 34 | move.l 8(R14),R13 |
| 35 | *line 97 |
| 36 | move.l #L5,L2 |
| 37 | *line 98 |
| 38 | move #1,L1 |
| 39 | *line 100 |
| 40 | move.l #__fd_cls,__clsall |
| 41 | *line 101 |
| 42 | jsr _InitFS |
| 43 | *line 159 |
| 44 | move.l #L2,(sp) |
| 45 | move L1,-(sp) |
| 46 | jsr _main |
| 47 | addq.l #2,sp |
| 48 | *line 160 |
| 49 | clr (sp) |
| 50 | jsr _exit |
| 51 | L4:tst.l (sp)+ |
| 52 | movem.l (sp)+,R7-R7/R12-R13 |
| 53 | unlk R14 |
| 54 | rts |
| 55 | .data |
| 56 | L5:.dc.b $7B,$42,$75,$63,$68,$6C,$61,$20,$37,$30,$30,$20,$43,$72,$6F,$6F,$74,$20,$2D,$20,$56,$65,$72,$73,$69,$6F,$6E,$20,$38,$20 |
| 57 | .dc.b $2D,$20,$31,$39,$38,$37,$2D,$30,$36,$2D,$32,$39,$7D,$0 |
Note:
See TracBrowser
for help on using the repository browser.
