
 sttl Memory Examine Command
 pag
*
* Examine logical memory
*

examin jsr getadr get address
 bcs exit
 tfr y,d
 andb #$f0
 std stradr
 ldx #hyphen
 jsr pdata
 jsr getadr
 bcs exit
 sty endadr
 jsr outsp output space
 cmpy stradr
 blo exit
 ldy stradr
next ldx #nxtadr
 jsr pdata
 tfr y,d
 jsr hexwrd
 jsr hexprt
 jsr inchck
 bcs exit
 cmpy endadr
 bls next
exit rts

hexprt jsr outsp
 jsr outsp
 ldb #16
nxthex lda 0,y+
 jsr hexbyt
 jsr outsp
 decb
 bne nxthex
 rts

* strings

nxtadr fcb $d,0
hyphen fcc '-',0

*
* Map memory into buffer ($d000)
*

mapper jsr getbyt get byte
 bcs mappe8
 sta datbox+$d
mappe8 rts return
