2068 Program: Analyzer

Provides the status of Z80 registers at any point.

9800 REM *************** ANAL/yZER
9805 CLS : GO SUB 9965
9810 RESTORE 9830
9815 FOR N=65315 TO 65357
9820 READ Z: POKE N,Z
9825 NEXT N
9830 DATA 237,67,80,255,237,83,82,255 
9835 DATA 34,84,255,245,225,34,86,255,221,34,78,255
9840 DATA 42,97,92,43,43,34,93,92,33,9,27,229,201
9845 DATA 58,187,92,17,101,15,205,63,7,201
9850 IF PEEK 65315<>237 OR PEEK 65357<>201 THEN GO TO 9810
9855 PRINT '''"To continue, Enter CONT":STOP
9860 CLS: PRINT AT 2,0;"INSERT AT # ";: INPUT V: PRINT STR$ V and V>=16384: IF V<16384 THEN GO TO 9860
9865 LET V0=PEEK V: POKE V,195
9870 LET V1=PEEK (V+1): POKE (V+1),35
9875 LET V2=PEEK (V+2): POKE (V+2),255
9880 PRINT AT 1,0;"START   AT # ";: INPUT X: PRINT X
9890 ON ERR GO TO 9905
9895 RANDOMIZE USR X
9900 LET ZZ=0: GO TO 9915
9905 LET ZZ=1
9915 ON ERR RESET
9920 POKE V,V0: POKE (V+1),V1: POKE (V+2),V2
9925 PRINT ''"A  ";PEEK 65367;TAB 9;"F ";PEEK 65366
9930 PRINT "B  ";PEEK 65361;TAB 9;"C ";PEEK 65360;TAB 17;"BC ";PEEK 65360+256*PEEK 65361
9935 PRINT "DE ";PEEK 65362+256*PEEK 65363
9940 PRINT "HL ";PEEK 65364+256*PEEK 65365
9945 PRINT "IX ";PEEK 65358+256*PEEK 65359
9950 FOR N=65358 TO 65367: POKE N,0: NEXT N
9955 IF ZZ=1 THEN RANDOMIZE USR 65348
9960 GO TO 9850
9965 PRINT TAB 10;"ANALYZER"
9970 PRINT '"This program will provide the  status of the registers at any  point in an M/C program which   is stored in RAM."
9975 PRINT '" On request, enter location in  memory at which the Analyzer is to be inserted. (Be sure that itis the first byte of an OPCODE and not over 65314.)"
9980 PRINT '" Then enter location at which   test is to be started."
9985 RETURN