3421A CAL RAM

[Dave Frederickson]

Here's a program for the 3468 to print the ASCII data converted to hex nibbles.

10 DIM C$[256]
20 REMOTE :1
30 OUTPUT :1 ;"B2"
40 ENTER :1 ;C$
50 FOR K=1 TO 255
60 PRINT DTH$(NUM(C$[K,K])-64)[5,5];
70 IF K/16=INT(K/16) THEN PRINT
80 NEXT K

For the 3421A.
10 DIM C$[256]
20 OUTPUT :2 ;"CAL1"
30 ENTER :2 ;C$
40 FOR K=1 TO 256
50 PRINT DTH$(NUM(C$[K,K])-64)[5,5];
60 IF K/16=INT(K/16) THEN PRINT
70 NEXT K

Converted data:
F000000000000000
9999988FD314E354
9999999FD4D2FFC3
0000011FE144EE47
0000001FE20FF24C
000354501DC4DECF
9999991005DCFA77
999999901B1FF2C4
999999901CE1F4D0
999999901CD3F5D7
999999901B4FF7C4
9999999001ECF5E7
0012198000004747
997948700000D853
997849700000D847
FFFFFFFFFFFFFFFF