2 ; Ullrich von Bassewitz, 13.09.2001
4 ; void pokebsys (unsigned Addr, unsigned char Val);
5 ; void pokewsys (unsigned Addr, unsigned Val);
7 .export _pokebsys, _pokewsys
11 .include "zeropage.inc"
14 ; ------------------------------------------------------------------------
19 jsr popsreg ; Get the address
22 sty IndReg ; Switch to the system bank
30 ; ------------------------------------------------------------------------
35 stx tmp1 ; Save high byte
36 jsr popsreg ; Get the address
39 sty IndReg ; Switch to the system bank