diff options
author | karoly <karoly@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-10 17:20:08 +0000 |
---|---|---|
committer | karoly <karoly@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-10 17:20:08 +0000 |
commit | 3c44afa774033375df026ae3f0bcfabda291a77c (patch) | |
tree | 3f7671be0a69451714e15d6c430f8051bf6b36de | |
parent | 090bc98cbe2263f535cc79a780fe91c8f9cda320 (diff) | |
download | fpc-3c44afa774033375df026ae3f0bcfabda291a77c.tar.gz |
sinclairql: new files to contain SMS only functions, iof_rename implemented, based on a patch by Norman Dunbar
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49172 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | rtl/sinclairql/sms.inc | 28 | ||||
-rw-r--r-- | rtl/sinclairql/smsfuncs.inc | 16 |
2 files changed, 44 insertions, 0 deletions
diff --git a/rtl/sinclairql/sms.inc b/rtl/sinclairql/sms.inc new file mode 100644 index 0000000000..b16a13bb69 --- /dev/null +++ b/rtl/sinclairql/sms.inc @@ -0,0 +1,28 @@ +{ + This file is part of the Free Pascal run time library. + Copyright (c) 2021 by Karoly Balogh + + Interface to SMS only OS functions used by the Sinclair QL RTL + + See the file COPYING.FPC, included in this distribution, + for details about the copyright. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + **********************************************************************} + +const + _IOF_MKDIR = $4d; + +function iof_mkdir(chan: Tchanid): longint; assembler; nostackframe; public name '_iof_mkdir'; +asm + move.l d3,-(sp) + move.l chan,a0 + moveq.l #-1,d3 + moveq.l #0,d1 + moveq.l #_IOF_MKDIR,d0 + trap #3 + move.l (sp)+,d3 +end; diff --git a/rtl/sinclairql/smsfuncs.inc b/rtl/sinclairql/smsfuncs.inc new file mode 100644 index 0000000000..ff0bfd2f57 --- /dev/null +++ b/rtl/sinclairql/smsfuncs.inc @@ -0,0 +1,16 @@ +{ + This file is part of the Free Pascal run time library. + Copyright (c) 2021 by Karoly Balogh + + Headers to SMS only OS functions used by the Sinclair QL RTL + + See the file COPYING.FPC, included in this distribution, + for details about the copyright. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + **********************************************************************} + +function iof_mkdir(chan: Tchanid): longint; assembler; nostackframe; external name '_iof_mkdir'; |