2 ; Ullrich von Bassewitz, 14.09.2001
5 .export _peekbsys, _peekwsys
11 ; ------------------------------------------------------------------------
12 ; unsigned char __fastcall__ peekbsys (unsigned addr);
16 sta ptr1 ; Store argument pointer
24 ldx #$00 ; Extend to word
29 ; ------------------------------------------------------------------------
30 ; unsigned __fastcall__ peekwsys (unsigned addr);
34 sta ptr1 ; Store argument pointer
40 lda (ptr1),y ; Get low byte
43 lda (ptr1),y ; Get high byte