|
@@ -0,0 +1,66 @@
|
|
|
+ ! Two system calls (gtty and stty) in the m68000 tail_mon library
|
|
|
+ ! were not really system calls but they used _ioctl. The m68020 machine
|
|
|
+ ! the table was tested on used real system calls, and we'll use
|
|
|
+ ! them here.
|
|
|
+ ! There were also three calls (ftime, lock and dup2) that were in the
|
|
|
+ ! m68000 library, but were not included in the list of system calls
|
|
|
+ ! for the m68020 that was given to me. We'll include them anyway.
|
|
|
+ ! The original gtty and stty files are included here.
|
|
|
+ ! Note however that the 68000 machine (the Mantra) needs the parameters
|
|
|
+ ! to system calls in registers, while the m68020 machine this table was
|
|
|
+ ! tested on wanted the parameters on the stack
|
|
|
+ !
|
|
|
+ ! Also read the comments in the signal.s file!
|
|
|
+! ------------------- dup2.s
|
|
|
+! .define _dup2
|
|
|
+! .extern _dup2
|
|
|
+! .sect .text
|
|
|
+! .sect .rom
|
|
|
+! .sect .data
|
|
|
+! .sect .bss
|
|
|
+! .sect .text
|
|
|
+! _dup2: move.w #0x29,d0
|
|
|
+! move.l (4,sp),a0
|
|
|
+! move.l (8,sp),d1
|
|
|
+! add.l #0x40,a0
|
|
|
+! jmp (call)
|
|
|
+!
|
|
|
+!
|
|
|
+! ! ------------------- gtty.s
|
|
|
+! .define _gtty
|
|
|
+! .extern _gtty
|
|
|
+! .sect .text
|
|
|
+! .sect .rom
|
|
|
+! .sect .data
|
|
|
+! .sect .bss
|
|
|
+! .sect .text
|
|
|
+! _gtty:
|
|
|
+! tst.b (-40,sp)
|
|
|
+! link a6,#-0
|
|
|
+! move.l (12,a6),-(sp)
|
|
|
+! move.l #29704,-(sp)
|
|
|
+! move.l (8,a6),-(sp)
|
|
|
+! jsr (_ioctl)
|
|
|
+! add.l #12,sp
|
|
|
+! unlk a6
|
|
|
+! rts
|
|
|
+!
|
|
|
+!
|
|
|
+! ! ------------------- stty.s
|
|
|
+! .define _stty
|
|
|
+! .extern _stty
|
|
|
+! .sect .text
|
|
|
+! .sect .rom
|
|
|
+! .sect .data
|
|
|
+! .sect .bss
|
|
|
+! .sect .text
|
|
|
+! _stty:
|
|
|
+! tst.b (-40,sp)
|
|
|
+! link a6,#-0
|
|
|
+! move.l (12,a6),-(sp)
|
|
|
+! move.l #29705,-(sp)
|
|
|
+! move.l (8,a6),-(sp)
|
|
|
+! jsr (_ioctl)
|
|
|
+! add.l #12,sp
|
|
|
+! unlk a6
|
|
|
+! rts
|