; Ullrich von Bassewitz, 14.09.2001
;
- .export _peekbsys, _peekwsys
- .importzp ptr1
+ .export _peekbsys, _peekwsys
+ .importzp ptr1
- .include "cbm510.inc"
+ .include "cbm510.inc"
; ------------------------------------------------------------------------
; unsigned char __fastcall__ peekbsys (unsigned addr);
-.proc _peekbsys
+.proc _peekbsys
- sta ptr1 ; Store argument pointer
- stx ptr1+1
- ldx IndReg
- lda #$0F
- sta IndReg
- ldy #$00
- lda (ptr1),y
- stx IndReg
- ldx #$00 ; Extend to word
- rts
+ sta ptr1 ; Store argument pointer
+ stx ptr1+1
+ ldx IndReg
+ lda #$0F
+ sta IndReg
+ ldy #$00
+ lda (ptr1),y
+ stx IndReg
+ ldx #$00 ; Extend to word
+ rts
.endproc
; ------------------------------------------------------------------------
; unsigned __fastcall__ peekwsys (unsigned addr);
-.proc _peekwsys
-
- sta ptr1 ; Store argument pointer
- stx ptr1+1
- ldx IndReg
- lda #$0F
- sta IndReg
- ldy #$00
- lda (ptr1),y ; Get low byte
- pha
- iny
- lda (ptr1),y ; Get high byte
- stx IndReg
- tax ; High byte -> X
- pla ; Low byte -> A
- rts
+.proc _peekwsys
+
+ sta ptr1 ; Store argument pointer
+ stx ptr1+1
+ ldx IndReg
+ lda #$0F
+ sta IndReg
+ ldy #$00
+ lda (ptr1),y ; Get low byte
+ pha
+ iny
+ lda (ptr1),y ; Get high byte
+ stx IndReg
+ tax ; High byte -> X
+ pla ; Low byte -> A
+ rts
.endproc