Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/packages/basic09/syscall.asm @ 3215:195c09cade21
Updated MMC Driver makefile so it will have place holders for
dsk, dskclean, and dskcopy so that make does not error out when
chaining into the driver tree to build disk images where applicable.
| author | David Ladd <drencor-xeen@users.sourceforge.net> |
|---|---|
| date | Wed, 20 Dec 2017 16:07:36 -0600 |
| parents | 57f23da9790a |
| children | 7ee7d0c31787 |
line wrap: on
line source
******************************************************************** * SysCall - system call subroutine module * * $Id$ * * Edt/Rev YYYY/MM/DD Modified by * Comment * ------------------------------------------------------------------ * 2 ????/??/?? * From OS-9 Level Two Vr. 2.00.01 Basic09 disk. nam SysCall ttl system call subroutine module * Disassembled 02/07/06 13:11:18 by Disasm v1.6 (C) 1988 by RML ifp1 use defsfile endc tylg set Sbrtn+Objct atrv set ReEnt+rev rev set $00 edition set 2 mod eom,name,tylg,atrv,start,size u0000 rmb 0 size equ . name fcs /SysCall/ fcb edition start ldd $02,s get number of parameters cmpd #$0002 two? bne L005C if not, error ldd $0A,s get size of second parameter * cmpd #R$PC appropriate registers? cmpd #$0A appropriate registers? bne L005C branch if not ldd [<$04,s] get address of first parameter ldx $06,s get size of first parameter leax -$01,x beq L0034 leax -$01,x bne L005C tfr b,a L0034 ldb #$39 get rts pshs b,a put it and os9 func code on stack ldd #$103F get SWI2 instruction pshs b,a put on stack ldu $0C,s get pointer to caller's registers on stack ldd 1,u R$D ldx 4,u R$X ldy 6,u R$Y ldu 8,u R$U jsr ,s branch to subroutine pshs u,cc ldu $0F,s leau 8,u R$U pshu y,x,dp,b,a puls x,a sta ,-u stx $08,u leas $04,s clrb rts L005C comb ldb #E$ParmEr rts emod eom equ * end