Show Memory and Registers

Code to show contents of memory

M show memory DSPLYM-MP1 711C
M shows 8 bytes of memory, address (all four bytes) to be typed in, and set the current address for ; modify command.

R show registers DSPLYR-MP1 7114
R Show registers, a special case of show memory
PC PS A X Y Z SP

0537   729A             ;  WRITE ADR FROM TMP0 STORES
0538   729A             ;
0539   729A A2 01       WROA   LDX #1
0540   729C D0 0A              BNE WROA1
0541   729E A2 05       WROA4  LDX #5
0542   72A0 D0 06              BNE WROA1
0543   72A2 A2 07       WROA6  LDX #7
0544   72A4 D0 02              BNE WROA1
0545   72A6 A2 09       WRPC   LDX #9
0546   72A8 B5 ED       WROA1  LDA TMP0-1,X
0547   72AA 48                 PHA
0548   72AB B5 EE              LDA TMP0,X
0549   72AD 20 B1 72           JSR WROB
0550   72B0 68                 PLA

0119   0000             FLGS   =248 
0120   0000             ACC    =249
0121   0000             XR     =250
0122   0000             YR     =251
0123   0000             SP     =252 

0302   70FB A9 F8       SETR   LDA #FLGS         ; SET TO ACCESS REGS
0303   70FD 85 EE              STA TMP0
0304   70FF A9 00              LDA #0
0305   7101 85 EF              STA TMP0+1
0306   7103 A9 05              LDA #5
0307   7105 60                 RTS

0328   7114             ;  DISPLAY REG CMD - A,P,X,Y, AND SP
0329   7114             ;
0330   7114 20 A6 72    DSPLYR JSR WRPC          ; WRITE PC
0331   7117 20 FB 70           JSR SETR
0332   711A D0 07              BNE M0            ; USE DSPLYM
0333   711C             ;
0334   711C 20 A4 73    DSPLYM JSR RDOA          ; READ MEM ADR INTO TMPC
0335   711F 90 16              BCC ERRS1         ; ERR IF NO ADDR
0336   7121 A9 08              LDA #8
0337   7123 85 FE       M0     STA TMPC
0338   7125 A0 00              LDY #0
0339   7127 20 77 73    M1     JSR SPACE         ; TYPE 8 BYTES OF MEM
0340   712A B1 EE              LDA (TMP0),Y      ; (TMP0) PRESERVED FOR POSS ALTER
0341   712C 20 B1 72           JSR WROB
0342   712F C8                 INY               ; INCR INDEX
0343   7130 C6 FE              DEC TMPC
0344   7132 D0 F3              BNE M1
0345   7134 4C 86 70    BEQS1  JMP START