source: buchla-68k/alcyon/unlink.s@ 526a993

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 347 bytes
Line 
1.globl _unlink
2.text
3_unlink:
4~~unlink:
5~name=8
6link R14,#-60
7~delfcb=-56
8*line 33
9*line 34
10move.l R14,(sp)
11add.l #-56,(sp)
12move.l 8(R14),-(sp)
13jsr _fcbinit
14addq.l #4,sp
15tst R0
16beq L2
17*line 34
18move #-1,R0
19bra L1
20*line 35
21*line 43
22L2:
23*line 44
24move.l R14,(sp)
25add.l #-56,(sp)
26jsr _DelFile
27bra L1
28L1:unlk R14
29rts
30.data
Note: See TracBrowser for help on using the repository browser.