Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/packages/basic09/syscall.asm @ 989:979b7f290efc
First pass disassembly and comments. Comments from 1992 disasm included. Requires Level 2 defs set Level equ 2 in this file should be in a defsfile.
| author | pwz |
|---|---|
| date | Fri, 21 Feb 2003 04:34:39 +0000 |
| parents | 0e6a4a6486a0 |
| children | 57f23da9790a |
line wrap: on
line source
******************************************************************** * SysCall - system call subroutine module * * $Id$ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ * 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 $01 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