Mercurial > hg > Members > kono > nitros9-code

view lib/kreiderclib/intercept.as @ 3136:820bc08befa5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add new sysgo variant from Bob Devries with sysgo.cfg support Add the text file "level2/sys/sysgo.cfg" to faciliate the new "sysgo_bd".
author Bill Pierce <merlinious999@gmail.com>
date Sat, 04 Feb 2017 02:10:35 +0100
parents 1647f1874cdf
children
line wrap: on
line source

* Disassembly by Os9disasm of intercept.r

* OS-9 system function equates

F$Icpt equ $09 

 section bss

* Uninitialized data (class B)
B0000 rmb 2 
* Initialized Data (class G)

 endsect  

 section code

intercept: pshs  u 
 tfr   y,u 
 ldx   4,s 
 stx   B0000,y 
 leax  >L0016,pcr 
 os9 F$Icpt 
 puls  u 
 lbra  _sysret 
L0016 tfr   u,y 
 clra   
 pshs  d 
 jsr   [B0000,y] 
 leas  2,s 
 rti    

 endsect