Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/packages/basic09/syscall.asm @ 3054:22ddd48b4ec2
level1 krn: Fix scheduler bug that only affected 6309
The original 6809 binary was correct, but it was disassembled
and interpreted wrongly, so that reassembly went wrong on 6309.
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Sun, 25 Jan 2015 22:36:02 +0100 |
| 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